{$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