Changeset 64 for trunk/UGame.pas

Timestamp:

Sep 26, 2014, 9:01:50 PM (10 years ago)

Author:

chronos

Message:

• Modified: Improved saving game state to XML file. Not yet finished and can't be loaded yet.

File:

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

trunk/UGame.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, ExtCtrls, Graphics, Contnrs, XMLConf, XMLRead, XMLWrite,
-  DOM, Math;
+  DOM, Math, FileUtil, UXMLUtils;
 
 const
@@ -23 +23 @@
   TPlayer = class;
   TView = class;
+  TUnitMoves = class;
 
   TFloatPoint = record
@@ -39 +40 @@
     procedure SetPower(AValue: Integer);
   public
+    Id: Integer;
     PosPx: TPoint;
     Polygon: TPointArray;
     Terrain: TTerrainType;
     Player: TPlayer;
-    MovesFrom: TObjectList; // TList<TMove>
-    MovesTo: TObjectList; // TList<TMove>
+    MovesFrom: TUnitMoves;
+    MovesTo: TUnitMoves;
     Neighbors: TObjectList; // TList<TCell>
     procedure Assign(Source: TCell);
@@ -106 +108 @@
     procedure LoadFromFile(FileName: string); virtual;
     procedure SaveToFile(FileName: string); virtual;
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
     function PosToCell(Pos: TPoint; View: TView): TCell; virtual;
     function CellToPos(Cell: TCell): TPoint; virtual;
@@ -173 +177 @@
     procedure SetGame(AValue: TGame);
   public
+    Id: Integer;
     Name: string;
     Color: TColor;
@@ -181 +186 @@
     TotalCities: Integer;
     StartUnits: Integer;
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
     procedure ComputerTurn;
     procedure Paint(PaintBox: TPaintBox);
@@ -191 +198 @@
   TPlayerArray = array of TPlayer;
 
+  { TPlayers }
+
   TPlayers = class(TObjectList)
-
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
   end;
 
@@ -207 +217 @@
     CountOnce: Integer;
     CountRepeat: Integer;
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
     constructor Create;
     destructor Destroy; override;
     property CellFrom: TCell read FCellFrom write SetCellFrom;
     property CellTo: TCell read FCellTo write SetCellTo;
+  end;
+
+  { TUnitMoves }
+
+  TUnitMoves = class(TObjectList)
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
   end;
 
@@ -248 +267 @@
     CityPercentage: Integer;
     CurrentPlayer: TPlayer;
-    Moves: TObjectList; // TList<TUnitMove>
+    Moves: TUnitMoves;
     TurnCounter: Integer;
     WinObjective: TWinObjective;
@@ -254 +273 @@
     StayAliveForDefinedTurns: Integer;
     MaxNeutralUnits: Integer;
+    FileName: string;
     function AttackProbability(AttackCount, DefendCount, Depth: Integer): Double;
     procedure SaveConfig(Config: TXmlConfig; Path: string);
     procedure LoadConfig(Config: TXmlConfig; Path: string);
+    procedure LoadFromFile(FileName: string);
+    procedure SaveToFile(FileName: string);
     procedure ComputePlayerStats;
     function GetAlivePlayers: TPlayerArray;
@@ -292 +314 @@
   SComputer = 'Computer';
   SCannotSetPlayerStartCells = 'Cannot choose start cell for player';
+  SWrongFileFormat = 'Wrong file format';
   SUnfinishedBattle = 'Unfinished battle';
+  SNewGameFile = 'New game.xtg';
 
 procedure InitStrings;
@@ -354 +378 @@
     if Y < Result.Top then
       Result.Top := Y;
+  end;
+end;
+
+{ TPlayers }
+
+procedure TPlayers.LoadFromNode(Node: TDOMNode);
+begin
+
+end;
+
+procedure TPlayers.SaveToNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode: TDOMNode;
+begin
+  for I := 0 to Count - 1 do begin;
+    NewNode := Node.OwnerDocument.CreateElement('Player');
+    Node.AppendChild(NewNode);
+    TPlayer(Items[I]).SaveToNode(NewNode);
+  end;
+end;
+
+{ TUnitMoves }
+
+procedure TUnitMoves.LoadFromNode(Node: TDOMNode);
+begin
+
+end;
+
+procedure TUnitMoves.SaveToNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode: TDOMNode;
+begin
+  for I := 0 to Count - 1 do begin;
+    NewNode := Node.OwnerDocument.CreateElement('UnitMove');
+    Node.AppendChild(NewNode);
+    TUnitMove(Items[I]).SaveToNode(NewNode);
   end;
 end;
