diff options
Diffstat (limited to 'src/hexen/h2_main.c')
-rw-r--r-- | src/hexen/h2_main.c | 912 |
1 files changed, 912 insertions, 0 deletions
diff --git a/src/hexen/h2_main.c b/src/hexen/h2_main.c new file mode 100644 index 00000000..3518ea37 --- /dev/null +++ b/src/hexen/h2_main.c @@ -0,0 +1,912 @@ +// Emacs style mode select -*- C++ -*- +//----------------------------------------------------------------------------- +// +// Copyright(C) 1993-1996 Id Software, Inc. +// Copyright(C) 1993-2008 Raven Software +// +// This program is free software; you can redistribute it and/or +// modify it under the terms of the GNU General Public License +// as published by the Free Software Foundation; either version 2 +// of the License, or (at your option) any later version. +// +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program; if not, write to the Free Software +// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +// 02111-1307, USA. +// +//----------------------------------------------------------------------------- + + +// HEADER FILES ------------------------------------------------------------ + +#ifdef __WATCOMC__ +#include <dos.h> +#include <sys\types.h> +#include <direct.h> +#endif +#include <stdio.h> +#include <stdlib.h> +#include <time.h> +#include "h2def.h" +#include "p_local.h" +#include "soundst.h" + +// MACROS ------------------------------------------------------------------ + +#define CONFIG_FILE_NAME "hexen.cfg" +#define MAXWADFILES 20 + +// TYPES ------------------------------------------------------------------- + +typedef struct +{ + char *name; + void (*func) (char **args, int tag); + int requiredArgs; + int tag; +} execOpt_t; + +// EXTERNAL FUNCTION PROTOTYPES -------------------------------------------- + +void R_ExecuteSetViewSize(void); +void D_CheckNetGame(void); +void G_BuildTiccmd(ticcmd_t * cmd); +void F_Drawer(void); +boolean F_Responder(event_t * ev); +void I_StartupKeyboard(void); +void I_StartupJoystick(void); +void I_ShutdownKeyboard(void); +void S_InitScript(void); + +// PUBLIC FUNCTION PROTOTYPES ---------------------------------------------- + +void H2_ProcessEvents(void); +void H2_DoAdvanceDemo(void); +void H2_AdvanceDemo(void); +void H2_StartTitle(void); +void H2_PageTicker(void); + +// PRIVATE FUNCTION PROTOTYPES --------------------------------------------- + +static void DrawMessage(void); +static void PageDrawer(void); +static void HandleArgs(void); +static void CheckRecordFrom(void); +static void AddWADFile(char *file); +static void DrawAndBlit(void); +static void ExecOptionFILE(char **args, int tag); +static void ExecOptionSCRIPTS(char **args, int tag); +static void ExecOptionSKILL(char **args, int tag); +static void ExecOptionPLAYDEMO(char **args, int tag); +static void ExecOptionMAXZONE(char **args, int tag); +static void CreateSavePath(void); +static void WarpCheck(void); + +#ifdef TIMEBOMB +static void DoTimeBomb(void); +#endif + +// EXTERNAL DATA DECLARATIONS ---------------------------------------------- + +extern boolean automapactive; +extern boolean MenuActive; +extern boolean askforquit; +extern char *SavePath; + +// PUBLIC DATA DEFINITIONS ------------------------------------------------- + +boolean shareware; // true if only episode 1 present +boolean nomonsters; // checkparm of -nomonsters +boolean respawnparm; // checkparm of -respawn +boolean randomclass; // checkparm of -randclass +boolean debugmode; // checkparm of -debug +boolean ravpic; // checkparm of -ravpic +boolean cdrom; // true if cd-rom mode active +boolean cmdfrag; // true if a CMD_FRAG packet should be sent out +boolean singletics; // debug flag to cancel adaptiveness +boolean artiskip; // whether shift-enter skips an artifact +int maxzone = 0x800000; // Maximum allocated for zone heap (8meg default) +skill_t startskill; +int startepisode; +int startmap; +boolean autostart; +boolean advancedemo; +FILE *debugfile; +event_t events[MAXEVENTS]; +int eventhead; +int eventtail; + +// PRIVATE DATA DEFINITIONS ------------------------------------------------ + +static int WarpMap; +static int demosequence; +static int pagetic; +static char *pagename; +#ifdef __NeXT__ +static char *wadfiles[MAXWADFILES] = { + "/Novell/H2/source/hexen.wad" +}; +#else +static char *wadfiles[MAXWADFILES] = { + "hexen.wad" +}; +#endif +static execOpt_t ExecOptions[] = { + {"-file", ExecOptionFILE, 1, 0}, + {"-scripts", ExecOptionSCRIPTS, 1, 0}, + {"-skill", ExecOptionSKILL, 1, 0}, + {"-playdemo", ExecOptionPLAYDEMO, 1, 0}, + {"-timedemo", ExecOptionPLAYDEMO, 1, 0}, + {"-maxzone", ExecOptionMAXZONE, 1, 0}, + {NULL, NULL, 0, 0} // Terminator +}; + +// CODE -------------------------------------------------------------------- + +//========================================================================== +// +// H2_Main +// +//========================================================================== +void InitMapMusicInfo(void); + +void H2_Main(void) +{ + int p; + + M_FindResponseFile(); + setbuf(stdout, NULL); + startepisode = 1; + autostart = false; + startskill = sk_medium; + startmap = 1; + shareware = false; // Always false for Hexen + + HandleArgs(); + + // Initialize subsystems + + ST_Message("V_Init: allocate screens.\n"); + V_Init(); + + // Load defaults before initing other systems + ST_Message("M_LoadDefaults: Load system defaults.\n"); + M_LoadDefaults(CONFIG_FILE_NAME); + + // Now that the savedir is loaded from .CFG, make sure it exists + CreateSavePath(); + + // HEXEN MODIFICATION: + // There is a realloc() in W_AddFile() that might fail if the zone + // heap has been previously allocated, so we need to initialize the + // WAD files BEFORE the zone memory initialization. + ST_Message("W_Init: Init WADfiles.\n"); + W_InitMultipleFiles(wadfiles); + +#ifdef TIMEBOMB + DoTimeBomb(); +#endif + + ST_Message("Z_Init: Init zone memory allocation daemon.\n"); + Z_Init(); + +#ifdef __WATCOMC__ + I_StartupKeyboard(); + I_StartupJoystick(); +#endif + + ST_Message("MN_Init: Init menu system.\n"); + MN_Init(); + + ST_Message("CT_Init: Init chat mode data.\n"); + CT_Init(); + + InitMapMusicInfo(); // Init music fields in mapinfo + +#ifdef __WATCOMC__ + ST_Message("S_InitScript\n"); + S_InitScript(); +#endif + + ST_Message("SN_InitSequenceScript: Registering sound sequences.\n"); + SN_InitSequenceScript(); + ST_Message("I_Init: Setting up machine state.\n"); + I_Init(); + + ST_Message("ST_Init: Init startup screen.\n"); + ST_Init(); + + S_StartSongName("orb", true); + + // Show version message now, so it's visible during R_Init() + ST_Message("Executable: " VERSIONTEXT ".\n"); + + ST_Message("R_Init: Init Hexen refresh daemon"); + R_Init(); + ST_Message("\n"); + + if (M_CheckParm("-net")) + ST_NetProgress(); // Console player found + + ST_Message("P_Init: Init Playloop state.\n"); + P_Init(); + + // Check for command line warping. Follows P_Init() because the + // MAPINFO.TXT script must be already processed. + WarpCheck(); + + if (autostart) + { + ST_Message("Warp to Map %d (\"%s\":%d), Skill %d\n", + WarpMap, P_GetMapName(startmap), startmap, startskill + 1); + } + + ST_Message("D_CheckNetGame: Checking network game status.\n"); + D_CheckNetGame(); + + ST_Message("SB_Init: Loading patches.\n"); + SB_Init(); + + CheckRecordFrom(); + + p = M_CheckParm("-record"); + if (p && p < myargc - 1) + { + G_RecordDemo(startskill, 1, startepisode, startmap, myargv[p + 1]); + H2_GameLoop(); // Never returns + } + + p = M_CheckParm("-playdemo"); + if (p && p < myargc - 1) + { + singledemo = true; // Quit after one demo + G_DeferedPlayDemo(myargv[p + 1]); + H2_GameLoop(); // Never returns + } + + p = M_CheckParm("-timedemo"); + if (p && p < myargc - 1) + { + G_TimeDemo(myargv[p + 1]); + H2_GameLoop(); // Never returns + } + + p = M_CheckParm("-loadgame"); + if (p && p < myargc - 1) + { + G_LoadGame(atoi(myargv[p + 1])); + } + + if (gameaction != ga_loadgame) + { + UpdateState |= I_FULLSCRN; + BorderNeedRefresh = true; + if (autostart || netgame) + { + G_StartNewInit(); + G_InitNew(startskill, startepisode, startmap); + } + else + { + H2_StartTitle(); + } + } + H2_GameLoop(); // Never returns +} + +//========================================================================== +// +// HandleArgs +// +//========================================================================== + +static void HandleArgs(void) +{ + int p; + execOpt_t *opt; + + nomonsters = M_ParmExists("-nomonsters"); + respawnparm = M_ParmExists("-respawn"); + randomclass = M_ParmExists("-randclass"); + ravpic = M_ParmExists("-ravpic"); + artiskip = M_ParmExists("-artiskip"); + debugmode = M_ParmExists("-debug"); + deathmatch = M_ParmExists("-deathmatch"); + cdrom = M_ParmExists("-cdrom"); + cmdfrag = M_ParmExists("-cmdfrag"); + + // Process command line options + for (opt = ExecOptions; opt->name != NULL; opt++) + { + p = M_CheckParm(opt->name); + if (p && p < myargc - opt->requiredArgs) + { + opt->func(&myargv[p], opt->tag); + } + } + + // Look for an external device driver + I_CheckExternDriver(); +} + +//========================================================================== +// +// WarpCheck +// +//========================================================================== + +static void WarpCheck(void) +{ + int p; + int map; + + p = M_CheckParm("-warp"); + if (p && p < myargc - 1) + { + WarpMap = atoi(myargv[p + 1]); + map = P_TranslateMap(WarpMap); + if (map == -1) + { // Couldn't find real map number + startmap = 1; + ST_Message("-WARP: Invalid map number.\n"); + } + else + { // Found a valid startmap + startmap = map; + autostart = true; + } + } + else + { + WarpMap = 1; + startmap = P_TranslateMap(1); + if (startmap == -1) + { + startmap = 1; + } + } +} + +//========================================================================== +// +// ExecOptionSKILL +// +//========================================================================== + +static void ExecOptionSKILL(char **args, int tag) +{ + startskill = args[1][0] - '1'; + autostart = true; +} + +//========================================================================== +// +// ExecOptionFILE +// +//========================================================================== + +static void ExecOptionFILE(char **args, int tag) +{ + int p; + + p = M_CheckParm("-file"); + while (++p != myargc && myargv[p][0] != '-') + { + AddWADFile(myargv[p]); + } +} + + +//========================================================================== +// +// ExecOptionPLAYDEMO +// +//========================================================================== + +static void ExecOptionPLAYDEMO(char **args, int tag) +{ + char file[256]; + + sprintf(file, "%s.lmp", args[1]); + AddWADFile(file); + ST_Message("Playing demo %s.lmp.\n", args[1]); +} + +//========================================================================== +// +// ExecOptionSCRIPTS +// +//========================================================================== + +static void ExecOptionSCRIPTS(char **args, int tag) +{ + sc_FileScripts = true; + sc_ScriptsDir = args[1]; +} + + +long superatol(char *s) +{ + long int n = 0, r = 10, x, mul = 1; + char *c = s; + + for (; *c; c++) + { + x = (*c & 223) - 16; + + if (x == -3) + { + mul = -mul; + } + else if (x == 72 && r == 10) + { + n -= (r = n); + if (!r) + r = 16; + if (r < 2 || r > 36) + return -1; + } + else + { + if (x > 10) + x -= 39; + if (x >= r) + return -1; + n = (n * r) + x; + } + } + return (mul * n); +} + + +static void ExecOptionMAXZONE(char **args, int tag) +{ + int size; + + size = superatol(args[1]); + if (size < MINIMUM_HEAP_SIZE) + size = MINIMUM_HEAP_SIZE; + if (size > MAXIMUM_HEAP_SIZE) + size = MAXIMUM_HEAP_SIZE; + maxzone = size; +} + +//========================================================================== +// +// H2_GameLoop +// +//========================================================================== + +void H2_GameLoop(void) +{ + if (M_CheckParm("-debugfile")) + { + char filename[20]; + sprintf(filename, "debug%i.txt", consoleplayer); + debugfile = fopen(filename, "w"); + } + I_InitGraphics(); + while (1) + { + // Frame syncronous IO operations + I_StartFrame(); + + // Process one or more tics + if (singletics) + { + I_StartTic(); + H2_ProcessEvents(); + G_BuildTiccmd(&netcmds[consoleplayer][maketic % BACKUPTICS]); + if (advancedemo) + { + H2_DoAdvanceDemo(); + } + G_Ticker(); + gametic++; + maketic++; + } + else + { + // Will run at least one tic + TryRunTics(); + } + + // Move positional sounds + S_UpdateSounds(players[displayplayer].mo); + + DrawAndBlit(); + } +} + +//========================================================================== +// +// H2_ProcessEvents +// +// Send all the events of the given timestamp down the responder chain. +// +//========================================================================== + +void H2_ProcessEvents(void) +{ + event_t *ev; + + for (; eventtail != eventhead; + eventtail = (eventtail + 1) & (MAXEVENTS - 1)) + { + ev = &events[eventtail]; + if (F_Responder(ev)) + { + continue; + } + if (MN_Responder(ev)) + { + continue; + } + G_Responder(ev); + } +} + +//========================================================================== +// +// H2_PostEvent +// +// Called by the I/O functions when input is detected. +// +//========================================================================== + +void H2_PostEvent(event_t * ev) +{ + events[eventhead] = *ev; + eventhead = (eventhead + 1) & (MAXEVENTS - 1); +} + +//========================================================================== +// +// DrawAndBlit +// +//========================================================================== + +static void DrawAndBlit(void) +{ + // Change the view size if needed + if (setsizeneeded) + { + R_ExecuteSetViewSize(); + } + + // Do buffered drawing + switch (gamestate) + { + case GS_LEVEL: + if (!gametic) + { + break; + } + if (automapactive) + { + AM_Drawer(); + } + else + { + R_RenderPlayerView(&players[displayplayer]); + } + CT_Drawer(); + UpdateState |= I_FULLVIEW; + SB_Drawer(); + break; + case GS_INTERMISSION: + IN_Drawer(); + break; + case GS_FINALE: + F_Drawer(); + break; + case GS_DEMOSCREEN: + PageDrawer(); + break; + } + + if (paused && !MenuActive && !askforquit) + { + if (!netgame) + { + V_DrawPatch(160, viewwindowy + 5, W_CacheLumpName("PAUSED", + PU_CACHE)); + } + else + { + V_DrawPatch(160, 70, W_CacheLumpName("PAUSED", PU_CACHE)); + } + } + + // Draw current message + DrawMessage(); + + // Draw Menu + MN_Drawer(); + + // Send out any new accumulation + NetUpdate(); + + // Flush buffered stuff to screen + I_Update(); +} + +//========================================================================== +// +// DrawMessage +// +//========================================================================== + +static void DrawMessage(void) +{ + player_t *player; + + player = &players[consoleplayer]; + if (player->messageTics <= 0 || !player->message) + { // No message + return; + } + if (player->yellowMessage) + { + MN_DrTextAYellow(player->message, + 160 - MN_TextAWidth(player->message) / 2, 1); + } + else + { + MN_DrTextA(player->message, 160 - MN_TextAWidth(player->message) / 2, + 1); + } +} + +//========================================================================== +// +// H2_PageTicker +// +//========================================================================== + +void H2_PageTicker(void) +{ + if (--pagetic < 0) + { + H2_AdvanceDemo(); + } +} + +//========================================================================== +// +// PageDrawer +// +//========================================================================== + +static void PageDrawer(void) +{ + V_DrawRawScreen(W_CacheLumpName(pagename, PU_CACHE)); + if (demosequence == 1) + { + V_DrawPatch(4, 160, W_CacheLumpName("ADVISOR", PU_CACHE)); + } + UpdateState |= I_FULLSCRN; +} + +//========================================================================== +// +// H2_AdvanceDemo +// +// Called after each demo or intro demosequence finishes. +// +//========================================================================== + +void H2_AdvanceDemo(void) +{ + advancedemo = true; +} + +//========================================================================== +// +// H2_DoAdvanceDemo +// +//========================================================================== + +void H2_DoAdvanceDemo(void) +{ + players[consoleplayer].playerstate = PST_LIVE; // don't reborn + advancedemo = false; + usergame = false; // can't save/end game here + paused = false; + gameaction = ga_nothing; + demosequence = (demosequence + 1) % 7; + switch (demosequence) + { + case 0: + pagetic = 280; + gamestate = GS_DEMOSCREEN; + pagename = "TITLE"; + S_StartSongName("hexen", true); + break; + case 1: + pagetic = 210; + gamestate = GS_DEMOSCREEN; + pagename = "TITLE"; + break; + case 2: + BorderNeedRefresh = true; + UpdateState |= I_FULLSCRN; + G_DeferedPlayDemo("demo1"); + break; + case 3: + pagetic = 200; + gamestate = GS_DEMOSCREEN; + pagename = "CREDIT"; + break; + case 4: + BorderNeedRefresh = true; + UpdateState |= I_FULLSCRN; + G_DeferedPlayDemo("demo2"); + break; + case 5: + pagetic = 200; + gamestate = GS_DEMOSCREEN; + pagename = "CREDIT"; + break; + case 6: + BorderNeedRefresh = true; + UpdateState |= I_FULLSCRN; + G_DeferedPlayDemo("demo3"); + break; + } +} + +//========================================================================== +// +// H2_StartTitle +// +//========================================================================== + +void H2_StartTitle(void) +{ + gameaction = ga_nothing; + demosequence = -1; + H2_AdvanceDemo(); +} + +//========================================================================== +// +// CheckRecordFrom +// +// -recordfrom <savegame num> <demoname> +// +//========================================================================== + +static void CheckRecordFrom(void) +{ + int p; + + p = M_CheckParm("-recordfrom"); + if (!p || p > myargc - 2) + { // Bad args + return; + } + G_LoadGame(atoi(myargv[p + 1])); + G_DoLoadGame(); // Load the gameskill etc info from savegame + G_RecordDemo(gameskill, 1, gameepisode, gamemap, myargv[p + 2]); + H2_GameLoop(); // Never returns +} + +//========================================================================== +// +// AddWADFile +// +//========================================================================== + +static void AddWADFile(char *file) +{ + int i; + char *new; + + ST_Message("Adding external file: %s\n", file); + i = 0; + while (wadfiles[i]) + { + i++; + } + new = malloc(strlen(file) + 1); + strcpy(new, file); + wadfiles[i] = new; +} + +#ifdef __WATCOMC__ +/* +void CleanExit(void) +{ + union REGS regs; + + I_ShutdownKeyboard(); + regs.x.eax = 0x3; + int386(0x10, ®s, ®s); + printf("Exited from HEXEN: Beyond Heretic.\n"); + exit(1); +} +*/ +#endif + +//========================================================================== +// +// FixedDiv +// +//========================================================================== + +fixed_t FixedDiv(fixed_t a, fixed_t b) +{ + if ((abs(a) >> 14) >= abs(b)) + { + return ((a ^ b) < 0 ? INT_MIN : INT_MAX); + } + return (FixedDiv2(a, b)); +} + + +//========================================================================== +// +// CreateSavePath +// +//========================================================================== + +static void CreateSavePath(void) +{ + char creationPath[121]; + int len; + + if (cdrom == true) + { + SavePath = "c:\\hexndata\\"; + } + len = strlen(SavePath); + if (len >= 120) + I_Error("Save path too long\n"); + strcpy(creationPath, SavePath); +#ifdef __WATCOMC__ + creationPath[len - 1] = 0; + mkdir(creationPath); +#endif +} + +#ifdef TIMEBOMB +//========================================================================== +// +// DoTimeBomb +// +//========================================================================== + +static void DoTimeBomb(void) +{ +#ifdef __WATCOMC__ + time_t timeOfDay; + struct tm timeBuffer; + + timeOfDay = time(NULL); + _localtime(&timeOfDay, &timeBuffer); + if (timeBuffer.tm_year != TIMEBOMB_YEAR + || timeBuffer.tm_yday < TIMEBOMB_STARTDATE + || timeBuffer.tm_yday > TIMEBOMB_ENDDATE) + { + I_Error("W_InitWadfiles: Wad file doesn't have IWAD or PWAD id\n"); + } + + printf + ("\n===============================================================================\n"); + printf(" Hexen: Beyond Heretic\n\n"); + printf(" Beta -- Do Not Distribute!\n"); + printf(" Press any key to continue.\n"); + printf + ("===============================================================================\n"); + + getch(); + printf("\n"); +#endif +} +#endif |