Server>Scripts>Principal/Main.txt

Para procurar aperta CTRL + F
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)) = "/[b]cidade[/b]" Then
Call playsound(index, "magic12.wav")'
Call PlayerWarp(index, 3, 9, 13)
Call PlayerMsg(index, "Voçê esta na [b]cidade[/b]", 4)
End If


Agora vamos editar isso de uma vez!

Código:

If Lcase(Mid(TextSay, 1, 7)) = "/[b]cidade[/b]" 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, "Voçê esta na [b]cidade[/b]", 4)  (Texto que aparecerar quando vc for para o local)
End If


Vai ajudar os iniciantes, +1 pela colaboração.