Changeset 203 for trunk/UClientAI.pas

Timestamp:

May 18, 2018, 12:54:37 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Player turn start/end signaling from server to clients.
• Added: Save action to save game without opening save dialog.
• Fixed: Move dialog was not opened after new game was created.

File:

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

trunk/UClientAI.pas

@@ -17 +17 @@
     //Targets: TFPGObjectList<TPlayer>;
     CellProcessDirection: Boolean;
-    Player: TPlayer;
     procedure AttackNeutral;
     procedure AttackPlayers;
@@ -34 +33 @@
 procedure TComputer.DoTurnStart(Sender: TObject);
 begin
-  inherited DoTurnStart(Sender);
+  Process;
+  Protocol.TurnEnd;
 end;
 
@@ -89 +89 @@
           if NeighborCell.GetAvialPower < AttackPower then
             AttackPower := NeighborCell.GetAvialPower;
-          Self.Player.SetMove(NeighborCell, Cell, AttackPower, False);
+          ControlPlayer.SetMove(NeighborCell, Cell, AttackPower, False);
           TotalAttackPower := TotalAttackPower + AttackPower;
         end;
@@ -109 +109 @@
   NeighborCell: TCell;
 begin
-  if Player.Defensive then Exit;
+  if ControlPlayer.Defensive then Exit;
 
   AllCells := Game.Map.Cells;
@@ -117 +117 @@
   // Get list of all attack target cells
   for TargetCell in AllCells do begin
-    if (TargetCell.Terrain <> ttVoid) and (TargetCell.Player <> Player) and
+    if (TargetCell.Terrain <> ttVoid) and (TargetCell.Player <> ControlPlayer) and
       (TargetCell.Player <> nil) then begin
       CanAttack := 0;
       for NeighborCell in TargetCell.Neighbors do
-      if NeighborCell.Player = Player then begin
+      if NeighborCell.Player = ControlPlayer then begin
         Inc(CanAttack);
       end;
@@ -137 +137 @@
       TotalPower := 0;
       for NeighborCell in TargetCell.Neighbors do
-      if NeighborCell.Player = Player then begin
+      if NeighborCell.Player = ControlPlayer then begin
         TotalPower := TotalPower + NeighborCell.GetAvialPower;
       end;
       // Attack if target is weaker
       if Game.AttackProbability(TotalPower, TargetCell.Power) >=
-        ComputerAggroProbability[Player.Agressivity] then begin
+        ComputerAggroProbability[ControlPlayer.Agressivity] then begin
         // Try to limit total attacking power to necessary minimum
         while Game.AttackProbability(TotalPower - 1, TargetCell.Power) >=
-          ComputerAggroProbability[Player.Agressivity] do
+          ComputerAggroProbability[ControlPlayer.Agressivity] do
           Dec(TotalPower);
 
@@ -151 +151 @@
         TotalAttackPower := 0;
         for NeighborCell in TargetCell.Neighbors do
-        if NeighborCell.Player = Player then begin
+        if NeighborCell.Player = ControlPlayer then begin
           // Use only necessary power
           AttackPower := TotalPower - TotalAttackPower;
           if NeighborCell.GetAvialPower < AttackPower then
             AttackPower := NeighborCell.GetAvialPower;
-          Self.Player.SetMove(NeighborCell, TargetCell, AttackPower, False);
+          Self.ControlPlayer.SetMove(NeighborCell, TargetCell, AttackPower, False);
           TotalAttackPower := TotalAttackPower + AttackPower;
           if TotalAttackPower >= TotalPower then Break;
@@ -258 +258 @@
 begin
   // If available power remains then use all for existed unit moves
-  for Move in Player.Moves do
+  for Move in ControlPlayer.Moves do
   with Move do begin
     if CellFrom.GetAvialPower > 0 then begin