Changeset 297 for trunk/UBuilding.pas

Timestamp:

Mar 29, 2019, 2:11:34 PM (6 years ago)

Author:

chronos

Message:

• Added: Unit bonuses configurable for buildings.

File:

• trunk/UBuilding.pas (modified) (5 diffs)

trunk/UBuilding.pas

@@ -16 +16 @@
     Cost: Integer;
     SpecialType: TBuildingSpecialType;
+    BonusAttack: Integer;
+    BonusDefense: Integer;
+    BonusViewRange: Integer;
+    BonusGrow: Integer;
     class function GetFields: TItemFields; override;
     procedure GetValue(Index: Integer; out Value); override;
@@ -54 +58 @@
   SNone = 'None';
   SCity = 'City';
+  SBonusAttack = 'Unit attack bonus';
+  SBonusDefense = 'Unit defense bonus';
+  SBonusViewRange = 'Unit view range bonus';
+  SBonusGrow = 'Unit grow bonus';
 
 
@@ -93 +101 @@
   Field.EnumStates.Add(SNone);
   Field.EnumStates.Add(SCity);
+  Result.AddField(4, 'BonusAttack', SBonusAttack, dtInteger);
+  Result.AddField(5, 'BonusDefense', SBonusDefense, dtInteger);
+  Result.AddField(6, 'BonusViewRange', SBonusViewRange, dtInteger);
+  Result.AddField(7, 'BonusGrow', SBonusGrow, dtInteger);
 end;
 
@@ -100 +112 @@
   else if Index = 2 then Integer(Value) := Cost
   else if Index = 3 then TBuildingSpecialType(Value) := SpecialType
+  else if Index = 4 then Integer(Value) := BonusAttack
+  else if Index = 5 then Integer(Value) := BonusDefense
+  else if Index = 6 then Integer(Value) := BonusViewRange
+  else if Index = 7 then Integer(Value) := BonusGrow
   else inherited;
 end;
@@ -108 +124 @@
   else if Index = 2 then Cost := Integer(Value)
   else if Index = 3 then SpecialType := TBuildingSpecialType(Value)
+  else if Index = 4 then BonusAttack := Integer(Value)
+  else if Index = 5 then BonusDefense := Integer(Value)
+  else if Index = 6 then BonusViewRange := Integer(Value)
+  else if Index = 7 then BonusGrow := Integer(Value)
   else inherited;
 end;