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.


Reply With Quote