Mirage Source

Sub SaveShop(ByVal ShopNum As Long)
Dim FileName As String
Dim f As Long

    FileName = App.Path & "\data\shops.bin"
       
    f = FreeFile
    Open FileName For Binary As #f
        Put #f, , Shop(ShopNum)
    Close #f
End Sub

Sub SaveShop()
Dim FileName As String
Dim f As Long

    FileName = App.Path & "\data\shops.bin"
       
    f = FreeFile
    Open FileName For Binary As #f
        Put #f, , Shop(index)
    Close #f
End Sub

Sub LoadShops()
On Error Resume Next

Dim FileName As String
Dim x As Long, y As Long

    Call CheckShops
   
    FileName = App.Path & "\data\shops.ini"
   
    For y = 1 To MAX_SHOPS
        Shop(y).name = GetVar(FileName, "SHOP" & y, "Name")
        Shop(y).JoinSay = GetVar(FileName, "SHOP" & y, "JoinSay")
        Shop(y).LeaveSay = GetVar(FileName, "SHOP" & y, "LeaveSay")
        Shop(y).FixesItems = GetVar(FileName, "SHOP" & y, "FixesItems")
       
        For x = 1 To MAX_TRADES
            Shop(y).TradeItem(x).GiveItem = GetVar(FileName, "SHOP" & y, "GiveItem" & x)
            Shop(y).TradeItem(x).GiveValue = GetVar(FileName, "SHOP" & y, "GiveValue" & x)
            Shop(y).TradeItem(x).GetItem = GetVar(FileName, "SHOP" & y, "GetItem" & x)
            Shop(y).TradeItem(x).GetValue = GetVar(FileName, "SHOP" & y, "GetValue" & x)
        Next x
   
        DoEvents
    Next y
End Sub

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

    Call CheckShops
   
    For i = 1 To MAX_SHOPS
        FileName = App.Path & "\shops\shop" & i & ".dat"
        f = FreeFile
        Open FileName For Binary As #f
            Get #f, , Shop(i)
        Close #f
       
        DoEvents
    Next i
End Sub

Open FileName For Binary As #f