Changeset 148 for trunk/UCore.pas

Timestamp:

Nov 12, 2017, 11:06:20 PM (7 years ago)

Author:

chronos

Message:

• Modified: Unit moves moved from TGame to TPlayer. Moves belong to player rather then to game so one player can't see and change moves of other players.
• Added: New Unit moves window available from Tools menu.

File:

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

trunk/UCore.pas

@@ -16 +16 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AShowUnitMoves: TAction;
     AShowCharts: TAction;
     AHelp: TAction;
@@ -48 +49 @@
     procedure ASettingsExecute(Sender: TObject);
     procedure AShowChartsExecute(Sender: TObject);
+    procedure AShowUnitMovesExecute(Sender: TObject);
     procedure CoolTranslator1Translate(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
@@ -60 +62 @@
     procedure StartNewGame;
     procedure DoPlayerChange(Sender: TObject);
+    procedure DoMoveUpdated(UnitMove: TUnitMove);
     procedure DoOnMove(CellFrom, CellTo: TCell; var CountOnce,
       CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
@@ -95 +98 @@
 uses
   UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout, UFormPlayer,
-  UFormHelp, UFormCharts;
+  UFormHelp, UFormCharts, UFormUnitMoves;
 
 const
@@ -278 +281 @@
 
 procedure TCore.ProcessComputerTurns;
-var
-  Computer: TComputer;
 begin
   while Game.Running and (Game.CurrentPlayer.Mode <> pmHuman) do begin
     if Game.CurrentPlayer.Mode = pmComputer then begin
-      Computer := TComputer.Create;
-      try
-        Computer.Game := Game;
-        Computer.Process;
-      finally
-        Computer.Free;
-      end;
+      Game.CurrentPlayer.Computer.Process;
       FormMain.Redraw;
       Delay(Trunc((100 - AnimationSpeed) / 100 * 2000));
@@ -374 +369 @@
 end;
 
+procedure TCore.AShowUnitMovesExecute(Sender: TObject);
+begin
+  FormUnitMoves.Show;
+end;
+
 procedure TCore.CoolTranslator1Translate(Sender: TObject);
 begin
@@ -385 +385 @@
   Game := TGame.Create;
   Game.OnMove := DoOnMove;
+  Game.OnMoveUpdated := DoMoveUpdated;
   Game.OnWin := DoOnWin;
   Game.OnNewTurn := GameNewTurnExecute;
@@ -421 +422 @@
   FormMain.Redraw;
   if FormCharts.Visible then FormCharts.Redraw;
+  if FormUnitMoves.Visible then FormUnitMoves.ReloadList;
 end;
 
@@ -430 +432 @@
   FormMain.Redraw;
   if FormCharts.Visible then FormCharts.Redraw;
+  if FormUnitMoves.Visible then FormUnitMoves.ReloadList;
   ProcessComputerTurns;
   UpdateActions;
@@ -439 +442 @@
     CurrentClient := Game.CurrentPlayer.Client;
   if FormCharts.Visible then FormCharts.Redraw;
+  if FormUnitMoves.Visible then FormUnitMoves.ReloadList;
+end;
+
+procedure TCore.DoMoveUpdated(UnitMove: TUnitMove);
+begin
+  if FormUnitMoves.Visible then FormUnitMoves.ReloadList;
 end;