--- /dev/null
+/* Nitfol - z-machine interpreter using Glk for output.
+ Copyright (C) 1999 Evin Robertson
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
+
+ The author can be reached at nitfol@deja.com
+*/
+#include "nitfol.h"
+
+/* Link this in only if your glk supports sound */
+
+#ifdef GLK_MODULE_SOUND
+
+static schanid_t channel;
+
+void init_sound(void)
+{
+ channel = glk_schannel_create(0);
+}
+
+void kill_sound(void)
+{
+ glk_schannel_destroy(channel);
+}
+
+static void set_volume(zword zvolume)
+{
+ glui32 vol;
+ switch(zvolume) {
+ case 1: vol = 0x02000; break;
+ case 2: vol = 0x04000; break;
+ case 3: vol = 0x06000; break;
+ case 4: vol = 0x08000; break;
+ case 5: vol = 0x0a000; break;
+ case 6: vol = 0x0c000; break;
+ case 7: vol = 0x0e000; break;
+ case 8: vol = 0x10000; break;
+ case 255: vol = 0x20000; break;
+ default: n_show_error(E_SOUND, "illegal volume", zvolume);
+ }
+ glk_schannel_set_volume(channel, vol);
+}
+
+
+void check_sound(event_t moo) /* called from main event loop */
+{
+ if(moo.type == evtype_SoundNotify) {
+ zword dummylocals[16];
+ in_timer = TRUE;
+ mop_call(moo.val2, 0, dummylocals, -2); /* add a special stack frame */
+ decode(); /* start interpreting the routine */
+ in_timer = FALSE;
+ exit_decoder = FALSE;
+ }
+}
+
+
+void op_sound_effect(void)
+{
+ zword number = operand[0], effect = operand[1];
+ zword volume = operand[2], routine = operand[3];
+ glui32 repeats;
+
+ if(!glk_gestalt(gestalt_Sound, 0))
+ return;
+
+ if(numoperands < 1)
+ number = 1;
+ if(numoperands < 2)
+ effect = 2;
+ if(numoperands < 3)
+ volume = 8;
+ if(numoperands < 4)
+ routine = 0;
+
+ repeats = (volume >> 8) & 0xff;
+ if(repeats == 0xff)
+ repeats = 0xffffffff;
+ else
+ repeats++;
+
+ volume &= 0xff;
+
+ switch(effect) {
+ case 1:
+ glk_sound_load_hint(number, 1);
+ break;
+ case 2:
+ glk_schannel_play_ext(channel, number, repeats, routine);
+ set_volume(volume);
+ break;
+ case 3:
+ glk_schannel_stop(channel);
+ break;
+ case 4:
+ glk_sound_load_hint(number, 0);
+ }
+
+}
+
+#endif