--- 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);