Sorry your browser is not supported!

Player 100 50 10
Object1 40 20 100
Object2 0 0 0
Object3 0 -10 50
Object4 -100 5.5 60

Player 100 50 10
Object1 40 20 100
Object2 0 0 0
Object3 0 -10 50
Object4 -100 5.5 60

Player_Health 67
Player_Item_Sword 1

if keystate(31)=1
printsavegame=1
if file exist(name$+".dat")=1 then delete file name$+".dat"
open to write 1,name$+".dat"

   write long 1,coinscolleted
   write long 1,health
   write long 1,dragonposition
   write long 1,positionTaurus
   write long 1,coinscolleted
   write long 1,points
   write long 1,pear
   write long 1,orange
   write long 1,apple
   write long 1,red
   write long 1,dragonhealth
   write long 1,Taurus1health
   write long 1,oz#
   for jails=24 to 32
   write long 1,jail(jails).state
   next jails
   write long 1,kitchenend
   write long 1,playvideonow
   write long 1,kitchenstorage
   write long 1,kitchen
   write long 1,fanposition
   write long 1,cTVal
   write long 1,changefruittexture

for x=2 to 2
if object exist (x)
x#=object position x(x)
y#=object position y(x)
z#=object position z(x)
ax#=object angle x(x)
ay#=object angle y(x)
az#=object angle z(x)
write float 1,x#
write float 1,y#
write float 1,z#
write float 1,ax#
write float 1,ay#
write float 1,az#
endif
next x

cx#=camera position x(0)
cy#=camera position y(0)
cz#=camera position z(0)
cax#=camera angle x(0)
cay#=camera angle y(0)
caz#=camera angle z(0)
write float 1,cx#
write float 1,cy#
write float 1,cz#
write float 1,cax#
write float 1,cay#
write float 1,caz#


wait 1000*7

 close file 1
endif

if load=1
    if file exist(name$+".dat")=1
    open to read 1,name$+".dat"


   read long 1,coinscolleted
   read long 1,health
   read long 1,dragonposition
   read long 1,positionTaurus
   read long 1,coinscolleted
   read long 1,points
   read long 1,pear
   read long 1,orange
   read long 1,apple
   read long 1,red
   read long 1,dragonhealth
   read long 1,Taurus1health
   read long 1,oz#
   for jails=24 to 32
   read long 1,jail(jails).state
   next jails
   read long 1,kitchenend
   read long 1,playvideonow
   read long 1,kitchenstorage
   read long 1,kitchen
   read long 1,fanposition
   read long 1,cTVal
   read long 1,changefruittexture

for x=2 to 2
if object exist (x)
read float 1,x#
read float 1,y#
read float 1,z#
read float 1,ax#
read float 1,ay#
read float 1,az#
position object x,x#,y#,z#
xrotate object x,ax#
yrotate object x,ay#
zrotate object x,az#
endif
next x

cx#=camera position x(0)
cy#=camera position y(0)
cz#=camera position z(0)
cax#=camera angle x(0)
cay#=camera angle y(0)
caz#=camera angle z(0)
read float 1,cx#
read float 1,cy#
read float 1,cz#
read float 1,cax#
read float 1,cay#
read float 1,caz#
position camera 0,cx#,cy#,cz#
xrotate camera 0,cax#
yrotate camera 0,cay#
zrotate camera 0,caz#


close file 1
endif

Rem Project: Dark Basic Pro Project
Rem Created: Monday, August 06, 2012

Rem ***** Main Source File *****
Rem Project: Dark Basic Pro Project
Rem Created: Saturday, February 18, 2012

Rem ***** Main Source File *****


//make a file to hold data=================================================
//we will use its file number to access its data inside dark data
DFS Create 1, "test.dat",0



//add some fields to the data.
//in my experience all must be strings or you will get a zero value
//if you have got a float or int working please share because i get errors.
DFS Add Field 1, "string 6 as number"
DFS Add Field 1, "string 6 as posx"
DFS Add Field 1, "string 6 as posy"
DFS Add Field 1, "string 6 as posz"
DFS Finish 1

remstart
    make some key lookup files.
    these lookup files must have file numbers unique to dark data
    eg we cannot use 1 for a lookup file as test.dat is 1
    
    kfs create fileno,filename$,data_length,unique,case_sensitive
