##tickloc:runsub roamforest;
##roamforest:
$health = $actor's health;
if $health > 0 then roamforest2;
##roamforest2:
runsub roamaround/3 or healme/2;
##roamaround:
call "roam";
##healme:
$healthmax = $actor's healthmax;
if $health < $healthmax then healme2;
##healme2:
getgender $actor;
print "[$actor]'s horn brightens for a moment, and some of $hisher wounds fade.";
add 1 to $health;
set $actor's health = $health;