Try this.. xD
SCAR Code:
{.include SRL\SRL.scar}
var
Pie: TPoint;
function FindFishSpot(var FFish: TPoint; UpText: TStringArray): Boolean;
var
FishColors: array[0..2] of TPointArray;
Fish: TPointArray;
Fishs: T2DPointArray;
I, C: Integer;
begin
FindColorsSpiralTolerance(MScX, MScY, FishColors[0], 12235950, MSx1, MSy1, MSx2, MSy2, 30);
FindColorsSpiralTolerance(MScX, MScY, FishColors[1], 11181975, MSx1, MSy1, MSx2, MSy2, 30);
FindColorsSpiralTolerance(MScX, MScY, FishColors[2], 10523529, MSx1, MSy1, MSx2, MSy2, 30);
FishColors[0] := CombineTPA(FishColors[0], FishColors[1]);
FishColors[0] := CombineTPA(FishColors[0], FishColors[2]);
if(Length(FishColors[0]) < 1)then
Exit;
Fishs := TPAtoATPA(FishColors[0], 30);
C := High(Fishs);
SetArrayLength(Fish, C + 1);
for I := 0 to C do
Fish[I] := MiddleTPA(Fishs[I]);
for I := 0 to C do
begin
MMouse(Fish[I].X, Fish[I].Y, 5, 5);
Wait(55 + Random(50));
if(IsUpTextMultiCustom(UpText))then
begin
GetMousePos(FFish.X, FFish.Y);
Result := True;
Exit;
end;
end;
end;
begin
SetupSRL;
ActivateClient;
Wait(2000 + Random(500));
if (FindFishSpot(Pie, ['et'])) then
Mouse(Pie.x, Pie.y, 0, 0, True)
else
Writeln('PROBLEM MAN!');
end.