Changeset 128 for trunk/UGame.pas

Timestamp:

Jun 17, 2017, 5:55:16 PM (7 years ago)

Author:

chronos

Message:

• Added: Graph window can be shown from menu which presents development of various statistic values during game turns.

File:

• trunk/UGame.pas (modified) (14 diffs)

trunk/UGame.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, ExtCtrls, Graphics, Contnrs, XMLConf, XMLRead, XMLWrite,
-  DOM, Math, FileUtil, UXMLUtils, Dialogs, Types, LCLType, LCLIntf;
+  DOM, Math, LazFileUtils, UXMLUtils, Dialogs, Types, LCLType, LCLIntf;
 
 const
@@ -243 +243 @@
   end;
 
+  { TGameTurnStat }
+
+  TGameTurnStat = class
+    OccupiedCells: Integer;
+    Units: Integer;
+    DiscoveredCells: Integer;
+    Cities: Integer;
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
+  end;
+
+  { TGameTurnStats }
+
+  TGameTurnStats = class(TObjectList)
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
+  end;
+
   TPlayerMode = (pmHuman, pmComputer);
   TComputerAgressivity = (caLow, caMedium, caHigh);
@@ -262 +280 @@
     TotalCells: Integer;
     TotalCities: Integer;
+    TotalDiscovered: Integer;
     StartUnits: Integer;
     StartCell: TCell;
@@ -267 +286 @@
     Defensive: Boolean;
     Agressivity: TComputerAgressivity;
+    TurnStats: TGameTurnStats;
+    procedure Clear;
     procedure LoadFromNode(Node: TDOMNode);
     procedure SaveToNode(Node: TDOMNode);
@@ -385 +406 @@
     procedure MoveAll(Player: TPlayer);
     procedure ClearMovesFromCell(Cell: TCell);
+    procedure RecordTurnStats;
     procedure SetMapType(AValue: TMapType);
     function SetMove(CellFrom, CellTo: TCell; Power: Integer; Confirmation: Boolean = True): TUnitMove;
@@ -543 +565 @@
 end;
 
+{ TGameTurnStat }
+
+procedure TGameTurnStat.LoadFromNode(Node: TDOMNode);
+begin
+  OccupiedCells := ReadInteger(Node, 'OccupiedCells', 0);
+  Units := ReadInteger(Node, 'Units', 0);
+  DiscoveredCells := ReadInteger(Node, 'DiscoveredCells', 0);
+  Cities := ReadInteger(Node, 'Cities', 0);
+end;
+
+procedure TGameTurnStat.SaveToNode(Node: TDOMNode);
+begin
+  WriteInteger(Node, 'OccupiedCells', OccupiedCells);
+  WriteInteger(Node, 'Units', Units);
+  WriteInteger(Node, 'DiscoveredCells', DiscoveredCells);
+  WriteInteger(Node, 'Cities', Cities);
+end;
+
+{ TGameTurnStats }
+
+procedure TGameTurnStats.LoadFromNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewTurnStat: TGameTurnStat;
+begin
+  Count := 0;
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'TurnStat') do begin
+    NewTurnStat := TGameTurnStat.Create;
+    NewTurnStat.LoadFromNode(Node2);
+    Add(NewTurnStat);
+    Node2 := Node2.NextSibling;
+  end;
+end;
+
+procedure TGameTurnStats.SaveToNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode: TDOMNode;
+begin
+  for I := 0 to Count - 1 do begin;
+    NewNode := Node.OwnerDocument.CreateElement('TurnStat');
+    Node.AppendChild(NewNode);
+    TGameTurnStat(Items[I]).SaveToNode(NewNode);
+  end;
+end;
+
 { TClients }
 
@@ -1817 +1886 @@
 end;
 
+procedure TPlayer.Clear;
+begin
+  TurnStats.Clear;
+end;
+
 procedure TPlayer.SetClient(AValue: TClient);
 begin
@@ -1843 +1917 @@
       PlayerMap.LoadFromNode(NewNode);
   end;
+  with Node do begin
+    NewNode := FindNode('TurnStats');
+    if Assigned(NewNode) then
+      TurnStats.LoadFromNode(NewNode);
+  end;
 end;
 
@@ -1862 +1941 @@
     AppendChild(NewNode);
     PlayerMap.SaveToNode(NewNode);
+  end;
+  with Node do begin
+    NewNode := OwnerDocument.CreateElement('TurnStats');
+    AppendChild(NewNode);
+    TurnStats.SaveToNode(NewNode);
   end;
 end;
@@ -2247 +2331 @@
   PlayerMap := TPlayerMap.Create;
   PlayerMap.Player := Self;
+  TurnStats := TGameTurnStats.Create;
 end;
 
 destructor TPlayer.Destroy;
 begin
+  FreeAndNil(TurnStats);
   FreeAndNil(PlayerMap);
   inherited Destroy;
@@ -2884 +2970 @@
 var
   I: Integer;
+  J: Integer;
 begin
   for I := 0 to Players.Count - 1 do
@@ -2890 +2977 @@
     TotalCells := 0;
     TotalCities := 0;
-  end;
+
+    TotalDiscovered := 0;
+    for J := 0 to PlayerMap.Cells.Count - 1 do
+    with TPlayerCell(PlayerMap.Cells[J]) do begin
+      if Explored then Inc(TotalDiscovered);
+    end;
+  end;
+
   Map.ComputePlayerStats;
+end;
+
+procedure TGame.RecordTurnStats;
+var
+  I: Integer;
+  NewStat: TGameTurnStat;
+begin
+  for I := 0 to Players.Count - 1 do
+  with TPlayer(Players[I]) do begin
+    NewStat := TGameTurnStat.Create;
+    NewStat.DiscoveredCells := TotalDiscovered;
+    NewStat.OccupiedCells := TotalCells;
+    NewStat.Units := TotalUnits;
+    NewStat.Cities := TotalCities;
+    TurnStats.Add(NewStat);
+  end;
 end;
 
@@ -2927 +3037 @@
   UpdateRepeatMoves(CurrentPlayer);
   ComputePlayerStats;
+  RecordTurnStats;
   PrevPlayer := CurrentPlayer;
   // Skip dead players
@@ -3045 +3156 @@
   for I := 0 to Players.Count - 1 do
   with TPlayer(Players[I]) do begin
+    Clear;
     PlayerMap.Update;
     if (Map.Size.X > 0) and (Map.Size.Y > 0) then begin