rotwyla98
2009-01-11 14:46:23
Input your players and it will log out and login to the next person when you press the ']' character.
Simple yet extremely useful.
program charSwitch;
{.Include SRL\SRL.SCAR}
procedure declarePlayers;
begin
HowManyPlayers := 10;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Active:= True;
Players[1].Name := ''; //username
Players[1].Pass := ''; //password
Players[1].Active:= True;
Players[2].Name := ''; //username
Players[2].Pass := ''; //password
Players[2].Active:= True;
Players[3].Name := ''; //username
Players[3].Pass := ''; //password
Players[3].Active:= True;
Players[4].Name := ''; //username
Players[4].Pass := ''; //password
Players[4].Active:= True;
Players[5].Name := ''; //username
Players[5].Pass := ''; //password
Players[5].Active:= True;
Players[6].Name := ''; //username
Players[6].Pass := ''; //password
Players[6].Active:= True;
Players[7].Name := ''; //username
Players[7].Pass := ''; //password
Players[7].Active:= True;
Players[8].Name := ''; //username
Players[8].Pass := ''; //password
Players[8].Active:= True;
Players[9].Name := ''; //username
Players[9].Pass := ''; //password
Players[9].Active:= True;
end;
procedure next;
begin
Logout;
NextPlayer(false); //if you want to keep using the players then change to true.
end;
begin
activateclient;
SetUpSRL;
DeclarePlayers;
setBar(4,1,1,1);
LogInPlayer;
repeat
if iskeydown(']') then next;
until(AllPlayersInactive); //will stop when you have no players left...
end.
Simple yet extremely useful.