##tickloc:runsub ticked;
##ticked:
runsub healhost/5;
##healhost:
$host = $actor's host;
if $host > 0 then healh2;
##healh2:
$health = $host's health;
if $health > 0 then healh3;
##healh3:
if $health < $host's healthmax then healh4;
##healh4:
add 3 to $health;
if $health > $host's healthmax then maxit;
set $host's health to $health;
$wound = (blood stains,body fluids,signs of wounds);
$fade = (fade away,diminish,are gone,vanish);
print "Some $wound on [$actor] $fade";
$qty = $actor's qty;
if $qty > 1 then reduceme else destroyme;
##maxit:
$health = $host's healthmax;
##reduceme:
take 1 from $qty;
set $actor's qty to $qty;
##destroyme:
print "[$actor] disintegrates and is gone.";
set $actor's host to 0;
set $actor's loc to 0;