Changeset 30 for trunk/UGame.pas

Timestamp:

Mar 4, 2014, 12:18:22 AM (10 years ago)

Author:

chronos

Message:

• Modified: Player FocusedCell and SelectedCell moved to TView instance from TPlayer.

File:

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

trunk/UGame.pas

@@ -58 +58 @@
     procedure SetZoom(AValue: Double);
   public
+    Game: TGame;
     SourceRect: TRect;
+    FocusedCell: TCell;
+    SelectedCell: TCell;
+    procedure Clear;
     constructor Create;
     destructor Destroy; override;
+    procedure SelectCell(Pos: TPoint; Player: TPlayer);
     function CanvasToCellPos(Pos: TPoint): TPoint;
     function CellToCanvasPos(Pos: TPoint): TPoint;
@@ -86 +91 @@
     function CellToPos(Cell: TCell; View: TView): TPoint;
     function GetHexagonPolygon(Pos: TPoint; HexSize: TPoint): TPointArray;
-    procedure Paint(Canvas: TCanvas; View: TView; SelectedCell: TCell; FocusedCell: TCell);
+    procedure Paint(Canvas: TCanvas; View: TView);
     constructor Create;
     destructor Destroy; override;
@@ -102 +107 @@
 
   TPlayer = class
-    Game: TGame;
+  private
+    FGame: TGame;
+    procedure SetGame(AValue: TGame);
+  public
     Name: string;
     Color: TColor;
     View: TView;
-    SelectedCell: TCell;
-    FocusedCell: TCell;
     Mode: TPlayerMode;
     TotalUnits: Integer;
@@ -113 +119 @@
     StartUnits: Integer;
     procedure ComputerTurn;
-    procedure SelectCell(Pos: TPoint);
     procedure Paint(PaintBox: TPaintBox);
     constructor Create;
     destructor Destroy; override;
     procedure Assign(Source: TPlayer);
+    property Game: TGame read FGame write SetGame;
   end;
 
@@ -243 +249 @@
 end;
 
+procedure TView.Clear;
+begin
+  FocusedCell := nil;
+  SelectedCell := nil;
+end;
+
 procedure TView.SetDestRect(AValue: TRect);
 begin
@@ -254 +266 @@
 constructor TView.Create;
 begin
-  Zoom := 1;
+  Zoom := 1.5;
+  Clear;
 end;
 
@@ -326 +339 @@
   DestRect := Source.DestRect;
   Zoom := Source.Zoom;
+  SelectedCell := Source.SelectedCell;
+  FocusedCell := Source.FocusedCell;
+end;
+
+procedure TPlayer.SetGame(AValue: TGame);
+begin
+  if FGame = AValue then Exit;
+  FGame := AValue;
+  View.Game := Game;
 end;
 
@@ -336 +358 @@
   TotalAttackPower: Integer;
   I: Integer;
+  CanAttack: Integer;
 begin
   for Y := 0 to Game.Map.Size.Y - 1 do
@@ -341 +364 @@
   with TCell(Game.Map.Cells[Y, X]) do begin
     if (Terrain <> ttVoid) and (Player <> Self) then begin
+      // Attack to not owned cell yet
       // Count own possible power
       Cells := Game.Map.GetCellNeighbours(Game.Map.Cells[Y, X]);
@@ -361 +385 @@
         end;
       end;
-    end;
-  end;
-end;
-
-procedure TPlayer.SelectCell(Pos: TPoint);
+    end else
+    if (Terrain <> ttVoid) and (Player = Self) then begin
+      // Inner moves
+      // We need to move available power to borders to be available for attacks
+      // or defense
+      Cells := Game.Map.GetCellNeighbours(Game.Map.Cells[Y, X]);
+      CanAttack := 0;
+      for I := 0 to Length(Cells) - 1 do
+      if (Cells[I].Player <> Self) then begin
+        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 = Self) and (Cells[I].Power < Game.Map.Cells[Y, X].GetAvialPower) then begin
+          Game.SetMove(Game.Map.Cells[Y, X], Cells[I], (Game.Map.Cells[Y, X].GetAvialPower - Cells[I].Power) div 2);
+        end;
+      end;
+    end;
+  end;
+end;
+
+procedure TView.SelectCell(Pos: TPoint; Player: TPlayer);
 var
   NewSelectedCell: TCell;
