Results 1 to 14 of 14

Thread: Moon 111's Auto Willow Choper N Droper V0.5

  1. #1
    Join Date
    Oct 2006
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Moon 111's Auto Willow Choper N Droper V0.53

    Moon 111's Auto Willow Choper N Droper V0.53

    Features:
    Chops, Drops, And MUCH MUCH MORE!

    Future Features:
    MultiUsers

    Bugs:
    None Yet!

    Please post proggys, bugs, comments or anything else!

    And Now - The part you've all been waiting for - THE SCRIPT!
    SCAR Code:
    //--------------------------------------------------------------------//
    //------------- Moon 111's Auto Choper And Droper V0.53 --------------//
    //--------------------------------------------------------------------//
    //----------------    Requires: SRL 3.81 or better   -----------------//
    //----------------    and SCAR DIVI 3.11 or better   -----------------//
    //--------------------------------------------------------------------//
    //----------------   Special thanks to the SRL team! -----------------//
    //--------------------------------------------------------------------//
    //---------------- Instructions: Go to any place     -----------------//
    //---------------- that has willows (I suggest the   -----------------//
    //---------------- willows over crafting guild)      -----------------//
    //---------------- dont weild axe put it in your     -----------------//
    //---------------- first inv spot. dont take anythin -----------------//
    //---------------- but an axe.                       -----------------//
    //--------------------------------------------------------------------//
    //---------------- Future Features: MultiUser        -----------------//
    //--------------------------------------------------------------------//
    //---------------- Extra Features: AntiRandoms       -----------------//
    //--------------------------------------------------------------------//
    //---------------- Please post bugs and proggys at:  -----------------//
    //---- http://www.villavu.com/forum/showthread.php?t=14732 ----//
    //--------------------------------------------------------------------//

    program New;

    {.include SRL/SRL.scar}
    {.include srl\srl\skill\WoodCutting.scar}
    {.include srl\srl\skill\Fighting.scar}
    {.include SRL/SRL/Misc/Playerform.scar}

    var
       TreeColor1,TreeColor2,TreeColor3,Loads,LoadsToDo,Ents,a,b:integer;

    procedure Vars;
    begin
         //--------------------- Setup ---------------------//
         TreeColor1 := 4616056; // Color of tree 1
         TreeColor2 := 4682363; // Color of tree 2
         TreeColor3 := 4221040; // Color of tree 3
         LoadsToDo := 9999999; // Loads to do before ending script. If you want it to run until
                               // you tell it to stop write a huge number like 999999999999999999
         //------------------- End Setup -------------------//
    end;

    procedure Progress;
    var
       H,M,S,TimeRunningA:integer;
    begin
         TimeRunningA := GetTimeRunning;
         ConvertTime(TimeRunningA, H, M, S);
         Writeln(' ');
         Writeln(' ');
         Writeln(' ');
         Writeln('-=-=-=-=-=-=-=-=- Progress Report -=-=-=-=-=-=-=-=-');
         Writeln('Loads: ' + IntToStr(Loads));
         Writeln('Time running: ' + IntToStr(H) + ' hours ' + IntToStr(M) + ' mins and ' + IntToStr(S) + ' secs');
         Writeln('Ents found: ' + IntToStr(Ents));
         Writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
    end;

    function MyFindEnt:boolean;
    var
       xa,ya:integer;
    begin
         MMouse(a, b, 2, 2);
         if(IsUpText('Chop'))then
         begin
              if(FindColor(xa, ya, 65535, x + 70, y, x + 100, y + 10)) then
              begin
                   Writeln('Found Ent! Running Away...');
                   RunAwayDirection('N');
                   Wait(400 + random(300));
                   RunBack;
                   Ents := Ents + 1;
                   Result := True;
              end else
              begin
                   Result := False;
              end;
         end else
         begin
              Result := False;
         end;
    end;

    function Randoms:Boolean;
    var
       c:integer;
       Return:boolean;
    begin
         if(InFight)then
         begin
              RunAwayDirection('N');
              repeat
                    c := c + 1;
                    if(InFight)then
                    begin
                         RunAwayDirection('N');
                         c := 1;
                         Wait(2000 + random(5000));
                         RunBack;
                    end;
                    Wait(300 + random(400));
              until(c = 20)
              Wait(3000 + random(4000));
              RunBack;
              Return := True;
         end;
         if(FindNormalRandoms)then
           Return := True;
           Wait(400 + Random(300));
         if(MyFindEnt)then // I think its the same color as the one I use to find trees to cut.
           Return := True;
           Wait(400 + Random(300));
         if(FindHead)then
           Return := True;
           Wait(400 + Random(300));
         if(FindNewBox)then
           SolveBox;
           Wait(400 + Random(300));
         Wait(400 + Random(300));

         if(Return)then
         begin
           Result := True;
         end else
           Result := False;
         Wait(300 + Random(700));
    end;

    procedure Drop;
    var
       c:integer;
    begin
         if(InvFull)then
         begin
              c := 1;
              repeat
                    c := c + 1;
                    DropItem(c);
                    if(c = 15)then
                      Randoms;
                    Wait(150 + Random(200));
              until(c = 28)
              Loads := Loads + 1;
              Progress;
         end;
    end;

    procedure Chop;
    var
       cx,cy,c,d,Rand:integer;
    begin
         Rand := Random(3);
         if(FindObj(cx, cy, 'Wil', TreeColor1, 10000))then
         begin
              if(IsUpText('Chop'))then
              begin
                   a := cx;
                   b := cy;
                   Mouse(cx, cy, 2, 2, true);
                   repeat
                         d := d + 1;
                         c := c + 1;
                         if((InvFull) OR (PopUp('ontinue')))then
                           Exit;
                         Wait(500 + random(1250));
                         if(Random(2) = 1)then
                           Randoms;
                         Wait(500 + random(1250));
                         MMouse(cx, cy, 2, 2);
                         if(not(IsUpText('illow')))then
                           Exit;
                         if(d + Rand = 7)then
                         begin
                              d := 0;
                              Mouse(cx, cy, 2, 2, true);
                         end;
                   until(c = 15)
              end;
         end else
         begin
              if(FindObj(cx, cy, 'Wil', TreeColor2, 10000))then
              begin
                   if(IsUpText('Chop'))then
                   begin
                        a := cx;
                        b := cy;
                        Mouse(cx, cy, 2, 2, true);
                        repeat
                              c := c + 1;
                              if((InvFull) OR (PopUp('ontinue')))then
                                Exit;
                              Wait(500 + random(1250));
                              Randoms;
                              Wait(500 + random(1250));
                              MMouse(cx, cy, 2, 2);
                              if(not(IsUpText('illow')))then
                                Exit;
                              if(d + Rand = 7)then
                              begin
                                   d := 0;
                                   Mouse(cx, cy, 2, 2, true);
                              end;
                        until(c = 15)
                   end;
              end else
              begin
                   if(FindObj(cx, cy, 'Wil', TreeColor3, 10000))then
                   begin
                        if(IsUpText('Chop'))then
                        begin
                             a := cx;
                             b := cy;
                             Mouse(cx, cy, 2, 2, true);
                             repeat
                                   c := c + 1;
                                   if((InvFull) OR (PopUp('ontinue')))then
                                     Exit;
                                   Wait(500 + random(1250));
                                   Randoms;
                                   Wait(500 + random(1250));
                                   MMouse(cx, cy, 2, 2);
                                   if(not(IsUpText('illow')))then
                                     Exit;
                                   if(d + Rand = 7)then
                                   begin
                                        d := 0;
                                        Mouse(cx, cy, 2, 2, true);
                                   end;
                             until(c = 15)
                        end;
                   end;
              end;
         end;
    end;

    procedure Logged;
    begin
         if(not(LoggedIn))then
         begin
              LoginPlayer;
              Writeln('Logging in...');
         end;
    end;

    procedure SetupScript;
    begin
         SetUpSRL;
         SetupPlayers;
         ActivateClient;
         Vars;
         Logged;
    end;

    begin
         SetupScript;
         repeat
               Chop;
               Drop;
               Randoms;
         until(Loads = LoadsToDo)
    end.

    Happy Scripting!

  2. #2
    Join Date
    Oct 2006
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

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

    Default

    Mine doesnt work my SCAR freezes up once i run the script. Please help im up to date with all the downloads with scar and im trying to cut over crafting guild.

  4. #4
    Join Date
    Oct 2006
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It might slow down a bit but it should work after a second. Fill out the form and wait it should work.

  5. #5
    Join Date
    Aug 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have a question about the form what does it mean bye location?

  6. #6
    Join Date
    Jul 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im gona try it out but, if it doesnty work when it comes down to the banking what should i do?

  7. #7
    Join Date
    Oct 2006
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    "Moon 111's Auto Willow Choper N Droper" what banking?

  8. #8
    Join Date
    Apr 2007
    Location
    new zealand
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks good gonna try wats ur best progress report so far

    also would you be intrested in teamming up and making a scripts with me

  9. #9
    Join Date
    Aug 2007
    Location
    bc
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looking forward to trying it out looks like a good one.

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

    Default

    Ok, I'm verrry new to this stuff and need HELP!!!!

  11. #11
    Join Date
    Aug 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yo Moon It Keep Saying error in Line 32 What Should I Do???

  12. #12
    Join Date
    Feb 2008
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I keep getting this error
    Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\Misc\Playerform.scar does not exist.

    Help please

  13. #13
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ryanbaron View Post
    I keep getting this error
    Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\Misc\Playerform.scar does not exist.

    Help please
    Dont be gravedigger please

  14. #14
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, its not an "advanced" script, but its pretty good for... - Your seconds script? Good-job, and keep up the good work.

    Also, if you need some help, maybe you can check out my power-chopper, and see if you can learn something from it, but if you take something from the script, please give me credit .
    Woot woot.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My willow power choper
    By dallas574 in forum OSR Help
    Replies: 2
    Last Post: 07-25-2008, 02:31 PM
  2. Moon 111's Anything AutoBuyer V1
    By moon 111 in forum RS3 Outdated / Broken Scripts
    Replies: 23
    Last Post: 10-24-2007, 09:22 PM
  3. Need willow droper.
    By boooobz in forum RS3 Outdated / Broken Scripts
    Replies: 28
    Last Post: 08-16-2007, 02:36 AM
  4. Replies: 0
    Last Post: 08-04-2007, 06:50 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
  •