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 "朝の新妻PLAY"
		;恋慕
		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("fufu/唔fufu")%_HH_　%TEXTR("今朝/今日")%，%CNAME("一人称")%的%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("嗯、pero、pero……/嗯……嗯、啾、啾……")%　早上好（敬语）」
			PRINTFORMW 「%TEXTR(@"早上做服务的时候%CNAME("一人称")%也湿了……是难得的机会，能不能互相做一下服务？/因为一直不起来就開始做侍奉了……啊、%CNAME("一人称")%的阴蒂酱、不行。感觉太强烈了")%」
		ENDIF
	CASE "朝口交"
		;複数PLAY　これで分岐取れるはず？？？
		;複数角色いると朝口交を狙って起こせない。取り合えず書いてコメントアウト処理しておく
		;一緒にPLAYしている相手の名前は%CNAME(CALLNAME:PARTNER() )%で呼べるのか？　%CNAME("主人")%形式じゃないとダメなのか、解らん……
		IF PARTNER()
			IF RAND:3 == 0
				PRINTFORML
				PRINTFORML 「%TEXTR("您好（Bonjour）/早上好")%……%TEXTR("嗯、啾、/啾、啾、/pero、pero、")%%CNAME("主人")%……」
				CALL PRINT_STRW, @"「今天是与%CNAME("partner")%%TEXTR("两人/一起")%、进行%TEXTR("早上的口交侍奉/充分的侍奉/直到打起精神来的侍奉")%……%TEXTR("啾、啾/嗯、唔/pero、pero")%_HH_　%TEXTR("要開动了/得手了")%_HH_」"
			ELSEIF RAND:2 == 0
				PRINTFORML
				PRINTFORML 「%TEXTR("您好（Bonjour）/早上好")%。%CNAME("主人")%」
				CALL PRINT_STRL, @"「%TEXTR("起こし来了ら/おはようの打招呼の領帯ミングで")%丁度%CNAME("partner")%%TEXTR("も来てたので/と鉢合わせたので")%……%TEXTR("ちゅっ、ちゅう/じゅるっ、じゅるる")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("今天/今早")%是%TEXTR("两人/一起")%，%TEXTR("请让我为您服务。/请让我为您服务早上。")%_HH_」"
			ELSE
				PRINTFORML
				PRINTFORML 「%TEXTR("您好（Bonjour）/早上好")%。%CNAME("主人")%」
				CALL PRINT_STRW, @"「%CNAME("一人称")%和%CNAME("partner")%、%TEXTR(@"谁更擅长侍奉/谁能先让%CNAME("主人")%射出来")%……%TEXTR("啾、啾/嗯、唔/pero、pero")%_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("jururu、jubojubo/jurujuru、jururu、gubogubo")%、%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("啾、啾/嗯、呜/peropero、pero")%_HH_　%TEXTR(@"非常棒的说/%CNAME("一人称")%们的侍奉舒服吗")%、%CNAME("主人")%_HH_」"
		;恋慕を想定
		ELSE
			PRINTFORML
			PRINTFORML 「早上好（敬语）……%TEXTR("嗯，啾，/啾，啾，/pero，pero、")%%CNAME("主人")%……」
			CALL PRINT_STRW, @"「今天是与%CNAME("partner")%%TEXTR("两人/一起")%、进行%TEXTR("早上的口交侍奉/充分的侍奉/直到打起精神来的侍奉")%……%TEXTR("啾、啾/嗯、唔/pero、pero")%_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 "朝の新妻PLAY"
			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 「fu……肉棒的包皮下面还积累了许多呢……」
								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
	;Talk
	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("出来。不对― 出来吧、Saber！！！！/Sa、ber。拜托了、出来吧Saber……！")%」
			IF RAND:2 == 0
				PRINTFORMW 玛丽『唿……真是千钧一发啊。那么、半開玩笑地模范动漫的情节、関于从屋顶跳下来这件事有什么解释吗？。如果没有的话我就開始说教了』
			ELSE
				PRINTFORMW 玛丽『Master……我被召去圣杯战争的话会是裁定者吗、我想应该是枪兵。要求回炉重造的话再上一次屋顶如何？』
			ENDIF
		[ENDIF]
		IF COND("夜")
			IF TALENT:恋慕
				IF RAND:2 == 0
					PRINTFORML 「%TEXTR("哼呼呼～嗯/啦、啦啦——")%♪」
				ENDIF
				PRINTFORMW 「%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
					PRINTFORMW 「依稀是魔法与剑的幻想世界呢。不知为何、进行着色情的战斗……的说」
				ELSEIF RAND:1999 == 0
					PRINTFORMW 「在因核破坏崩坏了的东京生存、真是不可思议的梦呢……」
				ENDIF
			ENDIF
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「让你看到丢脸的样子了」
		ELSE
			PRINTFORML 「累了吗、做了个奇怪的梦」
			IF RAND:114514 == 0
				PRINTFORML 「依稀是撞上了黑色高级车的梦呢……」
			ENDIF
		ENDIF
	ENDIF
CASE "Cosplay中"
	IF TALENT:恋慕
		PRINTFORML 「%TEXTR("换了衣服，怎么样？/我做了cosplay，适合吗？")%。%CNAME("主人")%」
	ELSE
		PRINTFORML 「虽然你说想让我cosplay一下，所以我就换了衣服……但还有点不好意思啊」
	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
	ELSEIF	TALENT:淫乱 && CHARA_NUM("室内の邪魔者") >= 0 && ABL:露出癖 >= 3
		IF EQUIP:胖次
			IF RAND:2 == 0
				PRINTFORML 「……今日穿的是%CLOCOLOR(CSTR:胖次, "形容詞")%%PANTIES(TARGET, "種類")%」
				PRINTFORML 「……大家想看的话，请尽情的看个够哦」
			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
	ELSEIF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") >= 0
		IF EQUIP:胖次
			PRINTFORML 「大家都在看着呢，好害羞」
			PRINTFORML 「今天是……%CLOCOLOR(CSTR:胖次, "形容詞")%%PANTIES(TARGET, "種類")%にしてみたんですが……」
			PRINTFORML 「%TEXTR(@"合适吗？/不是%CNAME("主人")%最喜欢的吗？/不适合%CNAME("一人称")%吗？")%」
			PRINTFORML 「大家喜欢吗？」
		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 「变黑了、叶子（猜测是指代阴唇）也拉伸成了这么大……明明是绝对不可以的事情却输给了快乐呢。fufu、这样子作为圣职者可就失格了啊」
			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%的视线，缓缓地将两脚分開成M字/巧妙地将布料塞进两股之间，然后摆动腰部诱惑着%CALLNAME:MASTER%")%
		ENDIF
	ELSE
		PRINTFORML 「%TEXTR("視線……早就察觉到了/真是的……早就知道你在看着了")%」
	ENDIF
CASE "接吻"
	IF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0
		CALL PRINT_STR, @"「%TEXTR(@"%CNAME("二人称")%と接吻の……好きですよ/ふふっ、接吻しちゃいましたね")%_HH_」_L"
		PRINTFORML 「%TEXTR(@"做了不好的事情呢……%CNAME("一人称")%们/就像做了坏事一样，感觉好紧张啊")%」
		;PRINTFORMW 家政婦看到了
		;PRINTFORMW 弗理希艾尔（实际上是气息遮断之后，全部都看到了）
	ELSEIF TALENT:恋慕
		IF RAND:4 == 0
			PRINTFORML 「……竟然想在别人面前展示」
			PRINTFORML 「其实是不行的，等会儿我会让你好好忏悔的ら……真是的」
		ELSEIF RAND:3 == 0
			PRINTFORML 「无论好事还是坏事」
			PRINTFORML 「全都被神在注视着哦？」
		ELSEIF RAND:2 == 0
			PRINTFORML 「真是的……其他人就在边上所以继续接吻是不行的哦」
			PRINTFORML 「待会儿我会好好生气的」
		ELSE
			PRINTFORML 「大、大家的面前接吻是不可以的。之后会让你忏悔一下的」
			PRINTFORML 「好好的明白了吗？　真是的……才没有变得dokidoki」
		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("乳房/胸部")%在意吗……」
				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("最近、是胸部变大的原因吗/是胸部过大的原因吗")%」
					PRINTFORMW 「%TEXTR("从以前開始就能感受到男生的视线/能感觉到视线都聚集在胸口上呢")%」
				ELSE
					PRINTFORML 「%TEXTR("相当重哦……/比看起来重吧？ /其实意外的重")%」
					PRINTFORMW 「%TEXTR(@"因为很柔软，所以没有関系……问题不是这个、真是的/很柔软所以很喜欢什么的……夸奖也没用/我知道这是%CNAME("二人称")%喜欢的尺寸，但还是很麻烦的")%」
				ENDIF
			ELSE
				IF COND("初期爆乳")
					IF RAND:2 == 0
						PRINTFORML 「都是因为%CNAME("二人称")%经常摸，所以变得这么大了」
						PRINTFORMW 「虽然不讨厌……但是有点太重了吧？」
					ELSE
						CALL PRINT_STR, @"「%CNAME("二人称")%のおかげで%TEXTR("お胸/胸部")%がもっと大きくなっちゃいました_HH_」_L"
						CALL PRINT_STR, @"「%TEXTR("那里又变大了，不过稍微有些高兴呢/请变得再大些吧")%_HH_」_W"
					ENDIF
				ELSE
					IF RAND:2 == 0
						CALL PRINT_STR, @"「%TEXTR("自己も思いますけど大きく育っちゃいましたね/これも神のお恵みなのでしょう")%_HH_」_L"
						CALL PRINT_STR, @"「%TEXTR(@"虽然觉得会有些影响战斗，但是只要%CNAME("主人")%喜欢就完全没问题哦/虽然也挺不方便的，但变得大大的才好嘛")%_HH_」_W"
					ELSE
						PRINTFORML 「%CNAME("主人")%经常摸才会%TEXTR("发育成这样了呢/变得这么大了呢")%」
						CALL PRINT_STR, @"「%TEXTR("……这也是爱的证明，所以很開心哦/请继续疼爱，变得更大些吧")%_HH_」_W"
					ENDIF
				ENDIF
			ENDIF
		;胸を豊穣で成長させた　爆乳編
		ELSEIF TALENT:巨乳 >= 2
			IF RAND:2 == 0
				PRINTFORML 「那里长大了呢……虽然不讨厌」
				PRINTFORMW 「%TEXTR("难道说动作会比以前慢一点吗……/觉得有点难以战斗呢")%」
			ELSE
				PRINTFORML 「%CNAME("主人")%はやっぱり大きい%TEXTR("お胸/胸部")%が好きなんですか？」
				CALL PRINT_STR, @"「……%TEXTR(@"如果你高兴的话，可以再大一点哦/为了%CNAME("主人")%无论何时都会大大地成长起来呢")%_HH_」_W"
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「不可以恶作剧哟？」
				PRINTFORMW 「如果是两个人独处的时候……可以考虑一下哦」
			ELSE
				PRINTFORML 「有其他人的时候请自重吧？」
				PRINTFORMW 「要是没有其他人在的话……也不是不行」
			ENDIF
		ENDIF
	ELSE
		PRINTFORML 「你总是想着那些事啊」
		PRINTFORMW 「煩悩を解消する為、少し%CNAME("一人称")%と二人お話をしましょうか」
		;PRINTFORMW 女仆（这样说的话，主人就会理解为想要两个人单独聊色情话题吧……毕竟是男子高校生）
	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
	ELSEIF CHARA_NUM("室内の邪魔者") >= 0
		IF ABL:露出癖 >= 10
			IF SAVESTR:現在位置 == "公園"
				IF TALENT:乳环
					PRINTFORML 「%TEXTR("……虽然有点害羞、但还是忍不住兴奋起来/在这里命令我脱光衣服什么的……乳头都挺立起来了")%」
					IF RAND:2 == 0
						PRINTFORML %CALLNAME:TARGET%面带红霞有点害臊地抱住了自己的身体。
						PRINTFORML 周围不时有人向这里投下目光，看向%CALLNAME:TARGET%赤裸的身体
						PRINTFORML %CALLNAME:TARGET%的%TEXTR("両胸/乳頭/胸前")%彩色的%TEXTR("＿/金属")%乳环在公园街边的路灯照耀下，闪烁着妖冶的光芒,这样的场景真是令人目眩神迷……
					ELSE
						PRINTFORML 周围不时有人向这里投下目光，看向%CALLNAME:TARGET%赤裸的身体
						PRINTFORML %CALLNAME:TARGET%有些害羞的同时、両手将自己的胸部给遮了起来。
						PRINTFORML 从手指的缝隙间看去，%CALLNAME:TARGET%的乳头已经立起、穿过乳头的金属环在公园的灯光下反射着异样的光芒……
					ENDIF
				ELSE
					IF RAND:2 == 0
						PRINTFORML 「全部都被神明看在眼里呢。要是命令了什么奇怪的事情可是要被降下天罚的……注意一点哦」
					ELSE
						PRINTFORML 「明明还在%TEXTR("公園/外面")%呢……%TEXTR("想要全裸/衣服全部脱掉/脱光")%什么的%TEXTR("本该是不可以的哦/可不是什么好事哦")%……」
					ENDIF
					PRINTFORML 周围不时有人向这里投下目光，看向%CALLNAME:TARGET%赤裸的身体
				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
	;	PRINTFORMW 你「悪いが眠ってもらう。これも仕事なんでな！！」
	;	PRINTFORMW %CALLNAME:MASTER%の放った悪魔女仆式時計型強制睡眠導入剤発射装置が火を噴いた！！
	;	PRINTFORMW 「%CNAME("一人称")%を甘くみないでくださいね！！」
	;	PRINTFORMW 殺気に気がついて、あと少しの所で聖書を盾にする%CALLNAME:TARGET%
	;	PRINTFORMW 『そういう展開は長くなるからやめましょう。大人しく寝ててくださいね』
	;	PRINTFORMW %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("一人称")%有什么事情吗？」
			PRINTFORML 「%TEXTR("…虽然签了契约就遵从，但是希望性处理之类的，请稍微明白分寸吧/性处理吗……这次虽然可以，下次可就不行了")%
		ENDIF
	;做爱房
	ELSE
		IF TALENT:恋慕
			PRINTFORML 「%TEXTR(@"叫我过来吗/怎么了吗")%？、%CNAME("主人")%」
			PRINTFORML 「希望进行性处理吗……%TEXTR("只是特例啊/只有这次、这有这一次哦/真是没办法呢")%」
		ELSE
			PRINTFORML 「叫%CNAME("一人称")%有什么事情吗？」
			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 「後で酱と処分したか確認しますからね。黙っていても帕拉奇娜の目はごまかせませんから」
		;PRINTFORMW 帕拉奇娜「自己消し方が解らないからって酷くないですか！？」
	ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML 「もう……写真を撮るなら酱と言ってくださいね？」
	PRINTFORML 「被拍摄着感觉有些奇怪呢，毕竟%CNAME("一人称")%是女生，还是会觉得害羞的」
