hedgewars/uSound.pas
changeset 1562 c0eea030347b
parent 1225 f882a92ef872
child 1654 9cfa6f23e767
--- a/hedgewars/uSound.pas	Fri Jan 02 14:22:55 2009 +0000
+++ b/hedgewars/uSound.pas	Fri Jan 02 14:46:35 2009 +0000
@@ -83,7 +83,7 @@
 procedure PlaySound(snd: TSound; infinite: boolean);
 var loops: LongInt;
 begin
-if not isSoundEnabled then exit;
+if (not isSoundEnabled) or fastUntilLag then exit;
 if infinite then loops:= -1 else loops:= 0;
 Soundz[snd].lastChan:= Mix_PlayChannelTimed(-1, Soundz[snd].id, loops, -1)
 end;