Changeset 322 for trunk/Player.pas

Timestamp:

Jun 25, 2024, 1:15:02 AM (4 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/Player.pas

@@ -1277 +1277 @@
   with TGame(Game).Map do
   for I := 0 to Cells.Count - 1 do
-  with TCell(Cells[I]) do begin
+  with Cells[I] do begin
     if (Player = Self) and ((TGame(Game).GrowCells = gcPlayerAll) or
     ((TGame(Game).GrowCells = gcPlayerCities) and (Assigned(Building) and (Building.Kind.SpecialType = stCity)))) then begin
@@ -1283 +1283 @@
         NewUnit := TGame(Game).Units.AddNew(TUnitKind(TGame(Game).GameSystem.UnitKinds.First), 0);
         NewUnit.Player := Self;
-        NewUnit.MapCell := TCell(Cells[I]);
+        NewUnit.MapCell := Cells[I];
         Units.Add(NewUnit);
       end;