@@ -595 +657 @@
 end;
 
+procedure TMap.LoadFromNode(Node: TDOMNode);
+begin
+  DefaultCellSize.X := ReadInteger(Node, 'DefaultCellSizeX', 1);
+  DefaultCellSize.Y := ReadInteger(Node, 'DefaultCellSizeY', 1);
+  MaxPower := ReadInteger(Node, 'MaxPower', 99);
+end;
+
+procedure TMap.SaveToNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
+  NewNode2: TDOMNode;
+  I: Integer;
+begin
+  WriteInteger(Node, 'DefaultCellSizeX', DefaultCellSize.X);
+  WriteInteger(Node, 'DefaultCellSizeY', DefaultCellSize.Y);
+  WriteInteger(Node, 'MaxPower', MaxPower);
+  NewNode := Node.OwnerDocument.CreateElement('Cells');
+  Node.AppendChild(NewNode);
+  for I := 0 to Cells.Count - 1 do
+  with TCell(Cells[I]) do begin
+    NewNode2 := Node.OwnerDocument.CreateElement('Cell');
+    NewNode.AppendChild(NewNode2);
+    WriteInteger(NewNode2, 'Id', I);
+    WriteInteger(NewNode2, 'Power', Power);
+    WriteInteger(NewNode2, 'Terrain', Integer(Terrain));
+    WriteInteger(NewNode2, 'PosX', PosPx.X);
+    WriteInteger(NewNode2, 'PosY', PosPx.Y);
+  end;
+end;
+
 function TMap.PosToCell(Pos: TPoint; View: TView): TCell;
 var
@@ -792 +884 @@
 end;
 
+procedure TUnitMove.LoadFromNode(Node: TDOMNode);
+begin
+  CountOnce := ReadInteger(Node, 'CountOnce', 0);
+  CountRepeat := ReadInteger(Node, 'CountRepeat', 0);
+  //CellFrom := ReadInteger(Node, 'CellFrom', 0);
+  //CellTo := ReadInteger(Node, 'CellTo', 0);
+end;
+
+procedure TUnitMove.SaveToNode(Node: TDOMNode);
+begin
+  WriteInteger(Node, 'CountOnce', CountOnce);
+  WriteInteger(Node, 'CountRepeat', CountRepeat);
+  WriteInteger(Node, 'CellFrom', CellFrom.Id);
+  WriteInteger(Node, 'CellTo', CellTo.Id);
+end;
+
 constructor TUnitMove.Create;
 begin
@@ -917 +1025 @@
   Neighbors := TObjectList.Create;
   Neighbors.OwnsObjects := False;
-  MovesFrom := TObjectList.Create;
+  MovesFrom := TUnitMoves.Create;
   MovesFrom.OwnsObjects := False;
-  MovesTo := TObjectList.Create;
+  MovesTo := TUnitMoves.Create;
   MovesTo.OwnsObjects := False;
 end;
@@ -977 +1085 @@
   FGame := AValue;
   View.Game := Game;
+end;
+
+procedure TPlayer.LoadFromNode(Node: TDOMNode);
+begin
+  Id := ReadInteger(Node, 'Id', 0);
+  Name := ReadString(Node, 'Name', '');
+  Color := ReadInteger(Node, 'Color', clSilver);
+  Mode := TPlayerMode(ReadInteger(Node, 'Mode', Integer(pmHuman)));
+end;
+
+procedure TPlayer.SaveToNode(Node: TDOMNode);
+begin
+  WriteInteger(Node, 'Id', Id);
+  WriteString(Node, 'Name', Name);
+  WriteInteger(Node, 'Color', Color);
+  WriteInteger(Node, 'Mode', Integer(Mode));
 end;
 
@@ -1349 +1473 @@
 begin
   I := 0;
