Sound: OpenAL: Streams can now be non-looping; XMP tweaks

[d2df-sdl.git] / src / engine / e_sound_al.inc

diff --git a/src/engine/e_sound_al.inc b/src/engine/e_sound_al.inc
index dfe5919ea8ef52f374a57939a80ecc6ce474ca7e..312b701bed68abae6a4cc1c31cfffd0cd2fed1bb 100644 (file)
--- a/src/engine/e_sound_al.inc
+++ b/src/engine/e_sound_al.inc
@@ -329,6 +329,7 @@ begin
   end
   else
   begin
+    Loader.Looping := e_SoundsArray[find_id].Loops;
     e_SoundsArray[find_id].alBuffer := 0;
     e_SoundsArray[find_id].Loader := Loader;
   end;
@@ -402,6 +403,7 @@ begin
   end
   else
   begin
+    Loader.Looping := e_SoundsArray[find_id].Loops;
     e_SoundsArray[find_id].alBuffer := 0;
     e_SoundsArray[find_id].Loader := Loader;
   end;