OK got that part well now I'm working on trying to convert my items to binary to. The only problem is
Code:
Sub SaveItem(ByVal ItemNum As Long)
Dim FileName As String
FileName = App.Path & "\data\items.bin"
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
Call PutVar(FileName, "ITEM" & ItemNum, "Name", Trim(Item(ItemNum).Name))
Call PutVar(FileName, "ITEM" & ItemNum, "Pic", Trim(Item(ItemNum).Pic))
Call PutVar(FileName, "ITEM" & ItemNum, "Type", Trim(Item(ItemNum).Type))
Call PutVar(FileName, "ITEM" & ItemNum, "Data1", Trim(Item(ItemNum).Data1))
Call PutVar(FileName, "ITEM" & ItemNum, "Data2", Trim(Item(ItemNum).Data2))
Call PutVar(FileName, "ITEM" & ItemNum, "Data3", Trim(Item(ItemNum).Data3))
End Sub
And
Code:
Sub LoadItems()
Dim FileName As String
Dim i As Long
Call CheckItems
FileName = App.Path & "\data\items.bin"
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
'Item(i).Name = GetVar(FileName, "ITEM" & i, "Name")
'Item(i).Pic = Val(GetVar(FileName, "ITEM" & i, "Pic"))
'Item(i).Type = Val(GetVar(FileName, "ITEM" & i, "Type"))
'Item(i).Data1 = Val(GetVar(FileName, "ITEM" & i, "Data1"))
'Item(i).Data2 = Val(GetVar(FileName, "ITEM" & i, "Data2"))
'Item(i).Data3 = Val(GetVar(FileName, "ITEM" & i, "Data3"))
DoEvents
Next i
End Sub
use a different method. one uses
Code:
'Item(i).
And the other uses
Code:
"ITEM" & ItemNum
how would i do this just give me an example for the
Code:
"ITEM" & ItemNum
_________________
Fuck? I really joined in 2006.
Spirea, Chat Rooms, Discussions, Help. everything you need in one spot.
http://spirean.comI love my computer, you never ask for more, you can be my princess or be my whore