Updated interpreters

[projects/chimara/chimara.git] / interpreters / frotz / sound.c

diff --git a/interpreters/frotz/sound.c b/interpreters/frotz/sound.c
index 26d38353aa5c2c15fae75704d0f76c82d6703251..9c4d63ad5d14a427c795e07ea6ad4948badf8172 100644 (file)
--- a/interpreters/frotz/sound.c
+++ b/interpreters/frotz/sound.c
@@ -31,8 +31,6 @@
 
 extern int direct_call (zword);
 
-static zword routine = 0;
-
 static int next_sample = 0;
 static int next_volume = 0;
 
@@ -75,7 +73,6 @@ static void start_sample (int number, int volume, int repeats, zword eos)
 
     os_start_sample (number, volume, repeats, eos);
 
-    routine = eos;
     playing = TRUE;
 
 }/* start_sample */
@@ -109,7 +106,7 @@ static void start_next_sample (void)
  *
  */
 
-void end_of_sound (void)
+void end_of_sound (zword routine)
 {
 
 #if defined(DJGPP) && defined(SOUND_SUPPORT)
@@ -148,9 +145,8 @@ void z_sound_effect (void)
     zword effect = zargs[1];
     zword volume = zargs[2];
 
-    /* By default play sound 1 at volume 8 */
     if (zargc < 1)
-       number = 1;
+       number = 0;
     if (zargc < 2)
        effect = EFFECT_PLAY;
     if (zargc < 3)