Changeset 132 for trunk/UEngine.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: Improved stored game state.

File:

• trunk/UEngine.pas (modified) (7 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));