{$CLEO .cs}
//-------------MAIN---------------
0662: printstring "Health++" 
0000: NOP 
31@ = 0 
29@ = Actor.Health($PLAYER_ACTOR)
:NONAME_35
wait 0 
if 
key_down 107
jf @NONAME_142 
if 
  31@ == 0 
jf @NONAME_110 
printf "HEALTH++ ~G~ON" 3000 
31@ = 1 
wait 50 
goto @NONAME_142 
:NONAME_110
printf "HEALTH++ ~G~OFF" 3000 
31@ = 0 
wait 500 
:NONAME_142
goto @NONAME_149 
:NONAME_149
wait 0 
if 
  31@ == 1 
jf @NONAME_35 
wait 75 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 150 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
wait 50 
if 
   not key_down 107 
jf @NONAME_35 
0@ = Actor.Health($PLAYER_ACTOR)
0@ += 5 
wait 110 
0@ += 5
Actor.Health($PLAYER_ACTOR) = 0@
goto @NONAME_149