#include "typedefs.h"
#include "sequence.h"
#include "engine.h"
#include "exhumed.h"
#include "sound.h"
#include "player.h"
#include "trigdat.h"
#include "move.h"
#include "view.h"
#include "init.h"
#ifndef __WATCOMC__
#include <cstring>
#include <cstdio> // for printf
#else
#include <string.h>
#include <stdio.h>
#endif

// TEMP
#include <assert.h>

#define kMaxSequences	4096
#define kMaxSEQFiles	78
#define kMaxSEQFrames	18000
#define kMaxSEQChunks	21000

short sequences = 0;
short frames = 0;
short chunks = 0;
short nPilotLightFrame;
short nPilotLightCount;

short nPilotLightBase;
short laststatustile;

short nShadowWidth = 1;
short nFlameHeight = 1;

short SeqBase[kMaxSequences];
short SeqSize[kMaxSequences];
short SeqFlag[kMaxSequences];

short FrameSound[kMaxSEQFrames];
short FrameSize[kMaxSEQFrames];
short FrameBase[kMaxSEQFrames];
short FrameFlag[kMaxSEQFrames];

short ChunkYpos[kMaxSEQChunks];
short ChunkXpos[kMaxSEQChunks];
short ChunkPict[kMaxSEQChunks];
short ChunkFlag[kMaxSEQChunks];


char *SeqNames[kMaxSEQFiles] =
{
  "rothands",
  "sword",
  "pistol",
  "m_60",
  "flamer", // 4
  "grenade",
  "cobra",
  "bonesaw",
  "scramble",
  "glove",
  "mummy", // 10
  "skull",
  "poof",
  "kapow",
  "fireball",
  "bubble",
  "spider", // 16
  "anubis",
  "anuball",
  "fish",
  "snakehed", // 20?
  "snakbody",
  "wasp",
  "cobrapow",
  "scorp",
  "joe", // 25
  "status",
  "dead",
  "deadex",
  "anupoof",
  "skulpoof", // 30
  "bullet",
  "shadow",
  "grenroll",
  "grenboom",
  "splash",
  "grenpow",
  "skulstrt",
  "firepoof",
  "bloodhit",
  "lion", // 40
  "items",
  "lavag", // 42
  "lsplash",
  "lavashot",
  "smokebal",
  "firepot",
  "rex",
  "set", // 48
  "queen",
  "roach", // 50
  "hawk",
  "setghost",
  "setgblow",
  "bizztail",
  "bizzpoof",
  "queenegg",
  "roacshot",
  "backgrnd",
  "screens", // 59
  "arrow",
  "fonts",
  "drips",
  "firetrap",
  "magic2",
  "creepy",
  "slider", // 66
  "ravolt",
  "eyehit",
  "font2", // 69
  "seebubbl",
  "blood",
  "drum",
  "poof2",
  "deadbrn",
  "grenbubb",
  "rochfire",
  "rat"
};

short SeqOffsets[kMaxSEQFiles];


