hedgewars/uSound.pas
changeset 1657 dde8f60d3e07
parent 1656 209cf0e2fc36
child 1669 b709e061577e
equal deleted inserted replaced
1656:209cf0e2fc36 1657:dde8f60d3e07
   112 SetVoicePack(defVoicepack);
   112 SetVoicePack(defVoicepack);
   113 
   113 
   114 for i:= Low(TSound) to High(TSound) do
   114 for i:= Low(TSound) to High(TSound) do
   115 	if Soundz[i].Path <> ptVoices then
   115 	if Soundz[i].Path <> ptVoices then
   116 		begin
   116 		begin
   117 		s:= Pathz[Soundz[i].Path] + '/Default/' + Soundz[i].FileName;
   117 		s:= Pathz[Soundz[i].Path] + '/' + Soundz[i].FileName;
   118 		WriteToConsole(msgLoading + s + ' ');
   118 		WriteToConsole(msgLoading + s + ' ');
   119 		defVoicepack^.chunks[i]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1);
   119 		defVoicepack^.chunks[i]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1);
   120 		TryDo(defVoicepack^.chunks[i] <> nil, msgFailed, true);
   120 		TryDo(defVoicepack^.chunks[i] <> nil, msgFailed, true);
   121 		WriteLnToConsole(msgOK);
   121 		WriteLnToConsole(msgOK);
   122 		end;
   122 		end;