hedgewars/uSound.pas
changeset 13865 9d3ebcac7d90
parent 13851 f01798038c2e
child 13975 350adfa0e896
equal deleted inserted replaced
13864:f68bb13f7bc7 13865:9d3ebcac7d90
   637         if (defVoicepack^.chunks[snd] = nil) and (Soundz[snd].Path <> ptVoices) and (Soundz[snd].FileName <> '') then
   637         if (defVoicepack^.chunks[snd] = nil) and (Soundz[snd].Path <> ptVoices) and (Soundz[snd].FileName <> '') then
   638             begin
   638             begin
   639             s:= cPathz[Soundz[snd].Path] + '/' + Soundz[snd].FileName;
   639             s:= cPathz[Soundz[snd].Path] + '/' + Soundz[snd].FileName;
   640             WriteToConsole(msgLoading + s + ' ');
   640             WriteToConsole(msgLoading + s + ' ');
   641             defVoicepack^.chunks[snd]:= Mix_LoadWAV_RW(rwopsOpenRead(s), 1);
   641             defVoicepack^.chunks[snd]:= Mix_LoadWAV_RW(rwopsOpenRead(s), 1);
   642             if SDLCheck(defVoicepack^.chunks[snd] <> nil, 'Mix_LoadWAV_RW', true) then exit;
   642             if SDLCheck(defVoicepack^.chunks[snd] <> nil, 'Mix_LoadWAV_RW', true) then exit(-1);
   643             WriteLnToConsole(msgOK);
   643             WriteLnToConsole(msgOK);
   644             end;
   644             end;
   645         if fadems > 0 then
   645         if fadems > 0 then
   646             LoopSoundV:= Mix_FadeInChannelTimed(-1, defVoicepack^.chunks[snd], -1, fadems, -1)
   646             LoopSoundV:= Mix_FadeInChannelTimed(-1, defVoicepack^.chunks[snd], -1, fadems, -1)
   647         else
   647         else