equal
deleted
inserted
replaced
288 end; |
288 end; |
289 |
289 |
290 procedure AddVoice(snd: TSound; voicepack: PVoicepack); |
290 procedure AddVoice(snd: TSound; voicepack: PVoicepack); |
291 var i : LongInt; |
291 var i : LongInt; |
292 begin |
292 begin |
|
293 if (not isSoundEnabled) or fastUntilLag then exit; |
293 i:= 0; |
294 i:= 0; |
294 while (i<8) and (VoiceList[i].snd <> sndNone) do inc(i); |
295 while (i<8) and (VoiceList[i].snd <> sndNone) do inc(i); |
295 |
296 |
296 VoiceList[i].snd:= snd; |
297 VoiceList[i].snd:= snd; |
297 VoiceList[i].voicepack:= voicepack; |
298 VoiceList[i].voicepack:= voicepack; |