##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";
##maxit:
$health = $host's healthmax;