Changeset 307 for trunk/UPlayer.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: EmptyCellsNeutral check.

File:

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

trunk/UPlayer.pas

@@ -973 +973 @@
     end;
     CellFrom.MapCell.OneUnit.Power := CellFrom.MapCell.OneUnit.Power - UnitCount;
+    CellFrom.MapCell.CheckOwnership;
   end;
 
@@ -1145 +1146 @@
   for I := 0 to PlayerMap.Cells.Count - 1 do
   with TPlayerCell(PlayerMap.Cells[I]) do begin
-    if Assigned(MapCell.OneUnit) and (MapCell.OneUnit.Power = 0) then
-      MapCell.Player := nil;
+    MapCell.CheckOwnership;
   end;
 end;