Results 1 to 21 of 21

Thread: Second Script oak cutter and banker

  1. #1
    Join Date
    Mar 2007
    Location
    Maryland, USA
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Second Script oak cutter and banker

    Hello, I made an oak cutter and banker. Hope you like it and post errors or bugs
    MSN - pyro_dudes@hotmail.com

    EDIT: New version 2.0

    SCAR Code:
    /////////////////////////////////////////////////////////////////////////
    //                                                                     //
    //                          Script Info                                //
    //                  Name: Oak Cutter and Banker 1000                   //
    //                  Author: 71runemaker                                //
    //                  Version: 2.0                                       //
    //                  SCAR Version: 2.03+                                //
    //                  SRL Version: Tested with 3.7                       //
    //                  Description: Cuts and banks a full load of Oak     //
    //                               In Varrock and banks its              //
    //                                                                     //
    //                           *UPDATE HISTORY*                          //
    //                  Version 1.0                                        //
    //                  First Release                                      //
    //                                                                     //
    //                  Version 1.1                                        //
    //                  Improved walking to oaks                           //
    //                  Added Ent finder                                   //
    //                  Added axe head finder                              //
    //                  More anti-ban                                      //
    //                                                                     //
    //                  Version 1.2                                        //
    //                  Multiplayer working                                //
    //                  Added failsafe (sorta)                             //
    //                  Fixed open bank procedure                          //
    //                                                                     //
    //                  Version 2.0                                        //
    //                  Fixed walking to oaks                              //
    //                  Won't quit after you cut oaks                      //
    //                                                                     //
    //                                                                     //
    //                                                                     //
    /////////////////////////////////////////////////////////////////////////

    program OakCutterAndBanker;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}

    var
     i: Integer;

    ////////////////////////////////Setup////////////////////////////////////
                                                                           //
    const TreeColor1 = 3168336; //Color of Oak Tree                        //
    const TreeColor2 = 2900024; //Another color of Oak Tree                //
    const TreeColor3 = 2504752; //Another color of Oak Tree                //
    const MMTree = 1068840; //Color of trees on minimap                    //
    const RoadMM = 6186343; //Color of road on minimap                     //
    const GrassC = 2907485; //Color of grass on MainScreen                 //
    const GrassCMM = 2119764; //Color of grass near trees MiniMap          //
    const BankMini = 2245193; //Color of bank floor on MiniMap             //
    const BankColor1 = 3560029; //Color of bank floor on MainScreen        //
    const Wait1 = 3000; //Time to wait before clicking tree again          //
    const Loads = 2; //Load want to do before switching characters         //
                                                                           //
    //////////////////////////////////End////////////////////////////////////

    procedure DeclarePlayers;

    begin
         HowManyPlayers  :=6;               // How many players are you using?
         NumberOfPlayers(HowManyPlayers);
         CurrentPlayer:=0;                  // Starting Player

         Players[0].Name :='Username';
         Players[0].Pass :='Password';
         Players[0].Nick :='Nickname';
         Players[0].Active:=True;
         Players[0].Boolean1:=True;  //True if you can weild axe, false if cannot

         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='Nickname';
         Players[1].Active:=False;
         Players[1].Boolean1:=True;  //True if you can weild axe, false if cannot

         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='Nickname';
         Players[2].Active:=False;
         Players[2].Boolean1:=True;  //True if you can weild axe, false if cannot

         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='Nickname';
         Players[3].Active:=False;
         Players[3].Boolean1:=True;  //True if you can weild axe, false if cannot

         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='Nickname';
         Players[4].Active:=False;
         Players[4].Boolean1:=True;  //True if you can weild axe, false if cannot

         Players[5].Name :='Username';
         Players[5].Pass :='Password';
         Players[5].Nick :='Nickname';
         Players[5].Active:=False;
         Players[5].Boolean1:=True;  //True if you can weild axe, false if cannot
    end;

    procedure NoBan;
     begin
      RandomRClick;
      PickUpMouse;
     end;

    procedure WalkToOaks;
    begin
     FindAxeHeadColor;
     RadialWalk( BankMini , 217, 577, 16, 0, 0);
     Flag;
     RadialRoadWalk( BankColor1, 217, 577, 16, 0, 0);
     Flag;
     RadialWalk( RoadMM , 231, 591, 60, 0, 0);
     Flag;
     RadialRoadWalk( RoadColor, 231, 591, 60, 0, 0);
     Flag;
     RadialWalk( GrassCMM , 208, 568, 31, 0, 0);
     Flag
     RadialRoadWalk( GrassC, 208, 568, 31, 0, 0);
    end;

    procedure CutOaks;
     begin
      MakeCompass ('N');
      repeat
       if (FindColor (x,y,TreeColor1,0,0,600,600)) and
          (FindColor (x,y,TreeColor2,0,0,600,600)) and
          (FindColor (x,y,TreeColor3,0,0,600,600)) and
          (IsUpText('Oak')) then
          Mouse(x,y,1,1,true);
          Wait(Wait1+random(1000));
          FindHead;
          FindEnt(TreeColor1);
          FindNormalRandoms;
       until (InvFull);
     end;

    procedure WalkToBank;
     begin
      RadialWalk( RoadMM , 58, 418, 62 ,0, 0);
      Flag;
      RadialRoadWalk(RoadColor, 58, 418, 62, 0, 0);
      Flag;
      RadialWalk( BankMini , 349, 709, 22, 0, 0);
      Flag;
      RadialRoadWalk(BankColor1, 349, 709, 22, 0, 0);
     end;

    procedure BankOaks;
     begin
      OpenBank3;
      DepositAll;
      CloseBank;
     end;

    begin
     SetupSRL;
      repeat
       WalkToOaks;
       CutOaks;
       WalkToBank;
       BankOaks;
      until(i>= Loads);
     repeat
     NextPlayer(false);
     until (false)
    end.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    You have to edit HowManyPlayers :=1; to how many players are true/false

    Besides that, looks okay from me.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Mar 2007
    Location
    Maryland, USA
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Did you test it?

  4. #4
    Join Date
    Jun 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    potential to become a great have u =)
    and nice job for a first script altho im a leecher i give credit when credit is due

  5. #5
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks pretty nice .
    Try adding a Report; Procedure.
    Even If You Are On Your Way, You Will Get Run Over If You Just Sit There.
    -ILikePie1995.

    My Best Script I Yet Made, Go Check It Out, Its In The Fighting Section. Look For UndeadKiller!

    GET FREE CASH!!!READ ALL ABOUT IT!!!
    http://www.AdPaid.com/ptr/pages/join...d=ilikepie1995

    JOIN AdPaid.Com NOW!!!ITS OWNAGE!!!
    http://www.AdPaid.com/ptr/pages/conf...d=ilikepie1995

  6. #6
    Join Date
    Jun 2007
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yea, looks nice but maybe some ent finding and axe head attacher?

  7. #7
    Join Date
    Mar 2007
    Location
    Maryland, USA
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Updated it version 1.1

  8. #8
    Join Date
    Mar 2007
    Location
    Maryland, USA
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    version 1.2 now

  9. #9
    Join Date
    Mar 2007
    Location
    Maryland, USA
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Updated again 2.0 now try it runs alot better

  10. #10
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very simple!
    Nice
    btw, whats difference about radialminimapwalk...?
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  11. #11
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice and keep up the work

  12. #12
    Join Date
    Mar 2007
    Location
    Maryland, USA
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hello, I'm back in the scripting mood. But, I need some help on some things. If anyone has any advice on my problems please email me or add me to MSN at pyro_dudes@hotmail.com. Thank you!

  13. #13
    Join Date
    Jul 2007
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the scripts using BOOLEAN don't work for some reason

  14. #14
    Join Date
    Nov 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    where do u suggest to run this at what oak trees?

  15. #15
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by runescapeautoer123 View Post
    the scripts using BOOLEAN don't work for some reason
    Its because the thread is sooooo old!. Please start reading the damn thread dates!!

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  16. #16
    Join Date
    Oct 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hello!

  17. #17
    Join Date
    Sep 2009
    Location
    netherlands
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im going to try it out right now

  18. #18
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    Outdated by 2 years.

    T~M

  19. #19
    Join Date
    Sep 2009
    Location
    netherlands
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yes u are right it dont works

  20. #20
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    Quote Originally Posted by appolo13 View Post
    yes u are right it dont works
    Stop spamming! OMG!

  21. #21
    Join Date
    Sep 2009
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks awesome gonna try

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. First script (Willow cutter/banker)
    By ZaSz in forum First Scripts
    Replies: 85
    Last Post: 03-10-2009, 01:27 AM
  2. al kharid smith-banker & draynor willow cutter-banker
    By rivon in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 01-03-2008, 09:51 AM
  3. Fetheroth's First Script Edge Ville Yew Cutter/Banker
    By Fetheroth in forum RS3 Outdated / Broken Scripts
    Replies: 50
    Last Post: 10-03-2007, 01:34 AM
  4. Second Script - Oak cutter and banker
    By 71runemaker in forum RS3 Outdated / Broken Scripts
    Replies: 8
    Last Post: 07-17-2007, 12:34 AM
  5. Looking for cutter and banker
    By incognito in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 03-17-2007, 08:54 AM

Posting Permissions

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