Changeset 77 for trunk/UCore.pas

Timestamp:

Oct 5, 2014, 7:13:38 PM (10 years ago)

Author:

chronos

Message:

• Added: Auto save game to file option in settings.

File:

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

trunk/UCore.pas

@@ -49 +49 @@
     procedure DoOnWin(Player: TPlayer);
     procedure Delay(Time: Integer);
+    procedure GameNewTurnExecute(Sender: TObject);
+    procedure AutoSave;
   public
     Game: TGame;
@@ -55 +57 @@
     LastMapFileName: string;
     AnimationSpeed: Integer;
+    AutoSaveEnabled: Boolean;
     procedure UpdateActions;
     procedure Init;
@@ -129 +132 @@
 end;
 
+procedure TCore.GameNewTurnExecute(Sender: TObject);
+begin
+  if AutoSaveEnabled then AutoSave;
+end;
+
+procedure TCore.AutoSave;
+begin
+  Game.SaveToFile(GetAppConfigDir(False) + 'AutoSave.xtg');
+  GetUserDir;
+end;
+
 procedure TCore.UpdateActions;
 begin
@@ -249 +263 @@
   Game.OnMove := DoOnMove;
   Game.OnWin := DoOnWin;
+  Game.OnNewTurn := GameNewTurnExecute;
 end;
 
@@ -258 +273 @@
   XMLConfig1.SetValue('DevelMode', DevelMode);
   XMLConfig1.SetValue('AnimationSpeed', AnimationSpeed);
+  XMLConfig1.SetValue('AutoSave', AutoSaveEnabled);
   FreeAndNil(Game);
 end;
@@ -269 +285 @@
   DevelMode := XMLConfig1.GetValue('DevelMode', false);
   AnimationSpeed := XMLConfig1.GetValue('AnimationSpeed', 50);
+  AutoSaveEnabled := XMLConfig1.GetValue('AutoSave', True);
   CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));
   for I := 0 to Game.Players.Count - 1 do