AutoColor ?

[Dangerous Garden Tools]

is their any auto color for radial walk in the alKhalid desert?
im trying to make a iron miner+banker in the alkahalid and this would be a huge help since the colors keep changing on me =/

[bullzeye95]

function FindDesertColor: Integer;
var
tx, ty, GC, a, TestColor: integer;
H, S, L: Extended;
var
P: TPointArray;
begin
GC := 6337983;
Flag;
ColorToleranceSpeed(0);
FindColorsSpiralTolerance(tx, ty, P, GC, MMX1, MMY1, MMX2, MMY2, 30);
for a:= 0 to Length(P) - 1 do
begin
TestColor := GetColor(P[a].x, P[a].y);
ColorToHSL(TestColor, H, S, L);
wait(1);
if (H < 18.0) and (H > 9.5) then
if (S < 50.0) and (S > 34.0) then
if (L < 65.0) and (L > 46.5) then
if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
if GetColor(P[a].x, P[a].y + 5) = TestColor then
if GetColor(P[a].x + 5, P[a].y) = TestColor then
if GetColor(P[a].x, P[a].y + 3) = TestColor then
if GetColor(P[a].x + 3, P[a].y) = TestColor then
if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
if(CountColor(TestColor, MMX1, MMY1, MMX2, MMY2) > 550)then
begin
Result := TestColor;
WriteLn('Desert Color = ' +
IntToStr(TestColor));
ColorToleranceSpeed(1);
Exit;
end;
end;
WriteLn('Could not find Desert Color!');
Result := 0;
ColorToleranceSpeed(1);
end;
That's mine. It might mess up once in a while though.

[Harry]

Wow, that is pretty l33t bullzeye, you should write a few SRL frpocedures and become dev ;)

[JuKKa]

Wow, that is pretty l33t bullzeye, you should write a few SRL frpocedures and become dev ;)

AKA ACA! (makes sence?)