#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <conio.h>

/*---定義---*/
#define FIELD_WIDTH 13		//フィールドの横幅
#define FIELD_HEIGHT 18		//フィールドの縦幅
#define ENEMY_YOKO 7		//敵群の横数
#define ENEMY_TATE 5		//敵群の縦数
#define PLAYER_MAX 1		//プレイヤーの最大残機
#define MY_BULLET_MAX_D 255	//自機弾の可能最大数(撃てる最大数はグローバル変数で設定しているので、これは単なるメモリ領域の確保用)
#define LAYER_MAX 5			//レイヤーの枚数
//#define SCORE_ON_ENEMY 100	//敵を倒した時に増えるスコア
//#define SCORE_ON_BULLET_TO_WALL -500	//弾を外した時に増えるスコア

/*---グローバル変数---*/
//定義では後で値が変えられない
//難易度変更などを行おうとするとどうしても必要になるグローバル変数
int MY_BULLET_MAX = 2;				//自機弾の最大数
int SCORE_ON_ENEMY = 100;			//敵を倒した時に増えるスコア
int SCORE_ON_BULLET_TO_WALL = -500;	//壁に弾が当たった時に増えるスコア
int SPEED_ON_ENEMY = 500;			//敵の移動単位速度

/*---画面表示レイヤーの定義---*/
int Layer_back[FIELD_HEIGHT][FIELD_WIDTH];		//背景レイヤ
int Layer_enemy[FIELD_HEIGHT][FIELD_WIDTH];		//敵レイヤ
int Layer_bullet[FIELD_HEIGHT][FIELD_WIDTH];	//弾レイヤ
int Layer_jiki[FIELD_HEIGHT][FIELD_WIDTH];		//自機レイヤ
int Layer_show[FIELD_HEIGHT][FIELD_WIDTH];		//表示レイヤ

/*---構造体の定義---*/
struct OBJECT {
	int x;	//X座標
	int y;	//Y座標
	int s;	//状態(0:死亡,消滅 1:生存,存在 2以上:体力(自機の場合残機))
};

/*---グローバル変数の定義---*/
struct OBJECT JIKI;								//自機
struct OBJECT ENEMY[ENEMY_TATE][ENEMY_YOKO];	//敵機
struct OBJECT MyBullet[MY_BULLET_MAX_D];			//弾

/*----------------------------------------------*/
// 関数定義
/*----------------------------------------------*/

//初期化
void Initialize(void);
void InitializeLayerBack(void);
void InitializeLayerEnemy(void);
void InitializeLayerBullet(void);
void InitializeLayerJiki(void);
void InitializeLayerShow(void);
//表示
void ShowLayerPile(void);
void ShowRefresh(void);
void ShowTranslation(int num);
void ShowInfoScore(void);
void ShowClear(void);
//特殊処理
void InputFromKeyboard(void);
void ObjectCollision(void);
int ScoreControl(int mode,int vary);
void GameOver(void);
void GameClear(void);
void Error(void);
//タイトル画面制御
void Title(void);
void TitleShow(int status);
int TitleSelect(void);
void TitleSetOption(char buff);
//自機
void JikiMove(char direction);
void JikiShot(void);
void JikiDeath(void);
//敵機
void EnemyMove(void);
void EnemyDeath(int x,int y);
//自機弾
int MyBulletSearchEmpty(void);
void MyBulletShoot(int num);
void MyBulletMove(void);
void MyBulletDeath(int x,int y);
//タイマー
int EnemyTimer(int timing);
int MyBulletTimer(int timing);
int ShowTimer(int timing);
int EnemyBulletTimer(int timing);

/*----------------------------------------------*/
// 関数群
/*----------------------------------------------*/

int main(void)
{

	//初期処理
	ShowClear();
	Initialize();
	ShowLayerPile();

	Title();	//タイトル画面制御
	
	while(1){
		
		//画面更新タイマ
		if(ShowTimer(100)){
			ShowLayerPile();
			ShowRefresh();
			
			//当たり判定を一番更新感覚が短いタイマと同期
			ObjectCollision();
		}
		//敵移動タイマ
		if(EnemyTimer(SPEED_ON_ENEMY)){
			EnemyMove();
		}
		//自機弾移動タイマ
		if(MyBulletTimer(100)){
			MyBulletMove();
		}
		
		if(kbhit()){ InputFromKeyboard(); }
		
	}
	
	return 0;
}

