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
SCAR Code:
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