Changeset 336 for trunk/Game.pas

Timestamp:

Sep 7, 2024, 10:29:16 PM (11 days ago)

Author:

chronos

Message:

• Added: Automated tests accessible in debug mode.
• Fixed: Player units internal links.
• Fixed: List items id regeneration before game save.

File:

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

trunk/Game.pas

@@ -99 +99 @@
     procedure New;
     procedure EndGame(Winner: TPlayer = nil);
+    function Compare(Game: TGame): Boolean;
     property Running: Boolean read FRunning write SetRunning;
     property MapType: TMapType read FMapType write SetMapType;
@@ -887 +888 @@
   for I := 0 to Players.Count - 1 do TPlayer(Players[I]).Clear;
   Map.Clear;
+  Units.Clear;
 end;
 
@@ -924 +926 @@
 end;
 
+function TGame.Compare(Game: TGame): Boolean;
+begin
+  Result := BridgeEnabled = Game.BridgeEnabled;
+end;
+
 end.