Changeset 317 for trunk/Player.pas

Timestamp:

Jun 21, 2024, 12:44:53 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.
• Modified: Use TFormEx for all forms for code simplification.

File:

• trunk/Player.pas (moved) (moved from trunk/UPlayer.pas ) (5 diffs)

trunk/Player.pas

@@ -1 @@
-unit UPlayer;
+unit Player;
 
 interface
 
 uses
-  Classes, SysUtils, Graphics, UMap, DOM, Generics.Collections, Generics.Defaults,
-  XMLConf, XML, Math, UGeometry, UUnit, UNation, UItemList;
+  Classes, SysUtils, Graphics, Map, DOM, Generics.Collections, Generics.Defaults,
+  XMLConf, XML, Math, Geometry, &Unit, Nation, ItemList;
 
 type
@@ -205 +205 @@
 
 uses
-  UGame, UGameSystem, UBuilding;
+  Game, GameSystem, Building;
 
 resourcestring
@@ -1030 +1030 @@
 begin
   for I := 0 to PlayerMap.Cells.Count - 1 do
-  with TPlayerCell(PlayerMap.Cells[I]) do begin
+  with PlayerMap.Cells[I] do begin
     if Assigned(MapCell.OneUnit) and (MapCell.OneUnit.Power = 0) then begin
       OneUnit := MapCell.OneUnit;
@@ -1044 +1044 @@
 begin
   for I := 0 to Units.Count - 1 do
-    TUnit(Units[I]).Moves := TUnit(Units[I]).Kind.Moves;
+    Units[I].Moves := Units[I].Kind.Moves;
 end;
 
@@ -1356 +1356 @@
     NewNode := Node.OwnerDocument.CreateElement('TurnStat');
     Node.AppendChild(NewNode);
-    TGameTurnStat(Items[I]).SaveToNode(NewNode);
-  end;
-end;
-
+    Items[I].SaveToNode(NewNode);
+  end;
+end;
 
 end.