Public Sub ConteoEvento()
    Dim LoopC As Long, loopx As Long, loopi As Long

    For LoopC = 1 To UBound(evento()) '<--- general
       With evento(LoopC)
            If .activo = True Then
                If .tiempoAgarrarObjetos = 0 Then
                    .tiempoAgarrarObjetos = -1
                ElseIf .tiempoAgarrarObjetos > 0 Then
                    .tiempoAgarrarObjetos = .tiempoAgarrarObjetos - 1
                End If
                If .tiempoAutoCancelamiento = 0 Then
                    For loopx = 1 To UBound(.equipo())
                        For loopi = 1 To UBound(.equipo(loopx).usuarios())
                            If .equipo(loopx).usuarios(loopi).ID > 0 Then '<--- Los llevamos a sus antiguas posiciones
                                Call WarpUserChar(.equipo(loopx).usuarios(loopi).ID, .equipo(loopx).usuarios(loopi).pos.Map, .equipo(loopx).usuarios(loopi).pos.X, .equipo(loopx).usuarios(loopi).pos.Y, True)
                                '<--- Falta darle los objetos a los usuarios
                            End If
                        Next loopi
                    Next loopx
                    .tiempoAutoCancelamiento = -1
                    Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(.nombreEvento & ">> Evento cancelado por falta de participantes. Los usuarios han sido devuelto a sus antiguas posiciones y se les ha devuelto lo gastado en la inscripci�n.", FontTypeNames.FONTTYPE_GUILD))
                ElseIf .tiempoAutoCancelamiento > 0 Then
                    .tiempoAutoCancelamiento = .tiempoAutoCancelamiento - 1
                    Select Case .tiempoAutoCancelamiento
                        Case 60
                            Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(.nombreEvento & ">> En caso de que los cupos no sean completados en los pr�ximos " & .tiempoAutoCancelamiento & " segundos el evento se autocancelar�.", FontTypeNames.FONTTYPE_GUILD))
                        Case 30
                            Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(.nombreEvento & ">> En caso de que los cupos no sean completados en los pr�ximos " & .tiempoAutoCancelamiento & " segundos el evento se autocancelar�.", FontTypeNames.FONTTYPE_GUILD))
                        Case 10
                            Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(.nombreEvento & ">> En caso de que los cupos no sean completados en los pr�ximos " & .tiempoAutoCancelamiento & " segundos el evento se autocancelar�.", FontTypeNames.FONTTYPE_GUILD))
                        Case 1 To 5
                            Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(.nombreEvento & ">> En caso de que los cupos no sean completados en los pr�ximos " & .tiempoAutoCancelamiento & " segundos el evento se autocancelar�.", FontTypeNames.FONTTYPE_GUILD))
                    End Select
                End If
                For loopx = 1 To UBound(evento(LoopC).arenas()) '<-- arenas
                        With .arenas(loopx)
                             If .ocupada = True Then
                                 If .conteoPelea = 0 Then
                                     For loopi = 1 To LoopC
                                         Call WriteConsoleMsg(evento(LoopC).equipo(.equipos(1)).usuarios(loopi).ID, "Conteo>> Ya!", FontTypeNames.FONTTYPE_CONSEJO)
                                         Call WriteConsoleMsg(evento(LoopC).equipo(.equipos(2)).usuarios(loopi).ID, "Conteo>> Ya!", FontTypeNames.FONTTYPE_CONSEJO)
                                     Next loopi
                                         .conteoPelea = -1
                                 ElseIf .conteoPelea > 0 Then
                                     For loopi = 1 To LoopC
                                         Call WriteConsoleMsg(evento(LoopC).equipo(.equipos(1)).usuarios(loopi).ID, "Conteo>> " & .conteoPelea, FontTypeNames.FONTTYPE_CONSEJO)
                                         Call WriteConsoleMsg(evento(LoopC).equipo(.equipos(2)).usuarios(loopi).ID, "Conteo>> " & .conteoPelea, FontTypeNames.FONTTYPE_CONSEJO)
                                     Next loopi
                                         .conteoPelea = .conteoPelea - 1
                                 End If
                             End If
                         End With
                 Next loopx
            End If
        End With
    Next LoopC
End Sub