if target of touch then chkwho;
##chkwho:
if $init_obj's obj_id = 43107 then doit else cant;
##cant:
print "You don't have any idea how to work it!";
##doit:
$ctank = 77157;
foreach in $ctank do chkwhat;
##chkwhat:
if $for_id's class = player then continue else nope;
##continue:
$oplay = $for_id;
copy $for_id;
set $new_id's loc to 77162;
set $new_id's class to 'object';
set $new_id's pclass to 'objects';
set $new_id's creator to 43107;
set $new_id's owner to 43107;
$nplay = $new_id;
runsub finishit;
##finishit:
foreach in $oplay do copyit not dporway not player;
##copyit:
copy $for_id;
set $new_id's loc to $nplay;
set $new_id's creator to 43107;
set $new_id's owner to 43107;