Changeset 346 for trunk/Player.pas

Timestamp:

Dec 25, 2024, 11:04:56 AM (27 hours ago)

Author:

chronos

Message:

• Fixed: Build on Linux.
• Modified: Improved internal code structure.

File:

• trunk/Player.pas (modified) (10 diffs)

trunk/Player.pas

@@ -137 +137 @@
   public
     Game: TObject; //TGame;
+    procedure Assign(Source: TItemList<TPlayer>); override;
     procedure New(Name: string; Color: TColor; Mode: TPlayerMode);
     function CreateItem(Name: string = ''): TPlayer; override;
@@ -160 +161 @@
     CountOnce: Integer;
     CountRepeat: Integer;
+    procedure Assign(Source: TUnitMove);
     procedure LoadFromNode(Node: TDOMNode);
     procedure SaveToNode(Node: TDOMNode);
@@ -173 +175 @@
     Game: TObject; //TGame;
     Player: TPlayer;
+    procedure Assign(Source: TUnitMoves);
     function SearchByFromTo(CellFrom, CellTo: TPlayerCell): TUnitMove;
     procedure LoadFromNode(Node: TDOMNode);
@@ -416 +419 @@
 begin
   for I := 0 to Cells.Count - 1 do
-  with TPlayerCell(Cells[I]) do begin
+  with Cells[I] do begin
     for J := Neighbors.Count - 1 downto 0 do
       DisconnectFrom(Neighbors[J]);
@@ -440 +443 @@
   with TPlayerCell(Cells[I]) do begin
     for J := 0 to MapCell.Neighbors.Count - 1 do
-      ConnectTo(TPlayerCell(TCell(MapCell.Neighbors[J]).PlayerCell));
+      ConnectTo(TPlayerCell(MapCell.Neighbors[J].PlayerCell));
   end;
 end;
@@ -499 +502 @@
 end;
 
+procedure TPlayers.Assign(Source: TItemList<TPlayer>);
+var
+  I: Integer;
+begin
+  inherited;
+  for I := 0 to Count - 1 do
+    Items[I].Game := Game;
+end;
+
 procedure TPlayers.New(Name: string; Color: TColor; Mode: TPlayerMode);
-begin
-  AddItem(Name);
-  Last.Color := Color;
-  Last.Mode := Mode;
+var
+  NewPlayer: TPlayer;
+begin
+  NewPlayer := AddItem(Name);
+  NewPlayer.Color := Color;
+  NewPlayer.Mode := Mode;
   if Mode = pmComputer then
-    Last.Agressivity := caMedium;
+    NewPlayer.Agressivity := caMedium;
 end;
 
@@ -583 +597 @@
 { TUnitMoves }
 
+procedure TUnitMoves.Assign(Source: TUnitMoves);
+var
+  I: Integer;
+begin
+  while Count > Source.Count do
+    Delete(Count - 1);
+  while Count < Source.Count do
+    Add(TUnitMove.Create);
+  for I := 0 to Count - 1 do begin
+    Items[I].Assign(Source.Items[I]);
+  end;
+end;
+
 function TUnitMoves.SearchByFromTo(CellFrom, CellTo: TPlayerCell): TUnitMove;
 var
@@ -663 +690 @@
       else raise Exception.Create('Unit move already exists');
   end else
+end;
+
+procedure TUnitMove.Assign(Source: TUnitMove);
+begin
+  CountOnce := Source.CountOnce;
+  CountRepeat := Source.CountRepeat;
+  CellFrom.MapCell.Id := Source.CellFrom.MapCell.Id;
+  CellTo.MapCell.Id := Source.CellTo.MapCell.Id;
 end;
 
@@ -801 +836 @@
 begin
   inherited;
-  //Game := TPlayer(Source).Game;
   TotalCells := TPlayer(Source).TotalCells;
   TotalUnits := TPlayer(Source).TotalUnits;
@@ -809 +843 @@
   StartCell := TPlayer(Source).StartCell;
   Color := TPlayer(Source).Color;
-  //Units.Assign(TPlayer(Source).Units);
+  Units.Assign(TPlayer(Source).Units);
+  Moves.Assign(TPlayer(Source).Moves);
   Nation := TPlayer(Source).Nation;
 end;