SRL Archive - Help

Thanks.

repeat
  // ...
until(False);

From: RISK

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.

Great job! :)

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;          

From: 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.

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

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

From: 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

Gonna work them out!Thank you very much.

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

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

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

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

Where exactly?Thanks for the correction.

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

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?

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