Page 1 of 3 123 LastLast
Results 1 to 25 of 70

Thread: S1NYews

  1. #1
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default S1NYews

    Hey guys, releasing my second script tonight -
    S1NYews LITE.
    This IS the lite version so there are a couple things it does and a couple things that it doesn't do.
    Video Promo of it -
    http://www.youtube.com/watch?v=RhUmO...&feature=inbox
    Code:
    What it does -
     
    Chops ONE of the yew trees in edgeville
    Banks
    ======================================
    What it doesn't do -
    
    Chop both of the Yew Trees in Edgeville
    Does NOT have support for multiple locations
    Does NOT wait for the inventory to be full before banking (in some ways it's more efficient)
    Does NOT have many failsafes
    
    How to get the full version -
    Pay me 100M
    Nahh im jk, just pm me WHY you want the script and what you'll use it for. Goldfarming is an instant NO. Yews are overexpensive atm and I want them t crash a bit so I can 99 Fletching a bit easier so... But I dont want yews to plummet to much. Full Version will be in Members as soon as i'm one :p


    The Script:
    Simba Code:
    program S1NYews;
    {$include srl/srl/misc/smart.scar}
    {$I SRL/SRL.Scar}
    {$I srl/srl/misc/debug.scar}
    var
    YewCount:Integer;

    {Recent Changes-
    1.1  January 2nd 2012
    Revamped the whole code
    Added numerous failsafes
    Banking should be flawless

    1.2  January 4th 2012
    Cleaned up the whole code
    Fixed Radial Walking bug(silly me :L)
    added tons of failsafes
    progress report

    1.3
    ==To Come==
    Seer's Village Support}


    //Please start at the Yews.

    {Currently featuring ONLY Edgeville.}
    {Post on thread if you want support}
    {for places such as Seers', GE, and whatever}
    {Version 1.2}
    {Updated January 4th, 2012}
    //Script will be available for only a short time to prevent Yews from crashing
    //Moving to Members+ as soon I can.

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

      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players

    procedure AntiBan;
    begin
      case random(50) of   //change the number in brackets to however you want the antiban to perform
          0: RandomRClick;
          1: PickUpMouse;
          2: RandomRClick;
          3: HoverSkill('woodcutting', False);
      end;
    end;
    procedure AntiRandoms;
    begin
      FindNormalRandoms;
      LampSkill := 'firemaking';           //change to whatever you want
      LevelUp;
      end;
    {DONT TOUCH BElOW IF YOU HAVE NO EXPERIENCE AND DONT WANT YOUR BOT TO NOT START.
     IF YOU CHANGED SOMETHING AND IT DOESNT WORK, DONT YOU DARE COME CRYING TO ME
     AND SAYING "0mfG, w7f !s th1s bu11sh!t. Eet n0 w0rk foar m3." without having details.
     I WILL RESPOND WITH A "UMADBRUH?" TO YOU.
     Have a nice day :)
     }


    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 87;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
    end;
    //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    //==============================================================================
    //================================Functions=====================================
    //==============================================================================
    //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    Function DepositEverything:Boolean;
    var
    x,y:Integer;
    begin
    FindObjCustom(x, y, ['eposit','items'], [2052490], 2);
    Mouse(x, y, 0, 0, True);
    end;
    Function CloseDepositBox:boolean;
    var
    x2, y2:integer;
    begin
      if FindObjCustom(x2, y2, ['Close'], [1580837], 0) then
      Mouse(x2, y2, 0, 0, True);
    end;
    function FindAndOpenDBox:Boolean;
    var
    x,y:Integer;
    begin
    repeat
    if FindObjCustom(x, y, ['eposit'], [8092544, 789517], 2) then
      MMouse(x, y, 0, 0);
    until(IsUpText('eposit'));
    Mouse(x, y, 2, 2, True);
    end;
    function CheckIfLoggedin:Boolean;
    begin
    if Not LoggedIn then
      writeLn('Not Logged In, Ending Script');
      TerminateScript;
    end;
    function NorthAndHigh:Boolean;
    begin
    MakeCompass(0);
    SetAngle(True);
    end;
    function FindYewTree:Boolean;
    var
    x2,y2:Integer;
    begin
    FindObjCustom(x2, y2, ['hop', 'down'], [4937570, 4344918], 5);
    end;
    function RAngle:Boolean;
    begin
    MakeCompass(RandomRange(0,359));
    end;
    procedure Report;
    begin
    writeLn('========================');
    writeLn('========S1NYews=========');
    writeLn('===Time Running: ' + TimeRunning);
    //writeLn('===Logs: ' + IntToStr(YewCount));
    //writeLn('===Exp: ' + IntToStr(YewCount * 175));
    writeLn('========================');
    end;
    //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    //==============================================================================
    //================================Edgeville=====================================
    //==============================================================================
    //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    procedure Bank;
    begin
    NorthAndHigh;
    RadialWalkTolerance(5198946, 30, 45, 60, 1, 1, 2);
    if IsMoving then
      begin
        wait(5000);
        MakeCompass(350);
        SetAngle(False);
        wait(1000);
      end else
        begin
          wait(10000);
          CheckIfLoggedIn;
        end;
        AntiRandoms;
      FindAndOpenDBox;
      if DidRedClick then
      begin
        wait(6000 + random(300));
      end else
        begin
          wait(6000);
          CheckIfLoggedIn;
        end;
      if DepositScreen then
        begin
          DepositEverything;
          CloseDepositBox;
        end else
          begin
            CheckIfLoggedIn;
            If LoggedIn then
              begin
                FindAndOpenDBox
                DepositEVERYthing;
                CloseDepositBox;
              end;
          end;
        MakeCompass(0);
        WriteLn('Walking Back');
        RadialWalk(3885138, 160, 180, 70, 1, 1);
        if FlagPresent then
        repeat
          begin
            wait(200);
          end
        until(Not IsMoving);
        RadialWalk(2833988, 230, 270,42, 1, 1);
        if FlagPresent then
        repeat
          wait(100);
        until(Not IsMoving);
        wait(20000);
        ClearDebug;
    end;
    procedure ChopNorthTree;
    var
    x,y:Integer;
    begin
      SetAngle(False);
      MakeCompass(0 + random(20));
      wait(300);
      repeat
        if FindObjCustom(x, y, ['hop', 'down'], [4937570, 4344918], 5) Then
          begin
            WriteLn('Found North Yew');
            MMouse(x, y, 2, 2);
          end;
      until(IsUpText('Chop down'));
      Mouse(x, y, 2, 2,True);
      repeat
        wait(100);
        MMouse(x, y, 2, 1);
      until(Not IsUpText('own') or InvFull);
          if FindBlackChatMessage('yew') then
          begin
            YewCount:= YewCount + 1
          end;
      AntiBan;
      writeLn('Yew Tree is down. Banking');                 //yawn    .........
    end;
    procedure Edgeville;
    begin
      ClearDebug;
      SetupLogin;
      SetupSRL;
      writeLn('============================================');
      writeLn('WIELD YOUR HATCHET PLEASE!');
      writeLn('This is not an error message, just a warning');
      writeLn('============================================');
      DeclarePlayers;
      ActivateClient;
      repeat
        ChopNorthTree;
        //WalkToSouth
        //ChopSouthTree
        Bank;
        Report;
      until(false);
    end;
    //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    //==============================================================================
    //================================Seers'========================================
    //==============================================================================
    //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

    //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    //==============================================================================
    //================================The GE========================================
    //==============================================================================
    //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

    //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    //==============================================================================
    //================================Main Code=====================================
    //==============================================================================
    //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    begin
      Edgeville;                     //Change this to your location (V1.3+ only)
    end.

    Changelog:
    January 2nd, 2011 - Initial Release
    January 4th, 2011 - Bug Fixes
    Last edited by Sin; 01-05-2012 at 01:44 AM.

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

    Default

    Sick I think I'll give it a go(:

  3. #3
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by CorrectColour View Post
    Sick I think I'll give it a go(:
    Sir, i'm honoured to have your first post in my thread.

  4. #4
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  5. #5
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

    Not going to lie, I was actually going to make this script cause someone requested it :P. I may still do it, but your right I like the prices of yews.

    Great job with all the new scripts!




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  6. #6
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    Your CloseDepositScreen has a possibly bannable error. It moves the mouse after it found the button. In order to fix that, just remove the randomness from the mouse click.

    Work on some failsafes. If it doesn't deposit everything you don't want it to close the deposit box. If a radialwalk fails you don't want it to try the next one. Throw some if..thens in there

    Also, avoid endless loops. Use either a time-out or break out of the loop with a fail counter.

  7. #7
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by mormonman View Post
    Your CloseDepositScreen has a possibly bannable error. It moves the mouse after it found the button. In order to fix that, just remove the randomness from the mouse click.

    Work on some failsafes. If it doesn't deposit everything you don't want it to close the deposit box. If a radialwalk fails you don't want it to try the next one. Throw some if..thens in there

    Also, avoid endless loops. Use either a time-out or break out of the loop with a fail counter.
    Will do, this is just the lite version so its not apriority,
    But i have a question, is there a function where it detects if a flag has appeared on the minimap?

  8. #8
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  9. #9
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by Shuttleu View Post
    "FlagPresent" i believe

    ~shut
    I'll incorporate this asap tommorow.

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

    Default

    pmed you S1N

  11. #11
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    I am definately gonna give it a go. Im also going to check your code a bit, because at the moment i am working on a yew chopper in a different location

    Anyway looks great, ill post a proggy soon!
    07Scripter
    I mostly write private scripts

  12. #12
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Good looking script, keep it up!
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  13. #13
    Join Date
    Feb 2009
    Location
    inside Hello World! Application
    Posts
    232
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Looks nice Close to bank and not many people use yews there ^^
    I'm not a lesser Being imma Lesser demon


    http://i.imgur.com/faGr0.png << First Script With Paint. Good First proggy? exp 21k/hr is ok pretty buggy

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

    Default

    Mmm I'll give it a go for you sir

  15. #15
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    RadialWalking is being a bitch so I can't upload the update which fixes all the known problems(Banking prematurely, not banking at all and such.)

  16. #16
    Join Date
    Sep 2010
    Location
    Azeroth
    Posts
    395
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    so basically u always keep the mouse hoverd over the tree?

  17. #17
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Yah, pretty much, it reads when the tree is down that way.
    I'll update it to a TPA later on.

  18. #18
    Join Date
    Dec 2011
    Posts
    189
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is it ok if I add the south tree for my personal use?

  19. #19
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Meh, it's open source, or you can wait till I release the full version.

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

    Default

    oh can I have a copy of the full version when you release it please?

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

    Default

    Looks good but instead of DepositAll; I have changed it to Deposit(2,28,True); because i can't wield my axe. Also what is up with the radial walking?

  22. #22
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Fixed it!
    Expect a release soon, added Progress Reports to it

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

    Default

    Sounds Good Bro, keen to check it out.

  24. #24
    Join Date
    Dec 2011
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Yew Cutter PM

    Nice script.

  25. #25
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Say hello to Version 1.2
    Fixed SO many bugs, + got the foundation for the Full Version. Enjoy!

Page 1 of 3 123 LastLast

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
  •