SRL Archive - RS3 Outdated / Broken Scripts

I was lil' bored so I tought about make a Squeel Of Fortune script, But I dont know how to stop for # amount of Spins ?
That the User have to type in the const.
Took me about 5 mins.. HF with this :D

program SqueelOfFortune;
//{$define SMART}
{$i srl/srl.simba}
{$DEFINE SRL5}

var x, y, SquealDTM, Spins, SpinsDone :integer;

const
Member = False; // CHANGE THIS ELSE IT WILL FAIL!!@@@@@@@@@@@@@@@@

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Active := True;
end;
Procedure FindSqueel;
begin

SquealDTM := DTMFromString('mbQAAAHicY2VgYNjOzMCwEIirgLgSiBuB2JiRgUELiGWB2BCIrYH4/1kXhku1MQyLrxcyfPz0iSHA2Z2BH6gfHTNiwWAAAHx8DXE=');

//If FindDTM(SquealDTM,X,Y,MSX1,MSY1,MSX2,MSY2) Then
repeat
MMouse(538, 473, 6, 6);
DebugLn('Find tha button.');
ClickMouse2(Mouse_Left);
wait(500);
MMouse(639, 316, 6, 6);
ClickMouse2(Mouse_Left);
wait(1500);
MMouse(658, 360, 6, 6);
ClickMouse2(Mouse_Left);
Wait(10000);
MMouse(532, 222, 6, 6);
ClickMouse2(Mouse_Left);
Wait(5000);
if Not Member = True then
begin
MMouse(535, 327, 6, 6);
ClickMouse2(Mouse_Left);
Spins := Spins + 1;
end;
if Member = True then
begin
MMouse(512, 298, 6, 6);
ClickMouse2(Mouse_Left);
Spins := Spins + 1;
end;
FreeDTM(SquealDTM);
Until SpinsDone = Spins
end;
Procedure Progress;
begin
Writeln('*Spins Preformed: ' + IntToStr(Spins));
end;
begin
  Smart_Server := 16;
  Smart_Members := False;
  Smart_Signed := False;
  Smart_SuperDetail := False;
  SetUpSRL;
  if Not LoggedIn then
  LogInPlayer;
 
  If LoggedIn then
  repeat
   FindSqueel;
   Progress;
  until(AllPlayersInactive);
end.

Non tested but with loads :

program SqueelOfFortune;
//{$define SMART}
{$i srl/srl.simba}
{$DEFINE SRL5}

var x, y, SquealDTM, Spins, SpinsDone :integer;

const
Member = False;
SpinsToDo = 2;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Active := True;
end;
Procedure FindSqueel;
begin

SquealDTM := DTMFromString('mbQAAAHicY2VgYNjOzMCwEIirgLgSiBuB2JiRgUELiGWB2BCIrYH4/1kXhku1MQyLrxcyfPz0iSHA2Z2BH6gfHTNiwWAAAHx8DXE=');

//If FindDTM(SquealDTM,X,Y,MSX1,MSY1,MSX2,MSY2) Then
repeat
MMouse(538, 473, 6, 6);
DebugLn('Find tha button.');
ClickMouse2(Mouse_Left);
wait(500);
MMouse(639, 316, 6, 6);
ClickMouse2(Mouse_Left);
wait(1500);
MMouse(658, 360, 6, 6);
ClickMouse2(Mouse_Left);
Wait(10000);
MMouse(532, 222, 6, 6);
ClickMouse2(Mouse_Left);
Wait(5000);
if Not Member = True then
begin
MMouse(535, 327, 6, 6);
ClickMouse2(Mouse_Left);
Spins := Spins + 1;
end;
if Member = True then
begin
MMouse(512, 298, 6, 6);
ClickMouse2(Mouse_Left);
Spins := Spins + 1;
end;
FreeDTM(SquealDTM);
until (Spins = SpinsToDo)
end;
Procedure Progress;
begin
Writeln('*Spins Preformed: ' + IntToStr(Spins));
end;
begin
  Smart_Server := 16;
  Smart_Members := False;
  Smart_Signed := False;
  Smart_SuperDetail := False;
  SetUpSRL;
  If LoggedIn then
  repeat
   FindSqueel;
   Progress;
  until(AllPlayersInactive);
end.

Have you tested to make sure it works? Cuz it's not working for me…

MMouse(535, 327, 6, 6);
ClickMouse2(Mouse_Left);

