/*
/-------------------------------------------/
  タイトル    BMSA鑑賞
　バージョン  1.1
  公開日      2004/01/29
  制作        HAL
  Homepage    http://www.harukitchen.com/
/-------------------------------------------/

★バージョンアップ履歴
ver1.1 2004/01/28  ダイエット。クラスをやめる。ファイル名長くてもOK。ロード画面表示。
                   レイヤー機能BMS無視。曲終了後、10秒待つ。
ver1.0 2004/01/28  公開。
*/

#define DIRECTMUSIC
#define DIRECTINPUT

#include "el.h"
#include "harulib.h"

#define MAIN_SCREEN 1
void MainScreen(void);

//定数
#define LINENUM 9    //ライン数
#define FX 10        //左上座標
#define FY 16        //左上座標
#define MAXOBJ 65535 //最大オブジェ数
#define WAVNUM 256   //最大WAV数
#define BOTTOM 200   //底座標

//変数
int MaxSyousetu;     //最大小節数
char Cdir[64];       //カレントディレクトリ
int mfsp;            //スタックポインタ
int MaxSelectNum;    //最大曲数
int SelectedNo;      //現在選択中の曲NO
char MusicFiles[256][MAX_PATH];//曲データファイル
float PassTime;        //経過時間
short TempoChangeCount;//テンポ変更カウント

//カウンタ
float FirstWait; //ロード待ちカウンタ
float WaitTime;  //待ち時間

//曲リスト構造体
struct _list{
	char MusicTitle[MAX_PATH]; //曲タイトル
	char CopyRight[MAX_PATH];  //著作者
	char Genre[128];           //ジャンル
}Lists[256];

//オブジェクト構造体
typedef struct _obj{
	float y;            //Y座標
	unsigned char wav;  //音データ
	char key;           //鍵盤の場所
	BOOL done; //キーを押してGREATかGOODを出したか、ライン外に出てBADを出したフラグ。役割終了。
	BOOL lineflag;      //ラインを通り過ぎたかフラグ（doneフラグはまだ立たない）
	BOOL tempoflag;     //テンポ変更フラグ
	short tempo;        //テンポ変更時のテンポ
	unsigned short syousetu;//小節
} OBJ;
OBJ obj[MAXOBJ];
int head;   //開始ポインタ
int LastID; //最後のインデックス
short Tempo;//テンポ

//画像構造体
typedef struct _image{
	float y;          //座標
	unsigned char bmp;//画像データ
} IMAGE;
IMAGE images[MAXOBJ];
int ihead;      //開始
int LastImageID;//最後のインデックス

//Wav
DSOBJ Wavs[WAVNUM];             //wavデータ
DSOBJ SeWavs[1];                //効果音
char WavFiles[WAVNUM][MAX_PATH];//wavファイル名
int key[LINENUM];   //キーを押すと格納されているWavNoのWavが鳴る(key[0]<-Z,key[1]<-X,...)

//BMP
typedef struct _bmp{
	DDOBJ Obj;                  //データ
	char File[MAX_PATH];        //ファイル名
	unsigned short width,height;//横幅、高さ
}BMP;
BMP Bmps[WAVNUM];

//フラグ
BOOL DebugMode;            //デバッグモード
BOOL StartFlag;            //開始
BOOL MusicEndFlag;         //曲終了
BOOL ExitFlag;             //終了か
BOOL EndFlag;              //オブジェが全て降ったか
BOOL PushKeyFlags[LINENUM];//キーを押しているか
BOOL BmpEndFlag;           //画像が終了か
BOOL WavEndFlag;           //音声が終了か
BOOL LoadFlag;             //ロード開始フラグ

/********************************************************************************/
/*                                                                              */
/*  関数プロトタイプ                                                            */
/*                                                                              */
/********************************************************************************/
void Init();//初期化
void Load();//ロード
void KeyAction();//キー入力
void Action();//処理
void Disp();//描画
void Reset();//リセット
void LoadScript(int id);//スクリプト読み込み
void Sort();//ソート
void PushCheck(int);//判定
int SearchBmsFile(char*,int);//BMSファイル検索
void LoadScriptFirst(char *file);//タイトルとアーティストだけロード

