##arrives:runsub whattodo;
##create:runsub rangersay;
##whattodo:if name like "superblah" then oops else hehe;
##hehe:
say 'msg',"[$actor] says politely 'Please read the sign before anything else. It is imperative that you do so.'";
##rangersay:if name like "superblah" then other else haha;
##haha:
say 'msg',"[$actor] says nicely 'I do hope that's appropriate.'";
##oops:
say 'msg',"[$actor] says politely 'Hello, Mr. Superblah.'";
##other:
say 'msg',"[$actor] says politely 'That looks very nice, Mr. Superblah.'";