SRL Archive - OSR Help

when i run loginplayer in my script i get this error.

Error: Out Of Range at line 393
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]

here

//login.simba
                       {Check for active player.}

{Error is here ->}  if (not (Players[CurrentPlayer].Active)) then
  begin
    WriteLn('Player is not Active...');
    if (AllPlayersInActive) then  

Make sure you have
CurrentPlayer := SOME INTEGER HERE;

In your script somewhere (like where you declare players)

i have only CurrentPlayer := 0; since there is no backup players in this script.

  Procedure DeclarePlayers;
  begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);                //This line is a must or else it will give you out of range error..
    CurrentPlayer := 0;
    with Players[0] do
    begin
      Name        := '';
      Pass        := '';
      Pin         := '';
      BoxRewards  := ['XP','xp','lamp'];
      LampSkill   := 'Slayer';
      Active      := True;
   end;
end;

used the exact same setup you show and same error.