#東方弾幕風[Stage]
#Title[ExRumiaステージ]
#Text[ExRumiaステージ]
#Image[.\img\ExRumia(星符「ミッドナイトレヴァリエ」).png]
#BackGround[Default]
#Player[FREE]
#ScriptVersion[2]

script_stage_main
{
let csd= GetCurrentScriptDirectory;
let img=csd ~ ".\img\enemy1.png";
let ClipMinX=GetClipMinX;
let ClipMaxX=GetClipMaxX;
let ClipMinY=GetClipMinY;
let ClipMaxY=GetClipMaxY;
let DeleteMinX=GetClipMinX-20;
let DeleteMaxX=GetClipMaxX+20;
let DeleteMinY=GetClipMinY-20;
let DeleteMaxY=GetClipMaxY+20;
let cx=GetCenterX;
let cy=GetCenterY;
let stagecount=1;
let missCount=GetMissCount;
let bomCount=GetBombCount;
let ScorePoint=0;
let create=0;
let ScorePointEx=0;
let a1=0;
let a10=0;
let a100=0;
	@Initialize()
	{
LoadGraphic(csd ~ ".\enemy\effect\effect_magic.png");
LoadGraphic(csd ~ ".\img\bonasimg.png");
LoadGraphic(csd ~ ".\img\bonasimg.png");
		LoadGraphic(img);//敵画像読みこみ
score_upData;
		StageTask();//ステージタスク起動
CreateDebugWindow;
ExpertEx(true,3,3);
	}
	
	@MainLoop()
	{
if(GetPoint == 500){
ExtendPlayer(1);
}
if(GetPoint == 1000){
ExtendPlayer(1);
}
if(GetPoint == 2000){
ExtendPlayer(1);
}
if(GetPoint == 3000){
ExtendPlayer(1);
}
if(GetPoint == 5000){
ExtendPlayer(1);
}
if(OnPlayerMissed == true){
ScorePoint=0;
ScorePointEx=0;
}

missCount=GetMissCount;
bomCount=GetBombCount;
OutputDebugString(0, "ミスカウント", missCount);
OutputDebugString(1, "ボムカウント", bomCount);
OutputDebugString(2, "敵弾カウント", GetEnemyShotCount);
OutputDebugString(3, "敵数カウント", GetEnemyNum);
OutputDebugString(4, "ScorePointカウント", ScorePoint);
OutputDebugString(5, "ScorePointExカウント", ScorePointEx);
OutputDebugString(6, "CreateUserカウント", create);
OutputDebugString(7, "ScorePoint-1カウント", a1);
OutputDebugString(8, "ScorePoint-10カウント", a10);
OutputDebugString(9, "ScorePoint-100カウント", a100);
		yield;//毎フレームタスク復帰
if(OnBomb == true){
ScorePoint=0;
ScorePointEx=0;
}
	}
	
	@Finalize()
	{
		DeleteGraphic(img);
	}








task score_upData{
loop{
if(GetKeyState(VK_USER) == KEY_HOLD){
if(create < 360 && OnEvent == false && GetKeyState(VK_SLOWMOVE) == KEY_FREE && GetKeyState(VK_USER) == KEY_HOLD){
create++;
a1++;
	}
}else if(create > 0 &&  GetKeyState(VK_USER) == KEY_FREE && create <= 300){
create-=2.5;
}else if(create > 0 &&  create >= 300){
create-=0.25;
}
if(ScorePoint > 1  && OnEvent == false){
AddScore(ScorePoint*5);
}

if(ScorePoint < 10000 && create > 300 && GetKeyState(VK_SLOWMOVE) == KEY_FREE){
ScorePoint++;
}else if(ScorePoint >0){
ScorePoint-=5;
}

if(ScorePointEx == 3000 && OnEvent == false){
AddBomb(1);
AddScore(5000000);
}
if(ScorePointEx == 9000 && OnEvent == false){
AddScore(15000000);
ExtendPlayer(1);
AddBomb(3);
}
if(create > 300){
ScorePointEx++;
}

if(a1 >= 0 && create >= 0 &&  GetKeyState(VK_USER) == KEY_FREE && create <= 300){
a1-=2.5;
}

if(a1+a1*10+a100*100 >= 300){
a1-=0.25;
}

if(a10 <= 0 && a100 >= 0){
a100--;
}

if(a1 <= 0 && a10 >= 0){
a10--;
}

if(a1 >= 10){
a10++;
a1=0;
}

if(a10 >= 10){
a100++;
a10=0;
}

loop(1){yield;}
	}
}

	task StageTask
	{//ステージタスク
		function Wait(let frame)
		{//待機関数
			loop(frame){yield};
		}//functionEND

function not_enemy
		{//敵数が0以外のとき待機する関数
			while(GetEnemyNum() != 0){yield;}
		}	

function not_shot
		{//敵弾が0になるまで待機する関数
			while(GetEnemyShotCount != 0){yield;}
		}	
Wait(60);
not_enemy;
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
//区切り
Wait(80);
////////
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(120);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy03.txt",ClipMinX,100,0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy04.txt",ClipMaxX,100,0,0,0);
Wait(300);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy01.txt",350,ClipMinY,0,0,0);
//区切り
Wait(80);
////////
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(10);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy02.txt",50,ClipMinY,0,0,0);
Wait(120);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy03.txt",cx,ClipMinY,0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy04.txt",cx,ClipMinY,0,0,0);
Wait(300);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy03.txt",cx,ClipMinY,0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy04.txt",cx,ClipMinY,0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy05.txt",cx,ClipMinY,0,0,0);
not_enemy;
not_shot;
Wait(120);
CreateEnemyBossFromFile(csd ~ ".\Ex-min-Enemy\Enemy1.dnh",ClipMinX,ClipMinY,0,0,0);
not_enemy;
not_shot;
CreateEnemyFromFile(csd ~ ".\enemy\Enemy03.txt",ClipMinX,100,0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy04.txt",ClipMaxX,100,0,0,0);
Wait(240);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy06.txt",ClipMaxX,rand(50,cy),0,0,0);
Wait(60);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
Wait(15);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy07.txt",ClipMinX,rand(50,cy),0,0,0);
not_enemy;
CreateEnemyFromFile(csd ~ ".\enemy\Enemy08.txt",cx,ClipMinY,0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy03.txt",cx,ClipMinY,0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy04.txt",cx,ClipMinY,0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy03.txt",cx,ClipMinY,0,0,0);
CreateEnemyFromFile(csd ~ ".\enemy\Enemy04.txt",cx,ClipMinY,0,0,0);
not_shot;
not_enemy;
Wait(60);
CreateEnemyBossFromFile(csd ~ ".\boss\enemy1.dnh",0,0,0,0,0);
Wait(300);
not_enemy;
not_shot;
#include_function".\enemy\bonas1-file.txt";
missCount=0;
bomCount=0;
Wait(3000);
Clear;
	}//task end


/*
	@BackGround()
	{
	 //@BackGroundが存在すると
	 //#BackGround[Default]より優先されて描画される
	}
*/	







}