##tickloc:runsub whattodo;
if reacting to wish then curepox; // debug coded here;

rem something by thorn;

##whattodo:runsub klunkit/30 or moodit/15 or curepox/15;

##klunkit:
print "From a far corner, a 'clonk' from [$actor] reverberates through [$loc]";
runsub healsomeone or curepox;

##moodit:
$what = (a bird,a fly,a bee,a butterfly,a hand-glider,a sparrow,an eagle,a moth);
$does = (swoops,flies,loop-the-loops,zig-zags,plumets,cavorts,glides);
$where = (over head,near by, in the distance, close by,just out of view);

print "$what $does $where";
runsub healsomeone;

##healsomeone:
find $loc, random player;
if $found_id's health < $found_id's healthmax then healthem;

##healthem:
$health = $found_id's health;
add 1 to $health;
set $found_id's health to $health;
$how = (calmer,revived,better,chipperer,happier,more content);
print "[$found_id] is fealing a little $how now";

##curepox:
find $loc, random player;
$mats = $found_id's material;
swap $mats take '_cowpox_';
set $found_id's material = $mats;
print "[$found_id]'s feels very clear headed";