#include <stdlib.h>

#include <stdio.h>

#include <string.h>

#include <fcntl.h>

#include <sys/types.h>

#include <sys/stat.h>

#include "doomdef.h"

#include "d_think.h"

#include "p_pspr.h"

#include "doomtype.h"

#include "doomstat.h"

#include "d_englsh.h"

#include "z_zone.h"

#include "w_wad.h"

#include "s_sound.h"

#include "v_video.h"

#include "f_finale.h"

#include "m_misc.h"

#include "m_menu.h"

#include "g_game.h"

#include "hu_stuff.h"

#include "wi_stuff.h"

#include "st_stuff.h"

#include "p_setup.h"

#include "r_draw.h"

#include "r_main.h"

#include "d_main.h"

#include "i_system.h"

#include "i_sound.h"

#include "i_video.h"

#define MAXLOADFILES 3

ticcmd_t netcmds[MAXPLAYERS][BACKUPTICS];

static ticcmd_t* localcmds;

int maketic;

const char *const standard_iwads[] = {

"chex.wad",

"doom2.wad",

"plutonia.wad",

"tnt.wad",

"doom.wad",

"doom1.wad",

"doomu.wad",

"freedoom.wad",

};

static const int nstandard_iwads = sizeof standard_iwads / sizeof * standard_iwads;

static void D_BuildNewTiccmds(void)

{

static int lastmadetic;

int newtics = I_GetTime() - lastmadetic;

lastmadetic += newtics;

while (newtics--)

{

I_StartTic();

if (maketic - gametic > BACKUPTICS / 2)

break;

G_BuildTiccmd(&localcmds[maketic % BACKUPTICS]);

maketic++;

}

}

static void D_InitNetGame(void)

{

int i;

localcmds = netcmds[0];

for (i = 0; i < MAXPLAYERS; i++)

playeringame[i] = false;

playeringame[0] = true;

consoleplayer = 0;

}

void D_PostEvent(event_t *ev)

{

if (gametic < 3)

return;

M_Responder(ev) || (gamestate == GS_LEVEL && (HU_Responder(ev) || ST_Responder(ev))) || G_Responder(ev);

}

static void D_Display(void)

{

if (!I_StartDisplay())

return;

if (gamestate != GS_LEVEL)

{

switch (gamestate)

{

case GS_INTERMISSION:

WI_Drawer();

break;

case GS_FINALE:

F_Drawer();

break;

default:

break;

}

}

else if (gametic != basetic)

{

HU_Erase();

R_RenderPlayerView(&players[consoleplayer]);

ST_Drawer();

HU_Drawer();

}

M_Drawer();

D_BuildNewTiccmds();

I_FinishUpdate();

I_EndDisplay();

}

static void tryruntics(void)

{

int runtics;

int entertime = I_GetTime();

while (1)

{

D_BuildNewTiccmds();

runtics = maketic - gametic;

if (runtics)

break;

I_uSleep(ms_to_next_tick * 1000);

if (I_GetTime() - entertime > 10)

{

M_Ticker();

return;

}

}

while (runtics--)

{

M_Ticker();

G_Ticker();

gametic++;

}

}

static void D_DoomLoop(void)

{

for (;;)

{

tryruntics();

if (players[consoleplayer].mo)

S_UpdateSounds(players[consoleplayer].mo);

D_Display();

}

}

static void D_AddFile(const char *file, wad_source_t source)

{

char *gwa_filename = NULL;

wadfiles = realloc(wadfiles, sizeof(*wadfiles) * (numwadfiles + 1));

wadfiles[numwadfiles].name = strcpy(malloc(strlen(file) + 5), file);

wadfiles[numwadfiles].src = source;

numwadfiles++;

gwa_filename = strcpy(malloc(strlen(file) + 5), file);

if (strlen(gwa_filename) > 4)

{

if (!strcasecmp(gwa_filename + (strlen(gwa_filename) - 4), ".wad"))

{

char *ext = &gwa_filename[strlen(gwa_filename) - 4];

ext[1] = 'g';

ext[2] = 'w';

ext[3] = 'a';

wadfiles = realloc(wadfiles, sizeof(*wadfiles) * (numwadfiles + 1));

wadfiles[numwadfiles].name = gwa_filename;

wadfiles[numwadfiles].src = source;

numwadfiles++;

}

}

}

static void CheckIWAD(const char *iwadname, GameMode_t *gmode, boolean *hassec)

{

int ud = 0, rg = 0, sw = 0, cm = 0, sc = 0;

FILE* fp;

wadinfo_t header;

size_t length;

filelump_t *fileinfo;

if (!(fp = fopen(iwadname, "rb")))

I_Error("CheckIWAD: could not open %s", iwadname);

if (fread(&header, sizeof (header), 1, fp) != 1)

I_Error("CheckIWAD: could not read %s", iwadname);

if (!(strncmp(header.identification, "IWAD", 4) == 0 || strncmp(header.identification, "PWAD", 4) == 0))

I_Error("CheckIWAD: identification failed");

header.numlumps = header.numlumps;

header.infotableofs = header.infotableofs;

length = header.numlumps;

fileinfo = malloc(length * sizeof (filelump_t));

if (fseek(fp, header.infotableofs, SEEK_SET))

I_Error("CheckIWAD: failed to seek");

if (fread(fileinfo, sizeof (filelump_t), length, fp) != length)

I_Error("CheckIWAD: failed to read");

fclose(fp);

while (length--)

{

if (fileinfo[length].name[0] == 'E' && fileinfo[length].name[2] == 'M' && fileinfo[length].name[4] == 0)

{

if (fileinfo[length].name[1] == '4')

++ud;

else if (fileinfo[length].name[1] == '3')

++rg;

else if (fileinfo[length].name[1] == '2')

++rg;

else if (fileinfo[length].name[1] == '1')

++sw;

}

else if (fileinfo[length].name[0] == 'M' && fileinfo[length].name[1] == 'A' && fileinfo[length].name[2] == 'P' && fileinfo[length].name[5] == 0)

{

++cm;

if (fileinfo[length].name[3] == '3')

{

if (fileinfo[length].name[4] == '1' || fileinfo[length].name[4] == '2')

++sc;

}

}

}

free(fileinfo);

*gmode = indetermined;

*hassec = false;

if (cm >= 30)

{

*gmode = commercial;

*hassec = sc >= 2;

}

else if (ud >= 9)

*gmode = retail;

else if (rg >= 18)

*gmode = registered;

else if (sw >= 9)

*gmode = shareware;

}

static char *FindIWADFile(void)

{

int i;

char *iwad = NULL;

for (i = 0; !iwad && i < nstandard_iwads; i++)

iwad = I_FindFile(standard_iwads[i], ".wad");

return iwad;

}

static void IdentifyVersion(void)

{

char *iwad = FindIWADFile();

if (iwad && *iwad)

{

CheckIWAD(iwad, &gamemode, &haswolflevels);

D_AddFile(iwad,source_iwad);

free(iwad);

}

else

{

I_Error("IdentifyVersion: IWAD not found.");

}

}

static void D_DoomMainSetup(void)

{

setbuf(stdout, NULL);

M_LoadDefaults();

IdentifyVersion();

G_ReloadDefaults();

I_CalculateRes(640, 480);

V_Init();

D_InitNetGame();

W_Init();

M_Init();

R_Init();

P_Init();

I_Init();

S_Init(snd_SfxVolume, snd_MusicVolume);

HU_Init();

I_InitGraphics();

ST_Init();

G_InitNew(sk_none, 1, 1);

}

void D_DoomMain(void)

{

D_DoomMainSetup();

D_DoomLoop();

}