Changeset 342 for trunk/GameSystem.pas

Timestamp:

Dec 22, 2024, 10:52:26 AM (11 hours ago)

Author:

chronos

Message:

• Added: More tests.

File:

• trunk/GameSystem.pas (modified) (3 diffs)

trunk/GameSystem.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections, &Unit, DOM, XMLRead, XMLWrite, XML,
+  Classes, SysUtils, Generics.Collections, Units, DOM, XMLRead, XMLWrite, XML,
   XMLConf, FileUtil, LazFileUtils, MapType, Nation, Building, ItemList, UnitKind;
 
@@ -27 +27 @@
     function GetName: string;
     procedure Assign(Source: TGameSystem);
+    function Compare(GameSystem: TGameSystem): Boolean;
     procedure LoadFromNode(Node: TDOMNode);
     procedure SaveToNode(Node: TDOMNode);
@@ -133 +134 @@
   BuildingKinds.Assign(Source.BuildingKinds);
   Nations.Assign(Source.Nations);
+end;
+
+function TGameSystem.Compare(GameSystem: TGameSystem): Boolean;
+begin
+  Result := (FileName = GameSystem.FileName) and
+    (UnitsMoveImmediately = GameSystem.UnitsMoveImmediately) and
+    (MaxPlayerCount = GameSystem.MaxPlayerCount) and
+    (UnitsSplitMerge = GameSystem.UnitsSplitMerge) and
+    (EmptyCellsNeutral = GameSystem.EmptyCellsNeutral) and
+    (PreferedMapType = GameSystem.PreferedMapType); // and
+    //(UnitKinds.Assign(GameSystem.UnitKinds) and
+    //(BuildingKinds.Assign(GameSystem.BuildingKinds) and
+    //(Nations.Assign(GameSystem.Nations);
 end;