Teletransporte por VbKey,F6.

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 [Você precisa estar registrado e conectado para ver esta imagem.] .

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 !