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

#define MXM 20	//MapX_MAX
#define MYM 10	//MapY_MAX
#define MBM 1	//My_Bullet_MAX
#define TIMELIMIT 30

int NewChangeFlag = 1;
int myscore = 0;
int shootcount = 0;
int TimeLimit = 0;	//時間制限

//マップデータ。0:空間 1:壁 2:触ったら死ぬ穴
int MapData[MYM][MXM] = {		//基盤となるマップデータ
	{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
	{1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1},
	{1,0,0,2,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,1},
	{1,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,1},
	{1,0,2,0,0,0,2,0,0,0,0,0,0,0,0,2,0,0,0,2},
	{1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1},
	{1,0,0,2,0,0,0,1,1,1,2,0,0,2,0,0,0,0,0,1},
	{2,0,0,0,2,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1},
	{1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1},
	{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}
};

int InstantMapData[MYM][MXM];	//画面表示用マップデータ。プログラム開始後はこっちがメイン

struct ZahyouPoint {
	int x;	//X座標
	int y;	//Y座標
	int s;	//状態
} jiki,enemy,MyBullet[MBM];

void Initialize(void);		//初期化

void ShowTitle(void);		//タイトル画面の表示

void EnemyMove(void);		//敵機の移動
void AtariHantei(void);		//マップ全体の当たり判定
void MyCharDeath(void);		//自キャラの死亡を処理

void LineOut(int LineNum);	//マップデータの指定行を描画
void TranslationMapData(int x,int y);	//マップデータの各数値データを文字データに置き換える
void DrawMyChar(void);		//自キャラを描画
void DrawMyBullet(void);	//自弾を描画
void ShowMessage(int mode);	//メッセージ表示
void DrawClear(void);		//画面消去
void DrawAllScreen(void);	//全画面描画
void DrawPoints(void);		//スコア表示

int MyBulletExist(int mode);//残弾確認
void MyBulletShoot(void);	//弾を発射
void MyBulletPut(int bnum);		//自弾をマップにプット
void MyBulletClear(int bnum);	//自弾の残像を消去
void MyBulletDelete(int bnum);	//弾の実体を消去
void MyBulletMove(int bnum);	//自弾を移動
int MyBulletMHantei(int bnum);	//弾の移動可不可を判定

int idou(int input_buff);	//移動を受け付けるメイン関数
int MHantei(int MoveD);		//移動したい方向の情報を取得して判定を下す
void MyCharPut(void);		//自キャラをマップにプット
void MyCharClear(void);		//自キャラの残像を消す

int Enidou(int input_buff);	//敵の移動
int EnMHantei(int MoveD);	//敵の移動可能判定
void EnCharPut(void);		//敵をマップにプット
void EnCharClear(void);		//敵の残像を消す

int TimeControl(int timing);		//敵移動判定用タイマー
int TimeControlBullet(int timing);	//弾移動判定用タイマー
int TimeControlLimit(int timing);	//時間制限用タイマー

void PlayEnd(void);	//終了処理

int main(void)
{
	int input_buff;	//入力バッファ
	srand(time(NULL));
	
	ShowTitle();
	
	DrawClear();
	Initialize();
	
	while(1){
//		if(TimeControl(100)){
			
			if(NewChangeFlag){ AtariHantei(); DrawAllScreen(); }
			
			if(TimeControl(300)){ EnemyMove(); }
			if(TimeControlBullet(50)){ DrawMyBullet(); }
			if(TimeControlLimit(1000)){ TimeLimit++; }
			
			//入力受付
			if(kbhit()){
				input_buff = getch();
				idou(input_buff);
				fflush(stdin);		//バッファを空……にできたらいいな
			}
			
			if(jiki.s==0){ MyCharDeath(); }	//プレイヤーが死んだら終了
			if(TimeLimit==TIMELIMIT){ PlayEnd(); }	//制限時間が過ぎたら終了
//		}
	}
	
	return 0;
}

//---------------------------/
//------------------初期化--/
//-------------------------/

//今のところ自機の情報を初期化するのみ
void Initialize(void)
{
	int i,j;
	
	for(i=0;i<MYM;i++){
		for(j=0;j<MXM;j++){
			InstantMapData[i][j] = MapData[i][j];
		}
	}
	
	for(i=0;i<MBM;i++){
		MyBullet[i].s = 0;
	}
	
	jiki.x=(MXM-1)/2;
	jiki.y=MYM-2;
	jiki.s=-2;
	
	enemy.x=(MXM-1)/2;
	enemy.y=1;
	enemy.s=1;
}

//---------------------------/
//----------------特殊処理--/
//-------------------------/

void ShowTitle(void)
{
	
	DrawClear();
	
	printf("逃げ撃ちゲーム\n\n");
	
	printf("W:↑,A:←,S:↓,D:→　で移動し、jキーで弾を撃ちます。\n");
	printf("敵に弾を当ててスコアを稼ぎましょう。\n");
	printf("ただし、敵か穴に当たると即死します。\n\n");
	printf("エンターキーを押すとスタートします\n");
	while( getch()!=13 ) {	}

}

//---------------------------/
//----------------特殊処理--/
//-------------------------/

//敵の移動を発生させる
void EnemyMove(void)
{
	int random_hantei;
	
	random_hantei = rand()%5;
	
	switch(random_hantei){
		case 0: break;
		case 1: Enidou(1);
				break;
		case 2: Enidou(2);
				break;
		case 3: Enidou(3);
				break;
		case 4: Enidou(4);
				break;
		default:break;
	}
}

void AtariHantei(void)
{
	int i;
	
	//自機とマップの関係
	if(InstantMapData[jiki.y][jiki.x]==2){ jiki.s=0; ShowMessage(1); }
	//自機と敵機の関係
	if(jiki.x==enemy.x&&jiki.y==enemy.y){ jiki.s=0; ShowMessage(1); }
	//弾とその他の関係
	for(i=0;i<MBM;i++){
		if(MyBullet[i].s!=0){
			if(
				MapData[MyBullet[i].y][MyBullet[i].x] == 1
				||MyBullet[i].y==0
				||MyBullet[i].x==0
				||MyBullet[i].y==MYM-1
				||MyBullet[i].x==MXM-1
			){ MyBullet[i].s = 0; MyBulletClear(i); }	//壁に当たれば弾は消えるよ
			else if(MyBullet[i].x==enemy.x&&MyBullet[i].y==enemy.y){ myscore++; MyBullet[i].s = 0; }	//敵に当たれば弾は消滅
		}
	}
}

void MyCharDeath(void)
{
	printf("あなたは死んでしまった！\n");
	
	PlayEnd();
}


//---------------------------/
//----------------描画関連--/
//-------------------------/

//一行ごと。一気に表示するようにしてもよかったかもしれない
void LineOut(int LineNum)
{
	int j;

	for(j=0;j<MXM;j++){
		TranslationMapData(j,LineNum);
	}
	printf("\n");
}

//マップデータを表示する際に数字から見てわかる物に翻訳
void TranslationMapData(int x,int y)
{
	switch(InstantMapData[y][x]){
		case -4:printf("弾");
				break;
		case -3:printf("敵");
				break;
		case -2:DrawMyChar();
				break;
		case -1:printf("0");
				break;
		case 0: printf("　");
				break;
		case 1: printf("壁");
				break;
		case 2: printf("穴");
				break;
		default:printf("%d",InstantMapData[y][x]);
				break;
	}
}

//自キャラを状態によって描きわける
void DrawMyChar(void)
{
	switch(jiki.s){
		case  0: printf("死");
				 break;
		case  1: printf("自");
				 break;
		case -1: printf("←");
				 break;
		case -2: printf("↑");
				 break;
		case -3: printf("→");
				 break;
		case -4: printf("↓");
				 break;
		default:break;
	}
}

//弾の描画。移動もここで指示
void DrawMyBullet(void)
{
	int i;
	
	if(MyBulletExist(0)!=0){
		for(i=0;i<MBM;i++){
			if(MyBullet[i].s != 0){
				MyBulletMove(i);
				MyBulletPut(i);
			}
		}
		NewChangeFlag=1;
	}
}

//メッセージの表示ですが、これは既にいらないですね。
void ShowMessage(int mode)
{
	static int naiyou_flag;

	//表示するメッセージの切り替え。0の場合は最後に指示されたメッセージを引き続き表示
	switch(mode){
		case 0:	break;
		case 1:	naiyou_flag = 1;
				break;
		default:break;
	}
	
	//メッセージのバリエーションを増やしたいならここ
	//引数で文字列へのポインタを参照して格納する事によりパターン制限を取っ払う事が出来たらスマート
	switch(naiyou_flag){
		case 0: break;
		case 1: printf("あなたはしんでしまった\n");
				break;
		default:break;
	}
}

//描画をクリア
void DrawClear(void)
{
	#ifdef _WIN32
		system("cls");
	#else
		system("clear");
	#endif
}

//全画面描画。といいつつここで描画していない物もあるような気がするのでわけわからない原因
void DrawAllScreen(void)
{
	int i;
	
	DrawClear();
	MyCharPut();
	EnCharPut();
	
	//全画面描画
	for(i=0;i<MYM;i++){
		LineOut(i);
	}
	
	DrawPoints();
	NewChangeFlag = 0;
}

//点数を表示。ShowMessageと統合した方がよいかも
void DrawPoints(void)
{
	printf("SCORE:%d\n",myscore);
	printf("LIMIT:%d\n",TIMELIMIT-TimeLimit);
}

//---------------------------/
//----------------自機の弾--/
//-------------------------/

int MyBulletExist(int mode)
{
	int i;
	int result = 0;
	
	for(i=0;i<MBM;i++){
		switch(mode){
			//自キャラの弾数数え上げモード
			case 0: if(MyBullet[i].s!=0){ result++; }
					break;
			//使っていない弾抽出モード
			case 1: if(MyBullet[i].s==0){ result = i; break; }
					break;
			default:break;
			}
			
		break;
	}
	
	return result;
}

void MyBulletShoot(void)
{
	int TamaIN;
	
	TamaIN = MyBulletExist(1);
	
	switch(jiki.s){
		//-1->-4で左上右下
		case -1: if(MapData[jiki.y][jiki.x-1] == 1){ return; }
				 MyBullet[TamaIN].x = jiki.x - 1;
				 MyBullet[TamaIN].y = jiki.y;
				 MyBullet[TamaIN].s = -1;
				 break;
		case -2: if(MapData[jiki.y-1][jiki.x] == 1){ return; }
				 MyBullet[TamaIN].x = jiki.x;
				 MyBullet[TamaIN].y = jiki.y-1;
				 MyBullet[TamaIN].s = -2;
				 break;
		case -3: if(MapData[jiki.y][jiki.x+1] == 1){ return; }
				 MyBullet[TamaIN].x = jiki.x + 1;
				 MyBullet[TamaIN].y = jiki.y;
				 MyBullet[TamaIN].s = -3;
				 break;
		case -4: if(MapData[jiki.y+1][jiki.x] == 1){ return; }
				 MyBullet[TamaIN].x = jiki.x;
				 MyBullet[TamaIN].y = jiki.y + 1;
				 MyBullet[TamaIN].s = -4;
				 break;
		default: break;
	}

	shootcount++;
}

void MyBulletPut(int bnum)
{
	InstantMapData[MyBullet[bnum].y][MyBullet[bnum].x] = -4;
}

void MyBulletClear(int bnum)
{
	InstantMapData[MyBullet[bnum].y][MyBullet[bnum].x] = MapData[MyBullet[bnum].y][MyBullet[bnum].x];
}

/*
void MyBulletDelete(int bnum)
{
	MyBullet[bnum].s = 0;
}
*/

void MyBulletMove(int bnum)
{
	MyBulletClear(bnum);
	
	switch(MyBullet[bnum].s){
		case -1: if(MyBulletMHantei(bnum)){ MyBullet[bnum].x--; }
				 break;
		case -2: if(MyBulletMHantei(bnum)){ MyBullet[bnum].y--; }
				 break;
		case -3: if(MyBulletMHantei(bnum)){ MyBullet[bnum].x++; }
				 break;
		case -4: if(MyBulletMHantei(bnum)){ MyBullet[bnum].y++; }
				 break;
		deafault:break;
	}
}

int MyBulletMHantei(int bnum)
{
	int tempX,tempY;	//「もし移動したら」を比較する為にその場合の座標を格納
	
	switch(MyBullet[bnum].s){		//引数により上下左右どちらに移動したいのか判定
		case -1:tempY = MyBullet[bnum].y;
				tempX = MyBullet[bnum].x-1;
				break;
		case -2:tempY = MyBullet[bnum].y-1;
				tempX = MyBullet[bnum].x;
				break;
		case -3:tempY = MyBullet[bnum].y;
				tempX = MyBullet[bnum].x+1;
				break;
		case -4:tempY = MyBullet[bnum].y;
				tempX = MyBullet[bnum].x+1;
				break;
		default: return 0;
	}
	
	//画面上下左右を突き抜けないように
	if(
		  tempY==-1
		||tempX==-1
		||tempY==MYM
		||tempX==MXM
	){ return 0; }
/*
//	else if(
//		InstantMapData[tempY][tempX]==2	//2は触れると死ぬ
//	){ ShowMessage(1); jiki.s=0; NewChangeFlag = 1; return 1; }
	else if(
		InstantMapData[tempY][tempX]!=1	//1は単なる移動不可障害物
	){ NewChangeFlag = 1; return 1; }
*/	
	return 1;
}

//---------------------------/
//----------------移動関係--/
//-------------------------/

int idou(int input_buff){
	MyCharClear();	//移動する前に以前に自分が居た場所を消去しておく

	switch(input_buff){
		case 32: printf("終了\n");
				 exit(0);
				 break;
		case 97: printf("←");
				 jiki.s=-1;
				 if(MHantei(0)){ jiki.x--; }
				 break;
		case 119:printf("↑");
				 jiki.s=-2;
				 if(MHantei(1)){ jiki.y--; }
				 break;
		case 100:printf("→");
				 jiki.s=-3;
				 if(MHantei(2)){ jiki.x++; }
				 break;
		case 106:printf("j");
				 if(MyBulletExist(0) < MBM){ MyBulletShoot(); }
				 break;
		case 115:printf("↓");
				 jiki.s=-4;
				 if(MHantei(3)){ jiki.y++; }
				 break;
		default:  break;
	}
	
	return 0;
}

int MHantei(int MoveD)
{
	int tempX,tempY;	//「もし移動したら」を比較する為にその場合の座標を格納
	
	switch(MoveD){		//引数により上下左右どちらに移動したいのか判定
		case 0:	tempY = jiki.y;
				tempX = jiki.x-1;
				break;
		case 1:	tempY = jiki.y-1;
				tempX = jiki.x;
				break;
		case 2:	tempY = jiki.y;
				tempX = jiki.x+1;
				break;
		case 3:	tempY = jiki.y+1;
				tempX = jiki.x;
				break;
		default: return 0;
	}
	
	//画面上下左右を突き抜けないように
	if(
		  tempY==-1
		||tempX==-1
		||tempY==MYM
		||tempX==MXM
	){ return 0; }
//	else if(
//		InstantMapData[tempY][tempX]==2	//2は触れると死ぬ
//	){ ShowMessage(1); jiki.s=0; NewChangeFlag = 1; return 1; }
	else if(
		InstantMapData[tempY][tempX]!=1	//1は単なる移動不可障害物
	){ NewChangeFlag = 1; return 1; }
	
	return 0;
}

//以下の二つの関数は統合してスイッチで切り替えた方がわかり易いかもしれない
void MyCharClear(void)
{
	InstantMapData[jiki.y][jiki.x] = MapData[jiki.y][jiki.x];
}

void MyCharPut(void)
{
	InstantMapData[jiki.y][jiki.x] = -2;	//自機は-2。負の数は特殊なデータを扱う、と勝手に設定。-「2」なのはテスト段階で0を-1としていた名残
}

//---------------------------/
//----------------敵機関連--/
//-------------------------/

int Enidou(int input_buff)
{
	EnCharClear();	//移動する前に以前に自分が居た場所を消去しておく

	switch(input_buff){
		case 32: printf("終了\n");
				 exit(0);
				 break;
		case 1: printf("@←");
				 if(EnMHantei(0)){ enemy.x--; }
				 break;
		case 2:printf("@↑");
				 if(EnMHantei(1)){ enemy.y--; }
				 break;
		case 3:printf("@→");
				 if(EnMHantei(2)){ enemy.x++; }
				 break;
		case 4:printf("@↓");
				 if(EnMHantei(3)){ enemy.y++; }
				 break;
		default:  break;
	}
	
	return 0;
}

int EnMHantei(int MoveD)
{
	int tempX,tempY;	//「もし移動したら」を比較する為にその場合の座標を格納
	
	switch(MoveD){		//引数により上下左右どちらに移動したいのか判定
		case 0:	tempY = enemy.y;
				tempX = enemy.x-1;
				break;
		case 1:	tempY = enemy.y-1;
				tempX = enemy.x;
				break;
		case 2:	tempY = enemy.y;
				tempX = enemy.x+1;
				break;
		case 3:	tempY = enemy.y+1;
				tempX = enemy.x;
				break;
		default: return 0;
	}
	
	//画面上下左右を突き抜けないように
	if(
		  tempY==-1
		||tempX==-1
		||tempY==MYM
		||tempX==MXM
	){ return 0; }
	else if(
		InstantMapData[tempY][tempX]==2	//2は触れると死ぬ
	){ return 0; }
	else if(
		InstantMapData[tempY][tempX]!=1	//1は単なる移動不可障害物
	){ NewChangeFlag = 1; return 1; }
	
	return 0;
}

//以下の二つの関数は統合してスイッチで切り替えた方がわかり易いかもしれない
void EnCharClear(void)
{
	InstantMapData[enemy.y][enemy.x] = MapData[enemy.y][enemy.x];
}

void EnCharPut(void)
{
	InstantMapData[enemy.y][enemy.x] = -3;	//敵機は-3
}

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

//引数ミリ秒毎に信号を出す
int TimeControl(int timing)
{
	int timer;
	static int temp;
	int result = 0;
	
	timer = clock();

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

int TimeControlBullet(int timing)
{
	int timer;
	static int temp;
	int result = 0;
	
	timer = clock();

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

int TimeControlLimit(int timing)
{
	int timer;
	static int temp;
	int result = 0;
	
	timer = clock();

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

void PlayEnd(void){
	printf("弾消費数：%d\n",shootcount);
	
	printf("エンターキーを押してください\n");
	while( getch()!=13 ) {	}
	
	exit(0);
}