equal
deleted
inserted
replaced
433 VoiceList[i].snd:= sndNone; |
433 VoiceList[i].snd:= sndNone; |
434 LastVoice.snd:= sndNone; |
434 LastVoice.snd:= sndNone; |
435 end; |
435 end; |
436 |
436 |
437 i:= 0; |
437 i:= 0; |
438 while (i<8) and (VoiceList[i].snd <> sndNone) do |
438 while (i <= High(VoiceList)) and (VoiceList[i].snd <> sndNone) do |
439 inc(i); |
439 inc(i); |
440 |
440 |
441 // skip playing same sound for same hog twice |
441 // skip playing same sound for same hog twice |
442 if (i>0) and (VoiceList[i-1].snd = snd) and (VoiceList[i-1].voicepack = voicepack) then |
442 if (i>0) and (VoiceList[i-1].snd = snd) and (VoiceList[i-1].voicepack = voicepack) then |
443 exit; |
443 exit; |
444 VoiceList[i].snd:= snd; |
444 if(i <= High(VoiceList)) then |
445 VoiceList[i].voicepack:= voicepack; |
445 begin |
|
446 VoiceList[i].snd:= snd; |
|
447 VoiceList[i].voicepack:= voicepack; |
|
448 end |
446 end; |
449 end; |
447 |
450 |
448 procedure PlayNextVoice; |
451 procedure PlayNextVoice; |
449 var i : LongInt; |
452 var i : LongInt; |
450 begin |
453 begin |