1 /*
2 THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
3 SOFTWARE CORPORATION ("PARALLAX"). PARALLAX, IN DISTRIBUTING THE CODE TO
4 END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
5 ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
6 IN USING, DISPLAYING, AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
7 SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
8 FREE PURPOSES. IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
9 CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES. THE END-USER UNDERSTANDS
10 AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
11 COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION. ALL RIGHTS RESERVED.
12 */
13
14 #ifdef HAVE_CONFIG_H
15 #include <conf.h>
16 #endif
17
18 #ifdef RCS
19 static char rcsid[] = "$Id: credits.c,v 1.6 2003/03/15 14:17:52 btb Exp $";
20 #endif
21
22 #ifdef WINDOWS
23 #include "desw.h"
24 #endif
25
26 #include <stdio.h>
27 #include <stdlib.h>
28 #include <string.h>
29 #include <stdarg.h>
30 #include <ctype.h>
31
32 #include "pa_enabl.h" //$$POLY_ACC
33 #include "error.h"
34 #include "pstypes.h"
35 #include "gr.h"
36 #include "mono.h"
37 #include "key.h"
38 #include "palette.h"
39 #include "game.h"
40 #include "gamepal.h"
41 #include "timer.h"
42
43 #include "newmenu.h"
44 #include "gamefont.h"
45 #ifdef NETWORK
46 #include "network.h"
47 #endif
48 #include "iff.h"
49 #include "pcx.h"
50 #include "u_mem.h"
51 #include "mouse.h"
52 #include "joy.h"
53 #include "screens.h"
54 #include "digi.h"
55
56 #include "cfile.h"
57 #include "compbit.h"
58 #include "songs.h"
59 #include "menu.h" // for MenuHires
60
61 #if defined(POLY_ACC)
62 #include "poly_acc.h"
63 #endif
64
65 #define ROW_SPACING (MenuHires?26:11)
66 #define NUM_LINES_HIRES 21
67 #define NUM_LINES (MenuHires?NUM_LINES_HIRES:20)
68
69 ubyte fade_values[200] = { 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,8,9,9,10,10,
70 11,11,12,12,12,13,13,14,14,15,15,15,16,16,17,17,17,18,18,19,19,19,20,20,
71 20,21,21,22,22,22,23,23,23,24,24,24,24,25,25,25,26,26,26,26,27,27,27,27,
72 28,28,28,28,28,29,29,29,29,29,29,30,30,30,30,30,30,30,30,30,31,31,31,31,
73 31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,30,30,30,30,30,
74 30,30,30,30,29,29,29,29,29,29,28,28,28,28,28,27,27,27,27,26,26,26,26,25,
75 25,25,24,24,24,24,23,23,23,22,22,22,21,21,20,20,20,19,19,19,18,18,17,17,
76 17,16,16,15,15,15,14,14,13,13,12,12,12,11,11,10,10,9,9,8,8,8,7,7,6,6,5,
77 5,4,4,3,3,2,2,1 };
78
79 ubyte fade_values_hires[480] = { 1,1,1,2,2,2,2,2,3,3,3,3,3,4,4,4,4,4,5,5,5,
80 5,5,5,6,6,6,6,6,7,7,7,7,7,8,8,8,8,8,9,9,9,9,9,10,10,10,10,10,10,11,11,11,11,11,12,12,12,12,12,12,
81 13,13,13,13,13,14,14,14,14,14,14,15,15,15,15,15,15,16,16,16,16,16,17,17,17,17,17,17,18,18,
82 18,18,18,18,18,19,19,19,19,19,19,20,20,20,20,20,20,20,21,21,21,21,21,21,22,22,22,22,22,22,
83 22,22,23,23,23,23,23,23,23,24,24,24,24,24,24,24,24,25,25,25,25,25,25,25,25,25,26,26,26,26,
84 26,26,26,26,26,27,27,27,27,27,27,27,27,27,27,28,28,28,28,28,28,28,28,28,28,28,28,29,29,29,
85 29,29,29,29,29,29,29,29,29,29,29,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,
86 30,30,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,
87 31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,30,30,30,
88 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,29,29,29,29,29,29,29,29,29,29,29,29,
89 29,29,28,28,28,28,28,28,28,28,28,28,28,28,27,27,27,27,27,27,27,27,27,27,26,26,26,26,26,26,
90 26,26,26,25,25,25,25,25,25,25,25,25,24,24,24,24,24,24,24,24,23,23,23,23,23,23,23,22,22,22,
91 22,22,22,22,22,21,21,21,21,21,21,20,20,20,20,20,20,20,19,19,19,19,19,19,18,18,18,18,18,18,
92 18,17,17,17,17,17,17,16,16,16,16,16,15,15,15,15,15,15,14,14,14,14,14,14,13,13,13,13,13,12,
93 12,12,12,12,12,11,11,11,11,11,10,10,10,10,10,10,9,9,9,9,9,8,8,8,8,8,7,7,7,7,7,6,6,6,6,6,5,5,5,5,
94 5,5,4,4,4,4,4,3,3,3,3,3,2,2,2,2,2,1,1};
95
96 extern ubyte *gr_bitblt_fade_table;
97 extern void gr_bm_bitblt(int w, int h, int dx, int dy, int sx, int sy, grs_bitmap * src, grs_bitmap * dest);
98
99 grs_font * header_font;
100 grs_font * title_font;
101 grs_font * names_font;
102
103 #ifdef SHAREWARE
104 #define ALLOWED_CHAR 'S'
105 #else
106 #define ALLOWED_CHAR 'R'
107 #endif
108
109 #ifdef RELEASE
110 #define CREDITS_BACKGROUND_FILENAME (MenuHires?"\x01starsb.pcx":"\x01stars.pcx") //only read from hog file
111 #else
112 #define CREDITS_BACKGROUND_FILENAME (MenuHires?"starsb.pcx":"stars.pcx")
113 #endif
114
115 typedef struct box {
116 int left, top, width, height;
117 } box;
118
119 #define CREDITS_FILE (cfexist("mcredits.tex")?"mcredits.tex":cfexist("ocredits.tex")?"ocredits.tex":"credits.tex")
120
121 //if filename passed is NULL, show normal credits
credits_show(char * credits_filename)122 void credits_show(char *credits_filename)
123 {
124 int i, j, l, done;
125 CFILE * file;
126 char buffer[NUM_LINES_HIRES][80];
127 grs_bitmap backdrop;
128 ubyte backdrop_palette[768];
129 int pcx_error;
130 int buffer_line = 0;
131 fix last_time;
132 // fix time_delay = 4180; // ~ F1_0 / 12.9
133 // fix time_delay = 1784;
134 fix time_delay = 2800;
135 int first_line_offset,extra_inc=0;
136 int have_bin_file = 0;
137 char * tempp;
138 char filename[32];
139
140 WIN(int credinit = 0;)
141
142 box dirty_box[NUM_LINES_HIRES];
143 grs_canvas *CreditsOffscreenBuf=NULL;
144
145 WINDOS(
146 dd_grs_canvas *save_canv,
147 grs_canvas *save_canv
148 );
149
150 WINDOS(
151 save_canv = dd_grd_curcanv,
152 save_canv = grd_curcanv
153 );
154
155 // Clear out all tex buffer lines.
156 for (i=0; i<NUM_LINES; i++ )
157 {
158 buffer[i][0] = 0;
159 dirty_box[i].left = dirty_box[i].top = dirty_box[i].width = dirty_box[i].height = 0;
160 }
161
162
163 sprintf(filename, "%s", CREDITS_FILE);
164 have_bin_file = 0;
165 if (credits_filename) {
166 strcpy(filename,credits_filename);
167 have_bin_file = 1;
168 }
169 file = cfopen( filename, "rb" );
170 if (file == NULL) {
171 char nfile[32];
172
173 if (credits_filename)
174 return; //ok to not find special filename
175
176 tempp = strchr(filename, '.');
177 *tempp = '\0';
178 sprintf(nfile, "%s.txb", filename);
179 file = cfopen(nfile, "rb");
180 if (file == NULL)
181 Error("Missing CREDITS.TEX and CREDITS.TXB file\n");
182 have_bin_file = 1;
183 }
184
185 set_screen_mode(SCREEN_MENU);
186
187 WIN(DEFINE_SCREEN(NULL));
188
189 #ifdef WINDOWS
190 CreditsPaint:
191 #endif
192 gr_use_palette_table( "credits.256" );
193 #ifdef OGL
194 gr_palette_load(gr_palette);
195 #endif
196 #if defined(POLY_ACC)
197 pa_update_clut(gr_palette, 0, 256, 0);
198 #endif
199 header_font = gr_init_font( MenuHires?"font1-1h.fnt":"font1-1.fnt" );
200 title_font = gr_init_font( MenuHires?"font2-3h.fnt":"font2-3.fnt" );
201 names_font = gr_init_font( MenuHires?"font2-2h.fnt":"font2-2.fnt" );
202 backdrop.bm_data=NULL;
203
204 //MWA Made backdrop bitmap linear since it should always be. the current canvas may not
205 //MWA be linear, so we can't rely on grd_curcanv->cv_bitmap->bm_type.
206
207 pcx_error = pcx_read_bitmap(CREDITS_BACKGROUND_FILENAME,&backdrop, BM_LINEAR,backdrop_palette);
208 if (pcx_error != PCX_ERROR_NONE) {
209 cfclose(file);
210 return;
211 }
212
213 songs_play_song( SONG_CREDITS, 1 );
214
215 gr_remap_bitmap_good( &backdrop,backdrop_palette, -1, -1 );
216
217 WINDOS(
218 dd_gr_set_current_canvas(NULL),
219 gr_set_current_canvas(NULL)
220 );
221 WIN(DDGRLOCK(dd_grd_curcanv));
222 gr_bitmap(0,0,&backdrop);
223 WIN(DDGRUNLOCK(dd_grd_curcanv));
224 gr_update();
225 gr_palette_fade_in( gr_palette, 32, 0 );
226
227 // Create a new offscreen buffer for the credits screen
228 //MWA Let's be a little smarter about this and check the VR_offscreen buffer
229 //MWA for size to determine if we can use that buffer. If the game size
230 //MWA matches what we need, then lets save memory.
231
232 #ifndef PA_3DFX_VOODOO
233 #ifndef WINDOWS
234 if (MenuHires && VR_offscreen_buffer->cv_w == 640) {
235 CreditsOffscreenBuf = VR_offscreen_buffer;
236 }
237 else if (MenuHires) {
238 CreditsOffscreenBuf = gr_create_canvas(640,480);
239 }
240 else {
241 CreditsOffscreenBuf = gr_create_canvas(320,200);
242 }
243 #else
244 CreditsOffscreenBuf = gr_create_canvas(640,480);
245 #endif
246 #else
247 CreditsOffscreenBuf = gr_create_canvas(640,480);
248 #endif
249
250 if (!CreditsOffscreenBuf)
251 Error("Not enough memory to allocate Credits Buffer.");
252
253 //gr_clear_canvas(BM_XRGB(0,0,0));
254 key_flush();
255
256 #ifdef WINDOWS
257 if (!credinit)
258 #endif
259 {
260 last_time = timer_get_fixed_seconds();
261 done = 0;
262 first_line_offset = 0;
263 }
264
265 WIN(credinit = 1);
266
267 while( 1 ) {
268 int k;
269
270 do {
271 buffer_line = (buffer_line+1) % NUM_LINES;
272 get_line:;
273 if (cfgets( buffer[buffer_line], 80, file )) {
274 char *p;
275 if (have_bin_file) { // is this a binary tbl file
276 for (i = 0; i < strlen(buffer[buffer_line]) - 1; i++) {
277 encode_rotate_left(&(buffer[buffer_line][i]));
278 buffer[buffer_line][i] ^= BITMAP_TBL_XOR;
279 encode_rotate_left(&(buffer[buffer_line][i]));
280 }
281 }
282 p = buffer[buffer_line];
283 if (p[0] == ';')
284 goto get_line;
285
286 if (p[0] == '%')
287 {
288 if (p[1] == ALLOWED_CHAR)
289 strcpy(p,p+2);
290 else
291 goto get_line;
292 }
293
294 p = strchr(&buffer[buffer_line][0],'\n');
295 if (p) *p = '\0';
296 } else {
297 //fseek( file, 0, SEEK_SET);
298 buffer[buffer_line][0] = 0;
299 done++;
300 }
301 } while (extra_inc--);
302 extra_inc = 0;
303
304 NO_DFX (for (i=0; i<ROW_SPACING; i += (MenuHires?2:1) ) {)
305 PA_DFX (for (i=0; i<ROW_SPACING; i += (MenuHires?2:1) ) {)
306 int y;
307
308 y = first_line_offset - i;
309
310 gr_set_current_canvas(CreditsOffscreenBuf);
311
312 gr_bitmap(0,0,&backdrop);
313
314 for (j=0; j<NUM_LINES; j++ ) {
315 char *s;
316
317 l = (buffer_line + j + 1 ) % NUM_LINES;
318 s = buffer[l];
319
320 if ( s[0] == '!' ) {
321 s++;
322 } else if ( s[0] == '$' ) {
323 grd_curcanv->cv_font = header_font;
324 s++;
325 } else if ( s[0] == '*' ) {
326 grd_curcanv->cv_font = title_font;
327 s++;
328 } else
329 grd_curcanv->cv_font = names_font;
330
331 gr_bitblt_fade_table = (MenuHires?fade_values_hires:fade_values);
332
333 tempp = strchr( s, '\t' );
334 if ( tempp ) {
335 // Wacky Credits thing
336 int w, h, aw, w2, x1, x2;
337
338 *tempp = 0;
339 gr_get_string_size( s, &w, &h, &aw );
340 x1 = ((MenuHires?320:160)-w)/2;
341 gr_printf( x1 , y, s );
342 gr_get_string_size( &tempp[1], &w2, &h, &aw );
343 x2 = (MenuHires?320:160)+(((MenuHires?320:160)-w2)/2);
344 gr_printf( x2, y, &tempp[1] );
345
346 dirty_box[j].left = ((MenuHires?320:160)-w)/2;
347 dirty_box[j].top = y;
348 dirty_box[j].width =(x2+w2)-x1;
349 dirty_box[j].height = h;
350
351 *tempp = '\t';
352
353 } else {
354 // Wacky Fast Credits thing
355 int w, h, aw;
356
357 gr_get_string_size( s, &w, &h, &aw);
358 dirty_box[j].width = w;
359 dirty_box[j].height = h;
360 dirty_box[j].top = y;
361 dirty_box[j].left = ((MenuHires?640:320) - w) / 2;
362
363 gr_printf( 0x8000, y, s );
364 }
365 gr_bitblt_fade_table = NULL;
366 if (buffer[l][0] == '!')
367 y += ROW_SPACING/2;
368 else
369 y += ROW_SPACING;
370 }
371
372 { // Wacky Fast Credits Thing
373 box *new_box;
374 grs_bitmap *tempbmp;
375
376 for (j=0; j<NUM_LINES; j++ )
377 {
378 new_box = &dirty_box[j];
379
380 tempbmp = &(CreditsOffscreenBuf->cv_bitmap);
381
382 WIN(DDGRSCREENLOCK);
383 #if defined(POLY_ACC)
384 if(new_box->width != 0)
385 #endif
386 gr_bm_bitblt( new_box->width + 1, new_box->height +4,
387 new_box->left, new_box->top, new_box->left, new_box->top,
388 tempbmp, &(grd_curscreen->sc_canvas.cv_bitmap) );
389 WIN(DDGRSCREENUNLOCK);
390 }
391
392 #if defined(POLY_ACC)
393 pa_flush();
394 #endif
395
396 #if !defined(POLY_ACC) || defined(MACINTOSH)
397 MAC( if(!PAEnabled) ) // POLY_ACC always on for the macintosh
398 for (j=0; j<NUM_LINES; j++ )
399 {
400 new_box = &dirty_box[j];
401
402 tempbmp = &(CreditsOffscreenBuf->cv_bitmap);
403
404 gr_bm_bitblt( new_box->width
405 ,new_box->height+2
406 ,new_box->left
407 ,new_box->top
408 ,new_box->left
409 ,new_box->top
410 ,&backdrop
411 ,tempbmp );
412 }
413
414 #endif
415 gr_update();
416
417 }
418
419 // Wacky Fast Credits thing doesn't need this (it's done above)
420 //@@ WINDOS(
421 //@@ dd_gr_blt_notrans(CreditsOffscreenBuf, 0,0,0,0, dd_grd_screencanv, 0,0,0,0),
422 //@@ gr_bm_ubitblt(grd_curcanv->cv_w, grd_curcanv->cv_h, 0, 0, 0, 0, &(CreditsOffscreenBuf->cv_bitmap), &(grd_curscreen->sc_canvas.cv_bitmap) );
423 //@@ );
424
425 // mprintf( ( 0, "Fr = %d", (timer_get_fixed_seconds() - last_time) ));
426 while( timer_get_fixed_seconds() < last_time+time_delay );
427 last_time = timer_get_fixed_seconds();
428
429 #ifdef WINDOWS
430 {
431 MSG msg;
432
433 DoMessageStuff(&msg);
434
435 if (_RedrawScreen) {
436 _RedrawScreen = FALSE;
437
438 gr_close_font(header_font);
439 gr_close_font(title_font);
440 gr_close_font(names_font);
441
442 d_free(backdrop.bm_data);
443 gr_free_canvas(CreditsOffscreenBuf);
444
445 goto CreditsPaint;
446 }
447
448 DDGRRESTORE;
449 }
450 #endif
451
452 //see if redbook song needs to be restarted
453 songs_check_redbook_repeat();
454
455 k = key_inkey();
456
457 #ifndef NDEBUG
458 if (k == KEY_BACKSP) {
459 Int3();
460 k=0;
461 }
462 #endif
463
464 // {
465 // fix ot = time_delay;
466 // time_delay += (keyd_pressed[KEY_X] - keyd_pressed[KEY_Z])*100;
467 // if (ot!=time_delay) {
468 // mprintf( (0, "[%x] ", time_delay ));
469 // }
470 // }
471
472 if (k == KEY_PRINT_SCREEN) {
473 save_screen_shot(0);
474 k = 0;
475 }
476
477 if ((k>0)||(done>NUM_LINES)) {
478 gr_close_font(header_font);
479 gr_close_font(title_font);
480 gr_close_font(names_font);
481 gr_palette_fade_out( gr_palette, 32, 0 );
482 gr_use_palette_table( DEFAULT_PALETTE );
483 d_free(backdrop.bm_data);
484 cfclose(file);
485 WINDOS(
486 dd_gr_set_current_canvas(save_canv),
487 gr_set_current_canvas(save_canv)
488 );
489 songs_play_song( SONG_TITLE, 1 );
490
491 #ifdef WINDOWS
492 gr_free_canvas(CreditsOffscreenBuf);
493 #else
494 if (CreditsOffscreenBuf != VR_offscreen_buffer)
495 gr_free_canvas(CreditsOffscreenBuf);
496 #endif
497
498 WIN(DEFINE_SCREEN(Menu_pcx_name));
499
500 return;
501 }
502 }
503
504 if (buffer[(buffer_line + 1 ) % NUM_LINES][0] == '!') {
505 first_line_offset -= ROW_SPACING-ROW_SPACING/2;
506 if (first_line_offset <= -ROW_SPACING) {
507 first_line_offset += ROW_SPACING;
508 extra_inc++;
509 }
510 }
511 }
512
513 }
514