##use:runsub isitme;

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

##sleepinit:
say 'sound',"[$init_obj] sits proudly on [$actor]";

say 'sound',"[$init_obj] falls off [$actor] looks like sitting on top of a creepy skeleton throne wasn't what [$init_obj] was meant to do";