Help with AutoColor please,

[iridektm]

Im using the AutoColor function in the ACA program. Its fine, but im thieving a stall, so when its respawning it can't find the color, so it just keeps on clicking randomly saying 'cant find color'



function Jarod: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.25, 0.11);

if not (FindColorsTolerance(arP, 3163991, MSX1, MSY1, MSX2, MSY2, 1)) then
begin
//Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;

arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);

for i := 0 to arL do
begin
Result := arC[i];
//Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

if (i = arL + 1) then
//Writeln('AutoColor failed in finding the color.');
end;


^^^finds the color^^^

and this is supposed to click it, at least what im trying to do.


Procedure Thieveit;
begin
if(FindColor(a, r, Jarod, MSX1, MSY1, MSX2, MSY2))then
begin
MouseSpeed:= (Mspeed)
Mouse(a, r,1,1,true);
end else;
end;


And this is how I have the mainloop set up.

begin
SetupSRL;
ActivateClient;
repeat
if (FindColor(x, y, 12364441, MMX1, MMY1, MMX2, MMY2)) then
begin
Login;
end else;
begin
function Jarod;
wait(100);
Thieveit;
end;
until(count=100)
end.