Not sure, but on FollowFishingSpot, you never tell the function to have the result false, so that could be a problem? I really don't know, maybe something like this?
SCAR Code:
Function FollowFishingSpot(Var x, y: integer): Boolean;
Var
FishSpot, FishPoint1, FishPoint2: TPointArray;
MiddleSpot: TPoint;
CTS: Integer;
Begin
if not LoggedIn then Exit;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsTolerance(FishPoint1, 14796717, x - 40, y - 40, x + 40, y + 40, 40);
FindColorsTolerance(FishPoint2, 12104108, x - 40, y - 40, x + 40, y + 40, 40);
FishSpot := CombineTPA(FishPoint1, FishPoint2);
If Length(FishSpot) > 3 Then
Begin
Result := True;
MiddleSpot := MiddleTPA(FishSpot);
x := MiddleSpot.X;
y := MiddleSpot.Y;
End else
Begin
writeln('Omg, we couldn''t follow the fishing spot...');
Result := False;
End;
ColorToleranceSpeed(CTS);
End;