tnl Bar & exp in .ini

[Johny050]

In this tutorial you mention the following subs:

Code:

Sub LoadExps()
Dim FileName As String
Dim i As Long

    Call CheckExps
  
    FileName = App.Path & "\experience.ini"
  
    For i = 1 To MAX_EXP
        Experience(i) = GetVar(FileName, "EXPERIENCE", "Exp" & i)
      
        DoEvents
    Next i
End Sub

Sub CheckExps()
    If Not FileExist("experience.ini") Then
        Dim i As Long
  
        For i = 1 To MAX_EXP
             Call PutVar(App.Path & "\experience.ini", "EXPERIENCE", "Exp" & i, i * 1500)
        Next i
    End If
End Sub

Sub ClearExps()
Dim i As Long

    For i = 1 To MAX_EXP
        Experience(i) = 0
    Next i
End Sub

The other guy was complaing he was only seeing 0's,
Don't you have to Call LoadExps, etc somewhere?