There is actually one that (not handles the fish), but pick-up your equipment if the fish smashes it away.
SCAR Code:
{*******************************************************************************
function FindFishingEquipment: Boolean;
By: Stupid3oooo
Description: Finds all fishing equipment, Edited by Dankness with Counter
*******************************************************************************}
function FindFishingEquipment: Boolean;
var
c: Integer;
begin
GameTab(4);
Result := True;
if (not (FindItemColor(FishingEquipmentColor))) then
begin
FTWait(10 + Random(1));
Result := False;
repeat
c := c + 1;
if (FindItemColor(FishingEquipmentColor)) then
begin
Result := True;
break;
end;
if (FindObj(x, y, FishingEquipmentName, FishingEquipmentColor, 5)) then
begin
RodsFound := RodsFound + 1;
Mouse(x, y, 1, 1, True);
Flag;
FTWait(5 + Random(1));
end
//else if(PickUpItems)then
// ItemGrab;
until (c >= 10);
end;
end;