Changeset 307 for trunk/UMap.pas

Timestamp:

Aug 18, 2021, 11:18:39 AM (3 years ago)

Author:

chronos

Message:

• Fixed: EmptyCellsNeutral check.

File:

• trunk/UMap.pas (modified) (2 diffs)

trunk/UMap.pas

@@ -63 +63 @@
     function GetColor: TColor;
     function ToString: ansistring; override;
+    procedure CheckOwnership;
     constructor Create;
     destructor Destroy; override;
@@ -1119 +1120 @@
 end;
 
+procedure TCell.CheckOwnership;
+begin
+  if TGame(Map.Game).GameSystem.EmptyCellsNeutral then
+  if Assigned(Player) and  (Assigned(OneUnit) and (OneUnit.Power = 0)) or
+    not Assigned(OneUnit) then
+      Player := nil;
+end;
+
 constructor TCell.Create;
 begin