#include<windows.h>
#include<stdio.h>
#include<stdlib.h>
#include<conio.h>
#include<string.h>

#define DEBUG_MODE 0

#define MAX_LABEL 100 //ラベルの最大数
#define MAX_TEMP_BUFFER 10000 //テンポラリ最大
#define MAX_SCRIPT_LINE 3000 //スクリプトの最大行

char DataTemp[MAX_TEMP_BUFFER];//テンポラリ
int DataAdr[MAX_SCRIPT_LINE];//スクリプトの行数

char WinName[16]="";//人物の名前
char WinMessage[80]="";//表示するメッセージ
int WinMesCount=0;//表示中のメッセージのカウント
int WinMesMax=0;//メッセージの文字数
int LabelNum[MAX_LABEL];//ラベルの行番号
char LabelName[MAX_LABEL][20];//ラベルの名前
char MesParam[20][50];//分割された命令の引数(最大20)
int MesParamCount;//分割の数
int ScriptAdr=0;//スクリプトのポインタ
int ScriptAdrMax=0;//最大スクリプト行

enum CODE_LIST{
	C_GOTO=2,
	C_JUMP=3,
	C_GOTOTEXT=4,
	C_JUMPTEXT=5,
	C_CJUMP=6,
	C_WAIT=7,
	C_PARAMETER=8,
	C_IF=9,
	C_END=99,
	C_CG=20,
	C_BG=21,
	C_CHAR=22,
	C_CHARCLEAR=23,
	C_EFFECTCG=24,
	C_EFFECT=25,
	C_FO=26,
	C_FI=27,
	C_SHAKE=28,
	C_FLASH=29,
	C_SOUND=40,
	C_SOUNDSTOP=41,
	C_SE=42,
};
//-------------------------------------------------------------
void ScriptInit()
{//ステータス初期化する
	//新規にファイルを読んだ時に実行するとよい
	int a;
	for(a=0;a<MAX_TEMP_BUFFER;a++){
		DataTemp[a]=0;
	}
	ScriptAdrMax=ScriptAdr=0;
	WinMesMax=WinMesCount=0;
}
char* GetScriptData(char* out)
{//1行だけ取り出す
//	static char t[100];
	char* pout=out;
	char* pin=&DataTemp[DataAdr[ScriptAdr]];
	while(*pin!=0x0d && *pin!=0){
		*pout++=*pin++;
	}
	*pout=0;
	return out;
}
bool NextScriptData()
{//次のポインタに進める
	if(ScriptAdr<ScriptAdrMax){
		ScriptAdr++;
		return true;
	}else{
		return false;//最後
	}
}
int ScriptDataFillter()
{
	//無駄なスペース、コメントを取り除く
	//最終的な文字数を返す
	int a;
	char* p1,*p2;
	int count=0;
	p1=p2=DataTemp;//元のデータをポインタに代入
	for(a=0;a<MAX_TEMP_BUFFER;a++){
		if(p2[0]==32 && (p2[1]==0x0d || (p2[1]=='/' && p2[2]=='/'))){
			p2++;//改行の前のスペースもしくはコメントは削除
		}
		if(p2[0]=='/' && p2[1]=='/'){//コメント削除
			while(*p2!=0x0d && *p2!=0){
				p2++;
			}
		}
		while(p2[0]==0x0d && p2[1]==0x0a && p2[2]==0x0d && p2[3]==0x0a){
			p2+=2;//ただの改行なら切り捨てる
		}
		while(p2[0]==32 && p2[1]==32){
			p2++;//２つ以上連続するスペースは１つにする
		}
		while(p2[0]==9 && p2[1]==9){
			p2++;//２つ以上連続するタブは１つにする
		}
		if(p2[0]==0x0a && p2[1]==32){
			//改行の後のスペースは削除
			while(p2[1]==32){
				p2++;
			}
			*p1++=0x0a;
			p2++;
			count++;
		}else{
			*p1++=*p2++;
			count++;
		}
		if(*p2==0)
			break;//最後なので終了
	}
	for(a=(p1-DataTemp);a<MAX_TEMP_BUFFER;a++){
		DataTemp[a]=0;//残りを０で埋める
	}
	return count;
}

