##use:runsub whattodo;
##whattodo:if $actor eq $target then roll else end;
##roll:
var $fun to (lazily, excitedly, indifferently, quickly, slowly);
say 'msg',"[$init_obj] $fun sits on [$actor]";
say 'msg',"[$init_obj] kicks off the wall and rolls around the office";
say 'msg',"[$init_obj] cries 'WEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE!!!!!!' as they whip around the office";
say 'msg',"[$init_obj] returns [$actor] to the desk and gets off";
say 'msg',"[$init_obj] says 'That was AWESOME!!!' and walks away";