Changeset 360 for trunk/Game.pas

Timestamp:

Dec 31, 2024, 11:46:43 AM (6 days ago)

Author:

chronos

Message:

• Fixed: Store current player information to game save to be able to continue with different player.

File:

• trunk/Game.pas (modified) (2 diffs)

trunk/Game.pas

@@ -633 +633 @@
       if Assigned(NewNode) then
         Players.LoadFromNode(NewNode);
-      if Players.Count > 0 then CurrentPlayer := Players[0]
-        else CurrentPlayer := nil;
+      CurrentPlayer := Players.FindById(ReadInteger(RootNode, 'CurrentPlayer', -1));
+
+      if not Assigned(CurrentPlayer) and (Players.Count > 0) then CurrentPlayer := Players[0];
 
       NewNode := FindNode('Units');
@@ -685 +686 @@
       WriteInteger(RootNode, 'StayAliveForDefinedTurns', StayAliveForDefinedTurns);
       WriteBoolean(RootNode, 'Running', Running);
+      WriteInteger(RootNode, 'CurrentPlayer', CurrentPlayer.Id);
 
       NewNode := OwnerDocument.CreateElement('GameSystem');