SuperFlaxer [SRL 4]

[doucette]

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?

[kor]

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

[Santa_Clause]

MMm some things that need fixing.

[SCAR]

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

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

[kingarabian]

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

[Timer]

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

[Sneakdella]

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.

[Timer]

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

[Sneakdella]

[n3ss3s]

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?

[kor]

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

[Shuttleu]

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

~shut

[mastaraymond]

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

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

[MylesMadness]

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.

[kingarabian]

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;

[n3ss3s]

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

[kor]

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.

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

[kor]

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

[n3ss3s]

Propably.

[kor]

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

[n3ss3s]

I don't think it works very well

[kor]

I don't think it works very well

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

[n3ss3s]

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