SCAR Code:
program New;
{.include SRL/srl.scar}
Procedure DeclarePlayers;
begin
NumberOfPlayers(4);
Players[0].Name :='---------';
Players[0].Pass :='----------';
Players[0].Nick :='---';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='----';
Players[1].Nick :='---';
Players[1].Active:=True;
Players[2].Name :='------------';
Players[2].Pass :='-------------';
Players[2].Nick :='---';
Players[2].Active:=True;
Players[3].Name := '------';
Players[3].Pass := '-------------';
Players[3].Nick := '---';
Players[3].Active := True;
end;
begin
setupsrl;
declareplayers;
loginplayer;
wait(100);
nextplayer(false);
repeat;
wait(100);
NextPlayer(false);
until(false);
end.