[ALL]Comando Warp

Convidado

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.

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Administrador Mensagens : 711

Muito Bom

Mais esse Sistema naoe seu ponha os Creditos

===EDIT====

muito Bom agora sim, +1 CRED

Convidado

Opa Mt BOm

Convidado

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?