Sorry your browser is not supported!

sync on : `Turn updating on
sync rate 60 : `Set update rate
playerhealth=100 : `Starting health

do
CLS : `Clear the screen
ink rgb(200,0,0),0 : box 5,5,playerhealth,10 : `Display the health bar, always updated
if mouseclick()=1 then playerhealth=playerhealth-1 : `This is just a test to show you how to make the health go down
if playerhealth=0 then end  : `Just showing you how to make the player die at the end after his health = 0, youd do something else but this is just an example
sync : `Update the screen
loop

set sprite frame sprideid,frame+1

set sprite frame sprideid,frame-1

set sprite frame spriteid,1

`example
load image "hp_sprite.bmp",1
create animated sprite 1,"hp_sprite.bmp",10,1,1
sprite 1,x,y,1
load image "avatar_sprite.bmp",2
create animated sprite 2,"avatar_sprite.bmp",2,1,2
sprite 2,ax,ay,2
if m_health/health > .09 and m_health/health < .2
  set sprite frame 1, 2 `sence 1 is no health
endif
`...ect
if current_avvy=1
  set sprite frame ,2,1
endif
`...ect

flush video memory
sync on : sync rate 60
set display mode 1024,768,32
autocam off
backdrop on
randomize timer()

load image "health.jpg",1
create bitmap 2,352,50
paste image 1,0,0
set current bitmap 0
health=100
ink rgb(255,0,0),0
scr_wid=screen width()
RetKey=0
do
  center text scr_wid/2,10,"Press {RETURN} to lower health."
  if RetKey=0 and Health>0 and keystate(28)=1
    dec health,1
    text 0,0,str$(health)
    RetKey=1
  endif
  if keystate(28)=0 then RetKey=0
  Healthbar(health)
  if spacekey()=1 then exit
  sync
loop
delete bitmap 2
end

function Healthbar(health)
  copy bitmap 2,0,0,health*3.5,48,0,200,200,200+(health*3.5),248
endfunction