removed some remaining unused X11 stuff
[rocksndiamonds.git] / src / game_em / init.c
index 5622ca03e6508212de60f370dffe887aceafae56..719f5e13db13e096b58dd1ca51491cecdbb31f17 100644 (file)
  * open X11 display and sound
  */
 
-#if 1
-#include <X11/Xlib.h>
-#include <X11/Xutil.h>
-#include <X11/Xatom.h>
-#include <X11/Xos.h>
-#include <X11/Intrinsic.h>
-#include <X11/keysymdef.h>
-#endif
+#include "main_em.h"
 
-#include <X11/Xlib.h>
-#include <X11/Xutil.h>
-#include <X11/Xatom.h>
-#include <X11/keysym.h>
-#include <X11/cursorfont.h>
-#include <X11/xpm.h>
-#include <sys/types.h>
-#include <sys/wait.h>
-#include <unistd.h>
-#include <stdlib.h>
-#include <stdio.h>
 #include <signal.h>
-#include <string.h>
-#include <errno.h>
 
-#include "../libgame/platform.h"
-#include "../libgame/libgame.h"
 
-#include "global.h"
-#include "display.h"
-#include "sample.h"
-
-
-#if defined(TARGET_X11)
-
-#if 0
-Display *display;
-Window xwindow;
-#endif
-
-#if 1
 Bitmap *objBitmap;
-Bitmap *botBitmap;
 Bitmap *sprBitmap;
-Bitmap *ttlBitmap;
-#endif
 
-#if 1
 Bitmap *screenBitmap;
-Bitmap *scoreBitmap;
-#endif
-
-Pixmap screenPixmap;
-Pixmap scorePixmap;
-Pixmap spriteBitmap;
-
-Pixmap objPixmap;
-Pixmap objmaskBitmap;
-Pixmap botPixmap;
-Pixmap botmaskBitmap;
-Pixmap sprPixmap;
-Pixmap sprmaskBitmap;
-Pixmap ttlPixmap;
-Pixmap ttlmaskBitmap;
-
-GC screenGC;
-GC scoreGC;
-GC spriteGC;
-GC antsGC;
-
-Atom deleteAtom;
-
-KeySym lastKeySym;
-
-KeyCode northKeyCode[3];
-KeyCode eastKeyCode[3];
-KeyCode southKeyCode[3];
-KeyCode westKeyCode[3];
-KeyCode fireKeyCode[3];
-KeyCode escKeyCode[1];
 
 char play[SAMPLE_MAX];
+int play_x[SAMPLE_MAX];
+int play_y[SAMPLE_MAX];
+int play_element[SAMPLE_MAX];
 
-static int sound_pid = -1;
-int sound_pipe[2] = { -1, -1 }; /* for communication */
-short *sound_data[SAMPLE_MAX]; /* pointer to sound data */
-long sound_length[SAMPLE_MAX]; /* length of sound data */
-
-static Screen *defaultScreen;
-static Visual *defaultVisual;
-static Colormap defaultColourmap;
-static Window defaultRootWindow;
-static unsigned int screenDepth;
-static unsigned int screenWidth;
-static unsigned int screenHeight;
-static unsigned long screenBlackPixel;
-static unsigned long screenWhitePixel;
+struct GlobalInfo_EM global_em_info;
+struct GameInfo_EM game_em;
 
-#if 0
-static XSizeHints sizeHints;
-static XSetWindowAttributes setWindowAttributes;
-static XWMHints wmHints;
-static XVisualInfo visualInfo;
-#endif
-static XGCValues gcValues;
+char *progname;
+char *arg_basedir;
 
