hedgewars/uSound.pas
changeset 8165 9527839ad58b
parent 8145 6408c0ba4ba1
child 8168 645ee0e201a2
equal deleted inserted replaced
8163:13c6d1feae99 8165:9527839ad58b
   439 var i : LongInt;
   439 var i : LongInt;
   440 begin
   440 begin
   441     if (not isSoundEnabled) or fastUntilLag or ((LastVoice.snd <> sndNone) and (lastChan[LastVoice.snd] <> -1) and (Mix_Playing(lastChan[LastVoice.snd]) <> 0)) then
   441     if (not isSoundEnabled) or fastUntilLag or ((LastVoice.snd <> sndNone) and (lastChan[LastVoice.snd] <> -1) and (Mix_Playing(lastChan[LastVoice.snd]) <> 0)) then
   442         exit;
   442         exit;
   443     i:= 0;
   443     i:= 0;
   444     while (i<8) and (VoiceList[i].snd = sndNone) do
   444     while (i<7) and (VoiceList[i].snd = sndNone) do
   445         inc(i);
   445         inc(i);
   446     
   446     
   447     if (VoiceList[i].snd <> sndNone) then
   447     if (VoiceList[i].snd <> sndNone) then
   448         begin
   448         begin
   449         LastVoice.snd:= VoiceList[i].snd;
   449         LastVoice.snd:= VoiceList[i].snd;