Wanted
2009-12-23 00:52:10
change that one line to this
new function
if (TestColor - GetColor(P[A].X + 1,P[A].Y) = 1382166) thennew function
{*******************************************************************************
function FindRockColor: Integer;
By: Tarajunky, fixed by Shuttleu and again by IceFire908
Description: Autodetecs Rock (Gray) Color on Minimap
*******************************************************************************}
function FindRockColor: Integer;
var
A, L, TestColor: Integer;
P: TPointArray;
begin
Flag;
if FindMMColorsSpiralTolerance(P, 5591394, 80) 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;