if target of use then checkwho;

##checkwho:
if $init_obj's name like = (omenofdoom) then doit else end;

##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;