if target of use then doit;

##doit:
find $actor, random;
copy $found_id;
relocate $new_id to $loc print "[$found_id] was copied" then "[$init_obj] took a [$new_id] from [$actor]";
relook $loc;