Results 1 to 12 of 12

Thread: A RadialRoad Walk from Lumbridge Bank to Yew tree in gravyard.

  1. #1
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default A RadialRoad Walk from Lumbridge Bank to Yew tree in gravyard.

    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.

    SCAR Code:
    //-----------------------------------------------------------//
    //                 >>>>>>>-: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.

  2. #2
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Ops i stuffed the code up

    EDITED**

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

  3. #3
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    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!
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  4. #4
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

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

  5. #5
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    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.


    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?

  6. #6
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by bobbohobbo View Post
    FTwait (4);
    It waits line 4 seconds is that right?
    No. FTWait(4) wait approx. 1 second, and performs 4 findtalks;
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  7. #7
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Oh now i get it, Ty Wt-Fakawki
    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.

  8. #8
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    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

  9. #9
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just throw in

    Var
    x,y : integer;

    somewhere near the beginning
    ~ Metagen

  10. #10
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

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

  11. #11
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    SCAR Code:
    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.



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  12. #12
    Join Date
    Jul 2007
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks good pm me when its ready

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Lumbridge...
    By Nadeem in forum OSR Help
    Replies: 12
    Last Post: 03-04-2009, 01:01 AM
  2. Replies: 6
    Last Post: 07-12-2007, 02:43 PM
  3. Replies: 0
    Last Post: 07-11-2007, 04:24 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •