Changeset 59 for trunk/UGame.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/UGame.pas (modified) (4 diffs)

trunk/UGame.pas

@@ -252 +252 @@
     StayAliveForDefinedTurns: Integer;
     MaxNeutralUnits: Integer;
+    function AttackProbability(AttackCount, DefendCount: Integer): Double;
     procedure SaveConfig(Config: TXmlConfig; Path: string);
     procedure LoadConfig(Config: TXmlConfig; Path: string);
@@ -1087 +1088 @@
 { TGame }
 
+function ComparePointer(Item1, Item2: Pointer): Integer;
+begin
+  Result := -CompareValue(Integer(Item1), Integer(Item2));
+end;
+
 procedure TGame.Attack(var AttackPower, DefendPower: Integer);
 var
@@ -1094 +1100 @@
   DefenderHighestRoll: Integer;
   RollResult: Integer;
-  LoseCount: Integer;
-  I: Integer;
-begin
+  S: string;
+  I: Integer;
+  AttackRolls: TList;
+  DefendRolls: TList;
+begin
+  AttackRolls := TList.Create;
+  DefendRolls := TList.Create;
   if AttackPower < 1 then
     raise Exception.Create('Attacker power have to be higher then 0.');
@@ -1104 +1114 @@
     // Risk game rules:
     // Each side do their dice roll and compare result. Defender wins tie.
-    // Attacer can use three dices and defender two
-    if AttackPower < 3 then AttackerDiceCount := AttackPower
-      else AttackerDiceCount := 3;
-    if DefendPower < 2 then DefenderDiceCount := DefendPower
-      else DefenderDiceCount := 2;
-    // Roll and calculate each side highest number
-    AttackerHighestRoll := 1;
+    // Attacker can use three dices and defender two
+    AttackerDiceCount := Min(AttackPower, 3);
+    DefenderDiceCount := Min(DefendPower, 2);
+    // Roll and sort numbers
+    AttackRolls.Count := AttackerDiceCount;
     for I := 0 to AttackerDiceCount - 1 do begin
-      RollResult := Random(7);
-      if RollResult > AttackerHighestRoll then
-        AttackerHighestRoll := RollResult;
-    end;
-    DefenderHighestRoll := 1;
+      AttackRolls[I] := Pointer(Random(7));
+    end;
+    AttackRolls.Sort(ComparePointer);
+    S := 'Att:';
+    for I := 0 to AttackerDiceCount - 1 do
+      S := S + InTToStr(Integer(AttackRolls[I])) + ', ';
+    DefendRolls.Count := DefenderDiceCount;
     for I := 0 to DefenderDiceCount - 1 do begin
-      RollResult := Random(7);
-      if RollResult > DefenderHighestRoll then
-        DefenderHighestRoll := RollResult;
-    end;
+      DefendRolls[I] := Pointer(Random(7));
+    end;
+    DefendRolls.Sort(ComparePointer);
+    S := S + ' Def:';
+    for I := 0 to DefenderDiceCount - 1 do
+      S := S + IntToStr(Integer(DefendRolls[I])) + ', ';
     // Resolution
-    LoseCount := Min(AttackerDiceCount, DefenderDiceCount);
-    if AttackerHighestRoll > DefenderHighestRoll then Dec(DefendPower, LoseCount)
-      else Dec(AttackPower, LoseCount);
-  end;
+    for I := 0 to Min(AttackerDiceCount, DefenderDiceCount) - 1 do
+      if AttackRolls[I] > DefendRolls[I] then Dec(DefendPower)
+      else Dec(AttackPower);
+  end;
+  AttackRolls.Free;
+  DefendRolls.Free;
+end;
+
+function TGame.AttackProbability(AttackCount, DefendCount: Integer): Double;
+var
+  OA, OD: Integer;
+begin
+  if AttackCount = 0 then begin
+    Result := 0;
+    Exit;
+  end else Result := 1;
+  if DefendCount = 0 then Exit;
+
+  OA := Min(AttackCount, 3);
+  OD := Min(DefendCount, 2);
+
+  if (OA = 1) and (OD = 1) then
+    Result := 0.4167 * AttackProbability(AttackCount, DefendCount - 1) +
+      0.5833 * AttackProbability(AttackCount - 1, DefendCount)
+  else if (OA = 2) and (OD = 1) then
+    Result := 0.5787 * AttackProbability(AttackCount, DefendCount - 1) +
+      0.4213 * AttackProbability(AttackCount - 1, DefendCount)
+  else if (OA = 3) and (OD = 1) then
+    Result := 0.6597 * AttackProbability(AttackCount, DefendCount - 1) +
+      0.3403 * AttackProbability(AttackCount - 1, DefendCount)
+  else if (OA = 1) and (OD = 2) then
+    Result := 0.2546 * AttackProbability(AttackCount, DefendCount - 1) +
+      0.7454 * AttackProbability(AttackCount - 1, DefendCount)
+  else if (OA = 2) and (OD = 2) then
+    Result := 0.2276 * AttackProbability(AttackCount, DefendCount - 2) +
+      0.4483 * AttackProbability(AttackCount - 2, DefendCount) +
+      0.3241 * AttackProbability(AttackCount - 1, DefendCount - 1)
+  else if (OA = 3) and (OD = 2) then
+    Result := 0.3717 * AttackProbability(AttackCount, DefendCount - 2) +
+      0.2926 * AttackProbability(AttackCount - 2, DefendCount) +
+      0.3358 * AttackProbability(AttackCount - 1, DefendCount - 1);
 end;