Carga eventos

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
    UsuariosTotales As Byte
    NombreEvento As String
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:  -
'
'*********************************************************************************

    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.UsuariosTotales = CByte(Leer.GetValue("EVENTO" & LoopC, "UsuariosTotales"))
            .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:  -
'
'*********************************************************************************

    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