hedgewars/uSound.pas
changeset 14075 df0e86b2630f
parent 14068 859a41b137d4
child 14366 2ab312c47dc3
equal deleted inserted replaced
14074:a3506c6a4cbe 14075:df0e86b2630f
   552 function PlaySoundV(snd: TSound; voicepack: PVoicepack; keepPlaying, ignoreMask, soundAsMusic: boolean): boolean;
   552 function PlaySoundV(snd: TSound; voicepack: PVoicepack; keepPlaying, ignoreMask, soundAsMusic: boolean): boolean;
   553 var s: shortstring;
   553 var s: shortstring;
   554 tempSnd: TSound;
   554 tempSnd: TSound;
   555 rwops: PSDL_RWops;
   555 rwops: PSDL_RWops;
   556 begin
   556 begin
   557     s:= cPathz[Soundz[snd].Path] + '/' + voicepack^.name + '/' + Soundz[snd].FileName;
       
   558     PlaySoundV:= false;
   557     PlaySoundV:= false;
   559     if ((not isSoundEnabled) and (not (soundAsMusic and isMusicEnabled))) or fastUntilLag then
   558     if ((not isSoundEnabled) and (not (soundAsMusic and isMusicEnabled))) or fastUntilLag then
   560         exit;
   559         exit;
   561 
   560 
   562     if keepPlaying and (lastChan[snd] <> -1) and (Mix_Playing(lastChan[snd]) <> 0) then
   561     if keepPlaying and (lastChan[snd] <> -1) and (Mix_Playing(lastChan[snd]) <> 0) then