script_event SAKUYA51{

	@Initialize
	{
	LoadGraphic(GetCurrentScriptDirectory~"\img\Sakuya.png");
	LoadGraphic(GetCurrentScriptDirectory~"\img\Yuyuko.png");
	}
		
	@MainLoop
	{
	SetChar(LEFT,GetCurrentScriptDirectory~"\img\Sakuya.png");//左側キャラクタの画像を設定
	SetGraphicRect(LEFT,1,1,255,255);//左側キャラクタの表示画像矩形を設定
	MoveChar(LEFT,FRONT);//左側のキャラクタを前に移動
	Wait(30);//30フレーム待つ
	TextOut("\c[BLUE]とても綺麗な場所ですわ。\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(LEFT,FRONT);//左側のキャラクタを前に移動
	TextOut("\c[BLUE]妹様は連れ帰らないといけないんで、通してもらうよ亡霊！");//文字描画
	End();//最後にEnd()は必須
	}

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

script_event SAKUYA52{

	@Initialize
	{
	LoadGraphic(GetCurrentScriptDirectory~"\img\Sakuya.png");
	LoadGraphic(GetCurrentScriptDirectory~"\img\Yuyuko.png");
	}
		
	@MainLoop
	{
	let choose = Select("あえて反対に進む(Stage6A)","言われたとおり進む(Stage6B)");
	SetCommonData("STAGE6_CHOOSE",choose);
	if(choose == 1){
	SetChar(LEFT,GetCurrentScriptDirectory~"\img\Sakuya.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]…そう。不安だし、右に行ってみます。それでは");//文字描画
	}

	if(choose == 2){
	SetChar(LEFT,GetCurrentScriptDirectory~"\img\Sakuya.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]…そう。不安だけど、言われたとおり左に行きます。それでは");//文字描画
	}
	End();//最後にEnd()は必須
	}

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