code:
;-------------------------------------------------
;日常イベントでの用途別の汎用地の文置き場
;-------------------------------------------------
@DAILY_MESSAGE, ARGS
#DIM MEMO_LINECOUNT

SELECTCASE ARGS
CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"

	;雨に降られた
	IF STRCOUNT(SAVESTR:現在位置, "阵雨")
		PRINTFORML %TEXTR("天気予報好像预测错了/突然间/明明刚才还是大晴天/正要回去的時候")%、外面下起了雨……

		PRINTFORM 拿出了%TEXTR("在包里放着的/折叠起来的/忘在部室里的")%傘的%CALLNAME:MASTER%、
		PRINTFORMW 向%CALLNAME:TARGET%询问要不要一起撑着伞回去。

		RETURN 1
	ENDIF

	PRINTFORM 结束了午後课程的%CALLNAME:MASTER%
	;繞道した場所がpartnerの行動圏内
	SELECTCASE SAVESTR:現在位置
	CASE "泳装屋", "内衣屋", "内衣店"
		PRINTFORM 、在%CALLNAME:TARGET%的邀请下
	CASE "情人旅館"
		PRINTFORM 在繁華街上闲逛
	CASEELSE
		IF COND("放課後约会中")
			PRINTFORM 邀请%CALLNAME:TARGET%、
		ELSEIF STRCOUNT(CSTR:出現場所, SAVESTR:現在位置)
			PRINTFORM 、在%CALLNAME:TARGET%的邀请下
		ELSE
			PRINTFORM 、和%CALLNAME:TARGET%一起
		ENDIF
	ENDSELECT

	SELECTCASE SAVESTR:归途の行動
	CASE "圣诞节前夕"
		PRINTFORMW 在被装饰得金碧辉煌的街道擅長牵着手、肩膀靠在一起散了步。
	CASE "情人旅館前で遭遇"
		PRINTFORMW ……偶然遇到了和%SAVESTR:归途のゲスト%一起从情人旅館走出来的%CALLNAME:TARGET%。
	CASE "参拜"
		PRINTFORMW 从%SAVESTR:現在位置%去%SAVESTR:归途の行動%。
		IF COND("胖次形状確認") == 0 && CHECK_SKIRT("迷你") && CHECK_SKIRT("裙")
			PRINTFORM 拜了拜在長長的石段上走在前面的%CALLNAME:TARGET%裙中风景、
			IF EQUIP:胖次 == 0 || RAND:2
				CALL TEXT_PANTU_CHECK, SKIRT(TARGET)
			ELSE
				CALL TEXT_PANTU_CHECK_SHORT
			ENDIF
			CALL SETFLAG_DAILY, "胖次形状確認"
		ENDIF
	CASE "直帰"
		PRINTFORMW 一边%TEXTR("随随便便散着步/聊着学校里的事情/適当地雑談")%一边回去了。
	CASE "採購"
		PRINTFORM %SAVESTR:現在位置%
		SELECTCASE SAVESTR:現在位置
		CASE "超市"
			PRINTFORMW 挑选了晚上吃的菜。
		CASE "茶叶批发店"
			SELECTCASE TEXTS("季節")
			CASE "春"
				PRINTFORMW %TEXTR("挑选了合适的春茶/補充了喝完的茶葉")%。
			CASE "夏"
				PRINTFORMW で%TEXTR("挑选了夏天采摘的茶/補充了喝完的茶葉")%。
			CASEELSE
				PRINTFORMW で%TEXTR("到处寻找有趣的茶葉/挑选了香草茶/補充了喝完的茶葉")%。
			ENDSELECT
		ENDSELECT
	CASE "内衣選び"
		PRINTFORMW 在%SAVESTR:現在位置%%TEXTR("挑选内衣/陪着挑选了内衣")%。
	CASE "泳装選び"
		PRINTFORMW 在%SAVESTR:現在位置%%TEXTR("挑选泳装/陪着挑选了今年的泳装")%。
	CASE "準新作を物色"
		PRINTFORMW 在%SAVESTR:現在位置%的準新栏目中聊了聊自己喜欢的作品。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW 在%SAVESTR:現在位置%%SAVESTR:归途の行動%了。
	CASE "检查新刊", "玩音游", "街机游戏", "物色新作"
		PRINTFORMW 在%SAVESTR:現在位置%%SAVESTR:归途の行動%了。
	CASE "クレーン游戏"
		PRINTFORMW 在%SAVESTR:現在位置%%SAVESTR:归途の行動%%TEXTR("简单的花了点小钱…/过的挺開心的。/找着有没有自己可以接受的价格。")%
	CASE "大頭贴"
		PRINTFORMW 在%SAVESTR:現在位置%一起拍了%SAVESTR:归途の行動%的照片。
	CASE "対戦游戏"
		PRINTFORMW 在%SAVESTR:現在位置%的%SAVESTR:归途の行動%中、%TEXTR("参加了游戏/玩得很開心")%。
	CASE "繞道"
		IF SAVESTR:現在位置 == "繞道"
			PRINTFORMW %TEXTR("聊着学園发生的事/随意雑談的同时")%绕了远路。
		ELSE
			PRINTFORMW 往%SAVESTR:現在位置%%TEXTR("绕了远路/去了")%。
		ENDIF
	ENDSELECT

CASE "梦话"
	IF INSERT("挿入")
		IF COND("快要醒了")
			CALL PRINT_STR, @"被%CALLNAME:MASTER%侵犯的%CALLNAME:TARGET%好像睡的不太舒服的様子……_黄色_可能马上就要醒过来了_L"
		ELSEIF RAND:3 == 0 && INSERT("正常位")
			PRINTFORML %CALLNAME:TARGET%無意識地用脚缠住了%CALLNAME:MASTER%的腰……
		ELSEIF RAND:2
			PRINTFORM %CALLNAME:TARGET%一边%TEXTR("跟着你的動作一起揺着腰/用膣缠绕着阴茎/被作为性処理道具使用着")%
			IF COND("熟睡")
				PRINTFORML 、发出着有规律的鼾声……
			ELSE
				PRINTFORML 发出着鼾声……
			ENDIF
		ELSE
			PRINTFORML %CALLNAME:TARGET%似乎想翻个身、但因为%CALLNAME:MASTER%插入在身体里的阴茎的原因而没有翻动……
		ENDIF
	ELSE
		PRINTFORM %CALLNAME:TARGET%
		IF CFLAG:掀起裙子
			IF CHECK_CLO("没穿内褲")
				PRINTFORM %TEXTR("以大腿大開的体勢、/以裙子被捲了上去、阴部完全暴露在外的状態/令人害羞的地方被完全暴露在光天化日之下、")%
			ELSEIF EQUIP:胖次
				PRINTFORM %TEXTR("以大腿大開的体勢、/内裤完全暴露在外的/内衣被完全暴露在光天化日之下、")%
			ELSE
				PRINTFORM 以大腿大開的体勢、
			ENDIF
		ELSE
			IF COND("夏")
				PRINTFORM %TEXTR("在床上/把自己裹在毛巾被里、/一边翻了个身、")%
			ELSE
				PRINTFORM %TEXTR("钻进了被窝里、/在床上/把自己裹在毛毯里、/一边翻了个身、")%
			ENDIF
		ENDIF
		IF COND("快要醒了")
			PRINTFORML 尽管发出着鼾声……但是看起来睡得很浅
			CALL PRINT_STR, "黄色_看起来快要醒了……_L"
		ELSE
			PRINTFORML %TEXTR("安稳地睡着/发出着平稳的鼾声/看起来睡的很舒服/幸福地沉浸在梦想里")%……
		ENDIF
	ENDIF
CASE "脱下胖次交了出去"
	SIF TFLAG:取引承諾 == 0
		RETURN 0
	PRINTFORM %CALLNAME:TARGET%
	IF CHARA_NUM("室内の邪魔者") >= 1
		PRINTFORM 不管旁边还有别人在\@ CHECK_OUTER("布鲁马") ? 脱下布鲁马 # \@、当场把%PANTIES(TARGET, "略")%
		SELECTCASE PANTIES(TARGET, "略")
		CASE "前貼"
			PRINTFORMW 粗暴地从股间剥下、交给了%CALLNAME:MASTER%。
		CASE "Ｃ胖次"
			PRINTFORMW 解開、交给了%CALLNAME:MASTER%。
		CASEELSE
			PRINTFORMW 脱下、交给了%CALLNAME:MASTER%。
		ENDSELECT
	ELSEIF CHARA_NUM("集合予定") <= 2 || PLACE("個室")
		PRINTFORM 因为是两人独处、直接向%CALLNAME:MASTER%
		SELECTCASE PANTIES(TARGET, "略")
		CASE "前貼"
			PRINTFORMW 一边展示着剥下来的全过程一边把%PANTIES(TARGET, "略")%递了过来。
		CASE "Ｃ胖次"
			PRINTFORMW 一边展示着解開的全过程一边把%PANTIES(TARGET, "略")%递了过来。
		CASEELSE
			PRINTFORMW 一边展示着脱掉的全过程一边把%PANTIES(TARGET, "略")%递了过来。
		ENDSELECT
	ELSE
		PRINTFORM 趁着没有别人在的这个机会快速地
		SELECTCASE PANTIES(TARGET, "略")
		CASE "前貼"
			PRINTFORMW 剥下前貼、交给了%CALLNAME:MASTER%。
		CASE "Ｃ胖次"
			PRINTFORMW 解開Ｃ胖次、交给了%CALLNAME:MASTER%。
		CASEELSE
			PRINTFORMW 脱下内衣、交给了%CALLNAME:MASTER%。
		ENDSELECT
	ENDIF
