p_tick.c

#include "doomdef.h"
#include "p_local.h"
#ifdef MARS
#include "mars.h"
#endif

VINT playertics, thinkertics, sighttics, basetics, latetics;
VINT tictics, drawtics;

boolean		gamepaused;
jagobj_t	*pausepic;
char		clearscreen = 0;

/*
===============================================================================

								THINKERS

All thinkers should be allocated by Z_Malloc so they can be operated on uniformly.  The actual
structures will vary in size, but the first element must be thinker_t.

Mobjs are similar to thinkers, but kept seperate for more optimal list
processing
===============================================================================
*/

thinker_t	thinkercap;	/* both the head and tail of the thinker list */
degenmobj_t		mobjhead;	/* head and tail of mobj list */
degenmobj_t		freemobjhead, freestaticmobjhead;	/* head and tail of free mobj list */
degenmobj_t		limbomobjhead;

//int			activethinkers;	/* debug count */
//int			activemobjs;	/* debug count */

/*
===============
=
= P_InitThinkers
=
===============
*/

void P_InitThinkers (void)
{
	thinkercap.prev = thinkercap.next  = &thinkercap;
	mobjhead.next = mobjhead.prev = LPTR_TO_NNSPTR((void *)&mobjhead);
	freemobjhead.next = freemobjhead.prev = LPTR_TO_NNSPTR((void *)&freemobjhead);
	freestaticmobjhead.next = freestaticmobjhead.prev = LPTR_TO_NNSPTR((void *)&freestaticmobjhead);
	limbomobjhead.next = limbomobjhead.prev = LPTR_TO_NNSPTR((void*)&limbomobjhead);
}

/*
===============
=
= P_SpawnThinker_
=
===============
*/

void *P_SpawnThinker_ (int size, int thinker_offset)
{
	void *p = Z_Malloc(size, PU_LEVSPEC);
	D_memset(p, 0, size);
	P_AddThinker((void *)((char *)p + thinker_offset));
	return p;
}

/*
===============
=
= P_AddThinker
=
= Adds a new thinker at the end of the list
=
===============
*/

void P_AddThinker (thinker_t *thinker)
{
	thinkercap.prev->next = thinker;
	thinker->next = &thinkercap;
	thinker->prev = thinkercap.prev;
	thinkercap.prev = thinker;
}


/*
===============
=
= P_RemoveThinker
=
= Deallocation is lazy -- it will not actually be freed until its
= thinking turn comes up
=
===============
*/

void P_RemoveThinker (thinker_t *thinker)
{
	thinker->function = (think_t)-1;
}

/*
===============
=
= P_RunThinkers
=
===============
*/

void P_RunThinkers (void)
{
	thinker_t	*currentthinker;
	
	//activethinkers = 0;
	
	currentthinker = thinkercap.next;
	while (currentthinker != &thinkercap)
	{
		if (currentthinker->function == (think_t)-1)
		{	/* time to remove it */
			currentthinker->next->prev = currentthinker->prev;
			currentthinker->prev->next = currentthinker->next;
			Z_Free (currentthinker);
		}
		else
		{
			if (currentthinker->function)
			{
				currentthinker->function (currentthinker);
			}
			//activethinkers++;
		}
		currentthinker = currentthinker->next;
	}
}

/*============================================================================= */

/* 
=================== 
= 
= P_RunMobjBase  
=
= Run stuff that doesn't happen every tick
=================== 
*/ 

void	P_RunMobjBase (void)
{
#ifdef JAGUAR
	extern	int p_base_start;
	 
	DSPFunction (&p_base_start);
#else
	P_RunMobjBase2 ();
#endif
}

/*============================================================================= */

/*
==============
=
= P_CheckCheats
=
==============
*/
 
