##tickloc:runsub distrib;
##talk:runsub sayso;
##distrib:runsub thinkso/50;

##thinkso:
var $msg to (What's the hell I'm doing in this place?, May be Wolis or Harold could give me some more whisky ?, Mummy... I love you so much!);
say 'replies',"[$actor] . o 0 ( $msg )";

##sayso:
find $loc,random;
var $msg to ('Don't talk to me [$init_obj]. Please.', 'I can't move yet. And I am unemployed. Please take me with you.','[$init_obj]... any job for me?.');
say 'replies',"[$actor] says $msg";