removed some remaining unused X11 stuff
[rocksndiamonds.git] / src / game_em / init.c
index 55b9d177a70da21f656c4020188e8626fb07a6de..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;
-
-#if 0
-static XSizeHints sizeHints;
-static XSetWindowAttributes setWindowAttributes;
-static XWMHints wmHints;
-static XVisualInfo visualInfo;
-#endif
-static XGCValues gcValues;
-
-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
+struct GlobalInfo_EM global_em_info;
+struct GameInfo_EM game_em;
 
-static int xpmAllocColourFunc(Display *, Colormap, char *, XColor *, void *);
-static int xpmFreeColoursFunc(Display *, Colormap, unsigned long *, int, void *);
+char *progname;
+char *arg_basedir;
 
-static KeyCode keycodes[16];
+extern void tab_generate();
+extern void tab_generate_graphics_info_em();
 
-#if 0
-static const char *xpmNames[4] =
+int open_all(void)
 {
-  "object.xpm",
-  "score.xpm",
-  "sprite.xpm",
-  "title.xpm"
-};
-#endif
+  Bitmap *emc_bitmaps[2];
 
-#if 1
-static const char *pcxNames[4] =
-{
-  "object.pcx",
-  "score.pcx",
-  "sprite.pcx",
-  "title.pcx"
-};
-#endif
+  SetBitmaps_EM(emc_bitmaps);
 
-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
-};
+  objBitmap = emc_bitmaps[0];
+  sprBitmap = emc_bitmaps[1];
 
-#if 0
-static void xdebug(char *msg)
-{
-#if 1
-  XSync(display, False);
-  printf("EM DEBUG: %s\n", msg);
-#endif
+  return 0;
 }
-#endif
 
-int open_all(void)
+void InitGfxBuffers_EM()
 {
-  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);
-
-    /* first two entries (black and white) are already allocated */
-    privateFlags[0] = 1;
-    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(MAX_BUF_XSIZE * TILEX, MAX_BUF_YSIZE * TILEY,
-                             DEFAULT_DEPTH);
-  scoreBitmap = CreateBitmap(20 * TILEX, SCOREY, DEFAULT_DEPTH);
-#endif
-
-  screenPixmap = XCreatePixmap(display, xwindow,
-                              MAX_BUF_XSIZE * TILEX, MAX_BUF_YSIZE * 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);
-      }
+  ReCreateBitmap(&screenBitmap, MAX_BUF_XSIZE * TILEX, MAX_BUF_YSIZE * TILEY,
+                DEFAULT_DEPTH);
 
-      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, 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(): XC        reateImage() 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);
-
-    printf("::: PUT IMAGE DONE\n");
-  }
-#endif
-
-  /* ----------------------------------------------------------------- */
-
-#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");
-
-      if (read_sample(name, &sound_data[i], &sound_length[i]))
-       return(1);
-
-      {
-       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 (pipe(sound_pipe) == -1)
-    {
-      fprintf(stderr, "%s: %s: %s\n", progname, "unable to create sound pipe",
-             strerror(errno));
-      return(1);
-    }
+  global_em_info.screenbuffer = screenBitmap;
+}
 
-    sound_pid = fork();
-    if (sound_pid == -1)
-    {
-      fprintf(stderr, "%s: %s: %s\n", progname, "unable to fork sound thread",
-             strerror(errno));
-      return(1);
-    }
+void em_open_all()
+{
+  /* pre-calculate some data */
+  tab_generate();
 
-    close(sound_pipe[sound_pid == 0]); sound_pipe[sound_pid == 0] = -1;
-    if (sound_pid == 0)
-      _exit(sound_thread());
+  progname = "emerald mine";
 
-    signal(SIGPIPE, SIG_IGN); /* dont crash if sound process dies */
-  }
+  if (open_all() != 0)
+    Error(ERR_EXIT, "em_open_all(): open_all() failed");
 
-#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 0
-  if (display)
-    XCloseDisplay(display);
-#endif
+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);
-
-  /* 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);
-  }
-
-  /* then find an unallocated colour that is close to what we want */
-  match = -1;
-  best = 1000000;
-  for (i = 0; i < privateNumColours; i++)
+  if (seed == NEW_RANDOMIZE)
   {
-    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;
+    int simple_rnd = GetSimpleRandom(1000);
+    int i;
 
-    if (sum < best)
-    {
-      best = sum;
-      match = i;
-    }
-  }
+    for (i = 0; i < simple_rnd || RandomEM == NEW_RANDOMIZE; i++)
+      RandomEM = RandomEM * 129 + 1;
 
-  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;
-    }
-  }
+  RandomEM = seed;
 
-  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 */
+  return (unsigned int) 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 */
-}
-
-#endif