Changeset 291 for trunk/UPlayer.pas

Timestamp:

Mar 26, 2019, 1:16:27 PM (6 years ago)

Author:

chronos

Message:

• Modified: UnitKind list and items converted to general item list.

File:

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

trunk/UPlayer.pas

@@ -1318 +1318 @@
     ((TGame(Game).GrowCells = gcPlayerCities) and (Terrain = ttCity))) then begin
       if not Assigned(OneUnit) then begin
-        NewUnit := TGame(Game).Units.AddNew(TGame(Game).GameSystem.UnitKinds.First, 0);
+        NewUnit := TGame(Game).Units.AddNew(TUnitKind(TGame(Game).GameSystem.UnitKinds.First), 0);
         NewUnit.Player := Self;
         NewUnit.MapCell := TCell(Cells[I]);