Farm game fisher

program InfiniteFishing;

{$I SRL/osr.simba}
var
  TPA,bar, fish, blue: TPointArray;
  B: TBox;

const
  COLOR_SMALL_POND  := CTS2(10261612, 9, 0.43, 1.29);
  COLOR_FOREST_POND := CTS2(6715733, 9, 0.94, 1.46);

begin
  while True do
  begin
    if IsKeyDown(VK_ESCAPE) then TerminateScript;

    srl.FindColors(TPA, COLOR_FOREST_POND, GetClientBounds());


    TPA := TPA.Cluster(4).Biggest().Grow(5).Erode(5);
    Fish := srl.GetPixelShiftTPA(TPA.Bounds(), 100);
    if Length(Fish) > 100 then
    begin
      Mouse.Teleport(Fish.Mean());
      Sleep(50);
      for 0 to 3 do // idk.. bad game
      begin
        Mouse.Click(MOUSE_LEFT);
        Sleep(10);
      end;

      B := TPA.Bounds();
      B.y2 := GetClientBounds().Y2;
      if not WaitUntil((srl.FindColors(bar, CTS2(3355443,5), B) > 80*200) and (bar.Bounds.Height > 100), 30, 800) then
        continue;

      B.x1 := bar.Mean().x-160;
      B.x2 := B.x1 + 320;

      if WaitUntil(srl.FindColors(blue, CTS1($FF0000, 5), B) > 200, 50, 900) then
      begin
        for 0 to 30 do
          if srl.FindColors(blue, CTS1($FF0000, 20), B) > 200 then
          begin
            Mouse.Teleport(blue.Cluster(2).Biggest().Mean());
            Mouse.Hold(MOUSE_LEFT);
            Wait(20);
            Mouse.Release(MOUSE_LEFT);
          end;
      end;
    end;
  end;
end.