Compilation help

[Bobby Boo]

end; <--- line 54

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


What did I do wrong?

[Total]

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

[Sex]

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

[Bobby Boo]

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

[Total]

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;

[ShawnjohnSJ]

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


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

[Gucci]

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

[Bobby Boo]

oops.. thanks guys it compiles correctly now