;POSE撮影毎に細かい関数がないので、流石に条件分岐で追うのはツライ
CASE "POSE撮影"
	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("服装/Cosplay/内衣/泳装")%があれば、同居頻度を相談しながら好きなモノのに着替えてあげますからね？」
				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_」_W"
		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_」_W"
		IF FIND_COND("現在存在", "弗理希艾尔")
			PRINTFORML 『请小心，祝您武运长久』
		ENDIF
	ELSE
		PRINTFORML 「%CNAME("一人称")%即使不在身边也不要做奇怪的事情」
	ENDIF
	CALL SET_CEVENT, "イベント：新年／玛丽"
ELSEIF DAYEV("新年", "リアル日時") && CEVENT("イベント：新年／玛丽") && CEVENT("イベント：新年／玛丽２") == 0 && CHECK_SHIRT("振袖", TARGET)
	CALL PRINT_STR, @"「ちょっと早めに用事を済ませて帰って来れたので、新年のご打招呼に参りました_HH_」_W"
	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

;他の人といちゃついた後にpartner変更
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("合适吗？/很奇怪吧……/怎么样呢？")%」
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为感想を言って欲しそうに、頬を赤らめて%CALLNAME:MASTER%を看了过来。
		CALL PRINT_SELECT, "夸奖/感想はまた今度にする"
		IF RESULT == 0
			PRINTFORMW 「非常感谢、呼呼♪」
			IF CHARA_NUM("室内の邪魔者") == 0
				CALL PRINT_STR, @"「啾芙_HH_」_W"
			ENDIF
			CFLAG:夸奖 = 2
			CALL SET_CEVENT, "イベント：新年／玛丽３"
		ELSE
			PRINTFORMW 「%TEXTR(@"%CNAME("二人称")%喜欢普通的衣服吗？/有些不太合适吧…/因为您好像很忙，下次再让我听听您的感想吧")%」
		ENDIF
	ELSE
		IF TALENT:恋慕 && CHECK_SHIRT("振袖", TARGET) && CFLAG:夸奖 == 2 && CEVENT("イベント：新年／玛丽３") && RAND:3 == 0
			PRINTFORML 「新年と言うのは楽しいですね♪」
			CALL PRINT_STR, @"「%TEXTR("羽根突きと言う玩耍をしましょうか、大丈夫。手下留情しますから！/百人一首？　カルタですか？　良く解りませんが、やりましょう/姫初め？と言うのがあるらしいですが、それは一体どんな玩耍ですか")%」_W"
		ELSEIF RAND:2 == 0
			PRINTFORML 「靠！（Zut！）」
			PRINTFORML 「那个，我学了叫正座的坐法……」
			PRINTFORMW 「%TEXTR("好可怜啊……脚麻了，动不了了……/真是遭不住啊……这点日本人好厉害")%」
			;PRINTFORMW 『正座も満足に出来ない様では、この悪魔女仆を超えられませんよ？』
		ELSE
			PRINTFORML 「%CNAME("一人称")%发现了一件大事……」
			PRINTFORMW 「%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 「便当は必要でしょうか？」
		PRINTFORMW 「看了天气预报了吗，可能会下雨呢，给您准备好了雨伞」
	ELSEIF RAND:2 == 0
		PRINTFORML 「您准备好出門了吗？？」
		PRINTFORMW 「いざとなったら%CNAME("一人称")%が何とかしてあげますが、あんまり甘えて是けませんからね？」
	ELSE
		PRINTFORML 「今天去哪里呢♪」
		PRINTFORMW 「只要是和%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("一人称")%这里恶作剧吧？/稍微一点点的话就算恶作剧也没関系。今天就原谅你吧？")%」_W"
	ELSE
		PRINTFORML 「今天是比基尼の日だと聞いて、着替えて見たんですが……」
		PRINTFORMW 「%TEXTR(@"虽然有点害羞，但如果%CNAME("二人称")%開心的话我会很高兴的。/你不会就这样去游泳吧？/%CNAME("二人称")%喜欢游泳吗？")%」
	ENDIF
ELSEIF DAYEV("兔女郎の日") && COND("昼") && CHECK_BODYS("兔")
	IF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0 && RAND:2 == 0
		PRINTFORML 「%TEXTR("ぴょんぴょん/うさ酱ですよ")%♪」
		PRINTFORMW 「啊……那个，%CNAME("二人称")%你什么都没看到吧，太好了。？」
	ELSE
		PRINTFORML 「大家Cosplayするのも楽しいですね♪」
		PRINTFORMW 「如果可以的话，%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_」_W"
		;PRINTFORMW %CALLNAME:MASTER%の肩は物理的に蔷薇蔷薇变成了！！　復活！！！
	ELSE
		PRINTFORML 「%TEXTR("さぁ、大掃除しましょう/早速ですが大掃除しましょう")%！！」
		PRINTFORMW 「%TEXTR(@"茶会は掃除が終わってからです、%CNAME("主人")%は邪魔しないで待っててくださいね/全部片付いたら大家茶の時間にしましょう")%」
	ENDIF
ELSEIF (TALENT:恋慕 || TALENT:淫乱) && CEVENT("換装：玛丽") == 0 && CEVENT("Cosplayに興味は有ますか？：玛丽") == 0
	PRINTFORML 「%CNAME("主人")%はCosplayとか……そういうモノにも興味があるのですね」
	PRINTFORMW 「契約の範疇であればご相談に乗れない事もないと思いますから、一度取引してみるのはどうでしょうか」
	CALL SET_CEVENT, "Cosplayに興味は有ますか？：玛丽"

;PRINTFORML 弗理希艾尔『これは判定上はただの衬衫です。何時からソレを你の衬衫だと勘違いしていたんですか？　お可愛い事』
ELSEIF FIND_COND("朝袭相手") && CHECK_SHIRT("衬衫", TARGET)
	CALL PRINT_STR, @"「%TEXTR(@"クンクン……このT恤は%CNAME("二人称")%の气味がしますね/このT恤を着てると%CNAME("二人称")%の香りに包まれてるみたいで素敵ですね/このT恤を着たら%CNAME("二人称")%が胖次を欲しがる理由、ちょっぴり解っちゃいました")%_HH_」_L"
	CALL PRINT_STR, @"「%TEXTR("我喜欢你/我爱你/我爱你（Je t’aime）")%……%CNAME("主人")%_HH_」_L"
ELSEIF DAYEV("周日", "游戏内") && COND("昼") && RAND:2 == 0
	;修道女玛丽桑に迫る黑色影PLAYとか
	IF RAND:2 == 0
		PRINTFORML 「今天是教会に%TEXTR("顔を出さないといけない日なんです/帕拉奇娜を連れて行かねばならない日なので/ミサで出かけなくて是けないんです。予定がある日は前日に済ませるんですけどね")%」
		PRINTFORMW 「%CNAME("二人称")%如果没有事的话，%TEXTR("一起去怎么样？/偶尔在教堂祈祷一下吧？/试着祈祷怎么样？/为了重新认识和恶魔的交往方式，不去教堂吗？")%」
	ELSE
		PRINTFORML 「%TEXTR("教会にお手伝いにいってきますね/何かご用事ですか？　お闲でしたら一緒に教会にお手伝いにいきませんか/教会是つも人手不足なのでちょっとお手伝いにいってきます")%」
		PRINTFORMW 「%TEXTR(@"お土産はそうですね……聖書とか、いりませんか？/困っている人を助けるのが%CNAME("一人称")%達の本来の役目ですから/驱魔人と言っても戦ってばかりではないんですよ")%」
	ENDIF
	CALL SET_COORDINATE, "修女服"
	CALL SET_OTHER, "颈环/髮箍"
