Changeset 90 for trunk/UGame.pas

Timestamp:

Nov 16, 2014, 5:12:25 PM (10 years ago)

Author:

chronos

Message:

• Added: Computer player settings to be low, medium or highly aggresive in attacking.
• Fixed: Mouse move insensitivity zone is now DPI aware.

File:

• trunk/UGame.pas (modified) (9 diffs)

trunk/UGame.pas

@@ -239 +239 @@
 
   TPlayerMode = (pmHuman, pmComputer);
+  TComputerAgressivity = (caLow, caMedium, caHigh);
 
   { TPlayer }
@@ -258 +259 @@
     StartCell: TCell;
     PlayerMap: TPlayerMap;
+    Defensive: Boolean;
+    Agressivity: TComputerAgressivity;
     procedure LoadFromNode(Node: TDOMNode);
     procedure SaveToNode(Node: TDOMNode);
@@ -404 +407 @@
   PlayerColors: array[0..7] of TColor = (clBlue, clRed, clGreen, clOrange,
     clPurple, clMaroon, clAqua, clFuchsia);
+  ComputerAggroProbability: array[TComputerAgressivity] of Single = (0.9, 0.7, 0.5);
 
 procedure InitStrings;
@@ -787 +791 @@
   NewPlayer.Mode := Mode;
   NewPlayer.Id := GetNewPlayerId;
+  if Mode = pmComputer then
+    NewPlayer.Agressivity := caMedium;
   Add(NewPlayer);
 end;
@@ -1671 +1677 @@
   StartCell := FGame.Map.Cells.FindById(ReadInteger(Node, 'StartCell', 0));
   StartUnits := ReadInteger(Node, 'StartUnits', 0);
+  Agressivity := TComputerAgressivity(ReadInteger(Node, 'Agressivity', Integer(caMedium)));
+  Defensive := ReadBoolean(Node, 'Defensive', False);
 
   with Node do begin
@@ -1689 +1697 @@
   WriteInteger(Node, 'StartCell', StartCell.Id);
   WriteInteger(Node, 'StartUnits', StartUnits);
+  WriteInteger(Node, 'Agressivity', Integer(Agressivity));
+  WriteBoolean(Node, 'Defensive', Defensive);
 
   with Node do begin
@@ -1787 +1797 @@
   AttackDiff = 2;
 begin
+  if Game.CurrentPlayer.Defensive then Exit;
+
   AllCells := Game.Map.Cells;
   TargetCells := TCells.Create;
@@ -1818 +1830 @@
       end;
       // Attack if target is weaker
-      if TotalPower >= (Power + AttackDiff) then begin
+      if Game.AttackProbability(TotalPower, Power) >= ComputerAggroProbability[Game.CurrentPlayer.Agressivity] then begin
+        // Try to limit total attacking power to necessary minimum
+        while Game.AttackProbability(TotalPower - 1, Power) >= ComputerAggroProbability[Game.CurrentPlayer.Agressivity] do
+          Dec(TotalPower);
+
+        // Collect required attack units from our cells
         TotalAttackPower := 0;
         for I := 0 to Neighbors.Count - 1 do
         if (TCell(Neighbors[I]).Player = Game.CurrentPlayer) then begin
           // Use only necessary power
-          AttackPower := Power - TotalAttackPower + AttackDiff;
+          AttackPower := TotalPower - TotalAttackPower;
           if TCell(Neighbors[I]).GetAvialPower < AttackPower then
             AttackPower := TCell(Neighbors[I]).GetAvialPower;
           Game.SetMove(TCell(Neighbors[I]), TCell(TargetCells[C]), AttackPower, False);
           TotalAttackPower := TotalAttackPower + AttackPower;
+          if TotalAttackPower >= TotalPower then Break;
         end;
       end;
@@ -2084 +2102 @@
   StartUnits := Source.StartUnits;
   StartCell := Source.StartCell;
+  Agressivity := Source.Agressivity;
+  Defensive := Source.Defensive;
   View.Assign(Source.View);
 end;