hedgewars/uSound.pas
changeset 2171 8208946331ba
parent 1777 88674c291331
child 2191 20c62f787a4d
equal deleted inserted replaced
2170:aa77f2a6b4f1 2171:8208946331ba
   119 		for i:= Low(TSound) to High(TSound) do
   119 		for i:= Low(TSound) to High(TSound) do
   120 			if Soundz[i].Path = ptVoices then
   120 			if Soundz[i].Path = ptVoices then
   121 				begin
   121 				begin
   122 				s:= Pathz[Soundz[i].Path] + '/' + voicepacks[t].name + '/' + Soundz[i].FileName;
   122 				s:= Pathz[Soundz[i].Path] + '/' + voicepacks[t].name + '/' + Soundz[i].FileName;
   123 				WriteToConsole(msgLoading + s + ' ');
   123 				WriteToConsole(msgLoading + s + ' ');
       
   124 				{$IFNDEF IPHONEOS}
       
   125 				//broken for unknown reasons (most likely poor SDL_Mixer)
   124 				voicepacks[t].chunks[i]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1);
   126 				voicepacks[t].chunks[i]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1);
       
   127 				{$ENDIF}
   125 				if voicepacks[t].chunks[i] = nil then
   128 				if voicepacks[t].chunks[i] = nil then
   126 					WriteLnToConsole(msgFailed)
   129 					WriteLnToConsole(msgFailed)
   127 				else
   130 				else
   128 					WriteLnToConsole(msgOK)
   131 					WriteLnToConsole(msgOK)
   129 				end;
   132 				end;