Changeset 360 for trunk/Core.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/Core.pas (modified) (1 diff)

trunk/Core.pas

@@ -275 +275 @@
 
 procedure TCore.SelectClient;
-var
-  FirstHuman: TPlayer;
-begin
-  FirstHuman := Game.Players.GetFirstHuman;
-  if Assigned(FirstHuman) then FormMain.FormClient.Client := TClientGUI(LocalClients.SearchPlayer(FirstHuman))
-    else begin
-      FormMain.FormClient.Client := TClientGUI(LocalClients.New(SSpectator));
-      FormMain.FormClient.Client.LocalServer := Server;
-      FormMain.FormClient.Client.ConnectType := ctLocal;
-      FormMain.FormClient.Client.Active := True;
-      FormMain.FormClient.AZoomAll.Execute;
-    end;
+begin
+  if not Assigned(Game.CurrentPlayer) then
+    Game.CurrentPlayer := Game.Players.GetFirstHuman;
+  if Assigned(Game.CurrentPlayer) then begin
+    FormMain.FormClient.Client := TClientGUI(LocalClients.SearchPlayer(Game.CurrentPlayer));
+  end else begin
+    FormMain.FormClient.Client := TClientGUI(LocalClients.New(SSpectator));
+    FormMain.FormClient.Client.LocalServer := Server;
+    FormMain.FormClient.Client.ConnectType := ctLocal;
+    FormMain.FormClient.Client.Active := True;
+    FormMain.FormClient.AZoomAll.Execute;
+  end;
 end;