Changeset 330 for trunk/Map.pas

Timestamp:

Jul 19, 2024, 9:46:33 PM (4 months ago)

Author:

chronos

Message:

• Fixed: New game symetric map units calcualtion.
• Fixed: Map preview with cell and unit borders.
• Fixed: Allow to set preferred game system grid type.

File:

• trunk/Map.pas (modified) (1 diff)

trunk/Map.pas

@@ -663 +663 @@
   for C := 0 to (Cells.Count div 2) - 1 do begin
     Cells[C].Terrain := Cells[Cells.Count - 1 - C].Terrain;
-    Cells[C].OneUnit.Power := Cells[Cells.Count - 1 - C].OneUnit.Power;
+
+    // Sync units
+    if not Assigned(Cells[C].OneUnit) and Assigned(Cells[Cells.Count - 1 - C].OneUnit) then begin
+      Cells[C].OneUnit := TGame(Game).Units.AddNew(Cells[Cells.Count - 1 - C].OneUnit.Kind,
+        Cells[Cells.Count - 1 - C].OneUnit.Power);
+    end;
+    if Assigned(Cells[C].OneUnit) and Assigned(Cells[Cells.Count - 1 - C].OneUnit) then
+      Cells[C].OneUnit.Power := Cells[Cells.Count - 1 - C].OneUnit.Power;
+
+    if Assigned(Cells[C].OneUnit) and not Assigned(Cells[Cells.Count - 1 - C].OneUnit) then begin
+      TGame(Game).Units.Remove(Cells[C].OneUnit);
+    end;
 
     for I := Cells[C].Links.Count - 1 downto 0 do begin