Shouldn't you be doing work at school...
SCAR Code:
{*******************************************************************************
procedure LoadPlayerArray;
By: Nielsie95
Description: Makes the Players array have Number indexes,
Call it AFTER you have declared your players..
*******************************************************************************}
procedure LoadPlayerArray;
var
i, c, l: Integer;
begin
if (GetArrayLength(Players) = 100) then
for i := 0 to 99 do
if Players[i].Name = '' then
begin
SetArrayLength(Players, i);
HowManyPlayers := i;
Break;
end
for c := 0 to HowManyPlayers -1 do
begin
l := GetArrayLength(Players[c].Integers);
if (l = 100) then
begin
for i := 0 to 99 do
if Players[c].Integers[i] = -1 then
begin
SetArrayLength(Players[c].Integers, i);
Break;
end;
end else
for i := 0 to l -1 do
if Players[c].Integers[i] = -1 then
Players[c].Integers[i] := 0;
l := GetArrayLength(Players[c].Strings);
if (l = 100) then
begin
for i := 0 to 99 do
if Players[c].Strings[i] = 'ØØØ' then
begin
SetArrayLength(Players[c].Strings, i);
Break;
end;
end else
for i := 0 to l -1 do
if Players[c].Strings[i] = 'ØØØ' then
Players[c].Strings[i] := '';
l := GetArrayLength(Players[c].Extendeds);
if (l = 100) then
begin
for i := 0 to 99 do
if Players[c].Extendeds[i] = -1.0 then
begin
SetArrayLength(Players[c].Extendeds, i);
Break;
end;
end else
for i := 0 to l -1 do
if Players[c].Extendeds[i] = -1.0 then
Players[c].Extendeds[i] := 0.0;
SetArrayLength(Players[c].Booleans, HowManyBooleans);
end;
end;