Changeset 282 for trunk/UPlayer.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/UPlayer.pas (modified) (5 diffs)

trunk/UPlayer.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Graphics, UMap, DOM, fgl, XMLConf, UXMLUtils, Math,
-  UGeometry, UUnit;
+  UGeometry, UUnit, UNation;
 
 type
@@ -120 +120 @@
     Moves: TUnitMoves;
     Units: TUnits;
+    Nation: TNation;
     function IsAllowedMoveTarget(CellFrom, CellTo: TPlayerCell): Boolean;
     procedure ReduceMovesPower;
@@ -895 +896 @@
   Agressivity := Source.Agressivity;
   Defensive := Source.Defensive;
+  Nation := Source.Nation;
 end;
 
@@ -906 +908 @@
     Defensive := GetValue(DOMString(Path + '/Defensive'), False);
     Agressivity := TComputerAgressivity(GetValue(DOMString(Path + '/Agressivity'), 0));
+    Nation := TGame(Game).GameSystem.Nations.FindById(GetValue(DOMString(Path + '/Nation'), 0));
   end;
 end;
@@ -918 +921 @@
     SetValue(DOMString(Path + '/Defensive'), Defensive);
     SetValue(DOMString(Path + '/Agressivity'), Integer(Agressivity));
+    if Assigned(Nation) then
+      SetValue(DOMString(Path + '/Nation'), Nation.Id)
+      else SetValue(DOMString(Path + '/Nation'), 0)
   end;
 end;