hedgewars/uMisc.pas
changeset 2327 4832b77ec958
parent 2290 bf87ca44782e
child 2372 f3e7a066c2b8
--- a/hedgewars/uMisc.pas	Wed Aug 19 13:49:47 2009 +0000
+++ b/hedgewars/uMisc.pas	Wed Aug 19 15:17:21 2009 +0000
@@ -162,7 +162,7 @@
     TargetPoint: TPoint = (X: NoPointX; Y: 0);
 
 implementation
-uses uConsole, uStore, uIO, Math, uRandom;
+uses uConsole, uStore, uIO, Math, uRandom, uSound;
 var KBnum: Longword = 0;
 {$IFDEF DEBUGFILE}
 var f: textfile;
@@ -522,6 +522,7 @@
 	size: Longword;
 	f: file;
 begin
+playSound(sndShutter, false, nil);
 head[6]:= cScreenWidth;
 head[7]:= cScreenHeight;