if reacting to arrives then greetthem;
if target of say then talkback;
if target of ask then giveanswer;

##greetthem:
$how = (slowly,quickly,smoothly,hurridly);
$greet = (greeting,welcome,glad you could make it);
print "[$actor] $how trundles up to [$init_obj] and says '$greet'";

##talkback:
$reply = (oh I quite agree,no not really,some would say that,well I never!);
print "[$actor] says '$reply'";

##giveanswer:
if $init_msg like "where" then replyoverthere else nextanswer;

##nextanswer:
$reply = (hmm.. yes?,ah.. no,well.. just because,Im sure you already know);
print "[$actor] replies '$reply' ";

##replyoverthere:
find $loc, random doorway;
$act = (gestured towards,looks at,indicates,points towards);
$say = (maybe through there,hmm.. possible that way,I.. Err.. dont realy know,try there);
print "[$actor] $act [$found_id] and replies '$say'";