Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Comando /cidade para quem ainda não sabe.

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Comando /cidade para quem ainda não sabe. em Dom 28 Ago 2011, 15:45

xxbinhox


Membro
Membro
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)

http://alvaro-superdbzsayan.blogspot.com

RenanR


Membro
Membro
Você devia ter postado na área de tutoriais.

mod move aki ...

http://mmomakerbr.ativoforum.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum