Sistema de WarpPlayer

No eo so tem o warpto q e para adm, então ta ai o warp para players !
para usar em botão, label ou outra coisa do tipo...

Abra o Server~Side e procure por:

Código:

CWarpTo

em baixo adicione:

Código:

CWarpPlayer

dps procure por:

Código:

HandleDataSub(CWarpTo) = GetAddress(AddressOf HandleWarpTo)

em baixo adicione:

Código:

 HandleDataSub(CWarpPlayer) = GetAddress(AddressOf HandleWarpPlayer)

no final da modHandleData adicione:

Código:

Sub HandleWarpPlayer(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim n As Long
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()

    ' The map
    n = Buffer.ReadLong 'CLng(Parse(1))
    Set Buffer = Nothing

    ' Prevent hacking
    If n < 0 Or n > MAX_MAPS Then
        Exit Sub
    End If

    Call PlayerWarp(index, n, GetPlayerX(index), GetPlayerY(index))
    Call PlayerMsg(index, "Você está no mapa:" & n, BrightBlue)
    Call AddLog(GetPlayerName(index) & " Você foi para o mapa:" & n & ".", ADMIN_LOG)
End Sub

Server~Side terminado agora no Client~Side procure por:

no final da modClientTCP adicione:

Código:

Public Sub WarpPlayer(ByVal MapNum As Long)
Dim Buffer As clsBuffer

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    Set Buffer = New clsBuffer
    Buffer.WriteLong CWarpPlayer
    Buffer.WriteLong MapNum
    SendData Buffer.ToArray()
    Set Buffer = Nothing
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "WarpPlayer", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

dps procure por:

Código:

CWarpTo

em baixo adicione:

Código:

CWarpPlayer

para usa-lo basta usar o seguinte codigo :

Código:

Call WarpPlayer(numero do mapa)

Créditos: ao titio thales