/********************************************************************************/
/*                                                                              */
/*  初期化                                                                      */
/*                                                                              */
/********************************************************************************/
void Init(){
	int i;
	mfsp=0;

	LoadFlag=DebugMode=StartFlag=FALSE;
	SelectedNo=0;
	for(i=0;i<LINENUM;i++)key[i]=0;
	for(i=0;i<WAVNUM;i++){
		WavFiles[i][0]='\0';
		Bmps[i].File[0]='\0';
	}
	//BMS検索
	if(SearchBmsFile("bms\\",0) == 1){
		Error("bms\\ディレクトリがありません。",0);
	}

	//WAVロード
	SeWavs[0]=elSound::LoadObject("click2.wav");
}

/********************************************************************************/
/*                                                                              */
/*  リセット                                                                    */
/*                                                                              */
/********************************************************************************/
void Reset(){
	int i;
	PassTime=F(0);
	MaxSyousetu=head=ihead=0;
	WaitTime=F(0);
	MusicEndFlag=WavEndFlag=EndFlag=ExitFlag=FALSE;
	BmpEndFlag=TRUE;
	TempoChangeCount=0;
	//オブジェクトの解放
	for(i=0;i<WAVNUM;i++){
		elSound::FreeObject(Wavs[i]);
	}
	for(i=0;i<WAVNUM;i++){
		elDraw::FreeObject(Bmps[i].Obj);
	}
	for(i=0;i<MAXOBJ;i++){
		obj[i].done=FALSE;
		obj[i].lineflag=FALSE;
		obj[i].tempoflag=FALSE;
		obj[i].y=F(0)+FY;
		obj[i].wav=0;
	}
	for(i=0;i<LINENUM;i++){
		key[i]=0;
		PushKeyFlags[i]=FALSE;
	}
}

/********************************************************************************/
/*                                                                              */
/*  BMS検索                                                                     */
/*                                                                              */
/********************************************************************************/
int SearchBmsFile(char *dir,int dirnum){
	char filename[MAX_PATH],newdir[MAX_PATH],path[MAX_PATH];
	WIN32_FIND_DATA file;
	HANDLE fin;

	wsprintf(filename,"%s*",dir);
	fin = FindFirstFile(filename,&file);
	if(fin == INVALID_HANDLE_VALUE)return 1;
	do{
		/* . ..は無視 */
		if(strcmp(file.cFileName,".") == 0 || strcmp(file.cFileName,"..") == 0){
			continue;
		}
		/* .bme .bmsの場合、パスを求める */
		if(strstr2(file.cFileName,".bme") || strstr2(file.cFileName,".bms")){
			wsprintf(path,"%s%s",dir,file.cFileName);
			strcpy(MusicFiles[mfsp],path);
			MaxSelectNum=mfsp;
			//曲リスト作成
			LoadScriptFirst(MusicFiles[mfsp]);
			mfsp++;
		}
		/* ディレクトリの場合に再帰(1回きり) */
		if(file.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY && dirnum == 0){
			wsprintf(newdir,"%s%s\\",dir,file.cFileName);
			SearchBmsFile(newdir,1);
		}
	}while(FindNextFile(fin,&file));
	FindClose(fin);
	return 0;
}

/********************************************************************************/
/*                                                                              */
/*  スクリプト読み込み(タイトルとアーティストのみ)                              */
/*                                                                              */
/********************************************************************************/
void LoadScriptFirst(char *file){
	FILE *fin;
	char line[1024],a[1024],b[1024];

	if((fin=fopen(file,"r"))==NULL)Error(file,1);//データファイルオープン
	while((fgets(line,1024,fin))!=NULL){
		Chomp(line);//改行削除
		Split(' ',line,a,b);//文字列解析
		//タイトル
		if(strstr2(a,"#title")){
			strcpy(Lists[mfsp].MusicTitle,&line[7]);
		}
		//作成者
		else if(strstr2(a,"#artist")){
			strcpy(Lists[mfsp].CopyRight,&line[8]);
		}
		//ジャンル
		else if(strstr2(a,"#genre")){
			strcpy(Lists[mfsp].Genre,b);
		}
	}
	fclose(fin);
}