CASE "汎用一言イベント"

CASE "性欲解消"
	;你が攻めっ気を出すルート
	IF STR:PLAY内容 != STR:PLAY要望 || RAND:2
		PRINTFORM %CALLNAME:PLAYER%将%TEXTS("挿入準備脱衣")%%NAMES("ソファ")%に座り直した%CALLNAME:TARGET%の
		SELECTCASE NAMES("性処理")
		CASE "舐陰"
			PRINTFORM 胯股之间用脸贴近、%TEXTR("用手指拓寛/用指尖押開")%%TEXTS("割れ目")%
			PRINTFORMW 開始%TEXTR("用舌頭舔动起/用舌頭舔舐起/用舌尖挑逗起")%%TEXTR(@"%TEXTS("气味")%强烈的粘膜/内部的粘膜/颜色鮮艳的粘膜")%。
		CASE "舐陰莖"
			PRINTFORM 胯股之间用脸贴近、
			IF SIZE("阴茎", TARGET) >= 3 && RAND:3
				PRINTFORM %TEXTS("阴茎：尺寸表現付")%
			ELSE
				PRINTFORM %TEXTS("阴茎：視覚", TARGET)%
				IF COND("真性包茎")
					PRINTFORM 包茎阴茎
				ELSEIF COND("露茎")
					PRINTFORM 露茎阴茎
				ELSE
					PRINTFORM 阴茎
				ENDIF
			ENDIF
			PRINTFORMW %TEXTR("放在舌頭上迎入後開始在口中舔舐了起来/含在嘴里開始激烈地扱取品味起来/迎入口中后開始用舌尖摩擦来刺激着")%。
		CASE "Ｖ性交", "Ａ性交", "尿道性交"
			PRINTFORM %TEXTR("膝/脚腕")%掴住后押開股间、伸出的腰肢的末端、
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"
				PRINTFORM 蜜汁流涎的膣穴
			CASE "Ａ性交"
				PRINTFORM 已经习慣被侵犯的肛門
			CASE "尿道性交"
				PRINTFORM 彻底性器化的尿道
			ENDSELECT
			IF RAND:2 && CHECK_COM("完全挿入可能", SELECTCOM)
				PRINTFORMW 将%TEXTS("阴茎：尺寸表現付", PLAYER)%%TEXTR("直至根部地埋入了/毫无保留地吞入了/挿入後持续用恥骨摩擦着")%。
			ELSEIF SIZE("阴茎", PLAYER) >= 2
				PRINTFORMW 被%TEXTS("阴茎：尺寸表現付", PLAYER)%%TEXTR("深深地貫穿了/開始了深度地侵犯/有气势地侵犯了")%。
			ELSE
				PRINTFORMW 被%TEXTS("阴茎：尺寸表現付", PLAYER)%%TEXTR("貫穿了/顺势侵犯了")%。
			ENDIF
		ENDSELECT
	ELSE
		PRINTFORM %TEXTS("挿入準備脱衣")%%NAMES("ソファ")%に座り直した%CALLNAME:TARGET%は
		IF TALENT:害羞 == 0 && (COND("発情期") || COND("欲求不満") >= 3) && RAND:3 == 0
			PRINTFORM 朝向%CALLNAME:PLAYER%%TEXTR("就像是迫不及待一樣/完全不留余裕地")%张開大腿、
		ELSEIF TALENT:高贵 + TALENT:小悪魔
			PRINTFORM 朝向%CALLNAME:PLAYER%%TEXTR("慢慢地/用挑発的姿势/用高雅的姿势")%张開大腿、
		ELSEIF TALENT:不知羞恥 && TALENT:粗野 + TALENT:笨蛋
			PRINTFORM %TEXTR(@"粗鲁地大大张開股间\/朝向%CALLNAME:PLAYER%张開大腿露出股間的同时")%、
		ELSE
			PRINTFORM 朝向%CALLNAME:PLAYER%%TEXTR("軽軽地/以习慣的様子/伴随着少许羞恥地")%张開股间、
		ENDIF
		SELECTCASE NAMES("性処理")
		CASE "舐陰"
			IF TALENT:陰唇環 && RAND:3
				PRINTFORM 抓着从%TEXTS("割れ目：表現短め")%中%TEXTR("露出来的/探出来的")%穿环、%TEXTR("打開了/押開了/左右拉伸着")%粘膜
			ELSE
				PRINTFORM %TEXTR("用手指拓寛/用指尖押開/张開着")%%TEXTS("割れ目")%
			ENDIF
			PRINTFORMW 催促着舌頭的奉仕。
		CASE "舐陰莖"
			IF SIZE("阴茎", TARGET) >= 3 && RAND:3
				PRINTFORM %TEXTS("阴茎：尺寸表現付")%
			ELSE
				PRINTFORM %TEXTS("阴茎：視覚", TARGET)%
				IF COND("真性包茎")
					PRINTFORM 包茎阴茎
				ELSEIF COND("露茎")
					PRINTFORM 露茎阴茎
				ELSE
					PRINTFORM 阴茎
				ENDIF
			ENDIF
			PRINTFORMW 展露出来催促着舌頭的奉仕。
		CASE "Ｖ性交", "Ａ性交", "尿道性交"
			PRINTFORM 伸出来的%TEXTS("阴茎：尺寸表現付", PLAYER)%被
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"
				PRINTFORM 阴道
			CASE "Ａ性交"
				PRINTFORM 肛門
			CASE "尿道性交"
				PRINTFORM 尿道
			ENDSELECT
			IF RAND:2 && CHECK_COM("完全挿入可能", SELECTCOM)
				PRINTFORMW %TEXTR("直至根部地/毫无保留地")%接受了。
			ELSEIF SIZE("阴茎", PLAYER) >= 2
				PRINTFORMW 深深地接受了。
			ELSE
				PRINTFORMW 接受了进入。
			ENDIF
		ENDSELECT
	ENDIF

	SELECTCASE NAMES("性処理")
	CASE "舐陰"
		SIF TEXTS("Ｖコンディション", TARGET) != ""
			CALL PRINT_STRW, @"(%CALLNAME:TARGET%的Ｖ状态是_黄色_%TEXTS("Ｖコンディション", TARGET)%_)"
		PRINTFORM %TEXTR(@"%CALLNAME:TARGET%为了回应%CALLNAME:PLAYER%的努力、温柔地抚摸着%CALLNAME:PLAYER%的頭\/%CALLNAME:TARGET%根据%CALLNAME:PLAYER%的舌的动作不时漏出鼻音\/%CALLNAME:TARGET%因%CALLNAME:PLAYER%的舐陰的激烈而呼吸稍显荒乱")%的同时、
		PRINTFORMW 陶醉于敏感場所被奉仕的感觉之中……
	CASE "舐陰莖"
		PRINTFORM %TEXTR(@"%CALLNAME:TARGET%为了回应%CALLNAME:PLAYER%的努力、温柔地抚摸着%CALLNAME:PLAYER%的頭\/%CALLNAME:TARGET%根据%CALLNAME:PLAYER%的舌的动作不时露出舒服的表情\/%CALLNAME:TARGET%因%CALLNAME:PLAYER%的口淫的激烈而呼吸稍显荒乱")%的同时、
		PRINTFORMW 陶醉于敏感場所被奉仕的感觉之中……
	CASE "Ｖ性交", "Ａ性交", "尿道性交"
		MEMO_LINECOUNT = LINECOUNT
		IF RAND:2
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"
				CALL TEXT, "追加地の文：Ｖ挿入後"
				CALL TEXT, "追加地の文：腹部变形系"
			CASE "Ａ性交"
				CALL TEXT, "追加地の文：Ａ挿入後"
			CASE "尿道性交"
				CALL TEXT, "追加地の文：尿道挿入後"
			ENDSELECT
		ENDIF
		SIF MEMO_LINECOUNT != LINECOUNT
			RETURN 1

		CALL TEXT, "追加地の文：騎乗位以外の挿入"
	ENDSELECT

