[ALL]Novo Tipo de /Warp

por Rio Absolut Sáb 21 Ago 2010, 00:32

Bem Esse Tutorial é 100% Meu Cabei de Fazer para o Marcos Vinicius A Pedido e estou vindo Trazer para vc .

Esse Tuto vc pode usar de Qualquer Lugar , Qualquer Mapa .

Warp Por Guild NOVO !
Abra o Principal.txt e Procure por :

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)

Abaixo disso Adicione :

If Lcase(Trim(TextSay)) = "/Guild" Then ' Comando
If GetPlayerGuild(index) => "Guild" Then ' Guild necessário para poder utilizar o comando
Call playsound(index, "magic12.wav") ' Som utilizado ao usar o comando
Call PlayerWarp(Index, 'Numero do Mapa', 'Coordenada X', 'Coordenada Y')
Call PlayerMsg(Index, "Msg Ao entra no mapa", WHITE)
Else
Call PlayerMsg(Index, "Msg Ao Não entrar ao mapa,.", WHITE)

End If
End If
Exit Sub

WARP Por Level
Adicione Aonde o mesmo Comando acima foi postado .
Adicione isso :

If Lcase(Trim(TextSay)) = "/Lugar" Then ' Nome para aonde vá ou nome qualquer pro comando
If GetPlayerLevel(index) => 'X' Then 'Troque X pelo Lv necessário '
Call playsound(index, "magic12.wav")
Call PlayerWarp(Index, 'Numero do Mapa', 'Cord. X', 'Cord. Y')
Call PlayerMsg(Index, "Msg ao entra no mapa", WHITE)
Else
Call PlayerMsg(Index, "Msg cause não entre no local.", WHITE)

End If
End If
Exit Sub

Acho Que Só por enquanto estou desenvolvendo mais Comandos novos .

Creditos Adm Geração por Criar e Postar