Changeset 294 for trunk/UPlayer.pas

Timestamp:

Mar 29, 2019, 8:40:42 AM (6 years ago)

Author:

chronos

Message:

• Modified: Change terrain type ttCity to map cell building with special type stCity.

File:

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

trunk/UPlayer.pas

@@ -210 +210 @@
 
 uses
-  UGame, UGameSystem;
+  UGame, UGameSystem, UBuilding;
 
 resourcestring
@@ -1316 +1316 @@
   with TCell(Cells[I]) do begin
     if (Player = Self) and ((TGame(Game).GrowCells = gcPlayerAll) or
-    ((TGame(Game).GrowCells = gcPlayerCities) and (Terrain = ttCity))) then begin
+    ((TGame(Game).GrowCells = gcPlayerCities) and (Assigned(Building) and (Building.Kind.SpecialType = stCity)))) then begin
       if not Assigned(OneUnit) then begin
         NewUnit := TGame(Game).Units.AddNew(TUnitKind(TGame(Game).GameSystem.UnitKinds.First), 0);