/************************************************************************/
/*									*/
/*	ＢＧ ｄａｔａ の ビット操作 プログラム				*/
/*									*/
/************************************************************************/
#include <stdio.h>

#define unchar	unsigned char

#define STATUS_NO	15	/* ステータス項目数	  */

#define NUKINO		0	/* ヌキカラー		  */
#define BG1TYP		1	/* ＢＧ１タイプ		  */
#define BG1COL		2	/* ＢＧ１カラー		  */
#define BG2TYP		3	/* ＢＧ２スクリーンタイプ */
#define BG2COL		4	/* ＢＧ２カラー		  */
#define BG3TYP		5	/* ＢＧ３タイプ		  */
#define BG3COL		6	/* ＢＧ３カラー		  */
#define OBJTYP		7	/* ＯＢＪタイプ		  */
#define OBJCOL		8	/* ＯＢＪカラー		  */
#define DSPMOD		9	/* 画面モード		  */
#define CHRTRP		10	/* キャラ転送タイプ	  */
#define COLTRP		11	/* カラー転送タイプ	  */
#define SCRLNO		12	/* スクロールタイプ	  */
#define BGM_NO		13	/* ＢＧＭ Ｎｏ．	  */
#define CORSNO		14	/* コースＮｏ．		  */


main()
{

	/****** 変数宣言 ******/
	FILE	*fp;
	char	fname_buf[256];
	int	n;

	/****** ファイル検索 ******/
	fp = popen("ls -F *.dat","r");
	while (fgets(fname_buf, 256, fp) != NULL){
		n = strlen( fname_buf );
		fname_buf[n-1] = '\0';
		status_cnv( fname_buf );
	}
	pclose(fp);

}


/****************************************************************
*	ステータスデータ変換					*
****************************************************************/
status_cnv( char *df_name )
{


	/****** ＯＢＪカラー追加用変換データ ******/
	unchar	objcol_data[32] = { 0x1,
				    0x1,
				    0x2,
				    0x3,
				    0x6,
				    0x6,
				    0x0,
				    0x8,
				    0x1,
				    0x1,
				    0x1,
				    0x1,
				    0x1,
				    0x1,
				    0x1,
				    0x1,
				    0x0,
				    0x1,
				    0x2,
				    0x3,
				    0x4,
				    0x5,
				    0x6,
				    0x7,
				    0x8,
				    0x9,
				    0xA,
				    0xB,
				    0xC,
				    0xD,
				    0xE,
				    0xF, };


	/****** 変数宣言 ******/
	unchar	old_bit_size[STATUS_NO] = { 5,	  /* ヌキカラー		    */
					    4,	  /* ＢＧ１タイプ	    */
					    4,	  /* ＢＧ１カラー	    */
					    5,	  /* ＢＧ２スクリーンタイプ */
					    5,	  /* ＢＧ２カラー	    */
					    6,	  /* ＢＧ３タイプ	    */
					    5,	  /* ＢＧ３カラー	    */
					    7,	  /* ＯＢＪタイプ	    */
					    4,	  /* ＯＢＪカラー	    */
					    5,	  /* 画面モード		    */
					    5,	  /* キャラ転送タイプ	    */
					    4,	  /* カラー転送タイプ	    */
					    4,	  /* スクロールタイプ	    */
					    4,	  /* ＢＧＭ Ｎｏ．	    */
					    2, }; /* コースＮｏ．	    */

	unchar	new_bit_size[STATUS_NO] = { 5,	  /* ヌキカラー		    */
					    4,	  /* ＢＧ１タイプ	    */
					    5,	  /* ＢＧ１カラー	    */
					    5,	  /* ＢＧ２スクリーンタイプ */
					    6,	  /* ＢＧ２カラー	    */
					    6,	  /* ＢＧ３タイプ	    */
					    6,	  /* ＢＧ３カラー	    */
					    7,	  /* ＯＢＪタイプ	    */
					    4,	  /* ＯＢＪカラー	    */
					    5,	  /* 画面モード		    */
					    6,	  /* キャラ転送タイプ	    */
					    5,	  /* カラー転送タイプ	    */
					    5,	  /* スクロールタイプ	    */
					    4,	  /* ＢＧＭ Ｎｏ．	    */
					    2, }; /* コースＮｏ．	    */

	FILE *fpr, *fpw;

	int	bgdt_size ;
	unchar	bgdt_buf[0x4000];
	unchar	bgdt_buf2[0x4000];

	unchar	status_data[STATUS_NO];

	int	old_buf_p, new_buf_p, bit_p, bit_no;
	unchar	byte_data;

	int	i, j, k, l ;

	/****** ＤＡＴ ファイル読み込み ******/
	if( !( fpr = fopen( df_name,"r" ) ) ){
		printf( "can't read open (%s) !!\n", df_name );
		exit(1);
	}
	if( !(bgdt_size = fread( bgdt_buf, sizeof( unchar ), 0x4000, fpr ) ) ){
		printf( "can't read (%s) !!\n", df_name );
		exit(1);
	}
	fclose( fpr );

	/****************************************************************
	*	旧ステータスデータ読み込み				*
	****************************************************************/

	old_buf_p = 0;
	bit_p	  = 0;

	for ( i=0; i<STATUS_NO; i++ ) {

		bit_no	       = old_bit_size[i];
		status_data[i] = 0;

		for ( j=0; j<bit_no; j++ ) {
			if ( bit_p <= 0 ) {
				byte_data = bgdt_buf[old_buf_p++];
				bit_p = 8;
			}
			status_data[i] <<= 1;
			if ( byte_data & 0x80 ) status_data[i]++;

			byte_data <<= 1;
			bit_p--;
		}
	}

	/********************************************************
	*	旧ステータスデータ表示				*
	********************************************************/
	printf("\n\t《 ステータスデータ 》\n");
	printf(" ﾇｷｶﾗ-          [ %02X ]  ",status_data[NUKINO]);
	printf(" BG1ﾀｲﾌﾟ        [ %02X ]\n",status_data[BG1TYP]);
	printf(" BG1ｶﾗ-         [ %02X ]  ",status_data[BG1COL]);
	printf(" BG2ｽｸﾘ-ﾝﾀｲﾌﾟ   [ %02X ]\n",status_data[BG2TYP]);
	printf(" BG2ｶﾗ-         [ %02X ]  ",status_data[BG2COL]);
	printf(" BG3ﾀｲﾌﾟ        [ %02X ]\n",status_data[BG3TYP]);
	printf(" BG3ｶﾗ-         [ %02X ]  ",status_data[BG3COL]);
	printf(" OBJﾀｲﾌﾟ        [ %02X ]\n",status_data[OBJTYP]);
	printf(" OBJｶﾗｰﾟ        [ %02X ]  ",status_data[OBJCOL]);
	printf(" GAMEN-MODE     [ %02X ]\n",status_data[DSPMOD]);
	printf(" CHR-TENSOﾀｲﾌﾟ  [ %02X ]  ",status_data[CHRTRP]);
	printf(" COL-TENSOﾀｲﾌﾟ  [ %02X ]\n",status_data[COLTRP]);
	printf(" ｽｸﾛ-ﾙﾀｲﾌﾟ      [ %02X ]  ",status_data[SCRLNO]);
	printf(" BGM-NO.        [ %02X ]\n",status_data[BGM_NO]);
	printf(" ｺ-ｽ-NO.        [ %02X ]  ",status_data[CORSNO]);
	printf("\n");
	printf("\n");


	/****************************************************************
	*	ステータスデータ変更					*
	****************************************************************/

	/*
	status_data[OBJCOL] = objcol_data[status_data[OBJTYP]];
	*/


	/****************************************************************
	*	新ステータスデータ書き込み				*
	****************************************************************/

	new_buf_p = 0;
	bit_p	  = 0;

	for ( i=0; i<STATUS_NO; i++ ) {

		bit_no	       =   new_bit_size[i];
		status_data[i] <<= ( 8 - bit_no );

		for ( j=0; j<bit_no; j++ ) {
			bgdt_buf2[new_buf_p] <<= 1;
			if ( status_data[i] & 0x80 ) bgdt_buf2[new_buf_p]++;

			status_data[i] <<= 1;
			if ( ++bit_p >= 8 ) {
				new_buf_p++;
				bit_p = 0;
			}
		}
	}

	if ( bit_p != 0 ) bgdt_buf2[new_buf_p++] <<= ( 8 - bit_p );

	/********************************************************
	*	新ステータスデータ表示				*
	********************************************************/
	printf("\n\t《 ステータスデータ 》\n");
	printf(" ﾇｷｶﾗ-          [ %02X ]  ",status_data[NUKINO]);
	printf(" BG1ﾀｲﾌﾟ        [ %02X ]\n",status_data[BG1TYP]);
	printf(" BG1ｶﾗ-         [ %02X ]  ",status_data[BG1COL]);
	printf(" BG2ｽｸﾘ-ﾝﾀｲﾌﾟ   [ %02X ]\n",status_data[BG2TYP]);
	printf(" BG2ｶﾗ-         [ %02X ]  ",status_data[BG2COL]);
	printf(" BG3ﾀｲﾌﾟ        [ %02X ]\n",status_data[BG3TYP]);
	printf(" BG3ｶﾗ-         [ %02X ]  ",status_data[BG3COL]);
	printf(" OBJﾀｲﾌﾟ        [ %02X ]\n",status_data[OBJTYP]);
	printf(" OBJｶﾗｰﾟ        [ %02X ]  ",status_data[OBJCOL]);
	printf(" GAMEN-MODE     [ %02X ]\n",status_data[DSPMOD]);
	printf(" CHR-TENSOﾀｲﾌﾟ  [ %02X ]  ",status_data[CHRTRP]);
	printf(" COL-TENSOﾀｲﾌﾟ  [ %02X ]\n",status_data[COLTRP]);
	printf(" ｽｸﾛ-ﾙﾀｲﾌﾟ      [ %02X ]  ",status_data[SCRLNO]);
	printf(" BGM-NO.        [ %02X ]\n",status_data[BGM_NO]);
	printf(" ｺ-ｽ-NO.        [ %02X ]  ",status_data[CORSNO]);
	printf("\n");
	printf("\n");

	/****************************************************************
	*	コースデータ書き込み					*
	****************************************************************/

	for ( i=( bgdt_size - old_buf_p); i>0; i-- ) {
		bgdt_buf2[new_buf_p++] = bgdt_buf[old_buf_p++];
	}


	if( !( fpw = fopen( df_name,"w" ) ) ){
		printf( "can't write open (%s) !!\n", df_name );
		exit(1);
	}
	if( fwrite( bgdt_buf2, sizeof( unchar ), new_buf_p, fpw ) != new_buf_p ){
		printf( "can't write (%s) !!\n", df_name );
		exit(1);
	}
	fclose( fpw );


}