hedgewars/uSound.pas
changeset 2230 d6963f72d21a
parent 2222 2e98698b76aa
child 2232 3605547e7f4a
--- a/hedgewars/uSound.pas	Mon Jul 06 11:37:03 2009 +0000
+++ b/hedgewars/uSound.pas	Mon Jul 06 22:46:33 2009 +0000
@@ -27,7 +27,12 @@
 	{$linkframework Vorbis}
 {$ELSE}
 {$IFNDEF MSVC}
+	{$linklib openalbridge}
+{$IFNDEF WIN32}
 	{$linklib openal}
+{$ELSE}
+	{$linklib openal32}
+{$ENDIF}
 	{$linklib ogg}
 	{$linklib vorbis}
 	{$linklib vorbisfile}
@@ -43,7 +48,7 @@
 		chunks: array [TSound] of LongInt;
 		end;
 
-const OpenALBridge = 'openalbridge';
+const OpenALBridge = 'libopenalbridge';
 
 procedure InitSound;
 procedure ReleaseSound;
@@ -74,7 +79,7 @@
 
 implementation
 
-uses uMisc, uConsole, uStore;
+uses uMisc, uConsole;
 
 const chanTPU = 12;
 var	lastChan: array [TSound] of LongInt;
@@ -148,8 +153,6 @@
 				else
 					WriteLnToConsole(msgOK)
 				end;
-				
-AddProgress;
 end;
 
 procedure PlaySound(snd: TSound; infinite: boolean; voicepack: PVoicepack);