/*----------------------------------------------*/
// 初期化
/*----------------------------------------------*/
void Initialize(void)
{
	int i,j;	//使いまわすループカウンタ
	
	//レイヤ
	InitializeLayerBack();
	InitializeLayerEnemy();
	InitializeLayerBullet();
	InitializeLayerJiki();
	InitializeLayerShow();
	
	
	//自機関連
		JIKI.s = PLAYER_MAX;
		JIKI.x = FIELD_WIDTH/2;
		JIKI.y = FIELD_HEIGHT - 1;
		
		Layer_jiki[JIKI.y][JIKI.x] = 1;
	//敵機関連
	
		for(i=0;i<ENEMY_TATE;i++){
			for(j=0;j<ENEMY_YOKO;j++){
				ENEMY[i][j].s = 1;
				ENEMY[i][j].x = (FIELD_WIDTH - ENEMY_YOKO)/2 + j;		//マージンを確保
				ENEMY[i][j].y = 2 + i;	//上部は2マス開ける
				
				Layer_enemy[ENEMY[i][j].y][ENEMY[i][j].x] = 1;
			}
		}
	
	
	//弾関連
	for(i=0;i<MY_BULLET_MAX;i++){
		MyBullet[i].s = 0;
	}
	
	//その他
	ScoreControl(0,0);	//スコアをクリア
	
}

void InitializeLayerBack(void){
	//背景レイヤ初期化
	int i,j;	//使いまわすループカウンタ

	for(i=0;i<FIELD_HEIGHT;i++){
		for(j=0;j<FIELD_WIDTH;j++){
			Layer_back[i][j] = 0;
		}
	}
}

void InitializeLayerEnemy(void){
	//敵レイヤ初期化
	int i,j;	//使いまわすループカウンタ

	for(i=0;i<FIELD_HEIGHT;i++){
		for(j=0;j<FIELD_WIDTH;j++){
			Layer_enemy[i][j] = 0;
		}
	}
}

void InitializeLayerBullet(void){
	//弾レイヤ初期化
	int i,j;	//使いまわすループカウンタ

	for(i=0;i<FIELD_HEIGHT;i++){
		for(j=0;j<FIELD_WIDTH;j++){
			Layer_bullet[i][j] = 0;
		}
	}
}

void InitializeLayerJiki(void){
	//自機レイヤ初期化
	int i,j;	//使いまわすループカウンタ

	for(i=0;i<FIELD_HEIGHT;i++){
		for(j=0;j<FIELD_WIDTH;j++){
			Layer_jiki[i][j] = 0;
		}
	}
}

void InitializeLayerShow(void){
	//表示レイヤ初期化
	int i,j;	//使いまわすループカウンタ

	for(i=0;i<FIELD_HEIGHT;i++){
		for(j=0;j<FIELD_WIDTH;j++){
			Layer_show[i][j] = 0;
		}
	}
}

/*----------------------------------------------*/
// 表示
/*----------------------------------------------*/

//レイヤーを重ねる
void ShowLayerPile(void)
{
	//各レイヤの情報を表示レイヤにコピーして行く
	//重ね合わせる順番は宣言した順
	//当然、一番上に表示したい物を最後に
	
	int i,j,k;	//ループカウンタ
	
	InitializeLayerShow();
	
	for(i=0;i<FIELD_HEIGHT;i++){
		for(j=0;j<FIELD_WIDTH;j++){
			/*------座標毎に重ね合わせて行く------*/
			for(k=0;k<LAYER_MAX;k++){
				switch(k){
					case 0: break;	//caseの数字と記録する表示を合わせたかったんです
					case 1: if(Layer_back[i][j]){ Layer_show[i][j] = 1; }
							break;
					case 2: if(Layer_enemy[i][j]){ Layer_show[i][j] = 2; }
							break;
					case 3: if(Layer_bullet[i][j]){ Layer_show[i][j] = 3; }
							break;
					case 4: if(Layer_jiki[i][j]){ Layer_show[i][j] = 4; }
							break;
					default:break;
				}
			}
			/*------------------------------------*/
		}
	}
}