-static Colormap privateColourmap;
-static Cursor cursor;
-static XColor *privateColours;
-static unsigned char *privateFlags;
-static int privateNumColours;
-
-static XColor redColour;
-static XColor whiteColour;
-static int gotRed;
-static int gotWhite;
-
-#if 1
-static Bitmap *pcxBitmaps[4];
-static Bitmap *pcxBitmapsX2[4];
-#endif
-
-#if 0
-static Pixmap xpmPixmaps[4];
-static Pixmap xpmBitmaps[4];
-static XpmAttributes xpmAttributes[4];
-static int xpmGot[4];
-#endif
-
-static int xpmAllocColourFunc(Display *, Colormap, char *, XColor *, void *);
-static int xpmFreeColoursFunc(Display *, Colormap, unsigned long *, int, void *);
-
-static KeyCode keycodes[16];
-
-#if 0
-static const char *xpmNames[4] = { "object.xpm", "score.xpm", "sprite.xpm", "title.xpm" };
-#endif
-
-#if 1
-static const char *pcxNames[4] = { "object.pcx", "score.pcx", "sprite.pcx", "title.pcx" };
-#endif
-
-static const int xpmCloseness[4] = { 10000, 10000, 40000, 50000 };
-static const KeySym keysyms[16] = {
-       XK_Up, XK_KP_Up, XK_r, /* north */
-       XK_Right, XK_KP_Right, XK_g, /* east */
-       XK_Down, XK_KP_Down, XK_f, /* south */
-       XK_Left, XK_KP_Left, XK_d, /* west */
-       XK_Shift_L, XK_Control_R, XK_space, /* fire */
-       XK_Escape /* escape */
-};
-static const char *sound_names[SAMPLE_MAX] = {
-       "00.blank.au","01.roll.au","02.stone.au","03.nut.au","04.crack.au",
-       "05.bug.au","06.tank.au","07.android.au","08.spring.au","09.slurp.au",
-       "10.eater.au","11.alien.au","12.collect.au","13.diamond.au","14.squash.au",
-       "15.drip.au","16.push.au","17.dirt.au","18.acid.au","19.ball.au",
-       "20.grow.au","21.wonder.au","22.door.au","23.exit.au","24.dynamite.au",
-       "25.tick.au","26.press.au","27.wheel.au","28.boom.au","29.time.au",
-       "30.die.au"
-};
-static const int sound_volume[SAMPLE_MAX] = {
-       20,100,100,100,100,20,20,100,100,100,
-       50,100,100,100,100,100,100,100,100,100,
-       100,20,100,100,100,100,100,20,100,100,
-       100
-};
-
-#if 0
-static void xdebug(char *msg)
-{
-#if 1
-  XSync(display, False);
-  printf("EM DEBUG: %s\n", msg);
-#endif
-}
-#endif
+extern void tab_generate();
+extern void tab_generate_graphics_info_em();
 
 int open_all(void)
 {
-       char name[MAXNAME+2];
-#if 0
-       void *dummyptr;
-       int dummyint;
-#endif
-       int i;
-
-#if 0
-       display = XOpenDisplay(arg_display);
-       if(display == 0) {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, XDisplayName(arg_display), "failed to open display", strerror(errno));
-               return(1);
-       }
-#endif
-
-       defaultScreen = DefaultScreenOfDisplay(display);
-       defaultVisual = DefaultVisualOfScreen(defaultScreen);
-       defaultColourmap = DefaultColormapOfScreen(defaultScreen);
-       defaultRootWindow = RootWindowOfScreen(defaultScreen);
-       screenDepth = DefaultDepthOfScreen(defaultScreen);
-       screenWidth = WidthOfScreen(defaultScreen);
-       screenHeight = HeightOfScreen(defaultScreen);
-       screenBlackPixel = BlackPixelOfScreen(defaultScreen);
-       screenWhitePixel = WhitePixelOfScreen(defaultScreen);
-
-#if 0
-       if(arg_install) {
-               visualInfo.visualid = XVisualIDFromVisual(defaultVisual);
-               dummyptr = XGetVisualInfo(display, VisualIDMask, &visualInfo, &dummyint);
-               if(dummyptr == 0) {
-                       fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, XDisplayName(arg_display), "failed to get visual info", strerror(errno));
-                       return(1);
-               }
-               memcpy(&visualInfo, dummyptr, sizeof(visualInfo));
-               XFree(dummyptr);
-
-               if(visualInfo.class != PseudoColor) {
-                       fprintf(stderr, "%s: \"%s\": %s\n", progname, XDisplayName(arg_display), "private colourmap only supported for pseudocolour display");
-                       return(1);
-               }
-
-               privateColourmap = XCreateColormap(display, defaultRootWindow, defaultVisual, AllocAll);
-               if(privateColourmap == 0) {
-                       fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, XDisplayName(arg_display), "failed to create colourmap", strerror(errno));
-                       return(1);
-               }
-
-               privateNumColours = visualInfo.colormap_size;
-
-               privateColours = malloc(privateNumColours * sizeof(XColor));
-               if(privateColours == 0) {
-                       fprintf(stderr, "%s: %s (%d): %s\n", progname, "malloc failed", privateNumColours * sizeof(XColor), strerror(errno));
-                       return(1);
-               }
-               for(dummyint = 0; dummyint < privateNumColours; dummyint++) privateColours[dummyint].pixel = dummyint;
-               XQueryColors(display, defaultColourmap, privateColours, privateNumColours);
-               XStoreColors(display, privateColourmap, privateColours, privateNumColours);
-
-               privateFlags = malloc(privateNumColours);
-               if(privateFlags == 0) {
-                       fprintf(stderr, "%s: %s (%d): %s\n", progname, "malloc failed", privateNumColours, strerror(errno));
-                       return(1);
-               }
-               memset(privateFlags, 0, privateNumColours);
-               privateFlags[0] = 1; /* first two entries (black and white) are already allocated */
-               privateFlags[1] = 1;
-       }
-
-       sizeHints.flags = PSize | PMinSize | PMaxSize;
-       sizeHints.width = 20 * TILEX;
-       sizeHints.height = 12 * TILEY + SCOREY;
-       sizeHints.min_width = sizeHints.max_width = sizeHints.width;
-       sizeHints.min_height = sizeHints.max_height = sizeHints.height;
-       if(arg_geometry) {
-               dummyint = XWMGeometry(display, XScreenNumberOfScreen(defaultScreen), arg_geometry, 0, 2, &sizeHints, &sizeHints.x, &sizeHints.y, &dummyint, &dummyint, &sizeHints.win_gravity);
-               if(dummyint & (XValue | YValue)) sizeHints.flags |= USPosition | PWinGravity;
-       }
-
-       xwindow = XCreateWindow(display, defaultRootWindow, sizeHints.x, sizeHints.y, sizeHints.width, sizeHints.height, 2, screenDepth, InputOutput, CopyFromParent, 0, 0);
-       if(xwindow == 0) {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, XDisplayName(arg_display), "failed to open window", strerror(errno));
-               return(1);
-       }
-
-       setWindowAttributes.background_pixel = screenBlackPixel;
-       setWindowAttributes.border_pixel = screenWhitePixel;
-       setWindowAttributes.backing_store = NotUseful;
-       setWindowAttributes.override_redirect = False;
-       setWindowAttributes.event_mask = KeyPressMask | EnterWindowMask | LeaveWindowMask | ExposureMask;
-       setWindowAttributes.colormap = privateColourmap ? privateColourmap : defaultColourmap;
-       XChangeWindowAttributes(display, xwindow, CWBackPixel | CWBorderPixel | CWBackingStore | CWOverrideRedirect | CWEventMask | CWColormap, &setWindowAttributes);
-
-       XStoreName(display, xwindow, "Emerald Mine");
-
-       wmHints.flags = InputHint | StateHint;
-       wmHints.input = True;
-       wmHints.initial_state = NormalState;
-       XSetWMHints(display, xwindow, &wmHints);
-
-       XSetWMNormalHints(display, xwindow, &sizeHints);
-
-       deleteAtom = XInternAtom(display, "WM_DELETE_WINDOW", False);
-       XSetWMProtocols(display, xwindow, &deleteAtom, 1);
-
-       cursor = XCreateFontCursor(display, XC_trek);
-       if(cursor) XDefineCursor(display, xwindow, cursor);
-
-       XMapWindow(display, xwindow);
-#endif
-
-#if 0
-       for(i = 0; i < 4; i++) {
-               name[MAXNAME] = 0;
-               if(arg_basedir) {
-                       snprintf(name, MAXNAME+2, "%s/%s/%s", arg_basedir, EM_GFX_DIR, xpmNames[i]);
-               } else {
-                       snprintf(name, MAXNAME+2, "%s/%s", EM_GFX_DIR, xpmNames[i]);
-               }
-               if(name[MAXNAME]) snprintf_overflow("read graphics/ files");
-
-               xpmAttributes[i].valuemask = XpmColormap | XpmReturnAllocPixels | XpmExactColors | XpmCloseness | XpmAllocColor | XpmFreeColors;
-               xpmAttributes[i].colormap = privateColourmap ? privateColourmap : defaultColourmap;
-               xpmAttributes[i].exactColors = False;
-               xpmAttributes[i].closeness = xpmCloseness[i];
-               xpmAttributes[i].alloc_color = xpmAllocColourFunc;
-               xpmAttributes[i].free_colors = xpmFreeColoursFunc;
-               dummyint = XpmReadFileToPixmap(display, xwindow, name, &xpmPixmaps[i], &xpmBitmaps[i], &xpmAttributes[i]);
-               if(dummyint) {
-                       fprintf(stderr, "%s: \"%s\": \"%s\": %s: %s: %s\n", progname, XDisplayName(arg_display), name, "failed to read xpm", XpmGetErrorString(dummyint), strerror(errno));
-                       return(1);
-               }
-               xpmGot[i] = 1;
-       }
-#endif
-
-       for(i = 0; i < 4; i++)
-       {
-         name[MAXNAME] = 0;
-         snprintf(name, MAXNAME+2, "%s/%s", EM_GFX_DIR, pcxNames[i]);
-
-         if (name[MAXNAME])
-           snprintf_overflow("read graphics/ files");
-
-         if ((pcxBitmaps[i] = LoadImage(name)) == NULL)
-         {
-           printf("::: LoadImage() failed for file '%s'\n", name);
-           return 1;
-         }
-       }
-
-       objBitmap = pcxBitmaps[0];
-       botBitmap = pcxBitmaps[1];
-       sprBitmap = pcxBitmaps[2];
-       ttlBitmap = pcxBitmaps[3];
-
-#if 0
-       objPixmap = xpmPixmaps[0];
-       botPixmap = xpmPixmaps[1];
-       sprPixmap = xpmPixmaps[2];
-       ttlPixmap = xpmPixmaps[3];
-       objmaskBitmap = xpmBitmaps[0];
-       botmaskBitmap = xpmBitmaps[1];
-       sprmaskBitmap = xpmBitmaps[2];
-       ttlmaskBitmap = xpmBitmaps[3];
-#else
-       objPixmap = pcxBitmaps[0]->drawable;
-       botPixmap = pcxBitmaps[1]->drawable;
-       sprPixmap = pcxBitmaps[2]->drawable;
-       ttlPixmap = pcxBitmaps[3]->drawable;
-       objmaskBitmap = pcxBitmaps[0]->clip_mask;
-       botmaskBitmap = pcxBitmaps[1]->clip_mask;
-       sprmaskBitmap = pcxBitmaps[2]->clip_mask;
-       ttlmaskBitmap = pcxBitmaps[3]->clip_mask;
-#endif
-
-#if 1
-       for (i = 0; i < 4; i++)
-       {
-         Pixmap clip_mask;
-
-         if ((clip_mask = XCreatePixmap(display, window->drawable,
-                                        pcxBitmaps[i]->width * 2,
-                                        pcxBitmaps[i]->height * 2, 1))
-             == None)
-         {
-           printf("::: cannot create clip mask");
-           return 1;
-         }
-
-#if 0
-         {
-           XGCValues clip_gc_values;
-           unsigned long clip_gc_valuemask;
-           GC gc;
-
-           clip_gc_values.graphics_exposures = False;
-           clip_gc_valuemask = GCGraphicsExposures;
-           if ((gc = XCreateGC(display, clip_mask,
-                               clip_gc_valuemask, &clip_gc_values)) == None)
-           {
-             printf("X CreateGC failed\n");
-             exit(1);
-           }
-
-           XFillRectangle(display, clip_mask, gc, 0, 0,
-                          pcxBitmaps[i]->width * 2,
-                          pcxBitmaps[i]->height * 2);
-         }
-#endif
-
-#if 0
-         {
-           byte * src_ptr;
-           int src_width = pcxBitmaps[i]->width;
-           int src_height = pcxBitmaps[i]->height;
-
-#if 0
-           printf("::: %d, %d [%ld -> %ld (%ld)]\n",
-                  src_width, src_height,
-                  src_ptr,
-                  src_ptr + src_width * src_height * 1,
-                  src_width * src_height * 1);
-#endif
-
-#if 0
-           for (i = src_ptr; i < src_ptr + src_width * src_height * 1; i++)
-           {
-             byte x = *(byte *)i;
-
-             x = x * 1;
-           }
-#endif
-         }
-#endif
-
-         if (ZOOM_FACTOR > 1)
-           pcxBitmapsX2[i] = ZoomBitmap(pcxBitmaps[i],
-                                        pcxBitmaps[i]->width  * ZOOM_FACTOR,
-                                        pcxBitmaps[i]->height * ZOOM_FACTOR);
-         else
-           pcxBitmapsX2[i] = pcxBitmaps[i];
-
-#if 1
-
-#if 0
-         printf("::: CREATING NEW CLIPMASKS ...\n");
-#endif
-#if 1
-         clip_mask = Pixmap_to_Mask(pcxBitmapsX2[i]->drawable,
-                                    pcxBitmapsX2[i]->width,
-                                    pcxBitmapsX2[i]->height);
-#endif
-#if 0
-         printf("::: CREATING NEW CLIPMASKS DONE\n");
-#endif
-
-         pcxBitmapsX2[i]->clip_mask = clip_mask;
-
-         /* add clip mask GC */
-         {
-           XGCValues clip_gc_values;
-           unsigned long clip_gc_valuemask;
-
-           clip_gc_values.graphics_exposures = False;
-           clip_gc_values.clip_mask = pcxBitmapsX2[i]->clip_mask;
-           clip_gc_valuemask = GCGraphicsExposures | GCClipMask;
-           pcxBitmapsX2[i]->stored_clip_gc = XCreateGC(display,
-                                                       window->drawable,
-                                                       clip_gc_valuemask,
-                                                       &clip_gc_values);
-         }
-
-#if 0
-         printf("::: %ld, %ld, %ld, %ld, %ld, %ld, %ld\n",
-                pcxBitmaps[i]->gc,
-                pcxBitmaps[i]->clip_mask, pcxBitmapsX2[i]->clip_mask,
-                pcxBitmaps[i]->width, pcxBitmaps[i]->height,
-                pcxBitmapsX2[i]->width, pcxBitmapsX2[i]->height);
-#endif
-
-#if 0
-         ZoomPixmap(display, pcxBitmaps[i]->gc,
-                    pcxBitmaps[i]->clip_mask, pcxBitmapsX2[i]->clip_mask,
-                    pcxBitmaps[i]->width, pcxBitmaps[i]->height,
-                    pcxBitmapsX2[i]->width, pcxBitmapsX2[i]->height);
-#endif
-
-#endif
-       }
-
-       objBitmap = pcxBitmapsX2[0];
-       botBitmap = pcxBitmapsX2[1];
-       sprBitmap = pcxBitmapsX2[2];
-       ttlBitmap = pcxBitmapsX2[3];
-
-       objPixmap = pcxBitmapsX2[0]->drawable;
-       botPixmap = pcxBitmapsX2[1]->drawable;
-       sprPixmap = pcxBitmapsX2[2]->drawable;
-       ttlPixmap = pcxBitmapsX2[3]->drawable;
-#if 1
-       objmaskBitmap = pcxBitmapsX2[0]->clip_mask;
-       botmaskBitmap = pcxBitmapsX2[1]->clip_mask;
-       sprmaskBitmap = pcxBitmapsX2[2]->clip_mask;
-       ttlmaskBitmap = pcxBitmapsX2[3]->clip_mask;
-#endif
-#endif
-
-#if 1
-       screenBitmap = CreateBitmap(22 * TILEX, 14 * TILEY, DEFAULT_DEPTH);
-       scoreBitmap = CreateBitmap(20 * TILEX, SCOREY, DEFAULT_DEPTH);
-#endif
-
-       screenPixmap = XCreatePixmap(display, xwindow, 22 * TILEX, 14 * TILEY, screenDepth);
-       if(screenPixmap == 0) {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, XDisplayName(arg_display), "failed to create pixmap", strerror(errno));
-               return(1);
-       }
-
-       scorePixmap = XCreatePixmap(display, xwindow, 20 * TILEX, SCOREY, screenDepth);
-       if(scorePixmap == 0) {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, XDisplayName(arg_display), "failed to create pixmap", strerror(errno));
-               return(1);
-       }
-
-#if 1
-       screenBitmap->drawable = screenPixmap;
-       scoreBitmap->drawable = scorePixmap;
-#endif
-
-       spriteBitmap = XCreatePixmap(display, xwindow, TILEX, TILEY, 1);
-       if(spriteBitmap == 0) {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, XDisplayName(arg_display), "failed to create pixmap", strerror(errno));
-               return(1);
-       }
-
-       redColour.pixel = screenWhitePixel;
-       whiteColour.pixel = screenBlackPixel;
-       gotRed = (xpmAllocColourFunc(display, privateColourmap ? privateColourmap : defaultColourmap, "red", &redColour, 0) > 0);
-       gotWhite = (xpmAllocColourFunc(display, privateColourmap ? privateColourmap : defaultColourmap, "white", &whiteColour, 0) > 0);
-
-       gcValues.graphics_exposures = False;
-       screenGC = XCreateGC(display, screenPixmap, GCGraphicsExposures, &gcValues);
-       if(screenGC == 0) {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, XDisplayName(arg_display), "failed to create graphics context", strerror(errno));
-               return(1);
-       }
-
-       gcValues.graphics_exposures = False;
-       scoreGC = XCreateGC(display, scorePixmap, GCGraphicsExposures, &gcValues);
-       if(scoreGC == 0) {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, XDisplayName(arg_display), "failed to create graphics context", strerror(errno));
-               return(1);
-       }
-
-       gcValues.function = objmaskBitmap ? GXcopyInverted : sprmaskBitmap ? GXcopy : GXset;
-       gcValues.graphics_exposures = False;
-       spriteGC = XCreateGC(display, spriteBitmap, GCFunction | GCGraphicsExposures, &gcValues);
-       if(spriteGC == 0) {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, XDisplayName(arg_display), "failed to create graphics context", strerror(errno));
-               return(1);
-       }
-
-       gcValues.foreground = redColour.pixel;
-       gcValues.background = whiteColour.pixel;
-       gcValues.line_style = LineDoubleDash;
-       gcValues.graphics_exposures = False;
-       antsGC = XCreateGC(display, screenPixmap, GCForeground | GCBackground | GCLineStyle | GCGraphicsExposures, &gcValues);
-       if(antsGC == 0) {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, XDisplayName(arg_display), "failed to create graphics context", strerror(errno));
-               return(1);
-       }
-
-       for(i = 0; i < 16; i++) {
-               keycodes[i] = XKeysymToKeycode(display, keysyms[i]);
-       }
-       for(i = 0; i < 3; i++) northKeyCode[i] = keycodes[i + 0];
-       for(i = 0; i < 3; i++) eastKeyCode[i] = keycodes[i + 3];
-       for(i = 0; i < 3; i++) southKeyCode[i] = keycodes[i + 6];
-       for(i = 0; i < 3; i++) westKeyCode[i] = keycodes[i + 9];
-       for(i = 0; i < 3; i++) fireKeyCode[i] = keycodes[i + 12];
-       for(i = 0; i < 1; i++) escKeyCode[i] = keycodes[i + 15];
-
-       /* ----------------------------------------------------------------- */
-
-#if 0
-       {
-         Bitmap *bm = pcxBitmaps[2];
-         Pixmap clip_mask = bm->clip_mask;
-
-         if (clip_mask)
-         {
-#if 1
-           int width = bm->width;
-           int height = bm->height;
-#else
-           int width = 16 * 4;
-           int height = 16 * 4;
-#endif
-           XImage *src_ximage = XGetImage(display, clip_mask, 0, 0,
-                                          width, height, AllPlanes, ZPixmap);
-           XImage *dst_ximage = XGetImage(display, xwindow, 0, 0,
-                                          width, height, AllPlanes, ZPixmap);
-           int x, y;
-
-           if (src_ximage == NULL)
-           {
-             printf("src_ximage failed\n");
-             exit(1);
-           }
-
-           if (dst_ximage == NULL)
-           {
-             printf("dst_ximage failed\n");
-             exit(1);
-           }
-
-           printf("::: DISPLAY CLIP MASK ...\n");
-
-           for (x=0; x<width; x++)
-           {
-             for (y=0; y<height; y++)
-             {
-               unsigned long pixel = XGetPixel(src_ximage, x, y);
-
-               if (pixel != BlackPixel(display, screen))
-                 pixel = WhitePixel(display, screen);
+  Bitmap *emc_bitmaps[2];
 
-               XPutPixel(dst_ximage, x, y, pixel);
-             }
-           }
+  SetBitmaps_EM(emc_bitmaps);
 
-           printf("::: DISPLAY CLIP MASK NOW\n");
+  objBitmap = emc_bitmaps[0];
+  sprBitmap = emc_bitmaps[1];
 
-           XPutImage(display, xwindow, screenGC, dst_ximage, 0, 0,
-                     0, 13 * TILEY, width, height);
-
-           printf("::: DISPLAY CLIP MASK DONE\n");
-         }
-       }
-#endif
-
-       /* ----------------------------------------------------------------- */
-
-#if 0
-       {
-         int ii = 2;
-
-         XGCValues clip_gc_values;
-         unsigned long clip_gc_valuemask;
-
-#if 1
-         GC gc = screenGC;
-#else
-#if 1
-         GC gc = pcxBitmaps[ii]->stored_clip_gc;
-#else
-         GC gc = pcxBitmaps[ii]->gc;
-#endif
-#endif
-         Pixmap src_pixmap = pcxBitmaps[ii]->clip_mask;
-         Pixmap dst_pixmap = pcxBitmapsX2[ii]->clip_mask;
-         int src_width = pcxBitmaps[ii]->width;
-         int src_height = pcxBitmaps[ii]->height;
-         int dst_width = pcxBitmapsX2[ii]->width;
-         int dst_height = pcxBitmapsX2[ii]->height;
-
-  XImage *src_ximage, *dst_ximage;
-  byte *src_ptr, *dst_ptr;
-  int bits_per_pixel;
-  int bytes_per_pixel;
-  int x, y, xx, yy, i;
-#if 1
-  boolean scale_down = (src_width > dst_width);
-  int zoom_factor;
-#else
-  int zoom_factor = src_width / dst_width;     /* currently very limited! */
-#endif
-  int row_skip, col_skip;
-
-  printf("::: %d\n", scale_down);
-
-  xdebug("::: ZOOM STEP 1");
-
-  clip_gc_values.graphics_exposures = False;
-  clip_gc_valuemask = GCGraphicsExposures;
-  if ((gc = XCreateGC(display, pcxBitmaps[ii]->clip_mask,
-                     clip_gc_valuemask, &clip_gc_values)) == None)
-  {
-    printf("XCreateGC failed\n");
-    exit(1);
-  }
-
-  xdebug("::: ZOOM STEP 2");
-
-  if (scale_down)
-  {
-    zoom_factor = src_width / dst_width;
-
-    /* adjust source image size to integer multiple of destination size */
-    src_width  = dst_width  * zoom_factor;
-    src_height = dst_height * zoom_factor;
-  }
-  else
-  {
-    zoom_factor = dst_width / src_width;
-
-    /* no adjustment needed when scaling up (some pixels may be left blank) */
-  }
-
-  /* copy source pixmap to temporary image */
-  if ((src_ximage = XGetImage(display, src_pixmap, 0, 0, src_width, src_height,
-                             AllPlanes, ZPixmap)) == NULL)
-    Error(ERR_EXIT, "ZoomPixmap(): XGetImage() failed");
-
-  bits_per_pixel = src_ximage->bits_per_pixel;
-  bytes_per_pixel = (bits_per_pixel + 7) / 8;
-
-  printf("::: bits_per_pixel == %d\n", bits_per_pixel);
-
-  if ((dst_ximage = XCreateImage(display, visual, src_ximage->depth, ZPixmap,
-                                0, NULL, dst_width, dst_height,
-                                8, dst_width * bytes_per_pixel)) == NULL)
-    Error(ERR_EXIT, "ZoomPixmap(): XCreateImage() failed");
-
-  dst_ximage->data =
-    checked_malloc(dst_width * dst_height * bytes_per_pixel);
-  dst_ximage->byte_order = src_ximage->byte_order;
-
-  src_ptr = (byte *)src_ximage->data;
-  dst_ptr = (byte *)dst_ximage->data;
-
-  if (scale_down)
-  {
-    col_skip = (zoom_factor - 1) * bytes_per_pixel;
-    row_skip = col_skip * src_width;
-
-    /* scale image down by scaling factor 'zoom_factor' */
-    for (y = 0; y < src_height; y += zoom_factor, src_ptr += row_skip)
-      for (x = 0; x < src_width; x += zoom_factor, src_ptr += col_skip)
-       for (i = 0; i < bytes_per_pixel; i++)
-         *dst_ptr++ = *src_ptr++;
-  }
-  else
-  {
-    row_skip = src_width * bytes_per_pixel;
-
-#if 1
-    printf("::: %d, %d -> %d, %d [%d / %d]\n[%ld -> %ld (%ld)] [%ld -> %ld (%ld)]\n",
-          src_width, src_height,
-          dst_width, dst_height,
-          zoom_factor, bytes_per_pixel,
-          src_ptr,
-          src_ptr + src_width * src_height * bytes_per_pixel,
-          src_width * src_height * bytes_per_pixel,
-          dst_ptr,
-          dst_ptr + dst_width * dst_height * bytes_per_pixel,
-          dst_width * dst_height * bytes_per_pixel);
-#endif
-
-#if 0
-    printf("A\n");
-
-    for (i = 0; i < src_width * src_height * bytes_per_pixel;
-        i++)
-    {
-      byte x = *(byte *)(src_ptr + i);
-
-      printf("::: %d ...\n", i);
-
-      x = x * 1;
-    }
-
-    printf("B\n");
-#endif
-
-    /* scale image up by scaling factor 'zoom_factor' */
-    for (y = 0; y < src_height; y++)
-    {
-      for (yy = 0; yy < zoom_factor; yy++)
-      {
-       if (yy > 0)
-         src_ptr -= row_skip;
-
-#if 0
-       printf("::: [%d -> %ld / %ld]\n", y, src_ptr, dst_ptr);
-#endif
-
-       for (x = 0; x < src_width; x++)
-       {
-         for (xx = 0; xx < zoom_factor; xx++)
-           for (i = 0; i < bytes_per_pixel; i++)
-#if 1
-           {
-#if 0
-             printf("::: %d\n", *(src_ptr + i));
-#endif
-
-             *dst_ptr++ = *(src_ptr + i);
-           }
-#else
-             *dst_ptr++ = 0;
-#endif
-
-         src_ptr += i;
-       }
-      }
-    }
-  }
-
-  xdebug("::: ZOOM STEP 9");
-
-  /* copy scaled image to destination pixmap */
-  XPutImage(display, dst_pixmap, gc, dst_ximage, 0, 0, 0, 0,
-           dst_width, dst_height);
-
-  /* free temporary images */
-  X11DestroyImage(src_ximage);
-  X11DestroyImage(dst_ximage);
-
-
-  xdebug("::: ZOOM DONE");
-
-       }
-#endif
-
-       /* ----------------------------------------------------------------- */
-
-#if 0
-       {
-         Bitmap *bm = pcxBitmapsX2[2];
-         Pixmap clip_mask = bm->clip_mask;
-
-         if (clip_mask)
-         {
-#if 0
-           int width = bm->width;
-           int height = bm->height;
-#else
-           int width = 16 * 4;
-           int height = 16 * 4;
-#endif
-           XImage *src_ximage = XGetImage(display, clip_mask, 0, 0,
-                                          width, height, AllPlanes, ZPixmap);
-           XImage *dst_ximage = XGetImage(display, xwindow, 0, 0,
-                                          width, height, AllPlanes, ZPixmap);
-           int x, y;
-
-           if (src_ximage == NULL)
-           {
-             printf("src_ximage failed\n");
-             exit(1);
-           }
-
-           if (dst_ximage == NULL)
-           {
-             printf("dst_ximage failed\n");
-             exit(1);
-           }
-
-           printf("::: DISPLAY CLIP MASK ...\n");
-
-           for (x=0; x<width; x++)
-           {
-             for (y=0; y<height; y++)
-             {
-               unsigned long pixel = XGetPixel(src_ximage, x, y);
-
-               if (pixel != BlackPixel(display, screen))
-                 pixel = WhitePixel(display, screen);
-
-               XPutPixel(dst_ximage, x, y, pixel);
-             }
-           }
-
-           printf("::: DISPLAY CLIP MASK NOW\n");
-
-           XPutImage(display, xwindow, screenGC, dst_ximage, 0, 0,
-                     0, 13 * TILEY + height, width, height);
-
-           printf("::: DISPLAY CLIP MASK DONE\n");
-         }
-       }
-#endif
-
-       /* ----------------------------------------------------------------- */
-
-#if 0
-         {
-           XImage *dst_ximage;
-
-           printf("::: GET IMAGE ...\n");
-
-           dst_ximage = XGetImage(display, xwindow, 0, 0,
-                                  16, 16, AllPlanes, ZPixmap);
-           if (dst_ximage == NULL)
-           {
-             printf("dst_ximage failed\n");
-             exit(1);
-           }
-
-           printf("::: PUT IMAGE ...\n");
-
-           XPutImage(display, xwindow, screenGC, dst_ximage, 0, 0,
-                     0, 13 * TILEY, 10, 10);
+  return 0;
+}
 
