Changeset 142

Timestamp:

Jul 11, 2017, 10:27:47 PM (7 years ago)

Author:

chronos

Message:

• Modified: Improved attack to neutral units if computer have more units available when necessary.

File:

• trunk/UGame.pas (modified) (1 diff)

trunk/UGame.pas

@@ -2194 +2194 @@
 var
   I: Integer;
+  AvailPower: Integer;
 begin
   // If available power remains then use all for existed unit moves
   for I := 0 to Game.Moves.Count - 1 do
   with TUnitMove(Game.Moves[I]) do begin
-    if CellFrom.GetAvialPower > 0 then
-      CountOnce := CountOnce + CellFrom.GetAvialPower;
+    if CellFrom.GetAvialPower > 0 then begin
+      AvailPower := CellFrom.GetAvialPower;
+      CountOnce := CountOnce + Min(AvailPower div CellFrom.MovesFrom.Count, AvailPower);
+    end;
   end;
 end;