//画面更新
void ShowRefresh(void)
{
	//枠を表示しつつ、表示レイヤの内容を書き出して行く
	int i,j,k;	//ループカウンタ
	
	ShowClear();
	
	/*---最上行の枠を表示---*/
	printf("┏");
	for(i=0;i<FIELD_WIDTH;i++){
		printf("━");
	}
	printf("┓\n");
	
	/*---表示レイヤーの中身を書き出して行く---*/
	for(i=0;i<FIELD_HEIGHT;i++){
		printf("┃");	//左枠
		for(j=0;j<FIELD_WIDTH;j++){
			ShowTranslation(Layer_show[i][j]);
		}
		printf("┃\n");	//右枠
	}

	/*---最下行の枠を表示---*/
	printf("┗");
	for(i=0;i<FIELD_WIDTH;i++){
		printf("━");
	}
	printf("┛\n");
	
	ShowInfoScore();
}

//表示翻訳
void ShowTranslation(int num)
{
	//引数に表示したい番号を取る
	//番号を記録したレイヤーに関連付けて画面に書き出す
	
	switch(num){
		case 0: printf("　");
				break;
		case 1: printf("☆");
				break;
		case 2: printf("▼");
				break;
		case 3: printf("｜");
				break;
		case 4: printf("＠");
				break;
		default:break;
	}
}

//ゲーム画面下部に現在の情報を表示
void ShowInfoScore(void)
{
	//スコアと残機を表示するだけ
	//スコアを引数に起動、残機はjiki構造体のsを見る
	
	printf("SCORE :%dpt\n",ScoreControl(1,0));
	printf("PLAYER:%d\n",JIKI.s);
	printf("Bullet:%d\n",MyBullet[1].s);
}

//画面消去
void ShowClear(void)
{
	#ifdef _WIN32
		system("cls");
	#else
		system("clear");
	#endif
}

/*----------------------------------------------*/
// 特殊
/*----------------------------------------------*/

//キー入力受付
void InputFromKeyboard(void)
{
	//キー入力発生で呼び出される
	//入力内容を取り出し、解釈して、各種関数を呼び出す分岐点
	int input;
	
	input = getch();
	
	switch(input){
		case 32: //スペース：弾を撃つ
				 JikiShot();
				 break;
		case 97: //a：左へ移動する
				 JikiMove('l');
				 break;
		case 100://d：右へ移動する
				 JikiMove('r');
				 break;
		/*---上下移動は制限する
		case 115://s：下へ移動する
				 JikiMove('d');
				 break;
 		case 119://w：上へ移動する
				 JikiMove('u');
				 break;
		---*/
		default: break;
	}
}

//当たり判定
void ObjectCollision(void)
{
	/*--
	当たり判定が必要な部位に限定
	具体的には
		・プレイヤーと敵
		・弾と敵
		・（実装するなら）弾とプレイヤー
		・弾と壁(壁は未実装)
	--*/
	int i,j;
	
	//プレイヤーと敵
	/*---フィールド最下部で一本化
	if(Layer_enemy[JIKI.y][JIKI.x]){ JikiDeath(); EnemyDeath(JIKI.x,JIKI.y); }
	---*/
	
	/*----------------------------------------------------------------------------------------------------------------------*/
	//
	//  要デバッグ地帯（解決済）
	/*----------------------------------------------------------------------------------------------------------------------*/
	//
	//ここからの呼び出しに対してのみ、ScoreControlが暴走します。
	//具体的には、SCORE_ON_ENEMYの値が正常に渡されません
	//他の場所からの全く同じ形式での呼び出し(ScoreControl(0,SCORE_ON_ENEMY);)には正常に答えるのに……
	//
	//理由は、タイマーと同期しないで動かしていたからでした。
	//物凄い動作単位時間の間呼び出し続けるので、加算が恐ろしい事に
	//つまり、こちら側のバグではありませんでした。
	/*----------------------------------------------------------------------------------------------------------------------*/
	//弾と敵
	for(i=0;i<FIELD_HEIGHT;i++){
		for(j=0;j<FIELD_WIDTH;j++){
			if(Layer_bullet[i][j] == 1 && Layer_enemy[i][j] == 1){ MyBulletDeath(j,i); EnemyDeath(j,i); ScoreControl(0,SCORE_ON_ENEMY); }
		}
	}
	/*----------------------------------------------------------------------------------------------------------------------*/
	
	//弾とフィールド最上部
	for(i=0;i<MY_BULLET_MAX;i++){
		if(MyBullet[i].s==1 && MyBullet[i].y==0){ MyBulletDeath(MyBullet[i].x, MyBullet[i].y); ScoreControl(0,SCORE_ON_BULLET_TO_WALL); }
	}
	
	//敵とフィールド最下部
	for(i=0;i<ENEMY_TATE;i++){
		for(j=0;j<ENEMY_YOKO;j++){
			/*---最初に存在を確認した敵のｙ座標を当たり、外れならその行を飛ばす---*/
			if(ENEMY[i][j].s){
				if(ENEMY[i][j].y == FIELD_HEIGHT - 1){ GameOver(); }
				else { break; }
			}
		}
	}
}

//スコア
int ScoreControl(int mode,int vary)
{
	static int score = 0;
	
	//当たり判定から呼び出し。スコアを色々と
	//記録モードと呼び出しモードを使い分ける事にする
	//mode:0で記録、1で呼び出し、0,0で初期化
	//varyはスコアの変動（+100だとか-100だとか)
	
	switch(mode){
		/*---記録モード---*/
		case 0: if(!vary){ score = 0; break; }
				score = score + vary;
				break;
		/*---閲覧モード---*/
		case 1: return score;
		default:break;
	}
	
	return 0;
}

//ゲームオーバー
void GameOver(void)
{
	//メッセージを出すなりゲームオーバー画面にするなり再挑戦を受け付けるなり
	//後で派手にするなりなんなりすればよい。あまり本筋と関係無し
	
	printf("ＧＡＭＥ　ＯＶＥＲ\n");
	exit(0);
}

//ゲームクリア
void GameClear(void)
{
	//敵が全滅したら呼び出される
	//ハイスコアの記録ができたりしたら素敵
	
	printf("ＹＯＵ　ＷＩＮ\n");
	exit(0);
}

//エラー
void Error(void)
{
	printf("なんらかのエラーが発生した模様です\n");
	exit(1);
}

/*----------------------------------------------*/
// タイトル画面制御
/*----------------------------------------------*/

//タイトル画面制御
void Title(void)
{
	int Flag;
	
	TitleShow(0);

	while(1){
		//キー入力待ち
		if(kbhit()){
			Flag = TitleSelect();
			if(Flag==0){ break; }
			TitleShow(Flag);
		}
	}

}

//タイトル画面を表示
void TitleShow(int status)
{
	ShowClear();

	printf("\n\n　　Ｉ　Ｎ　Ｖ　Ａ　Ｄ　Ｅ　Ｒ\n\n\n");
	printf("　　a：←　→：d　SPACE：Ｓｈｏｔ\n");
	
	printf("難易度選択：");
	if(status==1){ printf("[w]＜EASY＞\n"); } else { printf("[w]EASY\n"); }
	if(status==2){ printf("　　　　　　[s]＜NORMAL＞\n"); } else { printf("　　　　　　[s]NORMAL\n"); }
	
	printf("\nスペースキーを入力すると指定難易度でゲームを開始します");
}

