code:
;-------------------------------------------------
;各種挨拶
;-------------------------------------------------
@KOJO_GREETING_K23, ARGS
#DIM LCOUNT
#DIM MEMO_DESIRE
#DIM MEMO_LINECOUNT
;イベント発生中のキャラ
#DIM ACTOR
#DIM ACTOR2
;イベント発生中のキャラのデフォのCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"

;朝のＨイベントでのセリフ。下の"挨拶する"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "挨拶する"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝駆け"
	SELECTCASE CSTR:朝駆け
	CASE "朝逆正常位"
		;恋慕
		IF TALENT:恋慕
			;違和感で目を覚ますあなた
			PRINTFORML
			CALL PRINT_STR, @"「%TEXTR("ボンジュール（Bonjour）/おはようございます")%_HH_　%CNAME("主人")%」_L"
			IF RAND:2 == 0
				CALL PRINT_STRW, @"「%TEXTR(@"朝からムラムラしちゃったので……%CNAME("主人")%にたっぷり種付けしちゃいますね/可愛いお顔を見ていたら……我慢出来なくなってしまったので朝からいっぱい種付けしちゃいます")%_HH_」"
			ELSE
				CALL PRINT_STRW, @"「%TEXTR("はぁ/んぅ")%_HH_　%TEXTR(@"%CNAME("二人称")%に中出ししちゃいます……受け止めてください、ねっ/もう出そうです……んっ、%CNAME("二人称")%の一番奥に、種付けしちゃいます")%_HH_」"
			ENDIF
		ENDIF
	CASE "朝クンニ"
		;恋慕
		IF TALENT:恋慕
			PRINTFORML
			CALL PRINT_STR, @"「%TEXTR("ちゅっ…じゅるるっ、ちゅっちゅっ/じゅるるっ…んっ_HH_　ちゅっ、ちゅう")%_HH_」_L"
			CALL PRINT_STR, @"「%TEXTR("おはようございます/お目覚めですか、おはようございます")%_HH_　%TEXTR("綺麗にしますから待っててくださいね/綺麗になるまでペロペロしてさしあげますからね")%_HH_」_W"
		ENDIF

	CASE "朝足コキ"
		;恋慕
		IF TALENT:恋慕
			PRINTFORML
			CALL PRINT_STR, @"「%TEXTR("ボンジュール（Bonjour）/おはようございます")%_HH_　%CNAME("主人")%」_L"
			PRINTFORMW 「%TEXTR("お願いされた/頼まれていた")%通りに起こしに来ました。あの……%TEXTR("痛かったらいってくださいね/痛くないでしょうか？")%」
		ENDIF
	CASE "朝の新妻プレイ"
		;恋慕
		IF TALENT:恋慕
			PRINTFORML 「%TEXTR("おはようございます/ボンジュール（Bonjour）")%%TEXTR(@"朝ご飯ですよ/今日は%CNAME("一人称")%の手料理ですよ")%」
			PRINTFORML 「%TEXTR("きゃあっ/えっ、何です")%！？　%TEXTR(@"ご飯より先に%CNAME("一人称")%が食べたいんですか……もう/こらっ……してもいいですけど、怖いメイドさんが起きてくるまでですよ？/もう……いっぱい中に出してくれるって約束してくださいね/……本当はダメですからね、今回は特別ですよ")%」
		ENDIF

	CASE "朝パイズリ"
		;恋慕
		IF TALENT:恋慕
			PRINTFORML
			CALL PRINT_STR, @"「%TEXTR("はぁっ…んっ……/んぅ…んっ……")%　おはようございます、%CNAME("主人")%_HH_」_L"
			CALL PRINT_STR, @"「朝なのに起きてくださらないから……%TEXTR("ちょっと悪戯しちゃいました/ご奉仕して起こしてみました")%_HH_」_W"
		ENDIF
	CASE "朝騎乗位"
		;恋慕
		IF TALENT:恋慕
			PRINTFORML
			IF RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("あっ、あんっ…ああっ、あっ/んっ、んんっ、んぅっ、んうっ")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("おはようございます、/おはよう、ちゅっ_HH_　")%%CNAME("主人")%。%TEXTR("朝から元気いっぱいで、その……したくなってしまって……ごめんなさい/起こしに来たんですけど、起きてくださらないのに立派になっておられたので……はしたないですよね……")%」"
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("ふふっ/うふふっ")%_HH_　%TEXTR("ボンジュール（Bonjour）/おはようございます")%。%CNAME("主人")%」"
				CALL PRINT_STRW, @"「%TEXTR("んっ、あっ/んっ、んっ、んんっ")%、%TEXTR(@"久しく乗馬の練習をしていないなって思って、%CNAME("主人")%に跨っちゃいました/乗馬は聖騎士の嗜みですから、%CNAME("主人")%も乗りこなしてみせますよ")%_HH_」"
			ENDIF
		ENDIF
	CASE "朝Ａ騎乗位"
		;恋慕
		IF TALENT:恋慕
			PRINTFORML
			CALL PRINT_STRL, @"「%TEXTR("ボンジュール（Bonjour）/おはようございます")%_HH_　%CNAME("主人")%」"
			IF RAND:2 == 0
				CALL PRINT_STRW, @"「%CNAME("一人称")%の……%TEXTR("お尻/アナル/不浄の穴")%が%TEXTR("昨日/昨晩/夜")%から%TEXTR("落ち着かなくって/ウズウズしちゃって")%、%TEXTR(@"自分でも慰めたんですけど……ダメだったんです/どうしても%CNAME("主人")%のが欲しくなっちゃいまいた")%……%TEXTR("あっ/んっ")%_HH_」"
			ELSE
				CALL PRINT_STRW, @"「%TEXTR("ふふっ/うふふっ")%_HH_　%TEXTR("今朝/今日")%の%CNAME("一人称")%の%TEXTR("お尻/アナル/不浄の穴")%の%TEXTR("具合/締めつけ/心地よさ")%はどうですか？　%TEXTR("昨晩/昨日の夜")%から%TEXTR(@"ずっと%CNAME("二人称")%サイズのディルドで拡張してきたんです。こんな悪い子にはお仕置きが必要ですよね？/入れていたプラグを抜いたばかりですから、%CNAME("一人称")%も疼いちゃって……ごめんなさい。はしたないですよね")%」"
			ENDIF
		ENDIF
	CASE "朝キス"
		;恋慕
		IF TALENT:恋慕
			PRINTFORML
			CALL PRINT_STR, @"「%TEXTR("ちゅ/ちゅっ/ちゅぅ")%_HH_」_L"
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR(@"元気が出るキスですよ。今日一日頑張ってくださいね/おはようございます、%CNAME("主人")%/いい朝ですね、今日も一日頑張りましょう")%」_W"
			ENDIF
		ENDIF
	CASE "朝添い寝"
		;恋慕
		IF TALENT:恋慕
			PRINTFORML
			PRINTFORML 「%TEXTR("ボンジュール（Bonjour）/おはようございます")%……%TEXTR(@"起こしに来たのですが寝顔を見ていたら%CNAME("一人称")%も眠たくなってしまいました/起こしにきたつもりが一緒に寝ちゃってましたね")%
			PRINTFORMW 「%TEXTR(@"あの……もう少しだけこうしていてもいいですか？　/あと少しだけ……このままでいさせてください。")%%CNAME("主人")%」
		ENDIF
	CASE "朝シックスナイン"
		;恋慕
		IF TALENT:恋慕
			PRINTFORML
			PRINTFORML 「%TEXTR("んっ、れろっ、れろ……/んっ……んっ、ちゅっ、ちゅぅ……")%　おはようございます」
			PRINTFORMW 「%TEXTR(@"朝のご奉仕をしていたら%CNAME("一人称")%も濡れてきちゃいました……折角ですから互いにご奉仕しませんか？/中々起きてくれないのでご奉仕させていただきました……あっ、%CNAME("一人称")%のクリちゃん、ダメェ。感じちゃいます")%」
		ENDIF
	CASE "朝フェラ"
		;複数プレイ　これで分岐取れるはず？？？
		;複数キャラいると朝フェラを狙って起こせない。取り合えず書いてコメントアウト処理しておく
		;一緒にプレイしている相手の名前は%CNAME(CALLNAME:PARTNER() )%で呼べるのか？　%CNAME("主人")%形式じゃないとダメなのか、解らん……
		IF PARTNER()
			IF RAND:3 == 0
				PRINTFORML
				PRINTFORML 「%TEXTR("ボンジュール（Bonjour）/おはようございます")%……%TEXTR("んっ、ちゅ、/ちゅっ、ちゅっ、/れろっ、れろっ、")%%CNAME("主人")%……」
				CALL PRINT_STRW, @"「今日は%CNAME("パートナー")%と%TEXTR("二人で/一緒に")%、%TEXTR("朝のフェラチオ奉仕をさせて/たっぷりご奉仕をさせて/元気になるまでたっぷりご奉仕させて")%……%TEXTR("ちゅっ、ちゅぅっ/んっ、んぅっ/れろれろっ、れろっ")%_HH_　%TEXTR("いただきます/もらいます")%_HH_」"
			ELSEIF RAND:2 == 0
				PRINTFORML
				PRINTFORML 「%TEXTR("ボンジュール（Bonjour）/おはようございます")%。%CNAME("主人")%」
				CALL PRINT_STRL, @"「%TEXTR("起こしに来たら/おはようの挨拶のタイミングで")%丁度%CNAME("パートナー")%%TEXTR("も来てたので/と鉢合わせたので")%……%TEXTR("ちゅっ、ちゅう/じゅるっ、じゅるる")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("今日は/今朝は")%%TEXTR("二人で/一緒に")%%TEXTR("ご奉仕させていただきますね/朝のご奉仕をさせてくださいね")%_HH_」"
			ELSE
				PRINTFORML
				PRINTFORML 「%TEXTR("ボンジュール（Bonjour）/おはようございます")%。%CNAME("主人")%」
				CALL PRINT_STRW, @"「%CNAME("一人称")%と%CNAME("パートナー")%で、%TEXTR(@"どっちの方がご奉仕が上手か/どちらが先に%CNAME("主人")%をイかせられるか")%……%TEXTR("ちゅっ、ちゅっ/んっ、んぅっ/れろっ、れろれろ")%_HH_　%TEXTR("勝負しようって事になりました/勝負ですよ")%_HH_」"
			ENDIF
		ELSE
			;恋慕
			IF TALENT:恋慕
				PRINTFORML
				PRINTFORML 「%TEXTR("んっ、ちゅっ……/んぅ……んっ、ちゅぅ……")%　おはようございます。%CNAME("主人")%」
				IF RAND:2 == 0
					CALL PRINT_STRW, @"「%CNAME("主人")%を起こしに来たんですが、ぐっすり寝ておいでだったので……%TEXTR("悪戯しちゃいました/ご奉仕しちゃいました")%_HH_」"
				ELSE
					CALL PRINT_STRW, @"「ちゃんと起きない悪い子は、んっ_HH_……%TEXTR("じゅるるっ、じゅぽっじゅぽっ/ジュルジュルっ、ジュルルっ、グポッグポッ")%、%TEXTR("もっとお仕置きしちゃいますよ/おしゃぶりの刑にしちゃいますよ")%？_HH_」"
				ENDIF
			ENDIF
		ENDIF
	CASE "Ｗ朝フェラ"
		;PARTNERはCSTR:朝駆け = 朝フェラ、TARGETはCSTR:朝駆け = Ｗ朝フェラ となっているため　Ｗ朝フェラの時のみ喋る予定
		;淫乱
		IF TALENT:淫乱 && RAND:2 == 0
			PRINTFORML
			PRINTFORML 「おはようございます、%CNAME("主人")%」
			CALL PRINT_STRL, @"「%TEXTR("んっ、ちゅ、/ちゅっ、ちゅっ、/れろっ、れろっ、")%%TEXTR(@"朝から欲しくなってしまった%CNAME("一人称")%達のお口にたっぷり朝の濃厚ミルクを種付けしてくださいね/ごめんなさい。%CNAME("一人称")%達はコレが欲しくってたまらなくなってしまいました")%_HH_……」"
			CALL PRINT_STRW, @"「%TEXTR("はぁ/んぅ")%_HH_……%TEXTR("朝のフェラチオ奉仕。毎日でもご命令してくださいね/匂いを嗅いでるだけで……興奮してきちゃいます/お口にいれてるだけで、濡れてきちゃいます")%……%TEXTR("ちゅっ、ちゅぅっ/んっ、んぅっ/れろれろっ、れろっ")%_HH_　%TEXTR(@"とっても素敵です/%CNAME("一人称")%達のご奉仕気持ちいいですか")%、%CNAME("主人")%_HH_」"
		;恋慕を想定
		ELSE
			PRINTFORML
			PRINTFORML 「おはようございます……%TEXTR("んっ、ちゅ、/ちゅっ、ちゅっ、/れろっ、れろっ、")%%CNAME("主人")%……」
			CALL PRINT_STRW, @"「今日は%CNAME("パートナー")%と%TEXTR("二人で/一緒に")%、%TEXTR("朝のフェラチオ奉仕をさせて/たっぷりご奉仕をさせて/元気になるまでたっぷりご奉仕させて")%……%TEXTR("ちゅっ、ちゅぅっ/んっ、んぅっ/れろれろっ、れろっ")%_HH_　%TEXTR("いただきます/もらいます")%_HH_」"
		ENDIF
	ENDSELECT
CASE "挨拶する"
	;2018/01/15　フラグを整理
	;朝は　調教コマンド側の台詞表示→経験処理表記→事後のココの台詞の順番で表記される
	SELECTCASE CSTR:朝駆け
		CASE "朝キス"
			PRINTFORML 「おはようございます、%CNAME("主人")%」
			IF TEXTS("曜日") == "日"
				PRINTFORML 「今日は%TEXTR("予定とか、ありますか？/お暇でしょうか？")%　%TEXTR("無いのならこのまま一緒にゴロゴロしませんか？/無いのでしたら一緒にお出かけしませんか？")%」
			ELSE
				CALL PRINT_STR, @"「%TEXTR(@"今日も元気に頑張りましょうね　ちゅっ/今日も%CNAME("二人称")%の元気な顔が見れて%CNAME("一人称")%は幸せです")%_HH_」_W"
			ENDIF
		CASE "朝の母乳搾り"
			CALL PRINT_STR, @"「%TEXTR("慣れた手つきになってきましたね/実は……毎日自分で処理しているので助かっちゃいます")%_HH_」_W"
		CASE "朝足コキ"
			PRINTFORMW 「%TEXTR(@"正直、良さが良くわからないのですが%CNAME("主人")%が喜んでくださるならまたしてあげますね/手加減しない方が嬉しいと言われても痛くするのは不本意ですからね")%」
		CASE "朝クンニ"
			CALL PRINT_STR, @"「%TEXTR("んっ/んぅ")%……%TEXTR("じゅるるっ/じゅるっ、ピチャピチャピチャ")%_HH_」_W"
			CALL PRINT_STR, @"「%TEXTR("おはようございます/ボンジュール（Bonjour）")%%CNAME("主人")%……%TEXTR("今、綺麗にしますから待ってくださいね/綺麗にしようと舐めてるのにドンドン溢れてきちゃいますね")%_HH_」_W"
		CASE "朝逆正常位"
			PRINTFORMW 「%CNAME("主人")%……%TEXTR("ごめんなさい/反省しています/怒っておられますか")%」
		CASE "朝騎乗位"
			CALL PRINT_STR, @"「%TEXTR("ちゅっ/ちゅうっ")%_HH_　%TEXTR("おはようございます/ボンジュール（Bonjour）")%」_L"
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("恋人はこうして起こしてあげると喜ぶって聞きました/好きな方へのサプライズになると聞いて、襲っちゃいました")%_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("学校ではあんまりイチャイチャ出来ない分、家ではたっぷり楽しみましょうね/お家で楽しんだ分、学校ではちゃんと我慢してくださいね")%_HH_」_W"
			ENDIF
		CASE "朝Ａ騎乗位"
			PRINTFORM 「%TEXTR("ごめんなさい/すみません")%……
			IF FINDCHARA(NO, 1) > 0 && RAND:2 == 0
				PRINTFORM フェリシエルに頼まれて
			ENDIF
			PRINTFORML %TEXTR(@"%CNAME("主人")%/%CNAME("二人称")%")%を起こしに来たのですが……」
			CALL PRINT_STR, @"「……%TEXTR("苦しそうなぐらいパンパンに大きくなっていたのが目に入ったので/手では収まってくださらなかったので")%%TEXTR("楽にしてさしあげたいなって、/ご奉仕しなくてはと思い……")%%TEXTR("んっ/ああんっ")%_HH_」_L"
			PRINTFORML 「%TEXTR("思わず……跨っちゃいました/イケナイとは思ったのですが……不浄の穴でご奉仕させていただきました")%……」
			IF TALENT:恋慕 && RAND:2 == 0
				PRINTFORML %TEXTR(@"自分勝手な事をしてごめんなさい。%CNAME("一人称")%の事を嫌いにならないでくださいね/自分でこんな事しちゃう女の子なんて……ちょっと嫌ですよね/%CNAME("一人称")%は聖職者なのにこんなはしたない事をしちゃうなんて……反省しないと")%……」
			ENDIF
		CASE "朝の新妻プレイ"
			PRINTFORML 「%TEXTR(@"朝からたっぷりご馳走されちゃいました/朝から激しくするなんて……もう/%CNAME("一人称")%が可愛いからなんて言っても駄目ですよ")%……」
			PRINTFORMW 「%TEXTR("じゃあ、朝ご飯は一緒にシャワーを浴びてからにしましょう/ご飯の前にシャワーにしましょう。汗かいちゃいましたからね")%」
		CASE "朝添い寝"
			IF TALENT:恋慕 && RAND:2 == 0
				PRINTFORML 「%TEXTR("おはようございます/ボンジュール（Bonjour）")%……実は%TEXTR("怖い夢を見てしまって一人で眠るのが怖くってお邪魔しちゃいました/お部屋を間違えてしまいました")%。%TEXTR("ごめんなさい/迷惑でしたよね")%」
			ELSE
				PRINTFORML 「%TEXTR("いけないっ、起こしに来たのに一緒に寝ちゃってました/すみません、抱き心地が良くって……起こしに来たのに一緒に寝ちゃってました")%」
			ENDIF
		CASE "朝フェラ", "朝パイズリ", "朝シックスナイン", "Ｗ朝フェラ"
			IF TALENT:恋慕
				;包茎
				;IF CHECK_STAIN(STAIN:MASTER:Ｐ, "Ｐ恥垢") && TALENT:MASTER:包茎
				IF TALENT:MASTER:包茎
					IF COND("夏") && RAND:2 == 0
						PRINTFORML 「%TEXTR("くんくん/すんすん")%……」
						PRINTFORML 「%TEXTR(@"まだ、ちょっと匂っちゃってますね。汗と恥垢の匂いが混ざり合って……んっ、%CNAME("一人称")%は好きですよ、この匂い/ご奉仕しても……蒸れているから、汚れがたっぷり溜まっちゃってますね。続きは後で……全部綺麗になるまでたっぷりお口でご奉仕してあげますからね")%」
					ELSE
						;真性包茎
						IF COND("真性包茎", MASTER)
							CALL PRINT_STR, @"「%TEXTR("皮の下に隠れちゃってる亀頭ってちょっと可愛いですよね/おはようございます。すっかり元気になっちゃてるおちんちんの皮を剥いて恥垢をお掃除したらお仕舞いにしましょう")%_HH_」_L"
							IF RAND:2 == 0
								PRINTFORML 「%TEXTR("今日/今朝")%も%TEXTR("溜まってる恥垢/隠れちゃってる所の汚れ")%がちゃんと綺麗になるまで%TEXTR("ペロペロさせてくださいね/ご奉仕させてくださいね")%」
							ELSE
								PRINTFORML 「%TEXTR(@"綺麗にしてあげられると%CNAME("一人称")%も嬉しいんですからね/恥垢が溜まってきたら早めに%CNAME("一人称")%に言ってくださいね？")%」
							ENDIF
						;仮性包茎
						ELSE
							IF RAND:2 == 0
								PRINTFORML 「ふぅ……まだおち〇ちんの皮の下には汚れが溜まっちゃってますね……」
								CALL PRINT_STRW, @"「んっ、もう少し念入りに……全部綺麗にしてあげますから楽にしててくださいね_HH_」"
							ELSE
								PRINTFORML 「隠れてる所には汚れが溜まりやすいんですからね」
								PRINTFORML 「何時でも言ってくだされば……%CNAME("一人称")%が毎日綺麗にしてあげますから……」
								CALL PRINT_STRW, @"「これからは%CNAME("一人称")%のお口を使いたい時は、ご奉仕する様に命令してくださいね_HH_」"
							ENDIF
						ENDIF
					ENDIF
				ELSEIF TEXTS("曜日") == "日"
					PRINTFORML 「しーっ、静かにしてくださいね。これ以上続けると…%TEXTR("家族の方に/怖いメイドさんに")%バレちゃいますから、お仕舞いです」
				ELSE
					PRINTFORML 「%TEXTR("時間がないので/残念ですが")%……%TEXTR("続き/本番")%をする時間はありません」
				ENDIF
				IF TEXTS("曜日") == "日"
					PRINTFORML 「%TEXTR("朝御飯が終わったら/夜にでも")%続きをしましょうか？」
				ELSE
					PRINTFORML 「続きは……%TEXTR("＿/そうですね、")%%TEXTR("学校/部室")%で%TEXTR("なら、ね？/ならいいですよ……")%」
				ENDIF
			ELSE
				PRINTFORML 「時間がないので朝はココまでです」
			ENDIF
			PRINTFORML
	ENDSELECT
	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1
	IF TALENT:恋慕 && (DAYEV("ハロウィン", "ゲーム内") || DAYEV("ハロウィン")) && CEVENT("個別ハロウィンイベント：マリー") == 0
		CALL PRINT_STRL, @"「Trick or Treat_HH_」"
		CALL PRINT_STRW, @"「さぁ、大人しくいたずらされるか、お菓子をお願いします_HH_」"
		CALL SET_CEVENT, "個別ハロウィンイベント：マリー"
	ELSEIF COND("水泳")
		PRINTFORMW 「%TEXTR("今日は水泳の日ですね。良かったら水泳で勝負しませんか/水泳で勝負しましょう。勝ったら何でも言うことを聞いてあげてもいいですよ？")%」
	ELSEIF COND("体育")
		IF RAND:2 == 0
			PRINTFORMW 「体育の日ですね。%CALLNAME:MASTER%は体育は好きですか」
		ELSE
			PRINTFORMW 「体育の日は好きですよ。一生懸命頑張りましょうね」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「今日は何かご予定はありますか？」
		ELSE
			PRINTFORMW 「まずは朝ごはんですね」
			IF FINDCHARA(NO, 1) > 0
				PRINTFORMW 「フェリシエルさんのご飯にすっかり篭絡されている気もしますが、美味しいものは美味しいので良い事です」
			ENDIF
		ENDIF
	ENDIF
CASE "一番乗り"
	;部活の標語
	SELECTCASE SAVESTR:標語
	CASE "部活中は下着姿で"
		PRINTFORML 「%TEXTR("これも部活動の一環ですからしょうがないですね……/部活の標語はちゃんと守りますよ。ルールは遵守されるべきものですから/ルールは守ります。標語の内容が何であれ……")%」
		PRINTFORMW 標語を目にした%CALLNAME:TARGET%は恥ずかしそうにしながら下着姿になった……
		CALL SETFLAG, "下着姿になる", TARGET
	CASEELSE
		IF ABL:奉仕精神 >= 5 && ABL:マゾっ気 >= 3 && CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｐ恥垢") && RAND:2 == 0 && CEVENT("秘密の告白：マリー") == 0
			PRINTFORM 「%CNAME("主人")%、実は
			IF CEVENT("初デート：私はあなたのお姉ちゃんです")
				PRINT お姉ちゃん
			ELSE
				PRINTFORM %CNAME("一人称")%
			ENDIF
			PRINTFORMW には%CNAME("二人称")%に内緒にしている秘密があるのですが……」
			IF RAND:5 == 0
				PRINTFORMW 「……%CNAME("一人称")%はちょっと匂いがきつい方が好きなんです……」
				PRINTFORMW 「もちろん、綺麗にしなくちゃいけませんし。もし良かったら一緒にお風呂に入ってお背中なんて流させていただいたり……なんて」
				;PRINTFORMW （%CNAME("主人")%の洗ってないくっさいおちんちんをお風呂でしゃぶらされちゃうなんて……ダメです、こんな想像をしては）
				PRINTFORMW 「本当にごめんなさい……%CNAME("一人称")%は聖職者なのに、こんなイヤらしい事ばかり考えてしまうなんてダメですよね」
				CALL SET_CEVENT, "秘密の告白：マリー"
			ELSE
				PRINTFORMW 「や、やっぱり何でもありませんよ！？」
			ENDIF
		ELSE
			IF TALENT:淫乱 && CHECK_OTHER("黒いチョーカー") && RAND:2 == 0
				PRINTFORML 「二人っきりですね……」
				PRINTFORMW 「%TEXTR("その/あの")%……%TEXTR("ムラムラしたら/性処理したくなったら")%%TEXTR("遠慮なく言ってくださいね/何時でもしてあげますからね")%」
				IF RAND:2 == 0
					PRINTFORMW 「%TEXTR("……や、やっぱり今のは無しです。自分でも何言っちゃってるんでしょうか/え、えっと……勇気を出して言ってみましたが、聖職者としては本当はダメですからね")%」
				ENDIF
			ELSE
				PRINTFORML 「%TEXTR("どうやら、二人きりのようですね/今日はまだ誰も来ておられないようですね")%」
				PRINTFORMW 「%TEXTR("良い機会なので、一緒に聖書のお勉強をしましょうか/一緒にトレーニングでもしませんか？")%」
			ENDIF
		ENDIF
	ENDSELECT
CASE "ただいま"
	PRINTFORMW 「ただいま戻りました」
	PRINTFORMW 「%CNAME("一人称")%が居ないからと言って堕落した生活を送ってはいませんか？」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF RAND:2 == 0
			PRINTFORMW 『お帰りなさい。待ってました』
		ELSE
			PRINTFORMW 『お帰りなさい。何か楽しい事はありましたか？　後で教えてくださいね』
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF

CASE "入室挨拶"
	SELECTCASE CFLAG:MASTER:PREV_DAILYCATE
	;トーク
	CASE 1
		SELECTCASE CSTR:MASTER:PREV_DAILYCOM
		CASE "甘い言葉"
			IF TALENT:恋慕
				PRINTFORML 「%TEXTR("他の方/他の子")%%TEXTR("を口説いてもいいですけど/とイチャイチャしても構いませんけど")%……」
				PRINTFORMW 「%TEXTR(@"後で……%CNAME("一人称")%にもお願いしますね/ちょっとだけ嫉妬しちゃいますからね……/見ていると少しだけ胸が苦しくなっちゃいますね……")%」
			ELSE
				PRINTFORML 「%TEXTR("ＴＰＯを弁えてください。他の部員の方も来るんですからね/恋愛は素晴らしい事ですが……他の方の目をもう少し気にしてくださいね")%」
			ENDIF
		CASE "挨拶クンニ", "挨拶フェラ"
			IF TALENT:恋慕
				PRINTFORML 「%TEXTR(@"人前でと言うのはどうかと思いますが……%CNAME("一人称")%も聖職者ですから%CNAME("二人称")%にご奉仕して欲しいと頼まれれば嫌と言う訳ではないですからね……/あの……%CNAME("一人称")%も%CNAME("二人称")%にご奉仕してもらうのは嫌ではないですから、覚えておいてくださいね")%」
				PRINTFORMW %CALLNAME:TARGET%は%TEXTR("しどろもどろになりながら消え入りそうな声で自己主張している/赤面して眼前の行為から目を反らしながらもチラチラと様子を伺っている")%。
			ELSE
				PRINTFORMW 「%TEXTR("な、な、何をしているんですか/お二人は恋仲だったのですね。お邪魔でしたら少し外で時間を潰して来ますけど")%……」
			ENDIF
		CASEELSE
			PRINTFORMW 「%TEXTR(@"何やら楽しそうですね。良かったら%CNAME("一人称")%もお話に混ぜてくださいな/ふふっ、仲良きことは美しきかなですよ。学園生活を満喫している姿を見ていると%CNAME("一人称")%も嬉しくなってしまいます")%」
		ENDSELECT
	;もてなす
	CASE 2
		IF COND("Ｈないちゃつき中", MASTER)
			IF TALENT:恋慕
				PRINTFORMW 「%TEXTR(@"スキンシップは良い事ですが……ほどほどにしてくださいね、%CNAME("主人")%/またイヤらしい事をしているんですか……後で一緒に神様に懺悔しましょう。解りましたね？")%」
			ELSE
				PRINTFORMW 「%TEXTR(@"%CNAME("一人称")%達はまだ高校生なのですから、あまり過激な事をするのはイケナイと思いますよ/ほどほどにしましょうね、他の人に見られながら……イチャイチャしちゃうのはどうかと思いますよ")%」
			ENDIF
		ENDIF
	;隙を見せる
	CASE 3
		IF TALENT:恋慕
			PRINTFORMW 「%TEXTR(@"どうしましたか？。%CNAME("一人称")%は見ているだけですからどうぞ続けてくださいね/楽しそうですね。良かったら%CNAME("一人称")%も混ぜてもらっていいでしょうか")%」
		ELSE
			PRINTFORMW 「%TEXTR("不純異性交遊はダメですよ……/鼻の下が伸びちゃってますよ。だらしないですね")%」
		ENDIF
	;写真撮影
	CASE 5
		IF TALENT:恋慕
			PRINTFORMW 「%TEXTR(@"写真を趣味にするのは良い事ですが……他の子ばっかり撮らないでくださいね、%CNAME("主人")%/後で%CNAME("一人称")%の事も撮ってくれます……よね？")%」
		ELSE
			PRINTFORMW 「%TEXTR("写真撮影ですか……便利な時代になったものですね/カメラがなくても写真が撮れるなんて、時代は変わりましたね")%」
		ENDIF
	;パンツ、性処理
	CASE 4, 6
		IF TALENT:恋慕
			PRINTFORML 「%TEXTR("ふ～ん/なるほど")%……」
			PRINTFORMW 「%TEXTR(@"どうぞ、飽きるまで続けてくださって結構です。その代わり後でちゃんとお話を聞かせていただきますね、%CNAME("主人")%/%CNAME("一人称")%の事は気にせず続けてください。全部終わるまでちゃ～んと見ててあげますから、ええ")%」
		ELSE
			PRINTFORML 「%TEXTR("え……/ええっ！？")%」
			PRINT 「ここは
			IF COND("夜")
				PRINT パブリックスペース
			ELSE
				PRINT 部室
			ENDIF
			PRINTFORMW ですよ。ＴＰＯを弁えてくださいっ！！」
		ENDIF
	ENDSELECT

	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1

	IF CFLAG:呼び出された
		[IF_DEBUG]
			PRINTFORMW あなた「%TEXTR("来てくれ。いや―来い、セイバァァァアアア！！！！/－セイ、バー。―頼む、来てくれセイバー……！")%」
			IF RAND:2 == 0
				PRINTFORMW マリー『ふぅ……間一髪でしたね。さて、面白半分でアニメの真似をして、屋上から飛び降りた件について何か釈明はありますか？。無ければお説教したいと思いますが』
			ELSE
				PRINTFORMW マリー『マスター……私が聖杯戦争に呼ばれるならルーラーか、ランサーだと思います。やり直しを要求するのでもう一回屋上に行きませんか？』
			ENDIF
		[ENDIF]
		IF COND("夜")
			IF TALENT:恋慕
				IF RAND:2 == 0
					PRINTFORML 「%TEXTR("ふんふふ～ん/らっららー")%♪」
				ENDIF
				PRINTFORMW 「%CNAME("一人称")%%TEXTR(@"を呼びましたか、/に何かご用事でしょうか？/の力が必要なのですね？/は%CNAME("二人称")%の為でしたら何処でも駆けつけますからね")%」
				IF RAND:2 == 0
					PRINTFORMW %CALLNAME:TARGET%は呼び出された事が嬉しいらしく上機嫌で鼻歌を歌っている。
				ENDIF
			ELSE
				;PRINTFORMW
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORMW 「%TEXTR("どうしましたか？/どうなさいましたか？/お困り事ですか？/何かお手伝いしましょうか？/緊急事態ですか！？")%」
			ELSE
				PRINTFORMW 「%TEXTR("何でしょうか？/何かご用事ですか？/お悩みのご相談でしょうか？")%」
			ENDIF
			IF CFLAG:汗 == 0
				IF RAND:2 == 0
					CFLAG:汗 = 2
				ELSE
					CFLAG:汗 = 1
				ENDIF
			ENDIF
			IF CFLAG:汗 >= 2
				PRINTFORMW 駆けつけた%CALLNAME:TARGET%は汗を拭いながら、%TEXTR("心配した様子で/緊張した面持ちで")%%CALLNAME:MASTER%に駆け寄ってきた。
			ENDIF
		ENDIF
	ENDIF
CASE "居間に現れた"
	IF COND("欲求不満") >= 2
		CALL PRINT_STR, @"『%TEXTR(@"%CNAME("主人")%……/…………")%』_L"
		PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%に構って欲しそうに%TEXTR("寄り添ってきた/服の端を引っ張った/赤面しながら手を握ってきた")%
	;居間に呼ばれた
	ELSEIF CFLAG:呼び出された
		IF NO:ASSI == 23 && RAND:2 == 0
			PRINTFORMW 『%TEXTR(@"助手をお呼びですか、%CNAME("主人")%/助手は準備万端ですよ、%CNAME("主人")%")%』
		ELSE
			PRINTFORMW 『%TEXTR("ご飯の時間でしょうか？　それとも……/一緒にトレーニングする気になりましたか？　え、違うんですか/聖書のお勉強をしますか？　ん？　違う要件ですか")%』
		ENDIF
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		IF RAND:2 == 0
			PRINTFORMW 『何処へ行ってたんですか？』
		ELSE
			PRINTFORMW 『お暇なら一緒にテレビでも見ません？』
		ENDIF
	ELSE
		IF COND("夜")
			PRINTFORMW 『%TEXTR("こんばんは/ボンソワール（Bonsoir）")%』
		ELSE
			PRINTFORMW 『%TEXTR("こんにちは/ボンジュール（Bonjour）")%』
		ENDIF
		PRINTFORMW 『今日も元気そうで何よりですよ』
	ENDIF

;部屋にいる他の人から挨拶を返される挨拶。WAITの使用は一回が望ましい
CASE "簡易入室挨拶"
	;2019/08/05　お茶の差し入れ追加
	IF COND("夏") && RAND:2 == 0
		PRINTFORMW 「%TEXTR("暑いのでちょっとお茶を買ってきました/熱中症にならない様に清涼飲料水を持ってきました/聖水は……ダメですよね。大丈夫ただのお茶の差し入れですから")%」
		CALL SETFLAG_DAILY, "お茶"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室挨拶時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「お邪魔します。みなさんもう集まってますね」
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「%TEXTR(@"もしかして……%CNAME("一人称")%だけ遅れちゃっいましたか/電話で呼び出されちゃいました。もしかして皆さん集まっちゃってますか？")%」
	ELSE
		PRINTFORMW 「こんにちは、今日も部活動頑張りましょう♪」
	ENDIF
;簡易入室挨拶に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室挨拶中")がONなのでFIND_COND("入室挨拶中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室挨拶中")で調べられる
CASE "挨拶返し"
	;挨拶してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室挨拶中")
	;選ばれたキャラのデフォのCALLNAME。このキャラへの呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

	;ここでは括弧に『』を使う

	;挨拶してきた人に先生が混じっている
	IF FIND_COND("教員", "入室挨拶中")
		PRINTFORMW 『先生、お邪魔しています』
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室挨拶時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		IF RAND:2 == 0
			PRINTFORMW 『みなさん揃ってますよ』
		ELSE
			PRINTFORMW 『賑やかになってきましたね』
		ENDIF
	ELSE
		PRINTFORMW 『%TEXTR("こんにちは/ボンジュール（Bonjour）")%、お邪魔しています』
	ENDIF
CASE "全裸化への反応"
	;「Lachez vos armes　On se casse」
	;「ご主人様は日本語しか解らないのでいいのですけど……この部活にはちゃんと意味が通じる人がいるのが困りものですね。この間の怒るのは構わないが、発音が汚いという指摘とか……おかげで怒っていたのを忘れてしまいました」
	IF TALENT:恋慕
		PRINTFORML 『%TEXTR("時と場合はちゃんと考えてくださると嬉しいのですが……/バキッ　あっ、失礼しました。カップが古くなってたみたいですね/ふふふっ、楽しそうですね？/どうぞ、続けてください")%』
	ELSE
		PRINTFORML 『%TEXTR(@"時と場合は考えましょう/恥ずかしくないのでしょうか……/寒くないですか？/何をしてもいいですけど%CNAME("一人称")%が目のやり場に困ります……")%』
	ENDIF
CASE "抜け出された"
	IF TALENT:恋慕
		;×暇を持て余した/○嫉妬と怒りを叩きつけてくる聖女様のトレーニングにパラチネがつき合わされ瀕死になる
		PRINTFORMW 『%TEXTR("……楽しんできてくださいね/ベキッ　あっ、失礼しました。カップが古くなってたみたいですね/さて……パラチネを探しますか/ちょっぴりだけ…ショックですね")%』
	ELSE
		PRINTFORMW 『%TEXTR(@"ええ……%CNAME("一人称")%は何も見ませんでした/さて……%CNAME("一人称")%はお掃除でもしましょうか")%』
	ENDIF
CASE "お弁当"
	IF TALENT:相思相愛 && RAND:2 == 0
		CALL PRINT_STR, @"「%TEXTR("どうぞ/はい")%。あーん_HH_」_L"
		IF RAND:2 == 0
			CALL PRINT_STR, @"「%TEXTR(@"%CNAME("二人称")%の事を考えながら、一生懸命作りました/今日は%CNAME("一人称")%が食べさせてあげますからね。いっぱい甘えてくださいね")%_HH_」_W"
		ELSE
			PRINTFORML 「%TEXTR("恋人/好きな人/愛する人")%に%TEXTR("手料理/お弁当")%を食べさせてあげるの……」
			CALL PRINT_STR, @"「%TEXTR("夢だったんです/何時かしてみたいなって思ってたんです")%_HH_」_W"
		ENDIF
	ELSE
		PRINTFORML 「%TEXTR("お口に合うといいのですが……/実の所、結構フェリシエルさんに手伝ってもらってますから……/お料理の腕前ではフェリシエルさんには敵わないと思いますが/パラチネは美味しいって言ってくれましたから")%」
		PRINTFORMW 「%TEXTR("どうですか、少しづつは上達してると思うのですが……/不味かったらちゃんと言ってくださいね？/あんまり自信はありませんが、頑張りました")%」
	ENDIF
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面リロードしても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;-------------------------------------------------
@KOJO_DAILY_K23, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中のキャラ
#DIM ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	;PRINTFORML 「ココがあの女のハウスですね」
	PRINTFORML 「あなたの言い分も立場も解りましたが、甘い言葉には騙されません」
	PRINTFORML 「魂を取引材料に……あ、あんな事やこんな事をするなんて、イケナイと思わないんですか！？」
CASE "汗だく"
	IF CHECK_CLO("体操服姿") && RAND:2
		IF RAND:2 == 0
			PRINTFORML 「体育は楽しいですね。加減しろってよく怒られますけど」
		ELSE
			PRINTFORML 「体育は素晴らしいですね。一緒に柔軟運動しませんか？」
		ENDIF
	ELSE
		IF RAND:4 == 0
			PRINTFORML 「Il fait chaud aujourd'hui, non?」
		ELSEIF RAND:3 == 0
			PRINTFORML 「暑いですね……」
		ELSEIF RAND:2 == 0
			PRINTFORML 「暑さが堪えますけど、%CNAME("一人称")%は嫌いじゃないですよ？」
		ELSE
			PRINTFORML 「汗臭くないでしょうか？　ちょっと心配になりますね」
		ENDIF
		PRINTFORML %CALLNAME:TARGET%は%SHIRT(TARGET, "略")%の胸元へと風を送ろうとパタパタと扇いでいる。
		IF RAND:2 == 0
			PRINTFORML どうやら%CLOCOLOR(CSTR:ブラ)%%PANTIES(TARGET, "種類")%をつけているようだ…
		ENDIF
	ENDIF
CASE "寝起き"
	IF TALENT:恋慕
		IF CHOSE_DEVENT("睡眠姦キス")
			PRINTFORML 「%TEXTR("ちょっぴり素敵な夢を見ちゃいました♪/うふふっ、ちょっと素敵な夢でしたね♪")%」
		ELSEIF CHOSE_DEVENT("睡眠姦フェラ")
			IF ABL:精液中毒
				IF RAND:2 == 0
					PRINTFORML 「もしかして、お口の中に広がるこの味は……」
				ELSE
					PRINTFORML 「美味しいものを食べた夢を見たような気がします……」
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「お口の中で何だか不思議な味がするんですけど……何でしょう」
				ELSE
					PRINTFORML 「夢の中で沢山美味しいモノを飲んでいた様な……不思議な夢でしたね」
				ENDIF
			ENDIF
		ELSEIF CHOSE_DEVENT("睡眠姦Ｖ中出し")
			PRINTFORML 「%TEXTR(@"夢の中でしちゃってると思ってたら……もう、次は自重してくださいね？/%CNAME("一人称")%以外にはこんな事しちゃダメですからね？　もちろん、本当は%CNAME("一人称")%にもダメですからね")%」
			PRINTFORML %CALLNAME:TARGET%は恥ずかしそうに%CALLNAME:MASTER%から視線を反らして赤面している。
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「おはようございます。%TEXTR("ちょっとお恥ずかしい姿をお見せしましたね/寝ちゃってましたか、起こしてくれてありがとうございます")%」
			ELSE
				PRINTFORML 「%TEXTR("疲れからか、変な夢を見ちゃいました/変わった夢を見ていました……")%」
				IF RAND:114514 == 0
					PRINTFORML 「黒塗りの高級車にぶつかってしまう夢なんですけどね……」
				ELSEIF RAND:39 == 0
					PRINTFORML 「魔法と剣のファンタジー世界なんですけどね。何故か、エッチなバトルをしている……って言う」
				ELSEIF RAND:1999 == 0
					PRINTFORML 「核により崩壊した東京でサバイバルする不思議な夢でしたね……」
				ENDIF
			ENDIF
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「お恥ずかしい姿をお見せしました」
		ELSE
			PRINTFORML 「疲れからか、変な夢を見ちゃいました」
			IF RAND:114514 == 0
				PRINTFORML 「黒塗りの高級車にぶつかってしまう夢なんですけどね……」
			ENDIF
		ENDIF
	ENDIF
CASE "コスプレ中"
	IF TALENT:恋慕
		PRINTFORML 「%TEXTR("着替えてみましたけどどうでしょうか？/コスプレしちゃいましたが似合っていますか？")%。%CNAME("主人")%」
	ELSE
		PRINTFORML 「コスプレして欲しいって言うから着替えてみましたけど……少し恥ずかしいですね」
	ENDIF
CASE "おやつの感想"
	;今日のおやつを用意したのは自分
	IF COND("おやつ当番")
		CALL PRINT_STRL, @"「今日のおやつは%CNAME("一人称")%が作ったのですが、%TEXTR("美味しく出来ましたね/我ながら上手に出来ました")%_HH_」"
	;今日のおやつは誰かの手作り
	ELSEIF COND("手作りおやつ")
		;今日のおやつ当番の人の手作りを初めて食べた
		IF DEVENT(@"%TEXTS("おやつ当番")%の手作り") == 0
			;おやつ当番が[料理上手]
			IF COND("おやつの作り手が料理上手")
				CALL PRINT_STRL, @"「Tres bien（トレビアーン）_HH_　素晴らしい出来ですね。%CNAME("一人称")%も負けていられません」"
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("とても/凄く")%%TEXTR("上手/美味しい")%ですね。これからのおやつの時間が楽しみです_HH_」"
			ENDIF
		ENDIF
	;おやつが手作りでない
	ELSE
		PRINTFORML 「%TEXTR("今日のおやつも美味しいですね/色んなお菓子が楽しめて素晴らしいです/ここにいると色々なお菓子が食べれますけど、太っちゃいそうですね")%」
	ENDIF

;眠っている
CASE "睡眠"
	;寝言
	CALL KOJO_SLEEP_K23
	;寝言用の汎用地の文呼出
	CALL DAILY_MESSAGE, "寝言"
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回コマンド対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「%CNAME("二人称")%と過ごす日々が永久に続くことを%CNAME("一人称")%は心より願います」
	PRINTFORML 「これからも末永く宜しくお願いしますね」
CASE "契約成立"
	PRINTFORML 「これで契約成立です」
	PRINTFORML 「困った事があれば%CNAME("一人称")%が相談に乗りますから、安易に悪魔に魂を売ってはいけませんよ？」
;あなたにお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
;	PRINTFORML
CASE "短小化契約成立"
;	PRINTFORML
CASE "抜け出す"
	SELECTCASE SAVESTR:現在位置
		CASE "ヤリ部屋"
			IF RAND:2 == 0
				PRINTFORML 「%TEXTR("この部屋には見たこともない様なものまでありますね/本当に色んなモノが用意されているんですね")%」
				PRINTFORML 「%TEXTR("これってやっぱりフェリシエルさんが用意したんでしょうか？/フェリちゃんは出来るメイドさんですが女の子にこんなのを用意させるのはいけませんよ")%」
				PRINTFORML 「%TEXTR(@"べ、別に……%CNAME("一人称")%は聖職者なので興味はありませんが、%CNAME("二人称")%がどうしても使いたいというなら考えてみますね/%CNAME("一人称")%はこう見えても悪魔祓いですからちゃんと色々……知ってますからね？")%」
				PRINTFORML %CALLNAME:TARGET%は視線を泳がせながら居心地が悪そうにソワソワしている
			ELSE
				PRINTFORML 「何と申したらいいんでしょうか、機能的と言うか……」
				PRINTFORML 「エッチする為のお部屋って感じですね。いえ、その……するって言うのは解ってますけど、ええ」
				PRINTFORML 「…………ちょっと恥ずかしいなって思って」
				PRINTFORML %CALLNAME:TARGET%はヤリ部屋の内装を見て、恥ずかしそうに俯いている……
			ENDIF
		CASE "体育倉庫", "更衣室"
			IF RAND:2 == 0
				PRINTFORML 「えっ、ちょ、ちょっと待ってくださいね」
				PRINTFORML 「何か相談があるんじゃないんでしょうか？　えっ、す、すす、するんですか、ここで！？」
			ELSE
				PRINTFORML 「一緒に%TEXTR("運動/トレーニング")%したいのかと思っていたのですが……」
				PRINTFORML 「考えようによっては……まあ、%TEXTR("特訓/身体を鍛える")%とも言えるのでしょうか。%TEXTR(@"何か間違ってる気もしますけど/んん？　もしかして%CNAME("一人称")%は言いくるめられてませんか？")%」
			ENDIF
		CASE "保健室"
			IF TALENT:恋慕
				IF RAND:2 == 0
					IF RAND:2 == 0
						PRINTFORML 「%TEXTR("体調が悪いからコレを着て看病して欲しいのですか？/下半身がムラムラしちゃうから、コレを着て診察して欲しいのですね？")%」
					ELSE
						PRINTFORML 「今日の%CNAME("一人称")%はナースマリー先生です。どこか悪い所はありませんか？　痛いところや苦しいところがあったらちゃんと先生に教えてくださいね」
					ENDIF
					PRINTFORML 「%TEXTR("全部先生に任せてくださいね。まずはお熱を測りますから服を脱いでくださいね/ココが特に苦しいのですか？　こんなに硬くなって……先生も見てるだけでドキドキしちゃいます")%
					CALL SET_COORDINATE, "ナース"
					CALL SET_OTHER, "チョーカー/カチューシャ/眼鏡"
				ELSE
					PRINTFORML 「%TEXTR(@"大丈夫ですか、%CNAME("主人")%/ちょっとだけ熱があるかもしれませんね")%」
					PRINTFORML 「%TEXTR("身の回りのお世話はしますから。楽にして寝ててくださいね……え、一緒に寝て欲しいんですか/寂しいから一緒に寝て欲しいんですか。甘えん坊さんですね……ちょっとだけですよ？")%」
				ENDIF
			ELSE
				PRINTFORML 「%TEXTR("体調が優れないのですか？/大丈夫ですか？　ゆっくり寝て休んでくださいね")%」
				PRINTFORML 「えっ……%TEXTR("ムラムラして授業に集中出来ないから性処理して欲しいんですか？、ココで/下半身が熱っぽいから……性処理してスッキリさせて欲しいんですか？")%」
			ENDIF

		CASE "ラブホテル"
			IF TALENT:恋慕
				IF RAND:2 == 0
					PRINTFORML 「えっと……そわそわしちゃいますね」
					PRINTFORML 「嫌いな訳じゃないですよ、むしろ……その雰囲気……は好き……ですし……」
					PRINTFORML 「や、優しくしてくださいね？」
					PRINTFORML %CALLNAME:TARGET%は照れ隠しに%TEXTR("ちゅっと頬にキスしてきた/手をギュッと握りしめてきた")%
				ELSE
					PRINTFORML 「二人っきりですね……」
					PRINTFORML 「あの……嫌じゃなかったら%TEXTR("最初はキスからお願いします/ギュッと抱きしめてください")%」
					IF RAND:2 == 0
						PRINTFORML 「ワガママ言って……ごめんなさい、%CNAME("一人称")%も緊張しちゃってるんです」
					ENDIF
				ENDIF
			ELSE
				PRINTFORML 「学生の身分なのに、%CNAME("二人称")%はこういう場所で如何わしい事をしているのですね」
				PRINTFORML 「お説教したい所ですが……まずは契約に従い%CNAME("二人称")%の要望を済ませてからにしてあげますね」
			ENDIF
		CASEELSE
			PRINTFORML 「%TEXTR("ちょっと……気まずいですね/後でちゃんと事情を説明しておきますね/抜け出さなくても良かったのではないでしょうか？")%」
	ENDSELECT
CASE "あなたの部屋に連れ込まれた"
	IF RAND:2 == 0
		PRINTFORML 「えっと……な、な、な、何をしますか！？」
		PRINTFORML 「お、お茶でもいれましょうか？」
	ELSE
		PRINTFORML 「少し待ってくださいね……」
		PRINTFORML 「心の準備がまだなので、ちょっとドキドキしちゃってますから」
	ENDIF

CASE "自室に招待"
	IF TALENT:恋慕 && FIND_COND("フェリシエル") && CEVENT("イベント：童貞を殺す服／マリー") == 0
		PRINTFORML 「フェリシエルさんに相談して、イメチェンしてみたんですけどどうでしょうか？」
		;PRINTFORML 「%CNAME("主人")%は露出度が高い服より、こう言う感じの可愛い服装がお好きなんでしょうか？」
		;PRINTFORML 『マリーさんに足りないのは童貞への配慮です。ご主人様は童貞なのでこういう服を着ると喜んでくれますよ』
		;PRINTFORML 「%CNAME("主人")%は露出度が高い服より、こう言う感じの可愛い服装がお好きだと聞いたのですが……」
		PRINTFORML 「ちょっと……気恥ずかしいのですが、部屋着はこの服装にしてみようと思いまして……%CNAME("主人")%が気に入ってくれると嬉しいですけど」
		PRINTFORML %CALLNAME:TARGET%はクローゼットから胸元にリボンをあしらったフリルブラウスにコルセットスカートを取り出すと、活動的な普段の服装とは一転した清楚なお嬢様と言った風体の服装を%CALLNAME:MASTER%に見せた。
		IF FIND_COND("現在存在", "フェリシエル")
			PRINTFORML 『早速、雑談でもしながら着替えてみましょうか』
		ELSE
			PRINTFORML 「二人でお話してる間にでも着替えてみますね」
		ENDIF
;ＳＨＯＰ画面の選択でRESULTを入れるとマウス入力を受け付けなくなるので、選択肢の実装は一旦保留とする
;		CALL PRINT_SELECT, "可愛い方が好き/普段通りの方が好き"
;		IF RESULT == 0
;			PRINTFORML 「ちょっと気恥ずかしいので部屋着で良ければ、これからはこの服装にしますね。ありがとうございます、%CNAME("主人")%」
;			PRINTFORML %CALLNAME:TARGET%は嬉しそうに微笑んで、%CALLNAME:MASTER%にお礼を言うと早速服を着替える事にした。
			;童貞を殺す服に着替える
			CALL SET_COORDINATE, "部屋着"
;		ELSE
;			PRINTFORML 「そうですよね……%CNAME("一人称")%にはあまり可愛いのは似合いませんよね」
;			PRINTFORML 「%CNAME("一人称")%としても、動きやすい方が良いのでそんなに気にしてませんから」
;			PRINTFORML %CALLNAME:TARGET%はちょっと寂しそうな表情を浮かべた後、%CALLNAME:MASTER%の視線に気づいて微笑を浮かべてみせた。
;		ENDIF
		CALL SET_CEVENT, "イベント：童貞を殺す服／マリー"
	ELSEIF COND("欲求不満") >= 1 && TALENT:恋慕
		PRINTFORML 「あ、あああ……あの……」
		;アドバイザーを伴っている場合
		IF FIND_COND("現在存在", "助手")
			PRINTFORML 「嫌じゃなかったら……その……%CNAME("助手")%と三人で……%TEXTR("＿/アレ")%しませんか……」
		ELSE
			PRINTFORML 「嫌じゃなかったら……その……%TEXTR("お願いします/アレしませんか")%」
		ENDIF
	ELSE
		CALL PRINT_STR, @"「%TEXTR(@"ち、散らかってますけど！！/%CNAME("一人称")%の部屋へよ、ようこそ")%」_L"
	ENDIF

CASE "自室に訪問された"
	;アドバイザーを伴っている場合
	IF FIND_COND("現在存在", "助手")
		IF FIND_COND("現在存在", "フェリシエル")
			PRINTFORML 「%TEXTR(@"フェリシエルさんに相談したい事があったのですが、%CNAME("主人")%が一緒でもいいですか？/フェリシエルさんも一緒でしたか。あがってくださいな")%」
			PRINTFORML %CALLNAME:TARGET%は快く二人を迎え入れた。
		ELSE
			PRINTFORML 「何か用でしょうか？」
			PRINTFORML %CALLNAME:TARGET%は%CALLNAME:ASSI%が一緒にいる事が気になる様子だ。
		ENDIF
	ELSEIF TALENT:恋慕 && FIND_COND("フェリシエル") && CEVENT("イベント：童貞を殺す服／マリー") == 0
		PRINTFORML 「フェリシエルさんに相談して、イメチェンしてみたんですけどどうでしょうか？」
		;PRINTFORML 「%CNAME("主人")%は露出度が高い服より、こう言う感じの可愛い服装がお好きなんでしょうか？」
		;PRINTFORML 『マリーさんに足りないのは童貞への配慮です。ご主人様は童貞なのでこういう服を着ると喜んでくれますよ』
		;PRINTFORML 「%CNAME("主人")%は露出度が高い服より、こう言う感じの可愛い服装がお好きだと聞いたのですが……」
		PRINTFORML 「ちょっと気恥ずかしいのですが、部屋着はこの服装にしてみようと思いまして……%CNAME("主人")%が気に入ってくれると嬉しいですけど」
		PRINTFORML %CALLNAME:TARGET%はクローゼットから胸元にリボンをあしらったフリルブラウスにコルセットスカートを取り出すと、活動的な普段の服装とは一転した清楚なお嬢様と言った風体の服装を%CALLNAME:MASTER%に見せた。
		PRINTFORML 「二人でお話してる間にでも着替えてみますね」
;ＳＨＯＰ画面の選択でRESULTを入れるとマウス入力を受け付けなくなるので、選択肢の実装は一旦保留とする
;		CALL PRINT_SELECT, "可愛い方が好き/普段通りの方が好き"
;		IF RESULT == 0
;			PRINTFORML 「ちょっと……気恥ずかしいので部屋着で良ければ、これからはこの服装にしますね。ありがとうございます、%CNAME("主人")%」
;			PRINTFORML %CALLNAME:TARGET%は嬉しそうに微笑んで、%CALLNAME:MASTER%にお礼を言うと早速服を着替える事にした。
			;童貞を殺す服に着替える
			CALL SET_COORDINATE, "部屋着"
;		ELSE
;			PRINTFORML 「そうですよね……%CNAME("一人称")%にはあまり可愛いのは似合いませんよね」
;			PRINTFORML 「%CNAME("一人称")%としても、動きやすい方が良いのでそんなに気にしてませんから」
;			PRINTFORML %CALLNAME:TARGET%はちょっと寂しそうな表情を浮かべた後、%CALLNAME:MASTER%の視線に気づいて微笑を浮かべてみせた。
;		ENDIF
		CALL SET_CEVENT, "イベント：童貞を殺す服／マリー"
	ELSEIF CEVENT("ラブホ前で遭遇報告／マリー")
		;PRINTFORML あなた「知ってる。これＮＴＲエロ漫画で読んだやつだ！！」
		IF TALENT:相思相愛 && RAND:2 == 0
			PRINTFORML 「ラブホテルでの事はその……%TEXTR("最近/この頃")%%CNAME("二人称")%が%TEXTR("愛してくださらないので/抱いてくださらないので")%……」
			PRINTFORML 「%TEXTR("神に誓って言えます/信じてください")%。%TEXTR(@"%CNAME("一人称")%が心から愛しているのは%CNAME("二人称")%だけです/%CNAME("一人称")%が心を許している方は%CNAME("二人称")%以外いませんから")%」
		ELSEIF TALENT:恋慕
			PRINTFORML 「ラブホテルでの事はその……%TEXTR("ただの性処理をしてあげただけですから/性処理を助けてあげただけで")%%TEXTR(@"愛しているのは%CNAME("二人称")%だけですからね/本当に%CNAME("一人称")%が愛しているのは%CNAME("二人称")%以外いません")%」
		ELSE
			PRINTFORML 「この間のラブホテルでの事は……%TEXTR("他の人には内緒にしてくださいね/他言無用です")%」
			PRINTFORML 「%TEXTR("本当に性処理してあげただけですからね/ちょっと性処理を頼まれただけで")%……%TEXTR(@"%CNAME("二人称")%との契約と一緒ですからね/%CNAME("二人称")%の契約と似た様なものですよ")%」
		ENDIF
		CALL DEL_CEVENT, "ラブホ前で遭遇報告／マリー"
	ELSE
		IF TEQUIP:甘い言葉
			PRINTFORML 「%TEXTR("二人っきり/二人だけ")%なら%TEXTR(@"少しはいいですよ、とは言いましたけど/好きなだけ付き合ってあげると言ったのは%CNAME("一人称")%ですけど")%……」
			PRINTFORML 「%TEXTR(@"……本当にエッチなんですね。そんな風に囁かれたら%CNAME("一人称")%だってドキドキしちゃうんですからね/%CNAME("一人称")%だって聖職者とはいえ、ちょっぴりはそう言う気分になってしまうんですからね")%？」
		ELSE
			CALL PRINT_STR, @"「%TEXTR("ま、待ってくださいね。今片付けますからっ！？/あっ！？　遊びに来たんですか、待ってください、待ってください/お、落ち着いてください。今、片付けますから！？")%」_L"
		ENDIF
	ENDIF

CASE "アドバイザー部屋訪問"
	PRINTFORML 「%TEXTR("他の人のお部屋に行くのって楽しいですね/うふふっ、お邪魔しますね")%」

;前回コマンド対応台詞
;自宅移動の後にあなたに連れられて居間に戻ってきた場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML 「%TEXTR("さ、さっきのはなんでもないですからね……/さっき見た事は……忘れてくださいね？")%」
CASE "ミニスカパンチラ"
	IF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0 && RAND:2 == 0
		IF EQUIP:パンツ
			IF RAND:2 == 0
				PRINTFORML 「教えてあげますけど……今日穿いてるのは%CLOCOLOR(CSTR:パンツ, "形容詞")%%PANTIES(TARGET, "種類")%ですよ」
				PRINTFORML 「……こんな事、%CNAME("二人称")%にしか教えないんですからね」
			ELSE
				PRINTFORML 「……もしかして、見えちゃいましたか？」
				PRINTFORML 「ミニスカートは可愛いなって思うんですけど、男の子からの視線をいっぱい感じるんですよね」
			ENDIF
		ELSE
			PRINTFORML 「%TEXTR("見えちゃいましたか？/その顔は見えちゃいましたね？/見られちゃったみたいですね……")%」
			PRINTFORML 「%TEXTR("下着/パンツ/ショーツ")%を穿いてないのは%CNAME("一人称")%と%CNAME("主人")%だけの秘密にしてくださいね……」
		ENDIF
	ELSE
		PRINTFORML 「貴方は何も見ていません、いいですね！？」
	ENDIF
CASE "ローライズヒップ"
	PRINTFORML
CASE "スカートをめくる"
	IF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0 && RAND:2 == 0
		IF EQUIP:パンツ
			PRINTFORML 「今日は……%CLOCOLOR(CSTR:パンツ, "形容詞")%%PANTIES(TARGET, "種類")%にしてみたんですが……」
			PRINTFORML 「%TEXTR(@"似合っているでしょうか？/%CNAME("主人")%の好みではありませんか？/%CNAME("一人称")%には似合わないでしょうか？")%」
		ELSE
			PRINTFORML 「%TEXTR("下着/パンツ/ショーツ")%を穿いてないのは%CNAME("一人称")%と%CNAME("主人")%だけの秘密にしてくださいね……」
		ENDIF
	ELSE
		PRINTFORML 「貴方は何も見ていません。復唱してください」
	ENDIF
CASE "スカートたくし上げ"
	IF TALENT:恋慕
		IF RAND:2 == 0
			PRINTFORML 「こんな事しちゃうのは……%CNAME("二人称")%にだけですからね」
			PRINTFORML 「喜んでくれるなら何でもしたくなっちゃうんです」
		ELSE
			PRINTFORML 「……本当は恥ずかしいんですよ」
			PRINTFORML 「%CNAME("二人称")%が喜んでくれるから……しちゃうだけです」
		ENDIF
		IF MARK:淫紋
			PRINTFORML
			IF RAND:2 == 0
				PRINTFORML %CALLNAME:TARGET%の%TEXTR("下腹部/子宮の位置")%に%TEXTR("描かれた/刻まれた")%淫紋が%CALLNAME:TARGET%の意志に応じて妖しく光を帯びる…
			ELSE
				PRINTFORML %CALLNAME:TARGET%は%TEXTR("下腹部/子宮の位置")%に%TEXTR("描かれた/刻まれた")%淫紋を手で隠している…
			ENDIF
		ENDIF
	ELSE
		PRINTFORML 「たまには……」
		PRINTFORML 「自分からアピールするのもいいかなって、されてばっかりじゃ負けてるみたいですし」
	ENDIF
CASE "パンツチェック"
	IF TALENT:恋慕
		IF SAVESTR:現在位置 == "公園" || CHARA_NUM("室内の邪魔者") >= 1
			PRINTFORML 「%TEXTR("もう……ダメですよ/こらっ、変な事しちゃいけませんよ")%？」
			PRINTFORML 「続きをしたいなら……ちゃんと%TEXTR("他の人の迷惑にならない場所でしましょうか/周りの事も考えて別の場所でしましょうね")%」
		ELSE
			PRINTFORML 「%TEXTR("誰か来ちゃいますから……/他の方にこんな所を見られちゃったら……")%」
			PRINTFORML 「……どうしてもって言うなら続けてもいいですけど」
		ENDIF
	ELSE
		PRINTFORML 「%TEXTR("もう/変態ですね")%……」
		PRINTFORML %CALLNAME:TARGET%は呆れた様子で服の乱れを直している…
	ENDIF
CASE "アソコチェック"
	IF TALENT:恋慕 && SAVESTR:現在位置 == "公園"
		IF RAND:2 == 0
			PRINTFORML 「本当は……%TEXTR("公園/お外")%でこんな事しちゃダメですからね？」
			PRINTFORML 「%TEXTR("ドキドキはしてますけど……えっちな意味じゃないですから/その……誰も来ない場所でなら良いですけど……")%」
		ELSE
			PRINTFORML 「はぁ……こんな場所でアソコを見たいなんて……%TEXTR("誰かが来ちゃったらどうするんですか？/もしも誰かに見られてしまったらと思ったら……")%」
			PRINTFORML 「違います、%CNAME("一人称")%は見られて興奮なんて%TEXTR("しませんから/しません/絶対にしませんから")%……」
		ENDIF
	ELSEIF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0
		IF (TALENT:クリピアス || TALENT:ラビアピアス) && CHECK_CLO("Ｖ露出可") && ABL:自慰中毒 >= 5 && RAND:2 == 0
			CALL PRINT_STR, @"「他の方はまだ来ないみたいですし……%TEXTR("んっ/あっ")%_HH_」_L"
			CALL PRINT_STR, @"「……%TEXTR(@"ちょっとだけなら……気持ちよくなっちゃってもいいですよね/したくなっちゃったので……慰めちゃいますね/%CNAME("二人称")%の奴隷が自分でしちゃう所を見ててくださいね……%CNAME("主人")%/……我慢しきれなくって自分で慰めちゃう……変態聖職者の懺悔を見ててくださいね")%_HH_」_L"
			PRINTFORML
			PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%に見せつける様に%TEXTR("両足を大きく開いて/片足を机にあげて/四つん這いになってお尻を向けて")%、
			IF TALENT:クリピアス
				PRINTFORML クリピアスのつけられた%TEXTR("クリトリス/淫核/硬くなった秘所")%を指でなぞりゆっくりと自慰に耽りはじめた……
			ELSEIF TALENT:ラビアピアス
				PRINTFORM ラビアピアスを%TEXTR("＿/指先で/両手で")%引っ張り
				IF ABL:Ｖ拡張 >= 5
					PRINTFORM %TEXTR("ぽっかりと開いた/物欲しげにひくついている/愛液を零しながらピンク色の肉壁を晒す")%
				ENDIF
				PRINTFORML %TEXTR("アソコ/秘所/蜜壷")%の%TEXTR("内側/秘肉/内部")%を%TEXTR("見せつけながら微笑んだ/嬉しそうに見せてくれた")%…
			ELSEIF TALENT:ニプルピアス && CHECK_CLO("乳首露出") && ABL:自慰中毒 >= 5 && RAND:2 == 0
				PRINTFORML 「%TEXTR("はぁ……はぁ……/はぁはぁ……")%」
				CALL PRINT_STR, @"「……%TEXTR("我慢出来なくなっちゃいました/もっといじめてください")%_HH_」_L"
				PRINTFORML
				PRINTFORML %CALLNAME:TARGET%はニプルピアスを%TEXTR("指先で弄びながら/指でひっぱったり、乳首をこね回したりしながら")%%CALLNAME:MASTER%に向けて微笑んでいる。
			ENDIF
		ELSEIF COND("グロマン") && CEVENT("グロマン初回：マリー") == 0
			PRINTFORML 「%CNAME("主人")%が沢山愛してくださって%CNAME("一人称")%のアソコはすっかり変わっちゃいました」
			PRINTFORML 「黒くなって、ビラビラもこんなに伸びてしまって……本当はイケナイと思っているのに快楽に負けてしまうなんて。ふふっ、こんな事では聖職者失格ですよね」
			CALL SET_CEVENT, "グロマン初回：マリー"
		ELSEIF CEVENT("グロマン初回：マリー") && RAND:3 == 0
			PRINTFORML 「%TEXTR(@"恥ずかしいですけど/どうしても見たいのですね/%CNAME("二人称")%がどうしてもと言うのなら仕方ありませんね")%……」
			PRINTFORML 「%CNAME("一人称")%の%TEXTR("黒くなっちゃった/黒ずんでしまった/ちょっぴり色づいてしまった/少し色がついてしまった")%%TEXTR("秘所/アソコ/ヴァギナ/おま〇こ")%……%TEXTR("見てください/じっくり観察してくださいね/どうぞ、お楽しみください")%」
			PRINTFORML
			;現状のグロマンだと一括判定or年齢判定描写なので個別判定を用意する
			;グロマン描写を借用した
			;通常グロマンの二倍
			IF EXP:Ｖ経験 >= 600 && EXP:Ｖ拡張経験 >= 40
				PRINTFORM %TEXTR("使い込まれ/経験を積んで")%%TEXTR("黒みを帯びた大陰唇/色素の沈着した陰唇/肉厚になった大陰唇")%
			;通常のグロマンはここ
			ELSEIF EXP:Ｖ経験 >= 300 && EXP:Ｖ拡張経験 >= 20
				PRINTFORM %TEXTR("やや黒ずんだ大陰唇/少し黒くなった陰唇/肉付きの良い大陰唇")%
			;以下は死に分岐
			;少し使い込まれてきた
			ELSEIF EXP:Ｖ経験 >= 150 && EXP:Ｖ拡張経験 >= 10
				PRINTFORM %TEXTR("ほんのり色づいた大陰唇/肌より少し色素が濃い陰唇/柔らかそうな大陰唇")%
			ELSE
				PRINTFORM %TEXTR("肉付きの薄い陰唇/スベスベの大陰唇/色素が薄い陰唇")%
			ENDIF
			PRINTFORML を%CALLNAME:MASTER%はたっぷりと%TEXTR("観察した/楽しんだ")%……
		ELSEIF TALENT:縦割れアナル && CEVENT("縦割れアナル初回：マリー") == 0
			PRINTFORML 「%CNAME("主人")%見てください……」
			PRINTFORML
			PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%にお尻を向けると尻肉を掴み、閉じられているアナルを見せつけてきた。
			PRINTFORML 開発と拡張を繰り返された%CALLNAME:TARGET%のアナルは放射線ではなく縦長に綺麗な一本の筋を描きぴったりと閉じている
			PRINTFORML
			PRINTFORML 「最初は嫌だったのに……綺麗だって%CNAME("主人")%は言ってくれますけど、普通のお尻じゃないって解ってますよね……」
			PRINTFORML 「もうお尻を使わないと……満足出来ない身体になっちゃったんですから……ちゃんと責任を取ってくださいね。%CNAME("主人")%」
			CALL SET_CEVENT, "縦割れアナル初回：マリー"
		;Ｓ字結腸お仕置きプラグの日
		ELSEIF TALENT:縦割れアナル && ABL:Ａ拡張 >= 5 && COND("身嗜み：Ａ拡張") >= 4 && RAND:3 == 0
			PRINTFORML 「……%CNAME("主人")%」
			IF COND("同棲中") && RAND:2 == 0
				PRINTFORML 「%TEXTR(@"入れろって言われた極太アナルプラグ/入れていただいた……太くって大きいアナルプラグ/拡張する様に渡されたアナルプラグ")%……」
				PRINTFORML 「%TEXTR("……毎日、鏡の前で入る所を見ながら……ちゃんと入れてますから/……お部屋でちゃんと毎日……入れてますからね……/ちゃんと何時でも入れる様にしていますから……")%」
				CALL PRINT_STRW, @"「%TEXTR("んっ/んぅ")%_HH_　%TEXTR("押し込んじゃ……ダメっ/グリグリしないで……はぁはぁ……/そんなご褒美をくれたら……声が……漏れてしまいますから……")%」"
			ELSE
				PRINTFORML 「%TEXTR("今日は/今は")%%TEXTR("言われた通り/命令通り")%……ちゃんと%TEXTR("Ｓ字結腸まで届くように/お尻の一番奥まで")%%TEXTR("ディルド/ボール/玩具/オモチャ")%を%TEXTR("入れてますからね/入れちゃってます")%……」
				PRINTFORML 「%TEXTR(@"本当は……イケナイ事だと思っているのに。%CNAME("二人称")%に頼まれたら断れないんですからね/%CNAME("一人称")%は聖職者なんですからね……こんな淫らな行為をしてしまうなんて。愛する%CNAME("二人称")%が命令するからですよ……/他の人にばれちゃいますから……あんまりイジメないでくださいね……")%」
			ENDIF

		ELSEIF TALENT:縦割れアナル && RAND:2 == 0
			IF RAND:2 == 0
				PRINTFORML 「%TEXTR("お尻/アナル/不浄の穴")%を見たいんですか……」
				PRINTFORML 「み、見るだけですからね……絶対に指を入れたり、撫でたりしないでくださいね」
			ELSE
				PRINTFORML 「はぁ……そんな真剣に%CNAME("一人称")%の%TEXTR("お尻/アナル/不浄の穴")%を見つめないでください……」
				PRINTFORML 「縦に割れて綺麗だなんて……もう……その気になっちゃいますから、%TEXTR("ダメです/お仕舞いにしましょう")%」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「変な気分になってきちゃいますから……」
				PRINTFORML 「お仕舞いにしましょうね？　他の人が来ちゃいますよ」
			ELSEIF RAND:2 == 0
				PRINTFORML 「も、もう終わりにしましょう」
				PRINTFORML 「続きは……別の場所でならしてあげますから、ね？」
			ELSE
				PRINTFORML 「誰かに見られたらどうするんですか！」
				PRINTFORML 「み、見せつけたいんですか……」
			ENDIF
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「お・し・ま・い・ですよ」
		ELSE
			PRINTFORML 「妙な真似はしないでくださいね？」
		ENDIF
	ENDIF
CASE "ブルマチェック", "股間観察"
	IF TALENT:淫乱 && ABL:露出癖 >= 3
		PRINTFORML 「%TEXTR(@"見られてるの気がついてますからね……もう/悪い子ですね。そんなに%CNAME("一人称")%の股間が気になっちゃうのですか")%」
		IF CHARA_NUM("室内の邪魔者")
			CALL PRINT_STR, @"「%TEXTR("……二人っきりなら全部見せてあげても良いですよ/どうせなら二人っきりで……たっぷり見せつけてあげちゃったり")%_HH_」_L"
		ELSE
			CALL PRINT_STR, @"「%TEXTR("神様は全部見てるんですからね……もう/こんなエッチな事をさせて……後でちゃんと懺悔してもらいますからね")%_HH_」_L"
			PRINTFORML
			PRINTFORML %CALLNAME:TARGET%は%TEXTR(@"%CALLNAME:MASTER%の視線を感じながらゆったりと両足をＭ字に開いてみせた/ワザとらしく布地を股間に食い込ませて腰を振って%CALLNAME:MASTER%を誘惑した")%
		ENDIF
	ELSE
		PRINTFORML 「%TEXTR("視線……気がついてますからね/もう……見られてるの解ってますからね")%」
	ENDIF
CASE "キスする"
	IF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0
		CALL PRINT_STR, @"「%TEXTR(@"%CNAME("二人称")%とキスするの……好きですよ/ふふっ、キスしちゃいましたね")%_HH_」_L"
		PRINTFORML 「%TEXTR(@"イケナイ事をしちゃってますね……%CNAME("一人称")%達/悪い事しちゃってるみたいでドキドキしますね")%」
		;PRINTFORML 家政婦は見た
		;PRINTFORML フェリシエル（実は気配遮断して全部見てるんですけどね）
	ELSEIF TALENT:恋慕
		IF RAND:4 == 0
			PRINTFORML 「……他の人の前で見せつけたいだなんて」
			PRINTFORML 「本当はダメですからね。後でちゃんと懺悔してもらうんですから……もう」
		ELSEIF RAND:3 == 0
			PRINTFORML 「良い事も、悪い事も全部」
			PRINTFORML 「ちゃんと神様は見ていますからね？」
		ELSEIF RAND:2 == 0
			PRINTFORML 「もう……他の方がいるのですからキスしちゃダメですよ」
			PRINTFORML 「後でたっぷりと怒ってあげますからね」
		ELSE
			PRINTFORML 「めっ、みんなの前でキスしてはいけません。後で懺悔してもらいますからね」
			PRINTFORML 「ちゃんと解ってるんですか？　もう……ドキドキなんてしてませんからね」
		ENDIF
	ELSE
		PRINTFORML 「キスは何処でもしていいものではありませんからね」
	ENDIF
;前回コマンド対応台詞
CASE "おっぱいリフトする"
	IF TALENT:恋慕
		IF CHARA_NUM("室内の邪魔者") == 0 && RAND:2 == 0
			CALL PRINT_STR, @"「%TEXTR("他の方が来るまでなら、二人でイチャイチャしてもいいですよ/誰もいませんし……イチャイチャしちゃいましょうか")%_HH_」_L"
			CALL PRINT_STR, @"「%TEXTR("少し/ちょびっと")%だけなら%TEXTR("おっぱい/お胸")%触っても構いませんからね_HH_」_L"
		ELSEIF TALENT:巨乳 >= 3 && COND("初期超乳")
			IF RAND:2 == 0
				PRINTFORML 「そんなに%TEXTR(@"＿/%CNAME("一人称")%")%の%TEXTR("おっぱい/胸")%が%TEXTR("気になっちゃいますか？/気になりますか？/目立ちますか？")%……」
				PRINTFORML 「%TEXTR("シスター/聖女")%なのにこんなに%TEXTR("大きい/目立っちゃう")%なんておかしいですよね……」
			ELSE
				PRINTFORML 「%TEXTR("実は……/ふぅっ、助かります。")%%CNAME("一人称")%の%TEXTR("おっぱい/胸")%って%TEXTR("重たいんですよね/大きすぎて大変なんです")%」
				PRINTFORML 「%TEXTR("誰もいない時は机の上に乗せちゃったりしてるんですけどね……ちょっとはしたないかなって思いますし……/ブラジャーもちょっと窮屈だったり……内緒ですよ？")%」
			ENDIF
		;胸を豊穣で成長させた　超乳編
		ELSEIF TALENT:巨乳 >= 3 && COND("初期超乳") == 0
			IF RAND:2 == 0
				IF RAND:2 == 0
					PRINTFORML 「%TEXTR("最近、お胸が大きくなったせいか/おっぱいが大きくなったせいでしょうか")%」
					PRINTFORML 「%TEXTR("男子生徒の視線を感じちゃいますね。前より見られちゃってます/お胸にばかり視線を感じちゃうんですよね")%」
				ELSE
					PRINTFORML 「%TEXTR("結構重たいんですよ……/見た目より重たいでしょう？/実は意外と重いんです")%」
					PRINTFORML 「%TEXTR(@"とっても柔らかいから関係ないって……そういう問題じゃないですからね、もう/柔らかくって好きだなんて……褒めてもダメですからね/%CNAME("二人称")%好みのサイズなのは解ってますけど、色々大変なんですよ")%」
				ENDIF
			ELSE
				IF COND("初期爆乳")
					IF RAND:2 == 0
						PRINTFORML 「%CNAME("二人称")%がいっぱい触るからこんなに育っちゃいましたね」
						PRINTFORML 「嫌ではないですけど……結構重たいんですよ？」
					ELSE
						CALL PRINT_STR, @"「%CNAME("二人称")%のおかげで%TEXTR("お胸/おっぱい")%がもっと大きくなっちゃいました_HH_」_L"
						CALL PRINT_STR, @"「%TEXTR("何処まで大きくなるのか、ちょっと楽しみですね/もっともっと大きくしてくださいね")%_HH_」_L"
					ENDIF
				ELSE
					IF RAND:2 == 0
						CALL PRINT_STR, @"「%TEXTR("自分でも思いますけど大きく育っちゃいましたね/これも神のお恵みなのでしょう")%_HH_」_L"
						CALL PRINT_STR, @"「%TEXTR(@"ちょっと戦いづらいなって思いますけど、%CNAME("主人")%が喜んでくれるので良いのです/不便な事もありますけど大きいのは良い事ですね")%_HH_」_L"
					ELSE
						PRINTFORML 「%CNAME("主人")%が触るから%TEXTR("こんなに育っちゃいましたね/大きくなっちゃいましたねぇ")%」
						CALL PRINT_STR, @"「%TEXTR("……これも愛の証ですから嬉しいんですけどね/もっともっと大きくなるまで可愛がってくださいね")%_HH_」_L"
					ENDIF
				ENDIF
			ENDIF
		;胸を豊穣で成長させた　爆乳編
		ELSEIF TALENT:巨乳 >= 2
			IF RAND:2 == 0
				PRINTFORML 「大きくなってきたのはその……嫌ではないんですけどね」
				PRINTFORML 「%TEXTR("前より少し動きずらいと言うか……/ちょっぴり戦いにくいかなぁって思いますね")%」
			ELSE
				PRINTFORML 「%CNAME("主人")%はやっぱり大きい%TEXTR("お胸/おっぱい")%が好きなんですか？」
				CALL PRINT_STR, @"「……%TEXTR(@"喜んでくれるなら、もっと大きくなってもいいですからね/%CNAME("主人")%の為なら何処までも大きく育ててみせますね")%_HH_」_L"
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「いたずらはダメですよ？」
				PRINTFORML 「二人っきりの時なら……考えてあげてもいいですけどね」
			ELSE
				PRINTFORML 「他の方がいる時は自重してくださいね？」
				PRINTFORML 「居なかったらいいわけでは……ないですけど」
			ENDIF
		ENDIF
	ELSE
		PRINTFORML 「えっちな事ばかり考えているのですね」
		PRINTFORML 「煩悩を解消する為、少し%CNAME("一人称")%と二人でお話をしましょうか」
		;PRINTFORML メイド（その言い方だとご主人様は二人っきりでエッチなお話をしたいって意味に受け止めますよね……男子高校生ですし）
	ENDIF
CASE "買い物する"
	;買ってきたアイテムなどで分岐
	IF COND("巨大バイブ購入")
		PRINTFORML 「大きいですね。武器……いえ、拷問道具の類に近いものを感じます」
		CALL SET_DEVENT, "巨大バイブ感想"
	ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4
			PRINTFORML 「随分買いましたね」
		CASEELSE

		ENDSELECT
	ENDIF
CASE "裸になった"
	IF CHARA_NUM("室内の邪魔者") == 0
		IF ABL:露出癖 >= 3
			IF SAVESTR:現在位置 == "公園"
				IF TALENT:ニプルピアス
					PRINTFORML 「%TEXTR("……恥ずかしいですけど、ちょっぴり興奮しちゃってます/こんな所で脱げって命令するから……乳首硬くなってきちゃいました")%」
					IF RAND:2 == 0
						PRINTFORML %CALLNAME:TARGET%は気恥ずかしそうに頬を染めてギュッと自分の身体を抱きしめた。
						PRINTFORML そんな%CALLNAME:TARGET%の%TEXTR("両胸/乳首/胸の先端")%を彩る%TEXTR("＿/ニプル")%ピアスが公園の街灯の明かりで妖しく煌めいている……
					ELSE
						PRINTFORML %CALLNAME:TARGET%は恥じらいながら、両手で自分のおっぱいを覆い隠した。
						PRINTFORML 広げた指の間から覗く%CALLNAME:TARGET%の乳首は硬く尖り、胸の先端につけられたピアスが公園の明かりに妖しく鈍い光を反射している……
					ENDIF
				ELSE
					IF RAND:2 == 0
						PRINTFORML 「全部神様が見ていますからね。あんまり変な事を命令したりすると天罰が下りますから……ほどほどに」
					ELSE
						PRINTFORML 「%TEXTR("公園/お外")%なのに……%TEXTR("全裸になっちゃう/裸になる/全部脱いじゃう")%なんて%TEXTR("本当はダメですからね/良くない事ですからね")%……」
					ENDIF
				ENDIF
			ELSEIF TALENT:巨乳 >= 3 && COND("初期超乳") == 0
				PRINTFORML 「%TEXTR(@"ちゃんと見てくださいね……/恥ずかしいですけど%CNAME("主人")%には……しっかり見て欲しいですから/二人っきりですから……思う存分堪能してくださいね")%」
				PRINTFORML %CALLNAME:TARGET%は%TEXTR(@"両手で下から乳房を支えながら%CALLNAME:MASTER%を見つめた/少し屈んで%CALLNAME:MASTER%に谷間を強調した")%。
			ELSE
				PRINTFORML 「%TEXTR("だ、誰もいない時なら、また命令してくれてもいいですからね/本当に嫌だったら脱ぎませんから/誰も来ませんよね…違います、見て欲しいわけじゃないですから")%……」
			ENDIF
			IF RAND:2 == 0
				PRINTFORML （%TEXTR("イケナイ事なのに……興奮してきちゃってる/誰も来ませんように……こんな恥ずかしい姿見られちゃったら/聖職者として……これはダメですよね、神様お赦しください")%……）
			ELSE
				PRINTFORML （%TEXTR("こんなのイケナイのに、興奮しちゃうなんて/命令されるのが嬉しいなんて……絶対にばれない様にしなくちゃ/恥ずかしいのに……そんなに嫌じゃない気持ちになるなんて")%……）
			ENDIF
		ELSE
			IF CHECK_CLO("ハダカ")
				IF PLACE("自宅")
					CALL SET_COORDINATE, "普段着"
				ELSE
					CALL SET_COORDINATE, "制服"
				ENDIF
				CALL REPRINT_SHOP_NAME
			ENDIF

			PRINTFORML 「%TEXTR("満足しましたよね？　服を着たいのですが……/恥ずかしいだけですから……/誰もいないからってこう言う事するのはイケナイと思いますよ")%」
			CALL PRINT_STRL, @"黄色_%CALLNAME:TARGET%はそそくさと衣服を身に着けてしまった！"
		ENDIF
		IF MARK:淫紋
			IF RAND:2 == 0
				PRINTFORML %CALLNAME:TARGET%の%TEXTR("下腹部/子宮の位置")%に%TEXTR("描かれた/刻まれた")%淫紋が%CALLNAME:TARGET%の意志に応じて妖しく光を帯びる…
			ELSE
				PRINTFORML %CALLNAME:TARGET%は%TEXTR("下腹部/子宮の位置")%に%TEXTR("描かれた/刻まれた")%淫紋を手で隠している…
			ENDIF
		ENDIF
	ELSE
		IF CHECK_CLO("ハダカ")
			IF PLACE("自宅")
				CALL SET_COORDINATE, "普段着"
			ELSE
				CALL SET_COORDINATE, "制服"
			ENDIF
			CALL REPRINT_SHOP_NAME
		ENDIF
		PRINTFORML 「%TEXTR(@"見られて困る様な身体ではないですけど……恥ずかしいものは恥ずかしいんですから/幾ら同性相手でも……ハダカを見られるのは恥ずかしいんですよ/神よ……愚かなる%CNAME("一人称")%をお許しください。愚かなる%CNAME("主人")%には天罰をください")%」
		CALL PRINT_STRL, @"黄色_%CALLNAME:TARGET%はそそくさと衣服を身に着けてしまった！"
	ENDIF
	;IF CEVENT("あなたの名は名探偵：身体は子供。頭脳は大人") == 0
	;	PRINTFORML
	;	PRINTFORML あなた「悪いが眠ってもらう。これも仕事なんでな！！」
	;	PRINTFORML %CALLNAME:MASTER%の放った悪魔メイド式時計型強制睡眠導入剤発射装置が火を噴いた！！
	;	PRINTFORML 「%CNAME("一人称")%を甘くみないでくださいね！！」
	;	PRINTFORML 殺気に気がついて、あと少しの所で聖書を盾にする%CALLNAME:TARGET%
	;	PRINTFORML 『そういう展開は長くなるからやめましょう。大人しく寝ててくださいね』
	;	PRINTFORML %CALLNAME:TARGET%の隙をついてフェリシエルが裸締めで%CALLNAME:TARGET%の意識を刈り取った
	;	CFLAG:睡眠 = 1
	;	CALL SET_CEVENT, "あなたの名は名探偵：身体は子供。頭脳は大人"
	;ENDIF
;2020/06/07　対象がいない状態で一人で移動出来るのだろうか？
CASE "Ｈ目的で呼び出された"
	IF PLACE("ラブホテル")
		IF TALENT:恋慕
			PRINTFORML 「%TEXTR(@"お呼びですか/どうかしましたか")%？、%CNAME("主人")%」
			PRINTFORML 「性処理して欲しいのですか……%TEXTR("特別ですからね/今回だけ、今回だけですから/しょうがないですね")%」
		ELSE
			PRINTFORML 「%CNAME("一人称")%に何か御用で%TEXTR("しょうか/すか")%？」
			PRINTFORML 「%TEXTR("……契約した以上は従いますけど、性処理して欲しいだなんて少し節度と言うものを弁えてくださいね/性処理ですか……今回はしてあげますけど次はダメですからね")%
		ENDIF
	;ヤリ部屋
	ELSE
		IF TALENT:恋慕
			PRINTFORML 「%TEXTR(@"お呼びですか/どうかしましたか")%？、%CNAME("主人")%」
			PRINTFORML 「性処理して欲しいのですか……%TEXTR("特別ですからね/今回だけ、今回だけですから/しょうがないですね")%」
		ELSE
			PRINTFORML 「%CNAME("一人称")%に何か御用で%TEXTR("しょうか/すか")%？」
			PRINTFORML 「%TEXTR("……契約した以上は従いますけど、性処理して欲しいだなんて少し節度と言うものを弁えてくださいね/性処理ですか……今回はしてあげますけど次はダメですからね")%
		ENDIF
	ENDIF

CASE "没収済パンツを撮影"
	IF TALENT:恋慕
		PRINTFORML 「%TEXTR(@"そんなに%CNAME("一人称")%の事が好きなんですか/下着まで好きだなんて……もう")%」
		PRINTFORM 「……穿いて欲しい%TEXTR("＿/パンツ/ショーツ/下着")%があれば
		IF COND("同棲中") && RAND:2 == 0
			PRINTFORML 。同棲頻度を相談する時、好きなのに着替えてあげますからね」
		ELSE
			PRINTFORML ちゃんと教えてくださいね」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「きゃああっ、何を撮ってるんですか！？」
			PRINTFORML %CALLNAME:TARGET%は悲鳴をあげて写真を消すように要求してきた。
		ELSE
			PRINTFORML 「ダ、ダメですよ、何を撮ってるんですか！？」
			PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%の撮っていた写真に困惑している。
		ENDIF
	ENDIF
CASE "スカートの下を撮影"
	PRINTFORML 「%CNAME("主人")%がコレでいいなら良いですけど……どうせなら%TEXTR("パンツ/ショーツ/下着")%を撮るより、%CNAME("一人称")%を撮ってみませんか？」
	PRINTFORML 「他の皆さんほどじゃないですけど、%CNAME("一人称")%もそれなりには%TEXTR("可愛い……と思います……/オシャレを頑張ったりしてますからね")%」
CASE "パンツを接写する", "股間を撮影する"
	IF TALENT:恋慕
		PRINTFORML 「%TEXTR("また変な事考えてるんですね……そんな写真を撮って/撮るのはいいんですけど……一言言ってくださいね")%」
		IF COND("同棲中") && RAND:2 == 0
			PRINTFORML 「何に使うかは問いませんけど……もし穿いて欲しい%TEXTR("＿/パンツ/ショーツ/下着")%があれば、同棲頻度を相談する時、好きなのに着替えてあげますからね？」
		ELSE
			PRINTFORML 「%TEXTR("何に使うのかな～正直に答えて懺悔してみませんか/悪い事ばっかりしてるとお仕置きしちゃいますよ")%？」
		ENDIF
	ELSE
		PRINTFORML 「%CNAME("一人称")%の%TEXTR("パンツ/ショーツ/下着")%なんて撮影してどうするんですか……」
		PRINTFORML 「えっ、んっ、そ、そういう事に使うのはダメだと思いますよ！？」
	ENDIF
CASE "アソコを接写する"
	IF TALENT:恋慕
		IF (TALENT:クリピアス || TALENT:ラビアピアス) && CHECK_CLO("Ｖ露出可") && RAND:2 == 0
			IF RAND:2 == 0
				PRINTFORML 「%TEXTR("スマホでもちゃんと撮れるものなのですね/カメラじゃなくても意外とちゃんと撮れるんですね")%」
				PRINTFORML 「良かったら……%TEXTR(@"ちゃんとポーズをつけて撮影してくれませんか。%CNAME("主人")%の奴隷としての記念を残したいんです/もう一度ポーズをつけてピアスを強調しながら撮影してください。%CNAME("一人称")%と%CNAME("主人")%の記念になる写真を残したいんです")%」
			ELSEIF RAND:2 == 0
				PRINTFORML 「%TEXTR("こうして見るとピアスが本当にえっちですね……/嫌じゃないですけど……改めてみるとピアスされてるのって恥ずかしいですね……")%」
				PRINTFORML （%TEXTR(@"%CNAME("一人称")%は/＿")%聖職者なのに……%TEXTR(@"こんなイヤらしいピアスをつけられて興奮しちゃうなんて、%CNAME("一人称")%は罪深いのでしょう/えっちなピアスを受け入れてしまっていました……それほどに%CNAME("一人称")%は%CNAME("主人")%を愛しているんですね")%」
			ELSE
				CALL PRINT_STR, @"「%TEXTR(@"ふふっ/うふふっ")%_HH_　ピアスをつけられている%CNAME("一人称")%%TEXTR("＿/自身")%が見ても%TEXTR("イヤらしいなって興奮しちゃいます/素敵だなって思います")%_HH_」_L"
				CALL PRINT_STR, @"「%TEXTR(@"でも……他の人にはつけないでくださいね。%CNAME("一人称")%だけを%CNAME("主人")%の奴隷でいさせてください/他の子にはつけちゃダメですよ？　%CNAME("一人称")%と%CNAME("主人")%だけの絆にしたいですから")%_HH_」_L"
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「%TEXTR("良く/綺麗に/へー……ちゃんと")%撮れてますね。%TEXTR("＿/ちょうど")%顔が隠れてるから%TEXTR("ネットに上げて/ネットで")%他の%TEXTR("男の子のオカズにして/他の方達にも見て")%もらうんですか？」
				IF ABL:露出癖 >= 3
					PRINTFORML 「%TEXTR(@"ちょっとドキドキしちゃいますけど……そんな事をしては本当はダメですからね/ダメですよ、本当はダメですけど……%CNAME("主人")%がしたいなら良いですよ")%」
				ELSE
					PRINTFORML 「%CNAME("一人称")%は%TEXTR(@"%CNAME("主人")%にだけ見てもらえれば満足ですよ/他の人に見てもらってもあんまり嬉しくはないですよ")%」
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORML 「何を撮ったの%TEXTR("か、/ですか？　")%ちょっと見せてくれませんか、%CNAME("主人")%」
				PRINTFORML 「その恥ずかしいですけど……%CNAME("主人")%がこう言うので興奮してくれるんなら、%CNAME("一人称")%は何時でも協力しますからね？」
			ELSE
				PRINTFORML 「何を撮ったの%TEXTR("か、/ですか？　")%ちょっと見せてくれませんか、%CNAME("主人")%」
				PRINTFORML 「%TEXTR(@"一体そんな写真を何に使うつもりなんですか？　後でちゃんと反省してもらいますからね/もう……%CNAME("一人称")%の事が好きだからってそう言うのは本当はダメなんですからね")%」
			ENDIF
		ENDIF
	ELSE
		PRINTFORML 「%TEXTR(@"こら……ダメですよ、そんな写真を撮っては/すみやかに写真を消滅させるか、%CNAME("二人称")%がこの世から消滅するかどちらがいいですか")%？」
		PRINTFORML 「後でちゃんと処分したか確認しますからね。黙っていてもパラチネの目はごまかせませんから」
		;PRINTFORML パラチネ「自分で消し方が解らないからって酷くないですか！？」
	ENDIF
CASE "隠し撮り失敗"
	PRINTFORML 「もう……写真を撮るならちゃんと言ってくださいね？」
	PRINTFORML 「あんまり変な感じで撮られてたら、%CNAME("一人称")%も女の子なので恥ずかしいですから」
;ポーズ撮影毎に細かい関数がないので、流石に条件分岐で追うのはツライ
CASE "ポーズ撮影"
	IF TALENT:恋慕
		IF TALENT:ニプルピアス && CHECK_CLO("乳首露出") && RAND:2 == 0
			CALL PRINT_STR, @"「%TEXTR("ふふっ/うふふっ")%_HH_……ピアスが%TEXTR("キラキラ輝いて素敵です/光ってますね。とってもイヤらしいです")%_HH_」_L"
			CALL PRINT_STR, @"「%CNAME("主人")%の%TEXTR("手で/奴隷として")%、こんな%TEXTR("エッチ/変態/マゾ")%な%TEXTR("おっぱい/胸")%になれて%TEXTR("嬉しいですよ/感謝しています")%_HH_」_L"
		ELSE
			;胸を豊穣で成長させた　超乳編
			IF TALENT:巨乳 >= 3 && COND("初期超乳") == 0
				CALL PRINT_STR, @"「%TEXTR(@"%CNAME("二人称")%は大きな胸が好きなんですよね/%CNAME("二人称")%の為に大きくなった%CNAME("一人称")%の胸をいっぱい撮影してくださいね/%CNAME("二人称")%の為のお胸ですからいっぱい撮影してくださいね")%_HH_」_L"
				PRINTFORML %CALLNAME:TARGET%は%TEXTR("胸/おっぱい")%を強調する様に%TEXTR("腕を組んでみせた/谷間をちらりと見せつけてきた/ギュッと両手で持ち上げてみせた")%…
			ELSEIF RAND:3 == 0
				CALL PRINT_STR, @"「%TEXTR("ちょっとしたモデル気分ですね/こういう体験をした事がないのでとっても新鮮です")%_HH_」_L"
				IF COND("同棲中") && RAND:2 == 0
					PRINTFORML 「実は……色々と衣装を用意しているので着て欲しい%TEXTR("服装/コスプレ/下着/水着")%があれば、同棲頻度を相談しながら好きなモノのに着替えてあげますからね？」
				ELSE
					PRINTFORML 「%TEXTR(@"次はどんなポーズで撮影しますか？　%CNAME("主人")%/もっと写真を撮ってくれてもいいですからね。何だったら衣装も変えたり、脱いだりしちゃいます♪")%」
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORML 「ちょっと恥ずかしいですけど……%CNAME("主人")%に%TEXTR("綺麗に/可愛く")%撮ってもらえるのは嬉しいですから」
				PRINTFORML 「%TEXTR("これからも良かったら撮ってくださいね/気軽に声をかけて、写真を撮ってくれると嬉しいです")%」
			ELSE
				CALL PRINT_STR, @"「%TEXTR("うふふっ/ふふっ")%_HH_　%TEXTR("好きな/愛している")%人に写真を撮られるのは気分が良いですね_HH_」_L"
				PRINTFORML 「%TEXTR("これからも撮りたくなったら言ってくださいね？/また撮りたくなったら、言ってくれれればポーズをつけますからね")%」
			ENDIF
		ENDIF
	ELSE
		PRINTFORML 「その……嫌ではありませんけど……」
		PRINTFORML 「写真を撮られるというのは%TEXTR(@"ちょっと恥ずかしいんです/、%CNAME("一人称")%なんかで良いのか、心配になっちゃいますね")%……」
	ENDIF
CASE "頬キス"
	IF CHARA_NUM("室内の邪魔者") == 0
		PRINTFORML 「%TEXTR("続きは……二人っきりでなら良いですよ/続きはココでは……ちょっと")%」
	ELSE
		PRINTFORML 「……%TEXTR("他の皆さんの目もありますし……これ以上はダメですよ/これ以上は他の皆さんに勘づかれちゃいますから……ね？")%」
		PRINTFORML %TEXTR("（ちょっと大胆すぎたでしょうか……）/（もしも変な事をする様なら……お仕置きしましょう）")%」
	ENDIF
CASE "一緒に勉強する"
	IF TALENT:恋慕
		IF CFLAG:予想点 > CFLAG:MASTER:予想点
			CALL PRINT_STRL, @"「%TEXTR(@"解らない所があったら何でも%CNAME("一人称")%に聞いてくださいね？/大丈夫ですか、解らない所は何時でも聞いてくれて良いですからね？/質問があれば何時でも受け付けていますからね？")%_HH_」"
			CALL PRINT_STRL, @"「%TEXTR(@"頑張ってる%CNAME("二人称")%は素敵ですよ/一緒に勉強するのって楽しいですね/一生懸命頑張ってえらいですよ")%_HH_」"
		ELSE
			CALL PRINT_STRL, @"「%TEXTR(@"沢山勉強しましたね。また一緒にお勉強しましょうね_HH_/ふふっ_HH_　一緒に勉強するのは楽しいですね_HH_/%CNAME("主人")%は教えるのが上手ですね_HH_/ふふん、ちゃんとわかりましたよ（解ってない）")%」"
			PRINTFORML 「%TEXTR(@"それはそうと……お茶の時間にしましょうか/勉強したらお腹が空きましたね……%CNAME("一人称")%だけでしょうか？")%」
		ENDIF
	ELSE
		PRINTFORML 「%TEXTR("勉強はもう良いですよね……それより一緒にトレーニングしませんか？/勉強……これは新手の拷問なのではないでしょうか/勉強と言うのは……ちょっと眠くなってきますね")%
		PRINTFORML 「%TEXTR(@"%CNAME("一人称")%は聖職者ですから、聖書なら……平気です。本当ですからね？/%CNAME("一人称")%はあまり勉強らしい勉強をする機会がなかったので新鮮ではあるのですけどね")%」
	ENDIF

;他のヒロインから切り替えた
CASE ""
	IF CFLAG:3301 == 1 && TALENT:両刀 && FIND_COND("オスカー", "現在存在") && RAND:5 == 0
		CALL PRINT_STRL, @"「%TEXTR("ちゅ/……ん、ピチャッピチャ、んっ_HH_、クチュ……/……んっ、ちゅっ、クチュッ、クチュ……じゅるる、はぁ……")%」"
		PRINTFORML 『%TEXTR("おや、隣人ではないか。いつから見ていたのかな？/どうした、混ざりたいのならば素直にそう言うがいい/私とした事が少し熱が入りすぎたな……")%』
		PRINTFORML 「%TEXTR(@"%CNAME("主人")%……こ、これはその……スキンシップ的な……/オスカーさんとちょっと……キスの練習してただけですから、ね？/%CNAME("主人")%。%CNAME("一人称")%とオスカーさんはお友達ですからね？？？")%」
	ELSEIF TALENT:恋慕
		PRINTFORML 「%TEXTR("お呼びですか、/ご用事でしょうか？　/どうかしましたか？　/何かお困りですか？　")%%CNAME("主人")%」
		CALL PRINT_STRL, @"「%TEXTR("＿/うふふっ……/ふふっ……")%%TEXTR(@"フェリシエルさんの真似をしてみました/退屈しているなら一緒に運動しませんか/良かったら……%CNAME("一人称")%とイチャイチャなんてどうでしょう")%_HH_」"
	ELSE
		PRINTFORML 「%TEXTR("何かご用ですか？　お暇でしたら一緒にお話しでもどうでしょうか/どうかしましたか　あんまりえっちな事ばかり考えていてはダメですよ？")%」
	ENDIF
ENDSELECT

;判定前に前回のフラグをリセット

CALL DEL_CEVENT, "イベント：室内の邪魔者"
CALL DEL_CEVENT, "イベント：室内の邪魔者複数"
CALL DEL_CEVENT, "イベント：室内の邪魔者先生"

IF CHARA_NUM("室内の邪魔者") >= 2
	IF FIND_COND("教員",  "現在存在")
		CALL SET_CEVENT, "イベント：室内の邪魔者先生"
	ENDIF
	CALL SET_CEVENT, "イベント：室内の邪魔者複数"
ELSEIF CHARA_NUM("室内の邪魔者") == 1
	CALL SET_CEVENT, "イベント：室内の邪魔者"
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	IF STRCOUNT(SAVESTR:標語, "喉の渇きに注意")
		;IF DEVENT("標語お茶") == 0
		;	PRINTFORML
		;	CALL SET_DEVENT, "標語お茶"
		;ENDIF
	ELSEIF STRCOUNT(SAVESTR:標語, "体操服")
		SELECTCASE SAVESTR:標語
		CASE "体操服はやっぱりブルマ"
			;IF DEVENT("標語ブルマ") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語ブルマ"
			;ENDIF
		CASE "体操服はやっぱりハーパン"

		CASE "体操服はやっぱりスパッツ"

		CASE "体操服はやっぱりジャージ"
		;各分岐を細かく埋めずに、上の分岐を消して望みの体操服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ELSEIF STRCOUNT(SAVESTR:標語, "学生服")
		SELECTCASE SAVESTR:標語
		CASE "学生服はミニスカに限る"
			;IF DEVENT("標語ミニスカ") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語ミニスカ"
			;ENDIF
		CASE "学生服は超ミニに限る"
		;各分岐を細かく埋めずに、上の分岐を消して望みの学生服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ENDIF
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;イベント台詞。書いたらコメントアウトを外してください
;CFLAG:日常イベント回数が10増えるたびに一つ起こすぐらいで良いでしょう
;イベント台詞。書いたらコメントアウトを外してください
IF DAYEV("大晦日", "リアル日時") && COND("夜") && CEVENT("イベント：大晦日／マリー") == 0
	;PRINTFORML 「2018年era悪魔メイドProject始動より早くも一年」
	;PRINTFORML 「メリィエーナ口上加筆、マリー口上作成。夏・クリスマス・正月イベント作成。その他パッチ色々」
	;PRINTFORML 「下手人は、ほぼほぼ私個人によるものでした」
	;PRINTFORML 「来年は口上、パッチ製作者が増えるといいですね」
	;PRINTFORML 「という期待を胸に新たなる口上を増やすのでした」
	IF TALENT:恋慕
		PRINTFORML 「今年も一年が終わっちゃいますね、ご主人様」
		PRINTFORML 「ミカン剥いてあげましたから。はい、あーん」
		PRINTFORML 「%CNAME("一人称")%はご主人様と出会えたのでとても幸せで、楽しい一年でした……」
		PRINTFORML 「ご主人様はどうでしたか？」
		CALL PRINT_STR, @"「来年も沢山思い出を作っていきましょうね　ちゅっ_HH_」_L"
		IF TALENT:TARGET:恋慕 && CEVENT("イベント：白蛇神社再建計画１") == 0
			PRINTFORML
			PRINTFORML 「六華さんが白蛇神社の再建したいそうなのですが……」
			PRINTFORML 「後で一緒に様子を見に行って見ませんか？」
		ENDIF
	ELSE
		PRINTFORML 「今年一年も終わりますね」
		PRINTFORML 「貴方も来年こそは悪魔との契約を解除する方法を探して、爛れた生活を改めましょうね」
		PRINTFORML 「%CNAME("一人称")%も力になりますから、しっかりしてくださいね」
	ENDIF
	CALL SET_CEVENT, "イベント：大晦日／マリー"
ELSEIF DAYEV("お正月", "リアル日時") && CEVENT("イベント：お正月／マリー") == 0
	PRINTFORML 「ボナネ！（Bonne Annee!）新年明けましておめでとうございます」
	PRINTFORML 「%CNAME("一人称")%は、これからちょっと海外へお出かけしないと行けないのですがせめて新年の挨拶だけは、と思いまして」
	IF TALENT:恋慕
		PRINTFORML 「本当は一緒に新しい年を祝いたいのですが、%CNAME("一人称")%は聖騎士としての使命があります」
		CALL PRINT_STR, @"「もちろん、帰って来たらその分も一杯遊びましょうね_HH_」_L"
		IF FIND_COND("現在存在", "フェリシエル")
			PRINTFORML 『お気をつけて、ご武運をお祈りしております』
		ENDIF
	ELSE
		PRINTFORML 「%CNAME("一人称")%が居なくても変な事しない様にしてくださいね」
	ENDIF
	CALL SET_CEVENT, "イベント：お正月／マリー"
ELSEIF DAYEV("お正月", "リアル日時") && CEVENT("イベント：お正月／マリー") && CEVENT("イベント：お正月／マリー２") == 0 && CHECK_SHIRT("振袖", TARGET)
	CALL PRINT_STR, @"「ちょっと早めに用事を済ませて帰って来れたので、新年のご挨拶に参りました_HH_」_L"
	PRINTFORML 「良かったら一緒に初詣に行きましょうか、%CNAME("主人")%」
	PRINTFORML 「宗派が違うとか、そういうのは置いておいて。%CNAME("主人")%と一緒にお参りに行きたいんです。%CNAME("一人称")%のワガママを聞いてくれませんか？」
	CALL SET_CEVENT, "イベント：お正月／マリー２"

;更新履歴より・バレンタインイベントについてはキャラがあなたにチョコくれる程度で良いと思います
;「なるほど……これは叛逆の時！！　女あなたがヒロインの為にチョコを作るイベントはないと神は言いました！！」
;「ならばこの日ばかりは神はいません！！　ここよりは反逆の始まり！！　なければ自分の為に作ってみせましょう！！」
;
;本当は昼のみにしたいが、見れない人がいると可愛そうなので条件緩和
ELSEIF TEXTS("日付対応イベント") == "バレンタイン" && TRUE_SEX(MASTER) == "オンナ" && TALENT:MASTER:オトコ == 0 && CEVENT("イベント：バレンタイン戦争の始まり１／マリー") == 0
;	バレンタイン前日分岐　作ってから日付対応イベントがバレンタイン前日に対応していないと判明した為、死蔵。自分で作ってもいいけどシステム側に介入する改造は面倒臭い
;			PRINTFORML 「はい、正解です。と言いたいですが、実際には明日ですね」
;			PRINTFORML 「思いを伝えたい意中の相手はいますか？　チョコレートを作る準備は万端でしょうか？」
;			PRINTFORML 「%CNAME("二人称")%も女の子なのですから、好きな男性の一人や二人いますよね？」
;			PRINTFORML 「居なくともお父……いえ、お母様に日頃の感謝を込めて、チョコレートを送ったり」
;			PRINTFORML 「仲の良い同性とチョコレートを交換する風習がこの日本にはあると聞きました」
;			;PRINTFORML 「厳密に言うなら、性別を問わずチョコを送って告白して良い日なのですが、それを言うのは野暮ってものですよ！！」
;
;			PRINTFORML 「はい、正解です。と言いたいですが、正確には戦争開始は明日ですね」
;			PRINTFORML 「思いを伝えたい意中の相手はいますか？　チョコレートを作る準備は万端でしょうか？」
;			PRINTFORML 「%CNAME("二人称")%は女の子らしい事をするのは苦手かもしれませんが、何事も経験です」
;			PRINTFORML 「毎日、毎晩。365日料理を続けていればどんな下手くそも上手になります」
;			PRINTFORML 「フェリシエルさんが料理が上手なのは毎日の鍛錬の賜物です」
;			PRINTFORML 「バレンタインのチョコを作る。これをキッカケにお家の手伝いを始めてみませんか？」
;			PRINTFORML 「好きな人の為にする料理と言うのは楽しいものですよ。きっと喜んでくれますから一緒に頑張りましょうね」

	PRINTFORML 「今日はバレンタインデーですね」
	IF RAND:2 == 0
		PRINTFORML 「準備はちゃんと出来てますか？　意中のお相手はおられますか？」
		PRINTFORML 「居なくともお父……いえ、お母様に日頃の感謝を込めて、チョコレートを送ったり」
		PRINTFORML 「仲の良い同性とチョコレートを交換する風習がこの日本にはあると聞きました」
		PRINTFORML 「厳密に言うなら、性別を問わずチョコを送って告白して良い日なので男の子から貰う事もあるでしょう」
		PRINTFORML 「もし、良かったら%CNAME("一人称")%の作ったのと後で交換してもいいですしね」
	ELSE
		PRINTFORML 「今日はバレンタイン。つまり、恋人争奪戦はもう始まっています！！」
		PRINTFORML 「渡すチョコレートの準備はちゃんと出来てますか？　意中のお相手はおられますか？」
		PRINTFORML 「%CNAME("二人称")%は女の子らしい事をするのは苦手かもしれませんが、何事も経験です」
		PRINTFORML 「毎日、毎晩。365日料理を続けていればどんな料理下手も上手になります」
		PRINTFORML 「フェリシエルさんが料理が上手なのは毎日の鍛錬の賜物です」
		PRINTFORML 「バレンタインのチョコを作る。これをキッカケにお家の手伝いを始めてみませんか？」
		PRINTFORML 「好きな人の為にする料理と言うのは楽しいものですよ。きっと喜んでくれますから一緒に頑張りましょうね」
	ENDIF
	;作った私が断言しよう。ここからが長い！！！！
	;
	PRINTFORML
	CALL PRINT_STR, @"「さぁ、一緒にチョコレートを作りましょうか。ありったけの愛を込めて_HH_」_L"
	PRINTFORML 「送る相手に%CNAME("二人称")%の気持ちが伝わるかどうかは今は置いておきましょう。大事なのは行動し、ちゃんと気持ちを伝えたと言う事実です！！」
	PRINTFORML 「それではご一緒に、バレンタイン特別料理教室を始めたいと思います！！」
	;PRINTFORML 熱弁する%CALLNAME:TARGET%は事前に持ち込んであったのだろう鍋、コンロ、冷蔵庫？からてきぱきと部室で料理をする為の準備を整えていく。
	IF FIND_COND("現在存在", "フェリシエル")
		PRINTFORML 「今回は特別講師としてフェリシエル先生をお招きしました」
		;PRINTFORML 「いつもいるせいでありがたみがない、とか言ってはいけません。優秀な料理の先生ですので！！」
		PRINTFORML 『ご主人様がやっと女の子らしい事をすると聞いて、お手伝いに参りました。頑張りましょうね』
	ENDIF
	;
	;更新履歴より・バレンタインイベントについてはキャラがあなたにチョコくれる程度で良いと思います
	;
	;「叛逆こそが我が人生です。おお彼方の圧制者よ！チョコレートを以て、汝を打ち砕かん！！」
	;
	;個人別のイベント文ですら長いのに、これを表示するとカオスな長さになってしまうので割愛した。見たい人は個人でコメントアウトを解除してください。既に内容が個別キャラの口上でやるネタの量じゃねーです！！
	;
	;PRINTFORML %CALLNAME:MASTER%は自らの意思に関係なく否応無くバレンタインと言う名の戦争に巻き込まれ、学生を中心とした学校にいる部員の大半を集めたバレンタイン戦争は火蓋を切ってしまった。
	;PRINTFORML
	;CALL PRINT_STR, "黄色_- パラチネ（制服） -_L_"
	;PRINTFORML 『チョコレート作りを法皇庁の活動費扱いにするのはどうかと思うんですけどね。いえ、折角だからわたしも参加しますけど……』
	;CALL PRINT_STR, "黄色_- さくら（制服） -_L_"
	;PRINTFORML 『姉さんばかりにいい格好はさせられませんから、私も頑張りますね』
	;CALL PRINT_STR, "黄色_- ハナ（制服） -_L_"
	;PRINTFORML 『さくらちゃんとセンパイにもあげるっスよ』
	;CALL PRINT_STR, "黄色_- 恭子（制服） -_L_"
	;PRINTFORML 『想像してた部活と大分違うって言うか……イヌ科にチョコレートはダメじゃないんですか？』
	;CALL PRINT_STR, "黄色_- 維吹（制服） -_L_"
	;PRINTFORML 『呼ばれたから来たけど……雪女だからって、冷やすのが得意ってわけじゃないんだけどな』
	;CALL PRINT_STR, "黄色_- 優里（制服） -_L_"
	;PRINTFORML 『ん～あーしは力仕事だって聞いたけどね。色んな面子が来てんね』
	;CALL PRINT_STR, "黄色_- ツェツィーリア（制服） -_L_"
	;PRINTFORML 『安心したまえよ。私も計量係として呼ばれているからね。つまる所、あの二人の選考基準はいい加減で適当だと言わざるえない。つまり、人選に意味は無いという事だろうね』
	;CALL PRINT_STR, "黄色_- マノン（エプロン） -_L_"
	;PRINTFORML 『わ、私に言ってくれれば調理室を内緒で貸しましたよ！　り、料理なら自信ありますから。任せてください』
	;CALL PRINT_STR, "黄色_- 成美（制服） -_L_"
	;PRINTFORML 『ホムラ先生、学校でこんな事になっちゃってますけどいいんでしょうか！？』
	;CALL PRINT_STR, "黄色_- フェリシエル（制服） -_L_"
	;PRINTFORML 『一年に一回のイベントですから大目に見てくださいね？、ホムラ先生』
	;CALL PRINT_STR, "黄色_- ホムラ先生（ジャージ） -_L_"
	;PRINTFORML 『お前等の行動力には先生も脱帽なんだが……止めろと言っても止めないだろ。終わったらちゃんと片付けるんだぞ、火の元にも気をつけて料理しろよ』
	PRINTFORML %CALLNAME:MASTER%を巻き込み、部員達による臨時お料理教室が×開催された　○開幕した
	;PRINTFORML
	;CALL PRINT_STR, "黄色_- リューナ（普段着） -_L_"
	;PRINTFORML 『全部ビターにしよう。砂糖の取りすぎでみんなのご主人様が糖尿になるとアタシまで太りそうだし』
	;CALL PRINT_STR, "黄色_- マノン（エプロン） -_L_"
	;PRINTFORML 『だ、ダメですぅ……甘い方が食べやすいと思います。それにみんなのご主人様の健康は、わ、私とメイドが管理しますからぁ！』
	;CALL PRINT_STR, "黄色_- カリスタ（執事服） -_L_"
	;PRINTFORML 『お嬢様方、落ち着いて。両方作りましょうね、どうどうどう』
	;PRINTFORML
	;CALL PRINT_STR, "黄色_- ツェツィーリア（制服） -_L_"
	;PRINTFORML 『ふむ……愛の霊薬を試すには良い機会かもしれないな』
	;CALL PRINT_STR, "黄色_- アイリ（制服） -_L_"
	;PRINTFORML 『待ちなさい、いえ、待ってください、ツェツィーリアさん。それどう見ても入れちゃダメな色の液体ですよね？』
	;CALL PRINT_STR, "黄色_- リアラ（リボンタイブラウス） -_L_"
	;PRINTFORML 『恋は劇薬。バレンタインは戦争なんです。ちょっとぐらい死にかけても大丈夫、大丈夫☆』
	PRINTFORML
	;CALL PRINT_STR, "黄色_- マリー（制服） -_L_"
	;PRINTFORML 「みなさん楽しそうですね。バレンタイン特別教室を開いて正解でした」
	;CALL PRINT_STR, "黄色_- パラチネ（制服） -_L_"
	;PRINTFORML （相変わらず目が腐ってますね……どう見てもご主人様を巡って火花バチバチ一触即発寸前なんですけど、なにこの状況を楽しんでるんですかっ？　肘打ちを入れる）
	;CALL PRINT_STR, "黄色_- マリー（制服） -_L_"
	;PRINTFORML （安心してください、パラチネ。いざとなったらフェリシエルさんが何とかしてくれます、きっと　肘打ちを倍返しする。パラチネ悶絶）
	;CALL PRINT_STR, "黄色_- パラチネ（制服） -_L_"
	;PRINTFORML （また他力本願ですかあああ、誰かが暴れたら私とメイドさんが止めるだろうみたいな楽観的なのやめましょうよぉ　涙目で訴えかける）
	;PRINTFORML
	;PRINTFORML 他の部員が滅茶苦茶な事を言いながらチョコを作っている最中、安全な隅の方で%CALLNAME:MASTER%はフェリシエルとマンツーマンでチョコレートを完成させていた。
	;CALL PRINT_STR, "黄色_- フェリシエル（メイド服） -_L_"
	;PRINTFORML 「初めてにしては充分な出来栄えですね、ご主人様。誰にあげるかは聞かないでおきましょうか」
	;PRINTFORML
	CALL SET_CEVENT, "イベント：バレンタイン戦争の始まり１／マリー"
ELSEIF TEXTS("日付対応イベント") == "バレンタイン" && CEVENT("イベント：バレンタイン戦争の始まり１／マリー") == 1 && CEVENT("イベント：バレンタイン戦争の始まり２／マリー") == 0 && TALENT:MASTER:オトコ == 0
	PRINTFORML %CALLNAME:MASTER%と%CALLNAME:TARGET%。すべての部員達は死力を尽くしバレンタインチョコレートを完成させた。
	;PRINTFORML 全員授業をサボっている気がするが、他のライバルに差をつけられるぐらいなら授業をサボる選ばれし勇士がここには集っていた。
	PRINTFORML 後は意中の相手に渡すだけ。
	;PRINTFORML
	;CALL PRINT_STR, "黄色_- カリスタ（執事服） -_L_"
	;PRINTFORML 『みなさまのご武運をお祈りします。ところでお嬢様、後ほど少々お時間をいただけますか？』
	;CALL PRINT_STR, "黄色_- ノノ（制服） -_L_"
	;PRINTFORML 『これだけ揃うと壮観ですね。皆の作ったチョコの記念写真撮っておきましょう』
	;CALL PRINT_STR, "黄色_- あんず（制服） -_L_"
	;PRINTFORML 『ねーねー撮影終わったら早速チョコを交換しよっか？』
	;CALL PRINT_STR, "黄色_- シキ（制服） -_L_"
	;PRINTFORML 『オレはいいけど、みんなは本命に渡すのが先なんじゃないのか？』
	;CALL PRINT_STR, "黄色_- 濡烏の君（制服） -_L_"
	;PRINTFORML 『私も構わないが恋する乙女が多いからな、ここは』
	;CALL PRINT_STR, "黄色_- リューナ（普段着） -_L_"
	;PRINTFORML 『この出来損ないのチョコ美味いな。もしも振られたらアタシが喰ってやるからちゃんと言うんだぞ』
	;CALL PRINT_STR, "黄色_- アイリ（制服） -_L_"
	;PRINTFORML （それってチョコ、それともアイツを物理的に？……突っ込むべきなのかしら、これ）
	;CALL PRINT_STR, "黄色_- 祥子（制服） -_L_"
	;PRINTFORML 『声に出ちゃってるけど……突っ込んでいいと思うよ？』
	;CALL PRINT_STR, "黄色_- 千穂（制服） -_L_"
	;PRINTFORML 『なんで私がチョコを……妹にあげると思えばいい？、そうかもしれないけど』
	;PRINTFORML
	;CALL PRINT_STR, "黄色_- フェリシエル（メイド服） -_L_"
	;PRINTFORML 「無事に全員分のチョコが出来ましたね。それでは楽しいバレンタインにしましょう♪」
	;PRINTFORML
	;PRINTFORML 以上、死蔵データでした。こんな所まで読んでるなんて、あなたって暇人なのね！！
	;PRINTFORML
	PRINTFORML 「色々とトラブルもありましたが、無事チョコレートが完成して良かったですね、%CNAME("主人")%」
	PRINTFORML 「%CNAME("一人称")%からはもう言う事はありません。ボンヌ・シャンス！（Bonne chance!)」
	CALL SET_CEVENT, "イベント：バレンタイン戦争の始まり２／マリー"
ELSEIF TEXTS("日付対応イベント") == "バレンタイン翌日" && CEVENT("イベント：バレンタイン戦争の始まり２／マリー") && CEVENT("イベント：バレンタイン戦争の終わり１／マリー") == 0 && TALENT:MASTER:オトコ == 0
	PRINTFORML 「意中の相手にはちゃんとチョコレートを渡せましたか？」
	IF CEVENT("イベント：バレンタイン戦争の始まり３／マリー")
		CALL PRINT_STR, @"「%CNAME("一人称")%はちゃんと渡せましたよ　ちゅっ_HH_」_L"
	ELSEIF TALENT:恋慕
		PRINTFORML 「%CNAME("一人称")%は渡せませんでしたが……諦めたわけではないので、次のチャンスに期待します」
	ELSE
		PRINTFORML 「%CNAME("一人称")%は意中の相手はいないので、%TEXTR("クラス/部員/友達")%の皆さんとチョコレートを交換しただけですね」
	ENDIF
	CALL SET_CEVENT, "イベント：バレンタイン戦争の終わり１／マリー"

ELSEIF DAYEV("ホワイトデー") && CEVENT("イベント：ホワイトデーの日その１／マリー") == 0
	IF TALENT:恋慕
		CALL PRINT_STR, @"「バレンタインのお返しですか！？。嬉しいです_HH_」_L"
		PRINTFORML 「うふふっ、これは大事に飾っておきますね。食べるなんて勿体無い事出来ません」
		PRINTFORML 「Je vous remercie pour votre cadeau」
		CALL PRINT_STR, @"「%CNAME("二人称")%のおかげでまた一つ大事な思い出が出来ました　ちゅっ_HH_」_L"
	ELSE
		PRINTFORML 「バレンタインのお返しですか？」
		PRINTFORML 「ありがとうございます。%CNAME("二人称")%にもらったお返し大事に食べますね♪」
	ENDIF
	CALL SET_CEVENT, "イベント：ホワイトデーの日その１／マリー"

ELSEIF CEVENT("個別クリスマスイベント：マリー１") && CEVENT("個別クリスマスイベント：マリー２") == 0
	PRINTFORML 「%CNAME("一人称")%のワガママに付き合ってくれてありがとうございました」
	PRINTFORML 「子供達も喜んでくれて本当によかったです。このお礼は必ずさせていただきますね」
	CALL SET_CEVENT, "個別クリスマスイベント：マリー２"

ELSEIF TALENT:恋慕 && (DAYEV("ハロウィン", "ゲーム内") || DAYEV("ハロウィン")) && CEVENT("個別ハロウィンイベント：マリー") == 0
	CALL PRINT_STRL, @"「Trick or Treat_HH_」"
	CALL PRINT_STRL, @"「さぁ、大人しくいたずらされるか、お菓子をお願いします_HH_」"
	CALL SET_CEVENT, "個別ハロウィンイベント：マリー"
ELSEIF (DAYEV("ハロウィン", "ゲーム内") || DAYEV("ハロウィン")) && CEVENT("個別ハロウィンイベント：マリー")
	IF RAND:2 == 0 && CHECK_SHIRT("修道服")
		CALL PRINT_STRL, @"「%TEXTR("折角のお祭り/今日はハロウィン")%なので、修道服に着替えてみました_HH_」"
		CALL PRINT_STRL, @"「%TEXTR(@"%CNAME("二人称")%を惑わす/%CNAME("主人")%を誘惑する")%%TEXTR(@"悪い/イケナイ")%%TEXTR("悪魔/淫魔/幽霊/吸血鬼/かぼちゃのお化け")%は%TEXTR("退治しちゃいましょうね/やっつけないといけませんからね")%_HH_」"
	ELSE
		CALL PRINT_STRL, @"「%TEXTR("悪戯して欲しいんですか/悪戯を希望するのですか")%……」"
		CALL PRINT_STRL, @"「%TEXTR("悪い/イケナイ")%子は%TEXTR("こうですよ/こうしちゃいます")%……%TEXTR("ちゅっ/ちゅう")%_HH_」"
	ENDIF

;2020/02/04
ELSEIF DAYEV("週末に試験") && CEVENT("イベント：週末に試験／マリー") == 0
	PRINTFORML 「週末に試験があるって話は聞きましたか？、%CNAME("主人")%」
	IF BASE:学力 > BASE:MASTER:学力
		PRINTFORML 「都合のつく時間があれば%CNAME("一人称")%と一緒に勉強しましょうね」
		PRINTFORML 「正直、%CNAME("一人称")%もあまり勉強は得意ではありませんが……」
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「%CNAME("二人称")%と一緒なら嫌……苦手な勉強も頑張れる気がしますから_HH_」"
		ENDIF
	ELSE
		PRINTFORML 「あの……ですね。実は%CNAME("主人")%にお願いがあるんですけど……」
		PRINTFORML 「%CNAME("一人称")%……あまりお勉強は得意ではないので」
		PRINTFORML 「良かったら……お勉強を教えて欲しいなーなんて思ったり……」
	ENDIF
	CALL SET_CEVENT, "イベント：週末に試験／マリー"
ELSEIF DAYEV("夏服開始") && CEVENT("イベント：夏服開始／マリー") == 0
	PRINTFORML 「衣替えですね、%CNAME("主人")%」
	PRINTFORML 「夏は暑いですが、イベントが沢山あって楽しみです」
	CALL SET_CEVENT, "イベント：イベント：夏服開始／マリー"
ELSEIF DAYEV("夏服終了") && CEVENT("イベント：夏服終了／マリー") == 0
	PRINTFORML 「また衣替えですね、%CNAME("主人")%」
	PRINTFORML 「冬は寒いですけどクリスマスにお正月。楽しいイベントがいっぱいありますね♪」
	PRINTFORML 「何時の日か、みんなで温泉にも行ってみたいです」
	CALL SET_CEVENT, "イベント：イベント：夏服終了／マリー"
ELSEIF DAYEV("バニーの日") && CEVENT("イベント：バニーの日／マリー") == 0
	PRINTFORML 「お月見と言うイベントをやるそうですね」
	PRINTFORML 「%CNAME("主人")%の為にフェリシエルさんが部員全員の分の衣装を用意してくれました」
	PRINTFORML 「そうですね、%CNAME("主人")%が良ければ一緒に月まで行ってみませんか？」
	;PRINTFORML 『ワイバーンでは月まで行けないと思いますが、その心意気は良いと思いますよ。ええ』
	CALL SET_CEVENT, "イベント：バニーの日／マリー"
ELSEIF DAYEV("メイドの日") && CEVENT("イベント：メイドの日／マリー") == 0
	PRINTFORML 「本日はメイドの日だそうです」
	PRINTFORML 「フェリシエルさん曰く大掃除の日だそうですよ」
	PRINTFORML 「%CNAME("主人")%の分も用意してありますから早速着替えて、みんなで大掃除と行きましょうか」
	CALL SET_CEVENT, "イベント：メイドの日／マリー"
;本来の性別で判定　オトコあなたにはサービスはありません！！女になりましょう！！　本来の性別オンナで弾くの難しい
ELSEIF TRUE_SEX(MASTER) == "オンナ" && TALENT:MASTER:オトコ == 0
	IF CFLAG:好感度 >= 300 && CFLAG:日常イベント回数 >= 5 && CEVENT("イベント：女あなた／マリー１") == 0
		PRINTFORML 「大事な事なので聞いておきたいのですが……」
		PRINTFORML 「%CNAME("二人称")%は同性が好きなのでしょうか？」
		;CALL PRINT_SELECT, "はい/いいえ"
		;IF RESULT == 0
			PRINTFORML 「なるほど。いえ、法皇庁には%CNAME("二人称")%の様な方もおられるので念の為に聞いてみただけですよ」
			PRINTFORML （今までちゃんとしたお付き合いはした経験はないのですが、%CNAME("一人称")%はどちらかと言えば男性の方が好きなのですが言い出すタイミングではないですね……）
			CALL SET_CEVENT, "イベント：女あなた／マリー２"
		;ELSE
		;	PRINTFORML 「%CNAME("一人称")%の勘違いでしたね、ごめんなさい」
		;ENDIF
		CALL SET_CEVENT, "イベント：女あなた／マリー１"
	ELSEIF CFLAG:好感度 >= 700 && CFLAG:日常イベント回数 >= 10 && CEVENT("イベント：女あなた／マリー２") && CEVENT("イベント：女あなた／マリー３") == 0
		PRINTFORML 「%CNAME("一人称")%の事を%CNAME("二人称")%はどう思っておられるのでしょう……」
		PRINTFORML %CALLNAME:TARGET%は窓を見つめながら独り言を呟いていた。
		CALL SET_CEVENT, "イベント：女あなた／マリー３"
	ELSEIF CFLAG:好感度 >= 1000 && CFLAG:日常イベント回数 >= 20 && CEVENT("イベント：女あなた／マリー３") && CEVENT("イベント：女あなた／マリー４") == 0
		PRINTFORML 「ああは言ってましたけど。やっぱり同性ですしね……%CNAME("二人称")%は遊びのつもりかもしれません」
		PRINTFORML 「それに……最近は%CNAME("一人称")%の方があの人を……」
		PRINTFORML 視線の先に%CALLNAME:MASTER%の姿を見つけ、%CALLNAME:TARGET%は恥ずかしさに顔を覆ってしまった。
		CALL SET_CEVENT, "イベント：女あなた／マリー４"
	ELSEIF TALENT:恋慕 == 0 && CFLAG:好感度 >= 1500 && CFLAG:日常イベント回数 >= 20 && CEVENT("イベント：女あなた／マリー４") && CEVENT("イベント：女あなた／マリー５") == 0
		PRINTFORML 「あの……%CNAME("二人称")%にお話があります」
		PRINTFORML 「二人きりになれる時間を作ってくれませんか……お願いします」
		PRINTFORML %CALLNAME:TARGET%は赤面しながら%CALLNAME:MASTER%にお願いを告げると、僅かに距離を置いた。
		CALL SET_CEVENT, "イベント：女あなた／マリー５"
	ENDIF
ELSEIF CFLAG:日常イベント回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML 「この間ですね、学校に遅刻しそうになったのでワイバーンで近道して降下登校したら、先生に見つかって怒られちゃいました」
	PRINTFORML 「パラシュートはなくても大丈夫ですよ。慣れです、慣れ」
	PRINTFORML 「良かったら今度ご一緒に如何ですか？　空を飛ぶと言うのは爽快ですよ」
	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常イベント回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML 「どんな奇跡が起こせるのか、ですか」
	PRINTFORML 「魔法も奇跡も悪魔の取引も科学では解明出来ていないだけでちゃんと法則があるんですよ」
	PRINTFORML 「燃やすモノがなければ火が燃えないように、魂と言う燃料が必要なんです」
	CALL SET_DEVENT, "質問２"
ELSEIF TALENT:恋慕 && CFLAG:日常イベント回数 >= 20 && DEVENT("性欲１") == 0
	PRINTFORML 「%CNAME("二人称")%はいつも元気ですね」
	PRINTFORML 「欲望を持て余す気持ちは解りますが何時もいけない運動ばかりしていてはいけませんよ。たまには違う運動で身体を動かしてみませんか？」
	CALL SET_DEVENT, "性欲１"
ELSEIF TALENT:恋慕 && CFLAG:日常イベント回数 >= 25 && DEVENT("不安１") == 0
	PRINTFORML 「Pour m'aider quand j'ai peur」
	PRINTFORML 「ツェツィーリアさんが言ってました。言葉の意味は解らずとも言葉とは発するだけで意思は伝わるものなのだと」
	PRINTFORML 「あなたが困っている時は%CNAME("一人称")%が助けます。だから、%CNAME("一人称")%が困っている時は……お願いしますね」
	CALL SET_DEVENT, "不安１"
ELSEIF TALENT:恋慕 && CFLAG:日常イベント回数 >= 35 && DEVENT("不安２") == 0
	PRINTFORML 「Ma vie a beaucoup change depuis que nous nous sommes connus」
	PRINTFORML 「%CNAME("二人称")%と出会って本当に良かったと%CNAME("一人称")%は思ってますよ、ふふっ♪」
	CALL SET_DEVENT, "不安２"
ELSEIF TALENT:相思相愛 && CFLAG:日常イベント回数 >= 45 && DEVENT("相思相愛１") == 0
	PRINTFORML 「Merci de m'avoir choisie」
	PRINTFORML 「ちゃんと気持ちを伝えるのって……ちょっと恥ずかしいですね」
	CALL SET_DEVENT, "相思相愛１"
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;他の人といちゃついた後にパートナー変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈないちゃつき中")
	IF TALENT:恋慕
		CALL PRINT_STR, @"「%TEXTR("泣いてなんかいませんよ、本当ですから……/機嫌が悪い？　気のせいではないでしょうか。私がお気に召さないならどうぞイチャイチャを続けてくださいな")%」_L"
	ELSE
		CALL PRINT_STR, @"「何というか……%TEXTR("解/知")%ってはいましたけれど」_L"
		CALL PRINT_STR, @"「%TEXTR("貴方って人は浮気性なんですね/誰とでもそう言う感じなんですね……/相手は誰でもいいんですね")%」_L"
	ENDIF
	CALL SETFLAG_DAILY, "不機嫌"
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;以下はランダム台詞など

;時間帯と場所と関係で変化有り
IF TALENT:恋慕 && CHECK_SHIRT("振袖", TARGET) && CEVENT("イベント：お正月／マリー２") && CEVENT("イベント：お正月／マリー３") == 0 && RAND:2 == 0
	IF RAND:2 == 0
		PRINT 「振袖を
		IF FIND_COND("メリィエーナ")
			PRINTFORM %CNAME("二人称")%のお母様に
		ELSEIF FIND_COND("フェリシエル")
			PRINTFORM フェリシエルさんに
		ENDIF
		PRINTFORML 借りて来たのですが%TEXTR("似合ってるでしょうか？/変じゃないでしょうか……/どうでしょうか？")%」
		PRINTFORML %CALLNAME:TARGET%は感想を言って欲しそうに、頬を赤らめて%CALLNAME:MASTER%を見つめている。
		CALL PRINT_SELECT, "褒める/感想はまた今度にする"
		IF RESULT == 0
			PRINTFORML 「ありがとうございます、ふふっ♪」
			IF CHARA_NUM("室内の邪魔者") == 0
				CALL PRINT_STR, @"「ちゅっ_HH_」_L"
			ENDIF
			CFLAG:褒める = 2
			CALL SET_CEVENT, "イベント：お正月／マリー３"
		ELSE
			PRINTFORML 「%TEXTR(@"普通の服の方が%CNAME("二人称")%の好みでしょうか？/あまり似合ってなかったでしょうか……/お忙しいみたいなのでまた今度感想を聞かせてもらいますね")%」
		ENDIF
	ELSE
		IF TALENT:恋慕 && CHECK_SHIRT("振袖", TARGET) && CFLAG:褒める == 2 && CEVENT("イベント：お正月／マリー３") && RAND:3 == 0
			PRINTFORML 「お正月と言うのは楽しいですね♪」
			CALL PRINT_STR, @"「%TEXTR("羽根突きと言う遊びをしましょうか、大丈夫。手加減しますから！/百人一首？　カルタですか？　良く解りませんが、やりましょう/姫初め？と言うのがあるらしいですが、それは一体どんな遊びですか")%」_L"
		ELSEIF RAND:2 == 0
			PRINTFORML 「ズット！（Zut！）」
			PRINTFORML 「あのですね、正座と言う座り方を習ったのですが……」
			PRINTFORML 「%TEXTR("情けない事に……足が痺れて、動けなく……/これは大変ですね……日本の方は偉い")%」
			;PRINTFORML 『正座も満足に出来ない様では、この悪魔メイドを超えられませんよ？』
		ELSE
			PRINTFORML 「%CNAME("一人称")%は大変な事に気がつきました……」
			PRINTFORML 「%TEXTR(@"この服は重たいので走ったり出来ませんね/この服では思う様に動けないので、%CNAME("二人称")%をお守り出来ないかもしれません")%」
		ENDIF
	ENDIF
;2020/06/17　トイレ性処理後の会話
ELSEIF CEVENT("トイレ同伴イベント使用後：マリー")
	CALL PRINT_STRL, @"「%TEXTR("ふふっ/うふふっ")%_HH_」"
	CALL PRINT_STRL, @"「%CNAME("主人")%、%TEXTR("また……お困りの事があればまた気軽に言ってくださいね/今日はちょっぴり時間がありませんでしたけど……続きはまた後でお願いしますね/ご奉仕頑張ってみましたけど……気に入っていただけたでしょうか")%_HH_」"
	CALL DEL_CEVENT, "トイレ同伴イベント使用後：マリー"
ELSEIF DAYEV("日曜", "ゲーム内") && COND("昼") && COND("デートの約束")
	IF RAND:3 == 0
		PRINTFORML 「お弁当は必要でしょうか？」
		PRINTFORML 「天気予報は見ましたか、雨になるようなら傘を用意しますね」
	ELSEIF RAND:2 == 0
		PRINTFORML 「お出かけの準備は万端ですか？」
		PRINTFORML 「いざとなったら%CNAME("一人称")%が何とかしてあげますが、あんまり甘えてはいけませんからね？」
	ELSE
		PRINTFORML 「今日は何処に行きましょうか♪」
		PRINTFORML 「%CNAME("二人称")%と一緒に出かけられると言うだけでウキウキしちゃいますね」
	ENDIF
ELSEIF DAYEV("ビキニの日") && COND("昼") && CHECK_CLO("ビキニ姿")
	IF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0 && RAND:2 == 0
		PRINTFORML 「%CNAME("一人称")%の%TEXTR("水着/ビキニ")%姿はどうですか？」
		CALL PRINT_STR, @"「%TEXTR("ちゅっ/ちゅ")%_HH_　%TEXTR(@"二人っきりですから、たまには%CNAME("一人称")%の方から悪戯してもいいですよね？/ちょっとぐらいなら悪戯しても、今なら許してあげますよ？")%」_L"
	ELSE
		PRINTFORML 「今日はビキニの日だと聞いて、着替えて見たんですが……」
		PRINTFORML 「%TEXTR(@"ちょっぴり恥ずかしいですけど%CNAME("二人称")%が喜んでくれるなら嬉しいですね/このまま泳ぎに行ったりしませんか？/%CNAME("二人称")%は水泳は好きですか？")%」
	ENDIF
ELSEIF DAYEV("バニーの日") && COND("昼") && CHECK_BODYS("バニー")
	IF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0 && RAND:2 == 0
		PRINTFORML 「%TEXTR("ぴょんぴょん/うさちゃんですよ")%♪」
		PRINTFORML 「あっ……その、%CNAME("二人称")%は何も見ませんでしたよね、いいですね？」
	ELSE
		PRINTFORML 「みんなでコスプレするのも楽しいですね♪」
		PRINTFORML 「良かったら%CNAME("主人")%も一緒に着ませんか、着替えさせてあげますよ」
	ENDIF
ELSEIF DAYEV("メイドの日") && COND("昼") && CHECK_SHIRT("メイド服")
	IF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0 && RAND:2 == 0
		PRINTFORML 「%TEXTR(@"メイドとして%CNAME("主人")%にご奉仕させていただきますね/本日は%CNAME("主人")%にたっぷりサービスさせていただきますね/%CNAME("主人")%はやっぱりメイドさんの恰好が一番好きなのでしょうか？")%」
		CALL PRINT_STR, @"「%TEXTR("ふふっ、肩が随分こってますね。悪魔祓い式ヒーリングで癒してあげますからジッとしててくださいね/マッサージしてあげますね。えっ、エッチなサービスじゃないですよ。もう/どうですか？　肩もみマッサージのご奉仕です")%_HH_」_L"
		;PRINTFORML %CALLNAME:MASTER%の肩は物理的にバラバラになった！！　リザレクション！！！
	ELSE
		PRINTFORML 「%TEXTR("さぁ、大掃除しましょう/早速ですが大掃除しましょう")%！！」
		PRINTFORML 「%TEXTR(@"お茶会は掃除が終わってからです、%CNAME("主人")%は邪魔しないで待っててくださいね/全部片付いたらみんなでお茶の時間にしましょう")%」
	ENDIF
ELSEIF (TALENT:恋慕 || TALENT:淫乱) && CEVENT("着せ替え：マリー") == 0 && CEVENT("コスプレに興味はありますか？：マリー") == 0
	PRINTFORML 「%CNAME("主人")%はコスプレとか……そういうモノにも興味があるのですね」
	PRINTFORML 「契約の範疇であればご相談に乗れない事もないと思いますから、一度取引してみるのはどうでしょうか」
	CALL SET_CEVENT, "コスプレに興味はありますか？：マリー"

;PRINTFORML フェリシエル『これは判定上はただのＹシャツです。何時からソレをあなたのＹシャツだと勘違いしていたんですか？　お可愛い事』
ELSEIF FIND_COND("朝駆け相手") && CHECK_SHIRT("Ｙシャツ", TARGET)
	CALL PRINT_STR, @"「%TEXTR(@"クンクン……このシャツは%CNAME("二人称")%の匂いがしますね/このシャツを着てると%CNAME("二人称")%の香りに包まれてるみたいで素敵ですね/このシャツを着たら%CNAME("二人称")%がパンツを欲しがる理由、ちょっぴり解っちゃいました")%_HH_」_L"
	CALL PRINT_STR, @"「%TEXTR("好きですよ/愛してますよ/ジュテ－ム（Je t’aime）")%……%CNAME("主人")%_HH_」_L"
ELSEIF DAYEV("日曜", "ゲーム内") && COND("昼") && RAND:2 == 0
	;修道女マリーさんに迫る黒い影プレイとか
	IF RAND:2 == 0
		PRINTFORML 「今日は教会に%TEXTR("顔を出さないといけない日なんです/パラチネを連れて行かねばならない日なので/ミサで出かけなくてはいけないんです。予定がある日は前日に済ませるんですけどね")%」
		PRINTFORML 「%CNAME("二人称")%も用事がないのでしたら%TEXTR("ご一緒にどうですか？/たまには教会でお祈りしてみませんか？/お祈りしてみるのは如何でしょうか？/悪魔との付き合い方を見直す為にも教会に行きませんか？")%」
	ELSE
		PRINTFORML 「%TEXTR("教会にお手伝いにいってきますね/何かご用事ですか？　お暇でしたら一緒に教会にお手伝いにいきませんか/教会はいつも人手不足なのでちょっとお手伝いにいってきます")%」
		PRINTFORML 「%TEXTR(@"お土産はそうですね……聖書とか、いりませんか？/困っている人を助けるのが%CNAME("一人称")%達の本来の役目ですから/悪魔祓いと言っても戦ってばかりではないんですよ")%」
	ENDIF
	CALL SET_COORDINATE, "シスター"
	CALL SET_OTHER, "チョーカー/カチューシャ"
ELSEIF COND("夜")
	IF PLACE("居間") && TALENT:恋慕 && FIND_COND("フェリシエル") && CEVENT("イベント：童貞を殺す服／マリー") == 0
		PRINTFORML 「……%CNAME("主人")%。今はお時間ありますか？」
		PRINTFORML 「ちょっと相談と言うか、%CNAME("一人称")%のお部屋に来て欲しいのですが……」
	ELSEIF SAVESTR:現在位置 == "公園" || SAVESTR:現在位置 == "ラブホテル"
		CALL PRINT_STR, @"「%TEXTR("夜の/深夜の")%デートって%TEXTR("素敵ですね/ちょっぴり特別な気がします")%_HH_」_L"
		IF SAVESTR:現在位置 == "公園"
			PRINTFORML 「%TEXTR("嫌じゃなかったら……手を繋いでくれませんか/あの……手を繋いじゃってもいいでしょうか")%？」
		ELSEIF SAVESTR:現在位置 == "ラブホテル"
			PRINTFORML 「%TEXTR(@"ちょっとドキドキしちゃってますけど……覚悟は出来てますから/心の準備は万端ですからね。遠慮なく楽しみましょう/ちょっぴりドキドキしますね。%CNAME("二人称")%もドキドキしちゃいますか？")%」
		ENDIF
	ELSEIF CHARA_NUM("室内の邪魔者") == 0 && RAND:2 == 0
		IF RAND:4 == 0
			PRINTFORML 「%CNAME("二人称")%は頑張り屋さんですね」
			PRINTFORML 「お姉ちゃんが%TEXTR("いい子いい子/ナデナデ")%してあげますね」
		ELSEIF RAND:3 == 0
			PRINTFORML 「二人っきりですし……」
			PRINTFORML 「良かったら膝枕とか、どうでしょう？」
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「はい、あ～ん_HH_」_L"
			PRINTFORML 「%TEXTR("ふふっ、こうしていると/えっと……")%恋人同士って感じでドキドキしちゃいますね……」
		ELSE
			CALL PRINT_STR, @"「%TEXTR("他のみなさんはお忙しいのでしょうか/二人っきりですね")%」_L"
			CALL PRINT_STR, @"「%TEXTR(@"い、一緒にお勉強でもしましょうか/お、お茶でも淹れましょうか？/な、何かしますか！？")%」_L"
		ENDIF
	ELSE
		IF (STATE("悪酔い", TARGET) || STATE("酔い", TARGET)) && FIND_COND("現在存在", "助手")
			CALL PRINT_STR, @"「%TEXTR(@"フェリフェリ_HH_　一緒に脱ぎましょう、全部/とっても暑くなっちゃいましたね、二人で全部脱いで%CNAME("主人")%をドキドキさせちゃいましょう/フェリちゃん、一緒に脱ぎ脱ぎしちゃいましょう")%_HH_」_L"
			IF NO:ASSI == 1
				PRINTFORML - フェリシエル -
				CALL PRINT_STRL, @"『%TEXTR("いいですけど……これって完全に酔ってますねぇ……/エッチな意味で脱がそうとしてないので、対応に困りますね")%』"
			ENDIF
			CALL SETFLAG, "下着姿になる", TARGET
			CALL SETFLAG, "下着姿になる", ASSI
		;
		ELSEIF FIND_COND("現在存在", "フェリシエル") && RAND:2 == 0
			IF CHECK_CLO("ハダカ") && RAND:4 == 0
				PRINTFORML 「%TEXTR(@"は、恥ずかしい……/今、服を着ますね……/%CNAME("二人称")%が脱いで欲しいって言うので脱いだだけですからね！")%」
				PRINTFORML - フェリシエル -
				PRINTFORML 『%TEXTR("余計なお世話かもしれませんが人目をもう少し気にしてくださいね？/何でも言う事を聞いて甘やかしてはダメですよ？/ほどほどになさってくださいね……")%』
				CALL SET_COORDINATE, "部屋着"
			ELSEIF RAND:3 == 0
				PRINTFORML 「お茶ありがとうございます」
				PRINTFORML - フェリシエル -
				PRINTFORML 『いえいえ、手伝ってもらったお礼ですから』
			ELSEIF RAND:2 == 0
				PRINTFORML 「お手伝いしますよ？」
				PRINTFORML - フェリシエル -
				PRINTFORML 『ありがとうございます。じゃあ、一緒にお夕飯の準備をしちゃいましょうか』
			ELSE
				PRINTFORML 「お風呂洗っておきますねー」
				PRINTFORML - フェリシエル -
				PRINTFORML 『お願いします。色々やってもらえて助かってますよ』
			ENDIF
		ELSE
			;2019/08/05　清楚ムーブ率を半分とする
			IF RAND:2 == 0
				;夜のセリフが薄いと思ったのでセリフパターンを大幅に追加する
				IF RAND:4 == 0
					PRINTFORML 「ＴＶって面白いですね」
					PRINTFORML 「%CNAME("一人称")%の好みは恋愛ドラマとか……ですけど、%CNAME("二人称")%は何が好きでしょうか」
				ELSEIF RAND:3 == 0
					PRINTFORML 「手持無沙汰だとつい、ダラダラしちゃいますね……」
					PRINTFORML 「%CNAME("一人称")%は同居とはいえお客様ではないのですから、何でも言いつけてくださいね」
				ELSEIF RAND:2 == 0
					PRINTFORML 「今はこういうファッションが流行ってるんですね」
					PRINTFORML 「%CNAME("二人称")%の好みはどういう感じですか、良かったら今度一緒にお買い物にでも行きませんか」
				ELSE
					PRINTFORML 「ちゃんと歯は磨きましたか？」
					PRINTFORML 「あんまり夜更かししてはいけませんよ」
				ENDIF
			ELSE
				IF RAND:2 == 0
					IF RAND:2 == 0
						PRINTFORML 「主よ、今日も平穏なる時を過ごせた事を感謝致します」
					ELSE
						PRINTFORML 「明日も平穏に過ごせます様に……」
					ENDIF
					PRINTFORML %CALLNAME:TARGET%は神への祈りを捧げている。
				ELSE
					IF RAND:2 == 0
						PRINTFORML 「お悩み事はありませんか？　人間関係とか、悪魔に悩まされているとか」
					ELSE
						PRINTFORML 「懺悔する事があれば%TEXTR(@"包み隠さず、すべて教えてくださいね/神に代わり%CNAME("一人称")%が聞きましょう")%」
					ENDIF
					PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%と今日一日にあった事を話し合った。
				ENDIF
			ENDIF
		ENDIF
	ENDIF
;昼
ELSE
	;酒はダメ。絶対に
	IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
		IF RAND:2 == 0
			PRINTFORML 「さっきのお茶もうないんですか？」
			PRINTFORML 「隠してるんですよね、出してください。早くっ！」
		ELSE
			PRINTFORML 「ん……このお茶何なんでしょう……」
			PRINTFORML 「身体が熱くなって、とってもキスしたくなっちゃいますよ」
		ENDIF
	;0
	ELSEIF CHARA_NUM("室内の邪魔者") == 0 && RAND:2 == 0
		PRINTFORML 「%TEXTR("他のみなさんはお忙しいのでしょうか？/暇そうですね？/お暇を持て余しておられるようですね")%」
		PRINTFORML 「%TEXTR("一緒にトレーニングしますか/とっておきの鍛錬があるのですが？/是非、実践してみたい訓練があるのですが")%」
	;1
	ELSEIF FIND_COND("現在存在", "フェリシエル") && NO:ASSI == 1
		;2019/11/21　会話量が莫大の為EVENT_K_COMMへの移植は断念。個別口上内での顔グラ機能を搭載する事にした
		ACTOR = FIND_COND("現在存在", "フェリシエル")
		CALL PRINT_TaiTaChara, ACTOR
		IF FIND_COND("千穂") && FIND_COND("現在存在", "千穂") == 0 && CEVENT("イベント：フェリシエルの見解") == 0
			PRINTFORM %CALLNAME:TARGET%とフェリシエルは
			PRINTFORML 千穂について話している。
			PRINTFORML 「もしも……の時は千穂さんとの取引に応じるのでしょうか？」
			PRINTFORML 『ええ、魂をいただけるなら取引に応じるのが悪魔ですから。もちろん、彼女との取引に応じない様にすると言う取引が存在すればそちらが優先されますけどね』
			;PRINTFORML 『聖女様の魂ならウェルカムですよ。美しい友情の為に一肌脱いでみませんか？』
			;IF FIND_COND("現在存在", "パラチネ")
				;PRINTFORML　-パラチネ-
				;PRINTFORML 『すいません。そう言うのは事務所的にアウトなんで！！』
				;PRINTFORML （フェリシエルさんは良い人なのですが、やはり……本質は悪魔なのですね）
				;PRINTFORML （悪魔は狡猾かつ邪知に長けています。むしろ、悪魔を良い人とか思い込んでる先輩の頭が心配ですよ。もちろん、魂の取引に関して嘘偽りなく公明正大ですからその点は信頼出来るともいえますけどね）
			;ENDIF
			PRINTFORML 「……貴方は解っているはずです。仮に反魂が成功してもそれは魂の本質を変えてしまうのだと」
			PRINTFORML 『魂の取引は等価交換ですから、何も失わずに得る事は出来ません。それに残念ですが、私は一介の悪魔ですから神様の様に万能ではないんですよ』
			;IF FIND_COND("現在存在", "パラチネ")
				;PRINTFORML 「%CNAME("一人称")%達は無力ですね、パラチネ」
				;PRINTFORML 『熱くなる気持ちは解りますけど、何時だってわたし達に救えるのはほんの一握りだって事を忘れないでくださいね。千穂さんが妹さんの復活を望み、それが果たされたとしてもわたし達は法皇庁の許可無く動ける立場ではないのですから』
				;PRINTFORML 「……解ってます、そんな事は」
				;PRINTFORML 『はぁ……どうしてもマリー先輩がやるって言うなら付き合いますよ。だから、一人で暴走しないでくださいね』
			;ENDIF
			CALL SET_CEVENT, "イベント：フェリシエルの見解"
		ELSE
			IF RAND:10 == 0
				IF RAND:4 == 0
					PRINTFORML 「新しい部員の方は後何人ぐらい増えるのでしょうか」
					PRINTFORML 『ご主人様が望む限りですね……』
				ELSEIF RAND:3 == 0
					PRINTFORML 『ご主人様は本当に何時でも元気いっぱいですよね』
					PRINTFORML 「絶倫なのはけして悪い事ではないんですけどね……ちょっと節操がないのが困ります」
				ELSEIF RAND:2 == 0
					PRINTFORML 「一晩どころか…一日中でも出来ますよね、%CNAME("主人")%って」
					PRINTFORML 『多分そんな気はしますねぇ……試した事はまだないですけど』
				ENDIF
				PRINTFORML %CNAME("二人称")%の性欲が尽きない悩みについて共感し、ため息をついた。
			ELSEIF COND("ブラ透け") && FIND_COND("ブラ透け", "フェリシエル")
				ACTOR = FIND_COND("ブラ透け", "フェリシエル")
				IF RAND:2 == 0
					PRINTFORML 『おおー%BRA(TARGET)%ですね……と言うことはパンツもこんな感じなのでしょうか？』
					PRINTFORML 「フェリシエルさん……大丈夫ですか？　発言が%CNAME("主人")%に毒されている様な気がしますよ」
				ELSE
					PRINTFORML 「フェリちゃん……%BRA(ACTOR, "種類")%が透けちゃってますよ」
					PRINTFORML 『マリーさんも%BRA(TARGET)%をつけてるのが見えちゃってますけどね、フフッ』
				ENDIF
			;2019/08/16
			ELSE
				IF COND("相性○", ASSI) && RAND:3 == 0
					;二人とも淫乱
					IF TALENT:淫乱 && TALENT:処女 == 0 && TALENT:ASSI:淫乱 && RAND:2 == 0
						PRINTFORML 『%TEXTR("こういう/こんな/新しい/新作の/新しく出た")%%TEXTR("玩具/オモチャ/道具/グッズ")%%TEXTR("はどうですか？/に興味は……ありそうですね/があるみたいですね。どうですか？")%』
						PRINTFORML 「%TEXTR("ええと/そのですね")%……%CNAME("一人称")%は%TEXTR("こう見えても/これでも")%%TEXTR("聖職者/悪魔祓い")%なのです。%TEXTR(@"社会勉強ですか……それならしょうがないですね/%CNAME("主人")%がこういうのを好きなんですか……解りました。ちょっとだけですからね")%」
						PRINTFORML %CALLNAME:TARGET%は%TEXTR("恥ずかしがりながらも、/頬を赤らめながら、")%%CALLNAME:ASSI%%TEXTR("に紹介された/がスマホで検索してくれた/のスマホで")%%TEXTR("アダルトグッズ/通販サイト")%を見ている。
					;二人とも超乳
					ELSEIF TALENT:巨乳 == 3 && TALENT:ASSI:巨乳 == 3 && RAND:2 == 0
						PRINTFORML 『%TEXTR("マリーさんのおっぱい、大きいですねぇ……/ふふっ、すごい大きさですね。マリーさんのおっぱい")%』
						PRINTFORML 「フェリちゃんも%TEXTR("＿/充分")%大きいですよ%TEXTR(@"＿/。今度%CNAME("主人")%のお顔を二人で挟んであげましょう/。触りっこするのって変な気分になっちゃいますね……")%」
					;マリー超乳　おっぱいリフト
					ELSEIF TALENT:巨乳 == 3 && RAND:2 == 0
						PRINTFORML 『%TEXTR("なるほどぉ……これはなかなか/スイカか、メロンみたいな……大きいですね、本当に/ふふっ、これはご主人様が弄びたくなるわけですね")%』
						CALL PRINT_STR, @"「%TEXTR("あっ/んっ")%_HH_　%TEXTR("変な指使いしちゃダメです/そんな風に触っちゃダメです/持ち上げながら揉んじゃダメですから")%……%TEXTR("感じちゃいますから/気持ちよくなっちゃいますから")%_HH_」_L"
					;フェリシエル超乳　おっぱいリフト
					ELSEIF TALENT:ASSI:巨乳 == 3 && RAND:2 == 0
						PRINTFORML 「%TEXTR("手に余るぐらいのサイズなんてスゴイですね、フェリシエルさん/ちょっと羨ましくなっちゃう大きさですね……凄いですよ")%」
						PRINTFORML 『%TEXTR("ふふっ、褒めても何も出ませんからね？/持ち上げてもらえると楽ですねぇ……/大きいから色々大変なんですよ、本当に")%』
					ELSE
						;リップを塗りはじめる
						IF RAND:3 == 0
							PRINTFORML 『%TEXTR("動かないでくださいね。ズレちゃいますから/新しいリップが手に入ったので、つけてあげますね/ふふっ、似合ってますよ")%』
							PRINTFORML 「%TEXTR("ちょっと恥ずかしいですね……/お化粧してもらうのってちょっぴり恥ずかしいですね……/ありがとうございます……お化粧してもらうのは何度やっても慣れませんね")%」
						;ファッション雑誌
						ELSEIF RAND:2 == 0
							IF RAND:2 == 0
								PRINTFORML 「最近の流行りはこういう服なのでしょうか？　ちょっと派手と言うか、露出が過ぎるのでは……」
								PRINTFORML 『%TEXTR("でも、マリーさんもそれなりにスカートは短いですよね。たまに見えちゃってますよ？/自分の身体に自信があれば恥ずかしがる必要はないと思いますよ")%』
								IF RAND:6 == 0
									PRINTFORML 「%TEXTR("うぐっ……/っ……そ、それはそれ、これはこれですからね")%」
								ENDIF
							ELSE
								PRINTFORML 「最近の子は肌を出しすぎですね。%CNAME("一人称")%もそれなりには出しますけど……動きやすいからですよ、本当ですから」
								PRINTFORML 『%TEXTR(@"%CNAME("主人")%も短いスカートの子を良く目で追ってますしねぇ……/男の子は短いスカートは大好きですからね/マリーさんもあまり人の事は言えないのでは？")%』
							ENDIF
							PRINTFORML %TEXTR(@"%CALLNAME:TARGET%と%CALLNAME:ASSI%はファッション誌を見ながらお喋りしている/ファッション誌を見ている%CALLNAME:TARGET%は%CALLNAME:ASSI%にからかわれている")%…
						;スキンシップされる
						ELSE
							IF COND("夏")
								PRINTFORML 「%TEXTR("暑いですね……何とかなりませんか、フェリちゃん/う～ん、日本の夏はツラいですね……何か涼しくなる方法はありませんか")%」
								PRINTFORML 『%TEXTR("あのぉ……ピッタリくっつかれるのはちょっと/背中に張り付きながら言うセリフではないと思うのですが……/くっつかれると暑さが倍増なんですけどぉ……")%』
								IF CFLAG:汗 == 0
									CFLAG:汗 = 1
								ENDIF
								IF CFLAG:ASSI:汗 == 0
									CFLAG:ASSI:汗 = 1
								ENDIF
							ELSE
								PRINTFORML 「%TEXTR("悪い事を企んだりしてませんか？　神様はちゃんと見てますからね/悪い悪魔はここですか？　懺悔するなら今のうちですよ/たまにはスキンシップしましょう。おすすめの聖書があるのですがどうですか？")%」
								PRINTFORML 『%TEXTR(@"にこやかに抱きしめながらコワい事を言うのはやめましょうよ/冗談になってませんからね……もう/ほらほら、%CNAME("主人")%が見てますよ？")%』
							ENDIF
						ENDIF
					ENDIF
				ELSEIF RAND:3 == 0 && MARK:淫紋
					PRINTFORML 『%TEXTR("ご主人様に刻まれた淫紋は馴染みましたか？/淫紋は気に入っていただけましたか？/淫紋には慣れましたか？")%』
					CALL PRINT_STR, @"「%TEXTR("んぅ～～～っ/だ、ダメですっ……撫でちゃ、ああっ/そこっ、触れちゃ……あっ、あああっ")%_HH_　%TEXTR("フェリシエルさん/フェリフェリ")%の意地悪_HH_」_L"
				ELSEIF RAND:2 == 0
					PRINTFORML %CNAME("二人称")%の%TEXTR("好きな/嫌いな")%%TEXTR("料理/プレイ/出来事")%について話している。
				ELSE
					IF RAND:5 == 0
						PRINTFORML 「最近パラチネが部員の皆さんとゲームをしてるみたいですね」
						PRINTFORML 『私達も一緒に参加してみますか？　ご主人様を巻き込んで王様ゲームとか』
					ELSEIF RAND:4 == 0
						IF TEXTS("季節") == "夏"
							PRINTFORML 「フェリシエルさん、折角ですし新しい水着を買いに行きませんか？」
							PRINTFORML 『%TEXTR("ご主人様に選んでもらうというのも良さそうですね/たまにはお揃いの水着にしてもいいですよ？")%』
						ELSE
							PRINTFORML 「フェリシエルさんはメイド服か、制服が多いですがたまには私服姿を見たいですね」
							PRINTFORML 『機会があればお見せする事もあると思いますよ。楽しみにしていてくださいね』
						ENDIF
					ELSEIF RAND:3 == 0
						PRINTFORML 「あそこのお店は美味しかったですよ。今度一緒にどうでしょうか？」
						PRINTFORML 『いいですね。ご主人様も連れて三人で行きましょうか』
					ELSEIF RAND:2 == 0
						PRINTFORML 『こう言う服装も%TEXTR("素敵/似合う/良い/可愛い")%と思いますよ？』
						PRINTFORML 「%TEXTR(@"フェリシエルさんの方が似合うんじゃないでしょうか？/良いですね、どうせなら二人で着ますか？/なるほど……これが当世の流行りなのですね/戦いにくそうですが、男の子はこう言うのがいいのですね")%」
					ELSE
						PRINTFORML 「肩がずいぶんこってますね」
						PRINTFORML 『あぁ…いいです。そうそう、ソコをお願いします』
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	;3
	ELSEIF FIND_COND("現在存在", "ツェツィーリア") && NO:ASSI == 3
		ACTOR = FIND_COND("現在存在", "ツェツィーリア")
		CALL PRINT_TaiTaChara, ACTOR
		IF RAND:2 == 0
			PRINTFORML 『極めて単純な事に見えるがね。多角的に捉える事で別の見解も得る事が出来る』
			PRINTFORML 「なるほど……そんな考え方もあるのですね」
		ELSE
			PRINTFORML 『どの様な学問であれ、興味がなければ身につくものではないよ』
			PRINTFORML 「ツェツィーリアさんの教え方が上手だから興味が沸くのですよ」
		ENDIF
		PRINTFORM %CALLNAME:TARGET%はツェツィーリアから
		PRINTFORML "%TEXTR("簡単な魔法理論/一般的な哲学/他愛もない雑学に隠された真理")%について習っている。
	;9
	ELSEIF FIND_COND("現在存在", "パラチネ") && NO:ASSI == 9
		ACTOR = FIND_COND("現在存在", "パラチネ")
		CALL PRINT_TaiTaChara, ACTOR
		IF FIND_COND("千穂") && FIND_COND("現在存在", "千穂") == 0 && CEVENT("イベント：パラチネの見解") == 0
			PRINTFORM %CALLNAME:TARGET%と%CALLNAME:FINDCHARA(NO, 9)%は
			SIF CHARA_NUM("室内の邪魔者") > 1
			PRINT 声を潜めて
			PRINTFORML 千穂について話している。
			PRINTFORML 「彼女の妹について、法皇庁に所属する貴方としての見解をお聞かせ願えますか？」
			;PRINTFORML （それって本当はここで聞く必要ない話題ですよね……）
			;PRINTFORML （察しの良い後輩を持って、%CNAME("一人称")%は幸せです。それで？　ポキポキ）
			;PRINTFORML （拳鳴らす必要ないですよね！？　一般論から言えばこの世に留まった霊魂は須らく主の御許へ送るべきだと考えます。それを踏まえて答えるならば速やかにあの指輪を破壊し魂の浄化を試みる。ここまでが対処のフェイズⅠ。それで解決しない場合はフェイズⅡへ移行）
			;PRINTFORML （聖職者としては満点ですね。ですが、それを為せばあの人を中心に保たれているパワーバランスの天秤を崩す事になる可能性が考慮されていませんよ？）
			;PRINTFORML （リスクの面から考えれば法皇庁が認めませんよね、即行動というわけにはいかないのが宮仕えのつらいところです。仮にですが一般人が反魂の法で蘇った所で対した脅威とはみなされませんし大悪の前に小悪は見逃す他ないでしょう）
			PRINT 『……つまり、彼女が反魂に至る可能性ですよね。
			IF FIND_COND("現在存在", "フェリシエル")
				PRINT 悪魔の力を借りれば可能であると言うのが結論だと思いますよ』
			ELSEIF FIND_COND("現在存在", "ツェツィーリア")
				PRINT 極めて強力な魔法使いの協力を得られるのであれば不可能ではないでしょうね』
			ELSE
				PRINT 何者かの力を借りれば可能でしょうね。そして、この学園にはそれだけの力を持つ存在がいます』
			ENDIF
			PRINTFORML 『マリー先輩。でも、これは彼女ではなくあなた自身の問題だと思います。藪をつついて蛇を出す必要はないんじゃないですかね？』
			CALL SET_CEVENT, "イベント：パラチネの見解"
		ELSE
			IF RAND:7 == 0
				PRINTFORML 『ここをタッチして、こうですよ？　何でちょっと人には見せられい様なしかめっ面してるんですか、マリー先輩』
				PRINTFORML 「%TEXTR(@"してませんよ……ちょっと難しいなーって思っただけです/ボタンポチっ%CNAME("一人称")%の言う事を聞く様に出来ないんですか、このポンコツスマホは？")%」
			ELSEIF RAND:6 == 0
				PRINTFORML 『いい加減スマホの使い方を覚えてください……データ転送したのに見てないんですね』
				PRINTFORML 「機械に頼らなくても、%CALLNAME:FINDCHARA(NO, 9)%の口から聞いた方が早いじゃないですか」
			ELSEIF RAND:5 == 0
				PRINTFORML 『別に……ここで話さなくても良いのではありませんか』
				PRINTFORML 「いいじゃないですか、聞かれても減るものではありませんしね」
			ELSEIF RAND:4 == 0
				PRINTFORML 『いたたたっ、暴力反対ですっ！』
				PRINTFORML 「%CALLNAME:FINDCHARA(NO, 9)%。今のはほんのちょびっと痛くしたけですよ？」
				IF RAND:2 == 0
					PRINTFORML 「掴んだら、極める。折る、投げる。基本を忘れないようにしましょうね、パラチネ」
					PRINTFORML 『お願いだから一般人にはやらないでくださいね』
				ENDIF
			ELSEIF RAND:3 == 0
				PRINTFORML 「気の緩みはいけません。聖騎士がやられた時の台詞は！？」
				PRINTFORML 『くっ……殺せ。今度は一体何の漫画を読んだんですか……』
			ELSEIF RAND:2 == 0
				PRINTFORML 「聖騎士たるもの、何時如何なる時襲われても良い様に心がけなければなりません！」
				PRINTFORML 『この部活で、わたしを襲うのってマリー先輩とご主人様だけですよ』
			ELSE
				PRINTFORM %CALLNAME:TARGET%と%CALLNAME:FINDCHARA(NO, 9)%は
				SIF CHARA_NUM("室内の邪魔者") > 1
					PRINT 声を潜めて
				CALL PRINT_STRL, @"%TEXTR("法皇庁の最近の出来事/最近の学園の事情/ワイバーン降下猟兵部隊の編成")%について話している。"
			ENDIF
		ENDIF
	;13
	ELSEIF FIND_COND("現在存在", "アイリ") && NO:ASSI == 13
		ACTOR = FIND_COND("現在存在", "アイリ")
		CALL PRINT_TaiTaChara, ACTOR
		IF RAND:3 == 0
			;分岐1　マタタビ
			PRINTFORML 『マタタビ？そんなの効かないに決まってるでしょ……』
			PRINTFORML 「効かないのならクンクンしても平気ですよね、遠慮せずにどうぞどうぞ」
			;PRINTFORML 猫娘にマタタビを嗅がせる鬼畜聖職者の鑑である。
			PRINTFORML 『や、やめなさいよ……』
			;PRINTFORML 効果はバツグンだ！！
		ELSEIF RAND:2 == 0
			;分岐2　猫用ちゅーる
			PRINTFORML 「今日はお菓子の代わりに猫用ちゅーるを用意してみました」
			PRINTFORML 『バカじゃないの、私がそんなモノ食べると思ってるの？』
			PRINTFORML 「先に私も舐めてみましたけど、意外と美味しかったですよ」
			PRINTFORML 『じゃあ、ちょっと試してみてもいいけど……興味があるだけなんだから勘違いしないでね』
		ELSE
			;分岐3　猫じゃらし
			PRINTFORML 「ほ～らほらほら。一緒に遊びませんか？」
			PRINTFORML 頭のイカレタ聖職者マリーちゃんはアイリの目の前で猫じゃらしを振ってみせた。
			PRINTFORML 『そんな子供だましに引っかかるわけないでしょう』
			;PRINTFORML フェリシエルちゃん（つまり、子供の時は引っかかっていたんですね……今もウズウズしてるみたいですし）
			PRINTFORML 「折角用意してきたのに遊んでくれないんですか……」
			PRINTFORML 『あーもう、遊んであげるわよ。やるならもっと激しく動かしなさい』
			;PRINTFORML フェリシエルちゃん（激しく動かしなさいってフレーズ、可愛い女の子の口から聞くと何だか卑猥ですね……ズズッ、お茶美味しい）
		ENDIF
	;20
	ELSEIF FIND_COND("現在存在", "カリスタ") && NO:ASSI == 20
		ACTOR = FIND_COND("現在存在", "カリスタ")
		CALL PRINT_TaiTaChara, ACTOR
		IF RAND:2 == 0
			PRINTFORML 「主の御心を、共に部員の皆さんに説きましょう」
			PRINTFORML 『あの……そんな期待に満ちた眼差しで見られても困ります』
		ELSE
			PRINTFORML 『うぅーん……天使だからって万能というわけではないんです』
			PRINTFORML 「無闇に力を振るう事は好ましくないですね。解ります」
		ENDIF
		PRINTFORM %CALLNAME:TARGET%は%CALLNAME:FINDCHARA(NO, 20)%
		PRINTFORML %TEXTR(@"を天使として敬愛している思いを伝え、%CALLNAME:FINDCHARA(NO, 20)%は困惑している/に告解し、%CALLNAME:FINDCHARA(NO, 20)%は困っている/と主の素晴らしさを語り合っている")%。
	;22
	ELSEIF FIND_COND("現在存在", "リューナ") && NO:ASSI == 22
		ACTOR = FIND_COND("現在存在", "リューナ")
		CALL PRINT_TaiTaChara, ACTOR
		;マリーさんリューナ先輩オスカーさんがひょんなことから、人知れず魔物と戦うチームになるのを考えてた
		IF COND("相性◎", ASSI) && FIND_COND("現在存在", "オスカー", "相性◎") && CEVENT("イベント：トライスクワッド") == 0
			PRINTFORML 「産まれた世界は違っていても！」
			PRINTFORML 『共に守るモノは一つ！』
			PRINTFORML 『「我ら！トライスクワッド！！」』
			PRINTFORML 意気投合した%CALLNAME:TARGET%と%CALLNAME:FINDCHARA(NO, 22)%は何かに目覚めた様だ……
			PRINTFORML 「%CNAME("主人")%、私達はこれから人知れず魔物と戦う正義の戦隊になりました。ご主人様も一緒にやりませんか？」
			CALL SET_CEVENT, "イベント：トライスクワッド"
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「鍛え方が違いますね。%CALLNAME:FINDCHARA(NO, 22)%先輩は！」
				PRINTFORML 『鍛え方もそうだけど、種族的なもんじゃない？』
			ELSE
				PRINTFORML 「いいですね……とってもいいです……」
				PRINTFORML 『アタシは別にいいけど、傍から見るとヤバイやつになってるよ』
			ENDIF
			PRINTFORM %CALLNAME:TARGET%と%CALLNAME:FINDCHARA(NO, 22)%は
			PRINTFORML %TEXTR("筋肉について語り合っている/暇なので腕相撲大会を始めた/推しドラゴンについて熱く語っている")%。
		ENDIF
	;24
	ELSEIF FIND_COND("現在存在", "千穂") && NO:ASSI == 24
		ACTOR = FIND_COND("現在存在", "千穂")
		CALL PRINT_TaiTaChara, ACTOR
		IF CHARA_NUM("室内の邪魔者") == 0 && CEVENT("イベント：マリーの見解") == 0
			;将来的にはIF RAND:10 == 0ではなく千穂さん側の調教進行度合いに応じて、個別のイベント発生としたい。
			;唐突にeraMegatenになる
			PRINTFORML 『マリーさんは悪魔祓いとして今まで戦ってきたんですよね。悪魔を殺して平気なの？』
	;		PRINTFORML ［0］楽しい
	;		PRINTFORML ［1］悲しい
	;		PRINTFORML ［3］説得する
	;		PRINTFORML ［114514］黙って聖槍を抜く
			PRINTFORML 「いいえ。悪魔の中にも話せば解る人もいます。悪魔であっても%CNAME("一人称")%は改心すると信じたいと思っていますから」
			;PRINTFORML 『冒頭で改心の余地すら与えずにご主人様を問答無用で殺そうとしていたような聖女様がいたような……いえ、何でもありませんよ。メイドは傍観させていただきます』
			;PRINTFORML
			;PRINTFORML 【少女対話中】
			PRINTFORML
			PRINTFORML 『マリーさんは成長して悪魔とも会話が成り立つかもしれないって前に進みました。それは、とても素晴らしいと思います』
			PRINTFORML 『じゃあ、それまでに鏖殺された悪魔はどういう気持ちになればいいの？逆に言えばいままでは会話をしようとしてもぷちっと潰して来たんでしょ？』
			PRINTFORML 「Pardon？　今なら誰もいませんね……そうですね、答えましょう」
			PRINTFORML 「貴方に信じてもらえるかどうかは別として、これまでも%CNAME("一人称")%は恥じる事なく悪魔とも解り合う道を模索して来たつもりです」
			PRINTFORML 千穂の糾弾を%CALLNAME:TARGET%は真剣な眼差しで受け止め、言葉を紡ぐ。
			;PRINTFORML （もちろん、相手が腕力や魔術で抵抗出来なくなるまで説得（物理）を行使した上でですけどね！！　聖女的にこれは正しい行いです。セーフです、セーフ）
			;PRINTFORML %CALLNAME:TARGET%は両手を広げてセーフのジェスチャーをしてみせた。
			PRINTFORML 「ですが、結果として見るならば確かに%CNAME("一人称")%は多くの命を奪って来ました」
			PRINTFORML 『解りあえないなら殺していい。悪魔だからって、単なる人殺しじゃない。それは自分にとっての言い訳でしょう？　……自分が正義だと信じていれば何をしてもいいとでも言うの？』
			PRINTFORML 「ええ、%CNAME("一人称")%は人殺しなのでしょう。%CNAME("一人称")%の進んだ道は血塗られています。そして、何時の日か、%CNAME("一人称")%は神の御許ではなく地獄に墜ちて報いを受ける日が来る」
			PRINTFORML 「それでも、%CNAME("一人称")%は自らの行いを恥じるつもりはありません。血を流す事を恐れる事はありません。%CNAME("一人称")%が戦わない事で弱い人間が犠牲になる事を%CNAME("一人称")%は見過ごせません」
			PRINTFORML 「%CNAME("一人称")%が罪を重ねる事で救われる人がいるのならば%CNAME("一人称")%は何度でも罪を重ねましょう」
			;IF FIND_COND("フェリシエル")
				;PRINTFORML　-隠れているメイド-
				;PRINTFORML （何時まで続くんでしょうね……これ）
				;PRINTFORML （ご主人様も空気読んで黙り込んでますし、もうちょっと待ちましょうか）
			;ELSE
				;PRINTFORML 『本当の事を言って欲しいの。あなただって戦うのを楽しんでるんでしょう！？』
				;PRINTFORML 「戦っている時は楽しい、かもしれませんね……でも、深夜に思い悩んだり、命を奪ってしまった事は悔いていますから」
			;ENDIF
			PRINTFORML 『っ……』
			PRINTFORML （……やってる事は一緒でしょ、人殺しの癖にっ）
			PRINTFORML 「千穂さんが抱えている苦悩を理解出来る、とは言いません。貴方の罪は貴方だけのものですから。ですが、告解すると言うならば神に代わってその罪を聞き届ける事は出来ます」
			PRINTFORML 「その気になったら話してくださいね。%CNAME("一人称")%は何時までも待っていますから……」
			CALL SET_CEVENT, "イベント：マリーの見解"
		ELSE
			IF RAND:3 == 0 && CEVENT("イベント：マリーの見解")
				PRINTFORML 「話す気になったら何時でも言ってくださいね？」
				PRINTFORML %CALLNAME:TARGET%は千穂の手を取り、慈しみを込めて訴えた。
				;PRINTFORML 千穂ちゃんはすごく嫌がっている。効果はバツグンだ！
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("何か困っている事はありませんか？/力になれる事があったら言ってくださいね")%」_L"
				PRINTFORML %CALLNAME:TARGET%は千穂を心配している。
				;PRINTFORML 千穂ちゃんはかなり嫌がっている。効果はバツグンだ！
			ELSE
				CALL PRINT_STR, @"「%TEXTR("お茶菓子どうですか？/ドーナツでよければ如何でしょう？/クッキー食べませんか？")%」_L"
				PRINTFORML %CALLNAME:TARGET%は千穂にお菓子をすすめている。
				;PRINTFORML 千穂ちゃんは嫌がっている。効果はバツグンだ！
			ENDIF
		ENDIF
	;25
	ELSEIF FIND_COND("現在存在", "ノノ") && NO:ASSI == 25
		ACTOR = FIND_COND("現在存在", "ノノ")
		CALL PRINT_TaiTaChara, ACTOR
		IF COND("相性○", ASSI) && RAND:6 == 0
			PRINTFORML 「ノノくん、ノノくん。お暇でしたら帰りに%CNAME("一人称")%とデートしませんか？」
			IF RAND:2 == 0
				PRINTFORML 『ええっ……ダメですよ、それに……あんまり食べてばかりいると……』
				;PRINTFORML 『太……』
				;PRINTFORML 「んんん？　何か言いましたか。悪いのはこの口ですか？？？」
				;PRINTFORML 『な、何でもありません。行きます、行きますからぁ』
			ELSE
				PRINTFORML 『何を食べに行く口実ですか……ボクとだとカップルに見えないと思うのでカップル割は使えないと思うんですけど』
			ENDIF
		ELSEIF COND("相性○", ASSI) && RAND:6 == 0
			PRINTFORML 「ノノくん。今日は一緒に聖書のお勉強をしましょうか」
			PRINTFORML 『いいですけど……ボクは純粋な天使ではないですし』
		ELSEIF COND("相性○", ASSI) && RAND:6 == 0
			PRINTFORML 「ノノくんはどういう子が好みなのですか？」
			PRINTFORML 『部活の皆さんはみんな素敵な方ですし、ボクが好みを言うなんて……』
		ELSEIF COND("相性○", ASSI) && RAND:5 == 0
			PRINTFORML 「はい。あ～ん♪」
			PRINTFORML 『ダメですよ、ボクを甘やかしてどうするつもりなんですか』
		ELSEIF RAND:4 == 0
			PRINTFORML 「良かったら生徒会のお仕事、お手伝いしましょうか？」
			PRINTFORML 『庶務ですから、そんなに大変ではないので大丈夫です。ありがとうございます』
		ELSEIF RAND:3 == 0
			PRINTFORML 「ノノさん、困った事があったら何でも%CNAME("一人称")%に相談してくださいね」
			;PRINTFORML パラチネ『その優しさをもっとわたしにも分けるべきだと、パラチネは主張しますね！』
			;PRINTFORML 『わたしも困ってます、マリー先輩がっ！　わたしにだけ手加減しないからっ！！』
			PRINTFORML 『ありがとうございます。困った時は頼りにさせてもらいますね』
		ELSEIF RAND:2 == 0
			PRINTFORML 「ノノさんは天使様なのですね」
			PRINTFORML 「はい。ボクは天使ですが……堕天使と人間とのハーフですし奇跡とか起こせませんよ」
		ELSE
			PRINTFORML 「ノノさん、良かったらたまには男の子の格好とかしてみませんか？」
			;PRINTFORML 『そ、それは……考えておきますね』
		ENDIF
		PRINTFORM %CALLNAME:TARGET%とノノは
		PRINTFORML %TEXTR("お菓子を食べながら談笑している/和やかに談笑している/楽しそうに話をしている")%。
	;30　オスカー
	ELSEIF FIND_COND("現在存在", "オスカー") && NO:ASSI == 30
		ACTOR = FIND_COND("現在存在", "オスカー")
		CALL PRINT_TaiTaChara, ACTOR
		IF COND("相性○", ASSI) && (CHECK_SHIRT("学生服", ASSI) == 0 || CHECK_SHIRT("セーラー", ASSI) == 0 || CHECK_SHIRT("ブレザー", ASSI) == 0)
			PRINTFORML 「%TEXTR(@"オスカーさん。その恰好は学校では目立つので%CNAME("一人称")%の制服を貸してあげますね/学校の中を私服でうろうろすると目立っちゃいますから、制服を貸しますね。オスカーさん。")%」
			PRINTFORML 『%TEXTR("好意は嬉しいが……その認識阻害が、な……/待て、どうして貴様は昔から人の話を聞かないのだ！？/妾は悪魔故、認識阻害が……話を聞けぃ！？")%』
			PRINTFORML %TEXTR(@"問答無用で着ている服を脱がされ、オスカーは%CALLNAME:TARGET%に制服に着替えさせられた/オスカーの話を無視して%CALLNAME:TARGET%は手際よく制服に着替えさせていく")%
			;注意：制服に着替えさせても画面に即時反映はされない。何らかの切り替えを経るとオスカーが制服姿になる
			CALL SET_COORDINATE, "ミニスカブレザー", ASSI
		ELSEIF COND("相性○", ASSI) && RAND:6 == 0
			IF CFLAG:3301 == 1
				PRINTFORML 「オスカーは好きな人とか、います？」
				PRINTFORML 『不躾になんだ……と言うか、その質問は不毛ではないか』
				PRINTFORML 「そこで提案なのですが、他の部員の皆さんに負けない為に私達で共闘しませんか？」
				PRINTFORML 『良かろう……では、早速だが夜討ち朝駆けの計画を立てようではないか』
			ELSE
				PRINTFORML 「オスカーさんは好きな人とか、います？」
				PRINTFORML 『不躾になんだ……と言うか、その質問は不毛だな。この部活にいるモノの目的は一つであろう』
				PRINTFORML 「そこでお話があるのですがお互いに利害は一致してますし、私達で情報を共有しませんか？」
				PRINTFORML 『ふむ……悪くない話だな』
				;PRINTFORML 〈オスカー筆談：ところでこの会話はメイドに筒抜けなのではないか？？？〉
				;PRINTFORML 「大丈夫です。どの道隠してもバレますから堂々といきましょう。どのルートでもあのメイドがラスボスです」
				;PRINTFORML 『妾知っておるぞ。それって負けフラグってヤツじゃああ！？　この密談がバレて、感度3000倍お仕置きレズレ〇プ！！。明日の部室でアへ顔ダブルピース特大ディルドエロ蹲踞肉便器にされるんじゃあああ！！』
				;PRINTFORML 「ふぅ……今度は一体何のゲームにはまってるんですか？」
				;PRINTFORML 『よくぞ聞いた。妾は学生ではない故授業中暇を持て余してな。最近は隣人のスマホでアクション退〇忍やっておる』
				;PRINTFORML 「見た目は大人。中身は幼女のオスカーさんにそんな如何わしいゲームをさせるなんて。後でお説教ですね……」
				;PRINTFORML 『マリーよ。心の声が駄々洩れではないか。妾は幼女ではないぞ！？』
				;PRINTFORML 「はい、よちよち、良い子ですね～♪」
				;PRINTFORML 『バ、バブゥ……ええい、止めぬか……いや、案外心地よいな……仕方あるまい、もう少しだけ妾を抱っこしてあやすのを許してやろう。今回だけだからな？？？』
			ENDIF
		ELSEIF COND("相性○", ASSI) && RAND:5 == 0
			IF CFLAG:3301 == 1
				IF RAND:2 == 0
					PRINTFORML 「%TEXTR("今度/今夜")%、オスカーのお部屋に遊びに行きますね」
					PRINTFORML 『%TEXTR("ふむ/良かろう")%。%TEXTR("もてなしの準備をしておくので楽しみにしておくがいい/とっておきの酒でもてなそうではないか。何、未成年だと……")%』
				ELSE
					PRINTFORML 『今夜辺り、マリーの部屋%TEXTR("に遊びに行っても良いだろうか/をお邪魔しても良いかな")%？』
					PRINTFORML 「%TEXTR("夜までには……か、片付けておきますから、どうぞ/いいですけど……片付ける時間をくださいね")%」
				ENDIF
			ELSE
				PRINTFORML 「ちょっとした好奇心なのですが……」
				PRINTFORML 「オスカーさんって悪魔ですから長生きしてますよね。それこそ数百年とか」
				PRINTFORML 『そうかも知れないし、そうでないかも知れないな。妾のプライベートな話を知りたいならば代価を要求するぞ？　魂でな』
			ENDIF
		ELSEIF COND("相性○", ASSI) && RAND:4 == 0
			IF CFLAG:3301 == 1
				PRINTFORML 「%TEXTR(@"こうして毎日オスカーの元気な顔を見られるだけで、%CNAME("一人称")%は幸せです/オスカーのお顔を見ているだけで幸せな気分になってきますね")%」
				PRINTFORML 『%TEXTR("妾の顔に見惚れておるのか。好きなだけ見つめるが良い/飽きぬのか……そうか、ならば良い")%』
			ELSE
				PRINTFORML 「んー……」
				PRINTFORML 『妾%TEXTR("の顔に何かついているか？/をその様に見つめて何用かな？/の顔に見惚れておる……訳ではない様だな")%』
				PRINTFORML 「%TEXTR("失礼しました。何でもありませんよ/いえ……大した事ではないのですが")%」
				PRINTFORML （%TEXTR("悪魔が親しい人間に化けると言うのは良くある事ですが……それが■■■年前の知己となるとこれは判断付きかねますね/人間が悪魔に転生するなんて、そんな事は……ね")%）
			ENDIF
		ELSEIF RAND:3 == 0
			PRINTFORML 「悪魔なのに聖書を嗜むなんて、%TEXTR("立派/勤勉なの")%ですね。分からないことがあれば何でも聞いてくださいね」
			PRINTFORML 『……何というか、それでいいのか。曲がりなりにも%TEXTR("聖職者/悪魔祓い")%なのだろう』
		ELSEIF RAND:2 == 0
			PRINTFORML 「種族が何であれ%CNAME("二人称")%は良い人ですね。友達になれそうで嬉しいですよ」
			PRINTFORML 『……悪魔祓いとしての本分を忘れていないか、それでいいのか？』
		ELSE
			PRINTFORML 「一つどうですか。美味しいですよ」
			PRINTFORML 『もらおう。それはそれとて……悪魔と悪魔祓いは不倶戴天の仇。気安いのは如何なものだ？』
		ENDIF
	;34
	ELSEIF FIND_COND("現在存在", "真") && NO:ASSI == 34
		ACTOR = FIND_COND("現在存在", "真")
		CALL PRINT_TaiTaChara, ACTOR
		IF COND("相性○", ASSI) && RAND:6 == 0
			PRINTFORML 「真さん。具現の事でお悩みでしたら何時でも相談してくださいね」
			PRINTFORML 『は、はい……』
		ELSEIF COND("相性○", ASSI) && RAND:6 == 0
			PRINTFORML 「真さん。%CNAME("主人")%に何かされた時にはちゃんと教えてくださいね。後でたっぷりお仕置きしておきますから」
			PRINTFORML 『えっ……あ、はい』
		ELSEIF RAND:2 == 0
			PRINTFORML 「後天的な具現は祓えなくもないんですけど……本人の強い意思がないとちょっぴり難しいですね」
			PRINTFORML 『そ、その……困ってはいるんですけどもう少しだけ考える時間が欲しいかなって』
		ELSE
			PRINTFORML 「%CNAME("一人称")%は聖職者なのでどんなお悩み相談でも受け付けていますからね。困ったら頼ってください」
			PRINTFORML 『ありがとうございます……でも、他の方にあんまり迷惑をかけたくないかなって思ったり』
		ENDIF
	;他のヒロインが助手になっていない
	ELSE
		IF TALENT:妊娠 && RAND:2 == 0
			CALL PRINT_STR, @"「%CNAME("一人称")%の%TEXTR("お腹/ここに")%赤ちゃんがいるんですよ_HH_」_L"
			PRINTFORML 「%TEXTR("早く産まれて来て欲しいですね/元気に育ってくれる様に祈ってます")%♪」
			PRINTFORML %CALLNAME:TARGET%は%TEXTR("嬉しそうに目を細めて微笑んだ/お腹を撫でながら嬉しそうに笑った")%
		ELSE
			IF COND("水泳")
				IF TALENT:恋慕 && COND("夏") && DEVENT("水泳デート１／マリー") == 0 && DEVENT("水泳デート２／マリー") == 0
					PRINTFORML 「%CNAME("二人称")%と泳ぎに行きたいのですが学年が違いますし、良かったら日曜日にでもデートするのはどうでしょうか？」
					CALL SET_DEVENT, "水泳デート１／マリー"
				ELSE
					PRINTFORML 「%TEXTR(@"今日は水泳の日ですね。折角ですし勝負しますか？　学年が違う……そうでした\/水泳の日は楽しみですね。%CNAME("二人称")%もウキウキしてきませんか")%」
				ENDIF
			ELSEIF COND("夏") && RAND:2 == 0
				IF TEXTS("曜日") == "日"
					PRINTFORML 「%TEXTR(@"暑いからってだらけていてはダメですよ。一緒に汗を流して体を鍛えましょうか/夏と言えばプールに、海ですね。良かったら二人で一緒に特訓しに行きませんか？")%」
				ELSE
					PRINTFORML 「%TEXTR(@"海に山、%CNAME("二人称")%は何処に出かけるのが好きですか？/夏休みは楽しみですけどちゃんと勉強しましょうね。%CNAME("一人称")%も勉強は得意ではありませんが%CNAME("二人称")%と一緒なら楽しくお勉強出来そうです")%」
				ENDIF
			ELSEIF TALENT:相思相愛 && RAND:2 == 0
				IF RAND:3 == 0
					PRINTFORML 「%TEXTR(@"%CNAME("二人称")%を見てるのに気がついちゃいましたか/%CNAME("一人称")%が見てるのに気が付いちゃいましたか")%……」
					PRINTFORML %CALLNAME:TARGET%は%TEXTR("照れながら/ちょっと気まずそうにしながら")%微笑んでみせた…
				ELSEIF RAND:2 == 0
					IF TEXTS("季節") == "夏"
						IF RAND:2 == 0
							PRINTFORML 「%TEXTR("＿/日本の夏は")%暑いですね……」
							PRINTFORML %CALLNAME:TARGET%はパタパタと%SHIRT(TARGET, "略")%の裾から空気を送っている
						ELSE
							PRINTFORML 「%TEXTR("きゅう/むりぃ……パタン")%……」
							PRINTFORML 暑さに耐えかねたのか%CALLNAME:TARGET%は謎の言語を発しながら伏している
						ENDIF
					ELSE
						PRINTFORML 「%TEXTR("＿/もう")%……何時から見てたんですか？」
						PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%の視線に気がつき恥ずかしそうに居住まいを正した…
					ENDIF
				ELSE
					PRINTFORML 「%TEXTR("こんな素敵な場所が出来たんですねぇ/なるほど……こんなイベントがやってるんですね")%」
					PRINTFORML %CALLNAME:TARGET%は次のデートの行き先を%TEXTR("雑誌を見ながら探している/何処にしようか、用意してきた冊子をめくって考えている")%
				ENDIF
			ELSE
				PRINTFORM %TEXTR("楽しそうに/笑顔で/にこやかに")%
				PRINTFORML %TEXTR("教科書を読んで/参考書を読んで/誰かが置いていった週刊誌を読んで/ファッション雑誌を読んで/スマホを弄って")%いる
			ENDIF
		ENDIF
	ENDIF
ENDIF

;-------------------------------------------------
;寝言。適当にむにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K23
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	PRINTFORML 「主よ……」
ELSEIF RAND:2
	PRINTFORML 「パラチネ……あなたは……」
ELSE
	PRINTFORML 「好き……」
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K23, ARGS
;挨拶
#DIMS GREETING
;イベント発生中のキャラ
#DIM ACTOR
#DIM ACTOR2

SELECTCASE ARGS

;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	RETURN 0
	IF PLACE("ラブホテル")
		PRINTFORMW 『』
	;ヤリ部屋
	ELSE
		PRINTFORMW 『』
	ENDIF

CASE "学園での日常"
	;新規追加　★
	IF TALENT:恋慕 && CEVENT("学園：マリー日常Ｄ") == 0 && FIND_COND("アリーヌ", "現在存在") && COND("グロマン") && RAND:5 == 0
		ACTOR = FIND_COND("現在存在", "アリーヌ")
		CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
		PRINTFORMW マリーがアリーヌに相談している。
		PRINTL
		PRINTFORML - マリー -
		PRINTFORMW 「どうでしょう？　その……黒ずんで広がっちゃってて……こんな淫乱なカタチをしてたら%CNAME("主人")%に嫌われちゃうんじゃないかって心配なのですが……」
		PRINTL
		PRINTFORML - アリーヌ -
		PRINTFORMW 『セックスのやりすぎで色素沈着したり、肥大化するのは良くある事よ。グロマンは床上手の証なんだから自信を持っていいと思うわ』
		PRINTL
		PRINTFORML - マリー -
		PRINTFORMW 「ちょっと複雑な気分ですけど……気にしなくてもいいのですね」
		;PRINTL
		;PRINTFORML - フェリシエル -
		;PRINTFORMW （淫魔的にはグロマンは勲章みたいなものですしねぇ……聞く相手が間違っている気がしますけど）
		CALL SET_CEVENT, "学園：マリー日常Ｄ"
	ELSEIF TALENT:恋慕 && CEVENT("学園：マリー日常Ａ") == 0 && FIND_COND("パラチネ", "現在存在") && RAND:4 == 0
		ACTOR = FIND_COND("現在存在", "パラチネ")
		CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
		PRINTFORMW マリーがパラチネと雑談している。
		PRINTL
		PRINTFORML - パラチネ -
		PRINTFORMW 『部活にすっかり馴染んでますけど私達の目的を忘れないようにしてくださいね』
		PRINTL
		PRINTFORML - マリー -
		PRINTFORMW 「そうですね。将来的にはあの人にも悪魔祓いになってもらわないといけません」
		PRINTL
		PRINTFORML - パラチネ -
		PRINTFORMW 『うぅん？　そのぉ、そんなに手段としては間違ってはいないんですけどぉ……それって手段と目的が入れ替わってますよね。公私混同してますよね』
		PRINTL
		PRINTFORML - マリー -
		PRINTFORMW 「生意気なのはこのお口ですか？　悪いお口ですね……まったく何でも暴力で解決するのはダメですよ。私はただ単にリザレクション体質を心配してるだけです。別に……一緒に悪魔と戦って欲しいなんて言ってませんからね」
		CALL SET_CEVENT, "学園：マリー日常Ａ"
	ELSEIF TALENT:恋慕 && CEVENT("学園：マリー日常Ｂ") == 0 && FIND_COND("リューナ", "現在存在") && RAND:3 == 0
		ACTOR = FIND_COND("現在存在", "リューナ")
		CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
		PRINTFORMW マリーがリューナ先輩と雑談している。
		PRINTL
		PRINTFORML - リューナ先輩 -
		PRINTFORML 『……アタシが正義の味方に？』
		PRINTFORMW 怪訝そうにリューナは首を傾げる。
		PRINTL
		PRINTFORML - マリー -
		PRINTFORMW 「悪魔を払う簡単なアルバイトですよ。ちょっぴり危険ですが、リューナ先輩ならきっと大丈夫です」
		PRINTL
		PRINTFORML - リューナ先輩 -
		PRINTFORMW 『まあ、考えておくけど部活のメンバーとやるのは無しだからな』
		PRINTL
		PRINTFORML - マリー -
		PRINTFORMW 「私としても出来ればそれは避けたいのですが、悪魔祓いという立場上色々ありますし……」
;		PRINTFORMW （あなたを取るか、法皇庁を取るか……本当は考えるまでもないんです。でも、そんなハッキリあなたを愛しているなんてリューナ先輩に告白しちゃうなんて。は、はしたないじゃないですか……）
;		PRINTL
;		PRINTFORML - リューナ先輩 -
;		PRINTFORML 『マリーちゃんはさ。自分が部活で一番強くて正しいっていう自負があるよね。そう言うの嫌いじゃないけどナチュラルに挑発するのはやめよう？』
;		PRINTFORMW 『アタシは大人だから今回はスルーしてあげるけどさ』
;		PRINTL
;		PRINTFORML - マリー -
;		PRINTFORMW 「いつでも待っていますからね。その気になったら来てくださいね」
		CALL SET_CEVENT, "学園：マリー日常Ｂ"
	ELSEIF TALENT:恋慕 && CEVENT("学園：マリー日常Ｃ") == 0 && FIND_COND("オスカー", "現在存在") && RAND:2 == 0
		ACTOR = FIND_COND("現在存在", "オスカー")
		CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
		PRINTFORMW マリーがオスカーと雑談している。
		PRINTL
		PRINTFORML - オスカー -
		PRINTFORMW 『無礼を承知で一つ妙な事を聞くが……貴様の年齢は見た目通りではあるまい？』
		PRINTL
		PRINTFORML - マリー -
		PRINTFORMW 「18歳です」
		;PRINTFORMW （えっと……私って本当は何歳でしたっけ。もう数えるのをやめてしまって長いのですが多分、フェリちゃんよりは年下だと思うんでまだまだ大丈夫ですよね。大丈夫）
		;PRINTFORMW （私ったらオスカーさんと何処かでお会いしてたのでしょうか。殺しそこねた悪魔の顔はちゃんと覚えているんですが……賞金首手帳にも、私の記憶にもないですね。正直、こういうのってリザレクションの一番のデメリットだと思います）
		;PRINTFORMW （実は見た目通りの年齢じゃない。結構な年齢だって知ったらあなたに嫌われちゃうかもしれないじゃないですか……うっ、想像しただけで悲しくなりました。これはキツイですね……でも、フェリちゃんもきっとお婆ちゃんなのでおあいこです）
		;PRINTFORMW （私の設定を確認しましょう。心の中で復唱です。私はあなたと同じでちょっぴりリザレクションで再生しちゃう体質のただの人間。18歳女子高生です！！）
		PRINTL
		PRINTFORML - オスカー -
		PRINTFORMW 『ふむ……そうか。複雑な乙女心よな。妙な事を聞いてすまなかったな』
		;PRINTFORMW （全部聞こえているのだが……言わぬが華というやつか）
		;PRINTL
		;PRINTFORML - マリー -
		;PRINTFORMW （ふぅ……危ない所でした。もうちょっとであなたに告げ口出来ない様にオスカーさんを聖槍で五体バラバラにしちゃうところでした。後でグーグルで検索しましょう。オスカーさん（おまえ）を消す方法）
		CALL SET_CEVENT, "学園：マリー日常Ｃ"
	ELSEIF CONFIG("モブＨ") && TALENT:淫乱 && TALENT:処女 == 0 && COND("欲求不満") >= 3 && CEVENT("学園：マリー日常Ｄ") == 0 && RAND:2 == 0
		PRINTFORMW マリーがスマホで誰かと会話している。
		PRINTL
		PRINTFORML - マリー -
		PRINTFORML 「%TEXTR("放課後で良ければ/その日なら空いてますね/一回だけなら")%……」
		PRINTFORMW %CALLNAME:TARGET%は%TEXTR("声を潜めて/小さな声で")%誰かと話をしている。
		PRINTL
		PRINTFORML - マリー -
		PRINTFORML 「%TEXTR(@"あっ……どうかしましたか、%CNAME("主人")%？/ちょっとお仕事の関係の連絡があったので。%CNAME("主人")%と言えど機密事項なので内容はお教え出来ません。ごめんなさい")%
		PRINTFORM %CALLNAME:MASTER%に気が付いた%CALLNAME:TARGET%は%TEXTR("気まずそうに/申し訳なさそうに")%しながら
		PRINTFORMW %TEXTR(@"話を別の話題へと切り替えた/最近の様子を聞いてきた/何時なら暇かと聞いてきた/%CNAME("二人称")%の今週の予定を確認してきた")%。
		CALL SET_CEVENT, "学園：マリー日常Ｄ"
	ENDIF

CASE "お仕事"

CASE "帰り道"
	;SAVESTR:現在位置 と SAVESTR:帰り道の行動 を決定する
	CALL SETFLAG, "遭遇地点"

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
		CASE "にわか雨"
			IF RAND:2 == 0
				PRINTFORMW 「突然の雨は困りますね、ずぶ濡れになってしまいました」
			ELSE
				PRINTFORMW 「スコールほど激しくないとはいえ、いきなり降られると困りますね」
			ENDIF
		CASE "ドーナツ屋", "洋菓子店", "和菓子屋", "メロンパン屋", "コンビニ"
			PRINTFORMW 「良かったら、一緒に美味しいものを買いに行きませんか？」
		CASE "ランジェリーショップ", "水着屋"
			PRINTFORMW 「ちょっと%CNAME("二人称")%の好みを参考意見に聞きたいんですよね。良かったら付き合ってくださいな」
		CASEELSE
			;ラブレター/告白された報告事案
			IF TALENT:恋慕 && RAND:5 == 0
				PRINTFORML 「ちょっと%CNAME("二人称")%に%TEXTR("ご報告しておこうと思って/伝えておこうと思って")%」
				;汚い用務員のおじさん
				IF RAND:20 == 0
					PRINTFORMW 「用務員のおじさんから%TEXTR("告白されちゃいました/ラブレターをもらっちゃいました")%
					PRINTFORMW %TEXTR("ちゃんとお断りしておきましたから心配しないでくださいね/ちょっとしたトラブルもありましたけど、解ってもらいましたから大丈夫ですよ")%
				ELSE
					PRINTFORMW 「%TEXTR("同級生/下級生")%の%TEXTR("男の子/女の子")%から%TEXTR("告白されちゃいました/ラブレターをもらっちゃいました")%
					;お付き合いを断って、それで綺麗に終わりになるなら陵辱イベントなんて起きない！！。なお、レ○プ犯は半殺しにされる模様
					PRINTFORMW %TEXTR("ちゃんとお付き合いは断っておきましたから、安心してくださいね/大丈夫ですよ、好きな人がいるからお付き合いは出来ないって断りましたからね")%
				ENDIF
			ENDIF
	ENDSELECT
	;地の文を出す
	CALL DAILY_MESSAGE, "帰り道"

;個人用早見表
;現在場所で何するかを決定。ただし、現在位置に行動が入っている場合には逆に現在位置を逆引きする
;現在位置/帰り道の行動
;"にわか雨"　"相合傘"
;"神社"　"お参り"
;"コンビニ"　"買い食い"/"立ち読み"/"寄り道"
;"ドーナツ屋", "ハンバーガーショップ", "洋菓子店", "肉屋", "和菓子屋", "メロンパン屋"　"買い食い"
;"スーパー", "茶葉の量り売り店"　"買い出し"
;"本屋"　"立ち読み"/"新刊のチェック"/"ゲームを物色"
;"ゲームを物色"　"本屋"/ゲームショップ"/"中古屋"
;"ランジェリーショップ", "下着屋"　"下着選び"　恋慕のみ"イチャイチャ"
;"ゲーセン"　"クレーンゲーム"/"プリクラ"/"対戦ゲーム"/"音ゲー"/"メダルゲーム"/"寄り道"　恋慕のみ"イチャイチャ"
;"水着屋"　"水着選び"
;※水着屋は "春", "初夏", "夏"のみ選択可能
;"直帰"　"直帰"
;その他　"寄り道"
;
;追加分
;"レンタルショップ"　"立ち読み/新刊のチェック/ゲームを物色/新作の物色/準新作を物色"
;"ラブホテル"　	帰り道のゲスト/"見知らぬ男/脂ぎった中年男/見覚えのある男子生徒"

;初期出現場所
;CSTR,出現場所,神社/ドーナツ屋/洋菓子店/和菓子屋/メロンパン屋/コンビニ/本屋/本屋/ランジェリーショップ/水着屋,

	SELECTCASE SAVESTR:帰り道の行動
		CASE "相合傘"
			PRINTFORML
			IF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORML 「傘を持って来てたんですか、準備がいいですね♪」
					PRINTFORMW 「じゃあ……お言葉に甘えてお邪魔しちゃいますね」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「雨は好きですよ。%CNAME("二人称")%とこうしてくっつけますから」
				ELSE
					PRINTFORMW 「雨もたまにはいいですね。%CNAME("二人称")%と相合傘出来ましたから」
				ENDIF
			ELSE
				PRINTFORMW 「傘を忘れちゃダメですよ。天気予報で降るって言ってましたからね」
			ENDIF
		CASE "お参り"
			PRINTFORML
			PRINTFORMW 「信じる神は違っても、祈る気持ちは一緒ですよ」
		CASE "買い食い"
			PRINTFORML
			CALL PRINT_STR, @"「%TEXTR("美味しいですね/最高ですね")%_HH_　%TEXTR("良かったら一口交換しませんか？/オススメの品らしいですよ/今度はみんなで来ましょうね")%」_W"
		CASE "下着選び", "水着選び"
			PRINTFORML
			IF RAND:2 == 0
				PRINTFORMW 「好みのやつとかあったら教えてくださいね」
			ELSE
				PRINTFORMW 「少しぐらいは大胆な方が……%CNAME("二人称")%は好きでしょうか？」
			ENDIF
		;特定行動でのセリフ。DAILY_MESSAGE, "帰り道"の地の文を参考に適当に場合分けしてください。
		CASE "イチャイチャ"
			PRINTFORML
			PRINTFORMW 「%TEXTR("好きな人と一緒に過ごすのは楽しいですね/うふふっ、まるでデートみたいですね")%」
		CASE "新刊のチェック", "立ち読み"
			PRINTFORML
			IF RAND:2 == 0
				PRINTFORMW 「漫画ばっかり読んでるわけじゃないですからね」
			ELSE
				PRINTFORMW 「ファッション誌を買ってみようと思って」
			ENDIF
		CASE "ゲームを物色"
			PRINTFORML
			PRINTFORML 「今度、部活で遊ぶゲームを探そうと思ったんですが」
			PRINTFORMW 「どういうのが良いのでしょうか？」
		CASE "寄り道"
			PRINTFORML
			PRINTFORML 「%CNAME("二人称")%は好きな人は居ないんですか？」
			PRINTFORMW 「恋人が出来るまでは%CNAME("一人称")%が構ってあげますからね」
		CASE "ラブホ前で遭遇"
			PRINTFORML
			IF TALENT:相思相愛
				PRINTFORML 「%TEXTR(@"ごめんなさい……あんまり%CNAME("二人称")%が構っていただけなくて寂しくなってしまって/悪い事をしているとは思っています……でも、%CNAME("二人称")%が%CNAME("一人称")%に飽きてしまったみたいですから")%……」
			ELSEIF TALENT:恋慕
				PRINTFORML 「%TEXTR(@"%CNAME("二人称")%にしてあげている様に……ちょっと性欲処理してさしあげただけですからね/性欲処理して欲しいとお願いされたので……困っている人を放ってはおけませんから")%」
			ELSE
				PRINTFORML 「%TEXTR("ええと……その……/えっと……そうですね……")%」
			ENDIF
			PRINTFORMW 「%TEXTR("詳しい話は夜にでも……/今はその……詳細は夜にでもお話しますね……")%」
			CALL DEL_CEVENT, "学園：マリー日常Ｄ"
			CALL SET_CEVENT, "ラブホ前で遭遇報告／マリー"
		CASEELSE
			PRINTFORML
			PRINTFORMW

	ENDSELECT
;帰り道イベントの後になんとなくラブホに行こっかとなった際のセリフです
CASE "放課後Ｈのお誘い"
	PRINTFORML 「あの……%CNAME("一人称")%も%CNAME("二人称")%もちょっと汗臭いかもですね」
	PRINTFORMW 「帰る前にちょっと汗を流してから帰りませんか？」
;お風呂に一緒に入ろうと誘われた場合
CASE "一緒にお風呂"
	;包茎
	IF COND("包茎", MASTER) && RAND:2 == 0
		PRINTFORML 「ちゃんと%TEXTR("おちんちん/アソコ/包茎ペニス")%も綺麗にしましょうね」
		PRINTFORMW 「皮が被ってると汚くなりやすいですから……%TEXTR("丁寧に洗ってあげますからね/お姉ちゃんに任せてくださいね")%」
	ELSEIF TALENT:恋慕
		CALL PRINT_STRL, @"「%TEXTR("ふふっ/うふふっ")%_HH_　%TEXTR("一緒にお風呂に入って好きな人のお背中をお流しするの。ずっと夢だったんです/こうして一緒にお風呂に入るのは新鮮ですね")%」"
		PRINTFORMW 「%TEXTR(@"良かったら……お風呂に浸かりながら%CNAME("二人称")%の昔の話なんて聞かせてもらえますか/子供の頃の話なんて教えてもらえないでしょうか/お母様や妹さんのお話……聞かせてくれませんか")%？」
	ENDIF

;[999]選択後の台詞。TFLAG:ベッドイン = 1とすることで強制的にエロにも行ける
CASE "休憩"
	IF COND("夜")
		;欲求不満の限界
		IF BASE:欲求不満 >= 100
			PRINTFORMW 「%TEXTR(@"今日はお疲れですか？　%CNAME("主人")%/あの……お願いがあるのですが")%」
			IF TALENT:妊娠
				PRINTFORMW 「%TEXTR("妊娠しているのに……えっちしたいなんて本当はダメですよね/お腹に赤ちゃんがいるんですけど……疼いちゃって我慢出来ないんです")%……」
			ELSE
				PRINTFORMW 「%TEXTR("こんな事をお願いしたら……はしたない女だって思われそうですけど/聖職者の癖にこんな頼み事をするのはイケナイとは解っているのですが……")%
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%は恥ずかしそうに頬を染めて心苦しそうに目を伏せながら頼みを切り出した
			IF TALENT:淫乱
				PRINTFORMW 「……%TEXTR(@"色んな事を%CNAME("主人")%に教えられたせいか、自分で慰めても全然物足りないんです/自分でもしてみたんですけど……やっぱり%CNAME("主人")%じゃないと満足出来なくって")%」
			ELSEIF TALENT:処女
				PRINTFORMW 「……%CNAME("一人称")%の%TEXTR("処女をもらってくれませんか/初めてを捧げさせてくれませんか")%？」
			ELSE
				PRINTFORMW 「……%CNAME("一人称")%と%TEXTR("赤ちゃん作りませんか/子作りしませんか/")%」
			ENDIF
			PRINTFORML
			PRINTFORMW ……どうしますか？
			CALL PRINT_SELECT, "ベッドに誘う/おやすみ"
			IF RESULT == 0
				CALL PRINT_STRW, @"「ちゅっ_HH_　%TEXTR("今夜はたっぷり可愛がってくださいね/いっぱい……可愛がってくださいね")%_HH_」"
				CALL PRINT_STRW, @"「%CNAME("一人称")%は何時でも%CNAME("主人")%の事を思ってるんですから_HH_」"
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%に口づけすると優しく両手を首に回して更にキスをねだりながら微笑んでみせた。
				TFLAG:ベッドイン = 1
			ELSE
				PRINTFORML 「お疲れなのですね……」
				PRINTFORMW 「明日以降でも良いので……%CNAME("一人称")%はずっと待ってます」
			ENDIF
		ELSEIF TALENT:恋慕 && RAND:2 == 0
			PRINTFORMW 「%TEXTR("本日/今日")%もお疲れ様でした」
			PRINTFORMW 「%TEXTR(@"やり残した課題や、悩みは明日一緒に頑張りましょうね/心残りや悩みはありませんか。%CNAME("一人称")%で良ければ聞きますよ")%」
			PRINTFORMW 「%TEXTR(@"大丈夫ですか？　困った時は遠慮なく頼ってくださいね。%CNAME("一人称")%に出来る事であればお助けしますから/無いようでしたらベッドに入って目を閉じてくださいね")%」
			IF RAND:2 == 0
				CALL PRINT_STRW, @"「愛していますよ、%CNAME("主人")%_HH_」"
			ELSE
				PRINTFORMW 「それではおやすみなさい……良い夢をみてくださいね」
			ENDIF
			PRINTFORMW %CALLNAME:MASTER%がベッドに入るのを見届けると%CALLNAME:TARGET%は%TEXTR("満足そうに微笑んで/ちゅっと口づけしてから")%部屋を後にした……
		ELSE
			PRINTFORMW 「お疲れ様でした」
			PRINTFORMW 「今日も一日ちゃんと勉学と運動に励みましたか？」
			PRINTFORMW 「さて、寝る前に今日一日何をしていたか%CNAME("一人称")%に報告してもらいますね。懺悔と告解のお時間です」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%を自室の床の上に座らせて、十字を切ると一日の報告をさせた。
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		IF RAND:3 == 0
			PRINTFORML 「珍しいですね……」
			PRINTFORMW 「何もしないんですか？」
		ELSEIF RAND:2
			PRINTFORML 「時には休息も必要です」
			PRINTFORMW 「休んでばかりもいけませんけどね」
		ELSE
			PRINTFORML 「%CNAME("二人称")%が何もしないなんて……」
			PRINTFORMW 「何か、%CNAME("一人称")%に黙って悪い事を企んでいるのではありませんか？」
		ENDIF
	;場所移動後
	ELSEIF PLACE("出先")
		PRINTFORML 「%TEXTR(@"えっ……もしかして%CNAME("一人称")%とデートしたかっただけでしょうか？/あの……もしかして遠慮してますか？　本当に嫌ならついてきたりしませんからね")%」
		IF TALENT:恋慕
			IF RAND:2 == 0
				PRINTFORMW 「%TEXTR("優柔不断なのはダメですよ。連れてきたんだからちゃんと最後までしましょうね/期待していたので……ちょっと悲しいです")%」
			ELSE
				PRINTFORMW 「%CNAME("一人称")%もその……%TEXTR(@"覚悟を決めてきていたので/%CNAME("一人称")%もドキドキして待っていたので")%……ちょっとだけ残念です」
			ENDIF
		ELSE
			PRINTFORMW 「%TEXTR(@"ちょっと拍子抜けしちゃいましたけど……%CNAME("二人称")%にその気がない日もあるのですね/契約している以上は%CNAME("二人称")%の望みは出来るだけ叶えてあげますからね")%」
		ENDIF
	ELSE
		IF TALENT:恋慕 && RAND:3 == 0
			PRINTFORMW 「%TEXTR("忘れ物はないですか。ちゃんと確認してから帰りましょうね/今日は部活はいいのですか。帰宅するなら一緒に帰りましょうか")%」
		ELSE
			PRINTFORMW 「%TEXTR(@"何か用事やお願い事、悩み事があるなら遠慮なく申し付けてくださいね/困っている事があれば何でも相談してくださいね。こう見えても%CNAME("一人称")%は聖職者ですから")%」
		ENDIF
	ENDIF
;-----------------------------------------------------------------------------------------------------------------------------------------------------
;お誘い系はTFLAG:地の文スキップ = 1で地の文を飛ばせる
;詳しくはDAIRYフォルダ内のEVENT_ACADEMYまで
;-----------------------------------------------------------------------------------------------------------------------------------------------------
CASE "二人きり：隣に座る"
	IF TALENT:恋慕
		CALL PRINT_STRW, @"「%CNAME("主人")%。%TEXTR("隣に座ってもいいですか？/お隣にお邪魔しても宜しいでしょうか")%_HH_」"
	ELSE
		PRINTFORMW 「人恋しい気分なので、隣にお邪魔しちゃいますね……」
	ENDIF

CASE "お掃除フェラ：お誘い"
	IF TALENT:淫乱 && ABL:マゾっ気 >= 3 && RAND:2 == 0
		PRINTFORML 「%CNAME("主人")%、%TEXTR(@"実は%CNAME("一人称")%/本当は内緒なんですけどね")%……%TEXTR("くっさいおちんぽにご奉仕するのが大好きなんです/事後のペニスを無理やりお掃除フェラさせられると興奮しちゃうんです")%……」
		PRINTFORMW 「%TEXTR("変態でごめんなさい/こんな淫乱な子にご奉仕されるのはイヤかもしれませんけど")%……%CNAME("主人")%が良かったら%TEXTR(@"%CNAME("一人称")%のお口を使ってくださいませんか/たっぷりとお口で味わわせて綺麗にさせてくださいませんか")%？」
	ELSE
		PRINTFORMW 「%TEXTR(@"%CNAME("主人")%。ちょっと匂いが気になりませんか？/ちょっと残り香が気になりますね。他の子が来る前に綺麗にしてあげますから%CNAME("一人称")%に任せてくれませんか？/さっきは時間がなかったですけど今なら二人っきりですし、良かったらお口で綺麗にしますけど……どうでしょうか？")%」
	ENDIF
CASE "お掃除フェラ：射精後"
	IF TALENT:淫乱 && ABL:マゾっ気 >= 3 && RAND:2 == 0
		CALL PRINT_STRL, @"「%TEXTR("じゅる、じゅるるるっ、んぅ/ちゅ、じゅぽっじゅぽっ……はぁ")%_HH_」"
		IF RAND:2 == 0
			CALL PRINT_STRL, @"「%CNAME("主人")%の濃厚ザーメン、んっ_HH_　%TEXTR("とっても/とても")%美味しいです……」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%は聖職者なのに……%TEXTR("ご奉仕/お掃除")%フェラで、%CNAME("二人称")%にお口に出してもらうの病みつきになっちゃいました_HH_」"
		ELSE
			CALL PRINT_STRL, @"「はぁ……この匂い大好きです_HH_　このまま……ずっと%CNAME("主人")%の匂いを感じながら、ご奉仕してたいぐらい好きなんです……」"
			IF CHARA_NUM("室内の邪魔者") == 0
				CALL PRINT_STRW, @"「%CNAME("主人")%が良かったら……誰かが来ちゃうまで、このまま%TEXTR("ご奉仕しを続けても/ずっとご奉仕しても")%いいでしょうか？_HH_」"
			ELSEIF PLACE("個室")
				CALL PRINT_STRW, @"「%CNAME("主人")%が飽きるまで……んっ_HH_　ずっと……ご奉仕させてくださいね_HH_」"
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW 「%TEXTR(@"いっぱい出してくださると嬉しくって……ずっとご奉仕してあげたくなっちゃいますけど今はここまでにしますね/沢山出ちゃいましたね。満足しましたか？　物足りないのでしたら手か、お口でもう少し奉仕してもいいですけどね/%CNAME("一人称")%がいる時は綺麗にしてあげますけど、居ない時はちゃんと自分で綺麗にしてくださいね")%」
	ENDIF
CASE "お掃除フェラ：断った"
	PRINTFORMW 「%TEXTR(@"そのままにするのはダメですからね。後で自分でトイレに行くか、時間を作って%CNAME("一人称")%が綺麗にしてあげますからね/お預けですか？　そんな事で諦める%CNAME("一人称")%ではありませんからね。後でたっぷりと綺麗にする時間を取らせてもらいますから")%」

CASE "お掃除フェラよりＶ性処理：地の文前", "お掃除フェラよりＡ性処理：地の文前", "お掃除フェラより尿道性処理"
	IF TALENT:恋慕
		CALL PRINT_STRL, @"「もう……%CNAME("一人称")%との%TEXTR("セックス/えっち/エッチ")%じゃないと物足りないんですか_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"今回は特別に良いですけどね/%CNAME("主人")%のお願いですから聞いてあげますけど")%_HH_　%TEXTR("本当はダメですからね/次はご奉仕で我慢してくださいね")%？」"
	ELSE
		PRINTFORMW 「しょうがないですね……今回だけは特別ですよ？」
	ENDIF

CASE "お掃除フェラよりＶ性処理"
	CALL PRINT_STRL, @"「はぁ……はぁ……もう、激しくしすぎですよ_HH_」"
	CALL PRINT_STRW, @"「%CNAME("一人称")%だって女の子なんですから、そんな風にされたら……もっとして欲しくなっちゃうんですからね？_HH_」"
CASE "お掃除フェラよりＡ性処理"
	CALL PRINT_STRL, @"「%TEXTR("んぅ/んっ")%_HH_　%CNAME("一人称")%の%TEXTR("お尻/アナル/不浄の穴")%%TEXTR("でスッキリしてくれましたか/でいっぱい出しちゃいましたね")%_HH_　性処理は嫌ではないですけど……」"
	CALL PRINT_STRW, @"「%TEXTR("つ、続きをお願いしてもいいのでしょうか/これでお仕舞いにしちゃいますか")%？_HH_……どうですか、%CNAME("主人")%」"
CASE "お掃除フェラより尿道性処理"
	PRINTFORML 「ふぅ……」
	CALL PRINT_STRW, @"「たっぷり出してくれて%CNAME("一人称")%も嬉しいです_HH_　ところで……今日、この後お時間があるなら二人っきりでこの続きをしませんか？　%CNAME("主人")%」"
CASE "性処理：前"
	IF TALENT:恋慕
		CALL PRINT_STR, @"「%TEXTR("迷える子羊よ、懺悔の時間です/お祈りの時間です。さぁ、始めましょうか")%」_L"
		CALL PRINT_STR, @"「%TEXTR("冗談ですよ。性処理ですよね？/もちろん、解ってますよ。性処理ですよね/溜まってる悪い子を性処理でお仕置きです/お姉さんが性処理してあげるから、されながらちゃんと反省してくださいね？")%」_W"
	ELSE
		CALL PRINT_STR, @"「%TEXTR("悩み事のご相談ならいつでもお伺いしますよ？/日々の罪を告解する気になりましたか？/神に懺悔する気になりましたか？/日頃の行いを悔い改める気になりましたか？")%」_L"
		CALL PRINT_STR, @"「%TEXTR("違うのですか、性処理して欲しいのですね……/違うのですね、性処理ですか……/性処理してあげてもいいですが、終わったら懺悔してくださいね")%」_W"
	ENDIF
	PRINTFORML
	SELECTCASE NAMES("性処理")
	CASE "手淫"
		IF TALENT:恋慕
			CALL PRINT_STR, @"「%TEXTR(@"本当に？　手だけでいいんですか？　その…もっと違う事でも、%CNAME("二人称")%が望まれるのならいいですよ？/今日は手で満足させればいいのですね、頑張ります")%」_L"
		ELSE
			CALL PRINT_STR, @"「%TEXTR("手でして欲しいのですね……/解りました、手でしてあげますね……")%」_L"
		ENDIF
		PRINTFORML
		SELECTCASE SAVESTR:現在位置
			CASE "体育倉庫"
				PRINTFORM %CALLNAME:TARGET%は%CALLNAME:MASTER%の身体をマットに横たえさせると%TEXTR("覆いかぶさる様にして/上から身体を重ねて")%
			CASE "部室"
				PRINTFORM %CALLNAME:TARGET%は%CALLNAME:MASTER%の身体を備え付けのベッドに横たえさえると%TEXTR("覆いかぶさる様にして/上から身体を重ねて")%
			CASE "男子トイレ", "女子トイレ"
				PRINTFORM 洋式便座に腰掛けた%CALLNAME:MASTER%の前に%TEXTR("両膝をつくと/しゃがみこみ")%
			CASEELSE
				PRINTFORM %CALLNAME:TARGET%は%CALLNAME:MASTER%を壁にもたれかからせて%TEXTR("両膝をつき/しゃがみこみ")%
		ENDSELECT
		PRINTFORMW 、ズボンのファスナーを%TEXTR("指でゆっくりと下ろして/唇で丁寧に下ろして")%、既に勃起している%CALLNAME:MASTER%のペニスを%TEXTR("曝け出した/解放した")%……
		PRINTFORML
		IF TALENT:恋慕
			CALL PRINT_STR, @"「%CNAME("一人称")%%TEXTR("の事を考えてこんなになっちゃったんですか？/を想ってこんなにしてくれてたんですね/もちょっとだけ…期待してましたからね	")%」_L"
			PRINTFORML
			PRINTFORML %CALLNAME:TARGET%は微笑を浮かべながらペニスを柔らかな指先で触れ、手の平全体でそっと包み込むと、%TEXTR("うっとりとした/嬉しそうな")%表情で上下に優しくしごき始める。
		ELSE
			CALL PRINT_STR, @"「%TEXTR("悪い子ですね、終わったらちゃんと懺悔してくださいね？/こんなになってしまうのはちょっと可愛そうですね")%」_L"
			PRINTFORML
			PRINTFORML %CALLNAME:TARGET%は少し困った表情を浮かべてからペニスを手で優しく包み込み、上下にしごき始めた。
		ENDIF
		PRINTFORML
		IF TALENT:恋慕
			CALL PRINT_STR, @"「%TEXTR(@"うふふっ、気持ちいいですか？　とっても可愛い顔になってますよ/気持ちいいんですね……全部%CNAME("一人称")%に委ねてください")%_HH_」_L"
		ELSE
			CALL PRINT_STR, @"「%TEXTR("お仕置きしてるみたいでちょっと興奮しちゃいますね/お仕置きの時間ですよ？　たっぷり感じてくださいね")%」_L"
		ENDIF
		PRINTFORML
		IF RAND:2 == 0
			PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%の身動きを封じると、硬くなったペニスを激しく上下にしごき始めた……
			PRINTFORML 指先で先端をいじめながら、溢れ出る先走りを擦りつけると顔をペニスの間近に近づけて%TEXTR("うっとりと/嬉しそうに")%%TEXTR("体臭/匂い")%を楽しみ、
			PRINTFORMW 手の平でペニスを包み込むと緩急をつけて、卑猥な水音と共にしごきあげていく……
		ELSE
			PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%を逃げられないように押さえつけると、勃起しているペニスを徐々に激しく上下にしごき始める……
			PRINTFORMW 指先で輪を描く様に幹を捕らえながら、%CALLNAME:MASTER%の様子を伺い手の平全体で巧みに快感を引き出して、%TEXTR("うっとりとした/切なげな")%表情を浮かべて手での奉仕を更に優しく、激しく緩急をつけながらピストンの速度を速めていく……
		ENDIF
		PRINTFORML
		IF ABL:自慰中毒 >= 3
			IF TALENT:恋慕
				CALL PRINT_STR, @"「%TEXTR(@"%CNAME("主人")%、%CNAME("一人称")%も一緒にっ/ごめんなさい…%CNAME("主人")%")%、%CNAME("一人称")%も我慢出来なくてっ_HH_」_L"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("一緒にイっちゃいます/一緒にイきましょうね")%_HH_」_L"
			ENDIF
		ELSEIF TALENT:恋慕
			CALL PRINT_STR, @"「%TEXTR("そろそろ限界ですか？　いっぱい出してくださいね/もう限界ですか？　全部受け止めてあげますからね")%_HH_」_L"
		ELSE
			CALL PRINT_STR, @"「%TEXTR("そろそろですね？　このまま出してくださいな/もうですか？　いいですよ、このまま手でイッちゃってください")%」_L"
		ENDIF
		PRINTFORML
		IF ABL:自慰中毒 >= 3
			;常時ＶバイブorＡプラグorブジー
			PRINTFORM 常時身に着けている
			IF COND("身嗜み：Ｖ拡張")
				;大きさで分岐
				SELECTCASE COND("身嗜み：Ｖ拡張")
					CASE 2
						PRINT 大きめの
					CASE 3
						PRINT 極太
					CASE 4
						PRINT 超極太の
				ENDSELECT
				PRINT バイブ
			ELSEIF COND("身嗜み：Ａ拡張")
				;大きさで分岐
				SELECTCASE COND("身嗜み：Ａ拡張")
					CASE 2
						PRINT 大きめの
					CASE 3
						PRINT 極太
					CASE 4
						PRINT 超大型の
				ENDSELECT
				PRINT アナルプラグ
			ELSEIF COND("身嗜み：尿道拡張")
				;大きさで分岐
				SELECTCASE COND("身嗜み：尿道拡張")
					CASE 2
						PRINT ペニスサイズの
					CASE 3
						PRINT 巨根サイズの
					CASE 4
						PRINT 超極太サイズの
				ENDSELECT
				PRINT 尿道拡張プラグ
			ENDIF
			PRINT で自らも自慰に耽りながら、
		ELSE
			PRINT 頬に優しく口付けし、
		ENDIF
		PRINTFORML 耳元で%CALLNAME:TARGET%は囁く。
		PRINTFORMW %CALLNAME:TARGET%の手の中で%CALLNAME:MASTER%のペニスが脈打った！
		TFLAG:地の文スキップ = 1
	CASE "フェラチオ"
		IF TALENT:恋慕
			CALL PRINT_STR, @"「%TEXTR(@"お口でしてもいいですけど……続きがしたくなったらちゃんと言ってくださいね？/お口だけですか？　いえ、何でもありませんよ！/ご奉仕させてくれるのですね？　%CNAME("一人称")%も%CNAME("主人")%の事を考えてたのでちょっと嬉しいです_HH_")%」_L"
		ELSE
			PRINTFORML 「%TEXTR("お口でして欲しいんですか/ご奉仕して欲しいんですね？")%」
		ENDIF
		SELECTCASE SAVESTR:現在位置
			CASE "体育倉庫"
				IF RAND:2 == 0
					PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%の身体をマットに横たえさせると%TEXTR("覆いかぶさった/上から身体を重ねた")%。
				ELSE
					PRINTFORML %CALLNAME:MASTER%は壁に背中を預けて立ったまま、%CALLNAME:TARGET%に奉仕させた。
				ENDIF
			CASE "部室"
				IF RAND:2 == 0
					PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%の身体を備え付けのベッドに横たえさえると%TEXTR("覆いかぶさる様にして/上から身体を重ねて")%奉仕し始めた。
				ELSE
					PRINTFORML %CALLNAME:MASTER%は壁に背中を預けて立ったまま、%CALLNAME:TARGET%に奉仕させた。
				ENDIF
			CASE "男子トイレ", "女子トイレ"
				IF RAND:2 == 0
					PRINTFORML 洋式便座に腰掛けた%CALLNAME:MASTER%の前に%TEXTR("両膝をつくと/しゃがみこみ")%奉仕し始めた。
				ELSE
					PRINTFORML %CALLNAME:MASTER%は壁に背中を預けて立ったまま、%CALLNAME:TARGET%に奉仕させた。
				ENDIF
			CASEELSE
				IF RAND:2 == 0
					PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%を壁にもたれかからせて%TEXTR("両膝をつき/しゃがみこみ")%奉仕し始めた。
				ELSE
					PRINTFORML %CALLNAME:MASTER%は壁に背中を預けて立ったまま、%CALLNAME:TARGET%に奉仕させた。
				ENDIF
		ENDSELECT
		IF TALENT:恋慕 && ABL:マゾっ気 >= 3 && ITEM:拘束具 && RAND:3 == 0
			CALL PRINT_STR, @"「%TEXTR("ちょっとした小道具を持ってきちゃいました/今日はこれをつけてしてあげますからね/たまにはアブノーマルなのはどうですか？")%_HH_」_L"
			PRINTFORM %CALLNAME:TARGET%は用意してきた開口リング
			IF RAND:2 == 0
				PRINT とアイマスク
			ENDIF
			PRINTFORML を手際よくつけると%CALLNAME:MASTER%の腰を抱きしめるようにしてリング状の口枷から舌を伸ばし、勃起した%TEXTR("ペニス/おちんぽ")%を口腔全体で包み込む……
			PRINTFORML ピチャピチャと淫猥な水音をたてて%CALLNAME:TARGET%は献身的に%CALLNAME:MASTER%の%TEXTR("ペニス/おちんぽ")%へと奉仕しながら、愛しそうに微笑んだ。
			CALL PRINT_STR, @"「%TEXTR(@"滅茶苦茶にして欲しい気分なんです……/今日は乱暴にして欲しくって……")%_HH_」_L"
			PRINTFORMW %CALLNAME:TARGET%は囁く様に呟くと深く%TEXTR("ペニス/おちんぽ")%を咥え込み、懸命に頭を上下に動かして奉仕し%CALLNAME:MASTER%を射精へと導いていく。
		ELSE
			IF TALENT:恋慕
				CALL PRINT_STR, @"「%TEXTR(@"もう…こんなにしちゃって_HH_……/我慢出来なかったんですね……%CNAME("一人称")%もですよ_HH_/こんなに立派になって…素敵です_HH_")%」_L"
			ELSE
				PRINTFORML 「%TEXTR("ちょっと苦しそうですね……/楽にしてあげますからね……")%」
			ENDIF
			IF RAND:2 == 0
				PRINTFORMW %CALLNAME:MASTER%の勃起した%TEXTR("ペニス/陰部")%に唇が触れ、柔らかい舌が絡みつき全体を覆い隠す様に咥え込むと上下に頭を動かして%CALLNAME:TARGET%は優しく奉仕した……
			ELSE
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の%TEXTR("ペニス/陰部")%の先端にチュッチュッ、とキスすると全体へと舌を這わせ丁寧に奉仕していく……
			ENDIF
		ENDIF
		CALL KOJO_RAND_K23("フェラ")
	CASE "パイズリ"
		IF TALENT:恋慕
			CALL PRINT_STR, @"「%TEXTR(@"学校でご奉仕させたいなんて　%CNAME("主人")%は%TEXTR("えっち/スケベ")%ですね/溜まってるんですか、それとも%CNAME("一人称")%が好きだからして欲しいんですか？")%_HH_」_L"
			CALL PRINT_STR, @"「%TEXTR("あんまり時間はないです/そんなにゆっくりは出来ません")%からね？　%TEXTR("ふふっ/んっ")%_HH_　もう%TEXTR("こんなにしちゃって/硬くしちゃってるんですか")%……」_W"
		ELSE
			PRINTFORML 「%TEXTR("おっぱいで挟むんですか/胸で奉仕して欲しいんですか")%？」
			PRINTFORMW 「%TEXTR("悪魔に魂を渡さない為/悪魔に奉仕を頼んで、魂を渡すよりマシ")%%TEXTR("ですからしてあげますけどね……/なのでしょうがなく奉仕するんですよ？")%」
		ENDIF
		;超乳のみ
		IF TALENT:巨乳 >= 3
			PRINTFORMW %TEXTR("巨大過ぎる/豊満な/ボリュームのある")%%CALLNAME:TARGET%の%TEXTR("胸/おっぱい")%が大きく波打った。
			PRINTFORMW 両手で外側から%CALLNAME:MASTER%を挟み込むと上下に身体を動かしながら僅かに覗く%CALLNAME:MASTER%の亀頭へと舌先を伸ばし、%TEXTR("気恥ずかしそうに/嬉しさを覗かせつつも視線を伏せて")%
			PRINTFORMW %TEXTR("ジュルジュルとはしたない音をたて/ピチャピチャと水音を響かせ")%%TEXTR(@"懸命に奉仕してくれる/献身的に%CALLNAME:MASTER%を喜ばせようと奉仕に励んでくれている")%……
		ENDIF
		CALL KOJO_RAND_K23("フェラ")
	CASE "Ｖセックス"
		IF TALENT:恋慕
			PRINTFORML 「%TEXTR(@"学校で種付けしたくなっちゃったんですか、もう/本当はダメですけど、%CNAME("主人")%がしたいなら")%……」
			PRINTFORMW 「%TEXTR("は、恥ずかしいですけど/場所が場所ですから")%……%TEXTR(@"%CNAME("一人称")%が上に乗っちゃいますね/%CNAME("一人称")%が%CNAME("主人")%に跨っちゃいますけど、許してくださいね")%」
			PRINTFORM %CALLNAME:TARGET%は
			IF COND("水泳") && EQUIP:ボディスーツ
				PRINTFORM %BODYS(TARGET)%をずらすと
			ELSEIF COND("体育") && EQUIP:アウター
				PRINTFORM %OUTER(TARGET)%
				IF EQUIP:パンツ == 1
					PRINTFORM を脱いで%PANTIES(TARGET)%をずらす
				ELSE
					PRINT を脱ぐと
				ENDIF
			ELSE
				PRINTFORM %SKIRT(TARGET)%を捲
				IF EQUIP:パンツ
					PRINTFORM り%PANTIES(TARGET)%をずらす
				ELSE
					PRINT る
				ENDIF
				PRINT と
			ENDIF
			IF RAND:2 == 0
				PRINTFORMW %CALLNAME:MASTER%の肩に手をおいてゆっくりと腰を下ろしていった……
			ELSE
				PRINTFORMW %CALLNAME:MASTER%に口づけし、瞳を閉じてアソコへと%CALLNAME:MASTER%をゆっくりと導きいれる……
			ENDIF
		ENDIF
	CASE "Ａセックス"
		IF GROUPMATCH(SELECTCOM,31,60,61,62,63,64,65,70,71,72,73,74,75,83,84,85,86,87,88) && CHECK_OUTER("パンスト") && CHECK_OUTER("破いた") == 0
			IF TALENT:MASTER:力持ち >= TALENT:力持ち || TALENT:恋慕
				 PRINTFORMW %CALLNAME%のパンストを破きますか？
				CALL PRINT_SELECT, "はい/そのまま"
				IF TALENT:恋慕 == 0 && TALENT:MASTER:力持ち > TALENT:力持ち
					CALL PRINT_STR, @"「%TEXTR("ダメですよ……/やめて……/そんな……")%」_L"
				ELSE
					CALL PRINT_STR, @"「%TEXTR(@"嫌じゃないですけど……ちょっと困ります/溜まってるんですか？、困った%CNAME("主人")%ですね/興奮してるわけじゃないですからっ、恥ずかしいんです……")%」_L"
				ENDIF
				IF RESULT == 0
					PRINTFORM %CALLNAME:MASTER%は%OUTER(TARGET, "略")%を
					SIF TALENT:恋慕 == 0 && TALENT:MASTER:力持ち > TALENT:力持ち
						PRINT 力任せに
					PRINTFORM 破いて%CALLNAME%の
					CSTR:アウター += "破いた/"
					IF CHECK_CLO("Ｖ露出")
						PRINTFORMW \@ PENIS(TARGET) ? 股間 # アソコ \@を剥き出しにした……
					ELSE
						PRINTFORMW 下着を露わにした……
					ENDIF
				ENDIF
			ENDIF
		ENDIF
		IF COND("身嗜み：Ａ拡張") && ABL:マゾっ気 >= 3 && RAND:5 == 0
			PRINTFORM %CALLNAME:MASTER%に呼び出された%CALLNAME:TARGET%は
			IF COND("水泳") && EQUIP:ボディスーツ
				PRINTFORM %BODYS(TARGET)%をずらすと
			ELSEIF COND("体育") && EQUIP:アウター
				PRINTFORM %OUTER(TARGET)%
				IF EQUIP:パンツ == 1
					PRINTFORM と%PANTIES(TARGET)%
				ENDIF
				PRINT を半ばまで脱ぐと
			;通常時
			ELSE
				PRINTFORM %SKIRT(TARGET)%を捲りあげ
				IF EQUIP:パンツ
					PRINTFORM て%PANTIES(TARGET)%を半ばまで脱ぐと
				ELSE
					PRINT ると
				ENDIF
			ENDIF
			PRINTFORMW %CALLNAME:MASTER%に%TEXTR("ひくつく/肉壁が盛り上がりつつある")%%TEXTR("アナル/尻穴")%を%TEXTR("見せつけた/向けた")%。
			PRINTFORML
			PRINTFORMW 「見てて……くださいね。%CNAME("主人")%……んっ」
			PRINTFORML
			PRINTFORM %CALLNAME:TARGET%が下腹部に力を込めるとやがて%TEXTR("アナル/尻穴")%
			;大きさで分岐
			SELECTCASE COND("身嗜み：Ａ拡張")
				CASE 2
					PRINTFORMW から幾つもの球が連なったアナルパールがひりだされていった。
				CASE 3
					PRINTFORMW からは海亀の産卵の様にゴルフボールが一個、二個と産み落とされていき、%TEXTR("アナル/尻穴")%は呼吸するようにヒクヒクと蠢いている。
				CASE 4
					PRINTFORMW は大きくせり上がり中からはゴトンと重たい音と共にビリヤードボールを産み落としていった。
			ENDSELECT
		ENDIF
		PRINTFORML
		PRINTFORML 「……%TEXTR("すぐに……終わらせてくださいね？/はぁ……あんまり時間はないんですからね？/少しぐらいは……乱暴にしてもいいですから、早めにお願いします")%」
		CALL PRINT_STR, @"「%TEXTR("はぁ…はぁ……/あぁっ_HH_　")%%TEXTR("お尻気持ちいい_HH_…もっと、もっとしてくださいっ_HH_/そんなっ、激しくされたらっ……ずっとしたくなっちゃいますから_HH_……ダメですからっ……/か、感じてるわけじゃ…あんっ_HH_　そこはダメぇ_HH_")%」_L"
		IF RAND:2 == 0
			PRINTFORML
			CALL PRINT_STR, @"（%TEXTR(@"性処理なんてイケナイ事してるのに感じてしまうなんて……/主よ、愚かな%CNAME("一人称")%達をお許しください……/神聖なる学び舎でこんな事しちゃうなんて……")%）_W"
		ENDIF
	ENDSELECT
CASE "性処理：後"
	SELECTCASE NAMES("性処理")
	CASE "手淫"
		PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の手の中に大量の精を吐き出した……
		PRINTFORML
		IF TALENT;恋慕
			PRINTFORML 「%TEXTR(@"懺悔の時間は終わりですよ　ちゃんと%CNAME("一人称")%に感謝してくれないともっと続けちゃいますからね？/お祈りの時間は終わりですね　今度は許して欲しいって言うまでしごいちゃいますからね？")%」
			CALL PRINT_STR, @"「%TEXTR("また呼んでくださいね……チュッ/またしてあげますからね……チュッ")%_HH_」_L"
		ELSE
			PRINTFORML 「%TEXTR("スッキリして悪い事をしたい気分は収まりましたか？/スッキリしましたか、もう悪い事を考えてはいけませんからね？")%」
		ENDIF
		PRINTFORML
		IF RAND:2 == 0
			PRINTFORMW %CALLNAME:TARGET%は少し物足りなさそうにしながら、火照った身体を押し付けて%CALLNAME:MASTER%の唇を塞いだ。
		ELSE
			PRINTFORMW %CALLNAME:TARGET%は少しだけ物足りなさそうに微笑むと、%CALLNAME:MASTER%に抱きついて唇を重ねた。
		ENDIF
	CASE "フェラチオ"
		IF TALENT;恋慕
			CALL PRINT_STR, @"「%TEXTR("じゅるるっ/ちゅるっ、ちゅっ")%_HH_」_L"
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("いっぱい出ましたね/沢山出してくれましたね")%_HH_　%CNAME("一人称")%にこんな酷い事をして……%TEXTR("ちゃんと反省してくださいね/ちゃんと心の中で懺悔してくださいね")%」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("うんうん……/")%%TEXTR("懺悔出来たみたいですね/ちゃんと反省してくれましたね")%。%TEXTR("ご褒美ですよ/良い子ですね")%、神様は見てますからね？　ちゅっ_HH_」_W"
			ENDIF
		ELSE
			PRINTFORMW 「%TEXTR("学校でご奉仕させるなんてイケナイ子なんだから、もう。ちゃんと後で反省するんですよ？/良い事も悪い事も、神様は見てますからね。後でちゃんと懺悔してくださいね？")%」
		ENDIF
	CASE "パイズリ"
		IF TALENT;恋慕
			CALL PRINT_STR, @"「%TEXTR("ちゅっ_HH_　ちゅうっ/ちゅっ、ちゅっ")%_HH_」_L"
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR(@"おっぱい大好きなんですね/%CNAME("一人称")%の胸が気に入ってるんですね")%_HH_　ですが、聖職者の%CNAME("一人称")%にこんなをして%TEXTR("ちゃんと反省しなくてはいけませんよ？/神様に懺悔はしましたか？")%」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("懺悔出来ましたか？/ちゃんと反省しましたか？")%。%TEXTR("よしよし/えらいえらい")%、神様は見てるんですからね？　これからは性処理ばっかりさせちゃダメですよ？　ちゅっ_HH_」_W"
			ENDIF
		ELSE
			PRINTFORMW 「%TEXTR("ふぅ……ベタベタにしちゃって、もう。反省してくださいね？/元気がいいのは良い事ですが、他の子にはこんな事をしてはいけませんからね？")%」
		ENDIF

	CASE "Ｖセックス"
		IF TALENT;恋慕
			CALL PRINT_STR, @"「%TEXTR("んぅ/んぅ/はぁ")%_HH_　%CNAME("主人")%……」_L"
			PRINTFORMW 「%TEXTR("もう少しだけこのままでいてもいいですか/あと少しだけこのままでいてもいいですか/離れがたくなってしまいますね、ワガママでごめんなさい")%……」
		ELSE
			;PRINTFORML
		ENDIF
	CASE "Ａセックス"
		PRINTFORML 「%TEXTR("はぁはぁ……/ふぅ……")%%TEXTR("んっ……/っ……")%」
		IF CHECK_OUTER("パンスト") && CHECK_OUTER("破いた")
			PRINTFORML 「%TEXTR("こほん……乱暴にされて興奮したのは皆には内緒ですからね？/ビリビリにされて無理やりされるのは……ちょっと刺激的でしたけど、本当はダメですからね？/パンストこんなにしちゃって……")%」
			PRINTFORM %CALLNAME:TARGET%は%CALLNAME:MASTER%に苦言を呈しながらも、
			IF RAND:2 == 0
				PRINTFORMW 満更ではなさそうに新品のパンストに履き替えた……
			ELSE
				PRINTFORMW 脚線美を見せつける様にして新品のパンストに履き替えた……
			ENDIF
			CALL SET_OUTER, "パンスト"
		ELSE
			PRINTFORMW 「%TEXTR(@"たまたま、誰も来ませんでしたけど…手加減してくださいね、もうっ！/声が出ちゃうぐらい激しいのは、本当はダメなんですからね……今回は…その、気持ちよかったから許してあげますけど/こんなにいっぱい出しちゃって……お尻の中もドロドロですよ。%CNAME("一人称")%はちょっとおトイレに寄ってから戻りますね/嫌ではないですけど……恥ずかしいですからねっ。あんまり頻繁に性処理に呼ぶのはやめてくださいね！")%」
		ENDIF
	ENDSELECT

;ここには特殊な条件でのキャラ独自のイベントを書く。別に無くても構わない
;発生タイミングは日常イベント選択後の好感度を得た直後
CASE "特殊イベント"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
	IF CHARA_NUM("室内の邪魔者") >= 1 && STATE("酔い", TARGET) == 0 && COND("全裸状態終了可能")
		DRAWLINE
		PRINTFORMW 「%TEXTR("悪戯の時間は終わりです。服を着ますよ/他の人も見てますから……服を着ちゃいますね")%」
		IF TALENT:恋慕
			PRINTFORMW 「%TEXTR("二人っきりの時にまたしてあげますから……/ちょっぴり楽しかったですよ。またしましょうね……/今日はお仕舞いですけど……また命令してくださいね……")%」
		ENDIF
		CALL SET_MEMO_DRESS, "脱いだ服一式", TARGET
	ELSEIF DAYEV("クリスマス", "リアル日時") && COND("夜") && TALENT:恋慕 && CEVENT("個別クリスマスイベント：マリー１") == 0
		CALL SET_CEVENT, "イベント：クリスマス／マリー"
		DRAWLINE
		CALL PRINT_STR, @"「Joyeux noel　ちゅっ_HH_」_W"
		PRINTFORMW 「改めてメリークリスマスですね。ご主人様」
		PRINTFORMW 「私からの特別なプレゼントは……これです」
		PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%からサンタクロースの衣装一式を渡された。
		PRINTFORMW 「ほっほっほ、何を隠そう……実はな、ワシとあなたはサンタじゃったんじゃよ」
		PRINTFORMW 部屋の外に出るとそこにはワイバーンが止まっていた。クリスマス仕様にデコレーションされ、大きな袋も傍に置いてある
		;PRINTFORMW 「話は後だ！　乗れ！」
		PRINTFORMW 「乗ってください。話は後でしますから」
		PRINTFORML
		PRINTFORMW %CALLNAME:MASTER%は成り行きで%CALLNAME:TARGET%に空の旅に連れされられた……
		PRINTFORML
		PRINTFORMW 「聖夜ですから、本当は家でゆっくり過ごしたかったと思いますが、私達はこれから子供達にプレゼントを配りに行かなくてはいけません」
		PRINTFORMW 「身寄りのない子供達の為に」
		PRINTFORMW 「現在、教会によって保護されている子供達は大昔に比べれば悪魔や竜に比べれば遥かに心無い人間によるケースが多いのは事実です」
		PRINTFORMW 「それでも、いいえ……理由がどうであれ困っている子供達がいるなら私は手を差し伸べたい」
		PRINTFORMW 「その気持ちを貴方なら何時かは解ってくれると私は信じます」
		PRINTFORMW 「というわけで、飛ばします。舌を噛まない様に歯を食いしばってくださいね！　行きます！！」
		PRINTFORML
		PRINTFORMW %CALLNAME:MASTER%と%CALLNAME:TARGET%はサンタクロースとして近隣一帯の教会を巡りプレゼントを配った。
		PRINTFORML
		SETCOLOR DEF_COLOR("ハートピンク")
		PRINTFORMW %CALLNAME:TARGET%の好感度がアップ
		RESETCOLOR
		CFLAG:好感度 += 100
		CALL SET_CEVENT, "個別クリスマスイベント：マリー１"
	ENDIF

;このキャラがおやつ当番で、その時間帯で部室に最初からいる時のセリフ
CASE "おやつを用意した"
	IF TALENT:恋慕
		;本日のおやつはこのキャラの手作り
		IF COND("手作りおやつ")
			CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("主人")%、今回は%CNAME("一人称")%がおやつを用意してみました/おやつ当番なのでちょっぴり頑張ってみました。お口に合うと良いのですが")%_HH_」"
		ELSE
			CALL PRINT_STRW, @"「%CNAME("主人")%、今回は%CNAME("一人称")%がおやつを用意してみました_HH_」"
		ENDIF

		ACTOR = FIND_COND("フェリシエル", "現在存在")
		IF ACTOR && COND("相性○", ACTOR)
			CALL PRINT_MAIDFACE, ACTOR
			;本日のおやつはこのキャラの手作り
			IF COND("手作りおやつ")
				PRINTFORMW 『%TEXTR(@"なるほど……今日は%CALLNAME:TARGET%さんの手作り%TEXTS("おやつ")%ですね/お茶を用意しますから、少々お待ちください。ご主人様")%』
			ELSE
				PRINTFORMW 『%TEXTR(@"なるほど……今日は%SAVESTR:おやつ詳細%ですね/お茶を用意しますから、少々お待ちください。ご主人様")%』
			ENDIF
		ENDIF
	ENDIF

;場所を変えた際のセリフ。通常は無しで構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"
	PRINTFORML
	IF PLACE("自室")
		CALL PRINT_STR, @"「%TEXTR(@"たまには%CNAME("二人称")%の部屋に行くのもいいですね/いいですよ、%CNAME("二人称")%の部屋に行きましょう")%」_W"
	ELSEIF PLACE("パートナーの部屋") && STR:日常イベント名 == "自室に訪問された" && DEVENT("自室訪問") && TALENT:恋慕 && COND("身嗜み：Ａ拡張") && CEVENT("イベント：自室Ａ拡張発覚／マリー") == 0
		DRAWLINE
		PRINTFORML %CALLNAME:TARGET%の部屋を訪れると、部屋の中からは悩ましげな%CALLNAME:TARGET%の声が漏れていた……
		CALL PRINT_SELECT, "聞き耳をたてる/扉を開ける"
		IF RESULT == 0
			IF ABL:Ａ拡張 == COND("身嗜み：Ａ拡張") || ABL:Ａ拡張 < COND("身嗜み：Ａ拡張")
				PRINTFORML 「んっ……やっぱり大きすぎ……」
				PRINTFORMW 「はぁはぁ……でも、%CNAME("主人")%が喜んでくれるなら全部入れ……んぅぅっ！！」
			ELSE
				CALL PRINT_STR, @"「あっ_HH_……はぁはぁ……」_L"
				CALL PRINT_STR, @"「ん……あぁ_HH_　お尻を拡張しながら感じちゃうなんて……主よ、お赦しください……」_W"
			ENDIF
		ELSE
			PRINTFORMW 扉をノックして%CALLNAME:MASTER%は部屋に入る事にした。
		ENDIF
		PRINTFORMW %CALLNAME:MASTER%がゆっくりと扉を開けて、部屋に入ると……
		PRINTFORM そこには下半身だけ服を脱いで床に置いた
		;大きさで分岐
		SELECTCASE COND("身嗜み：Ａ拡張")
			CASE 2
				PRINT 大きめの
			CASE 3
				PRINT 極太
			CASE 4
				PRINT 超大型の
		ENDSELECT
		PRINTFORMW アナルプラグに跨り、一生懸命にアナルを拡張している%CALLNAME:TARGET%の姿があった……
		PRINTFORMW 「きゃああああっ！！！　み、見ないで、見ないでくださいっ！！」
		PRINTFORM はしたない姿を見られた%CALLNAME:TARGET%は悲鳴をあげて%CALLNAME:MASTER%
		IF FIND_COND("現在存在", "助手")
			PRINT 達
		ENDIF
		PRINTFORMW を部屋から叩き出した。
		PRINTFORMW 部屋の中からはバタンバタンと片づけをする音が響いている。
		CALL SET_CEVENT, "イベント：自室Ａ拡張発覚／マリー"
	ELSEIF SAVESTR:現在位置 == "公園" && TALENT:恋慕 && CEVENT("抜け出す：公園／マリー") == 0
		PRINTFORMW 「J'aime me promener dans un parc♪」
		;PRINTFORMW あなた「わがんねぇよぅ　何言ってんのかさっぱりわがらねぇ日本語(ひのもとことば)しゃべれよう　日本語しゃべれねぇんなら　死ねよ！！」
		PRINTFORMW 「こんな所に素敵な公園があったんですね。少しお散歩して行きましょうか？」
		PRINTFORMW %CALLNAME:TARGET%に手を引かれて、%CALLNAME:MASTER%は公園を散歩するのに付き合う事になった。
		PRINTFORML
		;夜&季節で分けると膨大になるので一旦夜だけ
		IF COND("夜")
			PRINTFORMW 「ほら、星が見えますよ。夜のデートにエスコートしていただきありがとうございます」
			PRINTFORMW 「こうして二人で抜け出すと、ちょっぴり悪い事してるみたいで楽しいですね♪」
		ELSEIF TEXTS("季節") == "春"
			PRINTFORMW 「桜の季節ですね。綺麗なピンク色の花びらが舞っています。バレンタイン楽しみですね」
			PRINTFORMW %CALLNAME:TARGET%はさりげなく%CALLNAME:MASTER%と手を繋いだ。
		ELSEIF TEXTS("季節") == "夏"
			PRINTFORMW 「夏ですね。真っ白な雲と突き抜ける様な青い空。%CNAME("二人称")%は水着が楽しみでしょうか？」
			PRINTFORMW %CALLNAME:TARGET%は飲みかけの清涼飲料水を手渡してきた。
		ELSEIF TEXTS("季節") == "秋"
			PRINTFORMW 「秋ですね。舞い散る落ち葉にちょっと物悲しい気分になります……」
			PRINTFORMW %CALLNAME:TARGET%はちょっと切なげな表情を浮かべた後、%CALLNAME:MASTER%の手をギュッと握りしめた。
		ELSEIF TEXTS("季節") == "冬"
			PRINTFORMW 「ちょっとお散歩するには寒かったですね。%CNAME("一人称")%は%CNAME("二人称")%と一緒ですからあまり寒くはないですけど」
			PRINTFORMW %CALLNAME:TARGET%は白い息を吐いてからそっと%CALLNAME:MASTER%に寄り添った。
		ENDIF
		PRINTFORML
		PRINTFORMW 「この学園生活が終われば、%CNAME("一人称")%やパラチネはまた戦いが日常の日々に戻ってしまいますから……」
		PRINTFORMW 「どんなカタチであれ悪魔と隣り合わせでも、お互いに傷つける事も、傷つくことも、死に怯える事もない夢の様な……平和な日常」
		PRINTFORMW 「こんな事言っては悪魔祓い失格ですが……%CNAME("二人称")%には感謝しています。メルシー（Merci）。私達は幸せ者ですね」
		PRINTFORMW 「でも、%CNAME("一人称")%にも立場と言うものがありますから……この話はくれぐれも皆さんには内緒にするって約束してくださいね」
		PRINTFORMW %CALLNAME:TARGET%はバツが悪そうに%CALLNAME:MASTER%に笑ってごまかすと歩を進めた。
		PRINTFORML
		PRINTFORMW 「さて……お散歩は終わりにしましょうか。何処かに寄ってから帰ります？」
		CALL SET_CEVENT, "抜け出す：公園／マリー"
	ELSEIF SAVESTR:現在位置 == "公園" && TALENT:恋慕 && CEVENT("抜け出す：公園／マリー") && CEVENT("抜け出す：公園２／マリー") == 0 && RAND:3 == 0
		PRINTFORMW 「%CNAME("二人称")%は子供の頃はこの公園で遊んだりしたのですか？」
		PRINTFORMW %CALLNAME:TARGET%は物珍しそうに公園の遊具を見つめて、%CALLNAME:MASTER%に問いかけてきた
		PRINTFORMW 「%CNAME("一人称")%はそうですね……残念ながら、あまり子供の頃の遊んでいた記憶はありません。そう言う時代だった……いえ、%CNAME("一人称")%は物心ついた時には悪魔祓いでしたからね」
		PRINTFORMW 「%CNAME("二人称")%が普通だと思っている事。普通の生活はちょっぴり羨ましいですし、色んな面で%CNAME("二人称")%は%CNAME("一人称")%にとって先輩であり、先生でもあるんですよ」
		PRINTFORMW 「さて、%CNAME("一人称")%の身の上話は大して面白い話ではありませんし、何より乙女の秘密に踏み込むのは野暮ってものですよ？」
		CALL SET_CEVENT, "抜け出す：公園２／マリー"
	ELSEIF SAVESTR:現在位置 == "公園" && TALENT:恋慕 && CEVENT("抜け出す：公園／マリー") && CEVENT("抜け出す：公園３／マリー") == 0 && RAND:3 == 0
		;あなた「マリーさん……聖槍が認められて聖騎士の資格をとったのはいつだったっけ？」
		;マリー「ええと、2年前ですね」
		;あなた「パラチネのお母さんがいなくなったのは？」
		;マリー「……2年前ですね」
		;あなた「もうひとつ質問いいかな……さくらちゃんとハナ　どこに行った？」
		;マリー「君のような勘のいい童貞は嫌いだよ」
		PRINTFORMW 「%CNAME("一人称")%が%CNAME("二人称")%に隠し事をしているんじゃないか？、ですか」
		PRINTFORMW 「勘のいい%CNAME("二人称")%は嫌いではないですが……それは知らない方がいい事です」
		PRINTFORMW 「%CNAME("一人称")%は%CNAME("二人称")%に嘘をつくつもりはありません。でも、知ってしまえば%CNAME("一人称")%達は今まで通りの%CNAME("一人称")%と%CNAME("二人称")%ではいられない」
		PRINTFORMW 「そう言った類の秘密です。忘れないでくださいね、%CNAME("一人称")%は悪魔祓いです」
		PRINTFORMW 「%CNAME("二人称")%の前に立つ%CNAME("一人称")%は清廉潔白な優しいただの女子高生ではない」
		PRINTFORMW 「だから、教えられない秘密もあるんですよ」
		PRINTFORML
		PRINTFORMW %CALLNAME:TARGET%は何処となく寂しそうに微笑んで、%CALLNAME:MASTER%に頭を下げた
		CALL SET_CEVENT, "抜け出す：公園３／マリー"
	ELSEIF SAVESTR:現在位置 == "公園" && TALENT:恋慕 && ABL:露出癖 >= 3
		IF ABL:露出癖 >= 5 && RAND:2 == 0
			PRINTFORML 「%TEXTR(@"野外調教したいなんて……%CNAME("主人")%のお願いだから聞いてあげるんですからね/こんな格好で出歩くなんて……本当はダメなんですからね？/もう……本当に%CNAME("主人")%はエッチなんですから……")%」
			PRINTFORML
			SIF COND("夏")
				PRINT 季節はずれな
			PRINTFORMW トレンチコートの%TEXTR("前を開いて/ボタンを外して")%%CALLNAME:TARGET%は%TEXTR("ゆっくりと/恥ずかしがりながら")%%TEXTR("下着をつけていない/何もつけていない")%%TEXTR("胸元/アソコ")%を%CALLNAME:MASTER%に見せてくれた。
		ELSE
			PRINTFORML 「%TEXTR("野外調教の準備万端です。あの……本当にするのでしょうか……/ちゃんと準備してきましたけど……ちょっぴりこの格好は恥ずかしいです")%」
			PRINTFORML
			SIF COND("夏")
				PRINT 季節はずれの
			PRINTFORMW トレンチコートを纏った%CALLNAME:TARGET%は%TEXTR("赤面しながら/恥ずかしそうに")%%CALLNAME:MASTER%%TEXTR("に視線を送っている/の言葉を待っている")%。
		ENDIF
		;PRINTFORMW 出来るあなたは空気を読んでハダカになってもらおう！！
		;
		;野外露出なので靴以外は脱ぐ
		;CALL SETFLAG, "靴は残して全脱ぎ", TARGET
		;CASE "靴は残して全脱ぎ"
		CALL SET_PANTIES, ""
		CALL SET_BRA, ""
		CALL SET_SHIRT, ""
		CALL SET_SKIRT, ""
		CALL SET_BODYS, ""
		CALL SET_OUTER, ""
		CALL SET_SOCKS, ""
		CALL SET_GLOVE, ""
		CALL SET_OTHER, "トレンチコート"
	ELSEIF PLACE("個室") && TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0
		CALL PRINT_STR, @"「%TEXTR("ちゅ/ちゅっ/chu")%_HH_」_L"
		PRINTFORMW %CALLNAME:MASTER%%TEXTR("の不意をついて/が油断していると")%%CALLNAME:TARGET%%TEXTR("は軽く口づけしてきた/はそっと身体を重ねて唇を重ねた/にベッドに押し倒されてキスされてしまった")%…
	ELSEIF PLACE("出先")
		CALL PRINT_STR, @"「%TEXTR(@"%CNAME("一人称")%だけに話したい事ですか？/何処に行くのですか？/ちょっと気まずい気もしますけど……")%」_W"
	ENDIF
	PRINTFORML
;これは昼か夜
CASE "挨拶する"
	IF FLAG:対複数 == 1
		ACTOR = FIND_COND("現在存在", "助手")
		ACTOR2 = FIND_COND("現在存在", "助手ではない")
		;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR, ACTOR2
	ENDIF
	;IF TALENT:出産経験
	;	PRINTFORMW 「出産を経験して少し大人になりました」
	;ENDIF

	IF DAYEV("お正月", "リアル日時")
		IF RAND:2 == 0
			GREETING = ボナネ！（Bonne Annee!）
		ELSE
			GREETING = 明けましておめでとうございます
		ENDIF
	ELSEIF DAYEV("クリスマス", "リアル日時")
		GREETING = メリークリスマス
	ELSEIF COND("夜")
		IF RAND:2 == 0
			GREETING = ボンソワール（Bonsoir）
		ELSE
			GREETING = こんばんは
		ENDIF
	ELSEIF COND("昼")
		IF RAND:2 == 0
			GREETING = ボンジュール（Bonjour）
		ELSE
			GREETING = こんにちは
		ENDIF
	ELSE
		IF RAND:2 == 0
			GREETING = ボンジュール（Bonjour）
		ELSE
			GREETING = おはようございます
		ENDIF
	ENDIF
	SELECTCASE STR:日常イベント名
		CASE "挨拶ハグ"
			CALL PRINT_STR, @"「%TEXTR("んんんんん……/んんん～～～")%」_W"
			IF COND("夜") || COND("昼")
				PRINTFORMW 「%GREETING%……」
			ELSE
				PRINTFORMW 「%GREETING%……」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながら挨拶してくれた。
		CASE "挨拶キス"
			IF TALENT:相思相愛 && RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("ちゅっ/ちゅ")%_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("んんんんん……/んんん～～～")%」_W"
			ENDIF
			IF TALENT:相思相愛 && RAND:2 == 0
				PRINTFORMW 「%GREETING%……%CNAME("二人称")%がしたいならキスの続きをしても……%TEXTR("＿/いいですよ？")%」
			ELSE
				PRINTFORMW 「%GREETING%……」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながら挨拶してくれた。
		CASE "挨拶フェラ", "挨拶クンニ"
			PRINTFORMW 「%GREETING%」
			CALL PRINT_STR, @"「%TEXTR("もう少し常識的な行動をお願いしますね/少し反省してくださいね/怒らないと思ってます？")%」_W"
			PRINTFORMW %CALLNAME:MASTER%の頭部を挟み込む強烈なインパクト。
			IF TALENT:MASTER:力持ち >= TALENT:力持ち && RAND:2 == 0
				PRINTFORMW %CALLNAME:MASTER%は咄嗟に%CALLNAME:TARGET%の太ももを防いだ。
				IF TALENT:力持ち == 9
					PRINTFORMW 「良い勝負でした」
					CALL PRINT_STR, @"「%TEXTR("でも、セクハラはダメですよ/しかし、セクハラはセクハラです。反省してください/ただし、これがセクハラでなければの話ですが")%」_W"
				ELSE
					IF RAND:3 == 0
						PRINTFORML 「スゴイですね、普通の人間なら死んでもおかしくないんですけど」
						PRINTFORMW 「面白くなってきました。次は本気でも良さそうですね」
					ELSEIF RAND:2 == 0
						PRINTFORML 「意外と力があるんですね、驚きました」
						PRINTFORMW 「次はもう少し本気を出しても大丈夫そうですね」
					ELSE
						PRINTFORML 「やるじゃないですか、ちょっと感心しました」
						PRINTFORMW 「でも、次はないですからね？」
					ENDIF
					TALENT:力持ち = MIN(TALENT:力持ち + 2, 9)
				ENDIF
			ELSE
				SETCOLOR DEF_COLOR("赤")
					PRINTFORML
					PRINTFORML 『システムメッセージ：衝撃を検知』
				RESETCOLOR
				BASE:MASTER:魂 -= 100
				CALL SETFLAG_DAILY, "不機嫌"
				IF BASE:MASTER:魂 <= 0
					CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
					PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
					BASE:MASTER:魂 = 1
				ENDIF
			ENDIF
		CASEELSE
			;あなたに先に挨拶をされた
			IF CFLAG:挨拶した == 0
				PRINTFORMW 「%GREETING%」
				IF COND("夜")
					PRINTFORMW 「今日は一日どうでしたか？%TEXTR("＿/悩みや相談したい事、楽しかった事。懺悔したい事でも、何でも聞いてあげますからね/平穏に過ごせた様で何よりです")%」
				ELSE
					PRINTFORMW 「%TEXTR("朝は良いですね。良い目覚めと共に良い一日が始まるのです/今日一日、あなたに神のご加護のあらん事を")%」
				ENDIF
			ELSE
				PRINTFORMW 「%GREETING%」
				IF COND("夜")
					PRINTFORMW 「今日は一日どうでしたか？%TEXTR("＿/悩みや相談したい事、楽しかった事。懺悔したい事でも、何でも聞いてあげますからね/平穏に過ごせた様で何よりです")%」
				ELSE
					PRINTFORMW 「%TEXTR("朝は良いですね。良い目覚めと共に良い一日が始まるのです/今日一日、あなたに神のご加護のあらん事を")%」
				ENDIF
			ENDIF
	ENDSELECT

CASE "起こす"
	PRINTFORMW 「ん……はっ、%CNAME("一人称")%もしかして寝てましたか？」

;TFLAG:取引拒否 = 1とすることで、あなたのたわごとを却下できます
CASE "Ｈな約束"
	;恋慕がないと自動的に取引拒否される
	IF TALENT:恋慕 == 0
		PRINTFORML 「%TEXTR("……勉強を頑張ったご褒美に……えっちな事をして欲しいんですか？/……成績が良かったら……エッチなご褒美を欲しいなんて")%」
		PRINTFORML 「%TEXTR("そう言う邪な目的でお勉強するのは感心出来ません/解っているとは思いますけどダメですよ？")%」
		PRINTFORMW 「%TEXTR(@"……恋人同士でそんな約束をしたり、しなかったりするのかもしれないと聞いた事はありますけどね/お勉強のご褒美が欲しいのなら……%CNAME("二人称")%の恋人にお願いするのが筋なのではないでしょうか？")%
		TFLAG:取引拒否 = 1
	;Ｈな約束をする対象（ヒロイン）が前回赤点で、それどころではない
	ELSEIF COND("成績：赤点")
		PRINTFORML 「%TEXTR("うぅん……お願いを聞いてあげたいのは山々なのですが/本当は……約束してもいいんですけど……ね")%」
		PRINTFORMW 「%TEXTR(@"……あまり成績が悪いと法皇庁から呼び出されてしまうので今回は無理そうです。ごめんなさい/……一応は%CNAME("一人称")%も学生ですから、ちゃんとした成績を収めないと法皇庁に怒られちゃうんです。赤点を回避したら約束してあげてもいいですから")%」
		PRINTFORML
		IF COND("成績：優秀", MASTER)
			PRINTFORMW 「あの……%TEXTR("良かったら/お暇でしたら/お時間があったら")%お勉強を教えてください。お願いします」
		ELSEIF COND("成績：赤点", MASTER)
			PRINTFORML 「それに……%CNAME("二人称")%も%TEXTR("そんなに成績は良くない/赤点だったん/遊んでる場合ではない")%ですよね？」
			PRINTFORMW 「%TEXTR("折角ですし……一緒にお勉強しませんか？/丁度良いですし、二人でお勉強しませんか？")%」
		ELSE
			PRINTFORML 「%TEXTR("ご褒美は無理ですけど/ちょっとお願いは聞いてあげられないのですが/今回はご褒美を約束出来ませんが")%……」
			PRINTFORMW 「%TEXTR("一緒にお勉強なら出来ますからご一緒にどうでしょう？/二人っきりでお勉強会なら良いですよ？")%」
		ENDIF
		TFLAG:取引拒否 = 1
	;以下はご褒美をあげる事にＯＫしてあげる
	ELSE
		;前回既にあなたが良い点を取っている場合には」学年上位」を要求します
		IF COND("成績：優秀", MASTER)
			;前回90点以上を取っている
			IF COND("成績：学年上位", MASTER)
				PRINTFORML 「そうですね……前回同様の学年上位を取れたらと言う条件でどうでしょうか？」
				CALL PRINT_STRW, @"「ふふっ_HH_　頑張っ%TEXTR("た/てる")%子には%TEXTR("特別な/たっぷり/いっぱい")%ご褒美をあげないといけませんからね_HH_」"
			ELSE
				PRINTFORML 「%CNAME("二人称")%が成績優秀なのは知っていますからちょぴりハードルを上げちゃいますね？」
				PRINTFORMW 「頑張ってる%CNAME("主人")%の姿を見せてくれたら……%CNAME("一人称")%も頑張っちゃいますからね」
			ENDIF
		ELSEIF COND("成績：赤点", MASTER)
			PRINTFORML 「良いですよ。どんな形であれ%CNAME("二人称")%がやる気になってくれるのであれば%CNAME("一人称")%は協力を惜しみません」
			PRINTFORMW 「……本当はお勉強を手伝ってあげられると良いのですが、あまり%CNAME("一人称")%も得意分野ではないのであまり期待はしないでくださいね？」
		ELSE
			CALL PRINT_STRL, @"「%CNAME("一人称")%と約束する事で……%CNAME("二人称")%%TEXTR("のやる気が出るのなら喜んで/が頑張れるなら応援しちゃいます")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("一緒にお勉強して成績上位を頑張りましょうね、うふふっ/勉強にしろ、運動にしろ。頑張るのは良い事ですから")%_HH_」"
		ENDIF
	ENDIF

;酔った際に眠くなって自分の部屋に戻る際のセリフ
CASE "眠い"
	PRINTFORML 「%TEXTR("ふゎ/ふぅ")%……」
	CALL PRINT_STRW, @"「%TEXTR("ふふっ/うふふっ")%_HH_　%TEXTR("お布団にダイブしてきちゃいますね/ちょっと眠くなってきちゃいました")%」"
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORML 「%TEXTR("もう/本当に")%……」
	PRINTFORMW 「%TEXTR(@"あまり変な事を%CNAME("一人称")%以外にお願いしないって約束してくださいね/お仕舞いです。服を着ちゃいますからね")%」
;暑かったりムラムラしてたり酔っぱらってたりで下着姿になった際のセリフ
CASE "薄着になった"
	PRINTFORML 「%TEXTR("ふぅ……/んぅ……")%」
	PRINTFORMW 「%TEXTR("ちょっと暑くなってきちゃいましたね。よいしょ/少し暑くなってきちゃいました。脱いじゃいますけどジロジロ見ちゃダメですからね？")%
;汗かき状態の際にスカートの中に扇風機の風を当てた際のセリフ。[粗野]or[陽気]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "トーク"
	SELECTCASE STR:日常イベント名
	CASE "褒める"
		IF CHARA_NUM("室内の邪魔者") == 0 && STR:日常イベント名 != "おやつを褒める"
			IF (TALENT:クリピアス || TALENT:ラビアピアス) && CHECK_CLO("Ｖ露出可") && RAND:2 == 0
				CALL PRINT_STR, @"「……%TEXTR("似合ってますか、このピアス/二人っきりで、奴隷の証を褒められると……ドキドキしちゃいます/引っ張るなんてっ、んっ")%_HH_」_L"
				PRINTFORM %CALLNAME:TARGET%は
				IF TALENT:クリピアス
					PRINT クリピアス
				ELSEIF TALENT:ラビアピアス
					PRINT ラビアピアス
				ENDIF
				PRINTFORMW を%TEXTR("自慢気/誇らしげ")%に見せつけながら微笑んだ。
			ELSEIF TALENT:ニプルピアス && CHECK_CLO("乳首露出") && RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR(@"触れられたら……あっ/%CNAME("主人")%につけていただいた、奴隷の証ですから/引っ張るなんてっ、んっ")%_HH_」_L"
				PRINTFORMW %CALLNAME:TARGET%はニプルピアスを%TEXTR("自慢気/誇らしげ")%に見せつけながら微笑んだ。
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「%TEXTR(@"相手を褒めるのは仲良くなる第一歩です。%CNAME("二人称")%のその気持ちはとっても良いものですよ/そうやって言葉に出して褒められる人は今の時代は少ないですからね。%CNAME("二人称")%は立派です")%」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%TEXTR(@"%CNAME("二人称")%にも神のご加護があらんことを……/お礼に%CNAME("二人称")%の為にお祈りさせていただきますね。今日はきっと良い事が起こりますよ")%」
			ELSE
				CALL PRINT_STR, @"「%TEXTR("嬉しいですよ/ありがとうございます/褒めてくださる心遣いが素敵です/メルシー（Merci）")%_HH_」_W"
			ENDIF
		ENDIF
	CASE "甘い言葉"
		IF CALCF("甘い言葉成功")
			IF TALENT:恋慕
				IF (TALENT:クリピアス || TALENT:ラビアピアス || TALENT:ニプルピアス) && RAND:2 == 0
					IF CHARA_NUM("室内の邪魔者") == 0
						IF RAND:10 == 0
							PRINTFORML 「主と%CNAME("主人")%。%CNAME("一人称")%にとってどちらが大切か、ですか？」
							PRINTFORML 「そうですね……両方でしょうか。どちらが上という風には考えた事はなかったので」
							PRINTFORMW 「こんな事を言うと神様に怒られてしまうかもしれませんが、%CNAME("二人称")%と一緒なら地獄の果てでも、何処までもご一緒しますよ」
						ELSE
							CALL PRINT_STR, @"「このピアスを%TEXTR("つけていただいた時から/いただいた時から/つけている")%%TEXTR(@"%CNAME("一人称")%は%CNAME("主人")%だけのモノですからね/%CNAME("一人称")%は%CNAME("主人")%のモノですよ……ちゅっ")%_HH_」_L"
							CALL PRINT_STR, @"「%TEXTR("いつでも準備万端ですから/いつでも誘ってくださいね/もう……ここで始めちゃってもいいんですか？")%」_W"
							IF TALENT:クリピアス || TALENT:ラビアピアス && CHECK_CLO("Ｖ露出可") && EQUIP:パンツ && CHECK_PANTIES("ずらせる") && RAND:2 == 0
								PRINTFORM %CALLNAME:TARGET%は%PANTIES(TARGET)%をずらしてわざとらしく
								IF TALENT:クリピアス
									PRINT クリピアス
								ELSEIF TALENT:ラビアピアス
									PRINT ラビアピアス
								ENDIF
								PRINTFORMW を見せつけて来た……
							ENDIF
						ENDIF
					ELSE
						CALL PRINT_STR, @"「%TEXTR("ちゅっ/ちゅぅ")%_HH_」_L"
						PRINTFORMW %CALLNAME:TARGET%は他の部員に気づかれない様にさりげなくそっと頬に%TEXTR("口付け/キス")%した
					ENDIF
				ELSE
					IF CHARA_NUM("室内の邪魔者") == 0
						IF COND("夜")
							PRINTFORML 「月が綺麗ですね……」
							CALL PRINT_STR, @"「%TEXTR(@"%CNAME("二人称")%が望むなら何でもしてあげますからね？/%CNAME("一人称")%に全部言わせたいんですか……意地悪なんだから")%」_W"
						ELSE
							CALL PRINT_STR, @"「%TEXTR("好きです/愛してます/ジュテ－ム（Je t’aime）")%_HH_……」_L"
							CALL PRINT_STR, @"「%TEXTR("二人っきりですね/二人だけですね")%　キスしちゃいましょうか……%TEXTR("ちゅっ/ちゅぅ")%_HH_」_L"
						ENDIF
					ELSE
						PRINTFORML 「もう……そんな風に言われたら」
						PRINTFORMW 「その気になっても知りませんからね」
					ENDIF
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「ん……」
					PRINTFORMW 「嫌な気はしませんけど……ね」
				ELSE
					PRINTFORML 「もう……」
					PRINTFORML 「恥ずかしい事言わないでください」
					PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にして俯いている。
				ENDIF
			ENDIF
		ELSE
			CALL PRINT_STR, @"「%TEXTR("冗談だと思ってますからね/本気にしませんから/本気にしちゃったらどうするんです？")%」_W"
		ENDIF
	;メイン画面ランダム分岐はここ
	CASEELSE
		IF FLAG:対複数
			IF CHARA_NUM("行動参加中") >= 3
				ACTOR = FIND_COND("現在存在", "助手")
				ACTOR2 = FIND_COND("現在存在", "助手ではない")
				;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR, ACTOR2
			ENDIF
			IF CFLAG:性処理済 && (COND("身嗜み：Ｖ拡張") || COND("身嗜み：Ａ拡張")) && RAND:2 == 0
				IF RAND:10 == 0
					PRINTFORML 「%TEXTR("こら/めっ/ダメです、ばれちゃいますから")%……」
					PRINTFORMW %CALLNAME:TARGET%は小さな声で%CALLNAME:MASTER%を注意して強めにギュッと手を握り締めてきた……
					;PRINTFORML 手加減しそこねたのか、万力の様な力で締め付けられた
				ELSEIF RAND:2 == 0
					CALL PRINT_STR, @"「%TEXTR("んっ/んぅ/ん")%_HH_……」_L"
					PRINTFORMW %CALLNAME:TARGET%はバイブの振動に%TEXTR("声を殺しながら頬を赤らめている/漏れそうになる声を唇をかんで耐えている/思わず股間を抑えて俯いてしまった")%……
				ELSE
					PRINTFORML 「%TEXTR("う、うんっ/そ、そうですね/は、はい")%……」
					PRINTFORMW %CALLNAME:TARGET%は上の空で返事を返しながら、バイブが振動しているのがバレないかソワソワしている
				ENDIF
			ELSE
				IF TEXTS("季節") == "春" && RAND:3 == 0
					PRINTFORMW 「%TEXTR("みんなでお花見に行くのはどうでしょうか/暖かくなってきましたね/春めいてちょっと眠たくなってしまいますね")%」
				ELSEIF TEXTS("季節") == "夏" && RAND:3 == 0
					PRINTFORMW 「%TEXTR("暑いですね……/みんなで海、プールなんかもいいですね/かき氷作ったりしませんか？、部室でこっそり")%」
				ELSEIF TEXTS("季節") == "秋" && RAND:3 == 0
					PRINTFORMW 「%TEXTR("実りの秋。美味しいものが沢山ありますね/もうすぐ冬だと思うとちょっと寂しいですね/みんなで紅葉を見に行きましょうか")%」
				ELSEIF TEXTS("季節") == "冬" && RAND:3 == 0
					PRINTFORMW 「%TEXTR("寒くなってきましたね/冬ですし、今日は鍋にしませんか/スキー合宿なんてどうでしょうか")%」
				ELSE
					PRINTFORMW 「%TEXTR("みんなでお勉強会しましょうか/たまには部活らしい事もしましょうか/部活動の一環としてみんなで聖書の朗読は如何でしょうか/お茶の時間ですね/みんなで運動しませんか、如何わしい意味ではありませんよ！？")%」
				ENDIF
			ENDIF
		ELSEIF TALENT:妊娠
			IF RAND:2 == 0
				PRINTFORML 「ふふっ、ここに二人の赤ちゃんがいるんですよ」
				PRINTFORMW 「しばらくはあんまりハードな事はしない様にしましょうね」
			ELSE
				PRINTFORML 「不思議な気持ちですけど……」
				PRINTFORMW 「%CNAME("一人称")%と%CNAME("二人称")%の子供がいるんだって思ったら、嬉しくなってしまうんです」
			ENDIF
		ELSEIF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			IF RAND:2 == 0
				PRINTFORML 「キスしたくなりませんか……」
				PRINTFORMW 「%CNAME("一人称")%は今、とってもちゅーしたい気分なんですけど？」
			ELSE
				PRINTFORML 「ふふふー何だか、とってもポカポカしてます」
				CALL PRINT_STR, @"「ギュッてしてちゅーしませんか、ちゅーしたいんです_HH_」_W"
			ENDIF
		;複数人を性処理係任命してるあなたはいつか刺されるのでは？？？
		ELSEIF CHECK_OTHER("黒いチョーカー", TARGET) && CHECK_OTHER("黒いチョーカー", ASSI)
			ACTOR = FIND_COND("現在存在", "助手")
			;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
			IF FIND_COND("現在存在", "フェリシエル") && NO:ASSI == 1
				PRINTFORML 『%TEXTR("＿/ふふっ、")%お揃い%TEXTR("ですね/のチョーカーですね/チョーカー良く似合ってますよ")%。マリーさん』
				PRINTFORMW 「%TEXTR("ええ、お揃いですね……/そ、そうですね……/あ、ありがとうございます")%」
			ELSEIF FIND_COND("現在存在", "ツェツィーリア") && NO:ASSI == 3
				PRINTFORML 『%TEXTR("君もか/なるほど、君か")%……』
				PRINTFORMW 「%TEXTR(@"お互いに頑張りましょう/そうみたいですね")%」
			ELSEIF FIND_COND("現在存在", "リアラ") && NO:ASSI == 9
				PRINTFORML 『%TEXTR("あらあらぁ/ふふふぅ")%%TEXTR("、お揃いですね/＿")%』
				PRINTFORMW 「%TEXTR("先生、それ以上はしーっです、しーっ！！/はい、解りました。全部解りましたからね")%」
			ELSEIF FIND_COND("現在存在", "リューナ") && NO:ASSI == 22
				PRINTFORML 『%TEXTR("！！/！？")%』
				PRINTFORMW 「%TEXTR(@"大丈夫ですか？、後で%CNAME("主人")%にはよく言い聞かせておきますね/先輩、しっかりしてください")%」
			ELSEIF FIND_COND("現在存在", "ノノ") && NO:ASSI == 25
				PRINTFORML 『%TEXTR("えっと……何と申しますか/そのですね、これはそのぉ……")%』
				PRINTFORMW 「%TEXTR(@"これは許されませんね。後で%CNAME("主人")%にはお説教しておきます/良く似合ってますよ、ノノくん。%CNAME("主人")%には後でお話しておきます")%」
				;PRINTFORML 「%TEXTR("なんて羨ま、けしからん事を！！　ショタを独り占めなんて%CNAME("主人")%といえど許されませんね/ノノくんとあんな事やこんな事をするなんて、羨ま、もとい許されません")%」
			ELSEIF FIND_COND("現在存在", "オスカー") && NO:ASSI == 30
				PRINTFORML 『%TEXTR("望まれれば与えねばならない。高貴さは義務を強制するとはよく言ったものだ/ノブレス・オブリージュ。否、聖マリーナであれば必然か")%』
				PRINTFORMW 「%TEXTR("その……申し上げ難いのですが、この件は職務とは無関係に……す、好きなので/好きなので……致し方なくです、聖女である事は無関係ですから")%」
				;PRINTFORML 【意訳：あなたの事が好きなので聖職者としての立場は無関係です】
				;PRINTFORML （……その発言は聖女としてアウトなのでは……いや、何か深い意味があるのか）
			ENDIF
		;デートの予定がある
		ELSEIF RAND:13 == 0 && COND("デートの約束")
			CALL PRINT_STRL, @"「%TEXTR("ふふっ/うふふっ")%_HH_」"
			PRINTFORMW 「デートの予定を考えていたら嬉しくなってしまいました。見なかった事にしてくださいね」
		;胸を豊穣で成長させた　超乳編
		ELSEIF RAND:12 == 0 && TALENT:恋慕 && TALENT:巨乳 >= 2 && (COND("初期爆乳") == 0 || COND("初期超乳") == 0)
			PRINTFORML 「こんなに%TEXTR("おっぱい/胸")%が大きくなると%TEXTR("お洋服を着ていても目立っちゃうんですよ/流石に目立っちゃいますね")%」
			PRINTFORMW 「嫌ではないですけど……%TEXTR(@"他の人の視線を集めてしまうのでちょっぴり恥ずかしいですね/%CNAME("一人称")%は%CNAME("二人称")%だけに見てもらいたいなって……思ったり")%」
		ELSEIF RAND:11 == 0 && TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0
			PRINTFORML 「%TEXTR("バイブ/オモチャ/えっちな玩具")%と%CNAME("二人称")%どっちが好きなのか、ですか？」
			IF TALENT:淫乱 && CHECK_OTHER("黒いチョーカー") && RAND:2 == 0
				IF RAND:2 == 0
					PRINTFORML 「もちろん、%CNAME("二人称")%ですけど……」
					PRINTFORML 「オモチャが好きなのではなくって……%CNAME("二人称")%に……%TEXTR("入れて/使って")%もらうのが……」
					PRINTFORMW 「この話は終わりです。もう、お話してるだけなのに変な事を言わせるなんてエッチですね、%CNAME("二人称")%は」
				ELSE
					PRINTFORML 「……他の人には内緒ですよ？　%CNAME("一人称")%は%CNAME("主人")%に命令されたり、無理やりされちゃうのは嫌いじゃないというか……好きなんですけど」
					PRINTFORMW 「……そんなはしたない女の子はイケナイですよね。それに%CNAME("一人称")%は聖職者ですし、%CNAME("二人称")%と愛し合っているから受け入れてるだけですからね……」
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「もちろん、%CNAME("二人称")%ですけど……%CNAME("一人称")%が色々拒否しちゃうから不安にさせてしまいましたか」
					PRINTFORMW 「ごめんなさい。本当は大好きです。でも、その……恥ずかしくなっちゃいますよね。色々」
				ELSE
					PRINTFORML 「%CNAME("二人称")%が一番好きです」
					CALL PRINT_STR, @"「ちゅ_HH_　好きじゃなければ……あんな事やそんな事、したりしませんからね！？」_W"
				ENDIF
			ENDIF
		ELSEIF RAND:10 == 0 && TALENT:淫乱 && CHECK_OTHER("黒いチョーカー")
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("ふふっ/うふふっ")%_HH_　%TEXTR(@"%CNAME("一人称")%と%CNAME("二人称")%だけの秘密の特別な関係ってちょっとドキドキしちゃいますね/%CNAME("二人称")%に選ばれた事、光栄に思ってますよ。特別扱いされてるって感じで素敵です")%」_L"
			ELSE
				PRINTFORML 「%CNAME("一人称")%%TEXTR("に何か頼み事があれば何時でもお願いしてくださいね/の役目は理解しているつもりですから、何時でも懺悔してくださいね/に告解したい事があればいつでも呼んでくださいね")%」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%は黒いチョーカー%TEXTR(@"を指でなぞりながら微笑んでみせた/をさりげなく直しながら%CALLNAME:MASTER%に訴えかけた")%
		ELSEIF RAND:9 == 0 && TALENT:MASTER:力持ち >= 1
			IF TALENT:MASTER:力持ち == 9
				PRINTFORML 「フフフ……%CNAME("二人称")%っていい身体してますね」
				PRINTFORMW 「素晴らしい筋肉です……触ってもいいですか？」
			ELSEIF TALENT:MASTER:力持ち >= 5
				CALL PRINT_STR, @"「はぁ_HH_……%CNAME("二人称")%の筋肉」_L"
				CALL PRINT_STR, @"「%TEXTR("べ、別に……見惚れていたわけではありませんからね/こほん……聞かなかった事にしてください")%」_W"
			ELSEIF TALENT:MASTER:力持ち >= 3
				PRINTFORML 「一緒に身体を鍛えましょうか」
				PRINTFORMW 「大丈夫、大丈夫。それだけ筋肉があれば多少の鍛錬なら平気ですからね」
			ELSEIF TALENT:MASTER:力持ち >= 2
				PRINTFORML 「%CNAME("二人称")%は格闘技とか、武術に興味はありませんか……」
				PRINTFORMW 「良かったら、色々とお教え出来る事もあるかもしれません」
			ELSEIF TALENT:MASTER:力持ち == 1
				PRINTFORML 「少しは鍛えているようですね」
				PRINTFORMW 「最後に信じられるのは己の肉体だけですから、お互いに頑張りましょうね」
			ENDIF
		ELSEIF RAND:8 == 0 && CFLAG:下着確認済 == 0 && EQUIP:スカート && CFLAG:スカートめくり == 0
			PRINTFORML 「……私のパンツの色ですか？」
			IF FIND_COND("現在存在", "パラチネ")
				PRINTFORMW 「後で教えてあげますから……今は我慢してくださいね」
			ELSEIF EQUIP:パンツ && TALENT:恋慕 && RAND:2
;				PRINTFORMW 「%CLOCOLOR(CSTR:パンツ, "形容詞")%パンツですが、お気に召しましたか？」
				IF RAND:2 == 0
					PRINTFORML 「今日履いているのは……%CLOCOLOR(CSTR:パンツ)%の%PANTIES(TARGET, "種類")%ですが、お気に召しましたか？」
				ELSE
					PRINTFORML 「……今日の%TEXTR("下着/パンツ/ショーツ")%は%CLOCOLOR(CSTR:パンツ)%の%PANTIES(TARGET, "種類")%です」
				ENDIF
				IF RAND:2 == 0
					PRINTFORMW 「もう……%CNAME("二人称")%はえっちなんだから、他の子には聞いちゃダメですからね」
				ELSE
					PRINTFORMW 「%CNAME("一人称")%の下着の色を聞いて興奮しちゃうんですか……%TEXTR("本当に困った人ですね/後でお説教ですからね/ちょっぴり嬉しい気もしますけどダメですからね")%」
				ENDIF
				CALL SETFLAG_DAILY, "パンツ色確認"
			ELSE
				PRINTFORMW 「その手には乗りませんよ」
			ENDIF
		ELSEIF RAND:7 == 0
			IF FIND_COND("現在存在", "パラチネ")
				ACTOR = FIND_COND("現在存在", "パラチネ")
				;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
				PRINTFORML 「好きなプレイを聞かれてもみだりに人前で話してはいけませんよ」
				PRINTFORMW 『流石ですね、わたしも気をつけないと』
			ELSE
				PRINTFORML 「好きなプレイ……ですか？」
				IF TALENT:恋慕 && RAND:2 == 0
					IF RAND:3 == 0
						PRINTFORMW 「あまり考えた事もなかったのですが、身体を動かす事は嫌いではないので何でも」
					ELSEIF RAND:2 == 0
						PRINTFORML 「手を繋いだり……してくれるなら嬉しいですけど」
						PRINTFORMW 「い、嫌じゃないならですからね」
					ELSE
						PRINTFORMW 「……%CNAME("二人称")%とくっついていられるなら何でも、なんて冗談ですからね」
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「愛し合う二人がする事なら何の問題もないと思いますよ」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「愛があればどんなプレイでも良いと思いますよ。愛があれば」
					ELSE
						PRINTFORMW 「愛を確かめ合うのであればどの様なものでも良いと思います」
					ENDIF
				ENDIF
			ENDIF
		ELSEIF RAND:6 == 0
			PRINTFORML フンッ、フンッ
			PRINTFORMW %CALLNAME:TARGET%が%TEXTR("一生懸命/頑張って")%筋トレに励んでいる。
			IF RAND:4 == 0
				CALL PRINT_STR, @"「%TEXTR("人間は悪魔と違って鍛えないと強くはなれませんから/鍛錬を怠ると鈍るのは武器も筋肉も同じですから")%」_L"
				PRINTFORMW 「あるいは……悪魔と取引してしまえば別ですけどね」
				IF FIND_COND("現在存在", "フェリシエル") && RAND:2 == 0
					ACTOR = FIND_COND("現在存在", "フェリシエル")
					;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
					PRINTFORML 話を聞きつけたフェリシエルがやってきた。
					CALL PRINT_STR, @"『%TEXTR("魂の取引なら何時でもウェルカムですよ？/その気になったら何時でも呼んでくださいね")%』_W"
					CALL PRINT_STR, @"「%TEXTR("お気遣いだけで結構です/間に合ってますから、それよりご一緒にトレーニングでも如何でしょうか")%」_W"
				ELSEIF FIND_COND("現在存在", "パラチネ")
					ACTOR = FIND_COND("現在存在", "パラチネ")
					;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
					CALL PRINT_STR, @"『%TEXTR("マリーさんの場合は趣味ですよね/身体を鍛えるのが趣味じゃないんですか/相変わらずマゾいトレーニングですね……")%』_L"
					CALL PRINT_STR, @"「%TEXTR("解りました、一緒にやりましょうね/そんなに一緒に鍛えたいんですか/パラチネの為に特別メニューを考えておきました")%_HH_」_L"
					CALL PRINT_STR, @"『%TEXTR("わ、わたしはそんなつもりじゃ……/た、助けてくださーい！！")%』_W"
				ELSE
					PRINTFORMW 「楽をしたい、より効率良くという考えは大事ですが魂の取引は堕落です。堕落はいけません」
				ENDIF
			ELSEIF RAND:3 == 0
				PRINTFORML 「%CALLNAME:MASTER%は筋肉は無い方が好みでしょうか」
				PRINTFORMW 「いえ、聞いてみただけですよ……」
			ELSEIF RAND:2 == 0
				PRINTFORML 「……そんな顔されても困りますけど」
				PRINTFORMW 「ファンタジーじゃないんですから、日々の鍛錬なくして強くはなれません」
			ELSE
				PRINTFORML 「一緒にトレーニングしますか？」
				PRINTFORMW 「大丈夫ですよ、最初は誰でもキツイものですから」
			ENDIF
		ELSEIF RAND:5 == 0
			IF FIND_COND("現在存在", "フェリシエル") && RAND:2 == 0
				ACTOR = FIND_COND("現在存在", "フェリシエル")
				;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
				PRINTFORML %CALLNAME:TARGET%とフェリシエルが揃って掃除をしている。
				PRINTFORML 「ココからココまでは私がやりますから、貴方はソチラ側をお願いします」
				CALL PRINT_STR, @"『%TEXTR("手伝ってくれる人がいると助かりますね/終わったら一緒にお茶にしましょう")%』_L"
				CALL PRINT_STR, @"「%TEXTR("やるからには徹底的に頑張りましょう/当然の事をしているまでです/やるからには勝負です。負けませんからね")%」_W"
			ELSE
				PRINTFORML 「さて、お掃除終了ですね」
				IF RAND:2
					IF RAND:10 == 0
						CALL PRINT_STR, @"「辺り一面を丸ごと聖槍で一掃出来ると楽なんですが怒られそうですしね」_W"
					ELSE
						PRINTFORMW 「疲れたので、おやつをいただいてしまいましょうか」
					ENDIF
				ELSE
					PRINTFORMW 「一緒に頑張ってくれた%CALLNAME:MASTER%には特別にご褒美をあげましょう」
					CALL PRINT_STR, @"「%TEXTR("じゃーん/じゃ～ん")%_HH_　%CNAME("一人称")%%TEXTR("お手製/特製/秘蔵の")%%TEXTR("クッキー/ドーナツ/パンケーキ/チョコレート")%ですよ」_W"
				ENDIF
			ENDIF
		ELSEIF RAND:4 == 0
			IF RAND:3 == 0
				PRINTFORML 「良く見ているのですね」
			ELSEIF RAND:2 == 0
				PRINTFORML 「やっぱり気がつかれちゃいましたか」
			ELSE
				PRINTFORML 「黙っていても解るものなんですね」
			ENDIF
			PRINTFORM 「現代風の%TEXTR("お化粧/オシャレ")%を
			IF FINDCHARA(NO, 1) > 0 && RAND:2 == 0
				PRINTFORML フェリシエルさんに習ってるんですよ」
				CALL PRINT_STR, @"「%TEXTR("悪魔との取引ではありませんよ……/悪魔に気を許した訳ではありませんが、")%_"
				CALL PRINT_STR, @"%TEXTR("女の子同士の/友達との")%%TEXTR("素敵/大事")%な%TEXTR("交流/情報交換/秘密")%です」_W"
			ELSEIF FINDCHARA(NO, 6) > 0 && RAND:2 == 0
				PRINTFORML さくらさんに習ってるんですよ」
				CALL PRINT_STR, @"「%TEXTR("＿/聖女だって/聖職者だって/私も人並みに")%_"
				CALL PRINT_STR, @"もっと%TEXTR("可愛く/綺麗に")%なりたいですからね%TEXTR("♪/_HH_")%」_W"
			ELSEIF FINDCHARA(NO, 9) > 0 && RAND:2 == 0
				PRINTFORML %CALLNAME:FINDCHARA(NO, 9)%に習ってるんですよ」
				CALL PRINT_STR, @"「%TEXTR("現代の事は彼女の方が詳しいですから/日本は彼女の方が長いですから")%」_W"
			ELSE
				PRINTFORML 勉強したんですよ」
				CALL PRINT_STR, @"「%TEXTR("褒められるのは嬉しいですね/悪くはない気分ですよ")%」_W"
			ENDIF
		ELSEIF RAND:3 == 0
			PRINTFORML 「良かったらご一緒にどうですか？」
			IF RAND:2 == 0
				PRINTFORMW 「聖書の朗読は心が洗われますね」
			ELSE
				PRINTFORMW 「マンガと言うのは良いですね。解りやすく面白いです」
			ENDIF
		ELSEIF RAND:2 == 0
			IF FIND_COND("現在存在", "パラチネ") && RAND:3 == 0
				ACTOR = FIND_COND("現在存在", "パラチネ")
				;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
				PRINTFORML 「悪魔に囲まれて堕落していませんか、何時でも主は我等を見守っているのですよ」
				CALL PRINT_STR, @"『%TEXTR("た、多分大丈夫ですよ/……むぅ、信用してくださいよ/悪魔の誘惑には負けませんから")%』_W"
			ELSEIF RAND:2 == 0
				PRINTFORML 「本質的には悪魔も人間も大して変わらない、と思いますよ」
				PRINTFORMW 「つまり、人間であれ悪魔であれ悪に染まってしまえば滅ぼさねばなりません」
			ELSE
				PRINTFORML 「悪魔を殺しても平気なのかって？」
				PRINTFORMW 「殴っていいのは殴られる覚悟のあるやつだけです」
				;PRINTFORMW 「撃っていいのは撃たれる覚悟のあるやつだけだ」
				;PRINTFORMW 「アニメの受け売りですけどね」
			ENDIF
		ELSE
			IF FIND_COND("現在存在", "フェリシエル") && RAND:3 == 0
				ACTOR = FIND_COND("現在存在", "フェリシエル")
				;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
				CALL PRINT_STR, @"『%TEXTR("……というわけですよ/……ですねぇ/……ですか？")%』_L"
				PRINTFORML %CALLNAME:TARGET%とフェリシエルが談笑していた。
				CALL PRINT_STR, @"「%TEXTR("私は悪魔とも話し合いますよ、理解は必要ですから/悪魔である事を忘れている訳ではありません。それでも友は友ですから/悪魔だからと言って差別はいけません。対話は必要ですよ")%」_W"
			ELSEIF RAND:2 == 0
				PRINTFORML 「大切なのは対話です」
				PRINTFORMW 「悪魔とは話し合っても理解し合う事が難しいので、大体は最後の手段を選ばざる得ませんが……」
			ELSE
				PRINTFORML 「何事も先手必勝ですよ」
				PRINTFORMW 「恋も、バトルも、まずは行動しましょう」
			ENDIF
		ENDIF
	ENDSELECT

CASE "汗を拭く"
	IF TALENT:恋慕
		PRINTFORML 「%TEXTR("あ、ありがとうございます！/ありがとうございます/メルシー（Merci）")%」
		PRINTFORMW 「%TEXTR(@"汗臭くないですか、ちょっと心配なのですが/汗を拭いたタオルを嗅がない！　えっ、%CNAME("一人称")%の匂い好きなんですか……")%」
	ELSE
		PRINTFORMW 「%TEXTR("下心が透けて見えてますよ/汗の匂いは別に良い匂いとは思わないのですが……")%」
	ENDIF
CASE "シャワー独り言"
	PRINTFORML 「%TEXTR("シュヴァリィエ　ドゥ　ラ　タブル　ロンド♪（Chevaliers de la table ronde♪）/プレズィル　ダムゥル　ヌ　ドュル　カン　モモン♪（Plaisir d'amour ne dure qu'un moment）")%」
CASE "シャワー"
	;実は下着を漁ったのに気づかれています
	IF COND("シャワー：下着漁りバレ")
		PRINTFORML 「さて、お説教が必要のようですが……」
		PRINTFORMW 「逃がしませんよ、覚悟してくださいね」
	ELSE
		PRINTFORMW 「%CNAME("主人")%%TEXTR("もシャワー入ります？/、もしかしてシャワーの順番待ちでしたか？")%」
	ENDIF
CASE "シャワー後着替え"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORML 「なんでしょう……これは」
		PRINTFORMW 「部室にいる間ぐらいは、悪戯に付き合ってあげるとしましょうか♪」
	ELSE
		PRINTFORMW 「%TEXTR("エスカレートしてる気がしなくもないですが……/悪戯に付き合ってあげるのが大人のお姉さんの対応ですよね♪")%」
	ENDIF

CASE "シャワー後着替え失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORML 「%TEXTR("犯人は一人ですね/犯人が解りきった推理小説なんて面白みの欠片もないですけど")%」
		PRINTFORMW 「%TEXTR("ちゃんとお説教しないとダメみたいですね/悪戯を許してると取り返しのつかない事になったりしますからね")%」
	ELSE
		PRINTFORML 「%TEXTR("うん……/はぁ……")%」
		PRINTFORMW 「%TEXTR("懲りてませんね、これは/叱り方が悪かったんでしょうか、伝わってませんね……これは")%」
	ENDIF
;睡眠中の悪戯
CASE "寝込みを襲う"
	SELECTCASE STR:日常イベント名
		CASE "睡眠姦キス"
			PRINTFORML 「%TEXTR("ちゅっ……/ちゅう/好き……")%」
		CASE "睡眠姦フェラ"
			PRINTFORML 「%TEXTR("んっ……/んぅ……/ちゅうっ……/ちゅっ……")%」
		CASE "睡眠姦正常位", "睡眠姦寝バック"
			IF COND("起きそう")
				PRINTFORML 「%TEXTR("んっ……ふぁ？……/んぅ？……/んっ？……すやぁ……")%」
			ELSE
				PRINTFORML 「%TEXTR("はぁ……/んっ……/あっ……/もう……/ダメですよ……/")%」
			ENDIF
		CASEELSE
			;寝言
			CALL KOJO_SLEEP_K23
			WAIT
	ENDSELECT
CASE "もてなす"
	SELECTCASE STR:日常イベント名
	CASE "おっぱいリフトする"
		IF TALENT:妊娠
			PRINTFORML 「こらっ……ダメですよ」
			PRINTFORMW 「%TEXTR("おっぱい触られたら/悪戯したら")%、%TEXTR("赤ちゃんのミルク/母乳")%が溢れちゃうんですからね？」
		ELSEIF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0
			;★　意味はIF RAND:2 == 0と同様　2019/10/01加筆
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「%TEXTR(@"これもおもてなしなんですか……/%CNAME("二人称")%がしたいならいいですけど……")%」
					PRINTFORMW 「これ以上の事は……ここではちょっと……」
				CASEELSE
					PRINTFORML 「%TEXTR("他に誰もいないからってダメですよ/他の方がいなくても神様は見ておられますからね")%……」
					CALL PRINT_STRW, @"「%TEXTR("んっ/あっ")%_HH_　%TEXTR("悪戯が過ぎます/声が漏れちゃいます/こんな所誰かに見られたら")%……」"
			ENDSELECT
		ELSEIF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			CALL PRINT_STR, @"「%TEXTR("はぁん/あんっ")%_HH_」_L"
			PRINTFORMW 「%CNAME("主人")%%TEXTR("…もっと……/に触られるの…好きです……")%」
		;胸を豊穣で成長させた　超乳編
		ELSEIF TALENT:巨乳 >= 2 && (COND("初期爆乳") == 0 || COND("初期超乳") == 0) && CHECK_BODYS("競泳水着")
			PRINTFORMW 「%TEXTR("最近胸が大きくなったせいか……水着を着ると胸回りが窮屈なんですよね/水着の上からでも解っちゃいますよね。胸がちょっぴり大きくなったみたいで窮屈なんです")%」
		ELSE
			IF RAND:3 == 0
				IF RAND:2 == 0
					PRINTL 「えっと……」
				ELSE
					PRINTL 「きゃっ」
				ENDIF
				PRINTFORMW 「%TEXTR("一回殴ってもいいのでしょうか/一回ぐらい殺っても許されますよね/次やったら殺りますからね？")%」
			ELSE
				IF TALENT:MASTER:力持ち >= TALENT:力持ち && RAND:2 == 0
					IF TALENT:力持ち == 9 && RAND:2 == 0
						IF RAND:2 == 0
							PRINTFORMW %CALLNAME:TARGET%はフェイントを交えて、本気で%CALLNAME:MASTER%を襲ってきた。
						ELSE
							PRINTFORMW 振り向きざまに、疾く鋭い一撃が%CALLNAME:MASTER%を襲う。
						ENDIF
						PRINTFORMW だが、見える
						PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の攻撃を防いでみせた。
					ELSE
						PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の咄嗟に%CALLNAME:TARGET%のパンチを防いだ。
					ENDIF
					IF TALENT:力持ち == 9
						IF RAND:2 == 0
							PRINTFORML 「遂に互角になりましたね。その力で一緒に悪魔祓いしませんか？」
						ELSE
							PRINTFORML 「惜しい才能ですね……本当に」
						ENDIF
						CALL PRINT_STR, @"「%TEXTR("セクハラにしか使わないのは才能の無駄遣いですね/セクハラ以外に生かすべきですよ、その力は/どうしてセクハラにしかその力を発揮できないのですか")%」_W"
					ELSE
						IF RAND:3 == 0
							PRINTFORML 「今のを防ぎますか……」
							PRINTFORMW 「嬉しい反面、悔しいのでちょっと複雑な気持ちです」
						ELSEIF RAND:2 == 0
							PRINTFORML 「割と本気で殺そうと思ったんですが……」
							PRINTFORMW 「次はもう少し本気でいきますね」
						ELSE
							PRINTFORML 「パラチネより強くなってませんか？」
							PRINTFORMW 「今度、二人を戦わせてみるのも良さそうですね」
						ENDIF
						TALENT:力持ち = MIN(TALENT:力持ち + 2, 9)
					ENDIF
				ELSE
					PRINTFORML %TEXTR("ドゴォ/バキィ/グチャァ/メキィ")%
					CALL PRINT_STR, @"「%TEXTR("すみません、背後に立たれると反射的に殴ってしまいます/申し訳ありません、背後に立たれると落ち着かないのでやめてくださいね/私言いましたよね、背後に立つなって")%」_W"
					SETCOLOR DEF_COLOR("赤")
						PRINTFORML
						PRINTFORML 『システムメッセージ：衝撃を検知』
					RESETCOLOR
					BASE:MASTER:魂 -= 100
					CALL SETFLAG_DAILY, "不機嫌"
					IF BASE:MASTER:魂 <= 0
						CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
						PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
						BASE:MASTER:魂 = 1
					ELSE
						PRINTFORML 「今の一撃を耐えますか」
						IF RAND:3 == 0
							PRINTFORMW 「次は本気で殴っても良さそうですね♪」
						ELSEIF RAND:2 == 0
							PRINTFORMW 「意外と頑丈なのですね、%CNAME("二人称")%は」
						ELSE
							PRINTFORMW 「並の悪魔なら撃ち滅ぼせるはずなのですが……」
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	CASE "マッサージする"
		IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			CALL PRINT_STR, @"「%TEXTR("はぁはぁ/そこぉ")%_HH_……」_L"
			CALL PRINT_STR, @"「%TEXTR("もっとして……むにゃむにゃ……/気持ちいいの……スヤァ……")%_HH_」_W"
		ELSEIF CHECK_BODYS("競泳水着")
			PRINTFORML 「%TEXTR("水泳の前のマッサージですよね……触り方がちょっといやらしいですよ/……気持ちよくはなりましたけどちょっと違うと思います")%」
			PRINTFORML
			PRINTFORM %CALLNAME:MASTER%は%SWIM(CSTR:ボディスーツ, "種類")%を着た%CALLNAME:TARGET%を寝転がらせると
			PRINTFORMW %TEXTR("鼠径部を重点的にマッサージしながら、うっかり股間の上を撫でたりした/水着越しにお尻を掴み、質量のある尻肉を揉み解して楽しんだ/股間に水着を食い込ませてはみ出したお尻へのマッサージを堪能した")%。
		ELSEIF TALENT:妊娠
			IF RAND:2 == 0
				PRINTFORML 「ここに%CNAME("一人称")%と%CNAME("二人称")%の赤ちゃんがいるんですよ」
				PRINTFORMW 「ふふっ……パパにマッサージしてもらって、喜んでるみたいです」
			ELSE
				PRINTFORML 「マッサージと言うか、優しく撫でてあげてくださいね」
				PRINTFORMW 「%CNAME("一人称")%と%CNAME("二人称")%の赤ちゃん、元気に育ってますよ」
			ENDIF
		;2019/10/01　分岐を追加
		ELSEIF TALENT:恋慕 && RAND:2 == 0
			IF RAND:2 == 0
				PRINTFORML 「んっ……触り方がちょっぴりエッチですよ……」
				IF CHARA_NUM("室内の邪魔者")
					PRINTFORMW 「そう言うのは二人っきりの時にしましょうね」
				ELSE
					PRINTFORMW 「ダメですよ。他の方もいるのに……」
				ENDIF
			ELSE
				PRINTFORML 「ダメです……からね……」
				PRINTFORMW 「んっ……悪戯%TEXTR("を続ける/する")%なら%TEXTR(@"他の部屋に行きましょうか/%CNAME("一人称")%にも考えがありますからね")%」
			ENDIF
		ELSE
			IF RAND:5 == 0
				PRINTFORML 「ふぅ……」
				PRINTFORMW 「いけませんね。このままだと眠ってしまいそうです」
			ELSEIF RAND:4 == 0
				PRINTFORML 「ふふっ、%CNAME("二人称")%には意外な特技があるのですね」
				PRINTFORMW 「マッサージとっても上手です♪」
			ELSEIF RAND:3 == 0
				PRINTFORML 「メルシー（Merci）♪」
				PRINTFORMW 「ありがとうございます、後で%CNAME("二人称")%にもしてあげましょうか」
			ELSEIF RAND:2 == 0
				PRINTFORML 「お気遣いありがとうございます」
				PRINTFORMW 「優しいのですね♪」
			ELSE
				PRINTFORML 「ありがとうございます、終わったら%CNAME("二人称")%にもしてあげますね」
				PRINTFORMW 「ちゃんと%TEXTR("手加減/力加減")%しますから大丈夫ですよ？」
			ENDIF
		ENDIF
	CASE "キスする"
		;キス二回目　連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF CHARA_NUM("室内の邪魔者") >= 1
				IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
					CALL PRINT_STRL, @"「%TEXTR("ちゅっ/ちゅ")%_HH_　%TEXTR("んっ…れろれろっ/はぁ…くちゅくちゅ")%_HH_」"
					PRINTFORMW %CALLNAME:TARGET%はみんなに見せつける様に%CALLNAME:MASTER%に抱きつき、二人は濃厚なキスを交わした。
				ELSE
					IF TALENT:相思相愛 && RAND:2 == 0
						PRINTFORML 「%TEXTR("二人っきりの時なら許してあげますけど……/……ダメですよ")%」
						PRINTFORMW 「%TEXTR("悪い子/イケナイ子")%には%TEXTR("お仕置きが必要みたいですね？/お仕置きです")%」
					ELSE
						PRINTFORML 「%TEXTR("……情熱的/諦めが悪い")%ですね、%CNAME("二人称")%は」
						PRINTFORMW 「いいでしょう、%TEXTR("飽きらめてくれる/今後、こういう事をしなくなる")%までお付き合いしますよ」
					ENDIF
					;キス報復を防いだ
					IF TALENT:MASTER:力持ち >= TALENT:力持ち && RAND:3 == 0
						IF TALENT:力持ち == 9 && RAND:2 == 0
							IF RAND:2 == 0
								PRINTFORML %CALLNAME:TARGET%は軽くステップを踏んだと思うと、瞬く間に%CALLNAME:MASTER%に間合いを詰めてきた。
							ELSE
								PRINTFORML %CALLNAME:TARGET%は息を整えると、真剣な表情で%CALLNAME:MASTER%に襲いかかってきた。
							ENDIF
							PRINTFORMW %TEXTR("低い体勢からのアッパーだ/綺麗に孤を描き蹴り足が来る")%。
						ELSE
							PRINTFORMW %CALLNAME:TARGET%の%TEXTR("容赦ない/鋭い/素早い")%一撃。
						ENDIF
						CALL PRINT_STR, @"「%TEXTR("辛うじて/紙一重で/間一髪/")%だが、%CALLNAME:MASTER%は%CALLNAME:TARGET%の攻撃を防いでみせた。_W"
						IF TALENT:力持ち == 9
							IF RAND:2 == 0
								PRINTFORML 「良い勝負だったので、キスの事は許します」
							ELSE
								PRINTFORML 「やるじゃないですか。今回は不問にしておきますね」
							ENDIF
							CALL PRINT_STR, @"「%TEXTR("ただし、次はダメですよ？/……二人きりなら考えてあげますからね？/解ってると思いますが、今回だけですよ")%」_W"
						ELSE
							IF RAND:3 == 0
								PRINTFORML 「驚きましたね……」
								PRINTFORMW 「手加減したといっても、並の人間なら瀕死になるはずなのですが……」
							ELSEIF RAND:2 == 0
								PRINTFORML 「ビックリしました」
								PRINTFORMW 「実は%CALLNAME:MASTER%って戦えたりします？」
							ELSE
								PRINTFORML 「パラチネよりはやーい！　こうでしたっけ」
								PRINTFORMW 「手加減しなければ良かったですね。次は本気でやりましょう」
							ENDIF
							TALENT:力持ち = MIN(TALENT:力持ち + 2, 9)
						ENDIF
					;キス報復を防げなかった
					ELSE
						PRINTFORMW %CALLNAME:TARGET%の%TEXTR("容赦ない/鋭い/素早い")%一撃。
						SETCOLOR DEF_COLOR("赤")
							PRINTFORML
							PRINTFORML 『システムメッセージ：衝撃を検知』
						RESETCOLOR
						BASE:MASTER:魂 -= 100
						CALL SETFLAG_DAILY, "不機嫌"
						IF BASE:MASTER:魂 <= 0
							;PRINTFORML 『おお　ご主人様よ、死んでしまうとは情けない……』
							CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
							PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
							BASE:MASTER:魂 = 1
							IF RAND:3 == 0
								PRINTFORML 「主よ、お許しください」
								PRINTFORMW 「願わくばこの御魂に平穏があらん事を」
								PRINTFORMW %CALLNAME:MASTER%の命を奪ってしまった%CALLNAME:TARGET%は懺悔している。
							ELSEIF RAND:2 == 0
								PRINTFORML 「まだ続けます？」
								PRINTFORMW 「%CNAME("一人称")%としては弱いモノいじめみたいで心が痛むのですが……」
							ELSE
								PRINTFORML 「そろそろ懲りてくれましたか？」
								PRINTFORMW 「反省文を書いてもらってもいいんですよ」
							ENDIF
						ENDIF
					ENDIF
				ENDIF
			;室内の邪魔者がいない
			ELSE
				;2019/10/01　分岐を追加
				IF TALENT:恋慕 && SAVESTR:現在位置 == "公園"
					CALL PRINT_STRL, @"「%TEXTR("ちゅっ/ちゅうっ")%_HH_　くちゅっ、%TEXTR("ちゅっ/ちゅうっ")%_HH_　んっ……はぁ……」"
					IF RAND:2 == 0
						CALL PRINT_STRW, @"「%CNAME("主人")%%TEXTR("……好きです/……愛してます/……もっと続けてください/の情熱的なキス……素敵です")%_HH_」"
					ELSE
						CALL PRINT_STRW, @"「%TEXTR("公園/お外")%で……%TEXTR("するキスは刺激的ですね/口づけを交わすのはちょっぴり恥ずかしいです/キスするのは悪い事をしている気分になっちゃいますね")%_HH_」"
					ENDIF
				ELSE
					CALL PRINT_STR, @"「%TEXTR("ちゅ/ちゅっ")%_HH_」_L"
					IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
						CALL PRINT_STR, @"「%TEXTR("ちゅー_HH_…んっ…好き……/ちゅっ、キスするの好きです")%_HH_」_W"
					ELSE
						CALL PRINT_STR, @"「%TEXTR("もう……エッチな事したいんですか？/嫌じゃないですけど……恥ずかしいじゃないですか/嫌だったら、抵抗してますからね……")%」_W"
					ENDIF
				ENDIF
			ENDIF
		;キスする一回目
		ELSE
			IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
				CALL PRINT_STR, @"「%TEXTR("ちゅっ_HH_　ちゅう_HH_/ちゅ_HH_…んんっ……")%」_L"
			ELSEIF CHARA_NUM("室内の邪魔者") >= 1
				IF TALENT:相思相愛 && RAND:3 == 0
					CALL PRINT_STRL, @"「%TEXTR("んっ/んぅ")%_HH_　%TEXTR("こらっ……何をするんですかっ！/もうっ、みんなが見てる前でするなんてっ！！")%」"
				ELSEIF TALENT:恋慕 && RAND:2 == 0
					PRINTFORML 「%TEXTR("もう/こら")%っ、%TEXTR("皆さんの前でキスするなんて、恥ずかしいですからね！？/皆さんに見られているんですよ！？")%」
				ELSE
					PRINTFORML 「%TEXTR("きゃっ、もうダメですよ/そういうのは……二人っきりの時にお願いします/キスしてもいいですけど……時と場合を考えてください")%」
				ENDIF
				;キス報復一回目　防いだ
				IF TALENT:MASTER:力持ち >= TALENT:力持ち && RAND:3 == 0
					IF TALENT:力持ち == 9 && RAND:2 == 0
						IF RAND:2 == 0
							PRINTFORMW 抜き打ちで放たれる平手打ちが%CALLNAME:MASTER%を襲う。
						ELSE
							PRINTFORMW 強く握りしめられた拳が%CALLNAME:MASTER%を襲う。
						ENDIF
					ELSE
						PRINTFORMW 言葉とは裏腹に、狙い澄ました一撃が%CALLNAME:MASTER%を襲う。
					ENDIF
					CALL PRINT_STR, @"%TEXTR("辛うじて/紙一重で/間一髪")%だが、%CALLNAME:MASTER%は%CALLNAME:TARGET%の攻撃を防いでみせた。_W"
					IF TALENT:力持ち == 9
						IF RAND:2 == 0
							PRINTFORML 「んー……本気じゃないとダメみたいですね」
						ELSE
							PRINTFORML 「流石です。手加減してはもう通用しませんか」
						ENDIF
						CALL PRINT_STR, @"「%TEXTR("次は覚悟してください/次は本気でやりますね/いつでも挑戦してください。次は本気ですから")%」_W"
					ELSE
						CALL PRINT_STR, @"「%TEXTR("ちゅ/ちゅっ/チュッ")%_HH_」_L"
						CALL PRINT_STR, @"「%TEXTR("が、頑張ったご褒美ですからね！？　人前でキスするのは本当はいけません/ご褒美です。次も頑張ってくださいね/やれば出来るじゃないですか。ご褒美です")%」_L"
						PRINTFORML
						CALL PRINT_STR, @"「%TEXTR("でも、次は許しませんからね/次はありません、今回だけです/今回だけ特別ですからね")%」_W"
						TALENT:力持ち = MIN(TALENT:力持ち + 2, 9)
					ENDIF
				;キス報復一回目　された
				ELSE
					PRINTFORMW %TEXTR("ドコォ/バキィ/メキィ")%
					SETCOLOR DEF_COLOR("赤")
						PRINTFORML
						PRINTFORML 『システムメッセージ：衝撃を検知』
					RESETCOLOR
					BASE:MASTER:魂 -= 100
					CALL SETFLAG_DAILY, "不機嫌"
					IF BASE:MASTER:魂 <= 0
						;PRINTFORML 『おお　ご主人様よ、死んでしまうとは情けない……』
						CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
						PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
						BASE:MASTER:魂 = 1
					ENDIF
				ENDIF
			;室内の邪魔者がいない
			ELSE
				IF TALENT:恋慕 && SAVESTR:現在位置 == "公園"
					;可読性がゴミになってきたので分岐を整理
					;★　意味はIF RAND:2 == 0と同様　2019/10/01加筆
					CALL PRINT_STR, @"「%TEXTR("ちゅ/ちゅう/ちゅっ")%_HH_」_L"
					SELECTCASE RAND:6
						CASE 5
							CALL PRINT_STRW, @"「二人っきりの公園でキスするのって……ちょっぴり恥ずかしいですけど、素敵だと思います%TEXTR("＿/_HH_")%」"
						CASE 4
							CALL PRINT_STRW, @"「こうして夜の公園で%TEXTR("＿/星を見ながら/月を眺めて")%二人%TEXTR("＿/っきり")%で過ごすのって恋人同士みたいで素敵ですね%TEXTR("＿/_HH_")%」"
						CASE 3
							CALL PRINT_STRW, @"「うふふっ……%CNAME("一人称")%だって女の子ですから、ちょっぴり嬉しくなっちゃいますからね_HH_」"
						CASE 2
							CALL PRINT_STRW, @"「……%TEXTR("ふふっ/うふふっ")%、%TEXTR("今は/今夜は")%%TEXTR("＿/本当に")%二人っきりですね_HH_」"
						CASE 1
							CALL PRINT_STRW, @"「こんな所を誰かに見られちゃったらどうしましょう……%TEXTR(@"他の子に内緒でデートしちゃうなんて%CNAME("一人称")%達は悪い子ですね/デートしてたって噂になっちゃいそうですね")%%TEXTR("＿/_HH_")%」"
						CASEELSE
							CALL PRINT_STRW, @"「%TEXTR("ふふっ/うふふっ")%、キスしてる所、誰かに見られちゃうかもしれませんね%TEXTR("＿/_HH_")%」"
					ENDSELECT
					IF TALENT:淫乱
						PRINTFORMW %CALLNAME:TARGET%は積極的に%CALLNAME:MASTER%に身体を%TEXTR("密着させて/預けて")%%TEXTR("うっとりとした表情で微笑んだ/甘い吐息を吐いた")%…
					ELSE
						PRINTFORMW %CALLNAME:TARGET%はさりげなく%CALLNAME:MASTER%に身体をくっつけて%TEXTR("少し恥ずかしそうにしながら微笑んだ/恥ずかしそうに視線をそらした")%…
					ENDIF
				ELSE
					CALL PRINT_STR, @"「%TEXTR("ちゅ/ちゅっ")%_HH_」_L"
					CALL PRINT_STR, @"「%TEXTR("二人っきりだからってハメを外しすぎではないですか？/誰か来たら、どうするんですか？/二人きりじゃないと……ダメですからね？")%」_W"
				ENDIF
			ENDIF
		ENDIF
	CASE "膝枕する"
		IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			PRINTFORML 「くんくん……%CNAME("二人称")%の匂い、落ち着きます」
			PRINTFORMW 「ずっとこのままで……好き……」
		ELSEIF CHARA_NUM("室内の邪魔者") >= 1
			SELECTCASE RAND:2
				CASE 1
					PRINTFORML 「落ち着かないですね……」
					PRINTFORMW 「膝枕はされるより、する方が好きです」
				CASEELSE
					PRINTFORML 「お気遣いはありがたいのですけど……」
					PRINTFORMW 「ちょっぴり落ち着かないと言うか。恥ずかしいですね……」
			ENDSELECT
		ELSEIF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR("ふふっ/うふふっ")%_HH_」"
			PRINTFORM 「%TEXTR(@"ご好意に甘えさせていただきます/%CNAME("二人称")%に甘えちゃいますね")%
			IF RAND:2 == 0
				PRINTFORML 」
				PRINTFORMW 「%TEXTR(@"……%CNAME("一人称")%は本当に幸せ者ですね/こんな風にしてるとちょっぴり眠くなってきちゃいますね……/ずっとこうしていたいぐらいです……")%」
			ELSE
				PRINTFORMW 」
			ENDIF
		ENDIF
	CASE "お茶を淹れる"
		;マリーさんと二人羽織でコタツに入りながらとか
		IF CHARA_NUM("室内の邪魔者") == 0 && COND("夜") && TEXTS("季節") == "冬" && RAND:2 == 0
			PRINTFORML 「%TEXTR(@"お茶を淹れてくださったんですね/言ってくれれば%CNAME("一人称")%が淹れましたよ。ありがとうございます")%」
			PRINTFORMW 「こうやって二人っきりでコタツに入っていると%TEXTR("ドキドキしちゃいますね……/まるで……夫婦になったみたいですね/ちょっと眠たくなってきちゃいますね")%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%TEXTR("メルシー（Merci）♪/ありがとうございます")%。%TEXTR(@"%CNAME("二人称")%に淹れてもらうと特別に美味しいですね/%CNAME("二人称")%は良い伴侶になれますね/%CNAME("二人称")%となら良い家庭が築けそうですね")%」
		ELSE
			PRINTFORMW %TEXTR("ありがとうございます、美味しいですね/良い茶葉を使っているのですね。とっても美味しいです")%
		ENDIF
		CALL SET_CEVENT, "イベント：お茶を淹れる／マリー"
	;注意：マリーちゃんにお酒を与えてはいけません
	;日頃のストレスから、ぶっ壊れてしまい、抱きついてキスしたがり服を脱ぎ始めるヤバイやつになります。
	CASE "お酒をふるまう"
		IF FIND_COND("現在存在", "フェリシエル") && NO:ASSI == 1
			ACTOR = FIND_COND("現在存在", "フェリシエル")
			;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
			IF RAND:2 == 0
				CALL PRINT_STRL, @"「%CALLNAME:ASSI%さん……%TEXTR("前から思ってたんですけど/三人に増えてますけど/とーっても")%_%TEXTR("好きです/可愛いですね")%_HH_」"
				PRINTFORM %TEXTR(@"酔っ払った%CALLNAME:TARGET%は/%CALLNAME:TARGET%は酔った勢いで")%
				PRINTFORMW フェリシエルに%TEXTR("抱きついている/キスを迫っている")%
			ELSE
				CALL PRINT_STRL,@"「%CALLNAME:ASSI%さんと……%CNAME("主人")%。%TEXTR(@"三人でこのままお外にデートに行きましょうか/それと%CNAME("一人称")%で深夜のデートしましょう")%_HH_」"
				PRINTFORM %TEXTR(@"酔っ払った%CALLNAME:TARGET%は/%CALLNAME:TARGET%は酔った勢いで")%
				PRINTFORMW フェリシエルに%TEXTR("デートに出かけようと誘っている/絡んでいる")%
			ENDIF
		ELSEIF FIND_COND("現在存在", "パラチネ") && NO:ASSI == 9
			ACTOR = FIND_COND("現在存在", "パラチネ")
			;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
			CALL PRINT_STRL, @"「%CALLNAME:ASSI%の事……%TEXTR("大好きですからね/愛してますからね/いつもイジメてごめんなさい。好きなの")%_HH_」"
			PRINTFORM %TEXTR(@"酔っ払った%CALLNAME:TARGET%は/%CALLNAME:TARGET%は酔った勢いで")%
			PRINTFORMW %CALLNAME:FINDCHARA(NO, 9)%を%TEXTR("強く抱きしめている/押し倒そうとしている")%
		ELSE
			IF TALENT:恋慕 && RAND:8 == 0
				PRINTFORML 「%CNAME("主人")%、好きです」
				PRINTFORMW 「もう一度言いますね。%CNAME("主人")%、好きです」
			ELSEIF TALENT:恋慕 && RAND:7 == 0
				PRINTFORML 「……%CNAME("一人称")%だって本当は%CNAME("主人")%が喜ぶなら何でもしてあげたいんです」
				PRINTFORMW 「でも……%CNAME("一人称")%が滅茶苦茶すると、怒られるんですよ…法皇様に……いいじゃないですか、ちょっとぐらい」
			ELSEIF TALENT:恋慕 && RAND:6 == 0
				PRINTFORML 「知ってますか……%CNAME("一人称")%は%CNAME("主人")%が好きなんです」
				PRINTFORMW 「ちゃんと伝わってるか、心配なんです……」
			ELSEIF RAND:5 == 0
				PRINTFORML 「暑いですね。脱いじゃいましょう……」
				PRINTFORMW 「……ふぅ」
				CALL SETFLAG, "下着姿になる", TARGET
			ELSEIF RAND:4 == 0
				PRINTFORML 「すごく美味しいですね」
				PRINTFORMW 「……ふぅ。%CNAME("一人称")%とキスしますか」
			ELSEIF RAND:3 == 0
				PRINTFORML 「これってお茶じゃないですね……」
				PRINTFORMW 「あ、でも美味しいです…美味しい…もっと飲めます。美味しい」
			ELSEIF RAND:2 == 0
				PRINTFORML 「……美味しい」
				PRINTFORMW 「ふわふわしてきますね……」
			ELSE
				CALL PRINT_STRW, @"「……%TEXTR(@"一人、二人……%CNAME("主人")%がいっぱい増えちゃってますね/%CNAME("二人称")%って……よく見ると可愛いですね")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("一人称")%と/おねーさんと")%%TEXTR("ちゅーしてくれますよね、ちゅう/キスしましょう、ちゅっ")%_HH_」"
			ENDIF
		ENDIF
	;当然だが尻尾がある相手のみ
	CASE "しっぽをなでる"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「んぅ！？　これがしっぽを撫でられる感じなのですね」
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「ダメですよ、悪戯ばっかりしては」
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW 「こらっ、しっぽを撫でる時はちゃんと先に言ってくださいね」
		ELSE
			PRINTFORMW 「んっ。この感覚は何時になっても慣れませんね」
		ENDIF
	CASE "一緒に勉強する"
	;	PRINTFORML ……どうする？
	;	IF FLAG:呼び出しＨ中
	;		PRINTFORML [0]襲う
	;		PRINTFORML [1]もう少しいちゃつく
	;	ELSE
	;		PRINTFORML [0]受ける
	;		PRINTFORML [1]やんわりと断る
	;	ENDIF
	;
	;	REDRAW 0
	;	FLAG:SELECT_USERSHOP = 202
	;	CSTR:お誘い = %STR:日常イベント名%

		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORML 「お勉強ですか……」
			PRINTFORMW 「実はあまり得意ではないのですが、%CNAME("一人称")%は%CNAME("二人称")%より年上ですし」
			PRINTFORMW 「簡単な質問であればお答えできると思います……多分」
		;★他のヒロインとＨな約束をしている
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && FIND_COND("Ｈな約束") && TALENT:相思相愛 && CEVENT("イベント：他の子と試験のＨな約束をした／マリー") == 0
			IF RAND:2 == 0
				PRINTFORMW 「小耳に挟んじゃったのですが……」
				PRINTFORMW 「%CNAME("主人")%は他の子と%TEXTR("Ｈな約束をして浮気しているって聞きました/Ｈな約束をしているそうですね？")%」
				PRINTFORMW （こんな部活ですし……今更な気もしますが、恋人としては真意を問いただしておかなくてはいけませんよね！？）
				PRINTFORMW 「……別に構いませんけど……その%CNAME("一人称")%からもご褒美とか……いりませんか？」
			ELSE
				PRINTFORMW 「試験で良い点を取ったらエッチなご褒美をもらう約束をしたと聞いたのですが？」
				PRINTFORMW 「あの……%CNAME("一人称")%とはしてくれないんですか……」
				PRINTFORMW 「%CNAME("一人称")%で良ければ……%CNAME("主人")%がテストで良い点を取ったら、して欲しい事を何でもしてあげますからね？」
			ENDIF
	 		CALL SET_CEVENT, "イベント：他の子と試験のＨな約束をした／マリー"
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			IF TALENT:恋慕 && RAND:2 == 0
				CALL PRINT_STRW, @"「%TEXTR(@"勉強を頑張ったら何かご褒美をあげますからね/勉強を頑張ったご褒美は何が良いですか、%CNAME("主人")%")%_HH_」"
			ELSE
				PRINTFORMW 「%TEXTR(@"またこの時間が来てしまったのですね……少し憂鬱ですが%CNAME("主人")%と一緒なら頑張れます/勉強を一緒に頑張りましょうね、%CNAME("主人")%")%」
			ENDIF
		;ELSEIF COND("欲求不満") >= 2
;		ELSE
;			PRINTFORMW 「%TEXTR("勉強って飽きてきちゃいますね……こほん、何でもありませんよ/ふぅ……少し眠くなってきませんか/勉強してると眠くなっちゃうんですよね……")%」
		ENDIF
	CASEELSE
		PRINTFORMW 「おもてなしありがとうございます。これが日本の心」
	ENDSELECT
CASE "頭を撫でる"
	CALL PRINT_STRW, @"「%TEXTR(@"ありがとうございます。後で%CNAME("二人称")%も撫でてあげますからね/ちょっと……恥ずかしいですけど、嬉しいですよ")%_HH_」"
;胸元にチップを差し込まれます。バニースーツ限定
CASE "チップを渡す"
	CALL PRINT_STRL, @"「%TEXTR("ふふっ/うふふっ")%_HH_　%TEXTR("ありがとうございます/Merci（メルスィー）")%_HH_」"
	CALL PRINT_STRL, @"「目を閉じててくださいね……%CNAME("主人")%への%TEXTR("お礼です/お礼をしちゃいます")%_HH_」"
	CALL PRINT_STRW, @"「%TEXTR("ちゅっ/ちゅう")%_HH_」"
;プレゼント貰った感想です。何を貰ったか含め、好きに書いてください
CASE "手頃な物をプレゼント"
	PRINTFORML 「%CNAME("一人称")%の為に%TEXTR("お菓子/ケーキ/スイーツ")%をわざわざ用意してくれたのです%TEXTR("か/ね")%」
	CALL PRINT_STRW, @"「%TEXTR("ありがとうございます/Merci（メルスィー）")%_HH_　良かったら一緒にお茶にしませんか？」"
;ココから何を貰ったとは明文化しない事にする。日常品からえっちなものまで、あなた次第で色々変わるのでな！
CASE "そこそこする物をプレゼント"
	CALL PRINT_STRL, @"「%TEXTR("ありがとうございます/Merci（メルスィー）")%_HH_」"
	CALL PRINT_STRW, @"「%TEXTR("素敵なモノをいただいてしまいました/一生懸命選んでくれたんですね/大事にします")%。お礼は何がいいですか？……何でも、はダメですけど少しは無理も聞いてあげますからね？_HH_」"
;デートにもって行けるモノであるという前提にする
CASE "お高い物をプレゼント"
	CALL PRINT_STRL, @"「%TEXTR("ありがとうございます/Merci（メルスィー）")%_HH_」"
	IF TALENT:恋慕
		CALL PRINT_STRW, @"「%TEXTR("ちゅ/チュッ/ちゅう/チュウ")%_HH_……%TEXTR("次のデートの時には持って行きますね/大事に使いますね")%_HH_」"
	ELSE
		CALL PRINT_STRW, @"「%TEXTR("こんな素敵なモノをいただいてしまうなんて……ちょっと申し訳なくなっちゃいますね/あまり無駄遣いしてはダメですよ？　もちろん、気持ちは嬉しいですけどね")%」"
	ENDIF

CASE "寝姿を整える"
	;寝言
	CALL KOJO_SLEEP_K23
	WAIT
CASE "勉強の誘いを断られた"
	IF TALENT:恋慕
		IF RAND:2 == 0
			PRINTFORML 「……そうですか」
			PRINTFORMW 「勉強はちゃんとしないとダメですよ？」
		ELSE
			PRINTFORML 「解りましたけど……」
			PRINTFORMW 「後でちゃんとお勉強しましょうね？」
		ENDIF
	ELSE
		PRINTFORMW 「%TEXTR("試験勉強は大事ですよ？　お暇そうにしてたらまた誘いますからね/解りました。お暇になったら声をかけてくださいね")%
	ENDIF
CASE "勉強前にパンツ要求"
	IF TALENT:恋慕
		PRINTFORML 「%TEXTR("もう/しょうがないですね")%……」
		PRINTFORMW 「%TEXTR(@"お願いは聞いてあげますから、ちゃ～んと一緒にお勉強するんですよ？/お願いを聞いてあげたんですから……真面目に一緒にお勉強してくださいね？")%」
	ELSE
		PRINTFORML %TEXTR("ドコォ/バキィ/メキィ")%
		PRINTFORMW %TEXTR("至近距離から/回避不能/電光石火")%の一撃が%CALLNAME:MASTER%を襲った
		SETCOLOR DEF_COLOR("赤")
			PRINTFORML
			PRINTFORML 『システムメッセージ：衝撃を検知』
		RESETCOLOR
		BASE:MASTER:魂 -= 100
		CALL SETFLAG_DAILY, "不機嫌"
		IF BASE:MASTER:魂 <= 0
			CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
			PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
			BASE:MASTER:魂 = 1
		ENDIF
		PRINTFORML
		PRINTFORMW 「%TEXTR("少し反省してくださいね/ちゃんとお勉強しましょうね/頭は冷えたでしょうか")%」
	ENDIF
CASE "隙を見せる"
	SELECTCASE STR:日常イベント名
	CASE "お風呂のお誘い"
		IF CFLAG:汗 || CFLAG:MASTER:汗
			PRINTFORML 「%TEXTR("クンクン……ちょっと汗臭いですね/少し……汗をかいてしまいましたね")%」
			PRINTFORMW 「%TEXTR("良かったら一緒にお風呂に入りませんか？　背中を流してあげますよ/一緒にお風呂に入りましょうか。教会では小さい子のお世話をしていますから身体を洗うのは任せてくださいね")%」
		ELSEIF COND("夜")
			PRINTFORMW 「%TEXTR("夜更かしも良いですけど、まずは一緒にお風呂に入ってからお喋りしたりしましょうか/まずはお風呂を済ませてからですよ。遊ぶのはそれからでも出来ますからね")%」
		ELSE
			PRINTFORMW 「%TEXTR("一緒にシャワーでもどうでしょう？/気分転換も兼ねて一緒にシャワーでもどうでしょうか？")%」
		ENDIF
	CASE "Ｈのお誘い"
		SELECTCASE DAILYCOMNAME_SELECT("隙を見せる")
		CASE "股間に見入る"
			IF TALENT:恋慕 && (STATE("悪酔い", TARGET) || STATE("酔い", TARGET))
				CALL PRINT_STRL, @"「%TEXTR("ふふっ/うふふっ")%_HH_　%TEXTR("何だか身体が熱くなってきちゃいました/身体がポカポカしてきちゃいました")%」"
				CALL PRINT_STRW, @"「%CNAME("主人")%%TEXTR("＿/ぁ")%……%TEXTR(@"%CNAME("一人称")%とエッチな事しませんかぁ/好きです……ギュって抱きしめてください/一緒に気持ちいい事しませんかぁ")%_HH_」"
			ELSE
				IF STRCOUNT(CSTR:DAILYCOM履歴, "Ｖ中出し") && RAND:5 == 0
					PRINTFORML 「……%CNAME("一人称")%は%TEXTR("聖職者/シスター/悪魔祓い")%なのに%TEXTR("こんなお願いをしてはいけないと思います/我慢出来ないんです")%」
					PRINTFORMW 「お願いします……もっと……%CNAME("一人称")%%TEXTR("をいっぱい愛してくれませんか/に注いで欲しいんです")%……」
				ELSEIF RAND:4 == 0
					CALL PRINT_STRL, @"「%CNAME("主人")%。%CNAME("一人称")%だって……したくなっちゃう時はあるんですからね%TEXTR("？/_HH_")%」"
					PRINTFORML 「%TEXTR(@"お願いです/%CNAME("一人称")%のはしたない頼みをきいてください")%……%TEXTR(@"%CNAME("二人称")%の手で滅茶苦茶にして欲しいんです/エッチな事をして欲しくってアソコが疼いちゃってるんです")%……」
				ELSEIF RAND:3 == 0
					PRINTFORML 「%CNAME("主人")%……%TEXTR("二人きりでお話したい事があるのですが/お暇そうですね、少し二人でお話しませんか？")%」
					PRINTFORML 「もう……解っていますよね」
					PRINTFORMW （%TEXTR(@"こんなにされたら/%CNAME("主人")%ばっかり楽しんで")%、%CNAME("一人称")%だって%TEXTR("したく/エッチしたく/愛し合いたく")%なっちゃうんですから……）
				ELSEIF RAND:2 == 0
					PRINTFORML 「%TEXTR("＿/あの")%……%CNAME("主人")%。もう我慢の限界なんです」
					PRINTFORMW 「%TEXTR(@"お願いします……%CNAME("一人称")%にエッチな事してくれませんか/こんなはしたない方法でお願いをするなんて……軽蔑しないでくださいね")%……」
				ELSE
				;2019/10/04　加筆
					PRINTFORML 「そんなに見つめられたら%CNAME("一人称")%%TEXTR("もドキドキし/だって気になっ")%ちゃいますからね……」
					CALL PRINT_STRW, @"「……%CNAME("主人")%%TEXTR("もし良かったら/お暇でしたら")%……%TEXTR(@"%CNAME("一人称")%としませんか/二人っきりで愛しあいませんか")%_HH_」"
				ENDIF
			ENDIF
			;競泳水着を着ている
			IF CHECK_BODYS("競泳水着")
				PRINTFORML
				IF RAND:2 == 0
					PRINTFORMW 競泳水着を着た%CALLNAME:TARGET%は胸を強調する様に背中を反らして切なげな表情を浮かべて%CALLNAME:MASTER%に懇願した。
				ELSE
					PRINTFORMW 競泳水着を着た%CALLNAME:TARGET%は背中を向けてお尻を突き出しながら、%CALLNAME:MASTER%を見上げて恥ずかしそうに頬を染めている。
				ENDIF
			;2020/01/31　加筆
			;ピアスがある場合のみ地の文を追加する
			ELSEIF TALENT:ラビアピアス == 0 && TALENT:クリピアス && (EQUIP:パンツ == 0 || EQUIP:パンツ && EQUIP:アウター == 0)
				PRINTFORML
				PRINTFORM %CALLNAME:TARGET%は
				IF EQUIP:パンツ && CHECK_PANTIES("Ｖ露出")
					PRINTFORM %TEXTR("秘所/アソコ/大事な部分")%が%TEXTR("露出している/隠れていない/丸見えになった")%%CLOCOLOR(CSTR:パンツ)%の%PANTIES(TARGET, "種類")%を履いたまま
				ENDIF
				SIF COND("陰核肥大")
					PRINTFORM %TEXTR("肥大した/大きな")%
				PRINTFORM %TEXTR("クリトリス/クリ/秘核/陰核")%
				PRINTFORM %TEXTR("を彩る/を飾る/につけられた")%
				IF CEVENTS("クリピアス") != ""
					PRINTFORM %CEVENTS("クリピアス", TARGET)%の
				ENDIF
				PRINTFORM %TEXTR("＿/クリ")%ピアスを%TEXTR("強調する様に腰をつきだし/揺らして")%、
				PRINTFORMW %CALLNAME:MASTER%に対して%TEXTR("微笑みかけた/うっとりとした表情を浮かべている")%。
			ELSEIF TALENT:ラビアピアス || TALENT:クリピアス
				PRINTFORML
				PRINTFORM %CALLNAME:TARGET%は
				IF EQUIP:パンツ && CHECK_PANTIES("Ｖ露出")
					PRINTFORM %TEXTR("秘所/アソコ/大事な部分")%が%TEXTR("露出している/隠れていない/丸見えになった")%%CLOCOLOR(CSTR:パンツ)%の%PANTIES(TARGET, "種類")%を履いたまま
				ENDIF
				IF TALENT:ラビアピアス && TALENT:クリピアス
					PRINTFORM 幾つものピアス%TEXTR("をつけられた/で飾られた")%%TEXTR("アソコ/秘所/ヴァギナ")%を%TEXTR("強調する様にして/見せつけるようにして")%、
				ELSEIF TALENT:ラビアピアス
					IF RAND:2 == 0
						PRINTFORM %TEXTR(@"恥ずかしそうに%CALLNAME:MASTER%に向け/羞恥に頬を染めながら、")%
						PRINTFORM %TEXTR(@"ラビアピアス/大陰唇につけられたピアス/%CEVENTS("ラビアピアス")%のピアス")%
						PRINTFORM %TEXTR("に指をかけ/を左右に広げ")%て
					ELSE
						PRINTFORM %TEXTR("アソコ/秘所/ヴァギナ")%を%TEXTR("彩る/飾る")%%TEXTR(@"ラビアピアス/%CEVENTS("ラビアピアス")%のピアス")%
						PRINTFORM %TEXTR("に指をかけ/を左右に広げ")%て%TEXTR(@"恥ずかしそうに%CALLNAME:MASTER%に向け/羞恥に頬を染めながら")%
					ENDIF
				ENDIF
				IF CFLAG:ムラムラ || COND("発情中")
					IF COND("陰核肥大") && RAND:2
						PRINTFORMW %TEXTR("肥大した陰核/勃起したデカクリ")%を見せつけ、欲情した視線を%CALLNAME:MASTER%に向けている……
					ELSEIF STRCOUNT(CSTR:DAILYCOM履歴, "Ｖ中出し")
						PRINTFORMW %TEXTR("物足りなさそうにヒクついている/精液混じりの愛液が糸を引く")%アソコを見せつけている……
					ELSE
						PRINTFORM %TEXTR("物欲しそうに愛液を垂らす/すっかり濡れてしまい、蜜が零れおちる")%アソコを見せつけた……
					ENDIF
				ELSE
					IF STRCOUNT(CSTR:DAILYCOM履歴, "Ｖ中出し")
						PRINTFORMW %TEXTR("中出し/種付け/射精")%されたばかりの
					ENDIF
					PRINTFORMW %TEXTR("膣/アソコ")%の%TEXTR("内側/中")%を%CALLNAME:TARGET%は見せつけた……
				ENDIF
			ENDIF
		CASE "余韻に浸る"
			IF COND("やる気性処理直後")
				CALL PRINT_STR, @"「%TEXTR(@"まだまだ本番はこれからですからね。最後まで付き合ってもらいます/どうしたんですか？　もうバテちゃいましたか。%CNAME("一人称")%はまだまだ元気ですからね")%_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("ふぅ/うふっ")%_HH_　%TEXTR(@"もうお仕舞いにするんですか、%CNAME("一人称")%はまだまだ元気なんですよ/綺麗にしたところで第二ラウンド開始と行きましょうか")%_HH_」_W"
			ENDIF
		CASEELSE
			SELECTCASE CONDS("直前行動")
			CASE "抱きつき", "頬キス"
				CALL PRINT_STR, @"「%TEXTR("ちゅ/ちゅう")%_HH_　%TEXTR("もっと……甘えてもいいですか？/もっともっと……甘えたい気分なんです")%」_W"
			CASE "おっぱい押し付け"
				CALL PRINT_STR, @"「%TEXTR("ふふっ/うふふっ")%_HH_　%TEXTR(@"二人っきりでなら%CNAME("一人称")%のお胸を好きにしてくれてもいいんですよ？/たまには……%CNAME("一人称")%から誘っちゃいます")%」_W"
			CASE "股間擦り付け"
				PRINTFORML 「ごめんなさい……%TEXTR(@"こんな事しちゃってはしたないですよね/こんなイヤらしい事しちゃう女の子だなんて……本当は%CNAME("二人称")%に思われたくないんですけど……")%」
				CALL PRINT_STR, @"「%TEXTR("もう/ダメなんです")%……我慢が出来なくなっちゃってるの_HH_」_W"
			CASE "キス"
				CALL PRINT_STR, @"「%TEXTR("はぁ/んっ")%_HH_　%CNAME("主人")%……続きをお願いしても良いですか？」_W"
			CASE "口淫"
				CALL PRINT_STR, @"「%TEXTR("ちゅぱ/ちゅるる")%_HH_　はぁ……%TEXTR(@"こんな事しちゃう悪い子にお仕置きしてください/我慢出来ずに……お口でご奉仕しちゃうイケナイ%CNAME("一人称")%を躾けなおしてください")%、%CNAME("主人")%」_W"
			CASE "手淫"
				CALL PRINT_STR, @"「%TEXTR("ふふっ/うふふっ")%_HH_　%CNAME("主人")%は手だけで満足しちゃいましたか？……%CNAME("一人称")%はちょっぴり物足りないんです」_W"
			CASE "膝枕"
				CALL PRINT_STR, @"「%CNAME("二人称")%%TEXTR("と愛し合いたいなって……/に愛されたいなって……")%おねだりしちゃってもいいでしょうか_HH_」_W"
			CASEELSE
				IF COND("水泳") && CEVENT("既成事実：私はあなたのお姉ちゃんです")
					PRINTFORML 「お姉ちゃんと%TEXTR("スポーツしましょう/水泳のトレーニングしましょう/泳ぎの特訓しましょう")%」
					CALL PRINT_STRW, @"「%TEXTR("まずは体力作りと言う事で……たっぷり汗を流しましょうね/そうですね……まずはストレッチしましょうか。身体も心も楽にして一緒に楽しみましょう")%_HH_」"
				ELSE
					PRINTFORMW 「%TEXTR(@"あの……お時間があればベッドで一緒にお話とか……/えっと……お暇ですよね。%CNAME("一人称")%とベッドでお話なんてどうでしょう……/ベッドが空いてますね。少し横になりませんか？")%
				ENDIF
			ENDSELECT
		ENDSELECT
		CALL SET_CEVENT, "Ｈのお誘い：マリー"
	;
	CASE "勉強のお誘い"
		;パンツを要求した
		IF CHOSE_DEVENT("勉強前にパンツ要求")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "押し倒し"
		CALL PRINT_STRW, @"「%TEXTR(@"どーん。隙ありですよ。%CNAME("一人称")%に押し倒されるようではまだまだですね。もっと強くなれるようにおまじないをしてあげます……ちゅっ/えいっ。隙だらけですよ。押し倒されたらもう降参しちゃうんですか？　ほらほら、どうなってもしりませんよ")%_HH_」"
	CASE "パンツ見せ"
		IF FLAG:対複数
			IF CHARA_NUM("行動参加中") >= 3
				ACTOR = FIND_COND("自発パンツ見せ可能", "現在存在", "助手")
				ACTOR2 = FIND_COND("自発パンツ見せ可能", "現在存在", "助手ではない")
				;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR, ACTOR2
			ENDIF
			IF ABL:露出癖 >= 3
				IF RAND:4 == 0
					PRINTFORML 「これは負けられませんね！」
					PRINTFORMW 「%CNAME("一人称")%はそれなりに身体には自信がありますから、頑張っちゃいます」
				ELSEIF RAND:3 == 0
					PRINTFORML 「少しは自信はありますけど……」
					PRINTFORMW 「こうやって他の人の前で見せるのはちょっぴり恥ずかしいですね」
				ELSEIF RAND:2 == 0
					PRINTFORML 「%TEXTR("聖職者/シスター/悪魔祓い")%の%CNAME("一人称")%にこんな恥ずかしい事をさせるなんて……」
					PRINTFORMW 「%TEXTR("後でたっぷりと懺悔してもらいますからね？/天罰が下っても知りませんよ？")%」
				ELSE
					PRINTFORML 「折角ですし、みんなでダンスしましょうか♪」
					PRINTFORMW 「こんな悪い事を考えちゃう%CNAME("主人")%の前で腰を振って見せつけてあげるんです」
				ENDIF
			ELSE
				PRINTFORML 「少し恥ずかしいですけど……」
				PRINTFORMW 「%CNAME("主人")%が望まれるのでしたらどうぞ」
			ENDIF
		ELSEIF TALENT:淫乱 && (COND("身嗜み：Ｖ拡張") || COND("身嗜み：Ａ拡張"))
			PRINTFORML 「%TEXTR(@"ちゃんと%CNAME("主人")%の言いつけ通り今日も入れて来ました/見てください……ちゃんと入れて来たんですよ？")%」
			PRINTFORM %PANTIES(TARGET)%の布越しに
			IF COND("身嗜み：Ｖ拡張") || COND("身嗜み：Ａ拡張")
				PRINTFORMW アソコにバイブをアナルにはプラグが収まっているのが見えた……
			ELSEIF COND("身嗜み：Ｖ拡張")
				PRINTFORMW アソコにバイブが挿入されているのが見えた……
			ELSEIF COND("身嗜み：Ａ拡張")
				PRINTFORMW アナルにアナルプラグが収まっているのが見えた……
			ENDIF
		ELSE
			PRINTFORMW 「%TEXTR(@"%CNAME("主人")%はこう言うの好きですよね……/%CNAME("主人")%が喜ぶから見せちゃおうって思うだけで……興奮なんてしませんからね/%CNAME("主人")%の喜ぶ顔が見たいだけですからね？")%」
		ENDIF
	CASE "口淫", "お掃除フェラ"
		IF TALENT:MASTER:包茎 && ABL:奉仕精神 >= 5
			PRINTFORML 「%TEXTR("くんくん/スンスン")%……」
			PRINTFORML 「%TEXTR("とっても臭くって……嗅いでるだけでクラクラしちゃいそうですよ/汚いのがいっぱいたまっちゃってますね/たっぷりチンカスが溜まっちゃてるじゃないですか")%。%TEXTR(@"そんなに%CNAME("一人称")%に綺麗にして欲しいんですか/今から%CNAME("一人称")%が綺麗にしてあげますね")%」
			CALL PRINT_STR, @"「%TEXTR("ちゅっ/ちゅう")%_HH_　%TEXTR("じゅるるっ、じゅぼっじゅぼ……はぁ/んっ……じゅる、じゅぽっ、じゅぽじゅぽ、じゅるるる")%」_L"
			PRINTFORMW 「ふぅ……%TEXTR(@"また何時でもご奉仕しますからね/綺麗になりました/しっかりしてくださいね。%CNAME("一人称")%が居ない時は自分で綺麗にするんですよ")%」
		ELSEIF CHARA_NUM("室内の邪魔者") == 0
			CALL PRINT_STRL, @"「%TEXTR("ちゅっ/ちゅう")%_HH_　%TEXTR("本当はイケナイ事なんですけど/こんな事しちゃうなんてはしたないですよね")%……」"
			CALL PRINT_STRW, @"「でも、我慢出来なくって……%TEXTR(@"他の皆さんには内緒ですからね/こほん、%CNAME("一人称")%は聖職者なので。これはちゃんとした奉仕活動ですから良いんです")%_HH_」"
		ELSE
			PRINTFORML 「んっ、ちゅっ……じゅる、じゅぽじゅぽ」
			CALL PRINT_STRL, @"「%TEXTR("はぁ/んっ")%_HH_　ちゅっ……じゅぷっ、じゅぷ……れろれろ」"
			IF RAND:2 == 0
				PRINTFORMW %CALLNAME:TARGET%は他の部員に見せつける様に手を添えて先端から根元まで丁寧にしゃぶってくれた
			ELSE
				PRINTFORMW 他の部員の視線を感じて羞恥に頬を染めながら%CALLNAME:TARGET%は嬉しそうにしゃぶりつき積極的に奉仕している
			ENDIF
		ENDIF

	CASE "お掃除フェラ"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "頬キス", "キス"
		CALL PRINT_STRL, @"「%TEXTR("ちゅっ/ちゅ")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("隙だらけですよ？　しっかりしてくださいね/可愛いなって思って……キスしちゃいました")%_HH_」"
	CASE "股間擦り付け"
		CALL PRINT_STRW, @"「%TEXTR("んっ/ん")%_HH_……%TEXTR(@"ごめんなさい、ちょっとはしたなかったですよね/%CNAME("二人称")%を想っていたら我慢出来なくなっちゃいました……ごめんなさい")%」"
	CASE "抱きつき"
		CALL PRINT_STRW, @"「%TEXTR("たまには甘えてもいいですよね/ギュってしちゃいますからね")%_HH_」"
	CASE "膝を枕にしてくる"
		IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			PRINTFORMW 「あぁ……眠れそうです……」
		ELSEIF CHARA_NUM("室内の邪魔者") == 0
			CALL PRINT_STRL, @"「%TEXTR("ちょっとだけ甘えさせてもらってもいいですよね？/誰もいませんからいいですよね？")%」"
			CALL PRINT_STRW, @"「%TEXTR(@"ふふっ……%CNAME("二人称")%を独り占めです/ずっとこうして居られたらいいんですけどね")%_HH_」"
		ELSE
			PRINTFORMW 「いいんですか？　じゃあちょっとだけ……お邪魔しますね」
		ENDIF
	CASE "おっぱい押し付け"
		CALL PRINT_STRL, @"「%TEXTR("よいしょ/えいっ")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("隙あり、ですよ/ちょうど良い所に居るからですよ？")%」"
	CASE "手淫"
		IF CHARA_NUM("室内の邪魔者") == 0
			PRINTFORML 「二人きりですから、サービスしちゃいますよ」
			CALL PRINT_STRW, @"「いっぱい気持ち良くなってくださいね_HH_」"
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("しーっ。他の人に気づかれちゃいますからね/大きくなっちゃったんですか……もう/手だけですよ、それ以上は今はダメですからね")%」"
			PRINTFORMW %CALLNAME:TARGET%はこっそり%CALLNAME:MASTER%の股間を手淫してくれた。
		ENDIF
	CASE "なでなで"
		PRINTFORML 「%TEXTR("甘えてもいいんですよ？/よしよし、いい子いい子")%」
		IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			CALL PRINT_STRW, @"「%TEXTR("可愛いですね……ちゅっ/どうしてそんなに可愛いんですか、ちゅぅ")%_HH_」"
		ELSE
			PRINTFORMW 「%TEXTR("こうしてると可愛いんですけどね/いっぱい可愛がってあげますね")%」
		ENDIF
	CASE "膝枕"
		IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			CALL PRINT_STRW, @"「%TEXTR("ふぁ…ちょっと眠くなりますね/んぅ……眠たくなってきませんか")%」"
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「ほら……たまには甘えてみませんか？」
				PRINTFORMW 「えっちな事しなければ%CNAME("一人称")%もいっぱい甘やかしてあげますよ」
			ELSE
				PRINTFORML 「%CNAME("一人称")%の膝、硬かったりしませんかね」
				PRINTFORMW 「気になるんですよ、乙女ですからね」
			ENDIF
		ENDIF
	CASE "お茶汲み"
		;CSTR:お茶 を指定してある場合には、SAVESTR:お茶 で何を用意したかが判定できる
		;例）PRINTFORML 「よければ%SAVESTR:お茶%どうぞ」
		IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			PRINTFORML 「このお茶…何時もとちょっと違う味ですけど、とっても美味しいですね……ゴクゴク」
			PRINTFORMW 「%TEXTR("こらぁ、取り上げないでください。まだ飲んでるのに/はい…半分あげますね？")%」
		ELSE
			PRINTFORMW 「お茶を淹れてみました。こちらの作法はあまり詳しくないので美味しくなかったら言ってくださいね」
		ENDIF
	;それ以外
	CASEELSE
		IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			CALL PRINT_STRL, @"「%TEXTR("ちゅっ/ちゅー/ちゅう")%_HH_」"
			PRINTFORMW 「%TEXTR("よ、酔っ払ってなんか、いませんよ！/酔っ払いじゃない、ですからねっ！/お酒なんて飲んで、ませんよっ？")%」
		ELSEIF COND("欲求不満") >= 2 && TALENT:恋慕 && RAND:5 == 0
			PRINTFORML 「%CNAME("主人")%%TEXTR("は今、お暇でしょうか……/、お時間はありますか？")%」
			PRINTFORMW 「%TEXTR("ちょっとだけ人肌が恋しいなんて思ったり……ワガママですよね/ちょっとだけ二人っきりでお話なんてどうでしょう……/二人っきりで秘密のお話なんてどうでしょうか？")%」
		ELSEIF TALENT:淫乱 && CHECK_STAIN(STAIN:MASTER:Ｐ, "Ｐ恥垢") && ABL:奉仕精神 >= 5
			PRINTFORMW 「%TEXTR("くんくん/スンスン")%……%TEXTR("何だか匂いますね/ちゃんと綺麗にしてない悪い子の匂いがしますね/ここから匂っちゃってますね")%」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の股間に鼻を近づけて%TEXTR("小首を傾げてみせた/意味ありげに微笑んできた")%
		ELSE
			IF TALENT:恋慕 && TALENT:MASTER:力持ち > TALENT:力持ち && RAND:3 == 0
				IF RAND:2 == 0
					PRINTFORML 「%CNAME("二人称")%も結構鍛えてますね」
					PRINTFORMW 「良かったら今度一緒にトレーニングしませんか？」
				ELSE
					PRINTFORML 「ふふっ……いい感じで鍛えてますね」
					PRINTFORMW 「好きな子を守ってあげられるそんな強さを身に着けてくださいね」
				ENDIF
			ELSEIF TALENT:恋慕 && TALENT:MASTER:力持ち == TALENT:力持ち && RAND:3 == 0
				IF RAND:2 == 0
					PRINTFORML 「腕相撲してみませんか？」
					PRINTFORMW 「%CNAME("一人称")%の腕は細いからしないんですか。ふふっ、負けるのが怖いのですね」
				ELSE
					PRINTFORML 「むむむ……」
					PRINTFORMW 「悪魔祓いの%CNAME("一人称")%と%TEXTR("力比べ/腕相撲")%して互角だなんてやりますね」
					IF RAND:2 == 0
						IF RAND:2 == 0
							PRINTFORMW 「次は負けませんからね」
						ELSE
							PRINTFORMW 「鍛えなおしてきますから、次は覚悟しておいてくださいね」
						ENDIF
						TALENT:力持ち = MIN(TALENT:力持ち + 1, 9)
					ENDIF
				ENDIF
			ELSEIF TALENT:恋慕 && TALENT:力持ち > TALENT:MASTER:力持ち && RAND:3 == 0
				IF RAND:2 == 0
					PRINTFORML 「%CNAME("二人称")%の%TEXTR("腕/筋肉/身体")%はちょっぴり頼りないですね」
					PRINTFORMW 「良かったら一緒にトレーニングして鍛えてみませんか？」
				ELSE
					PRINTFORML 「ちょっぴり頼りない感じもしますが」
					PRINTFORMW 「そんな%CNAME("二人称")%も好きですよ。%CNAME("一人称")%が守ってあげますからね」
				ENDIF
			ELSEIF RAND:2
				PRINTFORML 「暇そうですね」
				PRINTFORMW 「良かったらお姉さんとお話しませんか？」
			ELSE
				PRINTFORML 「手持ち無沙汰なんですよ」
				PRINTFORMW 「良かったら、%CNAME("一人称")%と筋トレなんてどうですか？」
			ENDIF
		ENDIF
	ENDSELECT
;これは素質に[マリーちゃんは機械操作が解らない]＆[恋慕]を持っているキャラのみです
CASE "メールを誤送信した"
	IF SAVESTR:現在位置 == "居間"
		PRINTFORMW 【今、居間にいます】
		PRINTFORMW %CALLNAME:TARGET%はメールの一括送信ボタンを押した。
		PRINTFORML
		PRINTFORMW 『また、これ系ですか、今週４人目ですね』
		PRINTFORMW 『ご主人様、こうしたメッセージに自動返信するスクリプトが今なら0.5魂です。どうですか？』
	ELSEIF SAVESTR:現在位置 == "自室"
		PRINTFORMW 「ドキドキしますね……」
		PRINTFORMW %CALLNAME:TARGET%はランジェリーショップで購入したばかりの%TEXTR("黒/紫/真紅/赤/純白")%のフリルのついたレースの下着に着替えると、パラチネに用意してもらったワンタッチでＯＫなスマホのセルフタイマーを設置して
		PRINTFORM 自室のベッドの上で
		IF RAND:3 == 0
			PRINTFORMW 両手をついたまま胸を強調する様に上体を反らし、両足の間から穿いている下着を覗かせてスマホに向かって微笑みかける。
		ELSEIF RAND:2 == 0
			PRINTFORMW スマホにお尻を向けて、物欲しそうに唇に指先を咥えながら振り返って微笑む。
		ELSE
			PRINTFORMW 正座の姿勢で両膝を開きパンツを恥ずかしげもなく晒して、両脇を見せつけるようにスマホへと微笑みかけながら髪をかきあげた。
		ENDIF
		PRINTFORMW 「ちゃんと……届くでしょうか」
		PRINTFORMW ポチッ、一括送信
		PRINTFORMW 「ああああっ！！　どうしましょう……とりあえずスマホを破壊、は前回やってダメでしたし」
		PRINTFORML
		PRINTFORMW 程なくして%CALLNAME:TARGET%の誤送信から、関係各所からの冷やかしと共に法皇庁のＴＯＰから返信のメールが届きました。
		PRINTFORML
		PRINTFORMW <またですか、マリー先輩。いい加減使い方を覚えてください。それでも女子高生なんですか。Ｐ>
		PRINTFORMW <よく似合ってると思うけどな。次からは送り先気をつけろよ。ところで明日暇なら何か賭けて勝負しないか？。Ｒ>
		PRINTFORMW <お困りですか、マリー先輩？。今なら送り先のメールを自動爆破するスクリプトがたった0.5魂ですよ。ほら、背に腹は代えられませんよね？。Ｆ>
		PRINTFORML
		PRINTFORMW 『J( 'ｰ`)し　マリーげんきですか。かれしとは仲良くやっていますか』
		PRINTFORMW 「(ﾉ_･｡)　すいません。本当にすいません」
		PRINTFORMW 『J( 'ｰ`)し　ごめんね。おかあさんはじめてめーるしたから、ごめんね』
		PRINTFORMW 「(ﾉ_･｡)　出来れば見なかった事にしてください。法皇庁に帰ったらこの件については懺悔しますから、お赦しください、法皇睨下」
		PRINTFORMW 『J( 'ｰ`)し　お金ふりこんでおきました。たいせつにつかってね　食事はしていますか？』
		PRINTFORMW 「(ﾉ_･｡)　あ、ありがとうございます。毎日美味しい食事をメイドさんが作ってくれてます。怒ってます？」
		PRINTFORMW 『J( 'ｰ`)し　はい、ちょっとだけ怒っています。悪魔と仲良くしすぎて強制送還されたくなかったら反省してくださいね』
		PRINTFORMW %CALLNAME:TARGET%は悲しみと恐怖に震えスマホを物理的にへし折ってしまった。色んな意味で法皇庁コワイ!
	ELSE
		PRINTFORMW 【学園の食堂にて】
		PRINTFORML
		PRINTFORMW 「パラチネ。誤送信に見せかけて部員全員に%CNAME("一人称")%が妊娠した事にすれば、あの人を独占出来ないでしょうか？」
		PRINTFORMW 『そうですね。アドバイス料としてランチセットを奢っていただいた手前、大変言いにくいのですが……外堀が埋まる所か、ベビーブーム到来になっちゃうと思いますよ』
		PRINTFORMW 「なるほど。産めよ増やせよ地に満ちよ、神の教えをあの方なら実践してくださると……それは素晴らしい事です。私利私欲の為に%CNAME("一人称")%が独占するのはいけませんね！」
		PRINTFORMW （うちの宗派的には一夫多妻は割とグレーなんですけどね。本人が幸せそうなら良しとしておきましょう。ランチ美味しいですし）
	ENDIF
CASE "トイレ"
	;トイレで用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人もトイレで済ませてきた
		IF BASE:MASTER:尿意 == 0
			IF SAVESTR:現在位置 == "公園"
				IF TALENT:淫乱
					;他に適切な判定基準がないので暫定で露出癖
					IF ABL:露出癖 >= 3 && RAND:3 == 0
						PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%のトイレを…
						PRINTFORML
						PRINTFORML   [0]覗く
						PRINTFORML   [1]覗かない
						$K23_TOILET_LP1
						INPUT
						IF RESULT == 0
							PRINTFORML
							PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%のトイレを覗く事にした…
							PRINTFORMW
							IF ABL:自慰中毒 >= 3
								IF ABL:Ａ感覚 >= 5 && EXP:浣腸経験 >= 5 && BASE:排泄物 >= 4
									IF RAND:2 == 0
										CALL PRINT_STR, @"「……%TEXTR("ああっ/あっ")%_HH_　%TEXTR("お尻で感じちゃうなんてダメなのに/太いの出てきちゃってる/アナルが広がっちゃってる")%……%TEXTR("あああっ/あっ、ああっ/んっ、んぅうう")%_HH_」_L"
									ELSE
										CALL PRINT_STR, @"「……%CNAME("一人称")%は%TEXTR("聖職者なのに/神に仕える身なのに")%……%TEXTR("おトイレして感じちゃうなんて/トイレしながら感じちゃう身体になってしまいました")%。%TEXTR("あぁっ、出ちゃう、出ちゃいます/んっ、もうダメ。出ちゃう……ああっ")%_HH_」_W"
									ENDIF
									PRINTFORMW （%TEXTR("ミチミチ……ブリッブリブリブリッ、ボトッ、ボトン、ボトボトッ……/ブリッ、ブリリッ、ミチッ、ブリュッ、ブリュルル、")%
									PRINTFORMW %CALLNAME:TARGET%は%TEXTR("艶かしい声/切なげな喘ぎ/苦しさと喜びが入り混じった声")%をあげて%TEXTR("お腹の中に溜まっていた排泄物を/太く長い排泄物を/次々にお尻から排泄物を")%%TEXTR("排泄/吐き出/産み落と")%した…
								ELSE
									CALL PRINT_STR, @"「%TEXTR("あっ/んっ")%_HH_　%TEXTR(@"おしっこしながらしちゃうなんて……%CNAME("一人称")%は聖職者なのに/おしっこしながら弄るの……気持ちいい/")%」_W"
									PRINTFORMW （%TEXTR("ジョロ、ジョロロ、シャアアア……/ジョボボ、ジョロジョロジョロ、シャアアア……")%）
								ENDIF
							ELSE
								PRINTFORMW 「んっ……%TEXTR("＿/はぁ……")%」
								PRINTFORMW （ジョロ、ジョロロ、シャアアア……）
							ENDIF
						ELSEIF RESULT == 1
							GOTO K23_TOILET_LP2
						ELSE
							GOTO K23_TOILET_LP1
						ENDIF
					ELSE
						$K23_TOILET_LP2
						PRINTFORML 「%CNAME("二人称")%もトイレだったんです%TEXTR(@"か/ね")%」
						IF TALENT:MASTER:オトコ && RAND:3 == 0
							PRINTFORMW 「どうせなら一緒に男子トイレに%TEXTR("誘ってくれたら/入ってみたり")%なんて……もちろん冗談ですよ？」
						ELSEIF RAND:2 == 0
							PRINTFORMW 「%TEXTR(@"どうせならトイレでご奉仕してあげても良かったですね/次はトイレでご奉仕してあげるのも良いかもしれませんね/お口で綺麗にしてあげてもいいですよ？　%CNAME("主人")%が望まれるなら")%」
						ELSE
							PRINTFORMW 「折角なら言ってくれれば良かったのに」
						ENDIF
					ENDIF
				ELSE
					PRINTFORML 「お待たせしました」
					PRINTFORMW 「%CNAME("二人称")%もトイレに行って来たんですね」
				ENDIF
			ELSE
				PRINTFORML 「%CNAME("二人称")%もトイレだったんですね」
				PRINTFORMW 「一緒に部室に戻りましょうか？」
			ENDIF
		ELSE
			PRINTFORMW 「～♪」
			;2020/06/16
			IF CEVENT("トイレ同伴イベント：マリー")
				;PRINTFORML 男状態を解除する
				TALENT:オトコ = 0
			ENDIF
		ENDIF
	;トイレに行く際の台詞
	ELSE
		IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			CALL PRINT_STR, @"「%TEXTR("んぅ、ちょっとトイレ……/Je vais aux toilettes_HH_")%」_W"
		ELSE
			BASE:MASTER:尿意 = 5000
			IF TALENT:淫乱 && TALENT:オトコ == 0 && CHECK_OTHER("黒いチョーカー", TARGET) && TALENT:MASTER:オトコ && BASE:MASTER:尿意 >= 5000 && CEVENT("トイレ同伴イベント：マリー") == 0
				PRINTFORMW 「%TEXTR("ちょっとトイレに行きませんか/良かったらご一緒にトイレは如何でしょう/トイレに行こうと思うのですが")%……%CNAME("主人")%？」
				PRINTFORML %CALLNAME:TARGET%は%TEXTR("さりげなく/意味ありげに")%黒いチョーカー%TEXTR("に触れながら/を撫でながら/を指先でなぞり")%、%CALLNAME:MASTER%に%TEXTR("囁いた/目配せしてきた/ウインクした")%。
				;PRINTFORML 一時的に男になる
				TALENT:オトコ = 1
				CALL SET_CEVENT, "トイレ同伴イベント：マリー"
			ELSE
				PRINTFORMW 「ちょっとトイレに行ってきますね」
			ENDIF
		ENDIF
	ENDIF
CASE "トイレ詮索"
	;2020/06/16
	IF CEVENT("トイレ同伴イベント：マリー")
		;PRINTFORML 男状態を解除する
		TALENT:オトコ = 0
	ENDIF
	IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
		CALL PRINT_STR, @"「%TEXTR(@"ちゅっ/はい、次は%CNAME("主人")%もご一緒しましょう")%_HH_」_W"
	;露出癖Lv3
	ELSEIF ABL:露出癖 >= 3 && CHARA_NUM("室内の邪魔者") == 0
		IF RAND:2 == 0
			PRINTFORML 「な、内緒にしてくださいね……」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%にこっそり耳打ちしてくれた。
		ELSE
			CALL PRINT_STR, @"「%TEXTR("……いっぱい出ちゃいました/……スッキリしました/……漏らしそうだったのでいっぱい出ちゃいました")%」_L"
			IF RAND:3 == 0
				PRINTFORMW （おトイレを報告して興奮するなんて……%CNAME("一人称")%は聖職者失格ですね……）
			ELSEIF RAND:2 == 0
				PRINTFORMW （そのうち……もっとエッチな命令をされちゃうんでしょうか……）
			ELSE
				PRINTFORMW （%CNAME("一人称")%は命令されたから仕方なく報告したんです……不可抗力、不可抗力ですから……）
			ENDIF
		ENDIF
	ELSE
		IF CEVENT("トイレ詮索イベント：マリー") == 0
			PRINTFORMW トイレ詮索イベント『マリーの場合』
			PRINTFORML 「悩み、というか……」
			PRINTFORMW 「%CNAME("一人称")%は便秘気味なんですよね。%CNAME("二人称")%は何か良い解決方法を知りませんか？」
			CALL SET_CEVENT, "トイレ詮索イベント：マリー"
		ELSE
			PRINTFORML 「そう言う事は詮索しないのがエチケットですよ」
			PRINTFORMW 「次からは気をつけてくださいね」
		ENDIF
	ENDIF
;これはあなたとキャラが両方オトコの際に限り起きます
CASE "連れション"
	;2020/06/16
	IF CEVENT("トイレ同伴イベント：マリー")
		;PRINTFORML 男状態を解除する
		TALENT:オトコ = 0
		IF RAND:3 == 0
			PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%に誘われる様にして男子トイレに同伴した…
		ELSEIF RAND:2 == 0
			PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%と共に%CALLNAME:MASTER%は男子トイレに入った…
		ELSE
			PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%に手を引かれて男子トイレに入った…
		ENDIF
		IF COND("欲求不満", TARGET)
			PRINTFORML 「%TEXTR("ごめんなさい/お許しください")%……%CNAME("一人称")%は%TEXTR("聖職者/シスター/悪魔祓い")%なのに……」
			PRINTFORMW 「%TEXTR(@"%CNAME("主人")%にお口でご奉仕したくなって……イケない事なのいに、誘ってしまいました/……イケない気分になってしまって。お願いします、%CNAME("主人")%にお口でご奉仕させてください/%CNAME("主人")%をお口で感じたくって……誘ってしまいました")%」
		ELSE
			IF ABL:MASTER:サドっ気 >= 3 && ABL:マゾっ気 >= 3 && RAND:3 == 0
				PRINTFORML 「%TEXTR("そうです/はい")%……%CNAME("一人称")%は%CNAME("主人")%%TEXTR("の肉便器/の性処理便所/専用の性女")%です……」
				PRINTFORMW 「……%TEXTR(@"遠慮なく%CNAME("一人称")%のお口をトイレ代わりに使ってください/%CNAME("一人称")%のお口をトイレにしてくださいね、%CNAME("主人")%")%」
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「%CNAME("一人称")%も性処理係ですから……%CNAME("主人")%のお役に立ちたいと思い、お誘いしてしまいました」
				ELSE
					PRINTFORML 「%CNAME("一人称")%は性処理係なので……%CNAME("主人")%のお世話は任せてくださいね」
				ENDIF
				PRINTFORMW 「%TEXTR("こんな所ですから/誰か来る前に/誰かに見つかる前に")%……%TEXTR(@"お口で手短に済ませましょうか/お口でご奉仕しちゃいます/%CNAME("一人称")%のお口に出してくださいね")%」
			ENDIF
		ENDIF
		PRINTFORM %CALLNAME:TARGET%は
		IF EQUIP:スカート
			PRINTFORM %SKIRT(TARGET, "略")%の裾を直して
		ENDIF
		PRINTFORMW %TEXTR(@"%CALLNAME:MASTER%の前にしゃがみ込むと器用に%CALLNAME:MASTER%のモノを取り出した/%CALLNAME:MASTER%のモノを曝け出すと、大きく口を開いて舌を突き出し嬉しそうに瞳を細めた/両膝をつくと唇で%CALLNAME:MASTER%のモノを咥え込み、舌を絡めはじめた")%…
		PRINTFORML
		IF ABL:MASTER:サドっ気 >= 3 && ABL:マゾっ気 >= 3 && RAND:3 == 0
			CALL PRINT_STRL, @"「%TEXTR("喉奥まで/そんなに深く")%……%TEXTR("ダメっ、んんんぅ/んぅう")%_HH_」"
			IF RAND:2 == 0
				CALL PRINT_STRW, @"「ジュポッ、ジュポ、ジュルル。んぅ_HH_……ジュルル　ジュポジュポ_HH_」"
			ELSE
				CALL PRINT_STRW, @"「んぅ、んっ……んっ_HH_……んぅ、んっ_HH_　んんっ、んんんっ！！」"
			ENDIF
		ELSE
			CALL PRINT_STRW, @"「%TEXTR(@"じゅるる……んぅ、はぁ……ずっとこうしていたいぐらいです。愛しています、%CNAME("主人")%/じゅぽ……じゅぽ……はぁ_HH_……ご奉仕させていただくと%CNAME("主人")%の愛を感じます")%_HH_」"
		ENDIF
		IF ABL:MASTER:サドっ気 >= 3 && ABL:マゾっ気 >= 3 && RAND:3 == 0
			CALL PRINT_STRW, @"「んっ……%CNAME("一人称")%のお口を%TEXTR("トイレ/便器")%の代わりにしてください_HH_　全部飲み干しますからね……ゴクッゴクッ」"
		ELSE
			CALL PRINT_STRW, @"「%CNAME("一人称")%のワガママに付き合ってくれてありがとうございます……%CNAME("主人")%が嫌でなければまた、付き合ってくださいね_HH_」"
		ENDIF
		CALL SET_CEVENT, "トイレ同伴イベント使用後：マリー"
	ELSE
		PRINTFORMW 「%TEXTR(@"%CNAME("一人称")%が男子トイレに入っていてもおかしくないのでしょうか……/未だに慣れないですね、こちらのトイレに入るのは")%」
	ENDIF
;女子高生の陰湿なその場にいない子の陰口仲間はずれトークはありません！！
CASE "トイレで井戸端会議"
	IF RAND:3 == 0
		PRINTFORML 「%TEXTR("困ってる事とかないですか？/何か、困ってる事があれば言ってくださいね？")%」
		PRINTFORMW 「%TEXTR("トイレだと二人きりになりやすいですからね、内緒話には最適です/女の子同士ならこうして内緒話出来ちゃいますからね")%」
	ELSEIF RAND:2 == 0
		IF (TEXTS("季節") == "秋" || TEXTS("季節") == "冬") && RAND:2 == 0
			PRINTFORML 「%TEXTR("はい、動かないでくださいね。リップクリーム塗ってあげますから/じゃーん！！　冬の必需品。ハンドクリームの出番ですよ")%」
			PRINTFORMW 「%TEXTR(@"なかなかどうして%CNAME("二人称")%はお肌が綺麗ですね/何を照れてるんですか、終わったら%CNAME("一人称")%にも塗ってもらうんですからね？")%」
		ELSE
			PRINTFORML 「%TEXTR(@"%CNAME("二人称")%もしますか、化粧直し/この間可愛い色のリップを買ったんですよ、フェリシエルさんのオススメで")%」
			PRINTFORMW 「%TEXTR("本当は化粧品持ってきてるのがばれたら没収されるんですけどね♪/ホムラ先生には内緒ですよ、没収されますからね？")%」
		ENDIF
	ELSE
		PRINTFORML 「%TEXTR("今日の帰る時間が一緒だったら、お菓子を買いに行きませんか？/帰りにお買い物なんてどうでしょうか？")%」
		PRINTFORMW 「%TEXTR("普通の女子高生というのを満喫しておこうと思いまして……/他の方も誘ってみんなでお買い物でもいいですよ")%」
	ENDIF
;あなたにトイレを覗かれた！
CASE "トイレハプニング"
	IF TALENT:淫乱 || ABL:露出癖 >= 3 && MARK:屈服刻印 >= 3
		IF BASE:排泄物 && EXP:浣腸経験 >= 10 && ABL:Ａ拡張 >= 3 && CEVENT("排泄大を見せてもらう：マリー") == 0
			PRINTFORML
			PRINTFORML 「%CNAME("一人称")%が……している所を見たいんですか」
			PRINTFORMW 「本当はダメですよ。けれど、今は%CNAME("一人称")%も限界なので……」
			PRINTFORMW %CALLNAME:MASTER%に排泄している所を見たいとお願いされた%CALLNAME:TARGET%は困惑した表情を浮かべながらも、便座の上に蹲踞（そんきょ）してみせた。
			PRINTFORMW 膝を折り立てて腰を落として立膝をつき、中腰の状態で両脚を開く%CALLNAME:TARGET%は言葉の通り我慢の限界だったのだろう
			PRINTFORML 「恥ずかしい……」
			PRINTFORMW %CALLNAME:MASTER%に見られながらの放尿。羞恥に頬を染めた%CALLNAME:TARGET%の秘所からは勢いよくオシッコが孤を描いて放たれ、ジョロジョロと音をたてて吐き出されていく
			PRINTFORML 「ごめんなさい……おっきい方も出ちゃいます……」
			PRINTFORMW 消え入りそうな声で囁き%CALLNAME:MASTER%から目を背ける%CALLNAME:TARGET%
			PRINTFORMW %CALLNAME:MASTER%が下から覗き込むと%CALLNAME:TARGET%のアナルは必死に排泄を堪えようとしている様に見えたが、体内から押し寄せる大量の汚物に押され尻穴の入り口は僅かに開いている
			PRINTFORMW 「%CNAME("主人")%……トイレを我慢出来ない%CNAME("一人称")%を後でたっぷりお仕置きしてくださいね、あああっ！！」
			PRINTFORMW 視線を感じた事で我慢が限界を迎えたのか、%CALLNAME:TARGET%のアナルは拡張された限界まで押し広げられ太い排泄物がミチミチと音をたてて産み落とされていく
			PRINTFORMW ボトンと重たい音と共に便器へと排泄物を吐き出された
			PRINTFORML
			PRINTFORMW 「%CNAME("主人")%……%CNAME("一人称")%のだらしないアナルをお仕置きしてください……」
			PRINTFORMW %CALLNAME:TARGET%は排泄を終え便座から降り、狭いトイレの室内で便器へと身体を預けると尻肉を両手で広げて内壁を見せつけてきた
			PRINTFORMW 排泄したばかりの%CALLNAME:TARGET%のアナルは物欲しげにヒクつき、%CALLNAME:TARGET%の秘所から滴りはじめた蜜がトロリと糸を引いて足を伝い零れ落ちていた……
			CALL SET_CEVENT, "排泄大を見せてもらう：マリー"
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「%CNAME("主人")%！？」
				PRINTFORMW 「……%CNAME("主人")%もトイレですか。終わるまで見ててくださったら代わりますね」
			ELSE
				PRINTFORML 「えっと……」
				PRINTFORMW 「見られてると恥ずかしいです……イヤではないんですけど」
			ENDIF
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「%CNAME("主人")%！？　あの……」
			PRINTFORMW 「……見られていると困ってしまいます」
		ELSE
			PRINTFORML 「えっと……」
			PRINTFORMW 「何かご用でしたら少しまってもらえますか？」
		ENDIF
	ENDIF
;トイレハプニングから派生するＨイベント
CASE "トイレＨ"
	SELECTCASE STR:日常イベント名
	CASE "トイレイベント：見せつけくぱぁ"
		PRINTFORML 「%TEXTR("……皆さんにはこんな事しちゃったなんて内緒ですからね/……家族の皆さんには内緒にしてくださいね")%」
		CALL PRINT_STRW, @"「%TEXTR("んっ/んぅ")%_HH_　%TEXTR("中まで全部……見てくださいね/ちゃんと……中まで見えてますか？")%」"
	CASE "トイレイベント：相互自慰"
		PRINTFORML 「%TEXTR("折角ですから……/もう……我慢出来なくなっちゃいました")%」
		PRINTFORMW 「……%TEXTR(@"二人で気持ちよくなってる所を見せ合いっこしましょうか/%CNAME("一人称")%がしてる所を見せつけちゃいます")%」
	CASE "トイレイベント：フェラチオ"
		IF RAND:2 == 0
			CALL PRINT_STRL, @"「%TEXTR(@"%CNAME("一人称")%のお口をトイレ代わりにしてくださって、ありがとうございます/……トイレでご奉仕させられちゃいましたね")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("ちゅっ/んぅ")%_HH_　%TEXTR("はぁ/んぅ")%……%TEXTR(@"いっぱい出してくれて嬉しいですよ/%CNAME("主人")%のなら何時でも飲んであげますからね。何時でもいってくださいね")%」"
		ELSE
			PRINTFORML 「%TEXTR("んっ/ごくっごくっ")%……」
			PRINTFORMW 「%TEXTR(@"%CNAME("主人")%の為でしたら/困ってる時は")%%TEXTR("言ってくださればご奉仕しますけど、本当はダメなんですからね/飲ませてもらいますけど……皆さんには内緒にしてくださいね")%」
		ENDIF
	CASE "トイレイベント：Ｖセックス"
		IF RAND:2 == 0
			PRINTFORML 「%TEXTR("おしっこを見られてしたくなってしまうなんて/エッチなお仕置きをされちゃうなんて")%……」
			PRINTFORMW 「%CNAME("一人称")%は%TEXTR("いけない/変態/淫乱")%聖職者ですね……%TEXTR("後でまたたっぷりと/時間があったら後でまた")%%TEXTR("お仕置きしてください/躾けなおしてくださいね")%、%CNAME("主人")%」
		ELSE
			PRINTFORML 「%TEXTR("本当はダメですからね/トイレでするなんて今回だけですからね")%……」
			PRINTFORMW 「%TEXTR("悪戯ばっかりする/えっちな事ばっかりしちゃう")%%TEXTR("悪い子/イケナイ子")%は%TEXTR(@"お姉さんが後でお仕置きしちゃいますよ？/%CNAME("一人称")%がトイレを出てからたっぷりとお仕置きしちゃいますからね")%」
		ENDIF
	CASE "トイレイベント：Ａセックス"
		IF RAND:2 == 0
			PRINTFORML 「%TEXTR("はぁはぁ……/はぁ……んっ……")%」
			PRINTFORMW 「%CNAME("一人称")%の%TEXTR("お尻/アナル")%は……%TEXTR("トイレ/おしっこをする場所")%%TEXTR("じゃないんですからね？　/ではありません。")%%TEXTR("次はダメですからね/もう……次はしちゃダメですよ")%」
		ELSE
	;		IF RAND:2 == 0
			;排泄物で分岐するのが面倒なのでそのまま
				PRINTFORML 「トイレですると%TEXTR("後の処理は楽ですけど……/お片付けは楽ですけど……")%」
				PRINTFORMW 「%TEXTR("その……集中出来ないのでちょっとだけ見るのをやめてもらえると嬉しいです/見られてると……ちょっと出なくなっちゃいますから")%」
	;		ELSE
				;温泉浣腸で限界突破
	;			PRINTFORML 「%CNAME("主人")%……%TEXTR("見ないで、見ないでください……ああっ！！/ダメぇ、我慢出来なく……ああああっ！！")%」
	;			PRINTFORML （ブリュ、ブリッ、ブビブビッ、ブッ、ブリュルルル、ブシャアアアアア）
	;			PRINTFORMW %TEXTR(@"%CALLNAME:TARGET%/聖職者")%の%TEXTR("尻穴/アナル")%から%TEXTR("すっかり緩くなった/温泉浣腸でふやけた")%%TEXTR("汚物/排泄物")%が%TEXTR(@"汚らしい音とともに便器へと吐き出されていく/凄まじい音をたてて排泄され、%CALLNAME:TARGET%の肛門はぽっかりと開いて物欲しげにヒクヒクと痙攣している")%……
	;		ENDIF
		ENDIF
	ENDSELECT
CASE "アソコチェック"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;寝言
		CALL KOJO_SLEEP_K23
		WAIT
	ELSE
		IF COND("合意：アソコチェック")
			IF CHARA_NUM("室内の邪魔者") == 0
				;連続実行
				IF CSTR:PREV_DAILYCOM == STR:日常イベント名
					IF TALENT:恋慕
						IF TALENT:淫乱 && TALENT:縦割れアナル && CEVENT("縦割れアナルは拡げすぎです……／マリー")
							PRINTFORMW 「%CNAME("主人")%に見せたいものがあるんです……」
							PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%に背中を向けるとおもむろにお尻を突き出し両手で尻肉を左右に開いてみせた。
							PRINTFORMW %CALLNAME:MASTER%の目に入ったのは縦長に拡がった%CALLNAME:TARGET%のアナルだった。
							PRINTFORMW 本来ならば放射線を描き小さく閉じているはずの尻穴は度重なるアナル開発によりすっかり拡張され、しっかり閉じられている状態でも縦方向に伸び第二のアソコの様に物欲しげにひくついている。
							PRINTFORMW 「……気が付いてましたか？、%CNAME("主人")%。ちょっと恥ずかしいですけど……」
							CALL PRINT_STR, @"「これは%CNAME("一人称")%のお尻を%CNAME("二人称")%に沢山愛してもらった証です。これからもたっぷり%CNAME("一人称")%の縦割れアナルを愛してくださいね_HH_」_W"
							CALL SET_CEVENT, "縦割れアナルは拡げすぎです……／マリー"
						ELSEIF (TALENT:クリピアス || TALENT:ラビアピアス || TALENT:ニプルピアス) && RAND:2 == 0
							IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
								CALL PRINT_STR, @"「%TEXTR("うふっ、ねぇ…ピアス撫で撫でして欲しいです/ピアスをイジメて欲しいの")%_HH_」_L"
								CALL PRINT_STR, @"「%TEXTR(@"%CNAME("一人称")%をイケナイ子だって、調教して教えてください_HH_……/%CNAME("一人称")%はこんなピアスつけられて……苛められて嬉しくなっちゃうイケナイ子なんです、%CNAME("一人称")%は_HH_")%」_W"
							ELSEIF TALENT:クリピアス && CHECK_CLO("Ｖ露出可")
								PRINTFORML 「%TEXTR(@"そんなに見られると恥ずかしいです……%CNAME("主人")%につけられた奴隷の証、気に入ってますよ/このピアスは大事な%CNAME("主人")%との絆ですから……お気に入りなんです")%」
								CALL PRINT_STR, @"「%TEXTR("んっ/んぅ")%_HH_　%TEXTR("見られてるだけだと切なくなっちゃいます/触ってください……お願いします")%……」_W"
								PRINTFORMW %CALLNAME:TARGET%は硬く充血し勃起した%TEXTR("クリトリス/秘核")%を%TEXTR("晒して/見せつけながら")%切なげに呟いた。
							ELSEIF TALENT:ラビアピアス && CHECK_CLO("Ｖ露出可")
								PRINTFORML 「%TEXTR(@"こうですか……ちゃんと中まで見えてますか？/ちゃんと出来てますか%CNAME("主人")%……見られちゃうの恥ずかしいです……")%」
								PRINTFORMW ラビアピアスを%TEXTR("＿/指先で/両手で")%引っ張り、隠れていた%TEXTR("アソコ/秘所/蜜壷")%は%TEXTR("内壁/肉壁/内側/秘肉")%を外気に晒しながら%CALLNAME:TARGET%は嬉しそうに微笑んでいる
							ELSEIF TALENT:ニプルピアス && CHECK_CLO("乳首露出")
								PRINTFORML 「%TEXTR(@"聖職者なのに胸にこんなのつけちゃって%CNAME("一人称")%はイケナイ子ですよね……/大きい胸にこんなイヤらしいアクセサリーをつけてるんです……恥ずかしいですけど見てください/%CNAME("主人")%がくれた奴隷の証。気に入ってます")%」
								CALL PRINT_STR, @"「%TEXTR("アソコ/ソコ")%だけじゃなくって……%TEXTR("胸/おっぱい")%もちゃんと%TEXTR("見てくださいね/見て欲しいです")%_HH_」_W"
							ENDIF
						;バイブがある
						ELSEIF COND("身嗜み：Ｖ拡張")
							IF TALENT:淫乱 && COND("身嗜み：Ｖ拡張") && COND("欲求不満") >= 2 && PENIS(MASTER) && CEVENT("アソコチェックで一回だけ勃起チンコ出し入れ１／マリー") && CEVENT("アソコチェックで一回だけ勃起チンコ出し入れ２／マリー") == 0
								IF CEVENT("既成事実：私はあなたのお姉ちゃんです")
									CALL PRINT_STR, @"「%TEXTR("お姉ちゃんのアソコがどれだけ拡張されたかチェックしてくれるんですね/お姉ちゃんのアソコは良い感じに拡張されてます")%_HH_」_L"
									PRINTFORML 「%TEXTR("ふふっ、お姉ちゃんの中がどうなっているか、さっそく使ってみますか？/お姉ちゃんと二人の絆を確かめ合うとしましょうか？/お姉ちゃんにバイブより良いものをくれるんですよね？")%」
								ELSE
									PRINTFORML 「%TEXTR(@"バイブで拡張されてしまったはしたない%CNAME("一人称")%のアソコの拡張具合……チェックしてくれますか？/ずっと入れていたので……ちょっぴり大胆な気分になっちゃいます。%CNAME("一人称")%のアソコをチェックしてくれますね？")%」
								ENDIF
								PRINTFORML
								PRINTFORML [ 0] はい
								PRINTFORML [ 1] いいえ
								CALL INPUT_SELECT, 2
								IF RESULT == 0
									PRINTFORM %CALLNAME:TARGET%は
									IF EQUIP:パンツ
										PRINTFORM %PANTIES(TARGET, "略")%
									ELSEIF CHECK_PANTIES("水着")
										PRINTFORM %BODYS(TARGET, "略")%
									ENDIF
									PRINTFORM をずらして%TEXTR("アソコ/秘所/おまんこ")%から
									SELECTCASE COND("身嗜み：Ｖ拡張")
										CASE 5
											PRINTFORMW 何処まで入っていたのか解らないほど、長く太いバイブがゆっくりとひり出されていく……
										CASE 4
											PRINTFORMW 男性の腕ほどの太さもある太いバイブを吐き出し、ぽっかりと口を開けた膣内を開いて見せてくれた……
										CASE 3
											PRINTFORMW 極太のバイブを手で抜き差ししながら見せつける様に抜いていく……
										CASE 2
											PRINTFORMW 大きなバイブをゆっくりと産み落とした……
									ENDSELECT
									PRINTFORML
									IF CEVENT("既成事実：私はあなたのお姉ちゃんです")
										CALL PRINT_STR, @"「%TEXTR("ふふっ、準備は万端ですから。たっぷりお姉ちゃんのアソコを硬くなったアレでチェックしてくださいね/お姉ちゃんはいつでもＯＫですよ。たっぷりアソコをアレで突き上げてアソコチェックしてくださいね")%_HH_」_W"
									ELSE
										CALL PRINT_STR, @"「%TEXTR("それではアソコチェックをお願いします、/アソコチェックをお願いしますね。")%%CNAME("主人")%_HH_　%TEXTR(@"バイブで拡張された%CNAME("一人称")%のアソコの具合をおちんぽでたっぷり楽しんで欲しいんです/バイブで拡げられたアソコの拡張具合をちんぽで確かめてくださいね")%_HH_」_W"
									ENDIF
								ELSE
									CALL PRINT_STR, @"「%TEXTR("んっ/んぅ")%_HH_　%TEXTR(@"バイブでお仕置きなんてっ……ごめんなさい、%CNAME("主人")%ぁ/ワガママ言ってごめんなさい。%CNAME("主人")%、ああっ")%_HH_」_L"
									PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%のアソコ%TEXTR("を乱暴にバイブで犯した/に挿入されているバイブを激しく出し入れしてやった")%……
								ENDIF
								CALL SET_CEVENT, "アソコチェックで一回だけ勃起チンコ出し入れ２／マリー"
							ELSE
								CALL PRINT_STR, @"「%TEXTR("誰もいないからって/誰もいませんけど")%_HH_　%TEXTR("あっ/ああっ")%_HH_」_L"
								CALL PRINT_STR, @"「%TEXTR("ズボズボしちゃダメです……んぅう/動かさないでください……ダメっ、感じちゃう")%_HH_」_W"
							ENDIF
						ELSEIF COND("身嗜み：Ａ拡張")
							IF CEVENT("部室で排泄した／マリー")
								PRINTFORML 「……%TEXTR("もう終わりにしませんか/まだ見たいんですか？/あんまり匂いを嗅がないでくださいね")%」
								PRINTFORM %CALLNAME:TARGET%は
								IF EQUIP:パンツ
									IF CHECK_CLO("Ｔバックヒップ")
										PRINTFORM %TEXTR("＿/お尻に食い込んでいる")%%CLOCOLOR(CSTR:パンツ)%の%PANTIES(TARGET, "種類")%の布地をずらしながら
									ELSE
										PRINTFORM %CLOCOLOR(CSTR:パンツ)%の%PANTIES(TARGET, "種類")%を%TEXTR("ずらして/膝まで下ろして/脱いで、片足に引っ掛け")%
									ENDIF
								ELSEIF CHECK_PANTIES("水着")
									PRINTFORM %BODYS(TARGET, "種類")%の%TEXTR("股間/お股の部分")%をずらして
								ENDIF
								PRINTFORM %TEXTR("排泄物/汚物")%を%TEXTR("吐きだ/ひり出した/排泄")%したばかりの
								SELECTCASE COND("身嗜み：Ａ拡張")
									CASE 1
										PRINTFORM ピッタリと閉じて放射線を描く%TEXTR("肛門/アナル")%
									CASE 2
										PRINTFORM %TEXTR("緩く/僅かに")%口を開けている%TEXTR("肛門/アナル")%
									CASE 3
										PRINTFORM %TEXTR("物足りなさそうにヒクヒクと伸縮を繰り返す/ぽっかりと口を開けた拡張された")%%TEXTR("肛門/アナル")%
									CASE IS >= 4
										PRINTFORM 特大のアナルプラグを引きずり出して、拳だろうとそのまま入りそうな大穴を開けている%TEXTR("肛門/アナル")%
								ENDSELECT
								IF RAND:10 == 0
									PRINTFORM の%TEXTR("汚臭/匂い")%を%CALLNAME:MASTER%に嗅がれ
								ELSE
									PRINTFORM を見せつけながら
								ENDIF
								PRINTFORMW %TEXTR("赤面し恥辱に耐えている/恥ずかしさに小さく肩を震わせている/羞恥に頬を染め瞳を閉じて耐えている")%……
							ELSEIF BASE:排泄物 >= 4 && RAND:2 == 0
								PRINTFORML 「ダメです……い、今抜いちゃ、出ちゃいますから……」
								PRINTFORML
								PRINTFORML   [0]プラグを抜く
								PRINTFORML   [1]プラグを抜かない
								$INPUT_LOOP_HAISETU
								INPUT
								IF RESULT == 0
									PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%に%TEXTR("四つん這いの姿勢をとらせ/机の上でＭ字開脚させ")%ると%CALLNAME:TARGET%のアナルからアナルプラグを抜いた……
									PRINTFORML
									PRINTFORMW 「%TEXTR("いやぁっ！！/ダメェエエエ！！")%」
									PRINTFORM %CALLNAME:TARGET%の悲痛な叫びと共に肛門が捲れ上がり、
									;規格外
									IF COND("身嗜み：Ａ拡張") >= 5
										PRINTFORMW アナルの中から%TEXTR("ズルズルと音をたてて螺旋状になった長いシリコンのアナルプラグが徐々にひり出されていく/何処まで入っていたのか、幾つものコブが連なった長大なアナルプラグはグロテスクな生き物の様に這い出していく")%……
									ELSE
										PRINTFORMW アナルを塞いでいたアナルプラグが吐き出された。
									ENDIF
									PRINTFORMW プラグを抜かれた%CALLNAME:TARGET%の%TEXTR("肛門/アナル")%はぽっかりと口を開き、%TEXTR("栓を失ったアナル/塞ぐものがなくなった肛門")%からぶりっぶりっと汚らしい音をたてて遂に腸内に隠れていた汚物が姿を見せる
									PRINTFORMW 「%TEXTR("ひっ……/いや……/Beurk！（ベーク）")%」
									PRINTFORMW %CALLNAME:TARGET%は必死に%TEXTR("肛門/アナルを")%閉じようと試みるものの、%TEXTR("充分/たっぷりと")%拡張され%TEXTR("収縮性を得た/拡がりやすくなった")%アナルは押し寄せる排泄物を押しとめられず
									PRINTFORMW ブリッブリリッと音をたてて次々に溜まっていた汚物を撒き散らしてしまう
									PRINTFORMW 「%TEXTR(@"神よ……お赦しください/%CNAME("一人称")%は聖職者なのですよ……こんな行為をさせるなんて")%」
									PRINTFORMW 後悔を口にする%CALLNAME:TARGET%の表情は悲痛に歪みながらも、排泄の快感を覚えてしまった%CALLNAME:TARGET%が抵抗する事なかった。
									PRINTFORMW 幸か不幸か、他の部員は部室を訪れず%CALLNAME:TARGET%が腹の中のものをすべて吐き出すまで排泄は続いた……
									BASE:排泄物 = 0
									CALL SET_CEVENT, "部室で排泄した／マリー"
								ELSEIF RESULT == 1
									PRINTFORMW プラグを抜くのをやめました。
									PRINTFORML
									PRINTFORMW 「%TEXTR("ありがとうございます……/大変な事になっちゃいますから……絶対に抜いちゃダメですよ")%」
								ELSE
									GOTO INPUT_LOOP_HAISETU
								ENDIF
							ELSEIF CEVENT("たまにアナルパール／マリー")
								PRINTFORML 「今日は……アナルパールを入れて来ちゃいました」
								PRINTFORMW 「……%CNAME("一人称")%は%TEXTR("聖職者/シスター/聖女")%%TEXTR(@"なのに……こんな変態行為してるのは%CNAME("主人")%の命令のせいですからね/ですが、%CNAME("主人")%が喜んでくれるって思うとどんな事でもしてあげたくなるんです")%」
								PRINTFORML
								PRINTFORML   [0]アナルパールを抜く
								PRINTFORML   [1]アナルパールを抜かない
								$INPUT_LOOP_ANALPEARL
								INPUT
								IF RESULT == 0
								PRINTFORM %CALLNAME:MASTER%は%CALLNAME:TARGET%の
								IF EQUIP:パンツ
									IF CHECK_CLO("Ｔバックヒップ")
										PRINTFORM %TEXTR("＿/お尻に食い込んでいる")%%CLOCOLOR(CSTR:パンツ)%の%PANTIES(TARGET, "種類")%の布地をずらし
									ELSE
										PRINTFORM %CLOCOLOR(CSTR:パンツ)%の%PANTIES(TARGET, "種類")%%TEXTR("をずらして/を膝まで下ろして/を脱がせて片足に引っ掛け")%
									ENDIF
								ELSEIF CHECK_PANTIES("水着")
									PRINTFORM %BODYS(TARGET, "種類")%の%TEXTR("股間/お股の部分")%をずらして
								ENDIF
								PRINTFORMW %TEXTR("肛門/アナル")%から覗く紐の先端を引っ張った
								CALL PRINT_STRW, @"「%TEXTR("あぁっ/はぁっ/んぅ/んっ")%_HH_」"
								PRINTFORM %CALLNAME:TARGET%の口から%TEXTR("艶めかしい声が漏れ/悩まし気な吐息が零れ")%、%CALLNAME:TARGET%の%TEXTR("肛門/アナル")%から
								SELECTCASE COND("身嗜み：Ａ拡張")
									CASE 1
										PRINTFORMW から紐状に連なった玩具がゆっくりと吐き出されていく……
									CASE 2
										PRINTFORMW から大小のサイズの異なる球が吐き出され、%CALLNAME:TARGET%は%TEXTR("肛門/アナル")%を通る異物の感覚に快感を覚えているようだ……
									CASE 3
										PRINTFORMW ゴルフボール大の球が連なった大型のアナルパールが吐き出されていく。
										PRINTFORMW 少し刺激が強いのか、一つひり出す毎に%CALLNAME:TARGET%の%TEXTR("肛門/アナル")%の入り口は盛り上がり無様に捲れあがっていく……
									CASE IS >= 4
										PRINTFORMW 一つまた一つ、ビリヤードボール大のアナルパールが%CALLNAME:TARGET%の%TEXTR("肛門/アナル")%を押し広げながらゆっくりと吐き出される……
										PRINTFORMW 全部の球を産み落とした%CALLNAME:TARGET%の%TEXTR("肛門/アナル")%は大きく口を開き、物足りなさげにヒクヒクと痙攣していた。
								ENDSELECT
								ELSEIF RESULT == 1
									PRINTFORMW アナルパールを抜くのをやめました。
									PRINTFORML
									PRINTFORMW 「%TEXTR(@"本当に良いんですか？/その……遠慮しなくても良いですからね/気が変わったらまたお願いします/あまり%CNAME("主人")%のお気に召しませんでしたか？")%」
								ELSE
									GOTO INPUT_LOOP_ANALPEARL
								ENDIF
							ELSE
								PRINTFORML 「%TEXTR("ここで出しちゃってもいいんですか/部室なのに……お尻から出して欲しいんですか")%？」
								CALL PRINT_STR, @"「%TEXTR("もうっ、今回だけですよ/本当はダメですからね")%_HH_　%TEXTR("あっ/んぅ")%、%TEXTR("出ちゃう/出てきちゃってます")%」_W"
								PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の目の前で%TEXTR("Ｍ字開脚で踏ん張り、アナルからアナルプラグを産み落としてみせた/両脚を開くとお尻を強調しながらゆっくりと尻穴からアナルプラグを吐き出してみせた")%……
							ENDIF
						;新規追加　★
						ELSEIF COND("グロマン")
							IF ABL:Ｖ拡張 >= 4 && RAND:3 == 0
								PRINTFORML 「%TEXTR(@"拡張されて%CNAME("一人称")%のアソコは全部は閉じなくなっちゃいました/恥ずかしいですけど……%CNAME("一人称")%のアソコはすっかり開きっぱなしになっちゃいました")%」
								PRINTFORML 「%TEXTR(@"%CNAME("主人")%がしたいなら……もっと酷い事してくれても良いですからね/主人が喜んでくださるなら……%CNAME("一人称")%は何でも受け入れますからね")%」
								PRINTFORMW %CALLNAME:TARGET%の%TEXTR("アソコ/秘所/膣口")%はぽっかりと口を開き%TEXTR("＿/本来は隠れている")%内壁を晒している
							ELSEIF COND("陰核肥大") && RAND:2 == 0
								PRINTFORML 「%CNAME("一人称")%の%TEXTR("クリ/クリトリス")%……他の子より大きくってちょっぴり恥ずかしいですけど……」
								CALL PRINT_STR, @"「でも、%CNAME("主人")%の%TEXTR("指/舌")%でいっぱい感じられますから、悪い事ばっかりじゃないんです_HH_」_W"
							ELSE
								PRINTFORML 「%TEXTR(@"%CNAME("主人")%がいっぱい愛してくださったので……%CNAME("一人称")%のココ、すっかり黒く色付いちゃいました/他の子と違ってビラビラがすっかり大きくなっちゃって、それにちょっぴり黒くって恥ずかしいです")%」
								CALL PRINT_STR, @"「%TEXTR(@"……%CNAME("一人称")%は聖職者なのに、こんなイヤらしい身体になったのは%CNAME("主人")%　のせいですからね。責任とってくださいね/%CNAME("主人")%がいっつもいじめるせいで%CNAME("一人称")%のアソコは内側と外側で色が違う、まるで牛肉のタタキみたいになっちゃいました。責任をとって末永く愛してくださいね")%_HH_」_W"
							ENDIF
						ELSE
							IF SAVESTR:現在位置 == "公園"
								IF RAND:2 == 0
									PRINTFORML 「%TEXTR("誰か来ちゃいますよ/こんな所見られちゃったら")%……」
									CALL PRINT_STR, @"「%TEXTR("あっ/ダメ")%……%TEXTR("恥ずかしいですから/恥ずかしい")%……」_W"
								ELSE
									PRINTFORML 「%CNAME("一人称")%は%TEXTR("聖職者なんですから/神に仕える身なのですから")%……」
									PRINTFORMW 「%TEXTR("こんな場所で見られて/公園でこんな事されて")%……%TEXTR("興奮なんてしませんからね/ドキドキなんてしてませんから")%……」
								ENDIF
							ELSE
								IF RAND:2 == 0
									PRINTFORML 「%TEXTR("主が見ておられますよ/神様が見ておいでですからね")%」
									CALL PRINT_STR, @"「%TEXTR("続きは…ベッドでお願いします/続きをしたいなら、ベッドに行きませんか？")%_HH_」_W"
								ELSE
									PRINTFORML 「%TEXTR("じっと見られてたら……/ずっと見られてたら……")%」
									PRINTFORMW 「%TEXTR("恥ずかしいですよ……/濡れてきちゃいますからね……/したくなっちゃいますから……")%」
								ENDIF
							ENDIF
						ENDIF
					;恋慕ではない　連続実行
					ELSE
						CALL PRINT_STR, @"「%TEXTR("もう……やめてください！/はい、お仕舞いにしましょうね")%」_W"
					ENDIF
				;連続実行ではない
				ELSE
					IF TALENT:恋慕
						IF (TALENT:クリピアス || TALENT:ラビアピアス || TALENT:ニプルピアス) && RAND:2 == 0
							CALL PRINT_STR, @"「%CNAME("二人称")%につけてもらったピアス%TEXTR("大事にしてますからね/気に入ってますから")%_HH_」_L"
							PRINTFORMW %CALLNAME:TARGET%は自分のピアスを強調しながら嬉しそうに%CALLNAME:MASTER%に微笑んだ。
						ELSEIF TALENT:淫乱 && COND("身嗜み：Ｖ拡張") && COND("欲求不満") >= 2 && PENIS(MASTER) && CEVENT("アソコチェックで一回だけ勃起チンコ出し入れ１／マリー") == 0
							;何を言ってるのか、良く解らない
							IF CEVENT("既成事実：私はあなたのお姉ちゃんです")
								IF RAND:2 == 0
									PRINTFORML 「%CNAME("一人称")%の\@ TRUE_SEX(MASTER) == "オトコ" ? 弟 # 妹 \@である%CNAME("二人称")%に折り入ってお願いがあるのですが……」
									CALL PRINT_STR, @"「%TEXTR("バイブじゃ全然満足出来ない悪いお姉ちゃんのアソコを……お仕置き棒でアソコチェックしてみませんか？　一回だけでいいですから、ねっ？/バイブで沢山練習してきたので……良かったらお姉ちゃんのアソコの使い心地をアソコチェックしてくれませんか")%」_W"
								ELSE
									PRINTFORML 「将来的に%CNAME("一人称")%は%CNAME("二人称")%と姉\@ TRUE_SEX(MASTER) == "オトコ" ? 弟 # 妹 \@になる予定なので……」
									CALL PRINT_STR, @"「%TEXTR(@"定期的にお姉ちゃんとの相性を確かめるためにも硬くなったアレでアソコチェックしてくださいね/家族の絆を確かめる為にも、たまには大きくなっちゃうアレでアソコチェックしてくださいね")%_HH_」_W"
								ENDIF
							ELSE
								PRINTFORML 「%TEXTR(@"こんな事を頼んではいけないとは思うんですけど/お願いします、%CNAME("主人")%/はしたないお願いでごめんなさい")%……」
								PRINTFORMW 「……%CNAME("一人称")%のアソコ%TEXTR("の具合/との相性/の拡張度合い/の拡張具合")%を一回だけ%CNAME("二人称")%の%TEXTR("アレ/チンコ/ちんぽ")%で%TEXTR("チェックして/確かめて/調べて")%くれませんか……」
							ENDIF
							CALL SET_CEVENT, "アソコチェックで一回だけ勃起チンコ出し入れ１／マリー"
						;バイブ／Ａプラグがある
						ELSEIF (COND("身嗜み：Ｖ拡張") || COND("身嗜み：Ａ拡張")) && RAND:2 == 0
							;ガバガバ
							IF (ABL:Ｖ拡張 - COND("身嗜み：Ｖ拡張")) > 1
								PRINTFORML 「%TEXTR("ちょっと/少し")%だけ……%TEXTR("物足りないというか、小さいですけどちゃんと入れてますよ/大きさがあってませんけど、ちゃんと入れてはいますからね")%」
								PRINTFORMW 「%TEXTR("もっと大きいのが欲しいわけではありませんからね！？/その……もっと大きいのを欲しいって意味ではないですから")%」
							;それ以外
							ELSE
								PRINTFORMW 「%TEXTR("ご命令通り……ちゃんと入れてますからね/ちょっと苦しい時もありますけど……悪魔祓いなので耐えてみせます")%」
							ENDIF
							;2020/1/24　たまにアナルパール
							IF RAND:3 == 0
								CALL SET_CEVENT, "たまにアナルパール／マリー"
							ENDIF
						ELSEIF COND("子供マンコ") && RAND:2 == 0
							PRINTFORML 「%TEXTR(@"ちょっと恥ずかしいですね……/%CNAME("一人称")%のアソコ……小さい子みたいになっちゃってるので、%CNAME("二人称")%に見られるのはちょっと恥ずかしいです")%……」
							PRINTFORM %CALLNAME:MASTER%の目に
							IF COND("陰毛") == 3 && RAND:2 == 0
								PRINTFORMW %TEXTR("＿/綺麗に陰毛を剃られた")%%CALLNAME:TARGET%の%TEXTR("子供/幼児/小さい子")%の様にピッタリと閉じた%CALLNAME:TARGET%の恥丘が目に入った。
							;死に分岐なのでは？
							ELSEIF COND("陰毛") < 3 && RAND:2 == 0
								PRINTFORMW %CALLNAME:TARGET%の無毛の恥丘が目に入る。そこは%TEXTR("子供/幼児/小さい子")%の様にピッタリと閉じていた…
							ELSE
								PRINTFORM %TEXTR("入った/映る")%
								IF RAND:2 == 0
									PRINTFORMW %CALLNAME:TARGET%の%TEXTR("秘所/アソコ")%は割れ目がピッタリと閉じている…
								ELSE
									PRINTFORMW %CALLNAME:TARGET%の恥丘は子供の様にピッタリと閉じている…
								ENDIF
							ENDIF
						ELSEIF COND("色素沈着（弱）") && RAND:2 == 0
							PRINTFORML 「%CNAME("一人称")%の%TEXTR("アソコ/ヴァギナ")%%TEXTR("……ちょっと色づいて来ちゃってませんか？/。少し……色が変わってきちゃったみたいなんです")%」
							PRINTFORMW %CALLNAME:MASTER%の目に入った%CALLNAME:TARGET%の%TEXTR("アソコ/秘所")%は%TEXTR("使い込まれて/度重なる性行為で")%%TEXTR("ほんのりくすんだ色を帯び始めている/年齢の割に暗い色に変わり始めている")%…
						ELSEIF COND("色素沈着") && RAND:2 == 0
							IF RAND:2 == 0
								PRINTFORML 「……自業自得なのですが、%CNAME("一人称")%の%TEXTR("アソコ/秘所/ヴァギナ")%すっかり%TEXTR("色がついちゃってますよね/黒ずんできちゃいました/変わっちゃいました")%」
								CALL PRINT_STRW, @"「でも、%CNAME("主人")%のせいでもあるんですから%TEXTR(@"これからも変わらずに愛してくださいね？　%CNAME("一人称")%の愛する/ちゃんと責任は取ってくださいね、")%%CNAME("主人")%_HH_」"
							ELSE
								PRINTFORML 「はぁ……%CNAME("一人称")%は%TEXTR("聖職者/シスター/悪魔祓い/聖女")%なのに%TEXTR("アソコ/秘所/ヴァギナ")%が%TEXTR("こんな色に/黒く")%なっちゃうほど……%TEXTR("イケナイ事をしてしまいました/しちゃったんです")%」
								CALL PRINT_STRW, @"「%TEXTR(@"解っていると思いますけど……こんな身体にしちゃった責任は取ってくれますよね、/責任をとってくれるって……信じてますからね。")%%CNAME("主人")%_HH_」"
							ENDIF
						ELSEIF COND("グロマン") && RAND:2 == 0
							IF TALENT:淫乱 && ABL:マゾっ気 >= 3 && TEQUIP:甘い言葉 && RAND:2 == 0
								PRINTFORML 「%TEXTR(@"%CNAME("一人称")%は%CNAME("主人")%だけの性処理マゾです/変態マゾの%CNAME("一人称")%のグロマンをたっぷり見てください、%CNAME("主人")%")%」
							ELSE
								PRINTFORML 「%TEXTR(@"恥ずかしいです……%CNAME("一人称")%のアソコはちょっぴり他の子と違うので……/%CNAME("一人称")%のアソコ、すっかり黒くなってしまいましたけど……%CNAME("主人")%は嫌じゃないでしょうか")%」
							ENDIF
							PRINTFORML
							PRINTFORMW %TEXTR("使い込まれた/度重なるセックスで")%%CALLNAME:TARGET%の%TEXTR("ビラビラ/小陰唇")%は肥大化し、すっかり色素沈着して黒ずんでしまっている。
							PRINTFORML
							PRINTFORML 「%TEXTR("そんなに見られたら/じっくり観察しちゃダメですから/ああっ、本当に……恥ずかしいですから")%……」
							PRINTFORML
							PRINTFORMW %CALLNAME:MASTER%が割れ目を左右に開くと外側とは対照的な桜色の肉壁が露わになり、%CALLNAME:TARGET%は肩を震わせながら切なげな吐息を漏らした……
						ELSEIF SAVESTR:現在位置 == "公園"
							IF RAND:2 == 0
								PRINTFORML 「%TEXTR("公園/お外")%でこんな事しちゃうなんて……」
								CALL PRINT_STR, @"「%TEXTR("ダメですよ/いけません")%……%TEXTR("あっ/ああっ")%_HH_」_W"
							ELSE
								PRINTFORML 「%TEXTR("誰か来ちゃったらどうするんですか/人が来ちゃいますからやめましょう")%……」
								PRINTFORMW 「%TEXTR("ダメですよ……そんな所見られちゃうの、恥ずかしいです/見られて興奮なんて……しませんから……")%」
							ENDIF
						ELSE
							PRINTFORML 「二人っきりだからって……もう」
							PRINTFORMW 「%CNAME("一人称")%は聖職者なんですから……本当はこういうのはダメなんですからね」
						ENDIF
					ELSE
						IF CSTR:PREV_DAILYCOM == "契約成立"
							PRINTFORML 「%TEXTR("取引した以上は応じない訳にはいきませんから……/契約した以上は従いますけど……")%」
						ENDIF
						PRINTFORML 「は、早くしてください%TEXTR("ね……/＿")%」
						PRINTFORML 「%TEXTR("誰か来ちゃいませんか……/誰かに見られたらどうするんですか……")%」
						PRINTFORMW %CALLNAME:TARGET%は%TEXTR("落ち着かなさそうに/恥ずかしそうに")%周囲を見回している。
					ENDIF
				ENDIF
			;室内の邪魔者が居る
			ELSE
				IF TALENT:恋慕 && (TALENT:クリピアス || TALENT:ラビアピアス || TALENT:ニプルピアス) && RAND:2 == 0
					IF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
						PRINTFORMW 「%TEXTR(@"うふっ……ピアス、見せつけちゃってもいいんですか？/%CNAME("二人称")%のくれたピアス、本当は自慢しちゃいたいんですからね……")%」
					ELSE
						PRINTFORMW 「%TEXTR(@"ダメですよ……バレちゃったらどうするんですか？/%CNAME("二人称")%のくれたピアスの事は内緒なんですから……")%」
					ENDIF
				ELSE
					PRINTFORML 「%TEXTR("恥ずかしいに決まってます……/……他の人もいるのに/嫌がった方が喜ぶのは知ってますからね/こういう命令は二人っきりの時にしてください")%」
					PRINTFORMW %CALLNAME:TARGET%は小さな声で囁いてきた。
				ENDIF
			ENDIF
		ELSE
			;合意がないとアソコチェック・パンツチェックは力持ちをあげても抵抗出来ない……
			CALL PRINT_STR, @"「%TEXTR("死んで反省しなさい/死んだらバカは治るかもしれません/死にたいみたいですね")%」_W"
			PRINTFORMW %TEXTR("ゴキンッ/ゴキィ/メキィ")%%TEXTR("ゴキンッ/ゴキィ/メキィ")%%TEXTR("ゴキンッ/ゴキィ/メキィ")%
			SETCOLOR DEF_COLOR("赤")
				PRINTFORML
				PRINTFORML 『システムメッセージ：衝撃を検知』
			RESETCOLOR
			BASE:MASTER:魂 -= 100
			CALL SETFLAG_DAILY, "不機嫌"
			IF BASE:MASTER:魂 <= 0
				CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
				PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
				BASE:MASTER:魂 = 1
			ENDIF
		ENDIF
	ENDIF
CASE "パンツチェック"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;寝言
		CALL KOJO_SLEEP_K23
		WAIT
	ELSEIF COND("合意：パンツチェック")
		;連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名 && STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			CALL PRINT_STR, @"「%TEXTR("はぁ…はぁ……/あっ_HH_……")%」_L"
			CALL PRINT_STR, @"「%TEXTR(@"%CNAME("二人称")%も興奮してきちゃいましたか？/%CNAME("二人称")%のせいで…%CNAME("一人称")%は興奮してきちゃいましたよ")%_HH_」_W"
		ELSEIF STATE("悪酔い", TARGET) || STATE("酔い", TARGET)
			PRINTFORML 「%TEXTR("ほら……匂いも嗅いでくださいね/ちゃんと近くで見てくださいね")%……」
			CALL PRINT_STR, @"「%TEXTR("うふふ…イケナイ事されてるのに、何だか嬉しくなっちゃいます/イケナイ事なのに、ウキウキしちゃいます")%_HH_」_W"
		;女あなたとパンツを交換する　あなたのパンツの好みがある人は自分で変更してみてね☆
		ELSEIF TALENT:恋慕 && TALENT:MASTER:オトコ == 0 && CHARA_NUM("室内の邪魔者") == 0 && RAND:5 == 0
			PRINTFORMW 「え……%CNAME("一人称")%の今穿いてる%TEXTR(@"下着と%CNAME("二人称")%が穿いてる下着を交換したいんですか？/パンツと%CNAME("二人称")%が穿いてるパンツを交換したいなんて……")%」
			CALL PRINT_SELECT, "自分の下着と交換してもらう/交換は諦める"
			IF RESULT == 0
				IF ABL:露出癖 >= 3
					CALL PRINT_STR, @"「%TEXTR("はぁ……/もう……")%%TEXTR("かなり恥ずかしいですけど……エッチな事してるって思うと興奮しちゃいますね/イケナイ事してるって思うと興奮してきちゃいますね")%_HH_」_W"
				ELSE
					PRINTFORMW 「%TEXTR(@"%CNAME("二人称")%/%CNAME("主人")%")%と%TEXTR("下着/パンツ")%を交換したなんて、%TEXTR("他の皆には内緒ですよ/絶対に皆さんには秘密ですからね")%……」
				ENDIF
				PRINTFORMW %CALLNAME:MASTER%と%CALLNAME:TARGET%はお互いに%TEXTR("まだ生暖かい/人肌の温もりを残す")%%TEXTR("下着/パンツ")%を交換した。
				;1だとロリ、2だと少女、3だとお姉さん、4だと大人
				;ロリ
				IF TALENT:MASTER:外見年齢 == 1
					IF RAND:2 == 0
						CALL SET_PANTIES, "パンティ"
						;PRINTFORMW 「ロリ巨乳そう言うのもあるのですね。%CNAME("一人称")%はどんな%CNAME("二人称")%でも好きですけど、外見より性格が大事です」
						;IF TALENT:MASTER:巨乳
						;	CALL SET_BRA, "ブラジャー"
						;	;ブラの色をあわせる
						;	CALL EQ_CLOCOLOR, TARGET
						;ENDIF
					ELSE
						CALL SET_PANTIES, "縞々パンツ"
					ENDIF
				;少女
				ELSEIF TALENT:MASTER:外見年齢 == 2
					CALL SET_PANTIES, TEXTR("フリルのパンツ/パンティ/縞々パンツ")
				;お姉さん
				ELSEIF TALENT:MASTER:外見年齢 == 3
					CALL SET_PANTIES, TEXTR("レースのパンツ/Ｔバック/パンティ/肉球プリントパンツ")
				;大人
				ELSEIF TALENT:MASTER:外見年齢 == 4
					CALL SET_PANTIES, TEXTR("レースのパンツ/Ｔバック/Ｈな下着/ビキニ")
				ENDIF
			ELSE
				PRINTFORMW 「%TEXTR("冗談でしたか……/ジョークにしてもビックリしますからねっ！！")%」
			ENDIF
		ELSE
			IF TALENT:恋慕 && SAVESTR:現在位置 == "公園"
				PRINTFORML 「%TEXTR("ちょっとだけ、ちょっとだけですからね/ちょっとだけ見せるだけですからね/本当はダメなんですからね")%？」
				IF RAND:3 == 0
					PRINTFORMW （%TEXTR("このぐらいまでなら聖職者としてセーフですよね……/神よ……愛する者に施しを与える事をお赦しください/後で懺悔しますから……主よ、お許しください")%）
					;PRINTFORMW 家政婦は見た
					;PRINTFORMW フェリシエル（夜の公園でパンツを見せるのは聖職者より、人としてアウトなんじゃないかと思いますけどね。ちょっと羨ましいなんて思ってしまいますが……）
				ELSEIF RAND:2 == 0
					PRINTFORMW （%TEXTR("公園/お外")%でこんな%TEXTR("事し/お願い聞い")%ちゃうなんて%TEXTR("まるで変態みたい……/")%」
				ELSE
					PRINTFORMW （%TEXTR("お願いされたんだからしょうがないですよね/もう……こんな所でお願いしてくるなんて")%……）
				ENDIF
			ELSE
				PRINTFORML 「%TEXTR("もう/しょうがないですね")%……」
				PRINTFORMW 「%TEXTR("コレでいいですか？/ほら……見たんだからもういいじゃないですか")%」
				IF CHARA_NUM("室内の邪魔者") >= 1
					PRINTFORMW 「%TEXTR("み…見られてますから……/みんなの前でこれ以上は……ダメですからね……")%」
				ENDIF
			ENDIF
		ENDIF
	;COND("合意：パンツチェック")がない
	ELSE
		;連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF RAND:3 == 0
				PRINTFORMW 「時と場合を弁えなさい」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「人の嫌がる事はやめなさい」
			ELSE
				PRINTFORMW 「解ってくださるまで、%CNAME("一人称")%は何度でも%CNAME("二人称")%を教育しますからね」
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「聖職者に何をするんですか……」
			ELSE
				PRINTFORML 「%CNAME("一人称")%が悪魔祓いだという事をお忘れでしょうか」
			ENDIF
			IF RAND:3 == 0
				PRINTFORML 「反省してくださいね」
			ELSEIF RAND:2 == 0
				PRINTFORML 「命が惜しくない様ですね」
			ELSE
				PRINTFORML 「主よ、この愚かなる魂を導きたまえ」
			ENDIF
		ENDIF
		IF RAND:3 == 0
			PRINTFORMW %CALLNAME:TARGET%は決意を胸に%CALLNAME:MASTER%を天に送る事にした。
		ELSEIF RAND:2 == 0
			PRINTFORMW %CALLNAME:TARGET%は悲しそうに%CALLNAME:MASTER%へと反省を促した。
		ELSE
			PRINTFORMW %CALLNAME:TARGET%は嫌悪を露わにしながら%CALLNAME:MASTER%を誅滅しはじめた。
		ENDIF
		IF COND("合意：パンツチェック") == 0
			SETCOLOR DEF_COLOR("赤")
				PRINTFORML
				PRINTFORML 『システムメッセージ：強い衝撃を検知』
			RESETCOLOR
			BASE:MASTER:魂 -= 200
			CALL SETFLAG_DAILY, "不機嫌"
			IF BASE:MASTER:魂 <= 0
				;PRINTFORML 『おお　ご主人様よ、死んでしまうとは情けない……』
				CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
				PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
				BASE:MASTER:魂 = 1
			ENDIF
		ENDIF
	ENDIF
CASE "股間を撫でる"
	IF CHARA_NUM("室内の邪魔者") >= 1
		;股間を撫でる　連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF TALENT:相思相愛 && RAND:2 == 0
				PRINTFORML 「%TEXTR("もう/んっ")%……これ以上はダメです」
				PRINTFORMW 「続きをしたいなら……二人っきりでお願いします」
			ELSE
				PRINTFORML 「%TEXTR("あっ/んっ")%……」
				PRINTFORMW 「もう……%TEXTR("他の人が見てますよ、やめましょうね/みんなの前で何をするんですか")%」
			ENDIF
			IF TALENT:力持ち == 9 && RAND:2 == 0
				IF RAND:2 == 0
					PRINTFORML %CALLNAME:TARGET%は股間を触る%CALLNAME:MASTER%の手を掴んで捻った。
				ELSE
					PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%に悪戯する手を掴まれた。
				ENDIF
				PRINTFORMW %TEXTR("あっという間に/一瞬で")%%CALLNAME:MASTER%の身体が%TEXTR("宙を舞う/綺麗に一回転した")%。
			ELSE
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の手を掴み強い力で引き剥がし器用に投げ飛ばした。
			ENDIF
			;股間を撫でる　防衛戦成功
			IF TALENT:MASTER:力持ち >= TALENT:力持ち && RAND:3 == 0
				IF TALENT:力持ち == 9
					PRINTFORML
					PRINTFORMW %TEXTR(@"しかし、%CALLNAME:MASTER%も見事な体捌きで受け身を取ってみせた。/勢いよく%CALLNAME:MASTER%は地面に叩きつけられた。なんとか致命傷で済んだぜ……")%
					IF TALENT:恋慕
						PRINTFORMW 「%TEXTR("大丈夫ですか？……そう言うのは二人きりでお願いしますね/怪我はないですか？……やりすぎちゃったかもしれませんけど、少しは反省してくださいね")%」
					ELSE
						PRINTFORMW 「%TEXTR("まったく……変態ですね/ダメですよ。そう言うのはその……二人きりになってからじゃないと/まったく……少しは反省してくださいね？")%」
					ENDIF
				ELSE
					IF RAND:2 == 0
						PRINTFORML 「すみません……少しやりすぎちゃったでしょうか？」
						PRINTFORMW 「……あんまり痛くなさそうですね。次はもうちょっと本気で懲らしめる必要がありそうですね。次回はちゃんと反省してくださいね」
					ELSE
						PRINTFORML 「ごめんなさい……手加減しそこねちゃいましたね」
						PRINTFORMW 「……反省してるって感じではないですね。次はもう少し痛くしないとダメでしょうか」
					ENDIF
					TALENT:力持ち = MIN(TALENT:力持ち + 2, 9)
				ENDIF
			;防衛戦失敗
			ELSE
				PRINTFORMW %CALLNAME:MASTER%の身体が%TEXTR("地面に投げ飛ばされた/地面に叩きつけられた/宙を舞い地面に叩きつけられる")%。
				SETCOLOR DEF_COLOR("赤")
					PRINTFORML
					PRINTFORML 『システムメッセージ：衝撃を検知』
				RESETCOLOR
				BASE:MASTER:魂 -= 100
				CALL SETFLAG_DAILY, "不機嫌"
				IF BASE:MASTER:魂 <= 0
					;PRINTFORML 『おお　ご主人様よ、死んでしまうとは情けない……』
					CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
					PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
					BASE:MASTER:魂 = 1
					IF RAND:3 == 0
						PRINTFORML 「主よ、お許しください」
						PRINTFORML 「願わくばこの御魂に平穏があらん事を」
						PRINTFORMW %CALLNAME:MASTER%の命を奪ってしまった%CALLNAME:TARGET%は懺悔している。
					ELSEIF RAND:2 == 0
						PRINTFORML 「まだ続けます？」
						PRINTFORMW 「あんまりしつこいと……女の子に嫌われてしまうかもって思いませんか？」
					ELSE
						PRINTFORML 「そろそろ懲りてくれましたか？」
						PRINTFORMW 「時と場合を考えてくださいね？」
					ENDIF
				ENDIF
			ENDIF
		;室内に邪魔者がいる　一回目実行
		ELSE
			IF TALENT:恋慕
				CALL PRINT_STRL, @"「%TEXTR("こら/もう")%……%CNAME("一人称")%と%CNAME("二人称")%の仲をそんなに%TEXTR("みんな/周り")%に見せつけたいんですか_HH_」"
				PRINTFORML 「%TEXTR("嫌ではないですけど……恥ずかしいですからね/どうしてもと言うなら……二人っきりで、お願いします")%」
			ELSE
				PRINTFORML 「……%TEXTR(@"何処を触っているんですか/何をしてるんですか/変態ですね、%CNAME("二人称")%は")%」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%は警告の意味を込めて、%CALLNAME:MASTER%の手を握って静止してきた。
			;股間を撫でる　防衛戦成功
			IF TALENT:MASTER:力持ち >= TALENT:力持ち && RAND:3 == 0
				IF TALENT:力持ち == 9
					PRINTFORML
					PRINTFORMW %CALLNAME:MASTER%と%CALLNAME:TARGET%。二人の目にも止まらぬ攻防が繰り広げられる。
					IF TALENT:恋慕
						PRINTFORMW 「%TEXTR("こら/ふぅ")%……%TEXTR("中々やりますね。でも、他の人がいる場所で触るのはＮＧですから/腕を上げましたね。でも、触るのはダメですよ、めっ")%」
					ELSE
						PRINTFORMW 「……%TEXTR(@"やりますね。でも、触らせてはあげませんから/%CNAME("一人称")%と互角なんて少しビックリしましたけど、触るのはダメです。これとそれとは別問題ですから")%」
					ENDIF
				ELSE
					IF RAND:2 == 0
						PRINTFORML 「反省してくださいね」
						PRINTFORMW 「腕がもげそうなんですか？　結構力を入れてるんですけど、まだまだ平気そうに見えますから次は本気を出します」
					ELSE
						PRINTFORML 「これに懲りたら触るのは無しにしてください」
						PRINTFORMW 「なんですか、その手は。まだまだ反省が足りないみたいですね。じゃあ次はボキッてしちゃっても良いでしょうか？」
					ENDIF
					TALENT:力持ち = MIN(TALENT:力持ち + 2, 9)
				ENDIF
			;防衛戦失敗
			ELSE
				PRINTFORMW %CALLNAME:MASTER%の身体が%TEXTR("地面に投げ飛ばされた/地面に叩きつけられた/宙を舞い地面に叩きつけられる")%。
				SETCOLOR DEF_COLOR("赤")
					PRINTFORML
					PRINTFORML 『システムメッセージ：衝撃を検知』
				RESETCOLOR
				BASE:MASTER:魂 -= 100
				CALL SETFLAG_DAILY, "不機嫌"
				IF BASE:MASTER:魂 <= 0
					;PRINTFORML 『おお　ご主人様よ、死んでしまうとは情けない……』
					CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
					PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
					BASE:MASTER:魂 = 1
					IF RAND:3 == 0
						PRINTFORML 「主よ、お許しください」
						PRINTFORML 「願わくばこの御魂に平穏があらん事を」
						PRINTFORMW %CALLNAME:MASTER%の命を奪ってしまった%CALLNAME:TARGET%は懺悔している。
					ELSEIF RAND:2 == 0
						PRINTFORML 「まだ続けます？」
						PRINTFORMW 「あんまりしつこいと……女の子に嫌われてしまうかもって思いませんか？」
					ELSE
						PRINTFORML 「そろそろ懲りてくれましたか？」
						PRINTFORMW 「時と場合を考えてくださいね？」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	;室内に邪魔者がいない
	ELSE
		;股間を撫でる　連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF TALENT:恋慕
				CALL PRINT_STRL, @"「%TEXTR("もう/んっ/ん/あっ/あ")%_HH_……」"
				CALL PRINT_STRW, @"「%TEXTR(@"他の人がいないからって……ダメ、ですよ/ソコ……気持ちいいですけど、ダメですよ。誰もいないからって/こら……あんまり悪戯されると、%CNAME("一人称")%だってしたくなっちゃいますから、ね")%_HH_」"
			ELSE
				PRINTFORMW 「%TEXTR("誰も居ないからってダメですよ……/こら……そう言うのはダメですから、んぅ")%」
			ENDIF
		ELSE
			IF TALENT:恋慕 && RAND:2 == 0
				PRINTFORML 「好きな人に……%TEXTR("悪戯される/触られる")%のは嫌じゃないですけど」
				CALL PRINT_STRW, @"「%TEXTR("は……恥ずかしいですから……/か……感じてきちゃいますからね……")%%TEXTR("んっ/んんっ/あっ/あんっ")%_HH_」"
			ELSE
				PRINTFORML 「%TEXTR(@"二人きりだからって……恥ずかしいですよ/ソコは……言えません。恥ずかしい場所ですから/何処を触られてるかなんて……%CNAME("一人称")%に何を言わせたいんですか")%」
			ENDIF
		ENDIF
	ENDIF

CASE "ブルマチェック", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;寝言
		CALL KOJO_SLEEP_K23
		WAIT
	ELSEIF CFLAG:股間確認済 && RAND:2
		PRINTFORMW 「そんなにジロジロ見られると気になってしまいますよ」
		IF FIND_COND("現在存在", "フェリシエル") && RAND:2 == 0
			ACTOR = FIND_COND("現在存在", "フェリシエル")
			;CALL EMOTION_PLUS, "交流中", TARGET, ACTOR
			PRINTFORMW 『フフ…随分と楽しそうな事をしてますね。プロポーションなら私も負けてないと思うんですけどどうです？』
			PRINTFORML 話を聞きつけたフェリシエルがやってきた。
		ENDIF
	;上機嫌
	ELSEIF CFLAG:褒める
		PRINTFORMW 「%TEXTR("……もう、恥ずかしいですよ？/少しぐらいなら大目に見てあげますけど、しつこいのはダメですからね？/好奇心旺盛なのは良い事ですけど……あまりジロジロ見るのは失礼ですからね？")%」
	;★
	ELSEIF TALENT:淫乱 && ABL:露出癖 >= 3
		IF RAND:4 == 0
			PRINTFORMW 「うふふっ……ちゃんと%CNAME("二人称")%の視線には気がついてますからね」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「ふふっ……あんまり見られてるとちょっぴりくすぐったいです」
		ELSEIF RAND:2 == 0
			SIF CHARA_NUM("室内の邪魔者") >= 1
				PRINTFORM 他の部員と%TEXTR("雑談/話")%しながら
			PRINTFORMW %TEXTR(@"椅子に腰を下ろした%CALLNAME:TARGET%はワザとらしく片膝を立てて股間を強調してみせた/%CALLNAME:TARGET%は指先で股間の布地のズレを直している")%。
		ELSE
			PRINTFORMW %CALLNAME:TARGET%はヒップラインを強調する様に%CALLNAME:MASTER%にお尻を向けて布地のズレを指先で直している。
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「喜んでいいのか……悲しんでいいのか……」
		ELSE
			PRINTFORML 「%TEXTR("ダメですよ？/こらっ")%」
			PRINTFORMW %CALLNAME:MASTER%の視線に気がついた%CALLNAME:TARGET%は手で股間を隠してしまった。
		ENDIF
	ENDIF

CASE "スカートをめくる"
	SELECTCASE STR:日常イベント名
		CASE "スカートたくし上げ"
			;初めて
			IF DEVENT(STR:日常イベント名) == 0
				PRINTFORMW 「……見たいんですよね、困った人ですね」
			;パンチラ直後
			ELSEIF COND("パンチラ直後")
				IF RAND:2 == 0
					PRINTFORML 「パンツを見られちゃったの気が付いてますからね？」
					PRINTFORMW 「でも……%CNAME("二人称")%になら見られても良いとは思ってますけどね」
				ELSE
					PRINTFORMW 「見られてたの気がついてますからね？　もう……」
				ENDIF
			ELSE
				IF TALENT:恋慕 && SAVESTR:現在位置 == "公園"
					IF RAND:2 == 0
						PRINTFORML 「%TEXTR("ちょっとだけですからね/誰もいませんよね")%……」
						PRINTFORMW %CALLNAME:TARGET%は不安そうに周りを見回している。
					ELSE
						PRINTFORML 「%TEXTR(@"こんな事は%CNAME("二人称")%にしかしてあげませんからね？/%CNAME("一人称")%は聖職者ですが%CNAME("二人称")%の気持ちを軽んじるつもりはありません")%」
						PRINTFORMW 「%TEXTR("恥ずかしいですけど特別に見せてあげますね/絶対に他の人には内緒にしていてくださいね")%……」
					ENDIF
				ELSE
					PRINTFORMW 「%TEXTR("はい……見せてあげますから/またですか……")%」
				ENDIF
			ENDIF
		;スカートをめくる
		CASEELSE
			;寝起きの胡乱な状態を襲う
			IF CFLAG:寝起き
				PRINTFORMW
			;睡眠中の悪戯
			ELSEIF CFLAG:睡眠
				;寝言
				CALL KOJO_SLEEP_K23
				WAIT
			ELSEIF COND("合意：スカートめくり")
				IF TALENT:恋慕 && SAVESTR:現在位置 == "公園" && RAND:2 == 0
					PRINTFORML 「%TEXTR("公園/お外")%でそう言うのはダメですからね？」
					PRINTFORMW 「%TEXTR("……見たいならちゃんと言ってくれたら見せてあげますから/誰かに見られたらどうするんですか/たまたま誰も居なかったからいいですけど、めっですよ")%」
				ELSEIF CHECK_CLO("ノーパン") && RAND:2 == 0
					CALL PRINT_STR, @"「%TEXTR("ひゃっ！？/きゃあっ！！")%」_W"
					CALL PRINT_STR, @"「%TEXTR("な、何をするんですか/み、見ましたね……")%」_W"
				ELSE
					CALL PRINT_STR, @"「%TEXTR("こらっ/何するんですかっ")%」_W"
					PRINTFORMW %CALLNAME:TARGET%は少しだけ驚いた様子で怒った。
				ENDIF
			;膝枕してもらった後
			ELSEIF CSTR:PREV_DAILYCOM == "膝枕"
				PRINTFORML 「悪戯しちゃダメですよ？」
				PRINTFORMW 「次やったら命がないと思ってくださいね？」
			;初めて
			ELSEIF DEVENT(STR:日常イベント名) == 0
				CALL EMOTION_PLUS, "びっくり", TARGET
				PRINTFORML 「きゃあああ！」
				PRINTFORMW メキメキメキィ
				PRINTFORMW 悲鳴と共に放たれた振り向きざまのバックスイングが%CALLNAME:MASTER%を襲う。
				SETCOLOR DEF_COLOR("赤")
					PRINTFORML
					PRINTFORML 『システムメッセージ：強い衝撃を検知』
				RESETCOLOR
				BASE:MASTER:魂 -= 200
				CALL SETFLAG_DAILY, "不機嫌"
				IF BASE:MASTER:魂 <= 0
					;PRINTFORML 『おお　ご主人様よ、死んでしまうとは情けない……』
					CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
					PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
					BASE:MASTER:魂 = 1
				ENDIF
			;パンチラ直後
			ELSEIF COND("パンチラ直後")
				PRINTFORML 「エッチ！」
				PRINTFORMW ボキッ
				PRINTFORMW 恥ずかしさのあまり、平手打ちと言うよりただの純粋な暴力が%CALLNAME:MASTER%を襲う。
				SETCOLOR DEF_COLOR("赤")
					PRINTFORML
					PRINTFORML 『システムメッセージ：強い衝撃を検知』
				RESETCOLOR
				BASE:MASTER:魂 -= 200
				CALL SETFLAG_DAILY, "不機嫌"
				IF BASE:MASTER:魂 <= 0
					;PRINTFORML 『おお　ご主人様よ、死んでしまうとは情けない……』
					CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
					PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
					BASE:MASTER:魂 = 1
				ENDIF
			ELSE
				CALL EMOTION_PLUS, "びっくり", TARGET
				IF COND("挨拶前")
					CALL PRINT_STR, @"「きゃ%TEXTR("あああっ/ああっ/ああぁっ")%」_L"
					CALL PRINT_STR, @"「%TEXTR("死になさい！/死んで償ってくださいね？/死んで反省してください？/許しませんからね！！")%」_L"
				ELSE
					;パンツはいてない
					IF EQUIP:パンツ == 0
						CALL PRINT_STR, @"「%TEXTR("！？※■？△！！/※■？△！？×！！")%_HH_」_L"
						PRINTFORML %CALLNAME:TARGET%は言葉にならない悲鳴をあげた。
					ELSE
						CALL PRINT_STR, @"「きゃ%TEXTR("あああっ/ああっ/ああぁっ")%」_L"
						CALL PRINT_STR, @"「%TEXTR("死になさい！/死んで償ってくださいね？/死んで反省してください？/許しませんからね！！")%」_L"
					ENDIF
				ENDIF
				PRINTFORMW %TEXTR("バシンッ/バシッ/バキィ/バキン")%
				SETCOLOR DEF_COLOR("赤")
					PRINTFORML
					PRINTFORML 『システムメッセージ：強い衝撃を検知』
				RESETCOLOR
				BASE:MASTER:魂 -= 200
				CALL SETFLAG_DAILY, "不機嫌"
				IF BASE:MASTER:魂 <= 0
					;PRINTFORML 『おお　ご主人様よ、死んでしまうとは情けない……』
					CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
					PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
					BASE:MASTER:魂 = 1
				ENDIF
			ENDIF
	ENDSELECT

CASE "性処理を頼んだ際の反応"
	;やる気がある場合
	IF COND("やる気性処理")
		;他ヒロインの口上に沸くメイドの鑑
		;フェリシエル「暫定対応でもとりあえず書こうって言うその気持ちが大事ですよ。ファイトです、ご主人様」
		IF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORML 「%TEXTR("どうしましたか？　え……ココでして欲しいのですか？/……そんな風に耳元で囁かれても、聞けるお願いと聞けないお願いがあるんですからね")%」
			ELSEIF RAND:2 == 0
				PRINTFORML 「%TEXTR(@"ムラムラしたので……懺悔したいのですか？/溜め込みすぎはいけません……悪魔に魂を渡すぐらいなら%CNAME("一人称")%がスッキリさせてあげますからね")%」
			ELSE
				PRINTFORML 「性処%TEXTR("＿/理ですか")%……%TEXTR(@"こほん、間違えました/%CNAME("一人称")%は聖職者ですから、今の失言は忘れてくださいね")%。%TEXTR(@"神に罪を告解したいのですか？/%CNAME("二人称")%が%CNAME("一人称")%に懺悔したいのなら聞きましょう")%」
			ENDIF
			PRINTFORML 「%TEXTR("……他の人が来るまでですからね？/良いですけど、他の方の迷惑にならないようにこっそりとですよ/二人っきりだからって……本当はダメなんですからね？/二人きりだから許してあげますけど、本当はダメですよ")%」
		ELSE
			PRINTFORML 「%TEXTR("契約なので、お願いされるのであれば付き合いますけど……/悪魔に魂を渡すわけにはいきませんから、そのお付き合いしますね")%」
		ENDIF
		PRINTFORMW %CALLNAME:TARGET%は%TEXTR("頬を赤らめながらも、/少しだけ躊躇いつつも、")%%CALLNAME:MASTER%の性処理に乗り気のようだ…
;		SELECTCASE STR:プレイ内容
;		CASE "フェラチオ"
;
;		CASE "パイズリ"
;
;		CASE "Ｖセックス"
;
;		CASE "Ａセックス"
;
;		CASE "尿道セックス"
;
;		CASE "ニプルファック"
;
;		ENDSELECT
	;何かしながらで良いならしてあげるよって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("ながら性処理")
		;他ヒロインの口上に沸く師匠の鑑
		;ツェツィ師匠「片手間なのだから凝った口上は不要だろう。勝手に使いたまえと一言書いておけば充分ではないかな」
		IF TALENT:恋慕
			PRINTFORML 「%TEXTR("今、手が離せないのですが……どうしてもと言うのならお付き合いしますけど/後にしてくれるのなら、ちゃんとお相手しますけど……")%」
		ELSE
			PRINTFORML 「%TEXTR("今ですか……ちょっと難しいのですが、どうしてもと言うのであれば……/忙しいのですが……契約ですし、どうしてもと言うのであればお付き合いします")%」
		ENDIF
		PRINTFORML
		PRINTFORMW %CALLNAME:TARGET%は後ならばちゃんと相手をしてくれそうだ……
		PRINTFORML
		IF TALENT:恋慕
			SELECTCASE STR:プレイ内容
				CASE "手淫"
					PRINTFORML 「%TEXTR("手/手の平")%を性処理に貸して欲しいのですか？　それぐらいなら構いませんが……」
					SELECTCASE SAVESTR:夢中
						CASE "スマホ"
							PRINTFORM 「部員の皆さんとお話しながらなので
						CASE "ゲーム"
							PRINTFORM 「部員の皆さんと対戦ゲーム中なので
						CASE "読書"
							PRINTFORM 「今は聖書を読む時間なので
						CASE "漫画本"
							PRINTFORM 「部活からお借りした漫画が良い所なので
						CASE "勉強"
							PRINTFORM 「テスト勉強の途中なので
						CASE "SNS"
							PRINTFORM 「最近覚えたSNSに書き込んでいるので
						CASE "WEB配信"
							PRINTFORM 「法皇庁のWEB配信を見ているので
					ENDSELECT
					PRINTFORMW ……%TEXTR("ちゃんと/しっかりとした")%ご奉仕は出来ませんよ……」
				CASE "Ｖセックス"
					PRINTFORML 「%CNAME("一人称")%は%CNAME("二人称")%%TEXTR(@"に跨るだけですか/の上に乗るだけで良いのですか/に乗っているだけで良いと言うのですか")%……」
					PRINTFORMW 「%TEXTR("そんなにお願いされたら……もう、しょうがないですね/どうしてもと言うなら……解りました")%」
				CASE "Ａセックス"
					PRINTFORML 「%CNAME("一人称")%の%TEXTR("お尻/アナル/不浄の穴")%を貸して欲しいのですか……」
					PRINTFORMW 「%TEXTR(@"確かに……こんな事は%CNAME("一人称")%にしか頼めないでしょうけど……/%CNAME("一人称")%を見込んでのお願いとあればしょうがありませんね/そんな風に頼まれたら……断れません")%」
;				CASE "尿道セックス"
;
			ENDSELECT
			PRINTFORML
		ENDIF
	ELSE
		;やる気がない
		PRINTFORMW 「本日のやる気は売り切れ中で～す。」
	ENDIF
CASE "お願いするを頼んだ際の反応"
	IF COND("やる気性処理")
		CALL PRINT_STRL, @"「%TEXTR("もう/まったく")%……%TEXTR("しょうがないですね/今回は特別ですからね")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("言う事を聞いてあげますから/お願いを叶えてあげますから")%……%TEXTR("後でちゃんと続きをしてくださいね/ちゃんとしたカタチで後で愛し合いましょうね")%_HH_」"
	ELSE
		SELECTCASE STR:プレイ内容
		CASE "手淫"
			PRINTFORML 「手を貸すだけで良いのでしたら……」
			PRINTFORMW 「お手伝いさせていただきますね」
			PRINTFORML
		CASE "フェラチオ"
			PRINTFORML 「%TEXTR("＿/お")%口を貸して欲しいんですか……」
			PRINTFORMW 「待ってくれれば後でちゃんとしますけど……どうしても今が良いのですね」
			PRINTFORML
		CASE "Ｖセックス", "尿道セックス"
			PRINTFORML 「……%TEXTR("＿/気軽に")%%CNAME("一人称")%%TEXTR("の穴を貸して欲しいと言いますけど/に性処理して欲しいと言いますけど")%」
			PRINTFORMW 「%CNAME("一人称")%は今忙しいので……お相手するのは難しいと思いますよ」
			PRINTFORML
		CASE "Ａセックス"
			PRINTFORML 「%CNAME("一人称")%の%TEXTR("お尻/アナル/不浄の穴")%は……」
			PRINTFORMW 「入れる場所ではなく出る場所ですからね。あまり気軽に使われると……その%CNAME("一人称")%だって色々困るんです」
			PRINTFORML
		CASEELSE
			PRINTFORML 「もう……」
			PRINTFORMW 「どうしてもと言うなら付き合いますけど……少しは我慢を覚えてくださいね」
			PRINTFORML
		ENDSELECT
	ENDIF
CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:プレイ内容
		CASE "パンツ見抜き"
			PRINTFORML 「%CNAME("一人称")%の下着を見ながら……」
			PRINTFORMW 「%TEXTR("自分で処理したいんですか……構いませんけど。頼んでくだされば、お手伝いぐらいは何時でもしますからね？/自慰する所を見ていて欲しいんですね。良いですけど……本当に見ているだけで良いんですか？")%」
		CASEELSE
			IF COND("やる気性処理")
				PRINTFORML 「%CNAME("一人称")%に見せつけながらするなんて……」
				PRINTFORMW 「もう……変態なんだから……」
			ELSE
				PRINTFORML 「何をしても構いませんけど……」
				PRINTFORMW 「%CNAME("一人称")%としては……%TEXTR(@"ちょっぴり恥ずかしいです/%CNAME("二人称")%の性癖をちょっぴり解らないなって、思ってます")%」
			ENDIF
		ENDSELECT
;これは見抜きされる(パンツを見せている)側の立場のセリフ。連れ見抜き参加者はPARTNER()で参照できる
CASE "連れ見抜き"
	;表情を変える場合はここで出来る
	CALL EMOTION_PLUS, "恥じらい", TARGET
	PRINTFORML 「……%CNAME("パートナー")%%TEXTR(@"も%CNAME("一人称")%を見ながらオナニーしたいんですか/も%CNAME("主人")%と一緒にオナニーしたいんですね")%？」
	IF TALENT:淫乱
		CALL PRINT_STRW, @"「%TEXTR("はぁ/んぅ")%_HH_……%TEXTR(@"見られていると思ったら%CNAME("一人称")%も濡れてきちゃいました/%CNAME("一人称")%も一緒にしたい気分になって来ちゃいますからね")%_HH_」"
	ELSE
		CALL PRINT_STRW, @"「恥ずかしいですけど……%CNAME("一人称")%も%TEXTR("ドキドキしてきてしまいます/こうしてご奉仕するのは嫌いではないですからね")%_HH_」"
	ENDIF
;これは見抜きする(あなたに誘われて自家発電する)側の立場のセリフ。パンツを見せているキャラはPARTNER()で参照できる
CASE "連れ見抜きに誘われた"
	;表情を変える場合はここで出来る
	CALL EMOTION_PLUS, "褒める", TARGET
	CALL PRINT_STRL, @"「……%CNAME("パートナー")%%TEXTR("でオナニーさせてもらいますね/の下着を見ながらシコシコさせてもらいます")%_HH_」"
	CALL PRINT_STRW, @"「%TEXTR("んっ/はぁ")%_HH_　%TEXTR("イケナイ事をしているのに……手が止まらなく……/こんな事本当はイケないのに……")%%TEXTR("あぁん/はぁ、はぁ、イキそうです")%_HH_」"
CASE "性処理の内容変更を頼んだ際の反応"
	IF COND("やる気性処理")
		CALL PRINT_STRL, @"「%TEXTR("もう/まったく")%……%TEXTR("しょうがないですね/今回は特別ですからね")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("言う事を聞いてあげますから/お願いを叶えてあげますから")%……%TEXTR("後でちゃんと続きをしてくださいね/ちゃんとしたカタチで後で愛し合いましょうね")%_HH_」"
	ELSEIF COND("ながら性処理")
		SELECTCASE STR:プレイ内容
		CASE "手淫"
			PRINTFORML 「手を貸して欲しいんですか……」
			PRINTFORMW 「構いませんが%TEXTR("しっかり/ちゃんと")%したご奉仕は期待しないでくださいね」
		CASE "フェラチオ"
			PRINTFORML 「%TEXTR("＿/お")%口を貸して欲しいんですか……」
			PRINTFORMW 「貸すのは構わないのですが……普通に%CNAME("一人称")%の邪魔になるのではないでしょうか？」
		CASE "Ｖセックス", "Ａセックス", "尿道セックス"
			PRINTFORML 「はぁ……」
			SELECTCASE SAVESTR:夢中
				CASE "スマホ"
					PRINTFORMW 「%CNAME("一人称")%は部員の皆さんとお話しているので……手加減してくださいね」
				CASE "ゲーム"
					PRINTFORMW 「%CNAME("一人称")%は部員の皆さんと対戦ゲーム中なので……控えめにお願いしますね」
				CASE "読書"
					PRINTFORMW 「今は聖書を%TEXTR("読む/読み、お祈りする")%時間なので……本当は%TEXTR("ダメですからね/いけませんからね")%」
				CASE "漫画本"
					PRINTFORMW 「部活からお借りした漫画が良い所なので……あまり激しいのは困りますからね」
				CASE "勉強"
					PRINTFORMW 「テスト勉強の途中なので……集中出来るのでしょうか、%CNAME("一人称")%」
				CASE "SNS"
					PRINTFORMW 「最近覚えたSNSに書き込んでいるので……あまり邪魔されると、困っちゃいます」
				CASE "WEB配信"
					PRINTFORMW 「法皇庁のWEB配信を拝見しているので……あの、真面目に読まないと後で%CNAME("一人称")%が怒られちゃうんです」
			ENDSELECT
		ENDSELECT
	ENDIF

CASE "性処理を頼む"
	SELECTCASE NAMES("性処理")
	CASE "フェラチオ", "パイズリ"
		CALL PRINT_STR, @"「%TEXTR("ちゅ/ちゅぅ")%_HH_　%TEXTR("満足しましたか/欲求不満は解消しましたか")%？」_L"
		CALL PRINT_STR, @"「%TEXTR("神様は見ていますからね。続きがしたいなら……ちゃんと誘ってくれないとイヤですよ/懺悔の続きは……ちゃんと誘ってくれたら聞いてあげますからね")%_HH_」_L"
	CASE "Ｖセックス"
		IF TALENT:妊娠
			;メイド「違うんじゃないでしょうか？　多分、ご主人様は無責任種付けしたいだけです」
			PRINTFORML 「%TEXTR("お腹に赤ちゃんいるんですよ……もう/今は妊娠しちゃってますからね……")%」
			CALL PRINT_STR, @"「%TEXTR("もっと沢山産んで欲しいって気持ちは解りますけど、もうちょっとだけ待っててくださいね/何人でも産んであげますから、少しだけ待っててくださいね")%_HH_」_W"
		ELSE
			CALL PRINT_STR, @"「いっぱい%TEXTR("出ちゃいましたね/出してくれてありがとうございます")%_HH_」_L"
			CALL PRINT_STR, @"「%TEXTR(@"二人の赤ちゃんが出来るまでいっぱい注いでくださいね/妊娠出来るまで……一緒に頑張りましょうね、%CNAME("主人")%")%_HH_」_W"
		ENDIF
	CASE "Ａセックス"
		PRINTFORML 「%TEXTR("はぁはぁ……/はぁ……んっ……")%」
		IF ABL:Ａ感覚 >= 3 && RAND:2 == 0
			CALL PRINT_STR, @"「%TEXTR("こんなに激しくされると……もっとしたくなっちゃいます/ダメですよ……二人っきりだからってこんな激しくしちゃ")%_HH_」_W"
		ELSE
			PRINTFORMW 「%TEXTR(@"ムラムラしたからって、お尻でするのは本当はイケナイ事なんですからね……ちゃんと懺悔してくださいね\/%CNAME("主人")%はスッキリしましたか？　%CNAME("一人称")%は……ムラムラしちゃいました……")%」
		ENDIF
	CASE "尿道セックス"
		PRINTFORMW 「気持ちよかったですか……ちょっと苦しいですけど、%CNAME("主人")%が喜んでくれるなら%CNAME("一人称")%は嬉しいですよ」
	CASE "ニプルファック"
		PRINTFORML 「こんな事してるのを他の人に見られちゃったらどうするんですか……」
		PRINTFORMW 「%TEXTR("流石に/おっぱいでの性行為は")%……%TEXTR("聖職者/悪魔祓い/聖女")%の%TEXTR("立場/身の上")%として、他の人には見せられない姿だと%TEXTR("思いますよ/思ってますからね")%」
	ENDSELECT
CASE "ながら性処理"
	IF TALENT:恋慕
		PRINTFORML
		IF RAND:2 == 0
			SELECTCASE NAMES("性処理")
			CASE "手淫"
				PRINTFORML 「%TEXTR(@"これで満足してくれましたか、%CNAME("主人")%？/はい、お仕舞いです")%」
				CALL PRINT_STRW, @"「%TEXTR("続きは……後でならいいですけど今はダメですからね？/この続きはちゃんとしたカタチでお願いしてくれたら考えてあげますからね")%_HH_」"
			CASE "Ｖセックス"
				PRINTFORML 「もう……お仕舞いにするのでしょうか？」
				PRINTFORMW 「……べ、別に%CNAME("一人称")%%TEXTR("が物足りない訳ではないのですが、/は聖職者ですし肉欲に溺れたりはしていませんが、")%%CNAME("二人称")%はこの程度では満足しないのではないかと心配してるだけです」
			CASE "Ａセックス"
				IF RAND:2 == 0
					PRINTFORML 「%TEXTR("お尻/アナル/不浄の穴")%は%TEXTR("本当/本来")%は%TEXTR("性交/性行為/セックス")%をする場所ではないんですからね……」
					PRINTFORMW 「%CNAME("主人")%が%TEXTR("どうしてもと言うから……させてあげてるんです/喜んでくださるから……ちょっぴりぐらいは良いかなって……もう、本当はダメなんですからね")%」
				ELSE
					PRINTFORML 「%CNAME("一人称")%の%TEXTR("お尻/アナル/不浄の穴")%で満足していただけましたか？」
					PRINTFORMW 「その……%TEXTR(@"%CNAME("主人")%がどうしてもと言うの/気に入っていただけたの")%なら、%CNAME("一人称")%としては場所を変えて第二ラウンドに望んでも構わないのです%TEXTR("が/けど")%……」
				ENDIF
;			CASE "尿道セックス"
;
			CASEELSE
				PRINTFORML
				PRINTFORMW
			ENDSELECT
		ELSE
			PRINTFORML 「……%TEXTR(@"中途半端にすると物足りなくなりませんか/お願いされたからしましたけど、%CNAME("一人称")%までムラムラしちゃいますよ")%」
			PRINTFORMW 「%CNAME("主人")%が%TEXTR("嫌でなければ……続きをしてくれてもいいんですからね？/お暇なら……一緒に続きなんて、どうでしょうか？")%」
		ENDIF
	ELSE
		PRINTFORML 「満足していただけましたか？」
		PRINTFORMW 「出来れば……次からはやめてくれると嬉しいのですが」
	ENDIF

CASE "パンツを接写する", "股間を撮影する"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		IF TALENT:恋慕
			PRINTFORMW 「%TEXTR("何をしてるんですか、変なことをしちゃダメですよ？/こらっ、何を撮影しようとしてるんですか。正直に謝れば今なら許してあげますからね")%」
		ELSE
			PRINTFORML 「%TEXTR("きゃああ/変態っ/えっち/反省してくださいね！")%」
			PRINTFORMW メキィッ
			PRINTFORMW %CALLNAME:TARGET%の太ももが隠し撮りしようとしていた%CALLNAME:MASTER%の手を挟み込んだ。
			PRINTFORMW 尋常ならざる力であらぬ方向に%CALLNAME:MASTER%の腕%TEXTR("が曲がる/は湾曲した")%
			SETCOLOR DEF_COLOR("赤")
				PRINTFORML
				PRINTFORML 『システムメッセージ：強い衝撃を検知』
			RESETCOLOR
			BASE:MASTER:魂 -= 200
			CALL SETFLAG_DAILY, "不機嫌"
			IF BASE:MASTER:魂 <= 0
				;PRINTFORML 『おお　ご主人様よ、死んでしまうとは情けない……』
				CALL PRINT_STR, "紅_＜リザレクション！＞_W_"
				PRINTFORMW %CALLNAME:MASTER%は最後の力を振り絞って復活した！
				BASE:MASTER:魂 = 1
			ENDIF
		ENDIF
	CASE "アソコのチラ見せ撮影"
		IF RAND:2 == 0
			PRINT 「
			IF TALENT:MASTER:オトコ && RAND:2 == 0
				PRINT 男の子
			ELSE
				PRINTFORM %CNAME("主人")%
			ENDIF
			PRINTFORMW って本当エッチな事が大好きですよね……%TEXTR(@"%CNAME("一人称")%も嫌いじゃないですけど/応じちゃう%CNAME("一人称")%も嫌な訳ではないですけどね")%……」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%はちゃんとお願いしてくださるなら、%CNAME("二人称")%%TEXTR("が相手なら何処でも見せてさしあげますからね/になら何時でも見せてあげても良いと思ってますからね")%……」
		ENDIF
		IF CHARA_NUM("室内の邪魔者") >= 1
			PRINTFORM %CALLNAME:TARGET%は
			IF RAND:2 == 0
				PRINTFORMW %TEXTR("他の子に/他の部員")%に気づかれない様にこっそりと%CALLNAME:MASTER%に耳打ちしてくれた
			ELSE
				PRINTFORMW %TEXTR("他の子に/他の部員")%にバレない様に%TEXTR("器用に/上手に")%死角を作りながら、こっそりと%TEXTR("アソコ/秘所")%を見せてくれた
			ENDIF
		ENDIF
	CASEELSE
	;	PRINTFORMW
	ENDSELECT

;TFLAG:コマンドキャンセル = 1 とすることで口上側から性欲解消を拒否できる
CASE "性欲解消を申し出た際の反応"
	IF TALENT:恋慕 == 0 || CHARA_NUM("室内の邪魔者") >= 1 && TALENT:淫乱 == 0 && ABL:露出癖 < 3
		IF CHARA_NUM("室内の邪魔者") >= 1 && RAND:4 == 0
			PRINTFORML 「ありがとうございます。気持ちだけで充分ですよ」
			PRINTFORMW 「どうしても……と言うなら二人っきりでなら良いですけど……」
		ELSEIF CHARA_NUM("室内の邪魔者") >= 1 && RAND:3 == 0
			PRINTFORML 「%CNAME("主人")%の気持ちは嬉しいんですけど……」
			PRINTFORML 「他の方の目もあるので、出来れば二人っきりでお願いします」
		ELSEIF RAND:2 == 0
			PRINTFORML 「また……そんな事を言ってるんですか」
			PRINTFORMW 「お説教しますから、そこに座ってくださいね」
		ELSE
			PRINTFORML 「%CNAME("一人称")%は%TEXTR("シスター/聖職者/悪魔祓い")%ですから」
			PRINTFORMW 「その様な%TEXTR("煩悩は抱かないんですよ？/誘惑には負けませんからね？/卑猥な行為は望みません")%」
		ENDIF
		IF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") >= 1
			IF RAND:2 == 0
				PRINTFORMW 「……そう言うのは二人っきりじゃないとダメですからね」
			ELSE
				PRINTFORMW 「もう……%CNAME("一人称")%だってムラムラしちゃう事はあるんですからね……」
			ENDIF
		ENDIF
		TFLAG:コマンドキャンセル = 1
	ELSE
		PRINTFORML 「……%CNAME("一人称")%は%TEXTR("シスター/聖職者/悪魔祓い")%ですからね」
		IF RAND:2 == 0
			PRINTFORML 「これは性欲処理ではなく、%CNAME("二人称")%にお悩みを相談したと言う事です……」
		ELSE
			PRINTFORML 「あくまで……その悩みを相談したら成り行きでその様になっただけですから……」
		ENDIF
		PRINTFORML
		SELECTCASE STR:プレイ要望
		CASE "クンニ"
			IF RAND:3 == 0
				PRINTFORMW 「……そうですね。%CNAME("主人")%のお口でご奉仕をお願いしても……良いですか？」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「……恥ずかしいですけど、%CNAME("主人")%にクンニして欲しい……なんて思っちゃいます」
			ELSE
				PRINTFORML 「……クリちゃんをペロペロして欲しいんです」
				PRINTFORMW 「本当に……こんな事をお願いして、良いのでしょうか」
			ENDIF
		CASE "フェラする"
			PRINTFORMW 「……%CNAME("主人")%のお口でご奉仕していただけますか」
		CASE "フェラチオ"
			IF CHECK_STAIN(STAIN:MASTER:Ｐ, "Ｐ恥垢") && TALENT:MASTER:包茎
				PRINTFORML 「くんくん……」
				IF RAND:2 == 0
					CALL PRINT_STRW, @"「ちょっとおち〇ぽの匂いが強くなってますよ。脱いでくれたら%CNAME("一人称")%が綺麗にしゃぶってあげますから、ほら_HH_」"
				ELSE
					CALL PRINT_STRW, @"「大分、恥垢がたまっちゃってる匂いがしますね_HH_　%CNAME("一人称")%がちゃんと舌で綺麗にしてあげますから、脱いでくださいね_HH_」"
				ENDIF
			ELSEIF CHARA_NUM("室内の邪魔者") >= 1 && RAND:2 == 0
				PRINTFORML 「そうですね……%CNAME("一人称")%にご奉仕させていただけませんか？」
				CALL PRINT_STRW, @"「%CNAME("一人称")%%TEXTR(@"が一番上手にご奉仕が出来ると言う所。他の部員の皆さんに見せる良い機会ですし/と%CNAME("主人")%との仲を見せつけちゃうチャンスですから")%_HH_」"
			ELSE
				SIF FLAG:二人きり
					PRINTFORML 「二人っきりですし……」
				CALL PRINT_STRW, @"「お口でご奉仕させてください……%CNAME("一人称")%の%TEXTR("愛する/大切な")%%CNAME("主人")%_HH_」"
			ENDIF
		CASE "Ｖセックス"
			;ゴム無しの生セックスを希望
			IF COND("女性主導生セックス") && TALENT:妊娠 == 0
				IF CHARA_NUM("室内の邪魔者") >= 1 && RAND:6 == 0
					PRINTFORML 「そうですね……」
					CALL PRINT_STRW, @"「皆さんの前で……%TEXTR("二人の愛を確かめ合いませんか/二人がたっぷり愛し合う所を見せつけちゃいましょう")%_HH_」"
				ELSEIF CHARA_NUM("室内の邪魔者") >= 1 && RAND:5 == 0
					PRINTFORML 「解りました……セックスしましょう」
					PRINTFORMW 「これは%CNAME("一人称")%の性欲を解消する為ではなく、他の女の子%TEXTR("に悪さをする/を困らせる")%%CNAME("主人")%を懲らしめるためですからね？」
				ELSEIF RAND:4 == 0
					PRINTFORML 「あの……セックスしませんか」
					PRINTFORML 「これは肉欲に溺れて性処理するのではなく、あくまで二人の愛を確かめ合う為です」
					PRINTFORMW 「%CNAME("一人称")%も女の子ですから。好きな人と……エッチしたくなる時はあるんですからね」
				ELSEIF RAND:3 == 0
					PRINTFORML 「……恥ずかしいですけど、お願いします」
					CALL PRINT_STRL, @"「%CNAME("一人称")%と%TEXTR("妊娠子作り/中出し種付け")%セックスしてください_HH_」"
					CALL PRINT_STRW, @"「……%TEXTR(@"今も……大好きな%CNAME("主人")%の赤ちゃんが欲しくってずっと%CNAME("一人称")%の子宮が疼いちゃってるんです/聞かれたから……こんなはしたないお願いしちゃったんですからね。でも、愛する%CNAME("二人称")%以外にはこんなお願いは出来ないんですから")%_HH_」"
				ELSEIF RAND:2 == 0
					CALL PRINT_STRL, @"「……%CNAME("主人")%と一つになりたいんです_HH_」"
					CALL PRINT_STRW, @"「愛する人と……してるのを考えるだけで切なくなって来ちゃうんです_HH_」"
				ELSE
					CALL PRINT_STRL, @"「……%CNAME("一人称")%は%CNAME("主人")%の赤ちゃんが欲しいんです_HH_」"
					CALL PRINT_STRW, @"「たっぷり……種付けしてくださいね、%CNAME("主人")%_HH_」"
				ENDIF
			ELSE
				IF CHARA_NUM("室内の邪魔者") >= 1
					CALL PRINT_STRW, @"「……二人がセックスしてる所。皆さんに見せつけちゃいませんか_HH_」"
				ELSEIF RAND:2 == 0
					PRINTFORMW 「……はしたない女だって思わないでくださいね。%CNAME("一人称")%だってたまには自分から%CNAME("主人")%を誘っちゃうんですから」
				ELSE
					PRINTFORMW 「……こんな事イケナイと思ってますけど、%CNAME("主人")%とここで一つになりたいんです」
				ENDIF
			ENDIF
		CASE "Ａセックス"
			IF CHARA_NUM("室内の邪魔者") >= 1
				PRINTFORML 「そうですね……%CNAME("一人称")%の%TEXTR("アナル/不浄の穴/尻穴")%を使って%TEXTR("みま/もらえま")%せんか？」
				PRINTFORML 「えっと……はしたない意味ではなく、%TEXTR("トレーニング/訓練")%の成果を試すと言うか」
				PRINTFORMW 「%TEXTR(@"%CNAME("主人")%を参ったと言わせる為に日々精進していますから……これも特訓だと思ってもらえば良いかなって/他の女の子に手を出さないように%CNAME("一人称")%が懲らしめようと言う感じです。勘違いしないでくださいね、%CNAME("一人称")%は誰とでもアナルセックスする様な女ではないですからね")%」
			ELSEIF RAND:2 == 0
				PRINTFORML 「……%TEXTR("ふ、不浄の穴/ア、アナル")%を使っていただけませんか？」
				PRINTFORML 「%TEXTR("恥ずかしいんですけど/恥ずかしながら")%……%TEXTR("自分で慰めても物足りなくって/色んな玩具を試してみたんですけど全然満足出来なくって")%」
				PRINTFORML 「あの……無理なら良いですからね？」
				PRINTFORML 「%TEXTR("聖職者/聖女/悪魔祓い/シスター")%の身でこんなお願いをしてはいけないって、%CNAME("一人称")%だって解ってますから」
				CALL PRINT_STRW, @"「……%CNAME("一人称")%は%TEXTR("シスター/聖職者/悪魔祓い")%なので、%CNAME("主人")%とはでセックスしてるって皆に見せてあげましょう_HH_」"
			ELSE
				PRINTFORML 「……本当に、こんなお願いをしていいのでしょうか」
				CALL PRINT_STRW, @"「……%CNAME("主人")%_HH_　%CNAME("一人称")%の%TEXTR("アナル/尻穴/お尻")%が%TEXTR("疼いちゃってるんです/切ないんです")%……どうか」"
			ENDIF
		CASE "尿道セックス"
			IF TALENT:尿道ピアス
				PRINTFORML 「尿道でするのは……そうですね。ピアスを外さないと無理そうですけど」
				TFLAG:コマンドキャンセル = 1
			ELSE
				PRINTFORML 「……尿道でしてみますか？」
				PRINTFORML 「熱心に%CNAME("主人")%が開発してくれた熱意。%CNAME("一人称")%も応えないといけませんから」
			ENDIF
		ENDSELECT
	ENDIF

;STR:プレイ要望 が本来したいプレイ。STR:プレイ内容 があなたがやりたいと言って交渉中のプレイ
;ここの中で STR:プレイ内容 を変更する事で提案を蹴る事も出来る。何もしない場合はあなたの提案が通る
CASE "性欲解消の内容変更を頼んだ際の反応"
	SELECTCASE STR:プレイ内容
	CASE "クンニ"

	CASE "フェラする"

	CASE "Ｖセックス"
		;今日はゴム無しの生セックスがＯＫな日
		IF COND("女性主導生セックス")

		ELSE

		ENDIF

	CASE "Ａセックス"

	CASE "尿道セックス"

	ENDSELECT
;性欲解消プレイ後の台詞
CASE "性欲解消を手伝う"
	SELECTCASE NAMES("性処理")
	CASE "クンニ", "フェラする"
		PRINTFORML 「ご奉仕されるのもたまには良いですね」
		CALL PRINT_STRL, @"「でも、次は%CNAME("一人称")%にご奉仕させてくださいね_HH_」"
	CASE "フェラチオ"
		CALL PRINT_STRL, @"「%TEXTR("んぅ/んっ/はぁ")%_HH_」"
		CALL PRINT_STRL, @"「%TEXTR(@"あと少しだけ……続けても良いですか、%CNAME("主人")%/お願いします……%CNAME("主人")%が飽きるまでご奉仕させてください")%_HH_」"
		PRINTFORML
		PRINTFORML %CALLNAME:TARGET%は名残惜しそうに%CALLNAME:MASTER%のペニスにしゃぶりつき%TEXTR("献身的に舌を這わせ、うっとりとした表情を浮かべている/嬉しそうに微笑みながら唇をすぼめ、頭を上下に動かした")%……
	CASE "Ｖセックス", "Ａセックス", "尿道セックス"
		;挿入行為の後にフェラチオも続けて行った場合
		IF STR:プレイ要望 == "フェラチオ"

		ELSE
			SELECTCASE NAMES("性処理")
			CASE "Ｖセックス", "Ａセックス", "尿道セックス"
				CALL PRINT_STRL, @"「%TEXTR("ふぅ/はぁ")%_HH_」"
				PRINTFORML 「%TEXTR(@"気持ち良かったですけど、ちょっぴりこれだけだと物足りなく感じてしまいますね……/とても良かったですけど……%CNAME("主人")%が嫌でなければ続きをお願いしても良いでしょうか？")%」
			ENDSELECT
		ENDIF
	ENDSELECT

;主人公のスマホに一緒にお昼食べようよと誘う際に送る連絡文です
;ここで TFLAG:地の文スキップ = 0 とすると下の"お昼ご飯のお誘い"での地の文をカットできる
CASE "お昼ご飯のお誘い"
	IF TALENT:恋慕
		IF FIND_COND("現在存在", "フェリシエル") && RAND:5 == 0
			PRINTFORML %CALLNAME:TARGET%から通話がかかってきた……
			PRINTFORML
			IF RAND:2 == 0
				PRINTFORML 「%CNAME("主人")%。今日はフェリシエルさんと三人でお昼ご飯にしませんか？」
			ELSE
				PRINTFORML 「%CNAME("主人")%。フェリシエルさんとご一緒にお昼ご飯は如何ですか？」
			ENDIF
			IF RAND:2 == 0
				PRINTFORMW 『今日のお弁当はマリーさんも手伝ってくれましたからね』
			ELSE
				PRINTFORMW 『ちゃんと三人分のお弁当をご用意してきましたからね』
			ENDIF
		ELSEIF FIND_COND("現在存在", "パラチネ") && RAND:4 == 0
			PRINTFORML %CALLNAME:TARGET%から通話がかかってきた……
			PRINTFORML
			IF RAND:2 == 0
				PRINTFORML 「たまには……ええと、邪魔者も居ますが三人でお昼ご飯は如何ですか？」
				PRINTFORMW 『わたしもちゃんと手伝いましたよね？？　マリー先輩！？』
			ELSE
				PRINTFORML 「パラチネがどうしても一緒にお昼ご飯にしたいって言うので……」
				PRINTFORMW 『いえ、別にマリー先輩は居なくっても良いんですけど……ね』
			ENDIF
		ELSEIF FIND_COND("現在存在", "オスカー") && RAND:3 == 0
			PRINTFORML %CALLNAME:TARGET%から通話がかかってきた……
			PRINTFORML
			IF RAND:2 == 0
				PRINTFORML 「今日は異文化交流をしようと思って。オスカーさんをお呼びしました」
				PRINTFORMW 『マリーのご飯が食べれると聞いてな。来たぞ』
			ELSE
				PRINTFORML 「たまには違う趣向を凝らしてみようかなって思いまして」
				PRINTFORMW 『妾だ。特別に腕を振るってみたのでな。早く来るがいい』
			ENDIF
		;排泄経験で分岐取ろうと思ったけど現在存在にEXP判定つける判定が解らん
		ELSEIF FIND_COND("現在存在", "寧子") && RAND:2 == 0
			PRINTFORML %CALLNAME:TARGET%から通話がかかってきた……
			PRINTFORML
			;PRINTFORML 「今日はゲストに寧子さんをお呼びしてみました」
			;PRINTFORML 『んんんぅ！！』
			;PRINTFORML スマホの向こう側で寧子の呻き声が聞こえる。
			;PRINTFORML 「寧子さんには悪魔が憑いていると言う噂を聞いたので、特別な方法で悪魔憑きを祓っている所です」
			;PRINTFORML （ギャグボールを嵌められて二穴をバイブ責めされる寧子の写真が送られてくる）
			IF RAND:3 == 0
				PRINTFORML 「%CNAME("主人")%はお魚は好きですか？　特別に選んでもらった新鮮なお魚が手に入ったんですけど」
			ELSEIF RAND:2 == 0
				PRINTFORML 「%CNAME("主人")%の好きなモノをチョイスしてきましたけど、お口に合うといいのですが」
			ELSE
				PRINTFORML 「%CNAME("主人")%。今日のお昼ご飯ですけど……寧子さんとご一緒でも宜しいですか」
			ENDIF
			IF RAND:3 == 0
				PRINTFORMW 『こー……何て言うか。ここだけ空気が甘ったるくない？　アタシなんで呼ばれたのかなぁ？』
			ELSEIF RAND:2 == 0
				PRINTFORMW 『ねえ……アタシなんで呼ばれたのかな……』
			ELSE
				PRINTFORMW 『どーも、お魚評論家として呼ばれた寧子ですぅ。んでさ、お魚評論家って何なの！？』』
			ENDIF
		ELSE
			IF RAND:5 == 0
				PRINTFORML 『もし良かったら、一緒にお昼ご飯はどうですか？』
			ELSEIF RAND:4 == 0
				PRINTFORML 『他の部員の方も誘って一緒にお昼ご飯にしませんか？』
			ELSEIF RAND:3 == 0
				PRINTFORML 『%CNAME("主人")%……もし良かったらお昼ご飯をご一緒に如何でしょう？』
			ELSEIF RAND:2 == 0
				CALL PRINT_STRW, @"『実はお弁当を作りすぎちゃって。今日は二人分あるんですよね_HH_』"
			ELSE
				CALL PRINT_STRW, @"『早起きしてお弁当をご用意してみました。どうですか、なかなかの出来栄えだと思うのですが_HH_』"
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW 「良かったら、%CNAME("一人称")%と一緒にお昼ご飯にしませんか？」
	ENDIF
;実際に二人で昼食をとっている時です
CASE "一緒にお昼ご飯"
	;残念ながら今は三人でお昼ご飯を食べる機能はないので、三人で食べた地の文は出ないのだった……
	;加笔部分-----------------------------------------
	IF RAND:3 == 0 COND("成績：優秀")
		PRINTFORML 你和玛丽约好了一起吃午饭
		PRINTL
		PRINTFORML 「这次虽然成绩很好，但是可能还差了一些」
		PRINTFORML 她用拇指抵住食指指腹，表示真的仅是毫厘之差
		PRINTFORML 「但是如果稳扎稳打，想必……」
		PRINTFORML 她一边小口啄食着面包，一边绘声绘色地和你闲聊着
		PRINTFORML 「再努努力的话，下次一定可以……怎么了?」
		PRINTFORML 她看到你伸手过来，止住了话头
		PRINTFORML 你伸出左手，轻托她的脸颊，弯下拇指摩挲两下，将沾上果酱的手指在她眼前晃了两下，轻笑着说忍她很久了
		PRINTFORMW 你在口袋中翻找着卫生纸
		PRINTFORML
		PRINTFORMW 「别找了，有个更好的办法」
		PRINTFORML
		PRINTFORML 你正疑惑着什么办法时，忽觉指尖传来了温润的触感
		PRINTFORMW 你愕然地看着玛丽低垂眼帘，将你的拇指含在温润的唇瓣间，指尖能感觉到她口中的柔软正轻舐着
		PRINTFORML
		PRINTFORMW 那点果酱明明入口即化
		PRINTFORML
		PRINTFORML 明明和眼前的少女做过更加深入，更让人羞于启齿的事情，可这等暧昧却让你胳臂酥麻，连抽出手的力气都烟消云散
		PRINTFORML 高洁的少女轻颌下巴，用脸颊蹭着你微微颤抖的手心，安抚着你的慌乱
		PRINTFORML 她的脸颊微凉，似乎并不为刚刚的行为感到害羞，触感轻揉，富有青春的肌肤如同果冻一般
		PRINTFORML 她的舌尖却是滚烫的，那将果酱融化的温度仿佛连带着你的血肉与骨髓一并消融
		PRINTFORML 少女轻抚着你的手背，啄吻着虎口，那动作和她啄食着面包时如出一辙，仿佛你的骨肉就是那香甜松软一般
		PRINTFORML 直到她的唇瓣从你的手腕上离开，你才蓦然惊醒
		PRINTFORML 「明明都做过那样的事了」
		CALL PRINT_STR,@"「可这时却这样青涩呢，%CNAME("主人")%_H_」"
		PRINTFORMW 她抬起眉眼，顺从地将脸颊贴在你的手心，脸上是恶作剧成功一般的笑意，带着些许坏心眼和某种不可言说的期待，少女此刻宛如恳求爱怜的猫咪般，向心爱之人乞求着垂怜

	;------------------------------------------------
	ELSEIF RAND:2 == 0
		CALL PRINT_STRL, @"「%TEXTR("ふふっ/うふふっ")%_HH_」"
		PRINTFORML 「%CNAME("二人称")%と一緒に食べるご飯は美味しいですね」
	ELSEIF RAND:2 == 0
		PRINTFORML 「口の周りが汚れちゃってますよ？」
		PRINTFORML 「動かないでくださいね……」
	ELSE
		CALL PRINT_STRW, @"「%TEXTR("沢山食べましたね/いっぱい食べちゃいましたね")%_HH_」"
		PRINTFORML 「%TEXTR("では/さて")%……%TEXTR(@"食後の運動と行きましょうか/食後のトレーニングは如何でしょう/一緒に食後のストレッチしませんか/本当は%CNAME("一人称")%のおやつに持ってきたのですが、食後のデザートは如何でしょう")%？」
		PRINTFORML
	ENDIF
ENDSELECT

;-------------------------------------------------
;自撮りにメッセージを添えます　一言くらい
;加筆の際には RETURN 0 を消去し、MAIL_BODY を埋めて使ってください
;地の文も必要であれば適宜変更してください
;-------------------------------------------------

@SELFY_MAIL_K23, ARGS

;地の文始め
PRINTFORM 写真には「

;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り"
	IF TALENT:巨乳 == 2 && RAND:2 == 0
		IF RAND:3 == 0
			PRINTFORM おっぱいはちょっと自信があるんです♪
		ELSEIF RAND:2 == 0
			PRINTFORM %CNAME("一人称")%のおっぱい気に入ってくれましたか？
		ELSE
			CALL PRINT_STR, @"%CNAME("主人")%専用のおっぱいですからね_HH_」"
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORM 他の人には内緒ですからね……
		ELSEIF RAND:2 == 0
			PRINTFORM 二人だけの秘密にしてくださいね……
		ELSE
			PRINTFORM 恥ずかしいですけど約束ですから……
		ENDIF
	ENDIF
CASE "アソコ自撮り"
	IF COND("グロマン") && RAND:2 == 0
		IF RAND:3 == 0
			PRINTFORM ちょっぴり黒いですけど……
		ELSEIF RAND:2 == 0
			PRINTFORM %CNAME("主人")%は%TEXTR("アソコ/ヴァギナ")%が好きなんですよね……
		ELSE
			PRINTFORM %CNAME("一人称")%の%TEXTR("アソコ/ヴァギナ")%です……
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORM ちゃんと撮れてますか？
		ELSEIF RAND:2 == 0
			PRINTFORM 上手に撮れているでしょうか？
		ELSE
			PRINTFORM 自信はないですけど……
		ENDIF
	ENDIF
CASE "ペニス自撮り"
	IF TALENT:ペニス >= 2
		IF RAND:3 == 0
			PRINTFORM 大きいの好きなんですよね？
		ELSEIF RAND:2 == 0
			PRINTFORM こんなに大きくなっちゃいました
		ELSE
			PRINTFORM 大きくなっちゃった責任とってくださいね？
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORM ちゃんと撮りました。これでいいですか
		ELSEIF RAND:2 == 0
			PRINTFORM どうでしょうか。感想を教えてくださいね
		ELSE
			PRINTFORM 後で感想を聞かせてもらいますからね
		ENDIF
	ENDIF
CASE "今年の水着自撮り"
	IF RAND:3 == 0
		PRINTFORM 次のデートはプールに行きたいですね
	ELSEIF RAND:2 == 0
		PRINTFORM 海＆プールに行きましょう
	ELSE
		PRINTFORM 一緒に泳ぎに行きませんか？
	ENDIF
CASE "学校指定の水着自撮り"
	IF RAND:3 == 0
		PRINTFORM スタイルにはちょっぴり自信がありますからね
	ELSEIF RAND:2 == 0
		PRINTFORM どうでしょうか？　感想を……
	ELSE
		PRINTFORM 後で感想を聞かせてくださいね？
	ENDIF
CASE "体操服自撮り"
	IF RAND:3 == 0
		PRINTFORM これで良いのでしょうか？
	ELSEIF RAND:2 == 0
		PRINTFORM ちゃんと撮れてますか？
	ELSE
		PRINTFORM 言われた通りに送りましたよ……
	ENDIF
CASE "ブラ自撮り"
	IF RAND:3 == 0
		PRINTFORM 谷間を強調してみました……
	ELSEIF RAND:2 == 0
		PRINTFORM 下から見上げる感じで撮りました……
	ELSE
		PRINTFORM おっぱい持ち上げてみました……
	ENDIF
CASE "パンツ自撮り"
	IF RAND:3 == 0
		PRINTFORM 恥ずかしいです……
	ELSEIF RAND:2 == 0
		PRINTFORM 他の子には内緒ですからね……
	ELSE
		PRINTFORM これでいいですか？
	ENDIF
CASEELSE
	IF RAND:3 == 0
		PRINTFORM どうでしょうか？
	ELSEIF RAND:2 == 0
		PRINTFORM ちょっぴり頑張ってみました
	ELSE
		PRINTFORM 後で感想を聞かせてくださいね
	ENDIF
ENDSELECT

;地の文後ろ
PRINTFORMW 」というメッセージが添えられている…

;-------------------------------------------------
;デートの際のセリフ
;システム側の地の文や反応を出力させたくない場合には TFLAG:地の文スキップ = 1 としてください
;デート回数は EXP:デート経験 が+1ずつされます。初回のセリフは IF EXP:デート経験 == 0 で分岐するのが良いでしょう
;素質で分岐させる場合にはTALENT:恋慕での分岐がおすすめです
;-------------------------------------------------
@KOJO_DATE_K23, ARGS
SELECTCASE ARGS
;あなたを週末デートに誘った
CASE "デートのお誘い"
	;冬＆クリスマス前ならok
	IF TALENT:相思相愛 && COND("冬") && FLAG:日 > 47 && CEVENT("クリスマスプレゼントの希望／マリー") == 0
		PRINTFORML 「%CNAME("主人")%。そろそろクリスマスの時期ですね」
		PRINTFORML 「部員の皆さんの分もクリスマスプレゼントを用意しなくてはなりませんし、部室の飾りつけなんかも必要ですよね」
		PRINTFORMW 「もし良かったら週末に%CNAME("一人称")%とお買い物に行きませんか？」
	ELSEIF TALENT:恋慕 && COND("夏")
		PRINTFORML 「夏ですね。%CNAME("主人")%は今年の水着はもう買いましたか？」
		IF TALENT:巨乳 >= 2 && (COND("初期爆乳") == 0 || COND("初期超乳") == 0)
			PRINTFORML 「%CNAME("一人称")%は……その、ちょっと%TEXTR("胸が大きく育っちゃったみたいで水着を新調しないといけないんです/水着サイズが合わなくなってしまって。新調したいなって思うのですが")%」
			PRINTFORMW 「%TEXTR("ご迷惑でなければご一緒に水着を買いに行ってくださいませんか？/もし良かったらご一緒に水着を買いに参りませんか？")%」
		ELSE
			PRINTFORML 「%TEXTR(@"実は%CNAME("一人称")%も学校の授業の水着しかないので、お出かけ用に新しい水着を欲しいなと思っていた所なんです/学校の水着でも良いのですが折角ですし、%CNAME("二人称")%好みの水着を……着てみたいなって思ったり")%」
			PRINTFORMW 「%TEXTR(@"もし良かったら週末に一緒に水着を買いに行きませんか？/%CNAME("二人称")%なら何かと頼りになってくれそうですし、水着を一緒に買いに行ってくださいませんか？")%」
		ENDIF
	ELSE
		PRINTFORML 「%CNAME("主人")%……週末のご予定はありますか？」
		PRINTFORMW 「良かったら%CNAME("一人称")%とデートなんてどうでしょう？」
	ENDIF
CASE "デートのお誘い：結果"
	;デート決定！
	IF COND("デートの約束")
		IF COND("同棲中") && CEVENT("初デート：私はあなたのお姉ちゃんです") == 0
			PRINTFORMW 「デートのプランなのですが……」
			PRINTFORMW 「ここに本当に偶然、先ほどパラチネから譲り受けた水族館のチケットが二枚あります」
			PRINTFORMW 「良かったら……お姉ちゃんと一緒に水族館に行きませんか？」
			PRINTFORMW 「%CNAME("一人称")%は年上ですし、一つ屋根の下で暮らしています」
			PRINTFORMW 「いつもの感謝の気持ちを込めて……たまにはお姉ちゃんとして、二人っきりで思いっきり甘やかしてあげたいんです」
			PRINTFORMW 「週末の一日だけでいいんです。私をお姉ちゃんにならせてくれませんか？」
			PRINTFORMW 「ワガママは承知でお願いします……どうか、考えてみてくださいね」
			CALL SET_CEVENT, "初デート：私はあなたのお姉ちゃんです"
		ELSE
			PRINTFORMW 「ひゃあっ！？」
			PRINTFORMW 「ありがとうございます！！」
			PRINTFORMW 「部室の皆さんが話しているのを聞いて、%CNAME("一人称")%もデートしてみたいなって思っただけで……」
			PRINTFORMW 「プランとか……まだ全然なんですけど、出来れば……一緒に考えてくれませんか？」
		ENDIF
	;あなたに保留されてしまった
	ELSE
		PRINTFORML 「そ、そうですよねぇ～……」
		PRINTFORMW 「%CNAME("二人称")%はモテますし予定もいっぱいあると思いますから、この話は忘れてください」
	ENDIF
;あなたから週末デートに誘われた
CASE "デートに誘われた"
	IF TALENT:淫乱 && COND("身嗜み：Ｖ拡張") && COND("身嗜み：Ａ拡張")
		PRINTFORMW 「週末の予定ですか？　%CNAME("主人")%の頼みとあれば空けておきますけど」
		PRINTFORMW 「どの様な性処……もとい懺悔をお望みでしょうか？」
		PRINTFORMW 「色々と心と身体の準備が必要になる事もあるので、事前に教えてくれると助かります」
	ELSE
		IF TALENT:恋慕
			IF COND("同棲中") && CEVENT("初デート：ノーマル") == 0 && CEVENT("初デート：私はあなたのお姉ちゃんです") == 0
				PRINTFORMW 「デートですか……実はここに本当に偶然なのですが」
				PRINTFORMW 「週末に行こうとおもっていた水族館のチケットが二枚あります」
				PRINTFORMW 「良かったら、お、お姉ちゃんと一緒に水族館に行きませんか？」
				PRINTFORMW 「%CNAME("一人称")%は年上ですし……その、一つ屋根の下で暮らしているのですから……」
				PRINTFORMW 「たまにはお姉さんっぽい事をして、もっと%CNAME("二人称")%と仲良くなりたいなって思ったり……」
				PRINTFORMW 「週末の一日だけで良いんです……私をあなたのお姉ちゃんにならせてくれませんか？」
				PRINTFORMW 「こんなワガママなお姉ちゃんに付き合って、水族館に行ってくれたら嬉しいなって……」
				PRINTFORMW 「も、もちろん、他にデートで行きたい場所があるなら……そこでもいいですからね！？」
				CALL SET_CEVENT, "初デート：私はあなたのお姉ちゃんです"
			ELSEIF CEVENT("初デート：ノーマル") == 0 && CEVENT("初デート：私はあなたのお姉ちゃんです") == 0
				PRINTFORMW 「デ……デートですか？」
				PRINT 「二人っきりのデートなんて
				IF TALENT:MASTER:オトコ
					PRINT 男性の方から
				ENDIF
				PRINTFORMW 誘われた事ないのですがっ！？」
				PRINTFORMW （いけません、思っている事が全部口から出てしまいました！！）
				PRINTFORMW 「あ、あの……ふつつかものですが、末永く宜しくお願いいたしますね」
				;CALL PRINT_STR, "黄色_- 六華（白蛇神社） -_L_"
				;PRINTFORMW 「へっくし。日本の文化を勘違いしておるアホの子の気配がするのじゃ……」
				CALL SET_CEVENT, "初デート：ノーマル"
			ELSE
				PRINTFORML 「デート%TEXTR("＿/のお誘い")%ですか？」
				IF RAND:3 == 0
					PRINTFORML 「日曜日は一応……シスターとしてのお仕事があるのですが……」
					PRINTFORMW 「どうしてもと言うのであれば予定を調整しますね」
				ELSEIF RAND:2 == 0
					PRINTFORML 「予定は……%TEXTR("えっと/そうですね")%。%TEXTR("一応は大丈夫です/調整出来ると思うので安心してください")%」
					PRINTFORMW 「%TEXTR(@"それでは%CNAME("一人称")%で良ければ喜んでお供させていただきますね/当日のお弁当等はご用意した方がいいですか？")%」
				ELSE
					PRINTFORML 「悪魔祓いのお仕事を済ませてからになるかも……%TEXTR("ですが/しれないのですが")%良いでしょうか？」
					PRINTFORMW 「%TEXTR("大丈夫です。何が何でも間に合わせますからね/約束の時間には必ず行きますからね")%」
				ENDIF
			ENDIF
		ELSEIF ABL:信頼 >= 3
			PRINTFORMW 「デートですか？　構いませんけど他の方を誘ってあげた方が宜しいのではないでしょうか？」
			PRINTFORMW 「%CNAME("一人称")%としては二人、三人で仲良く出かけるプランでも全然構いませんよ」
		ELSE
			PRINTFORMW 「なるほど。そうやって女の子を口説いて……あんな事やこんな事をするつもりですね」
			PRINTFORMW 「ですが、%CNAME("一人称")%の使命は悪魔に魂を渡すのを阻止する事。悪魔とデートするのを阻止出来ると言うのなら付き合いましょう」
		ENDIF
	ENDIF

;あなたにお弁当を作ってきてと頼まれた
CASE "お弁当を頼まれた"
	IF TALENT:恋慕 || COND("同棲中")
		;料理経験回数（そんなものはない、で分岐させたい）
		;料理経験少ない
		IF RAND:2 == 0
			PRINTFORML 「%TEXTR("いいですけど/解りました。その代わり")%……」
			PRINTFORMW 「%TEXTR("あまり期待はしないでくださいね。頑張りますけど本職のメイドさんほど上手ではないですから/フェリちゃんほどお料理は得意ではありませんからね")%」
		;料理経験がそれなりに増えた
		ELSE
			PRINTFORML 「%TEXTR(@"簡単なもので良ければ頑張らせていただきますね/%CNAME("一人称")%でも出来る様な簡単なものになりますけど良いですよね/%CNAME("一人称")%で良ければ頑張らせていただきますね。食べたいものとかあったら教えてください")%」
			IF RAND:3 == 0
				PRINTFORML （普段のお弁当より気合を入れて作らなくちゃいけませんね……）
				PRINTFORMW （%CNAME("二人称")%の未来のお嫁さんとして、期待に応えてみせます）
			ELSEIF RAND:2 == 0
				PRINTFORML （デートのお弁当をお願いされちゃいました）
				PRINTFORMW （……いけませんあまりニヤニヤしては失礼になりますね。しっかりしないと）
			ELSE
				PRINTFORML （……デート先でお互いにあ～んしちゃったり……お口の汚れを拭いてあげたり……）
				PRINTFORMW （イケマセン……%CNAME("一人称")%は聖職者なのに、こんな不健全な事を想像しちゃうなんて……）
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW 「%TEXTR(@"%CNAME("一人称")%は%CNAME("二人称")%の恋人ではありませんよ/%CNAME("二人称")%は勘違いしていますね。%CNAME("一人称")%は%CNAME("二人称")%の恋人ではないんですからね")%」
		;これのコメントアウトを外すと、お弁当を作ってあげません
		CALL DEL_CEVENT, "デートのお弁当"
	ENDIF

;あなたからデート当日にいきなり誘われた
CASE "デートに誘う"
	;CALL PRINT_STRW, "(※お誘いを受けてもらうには_黄色_[信頼LV3]or[恋慕]or[屈服刻印LV1]_が必要です)"
	;同棲していない相手を誘った時
	IF COND("同棲中") == 0
		;PRINTFORMW なんじゃこの不穏な分岐は！？
	ELSEIF EXP:デート経験 == 0
		;暫定　既に淫乱セフレ状態
		IF TALENT:淫乱 && COND("身嗜み：Ｖ拡張") && COND("身嗜み：Ａ拡張")
			PRINTFORMW 「私とデートですか？」
			PRINTFORMW 「そんな改まってお願いするなんて、ご主人様らしくないと思いますよ」
			PRINTFORMW 「あなたにすべてを捧げてもいいと誓った言葉に嘘はありません」
			PRINTFORMW 「それでも……何でも私の希望を聞いてくださるのでしたら……」
			PRINTFORMW 「ただのデートじゃ物足りないですし、えっちなお仕置きをしながらデートしてくれませんか？」
		ELSE
			IF TALENT:恋慕
				;サンプル2　「今思い出しました。私はあなたのお姉ちゃんでした（何言ってるんだこの人は」
				;フェリシエルさん、ツェツィ師匠、マノンちゃん、リューナ先輩。幾多のライバルを押しのけて正妻の座を狙うにはリスクが高すぎると判断せざるえません
				;そこで正攻法ではなく家族の中でのお姉ちゃんポジションを手に入れる事にしました
				;既成事実を作り上げる事で長期戦略であなたを攻略します。家族ならずっと一緒にいられますからね
				IF COND("同棲中") && CEVENT("初デート：私はあなたのお姉ちゃんです") == 0
					PRINTFORMW 「デートですか。実はここに水族館のチケットが二枚あるのですが」
					PRINTFORMW 「お姉ちゃんと一緒に水族館に行きませんか？」
					PRINTFORMW 「フェリシエルさんはメイドさん。さくらちゃんは妹さん。ならば、私はあなたのお姉ちゃんとしてこれ以上間違った道へ進まないように見守るべきだと思うのです」
					PRINTFORMW 「そう言うわけなので今日一日は私はあなたのお姉ちゃんです。お姉ちゃんのワガママに付き合って、水族館に行ってみませんか？」
					PRINTFORMW 「もちろん、他にデートで行きたい場所があるなら……そこでもいいですけどね」
					CALL SET_CEVENT, "初デート：私はあなたのお姉ちゃんです"
				ELSE
					PRINTFORMW 「えっ……デートですか？」
					PRINT （二人きりのデートを
					IF TALENT:MASTER:オトコ
						PRINT 男性の方から
					ENDIF
					PRINTFORMW 誘うと言う事は結婚を前提として真剣なお付き合いしたいと言う事でしょうか）
					PRINTFORMW （いけません、舞い上がって挙動不審になっては失礼ですよね！？）
					PRINTFORMW 「わかりました。い、今からですか！？」
				ENDIF
			ELSEIF ABL:信頼 >= 3
				PRINTFORMW 「デートですか？　別に構いませんけど……私とでいいのですか？」
				PRINTFORMW 「あまりこちらの地理には明るい方ではないのでお役に立てるか自信はありませんよ」
			ELSE
				PRINTFORMW 「他の子とデートする為の下見ですか？」
				PRINTFORMW 「それとも如何わしい事をする為の口実でしょうか？」
			ENDIF
		ENDIF
	;デート経験ありはこっち
	ELSE
		;季節
		;IF TALENT:恋慕 && COND("夏") && CEVENT("当日デート：花火を見に行く／マリー") == 0
		IF TALENT:恋慕 && CEVENT("当日デート：花火を見に行く／マリー") == 0
			IF CEVENT("既成事実：私はあなたのお姉ちゃんです")
				PRINTFORMW 「%CNAME("一人称")%も今日の予定は空いていますよ」
				PRINTFORMW 「もしお暇でしたら、夜まで待ってからお姉ちゃんと……花火を一緒に見に行ってみませんか？」
			ELSE
				PRINTFORMW 「%CNAME("一人称")%の事をちゃんと想ってくれているのですね、嬉しいです。あの……もし良かったら夜まで待って、%CNAME("一人称")%と一緒に花火なんてどうでしょうか？」
			ENDIF
			CALL SET_CEVENT, "当日デート：花火を見に行く／マリー"
		ELSEIF TALENT:恋慕 && FIND_COND("現在存在", "フェリシエル") && NO:ASSI == 1 && CEVENT("当日ダブルデート：マリー＆フェリシエル") == 0 && CEVENT("当日ダブルデート終了：マリー＆フェリシエル") == 0
			IF CEVENT("既成事実：私はあなたのお姉ちゃんです")
				PRINTFORMW 「いいですよ。お姉ちゃんで良ければデートしましょうか？」
				PRINTFORMW 「と、即答したいところなのですが……ちょっと予定があるんですよね」
				;PRINTFORMW %CALLNAME:MASTER%はまだそのキャラ付けを忘れてなかったのか……と思った
			ELSE
				PRINTFORMW 「暇だからデート%TEXTR("＿/したいん")%ですか？」
				PRINTFORMW 「その申し出は大変嬉しいのですが……」
			ENDIF
			PRINTFORMW %TEXTR(@"%CALLNAME:TARGET%は筋肉トレーニングを途中でやめて%CALLNAME:MASTER%に返事をすると、重たい音を立ててダンベルを転がした/%CALLNAME:TARGET%は伊達眼鏡をかけて読書に励んでいた。本から顔をあげると少し困った様子で眉根を寄せる/%CALLNAME:TARGET%は食べかけのお菓子をモグモグと食べ終えてからペロッと汚れた指先を舌で舐め、少しだけ悩んだ素振りを見せた")%。
			PRINTFORML
			PRINTFORMW 「今日はフェリシエルさんとの%TEXTR("約束/先約/お出かけの予定")%があるので」
			PRINTFORMW 「ちょっと待っててくださいね。%TEXTR("フェリシエルさ～ん/メイドさ～ん/フェリちゃ～ん")%」
			PRINTFORMW %CALLNAME:TARGET%はフェリシエルを呼びに行った。
			PRINTFORML
			PRINTFORMW 「というわけで、今回は三人でデートしましょう」
			PRINTFORMW 『二人で行ってくればいいのではないかと思うのですが……』
			IF CEVENT("既成事実：私はあなたのお姉ちゃんです")
				PRINTFORMW 「フェリちゃんも大事な家族ですよね。そんな事言われるとお姉ちゃん悲しいです」
				;PRINTFORMW （まだそのお姉ちゃんキャラやってたんですね……どのぐらいやれば飽きるんでしょうか）
			ELSE
				PRINTFORMW 「当日に誘われたのは私も一緒ですし、それなら今回は私が辞退しますよ」
			ENDIF
			PRINTFORMW 『しょうがないですね。三人でデートする事にしますか』
			PRINTFORMW %CALLNAME:MASTER%と%CALLNAME:TARGET%とフェリシエルは三人で当日デートに出かける事になった
			CALL SET_CEVENT, "当日ダブルデート：マリー＆フェリシエル"
		ELSE
			IF TALENT:恋慕 && CEVENT("既成事実：私はあなたのお姉ちゃんです")
				PRINTFORML 「お姉ちゃんとデートしたいんですか？」
			ELSE
				PRINTFORML 「デートですか？」
			ENDIF
			;暫定　既に淫乱セフレ状態
			IF TALENT:淫乱 && COND("身嗜み：Ｖ拡張") && COND("身嗜み：Ａ拡張")
				PRINTFORML 「……野外調教%TEXTR("をする/してくださる/の命令")%と言う事ですよね、ご主人様」
				PRINTFORMW %CALLNAME:TARGET%は%TEXTR("少し恥じらいながらうっとりと瞳を細めた/躊躇いながらもコクンと頷いてみせた")%。
			ELSEIF TALENT:恋慕
				PRINTFORMW 「予定はありませんから良いですよ？」
				;PRINTFORMW （今、この瞬間に私の予定は消滅しました。あとはパラチネがなんとかするので大丈夫です）
				IF RAND:2 == 0
					PRINTFORMW 「何処に行きましょうか。遠くに行くならお弁当も用意しないといけませんしね」
				ELSE
					PRINTFORMW 「あなたと一緒なら近くをお散歩するだけでも楽しいです。でも、遠くに行くのも素敵ですね♪」
				ENDIF
			ELSEIF ABL:信頼 >= 3
				PRINTFORML 「%TEXTR(@"%CNAME("二人称")%は信頼出来る人ですし、デートぐらいならＯＫですよ/しょうがないですね……日曜日は教会に行かなくてはいけないのですが予定を空けておきますね")%」
				PRINTFORMW （%TEXTR(@"……%CNAME("二人称")%は何処まで本気なのでしょうか/これも任務の内ですから……ちょっとぐらいは楽しんでも許されますよね")%）
			ELSE
				PRINTFORML 「構いませんが……」
				PRINTFORMW 「%TEXTR("デートは好きな相手とするものではないのでしょうか？/私とあなたは……まだ付き合っていないと思うのですが？")%」
			ENDIF
		ENDIF
	ENDIF

;地の文はパートナーが遅れて現れる展開になっています
;地の文が用意されているので、軽く１行程度の反応でも良いと思います
CASE "待ち合わせ"
	IF COND("同棲中") == 0
		;PRINTFORMW なんじゃこの不穏な分岐は！？
	ELSE
		IF TALENT:恋慕 && COND("夏") && CEVENT("当日デート：花火を見に行く／マリー")
			;PRINTFORMW 悪魔メイドＳＮＳへの投稿：昨日の7月29日にいつもの悪魔のメイド（推定17歳）と先日メールくれた綺麗好きの聖女（自称18歳）とあなた（53歳）の3人で県北にある川の土手の下で盛りあったぜ。
			PRINTFORML
			PRINTFORMW 「そろそろ出掛けても良い時間になりましたね」
			PRINTFORMW 「ちょっと調べてみたのですが、近くの川の土手から花火大会の花火が見れるそうです。そこまで一緒に歩いて行ってみませんか？」
			PRINTFORMW 「それと……ちょっと慣れない格好なので……」
			IF CEVENT("既成事実：私はあなたのお姉ちゃんです")
				PRINTFORMW 「お姉ちゃんとちゃんと手を繋いでリードしてくださいね……」
			ELSE
				PRINTFORMW 「出来れば……%CNAME("一人称")%と手を繋いでみたり……」
			ENDIF
			TFLAG:地の文スキップ = 1
			PRINTFORML
			PRINTFORML 玄関の前で待っていると、浴衣に着替え下駄を履いた%CALLNAME:TARGET%が姿を現した。
			PRINTFORMW 普段と違う和装に落ち着かない様子でそわそわしながらも待っていた%CALLNAME:MASTER%を見ると%CALLNAME:TARGET%は嬉しそうに微笑んでみせた。
			;PRINTFORML
			;PRINTFORML 『散歩を選択すると花火大会に移動します』
			;PRINTFORML
			;強制的に夜に行く
			TIME = 2
			SIF CFLAG:髪型変更のお願い中 == 0
				CSTR:アレンジ = 編み上げ
			CALL SET_COORDINATE, "浴衣"
			CALL SET_OTHER, "かんざし"
		ELSEIF TALENT:恋慕 && FIND_COND("現在存在", "フェリシエル") && NO:ASSI == 1 && CEVENT("当日ダブルデート：マリー＆フェリシエル") && CEVENT("当日ダブルデート終了：マリー＆フェリシエル") == 0
			PRINTFORMW 「フェリシエルさんは今日も可愛いですね♪」
			PRINTFORMW 「ふふふっ、本当はフェリさんもご主人様にデートに誘われるんじゃないかって期待をしてたのですよね？」
			PRINTFORMW 『マリーさんも普段とは髪型が違いますね♪　折角、お揃いのネイルに仕上げてあげたんですからおあいこですよ」
			PRINTFORMW 『いつもと違う香水もつけちゃって、そんなに私とのお出かけをそんなに楽しみにしてたんですか？　それともご主人様とのお出かけと解ってはりきっちゃいましたか？』
			PRINTFORML
			PRINTFORMW %CALLNAME:TARGET%とフェリシエルが姉妹のように仲睦まじく会話をしながら互いの爪に施したお出かけ用のネイルを確認している。
			PRINTFORMW 三人でのデートを二人とも楽しみにしてくれているようだ。
			PRINTFORML
			PRINTFORMW 『行き先ですが水族館か遊園地、どちらが宜しいでしょうか？』
			PRINTFORMW 「私は水族館がいいと思いますけど判断はご主人様にお任せしますね」
			PRINTFORML
			;PRINTFORMW （デートの主導権を握ろうと待ち合わせから火花を散らす乙女の戦い。混ぜるな危険。何故あなたはこんな恐ろしいデートに巻き込まれているのか）
			;PRINTFORMW 通りすがりのツェツィ師匠（あなたの目は節穴の様だね……修羅場には近づかないでおこう）
			TFLAG:地の文スキップ = 1
		ELSE
			IF TALENT:恋慕 && EXP:デート経験 == 0 && COND("同棲中") && CEVENT("初デート：私はあなたのお姉ちゃんです") == 0 && CEVENT("初デート：お前の様な姉がいるか") == 0
				PRINTFORMW 「あのですね……実はここに水族館のチケットが二枚あるのですが一つ提案があります」
				PRINTFORMW 「今日一日だけ、私があなたのお姉ちゃんになって一緒にデートしてみるのはどうでしょうか？」
				PRINTFORML
				PRINTFORML   [0]はい
				PRINTFORML   [1]いいえ
				IF TALENT:MASTER:小柄
					PRINTFORML  [2]マリーお姉ちゃんと呼ぶ
				ENDIF
				$INPUT_LOOP_DATE
				INPUT
				PRINTFORML
				IF RESULT == 0
					;PRINTFORMW 「フェリシエルさんはメイドさん。さくらちゃんは妹さん」
					;PRINTFORMW 「みんなちゃんとした家族みたいで、羨ましいなって思って……」
					;PRINTFORMW 「私もお姉ちゃんとして、あなたがこれ以上間違った道へ進まないように近くで見守りたいんです。そんな私のワガママを叶えてくれませんか？」
					;PRINTFORMW （メイドは家族ではありませんし、その理屈だとさくらさんは本当の家族ではない事になるのではないでしょうか……悪魔メイドは訝しんだが、黙っておく事にした）
					PRINTFORMW 「ありがとうございます……あの、改めて……お、お姉ちゃんと一緒に水族館に行ってくれますか？」
					PRINTFORMW 「もちろん、他にデートで行きたい場所があるなら……そこでもいいですけど」
					PRINTFORMW 「……私はちゃんとした家族旅行とか……した事ないので……ちょっぴり羨ましいなって……」
					;PRINTFORMW （恋人とのデートは家族旅行とはまったく違うと思うのですが……悪魔メイドは訝しんだが、黙っておく事にした）
					CALL SET_CEVENT, "初デート：私はあなたのお姉ちゃんです"
				ELSEIF RESULT == 1
					PRINTFORMW 「そうですよね……」
					PRINTFORMW 「変な事を言ってごめんなさい。普通にデートしましょうか」
				ELSEIF RESULT == 2
					CALL PRINT_STR, @"「ひゃああっ_H_」_W"
					CALL PRINT_STR, @"「お姉ちゃんと水族館でデートしましょうねぇ_HH_」_W"
					CALL PRINT_STR, @"「大好きですよ、ご主人様_HH_」_W"
					PRINTFORMW %CALLNAME:MASTER%にお姉ちゃんと呼ばれる度に%CALLNAME:TARGET%はくねくねと奇妙な動きで身悶えした
					;PRINTFORMW （なるほど、マリーさんは重度のショタコンでしたか……悪魔メイドは納得したが、黙っておく事にした）
					CALL SET_CEVENT, "初デート：私はあなたのお姉ちゃんです"
				ELSE
					GOTO INPUT_LOOP_DATE
				ENDIF
				CALL SET_CEVENT, "初デート：お前の様な姉がいるか"
			ELSEIF TALENT:淫乱 && COND("身嗜み：Ｖ拡張") && COND("身嗜み：Ａ拡張")
				PRINTFORMW 「%TEXTR("お待たせしました/準備は万端です。行きましょうか")%……ご主人様」
				CALL PRINT_STR, @"「%TEXTR("喜んでいただけるかと思って……デートの為に両穴に新しい遠隔操作バイブを仕込んで来ました/ご命令された通り……両穴に遠隔操作バイブを入れて来ました")%_HH_」_W"
				CALL PRINT_STR, @"「%TEXTR("私はご主人様の奴隷ですから……その気になったらいつでも性処理に使ってください/本日もたっぷりと躾けてくださいね、ご主人様。私はあなたのモノですから")%_HH_」_W"
			ELSEIF TALENT:恋慕 && EXP:デート経験 == 0 && CEVENT("初デート：私はあなたのお姉ちゃんです")
				PRINTFORMW 「デートに着ていく様なオシャレな服は持っていないのですが……」
				PRINTFORMW 「何か希望があれば仰ってくださったら着替えてきますけど、どうでしょうか？」
			ELSE
				IF RAND:4 == 0
					PRINTFORML 「昨日はちゃんと眠れましたか？」
					PRINTFORMW 「私は大丈夫です。ちょっぴり眠れなくって大変でしたけど……」
				ELSEIF RAND:3 == 0
					PRINTFORML 「デートだと思うとドキドキしてきちゃいますね」
					PRINTFORMW 「今日は一日宜しくお願い致します」
				ELSEIF RAND:2 == 0
					PRINTFORML 「お待たせしました。あ、あの……」
					PRINTFORMW 「この格好でおかしくないでしょうか？　あなたの好みの服があれば着替えてきますよ」
				ELSE
					PRINTFORML 「フェリシエルさんに習って……」
					PRINTFORMW 「お化粧も頑張ってみたいのですがどうでしょうか？」
				ENDIF
			ENDIF
			PRINTFORML
		ENDIF
	ENDIF

	;地の文を自分で書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、軽く１行程度の反応でも良いと思います
CASE "デート本番"
	SELECTCASE SAVESTR:デート
	CASE "水族館に行く"
		IF TALENT:恋慕 && FIND_COND("現在存在", "フェリシエル") && NO:ASSI == 1 && CEVENT("当日ダブルデート：マリー＆フェリシエル") && CEVENT("当日ダブルデート終了：マリー＆フェリシエル") == 0
			PRINTFORMW 「水族館はテンションが上がりますね♪　フェリシエルさんはペンギンとイルカどっちが好きですか？」
			PRINTFORMW 『どっちも好きですよ。今日はとことん付き合ってあげますから順番に回って、一緒に楽しみましょうね』
			PRINTFORML
			PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%とフェリシエルに両手を引っ張られながら、水族館の中を見て回った。
			PRINTFORMW イルカやペンギンを見て子供の様にはしゃぐ%CALLNAME:TARGET%の姿を写真に撮ったり、
			PRINTFORMW 夕飯はお魚にしましょうか？、と本気とも冗談とも取れる言葉と共に首を傾げるフェリシエルと一緒に献立を考えたり
			PRINTFORMW 女子二人はお互いの事を褒めたり、三人でとりとめのない会話をしたり、みんなで美味しいものをシェアしたりして一日を過ごした……
			TFLAG:手繋ぎ = TARGET
			TFLAG:手繋ぎ = ASSI
			TFLAG:地の文スキップ = 1
		ELSEIF TALENT:恋慕 && EXP:デート経験 == 0 && CEVENT("初デート：私はあなたのお姉ちゃんです")
			PRINTFORMW 「ここが水族館なのですね。恥ずかしながら……水族館に来るのは初めてなんです」
			PRINTFORMW 「もちろん、ちゃんと予習はしてきましたから安心してください」
			CALL PRINT_STR, @"「ペンギンさんやイルカさんと一緒に写真を撮れるらしいのですが、ワクワクしますね_HH_」_W"
			PRINTFORML
			PRINTFORMW 「あ、あの……人が多いですし、はぐれたりしないように……」
			PRINTFORMW 「良かったら、お姉ちゃんと手を繋ぎませんか？」
			;PRINTFORMW （ふぅ……なんとか自然な感じで手を繋ぐ提案が出来ました。恋人として手を繋ぐなんて%CNAME("一人称")%にはまだ早すぎますから）
		ELSE
			CALL PRINT_STR, @"「水族館ですか_HH_」_L"
			IF TALENT:恋慕
				PRINTFORMW 「%TEXTR("素敵ですね/ときめいちゃいますね")%……%TEXTR("お誘いいただきありがとうございます/それも二人っきりでなんて……嬉しいです")%」
			ELSE
				PRINTFORMW 「%TEXTR("こほん……私とあなたはあくまでそういう関係ではありませんが付き合ってあげても構いませんよ/失礼、取り乱しました。如何わしい事をしないと約束出来るならいいですよ")%」
			ENDIF
		ENDIF
		PRINTFORML
	CASE "遊園地に行く"
		IF TALENT:恋慕
			CALL PRINT_STR, @"「ゆ、遊園地ですか_HH_」_L"
			PRINTFORMW 「%TEXTR("あの……ジェットコースターとか、女の子らしくない乗り物に乗りたいって言ったら怒ります？/先に言っておきますけど……ホラーハウスとか、全然怖くないので期待にはそえませんよ？")%」
		ELSE
			PRINTFORMW 「私と遊園地に行きたいのですか？」
			PRINTFORMW 「%TEXTR("いけません……享楽に興じる為に私はここにいるわけではないのです……でも、どうしてもというなら仕方ありませんよね！！/あなたが誘うからついていくだけですからね。私は自分から行きたいとは言いませんでした。パラチネにもそう言ってくださいね")%」
		ENDIF
		PRINTFORML
	CASE "泳ぎに行く"
		IF CEVENT("水泳デート１／マリー") && DEVENT("水泳デート２／マリー") == 0
			PRINTFORMW 「一緒に泳ぎに行きたいっていうお願い覚えててくれたんですね。ふふっ、ちょっと嬉しいです」
			CALL SET_DEVENT, "水泳デート２／マリー"
		ELSEIF TALENT:恋慕
			PRINTFORML 「%CNAME("一人称")%と一緒に\@ CONDS("季節") == "夏" ? 海 # プール \@へ行きたいんですか？」
			PRINTFORMW 「%TEXTR(@"いいですよ、一緒に楽しく泳ぎましょうね♪/水泳で鍛錬するよい機会ですね。%CNAME("二人称")%はもっと身体を鍛えてもいいと思うんです")%」
		ELSE
			PRINTFORMW 「%TEXTR("泳ぎに行くんですか。良いですね/一緒に身体を鍛えますか。ビシバシ指導しますよ")%」
		ENDIF
		PRINTFORML
	CASE "水着を買いに行く"
		IF TALENT:恋慕
			PRINTFORML 「%TEXTR("好きな/愛する")%人と%TEXTR("お買い物/水着を選ぶ")%ってテンション上がりますね♪」
			PRINTFORMW 「%TEXTR(@"解ってると思いますけど、あんまり過激な水着はダメですからね？/どんな色が%CNAME("二人称")%はお好みでしょうか。どうせなら……お揃いの水着でもいいですよ")%」
		ELSE
			PRINTFORMW 「水着ですか……丁度新しい水着が欲しかったのでいいですよ」
		ENDIF
		PRINTFORML
	CASE "図書館に行く"
		PRINTFORMW 「%TEXTR("勉強ですか、学生の本分ですし一緒に頑張りましょうね/語学はそれなりに出来るのですが……それ以外は私はあまり得意ではないですね/図書館は良いですね。色んな絵本があって素敵です")%」
		PRINTFORMW 「%TEXTR("あなたはどんな本が好きですか？/折角ですし、勉強だけじゃなくあなたが好きな本についても教えてくださいね/貸し出しも出来るみたいですから幾つか借りて行きましょうか")%」
		PRINTFORML
	CASE "散歩"
		PRINTFORMW 「%TEXTR("いいですよ、少しお散歩しましょうか/たまには運動がてらお散歩もいいですね/お散歩ですか。ご一緒しますよ")%」
		PRINTFORML
	;その他分類になる
	CASE "食べ歩き"
		IF TALENT:MASTER:オトコ
			IF TALENT:恋慕
				PRINTFORMW 「%TEXTR("あ、あ、あ、あの……一緒にスイーツを食べたり……しませんか？/い、嫌じゃなかったら……一緒にスイーツなんて、どうでしょうか？")%」
				;PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%と二人でスイーツを楽しんだ……
			ELSE
				PRINTFORMW 「新作スイーツが出ているそうです。異性の方と一緒にスイーツを食べるのって、恋人みたいでちょっぴりドキドキしますね♪」
			ENDIF
		ELSE
			PRINTFORMW 「新作スイーツが出てるそうなので、折角ですし二人で食べてみましょうか？」
			IF TALENT:恋慕
				PRINTFORMW 「二人で来たいなって思って、お店を前々からチェックしてあったんですよ、実は♪」
			ENDIF
		ENDIF
		PRINTFORML
	CASE "街でお買い物"
		IF TALENT:相思相愛 && CEVENT("ウェディングドレスへの憧れ／マリー") == 0
			PRINTFORML 「ウェディングドレス素敵ですね」
			PRINTFORMW 街角に飾ってあるウェディングドレスを目にした%CALLNAME:TARGET%は足を止めて見入っている。
			PRINTFORML
			CALL PRINT_SELECT, "同意する/無視する"
			IF RESULT == 0
				IF TALENT:MASTER:オトコ == 0
					PRINTFORML 「%CNAME("二人称")%も女の子ですからウェディングドレスにはやっぱり憧れちゃいますよね」
					CALL PRINT_STRW, @"「もし、二人が結婚する事になった時は二人でペアのウェディングドレスを着るのも良いですね_HH_」"
				ELSE
					PRINTFORML 「%CNAME("一人称")%も何時か……%CNAME("二人称")%と一緒にバージンロードを歩けたらいいなって思います」
					CALL PRINT_STRW, @"「これからも%CNAME("二人称")%の彼女として、未来のお嫁さんに選んでもらえるように色々頑張りますからね。これからも色んな事を教えてくださいね_HH_」"
				ENDIF
			ELSE
				PRINTFORML 「%CNAME("二人称")%はこう言うのはあまり興味がないのですね」
				PRINTFORMW 「%CNAME("一人称")%としては……一度ぐらいはウェディングドレスを着てみたいって思っちゃうのですけどね」
			ENDIF
			CALL SET_CEVENT, "ウェディングドレスへの憧れ／マリー"
		;冬＆クリスマス前ならok　or　リアル12月～クリスマスまでの間
		ELSEIF TALENT:相思相愛 && COND("冬") && FLAG:日 > 47 && CEVENT("クリスマスプレゼントの希望／マリー") == 0
			PRINTFORML 「%CNAME("二人称")%は何か欲しいクリスマスプレゼントはありますか？」
			PRINTFORMW 「%CNAME("一人称")%は……%CNAME("二人称")%がくださるのなら何でも嬉しいですけど」
			PRINTFORMW 「……二人でお揃いのペアリングとか……サンタさんにお願いしたいなんて思ってみたり……」
			CALL SET_CEVENT, "クリスマスプレゼントの希望／マリー"
		ELSEIF RAND:2 == 0
			;違うそうじゃない
			IF TALENT:恋慕
				IF RAND:4 == 0
					PRINTFORML 「エッチなグッズのお店に入りたいんですか……」
					PRINTFORMW 「%TEXTR("カップル/恋人同士")%で行ってきたという話は確かに%TEXTR("部室の噂/同級生から/ネットで")%聞いた事はありますけど……もう、しょうがない人ですね」
				ELSEIF RAND:3 == 0
					PRINTFORML 「%TEXTR("可愛いアクセサリーですね/素敵なピアスがありますね/婚約指輪もおいてありますね")%」
					CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("一人称")%は%CNAME("二人称")%とお揃いのアクセサリーがいいなって思ってますけど/聖職者なので普段はあまりアクセサリーはつけませんけどピアスなんかは集めてますよ。あまりつけないんですけどね/いつか……その時が来たら素敵なのをお願いしますね、%CNAME("主人")%")%_HH_」"
				ELSEIF RAND:2 == 0
					PRINTFORML 「あなたも欲しいモノがあったら言ってください。お姉さんが%TEXTR("今日はとことん甘やかしてあげますからね/何でも買ってあげますから")%」
					PRINTFORMW 「お金の事なら心配しないでくださいね？　こう見えても聖騎士ですから、あなたを養っていけるぐらいの蓄えはありますよ♪」
				ELSE
					PRINTFORM 「欲しいモノがあったら言ってくださいね。お姉さんは
					IF TALENT:MASTER:オトコ
						PRINT 弟
					ELSE
						PRINT 妹
					ENDIF
					PRINTFORML がいたら甘やかしてみたいって思ってたんです♪」
					PRINTFORML 「パラチネですか……そうですね。妹みたいな感じですが残念ながら、彼女は甘えてくれないので」
					PRINTFORMW 「今日は好きなものをおごってあげますからね。えっちなのはダメですよ？　めっ」
				ENDIF
			ELSE
				PRINTFORML 「色々見てみたい場所もありますし、現地で別行動でもいいですよ？」
				PRINTFORMW 「一緒に来てくれるのですか？　私の行きたいのは……可愛いのとか、女の子のお店ですから無理しなくてもいいんですよ。でも、来てくれるならちょっと嬉しいです……」
			ENDIF
			;PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%%TEXTR("の洋服選びに付き合った/とアクセサリー屋さんを巡った/と下着屋さんに入った")%……
		ELSE
			;季節
			IF COND("夏") && RAND:2 == 0
				PRINTFORML 「折角ですし、水着を買って行きましょうか」
				PRINTFORMW 「あんまり過激なのはダメですからね？　褒めてもダメです……ぜ、絶対に着ませんからね！？」
			;水着分岐が生まれたら死ぬ汎用分岐
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「いつもお世話になっている部活の皆さんにお土産を買いましょう」
					PRINTFORMW 「お茶菓子とか必要ですよね。あなたはどんなお菓子が好きですか？」
				ELSE
					PRINTFORML 「部活の為のトレーニング用品なんか、どうでしょうか？」
					PRINTFORMW 「身体を鍛えて運動部に負けない素敵な部活にしましょう」
				ENDIF
			ENDIF
		ENDIF
		PRINTFORML
	CASEELSE
		;汎用分岐
		IF TALENT:恋慕
			PRINTFORMW 「あなたと行くなら私は何処でも楽しいですから、喜んでご一緒させていただきますね♪」
		ELSE
			PRINTFORMW 「あなたが悪魔の誘惑に負けて堕落しない様に監視するのが私達の役目ですからね。忘れてはいませんよ、けっして役目を忘れてはいません。解りましたね？？？」
			;PRINTFORMW %CALLNAME:TARGET%はパラチネに向かってわざとらくし説明した
		ENDIF
		PRINTFORML
	ENDSELECT

	;地の文を自分で書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

CASE "手をつなぐ"
	PRINTFORML
	IF SAVESTR:デート == "花火を見に行く"
		CALL PRINT_STRL, @"「ふふっ、ちゃんとお願いを聞いてくれましたね……%CNAME("一人称")%は幸せ者です_HH_」"
		PRINTFORMW %CALLNAME:TARGET%は嬉しさを噛みしめる様に言葉少なく%CALLNAME:MASTER%の手をギュッと強く握り返してきた……
	ELSEIF SAVESTR:デート == "イルミネーションを見に行く"
		CALL PRINT_STRW, @"「少し寒くなってきちゃいましたね……でも、%CNAME("二人称")%と一緒なら寒くないですよ_HH_」"
	ELSEIF TALENT:恋慕 && FIND_COND("現在存在", "フェリシエル") && NO:ASSI == 1 && CEVENT("当日ダブルデート：マリー＆フェリシエル") && CEVENT("当日ダブルデート終了：マリー＆フェリシエル") == 0
		CALL PRINT_STR, @"「ご主人様……折角のデートですし恋人繋ぎしちゃいますね_HH_」_W"
		CALL PRINT_STR, @"『じゃあ、私も恋人繋ぎしますね。ご主人様_HH_』_W"
		PRINTFORMW %CALLNAME:TARGET%とフェリシエルは競い合う様に%CALLNAME:MASTER%の手をギュッと握りしめた……
	ELSEIF TALENT:恋慕 && EXP:デート経験 == 0 && CEVENT("初デート：私はあなたのお姉ちゃんです")
		PRINTFORML 「あなたと手を繋いでると何だか安心しちゃいますね……」
		PRINTFORMW 「あの……嫌じゃなかったらお姉ちゃんと恋人繋ぎしませんか。今日だけは家族ですからね？」
	ELSEIF SAVESTR:デート == "泳ぎに行く"
		CALL PRINT_STRL, @"「ふふっ_HH_　こうして好きな人と水着姿でデートしてるなんて……」"
		CALL PRINT_STRW, @"「%TEXTR("夢みたいです……今日は沢山遊びましょうね/これが夢ならずっと今日が続けばいいのに、なんて……ちょっぴり贅沢すぎますよね")%_HH_」"
	ELSEIF TALENT:恋慕
		;護るモノ、護られるモノ
		IF RAND:3 == 0
			CALL PRINT_STR, @"「この手をずっと離さないでくださいね_HH_」_L"
			PRINTFORMW 「%CNAME("一人称")%と一緒なら、どんなピンチがあなたを襲ってもこの手を繋いでいる限りは必ず私が守ってみせるって約束しますから」
		;性別分岐
		ELSEIF RAND:2 == 0
			IF TALENT:MASTER:オトコ
				PRINTFORML 「あなたの手って……意外と大きいのですね」
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の手を無言でギュッと握りしめた……
			ELSE
				PRINTFORML 「あなたの手は意外と小さくて……とても可愛いですね」
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%と手と手を重ねて優しく握りしめた……
			ENDIF
		ELSE
			PRINTFORML 「好きな人と手を繋ぐってこんなにも心が温かくなるものなのですね」
			PRINTFORMW 「神様が許してくださるなら……ずっとこうして居たいぐらい素敵です」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「意外と甘えん坊さんなのですね、あなたは」
			PRINTFORMW （て、手を繋ぐなんて……ドキドキしちゃいますからっ）
		ELSE
			PRINTFORML 「いいですよ、手ぐらいなら繋いでも……別にドキドキなんてしてませんからね」
			PRINTFORMW （ど、どどどど、どうしたら……落ち着いて、私！！　この人は恋人でも何でもないただの悪魔の契約者なのだからドキドキしてはダメっ、ああああっ！！）
		ENDIF
	ENDIF
	PRINTFORML
CASE "手をつながない"
	PRINTFORML 「%TEXTR("あっ……/っ……")%」
	;PRINTFORMW %CALLNAME:TARGET%の顔は悲しみに曇った
	PRINTFORMW 「%TEXTR("何でもありませんよ。ちょっと目にゴミが入ったみたいですね/何でもありません、大丈夫ですから。あの……ちょっとだけお化粧を直しにトイレに行ってきますね")%」

CASE "お弁当"
	PRINTFORML 「%TEXTR(@"今日のお弁当はどうでしたか？/%CNAME("二人称")%の為に一生懸命作りましたけど美味しかったでしょうか？/良かったら……お弁当の感想を聞かせてくださいね")%」
	PRINTFORMW 「%TEXTR(@"二人でこうしてご飯を食べるのって……ちょっぴりドキドキしちゃいますね/皆さんと食べるご飯も美味しいですけど二人っきりで食べるのは特別な感じがして、%CNAME("一人称")%は好きですよ")%」
;水着を買いに行った時です
CASE "水着選び開始"
	;マイクロビキニとかもＯＫ
	IF COND("Ｈな水着選択可能") && RAND:2
		PRINTFORML 「%CNAME("主人")%は……やっぱり%TEXTR("過激/えっちな/派手な")%水着の方が好きですか？」
		IF NO:ASSI == 5
			PRINTFORMW 「%CNAME("二人称")%の好みの水着を着ると望みが叶うって、今日の白蛇神社占いで聞いて来たのですが」
			;PRINTFORMW 「曲がりなりにも聖職者（シスター）なのに他の宗派の方の話を真に受けるなんて、ですか？」
			;PRINTFORMW 「それはそれ、これはこれ。うちの神様には後で懺悔しますからいいんです～信じるものは救わますからね、%CNAME("主人")%」
		ELSEIF NO:ASSI == 11
			PRINT 「リアラ先生のアドバイスによると
			IF TALENT:MASTER:オトコ
				PRINT えっちなのが嫌いな男の子はいないって聞きましたから……恥ずかしいので抵抗はありますが、どうしてもって言うなら考えてあげなくもないですよ？」
			ELSEIF PENIS(MASTER)
				PRINT %CNAME("一人称")%が着たらきっとビンビンになっちゃうそうです。なります？　ビンビン？」
			;チ○コの生えてない男性はいないはずなので女性のみ
			ELSE
				PRINT %CNAME("主人")%はそう言うのが好みだと聞きました。同性ですからどうせなら二人で同じものを着たりしますか？」
			ENDIF
		ENDIF
	ELSEIF RAND:2 == 0
		PRINTFORML 「そうですね。プールなら何時でも遊びに行けますし」
		PRINTFORMW 「新しい水着を買って準備しておくのも良い心がけだと思います」
	ELSE
		PRINTFORML 「水泳を通じて部員の皆さんと仲良くなったり、身体を鍛えるのも良いですね」
		PRINTFORMW 「部活の一環として水泳を取り入れてみるのもいいと思いますよ」
	ENDIF
CASE "水着決定"
	;PRINTFORMW 悪魔メイドなショップ店員「そこになければないですね」
	SELECTCASE SWIM(STR:選んだ水着, "種類")
		CASE "ビキニ"
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR(@"ビキニは自分でも持ってますけど、%CNAME("二人称")%に選んでもらった水着を着るのはちょっと特別な気分で嬉しいです/似合ってますか？　褒められるのはやっぱり嬉しいです")%_HH_」_L"
				PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%に微笑みながら%TEXTR("くるんと一回転してみせた/ポーズをつけてみせた")%
			ELSE
				CALL PRINT_STR, @"「%TEXTR("えっと、ブラ紐を結んでもらえますか？　お願いします……/あの……手が届かないのでブラ紐を結んでくださいな_HH_")%」_L"
				CALL PRINT_STR, @"「ありがとうございます、助かりました。%TEXTR("ちゅっ_HH_　これはお礼です/デートに行く前からドキドキしちゃいましたね_HH_")%」_W"
			ENDIF
		CASE "ワンピース水着"
			PRINTFORML 「%TEXTR(@"清楚な感じで嫌いではないですが/%CNAME("主人")%が着て欲しいならいいですけど")%……」
			IF TALENT:巨乳
				PRINTFORML 「ちょーっとだけ胸が窮屈なんですよね」
			ELSE
				PRINTFORML 「%CNAME("一人称")%はビキニの方が好きですね」
			ENDIF
		CASE "競泳水着"
			;違うそうじゃない
			IF RAND:2 == 0
				PRINTFORML 「競泳水着はあまりデート向けではないと思いますが」
				PRINTFORML 「%CNAME("主人")%がマンツーマンで水泳の特訓をしたいと言うなら良いですよ」
			ELSE
				PRINTFORML 「一緒に体を鍛えたいと言うアピールですか？」
				PRINTFORML 「全身ムキムキになるまで一緒に水泳で鍛えるのもいいですね」
			ENDIF
		CASE "マイクロビキニ", "ティアドロップ"
			PRINTFORML 「%TEXTR("思うのですが……これはもう裸同然ですよね？/どうしてもコレを着て欲しいんですか？")%」
			PRINTFORML 「%CNAME("主人")%がどうしてもって言うのなら着ますけど……%TEXTR("かなり恥ずかしいです/恥ずかしくって変な事したらごめんなさい")%」
			;PRINTFORML 「変な事って言うのはえっちな事ではなく、物理的な羞恥心の発露によりあなたの魂が失われるアレです」
		CASE "ハイレグワンピ"
			IF RAND:2 == 0
				PRINTFORML 「あの……とっても恥ずかしい格好になっていませんか……」
				PRINTFORML 「普通のワンピース水着にしませんか？　それなら喜んで着てあげますから」
			ELSE
				PRINTFORML 「変な所ばっかり……見つめないでください……」
				PRINTFORML 「こんなイヤらしい格好はダメですよ。もっと普通の水着にしませんか？」
			ENDIF
		CASE "スリングショット"
			;PRINTFORML 「%CNAME("主人")%は何でも言う事聞くからって%CNAME("一人称")%に欲望をぶつけて甘えすぎですよ。もっと%CNAME("一人称")%を大事にしてくれてもいいと思うんです」
			;PRINTFORML 「仮に%CNAME("二人称")%がこの紐を着て、部員のみんなに見られたらどんな気分になりますか？」
			;PRINTFORML 「みんな喜ぶから問題ない？　それはそうですけど……%CNAME("一人称")%は違いますからね！？」
			IF RAND:2 == 0
				PRINTFORML 「恥ずかしくって……こんな水着では%CNAME("二人称")%と一緒に歩けないじゃないですか」
				PRINTFORML 「手とか……繋ぎたいですし」
			ELSE
				PRINTFORML 「試着だけですよね？　本当にデートでこの水着を着てきて欲しいんですか？」
				PRINTFORML 「変態みたいな水着を着た女の子と……歩いたり、手を繋いだりなんて嫌じゃないですか？」
			ENDIF
		CASEELSE
			PRINTFORML 「そんな水着もあるんですね」
			PRINTFORML 「%CNAME("主人")%がどうしてもって言うなら別にいいですけど」
	ENDSELECT
	CALL SET_CEVENT, "水着決定／マリー"

;プールなどで水着姿に着替え、待ち合わせ場所に集合した時です
CASE "水着に着替えた"
	IF COND("欲求不満") || TALENT:淫乱 || TALENT:好色 && MARK:淫紋 && MOOD_HEART() >= 3
		CALL PRINT_STR, @"「……%TEXTR("見られてるだけで/視線を感じちゃうと")%%TEXTR("気持ちよくなってきちゃいます/感じてきちゃうんです")%_HH_　%TEXTR("くぅ/んぅ/んっ")%_HH_」_L"
		CALL PRINT_STR, @"（%TEXTR(@"見つめられるだけで淫紋が疼いて……こんなエッチな気分になっちゃうなんて。%CNAME("主人")%の手に触れたら%CNAME("一人称")%はどうなってしまうのでしょう……/そんなに見つめられたら子宮が火照ってきちゃう……種付けして欲しいなんて絶対に言えません")%……）_W"
	ELSE
		;どの水着に着替えたか？
		SELECTCASE SWIM(CSTR:今年の水着, "種類")
			CASE "ビキニ"
				PRINTFORML 「%TEXTR("着替えてみましたよ/えっと……どうでしょうか")%？」
				PRINTFORMW 「%TEXTR("普段着るには派手すぎますけど、一緒に遊ぶなら丁度いいですよね？/聖職者の立場としてはちょっと派手かなって悩みますけど、嫌いじゃないですよ。個人的には好きです")%」
			CASE "ワンピース水着"
				IF TALENT:巨乳
					PRINTFORML 「%TEXTR("ん～/んー")%……」
					PRINTFORMW 「%TEXTR("好きなデザインではあるんですけど/可愛いデザインですけど")%……%TEXTR("ちょっぴり胸の部分が苦しいですね/ちょっと胸が窮屈に感じちゃいますね")%……」
				ELSE
					PRINTFORML 「どうでしょうか？　結構似合っていると思うのですが」
					CALL PRINT_STR, @"「ふふっ_HH_　%CNAME("主人")%に褒めてもらえるのは嬉しいですね」_W"
				ENDIF
			CASE "競泳水着"
				PRINTFORML 「%TEXTR("やっぱり競泳水着はカッコイイですね！！/コレを着るだけで早く泳げる気がしますね")%」
				PRINTFORMW 「%TEXTR("ちょっと水泳競争とかしませんか？　手加減してあげますからね/今日はたっぷりと水泳の特訓をしましょうか")%」
			CASE "マイクロビキニ", "ティアドロップ"
				PRINTFORML 「%TEXTR("あの～/あの……")%%TEXTR("この格好は目立ちすぎませんか……着てみましたけど、お胸が強調されちゃって恥ずかしいです/殆ど裸みたいな格好になってて……特に、胸にみんなの視線を感じちゃうんですけど")%」
				PRINTFORML 「恥ずかしいので……%TEXTR("早く泳ぎましょう。水の中に入ればそんなに目立たないと思いますし/何か羽織るものなんて……ありませんよね？")%
				PRINTFORMW %CALLNAME:TARGET%は両手で胸を隠しながら恥ずかしさに赤面している
			CASE "ハイレグワンピ"
				PRINTFORML 「%CNAME("主人")%……あの……」
				PRINTFORML 「他の方の視線を滅茶苦茶集めてしまっているような……%CNAME("一人称")%の恥ずかしい部分を見られちゃってるの、解ります……」
				PRINTFORMW %CALLNAME:TARGET%は恥ずかしそうに股間を手で隠しながら赤面している
			CASE "スリングショット"
				PRINTFORML 「%CNAME("主人")%……やっぱりこの水着はダメなのでは！？」
				PRINTFORMW 「%CNAME("一人称")%の事をみんな見てますし、恥ずかしさでおかしくなっちゃいそうです。無ですか、虚無になればいいんですか！？」
				PRINTFORMW %CALLNAME:TARGET%はあまりの恥ずかしさに混乱している
			;その他？？？
			CASEELSE
				PRINTFORML 「どうでしょうか？　それなりに似合っているとは思うんですが」
				PRINTFORMW 「%CNAME("二人称")%の感想を聞かせてくれると嬉しいですね」
		ENDSELECT
		CALL SET_CEVENT, "水着に着替えた／マリー"
	ENDIF
;物陰フェラです。地の文が用意されているので、軽く１行程度の反応でも良いと思います
CASE "ちょっと物陰へ……", "こっそり口で抜いてもらう"
	PRINTFORML
	SELECTCASE SAVESTR:デート
		CASE "水着を買いに行く"
			PRINTFORML 「%TEXTR(@"%CNAME("一人称")%の水着を見てたら我慢出来なくなっちゃったのですか/%CNAME("一人称")%の水着姿が可愛いからってムラムラしちゃったんですか")%……」
			IF ABL:精液中毒 && RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("お口の中にたっぷり出してくれるなら……いいですよ/ちゃんとお口に飲ませてくれるんですよね……期待しちゃいますからね")%_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("しょうがないですね……今回だけ特別です。もう……こんなに大きくしちゃって/神様は何処にいても見ていますからね。本当はしちゃダメだって事は解ってくださいね……んっ/ちょっと狭いですけど我慢してくださいね……んっ")%_HH_」_W"
			ENDIF
		CASE "泳ぎに行く"
			PRINTFORML 「%TEXTR("しょうがないですね/困った人ですね/我慢出来なくなっちゃったんですか")%……」
			CALL PRINT_STR, @"「%TEXTR("ほら……大人しくしてくださいね/ここでご奉仕してあげますから……スッキリしてくださいね/他の人にばれない様に……お口でしてあげますからね")%_HH_」_W"
		CASEELSE
			IF TALENT:恋慕 && SAVESTR:デート == "花火を見に行く" && TFLAG:手繋ぎ
				CALL PRINT_STR, @"「いいですよ_HH_　今はどんなお願いでも聞いてあげちゃいたい気分ですから_HH_」_L"
				PRINTFORMW 「楽にしててください……今日だけは、%CNAME("二人称")%は%CNAME("一人称")%だけのモノなんです」
				PRINTFORML
			ELSEIF SAVESTR:デート == "イルミネーションを見に行く" && TFLAG:手繋ぎ
				;巨根
				IF SIZE("ペニス", MASTER) >= 2
					PRINTFORML 「はしたない子だって思われちゃいそうですけど……」
					PRINTFORML 「%CNAME("一人称")%もちょっとだけ期待してたんです。恥ずかしいですけど……%CNAME("一人称")%も%CNAME("二人称")%の大きいの大好きですからね」
					CALL PRINT_STRL, @"「それにこんなの見せつけられたら女の子は我慢出来なくなっちゃうんですから……んっ_HH_」"
				ELSE
					CALL PRINT_STRL, @"「ふふっ_HH_　たっぷり可愛がっちゃいますからあんまり大きな声を出しちゃダメですよ？_HH_」"
				ENDIF
				CALL PRINT_STRW, @"「んっ、んぅ……じゅる、じゅるる_HH_　ジュポジュポ_HH_」"
			ELSEIF COND("欲求不満") || TALENT:淫乱 || TALENT:好色
				CALL PRINT_STR, @"「%CNAME("主人")%%TEXTR("ったら……こんな場所にまで連れて来なくてもいいんですよ/が望まれるのでしたら、他の人の前でもご奉仕してさしあげます/。性処理でしたらお口以外の穴でも何時でもお申しつけくださいね")%_HH_」_W"
			ELSE
				PRINTFORMW 「%TEXTR("お願いされたら断れませんね……/嫌じゃないですけど、ちょっと恥ずかしいですね……/神様に怒られてしまいます……こんな事しちゃうなんて")%」
			ENDIF
			;PRINTFORMW 「ここは本来死に分岐です。この分岐が有効になったと言う事は口上作者に何かがあったに違いない」
			;PRINTFORMW 「しかし、誰も別人加筆しないのである！！」
			;PRINTFORMW 「%TEXTR("こっそりお口でするんですか……しょうがないですね/こんな事ばかりしてたら神様に怒られてしまいますよ。ちゃんと反省してくださいね？")%」
	ENDSELECT
	PRINTFORML
CASE "こっそり手コキしてもらう"
	PRINTFORML
	IF TALENT:淫乱 && RAND:2 == 0
		CALL PRINT_STRL, @"「……%TEXTR("手だけで、本当に満足出来るんですか？/こんな所で手でご奉仕して欲しいなんて")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("我慢出来なくなるまで……たっぷり可愛がってあげますからね/もっと……して欲しくなるまでいっぱいイジメちゃいますからね")%_HH_」"
	ELSEIF TALENT:恋慕
		CALL PRINT_STRL, @"「%TEXTR("……後でたっぷり懺悔してもらいますからね/もう……イケナイ子ですね")%_HH_」"
		PRINTFORMW 「……%TEXTR(@"はぁ……%CNAME("一人称")%まで変な気分になってきちゃいます……/もう……%CNAME("一人称")%もちょっぴり興奮してきちゃいます")%」
	ELSE
		PRINTFORML 「……%TEXTR("流石にどうかと思うのですが/どうしてもですか。しょうがないですね")%」
		PRINTFORMW 「……%TEXTR("あまり大きな音をたてない様に……気をつけてくださいね/絶対に声を出したりしないように……静かにしててくださいね")%？」
	ENDIF
	PRINTFORML
CASE "キスする"
	PRINTFORML
	IF TALENT:恋慕 && SAVESTR:デート == "花火を見に行く" && TFLAG:手繋ぎ
		PRINTFORML 「ん……」
		PRINTFORML
		PRINTFORML 浴衣を着た%CALLNAME:TARGET%のうなじが不意に%CALLNAME:MASTER%の目に入り、何時もと違う%CALLNAME:TARGET%の姿を見つめながら
		PRINTFORMW 二人は情熱的に何度も唇を重ねた……
	ELSEIF SAVESTR:デート == "イルミネーションを見に行く" && TFLAG:手繋ぎ
		PRINTFORML 「んっ……」
		PRINTFORML
		PRINTFORML 情熱的に自ら舌を絡め、%CALLNAME:TARGET%は%CALLNAME:MASTER%にしがみつくようにして手と手を重ねあい
		PRINTFORMW 二人は愛を確かめ合った……
	ELSE
		PRINTFORML 「%TEXTR("んっ……/キスするんですよね……/キス……してください")%」
		IF RAND:3 == 0
			PRINTFORMW 両目を閉じて%CALLNAME:TARGET%は頬を紅潮させながら、%CALLNAME:MASTER%の口づけを待つ
		ELSEIF RAND:2 == 0
			PRINTFORMW %CALLNAME:TARGET%はそっと瞳を閉じて%TEXTR("、/祈りを捧げる様に両手を組み")%%CALLNAME:MASTER%の口づけを待つ
		ELSE
			PRINTFORMW 神妙な面持ちで口づけを待つ%CALLNAME:TARGET%の長い睫毛が%CALLNAME:MASTER%の目に入ってきた……
		ENDIF
	ENDIF
	PRINTFORML
	TFLAG:地の文スキップ = 1
CASE "お尻を触る"
	PRINTFORML
	IF TALENT:恋慕 && SAVESTR:デート == "花火を見に行く" && TFLAG:手繋ぎ
		PRINTFORML 「もう……」
		PRINTFORMW 「そう言うのは後でなら良いですからね……」
	ELSEIF SAVESTR:デート == "イルミネーションを見に行く" && TFLAG:手繋ぎ
		CALL PRINT_STRL, @"「ふふっ_HH_」"
		PRINTFORMW 「もうそんな気分になっちゃったんですか……%CNAME("一人称")%だって我慢してるんですからね」
	ELSE
		IF RAND:2
			PRINTFORML 「%TEXTR("ん……/んっ……")%」
			PRINTFORMW %CALLNAME:TARGET%は頬を赤らめ、無言で%CALLNAME:MASTER%に%TEXTR("身体を預けてきた/寄り添うように身体をくっつけてきた")%……
			TFLAG:地の文スキップ = 1
		ELSE
			PRINTFORML 「%TEXTR("もう……/ダメですよ？")%」
			PRINTFORMW %CALLNAME:TARGET%はちょっとだけ注意を促してからお尻を触ってきた%CALLNAME:MASTER%の手%TEXTR("と自分の手を繋いだ/がこれ以上悪さしないように手を繋いできた")%。
		ENDIF
	ENDIF
	PRINTFORML
;あなたが物陰フェラやキスやセクハラをしない紳士な場合はここに来ます
CASE "次は何処に行こうか？と話を振る"
	;恋慕前提のみ
	IF MOOD_HEART() >= 3 && RAND:2 == 0
		CALL PRINT_STR, @"「%TEXTR(@"デートは楽しいですね。もちろん、%CNAME("二人称")%となら%CNAME("一人称")%は何処にいても楽しいですけどね_HH_/まだまだ遊び足りないのですね。次の行き先はお任せしますよ/ちゅっ_HH_　隙だらけでしたよ？")%」_W"
	ELSE
		PRINTFORMW 「%TEXTR(@"その辺で少し休みながら一緒に考えましょうか？/そうですね、%CNAME("二人称")%の希望があればそこでいいですけど/まずは何か食べましょうか？")%
	ENDIF
;騙して悪いがここも死に分岐なんでなぁ！！
CASE "前の穴を貸してもらう"
	SELECTCASE SAVESTR:デート
		CASE "水着を買いに行く"
			PRINTFORML 「%TEXTR("だ、ダメですよ/ダメですよ")%……%TEXTR("こんな所でするなんて……/せ、せめて脱いでからにしませんか？/お、落ち着いてください……")%」
			CALL PRINT_STR, @"「%TEXTR(@"立ったままするなんて、恥ずかしい……ああっ、入って……あぁっ/そんな強く抱きしめられたら……%CNAME("一人称")%、ダメなのに嬉しく……んっ/出来るだけ我慢しますけど……こ、声漏れちゃいますっ……んぅっ")%_HH_」_W"
		CASE "泳ぎに行く"
			PRINTFORML 「%TEXTR("確かに……ここなら誰も来なさそうですけど/お外でしちゃうのですか……いえ、嫌ではないのですけど")%……」
			CALL PRINT_STR, @"「%TEXTR(@"かなり恥ずかしいですよ……水着をずらしてバックからしたいなんて……もう……%CNAME("主人")%のえっち/その……お外で四つん這いになってされちゃうなんて……恥ずかしいじゃないですか")%_HH_」_W"
		CASEELSE
			PRINTFORML 「家に帰るまで我慢出来ないなら……せめてホテルに行くとか……」
			CALL PRINT_STR, @"「ダメっ……そんないきなり入れちゃうなんて……あっ、動かれたら声が漏れちゃいますから_HH_」_W"
	ENDSELECT
CASE "我慢する"
	;死に分岐を充実させるなんて本当に無駄だよ！！
	IF TALENT:淫乱 || TALENT:好色
		CALL PRINT_STR, @"「エッチな事しちゃう雰囲気なのに、我慢をしちゃうのですね？_HH_」_L"
		CALL PRINT_STR, @"「本当はしたいんじゃないんですか？　%CNAME("一人称")%が%CNAME("二人称")%の懺悔を聞いてあげますからちゃんと応えてくださいね_HH_」_W"
	ELSE
		SELECTCASE TEXTS("季節詳細")
			CASE "春", "初夏", "夏"
				;PRINTFORMW 真夏の夜の淫夢
				PRINTFORMW 「ん？　今、何でもするって言いましたよね」
			CASEELSE
				PRINTFORMW 「%TEXTR("なるほど……今、いかがわしい事を考えてましたね？/何か……気になることでもありましたか？")%
		ENDSELECT
	ENDIF
;帰り際のセリフです。さりげなくエッチに誘うのもいいでしょう
CASE "帰り際"
	IF TALENT:恋慕 && SAVESTR:デート == "花火を見に行く" && TFLAG:キス + TFLAG:フェラ && TFLAG:手繋ぎ
		PRINTFORML 「花火大会綺麗でしたね……」
		CALL PRINT_STRW, @"「来年も、そのまた先も……一緒に花火を見に来るって約束してくださいね、%CNAME("主人")%_HH_」"
	ELSEIF TALENT:恋慕 && SAVESTR:デート == "イルミネーションを見に行く" && TFLAG:キス + TFLAG:フェラ && TFLAG:手繋ぎ
		PRINTFORML 「今日はデートに誘ってくれてありがとうございました」
		PRINTFORMW 「あの……こ、この後の予定はどうでしょうか！？　まだ時間もありますし何処か寄って行きませんか？」
	ELSEIF TALENT:恋慕 && FIND_COND("現在存在", "フェリシエル") && NO:ASSI == 1 && CEVENT("当日ダブルデート：マリー＆フェリシエル") && CEVENT("当日ダブルデート終了：マリー＆フェリシエル") == 0
		PRINTFORMW 「何だかんだで……三人で遊ぶのも楽しかったですね♪」
		PRINTFORMW 『ええ……色々ありましたけど、楽しかったですね』
		PRINTFORML
		PRINTFORMW 「私とフェリシエルさんは……何時までも永遠には、こうして過ごす事は出来ないんでしょうね」
		PRINTFORMW 『それは……』
		PRINTFORMW 「私はこの日の出来事を忘れません。だから、フェリシエルさんもこれからもずっとお友達でいてくれるって約束してくださいね」
		PRINTFORMW 『ええ、約束します』
		PRINTFORML
	ELSEIF TALENT:恋慕 && EXP:デート経験 == 0 && CEVENT("初デート：私はあなたのお姉ちゃんです")
		PRINTFORMW 「今日はとっても楽しかったですね。お姉ちゃんのワガママを聞いてくれてありがとうございます」
		PRINTFORMW 「私の方が年上ですし、ちゃんとあなたをリードしなくてはと思ったのに……」
		PRINTFORMW 「楽しくなってはしゃいでしまって……恥ずかしい所をお見せしてごめんなさい」
		PRINT 「最初に出会った時は悪魔に騙されて契約してしまう頼りない
		IF TRUE_SEX(MASTER) == "オトコ"
			PRINT 男の子
		ELSE
			PRINT 女の子
		ENDIF
		PRINTFORMW だと思っていたのに……」
		PRINTFORMW 「すっかり立派になってくれたのは嬉しいですけど……ちょっぴり寂しい気持ちにもなりますね」
		PRINTFORMW 「さて、これ以上は実の姉でもないのに迷惑でしょうし明日からは元通りの関係に戻りましょうか？」
		PRINTFORML
		CALL PRINT_SELECT, "はい/いいえ"
		IF RESULT == 0
			PRINT 「私にも
			IF TRUE_SEX(MASTER) == "オトコ"
				PRINT 弟
			ELSE
				PRINT 妹
			ENDIF
			PRINTFORMW がいたらこんな感じだったのでしょうね。パラチネですか？　彼女は妹として見るのはちょっとないですね……」
		ELSE
			PRINTFORMW 「本当にいいんですか？　私はワガママですし、これからも迷惑をかけると思いますよ？」
			PRINTFORMW 「でも、あなたが許してくれるのならお言葉に甘えたいと思います。あなたも私を実の姉だと思って……いっぱい甘えてくださいね」
			CALL SET_CEVENT, "既成事実：私はあなたのお姉ちゃんです"
		ENDIF
	ELSEIF CEVENT("水着決定／マリー")
		;【ナイトプールは未実装です】
		PRINTFORMW 「%TEXTR(@"水着選びに付き合ってくださってありがとうございます。良かったら……このまま何処かに泳ぎにでも行きませんか？/今日はありがとうございました。何処か泳げる場所でもあれば%CNAME("二人称")%に水着姿をお見せ出来るのですが心当たりはありませんよね？")%」
	ELSEIF CEVENT("水着に着替えた／マリー")
		PRINTFORMW 「%TEXTR(@"今日は楽しかったですね。%CNAME("一人称")%としてはちょっと泳ぎ足りない気もしますが、こんな時間に開いてるプールはないですよね/楽しい一日でしたね。もうちょっとだけ泳ぎに行きたい気もしますけどこんな時間ではプールも開いてませんよね")%」
	ELSEIF TALENT:淫乱 && COND("身嗜み：Ｖ拡張") && COND("身嗜み：Ａ拡張")
		PRINTFORML 「%TEXTR("はぁ/んっ……")%%TEXTR(@"一日ずっと焦らされちゃうなんて思わなくって/ちゃんと我慢出来ましたけど")%……」
		CALL PRINT_STRL, @"「%TEXTR("したくって……おかしくなっちゃいそうなんです/もうグチャグチャに濡れて……限界なんです")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("どうか……私とホテルに行きませんか/お願いです……ご主人様。ちょっと休んでから帰りませんか")%？」"
	ELSE
		;裏などないよ？？？
		PRINTFORMW 「%TEXTR("今日は楽しかったですね。せっかくのデートですしこのまま帰っちゃうのも名残惜しい気もしますね/あっというまの一日でしたね。疲れていませんか？")%」
	ENDIF

CASE "デート終了"
	IF TALENT:恋慕 && SAVESTR:デート == "花火を見に行く" && TFLAG:手繋ぎ && TFLAG:ベッドイン == 0
		PRINTFORML 「少し遅い時間になっちゃいましたし。少しご飯でも食べてから帰りませんか？」
		PRINTFORMW 「……まだまだ二人っきりで色んなお話もしたいですし……どうでしょう？」
	ELSEIF TALENT:恋慕 && SAVESTR:デート == "イルミネーションを見に行く" && TFLAG:手繋ぎ && TFLAG:ベッドイン == 0
		PRINTFORML 「今日は……このまま帰りたくない気分ですけど……」
		PRINTFORMW 「皆さんも待っているでしょうし、お土産を買ってから帰りましょうか」
		CALL PRINT_STRW, @"「Merci（メルシー）　%CNAME("主人")%。チュッ_HH_」"
	ELSEIF TALENT:恋慕 && FIND_COND("現在存在", "フェリシエル") && NO:ASSI == 1 && CEVENT("当日ダブルデート：マリー＆フェリシエル") && CEVENT("当日ダブルデート終了：マリー＆フェリシエル") == 0
		IF TFLAG:ベッドイン
			PRINTFORMW 『さて、私は夕飯の支度がありますし先に帰りますね』
			PRINTFORMW 「えっ……このタイミングでご主人様と二人っきりになると言うのもちょっと気まずいですし」
			PRINTFORMW 『いい機会ですから、ちゃんと説明しておくべきだと私は思いますよ』
			PRINTFORMW 『出来る事なら何時までも三人一緒に過ごしたい。その気持ちは私も一緒です』
			PRINTFORMW 『だからこそ、あなたは自分の立場をちゃんとご主人様に伝えるべきなのです。夕飯までには帰って来て下さいね』
		ELSE
			PRINTFORMW 「真面目な話をしたらちょっと疲れちゃいましたね。今夜の献立はやっぱりお魚にしますか？」
			PRINTFORMW 『今日のデートで一番疲れているご主人様が食べたいものにしようと思ってます。さあ、ご主人様。どうしますか？』
			;ラブホテルで水着分岐フラグを消去
			CALL DEL_CEVENT, "水着決定：マリー"
			CALL DEL_CEVENT, "水着に着替えた：マリー"
		ENDIF
	;デートの〆にエッチをする場合
	ELSEIF TFLAG:ベッドイン
		IF TALENT:恋慕 && SAVESTR:デート == "花火を見に行く" && TFLAG:手繋ぎ
			PRINTFORML 「%CNAME("主人")%がどうしてもと言うならしょうがないですね……」
			PRINTFORMW 「その……折角ですしこの格好のまま……とか、どうでしょうか……」
			CALL SET_CEVENT, "当日デート：花火を見に行く２／マリー"
		ELSEIF TALENT:恋慕 && SAVESTR:デート == "イルミネーションを見に行く" && TFLAG:手繋ぎ
			CALL PRINT_STRL, @"「あと少しだけ……普通の女の子として、二人っきりの時間が過ごせますね。ふふっ_HH_」"
			CALL PRINT_STRW, @"「Merci（メルシー）　%CNAME("一人称")%の素敵な%CNAME("主人")%。チュッ_HH_」"
			CALL SET_CEVENT, "デート：イルミネーション２／マリー"
 		ELSEIF TALENT:淫乱 && COND("身嗜み：Ｖ拡張") && COND("身嗜み：Ａ拡張")
			PRINTFORMW 「はぁはぁ……デート中ずっと我慢させるなんて……」
			PRINTFORMW 「ご主人様と一緒にいる間……ずっとムラムラしちゃって大変だったんですからね？」
			CALL PRINT_STR, @"「ラブホテルに行ったらたっぷり可愛がってもらいますから覚悟してくださいね_HH_」_W"
			CALL SET_CEVENT, "デート後ラブホテル：マリー"
		ELSEIF TALENT:恋慕
			IF CEVENT("既成事実：私はあなたのお姉ちゃんです")
				PRINTFORMW 「今日はお姉ちゃんのワガママに付き合ってもらいましたから、あなたのワガママにも聞いてあげます」
				IF RAND:2 == 0
					PRINTFORMW 「でも……あの、お姉ちゃんとしては家族とするのはイケナイんじゃないかなって思いますよ？」
				ELSE
					PRINTFORMW 「血は繋がってませんけど……あなたのお姉ちゃんとしてはしっかりして欲しい所ですよ」
					PRINTFORMW 「本当はお姉ちゃんとそう言う事しちゃうのは……本当はダメなんですからね！？」
				ENDIF
				IF TALENT:相思相愛
					PRINTFORML
					IF RAND:2 == 0
						PRINTFORMW 「な～んて冗談です。%CNAME("二人称")%を困らせたくって、ちょっぴり意地悪しちゃいました♪」
						PRINTFORMW 「……私は年上ですし、何時でも頼れるあなたのお姉ちゃんのつもりですけど……ちゃんと%CNAME("二人称")%の恋人です」
						CALL PRINT_STRW, @"「沢山……愛してくださいね_HH_」"
					ELSE
						CALL PRINT_STRW, @"「ふふっ_HH_　冗談ですよ、ビックリしてくれましたか？」"
						PRINTFORMW 「%CNAME("一人称")%はあなたのお姉ちゃんみたいなものですが、ちゃんと恋人なんですからね」
						CALL PRINT_STRW, @"「……エッチな事がしたい時は遠慮せず、誘ってくれてもいいんですからね？_HH_」"
					ENDIF
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORMW 「ラブホテルだなんて、ご家族の方も待っておられるのにダメですよ……」
					PRINTFORMW 「う～ん、どうしても行きたいんですか？」
					PRINTFORMW 「そんな強引に誘われたら断りづらいですね……今回だけですからね？」
				ELSE
					PRINTFORMW 「ラ、ラブホテルですか……デートの定番とは聞いていましたが、誘われるのは初めてで……」
					PRINTFORMW 「……ちょっとだけ待ってください。行くのは構いませんが、わ、私の心の準備がまだ出来ていませんから」
				ENDIF
			ENDIF
			CALL SET_CEVENT, "デート後ラブホテル：マリー"
		ELSE
			PRINTFORMW 「休憩するって……」
			PRINTFORMW 「こ、ここはその……恋人同士が来る場所なのではありませんか？」
		ENDIF
	ELSE
		;へんたいだー！！
		IF TALENT:淫乱 && COND("身嗜み：Ｖ拡張") && COND("身嗜み：Ａ拡張")
			PRINTFORMW 「ご主人様に懺悔しなくてはいけない事があります……」
			PRINTFORMW 「……私はデートの間に我慢出来なくなってしまい……トイレに行った時に自分で両穴バイブを動かして……ご主人様にされてるのを思いながら慰めちゃいました……」
			PRINTFORMW 「……帰ったらたっぷりとお仕置きを受けますから。どうかお許しください……」
		ELSEIF TALENT:相思相愛 && TALENT:妊娠 == 0 && RAND:2 == 0
			IF RAND:2 == 0
				PRINTFORMW 「……%CNAME("主人")%。帰ったらデートの続きと言うか」
				PRINTFORMW 「%CNAME("一人称")%と%CNAME("二人称")%の赤ちゃんを……作りませんか……」
				PRINTFORMW （この人の赤ちゃんが欲しいって……胸が高鳴っちゃうなんて、これが愛なのですね……）
			ELSE
				PRINTFORMW 「……あの」
				PRINTFORMW 「こんな事を言うとはしたない子だって思われるかもしれませんけど……帰ったら、しませんか？」
				PRINTFORMW （この人と結婚して……%CNAME("二人称")%の赤ちゃんを授かって。どうか……ずっと今日みたいな幸せな日がずっと続きますように）
			ENDIF
		ELSE
			PRINTFORMW 「%TEXTR("こんな平和な日がずっと続きますように……そしてまた、デートに誘ってもらえますように。なんて自分の為に祈っては神様に怒られてしまいますね♪/デート楽しかったですね。こうして平和に過ごしていると私達と先人が戦ってきた事の意味を改めて感じます。今はこの平和が永遠に続く事を祈り願いましょう")%」
		ENDIF
		;ラブホテルで水着分岐フラグを消去
		CALL DEL_CEVENT, "水着決定：マリー"
		CALL DEL_CEVENT, "水着に着替えた：マリー"
	ENDIF
ENDSELECT

path: 加笔/玛丽加笔版 树子版/23 マリー/EVENT_K23_DAILY.ERB