Private Sub HandleSetTorneo(ByVal UserIndex As Integer)

    If UserList(UserIndex).incomingData.length < 3 Then
        Err.Raise UserList(UserIndex).incomingData.NotEnoughDataErrCode
        Exit Sub

    End If

    On Error GoTo Errhandler

    With UserList(UserIndex)

        'This packet contains strings, make a copy of the data to prevent losses if it's not complete yet...
        Dim buffer As New clsByteQueue

        Call buffer.CopyBuffer(.incomingData)

        'Remove packet ID
        Call buffer.ReadByte

        Dim UserName As String
        Dim uName As String
        Dim tUser As Integer

        UserName = buffer.ReadASCIIString()
        uName = UCase$(.Name)

        If InStrB(UserName, "+") Then
            UserName = Replace$(UserName, "+", " ")
        End If

        tUser = NameIndex(UserName)

        With UserList(UserIndex)
            If Not .flags.Privilegios And (PlayerType.User) Then
                If tUser <= 0 Then
                    Call WriteConsoleMsg(UserIndex, "El usuario no está online.", FontTypeNames.FONTTYPE_TALK)

                    If PersonajeExiste(UserName) Then
                        Call SendData(SendTarget.toall, 0, PrepareMessageConsoleMsg("SERVIDOR> El personaje " & UserName & " ha ganado un evento.", FontTypeNames.FONTTYPE_SERVER))

                        Dim PuntosTotal As Integer

                        PuntosTotal = GetVar(CharPath & UserName & ".chr", "MUERTES", "TorneosGanados")
                        PuntosTotal = PuntosTotal + 1

                        Call WriteVar(CharPath & UserName & ".chr", "MUERTES", "TorneosGanados", PuntosTotal)
                    Else
                        Call WriteConsoleMsg(UserIndex, "El pj " & UserName & " no existe.", FontTypeNames.FONTTYPE_INFO)

                    End If

                Else
                    Call SendData(SendTarget.toall, 0, PrepareMessageConsoleMsg("SERVIDOR> El personaje " & UserName & " ha ganado un evento.", FontTypeNames.FONTTYPE_SERVER))

                    UserList(tUser).Stats.TorneosGanados = UserList(tUser).Stats.TorneosGanados + 1
                    Call CheckRankingUser(UserIndex, TopTorneos)
                End If
            End If
        End With

        'If we got here then packet is complete, copy data back to original queue
        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