Как выйти из цикла?

: get_life
	player@ "CurrentHp" p@		 проверим уровень жизни
;
: check_life				
	get_life 1 < if 				 
	      false to TTT-life
	      exit	  не выходит из цикла!!!!!!!!!!!!!!!!!!
                    else
	      True to TTT-life
	then
;
0 time_for_award do
	" check_life " I 1000 * do-timer
	-1 +loop

 exit	  не выходит из цикла!!!!!!!!!!!!!!!!!!

: check_life                
    get_life 1 < if                  
          false to TTT-life
          exit 
    then
    true to TTT-life
    "check_life" 1000 do-timer
;

 выходим, если уровень меньше 1 
: check_life				
	player@ "CurrentHp" p@ 1 < if 				 
      	      false to TTT-priz
	      false to TTT-life
	      exit
	else
	      True to TTT-life
	then
	" check_life " 1000 do-timer
;

 ждемс чтобы получить приз 
: wfp
	0 time_for_award do
	 check_life
	-1 +loop
;

true value award-period
"false to award-period" 60000 do-timer
 ...
: award-check  ( -- )
    award-period not if exit then
    player@ "Dead" p? if exit then
    100000 57 items_add
;