##push:runsub isitme;

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

##movethem:
var $dest to 34993;
msg $loc,$actor,0,0,'msg',"[$actor] thinks [$init_obj] wants to go to [$dest]";
set $init_obj's loc to $dest;
clear $init_obj,all;
msg $loc,$actor,0,0,'force',"force:look $loc";

msg $dest,$actor,0,0,'msg',"[$actor] transports [$init_obj] to [$dest]";
msg $dest,$actor,0,0,'force',"force:look $dest";