Changeset 336 for trunk/Player.pas

Timestamp:

Sep 7, 2024, 10:29:16 PM (2 months ago)

Author:

chronos

Message:

• Added: Automated tests accessible in debug mode.
• Fixed: Player units internal links.
• Fixed: List items id regeneration before game save.

File:

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

trunk/Player.pas

@@ -776 +776 @@
 begin
   inherited;
-  WriteInteger(Node, 'StartCell', StartCell.Id);
+  if Assigned(StartCell) then
+    WriteInteger(Node, 'StartCell', StartCell.Id);
 
   with Node do begin
@@ -809 +810 @@
 
 destructor TPlayer.Destroy;
+var
+  I: Integer;
 begin
   //Client := nil;
@@ -814 +817 @@
   FreeAndNil(PlayerMap);
   FreeAndNil(Moves);
+  for I := Units.Count - 1 downto 0 do
+    Units[I].Player := nil;
   FreeAndNil(Units);
   inherited;
@@ -828 +833 @@
   TotalWinObjectiveCells := TPlayer(Source).TotalWinObjectiveCells;
   StartCell := TPlayer(Source).StartCell;
+  Color := TPlayer(Source).Color;
+  //Units.Assign(TPlayer(Source).Units);
+  Nation := TPlayer(Source).Nation;
 end;
 
@@ -978 +986 @@
   // Clean from cell from empty units
   if UnitMove.CellFrom.MapCell.OneUnit.Power = 0 then begin
-    Units.Remove(UnitMove.CellFrom.MapCell.OneUnit);
+    UnitMove.CellFrom.MapCell.OneUnit.Player := nil;
     UnitMove.CellFrom.MapCell.OneUnit := nil;
   end;
@@ -1036 +1044 @@
       OneUnit := MapCell.OneUnit;
       MapCell.OneUnit := nil;
-      Units.Remove(OneUnit);
+      OneUnit.Player := nil;
     end;
   end;
@@ -1286 +1294 @@
         NewUnit.Player := Self;
         NewUnit.MapCell := Cells[I];
-        Units.Add(NewUnit);
       end;
       if OneUnit.Power < MaxPower then begin