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'


Code:
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.

Code:
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.
Code:
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.