void ST_Init(void)
{
byte *pal;
byte *buffer;
using_graphical_startup = false;
if (graphical_startup && !debugmode && !testcontrols)
{
I_SetWindowTitleHR("Hexen startup - " PACKAGE_STRING);
// Set 640x480x16 mode
if (I_SetVideoModeHR())
{
using_graphical_startup = true;
I_InitWindowIcon();
S_StartSongName("orb", true);
I_ClearScreenHR();
I_InitPaletteHR();
I_BlackPaletteHR();
// Load graphic
buffer = ST_LoadScreen();
pal = buffer;
bitmap = buffer + 16 * 3;
I_SlamHR(bitmap);
I_FadeToPaletteHR(pal);
Z_Free(buffer);
}
}
}
void F_Ticker (void)
{
FinaleCount++;
if(FinaleStage < 5 && FinaleCount >= FinaleEndCount)
{
FinaleCount = 0;
FinaleStage++;
switch(FinaleStage)
{
case 1: // Text 1
FinaleEndCount = strlen(FinaleText)*TEXTSPEED+TEXTWAIT;
break;
case 2: // Pic 2, Text 2
FinaleText = GetFinaleText(1);
FinaleEndCount = strlen(FinaleText)*TEXTSPEED+TEXTWAIT;
FinaleLumpNum = W_GetNumForName("FINALE2");
S_StartSongName("orb", false);
break;
case 3: // Pic 2 -- Fade out
FinaleEndCount = 70;
DeInitializeFade();
InitializeFade(0);
break;
case 4: // Pic 3 -- Fade in
FinaleLumpNum = W_GetNumForName("FINALE3");
FinaleEndCount = 71;
DeInitializeFade();
InitializeFade(1);
S_StartSongName("chess", true);
break;
case 5: // Pic 3 , Text 3
FinaleText = GetFinaleText(2);
DeInitializeFade();
break;
default:
break;
}
return;
}
if(FinaleStage == 0 || FinaleStage == 3 || FinaleStage == 4)
{
FadePic();
}
}
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;
}
}
static void InitStats(void)
{
int i;
int j;
int oldCluster;
signed int slaughterfrags;
int posnum;
int slaughtercount;
int playercount;
char *msgLumpName;
int msgSize;
int msgLump;
extern int LeaveMap;
if(!deathmatch)
{
gametype = SINGLE;
HubCount = 0;
oldCluster = P_GetMapCluster(gamemap);
if(oldCluster != P_GetMapCluster(LeaveMap))
{
if(oldCluster >= 1 && oldCluster <= 5)
{
/*msgLumpName = ClusMsgLumpNames[oldCluster-1];
msgLump = W_GetNumForName(msgLumpName);
msgSize = W_LumpLength(msgLump);*/
if(msgSize >= MAX_INTRMSN_MESSAGE_SIZE)
{
I_Error("Cluster message too long (%s)", msgLumpName);
}
//W_ReadLump(msgLump, ClusterMessage);
strcpy(ClusterMessage, "You have completed the Hexen demo!");
msgSize = 35;
// ClusterMessage[msgSize] = 0; // Append terminator
HubText = ClusterMessage;
HubCount = strlen(HubText)*TEXTSPEED+TEXTWAIT;
extern void F_AwardMedal(const int medalId); // MIKE
F_AwardMedal(6 + players[consoleplayer].class);
S_StartSongName("hub", true);
}
}
}
void F_StartFinale (void)
{
gameaction = ga_nothing;
gamestate = GS_FINALE;
viewactive = false;
automapactive = false;
P_ClearMessage(&players[consoleplayer]);
FinaleStage = 0;
FinaleCount = 0;
FinaleText = GetFinaleText(0);
FinaleEndCount = 70;
FinaleLumpNum = W_GetNumForName("FINALE1");
FontABaseLump = W_GetNumForName("FONTA_S")+1;
InitializeFade(1);
// S_ChangeMusic(mus_victor, true);
S_StartSongName("hall", false); // don't loop the song
}
void P_SetupLevel(int episode, int map, int playermask, skill_t skill)
{
int i;
int parm;
char lumpname[9];
int lumpnum;
mobj_t *mobj;
for (i = 0; i < MAXPLAYERS; i++)
{
players[i].killcount = players[i].secretcount
= players[i].itemcount = 0;
}
players[consoleplayer].viewz = 1; // will be set by player think
// Waiting-for-level-load song; not played if playing music from CD
// (the seek time will be so long it will just make loading take
// longer)
if (!cdmusic)
{
S_StartSongName("chess", true);
}
Z_FreeTags(PU_LEVEL, PU_PURGELEVEL - 1);
P_InitThinkers();
leveltime = 0;
sprintf(lumpname, "MAP%02d", map);
lumpnum = W_GetNumForName(lumpname);
//
// Begin processing map lumps
// Note: most of this ordering is important
//
P_LoadBlockMap(lumpnum + ML_BLOCKMAP);
P_LoadVertexes(lumpnum + ML_VERTEXES);
P_LoadSectors(lumpnum + ML_SECTORS);
P_LoadSideDefs(lumpnum + ML_SIDEDEFS);
P_LoadLineDefs(lumpnum + ML_LINEDEFS);
P_LoadSubsectors(lumpnum + ML_SSECTORS);
P_LoadNodes(lumpnum + ML_NODES);
P_LoadSegs(lumpnum + ML_SEGS);
rejectmatrix = W_CacheLumpNum(lumpnum + ML_REJECT, PU_LEVEL);
P_GroupLines();
bodyqueslot = 0;
po_NumPolyobjs = 0;
deathmatch_p = deathmatchstarts;
P_LoadThings(lumpnum + ML_THINGS);
PO_Init(lumpnum + ML_THINGS); // Initialize the polyobjs
P_LoadACScripts(lumpnum + ML_BEHAVIOR); // ACS object code
//
// End of map lump processing
//
// If deathmatch, randomly spawn the active players
TimerGame = 0;
if (deathmatch)
{
for (i = 0; i < MAXPLAYERS; i++)
{
if (playeringame[i])
{ // must give a player spot before deathmatchspawn
mobj = P_SpawnMobj(playerstarts[0][i].x << 16,
playerstarts[0][i].y << 16, 0,
MT_PLAYER_FIGHTER);
players[i].mo = mobj;
G_DeathMatchSpawnPlayer(i);
P_RemoveMobj(mobj);
}
}
//!
// @arg <n>
// @category net
// @vanilla
//
// For multiplayer games: exit each level after n minutes.
//
parm = M_CheckParmWithArgs("-timer", 1);
if (parm)
{
TimerGame = atoi(myargv[parm + 1]) * 35 * 60;
}
}
// set up world state
P_SpawnSpecials();
// build subsector connect matrix
// P_ConnectSubsectors ();
// Load colormap and set the fullbright flag
i = P_GetMapFadeTable(gamemap);
W_ReadLump(i, colormaps);
if (i == W_GetNumForName("COLORMAP"))
{
LevelUseFullBright = true;
}
else
{ // Probably fog ... don't use fullbright sprites
LevelUseFullBright = false;
}
// preload graphics
if (precache)
R_PrecacheLevel();
// Check if the level is a lightning level
P_InitLightning();
S_StopAllSound();
SN_StopAllSequences();
S_StartSong(gamemap, true);
//printf ("free memory: 0x%x\n", Z_FreeMemory());
}
static void InitStats(void)
{
int i;
int j;
int oldCluster;
signed int slaughterfrags;
int posnum;
int slaughtercount;
int playercount;
char *msgLumpName;
int msgSize;
int msgLump;
extern int LeaveMap;
if (!deathmatch)
{
gametype = SINGLE;
HubCount = 0;
oldCluster = P_GetMapCluster(gamemap);
if (oldCluster != P_GetMapCluster(LeaveMap))
{
if (oldCluster >= 1 && oldCluster <= 5)
{
msgLumpName = ClusMsgLumpNames[oldCluster - 1];
msgLump = W_GetNumForName(msgLumpName);
msgSize = W_LumpLength(msgLump);
if (msgSize >= MAX_INTRMSN_MESSAGE_SIZE)
{
I_Error("Cluster message too long (%s)", msgLumpName);
}
W_ReadLump(msgLump, ClusterMessage);
ClusterMessage[msgSize] = 0; // Append terminator
HubText = ClusterMessage;
HubCount = strlen(HubText) * TEXTSPEED + TEXTWAIT;
S_StartSongName("hub", true);
}
}
}
else
{
gametype = DEATHMATCH;
slaughterboy = 0;
slaughterfrags = -9999;
posnum = 0;
playercount = 0;
slaughtercount = 0;
for (i = 0; i < MAXPLAYERS; i++)
{
totalFrags[i] = 0;
if (playeringame[i])
{
playercount++;
for (j = 0; j < MAXPLAYERS; j++)
{
if (playeringame[j])
{
totalFrags[i] += players[i].frags[j];
}
}
posnum++;
}
if (totalFrags[i] > slaughterfrags)
{
slaughterboy = 1 << i;
slaughterfrags = totalFrags[i];
slaughtercount = 1;
}
else if (totalFrags[i] == slaughterfrags)
{
slaughterboy |= 1 << i;
slaughtercount++;
}
}
if (playercount == slaughtercount)
{ // don't do the slaughter stuff if everyone is equal
slaughterboy = 0;
}
S_StartSongName("hub", true);
}
}
static void InitStats(void)
{
int i;
int j;
int oldCluster;
signed int slaughterfrags;
int posnum;
int slaughtercount;
int playercount;
char *msgLumpName;
int msgSize;
int msgLump;
extern int LeaveMap;
if (!deathmatch)
{
gametype = SINGLE;
HubCount = 0;
oldCluster = P_GetMapCluster(gamemap);
if (oldCluster != P_GetMapCluster(LeaveMap))
{
if (oldCluster >= 1 && oldCluster <= 5)
{
#ifdef __ANDROID__
if (gamemode == shareware)
{
strcpy(ClusterMessage,
"having passed the seven portals\n\
which sealed this realm, a vast\n\
domain of harsh wilderness stretches\n\
before you. fire, ice and steel have\n\
tested you, but greater challenges\n\
remain ahead. the dense tangle of\n\
forest surely hides hostile eyes,\n\
but what lies beyond will be worse.\n\
\n\
barren desert, dank swamps and\n\
musty caverns bar your way, but you\n\
cannot let anything keep you from\n\
your fate, even if you might come\n\
to wish that it would. \n\
\n\
and beyond, flickering in the\n\
distance, the ever-shifting walls\n\
of the hypostyle seem to mock\n\
your every effort.\n\
\n\
End of Demo"); //Copied from the retail version
HubText = ClusterMessage;
HubCount = strlen(HubText) * TEXTSPEED + TEXTWAIT;
}
else
{
msgLumpName = ClusMsgLumpNames[oldCluster - 1];
msgLump = W_GetNumForName(msgLumpName);
msgSize = W_LumpLength(msgLump);
if (msgSize >= MAX_INTRMSN_MESSAGE_SIZE)
{
I_Error("Cluster message too long (%s)", msgLumpName);
}
W_ReadLump(msgLump, ClusterMessage);
ClusterMessage[msgSize] = 0; // Append terminator
HubText = ClusterMessage;
HubCount = strlen(HubText) * TEXTSPEED + TEXTWAIT;
}
#else
msgLumpName = ClusMsgLumpNames[oldCluster - 1];
msgLump = W_GetNumForName(msgLumpName);
msgSize = W_LumpLength(msgLump);
if (msgSize >= MAX_INTRMSN_MESSAGE_SIZE)
{
I_Error("Cluster message too long (%s)", msgLumpName);
}
W_ReadLump(msgLump, ClusterMessage);
ClusterMessage[msgSize] = 0; // Append terminator
HubText = ClusterMessage;
HubCount = strlen(HubText) * TEXTSPEED + TEXTWAIT;
#endif
S_StartSongName("hub", true);
}
void P_SetupLevel(int episode, int map, int playermask, skill_t skill)
{
int i;
int parm;
char lumpname[9];
char auxName[128];
int lumpnum;
mobj_t *mobj;
for(i = 0; i < MAXPLAYERS; i++)
{
players[i].killcount = players[i].secretcount
= players[i].itemcount = 0;
}
players[consoleplayer].viewz = 1; // will be set by player think
#ifdef __WATCOMC__
if(i_CDMusic == false)
{
S_StartSongName("chess", true); // Waiting-for-level-load song
}
#endif
Z_FreeTags(PU_LEVEL, PU_PURGELEVEL-1);
P_InitThinkers();
leveltime = 0;
if(DevMaps)
{
sprintf(auxName, "%sMAP%02d.WAD", DevMapsDir, map);
W_OpenAuxiliary(auxName);
}
sprintf(lumpname, "MAP%02d", map);
lumpnum = W_GetNumForName(lumpname);
//
// Begin processing map lumps
// Note: most of this ordering is important
//
P_LoadBlockMap(lumpnum+ML_BLOCKMAP);
P_LoadVertexes(lumpnum+ML_VERTEXES);
P_LoadSectors(lumpnum+ML_SECTORS);
P_LoadSideDefs(lumpnum+ML_SIDEDEFS);
P_LoadLineDefs(lumpnum+ML_LINEDEFS);
P_LoadSubsectors(lumpnum+ML_SSECTORS);
P_LoadNodes(lumpnum+ML_NODES);
P_LoadSegs(lumpnum+ML_SEGS);
rejectmatrix = W_CacheLumpNum(lumpnum+ML_REJECT, PU_LEVEL);
P_GroupLines();
bodyqueslot = 0;
po_NumPolyobjs = 0;
deathmatch_p = deathmatchstarts;
P_LoadThings(lumpnum+ML_THINGS);
PO_Init(lumpnum+ML_THINGS); // Initialize the polyobjs
P_LoadACScripts(lumpnum+ML_BEHAVIOR); // ACS object code
//
// End of map lump processing
//
if(DevMaps)
{
// Close the auxiliary file, but don't free its loaded lumps.
// The next call to W_OpenAuxiliary() will do a full shutdown
// of the current auxiliary WAD (free lumps and info lists).
W_CloseAuxiliaryFile();
W_UsePrimary();
}
// If deathmatch, randomly spawn the active players
TimerGame = 0;
if(deathmatch)
{
for (i=0 ; i<MAXPLAYERS ; i++)
{
if (playeringame[i])
{ // must give a player spot before deathmatchspawn
mobj = P_SpawnMobj (playerstarts[0][i].x<<16,
playerstarts[0][i].y<<16,0, MT_PLAYER_FIGHTER);
players[i].mo = mobj;
G_DeathMatchSpawnPlayer (i);
P_RemoveMobj (mobj);
}
}
parm = M_CheckParm("-timer");
if(parm && parm < myargc-1)
{
TimerGame = atoi(myargv[parm+1])*35*60;
}
}
// set up world state
P_SpawnSpecials ();
// build subsector connect matrix
// P_ConnectSubsectors ();
// Load colormap and set the fullbright flag
i = P_GetMapFadeTable(gamemap);
W_ReadLump(i, colormaps);
if(i == W_GetNumForName("COLORMAP"))
{
LevelUseFullBright = true;
}
else
{ // Probably fog ... don't use fullbright sprites
LevelUseFullBright = false;
}
// preload graphics
if (precache)
R_PrecacheLevel ();
// Check if the level is a lightning level
P_InitLightning();
S_StopAllSound();
SN_StopAllSequences();
S_StartSong(gamemap, true);
//printf ("free memory: 0x%x\n", Z_FreeMemory());
}
/*
* F_StartFinale
*/
void F_StartFinale (void)
{
gameaction = ga_nothing;
gamestate = GS_FINALE;
automapmode &= ~am_active;
// killough 3/28/98: clear accelerative text flags
acceleratestage = midstage = 0;
/* Okay - IWAD dependent stuff.
* This has been changed severely, and
* some stuff might have changed in the process. */
switch ( gamemode )
{
/* DOOM 1 - E1, E3 or E4, but each nine missions */
case shareware:
case registered:
case retail:
{
#ifdef HEXEN
S_StartSongName("hall", false);
#else
S_ChangeMusic(mus_victor, true);
#endif
switch (gameepisode)
{
case 1:
finaleflat = bgflatE1; // Ty 03/30/98 - new externalized bg flats
finaletext = s_E1TEXT; // Ty 03/23/98 - Was e1text variable.
break;
case 2:
finaleflat = bgflatE2;
finaletext = s_E2TEXT; // Ty 03/23/98 - Same stuff for each
break;
case 3:
finaleflat = bgflatE3;
finaletext = s_E3TEXT;
break;
case 4:
finaleflat = bgflatE4;
finaletext = s_E4TEXT;
break;
default:
// Ouch.
break;
}
break;
}
/* DOOM II and missions packs with E1, M34 */
case commercial:
{
S_ChangeMusic(mus_read_m, TRUE);
// Ty 08/27/98 - added the gamemission logic
switch (gamemap)
{
case 6:
finaleflat = bgflat06;
finaletext = (gamemission==pack_tnt) ? s_T1TEXT :
(gamemission==pack_plut) ? s_P1TEXT : s_C1TEXT;
break;
case 11:
finaleflat = bgflat11;
finaletext = (gamemission==pack_tnt) ? s_T2TEXT :
(gamemission==pack_plut) ? s_P2TEXT : s_C2TEXT;
break;
case 20:
finaleflat = bgflat20;
finaletext = (gamemission==pack_tnt) ? s_T3TEXT :
(gamemission==pack_plut) ? s_P3TEXT : s_C3TEXT;
break;
case 30:
finaleflat = bgflat30;
finaletext = (gamemission==pack_tnt) ? s_T4TEXT :
(gamemission==pack_plut) ? s_P4TEXT : s_C4TEXT;
break;
case 15:
finaleflat = bgflat15;
finaletext = (gamemission==pack_tnt) ? s_T5TEXT :
(gamemission==pack_plut) ? s_P5TEXT : s_C5TEXT;
break;
case 31:
finaleflat = bgflat31;
finaletext = (gamemission==pack_tnt) ? s_T6TEXT :
(gamemission==pack_plut) ? s_P6TEXT : s_C6TEXT;
break;
default:
// Ouch.
break;
}
break;
// Ty 08/27/98 - end gamemission logic
}
/* Indeterminate. */
default: // Ty 03/30/98 - not externalized
S_ChangeMusic(mus_read_m, TRUE);
finaleflat = "F_SKY1"; // Not used anywhere else.
finaletext = s_C1TEXT; // FIXME - other text, music?
break;
}
FinaleStage = 0;
FinaleCount = 0;
}