hedgewars/uSound.pas
changeset 1098 5b599137aaa1
parent 1097 06b15817b8a0
child 1127 7e1b94a0fc1f
--- a/hedgewars/uSound.pas	Fri Jul 25 19:26:44 2008 +0000
+++ b/hedgewars/uSound.pas	Fri Jul 25 19:39:15 2008 +0000
@@ -28,7 +28,6 @@
 procedure PlayMusic;
 procedure StopSound(snd: TSound);
 function  ChangeVolume(voldelta: LongInt): LongInt;
-procedure InitPlaylistChunk(seed: LongWord);
 
 var MusicFN: shortstring = '';
 
@@ -60,7 +59,8 @@
 var i: TSound;
 begin
 for i:= Low(TSound) to High(TSound) do
-    Mix_FreeChunk(Soundz[i].id);
+	Mix_FreeChunk(Soundz[i].id);
+
 Mix_FreeMusic(Mus);
 Mix_CloseAudio
 end;
@@ -124,26 +124,4 @@
 ChangeVolume:= Volume * 100 div MIX_MAX_VOLUME
 end;
 
-procedure InitPlaylistChunk(seed: LongWord);
-{$IFDEF HAVE_MUSIC}
-var i, t, nt: Longword;
-{$ENDIF}
-begin
-{$IFDEF HAVE_MUSIC}
-for i:= 0 to Pred(cPlayListLength) do
-    playlistchain[i]:= 0;
-
-t:= 0;
-for i:= 0 to cPlayListLength - 2 do
-    begin
-    repeat
-      seed:= seed * 1664525 + 1013904223;
-      nt:= seed mod cPlayListLength;
-    until (t <> nt) and (playlistchain[nt] = 0);
-    playlistchain[t]:= nt;
-    t:= nt;
-    end
-{$ENDIF}
-end;
-
 end.