Changeset 67 for trunk/UGame.pas

Timestamp:

Sep 28, 2014, 12:47:34 PM (10 years ago)

Author:

chronos

Message:

• Modified: Computer now move all available inner power to borders. This greatly improved computer attack potential.
• Modified: Computer attack with all available power not just 2 units more then defender.

File:

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

trunk/UGame.pas

@@ -48 +48 @@
     MovesTo: TUnitMoves;
     Neighbors: TObjectList; // TList<TCell>
+    Mark: Boolean;
     procedure Assign(Source: TCell);
     function IsVisible(View: TView): Boolean;
@@ -204 +205 @@
     Game: TGame;
     Targets: TObjectList;
-    procedure Attack;
+    procedure AttackNeutral;
+    procedure AttackPlayers;
     procedure InnerMoves;
+    procedure IncreaseMoves;
     procedure Process;
   end;
@@ -1125 +1128 @@
 end;
 
-procedure TComputer.Attack;
+function CellCompareDescending(Item1, Item2: Pointer): Integer;
+begin
+  if TCell(Item1).Power > TCell(Item2).Power then Result := -1
+  else if TCell(Item1).Power < TCell(Item2).Power then Result := 1
+  else Result := 0;
+end;
+
+procedure TComputer.AttackNeutral;
 var
   AllCells: TObjectList;
@@ -1147 +1157 @@
   for C := 0 to AllCells.Count - 1 do
   with TCell(AllCells[C]) do begin
-    if (Terrain <> ttVoid) and (Player <> Game.CurrentPlayer) then begin
+    if (Terrain <> ttVoid) and (Player = nil) then begin
       Cells := Game.Map.GetCellNeighbors(TCell(AllCells[C]));
       CanAttack := 0;
@@ -1159 +1169 @@
 
   // Sort ascending to attack cells with lower power first
+  // Low power cells are better for expanding our teritorry
   TargetCells.Sort(CellCompare);
 
@@ -1189 +1200 @@
 end;
 
+procedure TComputer.AttackPlayers;
+var
+  AllCells: TObjectList;
+  Cells, Cells2: TCellArray;
+  TotalPower: Integer;
+  AttackPower: Integer;
+  TotalAttackPower: Integer;
+  I, J: Integer;
+  C: Integer;
+  CanAttack, CanAttack2: Integer;
+  TargetCells: TCells;
+  S: string;
+const
+  AttackDiff = 2;
+begin
+  AllCells := Game.Map.Cells;
+  TargetCells := TCells.Create;
+  TargetCells.OwnsObjects := False;
+
+  // Get list of all attack target cells
+  for C := 0 to AllCells.Count - 1 do
+  with TCell(AllCells[C]) do begin
+    if (Terrain <> ttVoid) and (Player <> Game.CurrentPlayer) and (Player <> nil) then begin
+      Cells := Game.Map.GetCellNeighbors(TCell(AllCells[C]));
+      CanAttack := 0;
+      for I := 0 to Length(Cells) - 1 do
+      if (Cells[I].Player = Game.CurrentPlayer) then begin
+        Inc(CanAttack);
+      end;
+      if CanAttack > 0 then TargetCells.Add(AllCells[C]);
+    end;
+  end;
+
+  // Sort descending to attack cells with higher power first
+  // Higher power enemy cells grow faster and is more dangerous
+  TargetCells.Sort(CellCompareDescending);
+
+  for C := 0 to TargetCells.Count - 1 do
+  with TCell(TargetCells[C]) do begin
+      // Attack to not owned cell yet
+      // Count own possible power
+      Cells := Game.Map.GetCellNeighbors(TCell(TargetCells[C]));
+      TotalPower := 0;
+      for I := 0 to Length(Cells) - 1 do
+      if (Cells[I].Player = Game.CurrentPlayer) then begin
+        TotalPower := TotalPower + Cells[I].GetAvialPower;
+      end;
+      // Attack if target is weaker
+      if TotalPower >= (Power + AttackDiff) then begin
+        TotalAttackPower := 0;
+        for I := 0 to Length(Cells) - 1 do
+        if (Cells[I].Player = Game.CurrentPlayer) then begin
+          // Use only necessary power
+          AttackPower := Power - TotalAttackPower + AttackDiff;
+          if Cells[I].GetAvialPower < AttackPower then
+            AttackPower := Cells[I].GetAvialPower;
+          Game.SetMove(Cells[I], TCell(TargetCells[C]), AttackPower);
+          TotalAttackPower := TotalAttackPower + AttackPower;
+        end;
+      end;
+  end;
+
+  TargetCells.Free;
+end;
+
 procedure TComputer.InnerMoves;
 var
