Im getting an identifier error at line 142, from the part in orange.
Code:program ArdyGemStall; {$I SRL/SRL.simba} Const Mspeed = 25; var x, y: integer; a, r: integer; count: Integer; 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; 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; 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








