MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

[SCRIPT]Sistema de Duelo!

+7
giovani18
Gelinho
juichi
Karlos
pokoloko
Darkpeople196
orochymaru67
11 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: Tutoriais

Ir para baixo

[SCRIPT]Sistema de Duelo! Empty [SCRIPT]Sistema de Duelo!

Mensagem por orochymaru67 Seg 22 Nov 2010, 21:09

Ola galera Firmesa?

Vou postar um tutorial que faz com que ao player escrever /duel (e o nome do oponente) aparecera uma imagem para o player aceitar sim ou naum o duelo, se aceitar os dois são teleportados para a cidade que vc vai criar logico chamada duelo, logo apos um dos dois ter perdido o duelo os dois são teleportados para a cidade anterior

salve essa imagem na pasta GUI/CUSTOM com o nome "perkamenteh3.gif" sem aspas
[SCRIPT]Sistema de Duelo! 15d2zba
Salve esta com o nome de "Yes.jpg" na mesma pasta anterior
[SCRIPT]Sistema de Duelo! R7ohn9
Salve esta com o nome de "No.jpg" na mesma pasta anterior
[SCRIPT]Sistema de Duelo! 4rykut

Agora vamos para o Script
em Sub Commands adicione
Código:
Case "/duel"
PlayerID = FindPlayer(TextSay(1))
If PlayerID > 0 Then
If GetPlayerMap(Index) = GetPlayerMap(PlayerID) Then
If GetVar ("Scripts\dueling" & GetPlayerName(Index) & ".ini", GetPlayerName(Index), "Dueling") = "0" Then
Call CustomMenuShow(PlayerID, "Duel", "\GUI\CUSTOM\perkamenteh3.gif", 1)
Call CustomMenuLabel(PlayerID, 2, "" & getplayername(index) & " has challenged you to a duel, do you want to accept? To forfeit type /forfeit.", 30, 30, 12, 15, 0, 350, 100)
Call CustomMenuPicture(PlayerID, 21, "\GUI\CUSTOM\Yes.jpg", 30, 140)
Call CustomMenuPicture(PlayerID, 22, "\GUI\CUSTOM\No.jpg", 300, 140)
Call PutVar("Scripts\dueling\duel.ini", GetPlayerName(index), "NormalMap", GetPlayerMap(index))
Call PlayerWarp(Index, Map, X, Y) 'Change for Dueling Map number and first person's start position (X and Y).
Call PutVar("Scripts\dueling" & GetPlayerName(Index) & ".ini", GetPlayerName(Index), "Dueling", "1")
Else
Call PlayerMsg(Index, "You are not on the same map as that person or you are dueling.", RED)
End If
End If
End If

