Something like;
SCAR Code:
Var I : Integer;
For I := 0 To GetArrayLength(Players) Do
Begin
WriteLn('Player: '+ Players[I].Name +' Chopped '{etc. etc.});
End;
EDIT:
Corrected example:
SCAR Code:
program New;
{.include SRL\SRL.scar}
Var I : Integer;
Procedure DeclarePlayers;
Begin
CurrentPlayer := 0; // Starting player
HowManyPlayers := 4; // How many players in total?
NumberOfPlayers(HowManyPlayers);
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // Nickname, 3 - 4 letters of username
Players[0].Active := True; // Use this player?
Players[1].Name := ''; // Username
Players[1].Pass := ''; // Password
Players[1].Nick := ''; // Nickname, 3 - 4 letters of username
Players[1].Active := True; // Use this player?
Players[2].Name := ''; // Username
Players[2].Pass := ''; // Password
Players[2].Nick := ''; // Nickname, 3 - 4 letters of username
Players[2].Active := True; // Use this player?
Players[3].Name := ''; // Username
Players[3].Pass := ''; // Password
Players[3].Nick := ''; // Nickname, 3 - 4 letters of username
Players[3].Active := True; // Use this player?
End;
begin
SetupSRL;
DeclarePlayers;
For I := 0 To High(Players) Do
Begin
WriteLn('Player '+ IntToStr(I) +': '+ Players[I].Name +' Chopped '{etc. etc.});
End;
end.