Changeset 129 for trunk

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.

Location:

trunk

Files:

• UCore.pas (modified) (4 diffs)
• UGame.pas (modified) (2 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;

trunk/UGame.pas

@@ -3037 +3037 @@
   UpdateRepeatMoves(CurrentPlayer);
   ComputePlayerStats;
-  RecordTurnStats;
   PrevPlayer := CurrentPlayer;
   // Skip dead players
@@ -3047 +3046 @@
   if Players.IndexOf(CurrentPlayer) < Players.IndexOf(PrevPlayer) then begin
     Inc(TurnCounter);
+    RecordTurnStats;
     if Assigned(FOnNewTurn) then
       FOnNewTurn(Self);