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