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

##whattodo:
var $how to (briskly,swiftly,casually,slowly,distractedly,nimbly,enthusiastically);
var $greet to (Welcome,Greetings,Good day,Bonjour);
var $asks to (What would you like to order,what can I get you,Its you again.. how lovely);
say 'xmoves',"[$actor] walks $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 (Excellent choice,Wonderful,Naturally,As you wish);
var $suffix to (comming right up,is on its way,will be here shortly);
say 'say',"[$actor] says '$prefix. $init_cmd $suffix'";
set $actor's order to "$init_cmd";
set $actor's client to "$init_obj";

##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;
set $found_id's loc to $bin;

##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,distractedly,nimbly,enthusiastically);
say 'xmoves',"[$actor] walks $how to [$whoto]";
say 'gives',"[$actor] gives [$whoto] [$new_id] with a bow then continues cleaning tables";
set $actor's order to "";
say 'force',"force:look";