-           printf("::: PUT IMAGE DONE\n");
-         }
-#endif
+void InitGfxBuffers_EM()
+{
+  ReCreateBitmap(&screenBitmap, MAX_BUF_XSIZE * TILEX, MAX_BUF_YSIZE * TILEY,
+                DEFAULT_DEPTH);
 
-       /* ----------------------------------------------------------------- */
+  global_em_info.screenbuffer = screenBitmap;
+}
 
-#if defined(PLATFORM_LINUX) || defined(PLATFORM_BSD)
-       if(arg_silence == 0) {
-               for(i = 0; i < SAMPLE_MAX; i++) {
-                       name[MAXNAME] = 0;
-                       if(arg_basedir) {
-                               snprintf(name, MAXNAME+2, "%s/%s/%s", arg_basedir, EM_SND_DIR, sound_names[i]);
-                       } else {
-                               snprintf(name, MAXNAME+2, "%s/%s", EM_SND_DIR, sound_names[i]);
-                       }
-                       if(name[MAXNAME]) snprintf_overflow("read sounds/ directory");
+void em_open_all()
+{
+  /* pre-calculate some data */
+  tab_generate();
 
-                       if(read_sample(name, &sound_data[i], &sound_length[i])) return(1);
+  progname = "emerald mine";
 
-                       {
-                               short *ptr, *stop;
-                               int mult = sound_volume[i] * 65536 / (100 * MIXER_MAX);
-                               stop = sound_data[i] + sound_length[i];
-                               for(ptr = sound_data[i]; ptr < stop; ptr++) *ptr = (*ptr * mult) / 65536;
-                       }
-               }
+  if (open_all() != 0)
+    Error(ERR_EXIT, "em_open_all(): open_all() failed");
 
-               if(pipe(sound_pipe) == -1) {
-                       fprintf(stderr, "%s: %s: %s\n", progname, "unable to create sound pipe", strerror(errno));
-                       return(1);
-               }
-               sound_pid = fork();
-               if(sound_pid == -1) {
-                       fprintf(stderr, "%s: %s: %s\n", progname, "unable to fork sound thread", strerror(errno));
-                       return(1);
-               }
-               close(sound_pipe[sound_pid == 0]); sound_pipe[sound_pid == 0] = -1;
-               if(sound_pid == 0) _exit(sound_thread());
-               signal(SIGPIPE, SIG_IGN); /* dont crash if sound process dies */
-       }
-#endif /* defined(PLATFORM_LINUX) || defined(PLATFORM_BSD) */
+  /* after "open_all()", because we need the graphic bitmaps to be defined */
+  tab_generate_graphics_info_em();
 
-       return(0);
+  game_init_vars();
 }
 
