Changeset 274 for trunk/UGameSystem.pas

Timestamp:

Feb 3, 2019, 8:32:20 PM (6 years ago)

Author:

chronos

Message:

• Added: Keep information about available unit moves during turn.
• Added: Allow to move units instantly during turn.
• Added: Game system parameter to play without possibility to merge/split units.

File:

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

trunk/UGameSystem.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, fgl, UUnit, DOM, UXMLUtils;
+  Classes, SysUtils, fgl, UUnit, DOM, UXMLUtils, XMLConf;
 
 type
@@ -15 +15 @@
   TGameSystem = class
     Name: string;
-    ActionExecutionPhase: TActionExecutionPhase;
     MaxPlayerCount: Integer;
     UnitKinds: TUnitKinds;
-    CanSplitMerge: Boolean;
+    UnitsSplitMerge: Boolean;
     EmptyCellsNeutral: Boolean;
+    UnitsMoveImmediately: Boolean;
     constructor Create;
     destructor Destroy; override;
@@ -27 +27 @@
     procedure LoadFromFile(FileName: string);
     procedure SaveToFile(FileName: string);
+    procedure LoadConfig(Config: TXmlConfig; Path: string);
+    procedure SaveConfig(Config: TXmlConfig; Path: string);
   end;
 
@@ -62 +64 @@
 begin
   Name := Source.Name;
+  UnitsMoveImmediately := Source.UnitsMoveImmediately;
   MaxPlayerCount := Source.MaxPlayerCount;
-  CanSplitMerge := Source.CanSplitMerge;
+  UnitsSplitMerge := Source.UnitsSplitMerge;
   EmptyCellsNeutral := Source.EmptyCellsNeutral;
 end;
@@ -72 +75 @@
 begin
   Name := ReadString(Node, 'Name', '');
-  CanSplitMerge := ReadBoolean(Node, 'CanSplitMerge', False);
+  UnitsSplitMerge := ReadBoolean(Node, 'UnitsSplitMerge', False);
   EmptyCellsNeutral := ReadBoolean(Node, 'EmptyCellsNeutral', False);
+  UnitsMoveImmediately := ReadBoolean(Node, 'UnitsMoveImmediately', False);
 
   NewNode := Node.FindNode('UnitKinds');
@@ -85 +89 @@
 begin
   WriteString(Node, 'Name', Name);
-  WriteBoolean(Node, 'CanSplitMerge', CanSplitMerge);
+  WriteBoolean(Node, 'UnitsSplitMerge', UnitsSplitMerge);
   WriteBoolean(Node, 'EmptyCellsNeutral', EmptyCellsNeutral);
+  WriteBoolean(Node, 'UnitsMoveImmediately', UnitsMoveImmediately);
 
   NewNode := Node.OwnerDocument.CreateElement('UnitKinds');
@@ -103 +108 @@
 end;
 
+procedure TGameSystem.LoadConfig(Config: TXmlConfig; Path: string);
+begin
+  with Config do begin
+    Self.Name := string(GetValue(DOMString(Path + '/Name'), DOMString('')));
+    UnitsSplitMerge := GetValue(DOMString(Path + '/UnitsSplitMerge'), True);
+    EmptyCellsNeutral := GetValue(DOMString(Path + '/EmptyCellsNeutral'), False);
+    UnitsMoveImmediately := GetValue(DOMString(Path + '/UnitsMoveImmediately'), False);
+  end;
+end;
+
+procedure TGameSystem.SaveConfig(Config: TXmlConfig; Path: string);
+begin
+  with Config do begin
+    SetValue(DOMString(Path + '/Name'), DOMString(Self.Name));
+    SetValue(DOMString(Path + '/UnitsSplitMerge'), UnitsSplitMerge);
+    SetValue(DOMString(Path + '/EmptyCellsNeutral'), EmptyCellsNeutral);
+    SetValue(DOMString(Path + '/UnitsMoveImmediately'), UnitsMoveImmediately);
+  end;
+end;
+
 end.