Changeset 59 for trunk/Forms/UFormMove.pas

Timestamp:

Sep 26, 2014, 12:05:30 AM (10 years ago)

Author:

chronos

Message:

• Added: Move win probability calculation.
• Fixed: Attack processing to be same as Risk game system.

File:

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

trunk/Forms/UFormMove.pas

@@ -22 +22 @@
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
+    LabelWinProbability: TLabel;
     SpinEditOnce: TSpinEdit;
     SpinEditRepeat: TSpinEdit;
@@ -28 +30 @@
     procedure ButtonOnceMaxClick(Sender: TObject);
     procedure ButtonRepeatMinClick(Sender: TObject);
-    procedure uttonOnceMinClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure ButtonOnceMinClick(Sender: TObject);
     procedure ButtonRepeatMaxClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -38 +41 @@
     { private declarations }
   public
-    { public declarations }
+    DefendCount: Integer;
+    procedure UpdateView;
   end;
 
@@ -47 +51 @@
 
 {$R *.lfm}
+
+uses
+  UCore;
 
 { TFormMove }
@@ -62 +69 @@
 end;
 
+procedure TFormMove.UpdateView;
+begin
+  LabelWinProbability.Caption :=
+    IntToStr(Round(Core.Game.AttackProbability(SpinEditOnce.Value,
+    DefendCount) * 100)) + ' %';
+end;
+
 procedure TFormMove.SpinEditOnceChange(Sender: TObject);
 begin
   if SpinEditOnce.Value <> TrackBarOnce.Position then
     TrackBarOnce.Position := SpinEditOnce.Value;
+  UpdateView;
 end;
 
@@ -71 +86 @@
 begin
   ButtonOk.SetFocus;
+  UpdateView;
 end;
 
@@ -83 +99 @@
 end;
 
-procedure TFormMove.uttonOnceMinClick(Sender: TObject);
+procedure TFormMove.FormCreate(Sender: TObject);
+begin
+
+end;
+
+procedure TFormMove.ButtonOnceMinClick(Sender: TObject);
 begin
   TrackBarOnce.Position := TrackBarOnce.Min;