##tickloc:runsub whattodo;
##wish:runsub makefish;
##whattodo:runsub makefish/25 or nofish/10;
##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 'create',"[$actor] reels in a [$new_id] and drops it on the floor";
dedupe $new_id;
say 'force',"force:look";
z##nofish:
var $acn to (reels in his rod,scratches his head,looks at the sky,looks at you,hums a simple tune, blows his nose);
say 'actn',"[$actor] $acn..";
say 'actn',"[$actor] casts his rod out again .. and waits....";

z##talk:runsub starttalking;
z##starttalking:
msg $loc,$actor,0,0,'say',"[$actor] says 'I have been here for a long time.. Im going to catch something soon'";