void P_CheckCheats (void)
{
#ifdef JAGUAR
	int		buttons, oldbuttons;
	int 	warpmap;
	int		i;
	player_t	*p;

	for (i=0 ; i<MAXPLAYERS ; i++)
	{
		if (!playeringame[i])
			continue;
		buttons = ticbuttons[i];
		oldbuttons = oldticbuttons[i];
	
		if ( (buttons & BT_PAUSE) && !(oldbuttons&BT_PAUSE) )
			gamepaused ^= 1;
	}

	if (netgame)
		return;

	buttons = ticbuttons[0];
	oldbuttons = oldticbuttons[0];

	if ( (oldbuttons&BT_PAUSE) || !(buttons & BT_PAUSE ) )
		return;

	if (buttons&JP_NUM)
	{	/* free stuff */
		p=&players[0];
		for (i=0 ; i<NUMCARDS ; i++)
			p->cards[i] = true;			
		p->armorpoints = 200;
		p->armortype = 2;
		for (i=0;i<NUMWEAPONS;i++) p->weaponowned[i] = true;
		for (i=0;i<NUMAMMO;i++) p->ammo[i] = p->maxammo[i] = 500;
	}

	if (buttons&JP_STAR)
	{	/* godmode */
		players[0].cheats ^= CF_GODMODE;
	}
	warpmap = 0;
	if (buttons&JP_1) warpmap = 1;
	if (buttons&JP_2) warpmap = 2;
	if (buttons&JP_3) warpmap = 3;
	if (buttons&JP_4) warpmap = 4;
	if (buttons&JP_5) warpmap = 5;
	if (buttons&JP_6) warpmap = 6;
	if (buttons&JP_7) warpmap = 7;
	if (buttons&JP_8) warpmap = 8;
	if (buttons&JP_9) warpmap = 9;
	if (buttons&JP_A) warpmap += 10;
	else if (buttons&JP_B) warpmap += 20;
	
	if (warpmap>0 && warpmap < 27)
	{
		gamemaplump = G_LumpNumForMapNum(warpmap);
		gameaction = ga_warped;
	}
#elif defined(MARS)
	int i;
	int buttons;
	int oldbuttons;
	const int stuff_combo = BT_A | BT_B | BT_C | BT_UP;
	const int godmode_combo = BT_X | BT_Y | BT_Z | BT_UP;
	player_t* p;
	boolean automap = (players[consoleplayer].automapflags & AF_ACTIVE) != 0;
	extern VINT showAllThings;
	extern VINT showAllLines;

	if (netgame)
		return;
	if (!gamepaused)
		return;

	buttons = ticrealbuttons;
	oldbuttons = oldticrealbuttons;

	if ((buttons & stuff_combo) == stuff_combo 
		&& (oldbuttons & stuff_combo) != stuff_combo)
	{
		if (automap)
		{
			showAllThings ^= 1;
			return;
		}
		/* free stuff */
		p = &players[0];
		for (i = 0; i < NUMCARDS; i++)
			p->cards[i] = true;
		p->armorpoints = 200;
		p->armortype = 2;
		for (i = 0; i < NUMWEAPONS; i++)
		{
			if (i == wp_supershotgun)
			{
				if (sprites[SPR_SGN2].numframes == 0)
					continue;
			}
			p->weaponowned[i] = true;
		}
		for (i = 0; i < NUMAMMO; i++)
		{
			p->ammo[i] = p->maxammo[i] = 500;
		}
	}

	if ((buttons & godmode_combo) == godmode_combo 
		&& (oldbuttons & godmode_combo) != godmode_combo)
	{
		if (automap)
		{
			showAllLines ^= 1;
			return;
		}
		/* godmode */
		players[0].cheats ^= CF_GODMODE;
	}
#endif
}
  
void G_DoReborn (int playernum); 
void G_DoLoadLevel (void);

/*
=================
=
= P_Ticker
=
=================
*/

int		ticphase;

#ifdef MARS
#define frtc I_GetFRTCounter()
#else
#define frtc samplecount
#endif

int P_Ticker (void)
{
	int		start;
	int		ticstart;
	player_t	*pl;
	int 	playernum;

	if (demoplayback)
	{
		if (M_Ticker())
			return ga_exitdemo;
	}


	while (!I_RefreshLatched () )
	;		/* wait for refresh to latch all needed data before */
			/* running the next tick */

#ifdef JAGAUR
	while (DSPRead (&dspfinished) != 0xdef6)
	;		/* wait for sound mixing to complete */
#endif

    // bank-switch to the page with map data
	I_SetBankPage(segspage);

	gameaction = ga_nothing;

/* */
/* check for pause and cheats */
/* */
	P_CheckCheats ();
	
/* */
/* do option screen processing */
/* */

	for (playernum = 0, pl = players; playernum < MAXPLAYERS; playernum++, pl++)
		if (playeringame[playernum])
			O_Control(pl);

	if (gameaction != ga_nothing)
		return gameaction;

	/* */
	/* run player actions */
	/* */
	if (gamepaused)
		return 0;

	start = frtc;
	for (playernum = 0, pl = players; playernum < MAXPLAYERS; playernum++, pl++)
		if (playeringame[playernum])
		{
			if (pl->playerstate == PST_REBORN)
				G_DoReborn(playernum);
			AM_Control(pl);
			P_PlayerThink(pl);
		}
	playertics = frtc - start;

#ifdef THINKERS_30HZ
	start = frtc;
	P_RunThinkers();
	thinkertics = frtc - start;
#endif

	if (gametic != prevgametic)
	{
		ticstart = frtc;

#ifndef THINKERS_30HZ
		start = frtc;
		P_RunThinkers();
		thinkertics = frtc - start;
#endif

		start = frtc;
		P_CheckSights();
		sighttics = frtc - start;

		start = frtc;
		P_RunMobjBase();
		basetics = frtc - start;

		start = frtc;
		P_RunMobjLate();
		latetics = frtc - start;

		P_UpdateSpecials();

		P_RespawnSpecials();

		ST_Ticker();			/* update status bar */

		HUD_Ticker();

		tictics = frtc - ticstart;
	}

	return gameaction;		/* may have been set to ga_died, ga_completed, */
							/* or ga_secretexit */
}


/* 
============= 
= 
= DrawPlaque 
= 
============= 
*/ 
 
