##use:runsub isitme;

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

##sleepit:
say 'sound',"[$init_obj] takes a little nap inside [$actor]";

say 'sound',"[$init_obj] gets out of [$actor], you can see a little fire inside";