hedgewars/uSound.pas
changeset 2633 9eb131794a6e
parent 2630 079ef82eac75
child 2647 0e1208e92dfe
equal deleted inserted replaced
2632:0c1d3c12ded9 2633:9eb131794a6e
   120 		for i:= Low(TSound) to High(TSound) do
   120 		for i:= Low(TSound) to High(TSound) do
   121 			if Soundz[i].Path = ptVoices then
   121 			if Soundz[i].Path = ptVoices then
   122 				begin
   122 				begin
   123 				s:= Pathz[Soundz[i].Path] + '/' + voicepacks[t].name + '/' + Soundz[i].FileName;
   123 				s:= Pathz[Soundz[i].Path] + '/' + voicepacks[t].name + '/' + Soundz[i].FileName;
   124 				WriteToConsole(msgLoading + s + ' ');
   124 				WriteToConsole(msgLoading + s + ' ');
   125 			//	{$IFNDEF IPHONEOS}
       
   126 				//broken for unknown reasons (most likely poor SDL_Mixer)
       
   127 				voicepacks[t].chunks[i]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1);
   125 				voicepacks[t].chunks[i]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1);
   128 			//	{$ENDIF}
       
   129 				if voicepacks[t].chunks[i] = nil then
   126 				if voicepacks[t].chunks[i] = nil then
   130 					WriteLnToConsole(msgFailed)
   127 					WriteLnToConsole(msgFailed)
   131 				else
   128 				else
   132 					WriteLnToConsole(msgOK)
   129 					WriteLnToConsole(msgOK)
   133 				end;
   130 				end;