--- a/hedgewars/ArgParsers.pas	Mon Jun 16 19:07:11 2014 +0200
+++ b/hedgewars/ArgParsers.pas	Mon Jun 16 23:46:22 2014 +0200
@@ -270,7 +270,7 @@
         {--no-hogtag}           32 : cTagsMask := cTagsMask and (not htName);
         {--no-healthtag}        33 : cTagsMask := cTagsMask and (not htHealth);
         {--translucent-tags}    34 : cTagsMask := cTagsMask or htTransparent;
-        {--lua-test}            35 : begin cTestLua := true; cScriptName := getstringParameter(arg, paramIndex, parseParameter); WriteLn(stdout, 'Lua test file specified: ' + cScriptName);end;
+        {--lua-test}            35 : begin cTestLua := true; SetSound(false); cScriptName := getstringParameter(arg, paramIndex, parseParameter); WriteLn(stdout, 'Lua test file specified: ' + cScriptName);end;
     else
         begin
         //Assume the first "non parameter" is the replay file, anything else is invalid

--- a/hedgewars/uGame.pas	Mon Jun 16 19:07:11 2014 +0200
+++ b/hedgewars/uGame.pas	Mon Jun 16 23:46:22 2014 +0200
@@ -64,6 +64,10 @@
         else if cOnlyStats then
             Lag:= High(LongInt)
     end;
+
+if cTestLua then
+    Lag:= High(LongInt);
+
 inc(SoundTimerTicks, Lag);
 if SoundTimerTicks >= 50 then
     begin