Changeset 337 for trunk/Player.pas

Timestamp:

Sep 8, 2024, 10:29:37 PM (2 months ago)

Author:

chronos

Message:

• Added: Game systems action in Tools menu.
• Modified: TurnStats moved to separate unit.

File:

• trunk/Player.pas (modified) (3 diffs)

trunk/Player.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Graphics, Map, DOM, Generics.Collections, Generics.Defaults,
-  XMLConf, XML, Math, Geometry, &Unit, Nation, ItemList;
+  XMLConf, XML, Math, Geometry, &Unit, Nation, ItemList, TurnStats;
 
 type
@@ -67 +67 @@
     Update: Boolean; var Confirm: Boolean) of object;
   TMoveUpdatedEvent = procedure(UnitMove: TUnitMove) of object;
-
-  { TGameTurnStat }
-
-  TGameTurnStat = class
-    OccupiedCells: Integer;
-    Units: Integer;
-    DiscoveredCells: Integer;
-    Cities: Integer;
-    WinObjectiveCells: Integer;
-    procedure LoadFromNode(Node: TDOMNode);
-    procedure SaveToNode(Node: TDOMNode);
-  end;
-
-  { TGameTurnStats }
-
-  TGameTurnStats = class(TObjectList<TGameTurnStat>)
-    procedure LoadFromNode(Node: TDOMNode);
-    procedure SaveToNode(Node: TDOMNode);
-  end;
 
   { TPlayer }
@@ -1320 +1301 @@
 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);
-  WinObjectiveCells := ReadInteger(Node, 'WinObjectiveCells', 0);
-end;
-
-procedure TGameTurnStat.SaveToNode(Node: TDOMNode);
-begin
-  WriteInteger(Node, 'OccupiedCells', OccupiedCells);
-  WriteInteger(Node, 'Units', Units);
-  WriteInteger(Node, 'DiscoveredCells', DiscoveredCells);
-  WriteInteger(Node, 'Cities', Cities);
-  WriteInteger(Node, 'WinObjectiveCells', WinObjectiveCells);
-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);
-    Items[I].SaveToNode(NewNode);
-  end;
-end;
-
 end.