Mirage Source

Sub ClearSpell(ByVal Index As Long)
    Call ZeroMemory(ByVal VarPtr(Spell(Index)), LenB(Spell(Index)))
    Spell(Index).Name = vbNullString
    Spell(Index).LevelReq = 1 ' Needs to be 1 for spell editor
End Sub

Sub SaveSpells()
Dim i As Long
 
    Call SetStatus("Saving Spells... ")
        For i = 1 To MAX_SPELLS
            If Not FileExist(GENERAL_PATH & "spells.dat") Then
                Call SaveSpell(i)
            End If
        Next i
End Sub

Sub SaveSpell(ByVal SpellNum As Long)
Dim FileName As String
Dim f As Integer
Dim StartByte As Long

    FileName = App.Path & GENERAL_PATH & "spells.dat"
    f = FreeFile
 
    StartByte = LenB(Spell(SpellNum)) * (SpellNum - 1) + 1
 
    Open FileName For Binary As #f
        Put #f, StartByte, Spell(SpellNum)
    Close #f
End Sub

Sub LoadSpells()
Dim FileName As String
Dim StartByte As Long
Dim i As Long
Dim f As Long

  Call CheckSpells
 
    For i = 1 To MAX_SPELLS
       
        FileName = App.Path & GENERAL_PATH & "spells.dat"
        f = FreeFile
 
        StartByte = LenB(Spell(i)) * (i - 1) + 1
 
        Open FileName For Binary As #f
            Get #f, StartByte, Spell(i)
        Close #f

    Next i
End Sub