##tickloc:runsub whattodo;
##whattodo:runsub actit/4;
##actit:
var $actn to (blinks at you,smiles at you,stirs the soup,looks around);
say 'acts',"[$actor] $actn";