Sorry your browser is not supported!

max = 548
current = 394

DO
  drawHealthBar(1,1,100,20,current, max)
  sync
LOOP


function drawHealthBar(X, Y, LOB, WOB, CHP, MHP)
   REM X = X coordinate to position health bar at
   REM Y = Y coordinate to position health bar at
   REM LOB = length of health bar
   REM WOB = width of health bar
   REM CHP = current health points
   REM MHP = maximum health points

   if CHP < 0 then CHP = 0
   if CHP > MHP then CHP = MHP

   percent = (CHP*LOB)/MHP

   ink rgb(0,0,0), 0
   box X, Y, X+LOB, Y
   ink rgb(255,0,0), 0
   box X, Y, X+precent, Y+WOB

endfunction

Draw to Front
...
   rem Minimum, Maximum, and Current HP
   MinHP# = 0
   MaxHP# = 200
   CurHP# = 200

   rem How many pixels long do we want the bar
   pixlength = 500
   pixheight = 10

   rem XY location of bar on the display
   x = 275
   y = 30
...
do

   rem Update input data
   UpdateKeyHold()


   rem Display screen data
   set text size 22
   text 0, 0, "FPS: "+str$(screen FPS())
   text 0, 30, "Enemies Killed: "+str$(enemys_killed)

   UpdateFollowCamera()
   UpdatePlayer()
   healthbar(x,y,MinHP#,MaxHP#,CurHP#,pixlength,pixheight)

   UpdateEnemyAI()
   UpdateElevator()

   RunCollisionPRO()

   CheckExit()

   sync

loop
...
function healthbar(x as integer, y as integer, MinHP# as float, MaxHP# as float, CurHP# as float, pixlength as integer, pixheight as integer )
   rem The Math

   rem some conditions so that you don't go negative on certain values
   if CurHP# < MinHP# then CurHP# = MinHP#
   if CurHP# > MaxHP# then CurHP# = MaxHP#
   if pixlength < 1 then pixlength = 1
   if pixheight < 1 then pixheight = 1


   rem Change our values from Integers to a percent so that we can see how much of the bar needs to be filled
   pBar# = CurHP# / MaxHP#

   rem Get the percentage of the bar to be filled
   thebar = int(pixlength * pBar#)

   rem Draw the bar
   box x,y, x + thebar, y + pixheight
   line x + pixlength, y, x + pixlength, y + pixheight
   line x,y, x, y + pixheight

endfunction CurHP#

sync on

type charHealth
   x
   y
   hp
   mp
endtype

dim char(10) as charHealth

for t=1 to 10
   char(t).x = rnd(540)
   char(t).y = rnd(460)
   char(t).hp = rnd(100)
   char(t).mp = 100
next t



DO
   for t=1 to 10
      drawHealthBar(char(t).x,char(t).y,100,10,char(t).hp, char(t).mp)
   next t


  sync
LOOP




function drawHealthBar(X, Y, LOB, WOB, CHP, MHP)
   REM X = X coordinate to position health bar at
   REM Y = Y coordinate to position health bar at
   REM LOB = length of health bar
   REM WOB = width of health bar
   REM CHP = current health points
   REM MHP = maximum health points

   if CHP < 0 then CHP = 0
   if CHP > MHP then CHP = MHP

   percent = (CHP*LOB)/MHP

   ink rgb(100,100,100), 0
   box X, Y, X+LOB, Y+WOB
   ink rgb(255,0,0), 0
   box X, Y, X+percent, Y+WOB

endfunction

dim thing(10)

thing(1) = 145
thing(2) = 4561
thing(3) = 456
thing(4) = 8970
etc.....

for t=1 to 10
  print thing(t)
next t

print thing(1)
print thing(2)
print thing(3)
print thing(4)
print thing(5)