Convidado Convidado
| Assunto: Comando /cidade para quem ainda não sabe. Dom 28 Ago 2011, 16:45 | |
| 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
Explicando... - 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, "Você esta na [b]cidade[/b]", 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 esta imagem]
Última edição por xxbinhox em Seg 19 Set 2011, 10:35, editado 3 vez(es) |
|
Convidado Convidado
| Assunto: Re: Comando /cidade para quem ainda não sabe. Seg 29 Ago 2011, 16:18 | |
| Você devia ter postado na área de tutoriais.
mod move aki ... |
|