diff -r 0e4e0db79e2a -r b9ca1bfca24f hedgewars/uSound.pas
--- a/hedgewars/uSound.pas	Tue Jan 26 04:13:37 2010 +0000
+++ b/hedgewars/uSound.pas	Tue Jan 26 21:55:51 2010 +0000
@@ -28,6 +28,11 @@
 		chunks: array [TSound] of PMixChunk;
 		end;
 
+var MusicFN: shortstring;
+
+procedure init_uSound;
+procedure free_uSound;
+
 procedure InitSound;
 procedure ReleaseSound;
 procedure SoundLoad;
@@ -38,20 +43,18 @@
 procedure ResumeMusic;
 procedure StopSound(snd: TSound);
 function  ChangeVolume(voldelta: LongInt): LongInt;
-
 function  AskForVoicepack(name: shortstring): Pointer;
 
-var MusicFN: shortstring = '';
 
 implementation
 uses uMisc, uConsole;
 
 const chanTPU = 12;
 var Volume: LongInt;
-	lastChan: array [TSound] of LongInt;
-	voicepacks: array[0..cMaxTeams] of TVoicepack;
-	defVoicepack: PVoicepack;
-	Mus: PMixMusic = nil;
+    lastChan: array [TSound] of LongInt;
+    voicepacks: array[0..cMaxTeams] of TVoicepack;
+    defVoicepack: PVoicepack;
+    Mus: PMixMusic = nil;
 
 function  AskForVoicepack(name: shortstring): Pointer;
 var i: Longword;
@@ -226,5 +229,15 @@
 Mix_ResumeMusic(Mus);
 end;
 
+procedure init_uSound;
+begin
+	MusicFN:='';
+end;
+
+procedure free_uSound;
+begin
+
+end;
+
 end.