Event

Option Explicit

'@@@ AUTOR: LUCIANO
'@@@ EVENTO: DELEGADO

Private Type tTeams

    UsersInTeam()       As Integer
    WinPoints           As Byte
    DeathTeam           As Byte
    WinRounds           As Byte
    Delegate_X          As Byte
    Delegate_Y          As Byte
    X                   As Byte
    Y                   As Byte

End Type

Private Type tUserEvent

    ID                  As Integer
    LastPosition        As WorldPos

End Type

Private Type tEventDelegate

    Teams(1 To 2)       As tTeams
    UsersEvent          As Byte
    UserIndex()         As tUserEvent
    EventDelegate       As Boolean
    Points              As Byte
    Rounds              As Byte
    Requirement         As Long
    Prize               As Long
    Quotas              As Byte
    Delegates(1 To 2)   As Integer
    Level               As Byte

End Type

Private Const MAP_EVENT As Integer = 1
Private EventDelegate As tEventDelegate

Public Sub Load_Coordinates()

    '@@ Cargamos las coordenas de los equipos y la del delegado.

    With EventDelegate

        '@@ EQUIPOS:
        .Teams(1).X = 50
        .Teams(1).Y = 60

        .Teams(2).X = 50
        .Teams(2).Y = 60

        '@@ DELEGADOS:
        .Teams(1).Delegate_X = 80
        .Teams(1).Delegate_Y = 80

        .Teams(2).Delegate_X = 60
        .Teams(2).Delegate_Y = 60

    End With
End Sub

Public Sub Start_Event(ByVal UserIndex As Integer, _
                       ByVal Quotas As Byte, _
                       ByVal Prize As Long, _
                       ByVal Requirement_Gold As Long, _
                       ByVal Rounds As Byte, _
                       ByVal Points As Byte, _
                       ByVal Level As Byte)

    '@@ Inicio el evento.
    '@@ Paso requerimientos
    '@@ Compruebo si se puede armar torneo.
    '@@ Aviso por consola

    With EventDelegate

        If Can_Event(UserIndex) = False Then Exit Sub

        .Quotas = Quotas * 2
        .Prize = Prize
        .Points = Points

        .Requirement = Requirement_Gold
        .Rounds = Rounds
        .EventDelegate = True

        .Level = Level
        .UsersEvent = 0

        ReDim .Teams(1).UsersInTeam(1 To Quotas) As Integer
        ReDim .Teams(2).UsersInTeam(1 To Quotas) As Integer

        ReDim .UserIndex(1 To .Quotas) As Integer

        Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Evento Delegado> Iniciado", FontTypeNames.FONTTYPE_SERVER))

    End With

End Sub

Public Sub Enter_Event(ByVal UserIndex As Integer)

    '@@ Participan al evento
    '@@ Los llevo a la sala de espera
    '@@ Sumo la cantidad de usuarios en evento.
    '@@ Guardo la ID del usuario.
    '@@ Guardo la posición del usuario.
    '@@ Le sacoa el oro.

    If Can_EnterEvent(UserIndex) = False Then Exit Sub

    With EventDelegate

        .UsersEvent = .UsersEvent + 1

        .UserIndex(.UsersEvent).ID = UserIndex

        .UserIndex(.UsersEvent).LastPosition = UserList(UserIndex).Pos

        UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD - .Requirement

        Call Enter_Wait(UserIndex)
        Call WriteUpdateGold(UserIndex)

        If .UsersEvent = .Quotas Then _
            Call Enter_Fight

    End With

End Sub

Private Sub Enter_Fight()


    Dim Blue As Long
    Dim Red As Long

    With EventDelegate

        Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("El cupo ha sido completado.", FontTypeNames.FONTTYPE_INFOBOLD))

        For Blue = 1 To .Quotas / 2 Step 2

            .Teams(1).UsersInTeam(Blue) = .UserIndex(Blue).ID
            Call WriteConsoleMsg(.UserIndex(Blue).ID, "Ahora perteneces al equipo azul.", FontTypeNames.FONTTYPE_INFOBOLD)
            Call WarpUserChar(.UserIndex(Blue).ID, MAP_EVENT, .Teams(1).X, .Teams(1).Y, True)

        Next Blue

        For Red = 1 To .Quotas / 2 Step 2

            .Teams(2).UsersInTeam(Red) = .UserIndex(Red).ID
            Call WriteConsoleMsg(.UserIndex(Red).ID, "Ahora perteneces al equipo rojo.", FontTypeNames.FONTTYPE_INFOBOLD)
            Call WarpUserChar(.UserIndex(Red).ID, MAP_EVENT, .Teams(2).X, .Teams(2).Y, True)

        Next Red

        .Delegates(1) = .Teams(1).UsersInTeam(RandomNumber(1, UBound(.Teams(1).UsersInTeam)))
        .Delegates(2) = .Teams(2).UsersInTeam(RandomNumber(1, UBound(.Teams(2).UsersInTeam)))

        Call WarpUserChar(.Delegates(1), MAP_EVENT, .Teams(1).Delegate_X, .Teams(1).Delegate_X, False)
        Call WarpUserChar(.Delegates(2), MAP_EVENT, .Teams(2).Delegate_X, .Teams(2).Delegate_X, False)

    End With

End Sub

Private Sub Enter_Wait(ByVal ID As Integer)

    '@@ Los mando a la sala de espera.
    '@@ Les marco que están en evento.

    Call WarpUserChar(ID, 1, 50, 50, True)
    UserList(ID).flags.Delegate = 1
    Call WriteConsoleMsg(ID, "Has ingresado al evento, eres el participante Nº" & EventDelegate.UsersEvent, FontTypeNames.FONTTYPE_INFOBOLD)

End Sub

Private Function Can_Event(ByVal ID As Integer) As Boolean

    '@@ Compruebo si se puede armar evento.

    Can_Event = False

    If Not EsGM(ID) Then
        Call WriteConsoleMsg(ID, "Tienes que ser GM para realizar el evento.", FontTypeNames.FONTTYPE_INFOBOLD)
        Exit Function
    End If

    With EventDelegate

        If .EventDelegate = True Then
            Call WriteConsoleMsg(ID, "Ya hay un torneo en curso. Espera a que ese termine.", FontTypeNames.FONTTYPE_INFOBOLD)
            Exit Function
        End If

        If .Quotas < 3 Then Exit Function

    End With

    Can_Event = True

End Function

Private Function Can_EnterEvent(ByVal ID As Integer) As Boolean

    '@@ Compruebo si puede entrar al evento

    Can_EnterEvent = False

    With UserList(ID)

        If .Stats.ELV < EventDelegate.Level Then Exit Function
        If EventDelegate.EventDelegate = False Then Exit Function
        If .flags.Delegate = 1 Then Exit Function
        If .Stats.GLD < EventDelegate.Requirement Then Exit Function
        If EventDelegate.UsersEvent = EventDelegate.Quotas Then Exit Function
        If .flags.Muerto = 1 Then Exit Function

    End With

     Can_EnterEvent = True

End Function