##tickloc:runsub checkit;

##checkit:
runsub doit/10;

##doit:
foreach in $loc do hurtit player;

##hurtit:
print "$for_name is hurt from the radiation emanating from [$actor]!";
$fhlth = $for_name's health;
take 1 from $fhlth;
set $for_name's health to $fhlth;