Public levelELU(1 to STAT_MAXELV) as Long '<--- En declaraciones

''
'
Public Sub CargarELU() '<--- En general, llamada en sub main (al final).

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

    Dim Leer As New clsIniReader, LoopC As Long
    Call Leer.Initialize(App.Path & "\Dat\Niveles.dat")

    For LoopC = 1 To STAT_MAXELV
         levelELU(LoopC) = Clng(Leer.GetValue("INIT", "Nivel" & LoopC))
    Next LoopC

End Sub

'@@ FORMATO DEL DAT:


'[INIT]
'Nivel1=300
'Nivel2=4000
'Así hasta el máximo.

'@@@ Userlist(UsuarioIndex).Stats.ELU = levelELU(Userlist(UsuarioIndex).Stats.ELV)
'