Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

Comando /cidade para quem ainda não sabe.

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial Comando /cidade para quem ainda não sabe.

Mensagem por xxbinhox em Qui 01 Set 2011, 09:26

Primeiramente procure por :

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)

De um enter e coloque isso:

Código:
If Lcase(Mid(TextSay, 1, 7)) = "/cidade" Then
Call playsound(index, "magic12.wav")'
Call PlayerWarp(index, 3, 9, 13)
Call PlayerMsg(index, "Voçê esta na cidade", 4)
End If

Explicando...
If Lcase(Mid(TextSay, 1, 7)) = "/cidade" Then (comando q sera digitado)
Call playsound(index, "magic12.wav")' (Som, aconselho n alterar)
Call PlayerWarp(index, 3, 9, 13) (mapa,x,y)
Call PlayerMsg(index, "Você esta na cidade", 4) (Texto que aparecerar quando vc for para o local)
End If

Se ajudei da 1 cred


[Você precisa estar registrado e conectado para ver este link.]
avatar
xxbinhox

Mensagens : 16

http://alvaro-superdbzsayan.blogspot.com

Voltar ao Topo Ir em baixo

Tutorial Re: Comando /cidade para quem ainda não sabe.

Mensagem por Lucas Roberto em Sab 03 Set 2011, 12:22

Muito bom mais use o
Código:
[code][/code]
para deixa mais facil de entender

vou arrumar desta vez...

_______________________________________________________________________________________________________


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum