SRL Archive - Discussions and Debates

I believe it'd be much less risky if the login order of players was randomized. Any thoughts?

{*******************************************************************************
procedure RandomNextPlayer(Active: Boolean);
By: Dankness based on WT-Fawki's NextPlayer
Description: Picks Random Player that is Active and Logs in
*******************************************************************************}
procedure RandomNextPlayer(Active: Boolean);
var LastPlayer : Integer;
begin
  Writeln('NextPlayer');
  LastPlayer := CurrentPlayer;
  if not Active then
    Players[CurrentPlayer].Active := False;
  LogOut;
  PlayerCurTime := (GetSystemTime div 1000);
  Players[CurrentPlayer].Worked := Players[CurrentPlayer].Worked + ((PlayerCurTime - PlayerStartTime) / 60);
  repeat
    CurrentPlayer := Random ( HowManyPlayers );
    Wait ( 100 );
  until ( Players[CurrentPlayer].Active ) and (CurrentPlayer <> LastPlayer );
  if Players[CurrentPlayer].Active = True then
  begin
    Logs := Logs + 1;
  end;
  LoginPlayer;
end;

;)

Oh. :eek: ….I'm sorry. I'm studying SRL now, I should've seen that.
Thank you, Wizzup.;)