Changeset 158 for trunk/UCore.pas

Timestamp:

Nov 19, 2017, 1:02:02 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Show error message if not all players were placed to the map.

File:

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

trunk/UCore.pas

@@ -109 +109 @@
   SRestartGame = 'Restart game?';
   SRestartGameQuestion = 'Do you want to restart current game?';
+  SPlayersNotInitialized = 'Not all players were initialized with start cell. Needed %d, initialized %d. Change map parameters to have more terrain cells.';
 
 
@@ -429 +430 @@
   Game.New;
   SelectClient;
-  Game.Running := True;
+  if Game.Players.GetAliveCount = Game.Players.Count then Game.Running := True
+    else ShowMessage(Format(SPlayersNotInitialized, [Game.Players.Count, Game.Players.GetAliveCount]));
   FormMain.Redraw;
   if FormCharts.Visible then FormCharts.Redraw;