src/libem/convert.c

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