##poke:runsub whattodo;
##push:runsub whattodo;
##whattodo:if $actor eq $target then someonepushed else end;
##someonepushed:
var $sound to (rings,dings,bings,dongs,goes ka-thump);
var $vol to (softly,loudly,slowly,quickly);
say 'msg',"[$actor] $sound $vol";