code:
;-------------------------------------------------
;この角色独自の衣装を設定する。制服、体操服、泳装は既存のものから選ぶのが楽です
;-------------------------------------------------
@CLOTHES_K52, ARGS

SELECTCASE ARGS
;角色クター独自の内衣の組み合わせを設定できます。設定必須です。一定の確率で着用します。
;もしも普段は付けない、という事ならCSTR:胖次 = と等号の右側を書き込まない事で出来ます。
CASE "内衣"

	IF CFLAG:エッチな内衣着用 == 1
		IF RAND:5 == 0
			CALL SET_PANTIES, "丁字褲/黒"
		ELSEIF RAND:4 == 0
			CALL SET_PANTIES, "Micro內褲/Ｈ的颜色"
		ELSEIF RAND:3 == 0
			CALL SET_PANTIES, "蕾丝的胖次/Ｈ的颜色"
		ELSEIF RAND:2
			CALL SET_PANTIES, "紐丁字褲/Ｈ的颜色"
		ENDIF
		IF RAND:3 == 0
			CSTR:胸罩 = ３／４杯胸罩/Ｈ的颜色/
		ELSEIF RAND:2 == 0
			CSTR:胸罩 = 半杯胸罩/Ｈ的颜色/
		ELSE
			CSTR:胸罩 = 蕾丝胸罩/Ｈ的颜色/透明/
		ENDIF
	ELSE
		CSTR:胖次 = 內褲/Ｈ的颜色/简约/
		CSTR:胸罩 = 简约胸罩/Ｈ的颜色/
	ENDIF

;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
CASE "飾品"
	CALL SET_OTHER, "眼鏡"

;学園での便装です。設定必須です。
;水手服, 露脐装超短裙水手服, 西装外衣, 露脐装超短裙西装外衣, 美式校服など
CASE "制服"
	IF RAND:2 == 0
		CALL SET_COSTUME, "蝴蝶結領帯丝巾女式衬衫"
	ELSE
		IF COND("夏")
			CALL SET_SHIRT, "无袖女式衬衫"
		ELSE
			CALL SET_SHIRT, "宽松女式衬衫"
		ENDIF
		CALL SET_SKIRT, "紧身裙"
		IF COND("秋") || COND("冬")
			CALL SET_OUTER, "连褲襪"
		ELSE
			IF RAND:3 == 0
				CALL SET_SOCKS, "長筒襪"
			ELSEIF RAND:2 == 0
				CALL SET_SOCKS, "网纹長筒襪"
			ELSE
				CALL SET_SOCKS, "吊帯長筒襪"
			ENDIF
		ENDIF
		CALL SET_SHOES, "高跟鞋"
		IF RAND:2 == 0
			CALL SET_OTHER, "蝴蝶結領帯丝巾"
		ELSE
			CALL SET_OTHER, "褶边領帯"
		ENDIF
	ENDIF
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;体操服布鲁马, 体操服高開衩布鲁马, 体操服五分褲, 体操服紧身短褲, 体操服运动衫など
CASE "体操服"
	IF RAND:2 == 0
		CALL SET_COSTUME, "蝴蝶結領帯丝巾女式衬衫"
	ELSE
		IF COND("夏")
			CALL SET_SHIRT, "无袖女式衬衫"
		ELSE
			CALL SET_SHIRT, "宽松女式衬衫"
		ENDIF
		CALL SET_SKIRT, "紧身裙"
		IF COND("秋") || COND("冬")
			CALL SET_OUTER, "连褲襪"
		ELSE
			IF RAND:3 == 0
				CALL SET_SOCKS, "長筒襪"
			ELSEIF RAND:2 == 0
				CALL SET_SOCKS, "网纹長筒襪"
			ELSE
				CALL SET_SOCKS, "吊帯長筒襪"
			ENDIF
		ENDIF
		CALL SET_SHOES, "高跟鞋"
		IF RAND:2 == 0
			CALL SET_OTHER, "蝴蝶結領帯丝巾"
		ELSE
			CALL SET_OTHER, "褶边領帯"
		ENDIF
	ENDIF
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;死库水, 競泳泳装, 白比基尼, 黒比基尼など
CASE "泳装"
	IF RAND:2 == 0
		CALL SET_COSTUME, "蝴蝶結領帯丝巾女式衬衫"
	ELSE
		IF COND("夏")
			CALL SET_SHIRT, "无袖女式衬衫"
		ELSE
			CALL SET_SHIRT, "宽松女式衬衫"
		ENDIF
		CALL SET_SKIRT, "紧身裙"
		IF COND("秋") || COND("冬")
			CALL SET_OUTER, "连褲襪"
		ELSE
			IF RAND:3 == 0
				CALL SET_SOCKS, "長筒襪"
			ELSEIF RAND:2 == 0
				CALL SET_SOCKS, "网纹長筒襪"
			ELSE
				CALL SET_SOCKS, "吊帯長筒襪"
			ENDIF
		ENDIF
		CALL SET_SHOES, "高跟鞋"
		IF RAND:2 == 0
			CALL SET_OTHER, "蝴蝶結領帯丝巾"
		ELSE
			CALL SET_OTHER, "褶边領帯"
		ENDIF
	ENDIF

;自宅など学園外で着ます。設定必須です
CASE "便装"
	IF RAND:2 == 0
		CALL SET_COSTUME, "蝴蝶結領帯丝巾女式衬衫"
	ELSE
		IF COND("夏")
			CALL SET_SHIRT, "无袖女式衬衫"
		ELSE
			CALL SET_SHIRT, "宽松女式衬衫"
		ENDIF
		CALL SET_SKIRT, "紧身裙"
		IF COND("秋") || COND("冬")
			CALL SET_OUTER, "连褲襪"
		ELSE
			IF RAND:3 == 0
				CALL SET_SOCKS, "長筒襪"
			ELSEIF RAND:2 == 0
				CALL SET_SOCKS, "网纹長筒襪"
			ELSE
				CALL SET_SOCKS, "吊帯長筒襪"
			ENDIF
		ENDIF
		CALL SET_SHOES, "高跟鞋"
		IF RAND:2 == 0
			CALL SET_OTHER, "蝴蝶結領帯丝巾"
		ELSE
			CALL SET_OTHER, "褶边領帯"
		ENDIF
	ENDIF
;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	IF COND("春") || COND("夏") || COND("秋")
		IF RAND:2 == 0
			CALL SET_SHIRT, "后背蝴蝶結切驳服"
		ELSE
			CALL SET_SHIRT, "切驳服"
		ENDIF
	ELSEIF COND("冬")
		IF RAND:2 == 0
			CALL SET_SHIRT, "二ット毛衣"
		ELSE
			CALL SET_SHIRT, "萌袖毛衣"
		ENDIF
	ENDIF
	CALL SET_SKIRT, "迷你裙"
	IF COND("秋") || COND("冬")
		CALL SET_OUTER, "连褲襪"
	ELSE
		CALL SET_SOCKS, "長筒襪"
	ENDIF
	IF COND("冬")
		IF RAND:2 == 0
			CALL SET_SHOES, "長靴"
		ELSE
			CALL SET_SHOES, "短筒女靴"
		ENDIF
	ELSE
		IF RAND:4 == 0
			CALL SET_SHOES, "平底鞋"
		ELSEIF RAND:3 == 0
			CALL SET_SHOES, "无后跟鞋"
		ELSEIF RAND:2 == 0
			CALL SET_SHOES, "凉鞋"
		ELSE
			CALL SET_SHOES, "高跟鞋"
		ENDIF
	ENDIF
;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"
	IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
		IF COND("春") || COND("夏") || COND("秋")
			IF COND("夏") && RAND:3 == 0
				CALL SET_SHIRT, "夏日礼服"
			ELSEIF RAND:2 == 0
				CALL SET_SHIRT, "后背蝴蝶結切驳服"
			ELSE
				CALL SET_SHIRT, "切驳服"
			ENDIF
		ELSEIF COND("冬")
			IF RAND:3 == 0
				CALL SET_SHIRT, "蝴蝶結露肩外衣"
			ELSEIF RAND:3 == 0
				CALL SET_SHIRT, "二ットオフショル"
			ENDIF
		ENDIF
		CALL SET_SKIRT, "迷你裙"
		IF COND("秋") || COND("冬")
			CALL SET_OUTER, "连褲襪"
		ELSE
			IF RAND:3 == 0
				CALL SET_SOCKS, "長筒襪"
			ELSEIF RAND:2 == 0
				CALL SET_SOCKS, "及膝襪"
			ELSE
				CALL SET_SOCKS, "高筒襪"
			ENDIF
		ENDIF
		IF COND("冬")
			IF RAND:2 == 0
				CALL SET_SHOES, "長靴"
			ELSE
				CALL SET_SHOES, "短筒女靴"
			ENDIF
		ELSE
			IF RAND:3 == 0
				CALL SET_SHOES, "平底鞋"
			ELSEIF RAND:2 == 0
				CALL SET_SHOES, "无后跟鞋"
			ELSE
				CALL SET_SHOES, "高跟鞋"
			ENDIF
		ENDIF
		IF COND("冬")
			CALL SET_OTHER, "风衣外套"
		ENDIF
	ELSEIF RAND:2 == 0
		CALL SET_COSTUME, "蝴蝶結領帯丝巾女式衬衫"
		IF COND("冬")
			CALL SET_SHOES, "短筒女靴"
		ELSE
			CALL SET_SHOES, "高跟鞋"
		ENDIF
		IF COND("冬")
			CALL SET_OTHER, "风衣外套"
		ENDIF
	ELSE
		IF COND("夏")
			CALL SET_SHIRT, "无袖女式衬衫"
		ELSE
			CALL SET_SHIRT, "宽松女式衬衫"
		ENDIF
		CALL SET_SKIRT, "紧身裙"
		IF COND("秋") || COND("冬")
			CALL SET_OUTER, "连褲襪"
		ELSE
			IF RAND:3 == 0
				CALL SET_SOCKS, "長筒襪"
			ELSEIF RAND:2 == 0
				CALL SET_SOCKS, "网纹長筒襪"
			ELSE
				CALL SET_SOCKS, "吊帯長筒襪"
			ENDIF
		ENDIF
		IF COND("冬")
			CALL SET_SHOES, "短筒女靴"
		ELSE
			CALL SET_SHOES, "高跟鞋"
		ENDIF
		IF RAND:2 == 0
			CALL SET_OTHER, "蝴蝶結領帯丝巾"
		ELSE
			CALL SET_OTHER, "褶边領帯"
		ENDIF
		IF COND("冬")
			CALL SET_OTHER, "风衣外套"
		ENDIF
	ENDIF
	IF RAND:2 == 0 && TALENT:淫乱
		IF RAND:2 == 0
			CSTR:胸罩 = １／４杯胸罩/Ｈ的颜色/乳頭露出/乳房露出/
		ELSE
			CSTR:胸罩 = 開放型胸罩/Ｈ的颜色/乳頭露出/
		ENDIF
	ELSE
		IF RAND:3 == 0
			CSTR:胸罩 = ３／４杯胸罩/Ｈ的颜色/
		ELSEIF RAND:2 == 0
			CSTR:胸罩 = 半杯胸罩/Ｈ的颜色/
		ELSE
			CSTR:胸罩 = 蕾丝胸罩/Ｈ的颜色/透明/
		ENDIF
	ENDIF

	IF RAND:5 == 0
		CALL SET_PANTIES, "丁字褲/黒"
	ELSEIF RAND:4 == 0
		CALL SET_PANTIES, "Micro內褲/Ｈ的颜色"
	ELSEIF RAND:3 == 0
		CALL SET_PANTIES, "蕾丝的胖次/Ｈ的颜色"
	ELSEIF RAND:2
		CALL SET_PANTIES, "紐丁字褲/Ｈ的颜色"
	ENDIF

;もちろん约会の際に着ます
CASE "约会衣装"
	IF COND("春") || COND("夏") || COND("秋")
		IF COND("夏") && RAND:3 == 0
				CALL SET_SHIRT, "夏日礼服"
		ELSEIF RAND:2 == 0
			CALL SET_SHIRT, "后背蝴蝶結切驳服"
		ELSE
			CALL SET_SHIRT, "切驳服"
		ENDIF
	ELSEIF COND("冬")
		IF RAND:3 == 0
			CALL SET_SHIRT, "蝴蝶結露肩外衣"
		ELSEIF RAND:3 == 0
			CALL SET_SHIRT, "二ットオフショル"
		ENDIF
	ENDIF
	CALL SET_SKIRT, "迷你裙"
	IF COND("秋") || COND("冬")
		CALL SET_OUTER, "连褲襪"
	ELSE
		CALL SET_SOCKS, "長筒襪"
	ENDIF
	IF COND("冬")
		IF RAND:2 == 0
			CALL SET_SHOES, "長靴"
		ELSE
			CALL SET_SHOES, "短筒女靴"
		ENDIF
	ELSE
		IF RAND:3 == 0
			CALL SET_SHOES, "平底鞋"
		ELSEIF RAND:2 == 0
			CALL SET_SHOES, "无后跟鞋"
		ELSE
			CALL SET_SHOES, "高跟鞋"
		ENDIF
	ENDIF
	IF COND("冬")
		CALL SET_OTHER, "风衣外套"
	ENDIF

ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;-------------------------------------------------
@MAIDFACE_K52
IF PLACE("自宅")

ELSE

ENDIF

license: unknown


code:
;-------------------------------------------------
;各種打招呼
;-------------------------------------------------
@KOJO_GREETING_K52, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"
	CALL PRINT_STRW, @"「最近一直都不理我。偶尔也邀请一下%CNAME("一人称")%吧_HH_」"
;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝逆正常位"
		CALL PRINT_STRL, @"「%TEXTR("哈啊……/嗯……/嗯啊……")%%TEXTR("阿拉，早上好/对不起~已经醒了吗")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"从早上開始就一直欲求不满……好不容易，一起舒服起来吧/一看到%CNAME("二人称")%的睡颜就有点按捺不住了呢，如果可以的话，一起来做吧")%_HH_」"
	CASE "朝舐陰"
		CALL PRINT_STRL, @"「%TEXTR("嗯啊/哈啊")%_HH_%TEXTR("早上好哦/好像醒了呢")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("呵呵呵/嗯哼哼っ")%_HH_%TEXTR("就这样轻松吧。大姐姐会好好服务的~/请放松哦。把每一个角落都弄干净……")%_HH_」"
	CASE "朝足交"
		CALL PRINT_STRL, @"「%TEXTR("呵呵呵/嗯哼哼")%_HH_%TEXTR("早上好哦/好像醒了呢")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("只是用脚稍微摩擦一下就已经硬了呢/我想稍微练习一下足交呢，这样踩着怎么样，舒服吗")%_HH_」"
	CASE "朝の新妻PLAY"
		CALL PRINT_STRL, @"「%TEXTR("喂喂/Hola")%_HH_」"
		CALL PRINT_STRW, @"「%CNAME("一人称")%才不是%CNAME("二人称")%的%TEXTR("亲爱的/新娘")%呢_HH_%TEXTR("不行啊……不能这么说/已经……说了不是了")%」"
	CASE "朝乳交"
		IF RAND:2 == 0
			CALL PRINT_STRL, @"「哈……哈……%TEXTR("嗯/嗯啊")%_HH_」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%的%TEXTR("胸部/欧派")%侍奉%TEXTR("你那么喜欢吗，只是这么夹着，就变得这么硬了/你那么喜欢吗，在里面一抖一抖的，真是可爱呢")%_HH_」"
		ELSE
			CALL PRINT_STRL, @"「早上好~一大早就享受了%TEXTR("大姐姐的欧派/大姐姐的母乳/大姐姐的胸部")%有变得想做了吗_HH_」"
			CALL PRINT_STRW, @"「……%TEXTR("才、才不是变态呢、人家也是个女孩子，偶尔也是会有寂寞的时候的/虽然可能会被认为是个不知廉耻的的女人……但是就算是我也会有无法忍耐的时候")%_HH_」"
		ENDIF
	CASE "朝騎乗位"
		CALL PRINT_STRL, @"「对不起_HH_代替麦莉爱娜桑叫你起床……看到你翘起的肉棒就忍不住了_HH_」"
		CALL PRINT_STRW, @"「大鸡鸡_HH_%TEXTR("直到射精为止/出来之前/榨出来为止")%、嗯_HH_ 我都不会停下来的_HH_啊~ 啊啊~_HH_」"
	CASE "朝Ａ騎乗位"
		CALL PRINT_STRL, @"「%TEXTR("呵呵呵/嗯哼哼っ")%_HH_%TEXTR("早上好，好像终于醒了呢/醒了吗？")%」"
		PRINTFORML 「……%CNAME("一个人称")%呢。虽然已经%TEXTR("一个人/自己")%的%TEXTR("屁股/肛門")%虽然已经%TEXTR("使用过按摩棒了/自慰过了/自己安慰过了")%_HH_」
		CALL PRINT_STRW, @"「但还是想要%TEXTR("真正的大鸡鸡/真正的肉棒")%插入，所以……袭击了%CNAME("二人称")%_HH_%TEXTR("对不起/请原谅我")%」"
	CASE "朝接吻"
		CALL PRINT_STRL, @"「%TEXTR("嗯……嗯，啾，啊/啧……啾，哈啊，啊……/啵啵……呲溜")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("呵呵呵/嗯哼哼っ")%_HH_%TEXTR(@"喂喂，快起床啦。你不想起来吗，就这么喜欢%CNAME("一人称")%的kiss吗/阿拉，醒了吗?还是想要更多的的吻呢?")%」"
	CASE "朝添い寝"
		CALL PRINT_STRL, @"「%TEXTR("啊……/嗯……")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("好喜欢……/我爱你")%_HH_%CNAME("二人称")%」"
	CASE "朝口交", "朝六九式"
		IF RAND:2 == 0
			CALL PRINT_STRL, @"「%TEXTR("pero/呲溜")%……%TEXTR("啊，早上好。/早上好。")%看到可爱的%TEXTR("鸡鸡/肉棒/")%就忍不住_HH_」"
			CALL PRINT_STRW, @"「从早上開始，呲溜……就已经这么大了_HH_%TEXTR("先走汁/露珠")%都流出来了……%TEXTR("这么硬着很辛苦吧，要用嘴好好服务呢/坏孩子是需要大姐姐用嘴惩罚的呢")%……啾_HH_」"
		ELSE
			CALL PRINT_STRL, @"「早上好_HH_偶尔代替麦莉爱娜桑叫你起床一次，发现肉棒已经变得这么大了……」"
			CALL PRINT_STRW, @"「pero、呲溜_HH_ 所以就忍不住想尝尝了_HH_啾、哈啊、_HH_ 年轻真好呢，这么早就開始有活力了_HH_」"
		ENDIF
	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
		PRINTFORML 「%TEXTR("真是的/不行啊")%……%CNAME("一人称")%怎么说%TEXTR("也是女人，偶尔也是想要侍奉的呢/也是女人，光是这么看着，就忍不住想要侍奉了")%_HH_」
		CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("二人称")%如果不讨厌的话……需要侍奉的时候就随时告诉我哦/是吗，你喜欢吗……嘿嘿……被夸奖的话天天帮你也是可以的哦……")%_HH_」"
	CASE "朝騎乗位", "朝Ａ騎乗位"
		PRINTFORML 「这个……」
		CALL PRINT_STRW, @"「%TEXTR("我想你是可以理解的/当然，我是知道的")%。%TEXTR("早上/早晨")%这件事对大家保密。%TEXTR("约定好了/闭嘴")%给我的话再给我吧_HH_」"
	CASEELSE
		IF RAND:2 == 0
			PRINTFORMW 「%CNAME("二人称")%%TEXTR(@"の寝顔が可愛かったから/")%、朝からちょっとハメを外し過ぎたかなって……イヤじゃなかった？」
		ELSE
			PRINTFORMW 「对不起……是不是给你添麻烦了。虽然%CNAME("一人称")%已经是%TEXTR("老师/人妻/大姐/年上的")%了，但还是像个情窦出来的小女孩一样%TEXTR("兴奋起来了/做了不好的事情呢")%」
		ENDIF
	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW 「今天是体育课，好好加油吧？」
	ELSE
		CALL PRINT_STRW, @"「%TEXTR("早上好，要和大姐姐一起去学校吗？/早上好。早饭做好了，和大姐姐一起吃了就去学校吧")%_HH_」"
	ENDIF
