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