hedgewars/uSound.pas
changeset 6367 a7fbf18b2d55
parent 6363 d812246272e8
child 6415 af2047bb4f70
equal deleted inserted replaced
6365:c992df555afb 6367:a7fbf18b2d55
   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;