##tickloc:runsub ticked;
##ticked:
runsub ticked2/5;
##ticked2:
$health = $actor's health;
if $health > 0 then regenerate;
##regenerate:
getgender $actor;
$hm = $actor's healthmax;
if $health < $hm 0 then regenerate2;
add 5 to $health;
if $health > $hm then maxit;
$part = (head,neck,shoulder,arm,chest,belly,leg);
print "[$actor] grins as $hisher damaged $part is regenerated a bit.";
##maxit:
$health = $hm;