CASE "一番乗り"
	CALL PRINT_STRW, @"「好像没有人回来。现在的话……稍微放纵一些一是可以的呢，怎么样？_HH_」"
CASE "ただいま"
	PRINTFORML 「%TEXTR("我回来了/打扰了")%」
	PRINTFORMW 「待久了总觉得这里变得像我真正的家一样呢……%TEXTR("自己一个人真是不太好呢/一个人在家总是很寂寞呢")%」
CASE "既に入室"
	;家で出迎えてくれる時
	IF PLACE("自宅")
		IF COND("夜")
			CALL PRINT_STRL, @"「%TEXTR("欢迎回来/我一直在等你呢")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("又打扰你了……大姐姐现在闲着呢~有什么事情吗？/今天学校发生了什么，如果可以的话请告诉大姐姐吧……")%」"
		;昼間にいるのは周日日だけのはず
		ELSE
			PRINTFORML 「今天是休息日，从早上開始就打扰了呢~请多多関照」
			PRINTFORML 「难得的休息日呢，不和其他的女孩子一起出去约会玩耍么」
			CALL PRINT_STRW, @"「如果有时间的话……大姐姐可以陪你哦_HH_」"
		ENDIF
	ENDIF
CASE "入室打招呼"
	IF CFLAG:呼び出された
;		PRINTFORMW 「%TEXTR("どうかしたの/急ぎの用事だって聞いたけど何")%？もう……私は在宅でお仕事してると言っても何時でも闲な訳じゃないのよ」
		PRINTFORMW 「%TEXTR("怎么了/听说你有急事，是什么")%？真是的……虽说在家，我也是有工作的，也不是什么时候都有空的」
	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		PRINTFORMW 「呃……好像打扰你了呢」
	ELSE
		IF COND("夜")
			PRINTFORMW 「晚上好。打扰了」
		ELSE
			PRINTFORMW 「你好。打扰了」
		ENDIF
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	IF COND("夜")
		PRINTFORMW 「晚上好。打扰了」
	ELSE
		PRINTFORMW 「你好。打扰了」
	ENDIF
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「一家人团聚在一起真是太棒了，可以的话我其实也想要几个小孩子呢……」
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「是因为被叫出来才来的……」
	ELSE
		PRINTFORMW 「打扰了。今天做什么呢」
	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

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

	;打招呼してきた人に老师が混じっている
	IF COND("夜")
		PRINTFORMW 「晚上好。打扰了」
	ELSE
		PRINTFORMW 「你好。打扰了」
	ENDIF
	IF FIND_COND("教員", "入室打招呼中")
		;実母も老师にカウントされる不具合
		PRINTFORMW 「老师也来到家里了呢。我觉得热心学习是件好事哦」
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		CALL PRINT_STRW, @"「大家都在屋里啊。唔姆唔姆_HH_」"
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW 「听说你在呼唤%CNAME("一人称")%？」
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW 「真是忙得不可開交啊。如果有什么可以帮忙的事情请不要客气地说出来吧？」
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
		CALL PRINT_STRW, @"「%TEXTR("呵呵呵/嗯哼哼っ")%_HH_%TEXTR("真是年轻人啊/年轻真好啊")%」"
CASE "便当"
	PRINT 「
	IF NAME:MASTER == "你"
		IF TALENT:MASTER:男性
			PRINT 你
		ELSE
			PRINT 你
		ENDIF
	ELSE
		PRINTFORM %NAME:MASTER%
		IF TALENT:MASTER:男性
			PRINT 君
		ELSE
			PRINT 酱
		ENDIF
	ENDIF
	CALL PRINT_STRW, @"被拜托的话真是没法拒绝呢。我已经很努力做了，所以要好好吃哦_HH_」"
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"
	PRINTFORMW 「%TEXTR(@"呃……%CNAME("一人称")%是不是打扰了/总觉得有点尴尬呢")%……」
ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;-------------------------------------------------
@KOJO_DAILY_K52, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	IF COND("夜")
		PRINTFORML 「%CNAME("一人称")%虽然和大家不是一家人……」
		PRINTFORML 「如果可以的话，希望大家在一起能比家人更亲密」
	ELSE
		PRINTFORML 「我叫小鸟游静菜。因为刚刚来到学校」
		PRINTFORML 「社团各种各样的活动还请大家温柔地告诉我哦。请多多関照。」
	ENDIF
CASE "浑身是汗"
	PRINTFORML 「%TEXTR("呼……今天也很热呢/夏天真是没办法呢……感觉有点累了")%」
CASE "刚睡醒"
	PRINTFORML 「呼呼……虽然还很困，但是早上好」
CASE "Cosplay中"
	CALL PRINT_STRL, @"「%TEXTR("合适吗……真的合适？呵呵，表扬了也什么都不说呢/能让你那么高兴真是太好了，下次想让我做什么Cosplay呢？")%_HH_」"
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTFORML 「今天%CNAME("一人称")%准备了点心呢，尝尝怎么样？」
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML 「今天%TEXTS("点心当番")%准备的点心。真的%TEXTR("很好吃/很美味")%呢。%CNAME("一人称")%也不能输啊」
			ELSE
				PRINTFORML 「 手工制作的点心什么的很精致呢 ♪」
			ENDIF
		ELSE
			PRINTFORML 「%TEXTR(" 今天的点心是什么呢/手工制作的点心真奢侈啊 ♪")%」
		ENDIF
	;点心が亲手自制でない
	ELSE
		PRINTFORML 「%TEXTR("今天吃什么点心呢? /大家一起喝茶真開心。")%」
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K52
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
;2020/12/15　ショップを改変したので書き直し
;	PRINTFORML 「……気持ちは嬉しいんだけどね。少しだけ考える時間をくれると嬉しいかな」
;	PRINTFORML （二人の関係は不倫だけど……%CNAME("二人称")%の本気の気持ちには応えてあげたい……）
CASE "约会的约定"
	PRINTFORML 「不要误会了，这只是约会的练习。」
	PRINTFORML 「为了你能和命中注定的女朋友顺利发展，我会全力支持你的，所以就当作正式演出来努力吧？」
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	PRINTFORML 「呵呵呵，合同成立了。灵魂我就收下了~」
	PRINTFORML 「恶魔什么的是这种感觉吗?」
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	IF COND("夜")
		IF RAND:2 == 0
			PRINTFORML 「真是的……不要这么强硬啊 」
			CALL PRINT_STRL, @"「虽然%CNAME("一人称")%并不讨厌，但是不行哦，%CNAME("一人称")%好歹也是人妻啊_HH_」"
		ELSE
			PRINTFORML 「真是的……」
			CALL PRINT_STRL, @"「后续%CNAME("一人称")%会想其他女孩子道歉的，现在就请享受我们的二人时光吧_HH_」"
		ENDIF
	ELSE
		IF (PLACE("体育倉庫") || PLACE("更衣室")) && RAND:2 == 0
			PRINTFORML 「把老师带到这种地方……」
			PRINTFORML 「老实点说实话。你打算做什么?」
		ELSEIF PLACE("保健室") && RAND:2 == 0
			PRINTFORML 「说身体不舒服什么的，你是在欺骗老师吗?」
			PRINTFORML 「嘛~欺骗老师是不好的，下次不准在撒谎了」
		ELSEIF PLACE("做爱房") && RAND:2 == 0
			PRINTFORML 「把老师带到这么一个陌生的地方，」
			PRINTFORML 「到底打算做什么?」
		ELSE
			IF RAND:5 == 0
				PRINTFORML 「喂……」
				PRINTFORML 「怎么说呢，强迫是不行的……」
			ELSEIF RAND:4 == 0
				PRINTFORML 「真是的……」
				PRINTFORML 「快点拔出来啊，真的是不行的」
			ELSEIF RAND:3 == 0
				PRINTFORML 「快点拔出来吧，虽然我并不是很讨厌……」
				PRINTFORML 「%CNAME("一人称")%周围都是比你年轻得多的孩子，你要好好考虑考虑啊。」
			ELSEIF RAND:2 == 0
				PRINTFORML 「我不是因为讨厌才这么说的……啊?」
				PRINTFORML 「其他孩子会嫉妒的，你再好好考虑考虑吧」
			ELSE
				PRINTFORML 「真是的……下次再考虑考虑吧?」
				PRINTFORML 「虽然我喜欢强硬一点，但别的孩子也在呢」
			ENDIF
		ENDIF
	ENDIF
CASE "主人公的房間に連れ込まれた"
	PRINTFORML 「真是的……」
	IF RAND:2 == 0
		PRINTFORML 「老是对女孩子做色情的事会被讨厌的哟?」
	ELSE
		PRINT 「
		IF NAME:MASTER == "你"
			IF TALENT:MASTER:男性
				PRINTFORM 你
			ELSE
				PRINTFORM 你
			ENDIF
		ELSE
			PRINTFORM %NAME:MASTER%
			IF TALENT:MASTER:男性
				PRINT 君
			ELSE
				PRINT 酱
			ENDIF
		ENDIF
		PRINTFORML 「 这次就先原谅你……其实是不行的吧？ 」
	ENDIF
CASE "自宅に招待"
	PRINTFORML 「欢迎来到我家~」
	IF RAND:114514 == 0
		PRINTFORML 「只有红茶可以吗」
	;ELSEIF RAND:4 == 0
	;	PRINTFORML 「今日那个人也在%TEXTR("加班/忙着工作")%」
	ELSEIF RAND:3 == 0
		PRINTFORML 「%TEXTR("好不容易能来一次呢。/能来玩儿我很高兴。")%当做自己家随便坐吧」
	ELSEIF RAND:2
		PRINTFORML 「%TEXTR("能来一次真是不容易呢，要做点什么吗/好久没有像这样来玩了。当做自己家随便坐吧")%」
	ELSE
		PRINTFORML 「 当做自己家一样自由地放松吧。要准备什么饮料吗？ 」
	ENDIF
CASE "自室に招待"
	PRINTFORML 「 来老师的房间玩儿吗？真開心呢~ 」
	IF RAND:114514 == 0
		PRINTFORML 「只有红茶可以吗」
	ELSE
		PRINTFORML 「 当做自己家一样自由地放松吧。要准备什么饮料吗？ 」
	ENDIF
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML %CALLNAME:MASTER%和%CALLNAME:ASSI%拜访了%CALLNAME:TARGET%的房间……
		PRINTFORML
		IF RAND:2 == 0
			PRINTFORML 「今天是和其他孩子一起来的吗，呵呵~」
			PRINTFORML 「%TEXTR("好不容易能来一次呢。/能来玩儿我很高兴。")%当做自己家随便坐吧」
		ELSE
			PRINTFORML 「今日那个人也在%TEXTR("加班/忙着工作")%」
		ENDIF
	ELSE
		PRINTFORML %CALLNAME:MASTER%拜访了は%CALLNAME:TARGET%的房间……
		IF RAND:2 == 0
			PRINTFORML
			PRINTFORML 「哎呀，怎么了？」
			PRINTFORML 「%TEXTR("能来一次真是不容易呢，要做点什么吗/好久没有像这样来玩了。当做自己家随便坐吧")%」
		ELSE

		ENDIF
	ENDIF

CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「喂……」
	PRINTFORML 「真是的……看到我这样的大姐姐的%TEXTR("内裤/内衣")%也不会高兴吧?」
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML 「%TEXTR("真是的/不行哦/Hola")%……」
	PRINTFORML 「%TEXTR(@"老是做些恶作剧的话%CNAME("一人称")%也是会生气的，不要总是做奇怪的事情啊。")%」
CASE "检查内褲"
	IF COND("合意：检查内褲")
		CALL PRINT_STRL, @"「%TEXTR("很羞耻的啦/明明就不好意思……不要总是那么盯着看啊")%_HH_」"
		CALL PRINT_STRL, @"「%TEXTR(@"好了，看够了吗？是时候结束了啊笨蛋/就那么喜欢大姐姐的身体吗？其实%CNAME("一人称")%并不讨厌呢_HH_")%」"
	ELSE
		PRINTFORML 「%TEXTR("哈啊/喂")%！？」
		PRINTFORML 「%TEXTR(@"%CNAME("一人称")%现在穿着的胖次什么的就那么在意吗？就算知道了又会怎么样……/%CNAME("一人称")%和%CNAME("二人称")%都已经是大人了，可不能再像小孩子一样了")%」
	ENDIF
;前回指令対応
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML 「……我这样的欧巴桑的小穴什么的」
		PRINTFORML 「看了也没什么值得開心的的，算了吧。」
	ELSE
		PRINTFORML 「 你在干什么…… 」
	ENDIF
CASE "拜托処理性欲"
	PRINTFORML 「真是的……这种话还是拜托は%TEXTR("其他年轻人/其他女孩子")%吧」
	CALL PRINT_STRL, @"「什么？无论如何都想要拜托%CNAME("一人称")%吗……像个笨蛋似的_HH_」"
CASE "进行性処理"
	PRINTFORML 「 ……满足了吗？ 」
	CALL PRINT_STRL, @"「%TEXTR(@" 下次有空的时候拜托我吧 /下次请在%CNAME("一人称")%不忙的时候再拜托吧")%_HH_」"
CASE "帮忙消除性欲"
	CALL PRINT_STRL, @"「%TEXTR("嗯啊/哈啊")%_HH_」"
	CALL PRINT_STRL, @"「%TEXTR("非常舒服/感觉~太好了")%_HH_」"
	PRINTFORML （%TEXTR(@"%CNAME("一人称")%还想要……想要一直做下去呢/虽然很舒服……但是还有些不满足呢、我真是个欲求不满的下流女人")%
CASE "清洁口交"
	CALL PRINT_STRL, @"「%TEXTR("嗯啊/哈啊")%_HH_%TEXTR("peropero/呲溜/啾咻")%_HH_」"
	CALL PRINT_STRL, @"「%TEXTR("虽然有点舍不得/虽然还想再坚持一会儿")%_HH_%TEXTR("在这么做下去的话，我也要控制不住了/做的太多的话可不好呢")%_HH_」"
CASE "買東西"
	;買ってきた道具などで分岐
	IF COND("巨大振動棒購入") && DEVENT("巨大振動棒感想") == 0 && (ABL:Ｖ拡張 >= 2 || ABL:Ａ拡張 >= 2)
		PRINTFORML 「竟然买了这么大的振动棒。有点吓了一跳呢~❤」
		CALL PRINT_STRL, @"（竟然询问%CNAME("一人称")%使用这个的感想……还是自己想象吧_HH_）"
		CALL SET_DEVENT, "巨大振動棒感想"
	ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4
			PRINTFORML 「买了很多呢」
			PRINTFORML 「我帮你拿一些吧？」
		CASEELSE
			PRINTFORML 「哈……」
			PRINTFORML 「这么多东西，稍微有点累呢」
		ENDSELECT
	ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML 「%TEXTR("喂喂/真是的")%……」
	PRINTFORML 「%TEXTR(@"总是想做这种色情的恶作剧%CNAME("一人称")%也是会生气的哦，老是做恶作剧是不行的，明白吗？")%
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		IF COND("夜")
			IF ABL:露出癖 >= 3
				PRINTFORML 「……明明还有其他孩子在呢，就想看我这个%TEXTR("人妻/大姐姐")%的裸体，真是色情」
				CALL PRINT_STRL, @"「%TEXTR(@"要好好负责任才行，明白吗？/今后也会对%CNAME("一人称")%做出更加过分、色情的事情吧？")%_HH_」"
			ELSE
				PRINTFORML 「按照你的请求脱光了哦……真是的、就到此为止吧。%CNAME("一人称")%好歹也是一位人妻啊」
				CALL PRINT_STRL, @"「而且%CNAME("一人称")%多少也是会有羞耻心的……真是的_HH_」"
			ENDIF
		ELSE
			PRINTFORML 「真是的……%CNAME("一人称")%好歹也是老师啊」
			PRINTFORML 「在大家面前是不行的……%TEXTR("至少……只有我们两个独处的时候再说吧？/其他事情可以答应你哦，比如……只有我们两个的时候……")%」
		ENDIF
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML 「这里没有其他人吧……」
		PRINTFORML 「呜呜、要是被其他人看见可怎么办啊……」
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML 「现在只有我们两个人……如果其他的孩子来了的话」
		IF ABL:露出癖 >= 3
			PRINTFORML 「诶……让你看看也不是不可以。真是的……不是、没有没有。我变成这样都是因为你」
		ELSE
			PRINTFORML 「Hola……已经看够%CNAME("一人称")%的裸体了吧、可以穿衣服了吧？」
		ENDIF
	;個室で二人きり
	ELSE
		IF PLACE("情人旅館")
			PRINTFORML 「%TEXTR("我已经做好了心理准备/我知道了")%虽然话是这么说……」
			CALL PRINT_STRL, @"「%TEXTR(@"这样被命令的话……啊。嗯，我一点也不讨厌/被这样看着的话……%CNAME("一人称")%也变得兴奋起来了……呐、一起来做吧")%_HH_」"
		ELSE
			PRINTFORML 「好好，按照你的要求全部脱掉了 %TEXTR("嘛/Hola/那个啊")%……」
			CALL PRINT_STRL, @"「真是的……被这么盯着看的话%CNAME("一人称")%也有点%TEXTR("害羞了/心里砰砰直跳")%_HH_」"
		ENDIF
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		PRINTFORML 「%TEXTR("喂/真是的")%……%TEXTR("这样的地方/情人旅馆")%我们不应该来吧」
		PRINTFORML 「%CNAME("一人称")%姑且……也是有夫之妇。我想你应该明白吧？」
	;做爱房
	ELSE
		PRINTFORML 「……作为%TEXTR("老师/教師")%可不%TEXTR("赞同/支持")%来%TEXTR("这样的地方/情人旅馆")%」
		PRINTFORML 「在这样的大白天被叫到这里、你想做那种事情吗……」
	ENDIF
CASE "接吻"
;	IF TALENT:恋慕 && (PLACE("情人旅館") || PLACE("個室"))
	IF (PLACE("情人旅館") || PLACE("個室"))
		CALL PRINT_STRL, @"「%TEXTR("想要更多/还要更多")%……%TEXTR("想要你的亲吻/你的爱/你的肉棒")%_HH_」"
		IF TALENT:淫乱 && RAND:3 == 0
			PRINTFORM 「%TEXTR("ん/んっ/んんっ、/んぅ/はぁ/はぁん/もっと")%……%TEXTR("じゅるっ、じゅるるっ/じゅる、じゅるじゅる/ジュルルッ、ジュルッ/ジュルッ、ジュルルルッ")%
		ELSEIF RAND:2 == 0
			PRINTFORM 「%TEXTR("ちゅっ、/ちゅ…/ちゅっ…/ちゅぅ……/んちゅっ、")%%TEXTR("ちゅっ/ちゅっ…チュッ/ちゅ…チュウッ/ちゅ…ちゅう/ちゅっ…ちゅっ")%
		ELSE
			PRINTFORM 「%TEXTR("＿/ん、/んっ、/ん……")%%TEXTR("んっ…/ちゅ、んん…/んん……/んん…っ、ん…/んんっ、ん…/ぁふっ、ん…/んっ、ちゅ…")%
		ENDIF
		IF TALENT:恋慕 || TEQUIP:甜言蜜语
			CALL PRINT_STRL, @"_HH_」"
		ELSE
			PRINTFORML 」
		ENDIF
	ELSE
		PRINTFORML 「真是的……kiss什么的并不是%TEXTR("讨厌/不喜欢")%呐，但是不要再做了哦」
		IF CHARA_NUM("室内の邪魔者") == 0 && PLACE("個室") == 0
			PRINTFORML 「如果……如果有人来了怎么办?」
		ELSEIF CHARA_NUM("室内の邪魔者")
			PRINTFORML 「这种行为简直像是在炫耀一样呢……好歹%CNAME("一人称")%也是一名大姐姐了，这么对你的话。简直像个喜欢年下系的变态一样呢」
		ELSE
			PRINTFORML 「真是的……%TEXTR(@"%CNAME("一人称")%都已经是有夫之妇啊/不要忘了啊%CNAME("一人称")%已经是一位人妻了")%」
		ENDIF
	ENDIF
