/* $Id: mission.c,v 1.1.1.1 2006/03/17 19:55:22 zicodxx Exp $ */ /* THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX SOFTWARE CORPORATION ("PARALLAX"). PARALLAX, IN DISTRIBUTING THE CODE TO END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS IN USING, DISPLAYING, AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE FREE PURPOSES. IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES. THE END-USER UNDERSTANDS AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE. COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION. ALL RIGHTS RESERVED. */ /* * * Code to handle multiple missions * */ #ifdef HAVE_CONFIG_H #include #endif #include #include #include #include #include #include "pstypes.h" #include "cfile.h" #include "strutil.h" #include "inferno.h" #include "mission.h" #include "gameseq.h" #include "titles.h" #include "songs.h" #include "mono.h" #include "error.h" #include "config.h" #include "newmenu.h" #include "text.h" #include "u_mem.h" #include "ignorecase.h" //values for d1 built-in mission #define BIM_LAST_LEVEL 27 #define BIM_LAST_SECRET_LEVEL -3 #define BIM_BRIEFING_FILE "briefing.tex" #define BIM_ENDING_FILE "endreg.tex" //mission list entry typedef struct mle { char *filename; // filename without extension int builtin_hogsize; // if it's the built-in mission, used for determining the version char mission_name[MISSION_NAME_LEN+1]; ubyte descent_version; // descent 1 or descent 2? ubyte anarchy_only_flag; // if true, mission is anarchy only char *path; // relative file path int location; // see defines below } mle; //values that describe where a mission is located #define ML_CURDIR 0 #define ML_MISSIONDIR 1 #define ML_CDROM 2 int num_missions = -1; Mission *Current_mission = NULL; // currently loaded mission extern void piggy_init_pigfile(char *filename); // // Special versions of mission routines for d1 builtins // int load_mission_d1(void) { int i; piggy_init_pigfile("groupa.pig"); //get correct pigfile switch (cfile_size("descent.hog")) { case D1_SHAREWARE_MISSION_HOGSIZE: case D1_SHAREWARE_10_MISSION_HOGSIZE: N_secret_levels = 0; Last_level = 7; Last_secret_level = 0; //build level names for (i=0;imission_name, SHAREWARE_MISSION_NAME); Current_mission->descent_version = 2; Current_mission->anarchy_only_flag = 0; switch (Current_mission->builtin_hogsize) { case MAC_SHARE_MISSION_HOGSIZE: N_secret_levels = 1; Last_level = 4; Last_secret_level = -1; // mac demo is using the regular hog and rl2 files strcpy(Level_names[0],"d2leva-1.rl2"); strcpy(Level_names[1],"d2leva-2.rl2"); strcpy(Level_names[2],"d2leva-3.rl2"); strcpy(Level_names[3],"d2leva-4.rl2"); strcpy(Secret_level_names[0],"d2leva-s.rl2"); break; default: Int3(); // fall through case SHAREWARE_MISSION_HOGSIZE: N_secret_levels = 0; Last_level = 3; Last_secret_level = 0; strcpy(Level_names[0],"d2leva-1.sl2"); strcpy(Level_names[1],"d2leva-2.sl2"); strcpy(Level_names[2],"d2leva-3.sl2"); } return 1; } // // Special versions of mission routines for Diamond/S3 version // int load_mission_oem(void) { strcpy(Current_mission->mission_name, OEM_MISSION_NAME); Current_mission->descent_version = 2; Current_mission->anarchy_only_flag = 0; N_secret_levels = 2; Last_level = 8; Last_secret_level = -2; strcpy(Level_names[0],"d2leva-1.rl2"); strcpy(Level_names[1],"d2leva-2.rl2"); strcpy(Level_names[2],"d2leva-3.rl2"); strcpy(Level_names[3],"d2leva-4.rl2"); strcpy(Secret_level_names[0],"d2leva-s.rl2"); strcpy(Level_names[4],"d2levb-1.rl2"); strcpy(Level_names[5],"d2levb-2.rl2"); strcpy(Level_names[6],"d2levb-3.rl2"); strcpy(Level_names[7],"d2levb-4.rl2"); strcpy(Secret_level_names[1],"d2levb-s.rl2"); Secret_level_table[0] = 1; Secret_level_table[1] = 5; return 1; } //compare a string for a token. returns true if match int istok(char *buf,char *tok) { return strnicmp(buf,tok,strlen(tok)) == 0; } //adds a terminating 0 after a string at the first white space void add_term(char *s) { while (*s && !isspace(*s)) s++; *s = 0; //terminate! } //returns ptr to string after '=' & white space, or NULL if no '=' //adds 0 after parm at first white space char *get_value(char *buf) { char *t; t = strchr(buf,'=')+1; if (t) { while (*t && isspace(*t)) t++; if (*t) return t; } return NULL; //error! } //reads a line, returns ptr to value of passed parm. returns NULL if none char *get_parm_value(char *parm,CFILE *f) { static char buf[80]; if (!cfgets(buf,80,f)) return NULL; if (istok(buf,parm)) return get_value(buf); else return NULL; } int ml_sort_func(mle *e0,mle *e1) { return stricmp(e0->mission_name,e1->mission_name); } extern char CDROM_dir[]; //returns 1 if file read ok, else 0 int read_mission_file(mle *mission, char *filename, int location) { char filename2[100]; CFILE *mfile; //printf("reading: %s\n", filename); switch (location) { case ML_MISSIONDIR: strcpy(filename2,MISSION_DIR); break; case ML_CDROM: songs_stop_redbook(); //so we can read from the CD strcpy(filename2,CDROM_dir); break; default: Int3(); //fall through case ML_CURDIR: strcpy(filename2,""); break; } strcat(filename2,filename); mfile = cfopen(filename2,"rb"); 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 cfseek(mfile,0,SEEK_SET); p = get_parm_value("xname",mfile); } if (!p) { //try super-enhanced mission! cfseek(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 { cfclose(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"); cfclose(mfile); return 1; } return 0; } void add_d1_builtin_mission_to_list(mle *mission) { int size; size = cfile_size("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_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++; } void add_builtin_mission_to_list(mle *mission, char *name) { int size = cfile_size("descent2.hog"); if (size == -1) size = cfile_size("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 add_missions_to_list(mle *mission_list, char *path, char *rel_path, int anarchy_mode) { char **find, **i, *ext; find = PHYSFS_enumerateFiles(path); for (i = find; *i != NULL; i++) { if (strlen(path) + strlen(*i) + 1 >= PATH_MAX) continue; // path is too long strcat(rel_path, *i); if (PHYSFS_isDirectory(path)) { strcat(rel_path, "/"); add_missions_to_list(mission_list, path, rel_path, anarchy_mode); *(strrchr(path, '/')) = 0; } else if ((ext = strrchr(*i, '.')) && (!strnicmp(ext, ".msn", 4) || !strnicmp(ext, ".mn2", 4))) if (read_mission_file(&mission_list[num_missions], rel_path, ML_MISSIONDIR)) { if (anarchy_mode || !mission_list[num_missions].anarchy_only_flag) { mission_list[num_missions].builtin_hogsize = 0; num_missions++; } else d_free(mission_list[num_missions].path); } if (num_missions >= MAX_MISSIONS) { mprintf((0, "Warning: more missions than d2x can handle\n")); break; } (strrchr(path, '/'))[1] = 0; // chop off the entry } PHYSFS_freeList(find); } /* move to on mission list, increment */ void promote (mle *mission_list, char * mission_name, int * top_place) { int i; char name[FILENAME_LEN], * t; strcpy(name, mission_name); if ((t = strchr(name,'.')) != NULL) *t = 0; //kill extension //printf("promoting: %s\n", name); for (i = *top_place; i < num_missions; i++) if (!stricmp(mission_list[i].filename, name)) { //swap mission positions mle temp; temp = mission_list[*top_place]; mission_list[*top_place] = mission_list[i]; mission_list[i] = temp; ++(*top_place); break; } } void free_mission(void) { // May become more complex with the editor if (Current_mission) { if (!PLAYING_BUILTIN_MISSION) { char hogpath[PATH_MAX]; sprintf(hogpath, MISSION_DIR "%s.hog", Current_mission->path); cfile_close(hogpath); } d_free(Current_mission->path); d_free(Current_mission); } } //fills in the global list of missions. Returns the number of missions //in the list. If anarchy_mode is set, then also add anarchy-only missions. extern char CDROM_dir[]; #if 0 extern char AltHogDir[]; extern char AltHogdir_initialized; #endif mle *build_mission_list(int anarchy_mode) { mle *mission_list; int top_place; char builtin_mission_filename[FILENAME_LEN]; char search_str[PATH_MAX] = MISSION_DIR; //now search for levels on disk //@@Took out this code because after this routine was called once for //@@a list of single-player missions, a subsequent call for a list of //@@anarchy missions would not scan again, and thus would not find the //@@anarchy-only missions. If we retain the minimum level of install, //@@we may want to put the code back in, having it always scan for all //@@missions, and have the code that uses it sort out the ones it wants. //@@ if (num_missions != -1) { //@@ if (Current_mission_num != 0) //@@ load_mission(0); //set built-in mission as default //@@ return num_missions; //@@ } MALLOC(mission_list, mle, MAX_MISSIONS); num_missions = 0; add_builtin_mission_to_list(mission_list + num_missions, builtin_mission_filename); //read built-in first add_d1_builtin_mission_to_list(mission_list + num_missions); add_missions_to_list(mission_list, search_str, search_str + strlen(search_str), anarchy_mode); // move original missions (in story-chronological order) // to top of mission list top_place = 0; promote(mission_list, "descent", &top_place); // original descent 1 mission promote(mission_list, builtin_mission_filename, &top_place); // d2 or d2demo promote(mission_list, "d2x", &top_place); // vertigo if (num_missions > top_place) qsort(&mission_list[top_place], num_missions - top_place, sizeof(*mission_list), (int (*)( const void *, const void * ))ml_sort_func); if (num_missions > top_place) qsort(&mission_list[top_place], num_missions - top_place, sizeof(*mission_list), (int (*)( const void *, const void * ))ml_sort_func); //load_mission(0); //set built-in mission as default atexit(free_mission); return mission_list; } void free_mission_list(mle *mission_list) { int i; for (i = 0; i < num_missions; i++) d_free(mission_list[i].path); d_free(mission_list); num_missions = 0; } void init_extra_robot_movie(char *filename); //values for built-in mission //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) { CFILE *mfile; char buf[PATH_MAX], *v; int found_hogfile; 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->enhanced = 0; // for Descent 1 missions, load descent.hog if (EMULATING_D1) { if (!cfile_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: return load_mission_shareware(); break; case OEM_MISSION_HOGSIZE: return load_mission_oem(); break; default: Int3(); // fall through case FULL_MISSION_HOGSIZE: case FULL_10_MISSION_HOGSIZE: case MAC_FULL_MISSION_HOGSIZE: // continue on... (use d2.mn2 from hogfile) break; } } mprintf(( 0, "Loading mission %s\n", Current_mission_filename )); //read mission from file switch (mission->location) { case ML_MISSIONDIR: strcpy(buf,MISSION_DIR); break; case ML_CDROM: strcpy(buf,CDROM_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 = cfopen(buf,"rb"); 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); found_hogfile = cfile_init(buf, 0); //require mission to be in hogfile if (! found_hogfile) { cfclose(mfile); free_mission(); return 0; } } //init vars Last_level = 0; Last_secret_level = 0; Briefing_text_filename[0] = 0; Ending_text_filename[0] = 0; while (cfgets(buf,80,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,"hog")) { char *bufp = buf; while (*(bufp++) != '=') ; if (*bufp == ' ') while (*(++bufp) == ' ') ; cfile_init(bufp, 0); mprintf((0, "Hog file override = [%s]\n", bufp)); } else if (istok(buf,"briefing")) { if ((v = get_value(buf)) != NULL) { add_term(v); if (strlen(v) < 13) strcpy(Briefing_text_filename,v); } } else if (istok(buf,"ending")) { if ((v = get_value(buf)) != NULL) { add_term(v); if (strlen(v) < 13) strcpy(Ending_text_filename,v); } } else if (istok(buf,"num_levels")) { if ((v=get_value(buf))!=NULL) { int n_levels,i; n_levels = atoi(v); for (i=0;iLast_level) break; Last_secret_level--; } else break; } } } } cfclose(mfile); if (Last_level <= 0) { free_mission(); //no valid mission loaded return 0; } if (Current_mission->enhanced) { char t[50]; extern void bm_read_extra_robots(); sprintf(t,"%s.ham",Current_mission_filename); bm_read_extra_robots(t, Current_mission->enhanced); init_extra_robot_movie(Current_mission_filename); } return 1; } //loads the named mission if exists. //Returns true if mission loaded ok, else false. int load_mission_by_name(char *mission_name) { int i; mle *mission_list = build_mission_list(1); bool found = 0; for (i = 0; i < num_missions; i++) if (!stricmp(mission_name, mission_list[i].filename)) found = load_mission(mission_list + i); free_mission_list(mission_list); return found; } int select_mission(int anarchy_mode, char *message) { mle *mission_list = build_mission_list(anarchy_mode); int new_mission_num; if (num_missions <= 1) { new_mission_num = load_mission(mission_list) ? 0 : -1; } else { int i, default_mission; char * m[MAX_MISSIONS]; default_mission = 0; for (i = 0; i < num_missions; i++) { m[i] = mission_list[i].mission_name; if ( !stricmp( m[i], config_last_mission ) ) default_mission = i; } new_mission_num = newmenu_listbox1( message, num_missions, m, 1, default_mission, NULL ); if (new_mission_num >= 0) { // Chose a mission strcpy(config_last_mission, m[new_mission_num] ); if (!load_mission(mission_list + new_mission_num)) { nm_messagebox( NULL, 1, TXT_OK, TXT_MISSION_ERROR); new_mission_num = -1; } } } free_mission_list(mission_list); return (new_mission_num >= 0); }