int seq_ReadSequence(char *seqName)
{
	int i;
	char buffer[200];
	buffer[0] = '\0';

	strcat(buffer, seqName);
	strcat(buffer, ".seq");

	int hFile = kopen4load(buffer, 1);
	if (hFile == -1) 
	{
		printf("Unable to open '%s'!\n", buffer);
		kclose(hFile);
		return 0;
	}

	short tag;
	kread(hFile, &tag, sizeof(tag));
	if (tag < 'HI' || tag > 'HI' && tag != 'SD')
	{
		printf("Unsupported sequence version!\n");
		kclose(hFile);
		return 0;
	}

	short centerx, centery; // TODO - are global vars?
	short nSeqs; 
	kread(hFile, &centerx, sizeof(centerx));
	kread(hFile, &centery, sizeof(centery));
	kread(hFile, &nSeqs, sizeof(nSeqs));

	if (nSeqs <= 0 || sequences + nSeqs >= kMaxSequences)
	{
		if (nSeqs < 0) 
		{
			printf("Invalid sequence count!\n");
			kclose(hFile);
			return 0;
		}
		else {
			bail2dos("Not enough sequences available!  Increase array!\n");
		}
	}

	kread(hFile, &SeqBase[sequences], nSeqs * sizeof(SeqBase[0]));
	kread(hFile, &SeqSize[sequences], nSeqs * sizeof(SeqSize[0]));
	kread(hFile, &SeqFlag[sequences], nSeqs * sizeof(SeqFlag[0]));

	for (i = 0; i < nSeqs; i++)
	{
		SeqBase[sequences + i] += frames;
	}

	sshort nFrames;
	kread(hFile, &nFrames, sizeof(nFrames));

	if (nFrames <= 0 || frames + nFrames >= kMaxSEQFrames)
	{
		if (nFrames < 0 )
		{
			printf("Invalid frame count!\n");
			kclose(hFile);
			return 0;
		}
		else {
			bail2dos("Not enough frames available!  Increase FRAMEMAX!\n");
		}
	}

	kread(hFile, &FrameBase[frames], nFrames * sizeof(FrameBase[0]));
	kread(hFile, &FrameSize[frames], nFrames * sizeof(FrameSize[0]));
	kread(hFile, &FrameFlag[frames], nFrames * sizeof(FrameFlag[0]));
	memset(&FrameSound[frames], -1,  nFrames * sizeof(FrameSound[0]));

	for (i = 0; i < nFrames; i++)
	{
		FrameBase[frames + i] += chunks;
	}

	sshort nChunks;
	kread(hFile, &nChunks, sizeof(nChunks));

	if (nChunks < 0 || chunks + nChunks >= kMaxSEQChunks)
	{
		if (nChunks < 0 )
		{
			printf("Invalid chunk count!\n");
			kclose(hFile);
			return 0;
		}
		else {
			bail2dos("Not enough chunks available!  Increase CHUNKMAX!\n");
		}
	}

	kread(hFile, &ChunkXpos[chunks], nChunks * sizeof(ChunkXpos[0]));
	kread(hFile, &ChunkYpos[chunks], nChunks * sizeof(ChunkYpos[0]));
	kread(hFile, &ChunkPict[chunks], nChunks * sizeof(ChunkPict[0]));
	kread(hFile, &ChunkFlag[chunks], nChunks * sizeof(ChunkFlag[0]));

	for (i = 0; i < nChunks; i++)
	{
		ChunkXpos[chunks + i] -= centerx;
		ChunkYpos[chunks + i] -= centery;
	}

	sequences += nSeqs;
	FrameBase[frames + nFrames] = chunks + nChunks;
	frames += nFrames;
	SeqBase[sequences] = frames;
	chunks += nChunks;

	if (tag == 'SD')
	{
		short var_20;
		kread(hFile, &var_20, sizeof(var_20));
		
		for (i = 0; i < var_20; i++)
		{
			kread(hFile, &buffer[i * 10], 8);
		}

		short var_24;
		kread(hFile, &var_24, sizeof(var_24));

		for (i = 0; i < var_24; i++)
		{
			short var_28, var_2C;
			kread(hFile, &var_28, sizeof(var_28));
			kread(hFile, &var_2C, sizeof(var_2C));

			int hSound = 0;
	//		int hSound = LoadSound();

			FrameSound[frames + var_28] = hSound | (var_2C & 0xFE00);
		}
	}

	kclose(hFile);
	return nSeqs;
}

int seq_GetFirstSeqPicnum(int nSeq)
{
	int i = SeqOffsets[nSeq];
	i = SeqBase[i];
	i = FrameBase[i];
	i = ChunkPict[i];

	return i;
}

void seq_LoadSequences()
{
	int i;

	for (i = 0; i < kMaxSEQFiles; i++)
	{
		SeqOffsets[i] = sequences;

		if (seq_ReadSequence(SeqNames[i]) == 0) {
			printf("Error loading '%s'\n", SeqNames[i]);
		}
	}

	nShadowPic = seq_GetFirstSeqPicnum(kSeqShadow);
	nShadowWidth = tilesizx[nShadowPic];

	nFlameHeight = tilesizy[seq_GetFirstSeqPicnum(kSeqFirePoof)];

	nBackgroundPic = seq_GetFirstSeqPicnum(kSeqBackgrnd);

	nPilotLightBase  = SeqBase[SeqOffsets[kSeqFlamer] + 3];
	nPilotLightCount = SeqSize[SeqOffsets[kSeqFlamer] + 3];
	nPilotLightFrame = 0;

	nFontFirstChar = seq_GetFirstSeqPicnum(kSeqFont2);

	short nSize = SeqSize[SeqOffsets[kSeqFont2]];
	
	for (i = 0; i < nSize; i++)
	{
		picanm[nFontFirstChar + i] &= 0xFF0000FF;
	}
}

