How can i do the script to repeat an accion for ever?

[Gaston7eze]

Thanks.

[RISK]

repeat
// ...
until(False);

[Gaston7eze]

repeat
// ...
until(False);

Thanks man im gonna try out
PD:I made the script to cut one tree!Im happy LOL.Thanks to you and the guys who help me.

[RISK]

Great job! :)

[Gaston7eze]

Is this right ?

Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, true);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
Repeat
Mouse(x,y,0,0,true)
Wait(2000)
Until(False);
End;

[Gaston7eze]

Is this right ?

Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, true);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
Repeat
Mouse(x,y,0,0,true)
Wait(2000)
Until(False);
End;

Edit:It just clicks on the corner of the Runescape Screen.

[RISK]

Try this:
Begin
Repeat
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, true);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
Until(False);
End;

Work on your standards, by the way. :)
http://villavu.com/forum/showthread.php?t=60288

[Gaston7eze]

Edit:It just clicks on the corner of the Runescape Screen.


Try this:
Begin
Repeat
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, true);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
Until(False);
End;
Work on your standards, by the way. :)
http://villavu.com/forum/showthread.php?t=60288

Gonna work them out!Thank you very much.

[Gaston7eze]

I read all the Standars,Do the Standars have deal with the script to work?

[RISK]

Standards help you and others read your script and figure out problems in it.

[Markus]

Also you forgot a begin/end there. It seems the script can not find a tree.

[Gaston7eze]

Also you forgot a begin/end there. It seems the script can not find a tree.

Where exactly?Thanks for the correction.

[Gaston7eze]

Procedure ChopTree;
Var
x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, true);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End; Is this good?Thanks.It dont work for me,it just click one tree it cut it and then it dont work anymore.:S

[Markus]

Begin
Repeat
If FindObj(x,y,'hop',1785912, 35)Then
begin
Mouse(x,y,0,0, true);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until (not IsUpText('Tree')) or InvFull
end;
Until(False);
End;


should cut trees ad infinite.

Maybe because the IsUptext return true? tree stump anyone?

[Runescape Pro]

To detect if the tree is down? Great idea markus. That's some next level shiz. :P