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...

Como por mais de 1 comando /Warp

4 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Suporte e Pedidos :: Assuntos resolvidos

Ir para baixo

Como por mais de 1 comando /Warp Empty Como por mais de 1 comando /Warp

Mensagem por snool Sáb 07 Ago 2010, 19:00

Olá Eu queria saber se da pra colocar mais de 1 comando para Warp , alguem me ajuda embaixo como ta a parte da Sub :

Código:
Sub Commands(index)
On Error Resume Next
Dim Portal
Dim mapnum
Dim x
Dim y
Dim i
Dim TextSay
Dim n
Dim m
Dim C   
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index) 
If Lcase(Trim(TextSay)) = "/arena" Then
If GetPlayerLevel(index) => 1 Then
Call playsound(index, "magic12.wav")
Call PlayerWarp(Index, 40, 10, 5)
Call PlayerMsg(Index, "Você Foi teleportado para Arena", WHITE)
Else
Call PlayerMsg(Index, "Não Tem lvl nescessario para se Mover,.", WHITE)

End If
End If
Exit Sub

Código:
Obrigado
Wink

snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

Como por mais de 1 comando /Warp Empty Re: Como por mais de 1 comando /Warp

Mensagem por Flips03 Dom 08 Ago 2010, 14:04

Sim tem como!
Olha o Exemplo que eu fiz com a sua sub que você postou:
Código:
Sub Commands(index)
On Error Resume Next
Dim Portal
Dim mapnum
Dim x
Dim y
Dim i
Dim TextSay
Dim n
Dim m
Dim C 
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)
If Lcase(Trim(TextSay)) = "/arena" Then
If GetPlayerLevel(index) => 1 Then
Call playsound(index, "magic12.wav")
Call PlayerWarp(Index, 40, 10, 5)
Call PlayerMsg(Index, "Você Foi teleportado para Arena", WHITE)
Else
Call PlayerMsg(Index, "Não Tem lvl nescessario para se Mover,.", WHITE)
End If
End If
Exit Sub

If Lcase(Trim(TextSay)) = "/arena2" Then
If GetPlayerLevel(index) => 1 Then
Call playsound(index, "magic12.wav")
Call PlayerWarp(Index, 41, 10, 5)
Call PlayerMsg(Index, "Você Foi teleportado para Arena2", WHITE)
Else
Call PlayerMsg(Index, "Não Tem lvl nescessario para se Mover,.", WHITE)
End If
End If
Exit Sub
Flips03
Flips03
Membro
Membro

Mensagens : 150

Ir para o topo Ir para baixo

Como por mais de 1 comando /Warp Empty Re: Como por mais de 1 comando /Warp

Mensagem por snool Dom 08 Ago 2010, 18:40

Ata depois da Exit Sub é só coloca o codigo denovo !
Valeu !
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

Como por mais de 1 comando /Warp Empty Re: Como por mais de 1 comando /Warp

Mensagem por snool Dom 08 Ago 2010, 18:41

Ata depois da Exit Sub é só coloca o codigo denovo !
Valeu !

Mais agora o unico problema é fazer não sumir o ''Este codigo não é um valido ''
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

Como por mais de 1 comando /Warp Empty Re: Como por mais de 1 comando /Warp

Mensagem por playsson14z Qui 04 Nov 2010, 16:39

tire a
Exit Sub
ai o outro codigo vc bota depois da
End If

so isso se poderme de 1 cred xD
playsson14z
playsson14z
Membro Junior
Membro Junior

Mensagens : 91

http://naruto-darkblink.blogspot.com

Ir para o topo Ir para baixo

Como por mais de 1 comando /Warp Empty Re: Como por mais de 1 comando /Warp

Mensagem por Gu1lh3rm3 Qui 04 Nov 2010, 17:14

Dúvida/Pedido/Problema Resolvido com sucesso.
Se houver algo mais por favor pedimos que efetue a criação de um novo tópico na área de Suporte para resolução.

Topico Trancado e Movido

Atenciosamente Equipe MMORPGBR.
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

Como por mais de 1 comando /Warp Empty Re: Como por mais de 1 comando /Warp

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 :: Outras Engines :: Elysium :: Suporte e Pedidos :: Assuntos resolvidos

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