Changeset 211 for trunk/UGame.pas

Timestamp:

May 23, 2018, 8:53:58 PM (6 years ago)

Author:

chronos

Message:

• Modified: Each client form is redrawn by itself, not by Core.

File:

• trunk/UGame.pas (modified) (1 diff)

trunk/UGame.pas

@@ -3176 +3176 @@
   // Select new player from alive players
   AlivePlayers := TPlayers.Create(False);
-  Players.GetAlivePlayers(AlivePlayers);
-  NewPlayerIndex := AlivePlayers.IndexOf(CurrentPlayer) + 1;
-  if NewPlayerIndex >= AlivePlayers.Count then begin
-    // Start of turn
-    Inc(TurnCounter);
-    RecordTurnStats;
-    if Assigned(FOnNewTurn) then
-      FOnNewTurn(Self);
-    NewPlayerIndex := NewPlayerIndex mod AlivePlayers.Count;
-  end;
-  CurrentPlayer := AlivePlayers[NewPlayerIndex];
+  try
+    Players.GetAlivePlayers(AlivePlayers);
+    NewPlayerIndex := AlivePlayers.IndexOf(CurrentPlayer) + 1;
+    if NewPlayerIndex >= AlivePlayers.Count then begin
+      // Start of turn
+      Inc(TurnCounter);
+      RecordTurnStats;
+      if Assigned(FOnNewTurn) then
+        FOnNewTurn(Self);
+      NewPlayerIndex := NewPlayerIndex mod AlivePlayers.Count;
+    end;
+    CurrentPlayer := AlivePlayers[NewPlayerIndex];
+  finally
+    AlivePlayers.Free;
+  end;
 
   if Assigned(FOnPlayerChange) then