##txickloc:
runsub hurtit/3;

##hurtit:
foreach in $loc do checkit;
##checkit:
if $for_id's material like living then continue else nope;
##continue:
$hlth = $for_id's health;
take 2 from $hlth;
print "[$for_id] is hurt by [$actor]'s poisonous vapors";
set $for_id's health to $hlth;