O sistema de luta é entra dois jogadores. Infelizmente (por motivos de sono) não conta com um sistema de 'tempo de aceitar/recusar' , mas inclui muita coisa. (Talvez eu coloque um "Add-On" depois...)
Sistema PVP:
- Envio de convite em uma janela diferente da de "Troca";
- Checagem se o jogador está em uma arena, se possui convite, se está online ou se a si mesmo;
- Variável de posição do jogador salva antes de entrar na arena e após o resultado, retornam às suas posições;
- Jogador desloga:
*Se estiver em arena = perde a arena, retorna para sua posição, o desafiado é teleportado de volta e limpo;
*Se tem um convite = limpa a si e quem estava desafiando com um convite em espera, além de fechar a janela;
- Desafio por Target, checando se é válido;

Agora, vamos ao tutorial que tem um pouco de coisinhas.



Primeiramente abra seu "Client.vbp" e crie na "FrmMain" : 

1x CommandButton -> Name: cmdArena / Caption: Desafiar
1x PictureBox -> Name: PicArena / Visible: False

DENTRO da PicArena crie:
1x Label -> Name: lblArenaDesc
1x Label -> Name: lblArenaAccept
1x Label -> Name: lblArenaDecline

Agora, dentro do "cmdArena", adicione isto:

Código:

If myTargetType = TARGET_TYPE_PLAYER And myTarget <> MyIndex Then
        SendArenaCommand 0, myTarget
        ' play sound
        PlaySound Sound_ButtonClick
    Else
        AddText "Alvo de batalha inválido", BrightRed
    End If

Agora, dentro da "lblArenaAccept" adicione isto:

Código:

SendArenaCommand 1, 0
    picArena.Visible = False

Agora, dentro da "lblArenaDecline" adicione isto:

Código:

SendArenaCommand 2, 0
    picArena.Visible = False

Agora, em "ModClientTCP" , no final adicione esta sub:

Código:

Sub SendArenaCommand(ByVal CommandNum As Long, ByVal curTarget 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 CArena
    Buffer.WriteLong CommandNum
    Buffer.WriteLong curTarget
    SendData Buffer.ToArray()
    Set Buffer = Nothing
    
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SendArenaCommand", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub


Agora, em "ModEnumerations", na "Public Enum ServerPackets" logo abaixo ANTES de:

Código:

' Make sure SMSG_COUNT is below everything else
    SMSG_COUNT
End Enum

Declare esta enumeração:

Código:

SArena

Ainda em "ModEnumerations", na "Public Enum ClientPackets" logo abaixo ANTES de:

Código:

' Make sure CMSG_COUNT is below everything else
    CMSG_COUNT
End Enum

Declare esta enumeração:

Código:

CArena

Agora, em "ModHandleData", na "Public Sub InitMessages()", depois de:

Código:

HandleDataSub(SPartyVitals) = GetAddress(AddressOf HandlePartyVitals)

Adicione isto:

Código:

HandleDataSub(SArena) = GetAddress(AddressOf HandleArena)

Ainda em "ModHandleData" , no final adicione isto:

Código:

Private Sub HandleArena(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddR As Long, ByVal ExtraVar As Long)
    Dim Buffer As clsBuffer
    Dim Name As String, CommandNum As Long

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    Name = Buffer.ReadString
    CommandNum = Buffer.ReadLong
    Set Buffer = Nothing
    
    Select Case CommandNum
        Case 0
            With frmMain
                .picArena.Visible = True
                .lblArenaDesc = "O jogador " & Name & " te desafiou para uma luta. Deseja aceitar?"
            End With
        Case 1
            frmMain.picArena.Visible = False
    End Select
    
    
End Sub

E pronto, cliente completo! Vamos agora ao servidor!