SRL Archive - OSR Help

procedure ChopTree;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'ree', COLOR, 10) then
Mouse(x, y, 0, 0, true);
ChooseOption('hop');
repeat
wait(1200+random(250));
Until not IsUpText('ree') or (InvFull);
Until (InvFull);
end;

Error : [Error] (37:1): Syntax error at line 36
Compiling failed.

Line 36 = "procedure ChopTree;"

mmm, As I see this, You forgot to add a end somewhere in your script.

normally, when you get a syntax error for a procedure, it means your forget to add a End in the procedure/function that happen before this one.

I copied/pasted it on a new tab and I get no error, so this must mean you forgot to put a end before writing this procedure somewhere.

New error

[Error] (38:1): Identifier expected at line 37
Compiling failed.

Line 37 = procedure ChopTree;

From: MrStreet
New error

[Error] (38:1): Identifier expected at line 37
Compiling failed.

Line 37 = procedure ChopTree;

Well, I can't help you out if you don't post the whole script.

Actually gonna PM it.

K, You problem is fixed now. Like I told you, you forgot to add a end in the procedure before Choptree.

Here is the Fix.

procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(8) of
0:
begin
HoverSkill('Woodcutting', false);
wait(2500+Random(750));
end;
end;
end; // you forgot to add the end here
procedure ChopTree;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'ree', COLOR, 10) then
Mouse(x, y, 0, 0, true);
ChooseOption('hop');
repeat
wait(1200+random(250));
Until not IsUpText('ree') or (InvFull);
Until (InvFull);
end;

I indicated you the place where you need to add your ' END ' in your script using //

Happy to have helped you out :-)

Thanks for the help.

My brother is useless. xD

From: MrStreet
Thanks for the help.

My brother is useless. xD

Hehe, I was at your place 1 Month ago when I started to Script back again.

From: Nemesis3X
Hehe, I was at your place 1 Month ago when I started to Script back again.

Yeah I would guess. But my brother who is greater then me by 300% at this did not even bother telling me what was wrong and told me sign up and post it up. Sigh. =)

I only told him to do that from my experience. I had to do the same to be honest. Had a good laugh after. Well only I did.

lol, That's a good way to make him learn! I am sure he will find it right away next time if he forget a End with the syntax error message.

Try posting in the correct section, you will garner a better response and it's easier for the mods.

Yep you are missing a end and shouldnt you right click the tree instead of left clicked it?

if FindObj(x, y, 'ree', COLOR, 10) then
Mouse(x, y, 0, 0, true);
ChooseOption('hop');

Will left click the tree and try to choose a option that will never appear cuz well you didnt right click the tree :P

if FindObj(x, y, 'ree', COLOR, 10) then
Mouse(x, y, 0, 0, false);
WaitOption('hop', 1500);

Try this one!

From: Sirenia
Yep you are missing a end and shouldnt you right click the tree instead of left clicked it?

if FindObj(x, y, 'ree', COLOR, 10) then
Mouse(x, y, 0, 0, true);
ChooseOption('hop');

Will left click the tree and try to choose a option that will never appear cuz well you didnt right click the tree :P

if FindObj(x, y, 'ree', COLOR, 10) then
Mouse(x, y, 0, 0, false);
WaitOption('hop', 1500);

Try this one!

I will try that out. Thanks for the help. I appreciate the help I'm getting :)