#include<windows.h>
#include<time.h>
#include<math.h>
#include"hensu.h"
#include"idou.h"
#include"yudou.h"
#include"mahiray.h"
#include"koki.h"

LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM);
ATOM InitApp(HINSTANCE);
BOOL InitInstance(HINSTANCE,int);

char szClassName[]="stg27";		//ここに至るまでが長かった・・・
HINSTANCE hInst;

int WINAPI WinMain(HINSTANCE hCurInst,HINSTANCE hPrevInst,
				   LPSTR lpsCmdLine,int nCmdShow)
{
	MSG msg;
	BOOL bRet;

	hInst=hCurInst;

	if(!InitApp(hCurInst))
		return FALSE;
	if(!InitInstance(hCurInst,nCmdShow))
		return FALSE;
	while((bRet=GetMessage(&msg,NULL,0,0))!=0){
		if(bRet==-1){
			MessageBox(NULL,"GetMessageエラー","Error",MB_OK);
			break;
		}else{
			TranslateMessage(&msg);
			DispatchMessage(&msg);
		}
	}
	return (int)msg.wParam;
}

ATOM InitApp(HINSTANCE hInst)
{
	WNDCLASSEX wc;
	wc.cbSize=sizeof(WNDCLASSEX);
	wc.style=CS_HREDRAW|CS_VREDRAW;
	wc.lpfnWndProc=WndProc;
	wc.cbClsExtra=0;
	wc.cbWndExtra=0;
	wc.hInstance=hInst;
	wc.hIcon=(HICON)LoadImage(NULL,
		MAKEINTRESOURCE(IDI_APPLICATION),
		IMAGE_ICON,
		0,
		0,
		LR_DEFAULTSIZE|LR_SHARED);
	wc.hCursor=(HCURSOR)LoadImage(NULL,
		MAKEINTRESOURCE(IDC_ARROW),
		IMAGE_CURSOR,
		0,
		0,
		LR_DEFAULTSIZE|LR_SHARED);
	wc.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH);
	wc.lpszMenuName=NULL;
	wc.lpszClassName=(LPCTSTR)szClassName;
	wc.hIconSm=(HICON)LoadImage(NULL,
		MAKEINTRESOURCE(IDI_APPLICATION),
		IMAGE_ICON,
		0,
		0,
		LR_DEFAULTSIZE|LR_SHARED);

	return (RegisterClassEx(&wc));
}

BOOL InitInstance(HINSTANCE hInst,int nCmdShow)
{
	HWND hWnd;

	hWnd=CreateWindow(szClassName,
		"BIG BOSS",
		WS_OVERLAPPEDWINDOW & ~WS_THICKFRAME & ~WS_MAXIMIZEBOX,		//ウィンドウサイズ変更＆最大化禁止
		CW_USEDEFAULT,
		CW_USEDEFAULT,
		800,
		600,
		NULL,
		NULL,
		hInst,
		NULL);
	if(!hWnd)
		return FALSE;
	ShowWindow(hWnd,nCmdShow);
	UpdateWindow(hWnd);
	return TRUE;
}

