Reto 1vs1

Sub Muere(ByVal muertoIndex As Integer, Optional ByVal Desconexion As Boolean = False)
' @ Muere un usuario en reto
    Dim winnerIndex As Integer  'UI DEL GANADOR DEL RETO.
    Dim indexUser   As Byte     'INDEX DE LOS USUARIOS DEL RETO.
    Dim indexReto   As Byte
    indexReto = UserList(muertoIndex).Reto1vs1.RetoIndex
    indexUser = IIf(Retos(indexReto).Usuarios(1) = muertoIndex, 2, 1)
'OBTENGO SU UI.
    winnerIndex = Retos(indexReto).Usuarios(indexUser)

    If Desconexion Then
        If UserList(winnerIndex).ConnID > 0 Then
            UserList(winnerIndex).flags.Round = 3
        ElseIf UserList(muertoIndex).ConnID > 0 Then
            UserList(muertoIndex).flags.Round = 3
            .flags.Inmovilizado
            .flags.Paralizado


        End If
    End If
    'setea reto ganado.
UserList(winnerIndex).Stats.RetosGanados = UserList(winnerIndex).Stats.RetosGanados + 1

'setea reto perdi2.
UserList(muertoIndex).Stats.RetosPerdidos = UserList(muertoIndex).Stats.RetosPerdidos + 1

    If UserList(winnerIndex).flags.Round <= 2 And UserList(winnerIndex).flags.Muerto = 0 Then
        UserList(winnerIndex).flags.Round = UserList(winnerIndex).flags.Round + 1
        .flags.Inmovilizado
            .flags.Paralizado

        With UserList(muertoIndex)
            With Retos(indexReto)
                WarpUserChar .Usuarios(1), UserList(.Usuarios(1)).flags.BeforeMap, UserList(.Usuarios(1)).flags.BeforeX, UserList(.Usuarios(1)).flags.BeforeY, True
                WarpUserChar .Usuarios(2), UserList(.Usuarios(2)).flags.BeforeMap, UserList(.Usuarios(2)).flags.BeforeX, UserList(.Usuarios(2)).flags.BeforeY, True
            End With
            WriteConsoleMsg muertoIndex, "Retos> Resultado parcial:" & vbNewLine & "Retos> " & .Name & " " & .flags.Round & " - " & UserList(winnerIndex).Name & " " & UserList(winnerIndex).flags.Round & "", FontTypeNames.FONTTYPE_GUILD
            WriteConsoleMsg winnerIndex, "Retos> Resultado parcial:" & vbNewLine & "Retos> " & .Name & " " & .flags.Round & " - " & UserList(winnerIndex).Name & " " & UserList(winnerIndex).flags.Round & "", FontTypeNames.FONTTYPE_GUILD
            WritePauseToggle muertoIndex
            WritePauseToggle winnerIndex
            .flags.Inmovilizado
            .flags.Paralizado

            Dim i As Long
            Dim pt As Integer
            Dim pt1 As Integer
            For i = 1 To RETOS_ARENAS
                If Retos(i).Usuarios(indexUser) > 0 Then
                    pt = Retos(i).Usuarios(1)
                    pt1 = Retos(i).Usuarios(2)
                    If (Retos(i).Cuenta = 0 And Retos(i).SalaOcupada = True) And (UserList(pt).flags.Muerto = 1 Or UserList(pt1).flags.Muerto = 1) Then
                        Retos(i).Cuenta = RETOS_CUENTA
                    End If
                End If
                Next i
                RevivirUsuario muertoIndex
                .Stats.MinHp = .Stats.MaxHp
                .Stats.MinMAN = .Stats.MaxMAN
                .Stats.MinSta = .Stats.MaxSta
                With UserList(winnerIndex)
                    .Stats.MinHp = .Stats.MaxHp
                    .Stats.MinMAN = .Stats.MaxMAN
                    .Stats.MinSta = .Stats.MaxSta
                End With
            End With
        ElseIf UserList(muertoIndex).flags.Round <= 2 And UserList(muertoIndex).flags.Muerto = 0 Then
            UserList(muertoIndex).flags.Round = UserList(muertoIndex).flags.Round + 1
            With UserList(winnerIndex)
                .Stats.MinHp = .Stats.MaxHp
                .Stats.MinMAN = .Stats.MaxMAN
                .Stats.MinSta = .Stats.MaxSta
                WarpUserChar winnerIndex, .flags.BeforeMap, .flags.BeforeX, .flags.BeforeY, True
                WarpUserChar muertoIndex, UserList(muertoIndex).flags.BeforeMap, UserList(muertoIndex).flags.BeforeX, UserList(muertoIndex).flags.BeforeY, True
                WriteConsoleMsg muertoIndex, "Retos> Resultado parcial:" & vbNewLine & "Retos> " & .Name & " " & .flags.Round & " - " & UserList(winnerIndex).Name & " " & UserList(winnerIndex).flags.Round & "", FontTypeNames.FONTTYPE_GUILD
                WriteConsoleMsg winnerIndex, "Retos> Resultado parcial:" & vbNewLine & "Retos> " & .Name & " " & .flags.Round & " - " & UserList(winnerIndex).Name & " " & UserList(winnerIndex).flags.Round & "", FontTypeNames.FONTTYPE_GUILD
                WritePauseToggle muertoIndex
                WritePauseToggle winnerIndex
            .flags.Inmovilizado
            .flags.Paralizado

                For i = 1 To RETOS_ARENAS
                    If Retos(i).Usuarios(indexUser) > 0 Then
                        pt = Retos(i).Usuarios(1)
                        pt1 = Retos(i).Usuarios(2)
                        If (Retos(i).Cuenta = 0 And Retos(i).SalaOcupada = True) And (UserList(pt).flags.Muerto = 1 Or UserList(pt1).flags.Muerto = 1) Then
                            Retos(i).Cuenta = RETOS_CUENTA
                        End If
                    End If
                    Next i
                    RevivirUsuario winnerIndex
                    .Stats.MinHp = .Stats.MaxHp
                    .Stats.MinMAN = .Stats.MaxMAN
                    .Stats.MinSta = .Stats.MaxSta
                    With UserList(muertoIndex)
                        .Stats.MinHp = .Stats.MaxHp
                        .Stats.MinMAN = .Stats.MaxMAN
                        .Stats.MinSta = .Stats.MaxSta
                    End With
                End With
                .flags.Inmovilizado
            .flags.Paralizado
            End If
            If UserList(winnerIndex).flags.Round >= 2 Then
                WritePauseToggle muertoIndex
                WritePauseToggle winnerIndex
             For i = 1 To RETOS_ARENAS
                    If Retos(i).Usuarios(indexUser) > 0 Then
                        pt = Retos(i).Usuarios(1)
                        pt1 = Retos(i).Usuarios(2)
                        If (Retos(i).Cuenta >= 1 And Retos(i).SalaOcupada = True) And (UserList(pt).flags.Muerto = 0 Or UserList(pt1).flags.Muerto = 0) Then
                            Retos(i).Cuenta = RETOS_CUENTA
                        End If
                    End If
                    .flags.Inmovilizado
            .flags.Paralizado
                    Next i
                    End If
                End Sub

Sub Limpiar(ByVal cleanIndex As Integer)

' @ Limpia el tipo de un usuario.

Dim NoPos   As WorldPos

With UserList(cleanIndex).Reto1vs1
     .MeEnvio = 0
     .Anteriorposition = NoPos
     .ApuestaOro = 0
     .VolverSeg = 0
     .RetoIndex = 0
     .flags.Inmovilizado = 0
     .flags.Paralizado = 0
End With

End Sub

Sub LimpiarIndex(ByVal RetoIndex As Byte)

' @ Limpia un slot de un reto.

With Retos(RetoIndex)

     .ApuestaOro = 0
     .Cuenta = 0
     .Ganador = 0
     .SalaOcupada = False
     .Usuarios(1) = 0
     .Usuarios(2) = 0
     .flags.Inmovilizado = 0
     .flags.Paralizado = 0
End With

End Sub