The array commands are in DBC too, not just DBPro. When I save data I usally save it too an empty file.
Here's an example:
Sync On : Sync Rate 30
Hide Mouse
Print "Creating Data Array"
Dim Data_Array(10)
Wait 300
Print "Array Created........Press Any Key..."
Print
Suspend For Key
Print "Assigning Values To Array"
For Data_Num= 1 To 10
Data_Array(Data_Num)=Data_Num
Next Data_Num
Wait 300
Print "Values Assigned......Press Any Key..."
Print
Suspend For Key
Print "Making An Empty File And Writing Array Values To It"
If File Exist("Game_Data.dat")=1 Then Delete File "Game_Data.dat"
Open To Write 1,"Game_Data.dat"
For Data_Num= 1 To 10
Write Byte 1,Data_Array(Data_Num)
Next Data_Num
Close File 1
Wait 300
Print "Values Written........Press Any Key..."
Print
Suspend For Key
Print "Deleting Data Array"
UnDim Data_Array
Wait 300
Print "Array Deleted.........Press Any Key..."
Print
Suspend For Key
Print "Creating New Data Array"
Dim NewData_Array(10)
Wait 300
Print "Array Created.........Press Any Key..."
Print
Suspend For Key
Print "Reading Values From Data File To New Array"
Open To Read 1,"Game_Data.dat"
For Data_Num= 1 To 10
Read Byte 1,NewData_Array(Data_Num)
Next Data_Num
Close File 1
Wait 300
Print "Values Assigned To New Array.........Press Any Key..."
Print
Suspend For Key
Print "Displaying Values From New Array"
Print
Print "Data:"
For Data_Num= 1 To 10
Print NewData_Array(Data_Num)
Next Data_Num
Wait 300
Print
Print "Data Displayed.....Press Any Key To End..."
Wait 300
Suspend For Key
End
That's a very extended version, but it works. If you need me to write something shorter or need help just ask.
