rnd-20040314-1-src
[rocksndiamonds.git] / src / tape.c
1 /***********************************************************
2 * Rocks'n'Diamonds -- McDuffin Strikes Back!               *
3 *----------------------------------------------------------*
4 * (c) 1995-2002 Artsoft Entertainment                      *
5 *               Holger Schemel                             *
6 *               Detmolder Strasse 189                      *
7 *               33604 Bielefeld                            *
8 *               Germany                                    *
9 *               e-mail: info@artsoft.org                   *
10 *----------------------------------------------------------*
11 * tape.c                                                   *
12 ***********************************************************/
13
14 #include "libgame/libgame.h"
15
16 #include "tape.h"
17 #include "init.h"
18 #include "game.h"
19 #include "tools.h"
20 #include "files.h"
21 #include "network.h"
22 #include "cartoons.h"
23
24 /* tape button identifiers */
25 #define TAPE_CTRL_ID_EJECT              0
26 #define TAPE_CTRL_ID_INDEX              1
27 #define TAPE_CTRL_ID_STOP               2
28 #define TAPE_CTRL_ID_PAUSE              3
29 #define TAPE_CTRL_ID_RECORD             4
30 #define TAPE_CTRL_ID_PLAY               5
31
32 #define NUM_TAPE_BUTTONS                6
33
34 /* values for tape handling */
35 #define TAPE_PAUSE_SECONDS_BEFORE_DEATH         5
36
37 /* forward declaration for internal use */
38 static void HandleTapeButtons(struct GadgetInfo *);
39 static void TapeStopIndexSearch();
40
41 static struct GadgetInfo *tape_gadget[NUM_TAPE_BUTTONS];
42
43
44 /* ========================================================================= */
45 /* video tape definitions                                                    */
46 /* ========================================================================= */
47
48 /* some positions in the video tape control window */
49 #define VIDEO_DATE_LABEL_XPOS   (VIDEO_DISPLAY1_XPOS)
50 #define VIDEO_DATE_LABEL_YPOS   (VIDEO_DISPLAY1_YPOS)
51 #define VIDEO_DATE_LABEL_XSIZE  (VIDEO_DISPLAY_XSIZE)
52 #define VIDEO_DATE_LABEL_YSIZE  (VIDEO_DISPLAY_YSIZE)
53 #define VIDEO_DATE_XPOS         (VIDEO_DISPLAY1_XPOS + 2)
54 #define VIDEO_DATE_YPOS         (VIDEO_DISPLAY1_YPOS + 14)
55 #define VIDEO_DATE_XSIZE        (VIDEO_DISPLAY_XSIZE)
56 #define VIDEO_DATE_YSIZE        16
57 #define VIDEO_REC_LABEL_XPOS    (VIDEO_DISPLAY2_XPOS)
58 #define VIDEO_REC_LABEL_YPOS    (VIDEO_DISPLAY2_YPOS)
59 #define VIDEO_REC_LABEL_XSIZE   20
60 #define VIDEO_REC_LABEL_YSIZE   12
61 #define VIDEO_REC_SYMBOL_XPOS   (VIDEO_DISPLAY2_XPOS + 20)
62 #define VIDEO_REC_SYMBOL_YPOS   (VIDEO_DISPLAY2_YPOS)
63 #define VIDEO_REC_SYMBOL_XSIZE  16
64 #define VIDEO_REC_SYMBOL_YSIZE  16
65 #define VIDEO_PLAY_LABEL_XPOS   (VIDEO_DISPLAY2_XPOS + 65)
66 #define VIDEO_PLAY_LABEL_YPOS   (VIDEO_DISPLAY2_YPOS)
67 #define VIDEO_PLAY_LABEL_XSIZE  22
68 #define VIDEO_PLAY_LABEL_YSIZE  12
69 #define VIDEO_PLAY_SYMBOL_XPOS  (VIDEO_DISPLAY2_XPOS + 52)
70 #define VIDEO_PLAY_SYMBOL_YPOS  (VIDEO_DISPLAY2_YPOS)
71 #define VIDEO_PLAY_SYMBOL_XSIZE 11
72 #define VIDEO_PLAY_SYMBOL_YSIZE 13
73 #define VIDEO_PAUSE_LABEL_XPOS  (VIDEO_DISPLAY2_XPOS)
74 #define VIDEO_PAUSE_LABEL_YPOS  (VIDEO_DISPLAY2_YPOS + 20)
75 #define VIDEO_PAUSE_LABEL_XSIZE 35
76 #define VIDEO_PAUSE_LABEL_YSIZE 8
77 #define VIDEO_PAUSE_SYMBOL_XPOS (VIDEO_DISPLAY2_XPOS + 35)
78 #define VIDEO_PAUSE_SYMBOL_YPOS (VIDEO_DISPLAY2_YPOS)
79 #define VIDEO_PAUSE_SYMBOL_XSIZE 17
80 #define VIDEO_PAUSE_SYMBOL_YSIZE 13
81 #define VIDEO_TIME_XPOS         (VIDEO_DISPLAY2_XPOS + 39)
82 #define VIDEO_TIME_YPOS         (VIDEO_DISPLAY2_YPOS + 14)
83 #define VIDEO_TIME_XSIZE        50
84 #define VIDEO_TIME_YSIZE        16
85
86 /* special */
87 #define VIDEO_PBEND_LABEL_XPOS  5
88 #define VIDEO_PBEND_LABEL_YPOS  220
89 #define VIDEO_PBEND_LABEL_XSIZE 35
90 #define VIDEO_PBEND_LABEL_YSIZE 30
91
92 #define VIDEO_STATE_OFF         (VIDEO_STATE_PLAY_OFF   |       \
93                                  VIDEO_STATE_REC_OFF    |       \
94                                  VIDEO_STATE_PAUSE_OFF  |       \
95                                  VIDEO_STATE_FFWD_OFF   |       \
96                                  VIDEO_STATE_PBEND_OFF  |       \
97                                  VIDEO_STATE_DATE_OFF   |       \
98                                  VIDEO_STATE_TIME_OFF)
99 #define VIDEO_PRESS_OFF         (VIDEO_PRESS_PLAY_OFF   |       \
100                                  VIDEO_PRESS_REC_OFF    |       \
101                                  VIDEO_PRESS_PAUSE_OFF  |       \
102                                  VIDEO_PRESS_STOP_OFF   |       \
103                                  VIDEO_PRESS_EJECT_OFF)
104 #define VIDEO_ALL_OFF           (VIDEO_STATE_OFF | VIDEO_PRESS_OFF)
105
106 #define VIDEO_STATE_ON          (VIDEO_STATE_PLAY_ON    |       \
107                                  VIDEO_STATE_REC_ON     |       \
108                                  VIDEO_STATE_PAUSE_ON   |       \
109                                  VIDEO_STATE_FFWD_ON    |       \
110                                  VIDEO_STATE_PBEND_ON   |       \
111                                  VIDEO_STATE_DATE_ON    |       \
112                                  VIDEO_STATE_TIME_ON)
113 #define VIDEO_PRESS_ON          (VIDEO_PRESS_PLAY_ON    |       \
114                                  VIDEO_PRESS_REC_ON     |       \
115                                  VIDEO_PRESS_PAUSE_ON   |       \
116                                  VIDEO_PRESS_STOP_ON    |       \
117                                  VIDEO_PRESS_EJECT_ON)
118 #define VIDEO_ALL_ON            (VIDEO_STATE_ON | VIDEO_PRESS_ON)
119
120 #define VIDEO_STATE             (VIDEO_STATE_ON | VIDEO_STATE_OFF)
121 #define VIDEO_PRESS             (VIDEO_PRESS_ON | VIDEO_PRESS_OFF)
122 #define VIDEO_ALL               (VIDEO_ALL_ON | VIDEO_ALL_OFF)
123
124
125 /* ========================================================================= */
126 /* video display functions                                                   */
127 /* ========================================================================= */
128
129 void DrawVideoDisplay(unsigned long state, unsigned long value)
130 {
131   int i;
132   int part_label = 0, part_symbol = 1;
133   int xpos = 0, ypos = 1, xsize = 2, ysize = 3;
134   static char *monatsname[12] =
135   {
136     "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
137     "JUL", "AUG", "SEP", "OCT", "NOV", "DEC"
138   };
139   static int video_pos[5][2][4] =
140   {
141     {{ VIDEO_PLAY_LABEL_XPOS, VIDEO_PLAY_LABEL_YPOS,
142        VIDEO_PLAY_LABEL_XSIZE,VIDEO_PLAY_LABEL_YSIZE },
143      { VIDEO_PLAY_SYMBOL_XPOS, VIDEO_PLAY_SYMBOL_YPOS,
144        VIDEO_PLAY_SYMBOL_XSIZE,VIDEO_PLAY_SYMBOL_YSIZE }},
145
146     {{ VIDEO_REC_LABEL_XPOS, VIDEO_REC_LABEL_YPOS,
147        VIDEO_REC_LABEL_XSIZE,VIDEO_REC_LABEL_YSIZE },
148      { VIDEO_REC_SYMBOL_XPOS, VIDEO_REC_SYMBOL_YPOS,
149        VIDEO_REC_SYMBOL_XSIZE,VIDEO_REC_SYMBOL_YSIZE }},
150
151     {{ VIDEO_PAUSE_LABEL_XPOS, VIDEO_PAUSE_LABEL_YPOS,
152        VIDEO_PAUSE_LABEL_XSIZE,VIDEO_PAUSE_LABEL_YSIZE },
153      { VIDEO_PAUSE_SYMBOL_XPOS, VIDEO_PAUSE_SYMBOL_YPOS,
154        VIDEO_PAUSE_SYMBOL_XSIZE,VIDEO_PAUSE_SYMBOL_YSIZE }},
155
156     {{ VIDEO_DATE_LABEL_XPOS, VIDEO_DATE_LABEL_YPOS,
157        VIDEO_DATE_LABEL_XSIZE,VIDEO_DATE_LABEL_YSIZE },
158      { VIDEO_DATE_XPOS, VIDEO_DATE_YPOS,
159        VIDEO_DATE_XSIZE,VIDEO_DATE_YSIZE }},
160
161     {{ 0,0,
162        0,0 },
163      { VIDEO_TIME_XPOS, VIDEO_TIME_YPOS,
164        VIDEO_TIME_XSIZE,VIDEO_TIME_YSIZE }}
165   };
166
167   if (state & VIDEO_STATE_PBEND_OFF)
168   {
169     int cx = DOOR_GFX_PAGEX3, cy = DOOR_GFX_PAGEY2;
170
171     BlitBitmap(graphic_info[IMG_GLOBAL_DOOR].bitmap, drawto,
172                cx + VIDEO_REC_LABEL_XPOS,
173                cy + VIDEO_REC_LABEL_YPOS,
174                VIDEO_PBEND_LABEL_XSIZE,
175                VIDEO_PBEND_LABEL_YSIZE,
176                VX + VIDEO_REC_LABEL_XPOS,
177                VY + VIDEO_REC_LABEL_YPOS);
178   }
179
180   for (i = 0; i < 10; i++)
181   {
182     if (state & (1<<i))
183     {
184       int pos = i/2, cx, cy = DOOR_GFX_PAGEY2;
185
186       if (i%2)                  /* i ungerade => STATE_ON / PRESS_OFF */
187         cx = DOOR_GFX_PAGEX4;
188       else
189         cx = DOOR_GFX_PAGEX3;   /* i gerade => STATE_OFF / PRESS_ON */
190
191       if (video_pos[pos][part_label][0] && value != VIDEO_DISPLAY_SYMBOL_ONLY)
192         BlitBitmap(graphic_info[IMG_GLOBAL_DOOR].bitmap, drawto,
193                    cx + video_pos[pos][part_label][xpos],
194                    cy + video_pos[pos][part_label][ypos],
195                    video_pos[pos][part_label][xsize],
196                    video_pos[pos][part_label][ysize],
197                    VX + video_pos[pos][part_label][xpos],
198                    VY + video_pos[pos][part_label][ypos]);
199       if (video_pos[pos][part_symbol][0] && value != VIDEO_DISPLAY_LABEL_ONLY)
200         BlitBitmap(graphic_info[IMG_GLOBAL_DOOR].bitmap, drawto,
201                    cx + video_pos[pos][part_symbol][xpos],
202                    cy + video_pos[pos][part_symbol][ypos],
203                    video_pos[pos][part_symbol][xsize],
204                    video_pos[pos][part_symbol][ysize],
205                    VX + video_pos[pos][part_symbol][xpos],
206                    VY + video_pos[pos][part_symbol][ypos]);
207     }
208   }
209
210   if (state & VIDEO_STATE_FFWD_ON)
211   {
212     int cx = DOOR_GFX_PAGEX4, cy = DOOR_GFX_PAGEY2;
213
214     BlitBitmap(graphic_info[IMG_GLOBAL_DOOR].bitmap, drawto,
215                cx + VIDEO_PLAY_SYMBOL_XPOS,
216                cy + VIDEO_PLAY_SYMBOL_YPOS,
217                VIDEO_PLAY_SYMBOL_XSIZE - 2,
218                VIDEO_PLAY_SYMBOL_YSIZE,
219                VX + VIDEO_PLAY_SYMBOL_XPOS - 9,
220                VY + VIDEO_PLAY_SYMBOL_YPOS);
221   }
222
223   if (state & VIDEO_STATE_PBEND_ON)
224   {
225     int cx = DOOR_GFX_PAGEX6, cy = DOOR_GFX_PAGEY1;
226
227     BlitBitmap(graphic_info[IMG_GLOBAL_DOOR].bitmap, drawto,
228                cx + VIDEO_PBEND_LABEL_XPOS,
229                cy + VIDEO_PBEND_LABEL_YPOS,
230                VIDEO_PBEND_LABEL_XSIZE,
231                VIDEO_PBEND_LABEL_YSIZE,
232                VX + VIDEO_REC_LABEL_XPOS,
233                VY + VIDEO_REC_LABEL_YPOS);
234   }
235
236   if (state & VIDEO_STATE_DATE_ON)
237   {
238     int tag = value % 100;
239     int monat = (value/100) % 100;
240     int jahr = (value/10000);
241
242     DrawText(VX + VIDEO_DATE_XPOS, VY + VIDEO_DATE_YPOS,
243              int2str(tag, 2), FONT_TAPE_RECORDER);
244     DrawText(VX + VIDEO_DATE_XPOS + 27, VY + VIDEO_DATE_YPOS,
245              monatsname[monat], FONT_TAPE_RECORDER);
246     DrawText(VX + VIDEO_DATE_XPOS + 64, VY + VIDEO_DATE_YPOS,
247              int2str(jahr, 2), FONT_TAPE_RECORDER);
248   }
249
250   if (state & VIDEO_STATE_TIME_ON)
251   {
252     int min = value / 60;
253     int sec = value % 60;
254
255     DrawText(VX + VIDEO_TIME_XPOS, VY + VIDEO_TIME_YPOS,
256              int2str(min, 2), FONT_TAPE_RECORDER);
257     DrawText(VX + VIDEO_TIME_XPOS + 27, VY + VIDEO_TIME_YPOS,
258              int2str(sec, 2), FONT_TAPE_RECORDER);
259   }
260
261   if (state & VIDEO_STATE_DATE)
262     redraw_mask |= REDRAW_VIDEO_1;
263   if ((state & ~VIDEO_STATE_DATE) & VIDEO_STATE)
264     redraw_mask |= REDRAW_VIDEO_2;
265   if (state & VIDEO_PRESS)
266     redraw_mask |= REDRAW_VIDEO_3;
267 }
268
269 void DrawCompleteVideoDisplay()
270 {
271   BlitBitmap(graphic_info[IMG_GLOBAL_DOOR].bitmap, drawto,
272              DOOR_GFX_PAGEX3, DOOR_GFX_PAGEY2,
273              gfx.vxsize, gfx.vysize, gfx.vx, gfx.vy);
274   BlitBitmap(graphic_info[IMG_GLOBAL_DOOR].bitmap, drawto,
275              DOOR_GFX_PAGEX4 + VIDEO_CONTROL_XPOS,
276              DOOR_GFX_PAGEY2 + VIDEO_CONTROL_YPOS,
277              VIDEO_CONTROL_XSIZE, VIDEO_CONTROL_YSIZE,
278              gfx.vx + VIDEO_CONTROL_XPOS, gfx.vy + VIDEO_CONTROL_YPOS);
279
280   DrawVideoDisplay(VIDEO_ALL_OFF, 0);
281   if (tape.date && tape.length)
282   {
283     DrawVideoDisplay(VIDEO_STATE_DATE_ON, tape.date);
284     DrawVideoDisplay(VIDEO_STATE_TIME_ON, tape.length_seconds);
285   }
286
287   BlitBitmap(drawto, bitmap_db_door, gfx.vx, gfx.vy, gfx.vxsize, gfx.vysize,
288              DOOR_GFX_PAGEX1, DOOR_GFX_PAGEY2);
289 }
290
291
292 /* ========================================================================= */
293 /* tape control functions                                                    */
294 /* ========================================================================= */
295
296 void TapeErase()
297 {
298   time_t epoch_seconds = time(NULL);
299   struct tm *time = localtime(&epoch_seconds);
300   int i;
301
302   tape.length = 0;
303   tape.counter = 0;
304
305   if (leveldir_current)
306     setString(&tape.level_identifier, leveldir_current->identifier);
307
308   tape.level_nr = level_nr;
309   tape.pos[tape.counter].delay = 0;
310   tape.changed = TRUE;
311
312   tape.date = 10000*(time->tm_year % 100) + 100*time->tm_mon + time->tm_mday;
313   tape.random_seed = InitRND(NEW_RANDOMIZE);
314
315   tape.file_version = FILE_VERSION_ACTUAL;
316   tape.game_version = GAME_VERSION_ACTUAL;
317   tape.engine_version = level.game_version;
318
319 #if 0
320   printf("::: tape.engine_version = level.game_version = %d \n",
321          level.game_version);
322 #endif
323
324   for (i = 0; i < MAX_PLAYERS; i++)
325     tape.player_participates[i] = FALSE;
326 }
327
328 static void TapeRewind()
329 {
330   tape.counter = 0;
331   tape.delay_played = 0;
332   tape.pause_before_death = FALSE;
333   tape.recording = FALSE;
334   tape.playing = FALSE;
335   tape.fast_forward = FALSE;
336   tape.index_search = FALSE;
337   tape.auto_play = (global.autoplay_leveldir != NULL);
338   tape.auto_play_level_solved = FALSE;
339   tape.quick_resume = FALSE;
340   tape.single_step = FALSE;
341
342   InitRND(tape.random_seed);
343 }
344
345 void TapeStartRecording()
346 {
347   if (!TAPE_IS_STOPPED(tape))
348     TapeStop();
349
350   TapeErase();
351   TapeRewind();
352
353   tape.recording = TRUE;
354
355   DrawVideoDisplay(VIDEO_STATE_REC_ON, 0);
356   DrawVideoDisplay(VIDEO_STATE_DATE_ON, tape.date);
357   DrawVideoDisplay(VIDEO_STATE_TIME_ON, 0);
358   MapTapeIndexButton();
359
360   SetDrawDeactivationMask(REDRAW_NONE);
361   audio.sound_deactivated = FALSE;
362 }
363
364 static void TapeStartGameRecording()
365 {
366   TapeStartRecording();
367
368 #if defined(PLATFORM_UNIX)
369   if (options.network)
370     SendToServer_StartPlaying();
371   else
372 #endif
373   {
374     game_status = GAME_MODE_PLAYING;
375     StopAnimation();
376     InitGame();
377   }
378 }
379
380 static void TapeAppendRecording()
381 {
382   if (!tape.playing || !tape.pausing)
383     return;
384
385   tape.pos[tape.counter].delay = tape.delay_played;
386   tape.playing = FALSE;
387   tape.recording = TRUE;
388   tape.changed = TRUE;
389
390   DrawVideoDisplay(VIDEO_STATE_PLAY_OFF | VIDEO_STATE_REC_ON,0);
391 }
392
393 void TapeHaltRecording()
394 {
395   if (!tape.recording)
396     return;
397
398   tape.counter++;
399   tape.pos[tape.counter].delay = 0;
400
401   tape.length = tape.counter;
402   tape.length_seconds = GetTapeLength();
403 }
404
405 void TapeStopRecording()
406 {
407   if (!tape.recording)
408     return;
409
410   TapeHaltRecording();
411
412   tape.recording = FALSE;
413   tape.pausing = FALSE;
414
415   DrawVideoDisplay(VIDEO_STATE_REC_OFF, 0);
416   MapTapeEjectButton();
417 }
418
419 void TapeRecordAction(byte action[MAX_PLAYERS])
420 {
421   int i;
422
423 #if 1
424   if (!tape.recording)          /* record action even when tape is paused! */
425     return;
426 #else
427   if (!tape.recording || tape.pausing)
428     return;
429 #endif
430
431   if (tape.counter >= MAX_TAPELEN - 1)
432   {
433     TapeStopRecording();
434     return;
435   }
436
437 #if 0
438   printf("::: %05d: recording action: %d\n", FrameCounter, action[0]);
439 #endif
440
441   if (tape.pos[tape.counter].delay > 0)         /* already stored action */
442   {
443     boolean changed_events = FALSE;
444
445     for (i = 0; i < MAX_PLAYERS; i++)
446       if (tape.pos[tape.counter].action[i] != action[i])
447         changed_events = TRUE;
448
449     if (changed_events || tape.pos[tape.counter].delay >= 255)
450     {
451       tape.counter++;
452       tape.pos[tape.counter].delay = 0;
453     }
454     else
455       tape.pos[tape.counter].delay++;
456   }
457
458   if (tape.pos[tape.counter].delay == 0)        /* store new action */
459   {
460
461 #if 0
462     printf("::: %05d: new sequence\n", FrameCounter);
463 #endif
464
465     for (i = 0; i < MAX_PLAYERS; i++)
466       tape.pos[tape.counter].action[i] = action[i];
467
468     tape.pos[tape.counter].delay++;
469   }
470 }
471
472 void TapeTogglePause(boolean toggle_manual)
473 {
474   unsigned long state;
475
476 #if 0
477   if (!tape.recording && !tape.playing)
478     return;
479 #endif
480
481   tape.pausing = !tape.pausing;
482   tape.fast_forward = FALSE;
483   tape.pause_before_death = FALSE;
484
485   if (tape.single_step && toggle_manual)
486     tape.single_step = FALSE;
487
488   state = (tape.pausing ? VIDEO_STATE_PAUSE_ON : VIDEO_STATE_PAUSE_OFF);
489   if (tape.playing)
490     state |= VIDEO_STATE_PBEND_OFF;
491
492   DrawVideoDisplay(state, 0);
493
494   if (tape.index_search)
495   {
496     TapeStopIndexSearch();
497
498     if (tape.quick_resume)
499     {
500       tape.quick_resume = FALSE;
501
502       TapeAppendRecording();
503 #if 0
504       TapeTogglePause(toggle_manual);
505 #endif
506     }
507   }
508 }
509
510 void TapeStartPlaying()
511 {
512   if (TAPE_IS_EMPTY(tape))
513     return;
514
515   if (!TAPE_IS_STOPPED(tape))
516     TapeStop();
517
518   TapeRewind();
519
520   tape.playing = TRUE;
521
522   DrawVideoDisplay(VIDEO_STATE_PLAY_ON, 0);
523   DrawVideoDisplay(VIDEO_STATE_DATE_ON, tape.date);
524   DrawVideoDisplay(VIDEO_STATE_TIME_ON, 0);
525   MapTapeIndexButton();
526
527   SetDrawDeactivationMask(REDRAW_NONE);
528   audio.sound_deactivated = FALSE;
529 }
530
531 static void TapeStartGamePlaying()
532 {
533   TapeStartPlaying();
534
535   game_status = GAME_MODE_PLAYING;
536   StopAnimation();
537   InitGame();
538 }
539
540 void TapeStopPlaying()
541 {
542   if (!tape.playing)
543     return;
544
545   tape.playing = FALSE;
546   tape.pausing = FALSE;
547
548   if (tape.index_search)
549     TapeStopIndexSearch();
550
551   DrawVideoDisplay(VIDEO_STATE_PLAY_OFF, 0);
552   MapTapeEjectButton();
553 }
554
555 byte *TapePlayAction()
556 {
557   static byte action[MAX_PLAYERS];
558   int i;
559
560   if (!tape.playing || tape.pausing)
561     return NULL;
562
563   if (tape.pause_before_death)  /* STOP 10s BEFORE PLAYER GETS KILLED... */
564   {
565     if (!(FrameCounter % 20))
566     {
567       if ((FrameCounter / 20) % 2)
568         DrawVideoDisplay(VIDEO_STATE_PBEND_ON, VIDEO_DISPLAY_LABEL_ONLY);
569       else
570         DrawVideoDisplay(VIDEO_STATE_PBEND_OFF, VIDEO_DISPLAY_LABEL_ONLY);
571     }
572
573     if (TimePlayed > tape.length_seconds - TAPE_PAUSE_SECONDS_BEFORE_DEATH)
574     {
575       TapeTogglePause(TAPE_TOGGLE_MANUAL);
576       return NULL;
577     }
578   }
579
580   if (tape.counter >= tape.length)      /* end of tape reached */
581   {
582     if (tape.index_search && !tape.auto_play)
583       TapeTogglePause(TAPE_TOGGLE_MANUAL);
584     else
585       TapeStop();
586
587     return NULL;
588   }
589
590   for (i = 0; i < MAX_PLAYERS; i++)
591     action[i] = tape.pos[tape.counter].action[i];
592
593   tape.delay_played++;
594   if (tape.delay_played >= tape.pos[tape.counter].delay)
595   {
596     tape.counter++;
597     tape.delay_played = 0;
598   }
599
600 #if 0
601   printf("::: %05d: replaying action: %d\n", FrameCounter, action[0]);
602 #endif
603
604   return action;
605 }
606
607 void TapeStop()
608 {
609 #if 0
610   if (tape.recording)
611     printf("::: stopped recording: %d\n", FrameCounter);
612   else if (tape.playing)
613     printf("::: stopped playing:   %d\n\n", FrameCounter);
614 #endif
615
616   TapeStopRecording();
617   TapeStopPlaying();
618
619   DrawVideoDisplay(VIDEO_STATE_PAUSE_OFF,0);
620   if (tape.date && tape.length)
621   {
622     DrawVideoDisplay(VIDEO_STATE_DATE_ON, tape.date);
623     DrawVideoDisplay(VIDEO_STATE_TIME_ON, tape.length_seconds);
624   }
625
626 #if 0
627   if (tape.auto_play)
628     AutoPlayTape();     /* continue automatically playing next tape */
629 #endif
630 }
631
632 unsigned int GetTapeLength()
633 {
634   unsigned int tape_length = 0;
635   int i;
636
637   if (TAPE_IS_EMPTY(tape))
638     return(0);
639
640   for (i = 0; i < tape.length; i++)
641     tape_length += tape.pos[i].delay;
642
643   return(tape_length * GAME_FRAME_DELAY / 1000);
644 }
645
646 static void TapeStartIndexSearch()
647 {
648   tape.index_search = TRUE;
649
650   if (!tape.fast_forward || tape.pause_before_death)
651   {
652     tape.pausing = FALSE;
653
654     SetDrawDeactivationMask(REDRAW_FIELD);
655     audio.sound_deactivated = TRUE;
656   }
657 }
658
659 static void TapeStopIndexSearch()
660 {
661   tape.index_search = FALSE;
662
663   SetDrawDeactivationMask(REDRAW_NONE);
664   audio.sound_deactivated = FALSE;
665
666 #if 1
667   if (game_status == GAME_MODE_PLAYING)
668 #endif
669   {
670     RedrawPlayfield(TRUE, 0,0,0,0);
671     DrawGameDoorValues();
672   }
673 }
674
675 static void TapeSingleStep()
676 {
677   if (options.network)
678     return;
679
680   if (!tape.pausing)
681     TapeTogglePause(TAPE_TOGGLE_MANUAL);
682
683   tape.single_step = !tape.single_step;
684 }
685
686 void TapeQuickSave()
687 {
688   if (game_status == GAME_MODE_PLAYING)
689   {
690     if (tape.recording)
691       TapeHaltRecording();      /* prepare tape for saving on-the-fly */
692
693     if (TAPE_IS_EMPTY(tape))
694       Request("No tape that can be saved !", REQ_CONFIRM);
695     else
696       SaveTape(tape.level_nr);
697   }
698   else if (game_status == GAME_MODE_MAIN)
699     Request("No game that can be saved !", REQ_CONFIRM);
700 }
701
702 void TapeQuickLoad()
703 {
704   if (game_status == GAME_MODE_PLAYING || game_status == GAME_MODE_MAIN)
705   {
706     TapeStop();
707     TapeErase();
708
709     LoadTape(level_nr);
710     if (!TAPE_IS_EMPTY(tape))
711     {
712       TapeStartGamePlaying();
713       TapeStartIndexSearch();
714
715       tape.quick_resume = TRUE;
716     }
717     else
718       Request("No tape for this level !", REQ_CONFIRM);
719   }
720 }
721
722 void InsertSolutionTape()
723 {
724   if (!TAPE_IS_EMPTY(tape))
725     return;
726
727   LoadSolutionTape(level_nr);
728
729   if (TAPE_IS_EMPTY(tape))
730     Request("No solution tape for this level !", REQ_CONFIRM);
731
732   DrawCompleteVideoDisplay();
733 }
734
735
736 /* ------------------------------------------------------------------------- *
737  * tape autoplay functions
738  * ------------------------------------------------------------------------- */
739
740 #define MAX_NUM_AUTOPLAY_LEVELS         1000
741
742 void AutoPlayTape()
743 {
744   static LevelDirTree *autoplay_leveldir = NULL;
745   static boolean autoplay_initialized = FALSE;
746   static int autoplay_level_nr = -1;
747   static int num_levels_played = 0;
748   static int num_levels_solved = 0;
749   static boolean levels_failed[MAX_NUM_AUTOPLAY_LEVELS];
750   int i;
751
752   if (autoplay_initialized)
753   {
754     /* just finished auto-playing tape */
755     printf("%s.\n", tape.auto_play_level_solved ? "solved" : "NOT SOLVED");
756
757     num_levels_played++;
758     if (tape.auto_play_level_solved)
759       num_levels_solved++;
760     else if (level_nr >= 0 && level_nr < MAX_NUM_AUTOPLAY_LEVELS)
761       levels_failed[level_nr] = TRUE;
762   }
763   else
764   {
765     DrawCompleteVideoDisplay();
766     audio.sound_enabled = FALSE;
767
768     autoplay_leveldir = getTreeInfoFromIdentifier(leveldir_first,
769                                                   global.autoplay_leveldir);
770
771     if (autoplay_leveldir == NULL)
772       Error(ERR_EXIT, "no such level identifier: '%s'",
773             global.autoplay_leveldir);
774
775     leveldir_current = autoplay_leveldir;
776
777     if (global.autoplay_level_nr != -1)
778     {
779       autoplay_leveldir->first_level = global.autoplay_level_nr;
780       autoplay_leveldir->last_level  = global.autoplay_level_nr;
781     }
782
783     autoplay_level_nr = autoplay_leveldir->first_level;
784
785     printf_line("=", 79);
786     printf("Automatically playing level tapes\n");
787     printf_line("-", 79);
788     printf("Level series identifier: '%s'\n", autoplay_leveldir->identifier);
789     printf("Level series name:       '%s'\n", autoplay_leveldir->name);
790     printf("Level series author:     '%s'\n", autoplay_leveldir->author);
791     printf("Number of levels:        %d\n",   autoplay_leveldir->levels);
792     printf_line("=", 79);
793     printf("\n");
794
795     for (i = 0; i < MAX_NUM_AUTOPLAY_LEVELS; i++)
796       levels_failed[i] = FALSE;
797
798     autoplay_initialized = TRUE;
799   }
800
801   while (autoplay_level_nr <= autoplay_leveldir->last_level)
802   {
803     level_nr = autoplay_level_nr++;
804
805     TapeErase();
806
807     printf("Level %03d: ", level_nr);
808
809     LoadLevel(level_nr);
810     if (level.no_valid_file)
811     {
812       printf("(no level)\n");
813       continue;
814     }
815
816     LoadSolutionTape(level_nr);
817 #if 1
818     if (tape.no_valid_file)
819 #else
820     if (TAPE_IS_EMPTY(tape))
821 #endif
822     {
823       printf("(no tape)\n");
824       continue;
825     }
826
827     printf("playing tape ... ");
828
829     TapeStartGamePlaying();
830     TapeStartIndexSearch();
831
832     return;
833   }
834
835   printf("\n");
836   printf_line("=", 79);
837   printf("Number of levels played: %d\n", num_levels_played);
838   printf("Number of levels solved: %d (%d%%)\n", num_levels_solved,
839          (num_levels_played ? num_levels_solved * 100 / num_levels_played :0));
840   printf_line("-", 79);
841   printf("Summary (for automatic parsing by scripts):\n");
842   printf("LEVELDIR '%s', SOLVED %d/%d (%d%%)",
843          autoplay_leveldir->identifier, num_levels_solved, num_levels_played,
844          (num_levels_played ? num_levels_solved * 100 / num_levels_played :0));
845   if (num_levels_played != num_levels_solved)
846   {
847     printf(", FAILED:");
848     for (i = 0; i < MAX_NUM_AUTOPLAY_LEVELS; i++)
849       if (levels_failed[i])
850         printf(" %03d", i);
851   }
852   printf("\n");
853   printf_line("=", 79);
854
855   CloseAllAndExit(0);
856 }
857
858
859 /* ---------- new tape button stuff ---------------------------------------- */
860
861 /* graphic position values for tape buttons */
862 #define TAPE_BUTTON_XSIZE       18
863 #define TAPE_BUTTON_YSIZE       18
864 #define TAPE_BUTTON_XPOS        5
865 #define TAPE_BUTTON_YPOS        77
866
867 #define TAPE_BUTTON_EJECT_XPOS  (TAPE_BUTTON_XPOS + 0 * TAPE_BUTTON_XSIZE)
868 #define TAPE_BUTTON_INDEX_XPOS  (TAPE_BUTTON_XPOS + 0 * TAPE_BUTTON_XSIZE)
869 #define TAPE_BUTTON_STOP_XPOS   (TAPE_BUTTON_XPOS + 1 * TAPE_BUTTON_XSIZE)
870 #define TAPE_BUTTON_PAUSE_XPOS  (TAPE_BUTTON_XPOS + 2 * TAPE_BUTTON_XSIZE)
871 #define TAPE_BUTTON_RECORD_XPOS (TAPE_BUTTON_XPOS + 3 * TAPE_BUTTON_XSIZE)
872 #define TAPE_BUTTON_PLAY_XPOS   (TAPE_BUTTON_XPOS + 4 * TAPE_BUTTON_XSIZE)
873
874 static struct
875 {
876   int x, y;
877   int gadget_id;
878   char *infotext;
879 } tapebutton_info[NUM_TAPE_BUTTONS] =
880 {
881   {
882     TAPE_BUTTON_EJECT_XPOS,     TAPE_BUTTON_YPOS,
883     TAPE_CTRL_ID_EJECT,
884     "eject tape"
885   },
886   {
887     TAPE_BUTTON_INDEX_XPOS,     TAPE_BUTTON_YPOS,
888     TAPE_CTRL_ID_INDEX,
889     "index mark"
890   },
891   {
892     TAPE_BUTTON_STOP_XPOS,      TAPE_BUTTON_YPOS,
893     TAPE_CTRL_ID_STOP,
894     "stop tape"
895   },
896   {
897     TAPE_BUTTON_PAUSE_XPOS,     TAPE_BUTTON_YPOS,
898     TAPE_CTRL_ID_PAUSE,
899     "pause tape"
900   },
901   {
902     TAPE_BUTTON_RECORD_XPOS,    TAPE_BUTTON_YPOS,
903     TAPE_CTRL_ID_RECORD,
904     "record tape"
905   },
906   {
907     TAPE_BUTTON_PLAY_XPOS,      TAPE_BUTTON_YPOS,
908     TAPE_CTRL_ID_PLAY,
909     "play tape"
910   }
911 };
912
913 void CreateTapeButtons()
914 {
915   int i;
916
917   for (i = 0; i < NUM_TAPE_BUTTONS; i++)
918   {
919     Bitmap *gd_bitmap = graphic_info[IMG_GLOBAL_DOOR].bitmap;
920     struct GadgetInfo *gi;
921     int gd_xoffset, gd_yoffset;
922     int gd_x1, gd_x2, gd_y;
923     int id = i;
924
925     gd_xoffset = tapebutton_info[i].x;
926     gd_yoffset = tapebutton_info[i].y;
927     gd_x1 = DOOR_GFX_PAGEX4 + gd_xoffset;
928     gd_x2 = DOOR_GFX_PAGEX3 + gd_xoffset;
929     gd_y  = DOOR_GFX_PAGEY2 + gd_yoffset;
930
931     if (i == TAPE_CTRL_ID_INDEX)
932     {
933       gd_x1 = DOOR_GFX_PAGEX6 + gd_xoffset;
934       gd_x2 = DOOR_GFX_PAGEX5 + gd_xoffset;
935     }
936
937     gi = CreateGadget(GDI_CUSTOM_ID, id,
938                       GDI_INFO_TEXT, tapebutton_info[i].infotext,
939                       GDI_X, VX + gd_xoffset,
940                       GDI_Y, VY + gd_yoffset,
941                       GDI_WIDTH, TAPE_BUTTON_XSIZE,
942                       GDI_HEIGHT, TAPE_BUTTON_YSIZE,
943                       GDI_TYPE, GD_TYPE_NORMAL_BUTTON,
944                       GDI_STATE, GD_BUTTON_UNPRESSED,
945                       GDI_DESIGN_UNPRESSED, gd_bitmap, gd_x1, gd_y,
946                       GDI_DESIGN_PRESSED, gd_bitmap, gd_x2, gd_y,
947                       GDI_EVENT_MASK, GD_EVENT_RELEASED,
948                       GDI_CALLBACK_ACTION, HandleTapeButtons,
949                       GDI_END);
950
951     if (gi == NULL)
952       Error(ERR_EXIT, "cannot create gadget");
953
954     tape_gadget[id] = gi;
955   }
956 }
957
958 void FreeTapeButtons()
959 {
960   int i;
961
962   for (i = 0; i < NUM_TAPE_BUTTONS; i++)
963     FreeGadget(tape_gadget[i]);
964 }
965
966 void MapTapeEjectButton()
967 {
968   UnmapGadget(tape_gadget[TAPE_CTRL_ID_INDEX]);
969   MapGadget(tape_gadget[TAPE_CTRL_ID_EJECT]);
970 }
971
972 void MapTapeIndexButton()
973 {
974   UnmapGadget(tape_gadget[TAPE_CTRL_ID_EJECT]);
975   MapGadget(tape_gadget[TAPE_CTRL_ID_INDEX]);
976 }
977
978 void MapTapeButtons()
979 {
980   int i;
981
982   for (i = 0; i < NUM_TAPE_BUTTONS; i++)
983     if (i != TAPE_CTRL_ID_INDEX)
984       MapGadget(tape_gadget[i]);
985
986   if (tape.recording || tape.playing)
987     MapTapeIndexButton();
988 }
989
990 void UnmapTapeButtons()
991 {
992   int i;
993
994   for (i = 0; i < NUM_TAPE_BUTTONS; i++)
995     UnmapGadget(tape_gadget[i]);
996 }
997
998 static void HandleTapeButtons(struct GadgetInfo *gi)
999 {
1000   int id = gi->custom_id;
1001
1002   if (game_status != GAME_MODE_MAIN && game_status != GAME_MODE_PLAYING)
1003     return;
1004
1005   switch (id)
1006   {
1007     case TAPE_CTRL_ID_EJECT:
1008       TapeStop();
1009       if (TAPE_IS_EMPTY(tape))
1010       {
1011         LoadTape(level_nr);
1012         if (TAPE_IS_EMPTY(tape))
1013           Request("No tape for this level !", REQ_CONFIRM);
1014       }
1015       else
1016       {
1017         if (tape.changed)
1018           SaveTape(tape.level_nr);
1019         TapeErase();
1020       }
1021       DrawCompleteVideoDisplay();
1022       break;
1023
1024     case TAPE_CTRL_ID_INDEX:
1025       if (tape.playing)
1026         TapeStartIndexSearch();
1027       else if (tape.recording)
1028         TapeSingleStep();
1029       break;
1030
1031     case TAPE_CTRL_ID_STOP:
1032       TapeStop();
1033       break;
1034
1035     case TAPE_CTRL_ID_PAUSE:
1036       TapeTogglePause(TAPE_TOGGLE_MANUAL);
1037       break;
1038
1039     case TAPE_CTRL_ID_RECORD:
1040       if (TAPE_IS_STOPPED(tape))
1041         TapeStartGameRecording();
1042       else if (tape.pausing)
1043       {
1044         if (tape.playing)       /* PLAYING -> PAUSING -> RECORDING */
1045           TapeAppendRecording();
1046         else
1047           TapeTogglePause(TAPE_TOGGLE_MANUAL);
1048       }
1049       break;
1050
1051     case TAPE_CTRL_ID_PLAY:
1052       if (TAPE_IS_EMPTY(tape))
1053         break;
1054
1055       if (TAPE_IS_STOPPED(tape))
1056       {
1057         TapeStartGamePlaying();
1058       }
1059       else if (tape.playing)
1060       {
1061         if (tape.pausing)                       /* PAUSE -> PLAY */
1062         {
1063           TapeTogglePause(TAPE_TOGGLE_MANUAL);
1064         }
1065         else if (!tape.fast_forward)            /* PLAY -> FAST FORWARD PLAY */
1066         {
1067           tape.fast_forward = TRUE;
1068           DrawVideoDisplay(VIDEO_STATE_FFWD_ON, 0);
1069         }
1070         else if (!tape.pause_before_death)      /* FFWD PLAY -> AUTO PAUSE */
1071         {
1072           tape.pause_before_death = TRUE;
1073           DrawVideoDisplay(VIDEO_STATE_PBEND_ON, VIDEO_DISPLAY_LABEL_ONLY);
1074         }
1075         else                                    /* AUTO PAUSE -> NORMAL PLAY */
1076         {
1077           tape.fast_forward = FALSE;
1078           tape.pause_before_death = FALSE;
1079           DrawVideoDisplay(VIDEO_STATE_FFWD_OFF | VIDEO_STATE_PBEND_OFF, 0);
1080         }
1081       }
1082       break;
1083
1084     default:
1085       break;
1086   }
1087 }