Mirage Source

Sub SaveItems()
Dim i As Long
   
    For i = 1 To MAX_ITEMS
        Call SaveItem(i)
    Next i
End Sub

Sub SaveItem(ByVal ItemNum As Long)
Dim FileName As String
Dim nFileNum As Integer

    FileName = App.Path & "\data\items.dat"
   
    nFileNum = FreeFile
    Open FileName For Binary As #nFileNum

    Put #nFileNum, , Item(ItemNum).Name
    Put #nFileNum, , Item(ItemNum).Pic
    Put #nFileNum, , Item(ItemNum).Type
    Put #nFileNum, , Item(ItemNum).Data1
    Put #nFileNum, , Item(ItemNum).Data2
    Put #nFileNum, , Item(ItemNum).Data3
   
    Close #nFileNum

End Sub

Sub LoadItems()
Dim FileName As String
Dim i As Long
Dim nFileNum As Integer

    Call CheckItems
   
    FileName = App.Path & "\data\items.dat"
    nFileNum = FreeFile
    Open FileName For Binary As #nFileNum
   
    For i = 1 To MAX_ITEMS
        Get #nFileNum, , Item(i).Name
        Get #nFileNum, , Item(i).Pic
        Get #nFileNum, , Item(i).Type
        Get #nFileNum, , Item(i).Data1
        Get #nFileNum, , Item(i).Data2
        Get #nFileNum, , Item(i).Data3
        DoEvents
    Next i
   
    Close #nFileNum
End Sub

Sub CheckItems()
    If Not FileExist("data\items.dat") Then
        Call SaveItems
    End If
End Sub

Sub SaveItems()
Dim i As Integer

For i = 1 To MAX_ITEMS
    If Not FileExist("data\items\item" & i & ".doi", True) Then
        Call SetStatus("Saving items... " & i & "/" & MAX_ITEMS)
        DoEvents
        Call SaveItem(i)
    End If
Next i

End Sub


Sub SaveItem(ByVal ItemNum As Integer)
Dim FileName As String
Dim f As Long
FileName = App.Path & "\data\Items\Item" & ItemNum & ".doi"

f = FreeFile
Open FileName For Binary As #f
Put #f, , Item(ItemNum)
Close #f
End Sub

Sub LoadItems()
Dim FileName As String
Dim i As Long, f As Long

    Call CheckItems

For i = 1 To MAX_ITEMS
    Call SetStatus("Loading items... " & i & "/" & MAX_ITEMS)
    FileName = App.Path & "\data\items\item" & i & ".doi"
    f = FreeFile
    Open FileName For Binary As #f
    Get #f, , Item(i)
Close #f

DoEvents
Next i

End Sub

Sub CheckItems()
    Call SaveItems
End Sub

Sub SaveItem(ByVal ItemNum As Long)
Dim FileName As String
Dim nFileNum As Integer

    FileName = App.Path & "\data\items.dat"
   
    nFileNum = FreeFile
    Open FileName For Binary As #nFileNum

    Put #nFileNum, LenB(Item(ItemNum)), Item(ItemNum).Name
    Put #nFileNum, , Item(ItemNum).Pic
    Put #nFileNum, , Item(ItemNum).Type
    Put #nFileNum, , Item(ItemNum).Data1
    Put #nFileNum, , Item(ItemNum).Data2
    Put #nFileNum, , Item(ItemNum).Data3
   
    Close #nFileNum

End Sub

Sub SaveItem(ByVal ItemNum As Long)
Dim FileName As String
Dim nFileNum As Integer

    FileName = App.Path & "\data\items.dat"
   
    nFileNum = FreeFile
    Open FileName For Binary As #nFileNum

    Put #nFileNum, LenB(Item(ItemNum))*ItemNum, Item(ItemNum).Name
    Put #nFileNum, , Item(ItemNum).Pic
    Put #nFileNum, , Item(ItemNum).Type
    Put #nFileNum, , Item(ItemNum).Data1
    Put #nFileNum, , Item(ItemNum).Data2
    Put #nFileNum, , Item(ItemNum).Data3
   
    Close #nFileNum

End Sub