SRL Archive - Help and Support

{.include srl/srl.scar}

var
  i: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //amount of Characters using
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //player to start with

  Players[0].Name := 'Username';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'ser'; //3-4 small letters of the username
  Players[0].Active := True;
end;

begin
  SetupSRL;
  DeclarePlayers;
  for i := 0 to GetArrayLength(Players) do
  begin
    WriteLn('');
    WriteLn('  Players[' + IntToStr(i) + '].Name := ' + Players[i].Name + ';');
    WriteLn('  Players[' + IntToStr(i) + '].Pass := ' + Players[i].Pass + ';');
    WriteLn('  Players[' + IntToStr(i) + '].Nick := ' + Players[i].Nick + ';');
    WriteLn('  Players[' + IntToStr(i) + '].active := ' +
            BoolToStr(Players[i].Active) + ';');
  end;
end.

Giving me a runtime error.

[Runtime Error] : Out Of Range in line 24 in script 

Any ideas?

yes,

for i := 0 to GetArrayLength(Players) do

//supposed to be

for i := 0 to GetArrayLength(Players) -1  do

//or

for i := 0 to High(Players) do

Players[0];
Players[1];

ArrayLength = 2; when it tries to do Players[2] –> out of range

:)

~RM

Ah, ty :)).