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