Changeset 197 for trunk/UCore.pas

Timestamp:

May 16, 2018, 11:03:48 AM (6 years ago)

Author:

chronos

Message:

• Added: Evaluate win objection to stay alive for defined number of turns. Multiple players can win.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -116 +116 @@
 resourcestring
   SPlayerWins = 'Player %s wins';
+  SPlayersWins = 'Players %s win';
   SEndGame = 'End game?';
   SEndGameQuestion = 'Do you want to end current game?';
@@ -127 +128 @@
 
 procedure TCore.DoOnWin(Player: TPlayer);
+var
+  PlayerNames: string;
+  AlivePlayers: TPlayerArray;
+  I: Integer;
 begin
   RedrawClients;
-  ShowMessage(Format(SPlayerWins, [Player.Name]));
+  if Assigned(Player) then
+    ShowMessage(Format(SPlayerWins, [Player.Name]))
+  else begin
+    AlivePlayers := Game.Players.GetAlivePlayers;
+    PlayerNames := '';
+    for I := 0 to Length(AlivePlayers) - 1 do begin
+      if I > 0 then PlayerNames := PlayerNames + ', ';
+      PlayerNames := PlayerNames + AlivePlayers[I].Name;
+    end;
+    ShowMessage(Format(SPlayersWins, [PlayerNames]))
+  end;
 end;
 
@@ -407 +422 @@
   FreeAndNil(StoredDimension);
   FreeAndNil(Server);
+  FreeAndNil(Clients);
   FreeAndNil(Game);
-  FreeAndNil(Clients);
 end;