// "Build Engine & Tools" Copyright (c) 1993-1997 Ken Silverman
// Ken Silverman's official web site: "http://www.advsys.net/ken"
// See the included license file "BUILDLIC.TXT" for license info.
//
// This file has been modified from Ken Silverman's original release
// by Jonathon Fowler (jf@jonof.id.au)

#include "compat.h"
#include "pragmas.h"

#define MAXWADS 4096

static long artversion, localtilestart, localtileend;
static long fil1, fil2;
static char wadata[MAXWADS][8];
static long wadplc[MAXWADS], wadlen[MAXWADS], numwads;
static long xoffses[1024], ylookup[256], picanm[MAXWADS];
static short tilesizx[MAXWADS], tilesizy[MAXWADS];
static char pal[768], palookup[8192];
static char screen[65536], tempbuf[131072];


void loadwadheader(void)
{
	long i, j;

	Bread(fil1,&tempbuf[0],12);
	numwads = ((long)tempbuf[4])+(((long)tempbuf[5])<<8)+(((long)tempbuf[6])<<16)+(((long)tempbuf[7])<<24);
	i = ((long)tempbuf[8])+(((long)tempbuf[9])<<8)+(((long)tempbuf[10])<<16)+(((long)tempbuf[11])<<24);
	Blseek(fil1,i,BSEEK_SET);
	Bread(fil1,&tempbuf[0],numwads*16);
	j = 0;
	for(i=0;i<numwads;i++)
	{
		wadplc[i] = ((long)tempbuf[j])+(((long)tempbuf[j+1])<<8)+(((long)tempbuf[j+2])<<16)+(((long)tempbuf[j+3])<<24);
		j += 4;
		wadlen[i] = ((long)tempbuf[j])+(((long)tempbuf[j+1])<<8)+(((long)tempbuf[j+2])<<16)+(((long)tempbuf[j+3])<<24);
		j += 4;
		wadata[i][0] = tempbuf[j+0]; wadata[i][1] = tempbuf[j+1];
		wadata[i][2] = tempbuf[j+2]; wadata[i][3] = tempbuf[j+3];
		wadata[i][4] = tempbuf[j+4]; wadata[i][5] = tempbuf[j+5];
		wadata[i][6] = tempbuf[j+6]; wadata[i][7] = tempbuf[j+7];
		j += 8;
	}
}

void convpalette(void)
{
	long i, fil3;
	short danumshades;

	i = 0;
	while (Bstrncasecmp(wadata[i],"PLAYPAL",7) != 0) i++;
	Blseek(fil1,wadplc[i],BSEEK_SET);
	Bread(fil1,pal,768);
	for(i=0;i<768;i++) pal[i] >>= 2;

	i = 0;
	while (Bstrncasecmp(wadata[i],"COLORMAP",8) != 0) i++;
	Blseek(fil1,wadplc[i],BSEEK_SET);
	Bread(fil1,palookup,8192);

	if ((fil3 = Bopen("palette.dat",BO_BINARY|BO_TRUNC|BO_CREAT|BO_WRONLY,BS_IREAD|BS_IWRITE)) == -1)
		{ printf("Cannot save palette.dat\n"); exit(0); }
	Bwrite(fil3,pal,768);
	danumshades = 32;
	Bwrite(fil3,&danumshades,2);
	Bwrite(fil3,palookup,8192);
	Bclose(fil3);
}

void saveart (short tilenum, short xlen, short ylen)
{
	long i, x, p, pend;

	pend = ylookup[ylen];

	tilesizx[tilenum] = xlen;
	tilesizy[tilenum] = ylen;
	i = 0;
	for(x=0;x<xlen;x++)
		for(p=x;p<pend;p+=320)
			tempbuf[i++] = screen[p];
	if (Bwrite(fil2,&tempbuf[0],i) < 0)
	{
		printf("NOT ENOUGH DISK SPACE!\n");
		exit(0);
	}
}

void savenames(void)
{
	char buffer[160];
	long fil3, i, j;

	if ((fil3 = Bopen("names.h",BO_BINARY|BO_TRUNC|BO_CREAT|BO_WRONLY,BS_IREAD|BS_IWRITE)) == -1)
		return;

	strcpy(&buffer,"//Be careful when changing this file - it is parsed by Editart and Build.");
	buffer[73] = 13, buffer[74] = 10, buffer[75] = 0;
	Bwrite(fil3,&buffer[0],75);

	strcpy(&buffer,"#define ");
	for(i=0;i<numwads;i++)
		if (wadata[i][0] != 0)
		{
			j = 8;
			while ((j < 16) && (wadata[i][j-8] != 0))
				{ buffer[j] = wadata[i][j-8]; j++; }
			buffer[j++] = 32;

			if (i >= 10000) buffer[j++] = ((i/10000)%10)+48;
			if (i >= 1000) buffer[j++] = ((i/1000)%10)+48;
			if (i >= 100) buffer[j++] = ((i/100)%10)+48;
			if (i >= 10) buffer[j++] = ((i/10)%10)+48;
			buffer[j++] = (i%10)+48;

			buffer[j++] = 13;
			buffer[j++] = 10;
			Bwrite(fil3,&buffer[0],j);
		}

	Bclose(fil3);
}

