Changeset 289 for trunk/UGameSystem.pas

Timestamp:

Mar 24, 2019, 11:15:07 PM (6 years ago)

Author:

chronos

Message:

• Added: Allow to add building kinds to game system.

File:

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

trunk/UGameSystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, fgl, UUnit, DOM, XMLRead, XMLWrite, UXMLUtils, XMLConf,
-  FileUtil, UMapType, UNation;
+  FileUtil, UMapType, UNation, UBuilding;
 
 type
@@ -23 +23 @@
     PreferedMapType: TMapType;
     Nations: TNations;
+    BuildingKinds: TBuildingKinds;
     constructor Create;
     destructor Destroy; override;
@@ -79 +80 @@
 begin
   UnitKinds := TUnitKinds.Create;
+  BuildingKinds := TBuildingKinds.Create;
   Nations := TNations.Create;
 end;
@@ -85 +87 @@
 begin
   Nations.Free;
+  BuildingKinds.Free;
   UnitKinds.Free;
   inherited Destroy;
@@ -92 +95 @@
 begin
   UnitKinds.Clear;
+  BuildingKinds.Clear;
   Nations.Clear;
 end;
@@ -109 +113 @@
   PreferedMapType := Source.PreferedMapType;
   UnitKinds.Assign(Source.UnitKinds);
+  BuildingKinds.Assign(Source.BuildingKinds);
   Nations.Assign(Source.Nations);
 end;
@@ -124 +129 @@
   if Assigned(NewNode) then
     UnitKinds.LoadFromNode(NewNode);
+  NewNode := Node.FindNode('BuildingKinds');
+  if Assigned(NewNode) then
+    BuildingKinds.LoadFromNode(NewNode);
   NewNode := Node.FindNode('Nations');
   if Assigned(NewNode) then
@@ -141 +149 @@
   Node.AppendChild(NewNode);
   UnitKinds.SaveToNode(NewNode);
+  NewNode := Node.OwnerDocument.CreateElement('BuildingKinds');
+  Node.AppendChild(NewNode);
+  BuildingKinds.SaveToNode(NewNode);
   NewNode := Node.OwnerDocument.CreateElement('Nations');
   Node.AppendChild(NewNode);