NextPlayerWait(Active: Boolean);

[Hey321]

{*******************************************************************************
procedure NextPlayerWait(Active: Boolean);
By: Dankness with a simple little addition by Hey321
Description: Logs in the next player after x amount of wait.
Boolean: True - Current player is ok. False - Current player is false.
*******************************************************************************}

procedure NextPlayerWait(Active: Boolean);
begin
  if RandomPlayer then
    RandomNextPlayer(Active)
  else
  begin
    WriteLn('NextPlayer');
    if not Active then
      Players[CurrentPlayer].Active := False;
    Logout;
    PlayerCurTime := (GetSystemTime div 1000);
    Players[CurrentPlayer].Worked := Players[CurrentPlayer].Worked +
      ((PlayerCurTime - PlayerStartTime) / 60);
    CurrentPlayer := CurrentPlayer + 1;
    if CurrentPlayer > HowManyPlayers - 1 then
      CurrentPlayer := 0;
    while Players[CurrentPlayer].Active = False do
    begin
      CurrentPlayer := CurrentPlayer + 1;
      if CurrentPlayer > HowManyPlayers - 1 then
      begin
        CurrentPlayer := 0;
        Wait(10000); // Everybody False. Endless Loop.
      end;
    end;
    if Players[CurrentPlayer].Active = True then
    begin
      Logs := Logs + 1;
    end;
    Wait(1800000);
    LoginPlayer;
  end;
end; 

I made this as i wanted to be able to have a wait in there to. It gives me some errors but other than that it seems fine.

[xxlegitxx]

I'm under the impression that it actually did wait in between log ins.