Page 3 of 3 FirstFirst 123
Results 51 to 70 of 70

Thread: S1NYews

  1. #51
    Join Date
    Jan 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Surfing View Post
    Yeah sorry i forgot to mention you need to update the compass options ill just give you the modified script i have done. It will compile, cut the north the tree but there seems to be something wrong with radial walking so it doesn't bank properly if S1N could help me it would be great but if not ill try to get it 100% working soon.

    Simba Code:
    program S1NYews;
    {$include srl/srl/misc/smart.simba}    // This is where i changed the file extension from .scar to .simba
    {$I SRL/SRL.simba}                     // This is where i changed the file extension from .scar to .simba
    {$I srl/srl/misc/debug.simba}          // This is where i changed the file extension from .scar to .simba
    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(SRL_ANGLE_HIGH);   //I also changed this from 'True' to 'SRL_ANGLE_HIGH'
    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(SRL_ANGLE_NONE);        //I changed this from 'False' to 'SRL_ANGLE_NONE'
        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(SRL_ANGLE_NONE);      // I changed this from 'false' to 'SRL_ANGLE_NONE'
      MakeCompass(0);
      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.
    Everyone use this code, this is the updated one!

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

    Default

    Haven't updated this script in so long...
    I'll get on it asap...

  3. #53
    Join Date
    Jan 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by S1N View Post
    Haven't updated this script in so long...
    I'll get on it asap...
    Thanks <3

  4. #54
    Join Date
    Apr 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    would be sick if you updated

  5. #55
    Join Date
    Jan 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Im not sure if this is a working script, but as of so far NONE of the yew cutters are working.

  6. #56
    Join Date
    Jan 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from '' whats that mean?

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

    Default

    Quote Originally Posted by Jaybird View Post
    Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from '' whats that mean?
    The script isn't update for Srl5 yet.

  8. #58
    Join Date
    Jan 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

    Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

    y is this doing this for??

  9. #59
    Join Date
    Jan 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by i wish peace View Post
    Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

    y is this doing this for??
    if you read the post above, this script isn't updated yet.

  10. #60
    Join Date
    Jan 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    can anyone tell me how to run a script? i downloaded it but have no idea how to get the script up or where to look for it, i need help im new to simba.

  11. #61
    Join Date
    Jan 2012
    Posts
    216
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by manup3 View Post
    can anyone tell me how to run a script? i downloaded it but have no idea how to get the script up or where to look for it, i need help im new to simba.


    http://villavu.com/forum/search.php

  12. #62
    Join Date
    Jan 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Error

    Exception in Script: Unable to find file 'ObjectDTM\ObjDTMInclude.simba' used from ''
    I have it under extensions and i enabled it but i get this

  13. #63
    Join Date
    Jan 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it would be great if you can add G.E yews good luck and nice script ill post a proggie soon

  14. #64
    Join Date
    Jan 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    soo i used this script before the srl 5 and it pwnd. to bad its not updated...if anyone has a yew script do you mind posting...i think EVERYONE here agrees that its in high demand right now.

  15. #65
    Join Date
    Dec 2011
    Location
    Belgium
    Posts
    623
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    I really love your scripts man!
    You should make a sw script (public...)

    Made by P1ng

  16. #66
    Join Date
    Feb 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sin View Post
    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
    Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from '' wat do i do?

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

    Default

    It's out dated

  18. #68
    Join Date
    Feb 2012
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Yew cutter Full

    yeah, its out dated, try the cutter in MSI
    Last edited by reorxsknight; 02-16-2012 at 03:23 AM.

  19. #69
    Join Date
    Feb 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mmm,
    Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

    what's this?

    *Never mine.. just red why..*

  20. #70
    Join Date
    Feb 2012
    Location
    West Virginia
    Posts
    387
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Great script for my f2p account
    would give proggy but i closed too soon

Page 3 of 3 FirstFirst 123

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
  •