src/files.c

   1 // ============================================================================
   2 // Rocks'n'Diamonds - McDuffin Strikes Back!
   3 // ----------------------------------------------------------------------------
   4 // (c) 1995-2014 by Artsoft Entertainment
   5 //                  Holger Schemel
   6 //                  info@artsoft.org
   7 //                  https://www.artsoft.org/
   8 // ----------------------------------------------------------------------------
   9 // files.c
  10 // ============================================================================
  11
  12 #include <ctype.h>
  13 #include <sys/stat.h>
  14 #include <dirent.h>
  15 #include <math.h>
  16
  17 #include "libgame/libgame.h"
  18
  19 #include "files.h"
  20 #include "init.h"
  21 #include "screens.h"
  22 #include "tools.h"
  23 #include "tape.h"
  24 #include "config.h"
  25
  26 #define ENABLE_UNUSED_CODE      0       // currently unused functions
  27 #define ENABLE_HISTORIC_CHUNKS  0       // only for historic reference
  28 #define ENABLE_RESERVED_CODE    0       // reserved for later use
  29
  30 #define CHUNK_ID_LEN            4       // IFF style chunk id length
  31 #define CHUNK_SIZE_UNDEFINED    0       // undefined chunk size == 0
  32 #define CHUNK_SIZE_NONE         -1      // do not write chunk size
  33
  34 #define LEVEL_CHUNK_NAME_SIZE   MAX_LEVEL_NAME_LEN
  35 #define LEVEL_CHUNK_AUTH_SIZE   MAX_LEVEL_AUTHOR_LEN
  36
  37 #define LEVEL_CHUNK_VERS_SIZE   8       // size of file version chunk
  38 #define LEVEL_CHUNK_DATE_SIZE   4       // size of file date chunk
  39 #define LEVEL_CHUNK_HEAD_SIZE   80      // size of level file header
  40 #define LEVEL_CHUNK_HEAD_UNUSED 0       // unused level header bytes
  41 #define LEVEL_CHUNK_CNT2_SIZE   160     // size of level CNT2 chunk
  42 #define LEVEL_CHUNK_CNT2_UNUSED 11      // unused CNT2 chunk bytes
  43 #define LEVEL_CHUNK_CNT3_HEADER 16      // size of level CNT3 header
  44 #define LEVEL_CHUNK_CNT3_UNUSED 10      // unused CNT3 chunk bytes
  45 #define LEVEL_CPART_CUS3_SIZE   134     // size of CUS3 chunk part
  46 #define LEVEL_CPART_CUS3_UNUSED 15      // unused CUS3 bytes / part
  47 #define LEVEL_CHUNK_GRP1_SIZE   74      // size of level GRP1 chunk
  48
  49 // (element number, number of change pages, change page number)
  50 #define LEVEL_CHUNK_CUSX_UNCHANGED      (2 + (1 + 1) + (1 + 1))
  51
  52 // (element number only)
  53 #define LEVEL_CHUNK_GRPX_UNCHANGED      2
  54 #define LEVEL_CHUNK_NOTE_UNCHANGED      2
  55
  56 // (nothing at all if unchanged)
  57 #define LEVEL_CHUNK_ELEM_UNCHANGED      0
  58
  59 #define TAPE_CHUNK_VERS_SIZE    8       // size of file version chunk
  60 #define TAPE_CHUNK_HEAD_SIZE    20      // size of tape file header
  61 #define TAPE_CHUNK_HEAD_UNUSED  1       // unused tape header bytes
  62 #define TAPE_CHUNK_SCRN_SIZE    2       // size of screen size chunk
  63
  64 #define SCORE_CHUNK_VERS_SIZE   8       // size of file version chunk
  65
  66 #define LEVEL_CHUNK_CNT3_SIZE(x)         (LEVEL_CHUNK_CNT3_HEADER + (x))
  67 #define LEVEL_CHUNK_CUS3_SIZE(x)         (2 + (x) * LEVEL_CPART_CUS3_SIZE)
  68 #define LEVEL_CHUNK_CUS4_SIZE(x)         (96 + (x) * 48)
  69
  70 // file identifier strings
  71 #define LEVEL_COOKIE_TMPL               "ROCKSNDIAMONDS_LEVEL_FILE_VERSION_x.x"
  72 #define TAPE_COOKIE_TMPL                "ROCKSNDIAMONDS_TAPE_FILE_VERSION_x.x"
  73 #define SCORE_COOKIE_TMPL               "ROCKSNDIAMONDS_SCORE_FILE_VERSION_x.x"
  74
  75 // values for deciding when (not) to save configuration data
  76 #define SAVE_CONF_NEVER                 0
  77 #define SAVE_CONF_ALWAYS                1
  78 #define SAVE_CONF_WHEN_CHANGED          -1
  79
  80 // values for chunks using micro chunks
  81 #define CONF_MASK_1_BYTE                0x00
  82 #define CONF_MASK_2_BYTE                0x40
  83 #define CONF_MASK_4_BYTE                0x80
  84 #define CONF_MASK_MULTI_BYTES           0xc0
  85
  86 #define CONF_MASK_BYTES                 0xc0
  87 #define CONF_MASK_TOKEN                 0x3f
  88
  89 #define CONF_VALUE_1_BYTE(x)            (CONF_MASK_1_BYTE       | (x))
  90 #define CONF_VALUE_2_BYTE(x)            (CONF_MASK_2_BYTE       | (x))
  91 #define CONF_VALUE_4_BYTE(x)            (CONF_MASK_4_BYTE       | (x))
  92 #define CONF_VALUE_MULTI_BYTES(x)       (CONF_MASK_MULTI_BYTES  | (x))
  93
  94 // these definitions are just for convenience of use and readability
  95 #define CONF_VALUE_8_BIT(x)             CONF_VALUE_1_BYTE(x)
  96 #define CONF_VALUE_16_BIT(x)            CONF_VALUE_2_BYTE(x)
  97 #define CONF_VALUE_32_BIT(x)            CONF_VALUE_4_BYTE(x)
  98 #define CONF_VALUE_BYTES(x)             CONF_VALUE_MULTI_BYTES(x)
  99
 100 #define CONF_VALUE_NUM_BYTES(x)         ((x) == CONF_MASK_1_BYTE ? 1 :  \
 101                                          (x) == CONF_MASK_2_BYTE ? 2 :  \
 102                                          (x) == CONF_MASK_4_BYTE ? 4 : 0)
 103
 104 #define CONF_CONTENT_NUM_ELEMENTS       (3 * 3)
 105 #define CONF_CONTENT_NUM_BYTES          (CONF_CONTENT_NUM_ELEMENTS * 2)
 106 #define CONF_ELEMENT_NUM_BYTES          (2)
 107
 108 #define CONF_ENTITY_NUM_BYTES(t)        ((t) == TYPE_ELEMENT ||         \
 109                                          (t) == TYPE_ELEMENT_LIST ?     \
 110                                          CONF_ELEMENT_NUM_BYTES :       \
 111                                          (t) == TYPE_CONTENT ||         \
 112                                          (t) == TYPE_CONTENT_LIST ?     \
 113                                          CONF_CONTENT_NUM_BYTES : 1)
 114
 115 #define CONF_ELEMENT_BYTE_POS(i)        ((i) * CONF_ELEMENT_NUM_BYTES)
 116 #define CONF_ELEMENTS_ELEMENT(b,i)     ((b[CONF_ELEMENT_BYTE_POS(i)] << 8) |  \
 117                                         (b[CONF_ELEMENT_BYTE_POS(i) + 1]))
 118
 119 #define CONF_CONTENT_ELEMENT_POS(c,x,y) ((c) * CONF_CONTENT_NUM_ELEMENTS +    \
 120                                          (y) * 3 + (x))
 121 #define CONF_CONTENT_BYTE_POS(c,x,y)    (CONF_CONTENT_ELEMENT_POS(c,x,y) *    \
 122                                          CONF_ELEMENT_NUM_BYTES)
 123 #define CONF_CONTENTS_ELEMENT(b,c,x,y) ((b[CONF_CONTENT_BYTE_POS(c,x,y)]<< 8)|\
 124                                         (b[CONF_CONTENT_BYTE_POS(c,x,y) + 1]))
 125
 126 // temporary variables used to store pointers to structure members
 127 static struct LevelInfo li;
 128 static struct ElementInfo xx_ei, yy_ei;
 129 static struct ElementChangeInfo xx_change;
 130 static struct ElementGroupInfo xx_group;
 131 static struct EnvelopeInfo xx_envelope;
 132 static unsigned int xx_event_bits[NUM_CE_BITFIELDS];
 133 static char xx_default_description[MAX_ELEMENT_NAME_LEN + 1];
 134 static int xx_num_contents;
 135 static int xx_current_change_page;
 136 static char xx_default_string_empty[1] = "";
 137 static int xx_string_length_unused;
 138
 139 struct LevelFileConfigInfo
 140 {
 141   int element;                  // element for which data is to be stored
 142   int save_type;                // save data always, never or when changed
 143   int data_type;                // data type (used internally, not stored)
 144   int conf_type;                // micro chunk identifier (stored in file)
 145
 146   // (mandatory)
 147   void *value;                  // variable that holds the data to be stored
 148   int default_value;            // initial default value for this variable
 149
 150   // (optional)
 151   void *value_copy;             // variable that holds the data to be copied
 152   void *num_entities;           // number of entities for multi-byte data
 153   int default_num_entities;     // default number of entities for this data
 154   int max_num_entities;         // maximal number of entities for this data
 155   char *default_string;         // optional default string for string data
 156 };
 157
 158 static struct LevelFileConfigInfo chunk_config_INFO[] =
 159 {
 160   // ---------- values not related to single elements -------------------------
 161
 162   {
 163     -1,                                 SAVE_CONF_ALWAYS,
 164     TYPE_INTEGER,                       CONF_VALUE_8_BIT(1),
 165     &li.game_engine_type,               GAME_ENGINE_TYPE_RND
 166   },
 167
 168   {
 169     -1,                                 SAVE_CONF_ALWAYS,
 170     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 171     &li.fieldx,                         STD_LEV_FIELDX
 172   },
 173   {
 174     -1,                                 SAVE_CONF_ALWAYS,
 175     TYPE_INTEGER,                       CONF_VALUE_16_BIT(2),
 176     &li.fieldy,                         STD_LEV_FIELDY
 177   },
 178
 179   {
 180     -1,                                 SAVE_CONF_ALWAYS,
 181     TYPE_INTEGER,                       CONF_VALUE_16_BIT(3),
 182     &li.time,                           100
 183   },
 184
 185   {
 186     -1,                                 SAVE_CONF_ALWAYS,
 187     TYPE_INTEGER,                       CONF_VALUE_16_BIT(4),
 188     &li.gems_needed,                    0
 189   },
 190
 191   {
 192     -1,                                 -1,
 193     TYPE_INTEGER,                       CONF_VALUE_32_BIT(2),
 194     &li.random_seed,                    0
 195   },
 196
 197   {
 198     -1,                                 -1,
 199     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(2),
 200     &li.use_step_counter,               FALSE
 201   },
 202
 203   {
 204     -1,                                 -1,
 205     TYPE_BITFIELD,                      CONF_VALUE_8_BIT(4),
 206     &li.wind_direction_initial,         MV_NONE
 207   },
 208
 209   {
 210     -1,                                 -1,
 211     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(5),
 212     &li.em_slippery_gems,               FALSE
 213   },
 214
 215   {
 216     -1,                                 -1,
 217     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(6),
 218     &li.use_custom_template,            FALSE
 219   },
 220
 221   {
 222     -1,                                 -1,
 223     TYPE_BITFIELD,                      CONF_VALUE_32_BIT(1),
 224     &li.can_move_into_acid_bits,        ~0      // default: everything can
 225   },
 226
 227   {
 228     -1,                                 -1,
 229     TYPE_BITFIELD,                      CONF_VALUE_8_BIT(7),
 230     &li.dont_collide_with_bits,         ~0      // default: always deadly
 231   },
 232
 233   {
 234     -1,                                 -1,
 235     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(8),
 236     &li.em_explodes_by_fire,            FALSE
 237   },
 238
 239   {
 240     -1,                                 -1,
 241     TYPE_INTEGER,                       CONF_VALUE_16_BIT(5),
 242     &li.score[SC_TIME_BONUS],           1
 243   },
 244
 245   {
 246     -1,                                 -1,
 247     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(9),
 248     &li.auto_exit_sokoban,              FALSE
 249   },
 250
 251   {
 252     -1,                                 -1,
 253     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(10),
 254     &li.auto_count_gems,                FALSE
 255   },
 256
 257   {
 258     -1,                                 -1,
 259     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(11),
 260     &li.solved_by_one_player,           FALSE
 261   },
 262
 263   {
 264     -1,                                 -1,
 265     TYPE_INTEGER,                       CONF_VALUE_8_BIT(12),
 266     &li.time_score_base,                1
 267   },
 268
 269   {
 270     -1,                                 -1,
 271     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(13),
 272     &li.rate_time_over_score,           FALSE
 273   },
 274
 275   {
 276     -1,                                 -1,
 277     -1,                                 -1,
 278     NULL,                               -1
 279   }
 280 };
 281
 282 static struct LevelFileConfigInfo chunk_config_ELEM[] =
 283 {
 284   // (these values are the same for each player)
 285   {
 286     EL_PLAYER_1,                        -1,
 287     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(1),
 288     &li.block_last_field,               FALSE   // default case for EM levels
 289   },
 290   {
 291     EL_PLAYER_1,                        -1,
 292     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(2),
 293     &li.sp_block_last_field,            TRUE    // default case for SP levels
 294   },
 295   {
 296     EL_PLAYER_1,                        -1,
 297     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(3),
 298     &li.instant_relocation,             FALSE
 299   },
 300   {
 301     EL_PLAYER_1,                        -1,
 302     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(4),
 303     &li.can_pass_to_walkable,           FALSE
 304   },
 305   {
 306     EL_PLAYER_1,                        -1,
 307     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(5),
 308     &li.block_snap_field,               TRUE
 309   },
 310   {
 311     EL_PLAYER_1,                        -1,
 312     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(6),
 313     &li.continuous_snapping,            TRUE
 314   },
 315   {
 316     EL_PLAYER_1,                        -1,
 317     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(12),
 318     &li.shifted_relocation,             FALSE
 319   },
 320   {
 321     EL_PLAYER_1,                        -1,
 322     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(15),
 323     &li.lazy_relocation,                FALSE
 324   },
 325   {
 326     EL_PLAYER_1,                        -1,
 327     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(16),
 328     &li.finish_dig_collect,             TRUE
 329   },
 330   {
 331     EL_PLAYER_1,                        -1,
 332     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(17),
 333     &li.keep_walkable_ce,               FALSE
 334   },
 335
 336   // (these values are different for each player)
 337   {
 338     EL_PLAYER_1,                        -1,
 339     TYPE_INTEGER,                       CONF_VALUE_8_BIT(7),
 340     &li.initial_player_stepsize[0],     STEPSIZE_NORMAL
 341   },
 342   {
 343     EL_PLAYER_1,                        -1,
 344     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(8),
 345     &li.initial_player_gravity[0],      FALSE
 346   },
 347   {
 348     EL_PLAYER_1,                        -1,
 349     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(9),
 350     &li.use_start_element[0],           FALSE
 351   },
 352   {
 353     EL_PLAYER_1,                        -1,
 354     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(1),
 355     &li.start_element[0],               EL_PLAYER_1
 356   },
 357   {
 358     EL_PLAYER_1,                        -1,
 359     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(10),
 360     &li.use_artwork_element[0],         FALSE
 361   },
 362   {
 363     EL_PLAYER_1,                        -1,
 364     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(2),
 365     &li.artwork_element[0],             EL_PLAYER_1
 366   },
 367   {
 368     EL_PLAYER_1,                        -1,
 369     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(11),
 370     &li.use_explosion_element[0],       FALSE
 371   },
 372   {
 373     EL_PLAYER_1,                        -1,
 374     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(3),
 375     &li.explosion_element[0],           EL_PLAYER_1
 376   },
 377   {
 378     EL_PLAYER_1,                        -1,
 379     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(13),
 380     &li.use_initial_inventory[0],       FALSE
 381   },
 382   {
 383     EL_PLAYER_1,                        -1,
 384     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(14),
 385     &li.initial_inventory_size[0],      1
 386   },
 387   {
 388     EL_PLAYER_1,                        -1,
 389     TYPE_ELEMENT_LIST,                  CONF_VALUE_BYTES(1),
 390     &li.initial_inventory_content[0][0],EL_EMPTY, NULL,
 391     &li.initial_inventory_size[0],      1, MAX_INITIAL_INVENTORY_SIZE
 392   },
 393
 394   {
 395     EL_PLAYER_2,                        -1,
 396     TYPE_INTEGER,                       CONF_VALUE_8_BIT(7),
 397     &li.initial_player_stepsize[1],     STEPSIZE_NORMAL
 398   },
 399   {
 400     EL_PLAYER_2,                        -1,
 401     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(8),
 402     &li.initial_player_gravity[1],      FALSE
 403   },
 404   {
 405     EL_PLAYER_2,                        -1,
 406     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(9),
 407     &li.use_start_element[1],           FALSE
 408   },
 409   {
 410     EL_PLAYER_2,                        -1,
 411     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(1),
 412     &li.start_element[1],               EL_PLAYER_2
 413   },
 414   {
 415     EL_PLAYER_2,                        -1,
 416     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(10),
 417     &li.use_artwork_element[1],         FALSE
 418   },
 419   {
 420     EL_PLAYER_2,                        -1,
 421     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(2),
 422     &li.artwork_element[1],             EL_PLAYER_2
 423   },
 424   {
 425     EL_PLAYER_2,                        -1,
 426     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(11),
 427     &li.use_explosion_element[1],       FALSE
 428   },
 429   {
 430     EL_PLAYER_2,                        -1,
 431     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(3),
 432     &li.explosion_element[1],           EL_PLAYER_2
 433   },
 434   {
 435     EL_PLAYER_2,                        -1,
 436     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(13),
 437     &li.use_initial_inventory[1],       FALSE
 438   },
 439   {
 440     EL_PLAYER_2,                        -1,
 441     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(14),
 442     &li.initial_inventory_size[1],      1
 443   },
 444   {
 445     EL_PLAYER_2,                        -1,
 446     TYPE_ELEMENT_LIST,                  CONF_VALUE_BYTES(1),
 447     &li.initial_inventory_content[1][0],EL_EMPTY, NULL,
 448     &li.initial_inventory_size[1],      1, MAX_INITIAL_INVENTORY_SIZE
 449   },
 450
 451   {
 452     EL_PLAYER_3,                        -1,
 453     TYPE_INTEGER,                       CONF_VALUE_8_BIT(7),
 454     &li.initial_player_stepsize[2],     STEPSIZE_NORMAL
 455   },
 456   {
 457     EL_PLAYER_3,                        -1,
 458     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(8),
 459     &li.initial_player_gravity[2],      FALSE
 460   },
 461   {
 462     EL_PLAYER_3,                        -1,
 463     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(9),
 464     &li.use_start_element[2],           FALSE
 465   },
 466   {
 467     EL_PLAYER_3,                        -1,
 468     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(1),
 469     &li.start_element[2],               EL_PLAYER_3
 470   },
 471   {
 472     EL_PLAYER_3,                        -1,
 473     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(10),
 474     &li.use_artwork_element[2],         FALSE
 475   },
 476   {
 477     EL_PLAYER_3,                        -1,
 478     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(2),
 479     &li.artwork_element[2],             EL_PLAYER_3
 480   },
 481   {
 482     EL_PLAYER_3,                        -1,
 483     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(11),
 484     &li.use_explosion_element[2],       FALSE
 485   },
 486   {
 487     EL_PLAYER_3,                        -1,
 488     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(3),
 489     &li.explosion_element[2],           EL_PLAYER_3
 490   },
 491   {
 492     EL_PLAYER_3,                        -1,
 493     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(13),
 494     &li.use_initial_inventory[2],       FALSE
 495   },
 496   {
 497     EL_PLAYER_3,                        -1,
 498     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(14),
 499     &li.initial_inventory_size[2],      1
 500   },
 501   {
 502     EL_PLAYER_3,                        -1,
 503     TYPE_ELEMENT_LIST,                  CONF_VALUE_BYTES(1),
 504     &li.initial_inventory_content[2][0],EL_EMPTY, NULL,
 505     &li.initial_inventory_size[2],      1, MAX_INITIAL_INVENTORY_SIZE
 506   },
 507
 508   {
 509     EL_PLAYER_4,                        -1,
 510     TYPE_INTEGER,                       CONF_VALUE_8_BIT(7),
 511     &li.initial_player_stepsize[3],     STEPSIZE_NORMAL
 512   },
 513   {
 514     EL_PLAYER_4,                        -1,
 515     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(8),
 516     &li.initial_player_gravity[3],      FALSE
 517   },
 518   {
 519     EL_PLAYER_4,                        -1,
 520     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(9),
 521     &li.use_start_element[3],           FALSE
 522   },
 523   {
 524     EL_PLAYER_4,                        -1,
 525     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(1),
 526     &li.start_element[3],               EL_PLAYER_4
 527   },
 528   {
 529     EL_PLAYER_4,                        -1,
 530     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(10),
 531     &li.use_artwork_element[3],         FALSE
 532   },
 533   {
 534     EL_PLAYER_4,                        -1,
 535     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(2),
 536     &li.artwork_element[3],             EL_PLAYER_4
 537   },
 538   {
 539     EL_PLAYER_4,                        -1,
 540     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(11),
 541     &li.use_explosion_element[3],       FALSE
 542   },
 543   {
 544     EL_PLAYER_4,                        -1,
 545     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(3),
 546     &li.explosion_element[3],           EL_PLAYER_4
 547   },
 548   {
 549     EL_PLAYER_4,                        -1,
 550     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(13),
 551     &li.use_initial_inventory[3],       FALSE
 552   },
 553   {
 554     EL_PLAYER_4,                        -1,
 555     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(14),
 556     &li.initial_inventory_size[3],      1
 557   },
 558   {
 559     EL_PLAYER_4,                        -1,
 560     TYPE_ELEMENT_LIST,                  CONF_VALUE_BYTES(1),
 561     &li.initial_inventory_content[3][0],EL_EMPTY, NULL,
 562     &li.initial_inventory_size[3],      1, MAX_INITIAL_INVENTORY_SIZE
 563   },
 564
 565   {
 566     EL_EMERALD,                         -1,
 567     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 568     &li.score[SC_EMERALD],              10
 569   },
 570
 571   {
 572     EL_DIAMOND,                         -1,
 573     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 574     &li.score[SC_DIAMOND],              10
 575   },
 576
 577   {
 578     EL_BUG,                             -1,
 579     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 580     &li.score[SC_BUG],                  10
 581   },
 582
 583   {
 584     EL_SPACESHIP,                       -1,
 585     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 586     &li.score[SC_SPACESHIP],            10
 587   },
 588
 589   {
 590     EL_PACMAN,                          -1,
 591     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 592     &li.score[SC_PACMAN],               10
 593   },
 594
 595   {
 596     EL_NUT,                             -1,
 597     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 598     &li.score[SC_NUT],                  10
 599   },
 600
 601   {
 602     EL_DYNAMITE,                        -1,
 603     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 604     &li.score[SC_DYNAMITE],             10
 605   },
 606
 607   {
 608     EL_KEY_1,                           -1,
 609     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 610     &li.score[SC_KEY],                  10
 611   },
 612
 613   {
 614     EL_PEARL,                           -1,
 615     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 616     &li.score[SC_PEARL],                10
 617   },
 618
 619   {
 620     EL_CRYSTAL,                         -1,
 621     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 622     &li.score[SC_CRYSTAL],              10
 623   },
 624
 625   {
 626     EL_BD_AMOEBA,                       -1,
 627     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(1),
 628     &li.amoeba_content,                 EL_DIAMOND
 629   },
 630   {
 631     EL_BD_AMOEBA,                       -1,
 632     TYPE_INTEGER,                       CONF_VALUE_16_BIT(2),
 633     &li.amoeba_speed,                   10
 634   },
 635   {
 636     EL_BD_AMOEBA,                       -1,
 637     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(1),
 638     &li.grow_into_diggable,             TRUE
 639   },
 640
 641   {
 642     EL_YAMYAM,                          -1,
 643     TYPE_CONTENT_LIST,                  CONF_VALUE_BYTES(1),
 644     &li.yamyam_content,                 EL_ROCK, NULL,
 645     &li.num_yamyam_contents,            4, MAX_ELEMENT_CONTENTS
 646   },
 647   {
 648     EL_YAMYAM,                          -1,
 649     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 650     &li.score[SC_YAMYAM],               10
 651   },
 652
 653   {
 654     EL_ROBOT,                           -1,
 655     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 656     &li.score[SC_ROBOT],                10
 657   },
 658   {
 659     EL_ROBOT,                           -1,
 660     TYPE_INTEGER,                       CONF_VALUE_16_BIT(2),
 661     &li.slurp_score,                    10
 662   },
 663
 664   {
 665     EL_ROBOT_WHEEL,                     -1,
 666     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 667     &li.time_wheel,                     10
 668   },
 669
 670   {
 671     EL_MAGIC_WALL,                      -1,
 672     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 673     &li.time_magic_wall,                10
 674   },
 675
 676   {
 677     EL_GAME_OF_LIFE,                    -1,
 678     TYPE_INTEGER,                       CONF_VALUE_8_BIT(1),
 679     &li.game_of_life[0],                2
 680   },
 681   {
 682     EL_GAME_OF_LIFE,                    -1,
 683     TYPE_INTEGER,                       CONF_VALUE_8_BIT(2),
 684     &li.game_of_life[1],                3
 685   },
 686   {
 687     EL_GAME_OF_LIFE,                    -1,
 688     TYPE_INTEGER,                       CONF_VALUE_8_BIT(3),
 689     &li.game_of_life[2],                3
 690   },
 691   {
 692     EL_GAME_OF_LIFE,                    -1,
 693     TYPE_INTEGER,                       CONF_VALUE_8_BIT(4),
 694     &li.game_of_life[3],                3
 695   },
 696   {
 697     EL_GAME_OF_LIFE,                    -1,
 698     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(5),
 699     &li.use_life_bugs,                  FALSE
 700   },
 701
 702   {
 703     EL_BIOMAZE,                         -1,
 704     TYPE_INTEGER,                       CONF_VALUE_8_BIT(1),
 705     &li.biomaze[0],                     2
 706   },
 707   {
 708     EL_BIOMAZE,                         -1,
 709     TYPE_INTEGER,                       CONF_VALUE_8_BIT(2),
 710     &li.biomaze[1],                     3
 711   },
 712   {
 713     EL_BIOMAZE,                         -1,
 714     TYPE_INTEGER,                       CONF_VALUE_8_BIT(3),
 715     &li.biomaze[2],                     3
 716   },
 717   {
 718     EL_BIOMAZE,                         -1,
 719     TYPE_INTEGER,                       CONF_VALUE_8_BIT(4),
 720     &li.biomaze[3],                     3
 721   },
 722
 723   {
 724     EL_TIMEGATE_SWITCH,                 -1,
 725     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 726     &li.time_timegate,                  10
 727   },
 728
 729   {
 730     EL_LIGHT_SWITCH_ACTIVE,             -1,
 731     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 732     &li.time_light,                     10
 733   },
 734
 735   {
 736     EL_SHIELD_NORMAL,                   -1,
 737     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 738     &li.shield_normal_time,             10
 739   },
 740   {
 741     EL_SHIELD_NORMAL,                   -1,
 742     TYPE_INTEGER,                       CONF_VALUE_16_BIT(2),
 743     &li.score[SC_SHIELD],               10
 744   },
 745
 746   {
 747     EL_SHIELD_DEADLY,                   -1,
 748     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 749     &li.shield_deadly_time,             10
 750   },
 751   {
 752     EL_SHIELD_DEADLY,                   -1,
 753     TYPE_INTEGER,                       CONF_VALUE_16_BIT(2),
 754     &li.score[SC_SHIELD],               10
 755   },
 756
 757   {
 758     EL_EXTRA_TIME,                      -1,
 759     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 760     &li.extra_time,                     10
 761   },
 762   {
 763     EL_EXTRA_TIME,                      -1,
 764     TYPE_INTEGER,                       CONF_VALUE_16_BIT(2),
 765     &li.extra_time_score,               10
 766   },
 767
 768   {
 769     EL_TIME_ORB_FULL,                   -1,
 770     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 771     &li.time_orb_time,                  10
 772   },
 773   {
 774     EL_TIME_ORB_FULL,                   -1,
 775     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(1),
 776     &li.use_time_orb_bug,               FALSE
 777   },
 778
 779   {
 780     EL_SPRING,                          -1,
 781     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(1),
 782     &li.use_spring_bug,                 FALSE
 783   },
 784
 785   {
 786     EL_EMC_ANDROID,                     -1,
 787     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 788     &li.android_move_time,              10
 789   },
 790   {
 791     EL_EMC_ANDROID,                     -1,
 792     TYPE_INTEGER,                       CONF_VALUE_16_BIT(2),
 793     &li.android_clone_time,             10
 794   },
 795   {
 796     EL_EMC_ANDROID,                     SAVE_CONF_NEVER,
 797     TYPE_ELEMENT_LIST,                  CONF_VALUE_BYTES(1),
 798     &li.android_clone_element[0],       EL_EMPTY, NULL,
 799     &li.num_android_clone_elements,     1, MAX_ANDROID_ELEMENTS_OLD
 800   },
 801   {
 802     EL_EMC_ANDROID,                     -1,
 803     TYPE_ELEMENT_LIST,                  CONF_VALUE_BYTES(2),
 804     &li.android_clone_element[0],       EL_EMPTY, NULL,
 805     &li.num_android_clone_elements,     1, MAX_ANDROID_ELEMENTS
 806   },
 807
 808   {
 809     EL_EMC_LENSES,                      -1,
 810     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 811     &li.lenses_score,                   10
 812   },
 813   {
 814     EL_EMC_LENSES,                      -1,
 815     TYPE_INTEGER,                       CONF_VALUE_16_BIT(2),
 816     &li.lenses_time,                    10
 817   },
 818
 819   {
 820     EL_EMC_MAGNIFIER,                   -1,
 821     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 822     &li.magnify_score,                  10
 823   },
 824   {
 825     EL_EMC_MAGNIFIER,                   -1,
 826     TYPE_INTEGER,                       CONF_VALUE_16_BIT(2),
 827     &li.magnify_time,                   10
 828   },
 829
 830   {
 831     EL_EMC_MAGIC_BALL,                  -1,
 832     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 833     &li.ball_time,                      10
 834   },
 835   {
 836     EL_EMC_MAGIC_BALL,                  -1,
 837     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(1),
 838     &li.ball_random,                    FALSE
 839   },
 840   {
 841     EL_EMC_MAGIC_BALL,                  -1,
 842     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(2),
 843     &li.ball_active_initial,            FALSE
 844   },
 845   {
 846     EL_EMC_MAGIC_BALL,                  -1,
 847     TYPE_CONTENT_LIST,                  CONF_VALUE_BYTES(1),
 848     &li.ball_content,                   EL_EMPTY, NULL,
 849     &li.num_ball_contents,              4, MAX_ELEMENT_CONTENTS
 850   },
 851
 852   {
 853     EL_SOKOBAN_FIELD_EMPTY,             -1,
 854     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(1),
 855     &li.sb_fields_needed,               TRUE
 856   },
 857
 858   {
 859     EL_SOKOBAN_OBJECT,                  -1,
 860     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(1),
 861     &li.sb_objects_needed,              TRUE
 862   },
 863
 864   {
 865     EL_MM_MCDUFFIN,                     -1,
 866     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(1),
 867     &li.mm_laser_red,                   FALSE
 868   },
 869   {
 870     EL_MM_MCDUFFIN,                     -1,
 871     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(2),
 872     &li.mm_laser_green,                 FALSE
 873   },
 874   {
 875     EL_MM_MCDUFFIN,                     -1,
 876     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(3),
 877     &li.mm_laser_blue,                  TRUE
 878   },
 879
 880   {
 881     EL_DF_LASER,                        -1,
 882     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(1),
 883     &li.df_laser_red,                   TRUE
 884   },
 885   {
 886     EL_DF_LASER,                        -1,
 887     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(2),
 888     &li.df_laser_green,                 TRUE
 889   },
 890   {
 891     EL_DF_LASER,                        -1,
 892     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(3),
 893     &li.df_laser_blue,                  FALSE
 894   },
 895
 896   {
 897     EL_MM_FUSE_ACTIVE,                  -1,
 898     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 899     &li.mm_time_fuse,                   25
 900   },
 901   {
 902     EL_MM_BOMB,                         -1,
 903     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 904     &li.mm_time_bomb,                   75
 905   },
 906   {
 907     EL_MM_GRAY_BALL,                    -1,
 908     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 909     &li.mm_time_ball,                   75
 910   },
 911   {
 912     EL_MM_STEEL_BLOCK,                  -1,
 913     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 914     &li.mm_time_block,                  75
 915   },
 916   {
 917     EL_MM_LIGHTBALL,                    -1,
 918     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 919     &li.score[SC_ELEM_BONUS],           10
 920   },
 921
 922   // ---------- unused values -------------------------------------------------
 923
 924   {
 925     EL_UNKNOWN,                         SAVE_CONF_NEVER,
 926     TYPE_INTEGER,                       CONF_VALUE_16_BIT(1),
 927     &li.score[SC_UNKNOWN_15],           10
 928   },
 929
 930   {
 931     -1,                                 -1,
 932     -1,                                 -1,
 933     NULL,                               -1
 934   }
 935 };
 936
 937 static struct LevelFileConfigInfo chunk_config_NOTE[] =
 938 {
 939   {
 940     -1,                                 -1,
 941     TYPE_INTEGER,                       CONF_VALUE_8_BIT(1),
 942     &xx_envelope.xsize,                 MAX_ENVELOPE_XSIZE,
 943   },
 944   {
 945     -1,                                 -1,
 946     TYPE_INTEGER,                       CONF_VALUE_8_BIT(2),
 947     &xx_envelope.ysize,                 MAX_ENVELOPE_YSIZE,
 948   },
 949
 950   {
 951     -1,                                 -1,
 952     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(3),
 953     &xx_envelope.autowrap,              FALSE
 954   },
 955   {
 956     -1,                                 -1,
 957     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(4),
 958     &xx_envelope.centered,              FALSE
 959   },
 960
 961   {
 962     -1,                                 -1,
 963     TYPE_STRING,                        CONF_VALUE_BYTES(1),
 964     &xx_envelope.text,                  -1, NULL,
 965     &xx_string_length_unused,           -1, MAX_ENVELOPE_TEXT_LEN,
 966     &xx_default_string_empty[0]
 967   },
 968
 969   {
 970     -1,                                 -1,
 971     -1,                                 -1,
 972     NULL,                               -1
 973   }
 974 };
 975
 976 static struct LevelFileConfigInfo chunk_config_CUSX_base[] =
 977 {
 978   {
 979     -1,                                 -1,
 980     TYPE_STRING,                        CONF_VALUE_BYTES(1),
 981     &xx_ei.description[0],              -1,
 982     &yy_ei.description[0],
 983     &xx_string_length_unused,           -1, MAX_ELEMENT_NAME_LEN,
 984     &xx_default_description[0]
 985   },
 986
 987   {
 988     -1,                                 -1,
 989     TYPE_BITFIELD,                      CONF_VALUE_32_BIT(1),
 990     &xx_ei.properties[EP_BITFIELD_BASE_NR], EP_BITMASK_BASE_DEFAULT,
 991     &yy_ei.properties[EP_BITFIELD_BASE_NR]
 992   },
 993 #if ENABLE_RESERVED_CODE
 994   // (reserved for later use)
 995   {
 996     -1,                                 -1,
 997     TYPE_BITFIELD,                      CONF_VALUE_32_BIT(2),
 998     &xx_ei.properties[EP_BITFIELD_BASE_NR + 1], EP_BITMASK_DEFAULT,
 999     &yy_ei.properties[EP_BITFIELD_BASE_NR + 1]
1000   },
1001 #endif
1002
1003   {
1004     -1,                                 -1,
1005     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(1),
1006     &xx_ei.use_gfx_element,             FALSE,
1007     &yy_ei.use_gfx_element
1008   },
1009   {
1010     -1,                                 -1,
1011     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(1),
1012     &xx_ei.gfx_element_initial,         EL_EMPTY_SPACE,
1013     &yy_ei.gfx_element_initial
1014   },
1015
1016   {
1017     -1,                                 -1,
1018     TYPE_BITFIELD,                      CONF_VALUE_8_BIT(2),
1019     &xx_ei.access_direction,            MV_ALL_DIRECTIONS,
1020     &yy_ei.access_direction
1021   },
1022
1023   {
1024     -1,                                 -1,
1025     TYPE_INTEGER,                       CONF_VALUE_16_BIT(2),
1026     &xx_ei.collect_score_initial,       10,
1027     &yy_ei.collect_score_initial
1028   },
1029   {
1030     -1,                                 -1,
1031     TYPE_INTEGER,                       CONF_VALUE_16_BIT(3),
1032     &xx_ei.collect_count_initial,       1,
1033     &yy_ei.collect_count_initial
1034   },
1035
1036   {
1037     -1,                                 -1,
1038     TYPE_INTEGER,                       CONF_VALUE_16_BIT(4),
1039     &xx_ei.ce_value_fixed_initial,      0,
1040     &yy_ei.ce_value_fixed_initial
1041   },
1042   {
1043     -1,                                 -1,
1044     TYPE_INTEGER,                       CONF_VALUE_16_BIT(5),
1045     &xx_ei.ce_value_random_initial,     0,
1046     &yy_ei.ce_value_random_initial
1047   },
1048   {
1049     -1,                                 -1,
1050     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(3),
1051     &xx_ei.use_last_ce_value,           FALSE,
1052     &yy_ei.use_last_ce_value
1053   },
1054
1055   {
1056     -1,                                 -1,
1057     TYPE_INTEGER,                       CONF_VALUE_16_BIT(6),
1058     &xx_ei.push_delay_fixed,            8,
1059     &yy_ei.push_delay_fixed
1060   },
1061   {
1062     -1,                                 -1,
1063     TYPE_INTEGER,                       CONF_VALUE_16_BIT(7),
1064     &xx_ei.push_delay_random,           8,
1065     &yy_ei.push_delay_random
1066   },
1067   {
1068     -1,                                 -1,
1069     TYPE_INTEGER,                       CONF_VALUE_16_BIT(8),
1070     &xx_ei.drop_delay_fixed,            0,
1071     &yy_ei.drop_delay_fixed
1072   },
1073   {
1074     -1,                                 -1,
1075     TYPE_INTEGER,                       CONF_VALUE_16_BIT(9),
1076     &xx_ei.drop_delay_random,           0,
1077     &yy_ei.drop_delay_random
1078   },
1079   {
1080     -1,                                 -1,
1081     TYPE_INTEGER,                       CONF_VALUE_16_BIT(10),
1082     &xx_ei.move_delay_fixed,            0,
1083     &yy_ei.move_delay_fixed
1084   },
1085   {
1086     -1,                                 -1,
1087     TYPE_INTEGER,                       CONF_VALUE_16_BIT(11),
1088     &xx_ei.move_delay_random,           0,
1089     &yy_ei.move_delay_random
1090   },
1091   {
1092     -1,                                 -1,
1093     TYPE_INTEGER,                       CONF_VALUE_16_BIT(16),
1094     &xx_ei.step_delay_fixed,            0,
1095     &yy_ei.step_delay_fixed
1096   },
1097   {
1098     -1,                                 -1,
1099     TYPE_INTEGER,                       CONF_VALUE_16_BIT(17),
1100     &xx_ei.step_delay_random,           0,
1101     &yy_ei.step_delay_random
1102   },
1103
1104   {
1105     -1,                                 -1,
1106     TYPE_BITFIELD,                      CONF_VALUE_32_BIT(3),
1107     &xx_ei.move_pattern,                MV_ALL_DIRECTIONS,
1108     &yy_ei.move_pattern
1109   },
1110   {
1111     -1,                                 -1,
1112     TYPE_BITFIELD,                      CONF_VALUE_8_BIT(4),
1113     &xx_ei.move_direction_initial,      MV_START_AUTOMATIC,
1114     &yy_ei.move_direction_initial
1115   },
1116   {
1117     -1,                                 -1,
1118     TYPE_INTEGER,                       CONF_VALUE_8_BIT(5),
1119     &xx_ei.move_stepsize,               TILEX / 8,
1120     &yy_ei.move_stepsize
1121   },
1122
1123   {
1124     -1,                                 -1,
1125     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(12),
1126     &xx_ei.move_enter_element,          EL_EMPTY_SPACE,
1127     &yy_ei.move_enter_element
1128   },
1129   {
1130     -1,                                 -1,
1131     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(13),
1132     &xx_ei.move_leave_element,          EL_EMPTY_SPACE,
1133     &yy_ei.move_leave_element
1134   },
1135   {
1136     -1,                                 -1,
1137     TYPE_INTEGER,                       CONF_VALUE_8_BIT(6),
1138     &xx_ei.move_leave_type,             LEAVE_TYPE_UNLIMITED,
1139     &yy_ei.move_leave_type
1140   },
1141
1142   {
1143     -1,                                 -1,
1144     TYPE_INTEGER,                       CONF_VALUE_8_BIT(7),
1145     &xx_ei.slippery_type,               SLIPPERY_ANY_RANDOM,
1146     &yy_ei.slippery_type
1147   },
1148
1149   {
1150     -1,                                 -1,
1151     TYPE_INTEGER,                       CONF_VALUE_8_BIT(8),
1152     &xx_ei.explosion_type,              EXPLODES_3X3,
1153     &yy_ei.explosion_type
1154   },
1155   {
1156     -1,                                 -1,
1157     TYPE_INTEGER,                       CONF_VALUE_16_BIT(14),
1158     &xx_ei.explosion_delay,             16,
1159     &yy_ei.explosion_delay
1160   },
1161   {
1162     -1,                                 -1,
1163     TYPE_INTEGER,                       CONF_VALUE_16_BIT(15),
1164     &xx_ei.ignition_delay,              8,
1165     &yy_ei.ignition_delay
1166   },
1167
1168   {
1169     -1,                                 -1,
1170     TYPE_CONTENT_LIST,                  CONF_VALUE_BYTES(2),
1171     &xx_ei.content,                     EL_EMPTY_SPACE,
1172     &yy_ei.content,
1173     &xx_num_contents,                   1, 1
1174   },
1175
1176   // ---------- "num_change_pages" must be the last entry ---------------------
1177
1178   {
1179     -1,                                 SAVE_CONF_ALWAYS,
1180     TYPE_INTEGER,                       CONF_VALUE_8_BIT(9),
1181     &xx_ei.num_change_pages,            1,
1182     &yy_ei.num_change_pages
1183   },
1184
1185   {
1186     -1,                                 -1,
1187     -1,                                 -1,
1188     NULL,                               -1,
1189     NULL
1190   }
1191 };
1192
1193 static struct LevelFileConfigInfo chunk_config_CUSX_change[] =
1194 {
1195   // ---------- "current_change_page" must be the first entry -----------------
1196
1197   {
1198     -1,                                 SAVE_CONF_ALWAYS,
1199     TYPE_INTEGER,                       CONF_VALUE_8_BIT(1),
1200     &xx_current_change_page,            -1
1201   },
1202
1203   // ---------- (the remaining entries can be in any order) -------------------
1204
1205   {
1206     -1,                                 -1,
1207     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(2),
1208     &xx_change.can_change,              FALSE
1209   },
1210
1211   {
1212     -1,                                 -1,
1213     TYPE_BITFIELD,                      CONF_VALUE_32_BIT(1),
1214     &xx_event_bits[0],                  0
1215   },
1216   {
1217     -1,                                 -1,
1218     TYPE_BITFIELD,                      CONF_VALUE_32_BIT(2),
1219     &xx_event_bits[1],                  0
1220   },
1221
1222   {
1223     -1,                                 -1,
1224     TYPE_BITFIELD,                      CONF_VALUE_8_BIT(3),
1225     &xx_change.trigger_player,          CH_PLAYER_ANY
1226   },
1227   {
1228     -1,                                 -1,
1229     TYPE_BITFIELD,                      CONF_VALUE_8_BIT(4),
1230     &xx_change.trigger_side,            CH_SIDE_ANY
1231   },
1232   {
1233     -1,                                 -1,
1234     TYPE_BITFIELD,                      CONF_VALUE_32_BIT(3),
1235     &xx_change.trigger_page,            CH_PAGE_ANY
1236   },
1237
1238   {
1239     -1,                                 -1,
1240     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(1),
1241     &xx_change.target_element,          EL_EMPTY_SPACE
1242   },
1243
1244   {
1245     -1,                                 -1,
1246     TYPE_INTEGER,                       CONF_VALUE_16_BIT(2),
1247     &xx_change.delay_fixed,             0
1248   },
1249   {
1250     -1,                                 -1,
1251     TYPE_INTEGER,                       CONF_VALUE_16_BIT(3),
1252     &xx_change.delay_random,            0
1253   },
1254   {
1255     -1,                                 -1,
1256     TYPE_INTEGER,                       CONF_VALUE_16_BIT(4),
1257     &xx_change.delay_frames,            FRAMES_PER_SECOND
1258   },
1259
1260   {
1261     -1,                                 -1,
1262     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(5),
1263     &xx_change.initial_trigger_element, EL_EMPTY_SPACE
1264   },
1265
1266   {
1267     -1,                                 -1,
1268     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(6),
1269     &xx_change.explode,                 FALSE
1270   },
1271   {
1272     -1,                                 -1,
1273     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(7),
1274     &xx_change.use_target_content,      FALSE
1275   },
1276   {
1277     -1,                                 -1,
1278     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(8),
1279     &xx_change.only_if_complete,        FALSE
1280   },
1281   {
1282     -1,                                 -1,
1283     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(9),
1284     &xx_change.use_random_replace,      FALSE
1285   },
1286   {
1287     -1,                                 -1,
1288     TYPE_INTEGER,                       CONF_VALUE_8_BIT(10),
1289     &xx_change.random_percentage,       100
1290   },
1291   {
1292     -1,                                 -1,
1293     TYPE_INTEGER,                       CONF_VALUE_8_BIT(11),
1294     &xx_change.replace_when,            CP_WHEN_EMPTY
1295   },
1296
1297   {
1298     -1,                                 -1,
1299     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(12),
1300     &xx_change.has_action,              FALSE
1301   },
1302   {
1303     -1,                                 -1,
1304     TYPE_INTEGER,                       CONF_VALUE_8_BIT(13),
1305     &xx_change.action_type,             CA_NO_ACTION
1306   },
1307   {
1308     -1,                                 -1,
1309     TYPE_INTEGER,                       CONF_VALUE_8_BIT(14),
1310     &xx_change.action_mode,             CA_MODE_UNDEFINED
1311   },
1312   {
1313     -1,                                 -1,
1314     TYPE_INTEGER,                       CONF_VALUE_16_BIT(6),
1315     &xx_change.action_arg,              CA_ARG_UNDEFINED
1316   },
1317
1318   {
1319     -1,                                 -1,
1320     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(7),
1321     &xx_change.action_element,          EL_EMPTY_SPACE
1322   },
1323
1324   {
1325     -1,                                 -1,
1326     TYPE_CONTENT_LIST,                  CONF_VALUE_BYTES(1),
1327     &xx_change.target_content,          EL_EMPTY_SPACE, NULL,
1328     &xx_num_contents,                   1, 1
1329   },
1330
1331   {
1332     -1,                                 -1,
1333     -1,                                 -1,
1334     NULL,                               -1
1335   }
1336 };
1337
1338 static struct LevelFileConfigInfo chunk_config_GRPX[] =
1339 {
1340   {
1341     -1,                                 -1,
1342     TYPE_STRING,                        CONF_VALUE_BYTES(1),
1343     &xx_ei.description[0],              -1, NULL,
1344     &xx_string_length_unused,           -1, MAX_ELEMENT_NAME_LEN,
1345     &xx_default_description[0]
1346   },
1347
1348   {
1349     -1,                                 -1,
1350     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(1),
1351     &xx_ei.use_gfx_element,             FALSE
1352   },
1353   {
1354     -1,                                 -1,
1355     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(1),
1356     &xx_ei.gfx_element_initial,         EL_EMPTY_SPACE
1357   },
1358
1359   {
1360     -1,                                 -1,
1361     TYPE_INTEGER,                       CONF_VALUE_8_BIT(2),
1362     &xx_group.choice_mode,              ANIM_RANDOM
1363   },
1364
1365   {
1366     -1,                                 -1,
1367     TYPE_ELEMENT_LIST,                  CONF_VALUE_BYTES(2),
1368     &xx_group.element[0],               EL_EMPTY_SPACE, NULL,
1369     &xx_group.num_elements,             1, MAX_ELEMENTS_IN_GROUP
1370   },
1371
1372   {
1373     -1,                                 -1,
1374     -1,                                 -1,
1375     NULL,                               -1
1376   }
1377 };
1378
1379 static struct LevelFileConfigInfo chunk_config_CONF[] =         // (OBSOLETE)
1380 {
1381   {
1382     EL_PLAYER_1,                        -1,
1383     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(9),
1384     &li.block_snap_field,               TRUE
1385   },
1386   {
1387     EL_PLAYER_1,                        -1,
1388     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(13),
1389     &li.continuous_snapping,            TRUE
1390   },
1391   {
1392     EL_PLAYER_1,                        -1,
1393     TYPE_INTEGER,                       CONF_VALUE_8_BIT(1),
1394     &li.initial_player_stepsize[0],     STEPSIZE_NORMAL
1395   },
1396   {
1397     EL_PLAYER_1,                        -1,
1398     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(10),
1399     &li.use_start_element[0],           FALSE
1400   },
1401   {
1402     EL_PLAYER_1,                        -1,
1403     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(1),
1404     &li.start_element[0],               EL_PLAYER_1
1405   },
1406   {
1407     EL_PLAYER_1,                        -1,
1408     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(11),
1409     &li.use_artwork_element[0],         FALSE
1410   },
1411   {
1412     EL_PLAYER_1,                        -1,
1413     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(2),
1414     &li.artwork_element[0],             EL_PLAYER_1
1415   },
1416   {
1417     EL_PLAYER_1,                        -1,
1418     TYPE_BOOLEAN,                       CONF_VALUE_8_BIT(12),
1419     &li.use_explosion_element[0],       FALSE
1420   },
1421   {
1422     EL_PLAYER_1,                        -1,
1423     TYPE_ELEMENT,                       CONF_VALUE_16_BIT(3),
1424     &li.explosion_element[0],           EL_PLAYER_1
1425   },
1426
1427   {
1428     -1,                                 -1,
1429     -1,                                 -1,
1430     NULL,                               -1
1431   }
1432 };
1433
1434 static struct
1435 {
1436   int filetype;
1437   char *id;
1438 }
1439 filetype_id_list[] =
1440 {
1441   { LEVEL_FILE_TYPE_RND,        "RND"   },
1442   { LEVEL_FILE_TYPE_BD,         "BD"    },
1443   { LEVEL_FILE_TYPE_EM,         "EM"    },
1444   { LEVEL_FILE_TYPE_SP,         "SP"    },
1445   { LEVEL_FILE_TYPE_DX,         "DX"    },
1446   { LEVEL_FILE_TYPE_SB,         "SB"    },
1447   { LEVEL_FILE_TYPE_DC,         "DC"    },
1448   { LEVEL_FILE_TYPE_MM,         "MM"    },
1449   { LEVEL_FILE_TYPE_MM,         "DF"    },
1450   { -1,                         NULL    },
1451 };
1452
1453
1454 // ============================================================================
1455 // level file functions
1456 // ============================================================================
1457
1458 static boolean check_special_flags(char *flag)
1459 {
1460   if (strEqual(options.special_flags, flag) ||
1461       strEqual(leveldir_current->special_flags, flag))
1462     return TRUE;
1463
1464   return FALSE;
1465 }
1466
1467 static struct DateInfo getCurrentDate(void)
1468 {
1469   time_t epoch_seconds = time(NULL);
1470   struct tm *now = localtime(&epoch_seconds);
1471   struct DateInfo date;
1472
1473   date.year  = now->tm_year + 1900;
1474   date.month = now->tm_mon  + 1;
1475   date.day   = now->tm_mday;
1476
1477   date.src   = DATE_SRC_CLOCK;
1478
1479   return date;
1480 }
1481
1482 static void resetEventFlags(struct ElementChangeInfo *change)
1483 {
1484   int i;
1485
1486   for (i = 0; i < NUM_CHANGE_EVENTS; i++)
1487     change->has_event[i] = FALSE;
1488 }
1489
1490 static void resetEventBits(void)
1491 {
1492   int i;
1493
1494   for (i = 0; i < NUM_CE_BITFIELDS; i++)
1495     xx_event_bits[i] = 0;
1496 }
1497
1498 static void setEventFlagsFromEventBits(struct ElementChangeInfo *change)
1499 {
1500   int i;
1501
1502   /* important: only change event flag if corresponding event bit is set
1503      (this is because all xx_event_bits[] values are loaded separately,
1504      and all xx_event_bits[] values are set back to zero before loading
1505      another value xx_event_bits[x] (each value representing 32 flags)) */
1506
1507   for (i = 0; i < NUM_CHANGE_EVENTS; i++)
1508     if (xx_event_bits[CH_EVENT_BITFIELD_NR(i)] & CH_EVENT_BIT(i))
1509       change->has_event[i] = TRUE;
1510 }
1511
1512 static void setEventBitsFromEventFlags(struct ElementChangeInfo *change)
1513 {
1514   int i;
1515
1516   /* in contrast to the above function setEventFlagsFromEventBits(), it
1517      would also be possible to set all bits in xx_event_bits[] to 0 or 1
1518      depending on the corresponding change->has_event[i] values here, as
1519      all xx_event_bits[] values are reset in resetEventBits() before */
1520
1521   for (i = 0; i < NUM_CHANGE_EVENTS; i++)
1522     if (change->has_event[i])
1523       xx_event_bits[CH_EVENT_BITFIELD_NR(i)] |= CH_EVENT_BIT(i);
1524 }
1525
1526 static char *getDefaultElementDescription(struct ElementInfo *ei)
1527 {
1528   static char description[MAX_ELEMENT_NAME_LEN + 1];
1529   char *default_description = (ei->custom_description != NULL ?
1530                                ei->custom_description :
1531                                ei->editor_description);
1532   int i;
1533
1534   // always start with reliable default values
1535   for (i = 0; i < MAX_ELEMENT_NAME_LEN + 1; i++)
1536     description[i] = '\0';
1537
1538   // truncate element description to MAX_ELEMENT_NAME_LEN bytes
1539   strncpy(description, default_description, MAX_ELEMENT_NAME_LEN);
1540
1541   return &description[0];
1542 }
1543
1544 static void setElementDescriptionToDefault(struct ElementInfo *ei)
1545 {
1546   char *default_description = getDefaultElementDescription(ei);
1547   int i;
1548
1549   for (i = 0; i < MAX_ELEMENT_NAME_LEN + 1; i++)
1550     ei->description[i] = default_description[i];
1551 }
1552
1553 static void setConfigToDefaultsFromConfigList(struct LevelFileConfigInfo *conf)
1554 {
1555   int i;
1556
1557   for (i = 0; conf[i].data_type != -1; i++)
1558   {
1559     int default_value = conf[i].default_value;
1560     int data_type = conf[i].data_type;
1561     int conf_type = conf[i].conf_type;
1562     int byte_mask = conf_type & CONF_MASK_BYTES;
1563
1564     if (byte_mask == CONF_MASK_MULTI_BYTES)
1565     {
1566       int default_num_entities = conf[i].default_num_entities;
1567       int max_num_entities = conf[i].max_num_entities;
1568
1569       *(int *)(conf[i].num_entities) = default_num_entities;
1570
1571       if (data_type == TYPE_STRING)
1572       {
1573         char *default_string = conf[i].default_string;
1574         char *string = (char *)(conf[i].value);
1575
1576         strncpy(string, default_string, max_num_entities);
1577       }
1578       else if (data_type == TYPE_ELEMENT_LIST)
1579       {
1580         int *element_array = (int *)(conf[i].value);
1581         int j;
1582
1583         for (j = 0; j < max_num_entities; j++)
1584           element_array[j] = default_value;
1585       }
1586       else if (data_type == TYPE_CONTENT_LIST)
1587       {
1588         struct Content *content = (struct Content *)(conf[i].value);
1589         int c, x, y;
1590
1591         for (c = 0; c < max_num_entities; c++)
1592           for (y = 0; y < 3; y++)
1593             for (x = 0; x < 3; x++)
1594               content[c].e[x][y] = default_value;
1595       }
1596     }
1597     else        // constant size configuration data (1, 2 or 4 bytes)
1598     {
1599       if (data_type == TYPE_BOOLEAN)
1600         *(boolean *)(conf[i].value) = default_value;
1601       else
1602         *(int *)    (conf[i].value) = default_value;
1603     }
1604   }
1605 }
1606
1607 static void copyConfigFromConfigList(struct LevelFileConfigInfo *conf)
1608 {
1609   int i;
1610
1611   for (i = 0; conf[i].data_type != -1; i++)
1612   {
1613     int data_type = conf[i].data_type;
1614     int conf_type = conf[i].conf_type;
1615     int byte_mask = conf_type & CONF_MASK_BYTES;
1616
1617     if (byte_mask == CONF_MASK_MULTI_BYTES)
1618     {
1619       int max_num_entities = conf[i].max_num_entities;
1620
1621       if (data_type == TYPE_STRING)
1622       {
1623         char *string      = (char *)(conf[i].value);
1624         char *string_copy = (char *)(conf[i].value_copy);
1625
1626         strncpy(string_copy, string, max_num_entities);
1627       }
1628       else if (data_type == TYPE_ELEMENT_LIST)
1629       {
1630         int *element_array      = (int *)(conf[i].value);
1631         int *element_array_copy = (int *)(conf[i].value_copy);
1632         int j;
1633
1634         for (j = 0; j < max_num_entities; j++)
1635           element_array_copy[j] = element_array[j];
1636       }
1637       else if (data_type == TYPE_CONTENT_LIST)
1638       {
1639         struct Content *content      = (struct Content *)(conf[i].value);
1640         struct Content *content_copy = (struct Content *)(conf[i].value_copy);
1641         int c, x, y;
1642
1643         for (c = 0; c < max_num_entities; c++)
1644           for (y = 0; y < 3; y++)
1645             for (x = 0; x < 3; x++)
1646               content_copy[c].e[x][y] = content[c].e[x][y];
1647       }
1648     }
1649     else        // constant size configuration data (1, 2 or 4 bytes)
1650     {
1651       if (data_type == TYPE_BOOLEAN)
1652         *(boolean *)(conf[i].value_copy) = *(boolean *)(conf[i].value);
1653       else
1654         *(int *)    (conf[i].value_copy) = *(int *)    (conf[i].value);
1655     }
1656   }
1657 }
1658
1659 void copyElementInfo(struct ElementInfo *ei_from, struct ElementInfo *ei_to)
1660 {
1661   int i;
1662
1663   xx_ei = *ei_from;     // copy element data into temporary buffer
1664   yy_ei = *ei_to;       // copy element data into temporary buffer
1665
1666   copyConfigFromConfigList(chunk_config_CUSX_base);
1667
1668   *ei_from = xx_ei;
1669   *ei_to   = yy_ei;
1670
1671   // ---------- reinitialize and copy change pages ----------
1672
1673   ei_to->num_change_pages = ei_from->num_change_pages;
1674   ei_to->current_change_page = ei_from->current_change_page;
1675
1676   setElementChangePages(ei_to, ei_to->num_change_pages);
1677
1678   for (i = 0; i < ei_to->num_change_pages; i++)
1679     ei_to->change_page[i] = ei_from->change_page[i];
1680
1681   // ---------- copy group element info ----------
1682   if (ei_from->group != NULL && ei_to->group != NULL)   // group or internal
1683     *ei_to->group = *ei_from->group;
1684
1685   // mark this custom element as modified
1686   ei_to->modified_settings = TRUE;
1687 }
1688
1689 void setElementChangePages(struct ElementInfo *ei, int change_pages)
1690 {
1691   int change_page_size = sizeof(struct ElementChangeInfo);
1692
1693   ei->num_change_pages = MAX(1, change_pages);
1694
1695   ei->change_page =
1696     checked_realloc(ei->change_page, ei->num_change_pages * change_page_size);
1697
1698   if (ei->current_change_page >= ei->num_change_pages)
1699     ei->current_change_page = ei->num_change_pages - 1;
1700
1701   ei->change = &ei->change_page[ei->current_change_page];
1702 }
1703
1704 void setElementChangeInfoToDefaults(struct ElementChangeInfo *change)
1705 {
1706   xx_change = *change;          // copy change data into temporary buffer
1707
1708   setConfigToDefaultsFromConfigList(chunk_config_CUSX_change);
1709
1710   *change = xx_change;
1711
1712   resetEventFlags(change);
1713
1714   change->direct_action = 0;
1715   change->other_action = 0;
1716
1717   change->pre_change_function = NULL;
1718   change->change_function = NULL;
1719   change->post_change_function = NULL;
1720 }
1721
1722 static void setLevelInfoToDefaults_Level(struct LevelInfo *level)
1723 {
1724   int i, x, y;
1725
1726   li = *level;          // copy level data into temporary buffer
1727   setConfigToDefaultsFromConfigList(chunk_config_INFO);
1728   *level = li;          // copy temporary buffer back to level data
1729
1730   setLevelInfoToDefaults_EM();
1731   setLevelInfoToDefaults_SP();
1732   setLevelInfoToDefaults_MM();
1733
1734   level->native_em_level = &native_em_level;
1735   level->native_sp_level = &native_sp_level;
1736   level->native_mm_level = &native_mm_level;
1737
1738   level->file_version = FILE_VERSION_ACTUAL;
1739   level->game_version = GAME_VERSION_ACTUAL;
1740
1741   level->creation_date = getCurrentDate();
1742
1743   level->encoding_16bit_field  = TRUE;
1744   level->encoding_16bit_yamyam = TRUE;
1745   level->encoding_16bit_amoeba = TRUE;
1746
1747   // clear level name and level author string buffers
1748   for (i = 0; i < MAX_LEVEL_NAME_LEN; i++)
1749     level->name[i] = '\0';
1750   for (i = 0; i < MAX_LEVEL_AUTHOR_LEN; i++)
1751     level->author[i] = '\0';
1752
1753   // set level name and level author to default values
1754   strcpy(level->name, NAMELESS_LEVEL_NAME);
1755   strcpy(level->author, ANONYMOUS_NAME);
1756
1757   // set level playfield to playable default level with player and exit
1758   for (x = 0; x < MAX_LEV_FIELDX; x++)
1759     for (y = 0; y < MAX_LEV_FIELDY; y++)
1760       level->field[x][y] = EL_SAND;
1761
1762   level->field[0][0] = EL_PLAYER_1;
1763   level->field[STD_LEV_FIELDX - 1][STD_LEV_FIELDY - 1] = EL_EXIT_CLOSED;
1764
1765   BorderElement = EL_STEELWALL;
1766
1767   // detect custom elements when loading them
1768   level->file_has_custom_elements = FALSE;
1769
1770   // set all bug compatibility flags to "false" => do not emulate this bug
1771   level->use_action_after_change_bug = FALSE;
1772
1773   if (leveldir_current)
1774   {
1775     // try to determine better author name than 'anonymous'
1776     if (!strEqual(leveldir_current->author, ANONYMOUS_NAME))
1777     {
1778       strncpy(level->author, leveldir_current->author, MAX_LEVEL_AUTHOR_LEN);
1779       level->author[MAX_LEVEL_AUTHOR_LEN] = '\0';
1780     }
1781     else
1782     {
1783       switch (LEVELCLASS(leveldir_current))
1784       {
1785         case LEVELCLASS_TUTORIAL:
1786           strcpy(level->author, PROGRAM_AUTHOR_STRING);
1787           break;
1788
1789         case LEVELCLASS_CONTRIB:
1790           strncpy(level->author, leveldir_current->name, MAX_LEVEL_AUTHOR_LEN);
1791           level->author[MAX_LEVEL_AUTHOR_LEN] = '\0';
1792           break;
1793
1794         case LEVELCLASS_PRIVATE:
1795           strncpy(level->author, getRealName(), MAX_LEVEL_AUTHOR_LEN);
1796           level->author[MAX_LEVEL_AUTHOR_LEN] = '\0';
1797           break;
1798
1799         default:
1800           // keep default value
1801           break;
1802       }
1803     }
1804   }
1805 }
1806
1807 static void setLevelInfoToDefaults_Elements(struct LevelInfo *level)
1808 {
1809   static boolean clipboard_elements_initialized = FALSE;
1810   int i;
1811
1812   InitElementPropertiesStatic();
1813
1814   li = *level;          // copy level data into temporary buffer
1815   setConfigToDefaultsFromConfigList(chunk_config_ELEM);
1816   *level = li;          // copy temporary buffer back to level data
1817
1818   for (i = 0; i < MAX_NUM_ELEMENTS; i++)
1819   {
1820     int element = i;
1821     struct ElementInfo *ei = &element_info[element];
1822
1823     // never initialize clipboard elements after the very first time
1824     // (to be able to use clipboard elements between several levels)
1825     if (IS_CLIPBOARD_ELEMENT(element) && clipboard_elements_initialized)
1826       continue;
1827
1828     if (IS_ENVELOPE(element))
1829     {
1830       int envelope_nr = element - EL_ENVELOPE_1;
1831
1832       setConfigToDefaultsFromConfigList(chunk_config_NOTE);
1833
1834       level->envelope[envelope_nr] = xx_envelope;
1835     }
1836
1837     if (IS_CUSTOM_ELEMENT(element) ||
1838         IS_GROUP_ELEMENT(element) ||
1839         IS_INTERNAL_ELEMENT(element))
1840     {
1841       xx_ei = *ei;      // copy element data into temporary buffer
1842
1843       setConfigToDefaultsFromConfigList(chunk_config_CUSX_base);
1844
1845       *ei = xx_ei;
1846     }
1847
1848     setElementChangePages(ei, 1);
1849     setElementChangeInfoToDefaults(ei->change);
1850
1851     if (IS_CUSTOM_ELEMENT(element) ||
1852         IS_GROUP_ELEMENT(element) ||
1853         IS_INTERNAL_ELEMENT(element))
1854     {
1855       setElementDescriptionToDefault(ei);
1856
1857       ei->modified_settings = FALSE;
1858     }
1859
1860     if (IS_CUSTOM_ELEMENT(element) ||
1861         IS_INTERNAL_ELEMENT(element))
1862     {
1863       // internal values used in level editor
1864
1865       ei->access_type = 0;
1866       ei->access_layer = 0;
1867       ei->access_protected = 0;
1868       ei->walk_to_action = 0;
1869       ei->smash_targets = 0;
1870       ei->deadliness = 0;
1871
1872       ei->can_explode_by_fire = FALSE;
1873       ei->can_explode_smashed = FALSE;
1874       ei->can_explode_impact = FALSE;
1875
1876       ei->current_change_page = 0;
1877     }
1878
1879     if (IS_GROUP_ELEMENT(element) ||
1880         IS_INTERNAL_ELEMENT(element))
1881     {
1882       struct ElementGroupInfo *group;
1883
1884       // initialize memory for list of elements in group
1885       if (ei->group == NULL)
1886         ei->group = checked_malloc(sizeof(struct ElementGroupInfo));
1887
1888       group = ei->group;
1889
1890       xx_group = *group;        // copy group data into temporary buffer
1891
1892       setConfigToDefaultsFromConfigList(chunk_config_GRPX);
1893
1894       *group = xx_group;
1895     }
1896   }
1897
1898   clipboard_elements_initialized = TRUE;
1899 }
1900
1901 static void setLevelInfoToDefaults(struct LevelInfo *level,
1902                                    boolean level_info_only,
1903                                    boolean reset_file_status)
1904 {
1905   setLevelInfoToDefaults_Level(level);
1906
1907   if (!level_info_only)
1908     setLevelInfoToDefaults_Elements(level);
1909
1910   if (reset_file_status)
1911   {
1912     level->no_valid_file = FALSE;
1913     level->no_level_file = FALSE;
1914   }
1915
1916   level->changed = FALSE;
1917 }
1918
1919 static void setFileInfoToDefaults(struct LevelFileInfo *level_file_info)
1920 {
1921   level_file_info->nr = 0;
1922   level_file_info->type = LEVEL_FILE_TYPE_UNKNOWN;
1923   level_file_info->packed = FALSE;
1924
1925   setString(&level_file_info->basename, NULL);
1926   setString(&level_file_info->filename, NULL);
1927 }
1928
1929 int getMappedElement_SB(int, boolean);
1930
1931 static void ActivateLevelTemplate(void)
1932 {
1933   int x, y;
1934
1935   if (check_special_flags("load_xsb_to_ces"))
1936   {
1937     // fill smaller playfields with padding "beyond border wall" elements
1938     if (level.fieldx < level_template.fieldx ||
1939         level.fieldy < level_template.fieldy)
1940     {
1941       short field[level.fieldx][level.fieldy];
1942       int new_fieldx = MAX(level.fieldx, level_template.fieldx);
1943       int new_fieldy = MAX(level.fieldy, level_template.fieldy);
1944       int pos_fieldx = (new_fieldx - level.fieldx) / 2;
1945       int pos_fieldy = (new_fieldy - level.fieldy) / 2;
1946
1947       // copy old playfield (which is smaller than the visible area)
1948       for (y = 0; y < level.fieldy; y++) for (x = 0; x < level.fieldx; x++)
1949         field[x][y] = level.field[x][y];
1950
1951       // fill new, larger playfield with "beyond border wall" elements
1952       for (y = 0; y < new_fieldy; y++) for (x = 0; x < new_fieldx; x++)
1953         level.field[x][y] = getMappedElement_SB('_', TRUE);
1954
1955       // copy the old playfield to the middle of the new playfield
1956       for (y = 0; y < level.fieldy; y++) for (x = 0; x < level.fieldx; x++)
1957         level.field[pos_fieldx + x][pos_fieldy + y] = field[x][y];
1958
1959       level.fieldx = new_fieldx;
1960       level.fieldy = new_fieldy;
1961     }
1962   }
1963
1964   // Currently there is no special action needed to activate the template
1965   // data, because 'element_info' property settings overwrite the original
1966   // level data, while all other variables do not change.
1967
1968   // Exception: 'from_level_template' elements in the original level playfield
1969   // are overwritten with the corresponding elements at the same position in
1970   // playfield from the level template.
1971
1972   for (x = 0; x < level.fieldx; x++)
1973     for (y = 0; y < level.fieldy; y++)
1974       if (level.field[x][y] == EL_FROM_LEVEL_TEMPLATE)
1975         level.field[x][y] = level_template.field[x][y];
1976
1977   if (check_special_flags("load_xsb_to_ces"))
1978   {
1979     struct LevelInfo level_backup = level;
1980
1981     // overwrite all individual level settings from template level settings
1982     level = level_template;
1983
1984     // restore level file info
1985     level.file_info = level_backup.file_info;
1986
1987     // restore playfield size
1988     level.fieldx = level_backup.fieldx;
1989     level.fieldy = level_backup.fieldy;
1990
1991     // restore playfield content
1992     for (x = 0; x < level.fieldx; x++)
1993       for (y = 0; y < level.fieldy; y++)
1994         level.field[x][y] = level_backup.field[x][y];
1995
1996     // restore name and author from individual level
1997     strcpy(level.name,   level_backup.name);
1998     strcpy(level.author, level_backup.author);
1999
2000     // restore flag "use_custom_template"
2001     level.use_custom_template = level_backup.use_custom_template;
2002   }
2003 }
2004
2005 static char *getLevelFilenameFromBasename(char *basename)
2006 {
2007   static char *filename = NULL;
2008
2009   checked_free(filename);
2010
2011   filename = getPath2(getCurrentLevelDir(), basename);
2012
2013   return filename;
2014 }
2015
2016 static int getFileTypeFromBasename(char *basename)
2017 {
2018   // !!! ALSO SEE COMMENT IN checkForPackageFromBasename() !!!
2019
2020   static char *filename = NULL;
2021   struct stat file_status;
2022
2023   // ---------- try to determine file type from filename ----------
2024
2025   // check for typical filename of a Supaplex level package file
2026   if (strlen(basename) == 10 && strPrefixLower(basename, "levels.d"))
2027     return LEVEL_FILE_TYPE_SP;
2028
2029   // check for typical filename of a Diamond Caves II level package file
2030   if (strSuffixLower(basename, ".dc") ||
2031       strSuffixLower(basename, ".dc2"))
2032     return LEVEL_FILE_TYPE_DC;
2033
2034   // check for typical filename of a Sokoban level package file
2035   if (strSuffixLower(basename, ".xsb") &&
2036       strchr(basename, '%') == NULL)
2037     return LEVEL_FILE_TYPE_SB;
2038
2039   // ---------- try to determine file type from filesize ----------
2040
2041   checked_free(filename);
2042   filename = getPath2(getCurrentLevelDir(), basename);
2043
2044   if (stat(filename, &file_status) == 0)
2045   {
2046     // check for typical filesize of a Supaplex level package file
2047     if (file_status.st_size == 170496)
2048       return LEVEL_FILE_TYPE_SP;
2049   }
2050
2051   return LEVEL_FILE_TYPE_UNKNOWN;
2052 }
2053
2054 static int getFileTypeFromMagicBytes(char *filename, int type)
2055 {
2056   File *file;
2057
2058   if ((file = openFile(filename, MODE_READ)))
2059   {
2060     char chunk_name[CHUNK_ID_LEN + 1];
2061
2062     getFileChunkBE(file, chunk_name, NULL);
2063
2064     if (strEqual(chunk_name, "MMII") ||
2065         strEqual(chunk_name, "MIRR"))
2066       type = LEVEL_FILE_TYPE_MM;
2067
2068     closeFile(file);
2069   }
2070
2071   return type;
2072 }
2073
2074 static boolean checkForPackageFromBasename(char *basename)
2075 {
2076   // !!! WON'T WORK ANYMORE IF getFileTypeFromBasename() ALSO DETECTS !!!
2077   // !!! SINGLE LEVELS (CURRENTLY ONLY DETECTS LEVEL PACKAGES         !!!
2078
2079   return (getFileTypeFromBasename(basename) != LEVEL_FILE_TYPE_UNKNOWN);
2080 }
2081
2082 static char *getSingleLevelBasenameExt(int nr, char *extension)
2083 {
2084   static char basename[MAX_FILENAME_LEN];
2085
2086   if (nr < 0)
2087     sprintf(basename, "%s", LEVELTEMPLATE_FILENAME);
2088   else
2089     sprintf(basename, "%03d.%s", nr, extension);
2090
2091   return basename;
2092 }
2093
2094 static char *getSingleLevelBasename(int nr)
2095 {
2096   return getSingleLevelBasenameExt(nr, LEVELFILE_EXTENSION);
2097 }
2098
2099 static char *getPackedLevelBasename(int type)
2100 {
2101   static char basename[MAX_FILENAME_LEN];
2102   char *directory = getCurrentLevelDir();
2103   Directory *dir;
2104   DirectoryEntry *dir_entry;
2105
2106   strcpy(basename, UNDEFINED_FILENAME);         // default: undefined file
2107
2108   if ((dir = openDirectory(directory)) == NULL)
2109   {
2110     Warn("cannot read current level directory '%s'", directory);
2111
2112     return basename;
2113   }
2114
2115   while ((dir_entry = readDirectory(dir)) != NULL)      // loop all entries
2116   {
2117     char *entry_basename = dir_entry->basename;
2118     int entry_type = getFileTypeFromBasename(entry_basename);
2119
2120     if (entry_type != LEVEL_FILE_TYPE_UNKNOWN)  // found valid level package
2121     {
2122       if (type == LEVEL_FILE_TYPE_UNKNOWN ||
2123           type == entry_type)
2124       {
2125         strcpy(basename, entry_basename);
2126
2127         break;
2128       }
2129     }
2130   }
2131
2132   closeDirectory(dir);
2133
2134   return basename;
2135 }
2136
2137 static char *getSingleLevelFilename(int nr)
2138 {
2139   return getLevelFilenameFromBasename(getSingleLevelBasename(nr));
2140 }
2141
2142 #if ENABLE_UNUSED_CODE
2143 static char *getPackedLevelFilename(int type)
2144 {
2145   return getLevelFilenameFromBasename(getPackedLevelBasename(type));
2146 }
2147 #endif
2148
2149 char *getDefaultLevelFilename(int nr)
2150 {
2151   return getSingleLevelFilename(nr);
2152 }
2153
2154 #if ENABLE_UNUSED_CODE
2155 static void setLevelFileInfo_SingleLevelFilename(struct LevelFileInfo *lfi,
2156                                                  int type)
2157 {
2158   lfi->type = type;
2159   lfi->packed = FALSE;
2160
2161   setString(&lfi->basename, getSingleLevelBasename(lfi->nr, lfi->type));
2162   setString(&lfi->filename, getLevelFilenameFromBasename(lfi->basename));
2163 }
2164 #endif
2165
2166 static void setLevelFileInfo_FormatLevelFilename(struct LevelFileInfo *lfi,
2167                                                  int type, char *format, ...)
2168 {
2169   static char basename[MAX_FILENAME_LEN];
2170   va_list ap;
2171
2172   va_start(ap, format);
2173   vsprintf(basename, format, ap);
2174   va_end(ap);
2175
2176   lfi->type = type;
2177   lfi->packed = FALSE;
2178
2179   setString(&lfi->basename, basename);
2180   setString(&lfi->filename, getLevelFilenameFromBasename(lfi->basename));
2181 }
2182
2183 static void setLevelFileInfo_PackedLevelFilename(struct LevelFileInfo *lfi,
2184                                                  int type)
2185 {
2186   lfi->type = type;
2187   lfi->packed = TRUE;
2188
2189   setString(&lfi->basename, getPackedLevelBasename(lfi->type));
2190   setString(&lfi->filename, getLevelFilenameFromBasename(lfi->basename));
2191 }
2192
2193 static int getFiletypeFromID(char *filetype_id)
2194 {
2195   char *filetype_id_lower;
2196   int filetype = LEVEL_FILE_TYPE_UNKNOWN;
2197   int i;
2198
2199   if (filetype_id == NULL)
2200     return LEVEL_FILE_TYPE_UNKNOWN;
2201
2202   filetype_id_lower = getStringToLower(filetype_id);
2203
2204   for (i = 0; filetype_id_list[i].id != NULL; i++)
2205   {
2206     char *id_lower = getStringToLower(filetype_id_list[i].id);
2207
2208     if (strEqual(filetype_id_lower, id_lower))
2209       filetype = filetype_id_list[i].filetype;
2210
2211     free(id_lower);
2212
2213     if (filetype != LEVEL_FILE_TYPE_UNKNOWN)
2214       break;
2215   }
2216
2217   free(filetype_id_lower);
2218
2219   return filetype;
2220 }
2221
2222 char *getLocalLevelTemplateFilename(void)
2223 {
2224   return getDefaultLevelFilename(-1);
2225 }
2226
2227 char *getGlobalLevelTemplateFilename(void)
2228 {
2229   // global variable "leveldir_current" must be modified in the loop below
2230   LevelDirTree *leveldir_current_last = leveldir_current;
2231   char *filename = NULL;
2232
2233   // check for template level in path from current to topmost tree node
2234
2235   while (leveldir_current != NULL)
2236   {
2237     filename = getDefaultLevelFilename(-1);
2238
2239     if (fileExists(filename))
2240       break;
2241
2242     leveldir_current = leveldir_current->node_parent;
2243   }
2244
2245   // restore global variable "leveldir_current" modified in above loop
2246   leveldir_current = leveldir_current_last;
2247
2248   return filename;
2249 }
2250
2251 static void determineLevelFileInfo_Filename(struct LevelFileInfo *lfi)
2252 {
2253   int nr = lfi->nr;
2254
2255   // special case: level number is negative => check for level template file
2256   if (nr < 0)
2257   {
2258     setLevelFileInfo_FormatLevelFilename(lfi, LEVEL_FILE_TYPE_RND,
2259                                          getSingleLevelBasename(-1));
2260
2261     // replace local level template filename with global template filename
2262     setString(&lfi->filename, getGlobalLevelTemplateFilename());
2263
2264     // no fallback if template file not existing
2265     return;
2266   }
2267
2268   // special case: check for file name/pattern specified in "levelinfo.conf"
2269   if (leveldir_current->level_filename != NULL)
2270   {
2271     int filetype = getFiletypeFromID(leveldir_current->level_filetype);
2272
2273     setLevelFileInfo_FormatLevelFilename(lfi, filetype,
2274                                          leveldir_current->level_filename, nr);
2275
2276     lfi->packed = checkForPackageFromBasename(leveldir_current->level_filename);
2277
2278     if (fileExists(lfi->filename))
2279       return;
2280   }
2281   else if (leveldir_current->level_filetype != NULL)
2282   {
2283     int filetype = getFiletypeFromID(leveldir_current->level_filetype);
2284
2285     // check for specified native level file with standard file name
2286     setLevelFileInfo_FormatLevelFilename(lfi, filetype,
2287                                          "%03d.%s", nr, LEVELFILE_EXTENSION);
2288     if (fileExists(lfi->filename))
2289       return;
2290   }
2291
2292   // check for native Rocks'n'Diamonds level file
2293   setLevelFileInfo_FormatLevelFilename(lfi, LEVEL_FILE_TYPE_RND,
2294                                        "%03d.%s", nr, LEVELFILE_EXTENSION);
2295   if (fileExists(lfi->filename))
2296     return;
2297
2298   // check for Emerald Mine level file (V1)
2299   setLevelFileInfo_FormatLevelFilename(lfi, LEVEL_FILE_TYPE_EM, "a%c%c",
2300                                        'a' + (nr / 10) % 26, '0' + nr % 10);
2301   if (fileExists(lfi->filename))
2302     return;
2303   setLevelFileInfo_FormatLevelFilename(lfi, LEVEL_FILE_TYPE_EM, "A%c%c",
2304                                        'A' + (nr / 10) % 26, '0' + nr % 10);
2305   if (fileExists(lfi->filename))
2306     return;
2307
2308   // check for Emerald Mine level file (V2 to V5)
2309   setLevelFileInfo_FormatLevelFilename(lfi, LEVEL_FILE_TYPE_EM, "%d", nr);
2310   if (fileExists(lfi->filename))
2311     return;
2312
2313   // check for Emerald Mine level file (V6 / single mode)
2314   setLevelFileInfo_FormatLevelFilename(lfi, LEVEL_FILE_TYPE_EM, "%02ds", nr);
2315   if (fileExists(lfi->filename))
2316     return;
2317   setLevelFileInfo_FormatLevelFilename(lfi, LEVEL_FILE_TYPE_EM, "%02dS", nr);
2318   if (fileExists(lfi->filename))
2319     return;
2320
2321   // check for Emerald Mine level file (V6 / teamwork mode)
2322   setLevelFileInfo_FormatLevelFilename(lfi, LEVEL_FILE_TYPE_EM, "%02dt", nr);
2323   if (fileExists(lfi->filename))
2324     return;
2325   setLevelFileInfo_FormatLevelFilename(lfi, LEVEL_FILE_TYPE_EM, "%02dT", nr);
2326   if (fileExists(lfi->filename))
2327     return;
2328
2329   // check for various packed level file formats
2330   setLevelFileInfo_PackedLevelFilename(lfi, LEVEL_FILE_TYPE_UNKNOWN);
2331   if (fileExists(lfi->filename))
2332     return;
2333
2334   // no known level file found -- use default values (and fail later)
2335   setLevelFileInfo_FormatLevelFilename(lfi, LEVEL_FILE_TYPE_RND,
2336                                        "%03d.%s", nr, LEVELFILE_EXTENSION);
2337 }
2338
2339 static void determineLevelFileInfo_Filetype(struct LevelFileInfo *lfi)
2340 {
2341   if (lfi->type == LEVEL_FILE_TYPE_UNKNOWN)
2342     lfi->type = getFileTypeFromBasename(lfi->basename);
2343
2344   if (lfi->type == LEVEL_FILE_TYPE_RND)
2345     lfi->type = getFileTypeFromMagicBytes(lfi->filename, lfi->type);
2346 }
2347
2348 static void setLevelFileInfo(struct LevelFileInfo *level_file_info, int nr)
2349 {
2350   // always start with reliable default values
2351   setFileInfoToDefaults(level_file_info);
2352
2353   level_file_info->nr = nr;     // set requested level number
2354
2355   determineLevelFileInfo_Filename(level_file_info);
2356   determineLevelFileInfo_Filetype(level_file_info);
2357 }
2358
2359 static void copyLevelFileInfo(struct LevelFileInfo *lfi_from,
2360                               struct LevelFileInfo *lfi_to)
2361 {
2362   lfi_to->nr     = lfi_from->nr;
2363   lfi_to->type   = lfi_from->type;
2364   lfi_to->packed = lfi_from->packed;
2365
2366   setString(&lfi_to->basename, lfi_from->basename);
2367   setString(&lfi_to->filename, lfi_from->filename);
2368 }
2369
2370 // ----------------------------------------------------------------------------
2371 // functions for loading R'n'D level
2372 // ----------------------------------------------------------------------------
2373
2374 int getMappedElement(int element)
2375 {
2376   // remap some (historic, now obsolete) elements
2377
2378   switch (element)
2379   {
2380     case EL_PLAYER_OBSOLETE:
2381       element = EL_PLAYER_1;
2382       break;
2383
2384     case EL_KEY_OBSOLETE:
2385       element = EL_KEY_1;
2386       break;
2387
2388     case EL_EM_KEY_1_FILE_OBSOLETE:
2389       element = EL_EM_KEY_1;
2390       break;
2391
2392     case EL_EM_KEY_2_FILE_OBSOLETE:
2393       element = EL_EM_KEY_2;
2394       break;
2395
2396     case EL_EM_KEY_3_FILE_OBSOLETE:
2397       element = EL_EM_KEY_3;
2398       break;
2399
2400     case EL_EM_KEY_4_FILE_OBSOLETE:
2401       element = EL_EM_KEY_4;
2402       break;
2403
2404     case EL_ENVELOPE_OBSOLETE:
2405       element = EL_ENVELOPE_1;
2406       break;
2407
2408     case EL_SP_EMPTY:
2409       element = EL_EMPTY;
2410       break;
2411
2412     default:
2413       if (element >= NUM_FILE_ELEMENTS)
2414       {
2415         Warn("invalid level element %d", element);
2416
2417         element = EL_UNKNOWN;
2418       }
2419       break;
2420   }
2421
2422   return element;
2423 }
2424
2425 static int getMappedElementByVersion(int element, int game_version)
2426 {
2427   // remap some elements due to certain game version
2428
2429   if (game_version <= VERSION_IDENT(2,2,0,0))
2430   {
2431     // map game font elements
2432     element = (element == EL_CHAR('[')  ? EL_CHAR_AUMLAUT :
2433                element == EL_CHAR('\\') ? EL_CHAR_OUMLAUT :
2434                element == EL_CHAR(']')  ? EL_CHAR_UUMLAUT :
2435                element == EL_CHAR('^')  ? EL_CHAR_COPYRIGHT : element);
2436   }
2437
2438   if (game_version < VERSION_IDENT(3,0,0,0))
2439   {
2440     // map Supaplex gravity tube elements
2441     element = (element == EL_SP_GRAVITY_PORT_LEFT  ? EL_SP_PORT_LEFT  :
2442                element == EL_SP_GRAVITY_PORT_RIGHT ? EL_SP_PORT_RIGHT :
2443                element == EL_SP_GRAVITY_PORT_UP    ? EL_SP_PORT_UP    :
2444                element == EL_SP_GRAVITY_PORT_DOWN  ? EL_SP_PORT_DOWN  :
2445                element);
2446   }
2447
2448   return element;
2449 }
2450
2451 static int LoadLevel_VERS(File *file, int chunk_size, struct LevelInfo *level)
2452 {
2453   level->file_version = getFileVersion(file);
2454   level->game_version = getFileVersion(file);
2455
2456   return chunk_size;
2457 }
2458
2459 static int LoadLevel_DATE(File *file, int chunk_size, struct LevelInfo *level)
2460 {
2461   level->creation_date.year  = getFile16BitBE(file);
2462   level->creation_date.month = getFile8Bit(file);
2463   level->creation_date.day   = getFile8Bit(file);
2464
2465   level->creation_date.src   = DATE_SRC_LEVELFILE;
2466
2467   return chunk_size;
2468 }
2469
2470 static int LoadLevel_HEAD(File *file, int chunk_size, struct LevelInfo *level)
2471 {
2472   int initial_player_stepsize;
2473   int initial_player_gravity;
2474   int i, x, y;
2475
2476   level->fieldx = getFile8Bit(file);
2477   level->fieldy = getFile8Bit(file);
2478
2479   level->time           = getFile16BitBE(file);
2480   level->gems_needed    = getFile16BitBE(file);
2481
2482   for (i = 0; i < MAX_LEVEL_NAME_LEN; i++)
2483     level->name[i] = getFile8Bit(file);
2484   level->name[MAX_LEVEL_NAME_LEN] = 0;
2485
2486   for (i = 0; i < LEVEL_SCORE_ELEMENTS; i++)
2487     level->score[i] = getFile8Bit(file);
2488
2489   level->num_yamyam_contents = STD_ELEMENT_CONTENTS;
2490   for (i = 0; i < STD_ELEMENT_CONTENTS; i++)
2491     for (y = 0; y < 3; y++)
2492       for (x = 0; x < 3; x++)
2493         level->yamyam_content[i].e[x][y] = getMappedElement(getFile8Bit(file));
2494
2495   level->amoeba_speed           = getFile8Bit(file);
2496   level->time_magic_wall        = getFile8Bit(file);
2497   level->time_wheel             = getFile8Bit(file);
2498   level->amoeba_content         = getMappedElement(getFile8Bit(file));
2499
2500   initial_player_stepsize       = (getFile8Bit(file) == 1 ? STEPSIZE_FAST :
2501                                    STEPSIZE_NORMAL);
2502
2503   for (i = 0; i < MAX_PLAYERS; i++)
2504     level->initial_player_stepsize[i] = initial_player_stepsize;
2505
2506   initial_player_gravity        = (getFile8Bit(file) == 1 ? TRUE : FALSE);
2507
2508   for (i = 0; i < MAX_PLAYERS; i++)
2509     level->initial_player_gravity[i] = initial_player_gravity;
2510
2511   level->encoding_16bit_field   = (getFile8Bit(file) == 1 ? TRUE : FALSE);
2512   level->em_slippery_gems       = (getFile8Bit(file) == 1 ? TRUE : FALSE);
2513
2514   level->use_custom_template    = (getFile8Bit(file) == 1 ? TRUE : FALSE);
2515
2516   level->block_last_field       = (getFile8Bit(file) == 1 ? TRUE : FALSE);
2517   level->sp_block_last_field    = (getFile8Bit(file) == 1 ? TRUE : FALSE);
2518   level->can_move_into_acid_bits = getFile32BitBE(file);
2519   level->dont_collide_with_bits = getFile8Bit(file);
2520
2521   level->use_spring_bug         = (getFile8Bit(file) == 1 ? TRUE : FALSE);
2522   level->use_step_counter       = (getFile8Bit(file) == 1 ? TRUE : FALSE);
2523
2524   level->instant_relocation     = (getFile8Bit(file) == 1 ? TRUE : FALSE);
2525   level->can_pass_to_walkable   = (getFile8Bit(file) == 1 ? TRUE : FALSE);
2526   level->grow_into_diggable     = (getFile8Bit(file) == 1 ? TRUE : FALSE);
2527
2528   level->game_engine_type       = getFile8Bit(file);
2529
2530   ReadUnusedBytesFromFile(file, LEVEL_CHUNK_HEAD_UNUSED);
2531
2532   return chunk_size;
2533 }
2534
2535 static int LoadLevel_NAME(File *file, int chunk_size, struct LevelInfo *level)
2536 {
2537   int i;
2538
2539   for (i = 0; i < MAX_LEVEL_NAME_LEN; i++)
2540     level->name[i] = getFile8Bit(file);
2541   level->name[MAX_LEVEL_NAME_LEN] = 0;
2542
2543   return chunk_size;
2544 }
2545
2546 static int LoadLevel_AUTH(File *file, int chunk_size, struct LevelInfo *level)
2547 {
2548   int i;
2549
2550   for (i = 0; i < MAX_LEVEL_AUTHOR_LEN; i++)
2551     level->author[i] = getFile8Bit(file);
2552   level->author[MAX_LEVEL_AUTHOR_LEN] = 0;
2553
2554   return chunk_size;
2555 }
2556
2557 static int LoadLevel_BODY(File *file, int chunk_size, struct LevelInfo *level)
2558 {
2559   int x, y;
2560   int chunk_size_expected = level->fieldx * level->fieldy;
2561
2562   /* Note: "chunk_size" was wrong before version 2.0 when elements are
2563      stored with 16-bit encoding (and should be twice as big then).
2564      Even worse, playfield data was stored 16-bit when only yamyam content
2565      contained 16-bit elements and vice versa. */
2566
2567   if (level->encoding_16bit_field && level->file_version >= FILE_VERSION_2_0)
2568     chunk_size_expected *= 2;
2569
2570   if (chunk_size_expected != chunk_size)
2571   {
2572     ReadUnusedBytesFromFile(file, chunk_size);
2573     return chunk_size_expected;
2574   }
2575
2576   for (y = 0; y < level->fieldy; y++)
2577     for (x = 0; x < level->fieldx; x++)
2578       level->field[x][y] =
2579         getMappedElement(level->encoding_16bit_field ? getFile16BitBE(file) :
2580                          getFile8Bit(file));
2581   return chunk_size;
2582 }
2583
2584 static int LoadLevel_CONT(File *file, int chunk_size, struct LevelInfo *level)
2585 {
2586   int i, x, y;
2587   int header_size = 4;
2588   int content_size = MAX_ELEMENT_CONTENTS * 3 * 3;
2589   int chunk_size_expected = header_size + content_size;
2590
2591   /* Note: "chunk_size" was wrong before version 2.0 when elements are
2592      stored with 16-bit encoding (and should be twice as big then).
2593      Even worse, playfield data was stored 16-bit when only yamyam content
2594      contained 16-bit elements and vice versa. */
2595
2596   if (level->encoding_16bit_field && level->file_version >= FILE_VERSION_2_0)
2597     chunk_size_expected += content_size;
2598
2599   if (chunk_size_expected != chunk_size)
2600   {
2601     ReadUnusedBytesFromFile(file, chunk_size);
2602     return chunk_size_expected;
2603   }
2604
2605   getFile8Bit(file);
2606   level->num_yamyam_contents = getFile8Bit(file);
2607   getFile8Bit(file);
2608   getFile8Bit(file);
2609
2610   // correct invalid number of content fields -- should never happen
2611   if (level->num_yamyam_contents < 1 ||
2612       level->num_yamyam_contents > MAX_ELEMENT_CONTENTS)
2613     level->num_yamyam_contents = STD_ELEMENT_CONTENTS;
2614
2615   for (i = 0; i < MAX_ELEMENT_CONTENTS; i++)
2616     for (y = 0; y < 3; y++)
2617       for (x = 0; x < 3; x++)
2618         level->yamyam_content[i].e[x][y] =
2619           getMappedElement(level->encoding_16bit_field ?
2620                            getFile16BitBE(file) : getFile8Bit(file));
2621   return chunk_size;
2622 }
2623
2624 static int LoadLevel_CNT2(File *file, int chunk_size, struct LevelInfo *level)
2625 {
2626   int i, x, y;
2627   int element;
2628   int num_contents;
2629   int content_array[MAX_ELEMENT_CONTENTS][3][3];
2630
2631   element = getMappedElement(getFile16BitBE(file));
2632   num_contents = getFile8Bit(file);
2633
2634   getFile8Bit(file);    // content x size (unused)
2635   getFile8Bit(file);    // content y size (unused)
2636
2637   ReadUnusedBytesFromFile(file, LEVEL_CHUNK_CNT2_UNUSED);
2638
2639   for (i = 0; i < MAX_ELEMENT_CONTENTS; i++)
2640     for (y = 0; y < 3; y++)
2641       for (x = 0; x < 3; x++)
2642         content_array[i][x][y] = getMappedElement(getFile16BitBE(file));
2643
2644   // correct invalid number of content fields -- should never happen
2645   if (num_contents < 1 || num_contents > MAX_ELEMENT_CONTENTS)
2646     num_contents = STD_ELEMENT_CONTENTS;
2647
2648   if (element == EL_YAMYAM)
2649   {
2650     level->num_yamyam_contents = num_contents;
2651
2652     for (i = 0; i < num_contents; i++)
2653       for (y = 0; y < 3; y++)
2654         for (x = 0; x < 3; x++)
2655           level->yamyam_content[i].e[x][y] = content_array[i][x][y];
2656   }
2657   else if (element == EL_BD_AMOEBA)
2658   {
2659     level->amoeba_content = content_array[0][0][0];
2660   }
2661   else
2662   {
2663     Warn("cannot load content for element '%d'", element);
2664   }
2665
2666   return chunk_size;
2667 }
2668
2669 static int LoadLevel_CNT3(File *file, int chunk_size, struct LevelInfo *level)
2670 {
2671   int i;
2672   int element;
2673   int envelope_nr;
2674   int envelope_len;
2675   int chunk_size_expected;
2676
2677   element = getMappedElement(getFile16BitBE(file));
2678   if (!IS_ENVELOPE(element))
2679     element = EL_ENVELOPE_1;
2680
2681   envelope_nr = element - EL_ENVELOPE_1;
2682
2683   envelope_len = getFile16BitBE(file);
2684
2685   level->envelope[envelope_nr].xsize = getFile8Bit(file);
2686   level->envelope[envelope_nr].ysize = getFile8Bit(file);
2687
2688   ReadUnusedBytesFromFile(file, LEVEL_CHUNK_CNT3_UNUSED);
2689
2690   chunk_size_expected = LEVEL_CHUNK_CNT3_SIZE(envelope_len);
2691   if (chunk_size_expected != chunk_size)
2692   {
2693     ReadUnusedBytesFromFile(file, chunk_size - LEVEL_CHUNK_CNT3_HEADER);
2694     return chunk_size_expected;
2695   }
2696
2697   for (i = 0; i < envelope_len; i++)
2698     level->envelope[envelope_nr].text[i] = getFile8Bit(file);
2699
2700   return chunk_size;
2701 }
2702
2703 static int LoadLevel_CUS1(File *file, int chunk_size, struct LevelInfo *level)
2704 {
2705   int num_changed_custom_elements = getFile16BitBE(file);
2706   int chunk_size_expected = 2 + num_changed_custom_elements * 6;
2707   int i;
2708
2709   if (chunk_size_expected != chunk_size)
2710   {
2711     ReadUnusedBytesFromFile(file, chunk_size - 2);
2712     return chunk_size_expected;
2713   }
2714
2715   for (i = 0; i < num_changed_custom_elements; i++)
2716   {
2717     int element = getMappedElement(getFile16BitBE(file));
2718     int properties = getFile32BitBE(file);
2719
2720     if (IS_CUSTOM_ELEMENT(element))
2721       element_info[element].properties[EP_BITFIELD_BASE_NR] = properties;
2722     else
2723       Warn("invalid custom element number %d", element);
2724
2725     // older game versions that wrote level files with CUS1 chunks used
2726     // different default push delay values (not yet stored in level file)
2727     element_info[element].push_delay_fixed = 2;
2728     element_info[element].push_delay_random = 8;
2729   }
2730
2731   level->file_has_custom_elements = TRUE;
2732
2733   return chunk_size;
2734 }
2735
2736 static int LoadLevel_CUS2(File *file, int chunk_size, struct LevelInfo *level)
2737 {
2738   int num_changed_custom_elements = getFile16BitBE(file);
2739   int chunk_size_expected = 2 + num_changed_custom_elements * 4;
2740   int i;
2741
2742   if (chunk_size_expected != chunk_size)
2743   {
2744     ReadUnusedBytesFromFile(file, chunk_size - 2);
2745     return chunk_size_expected;
2746   }
2747
2748   for (i = 0; i < num_changed_custom_elements; i++)
2749   {
2750     int element = getMappedElement(getFile16BitBE(file));
2751     int custom_target_element = getMappedElement(getFile16BitBE(file));
2752
2753     if (IS_CUSTOM_ELEMENT(element))
2754       element_info[element].change->target_element = custom_target_element;
2755     else
2756       Warn("invalid custom element number %d", element);
2757   }
2758
2759   level->file_has_custom_elements = TRUE;
2760
2761   return chunk_size;
2762 }
2763
2764 static int LoadLevel_CUS3(File *file, int chunk_size, struct LevelInfo *level)
2765 {
2766   int num_changed_custom_elements = getFile16BitBE(file);
2767   int chunk_size_expected = LEVEL_CHUNK_CUS3_SIZE(num_changed_custom_elements);
2768   int i, j, x, y;
2769
2770   if (chunk_size_expected != chunk_size)
2771   {
2772     ReadUnusedBytesFromFile(file, chunk_size - 2);
2773     return chunk_size_expected;
2774   }
2775
2776   for (i = 0; i < num_changed_custom_elements; i++)
2777   {
2778     int element = getMappedElement(getFile16BitBE(file));
2779     struct ElementInfo *ei = &element_info[element];
2780     unsigned int event_bits;
2781
2782     if (!IS_CUSTOM_ELEMENT(element))
2783     {
2784       Warn("invalid custom element number %d", element);
2785
2786       element = EL_INTERNAL_DUMMY;
2787     }
2788
2789     for (j = 0; j < MAX_ELEMENT_NAME_LEN; j++)
2790       ei->description[j] = getFile8Bit(file);
2791     ei->description[MAX_ELEMENT_NAME_LEN] = 0;
2792
2793     ei->properties[EP_BITFIELD_BASE_NR] = getFile32BitBE(file);
2794
2795     // some free bytes for future properties and padding
2796     ReadUnusedBytesFromFile(file, 7);
2797
2798     ei->use_gfx_element = getFile8Bit(file);
2799     ei->gfx_element_initial = getMappedElement(getFile16BitBE(file));
2800
2801     ei->collect_score_initial = getFile8Bit(file);
2802     ei->collect_count_initial = getFile8Bit(file);
2803
2804     ei->push_delay_fixed = getFile16BitBE(file);
2805     ei->push_delay_random = getFile16BitBE(file);
2806     ei->move_delay_fixed = getFile16BitBE(file);
2807     ei->move_delay_random = getFile16BitBE(file);
2808
2809     ei->move_pattern = getFile16BitBE(file);
2810     ei->move_direction_initial = getFile8Bit(file);
2811     ei->move_stepsize = getFile8Bit(file);
2812
2813     for (y = 0; y < 3; y++)
2814       for (x = 0; x < 3; x++)
2815         ei->content.e[x][y] = getMappedElement(getFile16BitBE(file));
2816
2817     event_bits = getFile32BitBE(file);
2818     for (j = 0; j < NUM_CHANGE_EVENTS; j++)
2819       if (event_bits & (1 << j))
2820         ei->change->has_event[j] = TRUE;
2821
2822     ei->change->target_element = getMappedElement(getFile16BitBE(file));
2823
2824     ei->change->delay_fixed = getFile16BitBE(file);
2825     ei->change->delay_random = getFile16BitBE(file);
2826     ei->change->delay_frames = getFile16BitBE(file);
2827
2828     ei->change->initial_trigger_element= getMappedElement(getFile16BitBE(file));
2829
2830     ei->change->explode = getFile8Bit(file);
2831     ei->change->use_target_content = getFile8Bit(file);
2832     ei->change->only_if_complete = getFile8Bit(file);
2833     ei->change->use_random_replace = getFile8Bit(file);
2834
2835     ei->change->random_percentage = getFile8Bit(file);
2836     ei->change->replace_when = getFile8Bit(file);
2837
2838     for (y = 0; y < 3; y++)
2839       for (x = 0; x < 3; x++)
2840         ei->change->target_content.e[x][y] =
2841           getMappedElement(getFile16BitBE(file));
2842
2843     ei->slippery_type = getFile8Bit(file);
2844
2845     // some free bytes for future properties and padding
2846     ReadUnusedBytesFromFile(file, LEVEL_CPART_CUS3_UNUSED);
2847
2848     // mark that this custom element has been modified
2849     ei->modified_settings = TRUE;
2850   }
2851
2852   level->file_has_custom_elements = TRUE;
2853
2854   return chunk_size;
2855 }
2856
2857 static int LoadLevel_CUS4(File *file, int chunk_size, struct LevelInfo *level)
2858 {
2859   struct ElementInfo *ei;
2860   int chunk_size_expected;
2861   int element;
2862   int i, j, x, y;
2863
2864   // ---------- custom element base property values (96 bytes) ----------------
2865
2866   element = getMappedElement(getFile16BitBE(file));
2867
2868   if (!IS_CUSTOM_ELEMENT(element))
2869   {
2870     Warn("invalid custom element number %d", element);
2871
2872     ReadUnusedBytesFromFile(file, chunk_size - 2);
2873
2874     return chunk_size;
2875   }
2876
2877   ei = &element_info[element];
2878
2879   for (i = 0; i < MAX_ELEMENT_NAME_LEN; i++)
2880     ei->description[i] = getFile8Bit(file);
2881   ei->description[MAX_ELEMENT_NAME_LEN] = 0;
2882
2883   ei->properties[EP_BITFIELD_BASE_NR] = getFile32BitBE(file);
2884
2885   ReadUnusedBytesFromFile(file, 4);     // reserved for more base properties
2886
2887   ei->num_change_pages = getFile8Bit(file);
2888
2889   chunk_size_expected = LEVEL_CHUNK_CUS4_SIZE(ei->num_change_pages);
2890   if (chunk_size_expected != chunk_size)
2891   {
2892     ReadUnusedBytesFromFile(file, chunk_size - 43);
2893     return chunk_size_expected;
2894   }
2895
2896   ei->ce_value_fixed_initial = getFile16BitBE(file);
2897   ei->ce_value_random_initial = getFile16BitBE(file);
2898   ei->use_last_ce_value = getFile8Bit(file);
2899
2900   ei->use_gfx_element = getFile8Bit(file);
2901   ei->gfx_element_initial = getMappedElement(getFile16BitBE(file));
2902
2903   ei->collect_score_initial = getFile8Bit(file);
2904   ei->collect_count_initial = getFile8Bit(file);
2905
2906   ei->drop_delay_fixed = getFile8Bit(file);
2907   ei->push_delay_fixed = getFile8Bit(file);
2908   ei->drop_delay_random = getFile8Bit(file);
2909   ei->push_delay_random = getFile8Bit(file);
2910   ei->move_delay_fixed = getFile16BitBE(file);
2911   ei->move_delay_random = getFile16BitBE(file);
2912
2913   // bits 0 - 15 of "move_pattern" ...
2914   ei->move_pattern = getFile16BitBE(file);
2915   ei->move_direction_initial = getFile8Bit(file);
2916   ei->move_stepsize = getFile8Bit(file);
2917
2918   ei->slippery_type = getFile8Bit(file);
2919
2920   for (y = 0; y < 3; y++)
2921     for (x = 0; x < 3; x++)
2922       ei->content.e[x][y] = getMappedElement(getFile16BitBE(file));
2923
2924   ei->move_enter_element = getMappedElement(getFile16BitBE(file));
2925   ei->move_leave_element = getMappedElement(getFile16BitBE(file));
2926   ei->move_leave_type = getFile8Bit(file);
2927
2928   // ... bits 16 - 31 of "move_pattern" (not nice, but downward compatible)
2929   ei->move_pattern |= (getFile16BitBE(file) << 16);
2930
2931   ei->access_direction = getFile8Bit(file);
2932
2933   ei->explosion_delay = getFile8Bit(file);
2934   ei->ignition_delay = getFile8Bit(file);
2935   ei->explosion_type = getFile8Bit(file);
2936
2937   // some free bytes for future custom property values and padding
2938   ReadUnusedBytesFromFile(file, 1);
2939
2940   // ---------- change page property values (48 bytes) ------------------------
2941
2942   setElementChangePages(ei, ei->num_change_pages);
2943
2944   for (i = 0; i < ei->num_change_pages; i++)
2945   {
2946     struct ElementChangeInfo *change = &ei->change_page[i];
2947     unsigned int event_bits;
2948
2949     // always start with reliable default values
2950     setElementChangeInfoToDefaults(change);
2951
2952     // bits 0 - 31 of "has_event[]" ...
2953     event_bits = getFile32BitBE(file);
2954     for (j = 0; j < MIN(NUM_CHANGE_EVENTS, 32); j++)
2955       if (event_bits & (1 << j))
2956         change->has_event[j] = TRUE;
2957
2958     change->target_element = getMappedElement(getFile16BitBE(file));
2959
2960     change->delay_fixed = getFile16BitBE(file);
2961     change->delay_random = getFile16BitBE(file);
2962     change->delay_frames = getFile16BitBE(file);
2963
2964     change->initial_trigger_element = getMappedElement(getFile16BitBE(file));
2965
2966     change->explode = getFile8Bit(file);
2967     change->use_target_content = getFile8Bit(file);
2968     change->only_if_complete = getFile8Bit(file);
2969     change->use_random_replace = getFile8Bit(file);
2970
2971     change->random_percentage = getFile8Bit(file);
2972     change->replace_when = getFile8Bit(file);
2973
2974     for (y = 0; y < 3; y++)
2975       for (x = 0; x < 3; x++)
2976         change->target_content.e[x][y]= getMappedElement(getFile16BitBE(file));
2977
2978     change->can_change = getFile8Bit(file);
2979
2980     change->trigger_side = getFile8Bit(file);
2981
2982     change->trigger_player = getFile8Bit(file);
2983     change->trigger_page = getFile8Bit(file);
2984
2985     change->trigger_page = (change->trigger_page == CH_PAGE_ANY_FILE ?
2986                             CH_PAGE_ANY : (1 << change->trigger_page));
2987
2988     change->has_action = getFile8Bit(file);
2989     change->action_type = getFile8Bit(file);
2990     change->action_mode = getFile8Bit(file);
2991     change->action_arg = getFile16BitBE(file);
2992
2993     // ... bits 32 - 39 of "has_event[]" (not nice, but downward compatible)
2994     event_bits = getFile8Bit(file);
2995     for (j = 32; j < NUM_CHANGE_EVENTS; j++)
2996       if (event_bits & (1 << (j - 32)))
2997         change->has_event[j] = TRUE;
2998   }
2999
3000   // mark this custom element as modified
3001   ei->modified_settings = TRUE;
3002
3003   level->file_has_custom_elements = TRUE;
3004
3005   return chunk_size;
3006 }
3007
3008 static int LoadLevel_GRP1(File *file, int chunk_size, struct LevelInfo *level)
3009 {
3010   struct ElementInfo *ei;
3011   struct ElementGroupInfo *group;
3012   int element;
3013   int i;
3014
3015   element = getMappedElement(getFile16BitBE(file));
3016
3017   if (!IS_GROUP_ELEMENT(element))
3018   {
3019     Warn("invalid group element number %d", element);
3020
3021     ReadUnusedBytesFromFile(file, chunk_size - 2);
3022
3023     return chunk_size;
3024   }
3025
3026   ei = &element_info[element];
3027
3028   for (i = 0; i < MAX_ELEMENT_NAME_LEN; i++)
3029     ei->description[i] = getFile8Bit(file);
3030   ei->description[MAX_ELEMENT_NAME_LEN] = 0;
3031
3032   group = element_info[element].group;
3033
3034   group->num_elements = getFile8Bit(file);
3035
3036   ei->use_gfx_element = getFile8Bit(file);
3037   ei->gfx_element_initial = getMappedElement(getFile16BitBE(file));
3038
3039   group->choice_mode = getFile8Bit(file);
3040
3041   // some free bytes for future values and padding
3042   ReadUnusedBytesFromFile(file, 3);
3043
3044   for (i = 0; i < MAX_ELEMENTS_IN_GROUP; i++)
3045     group->element[i] = getMappedElement(getFile16BitBE(file));
3046
3047   // mark this group element as modified
3048   element_info[element].modified_settings = TRUE;
3049
3050   level->file_has_custom_elements = TRUE;
3051
3052   return chunk_size;
3053 }
3054
3055 static int LoadLevel_MicroChunk(File *file, struct LevelFileConfigInfo *conf,
3056                                 int element, int real_element)
3057 {
3058   int micro_chunk_size = 0;
3059   int conf_type = getFile8Bit(file);
3060   int byte_mask = conf_type & CONF_MASK_BYTES;
3061   boolean element_found = FALSE;
3062   int i;
3063
3064   micro_chunk_size += 1;
3065
3066   if (byte_mask == CONF_MASK_MULTI_BYTES)
3067   {
3068     int num_bytes = getFile16BitBE(file);
3069     byte *buffer = checked_malloc(num_bytes);
3070
3071     ReadBytesFromFile(file, buffer, num_bytes);
3072
3073     for (i = 0; conf[i].data_type != -1; i++)
3074     {
3075       if (conf[i].element == element &&
3076           conf[i].conf_type == conf_type)
3077       {
3078         int data_type = conf[i].data_type;
3079         int num_entities = num_bytes / CONF_ENTITY_NUM_BYTES(data_type);
3080         int max_num_entities = conf[i].max_num_entities;
3081
3082         if (num_entities > max_num_entities)
3083         {
3084           Warn("truncating number of entities for element %d from %d to %d",
3085                element, num_entities, max_num_entities);
3086
3087           num_entities = max_num_entities;
3088         }
3089
3090         if (num_entities == 0 && (data_type == TYPE_ELEMENT_LIST ||
3091                                   data_type == TYPE_CONTENT_LIST))
3092         {
3093           // for element and content lists, zero entities are not allowed
3094           Warn("found empty list of entities for element %d", element);
3095
3096           // do not set "num_entities" here to prevent reading behind buffer
3097
3098           *(int *)(conf[i].num_entities) = 1;   // at least one is required
3099         }
3100         else
3101         {
3102           *(int *)(conf[i].num_entities) = num_entities;
3103         }
3104
3105         element_found = TRUE;
3106
3107         if (data_type == TYPE_STRING)
3108         {
3109           char *string = (char *)(conf[i].value);
3110           int j;
3111
3112           for (j = 0; j < max_num_entities; j++)
3113             string[j] = (j < num_entities ? buffer[j] : '\0');
3114         }
3115         else if (data_type == TYPE_ELEMENT_LIST)
3116         {
3117           int *element_array = (int *)(conf[i].value);
3118           int j;
3119
3120           for (j = 0; j < num_entities; j++)
3121             element_array[j] =
3122               getMappedElement(CONF_ELEMENTS_ELEMENT(buffer, j));
3123         }
3124         else if (data_type == TYPE_CONTENT_LIST)
3125         {
3126           struct Content *content= (struct Content *)(conf[i].value);
3127           int c, x, y;
3128
3129           for (c = 0; c < num_entities; c++)
3130             for (y = 0; y < 3; y++)
3131               for (x = 0; x < 3; x++)
3132                 content[c].e[x][y] =
3133                   getMappedElement(CONF_CONTENTS_ELEMENT(buffer, c, x, y));
3134         }
3135         else
3136           element_found = FALSE;
3137
3138         break;
3139       }
3140     }
3141
3142     checked_free(buffer);
3143
3144     micro_chunk_size += 2 + num_bytes;
3145   }
3146   else          // constant size configuration data (1, 2 or 4 bytes)
3147   {
3148     int value = (byte_mask == CONF_MASK_1_BYTE ? getFile8Bit   (file) :
3149                  byte_mask == CONF_MASK_2_BYTE ? getFile16BitBE(file) :
3150                  byte_mask == CONF_MASK_4_BYTE ? getFile32BitBE(file) : 0);
3151
3152     for (i = 0; conf[i].data_type != -1; i++)
3153     {
3154       if (conf[i].element == element &&
3155           conf[i].conf_type == conf_type)
3156       {
3157         int data_type = conf[i].data_type;
3158
3159         if (data_type == TYPE_ELEMENT)
3160           value = getMappedElement(value);
3161
3162         if (data_type == TYPE_BOOLEAN)
3163           *(boolean *)(conf[i].value) = value;
3164         else
3165           *(int *)    (conf[i].value) = value;
3166
3167         element_found = TRUE;
3168
3169         break;
3170       }
3171     }
3172
3173     micro_chunk_size += CONF_VALUE_NUM_BYTES(byte_mask);
3174   }
3175
3176   if (!element_found)
3177   {
3178     char *error_conf_chunk_bytes =
3179       (byte_mask == CONF_MASK_1_BYTE ? "CONF_VALUE_8_BIT" :
3180        byte_mask == CONF_MASK_2_BYTE ? "CONF_VALUE_16_BIT" :
3181        byte_mask == CONF_MASK_4_BYTE ? "CONF_VALUE_32_BIT" :"CONF_VALUE_BYTES");
3182     int error_conf_chunk_token = conf_type & CONF_MASK_TOKEN;
3183     int error_element = real_element;
3184
3185     Warn("cannot load micro chunk '%s(%d)' value for element %d ['%s']",
3186          error_conf_chunk_bytes, error_conf_chunk_token,
3187          error_element, EL_NAME(error_element));
3188   }
3189
3190   return micro_chunk_size;
3191 }
3192
3193 static int LoadLevel_INFO(File *file, int chunk_size, struct LevelInfo *level)
3194 {
3195   int real_chunk_size = 0;
3196
3197   li = *level;          // copy level data into temporary buffer
3198
3199   while (!checkEndOfFile(file))
3200   {
3201     real_chunk_size += LoadLevel_MicroChunk(file, chunk_config_INFO, -1, -1);
3202
3203     if (real_chunk_size >= chunk_size)
3204       break;
3205   }
3206
3207   *level = li;          // copy temporary buffer back to level data
3208
3209   return real_chunk_size;
3210 }
3211
3212 static int LoadLevel_CONF(File *file, int chunk_size, struct LevelInfo *level)
3213 {
3214   int real_chunk_size = 0;
3215
3216   li = *level;          // copy level data into temporary buffer
3217
3218   while (!checkEndOfFile(file))
3219   {
3220     int element = getMappedElement(getFile16BitBE(file));
3221
3222     real_chunk_size += 2;
3223     real_chunk_size += LoadLevel_MicroChunk(file, chunk_config_CONF,
3224                                             element, element);
3225     if (real_chunk_size >= chunk_size)
3226       break;
3227   }
3228
3229   *level = li;          // copy temporary buffer back to level data
3230
3231   return real_chunk_size;
3232 }
3233
3234 static int LoadLevel_ELEM(File *file, int chunk_size, struct LevelInfo *level)
3235 {
3236   int real_chunk_size = 0;
3237
3238   li = *level;          // copy level data into temporary buffer
3239
3240   while (!checkEndOfFile(file))
3241   {
3242     int element = getMappedElement(getFile16BitBE(file));
3243
3244     real_chunk_size += 2;
3245     real_chunk_size += LoadLevel_MicroChunk(file, chunk_config_ELEM,
3246                                             element, element);
3247     if (real_chunk_size >= chunk_size)
3248       break;
3249   }
3250
3251   *level = li;          // copy temporary buffer back to level data
3252
3253   return real_chunk_size;
3254 }
3255
3256 static int LoadLevel_NOTE(File *file, int chunk_size, struct LevelInfo *level)
3257 {
3258   int element = getMappedElement(getFile16BitBE(file));
3259   int envelope_nr = element - EL_ENVELOPE_1;
3260   int real_chunk_size = 2;
3261
3262   xx_envelope = level->envelope[envelope_nr];   // copy into temporary buffer
3263
3264   while (!checkEndOfFile(file))
3265   {
3266     real_chunk_size += LoadLevel_MicroChunk(file, chunk_config_NOTE,
3267                                             -1, element);
3268
3269     if (real_chunk_size >= chunk_size)
3270       break;
3271   }
3272
3273   level->envelope[envelope_nr] = xx_envelope;   // copy from temporary buffer
3274
3275   return real_chunk_size;
3276 }
3277
3278 static int LoadLevel_CUSX(File *file, int chunk_size, struct LevelInfo *level)
3279 {
3280   int element = getMappedElement(getFile16BitBE(file));
3281   int real_chunk_size = 2;
3282   struct ElementInfo *ei = &element_info[element];
3283   int i;
3284
3285   xx_ei = *ei;          // copy element data into temporary buffer
3286
3287   xx_ei.num_change_pages = -1;
3288
3289   while (!checkEndOfFile(file))
3290   {
3291     real_chunk_size += LoadLevel_MicroChunk(file, chunk_config_CUSX_base,
3292                                             -1, element);
3293     if (xx_ei.num_change_pages != -1)
3294       break;
3295
3296     if (real_chunk_size >= chunk_size)
3297       break;
3298   }
3299
3300   *ei = xx_ei;
3301
3302   if (ei->num_change_pages == -1)
3303   {
3304     Warn("LoadLevel_CUSX(): missing 'num_change_pages' for '%s'",
3305          EL_NAME(element));
3306
3307     ei->num_change_pages = 1;
3308
3309     setElementChangePages(ei, 1);
3310     setElementChangeInfoToDefaults(ei->change);
3311
3312     return real_chunk_size;
3313   }
3314
3315   // initialize number of change pages stored for this custom element
3316   setElementChangePages(ei, ei->num_change_pages);
3317   for (i = 0; i < ei->num_change_pages; i++)
3318     setElementChangeInfoToDefaults(&ei->change_page[i]);
3319
3320   // start with reading properties for the first change page
3321   xx_current_change_page = 0;
3322
3323   while (!checkEndOfFile(file))
3324   {
3325     struct ElementChangeInfo *change = &ei->change_page[xx_current_change_page];
3326
3327     xx_change = *change;        // copy change data into temporary buffer
3328
3329     resetEventBits();           // reset bits; change page might have changed
3330
3331     real_chunk_size += LoadLevel_MicroChunk(file, chunk_config_CUSX_change,
3332                                             -1, element);
3333
3334     *change = xx_change;
3335
3336     setEventFlagsFromEventBits(change);
3337
3338     if (real_chunk_size >= chunk_size)
3339       break;
3340   }
3341
3342   level->file_has_custom_elements = TRUE;
3343
3344   return real_chunk_size;
3345 }
3346
3347 static int LoadLevel_GRPX(File *file, int chunk_size, struct LevelInfo *level)
3348 {
3349   int element = getMappedElement(getFile16BitBE(file));
3350   int real_chunk_size = 2;
3351   struct ElementInfo *ei = &element_info[element];
3352   struct ElementGroupInfo *group = ei->group;
3353
3354   xx_ei = *ei;          // copy element data into temporary buffer
3355   xx_group = *group;    // copy group data into temporary buffer
3356
3357   while (!checkEndOfFile(file))
3358   {
3359     real_chunk_size += LoadLevel_MicroChunk(file, chunk_config_GRPX,
3360                                             -1, element);
3361
3362     if (real_chunk_size >= chunk_size)
3363       break;
3364   }
3365
3366   *ei = xx_ei;
3367   *group = xx_group;
3368
3369   level->file_has_custom_elements = TRUE;
3370
3371   return real_chunk_size;
3372 }
3373
3374 static void LoadLevelFromFileInfo_RND(struct LevelInfo *level,
3375                                       struct LevelFileInfo *level_file_info,
3376                                       boolean level_info_only)
3377 {
3378   char *filename = level_file_info->filename;
3379   char cookie[MAX_LINE_LEN];
3380   char chunk_name[CHUNK_ID_LEN + 1];
3381   int chunk_size;
3382   File *file;
3383
3384   if (!(file = openFile(filename, MODE_READ)))
3385   {
3386     level->no_valid_file = TRUE;
3387     level->no_level_file = TRUE;
3388
3389     if (level_info_only)
3390       return;
3391
3392     Warn("cannot read level '%s' -- using empty level", filename);
3393
3394     if (!setup.editor.use_template_for_new_levels)
3395       return;
3396
3397     // if level file not found, try to initialize level data from template
3398     filename = getGlobalLevelTemplateFilename();
3399
3400     if (!(file = openFile(filename, MODE_READ)))
3401       return;
3402
3403     // default: for empty levels, use level template for custom elements
3404     level->use_custom_template = TRUE;
3405
3406     level->no_valid_file = FALSE;
3407   }
3408
3409   getFileChunkBE(file, chunk_name, NULL);
3410   if (strEqual(chunk_name, "RND1"))
3411   {
3412     getFile32BitBE(file);               // not used
3413
3414     getFileChunkBE(file, chunk_name, NULL);
3415     if (!strEqual(chunk_name, "CAVE"))
3416     {
3417       level->no_valid_file = TRUE;
3418
3419       Warn("unknown format of level file '%s'", filename);
3420
3421       closeFile(file);
3422
3423       return;
3424     }
3425   }
3426   else  // check for pre-2.0 file format with cookie string
3427   {
3428     strcpy(cookie, chunk_name);
3429     if (getStringFromFile(file, &cookie[4], MAX_LINE_LEN - 4) == NULL)
3430       cookie[4] = '\0';
3431     if (strlen(cookie) > 0 && cookie[strlen(cookie) - 1] == '\n')
3432       cookie[strlen(cookie) - 1] = '\0';
3433
3434     if (!checkCookieString(cookie, LEVEL_COOKIE_TMPL))
3435     {
3436       level->no_valid_file = TRUE;
3437
3438       Warn("unknown format of level file '%s'", filename);
3439
3440       closeFile(file);
3441
3442       return;
3443     }
3444
3445     if ((level->file_version = getFileVersionFromCookieString(cookie)) == -1)
3446     {
3447       level->no_valid_file = TRUE;
3448
3449       Warn("unsupported version of level file '%s'", filename);
3450
3451       closeFile(file);
3452
3453       return;
3454     }
3455
3456     // pre-2.0 level files have no game version, so use file version here
3457     level->game_version = level->file_version;
3458   }
3459
3460   if (level->file_version < FILE_VERSION_1_2)
3461   {
3462     // level files from versions before 1.2.0 without chunk structure
3463     LoadLevel_HEAD(file, LEVEL_CHUNK_HEAD_SIZE,         level);
3464     LoadLevel_BODY(file, level->fieldx * level->fieldy, level);
3465   }
3466   else
3467   {
3468     static struct
3469     {
3470       char *name;
3471       int size;
3472       int (*loader)(File *, int, struct LevelInfo *);
3473     }
3474     chunk_info[] =
3475     {
3476       { "VERS", LEVEL_CHUNK_VERS_SIZE,  LoadLevel_VERS },
3477       { "DATE", LEVEL_CHUNK_DATE_SIZE,  LoadLevel_DATE },
3478       { "HEAD", LEVEL_CHUNK_HEAD_SIZE,  LoadLevel_HEAD },
3479       { "NAME", LEVEL_CHUNK_NAME_SIZE,  LoadLevel_NAME },
3480       { "AUTH", LEVEL_CHUNK_AUTH_SIZE,  LoadLevel_AUTH },
3481       { "INFO", -1,                     LoadLevel_INFO },
3482       { "BODY", -1,                     LoadLevel_BODY },
3483       { "CONT", -1,                     LoadLevel_CONT },
3484       { "CNT2", LEVEL_CHUNK_CNT2_SIZE,  LoadLevel_CNT2 },
3485       { "CNT3", -1,                     LoadLevel_CNT3 },
3486       { "CUS1", -1,                     LoadLevel_CUS1 },
3487       { "CUS2", -1,                     LoadLevel_CUS2 },
3488       { "CUS3", -1,                     LoadLevel_CUS3 },
3489       { "CUS4", -1,                     LoadLevel_CUS4 },
3490       { "GRP1", -1,                     LoadLevel_GRP1 },
3491       { "CONF", -1,                     LoadLevel_CONF },
3492       { "ELEM", -1,                     LoadLevel_ELEM },
3493       { "NOTE", -1,                     LoadLevel_NOTE },
3494       { "CUSX", -1,                     LoadLevel_CUSX },
3495       { "GRPX", -1,                     LoadLevel_GRPX },
3496
3497       {  NULL,  0,                      NULL }
3498     };
3499
3500     while (getFileChunkBE(file, chunk_name, &chunk_size))
3501     {
3502       int i = 0;
3503
3504       while (chunk_info[i].name != NULL &&
3505              !strEqual(chunk_name, chunk_info[i].name))
3506         i++;
3507
3508       if (chunk_info[i].name == NULL)
3509       {
3510         Warn("unknown chunk '%s' in level file '%s'",
3511              chunk_name, filename);
3512
3513         ReadUnusedBytesFromFile(file, chunk_size);
3514       }
3515       else if (chunk_info[i].size != -1 &&
3516                chunk_info[i].size != chunk_size)
3517       {
3518         Warn("wrong size (%d) of chunk '%s' in level file '%s'",
3519              chunk_size, chunk_name, filename);
3520
3521         ReadUnusedBytesFromFile(file, chunk_size);
3522       }
3523       else
3524       {
3525         // call function to load this level chunk
3526         int chunk_size_expected =
3527           (chunk_info[i].loader)(file, chunk_size, level);
3528
3529         // the size of some chunks cannot be checked before reading other
3530         // chunks first (like "HEAD" and "BODY") that contain some header
3531         // information, so check them here
3532         if (chunk_size_expected != chunk_size)
3533         {
3534           Warn("wrong size (%d) of chunk '%s' in level file '%s'",
3535                chunk_size, chunk_name, filename);
3536         }
3537       }
3538     }
3539   }
3540
3541   closeFile(file);
3542 }
3543
3544
3545 // ----------------------------------------------------------------------------
3546 // functions for loading EM level
3547 // ----------------------------------------------------------------------------
3548
3549 static void CopyNativeLevel_RND_to_EM(struct LevelInfo *level)
3550 {
3551   static int ball_xy[8][2] =
3552   {
3553     { 0, 0 },
3554     { 1, 0 },
3555     { 2, 0 },
3556     { 0, 1 },
3557     { 2, 1 },
3558     { 0, 2 },
3559     { 1, 2 },
3560     { 2, 2 },
3561   };
3562   struct LevelInfo_EM *level_em = level->native_em_level;
3563   struct CAVE *cav = level_em->cav;
3564   int i, j, x, y;
3565
3566   cav->width  = MIN(level->fieldx, MAX_PLAYFIELD_WIDTH);
3567   cav->height = MIN(level->fieldy, MAX_PLAYFIELD_HEIGHT);
3568
3569   cav->time_seconds     = level->time;
3570   cav->gems_needed      = level->gems_needed;
3571
3572   cav->emerald_score    = level->score[SC_EMERALD];
3573   cav->diamond_score    = level->score[SC_DIAMOND];
3574   cav->alien_score      = level->score[SC_ROBOT];
3575   cav->tank_score       = level->score[SC_SPACESHIP];
3576   cav->bug_score        = level->score[SC_BUG];
3577   cav->eater_score      = level->score[SC_YAMYAM];
3578   cav->nut_score        = level->score[SC_NUT];
3579   cav->dynamite_score   = level->score[SC_DYNAMITE];
3580   cav->key_score        = level->score[SC_KEY];
3581   cav->exit_score       = level->score[SC_TIME_BONUS];
3582
3583   cav->num_eater_arrays = level->num_yamyam_contents;
3584
3585   for (i = 0; i < MAX_ELEMENT_CONTENTS; i++)
3586     for (y = 0; y < 3; y++)
3587       for (x = 0; x < 3; x++)
3588         cav->eater_array[i][y * 3 + x] =
3589           map_element_RND_to_EM_cave(level->yamyam_content[i].e[x][y]);
3590
3591   cav->amoeba_time              = level->amoeba_speed;
3592   cav->wonderwall_time          = level->time_magic_wall;
3593   cav->wheel_time               = level->time_wheel;
3594
3595   cav->android_move_time        = level->android_move_time;
3596   cav->android_clone_time       = level->android_clone_time;
3597   cav->ball_random              = level->ball_random;
3598   cav->ball_active              = level->ball_active_initial;
3599   cav->ball_time                = level->ball_time;
3600   cav->num_ball_arrays          = level->num_ball_contents;
3601
3602   cav->lenses_score             = level->lenses_score;
3603   cav->magnify_score            = level->magnify_score;
3604   cav->slurp_score              = level->slurp_score;
3605
3606   cav->lenses_time              = level->lenses_time;
3607   cav->magnify_time             = level->magnify_time;
3608
3609   cav->wind_direction =
3610     map_direction_RND_to_EM(level->wind_direction_initial);
3611
3612   for (i = 0; i < MAX_ELEMENT_CONTENTS; i++)
3613     for (j = 0; j < 8; j++)
3614       cav->ball_array[i][j] =
3615         map_element_RND_to_EM_cave(level->ball_content[i].
3616                                    e[ball_xy[j][0]][ball_xy[j][1]]);
3617
3618   map_android_clone_elements_RND_to_EM(level);
3619
3620   // first fill the complete playfield with the empty space element
3621   for (y = 0; y < EM_MAX_CAVE_HEIGHT; y++)
3622     for (x = 0; x < EM_MAX_CAVE_WIDTH; x++)
3623       cav->cave[x][y] = Cblank;
3624
3625   // then copy the real level contents from level file into the playfield
3626   for (y = 0; y < cav->height; y++) for (x = 0; x < cav->width; x++)
3627   {
3628     int new_element = map_element_RND_to_EM_cave(level->field[x][y]);
3629
3630     if (level->field[x][y] == EL_AMOEBA_DEAD)
3631       new_element = map_element_RND_to_EM_cave(EL_AMOEBA_WET);
3632
3633     cav->cave[x][y] = new_element;
3634   }
3635
3636   for (i = 0; i < MAX_PLAYERS; i++)
3637   {
3638     cav->player_x[i] = -1;
3639     cav->player_y[i] = -1;
3640   }
3641
3642   // initialize player positions and delete players from the playfield
3643   for (y = 0; y < cav->height; y++) for (x = 0; x < cav->width; x++)
3644   {
3645     if (ELEM_IS_PLAYER(level->field[x][y]))
3646     {
3647       int player_nr = GET_PLAYER_NR(level->field[x][y]);
3648
3649       cav->player_x[player_nr] = x;
3650       cav->player_y[player_nr] = y;
3651
3652       cav->cave[x][y] = map_element_RND_to_EM_cave(EL_EMPTY);
3653     }
3654   }
3655 }
3656
3657 static void CopyNativeLevel_EM_to_RND(struct LevelInfo *level)
3658 {
3659   static int ball_xy[8][2] =
3660   {
3661     { 0, 0 },
3662     { 1, 0 },
3663     { 2, 0 },
3664     { 0, 1 },
3665     { 2, 1 },
3666     { 0, 2 },
3667     { 1, 2 },
3668     { 2, 2 },
3669   };
3670   struct LevelInfo_EM *level_em = level->native_em_level;
3671   struct CAVE *cav = level_em->cav;
3672   int i, j, x, y;
3673
3674   level->fieldx = MIN(cav->width,  MAX_LEV_FIELDX);
3675   level->fieldy = MIN(cav->height, MAX_LEV_FIELDY);
3676
3677   level->time        = cav->time_seconds;
3678   level->gems_needed = cav->gems_needed;
3679
3680   sprintf(level->name, "Level %d", level->file_info.nr);
3681
3682   level->score[SC_EMERALD]      = cav->emerald_score;
3683   level->score[SC_DIAMOND]      = cav->diamond_score;
3684   level->score[SC_ROBOT]        = cav->alien_score;
3685   level->score[SC_SPACESHIP]    = cav->tank_score;
3686   level->score[SC_BUG]          = cav->bug_score;
3687   level->score[SC_YAMYAM]       = cav->eater_score;
3688   level->score[SC_NUT]          = cav->nut_score;
3689   level->score[SC_DYNAMITE]     = cav->dynamite_score;
3690   level->score[SC_KEY]          = cav->key_score;
3691   level->score[SC_TIME_BONUS]   = cav->exit_score;
3692
3693   level->num_yamyam_contents    = cav->num_eater_arrays;
3694
3695   for (i = 0; i < MAX_ELEMENT_CONTENTS; i++)
3696     for (y = 0; y < 3; y++)
3697       for (x = 0; x < 3; x++)
3698         level->yamyam_content[i].e[x][y] =
3699           map_element_EM_to_RND_cave(cav->eater_array[i][y * 3 + x]);
3700
3701   level->amoeba_speed           = cav->amoeba_time;
3702   level->time_magic_wall        = cav->wonderwall_time;
3703   level->time_wheel             = cav->wheel_time;
3704
3705   level->android_move_time      = cav->android_move_time;
3706   level->android_clone_time     = cav->android_clone_time;
3707   level->ball_random            = cav->ball_random;
3708   level->ball_active_initial    = cav->ball_active;
3709   level->ball_time              = cav->ball_time;
3710   level->num_ball_contents      = cav->num_ball_arrays;
3711
3712   level->lenses_score           = cav->lenses_score;
3713   level->magnify_score          = cav->magnify_score;
3714   level->slurp_score            = cav->slurp_score;
3715
3716   level->lenses_time            = cav->lenses_time;
3717   level->magnify_time           = cav->magnify_time;
3718
3719   level->wind_direction_initial =
3720     map_direction_EM_to_RND(cav->wind_direction);
3721
3722   for (i = 0; i < MAX_ELEMENT_CONTENTS; i++)
3723     for (j = 0; j < 8; j++)
3724       level->ball_content[i].e[ball_xy[j][0]][ball_xy[j][1]] =
3725         map_element_EM_to_RND_cave(cav->ball_array[i][j]);
3726
3727   map_android_clone_elements_EM_to_RND(level);
3728
3729   // convert the playfield (some elements need special treatment)
3730   for (y = 0; y < level->fieldy; y++) for (x = 0; x < level->fieldx; x++)
3731   {
3732     int new_element = map_element_EM_to_RND_cave(cav->cave[x][y]);
3733
3734     if (new_element == EL_AMOEBA_WET && level->amoeba_speed == 0)
3735       new_element = EL_AMOEBA_DEAD;
3736
3737     level->field[x][y] = new_element;
3738   }
3739
3740   for (i = 0; i < MAX_PLAYERS; i++)
3741   {
3742     // in case of all players set to the same field, use the first player
3743     int nr = MAX_PLAYERS - i - 1;
3744     int jx = cav->player_x[nr];
3745     int jy = cav->player_y[nr];
3746
3747     if (jx != -1 && jy != -1)
3748       level->field[jx][jy] = EL_PLAYER_1 + nr;
3749   }
3750
3751   // time score is counted for each 10 seconds left in Emerald Mine levels
3752   level->time_score_base = 10;
3753 }
3754
3755
3756 // ----------------------------------------------------------------------------
3757 // functions for loading SP level
3758 // ----------------------------------------------------------------------------
3759
3760 static void CopyNativeLevel_RND_to_SP(struct LevelInfo *level)
3761 {
3762   struct LevelInfo_SP *level_sp = level->native_sp_level;
3763   LevelInfoType *header = &level_sp->header;
3764   int i, x, y;
3765
3766   level_sp->width  = level->fieldx;
3767   level_sp->height = level->fieldy;
3768
3769   for (x = 0; x < level->fieldx; x++)
3770     for (y = 0; y < level->fieldy; y++)
3771       level_sp->playfield[x][y] = map_element_RND_to_SP(level->field[x][y]);
3772
3773   header->InitialGravity = (level->initial_player_gravity[0] ? 1 : 0);
3774
3775   for (i = 0; i < SP_LEVEL_NAME_LEN; i++)
3776     header->LevelTitle[i] = level->name[i];
3777   // !!! NO STRING TERMINATION IN SUPAPLEX VB CODE YET -- FIX THIS !!!
3778
3779   header->InfotronsNeeded = level->gems_needed;
3780
3781   header->SpecialPortCount = 0;
3782
3783   for (x = 0; x < level->fieldx; x++) for (y = 0; y < level->fieldy; y++)
3784   {
3785     boolean gravity_port_found = FALSE;
3786     boolean gravity_port_valid = FALSE;
3787     int gravity_port_flag;
3788     int gravity_port_base_element;
3789     int element = level->field[x][y];
3790
3791     if (element >= EL_SP_GRAVITY_ON_PORT_RIGHT &&
3792         element <= EL_SP_GRAVITY_ON_PORT_UP)
3793     {
3794       gravity_port_found = TRUE;
3795       gravity_port_valid = TRUE;
3796       gravity_port_flag = 1;
3797       gravity_port_base_element = EL_SP_GRAVITY_ON_PORT_RIGHT;
3798     }
3799     else if (element >= EL_SP_GRAVITY_OFF_PORT_RIGHT &&
3800              element <= EL_SP_GRAVITY_OFF_PORT_UP)
3801     {
3802       gravity_port_found = TRUE;
3803       gravity_port_valid = TRUE;
3804       gravity_port_flag = 0;
3805       gravity_port_base_element = EL_SP_GRAVITY_OFF_PORT_RIGHT;
3806     }
3807     else if (element >= EL_SP_GRAVITY_PORT_RIGHT &&
3808              element <= EL_SP_GRAVITY_PORT_UP)
3809     {
3810       // change R'n'D style gravity inverting special port to normal port
3811       // (there are no gravity inverting ports in native Supaplex engine)
3812
3813       gravity_port_found = TRUE;
3814       gravity_port_valid = FALSE;
3815       gravity_port_base_element = EL_SP_GRAVITY_PORT_RIGHT;
3816     }
3817
3818     if (gravity_port_found)
3819     {
3820       if (gravity_port_valid &&
3821           header->SpecialPortCount < SP_MAX_SPECIAL_PORTS)
3822       {
3823         SpecialPortType *port = &header->SpecialPort[header->SpecialPortCount];
3824
3825         port->PortLocation = (y * level->fieldx + x) * 2;
3826         port->Gravity = gravity_port_flag;
3827
3828         element += EL_SP_GRAVITY_PORT_RIGHT - gravity_port_base_element;
3829
3830         header->SpecialPortCount++;
3831       }
3832       else
3833       {
3834         // change special gravity port to normal port
3835
3836         element += EL_SP_PORT_RIGHT - gravity_port_base_element;
3837       }
3838
3839       level_sp->playfield[x][y] = element - EL_SP_START;
3840     }
3841   }
3842 }
3843
3844 static void CopyNativeLevel_SP_to_RND(struct LevelInfo *level)
3845 {
3846   struct LevelInfo_SP *level_sp = level->native_sp_level;
3847   LevelInfoType *header = &level_sp->header;
3848   boolean num_invalid_elements = 0;
3849   int i, j, x, y;
3850
3851   level->fieldx = level_sp->width;
3852   level->fieldy = level_sp->height;
3853
3854   for (x = 0; x < level->fieldx; x++)
3855   {
3856     for (y = 0; y < level->fieldy; y++)
3857     {
3858       int element_old = level_sp->playfield[x][y];
3859       int element_new = getMappedElement(map_element_SP_to_RND(element_old));
3860
3861       if (element_new == EL_UNKNOWN)
3862       {
3863         num_invalid_elements++;
3864
3865         Debug("level:native:SP", "invalid element %d at position %d, %d",
3866               element_old, x, y);
3867       }
3868
3869       level->field[x][y] = element_new;
3870     }
3871   }
3872
3873   if (num_invalid_elements > 0)
3874     Warn("found %d invalid elements%s", num_invalid_elements,
3875          (!options.debug ? " (use '--debug' for more details)" : ""));
3876
3877   for (i = 0; i < MAX_PLAYERS; i++)
3878     level->initial_player_gravity[i] =
3879       (header->InitialGravity == 1 ? TRUE : FALSE);
3880
3881   // skip leading spaces
3882   for (i = 0; i < SP_LEVEL_NAME_LEN; i++)
3883     if (header->LevelTitle[i] != ' ')
3884       break;
3885
3886   // copy level title
3887   for (j = 0; i < SP_LEVEL_NAME_LEN; i++, j++)
3888     level->name[j] = header->LevelTitle[i];
3889   level->name[j] = '\0';
3890
3891   // cut trailing spaces
3892   for (; j > 0; j--)
3893     if (level->name[j - 1] == ' ' && level->name[j] == '\0')
3894       level->name[j - 1] = '\0';
3895
3896   level->gems_needed = header->InfotronsNeeded;
3897
3898   for (i = 0; i < header->SpecialPortCount; i++)
3899   {
3900     SpecialPortType *port = &header->SpecialPort[i];
3901     int port_location = port->PortLocation;
3902     int gravity = port->Gravity;
3903     int port_x, port_y, port_element;
3904
3905     port_x = (port_location / 2) % level->fieldx;
3906     port_y = (port_location / 2) / level->fieldx;
3907
3908     if (port_x < 0 || port_x >= level->fieldx ||
3909         port_y < 0 || port_y >= level->fieldy)
3910     {
3911       Warn("special port position (%d, %d) out of bounds", port_x, port_y);
3912
3913       continue;
3914     }
3915
3916     port_element = level->field[port_x][port_y];
3917
3918     if (port_element < EL_SP_GRAVITY_PORT_RIGHT ||
3919         port_element > EL_SP_GRAVITY_PORT_UP)
3920     {
3921       Warn("no special port at position (%d, %d)", port_x, port_y);
3922
3923       continue;
3924     }
3925
3926     // change previous (wrong) gravity inverting special port to either
3927     // gravity enabling special port or gravity disabling special port
3928     level->field[port_x][port_y] +=
3929       (gravity == 1 ? EL_SP_GRAVITY_ON_PORT_RIGHT :
3930        EL_SP_GRAVITY_OFF_PORT_RIGHT) - EL_SP_GRAVITY_PORT_RIGHT;
3931   }
3932
3933   // change special gravity ports without database entries to normal ports
3934   for (x = 0; x < level->fieldx; x++)
3935     for (y = 0; y < level->fieldy; y++)
3936       if (level->field[x][y] >= EL_SP_GRAVITY_PORT_RIGHT &&
3937           level->field[x][y] <= EL_SP_GRAVITY_PORT_UP)
3938         level->field[x][y] += EL_SP_PORT_RIGHT - EL_SP_GRAVITY_PORT_RIGHT;
3939
3940   level->time = 0;                      // no time limit
3941   level->amoeba_speed = 0;
3942   level->time_magic_wall = 0;
3943   level->time_wheel = 0;
3944   level->amoeba_content = EL_EMPTY;
3945
3946   // original Supaplex does not use score values -- rate by playing time
3947   for (i = 0; i < LEVEL_SCORE_ELEMENTS; i++)
3948     level->score[i] = 0;
3949
3950   level->rate_time_over_score = TRUE;
3951
3952   // there are no yamyams in supaplex levels
3953   for (i = 0; i < level->num_yamyam_contents; i++)
3954     for (x = 0; x < 3; x++)
3955       for (y = 0; y < 3; y++)
3956         level->yamyam_content[i].e[x][y] = EL_EMPTY;
3957 }
3958
3959 static void CopyNativeTape_RND_to_SP(struct LevelInfo *level)
3960 {
3961   struct LevelInfo_SP *level_sp = level->native_sp_level;
3962   struct DemoInfo_SP *demo = &level_sp->demo;
3963   int i, j;
3964
3965   // always start with reliable default values
3966   demo->is_available = FALSE;
3967   demo->length = 0;
3968
3969   if (TAPE_IS_EMPTY(tape))
3970     return;
3971
3972   demo->level_nr = tape.level_nr;       // (currently not used)
3973
3974   level_sp->header.DemoRandomSeed = tape.random_seed;
3975
3976   demo->length = 0;
3977
3978   for (i = 0; i < tape.length; i++)
3979   {
3980     int demo_action = map_key_RND_to_SP(tape.pos[i].action[0]);
3981     int demo_repeat = tape.pos[i].delay;
3982     int demo_entries = (demo_repeat + 15) / 16;
3983
3984     if (demo->length + demo_entries >= SP_MAX_TAPE_LEN)
3985     {
3986       Warn("tape truncated: size exceeds maximum SP demo size %d",
3987            SP_MAX_TAPE_LEN);
3988
3989       break;
3990     }
3991
3992     for (j = 0; j < demo_repeat / 16; j++)
3993       demo->data[demo->length++] = 0xf0 | demo_action;
3994
3995     if (demo_repeat % 16)
3996       demo->data[demo->length++] = ((demo_repeat % 16 - 1) << 4) | demo_action;
3997   }
3998
3999   demo->is_available = TRUE;
4000 }
4001
4002 static void setTapeInfoToDefaults(void);
4003
4004 static void CopyNativeTape_SP_to_RND(struct LevelInfo *level)
4005 {
4006   struct LevelInfo_SP *level_sp = level->native_sp_level;
4007   struct DemoInfo_SP *demo = &level_sp->demo;
4008   char *filename = level->file_info.filename;
4009   int i;
4010
4011   // always start with reliable default values
4012   setTapeInfoToDefaults();
4013
4014   if (!demo->is_available)
4015     return;
4016
4017   tape.level_nr = demo->level_nr;       // (currently not used)
4018   tape.random_seed = level_sp->header.DemoRandomSeed;
4019
4020   TapeSetDateFromEpochSeconds(getFileTimestampEpochSeconds(filename));
4021
4022   tape.counter = 0;
4023   tape.pos[tape.counter].delay = 0;
4024
4025   for (i = 0; i < demo->length; i++)
4026   {
4027     int demo_action = demo->data[i] & 0x0f;
4028     int demo_repeat = (demo->data[i] & 0xf0) >> 4;
4029     int tape_action = map_key_SP_to_RND(demo_action);
4030     int tape_repeat = demo_repeat + 1;
4031     byte action[MAX_TAPE_ACTIONS] = { tape_action };
4032     boolean success = 0;
4033     int j;
4034
4035     for (j = 0; j < tape_repeat; j++)
4036       success = TapeAddAction(action);
4037
4038     if (!success)
4039     {
4040       Warn("SP demo truncated: size exceeds maximum tape size %d",
4041            MAX_TAPE_LEN);
4042
4043       break;
4044     }
4045   }
4046
4047   TapeHaltRecording();
4048 }
4049
4050
4051 // ----------------------------------------------------------------------------
4052 // functions for loading MM level
4053 // ----------------------------------------------------------------------------
4054
4055 static void CopyNativeLevel_RND_to_MM(struct LevelInfo *level)
4056 {
4057   struct LevelInfo_MM *level_mm = level->native_mm_level;
4058   int x, y;
4059
4060   level_mm->fieldx = MIN(level->fieldx, MM_MAX_PLAYFIELD_WIDTH);
4061   level_mm->fieldy = MIN(level->fieldy, MM_MAX_PLAYFIELD_HEIGHT);
4062
4063   level_mm->time = level->time;
4064   level_mm->kettles_needed = level->gems_needed;
4065   level_mm->auto_count_kettles = level->auto_count_gems;
4066
4067   level_mm->laser_red = level->mm_laser_red;
4068   level_mm->laser_green = level->mm_laser_green;
4069   level_mm->laser_blue = level->mm_laser_blue;
4070
4071   strcpy(level_mm->name, level->name);
4072   strcpy(level_mm->author, level->author);
4073
4074   level_mm->score[SC_EMERALD]    = level->score[SC_EMERALD];
4075   level_mm->score[SC_PACMAN]     = level->score[SC_PACMAN];
4076   level_mm->score[SC_KEY]        = level->score[SC_KEY];
4077   level_mm->score[SC_TIME_BONUS] = level->score[SC_TIME_BONUS];
4078   level_mm->score[SC_ELEM_BONUS] = level->score[SC_ELEM_BONUS];
4079
4080   level_mm->amoeba_speed = level->amoeba_speed;
4081   level_mm->time_fuse    = level->mm_time_fuse;
4082   level_mm->time_bomb    = level->mm_time_bomb;
4083   level_mm->time_ball    = level->mm_time_ball;
4084   level_mm->time_block   = level->mm_time_block;
4085
4086   for (x = 0; x < level->fieldx; x++)
4087     for (y = 0; y < level->fieldy; y++)
4088       Ur[x][y] =
4089         level_mm->field[x][y] = map_element_RND_to_MM(level->field[x][y]);
4090 }
4091
4092 static void CopyNativeLevel_MM_to_RND(struct LevelInfo *level)
4093 {
4094   struct LevelInfo_MM *level_mm = level->native_mm_level;
4095   int x, y;
4096
4097   level->fieldx = MIN(level_mm->fieldx, MAX_LEV_FIELDX);
4098   level->fieldy = MIN(level_mm->fieldy, MAX_LEV_FIELDY);
4099
4100   level->time = level_mm->time;
4101   level->gems_needed = level_mm->kettles_needed;
4102   level->auto_count_gems = level_mm->auto_count_kettles;
4103
4104   level->mm_laser_red = level_mm->laser_red;
4105   level->mm_laser_green = level_mm->laser_green;
4106   level->mm_laser_blue = level_mm->laser_blue;
4107
4108   strcpy(level->name, level_mm->name);
4109
4110   // only overwrite author from 'levelinfo.conf' if author defined in level
4111   if (!strEqual(level_mm->author, ANONYMOUS_NAME))
4112     strcpy(level->author, level_mm->author);
4113
4114   level->score[SC_EMERALD]    = level_mm->score[SC_EMERALD];
4115   level->score[SC_PACMAN]     = level_mm->score[SC_PACMAN];
4116   level->score[SC_KEY]        = level_mm->score[SC_KEY];
4117   level->score[SC_TIME_BONUS] = level_mm->score[SC_TIME_BONUS];
4118   level->score[SC_ELEM_BONUS] = level_mm->score[SC_ELEM_BONUS];
4119
4120   level->amoeba_speed  = level_mm->amoeba_speed;
4121   level->mm_time_fuse  = level_mm->time_fuse;
4122   level->mm_time_bomb  = level_mm->time_bomb;
4123   level->mm_time_ball  = level_mm->time_ball;
4124   level->mm_time_block = level_mm->time_block;
4125
4126   for (x = 0; x < level->fieldx; x++)
4127     for (y = 0; y < level->fieldy; y++)
4128       level->field[x][y] = map_element_MM_to_RND(level_mm->field[x][y]);
4129 }
4130
4131
4132 // ----------------------------------------------------------------------------
4133 // functions for loading DC level
4134 // ----------------------------------------------------------------------------
4135
4136 #define DC_LEVEL_HEADER_SIZE            344
4137
4138 static unsigned short getDecodedWord_DC(unsigned short data_encoded,
4139                                         boolean init)
4140 {
4141   static int last_data_encoded;
4142   static int offset1;
4143   static int offset2;
4144   int diff;
4145   int diff_hi, diff_lo;
4146   int data_hi, data_lo;
4147   unsigned short data_decoded;
4148
4149   if (init)
4150   {
4151     last_data_encoded = 0;
4152     offset1 = -1;
4153     offset2 = 0;
4154
4155     return 0;
4156   }
4157
4158   diff = data_encoded - last_data_encoded;
4159   diff_hi = diff & ~0xff;
4160   diff_lo = diff &  0xff;
4161
4162   offset2 += diff_lo;
4163
4164   data_hi = diff_hi - (offset1 << 8) + (offset2 & 0xff00);
4165   data_lo = (diff_lo + (data_hi >> 16)) & 0x00ff;
4166   data_hi = data_hi & 0xff00;
4167
4168   data_decoded = data_hi | data_lo;
4169
4170   last_data_encoded = data_encoded;
4171
4172   offset1 = (offset1 + 1) % 31;
4173   offset2 = offset2 & 0xff;
4174
4175   return data_decoded;
4176 }
4177
4178 static int getMappedElement_DC(int element)
4179 {
4180   switch (element)
4181   {
4182     case 0x0000:
4183       element = EL_ROCK;
4184       break;
4185
4186       // 0x0117 - 0x036e: (?)
4187       // EL_DIAMOND
4188
4189       // 0x042d - 0x0684: (?)
4190       // EL_EMERALD
4191
4192     case 0x06f1:
4193       element = EL_NUT;
4194       break;
4195
4196     case 0x074c:
4197       element = EL_BOMB;
4198       break;
4199
4200     case 0x07a4:
4201       element = EL_PEARL;
4202       break;
4203
4204     case 0x0823:
4205       element = EL_CRYSTAL;
4206       break;
4207
4208     case 0x0e77:        // quicksand (boulder)
4209       element = EL_QUICKSAND_FAST_FULL;
4210       break;
4211
4212     case 0x0e99:        // slow quicksand (boulder)
4213       element = EL_QUICKSAND_FULL;
4214       break;
4215
4216     case 0x0ed2:
4217       element = EL_EM_EXIT_OPEN;
4218       break;
4219
4220     case 0x0ee3:
4221       element = EL_EM_EXIT_CLOSED;
4222       break;
4223
4224     case 0x0eeb:
4225       element = EL_EM_STEEL_EXIT_OPEN;
4226       break;
4227
4228     case 0x0efc:
4229       element = EL_EM_STEEL_EXIT_CLOSED;
4230       break;
4231
4232     case 0x0f4f:        // dynamite (lit 1)
4233       element = EL_EM_DYNAMITE_ACTIVE;
4234       break;
4235
4236     case 0x0f57:        // dynamite (lit 2)
4237       element = EL_EM_DYNAMITE_ACTIVE;
4238       break;
4239
4240     case 0x0f5f:        // dynamite (lit 3)
4241       element = EL_EM_DYNAMITE_ACTIVE;
4242       break;
4243
4244     case 0x0f67:        // dynamite (lit 4)
4245       element = EL_EM_DYNAMITE_ACTIVE;
4246       break;
4247
4248     case 0x0f81:
4249     case 0x0f82:
4250     case 0x0f83:
4251     case 0x0f84:
4252       element = EL_AMOEBA_WET;
4253       break;
4254
4255     case 0x0f85:
4256       element = EL_AMOEBA_DROP;
4257       break;
4258
4259     case 0x0fb9:
4260       element = EL_DC_MAGIC_WALL;
4261       break;
4262
4263     case 0x0fd0:
4264       element = EL_SPACESHIP_UP;
4265       break;
4266
4267     case 0x0fd9:
4268       element = EL_SPACESHIP_DOWN;
4269       break;
4270
4271     case 0x0ff1:
4272       element = EL_SPACESHIP_LEFT;
4273       break;
4274
4275     case 0x0ff9:
4276       element = EL_SPACESHIP_RIGHT;
4277       break;
4278
4279     case 0x1057:
4280       element = EL_BUG_UP;
4281       break;
4282
4283     case 0x1060:
4284       element = EL_BUG_DOWN;
4285       break;
4286
4287     case 0x1078:
4288       element = EL_BUG_LEFT;
4289       break;
4290
4291     case 0x1080:
4292       element = EL_BUG_RIGHT;
4293       break;
4294
4295     case 0x10de:
4296       element = EL_MOLE_UP;
4297       break;
4298
4299     case 0x10e7:
4300       element = EL_MOLE_DOWN;
4301       break;
4302
4303     case 0x10ff:
4304       element = EL_MOLE_LEFT;
4305       break;
4306
4307     case 0x1107:
4308       element = EL_MOLE_RIGHT;
4309       break;
4310
4311     case 0x11c0:
4312       element = EL_ROBOT;
4313       break;
4314
4315     case 0x13f5:
4316       element = EL_YAMYAM_UP;
4317       break;
4318
4319     case 0x1425:
4320       element = EL_SWITCHGATE_OPEN;
4321       break;
4322
4323     case 0x1426:
4324       element = EL_SWITCHGATE_CLOSED;
4325       break;
4326
4327     case 0x1437:
4328       element = EL_DC_SWITCHGATE_SWITCH_UP;
4329       break;
4330
4331     case 0x143a:
4332       element = EL_TIMEGATE_CLOSED;
4333       break;
4334
4335     case 0x144c:        // conveyor belt switch (green)
4336       element = EL_CONVEYOR_BELT_3_SWITCH_MIDDLE;
4337       break;
4338
4339     case 0x144f:        // conveyor belt switch (red)
4340       element = EL_CONVEYOR_BELT_1_SWITCH_MIDDLE;
4341       break;
4342
4343     case 0x1452:        // conveyor belt switch (blue)
4344       element = EL_CONVEYOR_BELT_4_SWITCH_MIDDLE;
4345       break;
4346
4347     case 0x145b:
4348       element = EL_CONVEYOR_BELT_3_MIDDLE;
4349       break;
4350
4351     case 0x1463:
4352       element = EL_CONVEYOR_BELT_3_LEFT;
4353       break;
4354
4355     case 0x146b:
4356       element = EL_CONVEYOR_BELT_3_RIGHT;
4357       break;
4358
4359     case 0x1473:
4360       element = EL_CONVEYOR_BELT_1_MIDDLE;
4361       break;
4362
4363     case 0x147b:
4364       element = EL_CONVEYOR_BELT_1_LEFT;
4365       break;
4366
4367     case 0x1483:
4368       element = EL_CONVEYOR_BELT_1_RIGHT;
4369       break;
4370
4371     case 0x148b:
4372       element = EL_CONVEYOR_BELT_4_MIDDLE;
4373       break;
4374
4375     case 0x1493:
4376       element = EL_CONVEYOR_BELT_4_LEFT;
4377       break;
4378
4379     case 0x149b:
4380       element = EL_CONVEYOR_BELT_4_RIGHT;
4381       break;
4382
4383     case 0x14ac:
4384       element = EL_EXPANDABLE_WALL_HORIZONTAL;
4385       break;
4386
4387     case 0x14bd:
4388       element = EL_EXPANDABLE_WALL_VERTICAL;
4389       break;
4390
4391     case 0x14c6:
4392       element = EL_EXPANDABLE_WALL_ANY;
4393       break;
4394
4395     case 0x14ce:        // growing steel wall (left/right)
4396       element = EL_EXPANDABLE_STEELWALL_HORIZONTAL;
4397       break;
4398
4399     case 0x14df:        // growing steel wall (up/down)
4400       element = EL_EXPANDABLE_STEELWALL_VERTICAL;
4401       break;
4402
4403     case 0x14e8:        // growing steel wall (up/down/left/right)
4404       element = EL_EXPANDABLE_STEELWALL_ANY;
4405       break;
4406
4407     case 0x14e9:
4408       element = EL_SHIELD_DEADLY;
4409       break;
4410
4411     case 0x1501:
4412       element = EL_EXTRA_TIME;
4413       break;
4414
4415     case 0x154f:
4416       element = EL_ACID;
4417       break;
4418
4419     case 0x1577:
4420       element = EL_EMPTY_SPACE;
4421       break;
4422
4423     case 0x1578:        // quicksand (empty)
4424       element = EL_QUICKSAND_FAST_EMPTY;
4425       break;
4426
4427     case 0x1579:        // slow quicksand (empty)
4428       element = EL_QUICKSAND_EMPTY;
4429       break;
4430
4431       // 0x157c - 0x158b:
4432       // EL_SAND
4433
4434       // 0x1590 - 0x159f:
4435       // EL_DC_LANDMINE
4436
4437     case 0x15a0:
4438       element = EL_EM_DYNAMITE;
4439       break;
4440
4441     case 0x15a1:        // key (red)
4442       element = EL_EM_KEY_1;
4443       break;
4444
4445     case 0x15a2:        // key (yellow)
4446       element = EL_EM_KEY_2;
4447       break;
4448
4449     case 0x15a3:        // key (blue)
4450       element = EL_EM_KEY_4;
4451       break;
4452
4453     case 0x15a4:        // key (green)
4454       element = EL_EM_KEY_3;
4455       break;
4456
4457     case 0x15a5:        // key (white)
4458       element = EL_DC_KEY_WHITE;
4459       break;
4460
4461     case 0x15a6:
4462       element = EL_WALL_SLIPPERY;
4463       break;
4464
4465     case 0x15a7:
4466       element = EL_WALL;
4467       break;
4468
4469     case 0x15a8:        // wall (not round)
4470       element = EL_WALL;
4471       break;
4472
4473     case 0x15a9:        // (blue)
4474       element = EL_CHAR_A;
4475       break;
4476
4477     case 0x15aa:        // (blue)
4478       element = EL_CHAR_B;
4479       break;
4480
4481     case 0x15ab:        // (blue)
4482       element = EL_CHAR_C;
4483       break;
4484
4485     case 0x15ac:        // (blue)
4486       element = EL_CHAR_D;
4487       break;
4488
4489     case 0x15ad:        // (blue)
4490       element = EL_CHAR_E;
4491       break;
4492
4493     case 0x15ae:        // (blue)
4494       element = EL_CHAR_F;
4495       break;
4496
4497     case 0x15af:        // (blue)
4498       element = EL_CHAR_G;
4499       break;
4500
4501     case 0x15b0:        // (blue)
4502       element = EL_CHAR_H;
4503       break;
4504
4505     case 0x15b1:        // (blue)
4506       element = EL_CHAR_I;
4507       break;
4508
4509     case 0x15b2:        // (blue)
4510       element = EL_CHAR_J;
4511       break;
4512
4513     case 0x15b3:        // (blue)
4514       element = EL_CHAR_K;
4515       break;
4516
4517     case 0x15b4:        // (blue)
4518       element = EL_CHAR_L;
4519       break;
4520
4521     case 0x15b5:        // (blue)
4522       element = EL_CHAR_M;
4523       break;
4524
4525     case 0x15b6:        // (blue)
4526       element = EL_CHAR_N;
4527       break;
4528
4529     case 0x15b7:        // (blue)
4530       element = EL_CHAR_O;
4531       break;
4532
4533     case 0x15b8:        // (blue)
4534       element = EL_CHAR_P;
4535       break;
4536
4537     case 0x15b9:        // (blue)
4538       element = EL_CHAR_Q;
4539       break;
4540
4541     case 0x15ba:        // (blue)
4542       element = EL_CHAR_R;
4543       break;
4544
4545     case 0x15bb:        // (blue)
4546       element = EL_CHAR_S;
4547       break;
4548
4549     case 0x15bc:        // (blue)
4550       element = EL_CHAR_T;
4551       break;
4552
4553     case 0x15bd:        // (blue)
4554       element = EL_CHAR_U;
4555       break;
4556
4557     case 0x15be:        // (blue)
4558       element = EL_CHAR_V;
4559       break;
4560
4561     case 0x15bf:        // (blue)
4562       element = EL_CHAR_W;
4563       break;
4564
4565     case 0x15c0:        // (blue)
4566       element = EL_CHAR_X;
4567       break;
4568
4569     case 0x15c1:        // (blue)
4570       element = EL_CHAR_Y;
4571       break;
4572
4573     case 0x15c2:        // (blue)
4574       element = EL_CHAR_Z;
4575       break;
4576
4577     case 0x15c3:        // (blue)
4578       element = EL_CHAR_AUMLAUT;
4579       break;
4580
4581     case 0x15c4:        // (blue)
4582       element = EL_CHAR_OUMLAUT;
4583       break;
4584
4585     case 0x15c5:        // (blue)
4586       element = EL_CHAR_UUMLAUT;
4587       break;
4588
4589     case 0x15c6:        // (blue)
4590       element = EL_CHAR_0;
4591       break;
4592
4593     case 0x15c7:        // (blue)
4594       element = EL_CHAR_1;
4595       break;
4596
4597     case 0x15c8:        // (blue)
4598       element = EL_CHAR_2;
4599       break;
4600
4601     case 0x15c9:        // (blue)
4602       element = EL_CHAR_3;
4603       break;
4604
4605     case 0x15ca:        // (blue)
4606       element = EL_CHAR_4;
4607       break;
4608
4609     case 0x15cb:        // (blue)
4610       element = EL_CHAR_5;
4611       break;
4612
4613     case 0x15cc:        // (blue)
4614       element = EL_CHAR_6;
4615       break;
4616
4617     case 0x15cd:        // (blue)
4618       element = EL_CHAR_7;
4619       break;
4620
4621     case 0x15ce:        // (blue)
4622       element = EL_CHAR_8;
4623       break;
4624
4625     case 0x15cf:        // (blue)
4626       element = EL_CHAR_9;
4627       break;
4628
4629     case 0x15d0:        // (blue)
4630       element = EL_CHAR_PERIOD;
4631       break;
4632
4633     case 0x15d1:        // (blue)
4634       element = EL_CHAR_EXCLAM;
4635       break;
4636
4637     case 0x15d2:        // (blue)
4638       element = EL_CHAR_COLON;
4639       break;
4640
4641     case 0x15d3:        // (blue)
4642       element = EL_CHAR_LESS;
4643       break;
4644
4645     case 0x15d4:        // (blue)
4646       element = EL_CHAR_GREATER;
4647       break;
4648
4649     case 0x15d5:        // (blue)
4650       element = EL_CHAR_QUESTION;
4651       break;
4652
4653     case 0x15d6:        // (blue)
4654       element = EL_CHAR_COPYRIGHT;
4655       break;
4656
4657     case 0x15d7:        // (blue)
4658       element = EL_CHAR_UP;
4659       break;
4660
4661     case 0x15d8:        // (blue)
4662       element = EL_CHAR_DOWN;
4663       break;
4664
4665     case 0x15d9:        // (blue)
4666       element = EL_CHAR_BUTTON;
4667       break;
4668
4669     case 0x15da:        // (blue)
4670       element = EL_CHAR_PLUS;
4671       break;
4672
4673     case 0x15db:        // (blue)
4674       element = EL_CHAR_MINUS;
4675       break;
4676
4677     case 0x15dc:        // (blue)
4678       element = EL_CHAR_APOSTROPHE;
4679       break;
4680
4681     case 0x15dd:        // (blue)
4682       element = EL_CHAR_PARENLEFT;
4683       break;
4684
4685     case 0x15de:        // (blue)
4686       element = EL_CHAR_PARENRIGHT;
4687       break;
4688
4689     case 0x15df:        // (green)
4690       element = EL_CHAR_A;
4691       break;
4692
4693     case 0x15e0:        // (green)
4694       element = EL_CHAR_B;
4695       break;
4696
4697     case 0x15e1:        // (green)
4698       element = EL_CHAR_C;
4699       break;
4700
4701     case 0x15e2:        // (green)
4702       element = EL_CHAR_D;
4703       break;
4704
4705     case 0x15e3:        // (green)
4706       element = EL_CHAR_E;
4707       break;
4708
4709     case 0x15e4:        // (green)
4710       element = EL_CHAR_F;
4711       break;
4712
4713     case 0x15e5:        // (green)
4714       element = EL_CHAR_G;
4715       break;
4716
4717     case 0x15e6:        // (green)
4718       element = EL_CHAR_H;
4719       break;
4720
4721     case 0x15e7:        // (green)
4722       element = EL_CHAR_I;
4723       break;
4724
4725     case 0x15e8:        // (green)
4726       element = EL_CHAR_J;
4727       break;
4728
4729     case 0x15e9:        // (green)
4730       element = EL_CHAR_K;
4731       break;
4732
4733     case 0x15ea:        // (green)
4734       element = EL_CHAR_L;
4735       break;
4736
4737     case 0x15eb:        // (green)
4738       element = EL_CHAR_M;
4739       break;
4740
4741     case 0x15ec:        // (green)
4742       element = EL_CHAR_N;
4743       break;
4744
4745     case 0x15ed:        // (green)
4746       element = EL_CHAR_O;
4747       break;
4748
4749     case 0x15ee:        // (green)
4750       element = EL_CHAR_P;
4751       break;
4752
4753     case 0x15ef:        // (green)
4754       element = EL_CHAR_Q;
4755       break;
4756
4757     case 0x15f0:        // (green)
4758       element = EL_CHAR_R;
4759       break;
4760
4761     case 0x15f1:        // (green)
4762       element = EL_CHAR_S;
4763       break;
4764
4765     case 0x15f2:        // (green)
4766       element = EL_CHAR_T;
4767       break;
4768
4769     case 0x15f3:        // (green)
4770       element = EL_CHAR_U;
4771       break;
4772
4773     case 0x15f4:        // (green)
4774       element = EL_CHAR_V;
4775       break;
4776
4777     case 0x15f5:        // (green)
4778       element = EL_CHAR_W;
4779       break;
4780
4781     case 0x15f6:        // (green)
4782       element = EL_CHAR_X;
4783       break;
4784
4785     case 0x15f7:        // (green)
4786       element = EL_CHAR_Y;
4787       break;
4788
4789     case 0x15f8:        // (green)
4790       element = EL_CHAR_Z;
4791       break;
4792
4793     case 0x15f9:        // (green)
4794       element = EL_CHAR_AUMLAUT;
4795       break;
4796
4797     case 0x15fa:        // (green)
4798       element = EL_CHAR_OUMLAUT;
4799       break;
4800
4801     case 0x15fb:        // (green)
4802       element = EL_CHAR_UUMLAUT;
4803       break;
4804
4805     case 0x15fc:        // (green)
4806       element = EL_CHAR_0;
4807       break;
4808
4809     case 0x15fd:        // (green)
4810       element = EL_CHAR_1;
4811       break;
4812
4813     case 0x15fe:        // (green)
4814       element = EL_CHAR_2;
4815       break;
4816
4817     case 0x15ff:        // (green)
4818       element = EL_CHAR_3;
4819       break;
4820
4821     case 0x1600:        // (green)
4822       element = EL_CHAR_4;
4823       break;
4824
4825     case 0x1601:        // (green)
4826       element = EL_CHAR_5;
4827       break;
4828
4829     case 0x1602:        // (green)
4830       element = EL_CHAR_6;
4831       break;
4832
4833     case 0x1603:        // (green)
4834       element = EL_CHAR_7;
4835       break;
4836
4837     case 0x1604:        // (green)
4838       element = EL_CHAR_8;
4839       break;
4840
4841     case 0x1605:        // (green)
4842       element = EL_CHAR_9;
4843       break;
4844
4845     case 0x1606:        // (green)
4846       element = EL_CHAR_PERIOD;
4847       break;
4848
4849     case 0x1607:        // (green)
4850       element = EL_CHAR_EXCLAM;
4851       break;
4852
4853     case 0x1608:        // (green)
4854       element = EL_CHAR_COLON;
4855       break;
4856
4857     case 0x1609:        // (green)
4858       element = EL_CHAR_LESS;
4859       break;
4860
4861     case 0x160a:        // (green)
4862       element = EL_CHAR_GREATER;
4863       break;
4864
4865     case 0x160b:        // (green)
4866       element = EL_CHAR_QUESTION;
4867       break;
4868
4869     case 0x160c:        // (green)
4870       element = EL_CHAR_COPYRIGHT;
4871       break;
4872
4873     case 0x160d:        // (green)
4874       element = EL_CHAR_UP;
4875       break;
4876
4877     case 0x160e:        // (green)
4878       element = EL_CHAR_DOWN;
4879       break;
4880
4881     case 0x160f:        // (green)
4882       element = EL_CHAR_BUTTON;
4883       break;
4884
4885     case 0x1610:        // (green)
4886       element = EL_CHAR_PLUS;
4887       break;
4888
4889     case 0x1611:        // (green)
4890       element = EL_CHAR_MINUS;
4891       break;
4892
4893     case 0x1612:        // (green)
4894       element = EL_CHAR_APOSTROPHE;
4895       break;
4896
4897     case 0x1613:        // (green)
4898       element = EL_CHAR_PARENLEFT;
4899       break;
4900
4901     case 0x1614:        // (green)
4902       element = EL_CHAR_PARENRIGHT;
4903       break;
4904
4905     case 0x1615:        // (blue steel)
4906       element = EL_STEEL_CHAR_A;
4907       break;
4908
4909     case 0x1616:        // (blue steel)
4910       element = EL_STEEL_CHAR_B;
4911       break;
4912
4913     case 0x1617:        // (blue steel)
4914       element = EL_STEEL_CHAR_C;
4915       break;
4916
4917     case 0x1618:        // (blue steel)
4918       element = EL_STEEL_CHAR_D;
4919       break;
4920
4921     case 0x1619:        // (blue steel)
4922       element = EL_STEEL_CHAR_E;
4923       break;
4924
4925     case 0x161a:        // (blue steel)
4926       element = EL_STEEL_CHAR_F;
4927       break;
4928
4929     case 0x161b:        // (blue steel)
4930       element = EL_STEEL_CHAR_G;
4931       break;
4932
4933     case 0x161c:        // (blue steel)
4934       element = EL_STEEL_CHAR_H;
4935       break;
4936
4937     case 0x161d:        // (blue steel)
4938       element = EL_STEEL_CHAR_I;
4939       break;
4940
4941     case 0x161e:        // (blue steel)
4942       element = EL_STEEL_CHAR_J;
4943       break;
4944
4945     case 0x161f:        // (blue steel)
4946       element = EL_STEEL_CHAR_K;
4947       break;
4948
4949     case 0x1620:        // (blue steel)
4950       element = EL_STEEL_CHAR_L;
4951       break;
4952
4953     case 0x1621:        // (blue steel)
4954       element = EL_STEEL_CHAR_M;
4955       break;
4956
4957     case 0x1622:        // (blue steel)
4958       element = EL_STEEL_CHAR_N;
4959       break;
4960
4961     case 0x1623:        // (blue steel)
4962       element = EL_STEEL_CHAR_O;
4963       break;
4964
4965     case 0x1624:        // (blue steel)
4966       element = EL_STEEL_CHAR_P;
4967       break;
4968
4969     case 0x1625:        // (blue steel)
4970       element = EL_STEEL_CHAR_Q;
4971       break;
4972
4973     case 0x1626:        // (blue steel)
4974       element = EL_STEEL_CHAR_R;
4975       break;
4976
4977     case 0x1627:        // (blue steel)
4978       element = EL_STEEL_CHAR_S;
4979       break;
4980
4981     case 0x1628:        // (blue steel)
4982       element = EL_STEEL_CHAR_T;
4983       break;
4984
4985     case 0x1629:        // (blue steel)
4986       element = EL_STEEL_CHAR_U;
4987       break;
4988
4989     case 0x162a:        // (blue steel)
4990       element = EL_STEEL_CHAR_V;
4991       break;
4992
4993     case 0x162b:        // (blue steel)
4994       element = EL_STEEL_CHAR_W;
4995       break;
4996
4997     case 0x162c:        // (blue steel)
4998       element = EL_STEEL_CHAR_X;
4999       break;
5000
5001     case 0x162d:        // (blue steel)
5002       element = EL_STEEL_CHAR_Y;
5003       break;
5004
5005     case 0x162e:        // (blue steel)
5006       element = EL_STEEL_CHAR_Z;
5007       break;
5008
5009     case 0x162f:        // (blue steel)
5010       element = EL_STEEL_CHAR_AUMLAUT;
5011       break;
5012
5013     case 0x1630:        // (blue steel)
5014       element = EL_STEEL_CHAR_OUMLAUT;
5015       break;
5016
5017     case 0x1631:        // (blue steel)
5018       element = EL_STEEL_CHAR_UUMLAUT;
5019       break;
5020
5021     case 0x1632:        // (blue steel)
5022       element = EL_STEEL_CHAR_0;
5023       break;
5024
5025     case 0x1633:        // (blue steel)
5026       element = EL_STEEL_CHAR_1;
5027       break;
5028
5029     case 0x1634:        // (blue steel)
5030       element = EL_STEEL_CHAR_2;
5031       break;
5032
5033     case 0x1635:        // (blue steel)
5034       element = EL_STEEL_CHAR_3;
5035       break;
5036
5037     case 0x1636:        // (blue steel)
5038       element = EL_STEEL_CHAR_4;
5039       break;
5040
5041     case 0x1637:        // (blue steel)
5042       element = EL_STEEL_CHAR_5;
5043       break;
5044
5045     case 0x1638:        // (blue steel)
5046       element = EL_STEEL_CHAR_6;
5047       break;
5048
5049     case 0x1639:        // (blue steel)
5050       element = EL_STEEL_CHAR_7;
5051       break;
5052
5053     case 0x163a:        // (blue steel)
5054       element = EL_STEEL_CHAR_8;
5055       break;
5056
5057     case 0x163b:        // (blue steel)
5058       element = EL_STEEL_CHAR_9;
5059       break;
5060
5061     case 0x163c:        // (blue steel)
5062       element = EL_STEEL_CHAR_PERIOD;
5063       break;
5064
5065     case 0x163d:        // (blue steel)
5066       element = EL_STEEL_CHAR_EXCLAM;
5067       break;
5068
5069     case 0x163e:        // (blue steel)
5070       element = EL_STEEL_CHAR_COLON;
5071       break;
5072
5073     case 0x163f:        // (blue steel)
5074       element = EL_STEEL_CHAR_LESS;
5075       break;
5076
5077     case 0x1640:        // (blue steel)
5078       element = EL_STEEL_CHAR_GREATER;
5079       break;
5080
5081     case 0x1641:        // (blue steel)
5082       element = EL_STEEL_CHAR_QUESTION;
5083       break;
5084
5085     case 0x1642:        // (blue steel)
5086       element = EL_STEEL_CHAR_COPYRIGHT;
5087       break;
5088
5089     case 0x1643:        // (blue steel)
5090       element = EL_STEEL_CHAR_UP;
5091       break;
5092
5093     case 0x1644:        // (blue steel)
5094       element = EL_STEEL_CHAR_DOWN;
5095       break;
5096
5097     case 0x1645:        // (blue steel)
5098       element = EL_STEEL_CHAR_BUTTON;
5099       break;
5100
5101     case 0x1646:        // (blue steel)
5102       element = EL_STEEL_CHAR_PLUS;
5103       break;
5104
5105     case 0x1647:        // (blue steel)
5106       element = EL_STEEL_CHAR_MINUS;
5107       break;
5108
5109     case 0x1648:        // (blue steel)
5110       element = EL_STEEL_CHAR_APOSTROPHE;
5111       break;
5112
5113     case 0x1649:        // (blue steel)
5114       element = EL_STEEL_CHAR_PARENLEFT;
5115       break;
5116
5117     case 0x164a:        // (blue steel)
5118       element = EL_STEEL_CHAR_PARENRIGHT;
5119       break;
5120
5121     case 0x164b:        // (green steel)
5122       element = EL_STEEL_CHAR_A;
5123       break;
5124
5125     case 0x164c:        // (green steel)
5126       element = EL_STEEL_CHAR_B;
5127       break;
5128
5129     case 0x164d:        // (green steel)
5130       element = EL_STEEL_CHAR_C;
5131       break;
5132
5133     case 0x164e:        // (green steel)
5134       element = EL_STEEL_CHAR_D;
5135       break;
5136
5137     case 0x164f:        // (green steel)
5138       element = EL_STEEL_CHAR_E;
5139       break;
5140
5141     case 0x1650:        // (green steel)
5142       element = EL_STEEL_CHAR_F;
5143       break;
5144
5145     case 0x1651:        // (green steel)
5146       element = EL_STEEL_CHAR_G;
5147       break;
5148
5149     case 0x1652:        // (green steel)
5150       element = EL_STEEL_CHAR_H;
5151       break;
5152
5153     case 0x1653:        // (green steel)
5154       element = EL_STEEL_CHAR_I;
5155       break;
5156
5157     case 0x1654:        // (green steel)
5158       element = EL_STEEL_CHAR_J;
5159       break;
5160
5161     case 0x1655:        // (green steel)
5162       element = EL_STEEL_CHAR_K;
5163       break;
5164
5165     case 0x1656:        // (green steel)
5166       element = EL_STEEL_CHAR_L;
5167       break;
5168
5169     case 0x1657:        // (green steel)
5170       element = EL_STEEL_CHAR_M;
5171       break;
5172
5173     case 0x1658:        // (green steel)
5174       element = EL_STEEL_CHAR_N;
5175       break;
5176
5177     case 0x1659:        // (green steel)
5178       element = EL_STEEL_CHAR_O;
5179       break;
5180
5181     case 0x165a:        // (green steel)
5182       element = EL_STEEL_CHAR_P;
5183       break;
5184
5185     case 0x165b:        // (green steel)
5186       element = EL_STEEL_CHAR_Q;
5187       break;
5188
5189     case 0x165c:        // (green steel)
5190       element = EL_STEEL_CHAR_R;
5191       break;
5192
5193     case 0x165d:        // (green steel)
5194       element = EL_STEEL_CHAR_S;
5195       break;
5196
5197     case 0x165e:        // (green steel)
5198       element = EL_STEEL_CHAR_T;
5199       break;
5200
5201     case 0x165f:        // (green steel)
5202       element = EL_STEEL_CHAR_U;
5203       break;
5204
5205     case 0x1660:        // (green steel)
5206       element = EL_STEEL_CHAR_V;
5207       break;
5208
5209     case 0x1661:        // (green steel)
5210       element = EL_STEEL_CHAR_W;
5211       break;
5212
5213     case 0x1662:        // (green steel)
5214       element = EL_STEEL_CHAR_X;
5215       break;
5216
5217     case 0x1663:        // (green steel)
5218       element = EL_STEEL_CHAR_Y;
5219       break;
5220
5221     case 0x1664:        // (green steel)
5222       element = EL_STEEL_CHAR_Z;
5223       break;
5224
5225     case 0x1665:        // (green steel)
5226       element = EL_STEEL_CHAR_AUMLAUT;
5227       break;
5228
5229     case 0x1666:        // (green steel)
5230       element = EL_STEEL_CHAR_OUMLAUT;
5231       break;
5232
5233     case 0x1667:        // (green steel)
5234       element = EL_STEEL_CHAR_UUMLAUT;
5235       break;
5236
5237     case 0x1668:        // (green steel)
5238       element = EL_STEEL_CHAR_0;
5239       break;
5240
5241     case 0x1669:        // (green steel)
5242       element = EL_STEEL_CHAR_1;
5243       break;
5244
5245     case 0x166a:        // (green steel)
5246       element = EL_STEEL_CHAR_2;
5247       break;
5248
5249     case 0x166b:        // (green steel)
5250       element = EL_STEEL_CHAR_3;
5251       break;
5252
5253     case 0x166c:        // (green steel)
5254       element = EL_STEEL_CHAR_4;
5255       break;
5256
5257     case 0x166d:        // (green steel)
5258       element = EL_STEEL_CHAR_5;
5259       break;
5260
5261     case 0x166e:        // (green steel)
5262       element = EL_STEEL_CHAR_6;
5263       break;
5264
5265     case 0x166f:        // (green steel)
5266       element = EL_STEEL_CHAR_7;
5267       break;
5268
5269     case 0x1670:        // (green steel)
5270       element = EL_STEEL_CHAR_8;
5271       break;
5272
5273     case 0x1671:        // (green steel)
5274       element = EL_STEEL_CHAR_9;
5275       break;
5276
5277     case 0x1672:        // (green steel)
5278       element = EL_STEEL_CHAR_PERIOD;
5279       break;
5280
5281     case 0x1673:        // (green steel)
5282       element = EL_STEEL_CHAR_EXCLAM;
5283       break;
5284
5285     case 0x1674:        // (green steel)
5286       element = EL_STEEL_CHAR_COLON;
5287       break;
5288
5289     case 0x1675:        // (green steel)
5290       element = EL_STEEL_CHAR_LESS;
5291       break;
5292
5293     case 0x1676:        // (green steel)
5294       element = EL_STEEL_CHAR_GREATER;
5295       break;
5296
5297     case 0x1677:        // (green steel)
5298       element = EL_STEEL_CHAR_QUESTION;
5299       break;
5300
5301     case 0x1678:        // (green steel)
5302       element = EL_STEEL_CHAR_COPYRIGHT;
5303       break;
5304
5305     case 0x1679:        // (green steel)
5306       element = EL_STEEL_CHAR_UP;
5307       break;
5308
5309     case 0x167a:        // (green steel)
5310       element = EL_STEEL_CHAR_DOWN;
5311       break;
5312
5313     case 0x167b:        // (green steel)
5314       element = EL_STEEL_CHAR_BUTTON;
5315       break;
5316
5317     case 0x167c:        // (green steel)
5318       element = EL_STEEL_CHAR_PLUS;
5319       break;
5320
5321     case 0x167d:        // (green steel)
5322       element = EL_STEEL_CHAR_MINUS;
5323       break;
5324
5325     case 0x167e:        // (green steel)
5326       element = EL_STEEL_CHAR_APOSTROPHE;
5327       break;
5328
5329     case 0x167f:        // (green steel)
5330       element = EL_STEEL_CHAR_PARENLEFT;
5331       break;
5332
5333     case 0x1680:        // (green steel)
5334       element = EL_STEEL_CHAR_PARENRIGHT;
5335       break;
5336
5337     case 0x1681:        // gate (red)
5338       element = EL_EM_GATE_1;
5339       break;
5340
5341     case 0x1682:        // secret gate (red)
5342       element = EL_EM_GATE_1_GRAY;
5343       break;
5344
5345     case 0x1683:        // gate (yellow)
5346       element = EL_EM_GATE_2;
5347       break;
5348
5349     case 0x1684:        // secret gate (yellow)
5350       element = EL_EM_GATE_2_GRAY;
5351       break;
5352
5353     case 0x1685:        // gate (blue)
5354       element = EL_EM_GATE_4;
5355       break;
5356
5357     case 0x1686:        // secret gate (blue)
5358       element = EL_EM_GATE_4_GRAY;
5359       break;
5360
5361     case 0x1687:        // gate (green)
5362       element = EL_EM_GATE_3;
5363       break;
5364
5365     case 0x1688:        // secret gate (green)
5366       element = EL_EM_GATE_3_GRAY;
5367       break;
5368
5369     case 0x1689:        // gate (white)
5370       element = EL_DC_GATE_WHITE;
5371       break;
5372
5373     case 0x168a:        // secret gate (white)
5374       element = EL_DC_GATE_WHITE_GRAY;
5375       break;
5376
5377     case 0x168b:        // secret gate (no key)
5378       element = EL_DC_GATE_FAKE_GRAY;
5379       break;
5380
5381     case 0x168c:
5382       element = EL_ROBOT_WHEEL;
5383       break;
5384
5385     case 0x168d:
5386       element = EL_DC_TIMEGATE_SWITCH;
5387       break;
5388
5389     case 0x168e:
5390       element = EL_ACID_POOL_BOTTOM;
5391       break;
5392
5393     case 0x168f:
5394       element = EL_ACID_POOL_TOPLEFT;
5395       break;
5396
5397     case 0x1690:
5398       element = EL_ACID_POOL_TOPRIGHT;
5399       break;
5400
5401     case 0x1691:
5402       element = EL_ACID_POOL_BOTTOMLEFT;
5403       break;
5404
5405     case 0x1692:
5406       element = EL_ACID_POOL_BOTTOMRIGHT;
5407       break;
5408
5409     case 0x1693:
5410       element = EL_STEELWALL;
5411       break;
5412
5413     case 0x1694:
5414       element = EL_STEELWALL_SLIPPERY;
5415       break;
5416
5417     case 0x1695:        // steel wall (not round)
5418       element = EL_STEELWALL;
5419       break;
5420
5421     case 0x1696:        // steel wall (left)
5422       element = EL_DC_STEELWALL_1_LEFT;
5423       break;
5424
5425     case 0x1697:        // steel wall (bottom)
5426       element = EL_DC_STEELWALL_1_BOTTOM;
5427       break;
5428
5429     case 0x1698:        // steel wall (right)
5430       element = EL_DC_STEELWALL_1_RIGHT;
5431       break;
5432
5433     case 0x1699:        // steel wall (top)
5434       element = EL_DC_STEELWALL_1_TOP;
5435       break;
5436
5437     case 0x169a:        // steel wall (left/bottom)
5438       element = EL_DC_STEELWALL_1_BOTTOMLEFT;
5439       break;
5440
5441     case 0x169b:        // steel wall (right/bottom)
5442       element = EL_DC_STEELWALL_1_BOTTOMRIGHT;
5443       break;
5444
5445     case 0x169c:        // steel wall (right/top)
5446       element = EL_DC_STEELWALL_1_TOPRIGHT;
5447       break;
5448
5449     case 0x169d:        // steel wall (left/top)
5450       element = EL_DC_STEELWALL_1_TOPLEFT;
5451       break;
5452
5453     case 0x169e:        // steel wall (right/bottom small)
5454       element = EL_DC_STEELWALL_1_BOTTOMRIGHT_2;
5455       break;
5456
5457     case 0x169f:        // steel wall (left/bottom small)
5458       element = EL_DC_STEELWALL_1_BOTTOMLEFT_2;
5459       break;
5460
5461     case 0x16a0:        // steel wall (right/top small)
5462       element = EL_DC_STEELWALL_1_TOPRIGHT_2;
5463       break;
5464
5465     case 0x16a1:        // steel wall (left/top small)
5466       element = EL_DC_STEELWALL_1_TOPLEFT_2;
5467       break;
5468
5469     case 0x16a2:        // steel wall (left/right)
5470       element = EL_DC_STEELWALL_1_VERTICAL;
5471       break;
5472
5473     case 0x16a3:        // steel wall (top/bottom)
5474       element = EL_DC_STEELWALL_1_HORIZONTAL;
5475       break;
5476
5477     case 0x16a4:        // steel wall 2 (left end)
5478       element = EL_DC_STEELWALL_2_LEFT;
5479       break;
5480
5481     case 0x16a5:        // steel wall 2 (right end)
5482       element = EL_DC_STEELWALL_2_RIGHT;
5483       break;
5484
5485     case 0x16a6:        // steel wall 2 (top end)
5486       element = EL_DC_STEELWALL_2_TOP;
5487       break;
5488
5489     case 0x16a7:        // steel wall 2 (bottom end)
5490       element = EL_DC_STEELWALL_2_BOTTOM;
5491       break;
5492
5493     case 0x16a8:        // steel wall 2 (left/right)
5494       element = EL_DC_STEELWALL_2_HORIZONTAL;
5495       break;
5496
5497     case 0x16a9:        // steel wall 2 (up/down)
5498       element = EL_DC_STEELWALL_2_VERTICAL;
5499       break;
5500
5501     case 0x16aa:        // steel wall 2 (mid)
5502       element = EL_DC_STEELWALL_2_MIDDLE;
5503       break;
5504
5505     case 0x16ab:
5506       element = EL_SIGN_EXCLAMATION;
5507       break;
5508
5509     case 0x16ac:
5510       element = EL_SIGN_RADIOACTIVITY;
5511       break;
5512
5513     case 0x16ad:
5514       element = EL_SIGN_STOP;
5515       break;
5516
5517     case 0x16ae:
5518       element = EL_SIGN_WHEELCHAIR;
5519       break;
5520
5521     case 0x16af:
5522       element = EL_SIGN_PARKING;
5523       break;
5524
5525     case 0x16b0:
5526       element = EL_SIGN_NO_ENTRY;
5527       break;
5528
5529     case 0x16b1:
5530       element = EL_SIGN_HEART;
5531       break;
5532
5533     case 0x16b2:
5534       element = EL_SIGN_GIVE_WAY;
5535       break;
5536
5537     case 0x16b3:
5538       element = EL_SIGN_ENTRY_FORBIDDEN;
5539       break;
5540
5541     case 0x16b4:
5542       element = EL_SIGN_EMERGENCY_EXIT;
5543       break;
5544
5545     case 0x16b5:
5546       element = EL_SIGN_YIN_YANG;
5547       break;
5548
5549     case 0x16b6:
5550       element = EL_WALL_EMERALD;
5551       break;
5552
5553     case 0x16b7:
5554       element = EL_WALL_DIAMOND;
5555       break;
5556
5557     case 0x16b8:
5558       element = EL_WALL_PEARL;
5559       break;
5560
5561     case 0x16b9:
5562       element = EL_WALL_CRYSTAL;
5563       break;
5564
5565     case 0x16ba:
5566       element = EL_INVISIBLE_WALL;
5567       break;
5568
5569     case 0x16bb:
5570       element = EL_INVISIBLE_STEELWALL;
5571       break;
5572
5573       // 0x16bc - 0x16cb:
5574       // EL_INVISIBLE_SAND
5575
5576     case 0x16cc:
5577       element = EL_LIGHT_SWITCH;
5578       break;
5579
5580     case 0x16cd:
5581       element = EL_ENVELOPE_1;
5582       break;
5583
5584     default:
5585       if (element >= 0x0117 && element <= 0x036e)       // (?)
5586         element = EL_DIAMOND;
5587       else if (element >= 0x042d && element <= 0x0684)  // (?)
5588         element = EL_EMERALD;
5589       else if (element >= 0x157c && element <= 0x158b)
5590         element = EL_SAND;
5591       else if (element >= 0x1590 && element <= 0x159f)
5592         element = EL_DC_LANDMINE;
5593       else if (element >= 0x16bc && element <= 0x16cb)
5594         element = EL_INVISIBLE_SAND;
5595       else
5596       {
5597         Warn("unknown Diamond Caves element 0x%04x", element);
5598
5599         element = EL_UNKNOWN;
5600       }
5601       break;
5602   }
5603
5604   return getMappedElement(element);
5605 }
5606
5607 static void LoadLevelFromFileStream_DC(File *file, struct LevelInfo *level,
5608                                        int nr)
5609 {
5610   byte header[DC_LEVEL_HEADER_SIZE];
5611   int envelope_size;
5612   int envelope_header_pos = 62;
5613   int envelope_content_pos = 94;
5614   int level_name_pos = 251;
5615   int level_author_pos = 292;
5616   int envelope_header_len;
5617   int envelope_content_len;
5618   int level_name_len;
5619   int level_author_len;
5620   int fieldx, fieldy;
5621   int num_yamyam_contents;
5622   int i, x, y;
5623
5624   getDecodedWord_DC(0, TRUE);           // initialize DC2 decoding engine
5625
5626   for (i = 0; i < DC_LEVEL_HEADER_SIZE / 2; i++)
5627   {
5628     unsigned short header_word = getDecodedWord_DC(getFile16BitBE(file), FALSE);
5629
5630     header[i * 2 + 0] = header_word >> 8;
5631     header[i * 2 + 1] = header_word & 0xff;
5632   }
5633
5634   // read some values from level header to check level decoding integrity
5635   fieldx = header[6] | (header[7] << 8);
5636   fieldy = header[8] | (header[9] << 8);
5637   num_yamyam_contents = header[60] | (header[61] << 8);
5638
5639   // do some simple sanity checks to ensure that level was correctly decoded
5640   if (fieldx < 1 || fieldx > 256 ||
5641       fieldy < 1 || fieldy > 256 ||
5642       num_yamyam_contents < 1 || num_yamyam_contents > 8)
5643   {
5644     level->no_valid_file = TRUE;
5645
5646     Warn("cannot decode level from stream -- using empty level");
5647
5648     return;
5649   }
5650
5651   // maximum envelope header size is 31 bytes
5652   envelope_header_len   = header[envelope_header_pos];
5653   // maximum envelope content size is 110 (156?) bytes
5654   envelope_content_len  = header[envelope_content_pos];
5655
5656   // maximum level title size is 40 bytes
5657   level_name_len        = MIN(header[level_name_pos],   MAX_LEVEL_NAME_LEN);
5658   // maximum level author size is 30 (51?) bytes
5659   level_author_len      = MIN(header[level_author_pos], MAX_LEVEL_AUTHOR_LEN);
5660
5661   envelope_size = 0;
5662
5663   for (i = 0; i < envelope_header_len; i++)
5664     if (envelope_size < MAX_ENVELOPE_TEXT_LEN)
5665       level->envelope[0].text[envelope_size++] =
5666         header[envelope_header_pos + 1 + i];
5667
5668   if (envelope_header_len > 0 && envelope_content_len > 0)
5669   {
5670     if (envelope_size < MAX_ENVELOPE_TEXT_LEN)
5671       level->envelope[0].text[envelope_size++] = '\n';
5672     if (envelope_size < MAX_ENVELOPE_TEXT_LEN)
5673       level->envelope[0].text[envelope_size++] = '\n';
5674   }
5675
5676   for (i = 0; i < envelope_content_len; i++)
5677     if (envelope_size < MAX_ENVELOPE_TEXT_LEN)
5678       level->envelope[0].text[envelope_size++] =
5679         header[envelope_content_pos + 1 + i];
5680
5681   level->envelope[0].text[envelope_size] = '\0';
5682
5683   level->envelope[0].xsize = MAX_ENVELOPE_XSIZE;
5684   level->envelope[0].ysize = 10;
5685   level->envelope[0].autowrap = TRUE;
5686   level->envelope[0].centered = TRUE;
5687
5688   for (i = 0; i < level_name_len; i++)
5689     level->name[i] = header[level_name_pos + 1 + i];
5690   level->name[level_name_len] = '\0';
5691
5692   for (i = 0; i < level_author_len; i++)
5693     level->author[i] = header[level_author_pos + 1 + i];
5694   level->author[level_author_len] = '\0';
5695
5696   num_yamyam_contents = header[60] | (header[61] << 8);
5697   level->num_yamyam_contents =
5698     MIN(MAX(MIN_ELEMENT_CONTENTS, num_yamyam_contents), MAX_ELEMENT_CONTENTS);
5699
5700   for (i = 0; i < num_yamyam_contents; i++)
5701   {
5702     for (y = 0; y < 3; y++) for (x = 0; x < 3; x++)
5703     {
5704       unsigned short word = getDecodedWord_DC(getFile16BitBE(file), FALSE);
5705       int element_dc = ((word & 0xff) << 8) | ((word >> 8) & 0xff);
5706
5707       if (i < MAX_ELEMENT_CONTENTS)
5708         level->yamyam_content[i].e[x][y] = getMappedElement_DC(element_dc);
5709     }
5710   }
5711
5712   fieldx = header[6] | (header[7] << 8);
5713   fieldy = header[8] | (header[9] << 8);
5714   level->fieldx = MIN(MAX(MIN_LEV_FIELDX, fieldx), MAX_LEV_FIELDX);
5715   level->fieldy = MIN(MAX(MIN_LEV_FIELDY, fieldy), MAX_LEV_FIELDY);
5716
5717   for (y = 0; y < fieldy; y++) for (x = 0; x < fieldx; x++)
5718   {
5719     unsigned short word = getDecodedWord_DC(getFile16BitBE(file), FALSE);
5720     int element_dc = ((word & 0xff) << 8) | ((word >> 8) & 0xff);
5721
5722     if (x < MAX_LEV_FIELDX && y < MAX_LEV_FIELDY)
5723       level->field[x][y] = getMappedElement_DC(element_dc);
5724   }
5725
5726   x = MIN(MAX(0, (header[10] | (header[11] << 8)) - 1), MAX_LEV_FIELDX - 1);
5727   y = MIN(MAX(0, (header[12] | (header[13] << 8)) - 1), MAX_LEV_FIELDY - 1);
5728   level->field[x][y] = EL_PLAYER_1;
5729
5730   x = MIN(MAX(0, (header[14] | (header[15] << 8)) - 1), MAX_LEV_FIELDX - 1);
5731   y = MIN(MAX(0, (header[16] | (header[17] << 8)) - 1), MAX_LEV_FIELDY - 1);
5732   level->field[x][y] = EL_PLAYER_2;
5733
5734   level->gems_needed            = header[18] | (header[19] << 8);
5735
5736   level->score[SC_EMERALD]      = header[20] | (header[21] << 8);
5737   level->score[SC_DIAMOND]      = header[22] | (header[23] << 8);
5738   level->score[SC_PEARL]        = header[24] | (header[25] << 8);
5739   level->score[SC_CRYSTAL]      = header[26] | (header[27] << 8);
5740   level->score[SC_NUT]          = header[28] | (header[29] << 8);
5741   level->score[SC_ROBOT]        = header[30] | (header[31] << 8);
5742   level->score[SC_SPACESHIP]    = header[32] | (header[33] << 8);
5743   level->score[SC_BUG]          = header[34] | (header[35] << 8);
5744   level->score[SC_YAMYAM]       = header[36] | (header[37] << 8);
5745   level->score[SC_DYNAMITE]     = header[38] | (header[39] << 8);
5746   level->score[SC_KEY]          = header[40] | (header[41] << 8);
5747   level->score[SC_TIME_BONUS]   = header[42] | (header[43] << 8);
5748
5749   level->time                   = header[44] | (header[45] << 8);
5750
5751   level->amoeba_speed           = header[46] | (header[47] << 8);
5752   level->time_light             = header[48] | (header[49] << 8);
5753   level->time_timegate          = header[50] | (header[51] << 8);
5754   level->time_wheel             = header[52] | (header[53] << 8);
5755   level->time_magic_wall        = header[54] | (header[55] << 8);
5756   level->extra_time             = header[56] | (header[57] << 8);
5757   level->shield_normal_time     = header[58] | (header[59] << 8);
5758
5759   // shield and extra time elements do not have a score
5760   level->score[SC_SHIELD]       = 0;
5761   level->extra_time_score       = 0;
5762
5763   // set time for normal and deadly shields to the same value
5764   level->shield_deadly_time     = level->shield_normal_time;
5765
5766   // Diamond Caves has the same (strange) behaviour as Emerald Mine that gems
5767   // can slip down from flat walls, like normal walls and steel walls
5768   level->em_slippery_gems = TRUE;
5769
5770   // time score is counted for each 10 seconds left in Diamond Caves levels
5771   level->time_score_base = 10;
5772 }
5773
5774 static void LoadLevelFromFileInfo_DC(struct LevelInfo *level,
5775                                      struct LevelFileInfo *level_file_info,
5776                                      boolean level_info_only)
5777 {
5778   char *filename = level_file_info->filename;
5779   File *file;
5780   int num_magic_bytes = 8;
5781   char magic_bytes[num_magic_bytes + 1];
5782   int num_levels_to_skip = level_file_info->nr - leveldir_current->first_level;
5783
5784   if (!(file = openFile(filename, MODE_READ)))
5785   {
5786     level->no_valid_file = TRUE;
5787
5788     if (!level_info_only)
5789       Warn("cannot read level '%s' -- using empty level", filename);
5790
5791     return;
5792   }
5793
5794   // fseek(file, 0x0000, SEEK_SET);
5795
5796   if (level_file_info->packed)
5797   {
5798     // read "magic bytes" from start of file
5799     if (getStringFromFile(file, magic_bytes, num_magic_bytes + 1) == NULL)
5800       magic_bytes[0] = '\0';
5801
5802     // check "magic bytes" for correct file format
5803     if (!strPrefix(magic_bytes, "DC2"))
5804     {
5805       level->no_valid_file = TRUE;
5806
5807       Warn("unknown DC level file '%s' -- using empty level", filename);
5808
5809       return;
5810     }
5811
5812     if (strPrefix(magic_bytes, "DC2Win95") ||
5813         strPrefix(magic_bytes, "DC2Win98"))
5814     {
5815       int position_first_level = 0x00fa;
5816       int extra_bytes = 4;
5817       int skip_bytes;
5818
5819       // advance file stream to first level inside the level package
5820       skip_bytes = position_first_level - num_magic_bytes - extra_bytes;
5821
5822       // each block of level data is followed by block of non-level data
5823       num_levels_to_skip *= 2;
5824
5825       // at least skip header bytes, therefore use ">= 0" instead of "> 0"
5826       while (num_levels_to_skip >= 0)
5827       {
5828         // advance file stream to next level inside the level package
5829         if (seekFile(file, skip_bytes, SEEK_CUR) != 0)
5830         {
5831           level->no_valid_file = TRUE;
5832
5833           Warn("cannot fseek in file '%s' -- using empty level", filename);
5834
5835           return;
5836         }
5837
5838         // skip apparently unused extra bytes following each level
5839         ReadUnusedBytesFromFile(file, extra_bytes);
5840
5841         // read size of next level in level package
5842         skip_bytes = getFile32BitLE(file);
5843
5844         num_levels_to_skip--;
5845       }
5846     }
5847     else
5848     {
5849       level->no_valid_file = TRUE;
5850
5851       Warn("unknown DC2 level file '%s' -- using empty level", filename);
5852
5853       return;
5854     }
5855   }
5856
5857   LoadLevelFromFileStream_DC(file, level, level_file_info->nr);
5858
5859   closeFile(file);
5860 }
5861
5862
5863 // ----------------------------------------------------------------------------
5864 // functions for loading SB level
5865 // ----------------------------------------------------------------------------
5866
5867 int getMappedElement_SB(int element_ascii, boolean use_ces)
5868 {
5869   static struct
5870   {
5871     int ascii;
5872     int sb;
5873     int ce;
5874   }
5875   sb_element_mapping[] =
5876   {
5877     { ' ', EL_EMPTY,                EL_CUSTOM_1 },  // floor (space)
5878     { '#', EL_STEELWALL,            EL_CUSTOM_2 },  // wall
5879     { '@', EL_PLAYER_1,             EL_CUSTOM_3 },  // player
5880     { '$', EL_SOKOBAN_OBJECT,       EL_CUSTOM_4 },  // box
5881     { '.', EL_SOKOBAN_FIELD_EMPTY,  EL_CUSTOM_5 },  // goal square
5882     { '*', EL_SOKOBAN_FIELD_FULL,   EL_CUSTOM_6 },  // box on goal square
5883     { '+', EL_SOKOBAN_FIELD_PLAYER, EL_CUSTOM_7 },  // player on goal square
5884     { '_', EL_INVISIBLE_STEELWALL,  EL_FROM_LEVEL_TEMPLATE },  // floor beyond border
5885
5886     { 0,   -1,                      -1          },
5887   };
5888
5889   int i;
5890
5891   for (i = 0; sb_element_mapping[i].ascii != 0; i++)
5892     if (element_ascii == sb_element_mapping[i].ascii)
5893       return (use_ces ? sb_element_mapping[i].ce : sb_element_mapping[i].sb);
5894
5895   return EL_UNDEFINED;
5896 }
5897
5898 static void LoadLevelFromFileInfo_SB(struct LevelInfo *level,
5899                                      struct LevelFileInfo *level_file_info,
5900                                      boolean level_info_only)
5901 {
5902   char *filename = level_file_info->filename;
5903   char line[MAX_LINE_LEN], line_raw[MAX_LINE_LEN], previous_line[MAX_LINE_LEN];
5904   char last_comment[MAX_LINE_LEN];
5905   char level_name[MAX_LINE_LEN];
5906   char *line_ptr;
5907   File *file;
5908   int num_levels_to_skip = level_file_info->nr - leveldir_current->first_level;
5909   boolean read_continued_line = FALSE;
5910   boolean reading_playfield = FALSE;
5911   boolean got_valid_playfield_line = FALSE;
5912   boolean invalid_playfield_char = FALSE;
5913   boolean load_xsb_to_ces = check_special_flags("load_xsb_to_ces");
5914   int file_level_nr = 0;
5915   int line_nr = 0;
5916   int x = 0, y = 0;             // initialized to make compilers happy
5917
5918   last_comment[0] = '\0';
5919   level_name[0] = '\0';
5920
5921   if (!(file = openFile(filename, MODE_READ)))
5922   {
5923     level->no_valid_file = TRUE;
5924
5925     if (!level_info_only)
5926       Warn("cannot read level '%s' -- using empty level", filename);
5927
5928     return;
5929   }
5930
5931   while (!checkEndOfFile(file))
5932   {
5933     // level successfully read, but next level may follow here
5934     if (!got_valid_playfield_line && reading_playfield)
5935     {
5936       // read playfield from single level file -- skip remaining file
5937       if (!level_file_info->packed)
5938         break;
5939
5940       if (file_level_nr >= num_levels_to_skip)
5941         break;
5942
5943       file_level_nr++;
5944
5945       last_comment[0] = '\0';
5946       level_name[0] = '\0';
5947
5948       reading_playfield = FALSE;
5949     }
5950
5951     got_valid_playfield_line = FALSE;
5952
5953     // read next line of input file
5954     if (!getStringFromFile(file, line, MAX_LINE_LEN))
5955       break;
5956
5957     // check if line was completely read and is terminated by line break
5958     if (strlen(line) > 0 && line[strlen(line) - 1] == '\n')
5959       line_nr++;
5960
5961     // cut trailing line break (this can be newline and/or carriage return)
5962     for (line_ptr = &line[strlen(line)]; line_ptr >= line; line_ptr--)
5963       if ((*line_ptr == '\n' || *line_ptr == '\r') && *(line_ptr + 1) == '\0')
5964         *line_ptr = '\0';
5965
5966     // copy raw input line for later use (mainly debugging output)
5967     strcpy(line_raw, line);
5968
5969     if (read_continued_line)
5970     {
5971       // append new line to existing line, if there is enough space
5972       if (strlen(previous_line) + strlen(line_ptr) < MAX_LINE_LEN)
5973         strcat(previous_line, line_ptr);
5974
5975       strcpy(line, previous_line);      // copy storage buffer to line
5976
5977       read_continued_line = FALSE;
5978     }
5979
5980     // if the last character is '\', continue at next line
5981     if (strlen(line) > 0 && line[strlen(line) - 1] == '\\')
5982     {
5983       line[strlen(line) - 1] = '\0';    // cut off trailing backslash
5984       strcpy(previous_line, line);      // copy line to storage buffer
5985
5986       read_continued_line = TRUE;
5987
5988       continue;
5989     }
5990
5991     // skip empty lines
5992     if (line[0] == '\0')
5993       continue;
5994
5995     // extract comment text from comment line
5996     if (line[0] == ';')
5997     {
5998       for (line_ptr = line; *line_ptr; line_ptr++)
5999         if (*line_ptr != ' ' && *line_ptr != '\t' && *line_ptr != ';')
6000           break;
6001
6002       strcpy(last_comment, line_ptr);
6003
6004       continue;
6005     }
6006
6007     // extract level title text from line containing level title
6008     if (line[0] == '\'')
6009     {
6010       strcpy(level_name, &line[1]);
6011
6012       if (strlen(level_name) > 0 && level_name[strlen(level_name) - 1] == '\'')
6013         level_name[strlen(level_name) - 1] = '\0';
6014
6015       continue;
6016     }
6017
6018     // skip lines containing only spaces (or empty lines)
6019     for (line_ptr = line; *line_ptr; line_ptr++)
6020       if (*line_ptr != ' ')
6021         break;
6022     if (*line_ptr == '\0')
6023       continue;
6024
6025     // at this point, we have found a line containing part of a playfield
6026
6027     got_valid_playfield_line = TRUE;
6028
6029     if (!reading_playfield)
6030     {
6031       reading_playfield = TRUE;
6032       invalid_playfield_char = FALSE;
6033
6034       for (x = 0; x < MAX_LEV_FIELDX; x++)
6035         for (y = 0; y < MAX_LEV_FIELDY; y++)
6036           level->field[x][y] = getMappedElement_SB(' ', load_xsb_to_ces);
6037
6038       level->fieldx = 0;
6039       level->fieldy = 0;
6040
6041       // start with topmost tile row
6042       y = 0;
6043     }
6044
6045     // skip playfield line if larger row than allowed
6046     if (y >= MAX_LEV_FIELDY)
6047       continue;
6048
6049     // start with leftmost tile column
6050     x = 0;
6051
6052     // read playfield elements from line
6053     for (line_ptr = line; *line_ptr; line_ptr++)
6054     {
6055       int mapped_sb_element = getMappedElement_SB(*line_ptr, load_xsb_to_ces);
6056
6057       // stop parsing playfield line if larger column than allowed
6058       if (x >= MAX_LEV_FIELDX)
6059         break;
6060
6061       if (mapped_sb_element == EL_UNDEFINED)
6062       {
6063         invalid_playfield_char = TRUE;
6064
6065         break;
6066       }
6067
6068       level->field[x][y] = mapped_sb_element;
6069
6070       // continue with next tile column
6071       x++;
6072
6073       level->fieldx = MAX(x, level->fieldx);
6074     }
6075
6076     if (invalid_playfield_char)
6077     {
6078       // if first playfield line, treat invalid lines as comment lines
6079       if (y == 0)
6080         reading_playfield = FALSE;
6081
6082       continue;
6083     }
6084
6085     // continue with next tile row
6086     y++;
6087   }
6088
6089   closeFile(file);
6090
6091   level->fieldy = y;
6092
6093   level->fieldx = MIN(MAX(MIN_LEV_FIELDX, level->fieldx), MAX_LEV_FIELDX);
6094   level->fieldy = MIN(MAX(MIN_LEV_FIELDY, level->fieldy), MAX_LEV_FIELDY);
6095
6096   if (!reading_playfield)
6097   {
6098     level->no_valid_file = TRUE;
6099
6100     Warn("cannot read level '%s' -- using empty level", filename);
6101
6102     return;
6103   }
6104
6105   if (*level_name != '\0')
6106   {
6107     strncpy(level->name, level_name, MAX_LEVEL_NAME_LEN);
6108     level->name[MAX_LEVEL_NAME_LEN] = '\0';
6109   }
6110   else if (*last_comment != '\0')
6111   {
6112     strncpy(level->name, last_comment, MAX_LEVEL_NAME_LEN);
6113     level->name[MAX_LEVEL_NAME_LEN] = '\0';
6114   }
6115   else
6116   {
6117     sprintf(level->name, "--> Level %d <--", level_file_info->nr);
6118   }
6119
6120   // set all empty fields beyond the border walls to invisible steel wall
6121   for (y = 0; y < level->fieldy; y++) for (x = 0; x < level->fieldx; x++)
6122   {
6123     if ((x == 0 || x == level->fieldx - 1 ||
6124          y == 0 || y == level->fieldy - 1) &&
6125         level->field[x][y] == getMappedElement_SB(' ', load_xsb_to_ces))
6126       FloodFillLevel(x, y, getMappedElement_SB('_', load_xsb_to_ces),
6127                      level->field, level->fieldx, level->fieldy);
6128   }
6129
6130   // set special level settings for Sokoban levels
6131
6132   level->time = 0;
6133   level->use_step_counter = TRUE;
6134
6135   if (load_xsb_to_ces)
6136   {
6137     // special global settings can now be set in level template
6138
6139     level->use_custom_template = TRUE;
6140   }
6141 }
6142
6143
6144 // -------------------------------------------------------------------------
6145 // functions for handling native levels
6146 // -------------------------------------------------------------------------
6147
6148 static void LoadLevelFromFileInfo_EM(struct LevelInfo *level,
6149                                      struct LevelFileInfo *level_file_info,
6150                                      boolean level_info_only)
6151 {
6152   if (!LoadNativeLevel_EM(level_file_info->filename, level_info_only))
6153     level->no_valid_file = TRUE;
6154 }
6155
6156 static void LoadLevelFromFileInfo_SP(struct LevelInfo *level,
6157                                      struct LevelFileInfo *level_file_info,
6158                                      boolean level_info_only)
6159 {
6160   int pos = 0;
6161
6162   // determine position of requested level inside level package
6163   if (level_file_info->packed)
6164     pos = level_file_info->nr - leveldir_current->first_level;
6165
6166   if (!LoadNativeLevel_SP(level_file_info->filename, pos, level_info_only))
6167     level->no_valid_file = TRUE;
6168 }
6169
6170 static void LoadLevelFromFileInfo_MM(struct LevelInfo *level,
6171                                      struct LevelFileInfo *level_file_info,
6172                                      boolean level_info_only)
6173 {
6174   if (!LoadNativeLevel_MM(level_file_info->filename, level_info_only))
6175     level->no_valid_file = TRUE;
6176 }
6177
6178 void CopyNativeLevel_RND_to_Native(struct LevelInfo *level)
6179 {
6180   if (level->game_engine_type == GAME_ENGINE_TYPE_EM)
6181     CopyNativeLevel_RND_to_EM(level);
6182   else if (level->game_engine_type == GAME_ENGINE_TYPE_SP)
6183     CopyNativeLevel_RND_to_SP(level);
6184   else if (level->game_engine_type == GAME_ENGINE_TYPE_MM)
6185     CopyNativeLevel_RND_to_MM(level);
6186 }
6187
6188 void CopyNativeLevel_Native_to_RND(struct LevelInfo *level)
6189 {
6190   if (level->game_engine_type == GAME_ENGINE_TYPE_EM)
6191     CopyNativeLevel_EM_to_RND(level);
6192   else if (level->game_engine_type == GAME_ENGINE_TYPE_SP)
6193     CopyNativeLevel_SP_to_RND(level);
6194   else if (level->game_engine_type == GAME_ENGINE_TYPE_MM)
6195     CopyNativeLevel_MM_to_RND(level);
6196 }
6197
6198 void SaveNativeLevel(struct LevelInfo *level)
6199 {
6200   if (level->game_engine_type == GAME_ENGINE_TYPE_SP)
6201   {
6202     char *basename = getSingleLevelBasenameExt(level->file_info.nr, "sp");
6203     char *filename = getLevelFilenameFromBasename(basename);
6204
6205     CopyNativeLevel_RND_to_SP(level);
6206     CopyNativeTape_RND_to_SP(level);
6207
6208     SaveNativeLevel_SP(filename);
6209   }
6210 }
6211
6212
6213 // ----------------------------------------------------------------------------
6214 // functions for loading generic level
6215 // ----------------------------------------------------------------------------
6216
6217 static void LoadLevelFromFileInfo(struct LevelInfo *level,
6218                                   struct LevelFileInfo *level_file_info,
6219                                   boolean level_info_only)
6220 {
6221   // always start with reliable default values
6222   setLevelInfoToDefaults(level, level_info_only, TRUE);
6223
6224   switch (level_file_info->type)
6225   {
6226     case LEVEL_FILE_TYPE_RND:
6227       LoadLevelFromFileInfo_RND(level, level_file_info, level_info_only);
6228       break;
6229
6230     case LEVEL_FILE_TYPE_EM:
6231       LoadLevelFromFileInfo_EM(level, level_file_info, level_info_only);
6232       level->game_engine_type = GAME_ENGINE_TYPE_EM;
6233       break;
6234
6235     case LEVEL_FILE_TYPE_SP:
6236       LoadLevelFromFileInfo_SP(level, level_file_info, level_info_only);
6237       level->game_engine_type = GAME_ENGINE_TYPE_SP;
6238       break;
6239
6240     case LEVEL_FILE_TYPE_MM:
6241       LoadLevelFromFileInfo_MM(level, level_file_info, level_info_only);
6242       level->game_engine_type = GAME_ENGINE_TYPE_MM;
6243       break;
6244
6245     case LEVEL_FILE_TYPE_DC:
6246       LoadLevelFromFileInfo_DC(level, level_file_info, level_info_only);
6247       break;
6248
6249     case LEVEL_FILE_TYPE_SB:
6250       LoadLevelFromFileInfo_SB(level, level_file_info, level_info_only);
6251       break;
6252
6253     default:
6254       LoadLevelFromFileInfo_RND(level, level_file_info, level_info_only);
6255       break;
6256   }
6257
6258   // if level file is invalid, restore level structure to default values
6259   if (level->no_valid_file)
6260     setLevelInfoToDefaults(level, level_info_only, FALSE);
6261
6262   if (level->game_engine_type == GAME_ENGINE_TYPE_UNKNOWN)
6263     level->game_engine_type = GAME_ENGINE_TYPE_RND;
6264
6265   if (level_file_info->type != LEVEL_FILE_TYPE_RND)
6266     CopyNativeLevel_Native_to_RND(level);
6267 }
6268
6269 void LoadLevelFromFilename(struct LevelInfo *level, char *filename)
6270 {
6271   static struct LevelFileInfo level_file_info;
6272
6273   // always start with reliable default values
6274   setFileInfoToDefaults(&level_file_info);
6275
6276   level_file_info.nr = 0;                       // unknown level number
6277   level_file_info.type = LEVEL_FILE_TYPE_RND;   // no others supported yet
6278
6279   setString(&level_file_info.filename, filename);
6280
6281   LoadLevelFromFileInfo(level, &level_file_info, FALSE);
6282 }
6283
6284 static void LoadLevel_InitVersion(struct LevelInfo *level)
6285 {
6286   int i, j;
6287
6288   if (leveldir_current == NULL)         // only when dumping level
6289     return;
6290
6291   // all engine modifications also valid for levels which use latest engine
6292   if (level->game_version < VERSION_IDENT(3,2,0,5))
6293   {
6294     // time bonus score was given for 10 s instead of 1 s before 3.2.0-5
6295     level->time_score_base = 10;
6296   }
6297
6298   if (leveldir_current->latest_engine)
6299   {
6300     // ---------- use latest game engine --------------------------------------
6301
6302     /* For all levels which are forced to use the latest game engine version
6303        (normally all but user contributed, private and undefined levels), set
6304        the game engine version to the actual version; this allows for actual
6305        corrections in the game engine to take effect for existing, converted
6306        levels (from "classic" or other existing games) to make the emulation
6307        of the corresponding game more accurate, while (hopefully) not breaking
6308        existing levels created from other players. */
6309
6310     level->game_version = GAME_VERSION_ACTUAL;
6311
6312     /* Set special EM style gems behaviour: EM style gems slip down from
6313        normal, steel and growing wall. As this is a more fundamental change,
6314        it seems better to set the default behaviour to "off" (as it is more
6315        natural) and make it configurable in the level editor (as a property
6316        of gem style elements). Already existing converted levels (neither
6317        private nor contributed levels) are changed to the new behaviour. */
6318
6319     if (level->file_version < FILE_VERSION_2_0)
6320       level->em_slippery_gems = TRUE;
6321
6322     return;
6323   }
6324
6325   // ---------- use game engine the level was created with --------------------
6326
6327   /* For all levels which are not forced to use the latest game engine
6328      version (normally user contributed, private and undefined levels),
6329      use the version of the game engine the levels were created for.
6330
6331      Since 2.0.1, the game engine version is now directly stored
6332      in the level file (chunk "VERS"), so there is no need anymore
6333      to set the game version from the file version (except for old,
6334      pre-2.0 levels, where the game version is still taken from the
6335      file format version used to store the level -- see above). */
6336
6337   // player was faster than enemies in 1.0.0 and before
6338   if (level->file_version == FILE_VERSION_1_0)
6339     for (i = 0; i < MAX_PLAYERS; i++)
6340       level->initial_player_stepsize[i] = STEPSIZE_FAST;
6341
6342   // default behaviour for EM style gems was "slippery" only in 2.0.1
6343   if (level->game_version == VERSION_IDENT(2,0,1,0))
6344     level->em_slippery_gems = TRUE;
6345
6346   // springs could be pushed over pits before (pre-release version) 2.2.0
6347   if (level->game_version < VERSION_IDENT(2,2,0,0))
6348     level->use_spring_bug = TRUE;
6349
6350   if (level->game_version < VERSION_IDENT(3,2,0,5))
6351   {
6352     // time orb caused limited time in endless time levels before 3.2.0-5
6353     level->use_time_orb_bug = TRUE;
6354
6355     // default behaviour for snapping was "no snap delay" before 3.2.0-5
6356     level->block_snap_field = FALSE;
6357
6358     // extra time score was same value as time left score before 3.2.0-5
6359     level->extra_time_score = level->score[SC_TIME_BONUS];
6360   }
6361
6362   if (level->game_version < VERSION_IDENT(3,2,0,7))
6363   {
6364     // default behaviour for snapping was "not continuous" before 3.2.0-7
6365     level->continuous_snapping = FALSE;
6366   }
6367
6368   // only few elements were able to actively move into acid before 3.1.0
6369   // trigger settings did not exist before 3.1.0; set to default "any"
6370   if (level->game_version < VERSION_IDENT(3,1,0,0))
6371   {
6372     // correct "can move into acid" settings (all zero in old levels)
6373
6374     level->can_move_into_acid_bits = 0; // nothing can move into acid
6375     level->dont_collide_with_bits = 0; // nothing is deadly when colliding
6376
6377     setMoveIntoAcidProperty(level, EL_ROBOT,     TRUE);
6378     setMoveIntoAcidProperty(level, EL_SATELLITE, TRUE);
6379     setMoveIntoAcidProperty(level, EL_PENGUIN,   TRUE);
6380     setMoveIntoAcidProperty(level, EL_BALLOON,   TRUE);
6381
6382     for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
6383       SET_PROPERTY(EL_CUSTOM_START + i, EP_CAN_MOVE_INTO_ACID, TRUE);
6384
6385     // correct trigger settings (stored as zero == "none" in old levels)
6386
6387     for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
6388     {
6389       int element = EL_CUSTOM_START + i;
6390       struct ElementInfo *ei = &element_info[element];
6391
6392       for (j = 0; j < ei->num_change_pages; j++)
6393       {
6394         struct ElementChangeInfo *change = &ei->change_page[j];
6395
6396         change->trigger_player = CH_PLAYER_ANY;
6397         change->trigger_page = CH_PAGE_ANY;
6398       }
6399     }
6400   }
6401
6402   // try to detect and fix "Snake Bite" levels, which are broken with 3.2.0
6403   {
6404     int element = EL_CUSTOM_256;
6405     struct ElementInfo *ei = &element_info[element];
6406     struct ElementChangeInfo *change = &ei->change_page[0];
6407
6408     /* This is needed to fix a problem that was caused by a bugfix in function
6409        game.c/CreateFieldExt() introduced with 3.2.0 that corrects the behaviour
6410        when a custom element changes to EL_SOKOBAN_FIELD_PLAYER (before, it did
6411        not replace walkable elements, but instead just placed the player on it,
6412        without placing the Sokoban field under the player). Unfortunately, this
6413        breaks "Snake Bite" style levels when the snake is halfway through a door
6414        that just closes (the snake head is still alive and can be moved in this
6415        case). This can be fixed by replacing the EL_SOKOBAN_FIELD_PLAYER by the
6416        player (without Sokoban element) which then gets killed as designed). */
6417
6418     if ((strncmp(leveldir_current->identifier, "snake_bite", 10) == 0 ||
6419          strncmp(ei->description, "pause b4 death", 14) == 0) &&
6420         change->target_element == EL_SOKOBAN_FIELD_PLAYER)
6421       change->target_element = EL_PLAYER_1;
6422   }
6423
6424   // try to detect and fix "Zelda" style levels, which are broken with 3.2.5
6425   if (level->game_version < VERSION_IDENT(3,2,5,0))
6426   {
6427     /* This is needed to fix a problem that was caused by a bugfix in function
6428        game.c/CheckTriggeredElementChangeExt() introduced with 3.2.5 that
6429        corrects the behaviour when a custom element changes to another custom
6430        element with a higher element number that has change actions defined.
6431        Normally, only one change per frame is allowed for custom elements.
6432        Therefore, it is checked if a custom element already changed in the
6433        current frame; if it did, subsequent changes are suppressed.
6434        Unfortunately, this is only checked for element changes, but not for
6435        change actions, which are still executed. As the function above loops
6436        through all custom elements from lower to higher, an element change
6437        resulting in a lower CE number won't be checked again, while a target
6438        element with a higher number will also be checked, and potential change
6439        actions will get executed for this CE, too (which is wrong), while
6440        further changes are ignored (which is correct). As this bugfix breaks
6441        Zelda II (and introduces graphical bugs to Zelda I, and also breaks a
6442        few other levels like Alan Bond's "FMV"), allow the previous, incorrect
6443        behaviour for existing levels and tapes that make use of this bug */
6444
6445     level->use_action_after_change_bug = TRUE;
6446   }
6447
6448   // not centering level after relocating player was default only in 3.2.3
6449   if (level->game_version == VERSION_IDENT(3,2,3,0))    // (no pre-releases)
6450     level->shifted_relocation = TRUE;
6451
6452   // EM style elements always chain-exploded in R'n'D engine before 3.2.6
6453   if (level->game_version < VERSION_IDENT(3,2,6,0))
6454     level->em_explodes_by_fire = TRUE;
6455
6456   // levels were solved by the first player entering an exit up to 4.1.0.0
6457   if (level->game_version <= VERSION_IDENT(4,1,0,0))
6458     level->solved_by_one_player = TRUE;
6459
6460   // game logic of "game of life" and "biomaze" was buggy before 4.1.1.1
6461   if (level->game_version < VERSION_IDENT(4,1,1,1))
6462     level->use_life_bugs = TRUE;
6463
6464   // only Sokoban fields (but not objects) had to be solved before 4.1.1.1
6465   if (level->game_version < VERSION_IDENT(4,1,1,1))
6466     level->sb_objects_needed = FALSE;
6467
6468   // CE actions were triggered by unfinished digging/collecting up to 4.2.2.0
6469   if (level->game_version <= VERSION_IDENT(4,2,2,0))
6470     level->finish_dig_collect = FALSE;
6471
6472   // CE changing to player was kept under the player if walkable up to 4.2.3.1
6473   if (level->game_version <= VERSION_IDENT(4,2,3,1))
6474     level->keep_walkable_ce = TRUE;
6475 }
6476
6477 static void LoadLevel_InitStandardElements(struct LevelInfo *level)
6478 {
6479   int i, x, y;
6480
6481   // map elements that have changed in newer versions
6482   level->amoeba_content = getMappedElementByVersion(level->amoeba_content,
6483                                                     level->game_version);
6484   for (i = 0; i < MAX_ELEMENT_CONTENTS; i++)
6485     for (x = 0; x < 3; x++)
6486       for (y = 0; y < 3; y++)
6487         level->yamyam_content[i].e[x][y] =
6488           getMappedElementByVersion(level->yamyam_content[i].e[x][y],
6489                                     level->game_version);
6490
6491 }
6492
6493 static void LoadLevel_InitCustomElements(struct LevelInfo *level)
6494 {
6495   int i, j;
6496
6497   // map custom element change events that have changed in newer versions
6498   // (these following values were accidentally changed in version 3.0.1)
6499   // (this seems to be needed only for 'ab_levelset3' and 'ab_levelset4')
6500   if (level->game_version <= VERSION_IDENT(3,0,0,0))
6501   {
6502     for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
6503     {
6504       int element = EL_CUSTOM_START + i;
6505
6506       // order of checking and copying events to be mapped is important
6507       // (do not change the start and end value -- they are constant)
6508       for (j = CE_BY_OTHER_ACTION; j >= CE_VALUE_GETS_ZERO; j--)
6509       {
6510         if (HAS_CHANGE_EVENT(element, j - 2))
6511         {
6512           SET_CHANGE_EVENT(element, j - 2, FALSE);
6513           SET_CHANGE_EVENT(element, j, TRUE);
6514         }
6515       }
6516
6517       // order of checking and copying events to be mapped is important
6518       // (do not change the start and end value -- they are constant)
6519       for (j = CE_PLAYER_COLLECTS_X; j >= CE_HITTING_SOMETHING; j--)
6520       {
6521         if (HAS_CHANGE_EVENT(element, j - 1))
6522         {
6523           SET_CHANGE_EVENT(element, j - 1, FALSE);
6524           SET_CHANGE_EVENT(element, j, TRUE);
6525         }
6526       }
6527     }
6528   }
6529
6530   // initialize "can_change" field for old levels with only one change page
6531   if (level->game_version <= VERSION_IDENT(3,0,2,0))
6532   {
6533     for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
6534     {
6535       int element = EL_CUSTOM_START + i;
6536
6537       if (CAN_CHANGE(element))
6538         element_info[element].change->can_change = TRUE;
6539     }
6540   }
6541
6542   // correct custom element values (for old levels without these options)
6543   if (level->game_version < VERSION_IDENT(3,1,1,0))
6544   {
6545     for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
6546     {
6547       int element = EL_CUSTOM_START + i;
6548       struct ElementInfo *ei = &element_info[element];
6549
6550       if (ei->access_direction == MV_NO_DIRECTION)
6551         ei->access_direction = MV_ALL_DIRECTIONS;
6552     }
6553   }
6554
6555   // correct custom element values (fix invalid values for all versions)
6556   if (1)
6557   {
6558     for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
6559     {
6560       int element = EL_CUSTOM_START + i;
6561       struct ElementInfo *ei = &element_info[element];
6562
6563       for (j = 0; j < ei->num_change_pages; j++)
6564       {
6565         struct ElementChangeInfo *change = &ei->change_page[j];
6566
6567         if (change->trigger_player == CH_PLAYER_NONE)
6568           change->trigger_player = CH_PLAYER_ANY;
6569
6570         if (change->trigger_side == CH_SIDE_NONE)
6571           change->trigger_side = CH_SIDE_ANY;
6572       }
6573     }
6574   }
6575
6576   // initialize "can_explode" field for old levels which did not store this
6577   // !!! CHECK THIS -- "<= 3,1,0,0" IS PROBABLY WRONG !!!
6578   if (level->game_version <= VERSION_IDENT(3,1,0,0))
6579   {
6580     for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
6581     {
6582       int element = EL_CUSTOM_START + i;
6583
6584       if (EXPLODES_1X1_OLD(element))
6585         element_info[element].explosion_type = EXPLODES_1X1;
6586
6587       SET_PROPERTY(element, EP_CAN_EXPLODE, (EXPLODES_BY_FIRE(element) ||
6588                                              EXPLODES_SMASHED(element) ||
6589                                              EXPLODES_IMPACT(element)));
6590     }
6591   }
6592
6593   // correct previously hard-coded move delay values for maze runner style
6594   if (level->game_version < VERSION_IDENT(3,1,1,0))
6595   {
6596     for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
6597     {
6598       int element = EL_CUSTOM_START + i;
6599
6600       if (element_info[element].move_pattern & MV_MAZE_RUNNER_STYLE)
6601       {
6602         // previously hard-coded and therefore ignored
6603         element_info[element].move_delay_fixed = 9;
6604         element_info[element].move_delay_random = 0;
6605       }
6606     }
6607   }
6608
6609   // set some other uninitialized values of custom elements in older levels
6610   if (level->game_version < VERSION_IDENT(3,1,0,0))
6611   {
6612     for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
6613     {
6614       int element = EL_CUSTOM_START + i;
6615
6616       element_info[element].access_direction = MV_ALL_DIRECTIONS;
6617
6618       element_info[element].explosion_delay = 17;
6619       element_info[element].ignition_delay = 8;
6620     }
6621   }
6622
6623   // set mouse click change events to work for left/middle/right mouse button
6624   if (level->game_version < VERSION_IDENT(4,2,3,0))
6625   {
6626     for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
6627     {
6628       int element = EL_CUSTOM_START + i;
6629       struct ElementInfo *ei = &element_info[element];
6630
6631       for (j = 0; j < ei->num_change_pages; j++)
6632       {
6633         struct ElementChangeInfo *change = &ei->change_page[j];
6634
6635         if (change->has_event[CE_CLICKED_BY_MOUSE] ||
6636             change->has_event[CE_PRESSED_BY_MOUSE] ||
6637             change->has_event[CE_MOUSE_CLICKED_ON_X] ||
6638             change->has_event[CE_MOUSE_PRESSED_ON_X])
6639           change->trigger_side = CH_SIDE_ANY;
6640       }
6641     }
6642   }
6643 }
6644
6645 static void LoadLevel_InitElements(struct LevelInfo *level)
6646 {
6647   LoadLevel_InitStandardElements(level);
6648
6649   if (level->file_has_custom_elements)
6650     LoadLevel_InitCustomElements(level);
6651
6652   // initialize element properties for level editor etc.
6653   InitElementPropertiesEngine(level->game_version);
6654   InitElementPropertiesGfxElement();
6655 }
6656
6657 static void LoadLevel_InitPlayfield(struct LevelInfo *level)
6658 {
6659   int x, y;
6660
6661   // map elements that have changed in newer versions
6662   for (y = 0; y < level->fieldy; y++)
6663     for (x = 0; x < level->fieldx; x++)
6664       level->field[x][y] = getMappedElementByVersion(level->field[x][y],
6665                                                      level->game_version);
6666
6667   // clear unused playfield data (nicer if level gets resized in editor)
6668   for (x = 0; x < MAX_LEV_FIELDX; x++)
6669     for (y = 0; y < MAX_LEV_FIELDY; y++)
6670       if (x >= level->fieldx || y >= level->fieldy)
6671         level->field[x][y] = EL_EMPTY;
6672
6673   // copy elements to runtime playfield array
6674   for (x = 0; x < MAX_LEV_FIELDX; x++)
6675     for (y = 0; y < MAX_LEV_FIELDY; y++)
6676       Tile[x][y] = level->field[x][y];
6677
6678   // initialize level size variables for faster access
6679   lev_fieldx = level->fieldx;
6680   lev_fieldy = level->fieldy;
6681
6682   // determine border element for this level
6683   if (level->file_info.type == LEVEL_FILE_TYPE_DC)
6684     BorderElement = EL_EMPTY;   // (in editor, SetBorderElement() is used)
6685   else
6686     SetBorderElement();
6687 }
6688
6689 static void LoadLevel_InitNativeEngines(struct LevelInfo *level)
6690 {
6691   struct LevelFileInfo *level_file_info = &level->file_info;
6692
6693   if (level_file_info->type == LEVEL_FILE_TYPE_RND)
6694     CopyNativeLevel_RND_to_Native(level);
6695 }
6696
6697 static void LoadLevelTemplate_LoadAndInit(void)
6698 {
6699   LoadLevelFromFileInfo(&level_template, &level_template.file_info, FALSE);
6700
6701   LoadLevel_InitVersion(&level_template);
6702   LoadLevel_InitElements(&level_template);
6703
6704   ActivateLevelTemplate();
6705 }
6706
6707 void LoadLevelTemplate(int nr)
6708 {
6709   if (!fileExists(getGlobalLevelTemplateFilename()))
6710   {
6711     Warn("no level template found for this level");
6712
6713     return;
6714   }
6715
6716   setLevelFileInfo(&level_template.file_info, nr);
6717
6718   LoadLevelTemplate_LoadAndInit();
6719 }
6720
6721 static void LoadNetworkLevelTemplate(struct NetworkLevelInfo *network_level)
6722 {
6723   copyLevelFileInfo(&network_level->tmpl_info, &level_template.file_info);
6724
6725   LoadLevelTemplate_LoadAndInit();
6726 }
6727
6728 static void LoadLevel_LoadAndInit(struct NetworkLevelInfo *network_level)
6729 {
6730   LoadLevelFromFileInfo(&level, &level.file_info, FALSE);
6731
6732   if (level.use_custom_template)
6733   {
6734     if (network_level != NULL)
6735       LoadNetworkLevelTemplate(network_level);
6736     else
6737       LoadLevelTemplate(-1);
6738   }
6739
6740   LoadLevel_InitVersion(&level);
6741   LoadLevel_InitElements(&level);
6742   LoadLevel_InitPlayfield(&level);
6743
6744   LoadLevel_InitNativeEngines(&level);
6745 }
6746
6747 void LoadLevel(int nr)
6748 {
6749   SetLevelSetInfo(leveldir_current->identifier, nr);
6750
6751   setLevelFileInfo(&level.file_info, nr);
6752
6753   LoadLevel_LoadAndInit(NULL);
6754 }
6755
6756 void LoadLevelInfoOnly(int nr)
6757 {
6758   setLevelFileInfo(&level.file_info, nr);
6759
6760   LoadLevelFromFileInfo(&level, &level.file_info, TRUE);
6761 }
6762
6763 void LoadNetworkLevel(struct NetworkLevelInfo *network_level)
6764 {
6765   SetLevelSetInfo(network_level->leveldir_identifier,
6766                   network_level->file_info.nr);
6767
6768   copyLevelFileInfo(&network_level->file_info, &level.file_info);
6769
6770   LoadLevel_LoadAndInit(network_level);
6771 }
6772
6773 static int SaveLevel_VERS(FILE *file, struct LevelInfo *level)
6774 {
6775   int chunk_size = 0;
6776
6777   chunk_size += putFileVersion(file, level->file_version);
6778   chunk_size += putFileVersion(file, level->game_version);
6779
6780   return chunk_size;
6781 }
6782
6783 static int SaveLevel_DATE(FILE *file, struct LevelInfo *level)
6784 {
6785   int chunk_size = 0;
6786
6787   chunk_size += putFile16BitBE(file, level->creation_date.year);
6788   chunk_size += putFile8Bit(file,    level->creation_date.month);
6789   chunk_size += putFile8Bit(file,    level->creation_date.day);
6790
6791   return chunk_size;
6792 }
6793
6794 #if ENABLE_HISTORIC_CHUNKS
6795 static void SaveLevel_HEAD(FILE *file, struct LevelInfo *level)
6796 {
6797   int i, x, y;
6798
6799   putFile8Bit(file, level->fieldx);
6800   putFile8Bit(file, level->fieldy);
6801
6802   putFile16BitBE(file, level->time);
6803   putFile16BitBE(file, level->gems_needed);
6804
6805   for (i = 0; i < MAX_LEVEL_NAME_LEN; i++)
6806     putFile8Bit(file, level->name[i]);
6807
6808   for (i = 0; i < LEVEL_SCORE_ELEMENTS; i++)
6809     putFile8Bit(file, level->score[i]);
6810
6811   for (i = 0; i < STD_ELEMENT_CONTENTS; i++)
6812     for (y = 0; y < 3; y++)
6813       for (x = 0; x < 3; x++)
6814         putFile8Bit(file, (level->encoding_16bit_yamyam ? EL_EMPTY :
6815                            level->yamyam_content[i].e[x][y]));
6816   putFile8Bit(file, level->amoeba_speed);
6817   putFile8Bit(file, level->time_magic_wall);
6818   putFile8Bit(file, level->time_wheel);
6819   putFile8Bit(file, (level->encoding_16bit_amoeba ? EL_EMPTY :
6820                      level->amoeba_content));
6821   putFile8Bit(file, (level->initial_player_stepsize == STEPSIZE_FAST ? 1 : 0));
6822   putFile8Bit(file, (level->initial_gravity ? 1 : 0));
6823   putFile8Bit(file, (level->encoding_16bit_field ? 1 : 0));
6824   putFile8Bit(file, (level->em_slippery_gems ? 1 : 0));
6825
6826   putFile8Bit(file, (level->use_custom_template ? 1 : 0));
6827
6828   putFile8Bit(file, (level->block_last_field ? 1 : 0));
6829   putFile8Bit(file, (level->sp_block_last_field ? 1 : 0));
6830   putFile32BitBE(file, level->can_move_into_acid_bits);
6831   putFile8Bit(file, level->dont_collide_with_bits);
6832
6833   putFile8Bit(file, (level->use_spring_bug ? 1 : 0));
6834   putFile8Bit(file, (level->use_step_counter ? 1 : 0));
6835
6836   putFile8Bit(file, (level->instant_relocation ? 1 : 0));
6837   putFile8Bit(file, (level->can_pass_to_walkable ? 1 : 0));
6838   putFile8Bit(file, (level->grow_into_diggable ? 1 : 0));
6839
6840   putFile8Bit(file, level->game_engine_type);
6841
6842   WriteUnusedBytesToFile(file, LEVEL_CHUNK_HEAD_UNUSED);
6843 }
6844 #endif
6845
6846 static int SaveLevel_NAME(FILE *file, struct LevelInfo *level)
6847 {
6848   int chunk_size = 0;
6849   int i;
6850
6851   for (i = 0; i < MAX_LEVEL_NAME_LEN; i++)
6852     chunk_size += putFile8Bit(file, level->name[i]);
6853
6854   return chunk_size;
6855 }
6856
6857 static int SaveLevel_AUTH(FILE *file, struct LevelInfo *level)
6858 {
6859   int chunk_size = 0;
6860   int i;
6861
6862   for (i = 0; i < MAX_LEVEL_AUTHOR_LEN; i++)
6863     chunk_size += putFile8Bit(file, level->author[i]);
6864
6865   return chunk_size;
6866 }
6867
6868 #if ENABLE_HISTORIC_CHUNKS
6869 static int SaveLevel_BODY(FILE *file, struct LevelInfo *level)
6870 {
6871   int chunk_size = 0;
6872   int x, y;
6873
6874   for (y = 0; y < level->fieldy; y++)
6875     for (x = 0; x < level->fieldx; x++)
6876       if (level->encoding_16bit_field)
6877         chunk_size += putFile16BitBE(file, level->field[x][y]);
6878       else
6879         chunk_size += putFile8Bit(file, level->field[x][y]);
6880
6881   return chunk_size;
6882 }
6883 #endif
6884
6885 static int SaveLevel_BODY(FILE *file, struct LevelInfo *level)
6886 {
6887   int chunk_size = 0;
6888   int x, y;
6889
6890   for (y = 0; y < level->fieldy; y++)
6891     for (x = 0; x < level->fieldx; x++)
6892       chunk_size += putFile16BitBE(file, level->field[x][y]);
6893
6894   return chunk_size;
6895 }
6896
6897 #if ENABLE_HISTORIC_CHUNKS
6898 static void SaveLevel_CONT(FILE *file, struct LevelInfo *level)
6899 {
6900   int i, x, y;
6901
6902   putFile8Bit(file, EL_YAMYAM);
6903   putFile8Bit(file, level->num_yamyam_contents);
6904   putFile8Bit(file, 0);
6905   putFile8Bit(file, 0);
6906
6907   for (i = 0; i < MAX_ELEMENT_CONTENTS; i++)
6908     for (y = 0; y < 3; y++)
6909       for (x = 0; x < 3; x++)
6910         if (level->encoding_16bit_field)
6911           putFile16BitBE(file, level->yamyam_content[i].e[x][y]);
6912         else
6913           putFile8Bit(file, level->yamyam_content[i].e[x][y]);
6914 }
6915 #endif
6916
6917 #if ENABLE_HISTORIC_CHUNKS
6918 static void SaveLevel_CNT2(FILE *file, struct LevelInfo *level, int element)
6919 {
6920   int i, x, y;
6921   int num_contents, content_xsize, content_ysize;
6922   int content_array[MAX_ELEMENT_CONTENTS][3][3];
6923
6924   if (element == EL_YAMYAM)
6925   {
6926     num_contents = level->num_yamyam_contents;
6927     content_xsize = 3;
6928     content_ysize = 3;
6929
6930     for (i = 0; i < MAX_ELEMENT_CONTENTS; i++)
6931       for (y = 0; y < 3; y++)
6932         for (x = 0; x < 3; x++)
6933           content_array[i][x][y] = level->yamyam_content[i].e[x][y];
6934   }
6935   else if (element == EL_BD_AMOEBA)
6936   {
6937     num_contents = 1;
6938     content_xsize = 1;
6939     content_ysize = 1;
6940
6941     for (i = 0; i < MAX_ELEMENT_CONTENTS; i++)
6942       for (y = 0; y < 3; y++)
6943         for (x = 0; x < 3; x++)
6944           content_array[i][x][y] = EL_EMPTY;
6945     content_array[0][0][0] = level->amoeba_content;
6946   }
6947   else
6948   {
6949     // chunk header already written -- write empty chunk data
6950     WriteUnusedBytesToFile(file, LEVEL_CHUNK_CNT2_SIZE);
6951
6952     Warn("cannot save content for element '%d'", element);
6953
6954     return;
6955   }
6956
6957   putFile16BitBE(file, element);
6958   putFile8Bit(file, num_contents);
6959   putFile8Bit(file, content_xsize);
6960   putFile8Bit(file, content_ysize);
6961
6962   WriteUnusedBytesToFile(file, LEVEL_CHUNK_CNT2_UNUSED);
6963
6964   for (i = 0; i < MAX_ELEMENT_CONTENTS; i++)
6965     for (y = 0; y < 3; y++)
6966       for (x = 0; x < 3; x++)
6967         putFile16BitBE(file, content_array[i][x][y]);
6968 }
6969 #endif
6970
6971 #if ENABLE_HISTORIC_CHUNKS
6972 static int SaveLevel_CNT3(FILE *file, struct LevelInfo *level, int element)
6973 {
6974   int envelope_nr = element - EL_ENVELOPE_1;
6975   int envelope_len = strlen(level->envelope_text[envelope_nr]) + 1;
6976   int chunk_size = 0;
6977   int i;
6978
6979   chunk_size += putFile16BitBE(file, element);
6980   chunk_size += putFile16BitBE(file, envelope_len);
6981   chunk_size += putFile8Bit(file, level->envelope_xsize[envelope_nr]);
6982   chunk_size += putFile8Bit(file, level->envelope_ysize[envelope_nr]);
6983
6984   WriteUnusedBytesToFile(file, LEVEL_CHUNK_CNT3_UNUSED);
6985   chunk_size += LEVEL_CHUNK_CNT3_UNUSED;
6986
6987   for (i = 0; i < envelope_len; i++)
6988     chunk_size += putFile8Bit(file, level->envelope_text[envelope_nr][i]);
6989
6990   return chunk_size;
6991 }
6992 #endif
6993
6994 #if ENABLE_HISTORIC_CHUNKS
6995 static void SaveLevel_CUS1(FILE *file, struct LevelInfo *level,
6996                            int num_changed_custom_elements)
6997 {
6998   int i, check = 0;
6999
7000   putFile16BitBE(file, num_changed_custom_elements);
7001
7002   for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
7003   {
7004     int element = EL_CUSTOM_START + i;
7005
7006     struct ElementInfo *ei = &element_info[element];
7007
7008     if (ei->properties[EP_BITFIELD_BASE_NR] != EP_BITMASK_DEFAULT)
7009     {
7010       if (check < num_changed_custom_elements)
7011       {
7012         putFile16BitBE(file, element);
7013         putFile32BitBE(file, ei->properties[EP_BITFIELD_BASE_NR]);
7014       }
7015
7016       check++;
7017     }
7018   }
7019
7020   if (check != num_changed_custom_elements)     // should not happen
7021     Warn("inconsistent number of custom element properties");
7022 }
7023 #endif
7024
7025 #if ENABLE_HISTORIC_CHUNKS
7026 static void SaveLevel_CUS2(FILE *file, struct LevelInfo *level,
7027                            int num_changed_custom_elements)
7028 {
7029   int i, check = 0;
7030
7031   putFile16BitBE(file, num_changed_custom_elements);
7032
7033   for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
7034   {
7035     int element = EL_CUSTOM_START + i;
7036
7037     if (element_info[element].change->target_element != EL_EMPTY_SPACE)
7038     {
7039       if (check < num_changed_custom_elements)
7040       {
7041         putFile16BitBE(file, element);
7042         putFile16BitBE(file, element_info[element].change->target_element);
7043       }
7044
7045       check++;
7046     }
7047   }
7048
7049   if (check != num_changed_custom_elements)     // should not happen
7050     Warn("inconsistent number of custom target elements");
7051 }
7052 #endif
7053
7054 #if ENABLE_HISTORIC_CHUNKS
7055 static void SaveLevel_CUS3(FILE *file, struct LevelInfo *level,
7056                            int num_changed_custom_elements)
7057 {
7058   int i, j, x, y, check = 0;
7059
7060   putFile16BitBE(file, num_changed_custom_elements);
7061
7062   for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
7063   {
7064     int element = EL_CUSTOM_START + i;
7065     struct ElementInfo *ei = &element_info[element];
7066
7067     if (ei->modified_settings)
7068     {
7069       if (check < num_changed_custom_elements)
7070       {
7071         putFile16BitBE(file, element);
7072
7073         for (j = 0; j < MAX_ELEMENT_NAME_LEN; j++)
7074           putFile8Bit(file, ei->description[j]);
7075
7076         putFile32BitBE(file, ei->properties[EP_BITFIELD_BASE_NR]);
7077
7078         // some free bytes for future properties and padding
7079         WriteUnusedBytesToFile(file, 7);
7080
7081         putFile8Bit(file, ei->use_gfx_element);
7082         putFile16BitBE(file, ei->gfx_element_initial);
7083
7084         putFile8Bit(file, ei->collect_score_initial);
7085         putFile8Bit(file, ei->collect_count_initial);
7086
7087         putFile16BitBE(file, ei->push_delay_fixed);
7088         putFile16BitBE(file, ei->push_delay_random);
7089         putFile16BitBE(file, ei->move_delay_fixed);
7090         putFile16BitBE(file, ei->move_delay_random);
7091
7092         putFile16BitBE(file, ei->move_pattern);
7093         putFile8Bit(file, ei->move_direction_initial);
7094         putFile8Bit(file, ei->move_stepsize);
7095
7096         for (y = 0; y < 3; y++)
7097           for (x = 0; x < 3; x++)
7098             putFile16BitBE(file, ei->content.e[x][y]);
7099
7100         putFile32BitBE(file, ei->change->events);
7101
7102         putFile16BitBE(file, ei->change->target_element);
7103
7104         putFile16BitBE(file, ei->change->delay_fixed);
7105         putFile16BitBE(file, ei->change->delay_random);
7106         putFile16BitBE(file, ei->change->delay_frames);
7107
7108         putFile16BitBE(file, ei->change->initial_trigger_element);
7109
7110         putFile8Bit(file, ei->change->explode);
7111         putFile8Bit(file, ei->change->use_target_content);
7112         putFile8Bit(file, ei->change->only_if_complete);
7113         putFile8Bit(file, ei->change->use_random_replace);
7114
7115         putFile8Bit(file, ei->change->random_percentage);
7116         putFile8Bit(file, ei->change->replace_when);
7117
7118         for (y = 0; y < 3; y++)
7119           for (x = 0; x < 3; x++)
7120             putFile16BitBE(file, ei->change->content.e[x][y]);
7121
7122         putFile8Bit(file, ei->slippery_type);
7123
7124         // some free bytes for future properties and padding
7125         WriteUnusedBytesToFile(file, LEVEL_CPART_CUS3_UNUSED);
7126       }
7127
7128       check++;
7129     }
7130   }
7131
7132   if (check != num_changed_custom_elements)     // should not happen
7133     Warn("inconsistent number of custom element properties");
7134 }
7135 #endif
7136
7137 #if ENABLE_HISTORIC_CHUNKS
7138 static void SaveLevel_CUS4(FILE *file, struct LevelInfo *level, int element)
7139 {
7140   struct ElementInfo *ei = &element_info[element];
7141   int i, j, x, y;
7142
7143   // ---------- custom element base property values (96 bytes) ----------------
7144
7145   putFile16BitBE(file, element);
7146
7147   for (i = 0; i < MAX_ELEMENT_NAME_LEN; i++)
7148     putFile8Bit(file, ei->description[i]);
7149
7150   putFile32BitBE(file, ei->properties[EP_BITFIELD_BASE_NR]);
7151
7152   WriteUnusedBytesToFile(file, 4);      // reserved for more base properties
7153
7154   putFile8Bit(file, ei->num_change_pages);
7155
7156   putFile16BitBE(file, ei->ce_value_fixed_initial);
7157   putFile16BitBE(file, ei->ce_value_random_initial);
7158   putFile8Bit(file, ei->use_last_ce_value);
7159
7160   putFile8Bit(file, ei->use_gfx_element);
7161   putFile16BitBE(file, ei->gfx_element_initial);
7162
7163   putFile8Bit(file, ei->collect_score_initial);
7164   putFile8Bit(file, ei->collect_count_initial);
7165
7166   putFile8Bit(file, ei->drop_delay_fixed);
7167   putFile8Bit(file, ei->push_delay_fixed);
7168   putFile8Bit(file, ei->drop_delay_random);
7169   putFile8Bit(file, ei->push_delay_random);
7170   putFile16BitBE(file, ei->move_delay_fixed);
7171   putFile16BitBE(file, ei->move_delay_random);
7172
7173   // bits 0 - 15 of "move_pattern" ...
7174   putFile16BitBE(file, ei->move_pattern & 0xffff);
7175   putFile8Bit(file, ei->move_direction_initial);
7176   putFile8Bit(file, ei->move_stepsize);
7177
7178   putFile8Bit(file, ei->slippery_type);
7179
7180   for (y = 0; y < 3; y++)
7181     for (x = 0; x < 3; x++)
7182       putFile16BitBE(file, ei->content.e[x][y]);
7183
7184   putFile16BitBE(file, ei->move_enter_element);
7185   putFile16BitBE(file, ei->move_leave_element);
7186   putFile8Bit(file, ei->move_leave_type);
7187
7188   // ... bits 16 - 31 of "move_pattern" (not nice, but downward compatible)
7189   putFile16BitBE(file, (ei->move_pattern >> 16) & 0xffff);
7190
7191   putFile8Bit(file, ei->access_direction);
7192
7193   putFile8Bit(file, ei->explosion_delay);
7194   putFile8Bit(file, ei->ignition_delay);
7195   putFile8Bit(file, ei->explosion_type);
7196
7197   // some free bytes for future custom property values and padding
7198   WriteUnusedBytesToFile(file, 1);
7199
7200   // ---------- change page property values (48 bytes) ------------------------
7201
7202   for (i = 0; i < ei->num_change_pages; i++)
7203   {
7204     struct ElementChangeInfo *change = &ei->change_page[i];
7205     unsigned int event_bits;
7206
7207     // bits 0 - 31 of "has_event[]" ...
7208     event_bits = 0;
7209     for (j = 0; j < MIN(NUM_CHANGE_EVENTS, 32); j++)
7210       if (change->has_event[j])
7211         event_bits |= (1 << j);
7212     putFile32BitBE(file, event_bits);
7213
7214     putFile16BitBE(file, change->target_element);
7215
7216     putFile16BitBE(file, change->delay_fixed);
7217     putFile16BitBE(file, change->delay_random);
7218     putFile16BitBE(file, change->delay_frames);
7219
7220     putFile16BitBE(file, change->initial_trigger_element);
7221
7222     putFile8Bit(file, change->explode);
7223     putFile8Bit(file, change->use_target_content);
7224     putFile8Bit(file, change->only_if_complete);
7225     putFile8Bit(file, change->use_random_replace);
7226
7227     putFile8Bit(file, change->random_percentage);
7228     putFile8Bit(file, change->replace_when);
7229
7230     for (y = 0; y < 3; y++)
7231       for (x = 0; x < 3; x++)
7232         putFile16BitBE(file, change->target_content.e[x][y]);
7233
7234     putFile8Bit(file, change->can_change);
7235
7236     putFile8Bit(file, change->trigger_side);
7237
7238     putFile8Bit(file, change->trigger_player);
7239     putFile8Bit(file, (change->trigger_page == CH_PAGE_ANY ? CH_PAGE_ANY_FILE :
7240                        log_2(change->trigger_page)));
7241
7242     putFile8Bit(file, change->has_action);
7243     putFile8Bit(file, change->action_type);
7244     putFile8Bit(file, change->action_mode);
7245     putFile16BitBE(file, change->action_arg);
7246
7247     // ... bits 32 - 39 of "has_event[]" (not nice, but downward compatible)
7248     event_bits = 0;
7249     for (j = 32; j < NUM_CHANGE_EVENTS; j++)
7250       if (change->has_event[j])
7251         event_bits |= (1 << (j - 32));
7252     putFile8Bit(file, event_bits);
7253   }
7254 }
7255 #endif
7256
7257 #if ENABLE_HISTORIC_CHUNKS
7258 static void SaveLevel_GRP1(FILE *file, struct LevelInfo *level, int element)
7259 {
7260   struct ElementInfo *ei = &element_info[element];
7261   struct ElementGroupInfo *group = ei->group;
7262   int i;
7263
7264   putFile16BitBE(file, element);
7265
7266   for (i = 0; i < MAX_ELEMENT_NAME_LEN; i++)
7267     putFile8Bit(file, ei->description[i]);
7268
7269   putFile8Bit(file, group->num_elements);
7270
7271   putFile8Bit(file, ei->use_gfx_element);
7272   putFile16BitBE(file, ei->gfx_element_initial);
7273
7274   putFile8Bit(file, group->choice_mode);
7275
7276   // some free bytes for future values and padding
7277   WriteUnusedBytesToFile(file, 3);
7278
7279   for (i = 0; i < MAX_ELEMENTS_IN_GROUP; i++)
7280     putFile16BitBE(file, group->element[i]);
7281 }
7282 #endif
7283
7284 static int SaveLevel_MicroChunk(FILE *file, struct LevelFileConfigInfo *entry,
7285                                 boolean write_element)
7286 {
7287   int save_type = entry->save_type;
7288   int data_type = entry->data_type;
7289   int conf_type = entry->conf_type;
7290   int byte_mask = conf_type & CONF_MASK_BYTES;
7291   int element = entry->element;
7292   int default_value = entry->default_value;
7293   int num_bytes = 0;
7294   boolean modified = FALSE;
7295
7296   if (byte_mask != CONF_MASK_MULTI_BYTES)
7297   {
7298     void *value_ptr = entry->value;
7299     int value = (data_type == TYPE_BOOLEAN ? *(boolean *)value_ptr :
7300                  *(int *)value_ptr);
7301
7302     // check if any settings have been modified before saving them
7303     if (value != default_value)
7304       modified = TRUE;
7305
7306     // do not save if explicitly told or if unmodified default settings
7307     if ((save_type == SAVE_CONF_NEVER) ||
7308         (save_type == SAVE_CONF_WHEN_CHANGED && !modified))
7309       return 0;
7310
7311     if (write_element)
7312       num_bytes += putFile16BitBE(file, element);
7313
7314     num_bytes += putFile8Bit(file, conf_type);
7315     num_bytes += (byte_mask == CONF_MASK_1_BYTE ? putFile8Bit   (file, value) :
7316                   byte_mask == CONF_MASK_2_BYTE ? putFile16BitBE(file, value) :
7317                   byte_mask == CONF_MASK_4_BYTE ? putFile32BitBE(file, value) :
7318                   0);
7319   }
7320   else if (data_type == TYPE_STRING)
7321   {
7322     char *default_string = entry->default_string;
7323     char *string = (char *)(entry->value);
7324     int string_length = strlen(string);
7325     int i;
7326
7327     // check if any settings have been modified before saving them
7328     if (!strEqual(string, default_string))
7329       modified = TRUE;
7330
7331     // do not save if explicitly told or if unmodified default settings
7332     if ((save_type == SAVE_CONF_NEVER) ||
7333         (save_type == SAVE_CONF_WHEN_CHANGED && !modified))
7334       return 0;
7335
7336     if (write_element)
7337       num_bytes += putFile16BitBE(file, element);
7338
7339     num_bytes += putFile8Bit(file, conf_type);
7340     num_bytes += putFile16BitBE(file, string_length);
7341
7342     for (i = 0; i < string_length; i++)
7343       num_bytes += putFile8Bit(file, string[i]);
7344   }
7345   else if (data_type == TYPE_ELEMENT_LIST)
7346   {
7347     int *element_array = (int *)(entry->value);
7348     int num_elements = *(int *)(entry->num_entities);
7349     int i;
7350
7351     // check if any settings have been modified before saving them
7352     for (i = 0; i < num_elements; i++)
7353       if (element_array[i] != default_value)
7354         modified = TRUE;
7355
7356     // do not save if explicitly told or if unmodified default settings
7357     if ((save_type == SAVE_CONF_NEVER) ||
7358         (save_type == SAVE_CONF_WHEN_CHANGED && !modified))
7359       return 0;
7360
7361     if (write_element)
7362       num_bytes += putFile16BitBE(file, element);
7363
7364     num_bytes += putFile8Bit(file, conf_type);
7365     num_bytes += putFile16BitBE(file, num_elements * CONF_ELEMENT_NUM_BYTES);
7366
7367     for (i = 0; i < num_elements; i++)
7368       num_bytes += putFile16BitBE(file, element_array[i]);
7369   }
7370   else if (data_type == TYPE_CONTENT_LIST)
7371   {
7372     struct Content *content = (struct Content *)(entry->value);
7373     int num_contents = *(int *)(entry->num_entities);
7374     int i, x, y;
7375
7376     // check if any settings have been modified before saving them
7377     for (i = 0; i < num_contents; i++)
7378       for (y = 0; y < 3; y++)
7379         for (x = 0; x < 3; x++)
7380           if (content[i].e[x][y] != default_value)
7381             modified = TRUE;
7382
7383     // do not save if explicitly told or if unmodified default settings
7384     if ((save_type == SAVE_CONF_NEVER) ||
7385         (save_type == SAVE_CONF_WHEN_CHANGED && !modified))
7386       return 0;
7387
7388     if (write_element)
7389       num_bytes += putFile16BitBE(file, element);
7390
7391     num_bytes += putFile8Bit(file, conf_type);
7392     num_bytes += putFile16BitBE(file, num_contents * CONF_CONTENT_NUM_BYTES);
7393
7394     for (i = 0; i < num_contents; i++)
7395       for (y = 0; y < 3; y++)
7396         for (x = 0; x < 3; x++)
7397           num_bytes += putFile16BitBE(file, content[i].e[x][y]);
7398   }
7399
7400   return num_bytes;
7401 }
7402
7403 static int SaveLevel_INFO(FILE *file, struct LevelInfo *level)
7404 {
7405   int chunk_size = 0;
7406   int i;
7407
7408   li = *level;          // copy level data into temporary buffer
7409
7410   for (i = 0; chunk_config_INFO[i].data_type != -1; i++)
7411     chunk_size += SaveLevel_MicroChunk(file, &chunk_config_INFO[i], FALSE);
7412
7413   return chunk_size;
7414 }
7415
7416 static int SaveLevel_ELEM(FILE *file, struct LevelInfo *level)
7417 {
7418   int chunk_size = 0;
7419   int i;
7420
7421   li = *level;          // copy level data into temporary buffer
7422
7423   for (i = 0; chunk_config_ELEM[i].data_type != -1; i++)
7424     chunk_size += SaveLevel_MicroChunk(file, &chunk_config_ELEM[i], TRUE);
7425
7426   return chunk_size;
7427 }
7428
7429 static int SaveLevel_NOTE(FILE *file, struct LevelInfo *level, int element)
7430 {
7431   int envelope_nr = element - EL_ENVELOPE_1;
7432   int chunk_size = 0;
7433   int i;
7434
7435   chunk_size += putFile16BitBE(file, element);
7436
7437   // copy envelope data into temporary buffer
7438   xx_envelope = level->envelope[envelope_nr];
7439
7440   for (i = 0; chunk_config_NOTE[i].data_type != -1; i++)
7441     chunk_size += SaveLevel_MicroChunk(file, &chunk_config_NOTE[i], FALSE);
7442
7443   return chunk_size;
7444 }
7445
7446 static int SaveLevel_CUSX(FILE *file, struct LevelInfo *level, int element)
7447 {
7448   struct ElementInfo *ei = &element_info[element];
7449   int chunk_size = 0;
7450   int i, j;
7451
7452   chunk_size += putFile16BitBE(file, element);
7453
7454   xx_ei = *ei;          // copy element data into temporary buffer
7455
7456   // set default description string for this specific element
7457   strcpy(xx_default_description, getDefaultElementDescription(ei));
7458
7459   for (i = 0; chunk_config_CUSX_base[i].data_type != -1; i++)
7460     chunk_size += SaveLevel_MicroChunk(file, &chunk_config_CUSX_base[i], FALSE);
7461
7462   for (i = 0; i < ei->num_change_pages; i++)
7463   {
7464     struct ElementChangeInfo *change = &ei->change_page[i];
7465
7466     xx_current_change_page = i;
7467
7468     xx_change = *change;        // copy change data into temporary buffer
7469
7470     resetEventBits();
7471     setEventBitsFromEventFlags(change);
7472
7473     for (j = 0; chunk_config_CUSX_change[j].data_type != -1; j++)
7474       chunk_size += SaveLevel_MicroChunk(file, &chunk_config_CUSX_change[j],
7475                                          FALSE);
7476   }
7477
7478   return chunk_size;
7479 }
7480
7481 static int SaveLevel_GRPX(FILE *file, struct LevelInfo *level, int element)
7482 {
7483   struct ElementInfo *ei = &element_info[element];
7484   struct ElementGroupInfo *group = ei->group;
7485   int chunk_size = 0;
7486   int i;
7487
7488   chunk_size += putFile16BitBE(file, element);
7489
7490   xx_ei = *ei;          // copy element data into temporary buffer
7491   xx_group = *group;    // copy group data into temporary buffer
7492
7493   // set default description string for this specific element
7494   strcpy(xx_default_description, getDefaultElementDescription(ei));
7495
7496   for (i = 0; chunk_config_GRPX[i].data_type != -1; i++)
7497     chunk_size += SaveLevel_MicroChunk(file, &chunk_config_GRPX[i], FALSE);
7498
7499   return chunk_size;
7500 }
7501
7502 static void SaveLevelFromFilename(struct LevelInfo *level, char *filename,
7503                                   boolean save_as_template)
7504 {
7505   int chunk_size;
7506   int i;
7507   FILE *file;
7508
7509   if (!(file = fopen(filename, MODE_WRITE)))
7510   {
7511     Warn("cannot save level file '%s'", filename);
7512
7513     return;
7514   }
7515
7516   level->file_version = FILE_VERSION_ACTUAL;
7517   level->game_version = GAME_VERSION_ACTUAL;
7518
7519   level->creation_date = getCurrentDate();
7520
7521   putFileChunkBE(file, "RND1", CHUNK_SIZE_UNDEFINED);
7522   putFileChunkBE(file, "CAVE", CHUNK_SIZE_NONE);
7523
7524   chunk_size = SaveLevel_VERS(NULL, level);
7525   putFileChunkBE(file, "VERS", chunk_size);
7526   SaveLevel_VERS(file, level);
7527
7528   chunk_size = SaveLevel_DATE(NULL, level);
7529   putFileChunkBE(file, "DATE", chunk_size);
7530   SaveLevel_DATE(file, level);
7531
7532   chunk_size = SaveLevel_NAME(NULL, level);
7533   putFileChunkBE(file, "NAME", chunk_size);
7534   SaveLevel_NAME(file, level);
7535
7536   chunk_size = SaveLevel_AUTH(NULL, level);
7537   putFileChunkBE(file, "AUTH", chunk_size);
7538   SaveLevel_AUTH(file, level);
7539
7540   chunk_size = SaveLevel_INFO(NULL, level);
7541   putFileChunkBE(file, "INFO", chunk_size);
7542   SaveLevel_INFO(file, level);
7543
7544   chunk_size = SaveLevel_BODY(NULL, level);
7545   putFileChunkBE(file, "BODY", chunk_size);
7546   SaveLevel_BODY(file, level);
7547
7548   chunk_size = SaveLevel_ELEM(NULL, level);
7549   if (chunk_size > LEVEL_CHUNK_ELEM_UNCHANGED)          // save if changed
7550   {
7551     putFileChunkBE(file, "ELEM", chunk_size);
7552     SaveLevel_ELEM(file, level);
7553   }
7554
7555   for (i = 0; i < NUM_ENVELOPES; i++)
7556   {
7557     int element = EL_ENVELOPE_1 + i;
7558
7559     chunk_size = SaveLevel_NOTE(NULL, level, element);
7560     if (chunk_size > LEVEL_CHUNK_NOTE_UNCHANGED)        // save if changed
7561     {
7562       putFileChunkBE(file, "NOTE", chunk_size);
7563       SaveLevel_NOTE(file, level, element);
7564     }
7565   }
7566
7567   // if not using template level, check for non-default custom/group elements
7568   if (!level->use_custom_template || save_as_template)
7569   {
7570     for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
7571     {
7572       int element = EL_CUSTOM_START + i;
7573
7574       chunk_size = SaveLevel_CUSX(NULL, level, element);
7575       if (chunk_size > LEVEL_CHUNK_CUSX_UNCHANGED)      // save if changed
7576       {
7577         putFileChunkBE(file, "CUSX", chunk_size);
7578         SaveLevel_CUSX(file, level, element);
7579       }
7580     }
7581
7582     for (i = 0; i < NUM_GROUP_ELEMENTS; i++)
7583     {
7584       int element = EL_GROUP_START + i;
7585
7586       chunk_size = SaveLevel_GRPX(NULL, level, element);
7587       if (chunk_size > LEVEL_CHUNK_GRPX_UNCHANGED)      // save if changed
7588       {
7589         putFileChunkBE(file, "GRPX", chunk_size);
7590         SaveLevel_GRPX(file, level, element);
7591       }
7592     }
7593   }
7594
7595   fclose(file);
7596
7597   SetFilePermissions(filename, PERMS_PRIVATE);
7598 }
7599
7600 void SaveLevel(int nr)
7601 {
7602   char *filename = getDefaultLevelFilename(nr);
7603
7604   SaveLevelFromFilename(&level, filename, FALSE);
7605 }
7606
7607 void SaveLevelTemplate(void)
7608 {
7609   char *filename = getLocalLevelTemplateFilename();
7610
7611   SaveLevelFromFilename(&level, filename, TRUE);
7612 }
7613
7614 boolean SaveLevelChecked(int nr)
7615 {
7616   char *filename = getDefaultLevelFilename(nr);
7617   boolean new_level = !fileExists(filename);
7618   boolean level_saved = FALSE;
7619
7620   if (new_level || Request("Save this level and kill the old?", REQ_ASK))
7621   {
7622     SaveLevel(nr);
7623
7624     if (new_level)
7625       Request("Level saved!", REQ_CONFIRM);
7626
7627     level_saved = TRUE;
7628   }
7629
7630   return level_saved;
7631 }
7632
7633 void DumpLevel(struct LevelInfo *level)
7634 {
7635   if (level->no_level_file || level->no_valid_file)
7636   {
7637     Warn("cannot dump -- no valid level file found");
7638
7639     return;
7640   }
7641
7642   PrintLine("-", 79);
7643   Print("Level xxx (file version %08d, game version %08d)\n",
7644         level->file_version, level->game_version);
7645   PrintLine("-", 79);
7646
7647   Print("Level author: '%s'\n", level->author);
7648   Print("Level title:  '%s'\n", level->name);
7649   Print("\n");
7650   Print("Playfield size: %d x %d\n", level->fieldx, level->fieldy);
7651   Print("\n");
7652   Print("Level time:  %d seconds\n", level->time);
7653   Print("Gems needed: %d\n", level->gems_needed);
7654   Print("\n");
7655   Print("Time for magic wall: %d seconds\n", level->time_magic_wall);
7656   Print("Time for wheel:      %d seconds\n", level->time_wheel);
7657   Print("Time for light:      %d seconds\n", level->time_light);
7658   Print("Time for timegate:   %d seconds\n", level->time_timegate);
7659   Print("\n");
7660   Print("Amoeba speed: %d\n", level->amoeba_speed);
7661   Print("\n");
7662
7663   Print("EM style slippery gems:      %s\n", (level->em_slippery_gems ? "yes" : "no"));
7664   Print("Player blocks last field:    %s\n", (level->block_last_field ? "yes" : "no"));
7665   Print("SP player blocks last field: %s\n", (level->sp_block_last_field ? "yes" : "no"));
7666   Print("use spring bug: %s\n", (level->use_spring_bug ? "yes" : "no"));
7667   Print("use step counter: %s\n", (level->use_step_counter ? "yes" : "no"));
7668   Print("rate time over score: %s\n", (level->rate_time_over_score ? "yes" : "no"));
7669
7670   PrintLine("-", 79);
7671 }
7672
7673 void DumpLevels(void)
7674 {
7675   static LevelDirTree *dumplevel_leveldir = NULL;
7676
7677   dumplevel_leveldir = getTreeInfoFromIdentifier(leveldir_first,
7678                                                  global.dumplevel_leveldir);
7679
7680   if (dumplevel_leveldir == NULL)
7681     Fail("no such level identifier: '%s'", global.dumplevel_leveldir);
7682
7683   if (global.dumplevel_level_nr < dumplevel_leveldir->first_level ||
7684       global.dumplevel_level_nr > dumplevel_leveldir->last_level)
7685     Fail("no such level number: %d", global.dumplevel_level_nr);
7686
7687   leveldir_current = dumplevel_leveldir;
7688
7689   LoadLevel(global.dumplevel_level_nr);
7690   DumpLevel(&level);
7691
7692   CloseAllAndExit(0);
7693 }
7694
7695
7696 // ============================================================================
7697 // tape file functions
7698 // ============================================================================
7699
7700 static void setTapeInfoToDefaults(void)
7701 {
7702   int i;
7703
7704   // always start with reliable default values (empty tape)
7705   TapeErase();
7706
7707   // default values (also for pre-1.2 tapes) with only the first player
7708   tape.player_participates[0] = TRUE;
7709   for (i = 1; i < MAX_PLAYERS; i++)
7710     tape.player_participates[i] = FALSE;
7711
7712   // at least one (default: the first) player participates in every tape
7713   tape.num_participating_players = 1;
7714
7715   tape.property_bits = TAPE_PROPERTY_NONE;
7716
7717   tape.level_nr = level_nr;
7718   tape.counter = 0;
7719   tape.changed = FALSE;
7720
7721   tape.recording = FALSE;
7722   tape.playing = FALSE;
7723   tape.pausing = FALSE;
7724
7725   tape.scr_fieldx = SCR_FIELDX_DEFAULT;
7726   tape.scr_fieldy = SCR_FIELDY_DEFAULT;
7727
7728   tape.no_valid_file = FALSE;
7729 }
7730
7731 static int getTapePosSize(struct TapeInfo *tape)
7732 {
7733   int tape_pos_size = 0;
7734
7735   if (tape->use_key_actions)
7736     tape_pos_size += tape->num_participating_players;
7737
7738   if (tape->use_mouse_actions)
7739     tape_pos_size += 3;         // x and y position and mouse button mask
7740
7741   tape_pos_size += 1;           // tape action delay value
7742
7743   return tape_pos_size;
7744 }
7745
7746 static void setTapeActionFlags(struct TapeInfo *tape, int value)
7747 {
7748   tape->use_key_actions = FALSE;
7749   tape->use_mouse_actions = FALSE;
7750
7751   if (value != TAPE_USE_MOUSE_ACTIONS_ONLY)
7752     tape->use_key_actions = TRUE;
7753
7754   if (value != TAPE_USE_KEY_ACTIONS_ONLY)
7755     tape->use_mouse_actions = TRUE;
7756 }
7757
7758 static int getTapeActionValue(struct TapeInfo *tape)
7759 {
7760   return (tape->use_key_actions &&
7761           tape->use_mouse_actions ? TAPE_USE_KEY_AND_MOUSE_ACTIONS :
7762           tape->use_key_actions   ? TAPE_USE_KEY_ACTIONS_ONLY :
7763           tape->use_mouse_actions ? TAPE_USE_MOUSE_ACTIONS_ONLY :
7764           TAPE_ACTIONS_DEFAULT);
7765 }
7766
7767 static int LoadTape_VERS(File *file, int chunk_size, struct TapeInfo *tape)
7768 {
7769   tape->file_version = getFileVersion(file);
7770   tape->game_version = getFileVersion(file);
7771
7772   return chunk_size;
7773 }
7774
7775 static int LoadTape_HEAD(File *file, int chunk_size, struct TapeInfo *tape)
7776 {
7777   int i;
7778
7779   tape->random_seed = getFile32BitBE(file);
7780   tape->date        = getFile32BitBE(file);
7781   tape->length      = getFile32BitBE(file);
7782
7783   // read header fields that are new since version 1.2
7784   if (tape->file_version >= FILE_VERSION_1_2)
7785   {
7786     byte store_participating_players = getFile8Bit(file);
7787     int engine_version;
7788
7789     // since version 1.2, tapes store which players participate in the tape
7790     tape->num_participating_players = 0;
7791     for (i = 0; i < MAX_PLAYERS; i++)
7792     {
7793       tape->player_participates[i] = FALSE;
7794
7795       if (store_participating_players & (1 << i))
7796       {
7797         tape->player_participates[i] = TRUE;
7798         tape->num_participating_players++;
7799       }
7800     }
7801
7802     setTapeActionFlags(tape, getFile8Bit(file));
7803
7804     tape->property_bits = getFile8Bit(file);
7805
7806     ReadUnusedBytesFromFile(file, TAPE_CHUNK_HEAD_UNUSED);
7807
7808     engine_version = getFileVersion(file);
7809     if (engine_version > 0)
7810       tape->engine_version = engine_version;
7811     else
7812       tape->engine_version = tape->game_version;
7813   }
7814
7815   return chunk_size;
7816 }
7817
7818 static int LoadTape_SCRN(File *file, int chunk_size, struct TapeInfo *tape)
7819 {
7820   tape->scr_fieldx = getFile8Bit(file);
7821   tape->scr_fieldy = getFile8Bit(file);
7822
7823   return chunk_size;
7824 }
7825
7826 static int LoadTape_INFO(File *file, int chunk_size, struct TapeInfo *tape)
7827 {
7828   char *level_identifier = NULL;
7829   int level_identifier_size;
7830   int i;
7831
7832   level_identifier_size = getFile16BitBE(file);
7833
7834   level_identifier = checked_malloc(level_identifier_size);
7835
7836   for (i = 0; i < level_identifier_size; i++)
7837     level_identifier[i] = getFile8Bit(file);
7838
7839   strncpy(tape->level_identifier, level_identifier, MAX_FILENAME_LEN);
7840   tape->level_identifier[MAX_FILENAME_LEN] = '\0';
7841
7842   checked_free(level_identifier);
7843
7844   tape->level_nr = getFile16BitBE(file);
7845
7846   chunk_size = 2 + level_identifier_size + 2;
7847
7848   return chunk_size;
7849 }
7850
7851 static int LoadTape_BODY(File *file, int chunk_size, struct TapeInfo *tape)
7852 {
7853   int i, j;
7854   int tape_pos_size = getTapePosSize(tape);
7855   int chunk_size_expected = tape_pos_size * tape->length;
7856
7857   if (chunk_size_expected != chunk_size)
7858   {
7859     ReadUnusedBytesFromFile(file, chunk_size);
7860     return chunk_size_expected;
7861   }
7862
7863   for (i = 0; i < tape->length; i++)
7864   {
7865     if (i >= MAX_TAPE_LEN)
7866     {
7867       Warn("tape truncated -- size exceeds maximum tape size %d",
7868             MAX_TAPE_LEN);
7869
7870       // tape too large; read and ignore remaining tape data from this chunk
7871       for (;i < tape->length; i++)
7872         ReadUnusedBytesFromFile(file, tape_pos_size);
7873
7874       break;
7875     }
7876
7877     if (tape->use_key_actions)
7878     {
7879       for (j = 0; j < MAX_PLAYERS; j++)
7880       {
7881         tape->pos[i].action[j] = MV_NONE;
7882
7883         if (tape->player_participates[j])
7884           tape->pos[i].action[j] = getFile8Bit(file);
7885       }
7886     }
7887
7888     if (tape->use_mouse_actions)
7889     {
7890       tape->pos[i].action[TAPE_ACTION_LX]     = getFile8Bit(file);
7891       tape->pos[i].action[TAPE_ACTION_LY]     = getFile8Bit(file);
7892       tape->pos[i].action[TAPE_ACTION_BUTTON] = getFile8Bit(file);
7893     }
7894
7895     tape->pos[i].delay = getFile8Bit(file);
7896
7897     if (tape->file_version == FILE_VERSION_1_0)
7898     {
7899       // eliminate possible diagonal moves in old tapes
7900       // this is only for backward compatibility
7901
7902       byte joy_dir[4] = { JOY_LEFT, JOY_RIGHT, JOY_UP, JOY_DOWN };
7903       byte action = tape->pos[i].action[0];
7904       int k, num_moves = 0;
7905
7906       for (k = 0; k<4; k++)
7907       {
7908         if (action & joy_dir[k])
7909         {
7910           tape->pos[i + num_moves].action[0] = joy_dir[k];
7911           if (num_moves > 0)
7912             tape->pos[i + num_moves].delay = 0;
7913           num_moves++;
7914         }
7915       }
7916
7917       if (num_moves > 1)
7918       {
7919         num_moves--;
7920         i += num_moves;
7921         tape->length += num_moves;
7922       }
7923     }
7924     else if (tape->file_version < FILE_VERSION_2_0)
7925     {
7926       // convert pre-2.0 tapes to new tape format
7927
7928       if (tape->pos[i].delay > 1)
7929       {
7930         // action part
7931         tape->pos[i + 1] = tape->pos[i];
7932         tape->pos[i + 1].delay = 1;
7933
7934         // delay part
7935         for (j = 0; j < MAX_PLAYERS; j++)
7936           tape->pos[i].action[j] = MV_NONE;
7937         tape->pos[i].delay--;
7938
7939         i++;
7940         tape->length++;
7941       }
7942     }
7943
7944     if (checkEndOfFile(file))
7945       break;
7946   }
7947
7948   if (i != tape->length)
7949     chunk_size = tape_pos_size * i;
7950
7951   return chunk_size;
7952 }
7953
7954 static void LoadTape_SokobanSolution(char *filename)
7955 {
7956   File *file;
7957   int move_delay = TILESIZE / level.initial_player_stepsize[0];
7958
7959   if (!(file = openFile(filename, MODE_READ)))
7960   {
7961     tape.no_valid_file = TRUE;
7962
7963     return;
7964   }
7965
7966   while (!checkEndOfFile(file))
7967   {
7968     unsigned char c = getByteFromFile(file);
7969
7970     if (checkEndOfFile(file))
7971       break;
7972
7973     switch (c)
7974     {
7975       case 'u':
7976       case 'U':
7977         tape.pos[tape.length].action[0] = MV_UP;
7978         tape.pos[tape.length].delay = move_delay + (c < 'a' ? 2 : 0);
7979         tape.length++;
7980         break;
7981
7982       case 'd':
7983       case 'D':
7984         tape.pos[tape.length].action[0] = MV_DOWN;
7985         tape.pos[tape.length].delay = move_delay + (c < 'a' ? 2 : 0);
7986         tape.length++;
7987         break;
7988
7989       case 'l':
7990       case 'L':
7991         tape.pos[tape.length].action[0] = MV_LEFT;
7992         tape.pos[tape.length].delay = move_delay + (c < 'a' ? 2 : 0);
7993         tape.length++;
7994         break;
7995
7996       case 'r':
7997       case 'R':
7998         tape.pos[tape.length].action[0] = MV_RIGHT;
7999         tape.pos[tape.length].delay = move_delay + (c < 'a' ? 2 : 0);
8000         tape.length++;
8001         break;
8002
8003       case '\n':
8004       case '\r':
8005       case '\t':
8006       case ' ':
8007         // ignore white-space characters
8008         break;
8009
8010       default:
8011         tape.no_valid_file = TRUE;
8012
8013         Warn("unsupported Sokoban solution file '%s' ['%d']", filename, c);
8014
8015         break;
8016     }
8017   }
8018
8019   closeFile(file);
8020
8021   if (tape.no_valid_file)
8022     return;
8023
8024   tape.length_frames  = GetTapeLengthFrames();
8025   tape.length_seconds = GetTapeLengthSeconds();
8026 }
8027
8028 void LoadTapeFromFilename(char *filename)
8029 {
8030   char cookie[MAX_LINE_LEN];
8031   char chunk_name[CHUNK_ID_LEN + 1];
8032   File *file;
8033   int chunk_size;
8034
8035   // always start with reliable default values
8036   setTapeInfoToDefaults();
8037
8038   if (strSuffix(filename, ".sln"))
8039   {
8040     LoadTape_SokobanSolution(filename);
8041
8042     return;
8043   }
8044
8045   if (!(file = openFile(filename, MODE_READ)))
8046   {
8047     tape.no_valid_file = TRUE;
8048
8049     return;
8050   }
8051
8052   getFileChunkBE(file, chunk_name, NULL);
8053   if (strEqual(chunk_name, "RND1"))
8054   {
8055     getFile32BitBE(file);               // not used
8056
8057     getFileChunkBE(file, chunk_name, NULL);
8058     if (!strEqual(chunk_name, "TAPE"))
8059     {
8060       tape.no_valid_file = TRUE;
8061
8062       Warn("unknown format of tape file '%s'", filename);
8063
8064       closeFile(file);
8065
8066       return;
8067     }
8068   }
8069   else  // check for pre-2.0 file format with cookie string
8070   {
8071     strcpy(cookie, chunk_name);
8072     if (getStringFromFile(file, &cookie[4], MAX_LINE_LEN - 4) == NULL)
8073       cookie[4] = '\0';
8074     if (strlen(cookie) > 0 && cookie[strlen(cookie) - 1] == '\n')
8075       cookie[strlen(cookie) - 1] = '\0';
8076
8077     if (!checkCookieString(cookie, TAPE_COOKIE_TMPL))
8078     {
8079       tape.no_valid_file = TRUE;
8080
8081       Warn("unknown format of tape file '%s'", filename);
8082
8083       closeFile(file);
8084
8085       return;
8086     }
8087
8088     if ((tape.file_version = getFileVersionFromCookieString(cookie)) == -1)
8089     {
8090       tape.no_valid_file = TRUE;
8091
8092       Warn("unsupported version of tape file '%s'", filename);
8093
8094       closeFile(file);
8095
8096       return;
8097     }
8098
8099     // pre-2.0 tape files have no game version, so use file version here
8100     tape.game_version = tape.file_version;
8101   }
8102
8103   if (tape.file_version < FILE_VERSION_1_2)
8104   {
8105     // tape files from versions before 1.2.0 without chunk structure
8106     LoadTape_HEAD(file, TAPE_CHUNK_HEAD_SIZE, &tape);
8107     LoadTape_BODY(file, 2 * tape.length,      &tape);
8108   }
8109   else
8110   {
8111     static struct
8112     {
8113       char *name;
8114       int size;
8115       int (*loader)(File *, int, struct TapeInfo *);
8116     }
8117     chunk_info[] =
8118     {
8119       { "VERS", TAPE_CHUNK_VERS_SIZE,   LoadTape_VERS },
8120       { "HEAD", TAPE_CHUNK_HEAD_SIZE,   LoadTape_HEAD },
8121       { "SCRN", TAPE_CHUNK_SCRN_SIZE,   LoadTape_SCRN },
8122       { "INFO", -1,                     LoadTape_INFO },
8123       { "BODY", -1,                     LoadTape_BODY },
8124       {  NULL,  0,                      NULL }
8125     };
8126
8127     while (getFileChunkBE(file, chunk_name, &chunk_size))
8128     {
8129       int i = 0;
8130
8131       while (chunk_info[i].name != NULL &&
8132              !strEqual(chunk_name, chunk_info[i].name))
8133         i++;
8134
8135       if (chunk_info[i].name == NULL)
8136       {
8137         Warn("unknown chunk '%s' in tape file '%s'",
8138               chunk_name, filename);
8139
8140         ReadUnusedBytesFromFile(file, chunk_size);
8141       }
8142       else if (chunk_info[i].size != -1 &&
8143                chunk_info[i].size != chunk_size)
8144       {
8145         Warn("wrong size (%d) of chunk '%s' in tape file '%s'",
8146               chunk_size, chunk_name, filename);
8147
8148         ReadUnusedBytesFromFile(file, chunk_size);
8149       }
8150       else
8151       {
8152         // call function to load this tape chunk
8153         int chunk_size_expected =
8154           (chunk_info[i].loader)(file, chunk_size, &tape);
8155
8156         // the size of some chunks cannot be checked before reading other
8157         // chunks first (like "HEAD" and "BODY") that contain some header
8158         // information, so check them here
8159         if (chunk_size_expected != chunk_size)
8160         {
8161           Warn("wrong size (%d) of chunk '%s' in tape file '%s'",
8162                 chunk_size, chunk_name, filename);
8163         }
8164       }
8165     }
8166   }
8167
8168   closeFile(file);
8169
8170   tape.length_frames  = GetTapeLengthFrames();
8171   tape.length_seconds = GetTapeLengthSeconds();
8172
8173 #if 0
8174   Debug("files:LoadTapeFromFilename", "tape file version: %d",
8175         tape.file_version);
8176   Debug("files:LoadTapeFromFilename", "tape game version: %d",
8177         tape.game_version);
8178   Debug("files:LoadTapeFromFilename", "tape engine version: %d",
8179         tape.engine_version);
8180 #endif
8181 }
8182
8183 void LoadTape(int nr)
8184 {
8185   char *filename = getTapeFilename(nr);
8186
8187   LoadTapeFromFilename(filename);
8188 }
8189
8190 void LoadSolutionTape(int nr)
8191 {
8192   char *filename = getSolutionTapeFilename(nr);
8193
8194   LoadTapeFromFilename(filename);
8195
8196   if (TAPE_IS_EMPTY(tape) &&
8197       level.game_engine_type == GAME_ENGINE_TYPE_SP &&
8198       level.native_sp_level->demo.is_available)
8199     CopyNativeTape_SP_to_RND(&level);
8200 }
8201
8202 static boolean checkSaveTape_SCRN(struct TapeInfo *tape)
8203 {
8204   // chunk required for team mode tapes with non-default screen size
8205   return (tape->num_participating_players > 1 &&
8206           (tape->scr_fieldx != SCR_FIELDX_DEFAULT ||
8207            tape->scr_fieldy != SCR_FIELDY_DEFAULT));
8208 }
8209
8210 static void SaveTape_VERS(FILE *file, struct TapeInfo *tape)
8211 {
8212   putFileVersion(file, tape->file_version);
8213   putFileVersion(file, tape->game_version);
8214 }
8215
8216 static void SaveTape_HEAD(FILE *file, struct TapeInfo *tape)
8217 {
8218   int i;
8219   byte store_participating_players = 0;
8220
8221   // set bits for participating players for compact storage
8222   for (i = 0; i < MAX_PLAYERS; i++)
8223     if (tape->player_participates[i])
8224       store_participating_players |= (1 << i);
8225
8226   putFile32BitBE(file, tape->random_seed);
8227   putFile32BitBE(file, tape->date);
8228   putFile32BitBE(file, tape->length);
8229
8230   putFile8Bit(file, store_participating_players);
8231
8232   putFile8Bit(file, getTapeActionValue(tape));
8233
8234   putFile8Bit(file, tape->property_bits);
8235
8236   // unused bytes not at the end here for 4-byte alignment of engine_version
8237   WriteUnusedBytesToFile(file, TAPE_CHUNK_HEAD_UNUSED);
8238
8239   putFileVersion(file, tape->engine_version);
8240 }
8241
8242 static void SaveTape_SCRN(FILE *file, struct TapeInfo *tape)
8243 {
8244   putFile8Bit(file, tape->scr_fieldx);
8245   putFile8Bit(file, tape->scr_fieldy);
8246 }
8247
8248 static void SaveTape_INFO(FILE *file, struct TapeInfo *tape)
8249 {
8250   int level_identifier_size = strlen(tape->level_identifier) + 1;
8251   int i;
8252
8253   putFile16BitBE(file, level_identifier_size);
8254
8255   for (i = 0; i < level_identifier_size; i++)
8256     putFile8Bit(file, tape->level_identifier[i]);
8257
8258   putFile16BitBE(file, tape->level_nr);
8259 }
8260
8261 static void SaveTape_BODY(FILE *file, struct TapeInfo *tape)
8262 {
8263   int i, j;
8264
8265   for (i = 0; i < tape->length; i++)
8266   {
8267     if (tape->use_key_actions)
8268     {
8269       for (j = 0; j < MAX_PLAYERS; j++)
8270         if (tape->player_participates[j])
8271           putFile8Bit(file, tape->pos[i].action[j]);
8272     }
8273
8274     if (tape->use_mouse_actions)
8275     {
8276       putFile8Bit(file, tape->pos[i].action[TAPE_ACTION_LX]);
8277       putFile8Bit(file, tape->pos[i].action[TAPE_ACTION_LY]);
8278       putFile8Bit(file, tape->pos[i].action[TAPE_ACTION_BUTTON]);
8279     }
8280
8281     putFile8Bit(file, tape->pos[i].delay);
8282   }
8283 }
8284
8285 void SaveTapeToFilename(char *filename)
8286 {
8287   FILE *file;
8288   int tape_pos_size;
8289   int info_chunk_size;
8290   int body_chunk_size;
8291
8292   if (!(file = fopen(filename, MODE_WRITE)))
8293   {
8294     Warn("cannot save level recording file '%s'", filename);
8295
8296     return;
8297   }
8298
8299   tape_pos_size = getTapePosSize(&tape);
8300
8301   info_chunk_size = 2 + (strlen(tape.level_identifier) + 1) + 2;
8302   body_chunk_size = tape_pos_size * tape.length;
8303
8304   putFileChunkBE(file, "RND1", CHUNK_SIZE_UNDEFINED);
8305   putFileChunkBE(file, "TAPE", CHUNK_SIZE_NONE);
8306
8307   putFileChunkBE(file, "VERS", TAPE_CHUNK_VERS_SIZE);
8308   SaveTape_VERS(file, &tape);
8309
8310   putFileChunkBE(file, "HEAD", TAPE_CHUNK_HEAD_SIZE);
8311   SaveTape_HEAD(file, &tape);
8312
8313   if (checkSaveTape_SCRN(&tape))
8314   {
8315     putFileChunkBE(file, "SCRN", TAPE_CHUNK_SCRN_SIZE);
8316     SaveTape_SCRN(file, &tape);
8317   }
8318
8319   putFileChunkBE(file, "INFO", info_chunk_size);
8320   SaveTape_INFO(file, &tape);
8321
8322   putFileChunkBE(file, "BODY", body_chunk_size);
8323   SaveTape_BODY(file, &tape);
8324
8325   fclose(file);
8326
8327   SetFilePermissions(filename, PERMS_PRIVATE);
8328 }
8329
8330 static void SaveTapeExt(char *filename)
8331 {
8332   int i;
8333
8334   tape.file_version = FILE_VERSION_ACTUAL;
8335   tape.game_version = GAME_VERSION_ACTUAL;
8336
8337   tape.num_participating_players = 0;
8338
8339   // count number of participating players
8340   for (i = 0; i < MAX_PLAYERS; i++)
8341     if (tape.player_participates[i])
8342       tape.num_participating_players++;
8343
8344   SaveTapeToFilename(filename);
8345
8346   tape.changed = FALSE;
8347 }
8348
8349 void SaveTape(int nr)
8350 {
8351   char *filename = getTapeFilename(nr);
8352
8353   InitTapeDirectory(leveldir_current->subdir);
8354
8355   SaveTapeExt(filename);
8356 }
8357
8358 void SaveScoreTape(int nr)
8359 {
8360   char *filename = getScoreTapeFilename(tape.score_tape_basename, nr);
8361
8362   // used instead of "leveldir_current->subdir" (for network games)
8363   InitScoreTapeDirectory(levelset.identifier, nr);
8364
8365   SaveTapeExt(filename);
8366 }
8367
8368 static boolean SaveTapeCheckedExt(int nr, char *msg_replace, char *msg_saved,
8369                                   unsigned int req_state_added)
8370 {
8371   char *filename = getTapeFilename(nr);
8372   boolean new_tape = !fileExists(filename);
8373   boolean tape_saved = FALSE;
8374
8375   if (new_tape || Request(msg_replace, REQ_ASK | req_state_added))
8376   {
8377     SaveTape(nr);
8378
8379     if (new_tape)
8380       Request(msg_saved, REQ_CONFIRM | req_state_added);
8381
8382     tape_saved = TRUE;
8383   }
8384
8385   return tape_saved;
8386 }
8387
8388 boolean SaveTapeChecked(int nr)
8389 {
8390   return SaveTapeCheckedExt(nr, "Replace old tape?", "Tape saved!", 0);
8391 }
8392
8393 boolean SaveTapeChecked_LevelSolved(int nr)
8394 {
8395   return SaveTapeCheckedExt(nr, "Level solved! Replace old tape?",
8396                                 "Level solved! Tape saved!", REQ_STAY_OPEN);
8397 }
8398
8399 void DumpTape(struct TapeInfo *tape)
8400 {
8401   int tape_frame_counter;
8402   int i, j;
8403
8404   if (tape->no_valid_file)
8405   {
8406     Warn("cannot dump -- no valid tape file found");
8407
8408     return;
8409   }
8410
8411   PrintLine("-", 79);
8412   Print("Tape of Level %03d (file version %08d, game version %08d)\n",
8413         tape->level_nr, tape->file_version, tape->game_version);
8414   Print("                  (effective engine version %08d)\n",
8415         tape->engine_version);
8416   Print("Level series identifier: '%s'\n", tape->level_identifier);
8417   PrintLine("-", 79);
8418
8419   tape_frame_counter = 0;
8420
8421   for (i = 0; i < tape->length; i++)
8422   {
8423     if (i >= MAX_TAPE_LEN)
8424       break;
8425
8426     Print("%04d: ", i);
8427
8428     for (j = 0; j < MAX_PLAYERS; j++)
8429     {
8430       if (tape->player_participates[j])
8431       {
8432         int action = tape->pos[i].action[j];
8433
8434         Print("%d:%02x ", j, action);
8435         Print("[%c%c%c%c|%c%c] - ",
8436               (action & JOY_LEFT ? '<' : ' '),
8437               (action & JOY_RIGHT ? '>' : ' '),
8438               (action & JOY_UP ? '^' : ' '),
8439               (action & JOY_DOWN ? 'v' : ' '),
8440               (action & JOY_BUTTON_1 ? '1' : ' '),
8441               (action & JOY_BUTTON_2 ? '2' : ' '));
8442       }
8443     }
8444
8445     Print("(%03d) ", tape->pos[i].delay);
8446     Print("[%05d]\n", tape_frame_counter);
8447
8448     tape_frame_counter += tape->pos[i].delay;
8449   }
8450
8451   PrintLine("-", 79);
8452 }
8453
8454 void DumpTapes(void)
8455 {
8456   static LevelDirTree *dumptape_leveldir = NULL;
8457
8458   dumptape_leveldir = getTreeInfoFromIdentifier(leveldir_first,
8459                                                 global.dumptape_leveldir);
8460
8461   if (dumptape_leveldir == NULL)
8462     Fail("no such level identifier: '%s'", global.dumptape_leveldir);
8463
8464   if (global.dumptape_level_nr < dumptape_leveldir->first_level ||
8465       global.dumptape_level_nr > dumptape_leveldir->last_level)
8466     Fail("no such level number: %d", global.dumptape_level_nr);
8467
8468   leveldir_current = dumptape_leveldir;
8469
8470   if (options.mytapes)
8471     LoadTape(global.dumptape_level_nr);
8472   else
8473     LoadSolutionTape(global.dumptape_level_nr);
8474
8475   DumpTape(&tape);
8476
8477   CloseAllAndExit(0);
8478 }
8479
8480
8481 // ============================================================================
8482 // score file functions
8483 // ============================================================================
8484
8485 static void setScoreInfoToDefaultsExt(struct ScoreInfo *scores)
8486 {
8487   int i;
8488
8489   for (i = 0; i < MAX_SCORE_ENTRIES; i++)
8490   {
8491     strcpy(scores->entry[i].tape_basename, UNDEFINED_FILENAME);
8492     strcpy(scores->entry[i].name, EMPTY_PLAYER_NAME);
8493     scores->entry[i].score = 0;
8494     scores->entry[i].time = 0;
8495   }
8496
8497   scores->num_entries = 0;
8498   scores->last_added = -1;
8499   scores->last_added_local = -1;
8500
8501   scores->updated = FALSE;
8502   scores->force_last_added = FALSE;
8503 }
8504
8505 static void setScoreInfoToDefaults(void)
8506 {
8507   setScoreInfoToDefaultsExt(&scores);
8508 }
8509
8510 static void setServerScoreInfoToDefaults(void)
8511 {
8512   setScoreInfoToDefaultsExt(&server_scores);
8513 }
8514
8515 static void LoadScore_OLD(int nr)
8516 {
8517   int i;
8518   char *filename = getScoreFilename(nr);
8519   char cookie[MAX_LINE_LEN];
8520   char line[MAX_LINE_LEN];
8521   char *line_ptr;
8522   FILE *file;
8523
8524   if (!(file = fopen(filename, MODE_READ)))
8525     return;
8526
8527   // check file identifier
8528   if (fgets(cookie, MAX_LINE_LEN, file) == NULL)
8529     cookie[0] = '\0';
8530   if (strlen(cookie) > 0 && cookie[strlen(cookie) - 1] == '\n')
8531     cookie[strlen(cookie) - 1] = '\0';
8532
8533   if (!checkCookieString(cookie, SCORE_COOKIE_TMPL))
8534   {
8535     Warn("unknown format of score file '%s'", filename);
8536
8537     fclose(file);
8538
8539     return;
8540   }
8541
8542   for (i = 0; i < MAX_SCORE_ENTRIES; i++)
8543   {
8544     if (fscanf(file, "%d", &scores.entry[i].score) == EOF)
8545       Warn("fscanf() failed; %s", strerror(errno));
8546
8547     if (fgets(line, MAX_LINE_LEN, file) == NULL)
8548       line[0] = '\0';
8549
8550     if (strlen(line) > 0 && line[strlen(line) - 1] == '\n')
8551       line[strlen(line) - 1] = '\0';
8552
8553     for (line_ptr = line; *line_ptr; line_ptr++)
8554     {
8555       if (*line_ptr != ' ' && *line_ptr != '\t' && *line_ptr != '\0')
8556       {
8557         strncpy(scores.entry[i].name, line_ptr, MAX_PLAYER_NAME_LEN);
8558         scores.entry[i].name[MAX_PLAYER_NAME_LEN] = '\0';
8559         break;
8560       }
8561     }
8562   }
8563
8564   fclose(file);
8565 }
8566
8567 static void ConvertScore_OLD(void)
8568 {
8569   // only convert score to time for levels that rate playing time over score
8570   if (!level.rate_time_over_score)
8571     return;
8572
8573   // convert old score to playing time for score-less levels (like Supaplex)
8574   int time_final_max = 999;
8575   int i;
8576
8577   for (i = 0; i < MAX_SCORE_ENTRIES; i++)
8578   {
8579     int score = scores.entry[i].score;
8580
8581     if (score > 0 && score < time_final_max)
8582       scores.entry[i].time = (time_final_max - score - 1) * FRAMES_PER_SECOND;
8583   }
8584 }
8585
8586 static int LoadScore_VERS(File *file, int chunk_size, struct ScoreInfo *scores)
8587 {
8588   scores->file_version = getFileVersion(file);
8589   scores->game_version = getFileVersion(file);
8590
8591   return chunk_size;
8592 }
8593
8594 static int LoadScore_INFO(File *file, int chunk_size, struct ScoreInfo *scores)
8595 {
8596   char *level_identifier = NULL;
8597   int level_identifier_size;
8598   int i;
8599
8600   level_identifier_size = getFile16BitBE(file);
8601
8602   level_identifier = checked_malloc(level_identifier_size);
8603
8604   for (i = 0; i < level_identifier_size; i++)
8605     level_identifier[i] = getFile8Bit(file);
8606
8607   strncpy(scores->level_identifier, level_identifier, MAX_FILENAME_LEN);
8608   scores->level_identifier[MAX_FILENAME_LEN] = '\0';
8609
8610   checked_free(level_identifier);
8611
8612   scores->level_nr = getFile16BitBE(file);
8613   scores->num_entries = getFile16BitBE(file);
8614
8615   chunk_size = 2 + level_identifier_size + 2 + 2;
8616
8617   return chunk_size;
8618 }
8619
8620 static int LoadScore_NAME(File *file, int chunk_size, struct ScoreInfo *scores)
8621 {
8622   int i, j;
8623
8624   for (i = 0; i < scores->num_entries; i++)
8625   {
8626     for (j = 0; j < MAX_PLAYER_NAME_LEN; j++)
8627       scores->entry[i].name[j] = getFile8Bit(file);
8628
8629     scores->entry[i].name[MAX_PLAYER_NAME_LEN] = '\0';
8630   }
8631
8632   chunk_size = scores->num_entries * MAX_PLAYER_NAME_LEN;
8633
8634   return chunk_size;
8635 }
8636
8637 static int LoadScore_SCOR(File *file, int chunk_size, struct ScoreInfo *scores)
8638 {
8639   int i;
8640
8641   for (i = 0; i < scores->num_entries; i++)
8642     scores->entry[i].score = getFile16BitBE(file);
8643
8644   chunk_size = scores->num_entries * 2;
8645
8646   return chunk_size;
8647 }
8648
8649 static int LoadScore_TIME(File *file, int chunk_size, struct ScoreInfo *scores)
8650 {
8651   int i;
8652
8653   for (i = 0; i < scores->num_entries; i++)
8654     scores->entry[i].time = getFile32BitBE(file);
8655
8656   chunk_size = scores->num_entries * 4;
8657
8658   return chunk_size;
8659 }
8660
8661 static int LoadScore_TAPE(File *file, int chunk_size, struct ScoreInfo *scores)
8662 {
8663   int i, j;
8664
8665   for (i = 0; i < scores->num_entries; i++)
8666   {
8667     for (j = 0; j < MAX_SCORE_TAPE_BASENAME_LEN; j++)
8668       scores->entry[i].tape_basename[j] = getFile8Bit(file);
8669
8670     scores->entry[i].tape_basename[MAX_SCORE_TAPE_BASENAME_LEN] = '\0';
8671   }
8672
8673   chunk_size = scores->num_entries * MAX_SCORE_TAPE_BASENAME_LEN;
8674
8675   return chunk_size;
8676 }
8677
8678 void LoadScore(int nr)
8679 {
8680   char *filename = getScoreFilename(nr);
8681   char cookie[MAX_LINE_LEN];
8682   char chunk_name[CHUNK_ID_LEN + 1];
8683   int chunk_size;
8684   boolean old_score_file_format = FALSE;
8685   File *file;
8686
8687   // always start with reliable default values
8688   setScoreInfoToDefaults();
8689
8690   if (!(file = openFile(filename, MODE_READ)))
8691     return;
8692
8693   getFileChunkBE(file, chunk_name, NULL);
8694   if (strEqual(chunk_name, "RND1"))
8695   {
8696     getFile32BitBE(file);               // not used
8697
8698     getFileChunkBE(file, chunk_name, NULL);
8699     if (!strEqual(chunk_name, "SCOR"))
8700     {
8701       Warn("unknown format of score file '%s'", filename);
8702
8703       closeFile(file);
8704
8705       return;
8706     }
8707   }
8708   else  // check for old file format with cookie string
8709   {
8710     strcpy(cookie, chunk_name);
8711     if (getStringFromFile(file, &cookie[4], MAX_LINE_LEN - 4) == NULL)
8712       cookie[4] = '\0';
8713     if (strlen(cookie) > 0 && cookie[strlen(cookie) - 1] == '\n')
8714       cookie[strlen(cookie) - 1] = '\0';
8715
8716     if (!checkCookieString(cookie, SCORE_COOKIE_TMPL))
8717     {
8718       Warn("unknown format of score file '%s'", filename);
8719
8720       closeFile(file);
8721
8722       return;
8723     }
8724
8725     old_score_file_format = TRUE;
8726   }
8727
8728   if (old_score_file_format)
8729   {
8730     // score files from versions before 4.2.4.0 without chunk structure
8731     LoadScore_OLD(nr);
8732
8733     // convert score to time, if possible (mainly for Supaplex levels)
8734     ConvertScore_OLD();
8735   }
8736   else
8737   {
8738     static struct
8739     {
8740       char *name;
8741       int size;
8742       int (*loader)(File *, int, struct ScoreInfo *);
8743     }
8744     chunk_info[] =
8745     {
8746       { "VERS", SCORE_CHUNK_VERS_SIZE,  LoadScore_VERS },
8747       { "INFO", -1,                     LoadScore_INFO },
8748       { "NAME", -1,                     LoadScore_NAME },
8749       { "SCOR", -1,                     LoadScore_SCOR },
8750       { "TIME", -1,                     LoadScore_TIME },
8751       { "TAPE", -1,                     LoadScore_TAPE },
8752
8753       {  NULL,  0,                      NULL }
8754     };
8755
8756     while (getFileChunkBE(file, chunk_name, &chunk_size))
8757     {
8758       int i = 0;
8759
8760       while (chunk_info[i].name != NULL &&
8761              !strEqual(chunk_name, chunk_info[i].name))
8762         i++;
8763
8764       if (chunk_info[i].name == NULL)
8765       {
8766         Warn("unknown chunk '%s' in score file '%s'",
8767               chunk_name, filename);
8768
8769         ReadUnusedBytesFromFile(file, chunk_size);
8770       }
8771       else if (chunk_info[i].size != -1 &&
8772                chunk_info[i].size != chunk_size)
8773       {
8774         Warn("wrong size (%d) of chunk '%s' in score file '%s'",
8775               chunk_size, chunk_name, filename);
8776
8777         ReadUnusedBytesFromFile(file, chunk_size);
8778       }
8779       else
8780       {
8781         // call function to load this score chunk
8782         int chunk_size_expected =
8783           (chunk_info[i].loader)(file, chunk_size, &scores);
8784
8785         // the size of some chunks cannot be checked before reading other
8786         // chunks first (like "HEAD" and "BODY") that contain some header
8787         // information, so check them here
8788         if (chunk_size_expected != chunk_size)
8789         {
8790           Warn("wrong size (%d) of chunk '%s' in score file '%s'",
8791                 chunk_size, chunk_name, filename);
8792         }
8793       }
8794     }
8795   }
8796
8797   closeFile(file);
8798 }
8799
8800 #if ENABLE_HISTORIC_CHUNKS
8801 void SaveScore_OLD(int nr)
8802 {
8803   int i;
8804   char *filename = getScoreFilename(nr);
8805   FILE *file;
8806
8807   // used instead of "leveldir_current->subdir" (for network games)
8808   InitScoreDirectory(levelset.identifier);
8809
8810   if (!(file = fopen(filename, MODE_WRITE)))
8811   {
8812     Warn("cannot save score for level %d", nr);
8813
8814     return;
8815   }
8816
8817   fprintf(file, "%s\n\n", SCORE_COOKIE);
8818
8819   for (i = 0; i < MAX_SCORE_ENTRIES; i++)
8820     fprintf(file, "%d %s\n", scores.entry[i].score, scores.entry[i].name);
8821
8822   fclose(file);
8823
8824   SetFilePermissions(filename, PERMS_PRIVATE);
8825 }
8826 #endif
8827
8828 static void SaveScore_VERS(FILE *file, struct ScoreInfo *scores)
8829 {
8830   putFileVersion(file, scores->file_version);
8831   putFileVersion(file, scores->game_version);
8832 }
8833
8834 static void SaveScore_INFO(FILE *file, struct ScoreInfo *scores)
8835 {
8836   int level_identifier_size = strlen(scores->level_identifier) + 1;
8837   int i;
8838
8839   putFile16BitBE(file, level_identifier_size);
8840
8841   for (i = 0; i < level_identifier_size; i++)
8842     putFile8Bit(file, scores->level_identifier[i]);
8843
8844   putFile16BitBE(file, scores->level_nr);
8845   putFile16BitBE(file, scores->num_entries);
8846 }
8847
8848 static void SaveScore_NAME(FILE *file, struct ScoreInfo *scores)
8849 {
8850   int i, j;
8851
8852   for (i = 0; i < scores->num_entries; i++)
8853   {
8854     int name_size = strlen(scores->entry[i].name);
8855
8856     for (j = 0; j < MAX_PLAYER_NAME_LEN; j++)
8857       putFile8Bit(file, (j < name_size ? scores->entry[i].name[j] : 0));
8858   }
8859 }
8860
8861 static void SaveScore_SCOR(FILE *file, struct ScoreInfo *scores)
8862 {
8863   int i;
8864
8865   for (i = 0; i < scores->num_entries; i++)
8866     putFile16BitBE(file, scores->entry[i].score);
8867 }
8868
8869 static void SaveScore_TIME(FILE *file, struct ScoreInfo *scores)
8870 {
8871   int i;
8872
8873   for (i = 0; i < scores->num_entries; i++)
8874     putFile32BitBE(file, scores->entry[i].time);
8875 }
8876
8877 static void SaveScore_TAPE(FILE *file, struct ScoreInfo *scores)
8878 {
8879   int i, j;
8880
8881   for (i = 0; i < scores->num_entries; i++)
8882   {
8883     int size = strlen(scores->entry[i].tape_basename);
8884
8885     for (j = 0; j < MAX_SCORE_TAPE_BASENAME_LEN; j++)
8886       putFile8Bit(file, (j < size ? scores->entry[i].tape_basename[j] : 0));
8887   }
8888 }
8889
8890 static void SaveScoreToFilename(char *filename)
8891 {
8892   FILE *file;
8893   int info_chunk_size;
8894   int name_chunk_size;
8895   int scor_chunk_size;
8896   int time_chunk_size;
8897   int tape_chunk_size;
8898
8899   if (!(file = fopen(filename, MODE_WRITE)))
8900   {
8901     Warn("cannot save score file '%s'", filename);
8902
8903     return;
8904   }
8905
8906   info_chunk_size = 2 + (strlen(scores.level_identifier) + 1) + 2 + 2;
8907   name_chunk_size = scores.num_entries * MAX_PLAYER_NAME_LEN;
8908   scor_chunk_size = scores.num_entries * 2;
8909   time_chunk_size = scores.num_entries * 4;
8910   tape_chunk_size = scores.num_entries * MAX_SCORE_TAPE_BASENAME_LEN;
8911
8912   putFileChunkBE(file, "RND1", CHUNK_SIZE_UNDEFINED);
8913   putFileChunkBE(file, "SCOR", CHUNK_SIZE_NONE);
8914
8915   putFileChunkBE(file, "VERS", SCORE_CHUNK_VERS_SIZE);
8916   SaveScore_VERS(file, &scores);
8917
8918   putFileChunkBE(file, "INFO", info_chunk_size);
8919   SaveScore_INFO(file, &scores);
8920
8921   putFileChunkBE(file, "NAME", name_chunk_size);
8922   SaveScore_NAME(file, &scores);
8923
8924   putFileChunkBE(file, "SCOR", scor_chunk_size);
8925   SaveScore_SCOR(file, &scores);
8926
8927   putFileChunkBE(file, "TIME", time_chunk_size);
8928   SaveScore_TIME(file, &scores);
8929
8930   putFileChunkBE(file, "TAPE", tape_chunk_size);
8931   SaveScore_TAPE(file, &scores);
8932
8933   fclose(file);
8934
8935   SetFilePermissions(filename, PERMS_PRIVATE);
8936 }
8937
8938 void SaveScore(int nr)
8939 {
8940   char *filename = getScoreFilename(nr);
8941   int i;
8942
8943   // used instead of "leveldir_current->subdir" (for network games)
8944   InitScoreDirectory(levelset.identifier);
8945
8946   scores.file_version = FILE_VERSION_ACTUAL;
8947   scores.game_version = GAME_VERSION_ACTUAL;
8948
8949   strncpy(scores.level_identifier, levelset.identifier, MAX_FILENAME_LEN);
8950   scores.level_identifier[MAX_FILENAME_LEN] = '\0';
8951   scores.level_nr = level_nr;
8952
8953   for (i = 0; i < MAX_SCORE_ENTRIES; i++)
8954     if (scores.entry[i].score == 0 &&
8955         scores.entry[i].time == 0 &&
8956         strEqual(scores.entry[i].name, EMPTY_PLAYER_NAME))
8957       break;
8958
8959   scores.num_entries = i;
8960
8961   if (scores.num_entries == 0)
8962     return;
8963
8964   SaveScoreToFilename(filename);
8965 }
8966
8967 static void ExecuteAsThread(SDL_ThreadFunction function, char *name, int data,
8968                             char *error)
8969 {
8970   static int data_static;
8971
8972   data_static = data;
8973
8974   SDL_Thread *thread = SDL_CreateThread(function, name, &data_static);
8975
8976   if (thread != NULL)
8977     SDL_DetachThread(thread);
8978   else
8979     Error("Cannot create thread to %s!", error);
8980
8981   // nasty kludge to lower probability of intermingled thread error messages
8982   Delay(1);
8983 }
8984
8985 static void DownloadServerScoreToCacheExt(struct HttpRequest *request,
8986                                           struct HttpResponse *response,
8987                                           int nr)
8988 {
8989   request->hostname = setup.api_server_hostname;
8990   request->port     = API_SERVER_PORT;
8991   request->method   = API_SERVER_METHOD;
8992   request->uri      = API_SERVER_URI_GET;
8993
8994   snprintf(request->body, MAX_HTTP_BODY_SIZE,
8995            "{\n"
8996            "  \"levelset_identifier\":  \"%s\",\n"
8997            "  \"level_nr\":             \"%d\",\n"
8998            "  \"rate_time_over_score\": \"%d\"\n"
8999            "}\n",
9000            levelset.identifier, nr, level.rate_time_over_score);
9001
9002   if (!DoHttpRequest(request, response))
9003   {
9004     Error("HTTP request failed: %s", GetHttpError());
9005
9006     return;
9007   }
9008
9009   if (!HTTP_SUCCESS(response->status_code))
9010   {
9011     Error("server failed to handle request: %d %s",
9012           response->status_code,
9013           response->status_text);
9014
9015     return;
9016   }
9017
9018   if (response->body_size == 0)
9019   {
9020     // no scores available for this level
9021
9022     return;
9023   }
9024
9025   ConvertHttpResponseBodyToClientEncoding(response);
9026
9027   char *filename = getScoreCacheFilename(nr);
9028   FILE *file;
9029   int i;
9030
9031   // used instead of "leveldir_current->subdir" (for network games)
9032   InitScoreCacheDirectory(levelset.identifier);
9033
9034   if (!(file = fopen(filename, MODE_WRITE)))
9035   {
9036     Warn("cannot save score cache file '%s'", filename);
9037
9038     return;
9039   }
9040
9041   for (i = 0; i < response->body_size; i++)
9042     fputc(response->body[i], file);
9043
9044   fclose(file);
9045
9046   SetFilePermissions(filename, PERMS_PRIVATE);
9047
9048   server_scores.updated = TRUE;
9049 }
9050
9051 static void DownloadServerScoreToCache(int nr)
9052 {
9053   struct HttpRequest *request = checked_calloc(sizeof(struct HttpRequest));
9054   struct HttpResponse *response = checked_calloc(sizeof(struct HttpResponse));
9055
9056   DownloadServerScoreToCacheExt(request, response, nr);
9057
9058   checked_free(request);
9059   checked_free(response);
9060 }
9061
9062 static int DownloadServerScoreToCacheThread(void *data)
9063 {
9064   DownloadServerScoreToCache(*(int *)data);
9065
9066   return 0;
9067 }
9068
9069 static void DownloadServerScoreToCacheAsThread(int nr)
9070 {
9071   ExecuteAsThread(DownloadServerScoreToCacheThread,
9072                   "DownloadServerScoreToCache", nr,
9073                   "download scores from server");
9074 }
9075
9076 static void LoadServerScoreFromCache(int nr)
9077 {
9078   struct ScoreEntry score_entry;
9079   struct
9080   {
9081     void *value;
9082     boolean is_string;
9083     int string_size;
9084   }
9085   score_mapping[] =
9086   {
9087     { &score_entry.score,               FALSE,  0                       },
9088     { &score_entry.time,                FALSE,  0                       },
9089     { score_entry.name,                 TRUE,   MAX_PLAYER_NAME_LEN     },
9090     { score_entry.tape_basename,        TRUE,   MAX_FILENAME_LEN        },
9091
9092     { NULL,                             FALSE,  0                       }
9093   };
9094   char *filename = getScoreCacheFilename(nr);
9095   SetupFileHash *score_hash = loadSetupFileHash(filename);
9096   int i, j;
9097
9098   server_scores.num_entries = 0;
9099
9100   if (score_hash == NULL)
9101     return;
9102
9103   for (i = 0; i < MAX_SCORE_ENTRIES; i++)
9104   {
9105     score_entry = server_scores.entry[i];
9106
9107     for (j = 0; score_mapping[j].value != NULL; j++)
9108     {
9109       char token[10];
9110
9111       sprintf(token, "%02d.%d", i, j);
9112
9113       char *value = getHashEntry(score_hash, token);
9114
9115       if (value == NULL)
9116         continue;
9117
9118       if (score_mapping[j].is_string)
9119       {
9120         char *score_value = (char *)score_mapping[j].value;
9121         int value_size = score_mapping[j].string_size;
9122
9123         strncpy(score_value, value, value_size);
9124         score_value[value_size] = '\0';
9125       }
9126       else
9127       {
9128         int *score_value = (int *)score_mapping[j].value;
9129
9130         *score_value = atoi(value);
9131       }
9132
9133       server_scores.num_entries = i + 1;
9134     }
9135
9136     server_scores.entry[i] = score_entry;
9137   }
9138
9139   freeSetupFileHash(score_hash);
9140 }
9141
9142 void LoadServerScore(int nr, boolean download_score)
9143 {
9144   if (!setup.api_server)
9145     return;
9146
9147   // always start with reliable default values
9148   setServerScoreInfoToDefaults();
9149
9150   // 1st step: load server scores from cache file (which may not exist)
9151   // (this should prevent reading it while the thread is writing to it)
9152   LoadServerScoreFromCache(nr);
9153
9154   if (download_score && runtime.api_server)
9155   {
9156     // 2nd step: download server scores from score server to cache file
9157     // (as thread, as it might time out if the server is not reachable)
9158     DownloadServerScoreToCacheAsThread(nr);
9159   }
9160 }
9161
9162 static char *get_file_base64(char *filename)
9163 {
9164   struct stat file_status;
9165
9166   if (stat(filename, &file_status) != 0)
9167   {
9168     Error("cannot stat file '%s'\n", filename);
9169
9170     return NULL;
9171   }
9172
9173   int buffer_size = file_status.st_size;
9174   byte *buffer = checked_malloc(buffer_size);
9175   FILE *file;
9176   int i;
9177
9178   if (!(file = fopen(filename, MODE_READ)))
9179   {
9180     Error("cannot open file '%s'\n", filename);
9181
9182     checked_free(buffer);
9183
9184     return NULL;
9185   }
9186
9187   for (i = 0; i < buffer_size; i++)
9188   {
9189     int c = fgetc(file);
9190
9191     if (c == EOF)
9192     {
9193       Error("cannot read from input file '%s'\n", filename);
9194
9195       fclose(file);
9196       checked_free(buffer);
9197
9198       return NULL;
9199     }
9200
9201     buffer[i] = (byte)c;
9202   }
9203
9204   fclose(file);
9205
9206   int buffer_encoded_size = base64_encoded_size(buffer_size);
9207   char *buffer_encoded = checked_malloc(buffer_encoded_size);
9208
9209   base64_encode(buffer_encoded, buffer, buffer_size);
9210
9211   checked_free(buffer);
9212
9213   return buffer_encoded;
9214 }
9215
9216 static void UploadScoreToServerExt(struct HttpRequest *request,
9217                                    struct HttpResponse *response,
9218                                    int nr)
9219 {
9220   struct ScoreEntry *score_entry = &scores.entry[scores.last_added];
9221
9222   request->hostname = setup.api_server_hostname;
9223   request->port     = API_SERVER_PORT;
9224   request->method   = API_SERVER_METHOD;
9225   request->uri      = API_SERVER_URI_ADD;
9226
9227   char *tape_filename = getScoreTapeFilename(score_entry->tape_basename, nr);
9228   char *tape_base64 = get_file_base64(tape_filename);
9229
9230   if (tape_base64 == NULL)
9231   {
9232     Error("loading and base64 encoding score tape file failed");
9233
9234     return;
9235   }
9236
9237   snprintf(request->body, MAX_HTTP_BODY_SIZE,
9238            "{\n"
9239            "  \"game_version\":         \"%s\",\n"
9240            "  \"levelset_identifier\":  \"%s\",\n"
9241            "  \"levelset_name\":        \"%s\",\n"
9242            "  \"levelset_author\":      \"%s\",\n"
9243            "  \"levelset_num_levels\":  \"%d\",\n"
9244            "  \"levelset_first_level\": \"%d\",\n"
9245            "  \"level_nr\":             \"%d\",\n"
9246            "  \"player_name\":          \"%s\",\n"
9247            "  \"score\":                \"%d\",\n"
9248            "  \"time\":                 \"%d\",\n"
9249            "  \"tape_basename\":        \"%s\",\n"
9250            "  \"tape\":                 \"%s\"\n"
9251            "}\n",
9252            getProgramRealVersionString(),
9253            leveldir_current->identifier,
9254            leveldir_current->name,
9255            leveldir_current->author,
9256            leveldir_current->levels,
9257            leveldir_current->first_level,
9258            level_nr,
9259            score_entry->name,
9260            score_entry->score,
9261            score_entry->time,
9262            score_entry->tape_basename,
9263            tape_base64);
9264
9265   checked_free(tape_base64);
9266
9267   ConvertHttpRequestBodyToServerEncoding(request);
9268
9269   if (!DoHttpRequest(request, response))
9270   {
9271     Error("HTTP request failed: %s", GetHttpError());
9272
9273     return;
9274   }
9275
9276   if (!HTTP_SUCCESS(response->status_code))
9277   {
9278     Error("server failed to handle request: %d %s",
9279           response->status_code,
9280           response->status_text);
9281
9282     return;
9283   }
9284 }
9285
9286 static void UploadScoreToServer(int nr)
9287 {
9288   struct HttpRequest *request = checked_calloc(sizeof(struct HttpRequest));
9289   struct HttpResponse *response = checked_calloc(sizeof(struct HttpResponse));
9290
9291   UploadScoreToServerExt(request, response, nr);
9292
9293   checked_free(request);
9294   checked_free(response);
9295 }
9296
9297 static int UploadScoreToServerThread(void *data)
9298 {
9299   UploadScoreToServer(*(int *)data);
9300
9301   return 0;
9302 }
9303
9304 static void UploadScoreToServerAsThread(int nr)
9305 {
9306   ExecuteAsThread(UploadScoreToServerThread,
9307                   "UploadScoreToServer", nr,
9308                   "upload score to server");
9309 }
9310
9311 void SaveServerScore(int nr)
9312 {
9313   if (!runtime.api_server)
9314     return;
9315
9316   UploadScoreToServerAsThread(nr);
9317 }
9318
9319 void LoadLocalAndServerScore(int nr, boolean download_score)
9320 {
9321   int last_added_local = scores.last_added_local;
9322
9323   LoadScore(nr);
9324
9325   // restore last added local score entry (before merging server scores)
9326   scores.last_added = scores.last_added_local = last_added_local;
9327
9328   if (setup.api_server && !setup.only_show_local_scores)
9329   {
9330     // load server scores from cache file and trigger update from server
9331     LoadServerScore(nr, download_score);
9332
9333     // merge local scores with scores from server
9334     MergeServerScore();
9335   }
9336 }
9337
9338
9339 // ============================================================================
9340 // setup file functions
9341 // ============================================================================
9342
9343 #define TOKEN_STR_PLAYER_PREFIX                 "player_"
9344
9345
9346 static struct TokenInfo global_setup_tokens[] =
9347 {
9348   {
9349     TYPE_STRING,
9350     &setup.player_name,                         "player_name"
9351   },
9352   {
9353     TYPE_SWITCH,
9354     &setup.multiple_users,                      "multiple_users"
9355   },
9356   {
9357     TYPE_SWITCH,
9358     &setup.sound,                               "sound"
9359   },
9360   {
9361     TYPE_SWITCH,
9362     &setup.sound_loops,                         "repeating_sound_loops"
9363   },
9364   {
9365     TYPE_SWITCH,
9366     &setup.sound_music,                         "background_music"
9367   },
9368   {
9369     TYPE_SWITCH,
9370     &setup.sound_simple,                        "simple_sound_effects"
9371   },
9372   {
9373     TYPE_SWITCH,
9374     &setup.toons,                               "toons"
9375   },
9376   {
9377     TYPE_SWITCH,
9378     &setup.scroll_delay,                        "scroll_delay"
9379   },
9380   {
9381     TYPE_SWITCH,
9382     &setup.forced_scroll_delay,                 "forced_scroll_delay"
9383   },
9384   {
9385     TYPE_INTEGER,
9386     &setup.scroll_delay_value,                  "scroll_delay_value"
9387   },
9388   {
9389     TYPE_STRING,
9390     &setup.engine_snapshot_mode,                "engine_snapshot_mode"
9391   },
9392   {
9393     TYPE_INTEGER,
9394     &setup.engine_snapshot_memory,              "engine_snapshot_memory"
9395   },
9396   {
9397     TYPE_SWITCH,
9398     &setup.fade_screens,                        "fade_screens"
9399   },
9400   {
9401     TYPE_SWITCH,
9402     &setup.autorecord,                          "automatic_tape_recording"
9403   },
9404   {
9405     TYPE_SWITCH,
9406     &setup.show_titlescreen,                    "show_titlescreen"
9407   },
9408   {
9409     TYPE_SWITCH,
9410     &setup.quick_doors,                         "quick_doors"
9411   },
9412   {
9413     TYPE_SWITCH,
9414     &setup.team_mode,                           "team_mode"
9415   },
9416   {
9417     TYPE_SWITCH,
9418     &setup.handicap,                            "handicap"
9419   },
9420   {
9421     TYPE_SWITCH,
9422     &setup.skip_levels,                         "skip_levels"
9423   },
9424   {
9425     TYPE_SWITCH,
9426     &setup.increment_levels,                    "increment_levels"
9427   },
9428   {
9429     TYPE_SWITCH,
9430     &setup.auto_play_next_level,                "auto_play_next_level"
9431   },
9432   {
9433     TYPE_SWITCH,
9434     &setup.count_score_after_game,              "count_score_after_game"
9435   },
9436   {
9437     TYPE_SWITCH,
9438     &setup.show_scores_after_game,              "show_scores_after_game"
9439   },
9440   {
9441     TYPE_SWITCH,
9442     &setup.time_limit,                          "time_limit"
9443   },
9444   {
9445     TYPE_SWITCH,
9446     &setup.fullscreen,                          "fullscreen"
9447   },
9448   {
9449     TYPE_INTEGER,
9450     &setup.window_scaling_percent,              "window_scaling_percent"
9451   },
9452   {
9453     TYPE_STRING,
9454     &setup.window_scaling_quality,              "window_scaling_quality"
9455   },
9456   {
9457     TYPE_STRING,
9458     &setup.screen_rendering_mode,               "screen_rendering_mode"
9459   },
9460   {
9461     TYPE_STRING,
9462     &setup.vsync_mode,                          "vsync_mode"
9463   },
9464   {
9465     TYPE_SWITCH,
9466     &setup.ask_on_escape,                       "ask_on_escape"
9467   },
9468   {
9469     TYPE_SWITCH,
9470     &setup.ask_on_escape_editor,                "ask_on_escape_editor"
9471   },
9472   {
9473     TYPE_SWITCH,
9474     &setup.ask_on_game_over,                    "ask_on_game_over"
9475   },
9476   {
9477     TYPE_SWITCH,
9478     &setup.ask_on_quit_game,                    "ask_on_quit_game"
9479   },
9480   {
9481     TYPE_SWITCH,
9482     &setup.ask_on_quit_program,                 "ask_on_quit_program"
9483   },
9484   {
9485     TYPE_SWITCH,
9486     &setup.quick_switch,                        "quick_player_switch"
9487   },
9488   {
9489     TYPE_SWITCH,
9490     &setup.input_on_focus,                      "input_on_focus"
9491   },
9492   {
9493     TYPE_SWITCH,
9494     &setup.prefer_aga_graphics,                 "prefer_aga_graphics"
9495   },
9496   {
9497     TYPE_SWITCH,
9498     &setup.prefer_lowpass_sounds,               "prefer_lowpass_sounds"
9499   },
9500   {
9501     TYPE_SWITCH,
9502     &setup.prefer_extra_panel_items,            "prefer_extra_panel_items"
9503   },
9504   {
9505     TYPE_SWITCH,
9506     &setup.game_speed_extended,                 "game_speed_extended"
9507   },
9508   {
9509     TYPE_INTEGER,
9510     &setup.game_frame_delay,                    "game_frame_delay"
9511   },
9512   {
9513     TYPE_SWITCH,
9514     &setup.sp_show_border_elements,             "sp_show_border_elements"
9515   },
9516   {
9517     TYPE_SWITCH,
9518     &setup.small_game_graphics,                 "small_game_graphics"
9519   },
9520   {
9521     TYPE_SWITCH,
9522     &setup.show_snapshot_buttons,               "show_snapshot_buttons"
9523   },
9524   {
9525     TYPE_SWITCH,
9526     &setup.only_show_local_scores,              "only_show_local_scores"
9527   },
9528   {
9529     TYPE_STRING,
9530     &setup.graphics_set,                        "graphics_set"
9531   },
9532   {
9533     TYPE_STRING,
9534     &setup.sounds_set,                          "sounds_set"
9535   },
9536   {
9537     TYPE_STRING,
9538     &setup.music_set,                           "music_set"
9539   },
9540   {
9541     TYPE_SWITCH3,
9542     &setup.override_level_graphics,             "override_level_graphics"
9543   },
9544   {
9545     TYPE_SWITCH3,
9546     &setup.override_level_sounds,               "override_level_sounds"
9547   },
9548   {
9549     TYPE_SWITCH3,
9550     &setup.override_level_music,                "override_level_music"
9551   },
9552   {
9553     TYPE_INTEGER,
9554     &setup.volume_simple,                       "volume_simple"
9555   },
9556   {
9557     TYPE_INTEGER,
9558     &setup.volume_loops,                        "volume_loops"
9559   },
9560   {
9561     TYPE_INTEGER,
9562     &setup.volume_music,                        "volume_music"
9563   },
9564   {
9565     TYPE_SWITCH,
9566     &setup.network_mode,                        "network_mode"
9567   },
9568   {
9569     TYPE_PLAYER,
9570     &setup.network_player_nr,                   "network_player"
9571   },
9572   {
9573     TYPE_STRING,
9574     &setup.network_server_hostname,             "network_server_hostname"
9575   },
9576   {
9577     TYPE_SWITCH,
9578     &setup.api_server,                          "api_server"
9579   },
9580   {
9581     TYPE_STRING,
9582     &setup.api_server_hostname,                 "api_server_hostname"
9583   },
9584   {
9585     TYPE_STRING,
9586     &setup.touch.control_type,                  "touch.control_type"
9587   },
9588   {
9589     TYPE_INTEGER,
9590     &setup.touch.move_distance,                 "touch.move_distance"
9591   },
9592   {
9593     TYPE_INTEGER,
9594     &setup.touch.drop_distance,                 "touch.drop_distance"
9595   },
9596   {
9597     TYPE_INTEGER,
9598     &setup.touch.transparency,                  "touch.transparency"
9599   },
9600   {
9601     TYPE_INTEGER,
9602     &setup.touch.draw_outlined,                 "touch.draw_outlined"
9603   },
9604   {
9605     TYPE_INTEGER,
9606     &setup.touch.draw_pressed,                  "touch.draw_pressed"
9607   },
9608   {
9609     TYPE_INTEGER,
9610     &setup.touch.grid_xsize[0],                 "touch.virtual_buttons.0.xsize"
9611   },
9612   {
9613     TYPE_INTEGER,
9614     &setup.touch.grid_ysize[0],                 "touch.virtual_buttons.0.ysize"
9615   },
9616   {
9617     TYPE_INTEGER,
9618     &setup.touch.grid_xsize[1],                 "touch.virtual_buttons.1.xsize"
9619   },
9620   {
9621     TYPE_INTEGER,
9622     &setup.touch.grid_ysize[1],                 "touch.virtual_buttons.1.ysize"
9623   },
9624 };
9625
9626 static struct TokenInfo auto_setup_tokens[] =
9627 {
9628   {
9629     TYPE_INTEGER,
9630     &setup.auto_setup.editor_zoom_tilesize,     "editor.zoom_tilesize"
9631   },
9632 };
9633
9634 static struct TokenInfo editor_setup_tokens[] =
9635 {
9636   {
9637     TYPE_SWITCH,
9638     &setup.editor.el_classic,                   "editor.el_classic"
9639   },
9640   {
9641     TYPE_SWITCH,
9642     &setup.editor.el_custom,                    "editor.el_custom"
9643   },
9644   {
9645     TYPE_SWITCH,
9646     &setup.editor.el_user_defined,              "editor.el_user_defined"
9647   },
9648   {
9649     TYPE_SWITCH,
9650     &setup.editor.el_dynamic,                   "editor.el_dynamic"
9651   },
9652   {
9653     TYPE_SWITCH,
9654     &setup.editor.el_headlines,                 "editor.el_headlines"
9655   },
9656   {
9657     TYPE_SWITCH,
9658     &setup.editor.show_element_token,           "editor.show_element_token"
9659   },
9660   {
9661     TYPE_SWITCH,
9662     &setup.editor.show_read_only_warning,       "editor.show_read_only_warning"
9663   },
9664 };
9665
9666 static struct TokenInfo editor_cascade_setup_tokens[] =
9667 {
9668   {
9669     TYPE_SWITCH,
9670     &setup.editor_cascade.el_bd,                "editor.cascade.el_bd"
9671   },
9672   {
9673     TYPE_SWITCH,
9674     &setup.editor_cascade.el_em,                "editor.cascade.el_em"
9675   },
9676   {
9677     TYPE_SWITCH,
9678     &setup.editor_cascade.el_emc,               "editor.cascade.el_emc"
9679   },
9680   {
9681     TYPE_SWITCH,
9682     &setup.editor_cascade.el_rnd,               "editor.cascade.el_rnd"
9683   },
9684   {
9685     TYPE_SWITCH,
9686     &setup.editor_cascade.el_sb,                "editor.cascade.el_sb"
9687   },
9688   {
9689     TYPE_SWITCH,
9690     &setup.editor_cascade.el_sp,                "editor.cascade.el_sp"
9691   },
9692   {
9693     TYPE_SWITCH,
9694     &setup.editor_cascade.el_dc,                "editor.cascade.el_dc"
9695   },
9696   {
9697     TYPE_SWITCH,
9698     &setup.editor_cascade.el_dx,                "editor.cascade.el_dx"
9699   },
9700   {
9701     TYPE_SWITCH,
9702     &setup.editor_cascade.el_mm,                "editor.cascade.el_mm"
9703   },
9704   {
9705     TYPE_SWITCH,
9706     &setup.editor_cascade.el_df,                "editor.cascade.el_df"
9707   },
9708   {
9709     TYPE_SWITCH,
9710     &setup.editor_cascade.el_chars,             "editor.cascade.el_chars"
9711   },
9712   {
9713     TYPE_SWITCH,
9714     &setup.editor_cascade.el_steel_chars,       "editor.cascade.el_steel_chars"
9715   },
9716   {
9717     TYPE_SWITCH,
9718     &setup.editor_cascade.el_ce,                "editor.cascade.el_ce"
9719   },
9720   {
9721     TYPE_SWITCH,
9722     &setup.editor_cascade.el_ge,                "editor.cascade.el_ge"
9723   },
9724   {
9725     TYPE_SWITCH,
9726     &setup.editor_cascade.el_ref,               "editor.cascade.el_ref"
9727   },
9728   {
9729     TYPE_SWITCH,
9730     &setup.editor_cascade.el_user,              "editor.cascade.el_user"
9731   },
9732   {
9733     TYPE_SWITCH,
9734     &setup.editor_cascade.el_dynamic,           "editor.cascade.el_dynamic"
9735   },
9736 };
9737
9738 static struct TokenInfo shortcut_setup_tokens[] =
9739 {
9740   {
9741     TYPE_KEY_X11,
9742     &setup.shortcut.save_game,                  "shortcut.save_game"
9743   },
9744   {
9745     TYPE_KEY_X11,
9746     &setup.shortcut.load_game,                  "shortcut.load_game"
9747   },
9748   {
9749     TYPE_KEY_X11,
9750     &setup.shortcut.toggle_pause,               "shortcut.toggle_pause"
9751   },
9752   {
9753     TYPE_KEY_X11,
9754     &setup.shortcut.focus_player[0],            "shortcut.focus_player_1"
9755   },
9756   {
9757     TYPE_KEY_X11,
9758     &setup.shortcut.focus_player[1],            "shortcut.focus_player_2"
9759   },
9760   {
9761     TYPE_KEY_X11,
9762     &setup.shortcut.focus_player[2],            "shortcut.focus_player_3"
9763   },
9764   {
9765     TYPE_KEY_X11,
9766     &setup.shortcut.focus_player[3],            "shortcut.focus_player_4"
9767   },
9768   {
9769     TYPE_KEY_X11,
9770     &setup.shortcut.focus_player_all,           "shortcut.focus_player_all"
9771   },
9772   {
9773     TYPE_KEY_X11,
9774     &setup.shortcut.tape_eject,                 "shortcut.tape_eject"
9775   },
9776   {
9777     TYPE_KEY_X11,
9778     &setup.shortcut.tape_extra,                 "shortcut.tape_extra"
9779   },
9780   {
9781     TYPE_KEY_X11,
9782     &setup.shortcut.tape_stop,                  "shortcut.tape_stop"
9783   },
9784   {
9785     TYPE_KEY_X11,
9786     &setup.shortcut.tape_pause,                 "shortcut.tape_pause"
9787   },
9788   {
9789     TYPE_KEY_X11,
9790     &setup.shortcut.tape_record,                "shortcut.tape_record"
9791   },
9792   {
9793     TYPE_KEY_X11,
9794     &setup.shortcut.tape_play,                  "shortcut.tape_play"
9795   },
9796   {
9797     TYPE_KEY_X11,
9798     &setup.shortcut.sound_simple,               "shortcut.sound_simple"
9799   },
9800   {
9801     TYPE_KEY_X11,
9802     &setup.shortcut.sound_loops,                "shortcut.sound_loops"
9803   },
9804   {
9805     TYPE_KEY_X11,
9806     &setup.shortcut.sound_music,                "shortcut.sound_music"
9807   },
9808   {
9809     TYPE_KEY_X11,
9810     &setup.shortcut.snap_left,                  "shortcut.snap_left"
9811   },
9812   {
9813     TYPE_KEY_X11,
9814     &setup.shortcut.snap_right,                 "shortcut.snap_right"
9815   },
9816   {
9817     TYPE_KEY_X11,
9818     &setup.shortcut.snap_up,                    "shortcut.snap_up"
9819   },
9820   {
9821     TYPE_KEY_X11,
9822     &setup.shortcut.snap_down,                  "shortcut.snap_down"
9823   },
9824 };
9825
9826 static struct SetupInputInfo setup_input;
9827 static struct TokenInfo player_setup_tokens[] =
9828 {
9829   {
9830     TYPE_BOOLEAN,
9831     &setup_input.use_joystick,                  ".use_joystick"
9832   },
9833   {
9834     TYPE_STRING,
9835     &setup_input.joy.device_name,               ".joy.device_name"
9836   },
9837   {
9838     TYPE_INTEGER,
9839     &setup_input.joy.xleft,                     ".joy.xleft"
9840   },
9841   {
9842     TYPE_INTEGER,
9843     &setup_input.joy.xmiddle,                   ".joy.xmiddle"
9844   },
9845   {
9846     TYPE_INTEGER,
9847     &setup_input.joy.xright,                    ".joy.xright"
9848   },
9849   {
9850     TYPE_INTEGER,
9851     &setup_input.joy.yupper,                    ".joy.yupper"
9852   },
9853   {
9854     TYPE_INTEGER,
9855     &setup_input.joy.ymiddle,                   ".joy.ymiddle"
9856   },
9857   {
9858     TYPE_INTEGER,
9859     &setup_input.joy.ylower,                    ".joy.ylower"
9860   },
9861   {
9862     TYPE_INTEGER,
9863     &setup_input.joy.snap,                      ".joy.snap_field"
9864   },
9865   {
9866     TYPE_INTEGER,
9867     &setup_input.joy.drop,                      ".joy.place_bomb"
9868   },
9869   {
9870     TYPE_KEY_X11,
9871     &setup_input.key.left,                      ".key.move_left"
9872   },
9873   {
9874     TYPE_KEY_X11,
9875     &setup_input.key.right,                     ".key.move_right"
9876   },
9877   {
9878     TYPE_KEY_X11,
9879     &setup_input.key.up,                        ".key.move_up"
9880   },
9881   {
9882     TYPE_KEY_X11,
9883     &setup_input.key.down,                      ".key.move_down"
9884   },
9885   {
9886     TYPE_KEY_X11,
9887     &setup_input.key.snap,                      ".key.snap_field"
9888   },
9889   {
9890     TYPE_KEY_X11,
9891     &setup_input.key.drop,                      ".key.place_bomb"
9892   },
9893 };
9894
9895 static struct TokenInfo system_setup_tokens[] =
9896 {
9897   {
9898     TYPE_STRING,
9899     &setup.system.sdl_renderdriver,             "system.sdl_renderdriver"
9900   },
9901   {
9902     TYPE_STRING,
9903     &setup.system.sdl_videodriver,              "system.sdl_videodriver"
9904   },
9905   {
9906     TYPE_STRING,
9907     &setup.system.sdl_audiodriver,              "system.sdl_audiodriver"
9908   },
9909   {
9910     TYPE_INTEGER,
9911     &setup.system.audio_fragment_size,          "system.audio_fragment_size"
9912   },
9913 };
9914
9915 static struct TokenInfo internal_setup_tokens[] =
9916 {
9917   {
9918     TYPE_STRING,
9919     &setup.internal.program_title,              "program_title"
9920   },
9921   {
9922     TYPE_STRING,
9923     &setup.internal.program_version,            "program_version"
9924   },
9925   {
9926     TYPE_STRING,
9927     &setup.internal.program_author,             "program_author"
9928   },
9929   {
9930     TYPE_STRING,
9931     &setup.internal.program_email,              "program_email"
9932   },
9933   {
9934     TYPE_STRING,
9935     &setup.internal.program_website,            "program_website"
9936   },
9937   {
9938     TYPE_STRING,
9939     &setup.internal.program_copyright,          "program_copyright"
9940   },
9941   {
9942     TYPE_STRING,
9943     &setup.internal.program_company,            "program_company"
9944   },
9945   {
9946     TYPE_STRING,
9947     &setup.internal.program_icon_file,          "program_icon_file"
9948   },
9949   {
9950     TYPE_STRING,
9951     &setup.internal.default_graphics_set,       "default_graphics_set"
9952   },
9953   {
9954     TYPE_STRING,
9955     &setup.internal.default_sounds_set,         "default_sounds_set"
9956   },
9957   {
9958     TYPE_STRING,
9959     &setup.internal.default_music_set,          "default_music_set"
9960   },
9961   {
9962     TYPE_STRING,
9963     &setup.internal.fallback_graphics_file,     "fallback_graphics_file"
9964   },
9965   {
9966     TYPE_STRING,
9967     &setup.internal.fallback_sounds_file,       "fallback_sounds_file"
9968   },
9969   {
9970     TYPE_STRING,
9971     &setup.internal.fallback_music_file,        "fallback_music_file"
9972   },
9973   {
9974     TYPE_STRING,
9975     &setup.internal.default_level_series,       "default_level_series"
9976   },
9977   {
9978     TYPE_INTEGER,
9979     &setup.internal.default_window_width,       "default_window_width"
9980   },
9981   {
9982     TYPE_INTEGER,
9983     &setup.internal.default_window_height,      "default_window_height"
9984   },
9985   {
9986     TYPE_BOOLEAN,
9987     &setup.internal.choose_from_top_leveldir,   "choose_from_top_leveldir"
9988   },
9989   {
9990     TYPE_BOOLEAN,
9991     &setup.internal.show_scaling_in_title,      "show_scaling_in_title"
9992   },
9993   {
9994     TYPE_BOOLEAN,
9995     &setup.internal.create_user_levelset,       "create_user_levelset"
9996   },
9997   {
9998     TYPE_BOOLEAN,
9999     &setup.internal.menu_game,                  "menu_game"
10000   },
10001   {
10002     TYPE_BOOLEAN,
10003     &setup.internal.menu_editor,                "menu_editor"
10004   },
10005   {
10006     TYPE_BOOLEAN,
10007     &setup.internal.menu_graphics,              "menu_graphics"
10008   },
10009   {
10010     TYPE_BOOLEAN,
10011     &setup.internal.menu_sound,                 "menu_sound"
10012   },
10013   {
10014     TYPE_BOOLEAN,
10015     &setup.internal.menu_artwork,               "menu_artwork"
10016   },
10017   {
10018     TYPE_BOOLEAN,
10019     &setup.internal.menu_input,                 "menu_input"
10020   },
10021   {
10022     TYPE_BOOLEAN,
10023     &setup.internal.menu_touch,                 "menu_touch"
10024   },
10025   {
10026     TYPE_BOOLEAN,
10027     &setup.internal.menu_shortcuts,             "menu_shortcuts"
10028   },
10029   {
10030     TYPE_BOOLEAN,
10031     &setup.internal.menu_exit,                  "menu_exit"
10032   },
10033   {
10034     TYPE_BOOLEAN,
10035     &setup.internal.menu_save_and_exit,         "menu_save_and_exit"
10036   },
10037 };
10038
10039 static struct TokenInfo debug_setup_tokens[] =
10040 {
10041   {
10042     TYPE_INTEGER,
10043     &setup.debug.frame_delay[0],                "debug.frame_delay_0"
10044   },
10045   {
10046     TYPE_INTEGER,
10047     &setup.debug.frame_delay[1],                "debug.frame_delay_1"
10048   },
10049   {
10050     TYPE_INTEGER,
10051     &setup.debug.frame_delay[2],                "debug.frame_delay_2"
10052   },
10053   {
10054     TYPE_INTEGER,
10055     &setup.debug.frame_delay[3],                "debug.frame_delay_3"
10056   },
10057   {
10058     TYPE_INTEGER,
10059     &setup.debug.frame_delay[4],                "debug.frame_delay_4"
10060   },
10061   {
10062     TYPE_INTEGER,
10063     &setup.debug.frame_delay[5],                "debug.frame_delay_5"
10064   },
10065   {
10066     TYPE_INTEGER,
10067     &setup.debug.frame_delay[6],                "debug.frame_delay_6"
10068   },
10069   {
10070     TYPE_INTEGER,
10071     &setup.debug.frame_delay[7],                "debug.frame_delay_7"
10072   },
10073   {
10074     TYPE_INTEGER,
10075     &setup.debug.frame_delay[8],                "debug.frame_delay_8"
10076   },
10077   {
10078     TYPE_INTEGER,
10079     &setup.debug.frame_delay[9],                "debug.frame_delay_9"
10080   },
10081   {
10082     TYPE_KEY_X11,
10083     &setup.debug.frame_delay_key[0],            "debug.key.frame_delay_0"
10084   },
10085   {
10086     TYPE_KEY_X11,
10087     &setup.debug.frame_delay_key[1],            "debug.key.frame_delay_1"
10088   },
10089   {
10090     TYPE_KEY_X11,
10091     &setup.debug.frame_delay_key[2],            "debug.key.frame_delay_2"
10092   },
10093   {
10094     TYPE_KEY_X11,
10095     &setup.debug.frame_delay_key[3],            "debug.key.frame_delay_3"
10096   },
10097   {
10098     TYPE_KEY_X11,
10099     &setup.debug.frame_delay_key[4],            "debug.key.frame_delay_4"
10100   },
10101   {
10102     TYPE_KEY_X11,
10103     &setup.debug.frame_delay_key[5],            "debug.key.frame_delay_5"
10104   },
10105   {
10106     TYPE_KEY_X11,
10107     &setup.debug.frame_delay_key[6],            "debug.key.frame_delay_6"
10108   },
10109   {
10110     TYPE_KEY_X11,
10111     &setup.debug.frame_delay_key[7],            "debug.key.frame_delay_7"
10112   },
10113   {
10114     TYPE_KEY_X11,
10115     &setup.debug.frame_delay_key[8],            "debug.key.frame_delay_8"
10116   },
10117   {
10118     TYPE_KEY_X11,
10119     &setup.debug.frame_delay_key[9],            "debug.key.frame_delay_9"
10120   },
10121   {
10122     TYPE_BOOLEAN,
10123     &setup.debug.frame_delay_use_mod_key,       "debug.frame_delay.use_mod_key"},
10124   {
10125     TYPE_BOOLEAN,
10126     &setup.debug.frame_delay_game_only,         "debug.frame_delay.game_only"
10127   },
10128   {
10129     TYPE_BOOLEAN,
10130     &setup.debug.show_frames_per_second,        "debug.show_frames_per_second"
10131   },
10132   {
10133     TYPE_SWITCH3,
10134     &setup.debug.xsn_mode,                      "debug.xsn_mode"
10135   },
10136   {
10137     TYPE_INTEGER,
10138     &setup.debug.xsn_percent,                   "debug.xsn_percent"
10139   },
10140 };
10141
10142 static struct TokenInfo options_setup_tokens[] =
10143 {
10144   {
10145     TYPE_BOOLEAN,
10146     &setup.options.verbose,                     "options.verbose"
10147   },
10148 };
10149
10150 static void setSetupInfoToDefaults(struct SetupInfo *si)
10151 {
10152   int i;
10153
10154   si->player_name = getStringCopy(getDefaultUserName(user.nr));
10155
10156   si->multiple_users = TRUE;
10157
10158   si->sound = TRUE;
10159   si->sound_loops = TRUE;
10160   si->sound_music = TRUE;
10161   si->sound_simple = TRUE;
10162   si->toons = TRUE;
10163   si->scroll_delay = TRUE;
10164   si->forced_scroll_delay = FALSE;
10165   si->scroll_delay_value = STD_SCROLL_DELAY;
10166   si->engine_snapshot_mode = getStringCopy(STR_SNAPSHOT_MODE_DEFAULT);
10167   si->engine_snapshot_memory = SNAPSHOT_MEMORY_DEFAULT;
10168   si->fade_screens = TRUE;
10169   si->autorecord = TRUE;
10170   si->show_titlescreen = TRUE;
10171   si->quick_doors = FALSE;
10172   si->team_mode = FALSE;
10173   si->handicap = TRUE;
10174   si->skip_levels = TRUE;
10175   si->increment_levels = TRUE;
10176   si->auto_play_next_level = TRUE;
10177   si->count_score_after_game = TRUE;
10178   si->show_scores_after_game = TRUE;
10179   si->time_limit = TRUE;
10180   si->fullscreen = FALSE;
10181   si->window_scaling_percent = STD_WINDOW_SCALING_PERCENT;
10182   si->window_scaling_quality = getStringCopy(SCALING_QUALITY_DEFAULT);
10183   si->screen_rendering_mode = getStringCopy(STR_SPECIAL_RENDERING_DEFAULT);
10184   si->vsync_mode = getStringCopy(STR_VSYNC_MODE_DEFAULT);
10185   si->ask_on_escape = TRUE;
10186   si->ask_on_escape_editor = TRUE;
10187   si->ask_on_game_over = TRUE;
10188   si->ask_on_quit_game = TRUE;
10189   si->ask_on_quit_program = TRUE;
10190   si->quick_switch = FALSE;
10191   si->input_on_focus = FALSE;
10192   si->prefer_aga_graphics = TRUE;
10193   si->prefer_lowpass_sounds = FALSE;
10194   si->prefer_extra_panel_items = TRUE;
10195   si->game_speed_extended = FALSE;
10196   si->game_frame_delay = GAME_FRAME_DELAY;
10197   si->sp_show_border_elements = FALSE;
10198   si->small_game_graphics = FALSE;
10199   si->show_snapshot_buttons = FALSE;
10200   si->only_show_local_scores = FALSE;
10201
10202   si->graphics_set = getStringCopy(GFX_CLASSIC_SUBDIR);
10203   si->sounds_set   = getStringCopy(SND_CLASSIC_SUBDIR);
10204   si->music_set    = getStringCopy(MUS_CLASSIC_SUBDIR);
10205
10206   si->override_level_graphics = FALSE;
10207   si->override_level_sounds = FALSE;
10208   si->override_level_music = FALSE;
10209
10210   si->volume_simple = 100;              // percent
10211   si->volume_loops = 100;               // percent
10212   si->volume_music = 100;               // percent
10213
10214   si->network_mode = FALSE;
10215   si->network_player_nr = 0;            // first player
10216   si->network_server_hostname = getStringCopy(STR_NETWORK_AUTO_DETECT);
10217
10218   si->api_server = TRUE;
10219   si->api_server_hostname = getStringCopy(API_SERVER_HOSTNAME);
10220
10221   si->touch.control_type = getStringCopy(TOUCH_CONTROL_DEFAULT);
10222   si->touch.move_distance = TOUCH_MOVE_DISTANCE_DEFAULT;        // percent
10223   si->touch.drop_distance = TOUCH_DROP_DISTANCE_DEFAULT;        // percent
10224   si->touch.transparency = TOUCH_TRANSPARENCY_DEFAULT;          // percent
10225   si->touch.draw_outlined = TRUE;
10226   si->touch.draw_pressed = TRUE;
10227
10228   for (i = 0; i < 2; i++)
10229   {
10230     char *default_grid_button[6][2] =
10231     {
10232       { "      ", "  ^^  " },
10233       { "      ", "  ^^  " },
10234       { "      ", "<<  >>" },
10235       { "      ", "<<  >>" },
10236       { "111222", "  vv  " },
10237       { "111222", "  vv  " }
10238     };
10239     int grid_xsize = DEFAULT_GRID_XSIZE(i);
10240     int grid_ysize = DEFAULT_GRID_YSIZE(i);
10241     int min_xsize = MIN(6, grid_xsize);
10242     int min_ysize = MIN(6, grid_ysize);
10243     int startx = grid_xsize - min_xsize;
10244     int starty = grid_ysize - min_ysize;
10245     int x, y;
10246
10247     // virtual buttons grid can only be set to defaults if video is initialized
10248     // (this will be repeated if virtual buttons are not loaded from setup file)
10249     if (video.initialized)
10250     {
10251       si->touch.grid_xsize[i] = grid_xsize;
10252       si->touch.grid_ysize[i] = grid_ysize;
10253     }
10254     else
10255     {
10256       si->touch.grid_xsize[i] = -1;
10257       si->touch.grid_ysize[i] = -1;
10258     }
10259
10260     for (x = 0; x < MAX_GRID_XSIZE; x++)
10261       for (y = 0; y < MAX_GRID_YSIZE; y++)
10262         si->touch.grid_button[i][x][y] = CHAR_GRID_BUTTON_NONE;
10263
10264     for (x = 0; x < min_xsize; x++)
10265       for (y = 0; y < min_ysize; y++)
10266         si->touch.grid_button[i][x][starty + y] =
10267           default_grid_button[y][0][x];
10268
10269     for (x = 0; x < min_xsize; x++)
10270       for (y = 0; y < min_ysize; y++)
10271         si->touch.grid_button[i][startx + x][starty + y] =
10272           default_grid_button[y][1][x];
10273   }
10274
10275   si->touch.grid_initialized            = video.initialized;
10276
10277   si->editor.el_boulderdash             = TRUE;
10278   si->editor.el_emerald_mine            = TRUE;
10279   si->editor.el_emerald_mine_club       = TRUE;
10280   si->editor.el_more                    = TRUE;
10281   si->editor.el_sokoban                 = TRUE;
10282   si->editor.el_supaplex                = TRUE;
10283   si->editor.el_diamond_caves           = TRUE;
10284   si->editor.el_dx_boulderdash          = TRUE;
10285
10286   si->editor.el_mirror_magic            = TRUE;
10287   si->editor.el_deflektor               = TRUE;
10288
10289   si->editor.el_chars                   = TRUE;
10290   si->editor.el_steel_chars             = TRUE;
10291
10292   si->editor.el_classic                 = TRUE;
10293   si->editor.el_custom                  = TRUE;
10294
10295   si->editor.el_user_defined            = FALSE;
10296   si->editor.el_dynamic                 = TRUE;
10297
10298   si->editor.el_headlines               = TRUE;
10299
10300   si->editor.show_element_token         = FALSE;
10301
10302   si->editor.show_read_only_warning     = TRUE;
10303
10304   si->editor.use_template_for_new_levels = TRUE;
10305
10306   si->shortcut.save_game        = DEFAULT_KEY_SAVE_GAME;
10307   si->shortcut.load_game        = DEFAULT_KEY_LOAD_GAME;
10308   si->shortcut.toggle_pause     = DEFAULT_KEY_TOGGLE_PAUSE;
10309
10310   si->shortcut.focus_player[0]  = DEFAULT_KEY_FOCUS_PLAYER_1;
10311   si->shortcut.focus_player[1]  = DEFAULT_KEY_FOCUS_PLAYER_2;
10312   si->shortcut.focus_player[2]  = DEFAULT_KEY_FOCUS_PLAYER_3;
10313   si->shortcut.focus_player[3]  = DEFAULT_KEY_FOCUS_PLAYER_4;
10314   si->shortcut.focus_player_all = DEFAULT_KEY_FOCUS_PLAYER_ALL;
10315
10316   si->shortcut.tape_eject       = DEFAULT_KEY_TAPE_EJECT;
10317   si->shortcut.tape_extra       = DEFAULT_KEY_TAPE_EXTRA;
10318   si->shortcut.tape_stop        = DEFAULT_KEY_TAPE_STOP;
10319   si->shortcut.tape_pause       = DEFAULT_KEY_TAPE_PAUSE;
10320   si->shortcut.tape_record      = DEFAULT_KEY_TAPE_RECORD;
10321   si->shortcut.tape_play        = DEFAULT_KEY_TAPE_PLAY;
10322
10323   si->shortcut.sound_simple     = DEFAULT_KEY_SOUND_SIMPLE;
10324   si->shortcut.sound_loops      = DEFAULT_KEY_SOUND_LOOPS;
10325   si->shortcut.sound_music      = DEFAULT_KEY_SOUND_MUSIC;
10326
10327   si->shortcut.snap_left        = DEFAULT_KEY_SNAP_LEFT;
10328   si->shortcut.snap_right       = DEFAULT_KEY_SNAP_RIGHT;
10329   si->shortcut.snap_up          = DEFAULT_KEY_SNAP_UP;
10330   si->shortcut.snap_down        = DEFAULT_KEY_SNAP_DOWN;
10331
10332   for (i = 0; i < MAX_PLAYERS; i++)
10333   {
10334     si->input[i].use_joystick = FALSE;
10335     si->input[i].joy.device_name=getStringCopy(getDeviceNameFromJoystickNr(i));
10336     si->input[i].joy.xleft   = JOYSTICK_XLEFT;
10337     si->input[i].joy.xmiddle = JOYSTICK_XMIDDLE;
10338     si->input[i].joy.xright  = JOYSTICK_XRIGHT;
10339     si->input[i].joy.yupper  = JOYSTICK_YUPPER;
10340     si->input[i].joy.ymiddle = JOYSTICK_YMIDDLE;
10341     si->input[i].joy.ylower  = JOYSTICK_YLOWER;
10342     si->input[i].joy.snap  = (i == 0 ? JOY_BUTTON_1 : 0);
10343     si->input[i].joy.drop  = (i == 0 ? JOY_BUTTON_2 : 0);
10344     si->input[i].key.left  = (i == 0 ? DEFAULT_KEY_LEFT  : KSYM_UNDEFINED);
10345     si->input[i].key.right = (i == 0 ? DEFAULT_KEY_RIGHT : KSYM_UNDEFINED);
10346     si->input[i].key.up    = (i == 0 ? DEFAULT_KEY_UP    : KSYM_UNDEFINED);
10347     si->input[i].key.down  = (i == 0 ? DEFAULT_KEY_DOWN  : KSYM_UNDEFINED);
10348     si->input[i].key.snap  = (i == 0 ? DEFAULT_KEY_SNAP  : KSYM_UNDEFINED);
10349     si->input[i].key.drop  = (i == 0 ? DEFAULT_KEY_DROP  : KSYM_UNDEFINED);
10350   }
10351
10352   si->system.sdl_renderdriver = getStringCopy(ARG_DEFAULT);
10353   si->system.sdl_videodriver = getStringCopy(ARG_DEFAULT);
10354   si->system.sdl_audiodriver = getStringCopy(ARG_DEFAULT);
10355   si->system.audio_fragment_size = DEFAULT_AUDIO_FRAGMENT_SIZE;
10356
10357   si->internal.program_title     = getStringCopy(PROGRAM_TITLE_STRING);
10358   si->internal.program_version   = getStringCopy(getProgramRealVersionString());
10359   si->internal.program_author    = getStringCopy(PROGRAM_AUTHOR_STRING);
10360   si->internal.program_email     = getStringCopy(PROGRAM_EMAIL_STRING);
10361   si->internal.program_website   = getStringCopy(PROGRAM_WEBSITE_STRING);
10362   si->internal.program_copyright = getStringCopy(PROGRAM_COPYRIGHT_STRING);
10363   si->internal.program_company   = getStringCopy(PROGRAM_COMPANY_STRING);
10364
10365   si->internal.program_icon_file = getStringCopy(PROGRAM_ICON_FILENAME);
10366
10367   si->internal.default_graphics_set = getStringCopy(GFX_CLASSIC_SUBDIR);
10368   si->internal.default_sounds_set   = getStringCopy(SND_CLASSIC_SUBDIR);
10369   si->internal.default_music_set    = getStringCopy(MUS_CLASSIC_SUBDIR);
10370
10371   si->internal.fallback_graphics_file = getStringCopy(UNDEFINED_FILENAME);
10372   si->internal.fallback_sounds_file   = getStringCopy(UNDEFINED_FILENAME);
10373   si->internal.fallback_music_file    = getStringCopy(UNDEFINED_FILENAME);
10374
10375   si->internal.default_level_series = getStringCopy(UNDEFINED_LEVELSET);
10376   si->internal.choose_from_top_leveldir = FALSE;
10377   si->internal.show_scaling_in_title = TRUE;
10378   si->internal.create_user_levelset = TRUE;
10379
10380   si->internal.default_window_width  = WIN_XSIZE_DEFAULT;
10381   si->internal.default_window_height = WIN_YSIZE_DEFAULT;
10382
10383   si->debug.frame_delay[0] = DEFAULT_FRAME_DELAY_0;
10384   si->debug.frame_delay[1] = DEFAULT_FRAME_DELAY_1;
10385   si->debug.frame_delay[2] = DEFAULT_FRAME_DELAY_2;
10386   si->debug.frame_delay[3] = DEFAULT_FRAME_DELAY_3;
10387   si->debug.frame_delay[4] = DEFAULT_FRAME_DELAY_4;
10388   si->debug.frame_delay[5] = DEFAULT_FRAME_DELAY_5;
10389   si->debug.frame_delay[6] = DEFAULT_FRAME_DELAY_6;
10390   si->debug.frame_delay[7] = DEFAULT_FRAME_DELAY_7;
10391   si->debug.frame_delay[8] = DEFAULT_FRAME_DELAY_8;
10392   si->debug.frame_delay[9] = DEFAULT_FRAME_DELAY_9;
10393
10394   si->debug.frame_delay_key[0] = DEFAULT_KEY_FRAME_DELAY_0;
10395   si->debug.frame_delay_key[1] = DEFAULT_KEY_FRAME_DELAY_1;
10396   si->debug.frame_delay_key[2] = DEFAULT_KEY_FRAME_DELAY_2;
10397   si->debug.frame_delay_key[3] = DEFAULT_KEY_FRAME_DELAY_3;
10398   si->debug.frame_delay_key[4] = DEFAULT_KEY_FRAME_DELAY_4;
10399   si->debug.frame_delay_key[5] = DEFAULT_KEY_FRAME_DELAY_5;
10400   si->debug.frame_delay_key[6] = DEFAULT_KEY_FRAME_DELAY_6;
10401   si->debug.frame_delay_key[7] = DEFAULT_KEY_FRAME_DELAY_7;
10402   si->debug.frame_delay_key[8] = DEFAULT_KEY_FRAME_DELAY_8;
10403   si->debug.frame_delay_key[9] = DEFAULT_KEY_FRAME_DELAY_9;
10404
10405   si->debug.frame_delay_use_mod_key = DEFAULT_FRAME_DELAY_USE_MOD_KEY;
10406   si->debug.frame_delay_game_only   = DEFAULT_FRAME_DELAY_GAME_ONLY;
10407
10408   si->debug.show_frames_per_second = FALSE;
10409
10410   si->debug.xsn_mode = AUTO;
10411   si->debug.xsn_percent = 0;
10412
10413   si->options.verbose = FALSE;
10414
10415 #if defined(PLATFORM_ANDROID)
10416   si->fullscreen = TRUE;
10417 #endif
10418
10419   setHideSetupEntry(&setup.debug.xsn_mode);
10420 }
10421
10422 static void setSetupInfoToDefaults_AutoSetup(struct SetupInfo *si)
10423 {
10424   si->auto_setup.editor_zoom_tilesize = MINI_TILESIZE;
10425 }
10426
10427 static void setSetupInfoToDefaults_EditorCascade(struct SetupInfo *si)
10428 {
10429   si->editor_cascade.el_bd              = TRUE;
10430   si->editor_cascade.el_em              = TRUE;
10431   si->editor_cascade.el_emc             = TRUE;
10432   si->editor_cascade.el_rnd             = TRUE;
10433   si->editor_cascade.el_sb              = TRUE;
10434   si->editor_cascade.el_sp              = TRUE;
10435   si->editor_cascade.el_dc              = TRUE;
10436   si->editor_cascade.el_dx              = TRUE;
10437
10438   si->editor_cascade.el_mm              = TRUE;
10439   si->editor_cascade.el_df              = TRUE;
10440
10441   si->editor_cascade.el_chars           = FALSE;
10442   si->editor_cascade.el_steel_chars     = FALSE;
10443   si->editor_cascade.el_ce              = FALSE;
10444   si->editor_cascade.el_ge              = FALSE;
10445   si->editor_cascade.el_ref             = FALSE;
10446   si->editor_cascade.el_user            = FALSE;
10447   si->editor_cascade.el_dynamic         = FALSE;
10448 }
10449
10450 #define MAX_HIDE_SETUP_TOKEN_SIZE               20
10451
10452 static char *getHideSetupToken(void *setup_value)
10453 {
10454   static char hide_setup_token[MAX_HIDE_SETUP_TOKEN_SIZE];
10455
10456   if (setup_value != NULL)
10457     snprintf(hide_setup_token, MAX_HIDE_SETUP_TOKEN_SIZE, "%p", setup_value);
10458
10459   return hide_setup_token;
10460 }
10461
10462 void setHideSetupEntry(void *setup_value)
10463 {
10464   char *hide_setup_token = getHideSetupToken(setup_value);
10465
10466   if (hide_setup_hash == NULL)
10467     hide_setup_hash = newSetupFileHash();
10468
10469   if (setup_value != NULL)
10470     setHashEntry(hide_setup_hash, hide_setup_token, "");
10471 }
10472
10473 void removeHideSetupEntry(void *setup_value)
10474 {
10475   char *hide_setup_token = getHideSetupToken(setup_value);
10476
10477   if (setup_value != NULL)
10478     removeHashEntry(hide_setup_hash, hide_setup_token);
10479 }
10480
10481 boolean hideSetupEntry(void *setup_value)
10482 {
10483   char *hide_setup_token = getHideSetupToken(setup_value);
10484
10485   return (setup_value != NULL &&
10486           getHashEntry(hide_setup_hash, hide_setup_token) != NULL);
10487 }
10488
10489 static void setSetupInfoFromTokenText(SetupFileHash *setup_file_hash,
10490                                       struct TokenInfo *token_info,
10491                                       int token_nr, char *token_text)
10492 {
10493   char *token_hide_text = getStringCat2(token_text, ".hide");
10494   char *token_hide_value = getHashEntry(setup_file_hash, token_hide_text);
10495
10496   // set the value of this setup option in the setup option structure
10497   setSetupInfo(token_info, token_nr, getHashEntry(setup_file_hash, token_text));
10498
10499   // check if this setup option should be hidden in the setup menu
10500   if (token_hide_value != NULL && get_boolean_from_string(token_hide_value))
10501     setHideSetupEntry(token_info[token_nr].value);
10502
10503   free(token_hide_text);
10504 }
10505
10506 static void setSetupInfoFromTokenInfo(SetupFileHash *setup_file_hash,
10507                                       struct TokenInfo *token_info,
10508                                       int token_nr)
10509 {
10510   setSetupInfoFromTokenText(setup_file_hash, token_info, token_nr,
10511                             token_info[token_nr].text);
10512 }
10513
10514 static void decodeSetupFileHash(SetupFileHash *setup_file_hash)
10515 {
10516   int i, pnr;
10517
10518   if (!setup_file_hash)
10519     return;
10520
10521   for (i = 0; i < ARRAY_SIZE(global_setup_tokens); i++)
10522     setSetupInfoFromTokenInfo(setup_file_hash, global_setup_tokens, i);
10523
10524   setup.touch.grid_initialized = TRUE;
10525   for (i = 0; i < 2; i++)
10526   {
10527     int grid_xsize = setup.touch.grid_xsize[i];
10528     int grid_ysize = setup.touch.grid_ysize[i];
10529     int x, y;
10530
10531     // if virtual buttons are not loaded from setup file, repeat initializing
10532     // virtual buttons grid with default values later when video is initialized
10533     if (grid_xsize == -1 ||
10534         grid_ysize == -1)
10535     {
10536       setup.touch.grid_initialized = FALSE;
10537
10538       continue;
10539     }
10540
10541     for (y = 0; y < grid_ysize; y++)
10542     {
10543       char token_string[MAX_LINE_LEN];
10544
10545       sprintf(token_string, "touch.virtual_buttons.%d.%02d", i, y);
10546
10547       char *value_string = getHashEntry(setup_file_hash, token_string);
10548
10549       if (value_string == NULL)
10550         continue;
10551
10552       for (x = 0; x < grid_xsize; x++)
10553       {
10554         char c = value_string[x];
10555
10556         setup.touch.grid_button[i][x][y] =
10557           (c == '.' ? CHAR_GRID_BUTTON_NONE : c);
10558       }
10559     }
10560   }
10561
10562   for (i = 0; i < ARRAY_SIZE(editor_setup_tokens); i++)
10563     setSetupInfoFromTokenInfo(setup_file_hash, editor_setup_tokens, i);
10564
10565   for (i = 0; i < ARRAY_SIZE(shortcut_setup_tokens); i++)
10566     setSetupInfoFromTokenInfo(setup_file_hash, shortcut_setup_tokens, i);
10567
10568   for (pnr = 0; pnr < MAX_PLAYERS; pnr++)
10569   {
10570     char prefix[30];
10571
10572     sprintf(prefix, "%s%d", TOKEN_STR_PLAYER_PREFIX, pnr + 1);
10573
10574     setup_input = setup.input[pnr];
10575     for (i = 0; i < ARRAY_SIZE(player_setup_tokens); i++)
10576     {
10577       char full_token[100];
10578
10579       sprintf(full_token, "%s%s", prefix, player_setup_tokens[i].text);
10580       setSetupInfoFromTokenText(setup_file_hash, player_setup_tokens, i,
10581                                 full_token);
10582     }
10583     setup.input[pnr] = setup_input;
10584   }
10585
10586   for (i = 0; i < ARRAY_SIZE(system_setup_tokens); i++)
10587     setSetupInfoFromTokenInfo(setup_file_hash, system_setup_tokens, i);
10588
10589   for (i = 0; i < ARRAY_SIZE(internal_setup_tokens); i++)
10590     setSetupInfoFromTokenInfo(setup_file_hash, internal_setup_tokens, i);
10591
10592   for (i = 0; i < ARRAY_SIZE(debug_setup_tokens); i++)
10593     setSetupInfoFromTokenInfo(setup_file_hash, debug_setup_tokens, i);
10594
10595   for (i = 0; i < ARRAY_SIZE(options_setup_tokens); i++)
10596     setSetupInfoFromTokenInfo(setup_file_hash, options_setup_tokens, i);
10597
10598   setHideRelatedSetupEntries();
10599 }
10600
10601 static void decodeSetupFileHash_AutoSetup(SetupFileHash *setup_file_hash)
10602 {
10603   int i;
10604
10605   if (!setup_file_hash)
10606     return;
10607
10608   for (i = 0; i < ARRAY_SIZE(auto_setup_tokens); i++)
10609     setSetupInfo(auto_setup_tokens, i,
10610                  getHashEntry(setup_file_hash,
10611                               auto_setup_tokens[i].text));
10612 }
10613
10614 static void decodeSetupFileHash_EditorCascade(SetupFileHash *setup_file_hash)
10615 {
10616   int i;
10617
10618   if (!setup_file_hash)
10619     return;
10620
10621   for (i = 0; i < ARRAY_SIZE(editor_cascade_setup_tokens); i++)
10622     setSetupInfo(editor_cascade_setup_tokens, i,
10623                  getHashEntry(setup_file_hash,
10624                               editor_cascade_setup_tokens[i].text));
10625 }
10626
10627 void LoadUserNames(void)
10628 {
10629   int last_user_nr = user.nr;
10630   int i;
10631
10632   if (global.user_names != NULL)
10633   {
10634     for (i = 0; i < MAX_PLAYER_NAMES; i++)
10635       checked_free(global.user_names[i]);
10636
10637     checked_free(global.user_names);
10638   }
10639
10640   global.user_names = checked_calloc(MAX_PLAYER_NAMES * sizeof(char *));
10641
10642   for (i = 0; i < MAX_PLAYER_NAMES; i++)
10643   {
10644     user.nr = i;
10645
10646     SetupFileHash *setup_file_hash = loadSetupFileHash(getSetupFilename());
10647
10648     if (setup_file_hash)
10649     {
10650       char *player_name = getHashEntry(setup_file_hash, "player_name");
10651
10652       global.user_names[i] = getFixedUserName(player_name);
10653
10654       freeSetupFileHash(setup_file_hash);
10655     }
10656
10657     if (global.user_names[i] == NULL)
10658       global.user_names[i] = getStringCopy(getDefaultUserName(i));
10659   }
10660
10661   user.nr = last_user_nr;
10662 }
10663
10664 void LoadSetupFromFilename(char *filename)
10665 {
10666   SetupFileHash *setup_file_hash = loadSetupFileHash(filename);
10667
10668   if (setup_file_hash)
10669   {
10670     decodeSetupFileHash(setup_file_hash);
10671
10672     freeSetupFileHash(setup_file_hash);
10673   }
10674   else
10675   {
10676     Debug("setup", "using default setup values");
10677   }
10678 }
10679
10680 static void LoadSetup_SpecialPostProcessing(void)
10681 {
10682   char *player_name_new;
10683
10684   // needed to work around problems with fixed length strings
10685   player_name_new = getFixedUserName(setup.player_name);
10686   free(setup.player_name);
10687   setup.player_name = player_name_new;
10688
10689   // "scroll_delay: on(3) / off(0)" was replaced by scroll delay value
10690   if (setup.scroll_delay == FALSE)
10691   {
10692     setup.scroll_delay_value = MIN_SCROLL_DELAY;
10693     setup.scroll_delay = TRUE;                  // now always "on"
10694   }
10695
10696   // make sure that scroll delay value stays inside valid range
10697   setup.scroll_delay_value =
10698     MIN(MAX(MIN_SCROLL_DELAY, setup.scroll_delay_value), MAX_SCROLL_DELAY);
10699 }
10700
10701 void LoadSetup(void)
10702 {
10703   char *filename;
10704
10705   // always start with reliable default values
10706   setSetupInfoToDefaults(&setup);
10707
10708   // try to load setup values from default setup file
10709   filename = getDefaultSetupFilename();
10710
10711   if (fileExists(filename))
10712     LoadSetupFromFilename(filename);
10713
10714   // try to load setup values from user setup file
10715   filename = getSetupFilename();
10716
10717   LoadSetupFromFilename(filename);
10718
10719   LoadSetup_SpecialPostProcessing();
10720 }
10721
10722 void LoadSetup_AutoSetup(void)
10723 {
10724   char *filename = getPath2(getSetupDir(), AUTOSETUP_FILENAME);
10725   SetupFileHash *setup_file_hash = NULL;
10726
10727   // always start with reliable default values
10728   setSetupInfoToDefaults_AutoSetup(&setup);
10729
10730   setup_file_hash = loadSetupFileHash(filename);
10731
10732   if (setup_file_hash)
10733   {
10734     decodeSetupFileHash_AutoSetup(setup_file_hash);
10735
10736     freeSetupFileHash(setup_file_hash);
10737   }
10738
10739   free(filename);
10740 }
10741
10742 void LoadSetup_EditorCascade(void)
10743 {
10744   char *filename = getPath2(getSetupDir(), EDITORCASCADE_FILENAME);
10745   SetupFileHash *setup_file_hash = NULL;
10746
10747   // always start with reliable default values
10748   setSetupInfoToDefaults_EditorCascade(&setup);
10749
10750   setup_file_hash = loadSetupFileHash(filename);
10751
10752   if (setup_file_hash)
10753   {
10754     decodeSetupFileHash_EditorCascade(setup_file_hash);
10755
10756     freeSetupFileHash(setup_file_hash);
10757   }
10758
10759   free(filename);
10760 }
10761
10762 static void addGameControllerMappingToHash(SetupFileHash *mappings_hash,
10763                                            char *mapping_line)
10764 {
10765   char mapping_guid[MAX_LINE_LEN];
10766   char *mapping_start, *mapping_end;
10767
10768   // get GUID from game controller mapping line: copy complete line
10769   strncpy(mapping_guid, mapping_line, MAX_LINE_LEN - 1);
10770   mapping_guid[MAX_LINE_LEN - 1] = '\0';
10771
10772   // get GUID from game controller mapping line: cut after GUID part
10773   mapping_start = strchr(mapping_guid, ',');
10774   if (mapping_start != NULL)
10775     *mapping_start = '\0';
10776
10777   // cut newline from game controller mapping line
10778   mapping_end = strchr(mapping_line, '\n');
10779   if (mapping_end != NULL)
10780     *mapping_end = '\0';
10781
10782   // add mapping entry to game controller mappings hash
10783   setHashEntry(mappings_hash, mapping_guid, mapping_line);
10784 }
10785
10786 static void LoadSetup_ReadGameControllerMappings(SetupFileHash *mappings_hash,
10787                                                  char *filename)
10788 {
10789   FILE *file;
10790
10791   if (!(file = fopen(filename, MODE_READ)))
10792   {
10793     Warn("cannot read game controller mappings file '%s'", filename);
10794
10795     return;
10796   }
10797
10798   while (!feof(file))
10799   {
10800     char line[MAX_LINE_LEN];
10801
10802     if (!fgets(line, MAX_LINE_LEN, file))
10803       break;
10804
10805     addGameControllerMappingToHash(mappings_hash, line);
10806   }
10807
10808   fclose(file);
10809 }
10810
10811 void SaveSetup(void)
10812 {
10813   char *filename = getSetupFilename();
10814   FILE *file;
10815   int i, pnr;
10816
10817   InitUserDataDirectory();
10818
10819   if (!(file = fopen(filename, MODE_WRITE)))
10820   {
10821     Warn("cannot write setup file '%s'", filename);
10822
10823     return;
10824   }
10825
10826   fprintFileHeader(file, SETUP_FILENAME);
10827
10828   for (i = 0; i < ARRAY_SIZE(global_setup_tokens); i++)
10829   {
10830     // just to make things nicer :)
10831     if (global_setup_tokens[i].value == &setup.multiple_users           ||
10832         global_setup_tokens[i].value == &setup.sound                    ||
10833         global_setup_tokens[i].value == &setup.graphics_set             ||
10834         global_setup_tokens[i].value == &setup.volume_simple            ||
10835         global_setup_tokens[i].value == &setup.network_mode             ||
10836         global_setup_tokens[i].value == &setup.api_server               ||
10837         global_setup_tokens[i].value == &setup.touch.control_type       ||
10838         global_setup_tokens[i].value == &setup.touch.grid_xsize[0]      ||
10839         global_setup_tokens[i].value == &setup.touch.grid_xsize[1])
10840       fprintf(file, "\n");
10841
10842     fprintf(file, "%s\n", getSetupLine(global_setup_tokens, "", i));
10843   }
10844
10845   for (i = 0; i < 2; i++)
10846   {
10847     int grid_xsize = setup.touch.grid_xsize[i];
10848     int grid_ysize = setup.touch.grid_ysize[i];
10849     int x, y;
10850
10851     fprintf(file, "\n");
10852
10853     for (y = 0; y < grid_ysize; y++)
10854     {
10855       char token_string[MAX_LINE_LEN];
10856       char value_string[MAX_LINE_LEN];
10857
10858       sprintf(token_string, "touch.virtual_buttons.%d.%02d", i, y);
10859
10860       for (x = 0; x < grid_xsize; x++)
10861       {
10862         char c = setup.touch.grid_button[i][x][y];
10863
10864         value_string[x] = (c == CHAR_GRID_BUTTON_NONE ? '.' : c);
10865       }
10866
10867       value_string[grid_xsize] = '\0';
10868
10869       fprintf(file, "%s\n", getFormattedSetupEntry(token_string, value_string));
10870     }
10871   }
10872
10873   fprintf(file, "\n");
10874   for (i = 0; i < ARRAY_SIZE(editor_setup_tokens); i++)
10875     fprintf(file, "%s\n", getSetupLine(editor_setup_tokens, "", i));
10876
10877   fprintf(file, "\n");
10878   for (i = 0; i < ARRAY_SIZE(shortcut_setup_tokens); i++)
10879     fprintf(file, "%s\n", getSetupLine(shortcut_setup_tokens, "", i));
10880
10881   for (pnr = 0; pnr < MAX_PLAYERS; pnr++)
10882   {
10883     char prefix[30];
10884
10885     sprintf(prefix, "%s%d", TOKEN_STR_PLAYER_PREFIX, pnr + 1);
10886     fprintf(file, "\n");
10887
10888     setup_input = setup.input[pnr];
10889     for (i = 0; i < ARRAY_SIZE(player_setup_tokens); i++)
10890       fprintf(file, "%s\n", getSetupLine(player_setup_tokens, prefix, i));
10891   }
10892
10893   fprintf(file, "\n");
10894   for (i = 0; i < ARRAY_SIZE(system_setup_tokens); i++)
10895     fprintf(file, "%s\n", getSetupLine(system_setup_tokens, "", i));
10896
10897   // (internal setup values not saved to user setup file)
10898
10899   fprintf(file, "\n");
10900   for (i = 0; i < ARRAY_SIZE(debug_setup_tokens); i++)
10901     if (!strPrefix(debug_setup_tokens[i].text, "debug.xsn_") ||
10902         setup.debug.xsn_mode != AUTO)
10903       fprintf(file, "%s\n", getSetupLine(debug_setup_tokens, "", i));
10904
10905   fprintf(file, "\n");
10906   for (i = 0; i < ARRAY_SIZE(options_setup_tokens); i++)
10907     fprintf(file, "%s\n", getSetupLine(options_setup_tokens, "", i));
10908
10909   fclose(file);
10910
10911   SetFilePermissions(filename, PERMS_PRIVATE);
10912 }
10913
10914 void SaveSetup_AutoSetup(void)
10915 {
10916   char *filename = getPath2(getSetupDir(), AUTOSETUP_FILENAME);
10917   FILE *file;
10918   int i;
10919
10920   InitUserDataDirectory();
10921
10922   if (!(file = fopen(filename, MODE_WRITE)))
10923   {
10924     Warn("cannot write auto setup file '%s'", filename);
10925
10926     free(filename);
10927
10928     return;
10929   }
10930
10931   fprintFileHeader(file, AUTOSETUP_FILENAME);
10932
10933   for (i = 0; i < ARRAY_SIZE(auto_setup_tokens); i++)
10934     fprintf(file, "%s\n", getSetupLine(auto_setup_tokens, "", i));
10935
10936   fclose(file);
10937
10938   SetFilePermissions(filename, PERMS_PRIVATE);
10939
10940   free(filename);
10941 }
10942
10943 void SaveSetup_EditorCascade(void)
10944 {
10945   char *filename = getPath2(getSetupDir(), EDITORCASCADE_FILENAME);
10946   FILE *file;
10947   int i;
10948
10949   InitUserDataDirectory();
10950
10951   if (!(file = fopen(filename, MODE_WRITE)))
10952   {
10953     Warn("cannot write editor cascade state file '%s'", filename);
10954
10955     free(filename);
10956
10957     return;
10958   }
10959
10960   fprintFileHeader(file, EDITORCASCADE_FILENAME);
10961
10962   for (i = 0; i < ARRAY_SIZE(editor_cascade_setup_tokens); i++)
10963     fprintf(file, "%s\n", getSetupLine(editor_cascade_setup_tokens, "", i));
10964
10965   fclose(file);
10966
10967   SetFilePermissions(filename, PERMS_PRIVATE);
10968
10969   free(filename);
10970 }
10971
10972 static void SaveSetup_WriteGameControllerMappings(SetupFileHash *mappings_hash,
10973                                                   char *filename)
10974 {
10975   FILE *file;
10976
10977   if (!(file = fopen(filename, MODE_WRITE)))
10978   {
10979     Warn("cannot write game controller mappings file '%s'", filename);
10980
10981     return;
10982   }
10983
10984   BEGIN_HASH_ITERATION(mappings_hash, itr)
10985   {
10986     fprintf(file, "%s\n", HASH_ITERATION_VALUE(itr));
10987   }
10988   END_HASH_ITERATION(mappings_hash, itr)
10989
10990   fclose(file);
10991 }
10992
10993 void SaveSetup_AddGameControllerMapping(char *mapping)
10994 {
10995   char *filename = getPath2(getSetupDir(), GAMECONTROLLER_BASENAME);
10996   SetupFileHash *mappings_hash = newSetupFileHash();
10997
10998   InitUserDataDirectory();
10999
11000   // load existing personal game controller mappings
11001   LoadSetup_ReadGameControllerMappings(mappings_hash, filename);
11002
11003   // add new mapping to personal game controller mappings
11004   addGameControllerMappingToHash(mappings_hash, mapping);
11005
11006   // save updated personal game controller mappings
11007   SaveSetup_WriteGameControllerMappings(mappings_hash, filename);
11008
11009   freeSetupFileHash(mappings_hash);
11010   free(filename);
11011 }
11012
11013 void LoadCustomElementDescriptions(void)
11014 {
11015   char *filename = getCustomArtworkConfigFilename(ARTWORK_TYPE_GRAPHICS);
11016   SetupFileHash *setup_file_hash;
11017   int i;
11018
11019   for (i = 0; i < NUM_FILE_ELEMENTS; i++)
11020   {
11021     if (element_info[i].custom_description != NULL)
11022     {
11023       free(element_info[i].custom_description);
11024       element_info[i].custom_description = NULL;
11025     }
11026   }
11027
11028   if ((setup_file_hash = loadSetupFileHash(filename)) == NULL)
11029     return;
11030
11031   for (i = 0; i < NUM_FILE_ELEMENTS; i++)
11032   {
11033     char *token = getStringCat2(element_info[i].token_name, ".name");
11034     char *value = getHashEntry(setup_file_hash, token);
11035
11036     if (value != NULL)
11037       element_info[i].custom_description = getStringCopy(value);
11038
11039     free(token);
11040   }
11041
11042   freeSetupFileHash(setup_file_hash);
11043 }
11044
11045 static int getElementFromToken(char *token)
11046 {
11047   char *value = getHashEntry(element_token_hash, token);
11048
11049   if (value != NULL)
11050     return atoi(value);
11051
11052   Warn("unknown element token '%s'", token);
11053
11054   return EL_UNDEFINED;
11055 }
11056
11057 void FreeGlobalAnimEventInfo(void)
11058 {
11059   struct GlobalAnimEventInfo *gaei = &global_anim_event_info;
11060
11061   if (gaei->event_list == NULL)
11062     return;
11063
11064   int i;
11065
11066   for (i = 0; i < gaei->num_event_lists; i++)
11067   {
11068     checked_free(gaei->event_list[i]->event_value);
11069     checked_free(gaei->event_list[i]);
11070   }
11071
11072   checked_free(gaei->event_list);
11073
11074   gaei->event_list = NULL;
11075   gaei->num_event_lists = 0;
11076 }
11077
11078 static int AddGlobalAnimEventList(void)
11079 {
11080   struct GlobalAnimEventInfo *gaei = &global_anim_event_info;
11081   int list_pos = gaei->num_event_lists++;
11082
11083   gaei->event_list = checked_realloc(gaei->event_list, gaei->num_event_lists *
11084                                      sizeof(struct GlobalAnimEventListInfo *));
11085
11086   gaei->event_list[list_pos] =
11087     checked_calloc(sizeof(struct GlobalAnimEventListInfo));
11088
11089   struct GlobalAnimEventListInfo *gaeli = gaei->event_list[list_pos];
11090
11091   gaeli->event_value = NULL;
11092   gaeli->num_event_values = 0;
11093
11094   return list_pos;
11095 }
11096
11097 static int AddGlobalAnimEventValue(int list_pos, int event_value)
11098 {
11099   // do not add empty global animation events
11100   if (event_value == ANIM_EVENT_NONE)
11101     return list_pos;
11102
11103   // if list position is undefined, create new list
11104   if (list_pos == ANIM_EVENT_UNDEFINED)
11105     list_pos = AddGlobalAnimEventList();
11106
11107   struct GlobalAnimEventInfo *gaei = &global_anim_event_info;
11108   struct GlobalAnimEventListInfo *gaeli = gaei->event_list[list_pos];
11109   int value_pos = gaeli->num_event_values++;
11110
11111   gaeli->event_value = checked_realloc(gaeli->event_value,
11112                                        gaeli->num_event_values * sizeof(int *));
11113
11114   gaeli->event_value[value_pos] = event_value;
11115
11116   return list_pos;
11117 }
11118
11119 int GetGlobalAnimEventValue(int list_pos, int value_pos)
11120 {
11121   if (list_pos == ANIM_EVENT_UNDEFINED)
11122     return ANIM_EVENT_NONE;
11123
11124   struct GlobalAnimEventInfo *gaei = &global_anim_event_info;
11125   struct GlobalAnimEventListInfo *gaeli = gaei->event_list[list_pos];
11126
11127   return gaeli->event_value[value_pos];
11128 }
11129
11130 int GetGlobalAnimEventValueCount(int list_pos)
11131 {
11132   if (list_pos == ANIM_EVENT_UNDEFINED)
11133     return 0;
11134
11135   struct GlobalAnimEventInfo *gaei = &global_anim_event_info;
11136   struct GlobalAnimEventListInfo *gaeli = gaei->event_list[list_pos];
11137
11138   return gaeli->num_event_values;
11139 }
11140
11141 // This function checks if a string <s> of the format "string1, string2, ..."
11142 // exactly contains a string <s_contained>.
11143
11144 static boolean string_has_parameter(char *s, char *s_contained)
11145 {
11146   char *substring;
11147
11148   if (s == NULL || s_contained == NULL)
11149     return FALSE;
11150
11151   if (strlen(s_contained) > strlen(s))
11152     return FALSE;
11153
11154   if (strncmp(s, s_contained, strlen(s_contained)) == 0)
11155   {
11156     char next_char = s[strlen(s_contained)];
11157
11158     // check if next character is delimiter or whitespace
11159     return (next_char == ',' || next_char == '\0' ||
11160             next_char == ' ' || next_char == '\t' ? TRUE : FALSE);
11161   }
11162
11163   // check if string contains another parameter string after a comma
11164   substring = strchr(s, ',');
11165   if (substring == NULL)        // string does not contain a comma
11166     return FALSE;
11167
11168   // advance string pointer to next character after the comma
11169   substring++;
11170
11171   // skip potential whitespaces after the comma
11172   while (*substring == ' ' || *substring == '\t')
11173     substring++;
11174
11175   return string_has_parameter(substring, s_contained);
11176 }
11177
11178 static int get_anim_parameter_value(char *s)
11179 {
11180   int event_value[] =
11181   {
11182     ANIM_EVENT_CLICK,
11183     ANIM_EVENT_INIT,
11184     ANIM_EVENT_START,
11185     ANIM_EVENT_END,
11186     ANIM_EVENT_POST
11187   };
11188   char *pattern_1[] =
11189   {
11190     "click:anim_",
11191     "init:anim_",
11192     "start:anim_",
11193     "end:anim_",
11194     "post:anim_"
11195   };
11196   char *pattern_2 = ".part_";
11197   char *matching_char = NULL;
11198   char *s_ptr = s;
11199   int pattern_1_len = 0;
11200   int result = ANIM_EVENT_NONE;
11201   int i;
11202
11203   for (i = 0; i < ARRAY_SIZE(event_value); i++)
11204   {
11205     matching_char = strstr(s_ptr, pattern_1[i]);
11206     pattern_1_len = strlen(pattern_1[i]);
11207     result = event_value[i];
11208
11209     if (matching_char != NULL)
11210       break;
11211   }
11212
11213   if (matching_char == NULL)
11214     return ANIM_EVENT_NONE;
11215
11216   s_ptr = matching_char + pattern_1_len;
11217
11218   // check for main animation number ("anim_X" or "anim_XX")
11219   if (*s_ptr >= '0' && *s_ptr <= '9')
11220   {
11221     int gic_anim_nr = (*s_ptr++ - '0');
11222
11223     if (*s_ptr >= '0' && *s_ptr <= '9')
11224       gic_anim_nr = 10 * gic_anim_nr + (*s_ptr++ - '0');
11225
11226     if (gic_anim_nr < 1 || gic_anim_nr > MAX_GLOBAL_ANIMS)
11227       return ANIM_EVENT_NONE;
11228
11229     result |= gic_anim_nr << ANIM_EVENT_ANIM_BIT;
11230   }
11231   else
11232   {
11233     // invalid main animation number specified
11234
11235     return ANIM_EVENT_NONE;
11236   }
11237
11238   // check for animation part number ("part_X" or "part_XX") (optional)
11239   if (strPrefix(s_ptr, pattern_2))
11240   {
11241     s_ptr += strlen(pattern_2);
11242
11243     if (*s_ptr >= '0' && *s_ptr <= '9')
11244     {
11245       int gic_part_nr = (*s_ptr++ - '0');
11246
11247       if (*s_ptr >= '0' && *s_ptr <= '9')
11248         gic_part_nr = 10 * gic_part_nr + (*s_ptr++ - '0');
11249
11250       if (gic_part_nr < 1 || gic_part_nr > MAX_GLOBAL_ANIM_PARTS)
11251         return ANIM_EVENT_NONE;
11252
11253       result |= gic_part_nr << ANIM_EVENT_PART_BIT;
11254     }
11255     else
11256     {
11257       // invalid animation part number specified
11258
11259       return ANIM_EVENT_NONE;
11260     }
11261   }
11262
11263   // discard result if next character is neither delimiter nor whitespace
11264   if (!(*s_ptr == ',' || *s_ptr == '\0' ||
11265         *s_ptr == ' ' || *s_ptr == '\t'))
11266     return ANIM_EVENT_NONE;
11267
11268   return result;
11269 }
11270
11271 static int get_anim_parameter_values(char *s)
11272 {
11273   int list_pos = ANIM_EVENT_UNDEFINED;
11274   int event_value = ANIM_EVENT_DEFAULT;
11275
11276   if (string_has_parameter(s, "any"))
11277     event_value |= ANIM_EVENT_ANY;
11278
11279   if (string_has_parameter(s, "click:self") ||
11280       string_has_parameter(s, "click") ||
11281       string_has_parameter(s, "self"))
11282     event_value |= ANIM_EVENT_SELF;
11283
11284   if (string_has_parameter(s, "unclick:any"))
11285     event_value |= ANIM_EVENT_UNCLICK_ANY;
11286
11287   // if animation event found, add it to global animation event list
11288   if (event_value != ANIM_EVENT_NONE)
11289     list_pos = AddGlobalAnimEventValue(list_pos, event_value);
11290
11291   while (s != NULL)
11292   {
11293     // add optional "click:anim_X" or "click:anim_X.part_X" parameter
11294     event_value = get_anim_parameter_value(s);
11295
11296     // if animation event found, add it to global animation event list
11297     if (event_value != ANIM_EVENT_NONE)
11298       list_pos = AddGlobalAnimEventValue(list_pos, event_value);
11299
11300     // continue with next part of the string, starting with next comma
11301     s = strchr(s + 1, ',');
11302   }
11303
11304   return list_pos;
11305 }
11306
11307 static int get_anim_action_parameter_value(char *token)
11308 {
11309   // check most common default case first to massively speed things up
11310   if (strEqual(token, ARG_UNDEFINED))
11311     return ANIM_EVENT_ACTION_NONE;
11312
11313   int result = getImageIDFromToken(token);
11314
11315   if (result == -1)
11316   {
11317     char *gfx_token = getStringCat2("gfx.", token);
11318
11319     result = getImageIDFromToken(gfx_token);
11320
11321     checked_free(gfx_token);
11322   }
11323
11324   if (result == -1)
11325   {
11326     Key key = getKeyFromX11KeyName(token);
11327
11328     if (key != KSYM_UNDEFINED)
11329       result = -(int)key;
11330   }
11331
11332   if (result == -1)
11333     result = ANIM_EVENT_ACTION_NONE;
11334
11335   return result;
11336 }
11337
11338 int get_parameter_value(char *value_raw, char *suffix, int type)
11339 {
11340   char *value = getStringToLower(value_raw);
11341   int result = 0;       // probably a save default value
11342
11343   if (strEqual(suffix, ".direction"))
11344   {
11345     result = (strEqual(value, "left")  ? MV_LEFT :
11346               strEqual(value, "right") ? MV_RIGHT :
11347               strEqual(value, "up")    ? MV_UP :
11348               strEqual(value, "down")  ? MV_DOWN : MV_NONE);
11349   }
11350   else if (strEqual(suffix, ".position"))
11351   {
11352     result = (strEqual(value, "left")   ? POS_LEFT :
11353               strEqual(value, "right")  ? POS_RIGHT :
11354               strEqual(value, "top")    ? POS_TOP :
11355               strEqual(value, "upper")  ? POS_UPPER :
11356               strEqual(value, "middle") ? POS_MIDDLE :
11357               strEqual(value, "lower")  ? POS_LOWER :
11358               strEqual(value, "bottom") ? POS_BOTTOM :
11359               strEqual(value, "any")    ? POS_ANY :
11360               strEqual(value, "last")   ? POS_LAST : POS_UNDEFINED);
11361   }
11362   else if (strEqual(suffix, ".align"))
11363   {
11364     result = (strEqual(value, "left")   ? ALIGN_LEFT :
11365               strEqual(value, "right")  ? ALIGN_RIGHT :
11366               strEqual(value, "center") ? ALIGN_CENTER :
11367               strEqual(value, "middle") ? ALIGN_CENTER : ALIGN_DEFAULT);
11368   }
11369   else if (strEqual(suffix, ".valign"))
11370   {
11371     result = (strEqual(value, "top")    ? VALIGN_TOP :
11372               strEqual(value, "bottom") ? VALIGN_BOTTOM :
11373               strEqual(value, "middle") ? VALIGN_MIDDLE :
11374               strEqual(value, "center") ? VALIGN_MIDDLE : VALIGN_DEFAULT);
11375   }
11376   else if (strEqual(suffix, ".anim_mode"))
11377   {
11378     result = (string_has_parameter(value, "none")       ? ANIM_NONE :
11379               string_has_parameter(value, "loop")       ? ANIM_LOOP :
11380               string_has_parameter(value, "linear")     ? ANIM_LINEAR :
11381               string_has_parameter(value, "pingpong")   ? ANIM_PINGPONG :
11382               string_has_parameter(value, "pingpong2")  ? ANIM_PINGPONG2 :
11383               string_has_parameter(value, "random")     ? ANIM_RANDOM :
11384               string_has_parameter(value, "ce_value")   ? ANIM_CE_VALUE :
11385               string_has_parameter(value, "ce_score")   ? ANIM_CE_SCORE :
11386               string_has_parameter(value, "ce_delay")   ? ANIM_CE_DELAY :
11387               string_has_parameter(value, "horizontal") ? ANIM_HORIZONTAL :
11388               string_has_parameter(value, "vertical")   ? ANIM_VERTICAL :
11389               string_has_parameter(value, "centered")   ? ANIM_CENTERED :
11390               string_has_parameter(value, "all")        ? ANIM_ALL :
11391               ANIM_DEFAULT);
11392
11393     if (string_has_parameter(value, "once"))
11394       result |= ANIM_ONCE;
11395
11396     if (string_has_parameter(value, "reverse"))
11397       result |= ANIM_REVERSE;
11398
11399     if (string_has_parameter(value, "opaque_player"))
11400       result |= ANIM_OPAQUE_PLAYER;
11401
11402     if (string_has_parameter(value, "static_panel"))
11403       result |= ANIM_STATIC_PANEL;
11404   }
11405   else if (strEqual(suffix, ".init_event") ||
11406            strEqual(suffix, ".anim_event"))
11407   {
11408     result = get_anim_parameter_values(value);
11409   }
11410   else if (strEqual(suffix, ".init_delay_action") ||
11411            strEqual(suffix, ".anim_delay_action") ||
11412            strEqual(suffix, ".post_delay_action") ||
11413            strEqual(suffix, ".init_event_action") ||
11414            strEqual(suffix, ".anim_event_action"))
11415   {
11416     result = get_anim_action_parameter_value(value_raw);
11417   }
11418   else if (strEqual(suffix, ".class"))
11419   {
11420     result = (strEqual(value, ARG_UNDEFINED) ? ARG_UNDEFINED_VALUE :
11421               get_hash_from_key(value));
11422   }
11423   else if (strEqual(suffix, ".style"))
11424   {
11425     result = STYLE_DEFAULT;
11426
11427     if (string_has_parameter(value, "accurate_borders"))
11428       result |= STYLE_ACCURATE_BORDERS;
11429
11430     if (string_has_parameter(value, "inner_corners"))
11431       result |= STYLE_INNER_CORNERS;
11432
11433     if (string_has_parameter(value, "reverse"))
11434       result |= STYLE_REVERSE;
11435
11436     if (string_has_parameter(value, "leftmost_position"))
11437       result |= STYLE_LEFTMOST_POSITION;
11438
11439     if (string_has_parameter(value, "block_clicks"))
11440       result |= STYLE_BLOCK;
11441
11442     if (string_has_parameter(value, "passthrough_clicks"))
11443       result |= STYLE_PASSTHROUGH;
11444
11445     if (string_has_parameter(value, "multiple_actions"))
11446       result |= STYLE_MULTIPLE_ACTIONS;
11447   }
11448   else if (strEqual(suffix, ".fade_mode"))
11449   {
11450     result = (string_has_parameter(value, "none")       ? FADE_MODE_NONE :
11451               string_has_parameter(value, "fade")       ? FADE_MODE_FADE :
11452               string_has_parameter(value, "crossfade")  ? FADE_MODE_CROSSFADE :
11453               string_has_parameter(value, "melt")       ? FADE_MODE_MELT :
11454               string_has_parameter(value, "curtain")    ? FADE_MODE_CURTAIN :
11455               FADE_MODE_DEFAULT);
11456   }
11457   else if (strEqual(suffix, ".auto_delay_unit"))
11458   {
11459     result = (string_has_parameter(value, "ms")     ? AUTO_DELAY_UNIT_MS :
11460               string_has_parameter(value, "frames") ? AUTO_DELAY_UNIT_FRAMES :
11461               AUTO_DELAY_UNIT_DEFAULT);
11462   }
11463   else if (strPrefix(suffix, ".font"))          // (may also be ".font_xyz")
11464   {
11465     result = gfx.get_font_from_token_function(value);
11466   }
11467   else          // generic parameter of type integer or boolean
11468   {
11469     result = (strEqual(value, ARG_UNDEFINED) ? ARG_UNDEFINED_VALUE :
11470               type == TYPE_INTEGER ? get_integer_from_string(value) :
11471               type == TYPE_BOOLEAN ? get_boolean_from_string(value) :
11472               ARG_UNDEFINED_VALUE);
11473   }
11474
11475   free(value);
11476
11477   return result;
11478 }
11479
11480 static int get_token_parameter_value(char *token, char *value_raw)
11481 {
11482   char *suffix;
11483
11484   if (token == NULL || value_raw == NULL)
11485     return ARG_UNDEFINED_VALUE;
11486
11487   suffix = strrchr(token, '.');
11488   if (suffix == NULL)
11489     suffix = token;
11490
11491   if (strEqual(suffix, ".element"))
11492     return getElementFromToken(value_raw);
11493
11494   // !!! USE CORRECT VALUE TYPE (currently works also for TYPE_BOOLEAN) !!!
11495   return get_parameter_value(value_raw, suffix, TYPE_INTEGER);
11496 }
11497
11498 void InitMenuDesignSettings_Static(void)
11499 {
11500   int i;
11501
11502   // always start with reliable default values from static default config
11503   for (i = 0; image_config_vars[i].token != NULL; i++)
11504   {
11505     char *value = getHashEntry(image_config_hash, image_config_vars[i].token);
11506
11507     if (value != NULL)
11508       *image_config_vars[i].value =
11509         get_token_parameter_value(image_config_vars[i].token, value);
11510   }
11511 }
11512
11513 static void InitMenuDesignSettings_SpecialPreProcessing(void)
11514 {
11515   int i;
11516
11517   // the following initializes hierarchical values from static configuration
11518
11519   // special case: initialize "ARG_DEFAULT" values in static default config
11520   // (e.g., initialize "[titlemessage].fade_mode" from "[title].fade_mode")
11521   titlescreen_initial_first_default.fade_mode  =
11522     title_initial_first_default.fade_mode;
11523   titlescreen_initial_first_default.fade_delay =
11524     title_initial_first_default.fade_delay;
11525   titlescreen_initial_first_default.post_delay =
11526     title_initial_first_default.post_delay;
11527   titlescreen_initial_first_default.auto_delay =
11528     title_initial_first_default.auto_delay;
11529   titlescreen_initial_first_default.auto_delay_unit =
11530     title_initial_first_default.auto_delay_unit;
11531   titlescreen_first_default.fade_mode  = title_first_default.fade_mode;
11532   titlescreen_first_default.fade_delay = title_first_default.fade_delay;
11533   titlescreen_first_default.post_delay = title_first_default.post_delay;
11534   titlescreen_first_default.auto_delay = title_first_default.auto_delay;
11535   titlescreen_first_default.auto_delay_unit =
11536     title_first_default.auto_delay_unit;
11537   titlemessage_initial_first_default.fade_mode  =
11538     title_initial_first_default.fade_mode;
11539   titlemessage_initial_first_default.fade_delay =
11540     title_initial_first_default.fade_delay;
11541   titlemessage_initial_first_default.post_delay =
11542     title_initial_first_default.post_delay;
11543   titlemessage_initial_first_default.auto_delay =
11544     title_initial_first_default.auto_delay;
11545   titlemessage_initial_first_default.auto_delay_unit =
11546     title_initial_first_default.auto_delay_unit;
11547   titlemessage_first_default.fade_mode  = title_first_default.fade_mode;
11548   titlemessage_first_default.fade_delay = title_first_default.fade_delay;
11549   titlemessage_first_default.post_delay = title_first_default.post_delay;
11550   titlemessage_first_default.auto_delay = title_first_default.auto_delay;
11551   titlemessage_first_default.auto_delay_unit =
11552     title_first_default.auto_delay_unit;
11553
11554   titlescreen_initial_default.fade_mode  = title_initial_default.fade_mode;
11555   titlescreen_initial_default.fade_delay = title_initial_default.fade_delay;
11556   titlescreen_initial_default.post_delay = title_initial_default.post_delay;
11557   titlescreen_initial_default.auto_delay = title_initial_default.auto_delay;
11558   titlescreen_initial_default.auto_delay_unit =
11559     title_initial_default.auto_delay_unit;
11560   titlescreen_default.fade_mode  = title_default.fade_mode;
11561   titlescreen_default.fade_delay = title_default.fade_delay;
11562   titlescreen_default.post_delay = title_default.post_delay;
11563   titlescreen_default.auto_delay = title_default.auto_delay;
11564   titlescreen_default.auto_delay_unit = title_default.auto_delay_unit;
11565   titlemessage_initial_default.fade_mode  = title_initial_default.fade_mode;
11566   titlemessage_initial_default.fade_delay = title_initial_default.fade_delay;
11567   titlemessage_initial_default.post_delay = title_initial_default.post_delay;
11568   titlemessage_initial_default.auto_delay_unit =
11569     title_initial_default.auto_delay_unit;
11570   titlemessage_default.fade_mode  = title_default.fade_mode;
11571   titlemessage_default.fade_delay = title_default.fade_delay;
11572   titlemessage_default.post_delay = title_default.post_delay;
11573   titlemessage_default.auto_delay = title_default.auto_delay;
11574   titlemessage_default.auto_delay_unit = title_default.auto_delay_unit;
11575
11576   // special case: initialize "ARG_DEFAULT" values in static default config
11577   // (e.g., init "titlemessage_1.fade_mode" from "[titlemessage].fade_mode")
11578   for (i = 0; i < MAX_NUM_TITLE_MESSAGES; i++)
11579   {
11580     titlescreen_initial_first[i] = titlescreen_initial_first_default;
11581     titlescreen_first[i] = titlescreen_first_default;
11582     titlemessage_initial_first[i] = titlemessage_initial_first_default;
11583     titlemessage_first[i] = titlemessage_first_default;
11584
11585     titlescreen_initial[i] = titlescreen_initial_default;
11586     titlescreen[i] = titlescreen_default;
11587     titlemessage_initial[i] = titlemessage_initial_default;
11588     titlemessage[i] = titlemessage_default;
11589   }
11590
11591   // special case: initialize "ARG_DEFAULT" values in static default config
11592   // (eg, init "menu.enter_screen.SCORES.xyz" from "menu.enter_screen.xyz")
11593   for (i = 0; i < NUM_SPECIAL_GFX_ARGS; i++)
11594   {
11595     if (i == GFX_SPECIAL_ARG_TITLE)     // title values already initialized
11596       continue;
11597
11598     menu.enter_screen[i] = menu.enter_screen[GFX_SPECIAL_ARG_DEFAULT];
11599     menu.leave_screen[i] = menu.leave_screen[GFX_SPECIAL_ARG_DEFAULT];
11600     menu.next_screen[i]  = menu.next_screen[GFX_SPECIAL_ARG_DEFAULT];
11601   }
11602
11603   // special case: initialize "ARG_DEFAULT" values in static default config
11604   // (eg, init "viewport.door_1.MAIN.xyz" from "viewport.door_1.xyz")
11605   for (i = 0; i < NUM_SPECIAL_GFX_ARGS; i++)
11606   {
11607     viewport.window[i]    = viewport.window[GFX_SPECIAL_ARG_DEFAULT];
11608     viewport.playfield[i] = viewport.playfield[GFX_SPECIAL_ARG_DEFAULT];
11609     viewport.door_1[i]    = viewport.door_1[GFX_SPECIAL_ARG_DEFAULT];
11610
11611     if (i == GFX_SPECIAL_ARG_EDITOR)    // editor values already initialized
11612       continue;
11613
11614     viewport.door_2[i] = viewport.door_2[GFX_SPECIAL_ARG_DEFAULT];
11615   }
11616 }
11617
11618 static void InitMenuDesignSettings_SpecialPostProcessing(void)
11619 {
11620   static struct
11621   {
11622     struct XY *dst, *src;
11623   }
11624   game_buttons_xy[] =
11625   {
11626     { &game.button.save,        &game.button.stop       },
11627     { &game.button.pause2,      &game.button.pause      },
11628     { &game.button.load,        &game.button.play       },
11629     { &game.button.undo,        &game.button.stop       },
11630     { &game.button.redo,        &game.button.play       },
11631
11632     { NULL,                     NULL                    }
11633   };
11634   int i, j;
11635
11636   // special case: initialize later added SETUP list size from LEVELS value
11637   if (menu.list_size[GAME_MODE_SETUP] == -1)
11638     menu.list_size[GAME_MODE_SETUP] = menu.list_size[GAME_MODE_LEVELS];
11639
11640   // set default position for snapshot buttons to stop/pause/play buttons
11641   for (i = 0; game_buttons_xy[i].dst != NULL; i++)
11642     if ((*game_buttons_xy[i].dst).x == -1 &&
11643         (*game_buttons_xy[i].dst).y == -1)
11644       *game_buttons_xy[i].dst = *game_buttons_xy[i].src;
11645
11646   // --------------------------------------------------------------------------
11647   // dynamic viewports (including playfield margins, borders and alignments)
11648   // --------------------------------------------------------------------------
11649
11650   // dynamic viewports currently only supported for landscape mode
11651   int display_width  = MAX(video.display_width, video.display_height);
11652   int display_height = MIN(video.display_width, video.display_height);
11653
11654   for (i = 0; i < NUM_SPECIAL_GFX_ARGS; i++)
11655   {
11656     struct RectWithBorder *vp_window    = &viewport.window[i];
11657     struct RectWithBorder *vp_playfield = &viewport.playfield[i];
11658     struct RectWithBorder *vp_door_1    = &viewport.door_1[i];
11659     struct RectWithBorder *vp_door_2    = &viewport.door_2[i];
11660     boolean dynamic_window_width     = (vp_window->min_width     != -1);
11661     boolean dynamic_window_height    = (vp_window->min_height    != -1);
11662     boolean dynamic_playfield_width  = (vp_playfield->min_width  != -1);
11663     boolean dynamic_playfield_height = (vp_playfield->min_height != -1);
11664
11665     // adjust window size if min/max width/height is specified
11666
11667     if (vp_window->min_width != -1)
11668     {
11669       int window_width = display_width;
11670
11671       // when using static window height, use aspect ratio of display
11672       if (vp_window->min_height == -1)
11673         window_width = vp_window->height * display_width / display_height;
11674
11675       vp_window->width = MAX(vp_window->min_width, window_width);
11676     }
11677
11678     if (vp_window->min_height != -1)
11679     {
11680       int window_height = display_height;
11681
11682       // when using static window width, use aspect ratio of display
11683       if (vp_window->min_width == -1)
11684         window_height = vp_window->width * display_height / display_width;
11685
11686       vp_window->height = MAX(vp_window->min_height, window_height);
11687     }
11688
11689     if (vp_window->max_width != -1)
11690       vp_window->width = MIN(vp_window->width, vp_window->max_width);
11691
11692     if (vp_window->max_height != -1)
11693       vp_window->height = MIN(vp_window->height, vp_window->max_height);
11694
11695     int playfield_width  = vp_window->width;
11696     int playfield_height = vp_window->height;
11697
11698     // adjust playfield size and position according to specified margins
11699
11700     playfield_width  -= vp_playfield->margin_left;
11701     playfield_width  -= vp_playfield->margin_right;
11702
11703     playfield_height -= vp_playfield->margin_top;
11704     playfield_height -= vp_playfield->margin_bottom;
11705
11706     // adjust playfield size if min/max width/height is specified
11707
11708     if (vp_playfield->min_width != -1)
11709       vp_playfield->width = MAX(vp_playfield->min_width, playfield_width);
11710
11711     if (vp_playfield->min_height != -1)
11712       vp_playfield->height = MAX(vp_playfield->min_height, playfield_height);
11713
11714     if (vp_playfield->max_width != -1)
11715       vp_playfield->width = MIN(vp_playfield->width, vp_playfield->max_width);
11716
11717     if (vp_playfield->max_height != -1)
11718       vp_playfield->height = MIN(vp_playfield->height,vp_playfield->max_height);
11719
11720     // adjust playfield position according to specified alignment
11721
11722     if (vp_playfield->align == ALIGN_LEFT || vp_playfield->x > 0)
11723       vp_playfield->x = ALIGNED_VP_XPOS(vp_playfield);
11724     else if (vp_playfield->align == ALIGN_CENTER)
11725       vp_playfield->x = playfield_width / 2 - vp_playfield->width / 2;
11726     else if (vp_playfield->align == ALIGN_RIGHT)
11727       vp_playfield->x += playfield_width - vp_playfield->width;
11728
11729     if (vp_playfield->valign == VALIGN_TOP || vp_playfield->y > 0)
11730       vp_playfield->y = ALIGNED_VP_YPOS(vp_playfield);
11731     else if (vp_playfield->valign == VALIGN_MIDDLE)
11732       vp_playfield->y = playfield_height / 2 - vp_playfield->height / 2;
11733     else if (vp_playfield->valign == VALIGN_BOTTOM)
11734       vp_playfield->y += playfield_height - vp_playfield->height;
11735
11736     vp_playfield->x += vp_playfield->margin_left;
11737     vp_playfield->y += vp_playfield->margin_top;
11738
11739     // adjust individual playfield borders if only default border is specified
11740
11741     if (vp_playfield->border_left == -1)
11742       vp_playfield->border_left = vp_playfield->border_size;
11743     if (vp_playfield->border_right == -1)
11744       vp_playfield->border_right = vp_playfield->border_size;
11745     if (vp_playfield->border_top == -1)
11746       vp_playfield->border_top = vp_playfield->border_size;
11747     if (vp_playfield->border_bottom == -1)
11748       vp_playfield->border_bottom = vp_playfield->border_size;
11749
11750     // set dynamic playfield borders if borders are specified as undefined
11751     // (but only if window size was dynamic and playfield size was static)
11752
11753     if (dynamic_window_width && !dynamic_playfield_width)
11754     {
11755       if (vp_playfield->border_left == -1)
11756       {
11757         vp_playfield->border_left = (vp_playfield->x -
11758                                      vp_playfield->margin_left);
11759         vp_playfield->x     -= vp_playfield->border_left;
11760         vp_playfield->width += vp_playfield->border_left;
11761       }
11762
11763       if (vp_playfield->border_right == -1)
11764       {
11765         vp_playfield->border_right = (vp_window->width -
11766                                       vp_playfield->x -
11767                                       vp_playfield->width -
11768                                       vp_playfield->margin_right);
11769         vp_playfield->width += vp_playfield->border_right;
11770       }
11771     }
11772
11773     if (dynamic_window_height && !dynamic_playfield_height)
11774     {
11775       if (vp_playfield->border_top == -1)
11776       {
11777         vp_playfield->border_top = (vp_playfield->y -
11778                                     vp_playfield->margin_top);
11779         vp_playfield->y      -= vp_playfield->border_top;
11780         vp_playfield->height += vp_playfield->border_top;
11781       }
11782
11783       if (vp_playfield->border_bottom == -1)
11784       {
11785         vp_playfield->border_bottom = (vp_window->height -
11786                                        vp_playfield->y -
11787                                        vp_playfield->height -
11788                                        vp_playfield->margin_bottom);
11789         vp_playfield->height += vp_playfield->border_bottom;
11790       }
11791     }
11792
11793     // adjust playfield size to be a multiple of a defined alignment tile size
11794
11795     int align_size = vp_playfield->align_size;
11796     int playfield_xtiles = vp_playfield->width  / align_size;
11797     int playfield_ytiles = vp_playfield->height / align_size;
11798     int playfield_width_corrected  = playfield_xtiles * align_size;
11799     int playfield_height_corrected = playfield_ytiles * align_size;
11800     boolean is_playfield_mode = (i == GFX_SPECIAL_ARG_PLAYING ||
11801                                  i == GFX_SPECIAL_ARG_EDITOR);
11802
11803     if (is_playfield_mode &&
11804         dynamic_playfield_width &&
11805         vp_playfield->width != playfield_width_corrected)
11806     {
11807       int playfield_xdiff = vp_playfield->width - playfield_width_corrected;
11808
11809       vp_playfield->width = playfield_width_corrected;
11810
11811       if (vp_playfield->align == ALIGN_LEFT)
11812       {
11813         vp_playfield->border_left += playfield_xdiff;
11814       }
11815       else if (vp_playfield->align == ALIGN_RIGHT)
11816       {
11817         vp_playfield->border_right += playfield_xdiff;
11818       }
11819       else if (vp_playfield->align == ALIGN_CENTER)
11820       {
11821         int border_left_diff  = playfield_xdiff / 2;
11822         int border_right_diff = playfield_xdiff - border_left_diff;
11823
11824         vp_playfield->border_left  += border_left_diff;
11825         vp_playfield->border_right += border_right_diff;
11826       }
11827     }
11828
11829     if (is_playfield_mode &&
11830         dynamic_playfield_height &&
11831         vp_playfield->height != playfield_height_corrected)
11832     {
11833       int playfield_ydiff = vp_playfield->height - playfield_height_corrected;
11834
11835       vp_playfield->height = playfield_height_corrected;
11836
11837       if (vp_playfield->valign == VALIGN_TOP)
11838       {
11839         vp_playfield->border_top += playfield_ydiff;
11840       }
11841       else if (vp_playfield->align == VALIGN_BOTTOM)
11842       {
11843         vp_playfield->border_right += playfield_ydiff;
11844       }
11845       else if (vp_playfield->align == VALIGN_MIDDLE)
11846       {
11847         int border_top_diff    = playfield_ydiff / 2;
11848         int border_bottom_diff = playfield_ydiff - border_top_diff;
11849
11850         vp_playfield->border_top    += border_top_diff;
11851         vp_playfield->border_bottom += border_bottom_diff;
11852       }
11853     }
11854
11855     // adjust door positions according to specified alignment
11856
11857     for (j = 0; j < 2; j++)
11858     {
11859       struct RectWithBorder *vp_door = (j == 0 ? vp_door_1 : vp_door_2);
11860
11861       if (vp_door->align == ALIGN_LEFT || vp_door->x > 0)
11862         vp_door->x = ALIGNED_VP_XPOS(vp_door);
11863       else if (vp_door->align == ALIGN_CENTER)
11864         vp_door->x = vp_window->width / 2 - vp_door->width / 2;
11865       else if (vp_door->align == ALIGN_RIGHT)
11866         vp_door->x += vp_window->width - vp_door->width;
11867
11868       if (vp_door->valign == VALIGN_TOP || vp_door->y > 0)
11869         vp_door->y = ALIGNED_VP_YPOS(vp_door);
11870       else if (vp_door->valign == VALIGN_MIDDLE)
11871         vp_door->y = vp_window->height / 2 - vp_door->height / 2;
11872       else if (vp_door->valign == VALIGN_BOTTOM)
11873         vp_door->y += vp_window->height - vp_door->height;
11874     }
11875   }
11876 }
11877
11878 static void InitMenuDesignSettings_SpecialPostProcessing_AfterGraphics(void)
11879 {
11880   static struct
11881   {
11882     struct XYTileSize *dst, *src;
11883     int graphic;
11884   }
11885   editor_buttons_xy[] =
11886   {
11887     {
11888       &editor.button.element_left,      &editor.palette.element_left,
11889       IMG_GFX_EDITOR_BUTTON_ELEMENT_LEFT
11890     },
11891     {
11892       &editor.button.element_middle,    &editor.palette.element_middle,
11893       IMG_GFX_EDITOR_BUTTON_ELEMENT_MIDDLE
11894     },
11895     {
11896       &editor.button.element_right,     &editor.palette.element_right,
11897       IMG_GFX_EDITOR_BUTTON_ELEMENT_RIGHT
11898     },
11899
11900     { NULL,                     NULL                    }
11901   };
11902   int i;
11903
11904   // set default position for element buttons to element graphics
11905   for (i = 0; editor_buttons_xy[i].dst != NULL; i++)
11906   {
11907     if ((*editor_buttons_xy[i].dst).x == -1 &&
11908         (*editor_buttons_xy[i].dst).y == -1)
11909     {
11910       struct GraphicInfo *gd = &graphic_info[editor_buttons_xy[i].graphic];
11911
11912       gd->width = gd->height = editor_buttons_xy[i].src->tile_size;
11913
11914       *editor_buttons_xy[i].dst = *editor_buttons_xy[i].src;
11915     }
11916   }
11917
11918   // adjust editor palette rows and columns if specified to be dynamic
11919
11920   if (editor.palette.cols == -1)
11921   {
11922     int vp_width = viewport.playfield[GFX_SPECIAL_ARG_EDITOR].width;
11923     int bt_width = graphic_info[IMG_EDITOR_PALETTE_BUTTON].width;
11924     int sc_width = graphic_info[IMG_EDITOR_PALETTE_SCROLLBAR].width;
11925
11926     editor.palette.cols = (vp_width - sc_width) / bt_width;
11927
11928     if (editor.palette.x == -1)
11929     {
11930       int palette_width = editor.palette.cols * bt_width + sc_width;
11931
11932       editor.palette.x = (vp_width - palette_width) / 2;
11933     }
11934   }
11935
11936   if (editor.palette.rows == -1)
11937   {
11938     int vp_height = viewport.playfield[GFX_SPECIAL_ARG_EDITOR].height;
11939     int bt_height = graphic_info[IMG_EDITOR_PALETTE_BUTTON].height;
11940     int tx_height = getFontHeight(FONT_TEXT_2);
11941
11942     editor.palette.rows = (vp_height - tx_height) / bt_height;
11943
11944     if (editor.palette.y == -1)
11945     {
11946       int palette_height = editor.palette.rows * bt_height + tx_height;
11947
11948       editor.palette.y = (vp_height - palette_height) / 2;
11949     }
11950   }
11951 }
11952
11953 static void LoadMenuDesignSettingsFromFilename(char *filename)
11954 {
11955   static struct TitleFadingInfo tfi;
11956   static struct TitleMessageInfo tmi;
11957   static struct TokenInfo title_tokens[] =
11958   {
11959     { TYPE_INTEGER,     &tfi.fade_mode,         ".fade_mode"            },
11960     { TYPE_INTEGER,     &tfi.fade_delay,        ".fade_delay"           },
11961     { TYPE_INTEGER,     &tfi.post_delay,        ".post_delay"           },
11962     { TYPE_INTEGER,     &tfi.auto_delay,        ".auto_delay"           },
11963     { TYPE_INTEGER,     &tfi.auto_delay_unit,   ".auto_delay_unit"      },
11964
11965     { -1,               NULL,                   NULL                    }
11966   };
11967   static struct TokenInfo titlemessage_tokens[] =
11968   {
11969     { TYPE_INTEGER,     &tmi.x,                 ".x"                    },
11970     { TYPE_INTEGER,     &tmi.y,                 ".y"                    },
11971     { TYPE_INTEGER,     &tmi.width,             ".width"                },
11972     { TYPE_INTEGER,     &tmi.height,            ".height"               },
11973     { TYPE_INTEGER,     &tmi.chars,             ".chars"                },
11974     { TYPE_INTEGER,     &tmi.lines,             ".lines"                },
11975     { TYPE_INTEGER,     &tmi.align,             ".align"                },
11976     { TYPE_INTEGER,     &tmi.valign,            ".valign"               },
11977     { TYPE_INTEGER,     &tmi.font,              ".font"                 },
11978     { TYPE_BOOLEAN,     &tmi.autowrap,          ".autowrap"             },
11979     { TYPE_BOOLEAN,     &tmi.centered,          ".centered"             },
11980     { TYPE_BOOLEAN,     &tmi.parse_comments,    ".parse_comments"       },
11981     { TYPE_INTEGER,     &tmi.sort_priority,     ".sort_priority"        },
11982     { TYPE_INTEGER,     &tmi.fade_mode,         ".fade_mode"            },
11983     { TYPE_INTEGER,     &tmi.fade_delay,        ".fade_delay"           },
11984     { TYPE_INTEGER,     &tmi.post_delay,        ".post_delay"           },
11985     { TYPE_INTEGER,     &tmi.auto_delay,        ".auto_delay"           },
11986     { TYPE_INTEGER,     &tmi.auto_delay_unit,   ".auto_delay_unit"      },
11987
11988     { -1,               NULL,                   NULL                    }
11989   };
11990   static struct
11991   {
11992     struct TitleFadingInfo *info;
11993     char *text;
11994   }
11995   title_info[] =
11996   {
11997     // initialize first titles from "enter screen" definitions, if defined
11998     { &title_initial_first_default,     "menu.enter_screen.TITLE"       },
11999     { &title_first_default,             "menu.enter_screen.TITLE"       },
12000
12001     // initialize title screens from "next screen" definitions, if defined
12002     { &title_initial_default,           "menu.next_screen.TITLE"        },
12003     { &title_default,                   "menu.next_screen.TITLE"        },
12004
12005     { NULL,                             NULL                            }
12006   };
12007   static struct
12008   {
12009     struct TitleMessageInfo *array;
12010     char *text;
12011   }
12012   titlemessage_arrays[] =
12013   {
12014     // initialize first titles from "enter screen" definitions, if defined
12015     { titlescreen_initial_first,        "menu.enter_screen.TITLE"       },
12016     { titlescreen_first,                "menu.enter_screen.TITLE"       },
12017     { titlemessage_initial_first,       "menu.enter_screen.TITLE"       },
12018     { titlemessage_first,               "menu.enter_screen.TITLE"       },
12019
12020     // initialize titles from "next screen" definitions, if defined
12021     { titlescreen_initial,              "menu.next_screen.TITLE"        },
12022     { titlescreen,                      "menu.next_screen.TITLE"        },
12023     { titlemessage_initial,             "menu.next_screen.TITLE"        },
12024     { titlemessage,                     "menu.next_screen.TITLE"        },
12025
12026     // overwrite titles with title definitions, if defined
12027     { titlescreen_initial_first,        "[title_initial]"               },
12028     { titlescreen_first,                "[title]"                       },
12029     { titlemessage_initial_first,       "[title_initial]"               },
12030     { titlemessage_first,               "[title]"                       },
12031
12032     { titlescreen_initial,              "[title_initial]"               },
12033     { titlescreen,                      "[title]"                       },
12034     { titlemessage_initial,             "[title_initial]"               },
12035     { titlemessage,                     "[title]"                       },
12036
12037     // overwrite titles with title screen/message definitions, if defined
12038     { titlescreen_initial_first,        "[titlescreen_initial]"         },
12039     { titlescreen_first,                "[titlescreen]"                 },
12040     { titlemessage_initial_first,       "[titlemessage_initial]"        },
12041     { titlemessage_first,               "[titlemessage]"                },
12042
12043     { titlescreen_initial,              "[titlescreen_initial]"         },
12044     { titlescreen,                      "[titlescreen]"                 },
12045     { titlemessage_initial,             "[titlemessage_initial]"        },
12046     { titlemessage,                     "[titlemessage]"                },
12047
12048     { NULL,                             NULL                            }
12049   };
12050   SetupFileHash *setup_file_hash;
12051   int i, j, k;
12052
12053   if ((setup_file_hash = loadSetupFileHash(filename)) == NULL)
12054     return;
12055
12056   // the following initializes hierarchical values from dynamic configuration
12057
12058   // special case: initialize with default values that may be overwritten
12059   // (e.g., init "menu.draw_xoffset.INFO" from "menu.draw_xoffset")
12060   for (i = 0; i < NUM_SPECIAL_GFX_ARGS; i++)
12061   {
12062     struct TokenIntPtrInfo menu_config[] =
12063     {
12064       { "menu.draw_xoffset",    &menu.draw_xoffset[i]   },
12065       { "menu.draw_yoffset",    &menu.draw_yoffset[i]   },
12066       { "menu.list_size",       &menu.list_size[i]      }
12067     };
12068
12069     for (j = 0; j < ARRAY_SIZE(menu_config); j++)
12070     {
12071       char *token = menu_config[j].token;
12072       char *value = getHashEntry(setup_file_hash, token);
12073
12074       if (value != NULL)
12075         *menu_config[j].value = get_integer_from_string(value);
12076     }
12077   }
12078
12079   // special case: initialize with default values that may be overwritten
12080   // (eg, init "menu.draw_xoffset.INFO[XXX]" from "menu.draw_xoffset.INFO")
12081   for (i = 0; i < NUM_SPECIAL_GFX_INFO_ARGS; i++)
12082   {
12083     struct TokenIntPtrInfo menu_config[] =
12084     {
12085       { "menu.draw_xoffset.INFO",       &menu.draw_xoffset_info[i]      },
12086       { "menu.draw_yoffset.INFO",       &menu.draw_yoffset_info[i]      },
12087       { "menu.list_size.INFO",          &menu.list_size_info[i]         }
12088     };
12089
12090     for (j = 0; j < ARRAY_SIZE(menu_config); j++)
12091     {
12092       char *token = menu_config[j].token;
12093       char *value = getHashEntry(setup_file_hash, token);
12094
12095       if (value != NULL)
12096         *menu_config[j].value = get_integer_from_string(value);
12097     }
12098   }
12099
12100   // special case: initialize with default values that may be overwritten
12101   // (eg, init "menu.draw_xoffset.SETUP[XXX]" from "menu.draw_xoffset.SETUP")
12102   for (i = 0; i < NUM_SPECIAL_GFX_SETUP_ARGS; i++)
12103   {
12104     struct TokenIntPtrInfo menu_config[] =
12105     {
12106       { "menu.draw_xoffset.SETUP",      &menu.draw_xoffset_setup[i]     },
12107       { "menu.draw_yoffset.SETUP",      &menu.draw_yoffset_setup[i]     }
12108     };
12109
12110     for (j = 0; j < ARRAY_SIZE(menu_config); j++)
12111     {
12112       char *token = menu_config[j].token;
12113       char *value = getHashEntry(setup_file_hash, token);
12114
12115       if (value != NULL)
12116         *menu_config[j].value = get_integer_from_string(value);
12117     }
12118   }
12119
12120   // special case: initialize with default values that may be overwritten
12121   // (eg, init "menu.line_spacing.INFO[XXX]" from "menu.line_spacing.INFO")
12122   for (i = 0; i < NUM_SPECIAL_GFX_INFO_ARGS; i++)
12123   {
12124     struct TokenIntPtrInfo menu_config[] =
12125     {
12126       { "menu.left_spacing.INFO",       &menu.left_spacing_info[i]      },
12127       { "menu.right_spacing.INFO",      &menu.right_spacing_info[i]     },
12128       { "menu.top_spacing.INFO",        &menu.top_spacing_info[i]       },
12129       { "menu.bottom_spacing.INFO",     &menu.bottom_spacing_info[i]    },
12130       { "menu.paragraph_spacing.INFO",  &menu.paragraph_spacing_info[i] },
12131       { "menu.headline1_spacing.INFO",  &menu.headline1_spacing_info[i] },
12132       { "menu.headline2_spacing.INFO",  &menu.headline2_spacing_info[i] },
12133       { "menu.line_spacing.INFO",       &menu.line_spacing_info[i]      },
12134       { "menu.extra_spacing.INFO",      &menu.extra_spacing_info[i]     },
12135     };
12136
12137     for (j = 0; j < ARRAY_SIZE(menu_config); j++)
12138     {
12139       char *token = menu_config[j].token;
12140       char *value = getHashEntry(setup_file_hash, token);
12141
12142       if (value != NULL)
12143         *menu_config[j].value = get_integer_from_string(value);
12144     }
12145   }
12146
12147   // special case: initialize with default values that may be overwritten
12148   // (eg, init "menu.enter_screen.SCORES.xyz" from "menu.enter_screen.xyz")
12149   for (i = 0; i < NUM_SPECIAL_GFX_ARGS; i++)
12150   {
12151     struct TokenIntPtrInfo menu_config[] =
12152     {
12153       { "menu.enter_screen.fade_mode",  &menu.enter_screen[i].fade_mode  },
12154       { "menu.enter_screen.fade_delay", &menu.enter_screen[i].fade_delay },
12155       { "menu.enter_screen.post_delay", &menu.enter_screen[i].post_delay },
12156       { "menu.leave_screen.fade_mode",  &menu.leave_screen[i].fade_mode  },
12157       { "menu.leave_screen.fade_delay", &menu.leave_screen[i].fade_delay },
12158       { "menu.leave_screen.post_delay", &menu.leave_screen[i].post_delay },
12159       { "menu.next_screen.fade_mode",   &menu.next_screen[i].fade_mode   },
12160       { "menu.next_screen.fade_delay",  &menu.next_screen[i].fade_delay  },
12161       { "menu.next_screen.post_delay",  &menu.next_screen[i].post_delay  }
12162     };
12163
12164     for (j = 0; j < ARRAY_SIZE(menu_config); j++)
12165     {
12166       char *token = menu_config[j].token;
12167       char *value = getHashEntry(setup_file_hash, token);
12168
12169       if (value != NULL)
12170         *menu_config[j].value = get_token_parameter_value(token, value);
12171     }
12172   }
12173
12174   // special case: initialize with default values that may be overwritten
12175   // (eg, init "viewport.door_1.MAIN.xyz" from "viewport.door_1.xyz")
12176   for (i = 0; i < NUM_SPECIAL_GFX_ARGS; i++)
12177   {
12178     struct
12179     {
12180       char *token_prefix;
12181       struct RectWithBorder *struct_ptr;
12182     }
12183     vp_struct[] =
12184     {
12185       { "viewport.window",      &viewport.window[i]     },
12186       { "viewport.playfield",   &viewport.playfield[i]  },
12187       { "viewport.door_1",      &viewport.door_1[i]     },
12188       { "viewport.door_2",      &viewport.door_2[i]     }
12189     };
12190
12191     for (j = 0; j < ARRAY_SIZE(vp_struct); j++)
12192     {
12193       struct TokenIntPtrInfo vp_config[] =
12194       {
12195         { ".x",                 &vp_struct[j].struct_ptr->x             },
12196         { ".y",                 &vp_struct[j].struct_ptr->y             },
12197         { ".width",             &vp_struct[j].struct_ptr->width         },
12198         { ".height",            &vp_struct[j].struct_ptr->height        },
12199         { ".min_width",         &vp_struct[j].struct_ptr->min_width     },
12200         { ".min_height",        &vp_struct[j].struct_ptr->min_height    },
12201         { ".max_width",         &vp_struct[j].struct_ptr->max_width     },
12202         { ".max_height",        &vp_struct[j].struct_ptr->max_height    },
12203         { ".margin_left",       &vp_struct[j].struct_ptr->margin_left   },
12204         { ".margin_right",      &vp_struct[j].struct_ptr->margin_right  },
12205         { ".margin_top",        &vp_struct[j].struct_ptr->margin_top    },
12206         { ".margin_bottom",     &vp_struct[j].struct_ptr->margin_bottom },
12207         { ".border_left",       &vp_struct[j].struct_ptr->border_left   },
12208         { ".border_right",      &vp_struct[j].struct_ptr->border_right  },
12209         { ".border_top",        &vp_struct[j].struct_ptr->border_top    },
12210         { ".border_bottom",     &vp_struct[j].struct_ptr->border_bottom },
12211         { ".border_size",       &vp_struct[j].struct_ptr->border_size   },
12212         { ".align_size",        &vp_struct[j].struct_ptr->align_size    },
12213         { ".align",             &vp_struct[j].struct_ptr->align         },
12214         { ".valign",            &vp_struct[j].struct_ptr->valign        }
12215       };
12216
12217       for (k = 0; k < ARRAY_SIZE(vp_config); k++)
12218       {
12219         char *token = getStringCat2(vp_struct[j].token_prefix,
12220                                     vp_config[k].token);
12221         char *value = getHashEntry(setup_file_hash, token);
12222
12223         if (value != NULL)
12224           *vp_config[k].value = get_token_parameter_value(token, value);
12225
12226         free(token);
12227       }
12228     }
12229   }
12230
12231   // special case: initialize with default values that may be overwritten
12232   // (e.g., init "[title].fade_mode" from "menu.next_screen.TITLE.fade_mode")
12233   for (i = 0; title_info[i].info != NULL; i++)
12234   {
12235     struct TitleFadingInfo *info = title_info[i].info;
12236     char *base_token = title_info[i].text;
12237
12238     for (j = 0; title_tokens[j].type != -1; j++)
12239     {
12240       char *token = getStringCat2(base_token, title_tokens[j].text);
12241       char *value = getHashEntry(setup_file_hash, token);
12242
12243       if (value != NULL)
12244       {
12245         int parameter_value = get_token_parameter_value(token, value);
12246
12247         tfi = *info;
12248
12249         *(int *)title_tokens[j].value = (int)parameter_value;
12250
12251         *info = tfi;
12252       }
12253
12254       free(token);
12255     }
12256   }
12257
12258   // special case: initialize with default values that may be overwritten
12259   // (e.g., init "titlemessage_1.fade_mode" from "[titlemessage].fade_mode")
12260   for (i = 0; titlemessage_arrays[i].array != NULL; i++)
12261   {
12262     struct TitleMessageInfo *array = titlemessage_arrays[i].array;
12263     char *base_token = titlemessage_arrays[i].text;
12264
12265     for (j = 0; titlemessage_tokens[j].type != -1; j++)
12266     {
12267       char *token = getStringCat2(base_token, titlemessage_tokens[j].text);
12268       char *value = getHashEntry(setup_file_hash, token);
12269
12270       if (value != NULL)
12271       {
12272         int parameter_value = get_token_parameter_value(token, value);
12273
12274         for (k = 0; k < MAX_NUM_TITLE_MESSAGES; k++)
12275         {
12276           tmi = array[k];
12277
12278           if (titlemessage_tokens[j].type == TYPE_INTEGER)
12279             *(int     *)titlemessage_tokens[j].value = (int)parameter_value;
12280           else
12281             *(boolean *)titlemessage_tokens[j].value = (boolean)parameter_value;
12282
12283           array[k] = tmi;
12284         }
12285       }
12286
12287       free(token);
12288     }
12289   }
12290
12291   // special case: check if network and preview player positions are redefined,
12292   // to compare this later against the main menu level preview being redefined
12293   struct TokenIntPtrInfo menu_config_players[] =
12294   {
12295     { "main.network_players.x", &menu.main.network_players.redefined    },
12296     { "main.network_players.y", &menu.main.network_players.redefined    },
12297     { "main.preview_players.x", &menu.main.preview_players.redefined    },
12298     { "main.preview_players.y", &menu.main.preview_players.redefined    },
12299     { "preview.x",              &preview.redefined                      },
12300     { "preview.y",              &preview.redefined                      }
12301   };
12302
12303   for (i = 0; i < ARRAY_SIZE(menu_config_players); i++)
12304     *menu_config_players[i].value = FALSE;
12305
12306   for (i = 0; i < ARRAY_SIZE(menu_config_players); i++)
12307     if (getHashEntry(setup_file_hash, menu_config_players[i].token) != NULL)
12308       *menu_config_players[i].value = TRUE;
12309
12310   // read (and overwrite with) values that may be specified in config file
12311   for (i = 0; image_config_vars[i].token != NULL; i++)
12312   {
12313     char *value = getHashEntry(setup_file_hash, image_config_vars[i].token);
12314
12315     // (ignore definitions set to "[DEFAULT]" which are already initialized)
12316     if (value != NULL && !strEqual(value, ARG_DEFAULT))
12317       *image_config_vars[i].value =
12318         get_token_parameter_value(image_config_vars[i].token, value);
12319   }
12320
12321   freeSetupFileHash(setup_file_hash);
12322 }
12323
12324 void LoadMenuDesignSettings(void)
12325 {
12326   char *filename_base = UNDEFINED_FILENAME, *filename_local;
12327
12328   InitMenuDesignSettings_Static();
12329   InitMenuDesignSettings_SpecialPreProcessing();
12330
12331   if (!GFX_OVERRIDE_ARTWORK(ARTWORK_TYPE_GRAPHICS))
12332   {
12333     // first look for special settings configured in level series config
12334     filename_base = getCustomArtworkLevelConfigFilename(ARTWORK_TYPE_GRAPHICS);
12335
12336     if (fileExists(filename_base))
12337       LoadMenuDesignSettingsFromFilename(filename_base);
12338   }
12339
12340   filename_local = getCustomArtworkConfigFilename(ARTWORK_TYPE_GRAPHICS);
12341
12342   if (filename_local != NULL && !strEqual(filename_base, filename_local))
12343     LoadMenuDesignSettingsFromFilename(filename_local);
12344
12345   InitMenuDesignSettings_SpecialPostProcessing();
12346 }
12347
12348 void LoadMenuDesignSettings_AfterGraphics(void)
12349 {
12350   InitMenuDesignSettings_SpecialPostProcessing_AfterGraphics();
12351 }
12352
12353 void LoadUserDefinedEditorElementList(int **elements, int *num_elements)
12354 {
12355   char *filename = getEditorSetupFilename();
12356   SetupFileList *setup_file_list, *list;
12357   SetupFileHash *element_hash;
12358   int num_unknown_tokens = 0;
12359   int i;
12360
12361   if ((setup_file_list = loadSetupFileList(filename)) == NULL)
12362     return;
12363
12364   element_hash = newSetupFileHash();
12365
12366   for (i = 0; i < NUM_FILE_ELEMENTS; i++)
12367     setHashEntry(element_hash, element_info[i].token_name, i_to_a(i));
12368
12369   // determined size may be larger than needed (due to unknown elements)
12370   *num_elements = 0;
12371   for (list = setup_file_list; list != NULL; list = list->next)
12372     (*num_elements)++;
12373
12374   // add space for up to 3 more elements for padding that may be needed
12375   *num_elements += 3;
12376
12377   // free memory for old list of elements, if needed
12378   checked_free(*elements);
12379
12380   // allocate memory for new list of elements
12381   *elements = checked_malloc(*num_elements * sizeof(int));
12382
12383   *num_elements = 0;
12384   for (list = setup_file_list; list != NULL; list = list->next)
12385   {
12386     char *value = getHashEntry(element_hash, list->token);
12387
12388     if (value == NULL)          // try to find obsolete token mapping
12389     {
12390       char *mapped_token = get_mapped_token(list->token);
12391
12392       if (mapped_token != NULL)
12393       {
12394         value = getHashEntry(element_hash, mapped_token);
12395
12396         free(mapped_token);
12397       }
12398     }
12399
12400     if (value != NULL)
12401     {
12402       (*elements)[(*num_elements)++] = atoi(value);
12403     }
12404     else
12405     {
12406       if (num_unknown_tokens == 0)
12407       {
12408         Warn("---");
12409         Warn("unknown token(s) found in config file:");
12410         Warn("- config file: '%s'", filename);
12411
12412         num_unknown_tokens++;
12413       }
12414
12415       Warn("- token: '%s'", list->token);
12416     }
12417   }
12418
12419   if (num_unknown_tokens > 0)
12420     Warn("---");
12421
12422   while (*num_elements % 4)     // pad with empty elements, if needed
12423     (*elements)[(*num_elements)++] = EL_EMPTY;
12424
12425   freeSetupFileList(setup_file_list);
12426   freeSetupFileHash(element_hash);
12427
12428 #if 0
12429   for (i = 0; i < *num_elements; i++)
12430     Debug("editor", "element '%s' [%d]\n",
12431           element_info[(*elements)[i]].token_name, (*elements)[i]);
12432 #endif
12433 }
12434
12435 static struct MusicFileInfo *get_music_file_info_ext(char *basename, int music,
12436                                                      boolean is_sound)
12437 {
12438   SetupFileHash *setup_file_hash = NULL;
12439   struct MusicFileInfo tmp_music_file_info, *new_music_file_info;
12440   char *filename_music, *filename_prefix, *filename_info;
12441   struct
12442   {
12443     char *token;
12444     char **value_ptr;
12445   }
12446   token_to_value_ptr[] =
12447   {
12448     { "title_header",   &tmp_music_file_info.title_header       },
12449     { "artist_header",  &tmp_music_file_info.artist_header      },
12450     { "album_header",   &tmp_music_file_info.album_header       },
12451     { "year_header",    &tmp_music_file_info.year_header        },
12452
12453     { "title",          &tmp_music_file_info.title              },
12454     { "artist",         &tmp_music_file_info.artist             },
12455     { "album",          &tmp_music_file_info.album              },
12456     { "year",           &tmp_music_file_info.year               },
12457
12458     { NULL,             NULL                                    },
12459   };
12460   int i;
12461
12462   filename_music = (is_sound ? getCustomSoundFilename(basename) :
12463                     getCustomMusicFilename(basename));
12464
12465   if (filename_music == NULL)
12466     return NULL;
12467
12468   // ---------- try to replace file extension ----------
12469
12470   filename_prefix = getStringCopy(filename_music);
12471   if (strrchr(filename_prefix, '.') != NULL)
12472     *strrchr(filename_prefix, '.') = '\0';
12473   filename_info = getStringCat2(filename_prefix, ".txt");
12474
12475   if (fileExists(filename_info))
12476     setup_file_hash = loadSetupFileHash(filename_info);
12477
12478   free(filename_prefix);
12479   free(filename_info);
12480
12481   if (setup_file_hash == NULL)
12482   {
12483     // ---------- try to add file extension ----------
12484
12485     filename_prefix = getStringCopy(filename_music);
12486     filename_info = getStringCat2(filename_prefix, ".txt");
12487
12488     if (fileExists(filename_info))
12489       setup_file_hash = loadSetupFileHash(filename_info);
12490
12491     free(filename_prefix);
12492     free(filename_info);
12493   }
12494
12495   if (setup_file_hash == NULL)
12496     return NULL;
12497
12498   // ---------- music file info found ----------
12499
12500   clear_mem(&tmp_music_file_info, sizeof(struct MusicFileInfo));
12501
12502   for (i = 0; token_to_value_ptr[i].token != NULL; i++)
12503   {
12504     char *value = getHashEntry(setup_file_hash, token_to_value_ptr[i].token);
12505
12506     *token_to_value_ptr[i].value_ptr =
12507       getStringCopy(value != NULL && *value != '\0' ? value : UNKNOWN_NAME);
12508   }
12509
12510   tmp_music_file_info.basename = getStringCopy(basename);
12511   tmp_music_file_info.music = music;
12512   tmp_music_file_info.is_sound = is_sound;
12513
12514   new_music_file_info = checked_malloc(sizeof(struct MusicFileInfo));
12515   *new_music_file_info = tmp_music_file_info;
12516
12517   return new_music_file_info;
12518 }
12519
12520 static struct MusicFileInfo *get_music_file_info(char *basename, int music)
12521 {
12522   return get_music_file_info_ext(basename, music, FALSE);
12523 }
12524
12525 static struct MusicFileInfo *get_sound_file_info(char *basename, int sound)
12526 {
12527   return get_music_file_info_ext(basename, sound, TRUE);
12528 }
12529
12530 static boolean music_info_listed_ext(struct MusicFileInfo *list,
12531                                      char *basename, boolean is_sound)
12532 {
12533   for (; list != NULL; list = list->next)
12534     if (list->is_sound == is_sound && strEqual(list->basename, basename))
12535       return TRUE;
12536
12537   return FALSE;
12538 }
12539
12540 static boolean music_info_listed(struct MusicFileInfo *list, char *basename)
12541 {
12542   return music_info_listed_ext(list, basename, FALSE);
12543 }
12544
12545 static boolean sound_info_listed(struct MusicFileInfo *list, char *basename)
12546 {
12547   return music_info_listed_ext(list, basename, TRUE);
12548 }
12549
12550 void LoadMusicInfo(void)
12551 {
12552   char *music_directory = getCustomMusicDirectory();
12553   int num_music = getMusicListSize();
12554   int num_music_noconf = 0;
12555   int num_sounds = getSoundListSize();
12556   Directory *dir;
12557   DirectoryEntry *dir_entry;
12558   struct FileInfo *music, *sound;
12559   struct MusicFileInfo *next, **new;
12560   int i;
12561
12562   while (music_file_info != NULL)
12563   {
12564     next = music_file_info->next;
12565
12566     checked_free(music_file_info->basename);
12567
12568     checked_free(music_file_info->title_header);
12569     checked_free(music_file_info->artist_header);
12570     checked_free(music_file_info->album_header);
12571     checked_free(music_file_info->year_header);
12572
12573     checked_free(music_file_info->title);
12574     checked_free(music_file_info->artist);
12575     checked_free(music_file_info->album);
12576     checked_free(music_file_info->year);
12577
12578     free(music_file_info);
12579
12580     music_file_info = next;
12581   }
12582
12583   new = &music_file_info;
12584
12585   for (i = 0; i < num_music; i++)
12586   {
12587     music = getMusicListEntry(i);
12588
12589     if (music->filename == NULL)
12590       continue;
12591
12592     if (strEqual(music->filename, UNDEFINED_FILENAME))
12593       continue;
12594
12595     // a configured file may be not recognized as music
12596     if (!FileIsMusic(music->filename))
12597       continue;
12598
12599     if (!music_info_listed(music_file_info, music->filename))
12600     {
12601       *new = get_music_file_info(music->filename, i);
12602
12603       if (*new != NULL)
12604         new = &(*new)->next;
12605     }
12606   }
12607
12608   if ((dir = openDirectory(music_directory)) == NULL)
12609   {
12610     Warn("cannot read music directory '%s'", music_directory);
12611
12612     return;
12613   }
12614
12615   while ((dir_entry = readDirectory(dir)) != NULL)      // loop all entries
12616   {
12617     char *basename = dir_entry->basename;
12618     boolean music_already_used = FALSE;
12619     int i;
12620
12621     // skip all music files that are configured in music config file
12622     for (i = 0; i < num_music; i++)
12623     {
12624       music = getMusicListEntry(i);
12625
12626       if (music->filename == NULL)
12627         continue;
12628
12629       if (strEqual(basename, music->filename))
12630       {
12631         music_already_used = TRUE;
12632         break;
12633       }
12634     }
12635
12636     if (music_already_used)
12637       continue;
12638
12639     if (!FileIsMusic(dir_entry->filename))
12640       continue;
12641
12642     if (!music_info_listed(music_file_info, basename))
12643     {
12644       *new = get_music_file_info(basename, MAP_NOCONF_MUSIC(num_music_noconf));
12645
12646       if (*new != NULL)
12647         new = &(*new)->next;
12648     }
12649
12650     num_music_noconf++;
12651   }
12652
12653   closeDirectory(dir);
12654
12655   for (i = 0; i < num_sounds; i++)
12656   {
12657     sound = getSoundListEntry(i);
12658
12659     if (sound->filename == NULL)
12660       continue;
12661
12662     if (strEqual(sound->filename, UNDEFINED_FILENAME))
12663       continue;
12664
12665     // a configured file may be not recognized as sound
12666     if (!FileIsSound(sound->filename))
12667       continue;
12668
12669     if (!sound_info_listed(music_file_info, sound->filename))
12670     {
12671       *new = get_sound_file_info(sound->filename, i);
12672       if (*new != NULL)
12673         new = &(*new)->next;
12674     }
12675   }
12676 }
12677
12678 static void add_helpanim_entry(int element, int action, int direction,
12679                                int delay, int *num_list_entries)
12680 {
12681   struct HelpAnimInfo *new_list_entry;
12682   (*num_list_entries)++;
12683
12684   helpanim_info =
12685     checked_realloc(helpanim_info,
12686                     *num_list_entries * sizeof(struct HelpAnimInfo));
12687   new_list_entry = &helpanim_info[*num_list_entries - 1];
12688
12689   new_list_entry->element = element;
12690   new_list_entry->action = action;
12691   new_list_entry->direction = direction;
12692   new_list_entry->delay = delay;
12693 }
12694
12695 static void print_unknown_token(char *filename, char *token, int token_nr)
12696 {
12697   if (token_nr == 0)
12698   {
12699     Warn("---");
12700     Warn("unknown token(s) found in config file:");
12701     Warn("- config file: '%s'", filename);
12702   }
12703
12704   Warn("- token: '%s'", token);
12705 }
12706
12707 static void print_unknown_token_end(int token_nr)
12708 {
12709   if (token_nr > 0)
12710     Warn("---");
12711 }
12712
12713 void LoadHelpAnimInfo(void)
12714 {
12715   char *filename = getHelpAnimFilename();
12716   SetupFileList *setup_file_list = NULL, *list;
12717   SetupFileHash *element_hash, *action_hash, *direction_hash;
12718   int num_list_entries = 0;
12719   int num_unknown_tokens = 0;
12720   int i;
12721
12722   if (fileExists(filename))
12723     setup_file_list = loadSetupFileList(filename);
12724
12725   if (setup_file_list == NULL)
12726   {
12727     // use reliable default values from static configuration
12728     SetupFileList *insert_ptr;
12729
12730     insert_ptr = setup_file_list =
12731       newSetupFileList(helpanim_config[0].token,
12732                        helpanim_config[0].value);
12733
12734     for (i = 1; helpanim_config[i].token; i++)
12735       insert_ptr = addListEntry(insert_ptr,
12736                                 helpanim_config[i].token,
12737                                 helpanim_config[i].value);
12738   }
12739
12740   element_hash   = newSetupFileHash();
12741   action_hash    = newSetupFileHash();
12742   direction_hash = newSetupFileHash();
12743
12744   for (i = 0; i < MAX_NUM_ELEMENTS; i++)
12745     setHashEntry(element_hash, element_info[i].token_name, i_to_a(i));
12746
12747   for (i = 0; i < NUM_ACTIONS; i++)
12748     setHashEntry(action_hash, element_action_info[i].suffix,
12749                  i_to_a(element_action_info[i].value));
12750
12751   // do not store direction index (bit) here, but direction value!
12752   for (i = 0; i < NUM_DIRECTIONS_FULL; i++)
12753     setHashEntry(direction_hash, element_direction_info[i].suffix,
12754                  i_to_a(1 << element_direction_info[i].value));
12755
12756   for (list = setup_file_list; list != NULL; list = list->next)
12757   {
12758     char *element_token, *action_token, *direction_token;
12759     char *element_value, *action_value, *direction_value;
12760     int delay = atoi(list->value);
12761
12762     if (strEqual(list->token, "end"))
12763     {
12764       add_helpanim_entry(HELPANIM_LIST_NEXT, -1, -1, -1, &num_list_entries);
12765
12766       continue;
12767     }
12768
12769     /* first try to break element into element/action/direction parts;
12770        if this does not work, also accept combined "element[.act][.dir]"
12771        elements (like "dynamite.active"), which are unique elements */
12772
12773     if (strchr(list->token, '.') == NULL)       // token contains no '.'
12774     {
12775       element_value = getHashEntry(element_hash, list->token);
12776       if (element_value != NULL)        // element found
12777         add_helpanim_entry(atoi(element_value), -1, -1, delay,
12778                            &num_list_entries);
12779       else
12780       {
12781         // no further suffixes found -- this is not an element
12782         print_unknown_token(filename, list->token, num_unknown_tokens++);
12783       }
12784
12785       continue;
12786     }
12787
12788     // token has format "<prefix>.<something>"
12789
12790     action_token = strchr(list->token, '.');    // suffix may be action ...
12791     direction_token = action_token;             // ... or direction
12792
12793     element_token = getStringCopy(list->token);
12794     *strchr(element_token, '.') = '\0';
12795
12796     element_value = getHashEntry(element_hash, element_token);
12797
12798     if (element_value == NULL)          // this is no element
12799     {
12800       element_value = getHashEntry(element_hash, list->token);
12801       if (element_value != NULL)        // combined element found
12802         add_helpanim_entry(atoi(element_value), -1, -1, delay,
12803                            &num_list_entries);
12804       else
12805         print_unknown_token(filename, list->token, num_unknown_tokens++);
12806
12807       free(element_token);
12808
12809       continue;
12810     }
12811
12812     action_value = getHashEntry(action_hash, action_token);
12813
12814     if (action_value != NULL)           // action found
12815     {
12816       add_helpanim_entry(atoi(element_value), atoi(action_value), -1, delay,
12817                     &num_list_entries);
12818
12819       free(element_token);
12820
12821       continue;
12822     }
12823
12824     direction_value = getHashEntry(direction_hash, direction_token);
12825
12826     if (direction_value != NULL)        // direction found
12827     {
12828       add_helpanim_entry(atoi(element_value), -1, atoi(direction_value), delay,
12829                          &num_list_entries);
12830
12831       free(element_token);
12832
12833       continue;
12834     }
12835
12836     if (strchr(action_token + 1, '.') == NULL)
12837     {
12838       // no further suffixes found -- this is not an action nor direction
12839
12840       element_value = getHashEntry(element_hash, list->token);
12841       if (element_value != NULL)        // combined element found
12842         add_helpanim_entry(atoi(element_value), -1, -1, delay,
12843                            &num_list_entries);
12844       else
12845         print_unknown_token(filename, list->token, num_unknown_tokens++);
12846
12847       free(element_token);
12848
12849       continue;
12850     }
12851
12852     // token has format "<prefix>.<suffix>.<something>"
12853
12854     direction_token = strchr(action_token + 1, '.');
12855
12856     action_token = getStringCopy(action_token);
12857     *strchr(action_token + 1, '.') = '\0';
12858
12859     action_value = getHashEntry(action_hash, action_token);
12860
12861     if (action_value == NULL)           // this is no action
12862     {
12863       element_value = getHashEntry(element_hash, list->token);
12864       if (element_value != NULL)        // combined element found
12865         add_helpanim_entry(atoi(element_value), -1, -1, delay,
12866                            &num_list_entries);
12867       else
12868         print_unknown_token(filename, list->token, num_unknown_tokens++);
12869
12870       free(element_token);
12871       free(action_token);
12872
12873       continue;
12874     }
12875
12876     direction_value = getHashEntry(direction_hash, direction_token);
12877
12878     if (direction_value != NULL)        // direction found
12879     {
12880       add_helpanim_entry(atoi(element_value), atoi(action_value),
12881                          atoi(direction_value), delay, &num_list_entries);
12882
12883       free(element_token);
12884       free(action_token);
12885
12886       continue;
12887     }
12888
12889     // this is no direction
12890
12891     element_value = getHashEntry(element_hash, list->token);
12892     if (element_value != NULL)          // combined element found
12893       add_helpanim_entry(atoi(element_value), -1, -1, delay,
12894                          &num_list_entries);
12895     else
12896       print_unknown_token(filename, list->token, num_unknown_tokens++);
12897
12898     free(element_token);
12899     free(action_token);
12900   }
12901
12902   print_unknown_token_end(num_unknown_tokens);
12903
12904   add_helpanim_entry(HELPANIM_LIST_NEXT, -1, -1, -1, &num_list_entries);
12905   add_helpanim_entry(HELPANIM_LIST_END,  -1, -1, -1, &num_list_entries);
12906
12907   freeSetupFileList(setup_file_list);
12908   freeSetupFileHash(element_hash);
12909   freeSetupFileHash(action_hash);
12910   freeSetupFileHash(direction_hash);
12911
12912 #if 0
12913   for (i = 0; i < num_list_entries; i++)
12914     Debug("files:LoadHelpAnimInfo", "'%s': %d, %d, %d => %d",
12915           EL_NAME(helpanim_info[i].element),
12916           helpanim_info[i].element,
12917           helpanim_info[i].action,
12918           helpanim_info[i].direction,
12919           helpanim_info[i].delay);
12920 #endif
12921 }
12922
12923 void LoadHelpTextInfo(void)
12924 {
12925   char *filename = getHelpTextFilename();
12926   int i;
12927
12928   if (helptext_info != NULL)
12929   {
12930     freeSetupFileHash(helptext_info);
12931     helptext_info = NULL;
12932   }
12933
12934   if (fileExists(filename))
12935     helptext_info = loadSetupFileHash(filename);
12936
12937   if (helptext_info == NULL)
12938   {
12939     // use reliable default values from static configuration
12940     helptext_info = newSetupFileHash();
12941
12942     for (i = 0; helptext_config[i].token; i++)
12943       setHashEntry(helptext_info,
12944                    helptext_config[i].token,
12945                    helptext_config[i].value);
12946   }
12947
12948 #if 0
12949   BEGIN_HASH_ITERATION(helptext_info, itr)
12950   {
12951     Debug("files:LoadHelpTextInfo", "'%s' => '%s'",
12952           HASH_ITERATION_TOKEN(itr), HASH_ITERATION_VALUE(itr));
12953   }
12954   END_HASH_ITERATION(hash, itr)
12955 #endif
12956 }
12957
12958
12959 // ----------------------------------------------------------------------------
12960 // convert levels
12961 // ----------------------------------------------------------------------------
12962
12963 #define MAX_NUM_CONVERT_LEVELS          1000
12964
12965 void ConvertLevels(void)
12966 {
12967   static LevelDirTree *convert_leveldir = NULL;
12968   static int convert_level_nr = -1;
12969   static int num_levels_handled = 0;
12970   static int num_levels_converted = 0;
12971   static boolean levels_failed[MAX_NUM_CONVERT_LEVELS];
12972   int i;
12973
12974   convert_leveldir = getTreeInfoFromIdentifier(leveldir_first,
12975                                                global.convert_leveldir);
12976
12977   if (convert_leveldir == NULL)
12978     Fail("no such level identifier: '%s'", global.convert_leveldir);
12979
12980   leveldir_current = convert_leveldir;
12981
12982   if (global.convert_level_nr != -1)
12983   {
12984     convert_leveldir->first_level = global.convert_level_nr;
12985     convert_leveldir->last_level  = global.convert_level_nr;
12986   }
12987
12988   convert_level_nr = convert_leveldir->first_level;
12989
12990   PrintLine("=", 79);
12991   Print("Converting levels\n");
12992   PrintLine("-", 79);
12993   Print("Level series identifier: '%s'\n", convert_leveldir->identifier);
12994   Print("Level series name:       '%s'\n", convert_leveldir->name);
12995   Print("Level series author:     '%s'\n", convert_leveldir->author);
12996   Print("Number of levels:        %d\n",   convert_leveldir->levels);
12997   PrintLine("=", 79);
12998   Print("\n");
12999
13000   for (i = 0; i < MAX_NUM_CONVERT_LEVELS; i++)
13001     levels_failed[i] = FALSE;
13002
13003   while (convert_level_nr <= convert_leveldir->last_level)
13004   {
13005     char *level_filename;
13006     boolean new_level;
13007
13008     level_nr = convert_level_nr++;
13009
13010     Print("Level %03d: ", level_nr);
13011
13012     LoadLevel(level_nr);
13013     if (level.no_level_file || level.no_valid_file)
13014     {
13015       Print("(no level)\n");
13016       continue;
13017     }
13018
13019     Print("converting level ... ");
13020
13021     level_filename = getDefaultLevelFilename(level_nr);
13022     new_level = !fileExists(level_filename);
13023
13024     if (new_level)
13025     {
13026       SaveLevel(level_nr);
13027
13028       num_levels_converted++;
13029
13030       Print("converted.\n");
13031     }
13032     else
13033     {
13034       if (level_nr >= 0 && level_nr < MAX_NUM_CONVERT_LEVELS)
13035         levels_failed[level_nr] = TRUE;
13036
13037       Print("NOT CONVERTED -- LEVEL ALREADY EXISTS.\n");
13038     }
13039
13040     num_levels_handled++;
13041   }
13042
13043   Print("\n");
13044   PrintLine("=", 79);
13045   Print("Number of levels handled: %d\n", num_levels_handled);
13046   Print("Number of levels converted: %d (%d%%)\n", num_levels_converted,
13047          (num_levels_handled ?
13048           num_levels_converted * 100 / num_levels_handled : 0));
13049   PrintLine("-", 79);
13050   Print("Summary (for automatic parsing by scripts):\n");
13051   Print("LEVELDIR '%s', CONVERTED %d/%d (%d%%)",
13052          convert_leveldir->identifier, num_levels_converted,
13053          num_levels_handled,
13054          (num_levels_handled ?
13055           num_levels_converted * 100 / num_levels_handled : 0));
13056
13057   if (num_levels_handled != num_levels_converted)
13058   {
13059     Print(", FAILED:");
13060     for (i = 0; i < MAX_NUM_CONVERT_LEVELS; i++)
13061       if (levels_failed[i])
13062         Print(" %03d", i);
13063   }
13064
13065   Print("\n");
13066   PrintLine("=", 79);
13067
13068   CloseAllAndExit(0);
13069 }
13070
13071
13072 // ----------------------------------------------------------------------------
13073 // create and save images for use in level sketches (raw BMP format)
13074 // ----------------------------------------------------------------------------
13075
13076 void CreateLevelSketchImages(void)
13077 {
13078   Bitmap *bitmap1;
13079   Bitmap *bitmap2;
13080   int i;
13081
13082   InitElementPropertiesGfxElement();
13083
13084   bitmap1 = CreateBitmap(TILEX, TILEY, DEFAULT_DEPTH);
13085   bitmap2 = CreateBitmap(MINI_TILEX, MINI_TILEY, DEFAULT_DEPTH);
13086
13087   for (i = 0; i < NUM_FILE_ELEMENTS; i++)
13088   {
13089     int element = getMappedElement(i);
13090     char basename1[16];
13091     char basename2[16];
13092     char *filename1;
13093     char *filename2;
13094
13095     sprintf(basename1, "%04d.bmp", i);
13096     sprintf(basename2, "%04ds.bmp", i);
13097
13098     filename1 = getPath2(global.create_sketch_images_dir, basename1);
13099     filename2 = getPath2(global.create_sketch_images_dir, basename2);
13100
13101     DrawSizedElement(0, 0, element, TILESIZE);
13102     BlitBitmap(drawto, bitmap1, SX, SY, TILEX, TILEY, 0, 0);
13103
13104     if (SDL_SaveBMP(bitmap1->surface, filename1) != 0)
13105       Fail("cannot save level sketch image file '%s'", filename1);
13106
13107     DrawSizedElement(0, 0, element, MINI_TILESIZE);
13108     BlitBitmap(drawto, bitmap2, SX, SY, MINI_TILEX, MINI_TILEY, 0, 0);
13109
13110     if (SDL_SaveBMP(bitmap2->surface, filename2) != 0)
13111       Fail("cannot save level sketch image file '%s'", filename2);
13112
13113     free(filename1);
13114     free(filename2);
13115
13116     // create corresponding SQL statements (for normal and small images)
13117     if (i < 1000)
13118     {
13119       printf("insert into phpbb_words values (NULL, '`%03d', '<IMG class=\"levelsketch\" src=\"/I/%04d.png\"/>');\n", i, i);
13120       printf("insert into phpbb_words values (NULL, '¸%03d', '<IMG class=\"levelsketch\" src=\"/I/%04ds.png\"/>');\n", i, i);
13121     }
13122
13123     printf("insert into phpbb_words values (NULL, '`%04d', '<IMG class=\"levelsketch\" src=\"/I/%04d.png\"/>');\n", i, i);
13124     printf("insert into phpbb_words values (NULL, '¸%04d', '<IMG class=\"levelsketch\" src=\"/I/%04ds.png\"/>');\n", i, i);
13125
13126     // optional: create content for forum level sketch demonstration post
13127     if (options.debug)
13128       fprintf(stderr, "%03d `%03d%c", i, i, (i % 10 < 9 ? ' ' : '\n'));
13129   }
13130
13131   FreeBitmap(bitmap1);
13132   FreeBitmap(bitmap2);
13133
13134   if (options.debug)
13135     fprintf(stderr, "\n");
13136
13137   Info("%d normal and small images created", NUM_FILE_ELEMENTS);
13138
13139   CloseAllAndExit(0);
13140 }
13141
13142
13143 // ----------------------------------------------------------------------------
13144 // create and save images for element collecting animations (raw BMP format)
13145 // ----------------------------------------------------------------------------
13146
13147 static boolean createCollectImage(int element)
13148 {
13149   return (IS_COLLECTIBLE(element) && !IS_SP_ELEMENT(element));
13150 }
13151
13152 void CreateCollectElementImages(void)
13153 {
13154   int i, j;
13155   int num_steps = 8;
13156   int anim_frames = num_steps - 1;
13157   int tile_size = TILESIZE;
13158   int anim_width  = tile_size * anim_frames;
13159   int anim_height = tile_size;
13160   int num_collect_images = 0;
13161   int pos_collect_images = 0;
13162
13163   for (i = 0; i < MAX_NUM_ELEMENTS; i++)
13164     if (createCollectImage(i))
13165       num_collect_images++;
13166
13167   Info("Creating %d element collecting animation images ...",
13168        num_collect_images);
13169
13170   int dst_width  = anim_width * 2;
13171   int dst_height = anim_height * num_collect_images / 2;
13172   Bitmap *dst_bitmap = CreateBitmap(dst_width, dst_height, DEFAULT_DEPTH);
13173   char *basename = "RocksCollect.bmp";
13174   char *filename = getPath2(global.create_collect_images_dir, basename);
13175
13176   for (i = 0; i < MAX_NUM_ELEMENTS; i++)
13177   {
13178     if (!createCollectImage(i))
13179       continue;
13180
13181     int dst_x = (pos_collect_images / (num_collect_images / 2)) * anim_width;
13182     int dst_y = (pos_collect_images % (num_collect_images / 2)) * anim_height;
13183     int graphic = el2img(i);
13184     char *token_name = element_info[i].token_name;
13185     Bitmap *tmp_bitmap = CreateBitmap(tile_size, tile_size, DEFAULT_DEPTH);
13186     Bitmap *src_bitmap;
13187     int src_x, src_y;
13188
13189     Info("- creating collecting image for '%s' ...", token_name);
13190
13191     getGraphicSource(graphic, 0, &src_bitmap, &src_x, &src_y);
13192
13193     BlitBitmap(src_bitmap, tmp_bitmap, src_x, src_y,
13194                tile_size, tile_size, 0, 0);
13195
13196     tmp_bitmap->surface_masked = tmp_bitmap->surface;
13197
13198     for (j = 0; j < anim_frames; j++)
13199     {
13200       int frame_size_final = tile_size * (anim_frames - j) / num_steps;
13201       int frame_size = frame_size_final * num_steps;
13202       int offset = (tile_size - frame_size_final) / 2;
13203       Bitmap *frame_bitmap = ZoomBitmap(tmp_bitmap, frame_size, frame_size);
13204
13205       while (frame_size > frame_size_final)
13206       {
13207         frame_size /= 2;
13208
13209         Bitmap *half_bitmap = ZoomBitmap(frame_bitmap, frame_size, frame_size);
13210
13211         FreeBitmap(frame_bitmap);
13212
13213         frame_bitmap = half_bitmap;
13214       }
13215
13216       BlitBitmap(frame_bitmap, dst_bitmap, 0, 0,
13217                  frame_size_final, frame_size_final,
13218                  dst_x + j * tile_size + offset, dst_y + offset);
13219
13220       FreeBitmap(frame_bitmap);
13221     }
13222
13223     tmp_bitmap->surface_masked = NULL;
13224
13225     FreeBitmap(tmp_bitmap);
13226
13227     pos_collect_images++;
13228   }
13229
13230   if (SDL_SaveBMP(dst_bitmap->surface, filename) != 0)
13231     Fail("cannot save element collecting image file '%s'", filename);
13232
13233   FreeBitmap(dst_bitmap);
13234
13235   Info("Done.");
13236
13237   CloseAllAndExit(0);
13238 }
13239
13240
13241 // ----------------------------------------------------------------------------
13242 // create and save images for custom and group elements (raw BMP format)
13243 // ----------------------------------------------------------------------------
13244
13245 void CreateCustomElementImages(char *directory)
13246 {
13247   char *src_basename = "RocksCE-template.ilbm";
13248   char *dst_basename = "RocksCE.bmp";
13249   char *src_filename = getPath2(directory, src_basename);
13250   char *dst_filename = getPath2(directory, dst_basename);
13251   Bitmap *src_bitmap;
13252   Bitmap *bitmap;
13253   int yoffset_ce = 0;
13254   int yoffset_ge = (TILEY * NUM_CUSTOM_ELEMENTS / 16);
13255   int i;
13256
13257   InitVideoDefaults();
13258
13259   ReCreateBitmap(&backbuffer, video.width, video.height);
13260
13261   src_bitmap = LoadImage(src_filename);
13262
13263   bitmap = CreateBitmap(TILEX * 16 * 2,
13264                         TILEY * (NUM_CUSTOM_ELEMENTS + NUM_GROUP_ELEMENTS) / 16,
13265                         DEFAULT_DEPTH);
13266
13267   for (i = 0; i < NUM_CUSTOM_ELEMENTS; i++)
13268   {
13269     int x = i % 16;
13270     int y = i / 16;
13271     int ii = i + 1;
13272     int j;
13273
13274     BlitBitmap(src_bitmap, bitmap, 0, 0, TILEX, TILEY,
13275                TILEX * x, TILEY * y + yoffset_ce);
13276
13277     BlitBitmap(src_bitmap, bitmap, 0, TILEY,
13278                TILEX, TILEY,
13279                TILEX * x + TILEX * 16,
13280                TILEY * y + yoffset_ce);
13281
13282     for (j = 2; j >= 0; j--)
13283     {
13284       int c = ii % 10;
13285
13286       BlitBitmap(src_bitmap, bitmap,
13287                  TILEX + c * 7, 0, 6, 10,
13288                  TILEX * x + 6 + j * 7,
13289                  TILEY * y + 11 + yoffset_ce);
13290
13291       BlitBitmap(src_bitmap, bitmap,
13292                  TILEX + c * 8, TILEY, 6, 10,
13293                  TILEX * 16 + TILEX * x + 6 + j * 8,
13294                  TILEY * y + 10 + yoffset_ce);
13295
13296       ii /= 10;
13297     }
13298   }
13299
13300   for (i = 0; i < NUM_GROUP_ELEMENTS; i++)
13301   {
13302     int x = i % 16;
13303     int y = i / 16;
13304     int ii = i + 1;
13305     int j;
13306
13307     BlitBitmap(src_bitmap, bitmap, 0, 0, TILEX, TILEY,
13308                TILEX * x, TILEY * y + yoffset_ge);
13309
13310     BlitBitmap(src_bitmap, bitmap, 0, TILEY,
13311                TILEX, TILEY,
13312                TILEX * x + TILEX * 16,
13313                TILEY * y + yoffset_ge);
13314
13315     for (j = 1; j >= 0; j--)
13316     {
13317       int c = ii % 10;
13318
13319       BlitBitmap(src_bitmap, bitmap, TILEX + c * 10, 11, 10, 10,
13320                  TILEX * x + 6 + j * 10,
13321                  TILEY * y + 11 + yoffset_ge);
13322
13323       BlitBitmap(src_bitmap, bitmap,
13324                  TILEX + c * 8, TILEY + 12, 6, 10,
13325                  TILEX * 16 + TILEX * x + 10 + j * 8,
13326                  TILEY * y + 10 + yoffset_ge);
13327
13328       ii /= 10;
13329     }
13330   }
13331
13332   if (SDL_SaveBMP(bitmap->surface, dst_filename) != 0)
13333     Fail("cannot save CE graphics file '%s'", dst_filename);
13334
13335   FreeBitmap(bitmap);
13336
13337   CloseAllAndExit(0);
13338 }