hedgewars/uSound.pas
changeset 2744 803d0142594e
parent 2716 b9ca1bfca24f
child 2745 11fce231f24a
--- a/hedgewars/uSound.pas	Wed Feb 03 23:36:42 2010 +0000
+++ b/hedgewars/uSound.pas	Thu Feb 04 14:35:31 2010 +0000
@@ -156,6 +156,7 @@
 var loops: LongInt;
 begin
 if (not isSoundEnabled) or fastUntilLag then exit;
+if infinite and (lastChan[snd] <> -1) then exit;
 if infinite then loops:= -1 else loops:= 0;
 
 if (voicepack <> nil) and (voicepack^.chunks[snd] <> nil) then