src/game_em/convert.c

   1 /* 2000-08-20T09:41:18Z
   2  *
   3  * identify all emerald mine caves and turn them into v6 format.
   4  * fixes illegal tiles, acid, wheel, limits times, cleans flags.
   5  *
   6  * these tables weed out bad tiles for older caves (eg. wheel on -> wheel off)
   7  * and clean up v6 caves (acid, number limits) which should(!) be
   8  * inconsequential, but no doubt it will break some caves.
   9  */
  10
  11 #include "global.h"
  12 #include "tile.h"
  13 #include "level.h"
  14
  15
  16 static unsigned char remap_v6[256] =
  17 {
  18   /* filter crap for v6 */
  19
  20   0,0,2,2,4,4,118,118,8,9,10,11,12,13,14,15,
  21   16,16,18,18,20,21,22,23,24,25,26,27,28,28,118,28,
  22   0,16,2,18,36,37,37,37,40,41,42,43,44,45,128,128,
  23   128,148,148,148,45,45,45,148,0,57,58,59,60,61,62,63,
  24   64,65,66,67,68,69,69,69,69,73,74,75,118,75,75,75,
  25   75,75,75,75,75,153,153,153,153,153,153,153,153,153,153,153,
  26   153,153,153,99,100,68,68,68,68,68,68,68,68,118,118,118,
  27   118,118,114,115,131,118,118,119,120,121,122,118,118,118,118,118,
  28   128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,
  29   144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,
  30   160,161,162,163,164,165,165,118,168,169,170,171,172,173,174,175,
  31   176,177,178,179,180,181,182,183,184,185,186,187,188,189,68,191,
  32   192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,
  33   208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,
  34   224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,
  35   240,241,242,243,244,245,153,153,153,153,153,153,153,153,153,153
  36 };
  37
  38 static unsigned char remap_v5[256] =
  39 {
  40   /* filter crap for v5 */
  41
  42   0,0,2,2,4,4,118,118,8,9,10,11,12,13,14,15,
  43   16,16,18,18,20,21,22,23,24,25,26,27,28,28,118,28,
  44   0,16,2,18,36,37,37,37,147,41,42,43,44,45,128,128,
  45   128,148,148,148,45,45,45,148,0,57,58,59,60,61,62,63,
  46   64,65,66,67,68,153,153,153,153,153,153,153,153,153,153,153,
  47   153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,
  48   153,153,153,153,153,68,68,68,68,68,68,68,68,118,118,118,
  49   118,118,114,115,131,118,118,119,120,121,122,118,118,118,118,118,
  50   128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,
  51   144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,
  52   160,153,153,153,153,153,153,118,168,169,170,171,172,173,174,175,
  53   176,177,178,179,180,181,182,183,184,185,186,187,188,189,68,153,
  54   153,153,153,153,153,153,153,153,200,201,202,203,204,205,206,207,
  55   208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,
  56   224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,
  57   240,241,153,153,153,153,153,153,153,153,153,153,153,153,153,153
  58 };
  59
  60 static unsigned char remap_v4[256] =
  61 {
  62   /* filter crap for v4 */
  63
  64   0,0,2,2,4,4,118,118,8,9,10,11,12,13,14,15,
  65   16,16,18,18,20,21,22,23,24,25,26,27,28,28,118,28,
  66   0,16,2,18,36,37,37,37,147,41,42,43,44,45,128,128,
  67   128,148,148,148,45,45,45,148,0,153,153,59,60,61,62,63,
  68   64,65,66,153,153,153,153,153,153,153,153,153,153,153,153,153,
  69   153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,
  70   153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,
  71   153,118,114,115,131,118,118,119,120,121,122,118,118,118,118,118,
  72   128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,
  73   144,145,146,147,148,149,150,151,152,68,154,155,156,157,158,160,
  74   160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,175,
  75   153,153,153,153,153,153,153,153,153,153,153,153,153,153,68,153,
  76   153,153,153,153,153,153,153,153,200,201,202,203,204,205,206,207,
  77   208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,
  78   224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,
  79   240,241,153,153,153,153,153,153,153,153,153,153,153,153,153,153
  80 };
  81
  82 static unsigned char remap_v4eater[28] =
  83 {
  84   /* filter crap for v4 */
  85
  86   128,18,2,0,4,8,16,20,28,37,
  87   41,45,130,129,131,132,133,134,135,136,
  88   146,147,175,65,66,64,2,18
  89 };
  90
  91 int cleanup_em_level(unsigned char *src, int length)
  92 {
  93   int file_version = 0;
  94   int i;
  95
  96   if (length >= 2172 &&
  97       src[2106] == 255 &&
  98       src[2107] == 54 &&
  99       src[2108] == 48 &&
 100       src[2109] == 48)
 101   {
 102     /* ---------- this cave has V6 file format ---------- */
 103     file_version = FILE_VERSION_EM_V6;
 104
 105     for (i = 0; i < 2048; i++)
 106       src[i] = remap_v6[src[i]];
 107     for (i = 2048; i < 2084; i++)
 108       src[i] = remap_v6[src[i]];
 109     for (i = 2112; i < 2148; i++)
 110       src[i] = remap_v6[src[i]];
 111   }
 112   else if (length >= 2110 &&
 113            src[2106] == 255 &&
 114            src[2107] == 53 &&
 115            src[2108] == 48 &&
 116            src[2109] == 48)
 117   {
 118     /* ---------- this cave has V5 file format ---------- */
 119     file_version = FILE_VERSION_EM_V5;
 120
 121     for (i = 0; i < 2048; i++)
 122       src[i] = remap_v5[src[i]];
 123     for (i = 2048; i < 2084; i++)
 124       src[i] = remap_v5[src[i]];
 125     for (i = 2112; i < 2148; i++)
 126       src[i] = src[i - 64];
 127   }
 128   else if (length >= 2106 &&
 129            src[1983] == 116)
 130   {
 131     /* ---------- this cave has V4 file format ---------- */
 132     file_version = FILE_VERSION_EM_V4;
 133
 134     for (i = 0; i < 2048; i++)
 135       src[i] = remap_v4[src[i]];
 136     for (i = 2048; i < 2084; i++)
 137       src[i] = remap_v4eater[src[i] >= 28 ? 0 : src[i]];
 138     for (i = 2112; i < 2148; i++) src[i] = src[i - 64];
 139   }
 140   else if (length >= 2106 &&
 141            src[0] == 241 &&
 142            src[1983] == 27)
 143   {
 144     unsigned char j = 94;
 145
 146     /* ---------- this cave has V3 file format ---------- */
 147     file_version = FILE_VERSION_EM_V3;
 148
 149     for (i = 0; i < 2106; i++)
 150       src[i] = (src[i] ^ (j += 7)) - 0x11;
 151     src[1] = 131;
 152     for (i = 0; i < 2048; i++)
 153       src[i] = remap_v4[src[i]];
 154     for (i = 2048; i < 2084; i++)
 155       src[i] = remap_v4eater[src[i] >= 28 ? 0 : src[i]];
 156     for (i = 2112; i < 2148; i++)
 157       src[i] = src[i - 64];
 158   }
 159   else
 160   {
 161     /* ---------- this cave has unknown file format ---------- */
 162
 163     return 0;
 164   }
 165
 166   if (file_version < FILE_VERSION_EM_V6)
 167   {
 168     /* id */
 169     src[2106] = 255;
 170     src[2107] = 54;
 171     src[2108] = 48;
 172     src[2109] = 48;
 173
 174     /* time */
 175     i = src[2094] * 10;
 176     src[2110] = i >> 8;
 177     src[2111] = i;
 178
 179     for (i = 2148; i < 2172; i++)
 180       src[i] = 0;
 181
 182     /* ball data */
 183     src[2159] = 128;
 184   }
 185
 186   /* ---------- at this stage, the cave data always has V6 format ---------- */
 187
 188   /* fix wheel */
 189   for (i = 0; i < 2048; i++)
 190     if (src[i] == 40)
 191       break;
 192   for (i++; i < 2048; i++)
 193     if (src[i] == 40)
 194       src[i] = 147;
 195
 196   /* fix acid */
 197   for (i = 64; i < 2048; i++)
 198     if (src[i] == 63)
 199       src[i - 64] = 101;
 200
 201   /* fix acid in eater 1 */
 202   for (i = 2051; i < 2057; i++)
 203     if (src[i] == 63)
 204       src[i - 3] = 101;
 205
 206   /* fix acid in eater 2 */
 207   for (i = 2060; i < 2066; i++)
 208     if (src[i] == 63)
 209       src[i - 3] = 101;
 210
 211   /* fix acid in eater 3 */
 212   for (i = 2069; i < 2075; i++)
 213     if (src[i] == 63)
 214       src[i - 3] = 101;
 215
 216   /* fix acid in eater 4 */
 217   for (i = 2078; i < 2084; i++)
 218     if (src[i] == 63)
 219       src[i - 3] = 101;
 220
 221   /* fix acid in eater 5 */
 222   for (i = 2115; i < 2121; i++)
 223     if (src[i] == 63)
 224       src[i - 3] = 101;
 225
 226   /* fix acid in eater 6 */
 227   for (i = 2124; i < 2130; i++)
 228     if (src[i] == 63)
 229       src[i - 3] = 101;
 230
 231   /* fix acid in eater 7 */
 232   for (i = 2133; i < 2139; i++)
 233     if (src[i] == 63)
 234       src[i - 3] = 101;
 235
 236   /* fix acid in eater 8 */
 237   for (i = 2142; i < 2148; i++)
 238     if (src[i] == 63)
 239       src[i - 3] = 101;
 240
 241   /* old style time */
 242   src[2094] = 0;
 243
 244   /* player 1 pos */
 245   src[2096] &= 7;
 246   src[src[2096] << 8 | src[2097]] = 128;
 247
 248   /* player 2 pos */
 249   src[2098] &= 7;
 250   src[src[2098] << 8 | src[2099]] = 128;
 251
 252   /* amoeba speed */
 253   if ((src[2100] << 8 | src[2101]) > 9999)
 254   {
 255     src[2100] = 39;
 256     src[2101] = 15;
 257   }
 258
 259   /* time wonderwall */
 260   if ((src[2102] << 8 | src[2103]) > 9999)
 261   {
 262     src[2102] = 39;
 263     src[2103] = 15;
 264   }
 265
 266   /* time */
 267   if ((src[2110] << 8 | src[2111]) > 9999)
 268   {
 269     src[2110] = 39;
 270     src[2111] = 15;
 271   }
 272
 273   /* wind direction */
 274   i = src[2149];
 275   i &= 15;
 276   i &= -i;
 277   src[2149] = i;
 278
 279   /* time lenses */
 280   if ((src[2154] << 8 | src[2155]) > 9999)
 281   {
 282     src[2154] = 39;
 283     src[2155] = 15;
 284   }
 285
 286   /* time magnify */
 287   if ((src[2156] << 8 | src[2157]) > 9999)
 288   {
 289     src[2156] = 39;
 290     src[2157] = 15;
 291   }
 292
 293   /* ball object */
 294   src[2158] = 0;
 295   src[2159] = remap_v6[src[2159]];
 296
 297   /* ball pause */
 298   if ((src[2160] << 8 | src[2161]) > 9999)
 299   {
 300     src[2160] = 39;
 301     src[2161] = 15;
 302   }
 303
 304   /* ball data */
 305   src[2162] &= 129;
 306   if (src[2162] & 1)
 307     src[2163] = 0;
 308
 309   /* android move pause */
 310   if ((src[2164] << 8 | src[2165]) > 9999)
 311   {
 312     src[2164] = 39;
 313     src[2165] = 15;
 314   }
 315
 316   /* android clone pause */
 317   if ((src[2166] << 8 | src[2167]) > 9999)
 318   {
 319     src[2166] = 39;
 320     src[2167] = 15;
 321   }
 322
 323   /* android data */
 324   src[2168] &= 31;
 325
 326   /* size of v6 cave */
 327   length = 2172;
 328
 329   return file_version;
 330 }
 331
 332 /* 2000-07-30T00:26:00Z
 333  *
 334  * Read emerald mine caves version 6
 335  *
 336  * v4 and v5 emerald mine caves are converted to v6 (which completely supports
 337  * older versions)
 338  *
 339  * converting to the internal format loses /significant/ information which can
 340  * break lots of caves.
 341  *
 342  * major incompatibilities:
 343  * - borderless caves behave completely differently, the player no longer
 344  *   "warps" to the other side.
 345  * - a compile time option for spring can make it behave differently when it
 346  *   rolls.
 347  * - a compile time option for rolling objects (stone, nut, spring, bomb) only
 348  *   in eater.
 349  * - acid is always deadly even with no base beneath it.
 350  *
 351  * so far all below have not broken any caves:
 352  *
 353  * - active wheel inside an eater will not function, eater explosions will not
 354  *   change settings.
 355  * - initial collect objects (emerald, diamond, dynamite) don't exist.
 356  * - initial rolling objects will be moved manually and made into sitting
 357  *   objects.
 358  * - drips always appear from dots.
 359  * - more than one thing can fall into acid at the same time.
 360  * - acid explodes when the player walks into it, rather than splashing.
 361  * - simultaneous explosions may be in a slightly different order.
 362  * - quicksand states have been reduced.
 363  * - acid base is effectively an indestructable wall now which can affect eater
 364  *   explosions.
 365  * - android can clone forever with a clone pause of 0 (emeralds, diamonds,
 366  *   nuts, stones, bombs, springs).
 367  *
 368  * 2001-03-12T02:46:55Z
 369  * - rolling stuff is now allowed in the cave, i didn't like making this
 370  *   decision.
 371  * - if BAD_ROLL is not defined, initial rolling objects are moved by hand.
 372  * - initial collect objects break some cave in elvis mine 5.
 373  * - different timing for wonderwall break some cave in exception mine 2.
 374  * - i think i'm pretty locked into always using the bad roll. *sigh*
 375  * - rolling spring is now turned into regular spring. it appears the emc
 376  *   editor only uses the force code for initially moving spring. i will
 377  *   follow this in my editor.
 378  */
 379
 380 static unsigned short remap_emerald[256] =
 381 {
 382   Xstone, Xstone, Xdiamond, Xdiamond, Xalien, Xalien, Xblank, Xblank,
 383   Xtank_n, Xtank_e, Xtank_s, Xtank_w, Xtank_gon, Xtank_goe, Xtank_gos, Xtank_gow,
 384   Xbomb, Xbomb, Xemerald, Xemerald, Xbug_n, Xbug_e, Xbug_s, Xbug_w,
 385   Xbug_gon, Xbug_goe, Xbug_gos, Xbug_gow, Xdrip_eat, Xdrip_eat, Xdrip_eat, Xdrip_eat,
 386   Xstone, Xbomb, Xdiamond, Xemerald, Xwonderwall, Xnut, Xnut, Xnut,
 387   Xwheel, Xeater_n, Xeater_s, Xeater_w, Xeater_e, Xsand_stone, Xblank, Xblank,
 388   Xblank, Xsand, Xsand, Xsand, Xsand_stone, Xsand_stone, Xsand_stone, Xsand,
 389   Xstone, Xgrow_ew, Xgrow_ns, Xdynamite_1, Xdynamite_2, Xdynamite_3, Xdynamite_4, Xacid_s,
 390   Xexit_1, Xexit_2, Xexit_3, Xballoon, Xplant, Xspring, Xspring, Xspring,
 391   Xspring, Xball_1, Xball_2, Xandroid, Xblank, Xandroid, Xandroid, Xandroid,
 392   Xandroid, Xandroid, Xandroid, Xandroid, Xandroid, Xblank, Xblank, Xblank,
 393   Xblank, Xblank, Xblank, Xblank, Xblank, Xblank, Xblank, Xblank,
 394
 395 #ifdef BAD_ROLL
 396
 397   Xblank, Xblank, Xblank, Xspring_force_w, Xspring_force_e, Xacid_1, Xacid_2, Xacid_3,
 398   Xacid_4, Xacid_5, Xacid_6, Xacid_7, Xacid_8, Xblank, Xblank, Xblank,
 399   Xblank, Xblank, Xnut_force_w, Xnut_force_e, Xsteel_1, Xblank, Xblank, Xbomb_force_w,
 400   Xbomb_force_e, Xstone_force_w, Xstone_force_e, Xblank, Xblank, Xblank, Xblank, Xblank,
 401
 402 #else
 403
 404   Xblank, Xblank, Xblank, Xspring, Xspring, Xacid_1, Xacid_2, Xacid_3,
 405   Xacid_4, Xacid_5, Xacid_6, Xacid_7, Xacid_8, Xblank, Xblank, Xblank,
 406   Xblank, Xblank, Xnut, Xnut, Xsteel_1, Xblank, Xblank, Xbomb,
 407   Xbomb, Xstone, Xstone, Xblank, Xblank, Xblank, Xblank, Xblank,
 408
 409 #endif
 410
 411   Xblank, Xround_wall_1, Xgrass, Xsteel_1, Xwall_1, Xkey_1, Xkey_2, Xkey_3,
 412   Xkey_4, Xdoor_1, Xdoor_2, Xdoor_3, Xdoor_4, Xdripper, Xfake_door_1, Xfake_door_2,
 413   Xfake_door_3, Xfake_door_4, Xwonderwall, Xwheel, Xsand, Xacid_nw, Xacid_ne, Xacid_sw,
 414   Xacid_se, Xfake_blank, Xamoeba_1, Xamoeba_2, Xamoeba_3, Xamoeba_4, Xexit, Xalpha_arrow_w,
 415   Xfake_grass, Xlenses, Xmagnify, Xfake_blank, Xfake_grass, Xswitch, Xswitch, Xblank,
 416   Xdecor_8, Xdecor_9, Xdecor_10, Xdecor_5, Xalpha_comma, Xalpha_quote, Xalpha_minus, Xdynamite,
 417   Xsteel_3, Xdecor_6, Xdecor_7, Xsteel_2, Xround_wall_2, Xdecor_2, Xdecor_4, Xdecor_3,
 418   Xwind_nesw, Xwind_e, Xwind_s, Xwind_w, Xwind_n, Xdirt, Xplant, Xkey_5,
 419   Xkey_6, Xkey_7, Xkey_8, Xdoor_5, Xdoor_6, Xdoor_7, Xdoor_8, Xbumper,
 420   Xalpha_a, Xalpha_b, Xalpha_c, Xalpha_d, Xalpha_e, Xalpha_f, Xalpha_g, Xalpha_h,
 421   Xalpha_i, Xalpha_j, Xalpha_k, Xalpha_l, Xalpha_m, Xalpha_n, Xalpha_o, Xalpha_p,
 422   Xalpha_q, Xalpha_r, Xalpha_s, Xalpha_t, Xalpha_u, Xalpha_v, Xalpha_w, Xalpha_x,
 423   Xalpha_y, Xalpha_z, Xalpha_0, Xalpha_1, Xalpha_2, Xalpha_3, Xalpha_4, Xalpha_5,
 424   Xalpha_6, Xalpha_7, Xalpha_8, Xalpha_9, Xalpha_perio, Xalpha_excla, Xalpha_colon, Xalpha_quest,
 425   Xalpha_arrow_e, Xdecor_1, Xfake_door_5, Xfake_door_6, Xfake_door_7, Xfake_door_8, Xblank, Xblank,
 426   Xblank, Xblank, Xblank, Xblank, Xblank, Xblank, Xblank, Xblank,
 427 };
 428
 429 void convert_em_level(unsigned char *src, int file_version)
 430 {
 431   static int eater_offset[8] =
 432   {
 433     0x800, 0x809, 0x812, 0x81B, 0x840, 0x849, 0x852, 0x85B
 434   };
 435   unsigned int i, x, y, temp;
 436
 437   temp = ((src[0x83E] << 8 | src[0x83F]) * 25 + 3) / 4;
 438   if (temp == 0 || temp > 9999)
 439     temp = 9999;
 440   lev.time_initial = temp;
 441   lev.required_initial = src[0x82F];
 442
 443   temp = src[0x830] << 8 | src[0x831];
 444   ply1.x_initial = (temp & 63) + 1;
 445   ply1.y_initial = (temp >> 6 & 31) + 1;
 446   temp = src[0x832] << 8 | src[0x833];
 447   ply2.x_initial = (temp & 63) + 1;
 448   ply2.y_initial = (temp >> 6 & 31) + 1;
 449
 450   temp = (src[0x834] << 8 | src[0x835]) * 28;
 451   if (temp > 9999)
 452     temp = 9999;
 453   lev.amoeba_time = temp;
 454
 455   lev.android_move_time = src[0x874] << 8 | src[0x875];
 456   lev.android_clone_time = src[0x876] << 8 | src[0x877];
 457
 458   lev.ball_random = src[0x872] & 1 ? 1 : 0;
 459   lev.ball_state_initial = src[0x872] & 128 ? 1 : 0;
 460   lev.ball_time = src[0x870] << 8 | src[0x871];
 461
 462   lev.emerald_score = src[0x824];
 463   lev.diamond_score = src[0x825];
 464   lev.alien_score = src[0x826];
 465   lev.tank_score = src[0x827];
 466   lev.bug_score = src[0x828];
 467   lev.eater_score = src[0x829];
 468   lev.nut_score = src[0x82A];
 469   lev.dynamite_score = src[0x82B];
 470   lev.key_score = src[0x82C];
 471   lev.exit_score = src[0x82D] * 8 / 5;
 472   lev.lenses_score = src[0x867];
 473   lev.magnify_score = src[0x868];
 474   lev.slurp_score = src[0x869];
 475
 476   lev.lenses_time = src[0x86A] << 8 | src[0x86B];
 477   lev.magnify_time = src[0x86C] << 8 | src[0x86D];
 478   lev.wheel_time = src[0x838] << 8 | src[0x839];
 479
 480   lev.wind_cnt_initial = src[0x865] & 15 ? lev.wind_time : 0;
 481   temp = src[0x865];
 482   lev.wind_direction_initial = (temp & 8 ? 0 :
 483                                 temp & 1 ? 1 :
 484                                 temp & 2 ? 2 :
 485                                 temp & 4 ? 3 : 0);
 486
 487   lev.wonderwall_time_initial = src[0x836] << 8 | src[0x837];
 488
 489   for (i = 0; i < 8; i++)
 490     for (x = 0; x < 9; x++)
 491       lev.eater_array[i][x] = remap_emerald[src[eater_offset[i] + x]];
 492
 493   temp = remap_emerald[src[0x86F]];
 494   for (y = 0; y < 8; y++)
 495   {
 496     if (src[0x872] & 1)
 497     {
 498       for (x = 0; x < 8; x++)
 499         lev.ball_array[y][x] = temp;
 500     }
 501     else
 502     {
 503       lev.ball_array[y][1] = (src[0x873] & 1)  ? temp : Xblank; /* north */
 504       lev.ball_array[y][6] = (src[0x873] & 2)  ? temp : Xblank; /* south */
 505       lev.ball_array[y][3] = (src[0x873] & 4)  ? temp : Xblank; /* west */
 506       lev.ball_array[y][4] = (src[0x873] & 8)  ? temp : Xblank; /* east */
 507       lev.ball_array[y][7] = (src[0x873] & 16) ? temp : Xblank; /* southeast */
 508       lev.ball_array[y][5] = (src[0x873] & 32) ? temp : Xblank; /* southwest */
 509       lev.ball_array[y][2] = (src[0x873] & 64) ? temp : Xblank; /* northeast */
 510       lev.ball_array[y][0] = (src[0x873] & 128)? temp : Xblank; /* northwest */
 511     }
 512   }
 513
 514   temp = src[0x878] << 8 | src[0x879];
 515
 516   if (temp & 1)
 517   {
 518     lev.android_array[Xemerald] =
 519       lev.android_array[Xemerald_pause] =
 520       lev.android_array[Xemerald_fall] =
 521       lev.android_array[Yemerald_sB] =
 522       lev.android_array[Yemerald_eB] =
 523       lev.android_array[Yemerald_wB] = Xemerald;
 524   }
 525
 526   if (temp & 2)
 527   {
 528     lev.android_array[Xdiamond] =
 529       lev.android_array[Xdiamond_pause] =
 530       lev.android_array[Xdiamond_fall] =
 531       lev.android_array[Ydiamond_sB] =
 532       lev.android_array[Ydiamond_eB] =
 533       lev.android_array[Ydiamond_wB] = Xdiamond;
 534   }
 535
 536   if (temp & 4)
 537   {
 538     lev.android_array[Xstone] =
 539       lev.android_array[Xstone_pause] =
 540       lev.android_array[Xstone_fall] =
 541       lev.android_array[Ystone_sB] =
 542       lev.android_array[Ystone_eB] =
 543       lev.android_array[Ystone_wB] = Xstone;
 544   }
 545
 546   if (temp & 8)
 547   {
 548     lev.android_array[Xbomb] =
 549       lev.android_array[Xbomb_pause] =
 550       lev.android_array[Xbomb_fall] =
 551       lev.android_array[Ybomb_sB] =
 552       lev.android_array[Ybomb_eB] =
 553       lev.android_array[Ybomb_wB] = Xbomb;
 554   }
 555
 556   if (temp & 16)
 557   {
 558     lev.android_array[Xnut] =
 559       lev.android_array[Xnut_pause] =
 560       lev.android_array[Xnut_fall] =
 561       lev.android_array[Ynut_sB] =
 562       lev.android_array[Ynut_eB] =
 563       lev.android_array[Ynut_wB] = Xnut;
 564   }
 565
 566   if (temp & 32)
 567   {
 568     lev.android_array[Xtank_n] =
 569       lev.android_array[Xtank_gon] =
 570       lev.android_array[Ytank_nB] =
 571       lev.android_array[Ytank_n_e] =
 572       lev.android_array[Ytank_n_w] = Xtank_n;
 573
 574     lev.android_array[Xtank_e] =
 575       lev.android_array[Xtank_goe] =
 576       lev.android_array[Ytank_eB] =
 577       lev.android_array[Ytank_e_s] =
 578       lev.android_array[Ytank_e_n] = Xtank_e;
 579
 580     lev.android_array[Xtank_s] =
 581       lev.android_array[Xtank_gos] =
 582       lev.android_array[Ytank_sB] =
 583       lev.android_array[Ytank_s_w] =
 584       lev.android_array[Ytank_s_e] = Xtank_s;
 585
 586     lev.android_array[Xtank_w] =
 587       lev.android_array[Xtank_gow] =
 588       lev.android_array[Ytank_wB] =
 589       lev.android_array[Ytank_w_n] =
 590       lev.android_array[Ytank_w_s] = Xtank_w;
 591   }
 592
 593   if (temp & 64)
 594   {
 595     lev.android_array[Xeater_n] = lev.android_array[Yeater_nB] = Xeater_n;
 596     lev.android_array[Xeater_e] = lev.android_array[Yeater_eB] = Xeater_e;
 597     lev.android_array[Xeater_s] = lev.android_array[Yeater_sB] = Xeater_s;
 598     lev.android_array[Xeater_w] = lev.android_array[Yeater_wB] = Xeater_w;
 599   }
 600
 601   if (temp & 128)
 602   {
 603     lev.android_array[Xbug_n] =
 604       lev.android_array[Xbug_gon] =
 605       lev.android_array[Ybug_nB] =
 606       lev.android_array[Ybug_n_e] =
 607       lev.android_array[Ybug_n_w] = Xbug_gon;
 608
 609     lev.android_array[Xbug_e] =
 610       lev.android_array[Xbug_goe] =
 611       lev.android_array[Ybug_eB] =
 612       lev.android_array[Ybug_e_s] =
 613       lev.android_array[Ybug_e_n] = Xbug_goe;
 614
 615     lev.android_array[Xbug_s] =
 616       lev.android_array[Xbug_gos] =
 617       lev.android_array[Ybug_sB] =
 618       lev.android_array[Ybug_s_w] =
 619       lev.android_array[Ybug_s_e] = Xbug_gos;
 620
 621     lev.android_array[Xbug_w] =
 622       lev.android_array[Xbug_gow] =
 623       lev.android_array[Ybug_wB] =
 624       lev.android_array[Ybug_w_n] =
 625       lev.android_array[Ybug_w_s] = Xbug_gow;
 626   }
 627
 628   if (temp & 256)
 629   {
 630     lev.android_array[Xalien] = lev.android_array[Xalien_pause] =
 631       lev.android_array[Yalien_nB] = lev.android_array[Yalien_eB] =
 632       lev.android_array[Yalien_sB] = lev.android_array[Yalien_wB] = Xalien;
 633   }
 634
 635   if (temp & 512)
 636   {
 637     lev.android_array[Xspring] =
 638       lev.android_array[Xspring_pause] =
 639       lev.android_array[Xspring_e] =
 640       lev.android_array[Yspring_eB] =
 641       lev.android_array[Yspring_kill_eB] =
 642       lev.android_array[Xspring_w] =
 643       lev.android_array[Yspring_wB] =
 644       lev.android_array[Yspring_kill_wB] =
 645       lev.android_array[Xspring_fall] =
 646       lev.android_array[Yspring_sB] = Xspring;
 647   }
 648
 649   if (temp & 1024)
 650   {
 651     lev.android_array[Yballoon_nB] =
 652       lev.android_array[Yballoon_eB] =
 653       lev.android_array[Yballoon_sB] =
 654       lev.android_array[Yballoon_wB] =
 655       lev.android_array[Xballoon] = Xballoon;
 656   }
 657
 658   if (temp & 2048)
 659   {
 660     lev.android_array[Xdripper] =
 661       lev.android_array[XdripperB] =
 662       lev.android_array[Xamoeba_1] =
 663       lev.android_array[Xamoeba_2] =
 664       lev.android_array[Xamoeba_3] =
 665       lev.android_array[Xamoeba_4] =
 666       lev.android_array[Xamoeba_5] =
 667       lev.android_array[Xamoeba_6] =
 668       lev.android_array[Xamoeba_7] =
 669       lev.android_array[Xamoeba_8] = Xdrip_eat;
 670   }
 671
 672   if (temp & 4096)
 673   {
 674     lev.android_array[Xdynamite] = Xdynamite;
 675   }
 676
 677   for (temp = 1; temp < 2047; temp++)
 678   {
 679     switch (src[temp])
 680     {
 681       case 0x24:                                /* wonderwall */
 682         lev.wonderwall_state_initial = 1;
 683         lev.wonderwall_time_initial = 9999;
 684         break;
 685
 686       case 0x28:                                /* wheel */
 687         lev.wheel_x_initial = temp & 63;
 688         lev.wheel_y_initial = temp >> 6;
 689         lev.wheel_cnt_initial = lev.wheel_time;
 690         break;
 691
 692 #ifndef BAD_ROLL
 693       case 0x63:                                /* spring roll left */
 694         src[temp - 1] = 0x45;
 695         src[temp] = 0x80;
 696         break;
 697
 698       case 0x64:                                /* spring roll right */
 699         src[temp + 1] = 0x45;
 700         src[temp] = 0x80;
 701         break;
 702
 703       case 0x72:                                /* nut roll left */
 704         src[temp - 1] = 0x25;
 705         src[temp] = 0x80;
 706         break;
 707
 708       case 0x73:                                /* nut roll right */
 709         src[temp + 1] = 0x25;
 710         src[temp] = 0x80;
 711         break;
 712
 713       case 0x77:                                /* bomb roll left */
 714         src[temp - 1] = 0x10;
 715         src[temp] = 0x80;
 716         break;
 717
 718       case 0x78:                                /* bomb roll right */
 719         src[temp + 1] = 0x10;
 720         src[temp] = 0x80;
 721         break;
 722
 723       case 0x79:                                /* stone roll left */
 724         src[temp - 1] = 0x00;
 725         src[temp] = 0x80;
 726         break;
 727
 728       case 0x7A:                                /* stone roll right */
 729         src[temp + 1] = 0x00;
 730         src[temp] = 0x80;
 731         break;
 732 #endif
 733
 734       case 0xA3:                                /* fake blank */
 735         lev.lenses_cnt_initial = 9999;
 736         break;
 737
 738       case 0xA4:                                /* fake grass */
 739         lev.magnify_cnt_initial = 9999;
 740         break;
 741     }
 742   }
 743
 744   /* first fill the complete playfield with the default border element */
 745   for (y = 0; y < HEIGHT; y++)
 746     for (x = 0; x < WIDTH; x++)
 747       native_em_level.cave[x][y] = ZBORDER;
 748
 749   /* then copy the real level contents from level file into the playfield */
 750   temp = 0;
 751   for (y = 0; y < lev.height; y++)
 752     for (x = 0; x < lev.width; x++)
 753       native_em_level.cave[x + 1][y + 1] = remap_emerald[src[temp++]];
 754
 755   /* at last, set the two players at their positions in the playfield */
 756   if (ply1.alive_initial)
 757     native_em_level.cave[ply1.x_initial][ply1.y_initial] = Zplayer;
 758   if (ply2.alive_initial)
 759     native_em_level.cave[ply2.x_initial][ply2.y_initial] = Zplayer;
 760
 761   native_em_level.file_version = file_version;
 762 }
 763
 764 void prepare_em_level(void)
 765 {
 766   unsigned int x, y;
 767
 768   /* reset all runtime variables to their initial values */
 769
 770   for (y = 0; y < HEIGHT; y++)
 771     for (x = 0; x < WIDTH; x++)
 772       Cave[y][x] = native_em_level.cave[x][y];
 773
 774   for (y = 0; y < HEIGHT; y++)
 775     for (x = 0; x < WIDTH; x++)
 776       Next[y][x] = Cave[y][x];
 777
 778   for (y = 0; y < HEIGHT; y++)
 779     for (x = 0; x < WIDTH; x++)
 780       Draw[y][x] = Cave[y][x];
 781
 782   lev.time = lev.time_initial;
 783   lev.required = lev.required_initial;
 784   lev.score = 0;
 785
 786   lev.android_move_cnt  = lev.android_move_time;
 787   lev.android_clone_cnt = lev.android_clone_time;
 788
 789   lev.ball_pos = 0;
 790   lev.ball_state = lev.ball_state_initial;
 791   lev.ball_cnt = lev.ball_time;
 792
 793   lev.eater_pos = 0;
 794   lev.shine_cnt = 0;
 795
 796   lev.lenses_cnt = lev.lenses_cnt_initial;
 797   lev.magnify_cnt = lev.magnify_cnt_initial;
 798
 799   lev.wheel_cnt = lev.wheel_cnt_initial;
 800   lev.wheel_x   = lev.wheel_x_initial;
 801   lev.wheel_y   = lev.wheel_y_initial;
 802
 803   lev.wind_cnt       = lev.wind_cnt_initial;
 804   lev.wind_direction = lev.wind_direction_initial;
 805
 806   lev.wonderwall_state = lev.wonderwall_state_initial;
 807   lev.wonderwall_time  = lev.wonderwall_time_initial;
 808
 809   lev.home = lev.home_initial;
 810
 811   ply1.num = 0;
 812   ply1.alive = ply1.alive_initial;
 813   ply1.dynamite = 0;
 814   ply1.dynamite_cnt = 0;
 815   ply1.keys = 0;
 816   ply1.anim = 0;
 817   ply1.oldx = ply1.x = ply1.x_initial;
 818   ply1.oldy = ply1.y = ply1.y_initial;
 819   ply1.joy_n = ply1.joy_e = ply1.joy_s = ply1.joy_w = ply1.joy_fire = 0;
 820   ply1.joy_stick = ply1.joy_spin = 0;
 821
 822   ply2.num = 1;
 823   ply2.alive = ply2.alive_initial;
 824   ply2.dynamite = 0;
 825   ply2.dynamite_cnt = 0;
 826   ply2.keys = 0;
 827   ply2.anim = 0;
 828   ply2.oldx = ply2.x = ply2.x_initial;
 829   ply2.oldy = ply2.y = ply2.y_initial;
 830   ply2.joy_n = ply2.joy_e = ply2.joy_s = ply2.joy_w = ply2.joy_fire = 0;
 831   ply2.joy_stick = ply2.joy_spin = 0;
 832 }