/********************************************************************************/
/*                                                                              */
/*  スクリプト読み込み                                                          */
/*                                                                              */
/********************************************************************************/
void LoadScript(int sno){
	FILE *fin;
	char line[1024],a[1024],b[1024];
	int place,syousetu,i,k,data,count=0,count2=0,j;
	float rhythm;//拍子
	char file[MAX_PATH];
	int total=200;

	sprintf(file,"%s",MusicFiles[sno]);
	GetParentDirName(Cdir,MusicFiles[sno]);

	//初期化
	for(i=0;i<WAVNUM;i++){
		strcpy(WavFiles[i],"");
		strcpy(Bmps[i].File,"");
	}
	if((fin=fopen(file,"r"))==NULL)Error(file,1);//データファイルオープン

	while((fgets(line,1024,fin))!=NULL){
		Chomp(line);//改行削除
		if(line[0] != '#')continue;//#以外の場合
		Split(' ',line,a,b);//文字列解析
		//wavの場合
		if(strstr2(a,"#wav")){
			data = ChangeHex(&a[4]);//WavNo解析
			strcpy(WavFiles[data-1],b);
		}
		//bmpの場合
		else if(strstr2(a,"#bmp")){
			data = ChangeHex(&a[4]);//BMPNo解析
			strcpy(Bmps[data].File,b);//ファイル名取得
			Bmps[data].width=BmpGetWidth(AddText(Cdir,Bmps[data].File));//横幅の取得
			Bmps[data].height=BmpGetHeight(AddText(Cdir,Bmps[data].File));//高さの取得
		}
		/*
		１分間に４分音符が１２０個→１秒間に４分音符が２個→
		４分音符は１小節に４つある→１小節＝２秒→半小節＝１秒

		１分間に４分音符が60個→１秒間に４分音符が1個→
		４分音符は１小節に４つある→１小節＝4秒→半小節＝2秒
		*/
		else if(strstr2(a,"#bpm")){Tempo=atoi(b);}//テンポの場合
		//配置読み込み(bmp)
		else if(strstr2(line,"04:")){
			Split(':',line,a,b);
			syousetu=(a[1]-'0')*100+(a[2]-'0')*10+(a[3]-'0');
			k=0;
			rhythm=F(1)/(strlen(b)/2);//リズム計算(0.2,0.5とか０〜１の範囲)
			for(i=0;b[i]!='\0';i+=2){
				data=ChangeHex(&b[i]);//BmpNo解析
				if(data==0){k++;continue;}
				images[count2].bmp=data;
				images[count2].y=syousetu+rhythm*k;//Y座標
				count2++;
				k++;
			}
			LastImageID=count2-1;
			BmpEndFlag=FALSE;
		}
		//TOTAL
		else if(strstr2(line,"#total")){
			total=atoi(b);
		}
		//レイヤー
		else if(strstr2(line,"07:")){
			//無視
		}
		//配置読み込み(wav)
		else if(strstr2(line,":")){
			Split(':',line,a,b);
			syousetu=(a[1]-'0')*100+(a[2]-'0')*10+(a[3]-'0');//小節解析
			if(MaxSyousetu < syousetu){
				MaxSyousetu=syousetu;
			}
			rhythm=F(1)/(strlen(b)/2);//リズム計算(0.2,0.5とか０〜１の範囲)
			k=0;
			for(i=0;b[i]!='\0';i+=2){//データ解析
				//WavNo解析
				data=ChangeHex(&b[i]);
				if(data==0){
					k++;
					continue;
				}
				//BGM
				if(strstr2(line,"01:")){
					obj[count].key=-1;
				}
				//テンポ変更
				else if(strstr2(line,"03:")){
					obj[count].tempoflag=TRUE;
					obj[count].tempo=data;
					obj[count].key=-1;
				}else{
					place=(a[4]-'0')*10+(a[5]-'0');
					if(place!=1 && (place<11 || place>29)){obj[count].key=-1;}
					else{
						switch(place){
						case 11:case 12:case 13:case 14:case 15:case 16:case 17://BMS
							obj[count].key=place-11;break;
						case 18:case 19://BME
							obj[count].key=place-13;break;
						case 22:case 23:case 24:case 25://POPN
							obj[count].key=place-17;break;
						}
					}
				}
				obj[count].syousetu=syousetu;
				obj[count].wav=data;
				obj[count].y=syousetu + rhythm*k;//配置
				//BGMではなくて、もし同じライン上にオブジェが重なっていた場合,BGMにする
				for(j=0;j<count;j++){
					if(obj[count].key!=-1 && obj[count].key == obj[j].key && obj[count].y >= obj[j].y-F(0.0001) && obj[count].y <= obj[j].y+F(0.0001)){
						obj[count].key=-1;
						break;
					}
				}
				count++;
				k++;
			}
			LastID=count-1;
		}
	}
	fclose(fin);
	Sort();//ソート
}

