Changeset 273 for trunk/UPlayer.pas

Timestamp:

Jan 30, 2019, 8:08:44 AM (6 years ago)

Author:

chronos

Message:

• Added: Show units shape to see in which cell units are placed.
• Fixed: Do not place units with zero power in zero power cells.
• Fixed: Better checks of cell power if cell is without unit.

File:

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

trunk/UPlayer.pas

@@ -122 +122 @@
     procedure ReduceMovesPower;
     procedure RemoveInvalidMoves;
+    procedure RemoveEmptyUnits;
     procedure UpdateRepeatMoves;
     procedure UpdateEmptyCellsNeutral;
@@ -1059 +1060 @@
     if Moves[I].CellFrom.MapCell.Player <> Self then
       Moves.Delete(I);
+end;
+
+procedure TPlayer.RemoveEmptyUnits;
+var
+  I: Integer;
+  OneUnit: TUnit;
+begin
+  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 begin
+      OneUnit := MapCell.OneUnit;
+      MapCell.OneUnit := nil;
+      Units.Remove(OneUnit);
+    end;
+  end;
 end;
 
@@ -1154 +1170 @@
   for I := 0 to PlayerMap.Cells.Count - 1 do
   with TPlayerCell(PlayerMap.Cells[I]) do begin
-    if MapCell.OneUnit.Power = 0 then MapCell.Player := nil;
+    if Assigned(MapCell.OneUnit) and (MapCell.OneUnit.Power = 0) then
+      MapCell.Player := nil;
   end;
 end;