diff options
author | Torne Wuff <torne@wolfpuppy.org.uk> | 2010-01-17 22:15:13 +0000 |
---|---|---|
committer | Torne Wuff <torne@wolfpuppy.org.uk> | 2010-01-17 22:15:13 +0000 |
commit | 7f28c94eda576e3f972fc05468188986f2e45885 (patch) | |
tree | e03b94613028d16855a5d3df0f4853e077931214 /apps/plugins/frotz/sound.c | |
parent | 563f2602f471208cb8544a36539a79dcceaad643 (diff) | |
download | rockbox-7f28c94eda576e3f972fc05468188986f2e45885.tar.gz rockbox-7f28c94eda576e3f972fc05468188986f2e45885.zip |
New plugin: frotz, a Z-machine interpreter, for playing interactive fiction.
The interpreter more or less passes all the tests in the z-machine test suite.
It should build for every target except Archos (for which it is disabled).
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@24267 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'apps/plugins/frotz/sound.c')
-rw-r--r-- | apps/plugins/frotz/sound.c | 204 |
1 files changed, 204 insertions, 0 deletions
diff --git a/apps/plugins/frotz/sound.c b/apps/plugins/frotz/sound.c new file mode 100644 index 0000000000..ea0e3570e6 --- /dev/null +++ b/apps/plugins/frotz/sound.c | |||
@@ -0,0 +1,204 @@ | |||
1 | /* sound.c - Sound effect function | ||
2 | * Copyright (c) 1995-1997 Stefan Jokisch | ||
3 | * | ||
4 | * This file is part of Frotz. | ||
5 | * | ||
6 | * Frotz is free software; you can redistribute it and/or modify | ||
7 | * it under the terms of the GNU General Public License as published by | ||
8 | * the Free Software Foundation; either version 2 of the License, or | ||
9 | * (at your option) any later version. | ||
10 | * | ||
11 | * Frotz is distributed in the hope that it will be useful, | ||
12 | * but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
13 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
14 | * GNU General Public License for more details. | ||
15 | * | ||
16 | * You should have received a copy of the GNU General Public License | ||
17 | * along with this program; if not, write to the Free Software | ||
18 | * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA | ||
19 | */ | ||
20 | |||
21 | #include "frotz.h" | ||
22 | |||
23 | #ifdef DJGPP | ||
24 | #include "djfrotz.h" | ||
25 | #endif | ||
26 | |||
27 | #define EFFECT_PREPARE 1 | ||
28 | #define EFFECT_PLAY 2 | ||
29 | #define EFFECT_STOP 3 | ||
30 | #define EFFECT_FINISH_WITH 4 | ||
31 | |||
32 | extern int direct_call (zword); | ||
33 | |||
34 | static zword routine = 0; | ||
35 | |||
36 | static int next_sample = 0; | ||
37 | static int next_volume = 0; | ||
38 | |||
39 | static bool locked = FALSE; | ||
40 | static bool playing = FALSE; | ||
41 | |||
42 | /* | ||
43 | * init_sound | ||
44 | * | ||
45 | * Initialize sound variables. | ||
46 | * | ||
47 | */ | ||
48 | |||
49 | void init_sound (void) | ||
50 | { | ||
51 | locked = FALSE; | ||
52 | playing = FALSE; | ||
53 | } /* init_sound */ | ||
54 | |||
55 | |||
56 | /* | ||
57 | * start_sample | ||
58 | * | ||
59 | * Call the IO interface to play a sample. | ||
60 | * | ||
61 | */ | ||
62 | |||
63 | static void start_sample (int number, int volume, int repeats, zword eos) | ||
64 | { | ||
65 | |||
66 | static zbyte lh_repeats[] = { | ||
67 | 0x00, 0x00, 0x00, 0x01, 0xff, | ||
68 | 0x00, 0x01, 0x01, 0x01, 0x01, | ||
69 | 0xff, 0x01, 0x01, 0xff, 0x00, | ||
70 | 0xff, 0xff, 0xff, 0xff, 0xff | ||
71 | }; | ||
72 | |||
73 | if (story_id == LURKING_HORROR) | ||
74 | repeats = lh_repeats[number]; | ||
75 | |||
76 | os_start_sample (number, volume, repeats, eos); | ||
77 | |||
78 | routine = eos; | ||
79 | playing = TRUE; | ||
80 | |||
81 | }/* start_sample */ | ||
82 | |||
83 | /* | ||
84 | * start_next_sample | ||
85 | * | ||
86 | * Play a sample that has been delayed until the previous sound effect has | ||
87 | * finished. This is necessary for two samples in The Lurking Horror that | ||
88 | * immediately follow other samples. | ||
89 | * | ||
90 | */ | ||
91 | |||
92 | static void start_next_sample (void) | ||
93 | { | ||
94 | |||
95 | if (next_sample != 0) | ||
96 | start_sample (next_sample, next_volume, 0, 0); | ||
97 | |||
98 | next_sample = 0; | ||
99 | next_volume = 0; | ||
100 | |||
101 | }/* start_next_sample */ | ||
102 | |||
103 | /* | ||
104 | * end_of_sound | ||
105 | * | ||
106 | * Call the Z-code routine which was given as the last parameter of | ||
107 | * a sound_effect call. This function may be called from a hardware | ||
108 | * interrupt (which requires extremely careful programming). | ||
109 | * | ||
110 | */ | ||
111 | |||
112 | void end_of_sound (void) | ||
113 | { | ||
114 | |||
115 | #if defined(DJGPP) && defined(SOUND_SUPPORT) | ||
116 | end_of_sound_flag = 0; | ||
117 | #endif | ||
118 | |||
119 | playing = FALSE; | ||
120 | |||
121 | if (!locked) { | ||
122 | |||
123 | if (story_id == LURKING_HORROR) | ||
124 | start_next_sample (); | ||
125 | |||
126 | direct_call (routine); | ||
127 | |||
128 | } | ||
129 | |||
130 | }/* end_of_sound */ | ||
131 | |||
132 | /* | ||
133 | * z_sound_effect, load / play / stop / discard a sound effect. | ||
134 | * | ||
135 | * zargs[0] = number of bleep (1 or 2) or sample | ||
136 | * zargs[1] = operation to perform (samples only) | ||
137 | * zargs[2] = repeats and volume (play sample only) | ||
138 | * zargs[3] = end-of-sound routine (play sample only, optional) | ||
139 | * | ||
140 | * Note: Volumes range from 1 to 8, volume 255 is the default volume. | ||
141 | * Repeats are stored in the high byte, 255 is infinite loop. | ||
142 | * | ||
143 | */ | ||
144 | |||
145 | void z_sound_effect (void) | ||
146 | { | ||
147 | zword number = zargs[0]; | ||
148 | zword effect = zargs[1]; | ||
149 | zword volume = zargs[2]; | ||
150 | |||
151 | /* By default play sound 1 at volume 8 */ | ||
152 | if (zargc < 1) | ||
153 | number = 1; | ||
154 | if (zargc < 2) | ||
155 | effect = EFFECT_PLAY; | ||
156 | if (zargc < 3) | ||
157 | volume = 8; | ||
158 | |||
159 | if (number >= 3 || number == 0) { | ||
160 | |||
161 | locked = TRUE; | ||
162 | |||
163 | if (story_id == LURKING_HORROR && (number == 9 || number == 16)) { | ||
164 | |||
165 | if (effect == EFFECT_PLAY) { | ||
166 | |||
167 | next_sample = number; | ||
168 | next_volume = volume; | ||
169 | |||
170 | locked = FALSE; | ||
171 | |||
172 | if (!playing) | ||
173 | start_next_sample (); | ||
174 | |||
175 | } else locked = FALSE; | ||
176 | |||
177 | return; | ||
178 | |||
179 | } | ||
180 | |||
181 | playing = FALSE; | ||
182 | |||
183 | switch (effect) { | ||
184 | |||
185 | case EFFECT_PREPARE: | ||
186 | os_prepare_sample (number); | ||
187 | break; | ||
188 | case EFFECT_PLAY: | ||
189 | start_sample (number, lo (volume), hi (volume), (zargc == 4) ? zargs[3] : 0); | ||
190 | break; | ||
191 | case EFFECT_STOP: | ||
192 | os_stop_sample (number); | ||
193 | break; | ||
194 | case EFFECT_FINISH_WITH: | ||
195 | os_finish_with_sample (number); | ||
196 | break; | ||
197 | |||
198 | } | ||
199 | |||
200 | locked = FALSE; | ||
201 | |||
202 | } else os_beep (number); | ||
203 | |||
204 | }/* z_sound_effect */ | ||