void DrawPlaque (jagobj_t *pl)
{
#ifndef MARS
	int			x,y,w;
	short		*sdest;
	byte		*bdest, *source;
	extern		int isrvmode;
	
	while ( !I_RefreshCompleted () )
	;

	bufferpage = (byte *)screens[!workpage];
	source = pl->data;
	
	if (isrvmode == 0xc1 + (3<<9) )
	{	/* 320 mode, stretch pixels */
		bdest = (byte *)bufferpage + 80*320 + (160 - pl->width);
		w = pl->width;
		for (y=0 ; y<pl->height ; y++)
		{
			for (x=0 ; x<w ; x++)
			{
				bdest[x*2] = bdest[x*2+1] = *source++;
			}
			bdest += 320;
		}
	}
	else
	{	/* 160 mode, draw directly */
		sdest = (short *)bufferpage + 80*160 + (80 - pl->width/2);
		w = pl->width;
		for (y=0 ; y<pl->height ; y++)
		{
			for (x=0 ; x<w ; x++)
			{
				sdest[x] = palette8[*source++];
			}
			sdest += 160;
		}
	}
#else
	clearscreen = 2;
#endif
}

/* 
============= 
= 
= DrawPlaque 
= 
============= 
*/ 
#ifndef MARS
void DrawSinglePlaque (jagobj_t *pl)
{
	int			x,y,w;
	byte		*bdest, *source;
	
	while ( !I_RefreshCompleted () )
	;

	bufferpage = (byte *)screens[!workpage];
	source = pl->data;
	
	bdest = (byte *)bufferpage + 80*320 + (160 - pl->width/2);
	w = pl->width;
	for (y=0 ; y<pl->height ; y++)
	{
		for (x=0 ; x<w ; x++)
			bdest[x] = *source++;
		bdest += 320;
	}
}
#endif


/* 
============= 
= 
= P_Drawer 
= 
= draw current display 
============= 
*/ 
 
 
void P_Drawer (void) 
{ 	
	boolean automapactive = (players[consoleplayer].automapflags & AF_ACTIVE) != 0;
	boolean optionsactive = (players[consoleplayer].automapflags & AF_OPTIONSACTIVE) != 0;
	static boolean o_wasactive, am_wasactive = false;
	viewdef_t vd_;

	vd = &vd_;

#ifdef MARS
	extern	boolean	debugscreenactive;

	drawtics = frtc;

	if ((!optionsactive && o_wasactive) || (!automapactive && am_wasactive)) {
		clearscreen = 2;
	}

	if (clearscreen > 0) {
		int width = viewportWidth * (lowres ? 2 : 1);

		I_ResetLineTable();

		if (width == 320)
			I_ClearFrameBuffer();
		else
			DrawTiledBackground();

		I_DrawSbar();
		
		if (clearscreen == 2 || optionsactive)
			ST_ForceDraw();
		clearscreen--;
	}

	if (initmathtables)
	{
		R_InitMathTables();
		initmathtables--;
	}

	/* view the guy you are playing */
	R_RenderPlayerView(consoleplayer);
	/* view the other guy in split screen mode */
	if (splitscreen) {
		Mars_R_SecWait();
		R_RenderPlayerView(consoleplayer ^ 1);
	}

	ST_Drawer();

	Mars_R_SecWait();

	if (automapactive)
		AM_Drawer();

	if (demoplayback)
		M_Drawer();
	if (optionsactive)
		O_Drawer();

	o_wasactive = optionsactive;
	am_wasactive = automapactive;

	drawtics = frtc - drawtics;

	if (debugscreenactive)
		I_DebugScreen();

	if (players[consoleplayer].message != NULL)
	{
		HUD_AddMessage(players[consoleplayer].message);
		players[consoleplayer].message = NULL;
	}
	HUD_Drawer ();
#else
	if (optionsactive)
	{
		O_Drawer ();
	}
	else if (gamepaused && refreshdrawn)
		DrawPlaque (pausepic);
	else if (automapactive)
	{
		ST_Drawer ();
		AM_Drawer ();
		I_Update ();
	}
	else
	{
#ifdef JAGUAR
		ST_Drawer();
#endif
		R_RenderPlayerView(consoleplayer);
		clearscreen = 0;
	}
	/* assume part of the refresh is now running parallel with main code */
#endif
}
 
 
extern	 VINT		ticremainder[MAXPLAYERS];

void P_Start (void)
{
	int i;
	extern boolean canwipe;

	/* load a level */
	G_DoLoadLevel();

	AM_Start ();
#ifndef MARS
	S_RestartSounds ();
#endif
	for (i = 0; i < MAXPLAYERS; i++)
	{
		players[i].automapflags = 0;
		players[i].ticremainder = 0;
	}
	M_ClearRandom ();

	HUD_Init();

	if (!demoplayback && !demorecording)
		if (!netgame || splitscreen)
			P_RandomSeed(I_GetTime());

	clearscreen = 2;
	canwipe = true;
}

void P_Stop (void)
{
	M_Stop();
	Z_FreeTags (mainzone);
	HUD_Init();
}

void P_Update (void)
{
	int ticratebak;

	ticratebak = ticsperframe;

	if (viewportWidth >= 320 && ticsperframe < 3)
		ticsperframe = 3;

	I_Update();

	ticsperframe = ticratebak;
}