Changeset 231 for trunk/UClientAI.pas

Timestamp:

Sep 19, 2018, 2:05:52 PM (6 years ago)

Author:

chronos

Message:

• Modified: UGame unit was split to UPlayer, UMap and UClientGUI units to have better logical separation of game classes.
• Modified: Drawing methods moved from TMap and TPlayerMap to TClientGUI. Generic TClient class and TComputer classes don't need have any drawing support.

File:

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

trunk/UClientAI.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UGameClient, UGame, Math;
+  Classes, SysUtils, UGameClient, UGame, Math, UPlayer, UMap;
 
 type
@@ -232 +232 @@
               if (TargetCells[C].GetAvialPower + TargetCells[C].GetAttackPower + MovedPower) > Game.Map.MaxPower then
                 MovedPower := Game.Map.MaxPower - TargetCells[C].GetAvialPower - TargetCells[C].GetAttackPower;
-              MapCell.Player.SetMove(Neighbors[I], TargetCells[C], MovedPower, False);
+              TPlayer(MapCell.Player).SetMove(Neighbors[I], TargetCells[C], MovedPower, False);
             end;
           end;
@@ -311 +311 @@
       // Fallback
       for I := MovesTo.Count - 1 downto 0 do
-        MapCell.Player.Moves.Remove(MovesTo[I]);
+        TPlayer(MapCell.Player).Moves.Remove(MovesTo[I]);
       for I := 0 to Neighbors.Count - 1 do
       if (Neighbors[I].MapCell.Player = MapCell.Player) and (AttackersCount(Neighbors[I]) = 0) then begin
-        MapCell.Player.SetMove(BorderCells[C], Neighbors[I], GetAvialPower, False);
+        TPlayer(MapCell.Player).SetMove(BorderCells[C], Neighbors[I], GetAvialPower, False);
         Break;
       end;