Mirage Source

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

Call CheckRaces

FileName = App.Path & "\races.ini"

Max_Races = Val(GetVar(FileName, "INIT", "MaxRaces"))

ReDim Race(0 To Max_Races) As RaceRec

Call ClearRaces

For i = 0 To Max_Races
Race(i).Name = GetVar(FileName, "RACE" & i, "Name")
Race(i).Sprite = GetVar(FileName, "RACE" & i, "Sprite")

DoEvents
Next i
End Sub

Make sure .Sprite is either a byte or a long.

Try adding val(), Int() or CInt() to your getvar.

Make sure .Sprite is either a byte or a long.

Try adding val(), Int() or CInt() to your getvar.

Make sure you defined .Sprite in the Race Rec

Check so your FileName = App.Path & "\races.ini" is correct.

And check that you actually have [Race] and Sprite= in the races.ini