when they are together like that you could use Mouse, it will basically do that but its easier :) don't worry too much but ye just so you know for future use :)

Yeah It worked for me! the first one atleast.


EDIT : tested with SMART Just worked. got me medium exp lamp and 500k xD

EDIT :

NEW VERSION Available with SW BANKING WHEN INVFULL + TICKET DETECTION !

program SqueelOfFortune;
{$define SMART}
{$i srl/srl.simba}
{$DEFINE SRL5}

var x, y, SquealDTM, Spins, SpinsDone :integer;

const
Member = False;   // Let it on False else it's failing
SpinsToDo = 2;
BankLocation = 'SW'; // Only Soul Wars Support :S

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Active := True;
end;
Procedure Bank;
begin

Case BankLocation  of

'SW': begin
OpenBankChest(SRL_BANK_SW)
DepositAll;
CloseBank;
end;
end;
end;
Procedure FindSqueel;
begin

repeat
MMouse(538, 473, 6, 6);
DebugLn('Find tha button.');
ClickMouse2(Mouse_Left);
wait(500);
MMouse(639, 316, 6, 6);
ClickMouse2(Mouse_Left);
wait(1500);
MMouse(658, 360, 6, 6);
ClickMouse2(Mouse_Left);
Wait(10000);
MMouse(532, 222, 6, 6);
ClickMouse2(Mouse_Left);
Wait(5000);
if Not Member = True then
begin
MMouse(535, 327, 6, 6);
ClickMouse2(Mouse_Left);
Spins := Spins + 1;
end;
if Member = True then
begin
MMouse(512, 298, 6, 6);
ClickMouse2(Mouse_Left);
Spins := Spins + 1;
end;
until (Spins = SpinsToDo)
end;

Procedure Progress;
begin
Writeln('*Spins Preformed: ' + IntToStr(Spins));
end;
begin
  Smart_Server := 16;
  Smart_Members := False;
  Smart_Signed := False;
  Smart_SuperDetail := False;
  SetUpSRL;
  If LoggedIn then
  repeat
   FindSqueel;
   Progress;
   FindSpinTicket();
   if InvFull then
   Bank;
  until(AllPlayersInactive);
end.

So what exactly does it do? Make the timing right so when the spin button is hit, we have less chance of getting penetrated in the anus with 1k?

I spined 2 exp lamps with it and 500k?

Reward is random, you cant time it to get a fish mask instead of 1k.

Cute script bro.

Exactly what purpose do you have in mind for this script? Only one I can think of is if you have 10+ accounts and want to spin the wheel everyday, but you'd have to have major multiple account support then. Not hating, just wondering why you made this :p

Boredom? To try to give to the community? Who cares? It stil may be useful to someone.

It's for people that buy spins, then they don't even need to spend the time spinning and get easy xp :p

From: Juggalo812
Boredom? To try to give to the community? Who cares? It stil may be useful to someone.

Ok, wasn't trying to offend you, was just wondering. This script would probably be great for those with a ton of accounts that they cba to go on everyday to spin the wheel. Multiple account support would just have to be added

From: sacapuntas
It's for people that buy spins, then they don't even need to spend the time spinning and get easy xp :p

And yeah, it could be used for that lol. I think most of the people on here are smart enough to restrain from doing that though :D

From: Law and Justice
So what exactly does it do? Make the timing right so when the spin button is hit, we have less chance of getting penetrated in the anus with 1k?

I laughed. So hard.
I know it's bad and you should be dereped- but I'm having a bad day and this made me laugh. Oh man.

From: Joe
I laughed. So hard.
I know it's bad and you should be dereped- but I'm having a bad day and this made me laugh. Oh man.

I'm happy to have made your day!

From: sacapuntas
It's for people that buy spins, then they don't even need to spend the time spinning and get easy xp :p

^^ this

From: The Killer

MMouse(535, 327, 6, 6);
ClickMouse2(Mouse_Left);

when they are together like that you could use Mouse, it will basically do that but its easier :) don't worry too much but ye just so you know for future use :)

As that's very true, I still prefer to use ClickMouse2 after MouseMovement if needed. For me- it makes things easier to spot/read when coming back to an old script.

Wait so do you put like an account list into this and it just runs through the accounts, spinning and recording the prizes? Or does this only spin for a single account.

From: Boba155
Wait so do you put like an account list into this and it just runs through the accounts, spinning and recording the prizes? Or does this only spin for a single account.

Script is outdated.