#東方弾幕風
#Title[通常1（会話から）]
#Text[まずは小手調べ。大抵は大玉に隙間ができるが、ルーミアが自機と反対に移動したときはワインダーを抜けないと詰む事がある。]
#ScriptVersion[2]
#BGM[.\BGM\shooting_star]
#Player[FREE]


script_enemy_main {
        let count=0;
	let cx=GetCenterX();//STGシーンの中心x座標を取得
	let imgExRumia=GetCurrentScriptDirectory~"img\ExRumia.png";
        let speed=0;

	@Initialize
	{
		SetLife(1500);//ライフを1500に設定
                SetDamageRate(50,50);

		SetGraphicRect(1,1,64,64);//描画元矩形を設定
		SetInvincibility(100);//敵を100フレーム無敵にする
		LoadGraphic(imgExRumia);//画像「img\ExRumia.png」を読みこむ		
		SetMovePosition02(cx-200,-200,20);//座標(cx,60)へ60フレームかけて移動する
		DeleteEnemyShot(ALL);//出現と同時に敵弾を全て削除
		//〜〜〜
		if(GetPlayerType==REIMU_A){CreateEventFromScript("EventTest1");}//EventTestイベントを呼び出す
                if(GetPlayerType==REIMU_B){CreateEventFromScript("EventTest1");}
                if(GetPlayerType==MARISA_A){CreateEventFromScript("EventTest2");}
                if(GetPlayerType==MARISA_B){CreateEventFromScript("EventTest2");}
                if(GetPlayerType==USER_PLAYER){CreateEventFromScript("EventTest3");}
		//〜〜〜
	}
	


	@MainLoop
	{
		if(OnEvent()==true)
			{
			if(GetEventStep==1){break;}//イベント中は敵の動きを停止する
			if(GetEventStep==2)
				{
				SetMovePosition03(cx,80,15,5);
				}
                        if(GetEventStep==3){break;}
			}

                if(count>200&&count%20==2)
		
                {
                        let j=3;
                        while(j>1)
                        {
                            let angle = 30;
                            loop(9) {
                                     CreateShot01(GetX, GetY, j, angle, GREEN22, 0);
                                     angle += 15;
                                     }
                            j-=1
                        }
                 }

                if(count>240&&count%20==0)
		{
			let ang=GetAngleToPlayer();//敵から自機方向への角度を取得
			let i=0;
			let h=0;
                        let g=1;
                        while(i<540)
			{
				CreateShot02(GetX(),GetY(),7,i+count,-0.4,g+speed,GREEN03,1);//弾を発射
                               
				CreateShot02(GetX(),GetY(),8,h-count,-0.4,g-speed,GREEN02,1);
				i+=30;
                                h+=90;
                                g+=0.1;
			}

		}
		if(count==300)
		{
			SetMovePositionRandom01(50,20,5,GetClipMinX()+100,60,GetClipMaxX()-100,130);
		}

		if(count==320){count=89;};
		SetCollisionA(GetX(),GetY(),32);//当たり判定(自弾)登録
		SetCollisionB(GetX(),GetY(),24);//当たり判定(体当たり)登録
		count++;
	}
	
	@Finalize
	{//読みこんだファイルを削除
		DeleteGraphic(imgExRumia);
	}
	
	@DrawLoop
	{//描画
		SetColor(255,255,255);
		SetRenderState(ALPHA);
		SetTexture(imgExRumia);
		if(GetSpeedX()==0){SetGraphicRect(64,1,127,64);}
		else if(GetSpeedX()>0){SetGraphicRect(192,1,255,64);}
		else if(GetSpeedX()<0){SetGraphicRect(128,1,191,64);}
		DrawGraphic(GetX(),GetY());
	}
}
}

	//イベント
	script_event EventTest1
	{
	let shooting_star=GetCurrentScriptDirectory~"BGM\shooting_star.wave";
        let x_fear=GetCurrentScriptDirectory~"BGM\x_fear.mp3";
	let imgRumia=GetCurrentScriptDirectory~"img\Rumia1.png";
	let imgReimu1=GetCurrentScriptDirectory~"img\Reimu.png";


		@Initialize
		{
			LoadGraphic(imgReimu1);
			LoadGraphic(imgRumia);
		}
		
		@MainLoop
		{
			SetStep(1);
			SetChar(LEFT,imgReimu1);//左側キャラクタの画像を設定
			SetGraphicRect(LEFT,1,1,255,301);//左側キャラクタの表示画像矩形を設定
			MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
			Wait(30);//30フレーム待つ
			TextOut("\c[BLUE]おかしいわね。\n
				今日は満月なのに急に月が欠けたから、\n
				てっきり月蝕か何かかと思っていたのだけど・・・\n
				上空に来たらもとの満月に戻ってしまったわ。");//文字描画
			SetStep(2);
			Wait(120);//30フレーム待つ;
			SetChar(RIGHT,imgRumia);//右側キャラクタの画像を設定
			SetGraphicRect(RIGHT,1,1,201,301);
                        SetNameFromText(RIGHT,TEXT_PURPLE,"ルーミア","宵闇の妖怪");
			MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
			MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動

			SetStep(3);
			TextOut("\c[RED]月蝕ってなんなのだ〜？\n
                                        おいしいのか〜？");//文字描画
			DeleteName(RIGHT);
			MoveChar(RIGHT,BACK);//左側のキャラクタを後に移動
			MoveChar(LEFT,FRONT);//右側のキャラクタを前に移動
		        TextOut("\c[BLUE]おいしくはないわね。\n
					っていうか食べれないし・・・。");
			MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
			MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
			TextOut("\c[RED]そ〜なのか〜。");//文字描画
			MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
			MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
			TextOut("\c[BLUE]っていうかなんであんたがここにいるのよ？\n
					まさかあんたが黒幕？");//文字描画
			MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
			MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
			TextOut("\c[RED]？？\n
　　　　　　　　　　　　　　　　　　　　ルーミアはおさんぽしていただけなのだ。\n
                                        そもそも黒幕ってなんの黒幕？");//文字描画
			MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
			MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
			TextOut("\c[BLUE]月の光を隠した犯人よ。\n
					\n
					そーか、そいうことか。\n
					つまりあんたが犯人だ！");//文字描画
			MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
			MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
			TextOut("\c[RED]なんだかしらないけどひどい濡れ衣なのだ〜！");//文字描画
			FadeOutMusic(shooting_star,20);
			MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
			MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
			TextOut("\c[BLUE]うるさい！\n
					\n
					あんたがいつもみたく闇をまとってふよふよ飛んでいるのがいけないんだ！");//文字描画

			PlayMusic(x_fear);

			End();//最後にEnd()は必須
		}
		
		@Finalize
		{
			DeleteGraphic(imgRumia);
			DeleteGraphic(imgReimu1);
		}
	}

	//イベント
	script_event EventTest2
	{

	let shooting_star=GetCurrentScriptDirectory~"BGM\shooting_star.wave";
        let x_fear=GetCurrentScriptDirectory~"BGM\x_fear.mp3";
	let imgRumia=GetCurrentScriptDirectory~"img\Rumia1.png";
	let imgMarisa=GetCurrentScriptDirectory~"img\Marisa.png";

		@Initialize
		{
			LoadGraphic(imgMarisa);
			LoadGraphic(imgRumia);
		}
		
		@MainLoop
		{
			SetStep(1);
			SetChar(LEFT,imgMarisa);//左側キャラクタの画像を設定
			SetGraphicRect(LEFT,1,1,255,301);//左側キャラクタの表示画像矩形を設定
			MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
			Wait(30);//30フレーム待つ
			TextOut("\c[BLUE]おかしいぜ。\n
				今日は満月なのに月が急に欠けたから、\n
				てっきり月蝕か何かかと思ったんだが・・・\n
				上空に来たらもとの満月に戻っちまったぜ。");//文字描画
			SetStep(2);	
			Wait(120);//30フレーム待つ;
			SetChar(RIGHT,imgRumia);//右側キャラクタの画像を設定
			SetGraphicRect(RIGHT,1,1,201,301);
                        SetNameFromText(RIGHT,TEXT_PURPLE,"ルーミア","宵闇の妖怪");
			MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
			MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
			SetStep(3);
			TextOut("\c[RED]月蝕ってなんなのだ〜？\n
                                        おいしいのか〜？");//文字描画
			DeleteName(RIGHT);
			MoveChar(RIGHT,BACK);//左側のキャラクタを後に移動
			MoveChar(LEFT,FRONT);//右側のキャラクタを前に移動
		        TextOut("\c[BLUE]おお、すごくうまいらしいぜ\n
					まあ食ったことないがな・・・。\n
					ところでおまえ、髪につけているリボン変えたのか？");
			MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
			MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
			TextOut("\c[RED]そ〜なのだ〜。");
			TextOut("\c[RED]この前チルノちゃんに\n
					髪きってもらったら、\n
					間違っていっしょに切られてしまったのだ〜");
			TextOut("\c[RED]これはごめんねって、\n
					代わりにくれたものなのだ〜。");//文字描画
			MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
			MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
			TextOut("\c[BLUE]おいおい、\n
					そんな簡単に取れてしまっていいのかよ？\n
					あのリボンって確かお前の力を封じてる\n
					お札だったんじゃなかったのか？");//文字描画
			MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
			MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
			TextOut("\c[RED]そ〜なのだ〜。\n
　　　　　　　　　　　　　　　　　　　　おかげで最近絶好調なのだ〜。");
			TextOut("\c[RED]ところで目の前のは\n
					とって食べてもいい人類？");//文字描画
			MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
			MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
			FadeOutMusic(shooting_star,20);
			TextOut("\c[BLUE]わたしはおいしくないぜ!\n
					\n
					力が戻って調子にのっていやがるな！\n
					ルーミアの癖になまいきだぜ！\n
					いいぜ\n
					久しぶりに全力で遊んでやるぜ");//文字描画

			PlayMusic(x_fear);

			End();//最後にEnd()は必須
		}
		
		@Finalize
		{
			DeleteGraphic(imgRumia);
			DeleteGraphic(imgMarisa);
		}
	}

	//イベント
	script_event EventTest3
	{
	let shooting_star=GetCurrentScriptDirectory~"BGM\shooting_star.wave";
        let x_fear=GetCurrentScriptDirectory~"BGM\x_fear.mp3";
	let imgRumia=GetCurrentScriptDirectory~"img\Rumia1.png";


		@Initialize
		{
			LoadGraphic(imgRumia);
		}
		
		@MainLoop
		{
			SetStep(1);
			Wait(10);//30フレーム待つ
			SetStep(2);
			Wait(100);//30フレーム待つ;
			SetChar(RIGHT,imgRumia);//右側キャラクタの画像を設定
			SetGraphicRect(RIGHT,1,1,201,301);
                        SetNameFromText(RIGHT,TEXT_PURPLE,"ルーミア","宵闇の妖怪");
			MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
			MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
			FadeOutMusic(shooting_star,20);
			SetStep(3);
			TextOut("\c[RED]おや〜！\n
					珍しいところにひとが飛んでいるのだー！");//文字描画
			DeleteName(RIGHT);
			TextOut("\c[RED]ねえねえ、そこのひと！\n
					・・・・あなたは・・・・\n
					・・・獲って食べていい人類？");//文字描画


			PlayMusic(x_fear);

			End();//最後にEnd()は必須
		}
		
		@Finalize
		{
			DeleteGraphic(imgRumia);
		}
	}
