SRL Archive - Help

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
    [COLOR="DarkOrange"]function jarod;[/COLOR]
    wait(100);
    Thieveit;
  end;
until(count=100)
end.

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…

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

function jarod; just needs to be jarod;