SRL Archive - RS3 Outdated / Broken Scripts

Army all-level gainer!


ShowerThoughts

2007-10-10 02:04:13

yup, heres it fill only in the usernames and pass and your okay ;)
because he will be logged in for like 5 secs and then logsout and then go's to next player etc.

wat it does:
logs in player 1 checks all levels logouts
logs in player 2 checks all levels logouts
etc. and so on

warning!
dont use more than 6 players :s

Program New;
{.include srl/srl.scar}
Var
x, y,counter :integer;



procedure DeclarePlayers;
begin

HowManyPlayers := 6; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer := 0; // CurrentPlayer - Player That Will Login First

Players[0].Name := ''; //Player Username.
Players[0].Pass := ''; //Player Password.
Players[0].Nick := 'cut'; //3 or 4 Letters From The Username Of This Player.
Players[0].Active := True; //Will You Be Using This Player?
Players[0].level[1]:=0;
Players[0].level[2]:=0;
Players[0].level[3]:=0;
Players[0].level[4]:=0;
Players[0].level[5]:=0;
Players[0].level[6]:=0;
Players[0].level[7]:=0;
Players[0].level[8]:=0;
Players[0].level[9]:=0;
Players[0].level[10]:=0;
Players[0].level[11]:=0;
Players[0].level[12]:=0;
Players[0].level[13]:=0;
Players[0].level[14]:=0;
Players[0].level[15]:=0;
Players[0].level[16]:=0;
Players[0].level[17]:=0;
Players[0].level[18]:=0;
Players[0].level[19]:=0;
Players[0].level[20]:=0;
Players[0].level[21]:=0;
Players[0].level[22]:=0;
Players[0].level[23]:=0;

Players[1].Name := 'user'; //Player Username.
Players[1].Pass := 'pass'; //Player Password.
Players[1].Nick := 'ser'; //3 or 4 Letters From The Username Of This Player.
Players[1].Active := True; //Will You Be Using This Player?
Players[1].level[1]:=0;
Players[1].level[2]:=0;
Players[1].level[3]:=0;
Players[1].level[4]:=0;
Players[1].level[5]:=0;
Players[1].level[6]:=0;
Players[1].level[7]:=0;
Players[1].level[8]:=0;
Players[1].level[9]:=0;
Players[1].level[10]:=0;
Players[1].level[11]:=0;
Players[1].level[12]:=0;
Players[1].level[13]:=0;
Players[1].level[14]:=0;
Players[1].level[15]:=0;
Players[1].level[16]:=0;
Players[1].level[17]:=0;
Players[1].level[18]:=0;
Players[1].level[19]:=0;
Players[1].level[20]:=0;
Players[1].level[21]:=0;
Players[1].level[22]:=0;
Players[1].level[23]:=0;


Players[2].Name := 'username'; //Player Username.
Players[2].Pass := 'password'; //Player Password.
Players[2].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
Players[2].Active := True; //Will You Be Using This Player?
Players[2].level[1]:=0;
Players[2].level[2]:=0;
Players[2].level[3]:=0;
Players[2].level[4]:=0;
Players[2].level[5]:=0;
Players[2].level[6]:=0;
Players[2].level[7]:=0;
Players[2].level[8]:=0;
Players[2].level[9]:=0;
Players[2].level[10]:=0;
Players[2].level[11]:=0;
Players[2].level[12]:=0;
Players[2].level[13]:=0;
Players[2].level[14]:=0;
Players[2].level[15]:=0;
Players[2].level[16]:=0;
Players[2].level[17]:=0;
Players[2].level[18]:=0;
Players[2].level[19]:=0;
Players[2].level[20]:=0;
Players[2].level[21]:=0;
Players[2].level[22]:=0;
Players[2].level[23]:=0;

