Sound: OpenAL: Expose some vars;

[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 b73b37f760bdc00f7ea75883425a92b4360ee711..38b9bb6109757f788eaf9864e4283b2d07a39385 100644 (file)
--- a/src/engine/e_sound_al.inc
+++ b/src/engine/e_sound_al.inc
@@ -93,6 +93,8 @@ var
   e_SoundsArray: array of TSoundRec = nil;
   e_ZeroPosition: array [0..2] of ALfloat = (0, 0, 0);
   e_ALError: ALenum = 0;
+  e_SoundFont: string = '';
+  e_MusicLerp: Boolean = True;
 
 implementation
 
@@ -815,7 +817,7 @@ end;
 
 function TBasicSound.GetPan(): Single;
 var
-  Pos: array [0..2] of ALfloat;
+  Pos: array [0..2] of ALfloat = (0, 0, 0);
 begin
   Result := 0.0;
   if InvalidSource() then