##tickloc: runsub whattodo;
if target of push then grazeit;

##whattodo:runsub baaa/10 or grazeit/10;

##baaa:
$what = (baaa in unison,make the usual baaaaing noise,go baaa quietly);
print "[$actor] $what";

##grazeit:
$what = (continue grazing,look at you,follow you with their ears,bounce around);
print "[$actor] stop and $what then continue grazing some more";