##tickloc:runsub whattodo;
##examines:runsub saytime;
##wish:runsub saytime;
##think:runsub mood;
##whattodo:runsub makesound/3 or mood/10 or saytime/13;
##makesound:
var $sound to (quietly,slowly,gently,loudly,brightly,cleanly,smoothly,backwards);
say 'sound',"[$actor] ticks $sound";

##mood:
var $ms to 'time passes';
say 'sound',$ms;

##saytime:
var $tim to today 7 hour format %H:%i on %a;
say 'say',"It's $tim somewhere in on the face of the earth";