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

##whattodo:
var $how to (gruffly,angrily,menacingly,slowly,distractedly,meanly,frighteningly);
var $greet to (Erk,Hello,Hmmm...,Arrrgh!);
var $asks to (Its you again?,What do you want?,Order something or leave.,Don't waste my time unless you have something important.);
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 (At least,Finally,Are you sure you want it? OK...);
var $suffix to (comming right up,is on its way,will be here shortly... you just need to wait for a while);
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 (,casually,slowly,distractedly,quickly);
say 'xmoves',"[$actor] walks $how to [$whoto]";
say 'gives',"[$actor] gives [$whoto] [$new_id] with a bow then continues cleaning counter";
set $actor's order to "";
say 'force',"force:look";