##tickloc:runsub ticked;

##ticked:
find $loc, phazon suit;
if $found_id > 0 then donothing else hurtit;

##donothing:
print "[$found_id] protects against [$actor]";

##hurtit:
find $loc,player;
$hh = $found_id's health;
$hm = $found_id's healthmax;
if $hh < 1 then deadthem else doit;

##deadthem:
print "[$found_id] slumps to the floor, dead";
set $hh = 0;
set $found_id's health = $hh;

##doit:
take 1 from $hh;
set $found_id's health = $hh;
print "[$found_id] is burned from radiation produced by [$actor]";