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