##talk:runsub whatitdoes;
##whatitdoes:if $target eq $actor then reply else not;
##not: robotcaterpillar;
##reply: say 'reply',"The barkeep looks at you strangely";
msg $loc,$actor,0,0,"asking","[$actor] asks you politely 'oh I am sorry did you want a drink?'";
##examines:runsub whatitdoes;