#東方弾幕風
#Title[導符「セントエルモの灯」]
#Text[嵐の日に船のへさきにともるという吉兆の妖灯。画面上に撒き散らされる弾のほとんどが飾り弾。少し、幽々子様の「幻想郷の黄泉帰り」に似てる気がする。]
#Image[.\img\ExRumia(星符「ミッドナイトレヴァリエ」).png]
#BackGround[Default]
#BGM[.\BGM\thA07]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main
{
	let count=0;
	let cx=GetCenterX();//STGシーンの中心x座標を取得;
	let imgExRumia=GetCurrentScriptDirectory~"img\ExRumia.png";
        let power0=GetCurrentScriptDirectory~"SE\power0.wave";
        let tan00=GetCurrentScriptDirectory~"SE\tan00.wave";
	let imgLittle=GetCurrentScriptDirectory~"img\RumiaCutIn.png";
	let imgAngle=0;
	let imgCircle=GetCurrentScriptDirectory~"img\circle6_m.png";
	let imgback04_06=GetCurrentScriptDirectory~"img\back04_06.png";
	let data_usershot=GetCurrentScriptDirectory~"USERSHOT\data_usershot.txt";	



        @Initialize
	{
		SetScore(30000);//スペルカードボーナスを30000に設定
		SetLife(250);//ライフを300に設定
		SetDamageRate(10,5);//披ダメージを10%に設定
		SetTimer(60);//時間制限を60秒に設定

		SetGraphicRect(1,1,64,64);//描画元矩形を設定
		SetInvincibility(80);//敵を30フレーム無敵にする
		LoadGraphic(imgback04_06);
		LoadGraphic(imgExRumia);//画像「img\ExRumia.png」を読みこむ		
		LoadGraphic(imgCircle);
                LoadSE(power0);
		LoadUserShotData(data_usershot);

		SetMovePosition02(cx,60,60);//座標(cx,60)へ60フレームかけて移動する
		Concentration01(150);
		CutIn(YOUMU,"導符「セントエルモの灯」",imgLittle,1,1,350,525);//スペルカード名表示
	}
	
	@MainLoop
	{
                
                if(count==80){ 

                               LoadSE(tan00);
                               PlaySE(power0);
                               }

                if(count==100){ 
                               Concentration01(120);
                               }  
		if(count>200&&count%20==2)
                {
			let ang=GetAngleToPlayer();
                        let shotA=0;
                        StopSE(tan00);
                        PlaySE(tan00);

                        loop(3) {
			          CreateShotA(shotA,GetX(),GetY(),10);//shotAを作製
			          SetShotDataA(shotA,0,5,ang-30,0,0.08,10,PURPLE03);//shotAにデータを登録;
			
			          let i=0;
			
                                  while(i<70)
			                    {//360回繰り返す
				            let shotSpeed=rand(0.1,2);
                                            
				            let ta=10;
				            CreateShotA(ta,0,0,60);//taを作製
                                            SetShotDataA(ta,0,shotSpeed,-90,0,0,0,47);
				            SetShotKillTime(ta,400);
                                            AddShot(i,shotA,ta,0);//shotAにtaを登録;
                                            
				            i+=3;
			                    }
			            FireShot(shotA);
                                    
                                    ang += 30;
                                   }

                 }
                if(count==400)
		{
			SetMovePositionRandom01(75,40,5,GetClipMinX()+100,30,GetClipMaxX()-100,100);
		}
	
		if(count==500){
                               DeleteSE(tan00);
                               DeleteSE(power0);
                               count=60;
                               };
		SetCollisionA(GetX(),GetY(),64);//当たり判定(自弾)登録
		SetCollisionB(GetX(),GetY(),24);//当たり判定(体当たり)登録
		count++;
	}
	
	@Finalize
	{//読みこんだファイルを削除
		DeleteGraphic(imgExRumia);	
		DeleteGraphic(imgCircle);
		DeleteGraphic(imgback04_06);

		loop(8)
		{
			CreateItem(ITEM_SCORE,cx+rand(-100,100),rand(20,100));
		}
	}
	
	@DrawLoop
	{
		//Exルーミア描画
		if(count<200){SetGraphicRect(64,64,127,127)};
		if(count>=200){SetGraphicRect(1,1,64,64);}
		SetGraphicAngle(0,0,0);
		SetAlpha(255);
		SetTexture(imgExRumia);
		DrawGraphic(GetX(),GetY());

		

		SetGraphicRect(129,1,256,128);
		SetAlpha(100);
		SetGraphicAngle(0,0,-imgAngle);
		SetTexture(imgCircle);
		DrawGraphic(GetX(),GetY());
		imgAngle+=1;
			
	}

	@BackGround
	{
	//スペルカード時の背景部分
	//無くてもよい


		SetTexture(imgback04_06);
		SetGraphicRect(1,1,512,512);
		SetAlpha(100);
		SetGraphicAngle(0,0,0);
		DrawGraphic(GetCenterX,GetCenterY);
		
	}
 

}