//タイトル画面でのキー入力
int TitleSelect(void)
{
	//キー入力発生で呼び出される
	//入力内容を取り出し、解釈して、各種関数を呼び出す分岐点
	int input;
	
	input = getch();
	fflush(stdin);
	
	switch(input){
		case 32: //スペース：決定
				 return 0;
		/*---左右には移動しない
		case 97: //a：左へ移動する
				 JikiMove('l');
				 break;
		case 100://d：右へ移動する
				 JikiMove('r');
				 break;
		---*/
		case 115://s：カーソルを下へ移動する
				 TitleSetOption('n');
				 return 2;
 		case 119://w：カーソルを上へ移動する
				 TitleSetOption('e');
				 return 1;
		default: break;
	}
	
	return -1;
}

//オプションのセット
void TitleSetOption(char buff)
{
	switch(buff){
		//EASY
		case 'e' :  SCORE_ON_ENEMY = 50;
					SCORE_ON_BULLET_TO_WALL = -100;
					SPEED_ON_ENEMY = 500;
					break;
		//NORMAL
		case 'n' :  SCORE_ON_ENEMY = 100;
					SCORE_ON_BULLET_TO_WALL = -500;
					SPEED_ON_ENEMY = 200;
					break;
		default  :  break;
	}
}

/*----------------------------------------------*/
// 自機
/*----------------------------------------------*/

//移動
void JikiMove(char direction)
{
	//入力情報を受け取り指示された方向に自機のｘ座標を変更
	//更に自機レイヤーを更新
	//仮に画面の端ならそれ以上移動できないようにする判定付き
	
	switch(direction){
		case 'l' :  if(JIKI.x != 0){ InitializeLayerJiki(); JIKI.x--; Layer_jiki[JIKI.y][JIKI.x] = 1; }
					break;
		case 'r' :  if(JIKI.x != FIELD_WIDTH-1){ InitializeLayerJiki(); JIKI.x++; Layer_jiki[JIKI.y][JIKI.x] = 1; }
					break;
		/*---上下移動は必要としない
		case 'd' :  
					break;
		case 'u' :  
					break;
		---*/
		default :   break;
	}
}

//弾を発射
void JikiShot(void)
{
	//残弾チェック
	//空きがあれば弾関数へ移動
	
	int i;	//ループカウンタ
	
	for(i=0;i<MY_BULLET_MAX;i++){
		if(MyBullet[i].s == 0){ MyBulletShoot(i); break; }
	}
}

//死亡
void JikiDeath(void)
{
	//自機のステータスを1下げる
	//もし0になったならばゲームオーバー関数を起こす
	
	if(JIKI.s == 0){ GameOver(); return; }	//残機0での撃墜
	
	JIKI.s--;
}

/*----------------------------------------------*/
// 敵機
/*----------------------------------------------*/

//移動
void EnemyMove(void)
{
	static int Flag = 0;	//移動フラグ。0なら右、1なら左に移動
	int DownFlag = 0;		//下移動フラグ
	int i,j;	//ループカウンタ
	
	//Flagを参照し、0ならx座標をディクリメント、1ならx座標をインクリメント
	//もし画面の端に到達したならFlagを反転させてy座標をインクリメントする
	//その後、敵レイヤーを更新
	
	if(ENEMY[ENEMY_TATE - 1][ENEMY_YOKO - 1].x == FIELD_WIDTH - 1 || ENEMY[0][0].x == 0){ Flag = !Flag; DownFlag = 1; }

	InitializeLayerEnemy();
	
	for(i=0;i<ENEMY_TATE;i++){
		for(j=0;j<ENEMY_YOKO;j++){
			if(DownFlag){ ENEMY[i][j].y++; }
			
			if(!Flag){
				ENEMY[i][j].x++;
			} else if(Flag) {
				ENEMY[i][j].x--;
			} else {
				Error();
			}
			if(ENEMY[i][j].s){ Layer_enemy[ENEMY[i][j].y][ENEMY[i][j].x] = 1; }
		}
	}
}

