equal
deleted
inserted
replaced
298 end; |
298 end; |
299 |
299 |
300 procedure PlayNextVoice; |
300 procedure PlayNextVoice; |
301 var i : LongInt; |
301 var i : LongInt; |
302 begin |
302 begin |
303 if (LastVoice.snd <> sndNone) and (lastChan[LastVoice.snd] <> -1) and (Mix_Playing(lastChan[LastVoice.snd]) <> 0) then exit; |
303 if (not isSoundEnabled) or fastUntilLag or (LastVoice.snd = sndNone) or (lastChan[LastVoice.snd] = -1) or (Mix_Playing(lastChan[LastVoice.snd]) = 0) then exit; |
304 i:= 0; |
304 i:= 0; |
305 while (i<8) and (VoiceList[i].snd = sndNone) do inc(i); |
305 while (i<8) and (VoiceList[i].snd = sndNone) do inc(i); |
306 |
306 |
307 if (VoiceList[i].snd <> sndNone) then |
307 if (VoiceList[i].snd <> sndNone) then |
308 begin |
308 begin |