Sorry your browser is not supported!

dim array(100)
dim array2(100)

` Fill the array with random crap, for example purpose
for a=1 to 100
array(a)=rnd(2000)
next a
for a=1 to 100
array2(a)=rnd(2000)
next a

` display data BEFORE saving, so we'll know if it works (after loading)
print "Final value of array1 (before saving): ";array(100)
print "Final value of array2 (before saving): ";array2(100)






open to write 1,"Botharrays.file"  `Open to write (the full file with both arrays

global array1length `globalise the array length (see below)
global array2length `globalise the array length (see below)
global arrayquantity
`ARRAY QUANTITY: We'll use this to tell the code how many arrays it needs to load.
` the problem with this, is that you need to MANUALLY specify the array names;
` but I wont go into that.


write word 1,arrayquantity `write the amount of arrays. THIS MUST BE THE FIRST THING THE LOAD FUNCTION FINDS!
savearrays()
close file 1
open to read 1,"botharrays.file"
load_all()








function savearrays()
`We need to write all of the separate values to the file
` e.g. - write the first value of array1  [array(1)]
`
` To do this, we could just write it as 'words' , however these take up file space,
` so: Any value equal to or less than 255, we'll write as bytes (255 is max. size for a byte)
` any value >255, we'll write as a word.

` BUT!! The program needs to know which vals are bytes and words etc.
` So, We'll insert a byte BEFORE the value, which indicates of what the value is
`(0=word, 1=byte). This makes it easiser for the loading function.



