Simba Code:
Function KillCows: Boolean;
Var
TPAA: T2DPointArray;
TPA: TPointArray;
CTS, x, y, I, Retry: Integer;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
case Random(3) of // this is for the different color cows
0:
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 3822686, MSX1, MSY1, MSX2, MSY2, 15); // I tried changing all of the MSs here to 0, 0, 750, 450
1:
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5726322, MSX1, MSY1, MSX2, MSY2, 15);
2:
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 8229540, MSX1, MSY1, MSX2, MSY2, 15);
end;
ColorToleranceSpeed(CTS);
TPAA := TPAToATPAEx(TPA, 3, 3); // I also messed with the width and height
SortATPASize(TPAA, True);
For I := 0 To High(TPAA) do
if GetArraylength(TPAA[i]) > 4 then // changed this several times
begin
repeat
inc(Retry);
MiddleTPAEx(TPAA[i], x, y);
MMouse(x, y, 3, 3);
if (IsMouseOverText('tta')) then
begin
Result := true;
GetMousePos(X, Y);
mouse(x,y,2,3, true);
wait(3500 + Random(1000));
Break;
end;
until (Retry = 2);
Break;
end;
end;