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