Results 1 to 4 of 4

Thread: Need Help With My Willow Cutter (1st Script)

  1. #1
    Join Date
    May 2007
    Posts
    102
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help With My Willow Cutter (1st Script)

    Every now and again the script will just stop and then start again, yes basicly lag sometimes it even logs out its that bad

    Please help and here it is

    SCAR Code:
    {=========================================================================]
    [                      Draynor Willow Smasher                             ]
    [                                                                         ]
    [           NAME        : Draynor Willow Smasher                          ]
    [           WRITER      : Rune Killer                                     ]
    [           CATEGORY    : Woodcutting                                     ]
    [           DESCRIPTION : Chops willows in Draynor and banks them         ]
    [           USAGE       : Start in Draynor bank                           ]
    [           AUTOCOLOR   : No                                              ]
    [                                                                         ]
    [                   More Scripts can be found at                          ]
    [                       [url]www.Villu-Reborn.com[/url]                              ]
    [=========================================================================]
    [                           Instructions.                                 ]
    [=========================================================================]
    [ 1. USE Runescape with Low Detail, Very Bright.                          ]
    [ 2. Set your Screen to 32 bit TRUE color.                                ]
    [ 3. Set Playernames and Passwords                                        ]
    [ 4. Start script Logged Out / Logged in                                  ]
    [ 5. Have Axe in First inventoryslot or wielded and more in the bank      ]
    [ 6. Setup lines below                                                    ]
    [=========================================================================]
    [ Credits to :                                                            ]
    [  WT-Fakawi   --> For SRL + FindFastRandoms                              ]
    [=========================================================================}

    program Rune_Killers_Draynor_Willow_Smasher;
    {.include SRL/SRL.Scar}
    {.include SRL/SRL/Skill/Woodcutting.Scar}

    //****************************************************************************\\
    // CONSTANTS                                                                  \\
    //****************************************************************************\\
    Const
      RockColor = 5129539; //Color of the rock on the mini map
      WillowColor = 6449256; //Color of the willow
      WillowColorB = 2658424; //Diffrent Color of the willow
      WillowColorC = 2379840; //Diffrent Color of the willow
      WaitTime = 3000; //Time to wait before chopping again (In Miliseconds)
     
    //****************************************************************************\\
    // PLAYER SETUP                                                               \\
    //****************************************************************************\\
    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 6;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:=0;

      Players[0].Name :='Username';
      Players[0].Pass :='Password';
      Players[0].Nick :='sern';
      Players[0].Active:= True;

      Players[1].Name :='Username';
      Players[1].Pass :='Password';
      Players[1].Nick :='sern';
      Players[1].Active:= True;

      Players[2].Name :='Username';
      Players[2].Pass :='Password';
      Players[2].Nick :='sern';
      Players[2].Active:= True;

      Players[3].Name :='Username';
      Players[3].Pass :='Password';
      Players[3].Nick :='sern';
      Players[3].Active:= True;

      Players[4].Name :='Username';
      Players[4].Pass :='Password';
      Players[4].Nick :='sern';
      Players[4].Active:= True;

      Players[5].Name :='Username';
      Players[5].Pass :='Password';
      Players[5].Nick :='sern';
      Players[5].Active:= True;
    end;

    //****************************************************************************\\
    // LOGIN                                                                      \\
    //****************************************************************************\\
    Procedure Login;
    begin
    if(Not(loggedin))then
      LoginPlayer;
    end;

    //****************************************************************************\\
    // FIND FAST RANDOMS By WT-Fawki                                                                      \\
    //****************************************************************************\\
    function FindFastRandoms : Boolean;
    var i : integer;
    begin
      for i := 1 to 16 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then
              Result := True;
          11: if FindLamp(LampSkill) then
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;

          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
            16: if RC then
              Result := True;
        end;
        Wait(1);
      end;
    end;

    //****************************************************************************\\
    // FIND RANDOMS                                                               \\
    //****************************************************************************\\
    Procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
      FindTalk;
    if(FindEnt(WillowColor))or
      (FindEnt(WillowColorB))or
      (FindEnt(WillowColorC))then
      begin
        RunAwayDirection('N');
        Flag;
        Wait(5000 + random(1500));
        RunBack;
    end;
    end;

    //****************************************************************************\\
    // FIND THE WILLOWS                                                           \\
    //****************************************************************************\\
    Procedure Find_The_Willows;
    var x, y : integer;
    begin
    If(FindMMColor(x, y, RockColor))then
    begin
      MMouse(x, y, 1, 1);
      Mouse(x, y, 1, 1, true);
      Flag;
      Wait(200 + random(100));
    end;
    end;

    //****************************************************************************\\
    // FIND FISH SYMBOL                                                           \\
    //****************************************************************************\\
    Procedure Find_Fish_Symbol;
    var x, y : integer;
    begin
    if(FindSymbol(x, y, 'fish'))then
    begin
      MMouse(x, y, 1, 1);
      Mouse(x, y, 1, 1, true);
      Flag;
      Wait(500 + random(150));
    end;
    end;

    //****************************************************************************\\
    // CHOP THEM WILLOWS!                                                         \\
    //****************************************************************************\\
    Procedure Chop;
    var x, y : integer;
      Chopped : integer;
    begin
    repeat
    If(FindColorSpiralTolerance(x, y, WillowColor, 160, 97, 516, 209, 3))or
      (FindColorSpiralTolerance(x, y, WillowColorB, 160, 97, 516, 209, 3))or
      (FindColorSpiralTolerance(x, y, WillowColorC, 160, 97, 516, 209, 3))then
    begin
      MMouse(x, y, 1, 1);
    If(IsUpText('hop'))then
    begin
      Mouse(x, y, 1, 1, true);
      Wait(WaitTime +Random(500));
      FindRandoms;
      Chopped:= Chopped + 27;
    end;
    end;
    until(InvFull)
    end;

    //****************************************************************************\\
    // FIND BANK SYMBOL                                                           \\
    //****************************************************************************\\
    Procedure Find_Bank;
    var x, y : integer;
    begin
    if(FindSymbol(x, y, 'bank'))then
    begin
      MMouse(x, y, 1, 1);
      Mouse(x, y, 1, 1, true);
      Flag;
      Wait(200 + random(100));
    end;
    end;

    //****************************************************************************\\
    // BANK THEM WILLOWS!                                                         \\
    //****************************************************************************\\
    Procedure bank_Willows;
    begin
      OpenBank;
      FixBank;
      DepositAll;
      CloseBank;
      Wait(3000 + Random(300));
      MakeCompass('N');
    end;

    //****************************************************************************\\
    // PROGRESS REPORT                                                            \\
    //****************************************************************************\\
    Procedure Progress_Report;
    begin
      Writeln('Thanks For Using:');
      Writeln('Rune Killers Willow Chopper And Banker');
      Writeln('Worked For:' +ScriptTime2(2));
      Writeln('Chopped' +IntToStr(Chopped) +'willows');
    end;

    //****************************************************************************\\
    // MAIN LOOP                                                                  \\
    //****************************************************************************\\
    begin
      SetUpSRL;
      DeclarePlayers;
      Login;
      DisguiseScar('MSN Messenger');
    repeat
      FindRandoms;
      Find_The_Willows;
      Find_Fish_Symbol;
      Chop;
      Find_Bank;
      Bank_Willows;
      Progress_Report;
    Until(False);
    end.

  2. #2
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I don't kow the problem, but add some failsafes in there, if you don't know what those are ill teach you I just learnt them they are very helpful

  3. #3
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    Yes, add failsafe's and may I ask what the WaitTime is while chopping?
    Hup Holland Hup!

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

    Default

    The wait time is around 4 secs, and yes i would like your help please with failsafes

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. JAD Willow - edgevil willow cutter + banker.
    By JAD in forum RS3 Outdated / Broken Scripts
    Replies: 58
    Last Post: 10-08-2007, 05:11 PM
  3. Willow Cutter
    By sjf123abc in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 08-05-2007, 04:41 PM
  4. A Challenge for some One to Make A Barbarain Outpost willow cutter script
    By headonisgod in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 07-13-2007, 06:54 PM
  5. Best Willow Cutter?
    By Tazzie 02 in forum RS3 Outdated / Broken Scripts
    Replies: 11
    Last Post: 07-12-2007, 03:32 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
  •