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 inconsequential,
   8  * but no doubt it will break some caves.
   9  */
  10
  11 #include "tile.h"
  12 #include "level.h"
  13
  14
  15 #if defined(TARGET_X11)
  16
  17 static unsigned char remap_v6[256] = { /* filter crap for v6 */
  18         0,0,2,2,4,4,118,118,8,9,10,11,12,13,14,15,16,16,18,18,20,21,22,23,24,25,26,27,28,
  19         28,118,28,0,16,2,18,36,37,37,37,40,41,42,43,44,45,128,128,128,148,148,148,45,45,45,
  20         148,0,57,58,59,60,61,62,63,64,65,66,67,68,69,69,69,69,73,74,75,118,75,75,75,75,75,
  21         75,75,75,153,153,153,153,153,153,153,153,153,153,153,153,153,153,99,100,68,68,68,
  22         68,68,68,68,68,118,118,118,118,118,114,115,131,118,118,119,120,121,122,118,118,118,
  23         118,118,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,
  24         147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,165,118,
  25         168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,
  26         189,68,191,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,
  27         210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,
  28         231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,153,153,153,153,153,153,
  29         153,153,153,153
  30 };
  31 static unsigned char remap_v5[256] = { /* filter crap for v5 */
  32         0,0,2,2,4,4,118,118,8,9,10,11,12,13,14,15,16,16,18,18,20,21,22,23,24,25,26,27,28,
  33         28,118,28,0,16,2,18,36,37,37,37,147,41,42,43,44,45,128,128,128,148,148,148,45,45,
  34         45,148,0,57,58,59,60,61,62,63,64,65,66,67,68,153,153,153,153,153,153,153,153,153,
  35         153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,
  36         153,153,68,68,68,68,68,68,68,68,118,118,118,118,118,114,115,131,118,118,119,120,121,
  37         122,118,118,118,118,118,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,
  38         143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,153,153,153,
  39         153,153,153,118,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,
  40         185,186,187,188,189,68,153,153,153,153,153,153,153,153,153,200,201,202,203,204,205,
  41         206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,
  42         227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,153,153,153,153,153,153,
  43         153,153,153,153,153,153,153,153
  44 };
  45 static unsigned char remap_v4[256] = { /* filter crap for v4 */
  46         0,0,2,2,4,4,118,118,8,9,10,11,12,13,14,15,16,16,18,18,20,21,22,23,24,25,26,27,28,
  47         28,118,28,0,16,2,18,36,37,37,37,147,41,42,43,44,45,128,128,128,148,148,148,45,45,
  48         45,148,0,153,153,59,60,61,62,63,64,65,66,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,153,153,153,153,153,
  50         153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,118,114,115,131,118,118,
  51         119,120,121,122,118,118,118,118,118,128,129,130,131,132,133,134,135,136,137,138,139,
  52         140,141,142,143,144,145,146,147,148,149,150,151,152,68,154,155,156,157,158,160,160,
  53         160,160,160,160,160,160,160,160,160,160,160,160,160,160,175,153,153,153,153,153,153,
  54         153,153,153,153,153,153,153,153,68,153,153,153,153,153,153,153,153,153,200,201,202,
  55         203,204,205,206,207,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,240,241,153,153,153,
  57         153,153,153,153,153,153,153,153,153,153,153
  58 };
  59 static unsigned char remap_v4eater[28] = { /* filter crap for v4 */
  60         128,18,2,0,4,8,16,20,28,37,41,45,130,129,131,132,133,134,135,136,146,147,175,65,66,
  61         64,2,18
  62 };
  63
  64 int clean_emerald(unsigned char *src, unsigned long *length)
  65 {
  66         unsigned int i;
  67         if(*length >= 2172 && src[2106] == 255 && src[2107] == 54 && src[2108] == 48 && src[2109] == 48) {
  68                 for(i = 0; i < 2048; i++) src[i] = remap_v6[src[i]];
  69                 for(i = 2048; i < 2084; i++) src[i] = remap_v6[src[i]];
  70                 for(i = 2112; i < 2148; i++) src[i] = remap_v6[src[i]];
  71                 goto v6;
  72         }
  73         if(*length >= 2110 && src[2106] == 255 && src[2107] == 53 && src[2108] == 48 && src[2109] == 48) {
  74                 for(i = 0; i < 2048; i++) src[i] = remap_v5[src[i]];
  75                 for(i = 2048; i < 2084; i++) src[i] = remap_v5[src[i]];
  76                 for(i = 2112; i < 2148; i++) src[i] = src[i - 64];
  77                 goto v5;
  78         }
  79         if(*length >= 2106 && src[1983] == 116) {
  80                 for(i = 0; i < 2048; i++) src[i] = remap_v4[src[i]];
  81                 for(i = 2048; i < 2084; i++) src[i] = remap_v4eater[src[i] >= 28 ? 0 : src[i]];
  82                 for(i = 2112; i < 2148; i++) src[i] = src[i - 64];
  83                 goto v4;
  84         }
  85         if(*length >= 2106 && src[0] == 241 && src[1983] == 27) {
  86                 unsigned char j = 94;
  87                 for(i = 0; i < 2106; i++) src[i] = (src[i] ^ (j += 7)) - 0x11;
  88                 src[1] = 131;
  89                 for(i = 0; i < 2048; i++) src[i] = remap_v4[src[i]];
  90                 for(i = 2048; i < 2084; i++) src[i] = remap_v4eater[src[i] >= 28 ? 0 : src[i]];
  91                 for(i = 2112; i < 2148; i++) src[i] = src[i - 64];
  92                 goto v3;
  93         }
  94         return(1); /* unrecognized cave */
  95 v3:
  96 v4:
  97 v5:
  98         src[2106] = 255; src[2107] = 54; src[2108] = 48; src[2109] = 48; /* id */
  99         i = src[2094] * 10; src[2110] = i >> 8; src[2111] = i; /* time */
 100         for(i = 2148; i < 2172; i++) src[i] = 0;
 101         src[2159] = 128; /* ball data */
 102 v6:
 103         for(i = 0; i < 2048; i++) if(src[i] == 40) break; /* fix wheel */
 104         for(i++; i < 2048; i++) if(src[i] == 40) src[i] = 147;
 105         for(i = 64; i < 2048; i++) if(src[i] == 63) src[i - 64] = 101; /* fix acid */
 106         for(i = 2051; i < 2057; i++) if(src[i] == 63) src[i - 3] = 101; /* fix acid in eater 1 */
 107         for(i = 2060; i < 2066; i++) if(src[i] == 63) src[i - 3] = 101; /* fix acid in eater 2 */
 108         for(i = 2069; i < 2075; i++) if(src[i] == 63) src[i - 3] = 101; /* fix acid in eater 3 */
 109         for(i = 2078; i < 2084; i++) if(src[i] == 63) src[i - 3] = 101; /* fix acid in eater 4 */
 110         for(i = 2115; i < 2121; i++) if(src[i] == 63) src[i - 3] = 101; /* fix acid in eater 5 */
 111         for(i = 2124; i < 2130; i++) if(src[i] == 63) src[i - 3] = 101; /* fix acid in eater 6 */
 112         for(i = 2133; i < 2139; i++) if(src[i] == 63) src[i - 3] = 101; /* fix acid in eater 7 */
 113         for(i = 2142; i < 2148; i++) if(src[i] == 63) src[i - 3] = 101; /* fix acid in eater 8 */
 114         src[2094] = 0; /* old style time */
 115         src[2096] &= 7; src[src[2096] << 8 | src[2097]] = 128; /* player 1 pos */
 116         src[2098] &= 7; src[src[2098] << 8 | src[2099]] = 128; /* player 2 pos */
 117         if((src[2100] << 8 | src[2101]) > 9999) { src[2100] = 39; src[2101] = 15; } /* ameuba speed */
 118         if((src[2102] << 8 | src[2103]) > 9999) { src[2102] = 39; src[2103] = 15; } /* time wonderwall */
 119         if((src[2110] << 8 | src[2111]) > 9999) { src[2110] = 39; src[2111] = 15; } /* time */
 120         i = src[2149]; i &= 15; i &= -i; src[2149] = i; /* wind direction */
 121         if((src[2154] << 8 | src[2155]) > 9999) { src[2154] = 39; src[2155] = 15; } /* time lenses */
 122         if((src[2156] << 8 | src[2157]) > 9999) { src[2156] = 39; src[2157] = 15; } /* time magnify */
 123         src[2158] = 0; src[2159] = remap_v6[src[2159]]; /* ball object */
 124         if((src[2160] << 8 | src[2161]) > 9999) { src[2160] = 39; src[2161] = 15; } /* ball pause */
 125         src[2162] &= 129; if(src[2162] & 1) src[2163] = 0; /* ball data */
 126         if((src[2164] << 8 | src[2165]) > 9999) { src[2164] = 39; src[2165] = 15; } /* android move pause */
 127         if((src[2166] << 8 | src[2167]) > 9999) { src[2166] = 39; src[2167] = 15; } /* android clone pause */
 128         src[2168] &= 31; /* android data */
 129
 130         *length = 2172; /* size of v6 cave */
 131         return(0);
 132 }
 133
 134 /* 2000-07-30T00:26:00Z
 135  *
 136  * Read emerald mine caves version 6
 137  *
 138  * v4 and v5 emerald mine caves are converted to v6 (which completely supports older versions)
 139  *
 140  * converting to the internal format loses /significant/ information which can breaks lots of caves.
 141  *
 142  * major incompatibilities:
 143  * borderless caves behave completely differently, the player no longer "warps" to the other side.
 144  * a compile time option for spring can make it behave differently when it rolls.
 145  * a compile time option for rolling objects (stone, nut, spring, bomb) only in eater.
 146  * acid is always deadly even with no base beneath it.
 147  *
 148  * so far all below have not broken any caves:
 149  *
 150  * active wheel inside an eater will not function, eater explosions will not change settings.
 151  * initial collect objects (emerald, diamond, dynamite) dont exist.
 152  * initial rolling objects will be moved manually and made into sitting objects.
 153  * drips always appear from dots.
 154  * more than one thing can fall into acid at the same time.
 155  * acid explodes when the player walks into it, rather than splashing.
 156  * simultaneous explosions may be in a slightly different order.
 157  * quicksand states have been reduced.
 158  * acid base is effectively an indestructable wall now which can affect eater explosions.
 159  * android can clone forever with a clone pause of 0 (emeralds, diamonds, nuts, stones, bombs, springs).
 160  *
 161  * 2001-03-12T02:46:55Z
 162  *   rolling stuff is now allowed in the cave, i didn't like making this decision.
 163  *   if BAD_ROLL is not defined, initial rolling objects are moved by hand.
 164  *   initial collect objects break some cave in elvis mine 5.
 165  *   different timing for wonderwall break some cave in exception mine 2.
 166  *   i think i'm pretty locked into always using the bad roll. *sigh*
 167  *   rolling spring is now turned into regular spring. it appears the emc editor only uses
 168  *   the force code for initially moving spring. i will follow this in my editor.
 169  */
 170
 171 static unsigned short remap_emerald[256] = {
 172         Xstone, Xstone, Xdiamond, Xdiamond, Xalien, Xalien, Xblank, Xblank,
 173         Xtank_n, Xtank_e, Xtank_s, Xtank_w, Xtank_gon, Xtank_goe, Xtank_gos, Xtank_gow,
 174         Xbomb, Xbomb, Xemerald, Xemerald, Xbug_n, Xbug_e, Xbug_s, Xbug_w,
 175         Xbug_gon, Xbug_goe, Xbug_gos, Xbug_gow, Xdrip_eat, Xdrip_eat, Xdrip_eat, Xdrip_eat,
 176         Xstone, Xbomb, Xdiamond, Xemerald, Xwonderwall, Xnut, Xnut, Xnut,
 177         Xwheel, Xeater_n, Xeater_s, Xeater_w, Xeater_e, Xsand_stone, Xblank, Xblank,
 178         Xblank, Xsand, Xsand, Xsand, Xsand_stone, Xsand_stone, Xsand_stone, Xsand,
 179         Xstone, Xgrow_ew, Xgrow_ns, Xdynamite_1, Xdynamite_2, Xdynamite_3, Xdynamite_4, Xacid_s,
 180         Xexit_1, Xexit_2, Xexit_3, Xballoon, Xplant, Xspring, Xspring, Xspring,
 181         Xspring, Xball_1, Xball_2, Xandroid, Xblank, Xandroid, Xandroid, Xandroid,
 182         Xandroid, Xandroid, Xandroid, Xandroid, Xandroid, Xblank, Xblank, Xblank,
 183         Xblank, Xblank, Xblank, Xblank, Xblank, Xblank, Xblank, Xblank,
 184 #ifdef BAD_ROLL
 185         Xblank, Xblank, Xblank, Xspring_force_w, Xspring_force_e, Xacid_1, Xacid_2, Xacid_3,
 186         Xacid_4, Xacid_5, Xacid_6, Xacid_7, Xacid_8, Xblank, Xblank, Xblank,
 187         Xblank, Xblank, Xnut_force_w, Xnut_force_e, Xsteel_1, Xblank, Xblank, Xbomb_force_w,
 188         Xbomb_force_e, Xstone_force_w, Xstone_force_e, Xblank, Xblank, Xblank, Xblank, Xblank,
 189 #else
 190         Xblank, Xblank, Xblank, Xspring, Xspring, Xacid_1, Xacid_2, Xacid_3,
 191         Xacid_4, Xacid_5, Xacid_6, Xacid_7, Xacid_8, Xblank, Xblank, Xblank,
 192         Xblank, Xblank, Xnut, Xnut, Xsteel_1, Xblank, Xblank, Xbomb,
 193         Xbomb, Xstone, Xstone, Xblank, Xblank, Xblank, Xblank, Xblank,
 194 #endif
 195         Xblank, Xround_wall_1, Xgrass, Xsteel_1, Xwall_1, Xkey_1, Xkey_2, Xkey_3,
 196         Xkey_4, Xdoor_1, Xdoor_2, Xdoor_3, Xdoor_4, Xdripper, Xfake_door_1, Xfake_door_2,
 197         Xfake_door_3, Xfake_door_4, Xwonderwall, Xwheel, Xsand, Xacid_nw, Xacid_ne, Xacid_sw,
 198         Xacid_se, Xfake_blank, Xameuba_1, Xameuba_2, Xameuba_3, Xameuba_4, Xexit, Xalpha_arrow_w,
 199         Xfake_grass, Xlenses, Xmagnify, Xfake_blank, Xfake_grass, Xswitch, Xswitch, Xblank,
 200         Xdecor_8, Xdecor_9, Xdecor_10, Xdecor_5, Xalpha_comma, Xalpha_quote, Xalpha_minus, Xdynamite,
 201         Xsteel_3, Xdecor_6, Xdecor_7, Xsteel_2, Xround_wall_2, Xdecor_2, Xdecor_4, Xdecor_3,
 202         Xwind_nesw, Xwind_e, Xwind_s, Xwind_w, Xwind_n, Xdirt, Xplant, Xkey_5,
 203         Xkey_6, Xkey_7, Xkey_8, Xdoor_5, Xdoor_6, Xdoor_7, Xdoor_8, Xbumper,
 204         Xalpha_a, Xalpha_b, Xalpha_c, Xalpha_d, Xalpha_e, Xalpha_f, Xalpha_g, Xalpha_h,
 205         Xalpha_i, Xalpha_j, Xalpha_k, Xalpha_l, Xalpha_m, Xalpha_n, Xalpha_o, Xalpha_p,
 206         Xalpha_q, Xalpha_r, Xalpha_s, Xalpha_t, Xalpha_u, Xalpha_v, Xalpha_w, Xalpha_x,
 207         Xalpha_y, Xalpha_z, Xalpha_0, Xalpha_1, Xalpha_2, Xalpha_3, Xalpha_4, Xalpha_5,
 208         Xalpha_6, Xalpha_7, Xalpha_8, Xalpha_9, Xalpha_perio, Xalpha_excla, Xalpha_colon, Xalpha_quest,
 209         Xalpha_arrow_e, Xdecor_1, Xfake_door_5, Xfake_door_6, Xfake_door_7, Xfake_door_8, Xblank, Xblank,
 210         Xblank, Xblank, Xblank, Xblank, Xblank, Xblank, Xblank, Xblank,
 211 };
 212
 213 void convert_emerald(unsigned char *src)
 214 {
 215         unsigned int x, y, temp;
 216
 217         lev.width = 64;
 218         lev.height = 32;
 219         temp = ((src[0x83E] << 8 | src[0x83F]) * 25 + 3) / 4; if(temp == 0 || temp > 9999) temp = 9999;
 220         lev.time = temp;
 221         lev.required = src[0x82F];
 222
 223         temp = src[0x830] << 8 | src[0x831];
 224         ply1.oldx = ply1.x = (temp & 63) + 1;
 225         ply1.oldy = ply1.y = (temp >> 6 & 31) + 1;
 226         temp = src[0x832] << 8 | src[0x833];
 227         ply2.oldx = ply2.x = (temp & 63) + 1;
 228         ply2.oldy = ply2.y = (temp >> 6 & 31) + 1;
 229
 230         lev.alien_score = src[0x826];
 231         temp = (src[0x834] << 8 | src[0x835]) * 28; if(temp > 9999) temp = 9999;
 232         lev.ameuba_time = temp;
 233         lev.android_move_cnt = lev.android_move_time = src[0x874] << 8 | src[0x875];
 234         lev.android_clone_cnt = lev.android_clone_time = src[0x876] << 8 | src[0x877];
 235         lev.ball_pos = 0;
 236         lev.ball_random = src[0x872] & 1 ? 1 : 0;
 237         lev.ball_state = src[0x872] & 128 ? 1 : 0;
 238         lev.ball_cnt = lev.ball_time = src[0x870] << 8 | src[0x871];
 239         lev.bug_score = src[0x828];
 240         lev.diamond_score = src[0x825];
 241         lev.dynamite_score = src[0x82B];
 242         lev.eater_pos = 0;
 243         lev.eater_score = src[0x829];
 244         lev.emerald_score = src[0x824];
 245         lev.exit_score = src[0x82D] * 8 / 5;
 246         lev.key_score = src[0x82C];
 247         lev.lenses_cnt = 0;
 248         lev.lenses_score = src[0x867];
 249         lev.lenses_time = src[0x86A] << 8 | src[0x86B];
 250         lev.magnify_cnt = 0;
 251         lev.magnify_score = src[0x868];
 252         lev.magnify_time = src[0x86C] << 8 | src[0x86D];
 253         lev.nut_score = src[0x82A];
 254         lev.shine_cnt = 0;
 255         lev.slurp_score = src[0x869];
 256         lev.tank_score = src[0x827];
 257         lev.wheel_cnt = 0;
 258         lev.wheel_x = 1;
 259         lev.wheel_y = 1;
 260         lev.wheel_time = src[0x838] << 8 | src[0x839];
 261         lev.wind_cnt = src[0x865] & 15 ? 9999 : 0;
 262         temp = src[0x865];
 263         lev.wind_direction = temp & 8 ? 0 : temp & 1 ? 1 : temp & 2 ? 2 : temp & 4 ? 3 : 0;
 264         lev.wind_time = 9999;
 265         lev.wonderwall_state = 0;
 266         lev.wonderwall_time = src[0x836] << 8 | src[0x837];
 267
 268         for(x = 0; x < 9; x++) lev.eater_array[0][x] = remap_emerald[src[0x800 + x]];
 269         for(x = 0; x < 9; x++) lev.eater_array[1][x] = remap_emerald[src[0x809 + x]];
 270         for(x = 0; x < 9; x++) lev.eater_array[2][x] = remap_emerald[src[0x812 + x]];
 271         for(x = 0; x < 9; x++) lev.eater_array[3][x] = remap_emerald[src[0x81B + x]];
 272         for(x = 0; x < 9; x++) lev.eater_array[4][x] = remap_emerald[src[0x840 + x]];
 273         for(x = 0; x < 9; x++) lev.eater_array[5][x] = remap_emerald[src[0x849 + x]];
 274         for(x = 0; x < 9; x++) lev.eater_array[6][x] = remap_emerald[src[0x852 + x]];
 275         for(x = 0; x < 9; x++) lev.eater_array[7][x] = remap_emerald[src[0x85B + x]];
 276         temp = remap_emerald[src[0x86F]];
 277         for(y = 0; y < 8; y++) {
 278                 if(src[0x872] & 1) {
 279                         for(x = 0; x < 8; x++) lev.ball_array[y][x] = temp;
 280                 } else {
 281                         lev.ball_array[y][1] = (src[0x873] & 1) ? temp : Xblank; /* north */
 282                         lev.ball_array[y][6] = (src[0x873] & 2) ? temp : Xblank; /* south */
 283                         lev.ball_array[y][3] = (src[0x873] & 4) ? temp : Xblank; /* west */
 284                         lev.ball_array[y][4] = (src[0x873] & 8) ? temp : Xblank; /* east */
 285                         lev.ball_array[y][7] = (src[0x873] & 16) ? temp : Xblank; /* south east */
 286                         lev.ball_array[y][5] = (src[0x873] & 32) ? temp : Xblank; /* south west */
 287                         lev.ball_array[y][2] = (src[0x873] & 64) ? temp : Xblank; /* north east */
 288                         lev.ball_array[y][0] = (src[0x873] & 128) ? temp : Xblank; /* north west */
 289                 }
 290         }
 291         for(temp = 0; temp < TILE_MAX; temp++) lev.android_array[temp] = Xblank;
 292         temp = src[0x878] << 8 | src[0x879];
 293         if(temp & 1) {
 294                 lev.android_array[Xemerald] = lev.android_array[Xemerald_pause] =
 295                 lev.android_array[Xemerald_fall] = lev.android_array[Yemerald_sB] =
 296                 lev.android_array[Yemerald_eB] = lev.android_array[Yemerald_wB] = Xemerald;
 297         }
 298         if(temp & 2) {
 299                 lev.android_array[Xdiamond] = lev.android_array[Xdiamond_pause] =
 300                 lev.android_array[Xdiamond_fall] = lev.android_array[Ydiamond_sB] =
 301                 lev.android_array[Ydiamond_eB] = lev.android_array[Ydiamond_wB] = Xdiamond;
 302         }
 303         if(temp & 4) {
 304                 lev.android_array[Xstone] = lev.android_array[Xstone_pause] =
 305                 lev.android_array[Xstone_fall] = lev.android_array[Ystone_sB] =
 306                 lev.android_array[Ystone_eB] = lev.android_array[Ystone_wB] = Xstone;
 307         }
 308         if(temp & 8) {
 309                 lev.android_array[Xbomb] = lev.android_array[Xbomb_pause] =
 310                 lev.android_array[Xbomb_fall] = lev.android_array[Ybomb_sB] =
 311                 lev.android_array[Ybomb_eB] = lev.android_array[Ybomb_wB] = Xbomb;
 312         }
 313         if(temp & 16) {
 314                 lev.android_array[Xnut] = lev.android_array[Xnut_pause] =
 315                 lev.android_array[Xnut_fall] = lev.android_array[Ynut_sB] =
 316                 lev.android_array[Ynut_eB] = lev.android_array[Ynut_wB] = Xnut;
 317         }
 318         if(temp & 32) {
 319                 lev.android_array[Xtank_n] = lev.android_array[Xtank_gon] = lev.android_array[Ytank_nB] =
 320                 lev.android_array[Ytank_n_e] = lev.android_array[Ytank_n_w] = Xtank_n;
 321                 lev.android_array[Xtank_e] = lev.android_array[Xtank_goe] = lev.android_array[Ytank_eB] =
 322                 lev.android_array[Ytank_e_s] = lev.android_array[Ytank_e_n] = Xtank_e;
 323                 lev.android_array[Xtank_s] = lev.android_array[Xtank_gos] = lev.android_array[Ytank_sB] =
 324                 lev.android_array[Ytank_s_w] = lev.android_array[Ytank_s_e] = Xtank_s;
 325                 lev.android_array[Xtank_w] = lev.android_array[Xtank_gow] = lev.android_array[Ytank_wB] =
 326                 lev.android_array[Ytank_w_n] = lev.android_array[Ytank_w_s] = Xtank_w;
 327         }
 328         if(temp & 64) {
 329                 lev.android_array[Xeater_n] = lev.android_array[Yeater_nB] = Xeater_n;
 330                 lev.android_array[Xeater_e] = lev.android_array[Yeater_eB] = Xeater_e;
 331                 lev.android_array[Xeater_s] = lev.android_array[Yeater_sB] = Xeater_s;
 332                 lev.android_array[Xeater_w] = lev.android_array[Yeater_wB] = Xeater_w;
 333         }
 334         if(temp & 128) {
 335                 lev.android_array[Xbug_n] = lev.android_array[Xbug_gon] = lev.android_array[Ybug_nB] =
 336                 lev.android_array[Ybug_n_e] = lev.android_array[Ybug_n_w] = Xbug_gon;
 337                 lev.android_array[Xbug_e] = lev.android_array[Xbug_goe] = lev.android_array[Ybug_eB] =
 338                 lev.android_array[Ybug_e_s] = lev.android_array[Ybug_e_n] = Xbug_goe;
 339                 lev.android_array[Xbug_s] = lev.android_array[Xbug_gos] = lev.android_array[Ybug_sB] =
 340                 lev.android_array[Ybug_s_w] = lev.android_array[Ybug_s_e] = Xbug_gos;
 341                 lev.android_array[Xbug_w] = lev.android_array[Xbug_gow] = lev.android_array[Ybug_wB] =
 342                 lev.android_array[Ybug_w_n] = lev.android_array[Ybug_w_s] = Xbug_gow;
 343         }
 344         if(temp & 256) {
 345                 lev.android_array[Xalien] = lev.android_array[Xalien_pause] =
 346                 lev.android_array[Yalien_nB] = lev.android_array[Yalien_eB] =
 347                 lev.android_array[Yalien_sB] = lev.android_array[Yalien_wB] = Xalien;
 348         }
 349         if(temp & 512) {
 350                 lev.android_array[Xspring] = lev.android_array[Xspring_pause] =
 351                 lev.android_array[Xspring_e] = lev.android_array[Yspring_eB] = lev.android_array[Yspring_kill_eB] =
 352                 lev.android_array[Xspring_w] = lev.android_array[Yspring_wB] = lev.android_array[Yspring_kill_wB] =
 353                 lev.android_array[Xspring_fall] = lev.android_array[Yspring_sB] = Xspring;
 354         }
 355         if(temp & 1024) {
 356                 lev.android_array[Yballoon_nB] = lev.android_array[Yballoon_eB] =
 357                 lev.android_array[Yballoon_sB] = lev.android_array[Yballoon_wB] =
 358                 lev.android_array[Xballoon] = Xballoon;
 359         }
 360         if(temp & 2048) {
 361                 lev.android_array[Xdripper] = lev.android_array[XdripperB] =
 362                 lev.android_array[Xameuba_1] = lev.android_array[Xameuba_2] =
 363                 lev.android_array[Xameuba_3] = lev.android_array[Xameuba_4] =
 364                 lev.android_array[Xameuba_5] = lev.android_array[Xameuba_6] =
 365                 lev.android_array[Xameuba_7] = lev.android_array[Xameuba_8] = Xdrip_eat;
 366         }
 367         if(temp & 4096) {
 368                 lev.android_array[Xdynamite] = Xdynamite;
 369         }
 370
 371         for(temp = 1; temp < 2047; temp++) {
 372                 switch(src[temp]) {
 373                 case 0x24: lev.wonderwall_state = 1; lev.wonderwall_time = 9999; break; /* wonderwall */
 374                 case 0x28: lev.wheel_x = temp & 63; lev.wheel_y = temp >> 6; lev.wheel_cnt = lev.wheel_time; break; /* wheel */
 375 #ifndef BAD_ROLL
 376                 case 0x63: src[temp - 1] = 0x45; src[temp] = 0x80; break; /* spring roll left */
 377                 case 0x64: src[temp + 1] = 0x45; src[temp] = 0x80; break; /* spring roll right */
 378                 case 0x72: src[temp - 1] = 0x25; src[temp] = 0x80; break; /* nut roll left */
 379                 case 0x73: src[temp + 1] = 0x25; src[temp] = 0x80; break; /* nut roll right */
 380                 case 0x77: src[temp - 1] = 0x10; src[temp] = 0x80; break; /* bomb roll left */
 381                 case 0x78: src[temp + 1] = 0x10; src[temp] = 0x80; break; /* bomb roll right */
 382                 case 0x79: src[temp - 1] = 0x00; src[temp] = 0x80; break; /* stone roll left */
 383                 case 0x7A: src[temp + 1] = 0x00; src[temp] = 0x80; break; /* stone roll right */
 384 #endif
 385                 case 0xA3: lev.lenses_cnt = 9999; break; /* fake blank */
 386                 case 0xA4: lev.magnify_cnt = 9999; break; /* fake grass */
 387                 }
 388         }
 389         for(y = 0; y < HEIGHT; y++) for(x = 0; x < WIDTH; x++) Cave[y][x] = ZBORDER;
 390         temp = 0; for(y = 0; y < lev.height; y++) for(x = 0; x < lev.width; x++) {
 391                 Cave[y+1][x+1] = remap_emerald[src[temp++]];
 392         }
 393         if(ply1.alive) Cave[ply1.y][ply1.x] = Zplayer;
 394         if(ply2.alive) Cave[ply2.y][ply2.x] = Zplayer;
 395         for(y = 0; y < HEIGHT; y++) for(x = 0; x < WIDTH; x++) Next[y][x] = Cave[y][x];
 396         for(y = 0; y < HEIGHT; y++) for(x = 0; x < WIDTH; x++) Draw[y][x] = Cave[y][x];
 397 }
 398
 399 #endif