SuperFlaxer [SRL 4]

Printable View

Show 40 post(s) from this thread on one page

04-23-2008, 01:10 PM
n3ss3s

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.
04-23-2008, 01:14 PM
EvilChicken!

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..?
04-23-2008, 01:15 PM
n3ss3s

Ehm, it's a picker :p

Thanks :)

Though you shouldn't give up, what about you make the spinner then? ;)
04-23-2008, 01:19 PM
kor

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
04-23-2008, 01:20 PM
n3ss3s

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

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?

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 :p

04-23-2008, 01:33 PM
EvilChicken!

Short. Ø_ø

What about closefile? j00 w4nt m3m0ry l33kz?
ANd why didn't you use it?
04-23-2008, 01:39 PM
ShowerThoughts
Quote:

Originally Posted by EvilChicken!

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 :D

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

Quote:

Originally Posted by n3ss3s

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 :p

04-23-2008, 01:46 PM
EvilChicken!

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?
04-23-2008, 01:56 PM
n3ss3s
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?

Quote:

LocAndLOAD

You need to watch more action movies/ play games :D

Just a small 'joke' from the phrase "Lock and load".
04-23-2008, 01:57 PM
kor

i just tried it, worked like a charm ^^. ill try to make a overnight proggy for ya!
04-23-2008, 01:58 PM
mastaraymond
Quote:
Originally Posted by n3ss3s

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..
04-23-2008, 02:01 PM
n3ss3s

Matter of preferral.

Small proggie for you people -

Quote:

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

:)
04-23-2008, 05:14 PM
kor

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

Quote:

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.
04-23-2008, 06:28 PM
ShowerThoughts

Yeah good luck on your ban :p
04-23-2008, 07:23 PM
kingarabian

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.
04-23-2008, 08:04 PM
kor

Quote:

Originally Posted by Hermpie

Yeah good luck on your ban :p

i didnt mean that i'll run it 25 hours straight, that would've been really stupid. since flax picking is risky :P

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 :p. 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:

Quote:

*** 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....

04-23-2008, 08:39 PM
Timer

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

:D
04-23-2008, 08:52 PM
Shuttleu

nooooooooo now this might make my flax picker a bit less popular :(
how could you
there was already a good working flax picker

lol jks good work on this script

may the best man win lol

~shut
04-23-2008, 08:55 PM
Timer

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.
04-23-2008, 09:15 PM
Shuttleu

Quote:

Originally Posted by Timer

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
04-23-2008, 09:24 PM
Timer

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

Show 40 post(s) from this thread on one page