-  while (I < Moves.Count) and ((TUnitMove(Moves[I]).CellTo <> Move.CellFrom) and
+  while (I < Moves.Count) and ((TUnitMove(Moves[I]).CellTo <> Move.CellFrom) or
     (TUnitMove(Moves[I]).CellFrom <> Move.CellTo)) do Inc(I);
   if I < Moves.Count then CounterMove := TUnitMove(Moves[I])
@@ -1390 +1514 @@
     GrowCells := TGrowCells(GetValue(Path + '/GrowCells', Integer(gcPlayerAll)));
     WinObjective := TWinObjective(GetValue(Path + '/WinObjective', Integer(woDefeatAllOponents)));
+  end;
+end;
+
+procedure TGame.LoadFromFile(FileName: string);
+var
+  NewNode: TDOMNode;
+  Value: Integer;
+  Doc: TXMLDocument;
+  Dump: TStringList;
+  RootNode: TDOMNode;
+begin
+  Self.FileName := FileName;
+  ReadXMLFile(Doc, UTF8Decode(FileName));
+  with Doc do try
+    if Doc.DocumentElement.NodeName <> 'XtacticsGame' then
+      raise Exception.Create(SWrongFileFormat);
+    RootNode := Doc.DocumentElement;
+    with RootNode do begin
+      VoidEnabled := ReadBoolean(RootNode, 'VoidEnabled', False);
+      VoidPercentage := ReadInteger(RootNode, 'VoidPercentage', 0);
+      MaxNeutralUnits := ReadInteger(RootNode, 'MaxNeutralUnits', 3);
+      GrowCells := TGrowCells(ReadInteger(RootNode, 'GrowCells', Integer(gcNone)));
+      GrowAmount := TGrowAmount(ReadInteger(RootNode, 'GrowAmount', Integer(gaByOne)));
+      CityEnabled := ReadBoolean(RootNode, 'CityEnabled', False);
+      CityPercentage := ReadInteger(RootNode, 'CityPercentage', 0);
+      TurnCounter := ReadInteger(RootNode, 'TurnCounter', 0);
+      WinObjective := TWinObjective(ReadInteger(RootNode, 'WinObjective', Integer(woDefeatAllOponents)));
+      ReadInteger(RootNode, 'StayAliveForDefinedTurns', StayAliveForDefinedTurns);
+
+      NewNode := FindNode('Map');
+      if Assigned(NewNode) then
+        Map.LoadFromNode(NewNode);
+
+      NewNode := FindNode('Players');
+      if Assigned(NewNode) then
+        Players.LoadFromNode(NewNode);
+
+      NewNode := FindNode('UnitMoves');
+      if Assigned(NewNode) then
+        Moves.LoadFromNode(NewNode);
+    end;
+  finally
+    Doc.Free;
+  end;
+end;
+
+procedure TGame.SaveToFile(FileName: string);
+var
+  NewNode: TDOMNode;
+  NewNode2: TDOMNode;
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
+  I: Integer;
+begin
+  Self.FileName := FileName;
+  Doc := TXMLDocument.Create;
+  with Doc do try
+    RootNode := CreateElement('XtacticsGame');
+    AppendChild(RootNode);
+    with RootNode do begin
+      WriteBoolean(RootNode, 'VoidEnabled', VoidEnabled);
+      WriteInteger(RootNode, 'VoidPercentage', VoidPercentage);
+      WriteInteger(RootNode, 'MaxNeutralUnits', MaxNeutralUnits);
+      WriteInteger(RootNode, 'GrowCells', Integer(GrowCells));
+      WriteInteger(RootNode, 'GrowAmount', Integer(GrowAmount));
+      WriteBoolean(RootNode, 'CityEnabled', CityEnabled);
+      WriteInteger(RootNode, 'CityPercentage', CityPercentage);
+      WriteInteger(RootNode, 'TurnCounter', TurnCounter);
+      WriteInteger(RootNode, 'WinObjective', Integer(WinObjective));
+      WriteInteger(RootNode, 'StayAliveForDefinedTurns', StayAliveForDefinedTurns);
+
+      NewNode := OwnerDocument.CreateElement('Map');
+      AppendChild(NewNode);
+      Map.SaveToNode(NewNode);
+
+      NewNode := OwnerDocument.CreateElement('Players');
+      AppendChild(NewNode);
+      for I := 0 to Players.Count - 1 do begin;
+        NewNode2 := OwnerDocument.CreateElement('Player');
+        NewNode.AppendChild(NewNode2);
+        TPlayer(Players[I]).SaveToNode(NewNode2);
+      end;
+
+      NewNode := OwnerDocument.CreateElement('UnitMoves');
+      AppendChild(NewNode);
+      Moves.SaveToNode(NewNode);
+  end;
+    ForceDirectoriesUTF8(ExtractFileDir(FileName));
+    WriteXMLFile(Doc, UTF8Decode(FileName));
+  finally
+    Doc.Free;
   end;
 end;
@@ -1484 +1699 @@
   Player: TPlayer;
 begin
-  Moves := TObjectList.Create;
+  Moves := TUnitMoves.Create;
   Map := TMap.Create;
   Players := TPlayers.Create;
@@ -1528 +1743 @@
   C: Integer;
 begin
+  FileName := SNewGameFile;
   TurnCounter := 1;
   Moves.Clear;