Bem vindo visitante.
Caso ainda não tenha uma conta,pedimos para que crie uma,assim você terá acesso a todos os links e imagens disponíveis no fórum.

Você não está conectado. Conecte-se ou registre-se

Sistema de WarpPlayer

Ir em baixo  Mensagem [Página 1 de 1]

1Normal Sistema de WarpPlayer em Dom Fev 19, 2012 8:28 pm

thales12

avatar
Moderador Global
Moderador Global
No eo so tem o warpto q e para adm, então ta ai o warp para players ! Smile
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


_______________________________________

My Sign Beast beautiful

[Você precisa estar registrado e conectado para ver esta imagem.]

Apoio ! :

[Você precisa estar registrado e conectado para ver esta imagem.]

OBS:

[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum