hedgewars/uSound.pas
changeset 2672 0f1403bf267a
parent 2671 7e0f88013fe8
child 2674 2fce032f2f95
--- a/hedgewars/uSound.pas	Sun Jan 03 15:40:41 2010 +0000
+++ b/hedgewars/uSound.pas	Sun Jan 03 17:23:40 2010 +0000
@@ -113,10 +113,12 @@
 begin
 	if not isSoundEnabled then exit;
 
+{$IFDEF SDL_MIXER_NEWER}
 	WriteToConsole('Init SDL_mixer... ');
 	SDLTry(Mix_Init(MIX_INIT_OGG) <> 0, true);
 	WriteLnToConsole(msgOK);
-	
+{$ENDIF}
+
 	defVoicepack:= AskForVoicepack('Default');
 
 for i:= Low(TSound) to High(TSound) do
@@ -142,8 +144,9 @@
 				else
 					WriteLnToConsole(msgOK)
 				end;
-	
+{$IFDEF SDL_MIXER_NEWER}
 	Mix_Quit();
+{$ENDIF}	
 end;
 
 procedure PlaySound(snd: TSound; infinite: boolean; voicepack: PVoicepack);