Changeset 84 for trunk

Timestamp:

Nov 5, 2014, 10:11:26 PM (10 years ago)

Author:

chronos

Message:

• Added: Discovered flag in player map is now stored to game save.

File:

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

trunk/UGame.pas

@@ -200 +200 @@
   end;
 
+  TPlayerCells = class;
+  TPlayerMap = class;
+
   { TPlayerCell }
 
@@ -206 +209 @@
     InVisibleRange: Boolean;
     MapCell: TCell;
+    List: TPlayerCells;
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
   end;
 
@@ -211 +217 @@
 
   TPlayerCells = class(TObjectList)
+    Map: TPlayerMap;
     function SearchCell(Cell: TCell): TPlayerCell;
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
   end;
 
@@ -219 +228 @@
     Cells: TPlayerCells;
     Player: TPlayer;
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
     procedure Update;
     constructor Create;
@@ -480 +491 @@
 end;
 
+{ TPlayerCell }
+
+procedure TPlayerCell.LoadFromNode(Node: TDOMNode);
+begin
+  Explored := ReadBoolean(Node, 'Explored', False);
+  MapCell := List.Map.Player.Game.Map.Cells.FindById(ReadInteger(Node, 'MapCell', 0));
+end;
+
+procedure TPlayerCell.SaveToNode(Node: TDOMNode);
+begin
+  WriteBoolean(Node, 'Explored', Explored);
+  WriteInteger(Node, 'MapCell', MapCell.Id);
+end;
+
 { TPlayerCells }
 
@@ -492 +517 @@
 end;
 
+procedure TPlayerCells.LoadFromNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewCell: TPlayerCell;
+begin
+  Count := 0;
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'Cell') do begin
+    NewCell := TPlayerCell.Create;
+    NewCell.List := Self;
+    NewCell.LoadFromNode(Node2);
+    Add(NewCell);
+    Node2 := Node2.NextSibling;
+  end;
+end;
+
+procedure TPlayerCells.SaveToNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode: TDOMNode;
+begin
+  for I := 0 to Count - 1 do begin;
+    NewNode := Node.OwnerDocument.CreateElement('Cell');
+    Node.AppendChild(NewNode);
+    TPlayerCell(Items[I]).SaveToNode(NewNode);
+  end;
+end;
+
 { TPlayerMap }
+
+procedure TPlayerMap.LoadFromNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
+begin
+  with Node do begin
+    NewNode := FindNode('Cells');
+    if Assigned(NewNode) then
+      Cells.LoadFromNode(NewNode);
+  end;
+end;
+
+procedure TPlayerMap.SaveToNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
+begin
+  with Node do begin
+    NewNode := OwnerDocument.CreateElement('Cells');
+    AppendChild(NewNode);
+    Cells.SaveToNode(NewNode);
+  end;
+end;
 
 procedure TPlayerMap.Update;
@@ -507 +582 @@
   for I := 0 to Cells.Count - 1 do
   with TPlayerCell(Cells[I]) do begin
+    List := Cells;
     Explored := False;
     InVisibleRange := False;
@@ -516 +592 @@
 begin
   Cells := TPlayerCells.Create;
+  Cells.Map := Self;
 end;
 
@@ -1569 +1646 @@
 
 procedure TPlayer.LoadFromNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
 begin
   Id := ReadInteger(Node, 'Id', 0);
@@ -1576 +1655 @@
   StartCell := FGame.Map.Cells.FindById(ReadInteger(Node, 'StartCell', 0));
   StartUnits := ReadInteger(Node, 'StartUnits', 0);
+
+  with Node do begin
+    NewNode := FindNode('Map');
+    if Assigned(NewNode) then
+      PlayerMap.LoadFromNode(NewNode);
+  end;
 end;
 
 procedure TPlayer.SaveToNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
 begin
   WriteInteger(Node, 'Id', Id);
@@ -1586 +1673 @@
   WriteInteger(Node, 'StartCell', StartCell.Id);
   WriteInteger(Node, 'StartUnits', StartUnits);
+
+  with Node do begin
+    NewNode := OwnerDocument.CreateElement('Map');
+    AppendChild(NewNode);
+    PlayerMap.SaveToNode(NewNode);
+  end;
 end;