Changeset 274 for trunk/UClientAI.pas

Timestamp:

Feb 3, 2019, 8:32:20 PM (6 years ago)

Author:

chronos

Message:

• Added: Keep information about available unit moves during turn.
• Added: Allow to move units instantly during turn.
• Added: Game system parameter to play without possibility to merge/split units.

File:

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

trunk/UClientAI.pas

@@ -69 +69 @@
 
   // Sort ascending to attack cells with lower power first
-  // Low power cells are better for expanding our teritorry
+  // Low power cells are better for expanding our territory
   TargetCells.Sort(CellCompare);
 
@@ -79 +79 @@
       for NeighborCell in Neighbors do
       if NeighborCell.MapCell.Player = ControlPlayer then
-        TotalPower := TotalPower + NeighborCell.GetAvialPower;
+        TotalPower := TotalPower + NeighborCell.GetAvialPowerForMove;
 
       // Attack if target is weaker
@@ -195 +195 @@
   for C := 0 to AllCells.Count - 1 do
   with AllCells[C] do begin
-    if (MapCell.Player <> ControlPlayer) and (MapCell.Player <> nil) and (MapCell.Terrain <> ttVoid) then begin
+    if (MapCell.Player <> ControlPlayer) and (MapCell.Terrain <> ttVoid) then begin
       CanAttack := 0;
       for I := 0 to Neighbors.Count - 1 do
@@ -307 +307 @@
   // Move all units back to inner area from weak border cells
   for C := 0 to BorderCells.Count - 1 do
-  with BorderCells[C] do begin
+  with TPlayerCell(BorderCells[C]) do begin
     // Calculate enemy power
     // TODO: Do not sum different enemy power to one value