Handles y writes.

Public Sub WriteSendReto(ByVal Name1_Send As String, _
                          ByVal Name2_TeamSend As String, _
                          ByVal Name3_TeamSend As String, _
                          ByVal Name4_Team2 As String, _
                          ByVal Name5_Team2 As String, _
                          ByVal Name6_Team2 As String, _
                          ByVal Gold As Long, _
                          ByVal Items As Boolean, _
                          ByVal Potions As Integer)

    With outgoingData
            Call .WriteByte(ClientPacketID.Send_Reto)
            Call .WriteASCIIString(Name1_Send)
            Call .WriteASCIIString(Name2_TeamSend)
            Call .WriteASCIIString(Name3_TeamSend)
            Call .WriteASCIIString(Name4_Team2)
            Call .WriteASCIIString(Name5_Team2)
            Call .WriteASCIIString(Name6_Team2)
            Call .WriteLong(Gold)
            Call .WriteBoolean(Items)
            Call .WriteInteger(Potions)
    End With

End Sub

Public Sub WriteAcceptReto(ByVal Name_Send As String)

    With outgoingData
            Call .WriteByte(ClientPacketID.Accept_Reto)
            Call .WriteASCIIString(Name_Send)
    End With

End Sub

Public Sub WriteRefuseReto(ByVal Name_Send As String)

    With outgoingData
            Call .WriteByte(ClientPacketID.Refuse_Reto)
            Call .WriteASCIIString(Name_Send)
    End With

End Sub

Private Sub HandleSendReto(ByVal ID As Integer)

On Error GoTo Errhandler

    With UserList(ID)

        Dim buffer As New clsByteQueue
        Call buffer.CopyBuffer(.incomingData)

        'Remove packet ID
        Call buffer.ReadByte

        Dim Players(1 To 6) As Integer
        Dim Gold As Long
        Dim Items As Boolean
        Dim Potions As Integer

        Players(1) = NameIndex(buffer.ReadASCIIString())
        Players(2) = NameIndex(buffer.ReadASCIIString())
        Players(3) = NameIndex(buffer.ReadASCIIString())
        Players(4) = NameIndex(buffer.ReadASCIIString())
        Players(5) = NameIndex(buffer.ReadASCIIString())
        Players(6) = NameIndex(buffer.ReadASCIIString())
        Gold = buffer.ReadLong()
        Items = buffer.ReadBoolean()
        Potions = buffer.ReadInteger()

        Call Retos3vs3.Send_Reto(Players(), Gold, Items, Potions)

        Call .incomingData.CopyBuffer(buffer)

    End With
    Exit Sub

Errhandler:
    Dim error As Long
    error = Err.Number
On Error GoTo 0

    'Destroy auxiliar buffer
    Set buffer = Nothing

    If error <> 0 Then _
        Err.Raise error

End Sub

Private Sub handleAcceptReto(ByVal UserIndex As Integer)

On Error GoTo Errhandler

    With UserList(UserIndex)

        Dim buffer As New clsByteQueue
        Call buffer.CopyBuffer(.incomingData)

        'Remove packet ID
        Call buffer.ReadByte

        Dim Name_Send As String
        Dim ID_Send As Integer

        Name_Send = buffer.ReadASCIIString()
        ID_Send = NameIndex(Name_Send)

        Call Retos3vs3.Accept_Reto(UserIndex, ID_Send)

        Call .incomingData.CopyBuffer(buffer)

    End With
    Exit Sub

Errhandler:
    Dim error As Long
    error = Err.Number
On Error GoTo 0

    'Destroy auxiliar buffer
    Set buffer = Nothing

    If error <> 0 Then _
        Err.Raise error
End Sub

Private Sub handleRefuseReto(ByVal UserIndex As Integer)

On Error GoTo Errhandler

    With UserList(UserIndex)

        Dim buffer As New clsByteQueue
        Call buffer.CopyBuffer(.incomingData)

        'Remove packet ID
        Call buffer.ReadByte

        Dim Name_Send As String
        Dim ID_Send As Integer

        Name_Send = buffer.ReadASCIIString()
        ID_Send = NameIndex(Name_Send)

        Call Retos3vs3.Cancel_Send(ID_Send, UserIndex)

        Call .incomingData.CopyBuffer(buffer)

    End With
    Exit Sub

Errhandler:
    Dim error As Long
    error = Err.Number
On Error GoTo 0

    'Destroy auxiliar buffer
    Set buffer = Nothing

    If error <> 0 Then _
        Err.Raise error
End Sub