ELSEIF COND("夜")
	IF PLACE("居間") && TALENT:恋慕 && FIND_COND("弗理希艾尔") && CEVENT("イベント：童貞を殺す服／玛丽") == 0
		PRINTFORML 「……%CNAME("主人")%。今はお時間有ますか？」
		PRINTFORMW 「ちょっと相談と言うか、%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("料理/PLAY/出来事")%について話している。
				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 「如果没效果的话，闻闻也没事的，请别客气」
			;PRINTFORMW 猫娘に让她闻木天蓼鬼畜聖職者の鑑である。
			PRINTFORMW 『哎呀，别说了……』
			;PRINTFORMW 効果は叉叉グンだ！！
		ELSEIF RAND:2 == 0
			;分岐2　猫用ちゅーる
			PRINTFORML 「今天的点心已经换成了猫用的零食棒了」
			PRINTFORML 『是傻瓜吗，你以为我吃那种东西吗？』
			PRINTFORML 「我事先舔了一下，意外的很好吃哦」
			PRINTFORML 『那么，稍微试一下也没関系……只是有兴趣而已，不要误会哦』
		ELSE
			;分岐3　猫じゃらし
			PRINTFORML 「ほ～らほらほら。一緒に玩耍ませんか？」
			PRINTFORML 頭のイカレタ聖職者玛丽酱はアイリの目の前で猫じゃらしを振ってみせた。
			PRINTFORML 『そんな兒童だましに引っかかるわけないでしょう』
			;PRINTFORMW 弗理希艾尔酱（つまり、兒童の時は引っかかっていたんですね……今もウズウズしてるみたいですし）
			PRINTFORML 「好不容易准备好了，不能一起玩儿吗？……」
			PRINTFORML 『あーもう、遊んで给わよ。やるならもっと激烈地動かしなさい』
			;PRINTFORMW 弗理希艾尔酱（激烈地動かしなさいってフレーズ、可愛い女の子の口から聞くと何だか卑猥ですね……ズズッ、茶美味しい）
		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
			PRINTFORMW 「産まれた世界は違っていても！」
			PRINTFORMW 『共に守るモノは一つ！』
			PRINTFORMW 『「我ら！トライスクワッド！！」』
			PRINTFORMW 意気投合した%CALLNAME:TARGET%と%CALLNAME:FINDCHARA(NO, 22)%は何かに目覚めた様だ……
			PRINTFORMW 「%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
					PRINTFORMW 「%CNAME("二人称")%と泳ぎに行きたいのですが学年が違いますし、良かったら周日日にでも约会するのはどうでしょうか？」
					CALL SET_DEVENT, "水泳约会１／玛丽"
				ELSE
					PRINTFORMW 「%TEXTR(@"今日は水泳の日ですね。折角ですし勝負しますか？　学年が違う……そうでした\/水泳の日は楽しみですね。%CNAME("二人称")%もウキウキしてきませんか")%」
				ENDIF
			ELSEIF COND("夏") && RAND:2 == 0
				IF TEXTS("曜日") == "日"
					PRINTFORMW 「%TEXTR(@"暑いからってだらけていてはダメですよ。一緒に汗を流して体を鍛えましょうか/夏と言えば泳池に、海ですね。良かったら二人一緒に特訓しに行きませんか？")%」
				ELSE
					PRINTFORMW 「%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
				IF FIND_COND("現在存在", "助手") ;%CALLNAME:ASSI%
					PRINTFORML 「%CALLNAME:MASTER%不想和我做吗……」
					PRINTFORML 「好吧……」
					PRINTFORML （看来今天只能拜托%CALLNAME:ASSI%了呢……）
					PRINTFORML 「不……不行」
				ELSE
					PRINTFORML 「您累了吧……」
					PRINTFORMW 「明天以后也可以……%CNAME("一人称")%我会等着您的」
				ENDIF
			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("一人称")%のお口を使ってくださいませんか/充分お口で味わわせて綺麗にさせてくださいませんか")%？」
	;添笔事件:清洁口交前的自述
	ELSEIF TALENT:淫乱 && ABL:受虐属性 >= 3 && COND("欲求不満") && ABL:精液中毒 >= 10 && CONFIG("路人Ｈ")
		PRINTFORML 「主人，我最近好像有些%TEXTR(@"爱上清洁口交/喜欢上被人按着头做清洁口交/喜欢上把沾满精液的肉棒舔干净的感觉")%了呢」
		PRINTFORML 「昨天也偷偷地跑去公园，在男厕所里给陌生的男人口交了哦」
		PRINTFORML 「主人你应该知道的吧，公园男厕所的隔间是有洞口的，不认识的男人们就从那里把自己的肉棒伸出来让%CNAME("一人称")%给他们服务」
		PRINTFORML 「一根接一根的，%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 	CONFIG("路人Ｈ") && TALENT:処女 == 0 && TALENT:淫乱 && CEVENT("NTR允许",TARGET) && RAND:2 == 0 && CFLAG:做爱部部员等级 >= 3 && EXP:子宮姦経験 >= 12 && CFLAG:做爱部本番次数 >10
			IF RAND:2 == 0
				PRINTFORMW 「其实啊——」
				PRINTFORMW 「在做爱部的这些天里、我的 子宫 已经被部里的大家好好的开发过了呢」
				;CALL PRINT_STR, @"「え、えへへ_H_　%CNAME("一人称")%の%TEXTR("しきゅー/子宮/こどもへや/大事なところ/子宮飞机杯")%…　いっぱい犯していーんだよ？」"
				CALL PRINT_STR, @"「%CNAME("主人")%、请看这里~_H_」"
				PRINTFORMW 向着这边暴露着性器、能够轻易地看到最深处%TEXTR("子宮/聖域/大事な場所")%的门扉、正因等待着%CALLNAME:MASTER%的%TEXTR("陰茎/阴茎/肉槍/肉棒")%而不断的开闭着…
			ELSE
				PRINTFORMW 「稍微有点上瘾呢/我好像已经上瘾了呢 ……」
				PRINTFORMW 「被部里肉棒特别长的几位部员把我的子宫当做飞机杯来用
				; CALL PRINT_STR, @"「んんっ…　%CNAME("二人称")%だけの入り口_H_」"
				CALL PRINT_STR, @"「这就是证据哦~_H_」"
				PRINTFORMW %CALLNAME:TARGET%将性器用两只手指撑开、将那为了%TEXTR("陰茎/阴茎/肉槍/肉棒")%而进入的肉穴深处子宫口向着%CALLNAME:MASTER%展示着
			ENDIF
		ELSEIF 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("partner的房間") && STR:日常イベント名 == "自室に訪問された" && DEVENT("自室訪問") && TALENT:恋慕 && FIND_COND("現在存在", "助手") == 0 && COND("欲求不満") && COND("相性☆", ASSI) && TALENT:ASSI:男性 && TALENT:淫乱 && TALENT:処女 == 0
		DRAWLINE
		PRINTFORML 靠近了%CALLNAME:TARGET%的房間，可房门并没有关紧、从部屋中传来%CALLNAME:TARGET%愉悦的呻吟……
		PRINTFORMW 偷偷的从门缝向内看去
		IF RAND:2 == 0
			PRINTFORMW 那是正夸坐在%CALLNAME:ASSI%的身上，不停摇摆着腰部的%CALLNAME:TARGET%
		ELSEIF RAND:2 == 0
			PRINTFORMW 两具赤裸的肉体正紧密的纠缠着
			PRINTFORMW %CALLNAME:ASSI%的身体伏在%CALLNAME:TARGET%的身上，阴茎自上而下地在小穴里不停的进进出出，每一下都会带出大量的淫液洒向四周
			PRINTFORMW %CALLNAME:TARGET%正搂住%CALLNAME:ASSI%的脖子，忘我地接吻着
		ELSE
			PRINTFORMW %CALLNAME:ASSI%正以后背位的姿势，一下又一下撞击着%CALLNAME:TARGET%的臀部
		ENDIF
		PRINTFORMW 悄悄关好门离开了这里，没过多久，穿好衣服的%CALLNAME:ASSI%打开了门，小心的看了看四周，离开了
		PRINTFORMW 你等待了一会后，重新敲响了%CALLNAME:TARGET%的房门
	;事件结束
	ELSEIF PLACE("partner的房間") && 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 "Talk"
	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 「好きなPLAYを聞かれてもみだりに人前で話して是けませんよ」
				PRINTFORMW 『流石ですね、我も気をつけないと』
			ELSE
				PRINTFORML 「好きなPLAY……ですか？」
				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 「愛があればどんなPLAYでも良いと思いますよ。愛があれば」
					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%的瞬间一击。
					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 CHARA_NUM("室内の邪魔者")&& ABL:露出癖 >= 10 && TALENT:恋慕 && RAND:2 == 0;**
				PRINTFORMW 「大家都%TEXTR("目不转睛地/时不时")%盯着这边看呢，看到%CNAME("一人称")%被这么下流的手法对待，是不是也兴奋起来了？」
				; CALL KOJO_EVENT, "自発脱ぎ"
				; PRINTFORML 「请大家好好观赏……玛丽赤裸的身体被尽情揉弄的姿态吧」
			ELSEIF 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)
					PRINTFORML 「%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("＿/_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_")%」"
						CASE 0
							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
			PRINTFORML 「%CALLNAME:ASSI%的事情……%TEXTR("因为很喜欢呢/因为爱着呢/对不起总是欺负你。喜欢就是喜欢")%_HH_」
			PRINTFORM %TEXTR(@"%CALLNAME:TARGET%醉醺醺的/%CALLNAME:TARGET%以喝醉的气势")%
			PRINTFORMW %TEXTR("紧紧地拥抱着/想要推倒")%%CALLNAME:FINDCHARA(NO, 9)%
		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 CEVENT("陰蒂環")
					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%发错邮件的不久后，教廷的TOP也收到了相関部門冷嘲热讽的邮件。
		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