ENDSELECT

;何か発言してたらここまで
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 CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML 「丈夫老是出差，不怎么在家……」
	PRINTFORML 「虽然有很多不方便的地方%CNAME("一人称")%自己一个人也要好好照顾自己」
	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML 「问我和老公是在哪里相遇的……」
	PRINTFORML 「嗯……大学时代对我一见倾心……这个故事听着也不開心吧?」
	CALL SET_DEVENT, "質問２"
ENDIF

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

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	CALL PRINT_STRL, @"「%TEXTR("呵呵~」/嗯哼哼っ")%_HH_%TEXTR("在别人面前打情骂俏/别人都看到在打情骂俏")%、%TEXTR("年轻真好啊/青春真好啊")%」"
	CALL PRINT_STRL, @"「%TEXTR("是啊/难得有机会。")%、%TEXTR(@"可以的话要和%CNAME("一人称")%一起做吗？/%CNAME("一人称")%和%CNAME("二人称")%来做吧")%……」"
ELSEIF CSTR:TARGET:PREV_DAILYCOM == STR:日常イベント名
	PRINTFORML 「%TEXTR("好像很開心的样子呢/好像很期待呢，要继续吗")%？」
	PRINTFORML 「与其和%TEXTR("人妻/大姐姐")%一起%TEXTR("调情什么的/在一起什么的")%，不如去和%TEXTR("其他孩子一起玩耍/其他同学相处")%吧？」
ENDIF

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

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF FLAG:二人きり
	IF COND("夜")
		IF PLACE("情人旅館")
			CALL PRINT_STRL, @"「%TEXTR("把姐姐带到这种地方……真是个坏孩子/把有夫之妇骗进情人旅馆……这样可不行啊")%_HH_」"
			CALL PRINT_STRL, @"「%CNAME("一人称")%也%TEXTR("是个女人/有点想要了呢")%真是期待呢_HH_」"
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("两人独处/二人世界")%吗_HH_」"
			CALL PRINT_STRL, @"「……感觉我也有些心跳加速了呢……机会难得，来牵着我的手……一起舒服起来吧~嘿嘿~_HH_」"
		ENDIF
	ELSE
		PRINTFORML 「我想你应该明白%CNAME("一人称")%和%CNAME("二人称")%是老师和学生的関系」
		CALL PRINT_STRL, @"「%TEXTR("喂喂/不行啊")%……%TEXTR("如果做了奇怪的事情会发出声音的……听到了吗/就算谁都不在也不能做那样的事……你应该明白吧")%？」"
	ENDIF
ELSEIF STATE("酔酒")
	IF DEVENT("酒に酔わせた") == 0
		IF RAND:2 == 0
			CALL PRINT_STRL, @"「%TEXTR("嗯/唔/呵呵/嘿嘿")%_HH_%TEXTR("好像有点醉了呢/感觉有点醉了呢")%_HH_」"
		ELSE
			PRINTFORM 「把%TEXTR(@"%CNAME("一人称")%/这个大姐姐/这个人妻")%……灌醉什么的……你想干什么啊…」
			IF NAME:MASTER == "你"
				PRINT 你
			ELSE
				PRINTFORM %NAME:MASTER%
				IF TALENT:MASTER:男性
					PRINT 君
				ELSE
					PRINT 酱
				ENDIF
			ENDIF
			CALL PRINT_STRL, @"「%TEXTR("唔/哼")%真是个坏孩子_HH_」"
		ENDIF
		CALL PRINT_STRL, @"「……%TEXTR("这之后两个人去什么地方吧/如果不讨厌的话，两个人单独喝一杯怎么样?")%_HH_」"
		CALL SET_DEVENT, "酒に酔わせた"
	ELSE
		PRINTFORML
	ENDIF
ELSEIF CFLAG:躁动难忍 && RAND:2 == 0
	IF CFLAG:汗 >= 2
		PRINTFORML 「出汗了呢……」
	ELSEIF RAND:2 == 0
		CALL PRINT_STRL, @"「%TEXTR("呜呜/嗯啊/哈啊/嗯")%_HH_%TEXTR("啊什么/什么都没有啊/嗯……怎、怎么了?")%」"
	ELSE
		PRINTFORML 「%TEXTR("唔/感觉有点热/好热啊")%……」
	ENDIF
	PRINTFORML （%TEXTR(@"快要忍耐不住了……%CNAME("一人称")%是有夫之妇，所以必须忍耐……/一直想象着奇怪的事情……下面已经……/竟然在想讨厌的事……没被发现吧……")%）
ELSEIF DEVENT("家族からの電話") == 0 && DEVENT("家族からの電話終了") == 0 && PLACE("出先") == 0 && RAND:5 == 0
	PRINTFORML 『もしもし……』
	IF COND("夜")
		PRINT 『今、
		IF NAME:MASTER == "你"
			PRINT あの子
		ELSE
			PRINTFORM %NAME:MASTER%
			IF TALENT:MASTER:男性
				PRINT 君
			ELSE
				PRINT 酱
			ENDIF
		ENDIF
		PRINTFORML の%TEXTR("お家/所")%にお邪魔してるの』
	ELSE
		PRINTFORML 『%TEXTR("仕事中なんだから手短にね/今は職場にいるの。何か用事でもあった？")%』
	ENDIF
	PRINTFORML
	PRINTFORML %CALLNAME:TARGET%は%TEXTR("家族/夫/旦那")%からの電話に応答している……
	CALL SET_DEVENT, "家族からの電話"
;前回指令で個別に対応すると長大になるのでここで一括処理する事にする
ELSEIF DEVENT("家族からの電話終了") && DEVENT("家族からの電話終了２") == 0
	IF DEVENT("家族からの電話急に切った") == 0
		CALL PRINT_STRL, @"『%TEXTR("また後で電話するからね/ごめんね。また後でかけるから/お仕事忙しいんでしょう。また後でね")%_HH_』"
		PRINTFORML
		PRINTFORML 電話を%TEXTR("挂断后/结束通话后")%%CALLNAME:TARGET%は%TEXTR("埋怨/责备")%的视线盯着%CALLNAME:MASTER%。
		PRINTFORML
	ENDIF
	IF TALENT:恋慕 && RAND:4 == 0
		IF COND("夜")
			PRINTFORML 「真是的……明明在打电话，却还在恶作剧%TEXTR("是的/什么")% ?」
			CALL PRINT_STRL, @"「%TEXTR(@"%CNAME("二人称")%和我之间的関系是秘密哦/嫉妒了吗。感觉有些開心呢")%_HH_」"
		ELSE
			PRINTFORML 「真是的……悪再做恶作剧的话%TEXTR("下次老师也会生气的/下次你可要好好反省")%」
		ENDIF
	ELSEIF TALENT:恋慕 && RAND:3 == 0
		PRINTFORML 「不要再打电话时恶作剧」
		IF COND("夜")
			CALL PRINT_STRL, @"「%TEXTR(@"嫉妒了吗……呵呵、真是可爱呢/嫉妒了吗。%CNAME("一人称")%喜欢的人只有%CNAME("二人称")%一个哦。怎么样、開心了吗")%_HH_」"
		ELSE
			PRINTFORML 「%TEXTR("毕竟是老师，对学生的指导是要很严格的。/竟然捉弄老师，不听话的孩子是要受到惩罚的！")%
		ENDIF
	ELSEIF RAND:2 == 0
		PRINTFORML 「打电话的时候不能恶作剧啊」
		PRINTFORML 「如果暴露了的话……会很困扰的吧，互相之间」
	ELSE
		PRINTFORML 「真是的……不要再打电话时恶作剧」
		PRINTFORML 「就算享受刺激也不行。真是的」
	ENDIF
	CALL SET_DEVENT, "家族からの電話終了２"
;旦那には基本的に甘えた口調になる様にする
ELSEIF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
	IF COND("夜")
		IF RAND:2 == 0
			PRINTFORML 『また遅くなるの……』
			PRINTFORML 『別に良いけど、酱とご飯は食べる様にしてね』
		ELSE
			PRINTFORML 『今日も遅くなりそうなのね……』
			PRINTFORML 『あんまり%CNAME("一人称")%を心配させないでよね』
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 『そう……』
			PRINTFORML 『忙しいのはわかってるけど、あんまり%TEXTR("可愛い/大事な")%奥桑を一人%TEXTR("＿/ぼっち")%にしないでね』
		ELSE
			PRINTFORML 『わかったけどね……』
			PRINTFORML 『%CNAME("一人称")%だって寂しいんだから』
		ENDIF
	ENDIF
ELSE
	IF COND("夜")
		IF PLACE("出先")
			IF PLACE("情人旅館") && RAND:3 == 0
				PRINTFORML 「丈夫的工作好像会很完。所以今天没関系。」
				CALL PRINT_STRL, @"「%TEXTR("享受两个人独处的时光吧/不要在意，好好享受吧")%_HH_」"
			ELSEIF RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("有点约会的感觉/在夜晚的街上约会。真不错呢")%_HH_」"
				PRINTFORML %CALLNAME:TARGET%看起来很開心に%TEXTR(@"哼着歌拉着/微笑着拉着%CALLNAME:MASTER%的手")%
			ELSE
				CALL PRINT_STRL, @"「%TEXTR(@"感觉好像做了一件坏事……有些心跳不已啊/呵呵，感觉%CNAME("一人称")%和%CNAME("二人称")%像是一起做坏事的共犯呢")%_HH_」"
				PRINTFORML 「%TEXTR(@"被自己的学生诱惑、%CNAME("一人称")%作为一名教师完全失格了啊/虽然也想做色情的事，但是也有因为担心%CNAME("二人称")%的事情呢")%」
			ENDIF
		ELSE
			IF RAND:6 == 0 && DEVENT("家族からの電話終了２")
				PRINTFORML 「%TEXTR("那个人好像还是那么忙啊……/晚安")%
				PRINTFORML %CALLNAME:TARGET%好像在用手机和%TEXTR("老公/丈夫")%联系
			ELSEIF RAND:5 == 0
				PRINTFORML 「%TEXTR(@"%CNAME("一人称")%感觉像是又回到了学生时代呢/偶尔和大家一起玩玩游戏吧？虽然%CNAME("一人称")%玩得不一定很好")%」
			ELSEIF RAND:4 == 0
				PRINTFORML 「%TEXTR("哈欠/啊～")%总感觉有点困了呢」
;				PRINTFORML %CALLNAME:TARGET%は少し眠そうにしている
			ELSEIF RAND:3 == 0
				PRINTFORML 「%TEXTR("明天的课是……对了，这里很重要/嗯~还是先讲这里吧")%……」
				PRINTFORML %CALLNAME:TARGET%计划着明天的课
			ELSEIF RAND:2 == 0
				PRINTFORML 「%TEXTR("明天的日程是怎样的呢?/嗯，明天的安排是……")%」
;				PRINTFORML %CALLNAME:TARGET%は明日のスケジュールを確認している
			ELSE
				PRINTFORML 「%TEXTR("哦……好累啊/肩膀有点酸了呢")%……」
				PRINTFORML %CALLNAME:TARGET%揉着自己的肩膀
			ENDIF
		ENDIF
	ELSE
		IF TEXTS("曜日") == "日" && RAND:7 == 0
			PRINTFORML 「%TEXTR("今天是休息日呢，一起出去走走吧/没有约会的计划吗?难得星期天，一起出門吧")%」
		ELSEIF DEVENT("家族からの電話終了２")  && RAND:6 == 0
			PRINTFORML 「%TEXTR("那个人好像还是那么忙啊……/工作要加油啊……")%」
			PRINTFORML %CALLNAME:TARGET%好像在用手机和%TEXTR("老公/丈夫")%联系
		ELSEIF PLACE("部室") && RAND:5 == 0
			PRINTFORML 「%TEXTR("姑且/好歹")%是社团活动嘛」
			PRINTFORML 「不做点什么吗?」
		ELSEIF PLACE("部室") && RAND:4 == 0
			PRINTFORML 「说是社团活动也只是在玩吧？」
			PRINTFORML 「如果在学习上有不懂的地方我会告诉你的，有问题要及时问哦」
		ELSEIF RAND:3 == 0
			PRINTFORML 「%TEXTR("明天的课是……对了，这里很重要/嗯~还是先讲这里吧")%……」
			PRINTFORML %CALLNAME:TARGET%计划着明天的课
		ELSEIF RAND:2 == 0
			PRINTFORML 「%TEXTR("哦……好累啊/肩膀有点酸了呢")%……」
			PRINTFORML %CALLNAME:TARGET%揉着自己的肩膀
		ELSE
			PRINTFORML 「%TEXTR("明天的日程是怎样的呢?/嗯，明天的安排是……")%」
			PRINTFORML %CALLNAME:TARGET%正在确认明天的日程。
		ENDIF
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K52
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	PRINTFORML 「亲爱的……」
ELSEIF RAND:2
	PRINTFORML 「我爱你……」
ELSE
	PRINTFORML 「我……喜欢……」
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;ARGSの各CASEでの分岐において、ARGSの文字列後半に ：地の文前 を追加する事で地の文前に喋らせることもできる。
;また、そこでTFLAG:地の文スキップ = 1 とすると、本来出て来る地の文を飛ばすこともできる
;CASE "掀起裙子"の地の文の前に喋らせたりスキップさせたい場合にはCASE "掀起裙子：地の文前"を用意すればよい
;例）CASE "掀起裙子：地の文前"
;		PRINTW 試しにスキップ
;		TFLAG:地の文スキップ = 1
;-------------------------------------------------
@KOJO_DAILYCOM_K52, ARGS
;打招呼
#DIMS GREETING

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	IF PLACE("情人旅館")
		CALL PRINT_STRW, @"『%TEXTR("着替えたら行くから、少し待っててね/もう……いつも突然なんだから、少し待っててね")%_HH_』"
	;做爱房
	ELSE
		CALL PRINT_STRL, @"「%TEXTR("来了/怎么了")%……%TEXTR("随便把老师叫来，真是个坏孩子/是希望老师特别指导吗")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"在%CNAME("一人称")%厌倦之前，会一直教育你的，所以要做好心理准备哦/我要好好疼爱你的。请做好心理准备哦")%_HH_」"
	ENDIF
CASE "学園での日常"

CASE "お仕事"

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

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORML 「下雨了呢……」
		PRINTFORMW 「有什么地方避雨吗?」
	ENDSELECT

	;地の文を出す
	CALL DAILY_MESSAGE, "归途"

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
		IF TALENT:恋慕 && RAND:3 == 0
			PRINTFORMW 「多久没有和人一起打伞了呢。像这样握住手之类的……吧」
		ELSE
			PRINTFORMW 「一起打伞什么的，%CNAME("一人称")%和%CNAME("二人称")%简直就像一对恋人一样呢」
		ENDIF
	CASE "内衣選び"
		IF TALENT:恋慕 && RAND:2 == 0
			CALL PRINT_STRW, @"「买内衣什么的也需要陪伴这是抱歉了。%TEXTR(@"因为想知道%CNAME("二人称")%喜欢什么样式的内衣，所以就邀请你了/好不容易来了，所以就挑选%CNAME("二人称")%喜欢的内衣吧")%_HH_」"
		ELSE
			CALL PRINT_STRW, @"「正在为选内衣而烦恼呢，%TEXTR(@"%CNAME("二人称")%来挑选你想看的内衣吧，不过太色情的是不行的哦/偶尔也想听听%CNAME("二人称")%的意见呢，喂喂那么色情的可不行，真是的")%_HH_」"
		ENDIF
	CASE "泳装選び"
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏"
		CALL PRINT_STRL, @"「%TEXTR("不行啊/这是不行的啊")%_HH_」"
		CALL PRINT_STRW, @"「%CNAME("一人称")%已经是%TEXTR("人妻/有夫之妇")%了%TEXTR("＿/啊")%_HH_……如果无论如何都想做的话_HH_好歹也要去酒店或者旅馆吧……)」"
	CASE  "站着读书", "買食物", "物色游戏"
		IF RAND:2 == 0
			PRINTFORMW 「为了答谢你陪%CNAME("一人称")%买了这么多东西。给你买点什么吧？」
		ELSE
			PRINTFORMW 「陪着我一起逛街实在是太感谢了~有什么想要的东西吗？」
		ENDIF
	CASE "检查新刊"
		PRINTFORMW 「有些想要看的书呢，要一起去书店吗？」
	CASE "繞道"
		PRINTFORMW 「绕远路吗，简直让人回想起充满活力的学生年代呢，哎呀哎呀，老师真是佩服年轻人啊」
	CASE "直帰"
		PRINTFORMW 「直接回去吗？可以哦~回家之后要记得好好洗手哦~」
	CASE "圣诞节前夕"
		PRINTFORML 「%TEXTR("整个城市都洋溢着圣诞的气氛呢/街道上也弥漫着圣诞的气氛呢")%」
		IF TALENT:恋慕
			PRINTFORMW 「马上就要圣诞节了呢。%CNAME("二人称")%有什么安排吗？%CNAME("一人称")%呢，今年有各种各样的事情，打算一个人过……」
		ELSE
			PRINTFORMW 「马上就要圣诞节了呢。有和自己命中注定的女孩子约会吗？有什么不顺利的可以和大姐姐说哦~姐姐会一直倾听的……一直……」
		ENDIF
	CASEELSE
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR(@"其实呢……一直在等着呢，%CNAME("二人称")%的那句话/虽然可能已经被察觉了，但是我一直在等待着%CNAME("二人称")%说出口")%_HH_」"
		ELSE
			PRINTFORMW 「%TEXTR("呜呜，今天的东西稍微有点多呢，可以帮姐姐一下吗？/阿拉……孤身一人吗？那就……和姐姐一起回去吧♪")%」
		ENDIF
	ENDSELECT

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "放課後Ｈ的邀请"
	IF TALENT:恋慕 && RAND:2 == 0
		PRINTFORML 「%TEXTR("今天只有我们两个呢/如果方便的话，要和姐姐一起来吗")%？……」
		IF CFLAG:躁动难忍
			CALL PRINT_STRW, @"「……%TEXTR(@"只有我们两个人的话……有点让人按捺不住呢/%CNAME("二人称")%不想一起做些快乐的事情吗/已经……明白了吧?要一起H吗?")%_HH_」"
		ENDIF
		STR:Ｈする場所 = partnerの自宅
	ELSEIF ABL:露出癖 >= 5
		PRINTFORML 「%TEXTR("如果可以的话想/要不要稍微")%绕点远路呢？」
		PRINTFORML 「%TEXTR("这附近有公园呢，一起散散步，走一会儿再回去吧/最近想运动运动呢，附近有个公园，一起溜达溜达吧")%」
		STR:Ｈする場所 = 公園
	ELSE
		CALL PRINT_STRL, @"「%TEXTR(@"不想就这样回去吗……真是个让人没办法的孩子啊/真是的……真拿你没办法")%_HH_」"
	ENDIF
;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	PRINTFORMW

;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	RETURN 0
	IF PLACE("自宅")
		IF COND("夜")
			;お浴室
			IF PLACE("居間")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF

CASE "清洁口交：お誘い"
	CALL PRINT_STRL, @"「%TEXTR("呵呵呵/嗯哼哼")%_HH_」"
	IF RAND:2 == 0
		CALL PRINT_STRW, @"「……如果这么希望用嘴清洁的话的话，可以为你特别服务哦_HH_」"
	ELSE
		CALL PRINT_STRW, @"「是吗……那就让姐姐用嘴打扫的漂漂亮亮的_HH_」"
	ENDIF
CASE "清洁口交：射精後"
	CALL PRINT_STRL, @"「%TEXTR("唔嗯/咕噜")%……%TEXTR("真是的，怎么射了这么多啊/呵呵~出来了这么多呢")%_HH_」"
	CALL PRINT_STRW, @"「%TEXTR(@"那个样子的话……呐，还不够满意吧？/欧金金还很有精神的站着呢……%CNAME("二人称")%没有满足的话姐姐无论何时都会替你解决的")%_HH_」"
