Changeset 274 for trunk/UCore.pas

Timestamp:

Feb 3, 2019, 8:32:20 PM (6 years ago)

Author:

chronos

Message:

• Added: Keep information about available unit moves during turn.
• Added: Allow to move units instantly during turn.
• Added: Game system parameter to play without possibility to merge/split units.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -106 +106 @@
     procedure LoadConfig;
     procedure SaveConfig;
+    procedure SaveConfigAll;
     procedure Spectate(Player: TPlayer);
     procedure UpdateInterface;
@@ -225 +226 @@
 end;
 
+procedure TCore.SaveConfigAll;
+begin
+  GameSettings.SaveConfig(XMLConfig1, 'Game');
+  Server.SaveConfig(XMLConfig1, 'Server');
+  ServerList.SaveConfig(XmlConfig1, 'ServerList');
+  SaveConfig;
+  XMLConfig1.Flush;
+end;
+
 procedure TCore.CommandLineParams;
 var
@@ -348 +358 @@
       GameSettings.PostConfig;
       Game.Assign(GameSettings);
+      SaveConfigAll;
       StartNewGame;
       GameLoaded := False;
@@ -758 +769 @@
 procedure TCore.Done;
 begin
-  GameSettings.SaveConfig(XMLConfig1, 'Game');
-  Server.SaveConfig(XMLConfig1, 'Server');
-  ServerList.SaveConfig(XmlConfig1, 'ServerList');
-  SaveConfig;
-  XMLConfig1.Flush;
+  SaveConfigAll;
 end;