Sorry your browser is not supported!

rem create hp box
ink rgb(255,255,255),0
text 110,2,"HP: "
ink rgb(255,3,20),0
line 149,0,149,20
line 149,20,251,20
line 251,0,251,20
line 251,0,149,0

rem Exp box
box 150,1,150,19
ink rgb(255,255,255),0
text 110,22,"EXP: "
ink rgb(124,255,0),0
line 149,20,149,40
line 149,40,251,40
line 251,20,251,40
line 251,20,149,20
ink rgb(0,255,0),0
box 150,21,150,39
ink rgb(255,255,255),0
text 110,42,"Level: "+str$(playerlevel)

`Draw the players stats in terms of colours in the top left of the screen.
Function DrawStats()

   set cursor 1,1
   Print Player.Name," The Lv.",Player.Level," Cube"

   ink rgb(255,0,0),0
   set cursor 1,17
   Print "Rage:"
   box 5,33,Player.Rage+5,43

   ink rgb(0,255,0),0
   set cursor 1,43
   Print "Grace:"
   box 5,58,Player.Grace+5,68

   ink rgb(0,0,255),0
   set cursor 1,68
   Print "Brains:"
   box 5,83,Player.Brains+5,93

   ink rgb(255,255,255),0
   set cursor 1,94
   Print "HP:"
   ink rgb(INT(Player.Rage),INT(Player.Grace),INT(Player.Brains)),0
   box 3,108,Player.MaxHP+7,120
   ink rgb(255,255,255),0
   box 5,109,Player.HP+5,119

   if keystate(18)=1
      set cursor 1,124
      Print "XP: ",Player.XP
      set cursor 1,138
      Print "Money: ",Player.Money
   endif
EndFunction

FarRight1=screen width() 
TotalBar1 = FarRight1 - 50 `(how far from the right of the screen the bar is when full)
IncreaseBar1 = TotalBar1/80 `(how much bigger to make the bar after each single item has been loaded)
CurrentPoint1=50 `(the Current right value of the bar (increased each time an item is loaded, but starts off at 50
SoundNumber=1 `(ignore this)

for load=1 to 80
   cls
   ink 1,1
   box 0,0,screen width(),screen height()
   ink rgb(0,127,255),1
   box 50,screen height()-100,CurrentPoint1,screen height()-50
   if dataload$(load,4)="object"
      load object dataload$(load,2),dataload#(objectload)
      scale object dataload#(load),500,500,500
      position object dataload#(load),-5000,-5000,-5000
      hide object dataload#(load)
   endif
   if dataload$(load,4)="Audio"
      if dataload$(load,3)="3D Sound" then load 3dsound dataload$(load,2),val(dataload$(load,4))
      if dataload$(load,3)="Music" then load sound dataload$(load,2),val(dataload$(load,4))
   endif
   if dataload$(load,4)="Texture"
      load image dataload$(texturesload,2),val(dataload$(texturesload,3))
   endif
   if dataload$(load,4)="Skybox"
      load object dataload$(objectload,2),val(dataload$(objectload,3))
      scale object val(dataload$(objectload,3)),300000,300000,300000
      hide object val(dataload$(objectload,3))
   endif
   color backdrop 1
   ink 1,1 `everything black
   box 0,0,screen width(),screen height() `create a black box the size of the screen, to cover loading and positioning of objects
   inc CurrentPoint1,IncreaseBar1 `(increase where the end of the box is by the /80 sum worked out earlier)
   ink rgb(0,127,255),1
   box 50,screen height()-100,CurrentPoint1,screen height()-50
   ink rgb(255,255,255),1
   print "Loading game... Please Wait"
   sync
next load