Sorry your browser is not supported!

type Inventory
	Itemname as String
Itemimage as integer 	
endtype

global dim Inv() as Inventory

...

if pick object (mousex(),mousey(),306,306)>0 and mouseclick()=1 and pck#<20
	Objecttimer=50
        load object "Interactives\HexKey.x",600
        scale object 600,25,25,25
            load bitmap "Icons\HexKey.bmp",1000
            get image 1000,0,0,48,48 : delete bitmap 1000
            InvName$ = "Hex-Key"
            Itemimage = 1000
        CreateInventory(InvName$,Itemimage)
        InvUpdate()
endif	
endif

...

Function InvUpdate()
	for IT=0 to array count (INV())
	if Inv(IT).Itemimage>0 then paste image Inv(IT).Itemimage,screen width()-64,y,1
	inc y,45
	next IT
endfunction

function savegame()
    If file exist("savegame.dat")=1 then delete file "savegame.dat"
    open to write 1,"savegame.dat"
        write float 1,x#
        write float 1,z#
        write float 1,y#
        Write float 1,ResX
        Write float 1,ResY
    close file 1
    NoKeys()
    if file exist("savegame.dat")=1
        ink rgb(0,225,0),0
        repeat
            center text 320,160, "Save succesfull! press any key to continue"
            sync
        until scancode() > 0
    else
        ink rgb(225,0,0),0
        repeat
            center text 320,160, "Save Un-Succesfull. press any key to continue"
            sync
        until scancode() > 0
    endif
ENDFUNCTION

save array to datafile Inv(),1

open datafile to write 1,"savegame.dat"
        save array to datafile Inv(),1

type Inventory
 Itemname as String
 Itemimage as integer 	
endtype

dim Inv() as Inventory

randomize timer()

` Make 5 Inventory Items
for t=1 to 5
 array insert at bottom Inv(0)
 Inv(array count(Inv())).Itemname="Test Item #"+str$(t)
 Inv(array count(Inv())).Itemimage=rnd(49)+1
next t

` Save the array
open datafile to write 1,"savegame.dat"
 save array to datafile Inv(),1
close datafile 1

` Erase all elements in the array
empty array Inv(0)

` Load the array
open datafile to read 1,"savegame.dat"
 load array from datafile Inv(),1
close datafile 1

` Show the array
for t=0 to array count(Inv())

 print "Item #"+str$(t)
 print " Name = "+Inv(t).Itemname
 print " Image # = "+str$(Inv(t).Itemimage)
 print ""
 
next t
wait key