Easy Health coding for your character(s)

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    hide mouse : backdrop on
sync on : sync rate 60

Health=100

do
box 30,27,31+Health,35,rgb(175,0,0),rgb(175,0,0),rgb(200,0,0),rgb(200,0,0)
Health$="Hp: "+str$(Health)+"%" : text 20,20,Health$

if returnkey()=1
 dec Health,1
else
 Health=Health
endif
 
if Health=0 then end 
sync
loop