hedgewars/uSound.pas
changeset 5673 85336f377479
parent 5653 fa58dea8a9ad
child 5725 e27100a0e2d0
child 5921 43cb3139cebe
--- a/hedgewars/uSound.pas	Tue Aug 23 09:12:45 2011 -0400
+++ b/hedgewars/uSound.pas	Tue Aug 23 09:32:59 2011 -0400
@@ -301,7 +301,7 @@
 procedure PlayNextVoice;
 var i : LongInt;
 begin
-    if (not isSoundEnabled) or fastUntilLag or (LastVoice.snd = sndNone) or (lastChan[LastVoice.snd] = -1) or (Mix_Playing(lastChan[LastVoice.snd]) = 0) then exit;
+    if (not isSoundEnabled) or fastUntilLag or ((LastVoice.snd <> sndNone) and (lastChan[LastVoice.snd] <> -1) and (Mix_Playing(lastChan[LastVoice.snd]) <> 0)) then exit;
     i:= 0;
     while (i<8) and (VoiceList[i].snd = sndNone) do inc(i);