SCAR Code:
function FindRockColor: Integer;
var
A, L, TestColor: Integer;
P: TPointArray;
begin
Flag;
if FindMMColorsSpiralTolerance(P, 3618615, 40) then
begin
L := High(P);
for A := 0 to L do
begin
TestColor := GetColor(P[a].x,P[a].y);
if (TestColor - GetColor(P[A].X + 1,P[A].Y) = 1382166) then
begin
Result := TestColor;
srl_Warn('FindRockColor', 'RockColor = ' + IntToStr(TestColor), warn_Debug);
Exit;
end;
end;
end;
srl_Warn('FindRockColor', 'Could''t find RockColor', warn_Debug);
Result := 0;
end;