rnd-19981204-1
[rocksndiamonds.git] / src / init.c
1 /***********************************************************
2 *  Rocks'n'Diamonds -- McDuffin Strikes Back!              *
3 *----------------------------------------------------------*
4 *  (c) 1995-98 Artsoft Entertainment                       *
5 *              Holger Schemel                              *
6 *              Oststrasse 11a                              *
7 *              33604 Bielefeld                             *
8 *              phone: ++49 +521 290471                     *
9 *              email: aeglos@valinor.owl.de                *
10 *----------------------------------------------------------*
11 *  init.c                                                  *
12 ***********************************************************/
13
14 #include <signal.h>
15
16 #include "init.h"
17 #include "misc.h"
18 #include "sound.h"
19 #include "screens.h"
20 #include "tools.h"
21 #include "files.h"
22 #include "joystick.h"
23 #include "image.h"
24 #include "pcx.h"
25 #include "network.h"
26 #include "netserv.h"
27
28 struct PictureFileInfo
29 {
30   char *picture_filename;
31   boolean picture_with_mask;
32 };
33
34 struct IconFileInfo
35 {
36   char *picture_filename;
37   char *picturemask_filename;
38 };
39
40 static int sound_process_id = 0;
41
42 static void InitLevelAndPlayerInfo(void);
43 static void InitNetworkServer(void);
44 static void InitDisplay(void);
45 static void InitSound(void);
46 static void InitSoundServer(void);
47 static void InitWindow(int, char **);
48 static void InitGfx(void);
49 static void LoadGfx(int, struct PictureFileInfo *);
50 static void InitElementProperties(void);
51
52 void OpenAll(int argc, char *argv[])
53 {
54   if (options.serveronly)
55   {
56     NetworkServer(options.server_port, options.serveronly);
57
58     /* never reached */
59     exit(0);
60   }
61
62   InitLevelAndPlayerInfo();
63
64   InitCounter();
65   InitSound();
66   InitSoundServer();
67   InitJoysticks();
68   InitRND(NEW_RANDOMIZE);
69
70   signal(SIGINT, CloseAllAndExit);
71   signal(SIGTERM, CloseAllAndExit);
72
73   InitDisplay();
74   InitWindow(argc, argv);
75
76   XMapWindow(display, window);
77   XFlush(display);
78
79   InitGfx();
80   InitElementProperties();
81
82   DrawMainMenu();
83
84   InitNetworkServer();
85 }
86
87 void InitLevelAndPlayerInfo()
88 {
89   int i;
90
91   /* choose default local player */
92   local_player = &stored_player[0];
93
94   for (i=0; i<MAX_PLAYERS; i++)
95   {
96     stored_player[i].joystick_fd = -1;  /* joystick device closed */
97     stored_player[i].connected = FALSE;
98   }
99
100   local_player->connected = TRUE;
101
102   LoadLevelInfo();                      /* global level info */
103   LoadSetup();                          /* global setup info */
104   LoadLevelSetup();                     /* info about last played level */
105 }
106
107 void InitNetworkServer()
108 {
109 #ifndef MSDOS
110   int nr_wanted;
111 #endif
112
113   if (!options.network)
114     return;
115
116 #ifndef MSDOS
117   nr_wanted = Request("Choose player", REQ_PLAYER | REQ_STAY_CLOSED);
118
119   if (!ConnectToServer(options.server_host, options.server_port))
120     Error(ERR_EXIT, "cannot connect to network game server");
121
122   SendToServer_PlayerName(setup.player_name);
123   SendToServer_ProtocolVersion();
124
125   if (nr_wanted)
126     SendToServer_NrWanted(nr_wanted);
127 #endif
128 }
129
130 void InitSound()
131 {
132   int i;
133
134   if (sound_status == SOUND_OFF)
135     return;
136
137 #ifndef MSDOS
138   if (access(sound_device_name, W_OK) != 0)
139   {
140     Error(ERR_WARN, "cannot access sound device - no sounds");
141     sound_status = SOUND_OFF;
142     return;
143   }
144
145   if ((sound_device = open(sound_device_name,O_WRONLY))<0)
146   {
147     Error(ERR_WARN, "cannot open sound device - no sounds");
148     sound_status = SOUND_OFF;
149     return;
150   }
151
152   close(sound_device);
153   sound_status = SOUND_AVAILABLE;
154
155 #ifdef VOXWARE
156   sound_loops_allowed = TRUE;
157
158   /*
159   setup.sound_loops_on = TRUE;
160   */
161
162 #endif
163 #else /* MSDOS */
164   sound_loops_allowed = TRUE;
165
166   /*
167   setup.sound_loops_on = TRUE;
168   */
169
170 #endif /* MSDOS */
171
172   for(i=0; i<NUM_SOUNDS; i++)
173   {
174 #ifdef MSDOS
175   sprintf(sound_name[i], "%d", i+1);
176 #endif
177     Sound[i].name = sound_name[i];
178     if (!LoadSound(&Sound[i]))
179     {
180       sound_status = SOUND_OFF;
181       return;
182     }
183   }
184 }
185
186 void InitSoundServer()
187 {
188   if (sound_status == SOUND_OFF)
189     return;
190
191 #ifdef MSDOS
192   SoundServer();
193   return;
194 #endif
195
196   if (pipe(sound_pipe)<0)
197   {
198     Error(ERR_WARN, "cannot create pipe - no sounds");
199     sound_status = SOUND_OFF;
200     return;
201   }
202
203   if ((sound_process_id = fork()) < 0)
204   {       
205     Error(ERR_WARN, "cannot create sound server process - no sounds");
206     sound_status = SOUND_OFF;
207     return;
208   }
209
210   if (!sound_process_id)        /* we are child */
211   {
212     SoundServer();
213
214     /* never reached */
215     exit(0);
216   }
217   else                          /* we are parent */
218     close(sound_pipe[0]);       /* no reading from pipe needed */
219 }
220
221 void InitJoysticks()
222 {
223   int i;
224
225   if (global_joystick_status == JOYSTICK_OFF)
226     return;
227
228   joystick_status = JOYSTICK_OFF;
229
230 #ifndef MSDOS
231   for (i=0; i<MAX_PLAYERS; i++)
232   {
233     char *device_name = setup.input[i].joy.device_name;
234
235     /* this allows subsequent calls to 'InitJoysticks' for re-initialization */
236     if (stored_player[i].joystick_fd != -1)
237     {
238       close(stored_player[i].joystick_fd);
239       stored_player[i].joystick_fd = -1;
240     }
241
242     if (!setup.input[i].use_joystick)
243       continue;
244
245     if (access(device_name, R_OK) != 0)
246     {
247       Error(ERR_WARN, "cannot access joystick device '%s'", device_name);
248       continue;
249     }
250
251     if ((stored_player[i].joystick_fd = open(device_name, O_RDONLY)) < 0)
252     {
253       Error(ERR_WARN, "cannot open joystick device '%s'", device_name);
254       continue;
255     }
256
257     joystick_status = JOYSTICK_AVAILABLE;
258   }
259
260 #else /* MSDOS */
261
262   /* try to access two joysticks; if that fails, try to access just one */
263   if (install_joystick(JOY_TYPE_2PADS) == 0 ||
264       install_joystick(JOY_TYPE_AUTODETECT) == 0)
265     joystick_status = JOYSTICK_AVAILABLE;
266
267   /*
268   load_joystick_data(JOYSTICK_FILENAME);
269   */
270
271   for (i=0; i<MAX_PLAYERS; i++)
272   {
273     char *device_name = setup.input[i].joy.device_name;
274     int joystick_nr = getJoystickNrFromDeviceName(device_name);
275
276     if (joystick_nr >= num_joysticks)
277       joystick_nr = -1;
278
279     /* misuse joystick file descriptor variable to store joystick number */
280     stored_player[i].joystick_fd = joystick_nr;
281   }
282 #endif
283 }
284
285 void InitDisplay()
286 {
287 #ifndef MSDOS
288   XVisualInfo vinfo_template, *vinfo;
289   int num_visuals;
290 #endif
291   unsigned int depth;
292
293   /* connect to X server */
294   if (!(display = XOpenDisplay(options.display_name)))
295     Error(ERR_EXIT, "cannot connect to X server %s",
296           XDisplayName(options.display_name));
297
298   screen = DefaultScreen(display);
299   visual = DefaultVisual(display, screen);
300   depth  = DefaultDepth(display, screen);
301   cmap   = DefaultColormap(display, screen);
302
303 #ifndef MSDOS
304   /* look for good enough visual */
305   vinfo_template.screen = screen;
306   vinfo_template.class = (depth == 8 ? PseudoColor : TrueColor);
307   vinfo_template.depth = depth;
308   if ((vinfo = XGetVisualInfo(display, VisualScreenMask | VisualClassMask |
309                               VisualDepthMask, &vinfo_template, &num_visuals)))
310   {
311     visual = vinfo->visual;
312     XFree((void *)vinfo);
313   }
314
315   /* got appropriate visual? */
316   if (depth < 8)
317   {
318     printf("Sorry, displays with less than 8 bits per pixel not supported.\n");
319     exit(-1);
320   }
321   else if ((depth ==8 && visual->class != PseudoColor) ||
322            (depth > 8 && visual->class != TrueColor &&
323             visual->class != DirectColor))
324   {
325     printf("Sorry, cannot get appropriate visual.\n");
326     exit(-1);
327   }
328 #endif
329 }
330
331 void InitWindow(int argc, char *argv[])
332 {
333   unsigned int border_width = 4;
334   XGCValues gc_values;
335   unsigned long gc_valuemask;
336 #ifndef MSDOS
337   XTextProperty windowName, iconName;
338   Pixmap icon_pixmap, iconmask_pixmap;
339   unsigned int icon_width, icon_height;
340   int icon_hot_x, icon_hot_y;
341   char icon_filename[256];
342   XSizeHints size_hints;
343   XWMHints wm_hints;
344   XClassHint class_hints;
345   char *window_name = WINDOWTITLE_STRING;
346   char *icon_name = WINDOWTITLE_STRING;
347   long window_event_mask;
348   Atom proto_atom = None, delete_atom = None;
349 #endif
350   int screen_width, screen_height;
351   int win_xpos = WIN_XPOS, win_ypos = WIN_YPOS;
352   unsigned long pen_fg = WhitePixel(display,screen);
353   unsigned long pen_bg = BlackPixel(display,screen);
354   const int width = WIN_XSIZE, height = WIN_YSIZE;
355
356 #ifndef MSDOS
357   static struct IconFileInfo icon_pic =
358   {
359     "rocks_icon.xbm",
360     "rocks_iconmask.xbm"
361   };
362 #endif
363
364   screen_width = XDisplayWidth(display, screen);
365   screen_height = XDisplayHeight(display, screen);
366
367   win_xpos = (screen_width - width) / 2;
368   win_ypos = (screen_height - height) / 2;
369
370   window = XCreateSimpleWindow(display, RootWindow(display, screen),
371                                win_xpos, win_ypos, width, height, border_width,
372                                pen_fg, pen_bg);
373
374 #ifndef MSDOS
375   proto_atom = XInternAtom(display, "WM_PROTOCOLS", FALSE);
376   delete_atom = XInternAtom(display, "WM_DELETE_WINDOW", FALSE);
377   if ((proto_atom != None) && (delete_atom != None))
378     XChangeProperty(display, window, proto_atom, XA_ATOM, 32,
379                     PropModePrepend, (unsigned char *) &delete_atom, 1);
380
381   sprintf(icon_filename, "%s/%s/%s",
382           options.base_directory, GRAPHICS_DIRECTORY,
383           icon_pic.picture_filename);
384   XReadBitmapFile(display,window,icon_filename,
385                   &icon_width,&icon_height,
386                   &icon_pixmap,&icon_hot_x,&icon_hot_y);
387   if (!icon_pixmap)
388     Error(ERR_EXIT, "cannot read icon bitmap file '%s'", icon_filename);
389
390   sprintf(icon_filename, "%s/%s/%s",
391           options.base_directory, GRAPHICS_DIRECTORY,
392           icon_pic.picturemask_filename);
393   XReadBitmapFile(display,window,icon_filename,
394                   &icon_width,&icon_height,
395                   &iconmask_pixmap,&icon_hot_x,&icon_hot_y);
396   if (!iconmask_pixmap)
397     Error(ERR_EXIT, "cannot read icon bitmap file '%s'", icon_filename);
398
399   size_hints.width  = size_hints.min_width  = size_hints.max_width  = width;
400   size_hints.height = size_hints.min_height = size_hints.max_height = height;
401   size_hints.flags = PSize | PMinSize | PMaxSize;
402
403   if (win_xpos || win_ypos)
404   {
405     size_hints.x = win_xpos;
406     size_hints.y = win_ypos;
407     size_hints.flags |= PPosition;
408   }
409
410   if (!XStringListToTextProperty(&window_name, 1, &windowName))
411     Error(ERR_EXIT, "structure allocation for windowName failed");
412
413   if (!XStringListToTextProperty(&icon_name, 1, &iconName))
414     Error(ERR_EXIT, "structure allocation for iconName failed");
415
416   wm_hints.initial_state = NormalState;
417   wm_hints.input = True;
418   wm_hints.icon_pixmap = icon_pixmap;
419   wm_hints.icon_mask = iconmask_pixmap;
420   wm_hints.flags = StateHint | IconPixmapHint | IconMaskHint | InputHint;
421
422   class_hints.res_name = program_name;
423   class_hints.res_class = "Rocks'n'Diamonds";
424
425   XSetWMProperties(display, window, &windowName, &iconName, 
426                    argv, argc, &size_hints, &wm_hints, 
427                    &class_hints);
428
429   XFree(windowName.value);
430   XFree(iconName.value);
431
432   /* Select event types wanted */
433   window_event_mask = ExposureMask | StructureNotifyMask | FocusChangeMask |
434                       ButtonPressMask | ButtonReleaseMask | ButtonMotionMask |
435                       KeyPressMask | KeyReleaseMask;
436   XSelectInput(display, window, window_event_mask);
437 #endif
438
439   /* create GC for drawing with window depth */
440   gc_values.graphics_exposures = False;
441   gc_values.foreground = pen_bg;
442   gc_values.background = pen_bg;
443   gc_valuemask = GCGraphicsExposures | GCForeground | GCBackground;
444   gc = XCreateGC(display, window, gc_valuemask, &gc_values);
445 }
446
447 void DrawInitText(char *text, int ypos, int color)
448 {
449   if (display && window && pix[PIX_SMALLFONT])
450   {
451     XFillRectangle(display,window,gc,0,ypos, WIN_XSIZE,FONT2_YSIZE);
452     DrawTextExt(window,gc,(WIN_XSIZE-strlen(text)*FONT2_XSIZE)/2,
453                 ypos,text,FS_SMALL,color);
454     XFlush(display);
455   }
456 }
457
458 void InitGfx()
459 {
460   int i,j;
461   GC copy_clipmask_gc;
462   XGCValues clip_gc_values;
463   unsigned long clip_gc_valuemask;
464
465 #ifdef MSDOS
466   static struct PictureFileInfo pic[NUM_PICTURES] =
467   {
468     { "Screen", TRUE },
469     { "Door",   TRUE },
470     { "Heroes", TRUE },
471     { "Toons",  TRUE },
472     { "Font",   FALSE },
473     { "Font2",  FALSE }
474   }; 
475 #else
476   static struct PictureFileInfo pic[NUM_PICTURES] =
477   {
478     { "RocksScreen",    TRUE },
479     { "RocksDoor",      TRUE },
480     { "RocksHeroes",    TRUE },
481     { "RocksToons",     TRUE },
482     { "RocksFont",      FALSE },
483     { "RocksFont2",     FALSE }
484   }; 
485 #endif
486
487   static struct
488   {
489     int start;
490     int count;
491   }
492   tile_needs_clipping[] =
493   {
494     { GFX_SPIELER1_UP, 4 },
495     { GFX_SPIELER1_DOWN, 4 },
496     { GFX_SPIELER1_LEFT, 4 },
497     { GFX_SPIELER1_RIGHT, 4 },
498     { GFX_SPIELER1_PUSH_LEFT, 4 },
499     { GFX_SPIELER1_PUSH_RIGHT, 4 },
500     { GFX_SPIELER2_UP, 4 },
501     { GFX_SPIELER2_DOWN, 4 },
502     { GFX_SPIELER2_LEFT, 4 },
503     { GFX_SPIELER2_RIGHT, 4 },
504     { GFX_SPIELER2_PUSH_LEFT, 4 },
505     { GFX_SPIELER2_PUSH_RIGHT, 4 },
506     { GFX_SPIELER3_UP, 4 },
507     { GFX_SPIELER3_DOWN, 4 },
508     { GFX_SPIELER3_LEFT, 4 },
509     { GFX_SPIELER3_RIGHT, 4 },
510     { GFX_SPIELER3_PUSH_LEFT, 4 },
511     { GFX_SPIELER3_PUSH_RIGHT, 4 },
512     { GFX_SPIELER4_UP, 4 },
513     { GFX_SPIELER4_DOWN, 4 },
514     { GFX_SPIELER4_LEFT, 4 },
515     { GFX_SPIELER4_RIGHT, 4 },
516     { GFX_SPIELER4_PUSH_LEFT, 4 },
517     { GFX_SPIELER4_PUSH_RIGHT, 4 },
518     { GFX_GEBLUBBER, 4 },
519     { GFX_DYNAMIT, 7 },
520     { GFX_DYNABOMB, 4 },
521     { GFX_EXPLOSION, 8 },
522     { GFX_SOKOBAN_OBJEKT, 1 },
523     { GFX_FUNKELN_BLAU, 3 },
524     { GFX_FUNKELN_WEISS, 3 },
525     { -1, 0 }
526   };
527
528 #if DEBUG_TIMING
529   debug_print_timestamp(0, NULL);       /* initialize timestamp function */
530 #endif
531
532   LoadGfx(PIX_SMALLFONT,&pic[PIX_SMALLFONT]);
533   DrawInitText(WINDOWTITLE_STRING,20,FC_YELLOW);
534   DrawInitText(COPYRIGHT_STRING,50,FC_RED);
535 #ifdef MSDOS
536   DrawInitText("MSDOS version done by Guido Schulz",210,FC_BLUE);
537   rest(200);
538 #endif /* MSDOS */
539   DrawInitText("Loading graphics:",120,FC_GREEN);
540
541   for(i=0; i<NUM_PICTURES; i++)
542     if (i != PIX_SMALLFONT)
543       LoadGfx(i,&pic[i]);
544
545 #if DEBUG_TIMING
546   debug_print_timestamp(0, "SUMMARY LOADING ALL GRAPHICS:");
547 #endif
548
549   pix[PIX_DB_BACK] = XCreatePixmap(display, window,
550                                    WIN_XSIZE,WIN_YSIZE,
551                                    XDefaultDepth(display,screen));
552   pix[PIX_DB_DOOR] = XCreatePixmap(display, window,
553                                    3*DXSIZE,DYSIZE+VYSIZE,
554                                    XDefaultDepth(display,screen));
555   pix[PIX_DB_FIELD] = XCreatePixmap(display, window,
556                                     FXSIZE,FYSIZE,
557                                     XDefaultDepth(display,screen));
558
559   clip_gc_values.graphics_exposures = False;
560   clip_gc_valuemask = GCGraphicsExposures;
561   copy_clipmask_gc =
562     XCreateGC(display,clipmask[PIX_BACK],clip_gc_valuemask,&clip_gc_values);
563
564   clip_gc_values.graphics_exposures = False;
565   clip_gc_valuemask = GCGraphicsExposures;
566   tile_clip_gc =
567     XCreateGC(display,window,clip_gc_valuemask,&clip_gc_values);
568
569   /* initialize pixmap array to Pixmap 'None' */
570   for(i=0; i<NUM_TILES; i++)
571     tile_clipmask[i] = None;
572
573   /* create only those clipping Pixmaps we really need */
574   for(i=0; tile_needs_clipping[i].start>=0; i++)
575   {
576     for(j=0; j<tile_needs_clipping[i].count; j++)
577     {
578       int tile = tile_needs_clipping[i].start + j;
579       int graphic = tile;
580       int src_x, src_y;
581       Pixmap src_pixmap;
582
583       if (graphic >= GFX_START_ROCKSSCREEN &&
584           graphic <= GFX_END_ROCKSSCREEN)
585       {
586         src_pixmap = clipmask[PIX_BACK];
587         graphic -= GFX_START_ROCKSSCREEN;
588         src_x = SX + (graphic % GFX_PER_LINE) * TILEX;
589         src_y = SY + (graphic / GFX_PER_LINE) * TILEY;
590       }
591       else if (graphic >= GFX_START_ROCKSHEROES &&
592                graphic <= GFX_END_ROCKSHEROES)
593       {
594         src_pixmap = clipmask[PIX_HEROES];
595         graphic -= GFX_START_ROCKSHEROES;
596         src_x = (graphic % HEROES_PER_LINE) * TILEX;
597         src_y = (graphic / HEROES_PER_LINE) * TILEY;
598       }
599       else if (graphic >= GFX_START_ROCKSFONT &&
600                graphic <= GFX_END_ROCKSFONT)
601       {
602         src_pixmap = clipmask[PIX_BIGFONT];
603         graphic -= GFX_START_ROCKSFONT;
604         src_x = (graphic % FONT_CHARS_PER_LINE) * TILEX;
605         src_y = (graphic / FONT_CHARS_PER_LINE) * TILEY +
606           FC_SPECIAL1 * FONT_LINES_PER_FONT * TILEY;
607       }
608       else
609         break;
610
611       tile_clipmask[tile] = XCreatePixmap(display, window, TILEX,TILEY, 1);
612
613       XCopyArea(display,src_pixmap,tile_clipmask[tile],copy_clipmask_gc,
614                 src_x,src_y, TILEX,TILEY, 0,0);
615     }
616   }
617
618   if (!pix[PIX_DB_BACK] || !pix[PIX_DB_DOOR])
619     Error(ERR_EXIT, "cannot create additional pixmaps");
620
621   for(i=0; i<NUM_PIXMAPS; i++)
622   {
623     if (clipmask[i])
624     {
625       clip_gc_values.graphics_exposures = False;
626       clip_gc_values.clip_mask = clipmask[i];
627       clip_gc_valuemask = GCGraphicsExposures | GCClipMask;
628       clip_gc[i] = XCreateGC(display,window,clip_gc_valuemask,&clip_gc_values);
629     }
630   }
631
632   drawto = backbuffer = pix[PIX_DB_BACK];
633   fieldbuffer = pix[PIX_DB_FIELD];
634   SetDrawtoField(DRAW_BACKBUFFER);
635
636   XCopyArea(display,pix[PIX_BACK],backbuffer,gc,
637             0,0, WIN_XSIZE,WIN_YSIZE, 0,0);
638   XFillRectangle(display,pix[PIX_DB_BACK],gc,
639                  REAL_SX,REAL_SY, FULL_SXSIZE,FULL_SYSIZE);
640   XFillRectangle(display,pix[PIX_DB_DOOR],gc,
641                  0,0, 3*DXSIZE,DYSIZE+VYSIZE);
642
643   for(i=0; i<MAX_BUF_XSIZE; i++)
644     for(j=0; j<MAX_BUF_YSIZE; j++)
645       redraw[i][j] = 0;
646   redraw_tiles = 0;
647   redraw_mask = REDRAW_ALL;
648 }
649
650 void LoadGfx(int pos, struct PictureFileInfo *pic)
651 {
652   char basefilename[256];
653   char filename[256];
654
655 #ifdef USE_XPM_LIBRARY
656   int xpm_err, xbm_err;
657   unsigned int width,height;
658   int hot_x,hot_y;
659   Pixmap shapemask;
660   char *picture_ext = ".xpm";
661   char *picturemask_ext = "Mask.xbm";
662 #else
663   int pcx_err;
664   char *picture_ext = ".pcx";
665 #endif
666
667   /* Grafik laden */
668   if (pic->picture_filename)
669   {
670     sprintf(basefilename, "%s%s", pic->picture_filename, picture_ext);
671     DrawInitText(basefilename, 150, FC_YELLOW);
672     sprintf(filename, "%s/%s/%s",
673             options.base_directory, GRAPHICS_DIRECTORY, basefilename);
674
675 #ifdef MSDOS
676     rest(100);
677 #endif /* MSDOS */
678
679 #if DEBUG_TIMING
680     debug_print_timestamp(1, NULL);     /* initialize timestamp function */
681 #endif
682
683 #ifdef USE_XPM_LIBRARY
684
685     xpm_att[pos].valuemask = XpmCloseness;
686     xpm_att[pos].closeness = 20000;
687     xpm_err = XpmReadFileToPixmap(display,window,filename,
688                                   &pix[pos],&shapemask,&xpm_att[pos]);
689     switch(xpm_err)
690     {
691       case XpmOpenFailed:
692         Error(ERR_EXIT, "cannot open XPM file '%s'", filename);
693       case XpmFileInvalid:
694         Error(ERR_EXIT, "invalid XPM file '%s'", filename);
695       case XpmNoMemory:
696         Error(ERR_EXIT, "not enough memory for XPM file '%s'", filename);
697       case XpmColorFailed:
698         Error(ERR_EXIT, "cannot get colors for XPM file '%s'", filename);
699       default:
700         break;
701     }
702
703 #if DEBUG_TIMING
704     printf("LOADING XPM FILE %s:", filename);
705     debug_print_timestamp(1, "");
706 #endif
707
708 #else /* !USE_XPM_LIBRARY */
709
710     pcx_err = Read_PCX_to_Pixmap(display, window, gc, filename,
711                                  &pix[pos], &clipmask[pos]);
712     switch(pcx_err)
713     {
714       case PCX_Success:
715         break;
716       case PCX_OpenFailed:
717         Error(ERR_EXIT, "cannot open PCX file '%s'", filename);
718       case PCX_ReadFailed:
719         Error(ERR_EXIT, "cannot read PCX file '%s'", filename);
720       case PCX_FileInvalid:
721         Error(ERR_EXIT, "invalid PCX file '%s'", filename);
722       case PCX_NoMemory:
723         Error(ERR_EXIT, "not enough memory for PCX file '%s'", filename);
724       case PCX_ColorFailed:
725         Error(ERR_EXIT, "cannot get colors for PCX file '%s'", filename);
726       default:
727         break;
728     }
729
730 #if DEBUG_TIMING
731     printf("SUMMARY LOADING PCX FILE %s:", filename);
732     debug_print_timestamp(1, "");
733 #endif
734
735 #endif /* !USE_XPM_LIBRARY */
736
737     if (!pix[pos])
738       Error(ERR_EXIT, "cannot get graphics for '%s'", pic->picture_filename);
739   }
740
741   /* zugehörige Maske laden (wenn vorhanden) */
742   if (pic->picture_with_mask)
743   {
744 #ifdef USE_XPM_LIBRARY
745
746     sprintf(basefilename, "%s%s", pic->picture_filename, picturemask_ext);
747     DrawInitText(basefilename, 150, FC_YELLOW);
748     sprintf(filename, "%s/%s/%s",
749             options.base_directory, GRAPHICS_DIRECTORY, basefilename);
750
751 #if DEBUG_TIMING
752     debug_print_timestamp(1, NULL);     /* initialize timestamp function */
753 #endif
754
755     xbm_err = XReadBitmapFile(display,window,filename,
756                               &width,&height,&clipmask[pos],&hot_x,&hot_y);
757     switch(xbm_err)
758     {
759       case BitmapSuccess:
760         break;
761       case BitmapOpenFailed:
762         Error(ERR_EXIT, "cannot open XBM file '%s'", filename);
763       case BitmapFileInvalid:
764         Error(ERR_EXIT, "invalid XBM file '%s'", filename);
765       case BitmapNoMemory:
766         Error(ERR_EXIT, "not enough memory for XBM file '%s'", filename);
767         break;
768       default:
769         break;
770     }
771
772 #if DEBUG_TIMING
773     printf("LOADING XBM FILE %s:", filename);
774     debug_print_timestamp(1, "");
775 #endif
776
777 #endif /* USE_XPM_LIBRARY */
778
779     if (!clipmask[pos])
780       Error(ERR_EXIT, "cannot get clipmask for '%s'", pic->picture_filename);
781   }
782 }
783
784 void InitElementProperties()
785 {
786   int i,j;
787
788   static int ep_amoebalive[] =
789   {
790     EL_AMOEBE_NASS,
791     EL_AMOEBE_NORM,
792     EL_AMOEBE_VOLL,
793     EL_AMOEBE_BD
794   };
795   static int ep_amoebalive_num = sizeof(ep_amoebalive)/sizeof(int);
796
797   static int ep_amoeboid[] =
798   {
799     EL_AMOEBE_TOT,
800     EL_AMOEBE_NASS,
801     EL_AMOEBE_NORM,
802     EL_AMOEBE_VOLL,
803     EL_AMOEBE_BD
804   };
805   static int ep_amoeboid_num = sizeof(ep_amoeboid)/sizeof(int);
806
807   static int ep_schluessel[] =
808   {
809     EL_SCHLUESSEL1,
810     EL_SCHLUESSEL2,
811     EL_SCHLUESSEL3,
812     EL_SCHLUESSEL4
813   };
814   static int ep_schluessel_num = sizeof(ep_schluessel)/sizeof(int);
815
816   static int ep_pforte[] =
817   {
818     EL_PFORTE1,
819     EL_PFORTE2,
820     EL_PFORTE3,
821     EL_PFORTE4,
822     EL_PFORTE1X,
823     EL_PFORTE2X,
824     EL_PFORTE3X,
825     EL_PFORTE4X
826   };
827   static int ep_pforte_num = sizeof(ep_pforte)/sizeof(int);
828
829   static int ep_solid[] =
830   {
831     EL_BETON,
832     EL_MAUERWERK,
833     EL_MAUER_LEBT,
834     EL_MAUER_X,
835     EL_MAUER_Y,
836     EL_MAUER_XY,
837     EL_FELSBODEN,
838     EL_AUSGANG_ZU,
839     EL_AUSGANG_ACT,
840     EL_AUSGANG_AUF,
841     EL_AMOEBE_TOT,
842     EL_AMOEBE_NASS,
843     EL_AMOEBE_NORM,
844     EL_AMOEBE_VOLL,
845     EL_AMOEBE_BD,
846     EL_MORAST_VOLL,
847     EL_MORAST_LEER,
848     EL_SIEB_VOLL,
849     EL_SIEB_LEER,
850     EL_SIEB_TOT,
851     EL_SIEB2_VOLL,
852     EL_SIEB2_LEER,
853     EL_SIEB2_TOT,
854     EL_LIFE,
855     EL_LIFE_ASYNC,
856     EL_BADEWANNE1,
857     EL_BADEWANNE2,
858     EL_BADEWANNE3,
859     EL_BADEWANNE4,
860     EL_BADEWANNE5
861   };
862   static int ep_solid_num = sizeof(ep_solid)/sizeof(int);
863
864   static int ep_massiv[] =
865   {
866     EL_BETON,
867     EL_SALZSAEURE,
868     EL_BADEWANNE1,
869     EL_BADEWANNE2,
870     EL_BADEWANNE3,
871     EL_BADEWANNE4,
872     EL_BADEWANNE5,
873     EL_PFORTE1,
874     EL_PFORTE2,
875     EL_PFORTE3,
876     EL_PFORTE4,
877     EL_PFORTE1X,
878     EL_PFORTE2X,
879     EL_PFORTE3X,
880     EL_PFORTE4X
881   };
882   static int ep_massiv_num = sizeof(ep_massiv)/sizeof(int);
883
884   static int ep_slippery[] =
885   {
886     EL_FELSBODEN,
887     EL_FELSBROCKEN,
888     EL_EDELSTEIN,
889     EL_EDELSTEIN_BD,
890     EL_EDELSTEIN_GELB,
891     EL_EDELSTEIN_ROT,
892     EL_EDELSTEIN_LILA,
893     EL_DIAMANT,
894     EL_BOMBE,
895     EL_KOKOSNUSS,
896     EL_ABLENK_EIN,
897     EL_ABLENK_AUS,
898     EL_ZEIT_VOLL,
899     EL_ZEIT_LEER,
900     EL_BIRNE_EIN,
901     EL_BIRNE_AUS,
902     EL_BADEWANNE1,
903     EL_BADEWANNE2,
904     EL_SONDE
905   };
906   static int ep_slippery_num = sizeof(ep_slippery)/sizeof(int);
907
908   static int ep_enemy[] =
909   {
910     EL_KAEFER,
911     EL_FLIEGER,
912     EL_BUTTERFLY,
913     EL_FIREFLY,
914     EL_MAMPFER,
915     EL_MAMPFER2,
916     EL_ROBOT,
917     EL_PACMAN
918   };
919   static int ep_enemy_num = sizeof(ep_enemy)/sizeof(int);
920
921   static int ep_mauer[] =
922   {
923     EL_BETON,
924     EL_PFORTE1,
925     EL_PFORTE2,
926     EL_PFORTE3,
927     EL_PFORTE4,
928     EL_PFORTE1X,
929     EL_PFORTE2X,
930     EL_PFORTE3X,
931     EL_PFORTE4X,
932     EL_AUSGANG_ZU,
933     EL_AUSGANG_ACT,
934     EL_AUSGANG_AUF,
935     EL_MAUERWERK,
936     EL_FELSBODEN,
937     EL_MAUER_LEBT,
938     EL_MAUER_X,
939     EL_MAUER_Y,
940     EL_MAUER_XY,
941     EL_MAUERND
942   };
943   static int ep_mauer_num = sizeof(ep_mauer)/sizeof(int);
944
945   static int ep_can_fall[] =
946   {
947     EL_FELSBROCKEN,
948     EL_EDELSTEIN,
949     EL_EDELSTEIN_BD,
950     EL_EDELSTEIN_GELB,
951     EL_EDELSTEIN_ROT,
952     EL_EDELSTEIN_LILA,
953     EL_DIAMANT,
954     EL_BOMBE,
955     EL_KOKOSNUSS,
956     EL_TROPFEN,
957     EL_MORAST_VOLL,
958     EL_SIEB_VOLL,
959     EL_SIEB2_VOLL,
960     EL_ZEIT_VOLL,
961     EL_ZEIT_LEER
962   };
963   static int ep_can_fall_num = sizeof(ep_can_fall)/sizeof(int);
964
965   static int ep_can_smash[] =
966   {
967     EL_FELSBROCKEN,
968     EL_EDELSTEIN,
969     EL_EDELSTEIN_BD,
970     EL_EDELSTEIN_GELB,
971     EL_EDELSTEIN_ROT,
972     EL_EDELSTEIN_LILA,
973     EL_DIAMANT,
974     EL_SCHLUESSEL1,
975     EL_SCHLUESSEL2,
976     EL_SCHLUESSEL3,
977     EL_SCHLUESSEL4,
978     EL_BOMBE,
979     EL_KOKOSNUSS,
980     EL_TROPFEN,
981     EL_ZEIT_VOLL,
982     EL_ZEIT_LEER
983   };
984   static int ep_can_smash_num = sizeof(ep_can_smash)/sizeof(int);
985
986   static int ep_can_change[] =
987   {
988     EL_FELSBROCKEN,
989     EL_EDELSTEIN,
990     EL_EDELSTEIN_BD,
991     EL_EDELSTEIN_GELB,
992     EL_EDELSTEIN_ROT,
993     EL_EDELSTEIN_LILA,
994     EL_DIAMANT
995   };
996   static int ep_can_change_num = sizeof(ep_can_change)/sizeof(int);
997
998   static int ep_can_move[] =
999   {
1000     EL_KAEFER,
1001     EL_FLIEGER,
1002     EL_BUTTERFLY,
1003     EL_FIREFLY,
1004     EL_MAMPFER,
1005     EL_MAMPFER2,
1006     EL_ROBOT,
1007     EL_PACMAN,
1008     EL_MAULWURF,
1009     EL_PINGUIN,
1010     EL_SCHWEIN,
1011     EL_DRACHE,
1012     EL_SONDE
1013   };
1014   static int ep_can_move_num = sizeof(ep_can_move)/sizeof(int);
1015
1016   static int ep_could_move[] =
1017   {
1018     EL_KAEFER_R,
1019     EL_KAEFER_O,
1020     EL_KAEFER_L,
1021     EL_KAEFER_U,
1022     EL_FLIEGER_R,
1023     EL_FLIEGER_O,
1024     EL_FLIEGER_L,
1025     EL_FLIEGER_U,
1026     EL_BUTTERFLY_R,
1027     EL_BUTTERFLY_O,
1028     EL_BUTTERFLY_L,
1029     EL_BUTTERFLY_U,
1030     EL_FIREFLY_R,
1031     EL_FIREFLY_O,
1032     EL_FIREFLY_L,
1033     EL_FIREFLY_U,
1034     EL_PACMAN_R,
1035     EL_PACMAN_O,
1036     EL_PACMAN_L,
1037     EL_PACMAN_U
1038   };
1039   static int ep_could_move_num = sizeof(ep_could_move)/sizeof(int);
1040
1041   static int ep_dont_touch[] =
1042   {
1043     EL_KAEFER,
1044     EL_FLIEGER,
1045     EL_BUTTERFLY,
1046     EL_FIREFLY
1047   };
1048   static int ep_dont_touch_num = sizeof(ep_dont_touch)/sizeof(int);
1049
1050   static int ep_dont_go_to[] =
1051   {
1052     EL_KAEFER,
1053     EL_FLIEGER,
1054     EL_BUTTERFLY,
1055     EL_FIREFLY,
1056     EL_MAMPFER,
1057     EL_MAMPFER2,
1058     EL_ROBOT,
1059     EL_PACMAN,
1060     EL_TROPFEN,
1061     EL_SALZSAEURE
1062   };
1063   static int ep_dont_go_to_num = sizeof(ep_dont_go_to)/sizeof(int);
1064
1065   static int ep_mampf2[] =
1066   {
1067     EL_ERDREICH,
1068     EL_KAEFER,
1069     EL_FLIEGER,
1070     EL_BUTTERFLY,
1071     EL_FIREFLY,
1072     EL_MAMPFER,
1073     EL_ROBOT,
1074     EL_PACMAN,
1075     EL_TROPFEN,
1076     EL_AMOEBE_TOT,
1077     EL_AMOEBE_NASS,
1078     EL_AMOEBE_NORM,
1079     EL_AMOEBE_VOLL,
1080     EL_AMOEBE_BD,
1081     EL_EDELSTEIN,
1082     EL_EDELSTEIN_BD,
1083     EL_EDELSTEIN_GELB,
1084     EL_EDELSTEIN_ROT,
1085     EL_EDELSTEIN_LILA,
1086     EL_DIAMANT
1087   };
1088   static int ep_mampf2_num = sizeof(ep_mampf2)/sizeof(int);
1089
1090   static int ep_bd_element[] =
1091   {
1092     EL_LEERRAUM,
1093     EL_ERDREICH,
1094     EL_FELSBODEN,
1095     EL_FELSBROCKEN,
1096     EL_EDELSTEIN_BD,
1097     EL_SIEB2_LEER,
1098     EL_AUSGANG_ZU,
1099     EL_AUSGANG_AUF,
1100     EL_BETON,
1101     EL_SPIELFIGUR,
1102     EL_FIREFLY,
1103     EL_FIREFLY_1,
1104     EL_FIREFLY_2,
1105     EL_FIREFLY_3,
1106     EL_FIREFLY_4,
1107     EL_BUTTERFLY,
1108     EL_BUTTERFLY_1,
1109     EL_BUTTERFLY_2,
1110     EL_BUTTERFLY_3,
1111     EL_BUTTERFLY_4,
1112     EL_AMOEBE_BD,
1113     EL_CHAR_FRAGE
1114   };
1115   static int ep_bd_element_num = sizeof(ep_bd_element)/sizeof(int);
1116
1117   static int ep_sb_element[] =
1118   {
1119     EL_LEERRAUM,
1120     EL_BETON,
1121     EL_SOKOBAN_OBJEKT,
1122     EL_SOKOBAN_FELD_LEER,
1123     EL_SOKOBAN_FELD_VOLL,
1124     EL_SPIELFIGUR
1125   };
1126   static int ep_sb_element_num = sizeof(ep_sb_element)/sizeof(int);
1127
1128   static int ep_gem[] =
1129   {
1130     EL_EDELSTEIN,
1131     EL_EDELSTEIN_BD,
1132     EL_EDELSTEIN_GELB,
1133     EL_EDELSTEIN_ROT,
1134     EL_EDELSTEIN_LILA,
1135     EL_DIAMANT
1136   };
1137   static int ep_gem_num = sizeof(ep_gem)/sizeof(int);
1138
1139   static int ep_inactive[] =
1140   {
1141     EL_LEERRAUM,
1142     EL_ERDREICH,
1143     EL_MAUERWERK,
1144     EL_FELSBODEN,
1145     EL_SCHLUESSEL,
1146     EL_BETON,
1147     EL_AMOEBE_TOT,
1148     EL_MORAST_LEER,
1149     EL_BADEWANNE,
1150     EL_ABLENK_AUS,
1151     EL_SCHLUESSEL1,
1152     EL_SCHLUESSEL2,
1153     EL_SCHLUESSEL3,
1154     EL_SCHLUESSEL4,
1155     EL_PFORTE1,
1156     EL_PFORTE2,
1157     EL_PFORTE3,
1158     EL_PFORTE4,
1159     EL_PFORTE1X,
1160     EL_PFORTE2X,
1161     EL_PFORTE3X,
1162     EL_PFORTE4X,
1163     EL_DYNAMIT_AUS,
1164     EL_UNSICHTBAR,
1165     EL_BIRNE_AUS,
1166     EL_BIRNE_EIN,
1167     EL_ERZ_EDEL,
1168     EL_ERZ_DIAM,
1169     EL_ERZ_EDEL_BD,
1170     EL_ERZ_EDEL_GELB,
1171     EL_DYNABOMB_NR,
1172     EL_DYNABOMB_SZ,
1173     EL_DYNABOMB_XL,
1174     EL_SOKOBAN_OBJEKT,
1175     EL_SOKOBAN_FELD_LEER,
1176     EL_SOKOBAN_FELD_VOLL,
1177     EL_ERZ_EDEL_ROT,
1178     EL_ERZ_EDEL_LILA,
1179     EL_BADEWANNE1,
1180     EL_BADEWANNE2,
1181     EL_BADEWANNE3,
1182     EL_BADEWANNE4,
1183     EL_BADEWANNE5,
1184     EL_SIEB_TOT,
1185     EL_SIEB2_TOT,
1186     EL_AMOEBA2DIAM,
1187     EL_BLOCKED
1188   };
1189   static int ep_inactive_num = sizeof(ep_inactive)/sizeof(int);
1190
1191   static int ep_explosive[] =
1192   {
1193     EL_BOMBE,
1194     EL_DYNAMIT,
1195     EL_DYNAMIT_AUS,
1196     EL_DYNABOMB,
1197     EL_DYNABOMB_NR,
1198     EL_DYNABOMB_SZ,
1199     EL_DYNABOMB_XL,
1200     EL_KAEFER,
1201     EL_MAULWURF,
1202     EL_PINGUIN,
1203     EL_SCHWEIN,
1204     EL_DRACHE,
1205     EL_SONDE
1206   };
1207   static int ep_explosive_num = sizeof(ep_explosive)/sizeof(int);
1208
1209   static int ep_mampf3[] =
1210   {
1211     EL_EDELSTEIN,
1212     EL_EDELSTEIN_BD,
1213     EL_EDELSTEIN_GELB,
1214     EL_EDELSTEIN_ROT,
1215     EL_EDELSTEIN_LILA,
1216     EL_DIAMANT
1217   };
1218   static int ep_mampf3_num = sizeof(ep_mampf3)/sizeof(int);
1219
1220   static int ep_pushable[] =
1221   {
1222     EL_FELSBROCKEN,
1223     EL_BOMBE,
1224     EL_KOKOSNUSS,
1225     EL_ZEIT_LEER,
1226     EL_SOKOBAN_FELD_VOLL,
1227     EL_SOKOBAN_OBJEKT,
1228     EL_SONDE
1229   };
1230   static int ep_pushable_num = sizeof(ep_pushable)/sizeof(int);
1231
1232   static int ep_player[] =
1233   {
1234     EL_SPIELFIGUR,
1235     EL_SPIELER1,
1236     EL_SPIELER2,
1237     EL_SPIELER3,
1238     EL_SPIELER4
1239   };
1240   static int ep_player_num = sizeof(ep_player)/sizeof(int);
1241
1242   static long ep_bit[] =
1243   {
1244     EP_BIT_AMOEBALIVE,
1245     EP_BIT_AMOEBOID,
1246     EP_BIT_SCHLUESSEL,
1247     EP_BIT_PFORTE,
1248     EP_BIT_SOLID,
1249     EP_BIT_MASSIV,
1250     EP_BIT_SLIPPERY,
1251     EP_BIT_ENEMY,
1252     EP_BIT_MAUER,
1253     EP_BIT_CAN_FALL,
1254     EP_BIT_CAN_SMASH,
1255     EP_BIT_CAN_CHANGE,
1256     EP_BIT_CAN_MOVE,
1257     EP_BIT_COULD_MOVE,
1258     EP_BIT_DONT_TOUCH,
1259     EP_BIT_DONT_GO_TO,
1260     EP_BIT_MAMPF2,
1261     EP_BIT_BD_ELEMENT,
1262     EP_BIT_SB_ELEMENT,
1263     EP_BIT_GEM,
1264     EP_BIT_INACTIVE,
1265     EP_BIT_EXPLOSIVE,
1266     EP_BIT_MAMPF3,
1267     EP_BIT_PUSHABLE,
1268     EP_BIT_PLAYER
1269   };
1270   static int *ep_array[] =
1271   {
1272     ep_amoebalive,
1273     ep_amoeboid,
1274     ep_schluessel,
1275     ep_pforte,
1276     ep_solid,
1277     ep_massiv,
1278     ep_slippery,
1279     ep_enemy,
1280     ep_mauer,
1281     ep_can_fall,
1282     ep_can_smash,
1283     ep_can_change,
1284     ep_can_move,
1285     ep_could_move,
1286     ep_dont_touch,
1287     ep_dont_go_to,
1288     ep_mampf2,
1289     ep_bd_element,
1290     ep_sb_element,
1291     ep_gem,
1292     ep_inactive,
1293     ep_explosive,
1294     ep_mampf3,
1295     ep_pushable,
1296     ep_player
1297   };
1298   static int *ep_num[] =
1299   {
1300     &ep_amoebalive_num,
1301     &ep_amoeboid_num,
1302     &ep_schluessel_num,
1303     &ep_pforte_num,
1304     &ep_solid_num,
1305     &ep_massiv_num,
1306     &ep_slippery_num,
1307     &ep_enemy_num,
1308     &ep_mauer_num,
1309     &ep_can_fall_num,
1310     &ep_can_smash_num,
1311     &ep_can_change_num,
1312     &ep_can_move_num,
1313     &ep_could_move_num,
1314     &ep_dont_touch_num,
1315     &ep_dont_go_to_num,
1316     &ep_mampf2_num,
1317     &ep_bd_element_num,
1318     &ep_sb_element_num,
1319     &ep_gem_num,
1320     &ep_inactive_num,
1321     &ep_explosive_num,
1322     &ep_mampf3_num,
1323     &ep_pushable_num,
1324     &ep_player_num
1325   };
1326   static int num_properties = sizeof(ep_num)/sizeof(int *);
1327
1328   for(i=0; i<MAX_ELEMENTS; i++)
1329     Elementeigenschaften[i] = 0;
1330
1331   for(i=0; i<num_properties; i++)
1332     for(j=0; j<*(ep_num[i]); j++)
1333       Elementeigenschaften[(ep_array[i])[j]] |= ep_bit[i];
1334   for(i=EL_CHAR_START; i<EL_CHAR_END; i++)
1335     Elementeigenschaften[i] |= (EP_BIT_CHAR | EP_BIT_INACTIVE);
1336 }
1337
1338 void CloseAllAndExit(int exit_value)
1339 {
1340   int i;
1341
1342   if (sound_process_id)
1343   {
1344     StopSounds();
1345     kill(sound_process_id, SIGTERM);
1346     FreeSounds(NUM_SOUNDS);
1347   }
1348
1349   for(i=0; i<NUM_PIXMAPS; i++)
1350   {
1351     if (pix[i])
1352     {
1353 #ifdef USE_XPM_LIBRARY
1354       if (i < NUM_PICTURES)     /* XPM pictures */
1355       {
1356         XFreeColors(display,DefaultColormap(display,screen),
1357                     xpm_att[i].pixels,xpm_att[i].npixels,0);
1358         XpmFreeAttributes(&xpm_att[i]);
1359       }
1360 #endif
1361       XFreePixmap(display,pix[i]);
1362     }
1363     if (clipmask[i])
1364       XFreePixmap(display,clipmask[i]);
1365     if (clip_gc[i])
1366       XFreeGC(display, clip_gc[i]);
1367   }
1368
1369   if (gc)
1370     XFreeGC(display, gc);
1371
1372   if (display)
1373   {
1374     XAutoRepeatOn(display);
1375     XCloseDisplay(display);
1376   }
1377
1378 #ifdef MSDOS
1379   dumpErrorFile();
1380 #endif
1381
1382   exit(exit_value);
1383 }