Results 1 to 11 of 11

Thread: EWillows

  1. #1
    Join Date
    Feb 2013
    Location
    Canada
    Posts
    49
    Mentioned
    2 Post(s)
    Quoted
    13 Post(s)

    Default EWillows

    Welcome to EWillow v1.1

    Logs in player
    Chops Willows at draynor
    Banks Willows
    Anti-Ban


    Future Updates :
    Advanced willow log detection
    Multiple log support
    Multiple Location support
    FailSafes
    Progress report
    GUI
    Drop Logs


    V1 : Buggy, No anti-ban, no banking...

    V1.1 : Debugged, Added anti-ban, Banking @ draynor supported!

    Code:
    Program EWillowChopper;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$i sps/sps.simba}
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Member := False;
      Players[0].Active := True;
      Players[0].Pin := '';
    end;
    
    Procedure BankItems;
     begin;
      Writeln('Banking Items...');
      Depositall;
      Mouse(488, 42, 0, 0, true);
      wait(250+random(250));
     end;
    
     Procedure Welcome;
     begin;
     Writeln('Welcome to EWillows v1.1 by Ekarma!');
     Writeln('If you have any issues please report them here:');
     Writeln('http://villavu.com/forum/showthread.php?t=97292&p=1181017&posted=1#post1181017');
     Writeln('________________________________________________');
     end;
    
     procedure AntiBan;
    begin
      if(not(LoggedIn))then
      Exit;
      FindNormalRandoms;
      case Random(100) of
       0:
       begin
         HoverSkill('Woodcutting', false);
         wait(2400+Random(572));
       end;
       1: BoredHuman;
       2:
       begin
         MakeCompass('E');
         wait(100+random(125));
         MakeCompass('S');
         wait(50+random(133));
         MakeCompass('N');
         wait(50+random(123));
         MakeCompass('W');
       end;
      end;
    end;
    
     Procedure Woodcut;
     var x, y: integer;
    begin;
     MakeCompass('E');
     Writeln('Chopping willows!');
        Repeat
        wait(2500+random(500));
        FindNormalRandoms;
      if FindObj (x, y, 'illow', 3359298, 10) then
       begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('hop down');
       end;
        Repeat
        Antiban;
        wait(500+random(1000));
       Until not IsUpText('illow') or (InvFull);
      Until(InvFull);
     end;
    
    Procedure WalkToTrees;
    Var
      myPath:TPointArray;
    begin
      Writeln('Walking to willows!');
      SPS_Setup(RUNESCAPE_SURFACE,['10_9','10_8']);
      myPath := [Point(4164, 3625), Point(4164, 3613),
      Point(4153, 3611), Point(4141, 3611), Point(4140, 3622),
      Point(4140, 3629), Point(4140, 3637), Point(4137, 3643),
      Point(4136, 3649), Point(4135, 3659), Point(4139, 3666)];
      SPS_WalkPath(myPath);
    end;
    
    Procedure WalkToBank;
    Var
      myPath:TPointArray;
    begin
      Writeln('Inventory full! Walking to bank!');
      SPS_Setup(RUNESCAPE_SURFACE,['10_9','10_8']);
      myPath := [Point(4144, 3665), Point(4144, 3658),
      Point(4142, 3651), Point(4141, 3645), Point(4141, 3638),
      Point(4141, 3627), Point(4141, 3615), Point(4148, 3609),
      Point(4158, 3610), Point(4167, 3613), Point(4164, 3621),
      Point(4162, 3630)];
      SPS_WalkPath(myPath);
    end;
    
    
    Procedure ClickBanker;
    var x, y: integer;
    begin;
    MakeCompass('W');
    if FindObj (x, y, 'ank', 4873312, 5) then
       begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('ank');
        wait(3000+random(1500));
       end;
    end;
    
    
    Procedure Mainloop;
    begin;
    Repeat
    WoodCut;
    WalkToBank;
    ClickBanker;
    BankItems;
    WalkToTrees;
    Until(false);
    end;
    
    begin //Don't Touch this...
    SetupSRL;
    DeclarePlayers;
    LoginPlayer;
    ClearDebug;
    Welcome;
    Mainloop;
    end.
    ***Please keep in mind this is my first script***

    -----------------------//****Download here!****//-----------------------
    EWillows v1.1.simba
    -----------------------//****Download here!****//-----------------------

    Attached Files Attached Files
    Last edited by Ekarma; 03-01-2013 at 04:04 AM.

  2. #2
    Join Date
    Oct 2012
    Posts
    758
    Mentioned
    6 Post(s)
    Quoted
    282 Post(s)

    Default

    EDIT: Okay, so I looked through it anyway.

    Suggestions:
    Progress report
    Anti-ban
    No static waits e.g. Wait(1000) << No No No. RandomRange(x,y) is your friend here!

    Congrats on script.

  3. #3
    Join Date
    Feb 2013
    Location
    Canada
    Posts
    49
    Mentioned
    2 Post(s)
    Quoted
    13 Post(s)

    Default

    Quote Originally Posted by Runehack123 View Post
    EDIT: Okay, so I looked through it anyway.

    Suggestions:
    Progress report
    Anti-ban
    No static waits e.g. Wait(1000) << No No No. RandomRange(x,y) is your friend here!

    Congrats on script.
    Ahhh, okay thanks! Ill get working on that

  4. #4
    Join Date
    Oct 2012
    Posts
    758
    Mentioned
    6 Post(s)
    Quoted
    282 Post(s)

    Default

    Is the willow colour finding working alright for you the way it is now?

  5. #5
    Join Date
    Feb 2013
    Location
    Canada
    Posts
    49
    Mentioned
    2 Post(s)
    Quoted
    13 Post(s)

    Default

    Quote Originally Posted by Runehack123 View Post
    Is the willow colour finding working alright for you the way it is now?
    It is working, however not as efficiently as I would like it to... Any suggestions?

  6. #6
    Join Date
    Oct 2012
    Posts
    758
    Mentioned
    6 Post(s)
    Quoted
    282 Post(s)

    Default

    Read this TuT on Wizzy Plugin
    http://villavu.com/forum/showthread.php?t=49067

    Then look at SRL docs for more information.

    Just read some TuTs on TPA colour finding.

  7. #7
    Join Date
    Feb 2013
    Location
    Canada
    Posts
    49
    Mentioned
    2 Post(s)
    Quoted
    13 Post(s)

    Default

    Quote Originally Posted by Runehack123 View Post
    Read this TuT on Wizzy Plugin
    http://villavu.com/forum/showthread.php?t=49067

    Then look at SRL docs for more information.

    Just read some TuTs on TPA colour finding.
    Okay, thanks!

  8. #8
    Join Date
    Feb 2013
    Location
    Canada
    Posts
    49
    Mentioned
    2 Post(s)
    Quoted
    13 Post(s)

    Default

    Update : Added banking, Anti-ban.

    Debugged script.
    Last edited by Ekarma; 02-28-2013 at 11:23 PM.

  9. #9
    Join Date
    Jun 2013
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Got this when I ran it:
    [Error] C:\MAHDIRECTORIES v1.1.simba(68:23): comma (',') expected at line 67
    Compiling failed.

  10. #10
    Join Date
    Aug 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Pretty sure everything is installed the way it should, but I have no result. The script doesn't log in, and even when I do it manually, nothing happens. I don't know what "Nick" is, and I don't have a PIN, so what do I do?

  11. #11
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Quote Originally Posted by someonelse View Post
    Pretty sure everything is installed the way it should, but I have no result. The script doesn't log in, and even when I do it manually, nothing happens. I don't know what "Nick" is, and I don't have a PIN, so what do I do?
    Because it's probably outdated fr RS3

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
  •