added Deflektor style fixed mirror game elements to MM engine
[rocksndiamonds.git] / src / game_mm / mm_tools.c
1 // ============================================================================
2 // Mirror Magic -- McDuffin's Revenge
3 // ----------------------------------------------------------------------------
4 // (c) 1994-2017 by Artsoft Entertainment
5 //                  Holger Schemel
6 //                  info@artsoft.org
7 //                  https://www.artsoft.org/
8 // ----------------------------------------------------------------------------
9 // mm_tools.c
10 // ============================================================================
11
12 #include <time.h>
13
14 #include "main_mm.h"
15
16 #include "mm_main.h"
17 #include "mm_tools.h"
18
19
20 void SetDrawtoField_MM(int mode)
21 {
22   int full_xsize = lev_fieldx * TILESIZE_VAR;
23   int full_ysize = lev_fieldy * TILESIZE_VAR;
24
25   // distance (delta) from screen border (SX/SY) to centered level playfield
26   dSX = (full_xsize < SXSIZE ? (SXSIZE - full_xsize) / 2 : 0);
27   dSY = (full_ysize < SYSIZE ? (SYSIZE - full_ysize) / 2 : 0);
28
29   // for convenience, absolute screen position to centered level playfield
30   cSX = SX + dSX;
31   cSY = SY + dSY;
32   cSX2 = SX + dSX + 2;          // including half laser line size
33   cSY2 = SY + dSY + 2;          // including half laser line size
34
35   if (mode == DRAW_TO_BACKBUFFER)
36   {
37     cFX = FX + dSX;
38     cFY = FY + dSY;
39   }
40
41   SetTileCursorSXSY(cSX, cSY);
42 }
43
44 void BackToFront_MM(void)
45 {
46   BlitScreenToBitmap_MM(backbuffer);
47
48   BackToFront();
49 }
50
51 void ClearWindow(void)
52 {
53   ClearRectangle(drawto_mm, REAL_SX, REAL_SY, FULL_SXSIZE, FULL_SYSIZE);
54
55   SetDrawtoField(DRAW_TO_BACKBUFFER);
56   SetDrawtoField_MM(DRAW_TO_BACKBUFFER);
57
58   redraw_mask |= REDRAW_FIELD;
59 }
60
61 void DrawGraphicAnimation_MM(int x, int y, int graphic, int frame)
62 {
63   Bitmap *bitmap;
64   int src_x, src_y;
65
66   getGraphicSource(graphic, frame, &bitmap, &src_x, &src_y);
67
68   BlitBitmap(bitmap, drawto_mm, src_x, src_y, TILEX, TILEY,
69              cFX + x * TILEX, cFY + y * TILEY);
70 }
71
72 void DrawGraphic_MM(int x, int y, int graphic)
73 {
74 #if DEBUG
75   if (!IN_SCR_FIELD(x, y))
76   {
77     Debug("game:mm:DrawGraphic_MM", "x = %d, y = %d, graphic = %d",
78           x, y, graphic);
79     Debug("game:mm:DrawGraphic_MM", "This should never happen!");
80
81     return;
82   }
83 #endif
84
85   int frame = getGraphicAnimationFrameXY(graphic, x, y);
86
87   DrawGraphicAnimation_MM(x, y, graphic, frame);
88
89   MarkTileDirty(x, y);
90 }
91
92 void DrawGraphicExt_MM(DrawBuffer *d, int x, int y, int graphic)
93 {
94   Bitmap *bitmap;
95   int src_x, src_y;
96
97   getGraphicSource(graphic, 0, &bitmap, &src_x, &src_y);
98
99   BlitBitmap(bitmap, d, src_x, src_y, TILEX, TILEY, x, y);
100 }
101
102 void DrawGraphicThruMask_MM(int x, int y, int graphic, int frame)
103 {
104 #if DEBUG
105   if (!IN_SCR_FIELD(x, y))
106   {
107     Debug("game:mm:DrawGraphicThruMask_MM", "x = %d, y = %d, graphic = %d",
108           x, y, graphic);
109     Debug("game:mm:DrawGraphicThruMask_MM", "This should never happen!");
110
111     return;
112   }
113 #endif
114
115   DrawGraphicThruMaskExt_MM(drawto_mm, cFX + x * TILEX, cFY + y * TILEY,
116                             graphic, frame);
117
118   MarkTileDirty(x, y);
119 }
120
121 void DrawGraphicThruMaskExt_MM(DrawBuffer *d, int dest_x, int dest_y,
122                                int graphic, int frame)
123 {
124   int src_x, src_y;
125   Bitmap *src_bitmap;
126
127   if (graphic == IMG_EMPTY)
128     return;
129
130   getGraphicSource(graphic, frame, &src_bitmap, &src_x, &src_y);
131
132   BlitBitmapMasked(src_bitmap, d, src_x, src_y, TILEX, TILEY, dest_x, dest_y);
133 }
134
135 void DrawMiniGraphic_MM(int x, int y, int graphic)
136 {
137   DrawMiniGraphicExt_MM(drawto_mm, cSX + x * MINI_TILEX, cSY + y * MINI_TILEY,
138                         graphic);
139
140   MarkTileDirty(x / 2, y / 2);
141 }
142
143 void DrawMiniGraphicExt_MM(DrawBuffer *d, int x, int y, int graphic)
144 {
145   Bitmap *bitmap;
146   int src_x, src_y;
147
148   getMiniGraphicSource(graphic, &bitmap, &src_x, &src_y);
149
150   BlitBitmap(bitmap, d, src_x, src_y, MINI_TILEX, MINI_TILEY, x, y);
151 }
152
153 void DrawGraphicShifted_MM(int x, int y, int dx, int dy, int graphic,
154                            int cut_mode, int mask_mode)
155 {
156   int width = TILEX, height = TILEY;
157   int cx = 0, cy = 0;
158   int src_x, src_y, dest_x, dest_y;
159   Bitmap *src_bitmap;
160
161   if (graphic < 0)
162   {
163     DrawGraphic_MM(x, y, graphic);
164
165     return;
166   }
167
168   if (dx || dy)                 // Verschiebung der Grafik?
169   {
170     if (x < BX1)                // Element kommt von links ins Bild
171     {
172       x = BX1;
173       width = dx;
174       cx = TILEX - dx;
175       dx = 0;
176     }
177     else if (x > BX2)           // Element kommt von rechts ins Bild
178     {
179       x = BX2;
180       width = -dx;
181       dx = TILEX + dx;
182     }
183     else if (x==BX1 && dx < 0)  // Element verläßt links das Bild
184     {
185       width += dx;
186       cx = -dx;
187       dx = 0;
188     }
189     else if (x==BX2 && dx > 0)  // Element verläßt rechts das Bild
190       width -= dx;
191     else if (dx)                // allg. Bewegung in x-Richtung
192       MarkTileDirty(x + SIGN(dx), y);
193
194     if (y < BY1)                // Element kommt von oben ins Bild
195     {
196       if (cut_mode==CUT_BELOW)  // Element oberhalb des Bildes
197         return;
198
199       y = BY1;
200       height = dy;
201       cy = TILEY - dy;
202       dy = 0;
203     }
204     else if (y > BY2)           // Element kommt von unten ins Bild
205     {
206       y = BY2;
207       height = -dy;
208       dy = TILEY + dy;
209     }
210     else if (y==BY1 && dy < 0)  // Element verläßt oben das Bild
211     {
212       height += dy;
213       cy = -dy;
214       dy = 0;
215     }
216     else if (dy > 0 && cut_mode == CUT_ABOVE)
217     {
218       if (y == BY2)             // Element unterhalb des Bildes
219         return;
220
221       height = dy;
222       cy = TILEY - dy;
223       dy = TILEY;
224       MarkTileDirty(x, y + 1);
225     }                           // Element verläßt unten das Bild
226     else if (dy > 0 && (y == BY2 || cut_mode == CUT_BELOW))
227     {
228       height -= dy;
229     }
230     else if (dy)                // allg. Bewegung in y-Richtung
231     {
232       MarkTileDirty(x, y + SIGN(dy));
233     }
234   }
235
236   getGraphicSource(graphic, 0, &src_bitmap, &src_x, &src_y);
237
238   src_x += cx;
239   src_y += cy;
240
241   dest_x = cFX + x * TILEX + dx;
242   dest_y = cFY + y * TILEY + dy;
243
244 #if DEBUG
245   if (!IN_SCR_FIELD(x, y))
246   {
247     Debug("game:mm:DrawGraphicShifted_MM", "x = %d, y = %d, graphic = %d",
248           x, y, graphic);
249     Debug("game:mm:DrawGraphicShifted_MM", "This should never happen!");
250
251     return;
252   }
253 #endif
254
255   if (mask_mode == USE_MASKING)
256     BlitBitmapMasked(src_bitmap, drawto_mm,
257                      src_x, src_y, TILEX, TILEY, dest_x, dest_y);
258   else
259     BlitBitmap(src_bitmap, drawto_mm,
260                src_x, src_y, width, height, dest_x, dest_y);
261
262   MarkTileDirty(x, y);
263 }
264
265 void DrawScreenElementExt_MM(int x, int y, int dx, int dy, int element,
266                           int cut_mode, int mask_mode)
267 {
268   int ux = LEVELX(x), uy = LEVELY(y);
269   int graphic = el2gfx(element);
270   int phase8 = ABS(MovPos[ux][uy]) / (TILEX / 8);
271   int phase2  = phase8 / 4;
272   int dir = MovDir[ux][uy];
273
274   if (element == EL_PACMAN)
275   {
276     graphic = (phase2 ? IMG_MM_PACMAN_RIGHT : IMG_MM_PACMAN_EATING_RIGHT);
277
278     if (dir == MV_UP)
279       graphic += 1;
280     else if (dir == MV_LEFT)
281       graphic += 2;
282     else if (dir == MV_DOWN)
283       graphic += 3;
284   }
285
286   if (dx || dy)
287     DrawGraphicShifted_MM(x, y, dx, dy, graphic, cut_mode, mask_mode);
288   else if (mask_mode == USE_MASKING)
289     DrawGraphicThruMask_MM(x, y, graphic, 0);
290   else
291     DrawGraphic_MM(x, y, graphic);
292 }
293
294 void DrawLevelElementExt_MM(int x, int y, int dx, int dy, int element,
295                          int cut_mode, int mask_mode)
296 {
297   if (IN_LEV_FIELD(x, y) && IN_SCR_FIELD(SCREENX(x), SCREENY(y)))
298     DrawScreenElementExt_MM(SCREENX(x), SCREENY(y), dx, dy, element,
299                          cut_mode, mask_mode);
300 }
301
302 void DrawScreenElementShifted_MM(int x, int y, int dx, int dy, int element,
303                               int cut_mode)
304 {
305   DrawScreenElementExt_MM(x, y, dx, dy, element, cut_mode, NO_MASKING);
306 }
307
308 void DrawScreenElement_MM(int x, int y, int element)
309 {
310   DrawScreenElementExt_MM(x, y, 0, 0, element, NO_CUTTING, NO_MASKING);
311 }
312
313 void DrawScreenField_MM(int x, int y)
314 {
315   int element = Tile[x][y];
316
317   if (!IN_LEV_FIELD(x, y))
318     return;
319
320   if (IS_MOVING(x, y))
321   {
322     int horiz_move = (MovDir[x][y] == MV_LEFT || MovDir[x][y] == MV_RIGHT);
323
324     DrawScreenElement_MM(x, y, EL_EMPTY);
325
326     if (horiz_move)
327       DrawScreenElementShifted_MM(x, y, MovPos[x][y], 0, element, NO_CUTTING);
328     else
329       DrawScreenElementShifted_MM(x, y, 0, MovPos[x][y], element, NO_CUTTING);
330   }
331   else if (IS_BLOCKED(x, y))
332   {
333     int oldx, oldy;
334     int sx, sy;
335     int horiz_move;
336
337     Blocked2Moving(x, y, &oldx, &oldy);
338
339     sx = SCREENX(oldx);
340     sy = SCREENY(oldy);
341     horiz_move = (MovDir[oldx][oldy] == MV_LEFT ||
342                   MovDir[oldx][oldy] == MV_RIGHT);
343
344     DrawScreenElement_MM(x, y, EL_EMPTY);
345
346     element = Tile[oldx][oldy];
347
348     if (horiz_move)
349       DrawScreenElementShifted_MM(sx, sy, MovPos[oldx][oldy], 0, element,
350                                   NO_CUTTING);
351     else
352       DrawScreenElementShifted_MM(sx, sy, 0, MovPos[oldx][oldy], element,
353                                   NO_CUTTING);
354   }
355   else if (IS_DRAWABLE(element))
356   {
357     DrawScreenElement_MM(x, y, element);
358   }
359   else
360   {
361     DrawScreenElement_MM(x, y, EL_EMPTY);
362   }
363 }
364
365 void DrawLevelField_MM(int x, int y)
366 {
367   if (IN_SCR_FIELD(SCREENX(x), SCREENY(y)))
368     DrawScreenField_MM(SCREENX(x), SCREENY(y));
369   else if (IS_MOVING(x, y))
370   {
371     int newx, newy;
372
373     Moving2Blocked(x, y, &newx, &newy);
374     if (IN_SCR_FIELD(SCREENX(newx), SCREENY(newy)))
375       DrawScreenField_MM(SCREENX(newx), SCREENY(newy));
376   }
377   else if (IS_BLOCKED(x, y))
378   {
379     int oldx, oldy;
380
381     Blocked2Moving(x, y, &oldx, &oldy);
382     if (IN_SCR_FIELD(SCREENX(oldx), SCREENY(oldy)))
383       DrawScreenField_MM(SCREENX(oldx), SCREENY(oldy));
384   }
385 }
386
387 void DrawMiniElement_MM(int x, int y, int element)
388 {
389   int graphic;
390
391   if (!element)
392   {
393     DrawMiniGraphic_MM(x, y, IMG_EMPTY);
394
395     return;
396   }
397
398   graphic = el2gfx(element);
399
400   DrawMiniGraphic_MM(x, y, graphic);
401 }
402
403 void DrawMiniElementOrWall_MM(int sx, int sy, int scroll_x, int scroll_y)
404 {
405   int x = sx + scroll_x, y = sy + scroll_y;
406
407   if (x < -1 || x > lev_fieldx || y < -1 || y > lev_fieldy)
408     DrawMiniElement_MM(sx, sy, EL_EMPTY);
409   else if (x > -1 && x < lev_fieldx && y > -1 && y < lev_fieldy)
410     DrawMiniElement_MM(sx, sy, Tile[x][y]);
411 }
412
413 void DrawField_MM(int x, int y)
414 {
415   int element = Tile[x][y];
416
417   DrawElement_MM(x, y, element);
418 }
419
420 void DrawLevel_MM(void)
421 {
422   int x, y;
423
424   ClearWindow();
425
426   for (x = 0; x < lev_fieldx; x++)
427     for (y = 0; y < lev_fieldy; y++)
428       DrawField_MM(x, y);
429
430   redraw_mask |= REDRAW_FIELD;
431 }
432
433 void DrawWallsExt_MM(int x, int y, int element, int draw_mask)
434 {
435   Bitmap *bitmap;
436   int graphic = el2gfx(WALL_BASE(element));
437   int gx, gy;
438   int i;
439
440   getMiniGraphicSource(graphic, &bitmap, &gx, &gy);
441
442   DrawGraphic_MM(x, y, IMG_EMPTY);
443
444   /*
445   if (IS_WALL_WOOD(element) || IS_WALL_AMOEBA(element) ||
446       IS_DF_WALL_WOOD(element))
447     gx += MINI_TILEX;
448   if (IS_WALL_ICE(element) || IS_WALL_AMOEBA(element))
449     gy += MINI_TILEY;
450   */
451
452   for (i = 0; i < 4; i++)
453   {
454     int dest_x = cSX + x * TILEX + MINI_TILEX * (i % 2);
455     int dest_y = cSY + y * TILEY + MINI_TILEY * (i / 2);
456
457     if (!((1 << i) & draw_mask))
458       continue;
459
460     if (element & (1 << i))
461       BlitBitmap(bitmap, drawto_mm, gx, gy, MINI_TILEX, MINI_TILEY,
462                  dest_x, dest_y);
463     else
464       ClearRectangle(drawto_mm, dest_x, dest_y, MINI_TILEX, MINI_TILEY);
465   }
466
467   MarkTileDirty(x, y);
468 }
469
470 void DrawWalls_MM(int x, int y, int element)
471 {
472   DrawWallsExt_MM(x, y, element, HIT_MASK_ALL);
473 }
474
475 void DrawWallsAnimation_MM(int x, int y, int element, int phase, int bit_mask)
476 {
477   int i;
478
479   if (phase == 0)
480   {
481     DrawWalls_MM(x, y, element);
482
483     return;
484   }
485
486   for (i = 0; i < 4; i++)
487   {
488     if (element & (1 << i))
489     {
490       int graphic;
491       int frame;
492       Bitmap *bitmap;
493       int src_x, src_y;
494       int dst_x = cSX + x * TILEX + (i % 2) * MINI_TILEX;
495       int dst_y = cSY + y * TILEY + (i / 2) * MINI_TILEY;
496
497       if (bit_mask & (1 << i))
498       {
499         graphic = (IS_WALL_AMOEBA(element) ?
500                    IMG_MM_AMOEBA_WALL_GROWING :
501                    IMG_MM_ICE_WALL_SHRINKING);
502         frame = phase;
503       }
504       else
505       {
506         graphic = (IS_WALL_AMOEBA(element) ?
507                    IMG_MM_AMOEBA_WALL :
508                    IMG_MM_ICE_WALL);
509         frame = 0;
510       }
511
512       getSizedGraphicSource(graphic, frame, MINI_TILESIZE, &bitmap,
513                             &src_x, &src_y);
514
515       BlitBitmap(bitmap, drawto_mm, src_x, src_y, MINI_TILEX, MINI_TILEY,
516                  dst_x, dst_y);
517     }
518   }
519
520   MarkTileDirty(x, y);
521 }
522
523 void DrawElement_MM(int x, int y, int element)
524 {
525   if (element == EL_EMPTY)
526     DrawGraphic_MM(x, y, IMG_EMPTY);
527   else if (IS_WALL(element))
528     DrawWalls_MM(x, y, element);
529 #if 0
530   else if (IS_WALL_CHANGING(element) && IS_WALL_CHANGING(Tile[x][y]))
531   {
532     int wall_element = Tile[x][y] - EL_WALL_CHANGING + Store[x][y];
533
534     DrawWalls_MM(x, y, wall_element);
535   }
536 #endif
537   else if (element == EL_PACMAN)
538     DrawLevelField_MM(x, y);
539   else if (element == EL_FUSE_ON &&
540            laser.fuse_off &&
541            laser.fuse_x == x &&
542            laser.fuse_y == y)
543     DrawGraphic_MM(x, y, IMG_MM_FUSE);
544   else if (element == EL_GRAY_BALL_ACTIVE)
545     DrawGraphic_MM(x, y, el_act2gfx(EL_GRAY_BALL, MM_ACTION_ACTIVE));
546   else if (element == EL_GRAY_BALL_OPENING)
547     DrawGraphic_MM(x, y, el_act2gfx(EL_GRAY_BALL, MM_ACTION_OPENING));
548   else if (element == EL_BOMB_ACTIVE)
549     DrawGraphic_MM(x, y, el_act2gfx(EL_BOMB, MM_ACTION_ACTIVE));
550   else if (element == EL_MINE_ACTIVE)
551     DrawGraphic_MM(x, y, el_act2gfx(EL_MINE, MM_ACTION_ACTIVE));
552   else
553     DrawGraphic_MM(x, y, el2gfx(element));
554 }
555
556
557 // ----------------------------------------------------------------------------
558 // XSN
559 // ----------------------------------------------------------------------------
560
561 #define XSN_RND(x)              ((x) != 0 ? rand() % (x) : 0)
562 #define XSN_ALPHA_VALUE(x)      (SDL_ALPHA_OPAQUE * (x) / 100)
563
564 #define XSN_MAX_ITEMS           100
565 #define XSN_MAX_HEIGHT          40
566 #define XSN_MAX_DX              2
567 #define XSN_MAX_DY              10
568 #define XSN_CHECK_DELAY         3
569 #define XSN_START_DELAY         60
570 #define XSN_UPDATE_DELAY        50
571 #define XSN_GROWTH_DELAY        3
572 #define XSN_GROWTH_RATE         3
573 #define XSN_CHANGE_DELAY        30
574 #define XSN_CHANGE_FACTOR       3
575 #define XSN_ALPHA_DEFAULT       XSN_ALPHA_VALUE(95)
576 #define XSN_ALPHA_VISIBLE       XSN_ALPHA_VALUE(50)
577 #define XSN_DEBUG_STEPS         5
578
579 static byte xsn_bits_0[] = { 0x05, 0x02, 0x05 };
580 static byte xsn_bits_1[] = { 0x22, 0x6b, 0x14, 0x2a, 0x14, 0x6b, 0x22 };
581 static byte xsn_bits_2[] = { 0x14, 0x08, 0x49, 0x36, 0x49, 0x08, 0x14 };
582
583 char debug_xsn_mode[] = { 76,101,116,32,105,116,32,115,110,111,119,33,0 };
584
585 void setHideSetupEntry(void *);
586 void removeHideSetupEntry(void *);
587
588 static struct
589 {
590   int size;
591   byte *bits;
592   Bitmap *bitmap;
593 }
594 xsn_data[] =
595 {
596   { ARRAY_SIZE(xsn_bits_0), xsn_bits_0 },
597   { ARRAY_SIZE(xsn_bits_1), xsn_bits_1 },
598   { ARRAY_SIZE(xsn_bits_2), xsn_bits_2 },
599   { ARRAY_SIZE(xsn_bits_2), xsn_bits_2 },
600   { ARRAY_SIZE(xsn_bits_1), xsn_bits_1 },
601   { ARRAY_SIZE(xsn_bits_2), xsn_bits_2 },
602   { ARRAY_SIZE(xsn_bits_0), xsn_bits_0 },
603 };
604 static int num_xsn_data = ARRAY_SIZE(xsn_data);
605
606 struct XsnItem
607 {
608   int x;
609   int y;
610   int dx;
611   int dy;
612   int type;
613   int active;
614 };
615
616 struct Xsn
617 {
618   int area_xsize;
619   int area_ysize;
620
621   int num_items;
622   int max_items;
623   int max_height;
624   int max_dx;
625   int max_dy;
626
627   int change_delay;
628   int change_type;
629   int change_dir;
630
631   int *height;
632
633   struct XsnItem items[XSN_MAX_ITEMS];
634
635   Bitmap *bitmap;
636
637   int alpha;
638 };
639
640 static struct Xsn xsn = { 0 };
641
642 static int xsn_percent(void)
643 {
644   int xsn_m0 = -3;
645   int xsn_m1 = xsn_m0 + 10;
646   int xsn_m2 = xsn_m1 + 10;
647   int xsn_m3 = xsn_m2 + 10;
648   time_t xsn_e0 = time(NULL);
649   struct tm *xsn_t0 = localtime(&xsn_e0);
650   struct tm xsn_t1 = { 0,0,0, xsn_m2 * 3, xsn_m3 / 3, xsn_t0->tm_year, 0,0,-1 };
651   time_t xsn_e1 = mktime(&xsn_t1);
652   int xsn_c0 = (25 * xsn_m3) << xsn_m1;
653   int xsn_c1 = (xsn_t1.tm_wday - xsn_m1) * !!xsn_t1.tm_wday;
654
655   for (xsn_m0 = 5; xsn_m0 > 0; xsn_m0--)
656   {
657     int xsn_c2 = (xsn_m0 > 4 ? 0 : xsn_c1) - xsn_m1 * xsn_m0;
658     int xsn_off = (xsn_m0 > 4 ? xsn_c0 : 0);
659     time_t xsn_e3 = xsn_e1 - xsn_c2 * xsn_c0;
660
661     if (xsn_e0 > xsn_e3 - xsn_off &&
662         xsn_e0 < xsn_e3 + xsn_off + xsn_c0)
663       return xsn_m0 * (xsn_m3 - xsn_m1);
664   }
665
666   return xsn_m0;
667 }
668
669 static void xsn_init_item(int nr)
670 {
671   struct XsnItem *item = &xsn.items[nr];
672
673   item->type = XSN_RND(num_xsn_data);
674
675   if (xsn.change_type != 0)
676   {
677     int new_x = XSN_RND(xsn.area_xsize / 3);
678
679     item->x = (xsn.change_dir == 1 ? new_x : xsn.area_xsize - new_x);
680     item->y = XSN_RND(xsn.area_ysize);
681   }
682   else
683   {
684     item->x = XSN_RND(xsn.area_xsize - xsn_data[item->type].size);
685     item->y = XSN_RND(xsn.area_ysize / 10);
686   }
687
688   item->dy = XSN_RND(xsn.max_dy + 1) + 1;
689   item->dx = XSN_RND(item->dy / 4 + 1) * (XSN_RND(1000) > 500 ? -1 : 1);
690
691   item->active = 1;
692 }
693
694 static void xsn_update_item(int nr)
695 {
696   struct XsnItem *item = &xsn.items[nr];
697
698   if (!item->active)
699     xsn_init_item(nr);
700
701   if (xsn.change_type != 0)
702   {
703     int dx_new = ABS(item->dx) +
704       (xsn.change_type == 1 ?
705        XSN_RND(XSN_CHANGE_FACTOR + 1) - XSN_CHANGE_FACTOR / 2 :
706        XSN_RND(20));
707
708     item->dx = MIN(MAX(-50, dx_new * xsn.change_dir), 50);
709   }
710
711   int new_x = item->x + item->dx;
712   int new_y = item->y + item->dy;
713
714   item->active = (new_y < xsn.area_ysize);
715
716   if (xsn.change_type != 0)
717     item->active = (item->active && new_x > 0 && new_x < xsn.area_xsize);
718
719   int item_size = xsn_data[item->type].size;
720   int half_item_size = item_size / 2;
721   int mid_x = new_x + half_item_size;
722   int mid_y = new_y + half_item_size;
723   int upper_border = xsn.area_ysize - xsn.max_height;
724
725   if (item->active &&
726       new_y >= upper_border &&
727       new_x >= 0 &&
728       new_x <= xsn.area_xsize - item_size &&
729       mid_y >= xsn.height[mid_x] &&
730       mid_y < xsn.area_ysize)
731   {
732     Bitmap *item_bitmap = xsn_data[item->type].bitmap;
733     SDL_Surface *surface = xsn.bitmap->surface;
734     SDL_Surface *surface_masked = xsn.bitmap->surface_masked;
735     int item_alpha = XSN_ALPHA_VALUE(81 + XSN_RND(20));
736     int shrink = 1;
737     int i;
738
739     xsn.bitmap->surface = surface_masked;
740
741     SDLSetAlpha(item_bitmap->surface_masked, TRUE, item_alpha);
742
743     // blit to masked surface instead of opaque surface
744     BlitBitmapMasked(item_bitmap, xsn.bitmap, 0, 0, item_size, item_size,
745                      new_x, new_y - upper_border);
746
747     SDLSetAlpha(item_bitmap->surface_masked, TRUE, XSN_ALPHA_DEFAULT);
748
749     for (i = -half_item_size; i <= half_item_size; i++)
750     {
751       int xpos = mid_x + i;
752
753       if (xpos >= 0 && xpos < xsn.area_xsize)
754         xsn.height[xpos] = MIN(new_y + ABS(i), xsn.height[xpos]);
755     }
756
757     if (xsn.height[mid_x] <= upper_border + shrink)
758     {
759       int xpos1 = MAX(0, new_x - half_item_size);
760       int xpos2 = MIN(new_x + 3 * half_item_size, xsn.area_xsize);
761       int xsize = xpos2 - xpos1;
762       int ysize1 = XSN_RND(xsn.max_height - shrink);
763       int ysize2 = xsn.max_height - ysize1;
764
765       SDLSetAlpha(surface_masked, FALSE, 0);
766
767       FillRectangle(xsn.bitmap, xpos1, xsn.max_height, xsize, xsn.max_height,
768                     BLACK_PIXEL);
769       BlitBitmapMasked(xsn.bitmap, xsn.bitmap, xpos1, 0, xsize, ysize1,
770                        xpos1, xsn.max_height + shrink);
771       BlitBitmapMasked(xsn.bitmap, xsn.bitmap, xpos1, ysize1, xsize, ysize2,
772                        xpos1, xsn.max_height + ysize1);
773       FillRectangle(xsn.bitmap, xpos1, 0, xsize, xsn.max_height,
774                     BLACK_PIXEL);
775       BlitBitmapMasked(xsn.bitmap, xsn.bitmap, xpos1, xsn.max_height,
776                        xsize, xsn.max_height, xpos1, 0);
777
778       SDLSetAlpha(surface_masked, TRUE, xsn.alpha);
779
780       for (i = xpos1; i < xpos2; i++)
781         xsn.height[i] = MIN(xsn.height[i] + shrink, xsn.area_ysize - 1);
782     }
783
784     SDLFreeBitmapTextures(xsn.bitmap);
785     SDLCreateBitmapTextures(xsn.bitmap);
786
787     xsn.bitmap->surface = surface;
788
789     item->active = 0;
790   }
791
792   item->dx += XSN_RND(XSN_CHANGE_FACTOR) * (XSN_RND(1000) > 500 ? -1 : 1);
793
794   if (xsn.change_type == 0)
795     item->dx = MIN(MAX(-xsn.max_dx, item->dx), xsn.max_dx);
796
797   item->x = new_x;
798   item->y = new_y;
799 }
800
801 static void xsn_update_change(void)
802 {
803   if (XSN_RND(100) > 65)
804   {
805     xsn.change_dir = (XSN_RND(10) > 4 ? 1 : -1);
806     xsn.change_delay = XSN_RND(5) + 1;
807     xsn.change_type = 2;
808   }
809   else if (xsn.change_type == 2)
810   {
811     xsn.change_delay = XSN_RND(3) + 1;
812     xsn.change_type = 1;
813   }
814   else
815   {
816     xsn.change_delay = XSN_CHANGE_DELAY;
817     xsn.change_type = 0;
818   }
819 }
820
821 static void DrawTileCursor_Xsn(int draw_target)
822 {
823   static boolean initialized = FALSE;
824   static boolean started = FALSE;
825   static boolean active = FALSE;
826   static boolean debug = FALSE;
827   static DelayCounter check_delay = { XSN_CHECK_DELAY * 1000 };
828   static DelayCounter start_delay = { 0 };
829   static DelayCounter growth_delay = { 0 };
830   static DelayCounter update_delay = { 0 };
831   static DelayCounter change_delay = { 0 };
832   static int percent = 0;
833   static int debug_value = 0;
834   boolean reinitialize = FALSE;
835   boolean active_last = active;
836   int i, x, y;
837
838   if (draw_target != DRAW_TO_SCREEN)
839     return;
840
841   if (DelayReached(&check_delay))
842   {
843     percent = (debug ? debug_value * 100 / XSN_DEBUG_STEPS : xsn_percent());
844
845     if (debug)
846       setup.debug.xsn_percent = percent;
847
848     if (setup.debug.xsn_mode != AUTO)
849       percent = setup.debug.xsn_percent;
850
851     setup.debug.xsn_percent = percent;
852
853     active = (percent > 0);
854
855     if ((active && !active_last) || setup.debug.xsn_mode != AUTO)
856       removeHideSetupEntry(&setup.debug.xsn_mode);
857     else if (!active && active_last)
858       setHideSetupEntry(&setup.debug.xsn_mode);
859
860     if (setup.debug.xsn_mode == FALSE)
861       active = FALSE;
862   }
863   else if (tile_cursor.xsn_debug)
864   {
865     debug_value = (active ? 0 : MIN(debug_value + 1, XSN_DEBUG_STEPS));
866     debug = TRUE;
867     active = FALSE;
868
869     ResetDelayCounter(&check_delay);
870
871     setup.debug.xsn_mode = (debug_value > 0);
872     tile_cursor.xsn_debug = FALSE;
873   }
874
875   if (!active)
876     return;
877
878   if (!initialized)
879   {
880     xsn.area_xsize = gfx.win_xsize;
881     xsn.area_ysize = gfx.win_ysize;
882
883     for (i = 0; i < num_xsn_data; i++)
884     {
885       int size = xsn_data[i].size;
886       byte *bits = xsn_data[i].bits;
887       Bitmap *bitmap = CreateBitmap(size, size, DEFAULT_DEPTH);
888
889       FillRectangle(bitmap, 0, 0, size, size, BLACK_PIXEL);
890
891       for (y = 0; y < size; y++)
892         for (x = 0; x < size; x++)
893           if ((bits[y] >> x) & 0x01)
894             SDLPutPixel(bitmap, x, y, WHITE_PIXEL);
895
896       SDL_Surface *surface = bitmap->surface;
897
898       if ((bitmap->surface_masked = SDLGetNativeSurface(surface)) == NULL)
899         Fail("SDLGetNativeSurface() failed");
900
901       SDL_Surface *surface_masked = bitmap->surface_masked;
902
903       SDL_SetColorKey(surface_masked, SET_TRANSPARENT_PIXEL,
904                       SDL_MapRGB(surface_masked->format, 0x00, 0x00, 0x00));
905
906       SDLSetAlpha(surface, TRUE, XSN_ALPHA_DEFAULT);
907       SDLSetAlpha(surface_masked, TRUE, XSN_ALPHA_DEFAULT);
908
909       xsn_data[i].bitmap = bitmap;
910     }
911
912     srand((unsigned int)time(NULL));
913
914     initialized = TRUE;
915   }
916
917   if (!active_last)
918   {
919     start_delay.value = (debug || setup.debug.xsn_mode == TRUE ? 0 :
920                          (XSN_START_DELAY + XSN_RND(XSN_START_DELAY)) * 1000);
921     started = FALSE;
922
923     ResetDelayCounter(&start_delay);
924
925     reinitialize = TRUE;
926   }
927
928   if (reinitialize)
929   {
930     xsn.num_items  = 0;
931     xsn.max_items  = percent * XSN_MAX_ITEMS / 100;
932     xsn.max_height = percent * XSN_MAX_HEIGHT / 100;
933
934     xsn.max_dx = XSN_MAX_DX;
935     xsn.max_dy = XSN_MAX_DY;
936
937     xsn.change_delay = XSN_CHANGE_DELAY;
938     xsn.change_type  = 0;
939     xsn.change_dir   = 0;
940
941     xsn.alpha = XSN_ALPHA_DEFAULT;
942
943     for (i = 0; i < xsn.max_items; i++)
944       xsn_init_item(i);
945   }
946
947   if (xsn.area_xsize != gfx.win_xsize ||
948       xsn.area_ysize != gfx.win_ysize ||
949       reinitialize)
950   {
951     xsn.area_xsize = gfx.win_xsize;
952     xsn.area_ysize = gfx.win_ysize;
953
954     if (xsn.bitmap != NULL)
955       FreeBitmap(xsn.bitmap);
956
957     xsn.bitmap = CreateBitmap(xsn.area_xsize, xsn.max_height * 2,
958                               DEFAULT_DEPTH);
959
960     FillRectangle(xsn.bitmap, 0, 0, xsn.area_xsize, xsn.max_height,
961                   BLACK_PIXEL);
962
963     SDL_Surface *surface = xsn.bitmap->surface;
964
965     if ((xsn.bitmap->surface_masked = SDLGetNativeSurface(surface)) == NULL)
966       Fail("SDLGetNativeSurface() failed");
967
968     SDL_Surface *surface_masked = xsn.bitmap->surface_masked;
969
970     SDL_SetColorKey(surface_masked, SET_TRANSPARENT_PIXEL,
971                     SDL_MapRGB(surface_masked->format, 0x00, 0x00, 0x00));
972
973     SDLSetAlpha(surface, TRUE, xsn.alpha);
974     SDLSetAlpha(surface_masked, TRUE, xsn.alpha);
975
976     SDLCreateBitmapTextures(xsn.bitmap);
977
978     for (i = 0; i < num_xsn_data; i++)
979     {
980       SDLFreeBitmapTextures(xsn_data[i].bitmap);
981       SDLCreateBitmapTextures(xsn_data[i].bitmap);
982     }
983
984     if (xsn.height != NULL)
985       checked_free(xsn.height);
986
987     xsn.height = checked_calloc(xsn.area_xsize * sizeof(int));
988
989     for (i = 0; i < xsn.area_xsize; i++)
990       xsn.height[i] = xsn.area_ysize - 1;
991   }
992
993   if (!started)
994   {
995     if (!DelayReached(&start_delay))
996       return;
997
998     update_delay.value = XSN_UPDATE_DELAY;
999     growth_delay.value = XSN_GROWTH_DELAY * 1000;
1000     change_delay.value = XSN_CHANGE_DELAY * 1000;
1001
1002     ResetDelayCounter(&growth_delay);
1003     ResetDelayCounter(&update_delay);
1004     ResetDelayCounter(&change_delay);
1005
1006     started = TRUE;
1007   }
1008
1009   if (xsn.num_items < xsn.max_items)
1010   {
1011     if (DelayReached(&growth_delay))
1012     {
1013       xsn.num_items += XSN_RND(XSN_GROWTH_RATE * 2);
1014       xsn.num_items = MIN(xsn.num_items, xsn.max_items);
1015     }
1016   }
1017
1018   if (DelayReached(&update_delay))
1019   {
1020     for (i = 0; i < xsn.num_items; i++)
1021       xsn_update_item(i);
1022   }
1023
1024   if (DelayReached(&change_delay))
1025   {
1026     xsn_update_change();
1027
1028     change_delay.value = xsn.change_delay * 1000;
1029   }
1030
1031   int xsn_alpha_dx = (gfx.mouse_y > xsn.area_ysize - xsn.max_height ?
1032                       (xsn.alpha > XSN_ALPHA_VISIBLE ? -1 : 0) :
1033                       (xsn.alpha < XSN_ALPHA_DEFAULT ? +1 : 0));
1034
1035   if (xsn_alpha_dx != 0)
1036   {
1037     xsn.alpha += xsn_alpha_dx;
1038
1039     SDLSetAlpha(xsn.bitmap->surface_masked, TRUE, xsn.alpha);
1040
1041     SDLFreeBitmapTextures(xsn.bitmap);
1042     SDLCreateBitmapTextures(xsn.bitmap);
1043   }
1044
1045   BlitToScreenMasked(xsn.bitmap, 0, 0, xsn.area_xsize, xsn.max_height,
1046                      0, xsn.area_ysize - xsn.max_height);
1047
1048   for (i = 0; i < xsn.num_items; i++)
1049   {
1050     int dst_x = xsn.items[i].x;
1051     int dst_y = xsn.items[i].y;
1052     int type = xsn.items[i].type;
1053     int size = xsn_data[type].size;
1054     Bitmap *bitmap = xsn_data[type].bitmap;
1055
1056     BlitToScreenMasked(bitmap, 0, 0, size, size, dst_x, dst_y);
1057   }
1058 }
1059
1060 void DrawTileCursor_MM(int draw_target, boolean tile_cursor_active)
1061 {
1062   if (program.headless)
1063     return;
1064
1065   Bitmap *fade_bitmap;
1066   Bitmap *src_bitmap;
1067   int src_x, src_y;
1068   int dst_x, dst_y;
1069   int graphic = IMG_GLOBAL_TILE_CURSOR;
1070   int frame = 0;
1071   int tilesize = TILESIZE_VAR;
1072   int width = tilesize;
1073   int height = tilesize;
1074
1075   DrawTileCursor_Xsn(draw_target);
1076
1077   if (!tile_cursor.enabled ||
1078       !tile_cursor.active ||
1079       !tile_cursor_active)
1080     return;
1081
1082   if (tile_cursor.moving)
1083   {
1084     int step = TILESIZE_VAR / 4;
1085     int dx = tile_cursor.target_x - tile_cursor.x;
1086     int dy = tile_cursor.target_y - tile_cursor.y;
1087
1088     if (ABS(dx) < step)
1089       tile_cursor.x = tile_cursor.target_x;
1090     else
1091       tile_cursor.x += SIGN(dx) * step;
1092
1093     if (ABS(dy) < step)
1094       tile_cursor.y = tile_cursor.target_y;
1095     else
1096       tile_cursor.y += SIGN(dy) * step;
1097
1098     if (tile_cursor.x == tile_cursor.target_x &&
1099         tile_cursor.y == tile_cursor.target_y)
1100       tile_cursor.moving = FALSE;
1101   }
1102
1103   dst_x = tile_cursor.x;
1104   dst_y = tile_cursor.y;
1105
1106   frame = getGraphicAnimationFrame(graphic, -1);
1107
1108   getSizedGraphicSource(graphic, frame, tilesize, &src_bitmap, &src_x, &src_y);
1109
1110   fade_bitmap =
1111     (draw_target == DRAW_TO_FADE_SOURCE ? gfx.fade_bitmap_source :
1112      draw_target == DRAW_TO_FADE_TARGET ? gfx.fade_bitmap_target : NULL);
1113
1114   if (draw_target == DRAW_TO_SCREEN)
1115     BlitToScreenMasked(src_bitmap, src_x, src_y, width, height, dst_x, dst_y);
1116   else
1117     BlitBitmapMasked(src_bitmap, fade_bitmap, src_x, src_y, width, height,
1118                      dst_x, dst_y);
1119 }
1120
1121 Pixel ReadPixel(DrawBuffer *bitmap, int x, int y)
1122 {
1123   return GetPixel(bitmap, x, y);
1124 }
1125
1126 int get_base_element(int element)
1127 {
1128   if (IS_MIRROR(element))
1129     return EL_MIRROR_START;
1130   else if (IS_MIRROR_FIXED(element))
1131     return EL_MIRROR_FIXED_START;
1132   else if (IS_POLAR(element))
1133     return EL_POLAR_START;
1134   else if (IS_POLAR_CROSS(element))
1135     return EL_POLAR_CROSS_START;
1136   else if (IS_BEAMER(element))
1137     return EL_BEAMER_RED_START + BEAMER_NR(element) * 16;
1138   else if (IS_FIBRE_OPTIC(element))
1139     return EL_FIBRE_OPTIC_START + FIBRE_OPTIC_NR(element) * 2;
1140   else if (IS_MCDUFFIN(element))
1141     return EL_MCDUFFIN_START;
1142   else if (IS_LASER(element))
1143     return EL_LASER_START;
1144   else if (IS_RECEIVER(element))
1145     return EL_RECEIVER_START;
1146   else if (IS_DF_MIRROR(element))
1147     return EL_DF_MIRROR_START;
1148   else if (IS_DF_MIRROR_AUTO(element))
1149     return EL_DF_MIRROR_AUTO_START;
1150   else if (IS_DF_MIRROR_FIXED(element))
1151     return EL_DF_MIRROR_FIXED_START;
1152   else if (IS_PACMAN(element))
1153     return EL_PACMAN_START;
1154   else if (IS_GRID_STEEL(element))
1155     return EL_GRID_STEEL_START;
1156   else if (IS_GRID_WOOD(element))
1157     return EL_GRID_WOOD_START;
1158   else if (IS_GRID_STEEL_FIXED(element))
1159     return EL_GRID_STEEL_FIXED_START;
1160   else if (IS_GRID_WOOD_FIXED(element))
1161     return EL_GRID_WOOD_FIXED_START;
1162   else if (IS_GRID_STEEL_AUTO(element))
1163     return EL_GRID_STEEL_AUTO_START;
1164   else if (IS_GRID_WOOD_AUTO(element))
1165     return EL_GRID_WOOD_AUTO_START;
1166   else if (IS_WALL_STEEL(element))
1167     return EL_WALL_STEEL_START;
1168   else if (IS_WALL_WOOD(element))
1169     return EL_WALL_WOOD_START;
1170   else if (IS_WALL_ICE(element))
1171     return EL_WALL_ICE_START;
1172   else if (IS_WALL_AMOEBA(element))
1173     return EL_WALL_AMOEBA_START;
1174   else if (IS_DF_WALL_STEEL(element))
1175     return EL_DF_WALL_STEEL_START;
1176   else if (IS_DF_WALL_WOOD(element))
1177     return EL_DF_WALL_WOOD_START;
1178   else if (IS_CHAR(element))
1179     return EL_CHAR_START;
1180   else
1181     return element;
1182 }
1183
1184 int get_element_phase(int element)
1185 {
1186   return element - get_base_element(element);
1187 }
1188
1189 int get_num_elements(int element)
1190 {
1191   if (IS_MIRROR(element) ||
1192       IS_POLAR(element) ||
1193       IS_BEAMER(element) ||
1194       IS_DF_MIRROR(element) ||
1195       IS_DF_MIRROR_AUTO(element) ||
1196       IS_DF_MIRROR_FIXED(element))
1197     return 16;
1198   else if (IS_GRID_STEEL_FIXED(element) ||
1199            IS_GRID_WOOD_FIXED(element) ||
1200            IS_GRID_STEEL_AUTO(element) ||
1201            IS_GRID_WOOD_AUTO(element))
1202     return 8;
1203   else if (IS_MIRROR_FIXED(element) ||
1204            IS_POLAR_CROSS(element) ||
1205            IS_MCDUFFIN(element) ||
1206            IS_LASER(element) ||
1207            IS_RECEIVER(element) ||
1208            IS_PACMAN(element) ||
1209            IS_GRID_STEEL(element) ||
1210            IS_GRID_WOOD(element))
1211     return 4;
1212   else
1213     return 1;
1214 }
1215
1216 int get_rotated_element(int element, int step)
1217 {
1218   int base_element = get_base_element(element);
1219   int num_elements = get_num_elements(element);
1220   int element_phase = element - base_element;
1221
1222   return base_element + (element_phase + step + num_elements) % num_elements;
1223 }
1224
1225 int map_wall_from_base_element(int element)
1226 {
1227   switch (element)
1228   {
1229     case EL_WALL_STEEL_BASE:    return EL_WALL_STEEL;
1230     case EL_WALL_WOOD_BASE:     return EL_WALL_WOOD;
1231     case EL_WALL_ICE_BASE:      return EL_WALL_ICE;
1232     case EL_WALL_AMOEBA_BASE:   return EL_WALL_AMOEBA;
1233     case EL_DF_WALL_STEEL_BASE: return EL_DF_WALL_STEEL;
1234     case EL_DF_WALL_WOOD_BASE:  return EL_DF_WALL_WOOD;
1235
1236     default:                    return element;
1237   }
1238 }
1239
1240 int map_wall_to_base_element(int element)
1241 {
1242   switch (element)
1243   {
1244     case EL_WALL_STEEL:         return EL_WALL_STEEL_BASE;
1245     case EL_WALL_WOOD:          return EL_WALL_WOOD_BASE;
1246     case EL_WALL_ICE:           return EL_WALL_ICE_BASE;
1247     case EL_WALL_AMOEBA:        return EL_WALL_AMOEBA_BASE;
1248     case EL_DF_WALL_STEEL:      return EL_DF_WALL_STEEL_BASE;
1249     case EL_DF_WALL_WOOD:       return EL_DF_WALL_WOOD_BASE;
1250
1251     default:                    return element;
1252   }
1253 }
1254
1255 int el2gfx(int element)
1256 {
1257   return el2img_mm(map_wall_from_base_element(element));
1258 }
1259
1260 int el_act2gfx(int element, int action)
1261 {
1262   return el_act2img_mm(map_wall_from_base_element(element), action);
1263 }
1264
1265 void RedrawPlayfield_MM(void)
1266 {
1267   DrawLevel_MM();
1268   DrawLaser_MM();
1269 }
1270
1271 void BlitScreenToBitmap_MM(Bitmap *target_bitmap)
1272 {
1273   BlitBitmap(drawto_mm, target_bitmap,
1274              REAL_SX, REAL_SY, FULL_SXSIZE, FULL_SYSIZE, REAL_SX, REAL_SY);
1275 }