Changeset 132 for trunk

Timestamp:

May 2, 2023, 12:09:33 AM (19 months ago)

Author:

chronos

Message:

• Fixed: Improved stored game state.

Location:

trunk

Files:

• UEngine.pas (modified) (7 diffs)
• UItems.pas (modified) (3 diffs)

trunk/UEngine.pas

@@ -1014 +1014 @@
 var
   Node2: TDOMNode;
+  I: Integer;
 begin
   inherited;
@@ -1026 +1027 @@
   if Assigned(Node2) then
     LineStations.LoadFromXmlNode(Node2);
+  for I := 0 to LineStations.Count - 1 do
+    LineStations[I].MapStation.Lines.Add(Self);
 end;
 
@@ -1359 +1362 @@
   DestinationIndex := ReadInteger(Node, 'DestinationIndex', Integer(DestinationIndex));
   IsTerminal := ReadBoolean(Node, 'IsTerminal', IsTerminal);
+  OverloadDuration := ReadDateTime(Node, 'OverloadDuration', OverloadDuration);
 
   Node2 := Node.FindNode(DOMString(TMetroPassengers.GetClassSysName));
@@ -1374 +1378 @@
   WriteInteger(Node, 'DestinationIndex', DestinationIndex);
   WriteBoolean(Node, 'IsTerminal', IsTerminal);
+  WriteDateTime(Node, 'OverloadDuration', OverloadDuration);
 
   NewNode := Node.OwnerDocument.CreateElement(DOMString(TMetroPassengers.GetClassSysName));
@@ -4039 +4044 @@
   City := Cities.SearchBySysName(ReadString(Node, 'CityName', ''));
   AvailableTerminals := ReadInteger(Node, 'AvailableTerminals', AvailableTerminals);
+  LastNewShapeTime := ReadDateTime(Node, 'LastNewShapeTime', LastNewShapeTime);
+  LastNewWeekTime := ReadDateTime(Node, 'LastNewWeekTime', LastNewWeekTime);
+  LastNewPassengerTime := ReadDateTime(Node, 'LastNewPassengerTime', LastNewPassengerTime);
+  LastNewStationTime := ReadDateTime(Node, 'LastNewStationTime', LastNewStationTime);
 
   NewNode := Node.FindNode(DOMString(TView.GetClassSysName));
@@ -4085 +4094 @@
   if Assigned(NewNode) then
     Trains.LoadFromXmlNode(NewNode);
+
+  ComputeShapeDistance;
 end;
 
@@ -4105 +4116 @@
   if Assigned(City) then WriteString(Node, 'CityName', City.SysName);
   WriteInteger(Node, 'AvailableTerminals', AvailableTerminals);
+  WriteDateTime(Node, 'LastNewShapeTime', LastNewShapeTime);
+  WriteDateTime(Node, 'LastNewWeekTime', LastNewWeekTime);
+  WriteDateTime(Node, 'LastNewPassengerTime', LastNewPassengerTime);
+  WriteDateTime(Node, 'LastNewStationTime', LastNewStationTime);
 
   NewNode := Node.OwnerDocument.CreateElement(DOMString(TView.GetClassSysName));

trunk/UItems.pas

@@ -119 +119 @@
   Node2 := Node.FirstChild;
   while Assigned(Node2) and (Node2.NodeName = DOMString(T.GetClassSysName)) do begin
-    RefId := StrToInt(string(Node.TextContent));
+    RefId := StrToInt(string(Node2.TextContent));
     NewItem := Target.FindById(RefId);
     if Assigned(NewItem) then Add(NewItem)
@@ -168 +168 @@
   Count := 0;
   Node2 := Node.FirstChild;
-  while Assigned(Node2) and (Node2.NodeName = UnicodeString(GetItemClass.GetClassSysName)) do begin
+  while Assigned(Node2) and (Node2.NodeName = UnicodeString(T.GetClassSysName)) do begin
     NewItem := CreateItem;
     NewItem.LoadFromXmlNode(Node2);
@@ -183 +183 @@
   for I := 0 to Count - 1 do
   with TItem(Items[I]) do begin
-    NewNode2 := Node.OwnerDocument.CreateElement(UnicodeString(GetItemClass.GetClassSysName));
+    NewNode2 := Node.OwnerDocument.CreateElement(UnicodeString(T.GetClassSysName));
     Node.AppendChild(NewNode2);
     SaveToXmlNode(NewNode2);