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 Dom 28 Ago 2011, 15: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

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


Última edição por xxbinhox em Seg 19 Set 2011, 09:35, editado 3 vez(es)
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 RenanR em Seg 29 Ago 2011, 15:18

Você devia ter postado na área de tutoriais.

mod move aki ...
avatar
RenanR

Mensagens : 119

http://mmomakerbr.ativoforum.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