hedgewars/hwengine.pas
changeset 5174 f5294509783e
parent 5167 7b515d0945b1
child 5217 5612e01252ce
--- a/hedgewars/hwengine.pas	Mon Apr 25 02:25:25 2011 +0200
+++ b/hedgewars/hwengine.pas	Mon Apr 25 06:38:59 2011 +0200
@@ -30,7 +30,7 @@
 {$ENDIF}
 
 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uKeys, uSound,
-     uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions, uMobile,
+     uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions,
      sysutils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted;
 
 {$IFDEF HWLIBRARY}
@@ -256,10 +256,9 @@
     ShowMainWindow();
 {$ENDIF}
 
-    AddProgress();
-
     ControllerInit(); // has to happen before InitKbdKeyTable to map keys
     InitKbdKeyTable();
+    AddProgress();
 
     LoadLocale(Pathz[ptLocale] + '/en.txt');  // Do an initial load with english
     if (Length(cLocaleFName) > 6) then cLocale := Copy(cLocaleFName,1,5)
@@ -281,10 +280,7 @@
         SendIPCAndWaitReply('C');        // ask for game config
         end
     else
-        begin
         LoadRecordFromFile(recordFileName);
-        uMobile.SaveBeganSynching();
-        end;
 
     ScriptOnGameInit;