SCAR Code:
procedure SetPlayer(name, pass, nick : string; active : boolean; bools : array of boolean; integers : array of integer; strings : array of string; Extendeds : array of extended);
var
i : integer;
begin
HowManyPlayers := GetArrayLength(Players) + 1;
NumberOfPlayers(HowManyPlayers);
Players[GetArrayLength(Players) - 1].Name := name;
Players[GetArrayLength(Players) - 1].Pass := pass;
Players[GetArrayLength(Players) - 1].Nick := nick;
Players[GetArrayLength(Players) - 1].Active := active;
for i := 0 to GetArrayLength(bools) - 1 do Players[GetArrayLength(Players) - 1].Booleans[i] := bools[i];
i := 0;
for i := 0 to GetArrayLength(integers) - 1 do Players[GetArrayLength(Players) - 1].Integers[i] := integers[i];
i := 0;
for i := 0 to GetArrayLength(strings) - 1 do Players[GetArrayLength(Players) - 1].Strings[i] := Strings[i];
i := 0;
for i := 0 to GetArrayLength(Extendeds) - 1 do Players[GetArrayLength(Players) - 1].Extendeds[i] := Extendeds[i];
i := 0;
end;
Sets a player with one procedure.
Used like so
SCAR Code:
SetPlayer('username', 'password', 'ser', true, [true, false], [1, 2, 3], ['a', 'b', 'c'], [0.1, 0.2, 0.3]);
You don't need to call NumberOfPlayers anymore either. It does that automatically.
However, you do need to call CurrentPlayer := whatever.
Enjoy
.