Results 1 to 8 of 8

Thread: Draynor Willower Beta

  1. #1
    Join Date
    Dec 2011
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Draynor Willower Beta

    Deleted.
    Last edited by lollerohrs; 05-09-2012 at 05:01 PM.

  2. #2
    Join Date
    Nov 2011
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not that it matters for this script as its only 2 or so points, but for longer walking paths you could use

    Simba Code:
    InvertTPA(WalkToWillows);

    to walk back to the bank from where ever you walked to i believe.

  3. #3
    Join Date
    Dec 2011
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by bam92992 View Post
    not that it matters for this script as its only 2 or so points, but for longer walking paths you could use

    Simba Code:
    InvertTPA(WalkToWillows);

    to walk back to the bank from where ever you walked to i believe.
    Alright thank you.

  4. #4
    Join Date
    Feb 2012
    Location
    SRL Jail
    Posts
    1,319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This script is an exact copy of Blake 1012's Draynor Powercutter

    Here's "yours":
    Simba Code:
    program DraynorPowerCutter;
    {$DEFINE SMART}
    {$i SRL/srl.simba}
    {$i sps/sps.simba}

      {*====================================================================

          Draynor Willower BETA

          Version Release Date: 09/03/2012

          Author: lollerohrs

          Support: PM ME!


        Changelog:

          09/03/2012 - Released

      ====================================================================*}


     -------------------------------------------------------------------------
      const
        TREE_TO_CUT = 'Willow'; // You don't need to change this.
        SIGNED_APPLET = True;

        { The options below are the most important }

        PLAYER_BANK_PIN = '';     // Your RuneScape Bankpin
        IS_MEMBER = true;         // True for P2P, False for F2P
        S_WORLD = 38;             // Choose your world (38 is not memb.)

      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

      Var
      Logs_Chopped: Integer;
      EXP_Gained: Integer;

      Procedure DeclarePlayers;
        begin
          HowManyPlayers := 1;
          NumberOfPlayers(HowManyPlayers);
          CurrentPlayer := 0;

          { ====================== PLAYER INFO! ====================== }
          Players[0].Name := '';   // Enter your username or email here
          Players[0].Pass := '';    // Enter your password.
          Players[0].Nick := '';          // Any 3-4 letter from your username. (op)
          { ====================== PLAYER INFO! ====================== }

          Players[0].Active := True;
          Players[0].BoxRewards := ['Xp',];
        end;


        Procedure AntiBan;
          begin
            if(not(LoggedIn)) then Exit;
            Case Random(250) of

            0:
              begin
                WriteLn('AntiBan Enabled');
                RandomRClick;
              end;

            10:
              begin
                WriteLn('AntiBan Enabled');
                HoverSkill('Woodcutting', false);
                wait(1634+Random(2169));
              end;

            30:
              begin
                WriteLn('AntiBan Enabled');
                PickUpMouse;
              end;

            40:
              begin
                WriteLn('AntiBan Enabled');
                MakeCompass('N');
                  wait(100+random(433));
                MakeCompass('S');
                  wait(50+random(124));
                MakeCompass('N');
                FindNormalRandoms;
              end;

              50:
                begin
                  WriteLn('AntiBan Enabled');
                  ExamineInv;
                end;

            end;
          end;

        procedure AntiRandoms;
          begin
            FindNormalRandoms;
            LampSkill := 'woodcutting';
            LevelUp;
          end;


          Procedure WalkToWillows;
          Var
          walkTree:TPointArray;

          begin
            SPS_Setup(RUNESCAPE_SURFACE,['10_9','11_9','11_8','9_8','9_9']);
            walkTree := [Point(4186, 3668), Point(4184, 3645), Point(4151, 3721)];
            SPS_WalkPath(walkTree);
          end;

        Procedure WalkToBank;
        Var
          walkBank:TPointArray;

        begin
          SetupSRL;
          SPS_Setup(RUNESCAPE_SURFACE,['10_9','11_9','11_8','9_8','9_9']);
          walkBank := [Point(4152, 3698), Point(4202, 3685)];
          SPS_WalkPath(walkBank);
        end;

        Procedure bankLogs;

          begin
          if(InvFull) then
          begin

            WriteLn('Inventory full, Banking');

            OpenBankFast('db');
              WriteLn('Depositing ' + TREE_TO_CUT + ' logs.');

            if(PinScreen) then
              WriteLn('Entering Bank PIN: ' + PLAYER_BANK_PIN + '.');
              InPin(PLAYER_BANK_PIN);

            if(BankScreen) then
              DepositAll;
              Logs_Chopped := Logs_Chopped + 28;
              EXP_Gained  := EXP_Gained + 1890;
              WriteLn('Deposited ' + TREE_TO_CUT + ' logs.');
              WriteLn('Closing Bank');
              WriteLn('Chopped: ' + IntToStr(Logs_Chopped));
              WriteLn('EXP: ' + IntToStr(EXP_Gained));

            CloseBank;
              WriteLn('Getting Walk Path');
              Wait(2000 + Random(1500));
              WriteLn('Found Walk Path');
              Wait(1000 + Random(300));
              WriteLn('Walking To Willows');

              end;
            end;

        Procedure checkFullInv;
        begin
          if(InvFull) then
            begin
              WriteLn('Inventory Full, lets bank :)');
              WalkToBank;
              Wait(1000 + Random(1500));
              WriteLn('Found Bank');
              bankLogs;
              WalkToWillows;
            end;
        end;

        Procedure treeChop;
        var x, y: integer;
        begin
        if not LoggedIn then Exit;

        if(InvFull) then exit;
            repeat
              if FindObj(x, y, 'hop', 3491141, 10) then
                Mouse(x, y, 1, 1, false);
                ChooseOption('hop');

              repeat
                wait(1200+random(450));
                AntiBan;
                AntiRandoms;
                checkFullInv;
                Until not(IsUpText('Willow')or(InvFull))
              until(InvFull);
        end;


    begin
      Smart_Server := WORLD;
      Smart_Members := MEMBER;
      Smart_SuperDetail := False;
      Smart_Signed := SIGNED_APPLET;
      ClearDebug;

      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;

      Logs_Chopped := 0;
      EXP_Gained := 0;

      ClearDebug;
        welcomeMsg;

      repeat
          WalkToWillows;
          treeChop;
          WalkToBank;
          bankLogs;
      until (Logs_Chopped >= 99999999999999999999999999999);

    end.

    Here's Blake's:
    Simba Code:
    program DraynorPowerCutter;
    {$DEFINE SMART}
    {$i SRL/srl.simba}
    {$i sps/sps.simba}

      {*====================================================================

          Draynor PowerCutter v1.2 BETA

          Version Release Date: 11/02/2012

          Author: Blake2012

          Support: [url]http://villavu.com/forum/showthread.php?t=74584[/url]

          This is a work in progress and may/may not function correctly.
                Please keep checking the thread for more updates.
                                Let a guy learn.

        Changelog:

          09/02/2012 - Basics done. i.e, Chopping, AntiBan and AntiRandoms
          09/02/2012 - Cleaned up script.
          09/02/2012 - Added more AntiRandom support.
          10/02/2012 - Added banking support.
          10/02/2012 - Added dropping support.
          10/02/2012 - Took out dropping support.
          11/02/2012 - Banking Fixed, bug stopped it from banking after so long.

      ====================================================================*}


      { ====================== IMPORTANT! ====================== }
      const
        TREE_TO_CUT = 'Willow'; // You don't need to change this.
        SIGNED_APPLET = True;

        { The options below are the most important }

        PLAYER_BANK_PIN = '';     // If you have a bank pin, enter it here
        IS_MEMBER = false;         // True for P2P, False for F2P
        S_WORLD = 108;             // Choose preffered world (38 is F2P)

      { ====================== IMPORTANT! ====================== }

      Var
      Logs_Chopped: Integer;
      EXP_Gained: Integer;

      Procedure DeclarePlayers;
        begin
          HowManyPlayers := 1;
          NumberOfPlayers(HowManyPlayers);
          CurrentPlayer := 0;

          { ====================== PLAYER INFO! ====================== }
          Players[0].Name := 'the asasin34';   // Enter your login here
          Players[0].Pass := 'maarten';    // Enter your password here.
          Players[0].Nick := '';          // Any 3-4 letter from your username.
          { ====================== PLAYER INFO! ====================== }

          Players[0].Active := True;
          Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
        end;



         {*====================================================================
          ====================================================================

                    STOP WHERE YOU ARE! DO NOT GO ANY FURTHER.
                    Well, you can go further. Just don't edit anything,
                    otherwise you may cause the script to malfunction and
                    not work.

                    Only edit below if you are 100% sure you anow what
                    you're doing.

          ====================================================================
          ====================================================================*}



            { Seriously, stop. }



        Procedure welcomeMsg;
        begin

          WriteLn('*********************************************************');
          WriteLn('*                                                       *');
          WriteLn('*           Draynor Powercutter v1.2 BETA               *');
          WriteLn('*                   By Blake2012                        *');
          WriteLn('*   [url]http://villavu.com/forum/showthread.php?p=922517[/url]    *');
          WriteLn('*                                                       *');
          WriteLn('*                                                       *');
          WriteLn('*[*] Cuts Willows from Drayor                        *');
          WriteLn('*[*] Banks Willows, with PIN Support                 *');
          WriteLn('*[*] AntiBan - Ban Protection                        *');
          WriteLn('*[*] AntiRandoms - Random Event Protection           *');
          WriteLn('*[*] Easy to set-up and use                          *');
          WriteLn('*                                                       *');
          WriteLn('*    This is my first ever script, so please dont       *');
          WriteLn('*    be too harsh on me, Let a guy learn.               *');
          WriteLn('*                                                       *');
          WriteLn('*                                                       *');
          WriteLn('*********************************************************');

        end;

        Procedure AntiBan;
          begin
            if(not(LoggedIn)) then Exit;
            Case Random(250) of

            0:
              begin
                WriteLn('AntiBan Enabled - Randomized Human Action');
                RandomRClick;
              end;

            10:
              begin
                WriteLn('AntiBan Enabled - Randomized Human Action');
                HoverSkill('Woodcutting', false);
                wait(1634+Random(2169));
              end;

            30:
              begin
                WriteLn('AntiBan Enabled - Randomized Human Action');
                PickUpMouse;
              end;

            40:
              begin
                WriteLn('AntiBan Enabled - Randomized Human Action');
                MakeCompass('N');
                  wait(100+random(433));
                MakeCompass('S');
                  wait(50+random(124));
                MakeCompass('N');
                FindNormalRandoms;
              end;

              50:
                begin
                  WriteLn('AntiBan Enabled - Randomized Human Action');
                  ExamineInv;
                end;

            end;
          end;

        procedure AntiRandoms;
          begin
            FindNormalRandoms;
            LampSkill := 'woodcutting';
            LevelUp;
          end;


          Procedure WalkToWillows;
          Var
          walkTree:TPointArray;

          begin
            SPS_Setup(RUNESCAPE_SURFACE,['10_9','11_9','11_8','9_8','9_9']);
            walkTree := [Point(4186, 3668), Point(4184, 3645), Point(4151, 3721)];
            SPS_WalkPath(walkTree);
          end;

        Procedure WalkToBank;
        Var
          walkBank:TPointArray;

        begin
          SetupSRL;
          SPS_Setup(RUNESCAPE_SURFACE,['10_9','11_9','11_8','9_8','9_9']);
          walkBank := [Point(4152, 3698), Point(4202, 3685)];
          SPS_WalkPath(walkBank);
        end;

        Procedure bankLogs;

          begin
          if(InvFull) then
          begin

            WriteLn('Inventory full, Banking');

            OpenBankFast('db');
              WriteLn('Depositing ' + TREE_TO_CUT + ' logs.');

            if(PinScreen) then
              WriteLn('Entering Bank PIN: ' + PLAYER_BANK_PIN + '.');
              InPin(PLAYER_BANK_PIN);

            if(BankScreen) then
              DepositAll;
              Logs_Chopped := Logs_Chopped + 28;
              EXP_Gained  := EXP_Gained + 1890;
              WriteLn('Deposited ' + TREE_TO_CUT + ' logs.');
              WriteLn('Closing Bank');
              WriteLn('Logs Chopped: ' + IntToStr(Logs_Chopped));
              WriteLn('Gained EXP: ' + IntToStr(EXP_Gained));

            CloseBank;
              WriteLn('Getting Walk Path');
              Wait(2000 + Random(1500));
              WriteLn('Found Walk Path');
              Wait(1000 + Random(300));
              WriteLn('Walking to Willows');

              end;
            end;

        Procedure checkFullInv;
        begin
          if(InvFull) then
            begin
              WriteLn('Inventory Full, finding bank path...');
              WalkToBank;
              Wait(1000 + Random(1500));
              WriteLn('Found Bank, Walking to bank...');
              bankLogs;
              WalkToWillows;
            end;
        end;

        Procedure treeChop;
        var x, y: integer;
        begin
        if not LoggedIn then Exit;

        if(InvFull) then exit;
            repeat
              if FindObj(x, y, 'hop', 3491141, 10) then
                Mouse(x, y, 1, 1, false);
                ChooseOption('hop');

              repeat
                wait(1200+random(450));
                AntiBan;
                AntiRandoms;
                checkFullInv;
                Until not(IsUpText('illow')or(InvFull))
              until(InvFull);
        end;


    begin
      Smart_Server := S_WORLD;
      Smart_Members := IS_MEMBER;
      Smart_SuperDetail := False;
      Smart_Signed := SIGNED_APPLET;
      ClearDebug;

      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;

      Logs_Chopped := 0;
      EXP_Gained := 0;

      ClearDebug;
        welcomeMsg;

      repeat
          WalkToWillows;
          treeChop;
          WalkToBank;
          bankLogs;
      until (Logs_Chopped >= 5000);

    end.

    Would a Mod or Dev please see to this?

  5. #5
    Join Date
    Jan 2012
    Location
    i am the monster under yo bed!!
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    noob this isn't your script

    ...

    any admin close this thread and ban him?
    Last edited by Markus; 04-16-2012 at 11:15 AM.
    holysin's Draynor Willow PowerChopper

    http://villavu.com/forum/showthread.php?t=74607

  6. #6
    Join Date
    Feb 2012
    Location
    SRL Jail
    Posts
    1,319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I've done some good for this community.. I mean
    BanMaster

  7. #7
    Join Date
    Jan 2012
    Location
    i am the monster under yo bed!!
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i completely agree with you joe.
    holysin's Draynor Willow PowerChopper

    http://villavu.com/forum/showthread.php?t=74607

  8. #8
    Join Date
    Dec 2011
    Posts
    134
    Mentioned
    1 Post(s)
    Quoted
    20 Post(s)

    Default

    lmao even as someone with no scripting knowledge, i can see you've just copy&pasted Blake's script and changed a few things like 'illow' to 'Willow'
    not even subtle mate

Thread Information

Users Browsing this Thread

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

Posting Permissions

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