SRL Archive - Help

end; <---  line 54

[Error] (55:1): Identifier expected at line 54
Compiling failed.


What did I do wrong?

Can't tell from that part alone. Probably missing the begin to the end or something.

We need code. You're missing a begin or that should be "end." instead of "end;".

procedure ChopIvy;
var x, y: integer;
begin
    repeat
    FindNormalRandoms;
    if FindObj(x, y, 'hop Iv', 3629644, 20) then
    begin
      Mouse(x, y, 2, 2, false);
      ChooseOption('hop Iv');
    end;
      repeat
      wait(400+random(250));
      AntiBan;
      Until not IsUpText('hop Iv')
end;  <-----------------------------this is the same end
     

You have an incomplete repeat until statement.

procedure ChopIvy;
var x, y: integer;
begin
    repeat  //You call a repeat here but dont end it
    FindNormalRandoms;
    if FindObj(x, y, 'hop Iv', 3629644, 20) then
    begin
      Mouse(x, y, 2, 2, false);
      ChooseOption('hop Iv');
    end;
      repeat  //This repeat is matched with the until under it
      wait(400+random(250));
      AntiBan;
      Until not IsUpText('hop Iv')  // <--- this one
end; 

From: Bobby Boo

procedure ChopIvy;
var x, y: integer;
begin
    [B]repeat[/B]
    FindNormalRandoms;
    if FindObj(x, y, 'hop Iv', 3629644, 20) then
    begin
      Mouse(x, y, 2, 2, false);
      ChooseOption('hop Iv');
    end;
      repeat
      wait(400+random(250));
      AntiBan;
      Until not IsUpText('hop Iv')
end;  <-----------------------------this is the same end
     

The problem here is that you have a repeat loop without until.

Try this:

procedure ChopIvy;
var x, y: integer;
begin
 FindNormalRandoms;
 if FindObj(x, y, 'hop Iv', 3629644, 20) then
  begin
   Mouse(x, y, 2, 2, false);
   ChooseOption('hop Iv');
    repeat
     Wait(400+random(250));
    Until not IsUpText('hop Iv')
  end;
end;

You weren't looping the repeat..until statements properly

oops.. thanks guys it compiles correctly now