##say:runsub whattodo;
##talk:runsub whattodo;
##ask:runsub answerthem;

##whattodo:
find $loc,random not me;
var $way to (keenly,slowly,wisely,angrily,sweetly,quickly);
var $act to (gazes at,stares at,ignors,smiles at,turns away from,glares at);
var $msg to (May I help you?,Look! whats that out the window!?!,I dont care,They all say that,If its an issue.. heres a tissue,Thats what my Father used to say);
say 'acts',"[$actor] $way $act [$found_id] and says '$msg'";

##answerthem:
load $actor's mood;
say 'replies',"[$actor] replies '$randomitem'";