Players[3].Name := 'username'; //Player Username.
Players[3].Pass := 'password'; //Player Password.
Players[3].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
Players[3].Active := True; //Will You Be Using This Player?
Players[3].level[1]:=0;
Players[3].level[2]:=0;
Players[3].level[3]:=0;
Players[3].level[4]:=0;
Players[3].level[5]:=0;
Players[3].level[6]:=0;
Players[3].level[7]:=0;
Players[3].level[8]:=0;
Players[3].level[9]:=0;
Players[3].level[10]:=0;
Players[3].level[11]:=0;
Players[3].level[12]:=0;
Players[3].level[13]:=0;
Players[3].level[14]:=0;
Players[3].level[15]:=0;
Players[3].level[16]:=0;
Players[3].level[17]:=0;
Players[3].level[18]:=0;
Players[3].level[19]:=0;
Players[3].level[20]:=0;
Players[3].level[21]:=0;
Players[3].level[22]:=0;
Players[3].level[23]:=0;

Players[4].Name := 'username'; //Player Username.
Players[4].Pass := 'password'; //Player Password.
Players[4].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
Players[4].Active := True; //Will You Be Using This Player?
Players[4].level[1]:=0;
Players[4].level[2]:=0;
Players[4].level[3]:=0;
Players[4].level[4]:=0;
Players[4].level[5]:=0;
Players[4].level[6]:=0;
Players[4].level[7]:=0;
Players[4].level[8]:=0;
Players[4].level[9]:=0;
Players[4].level[10]:=0;
Players[4].level[11]:=0;
Players[4].level[12]:=0;
Players[4].level[13]:=0;
Players[4].level[14]:=0;
Players[4].level[15]:=0;
Players[4].level[16]:=0;
Players[4].level[17]:=0;
Players[4].level[18]:=0;
Players[4].level[19]:=0;
Players[4].level[20]:=0;
Players[4].level[21]:=0;
Players[4].level[22]:=0;
Players[4].level[23]:=0;

Players[5].Name := 'username'; //Player Username.
Players[5].Pass := 'password'; //Player Password.
Players[5].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
Players[5].Active := True; //Will You Be Using This Player?
Players[5].level[1]:=0;
Players[5].level[2]:=0;
Players[5].level[3]:=0;
Players[5].level[4]:=0;
Players[5].level[5]:=0;
Players[5].level[6]:=0;
Players[5].level[7]:=0;
Players[5].level[8]:=0;
Players[5].level[9]:=0;
Players[5].level[10]:=0;
Players[5].level[11]:=0;
Players[5].level[12]:=0;
Players[5].level[13]:=0;
Players[5].level[14]:=0;
Players[5].level[15]:=0;
Players[5].level[16]:=0;
Players[5].level[17]:=0;
Players[5].level[18]:=0;
Players[5].level[19]:=0;
Players[5].level[20]:=0;
Players[5].level[21]:=0;
Players[5].level[22]:=0;
Players[5].level[23]:=0;

writeln(inttostr(HowManyPlayers) + ' Players');

end;

procedure CheckSkills;
begin
//player 1
GameTab(2);
GetAllLevels;
if HowManyPlayers>1 then
begin
nextplayer(true);
//player 2
GameTab(2);
GetAllLevels;
end;
if HowManyPlayers>2 then
begin
nextplayer(true);
//player 3
GameTab(2);
GetAllLevels;
end;
if HowManyPlayers>3 then
begin
nextplayer(true);
//player 4
GameTab(2);
GetAllLevels;
end;
if HowManyPlayers>4 then
begin
nextplayer(true);
//player 5
GameTab(2);
GetAllLevels;
end;
if HowManyPlayers>5 then
begin
nextplayer(true);
//player 6
GameTab(2);
GetAllLevels;
end;
if HowManyPlayers>6 then
begin
nextplayer(true);
//player 7
GameTab(2);
GetAllLevels;
end;
if HowManyPlayers>7 then
begin
nextplayer(true);
//player 8
GameTab(2);
GetAllLevels;
end;
if HowManyPlayers>8 then
begin
nextplayer(true);
//player 9
GameTab(2);
GetAllLevels;
end;
end;

