Changeset 208 for trunk/UGame.pas

Timestamp:

May 22, 2018, 10:10:54 AM (6 years ago)

Author:

chronos

Message:

• Added: Show number of captured win objective cells in players stats and graphs.

File:

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

trunk/UGame.pas

@@ -278 +278 @@
     DiscoveredCells: Integer;
     Cities: Integer;
+    WinObjectiveCells: Integer;
     procedure LoadFromNode(Node: TDOMNode);
     procedure SaveToNode(Node: TDOMNode);
@@ -320 +321 @@
     TotalCities: Integer;
     TotalDiscovered: Integer;
+    TotalWinObjectiveCells: Integer;
     StartUnits: Integer;
     StartCell: TCell;
@@ -541 +543 @@
   DiscoveredCells := ReadInteger(Node, 'DiscoveredCells', 0);
   Cities := ReadInteger(Node, 'Cities', 0);
+  WinObjectiveCells := ReadInteger(Node, 'WinObjectiveCells', 0);
 end;
 
@@ -549 +552 @@
   WriteInteger(Node, 'DiscoveredCells', DiscoveredCells);
   WriteInteger(Node, 'Cities', Cities);
+  WriteInteger(Node, 'WinObjectiveCells', WinObjectiveCells);
 end;
 
@@ -1556 +1560 @@
   with Cell do begin
     if Assigned(Player) then begin
-      Player.TotalCells := Player.TotalCells + 1;
-      Player.TotalUnits := Player.TotalUnits + Power;
+      Inc(Player.TotalCells);
+      Inc(Player.TotalUnits, Power);
       if Terrain = ttCity then
-        Player.TotalCities := Player.TotalCities + 1;
+        Inc(Player.TotalCities);
+      if Extra = etObjectiveTarget then
+        Inc(Player.TotalWinObjectiveCells);
     end;
   end;
@@ -2505 +2511 @@
   TotalCities := 0;
   TotalDiscovered := 0;
+  TotalWinObjectiveCells := 0;
   TurnStats.Clear;
   StartCell := nil;
@@ -3118 +3125 @@
     TotalCells := 0;
     TotalCities := 0;
-
+    TotalWinObjectiveCells := 0;
     TotalDiscovered := 0;
     for J := 0 to PlayerMap.Cells.Count - 1 do
@@ -3141 +3148 @@
     NewStat.Units := TotalUnits;
     NewStat.Cities := TotalCities;
+    NewStat.WinObjectiveCells := TotalWinObjectiveCells;
     TurnStats.Add(NewStat);
   end;