Identifier on line 142?

[iridektm]

Im getting an identifier error at line 142, from the part in orange.



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.

[footballjds]

in the future keep the post here and tell us how you solved it. That way people searching the forums can get info from your post rather then space just being taken up...

[iridektm]

i still need help, i still have an error... sorry.

[Kyle Undefined]

function jarod; just needs to be jarod;