/********************************************************************************/
/*                                                                              */
/*  ソート                                                                      */
/*                                                                              */
/********************************************************************************/
void Sort(){
	int i,j;
	OBJ temp;
	//yが小さいものから順に並べる
	for(i=0;i<LastID;i++){
		for(j=i+1;j<=LastID;j++){
			if(obj[i].y > obj[j].y){
				temp = obj[i];
				obj[i] = obj[j];
				obj[j] = temp;
			}
		}
	}
}

/********************************************************************************/
/*                                                                              */
/*  ロード                                                                      */
/*                                                                              */
/********************************************************************************/
void Load(){
	int i;
	char file[MAX_PATH];

	for(i=0;i<WAVNUM;i++){
		if(strcmp(WavFiles[i],"")!=0){
			sprintf(file,"%s%s",Cdir,WavFiles[i]);
			//ファイル存在チェック
			if(CheckExistFile(file)==TRUE){
				Wavs[i] = elSound::LoadObject(file);
			}
			else WavFiles[i][0]='\0';
		}
	}
	for(i=0;i<WAVNUM;i++){
		if(strcmp(Bmps[i].File,"")!=0){
			sprintf(file,"%s%s",Cdir,Bmps[i].File);
			if(CheckExistFile(file)==TRUE){
				Bmps[i].Obj = elDraw::LoadObject(file);
			}else{
				Bmps[i].File[0]='\0';
			}
		}
	}
}

/********************************************************************************/
/*                                                                              */
/*  描画                                                                        */
/*                                                                              */
/********************************************************************************/
void Disp(){
	int i,j;
	char temp[128];

	//ローディング
	if(LoadFlag){
		elFont::Begin(GOTHIC,12);
		elFont::Color(RGB(250,250,0));
		elFont::Draw(0,0,"ロード中。。。");
		elFont::Before();
		return;
	}

	//曲セレクト画面
	if(!StartFlag){
		static char a[32];
		sprintf(a,"%3d",SelectedNo+1);

		elFont::Begin(GOTHIC,12);
		elFont::Color(RGB(250,250,0));
		elFont::Draw(FX-10,FY+50,"o");
		elFont::Draw(0,0,"曲を選んでエンターでスタート");
		elFont::Before();

		elFont::Begin(GOTHIC,12);
		elFont::Color(RGB(200,250,250));

		j=SelectedNo;
		for(i=0;i<3;i++,j++){
			if(strcmp(Lists[j].MusicTitle,"")==0){j=0;}
			elFont::Draw(FX,FY+50+i*20,Lists[j].MusicTitle);
		}
		j=SelectedNo;
		for(i=0;i<3;i++,j--){
			if(j<0){j=MaxSelectNum;}
			elFont::Draw(FX,FY+50-i*20,Lists[j].MusicTitle);
		}

		elFont::Draw(FX,FY+200+16,"制作:");
		elFont::Draw(FX,FY+200,"ｼﾞｬﾝﾙ：");
		elFont::Draw(FX+50,FY+200+16,Lists[SelectedNo].CopyRight);
		elFont::Draw(FX+50,FY+200,Lists[SelectedNo].Genre);
		elFont::Before();
	}

	//イメージ画像
	if(StartFlag && ihead>=1){
		if(Bmps[images[ihead-1].bmp].File[0]!='\0'){
			//鑑賞モードの場合、中央に表示
			elDraw::DirectLayer(0,0,Bmps[images[ihead-1].bmp].Obj,0,0,
				Bmps[images[ihead-1].bmp].width,
				Bmps[images[ihead-1].bmp].height);
		}
	}
	if(DebugMode){
		sprintf(temp,"Time:%3d  Left:%3d/%3d",(int)PassTime,obj[head].syousetu,MaxSyousetu);
		SHOW(0,0,temp);
		sprintf(temp,"wav(%3d/%3d) bmp(%3d/%3d) ",head,LastID,ihead-1,LastImageID);
		SHOW(0,20,temp);
		if(MusicEndFlag){
			SHOW(FX+100,BOTTOM-70,"END");
		}
	}
}

