marpis
2009-10-06 19:41:56
{*******************************************************************************
procedure NumberOfPlayers(Number: Integer);
By: BenLand100 / Wizzup?
Description: Makes the Players array have Number indexes, also sets strings and
other player array's too standard 100.
*******************************************************************************}
procedure NumberOfPlayers(Number: Integer);
var
I: Integer;
begin
SetLength(Players, Number);
HowManyPlayers := Number;
for I := 0 to HowManyPlayers - 1 do
begin
SetLength(Players[i].Strings, 100);
SetLength(Players[i].Integers, 100);
SetLength(Players[i].Booleans, 100);
SetLength(Players[i].Extendeds, 100);
SetLength(Players[i].Arrays, 100); // <- this was missing
end;
end;