ainda em Sub Commands adicione
Código:
Case "/forfeit"
If GetPlayerMap(Index) = #Dueling Map# Then
Call MapMsg(#Dueling Map#,"" & getplayername(index) & " has forfeited the duel.", WHITE)
Call PlayerWarp(Index, GetVar("Scripts\dueling\duel.ini", GetPlayerName(index), "NormalMap"), 1, 34)
Call PutVar("Scripts\dueling" & GetPlayerName(Index) & ".ini", GetPlayerName(Index), "Dueling", "0")
End If
Exit Sub

EmSub MenuScripts Adicione
Código:
If Clicked_Index = 21 Then
If GetVar("Scripts\dueling" & GetPlayerName(Index) & ".ini", GetPlayerName(Index), "Dueling") = "0" Then
Call PutVar("Scripts\dueling" & GetPlayerName(Index) & ".ini", GetPlayerName(Index), "Dueling", "1")
Call PutVar("Scripts\dueling\duel.ini", GetPlayerName(index), "NormalMap", GetPlayerMap(index))
Call PlayerWarp(Index, Map, X, Y) 'Change for Dueling map and second person's start position.
Else
Call PlayerMsg(Index, "Sorry you are currently Dueling.", RED)
End If
End If

If Clicked_Index = 22 Then
Call CustomMenuClose(Index)
End If 
Exit Sub

em JoinGame
Código:
If GetPlayerMap(Index) = #Dueling Map Number# Then
Call MapMsg(#Dueling Map Number#,"" & getplayername(index) & " has forfeited the duel.", WHITE)
Call PutVar("Scripts\dueling" & GetPlayerName(Index) & ".ini", GetPlayerName(Index), "Dueling", "0")
Call PlayerWarp(Index, GetVar("Scripts\dueling\duel.ini", GetPlayerName(index), "NormalMap"), 1, 34)
End If

em LeftGame
Código:
If GetVar("Scripts\dueling" & GetPlayerName(Index) & ".ini", GetPlayerName(Index), "Dueling") = "1" Then
Call PutVar("Scripts\dueling" & GetPlayerName(Index) & ".ini", GetPlayerName(Index), "Dueling", "0")
Call PlayerWarp(Index, GetVar("Scripts\dueling\duel.ini", GetPlayerName(index), "NormalMap"), 1, 34)
Call MapMsg(#Dueling Map Number#,"" & getplayername(index) & " has forfeited the duel.", WHITE)
End If

em OnPvPDeath

Código:
If GetPlayerMap(Victim) = #Dueling Map# Then
Call PlayerWarp(Victim, GetVar("Scripts\dueling\duel.ini", GetPlayerName(Victim), "NormalMap"), 1, 34)
Call PutVar("Scripts\dueling" & GetPlayerName(Victim) & ".ini", GetPlayerName(Victim), "Dueling", "0")
End If

If GetPlayerMap(Attacker) = #Dueling Map# Then
Call PlayerWarp(Attacker, GetVar("Scripts\dueling\duel.ini", GetPlayerName(Attacker), "NormalMap"), 1, 34)
Call PutVar("Scripts\dueling" & GetPlayerName(Attacker) & ".ini", GetPlayerName(Attacker), "Dueling", "0")
End If

ainda em PvPDeath
Código:
If GetPlayerMap(Victim) = #Dueling Map# Then
Call PlayerWarp(Victim, GetVar("Scripts\dueling\duel.ini", GetPlayerName(Victim), "NormalMap"), 1, 34)
Call PutVar("Scripts\dueling" & GetPlayerName(Victim) & ".ini", GetPlayerName(Victim), "Dueling", "0")
End If

If GetPlayerMap(Attacker) = #Dueling Map# Then
Call PlayerWarp(Attacker, GetVar("Scripts\dueling\duel.ini", GetPlayerName(Attacker), "NormalMap"), 1, 34)
Call PutVar("Scripts\dueling" & GetPlayerName(Attacker) & ".ini", GetPlayerName(Attacker), "Dueling", "0")
End If

logo apos fassa uma pasta dentro da pasta scripts com o nome de "dueling" sem aspas vc vao saber porque [SCRIPT]Sistema de Duelo! 256397

Pronto galera so isso, depois de ter feito tudo isso e so testar!

Creditos a mim e a meu amigo RedDragon tambem conhecido como Bboy

Qual quer erro poste aki para resolvermos Flw galera ate a proxima! [SCRIPT]Sistema de Duelo! 535201


Última edição por orochymaru67 em Ter 04 Jan 2011, 23:13, editado 1 vez(es)
orochymaru67
orochymaru67
Membro
Membro

Mensagens : 228

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por Darkpeople196 Seg 22 Nov 2010, 21:54

belo topic man você ganho meu cred+ sem zuar você tem futuro en script mais eu acho melhor tu ir na programação solo memo
Darkpeople196
Darkpeople196
Membro Vitalicio
Membro Vitalicio

Mensagens : 612

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por orochymaru67 Seg 22 Nov 2010, 22:02

kkkkkkkkk todos dizem isso so que tipo minha paixao e por scripts entende acho que mais tarde posto alguma coisa do VB e tals

bgd pelo cred [SCRIPT]Sistema de Duelo! 332646
orochymaru67
orochymaru67
Membro
Membro

Mensagens : 228

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por pokoloko Seg 29 Nov 2010, 13:47

AKI ESTÁ DANDO ESSE ERRO PQ SERÁ If GetPlayerMap(Index) = #Dueling Map# Then ??
pokoloko
pokoloko
Membro Junior
Membro Junior

Mensagens : 93

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por Karlos Seg 29 Nov 2010, 14:34

#Dueling Map# = o numero do mapa que vc quer que seja ocorrido o duelo ;D
Karlos
Karlos
Membro Veterano
Membro Veterano

Mensagens : 2851

http://www.talack.com.br

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por juichi Dom 19 Dez 2010, 03:39

mto bom, meu cred jah foi add


Última edição por juichi em Ter 01 Fev 2011, 18:07, editado 1 vez(es)
juichi
juichi
Membro Sênior
Membro Sênior

Mensagens : 483

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por Gelinho Sex 24 Dez 2010, 07:01

Ele fuciona no ES? Pq eu num consegui faze pega ^^
Gelinho
Gelinho
Membro Junior
Membro Junior

Mensagens : 64

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por giovani18 Dom 30 Jan 2011, 08:40

mano isso funfa em elysium eeb2.6 ou e so pra eclipc?
giovani18
giovani18
Novato
Novato

Mensagens : 35

http://masterdbz.xpg.com.br

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por Lucas Roberto Dom 30 Jan 2011, 11:41

So para eclipse
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por lincoln255 Dom 30 Jan 2011, 17:40

Boa mano! testado e aprovado! Very Happy +1cred
lincoln255
lincoln255
Membro Junior
Membro Junior

Mensagens : 69

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por Blade Ter 08 Fev 2011, 14:17

Perfect *-*
+1 de cred se pudesse te daria 2 Very Happy
Blade
Blade
Membro
Membro

Mensagens : 103

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por mariomoral Sáb 19 Fev 2011, 08:33

Eu to com dúvida nessa parte:

ainda em PvPDeath
Código:
If GetPlayerMap(Victim) = #Dueling Map# Then
Call PlayerWarp(Victim, GetVar("Scripts\dueling\duel.ini", GetPlayerName(Victim), "NormalMap"), 1, 34)
Call PutVar("Scripts\dueling" & GetPlayerName(Victim) & ".ini", GetPlayerName(Victim), "Dueling", "0")
End If

If GetPlayerMap(Attacker) = #Dueling Map# Then
Call PlayerWarp(Attacker, GetVar("Scripts\dueling\duel.ini", GetPlayerName(Attacker), "NormalMap"), 1, 34)
Call PutVar("Scripts\dueling" & GetPlayerName(Attacker) & ".ini", GetPlayerName(Attacker), "Dueling", "0")
End If


pq ela é igual a parte de cima, ou seja, é para eu colocar dois desses?
Código:
If GetPlayerMap(Victim) = #Dueling Map# Then
Call PlayerWarp(Victim, GetVar("Scripts\dueling\duel.ini", GetPlayerName(Victim), "NormalMap"), 1, 34)
Call PutVar("Scripts\dueling" & GetPlayerName(Victim) & ".ini", GetPlayerName(Victim), "Dueling", "0")
End If

If GetPlayerMap(Attacker) = #Dueling Map# Then
Call PlayerWarp(Attacker, GetVar("Scripts\dueling\duel.ini", GetPlayerName(Attacker), "NormalMap"), 1, 34)
Call PutVar("Scripts\dueling" & GetPlayerName(Attacker) & ".ini", GetPlayerName(Attacker), "Dueling", "0")
End If



Eu tbm to com dúvida nessa outra parte:
Call PlayerWarp(Attacker, GetVar("Scripts\dueling\duel.ini", GetPlayerName(Attacker), "NormalMap"), 1, 34)

Quero saber se no lugar de "NormalMap" é para colocar o número do mapa que os players vão voltar depois do duelo?

EDIT
Não funcionou, eu adicionei tudo direitinho, como diz no tutorial, mas n funfo, alguem me ajuda, coloca tipo algumas screenshots de como fica o script quando adiciona, pq tem toda aquela coisa do espaçamento e talz.


Última edição por mariomoral em Sáb 19 Fev 2011, 08:43, editado 1 vez(es)
mariomoral
mariomoral
Membro Junior
Membro Junior

Mensagens : 51

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por Lucas Roberto Sáb 19 Fev 2011, 08:39

a primeira duvida e pra colocar 1 so

e na segunda por colocar o numero do warp
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por pokoloko Dom 27 Mar 2011, 16:08

NA HORA QUE EU CLIKO EM YES OU NO APARECE UNKNOW MENU PQ?
pokoloko
pokoloko
Membro Junior
Membro Junior

Mensagens : 93

Ir para o topo Ir para baixo

[SCRIPT]Sistema de Duelo! Empty Re: [SCRIPT]Sistema de Duelo!

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: Tutoriais

 
Permissões neste sub-fórum
Não podes responder a tópicos