Changeset 294 for trunk/UGame.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/UGame.pas (modified) (6 diffs)

trunk/UGame.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, ExtCtrls, Graphics, XMLConf, XMLRead, XMLWrite, Forms,
-  DOM, Math, LazFileUtils, UXMLUtils, Dialogs, LCLType, LCLIntf, fgl,
+  DOM, Math, LazFileUtils, UXMLUtils, Dialogs, LCLType, LCLIntf, fgl, UBuilding,
   UGeometry, UPlayer, UMap, UMapType, UUnit, UGameSystem;
 
@@ -64 +64 @@
     Players: TPlayers;
     Units: TUnits;
+    Buildings: TBuildings;
     Map: TMap;
     MapImageFileName: string;
@@ -315 +316 @@
   for Cell in Map.Cells do
   with Cell do begin
-    if (Terrain = ttNormal) and CityEnabled and (Random < CityPercentage / 100) then
-      Terrain := ttCity;
+    if (Terrain = ttNormal) and CityEnabled and (Random < CityPercentage / 100) then begin
+      Building := TBuilding(Buildings.AddItem('City'));
+      Building.Kind := TBuildingKind(GameSystem.BuildingKinds.FindBySpecialType(stCity));
+    end;
   end;
 end;
@@ -341 +344 @@
           StartCell := Map.Cells[Map.Cells.Count - 1 - Map.Cells.IndexOf(Players[0].StartCell)];
 
-        if CityEnabled then StartCell.Terrain := ttCity;
+        if CityEnabled then begin
+          StartCell.Building := TBuilding(Buildings.AddItem('City'));
+          StartCell.Building.Kind := TBuildingKind(GameSystem.BuildingKinds.FindBySpecialType(stCity));
+        end;
         StartCell.Player := Player;
         if not Assigned(StartCell.OneUnit) then
@@ -855 +861 @@
   Units := TUnits.Create;
   Units.Game := Self;
+  Buildings := TBuildings.Create;
+  Buildings.Game := Self;
   Map := TMap.Create;
   Map.Game := Self;
@@ -878 +886 @@
   FreeAndNil(Players);
   FreeAndNil(Map);
+  FreeAndNil(Buildings);
   FreeAndNil(Units);
   inherited Destroy;