Option Explicit

'####################################################
'Autor: Luciano (G Toyz)
'Creación: 18/04/2017
'Aclaración: -
'Ultima modificación:  -
'
'####################################################

Private Type tUsuario
    UsuarioIndex As Integer
    Pos As WorldPos
End Type

Private Type tEquipos
    Usuarios() As tUsuario
    Rondas As Byte
End Type

Private Type tArenas
    EquipoIndex As Byte
    Conteo As Integer
    Pos As WorldPos
End Type

Private Type tEsperas
    EquipoIndex As Byte
    Pos As WorldPos
End Type

Private Type tManejo
    Oro As Long
    Objetos() As Obj
End Type

Public Type tDatosGenerales
    Cupos As Byte
    CaenObjetos As Boolean
    Inscripcion As tManejo
    CuposTotales As Byte
    NombreEvento As String
    ConteoInicioCupos As Integer
    EventoArmado As Boolean
    CuposAbiertos As Boolean
    EventoIniciado As Boolean
End Type

Private Type tGeneral
    Arenas() As tArenas
    Esperas() As tEsperas
    Equipos() As tEquipos
    Datos As tDatosGenerales
End Type

Private Eventos() As tGeneral
''
'
Public Sub Carga()

'*********************************************************************************
'Autor: Luciano (G Toyz)
'Creación: 18/04/2017
'Aclaración: -
'Ultima modificación: 19/04/2017
'
'*********************************************************************************

    Dim Leer As New clsIniReader, cantidadEventos As Byte, LoopC As Long, cantidadArenas As Byte, cantidadEsperas As Byte

    Call Leer.Initialize(App.Path & "\Dat\Eventos\INIT.dat")

    cantidadEventos = CByte(Leer.GetValue("INIT", "EventosTotales"))

    ReDim Eventos(1 To cantidadEventos) As tGeneral

    For LoopC = 1 To cantidadEventos
        cantidadArenas = CByte(Leer.GetValue("EVENTO" & LoopC, "ArenasTotales"))
        cantidadEsperas = CByte(Leer.GetValue("EVENTO" & LoopC, "EsperasTotales"))
        With Eventos(LoopC)
            .Datos.CuposTotales = CByte(Leer.GetValue("EVENTO" & LoopC, "CuposTotales"))
            .Datos.NombreEvento = Leer.GetValue("EVENTO" & LoopC, "NombreEvento")
            Call CargarPosiciones(.Datos.NombreEvento, "Arena", .Arenas.Pos, cantidadArenas)
            Call CargarPosiciones(.Datos.NombreEvento, "Espera", .Esperas.Pos, cantidadEsperas)
        End With
    Next LoopC

End Sub
''
'
Private Sub CargarPosiciones(ByVal NombreEvento As String, ByVal DataFile As String, _
                                                      ByRef Pos As WorldPos, CantidadTotal As Byte)

'*********************************************************************************
'Autor: Luciano (G Toyz)
'Creación: 18/04/2017
'Aclaración: -
'Ultima modificación: 19/04/2017
'
'*********************************************************************************

    Dim Leer As New clsIniReader, LoopC As Long

    Call Leer.Initialize(App.Path & "\Dat\Eventos\" & NombreEvento & "\" & DataFile & ".dat")

    For LoopC = 1 To CantidadTotal
        Pos.Map = CInt(Leer.GetValue("Espera" & LoopC, "MAPA"))
        Pos.X = CByte(Leer.GetValue("Espera" & LoopC, "X"))
        Pos.Y = CByte(Leer.GetValue("Espera" & LoopC, "Y"))
    Next LoopC

End Sub
''
'
Public Sub ArmarEvento(ByVal UsuarioIndex As Integer, ByVal EventoIndex As Byte, ByRef Datos As tDatosGenerales)

'*********************************************************************************
'Autor: Luciano (G Toyz)
'Creación: 19/04/2017
'Aclaración: -
'Ultima modificación:  -
'
'*********************************************************************************

    With Eventos(EventoIndex)
        .Datos = Datos
        Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(.Datos.NombreEvento & ">> En " & .Datos.ConteoInicioCupos & " empezará el evento. (Inicializado por " & UserList(UsuarioIndex).name, FontTypeNames.FONTTYPE_GUILD))
    End With
End Sub
''
'
Public Sub EntrarEvento(ByVal UsuarioIndex As Integer, ByVal EventoIndex As Byte)

'*********************************************************************************
'Autor: Luciano (G Toyz)
'Creación: 19/04/2017
'Aclaración: -
'Ultima modificación:  -
'
'*********************************************************************************

    If Not PuedeEntrarEvento(UsuarioIndex, EventoIndex) Then Exit Sub

    Dim EquipoIndex As Byte, ParticipanteIndex As Byte

    Call DameIndexs(EventoIndex, EquipoIndex, ParticipanteIndex)

    '@@ chequeo de que si es 0 inicie el evento.



End Sub
''
'
Private Function PuedeEntrarEvento(ByVal UsuarioIndex As Integer, ByVal EventoIndex As Byte) As Boolean

'*********************************************************************************
'Autor: Luciano (G Toyz)
'Creación: 19/04/2017
'Aclaración: -
'Ultima modificación:  -
'
'*********************************************************************************
End Function

Private Function DameIndexs(ByVal EventoIndex As Byte, ByRef EquipoIndex As Byte, ByRef UsuarioIndex As Byte)

'*********************************************************************************
'Autor: Luciano (G Toyz)
'Creación: 19/04/2017
'Aclaración: -
'Ultima modificación:  -
'
'*********************************************************************************

    Dim LoopC As Long

    With Eventos(EventoIndex)

    End With
End Function