Changeset 282 for trunk/UGameSystem.pas

Timestamp:

Mar 10, 2019, 4:48:41 PM (6 years ago)

Author:

chronos

Message:

• Modified: Allow to set nation in player settings.

File:

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

trunk/UGameSystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, fgl, UUnit, DOM, XMLRead, XMLWrite, UXMLUtils, XMLConf,
-  FileUtil, UMapType;
+  FileUtil, UMapType, UNation;
 
 type
@@ -22 +22 @@
     UnitsMoveImmediately: Boolean;
     PreferedMapType: TMapType;
+    Nations: TNations;
     constructor Create;
     destructor Destroy; override;
@@ -75 +76 @@
 begin
   UnitKinds := TUnitKinds.Create;
+  Nations := TNations.Create;
 end;
 
 destructor TGameSystem.Destroy;
 begin
+  Nations.Free;
   UnitKinds.Free;
   inherited Destroy;
@@ -86 +89 @@
 begin
   UnitKinds.Clear;
+  Nations.Clear;
 end;
 
@@ -102 +106 @@
   PreferedMapType := Source.PreferedMapType;
   UnitKinds.Assign(Source.UnitKinds);
+  Nations.Assign(Source.Nations);
 end;
 
@@ -116 +121 @@
   if Assigned(NewNode) then
     UnitKinds.LoadFromNode(NewNode);
+  NewNode := Node.FindNode('Nations');
+  if Assigned(NewNode) then
+    Nations.LoadFromNode(NewNode);
 end;
 
@@ -130 +138 @@
   Node.AppendChild(NewNode);
   UnitKinds.SaveToNode(NewNode);
+  NewNode := Node.OwnerDocument.CreateElement('Nations');
+  Node.AppendChild(NewNode);
+  Nations.SaveToNode(NewNode);
 end;