##use:runsub isitme;

##isitme:if $actor eq $target then touchit;

##touchit:
say 'sound',"[$init_obj] rolls around in [$actor] playfully";

say 'sound',"[$init_obj] has a little nap on [$actor]";
var $words to (My oh my!,
Darn it!,
Oh no!
This is disappointing,
That wasn't nearly as good as it seemed to be and now,
Look at the time!,
Quick I have to run cos,);
say 'sound',"[$init_obj] wakes up and says '$words I'm late!'";