/********************************************************************************/
/*                                                                              */
/*  処理                                                                        */
/*                                                                              */
/********************************************************************************/
void Action(){
	int i;
	BOOL flags[9];
	int start;

	//ロード開始
	if(LoadFlag){
		Reset();
		LoadScript(SelectedNo);
		Load();
		StartFlag=TRUE;
		FirstWait=F(2);
		LoadFlag = FALSE;
	}

	for(i=0;i<9;i++){PushKeyFlags[i]=FALSE;}
	//少し待つ
	if(FirstWait >= F(0)){
		FirstWait-=FrameTime;
		return;
	}
	if(!StartFlag || EndFlag)return;
	PassTime+=FrameTime;//時間経過

	//オブジェ移動(wav)
	for(i=0;i<=LastID;i++){
		obj[i].y-=FrameTime/F(240.0/Tempo);
	}

	//オブジェ移動(bmp)
	for(i=0;i<=LastImageID;i++){
		images[i].y-=FrameTime/F(240.0/Tempo);
	}

	//終了後、10秒待つ
	if(MusicEndFlag){
		WaitTime+=FrameTime;
		if(WaitTime >= F(10)){
			MusicEndFlag=FALSE;
			Reset();
			StartFlag=FALSE;
			EndFlag=TRUE;
			return;
		}
	}

	//次の音を用意
	start=head-9;
	if(start<0)start=0;
	for(i=0;i<9;i++)flags[i]=FALSE;
	for(i=start;i<=LastID;i++){
		if(obj[i].y > F(0.5))break;
		if(obj[i].key!=-1 && !obj[i].done){
			if(flags[obj[i].key]==FALSE){
				flags[obj[i].key]=TRUE;
				key[obj[i].key]=obj[i].wav;
			}
		}
	}

	//ライン上に来た場合(wav)
	while(!WavEndFlag && !obj[head].lineflag && obj[head].y<=F(0)){
		//その音を鳴らす
		if(!obj[head].tempoflag){
			if(obj[head].key>=0){//オートプレイ
				PushKeyFlags[obj[head].key]=TRUE;
				PushCheck(obj[head].key);
			}else if(strcmp(WavFiles[obj[head].wav-1],"")!=0){//BGMの場合
				elSound::Play(Wavs[obj[head].wav-1]);
			}
		}//テンポ変更
		else if(obj[head].tempoflag){
			Tempo=obj[head].tempo;
		}
		obj[head].lineflag=TRUE;
		head++;
		//最後の音
		if(head==LastID+1){
			head--;
			WavEndFlag=TRUE;
			break;
		}
	}

	//ライン上に来た場合(bmp)
	while(!BmpEndFlag && images[ihead].y<=F(0)){
		ihead++;
		if(ihead==LastImageID+1){
			BmpEndFlag=TRUE;
			break;
		}
	}

	//終了判定
	if(WavEndFlag && BmpEndFlag){
		MusicEndFlag=TRUE;
	}

	//終了時
	if(MusicEndFlag){
		WaitTime+=FrameTime;
	}
}

