void AppendIniArgs(void)
{
PHYSFS_file *f;
char *line, *token;
char separator[] = " ";
f = PHYSFSX_openReadBuffered(INI_FILENAME);
if(f) {
while(!PHYSFS_eof(f) && Num_args < MAX_ARGS)
{
line=fgets_unlimited(f);
token = strtok(line, separator); /* first token in current line */
if (token)
Args[Num_args++] = d_strdup(token);
while( token != NULL )
{
token = strtok(NULL, separator); /* next tokens in current line */
if (token)
Args[Num_args++] = d_strdup(token);
}
d_free(line);
}
PHYSFS_close(f);
}
}
void create_new_mission(void)
{
if (Current_mission)
free_mission();
Current_mission = d_malloc(sizeof(Mission));
if (!Current_mission)
return;
memset(Current_mission, 0, sizeof(Mission));
Current_mission->path = d_strdup("new_mission");
if (!Current_mission->path)
{
free_mission();
return;
}
Current_mission->filename = Current_mission->path;
MALLOC(Level_names, d_fname, 1);
if (!Level_names)
{
free_mission();
return;
}
strcpy(Level_names[0], "GAMESAVE.LVL");
}
// formerly load_exit_model_bitmap
static grs_bitmap *bm_load_extra_objbitmap(const char *name)
{
Assert(N_ObjBitmaps < MAX_OBJ_BITMAPS);
{
ObjBitmaps[N_ObjBitmaps] = read_extra_bitmap_iff(name);
if (ObjBitmaps[N_ObjBitmaps].index == 0)
{
char *name2 = d_strdup(name);
*strrchr(name2, '.') = '\0';
ObjBitmaps[N_ObjBitmaps] = read_extra_bitmap_d1_pig(name2);
d_free(name2);
}
if (ObjBitmaps[N_ObjBitmaps].index == 0)
return NULL;
if (GameBitmaps[ObjBitmaps[N_ObjBitmaps].index].bm_w!=64 || GameBitmaps[ObjBitmaps[N_ObjBitmaps].index].bm_h!=64)
Error("Bitmap <%s> is not 64x64",name);
ObjBitmapPtrs[N_ObjBitmaps] = N_ObjBitmaps;
N_ObjBitmaps++;
Assert(N_ObjBitmaps < MAX_OBJ_BITMAPS);
return &GameBitmaps[ObjBitmaps[N_ObjBitmaps-1].index];
}
}
DError* d_error_new(int level,const char* file,int line, const char* msg,...){
char* buffer;
DError* error = (DError*)d_malloc(sizeof(DError));
error->level = level;
if ( msg == NULL){
error->msg = NULL;
}
else {
error->file = d_strdup(file);
error->line = line;
va_list args;
va_start(args,msg);
int count = vsnprintf(buffer,0,msg,args);
va_end(args);
buffer = d_malloc(sizeof(char)*count+1);
va_list args2;
va_start(args2,msg);
vsnprintf(buffer,count+1,msg,args2);
va_end(args2);
error->msg = buffer;
}
return error;
}
static PHYSFSX_counted_list file_getdirlist(const char *dir)
{
ntstring<PATH_MAX - 1> path;
auto dlen = path.copy_if(dir);
if ((!dlen && dir[0] != '\0') || !path.copy_if(dlen, "/"))
return nullptr;
++ dlen;
PHYSFSX_counted_list list{PHYSFS_enumerateFiles(dir)};
if (!list)
return nullptr;
const auto predicate = [&](char *i) -> bool {
if (path.copy_if(dlen, i) && PHYSFS_isDirectory(path))
return false;
free(i);
return true;
};
auto j = std::remove_if(list.begin(), list.end(), predicate);
*j = NULL;
auto NumDirs = j.get() - list.get();
qsort(list.get(), NumDirs, sizeof(char *), string_array_sort_func);
if (*dir)
{
// Put the 'go to parent directory' sequence '..' first
++NumDirs;
auto r = reinterpret_cast<char **>(realloc(list.get(), sizeof(char *)*(NumDirs + 1)));
if (!r)
return list;
list.release();
list.reset(r);
std::move_backward(r, r + NumDirs, r + NumDirs + 1);
list[0] = d_strdup("..");
}
list.set_count(NumDirs);
return list;
}
static void add_d1_builtin_mission_to_list(mle *mission)
{
int size;
size = PHYSFSX_fsize("descent.hog");
if (size == -1)
return;
switch (size) {
case D1_SHAREWARE_MISSION_HOGSIZE:
case D1_SHAREWARE_10_MISSION_HOGSIZE:
case D1_MAC_SHARE_MISSION_HOGSIZE:
mission->filename = d_strdup(D1_MISSION_FILENAME);
strcpy(mission->mission_name, D1_SHAREWARE_MISSION_NAME);
mission->anarchy_only_flag = 0;
break;
case D1_OEM_MISSION_HOGSIZE:
case D1_OEM_10_MISSION_HOGSIZE:
mission->filename = d_strdup(D1_MISSION_FILENAME);
strcpy(mission->mission_name, D1_OEM_MISSION_NAME);
mission->anarchy_only_flag = 0;
break;
default:
Warning("Unknown D1 hogsize %d\n", size);
Int3();
// fall through
case D1_MISSION_HOGSIZE:
case D1_MISSION_HOGSIZE2:
case D1_10_MISSION_HOGSIZE:
case D1_MAC_MISSION_HOGSIZE:
mission->filename = d_strdup(D1_MISSION_FILENAME);
strcpy(mission->mission_name, D1_MISSION_NAME);
mission->anarchy_only_flag = 0;
break;
}
mission->descent_version = 1;
mission->anarchy_only_flag = 0;
mission->builtin_hogsize = 0;
mission->path = mission->filename;
num_missions++;
}
static void add_builtin_mission_to_list(mle *mission, char *name)
{
int size = PHYSFSX_fsize("descent2.hog");
if (size == -1)
size = PHYSFSX_fsize("d2demo.hog");
switch (size) {
case SHAREWARE_MISSION_HOGSIZE:
case MAC_SHARE_MISSION_HOGSIZE:
mission->filename = d_strdup(SHAREWARE_MISSION_FILENAME);
strcpy(mission->mission_name,SHAREWARE_MISSION_NAME);
mission->anarchy_only_flag = 0;
break;
case OEM_MISSION_HOGSIZE:
mission->filename = d_strdup(OEM_MISSION_FILENAME);
strcpy(mission->mission_name,OEM_MISSION_NAME);
mission->anarchy_only_flag = 0;
break;
default:
Warning("Unknown hogsize %d, trying %s\n", size, FULL_MISSION_FILENAME ".mn2");
Int3(); //fall through
case FULL_MISSION_HOGSIZE:
case FULL_10_MISSION_HOGSIZE:
case MAC_FULL_MISSION_HOGSIZE:
if (!read_mission_file(mission, FULL_MISSION_FILENAME ".mn2", ML_CURDIR))
Error("Could not find required mission file <%s>", FULL_MISSION_FILENAME ".mn2");
}
mission->path = mission->filename;
strcpy(name, mission->filename);
mission->builtin_hogsize = size;
mission->descent_version = 2;
mission->anarchy_only_flag = 0;
num_missions++;
}
void create_new_mission(void)
{
if (Current_mission)
free_mission();
MALLOC(Current_mission, Mission, 1);
if (!Current_mission)
return;
memset(Current_mission, 0, sizeof(Mission));
Current_mission->path = d_strdup("new_mission");
Current_mission->filename = Current_mission->path;
strcpy(Level_names[0], "GAMESAVE.LVL");
}
void InitArgs( int argc,char **argv )
{
int i;
Num_args=0;
for (i=0; i<argc; i++ )
Args[Num_args++] = d_strdup( argv[i] );
for (i=0; i< Num_args; i++ ) {
if ( Args[i][0] == '-' )
d_strlwr( Args[i] ); // Convert all args to lowercase
}
AppendIniArgs();
ReadCmdArgs();
}
UI_GADGET_RADIO * ui_add_gadget_radio( UI_DIALOG * dlg, short x, short y, short w, short h, short group, const char * text )
{
UI_GADGET_RADIO * radio;
radio = (UI_GADGET_RADIO *)ui_gadget_add( dlg, 4, x, y, x+w-1, y+h-1 );
radio->text = d_strdup(text);
radio->width = w;
radio->height = h;
radio->position = 0;
radio->oldposition = 0;
radio->pressed = 0;
radio->flag = 0;
radio->group = group;
return radio;
}
// formerly load_exit_model_bitmap
static grs_bitmap *bm_load_extra_objbitmap(const char *name)
{
assert(N_ObjBitmaps < ObjBitmaps.size());
{
ObjBitmaps[N_ObjBitmaps] = read_extra_bitmap_iff(name);
if (ObjBitmaps[N_ObjBitmaps].index == 0)
{
RAIIdmem<char[]> name2(d_strdup(name));
*strrchr(name2.get(), '.') = '\0';
ObjBitmaps[N_ObjBitmaps] = read_extra_bitmap_d1_pig(name2.get());
}
if (ObjBitmaps[N_ObjBitmaps].index == 0)
return NULL;
if (GameBitmaps[ObjBitmaps[N_ObjBitmaps].index].bm_w!=64 || GameBitmaps[ObjBitmaps[N_ObjBitmaps].index].bm_h!=64)
Error("Bitmap <%s> is not 64x64",name);
ObjBitmapPtrs[N_ObjBitmaps] = N_ObjBitmaps;
N_ObjBitmaps++;
assert(N_ObjBitmaps < ObjBitmaps.size());
return &GameBitmaps[ObjBitmaps[N_ObjBitmaps-1].index];
}
}
void joy_init()
{
int i,j,n;
char temp[10];
if (SDL_Init(SDL_INIT_JOYSTICK) < 0) {
con_printf(CON_NORMAL, "sdl-joystick: initialisation failed: %s.",SDL_GetError());
return;
}
memset(&Joystick,0,sizeof(Joystick));
memset(joyaxis_text, 0, JOY_MAX_AXES * sizeof(char *));
memset(joybutton_text, 0, JOY_MAX_BUTTONS * sizeof(char *));
n = SDL_NumJoysticks();
con_printf(CON_NORMAL, "sdl-joystick: found %d joysticks\n", n);
for (i = 0; i < n; i++) {
con_printf(CON_NORMAL, "sdl-joystick %d: %s\n", i, SDL_JoystickName(i));
SDL_Joysticks[num_joysticks].handle = SDL_JoystickOpen(i);
if (SDL_Joysticks[num_joysticks].handle) {
SDL_Joysticks[num_joysticks].n_axes
= SDL_JoystickNumAxes(SDL_Joysticks[num_joysticks].handle);
if(SDL_Joysticks[num_joysticks].n_axes > MAX_AXES_PER_JOYSTICK)
{
Warning("sdl-joystick: found %d axes, only %d supported.\n", SDL_Joysticks[num_joysticks].n_axes, MAX_AXES_PER_JOYSTICK);
Warning("sdl-joystick: found %d axes, only %d supported.\n", SDL_Joysticks[num_joysticks].n_axes, MAX_AXES_PER_JOYSTICK);
SDL_Joysticks[num_joysticks].n_axes = MAX_AXES_PER_JOYSTICK;
}
SDL_Joysticks[num_joysticks].n_buttons
= SDL_JoystickNumButtons(SDL_Joysticks[num_joysticks].handle);
if(SDL_Joysticks[num_joysticks].n_buttons > MAX_BUTTONS_PER_JOYSTICK)
{
Warning("sdl-joystick: found %d buttons, only %d supported.\n", SDL_Joysticks[num_joysticks].n_buttons, MAX_BUTTONS_PER_JOYSTICK);
SDL_Joysticks[num_joysticks].n_buttons = MAX_BUTTONS_PER_JOYSTICK;
}
SDL_Joysticks[num_joysticks].n_hats
= SDL_JoystickNumHats(SDL_Joysticks[num_joysticks].handle);
if(SDL_Joysticks[num_joysticks].n_hats > MAX_HATS_PER_JOYSTICK)
{
Warning("sdl-joystick: found %d hats, only %d supported.\n", SDL_Joysticks[num_joysticks].n_hats, MAX_HATS_PER_JOYSTICK);
SDL_Joysticks[num_joysticks].n_hats = MAX_HATS_PER_JOYSTICK;
}
con_printf(CON_NORMAL, "sdl-joystick: %d axes\n", SDL_Joysticks[num_joysticks].n_axes);
con_printf(CON_NORMAL, "sdl-joystick: %d buttons\n", SDL_Joysticks[num_joysticks].n_buttons);
con_printf(CON_NORMAL, "sdl-joystick: %d hats\n", SDL_Joysticks[num_joysticks].n_hats);
for (j=0; j < SDL_Joysticks[num_joysticks].n_axes; j++)
{
sprintf(temp, "J%d A%d", i + 1, j + 1);
joyaxis_text[Joystick.n_axes] = d_strdup(temp);
SDL_Joysticks[num_joysticks].axis_map[j] = Joystick.n_axes++;
}
for (j=0; j < SDL_Joysticks[num_joysticks].n_buttons; j++)
{
sprintf(temp, "J%d B%d", i + 1, j + 1);
joybutton_text[Joystick.n_buttons] = d_strdup(temp);
SDL_Joysticks[num_joysticks].button_map[j] = Joystick.n_buttons++;
}
for (j=0; j < SDL_Joysticks[num_joysticks].n_hats; j++)
{
SDL_Joysticks[num_joysticks].hat_map[j] = Joystick.n_buttons;
//a hat counts as four buttons
sprintf(temp, "J%d H%d%c", i + 1, j + 1, 0202);
joybutton_text[Joystick.n_buttons++] = d_strdup(temp);
sprintf(temp, "J%d H%d%c", i + 1, j + 1, 0177);
joybutton_text[Joystick.n_buttons++] = d_strdup(temp);
sprintf(temp, "J%d H%d%c", i + 1, j + 1, 0200);
joybutton_text[Joystick.n_buttons++] = d_strdup(temp);
sprintf(temp, "J%d H%d%c", i + 1, j + 1, 0201);
joybutton_text[Joystick.n_buttons++] = d_strdup(temp);
}
num_joysticks++;
}
else
con_printf(CON_NORMAL, "sdl-joystick: initialization failed!\n");
con_printf(CON_NORMAL, "sdl-joystick: %d axes (total)\n", Joystick.n_axes);
con_printf(CON_NORMAL, "sdl-joystick: %d buttons (total)\n", Joystick.n_buttons);
}
joy_num_axes = Joystick.n_axes;
}
void menubar_init( char * file )
{
int i,j, np;
int aw, w, h;
CFILE * infile;
char buffer[200];
char buf1[200];
char buf2[200];
int menu, item;
num_menus = state = 0;
for (i=0; i < MAXMENUS; i++ )
{
Menu[i].x = Menu[i].y = Menu[i].w = Menu[i].h = 0;
Menu[i].ShowBar = 0;
Menu[i].CurrentItem = 0;
Menu[i].NumItems = 0;
Menu[i].Displayed = 0;
Menu[i].Background = 0;
for (j=0; j< MAXITEMS; j++ )
{
Menu[i].Item[j].x = Menu[i].Item[j].y = Menu[i].Item[j].w = Menu[i].Item[j].h = 0;
Menu[i].Item[j].Text = NULL;
Menu[i].Item[j].Hotkey = -1;
Menu[i].Item[j].user_function = NULL;
}
}
infile = cfopen( file, "rt" );
if (!infile) return;
while ( cfgets( buffer, 200, infile) != NULL )
{
if ( buffer[0] == ';' ) continue;
//mprintf( 0, "%s\n", buffer );
CommaParse( 0, buf1, buffer );
menu = atoi( buf1 );
if (menu >= MAXMENUS)
Error("Too many menus (%d).",menu);
CommaParse( 1, buf1, buffer );
item = atoi(buf1 );
if (item >= MAXITEMS)
Error("Too many items (%d) in menu %d.",item+1,menu);
CommaParse( 2, buf1, buffer );
ul_xlate(buf1);
if (buf1[0] != '-' )
{
sprintf( buf2, " %s ", buf1 );
Menu[menu].Item[item].Text = d_strdup(buf2);
} else
Menu[menu].Item[item].Text = d_strdup(buf1);
Menu[menu].Item[item].InactiveText = d_strdup(Menu[menu].Item[item].Text);
j= 0;
for (i=0; i<=strlen(Menu[menu].Item[item].Text); i++ )
{
np = Menu[menu].Item[item].Text[i];
if (np != CC_UNDERLINE)
Menu[menu].Item[item].InactiveText[j++] = np;
}
CommaParse( 3, buf1, buffer );
if (buf1[0]=='{' && buf1[1] =='}')
Menu[menu].Item[item].Hotkey = -1;
else {
i = DecodeKeyText(buf1);
if (i<1) {
Error("Unknown key, %s, in %s\n", buf1, file );
} else {
Menu[menu].Item[item].Hotkey = i;
}
}
CommaParse( 4, buf1, buffer );
if (strlen(buf1))
{
Menu[menu].Item[item].user_function = func_get(buf1, &np);
// if (!strcmp(buf1,"do-wall-dialog")) {
// mprintf( 0, "Found function %s\n", buf1);
// mprintf( 0, "User function %s\n", Menu[menu].Item[item].user_function);
// }
if (Menu[menu].Item[item].user_function==NULL)
{
Error( "Unknown function, %s, in %s\n", buf1, file );
//ui_messagebox( -2, -2, 1, buffer, "Ok" );
}
}
Menu[menu].Item[item].x = Menu[menu].x;
Menu[menu].Item[item].y = Menu[menu].y;
if ( Menu[menu].Item[item].Text[0] == '-' )
{
w = 1; h = 3;
} else {
gr_get_string_size( Menu[menu].Item[item].Text, &w, &h, &aw );
w += 2;
h += 2;
}
if (menu==0) {
Menu[0].h = h;
Menu[0].Item[item].x = Menu[0].x + Menu[0].w;
Menu[0].Item[item].y = Menu[0].y;
Menu[item+1].x = Menu[0].x + Menu[0].w;
Menu[item+1].y = Menu[0].h - 2;
Menu[0].Item[item].w = w;
Menu[0].Item[item].h = h;
Menu[0].w += w;
}else {
if ( w > Menu[menu].w )
{
Menu[menu].w = w;
for (i=0; i< Menu[menu].NumItems; i++ )
Menu[menu].Item[i].w = Menu[menu].w;
}
Menu[menu].Item[item].w = Menu[menu].w;
Menu[menu].Item[item].x = Menu[menu].x;
Menu[menu].Item[item].y = Menu[menu].y+Menu[menu].h;
Menu[menu].Item[item].h = h;
Menu[menu].h += h;
}
if ( item >= Menu[menu].NumItems )
{
Menu[menu].NumItems = item+1;
}
if ( menu >= num_menus )
num_menus = menu+1;
}
Menu[0].w = 700;
cfclose( infile );
for (i=0; i<num_menus; i++ )
Menu[i].Background = gr_create_bitmap(Menu[i].w, Menu[i].h );
menubar_hid = 1;
}
//loads the specfied mission from the mission list.
//build_mission_list() must have been called.
//Returns true if mission loaded ok, else false.
static int load_mission(mle *mission)
{
PHYSFS_file *mfile;
char buf[PATH_MAX], *v;
if (Current_mission)
free_mission();
MALLOC(Current_mission, Mission, 1);
if (!Current_mission) return 0;
*(mle *) Current_mission = *mission;
Current_mission->path = d_strdup(mission->path);
Current_mission->filename = Current_mission->path + (mission->filename - mission->path);
Current_mission->n_secret_levels = 0;
Current_mission->enhanced = 0;
//init vars
Last_level = 0;
Last_secret_level = 0;
memset(&Briefing_text_filename, '\0', sizeof(Briefing_text_filename));
memset(&Ending_text_filename, '\0', sizeof(Ending_text_filename));
// for Descent 1 missions, load descent.hog
if (EMULATING_D1) {
if (!PHYSFSX_contfile_init("descent.hog", 1))
Warning("descent.hog not available, this mission may be missing some files required for briefings and exit sequence\n");
if (!stricmp(Current_mission_filename, D1_MISSION_FILENAME))
return load_mission_d1();
}
if (PLAYING_BUILTIN_MISSION) {
switch (Current_mission->builtin_hogsize) {
case SHAREWARE_MISSION_HOGSIZE:
case MAC_SHARE_MISSION_HOGSIZE:
strcpy(Briefing_text_filename,BIMD2_BRIEFING_FILE_SHARE);
strcpy(Ending_text_filename,BIMD2_ENDING_FILE_SHARE);
return load_mission_shareware();
break;
case OEM_MISSION_HOGSIZE:
strcpy(Briefing_text_filename,BIMD2_BRIEFING_FILE_OEM);
strcpy(Ending_text_filename,BIMD2_ENDING_FILE_OEM);
return load_mission_oem();
break;
default:
Int3(); // fall through
case FULL_MISSION_HOGSIZE:
case FULL_10_MISSION_HOGSIZE:
case MAC_FULL_MISSION_HOGSIZE:
strcpy(Briefing_text_filename,BIMD2_BRIEFING_FILE);
// continue on... (use d2.mn2 from hogfile)
break;
}
}
//read mission from file
switch (mission->location) {
case ML_MISSIONDIR:
strcpy(buf,MISSION_DIR);
break;
default:
Int3(); //fall through
case ML_CURDIR:
strcpy(buf,"");
break;
}
strcat(buf, mission->path);
if (mission->descent_version == 2)
strcat(buf,".mn2");
else
strcat(buf,".msn");
PHYSFSEXT_locateCorrectCase(buf);
mfile = PHYSFSX_openReadBuffered(buf);
if (mfile == NULL) {
free_mission();
return 0; //error!
}
//for non-builtin missions, load HOG
if (!PLAYING_BUILTIN_MISSION)
{
strcpy(buf+strlen(buf)-4,".hog"); //change extension
PHYSFSEXT_locateCorrectCase(buf);
if (PHYSFSX_exists(buf,1))
PHYSFSX_contfile_init(buf, 0);
snprintf(Briefing_text_filename, sizeof(Briefing_text_filename), "%s.tex",Current_mission_filename);
if (!PHYSFSX_exists(Briefing_text_filename,1))
snprintf(Briefing_text_filename, sizeof(Briefing_text_filename), "%s.txb",Current_mission_filename);
snprintf(Ending_text_filename, sizeof(Ending_text_filename), "%s.tex",Current_mission_filename);
if (!PHYSFSX_exists(Ending_text_filename,1))
snprintf(Ending_text_filename, sizeof(Ending_text_filename), "%s.txb",Current_mission_filename);
}
while (PHYSFSX_fgets(buf,sizeof(buf),mfile)) {
if (istok(buf,"name") && !Current_mission->enhanced) {
Current_mission->enhanced = 0;
continue; //already have name, go to next line
}
if (istok(buf,"xname") && !Current_mission->enhanced) {
Current_mission->enhanced = 1;
continue; //already have name, go to next line
}
if (istok(buf,"zname") && !Current_mission->enhanced) {
Current_mission->enhanced = 2;
continue; //already have name, go to next line
}
else if (istok(buf,"type"))
continue; //already have name, go to next line
else if (istok(buf,"briefing")) {
if ((v = get_value(buf)) != NULL) {
add_term(v);
if (strlen(v) < FILENAME_LEN && strlen(v) > 0)
{
char *tmp, *ptr;
MALLOC(tmp, char, FILENAME_LEN);
snprintf(tmp, FILENAME_LEN, "%s", v);
if ((ptr = strrchr(tmp, '.'))) // if there's a filename extension, kill it. No one knows it's the right one.
*ptr = '\0';
strncat(tmp, ".tex", sizeof(char)*FILENAME_LEN); // apply tex-extenstion
if (PHYSFSX_exists(tmp,1)) // check if this file exists ...
snprintf(Briefing_text_filename, FILENAME_LEN, "%s", tmp); // ... and apply ...
else // ... otherwise ...
{
if ((ptr = strrchr(tmp, '.')))
*ptr = '\0';
strncat(tmp, ".txb", sizeof(char)*FILENAME_LEN); // apply txb extension
if (PHYSFSX_exists(tmp,1)) // check if this file exists ...
snprintf(Briefing_text_filename, FILENAME_LEN, "%s", tmp); // ... and apply ...
}
d_free(tmp);
}
}
}
else if (istok(buf,"ending")) {
if ((v = get_value(buf)) != NULL) {
add_term(v);
if (strlen(v) < FILENAME_LEN && strlen(v) > 0)
{
char *tmp, *ptr;
MALLOC(tmp, char, FILENAME_LEN);
snprintf(tmp, FILENAME_LEN, "%s", v);
if ((ptr = strrchr(tmp, '.'))) // if there's a filename extension, kill it. No one knows it's the right one.
*ptr = '\0';
strncat(tmp, ".tex", sizeof(char)*FILENAME_LEN); // apply tex-extenstion
if (PHYSFSX_exists(tmp,1)) // check if this file exists ...
snprintf(Briefing_text_filename, FILENAME_LEN, "%s", tmp); // ... and apply ...
else // ... otherwise ...
{
if ((ptr = strrchr(tmp, '.')))
*ptr = '\0';
strncat(tmp, ".txb", sizeof(char)*FILENAME_LEN); // apply txb extension
if (PHYSFSX_exists(tmp,1)) // check if this file exists ...
snprintf(Ending_text_filename, FILENAME_LEN, "%s", tmp); // ... and apply ...
}
d_free(tmp);
}
}
}
else if (istok(buf,"num_levels")) {
if ((v=get_value(buf))!=NULL) {
int n_levels,i;
n_levels = atoi(v);
for (i=0;i<n_levels;i++) {
PHYSFSX_fgets(buf,sizeof(buf),mfile);
add_term(buf);
if (strlen(buf) <= 12) {
strcpy(Level_names[i],buf);
Last_level++;
}
else
break;
}
}
}
else if (istok(buf,"num_secrets")) {
if ((v=get_value(buf))!=NULL) {
int i;
N_secret_levels = atoi(v);
Assert(N_secret_levels <= MAX_SECRET_LEVELS_PER_MISSION);
for (i=0;i<N_secret_levels;i++) {
char *t;
PHYSFSX_fgets(buf,sizeof(buf),mfile);
if ((t=strchr(buf,','))!=NULL) *t++=0;
else
break;
add_term(buf);
if (strlen(buf) <= 12) {
strcpy(Secret_level_names[i],buf);
Secret_level_table[i] = atoi(t);
if (Secret_level_table[i]<1 || Secret_level_table[i]>Last_level)
break;
Last_secret_level--;
}
else
break;
}
}
}
}
PHYSFS_close(mfile);
if (Last_level <= 0) {
free_mission(); //no valid mission loaded
return 0;
}
// re-read default HAM file, in case this mission brings it's own version of it
free_polygon_models();
read_hamfile();
if (Current_mission->enhanced) {
char t[50];
sprintf(t,"%s.ham",Current_mission_filename);
bm_read_extra_robots(t, Current_mission->enhanced);
init_extra_robot_movie(Current_mission_filename);
}
return 1;
}
void menubar_init( char * file )
{
int i,j, np;
int aw, w, h;
PHYSFS_file * infile;
char buffer[200];
char buf1[200];
char buf2[200];
int menu, item;
num_menus = state = 0;
// This method should be faster than explicitly setting all the variables (I think)
memset(Menu, 0, sizeof(Menu));
for (i=0; i < MAXMENUS; i++ )
for (j=0; j< MAXITEMS; j++ )
Menu[i].Item[j].Hotkey = -1;
infile = PHYSFSX_openReadBuffered( file );
if (!infile) return;
while ( PHYSFSX_fgets( buffer, 200, infile) != NULL )
{
if ( buffer[0] == ';' ) continue;
CommaParse( 0, buf1, buffer );
menu = atoi( buf1 );
if (menu >= MAXMENUS)
Error("Too many menus (%d).",menu);
CommaParse( 1, buf1, buffer );
item = atoi(buf1 );
if (item >= MAXITEMS)
Error("Too many items (%d) in menu %d.",item+1,menu);
CommaParse( 2, buf1, buffer );
ul_xlate(buf1);
if (buf1[0] != '-' )
{
sprintf( buf2, " %s ", buf1 );
Menu[menu].Item[item].Text = d_strdup(buf2);
} else
Menu[menu].Item[item].Text = d_strdup(buf1);
Menu[menu].Item[item].InactiveText = d_strdup(Menu[menu].Item[item].Text);
j= 0;
for (i=0; i<=strlen(Menu[menu].Item[item].Text); i++ )
{
np = Menu[menu].Item[item].Text[i];
if (np != CC_UNDERLINE)
Menu[menu].Item[item].InactiveText[j++] = np;
}
CommaParse( 3, buf1, buffer );
if (buf1[0]=='{' && buf1[1] =='}')
Menu[menu].Item[item].Hotkey = -1;
else {
i = DecodeKeyText(buf1);
if (i<1) {
Error("Unknown key, %s, in %s\n", buf1, file );
} else {
Menu[menu].Item[item].Hotkey = i;
}
}
CommaParse( 4, buf1, buffer );
if (strlen(buf1))
{
Menu[menu].Item[item].user_function = func_get(buf1, &np);
if (Menu[menu].Item[item].user_function==NULL)
{
Error( "Unknown function, %s, in %s\n", buf1, file );
//ui_messagebox( -2, -2, 1, buffer, "Ok" );
}
}
Menu[menu].Item[item].x = Menu[menu].x;
Menu[menu].Item[item].y = Menu[menu].y;
if ( Menu[menu].Item[item].Text[0] == '-' )
{
w = 1; h = 3;
} else {
gr_get_string_size( Menu[menu].Item[item].Text, &w, &h, &aw );
w += 2;
h += 2;
}
if (menu==0) {
Menu[0].h = h;
Menu[0].Item[item].x = Menu[0].x + Menu[0].w;
Menu[0].Item[item].y = Menu[0].y;
Menu[item+1].x = Menu[0].x + Menu[0].w;
Menu[item+1].y = Menu[0].h - 2;
Menu[0].Item[item].w = w;
Menu[0].Item[item].h = h;
Menu[0].w += w;
}else {
if ( w > Menu[menu].w )
{
Menu[menu].w = w;
for (i=0; i< Menu[menu].NumItems; i++ )
Menu[menu].Item[i].w = Menu[menu].w;
}
Menu[menu].Item[item].w = Menu[menu].w;
Menu[menu].Item[item].x = Menu[menu].x;
Menu[menu].Item[item].y = Menu[menu].y+Menu[menu].h;
Menu[menu].Item[item].h = h;
Menu[menu].h += h;
}
if ( item >= Menu[menu].NumItems )
{
Menu[menu].NumItems = item+1;
}
if ( menu >= num_menus )
num_menus = menu+1;
}
Menu[0].w = 700;
PHYSFS_close( infile );
}
//loads the specfied mission from the mission list.
//build_mission_list() must have been called.
//Returns true if mission loaded ok, else false.
int load_mission(mle *mission)
{
PHYSFS_file *mfile;
char buf[PATH_MAX], *v;
if (Current_mission)
free_mission();
Current_mission = d_malloc(sizeof(Mission));
if (!Current_mission) return 0;
*(mle *) Current_mission = *mission;
Current_mission->path = d_strdup(mission->path);
Current_mission->filename = Current_mission->path + (mission->filename - mission->path);
Current_mission->n_secret_levels = 0;
//init vars
Last_level = 0;
Last_secret_level = 0;
memset(&Briefing_text_filename, '\0', sizeof(Briefing_text_filename));
memset(&Ending_text_filename, '\0', sizeof(Ending_text_filename));
Secret_level_table = NULL;
Level_names = NULL;
Secret_level_names = NULL;
// for Descent 1 missions, load descent.hog
if (!PHYSFSX_contfile_init("descent.hog", 1))
Error("descent.hog not available!\n");
if (!d_stricmp(Current_mission_filename, D1_MISSION_FILENAME))
return load_mission_d1();
//read mission from file
switch (mission->location) {
case ML_MISSIONDIR:
strcpy(buf,MISSION_DIR);
break;
default:
Int3(); //fall through
case ML_CURDIR:
strcpy(buf,"");
break;
}
strcat(buf, mission->path);
strcat(buf,".msn");
PHYSFSEXT_locateCorrectCase(buf);
mfile = PHYSFSX_openReadBuffered(buf);
if (mfile == NULL) {
free_mission();
return 0; //error!
}
//for non-builtin missions, load HOG
strcpy(buf+strlen(buf)-4,".hog"); //change extension
PHYSFSEXT_locateCorrectCase(buf);
if (PHYSFSX_exists(buf,1))
PHYSFSX_contfile_init(buf, 0);
snprintf(Briefing_text_filename, sizeof(Briefing_text_filename), "%s.tex",Current_mission_filename);
if (!PHYSFSX_exists(Briefing_text_filename,1))
snprintf(Briefing_text_filename, sizeof(Briefing_text_filename), "%s.txb",Current_mission_filename);
snprintf(Ending_text_filename, sizeof(Ending_text_filename), "%s.tex",Current_mission_filename);
if (!PHYSFSX_exists(Ending_text_filename,1))
snprintf(Ending_text_filename, sizeof(Ending_text_filename), "%s.txb",Current_mission_filename);
while (PHYSFSX_fgets(buf,sizeof(buf),mfile)) {
if (istok(buf,"type"))
continue; //already have name, go to next line
else if (istok(buf,"briefing")) {
if ((v = get_value(buf)) != NULL) {
add_term(v);
if (strlen(v) < FILENAME_LEN && strlen(v) > 0)
{
char *tmp, *ptr;
MALLOC(tmp, char, FILENAME_LEN);
snprintf(tmp, FILENAME_LEN, "%s", v);
if ((ptr = strrchr(tmp, '.'))) // if there's a filename extension, kill it. No one knows it's the right one.
*ptr = '\0';
strncat(tmp, ".tex", sizeof(char)*FILENAME_LEN); // apply tex-extenstion
if (PHYSFSX_exists(tmp,1)) // check if this file exists ...
snprintf(Briefing_text_filename, FILENAME_LEN, "%s", tmp); // ... and apply ...
else // ... otherwise ...
{
if ((ptr = strrchr(tmp, '.')))
*ptr = '\0';
strncat(tmp, ".txb", sizeof(char)*FILENAME_LEN); // apply txb extension
if (PHYSFSX_exists(tmp,1)) // check if this file exists ...
snprintf(Briefing_text_filename, FILENAME_LEN, "%s", tmp); // ... and apply ...
}
d_free(tmp);
}
}
}
else if (istok(buf,"ending")) {
if ((v = get_value(buf)) != NULL) {
add_term(v);
if (strlen(v) < FILENAME_LEN && strlen(v) > 0)
{
char *tmp, *ptr;
MALLOC(tmp, char, FILENAME_LEN);
snprintf(tmp, FILENAME_LEN, "%s", v);
if ((ptr = strrchr(tmp, '.'))) // if there's a filename extension, kill it. No one knows it's the right one.
*ptr = '\0';
strncat(tmp, ".tex", sizeof(char)*FILENAME_LEN); // apply tex-extenstion
if (PHYSFSX_exists(tmp,1)) // check if this file exists ...
snprintf(Briefing_text_filename, FILENAME_LEN, "%s", tmp); // ... and apply ...
else // ... otherwise ...
{
if ((ptr = strrchr(tmp, '.')))
*ptr = '\0';
strncat(tmp, ".txb", sizeof(char)*FILENAME_LEN); // apply txb extension
if (PHYSFSX_exists(tmp,1)) // check if this file exists ...
snprintf(Ending_text_filename, FILENAME_LEN, "%s", tmp); // ... and apply ...
}
d_free(tmp);
}
}
}
else if (istok(buf,"num_levels")) {
if ((v=get_value(buf))!=NULL) {
int n_levels,i;
n_levels = atoi(v);
Assert(n_levels <= MAX_LEVELS_PER_MISSION);
n_levels = min(n_levels, MAX_LEVELS_PER_MISSION);
MALLOC(Level_names, d_fname, n_levels);
if (!Level_names)
{
free_mission();
return 0;
}
for (i=0;i<n_levels;i++) {
PHYSFSX_fgets(buf,sizeof(buf),mfile);
add_term(buf);
if (strlen(buf) <= 12) {
strcpy(Level_names[i],buf);
Last_level++;
}
else
break;
}
}
}
else if (istok(buf,"num_secrets")) {
if ((v=get_value(buf))!=NULL) {
int i;
N_secret_levels = atoi(v);
Assert(N_secret_levels <= MAX_SECRET_LEVELS_PER_MISSION);
N_secret_levels = min(N_secret_levels, MAX_SECRET_LEVELS_PER_MISSION);
MALLOC(Secret_level_names, d_fname, N_secret_levels);
if (!Secret_level_names)
{
free_mission();
return 0;
}
MALLOC(Secret_level_table, ubyte, N_secret_levels);
if (!Secret_level_table)
{
free_mission();
return 0;
}
for (i=0;i<N_secret_levels;i++) {
char *t;
PHYSFSX_fgets(buf,sizeof(buf),mfile);
if ((t=strchr(buf,','))!=NULL) *t++=0;
else
break;
add_term(buf);
if (strlen(buf) <= 12) {
strcpy(Secret_level_names[i],buf);
Secret_level_table[i] = atoi(t);
if (Secret_level_table[i]<1 || Secret_level_table[i]>Last_level)
break;
Last_secret_level--;
}
else
break;
}
}
}
}
PHYSFS_close(mfile);
if (Last_level <= 0) {
free_mission(); //no valid mission loaded
return 0;
}
return 1;
}
//returns 1 if file read ok, else 0
static int read_mission_file(mle *mission, const char *filename, int location)
{
char filename2[100];
snprintf(filename2, sizeof(filename2), "%s%s", location == ML_MISSIONDIR ? MISSION_DIR : (location == ML_CURDIR ? "" : (Int3(), "")), filename);
PHYSFS_file *mfile;
mfile = PHYSFSX_openReadBuffered(filename2);
if (mfile) {
char *p;
char temp[PATH_MAX], *ext;
strcpy(temp,filename);
p = strrchr(temp, '/'); // get the filename at the end of the path
if (!p)
p = temp;
else p++;
if ((ext = strchr(p, '.')) == NULL)
return 0; //missing extension
// look if it's .mn2 or .msn
mission->descent_version = (ext[3] == '2') ? 2 : 1;
*ext = 0; //kill extension
mission->path = d_strdup(temp);
mission->anarchy_only_flag = 0;
mission->filename = mission->path + (p - temp);
mission->location = location;
if (PHYSFSX_fgets(temp,sizeof(temp),mfile) && (p = get_mission_name(temp)))
{
char *t;
if ((t=strchr(p,';'))!=NULL)
*t=0;
t = p + strlen(p)-1;
while (isspace(*t))
*t-- = 0; // remove trailing whitespace
if (strlen(p) > MISSION_NAME_LEN)
p[MISSION_NAME_LEN] = 0;
strncpy(mission->mission_name, p, MISSION_NAME_LEN + 1);
}
else {
PHYSFS_close(mfile);
d_free(mission->path);
return 0;
}
if (PHYSFSX_fgets(temp,sizeof(temp),mfile))
{
if (istok(temp,"type"))
{
p = get_value(temp);
//get mission type
if (p)
mission->anarchy_only_flag = istok(p,"anarchy");
}
}
PHYSFS_close(mfile);
return 1;
}
return 0;
}
//returns 1 if file read ok, else 0
int read_mission_file(mle *mission, char *filename, int location)
{
char filename2[100];
PHYSFS_file *mfile;
switch (location) {
case ML_MISSIONDIR:
strcpy(filename2,MISSION_DIR);
break;
default:
Int3(); //fall through
case ML_CURDIR:
strcpy(filename2,"");
break;
}
strcat(filename2,filename);
mfile = PHYSFSX_openReadBuffered(filename2);
if (mfile) {
char *p;
char temp[PATH_MAX], *ext;
strcpy(temp,filename);
p = strrchr(temp, '/'); // get the filename at the end of the path
if (!p)
p = temp;
else p++;
if ((ext = strchr(p, '.')) == NULL)
return 0; //missing extension
// look if it's .mn2 or .msn
mission->descent_version = (ext[3] == '2') ? 2 : 1;
*ext = 0; //kill extension
mission->path = d_strdup(temp);
mission->anarchy_only_flag = 0;
mission->filename = mission->path + (p - temp);
mission->location = location;
p = get_parm_value("name",mfile);
if (!p) { //try enhanced mission
PHYSFSX_fseek(mfile,0,SEEK_SET);
p = get_parm_value("xname",mfile);
}
if (!p) { //try super-enhanced mission!
PHYSFSX_fseek(mfile,0,SEEK_SET);
p = get_parm_value("zname",mfile);
}
if (p) {
char *t;
if ((t=strchr(p,';'))!=NULL)
*t=0;
t = p + strlen(p)-1;
while (isspace(*t))
*t-- = 0; // remove trailing whitespace
if (strlen(p) > MISSION_NAME_LEN)
p[MISSION_NAME_LEN] = 0;
strncpy(mission->mission_name, p, MISSION_NAME_LEN + 1);
}
else {
PHYSFS_close(mfile);
d_free(mission->path);
return 0;
}
p = get_parm_value("type",mfile);
//get mission type
if (p)
mission->anarchy_only_flag = istok(p,"anarchy");
PHYSFS_close(mfile);
return 1;
}
return 0;
}