;添笔事件：精液便所(公园)
		ELSEIF SAVESTR:現在位置 == "公園" && CEVENT("NTR允许",TARGET)
			PRINTFORML   [0]邀请她进男厕
			PRINTFORML   [1]打个招呼
			;$K23_TOILET_LP1
			INPUT
			IF RESULT == 0
				PRINTFORML 「什么？想让我一起去男厕所？」
				IF ABL:露出癖 >= 10 && TALENT:恋慕 && CONFIG("路人Ｈ")&& COND("欲求不満")&& ABL:精液中毒 >= 10
					PRINTFORMW %CALLNAME:TARGET%似乎想到了什么，瞬间脸色通红，身姿扭捏了起来
					CALL PRINT_STRW, @"「好，好的~_HH_」"
					PRINTFORMW 你将%CALLNAME:TARGET%带入了男子厕所，周围男人一瞬间都注意到这个与环境格格不入的美丽女性
					PRINTFORMW %CALLNAME:TARGET%自觉的走到厕所的中央，拎起裙摆缓缓蹲下，并将双腿以M型打开
					PRINTFORMW （%TEXTR("明明还是修女，却在做这么不知羞耻的事情/神啊，请原谅我这个陷入迷途的羔羊吧")%………）
					PRINTFORMW %CALLNAME:TARGET%看着你张开嘴，仿佛在邀请着肉棒的进入
					PRINTFORMW 你毫不犹豫的用阴茎贯穿了%CALLNAME:TARGET%的口腔
					PRINTFORMW 「%TEXTR("嗯唔/啾/啾噗")%……%TEXTR("咧捋、咧捋……/呵姆、啾…嗯……")%」
					PRINTFORMW 厕所里响起了下流的水声，周围的男人目不转睛的盯着正为你侍奉的%CALLNAME:TARGET%，这富有冲击力的画面，让男人们无可避免的勃起了。
					PRINTFORMW 很快，你在%CALLNAME:TARGET%的嘴里释放了欲望，%CALLNAME:TARGET%仿佛平常美味般，将你的精液一滴不剩的喝了下去
					PRINTFORMW 但%CALLNAME:TARGET%还没有满足，她环视了一圈厕所，盯上了其中帐篷最大的男人
					PRINTFORMW 「这位大哥哥，想要在我这张下流的嘴里射精吗？」
					PRINTFORMW 「看，我的嘴穴正渴望着肉棒呢」
					PRINTFORMW %CALLNAME:TARGET%朝着男人张开了嘴，能看到粉嫩的舌头与口腔依旧还你的精液在里面粘连着
					PRINTFORMW 男人犹豫了一下，最终还是败给了诱惑，靠近了%CALLNAME:TARGET%
					PRINTFORMW %CALLNAME:TARGET%将鼻子贴在男人帐篷的顶端，隔着裤子嗅了嗅，一股浓郁的味道铺面而来
					PRINTFORMW %CALLNAME:TARGET%熟练地帮男人解开腰带，并将内裤脱下，雄伟的阴茎从内裤中弹出，拍在了%CALLNAME:TARGET%光洁的脸上，浓郁的气味从龟头前端的包皮缝隙中钻入%CALLNAME:TARGET%的鼻腔
					CALL PRINT_STRW, @"「哇~_HH_ 没想到还有这么大的包皮阴茎」"
					PRINTFORMW %CALLNAME:TARGET%迫不及待的将裹着包皮的龟头迎入口中，用舌头钻入包皮中，开始舔舐龟头
					PRINTFORMW 接着慢慢地用舌頭把男人的包皮剥開、隐藏在冠状沟的%TEXTR("恥垢/污垢")%被舌尖%TEXTR("清理干净/舔的一干二净")%…
					PRINTFORMW %CALLNAME:TARGET%用纤细的手指温柔地爱抚挂在阴茎下可爱的玉袋、从肉棒的前端到中间的区域、再到根部都花了不少的时间进行充分地侍奉……
					PRINTFORMW 同样很快，男人就忍不住抱住%CALLNAME:TARGET%的头，将阴茎深深插入喉咙，开始了射精
					PRINTFORMW %CALLNAME:TARGET%的喉咙不停滚动，无数精液流入了胃中，男人将沾满唾液的阴茎从嘴穴深处拔出，晶莹的丝线从%CALLNAME:TARGET%的小嘴一直延伸到龟头
					CALL PRINT_STRW, @"「啊~_HH_ 精液好棒」"
					PRINTFORMW 接着，又有两个男人端着肉棒，一左一右的贴在了%CALLNAME:TARGET%的脸上，%CALLNAME:TARGET%立刻张开小嘴侍奉起来，舌头在两根肉棒上来回舔舐
					CALL PRINT_STRW, @"「%TEXTR("＿/啾、")%吸溜_HH_　%TEXTR("两个人都好大啊/啾……好棒")%_HH_」"
					CALL PRINT_STRW, @"「……能让%CNAME("一人称")%同时服务两根这么%TEXTR("大/硬")%的肉棒_HH_」"
					PRINTFORMW 「%TEXTR(@"真是神对%CNAME("一人称")%的恩赐呢/不平等地服务是不行的……")%
					PRINTFORMW 「%TEXTR("嗯……/呜嗯……/啾、吸溜……")%%TEXTR("啾……/PeroPero……/姆……/吸溜、啾呜……")%」
					PRINTFORMW 没过多久，两人就在%CALLNAME:TARGET%的脸上吐出了精液
					PRINTFORMW 紧接着是第四位，第五位
					PRINTFORMW %CALLNAME:TARGET%像是野兽般發出%TEXTR("吸溜、吸溜/褚嚕、褚嚕、褚嚕嚕")%的聲音、%TEXTR("貪婪/下流")%地%TEXTR("吮吸/渴求")%著每一根的%TEXTR("陰莖/〇棒/肉棒")%…
					PRINTFORMW 將男人的%TEXTR("陰莖/〇棒/肉棒")%%TEXTR("貪婪地吮吸著/用舌頭緊緊地纏繞、塗上大量唾液")%…
					PRINTFORMW
					CALL PRINT_STRW, @"「多谢款待~~%TEXTR("唔呣——/啾、")%_HH_」"
					PRINTFORMW 过来许久，%CALLNAME:TARGET%终于侍奉完最后一个男人，对着刚刚射完精液、一颤一颤的阴茎深深地一吻，完成了这次侍奉
					EXP:精飲経験 += 5
					EXP:精液経験 += 80
					EXP:口交経験 += 6
					EXP:清洁口交経験 += 80
					EXP:喉性交経験 += 2
					EXP:奉仕快楽経験 +=3

					PRINTFORM EXP:精飲経験 		+5
					PRINTFORM EXP:精液経験 		+80
					PRINTFORM EXP:口交経験 		+6
					PRINTFORM EXP:清洁口交経験 	+80
					PRINTFORM EXP:喉性交経験 	+2
					PRINTFORM EXP:奉仕快楽経験 	+3
					PRINTFORMW
					PRINTFORMW 你带着满脸精液的%CALLNAME:TARGET%来到水池边，仔细清洗后，离开了这里
				ELSE
					PRINTFORMW 「开玩笑的吧，%CNAME("一人称")%可是女孩子哦，不可以随便进男生的厕所的」
					PRINTFORMW 「好了，一起回去吧？」
				ENDIF
			ELSE
				PRINTFORML %CNAME("二人称")%也来上厕所吗
			ENDIF
		;添笔事件：精液便所(学校)
		ELSEIF SAVESTR:現在位置 == "部室" && CEVENT("NTR允许",TARGET)
			PRINTFORML   [0]邀请她进男厕
			PRINTFORML   [1]打个招呼
			;$K23_TOILET_LP1
			INPUT
			IF RESULT == 0
				PRINTFORMW 「什么？想让我一起去男厕所？」
				IF ABL:露出癖 >= 10 && TALENT:恋慕 && CONFIG("路人Ｈ")&& COND("欲求不満")&& ABL:精液中毒 >= 10
					PRINTFORMW 「这可是在学校里哦？厕所里肯定有人的吧，说不定还有老师...嗯~~」
					PRINTFORMW %CALLNAME:TARGET%想象了一下，瞬间脸色通红，身姿扭捏了起来
					CALL PRINT_STRW, @"「好，好吧~_HH_」"
					PRINTFORMW 由于部室附近只有这一个厕所的原因，所以通常使用的人也不少，也经常会有老师使用
					PRINTFORMW 你将%CALLNAME:TARGET%带入了部室附近的男子厕所，
					PRINTFORMW 很不巧的是，现在正好有老师在里面
					PRINTFORMW 周围男生一瞬间都注意到这个与环境格格不入的美丽女性
					PRINTFORMW 『%CALLNAME:TARGET%，怎么回事，你怎么会来男厕所，快出去！』
					PRINTFORMW 「老师，对，对不起」
					PRINTFORMW 嘴里说着道歉，但%CALLNAME:TARGET%自觉的走到厕所的中央，拎起裙摆缓缓蹲下，并将双腿以M型打开，毫无保留的展露着私处
					PRINTFORMW （%TEXTR("明明老师还在看着，却在做这么不知羞耻的事情/老师，请原谅我这个不知廉耻的学生吧")%………）
					PRINTFORMW %CALLNAME:TARGET%向你张开嘴，仿佛在邀请着肉棒的进入
					PRINTFORMW 你毫不犹豫的用阴茎贯穿了%CALLNAME:TARGET%的口腔
					PRINTFORMW 「%TEXTR("嗯唔/啾/啾噗")%……%TEXTR("咧捋、咧捋……/呵姆、啾…嗯……")%」
					PRINTFORMW 厕所里响起了下流的水声，周围的人目不转睛的盯着正为你侍奉的%CALLNAME:TARGET%，这富有冲击力的画面，让老师和学生们无可避免的勃起了。
					PRINTFORMW 很快，你在%CALLNAME:TARGET%的嘴里释放了欲望，%CALLNAME:TARGET%仿佛平常美味般，将你的精液一滴不剩的喝了下去
					PRINTFORMW %CALLNAME:TARGET%环视了一圈厕所，对着下半身早已掌起帐篷的老师发出了邀请
					PRINTFORMW 「老师，对不起，都是%CNAME("一人称")%的错，犯错的孩子就该收到惩罚」
					PRINTFORMW 「所以，请用您的大肉棒插进%CNAME("一人称")%的嘴里，狠狠责备%CNAME("一人称")%吧」
					PRINTFORMW %CALLNAME:TARGET%朝着老师张开了嘴，能看到粉嫩的舌头与口腔依旧还有你的精液在里面粘连着
					PRINTFORMW 老师犹豫了一下，靠近了自己的学生，刚想说些什么
					PRINTFORMW %CALLNAME:TARGET%却飞快的用双手环抱住老师的腰，将脸埋在了老师的股间
					PRINTFORMW 将鼻子贴在老师的龟头处，隔着裤子嗅了嗅，一股浓郁的味道铺面而来
					PRINTFORMW %CALLNAME:TARGET%熟练地帮老师解开腰带，将内裤一捋而下，雄伟的阴茎从内裤中弹出，拍在了%CALLNAME:TARGET%光洁的脸上，浓郁的气味从龟头前端的包皮缝隙中钻入她的鼻腔
					CALL PRINT_STRW, @"「哇~_HH_ 没想到老师的肉棒这么大却是包皮阴茎」"
					PRINTFORMW %CALLNAME:TARGET%迫不及待的将裹着包皮的龟头迎入口中，用舌头钻入包皮中，开始舔舐龟头
					PRINTFORMW 接着慢慢地用舌頭把老师的包皮剥開、隐藏在冠状沟的%TEXTR("恥垢/污垢")%被舌尖%TEXTR("清理干净/舔的一干二净")%…
					PRINTFORMW 『%CALLNAME:TARGET%...那里..啊...你作为学生，怎么能...』
					PRINTFORMW %CALLNAME:TARGET%用纤细的手指温柔地爱抚挂在阴茎下可爱的玉袋、从肉棒的前端到中间的区域、再到根部都花了不少的时间进行充分地侍奉……
					PRINTFORMW 「老师，自己学生的小嘴舒服吗？和您的夫人比起来如何呢？」
					PRINTFORMW 看着将自己肉棒吞入了一半的%CALLNAME:TARGET%，正抬着头用水润的眼睛盯着自己的景象
					PRINTFORMW 诉说着自己正侵犯着自己学生的事实
					PRINTFORMW 一股强烈的背德感涌上心头，连身经百战的肉棒都变得敏感起来
					PRINTFORMW 『啊————%CALLNAME:TARGET%的嘴穴最舒服了，再，再深一点』
					PRINTFORMW %CALLNAME:TARGET%会意，将剩下的半截肉棒也吞进口中，用嘴唇吻上了阴茎根部，开始了前后摆动
					PRINTFORMW 很快，老师就忍不住抱住了%CALLNAME:TARGET%的头，把阴茎深深地插入喉咙，将身为教师的浓厚精液注入了学生的身体里
					PRINTFORMW %CALLNAME:TARGET%的喉咙不停滚动，无数精液流入了胃中，老师将沾满唾液的阴茎从学生嘴穴深处拔出，晶莹的丝线从%CALLNAME:TARGET%的小嘴一直延伸到龟头
					CALL PRINT_STRW, @"「啊~_HH_ 老师的精液好棒」"
					PRINTFORMW 接着，又有两个高年级的学生端着肉棒，一左一右的贴在了%CALLNAME:TARGET%的脸上，%CALLNAME:TARGET%立刻张开小嘴侍奉起来，舌头在两根肉棒上来回舔舐
					CALL PRINT_STRW, @"「%TEXTR("＿/啾、")%吸溜_HH_　%TEXTR("两个学长的都好大啊/啾……好棒")%_HH_」"
					CALL PRINT_STRW, @"「……能让%CNAME("一人称")%同时服务两根这么%TEXTR("大/硬")%的肉棒_HH_」"
					PRINTFORMW 「%TEXTR(@"真是神对%CNAME("一人称")%的恩赐呢/不平等地服务是不行的……")%
					PRINTFORMW 「%TEXTR("嗯……/呜嗯……/啾、吸溜……")%%TEXTR("啾……/PeroPero……/姆……/吸溜、啾呜……")%」
					PRINTFORMW 没过多久，两人就在%CALLNAME:TARGET%的脸上吐出了精液
					PRINTFORMW 紧接着是第四位，第五位
					PRINTFORMW %CALLNAME:TARGET%像是野兽般發出%TEXTR("吸溜、吸溜/褚嚕、褚嚕、褚嚕嚕")%的聲音、%TEXTR("貪婪/下流")%地%TEXTR("吮吸/渴求")%著每一根的%TEXTR("陰莖/〇棒/肉棒")%…
					PRINTFORMW 將男人的%TEXTR("陰莖/〇棒/肉棒")%%TEXTR("貪婪地吮吸著/用舌頭緊緊地纏繞、塗上大量唾液")%…
					PRINTFORMW
					CALL PRINT_STRW, @"「多谢款待~~%TEXTR("唔呣——/啾、")%_HH_」"
					PRINTFORMW 过来许久，%CALLNAME:TARGET%终于侍奉完最后一个学生，对着刚刚射完精液、一颤一颤的阴茎深深地一吻，完成了这次侍奉
					PRINTFORMW 你带着满脸精液的%CALLNAME:TARGET%来到水池边，仔细清洗后，离开了这里

					PRINTFORMW 回去的路上，你向%CALLNAME:TARGET%打听
					PRINTFORMW 「什么？会不会有事？」
					PRINTFORMW 「我施加了遗忘的祷告哦，大家很快就会忘记这件事的啦」
					PRINTFORMW 「不过祷告也不是万能的，在做同样的事也许就会想起来，要注意哦」
				ELSE
					PRINTFORMW 「开玩笑的吧，%CNAME("一人称")%可是女孩子哦，不可以随便进男生的厕所的」
					PRINTFORMW 「好了，一起回活动室吧？」
				ENDIF
			ELSE
				PRINTFORMW 真巧，%CNAME("二人称")%也来上厕所吗
			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"
	;添笔事件 廁所詮索(精液便所)
	ELSEIF ABL:露出癖 >= 10 && TALENT:恋慕 && CONFIG("路人Ｈ")&& COND("欲求不満")&& ABL:精液中毒 >= 10 && CEVENT("NTR允许",TARGET)
		IF SAVESTR:現在位置 == "公園"
			PRINTFORMW  %CALLNAME:TARGET%和%CALLNAME:MASTER%悄悄的耳语着。
			PRINTFORMW 「%CNAME("一人称")%刚刚偷偷地一个人去了公园的男厕所」
			PRINTFORMW 「结果呢」
			PRINTFORMW 「当然是被里面不认识的男人们狠狠地侵犯了嘴穴」
			PRINTFORMW 「浓厚的精液把%CNAME("一人称")%的肚子都填满了」
			PRINTFORMW 「看」
			PRINTFORMW  %CALLNAME:TARGET%张开嘴，能看到里面依旧残留着不少的精液
			PRINTFORMW 「现在还有不少在里面吧」
			PRINTFORMW 「能想象到%CNAME("一人称")%刚刚连口腔里都塞满了陌生男人的精液的淫荡的样子吗？」
			PRINTFORMW 「嘿嘿~  %CALLNAME:MASTER%嫉妒了吗」
			PRINTFORMW 「……但%CNAME("一人称")%真正爱着的、还是%CNAME("主人")%哦」
			PRINTFORMW 「啊……想接吻吗」
			PRINTFORMW 「不可以哦」
			PRINTFORMW 「在清理干净之前都不行呢」
		ELSE
			PRINTFORMW %CALLNAME:TARGET%和%CALLNAME:MASTER%悄悄的耳语着。
			PRINTFORMW 「其实刚刚说去厕所是骗大家的」
			PRINTFORMW 「%CNAME("一人称")%好想要精液，想要的不得了，所以偷偷地去了男厕所」
			PRINTFORMW 「里面有好多认识和不认识的同学」
			PRINTFORMW 「啊，还有老师也在呢」
			PRINTFORMW 「%CNAME("一人称")%就这样蹲在他们中间，被各种各样的肉棒围住」
			PRINTFORMW 「然后让他们轮流侵犯了%CNAME("一人称")%的嘴穴」
			PRINTFORMW 「把%CNAME("一人称")%的脸上、嘴里都用精液填的满满的」
			PRINTFORMW 「%CNAME("一人称")%是不是变成坏孩子了呢？」
			PRINTFORMW 「要对大家保密哦」
		ENDIF
	;事件结束
	;露出癖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 ABL:露出癖 >= 10 && TALENT:恋慕 && CONFIG("路人Ｈ")&& COND("欲求不満")&& ABL:精液中毒 >= 10 && CEVENT("NTR允许",TARGET)
			PRINTFORMW 由于部室附近只有这一个厕所的原因，所以通常使用的人也不少，也经常会有老师使用
			PRINTFORMW 很不巧的是，现在正好有老师在里面
			PRINTFORMW 周围男生一瞬间都注意到这个与环境格格不入的美丽女性
			PRINTFORMW 『%CALLNAME:TARGET%，怎么回事，你怎么会来男厕所，快出去！』
			PRINTFORMW 「老师，对，对不起」
			PRINTFORMW 嘴里说着道歉，但%CALLNAME:TARGET%还是自觉的走到厕所的中央，拎起裙摆缓缓蹲下，并将双腿以M型打开，向所有人毫无保留的展露着私处
			PRINTFORMW （%TEXTR("明明老师还在看着，却在做这么不知羞耻的事情/老师，请原谅我这个不知廉耻的学生吧")%………）
			PRINTFORMW %CALLNAME:TARGET%向你张开嘴，仿佛在邀请着肉棒的进入
			PRINTFORMW 你毫不犹豫的用阴茎贯穿了%CALLNAME:TARGET%的口腔
			PRINTFORMW 「%TEXTR("嗯唔/啾/啾噗")%……%TEXTR("咧捋、咧捋……/呵姆、啾…嗯……")%」
			PRINTFORMW 厕所里响起了下流的水声，周围的人目不转睛的盯着正为你侍奉的%CALLNAME:TARGET%，这富有冲击力的画面，让老师和学生们无可避免的勃起了。
			PRINTFORMW 很快，你在%CALLNAME:TARGET%的嘴里释放了欲望，%CALLNAME:TARGET%仿佛品尝美味般，将你的精液一滴不剩的喝了下去
			PRINTFORMW %CALLNAME:TARGET%环视了一圈厕所，对着下半身早已掌起帐篷的老师发出了邀请
			CALL PRINT_STRW, @"「老师~_HH_，对不起哦，都是%CNAME("一人称")%的错哦_HH_，%CNAME("一人称")%是个下流的学生呢」"
			PRINTFORMW 「所以，作为惩罚，请用您的大肉棒插进%CNAME("一人称")%的嘴里，狠狠责备%CNAME("一人称")%吧」
			PRINTFORMW %CALLNAME:TARGET%朝着老师张开了嘴，能看到粉嫩的舌头与口腔依旧还有你的精液在里面粘连着，显得格外色情
			PRINTFORMW 『...你..你这个...』
			PRINTFORMW 老师犹豫了一下，靠近了自己的学生，刚想说些什么，却开不出口
			PRINTFORMW 而%CALLNAME:TARGET%却飞快的用双手环抱住老师的腰，将脸埋在了老师已经勃起的股间
			PRINTFORMW 将鼻子贴在老师的龟头处，隔着裤子嗅了嗅，一股浓郁的味道铺面而来
			PRINTFORMW %CALLNAME:TARGET%熟练地帮老师解开腰带，将内裤一捋而下，雄伟的阴茎从内裤中弹出，拍在了%CALLNAME:TARGET%光洁的脸上，浓郁的气味从龟头前端的包皮缝隙中钻入她的鼻腔
			CALL PRINT_STRW, @"「嗅嗅_HH_~~啊~_HH_ 没想到老师的肉棒这么大却是包皮阴茎」"
			PRINTFORMW %CALLNAME:TARGET%迫不及待的将裹着包皮的龟头迎入口中，用舌头钻入包皮中，开始舔舐龟头
			PRINTFORMW 接着慢慢地用舌頭把老师的包皮剥開、隐藏在冠状沟的%TEXTR("恥垢/污垢")%被舌尖%TEXTR("清理干净/舔的一干二净")%…
			PRINTFORMW 『%CALLNAME:TARGET%...那里..啊...你作为学生，怎么能...』
			PRINTFORMW %CALLNAME:TARGET%用纤细的手指温柔地爱抚挂在阴茎下可爱的玉袋、从肉棒的前端到中间的区域、再到根部都花了不少的时间进行充分地侍奉……
			PRINTFORMW 「老师，自己学生的小嘴舒服吗？」
			PRINTFORMW 「和您的夫人比起来如何呢？」
			PRINTFORMW 看着将自己肉棒吞入了一半的%CALLNAME:TARGET%，正抬着头用水润的眼睛盯着自己的景象
			PRINTFORMW 诉说着自己正侵犯着自己学生的事实
			PRINTFORMW 一股强烈的背德感涌上心头，连自己身经百战的肉棒都变得敏感起来
			PRINTFORMW 『啊————%CALLNAME:TARGET%的嘴穴最舒服了，再，再深一点』
			PRINTFORMW %CALLNAME:TARGET%会意，将剩下的半截肉棒也吞进口中，用嘴唇吻上了阴茎根部，开始了前后摆动
			PRINTFORMW 很快，老师就忍不住抱住了%CALLNAME:TARGET%的头，把阴茎深深地插入喉咙，将身为教师的浓厚精液注入了学生的身体里
			PRINTFORMW %CALLNAME:TARGET%的喉咙不停滚动，无数精液流入了胃中，老师将沾满唾液的阴茎从学生嘴穴深处拔出，晶莹的丝线从%CALLNAME:TARGET%的小嘴一直延伸到龟头
			CALL PRINT_STRW, @"「啊~_HH_ 老师的精液好浓啊，玛丽很喜欢哦_HH_ 」"
			PRINTFORMW 接着，又有两个高年级的学生端着肉棒，一左一右的贴在了%CALLNAME:TARGET%的脸上，%CALLNAME:TARGET%立刻张开小嘴侍奉起来，舌头在两根肉棒上来回舔舐
			CALL PRINT_STRW, @"「%TEXTR("＿/啾、")%吸溜_HH_　%TEXTR("两个学长的都好大啊/啾……好棒")%_HH_」"
			CALL PRINT_STRW, @"「……能让%CNAME("一人称")%同时服务两根这么%TEXTR("大/硬")%的肉棒_HH_」"
			PRINTFORMW 「%TEXTR(@"真是神对%CNAME("一人称")%的恩赐呢/不平等地服务是不行的……")%」
			PRINTFORMW 「%TEXTR("嗯……/呜嗯……/啾、吸溜……")%%TEXTR("啾……/PeroPero……/姆……/吸溜、啾呜……")%」
			PRINTFORMW 没过多久，两人就在%CALLNAME:TARGET%的脸上吐出了精液
			PRINTFORMW 紧接着是第四位，第五位，第六.....
			PRINTFORMW %CALLNAME:TARGET%像是野兽般發出%TEXTR("吸溜、吸溜/褚嚕、褚嚕、褚嚕嚕")%的聲音、%TEXTR("貪婪/下流")%地%TEXTR("吮吸/渴求")%著每一根的%TEXTR("陰莖/〇棒/肉棒")%…
			PRINTFORMW 將男人们的%TEXTR("陰莖/〇棒/肉棒")%%TEXTR("貪婪地吮吸著/用舌頭緊緊地纏繞、塗上大量唾液")%…
			PRINTFORMW
			CALL PRINT_STRW, @"「多谢款待~~%TEXTR("唔呣——/啾、")%_HH_」"
			PRINTFORMW 过了许久，%CALLNAME:TARGET%终于侍奉完最后一个学生，对着刚刚射完精液、一颤一颤的阴茎深深地一吻，完成了这次侍奉
			PRINTFORMW 你带着满脸精液的%CALLNAME:TARGET%来到水池边，仔细清洗后，离开了这里
			PRINTFORMW
			PRINTFORMW 回去的路上，你向%CALLNAME:TARGET%打听
			PRINTFORMW 「什么？会不会有事？」
			PRINTFORMW 「没事的」
			PRINTFORMW 「我施加了遗忘的祷告哦，大家很快就会忘记这件事的啦」
			PRINTFORMW 「不过嘛」
			PRINTFORMW 「祷告也不是万能的，在做同样的事也许就会想起来，要注意哦」
		;事件结束
		ELSE
			IF RAND:3 == 0
			PRINTFORML %CALLNAME:MASTER%答应了%CALLNAME:TARGET%的邀请，成为了一起去男厕的同伴…
			ELSEIF RAND:2 == 0
				PRINTFORML %CALLNAME:MASTER%和%CALLNAME:TARGET%一起前往了男子厕所…
			ELSE
				PRINTFORML %CALLNAME:MASTER%拉着%CALLNAME:TARGET%的手进入了男厕…
			ENDIF
			IF COND("欲求不満", TARGET)
					PRINTFORML 「%TEXTR("没错/是的")%……%CNAME("一人称")%就是%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_」"
			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, "廁所同伴イベント使用後：玛丽"
		ENDIF

	ELSE
		PRINTFORMW 「%TEXTR(@"%CNAME("一人称")%进男厕所的话，是不是很奇怪呢……/还是不怎么习惯、去那边的厕所")%」
	ENDIF
