script_event REIMU51{

	@Initialize
	{
	LoadGraphic(GetCurrentScriptDirectory~"\img\Reimu.png");
	LoadGraphic(GetCurrentScriptDirectory~"\img\Yuyuko.png");
	}

	@MainLoop{
	SetChar(LEFT,GetCurrentScriptDirectory~"\img\Reimu.png");//左側キャラクタの画像を設定
	SetGraphicRect(LEFT,1,1,255,255);//左側キャラクタの表示画像矩形を設定
	MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
	Wait(30);//30フレーム待つ
	TextOut("\c[BLUE]さっきから変ね。\n
	なんか、見かけたやつ全員おかしいし。\n
	いったいどうなっているの？");//文字描画

	SetChar(RIGHT,GetCurrentScriptDirectory~"\img\Yuyuko.png");//右側キャラクタの画像を設定
	SetGraphicRect(RIGHT,1,1,255,255);
	MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
	MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
	Wait(30);//30フレーム待つ
	TextOut("\c[RED]あらあら、やっぱり貴女なのね");//文字描画

	MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
	MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
	TextOut("\c[BLUE]ってことは、貴女が元凶？");//文字描画

	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
		焦っても仕方ないからまったりと");//文字描画

	MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
	MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
	TextOut("\c[BLUE]私もそうしたいけど紫が五月蠅いのよ");//文字描画

	MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
	MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
	TextOut("\c[RED]あらそう。紫〜");//文字描画

	MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
	TextOut("\c[AQUA]紫「あら、幽々子？\n
	この奥に用があるから通してくれない？」");//文字描画

	MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
	TextOut("\c[RED]ちょっと無理。共犯者って言ったじゃない");//文字描画

	MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
	TextOut("\c[AQUA]紫「なら、力ずくで」");//文字描画

	MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
	TextOut("\c[BLUE]やるのは私なんだから勝手なこと言わないの！");//文字描画
	End();//最後にEnd()は必須
	}
		
	@Finalize
	{
	DeleteGraphic(GetCurrentScriptDirectory~"\img\Reimu.png");
	DeleteGraphic(GetCurrentScriptDirectory~"\img\Yuyuko.png");
	}
}

script_event REIMU52{

	@Initialize
	{
	LoadGraphic(GetCurrentScriptDirectory~"\img\Reimu.png");
	LoadGraphic(GetCurrentScriptDirectory~"\img\Yuyuko.png");
	}
		
	@MainLoop
	{
	let choose = Select("右に進む(Stage6A)","左に進む(Stage6B)");
	SetCommonData("STAGE6_CHOOSE",choose);
	if(choose == 1){
	SetChar(LEFT,GetCurrentScriptDirectory~"\img\Reimu.png");//左側キャラクタの画像を設定
	SetGraphicRect(LEFT,1,1,255,255);//左側キャラクタの表示画像矩形を設定
	MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
	Wait(30);//30フレーム待つ
	TextOut("\c[BLUE]ふう、ん、分かれ道");//文字描画

	SetChar(RIGHT,GetCurrentScriptDirectory~"\img\Yuyuko.png");//右側キャラクタの画像を設定
	SetGraphicRect(RIGHT,1,1,255,255);
	MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
	MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
	Wait(30);//30フレーム待つ
	TextOut("\c[RED]うう…完敗");//文字描画

	MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
	MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
	TextOut("\c[BLUE]まぁ、これに懲りて異変の手助けなんかするのはやめなさい");//文字描画

	MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
	MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
	TextOut("\c[RED]しかも、水晶も壊れてる…\n
		ごめんなさい、私大したこと出来なかったわ");//文字描画

	MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
	MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
	TextOut("\c[BLUE]…反省しないわね、まぁいいけど。\n
		さて、私の勘は右って言ってる。行くわよ！");//文字描画
	}

	if(choose == 2){
	SetChar(LEFT,GetCurrentScriptDirectory~"\img\Reimu.png");//左側キャラクタの画像を設定
	SetGraphicRect(LEFT,1,1,255,255);//左側キャラクタの表示画像矩形を設定
	MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
	Wait(30);//30フレーム待つ
	TextOut("\c[BLUE]ふう、ん、分かれ道");//文字描画

	SetChar(RIGHT,GetCurrentScriptDirectory~"\img\Yuyuko.png");//右側キャラクタの画像を設定
	SetGraphicRect(RIGHT,1,1,255,255);
	MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
	MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
	Wait(30);//30フレーム待つ
	TextOut("\c[RED]うう…完敗");//文字描画

	MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
	MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
	TextOut("\c[BLUE]まぁ、これに懲りて異変の手助けなんかするのはやめなさい");//文字描画

	MoveChar(LEFT,BACK);//左側のキャラクタを後に移動
	MoveChar(RIGHT,FRONT);//右側のキャラクタを前に移動
	TextOut("\c[RED]しかも、水晶も壊れてる…\n
		ごめんなさい、私大したこと出来なかったわ");//文字描画

	MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
	MoveChar(RIGHT,BACK);//右側のキャラクタを後に移動
	TextOut("\c[BLUE]…反省しないわね、まぁいいけど。\n
		さて、私の勘は左って言ってる。行くわよ！");//文字描画
	}
	End();//最後にEnd()は必須
	}

	@Finalize
	{
	DeleteGraphic(GetCurrentScriptDirectory~"\img\Reimu.png");
	DeleteGraphic(GetCurrentScriptDirectory~"\img\Yuyuko.png");
	}
}