SRL Archive - RS3 Outdated / Broken Scripts

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.

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

Ehm, it's a picker :p


Thanks :)


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

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

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:

{*******************************************************************************
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?

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

Short. Ø_ø

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

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

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

why LocAndLOAD

From: 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?

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

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?

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

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, -

[(I+1)*6 + 5]

..?

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

LocAndLOAD

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

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

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

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

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, -

[(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..

Matter of preferral.

Small proggie for you people -

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

:)

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.

Yeah good luck on your ban :p

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.

From: 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]

For the bank pin its going to be a mismatch.

So:

Players[0].Strings[1]:='0000';

instead of

Players[0].Pin := '';

And this function

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

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:

 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:

 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:

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

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

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

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.

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

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

hey man this is great work.

4 / 7; Flax: 112
Average RoundTime: 134 Seconds.

Ill get a better one when this one stops.

Maybe for a future update, an auto responder?

darn it. i was going to run this but then when i woke up it said this:
*** Time from last flax picked exceeded 10 seconds ***
- breaking out of picking. and then it stopped ^^ better luck next night

From: kingarabian
MMm some things that need fixing.

[SCAR]

For the bank pin its going to be a mismatch.

So:

Players[0].Strings[1]:='0000';

instead of

Players[0].Pin := '';

And this function

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

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:

 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:

 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:
The weird thing is that, it was inside the bank….

I'm quite sure that the bank pin is a string in Revision 16.

Nice script N3ss3s…TPAs…not surprising.

Kingarabian, I know my code. The [CurrentPlayer].Integers[0] is being declared in the mainloop.

Also, about the pin, I do If Players[CurrentPlayer].Pin <> '' Then, which means it checks for pin only if the Pin is not "empty".

You didn't consider that I maybe compiled it before releasing and even posted a proggie?

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.

From: n3ss3s
Kingarabian, I know my code. The [CurrentPlayer].Integers[0] is being declared in the mainloop.

Also, about the pin, I do If Players[CurrentPlayer].Pin <> '' Then, which means it checks for pin only if the Pin is not "empty".

You didn't consider that I maybe compiled it before releasing and even posted a proggie?

No dude, for the integers[0], was not declared, so i filled up the consts to 20 and it only did 2 and then logout. I put the integers[0] in the playersetup and made it to 20 and it did more loads.

So what you took this all offensively right? Yea some people (like you) think there perfect and if it works for them it works for the rest of the world. To bad for you the world aint like that. So when you get feedback appreciate it or dont expect anything at all.

God and I thought this forum couldnt get any more immature…

@santa, my bad >.<.

Im Serious… -.- I'm Not Leaching, It Does, 'Suck'.

From: Timer
Im Serious… -.- I'm Not Leaching, It Does, 'Suck'.

You're just a plain jerk Welcome to my ignore list.


EDIT: Good job on the script.

Haha, I don't even wanna be your friend… it's shit… are you blinded of scripting???

Timer, make sure your screen is on 32bit true color…

So what you took this all offensively right? Yea some people (like you) think there perfect and if it works for them it works for the rest of the world. To bad for you the world aint like that. So when you get feedback appreciate it or dont expect anything at all.

Too far too fast, let's look at the mainloop -

begin
  SmartSetup('swe5', False, True);
  Wait(5000);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  LoadDTMs;
  DeclarePlayers;
  Repeat
    LoginPlayer;
    SetChat('off', 2);
    SetAngle(True);
    Players[CurrentPlayer].Integers[0] := LoadsPerLog + Random(6);
    FC := 0;
    Repeat
      RoundMarker := GetSystemTime;
      If Not WalkTo(False) Then
      Begin
        LocAndLoad('Lost');
        Break;
      End;
      PickingLoop;
      If Not LoggedIn Then Break;
      If Not WalkTo(True) Then
      Begin
        LocAndLoad('Lost');
        Break;
      End;
      If Not OpenTheBank Then
      Begin
        LocAndLoad('BankFail');
        Break;
      End;
      DepositFlax;
      CloseBank;
      FindNormalRandoms;
      FC := FC + 1;
      Inc(Players[CurrentPlayer].Integers[1]);
      Counter := Counter + 1;
      ShowStats;
    Until(Not(LoggedIn)) or (FC > Players[CurrentPlayer].Integers[0]);
    ShowStats;
    NextPlayer(LoggedIn);
  Until(False);
end.

See the Integers[0] being declared and the until statement, I believe the logic is correct?


Also, about your rest of the world thing, if it compiles for me, it compiles for you, expecting you have the same SCAR and SRL revision as me.


If I get offended, I will say so, I only proved your worries about a type mismatch wrong, though now I saw your edit @ santa…

Im Serious… -.- I'm Not Leaching, It Does, 'Suck'.

You've posted three times that it's either shit or sucks, you might want to tell what doesn't work for you?

this script works sorta good. it always (almost) ends up standing on the grey part of the house above the flax field (where the drop party place used to be). my best run is 4 banks so far ^^

ill try get a picture :P

lol it seems that quite a few people have been having problems with this script :p

~shut

Stop bitching on eachother it's not worth it..

it clicks like little tiny clicks going there, and logs out at bank because u dont have a wait after the flag for a complete stop… plus.. its just clicks the same spots every time, plus clicks flax to fast.

From: Timer
it clicks like little tiny clicks going there, and logs out at bank because u dont have a wait after the flag for a complete stop… plus.. its just clicks the same spots every time, plus clicks flax to fast.

Instead of telling him to fix the script like a leecher, make your own. Your a member, you can do it.

From: n3ss3s
Timer, make sure your screen is on 32bit true color…



Too far too fast, let's look at the mainloop -

begin
  SmartSetup('swe5', False, True);
  Wait(5000);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  LoadDTMs;
  DeclarePlayers;
  Repeat
    LoginPlayer;
    SetChat('off', 2);
    SetAngle(True);
    Players[CurrentPlayer].Integers[0] := LoadsPerLog + Random(6);
    FC := 0;
    Repeat
      RoundMarker := GetSystemTime;
      If Not WalkTo(False) Then
      Begin
        LocAndLoad('Lost');
        Break;
      End;
      PickingLoop;
      If Not LoggedIn Then Break;
      If Not WalkTo(True) Then
      Begin
        LocAndLoad('Lost');
        Break;
      End;
      If Not OpenTheBank Then
      Begin
        LocAndLoad('BankFail');
        Break;
      End;
      DepositFlax;
      CloseBank;
      FindNormalRandoms;
      FC := FC + 1;
      Inc(Players[CurrentPlayer].Integers[1]);
      Counter := Counter + 1;
      ShowStats;
    Until(Not(LoggedIn)) or (FC > Players[CurrentPlayer].Integers[0]);
    ShowStats;
    NextPlayer(LoggedIn);
  Until(False);
end.

See the Integers[0] being declared and the until statement, I believe the logic is correct?


Also, about your rest of the world thing, if it compiles for me, it compiles for you, expecting you have the same SCAR and SRL revision as me.


If I get offended, I will say so, I only proved your worries about a type mismatch wrong, though now I saw your edit @ santa…




You've posted three times that it's either shit or sucks, you might want to tell what doesn't work for you?

Im saying that dont it have to be in the declare players section?

Players[0].Name := 'User';
Players[0].Pass := 'pass';
Players[0].Nick := 'nick';
Players[0].Integers[0]:= 20;
Players[0].Strings[1]:='5902'; // Bank PIN
Players[0].Active := True;

Im saying that dont it have to be in the declare players section?

It would be if I wanted the user to set the amount which will stay for the whole runtime of the script, randomizing that is harder, but not hard, than just doing
Players[CurrentPlayer].Integers[0] := LoadsToDo + Random(6),

which randomizes the load amount for every logon in the mainloop :)

