hedgewars/uSound.pas
branch0.9.17
changeset 6372 b392132a588c
parent 6367 a7fbf18b2d55
child 6415 af2047bb4f70
equal deleted inserted replaced
6371:c6f73d8e87e2 6372:b392132a588c
   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         Mix_HaltChannel(-1);
   310         Mix_FadeOutChannel(-1, 800);
   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;