CASE "清洁口交：断った"
	PRINTFORML 「%TEXTR("遗憾/是这样啊")%……」
	PRINTFORMW 「如果你改变主意的话再跟我说，无论何时都会为你%TEXTR("侍奉/解决")%的」
;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	;RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		CALL PRINT_STRL, @"「%TEXTR("一起放松一下吧/一起快乐快乐吧")%_HH_」"
		IF COND("夜")
			CALL PRINT_STRW, @"「人妻的%TEXTR("秘密场所/里面")%的美妙之处、会好好地让你体会到的_HH_」"
		ELSE
			CALL PRINT_STRW, @"「老师的%TEXTR("课外特别辅导/体育保健课")%要好好感受哦_HH_」"
		ENDIF
	ELSE
		CALL PRINT_STRW, @"「%TEXTR("一想到要被用来做性处理……简直像个淫乱女呢，真让人兴奋/明明是一名人妻，却要给老公以外的男人性处理、真是太不像话了")%_HH_」"
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	;RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		CALL PRINT_STRL, @"「%TEXTR("呵呵呵/嗯哼哼")%_HH_在%TEXTR("套套/避孕套")%里%TEXTR("射了很多呢/射了这么多")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"那就不客气了，%CNAME("二人称")%的精液……呲溜……我就好好品尝了……咕噜/那么、好好看看%CNAME("二人称")%美味的精液是怎么老师吃干抹净的……哈啊")%_HH_」"
	ELSE
		CALL PRINT_STRL, @"「%TEXTR("呼，呼/哈")%_HH_……」"
		CALL PRINT_STRW, @"「%TEXTR("看起来十分舒服的样子呢/满足了吗？")%_HH_如果可以的话……%TEXTR("第二轮的征伐，随时接受哦/继续进行下去吧")%_HH_」"
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"
	IF PLACE("partnerの自宅") && CEVENT("自宅訪問／小鳥遊静菜")
		IF CEVENT("自宅訪問／小鳥遊静菜２") == 0
			CALL SET_CEVENT, "自宅訪問／小鳥遊静菜２"
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「今天家里只有我一个人呢，请不要担心」
			ELSE
				PRINTFORMW 「因为那个人今天没有回家的打算，所以请放心~」
			ENDIF
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「今天有什么特别的事情找%CNAME("一人称")%吗？」
		ELSE
			PRINTFORMW 「怎么了，有什么事情想和%CNAME("一人称")%商量呢？」
		ENDIF
	ENDIF
;この角色が点心当番で、その時間帯で部室に最初からいる時のセリフ
CASE "点心を用意した"
	;本日の点心はこの角色の亲手自制
	IF COND("亲手自制点心")
		PRINTFORMW 「今日は点心を作ってきたから皆で食べましょうか」
	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF STR:日常イベント名 == "打招呼ハグ"
		IF CHARA_NUM("室内の邪魔者")
			PRINTFORML 「喂喂……」
			PRINTFORMW 「%TEXTR("你没睡醒吗？/这么多人的情况下可不行啊")%」
		ELSE
			PRINTFORML 「真是的……」
			CALL PRINT_STRW, @"「%TEXTR("不管多大都是个爱撒娇的孩子呢/好了好了，你是想撒娇吧")%_HH_」"
		ENDIF
	ELSEIF STR:日常イベント名 == "打招呼接吻"
		IF CHARA_NUM("室内の邪魔者")
			PRINTFORML 「%TEXTR("喂喂/你在想什么啊")%/……」
			IF COND("夜")
				PRINTFORMW 「再怎么说%CNAME("一人称")%也是有夫之妇，在大家面前KISS可不行」
			ELSE
				PRINTFORMW 「突然亲吻老师可不行，好好反省一下自己啊」
			ENDIF
		ELSE
			PRINTFORML 「%TEXTR("呜呜/啾")%……」
			CALL PRINT_STRW, @"「%CNAME("一人称")%已经不是小女孩了啊。想和我这样的大姐姐亲吻可是不行的_HH_」"
		ENDIF
	ELSEIF STR:日常イベント名 == "打招呼口交" || STR:日常イベント名 == "打招呼舐陰"
		CALL PRINT_STRL, @"「%TEXTR("哈啊/嘤咛")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("虽然不讨厌/虽然很不错")%……%TEXTR("但是不行啊……你有在听吗/这种打招呼的方式……但是")%_HH_」"
	ELSE
		IF COND("夜")
			GREETING = こんばんは
		ELSEIF COND("昼")
			GREETING = こんにちは
		ELSE
			GREETING = おはようございます
		ENDIF
		;你に先に打招呼をされた
		IF CFLAG:打招呼した == 0
			PRINTFORML 「%TEXTR("今天发生的事情，如果可以的话请告诉大姐姐吧……/今天学校的事，姐姐想听听呢")%」
		ELSE
			PRINTFORML 「%TEXTR(@"对%CNAME("一人称")%最爱的人，不管可不行啊/为什么呢、心里一直在想%CNAME("一人称")%的事情")%」
		ENDIF
	ENDIF
CASE "叫醒"
	PRINTFORMW 「あら……おはよう」
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORML 「ふぁ……ちょっと眠いかも」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORML 「服を着ちゃうけど……」
	IF RAND:2 == 0
		PRINTFORMW 「……如果不满意的话，继续进行下去吧？」
	ELSE
		PRINTFORML 「%TEXTR("就这样草草结束了吗？/这样的话，双方都不会得到满足吧……")%」
		CALL PRINT_STRW, @"「是有什么地方不满意吗？%CNAME("二人称")%尽管%TEXTR("好好的说出来就可以了/说，我会好好改正的")%_HH_」"
	ENDIF
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW 「%TEXTR("稍微要衣服了……不准看哦/感觉有点热啊……脱件衣服吧……")%
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		CALL PRINT_STRL, @"「亲手做的点心%TEXTR("怎么样/还合胃口吗/好吃吗")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("一人称")%/大姐姐/老师")%也%TEXTR("不能输啊/是要加油的啊/想要做出做好吃的点心啊")%_HH_」"
	CASE "夸奖"
		IF RAND:2 == 0
			CALL PRINT_STRL, @"「%CNAME("二人称")%真会夸奖别人呢_HH_」"
			CALL PRINT_STRW, @"「%TEXTR(@"这么会说话的孩子很受欢迎哦~%CNAME("一人称")%可以保证/对其他孩子也是这么说的吧？诶？只对%CNAME("一人称")%这样吗？啊、嗯、这样啊")%_HH_」"
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("呼呼_HH_/真是的……")%」"
			IF RAND:2 == 0
				PRINTFORMW 「干吗这么吹捧人家啊，是想吃什么好吃的了吗？」
			ELSE
				PRINTFORML 「%CNAME("一人称")%啊、也不年轻了呢」
				PRINTFORML 「就算被表扬了也不觉得開心的…… 」
				PRINTFORML 「……呵呵~開玩笑的~」
				CALL PRINT_STRW, @"「当然会開心啦~但是不要再戏弄大人了哦_HH_」"
			ENDIF
		ENDIF
	CASE "甜言蜜语"
		IF TALENT:恋慕 && PLACE("情人旅館")
			PRINTFORM 「%TEXTR("其实/实际上")%呢。%CNAME("一人称")%
			IF COND("夜")
				PRINT も今夜は
			ELSE
				PRINT も今日は
			ENDIF
			PRINTFORMW 結婚指輪置いてきちゃったの……」
			CALL PRINT_STRW, @"「拜托了……至少现在%CNAME("一人称")%不是以人妻或者老师的身份。只是作为一名女人，希望成为%CNAME("調教時二人称")%真正的恋人，%TEXTR("一起做/一起H/两个人互相渴求彼此")%_HH_」"
		ELSEIF TALENT:恋慕 && RAND:2 == 0
			PRINTFORML 「喂喂……」
			CALL PRINT_STRL, @"「追求%CNAME("一人称")%这种有夫之妇，你想怎么样？%TEXTR("真是个坏孩子/真的愿意的话可是要负一辈子责任的")%_HH_」"
			PRINTFORMW （%TEXTR("虽然出轨是不可能的事……但至少原谅我一些吧/那个人不在，是我的错……/不暴露的话……稍微好一些吧")%）
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORML 「真是的……」
			PRINTFORMW 「你是从哪里学会这种甜言蜜语的……」
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
			PRINTFORMW 「年轻人拼命努力的样子真棒啊。再多练习练习对%CNAME("一人称")%的措辞吧~」
		ENDIF
	CASEELSE
		IF RAND:11 == 0
			IF TALENT:恋慕
				PRINTFORML 「虽然我爱着那个人……啊」
				PRINTFORMW 「但是，现在的%CNAME("二人称")%……真的不行吧」
			ELSE
				PRINTFORML 「%CNAME("二人称")%是个受欢迎的孩子」
				PRINTFORMW 「肯定已经有自己命中注定的女孩子了吧？」
			ENDIF
		ELSEIF RAND:10 == 0
			IF TALENT:恋慕
				PRINTFORML 「和%CNAME("二人称")%在一起的时候不太想戴着戒指呢」
				PRINTFORMW 「当然、%CNAME("一人称")%是一位人妻……这样的関系实际上不太合适……」
			ELSE
				PRINTFORML 「这个戒指吗…………是他买给我的结婚戒指」
				PRINTFORMW 「我很珍惜这个戒指……因为那个人根本就不想着回家」
			ENDIF
		ELSEIF RAND:9 == 0
			PRINTFORML 「%CNAME("二人称")%好像总是在做色色的事情……」
			PRINTFORMW 「也会自己一个人做吗?啊……很难回答吧。对不起」
		ELSEIF RAND:8 == 0
			PRINTFORML 「最近的孩子很会玩游戏呢」
			PRINTFORMW 「%CNAME("一人称")%虽然也想努力跟上年轻人的脚步，但是完全玩不好呢」
		ELSEIF RAND:7 == 0
			PRINTFORML 「酒吗？很美味哦」
			PRINTFORMW 「%CNAME("二人称")%如果能早点到喝酒的年纪就好了」
		ELSEIF RAND:6 == 0
			PRINTFORML 「姑且……%CNAME("一人称")%也是个新婚妻子」
			IF TALENT:恋慕
				IF RAND:2 == 0
					PRINTFORML 「只是……和%TEXTR("那个人/老公/あ丈夫")%的夜生活几乎完全没有……」
				ELSE
					PRINTFORMW 「为了消除自己的欲求不满%TEXTR("和别人做也可以……吗/和新婚的人妻做这种事情……真是太不像话了")%
				ENDIF
			ELSE
;				何処かで単身赴任イベントを用意したら差し替える事
;				PRINTFORML 「単身赴任してる旦那は全然帰って来ないんだけどね」
				PRINTFORMW 「%TEXTR("老公/丈夫/那个人")%整天加班、出差，根本不在家……」
			ENDIF
		ELSEIF RAND:5 == 0
			PRINTFORML 「%CNAME("一人称")%喜欢做的事？」
			PRINTFORMW 「我想象……比如做饭啦，打扫啦。与其说是兴趣爱好，倒不如说是刚结婚，觉得做家庭主妇该做的工作很開心」
		ELSEIF RAND:4 == 0
;			PRINTFORML 「%CNAME("一人称")%は働いてるのよ」
;			PRINTFORMW 「無職だとでも思ってたんでしょ。専業主婦じゃなくて在宅で色々やってるんだから」
			PRINTFORML 「虽然结婚之后一度是全职太太」
			PRINTFORMW 「但是一个人在家很寂寞……所以复职做老师了」
		ELSEIF RAND:3 == 0
			PRINTFORML 「有好好吃饭吗?」
			PRINTFORMW 「不要总是把精力放在色情的事上，要好好睡觉吃饭哦。」
		ELSEIF RAND:2
			PRINTFORML 「%CNAME("二人称")%の%TEXTR("本当の/＿")%本命は誰なのかな？」
			IF TALENT:恋慕 == 0 && RAND:3 == 0
				PRINTFORML 「难道说……%CNAME("一人称")%值得喜欢吗」
				PRINTFORMW 「喜欢这样一位%TEXTR("人妻/已婚之人")%，不行的，这样下去彼此都不会得到幸福的」
			ELSEIF RAND:2 == 0
				CALL PRINT_STRW, @"「如果总是懒洋洋的话，就算再怎么受欢迎，都可能会被女孩子讨厌的哦_HH_」"
			ELSE
				PRINTFORMW 「如果找到自己中意的女孩子、%TEXTR(@"就要一鼓作气拿下哦/可以悄悄告诉姐姐哦，嘿嘿")%~」
			ENDIF
		ELSE
			PRINTFORML 「%CNAME("一人称")%如果能和恶魔交易的话，想拜托恶魔的事？」
			PRINTFORMW 「可以的话……希望那个人多回家陪伴陪伴呢……」
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "拭汗"
	PRINTFORML 「我很高兴呢，帮我擦汗……」
	PRINTFORMW 「但是总感觉手法有点下流……呢」
CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW （……这……难道不会被发现吗）
	ELSE
		PRINTFORMW 「哼哼哼～啦啦♪」
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORML 「是想让我穿这个吗」
		PRINTFORMW 「好好告诉我的话，这点请求我可以答应哦~」
	ELSE
		PRINTFORML 「今天想让我穿这个吗……」
		PRINTFORMW 「%TEXTR("真是的……真是奇怪的爱好/穿上也不是不可以，但是要请我吃点什么哒♪")%」
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORML 「真是的……」
		PRINTFORML 「虽然%CNAME("一人称")%看起来还好，但是已经不年轻了。……」
		PRINTFORML 「唉……」
		PRINTFORMW %CALLNAME:TARGET%は自分のセリフに自己ダメージを受けたようだ。
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「 这个稍微有点 ……」
			PRINTFORMW 「果然%CNAME("一人称")%这样的人穿上不太好吧……」
		ELSE
			PRINTFORML 「这个……到底……」
			PRINTFORML 「%CNAME("一人称")%都已经不年轻了……不是想穿什么就穿什么的年纪了……」
			PRINTFORMW 「话是这么说。其实是不要意思的啦……」
		ENDIF
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K52
	WAIT
CASE "互动：地の文前"
	SELECTCASE STR:日常イベント名
	CASE "接吻"
		IF TALENT:巨乳 && CONDS("直前行動") == "托一托胸部"
			IF CHARA_NUM("室内の邪魔者") && RAND:2 == 0
				PRINTFORM 「%TEXTR("ん/んっ/んんっ/んぅ")%……
				IF ABL:露出癖 >= 3
					PRINTFORML %TEXTR("其他孩子的目光……啊啊、别看的一清二楚/不行啊……大家的不光都集中过来了/这样的样子被看到了……才没有、兴奋什么的")%……」
				ELSE
					PRINTFORML %TEXTR("还有别的孩子在呢……不行啊/哈啊、在大家面前……稍微忍耐一下吧/有些控制不住了、不行啊……在大家面前自慰什么的")%……」
				ENDIF
			ELSE
				PRINTFORML 「%TEXTR(@"喂喂……不行啊/真是的……明明说了不行/恶作剧什么的……不可以")%……」
			ENDIF
			CALL KOJO_RAND_K52("接吻")
			PRINTFORML
			PRINTFORM %CALLNAME:TARGET%表面上抵抗着，但是%CALLNAME:MASTER%的手已经攀上了
			IF RAND:2 == 0
				PRINTFORM {BASE:胸圍}cmもある
			ENDIF
			PRINTFORML %CONDS("罩杯")%罩杯的%TEXTR("巨乳/乳房/丰满胸部")%肆意的%TEXTR("揉捏着/抓着/玩弄着")%
			IF TALENT:淫乱 && RAND:2 == 0
				PRINTFORMW 与语言相反，面对%CALLNAME:MASTER%的%TEXTR("积极/热情")%爱抚，以及和%CALLNAME:MASTER%进行的%TEXTR("舌頭交织/亲吻/交换唾液")%…
			ELSE
				PRINTFORMW 被%CALLNAME:MASTER%一边%TEXTR("压在身下/爱抚着身躯")%、一边%TEXTR("进行着淫靡的亲吻/索取着对方")%…
			ENDIF
			TFLAG:地の文スキップ = 1
		ENDIF
	CASE "掀起裙子"
		IF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
			TFLAG:地の文スキップ = 1
		ENDIF
	ENDSELECT

CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		PRINTFORMW
	CASE "托一托胸部"
		IF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
			CALL PRINT_STRL, @"『%TEXTR("はぁっ/はぁ……")%_HH_』"
			PRINTFORMW 『%TEXTR("な……何でもないわ、気にしないでね/ごほんごほん。ちょっと咳が出ちゃっただけだから、気にしないでね")% 』
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("啊哈/啊啊")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("胸部、真是相当重呢，真是太谢谢了/如果你能一直拿着的话，我会很高兴的。")%_HH_」"
		ENDIF
	CASE "按摩"
		IF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
			CALL PRINT_STRL, @"『%TEXTR("んっ/んぅ")%_HH_』"
			PRINTFORMW 『な、何でもないわ……%TEXTR("ちょっと肩がこっちゃってマッサージしてたの/マッサージしてたらちょっと気持ち良くなっちゃっただけよ")%♪』
		ELSE
			PRINTFORML 「%TEXTR("嗯嗯/哈啊")%……」
			PRINTFORMW 「%TEXTR(@"很厉害呢。肩膀总是容易酸痛，真是帮大忙了♪/谢谢你的按摩呢~下次%CNAME("一人称")%也来帮你按摩吧？/手势好像有点下流……嗯，不过很舒服，这次就原谅你了")%」
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
				IF COND("夜")
					PRINTFORML 『……%TEXTR("んっ/っ")%』
					CALL PRINT_STRW, @"「%TEXTR("呃、没，没什么。/什么事都没有……没有")%_HH_」"
				ELSE
					CALL PRINT_STRL, @"『%TEXTR("ダメよ/こらっ")%_HH_……』"
					IF RAND:2 == 0
						PRINTFORML 『ごめんね。学校的学生が%CNAME("一人称")%をからかってきちゃって……』
					ELSE
						PRINTFORML 『何でもないんだけどね。学校的学生が调戏かけてきたからね』
					ENDIF
				ENDIF
			ELSE
				;唐突な接吻勝負の始まり
				;你が勝った
				IF (ABL:MASTER:技巧 + RAND:3 == 0) > (ABL:技巧  + RAND:2 == 0)
					IF RAND:2 == 0
						PRINTFORML 「喂喂……」
						PRINTFORMW 「这么一直亲下去、会变得奇怪的……」
					ELSE
						PRINTFORML 「%TEXTR("唔姆/啾")%……」
						PRINTFORMW 「哈啊……很擅长呢……」
					ENDIF
				ELSEIF TALENT:恋慕
					IF RAND:2 == 0
						CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
						CALL PRINT_STRW, @"「%TEXTR(@"怎么样~%CNAME("一人称")%很了不起吧/有没有吓了一跳呢。%CNAME("一人称")%毕竟是有夫之妇，这点小事")%_HH_」"
					ELSE
						CALL PRINT_STRL, @"「%TEXTR("嗯姆/呲溜")%_HH_」"
						CALL PRINT_STRW, @"「%TEXTR("总觉得……得到了年轻人的力量，变得有精神了呢/好像在在拼命努力着呢、我也不会输的")%_HH_」"
					ENDIF
				ELSE
					PRINTFORML 「%TEXTR("嗯……/哈啊")%……」
					PRINTFORMW （%TEXTR("明明是很危险的事……心里一直无法平静下来啊/被这样对待……明明是不行的，但是却讨厌不起来呢/和那个人最后一次接吻是……是什么事后来着?")%）
				ENDIF
			ENDIF
		ELSE
			IF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
				PRINTFORML 『%TEXTR("んっ/んぅ")%……』
				PRINTFORMW 『%TEXTR("何でもないわ、ちょっと飲み物がね……/ごめんね。ちょっと食べ物が喉に引っ掛かっちゃったかな")%』
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「……好久没接吻了呢」
					PRINTFORMW 「只是因为那个人忙而已、%CNAME("一人称")%在结婚的时候可是有进行甜蜜的kiss的」
				ELSE
					PRINTFORML 「那个……」
					PRINTFORMW 「我不希望你做得更多……」
				ENDIF
			ENDIF
		ENDIF
	CASE "膝枕"
		PRINTFORML 「%TEXTR("枕在我的膝盖上吧？/总觉得有些不好意思……")%」
		PRINTFORML 「%TEXTR("那就恭敬不如从命了……/既然你愿意，那我就拜托你了？")%」
		PRINTFORMW （%TEXTR("这种像恋人一样的事……其实不太好吧……/如果那个人也这样做的话……奢侈的想法啊……")%）
	CASE "泡茶"
		PRINTFORML 「%TEXTR("你给我泡茶了吗?谢谢/谢谢你~特意给我泡了茶")%」
		IF RAND:2 == 0
			CALL PRINT_STRW, @"「做家务做的很好呢，一定是%CNAME("二人称")%的母亲教育的很好吧_HH_」"
		ELSE
			PRINTFORM 「阿拉~%CNAME("二人称")%真机灵呢」
			IF TALENT:MASTER:男性
				PRINT 给旦那様
			ELSE
				PRINT 母亲大人
			ENDIF
			CALL PRINT_STRW, @"「%TEXTR("也许有一天会成为/可能有一天真的会")%呢_HH_%TEXTR(@"%CNAME("一人称")%要是真的有这样的丈夫就好了/要是他也那样有情调就好了")%」"
		ENDIF
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORML 「%TEXTR(@"那就不客气了……%CNAME("二人称")%还不行啊，真遗憾/谢谢~但是呢，%CNAME("二人称")%现在还没成年吧？请稍微忍耐一下吧")%」
		CALL PRINT_STRW, @"「%TEXTR(@"我期待着哦， 有一天能和%CNAME("二人称")%一起晚上出去饮酒作乐/稍微忍耐一下，马上就是成人了，到那时候姐姐会陪你做更多事情的")%_HH_」"
	;当然だが尾巴がある相手のみ
	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 「%TEXTR("喂喂/真是的")%……」
		PRINTFORMW 「%TEXTR("不可以随便戏弄大人啊/不能随便摸成年女性的頭啊")%。%TEXTR("倒也没有讨厌的意思……/待会儿再回报给你吧")%」
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		CALL PRINT_STRL, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_%TEXTR("谢谢/非常感谢")%_HH_」"
		CALL PRINT_STRW, @"「……%TEXTR("以后我会好好回报给你的/可以的话，待会儿让我好好服务一下")%_HH_」"
	CASEELSE
		PRINTFORMW 「非常感谢。之后就由%CNAME("一人称")%来为您做些什么吧？」
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K52
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		IF RAND:2 == 0
			PRINTFORML 「妈妈邀请一起去洗澡呢」
			PRINTFORMW 「如果可以的话……一起进去吧？」
		ELSE
			PRINTFORML 「小时候我们还一起洗过澡呢，还记得吗?」
			PRINTFORMW 「真是还念那时候呢，可以的话就一起去泡个澡吧？」
		ENDIF
	CASE "Ｈ的邀请"
		SELECTCASE DAILYCOMNAME_SELECT("卖个破绽")
		CASE "观察股间"
			SELECTCASE CONDS("直前行動")
			CASE "阴部のチラ見せ撮影", "阴部の見せつけ撮影", "肛門の見せつけ撮影"
				CALL PRINT_STRL, @"「%TEXTR("哼哼/呵呵/嗯哼哼っ")%_HH_」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%啊，光是拍张照片就满足了吗_HH_」"
			CASE "检查内褲", "检查布鲁马", "股間観察", "展示内褲", "检查阴部"
				CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
				PRINTFORML 「%CNAME("二人称")%啊，%TEXTR(@"不想和%CNAME("一人称")%一起做些快乐的事情吗？/仅仅是做这种恶作剧就能满足吗？")%」
				CALL PRINT_STRW, @"「%TEXTR(@"如果老实说的话……现在就想让你做到最后 /……如果让%CNAME("一人称")%老实说出来的话，现在就想做爱呢")%_HH_」"
			CASEELSE
				CALL PRINT_STRW, @"「%TEXTR(@"有想做爱的心情了呢……怎么样？/和%CNAME("一人称")%一起做色色的事情吧。偶尔%CNAME("一人称")%主动发出邀请也不错呢")%_HH_」"
			ENDSELECT
		CASE "沉浸在余韻里"
			IF COND("干劲性処理直後")
				CALL PRINT_STRW, @"「稍微有一点不满足呢……再来一次怎么样?_HH_」"
			ELSE
				CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_姐姐，稍微有点不满足呢。%TEXTR("你这么有活力，能再来一次吧?/再来一次吧")%_HH_」"
			ENDIF
		CASEELSE
			SELECTCASE CONDS("直前行動")
			CASE "抱住", "接吻", "亲脸頬"
				CALL PRINT_STRL, @"「%TEXTR("嗯唔/唔姆")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("呐呐/如果可以的话")%……和%TEXTR(@"姐姐/%CNAME("一人称")%と/大姐姐")%一起%TEXTR("做爱吧/做些快乐的事情吧")%？」"
			CASE "把胸部压了上去"
				CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("尽情撒娇吧/可以尽管撒娇哦")%_HH_%TEXTR("不过、一会在床上继续吧/接下来在床上怎么样")%？」"
			CASE "摩擦股間"
				CALL PRINT_STRL, @"「%TEXTR("嗯嗯/哈啊")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("本来打算诱惑你的/还想着打算勾引你的")%_HH_但是%CNAME("一人称")%看上去反而被吸引住了呢_HH_」"
			CASE "口淫"
				CALL PRINT_STRL, @"「%TEXTR("唔姆_HH_呲溜/嗯啊、呲溜_HH_哈啊、呲溜")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("呵呵/嘛嘛")%_HH_%TEXTR(@"害的姐姐的嘴巴都累了，真是个坏孩子呢，有必要好好地惩罚一下呢/勃起得这么厉害，真是个了不起的孩子啊……%CNAME("一人称")%都要按捺不住了")%_HH_」"
			CASE "手淫"
				CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
				CALL PRINT_STRW, @"「在%TEXTR(@"%CNAME("一人称")%/大姐姐")%的%TEXTR(@"手里变得这么大了呢……呐、要不要来%CNAME("一人称")%的里面一起玩耍呢/手里就这么舒服吗？真是个诚实的孩子呢。作为奖励姐姐来让你更加舒服吧")%_HH_」"
			CASE "膝枕"
				CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
				CALL PRINT_STRL, @"「明明只是在做这膝枕_HH_但是下面为什么都变成这个样子了呢？_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("真的那么想做的话……一起去床上吧/呐……想一起H吗。在床上继续吧")%_HH_」"
			CASEELSE
				CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("一起做些快乐的事情吧……不是哦，这不是出轨、只是作为肌肤接触的一环呢/一起做些色色的事情吧~那个……对那个人保密就好了，因为实在是忍不住了呢")%_HH_」"
			ENDSELECT
		ENDSELECT
		PRINTFORML
