Changeset 129 for trunk/UCore.pas

Timestamp:

Jun 18, 2017, 11:13:05 AM (7 years ago)

Author:

chronos

Message:

• Fixed: If only computer players are present in game then starts computer move immediatelly.
• Fixed: Record players stats per entire turn and not per each player step.

File:

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

trunk/UCore.pas

@@ -57 +57 @@
     RegistryContext: TRegistryContext;
     procedure LoadRecentExecute(Sender: TObject);
+    procedure ProcessComputerTurns;
     procedure StartNewGame;
     procedure DoPlayerChange(Sender: TObject);
@@ -274 +275 @@
 end;
 
-procedure TCore.AGameEndTurnExecute(Sender: TObject);
+procedure TCore.ProcessComputerTurns;
 var
   Computer: TComputer;
 begin
-  Game.NextTurn;
-  FormMain.Redraw;
   while Game.Running and (Game.CurrentPlayer.Mode <> pmHuman) do begin
     if Game.CurrentPlayer.Mode = pmComputer then begin
@@ -297 +296 @@
     Sleep(1);
   end;
+end;
+
+procedure TCore.AGameEndTurnExecute(Sender: TObject);
+begin
+  Game.NextTurn;
+  FormMain.Redraw;
+  ProcessComputerTurns;
   UpdateActions;
 end;
@@ -417 +423 @@
   FormMain.Redraw;
   if FormCharts.Visible then FormCharts.Redraw;
+  ProcessComputerTurns;
   UpdateActions;
 end;