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

trunk/UBuilding.pas

@@ -9 +9 @@
 
 type
+  TBuildingSpecialType = (stNone, stCity);
 
   { TBuildingKind }
@@ -14 +15 @@
   TBuildingKind = class(TItem)
     Cost: Integer;
+    SpecialType: TBuildingSpecialType;
     class function GetFields: TItemFields; override;
     procedure GetValue(Index: Integer; out Value); override;
@@ -25 +27 @@
   TBuildingKinds = class(TItemList)
     class function GetItemClass: TItemClass; override;
+    function FindBySpecialType(SpecialType: TBuildingSpecialType): TItem;
   end;
 
-  TBuilding = class
+  { TBuilding }
+
+  TBuilding = class(TItem)
+  private
+    FMapCell: TObject;
+    procedure SetMapCell(AValue: TObject);
+  public
     Kind: TBuildingKind;
+    property MapCell: TObject read FMapCell write SetMapCell; // TMapCell;
+  end;
+
+  { TBuildings }
+
+  TBuildings = class(TItemList)
+    Game: TObject; // TGame;
+    class function GetItemClass: TItemClass; override;
   end;
 
@@ -34 +51 @@
   SBuildingKind = 'Building';
   SCost = 'Cost';
+  SSpecialType = 'Special type';
 
 
 implementation
+
+uses
+  UMap;
+
+{ TBuildings }
+
+class function TBuildings.GetItemClass: TItemClass;
+begin
+  Result := TBuilding;
+end;
+
+{ TBuilding }
+
+procedure TBuilding.SetMapCell(AValue: TObject);
+var
+  OldValue: TCell;
+begin
+  if FMapCell = AValue then Exit;
+  OldValue := TCell(FMapCell);
+  FMapCell := nil;
+  if Assigned(OldValue) then TCell(OldValue).Building := nil;
+  FMapCell := AValue;
+  if Assigned(FMapCell) then TCell(FMapCell).Building := Self;
+end;
 
 { TBuildingKind }
@@ -44 +86 @@
   Result := inherited;
   Result.AddField(2, 'Cost', SCost, dtInteger);
+  Result.AddField(3, 'SpecialType', SSpecialType, dtInteger);
 end;
 
@@ -50 +93 @@
   if Index = 1 then string(Value) := Name
   else if Index = 2 then Integer(Value) := Cost
+  else if Index = 3 then TBuildingSpecialType(Value) := SpecialType
   else raise Exception.Create('Unsupported value index ' + IntToStr(Index));
 end;
@@ -57 +101 @@
   if Index = 1 then Name := string(Value)
   else if Index = 2 then Cost := Integer(Value)
+  else if Index = 3 then SpecialType := TBuildingSpecialType(Value)
   else raise Exception.Create('Unsupported value index ' + IntToStr(Index));
 end;
@@ -77 +122 @@
 end;
 
+function TBuildingKinds.FindBySpecialType(SpecialType: TBuildingSpecialType
+  ): TItem;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TBuildingKind(Items[I]).SpecialType <> SpecialType) do Inc(I);
+  if I < Count then Result := Items[I]
+    else Result := nil;
+end;
+
 end.