SRL Archive - RS3 Outdated / Broken Scripts

Im making a Lumbridge yew cutter + Banker.

I so far made a RadialWalk for it.

If you want to try it out and tell me if it works good.

START in the bank.
Start at the booth that is open.
FACE South and it should work fine.

//-----------------------------------------------------------//
//                 >>>>>>>-:BobboHobbo:-<<<<<<<<             //
//                           Productions Presents:             //
//                 Lumbridge RadialWalkder from bank to      //
//                       The yew tree in Lumb gravyard.      //
//-----------------------------------------------------------//
//If you find any problems in the radial walk Fix them or tell//
//me. HAVE 28 ITEMS IN UR INVENTORY BEFORE PLAYING SCRIPT    //
//                                                           //
// Known Problems: When Lumbridge is crowedit stuffs up      //
// sometimes.                                                //
//-----------------------------------------------------------//
program New;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
const
Tree = 3168336;//Colour of tree.
Stairs = 4669512;
Ladder = 603990;

Procedure Banktoyew;
begin
RadialRoadWalk(FindRoadColor, 5, 371, 46, 0, 0);
WriteLn(' Did: Bank to Stairs  ');
end;
Procedure Banktoyew1;
begin
RadialRoadWalk(6912388,  4, 374, 63, 0, 0);
WriteLn(' Did: Bank to Stairs (failsafe)  ');
 end;
 Procedure Banktoyewstairsfloor2;
begin
 if FindObj(x,y,'lim', Stairs,35) then
  Mouse(x, y, 1, 1, true);
  WriteLn(' Did: Found Stairs  ');
end;

Procedure Banktoyewstairsfloor1;
begin
 if FindObj(x,y,'tai', Stairs,35) then
  Mouse(x, y, 1, 1, true);
  WriteLn(' Did: Found Stairs  ');
end;
Procedure Banktoyewstairsfloor;
begin
if FindObj(x,y,'tai', Stairs,35) then
  Mouse(x, y, 1, 1, false);
  Wait(1000+random(1000))
if (ChooseOption(x, y, 'Climb-down')) then
WriteLn(' On bottom folor  ');
end;
Procedure BanktoyewsCastle;
begin
RadialRoadWalk(FindRoadColor, 243, 588, 38, 0, 0);
WriteLn(' Clicked East from stairs  ');
  end;

  Procedure BanktoyewsCastle1;
begin
RadialRoadWalk(FindRoadColor, 239, 604, 63, 0, 0);
WriteLn(' Did: Going to the yew  ');
  end;

    Procedure BanktoyewsCastle2;
begin
RadialRoadWalk(FindRoadColor, 310, 677, 32, 0, 0);
WriteLn(' Did: Going to the yew 2  ');
  end;

      Procedure BanktoyewsCastle3;
begin
RadialRoadWalk(FindRoadColor, 300, 350, 50, 0, 0);
WriteLn(' Did: Going to the yew 3  ');
  end;

      Procedure BanktoyewsCastle4;
begin
if FindSymbol(x, y, 'rare trees') then
Mouse(x, y, 1, 1, true);

   FTwait(15);
If (not(FindSymbol(x,y,'rare trees')))then
       begin
       if FindSymbol(x, y, 'axe shop') then
Mouse(x, y, 1, 1, true);
   FTwait(15);
WriteLn(' Did: Near Tree  ');
end;
end;

Procedure BanktoyewsCastle5;
begin
if FindSymbol(x, y, 'rare trees') then
Mouse(x, y, 1, 1, true);
FTwait(15);
If (not(FindSymbol(x,y,'rare trees')))then
       begin
       if FindSymbol(x, y, 'axe shop') then
       Mouse(x, y, 1, 1, true);
       FTwait(15);
if FindSymbol(x, y, 'rare trees') then
       Mouse(x, y, 1, 1, true);
       FTwait(15);
WriteLn(' Did: Finds yew symbol  ');
 end;
 end;
Procedure Yewstobank;
begin
RadialWalk(2913918, 101, 150, 58, 0, 0);
  end;

  Procedure Yewstobank1;
begin
RadialroadWalk(FindRoadColor, 167, 132, 55, 0, 0);
  end;

    Procedure Yewstobank2;
begin
RadialroadWalk(FindRoadColor, 55, 90, 68, 0, 0);
  end;

     Procedure Yewstobank3;
begin
if FindSymbol(x, y, 'quest') then
Mouse(x, y, 1, 1, true);
FTwait(15);
If (not(FindSymbol(x,y,'quest')))then
       begin
       if FindSymbol(x, y, 'cook') then
       Mouse(x, y, 1, 1, true);
       FTwait(15);
  end;

 end;
       Procedure Yewstobank4;
begin
RadialroadWalk(FindRoadColor, 337, 440, 23, 0, 0);
  end;
    Procedure Yewstobank5;
    begin
