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

[ALL]Comando Warp

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

1Tutorial [ALL]Comando Warp em Seg 11 Out 2010, 19:05

Thales12


Membro
Membro
Abra o Principal ou o Main e 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)

e adicione no lugar q achar melhor:

Código:
If Lcase(Trim(TextSay)) = "/cidade" Then ' O nome do comando
Call PlayerWarp(index,1,10,8) ' o mapa para onde vai
Call PlayerMsg(Index, "Voce Foi teleportado para(Cidade)", 14) ' A menssagem q e dita ao usar o comando
Call PlaySound(Index, "som.wav") ' o som q faz
Exit Sub
End If
End If

OBS: caso queira por restrições basta adicionar o seguinte codigo em baixo de:

Código:
If Lcase(Trim(TextSay)) = "/cidade" Then

Coloque:

Código:
If GetPlayerAccess(Index) => 0 Then ' O acesso requerido
If GetPlayerLevel(index) => 100 Then ' O level requerido
GetPlayerPK(MyIndex) <> 0 ' Pk nao pode usar o comando

Créditos: Desconhecido.
Créditos: Thales por adicionar algumas coisas e postar.

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



Última edição por thalesbliss em Seg 11 Out 2010, 20:37, editado 2 vez(es)

2Tutorial Re: [ALL]Comando Warp em Seg 11 Out 2010, 20:19

Luucas Robeerto


Fundador
Fundador
Muito Bom

Mais esse Sistema naoe seu ponha os Creditos

===EDIT====

muito Bom agora sim, +1 CRED

http://universogamesmmo.forumeiros.com

3Tutorial Re: [ALL]Comando Warp em Qua 31 Ago 2011, 14:58

HeyrusX


Membro
Membro
Opa Mt BOm

4Tutorial Re: [ALL]Comando Warp em Seg 05 Set 2011, 20:22

RenanR


Membro
Membro
Aqui não seria apenas 1 end if?
Código:
If Lcase(Trim(TextSay)) = "/cidade" Then ' O nome do comando
Call PlayerWarp(index,1,10,8) ' o mapa para onde vai
Call PlayerMsg(Index, "Voce Foi teleportado para(Cidade)", 14) ' A menssagem q e dita ao usar o comando
Call PlaySound(Index, "som.wav") ' o som q faz
Exit Sub
End If
End If

E aqui nao teria um IF no get player pk?
Código:
If GetPlayerAccess(Index) => 0 Then ' O acesso requerido
If GetPlayerLevel(index) => 100 Then ' O level requerido
GetPlayerPK(MyIndex) <> 0 ' Pk nao pode usar o comando

E se você fizesse essa parte ai de cima... com o if certo '-' teria de botar o comando assim:
Código:
If Lcase(Trim(TextSay)) = "/cidade" Then ' O nome do comando
If GetPlayerAccess(Index) => 0 Then ' O acesso requerido mude o "0"
If GetPlayerLevel(index) => 100 Then ' O level requerido
If GetPlayerPK(MyIndex) <> 0 ' Pk nao pode usar o comando
Call PlayerWarp(index,1,10,8) ' o mapa para onde vai
Call PlayerMsg(Index, "Voce Foi teleportado para(Cidade)", 14) ' A menssagem q e dita ao usar o comando
Call PlaySound(Index, "som.wav") ' o som q faz
Exit Sub
End If
End If
End If
End If

Não?

http://mmomakerbr.ativoforum.com

5Tutorial Re: [ALL]Comando Warp Hoje à(s) 07:08

Conteúdo patrocinado


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