-void close_all(void)
+void em_close_all(void)
 {
-       int i;
-
-       if(sound_pid != -1) {
-               kill(sound_pid, SIGTERM);
-               waitpid(sound_pid, 0, 0);
-       }
-       if(sound_pipe[0] != -1) close(sound_pipe[0]);
-       if(sound_pipe[1] != -1) close(sound_pipe[1]);
-       for(i = 0; i < SAMPLE_MAX; i++) if(sound_data[i]) free(sound_data[i]);
+}
 
-#if 0
-       for(i = 0; i < 4; i++) if(xpmPixmaps[i]) XFreePixmap(display, xpmPixmaps[i]);
-       for(i = 0; i < 4; i++) if(xpmBitmaps[i]) XFreePixmap(display, xpmBitmaps[i]);
-       for(i = 0; i < 4; i++) if(xpmGot[i]) {
-               xpmFreeColoursFunc(display, xpmAttributes[i].colormap, xpmAttributes[i].alloc_pixels, xpmAttributes[i].nalloc_pixels, 0);
-               XpmFreeAttributes(&xpmAttributes[i]);
-       }
-#endif
+/* ---------------------------------------------------------------------- */
 
-       if(gotRed) xpmFreeColoursFunc(display, privateColourmap ? privateColourmap : defaultColourmap, &redColour.pixel, 1, 0);
-       if(gotWhite) xpmFreeColoursFunc(display, privateColourmap ? privateColourmap : defaultColourmap, &whiteColour.pixel, 1, 0);
+extern int screen_x;
+extern int screen_y;
 
