Sorry your browser is not supported!

SET DISPLAY MODE 1024, 768, 32
SYNC ON
SYNC RATE 60

GLOBAL camerax AS INTEGER = 0
GLOBAL cameray AS INTEGER = 50
GLOBAL cameraz AS INTEGER = -50

`Camera
MAKE CAMERA 1
POSITION CAMERA 1, camerax, cameray, cameraz
POINT CAMERA 1, 0, 0, 0

GLOBAL max_hp AS FLOAT = 10.0
GLOBAL current_hp AS FLOAT = 10.0

`Player
GLOBAL toggle AS INTEGER = 0

GLOBAL hit AS INTEGER = 0
GLOBAL hit_delay AS INTEGER = 0
GLOBAL recover AS INTEGER = 0
GLOBAL recover_delay AS INTEGER = 0

MAKE OBJECT SPHERE 9999, 5
POSITION OBJECT 9999, 0, 0, 0

`Health Bar
FOR n = 1 to 11
   MAKE OBJECT CUBE n, 1
   POSITION OBJECT n, camerax - 40 + n, cameray - 15, cameraz + 50
   IF n = 11
      HIDE OBJECT n
   ENDIF
NEXT n

`Main Do Loop
DO

FOR n = 1 to 10
   POSITION OBJECT n, camerax - 35 + n, cameray - 15, cameraz + 50
NEXT n

POSITION CAMERA 1, camerax, cameray, cameraz

health_bar()
controls()
damage()

TEXT 0, 50, "HP: " +str$(current_hp)
TEXT 0, 65, "HIT: " +str$(hit)
TEXT 0, 80, "HIT DELAY: " +str$(hit_delay)
TEXT 0, 95, "RECOVER: " +str$(recover)
TEXT 0, 110, "RECOVER DELAY: " +str$(recover_delay)

SYNC
LOOP

FUNCTION health_bar()

`The health bar
IF hit = 1
   FOR n = 0 to 11
      IF current_hp = n
         HIDE OBJECT n + 1
      ENDIF
   NEXT n
ENDIF

IF recover = 1 AND recover_delay = 0 AND current_hp < 10
   FOR n = 1 to 11
      IF current_hp = n
         SHOW OBJECT n + 1
         INC current_hp, 1
         GOTO skip
      ENDIF
   NEXT n
   skip:
   recover_delay = 60
ENDIF

`Colouring health bar
FOR n = 1 to 10
   IF current_hp = n
      FOR b = 1 to 10
         COLOR OBJECT b, RGB(250 / n, n * 25, 0)
      NEXT b
   ENDIF
NEXT n

IF recover_delay > 0
   DEC recover_delay, 1
ENDIF

ENDFUNCTION

FUNCTION controls()

IF UPKEY() = 1
   INC cameray, 1
ENDIF

IF DOWNKEY() = 1
   DEC cameray, 1
ENDIF

ENDFUNCTION

FUNCTION damage()

IF LEFTKEY() = 1 AND toggle = 0 AND current_hp > 0 AND recover = 0
   toggle = 1
   hit = 1
   hit_delay = 60
   recover = 0
   DEC current_hp, 1.0
ENDIF

IF LEFTKEY() = 0 AND RIGHTKEY() = 0
   toggle = 0
ENDIF

IF hit = 1 AND hit_delay > 0
   DEC hit_delay, 1
ENDIF

IF hit = 1 AND hit_delay = 0
   hit = 0
   recover = 1
ENDIF

ENDFUNCTION

SubroutineName:
  Rem Same code as in function here
Return

Rem Project: healthbar
Rem Created: Sunday, April 18, 2010

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

set display mode 800,600,32,1
autocam off
load image "HB-Back.png",1
load image "HB-Energy.png",2
make object plain 1,256,32
texture object 1,1
position object 1,-185,-220,400
lock object on 1
set object light 1,0
make object plain 2,236,14
texture object 2,2
position object 2,-185,-220,399
lock object on 2
set object light 2,0

create bitmap 1,256,64,32
set current bitmap 1
paste image 2,0,0
set current bitmap 0 

size=240

sync on

do
	gosub health
	sync
loop

health:
if spacekey()=1 and flag=0
	flag=1
	hit=rnd(10)+1
	set current bitmap 1
	if size-hit=<0
		dead=1
		end
	endif
	get image 3,0,0,size-hit,18
	dec size,hit
	inc hittot,hit
		cls 0
		paste image 3,0,0
		get image 3,0,0,size+hittot,18
		set current bitmap 0
		texture object 2,3
endif
if spacekey()=0
	flag=0
endif
return

Rem Health Bar Example By TDK_Man
Rem 18 April 2010

Sync On: Sync rate 60
Set Text Opaque
Rem Initial Values For Function...
Max = 100: Rem Max Value (When Bar Full)
Current = 47: Rem Current Value To Display
X = 300: Rem Screen X Position To Place Health Bar
Y = 100: Rem Screen Y Position To Place Health Bar

HealthBar(X,Y,Max,Current): Rem Call once to place on screen

Rem Main Program Loop
Do
  If UpKey() And Current<Max
    Inc Current
    HealthBar(X,Y,Max,Current)
    Sleep 50: Rem Small Pause For Cursor Up Key
  Endif
  If DownKey() And Current>0
    Dec Current
    HealthBar(X,Y,Max,Current)
    Sleep 50: Rem Small Pause For Cursor Down Key
  Endif
  Sync
Loop
End

Function HealthBar(X,Y,Max,Current)
  If Bitmap Exist(1) = 0
    Create Bitmap 1,320,200
    Load Image "Health1.bmp",1000,1: Rem <<< Also try Health2.bmp and Health3.bmp or load your own image
    Paste Image 1000,0,0
  Else
    Set Current Bitmap 1
  Endif
  ImgHeight = Image Height(1000): ImgWidth = Image Width(1000)
  Ratio# = ImgHeight / (Max + 0.0): Rem Number of pixels for 1 unit
  BarHeight = Current * Ratio#
  VOffset = (Max-Current) * Ratio#
  If VOffset > ImgHeight-1 Then VOffset = ImgHeight-1
  Get Image 1001,0,VOffset,ImgWidth,ImgHeight,1
  Set Current Bitmap 0
  Ink RGB(255,255,255),0: Box X,Y,X+ImgWidth+2,Y+ImgHeight+2
  Ink 0,0: Box X+1,Y+1,X+ImgWidth+1,Y+ImgHeight+1
  If Current > 0 Then Paste Image 1001,X+1,Y+VOffset+1
  Ink RGB(255,255,255),0: Center Text X+(ImgWidth/2)+1,Y+ImgHeight+2," "+Str$(Current)+" "
EndFunction

REM Health Bar
function HealthBar(x, y, width, height, P#)
    P# = P#/100
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
endfunction