Changeset 273 for trunk/UClientAI.pas

Timestamp:

Jan 30, 2019, 8:08:44 AM (6 years ago)

Author:

chronos

Message:

• Added: Show units shape to see in which cell units are placed.
• Fixed: Do not place units with zero power in zero power cells.
• Fixed: Better checks of cell power if cell is without unit.

File:

• trunk/UClientAI.pas (modified) (2 diffs)

trunk/UClientAI.pas

@@ -111 +111 @@
   TargetCell: TPlayerCell;
   NeighborCell: TPlayerCell;
+  DefendCount: Integer;
 begin
 if ControlPlayer.Defensive then Exit;
@@ -144 +145 @@
       end;
       // Attack if target is weaker
-      if Game.AttackProbability(TotalPower, TargetCell.MapCell.OneUnit.Power) >=
+      if Assigned(TargetCell.MapCell.OneUnit) then
+        DefendCount := TargetCell.MapCell.OneUnit.Power
+        else DefendCount := 0;
+      if Game.AttackProbability(TotalPower, DefendCount) >=
         ComputerAggroProbability[ControlPlayer.Agressivity] then begin
         // Try to limit total attacking power to necessary minimum
-        while Game.AttackProbability(TotalPower - 1, TargetCell.MapCell.OneUnit.Power) >=
+        while Game.AttackProbability(TotalPower - 1, DefendCount) >=
           ComputerAggroProbability[ControlPlayer.Agressivity] do
           Dec(TotalPower);