[EO]Sistema de Prisão

Código:

CWarpTo

Código:

CPrisao
CPrisao2

Código:

HandleDataSub(CWarpTo) = GetAddress(AddressOf HandleWarpTo)

Código:

HandleDataSub(CPrisao) = GetAddress(AddressOf HandlePrisao)
HandleDataSub(CPrisao2) = GetAddress(AddressOf HandlePrisao2)

Código:

Sub HandlePrisao(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim n As Long
    Dim x As Byte, y As Byte
    Dim Nome As String
    Dim buffer As clsBuffer
    Set buffer = New clsBuffer
    buffer.WriteBytes Data()

    ' The map
    
    Nome = FindPlayer(buffer.ReadString)


    n = buffer.ReadLong
    x = buffer.ReadByte
    y = buffer.ReadByte
    Set buffer = Nothing

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

   If x < 0 Or x > Map(GetPlayerMap(Nome)).MaxX Then Exit Sub
    If y < 0 Or y > Map(GetPlayerMap(Nome)).MaxY Then Exit Sub


If GetPlayerMap(Nome) = 20 Then
Call PlayerMsg(Nome, "Hehe malandrinho,pensa que pode escapar tão facil assim da prisão?Pois se pensa entá muito enganado", BrightRed)
Else
Call PlayerWarp(index, n, x, y)
End If


End Sub

Sub HandlePrisao2(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim n As Long
    Dim x As Byte, y As Byte
    Dim Nome As String
    Dim buffer As clsBuffer
    Set buffer = New clsBuffer
    buffer.WriteBytes Data()

    ' The map
    
    Nome = FindPlayer(buffer.ReadString)


    n = buffer.ReadLong
    x = buffer.ReadByte
    y = buffer.ReadByte
    Set buffer = Nothing

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

   If x < 0 Or x > Map(GetPlayerMap(Nome)).MaxX Then Exit Sub
    If y < 0 Or y > Map(GetPlayerMap(Nome)).MaxY Then Exit Sub

if not getplayermap(index) = 20 then exit sub
Call PlayerWarp(index, n, x, y)

End Sub

Código:

Public Sub Prisao(ByVal Nome As String, ByVal MapNum As Long, ByVal x As Byte, ByVal y As Byte)
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 CPrisao
    buffer.WriteString Nome ' aqui ele escreve o nome que coloquei lá. rs
    buffer.WriteLong MapNum
    buffer.WriteByte x
    buffer.WriteByte y
    SendData buffer.ToArray()
    Set buffer = Nothing
    
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "Prisao", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Public Sub Prisao2(ByVal Nome As String, ByVal MapNum As Long, ByVal x As Byte, ByVal y As Byte)
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 CPrisao2
    buffer.WriteString Nome ' aqui ele escreve o nome que coloquei lá. rs
    buffer.WriteLong MapNum
    buffer.WriteByte x
    buffer.WriteByte y
    SendData buffer.ToArray()
    Set buffer = Nothing
    
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "Prisao2", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Código:

CWarpTo

Código:

CPrisao
CPrisao2

Código:

Name:cmdPrisão
Caption:Prender

Código:

call playerwarp(index,map,x,y)

Código:

if not getplayermap(index) = 20 then exit sub ' para realizar a função de liberar apenas se o play ter estiver no mapa 20,caso contrario o teleporte não será concluido.

xurana321 escreveu:Eu só fiz uma pergunta ¬¬to pedindo nada!!

Nicolasn2013 escreveu:Alguém poderia me dizer como usar esse sistema?