;女子高生の陰湿なその場にいない子の陰口仲間落空了Talkは有ません！！
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("一人称")%の\@ CONDS("本来の性別", MASTER) == "男性" ? 弟 # 妹 \@である%CNAME("二人称")%に折り入ってお願いがあるのですが……」
									CALL PRINT_STR, @"「%TEXTR("振動棒じゃ全然満足出来ない悪い欧内酱の阴部を……お仕置き棒で检查阴部してみませんか？　一回だけでいいですから、ねっ？/振動棒で沢山練習してきたので……良かったら欧内酱の阴部の使い心地を检查阴部してくれませんか")%」_W"
								ELSE
									PRINTFORML 「将来的に%CNAME("一人称")%は%CNAME("二人称")%と姉\@ CONDS("本来の性別", 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:PLAY内容
;		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:PLAY内容
				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:PLAY内容
		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:PLAY内容
		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("partner")%%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("partner")%%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:PLAY内容
		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:PLAY要望
		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:PLAY要望 が本来したいPLAY。STR:PLAY内容 が你がやりたいと言って交渉中のPLAY
;ここの中で STR:PLAY内容 を変更する事で提案を蹴る事も出来る。什麼也不做場合は你の提案が通る
CASE "性欲解消の内容変更を頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "Ｖ性交"
		;今日は避孕套没有の生性交がＯＫな日
		IF COND("女性主導生性交")

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;性欲解消PLAY後の台詞
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:PLAY要望 == "口交"

		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: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

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
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 CONFIG("路人Ｈ") && TALENT:処女 == 0 && TALENT:淫乱 && CEVENT("ＮＴＲ：跟店员出轨了")
			PRINTFORMW 「啊，是店员桑」
			PRINTFORMW 在电影院碰到了熟人
			PRINTFORMW 店员似乎有些意外，但还是笑着朝玛丽和你打了个招呼
		ENDIF
	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%の顔は悲しみに曇った
	IF SAVESTR:约会 == "去电影院" && CONFIG("路人Ｈ") && TALENT:処女 == 0 && TALENT:淫乱 && CEVENT("ＮＴＲ：跟店员出轨了") && CEVENT("NTR允许",TARGET)
		PRINTFORMW 店员在另一边悄悄握住了玛丽的手
		PRINTFORMW 「嗯——」
		PRINTFORMW %CALLNAME:TARGET%瞪了店员一眼，却没有甩开他的手
		PRINTFORMW 得到了%CALLNAME:TARGET%的默许，店员的动作渐渐大胆起来，引导着%CALLNAME:TARGET%的手放在了自己的阴茎处
		PRINTFORMW %CALLNAME:TARGET%偷偷看了你一眼，看你并没有看向这里，便将手深入了店员的内裤中，握住了那根炙热的肉棒开始套弄起来
	ELSE
		PRINTFORMW 「%TEXTR("何でもありませんよ。ちょっと目にゴミが入ったみたいですね/何でもありません、大丈夫ですから。あの……ちょっとだけお化粧を直しに廁所に行ってきますね")%」
	ENDIF
CASE "专心看电影"
	;添笔事件：玛丽与店员在电影院中出轨
	IF SAVESTR:约会 == "去电影院" && CONFIG("路人Ｈ") && TALENT:処女 == 0 && TALENT:淫乱 && CEVENT("ＮＴＲ：跟店员出轨了") && CEVENT("NTR允许",TARGET)
		PRINTFORMW 眼看你没有任何动作
		PRINTFORMW 店员在一旁偷偷地将手探进了玛丽的裙子
		CALL PRINT_STRW, @"「嗯_HH_——」"
		PRINTFORMW %CALLNAME:TARGET%轻轻一颤，不仅没有拒绝，反而打开了双腿，让店员能更轻易的探入深处
		PRINTFORMW 与此同时，%CALLNAME:TARGET%的手也在店员的内裤中摩擦着，用手心包裹住龟头，旋转着将先走汁沾满掌心，再沿着杆部向下，来回摩擦起来
		PRINTFORMW
		PRINTFORMW 明明还在跟%CALLNAME:MASTER%约会，却在约会的途中瞒着%CALLNAME:MASTER%跟别的男人互相爱抚，这强烈的背德感伴随着下半身阵阵的快感让%CALLNAME:TARGET%很快便无可忍耐地高潮了
		PRINTFORMW 身体紧紧地贴在椅背上，隐藏着自己因高潮不断颤抖的身模样
		PRINTFORMW 一旁的店员在%CALLNAME:TARGET%耳边悄悄说了什么后离开了位置
		PRINTFORMW
		PRINTFORMW 「抱歉，%CNAME("主人")%，我稍微去趟厕所」
		PRINTFORMW %CALLNAME:TARGET%有些心虚的向你道歉，在你回应后，转身没入了黑暗之中

		CALL PRINT_SELECT, "观看简易事件/观看完整事件"
		IF RESULT == 0
			PRINTFORMW 男厕所的隔间中
			PRINTFORMW 早已迫不及待的%CALLNAME:TARGET%，正跨过店员腰间，将挺立的肉棒迎入小穴之中
			PRINTFORMW 愉悦的呻吟即便在厕所中回响着
		ELSE
			PRINTFORMW %CALLNAME:TARGET%来到了影厅的最后一排，这里已经几乎没有了灯光，以常人的视线看过来也只是一片漆黑
			PRINTFORMW 可%CALLNAME:TARGET%身为猎魔人敏锐的视觉不同， 能清楚地看到有两对情侣正在角落中做着这样那样的事情，而店员也坐在了不远处等待着她
			PRINTFORMW 「店员桑，久等了」
			PRINTFORMW %CALLNAME:TARGET%靠近了店员，跪坐在他的两腿之间，将脸埋入其中，隔着裤子喷吐着灼热的呼吸。
			CALL PRINT_STRW, @"「嗯——_HH_，这个气味，比%CNAME("主人")%的还要浓郁呢」"
			PRINTFORMW 熟练地帮店员解开腰带，脱下内裤，已经准备完全的阴茎就这样暴露在了空气之中
			CALL PRINT_STRW, @"「啾_HH_」"
			PRINTFORMW %CALLNAME:TARGET%对着龟头亲吻了一下
			PRINTFORMW 「拥有這麼出色的肉棒，店员桑还真是个不可思议的人呢」
			CALL PRINT_STRW, @"「%TEXTR("嗯……非常地_HH_　有侍奉的價值/一人称啊……會給你最出色的侍奉服務喲")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("嗯/嗯唔~")%……啾、咧捋、呼唔~_HH_」"
			PRINTFORMW %CALLNAME:TARGET%伸出粉色的舌头，开始从冠状沟到阴茎根部来回的舔舐，时不时还含住龟头，将舌尖伸进玲口中刺激着
			PRINTFORML 「%TEXTR("嗯、/呜、/Pero、Pero……")%%TEXTR("啾……/咧捋~……/呵姆~…/咧捋…/哈姆~……")%」
			PRINTFORMW 「怎么样，店员桑，%CALLNAME:TARGET%的舌头舒服吗」
			PRINTFORMW 「嗯？」
			PRINTFORMW 「想要整根吞下，做深喉口交是吗？」
			PRINTFORMW 「可以哦」
			PRINTFORMW 「啊————唔~~」
			PRINTFORMW 「%TEXTR("咧捋/咧捋、咧捋/咧捋、咧捋、咀噜")%……%TEXTR("咧捋、咧捋、咀噜/啾啵、啾、咧捋/嗯……咧捋、咧捋、")%%TEXTR("咧捋咧捋、咀噜噜/啾啵、咀噜、咧捋咧捋/咀噜噜……咧捋、咧捋、啾")%」
			CALL PRINT_STRW, @"「嗯~_HH_」_W"
			PRINTFORMW %CALLNAME:TARGET%将充分勃起的肉棒缓缓吞下，一直深入，直至龟头进入喉咙，双唇亲吻到阴茎根部为止。
			PRINTFORMW 接着，再慢慢拔出，然后大口吞下。
			PRINTFORML 「嗯、啾芙……啾噜、啾卜啾卜」
			CALL PRINT_STRW, @"「%TEXTR("啾~/嗯呜~")%_HH_　%TEXTR("吸溜……/嘶姆……")%」_L"
			PRINTFORMW 从店员的视角看，就是正值青春年少的美少女JK在自己的胯下，卖力的前后摆动着
			PRINTFORMW 而她的男友就在前方的不远处
			PRINTFORMW 「噗————哈~~」
			PRINTFORMW %CALLNAME:TARGET%将阴茎从自己口中拔出
			PRINTFORMW 大量的唾液混杂着先走汁，在粉嫩的嘴唇与肉棒间拉出几条晶莹的丝线
			PRINTFORMW 「唉？想接吻？」
			PRINTFORMW 「才做的口交哦，不介意吗」
			PRINTFORMW 「嘛，既然你这么说的话」
			PRINTFORMW 「嗯——」
			PRINTFORMW %CALLNAME:TARGET%站起身，将沾着唾液的湿润小嘴吻在了店员的唇上，兴奋的店员迫不及待的用舌头撬开%CALLNAME:TARGET%的嘴，在她口中肆意的索取着
			CALL PRINT_STRW, @"「嗯~啾——啾噜~嗯噗 _HH_　」"
			PRINTFORMW 两人互相交缠着，%CALLNAME:TARGET%也伸出舌头迎合着店员，两人的舌头在彼此口间缠绕，勾连，交换着双方的唾液...
			PRINTFORMW 许久后，两人的唇才慢慢分开，%CALLNAME:TARGET%面带绯红，双眼妩媚如丝地盯着面前的男人
			CALL PRINT_STRW, @"「啾噜~_HH_  店员桑的吻可真下流呢_HH_]"
			PRINTFORMW 「但是，%CALLNAME:TARGET%之前的工作还没有完成呢」
			PRINTFORMW %CALLNAME:TARGET%脱下上衣与胸罩，雪白的乳房上点缀着两点耀眼的嫣红，就这样暴露在店员的眼前
			PRINTFORMW 随后，%CALLNAME:TARGET%再次跪坐下，将肉棒迎入口中，更加卖力地继续侍奉起来
			PRINTFORMW 淫靡的水声逐渐在影院的最后一排响起，好在电影巨大的声响很好的遮盖了这一切
			PRINTFORMW 很快，即将到达极限的店员用双手轻轻抱住了%CALLNAME:TARGET%的头
			PRINTFORMW %CALLNAME:TARGET%立刻会意，将喉咙深处的阴茎吐出，只留龟头在嘴中，加大了吮吸力度，并用舌头不断进攻着玲口
			PRINTFORMW 『啊，%CALLNAME:TARGET%，要射了
			PRINTFORMW 「嗯————！！」
			PRINTFORMW 店员的阴茎猛地一颤，接着大量的精液从玲口喷吐而出，%CALLNAME:TARGET%的脸颊也被大量涌出的精液撑得鼓起来
			PRINTFORMW 可射精还未停止，不少精液甚至从%CALLNAME:TARGET%的鼻腔中溢了出来，顺着下巴流下，滴落在雪白的乳房上
			CALL PRINT_STRW, @"「咕噜~~嗯————_HH_]"
			PRINTFORMW %CALLNAME:TARGET%起身，将脸贴在了店员的面前，然后打开嘴，向店员展示着里面几乎溢满整个口腔的白浊精液
			PRINTFORMW 伴随着%CALLNAME:TARGET%舌头的摆动，浓稠的精液在%CALLNAME:TARGET%的嘴中四处粘连着，拉出一道又一道白色的丝线，数以亿计的精子在%CALLNAME:TARGET%的口腔中游淌着
			CALL PRINT_STRW, @"[那么，店员桑的精子，嗯_HH_」"
			PRINTFORMW 「我开动了」
			CALL PRINT_STRW, @"[唔呣 ー _HH_]"
			PRINTFORMW 「咕呣~」
			CALL PRINT_STRW, @"[咕~ _HH_]"
			PRINTFORMW 「嗯呜」
			PRINTFORMW 「哈————」
			PRINTFORMW %CALLNAME:TARGET%在店员的眼前一口一口地吞咽着
			PRINTFORMW 「多谢款待」
			PRINTFORMW 「但接下来才是本番哦」
			PRINTFORMW
			PRINTFORMW %CALLNAME:TARGET%褪下裙子与内裤，毫无遮蔽的健康肉体暴露在店员眼前，赤裸的身体在荧幕的光下，泛着迷人的色泽
			PRINTFORMW %CALLNAME:TARGET%跨坐在店员的腰间，伸手握住店员的肉棒对准自己小穴的入口
			PRINTFORMW 可早已忍耐不住的店员却抱住%CALLNAME:TARGET%的腰，猛地按下，巨大的阴茎一口气贯穿了%CALLNAME:TARGET%的小穴
			CALL PRINT_STRW, @"「咕咿~~_HH_！！——————这么突然的..._HH_~~！！」"
			PRINTFORMW 一瞬间的快感让%CALLNAME:TARGET%眼前一阵空白，下意识的抱紧了店员的身体，柔软的乳房在两个身体的贴合中从两侧挤出
			PRINTFORMW 随即，店员双手抓起%CALLNAME:TARGET%挺翘的臀部开始前后摆动着抽插起来，爱液混合着从两人的结合处不断散落
			PRINTFORMW 渐渐的%CALLNAME:TARGET%回过神来，开始主动地摆动起腰肢，小穴内部也像是触手般紧紧缠绕起肉棒
			CALL PRINT_STRW, @"「嗯……嗯_HH_　哈啊_HH_　店员桑，我的小穴舒服吗_HH_」_W"
			PRINTFORMW 「在电影院干别人的女朋友是不是很刺激呢」
			CALL PRINT_STRW, @"「嗯_HH_~~那里，就是那里」"
			PRINTFORMW 「舌头伸出来是想要接吻吗，可以哦，一边性交一边浓密的接吻，我也很喜欢呢」
			CALL PRINT_STRW, @"「%TEXTR("哈姆、啾/嗯、嗯/啾噗、哈啊/啾")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("嗯…啾_HH_　啾、啾咪/咀噜、啾唔…咀噜噜……_HH_　嗯、嗯嗯~")%_HH_」_W"
			PRINTFORMW %CALLNAME:TARGET%主动吻了上去，将舌头伸入店员口中，任其肆意品尝，同时腰部的动作也没有停止，一次又一次让肉棒插入小穴最深处
			CALL PRINT_STRW, @"「啾唔…咀噜…_HH_ 要去了，要被店员桑的肉棒搞到高潮了」"
			PRINTFORMW 似乎是即将高潮，%CALLNAME:TARGET%与店员的接吻变得更加下流，腰部摆动的幅度也愈加夸张
			PRINTFORMW 终于，%CALLNAME:TARGET%摆动着腰肢，让肉棒深深插入其中的同时，无可忍耐的到达了极限
			PRINTFORMW 像决堤一般、大量的淫液从结合处溢出、身体激烈地痉挛着、迎来了绝顶的瞬间。
			PRINTFORMW
			PRINTFORMW %CALLNAME:TARGET%的高潮足足持续了十几秒，直到瘫软地趴在了男人身上，可店员还未满足
			PRINTFORMW 「哎？想要这种姿势吗，好吧」
			PRINTFORMW %CALLNAME:TARGET%转过身，面朝着电影幕布的方向，双手撑在了前一排座位的椅背上，屁股朝后撅起
			PRINTFORMW 「这个姿势的话，要是有人回头的话，岂不是要被看光了...」
			PRINTFORMW 由于电影院前低后高的设计，这样的姿势对现在%CALLNAME:TARGET%来说，等同于完全的暴露着，任何一个人如果回头，都将能无遮挡的欣赏到%CALLNAME:TARGET%挺立的双峰与赤裸的酮体
			PRINTFORMW 这强烈的开放感不断地刺激着%CALLNAME:TARGET%的神经，刚刚高潮过得小穴又再一次渗出的淫液，店员也伸出手开始揉弄器%CALLNAME:TARGET%圆润的屁股
			PRINTFORMW
			PRINTFORMW （啊——是%CNAME("主人")%)
			PRINTFORMW %CALLNAME:TARGET%在人群当中锁定到你的背影，想到今天的约会，一时间心底泛起了淡淡的歉意
			PRINTFORMW 可就在此时，店员将肉棒抵在了%CALLNAME:TARGET%的小穴入口，缓缓插入，从下体传来的快感也渐渐侵蚀了%CALLNAME:TARGET%的理智
			CALL PRINT_STRW, @"（明明是和%CNAME("主人")%的约会，我却在这里享用别的男人的肉棒什么的， 呣~_HH_,再深一点)"
			PRINTFORMW 在龟头亲吻在子宫口的同时，巨大的快感吞没了%CALLNAME:TARGET%。强烈的背德感让%CALLNAME:TARGET%一瞬间达到了一个小小的高潮
			CALL PRINT_STRW, @"「唔———— 喔~~！！_HH_  嗯呜———_HH_ ,好舒服_HH_」"
			CALL PRINT_STRW, @"「对不起，%CNAME("主人")%，~咕呣~_HH_」"
			PRINTFORMW %CALLNAME:TARGET%嘴中说着道歉的话，身体却主动配合着身后的肉棒摇摆迎合起来
			PRINTFORMW
			PRINTFORMW 旁边的两对正在亲热的情侣似乎也注意到了这边
			PRINTFORMW %CALLNAME:TARGET%大胆的行为，激起了他们的胜负心，纷纷换成了露出度更高的姿势，更加卖力的做了起来
			PRINTFORMW 一时间，影院的后排仿佛是开起了淫趴
			;(开淫趴不喊我是吧)
			PRINTFORMW
			CALL PRINT_STRW, @"「%TEXTR("啊、不行、好棒……/哈啊、啊、嗯……")%%TEXTR("从后面做/后背位做爱")%%TEXTR("最喜欢了/好棒、要兴奋起来了")%_HH_」_L"
			PRINTFORMW 店员似乎也发现了前面不远处坐着的你，一时间一股强烈的征服欲涌了上来
			PRINTFORMW 他将阴茎全部拔出，再以比刚才还要强烈的气势，一口气将肉棒插进最深处
			CALL PRINT_STRW, @"「啊_HH_　咕咿、咿啊　不行、不行了_HH_　顶、顶到最深处了……哼~… 喔_HH_」_L"
			PRINTFORMW 影院巨大的声响也没能将%CALLNAME:TARGET%的悲鸣盖住
			PRINTFORMW 一时间，前面有几人向着后方回身看去
			PRINTFORMW %CALLNAME:TARGET%连忙捂住嘴，可身后的店员却毫不在意众人的视线，摆动起腰部，啪啪啪地撞击着%CALLNAME:TARGET%地臀肉
			PRINTFORMW %CALLNAME:TARGET%一边承受着店员的进攻，一边捂着嘴，忍耐着尽量不让自己发出声音
			PRINTFORMW 可店员似乎不满足于此，他从背后将%CALLNAME:TARGET%的双手抓起，像是缰绳一般拉着
			PRINTFORM %CALLNAME:TARGET%
			;超乳
			IF TALENT:巨乳 == 3
				PRINTFORM %TEXTR("两只手一起都无法包裹住的/像巨大棉花糖一样的")%
			ELSE
				PRINTFORM %TEXTR("大号的/无比柔软的/充满肉感的")%
			ENDIF
			PRINTFORM %TEXTR("奶子/乳房/胸部")%也随着撞击任意的晃荡着
			PRINTFORMW 再无任何遮掩的%CALLNAME:TARGET%，呻吟也激烈起来
			PRINTFORMW 最后在多位观众的注视下与店员的射精中
			PRINTFORMW %CALLNAME:TARGET%迎来了无与伦比的超强绝顶
			PRINTFORMW 雪白的娇躯在%TEXTR("店员的身下子/众多观众的目光下")%剧烈的不断痉挛着
			PRINTFORMW 嘴中发出雌畜般下流的声音、同时大量的精液正不断从两人结合的地方流下
			PRINTFORMW 店员将%CALLNAME:TARGET%抱住、坐回了位置
			PRINTFORMW 玛丽显然还停留在高潮的韵味当中、不时的抽搐着
			PRINTFORMW
			PRINTFORMW 几分钟后，玛丽回到了座位牵住了你的手
			PRINTFORMW 可是似乎她的注意力却很难再集中在电影上了
		ENDIF
	ENDIF