LRESULT CALLBACK WndProc(HWND hWnd,UINT msg,WPARAM wp,LPARAM lp)
{
	HDC hdc;
	static HDC hdc_mem,hdc_ura;
	PAINTSTRUCT ps;
	HBITMAP hBmp;
	HPEN hPen,hOldPen;
	HBRUSH hBrush,hOldBrush;
	static RECT rc;		//文字描画領域
	char text[512],winer[16];
	int i,j,k,l,x,y;
	static double w,h,r;		//両機間の幅、高さ、距離
	double yp;
	static BOOL yudou_hassha[yudou_max],shusoku,hissatsu,mahi,mahiray,bigray,kokiray,title=TRUE,tuning,play,end;

	static int timer_timer,mahi_t,dead_t,battle_t,battle_tc;		//各種タイマー
	static int houkou,houkou_mahi,houkou_ken,kougeki,shusoku_x,x_win,bmp_n,point[4];
	static int ptama_t,max_ptama_t,shufuku_t,max_shufuku_t,max_lpp,max_point=10;		//チューニング項目
	const int max_lpb=1500;		//ボス機最高ライフポイント
	static double lp_player,lp_boss=max_lpb;

	const int r_player=25;		//プレイヤー機　縦*横=50*50
	static double x_player=-100,y_player=700;
	static int rx_boss=50,ry_boss=50;		//ボス機　縦*横=100*200
	static int rx2_boss=rx_boss,ry2_boss=ry_boss;		//ボス機(収束用)
	static double x_boss=900,y_boss=-100;
	
	const int ptama_max=32,ptama_r=5;		//プレイヤー機通常弾
	static int ptama_x[ptama_max],ptama_y[ptama_max],ptama_vx[ptama_max],ptama_vy[ptama_max],ptama_n;
	const int btama_max=16,btama_r=5;		//ボス機通常弾
	static double btama_x[btama_max],btama_y[btama_max],btama_vx[btama_max],btama_vy[btama_max];
	static int btama_n,btama_i;
	const int btama2_max=64,btama2_r=5;		//ボス機全方位弾
	static double btama2_x[btama2_max],btama2_y[btama2_max],btama2_vx[btama2_max],btama2_vy[btama2_max];
	static int btama2_n;
	const int yudou_r=5;		//ボス機誘導弾
	static double yudou_x[yudou_max],yudou_y[yudou_max];
	static int yudou_vy[yudou_max],yudou_n,yudou_i;
	const int ken_len=150;		//ビームソード
	static int ken_kakudo=-60;
	static double ken_x,ken_y;
	static int bigray_x,bigray_t;		//極太レーザー
	static int mahiray_x[mahiray_max][mahiray_max2],mahiray_y[mahiray_max][mahiray_max2],mahiray_n,mahiray_xb,mahiray_yb;		//麻痺レーザー
	const int koki_max=6,koki_l=30,koki_s=10;		//子機
	static int koki_n,w_koki[koki_max],h_koki[koki_max],r_koki[koki_max],koki_state[koki_max],koki_t[koki_max],koki_i[koki_max],bx_kx[koki_max],by_ky[koki_max];
	static int koki_l2[koki_max],koki_s2[koki_max];		//子機(収束用)
	static int kokiray_x[koki_max],kokiray_y[koki_max];		//子機レーザー
	static POINT koki[koki_max][5],koki2[koki_max][5];
	
	switch(msg){
		case WM_CREATE:
			rc.left=100;
			rc.top=100;
			rc.right=700;
			rc.bottom=500;

			GetClientRect(hWnd,&window);
			srand((unsigned)time(NULL));

			hdc=GetDC(hWnd);
			hBmp=LoadBitmap(hInst,"BlueSky1");
			hdc_mem=CreateCompatibleDC(hdc);
			SelectObject(hdc_mem,hBmp);
			DeleteObject(hBmp);
			hBmp=CreateCompatibleBitmap(hdc,800,600);
			hdc_ura=CreateCompatibleDC(hdc);
			SelectObject(hdc_ura,hBmp);
			DeleteObject(hBmp);
			ReleaseDC(hWnd,hdc);

			for(i=0;i<ptama_max;i++){		//見えない場所に配置
				ptama_x[i]=-1000;			//あとは見えない(移動量0のLineToは見えない)
				ptama_y[i]=-1000;
			}
			for(i=0;i<btama_max;i++){
				btama_x[i]=-1000;
				btama_y[i]=-1000;
			}
			for(i=0;i<btama2_max;i++){
				btama2_x[i]=-1000;
				btama2_y[i]=-1000;
			}
			for(i=0;i<yudou_max;i++){
				yudou_x[i]=-1000;
				yudou_y[i]=-1000;
			}
			for(i=0;i<koki_max;i++){		//子機　長さを同じにする
				koki_l2[i]=koki_l;
				koki_s2[i]=koki_s;
			}
			break;
		case WM_PAINT:
			hdc=BeginPaint(hWnd,&ps);
			if(title==TRUE){		//タイトル画面
				Rectangle(hdc_ura,0,0,window.right,window.bottom);
				Rectangle(hdc_ura,525,375,600,420);
				SetBkMode(hdc_ura,TRANSPARENT);		//透過モード
				strcpy(text,"BIG BOSS\n\n突然ですがボス戦です！\n\n操作説明\n\n"
					"○矢印キー\t上下左右へ移動　縦横無尽に動き回れます\n○Ａキー\t押してる間だけ加速度アップ\n"
					"○Ｓキー\t押してる間だけ自己修復　耐久力が徐々に回復します\n\t\t但し他の操作ができなくなります\n"
					"○Ｆキー\tレーザーソードで攻撃します\n○SPACEキー\t通常弾を発射します\n\n"
					"Player_LP：あなたが乗る機体の耐久力です\nBoss_LP：ボス機の耐久力です\n\n\t\t\t\t\t\t\t次へ");
				DrawText(hdc_ura,(LPCTSTR)text,-1,&rc,DT_EXPANDTABS | DT_WORDBREAK);
				BitBlt(hdc,0,0,window.right,window.bottom,hdc_ura,0,0,SRCCOPY);
			}else if(tuning==TRUE){		//チューニング画面
				Rectangle(hdc_ura,0,0,window.right,window.bottom);
				for(j=0;j<4;j++)
					for(i=0;i<5;i++)
						Rectangle(hdc_ura,286+30*i,189+36*j,286+30*i+20,189+36*j+20);
				hPen=CreatePen(PS_SOLID,1,RGB(255,0,0));
				hOldPen=(HPEN)SelectObject(hdc_ura,hPen);
				for(j=0;j<4;j++)
					Rectangle(hdc_ura,286+30*point[j],189+36*j,286+30*point[j]+20,189+36*j+20);
				SelectObject(hdc_ura,hOldPen);
				DeleteObject(hPen);
				Rectangle(hdc_ura,395,375,470,420);
				Rectangle(hdc_ura,525,375,600,420);
				wsprintf(text,"チューニング\n\n合計 %d 点のポイントを好きなように振り分けて下さい\n合計 %d 点未満に設定する事もできます\n\n"
					"耐久力\t\t\t0 　1 　2 　3 　4\n\n機体移動最高速度\t0 　1 　2 　3 　4\n\n自己修復速度\t\t0 　1 　2 　3 　4\n\n連射性能\t\t0 　1 　2 　3 　4\n\n"
					"0：最低性能 〜 4：最高性能\n\n\n\t\t\t\t\t戻る\t\t開始",max_point,max_point);
				DrawText(hdc_ura,(LPCTSTR)text,-1,&rc,DT_EXPANDTABS | DT_WORDBREAK);
				BitBlt(hdc,0,0,window.right,window.bottom,hdc_ura,0,0,SRCCOPY);
			}else if(play==TRUE){		//プレイ画面
				BitBlt(hdc_ura,0,0,window.right,window.bottom,hdc_mem,x_win,0,SRCCOPY);		//背景
				if(x_win>2400-window.right)		//背景繋ぎ目処理
					BitBlt(hdc_ura,2400-x_win,0,window.right,window.bottom,hdc_mem,0,0,SRCCOPY);
				
				RoundRect(hdc_ura,x_boss,y_boss-ry_boss,x_boss+4*rx_boss,y_boss+ry_boss,20,20);		//ボス機
				RoundRect(hdc_ura,x_boss,y_boss-ry2_boss,x_boss+4*rx2_boss,y_boss+ry2_boss,20,20);		//ボス機(収束用)
				
				hPen=CreatePen(PS_SOLID,1,RGB(255,0,0));
				hOldPen=(HPEN)SelectObject(hdc_ura,hPen);
				MoveToEx(hdc_ura,x_player,y_player,NULL);		//レーザーソード
				LineTo(hdc_ura,x_player+ken_x,y_player-ken_y);
				SelectObject(hdc_ura,hOldPen);
				DeleteObject(hPen);

				Ellipse(hdc_ura,x_player-r_player,y_player-r_player,x_player+r_player,y_player+r_player);		//プレイヤー機

				hPen=CreatePen(PS_SOLID,1,RGB(255,0,0));
				hOldPen=(HPEN)SelectObject(hdc_ura,hPen);
				for(i=0;i<koki_max;i++){		//子機レーザー
					if(rand()%10!=0){		//たまに描かない事で敢えてちらつかせる
						MoveToEx(hdc_ura,koki[i][4].x,koki[i][4].y,NULL);
						LineTo(hdc_ura,koki[i][4].x+kokiray_x[i],koki[i][4].y+kokiray_y[i]);
					}
				}
				SelectObject(hdc_ura,hOldPen);
				DeleteObject(hPen);

				for(i=0;i<koki_max;i++){		//子機
					Polygon(hdc_ura,koki[i],4);		//ポリゴン(多角形描画関数)
					Polygon(hdc_ura,koki2[i],4);
				}			
				
				hPen=(HPEN)GetStockObject(WHITE_PEN);
				hOldPen=(HPEN)SelectObject(hdc_ura,hPen);
				hBrush=CreateSolidBrush(RGB(0,0,255));
				hOldBrush=(HBRUSH)SelectObject(hdc_ura,hBrush);
				for(i=0;i<ptama_max;i++)		//プレイヤー機通常弾　全弾描画させるが初期配置は見えない場所にある
					Ellipse(hdc_ura,ptama_x[i]-ptama_r,ptama_y[i]-ptama_r,ptama_x[i]+ptama_r,ptama_y[i]+ptama_r);
				SelectObject(hdc_ura,hOldPen);
				DeleteObject(hPen);
				SelectObject(hdc_ura,hOldBrush);
				DeleteObject(hBrush);
				
				hPen=(HPEN)GetStockObject(WHITE_PEN);
				hOldPen=(HPEN)SelectObject(hdc_ura,hPen);
				hBrush=CreateSolidBrush(RGB(0,255,0));
				hOldBrush=(HBRUSH)SelectObject(hdc_ura,hBrush);
				for(i=0;i<btama_max;i++)		//ボス機通常弾
					Ellipse(hdc_ura,btama_x[i]-btama_r,btama_y[i]-btama_r,btama_x[i]+btama_r,btama_y[i]+btama_r);
				SelectObject(hdc_ura,hOldPen);
				DeleteObject(hPen);
				SelectObject(hdc_ura,hOldBrush);
				DeleteObject(hBrush);

				i=rand()%256;
				j=rand()%256;
				k=rand()%256;
				hPen=CreatePen(PS_SOLID,1,RGB(i,j,k));
				hOldPen=(HPEN)SelectObject(hdc_ura,hPen);
				hBrush=(HBRUSH)GetStockObject(NULL_BRUSH);
				hOldBrush=(HBRUSH)SelectObject(hdc_ura,hBrush);		
				for(i=0;i<btama2_max;i++)		//全方位弾
					Ellipse(hdc_ura,btama2_x[i]-btama2_r,btama2_y[i]-btama2_r,btama2_x[i]+btama2_r,btama2_y[i]+btama2_r);
				SelectObject(hdc_ura,hOldPen);
				DeleteObject(hPen);
				SelectObject(hdc_ura,hOldBrush);
				DeleteObject(hBrush);

				hPen=(HPEN)GetStockObject(WHITE_PEN);
				hOldPen=(HPEN)SelectObject(hdc_ura,hPen);
				hBrush=CreateSolidBrush(RGB(247,148,29));
				hOldBrush=(HBRUSH)SelectObject(hdc_ura,hBrush);					
				for(i=0;i<yudou_max;i++)		//誘導弾
					Rectangle(hdc_ura,yudou_x[i]-yudou_r,yudou_y[i]-yudou_r,yudou_x[i]+yudou_r,yudou_y[i]+yudou_r);
				SelectObject(hdc_ura,hOldPen);
				DeleteObject(hPen);
				SelectObject(hdc_ura,hOldBrush);
				DeleteObject(hBrush);

				hBrush=CreateHatchBrush(HS_DIAGCROSS,RGB(255,0,255));
				hOldBrush=(HBRUSH)SelectObject(hdc_ura,hBrush);
				Rectangle(hdc_ura,80,15,80+100*(lp_player/max_lpp)*3,25);		//残存ライフポイント　%(パーセント)換算
				Rectangle(hdc_ura,470,15,470+100*(lp_boss/max_lpb)*3,25);
				SelectObject(hdc_ura,hOldBrush);
				DeleteObject(hBrush);

				hBrush=(HBRUSH)GetStockObject(NULL_BRUSH);
				hOldBrush=(HBRUSH)SelectObject(hdc_ura,hBrush);
				Rectangle(hdc_ura,80,15,380,25);		//ライフポイントバー
				Rectangle(hdc_ura,470,15,770,25);
				SelectObject(hdc_ura,hOldBrush);
				DeleteObject(hBrush);

				wsprintf(text,"Player_LP");
				TextOut(hdc_ura,10,10,text,(int)strlen(text));
				wsprintf(text,"Boss_LP");
				TextOut(hdc_ura,410,10,text,(int)strlen(text));

/*				wsprintf(text,"lp_player=%d lp_boss=%d mahi_t=%d",
					(int)(lp_player*1000),(int)(lp_boss*1000),mahi_t);		//for Debug
				TextOut(hdc_ura,10,30,text,(int)strlen(text));
				wsprintf(text,"ax_player=%d ay_player=%d ax_boss=%d ay_boss=%d",
					aax_player,aay_player,aax_boss,aay_boss);		//for Debug
				TextOut(hdc_ura,10,50,text,(int)strlen(text));
*/
				if(battle_tc>0){
                    wsprintf(text,"Battle_Time ＝ %03d.%03d s",battle_tc/1000,battle_tc%1000);		//戦闘終了時間
					TextOut(hdc_ura,325,250,text,(int)strlen(text));
				}

				BitBlt(hdc,0,0,window.right,window.bottom,hdc_ura,0,0,SRCCOPY);		//ウィンドウへコピー

				//以下はパソコンの処理限界により敢えてちらつかせる

				hBrush=(HBRUSH)GetStockObject(BLACK_BRUSH);
				hOldBrush=(HBRUSH)SelectObject(hdc,hBrush);			
				RoundRect(hdc,x_boss+bigray_x,y_boss-ry_boss/2,x_boss,y_boss+ry_boss/2,20,20);		//極太レーザー
				SelectObject(hdc,hOldBrush);
				DeleteObject(hBrush);

				hPen=CreatePen(PS_SOLID,1,RGB(255,255,0));
				hOldPen=(HPEN)SelectObject(hdc,hPen);			
				for(j=0;j<mahiray_max;j++){		//麻痺レーザー
					MoveToEx(hdc,mahiray_x[j][0],mahiray_y[j][0],NULL);
					for(i=1;i<mahiray_max2;i++)
						LineTo(hdc,mahiray_x[j][i],mahiray_y[j][i]);
				}
				SelectObject(hdc,hOldPen);
				DeleteObject(hPen);
			}else if(end==TRUE){		//終了画面
				Rectangle(hdc_ura,0,0,window.right,window.bottom);
				Rectangle(hdc_ura,190,375,340,420);
				Rectangle(hdc_ura,395,375,470,420);
				Rectangle(hdc_ura,525,375,600,420);
				if(lp_player<=0 && lp_boss<=0)
					strcpy(winer,"DRAW !!");
				else if(lp_player<=0)
					strcpy(winer,"BOSS WIN !!");
				else		//lp_boss<=0
					strcpy(winer,"YOU WIN !!");
				wsprintf(text,"BIG BOSS\n\n\n%s\t\t\t戦闘時間：%d 分 %d 秒 %03d"
					"\n\n\n2003/11　企画・制作　小山 淳\n\nThank You For Playing !!"
					"\n\n\n\n\n\n\n\n\t\t再戦(easy)\t\t再戦\t\t終了",
					winer,(battle_t/1000)/60,(battle_t/1000)%60,battle_t%1000);
				SetTextColor(hdc_ura,RGB(255,0,0));
				TextOut(hdc_ura,100,154,"_______________",(int)strlen(winer));
				SetTextColor(hdc_ura,RGB(0,0,0));
				DrawText(hdc_ura,(LPCTSTR)text,-1,&rc,DT_EXPANDTABS | DT_WORDBREAK);
				BitBlt(hdc,0,0,window.right,window.bottom,hdc_ura,0,0,SRCCOPY);
			}
			EndPaint(hWnd,&ps);
			break;
		case WM_TIMER:
			if(play==TRUE){		//プレイ中
				for(i=0;i<ptama_max;i++)		//プレイヤー機通常弾弾当たり判定　ダメージ１
					if(rx_boss>0){		//ボスが右を向いている
						if(ptama_x[i]>x_boss && ptama_x[i]<x_boss+4*rx_boss && ptama_y[i]>y_boss-ry_boss && ptama_y[i]<y_boss+ry_boss){
							lp_boss--;
							ptama_x[i]=-1000;
							ptama_y[i]=-1000;
							ptama_vx[i]=0;
							ptama_vy[i]=0;
						}
					}else if(rx_boss<0){		//ボスが左を向いている
						if(ptama_x[i]>x_boss+4*rx_boss && ptama_x[i]<x_boss && ptama_y[i]>y_boss-ry_boss && ptama_y[i]<y_boss+ry_boss){
							lp_boss--;
							ptama_x[i]=-1000;
							ptama_y[i]=-1000;
							ptama_vx[i]=0;
							ptama_vy[i]=0;
						}
					}

				for(i=0;i<ptama_max;i++){		//プレイヤー機通常弾移動　全弾移動させるが初期速度は0なので結局移動しない
					ptama_x[i]+=ptama_vx[i];
					ptama_y[i]+=ptama_vy[i];
				}

				if(ken_kakudo>=-45)		//レーザーソード当たり判定
					for(i=ken_len;i>r_player;i--){		//プレイヤー機内部はレーザーソードが発生していないとする
						j=i*cos(ken_kakudo*3.14/180)*houkou_ken;		//実は先端にしか判定点がないので仮想的に長さを変えて・・
						k=i*sin(ken_kakudo*3.14/180);
						if(rx_boss>0){		//ボスが右を向いている
							if(x_player+j>x_boss && x_player+j<x_boss+4*rx_boss && y_player-k>y_boss-ry_boss && y_player-k<y_boss+ry_boss)
								lp_boss-=0.0375;
						}else if(rx_boss<0){		//ボスが左を向いている
							if(x_player+j>x_boss+4*rx_boss && x_player+j<x_boss && y_player-k>y_boss-ry_boss && y_player-k<y_boss+ry_boss)
								lp_boss-=0.0375;
						}
					}				

				if(ken_kakudo>=-45){		//レーザーソード移動　45〜-45度まで描く
					ken_x=ken_len*cos(ken_kakudo*3.14/180)*houkou_ken;
					ken_y=ken_len*sin(ken_kakudo*3.14/180);
					ken_kakudo-=15;
				}else
					ken_x=ken_y=0;		//移動量0のLineToは結局描画されないのと同じ
				
				for(i=0;i<btama_max;i++)		//ボス機通常弾当たり判定　ダメージ１
					if(btama_x[i]>x_player-r_player && btama_x[i]<x_player+r_player && btama_y[i]>y_player-r_player && btama_y[i]<y_player+r_player){
						lp_player--;
						btama_x[i]=-1000;
						btama_y[i]=-1000;
						btama_vx[i]=0;
						btama_vy[i]=0;
					}

				for(i=0;i<btama_max;i++){		//ボス機通常弾移動
					btama_x[i]+=btama_vx[i];
					btama_y[i]+=btama_vy[i];
				}

				for(i=0;i<btama2_max;i++)		//全方位弾当たり判定　ダメージ５
					if(btama2_x[i]>x_player-r_player && btama2_x[i]<x_player+r_player && btama2_y[i]>y_player-r_player && btama2_y[i]<y_player+r_player){
						lp_player-=5;
						btama2_x[i]=-1000;
						btama2_y[i]=-1000;
						btama2_vx[i]=0;
						btama2_vy[i]=0;
					}

				for(i=0;i<btama2_max;i++){		//全方位弾移動
					btama2_x[i]+=btama2_vx[i];
					btama2_y[i]+=btama2_vy[i];
				}

				for(i=0;i<yudou_max;i++)		//誘導弾当たり判定　ダメージ２
					if(yudou_x[i]>x_player-r_player && yudou_x[i]<x_player+r_player && yudou_y[i]>y_player-r_player && yudou_y[i]<y_player+r_player){
						lp_player-=2;
						yudou_x[i]=-1000;
						yudou_y[i]=-1000;
						yudou_vy[i]=0;
						yudou_hassha[i]=FALSE;
					}

				for(i=0;i<yudou_max;i++){		//誘導弾移動
					yudou_hassha[i]=hassha_yudou(yudou_hassha[i],i);		//まだご存命か否か
					yudou_x[i]+=idou_yudou_x(x_player,yudou_x[i],yudou_hassha[i],i);		//ｘ軸方向相対移動
					yudou_vy[i]=gensoku_yudou_vy(yudou_vy[i]);		//初期ｙ軸方向速度減速
					yudou_y[i]+=idou_yudou_y(y_player,yudou_y[i],yudou_vy[i],yudou_hassha[i],i);		//ｙ軸方向相対移動
					if(yudou_hassha[i]==FALSE){		//誘導弾消滅
						yudou_x[i]=-1000;
						yudou_y[i]=-1000;
					}
				}

				if(mahi_t>0)
					mahi_t--;		//麻痺時間カウントダウン
				else
					mahi=FALSE;		//麻痺状態解除

				if(mahiray==TRUE){		//麻痺レーザー当たり判定　実は曲がり角にしか判定点がない
					for(j=0;j<mahiray_max;j++)
						for(i=0;i<mahiray_max2;i++)
							if(mahiray_x[j][i]>x_player-r_player && mahiray_x[j][i]<x_player+r_player
								&& mahiray_y[j][i]>y_player-r_player && mahiray_y[j][i]<y_player+r_player){
								mahi_t++;		//当たった分だけ麻痺時間増加
								mahi=TRUE;		//麻痺状態
							}
				}

				if(mahiray==TRUE){		//麻痺レーザー移動
					if(mahiray_n<(2*mahiray_max2-1)){		//mahiray_n 0〜38
						mahiray_x[mahiray_max][mahiray_max2]=x_mahiray(mahiray_x,mahiray_n,mahiray_xb,houkou_mahi);		//ｘ軸方向座標を変更(見た目には１つ)
						mahiray_y[mahiray_max][mahiray_max2]=y_mahiray(mahiray_y,mahiray_n,mahiray_yb);		//ｙ軸方向座標を変更(見た目には１つ)
						mahiray_n++;
						if(mahiray_n==mahiray_max2)		//麻痺レーザーが伸びきったら必殺技状態解除
							hissatsu=FALSE;
					}else{
						mahiray_n=0;
						mahiray=FALSE;		//麻痺レーザー状態解除
					}
				}

				if(bigray==TRUE)		//極太レーザー当たり判定
					for(j=y_boss-ry_boss/2;j<=y_boss+ry_boss/2;j+=10)		//判定点は1個/10pixel
						if(bigray_x>0){		//右方向に照射している
							for(i=x_boss+bigray_x;i>x_boss;i-=10)		//判定点は1個/10pixel
								if(i>x_player-r_player && i<x_player+r_player && j>y_player-r_player && j<y_player+r_player)
									lp_player-=0.1;
						}else if(bigray_x<0){		//左方向に照射している
							for(i=x_boss+bigray_x;i<x_boss;i+=10)		//判定点は1個/10pixel
								if(i>x_player-r_player && i<x_player+r_player && j>y_player-r_player && j<y_player+r_player)
									lp_player-=0.1;
						}				

				if(bigray==TRUE){		//極太レーザー
					if(bigray_t<50){		//50*50=2500ms 照射
						bigray_x=-1000*houkou;
						bigray_t++;
					}else{
						bigray_x=0;
						bigray_t=0;
						hissatsu=FALSE;
						bigray=FALSE;		//極太レーザー状態解除
					}
				}

				if(kokiray==TRUE)		//子機レーザー当たり判定
					for(i=0;i<koki_max;i++)
						if(koki_state[i]==4)		//レーザー照射中だけ
							for(j=200;j>0;j--){
								k=j*(koki[i][0].x-koki[i][1].x)/2;		//実はこのレーザーは満遍なく判定点がある訳じゃない
								l=j*(koki[i][0].y-koki[i][1].y)/2;		//直線上で1個/15pixel
								
								if(koki[i][4].x+k>x_player-r_player && koki[i][4].x+k<x_player+r_player
									&& koki[i][4].y+l>y_player-r_player && koki[i][4].y+l<y_player+r_player)
									lp_player-=0.05;
							}
					
				if(kokiray==TRUE){		//子機レーザー　ここから
					if(timer_timer%5==0 && koki_state[koki_n]<3){		//250ms毎に　離脱も含めて各機3回移動(順番に)
						if(koki_state[koki_n]==0)		//まだ離脱していないなら
							for(i=0;i<5;i++){
								koki2[koki_n][i].x=koki[koki_n][i].x=x_boss+2*rx_boss;		//全座標ボス機中心に集める　描画されても見えない
								koki2[koki_n][i].y=koki[koki_n][i].y=y_boss;					//直後にボス機中心から相対移動するので
							}
						koki2[koki_n][4]=koki[koki_n][4]=idou_koki(koki[koki_n][4]);		//中心座標(描画されない)を移動
	               
						w_koki[koki_n]=x_player-koki[koki_n][4].x;
						h_koki[koki_n]=y_player-koki[koki_n][4].y;
						r_koki[koki_n]=sqrt(w_koki[koki_n]*w_koki[koki_n]+h_koki[koki_n]*h_koki[koki_n]);
						if(r_koki[koki_n]!=0){		//プレイヤー機が重なっている場合は直前の状態を保つ
							*koki[koki_n]=draw_koki(w_koki[koki_n],h_koki[koki_n],r_koki[koki_n],koki_l,koki_s,koki[koki_n]);		//子機座標設定関数
							*koki2[koki_n]=draw_koki(w_koki[koki_n],h_koki[koki_n],r_koki[koki_n],koki_l,koki_s,koki2[koki_n]);		//*koki2[koki_n]=*koki[koki_n]は不可
						}
						koki_state[koki_n]++;		//子機の状態を管理する変数
						koki_n=(koki_n+1)%koki_max;
						if(koki_n==0)		//全機一回動いた(全機ボス機から離脱した)
							hissatsu=FALSE;		//必殺技状態を解除
					}

					for(i=0;i<koki_max;i++){		//ここからは全機同時処理(上とも並行処理)
						switch(koki_state[i]){
							case 3:
								if(koki_l2[i]>=0){		//子機収束(500msかかる)
									*koki2[i]=draw_koki(w_koki[i],h_koki[i],r_koki[i],koki_l2[i],koki_s2[i],koki2[i]);									
									koki_l2[i]-=3;
									koki_s2[i]--;
								}else{		//照準
									kokiray_x[i]=100*(koki[i][0].x-koki[i][1].x);		//各機正面に
									kokiray_y[i]=100*(koki[i][0].y-koki[i][1].y);
									koki_l2[i]=koki_l;		//収束状態を元に戻す
									koki_s2[i]=koki_s;
									koki_state[i]++;
								}
								break;
							case 4:
								if(++koki_t[i]%20==0){		//1000ms照射
									kokiray_x[i]=0;
									kokiray_y[i]=0;						
									if(koki_t[i]<=40)		//1回目、2回目の照射だったのならもう一度移動からやり直し
										koki_state[i]=2;
									else{		//ボス機に帰還する為の距離を取得(帰還完了までボス機の座標は再取得しない→誤差が出る)
										koki_t[i]=0;
										bx_kx[i]=x_boss+2*rx_boss-koki[i][4].x;
										by_ky[i]=y_boss-koki[i][4].y;
										koki_state[i]++;
									}
								}
								break;
							case 5:
								if(koki_i[i]++<5){
									for(j=0;j<5;j++){
										koki2[i][j].x=koki[i][j].x+=bx_kx[i]/5;		//5回に分けて移動
										koki2[i][j].y=koki[i][j].y+=by_ky[i]/5;
									}
								}else{
									for(j=0;j<5;j++){		//帰還完了　全座標ボス機の座標に再修正(見えなくなる)
										koki2[i][j].x=koki[i][j].x=x_boss;
										koki2[i][j].y=koki[i][j].y=y_boss;
									}
									koki_i[i]=0;
									koki_state[i]++;
								}
								break;
							case 6:
								if(i==koki_max-1){		//全機帰還したら
									for(j=0;j<koki_max;j++)
										koki_state[j]=0;
									kokiray=FALSE;		//子機レーザー状態解除
								}
								break;
						}		//koki_stateが0〜2の場合は何もしない
					}										
				}										//子機レーザー　ここまで

				if(timer_timer==0 && hissatsu==FALSE){		//500ms毎に攻撃(開始)判定　必殺技状態じゃない
					if(kougeki==0 && lp_boss>0 && lp_player){		//何の攻撃状態でもなく両機共に生きている
						if(kokiray==TRUE)		//子機レーザー状態の場合は必ず通常弾状態へ移行　特殊条件
							kougeki=rand()%5+1;		//連携攻撃！
						else if(y_boss>y_player-100 && y_boss<y_player+100)		//プレイヤー機がｙ軸方向近くにいれば　基本条件
							kougeki=rand()%15;		//何もしない場合もある
					}
					switch(kougeki){
						case 1:
						case 2:
						case 3:		//通常弾
							if(btama_i<5){		//5回撃つ
								for(i=-1;i<=1;i++){		//1回で3発撃つ
									btama_x[btama_n]=x_boss;
									btama_y[btama_n]=y_boss+i*ry_boss/2;
									btama_vx[btama_n]=25/r*w;		//狙い撃ち
									btama_vy[btama_n]=25/r*h+rand()%3-1;	//ｙ軸方向速度はランダム要素有り　-1〜1
									btama_n=(btama_n+1)%btama_max;
								}
								btama_i++;		//連続発射回数をカウント
							}else{
								btama_i=0;
								kougeki=0;
							}
							break;
						case 4:
						case 5:		//誘導弾
							if(yudou_i<6){		//6回撃つ
								for(i=-1;i<=1;i+=2){		//1回で2発(上下各1発)撃つ
									yudou_x[yudou_n]=x_boss+rx_boss+10*yudou_i*houkou;		//発射口が徐々にボス機中心方向へ移り変わる
									yudou_y[yudou_n]=y_boss+i*ry_boss/2;		//i==1で下、i==-1で上の発射口から撃つ
									if(i==1)
										if(y_boss<y_player)		yudou_vy[yudou_n]=200;		//下に撃つ　プレイヤー機が下
										else	yudou_vy[yudou_n]=400;		//下に撃つ　プレイヤー機が上
									else		//i==-1
										if(y_boss>y_player)		yudou_vy[yudou_n]=-200;		//上に撃つ　プレイヤー機が上
										else	yudou_vy[yudou_n]=-400;		//上に撃つ　プレイヤー機が下
									yudou_hassha[yudou_n]=TRUE;		//発射状態へ移行
									yudou_n=(yudou_n+1)%yudou_max;
								}
								yudou_i++;		//連続発射回数をカウント
							}else{
								yudou_i=0;
								kougeki=0;
							}
							break;
						case 6:		//麻痺レーザー
						case 7:		//麻痺レーザー
						case 8:		//全方位弾
						case 9:		//極太レーザー
						case 10:	//子機レーザー
							shusoku=hissatsu=TRUE;		//収束状態、必殺技状態へ移行
							break;
						default:
							kougeki=0;		//0、その他の値が出た場合は何もしない
					}
				}
		
				rx2_boss=rx_boss=50*houkou;		//ボス機の半径(？)を取得　方向によって右か左か

				if(shusoku==TRUE){		//ボス機収束
					if(ry2_boss>0){
						rx2_boss=rx_boss+(--shusoku_x)*houkou;
						ry2_boss--;
					}else{		//ry2_boss==0　既に0で描画している　収束完了→発射処理へ移行
						shusoku_x=0;
						rx2_boss=rx_boss;		//収束した半径(？)を元に戻しておく
						ry2_boss=ry_boss;
						shusoku=FALSE;		//収束状態解除
						switch(kougeki){		//選択された攻撃方法により分岐
							case 6:
							case 7:		//麻痺レーザー
								mahiray_xb=x_boss;		//この時のボス機の座標を取得　ここを起点(実際には描画されないが)として
								mahiray_yb=y_boss;
								houkou_mahi=houkou;		//方向取得　麻痺レーザーは同じ方向へ伸びてゆく(麻痺レーザーが描画されるのは一度移動してから)
								mahiray=TRUE;		//麻痺レーザー状態へ移行
								break;
							case 8:		//全方位弾　発射処理
								for(i=0;i<36;i++){		//1発/10度
									btama2_x[btama2_n]=x_boss;
									btama2_y[btama2_n]=y_boss;
									btama2_vx[btama2_n]=12.5*cos(10*i*3.14/180);		//速さは通常弾の1/2
									btama2_vy[btama2_n]=12.5*sin(10*i*3.14/180);
									btama2_n=(btama2_n+1)%btama2_max;
								}
								hissatsu=FALSE;		//必殺技状態解除
								break;
							case 9:		//極太レーザー
								bigray=TRUE;		//極太レーザー状態へ移行
								break;
							case 10:		//子機レーザー
								kokiray=TRUE;		//子機レーザー状態へ移行
								break;
						}
						kougeki=0;		//攻撃方法をリセット
					}
				}

				if(ptama_t>0)		//プレイヤー機通常弾発射時間間隔制御
					ptama_t--;

				if(shufuku_t>0)		//自己修復時間間隔制御
					shufuku_t--;

				if(mahi==FALSE && lp_player>0 && lp_boss>0){		//麻痺していない　両機共に生きている
					if(GetKeyState('S')<0){		//自己修復　Ｓキーを押している
						if(shufuku_t==0 && lp_player<max_lpp){		//時間間隔問題無し　最高ライフポイント以下
							lp_player+=0.5;		//0.5だけ回復
							shufuku_t=max_shufuku_t;
						}
					}else if(GetKeyState(VK_SPACE)<0){		//プレイヤー機通常弾　発射処理　SPACEキーを押している
						if(ptama_t==0){		//発射が可能なだけ(前回発射から)時間が経っていれば
							ptama_x[ptama_n]=x_player;
							ptama_y[ptama_n]=y_player;
							ptama_vx[ptama_n]=25*houkou;
							ptama_vy[ptama_n]=rand()%3-1;		//ｙ軸方向速度はランダム　-1〜1
							ptama_n=(ptama_n+1)%ptama_max;
							ptama_t=max_ptama_t;
						}
					}		//これらの動作は両立しない
				}

				if(lp_boss>0){
					if(lp_player<=0 && kougeki==0 && hissatsu==FALSE)		//プレイヤー機死亡　ボス機は何の攻撃状態でもない
						yp=300;		//y座標だけ真ん中に移動したと誤認させる
					else yp=y_player;		//通常時
					y_boss+=idou_boss_y(x_player,yp,x_boss,y_boss);		//x_bossを使うのでｙ座標から移動
					x_boss+=idou_boss_x(x_player,x_boss);
				}else
					y_boss++;		//轟沈！				

				if(lp_player>0){
					x_player+=idou_player_x(x_player,x_boss,mahi);
					y_player+=idou_player_y(y_player,y_boss,mahi);
				}else
					y_player++;		//撃沈！

				w=x_player-x_boss;		//両機共に移動後の幅、高さ、距離を取得
				h=y_player-y_boss;
				r=sqrt(w*w+h*h);

				if(lp_boss>0){
					if(w>0)	houkou=-1;		//プレイヤー機が右　ボス機が左
					else	houkou=1;		//プレイヤー機が左　ボス機が右　初期状態
				}
				
				if(lp_player<=0 || lp_boss<=0){		//変数の値が元に戻る為には時間が必要なのですぐには終了しない
					if(lp_player<0)	lp_player=0;		//両方0未満になる可能性もある
					if(lp_boss<0)	lp_boss=0;
					
					if(dead_t>=300){		//どちらかが死んでから15秒経った
						play=FALSE;		//プレイ終了
						end=TRUE;		//終了画面へ移行
						KillTimer(hWnd,1);		//タイマーストップ
						dead_t=0;
					}else if(dead_t++>=150){
						battle_tc+=rand()%1000+5000;		//演出効果(スロット)
						if(battle_tc>battle_t)
							battle_tc=battle_t;
					}
				}else		//両機共に生きている
					battle_t+=timer_ms;		//戦闘時間を加算

				x_win=(x_win+1)%2400;		//背景画像をスクロール
				timer_timer=(timer_timer+1)%10;		//WM_TIMERのタイマー　500msカウンター
				InvalidateRect(hWnd,NULL,FALSE);
			}
			break;
		case WM_KEYUP:
			if(GetKeyState('S')>=0 && GetKeyState(VK_SPACE)>=0 && mahi==FALSE && lp_player>0 && lp_boss>0){
				switch(wp){		//自己修復中じゃない　通常弾を撃ちながらは攻撃できない
					case 'F':
						ken_kakudo=45;		//レーザーソード
						houkou_ken=houkou;
						break;
				}
				//InvalidateRect(hWnd,NULL,FALSE);		連打するとかなり重たくなるので止めた
			}
			break;
		case WM_LBUTTONDOWN:
			x=LOWORD(lp);
			y=HIWORD(lp);
			if(title==TRUE){
				if(x>525 && x<600 && y>375 && y<420){		//次へ
					title=FALSE;
					tuning=TRUE;
				}
			}else if(tuning==TRUE){
				if(x>395 && x<470 && y>375 && y<420){		//戻る
					tuning=FALSE;
					title=TRUE;
				}else if(x>525 && x<600 && y>375 && y<420){		//開始
					if(point[0]+point[1]+point[2]+point[3]<=max_point){		//最大ポイント以下
						lp_player=max_lpp=100+(point[0]-2)*25;		//最大ライフポイント
						max_speed=10000+(point[1]-2)*1000;		//最大移動速度
						max_shufuku_t=7+(point[2]-2)*(-1);		//ライフポイントが回復する時間間隔
						max_ptama_t=5+(point[3]-2)*(-1);		//通常弾を発射できる時間間隔
						tuning=FALSE;
						play=TRUE;
						SetTimer(hWnd,1,timer_ms,NULL);
					}else{		//最大ポイントオーバー
						MessageBeep(MB_ICONEXCLAMATION);
						FlashWindow(hWnd,TRUE);
					}
				}else{				
					for(j=0;j<4;j++)		//縦の項目
						for(i=0;i<5;i++)		//横の項目
							if(x>286+30*i && x<286+30*i+20 && y>189+36*j && y<189+36*j+20)
								point[j]=i;		//設定取得
				}
			}else if(end==TRUE){
				if((x>190 && x<340 && y>375 && y<420) || (x>395 && x<470 && y>375 && y<420)){		//再戦(easy) or 再戦
					DeleteDC(hdc_mem);
					DeleteDC(hdc_ura);
					hdc=GetDC(hWnd);
					bmp_n=(bmp_n+1)%3;		//背景画像変更
					switch(bmp_n){
						case 0: hBmp=LoadBitmap(hInst,"BlueSky1");
						case 1: hBmp=LoadBitmap(hInst,"BlueSky2");
						case 2: hBmp=LoadBitmap(hInst,"BlueSky3");
					}
					hdc_mem=CreateCompatibleDC(hdc);
					SelectObject(hdc_mem,hBmp);
					DeleteObject(hBmp);
					hBmp=CreateCompatibleBitmap(hdc,800,600);
					hdc_ura=CreateCompatibleDC(hdc);
					SelectObject(hdc_ura,hBmp);
					DeleteObject(hBmp);
					ReleaseDC(hWnd,hdc);

					x_player=-100;		//時間で元に戻らない変数(の中で元に戻さないとまずい変数)
					y_player=700;
					x_boss=900;
					y_boss=-100;
					lp_boss=max_lpb;
					end=FALSE;
					title=TRUE;
					battle_t=0;
					battle_tc=0;

					if(x>190 && x<340 && y>375 && y<420)		//再戦(easy)
						max_point=16;
					else				//x>395 && x<470 && y>375 && y<420　再戦
						max_point=10;
				}
				else if(x>525 && x<600 && y>375 && y<420)		//終了
					SendMessage(hWnd,WM_CLOSE,0,0);
			}
			InvalidateRect(hWnd,NULL,FALSE);
			break;
		case WM_CLOSE:
			DeleteDC(hdc_mem);
			DeleteDC(hdc_ura);
			DestroyWindow(hWnd);
			break;
		case WM_DESTROY:
			PostQuitMessage(0);
			break;
		default:
			return (DefWindowProc(hWnd,msg,wp,lp));
	}
	return 0;
}