Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement