/*
	showprep.c


	sp1.bat = cl /AL showprep.c getfile


	showprep  file???

	Takes all file???.dat files and makes a file.shw 1/2 scale file


	'.shw' FORMAT:

	int row,col,N,Text,i1,i2,i3,i4;
	if(Text==1) char HdrText[16][46]  (736 bytes)
	struct Color Lut[256];
	char filename[40];
		unsigned char Dat1[row/2][col/2];
	char filename[40];
		unsigned char Dat2[row/2][col/2];
	char filename[40];
		unsigned char Dat3[row/2][col/2];
      .       .           . 
      .       .           . 
      .       .           . 
	char filename[40];
		unsigned char DatN[row/2][col/2];

*/
#include <stdio.h>
#include <string.h>
#include "nomouse.h"

#define MAX_NUM 1000
#define S_SIZE 40

struct file_id
{
	char name[S_SIZE];
	long size;
	unsigned date,time;
};
extern struct file_id GF_File[MAX_NUM];
extern int GF_Order[MAX_NUM];
struct   Color
{
	unsigned char  r, g, b;
}Lut[256];
int ScreenXs=640,ScreenYs=480;
unsigned char Buffer[1024];
int Text=0,I1,I2,I3,I4;
char HdrText[16][46];
int Script=0;
char ScriptMesg[100][40];

main(int argc,char *argv[])

{
	int i,j,k,f;
	char string[100],name[100],cr=0xd,text[100];
	int num_files;
	FILE *fp,*fpshw,*fppal,*fpshi,*fpspt;
	int xs=ScreenXs,ys=ScreenYs,xs2=xs/2,ys2=ys/2;

	for(i=0;i<16;i++)
		for(j=0;j<45;j++)
			HdrText[i][j]=' ';
	strcpy(HdrText[15],"           HIT ANY KEY TO CONTINUE         ");
	if(argc<2)
	{
		printf("\n\n   showprep [name*] for alphabetical order\nor\n");
		printf(
			"   showprep /script [filename.typ] for list of files in order\n\n");
		printf("file01.dat message_01\n");
		printf("file02.dat message_02\n");
		exit(0);
	}
	strcpy(string,argv[1]);
	if(strcmpi(string,"/script")==0)
	{
		strcpy(string,argv[2]);
		fpspt=fopen(string,"rt");
		if(!fpspt)
		{
			printf("Could not open '%s' to read file names.\n\n",string);
			exit(0);
		}
		num_files=0;
		GF_Order[0]=0;
		while(fgets(text,100,fpspt))
		{
			sscanf(text,"%s%s",
				GF_File[num_files].name,ScriptMesg[num_files]);
			if(strlen(GF_File[num_files].name)<1)
				break;
			if(strlen(ScriptMesg[num_files])<1)
				strcpy(ScriptMesg[num_files],GF_File[num_files].name);
			ScriptMesg[num_files][39]='\0';
			num_files+=1;
			GF_Order[num_files]=num_files;
		}
		if(num_files<1)
			exit(0);
		Script=1;
	}
	for(k=0;k<strlen(string);k++)
		if(string[k]=='.')
			string[k]='\0';
	k=0;
	for(j=0;j<strlen(string);j++)
		if(string[j]!='*'&&string[j]!='?')
			name[k++]=string[j];
	name[k]='\0';
	strcpy(text,name);
	strcat(text,".shi");
	strcat(name,".shw");
	fpshw=fopen(name,"wb");
	if(!fpshw)
	{
		printf("Could not open '%s' to write binary.\n\n",name);
		exit(0);
	}
	fpshi=fopen(text,"rt");
	if(!fpshi)
	{
		printf("Could not find '%s' (message file).\n",text);
		Text=0;
	}
	else
	{
		printf("Found Message file -- '%s'\n",text);
		Text=1;
		i=0;
		while(fgets(text,45,fpshi))
		{
			for(k=0;k<strlen(text);k++)
				if(text[k]==0xa||text[k]==0xd)
					text[k]='\0';
			printf("%s\n",text);
			text[45]='\0';
			strcpy(HdrText[i++],text);
			if(i>=15)
				break;
		}
		fclose(fpshi);
	}
	printf("\nCreating '%s' ...\n",name);
	strcat(string,".dat");
	if(Script==0)
		num_files=load_File(string);
	if(num_files<1)
		exit(0);
	fwrite((char *)&ys2,sizeof(int),1,fpshw);
	fwrite((char *)&xs2,sizeof(int),1,fpshw);
	fwrite((char *)&num_files,sizeof(int),1,fpshw);
	fwrite((char *)&Text,sizeof(int),1,fpshw);
	fwrite((char *)&Script,sizeof(int),1,fpshw);
	fwrite((char *)&I2,sizeof(int),1,fpshw);
	fwrite((char *)&I3,sizeof(int),1,fpshw);
	fwrite((char *)&I4,sizeof(int),1,fpshw);
	if(Text==1)
		fwrite((char *)HdrText,sizeof(char),736,fpshw);
	strcpy(string,GF_File[GF_Order[0]].name);
	for(k=0;k<strlen(string);k++)
		if(string[k]=='.')
			string[k]='\0';
	strcat(string,".pal");
	fppal=fopen(string,"rt");
	if(!fppal)
	{
		printf("Could not open '%s' to read.\n\n",string);
		exit(0);
	}
	for(i=0;i<256;i++)
		fscanf(fppal,"%d%d%d%d",&j,&Lut[i].r,&Lut[i].g,&Lut[i].b);
	fclose(fppal);
	fwrite((char *)Lut,sizeof(struct Color),256,fpshw);
	for(f=0;f<num_files;f++)
	{
		printf("%cWorking '%s' ... %d of %d",
			cr,GF_File[GF_Order[f]].name,f+1,num_files);
		if(Script==1)
			printf(" message = '%s'                ",ScriptMesg[f]);
		fp=fopen(GF_File[GF_Order[f]].name,"rb");
		if(!fp)
		{
			printf("Could not open '%s' to read.\n\n",GF_File[GF_Order[f]].name);
			exit(0);
		}
		if(Script==0)
			fwrite((char *)GF_File[GF_Order[f]].name,sizeof(char),40,fpshw);
		else
			fwrite((char *)ScriptMesg[f],sizeof(char),40,fpshw);
		for(i=0;i<ys2;i++)
		{
			fread((char *)Buffer,sizeof(char),xs,fp);
			for(j=0;j<xs2;j++)
				Buffer[j]=Buffer[j*2];
			fwrite((char *)Buffer,sizeof(char),xs2,fpshw);
			fread((char *)Buffer,sizeof(char),xs,fp);
		}
		fclose(fp);
	}
	printf("\n");
	fclose(fpshw);
}                                                              