Changeset 194 for trunk/UGame.pas

Timestamp:

May 14, 2018, 5:38:45 PM (6 years ago)

Author:

chronos

Message:

• Added: Configurable game parameter maximum units per cell.

File:

• trunk/UGame.pas (modified) (8 diffs)

trunk/UGame.pas

@@ -17 +17 @@
   TriangleCellMulY = 1.05;
   MaxPlayerCount = 8;
+  DefaultMaxPower = 99;
 
 type
@@ -460 +461 @@
     FogOfWar: Boolean;
     BridgeEnabled: Boolean;
+    MaxPower: Integer;
     function AttackProbability(AttackCount, DefendCount: Integer): Double;
     procedure LoadConfig(Config: TXmlConfig; Path: string);
@@ -1406 +1408 @@
   DefaultCellSize.X := ReadInteger(Node, 'DefaultCellSizeX', 1);
   DefaultCellSize.Y := ReadInteger(Node, 'DefaultCellSizeY', 1);
-  MaxPower := ReadInteger(Node, 'MaxPower', 99);
+  MaxPower := ReadInteger(Node, 'MaxPower', DefaultMaxPower);
   Shape := TMapShape(ReadInteger(Node, 'Shape', Integer(msRectangle)));
   Node2 := Node.FindNode('Cells');
@@ -1656 +1658 @@
 constructor TMap.Create;
 begin
-  MaxPower := 99;
+  MaxPower := DefaultMaxPower;
   DefaultCellSize := TPoint.Create(220, 220);
   Cells := TCells.Create;
@@ -3260 +3262 @@
       VoidPercentage := ReadInteger(RootNode, 'VoidPercentage', 0);
       MaxNeutralUnits := ReadInteger(RootNode, 'MaxNeutralUnits', 3);
+      MaxPower := ReadInteger(RootNode, 'MaxPower', DefaultMaxPower);
       GrowCells := TGrowCells(ReadInteger(RootNode, 'GrowCells', Integer(gcNone)));
       GrowAmount := TGrowAmount(ReadInteger(RootNode, 'GrowAmount', Integer(gaByOne)));
@@ -3309 +3312 @@
       WriteInteger(RootNode, 'VoidPercentage', VoidPercentage);
       WriteInteger(RootNode, 'MaxNeutralUnits', MaxNeutralUnits);
+      WriteInteger(RootNode, 'MaxPower', MaxPower);
       WriteInteger(RootNode, 'GrowCells', Integer(GrowCells));
       WriteInteger(RootNode, 'GrowAmount', Integer(GrowAmount));
@@ -3447 +3451 @@
   VoidEnabled := True;
   VoidPercentage := 20;
-  MaxNeutralUnits := 4;
+  MaxPower := DefaultMaxPower;
+  MaxNeutralUnits := Min(4, MaxPower);
 
   Map.Game := Self;
@@ -3477 +3482 @@
 
   Map.Generate;
+  Map.MaxPower := MaxPower;
   BuildTerrain;