// formerly exitmodel_bm_load_sub
static bitmap_index read_extra_bitmap_iff(const char * filename )
{
bitmap_index bitmap_num;
grs_bitmap * n = &GameBitmaps[extra_bitmap_num];
palette_array_t newpal;
int iff_error; //reference parm to avoid warning message
bitmap_num.index = 0;
//MALLOC( new, grs_bitmap, 1 );
iff_error = iff_read_bitmap(filename,n,BM_LINEAR,&newpal);
n->bm_handle=0;
if (iff_error != IFF_NO_ERROR) {
con_printf(CON_DEBUG, "Error loading exit model bitmap <%s> - IFF error: %s\n", filename, iff_errormsg(iff_error));
return bitmap_num;
}
if ( iff_has_transparency )
gr_remap_bitmap_good( n, newpal, iff_transparent_color, 254 );
else
gr_remap_bitmap_good( n, newpal, -1, 254 );
n->avg_color = 0; //compute_average_pixel(new);
bitmap_num.index = extra_bitmap_num;
GameBitmaps[extra_bitmap_num++] = *n;
//d_free( n );
return bitmap_num;
}
static void credits_show_common(RAIIPHYSFS_File file, const int have_bin_file)
{
palette_array_t backdrop_palette;
auto cr = make_unique<credits>();
*cr = {};
cr->file = std::move(file);
cr->have_bin_file = have_bin_file;
set_screen_mode(SCREEN_MENU);
#if defined(DXX_BUILD_DESCENT_II)
gr_use_palette_table( "credits.256" );
#endif
cr->backdrop.bm_data=NULL;
const auto pcx_error = pcx_read_bitmap(STARS_BACKGROUND, cr->backdrop,backdrop_palette);
if (pcx_error != PCX_ERROR_NONE) {
return;
}
songs_play_song( SONG_CREDITS, 1 );
gr_remap_bitmap_good(cr->backdrop,backdrop_palette, -1, -1);
gr_set_current_canvas(NULL);
show_fullscr(cr->backdrop);
gr_palette_load( gr_palette );
key_flush();
credits *pcr = cr.get();
const auto wind = window_create(grd_curscreen->sc_canvas, 0, 0, SWIDTH, SHEIGHT, credits_handler, cr.release());
if (!wind)
{
d_event event = { EVENT_WINDOW_CLOSE };
credits_handler(NULL, event, pcr);
return;
}
event_process_all();
}
//called for each level to load & setup the exit sequence
load_endlevel_data(int level_num)
{
char filename[13];
char line[LINE_LEN],*p;
CFILE *ifile;
int var,segnum,sidenum;
int exit_side, i;
int have_binary = 0;
endlevel_data_loaded = 0; //not loaded yet
try_again:
;
if (level_num<0) //secret level
strcpy(filename,Secret_level_names[-level_num-1]);
else //normal level
strcpy(filename,Level_names[level_num-1]);
if (!convert_ext(filename,"END"))
return;
ifile = cfopen(filename,"rb");
if (!ifile) {
convert_ext(filename,"TXB");
ifile = cfopen(filename,"rb");
if (!ifile)
if (level_num==1) {
return; //abort
//Error("Cannot load file text of binary version of <%s>",filename);
}
else {
level_num = 1;
goto try_again;
}
have_binary = 1;
}
//ok...this parser is pretty simple. It ignores comments, but
//everything else must be in the right place
var = 0;
while (cfgets(line,LINE_LEN,ifile)) {
if (have_binary) {
for (i = 0; i < strlen(line) - 1; i++) {
encode_rotate_left(&(line[i]));
line[i] = line[i] ^ BITMAP_TBL_XOR;
encode_rotate_left(&(line[i]));
}
p = line;
}
if ((p=strchr(line,';'))!=NULL)
*p = 0; //cut off comment
for (p=line+strlen(line)-1;p>line && isspace(*p);*p--=0);
for (p=line;isspace(*p);p++);
if (!*p) //empty line
continue;
switch (var) {
case 0: { //ground terrain
int iff_error;
ubyte pal[768];
if (terrain_bm_instance.bm_data)
free(terrain_bm_instance.bm_data);
iff_error = iff_read_bitmap(p,&terrain_bm_instance,BM_LINEAR,pal);
if (iff_error != IFF_NO_ERROR) {
mprintf((1, "File %s - IFF error: %s",p,iff_errormsg(iff_error)));
Error("File %s - IFF error: %s",p,iff_errormsg(iff_error));
}
terrain_bitmap = &terrain_bm_instance;
gr_remap_bitmap_good( terrain_bitmap, pal, iff_transparent_color, -1);
break;
}
case 1: //height map
load_terrain(p);
break;
case 2:
sscanf(p,"%d,%d",&exit_point_bmx,&exit_point_bmy);
break;
case 3: //exit heading
exit_angles.h = i2f(atoi(p))/360;
break;
case 4: { //planet bitmap
int iff_error;
ubyte pal[768];
if (satellite_bm_instance.bm_data)
free(satellite_bm_instance.bm_data);
iff_error = iff_read_bitmap(p,&satellite_bm_instance,BM_LINEAR,pal);
if (iff_error != IFF_NO_ERROR) {
mprintf((1, "File %s - IFF error: %s",p,iff_errormsg(iff_error)));
Error("File %s - IFF error: %s",p,iff_errormsg(iff_error));
}
satellite_bitmap = &satellite_bm_instance;
gr_remap_bitmap_good( satellite_bitmap, pal, iff_transparent_color, -1);
break;
}
case 5: //earth pos
case 7: { //station pos
vms_matrix tm;
vms_angvec ta;
int pitch,head;
sscanf(p,"%d,%d",&head,&pitch);
ta.h = i2f(head)/360;
ta.p = -i2f(pitch)/360;
ta.b = 0;
vm_angles_2_matrix(&tm,&ta);
if (var==5)
satellite_pos = tm.fvec;
//vm_vec_copy_scale(&satellite_pos,&tm.fvec,SATELLITE_DIST);
else
station_pos = tm.fvec;
break;
}
case 6: //planet size
satellite_size = i2f(atoi(p));
break;
}
var++;
}
Assert(var == NUM_VARS);
// OK, now the data is loaded. Initialize everything
//find the exit sequence by searching all segments for a side with
//children == -2
for (segnum=0,exit_segnum=-1;exit_segnum==-1 && segnum<=Highest_segment_index;segnum++)
for (sidenum=0;sidenum<6;sidenum++)
if (Segments[segnum].children[sidenum] == -2) {
exit_segnum = segnum;
exit_side = sidenum;
break;
}
Assert(exit_segnum!=-1);
compute_segment_center(&mine_exit_point,&Segments[exit_segnum]);
extract_orient_from_segment(&mine_exit_orient,&Segments[exit_segnum]);
compute_center_point_on_side(&mine_side_exit_point,&Segments[exit_segnum],exit_side);
vm_vec_scale_add(&mine_ground_exit_point,&mine_exit_point,&mine_exit_orient.uvec,-i2f(20));
//compute orientation of surface
{
vms_vector tv;
vms_matrix exit_orient,tm;
vm_angles_2_matrix(&exit_orient,&exit_angles);
vm_transpose_matrix(&exit_orient);
vm_matrix_x_matrix(&surface_orient,&mine_exit_orient,&exit_orient);
vm_copy_transpose_matrix(&tm,&surface_orient);
vm_vec_rotate(&tv,&station_pos,&tm);
vm_vec_scale_add(&station_pos,&mine_exit_point,&tv,STATION_DIST);
vm_vec_rotate(&tv,&satellite_pos,&tm);
vm_vec_scale_add(&satellite_pos,&mine_exit_point,&tv,SATELLITE_DIST);
vm_vector_2_matrix(&tm,&tv,&surface_orient.uvec,NULL);
vm_vec_copy_scale(&satellite_upvec,&tm.uvec,SATELLITE_HEIGHT);
}
cfclose(ifile);
endlevel_data_loaded = 1;
}
//load a palette by name. returns 1 if new palette loaded, else 0
//if used_for_level is set, load pig, etc.
//if no_change_screen is set, the current screen does not get remapped,
//and the hardware palette does not get changed
int load_palette(char *name,int used_for_level,int no_change_screen)
{
char pigname[FILENAME_LEN];
ubyte old_pal[256*3];
//special hack to tell that palette system about a pig that's been loaded elsewhere
if (used_for_level == -2) {
strncpy(last_palette_loaded_pig,name,sizeof(last_palette_loaded_pig));
return 1;
}
if (name==NULL)
name = last_palette_loaded_pig;
if (used_for_level && stricmp(last_palette_loaded_pig,name) != 0) {
_splitpath(name,NULL,NULL,pigname,NULL);
strcat(pigname,".pig");
//if not editor, load pig first so small install message can come
//up in old palette. If editor version, we must load the pig after
//the palette is loaded so we can remap new textures.
#ifndef EDITOR
piggy_new_pigfile(pigname);
#endif
}
if (stricmp(last_palette_loaded,name) != 0) {
memcpy(old_pal,gr_palette,sizeof(old_pal));
strncpy(last_palette_loaded,name,sizeof(last_palette_loaded));
gr_use_palette_table(name);
if (Function_mode == FMODE_GAME && !no_change_screen)
gr_remap_bitmap_good( &grd_curscreen->sc_canvas.cv_bitmap, old_pal, -1, -1 );
#if defined(POLY_ACC)
if (bg.bmp && bg.bmp->bm_type == BM_LINEAR)
#else
if (bg.bmp)
#endif
gr_remap_bitmap_good( bg.bmp, old_pal, -1, -1 );
if (!gr_palette_faded_out && !no_change_screen)
gr_palette_load(gr_palette);
remap_fonts_and_menus(0);
Color_0_31_0 = -1; //for gauges
HUD_color = -1;
load_background_bitmap();
g3_remap_interp_colors();
}
if (used_for_level && stricmp(last_palette_loaded_pig,name) != 0) {
strncpy(last_palette_loaded_pig,name,sizeof(last_palette_loaded_pig));
#ifdef EDITOR
piggy_new_pigfile(pigname);
#endif
texmerge_flush();
rle_cache_flush();
}
return 1;
}
void do_automap( int key_code )
{
int pcx_error;
ubyte pal[256*3];
window *automap_wind = NULL;
automap *am;
CALLOC(am, automap, 1);
if (am)
{
automap_wind = window_create(&grd_curscreen->sc_canvas, 0, 0, SWIDTH, SHEIGHT, (int (*)(window *, d_event *, void *)) automap_handler, am);
}
if (automap_wind == NULL)
{
Warning("Out of memory");
return;
}
am->leave_mode = 0;
am->pause_game = 1; // Set to 1 if everything is paused during automap...No pause during net.
am->max_segments_away = 0;
am->segment_limit = 1;
am->num_edges = 0;
am->highest_edge_index = -1;
am->max_edges = Num_segments*12;
MALLOC(am->edges, Edge_info, am->max_edges);
MALLOC(am->drawingListBright, int, am->max_edges);
if (!am->edges || !am->drawingListBright)
{
if (am->edges)
d_free(am->edges);
if (am->drawingListBright)
d_free(am->drawingListBright);
Warning("Out of memory");
return;
}
am->zoom = 0x9000;
am->farthest_dist = (F1_0 * 20 * 50); // 50 segments away
am->viewDist = 0;
init_automap_colors(am);
key_code = key_code; // disable warning...
if ((Game_mode & GM_MULTI) && (!Endlevel_sequence))
am->pause_game = 0;
if (am->pause_game) {
window_set_visible(Game_wind, 0);
}
if (!am->pause_game) {
am->old_wiggle = ConsoleObject->mtype.phys_info.flags & PF_WIGGLE; // Save old wiggle
ConsoleObject->mtype.phys_info.flags &= ~PF_WIGGLE; // Turn off wiggle
}
//Max_edges = min(MAX_EDGES_FROM_VERTS(Num_vertices),MAX_EDGES); //make maybe smaller than max
gr_set_current_canvas(NULL);
automap_build_edge_list(am);
if ( am->viewDist==0 )
am->viewDist = ZOOM_DEFAULT;
am->viewMatrix = Objects[Players[Player_num].objnum].orient;
am->tangles.p = PITCH_DEFAULT;
am->tangles.h = 0;
am->tangles.b = 0;
am->view_target = Objects[Players[Player_num].objnum].pos;
if (PlayerCfg.AutomapFreeFlight)
vm_vec_scale_add(&am->view_position, &Objects[Players[Player_num].objnum].pos, &am->viewMatrix.fvec, -ZOOM_DEFAULT );
am->t1 = am->entry_time = timer_query();
am->t2 = am->t1;
//Fill in Automap_visited from Objects[Players[Player_num].objnum].segnum
am->max_segments_away = set_segment_depths(Objects[Players[Player_num].objnum].segnum, Automap_visited);
am->segment_limit = am->max_segments_away;
adjust_segment_limit(am, am->segment_limit);
// ZICO - code from above to show frame in OGL correctly. Redundant, but better readable.
// KREATOR - Now applies to all platforms so double buffering is supported
gr_init_bitmap_data (&am->automap_background);
pcx_error = pcx_read_bitmap(MAP_BACKGROUND_FILENAME, &am->automap_background, BM_LINEAR, pal);
if (pcx_error != PCX_ERROR_NONE)
Error("File %s - PCX error: %s", MAP_BACKGROUND_FILENAME, pcx_errormsg(pcx_error));
gr_remap_bitmap_good(&am->automap_background, pal, -1, -1);
gr_init_sub_canvas(&am->automap_view, &grd_curscreen->sc_canvas, (SWIDTH/23), (SHEIGHT/6), (SWIDTH/1.1), (SHEIGHT/1.45));
gr_palette_load( gr_palette );
Automap_active = 1;
}
// Process a character for the briefing,
// including special characters preceded by a '$'.
// Return 1 when page is finished, 0 otherwise
static int briefing_process_char(grs_canvas &canvas, briefing *const br)
{
auto &game_font = *GAME_FONT;
char ch = *br->message++;
if (ch == '$') {
ch = *br->message++;
#if defined(DXX_BUILD_DESCENT_II)
if (ch=='D') {
br->cur_screen = DefineBriefingBox(canvas.cv_bitmap, br->message);
br->screen.reset(&Briefing_screens[br->cur_screen]);
init_char_pos(br, br->screen->text_ulx, br->screen->text_uly);
br->line_adjustment=0;
br->prev_ch = 10; // read to eoln
} else if (ch=='U') {
br->cur_screen = get_message_num(br->message);
br->screen.reset(&Briefing_screens[br->cur_screen]);
init_char_pos(br, br->screen->text_ulx, br->screen->text_uly);
br->prev_ch = 10; // read to eoln
} else
#endif
if (ch == 'C') {
auto cc = get_message_num(br->message) - 1;
if (cc < 0)
cc = 0;
else if (cc > Briefing_text_colors.size() - 1)
cc = Briefing_text_colors.size() - 1;
Current_color = &Briefing_text_colors[cc];
br->prev_ch = 10;
} else if (ch == 'F') { // toggle flashing cursor
br->flashing_cursor = !br->flashing_cursor;
br->prev_ch = 10;
while (*br->message++ != 10)
;
} else if (ch == 'T') {
br->tab_stop = get_message_num(br->message);
br->prev_ch = 10; // read to eoln
} else if (ch == 'R') {
br->robot_canv.reset();
#if defined(DXX_BUILD_DESCENT_II)
if (br->robot_playing) {
DeInitRobotMovie(br->pMovie);
br->robot_playing=0;
}
#endif
if (EMULATING_D1) {
init_spinning_robot(canvas, *br);
br->robot_num = get_message_num(br->message);
#if defined(DXX_BUILD_DESCENT_II)
while (*br->message++ != 10)
;
#endif
} else {
#if defined(DXX_BUILD_DESCENT_II)
char spinRobotName[]="RBA.MVE", kludge; // matt don't change this!
kludge=*br->message++;
spinRobotName[2]=kludge; // ugly but proud
br->robot_playing=InitRobotMovie(spinRobotName, br->pMovie);
// gr_remap_bitmap_good( &grd_curcanv->cv_bitmap, pal, -1, -1 );
if (br->robot_playing) {
RotateRobot(br->pMovie);
set_briefing_fontcolor(*br);
}
#endif
}
br->prev_ch = 10; // read to eoln
}
else if ((ch == 'N' && (br->animating_bitmap_type = 0, true)) ||
(ch == 'O' && (br->animating_bitmap_type = 1, true)))
{
br->robot_canv.reset();
br->prev_ch = 10;
get_message_name(br->message, br->bitmap_name, "#0");
} else if (ch=='A') {
#if defined(DXX_BUILD_DESCENT_II)
br->line_adjustment=1-br->line_adjustment;
#endif
} else if (ch=='Z') {
#if defined(DXX_BUILD_DESCENT_II)
char fname[15];
int i;
br->got_z=1;
br->dumb_adjust=1;
i=0;
while ((fname[i]=*br->message) != '\n') {
i++;
br->message++;
}
fname[i]=0;
if (*br->message != 10)
while (*br->message++ != 10) // Get and drop eoln
;
{
char fname2[15];
i=0;
while (fname[i]!='.') {
fname2[i] = fname[i];
i++;
}
fname2[i++]='b';
fname2[i++]='.';
fname2[i++]='p';
fname2[i++]='c';
fname2[i++]='x';
fname2[i++]=0;
if ((HIRESMODE && PHYSFSX_exists(fname2,1)) || !PHYSFSX_exists(fname,1))
strcpy(fname,fname2);
load_briefing_screen(*grd_curcanv, br, fname);
}
#endif
} else if (ch == 'B') {
array<char, 32> bitmap_name;
palette_array_t temp_palette;
int iff_error;
br->robot_canv.reset();
get_message_name(br->message, bitmap_name, ".bbm");
br->guy_bitmap.reset();
iff_error = iff_read_bitmap(&bitmap_name[0], br->guy_bitmap, &temp_palette);
#if defined(DXX_BUILD_DESCENT_II)
gr_remap_bitmap_good( br->guy_bitmap, temp_palette, -1, -1 );
#endif
Assert(iff_error == IFF_NO_ERROR);
(void)iff_error;
br->prev_ch = 10;
} else if (ch == 'S') {
#if defined(DXX_BUILD_DESCENT_II)
br->chattering = 0;
br->printing_channel.reset();
#endif
br->new_screen = 1;
return 1;
} else if (ch == 'P') { // New page.
#if defined(DXX_BUILD_DESCENT_II)
if (!br->got_z) {
Int3(); // Hey ryan!!!! You gotta load a screen before you start
// printing to it! You know, $Z !!!
load_briefing_screen(*grd_curcanv, br, HIRESMODE ? "end01b.pcx" : "end01.pcx");
}
br->chattering = 0;
br->printing_channel.reset();
#endif
br->new_page = 1;
while (*br->message != 10) {
br->message++; // drop carriage return after special escape sequence
}
br->message++;
br->prev_ch = 10;
return 1;
}
#if defined(DXX_BUILD_DESCENT_II)
else if (ch == ':') {
br->prev_ch = 10;
auto p = br->message;
/* Legacy clients do not understand $: and will instead show
* the remainder of the line. However, if the next two
* characters after $: are $F, legacy clients will treat
* the $F as above, toggle the flashing_cursor flag, then
* discard the rest of the line. This special case allows
* briefing authors to hide the directive from legacy
* clients, but get the same state of flashing_cursor for
* both legacy and aware clients. Briefing authors will
* likely need an additional $F nearby to balance this
* toggle, but no additional code here is needed to support
* that.
*
* The trailing colon is cosmetic, so that the compatibility
* $F is not directly adjacent to the directive.
*/
if (!strncmp(p, "$F:", 3))
{
br->flashing_cursor = !br->flashing_cursor;
p += 3;
}
auto &rotate_robot_label = "Rebirth.rotate.robot ";
constexpr auto rotate_robot_len = sizeof(rotate_robot_label) - 1;
if (!strncmp(p, rotate_robot_label, rotate_robot_len))
{
char *p2;
const auto id = strtoul(p + rotate_robot_len, &p2, 10);
if (*p2 == '\n')
{
p = p2;
br->robot_canv.reset();
if (br->robot_playing)
{
br->robot_playing = 0;
DeInitRobotMovie(br->pMovie);
}
init_spinning_robot(canvas, *br);
/* This modifies the appearance of the frame, which
* is unfortunate. However, without it, all robots
* come out blue shifted.
*/
gr_use_palette_table("groupa.256");
br->robot_num = id;
}
}
else
{
const char *p2 = p;
/* Suppress non-printing characters. No need to support
* encodings.
*/
for (char c; (c = *p2) >= ' ' && c <= '~'; ++p2)
{
}
con_printf(CON_VERBOSE, "warning: unknown briefing directive \"%.*s\"", DXX_ptrdiff_cast_int(p2 - p), p);
}
for (char c; (c = *p) && (++p, c) != '\n';)
{
/* Discard through newline. On break, *p is '\0' or
* p[-1] is '\n'.
*/
}
br->message = p;
}
#endif
else if (ch == '$' || ch == ';') // Print a $/;
put_char_delay(game_font, br, ch);
} else if (ch == '\t') { // Tab
const auto &&fspacx = FSPACX();
if (br->text_x - br->screen->text_ulx < fspacx(br->tab_stop))
br->text_x = br->screen->text_ulx + fspacx(br->tab_stop);
} else if ((ch == ';') && (br->prev_ch == 10)) {
while (*br->message++ != 10)
;
br->prev_ch = 10;
} else if (ch == '\\') {
br->prev_ch = ch;
} else if (ch == 10) {
if (br->prev_ch != '\\') {
br->prev_ch = ch;
#if defined(DXX_BUILD_DESCENT_II)
if (br->dumb_adjust)
br->dumb_adjust--;
else
#endif
br->text_y += FSPACY(5)+FSPACY(5)*3/5;
br->text_x = br->screen->text_ulx;
if (br->text_y > br->screen->text_uly + br->screen->text_height) {
#if defined(DXX_BUILD_DESCENT_I)
load_briefing_screen(*grd_curcanv, br, D1_Briefing_screens[br->cur_screen].bs_name);
#elif defined(DXX_BUILD_DESCENT_II)
load_briefing_screen(*grd_curcanv, br, Briefing_screens[br->cur_screen].bs_name);
#endif
br->text_x = br->screen->text_ulx;
br->text_y = br->screen->text_uly;
}
} else {
if (ch == 13) //Can this happen? Above says ch==10
Int3();
br->prev_ch = ch;
}
} else {
#if defined(DXX_BUILD_DESCENT_II)
if (!br->got_z) {
LevelError("briefing wrote to screen without using $Z to load a screen; loading default.");
//Int3(); // Hey ryan!!!! You gotta load a screen before you start
// printing to it! You know, $Z !!!
load_briefing_screen(*grd_curcanv, br, HIRESMODE ? "end01b.pcx" : "end01.pcx");
}
#endif
put_char_delay(game_font, br, ch);
}
return 0;
}
int state_save_all_sub(char *filename, char *desc, int between_levels)
{
int i,j;
FILE * fp;
grs_canvas * cnv;
FInfo finfo;
OSErr err;
Str255 pfilename;
if ( Game_mode & GM_MULTI ) {
#ifdef MULTI_SAVE
if ( !FindArg( "-multisave" ) )
#endif
return 0;
}
fp = fopen( filename, "wb" );
if ( !fp ) {
start_time();
return 0;
}
//Save id
fwrite( dgss_id, sizeof(char)*4, 1, fp );
//Save version
i = STATE_VERSION;
fwrite( &i, sizeof(int), 1, fp );
//Save description
fwrite( desc, sizeof(char)*DESC_LENGTH, 1, fp );
// Save the current screen shot...
cnv = gr_create_canvas( THUMBNAIL_W, THUMBNAIL_H );
if ( cnv ) {
gr_set_current_canvas( cnv );
if ( between_levels ) {
char * pcx_file;
ubyte pcx_palette[768];
grs_bitmap bmp;
gr_clear_canvas( BM_XRGB(0,0,0) );
pcx_file = get_briefing_screen( Next_level_num );
if ( pcx_file != NULL ) {
bmp.bm_data = NULL;
if (pcx_read_bitmap( pcx_file, &bmp, BM_LINEAR, pcx_palette )==PCX_ERROR_NONE) {
grs_point vertbuf[3];
gr_clear_canvas( TRANSPARENCY_COLOR );
vertbuf[0].x = vertbuf[0].y = -F1_0*6; // -6 pixel rows for ascpect
vertbuf[1].x = vertbuf[1].y = 0;
vertbuf[2].x = i2f(THUMBNAIL_W); vertbuf[2].y = i2f(THUMBNAIL_H+7); // + 7 pixel rows for ascpect
scale_bitmap(&bmp, vertbuf );
gr_remap_bitmap_good( &cnv->cv_bitmap, pcx_palette, -1, -1 );
myfree( bmp.bm_data );
}
}
} else {
render_frame(0);
}
fwrite( cnv->cv_bitmap.bm_data, THUMBNAIL_W*THUMBNAIL_H, 1, fp );
gr_free_canvas( cnv );
} else {
ubyte color = 0;
for ( i=0; i<THUMBNAIL_W*THUMBNAIL_H; i++ )
fwrite( &color, sizeof(ubyte), 1, fp );
}
// Save the Between levels flag...
fwrite( &between_levels, sizeof(int), 1, fp );
// Save the mission info...
#ifdef MAC_SHAREWARE
fwrite( mission_save, sizeof(char)*9, 1, fp);
#else
fwrite( &Mission_list[Current_mission_num], sizeof(char)*9, 1, fp );
#endif
//Save level info
fwrite( &Current_level_num, sizeof(int), 1, fp );
fwrite( &Next_level_num, sizeof(int), 1, fp );
//Save GameTime
fwrite( &GameTime, sizeof(fix), 1, fp );
//Save player info
fwrite( &Players[Player_num], sizeof(player), 1, fp );
// Save the current weapon info
fwrite( &Primary_weapon, sizeof(byte), 1, fp );
fwrite( &Secondary_weapon, sizeof(byte), 1, fp );
// Save the difficulty level
fwrite( &Difficulty_level, sizeof(int), 1, fp );
// Save the Cheats_enabled
fwrite( &Cheats_enabled, sizeof(int), 1, fp );
fwrite( &Game_turbo_mode, sizeof(int), 1, fp );
if ( !between_levels ) {
//Finish all morph objects
for (i=0; i<=Highest_object_index; i++ ) {
if ( (Objects[i].type != OBJ_NONE) && (Objects[i].render_type==RT_MORPH)) {
morph_data *md;
md = find_morph_data(&Objects[i]);
if (md) {
md->obj->control_type = md->morph_save_control_type;
md->obj->movement_type = md->morph_save_movement_type;
md->obj->render_type = RT_POLYOBJ;
md->obj->mtype.phys_info = md->morph_save_phys_info;
md->obj = NULL;
} else { //maybe loaded half-morphed from disk
Objects[i].flags |= OF_SHOULD_BE_DEAD;
Objects[i].render_type = RT_POLYOBJ;
Objects[i].control_type = CT_NONE;
Objects[i].movement_type = MT_NONE;
}
}
}
//Save object info
i = Highest_object_index+1;
fwrite( &i, sizeof(int), 1, fp );
fwrite( Objects, sizeof(object)*i, 1, fp );
//Save wall info
i = Num_walls;
fwrite( &i, sizeof(int), 1, fp );
fwrite( Walls, sizeof(wall)*i, 1, fp );
//Save door info
i = Num_open_doors;
fwrite( &i, sizeof(int), 1, fp );
fwrite( ActiveDoors, sizeof(active_door)*i, 1, fp );
//Save trigger info
fwrite( &Num_triggers, sizeof(int), 1, fp );
fwrite( Triggers, sizeof(trigger)*Num_triggers, 1, fp );
//Save tmap info
for (i=0; i<=Highest_segment_index; i++ ) {
for (j=0; j<6; j++ ) {
fwrite( &Segments[i].sides[j].wall_num, sizeof(short), 1, fp );
fwrite( &Segments[i].sides[j].tmap_num, sizeof(short), 1, fp );
fwrite( &Segments[i].sides[j].tmap_num2, sizeof(short), 1, fp );
}
}
// Save the fuelcen info
fwrite( &Fuelcen_control_center_destroyed, sizeof(int), 1, fp );
fwrite( &Fuelcen_seconds_left, sizeof(int), 1, fp );
fwrite( &Num_robot_centers, sizeof(int), 1, fp );
fwrite( RobotCenters, sizeof(matcen_info)*Num_robot_centers, 1, fp );
fwrite( &ControlCenterTriggers, sizeof(control_center_triggers), 1, fp );
fwrite( &Num_fuelcenters, sizeof(int), 1, fp );
fwrite( Station, sizeof(FuelCenter)*Num_fuelcenters, 1, fp );
// Save the control cen info
fwrite( &Control_center_been_hit, sizeof(int), 1, fp );
fwrite( &Control_center_player_been_seen, sizeof(int), 1, fp );
fwrite( &Control_center_next_fire_time, sizeof(int), 1, fp );
fwrite( &Control_center_present, sizeof(int), 1, fp );
fwrite( &Dead_controlcen_object_num, sizeof(int), 1, fp );
// Save the AI state
ai_save_state( fp );
// Save the automap visited info
fwrite( Automap_visited, sizeof(ubyte)*MAX_SEGMENTS, 1, fp );
}
fwrite( &state_game_id, sizeof(uint), 1, fp );
fwrite( &Laser_rapid_fire, sizeof(int), 1, fp );
fwrite( &Ugly_robot_cheat, sizeof(int), 1, fp );
fwrite( &Ugly_robot_texture, sizeof(int), 1, fp );
fwrite( &Physics_cheat_flag, sizeof(int), 1, fp );
fwrite( &Lunacy, sizeof(int), 1, fp );
fclose(fp);
// set the type and creator of the saved game file
strcpy(pfilename, filename);
c2pstr(pfilename);
err = HGetFInfo(0, 0, pfilename, &finfo);
finfo.fdType = 'SVGM';
finfo.fdCreator = 'DCNT';
err = HSetFInfo(0, 0, pfilename, &finfo);
start_time();
return 1;
}
int state_save_old_game(int slotnum, char * sg_name, player * sg_player,
int sg_difficulty_level, int sg_primary_weapon,
int sg_secondary_weapon, int sg_next_level_num )
{
int i;
int temp_int;
ubyte temp_byte;
char desc[DESC_LENGTH+1];
char filename[128];
grs_canvas * cnv;
FILE * fp;
sprintf( filename, "%s.sg%d", sg_player->callsign, slotnum );
fp = fopen( filename, "wb" );
if ( !fp ) return 0;
//Save id
fwrite( dgss_id, sizeof(char)*4, 1, fp );
//Save version
temp_int = STATE_VERSION;
fwrite( &temp_int, sizeof(int), 1, fp );
//Save description
strncpy( desc, sg_name, DESC_LENGTH );
fwrite( desc, sizeof(char)*DESC_LENGTH, 1, fp );
// Save the current screen shot...
cnv = gr_create_canvas( THUMBNAIL_W, THUMBNAIL_H );
if ( cnv ) {
char * pcx_file;
ubyte pcx_palette[768];
grs_bitmap bmp;
gr_set_current_canvas( cnv );
gr_clear_canvas( BM_XRGB(0,0,0) );
pcx_file = get_briefing_screen( sg_next_level_num );
if ( pcx_file != NULL ) {
bmp.bm_data = NULL;
if (pcx_read_bitmap( pcx_file, &bmp, BM_LINEAR, pcx_palette )==PCX_ERROR_NONE) {
grs_point vertbuf[3];
gr_clear_canvas( TRANSPARENCY_COLOR );
vertbuf[0].x = vertbuf[0].y = -F1_0*6; // -6 pixel rows for ascpect
vertbuf[1].x = vertbuf[1].y = 0;
vertbuf[2].x = i2f(THUMBNAIL_W); vertbuf[2].y = i2f(THUMBNAIL_H+7); // + 7 pixel rows for ascpect
scale_bitmap(&bmp, vertbuf );
gr_remap_bitmap_good( &cnv->cv_bitmap, pcx_palette, -1, -1 );
myfree( bmp.bm_data );
}
}
fwrite( cnv->cv_bitmap.bm_data, THUMBNAIL_W*THUMBNAIL_H, 1, fp );
gr_free_canvas( cnv );
} else {
ubyte color = 0;
for ( i=0; i<THUMBNAIL_W*THUMBNAIL_H; i++ )
fwrite( &color, sizeof(ubyte), 1, fp );
}
// Save the Between levels flag...
temp_int = 1;
fwrite( &temp_int, sizeof(int), 1, fp );
// Save the mission info...
#ifdef MAC_SHAREWARE
fwrite( mission_save, sizeof(char)*9, 1, fp);
#else
fwrite( &Mission_list[0], sizeof(char)*9, 1, fp );
#endif
//Save level info
temp_int = sg_player->level;
fwrite( &temp_int, sizeof(int), 1, fp );
temp_int = sg_next_level_num;
fwrite( &temp_int, sizeof(int), 1, fp );
//Save GameTime
temp_int = 0;
fwrite( &temp_int, sizeof(fix), 1, fp );
//Save player info
fwrite( sg_player, sizeof(player), 1, fp );
// Save the current weapon info
temp_byte = sg_primary_weapon;
fwrite( &temp_byte, sizeof(byte), 1, fp );
temp_byte = sg_secondary_weapon;
fwrite( &temp_byte, sizeof(byte), 1, fp );
// Save the difficulty level
temp_int = sg_difficulty_level;
fwrite( &temp_int, sizeof(int), 1, fp );
// Save the Cheats_enabled
temp_int = 0;
fwrite( &temp_int, sizeof(int), 1, fp );
temp_int = 0; // turbo mode
fwrite( &temp_int, sizeof(int), 1, fp );
fwrite( &state_game_id, sizeof(uint), 1, fp );
fwrite( &Laser_rapid_fire, sizeof(int), 1, fp );
fwrite( &Ugly_robot_cheat, sizeof(int), 1, fp );
fwrite( &Ugly_robot_texture, sizeof(int), 1, fp );
fwrite( &Physics_cheat_flag, sizeof(int), 1, fp );
fwrite( &Lunacy, sizeof(int), 1, fp );
fclose(fp);
return 1;
}
int state_get_restore_file(char * fname, int multi)
{
PHYSFS_file *fp;
int i, choice, version, nsaves;
newmenu_item m[NUM_SAVES+2];
char filename[NUM_SAVES+1][30];
char desc[NUM_SAVES+1][DESC_LENGTH + 16];
char id[5];
int valid;
nsaves=0;
m[0].type = NM_TYPE_TEXT; m[0].text = "\n\n\n\n";
for (i=0;i<NUM_SAVES+1; i++ ) {
sc_bmp[i] = NULL;
if (!multi)
sprintf( filename[i], PLAYER_DIR "%s.sg%x", Players[Player_num].callsign, i );
else
sprintf( filename[i], PLAYER_DIR "%s.mg%x", Players[Player_num].callsign, i );
valid = 0;
fp = PHYSFSX_openReadBuffered(filename[i]);
if ( fp ) {
//Read id
//FIXME: check for swapped file, react accordingly...
PHYSFS_read(fp, id, sizeof(char) * 4, 1);
if ( !memcmp( id, dgss_id, 4 )) {
//Read version
PHYSFS_read(fp, &version, sizeof(int), 1);
if (version >= STATE_COMPATIBLE_VERSION) {
// Read description
PHYSFS_read(fp, desc[i], sizeof(char) * DESC_LENGTH, 1);
//rpad_string( desc[i], DESC_LENGTH-1 );
m[i+1].type = NM_TYPE_MENU; m[i+1].text = desc[i];
// Read thumbnail
sc_bmp[i] = gr_create_bitmap(THUMBNAIL_W,THUMBNAIL_H );
PHYSFS_read(fp, sc_bmp[i]->bm_data, THUMBNAIL_W * THUMBNAIL_H, 1);
if (version >= 9) {
ubyte pal[256*3];
PHYSFS_read(fp, pal, 3, 256);
gr_remap_bitmap_good( sc_bmp[i], pal, -1, -1 );
}
nsaves++;
valid = 1;
}
}
PHYSFS_close(fp);
}
if (!valid) {
strcpy( desc[i], TXT_EMPTY );
//rpad_string( desc[i], DESC_LENGTH-1 );
m[i+1].type = NM_TYPE_TEXT; m[i+1].text = desc[i];
}
}
if ( nsaves < 1 ) {
nm_messagebox( NULL, 1, "Ok", "No saved games were found!" );
return 0;
}
if (Current_display_mode == SM(640,400)) //restore menu won't fit on 640x400
VR_screen_flags ^= VRF_COMPATIBLE_MENUS;
sc_last_item = -1;
#ifdef NEWMENU_MOUSE
Hack_DblClick_MenuMode = 1;
#endif
RestoringMenu=1;
choice = newmenu_do3( NULL, "Select Game to Restore", NUM_SAVES+2, m, state_callback, state_default_item+1, NULL, 190, -1 );
RestoringMenu=0;
#ifdef NEWMENU_MOUSE
Hack_DblClick_MenuMode = 0;
#endif
if (Current_display_mode == SM(640,400)) //set flag back
VR_screen_flags ^= VRF_COMPATIBLE_MENUS;
for (i=0; i<NUM_SAVES+1; i++ ) {
if ( sc_bmp[i] )
gr_free_bitmap( sc_bmp[i] );
}
if (choice > 0) {
strcpy( fname, filename[choice-1] );
if (choice != NUM_SAVES+1) //no new default when restore from autosave
state_default_item = choice - 1;
return choice;
}
return 0;
}
//if filename passed is NULL, show normal credits
void credits_show(char *credits_filename)
{
credits *cr;
window *wind;
int i;
int pcx_error;
char * tempp;
char filename[32];
ubyte backdrop_palette[768];
MALLOC(cr, credits, 1);
if (!cr)
return;
cr->have_bin_file = 0;
cr->buffer_line = 0;
cr->first_line_offset = 0;
cr->extra_inc = 0;
cr->done = 0;
cr->row = 0;
// Clear out all tex buffer lines.
for (i=0; i<NUM_LINES; i++ )
cr->buffer[i][0] = 0;
sprintf(filename, "%s", CREDITS_FILE);
cr->have_bin_file = 0;
if (credits_filename) {
strcpy(filename,credits_filename);
cr->have_bin_file = 1;
}
cr->file = PHYSFSX_openReadBuffered( filename );
if (cr->file == NULL) {
char nfile[32];
if (credits_filename)
{
d_free(cr);
return; //ok to not find special filename
}
tempp = strchr(filename, '.');
*tempp = '\0';
sprintf(nfile, "%s.txb", filename);
cr->file = PHYSFSX_openReadBuffered(nfile);
if (cr->file == NULL)
Error("Missing CREDITS.TEX and CREDITS.TXB file\n");
cr->have_bin_file = 1;
}
set_screen_mode(SCREEN_MENU);
gr_use_palette_table( "credits.256" );
cr->backdrop.bm_data=NULL;
pcx_error = pcx_read_bitmap(STARS_BACKGROUND,&cr->backdrop, BM_LINEAR,backdrop_palette);
if (pcx_error != PCX_ERROR_NONE) {
PHYSFS_close(cr->file);
d_free(cr);
return;
}
songs_play_song( SONG_CREDITS, 1 );
gr_remap_bitmap_good( &cr->backdrop,backdrop_palette, -1, -1 );
gr_set_current_canvas(NULL);
show_fullscr(&cr->backdrop);
gr_palette_load( gr_palette );
key_flush();
wind = window_create(&grd_curscreen->sc_canvas, 0, 0, SWIDTH, SHEIGHT, (int (*)(window *, d_event *, void *))credits_handler, cr);
if (!wind)
{
d_event event = { EVENT_WINDOW_CLOSE };
credits_handler(NULL, &event, cr);
return;
}
while (window_exists(wind))
event_process();
}
void credits_show()
{
int i, j, l, done;
CFILE * file;
char buffer[NUM_LINES][80];
grs_bitmap backdrop;
ubyte backdrop_palette[768];
int pcx_error;
int buffer_line = 0;
fix last_time;
fix time_delay = 4180 / f2fl(Scale_y); // ~ F1_0 / 12.9
int first_line_offset,extra_inc=0;
int have_bin_file = 0;
char * tempp;
grs_point scale_pts[] = FULLSCREEN_SCALE_PTS;
ubyte *fade_values = malloc(grd_curscreen->sc_h);
for (i = 0; i < grd_curscreen->sc_h; ++i) {
fade_values[i] = fade_values_200[(int)(((float)i / (float)grd_curscreen->sc_h) * 200)];
}
set_screen_mode(SCREEN_MENU);
// Clear out all tex buffer lines.
for (i=0; i<NUM_LINES; i++ ) buffer[i][0] = 0;
have_bin_file = 0;
file = cfopen( "credits.tex", "rb" );
if (file == NULL) {
file = cfopen("credits.txb", "rb");
if (file == NULL)
Error("Missing CREDITS.TEX and CREDITS.TXB file\n");
have_bin_file = 1;
}
gr_use_palette_table( "credits.256" );
header_font = gr_init_font( "font1-1.fnt" );
title_font = gr_init_font( "font2-3.fnt" );
names_font = gr_init_font( "font2-2.fnt" );
backdrop.bm_data=NULL;
pcx_error = pcx_read_bitmap("stars.pcx",&backdrop,BM_LINEAR,backdrop_palette);
if (pcx_error != PCX_ERROR_NONE) {
cfclose(file);
return;
}
songs_play_song( SONG_CREDITS, 0 );
gr_remap_bitmap_good( &backdrop,backdrop_palette, -1, -1 );
gr_set_current_canvas(NULL);
scale_bitmap(&backdrop,scale_pts);
gr_palette_fade_in( gr_palette, 32, 0 );
vfx_set_palette_sub( gr_palette );
//gr_clear_canvas(BM_XRGB(0,0,0));
key_flush();
last_time = timer_get_fixed_seconds();
done = 0;
first_line_offset = 0;
while( 1 ) {
int k;
do {
buffer_line = (buffer_line+1) % NUM_LINES;
if (cfgets( buffer[buffer_line], 80, file )) {
char *p;
if (have_bin_file) { // is this a binary tbl file
for (i = 0; i < strlen(buffer[buffer_line]) - 1; i++) {
encode_rotate_left(&(buffer[buffer_line][i]));
buffer[buffer_line][i] ^= BITMAP_TBL_XOR;
encode_rotate_left(&(buffer[buffer_line][i]));
}
}
p = strchr(&buffer[buffer_line][0],'\n');
if (p) *p = '\0';
} else {
//fseek( file, 0, SEEK_SET);
buffer[buffer_line][0] = 0;
done++;
}
} while (extra_inc--);
extra_inc = 0;
for (i=0; i<ROW_SPACING; i++ ) {
int y;
y = first_line_offset - i;
#ifndef OGLES
gr_set_current_canvas(VR_offscreen_buffer);
#endif
scale_bitmap(&backdrop, scale_pts);
for (j=0; j<NUM_LINES; j++ ) {
char *s;
l = (buffer_line + j + 1 ) % NUM_LINES;
s = buffer[l];
if ( s[0] == '!' ) {
s++;
} else if ( s[0] == '$' ) {
grd_curcanv->cv_font = header_font;
s++;
} else if ( s[0] == '*' ) {
grd_curcanv->cv_font = title_font;
s++;
} else
grd_curcanv->cv_font = names_font;
gr_bitblt_fade_table = fade_values;
tempp = strchr( s, '\t' );
if ( tempp ) {
int w, h, aw;
*tempp = 0;
gr_get_string_size( s, &w, &h, &aw );
w *= f2fl(Scale_x);
h *= f2fl(Scale_y);
gr_scale_printf( (160-w)/2, y, Scale_factor, Scale_factor, s );
gr_get_string_size( &tempp[1], &w, &h, &aw );
w *= f2fl(Scale_x);
h *= f2fl(Scale_y);
gr_scale_printf( 160+((160-w)/2), y, Scale_factor, Scale_factor, &tempp[1] );
*tempp = '\t';
} else {
gr_scale_printf( 0x8000, y, Scale_factor, Scale_factor, s );
}
gr_bitblt_fade_table = NULL;
if (buffer[l][0] == '!')
y += ROW_SPACING/2;
else
y += ROW_SPACING;
}
#ifdef OGLES
showRenderBuffer();
#else
gr_bm_ubitblt(grd_curscreen->sc_w, grd_curscreen->sc_h, 0, 0, 0, 0, &(VR_offscreen_buffer->cv_bitmap), &(grd_curscreen->sc_canvas.cv_bitmap) );
#endif
while( timer_get_fixed_seconds() < last_time+time_delay );
last_time = timer_get_fixed_seconds();
k = key_inkey();
#ifndef NDEBUG
if (k == KEY_BACKSP) {
Int3();
k=0;
}
#endif
// {
// fix ot = time_delay;
// time_delay += (keyd_pressed[KEY_X] - keyd_pressed[KEY_Z])*100;
// if (ot!=time_delay) {
// mprintf( (0, "[%x] ", time_delay ));
// }
// }
if (k == KEY_PRINT_SCREEN) {
save_screen_shot(0);
k = 0;
}
if ((k>0)||(done>NUM_LINES)) {
gr_close_font(header_font);
gr_close_font(title_font);
gr_close_font(names_font);
gr_palette_fade_out( gr_palette, 32, 0 );
gr_use_palette_table( "palette.256" );
free(backdrop.bm_data);
cfclose(file);
songs_play_song( SONG_TITLE, 1 );
return;
}
}
if (buffer[(buffer_line + 1 ) % NUM_LINES][0] == '!') {
first_line_offset -= ROW_SPACING-ROW_SPACING/2;
if (first_line_offset <= -ROW_SPACING) {
first_line_offset += ROW_SPACING;
extra_inc++;
}
}
}
free(fade_values);
}
