##arrives:runsub whattodo;
##mxoves:runsub whattodo;
##orders:runsub takeorder;
##txickloc:runsub checkwatch;
##think:runsub itisready;
##wish:runsub cleantables;

##whattodo:
var $how to

(noisily,chaoticly,chaoticly);
var $greet to (WEL-come,GREE-tings);
var $asks to (What CAN I GET you,would YOU LIKE a DRINK);
say 'xmoves',"[$actor] wheels $how towards

[$init_obj] and says '$greet. $asks'";

##takeorder:
var $food to $actor's food;
if "$food" eq "" then recordorder else

saybusy;

##saybusy:
var $whoto to $actor's client;
say 'say',"$please ba patient, I am making

$food for [$whoto]'";

##recordorder:
var $prefix to (AffirMATIVE,O-K);
var $suffix to (com-ing right up,will be here SHORTly);
say 'say',"[$actor] says '$prefix. $init_cmd

$suffix'";

##checkwatch:
runsub itisready or prepareit;

##prepareit:
var $food to $actor's order;
var $how to

(busily,noisly,quietly,efficiently,slowly);
if "$food" ne "" then makenoise else

cleantables;

##makenoise:
say 'actn',"[$actor] $how makes $food";

##cleantables:
rem - find an object created by the actor

and delet it..;
find $loc,random not me not player not

doorway;
rem - say 'msg',"[$actor] checks

[$found_id]";
if $found_id's owner eq $actor then cleanit

else end;

##cleanit:
var $bin to 2718;
say 'actn',"[$actor] $how cleans up

[$found_id]";
unhost $found_id;
clear $found_id,all;

##itisready:
var $food to $actor's order;
if "$food" ne "" then deliverit else

cleantables;

##deliverit:
new "$food";
var $whoto to $actor's client;
var $new_id's slot1 to 'cafe';
var $how to

(briskly,swiftly,casually,slowly,distractedl

y,nimbly,enthusiastically);
say 'xmoves',"[$actor] walks $how to

[$whoto]";
say 'gives',"[$actor] gives [$whoto]

[$new_id] with a bow then continues cleaning

tables";
say 'force',"force:look";