RadialroadWalk(FindRoadColor, 99, 120, 34, 0, 0);
  end;
  
    Procedure Yewstobankstairs0;
begin
if FindObj(x,y,'lim', Stairs,35) then
  Mouse(x, y, 1, 1, true);
  end;

  Procedure Yewstobankstairs;
begin
if FindObj(x,y,'lim', Stairs,35) then
  Mouse(x, y, 1, 1, true);

end;

  Procedure Yewstobankstairs1;
begin
if FindObj(x,y,'tai', Stairs,35) then
  Mouse(x, y, 1, 1, false);
  Wait(1000+random(1000))
if (ChooseOption(x, y, 'Climb-up')) then
end;

  Procedure Yewstobankbbf;
begin
RadialroadWalk(FindRoadColor, 170, 220, 50, 0, 0);
openbank;    //Need to finish the bank
bankscreen;
end;

  procedure CuttingTree;
 begin
  if FindObj(x,y,'Yew',Tree,10) then
  Mouse(x, y, 1, 1, true);
  wait(1000+random(3500));

  end;
begin
SetUpSRL;
ActivateClient;
Banktoyew;
FTwait(5);
Banktoyew1;
FTwait(6);
Banktoyewstairsfloor2;
FTwait(5);
Banktoyewstairsfloor1;
wait(2000+random(500))
Banktoyewstairsfloor;
wait(2000+random(500))
BanktoyewsCastle;
wait(2000+random(500))
BanktoyewsCastle1;
wait(2000+random(500))
BanktoyewsCastle2;
wait(2000+random(500))
BanktoyewsCastle3;
wait(2000+random(500))
BanktoyewsCastle4;
wait(2000+random(500))
BanktoyewsCastle5;
wait(2000+random(500))
Repeat // (Can get rid of this)
CuttingTree;  // THIS WAS JUST TO TEST you can get rid of if you want
Until(Invfull)// Can get rid of this.
Yewstobank;
FTwait(2);
Yewstobank1;
wait(2000+random(500))
Yewstobank2;
wait(1000+random(500))
Yewstobank3;
wait(1000+random(500))
Yewstobank4;
wait(1000+random(500))
Yewstobank5;
wait(1000+random(500))
Yewstobankstairs;
wait(2000+random(500))
Yewstobankstairs0;
wait(2000+random(500))
Yewstobankstairs1;
Yewstobankbbf;
end.

Ops i stuffed the code up

EDITED**

All fixed up.
It should go to the South stairs not the north when you start.

Good Work! Couple of suggestions:

What happens if the Player misses one step? You will need to build in some failsafes in order to make this work 100%. Good try though, and o, instead of the waiting, make the script do something more useful, like FTWait; This procedure waits 250 msec (1/4 sec.) and performs one FindTalk that handles all talking randoms.

Keep 'm coming…

Fawk!

…And do not put that high tolerances as 324 in your script (FindObj functions). Use something like between 5-50.

Kk thanks WT-Fakawi, Ill try adding those stuff in later today im to tired atm.
And, Pentti, Ill change that aswell, thanks for posting guys. :D


Thanks!

EDIT**
WT-Fakawi i did you command as FTwait; and is said:
[Error] (18181:7): Invalid number of parameters in script
But when i add:
FTwait (4);
It waits line 4 seconds is that right?

From: bobbohobbo

FTwait (4);
It waits line 4 seconds is that right?

No. FTWait(4) wait approx. 1 second, and performs 4 findtalks;

Oh now i get it, Ty Wt-Fakawki :D
Ill keep the wait thing till the end when im finished with the radial walk.

Im doing FailSafe right now, gonna take awhile to get it working to 100%

EDIT**

I so far added some FailSafe ( Going to the yews)
Please test and tell me if it works.

Its on my main post.

EDIT**

I Added more failsafe it should get to the yew and bak to the caslte, may stuff up. (Stuffed up at castle 2/2 tries :l) Still fixing it though.

All i need it to do is to get to the stairs of the castle then thats it for radial walk.

can someone help me with this error? '' Line 33: [Error] (12485:12): Unknown identifier 'x' in script '' the line 33 looks like this '' if FindObj(x,y,'lim', Stairs,35) then '' please help me i really ned a yew cutter

Just throw in

Var
x,y : integer;

somewhere near the beginning

AHhahaha, I made this on my first week of learning scar.. Stanards are awful and please dont grave dig :D

Procedure MyFTWait(WaitTime: Integer);
  // Accurate in 70ms.
Var
   Time: Integer;
Begin
  Time := GetSystemTime;
  Wait(WaitTime Div 10);
  While GetSystemTime - Time < (WaitTime - (WaitTime Div 10)) Do
  Begin
    Wait(47);
    FindTalk;
    SolveChatRandom;
    ClickContinue(True, True);
  End;
End;

This is a wait where you put in milliseconds to wait.
Accurate in 70 ms.

looks good pm me when its ready