;		CALL SET_CEVENT, "Ｈ的邀请：静菜"
	CASE "推倒"
		PRINTFORMW
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		CALL PRINT_STRL, @"「%TEXTR("嗯唔/唔姆")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"偶尔……%CNAME("一人称")%也想试着主动亲亲呢/和姐姐的接吻……应该不会讨厌吧?")%_HH_」"
	CASE "膝枕"
		PRINTFORML 「嘿咻……%CNAME("一人称")%啊，很喜欢被人枕在膝盖上」
		PRINTFORMW 「哪怕是一小会儿也好，能这样待着我就已经很開心了」
	CASE "抱住"
		CALL PRINT_STRW, @"「%TEXTR("嗯/啊啊")%_HH_和%CNAME("二人称")%就这么%TEXTR("拥抱着就被治愈了呢♪♪/拥抱着、就会被治愈呢♪")%」"
	CASE "把胸部压了上去"
		CALL PRINT_STRL, @"「%TEXTR("哼哼/呵呵/嗯哼哼っ")%_HH_」"
		IF TALENT:MASTER:男性
			CALL PRINT_STRW, @"「%TEXTR("男孩子们/所有男人/男生")%都喜欢这样吧_HH_」"
		ELSE
			CALL PRINT_STRW, @"「%TEXTR("即使是女孩/就算是女孩子")%也不讨厌这样的事情吧_HH_」"
		ENDIF
	CASE "摩擦股間"
		CALL PRINT_STRW, @"「%TEXTR("hola、被这么做的话又会变得兴奋了啊/怎么样……有变得兴奋起来吗？")%_HH_」"
	CASE "手淫"
		CALL PRINT_STRL, @"「%TEXTR(@"这样说就好了吗？/呵呵、都已经这样了呢/%CNAME("一人称")%的手。是不是很舒服呢")%_HH_」"
		CALL PRINT_STRW, @"「%CNAME("一人称")%的%TEXTR("手/指尖/手中")%感受到了呢、%CNAME("二人称")%的大鸡鸡变得这么%TEXTR("大/硬")%、%TEXTR("真是可爱/好喜欢")%_HH_」"
	CASE "抚摸"
		CALL PRINT_STRL, @"「%TEXTR("摸摸摸摸/真乖真乖/好孩子好孩子")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("这样做就像以前一样……有点怀念啊/总觉得……就像以前一样。可以再向姐姐多撒娇哦")%_HH_」"
	CASE "膝枕"
		CALL PRINT_STRW, @"「%TEXTR("有时候真想就这样枕在膝盖上呢/呵呵……好久没这样枕着你了呢")%_HH_」"
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		IF PLACE("情人旅館")
			PRINTFORML 「%TEXTR("因为是茶包，所以不要太期待味道。/冰箱里瓶装的可以吗？")%」
			CALL PRINT_STRW, @"「%TEXTR("唔/咕噜")%……%TEXTR(@"只有两个人的话，有点渴啊/喂喂，不觉得紧张吗？呵呵、真正紧张的其实是%CNAME("一人称")%自己吗？")%」"
		ELSE
			PRINTFORML 「%TEXTR("请喝茶/茶已经泡好了，请用")%」
			PRINTFORMW 「%TEXTR("不能老是想着玩啊，毕竟是学生嘛/姐姐很在意你和别的女孩子的関系怎么样呢")%」
		ENDIF
	;それ以外
	CASEELSE
		IF PLACE("出先")
			IF RAND:2 == 0
				PRINTFORML 「%CNAME("二人称")%总是带着女孩子来这种地方吗？」
				CALL PRINT_STRW, @"「%TEXTR(@"唉……%CNAME("一人称")%在想什么啊？明明是个大人却被戏弄了呢/呵呵、%CNAME("一人称")%只是特别什么呢？很会開玩笑呢")%_HH_」"
			ELSE
				PRINTFORML 「总感觉气氛有点……嗯嗯、并不讨厌哦」
				CALL PRINT_STRW, @"「……%TEXTR("是这样啊、心里七上八下的呢/两个人单独来这种地方，难得有这样的机会")%_HH_」"
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORML 「啊啊……只是难得的有时间而已」
				PRINTFORMW %CALLNAME:TARGET%温柔的抚摸着%CALLNAME:MASTER%的頭发…
			ELSE
				PRINTFORML 「难得有些清闲呢……如果可以的话和%TEXTR(@"%CNAME("一人称")%/大姐姐/老师")%一起」
				PRINTFORMW 「%TEXTR(@"玩耍吧~要和我说些什么吗……遇到什么麻烦了吗?/聊天吧？%CNAME("一人称")%很喜欢恋爱故事呢/学习吗?但愿你不讨厌呢")%」
			ENDIF
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	PRINTFORML 「%TEXTR("喂喂、/真是的……")%不要问那种事，%TEXTR("明白吗/可以理解的吧")%？」
	CALL PRINT_STRW, @"「%TEXTR("到了这个年纪。那种程度的恶作剧是不会害羞的/作为一名老师呢。已经习惯这种恶作剧了，没用的")%_HH_」"
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW
	CASE "廁所イベント：相互自慰"
		PRINTFORMW
	CASE "廁所イベント：口交"
		PRINTFORMW
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K52
		WAIT
	;2020/2/2加筆 检查阴部
	ELSEIF COND("合意：检查阴部") || COND("合意：检查阴部") == 0
		;連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF COND("欲求不満") > 1
				IF COND("陰毛") >= 6 && RAND:2 == 0
					IF RAND:2 == 0
						PRINTFORML 「お願いだから……やめて……」
						PRINTFORML 「拜托了……别这样……」
						PRINTFORML 「那个……最近好久都没有那个了……」
					ELSE
						PRINTFORML 「一直盯着那样的地方看、有点讨厌……」
						PRINTFORML 「我从没想过我会做这种事……%CNAME("一人称")%啊。下面的毛没处理好……」
						PRINTFORMW 「真是太羞耻了……」
					ENDIF
				ELSEIF RAND:2 == 0
					CALL PRINT_STRL, @"「%TEXTR("这样可不行/因为这样不行啊/原谅我吧")%%TEXTR("_HH_嗯嗯/_HH_哈啊/_HH_嘤")%_HH_……」"
					CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("一人称")%/大姐姐")%的……%TEXTR("小豆豆/阴蒂")%不%TEXTR("是那么的漂亮/想年轻的孩子一样美丽")%……%TEXTR("太羞耻了/不要这么盯着啊")%……」"
				ELSE
					PRINTFORML 「%TEXTR(@"%CNAME("一人称")%觉得自己还很年轻呢/隐瞒也没办法，所以老实说吧")%……%TEXTR(@"太过分了、%CNAME("一人称")%的因为不是那么漂亮/%CNAME("一人称")%的小妹妹。不太想被看到")%……」
					CALL PRINT_STRW, @"「%TEXTR("喂/不行啊")%……%TEXTR("不要嘲笑害羞的大人啊/真的很羞耻啊")%_HH_……%TEXTR("呃呃/哈啊")%_HH_」"
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「真是的……不是都说了不行吗」
					PRINTFORMW 「……太令人羞耻了，别再这样了……」
				ELSE
					PRINTFORML 「喂喂不行啊……」
					PRINTFORMW 「那样的地方……太脏了，别凑近……」
				ENDIF
			ENDIF
		ELSE
			IF TALENT:恋慕 && COND("合意：检查阴部")
				IF RAND:2 == 0
					PRINTFORML 「%TEXTR(@"不太喜欢被别人看到这里呢/能看到吗……%CNAME("一人称")%、、因为太丢人了")%……」
					PRINTFORML 「……%TEXTR("不想被看到的原因，应该知道吧/明明知道不想被人看到的")%……」
					CALL PRINT_STRW, @"「真是的……%TEXTR(@"%CNAME("一人称")%这个的大人的阴部就这么想看吗/%CNAME("一人称")%这样的大人的阴部有那么好看吗")%……%CNAME("二人称")%真是%TEXTR("色情/变态/色鬼/善于表扬/女性杀手/可爱的孩子")%，呵呵呵_HH_」"
				ELSE
					CALL PRINT_STRL, @"「真是的……%CNAME("二人称")%为什么这么想看%TEXTR(@"我这样的……大姐姐/%CNAME("一人称")%这样成年女子")%的%TEXTR("那里/阴部")%……有那么喜欢吗？_HH_」"
					PRINTFORML 「%TEXTR(@"那、那是……年轻人这么喜欢喜欢，倒也不是不高兴/要说不好意思吗……%CNAME("一人称")%确实是有些羞耻")%」
					CALL PRINT_STRW, @"「%TEXTR("喂……话到最后……/你在认真听我说话吗?啊，不行啊_HH_")%……%TEXTR("嗯姆/嗯啊")%_HH_」"
				ENDIF
			ELSE
				PRINTFORML 「%CNAME("一人称")%的那里……」
				PRINTFORMW 「那个……虽然很难说出口，但是没什么好看的，所以不能盯着看」
			ENDIF
		ENDIF
		;連続実行
		IF (TALENT:恋慕 || COND("欲求不満") >= 3 || CFLAG:躁动难忍) && CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORML
			IF RAND:2 == 0
				PRINTFORMW %TEXTR(@"和说出的话相反的是%CALLNAME:TARGET%只是稍微扭动身体、只会做些形式上的抵抗，看不出是真心讨厌的样子/虽然嘴上表现出讨厌的样子，但是%CALLNAME:TARGET%只做了些不像样的抵抗")%……
			ELSE
				PRINTFORMW %TEXTR(@"不情愿地摇着頭 ……%CALLNAME:TARGET%似乎没有认真叛逆打算/露出不太情愿的样子，脸上沾满了羞耻，但是%CALLNAME:TARGET%缺不舍得合上大腿")%……
			ENDIF
			PRINTFORMW %CALLNAME:MASTER%慢慢的%TEXTR("把脸靠近/把鼻子凑了过去/把脸近距离埋在胯间")%……
			IF TALENT:陰唇環 && RAND:3 == 0
				IF RAND:2 == 0
					IF CEVENT("陰唇環")
						PRINTFORM %CEVENTS("陰唇環", TARGET)%の
					ENDIF
					PRINTFORM 穿環
				ELSE
					PRINTFORM %TEXTS("陰唇環")%
				ENDIF
				PRINTFORM で飾られた
			;陰毛描写
			ELSEIF COND("陰毛")
				SELECTCASE COND("陰毛")
					;身嗜み指定可能7随意生長
					CASE 7
						PRINTFORM %TEXTR("浓密/茂密/浓厚")%的阴毛覆盖着秘所
					;自然
					CASE 6
						PRINTFORM %TEXTR(@"有点长/不怎么打理的有点毛茸茸的样子/自然的/不怎么打理")%阴毛覆盖着%TEXTR("那里/下面")%
					;身嗜み指定可能5保养完毕み
					CASE 5
						IF AGE(TARGET) >= 3 && RAND:2
							PRINTFORM 小心地%TEXTR("被剪齐了/被剃光了/被保养好的")%
						ELSE
							PRINTFORM 被整好的阴毛镶边
						ENDIF
					;剃过留痕無髭にもなる
					CASE 4
						;無髭状態
						IF CONDS("陰毛") == "無髭"
							PRINTFORM 下面的阴毛稀稀拉拉的
						;剃过留痕
						ELSEIF CONDS("陰毛") == "剃过留痕"
							PRINTFORM 刮过的痕迹明显
						;还没長出来（大人）
						ELSEIF RAND:2 && BASE:陰毛%100 >= 5
							PRINTFORM 毛长齐了
						ELSE
							PRINTFORM 阴毛薄薄的
						ENDIF
					;身嗜み指定可能3光滑无毛2脱毛処理1白虎
					CASE 3
						PRINTFORM 白虎に%TEXTR("剃过毛的/被剃了阴毛的")%
					CASE 2
						PRINTFORM %TEXTR("正在脱毛的/已经脱毛的")%
					CASEELSE
						PRINTFORM %TEXTR("刮得干干净净的/阴毛被剃得光溜溜的")%
				ENDSELECT
			ENDIF
			IF AGE(TARGET) == 4
				PRINTFORM 、%TEXTR("厚实的/饱满的/成熟的/带点黑色的/变黑了的/染黑了的")%
			ENDIF
			PRINTFORM 大陰唇
			IF EQUIP:胖次 && CHECK_PANTIES("闷热的")
				PRINTFORM を隠していた%CLOCOLOR(CSTR:胖次)%の%PANTIES(TARGET, "種類")%は
				;超欲求不満
				IF COND("欲求不満") >= 3
					PRINTFORM %TEXTR("被哗啦哗啦溢出来的花蜜打湿了/散发着雌性的香味/")%
				;強欲求不満
				ELSEIF COND("欲求不満") == 2
					PRINTFORM %TEXTR("湿漉漉的/沾满了汗和爱液的蒸腾气味")%
				;欲求不満
				ELSEIF COND("欲求不満")
					PRINTFORM %TEXTR("稍微有些潮湿/使人感到微微扑鼻的气味")%
				ELSE
					PRINTFORM 對ほのかに鼻につく气味を感じさせた
				ENDIF
			ELSE
				IF COND("欲求不満") >= 3
					PRINTFORM %TEXTR("充满了哗啦哗啦爱液和色情的气息/散发着吸引雄性的甜味/微微打開，可以看到内侧的秘肉")%
				;強欲求不満
				ELSEIF COND("欲求不満") == 2
					PRINTFORM %TEXTR("湿漉漉的/扑鼻而来的汗味和爱液的蒸腾味")%
				;欲求不満
				ELSEIF COND("欲求不満")
					PRINTFORM %TEXTR("有点儿潮湿/隐约感到一股刺鼻的气味")%
				ELSE
					PRINTFORM 散发出一股淡淡的刺鼻气味
				ENDIF
			ENDIF
			PRINTFORMW ……
		ENDIF
	ELSE
		PRINTFORML 「拜托别的孩子不是更好吗?」
		PRINTFORMW 「%CNAME("一人称")%这样成年女性的那里，看到了也不会開心吧……」
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K52
		WAIT
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K52
		WAIT
	ELSEIF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
		CALL PRINT_STRL, @"『%TEXTR("んっ/んんぅ/こらっ/ちょっとっ")%_HH_』"
		PRINTFORMW 「%TEXTR("对不起。我有急事，待会儿再给你打电话/对不起。被叫去了，待会儿再给你打电话")%」
		CALL SET_DEVENT, "家族からの電話急に切った"
	ELSEIF COND("合意：检查内褲") == 0
		;連続実行連続実行時に胖次を透けて陰毛が見える
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			CALL PRINT_STRL, @"「%TEXTR("住手吧/不是说了不行吗")%_HH_……」"
			CALL PRINT_STRW, @"「……%TEXTR("啊/哈啊")%_HH_%TEXTR("喂/等下、真的不行啊")%_HH_」"
		ELSE
			IF PLACE("出先")
				PRINTFORML 「真是的……」
				CALL PRINT_STRW, @"「要对%TEXTR("成年女子/大姐姐")%做那样的事情的话……%TEXTR("心跳不已/期待")%呢，因为我也有些想做了呢_HH_」"
			ELSE
				PRINTFORML 「喂！？」
				PRINTFORMW 「这种恶作剧的坏孩子是会被惩罚的」
			ENDIF
		ENDIF
	ELSE
		CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
		IF RAND:2 == 0
			PRINTFORMW 「因为有做坏事的孩子。我可是穿了可以被好好看见的衣服来的。」
		ELSE
			PRINTFORMW 「今天使%CLOCOLOR(CSTR:胖次)%的%PANTIES(TARGET, "種類")%哦。怎么样觉得合适吗？」
		ENDIF
	ENDIF
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORML
		PRINTFORMW %CALLNAME:TARGET%今天穿的好像是%CLOCOLOR(CSTR:胖次)%的%PANTIES(TARGET, "種類")%……
	;連続実行連続実行時に胖次を透けて陰毛が見える
	ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
		;陰毛描写
		IF COND("陰毛") && ((EQUIP:胖次 && CHECK_PANTIES("Ｖ露出")) || EQUIP:胖次 == 0)
			IF EQUIP:胖次 && CHECK_PANTIES("Ｖ露出")
				PRINTFORML
				PRINTFORM %TEXTR("重要的部分都被看的一清二楚/股间的部分露出来了/開洞部分のない/阴部が露出している")%
				PRINTFORM %CLOCOLOR(CSTR:胖次)%の%PANTIES(TARGET, "種類")%から覗く
			ELSEIF EQUIP:胖次 == 0
				PRINTFORML
				PRINTFORMW %CALLNAME:TARGET%は%TEXTR("什么也没穿/没穿内裤")%……
			ENDIF
			SELECTCASE COND("陰毛")
				;身嗜み指定可能7随意生長
				CASE 7
					IF CEVENT("陰毛の名称")
						PRINTFORM  %CEVENTS("陰毛の名称")%の
					ENDIF
					PRINTFORM 被浓密的阴毛覆盖
				;自然
				CASE 6
					IF CEVENT("陰毛の名称")
						PRINTFORM  %CEVENTS("陰毛の名称")%の
					ENDIF
					PRINTFORM 被阴毛遮住了
				;身嗜み指定可能5保养完毕み
				CASE 5
					IF CEVENT("陰毛の名称")
						PRINTFORM  %CEVENTS("陰毛の名称")%に
					ENDIF
					IF AGE(TARGET) >= 3 && RAND:2
						PRINTFORM 被精心修剪过的阴毛覆盖着
					ELSE
						PRINTFORM 被整好的阴毛镶边
					ENDIF
				;剃过留痕無髭にもなる
				CASE 4
					;無髭状態
					IF CONDS("陰毛") == "無髭"
						IF CEVENT("陰毛の名称")
							PRINTFORM  %CEVENTS("陰毛の名称")%の
						ENDIF
						PRINTFORM 下面的阴毛稀稀拉拉的
					;剃过留痕
					ELSEIF CONDS("陰毛") == "剃过留痕"
						IF CEVENT("陰毛の名称")
							PRINTFORM  %CEVENTS("陰毛の名称")%の
						ENDIF
						PRINTFORM 刮过的痕迹明显
					;还没長出来（大人）
					ELSEIF RAND:2 && BASE:陰毛%100 >= 5
						IF CEVENT("陰毛の名称")
							PRINTFORM  %CEVENTS("陰毛の名称")%に
						ENDIF
						PRINTFORM 毛长齐了
					ELSE
						PRINTFORM 阴毛薄薄的
					ENDIF
				;身嗜み指定可能3光滑无毛2脱毛処理1白虎
				CASE 3
					PRINTFORM 白虎に%TEXTR("剃过毛的/被剃了阴毛的")%
				CASE 2
					PRINTFORM %TEXTR("正在脱毛的/已经脱毛的")%
				CASEELSE
					PRINTFORM %TEXTR("刮得干干净净的/阴毛被剃得光溜溜的")%
			ENDSELECT
			IF AGE(TARGET) == 4
				PRINTFORM %TEXTR("厚实的/饱满的/成熟的/带点黑色的/变黑了的/染黑了的")%
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%的大阴唇映入眼帘……
		;陰毛がはみだしている
		ELSEIF COND("陰毛") && EQUIP:胖次 && (CHECK_PANTIES("前貼") || CHECK_PANTIES("淚珠泳衣") || CHECK_PANTIES("丁字褲"))
			PRINTFORML
			PRINTFORM %CALLNAME:TARGET%的履いている%CLOCOLOR(CSTR:胖次)%の%PANTIES(TARGET, "種類")%から
			SELECTCASE COND("陰毛")
				;身嗜み指定可能7随意生長
				;自然6
				CASE IS >=  6
					IF CEVENT("陰毛の名称")
						PRINTFORM  %CEVENTS("陰毛の名称")%の
					ENDIF
					IF COND("陰毛") > 6
						PRINTFORM %TEXTR("浓密的/随意生长着的/纠缠在一起")%
					ENDIF
				;身嗜み指定可能5保养完毕み
				CASE 5
					IF CEVENT("陰毛の名称")
						PRINTFORM  %CEVENTS("陰毛の名称")%に
					ENDIF
					;死に分岐
					IF AGE(TARGET) >= 3 && RAND:2
						PRINTFORM 被精心修剪过的阴毛覆盖着
					ELSE
						PRINTFORM 被整好的阴毛镶边
					ENDIF
				;剃过留痕無髭にもなる
				CASE 4
					;無髭状態
					IF CONDS("陰毛") == "無髭"
						IF CEVENT("陰毛の名称")
							PRINTFORM  %CEVENTS("陰毛の名称")%の
						ENDIF
						PRINTFORM 下面的阴毛稀稀拉拉的
					;剃过留痕
					ELSEIF CONDS("陰毛") == "剃过留痕"
						IF CEVENT("陰毛の名称")
							PRINTFORM  %CEVENTS("陰毛の名称")%の
						ENDIF
						PRINTFORM 刮过的痕迹明显
					;还没長出来（大人）
					ELSEIF RAND:2 && BASE:陰毛%100 >= 5
						IF CEVENT("陰毛の名称")
							PRINTFORM  %CEVENTS("陰毛の名称")%の
						ENDIF
						PRINTFORM 毛长齐了
					ELSE
						PRINTFORM 阴毛薄薄的
					ENDIF
				;身嗜み指定可能3光滑无毛2脱毛処理1白虎
				CASE 3
					PRINTFORM 白虎に%TEXTR("剃过毛的/被剃了阴毛的")%
				CASE 2
					PRINTFORM %TEXTR("正在脱毛的/已经脱毛的")%
				CASEELSE
					PRINTFORM %TEXTR("刮得干干净净的/阴毛被剃得光溜溜的")%
			ENDSELECT
			IF COND("陰毛") >= 6
				PRINTFORMW 陰毛在%TEXTR("伸出来/露出来")%着……
			ELSE
				IF AGE(TARGET) == 4
					PRINTFORM %TEXTR("厚实的/饱满的/成熟的/带点黑色的/变黑了的/染黑了的")%
				ENDIF
				PRINTFORMW 大阴唇凸出来
			ENDIF
		;透けている
		ELSEIF COND("陰毛") && EQUIP:胖次 && (CHECK_PANTIES("蕾丝") || CHECK_PANTIES("透明"))
			PRINTFORML
			PRINTFORM %CALLNAME:TARGET%的履いている%CLOCOLOR(CSTR:胖次)%の%PANTIES(TARGET, "種類")%から
			SELECTCASE COND("陰毛")
				;身嗜み指定可能7随意生長
				;自然6
				CASE IS >=  6
					IF CEVENT("陰毛の名称")
						PRINTFORM  %CEVENTS("陰毛の名称")%の
					ENDIF
					IF COND("陰毛") > 6
						PRINTFORM %TEXTR("浓密的/随意生长着的/纠缠在一起")%
					ENDIF
				;身嗜み指定可能5保养完毕み
				CASE 5
					IF CEVENT("陰毛の名称")
						PRINTFORM  %CEVENTS("陰毛の名称")%に
					ENDIF
					IF AGE(TARGET) >= 3 && RAND:2
						PRINTFORM 被精心修剪过的阴毛覆盖着
					ELSE
						PRINTFORM 被整好的阴毛镶边
					ENDIF
				;剃过留痕無髭にもなる
				CASE 4
					;無髭状態
					IF CONDS("陰毛") == "無髭"
						IF CEVENT("陰毛の名称")
							PRINTFORM  %CEVENTS("陰毛の名称")%の
						ENDIF
						PRINTFORM 下面的阴毛稀稀拉拉的
					;剃过留痕
					ELSEIF CONDS("陰毛") == "剃过留痕"
						IF CEVENT("陰毛の名称")
							PRINTFORM  %CEVENTS("陰毛の名称")%の
						ENDIF
						PRINTFORM 刮过的痕迹明显
					;还没長出来（大人）
					ELSEIF RAND:2 && BASE:陰毛%100 >= 5
						IF CEVENT("陰毛の名称")
							PRINTFORM  %CEVENTS("陰毛の名称")%の
						ENDIF
						PRINTFORM 毛长齐了
					ELSE
						PRINTFORM 阴毛薄薄的
					ENDIF
				;身嗜み指定可能3光滑无毛2脱毛処理1白虎
				CASE 3
					PRINTFORM 白虎に%TEXTR("剃过毛的/被剃了阴毛的")%
				CASE 2
					PRINTFORM %TEXTR("正在脱毛的/已经脱毛的")%
				CASEELSE
					PRINTFORM %TEXTR("刮得干干净净的/阴毛被剃得光溜溜的")%
			ENDSELECT
			IF COND("陰毛") > 5
				PRINTFORMW 陰毛%TEXTR("透过布料看到了/透过布料看到了黑色的影子/发现通过透明看到/可以透明的看到")%……
			ELSEIF COND("陰毛") > 3
				PRINTFORMW 陰毛%TEXTR("透过布料看到了/透过布料看到了黑色的影子/发现通过透明看到/可以透明的看到")%……
			ELSE
				IF AGE(TARGET) == 4
					PRINTFORM %TEXTR("厚实的/饱满的/成熟的/带点黑色的/变黑了的/染黑了的")%
				ENDIF
				PRINTFORMW 大陰唇%TEXTR("被隔着透明的布看见了/被有些透明布料遮盖着/的样子透过布料清晰可见/的轮廓透过布料清晰可见")%……
			ENDIF
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K52
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		IF RAND:2 == 0
			PRINTFORML 「……真是的」
			PRINTFORMW 「这不是很丢脸吗……太过分了。%CNAME("一人称")%的那里不是很漂亮，没有什么好看的」
		ELSE
			PRINTFORML 「稍微有些黑的原因…」
			PRINTFORMW 「上了年纪就会这样吧……大概」
		ENDIF
	ELSE
		PRINTFORML 「喂喂……」
		PRINTFORMW 「不要盯着看哦。无论如何都想看的话就在床上吧?」
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			CALL PRINT_STRL, @"「%CNAME("二人称")%喜欢这么说吗？_HH_」"
			CALL PRINT_STRW, @"「心里有些激动呢……偶尔也可以帮你学习一下_HH_」"
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORML 「就好像看到了一样」
			PRINTFORMW 「与其藏起来，不如让你看看。怎么样?%CLOCOLOR(CSTR:胖次)%的%PANTIES(TARGET, "種類")%适合吗」
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("真是不好意思……请用/怎么样……希望你能喜欢")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("不太想备着那个人……总觉得是在做坏事/老公呢，好像对我穿什么都不感兴趣，很寂寞……这么被人欣赏有点高兴呢")%_HH_」"
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORML 「嗯……」
			PRINTFORMW 「什么、怎么了……」
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K52
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
		;初めて
		IF DEVENT(STR:日常イベント名) == 0 && DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
			TFLAG:地の文スキップ = 1
		ELSEIF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
			PRINTFORML 『そうそう……%TEXTR("解ってるわ/大丈夫よ")%』
			CALL PRINT_STRW, @"『%TEXTR("ふふっ/诶嘿嘿っ")%_HH_……そんな風に言われたら期待しちゃうんだからね_HH_』"
			PRINTFORML
			PRINTFORMW %CALLNAME:TARGET%一边给%TEXTR("家人/老公/丈夫")%打电话。一边向%CALLNAME:MASTER%眨了眨眼。
			TFLAG:地の文スキップ = 1
		ENDIF
			IF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
				PRINTFORML 『きゃっ……』
				PRINTFORMW 『ごめんなさい。ちょっとビッ阴蒂しちゃって』
				PRINTFORML
				PRINTFORMW %CALLNAME:TARGET%一边给%TEXTR("家人/老公/丈夫")%打电话。一边向%CALLNAME:MASTER%皱起了眉頭，用责备的目光注视着。
			ELSE
				PRINTFORML 「真是的……」
				PRINTFORMW 「真是的……你怎么老是想这种恶作剧呢?」
			ENDIF
		ELSEIF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
			IF TALENT:恋慕 && RAND:2 == 0
				PRINTFORML 『你ってそう言うの好きだったわよね』
				CALL PRINT_STRW, @"『まあ……たまになら付き合ってあげても良いわよ_HH_』"
				PRINTFORML
				PRINTFORMW %CALLNAME:TARGET%一边给%TEXTR("家人/老公/丈夫")%打电话。一边向%CALLNAME:MASTER%眨了眨眼。
			ELSE
				PRINTFORML 『あっ……』
				PRINTFORMW 『ごめんなさい。何でもないんだけど……思い出した事があってね』
				PRINTFORML
				PRINTFORMW %CALLNAME:TARGET%一边给%TEXTR("家人/老公/丈夫")%打电话。一边向%CALLNAME:MASTER%抛去了疑惑的目光。
			ENDIF
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORML 「看见了吗？」
			PRINTFORMW 「不过已经这个年纪了穿迷你裙，像是在装嫩一样呢，你觉得怎么样」
		ELSE
			IF COND("打招呼前")
				PRINTFORML 「喂喂」
				PRINTFORMW 「还没打招呼吧?」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
					CALL PRINT_STRW, @"「%TEXTR("看见了吗/看见了吧")%_HH_」"
				ELSE
					PRINTFORML 「喂喂」
					PRINTFORMW 「不要把裙子卷起来。倒不是讨厌……不行。」
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "胖次見抜き"

	ENDSELECT
;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者はPARTNER()で参照できる
CASE "連れ見抜き"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "害羞", TARGET
	;PRINTFORMW 「……%CNAME("partner")%にそういう目で見られると、ちょっと恥ずかしいですね」

;これは見抜きする(你に誘われて自家発電する)側の立場のセリフ。胖次を見せている角色はPARTNER()で参照できる
CASE "連れ見抜きに誘われた"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "夸奖", TARGET

CASE "性処理の内容変更を頼んだ際の反応"
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "口交"

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者がいる場合はPARTNER()で参照できる
	CASE "胖次見抜き"
		;連れ見抜きされた場合
		IF PARTNER()

		ELSE

		ENDIF
	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT

;TFLAG:指令中止 = 1 とすることで口上側から性欲解消を拒否できる
CASE "性欲解消を申し出た際の反応"
	SELECTCASE STR:PLAY要望
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "口交"

	CASE "Ｖ性交"
		;避孕套没有の生性交を希望
		IF COND("女性主導生性交")

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;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 "舐陰"

	CASE "舐陰莖"

	CASE "口交"

	CASE "Ｖ性交", "Ａ性交", "尿道性交"
		;挿入行為の後に口交も続けて行った場合
		IF STR:PLAY要望 == "口交"

		ELSE
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"

			CASE "Ａ性交"

			CASE "尿道性交"

			ENDSELECT
		ENDIF
	ENDSELECT
;主人公のスマホに一緒にお昼食べようよと邀请際に送る連絡文です
;ここで TFLAG:地の文スキップ = 0 とすると下の"お昼ご飯のお誘い"での地の文をカットできる
CASE "お昼ご飯のお誘い"
	PRINTFORMW 『便当余ってるんだけど一緒にどう？』
;実際に二人昼食をとっている時です
CASE "一緒にお昼ご飯"
	IF RAND:2 == 0
		PRINTFORML 「便当啊。每天都是会早起认真做的。」
		PRINTFORMW 「是啊。这个便当呢……有个家伙忘了拿」
	ELSE
		CALL PRINT_STRL, @"「便当好吃吗?是啊，谢谢你的夸奖_HH_」"
		PRINTFORML 「是特意为我做的吗……嗯，是、是啊」
		PRINTFORMW （……呜呜。对不起啊。其实因为老公忘记带便当了，所以才拿过来的）
	ENDIF
ENDSELECT
IF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
	CALL SET_DEVENT, "家族からの電話終了"
ENDIF

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

MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り"
	IF RAND:3 == 0
		MAIL_BODY = まだまだ若い子に負けないからね
	ELSEIF RAND:2 == 0
		MAIL_BODY = 脱いだら凄いんだからね
	ELSE
		MAIL_BODY = 今夜のオカズにしてもいいよ
	ENDIF
CASE "阴部自撮り", "阴茎自撮り"
	IF RAND:2 == 0
		MAIL_BODY = こういうのが好きなの？
	ELSE
		MAIL_BODY = 好きだっていうから特別にね
	ENDIF
CASE "胸部自撮り"
	IF RAND:2 == 0
		MAIL_BODY = ふふん。胸部には自信あるのよ
	ELSE
		MAIL_BODY = いつも見てるの知ってるんだからね
	ENDIF
CASE "今年の泳装自撮り"
	IF RAND:2 == 0
		MAIL_BODY = 私を海に連れてって？
	ELSE
		MAIL_BODY = 约会のお誘い、待ってるからね？
	ENDIF
CASE "学校指定の泳装自撮り"
	MAIL_BODY = 老师に何させるのよ……
CASE "体操服自撮り"
	MAIL_BODY = 老师なんだからね。私は
CASE "胸罩自撮り" ,"胖次自撮り"
	IF RAND:3 == 0
		MAIL_BODY = もっと大胆なポーズの方が好き？
	ELSEIF RAND:2
		MAIL_BODY = 今からお浴室入ってくるね
	ELSE
		MAIL_BODY = 新しい内衣買ったんだけど、どうかな？
	ENDIF
