Sorry your browser is not supported!

set dir "C:\Space\"

// playerinfo
type PlayerInfo
	  Name as string
	  UniverseLocation as string
	  SystemLocation as string
	  Money as double integer
endtype

// item info
type ItemInfo
	  ItemNumber as integer
	  ItemType as string
	  ItemVolume as float
endtype

InitializeVariables()
SaveFile()


end



function InitializeVariables()
	// local variables will be used at later time
	local T_Module_No
	local T_Ship_No
	local S_Sun_no
	local S_Planet_No
	local S_Moon_No
	local S_Station_No
	local S_AsteroidField_No
	dim Player(5) as PlayerInfo   `<<<<<<<<<<< crashes DBP when SAVE ARRAY TO DATAFILE is not commented out but runs ok when it is
	dim Item(5) as ItemInfo

endfunction

// this function will be called when player enters a new system

	

function SaveFile()

if file exist("PlayerSaves\Player.sav") = 0
	OPEN DATAFILE TO write 1,"PlayerSaves\Player.sav"	
		SAVE ARRAY TO DATAFILE Player(1),1		`<<<<<<<<<<<<<<<< believed to be the cause of crash	when not commented out		
		
		close file 1
	endif


endfunction

`set dir "C:\Space\"

// playerinfo
type PlayerInfo
	  Name as string
	  UniverseLocation as string
	  SystemLocation as string
	  Money as double integer
endtype

// item info
type ItemInfo
	  ItemNumber as integer
	  ItemType as string
	  ItemVolume as float
endtype

InitializeVariables()
SaveFile()


end



function InitializeVariables()
	// local variables will be used at later time
	local T_Module_No
	local T_Ship_No
	local S_Sun_no
	local S_Planet_No
	local S_Moon_No
	local S_Station_No
	local S_AsteroidField_No
	dim Player(5) as PlayerInfo   `<<<<<<<<<<< crashes DBP when SAVE ARRAY TO DATAFILE is not commented out but runs ok when it is
	dim Item(5) as ItemInfo

endfunction

// this function will be called when player enters a new system

	

function SaveFile()

if file exist("PlayerSaves\Player.sav") = 0
	OPEN DATAFILE TO write 1,"PlayerSaves\Player.sav"	
		SAVE ARRAY TO DATAFILE Player(1),1		`<<<<<<<<<<<<<<<< believed to be the cause of crash	when not commented out		
		
		close file 1
	endif


endfunction

function SaveFile()
    if file exist("PlayerSaves\Player.sav") = 0
        if OPEN DATAFILE TO WRITE( 1,"PlayerSaves\Player.sav"        ) = 1
            SAVE ARRAY TO DATAFILE Player(1),1              `<<<<<<<<<<<<<<<< believed to be the cause of crash     when not commented out
            close file 1
        else
            ` do some error recovery here
        endif
    endif
endfunction

// playerinfo
type PlayerInfo
    P_Name as string
    Uni_LocatiOn$ as string
    Sys_Location$ as string
    Sta_Location$ as string
    P_Money as double integer
endtype

global dim Player(1) as PlayerInfo

make directory "PlayerSaves" `<<<<<< to make sure directory exist
    if OPEN DATAFILE TO WRITE( 1,"PlayerSaves\Player.sav") = 1
           `if datafile exist(1) then exit prompt "datafile exist","DATAFILE"
           save array to datafile Player(1),1              `<<<<<<<<<<<<<<<< now only crashes here but data is written
           close datafile 1
        else
            ` do some error recovery here
        endif

global dim Player(1) as PlayerInfo

save array to datafile Player(1),1

save array to datafile Player(0),1

` Create the UDT  (Name = 50 characters  Birthday = 8 characters)
type UserData
 Name as string * 50
 Birthday as sting * 8
endtype

` Make the variable
DIM SHARED User as UserData

` Open the file
open "User.dat" for binary as 1

` Make 100 records
for t=1 to 100

 ` Define the user name and birthday
 User.Name="Test #"+str$(t)
 User.Birthday="00/00/00"

 ` Add the data to the file  (PUT filenumber,recordnumber,variable)
 put #1,t,User

 ` Get the data from the file  (GET filenumber,recordnumber,variable)
 `get #1,t,User

next t

` Close the file
close 1

type Record_t
    Caption as string       ` Limit to 30 chars (+1 for size)
    Colour as dword         ` 4 bytes
    Size as integer         ` 4 bytes
endtype

global Record as Record_t

Filename as string = "RecordEditor.dat"

if open datafile to update( 1, Filename ) = 0
    if open datafile to write( 1, Filename ) = 0
        report error "Unable to open datafile " + Filename
    endif
endif

datafile string type 1, 4

Record.Caption = "This is a test string"
Record.Colour = rgb(255, 255, 255)
Record.Size = 30
WriteRecord(0)

Record.Caption = "Followed by another"
Record.Colour = rgb(255, 0, 0)
Record.Size = 15
WriteRecord(1)

` Not writing record 2, so it doesn't exist and will leave a blank in the file

Record.Caption = "And yet another, but limited to 30 characters"
Record.Colour = rgb(0, 255, 255)
Record.Size = 20
WriteRecord(3)

Record.Caption = "Oops, that last one was ..."
Record.Colour = rgb(0, 255, 0)
Record.Size = 15
WriteRecord(7)

Record.Caption = "...truncated"
WriteRecord(8)

Top = LastRecord()

for i = 0 to Top
    if ReadRecord(i)
        set text size Record.Size
        ink Record.Colour, 0
        print Record.Caption
    else
        set text size 10
        ink rgb(255, 255, 255), 0
        print "<empty record>"
    endif
next

close datafile 1

wait key
end

function WriteRecord(Id as integer)
    set datafile position 1, Id * 38                            ` The 38 comes from ...
    write datafile boolean 1, 1                                 ` 1 byte, if set then the record is availabe, otherwise, not.
    write datafile string 1, left$(Record.Caption, 30)          ` 31 bytes (30 chars, plus 1 byte for size)
    write datafile dword 1, Record.Colour                       ` 4 bytes
    write datafile dword 1, Record.Size                         ` 4 bytes
endfunction

function ReadRecord(Id as integer)
    set datafile position 1, Id * 38

    ` If the record is marked as deleted, return a fail
    if datafile boolean(1) = 0 then exitfunction 0

    Record.Caption = datafile string$(1)
    Record.Colour = datafile dword(1)
    Record.Size = datafile dword(1)
endfunction 1

function DeleteRecord(Id as integer)
    set datafile position 1, Id * 38
    write datafile boolean 1, 0
endfunction

function LastRecord()
    local Count as integer
    Count = datafile size(1) / 38
endfunction Count