array1length=100 ` Enter the array size here (e.g. for this its 100 - hence dim array(100)
write word 1,array1length ` Write the array length (for array 1)
`
print "Saving...."
wait 1000

for b=1 to array1length

write word 1,array(b)

next a


array2length=100 ` Enter the array size here (e.g. for this its 100 - hence dim array(100)
write word 1,array2length ` Write the array length (for array 2)
print "Saving...."
wait 1000
for b=1 to array2length
write word 1,array2(b)

next a

endfunction









function load_all()
` loads all arrays present ina file (using singleload to load each separate one)
`THIS CODE ASSUMES:
`@ -> THE ARRAY [e.g. array(100)] ALREADY EXISTS [however it is  blank]
`@ -> THE FILE IS ALREADY OPEN (TO READ FROM)
`@ -> THE FILE IS NUMBER 1 (open to read 1,etc.)

read word 1,aq `arrayquantity - read   *****IGNORE THIS LINE - OBSELETE

loadarray_1()
loadarray_2()
finish()
endfunction













function loadarray_1()
` This loads ONLY ARRAY 1 [array()] Just change the array it refers to, in order to
` load another array (because it only loads array 1, each array load is in a separate function)

` Just the inverse of the saving
`THIS CODE ASSUMES:
`@ -> THE ARRAY [e.g. array(100)] ALREADY EXISTS [however it is  blank]
`@ -> THE FILE IS ALREADY OPEN (TO READ FROM)
`@ -> THE FILE IS NUMBER 1 (open to read 1,etc.)
read word 1,length `read array length

for b=1 to length



read word 1,array(b)



next a
print "Loading...."
wait 1000
print "One load complete"

print "Final word: ";array(length)
print "Last value of array: (after saving) ";array(length)
wait 500
print "Press any key to continue"
wait key
endfunction
















function loadarray_2()
` This loads ONLY ARRAY 1 [array()] Just change the array it refers to, in order to
` load another array (because it only loads array 1, each array load is in a separate function)

` Just the inverse of the saving
`THIS CODE ASSUMES:
`@ -> THE ARRAY [e.g. array(100)] ALREADY EXISTS [however it is  blank]
`@ -> THE FILE IS ALREADY OPEN (TO READ FROM)
`@ -> THE FILE IS NUMBER 1 (open to read 1,etc.)
read word 1,length `read array length

for b=1 to length



read word 1,array(b)




next a
print "Loading...."
wait 1000

print "One load complete"

print "Final word: ";array2(length)
print "Last value of array: (after saving) ";array2(length)
wait 500
print "Press any key to continue"
wait key
endfunction











function finish()
print "Two arrays successfully written to one file!!"
sync
wait 500
print
print "Press any key to exit"
wait key
if file open(1)=1
close file 1
endif
end
endfunction

Type StarShip
  x as float
  y as float
  z as float
  hitpoints as Integer
  Armor as Integer
  Phasers as Integer
  Torpedos as Integer
End Type

Dim StarShips(30) as StarShip
For i = 1 to 30
  Starships(i).Armor=100
Next i

input "Sorry guys but at the moment you need to type in the object name which should be in the levels directory already",file$
load object "levels\"+file$,1


type aier
 number as integer
 px1 as integer
 py1 as integer
 pz1 as integer
 px2 as integer
 py2 as integer
 pz2 as integer
 px3 as integer
 py3 as integer
 pz3 as integer
 px4 as integer
 py4 as integer
 pz4 as integer
endtype

type block
 number as integer
 x as integer
 y as integer
 z as integer
 type as integer
endtype

type basic
 x as integer
 y as integer
 z as integer
endtype


Dim AIing(0) as aier
Dim blocker(0) as block
Dim startpos(0) as basic
Dim endpos(0) as basic
Dim Health(0) as basic
Dim paths$(0)
path$(0)=file$


do
 ` stuff there to enter values
 ` do not done yet as you can see
 if spacekey()=1 then save()
sync
loop

function save()
cls
input "Please enter name of level",file$

 if file open(1)=1 then close file 1
  open to write "levels\"file$+".lev",1
   AIinglen=Array count(AIing(0))
   write word 1,AIinglen
   for x = 0 to Array count(AIing(0))
    write word 1,AIing(x).number
    write word 1,AIing(x).px1
    write word 1,AIing(x).py1
    write word 1,AIing(x).pz1
    write word 1,AIing(x).px2
    write word 1,AIing(x).py2
    write word 1,AIing(x).pz2
    write word 1,AIing(x).px3
    write word 1,AIing(x).py3
    write word 1,AIing(x).pz3
    write word 1,AIing(x).px4
    write word 1,AIing(x).py4
    write word 1,AIing(x).pz4
   next x
   Blockerlen=Array count(Blocker(0))
   write word 1,Blockerlen
   for x = 0 to Array count(blocker(0))
    write word 1,blocker(x).number
    write word 1,blocker(x).x
    write word 1,blocker(x).y
    write word 1,blocker(x).z
    write word 1,blocker(x).type
   next x
   write word 1,startpos(x).x
   write word 1,startpos(x).y
   write word 1,startpos(x).z
   write word 1,endpos(x).x
   write word 1,endpos(x).y
   write word 1,endpos(x).z
   Healthlen=Array count(Health(0))
   write word 1,Healthlen
   for x = 0 to Array count(Health(0))
    write word 1,Health(x).x
    write word 1,Health(x).y
    write word 1,Health(x).z
   next x
   write string 1,paths$(0)
  close file 1
endfunction

function load()
cls
input "Please enter name of level",file$
 if file open(1)=1 then close file 1
 if file exist("levels\"file$+".lev")=1
  open to read "levels\"file$+".lev",1
   read word 1,AIinglen
   dim AIing(AIinglen) as AIer
   for x = 0 to Array count(AIing(0))
    read word 1,AIing(x).number
    read word 1,AIing(x).px1
    read word 1,AIing(x).py1
    read word 1,AIing(x).pz1
    read word 1,AIing(x).px2
    read word 1,AIing(x).py2
    read word 1,AIing(x).pz2
    read word 1,AIing(x).px3
    read word 1,AIing(x).py3
    read word 1,AIing(x).pz3
    read word 1,AIing(x).px4
    read word 1,AIing(x).py4
    read word 1,AIing(x).pz4
   next x
   read word 1,Blockerlen
   dim Blocker(Blockerlen) as Block
   for x = 0 to Array count(blocker(0))
    read word 1,blocker(x).number
    read word 1,blocker(x).x
    read word 1,blocker(x).y
    read word 1,blocker(x).z
    read word 1,blocker(x).type
   next x
   Dim startpos(0) as basic
   Dim endpos(0) as basic
   read word 1,startpos(0).x
   read word 1,startpos(0).y
   read word 1,startpos(0).z
   read word 1,endpos(0).x
   read word 1,endpos(0).y
   read word 1,endpos(0).z
   read word 1,Healthlen
   dim Health(Healthlen) as Basic
   for x = 0 to Array count(Health(0))
    write word 1,Health(x).x
    write word 1,Health(x).y
    write word 1,Health(x).z
   next x
   dim path$(0)
   read string 1,paths$(0)
  close file 1
endfunction