Procedure ProgessReport;
begin
WriteLn('//////////////////////////////');
WriteLn('/////////'+Players[0].Name+'///////////');
WriteLn('//////////////////////////////');
WriteLn('//'+ inttostr(Players[0].level[1]) + ' attack');
WriteLn('//'+ inttostr(Players[0].level[2]) + ' strength');
WriteLn('//'+ inttostr(Players[0].level[3]) + ' defence');
WriteLn('//'+ inttostr(Players[0].level[4]) + ' range');
WriteLn('//'+ inttostr(Players[0].level[5]) + ' prayer');
WriteLn('//'+ inttostr(Players[0].level[6]) + ' magic');
WriteLn('//'+ inttostr(Players[0].level[7])+ ' runecrafting');
WriteLn('//'+ inttostr(Players[0].level[8])+ ' hitpoints');
WriteLn('//'+ inttostr(Players[0].level[9])+ ' agility');
WriteLn('//'+ inttostr(Players[0].level[10]) +' herblore');
WriteLn('//'+ inttostr(Players[0].level[11]) +' thieving');
WriteLn('//'+ inttostr(Players[0].level[12]) +' crafting');
WriteLn('//'+ inttostr(Players[0].level[13]) +' fletching');
WriteLn('//'+ inttostr(Players[0].level[14]) +' slayer');
WriteLn('//'+ inttostr(Players[0].level[15]) +' mining');
WriteLn('//'+ inttostr(Players[0].level[16]) +' smithing');
WriteLn('//'+ inttostr(Players[0].level[17]) +' fishing');
WriteLn('//'+ inttostr(Players[0].level[18]) +' cooking');
WriteLn('//'+ inttostr(Players[0].level[19]) +' firemaking');
WriteLn('//'+ inttostr(Players[0].level[20]) +' woodcutting');
WriteLn('//'+ inttostr(Players[0].level[21]) +' farming');
WriteLn('//'+ inttostr(Players[0].level[22]) +' construction');
WriteLn('//'+ inttostr(Players[0].level[23]) +' hunting');
WriteLn('//////////////////////////////');
WriteLn('');
WriteLn('');
if HowManyPlayers>1 then
begin
WriteLn('//////////////////////////////');
WriteLn('/////////'+Players[1].Name+'///////////');
WriteLn('//////////////////////////////');
WriteLn('//'+ inttostr(Players[1].level[1]) + ' attack');
WriteLn('//'+ inttostr(Players[1].level[2]) + ' strength');
WriteLn('//'+ inttostr(Players[1].level[3]) + ' defence');
WriteLn('//'+ inttostr(Players[1].level[4]) + ' range');
WriteLn('//'+ inttostr(Players[1].level[5]) + ' prayer');
WriteLn('//'+ inttostr(Players[1].level[6]) + ' magic');
WriteLn('//'+ inttostr(Players[1].level[7])+ ' runecrafting');
WriteLn('//'+ inttostr(Players[1].level[8])+ ' hitpoints');
WriteLn('//'+ inttostr(Players[1].level[9])+ ' agility');
WriteLn('//'+ inttostr(Players[1].level[10]) +' herblore');
WriteLn('//'+ inttostr(Players[1].level[11]) +' thieving');
WriteLn('//'+ inttostr(Players[1].level[12]) +' crafting');
WriteLn('//'+ inttostr(Players[1].level[13]) +' fletching');
WriteLn('//'+ inttostr(Players[1].level[14]) +' slayer');
WriteLn('//'+ inttostr(Players[1].level[15]) +' mining');
WriteLn('//'+ inttostr(Players[1].level[16]) +' smithing');
WriteLn('//'+ inttostr(Players[1].level[17]) +' fishing');
WriteLn('//'+ inttostr(Players[1].level[18]) +' cooking');
WriteLn('//'+ inttostr(Players[1].level[19]) +' firemaking');
WriteLn('//'+ inttostr(Players[1].level[20]) +' woodcutting');
WriteLn('//'+ inttostr(Players[1].level[21]) +' farming');
WriteLn('//'+ inttostr(Players[1].level[22]) +' construction');
WriteLn('//'+ inttostr(Players[1].level[23]) +' hunting');
WriteLn('//////////////////////////////');
WriteLn('');
WriteLn('');
end;
if HowManyPlayers>2 then
begin
WriteLn('//////////////////////////////');
WriteLn('/////////'+Players[2].Name+'///////////');
WriteLn('//////////////////////////////');
WriteLn('//'+ inttostr(Players[2].level[1]) + ' attack');
WriteLn('//'+ inttostr(Players[2].level[2]) + ' strength');
WriteLn('//'+ inttostr(Players[2].level[3]) + ' defence');
WriteLn('//'+ inttostr(Players[2].level[4]) + ' range');
WriteLn('//'+ inttostr(Players[2].level[5]) + ' prayer');
WriteLn('//'+ inttostr(Players[2].level[6]) + ' magic');
WriteLn('//'+ inttostr(Players[2].level[7])+ ' runecrafting');
WriteLn('//'+ inttostr(Players[2].level[8])+ ' hitpoints');
WriteLn('//'+ inttostr(Players[2].level[9])+ ' agility');
WriteLn('//'+ inttostr(Players[2].level[10]) +' herblore');
WriteLn('//'+ inttostr(Players[2].level[11]) +' thieving');
WriteLn('//'+ inttostr(Players[2].level[12]) +' crafting');
WriteLn('//'+ inttostr(Players[2].level[13]) +' fletching');
WriteLn('//'+ inttostr(Players[2].level[14]) +' slayer');
WriteLn('//'+ inttostr(Players[2].level[15]) +' mining');
WriteLn('//'+ inttostr(Players[2].level[16]) +' smithing');
WriteLn('//'+ inttostr(Players[2].level[17]) +' fishing');
WriteLn('//'+ inttostr(Players[2].level[18]) +' cooking');
WriteLn('//'+ inttostr(Players[2].level[19]) +' firemaking');
WriteLn('//'+ inttostr(Players[2].level[20]) +' woodcutting');
WriteLn('//'+ inttostr(Players[2].level[21]) +' farming');
WriteLn('//'+ inttostr(Players[2].level[22]) +' construction');
WriteLn('//'+ inttostr(Players[2].level[23]) +' hunting');
WriteLn('//////////////////////////////');
WriteLn('');
WriteLn('');
end;
if HowManyPlayers>3 then
begin
WriteLn('//////////////////////////////');
WriteLn('/////////'+Players[3].Name+'///////////');
WriteLn('//////////////////////////////');
WriteLn('//'+ inttostr(Players[3].level[1]) + ' attack');
WriteLn('//'+ inttostr(Players[3].level[2]) + ' strength');
WriteLn('//'+ inttostr(Players[3].level[3]) + ' defence');
WriteLn('//'+ inttostr(Players[3].level[4]) + ' range');
WriteLn('//'+ inttostr(Players[3].level[5]) + ' prayer');
WriteLn('//'+ inttostr(Players[3].level[6]) + ' magic');
WriteLn('//'+ inttostr(Players[3].level[7])+ ' runecrafting');
WriteLn('//'+ inttostr(Players[3].level[8])+ ' hitpoints');
WriteLn('//'+ inttostr(Players[3].level[9])+ ' agility');
WriteLn('//'+ inttostr(Players[3].level[10]) +' herblore');
WriteLn('//'+ inttostr(Players[3].level[11]) +' thieving');
WriteLn('//'+ inttostr(Players[3].level[12]) +' crafting');
WriteLn('//'+ inttostr(Players[3].level[13]) +' fletching');
WriteLn('//'+ inttostr(Players[3].level[14]) +' slayer');
WriteLn('//'+ inttostr(Players[3].level[15]) +' mining');
WriteLn('//'+ inttostr(Players[3].level[16]) +' smithing');
WriteLn('//'+ inttostr(Players[3].level[17]) +' fishing');
WriteLn('//'+ inttostr(Players[3].level[18]) +' cooking');
WriteLn('//'+ inttostr(Players[3].level[19]) +' firemaking');
WriteLn('//'+ inttostr(Players[3].level[20]) +' woodcutting');
WriteLn('//'+ inttostr(Players[3].level[21]) +' farming');
WriteLn('//'+ inttostr(Players[3].level[22]) +' construction');
WriteLn('//'+ inttostr(Players[3].level[23]) +' hunting');
WriteLn('//////////////////////////////');
WriteLn('');
WriteLn('');
end;
if HowManyPlayers>4 then
begin
WriteLn('//////////////////////////////');
WriteLn('/////////'+Players[4].Name+'///////////');
WriteLn('//////////////////////////////');
WriteLn('//'+ inttostr(Players[4].level[1]) + ' attack');
WriteLn('//'+ inttostr(Players[4].level[2]) + ' strength');
WriteLn('//'+ inttostr(Players[4].level[3]) + ' defence');
WriteLn('//'+ inttostr(Players[4].level[4]) + ' range');
WriteLn('//'+ inttostr(Players[4].level[5]) + ' prayer');
WriteLn('//'+ inttostr(Players[4].level[6]) + ' magic');
WriteLn('//'+ inttostr(Players[4].level[7])+ ' runecrafting');
WriteLn('//'+ inttostr(Players[4].level[8])+ ' hitpoints');
WriteLn('//'+ inttostr(Players[4].level[9])+ ' agility');
WriteLn('//'+ inttostr(Players[4].level[10]) +' herblore');
WriteLn('//'+ inttostr(Players[4].level[11]) +' thieving');
WriteLn('//'+ inttostr(Players[4].level[12]) +' crafting');
WriteLn('//'+ inttostr(Players[4].level[13]) +' fletching');
WriteLn('//'+ inttostr(Players[4].level[14]) +' slayer');
WriteLn('//'+ inttostr(Players[4].level[15]) +' mining');
WriteLn('//'+ inttostr(Players[4].level[16]) +' smithing');
WriteLn('//'+ inttostr(Players[4].level[17]) +' fishing');
WriteLn('//'+ inttostr(Players[4].level[18]) +' cooking');
WriteLn('//'+ inttostr(Players[4].level[19]) +' firemaking');
WriteLn('//'+ inttostr(Players[4].level[20]) +' woodcutting');
WriteLn('//'+ inttostr(Players[4].level[21]) +' farming');
WriteLn('//'+ inttostr(Players[4].level[22]) +' construction');
WriteLn('//'+ inttostr(Players[4].level[23]) +' hunting');
WriteLn('//////////////////////////////');
end;
if HowManyPlayers>5 then
begin
WriteLn('');
WriteLn('');
WriteLn('//////////////////////////////');
WriteLn('/////////'+Players[5].Name+'///////////');
WriteLn('//////////////////////////////');
WriteLn('//'+ inttostr(Players[5].level[1]) + ' attack');
WriteLn('//'+ inttostr(Players[5].level[2]) + ' strength');
WriteLn('//'+ inttostr(Players[5].level[3]) + ' defence');
WriteLn('//'+ inttostr(Players[5].level[4]) + ' range');
WriteLn('//'+ inttostr(Players[5].level[5]) + ' prayer');
WriteLn('//'+ inttostr(Players[5].level[6]) + ' magic');
WriteLn('//'+ inttostr(Players[5].level[7])+ ' runecrafting');
WriteLn('//'+ inttostr(Players[5].level[8])+ ' hitpoints');
WriteLn('//'+ inttostr(Players[5].level[9])+ ' agility');
WriteLn('//'+ inttostr(Players[5].level[10]) +' herblore');
WriteLn('//'+ inttostr(Players[5].level[11]) +' thieving');
WriteLn('//'+ inttostr(Players[5].level[12]) +' crafting');
WriteLn('//'+ inttostr(Players[5].level[13]) +' fletching');
WriteLn('//'+ inttostr(Players[5].level[14]) +' slayer');
WriteLn('//'+ inttostr(Players[5].level[15]) +' mining');
WriteLn('//'+ inttostr(Players[5].level[16]) +' smithing');
WriteLn('//'+ inttostr(Players[5].level[17]) +' fishing');
WriteLn('//'+ inttostr(Players[5].level[18]) +' cooking');
WriteLn('//'+ inttostr(Players[5].level[19]) +' firemaking');
WriteLn('//'+ inttostr(Players[5].level[20]) +' woodcutting');
WriteLn('//'+ inttostr(Players[5].level[21]) +' farming');
WriteLn('//'+ inttostr(Players[5].level[22]) +' construction');
WriteLn('//'+ inttostr(Players[5].level[23]) +' hunting');
WriteLn('//////////////////////////////');
end;
end;

