Changeset 223 for trunk/Forms/UFormClient.pas

Timestamp:

Jul 14, 2018, 7:21:43 PM (6 years ago)

Author:

chronos

Message:

• Modified: CellMoves moved from terrain map to player map. Every player should have own moves to avoid affecting moves of different player.

File:

• trunk/Forms/UFormClient.pas (modified) (6 diffs)

trunk/Forms/UFormClient.pas

@@ -85 +85 @@
     procedure DoNextPlayer(Sender: TObject);
     procedure DoTurnStart(Sender: TObject);
-    procedure DoMove(CellFrom, CellTo: TCell; var CountOnce,
+    procedure DoMove(CellFrom, CellTo: TPlayerCell; var CountOnce,
       CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
     procedure SetToolbarHints;
@@ -129 +129 @@
 end;
 
-procedure TFormClient.DoMove(CellFrom, CellTo: TCell; var CountOnce,
+procedure TFormClient.DoMove(CellFrom, CellTo: TPlayerCell; var CountOnce,
   CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
 var
@@ -146 +146 @@
     FormMove.TrackBarRepeat.Max := FormMove.SpinEditRepeat.MaxValue;
     FormMove.TrackBarRepeat.Position := FormMove.SpinEditRepeat.Value;
-    FormMove.DefendCount := CellTo.Power;
+    FormMove.DefendCount := CellTo.MapCell.Power;
     // Attack count from other surrounding cells without current move if already exists
     FormMove.AttackCount := 0;
@@ -152 +152 @@
     if TUnitMove(CellTo.MovesTo[I]).CellFrom <> CellFrom then
       FormMove.AttackCount := FormMove.AttackCount + TUnitMove(CellTo.MovesTo[I]).CountOnce;
-    FormMove.ShowWinProbability := CellTo.Player <> CellFrom.Player;
+    FormMove.ShowWinProbability := CellTo.MapCell.Player <> CellFrom.MapCell.Player;
 
     if FormMove.ShowModal = mrOk then begin
@@ -456 +456 @@
   Y: Integer);
 var
-  Cell: TCell;
-  OldCell: TCell;
+  Cell: TPlayerCell;
+  OldCell: TPlayerCell;
   CellPos: TPoint;
 begin
@@ -473 +473 @@
     OldCell := Client.View.FocusedCell;
     with Core.Game do
-      Cell := Map.PosToCell(Client.View.CanvasToCellPos(TPoint.Create(X, Y)), Client.View);
+      if Assigned(Client.ControlPlayer) then
+        Cell := Client.ControlPlayer.PlayerMap.PosToCell(Client.View.CanvasToCellPos(TPoint.Create(X, Y)), Client.View);
+        //else Cell := Client.Game.Map.PosToCell(Client.View.CanvasToCellPos(TPoint.Create(X, Y)), Client.View);
     if Assigned(Cell) then begin
       Client.View.FocusedCell := Cell;
-      StatusBar1.Panels[0].Text := '[' + IntToStr(Cell.PosPx.X) + ', ' + IntToStr(Cell.PosPx.Y) +
-        '] (' + IntToStr(Cell.MovesFrom.Count) + ', ' + IntToStr(Cell.MovesTo.Count) + ') ' + IntToStr(Cell.Id);
+      StatusBar1.Panels[0].Text := '[' + IntToStr(Cell.MapCell.PosPx.X) + ', ' + IntToStr(Cell.MapCell.PosPx.Y) +
+        '] (' + IntToStr(Cell.MovesFrom.Count) + ', ' + IntToStr(Cell.MovesTo.Count) + ') ' + IntToStr(Cell.MapCell.Id);
     end else begin
       Client.View.FocusedCell := nil;