i really think everyone should stop argument about this script -.- post some useful posts instead. and kingarabiain, i really think n3ss3s knows his code ^^ no need to argue about it.

Thanks lol, by the way, if the walking doesn't work for you, -

let me guess, it has stopped behind the courthouse?

You can solve that by going to the WalkTo function, and going to were it says GoToDDTM(CourtRight,…) change the two digits in the params to 5, 15.

From: n3ss3s
Thanks lol, by the way, if the walking doesn't work for you, -

let me guess, it has stopped behind the courthouse?

You can solve that by going to the WalkTo function, and going to were it says GoToDDTM(CourtRight,…) change the two digits in the params to 5, 15.

no problem ^^ oh and btw, is that line 633? (im pretty sure it is) just want to be sure. thanks

Propably.

ill try it again soon, to see if it works better now. im currently getting my ranged up with Timers guild ranger ^^

I don't think it works very well :p

From: n3ss3s
I don't think it works very well :p

well, are you planning to updating it or was it just a little script to get some quick cash? :P

I might update it some time, I made it because I needed cash for my pure but I managed to transfer 1.8M through party room from my main :p

finally a flax PICKER and not a stringer maker thingy lol. cant wait to test it out.

it keeps logging off before its done with the set amount of loads -.-

You would've saved time not testing it by reading the posts above you…

i did read the above posts actually, and i figured i'd test it so I could let you know what was wrong with it so IF you were to update it, you would know what to update.

i don't really see what the problem is…. when i set 271 as loads per log it seems to run fine… i mean there is that off chance it gets lost and well yeah just reset it… but i'm running right now and i'm at
11 / 275; Flax: 308
Average RoundTime: 131 Seconds.

but well it works and it's awesome rep++

16 / 275; Flax: 448
Average RoundTime: 137 Seconds.
thats what i ended up with but it's not the scripts fault my wifi lost conection… anyways that 448 more than i had time to restart…

i was only able to get like 246 flaxes for some reason it just logged out and stopped. it said time to flax picking exceeded 10 seconds. how can i fix the time thing

Line 578: [Error] (16890:62): Invalid number of parameters in script C:\Program Files\SCAR 3.15\Scripts\Smart flaxer.scar


help plz

ghfghf7 try pressing ctrl f and then replacing:

Smartsetup(SmartPrefix, true, true, false);
Settargetdc(smartgetdc);

with

SMARTSetupEx(30, False, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);

not sure if that will help but it helped with another script

Line 560: [Error] (16872:62): Invalid number of parameters in script

N3s, if it doesn't work, why not just close it?