void showart (char *part)
{
	char yoff, ylen;
	short xsiz, ysiz;
	long i, j, z, zx, zzx, x, y, p, pend, junk, curplc;

	curplc = -1;
	if ((Bstrncasecmp(part,"L_START",7) == 0) || (Bstrncasecmp(part,"S_START",7) == 0) || (Bstrncasecmp(part,"P_START",7) == 0))
	{
		if (Bstrncasecmp(part,"L_START",7) == 0)
			z = 462;
		else
		{
			z = 0;
			while (Bstrncasecmp(wadata[z],part,7) != 0) z++;
			z++;
		}
	 
		do
		{
			if (Bstrncasecmp(wadata[z],"P1_START",8) == 0) z++;
			if (Bstrncasecmp(wadata[z],"P1_END",6) == 0) z++;
			if (Bstrncasecmp(wadata[z],"P2_START",8) == 0) z++;
			if (Bstrncasecmp(wadata[z],"S_START",7) == 0) break;
			if (Bstrncasecmp(wadata[z],"S_END",5) == 0) break;
			if (Bstrncasecmp(wadata[z],"P_END",5) == 0) break;
		  
			if (curplc != wadplc[z]) Blseek(fil1,wadplc[z],BSEEK_SET);
			read(fil1,&tempbuf[0],wadlen[z]);
			curplc = wadplc[z]+wadlen[z];

			xsiz = (long)tempbuf[0]+(((long)tempbuf[1])<<8);
			ysiz = (long)tempbuf[2]+(((long)tempbuf[3])<<8);
			if ((xsiz <= 0) || (ysiz <= 0) || (xsiz > 320) || (ysiz > 200)) goto skipit;
			i = 8;
			for(zx=0;zx<xsiz;zx++)
			{
				xoffses[zx] = ((long)tempbuf[i])+(((long)tempbuf[i+1])<<8)+(((long)tempbuf[i+2])<<16)+(((long)tempbuf[i+3])<<24);
				i += 4;
			}

			clearbuf(screen,ylookup[ysiz]>>2,0xffffffff);

			for(x=0;x<xsiz;x++)
			{
				i = xoffses[x];
				yoff = tempbuf[i++];
				while (yoff != 255)
				{
					p = ylookup[yoff]+x;
					pend = p+ylookup[tempbuf[i]];
					i += 2;
					for(;p<pend;p+=320)
						screen[p] = tempbuf[i++];
					i++;
					yoff = tempbuf[i++];
				}
			}

			saveart(z,xsiz,ysiz);
skipit:
			z++;
		} while (z < numwads);
	}
	else
	{
		z = 0;
		while (Bstrncasecmp(wadata[z],part,7) != 0) z++;
		z++;
	 
		while (1)
		{
			if (Bstrncasecmp(wadata[z],"F1_START",8) == 0) z++;
			if (Bstrncasecmp(wadata[z],"F1_END",6) == 0) z++;
			if (Bstrncasecmp(wadata[z],"F_END",5) == 0) break;

			if (wadlen[z] == 4096)
			{
				if (curplc != wadplc[z]) Blseek(fil1,wadplc[z],BSEEK_SET);
				Bread(fil1,&tempbuf[0],4096);
				curplc = wadplc[z]+4096;
				i = 0;
				for(x=0;x<64;x++)
					for(p=x;p<320*64;p+=320)
						screen[p] = tempbuf[i++];

				saveart(z,64,64);
			}

			z++;
		}
	}
}

int main(int argc, char **argv)
{
	long i, j, endoffile;
	char wadfile[80];

	printf("Wad2Art!                                       Copyright 1995 by Ken Silverman\n");

	if (argc != 2)
	{
		printf("Command line parameters: Wad2Art [Doom IWAD file]\n");
		printf("   Creates TILES000.ART, PALETTE.DAT, and NAMES.H in current directory.\n");
		printf("   Ex: wad2art c:\\doom\\doom.wad\n");
		exit(0);
	}

	strcpy(wadfile,argv[1]);
	if (strchr(wadfile,'.') == 0) strcat(wadfile,".wad");
	if ((fil1 = Bopen(wadfile,BO_BINARY|BO_RDONLY,BS_IREAD)) == -1)
		{ printf("Wad not found\n"); exit(0); }
	if ((fil2 = Bopen("tiles000.art",BO_BINARY|BO_TRUNC|BO_CREAT|BO_WRONLY,BS_IREAD|BS_IWRITE)) == -1)
		{ printf("Can't open art file\n"); exit(0); }

	j = 0;
	for(i=0;i<256;i++) { ylookup[i] = j; j += 320; }

	printf("Loading wad header...\n");
	loadwadheader();
	Blseek(fil2,16+(numwads<<3),SEEK_SET);
	for(i=0;i<numwads;i++)
		{ tilesizx[i] = 0; tilesizy[i] = 0; picanm[i] = 0L; }

	printf("Saving names.h\n");
	savenames();
	printf("Converting palette\n");
	convpalette();

	printf("Saving tiles000.art\n");
	showart("L_START");
	showart("S_START");
	showart("P_START");
	showart("F_START");

	printf("Saving tiles000.art header\n");
	artversion = 1; localtilestart = 0; localtileend = numwads-1;

	endoffile = Btell(fil2);
	Blseek(fil2,0,BSEEK_SET);
	Bwrite(fil2,&artversion,4);
	Bwrite(fil2,&numwads,4);
	Bwrite(fil2,&localtilestart,4);
	Bwrite(fil2,&localtileend,4);
	Bwrite(fil2,&tilesizx[0],numwads<<1);
	Bwrite(fil2,&tilesizy[0],numwads<<1);
	Bwrite(fil2,&picanm[0],numwads<<2);
	Blseek(fil2,endoffile,BSEEK_SET);

	Bclose(fil2);
	Bclose(fil1);

	printf("Congratulations!  Your disk actually had enough space this time!\n");

	return 0;
}