void seq_DrawStatusSequence(short nSequence, ushort edx, short ebx)
{
	edx += SeqBase[nSequence];

	short nFrameBase = FrameBase[edx];
	sshort nFrameSize = FrameSize[edx];

	while (1)
	{
		nFrameSize--;
		if (nFrameSize < 0)
			break;

		uchar nStat = 1; // (thex, they) is middle

		laststatusx = ChunkXpos[nFrameBase] + 160;
		laststatusy = ChunkYpos[nFrameBase] + 100 + ebx;

		int thex = laststatusx;
		int they = laststatusy;

		if (laststatusx >= 155 && laststatusx <= 162) {
			laststatusx = 159;
		}

		// TEMP
		if (laststatusy == 188 && laststatusx == 159)
			laststatusy = 189;



		short chunkFlag = ChunkFlag[nFrameBase];

		if (chunkFlag & 1) {
			nStat = 0x9; // (thex, they) is middle, and x-flipped
		}

		if (chunkFlag & 2) {
			nStat |= 0x10; // y-flipped
		}

		laststatustile = ChunkPict[nFrameBase];

		if (bHiRes) {
			nStat |= 0x2; // scale and clip to viewing window
		}

		overwritesprite(laststatusx, laststatusy, laststatustile, 0, nStat, kPalNormal);
		nFrameBase++;
	}
}

short seq_GetFrameFlag(short val, short nFrame)
{
	return FrameFlag[SeqBase[val] + nFrame];
}

void seq_DrawPilotLightSeq(int xOffset, int yOffset)
{
	short nSect = nPlayerViewSect[nLocalPlayer];

	if (!(SectFlag[nSect] & kSectUnderwater))
	{
		short nFrame = nPilotLightBase + nPilotLightFrame;
		short nFrameBase = FrameBase[nFrame];
		short nFrameSize = FrameSize[nFrame];

		while (1)
		{
			nFrameSize--;
			if (nFrameSize < 0)
				return;

			short nTile = ChunkPict[nFrameBase];
			int x = ChunkXpos[nFrameBase] + (160 + xOffset);
			int y = ChunkYpos[nFrameBase] + (100 + yOffset);

			rotatesprite(x << 16, y << 16, 0x10000, (-8 * nPlayerDAng) & kAngleMask, nTile, -127, 1, 2, windowx1, windowy1, windowx2, windowy2);
			nFrameBase++;
		}
	}
}

/*
	6 parameters

	arg0 - shade?

*/

int seq_DrawGunSequence(int nSeqOffset, short dx, int xOffs, int yOffs, int nShade, int nPal)
{
	short nFrame = SeqBase[nSeqOffset] + dx;
	short nFrameBase = FrameBase[nFrame];
	short nFrameSize = FrameSize[nFrame];
	short frameFlag = FrameFlag[nFrame];

	while (1)
	{
		nFrameSize--;
		if (nFrameSize < 0)
			break;

		uchar nStat = 3;
		int x = ChunkXpos[nFrameBase] + 160;
		int y = ChunkYpos[nFrameBase] + 100;

		if (ChunkFlag[nFrameBase] & 1) {
			nStat = 11;
		}

		if (ChunkFlag[nFrameBase] & 2) {
			nStat |= 0x10;
		}

		short nTile = ChunkPict[nFrameBase];

		if (frameFlag & 4) {
			nShade = -100;
		}

		if (nPlayerInvisible[nLocalPlayer]) {
			nStat |= 0x4;
		}

		overwritesprite(x + xOffs, y + yOffs, nTile, nShade, nStat, nPal);
		nFrameBase++;
	}

	return frameFlag;
}

int seq_GetFrameSound(int val, int edx)
{
	return FrameSound[SeqBase[val] + edx];
}

void seq_MoveSequence(short nSprite, short nSeq, short bx)
{
	assert(nSeq >= 0); // TEMP

	int nSound = FrameSound[SeqBase[nSeq] + bx];
	if (nSound == -1) {
		return;
	}

	if (nSprite > -1) {
		D3PlayFX(nSound, nSprite);
	}
	else {
		PlayLocalSound(nSound, 0);
	}
}

int seq_GetSeqPicnum2(short nSeq, short nFrame)
{
	short nBase = FrameBase[SeqBase[nSeq] + nFrame];
	return ChunkPict[nBase];
}

int seq_GetSeqPicnum(short nSeq, short edx, short ebx)
{
	edx += SeqOffsets[nSeq];
	ebx += SeqBase[edx];
	short c = FrameBase[ebx];

	return ChunkPict[c];
}

