X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=interpreters%2Ffrotz%2Fsound.c;fp=interpreters%2Ffrotz%2Fsound.c;h=9c4d63ad5d14a427c795e07ea6ad4948badf8172;hb=75009f8f40bbb580194e1722db76f4644bf18641;hp=26d38353aa5c2c15fae75704d0f76c82d6703251;hpb=89081782541e85e079f64839ffb26b4e74273eb7;p=projects%2Fchimara%2Fchimara.git

diff --git a/interpreters/frotz/sound.c b/interpreters/frotz/sound.c
index 26d3835..9c4d63a 100644
--- 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)