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