hedgewars/uSound.pas
changeset 6363 d812246272e8
parent 6362 ceacd1b61833
child 6367 a7fbf18b2d55
equal deleted inserted replaced
6362:ceacd1b61833 6363:d812246272e8
   305 var i : LongInt;
   305 var i : LongInt;
   306 begin
   306 begin
   307     if (not isSoundEnabled) or fastUntilLag or ((LastVoice.snd = snd) and  (LastVoice.voicepack = voicepack)) then exit;
   307     if (not isSoundEnabled) or fastUntilLag or ((LastVoice.snd = snd) and  (LastVoice.voicepack = voicepack)) then exit;
   308     if (snd = sndVictory) or (snd = sndFlawless) then
   308     if (snd = sndVictory) or (snd = sndFlawless) then
   309         begin
   309         begin
   310         for i:= 1 to Succ(chanTPU) do StopSound(i);
   310         Mix_HaltChannel(-1);
   311         for i:= 0 to 7 do VoiceList[i].snd:= sndNone;
   311         for i:= 0 to 7 do VoiceList[i].snd:= sndNone;
   312         LastVoice.snd:= sndNone;
   312         LastVoice.snd:= sndNone;
   313         end;
   313         end;
   314 
   314 
   315     i:= 0;
   315     i:= 0;