rnd-20091218-2-src
[rocksndiamonds.git] / src / game_em / init.c
1 /* 2000-08-10T18:03:54Z
2  *
3  * open X11 display and sound
4  */
5
6 #include "main_em.h"
7
8
9 #include <signal.h>
10
11 #if !defined(TARGET_SDL)
12 #include <sys/wait.h>
13 #endif
14
15
16 Bitmap *objBitmap;
17 Bitmap *sprBitmap;
18
19 Bitmap *screenBitmap;
20
21 #if 0
22 Pixmap spriteBitmap;
23 #endif
24
25 Pixmap objPixmap;
26 Pixmap sprPixmap;
27
28 #if 0
29 Pixmap objmaskBitmap;
30 Pixmap sprmaskBitmap;
31
32 GC spriteGC;
33 #endif
34
35 char play[SAMPLE_MAX];
36 int play_x[SAMPLE_MAX];
37 int play_y[SAMPLE_MAX];
38 int play_element[SAMPLE_MAX];
39
40 static boolean use_native_em_sound = 0;
41
42 struct GlobalInfo_EM global_em_info;
43 struct GameInfo_EM game_em;
44
45 #if defined(AUDIO_UNIX_NATIVE)
46 static int sound_pid = -1;
47 int sound_pipe[2] = { -1, -1 };         /* for communication */
48 short *sound_data[SAMPLE_MAX];          /* pointer to sound data */
49 long sound_length[SAMPLE_MAX];          /* length of sound data */
50
51 static const char *sound_names[SAMPLE_MAX] =
52 {
53   "00.blank.au",
54   "01.roll.au",
55   "02.stone.au",
56   "03.nut.au",
57   "04.crack.au",
58   "05.bug.au",
59   "06.tank.au",
60   "07.android.au",
61   "06.tank.au",         /* android moving */
62   "08.spring.au",
63   "09.slurp.au",
64   "10.eater.au",
65   "10.eater.au",        /* eater eating */
66   "11.alien.au",
67   "12.collect.au",
68   "13.diamond.au",
69   "14.squash.au",
70   "14.squash.au",
71   "15.drip.au",
72   "16.push.au",
73   "17.dirt.au",
74   "18.acid.au",
75   "19.ball.au",
76   "20.grow.au",
77   "21.wonder.au",
78   "22.door.au",
79   "23.exit.au",
80   "23.exit.au",
81   "24.dynamite.au",
82   "25.tick.au",
83   "26.press.au",
84   "27.wheel.au",
85   "28.boom.au",
86   "29.time.au",
87   "30.die.au"
88 };
89 static const int sound_volume[SAMPLE_MAX] =
90 {
91   20,
92   100,
93   100,
94   100,
95   100,
96   20,
97   20,
98   100,
99   20,
100   100,
101   100,
102   50,
103   50,
104   100,
105   100,
106   100,
107   100,
108   100,
109   100,
110   100,
111   100,
112   100,
113   100,
114   100,
115   20,
116   100,
117   100,
118   100,
119   100,
120   100,
121   100,
122   20,
123   100,
124   100,
125   100
126 };
127 #endif
128
129 char *progname;
130 char *arg_basedir;
131
132 extern void tab_generate();
133 extern void tab_generate_graphics_info_em();
134 extern void ulaw_generate();
135
136 int open_all(void)
137 {
138   Bitmap *emc_bitmaps[2];
139 #if 0
140   XGCValues gcValues;
141 #endif
142
143 #if 1
144   SetBitmaps_EM(emc_bitmaps);
145
146   objBitmap = emc_bitmaps[0];
147   sprBitmap = emc_bitmaps[1];
148
149 #if 0
150   objPixmap = emc_bitmaps[0]->drawable;
151   sprPixmap = emc_bitmaps[1]->drawable;
152
153   objmaskBitmap = emc_bitmaps[0]->clip_mask;
154   sprmaskBitmap = emc_bitmaps[1]->clip_mask;
155 #endif
156
157   screenBitmap = CreateBitmap(MAX_BUF_XSIZE * TILEX, MAX_BUF_YSIZE * TILEY,
158                               DEFAULT_DEPTH);
159
160   global_em_info.screenbuffer = screenBitmap;
161
162 #endif
163
164 #if 0
165   spriteBitmap = XCreatePixmap(display, window->drawable, TILEX, TILEY, 1);
166   if (spriteBitmap == 0)
167     Error(ERR_EXIT, "failed to create sprite pixmap for EM engine");
168
169   gcValues.function =
170     objmaskBitmap ? GXcopyInverted : sprmaskBitmap ? GXcopy : GXset;
171   gcValues.graphics_exposures = False;
172   spriteGC = XCreateGC(display, spriteBitmap, GCFunction | GCGraphicsExposures,
173                        &gcValues);
174   if (spriteGC == 0)
175     Error(ERR_EXIT, "failed to create sprite GC for EM engine");
176 #endif
177
178   /* ----------------------------------------------------------------- */
179
180 #if defined(AUDIO_UNIX_NATIVE)
181
182 #if defined(PLATFORM_LINUX) || defined(PLATFORM_BSD)
183
184   if (use_native_em_sound)
185   {
186     char name[MAXNAME+2];
187     int i;
188
189     for (i = 0; i < SAMPLE_MAX; i++)
190     {
191       name[MAXNAME] = 0;
192
193       if (arg_basedir)
194       {
195         snprintf(name, MAXNAME+2, "%s/%s/%s", arg_basedir, EM_SND_DIR,
196                  sound_names[i]);
197       }
198       else
199       {
200         snprintf(name, MAXNAME+2, "%s/%s", EM_SND_DIR, sound_names[i]);
201       }
202
203       if (name[MAXNAME])
204         Error(ERR_EXIT, "buffer overflow when reading sounds directory");
205
206       if (read_sample(name, &sound_data[i], &sound_length[i]))
207         return(1);
208
209       {
210         short *ptr, *stop;
211         int mult = sound_volume[i] * 65536 / (100 * MIXER_MAX);
212         stop = sound_data[i] + sound_length[i];
213         for (ptr = sound_data[i]; ptr < stop; ptr++)
214           *ptr = (*ptr * mult) / 65536;
215       }
216     }
217
218     if (pipe(sound_pipe) == -1)
219     {
220       Error(ERR_WARN, "unable to create sound pipe for EM engine -- no sound");
221
222       return(1);
223     }
224
225     sound_pid = fork();
226     if (sound_pid == -1)
227     {
228       Error(ERR_WARN, "unable to fork sound thread for EM engine -- no sound");
229
230       return(1);
231     }
232
233     close(sound_pipe[sound_pid == 0]);
234     sound_pipe[sound_pid == 0] = -1;
235     if (sound_pid == 0)
236       _exit(sound_thread());
237
238     signal(SIGPIPE, SIG_IGN); /* dont crash if sound process dies */
239   }
240
241 #endif  /* defined(PLATFORM_LINUX) || defined(PLATFORM_BSD) */
242
243 #endif  /* AUDIO_UNIX_NATIVE */
244
245   return(0);
246 }
247
248 void em_open_all()
249 {
250   /* pre-calculate some data */
251   tab_generate();
252 #if defined(PLATFORM_LINUX) || defined(PLATFORM_BSD)
253   ulaw_generate();
254 #endif
255
256   progname = "emerald mine";
257
258   if (open_all() != 0)
259     Error(ERR_EXIT, "em_open_all(): open_all() failed");
260
261   /* after "open_all()", because we need the graphic bitmaps to be defined */
262   tab_generate_graphics_info_em();
263
264   game_init_vars();
265 }
266
267 void em_close_all(void)
268 {
269 #if defined(AUDIO_UNIX_NATIVE)
270   int i;
271
272   if (sound_pid != -1)
273   {
274     kill(sound_pid, SIGTERM);
275     waitpid(sound_pid, 0, 0);
276   }
277
278   if (sound_pipe[0] != -1)
279     close(sound_pipe[0]);
280   if (sound_pipe[1] != -1)
281     close(sound_pipe[1]);
282
283   for (i = 0; i < SAMPLE_MAX; i++)
284     if (sound_data[i])
285       free(sound_data[i]);
286 #endif
287
288 #if 0
289   if (spriteGC)
290     XFreeGC(display, spriteGC);
291
292   if (spriteBitmap)
293     XFreePixmap(display, spriteBitmap);
294 #endif
295 }
296
297 /* ---------------------------------------------------------------------- */
298
299 extern int screen_x;
300 extern int screen_y;
301
302 void play_element_sound(int x, int y, int sample, int element)
303 {
304 #if 0
305   int left = screen_x / TILEX;
306   int top  = screen_y / TILEY;
307
308   if ((x == -1 && y == -1) ||   /* play sound in the middle of the screen */
309       ((int)(y - top)  <= SCR_FIELDY &&
310        (int)(x - left) <= SCR_FIELDX))
311 #endif
312   {
313 #if 1
314     PlayLevelSound_EM(x, y, element, sample);
315 #else
316     play[sample] = 1;
317     play_x[sample] = x;
318     play_y[sample] = y;
319     play_element[sample] = element;
320 #endif
321   }
322 }
323
324 void play_sound(int x, int y, int sample)
325 {
326   play_element_sound(x, y, sample, -1);
327 }
328
329 void sound_play(void)
330 {
331   if (!use_native_em_sound)
332   {
333     int i;
334
335 #if 0
336     UpdateEngineValues(screen_x / TILEX, screen_y / TILEY);
337 #endif
338
339     return;
340
341     for (i = 0; i < SAMPLE_MAX; i++)
342       if (play[i])
343         PlayLevelSound_EM(play_x[i], play_y[i], play_element[i], i);
344   }
345
346 #if defined(AUDIO_UNIX_NATIVE)
347   if (use_native_em_sound && sound_pipe[1] != -1)
348   {
349     if (write(sound_pipe[1], &play, sizeof(play)) == -1)
350     {
351       Error(ERR_WARN, "cannot write into pipe to child process -- no sounds");
352
353       if (sound_pipe[0] != -1)
354       {
355         close(sound_pipe[0]);
356         sound_pipe[0] = -1;
357       }
358
359       if (sound_pipe[1] != -1)
360       {
361         close(sound_pipe[1]);
362         sound_pipe[1] = -1;
363       }
364     }
365   }
366
367 #endif
368
369   clear_mem(play, sizeof(play));
370 }
371
372 unsigned int InitEngineRandom_EM(long seed)
373 {
374   if (seed == NEW_RANDOMIZE)
375   {
376     int simple_rnd = GetSimpleRandom(1000);
377     int i;
378
379     for (i = 0; i < simple_rnd || RandomEM == NEW_RANDOMIZE; i++)
380       RandomEM = RandomEM * 129 + 1;
381
382     seed = RandomEM;
383   }
384
385   RandomEM = seed;
386
387   return (unsigned int) seed;
388 }