Old one was broken.
I made this one.
SCAR Code:
Function FindRockColor2: Integer;
var
Lengths, TestColor, Col, i: Integer;
Rockk: Array of TPoint;
begin
col := 3028286;
FindColorsSpiralTolerance(MMCX, MMCY, Rockk, Col, MMX1, MMY1, MMX2, MMY2, 25);
Lengths := GetarrayLength(Rockk);
for i := 0 to Lengths - 1 do
begin
TestColor := Getcolor(Rockk[i].x, Rockk[i].y);
if Getcolor(Rockk[i].x + 1, Rockk[i].y) = TestColor then
begin
Result := TestColor;
writeln('RockColor = '+inttostr(result));
exit;
end;
end;
writeln('[Error]Couldnt Find The Rock Color!');
Result := 0;
end;