Changeset 281 for trunk/UGameSystem.pas

Timestamp:

Feb 21, 2019, 10:45:41 PM (6 years ago)

Author:

chronos

Message:

• Added: New map type hexagonal horizontal.
• Added: Limit allowed map type according selected game system.

File:

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

trunk/UGameSystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, fgl, UUnit, DOM, XMLRead, XMLWrite, UXMLUtils, XMLConf,
-  FileUtil;
+  FileUtil, UMapType;
 
 type
@@ -21 +21 @@
     EmptyCellsNeutral: Boolean;
     UnitsMoveImmediately: Boolean;
+    PreferedMapType: TMapType;
     constructor Create;
     destructor Destroy; override;
@@ -99 +100 @@
   UnitsSplitMerge := Source.UnitsSplitMerge;
   EmptyCellsNeutral := Source.EmptyCellsNeutral;
+  PreferedMapType := Source.PreferedMapType;
   UnitKinds.Assign(Source.UnitKinds);
 end;
@@ -109 +111 @@
   EmptyCellsNeutral := ReadBoolean(Node, 'EmptyCellsNeutral', False);
   UnitsMoveImmediately := ReadBoolean(Node, 'UnitsMoveImmediately', False);
+  PreferedMapType := TMapType(ReadInteger(Node, 'PreferedMapType', Integer(mtNone)));
 
   NewNode := Node.FindNode('UnitKinds');
@@ -122 +125 @@
   WriteBoolean(Node, 'EmptyCellsNeutral', EmptyCellsNeutral);
   WriteBoolean(Node, 'UnitsMoveImmediately', UnitsMoveImmediately);
+  WriteInteger(Node, 'PreferedMapType', Integer(PreferedMapType));
 
   NewNode := Node.OwnerDocument.CreateElement('UnitKinds');
@@ -171 +175 @@
     EmptyCellsNeutral := GetValue(DOMString(Path + '/EmptyCellsNeutral'), False);
     UnitsMoveImmediately := GetValue(DOMString(Path + '/UnitsMoveImmediately'), False);
+    PreferedMapType := TMapType(GetValue(DOMString(Path + '/PreferedMapType'), Integer(mtNone)));
   end;
 end;
@@ -180 +185 @@
     SetValue(DOMString(Path + '/EmptyCellsNeutral'), EmptyCellsNeutral);
     SetValue(DOMString(Path + '/UnitsMoveImmediately'), UnitsMoveImmediately);
+    SetValue(DOMString(Path + '/PreferedMapType'), Integer(PreferedMapType));
   end;
 end;