bool ScriptRead()
{//ファイルからスクリプトを読み込む
	ScriptInit();
	FILE *fp;
	int len;
	int Adr=0,a,b=0;
	char c;
	fp=fopen("sample.txt","rb");
	if(fp==NULL){
		return false;
	}
	len=fread(DataTemp,1,MAX_TEMP_BUFFER,fp);
	fclose(fp);
	len=ScriptDataFillter();//無駄を取る


	ScriptAdrMax=Adr=0;
	for(a=0;a<len;a++){
		c=DataTemp[a];//1文字読み込み
		if(c==0x0d){//改行コードなら
			if(b>0){
				DataAdr[Adr]=a-b;//1行の最初のアドレス
#if DEBUG_MODE
				{
					char* p=&DataTemp[DataAdr[Adr]];
					char t[100];
					strncpy(t,p,b);
					t[b]=0;
					printf("[%s]\n",t);
				}
#endif
				ScriptAdrMax++;
				if(ScriptAdrMax>MAX_SCRIPT_LINE)
					return false;
				Adr++;b=0;//次の行設定
			}
		}else if(c!=0x0a){//改行コード以外なら
			b++;//次の文字へ
		}
		if(Adr>=MAX_SCRIPT_LINE)
			return false;//行をオーバーした
	}
	if(b>0){//残りの文字
		DataAdr[Adr]=a-b;//1行の最初のアドレス
#if DEBUG_MODE
		{
			char* p=&DataTemp[DataAdr[Adr]];
			char t[100];
			strncpy(t,p,b);
			t[b]=0;
			printf("[%s]\n",t);
		}
#endif
		ScriptAdrMax++;
		if(ScriptAdrMax>MAX_SCRIPT_LINE)
			return false;
	}
	ScriptAdr=0;
	printf("スクリプト行数=%d\n",ScriptAdrMax);
	return true;
}


void SetMessage(char* mes,int nameflag)
{//メッセージのセット
	char* p=mes;
	int x=0;
	if(nameflag==1){
		//名前の取得
		while(*p!=0){
			if(*p!=32){
				WinName[x++]=*p++;
			}else{
				WinName[x]=0;//終端
				p++;break;
			}
		}
	}else{
		WinName[0]=0;//名前なし
	}
	//セリフの取得
	x=0;
	while(*p!=0){
		WinMessage[x++]=*p++;
	}
	WinMessage[x]=0;//終端
	WinMesMax=strlen(WinMessage);
	WinMesCount=0;
}
int  MessageTask()
{//メッセージの処理
	//文字を１文字ずつ表示させます。
	//表示中は１を返し、終端にきたら０を返します。
	char out[100];
	int EndFlag=0;
	out[0]=0;
	if(WinMesMax==0){
		return 0;
	}
	Sleep(20);//表示のウェイト
	if(WinMesCount==0 && WinName[0]!=0){
		sprintf(out,"%s 「",WinName);
	}
	//全角は２文字、半角は１文字を取り出す
	char m[3]={0};
	m[0]=WinMessage[WinMesCount++];
	if((m[0]&0x80)!=0 && (m[0]<(char)0xa1 || m[0]>(char)0xdf))
		m[1]=WinMessage[WinMesCount++];
	strcat(out,m);
	if(WinMesCount>=WinMesMax){
		if(WinName[0]!=0)
			strcat(out,"」");
		strcat(out,"\n");
		WinMesMax=0;//メッセージ終端で終わり
		EndFlag=0;
	}else{
		EndFlag=1;
	}
	printf("%s",out);
	return EndFlag;
}
bool IsMessage()
{
	if(WinMesMax>0)
		return true;//表示するメッセージがある
	else
		return false;//ない
}

