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