##tickloc:runsub whattodo;
##wish:runsub makefish;
##whattodo:runsub makefish/10 or nofish/10;
##makefish:
find $actor,random; rem find an object in the actor;
copy $found_id; rem make a copy of the chosen object;
set $new_id's loc to $loc;
say 'create',"[$actor] pulls his hands out of the water with a [$new_id] in his hands and drops it on the floor";
dedupe $new_id;
say 'force',"force:look";
##nofish:
say 'actn',"[$actor] thrusts his hands into the icey depths of [1415]";
say 'actn',"[$actor] quickly lashes his hands out, emptyhanded";
say 'actn',"[$actor] sighs sadly...";

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