##examines:runsub isitme;

##isitme:if $actor eq $target then whattodo else end;

##whattodo:
say 'actn',"[$actor] gives [$init_obj] such a huge bearhug!";
var $how to (rushed off,whisked away,spirited away,caried off,carted off);
var $who to (a wailing ambulance,a flock of seagulls,a lumbering elephant);
var $dest to 2431;
say 'leaves',"[$init_obj] blacks-out and is $how by $who to [$dest]";
clear $init_obj,all;
set $init_obj's loc to $dest;
var $loc to $dest;
say 'arrives',"$who carries [$init_obj] in, after a black-out caused by [$actor], then leaves";
say 'force',"force:look";