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

Thread: SuperFlaxer [SRL 4]

  1. #1
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default SuperFlaxer [SRL 4]

    The end result of me needing lobster cash for Bounty Hunter.


    The average roundtime hangs in the 150 seconds, and gets better depending of your agility level ofcourse.

    If one load is 150 seconds, and you gain 28 * 85 = 2380gp per load, so gp per one second is ~15,9, so you gain 15,9 * 3600 = 57k per hour =]


    Place your player in the Seers Village bank and hit run.

    The SMART loads world 121 default which's prefix is swe5, you can change it if you want to...


    I think that's it, remember to post proggies and feedback!


    Oh, I almost forgot, you get a beekeeper random very rarely using this script, atleast by my experience, but if you happen to get one, it's a good sign to take a little break from flaxpicking.

  2. #2
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Aww, I was gonna make one.

    you're more l33t = you win = i loose = i give up..

    Shit, this script looks really good. Good job, SRL needed a flax spinner.

    Edit: why do you use Div? "/" is so much easier..?

  3. #3
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Ehm, it's a picker


    Thanks


    Though you shouldn't give up, what about you make the spinner then?

  4. #4
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Bo Yah! i was looking for a good working flax picker! ill try it now, since my char is already in seers bank. ill post again soon telling how it worked out for me.

    EDIT: i keep getting this error when starting the script:

    Line 880: [Error] (13619:39): Unknown identifier 'LoadPerLog' in script D:\Scar3.15\Scripts\Flax\SuperFlaxer.scar


    ^LOL^

  5. #5
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Download again, I accidentally managed to somehow copy an 'S' out of the mainloop =p

  6. #6
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Picker?

    *hides in corner*
    Well, a picker was even more needed.
    I'm working on a spinner for lumby. Though I need to finish G.A.R. first.

    Since I'm not a leecher (atleast I'm not trying to give that impression) I have to make this post useful. Well, theres a really cool but very small thing you can add that'll l33ten up j00r script. I hate the word 'script'. So, here it goes:

    SCAR Code:
    {*******************************************************************************
    procedure SaveToTxt;
    By: EvilChicken! with inspiration from Hy's Fight Cave Runner.
    Description: Saves the text in the debug box to a '.txt' file.
    *******************************************************************************}

    procedure SaveToTxt;
    var
      JX2: Integer;

    begin
      JX2 := ReWriteFile(ScriptPath + 'SuperFlaxer Progress Report.txt', True);
      if JX2 <= 0 then Exit;
      WriteFileString(JX2, GetDebugText);
      CloseFile(JX2);
    end;

    Easy to add, and you won't get leechers saying they 'accidentaly' closed SCAR. Eh? Whaddyathink?

  7. #7
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    SCAR Code:
    Function SaveToText(Shared: Boolean): Boolean;
    Begin
      Result := WriteFileString(ReWriteFile(ScriptPath + 'SuperFlaxer Proggie.txt', True), GetDebugText);
    End;

    ReWriteFile returns -1 if it fails, so you can use it like that. I know how to save into a file

  8. #8
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Short. Ø_ø

    What about closefile? j00 w4nt m3m0ry l33kz?
    ANd why didn't you use it?

  9. #9
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by EvilChicken! View Post
    Short. Ø_ø

    What about closefile? j00 w4nt m3m0ry l33kz?
    ANd why didn't you use it?
    Hmm evil i made some interesting stuff for you, the only problem is, my comp is dead i will fix him soon -.-


    N3ss3s you are tah master

    edit:
    SCAR Code:
    Procedure LocAndLoad(S: String);
    Begin
      Players[CurrentPlayer].Loc := S;
      Logout;
    End;

    why LocAndLOAD
    ~Hermen

  10. #10
    Join Date
    May 2006
    Location
    Amsterdam
    Posts
    3,620
    Mentioned
    5 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by n3ss3s View Post
    The end result of me needing lobster cash for Bounty Hunter.


    The average roundtime hangs in the 150 seconds, and gets better depending of your agility level ofcourse.

    If one load is 150 seconds, and you gain 28 * 85 = 2380gp per load, so gp per one second is ~15,9, so you gain 15,9 * 3600 = 57k per hour =]


    Place your player in the Seers Village bank and hit run.

    The SMART loads world 121 default which's prefix is swe5, you can change it if you want to...


    I think that's it, remember to post proggies and feedback!


    Oh, I almost forgot, you get a beekeeper random very rarely using this script, atleast by my experience, but if you happen to get one, it's a good sign to take a little break from flaxpicking.
    Ever considered loading you ddtms the leet way?

    Like this?

    SCAR Code:
    Function MakeDDTM(TheDDTM: TIntegerArray): integer;
    var
      TempLength,i:integer;
      DDTM:TDTM;
    begin;
      TempLength:= (Length(TheDDTM) div 6)
      DDTM.MainPoint.x:= TheDDTM[0];
      DDTM.MainPoint.y:= TheDDTM[1];
      DDTM.MainPoint.AreaSize:= TheDDTM[2];
      DDTM.MainPoint.AreaShape:= TheDDTM[3];
      DDTM.MainPoint.Color:= TheDDTM[4];
      DDTM.MainPoint.Tolerance:= TheDDTM[5];
      SetArrayLength(DDTM.SubPoints, 0);
      for i := 0 to TempLength -2 do
      begin
        SetArrayLength(DDTM.SubPoints, Length(DDTM.SubPoints) +1);
        DDTM.SubPoints[Length(DDTM.SubPoints) -1].x:= TheDDTM[(I+1)*6];
        DDTM.SubPoints[Length(DDTM.SubPoints) -1].y:= TheDDTM[(I+1)*6 + 1];
        DDTM.SubPoints[Length(DDTM.SubPoints) -1].AreaSize:= TheDDTM[(I+1)*6 + 2];
        DDTM.SubPoints[Length(DDTM.SubPoints) -1].AreaShape:= TheDDTM[(I+1)*6 + 3];
        DDTM.SubPoints[Length(DDTM.SubPoints) -1].Color:= TheDDTM[(I+1)*6 + 4];
        DDTM.SubPoints[Length(DDTM.SubPoints) -1].Tolerance:= TheDDTM[(I+1)*6 + 5];
      end;
      Result := AddDTM(DDTM);
    end;
    Function LoadRightDTM(Name : String): integer;
    begin;
      Case LowerCase(Name) of
        'dwarfcoal' : Result := MakeDDTM([621,120,0,0,1796464,300,
                                          598,107,3,0,0,0,
                                          648,134,1,0,0,0,
                                          613,102,5,0,GreyRock,0,
                                          660,55,1,0,0,0]);
        'brownrocks': Result :=     MakeDDTM([633, 51,6,0,BrownRock,0,
                                              624, 50,6,0,BrownRock,0,
                                              640, 50,6,0,BrownRock,0,
                                              632, 58,6,0,BrownRock,0,
                                              632, 43,6,0,BrownRock,0]);
      end;
    end;
    It just uses so many space in your script
    Verrekte Koekwous

  11. #11
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow. N3s, sorry for totally hijacking your thread, but look on the bright side: At least I'm bumping it. And, please answer my memory leak question while we're at it.

    So, hermpie, mind PMing me and telling me what you made? And why for ME?

  12. #12
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    The memory leak answer - you got me. You have to have an integer variable to free it.


    I've done the declaration of DDTMs before like

    SCAR Code:
    Function CreatePoint(Vars: TIntegerArray): TDTMPointDef;
    Begin
      Result.X := Vars[0];
      Result.Y := Vars[1];
      Result.AreaSize := Vars[2];
      Result.AreaShape := Vars[3];
      Result.Color := Vars[4];
      Result.Tolerance := Vars[5];
    End;

    and done that to each point of a dtm, but didn't remember about doing it cleaner... About that code chunk of yours, -

    SCAR Code:
    [(I+1)*6 + 5]

    ..?

    Why wouldn't you just have an array of TIntegerArray?


    LocAndLOAD
    You need to watch more action movies/ play games

    Just a small 'joke' from the phrase "Lock and load".

  13. #13
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    i just tried it, worked like a charm ^^. ill try to make a overnight proggy for ya!


    ^LOL^

  14. #14
    Join Date
    May 2006
    Location
    Amsterdam
    Posts
    3,620
    Mentioned
    5 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by n3ss3s View Post
    The memory leak answer - you got me. You have to have an integer variable to free it.


    I've done the declaration of DDTMs before like

    SCAR Code:
    Function CreatePoint(Vars: TIntegerArray): TDTMPointDef;
    Begin
      Result.X := Vars[0];
      Result.Y := Vars[1];
      Result.AreaSize := Vars[2];
      Result.AreaShape := Vars[3];
      Result.Color := Vars[4];
      Result.Tolerance := Vars[5];
    End;

    and done that to each point of a dtm, but didn't remember about doing it cleaner... About that code chunk of yours, -

    SCAR Code:
    [(I+1)*6 + 5]

    ..?

    Why wouldn't you just have an array of TIntegerArray?
    Cuz this is old code maybe? And this makes the arguments easier..
    Verrekte Koekwous

  15. #15
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Matter of preferral.

    Small proggie for you people -

    7 / 8; Flax: 532
    Average RoundTime: 151 Seconds.

  16. #16
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    i made this little thingie (it's my evil plan to 70 mage lol)

    Magic Longbows x 1000 = 1.283.000 (1.3m)
    Nature Rune x 1000 = 298.000 (298k)
    Longs + Nats = 1.283.000 + 298.000 = 1581.000 (1.6m)

    Flax picking:

    Flax price: 84 gp Ea
    How many to sell: 18821 (18.8k)
    Time to pick all the flax's:

    92736 Secs = 1545 Mins = 25,75 Hours
    a plus is that i will keep alot of the money too, since i get cash from alching!

    Sweet.


    ^LOL^

  17. #17
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah good luck on your ban
    ~Hermen

  18. #18
    Join Date
    Aug 2007
    Location
    Hawaii
    Posts
    3,880
    Mentioned
    7 Post(s)
    Quoted
    152 Post(s)

    Default

    Wow nesses, sweet ass script. Well I to am gonna make lumby spinner. ITs finished but needs some tweaking a lil.

    @evil chicken, I cant wait to see how your script looks like. Hey if you wana work together, ill be happy to.
    Faith is an oasis in the heart which will never be reached by the caravan of thinking.

  19. #19
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Hermpie View Post
    Yeah good luck on your ban
    i didnt mean that i'll run it 25 hours straight, that would've been really stupid. since flax picking is risky :P


    ^LOL^

  20. #20
    Join Date
    Aug 2007
    Location
    Hawaii
    Posts
    3,880
    Mentioned
    7 Post(s)
    Quoted
    152 Post(s)

    Default

    MMm some things that need fixing.
    SCAR Code:
    [SCAR]
    [/SCAR]

    For the bank pin its going to be a mismatch.

    So:
    SCAR Code:
    Players[0].Strings[1]:='0000';
    instead of
    SCAR Code:
    Players[0].Pin := '';

    And this function
    SCAR Code:
    Function OpenTheBank: Boolean;
    Begin
      If FastFindBank Then
      Begin
        BankWait;
        if Length(Players[CurrentPlayer].Strings[1])>0 then
          If PinScreen Then
            Result := InPin(Players[CurrentPlayer].Strings[1]);
        Result := BankScreen;
      End;
    End;

    instead of
    SCAR Code:
    Function OpenTheBank: Boolean;
    Begin
      If FastFindBank Then
      Begin
        BankWait;
        If Players[CurrentPlayer].Pin <> '' Then
          If PinScreen Then
            Result := InPin(Players[CurrentPlayer].Pin);
        Result := BankScreen;
      End;
    End;
    Oh yea in your loop:
    SCAR Code:
    Until(Not(LoggedIn)) or (FC > Players[CurrentPlayer].Integers[0]);

    There nothing like that in the player setup (.Integers[0]).
    So Declare players should look like this:
    SCAR Code:
    Players[0].Name := 'UserName';
      Players[0].Pass := 'Password';
      Players[0].Nick := 'assw';
      Players[0].Integers[0]:= 20;//loads
      Players[0].Strings[1]:='0000'; // Bank PIN
      Players[0].Active := True;

    Just something's you probably forgot . I know I may have gotten some things wrong or you intended something different in your script, but it would'nt compile for me.

    Edit: Proggie:
    *** Inventory full, heading to bank ***
    Failed to find bank symbol, finding bankers on minimap...
    7 / 24; Flax: 196
    Average RoundTime: 165 Seconds.
    NextPlayer
    The weird thing is that, it was inside the bank....
    Faith is an oasis in the heart which will never be reached by the caravan of thinking.

  21. #21
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Testing Now, I Will Calculate Any Amounts Of Money Needed... I Have A Script For It!

    Heres Me:

    833333 Flax Needed For 70000000 GP
    1240 Hours Needed About
    - OR -
    52 Days Needed About


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

  23. #23
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No Offense, Works Like Crap... >.<

    Improve The Walk To Bank, Walk To Flax, And Picking The Flax. It All Needs Work...

    And The Banking Fucks Up.

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

    Default

    Quote Originally Posted by Timer View Post
    No Offense, Works Like Crap... >.<

    Improve The Walk To Bank, Walk To Flax, And Picking The Flax. It All Needs Work...

    And The Banking Fucks Up.
    what on mine or this one
    because i re-done all the walking a few days ago and i haven't had any problems with it

    ~shut

  25. #25
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    'SuperFlaxer' Not Gardener By You And ... Whats His Name...

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
  •