hedgewars/hwengine.pas
changeset 4359 83ef50815535
parent 4357 a1fcfc341a52
child 4373 fe0e3903bb9e
--- a/hedgewars/hwengine.pas	Wed Nov 17 17:22:36 2010 +0300
+++ b/hedgewars/hwengine.pas	Wed Nov 17 17:45:55 2010 +0300
@@ -31,7 +31,7 @@
 
 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,
-    sysutils, uTypes;
+     sysutils, uTypes, uVariables;
 
 var isTerminated: boolean = false;
     alsoShutdownFrontend: boolean = false;
@@ -112,6 +112,7 @@
         flagMakeCapture:= false;
         s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
         WriteLnToConsole('Saving ' + s + '...');
+        playSound(sndShutter);
         MakeScreenshot(s);
         //SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(Str2PChar(s), 'wb'), 1)
     end;
@@ -319,6 +320,7 @@
 
     // uConsts does not need initialization as they are all consts
     uMisc.initModule;
+    uVariables.initModule;
     uConsole.initModule;    // MUST happen after uMisc
 
     uLand.initModule;
@@ -387,6 +389,7 @@
     uLand.freeModule;
 
     uConsole.freeModule;
+    uVariables.freeModule;
     uMisc.freeModule;           // uMisc closes the debug log.
 end;