-       if(screenGC) XFreeGC(display, screenGC);
-       if(scoreGC) XFreeGC(display, scoreGC);
-       if(spriteGC) XFreeGC(display, spriteGC);
-       if(antsGC) XFreeGC(display, antsGC);
-       if(screenPixmap) XFreePixmap(display, screenPixmap);
-       if(scorePixmap) XFreePixmap(display, scorePixmap);
-       if(spriteBitmap) XFreePixmap(display, spriteBitmap);
-       if(xwindow) XDestroyWindow(display, xwindow);
-       if(cursor) XFreeCursor(display, cursor);
-       if(privateColourmap) XFreeColormap(display, privateColourmap);
-       if(privateColours) free(privateColours);
-       if(privateFlags) free(privateFlags);
-       if(display) XCloseDisplay(display);
+void play_element_sound(int x, int y, int sample, int element)
+{
+  PlayLevelSound_EM(x, y, element, sample);
 }
 
-/* ---------------------------------------------------------------------- */
+void play_sound(int x, int y, int sample)
+{
+  play_element_sound(x, y, sample, -1);
+}
 
 void sound_play(void)
 {
-       if(sound_pipe[1] != -1) {
-               if(write(sound_pipe[1], &play, sizeof(play)) == -1) {
-                       fprintf(stderr, "%s: %s: %s\n", progname, "write sound", strerror(errno));
-                       if(sound_pipe[0] != -1) { close(sound_pipe[0]); sound_pipe[0] = -1; }
-                       if(sound_pipe[1] != -1) { close(sound_pipe[1]); sound_pipe[1] = -1; }
-               }
-       }
-       memset(play, 0, sizeof(play));
 }
 