CASEELSE
	MAIL_BODY = 老师の恥ずかしい写真で楽しんでね
ENDSELECT

;地の文
PRINTFORMW 写真には『%MAIL_BODY%』というメッセージが添えられている…

;-------------------------------------------------
;约会の際のセリフ
;システム側の地の文や反応を出力させたくない場合には TFLAG:地の文スキップ = 1 としてください
;约会回数は EXP:约会経験 が+1ずつされます。初回のセリフは IF EXP:约会経験 == 0 で分岐するのが良いでしょう
;素質で分岐させる場合にはTALENT:恋慕での分岐がおすすめです
;-------------------------------------------------
@KOJO_DATE_K52, ARGS

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	PRINTFORML 「哎……」
	PRINTFORML 「周末有空吗?如果可以的话和%CNAME("一人称")%一起约会怎么样？」
	IF RAND:2 == 0
		PRINTFORMW 「不过，传出奇怪的传闻的话，双方都会很为难，所以还是就地集合吧」
	ELSE
		PRINTFORMW 「如果是平时的话，%TEXTR("老公/丈夫")%明明是会回来的、因为忙着%TEXTR("工作/出差")%，%TEXTR("好像不会回来了了/应该不可能回来了")%」
	ENDIF
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORML 「啊，其实、我是半開玩笑的……」
		PRINTFORMW 「我知道了。%TEXTR("来一场愉快的约会吧/会有安排的，不要忘记哦")%」
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「%TEXTR("是吗~ /遗憾，")%下次有机会的话%TEXTR("再一起玩吧/再一起约会吧")%？」
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	PRINTFORML 「诶……」
	PRINTFORMW 「想和%CNAME("一人称")%约会吗？只是买东西的话陪你也可以………」
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORML 「没有约会的对象？」
		PRINTFORML 「也是呢……要说闲也是闲」
		PRINTFORMW 「是……等等! !稍微给我一点化妆和换衣服的时间!？」
	ELSE
		PRINTFORML 「没有约会对象就想邀请%TEXTR("人妻/邻家的大姐姐")%吗？」
		PRINTFORMW 「%TEXTR(@"当然、没有讨厌的意思……只是应该多多関注一下其他女孩子吧，%CNAME("二人称")%啊/没办法啊。这次可以一起约会哦，但下次要和其他孩子打好招呼啊。")%
	ENDIF

;约会するにあたり、特殊な条件で着替えたりしたい時に使ってください。台詞没有で換装操作のみするのが推奨です
CASE "约会衣装に更衣"

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF TALENT:恋慕
		IF COND("同居中") == 0
				PRINTFORMW 「实在抱歉~换衣服花了点儿工夫」
		ELSE
			PRINTFORMW 「抱歉让你久等啦~女孩子做各种准备要花很多时间呢」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「总之，请设定成和自己的的老师突然相遇这种设定吧」
		ELSE
			PRINTFORMW 「师生不伦、与有夫之妇出轨。两种情况都已已经出格了，所以小心享受吧。」
		ENDIF
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		CALL PRINT_STRW, @"「新泳衣呢，机会难得，就由你给我选一件吧_HH_」"
	CASE "散歩"
		PRINTFORMW 「在附近散散步也不错呢。这一带也变了很多吧」
	CASE "尋訪美食"
		PRINTFORMW 「到处吃美食很開心呢。但是不能喝酒吧?」
	CASE "逛街"
		PRINTFORMW 「我想让你陪我买东西……可以吗？」
	CASE "去水族馆"
		CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("水族馆真的是闪闪发光的很棒呢/水族馆真漂亮呢，闪闪发光的")%_HH_」"
	CASE "去游乐园"
		IF RAND:2 == 0
			CALL PRINT_STRW, @"「从哪里開始玩起呢?我喜欢尖叫系，怎么样_HH_」"
		ELSE
			PRINTFORMW 「我喜欢的是让人尖叫的设施呢……恐怖的稍微有点……」
		ENDIF
	CASE "去电影院"
		CALL PRINT_STRW, @"「%TEXTR("这是在SNS上传得沸沸扬扬的电影，很期待啊/难得一起看电影，一起手牵着手吧")%_HH_」"
	CASE "去图书馆"
		PRINTFORMW 「%TEXTR("对待学习很认真呢，很好很好~/难得进行单独的课外辅导。我会好好教育你的~")%」
	CASE "赏花"
		PRINTFORMW 「%TEXTR("花很漂亮呢。谢谢你邀请我去赏花/一起去赏花什么的，已经有多少年没做过了呢……")%
	CASE "去游泳"
		CALL PRINT_STRW, @"「%TEXTR(@"对游泳没什么信心呢，要一起去吗？/虽说不是很擅长游泳，但是和%CNAME("二人称")%一起去就很開心了呢")%_HH_」"
	CASE "爬山"
		PRINTFORMW 「虽说不是很喜欢……但既然是%CNAME("二人称")%的邀请，那就一起吧~」
	CASE "赏红叶"
		CALL PRINT_STRW, @"「红叶很美呢~机会难得，两人一起合影吧？_HH_」"
	CASE "滑雪"
		PRINTFORMW 「哎，等等……稍微不太擅长这方面。」
	CASEELSE
		PRINTFORMW 「只有两个人的约会啊……心里有些忐忑呢」
	ENDSELECT

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

CASE "手をつなぐ"
	PRINTFORML 「真是的……虽说可能性不高」
	PRINTFORMW 「但是被认识的人看见了怎么办呢……」
CASE "手をつながない"
	PRINTFORML 「是在客气吗？」
	PRINTFORMW 「对不起啊……只有两个人的时候，我会想牵着你的手……」
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能")
		CALL PRINT_STRW, @"「%TEXTR(@"既然是难得的机会，就算是%CNAME("二人称")%喜欢色情一点的也可以穿给你看哦/%CNAME("一人称")%怎么说都是大人了呢、至少也要穿一些性感的吧")%_HH_」"
	ELSEIF RAND:2
		PRINTFORMW 「是啊~虽然是有点在意身材之类的，但是%CNAME("二人称")%想要穿的话什么都可以。」
	ELSE
		PRINTFORMW 「有各种各样的泳衣呢~因为不怎么游泳。所以可以试穿%CNAME("二人称")%喜欢的泳衣……」
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼"
		PRINTFORMW 「嗯……这个几乎全都要露出来了……」
	CASE "比基尼"
		PRINTFORML 「虽说觉得比基尼不太适合这个年龄段……」
		PRINTFORMW 「合适吗……是吗，那这个也可以呢~」
	CASE "競泳泳装"
		PRINTFORMW 「水好像变成游泳选手了，感觉背脊有点紧绷呢」
	CASE "高開衩連衣裙"
		PRINTFORML 「喂喂，等一下……」
		PRINTFORMW 「想让别人看到下面之类的……因为害羞所以不行哦」
	CASE "連体泳装"
		PRINTFORML 「虽然有点不好意思……」
		PRINTFORMW 「但既然是%CNAME("二人称")%选择的，所以可能会喜欢上呢」
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORML 「真是的……」
		CALL PRINT_STRW, @"「想让我%TEXTR("穿这么羞耻的泳装吗？/穿着这么色情的泳衣去游泳？")%_HH_」"
	ENDSELECT

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		PRINTFORML 「%TEXTR("久等了吗/抱歉让您久等了吧？")%……」
		IF RAND:2 == 0
			CALL PRINT_STRW, @"「%CNAME("一人称")%的比基尼造型怎么样？还是现在穿的更好一点呢_HH_」"
		ELSEIF RAND:2 == 0
			PRINTFORMW 「不好意思……因为被别人搭讪了了，拒绝花了很长时间」
		ELSE
			PRINTFORMW 「其他人的视线都集中在胸口……大家都很好色啊……」
		ENDIF
	CASE "Micro比基尼"
		PRINTFORML 「真是的……」
		PRINTFORMW 「%TEXTR("绝对会被认为是痴女吧……这个/聚集了太多的视线，实在是太难为情了")%
	CASE "連体泳装"
		PRINTFORML 「怎么样?」
		CALL PRINT_STRW, @"「%TEXTR("意外的很适合呢/我觉得我还不能输给年轻人 ")%_HH_」"
	CASE "競泳泳装"
		PRINTFORML 「很好的把身材凸显出来了呢」
		PRINTFORMW 「%CNAME("一人称")%游泳不是很好，今天就拜托你了~」
	;其他はだいたいエロ泳装です
	CASEELSE
		IF RAND:2 == 0
			CALL PRINT_STRW, @"「真是的……被大家的视线注视着，穿着真是辛苦、这件泳装_HH_」"
		ELSE
			CALL PRINT_STRW, @"「明明是%TEXTR("老师/人妻")%却打扮成这个样子、%CNAME("二人称")%想要让%CNAME("一人称")%被其他男人搭讪做些糟糕的事情吗？_HH_」"
		ENDIF
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	IF TALENT:恋慕 && RAND:2 == 0
		PRINTFORML 「……因为今天%CNAME("一人称")%和%CNAME("二人称")%是一对恋人」
		PRINTFORMW 「%TEXTR("所以用嘴来为您服务吧……/所以就用嘴来侍奉吧……")%」
	ELSE
		PRINTFORML 「……%TEXTR(@"%CNAME("一人称")%/老师")%也有点心动想做了」
		PRINTFORMW 「%TEXTR("所以用嘴来为您服务吧……/所以就用嘴来侍奉吧……")%」
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;映画館などで横並びに座った状態での手交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "请求偷偷手交"
	PRINTFORMW 「……我会用手帮您的」
CASE "接吻"
	CALL PRINT_STRL, @"「%TEXTR("嗯嗯/唔嗯")%_HH_」"
	CALL PRINT_STRW, @"「%TEXTR("嗯/哈啊")%_HH_……不行啊、在这种地方亲吻……」"
CASE "摸屁股"
	IF TALENT:恋慕 && RAND:2 == 0
		CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_……%TEXTR("请多做一些/麻烦继续下去")%……」"
	ELSE
		CALL PRINT_STRW, @"「%TEXTR("嗯/哈啊")%_HH_不要被其他人发现啊」"
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问"
	PRINTFORMW 「%TEXTR("是啊/要去哪里好呢?")%……」
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
CASE "专心看电影"
	;PRINTFORML 「映画に集中しなさい……」
	;PRINTFORMW %CALLNAME:TARGET%にこっそりと手をつねられた。
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;文化祭イベント
;ここでは"约会相手ではなく出し物をしている人"が喋ります。
;本来の约会相手はACTORに角色番号が入ってます
CASE "乐队演奏", "演劇", "占卜館", "恐怖屋敷", "烦悩相談室", "PaFuPaFu屋", "女仆咖啡厅", "執事咖啡厅", "西式料理店"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	IF TALENT:恋慕
		PRINTFORML 「真是開心啊……」
		CALL PRINT_STRL, @"「简直像一对恋人一样、我们两个_HH_」"
		CALL PRINT_STRW, @"「如梦似幻的时间总是会结束的……只有现在请让我在%CNAME("二人称")%的怀里尽情撒娇吧_HH_」"
	ELSE
		CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
		IF RAND:2 == 0
			PRINTFORML 「约会什么的只有学生时代才有呢……」
			CALL PRINT_STRW, @"「虽然有点兴奋，但这还不算完吧?_HH_」"
		ELSE
			PRINTFORML 「好久没好好约会了呢，好激动啊……」
			CALL PRINT_STRW, @"「就这样回去也可以……嗯……之后还有时间吗_HH_」"
		ENDIF
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「哈啊、%CNAME("一人称")%也快要受不了了……啊_HH_」"
			CALL PRINT_STRW, @"「%TEXTR(@"现在请忘记一切……尽情疼爱我吧/全部忘记……现在只想成为%CNAME("二人称")%的女人/请告诉%CNAME("一人称")%的身体……让%CNAME("一人称")%意识到没有%CNAME("二人称")%是不行的")%_HH_」"
		ELSE
			PRINTFORML 「毕竟是恋人啊……」
			CALL PRINT_STRW, @"「%TEXTR("知道了/好了")%_HH_……%TEXTR("现在好好相爱吧/让我们来确认两个人的爱吧")%_HH_」"
		ENDIF
	ELSE
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR("今天真是太感谢了/今天非常開心呢")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR(@"如果可以的话，回去的时候顺便去%CNAME("一人称")%的家坐坐怎么样？/今天那个人也不在呢……要不要来%CNAME("一人称")%的家里坐坐呢？")%_HH_」"
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("今天真是開心啊/今天非常開心呢")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("明明是有夫之妇/明明结婚了")%……%TEXTR(@"却让人这么心动，真是个坏孩子啊/不能这么激动了，再这样的话……%CNAME("一人称")%马上就要按捺不住了")%_HH_」"
		ENDIF
	ENDIF
ENDSELECT


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;28は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
@WISH_K52_ADDSELECT
;STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("追加選択肢その１", 16)% … %CALLNAME:TARGET%にＡＡＡしてもらいます/
;STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("追加選択肢之２", 16)% … %CALLNAME:TARGET%にＢＢＢしてもらいます/

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K52_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
	;フラグを弄る場合はそれもここで行う
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
	;フラグを弄る場合はそれもここで行う
ENDSELECT

;-------------------------------------------------
;Talk指令の選択肢を追加
@DAILY1_K52_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K52_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
ENDSELECT

;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K52_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"
IF SIZE("阴茎", MASTER) >= 2
	STR:選択肢 += "ハプニングを装う/"
ENDIF
;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K52_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
CASE "ハプニングを装う"
	PRINTFORMW %CALLNAME:MASTER%伪装成意外事件地将股间靠近了%CALLNAME:TARGET%的手，被%TEXTR("触摸了/抚摸了/爱抚了")%…
	PRINTL
	IF DEVENT("家族からの電話") && DEVENT("家族からの電話終了") == 0
		PRINTFORMW 『%TEXTR(@"お仕事はどう……%CNAME("一人称")%の方は順調だから心配しないで/お仕事はどう？　身体を壊さない様にね/酱とご飯食べてる？　心配してるんだからね")%』
		IF COND("夜")
			PRINTFORMW 『%TEXTR("そろそろ寝る支度するから、回頭见/ごめんね。ちょっと眠くなってきちゃったみたい")%』
		ELSE
			PRINTFORMW 『%TEXTR("そろそろ戻らないといけないから、回頭见/ごめんん。そろそろお仕事に返回から、回頭见")%』
		ENDIF
		PRINTFORML
		PRINTFORM 「%TEXTR("電話中/お話中")%の
		IF COND("夜")
			PRINT 人妻
		ELSE
			PRINT 老师
		ENDIF
		CALL PRINT_STRW, @"に%TEXTR("不要恶作剧啊、真是个坏孩子/你想一边打电话一边用手吗?太色情了、真是的")%_HH_」"
		CALL SET_DEVENT, "家族からの電話終了"
		CALL SET_DEVENT, "家族からの電話急に切った"
	ELSE
		CALL PRINT_STRW, @"「……%TEXTR("真是的/喂喂/这么色情的事情")%_HH_」"
	ENDIF
	PRINTL
	PRINTFORMW 触摸到%CALLNAME:MASTER%的%TEXTR("巨大/雄伟/坚硬")%肉棒的%CALLNAME:TARGET%，小脸%TEXTR("被染成了可爱的粉红色/露出了害羞的颜色")%。

ENDSELECT

;-------------------------------------------------
;约会行き先の選択肢を追加。
@DATE_K52_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K52_ADDSELECT
SELECTCASE SAVESTR:约会
CASE "追加選択肢その１"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
CASE "追加選択肢之２"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
ENDSELECT

;-------------------------------------------------
;場所を変える指令の選択肢を追加
@MOVE_K52_ADDSELECT
SIF PLACE("自宅")
	STR:選択肢 += @"%CSVCALLNAME(NO:TARGET)%的家/"
;STR:選択肢 += "追加選択肢之２/"


code:
;-------------------------------------------------
;取引画面と、购物の際の台詞を記述します
;-------------------------------------------------
;取引画面での台詞。悪魔以外は大部分が不要です
;-------------------------------------------------
@KOJO_WISH_K52, ARGS
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER

		ELSE
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORML 「如果是%CNAME("二人称")%的请求的话，我什都愿意听……」
			PRINTFORML 「%CNAME("一人称")%既不是恶魔，也不是女仆桑，所以那些了不起的事情无法实现，对不起...」
		ELSE
			PRINTFORML 「郑重地拜托%CNAME("一人称")%的事情是什么？」
			PRINTFORML 「我在听着呢，如果不能实现的话对不起」
		ENDIF
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
;		旧式は一旦封印する
;		IF RAND:2 == 0
;			PRINTFORMW 「……谢谢」
;			PRINTFORMW 「%CNAME("一人称")%也喜欢着%CNAME("二人称")%」
;			PRINTFORMW 「但是……能给我一点时间下结论吗?」
;			PRINTFORMW 「等到%CNAME("二人称")%从学校毕业后，这份感情如果没有改变就在一起吧」
;		ELSE
			PRINTFORMW 「告白什么的已经有几年没有听过了呢……谢谢。真的很心」
			PRINTFORMW 「%CNAME("一人称")%也喜欢你。%CNAME("一人称")%也爱着%CNAME("Master")%」
			PRINTFORML
			PRINTFORMW 「%CALLNAME:MASTER%和%CALLNAME:TARGET%接吻后交融在了一起…」
;			WAIT
			PRINTFORML
			PRINTFORMW 「简直像做梦一样」
			PRINTFORMW 「但是……%CNAME("一人称")%必须向你道歉。对不起」
			PRINTFORMW 「……%CNAME("一人称")%和你已经超越了很久以前无法跨的界限」
			PRINTFORMW 「%CNAME("一人称")%不管怎么说是人妻」
			PRINTFORMW 「好几次都觉得必须要放弃这种関系。是为了满足自己的欲望……只是为了这个而已...」
			PRINTFORMW 「我们夫妻的関系呢。除了性生活以外，对那个人没有任何不满。倒不如说……得到满足后，夫妻関系比以前好了」
			PRINTFORMW 「多亏了%CNAME("Master")%吧。%CNAME("一人称")%的欲求不满消失了……」
			PRINTFORMW 「%CNAME("一人称")%真是个...卑鄙又不知廉耻的女人」
			PRINTFORMW 「我爱你，但我还爱我的丈夫」
			PRINTFORMW 「只要陪伴在%CNAME("Master")%的身边就可以了。这份心情不是虚假的」
			PRINTFORMW 「……即便如此，%CNAME("一人称")%还是不能成为你的恋人。真是对不起啊」
			PRINTFORMW 「因为……」
			PRINTFORMW 「%CNAME("一人称")%已经是欧巴桑了。已经不是情窦初開，怀着天真烂漫尽情表达恋爱心情的少女了」
			PRINTFORMW 「现实啊。真是残酷啊」
			PRINTFORMW 「%CNAME("一人称")%には%CNAME("Master")%のお嫁桑になる資格なんてないって、本当は%CNAME("一人称")%自身が一番解ってる」
			PRINTFORMW 「考虑一下两个人的年龄差……简直像母亲和孩子一样」
			PRINTFORMW 「等%CNAME("Master")%从学生毕业的时候，%CNAME("一人称")%已经完全变成老太婆了」
			PRINTFORMW 「……这段恋情没有未来。两个人越认真越伤」
			PRINTFORMW 「但是呢。现在必须马上得出结……不是吗」
			PRINTFORMW 「%CNAME("一人称")%现在还差一……我想享受这段如梦似幻的时间」
;		ENDIF
	;失敗
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「真是的……」
			PRINTFORMW 「因为%CNAME("一人称")%已经是妻了，%TEXTR("别開玩笑了/放弃吧")%」
		ELSE
			PRINTFORML 「真是的……」
			PRINTFORMW 「虽然我明白%CNAME("二人称")%心情……但是回答给我有点难啊」
		ENDIF
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			PRINTFORML 「想要用金钱交易%TEXTR("内衣/胖次")%之类的……」
			PRINTFORMW 「要瞒着其他孩子哦？」
			TFLAG:取引価格 = 1000
		ELSE
			PRINTFORMW
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 500
	ENDIF
CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

CASE "胖次拒否"
	;取引を拒否した際
;	IF TFLAG:取引拒否
;
;	ELSE
;
;	ENDIF
	IF RAND:2 == 0
		PRINTFORML 「真是的……」
		PRINTFORMW 「不要总是奇怪的话啊。这次的事就当做忘记了吧」
	ELSE
		PRINTFORML 「真是的……」
		PRINTFORMW 「你在想什么啊……真是个小色鬼」
	ENDIF
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾

	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉

	;取引初成功
	ELSEIF COND("合意：全裸化") == 0
		CALL PRINT_STRL, @"「别一直盯着人家看嘛……很难为情的」"
		CALL PRINT_STRW, @"（对不起……明明被丈夫以外的人看到了，心里却这么兴奋。虽然知道是不对的……但是下面却開始湿润了）"
	ELSE
		IF RAND:2 == 0
			CALL PRINT_STRL, @"「%TEXTR("真拿你没办法啊/只是一次哦")%_HH_……」"
			CALL PRINT_STRW, @"「%TEXTR("大姐姐の身体を見たいだなんて、エッチなんだから/他の若い子に頼んだ方が良いんじゃないの。どうしてもって頼まれたから言う事を聞いて给んだからね")%_HH_」"
		ELSE
			CALL PRINT_STRL, @"「%TEXTR(@"どうしてもって言うから……しょうがなく脱掉んだからね/お願いされたからよ。こんな事は%CNAME("二人称")%にしかして不给んだからね")%_HH_」"
		ENDIF
		IF RAND:2 == 0
			CALL PRINT_STRW, @"（明明是背德的行为……心里却这么兴奋。虽然知道是不对的……但是下面却開始湿润了）"
		ELSE
			CALL PRINT_STRW, @"（明明知这种事不好……但是光是被看到……小穴的爱液就止不住了）"
		ENDIF
	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否

	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		CALL PRINT_STRW, @"「%TEXTR("那个啊/这个啊")%……%TEXTR("有其他孩子在呢……只有两个人独处时再脱了给你看，好吗/这种事……只有两个人在一起的时候再说吧")%_HH_」"
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「真是的……想看到这样的欧巴桑的裸体」
			PRINTFORMW 「因为%CNAME("一人称")%已经是有夫之妇了，除了%TEXTR("老公/丈夫")%以外是不能给别人看的。」
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("当然不行了/你是笨蛋吗/在想什么啊")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("皆の前で裸体になって欲しいなんて……何を考えているの/こんなおば桑の裸体を晒して欲しいなんて、ダメに決まってるでしょ")%_HH_」"
		ENDIF
	ENDIF

;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "事后避孕药取引"
	IF TALENT:恋慕
		PRINTFORML 「%TEXTR(@"%CNAME("一人称")%真是浪费……这么多健康的小蝌蚪在游泳/其实%CNAME("一人称")%很喜欢啊……被中出什么的/因为想看到%CNAME("Master")%的笑颜……%CNAME("一人称")%也希望射在里面")%」
		IF RAND:2 == 0
			PRINTFORMW 「这样就不会怀上%TEXTR("孩子/宝宝")%了吧。这下%TEXTR("老公/丈夫")%就不会怀疑了呢……」
		ELSE
			PRINTFORMW 「%TEXTR("どうしてもって頼まれたら断りづらいじゃない。今回だけなら考えて给/そうね……お試しだと思えばまあ、いいかな/しょうがないなあ。今回だけよ")%
		ENDIF
	ELSE
		PRINTFORML 「%TEXTR("如果真要避孕的话，直接戴上避孕套不就好了/总是吃药可不太好哦，你讨厌避孕套吗？/不喜欢避孕套吗。明明我可以给你戴上的说")%……」
		PRINTFORMW 「%TEXTR(@"说的也是呢……%CNAME("一人称")%如果怀孕的话可就麻烦了/说的也是呢……%CNAME("一人称")%也不想怀上啊/%CNAME("一人称")%是有夫之妇。别忘了啊?")%
	ENDIF
CASE "事后避孕药"
	;代金をまけてくれた場合
	IF TFLAG:値切った
		;所持金が足りなかった場合です
		;現状、ここに来るのは恋慕无の時のみ
		PRINTFORMW 「没办法啊。不足的部分先拿出来给你」
	;拝み倒したら代金を払わなくても許してくれた場合
	ELSEIF TFLAG:取引価格 == 0
		;現状、ここに来るのは恋慕有の時のみ
		PRINTFORML 「真是的……这次由我来代替支付吧」
		CALL PRINT_STRW, @"「那部分的补偿下次再说吧_HH_」"
	ELSE
		;普通にお金を払った場合
		;口上无でも自然な感じです
		;ですが恋慕のときなどは、なにか一言あってもいいかもですね
		IF TALENT:恋慕 && RAND:2 == 0
			IF RAND:2 == 0
				PRINTFORML 「%CNAME("一人称")%其实……想要%CNAME("Master")%的孩子呢」
				PRINTFORMW 「但是得等到和那个人的関系彻底洗清之后了」
			ELSE
				PRINTFORML 「%CNAME("一人称")%也并不是不想要%CNAME("Master")%的孩子……」
				PRINTFORMW 「可是，那是要在两人成为了残酷的関系之后才行呢。在那之前请忍耐一下」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「没办法啊……」
				PRINTFORMW 「被拜托到那种地步……真是没法拒绝呢」
			ELSEIF RAND:2 == 0
				PRINTFORML 「真是的……看起来真是很開心呢」
				PRINTFORMW 「其实是不行的。这一点你要知道」
			ELSE
				PRINTFORML 「真是的……那么讨厌避孕套吗？」
				PRINTFORMW 「%CNAME("一人称")%也想要个孩子，所以不太想喝口服避孕药」
			ENDIF
		ENDIF
	ENDIF

CASE "事后避孕药拒否"
	;これはCASE "事后避孕药取引"内でTFLAG:取引拒否 = 1 となる分岐を作った場合のみ
	IF TFLAG:取引拒否

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
		;一旦共通事后避孕药拒否を用意する
		IF RAND:2 == 0
			PRINTFORMW 「事后避孕药…真的要避孕的话，下次提前戴上避孕套，怎么样%TEXTR("＿/？ 不行")%？」
		ELSE
			PRINTFORML 「%TEXTR("虽然说要避孕的心情很開心/虽然能够理解避孕的重要性")%……但是事后避孕药有点」
			IF COND("夜")
				PRINTFORM %TEXTR(@"%CNAME("一人称")%/大姐姐")%
			ELSE
				PRINTFORM %TEXTR(@"%CNAME("一人称")%/老师")%
			ENDIF
			CALL PRINT_STRW, @"が避孕套を付けてから%TEXTR("ワガ妈妈言わないの/我慢してね")%_HH_」"
		ENDIF
	ENDIF
CASE "同居拒否"

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")

		ELSE

		ENDIF
	ENDIF

;COND("口服避孕薬派")かどうかで初回が"口服避孕薬を飲んで欲しい"or"口服避孕薬を止めて欲しい"に分かれます
CASE "口服避孕薬"
	;角色が口服避孕薬派なら、こっちだけ書いてください
	IF COND("口服避孕薬派")
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬

		;口服避孕薬の服用を止めてもらう
		ELSE
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0
				PRINTFORML 「%TEXTR("我知道啦~既然都这么拜托了，那就喝吧/都已经这么拜托人家了……实在让人没法拒绝呢")%」
				PRINTFORML （%TEXTR("因为和那个人几乎没有晚上的性生活……不会暴露的吧/因为总是出差，很少有机会和他做呢……应该没问题吧")%）
				PRINTFORMW 「喏，避孕药已经服用了……作为交换，不要让其他人知道我们的……秘密関系，可以吗?」
			ELSE
				PRINTFORML 「还想再服用啊」
				PRINTFORMW 「到是无所谓……」
			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE
			PRINTFORML 「我明白了。但是从今以后要给肉棒戴上避孕套哦」
			PRINTFORMW 「怀孕的话会很困扰的不仅仅是%CNAME("一人称")%，%CNAME("二人称")%也是」
			TFLAG:取引拒否 = 1

		ENDIF
	ENDIF
;COND("口服避孕薬派")の人に口服避孕薬服用を止めてもらうお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬中断拒否"

;COND("讨厌口服避孕薬")の人に口服避孕薬服用のお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬服用拒否"

CASE "淫紋拒否"

;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORML 「淫纹贴纸？」
		PRINTFORMW 「没听说过呢……」
	ELSE
		PRINTFORML 「还想贴淫纹贴纸吗？」
		PRINTFORMW 「嘛……也不错」
	ENDIF

CASE "淫紋贴纸"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	;淫紋の数字って最大4だっけ？。忘れたわ……
	SELECTCASE MARK:淫紋
	CASE 1
		PRINTFORML 「想增加淫纹的画数？」
		PRINTFORMW 「可以比现在更加舒服……让人提起性趣了呢」
	CASE 2
		PRINTFORML 「还要再增加淫纹的画数吗……」
		PRINTFORMW 「不行，会变得奇怪的。真的不行……」
	CASE 3
		PRINTFORML 「再增加淫纹的画数……」
		CALL PRINT_STRW, @"「是啊。如果能变得更加舒服……那就拜托了HH_」"
	CASE 4
		CALL PRINT_STRL, @"「哈HH_……哈HH_……」"
		CALL PRINT_STRW, @"「淫纹画数HH_ 如果再增加的话……要变成只知道做爱的荡妇了……不可以啊、哈、哈啊」"
	CASEELSE
		PRINTFORML 「想雕刻淫纹吗？」
		PRINTFORML 「如果是%CNAME("二人称")%的愿望的话我愿意哦……但是被看到图案有点……」
		PRINTFORML 「诶……能自由地将淫纹隐藏，是真的吗？」
		PRINTFORMW 「简直像魔法一样呢……好吧」
	ENDSELECT
CASE "淫紋"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"
	PRINT 「
	IF COND("夜")
		PRINT 人妻
	ELSE
		PRINT 老师
	ENDIF
	PRINTFORML に性処理%TEXTR("係を拜托了/係になって欲しい/係を頼む")%なんて……」
	PRINT 「
	IF NAME:MASTER == "你"
		IF TALENT:MASTER:男性
			PRINT 你
		ELSE
			PRINT 你
		ENDIF
	ELSE
		PRINTFORM %NAME:MASTER%
		IF TALENT:MASTER:男性
			PRINT 君
		ELSE
			PRINT 酱
		ENDIF
	ENDIF
	IF RAND:2 == 0
		CALL PRINT_STRW, @"は%TEXTR("イケナイ/悪い")%子%TEXTR("ね/なのね")%_HH_」"
	ELSE
		CALL PRINT_STRW, @"の%TEXTR("頼み/お願い")%だから%TEXTR("聞いて/して")%给けど、本当はダメ%TEXTR("よ/なんだからね")%_HH_」"
	ENDIF
CASE "性処理の一時中断"
	PRINTFORML 「是吗……」
	PRINTFORMW 「虽然有点遗憾，但是%TEXTR("也没办法啊/如果再改变主意的话随时找我哦")%」
CASE "性処理拒否"
	PRINTFORM 「%CNAME("一人称")%是
	IF COND("夜")
		PRINT 人妻
	ELSE
		PRINT 老师
	ENDIF
	PRINTFORMW 为什么呢……」
	PRINT 「
	IF NAME:MASTER == "你"
		IF TALENT:MASTER:男性
			PRINT 你
		ELSE
			PRINT 你
		ENDIF
	ELSE
		PRINTFORM %NAME:MASTER%
		IF TALENT:MASTER:男性
			PRINT 君
		ELSE
			PRINT 酱
		ENDIF
	ENDIF
	PRINTFORMW 虽然知道了你的%TEXTR("请求/请求")%，但我毕竟是个人妻，%TEXTR("这是不可以的/抱歉不能帮你性处理")%……」
;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"

CASE "给我看尾巴拒否"

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"

CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	CASE CONDS("普段の髪型")
		PRINTFORMW
	CASE "齐刘海"
		PRINTFORMW
	CASE "直髪"
		PRINTFORMW
	CASE "卷髪"
		PRINTFORMW
	CASE "外八"
		PRINTFORMW
	CASE "双马尾"
		PRINTFORMW
	CASE "马尾辫"
		PRINTFORMW
	CASE "三股辫"
		PRINTFORMW
	CASE "编起来"
		PRINTFORMW
	CASE "団子頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	;RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		PRINTFORML 「这是……」
		PRINTFORMW 「%TEXTR(@"这也太開放了吧……真让人难为情/想让%CNAME("一人称")%穿上这个吗、真是的")%
	ELSEIF CHECK_OUTER("渔网连褲襪")
		CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
		PRINTFORM 「试着穿上了%CNAME("二人称")%说的去逛街……什么感想？才不告诉你」
		IF COND("夜")
			PRINTFORM %CNAME("一人称")%
		ELSE
			PRINT 老师
		ENDIF
		CALL PRINT_STRW, @"%TEXTR("因为/也")%%TEXTR("心跳/兴奋")%%TEXTR("做了这种事/做了这样的事/做了这样的事情")%_HH_」"
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORML 「%TEXTR("真是的/喂")%……」
		CALL PRINT_STRW, @"「%TEXTR("总觉得有讨厌的视线呢，是心理作用吗？/被别人那样看的话，好难为情")%_HH_」"
	;生足
	ELSE
		PRINTFORML 「%TEXTR("嗯。是吗/原来如此。是这么回事吗")%」
		CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("二人称")%喜欢%CNAME("一人称")%这样的大姐姐的裸足呢，真是变态呢/这样的欧巴桑的裸足呢，真让人困扰")%_HH_」"
	ENDIF
CASE "连褲襪着替え拒否"
	PRINTFORML 「真是的……」
	IF COND("夜")
		PRINT 人妻
	ELSE
		PRINT 老师
	ENDIF
	PRINTFORMW 你在%TEXTR("期待/期望")%什么啊……这么%TEXTR("下流/色情")%的服饰怎么能穿出去呢」

CASE "巨根化して"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "短小"

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

CASE "短小化して"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

CASE "短小化して拒否"

;恋慕のみ　避妊の護符を取下
CASE "避妊解除可"

CASE "避妊解除拒否"

;一度解除した避妊の護符の再装着をお願いした場合
CASE "避妊の護符"

;以下は悪魔専用
CASE "魂が足りない"

CASE "想要钱"

CASE "甜言蜜语"

CASE "謎之魅力"

CASE "射精量強化"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかもＶ挿入中！
		IF INSERT("Ｖ挿入相手") == MASTER

		ELSE

		ENDIF
	ELSE

	ENDIF
CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

;以下は汎用台詞(すでに喋っている場合には下には行かない)
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTFORMW 「%TEXTR("不行啊/不行/NO/请重新考虑一下/真是的……/真是的……在想什么呢")%」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「%TEXTR("真拿你没办法啊/我明白了/就这一次哦")%……」
ENDIF

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K52, ARGS

SELECTCASE ARGS
CASE "一緒に出発"
	DRAWLINE
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORML 「嗯，虽说……已经化过妆了了」
		PRINTFORMW 「但是老师和学生去了成人用品店的传闻传出去的话,该怎么办呢?」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORML 「在换衣服哦~稍微等待一下」
		PRINTFORMW （……老师和学生去成人用品店买东西……难道不应该批评他吗）
	ELSE
		PRINTFORML 「想一起出去购物？」
		PRINTFORMW 「成人商店……%TEXTR("我们的身份/老师和学生")%是不能一起去的%TEXTR("明白吗？/不是吗？")%」
	ENDIF
	CALL SET_OTHER, "太阳鏡"
	PRINTFORML
	DRAWLINE
CASE "目送"
	DRAWLINE
	PRINTFORMW 「%CNAME("一人称")%有点看不清路呢……走路要小心了」
	PRINTFORML
	DRAWLINE
CASE "没収胖次出発"
	DRAWLINE
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORML 「真是的……」
		PRINTFORMW 「你在想什么啊……真空出門什么的怎么可以呢？」
	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0
		PRINTFORML 「%TEXTR("哈/喂")%……」
		PRINTFORMW 「如果暴露了怎么办……」
	ELSE
		PRINTFORML 「又来了……」
		PRINTFORMW 「虽说上次没被发现……」
	ENDIF
	CALL SET_OTHER, "太阳鏡"
	PRINTFORML
	DRAWLINE
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")

	ELSEIF CHECK_CLO("体操服姿")

	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		PRINTFORML 「等一下……」
		PRINTFORMW 「至少让我穿一件外套」
		CALL SET_OTHER, "风衣外套"
	ENDIF
	CALL SET_OTHER, "太阳鏡"
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0
		PRINTFORML 「真是的……」
		PRINTFORMW 「可以给我这个吗？」
	ELSE
		PRINTFORML 「又来了……」
		PRINTFORMW 「你好~麻烦结下账」
	ENDIF
CASE "询问有什么想要的东西"
	PRINTFORML 「%TEXTR("想要的东西？我看看/要让我来挑选吗？我看看")%……」
	;巨根
	IF SIZE("阴茎", MASTER) >= 2
		PRINTFORML 「%TEXTR("只、只是偶然看到而已/大概是那种尺寸吧～之类的")%……
		PRINTFORML %CALLNAME:TARGET%委婉的指出了与%CALLNAME:MASTER%差不多大小的%TEXTR("振动棒/假阳具")%。
	ELSE
		PRINTFORML 「最近肩膀酸痛，有点想要个电动按摩机呢」
		PRINTFORML 「当、当然是用在正经的地方了……真是的、在想什么啊
	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"
		CALL PRINT_STRL, @"「%TEXTR("真是的/真是坏心眼")%_HH_」"
		CALL PRINT_STRW, @"「让%TEXTR("老师/人妻")%买这样的物品真的可以吗？」"
	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			CALL PRINT_STRL, @"「虽然能避孕我很開心HH_」"
			CALL PRINT_STRW, @"「但是不让%TEXTR(@"%CNAME("一人称")%/老师/人妻")%来买吧，真是的」"
		ELSE
			PRINTFORML 「真是的……」
			CALL PRINT_STRW, @"「作为%TEXTR("你使坏/买了避孕套")%的惩罚……之后要让我知道%TEXTR("使用的感想/使用的感觉")%」"
		ENDIF
	;えっちな商品
	CASEELSE
		CALL PRINT_STRL, @"「%TEXTR("满意了吗？/这样就满足了吗？")%_HH_」"
		CALL PRINT_STRW, @"「……%CNAME("一人称")%明明是一名%TEXTR("老师/人妻")%要是被发现买了这样的东西就麻烦了」"

	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")
		IF RAND:2 == 0
			PRINTFORML （唔……真是静不下心来啊……）
		ELSE
			PRINTFORML （好羞耻……感觉下面好奇怪）
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML （好像没有认识的人……）
		ELSE
			PRINTFORML （如果被谁发现了的话，就要为学生指导找借口了……）
		ENDIF
	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")
		PRINTFORML 「%TEXTR("喂/真是的")%……」
		CALL PRINT_STRW, @"「%TEXTR("这样太羞耻了。下次不要再做了……嗯，不是。潮湿什么的才没有/太让人不好意思了……喂，不要碰那种地方、嗯、嗯啊")%_HH_」"
	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		PRINTFORML 「没有想要买的东西吗？」
		PRINTFORMW 「现在有网购，不用去成人商店也是可以的」

	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")

	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		CALL PRINT_STRL, @"「%TEXTR("呼，呼/哈")%_HH_……」"
		CALL PRINT_STRW, @"「%TEXTR("啊，不行/喂，在这种地方")%_HH_　%TEXTR("不是的……这不是因为兴奋。不行，不能看啊……嗯/不，不是的。才不是因为兴奋起来了……这、只是出汗了而已")%_HH_」"
	ENDIF
ENDSELECT

path: ERB/EVENT_K/52 小鳥遊静菜/EVENT_K52_SHOP.ERB