int seq_PlotArrowSequence(short nSprite, short nSeq, int nVal)
{
	int nAngle = GetMyAngle(nCamerax - tsprite[nSprite].x, nCameray - tsprite[nSprite].y);

	int nSeqOffset = ((((tsprite[nSprite].ang + 512) - nAngle) + 128) & kAngleMask) >> 8;

	short nFrame = SeqBase[nSeqOffset + nSeq] + nVal;

	short nFrameBase = FrameBase[nFrame];
	short nFrameSize = FrameSize[nFrame];

	uchar nShade = tsprite[nSprite].shade;
	short nStat = tsprite[nSprite].cstat;

	nStat |= 0x80;

	if (nSeqOffset & 3) {
		nStat |= 0x18;
	}
	else {
		nStat &= 0x0E7;
	}

	if (FrameFlag[nFrame] & 4) {
		nShade -= 100;
	}

	tsprite[nSprite].cstat = nStat;
	tsprite[nSprite].shade = nShade;
	tsprite[nSprite].statnum = nFrameSize;

	if (ChunkFlag[nFrameBase] & 1)
	{
		tsprite[nSprite].xoffset = ChunkXpos[nFrameBase];
		tsprite[nSprite].cstat |= 4;
	}
	else
	{
		tsprite[nSprite].xoffset = -ChunkXpos[nFrameBase];
	}

	tsprite[nSprite].yoffset = -ChunkYpos[nFrameBase];
	tsprite[nSprite].picnum = ChunkPict[nFrameBase];

	return ChunkPict[nFrameBase];
}

int seq_PlotSequence(short nSprite, short edx, short nFrame, short ecx)
{
	int nAngle = GetMyAngle(nCamerax - tsprite[nSprite].x, nCameray - tsprite[nSprite].y);

	int val;

	if (ecx & 1)
	{
		val = 0;
	}
	else
	{
		val = (((tsprite[nSprite].ang - nAngle) + 128) & kAngleMask) >> 8;
	}

	int eax = SeqBase[edx] + nFrame;
	int edi = SeqBase[edx + val] + nFrame;

	short nBase = FrameBase[edi];
	short nSize = FrameSize[edi];

	schar shade = tsprite[nSprite].shade;

	if (FrameFlag[eax] & 4)
	{
		shade -= 100;
	}

	short nPict = ChunkPict[nBase];

	if (ecx & 0x100)
	{
		edx = -3;
	}
	else
	{
		edx = 100;
	}

	int esi = nSize + 1;
	esi += edx;

	int var_14 = edx + 1;
	short nOwner = tsprite[nSprite].owner;

	while (1)
	{
		esi--;
		nSize--;

		if (esi < var_14) {
			break;
		}

		tsprite[spritesortcnt].x = tsprite[nSprite].x;
		tsprite[spritesortcnt].y = tsprite[nSprite].y;
		tsprite[spritesortcnt].z = tsprite[nSprite].z;
		tsprite[spritesortcnt].shade = shade;
		tsprite[spritesortcnt].pal   = tsprite[nSprite].pal;
		tsprite[spritesortcnt].xrepeat = tsprite[nSprite].xrepeat;
		tsprite[spritesortcnt].yrepeat = tsprite[nSprite].yrepeat;
		tsprite[spritesortcnt].ang     = tsprite[nSprite].ang;
		tsprite[spritesortcnt].owner   = tsprite[nSprite].owner;
		tsprite[spritesortcnt].sectnum = tsprite[nSprite].sectnum;
		tsprite[spritesortcnt].cstat   = tsprite[nSprite].cstat |= 0x80;
		tsprite[spritesortcnt].statnum = esi;

		if (ChunkFlag[nBase] & 1)
		{
			tsprite[spritesortcnt].xoffset = ChunkXpos[nBase];
			tsprite[spritesortcnt].cstat |= 4; // x-flipped
		}
		else
		{
			tsprite[spritesortcnt].xoffset = -ChunkXpos[nBase];
		}

		tsprite[spritesortcnt].yoffset = -ChunkYpos[nBase];
		tsprite[spritesortcnt].picnum = ChunkPict[nBase];

		spritesortcnt++;
		nBase++;
	}

	if (!(tsprite[nSprite].cstat & 0x101) || (sprite[nOwner].statnum == 100 && nNetPlayerCount))
	{
		tsprite[nSprite].owner = -1;
	}
	else
	{
		short nSector = tsprite[nSprite].sectnum;
		int nFloorZ = sector[nSector].floorz;

		if (nFloorZ <= eyelevel[nLocalPlayer] + initz) {
			tsprite[nSprite].owner = -1;
		}
		else
		{
			tsprite[nSprite].picnum = nShadowPic;

			int edx = ((tilesizx[nPict] << 5) / nShadowWidth) - ((nFloorZ - tsprite[nSprite].z) >> 10);
			if (edx < 1) {
				edx = 1;
			}

			tsprite[nSprite].cstat = 0x22; // transluscence, floor sprite
			tsprite[nSprite].z = nFloorZ + 1;
			tsprite[nSprite].yrepeat = (uchar)edx;
			tsprite[nSprite].xrepeat = (uchar)edx;
			tsprite[nSprite].statnum = -3;
			tsprite[nSprite].pal = 0;
		}
	}

	return nPict;
}