Comando /cidade

por xxbinhox Ter 30 Ago - 19:11:10

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

Agora vamos editar isso de uma vez!

Código:: 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, "Voçê esta na cidade", 4) (Texto que aparecerar quando vc for para o local) End If