@@ -1196 +1272 @@
   C: Integer;
   CanAttack, CanAttack2: Integer;
-begin
+  TargetCells: TCells;
+  NewTargetCells: TCells;
+begin
+  // We need to move available power to borders to be available for attacks
+  // or defense
   AllCells := Game.Map.Cells;
+  TargetCells := TCells.Create;
+  TargetCells.OwnsObjects := False;
+  NewTargetCells := TCells.Create;
+  NewTargetCells.OwnsObjects := False;
+
+  // Get list of all our cells which can attack
   for C := 0 to AllCells.Count - 1 do
   with TCell(AllCells[C]) do begin
-      if (Terrain <> ttVoid) and (Player = Game.CurrentPlayer) then begin
-      // Inner moves
-      // We need to move available power to borders to be available for attacks
-      // or defense
+    if (Player = Game.CurrentPlayer) then begin
       Cells := Game.Map.GetCellNeighbors(TCell(AllCells[C]));
       CanAttack := 0;
@@ -1210 +1293 @@
         Inc(CanAttack);
       end;
-      if CanAttack = 0 then begin
-        // We cannot attack and should do move
-        // For simplicty just try to balance inner area cells power
-        for I := 0 to Length(Cells) - 1 do
-        if (Cells[I].Player = Game.CurrentPlayer) and (Cells[I].Power < TCell(AllCells[C]).GetAvialPower) then begin
-          Game.SetMove(TCell(AllCells[C]), Cells[I], (TCell(AllCells[C]).GetAvialPower - Cells[I].Power) div 2);
-        end;
-      end else begin
-        // Is enemy border cell, try to absorb all units from inner neighbours
-        for I := 0 to Length(Cells) - 1 do
-        if (Cells[I].Player = Game.CurrentPlayer) and (Cells[I].GetAvialPower > 0) then begin
-          Cells2 := Game.Map.GetCellNeighbors(TCell(Cells[I]));
-          CanAttack2 := 0;
-          for J := 0 to Length(Cells2) - 1 do
-          if (Cells2[J].Player <> Game.CurrentPlayer) and (Cells2[J].Terrain <> ttVoid) then begin
-            Inc(CanAttack2);
-          end;
-          if CanAttack2 = 0 then
-            Game.SetMove(Cells[I], TCell(AllCells[C]), Cells[I].GetAvialPower);
-        end;
+      if CanAttack > 0 then TargetCells.Add(AllCells[C]);
+    end;
+  end;
+
+  // Unset mark for all cells
+  for C := 0 to AllCells.Count - 1 do
+    TCell(AllCells[C]).Mark := False;
+
+  while TargetCells.Count > 0 do begin
+    // Set mark for selected border cells
+    for C := 0 to TargetCells.Count - 1 do
+      TCell(TargetCells[C]).Mark := True;
+
+    // Move all power from unmarked cells and mark them
+    NewTargetCells.Count := 0;
+    for C := 0 to TargetCells.Count - 1 do
+    with TCell(TargetCells[C]) do begin
+      //
+      Cells := Game.Map.GetCellNeighbors(TCell(TargetCells[C]));
+      for I := 0 to Length(Cells) - 1 do
+      if (Cells[I].Player = Game.CurrentPlayer) and (Cells[I].Terrain <> ttVoid)
+      and (not Cells[I].Mark) then begin
+        Game.SetMove(Cells[I], TCell(TargetCells[C]), Cells[I].GetAvialPower);
+        TCell(TargetCells[C]).Mark := True;
+        NewTargetCells.Add(Cells[I]);
       end;
     end;
+
+    // Use source cells NewTargetCells as new TargetCells
+    TargetCells.Count := NewTargetCells.Count;
+    for C := 0 to TargetCells.Count - 1 do
+      TargetCells[C] := NewTargetCells[C];
+  end;
+
+  TargetCells.Free;
+  NewTargetCells.Free;
+end;
+
+procedure TComputer.IncreaseMoves;
+var
+  I: Integer;
+begin
+  // If available power remains then use all for existed unit moves
+  for I := 0 to Game.Moves.Count - 1 do
+  with TUnitMove(Game.Moves[I]) do begin
+    if CellFrom.GetAvialPower > 0 then
+      CountOnce := CountOnce + CellFrom.GetAvialPower;
   end;
 end;
@@ -1237 +1345 @@
 procedure TComputer.Process;
 begin
-  Attack;
+  AttackPlayers;
+  AttackNeutral;
   InnerMoves;
+  IncreaseMoves;
 end;