Changeset 262 for trunk/UPlayer.pas

Timestamp:

Sep 24, 2018, 11:46:31 PM (6 years ago)

Author:

chronos

Message:

• Added: New game option to set cells without player units as neutral.

File:

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

trunk/UPlayer.pas

@@ -121 +121 @@
     procedure RemoveInvalidMoves;
     procedure UpdateRepeatMoves;
+    procedure UpdateEmptyCellsNeutral;
     procedure MoveAll;
     procedure Grow;
@@ -1092 +1093 @@
 end;
 
+procedure TPlayer.UpdateEmptyCellsNeutral;
+var
+  I: Integer;
+begin
+  if TGame(Game).EmptyCellsNeutral then
+  for I := 0 to PlayerMap.Cells.Count - 1 do
+  with TPlayerCell(PlayerMap.Cells[I]) do begin
+    if MapCell.Power = 0 then MapCell.Player := nil;
+  end;
+end;
+
 procedure TPlayer.RemoveEmptyUnitMoves;
 var