//死ぬ
void EnemyDeath(int x,int y)
{
	static EnemyKazu = ENEMY_TATE * ENEMY_YOKO;	//敵の数をカウント
	int i,j;
	
	//当たり判定関数から起動。
	//引数から弾に当たった敵を逆引き、sをディクリメント
	//sが0になったならばEnemyKazuをディクリメント
	//0になったならクリア関数を呼び出し
	
	for(i=0;i<ENEMY_TATE;i++){
		for(j=0;j<ENEMY_YOKO;j++){
			//１変数のみの比較を噛ませた方が負荷がかからないかなーとか
			if(ENEMY[i][j].s){
				//指定座標と比較
				if(ENEMY[i][j].x == x && ENEMY[i][j].y == y){
					//ここでやっと消滅処理
					//もしENEMY[i][j].sをディクリメントした物が0ならば
					if(!--ENEMY[i][j].s){ 
						if(!--EnemyKazu){ GameClear(); }
					}
				}
			}
		}
	}
}

/*----------------------------------------------*/
// 弾
/*----------------------------------------------*/

//空き枠サーチ
/*---不使用
int MyBulletSearchEmpty(void)
{
	int i;	//番号指定用
	
	//弾構造体配列を頭から一つずつ見ていく
	//MyBullet[foo].s=0を発見したらその番号を返す
	
	return i;
}
---*/

//発射
void MyBulletShoot(int num)
{
	//引数は弾番号
	//MyBullet[num].sを1に、xをプレイヤーのx座標、yをプレイヤーのｙ座標-1に
	
	MyBullet[num].s = 1;
	MyBullet[num].x = JIKI.x;
	MyBullet[num].y = JIKI.y - 1;
	
	Layer_bullet[MyBullet[num].y][MyBullet[num].x] = 1;
	
}

//移動
void MyBulletMove(void)
{
	int i;	//弾番号指定用
	
	//弾番号0からしらみ潰しにMyBullet[i].sを見ていく
	//存在している弾を発見したら、y座標をディクリメント
	//最後に弾レイヤーを更新
	
	InitializeLayerBullet();
	
	for(i=0;i<MY_BULLET_MAX;i++){
		if(MyBullet[i].s){
//			if(MyBullet[i].y - 1 != 0){
				MyBullet[i].y--;
				Layer_bullet[MyBullet[i].y][MyBullet[i].x] = 1;
//			} else if(MyBullet[i].y - 1 == 0) {
//				MyBullet[i].y--;
//				//MyBulletDeath(MyBullet[i].x,MyBullet[i].y);
//			}
		}
	}
	
}

//弾消滅
void MyBulletDeath(int x,int y)
{
	//引数は弾座標、逆引きですよ。
	//当たり判定関数から起動し、MyBullet[num].sをディクリメント
	//もし0なら消滅
	
	int num;
	for(num=0;num<MY_BULLET_MAX;num++){
		if(MyBullet[num].s){
			if(MyBullet[num].x == x && MyBullet[num].y == y){ MyBullet[num].s--; }
		}
	}
}

/*----------------------------------------------*/
// タイマー
/*----------------------------------------------*/

//敵移動タイマ
int EnemyTimer(int timing)
{
	//timingミリ秒毎に信号を発する

	int timer;
	static int temp;
	int result = 0;
	
	timer = clock();

	if((timer/timing)!=temp)
	{
		temp = timer/timing;
		result = 1;
	}
	
	return result;
}

//弾移動タイマ
int MyBulletTimer(int timing)
{
	//timingミリ秒毎に信号を発する

	int timer;
	static int temp;
	int result = 0;
	
	timer = clock();

	if((timer/timing)!=temp)
	{
		temp = timer/timing;
		result = 1;
	}
	
	return result;
}

//弾移動タイマ
int ShowTimer(int timing)
{
	//timingミリ秒毎に信号を発する

	int timer;
	static int temp;
	int result = 0;
	
	timer = clock();

	if((timer/timing)!=temp)
	{
		temp = timer/timing;
		result = 1;
	}
	
	return result;
}

//敵弾移動タイマ
/*---
int EnemyBulletTimer(int timing)
{
	//timingミリ秒毎に信号を発する
	//初期版は敵弾未実装の予定

	int timer;
	static int temp;
	int result = 0;
	
	timer = clock();

	if((timer/timing)!=temp)
	{
		temp = timer/timing;
		result = 1;
	}
	
	return result;
}
---*/