CASE "性欲解消：逆挿入"
	;相手が攻めっ気を出すルート
	IF TALENT:坏心眼 + TALENT:粗野 + TALENT:笨蛋 + TALENT:小悪魔 + TALENT:情熱的 && COND("池面", PLAYER) == 0 && RAND:2
		PRINTFORM %CALLNAME:TARGET%%TEXTR(@"%NAMES("ソファ")%に座っ/%NAMES("ソファ")%に腰かけ")%ている%CALLNAME:PLAYER%の
		IF RAND:2
			PRINTFORM 内衣脱下之后
		ELSE
			PRINTFORM %TEXTR("膝盖/脚踝")%握住
		ENDIF
		PRINTFORM %TEXTR("唰地/有气勢地/毫不留情地")%押開大腿、伸出腰肢、
		SELECTCASE NAMES("性処理")
		CASE "Ｖ性交する"
			PRINTFORM 满是期待的濡湿膣穴
		CASE "Ａ性交する"
			PRINTFORM 経験豊富的肛門
		ENDSELECT
		IF RAND:2 && CHECK_COM("完全挿入可能", SELECTCOM)
			PRINTFORMW 将%TEXTS("阴茎：尺寸表現付", TARGET)%%TEXTR("直至根元地埋込了/毫无保留地吞入了/挿入後持续用恥骨摩擦着")%。
		ELSEIF SIZE("阴茎", TARGET) >= 2
			PRINTFORMW 被%TEXTS("阴茎：尺寸表現付", TARGET)%%TEXTR("深深地貫穿了/開始了深度地侵犯/有气势地侵犯了")%。
		ELSE
			PRINTFORMW 被%TEXTS("阴茎：尺寸表現付", PLAYER)%%TEXTR("貫穿了/顺势侵犯了")%。
		ENDIF
	ELSE
		IF COND("池面", PLAYER) == 0
			PRINTFORM %TEXTR(@"%NAMES("ソファ")%/%NAMES("ソファ")%の端")%に座り直した%CALLNAME:PLAYER%は%CALLNAME:TARGET%に向けて股を開き、突き出された
		ELSE
			PRINTFORM %CALLNAME:PLAYER%朝向%CALLNAME:TARGET%伸出尻部、寄出的
		ENDIF
		PRINTFORM %TEXTS("阴茎：尺寸表現付", TARGET)%被
		SELECTCASE NAMES("性処理")
		CASE "Ｖ性交する"
			PRINTFORM 阴道
		CASE "Ａ性交する"
			PRINTFORM 菊穴
		ENDSELECT
		IF RAND:2 && CHECK_COM("完全挿入可能", SELECTCOM)
			PRINTFORMW %TEXTR("直至根部地/毫无保留地")%接受了。
		ELSEIF SIZE("阴茎", TARGET) >= 2
			PRINTFORMW 深深地接受了。
		ELSE
			PRINTFORMW 接受了进入。
		ENDIF
	ENDIF

	CALL TEXT, "挿入具合の描写"

	SELECTCASE NAMES("性処理")
	CASE "Ｖ性交する"
		PRINTFORM %CALLNAME:TARGET%
		SIF TALENT:恋慕 && RAND:3
			PRINTFORM 將脖頸和後頸用舌頭迷亂的舔舐著、
		;「TARGETが真性の施虐狂か」「施虐属性持ちか」で分岐
		IF ABL:技巧 >= 4 && EXP:腰靈活経験 + ABL:腰靈活*10 >= 50 && RAND:4 == 0
			PRINTFORM 子宮用陰莖強行插入、將子宮口當成套在龜頭上的圓環一樣地
		ELSEIF ABL:技巧 >= 3 && EXP:腰靈活経験 + ABL:腰靈活*10 >= 30 && RAND:3 == 0
			PRINTFORM Ｇ点用阴茎的顶端抵住之后就像是在捣药一様冲撞并反复研磨起来地
		ELSEIF RAND:2 == 0
			PRINTFORM 各處敏感點特意避開、像是在享受渴求快樂的焦躁神情一樣地
		ELSE
			PRINTFORM 阴道道的最深處像是打樁機一樣毫不留情、從不間歇地
		ENDIF
		PRINTFORMW 腰を動かして、%CALLNAME:PLAYER%の反応を楽しんでいる…
	CASE "Ａ性交する"
		PRINTFORM %CALLNAME:TARGET%將%CALLNAME:PLAYER%的腰肢緊緊抓住、
		;恋慕で追加
		SIF TALENT:恋慕 && RAND:3
			PRINTFORM 將脖頸和後頸用舌頭迷亂的舔舐著、
		IF ABL:腰靈活 >= 5 && RAND:3 == 0
			PRINTFORMW 立体的に腰をグラインドさせながら直腸粘膜を盛んに摩擦了起来…
		ELSEIF ABL:施虐属性 >= 3 && RAND:2 == 0
			PRINTFORMW 獣のように激烈地腰を振りたてている…
		ELSE
			PRINTFORMW 腰を大きく前後に動かしている…
		ENDIF
	ENDSELECT
CASE "性欲解消：射精"
	SIF RAND:3 && COND("帮忙消除性欲可能")
		LOCALS = 顺从着欲望
	SELECTCASE NOWEX:射精
	CASE IS >= 3
		LOCALS:1 = 恐怖的量的
	CASE 2
		LOCALS:1 = 大量的
	CASE 1
		LOCALS:1 = 滚烫的
	ENDSELECT

	PRINTFORM %CALLNAME:TARGET%%TEXTR("的腰肢紧密连接着/突出腰肢")%
	SELECTCASE NAMES("性処理")
	CASE "Ｖ性交する"
		IF RAND:2 && SIZE("阴茎", TARGET) >= 2
			PRINTFORM %TEXTR("深深侵犯膣道/叩击阴道深处的肉壁/拍打膣的深处/在膣道深处摩擦着")%的同时
		ELSE
			PRINTFORM %TEXTR("激烈侵犯膣穴/摩擦着膣壁/激烈搅动着膣内")%的同时、
		ENDIF
		IF TEQUIP:避孕套
			PRINTFORMW %LOCALS:1%精液被吐入了避孕套中。
		ELSEIF RAND:3 == 0
			PRINTFORMW %LOCALS:1%精液流入了%CALLNAME:PLAYER%的最深处。
		ELSEIF EXP_GAIN("膣内精液経験", PLAYER) == 0 && COND("危険日", PLAYER)
			PRINTFORMW %LOCALS:1%精液%LOCALS%注込了危険日的子宮。
		ELSE
			PRINTFORMW %LOCALS%%LOCALS:1%精%TEXTR(@"液在%CALLNAME:PLAYER%的内部染上了颜色/被解放了/液注込了")%。
		ENDIF
	CASE "Ａ性交する"
		PRINTFORM %TEXTR("直腸/肛門")%
		IF RAND:2 && SIZE("阴茎", PLAYER) >= 2
			PRINTFORM %TEXTR("的深处摩擦着/深深侵犯着")%的同时、
		ELSE
			PRINTFORM %TEXTR("连根部一起吞入/激烈搅动着/激烈侵犯")%的同时、
		ENDIF
		IF TEQUIP:避孕套
			PRINTFORMW %LOCALS:1%精液被吐入了避孕套中。
		ELSEIF RAND:3 == 0
			PRINTFORMW %LOCALS:1%精液流入了%CALLNAME:PLAYER%腸内的深处。
		ELSE
			PRINTFORMW %LOCALS%%LOCALS:1%精%TEXTR(@"液在%CALLNAME:PLAYER%的内部染上了颜色/被解放了/液注込了")%。
		ENDIF
	ENDSELECT

	PRINTFORM %CALLNAME:TARGET%
	IF TALENT:恋慕 && RAND:3
		PRINTFORM %TEXTR(@"一边看着%CALLNAME:PLAYER%的脸/一边抱住%CALLNAME:PLAYER%/一边用手梳理着%CALLNAME:PLAYER%的頭髪")%、一边
	ELSE
		PRINTFORM 一边%TEXTR("调整着稍显絮乱的呼吸/缓缓蠕动腰肢来榨取最後一滴/呼出一口长气")%、一边
	ENDIF
	SELECTCASE NAMES("性処理")
	CASE "Ｖ性交する"
		IF TEQUIP:避孕套 == 0
			PRINTFORMW %TEXTR("带着好舒服的表情/以満足的様子")%沉浸在中出性爱的余韻中…
		ELSE
			PRINTFORMW %TEXTR("带着好舒服的表情/以満足的様子")%沉浸在性行為的余韻中…
		ENDIF
	CASE "Ａ性交する"
		PRINTFORMW %TEXTR("带着好舒服的表情/以満足的様子")%沉浸在肛門性交的余韻中…
	ENDSELECT