@@ -371 +414 @@
   BottomRight: TPoint;
 begin
-  NewSelectedCell := Game.Map.PosToCell(View.CanvasToCellPos(Pos), View);
+  NewSelectedCell := Game.Map.PosToCell(CanvasToCellPos(Pos), Self);
   if Assigned(NewSelectedCell) then begin
     if Assigned(SelectedCell) and IsCellsNeighbor(NewSelectedCell, SelectedCell) then begin
@@ -377 +420 @@
       SelectedCell := nil;
     end else
-    if (NewSelectedCell <> SelectedCell) and (NewSelectedCell.Player = Self) then
+    if (NewSelectedCell <> SelectedCell) and (NewSelectedCell.Player = Player) then
       SelectedCell := NewSelectedCell
     else
-    if (NewSelectedCell = SelectedCell) and (NewSelectedCell.Player = Self) then
+    if (NewSelectedCell = SelectedCell) and (NewSelectedCell.Player = Player) then
       SelectedCell := nil;
   end;
@@ -387 +430 @@
 procedure TPlayer.Paint(PaintBox: TPaintBox);
 begin
-  Game.Map.Paint(PaintBox.Canvas, View, SelectedCell, FocusedCell);
+  Game.Map.Paint(PaintBox.Canvas, View);
 end;
 
@@ -393 +436 @@
 begin
   View := TView.Create;
-  SelectedCell := nil;
-  FocusedCell := nil;
   StartUnits := DefaultPlayerStartUnits;
 end;
@@ -413 +454 @@
   TotalUnits := Source.TotalUnits;
   StartUnits := Source.StartUnits;
-  SelectedCell := Source.SelectedCell;
-  FocusedCell := Source.FocusedCell;
   View.Assign(Source.View);
 end;
@@ -432 +471 @@
       end else begin
         // Fight
+        //NewPower := CellTo.Power - Trunc(CountOnce / CellTo.Power);
         if CellTo.Power > CountOnce then begin
           // Defender wins
@@ -519 +559 @@
     for I := 0 to Players.Count - 1 do
     with TPlayer(Players[I]) do begin
-      SelectedCell := nil;
-      FocusedCell := nil;
+      View.Clear;
     end;
   end;
@@ -582 +621 @@
   end;
   UpdateRepeatMoves(CurrentPlayer);
+  // For computers take view from previous human
+  if CurrentPlayer.Mode = pmComputer then CurrentPlayer.View.Assign(PrevPlayer.View);
 end;
 
@@ -639 +680 @@
   for I := 0 to Players.Count - 1 do
   with TPlayer(Players[I]) do begin
-    SelectedCell := nil;
+    View.Clear;
     if (Map.Size.X > 0) and (Map.Size.Y > 0) then begin
       StartCell := Map.Cells[Random(Map.Size.Y), Random(Map.Size.X)];
@@ -771 +812 @@
 end;
 
-procedure THexMap.Paint(Canvas: TCanvas; View: TView; SelectedCell: TCell; FocusedCell: TCell);
+procedure THexMap.Paint(Canvas: TCanvas; View: TView);
 var
   CX, CY: Integer;
@@ -788 +829 @@
 begin
   with Canvas do begin
-    if Assigned(FocusedCell) and (FocusedCell = TCell(Cells[CY, CX])) then begin
+    if Assigned(View.FocusedCell) and (View.FocusedCell = TCell(Cells[CY, CX])) then begin
       Pen.Color := clYellow;
       Pen.Style := psSolid;