Changeset 60 for trunk/Forms/UFormMove.pas

Timestamp:

Sep 26, 2014, 12:27:50 AM (10 years ago)

Author:

chronos

Message:

• Fixed: Limited depth of win probability calculation.
• Fixed: Show probability using sum of all attacking units from multiple cells.

File:

• trunk/Forms/UFormMove.pas (modified) (2 diffs)

trunk/Forms/UFormMove.pas

@@ -42 +42 @@
   public
     DefendCount: Integer;
+    AttackCount: Integer;
     procedure UpdateView;
   end;
@@ -72 +73 @@
 begin
   LabelWinProbability.Caption :=
-    IntToStr(Round(Core.Game.AttackProbability(SpinEditOnce.Value,
-    DefendCount) * 100)) + ' %';
+    IntToStr(Round(Core.Game.AttackProbability(AttackCount + SpinEditOnce.Value,
+    DefendCount, 1) * 100)) + ' %';
 end;