##tickloc:
runsub whattodo/3;

##whattodo:
$clr = $actor's colour;
cycle $clr through (red,white,green);
set $actor's colour to $clr;
relook $loc;
runsub ticked;

##ticked:
runsub checkhost/10;

##checkhost:
$host = $actor's host;
if $host > 0 then next1;

##next1:
if $host's material like living then next2;

##next2:
$hlth = $host's health;
$mana = $host's mana;
if $hlth < $host's healthmax then healit else cureit;

##healit:
add 2 to $hlth;
set $host's health to $hlth;
if $mana < $host's manamax then gain1;

##cureit:
set $hlth to $host's healthmax;

##gain1:
add 1 to $mana;
set $host's mana to $mana;