-/* ---------------------------------------------------------------------- */
-
-static int xpmAllocColourFunc(Display *display, Colormap colourmap, char *colourname, XColor *xcolour, void *closure)
+unsigned int InitEngineRandom_EM(int seed)
 {
-       int i, match;
-       int r,g,b;
-       long best, sum;
-
-       if(colourname) if(XParseColor(display, colourmap, colourname, xcolour) == 0) return(-1); /* invalid name */
-       if(colourmap != privateColourmap) return(XAllocColor(display, colourmap, xcolour) != 0);
+  if (seed == NEW_RANDOMIZE)
+  {
+    int simple_rnd = GetSimpleRandom(1000);
+    int i;
 
-/* first try to find an exact match */
-       match = -1;
-       for(i = 0; i < privateNumColours; i++) {
-               if(privateColours[i].red == xcolour->red && privateColours[i].green == xcolour->green && privateColours[i].blue == xcolour->blue) match = i;
-       }
-       if(match != -1) {
-               privateFlags[match] = 1;
-               xcolour->pixel = privateColours[match].pixel;
-               return(1);
-       }
+    for (i = 0; i < simple_rnd || RandomEM == NEW_RANDOMIZE; i++)
+      RandomEM = RandomEM * 129 + 1;
 
-/* then find an unallocated colour that is close to what we want */
-       match = -1;
-       best = 1000000;
-       for(i = 0; i < privateNumColours; i++) {
-               if(privateFlags[i]) continue; /* skip if it is already allocated */
-               r = (privateColours[i].red - xcolour->red) / 256;
-               g = (privateColours[i].green - xcolour->green) / 256;
-               b = (privateColours[i].blue - xcolour->blue) / 256;
-               sum = r * r + g * g + b * b;
-               if(sum < best) {
-                       best = sum;
-                       match = i;
-               }
-       }
-       if(match != -1) {
-               privateFlags[match] = 1;
-               privateColours[match].red = xcolour->red;
-               privateColours[match].green = xcolour->green;
-               privateColours[match].blue = xcolour->blue;
-               XStoreColor(display, colourmap, &privateColours[match]);
-               xcolour->pixel = privateColours[match].pixel;
-               return(1); /* found a close match */
-       }
+    seed = RandomEM;
+  }
 
-/* if all else fails, just find the closest colour and return it */
-       match = -1;
-       best = 1000000;
-       for(i = 0; i < privateNumColours; i++) {
-               r = (privateColours[i].red - xcolour->red) / 256;
-               g = (privateColours[i].green - xcolour->green) / 256;
-               b = (privateColours[i].blue - xcolour->blue) / 256;
-               sum = r * r + g * g + b * b;
-               if(sum < best) {
-                       best = sum;
-                       match = i;
-               }
-       }
-       if(match != -1) {
-               xcolour->red = privateColours[match].red;
-               xcolour->green = privateColours[match].green;
-               xcolour->blue = privateColours[match].blue;
-               xcolour->pixel = privateColours[match].pixel;
-               return(1); /* best we could do */
-       }
-       return(0); /* still didnt find one, give up */
-}
+  RandomEM = seed;
 
-static int xpmFreeColoursFunc(Display *display, Colormap colourmap, unsigned long *pixels, int npixels, void *closure)
-{
-       if(colourmap != privateColourmap) XFreeColors(display, colourmap, pixels, npixels, 0);
-       return(1); /* non-zero for success */
+  return (unsigned int) seed;
 }
-
-#endif