Page 1 of 2 12 LastLast
Results 1 to 25 of 27

Thread: Vagrant's Basic Flax Picker

  1. #1
    Join Date
    May 2007
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Vagrant's Basic Flax Picker

    My first script ever. Extremely simple, goes from Seer's bank to flax, picks flax, goes and banks it, repeat.

    EDIT: Released version 2, added a bunch of stuff and fixed some stuff. Enjoy.

    SCAR Version: Divi 3.06
    SRL Version: 3.7

    Features:
    Anti-Randoms
    Anti-Bans
    Multi-Users
    Progress Report
    Bunch of Fail Safes


    To-Do:
    More Anti-Bans
    More Fail Safes
    Better Walking

    Note: Don't use this script for more than an hour, you will get banned!

    SCAR Code:
    {
    # ScriptName  = Basic Flax Picker
    # Author      = Vagrant
    # Description = Picks flax and banks it.
    # Version     = v2 BETA
    # Date        = 3 June 2007
    # Comments    = Don't use for more than an hour, you will get banned!
    # Instructions= 1. Edit the stuff under "SCRIPT CONFIG" and "PLAYER CONFIG"
                    2. Start anywhere in Seer's bank.
                    3. Pull the crosshairs into the RS Window.
                    4. Hit the play button.
    }


    Program BasicFlaxPicker;
    {.include SRL/SRL.scar}

    Var
      Banked,Attempt,Flax,Profit,Loads,A: Integer;
      Found: Boolean;

    //***************************************************************************\\
    //*******************************SCRIPT CONFIG*******************************\\
    //***************************************************************************\\
    Const
      Bank = 100;         //Amount Of Times You'd Like To Bank
      BankPerPlayer = 10; //Amount Of Times You'd Like To Bank With Each Player
      Debug = 1;          //1 = Debug Enabled
                          //0 = Debug Disabled
    //***************************************************************************\\

    //***************************************************************************\\
    //*******************************PLAYER CONFIG*******************************\\
    //***************************************************************************\\
    Procedure DeclarePlayers;
    Begin

      HowManyPlayers := 1;             //Amount Of Players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;              //Player To Start With

      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;}

    End;
    //***************************************************************************\\

    Procedure AntiBans;
    Begin
      Case Random(15) Of
      1: MouseBox(MSX1, MSY1, MSX2, MSY2, 3);
      5: PickUpMouse;
      7: SleepAndMoveMouse(10000+random(5000));
      9: MouseBox(MIX1, MIY1, MIX2, MIY2, 3);
      13: PickUpMouse;
      15: SleepAndMoveMouse(10000+random(5000));
      End
    End;

    Procedure Anti;
    Begin
      FindNormalRandoms;
      AntiBans;
      MakeCompass('N');
      HighestAngle;
    End;

    Procedure WalkToFlax;
    Begin

      Found := False;
      MarkTime(A);
      Repeat
        If (Debug = 1) Then Writeln('Walking to woodcutting icon 1...');
        If (FindSymbolIn(x, y, 'tree', 592, 102, 688, 158)) Then
        Begin
          Mouse(x-20, y+20, 5, 5, true)
          Anti;
          Flag;
          Found := True;
        End Else Writeln('Could not find woodcutting icon 1! Trying again...');

        If (TimeFromMark(A) > 20000) Then
        Begin
          Writeln('Error with current player... Terminating script...');
          Logout;
          TerminateScript;
        End
      Until (Found = True);

      Found := False;
      MarkTime(A)
      Repeat
        If (Debug = 1) Then Writeln('Walking to woodcutting icon 2...');
        If (FindSymbolIn(x, y, 'tree', 592, 102, 688, 158)) Then
        Begin
          Mouse(x+10, y+20, 5, 5, true)
          Anti;
          Flag;
          Found := True;
        End Else Writeln('Could not find woodcutting icon 2!');

        If (TimeFromMark(A) > 20000) Then
        Begin
          Writeln('Error with current player... Terminating script...');
          Logout;
          TerminateScript;
        End
      Until (Found = True);

      MarkTime(A)
      If (Debug = 1) Then Writeln('Walking to weird trees...');
      Mouse(679, 119, 10, 10, true);
      Anti;
      Flag;
      If (TimeFromMark(A) > 20000) Then
      Begin
        Writeln('Error with current player... Terminating script...');
        Logout;
        TerminateScript;
      End

      MarkTime(A)
      If (Debug = 1) Then Writeln('Walking into flax field...');
        Mouse(487, 318, 25, 25, true)
        Anti;
        Flag;
      If (TimeFromMark(A) > 20000) Then
      Begin
        Writeln('Error with current player... Terminating script...');
        Logout;
        TerminateScript;
      End
    End;

    Procedure PickFlax;
    Begin
      MarkTime(A);
      If (FindObj3(x, y, 'Pick Flax', 14736505, 20)) Then
      Begin
        Mouse(x, y, 0, 0, true);
        FindNormalRandoms;
      End Else Writeln('Could not find any flax!');

      If (TimeFromMark(A) > 20000) Then
      Begin
        Writeln('Error with current player... Terminating script...');
        Logout;
        TerminateScript;
      End
    End;

    Procedure WalkToBank;
    Begin
      MarkTime(A);
      If (Debug = 1) Then Writeln('Walking to weird trees...');
      Mouse(612, 58, 5, 5, true);
      Anti;
      Flag;
      If (TimeFromMark(A) > 20000) Then
      Begin
        Writeln('Error with current player... Terminating script...');
        Logout;
        TerminateScript;
      End

      Found := False;
      MarkTime(A);
      Repeat
        If (Debug = 1) Then Writeln('Walking to woodcutting icon 3...');
        If (FindSymbolIn(x, y, 'tree', MMX1, MMY1, MMX2, MMY2)) Then
        Begin
          Mouse(x+15, y-10, 5, 5, true);
          Anti;
          Flag;
          Found := True;
        End Else Writeln('Could not find woodcutting icon 3!');

        If (TimeFromMark(A) > 20000) Then
        Begin
          Writeln('Error with current player... Terminating script...');
          Logout;
          TerminateScript;
        End
      Until (Found = True);

      MarkTime(A);
      If (Debug = 1) Then Writeln('Walking to woodcutting icon 4...');
      Mouse(648, 20, 10, 10, true);
      Anti;
      Flag;
      If (TimeFromMark(A) > 20000) Then
      Begin
        Writeln('Error with current player... Terminating script...');
        Logout;
        TerminateScript;
      End

      Found := False;
      MarkTime(A);
      Repeat
        If (Debug = 1) Then Writeln('Walking to bank...');
        If (FindColorTolerance(x, y, 4970461, MMX1, MMY1, MMX2, MMY2, 10)) Then
        Begin
          Mouse(x-random(5), y+random(5), 2, 2, true);
          Anti;
          Flag;
          Found := True;
        End Else Writeln('Could not find bank!');

        If (TimeFromMark(A) > 20000) Then
        Begin
          Writeln('Error with current player... Terminating script...');
          Logout;
          TerminateScript;
        End
      Until (Found = True);
    End;

    Procedure OpenBank4;
    Begin
      MarkTime(A);
      Repeat
        If (FindObj(x, y, 'oth', 539728, 30)) Then
        Begin
          Mouse(x, y, 4, 4, False)
          ClickOption('quickly', 1)
          Wait(2000+random(1000));
        End

        If (TimeFromMark(A) > 20000) Then
        Begin
          Writeln('Error with current player... Terminating script...');
          Logout;
          TerminateScript;
        End
      Until (BankScreen);
    End;

    Procedure DoBank;
    Begin
      MarkTime(A);
      If (Debug = 1) Then Writeln('Opening bank...');
      Repeat
        OpenBank4;

        If (TimeFromMark(A) > 20000) Then
        Begin
          Writeln('Error with current player... Terminating script...');
          Logout;
          TerminateScript;
        End
      Until (BankScreen);

      If (Debug = 1) Then Writeln('Depositing flax...');
      If (BankScreen) Then
      Begin
        DepositAll;
        Wait(1000+random(2000));
      End Else Writeln('Could not find bank screen!');

      If (Debug = 1) Then Writeln('Closing bank...');
      CloseBank;
      FindNormalRandoms;
      Banked := Banked + 1;
      Loads := Loads + 1;
    End;

    Procedure ProgressReport;
    Begin
      Cleardebug;
      Flax := Banked * 28;
      Profit := Flax * 1000;
      Writeln('========Progress Report========');
      Writeln(TimeRunning);
      Writeln('Banked ' +IntToStr(Banked)+ ' Time[s]');
      Writeln('Picked ' +IntToStr(Flax)+ ' Flax');
      Writeln('Profit: ' +IntToStr(Profit)+ 'gp');
      Writeln('===============================');
    End;

    Begin
      SetUpSRL;
      Cleardebug;
      DeclarePlayers;
      Banked:= 0;
      DisguiseScar('iTunes');
      Writeln('===============================');
      Writeln('==Vagrant"s Basic Flax Picker==');
      Writeln('============v2 BETA============');
      Writeln('===============================');

      Repeat
        PerfectNorth;
        GameTab(4);
        WalkToFlax;
        Writeln('Picking flax...');
        Repeat
          PickFlax;
          Wait(1000+random(1500));
        Until(InventoryFull)
        Attempt := 0;
        PerfectNorth;
        WalkToBank;
        DoBank;
        ProgressReport;

        If (Loads = BankPerPlayer) Then
        Begin
          NextPlayer(True);
          Loads := 0;
          Writeln('Switching Players...');
        End
      Until(Banked = Bank);
      Logout;
      TerminateScript;
    End.

    PLEASE critique it! I need major feedback!

  2. #2
    Join Date
    May 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks good, will try it tomorrow when I get back from school.

    Thanks for contributing!

  3. #3
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    You need more failsafes. For example, in your DoBank you have
    SCAR Code:
    repeat
               OpenBank3;
               Wait(1000+random(2000));
         until(BankScreen);
    What if you somehow weren't at the bank, or couldn't see the bank booths? It would just keep trying to find the bank. Banage! So you should put a counter in there. Everytime, before the until, do C:= C + 1;. And then on your until loop put something like until(BankScreen) or (C > 5). That way, it wouldn't keep trying to open the bank. Understand?

  4. #4
    Join Date
    May 2007
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank you for the feedback! As I said in the first post, don't use the script for more than an hour, you'll get banned.

    But yeah, I'm adding failsafe's next...

  5. #5
    Join Date
    May 2007
    Location
    Belgium
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    When I start the script, he set the brightness on V-bright and then the mouse doesnt' move anymore whilte the script is running?Any ideas?
    I use scar 2.03 with SRL 3.7
    This is what I get in the text box:

    -------------------------------------
    |
    | Vagrant"s Basic Flax Picker v3
    |
    -------------------------------------
    Found Compass

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

    Default

    Quote Originally Posted by summerkid91 View Post
    When I start the script, he set the brightness on V-bright and then the mouse doesnt' move anymore whilte the script is running?Any ideas?
    I use scar 2.03 with SRL 3.7
    This is what I get in the text box:

    -------------------------------------
    |
    | Vagrant"s Basic Flax Picker v3
    |
    -------------------------------------
    Found Compass

    omg dude dont leech and read the info about the script first instead of rushing in and leeching it

    My first script ever. Extremely simple, goes from Seer's bank to flax, picks flax, goes and banks it, repeat.

    EDIT: Released version 2, added a bunch of stuff and fixed some stuff. Enjoy.

    SCAR Version: Divi 3.06
    SRL Version: 3.7

    Features:
    Anti-Randoms

  7. #7
    Join Date
    Jun 2007
    Location
    In my computer room
    Posts
    148
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very Nice Script I Like But Does It Work With The New Seers Update?

    Just A Suggestion If It Doesnt.

    Im Not A Leecher I Have My Own Script And Am Working On Another.

  8. #8
    Join Date
    Sep 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey mate wondering if u could help me.. Whenever i try to start any script it always says:

    'Include file C:\Program Files\SCAR 3.06\includes\SRL\SRL.scar does not exist.
    Failed when compiling'

    Ive tried loads of scripts with 3 different versions of Scar and they virtually always say that with any script i try.

    I dont know if its me being stupid im knew to these things lol.. Im not critcising ur script because i know it will work a treat.. But ur help would be greatly appriciated seein as u probably know wat ur talking about compared to me lol!

    Thx alot mate runeskate x

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

    Default

    That is because you don't have SRL... Also, this is a semi grave dig I would say...

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

    Default

    Nice script be awesome to try it out

  11. #11
    Join Date
    May 2007
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Would try it out..but id have to feed jagex's fat little belly's

  12. #12
    Join Date
    Sep 2007
    Location
    Portsmouth
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    when i try to run your flax picker script, it just says BEGIN ecspected in script


    it says this

    Failed when compiling
    Line 14: [Error] (14:1): 'BEGIN' expected in script

  13. #13
    Join Date
    Oct 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol, doesnt work >.<

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

    Default

    Doesn't seem to work at all for me,it just stops at the beggning.

  15. #15
    Join Date
    Oct 2007
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It say's Mismatch in script and stuff... it doesnt work!!

  16. #16
    Join Date
    Oct 2007
    Posts
    302
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    1st november 2007.

    Entered script, looked at it - seemed fine. However;
    Failed when compiling
    Line 52: [Error] (15080:39): Type mismatch in script
    Unfortunatly due to me only being a cute lil' newb, i can't fix this myself or give you guidance unfortunatly.

    However, i hope i could be of assitance? :/

    boxrop

  17. #17
    Join Date
    Oct 2007
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dont like them when u get banned

  18. #18
    Join Date
    Oct 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Type mismatch in script

    HOw do you get around this?

  19. #19
    Join Date
    Jan 2008
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yea i just came across this one today and im fairly new to this whole SCAR thing but when i try to run this script here is what is says
    Failed when compiling
    Line 61: [Error] (14742:39): Type mismatch in script

    What does it mean?

  20. #20
    Join Date
    Feb 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i need help with scar. i dont know how to use. i have version, 2.03. this script doesnt work. it says, "Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL.scar does not exist."

    WHAT HAPPENED?
    i need help. thanks

  21. #21
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Gravedig!!! this script is OLD, thats why it doesn't work.

  22. #22
    Join Date
    Feb 2008
    Location
    Australia
    Posts
    253
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    does really seem to work that wel...
    W00T Timer is awesome!!! He's teaching me to script!
    http://www.stats.srl-forums.com/sigs/4572.png

  23. #23
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    really??? maybe because it is almost 1 year old.

  24. #24
    Join Date
    Feb 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sounds great! I must try it. You should make a fletcher too.

  25. #25
    Join Date
    Mar 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Please please we i can download it?

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Basic Cow Hide Picker and Banker
    By grandpajones3 in forum NOTA
    Replies: 2
    Last Post: 03-10-2009, 05:38 AM
  2. Basic Flax Picker
    By Vagrant in forum RS3 Outdated / Broken Scripts
    Replies: 103
    Last Post: 11-19-2008, 06:30 PM
  3. Flax Picker Help?
    By Lukeboy_19 in forum OSR Help
    Replies: 19
    Last Post: 07-28-2008, 03:48 PM
  4. Looking for a Flax Picker!
    By trummy999 in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 07-26-2007, 06:54 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
  •