CASE "便当"
	PRINTFORML 「%TEXTR(@"今天的便当好吃吗？/这可是为了%CNAME("二人称")%努力做出来的，好吃吗？/可以的话……能告诉我吃这份便当的感想吗?")%」
	PRINTFORMW 「%TEXTR(@"两人吃同一份便当……稍微有点心跳加快的感觉/皆桑と食べるご飯も美味しいですけど二人っきりで食べるのは特別な感じがして、%CNAME("一人称")%は好きですよ")%」
;添笔事件：孤儿院孩子们的性启蒙教程
CASE "教会午餐"
	IF CEVENT("玛丽与教会孩子们的再会1") == 0
		PRINTFORMW 突然间%CALLNAME:MASTER%的肚子%TEXTR("发出了野兽般的吼声/咕～咕噜～地响了起来/发出了代表饥饿的声响")%、
		PRINTFORMW 米娜%TEXTR("露出了笑容/温柔地微笑着/笑着靠过身来")%
		PRINTFORMW 『哥哥是饿了吧，嗯、算起来也快到午餐时间了』
		PRINTFORMW 『%CALLNAME:TARGET%姐姐还没有回来，就让米娜带你去食堂吧』
		PRINTFORMW 米娜自然的牵起你的手，带着你前往了食堂
		PRINTFORMW 路上碰到了%CALLNAME:TARGET%
		PRINTFORMW 「阿拉？才一会不见，米娜跟%CNAME("主人")%的关系就这么好了吗?」
		PRINTFORMW 米娜像是触电般松开手
		PRINTFORMW 『%CALLNAME:TARGET%姐姐，不是的……我不是……』
		PRINTFORMW 「小米娜太敏感了哦，再怎么说姐姐也不会吃妹妹的醋啦」
		PRINTFORMW 「好啦，三人一起手牵手去食堂吧」
		PRINTFORMW 『嗯！』
		PRINTFORMW 米娜开心的点头，随后一左一右的牵着你与%CALLNAME:TARGET%的手再次启程
		PRINTFORMW
		PRINTFORMW ——————————————————————————————————
		PRINTFORMW 饭后
		PRINTFORMW
		PRINTFORMW 吃完饭后，孩子们三三两两的打着招呼离开了
		PRINTFORMW 米娜也开始打起了瞌睡，小小的头一沉一沉的
		PRINTFORMW 迷迷糊糊地靠在了你身上
		PRINTFORMW 「米娜的睡颜，很可爱是吧，%CNAME("主人")%？」
		PRINTFORMW %CALLNAME:TARGET%伸出手指调皮的戳了戳米娜的脸颊
		PRINTFORMW 米娜嘟囔着，下意识伸出胳膊环抱住你的脖子，换了个姿势，又睡着了
		PRINTFORMW 「....」
		PRINTFORMW 「真是的，这下我是真的有点嫉妒了」
		PRINTFORMW 「话说回来，%CNAME("主人")%想要午休吗，让我带您去客房休息吧」
		PRINTFORMW 「啊，你问米娜怎么办是吧」
		PRINTFORMW 「没关系的，您带她一起去吧，我看她好像很喜欢%CNAME("主人")%呢」
		PRINTFORMW 在%CALLNAME:TARGET%的带领下，来到三楼的一处客房中
		PRINTFORMW 客房朝南，午后的阳光透过窗户洒在木质的地板上
		PRINTFORMW 将熟睡的米娜轻轻放在了床上，困意也逐渐袭来
		PRINTFORMW 「%CNAME("主人")%就请在这边休息吧，我去看看其他孩子们有没有好好的在睡觉了」
		PRINTFORMW 「那么请允许我告辞...」
		PRINTFORMW %CALLNAME:TARGET%悄悄退出了房间，将房门关上
		PRINTFORMW 你也闭上了眼睛，睡在了米娜的旁边
		PRINTFORMW 似乎是感受到了你的存在，米娜在睡梦中将你抱住了
		PRINTFORMW
		CALL SET_CEVENT,"玛丽与教会孩子们的再会1"
	ELSE
		PRINTFORMW 惯例，在孤儿院的食堂，跟%CALLNAME:TARGET%还有孩子们一起享用了午餐
		PRINTFORMW 饭后，则在%CALLNAME:TARGET%的带领下，抱着昏昏欲睡的米娜来到了客房中
		PRINTFORMW
		CALL PRINT_STRL, @"「%TEXTR("啾/啾咪")%_HH_」"
		PRINTFORMW %CALLNAME:TARGET%在你的唇上轻轻一啄
		PRINTFORMW 「看到这么温柔的%CNAME("主人")%，情不自禁就...」
		PRINTFORMW 「啊！%CNAME("主人")%————」
		CALL PRINT_STRW, @"「%TEXTR("哈姆、啾/嗯、嗯/啾噗、哈啊/啾")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("嗯…啾_HH_　啾、啾咪/咀噜、啾唔…咀噜噜……_HH_　嗯、嗯嗯~")%_HH_」_W"
		PRINTFORMW 感受到即将探入内裤中的手，%CALLNAME:TARGET%却悄悄地退开一步
		PRINTFORMW 「真是的，%CNAME("主人")%太性急了」
		PRINTFORMW 「这种事情还是等到回去再做，好吗」
		PRINTFORMW 「我去看看其他孩子们怎么样了，%CNAME("主人")%就跟米娜一起休息吧」
		PRINTFORMW 「啊————还有，」
		PRINTFORMW 来到门口的玛丽似乎是想到了什么，回过头来
		PRINTFORMW 「即使忍耐不住也不可以对孤儿院的女孩子们出手哦(微笑)」
	ENDIF
	DRAWLINE
	$INPUT_LOOP_JIAOTANGSEX
	IF CEVENT("性启蒙教程1") == 0 && CONFIG("路人Ｈ") && TALENT:淫乱 && CEVENT("NTR允许",TARGET)
		PRINTFORMW 另一边
		PRINTFORMW
		PRINTFORMW %CALLNAME:TARGET%推开了寝室的门，男孩们正慌乱着将什么东西藏起来
		PRINTFORMW 「你们不睡觉，在做什么呢」
		PRINTFORMW 『没，没什么，%CALLNAME:TARGET%姐，我们马上就睡』
		PRINTFORMW 『啊，对对对』
		PRINTFORMW 男孩们好像很害怕
		PRINTFORMW 「让我康康！」
		PRINTFORMW 『啊，不要啦，%CALLNAME:TARGET%姐，不要』
		PRINTFORMW 男孩们挣扎着躲藏，可瘦小的他们那里是驱魔人%CALLNAME:TARGET%的对手
		PRINTFORMW 很快，藏得东西便被%CALLNAME:TARGET%拿走，%CALLNAME:TARGET%像是胜利者一般高举着战利品，蓝色的眸子扫过男孩们
		PRINTFORMW 每个被看到的男孩都红着脸转过头去
		PRINTFORMW 『你们怎么都这个反应？让我看看这是什么』
		PRINTFORMW %CALLNAME:TARGET%拿下战利品看了过去，
		PRINTFORMW 那是一本色情杂志，封面上一个金发碧眼的模特正浑身赤裸的摆着下流的POSE
		PRINTFORMW 一瞬间%CALLNAME:TARGET%的脸便羞的通红，接着翻到第二页
		PRINTFORMW 《疑似教会成员下海拍片》，附图为一个脸部打了马赛克的影片截图...
		PRINTFORMW 【啪】的一声，杂志便被捏成了团
		PRINTFORMW 『你们看了多少？』
		PRINTFORMW 『没，还没...』
		PRINTFORMW 『看到说%CALLNAME:TARGET%姐拍A....唔...』
		PRINTFORMW 其中一个才说到一半，便被其他孩子争先恐后的捂住嘴
		PRINTFORMW %CALLNAME:TARGET%的脸瞬间一片漆黑
		PRINTFORMW
		PRINTFORMW 5分钟后
		PRINTFORMW 冷静下来的%CALLNAME:TARGET%以复杂的眼神看着这群被自己揍得不轻的男孩们
		PRINTFORMW 「抱歉，弄坏了你们的杂志」
		PRINTFORMW 「你们为了搞到这个应该花了不少代价吧」
		PRINTFORMW 『没，没事的』
		PRINTFORMW 『大家也就攒了一个月的....唔！？....』
		PRINTFORMW 「还请大家保密，千万别告诉神父大人」
		PRINTFORMW 『也就是说，杂志上的...』
		PRINTFORMW 「嗯，是我」
		PRINTFORMW 『啊…………』
		PRINTFORMW 寝室响起了男孩们的哀叹声
		PRINTFORMW 『我..我还想长大后和%CALLNAME:TARGET%姐结婚的呢....呜呜呜』
		PRINTFORMW 『%CALLNAME:TARGET%姐，啊——————』
		PRINTFORMW 「啊，真是的，你们不要哭啊」
		PRINTFORMW 「别哭别哭，女孩子本来长大了就会嫁人的呀，啊，怎么哭的更厉害了。」
		PRINTFORMW 「姐姐什么都会做的，拜托大家别哭了好吗」
		PRINTFORMW 『什么都会做？』
		PRINTFORMW 「嗯，什么都会做。」
		PRINTFORMW 『那，结婚可以吗』
		PRINTFORMW 「这个不行」
		PRINTFORMW 『啊啊啊啊啊——————呜呜呜！！』
		PRINTFORMW 『那，那做杂志上的那种事情可以吗？』
		PRINTFORMW 一瞬间，所有孩子都停止了哭泣，看向了%CALLNAME:TARGET%
		PRINTFORMW 「不…………好，好吧」
		PRINTFORMW %CALLNAME:TARGET%看着孩子们的反应，不得已答应了
		PRINTFORMW 『就当是你们给我保密的回礼』
		PRINTFORMW
		PRINTFORMW 在孩子们的注视下，%CALLNAME:TARGET%开始一件一件褪下衣服
		PRINTFORMW 修道服，连裤袜，内衣，内裤，直到衣物全部脱下，赤裸的娇躯暴露在所有孩子的眼中
		PRINTFORMW (主啊，请原谅我吧...)
		PRINTFORMW 「你们也要脱哦，不然可没办法做下去呢」
		PRINTFORMW 男孩们这才回过神来，三下五除二地将衣服脱了精光
		PRINTFORMW 七八个孩子挺立着小鸡鸡围在了%CALLNAME:TARGET%的身边
		PRINTFORMW 『%CALLNAME:TARGET%姐，接下来要做什么？』
		PRINTFORMW 为首的男孩问到
		PRINTFORMW 「嗯，首先的话，先拥抱怎么样？浑身赤裸的大人般的拥抱。」
		PRINTFORMW 「想做一下吗」
		PRINTFORMW %CALLNAME:TARGET%向着男孩张开了白皙的双臂，将他缓缓地抱在怀中
		PRINTFORMW 『%CALLNAME:TARGET%姐的身体、好暖和，还有一股好闻的味道』
		PRINTFORMW 『KISS可以做吗』
		PRINTFORMW 不等%CALLNAME:TARGET%回应，男孩就笨拙的亲了上去，磕磕绊绊的将嘴唇贴在一起
		PRINTFORMW 「太心急了哦，接吻可不是这么做的」
		PRINTFORMW %CALLNAME:TARGET%将男孩的头轻轻推开
		PRINTFORMW 「嘴巴张开，把舌头伸出来，对，就是这样」
		PRINTFORMW 「接下来就由姐姐来教你大人的亲吻，但可不许对教会的其他女孩子这样做哦」
		PRINTFORMW 「啊————」
		CALL PRINT_STRW, @"「嗯~啾——啾噜~嗯噗 _HH_　」"
		PRINTFORMW 两人的舌头开始激烈的纠缠起来，发出猥亵般的声响，成熟与稚嫩的身体交叠在一起的光景，对周围的其他孩子们的心灵造成了巨大的冲击
		PRINTFORMW 『%CALLNAME:TARGET%姐姐，我，我也想要...』
		PRINTFORMW 「啾噜~啾——啊，可以哦」
		PRINTFORMW %CALLNAME:TARGET%将面前已经亲的有些晕乎乎的男孩放开，将另一个迎进怀中，开始浓密的接吻
		PRINTFORML 『%TEXTR("嗯/哈姆/呼")%……』
		CALL PRINT_STRW, @"「%TEXTR("哈姆、啾/嗯、嗯/啾噗、哈啊/啾")%_HH_」"
		PRINTFORMW 渐渐的孩子们的动作也大胆起来，几双手开始攀附在了%CALLNAME:TARGET%的身上，抚摸、揉弄起来
		CALL PRINT_STRW, @"「啊_HH_，那边——」"
		PRINTFORMW 有的手不经意间划过%CALLNAME:TARGET%的阴蒂或是乳头，总是会引的%CALLNAME:TARGET%不由得一声娇哼，紧接着得到信号的男孩们开始更加激烈的爱抚
		PRINTFORMW ....
		PRINTFORMW ..
		PRINTFORMW 许久后，%CALLNAME:TARGET%双眼迷离的结束了与最后一个孩子接吻，赤裸的身体泛着红晕，不时地抽动一下
		PRINTFORMW 「这下，大家每个人都做过了呢，再继续下去的话，可就不妙了呢，大家要好好的把自己的第一次留给喜欢的人哦」
		PRINTFORMW 「啊，大家不要沮丧，不然下次可不会再跟你们做了哦」
		PRINTFORMW 『下次！？』
		PRINTFORMW 男孩们瞬间眼睛亮了起来
		PRINTFORMW 『%CALLNAME:TARGET%姐，下次还可以跟你做这种事吗』
		PRINTFORMW 「对哦，只要大家帮姐姐守好秘密的话，这就当成我们直接的秘密约定哦」
		PRINTFORMW 『太好了！』
		PRINTFORMW 『%CALLNAME:TARGET%姐万岁！』
		PRINTFORMW 随后，%CALLNAME:TARGET%在男孩们的殷勤侍奉下穿好衣服，离开了寝室。
		;CALL SET_CEVENT,"玛丽与教会孩子们的再会1"
		CALL SET_CEVENT,"性启蒙教程1"
	ELSEIF CEVENT("性启蒙教程1") == 1 && CEVENT("性启蒙教程2") == 0 && CONFIG("路人Ｈ") && TALENT:淫乱 && CEVENT("NTR允许",TARGET)
		PRINTFORMW 此时，男孩们的宿舍中
		PRINTFORMW 「你们怎么回事，说好的保密呢？男孩子也就算了，为什么还有女生在这里啊？」
		PRINTFORMW %CALLNAME:TARGET%正拎着一个男孩严厉的质问着
		PRINTFORMW 『抱歉，%CALLNAME:TARGET%姐，这个孩子说什么也想和%CALLNAME:TARGET%姐搞好关系什么的，吃完饭之后就赖在这边』
		PRINTFORMW 『我们也想了很多办法，但是孤儿院的大家都是家人，我们也不能强行...』
		PRINTFORMW 「所以你们就把她留在这？」
		PRINTFORMW 男生们都不由得低下了头
		PRINTFORMW 『我，我也想要和%CALLNAME:TARGET%姐姐搞好关系』
		PRINTFORMW 女孩从背后拉了拉%CALLNAME:TARGET%的衣角，用着水灵的眼神望着%CALLNAME:TARGET%，怯生生的说到
		PRINTFORMW 『因为是女孩子，所以不行吗』
		PRINTFORMW 「不是不行啦，只是一般情况下，都是男生跟女生一起才是正常的关系，你也知道的吧」
		PRINTFORMW 『嗯，我是知道的，但是我每次看到您还是忍不住心跳加速，想让您多看看我，抱抱我』
		PRINTFORMW 『还有亲吻我，所以，%CALLNAME:TARGET%姐姐，能把对男生们做的事情，也对我做一次吗』
		PRINTFORMW 『啊，如果您不愿意的话，也没关系的，这只是我自己...』
		PRINTFORMW 「唔————啾」
		PRINTFORMW 「初吻，收下了哦」
		PRINTFORMW 『姐姐，再来一次』
		PRINTFORMW (啊....我竟然真的和姐姐接吻了...好幸福...)
		PRINTFORMW 许久，两人分开
		PRINTFORMW 「男生们也过来吧，刚才错怪你们了」
		PRINTFORMW 『不，这是我们自己的错.....唔——』
		PRINTFORMW %CALLNAME:TARGET%用嘴堵住了男生接下来的话，随后，衣物被一件一件脱掉，%CALLNAME:TARGET%毫无遮挡的诱人身体被男孩们青雉的身影覆盖了
		PRINTFORMW 只有唾液交换引起的淫靡水声与娇哼，在小小的寝室中不断回响着....
		PRINTFORMW 旁边，女孩还在目不转睛地看着
		PRINTFORMW
		PRINTFORMW 如同上次一样，%CALLNAME:TARGET%结束了与大家的接吻侍奉，准备离开，可这一次男孩们却好像并没有满足的样子
		PRINTFORMW 「阿拉，大家今天是怎么了，一副不甘心的样子。奖励时间已经结束了哦」
		PRINTFORMW 『%CALLNAME:TARGET%姐，自从上次之后，这些天大家忍耐的都很辛苦，但是...』
		PRINTFORMW 「但是？」
		PRINTFORMW 『但是不管大家自己做多少次都无法冷静下来』
		;现实里可别这么做哦，会被打的
		PRINTFORMW 『拜托了，%CALLNAME:TARGET%姐，请帮帮我们』
		PRINTFORMW 男生们都向着%CALLNAME:TARGET%鞠躬
		PRINTFORMW 「大家都是诚实的孩子呢，但是很抱歉，插入什么的还是不可以的」
		PRINTFORMW 「如果你们能遵守这个约定的话，姐姐会来教给你们除了做爱以外的其他愉悦的方式哦」
		PRINTFORMW %CALLNAME:TARGET%不知从哪里取出了一瓶润滑液，打开瓶口，将其倾倒在了自己的胸口，接着用双手揉弄着涂抹至全身
		PRINTFORMW 「好了，准备工作这就完成了，让谁来做第一个呢，就你吧」
		PRINTFORMW %CALLNAME:TARGET%将面前的男孩拉了过来，并将男孩从背后抱住，用两片柔软的乳房枕住了男孩的头
		PRINTFORMW 两只沾满润滑液的手慢慢的握住了男孩还未成熟的阴茎，先是上下摩擦着，让润滑液充分覆盖
		PRINTFORMW 接着从龟头部分握紧向下轻轻一撸，男孩的龟头便第一次的挣脱了束缚，出现在了世界上
		PRINTFORMW 可%CALLNAME:TARGET%的动作还未停止，用空余的手掌包裹住了男孩的龟头，开始转着圈的摩擦起来
		PRINTFORMW 未经人事的男孩那里受得了这种刺激，只是一瞬间，射精感便涌了上来
		PRINTFORMW 『%CALLNAME:TARGET%姐，有什么，有什么要出来了！』
		PRINTFORMW 「是精液哦，是能让女孩子怀上你的宝宝的精子哦，来吧，在姐姐的手里‘biubiubiu’的全部射出来吧」
		PRINTFORMW 随着男孩的一阵颤抖，正太的精液在%CALLNAME:TARGET%的手中喷发了
		PRINTFORMW 「哦呀？是健康的肉棒君呢，射出来真不少呢，第一次在姐姐手里射出来的，可不能浪费了」
		PRINTFORMW %CALLNAME:TARGET%用手捧起精液，倒入了自己嘴中，咀嚼着吞下
		PRINTFORMW 「味道也很不错。还有其他的大家呢，也快点过来吧。」
		PRINTFORMW 听到%CALLNAME:TARGET%的话，其他男孩们也向着%CALLNAME:TARGET%围拢起来
		PRINTFORMW %CALLNAME:TARGET%仰躺在地上，让第一个男孩坐在身上，并将肉棒插进满是润滑液的双峰之中
		PRINTFORMW 又用双手同时服务着两根肉棒，最后还用嘴迎接着一根肉棒
		PRINTFORMW 其余的男孩则挺着阴茎在%CALLNAME:TARGET%其他的部位摩擦着
		PRINTFORMW 很快，便有第一位男孩抵不住%CALLNAME:TARGET%手上的攻击，射了出来，精液划过一道弧线，落在了远处的地板上
		PRINTFORMW 「啊————，精液、、好浪费，明明是第一次应该好好射到姐姐嘴里才对」
		; PRINTFORMW 听到这话，旁边许久未动的小女孩突然跑到精液前，似乎是。。
		; PRINTFORMW 不可以哦，地上的已经脏了呢，
		; PRINTFORMW 小女孩似懂非懂的点点头
		PRINTFORMW 『啊，%CALLNAME:TARGET%姐，我也要出来了』
		PRINTFORMW 另一位在%CALLNAME:TARGET%手中的男孩似乎也要射了
		PRINTFORMW 这时，女孩突然跑到了%CALLNAME:TARGET%身旁，在即将射精的阴茎前张开了小嘴
		PRINTFORMW 发现这点的男生急忙想调整方向，可女孩却先前一步含住了男孩的龟头
		PRINTFORMW 突然的刺激，让男生不住地爆发了，积攒了多天的浓郁精液涌入了女孩的嘴中
		PRINTFORMW 直到射精结束，女孩才将龟头吐出，带着溢满口腔的精液来到玛丽面前
		PRINTFORMW 男孩识相的将阴茎从玛丽的嘴中拔了出来
		PRINTFORMW 「这是给我的？谢谢？」
		PRINTFORMW 玛丽张开了嘴，女孩便吻了上去，将口中带着体温的精液渡了过去
		CALL PRINT_STRW, @"「%TEXTR("哈姆、啾/嗯、嗯/啾噗、哈啊/啾")%_HH_」"
		CALL PRINT_STRW, @"「舌头伸出来~_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("嗯…啾_HH_　啾、啾咪/咀噜、啾唔…咀噜噜……_HH_　嗯、嗯嗯~")%_HH_」_W"
		PRINTFORMW 两人的舌头在精液中纠缠在了一起，浓厚的白灼在两人口中来回交换着
		PRINTFORMW 不时有精液从嘴边遗落下来，最后仰起头，咀嚼着将精液吞了下去
		PRINTFORMW 「第一次吃到精液的味道如何」
		PRINTFORMW 『一点也不好喝』
		PRINTFORMW 『但是如果能和姐姐接吻的话，感觉也不坏』
		PRINTFORMW
		PRINTFORMW 很快，%CALLNAME:TARGET%又开始了侍奉
		PRINTFORMW 男孩们也不在是被动的接受，而是主动地挺起肉棒，在%CALLNAME:TARGET%身上各处摩擦
		PRINTFORMW 水声，摩擦声，低吟声 不断在房间里回响，小小的寝室中弥漫起淫乱的氛围
		PRINTFORMW
		PRINTFORMW 十几分钟后
		PRINTFORMW %CALLNAME:TARGET%正与之前的女孩紧密的抱在一起接吻着
		PRINTFORMW 一个成熟，一个青雉 两个粉嫩的赤裸躯体紧紧贴在一起
		PRINTFORMW 身上的润滑液与精液混杂着，在日光下反着白色的银光
		PRINTFORMW 随着呼吸，身体不时也会微微分开，在肌肤间拉出无数的白色丝线，然后以更紧密的姿势贴合到一起
		PRINTFORMW 男孩们则围在一旁，向着这对展现出淫靡姿态的姐妹，浇灌上最后的种子

		CALL SET_CEVENT,"性启蒙教程2"
	ELSEIF CEVENT("性启蒙教程1") == 1 && CEVENT("性启蒙教程2") == 1 && CONFIG("路人Ｈ") && TALENT:淫乱 && CEVENT("NTR允许",TARGET)
		PRINTFORML 是否再次观赏事件
		CALL PRINT_SELECT, "观赏事件1：与孤儿院孩子们的浓密接吻/观赏事件2：与孤儿院孩子们的口交侍奉/观看简易事件/跳过"
		IF RESULT == 0
			CALL DEL_CEVENT, "性启蒙教程1"
			GOTO INPUT_LOOP_JIAOTANGSEX
		ELSEIF RESULT == 1
			CALL DEL_CEVENT, "性启蒙教程2"
			GOTO INPUT_LOOP_JIAOTANGSEX
		ELSEIF RESULT == 2
			PRINTFORMW 另一边
			PRINTFORMW 孤儿院的寝室中
			PRINTFORMW %CALLNAME:TARGET%在孩子们热切的目光中，一件件的褪下了衣物
			PRINTFORMW 随后，%TEXTR("将男孩们拥入怀中，伸出舌头亲密的接吻起来/在寝室中间蹲下，开始侍奉起孩子们稚嫩的肉棒")%
		ELSE

		ENDIF
	ENDIF

	PRINTFORMW ——————————————————————————————————————————
	PRINTFORMW 教会午餐