/********************************************************************************/
/*                                                                              */
/*  判定                                                                        */
/*                                                                              */
/********************************************************************************/
void PushCheck(int KeyNo){
	int i,id=-1;
	float most;

	if(!StartFlag)return;
	PushKeyFlags[KeyNo]=TRUE;

	//音を鳴らす
	if(key[KeyNo]-1>=0 && strcmp(WavFiles[key[KeyNo]-1],"")!=0){
		elSound::Play(Wavs[key[KeyNo]-1]);
	}
	if(EndFlag)return;

	//ライン周りにオブジェがあるかチェック
	for(i=0;i<=LastID;i++){
		if(obj[i].key == KeyNo && !obj[i].done){
			if(obj[i].y>=F(-0.05) && obj[i].y<F(0.05)){//あった
				most=obj[i].y;
				id=i;
				break;
			}
		}
	}

	//ライン周りにオブジェが無かった場合(BAD)
	if(id==-1){
	}
	//GOOD
	else if(most>=F(0.02)){
		obj[id].done=TRUE;
	}
	//GREAT
	else if(most>=F(-0.02)){
		obj[id].done=TRUE;
	}
	//GOOD
	else{
		obj[id].done=TRUE;
	}
}

/********************************************************************************/
/*                                                                              */
/*  キー入力                                                                    */
/*                                                                              */
/********************************************************************************/
void KeyAction(){
	while(elSystem::InputLoop()){
		switch(elSystem::Get.Code){
		case VC_ESC:
			if(elSystem::Get.Status){
				//リセット
				if(StartFlag){Reset();StartFlag=FALSE;}
				else{
					ExitFlag = TRUE;
					return;
				}
			}
			break;
		case VC_RIGHT:case VC_DOWN:
			if(elSystem::Get.Status && !StartFlag){
				elSound::Play(SeWavs[0]);
				if(++SelectedNo > MaxSelectNum)SelectedNo=0;
			}
			break;
		case VC_LEFT:case VC_UP:
			if(elSystem::Get.Status){
				if(!StartFlag){
					elSound::Play(SeWavs[0]);
					if(--SelectedNo < 0){SelectedNo=MaxSelectNum;}
				}
			}
			break;
		case VC_ENTER:
			if(elSystem::Get.Status){
				if(!StartFlag){
					LoadFlag = TRUE;//ロード開始フラグ
				}
			}
			break;
		case VC_TAB://デバッグモード
			if(elSystem::Get.Status){
				DebugMode=!DebugMode;
			}
			break;
		case VC_F4://テンポを二倍
			if(elSystem::Get.Status){
				Tempo*=2;
				if(++TempoChangeCount >= 5){
					Tempo/=32;
					TempoChangeCount=0;
				}
			}
			break;
		}
	}
}

/********************************************************************************/
/*                                                                              */
/*  メイン関数                                                                  */
/*                                                                              */
/********************************************************************************/
int elMain("BMSA鑑賞");
{
	elWindow(256,256,FALSE);

	elLoop(){
		elSetScreen(MAIN_SCREEN,MainScreen());
	}
	elExitMain();
}

/********************************************************************************/
/*                                                                              */
/*  ウィンドウ生成関数                                                          */
/*                                                                              */
/********************************************************************************/
void elCreate(void)
{
	elDraw::Screen(640,480);
	elCallScreen(MAIN_SCREEN);
}

/********************************************************************************/
/*                                                                              */
/*  キーボード関数                                                              */
/*                                                                              */
/********************************************************************************/
void elKeyboard(void)
{
	elExitKeyboard();
}

/********************************************************************************/
/*                                                                              */
/*  イベント関数                                                                */
/*                                                                              */
/********************************************************************************/
long elEvent(void)
{
	elExitEvent();
}

/********************************************************************************/
/*                                                                              */
/*  メイン画面                                                                  */
/*                                                                              */
/********************************************************************************/
void MainScreen(void)
{
	//画面が切り替わった時
	if(elChangeScreen()){
		Init();//初期化
	}
	elDraw::Clear();
	Disp();//描画
	elDraw::Refresh();

	Action();//処理
	KeyAction();//キー入力

	//終了
	if(ExitFlag){
		elDraw::Exit();
	}
}