##tickloc:runsub whattodo;
##wish:runsub dostuff;
##say:runsub talkback;
##look:runsub moveme;

##talkback:
say 'reply',"[$actor] ignors you as he is too busy to talk to healthy people";


##whattodo:runsub dostuff/1 or moveme/15;

##dostuff:
find $loc,random not doorway not me;
var $how to (slowly,quickly,efficiently,unusually,strangely,habitually,commandingly);
var $ting to (takes out his stethescope,cleans his glasses,scribbles a note,scratches his chin,wrings his hands);
var $actn to (tends to,examines,contemplates,checks,consults,views,considers,prods,pokes,talks to,looks at);

var $hmm to (Hmmm.. just as I thought,My my.. this does not look good,My god! who put that there!,Oh.. thats not a good sign,Do you want the good news or the bad news first?);

say 'msg',"[$actor] $how $ting, $actn [$found_id] and says '$hmm'";

##moveme:
find $loc,random doorway;
rem stop doctor leaving the hospital;
if $found_id's class eq 'elevator' then end else continue;
##continue:
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
var $how to (hurries,stumbles,strides,walks,goes);
say 'leaves',"[$actor] $how away through [$found_id]";

clear $actor,all;
set $actor's loc to $tloc;
msg $loc,$actor,0,0,'force',"force:look $loc";

msg $tloc,$actor,$tlink,0,'arrives',"[$actor] $how in through [$tlink] looking for patients";
msg $tloc,$actor,0,0,'force',"force:look $tloc";