{===================]
SetUpClient
[===================}

Procedure SetUpClient;
Begin
DeclarePlayers;
Wait(100);
ActivateClient;
wait(1000);
LoginPlayer;
wait(100+random(50));
MakeCompass('N');
HighestAngle;
End;
{===================]
MainLoop
[===================}

Begin
SetUpSrl;
SetUpClient;
CheckSkills;
ProgessReport;
End.
i know i could use currentplayer but i like this more :)

Runescape Pro

2007-10-10 02:08:23

umm… your username and pass bro

ShowerThoughts

2007-10-10 02:14:35

thanks dude there are safe!


edit:
w00t i got a bear i lovely bear!

Dumpin

2007-10-10 02:29:03

what does it actually do? lol

ShowerThoughts

2007-10-10 02:35:29

look the thread name all levelgainer

edited the first post look there

hessels92

2007-10-10 03:02:46

wat does it do

Mr.Klean

2007-10-10 08:20:39

Awesome, but a little late, I just did this all by hand on my trained army. <_<

JuKKa

2007-10-10 08:31:06

This could be done much shorter, Faster, Betterlooking with a For To Do loop

rogeruk

2007-10-11 20:56:48

Something i came up with ..

procedure PrintIt;
var
i:Integer;
Skill:String;
begin
writeln('|¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬|');
writeln('|| Player ' +Players[CurrentPlayer].Name);
for i := 1 to 23 do
begin
if(Players[CurrentPlayer].level[i] = 0) then Players[CurrentPlayer].level[i]:= 1;
case i of
1: Skill:='Attack';
2: Skill:='Strength';
3: Skill:='Defence';
4: Skill:='Range';
5: Skill:='Prayer';
6: Skill:='Magic';
7: Skill:='Runecrafting';
8: Skill:='Hitpoints';
9: Skill:='Agility';
10: Skill:='Herblore';
11: Skill:='Thieving';
12: Skill:='Crafting';
13: Skill:='Fletching';
14: Skill:='Slayer';
15: Skill:='Mining';
16: Skill:='Smithing';
17: Skill:='Fishing';
18: Skill:='Cooking';
19: Skill:='Firemaking';
20: Skill:='Woodcutting';
21: Skill:='Farming';
22: Skill:='Construction';
23: Skill:='Hunting';
end;
writeln('|| ' +Skill + ' = ' +IntToStr(Players[CurrentPlayer].level[i]));
wait(50+random(25));
end;
writeln('|----------------------------------------|');
end;

