##arrives:runsub whattodo;
##whattodo:runsub hello;
##hello:
var $act to (Good day!, How are ye?, Have a nice stay!, Hello.);
say 'say',"[$actor] say '$act'";
say 'say',"[$actor] says 'Feel free to use one of the rooms upstairs.'";