void G_DoWorldDone(void)
{
gamestate = GS_LEVEL;
G_DoLoadLevel();
gameaction = ga_nothing;
viewactive = true;
}
void P_Start(void)
{
TimeMark1 = 0; /* Init the static timers */
TimeMark2 = 0;
TimeMark4 = 0;
players.AutomapFlags &= AF_GODMODE; /* No automapping specials (but allow godmode) */
AM_Start(); /* Start the automap system */
ST_Start(); /* Init the status bar this level */
G_DoLoadLevel(); /* Load a level into memory */
Randomize(); /* Reset the random number generator */
S_StartSong(Song_e1m1-1+gamemap,TRUE);
}
void G_RunGame(void) {
int next = 0;
if(!demorecording && !demoplayback) {
G_ReloadDefaults();
G_InitNew(startskill, startmap);
}
while(gameaction != ga_title) {
if(gameaction == ga_loadgame) {
G_DoLoadGame();
}
else {
G_DoLoadLevel();
if(gameaction == ga_title) {
break;
}
}
next = D_MiniLoop(P_Start, P_Stop, P_Drawer, P_Ticker);
if(next == ga_loadlevel) {
continue; // restart level from scratch
}
if(next == ga_warplevel || next == ga_warpquick) {
continue; // skip intermission
}
if(next == ga_title) {
return; // exit game and return to title screen
}
if(next == ga_completed) {
next = D_MiniLoop(WI_Start, WI_Stop, WI_Drawer, WI_Ticker);
}
if(next == ga_victory) {
next = D_MiniLoop(IN_Start, IN_Stop, IN_Drawer, IN_Ticker);
if(next == ga_finale) {
D_MiniLoop(F_Start, F_Stop, F_Drawer, F_Ticker);
}
}
gamemap = nextmap;
}
}
void G_DoWorldDone (void)
{
gamestate = GS_LEVEL;
if (wminfo.next[0] == 0)
{
// Don't crash if no next map is given. Just repeat the current one.
Printf ("No next map specified.\n");
}
else
{
level.MapName = nextlevel;
}
G_StartTravel ();
G_DoLoadLevel (startpos, true);
startpos = 0;
gameaction = ga_nothing;
viewactive = true;
}
int G_PlayDemoPtr (int *demo)
{
int exit;
int skill, map;
demobuffer = demo;
skill = *demo++;
map = *demo++;
demo_p = demo;
G_InitNew (skill, map, gt_single);
G_DoLoadLevel ();
demoplayback = true;
exit = MiniLoop (P_Start, P_Stop, P_Ticker, P_Drawer);
demoplayback = false;
return exit;
}
void G_RecordDemo (void)
{
demo_p = demobuffer = Z_Malloc (0x8000, PU_STATIC, NULL);
*demo_p++ = startskill;
*demo_p++ = startmap;
G_InitNew (startskill, startmap, gt_single);
G_DoLoadLevel ();
demorecording = true;
MiniLoop (P_Start, P_Stop, P_Ticker, P_Drawer);
demorecording = false;
D_printf ("w %x,%x",demobuffer,demo_p);
while (1)
{
G_PlayDemoPtr (demobuffer);
D_printf ("w %x,%x",demobuffer,demo_p);
}
}
void G_RunTitleMap(void) {
// villsa 12092013 - abort if map doesn't exist in mapfino
if(P_GetMapInfo(33) == NULL) {
return;
}
demobuffer = Z_Calloc(0x16000, PU_STATIC, NULL);
demo_p = demobuffer;
demobuffer[0x16000-1] = DEMOMARKER;
G_InitNew(sk_medium, 33);
precache = true;
usergame = false;
demoplayback = true;
iwadDemo = true;
rngseed = 0;
G_DoLoadLevel();
D_MiniLoop(P_Start, P_Stop, P_Drawer, P_Ticker);
}
dboolean P_ReadSaveGame(char* name) {
M_ReadFile(name, &savebuffer);
save_offset = 0;
saveg_read_header();
// load a base level
G_InitNew(gameskill, gamemap);
G_DoLoadLevel();
P_UnArchiveMobjs();
P_UnArchivePlayers();
P_UnArchiveWorld();
P_UnArchiveSpecials();
P_UnArchiveMacros();
if(!saveg_read_marker(SAVEGAME_EOF)) {
I_Error("Bad savegame");
}
Z_Free(savebuffer);
return true;
}
void G_Ticker (void)
{
int buf;
gamestate_t oldgamestate;
size_t i;
// Run client tics;
CL_RunTics ();
// do player reborns if needed
if(serverside)
for (i = 0; i < players.size(); i++)
if (players[i].ingame() && players[i].playerstate == PST_REBORN)
G_DoReborn (players[i]);
// do things to change the game state
oldgamestate = gamestate;
while (gameaction != ga_nothing)
{
switch (gameaction)
{
case ga_loadlevel:
G_DoLoadLevel (-1);
break;
case ga_newgame:
G_DoNewGame ();
break;
case ga_loadgame:
gameaction = ga_nothing;
break;
case ga_savegame:
gameaction = ga_nothing;
break;
case ga_playdemo:
G_DoPlayDemo ();
break;
case ga_completed:
G_DoCompleted ();
break;
case ga_victory:
gameaction = ga_nothing;
break;
case ga_worlddone:
G_DoWorldDone ();
break;
case ga_screenshot:
I_ScreenShot(shotfile.c_str());
gameaction = ga_nothing;
break;
case ga_fullconsole:
C_FullConsole ();
gameaction = ga_nothing;
break;
case ga_nothing:
break;
}
C_AdjustBottom ();
}
// get commands
buf = gametic%BACKUPTICS;
memcpy (&consoleplayer().cmd, &consoleplayer().netcmds[buf], sizeof(ticcmd_t));
static int realrate = 0;
int packet_size;
if (demoplayback)
G_ReadDemoTiccmd(); // play all player commands
if (demorecording)
G_WriteDemoTiccmd(); // read in all player commands
if (connected)
{
while ((packet_size = NET_GetPacket()) )
{
// denis - don't accept candy from strangers
if(!NET_CompareAdr(serveraddr, net_from))
break;
realrate += packet_size;
last_received = gametic;
noservermsgs = false;
CL_ReadPacketHeader();
CL_ParseCommands();
if (gameaction == ga_fullconsole) // Host_EndGame was called
return;
}
if (!(gametic%TICRATE))
{
netin = realrate;
realrate = 0;
}
if (!noservermsgs)
CL_SendCmd(); // send console commands to the server
CL_SaveCmd(); // save console commands
if (!(gametic%TICRATE))
{
netout = outrate;
outrate = 0;
}
if (gametic - last_received > 65)
noservermsgs = true;
}
else if (NET_GetPacket() )
{
// denis - don't accept candy from strangers
if((gamestate == GS_DOWNLOAD || gamestate == GS_CONNECTING)
&& NET_CompareAdr(serveraddr, net_from))
{
int type = MSG_ReadLong();
if(type == CHALLENGE)
{
CL_PrepareConnect();
}
else if(type == 0)
{
if (!CL_Connect())
memset (&serveraddr, 0, sizeof(serveraddr));
connecttimeout = 0;
}
else
{
// we are already connected to this server, quit first
MSG_WriteMarker(&net_buffer, clc_disconnect);
NET_SendPacket(net_buffer, serveraddr);
}
}
}
// check for special buttons
if(serverside && consoleplayer().ingame())
{
player_t &player = consoleplayer();
if (player.cmd.ucmd.buttons & BT_SPECIAL)
{
switch (player.cmd.ucmd.buttons & BT_SPECIALMASK)
{
case BTS_PAUSE:
paused ^= 1;
if (paused)
S_PauseSound ();
else
S_ResumeSound ();
break;
case BTS_SAVEGAME:
if (!savedescription[0])
strcpy (savedescription, "NET GAME");
savegameslot = (player.cmd.ucmd.buttons & BTS_SAVEMASK)>>BTS_SAVESHIFT;
gameaction = ga_savegame;
break;
}
}
}
void G_RunGame (void)
{
int i;
while (1)
{
/* load a level */
G_DoLoadLevel ();
/* run a level until death or completion */
MiniLoop (P_Start, P_Stop, P_Ticker, P_Drawer);
/* take away cards and stuff */
for (i=0 ; i<MAXPLAYERS ; i++)
if (playeringame[i])
G_PlayerFinishLevel (i);
if (gameaction == ga_died)
continue; /* died, so restart the level */
if (gameaction == ga_warped)
continue; /* skip intermission */
/* decide which level to go to next */
#ifdef MARS
if (gameaction == ga_secretexit)
nextmap = 24;
else
{
switch (gamemap)
{
case 15: nextmap = 23; break;
case 24: nextmap = 4; break;
default: nextmap = gamemap+1; break;
}
}
#else
if (gameaction == ga_secretexit)
{
nextmap = 24;
}
else
{
switch (gamemap)
{
case 24: nextmap = 4; break;
case 23: nextmap = 23; break; /* don't add secret level to eeprom */
default: nextmap = gamemap+1; break;
}
#ifdef JAGUAR
if (nextmap > maxlevel)
{ /* allow higher menu selection now */
void WriteEEProm (void);
maxlevel = nextmap;
WriteEEProm ();
}
#endif
}
#endif
/* run a stats intermission */
MiniLoop (IN_Start, IN_Stop, IN_Ticker, IN_Drawer);
/* run the finale if needed */
if (gamemap == 23)
MiniLoop (F_Start, F_Stop, F_Ticker, F_Drawer);
gamemap = nextmap;
}
}
void G_DoCompleted (void)
{
int i;
gameaction = ga_nothing;
if (gamestate == GS_TITLELEVEL)
{
level.MapName = nextlevel;
G_DoLoadLevel (startpos, false);
startpos = 0;
viewactive = true;
return;
}
// [RH] Mark this level as having been visited
if (!(level.flags & LEVEL_CHANGEMAPCHEAT))
FindLevelInfo (level.MapName)->flags |= LEVEL_VISITED;
if (automapactive)
AM_Stop ();
wminfo.finished_ep = level.cluster - 1;
wminfo.LName0 = TexMan[TexMan.CheckForTexture(level.info->PName, FTexture::TEX_MiscPatch)];
wminfo.current = level.MapName;
if (deathmatch &&
(dmflags & DF_SAME_LEVEL) &&
!(level.flags & LEVEL_CHANGEMAPCHEAT))
{
wminfo.next = level.MapName;
wminfo.LName1 = wminfo.LName0;
}
else
{
level_info_t *nextinfo = FindLevelInfo (nextlevel, false);
if (nextinfo == NULL || strncmp (nextlevel, "enDSeQ", 6) == 0)
{
wminfo.next = nextlevel;
wminfo.LName1 = NULL;
}
else
{
wminfo.next = nextinfo->MapName;
wminfo.LName1 = TexMan[TexMan.CheckForTexture(nextinfo->PName, FTexture::TEX_MiscPatch)];
}
}
CheckWarpTransMap (wminfo.next, true);
nextlevel = wminfo.next;
wminfo.next_ep = FindLevelInfo (wminfo.next)->cluster - 1;
wminfo.maxkills = level.total_monsters;
wminfo.maxitems = level.total_items;
wminfo.maxsecret = level.total_secrets;
wminfo.maxfrags = 0;
wminfo.partime = TICRATE * level.partime;
wminfo.sucktime = level.sucktime;
wminfo.pnum = consoleplayer;
wminfo.totaltime = level.totaltime;
for (i=0 ; i<MAXPLAYERS ; i++)
{
wminfo.plyr[i].in = playeringame[i];
wminfo.plyr[i].skills = players[i].killcount;
wminfo.plyr[i].sitems = players[i].itemcount;
wminfo.plyr[i].ssecret = players[i].secretcount;
wminfo.plyr[i].stime = level.time;
memcpy (wminfo.plyr[i].frags, players[i].frags
, sizeof(wminfo.plyr[i].frags));
wminfo.plyr[i].fragcount = players[i].fragcount;
}
// [RH] If we're in a hub and staying within that hub, take a snapshot
// of the level. If we're traveling to a new hub, take stuff from
// the player and clear the world vars. If this is just an
// ordinary cluster (not a hub), take stuff from the player, but
// leave the world vars alone.
cluster_info_t *thiscluster = FindClusterInfo (level.cluster);
cluster_info_t *nextcluster = FindClusterInfo (wminfo.next_ep+1); // next_ep is cluster-1
EFinishLevelType mode;
if (thiscluster != nextcluster || deathmatch ||
!(thiscluster->flags & CLUSTER_HUB))
{
if (nextcluster->flags & CLUSTER_HUB)
{
mode = FINISH_NextHub;
}
else
{
mode = FINISH_NoHub;
}
}
else
{
mode = FINISH_SameHub;
}
// Intermission stats for entire hubs
G_LeavingHub(mode, thiscluster, &wminfo);
for (i = 0; i < MAXPLAYERS; i++)
{
if (playeringame[i])
{ // take away appropriate inventory
G_PlayerFinishLevel (i, mode, changeflags);
}
}
if (mode == FINISH_SameHub)
{ // Remember the level's state for re-entry.
if (!(level.flags2 & LEVEL2_FORGETSTATE))
{
G_SnapshotLevel ();
// Do not free any global strings this level might reference
// while it's not loaded.
FBehavior::StaticLockLevelVarStrings();
}
else
{ // Make sure we don't have a snapshot lying around from before.
level.info->ClearSnapshot();
}
}
else
{ // Forget the states of all existing levels.
G_ClearSnapshots ();
if (mode == FINISH_NextHub)
{ // Reset world variables for the new hub.
P_ClearACSVars(false);
}
level.time = 0;
level.maptime = 0;
}
if (!deathmatch &&
((level.flags & LEVEL_NOINTERMISSION) ||
((nextcluster == thiscluster) && (thiscluster->flags & CLUSTER_HUB))))
{
G_WorldDone ();
return;
}
gamestate = GS_INTERMISSION;
viewactive = false;
automapactive = false;
// [RH] If you ever get a statistics driver operational, adapt this.
// if (statcopy)
// memcpy (statcopy, &wminfo, sizeof(wminfo));
WI_Start (&wminfo);
}
void G_InitNew (const char *mapname, bool bTitleLevel)
{
EGameSpeed oldSpeed;
bool wantFast;
int i;
G_ClearHubInfo();
if (!savegamerestore)
{
G_ClearSnapshots ();
P_RemoveDefereds ();
// [RH] Mark all levels as not visited
for (unsigned int i = 0; i < wadlevelinfos.Size(); i++)
wadlevelinfos[i].flags = wadlevelinfos[i].flags & ~LEVEL_VISITED;
}
UnlatchCVars ();
G_VerifySkill();
UnlatchCVars ();
if (paused)
{
paused = 0;
S_ResumeSound (false);
}
if (StatusBar != NULL)
{
StatusBar->Destroy();
StatusBar = NULL;
}
if (bTitleLevel)
{
StatusBar = new DBaseStatusBar (0);
}
else if (SBarInfoScript[SCRIPT_CUSTOM] != NULL)
{
int cstype = SBarInfoScript[SCRIPT_CUSTOM]->GetGameType();
//Did the user specify a "base"
if(cstype == GAME_Strife)
{
StatusBar = CreateStrifeStatusBar();
}
else if(cstype == GAME_Any) //Use the default, empty or custom.
{
StatusBar = CreateCustomStatusBar(SCRIPT_CUSTOM);
}
else
{
StatusBar = CreateCustomStatusBar(SCRIPT_DEFAULT);
}
}
if (StatusBar == NULL)
{
if (gameinfo.gametype & (GAME_DoomChex|GAME_Heretic|GAME_Hexen))
{
StatusBar = CreateCustomStatusBar (SCRIPT_DEFAULT);
}
else if (gameinfo.gametype == GAME_Strife)
{
StatusBar = CreateStrifeStatusBar ();
}
else
{
StatusBar = new DBaseStatusBar (0);
}
}
GC::WriteBarrier(StatusBar);
StatusBar->AttachToPlayer (&players[consoleplayer]);
StatusBar->NewGame ();
setsizeneeded = true;
if (gameinfo.gametype == GAME_Strife || (SBarInfoScript[SCRIPT_CUSTOM] != NULL && SBarInfoScript[SCRIPT_CUSTOM]->GetGameType() == GAME_Strife))
{
// Set the initial quest log text for Strife.
for (i = 0; i < MAXPLAYERS; ++i)
{
players[i].SetLogText ("Find help");
}
}
// [RH] If this map doesn't exist, bomb out
if (!P_CheckMapData(mapname))
{
I_Error ("Could not find map %s\n", mapname);
}
oldSpeed = GameSpeed;
wantFast = !!G_SkillProperty(SKILLP_FastMonsters);
GameSpeed = wantFast ? SPEED_Fast : SPEED_Normal;
if (!savegamerestore)
{
if (!netgame && !demorecording && !demoplayback)
{
// [RH] Change the random seed for each new single player game
// [ED850] The demo already sets the RNG.
rngseed = use_staticrng ? staticrngseed : (rngseed + 1);
}
FRandom::StaticClearRandom ();
P_ClearACSVars(true);
level.time = 0;
level.maptime = 0;
level.totaltime = 0;
if (!multiplayer || !deathmatch)
{
InitPlayerClasses ();
}
// force players to be initialized upon first level load
for (i = 0; i < MAXPLAYERS; i++)
players[i].playerstate = PST_ENTER; // [BC]
STAT_StartNewGame(mapname);
}
usergame = !bTitleLevel; // will be set false if a demo
paused = 0;
demoplayback = false;
automapactive = false;
viewactive = true;
V_SetBorderNeedRefresh();
//Added by MC: Initialize bots.
if (!deathmatch)
{
bglobal.Init ();
}
level.MapName = mapname;
if (bTitleLevel)
{
gamestate = GS_TITLELEVEL;
}
else if (gamestate != GS_STARTUP)
{
gamestate = GS_LEVEL;
}
G_DoLoadLevel (0, false);
}
void G_Ticker(void)
{
int i, buf;
ticcmd_t *cmd = NULL;
//
// do player reborns if needed
//
for (i = 0; i < MAXPLAYERS; i++)
if (playeringame[i] && players[i].playerstate == PST_REBORN)
G_DoReborn(i);
//
// do things to change the game state
//
while (gameaction != ga_nothing)
{
switch (gameaction)
{
case ga_loadlevel:
G_DoLoadLevel();
break;
case ga_newgame:
G_DoNewGame();
break;
case ga_loadgame:
G_DoLoadGame();
break;
case ga_savegame:
G_DoSaveGame();
break;
case ga_playdemo:
G_DoPlayDemo();
break;
case ga_screenshot:
V_ScreenShot("HTIC%02i.%s");
gameaction = ga_nothing;
break;
case ga_completed:
G_DoCompleted();
break;
case ga_worlddone:
G_DoWorldDone();
break;
case ga_victory:
F_StartFinale();
break;
default:
break;
}
}
//
// get commands, check consistancy, and build new consistancy check
//
//buf = gametic%BACKUPTICS;
buf = (gametic / ticdup) % BACKUPTICS;
for (i = 0; i < MAXPLAYERS; i++)
if (playeringame[i])
{
cmd = &players[i].cmd;
memcpy(cmd, &netcmds[i], sizeof(ticcmd_t));
if (demoplayback)
G_ReadDemoTiccmd(cmd);
if (demorecording)
G_WriteDemoTiccmd(cmd);
if (netgame && !(gametic % ticdup))
{
if (gametic > BACKUPTICS
&& consistancy[i][buf] != cmd->consistancy)
{
I_Error("consistency failure (%i should be %i)",
cmd->consistancy, consistancy[i][buf]);
}
if (players[i].mo)
consistancy[i][buf] = players[i].mo->x;
else
consistancy[i][buf] = rndindex;
}
}
//
// check for special buttons
//
for (i = 0; i < MAXPLAYERS; i++)
if (playeringame[i])
{
if (players[i].cmd.buttons & BT_SPECIAL)
{
switch (players[i].cmd.buttons & BT_SPECIALMASK)
{
case BTS_PAUSE:
paused ^= 1;
if (paused)
{
S_PauseSound();
}
else
{
S_ResumeSound();
}
break;
case BTS_SAVEGAME:
if (!savedescription[0])
{
if (netgame)
{
M_StringCopy(savedescription,
DEH_String("NET GAME"),
sizeof(savedescription));
}
else
{
M_StringCopy(savedescription,
DEH_String("SAVE GAME"),
sizeof(savedescription));
}
}
savegameslot =
(players[i].cmd.
buttons & BTS_SAVEMASK) >> BTS_SAVESHIFT;
gameaction = ga_savegame;
break;
}
}
}
// turn inventory off after a certain amount of time
if (inventory && !(--inventoryTics))
{
players[consoleplayer].readyArtifact =
players[consoleplayer].inventory[inv_ptr].type;
inventory = false;
cmd->arti = 0;
}
//
// do main actions
//
//
// do main actions
//
switch (gamestate)
{
case GS_LEVEL:
P_Ticker();
SB_Ticker();
AM_Ticker();
CT_Ticker();
break;
case GS_INTERMISSION:
IN_Ticker();
break;
case GS_FINALE:
F_Ticker();
break;
case GS_DEMOSCREEN:
D_PageTicker();
break;
}
}
void G_InitNew(skill_t skill, int episode, int map)
{
int i;
int speed;
static char *skyLumpNames[5] = {
"SKY1", "SKY2", "SKY3", "SKY1", "SKY3"
};
if (paused)
{
paused = false;
S_ResumeSound();
}
if (skill < sk_baby)
skill = sk_baby;
if (skill > sk_nightmare)
skill = sk_nightmare;
if (episode < 1)
episode = 1;
// Up to 9 episodes for testing
if (episode > 9)
episode = 9;
if (map < 1)
map = 1;
if (map > 9)
map = 9;
M_ClearRandom();
if (respawnparm)
{
respawnmonsters = true;
}
else
{
respawnmonsters = false;
}
// Set monster missile speeds
speed = skill == sk_nightmare;
for (i = 0; MonsterMissileInfo[i].type != -1; i++)
{
mobjinfo[MonsterMissileInfo[i].type].speed
= MonsterMissileInfo[i].speed[speed] << FRACBITS;
}
// Force players to be initialized upon first level load
for (i = 0; i < MAXPLAYERS; i++)
{
players[i].playerstate = PST_REBORN;
players[i].didsecret = false;
}
// Set up a bunch of globals
usergame = true; // will be set false if a demo
paused = false;
demorecording = false;
demoplayback = false;
viewactive = true;
gameepisode = episode;
gamemap = map;
gameskill = skill;
viewactive = true;
BorderNeedRefresh = true;
// Set the sky map
if (episode > 5)
{
skytexture = R_TextureNumForName(DEH_String("SKY1"));
}
else
{
skytexture = R_TextureNumForName(DEH_String(skyLumpNames[episode - 1]));
}
//
// give one null ticcmd_t
//
#if 0
gametic = 0;
maketic = 1;
for (i = 0; i < MAXPLAYERS; i++)
nettics[i] = 1; // one null event for this gametic
memset(localcmds, 0, sizeof(localcmds));
memset(netcmds, 0, sizeof(netcmds));
#endif
G_DoLoadLevel();
}