;泳装を買いに行った時です
CASE "特别忏悔室"
	CALL SPECIAL_CONFESS()
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	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 "Micro比基尼", "淚珠泳衣"
			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(@"只是被凝视就觉得淫纹很疼……居然会有这样H的心情。如果%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 "Micro比基尼", "淚珠泳衣"
				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 CONFIG("路人Ｈ") && TALENT:処女 == 0 && TALENT:淫乱 && CEVENT("ＮＴＲ：跟店员出轨了") && CEVENT("NTR允许",TARGET)
			PRINTFORMW 「真的不去吗」
			PRINTFORMW 「啊啦~ 难不成%CNAME("主人")%是察觉到了吗」
			PRINTFORMW 「之前在电影院的时候我跟店员桑偷偷去做爱的事」
			PRINTFORMW 「不止如此哦」
			PRINTFORMW %CALLNAME:TARGET%贴在你的旁边、灼热的呼吸喷吐在耳朵上
			PRINTFORMW 「在我没离开、还坐在%CNAME("主人")%身边的时候、已经在帮店员悄悄的手交了」
			PRINTFORMW 「手划过肉棒、咕啾咕啾的、特别的下流」
			PRINTFORMW 「不过%CNAME("主人")%可没有听到呢」
			PRINTFORMW 「所以今天不去情人旅馆也没关系的」
			PRINTFORMW 「毕竟%CNAME("主人")%的那部分、已经由店员桑好好的补足了呢」
		ELSEIF 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: ERB/EVENT_K/23 マリー/EVENT_K23_DAILY.ERB