if target of use then doit;

##doit:
find $actor, map;
copy $found_id;
relocate $new_id to $loc print "[$actor] shudders and smokes" then "[$init_obj] took a [$new_id] from [$actor]";
relook $loc;