if target of use then popit;

##popit:
find $actor, random;
if $found_id > 0 then copyit else makenoise;

##makenoise:
$how = (shugs,squeeks,clunks);
print "[$actor] $how noisly";

##copyit:
copy $found_id;
relocate $new_id to $loc print "[$found_id] was copied" then "[$actor] produced [$new_id]";
clean $new_id,all;