##ticlock:runsub whattodo;
##whattodo: if $actor eq $target then wee else end;
##wee:
var $dufus to (scrathes at you, meows, purrs loudly, jumps around, stares at you, lies down,);
say 'msg',"[$actor] $dufus";