Teletransporte por VbKey,F6.

Convidado

Cliente~Side:

Procure por:

Código:: ' The Guild Creator
If KeyCode = vbKeyF4 Then
If Player(MyIndex).Access > 0 Then
frmGuild.Show vbModeless, frmMirage
End If
End If

Abaixo Adicione:

Código:: ' Transporte por key
If KeyCode = vbKeyF6 Then
Call SendData("cidade" & END_CHAR)
End If

Server~Side:

Procure por:

Código:: Case "guildtrainee"

' Requerimentos
If FindPlayer(Parse(1)) = 0 Then
Call PlayerMsg(Index, "O jogador está offline.", White)
Exit Sub
End If

If GetPlayerGuild(FindPlayer(Parse(1))) <> vbNullString Then
Call PlayerMsg(Index, "O jogador já está em sua guild.", Red)
Exit Sub
End If

' Se tudo okay, setar acesso dele da Guild para 0
Call SetPlayerGuild(FindPlayer(Parse(1)), GetPlayerGuild(Index))
Call SetPlayerGuildAccess(FindPlayer(Parse(1)), 0)
Call SendPlayerData(FindPlayer(Parse(1)))
Exit Sub

Abaixo Adicione:

Código:: Case "cidade"
Call PlayerWarp(Index, Mapa, X, Y)
Exit Sub

Mapa = Número do Mapa
X= Eixo do Mapa
Y = Eixo do Mapa

Pronto,Testado por mim e funcionando.

...:::Creditos:::...
Tirei como base o Tutorial do OmegaZero de teletransporte por foto.
Por Criar o Tutorial:Teteu.

Se gostou da + 1 de credito

Inté a proxima não esqueça dos creditos cheers

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

Convidado

Boa Teteu...
ta de parabens !!!
mais tem 1 geito mais facil de fazer o teleport desse geito ..
dps eu posto aki ..
+1 para vc mereceu ! Smile