bool SetLabel()
{//ラベルの定義
	int a,max=0;
	char* p,*p2;
	//初期化
	for(a=0;a<MAX_LABEL;a++){
		LabelName[a][0]=0;
		LabelNum[a]=0;
	}
	ScriptAdr=0;
	//ラベル検索
	char out[200];
	for(a=0;a<MAX_SCRIPT_LINE;a++){
		p2=GetScriptData(out);
		if(NextScriptData()==false)
			break;
		p=strstr(p2,":");
		if(p!=NULL){
			strcpy(LabelName[max],p2);//ラベル名
			LabelName[max][p-p2]=0;//終端
			LabelNum[max]=a;//アドレス
			max++;
			DataTemp[DataAdr[a]]=0x0d;//元のラベルを消す
			if(max>MAX_LABEL){
				return false;
			}
		}
	}
	ScriptAdr=0;
	return true;
}
int GetLabel(char* m)
{//ラベルの取得
	int a;
	for(a=0;a<MAX_LABEL;a++){
		if(strcmp(LabelName[a],m)==0){
			return LabelNum[a];
		}
	}
	printf("そのラベルは見つかりませんでした。\n");
	return 0;
}

int WordSplit(char* text,char** out,int len,int max)
{
	//ここで区切ったものを配列に入れる
	//out=出力先のメモリアドレス
	//len=１つの配列の文字数
	//max=区切れる最大数
	if(*text==0)
		return 0;
	int count=0;
	char* outtext=(char*)out;
	int a;
	for(a=0;a<max;a++){//初期化
		char *p=(char*)out+a*len;
		*p=0;
	}
	//分割処理
	while(*text){
		if(*text=='(' || *text==')' || *text==',' || *text==' '){
			*outtext=0;//区切りなので終端文字
			count++;
			if(count>max)
				break;
			outtext=(char*)out+count*len;//次のアドレス
		}else{
			*outtext++=*text;
		}
		text++;
	}
	*outtext=0;
	//返す値は区切った数
	return count+1;
}
int Decode(char* mes)
{//翻訳
	if(mes[0]!='&'){
		return 0;//命令ではなかった
	}
	int adr=0;
	char* p=mes+1;
	int num=0;
	//処理しやすいように分割
	MesParamCount=WordSplit(mes+1,(char**)MesParam,sizeof(MesParam[0]),20);
	//命令ごとに分岐
	if(strcmp(MesParam[0],"GOTO")==0){
		return C_GOTO;
	}
	if(strcmp(MesParam[0],"JUMP")==0){
		return C_JUMP;
	}
	if(strcmp(MesParam[0],"END")==0){
		return C_END;
	}
	return -1;
}



int ScriptTask(char* scriptdata)
{//スクリプト判定
		int code=Decode(scriptdata);
		char* MessageText=scriptdata;
		int a;
		if(NextScriptData()==false)
			return 1;//最後まで達した
		switch(code){
			case C_END://終了
				return 1;
				break;
			case C_GOTO://ジャンプ
				ScriptAdr=GetLabel(MesParam[1]);
				return 0;
				break;
			case C_JUMP://選択肢表示
				{
					for(a=1;a<MesParamCount/2;a++){
						printf("%d.%s\n",a,MesParam[a*2-1]);
					}
					while(1){
						int ch=getch();//入力
						if(ch>='1' && ch<='9'){
							ScriptAdr=GetLabel(MesParam[(ch-'0')*2]);//アドレスをセット
							break;
						}
					}
				return 0;
				}
				break;
			default://メッセージ表示
				if(MessageText[0]=='#'){
					SetMessage(MessageText+1,1);//セリフ
				}else{
					SetMessage(MessageText,0);//文章
				}
				break;
		}
		return 0;
}

int main()
{
	int result;
	//初期設定
	if(ScriptRead()==false){//ここでファイルから読み出し
		printf("ファイルがありません。もしくはスクリプト最大行数を越えました。\n");
		exit(0);
	}
	if(SetLabel()==false){//ラベル設定
		printf("ラベル登録限界に達しました\n");
		exit(0);
	}
	printf("スクリプト開始します。\n");
	//メインループ
	char out[200];
	//メインループ
	while(1){//先頭のコードを見る
		char* scdata=GetScriptData(out);//1行読み込み
		if(scdata[0]==0){
			if(NextScriptData()==false)
				break;//最後までいった
			continue;//何もなければスキップ
		}
		result=ScriptTask(scdata);//スクリプト実行
		if(result==1)
			break;//終了
		while(IsMessage()==true){
			result=MessageTask();
			if(result==0){
				getch();//入力待ち
			}
		}
	}
	printf("\nスクリプト終了します。\n");
	getch();//入力待ち
	return 0;
}