Changeset 265 for trunk/UClientAI.pas

Timestamp:

Jan 15, 2019, 1:03:40 AM (6 years ago)

Author:

chronos

Message:

• Modified: Cell power is now internally represented as unit power (TUnit class).
• Modified: Allow to have only one player in the game.
• Added: New win objective None to just play freely without any win objective.
• Added: New win objective to capture entire map.
• Added: TGameSystem class to represent various game play systems of other existing games.
• Fixed: Clear correctly defender player from unit moves if his cell is captured.
• Fixed: Do not allow to remove too many players to have at least minimum players.

File:

• trunk/UClientAI.pas (modified) (4 diffs)

trunk/UClientAI.pas

@@ -44 +44 @@
   TotalAttackPower: Integer;
   CanAttack: Integer;
+  TargetPower: Integer;
   TargetCells: TPlayerCells;
   Cell: TPlayerCell;
@@ -81 +82 @@
 
       // Attack if target is weaker
-      if TotalPower >= (MapCell.Power + AttackDiff) then begin
+      if Assigned(MapCell.OneUnit) then TargetPower := MapCell.OneUnit.Power
+        else TargetPower := 0;
+      if TotalPower >= (TargetPower + AttackDiff) then begin
         TotalAttackPower := 0;
         for NeighborCell in Neighbors do
         if NeighborCell.MapCell.Player = ControlPlayer then begin
           // Use only necessary power
-          AttackPower := MapCell.Power - TotalAttackPower + AttackDiff;
+          AttackPower := TargetPower - TotalAttackPower + AttackDiff;
           if NeighborCell.GetAvialPower < AttackPower then
             AttackPower := NeighborCell.GetAvialPower;
@@ -141 +144 @@
       end;
       // Attack if target is weaker
-      if Game.AttackProbability(TotalPower, TargetCell.MapCell.Power) >=
+      if Game.AttackProbability(TotalPower, TargetCell.MapCell.OneUnit.Power) >=
         ComputerAggroProbability[ControlPlayer.Agressivity] then begin
         // Try to limit total attacking power to necessary minimum
-        while Game.AttackProbability(TotalPower - 1, TargetCell.MapCell.Power) >=
+        while Game.AttackProbability(TotalPower - 1, TargetCell.MapCell.OneUnit.Power) >=
           ComputerAggroProbability[ControlPlayer.Agressivity] do
           Dec(TotalPower);
@@ -306 +309 @@
     for I := 0 to Neighbors.Count - 1 do
     if (Neighbors[I].MapCell.Player <> ControlPlayer) and (Neighbors[I].MapCell.Player <> nil) then begin
-      Inc(EnemyPower, Neighbors[I].MapCell.Power);
+      Inc(EnemyPower, Neighbors[I].MapCell.OneUnit.Power);
     end;
     if EnemyPower > (GetAvialPower + GetAttackPower) then begin