Comando /cidade para quem ainda não sabe.

Convidado

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

Citação :: 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

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Administrador Mensagens : 711

Muito bom mais use o

para deixa mais facil de entender

vou arrumar desta vez...