remend
KFS Create 2, "CheckNumber.kfs", 4, 0, 0  `0 - unique
KFS Create 3, "Checkposx.kfs", 10, 1, 0   `1 - non unique
KFS Create 4, "Checkposz.kfs", 20, 1, 0


//for loop to insert random data=====================================
maximum = 100
for i = 1 to maximum
    
    number$ = str$(i)
    posx$ = str$(rnd(500))
    posy$ = str$(rnd(50))
    posz$ = str$(rnd(500))
    remstart
            as we are working with strings we should add zeros before numbers to list them in correct order
            I haven't done this here because I want to minimize jumping to functions
            so the logic flow is more clear.
            eg.
            if i < 10 then number$ = "00"+ str$(i)
            if i > 9 and i < 100 then number$ = "0"+ str$(i)
    remend
    
    // add a new record to the database file 1=================================
    record = DFS Add(1)
    // add data to the new record==============================================
    // dfs put filenumber, fieldname$,data$
      DFS Put 1, "number", number$
      DFS Put 1, "posx", posx$
      DFS Put 1, "posy", posy$
      DFS Put 1, "posz", posz$
      // save new record=======================================================
      DFS Save 1, record
      //save key file data for later reference=================================
      KFS Add 2, number$, record
      KFS Add 3, posx$, record
      KFS Add 4, posz$, record
next i

// close files=================================================================
DFS Close 1
KFS Close 2
KFS Close 3
KFS Close 4


`*** New program ***
`Open the database
DFS Open 1, "test.dat"

`Open the indexes
KFS Open 2, "CheckNumber.kfs"
KFS Open 3, "Checkposx.kfs"
KFS Open 4, "Checkposz.kfs"

`Show off
print "List by number": print "==============": print

//getlist() is the function below which retreives the data and prints it to screen in order
GetList(2)
print "List by xpos": print "============": print
GetList(3)
print "List by zpos": print "=============": print
GetList(4)
print "dfs list"

//list the values in the order they were entered
naturalist()
`Close the database
DFS Close 1

`Close the indexes
KFS Close 2
KFS Close 3
KFS Close 4
end

//function to lookup
function GetList(idx)
  KFS Reset idx   `Point to the start of the table.
  for x = 1 to KFS Count(idx)

    `record = the next result in the selected keyfile system
    record = KFS Next(idx)  
    
    `load the selected data entry
    DFS Load 1, record   
    
    `Get the information from each field
    `we will need to convert data back to their correct data types
    number = int(DFS Get(1, "number"))
    xpos = int(DFS Get(1, "posx"))
    ypos = int(DFS Get(1, "posy"))
    zpos = int(DFS Get(1, "posz"))
    
    `Display it
    print number; " "; xpos; " "; ypos; " "; zpos; " "
    wait 200
  next x
  print: print: print "Press any key to continue..."
  wait key
  cls
endfunction

//extra function to test straight DFS lookup it will print in the order the data was entered.
function naturalist()
      
    for x = 1 to 100
        DFS Load 1, x
    `Get the information from each field
    number = int(DFS Get(1, "number"))
    xpos = int(DFS Get(1, "posx"))
    ypos = int(DFS Get(1, "posy"))
    zpos = int(DFS Get(1, "posz"))
    
    `Display it
    print number; " "; xpos; " "; ypos; " "; zpos; " "
    wait 200
  next x
  print: print: print "Press any key to continue..."
  wait key
endfunction

for i = 1 to stone
IF OBJECT EXIST(i)=0

 make object cube 20000+stone, 25
 texture object 20000+stone, 1800
 position object 20000+ stone, -853, -40+26*stone, -4220
 set object collision off 20000+stone
ENDIF
 next I

for i = 1 to stone
IF OBJECT EXIST(20000+stone)=0

 make object cube 20000+stone, 25
 texture object 20000+stone, 1800
 position object 20000+ stone, -853, -40+26*stone, -4220
 set object collision off 20000+stone
ENDIF
 next I

for i = 1 to stone
  stoneID = 20000 + stone

  if object exist (stoneID)= 1 then delete object stoneID
  make object cube stoneID, 25
  texture object stoneID, 1800
  position object stoneID, -853, -40+26*stone, -4220
  set object collision off stoneID
next i

for i = 1 to stone
  stoneID = 20000 + stone

  if object exist (stoneID)= 1 then delete object stoneID
  make object cube stoneID, 25
  texture object stoneID, 1800
  position object stoneID, -853, -40+26*stone, -4220
  set object collision off stoneID
next i