CASE "性処理"
	;まずはPLAYごとの衣装変化の処理(相手が主導するPLAYのみ)
	SELECTCASE NAMES("性処理")
	CASE "手淫", "口交"
		;PRINTFORM なぜか服を全部脱いで襪子と靴のみの格好变成了
	CASE "乳交"

	CASE "乳頭奸"

	ENDSELECT

	;PLAY描写
	SELECTCASE NAMES("性処理")
	CASE "奉仕舐陰"
		;相手が攻めっ気を出すルート
		IF TALENT:坏心眼 + TALENT:粗野 + TALENT:笨蛋 + TALENT:小悪魔 + TALENT:情熱的 && RAND:2
			PRINTFORM %CALLNAME:TARGET%腰かけている%CALLNAME:PLAYER%の
			IF RAND:2
				PRINTFORM 内衣脱下之后
			ELSE
				PRINTFORM %TEXTR("膝盖/脚踝")%握住
			ENDIF
			PRINTFORM %TEXTR("グッと/勢いよく/容赦なく")%股を押し開いて%TEXTR("顔を突っ込み/顔を埋め")%、
			PRINTFORMW 暴露了出来%TEXTS("大陰唇：視覚", PLAYER)%の%TEXTR("内側/割れ目/隙間")%へと舌を%TEXTR("這わせてきた/伸ばして奉仕し始めた/伸ばして粘膜を刺激してきた")%…
			SIF TEXTS("Ｖコンディション", PLAYER) != ""
				CALL PRINT_STRW, @"(%CALLNAME:PLAYER%のＶコンディションは_黄色_%TEXTS("Ｖコンディション", PLAYER)%_です)"
		ELSE
			PRINTFORM 胖次を下して足から抜きながら手頃な場所に腰かけた%CALLNAME:PLAYER%は%CALLNAME:TARGET%に向けて股を開き、
			PRINTFORMW %TEXTS("割れ目", PLAYER)%を指で%TEXTR("寛げ/押し広げ/開帳し")%ながら舌での奉仕を促した。
			SIF TEXTS("Ｖコンディション", PLAYER) != ""
				CALL PRINT_STRW, @"(%CALLNAME:PLAYER%のＶコンディションは_黄色_%TEXTS("Ｖコンディション", PLAYER)%_です)"
			PRINTFORM %CLO("現在的格好＆の")%%CALLNAME:TARGET%%TEXTR("目の前の光景を眺め/僅かに鼻をヒクつかせ/開かれた膝を手で更に左右に広げ")%ながら%CALLNAME:PLAYER%の股間に顔を埋め、
			PRINTFORMW %TEXTR("うっすらついた汚れも余さず掃除ように執拗な舌靈活での/阴蒂だけでなく膣にも舌を這わせての熱心な/上目遣いで様子を伺いながら献身的な")%舐陰を始めた…
		ENDIF
	CASE "手淫"
		PRINTFORM %CLO("現在的格好＆の")%%CALLNAME:TARGET%
		;他の人との性処理直後
		IF COND("他の人の性処理直後")
			IF COND("Ｐ汚れの相手", MASTER)
				PRINTFORMW 拿起刚刚享受过%CONDS("Ｐ汚れの相手", MASTER)%的%CALLNAME:MASTER%の阴茎、用指尖轻轻玩弄过後開始了认真的处理…
			ELSE
				PRINTFORMW 拿起射精直後的%CALLNAME:MASTER%的阴茎、用指尖轻轻玩弄过後開始了认真的处理…
			ENDIF
		ELSE
			PRINTFORMW 从%CALLNAME:MASTER%的裤子里取出阴茎、用指尖轻轻玩弄过後開始认真的用手进行处理…
		ENDIF
		;PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の休闲褲から阴茎を取り出し、先端を舌でペロペロ舐めながら利き手で扱き始めた。
		;PRINTFORMW 余った方の手は自己的股間に延び、グチュグチュと粘っこい水音を立てつつ気持ちのいい部分を弄り続けている…
	CASE "口交"
		PRINTFORM %CLO("現在的格好＆の")%%CALLNAME:TARGET%
		;他の人との性処理直後
		IF COND("他の人の性処理直後")
			IF COND("Ｐ汚れの相手", MASTER)
				SELECTCASE CONDS("Ｐ汚れ", MASTER)
				CASE "Ｖ"
					PRINTFORM %CONDS("Ｐ汚れの相手", MASTER)%%TEXTR("との中出し性交で弄脏的ままの/との性交直後で愛液臭が漂う")%
				CASE "Ａ"
					PRINTFORM %CONDS("Ｐ汚れの相手", MASTER)%%TEXTR("との肛門性交で弄脏的ままの/との肛門性交直後で酷い臭いをさせている")%
				CASE "尿"
					PRINTFORM %CONDS("Ｐ汚れの相手", MASTER)%%TEXTR("との尿道性交で弄脏的ままの/の尿道を使ったために带污迹的付いたおしっこの臭いをさせている")%
				ENDSELECT
				PRINTFORMW 将%CALLNAME:MASTER%的阴茎迎进口中、转动着頭用舌頭缠绕着開始榨取积存的精液…
			ELSE
				PRINTFORMW 将%CALLNAME:MASTER%射精直後的阴茎迎进口中、转动着頭用舌頭缠绕着開始榨取积存的精液…
			ENDIF
		ELSE
			PRINTFORMW 将%CALLNAME:MASTER%的阴茎迎进口中、转动着頭用舌頭缠绕着開始榨取积存的精液…
		ENDIF
	CASE "乳交"
		PRINTFORMW %CLO("現在的格好＆の")%%CALLNAME:TARGET%用\@ TALENT:巨乳 ? 自豪的 # \@胸夹住%CALLNAME:MASTER%的阴茎、用舌頭舔着露出的亀頭開始了乳交…
	CASE "乳頭奸"
		PRINTFORMW %CLO("現在的格好＆の")%%CALLNAME:TARGET%用自己的胸接受了%CALLNAME:MASTER%的阴茎、配合着激烈的抽插的节奏、为獲得更大的快感而逐渐勒紧…
	CASE "Ｖ性交", "Ａ性交", "尿道性交"
		SELECTCASE CONDS("体位")
		CASE "騎乗位"
			PRINTFORM %TEXTS("挿入準備脱衣")%%CALLNAME:TARGET%、
			IF COND("常時拡張：引き抜き発生") && RAND:3 == 0
				PRINTFORM 用%TEXTR("完全拡張開的/刚拔出異物还大口張開的/随时做好准备的")%
				SELECTCASE NAMES("性処理")
				CASE "Ｖ性交"
					PRINTFORM 阴部
				CASE "Ａ性交"
					PRINTFORM 肛門
				CASE "尿道性交"
					PRINTFORM 尿道
				ENDSELECT
				PRINTFORM 将%CALLNAME:MASTER%的
			ELSE
				SIF CFLAG:創口貼装着 && (NAMES("性処理") == "Ｖ性交" || NAMES("性処理") == "尿道性交")
					PRINTFORM 打開創口貼
				SELECTCASE SAVESTR:現在位置
				CASE "教官室", "研究室", "司書室"
					PRINTFORM 跨过躺在午睡用床上的%CALLNAME:MASTER%
				CASE "体育倉庫"
					PRINTFORM 跨过躺在体育垫子上的%CALLNAME:MASTER%
				CASE "部室"
					PRINTFORM 跨过躺在配备床上的%CALLNAME:MASTER%
				CASE "旧宿直室"
					PRINTFORM 跨过躺在被褥上的%CALLNAME:MASTER%
				CASEELSE
					IF PLACE("個室")
						PRINTFORM 跨过躺着的%CALLNAME:MASTER%
					ELSE
						PRINTFORM %NAMES("ソファ")%に寝そべる%CALLNAME:MASTER%に跨って
					ENDIF
				ENDSELECT
			ENDIF
			IF COND("他の人の性処理直後")
				IF COND("Ｐ汚れの相手", MASTER)
					SELECTCASE CONDS("Ｐ汚れ", MASTER)
					CASE "Ｖ"
						PRINTFORM %CONDS("Ｐ汚れの相手", MASTER)%%TEXTR("との中出し性交で弄脏的ままの/との性交直後で愛液臭が漂う")%
					CASE "Ａ"
						PRINTFORM %CONDS("Ｐ汚れの相手", MASTER)%%TEXTR("との肛門性交で弄脏的ままの/との肛門性交直後で酷い臭いをさせている")%
					CASE "尿"
						PRINTFORM %CONDS("Ｐ汚れの相手", MASTER)%%TEXTR("との尿道性交で弄脏的ままの/の尿道を使ったために带污迹的付いたおしっこの臭いをさせている")%
					ENDSELECT
					PRINTFORM 陰莖
				ELSE
					PRINTFORM 射精直後の\@ SIZE("阴茎", MASTER) >= 2 ? 巨根 # 阴茎 \@を
				ENDIF
			ELSEIF NAMES("性処理") == "Ｖ性交" && COND("挿入余裕度") && COND("臍下到達") && RAND:3 == 0
				IF COND("臍上侵入")
					PRINTFORM 比肚脐还高的%TEXTR("凶悪/粗長")%阴茎
				ELSE
					PRINTFORM 几乎到达肚脐的%TEXTR("凶悪/粗長")%阴茎
				ENDIF
			ELSEIF RAND:2
				PRINTFORM %TEXTR("像是仰望天空一样隆起的/朝向天花板高耸的/以惊人的角度勃起的")%阴茎
			ELSE
				PRINTFORM %TEXTS("阴茎：視覚", PLAYER)%阴茎を
			ENDIF
			IF TALENT:好色 + TALENT:淫乱 + TALENT:恋慕 && COND("視力") && RAND:3 == 0
				PRINTFORM %TEXTR("一边盯着脸一边/带着满怀愛意的微笑")%
			ELSEIF COND("挿入余裕度") >= 2 && RAND:2
				PRINTFORM %TEXTR("满怀優越地/以余裕的表情/看起来很舒服地")%
			ELSEIF COND("挿入余裕度") && ABL:施虐属性 >= 2 && RAND:2
				IF TALENT:高慢 + TALENT:強気 && RANDIF(2, TALENT:傲慢 + TALENT:小悪魔)
					PRINT 在浮現出大膽的笑容的同時、
				ELSEIF TALENT:傲慢 + TALENT:小悪魔 && RAND:2
					PRINT 在臉上露出戲謔的壞笑的同時、
				ELSE
					PRINTFORM 满怀%TEXTR("優越感/嗜虐的愉悦")%地
				ENDIF
			ELSE
				PRINTFORM %TEXTR("在從唇角漏出甜美的呻吟的同時/在小口的吐出灼熱的喘息的同時")%
			ENDIF

			SELECTCASE COND("挿入余裕度")
			;よゆー
			CASE IS >= 2
				PRINTFORMW %TEXTR("从根部/完全")%%TEXTR("收入體內/放入體內/吞入體內")%。
			;ぴったり
			CASE 1
				PRINTFORMW %TEXTR("收入體內/放入體內/吞入體內")%。
			;全部は無理
			CASEELSE
				PRINTFORMW 很勉强地%TEXTR("收入/放入/吞入")%。
			ENDSELECT
		CASEELSE
			IF RAND:3 && (ABL:欲望 >= 5 || TALENT:接受快感)
				PRINTFORM %CALLNAME:TARGET%
				IF COND("常時拡張：引き抜き発生") && RAND:3
					;場所
					LOCALS =
					SELECTCASE NAMES("性処理")
					CASE "Ｖ性交"
						LOCALS = %TEXTR("前穴/膣")%
					CASE "Ａ性交"
						LOCALS = %TEXTR("尻穴/直腸")%
					CASE "尿道性交"
						LOCALS = %TEXTR("尿孔/尿道")%
					ENDSELECT
					;サイズで分岐
					SELECTCASE COND("常時拡張：引き抜き発生")
					CASE IS >= 4
						PRINTFORM %TEXTR(@"从%LOCALS%里拖出的\/紧紧撑開%LOCALS%的\/埋在%LOCALS%里的")%%TEXTR("規格外大小的/不可能大小的/笨重的")%
					CASE 3
						PRINTFORM %TEXTR(@"从%LOCALS%里拖出的\/紧紧撑開%LOCALS%的\/塞在%LOCALS%里的")%%TEXTR("極太/粗大/大")%
					CASEELSE
						PRINTFORM %TEXTR(@"从%LOCALS%里拔出的\/被%LOCALS%含住的\/撑開%LOCALS%的")%
					ENDSELECT
					SELECTCASE NAMES("性処理")
					CASE "Ｖ性交"
						PRINTFORM 振動棒
					CASE "Ａ性交"
						PRINTFORM 塞子
					CASE "尿道性交"
						PRINTFORM 塞子
					ENDSELECT
					;抜いたものの扱い
					IF COND("自発清洁口交可能") && RAND:3
						IF COND("Ａ清洁口交可能") && RAND:3
							PRINTFORM 拿到面前、%TEXTR("用舌的尖端/像是在品嚐美味一樣/恍惚地")%舔舐着上面的%TEXTR("污渍/粘液/令人羞恥的污渍")%、
						ELSE
							PRINTFORM 拿到面前、神情興奮地舔舐着震动棒%TEXTR("的前端/从根部到前端的所有地方/凹凸的区域")%、
						ENDIF
					ELSEIF TALENT:害羞
						PRINTFORM %TEXTR("羞涩地放在旁边/多少感到羞愧的同时放在旁边/不动声色地放到视野盲区里")%、
					ELSE
						PRINTFORM %TEXTR("小心弄脏地放到旁边/放到了看得见的地方/放到了旁边、在解放感中发出长呼一口气")%、
					ENDIF
				ELSE
					PRINTFORM %TEXTS("挿入準備脱衣")%
					SELECTCASE SAVESTR:現在位置
					CASE "体育倉庫"
						PRINTFORM %TEXTR("坐在跳箱上/坐在体育坐垫上")%、
					CASE "更衣室"
						PRINTFORM %TEXTR("坐在沙发床上/靠在墙上")%、
					CASE "男子廁所", "女子廁所"
						PRINTFORM 坐在%TEXTR("便座/洋式便座")%上、
					CASE "房顶"
						PRINTFORM %TEXTR("将体重托付给栏杆/靠在墙上")%、
					;床がある
					CASE "部室"
						PRINTFORM 在配備的床上%TEXTR("坐下/躺下")%、
					;机がある
					CASE "研究室", "教官室", "司書室"
						PRINTFORM %TEXTR("坐在桌子上/深坐在椅子上")%、
					CASEELSE
						PRINTFORM %TEXTR("靠在墙上")%、
					ENDSELECT
				ENDIF
				SIF CFLAG:創口貼装着 && (NAMES("性処理") == "Ｖ性交" || NAMES("性処理") == "尿道性交")
					PRINTFORM 打開創口貼
				SELECTCASE NAMES("性処理")
				CASE "Ｖ性交"
					PRINTFORM 将%TEXTR("準備好/流着液体/発情中")%的阴部
				CASE "Ａ性交"
					PRINTFORM 将%TEXTR("準備万端/兴奋/発情中")%的肛門
				CASE "尿道性交"
					PRINTFORM 将%TEXTR("完全松弛的/渴望快感的/迫不及待的")%尿道
				ENDSELECT
				PRINTFORM 朝向%CALLNAME:MASTER%
				PRINTFORMW 不断%TEXTR("撑開/展示/露出")%%TEXTR("催促/挑発/誘惑")%着…
				SIF NAMES("性処理") == "Ｖ性交" && TEXTS("Ｖコンディション", TARGET) != ""
					CALL PRINT_STRW, @"(%CALLNAME:TARGET%的Ｖ状态是_黄色_%TEXTS("Ｖコンディション", TARGET)%_)"
			ELSE
				SELECTCASE SAVESTR:現在位置
				CASE "体育倉庫"
					PRINTFORM %TEXTR("坐在跳箱上/坐在体育坐垫上")%
				CASE "更衣室"
					PRINTFORM %TEXTR("坐在沙发床上/靠在墙上/把手贴在墙上伸出尻部")%
				CASE "男子廁所", "女子廁所"
					PRINTFORM 坐在%TEXTR("便座/洋式便座")%上
				CASE "房顶"
					PRINTFORM %TEXTR("将体重托付给栏杆/靠在墙上/把手贴在墙上伸出尻部")%
				CASE "旧宿直室"
					PRINTFORM 在铺好的被褥上%TEXTR("坐下/躺下")%
				;床がある
				CASE "部室"
					PRINTFORM 在配備的床上%TEXTR("坐下/躺下")%
				;机がある
				CASE "研究室", "教官室", "司書室"
					PRINTFORM %TEXTR("坐在桌子上/深坐在椅子上")%
				CASEELSE
					PRINTFORM %TEXTR("靠在墙上/把手贴在墙上伸出尻部")%
				ENDSELECT
				PRINTFORM %CALLNAME:TARGET%、
				SIF CFLAG:創口貼装着 && (NAMES("性処理") == "Ｖ性交" || NAMES("性処理") == "尿道性交")
					PRINTFORM 打開創口貼
				IF ABL:欲望 >= 5 || TALENT:接受快感 || TALENT:献身
					PRINTFORM %TEXTR("率先/大幅度/推舉著腰肢", \@ EXP:性処理経験 >= 5 ? 习惯地 # \@)%张開大腿
				ELSE
					PRINTFORM %TEXTR("怯生生地/保守地/注意着周围情况")%张開大腿
				ENDIF
				PRINTFORM 将%CALLNAME:MASTER%的\@ SIZE("阴茎", MASTER) >= 2 ? 巨根 # 阴茎 \@用
				SELECTCASE NAMES("性処理")
				CASE "Ｖ性交"
					PRINTFORM 阴道
				CASE "Ａ性交"
					PRINTFORM 肛門
				CASE "尿道性交"
					PRINTFORM 尿道
				ENDSELECT

				IF SIZE("阴茎", MASTER) >= 2 && RANDIF(1, (ABL:欲望 >= 5 || TALENT:接受快感) )
					SELECTCASE NAMES("性処理")
					CASE "Ｖ性交"
						IF ABL:Ｖ拡張 >= SIZE("阴茎", MASTER)
							PRINTFORMW %TEXTR("深深地/从根部/毫无保留地")%接受了…
						ELSE
							PRINTFORMW 虽然有些勉强、但最终还是接受了…
						ENDIF
					CASE "Ａ性交"
						IF ABL:Ａ拡張 >= SIZE("阴茎", MASTER)
							PRINTFORMW %TEXTR("深深地/从根部/毫无保留地")%接受了…
						ELSE
							PRINTFORMW 虽然有些勉强、但最终还是接受了…
						ENDIF
					CASE "尿道性交"
						IF ABL:尿道拡張 >= SIZE("阴茎", MASTER)
							PRINTFORMW %TEXTR("深深地/从根部/毫无保留地")%接受了…
						ELSE
							PRINTFORMW 虽然有些勉强、但最终还是接受了…
						ENDIF
					ENDSELECT
				ELSEIF ABL:欲望 >= 5 || TALENT:接受快感
					PRINTFORMW 高兴地接受了…
				ELSEIF TALENT:叛逆
					PRINTFORMW 不情愿地接受了…
				ELSE
					PRINTFORMW 好好地接受了…
				ENDIF
			ENDIF
		ENDSELECT
	ENDSELECT
	CALL TEXT, "挿入具合の描写"
	;避孕套を使ったならその解説
	SIF TEQUIP:MASTER:避孕套
		CALL PRINT_STRW, @"黄色_（遵循%CALLNAME:TARGET%的希望\@ COND("中出し嫌い") ? # 、今日 \@使用了避孕套）"
	SIF CONDS("体位") == "騎乗位"
		CALL TEXT, "追加地の文：騎乗位"

CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	CASE "手淫"
		PRINTFORM %CALLNAME:TARGET%%STR:进行性処理%、
		PRINTFORMW 用空着的手握住%CALLNAME:PLAYER%の阴茎開始%TEXTR("没有一点干劲地/心不在焉地/草率地")%挊了起来……
	CASEELSE
		PRINTFORM %TEXTS("挿入準備脱衣")%%NAMES("ソファ")%に座り直した%CALLNAME:TARGET%は
		IF TALENT:高贵 + TALENT:小悪魔
			PRINTFORM 朝向%CALLNAME:PLAYER%%TEXTR("慢慢地/用挑発的姿势/用高雅的姿势")%张開大腿、
		ELSEIF TALENT:不知羞恥 && TALENT:粗野 + TALENT:笨蛋
			PRINTFORM %TEXTR(@"粗鲁地大大张開股间\/朝向%CALLNAME:PLAYER%张開大腿露出股間的同时")%、
		ELSE
			PRINTFORM 朝向%CALLNAME:PLAYER%%TEXTR("軽軽地/以习慣的様子/伴随着少许羞恥地")%张開股间、
		ENDIF
		SIF CFLAG:創口貼装着 && (NAMES("性処理") == "Ｖ性交" || NAMES("性処理") == "尿道性交")
			PRINTFORM 剥開創口貼后
		PRINTFORM 伸出来的%TEXTS("阴茎：尺寸表現付", PLAYER)%被
		SELECTCASE NAMES("性処理")
		CASE "Ｖ性交"
			PRINTFORM 阴道
		CASE "Ａ性交"
			PRINTFORM 肛門
		CASE "尿道性交"
			PRINTFORM 尿道
		ENDSELECT
		PRINTFORMW %TEXTR("深深地/从根部/完整地")%吞了进去。

		CALL TEXT, "挿入具合の描写"
		;避孕套を使ったならその解説
		SIF TEQUIP:PLAYER:避孕套
			CALL PRINT_STRW, @"黄色_（遵从%CALLNAME:TARGET%的想法\@ COND("中出し嫌い") ? # 、这一次 \@使用了避孕套）"

		PRINTFORM %CALLNAME:TARGET%随着%CALLNAME:PLAYER%的動腰%TEXTR("时不时地漏出娇声/毫不客气地发着牢骚/呼吸声渐渐增大")%的同时、
		PRINTFORMW 依旧专注于%TEXTS("夢中")%……
	ENDSELECT

;约会イベント
CASE "约会のお誘い"
	PRINTFORMW ……在和%CALLNAME:TARGET%聊天的時候、话题自然地引向了下个休息日要不要一起去约会。
CASE "待ち合わせ"
	PRINTFORM 在\@ COND("同居中") ? 玄関前 # 碰頭地点 \@等待时、
	IF COND("约会衣装に着替えた")
		PRINTFORM %TEXTR("比平时打扮得更漂亮/和往常不同/为了今日的约会而准備得漂漂亮亮")%%CLO_ABOUT(TARGET, "姿")%的%CALLNAME:TARGET%
	ELSEIF CHECK_CLO("学生服姿")
		PRINTFORM 穿着制服的%CALLNAME:TARGET%
	ELSEIF CHECK_SHIRT("振袖")
		SIF DAYEV("新年")
			PRINTFORM 为了庆祝新年
		PRINTFORM 穿上了振袖的%CALLNAME:TARGET%
	ELSE
		PRINTFORM 熟悉样子的%CALLNAME:TARGET%
	ENDIF
	;今日楽しみ！
	IF TALENT:坦率 + TALENT:開朗 && TALENT:大力士 + TALENT:粗野 + TALENT:笨蛋 && RAND:3
		PRINTFORMW %TEXTR("不停地挥着手以迫不及待样子/眼睛里闪着光輝地/一边跑一边上下抖动地/气喘吁吁地小跑着")%出现了。
	;ちょっと恥ずい
	ELSEIF TALENT:不知羞恥 == 0 && (TALENT:恋慕 || EXP:约会経験 == 0) && (TALENT:相思相愛 == 0 || EXP:约会経験 < 5) && RAND:4
		PRINTFORMW %TEXTR("因为害羞而移開视线、/稍微有些害羞地/稍微脸红地/脸颊微红的")%一边打招呼一边出现了。
	;まった？
	ELSEIF TALENT:坦率 + TALENT:開朗
		PRINTFORMW %CALLNAME:MASTER%%TEXTR("目光一交汇就笑着打招呼/在察觉之前便大声打着招呼")%走了过来。
	ELSE
		PRINTFORMW %TEXTR("笑着/像往常一样/轻轻举起一只手")%一边打招呼一边出现了。
	ENDIF

	TFLAG:衣装解説済み = 1

CASE "约会本番"
	;まずは约会内容
	PRINTFORM %CALLNAME:MASTER%和%CALLNAME:TARGET%
	SELECTCASE SAVESTR:约会
	CASE "文化祭"
		PRINTFORMW 一起参加了一年一度的文化祭、一边翻看着宣传书签一边像平常一样走向了学園。
	CASE "散歩"
		PRINTFORM 在%TEXTR("聊着彼此最近感兴趣的事情/聊着学校里发生的事情/随意聊天雑談")%的同时、
		PRINTFORM %TEXTR("在平常只有一个人走的路上/选择了一条从未走过的路来/一边逗着偶然遇到的野猫一边/两人戴着一副耳机听着同一首音乐")%
		PRINTFORMW 散歩。
	CASE "尋訪美食"
		PRINTFORM 在%TEXTR("谈论着前一天的晚餐/谈论着学校里的午饭的故事/互相交换着对食物的理解/享受词语接龙游戏的乐趣/随意聊天雑談")%的同时、
		PRINTFORM 在%TEXTR("最近成为热門話題的店里/一家看起来很不错的店里/事先预定好的店里")%
		PRINTFORMW 享用了一些美食。
	CASE "逛街"
		PRINTFORM 在%TEXTR("激烈的讨论着想要但不想买的东西ＴＯＰ３/交换着最近才知道的买东西的心得/避開路上遇到的熟人的追问/谈论着自己想从圣诞老人那里獲得什么礼物/随意聊天雑談")%的同时、
		PRINTFORM %TEXTR("按照顺序去了每一家计划要去的店/在商店街里/在附近购物、之后又去了平时一个人去不了的稍远一点的地方")%
		PRINTFORMW 买了很多东西。
	CASE "去水族馆"
		PRINTFORM 一边%TEXTR("计算着周围人们的情侣率/看着被父母带出来玩耍的孩子们/在通路上逆着人流走动/说着【一起这种地方什么的完全是情侣才会做的事】之类的话题/随意聊天雑談")%、一边
		PRINTFORM %TEXTR("亲眼观察了通常见不到的巨大海洋生物的壮观身影/看着最近吃过的鱼在水里游动的样子/隔着厚厚的玻璃和那些游过来的鱼尝试进行沟通")%、
		PRINTFORMW 非常開心。
	CASE "去游乐园"
		PRINTFORM %TEXTR("一边注意不要在人群中走散、一边/一边把脸贴在一起看着从游乐园門口得来的一张小册子、一边/一边讨论玩完游乐园之后的安排、一边/被周围热烈的气氛牵引出比平时更多的情感的同时、")%
		PRINTFORM %TEXTR("一个接一个地游玩各种设施/沉浸在在刹那间的非日常世界里/将大脑放空像小孩子一样寻找快乐")%、
		PRINTFORMW 非常開心。
	CASE "去图书馆"
		PRINTFORM %TEXTR("在図書館的角落里秘密地小声雑談/看着比想象中还要多的学院学生/和彼此间认识的人互相打招呼")%的同时、
		PRINTFORMW %TEXTR("决定以学生的方式学习度过一天/决定坐在面对面的座位上一起完成课题/决定找一本合适的书一起阅读学习")%。
	;2019/9 hokaguru 追記 → 2023/05/31 hokaguru 追記
	CASE "去电影院"
		PRINTFORM 一起进入了%TEXTR("冷清的小巷里的/车站前的大/一家可疑的")%映画館、
		STR:映画ジャンル = %TEXTR("惊悚/悬疑/恐怖/爱情浪漫/动作/科幻/色情/心理悬疑恐怖浪漫科幻动作色情")%
		PRINTFORM 看到墙上贴着一张関于%STR:映画ジャンル%电影的海报、
	;2022/12/16 hokaguru 追記
	CASE "在网咖度过"
		PRINTFORMW 在%TEXTR("车站前的/商业街的角落里的/离市中心稍微有点距离的")%网咖的双人房间中一起看了漫画书。
	CASE "去买泳衣"
		PRINTFORMW 走进了%TEXTR("学園附近的体育商店/百货商店的泳装专卖場/稍远一些但质量上乘的泳装店")%、决定物色今年的泳装。
	CASE "去游泳"
		IF COND("今年の泳装選択済")
			PRINTFORM 准备好了一起挑选的泳装、%TEXTR("在有些远的水上乐园/在一般不会一个人去的超级度假村/在事先预定好的娱乐游泳池")%
		ELSE
			PRINTFORM 忍受不了夏季的炎热、%TEXTR("去了附近的多功能泳池/去了学校附近的大型泳池")%
		ENDIF
		PRINTFORMW 决定游泳。
	;CASE "赏花"
	;CASE "爬山"
	;CASE "赏红叶"
	;CASE "滑雪"

	CASEELSE
		IF STRCOUNT(SAVESTR:约会, "行く")
			PRINTFORMW 决定%SAVESTR:约会%。
		ELSE
			PRINTFORMW 决定去%SAVESTR:约会%。
		ENDIF
	ENDSELECT

	;ついで相手の反応
	IF TALENT:開朗 + TALENT:坦率 && (TALENT:害羞 == 0 || TALENT:相思相愛) && STRCOUNTS(SAVESTR:约会, "遊園地") && RAND:3
		PRINTFORM %CALLNAME:TARGET%每次看见大型玩偶服都会%TEXTR(@"拉住%CALLNAME:MASTER%的手\/抱住%CALLNAME:MASTER%的手臂")%、
		PRINTFORMW %TEXTR("激动又笑容满面地盯着玩偶/開心地搂抱着、欢闹着/闹着要拍照片")%……
		TFLAG:牵手 = TARGET
	ELSEIF TALENT:開朗 + TALENT:坦率 && (TALENT:害羞 == 0 || TALENT:相思相愛) && STRCOUNTS(SAVESTR:约会, "水族館") && RAND:3
		PRINTFORM %CALLNAME:TARGET%每次%TEXTR("発見大型海洋生物/看见怪诞但可爱的深海生物/看到水母摆动身体游动")%时都会
		PRINTFORM %TEXTR(@"拉住%CALLNAME:MASTER%的手\/抱住%CALLNAME:MASTER%的手臂")%、
		PRINTFORMW %TEXTR("激动又笑容满面地贴在水槽玻璃上/兴致勃勃地朗读着説明書上的介绍/吵闹着要拍照")%……
		TFLAG:牵手 = TARGET
	ELSEIF STRCOUNTS(SAVESTR:约会, "文化祭")
		PRINTFORMW 受到文化祭影響的学園字面意义上变成了祭典的様子、缠着哥哥姐姐一起玩乐的初等部小朋友们、认真讨论着接下来行程的情侣们、充满了各种各样的人……
	;2019/9 hokaguru 追記 → 2023/05/31 hokaguru 追記
	ELSEIF STRCOUNTS(SAVESTR:约会, "映画館")
		IF MONEY >= 150
			PRINTL
			PRINTFORMW ……去观影席之前要买些什么带进去吗？
			PRINTFORML 所有的东西都只要150＄！　(所持金：%MONEY_C(MONEY)%)

			STR:選択肢 = 爆米花/吉事果/热狗/还是算了
			SPLIT STR:選択肢, "/", LOCALS
			CALL PRINT_SELECT, STR:選択肢
			STR:選択したもの = %LOCALS:RESULT%

			SELECTCASE STR:選択したもの
			CASE "爆米花"
				PRINTFORM %CALLNAME:MASTER%们带着%TEXTR("像桶一样的容器/装着大量爆米花的容器/一时半会吃不完的爆米花")%
			CASE "吉事果"
				PRINTFORM %CALLNAME:MASTER%们带着%TEXTR("装有好几根吉事果的纸质容器/把纸袋撑得长长的/就像是薯片桶一样塞了好几根吉事果在里面的容器")%
			CASE "热狗"
				PRINTFORM %CALLNAME:MASTER%们带着%TEXTR("即使是对于下午茶来说也有点大的纸质容器/色彩鲜艳分量巨大的容器")%
			CASEELSE
				GOTO SCREENING_START
			ENDSELECT
			PRINTFORMW 带着%STR:選択したもの%和果汁坐到了位置上。。

			;場所を映画館に移す
			SAVESTR:現在位置 = 映画館

			CALL KOJO_DATE, "约会中の買食物"
			MONEY -= 150
			PRINTFORML 所持金-%MONEY_C(150)%
			FLAG:情緒 += 15
			CALL TEXT, "情緒変化＆爱心個数表示", 15
			WAIT
			DRAWLINE
		ENDIF

		$SCREENING_START

		PRINTFORMW 到了上映的时间。
		PRINTFORM %TEXTR("安静的/满满的都是人/甚至有人站着看的")%放映室内突然响起了爆音、
		PRINTFORMW %CALLNAME:TARGET%摆出欣赏的姿势%TEXTR("眼睛里闪着光亮/開心的抿着嘴/、手托着下巴仔细地鉴赏着")%……
		CALL KOJO_DATE, "映画鑑賞中"

	;2022/12/16 hokaguru 追記
	ELSEIF STRCOUNTS(SAVESTR:约会, "网咖")
		PRINTFORMW 在%TEXTR("能够听到其他顾客的衣服摩擦声的/宁静的/偶尔能够听到翻书声、咔嗒声的")%空间中两人一起满足地度过了。
		PRINTFORM 偶尔
		IF TALENT:坦率 + TALENT:好奇心 && RAND:3
			PRINTFORM 读到了有趣的场景而相视而笑
		ELSEIF TALENT:開朗 + TALENT:強気 + TALENT:高慢 + TALENT:小悪魔 && RAND:3
			PRINTFORM 背靠背地坐在一起相互依托着自己的体重
		ELSEIF TALENT:害羞 && RAND:3
			PRINTFORM 在狭窄的空间中脸红着紧紧地贴在一起
		ELSE
			PRINTFORM 相互拜托着去帮对方拿想要的饮料
		ENDIF
		PRINTFORMW 、就不知不觉中度过了一段%TEXTR("慵懒/安心/满足")%的时光…
	;あとは会話
	ELSE
		IF RAND:10 == 0
			PRINTFORM %CALLNAME:TARGET%对着擦肩而过却不知为何朝这边挥手的小孩%TEXTR("有点害羞地/轻轻地/笑着")%挥了挥手、
		ELSEIF TALENT:好奇心 && STRCOUNTS(SAVESTR:约会, "遊園地", "水族館") && RAND:3
			IF TALENT:開朗 + TALENT:強気 + TALENT:温柔 && RAND:2
				PRINTFORM 情绪激动的%CALLNAME:TARGET%%TEXTR(@"拉着%CALLNAME:MASTER%的手指向自己想去的地方/紧紧地握着%CALLNAME:MASTER%的手")%、
				TFLAG:牵手 = TARGET
			ELSE
				PRINTFORM %CALLNAME:TARGET%的注意力好像从游乐设施上移開、目光移到了天空之上的様子、
			ENDIF
		ELSEIF TALENT:強気 && TALENT:難以越過的底線 == 0 && RAND:2
			PRINTFORM %CALLNAME:TARGET%%TEXTR("很自然地/若无其事地")%牵着%CALLNAME:MASTER%的手、
			TFLAG:牵手 = TARGET
		ELSE
			PRINTFORM %CALLNAME:TARGET%%TEXTR(@"行走时抓着%CALLNAME:MASTER%的衣角/玩闹一样轻戳着%CALLNAME:MASTER%的身体/捏住%CALLNAME:MASTER%的袖子保持着步伐")%、
		ENDIF
		;会話が起伏着的
		PRINTFORM %TEXTR("互相聊着没有意义的对话/不知怎么接二连三地说着无聊的故事/回应着毫无意义的话题")%
		IF TALENT:坦率 + TALENT:好奇心 && RAND:3
			PRINTFORMW 双眼放光地交谈着……
		ELSEIF TALENT:強気 + TALENT:高慢 && RAND:3
			PRINTFORMW 然后以不以为然调子附和着……
		ELSE
			PRINTFORMW 笑着附和着……
		ENDIF
	ENDIF
CASE "泳装選び開始"
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼"
	CASE "比基尼"
	CASE "競泳泳装"
	CASE "高開衩連衣裙"
	CASE "連体泳装"
	CASE "淚珠泳衣"
	CASE "彈弓泳衣"
	CASEELSE
	ENDSELECT

CASE "便当"
	PRINTFORM %TEXTR(@"休息中的\/经过了一个愉快的便当时间的\/享用完%CALLNAME:TARGET%手工料理的\/满足了腹の虫的")%
	PRINTFORM %CALLNAME:MASTER%達は、
	SELECTCASE SAVESTR:约会
	CASE "文化祭"
		PRINTFORM %TEXTR("一边開玩笑一边讨论接下来去哪里看看/讨论着展出内容和感想的同时/躺在膝枕上休息的同时/一起做着善后工作的同时/伴随着一点点的倦怠～慢慢地/什么都不做地靠在对方身上")%
	CASE "去电影院"
		PRINTFORM %TEXTR("讨论着电影的内容和感想的同时/讨论着便当的内容和感想的同时/躺在膝枕上休息的同时/一起做着善后工作的同时/伴随着一点点的倦怠～慢慢地/什么都不做地靠在对方身上")%
	CASEELSE
		PRINTFORM %TEXTR("一边開玩笑一边讨论午後做些什么、/讨论着内容和感想的同时/躺在膝枕上休息的同时/一起做着善后工作的同时/伴随着一点点的倦怠～慢慢地/什么都不做地靠在对方身上")%
	ENDSELECT
	PRINTFORMW 好好地享受了
	IF TEXTS("季節詳細") == "初夏"
		PRINTFORM 初夏的空気和树荫……
	ELSEIF TEXTS("季節") == "春" && RAND:2
		PRINTFORM 平时没有注意到的春天的景色……
	ELSEIF TEXTS("季節") == "秋"
		PRINTFORM %TEXTR("秋意渐浓的風景/舒适的秋季空気/中午和煦的秋風")%……
	ELSE
		PRINTFORM 饭后新鲜的空気……
	ENDIF

CASE "手をつなぐ"
	;恥ずかしい
	IF TALENT:内気 + TALENT:保守的 && TALENT:感情缺乏 + TALENT:好色 + TALENT:小悪魔 == 0
		IF RAND:2
		;	PRINTFORML 「！」
			PRINTFORMW 也许是%CALLNAME:TARGET%太过緊張了、身体在%CALLNAME:MASTER%握住手的瞬間被吓了一跳。
			PRINTFORMW ……但、立刻从硬直中恢复并温柔\@ TALENT:強気 + TALENT:大力士 ? 且强有力 # \@地握了回去。
			PRINTFORMW 因为%CALLNAME:TARGET%垂下了脸所以看不清表情、但应该是没有被讨厌……
		ELSE
		;	PRINTFORMW 「……」
			PRINTFORMW 被%CALLNAME:MASTER%握住手的%CALLNAME:TARGET%微微低着頭、突然不说话了。
			PRINTFORMW 没有想到的是、%CALLNAME:TARGET%紧张出汗的手指、动作笨拙但轻柔地缠上了%CALLNAME:MASTER%的手……
		ENDIF
	;嬉しい
	ELSEIF TALENT:坦率 + TALENT:開朗
		IF TALENT:害羞 && TALENT:男性 == 0 && RAND:2
		;	CALL PRINT_STRW, "「……_H_」"
			PRINTFORMW %CALLNAME:TARGET%顺着被握住的手直接依靠在了%CALLNAME:MASTER%的手臂上、%CALLNAME:MASTER%的手臂被抱住了！
			PRINTFORMW 隔着袖子传来%CALLNAME:TARGET%的柔软和心臓的跳動、感觉非常美妙……
		ELSE
		;	CALL PRINT_STRW, "「……_／／／_」"
			PRINTFORMW %CALLNAME:TARGET%一边笑着一边紧紧握住%CALLNAME:MASTER%的手。
			SELECTCASE SAVESTR:约会
			CASE "去电影院"
				PRINTFORM 为了能够让双方都能够看见而一起将牵着的手放在了座椅的扶手上的
			CASE "在网咖度过"
				PRINTFORM 将刚刚正在读的漫画合上细微地吐出湿润的吐息的
			CASEELSE
				PRINTFORM 为了摆脱羞耻感而大步地向前走去的
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%、脸红地偷瞄着牵住的手……
		ENDIF
	;余裕
	ELSE
		IF RAND:2
		;	PRINTFORMW 「…………♪」
			PRINTFORMW %CALLNAME:TARGET%并没有因为手被握住感到特殊的動揺、很自然地对着%CALLNAME:MASTER%微笑了。
			SELECTCASE SAVESTR:约会
			CASE "去电影院"
				PRINTFORM 之后就像是不在意一样盯着银幕移開视线
			CASE "在网咖度过"
				PRINTFORM 用空闲的单手继续翻着漫画书
			CASEELSE
				PRINTFORM 就像平常一样对话在身边一起走着
			ENDSELECT
			PRINTFORMW 默默地像是恋人一样缠紧了手指……
		ELSE
		;	PRINTFORMW 「…………」
			PRINTFORMW 在%CALLNAME:MASTER%的手指触碰到之前、%CALLNAME:TARGET%握住了%CALLNAME:MASTER%的手。
			PRINTFORMW %CALLNAME:TARGET%眯起眼睛開心地看着%CALLNAME:MASTER%被出其不意的様子……
		ENDIF
	ENDIF
CASE "到暗处去……", "请求偷偷口交"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORM 穿着泳装的%CALLNAME:TARGET%在%TEXTR("特别的場所/和其他顾客只隔着一层門帘的情况下")%
	;2020/02/24　玛丽酱の中の人　追記　更に雑に分岐を増やす
	CASE "去图书馆"
		PRINTFORM %TEXTR("被带进書架阴影下的/来到可能会被其他人撞见的角落的/钻到図書館桌子底下的")%%CALLNAME:TARGET%
	CASE "文化祭"
		PRINTFORM %TEXTR("被带进通常不会使用的教室/被带到通向屋顶、誰也不会来的楼梯角落/被带到人群看不到的地方")%的%CALLNAME:TARGET%
	;2022/12/16 hokaguru 追記
	CASE "在网咖度过"
		PRINTFORM %CALLNAME:TARGET%%TEXTR("在不能够保证隐私的空间中/意识到了如果这样開放的场所中做的异常性")%
	CASEELSE
		PRINTFORM 被带进%TEXTR("很深的/不引人注目的/看起来不会有别人打扰的")%場所的%CALLNAME:TARGET%
	ENDSELECT
	SELECTCASE SAVESTR:约会
	CASE "文化祭"
		PRINTFORM %TEXTR("一边担心着/侧耳听着/敏感地注意着")%周围学生的%TEXTR("声音/脚步声")%、
	CASEELSE
		PRINTFORM %TEXTR("一边担心着/侧耳听着/敏感地注意着")%%TEXTR("周围的声音/周围的脚步声")%、
	ENDSELECT
	;かなり乗り気
	IF COND("欲求不満") || TALENT:淫乱 || TALENT:好色
		PRINTFORM %TEXTR("以像是早就知道会这样发展的態度/对即将发生的事很感兴趣的様子/一点也不反感反而率先")%
	ELSE
		PRINTFORM %TEXTR("没有太强抵抗地/没有抱怨地/按照预期")%
	ENDIF
	SELECTCASE SAVESTR:约会
	;2022/12/16 hokaguru 追記
	CASE "在网咖度过"
		PRINTFORMW 想着努力延展自己的身体的%CALLNAME:MASTER%的股间探出脸、%TEXTR("用喉咙发出了下流的声音/微微地张開唇齿/身体紧密地贴在一起磨蹭")%。
	CASEELSE
		PRINTFORMW 在%CALLNAME:MASTER%的股間前%TEXTR("以蹲踞的姿勢/坐了下来/单膝跪地")%。
	ENDSELECT

	;慣れている
	IF EXP:性処理経験 >= 5 && EXP:口交経験 >= 20 && ABL:舌靈活 >= 3
		PRINTFORM %TEXTR("熟练地用手指/大胆地不用手指的帮助直接用嘴唇/紧紧地盯着股间撑起来的帐篷")%
	ELSE
		PRINTFORM %TEXTR("用笨拙的手法/用不熟练的手法/因为緊張费了点时间地")%
	ENDIF
	IF TFLAG:泳装约会
		PRINTFORM 拉開泳衣
	ELSE
		PRINTFORM 拉下裤拉链
	ENDIF
	IF RAND:2 && COND("欲求不満")
		PRINTFORM 后%TEXTR("面对露出的阴茎/取出阴茎/像是找到了想要的东西")%的%CALLNAME:TARGET%、将飛出来的那个东西
	ELSE
		PRINTFORM 的%CALLNAME:TARGET%、将飛出来的%TEXTR("汗湿的/气味强烈的/垂下先走汁的")%阴茎
	ENDIF
	IF COND("自発口交可能")
		PRINTFORM %TEXTR("轻吻了一下/打了招呼/舔了舔/放在舌頭上")%、
	ELSE
		PRINTFORM を
	ENDIF
	;かなり乗り気
	IF (COND("欲求不満") || TALENT:淫乱 || TALENT:好色) && RAND:3
		;IF COND("自発口交可能") && TALENT:男性 == 0 && ABL:自慰中毒 > RAND:4 && COND("欲求不満") > RAND:3
		;	PRINTFORM %TEXTR("自己的阴部を指で弄りつつ")%
		;ELSE
			PRINTFORM %TEXTR("以迫不及待的態度/用恍恍惚惚的様子/咽下唾液之后/閉上眼睛集中意識")%
		;ENDIF
	ELSE
		PRINTFORM %TEXTR(@"一边盯着%CALLNAME:PLAYER%的脸/一边詢問著%CALLNAME:PLAYER%的感觉/用不住上翻的眼珠仰視取悦着%CALLNAME:PLAYER%")%、
	ENDIF
	IF TALENT:恋慕 || COND("欲求不満") || TALENT:淫乱 || TALENT:好色
		PRINTFORMW %TEXTR("開始熱情地/開始享用一般地/開始满怀爱意地/用鼻子喘息的同時深深地含住")%吮吸起来……
	ELSE
		PRINTFORMW 開始%TEXTR("像往常一样/注意着周囲的动静/有点害臊地")%吮吸起来……
	ENDIF

CASE "请求偷偷手交"
	PRINTFORM 手被%CALLNAME:PLAYER%誘導到陰莖上的%CALLNAME:TARGET%、
	SELECTCASE SAVESTR:约会
	CASE "去电影院"
		IF COND("欲求不満") || TALENT:好色 || TALENT:淫乱
			PRINTFORM 注意力从电影的内容转移到%CALLNAME:MASTER%的眼睛上的同时、
		ELSEIF TALENT:害羞
			PRINTFORM 红着脸尽可能保持目光看向屏幕的同时、
		ELSE
			PRINTFORM 察觉到了%CALLNAME:MASTER%的意図、
		ENDIF
	;い移開どっかでも手交させて貰えると良いね（
	CASEELSE
		IF COND("欲求不満") || TALENT:好色 || TALENT:淫乱
			PRINTFORM 迫不及待地露出了笑容、
		ELSEIF TALENT:害羞
			PRINTFORM 察觉后脸瞬间红了、怯生生地
		ELSE
			PRINTFORM 察觉到了%CALLNAME:MASTER%的意図、
		ENDIF
	ENDSELECT
	PRINTFORMW 擼動著%CALLNAME:MASTER%隆起的那个直到满足为止。
CASE "接吻"
	;PRINTFORMW %CALLNAME:TARGET%は開心地微笑着并、%CALLNAME:MASTER%に接吻をし返してきた。
CASE "摸屁股"
	PRINTFORM %CALLNAME:TARGET%由于%TEXTR("毫无征兆的恶作剧/唐突的性騷擾/突然被摸了屁股")%
	IF TALENT:強気 + TALENT:冷静 + TALENT:感情缺乏 && RAND:4
		PRINTFORM %TEXTR("脸上浮现出温暖的笑容/没有太大的反应")%、
	ELSEIF TALENT:坦率 + TALENT:開朗 + TALENT:内気 && RAND:4
		PRINTFORM %TEXTR("显出吃驚的様子/一瞬身体紧绷了一下/")%、
	ELSE
		PRINTFORM %TEXTR("脸上起了紅潮/涨红了脸/发出了奇怪的声音")%、
	ENDIF
	PRINTFORM %TEXTR("没有表现出什么强烈的抗議/没有想要挣脱/没有表现出很讨厌的样子")%
	IF TFLAG:泳装约会
		PRINTFORMW 保持原样的状態继续和%CALLNAME:MASTER%享受着泳装约会……
	ELSE
		PRINTFORMW 继続跟在%CALLNAME:MASTER%身后走着……
	ENDIF
;文化祭イベント
CASE "乐队演奏", "演劇", "占卜館", "恐怖屋敷", "烦悩相談室", "PaFuPaFu屋", "女仆咖啡厅", "執事咖啡厅", "西式料理店"
	CALL DAILY_MESSAGE_BUNKASAI, ARGS
ENDSELECT