SCAR Code:
program New;
{.include SRL/SRL.scar}
var
FishezTPA : TPointArray;
FishezATPA : T2DPointArray;
FishezPoint : TPoint;
x, y, i, r, z : Integer;
{*******************************************************************************
function FindFishez(FishyColor, FishyColor1, FishyColor2 : integer) : boolean;
By: TheVoiceInYourHead(Elkins121)
Description: Finds a fishing spot using the colors you provide. FishyColor,
FishyColor1, and FishyColor2 should be the "sparkling" parts of the water.
*******************************************************************************}
function FindFishez(FishyColor, FishyColor1, FishyColor2 : integer) : boolean;
begin
x := MSCX;
y := MSCY;
FindColorsSpiralTolerance(x, y, FishezTPA, FishyColor, MSX1, MSY1, MSX2, MSY2, 5);
if Length(FishezTPA)=0 then FindColorsSpiralTolerance(x, y, FishezTPA, FishyColor1, MSX1, MSY1, MSX2, MSY2, 5);
if Length(FishezTPA)=0 then FindColorsSpiralTolerance(x, y, FishezTPA, FishyColor2, MSX1, MSY1, MSX2, MSY2, 5);
FishezATPA := SplitTPA(FishezTPA, 8);
for i := 0 to High(FishezATPA) do
begin
FishezPoint := MiddleTPA(FishezATPA[i]);
MMouse(FishezPoint.x, FishezPoint.y, 3, 3);
if IsUpTextMultiCustom(['et', 'ishing']) then
begin
GetMousePos(x, y);
MarkTime(r);
z := InvCount;
case Random(2) of
1: Mouse(x, y, 1, 1, True);
2: Mouse(x, y, 3, 3, True);
end;
repeat
Wait(250+Random(750));
FindNormalRandoms;
until((InvFull) or (TimeFromMark(r)>=15000));
if z=InvCount then
begin
FindFishez(FishyColor, FishyColor2, FishyColor2);
end else
Result := True;
end;
end;
end;
begin
SetupSRL;
FindFishez({FishyColor}, {FishyColor1}, {FishyColor2});
end.