No:
repeat
if (FindColor(x,y,WhirlpoolColor,0,0,513,339)) then
begin
FindFishCounter := FindFishCounter + 1;
Writeln('Trying to find fish (' + IntToStr(FindFishCounter) +')');
if (FindFishCounter = 5) then
begin
MakeCompass('N');
end;
if (FindFishCounter = 10) then
begin
MakeCompass('S');
end;
if (FindFishCounter = 15) then
begin
MakeCompass('W');
end;
Wait(200+random(100));
FindNormalRandoms;
Mouse(x,y,0,0,false);
if (FishSelection='Sharks') then
begin
if (FindBitmapToleranceIn(SharkSpot,x,y,0,0,513,339,200)) then
begin
Writeln('You Found Sharks!');
Mouse(x+10,y+20,0,0,true);
Wait(1000+random(500));
SetRun(true);
FindFishCounter := 0;
exit;
end;
end;
if (FishSelection='Lobsters') then
begin
if (FindBitmapToleranceIn(LobsterSpot,x,y,0,0,513,339,200)) then
begin
WriteLn('You Found Lobsters!');
Mouse(x+10,y+3,0,0,true);
Wait(1000+random(500));
SetRun(true);
FindFishCounter := 0;
exit;
end;
end;
end; // End of Find WhirlpoolColor IF statement
until(false);
Should have a failsafe. Your standards aren't too bad, but, they have mishaps.
Now about bitmaps, why would you use them for finding a fishing spot? That isn't a very good idea.
No.
Sorry, good luck :D
Cut em2 it