hedgewars/uSound.pas
changeset 12612 2ffdee246adc
parent 12194 ac9cf0cf40ee
child 12618 2d68c113fc8d
equal deleted inserted replaced
12611:fb0734d5dd87 12612:2ffdee246adc
   322 var success: boolean;
   322 var success: boolean;
   323 begin
   323 begin
   324     if not (isSoundEnabled or isMusicEnabled) then
   324     if not (isSoundEnabled or isMusicEnabled) then
   325         exit;
   325         exit;
   326     WriteToConsole('Init sound...');
   326     WriteToConsole('Init sound...');
   327     success:= SDL_InitSubSystem(SDL_INIT_AUDIO) >= 0;
   327     success:= SDL_InitSubSystem(SDL_INIT_AUDIO) = 0;
   328 
   328 
   329     if success then
   329     if success then
       
   330         begin
       
   331         WriteLnToConsole(msgOK);
       
   332         WriteToConsole('Open audio...');
   330         success:= Mix_OpenAudio(44100, MIX_DEFAULT_FORMAT, channels, 1024) = 0;
   333         success:= Mix_OpenAudio(44100, MIX_DEFAULT_FORMAT, channels, 1024) = 0;
       
   334         end;
   331 
   335 
   332     if success then
   336     if success then
   333         WriteLnToConsole(msgOK)
   337         WriteLnToConsole(msgOK)
   334     else
   338     else
   335     begin
   339     begin