##use:runsub isitme;

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

##sleepinit:
say 'sound',"[$init_obj] puts on [$actor] and prances around gleefully";

say 'sound',"[$actor] becomes strangely silky and slips right off [$init_obj] and right back to where it was before";

say 'sound',"'What are the odds?' asks [$init_obj]";