##use: runsub isitme;

##isitme:
if $actor eq $target then whattodo else end;

##whattodo: runsub makefish or nofish;

##makefish:
find $actor,random not player not doorway; rem find an object in the actor;
var $tworth to $found_id's worth;
copy $found_id; rem make a copy of the chosen object;
set $found_id's worth to $tworth; rem - duplicate the worth as well;
set $new_id's worth to $tworth;
set $new_id's loc to $loc;
set $new_id's owner to $actor;
set $new_id's creator to $actor;

say 'sound',"...PING...";
say 'sound',"...PING...";
say 'sound',"...PING...";
say 'sound',"...BIP BIP BIP!";
say 'create',"Using the [$actor], [$init_obj] finds [$new_id].";
dedupe $new_id;
say 'force',"force:look";
##nofish:
say 'sound',"...PING...";
say 'sound',"...PING...";
say 'sound',"...PING...";
say 'create',"[$init_obj] tries to find something using the [$actor], but it seems there is nothing here. Try searching once more.";