Poll: How many loads does it do?

Results 1 to 25 of 25

Thread: Logz - A Draynor Willow Log cutter and banker.

  1. #1
    Join Date
    May 2007
    Location
    Seattle
    Posts
    1,069
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default Logz - A Draynor Willow Log cutter and banker.

    SEE MY LATEST SCRIPT! (this one doesnt work, basically, at all!)

    Here is the url:
    http://www.villavu.com/forum/showthr...=13213?t=14622




    Logz - A Draynor Willow Log cutter and banker.


    SRL 3.6 and SCAR 2.03


    Sorry everyone but a new version of Logz will not be coming out. Please check out my latest script! http://www.villavu.com/forum/showthread.php?t=12843


    Features:
    -MultiPlayer
    -AntiBan
    -AntiRandoms
    -Chops willow trees south of the Draynor bank, banks them, and repeats.


    This script is new and I just need a few people to help me out with adding more stuff to it. Please post how well the script ran.



    SCAR Code:
    {
          (C) Travis AKA Born2Code's scripts.

          Logz - A Draynor Willow Log cutter and banker.

          Designed for SCAR 2.03 with SRL 3.6.

          If you liked this script, be sure to give me a good rating on SRL-Forums!

          Features:
          -AntiBan
          -AntiRandoms
          -MultiPlayer
          -Fast Chopping procedure
          -An AWESOME name =]

          Soon to come features:
          -Axe Head Finding
          -ENT Finding
          -Broken Axe Replacing

          SETUP LINES 40-79

          Enjoy! Do not LEECH, COPY, or REDISTRIBUTE!

    }



    program Logz;
    {.include srl/srl.scar}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}

    var
    Loads,Tries,CutTime,AxeDTM: integer;

    const
    WillowTreeColor= 263943;//Color of the Tree
    AOL= 1;//Amount of loads
    WaitTime= 3;//Time between tree clicks (seconds)
    LoadTime= 2;//Max. time per load (minutes)

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 6;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := 'UserName';
      Players[0].Pass := 'Password';
      Players[0].Nick := '3-4 letters of UserName';
      Players[0].Active := True;

      Players[1].Name := 'UserName';
      Players[1].Pass := 'Password';
      Players[1].Nick := '3-4 letters of UserName';
      Players[1].Active := False;

      Players[2].Name := 'UserName';
      Players[2].Pass := 'Password';
      Players[2].Nick := '3-4 letters of UserName';
      Players[2].Active := False;

      Players[3].Name := 'UserName';
      Players[3].Pass := 'Password';
      Players[3].Nick := '3-4 letters of UserName';
      Players[3].Active := False;

      Players[4].Name := 'UserName';
      Players[4].Pass := 'Password';
      Players[4].Nick := '3-4 letters of UserName';
      Players[4].Active := False;

      Players[5].Name := 'UserName';
      Players[5].Pass := 'Password';
      Players[5].Nick := '3-4 letters of UserName';
      Players[5].Active := False;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure LoadDTM;
    begin
      AxeDTM := DTMFromString('78DA63E4646060E0634001514E1C609A11CA6' +
           '7E401126CA86AB2037851D5B00309515435A1F6A8E600007D4802' +
           '54');
    end;

    procedure WalkTrees;
    begin
      if(not(LoggedIn)) then Exit;
      MakeCompass('N');
      RadialRoadWalk(FindWaterColor,228,178,70,2,2);
      Wait(2550+random(550));
      FFlag(0);
    end;

    procedure WalkBank;
    begin
      if(not(LoggedIn)) then Exit;
      MakeCompass('N');
      if(not(FindSymbol(x,y,'bank'))) then
        begin
          Tries:=0
          repeat
            Wait(500+random(500));
            if(Tries=25) then break;
            Tries:=Tries+1
          until FindSymbol(x,y,'bank');
        end;
      Mouse(x,y,2,2,true);
      Wait(2550+random(550));
      FFlag(0);
    end;

    procedure Chop;
    begin
      if(not(LoggedIn)) then Exit;
        if(not(FindObj(x,y,'illow',WillowTreeColor,10))) then
        begin
          Tries:=0
          repeat
            Wait(345+random(634));
            if(Tries=25) then
            begin
              Writeln('Couldnt find trees')
              NextPlayer(false)
            end;
            Tries:=Tries+1
          until FindSymbol(x,y,'fish');
        end;
        Mouse(x,y,3,4,true)
        Wait(WaitTime*1000+random(1550));
    end;

    procedure Bank;
    var I: Integer;
        TP: TPoint;
    begin
      if(not(LoggedIn)) then Exit;
      FFlag(0);
      Wait(2550+random(550));
      Writeln('Banking.')
      MakeCompass('W');
      KeyDown(VK_Down);
      Wait(1000+random(50));
      KeyUp(VK_Down);
      Repeat
        OpenBankGlass('db', false, false)
      Until(BankScreen);
      FFlag(0);
      wait(500 + random(500));
      FixBank;
      for I := 1 to 28 do
      begin
        TP := ItemCoords(I);
        if(ExistsItem(I))then
        begin
          if(not(FindDTM(AxeDTM,x,y,TP.x-25,TP.y-25,TP.x+25,TP.y+25)))then
          begin
            Mouse(x,y,2,2,false);
            ChooseOption(x,y,'All');
          end;
        end;
      end;
      CloseBank;
      Wait(1000+random(550));
      KeyDown(VK_Up);
      Wait(1000+random(50));
      KeyUp(VK_Up);
      Loads := Loads + 1
    end;




    procedure AntiBaning;
    begin
      if(not(LoggedIn))then
      Exit;
      case Random(20) of

        0,16,17,18: RandomRClickEvery(3 + Random(3));

        1: begin
             HoverSkill('Woodcutting', false);
             wait(1000+random(1000));
             GameTab(4);
           end;

        2: begin
             HoverSkill('Smithing', false);
             wait(4000+random(550));
             GameTab(4);
           end;

        3,4,5: RandomChatEvery(4 + Random(4));

        6,12: PickUpMouse;

        7: BoredEvery(10 + Random(5));

        8,14: begin
             GameTab(1 + Random(12));
             wait(1000+random(1000));
             GameTab(4);
           end;


        10: MouseBox(MMX1,MMY1,MMX2,MMY2,3);

        11: SleepAndMoveMouse(5000+random(6000));

        13,9: begin
             GameTab(2 + Random(12));
             wait(2000+random(1500));
             GameTab(4);
           end;


         15: begin
             GameTab(6 + Random(12));
             wait(1500+random(700));
             GameTab(4);
           end;
           
         19: begin
             HoverSkill('Defene', false);
             wait(4000+random(550));
             GameTab(4);
           end;

      end;
    end;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 9 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          9: RC;
        end;
        wait(1);
      end;
    end;


    procedure Randoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
    end;



    procedure Proggie;
    begin
      Writeln('\/_\/ \/_\/ \/_\/ \/_\/ \/_\/ \/_\/ \/_\/');
      Writeln('Thank you for using Logz!');
      Writeln('Cut approx. ' + IntToStr(Loads*28) + ' willow logs!');
      Writeln('Banked '+ IntToStr(Loads) + ' time(s)!');
      Writeln('Please post this proggie at http://www.villavu.com/forum/showthread.php?t=12658!');
      Writeln('/\_/\ /\_/\ /\_/\ /\_/\ /\_/\ /\_/\ /\_/\');
      Writeln('Script by: Travis AKA born2code!');
    end;

    procedure Start;
    begin
      LoadDTM;
      ClearReport;
      ClearDebug;
      ActivateClient;
    end;

    procedure Loop;
    begin
     Repeat
      HighestAngle;
      MakeCompass('N');
      WalkTrees;
       repeat
        MarkTime(CutTime);
        Randoms;
        AntiBaning;
        Chop;
       until(InvFull) or (TimeFromMark(CutTime) >= LoadTime*60000+random(60700));
      WalkBank;
      Bank;
      Proggie;
     Until (Loads=AOL);
     NextPlayer(True);
     Exit;
     Loads:=0;
    end;


    begin
      SetupSRL;
      Start;
      DeclarePlayers;
      Loads := 0
      DisguiseScar(IntToStr(Loads) + ' load(s).');
      Status(IntToStr(Loads) + ' load(s).');
      If(not(LoggedIn))then LoginPlayer;
      repeat
      If(not(LoggedIn))then NextPlayer(False);
      Loop;
      Until (False)
      ClearDebug;
      Proggie;
      DisguiseScar('Done!');
      Status('Done!');
    end.
    FORMERLY BORN2CODE | Play Internet Games
    http://img147.imageshack.us/img147/2084/sigg.png

  2. #2
    Join Date
    Jun 2007
    Location
    England
    Posts
    262
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    First Post w00t lol, will test now and post proggie.

    EDIT: Will not compile Line 326: [Error] (18373:1): Identifier expected in script. I'm using Scar 2.03 And SRL 3.6

  3. #3
    Join Date
    Jun 2007
    Location
    Minnesota
    Posts
    773
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Same problem with me

  4. #4
    Join Date
    May 2007
    Location
    Seattle
    Posts
    1,069
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    FIXED!
    FORMERLY BORN2CODE | Play Internet Games
    http://img147.imageshack.us/img147/2084/sigg.png

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

    Default

    Does it have to be those versions of Scar and SRL? Not the recently updated ones?

  6. #6
    Join Date
    May 2007
    Location
    Seattle
    Posts
    1,069
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Markeh1 View Post
    Does it have to be those versions of Scar and SRL? Not the recently updated ones?
    Yes it does. Go to freddy1990.com and download 2.03 with srl 3.6. When you are installing it, dont install it as Scar 2.03, say the name of it is Scar 2.03 2.

    But, if you dont understand what I am talking about:

    FORMERLY BORN2CODE | Play Internet Games
    http://img147.imageshack.us/img147/2084/sigg.png

  7. #7
    Join Date
    Jun 2007
    Location
    England
    Posts
    262
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OK, got it to compile ill post a proggy sometime tomoro.

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

    Default

    Doesn't work, Just gets out of range tbh \=
    Auto Correctly! If I see you autoing with a level 3 account, normal clothes, consider yourself reported. You have been warned!

    ^Dont be Retarded.

  9. #9
    Join Date
    Jan 2007
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i think not many ppl will use becouse most ppl got divi now maybe update to divi if u want more response

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

    Default

    ill check this script out tonight and see how it is

  11. #11
    Join Date
    May 2007
    Location
    Seattle
    Posts
    1,069
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I am no longer updating. Check out my new script. (look @ my sig!)
    FORMERLY BORN2CODE | Play Internet Games
    http://img147.imageshack.us/img147/2084/sigg.png

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

    Default

    Line 183: [Error] (14997:13): Unknown identifier 'RandomRClickEvery' in script C:\DOCUME~1\DENNIS~1\LOCALS~1\Temp\Woodcutting V0.5.scar

  13. #13
    Join Date
    May 2007
    Location
    Seattle
    Posts
    1,069
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Yugi View Post
    Line 183: [Error] (14997:13): Unknown identifier 'RandomRClickEvery' in script C:\DOCUME~1\DENNIS~1\LOCALS~1\Temp\Woodcutting V0.5.scar
    You are using SRL 3.8. You need to use 3.6
    FORMERLY BORN2CODE | Play Internet Games
    http://img147.imageshack.us/img147/2084/sigg.png

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

    Default

    doesnt work, logs in and does nothing

  15. #15
    Join Date
    May 2007
    Location
    Seattle
    Posts
    1,069
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by tatotato View Post
    doesnt work, logs in and does nothing
    Wow. Looks like someone is smart!

    There has been a game engine update and you have to change some files.

    I dont even update this script anymore. Don't bother posting.
    FORMERLY BORN2CODE | Play Internet Games
    http://img147.imageshack.us/img147/2084/sigg.png

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

    Default

    ah k man, what files should i change??

    **EDIT**
    figured it out, thanks for replying man

  17. #17
    Join Date
    Aug 2007
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ive upadted it ad im using divi 3.11 and 3.8.1 srl lol SCAR is like ACTOOL

  18. #18
    Join Date
    Jul 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do i work it, i neaver got how to work a script its not a error i got its that when i start it logged out it logs me in but once im in it does shit until i log back out and when i do it when im logged in it does the same thing.
    can somonepost how to work it plz.

  19. #19
    Join Date
    Aug 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lolz....

    I got something like.... Line 1:1= Expected "BEGIN" in line
    wtffff

  20. #20
    Join Date
    Aug 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I dont think really any script has worked for me....I only had one Varrok ess. miner...and it started me off....clicked down to aubrey....(w/e his name is..) It took like....1 minute to find him....teleported me to the mine....mined a grand total of 7 ess. and went back up to the bank....and didnt know what to do...the mouse just went in circles

    I guess scar just doesnt like me : ( lol

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

    Default

    k i tried and this poped up


    Include file C:\Program Files\SCAR 2.03\includes\srl/srl.scar does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL\Skill\Woodcutting.SCAR does not exist.
    Failed when compiling

  22. #22
    Join Date
    Aug 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very well done.

  23. #23
    Join Date
    Aug 2007
    Location
    bend down and ill show you!
    Posts
    210
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    please update its nice =]

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

    Default

    Stop bumping up OLD and DEAD threads.

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

  25. #25
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hi people!!!


    havent posted in 3 or so months, school kicked this site out of my mind **shoot me in the head**
    Originally Posted by YoHoJo
    I like hentai.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Draynor willow cutter and banker
    By bobng in forum First Scripts
    Replies: 26
    Last Post: 10-20-2008, 02:53 PM
  2. Draynor Willow Cutter + Banker?
    By Harry in forum RS3 Outdated / Broken Scripts
    Replies: 12
    Last Post: 01-05-2008, 07:37 PM
  3. 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
  4. SDB - Draynor Willow Cutter + Banker
    By Sebo in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 11-17-2007, 03:06 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
  •