procedure workit;
begin
GetAllLevels;
PrintIt;
end;

Then just basic swaping of players then.

Faster, better looking, alot less code :D

Btw GetAllLevels will automatically select the stats tab (tab 2).

mat_de_b

2007-10-13 20:51:52

Still could be quicker. load Skill to an array and then call that…

Edit: your function were you do all the logging in is way too long to? just set each player to false when the Stats have been taken, and then do an all players false check…

Edit: and its a stat collecter not all level gainer :D

mynameisjoe

2007-10-15 20:09:51

Umm, this is a very… interesting… script. I guess it's useful for those people who want to know their autos skill levels.

P.S. All of the people who have posted before, The script LOGS ONTO YOUR ACCOUNT(S), GETS THE SKILL STATS(MINING, WC, FISHING, ETC.) AND TELLS YOU THEM WITHOUT HAVING TO LOG ON YOURSELF. I hope that cleared it up a bit.

EvilChicken!

2007-10-26 08:58:52

Hermpie, dear Hermpie.
You didn't add the most important ting! (alteast for me it is.)
COMBAT LEVEL CHECKER.

Lets say I just ran a chicken killer for an entire week nonstop, and now want to know the cb lvls of my army. Eh?

Please put it in a attachment, those copy-pase scripts annoy my ass off.