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

SELECTCASE ARGS
;高めの頻度で着用します。設定しなくてもかまいません
CASE "内衣"
	CALL SET_PANTIES, "紐丁字褲/Ｈ的颜色"
	CSTR:胸罩 = １／４杯胸罩/Ｈ的颜色/

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

;学園での便装です。設定必須です
CASE "制服"
	CALL SET_COSTUME, "蝴蝶結領帯丝巾女式衬衫"
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "体操服"
	CALL SET_COSTUME, "蝴蝶結領帯丝巾女式衬衫"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "泳装"
	CALL SET_COSTUME, "蝴蝶結領帯丝巾女式衬衫"
;自宅など学園外で着ます。設定必須です
CASE "便装"
	SELECTCASE TEXTS("季節")
	CASE "冬"
		CALL SET_SHIRT, "開胸高領毛衣"
		CALL SET_SKIRT, "長裙"
		CALL SET_OUTER, "连褲襪"
		CALL SET_SHOES, "長靴"
	CASE "夏"
		CALL SET_SHIRT, "Ｔ恤"
		CALL SET_OUTER, "热褲"
		CALL SET_SHOES, "凉鞋"
	CASEELSE
		IF RAND:2
			CALL SET_SHIRT, "后背蝴蝶結切驳服"
			CALL SET_SKIRT, "裙"
			CALL SET_SHOES, "无后跟鞋"
		ELSE
			CALL SET_SHIRT, "蝴蝶結女式衬衫"
			CALL SET_SKIRT, "長裙"
			CALL SET_SOCKS, "短襪"
			CALL SET_SHOES, "平底鞋"
		ENDIF
	ENDSELECT

;自分的房間(not主人公的房間)で着ます
CASE "居家服"

;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"

;もちろん约会の際に着ます
CASE "约会衣装"

ENDSELECT

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

ELSE

ENDIF

;-------------------------------------------------
;感情やシチュに応じて、角色独自の表情を設定する。設定しなくてもかまいません
;主にEMOTION_PLUSなどで颜绘を出す際の文字列の組み合わせの代わりに使う関数です
;-------------------------------------------------
@EMOTION_K38, ARGS

SELECTCASE ARGS
;一人で何かしてる状態などです
CASE "闲"
	STR:颜绘改髪 = 本
CASE "睡眠"
	STR:颜绘改髪 =
CASE "甜言蜜语"
	STR:颜绘改髪 = 赤面/会話口３
CASE "夸奖"
	STR:颜绘改髪 = 微笑/笑颜/紅潮
CASE "心情差"
	STR:颜绘改髪 = 無口系２/憤怒眉/对话框・・・
CASE "躁动难忍"
	STR:颜绘改髪 = 赤面
CASE "刚睡醒"
	STR:颜绘改髪 = 高光无/△/对话框困倦/困扰眉
CASE "憤怒"
	STR:颜绘改髪 = 目陰効果/对话框憤怒/笑颜
CASE "害羞"
	STR:颜绘改髪 = 困扰眉/紅潮２
CASE "惊嚇"
	STR:颜绘改髪 = 小口３/对话框惊讶/蹙眉
CASE "小悪魔"
	STR:颜绘改髪 = 斜眉２/对话框爱心/紅潮２/微笑２
CASE "红潮恍惚"
	STR:颜绘改髪 = 斜眉２/紅潮２/△/普通眼%CONDS("眼形の番号")%
CASE ""
	STR:颜绘改髪 =
ENDSELECT

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"

;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝逆正常位"

	CASE "朝舐陰"

	CASE "朝足交"
		IF CEVENT("名没有の呼び出し") || RAND:2
			IF RAND:3 == 0
				PRINTFORMW 「哟，感觉怎么样？怎么回事？不用介意」
				CALL PRINT_STRW, "「只是一大清早被脚底胡乱地榨取精液的感觉罢了_HH_」"
				CALL PRINT_STRW, @"「啊、这里生气可是不行的。不管怎么说这里可是变态所喜欢的%CNAME("一人称")%在做_HH_」"
			ELSEIF RAND:2
				PRINTFORMW 「哦，起来了也不要动。不然东西可能会变得无法使用的哦？」
				CALL PRINT_STRW, "「对了对了，就这样乖乖听话吧。_HH_ 所谓的猎物应该是这样的_HH_」"
			ELSE
				CALL PRINT_STRW, "「不管做多少次，这样的事还是没办法忍受的啊_HH_？ ……喂、不是装着睡的话就起来张開腿吧」"
				CALL PRINT_STRW, "「这是服从的姿势哦、ふ・く・じゅ・う（服从，日语的服从是4个音）_HH_ 像这样用脚后跟把它磨碎也是能做到的_HH_」"
				CALL PRINT_STRW, "「对了对了、为了让它更容易打開_HH_ 君君（发音大致是哼哼，犬类的撒娇声）地可爱地叫了的话会温柔些的_HH_」"
			ENDIF
		ELSE
			IF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORMW 「啊啦，早上好。我的脚舒服吗？？」
					CALL PRINT_STRW, "「是、是啊、是脚、あ・し（脚的日语发音，故意拉长了说）_HH_ 在脚底抖动着呢_HH_」"
					IF ABL:MASTER:受虐属性 >= 1
						CALL PRINT_STRW, "「为什么变大了呢、真难以理解……呋呒_HH_」"
					ELSE
						CALL PRINT_STRW, "「呋呒_HH_事到如今再萎下去也是没用的？ 就这样把它榨干吧_HH_」"
						CALL PRINT_STRW, "「当然…是用脚来做_HH_」"
					ENDIF
				ELSEIF RAND:2
					PRINTFORMW 「如果您喜欢这种适当的早晨服务，今后也可以这样吗？」
					IF ABL:MASTER:受虐属性 >= 3
						CALL PRINT_STRW, "「啊啦，小鸡鸡先有反应了_HH_ 想要快一点被踩呢，对不起_HH_」"
					ELSEIF ABL:MASTER:受虐属性 >= 1
						CALL PRINT_STRW, "「……呋呒、既不说YES也不说NO。我喜欢诚实的孩子_HH_」"
					ELSE
						CALL PRINT_STRW, "「開玩笑_HH_ ……即便如此偶尔開一下也不错吧_HH_」"
					ENDIF
				ELSE
					PRINTFORMW 「如果是继续躺着的话，应该可以找个借口吧」
					PRINTFORMW 「对，对，当然是指那个用脚踩着，哭得很開心的小鸡鸡的事情」
					CALL PRINT_STRW, "「像这样用脚…摩擦_HH_…摩擦_HH_♪ ……真的、不像样_HH_」"
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「早上好，用脚打扰了吧？」
					PRINTFORMW 「就这样轻松点……我会让你就这样射精的」
				ELSEIF RAND:2
					PRINTFORMW 「不要、如果你这么说的话我停下也可以……是吗、你说不要也可以」
					PRINTFORMW 「呋呒……不、失礼了呢。实在是那个，太滑稽了……呋呒呋…♪」
				ELSE
					PRINTFORMW 「…既然过来的话，让停下来不是更合理吗？」
					PRINTFORMW 「这个就这样吧，不、既然你这么说，那我们继续吧」
				ENDIF
			ENDIF
		ENDIF
	CASE "朝の新妻PLAY"

	CASE "朝乳交"
		PRINTFORMW

	CASE "朝騎乗位"
		IF CEVENT("名没有の呼び出し") || RAND:2
			IF RAND:3 == 0
				CALL PRINT_STRW, "「嗯_HH_……呋呒_HH_ 醒过来了？」"
				CALL PRINT_STRW, "「你问我在做什么？这不是理所当然的嘛_HH_」"
			ELSEIF RAND:2
				CALL PRINT_STRW, "「啊对不起、睡脸无忧无虑地样子所以就忍不住開吃了_HH_」"
				CALL PRINT_STRW, "「不解风情的话就不要说了_HH_ 就这样带你去天堂吧_HH_」"
			ELSE
				CALL PRINT_STRW, "「别一脸呆呆的！既然起来了，就动动腰啊_HH_」"
				CALL PRINT_STRW, "「如果能让我漂亮地叫出来，我给你打100分。_HH_」"
			ENDIF
		ELSE
			IF TALENT:恋慕
				IF RAND:3 == 0
					CALL PRINT_STRW, "「呋呒、感觉怎么样？刚睡醒的时候被袭击了……被好好地招待……_BH_」"
					CALL PRINT_STRW, "「哇_HH_ ……真是得意忘形。好吧、開始早上的个人特别授业吧_HH_」"
				ELSEIF RAND:2
					PRINTFORMW 「明明是被偷袭了，却露出那么高兴的表情……该怎么说才好呢？」
					PRINTFORMW 「嗯……好吧、这可是事関面子。让我试着让你沉浸到溺死的程度吧」
				ELSE
					PRINTFORMW 「……起床了吧？你装睡我也知道，小鸡鸡的反应完全不一样」
					CALL PRINT_STRW, "「继续装下去的话没関系，就那样吧。如果没有抵抗的话，就会全部吃光的_HH_」"
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「你对%CNAME("一人称")%的早上的侍奉有什么疑问吗？」
					PRINTFORMW 「那是当然的，嗯，嗯。像这样让%CNAME("二人称")%被迷住才是老师的工作啊、呐」
				ELSEIF RAND:2
					PRINTFORMW 「很暖和吧，很舒服吧、%CNAME("一人称")%的里面」
					PRINTFORMW 「沉浸吧，堕落吧，这一定是没办法的事」
				ELSE
					PRINTFORMW 「……看起来就像溺水了一样呢」
					PRINTFORMW 「不，是说我这边的事情，我这边的」
				ENDIF
			ENDIF
		ENDIF
	CASE "朝Ａ騎乗位"
		IF CEVENT("名没有の呼び出し") || RAND:2
			IF RAND:3 == 0
				CALL PRINT_STRW, "「哦、我先吃早饭了_HH_」"
				CALL PRINT_STRW, @"「%CNAME("一人称")%的肚子填饱了、%CNAME("二人称")%的感觉舒服了、不是双赢嘛？_HH_」"
			ELSEIF RAND:2
				CALL PRINT_STRW, @"「啊、感觉很舒服呢_HH_ 那个让%CNAME("一人称")%变成现在这样的家伙_HH_」"
				CALL PRINT_STRW, "「喂，刚睡醒可不能马虎_HH_ 你还年轻，要表现出让对方屈服的气概_HH_」"
			ELSE
				CALL PRINT_STRW, @"「抵抗是徒劳的_HH_%CNAME("二人称")%就老实的，可怜的，被屁股榨出来吧_HH_」"
				CALL PRINT_STRW, "「呜…_HH_ 呋呒_HH_ 嗯、不错呢、虽然说了没用，但是如果不抵抗的话就没有意思了_HH_」"
			ENDIF
		ELSE
			IF TALENT:恋慕
				IF RAND:3 == 0
					CALL PRINT_STRW, "「呋呒……_HH_ 怎么了吗？」"
					CALL PRINT_STRW, "「在早上用屁股做您不喜欢吗？_HH_」"
				ELSEIF RAND:2
					CALL PRINT_STRW, "「害怕、是吗？ 还是很舒服……？_HH_」"
					CALL PRINT_STRW, "「请放心……马上……不，对不起。不会马上结束的_HH_」"
				ELSE
					CALL PRINT_STRW, "「啊、那个、来做吧_HH_」"
					CALL PRINT_STRW, "「像这样一大早就被用屁股吃的脸……真的、真的……好可爱」"
					CALL PRINT_STRW, "「一不小心就想榨干了怎么办啊_HH_」"
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「请不要太过抵抗啊」
					PRINTFORMW 「要是不小心，今天可能就动不了也说不定」
				ELSEIF RAND:2
					CALL PRINT_STRW, "「……呋呒_HH_ 啊、忍不住了」"
				ELSE
					PRINTFORMW 「啊，早上好。我先要開动了。」
					PRINTFORMW 「对、对。早上的你特别的美味……呋呒」
				ENDIF
			ENDIF
		ENDIF
	CASE "朝接吻"
		IF CEVENT("名没有の呼び出し") || RAND:2
			IF RAND:3 == 0
				PRINTFORMW 「呦……你这张脸是怎么回事？奶奶的吻会让你睡不好吗」
				PRINTFORMW 「是是、我做了一些我年龄不应该做的事。对不起、对不起――呜…等等、啊……嗯噗……」
				PRINTFORMW 「……虽然%CNAME("一人称")%来说不合适，但是%CNAME("二人称")%也真是够坏心眼的、可恶」
			ELSEIF RAND:2
				PRINTFORMW 「啊、你脸红了……大概是刚睡醒的酒起作用了吧」
				PRINTFORMW 「……没有闻到酒气？不要说不必要的话，不解风情」
			ELSE
				PRINTFORMW 「怎么样？醒了吗」
				PRINTFORMW 「被这样的美女吻醒，当然是最棒的吧？」
			ENDIF
		ELSE
			IF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORMW 「就像打招呼一样。如果你喜欢更激烈一点的话……呜」
					PRINTFORMW 「あ……ん、ふ……ちゅっ……くちゅっ……あ、舌頭……ん、じゅる……（没有翻译的部分是舌吻声）」
					PRINTFORMW 「…………啊……到此为止。我要认真上了」
				ELSEIF RAND:2
					PRINTFORMW 「是什么呢、回礼？ ……说的也是。因为是能得到的东西就得到的主义嘛」
					PRINTFORMW 「……嗯……咕啾…啊……等、等一下……嗯……哇、好激烈…………哦……呜……」
					PRINTFORMW 「…………唔、这就结束了吗？再借我一把，我还你三倍」
				ELSE
					PRINTFORMW 「啾噜……啾……嗯……还……啾…………啊……不行……嗯……」
					PRINTFORMW 「呜……不行啊…………啾……嗯……啊、哈啊……啾噜……嗯……噗啊…」
					PRINTFORMW 「FU……只是温柔地吻一下就起床也很好，不过，用让人缺氧的吻一下就起床也很棒吧？」
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「做了好梦吗？现在就是梦的后续了」
				ELSEIF RAND:2
					PRINTFORMW 「只是打招呼啊，招呼」
				ELSE
					PRINTFORMW 「被啄一般的吻叫醒也不错吧？」
				ENDIF
			ENDIF
		ENDIF
	CASE "朝添い寝"
		PRINTFORMW

	CASE "朝口交"
		IF CEVENT("名没有の呼び出し") || RAND:2
			IF RAND:3 == 0
				CALL PRINT_STRW, @"「因为混蛋恶魔的错%CNAME("一人称")%也等着你呢_HH_」"
				CALL PRINT_STRW, "「早上被吮吸的份舒服吧、えぇおい（含住的声音）_HH_」"
				CALL PRINT_STRW, "「不会生气的，我会把你榨到连尿都不像样地漏出来为止_HH_」"
			ELSEIF RAND:2
				CALL PRINT_STRW, "「啾噗…_HH_ 啾噜…_HH_ ……啊？终于起来了」"
				CALL PRINT_STRW, "「哈啊，我本来想在起床前多榨几发，所以就安静地干了，真是不好意思。」"
				CALL PRINT_STRW, "「嘛、既然这样的话就尽情地用婊子的嘴来榨你了做好心理准备吧_HH_」"
			ELSE
				CALL PRINT_STRW, "「哦哦，明明是早上第一发，却拖拖拉拉没有节操_HH_」"
				CALL PRINT_STRW, "「真好啊，年轻的人不这样就不行啊，_HH_ 那就加油，别把今天的份都被榨出来了了_HH_」"
			ENDIF
		ELSE
			IF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORMW 「啊，你醒了？真遗憾」
					PRINTFORMW 「本想就这样把今天的东西全部用嘴榨干的…」
				ELSEIF RAND:2
					PRINTFORMW 「呋呒、还这么有精神呢……真是、无底洞呢」
					PRINTFORMW 「如果你那么想让我含住那就好吧，再继续一会儿吧」
				ELSE
					PRINTFORMW 「流这么多汁，奶奶早上的嘴就那么舒服吗？」
					PRINTFORMW 「…………只是点了頭有点为难啊。是该高兴呢，还是该为没有否定我是奶奶而生气呢」
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「ん……じゅる……ちゅ……ぷぁっ（之前为口交拟声词）…………起来了吗」
					PRINTFORMW 「你做了好梦吗？那我们继续这个梦吧」
				ELSEIF RAND:2
					PRINTFORMW 「啊……看到了吗？这张嘴含着%CNAME("二人称")%的小鸡鸡」
					PRINTFORMW 「那么就这样躺着……一边想象这张嘴是怎么动的，一边继续吧」
				ELSE
					PRINTFORMW 「啊……嗯……啊，发现了」
					PRINTFORMW 「大清早勃起的这么大，还散发着好厉害的气味……不含进去才失礼吧？」
				ENDIF
			ENDIF
		ENDIF

	CASE "朝六九式"
		PRINTFORMW

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
		PRINTFORMW 「早上好。…怎么了？」
		PRINTFORMW 「哦呀、好像被吓了一跳的样子呢…喂、不打起精神的话」
		PRINTFORMW 「又会被吃掉的吧？」
		PRINTFORMW %CALLNAME:TARGET%微微张開口腔，露出因唾液而闪闪发光的舌尖。
	CASE "朝騎乗位"
		PRINTFORMW 「明明是在接受别人的侍奉，却一脸茫然，这可是要扣分的」
		PRINTFORMW 「看来惩罚是必要的呢。没错、特别严厉的」
	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW
	ELSE
		PRINTFORMW 「早上好」
		PRINTFORMW 「去洗个脸怎么样？现在是吃早饭的时间」
	ENDIF
CASE "一番乗り"
	IF CEVENT("名没有の呼び出し")
		PRINTFORMW 「……什么啊、是%CNAME("二人称")%啊」
		PRINTFORMW 「我可是很胆小的，你不要吓我啊」
	ELSE
		PRINTFORMW 「只有两人吗」
		PRINTFORMW 「今天…身体状态不错吧？」
	ENDIF
CASE "ただいま"
	IF CEVENT("名没有の呼び出し")
		PRINTFORMW 「哟，我回来了（前面是口语化的发音）……嗯、咳咳！！ ……我回来了（正式端正的发音）」
		PRINTFORMW 「……对不起，那个……我好像疏忽了」
	ELSE
		PRINTFORMW 「…………啊…不、只是有点发呆」
		PRINTFORMW 跟一直站在大門前的%CALLNAME:TARGET%打了声招呼，她罕见地慌慌张张地走了进去。
		PRINTFORMW 「真讨厌啊年纪大了……我希望你立刻否定这一点啊，真是的。」

	ENDIF
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF CEVENT("名没有の呼び出し")
			IF CHARA_NUM("室内の邪魔者") == 0
				PRINTFORMW 「哦，欢迎回来。这么晚了，有什么有趣的事情吗？」
			ELSE
				PRINTFORMW 「啊……欢迎回来」
				PRINTFORMW 「有一点担心呢。」
			ENDIF
		ELSE
			PRINTFORMW 「欢迎回来」
			PRINTFORMW 「你还是学生，不要太晚，请注意安全」
		ENDIF
	;部室
	ELSE
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW 「啊、谢谢」
			PRINTFORMW 「…………那么今天和谁？不，没有别的意思」
		ELSE
			PRINTFORMW 「您好、%CNAME("一人称")%（怀疑原作者标错了，应该是想要用第"二人称"）」
			PRINTFORMW 「%CNAME("二人称")%已经做好准备了……（怀疑原作者标错了，应该是想要用第"一人称"）」
			PRINTFORMW 「什么样的准备、是吗？ ……不知道、什么样的呢」
		ENDIF
	ENDIF
CASE "入室打招呼"
	IF CFLAG:呼び出された
		PRINTFORMW
	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW 「啊？…那个……这是这是……失礼了呢、请尽管继续」
			PRINTFORMW 进入室内的%CALLNAME:TARGET%虽然是和颜悦色的声音，却有一种奇怪的压迫感…
		ELSE
			PRINTFORMW 「啊啦……在狩猎之中吗」
			PRINTFORMW %CALLNAME:TARGET%一进屋就露出微笑。
			PRINTFORMW 然后走近%CALLNAME:MASTER%的身边，悄悄在他耳边说。
			PRINTFORMW 「……你不想沉溺于梦境吗？」
		ENDIF
	ELSE
		PRINTFORMW 「你好……。哎呀，今天有点晚了呢」
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	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 FIND_COND("教員", "入室打招呼中")
		PRINTFORMW 『あら、%CNAME(CALLNAME_ACTOR)%、お疲れ様です』
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		IF RAND:2
			PRINTFORMW 『好晚啊』
		ELSE
			PRINTFORMW 『哦呀、迟到什么的……、应该没有这回事吧』
		ENDIF
	ELSE
		PRINTFORMW 『您好、%CNAME(CALLNAME_ACTOR)%』
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW 「好吧、既然叫我来那就来好了」
		PRINTFORMW 「到底有什么事呢？」
		;PRINTFORMW 「如果是无聊的理由的话……你知道后果吧？」
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
	PRINTFORMW
CASE "便当"
	IF CEVENT("名没有の呼び出し")
		PRINTFORMW 「来、这是今天的便当」
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「很不巧，今天没时间。我随便做了一个，嘛，原谅我吧」
		CASE 1
			PRINTFORMW 「冰箱里的食材快过期了，我就把它扔到那里炒了」
			PRINTFORMW 「外表可能不好看，但味道可以保证」
		CASE 2
			PRINTFORMW 「今天进展得还算顺利，期待一下也是可以的」
		ENDSELECT
	ELSE
		PRINTFORMW 「来、给你的便当」
		PRINTFORMW 「%TEXTR("太期待的话会很困扰/今天期待一下也不错哦")%、请尝尝」
	ENDIF
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「我是负责教英语的，名字是%CALLNAME:TARGET%」
	PRINTFORML 「我想应该有人知道，还请多多関照。」
CASE "浑身是汗"
	IF LUV_CHARA()
		PRINTFORML 「哈啊、好热…」
		PRINTFORML %CALLNAME:TARGET%抓着衣服下摆啪嗒啪嗒地往上扇风…
	ELSE
		PRINTFORML 「fu……唔嗯……太热了，这可真是个问题」
		PRINTFORML 「……呐？」
		PRINTFORML %CALLNAME:TARGET%一边用手往胸口扇风一边向%CALLNAME:MASTER%送去目光…
	ENDIF
CASE "刚睡醒"
	PRINTFORML 「嗯……哈啊啊……早上好」
	PRINTFORML 「……我睡觉的时候没做什么奇怪的事吧？」
CASE "Cosplay中"
	PRINTFORML
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K38
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"

CASE "约会的约定"
	PRINTFORML
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K38, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML
CASE "主人公的房間に連れ込まれた"
	IF LUV_CHARA()
		IF CEVENT("安娜：主人公的房間") == 0
			PRINTFORML 「哦……（赞叹声）」
			PRINTFORML 「这房间不错吧、我爱的那个孩子也很高兴呢，哈哈」
			CALL SET_CEVENT, "安娜：主人公的房間"
		ELSE
			PRINTFORML 「出乎意料的是，别人的房间也很安静」
			PRINTFORML 「……真是不可思议」
		ENDIF
	ELSE
		IF CEVENT("安娜：主人公的房間") == 0
			PRINTFORML 「把%CNAME("一人称")%带到这里来…」
			PRINTFORML 「你打算做什么呢……是吧？」
			CALL SET_CEVENT, "安娜：主人公的房間"
		ELSE
			PRINTFORML 「又被带进来了吗……」
		ENDIF
	ENDIF
CASE "自室に招待"
	IF CEVENT("名没有の呼び出し")
		IF CEVENT("安娜：自室訪問") == 0
			IF CEVENT("安娜：自室幻術") == 0
				PRINTFORML 「欢迎来到少女的秘密……是吧」
				PRINTFORML 「哈哈，怎么像鸽子被豆枪打了一样？（形容目瞪口呆）」
				CALL SET_CEVENT, "安娜：自室幻術"
			ELSE
				PRINTFORML 「被邀请了还不快点进来是怎么回事？」
				PRINTFORML 「说不定有机関……嘛，大概没有吧？」
			ENDIF
			CALL SET_CEVENT, "安娜：自室訪問"
		ELSE
			PRINTFORML 「不好意思，把你叫来，我没有什么准备」
			PRINTFORML 「嘛、你就随便找个地方坐吧」
		ENDIF
	ELSE
		PRINTFORML 「欢迎来到少女的秘密」
		PRINTFORML 「欸、怎么叫少女？……真调皮」
	ENDIF
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML
	ELSE
		IF CEVENT("名没有の呼び出し")
			PRINTFORML 「请进、进来吧」
			PRINTFORML %CALLNAME:MASTER%站在%CALLNAME:TARGET%的門前，好像察觉到了这一点，%CALLNAME:TARGET%打開了自己房间的門。
			IF CEVENT("安娜：自室訪問") == 0
				IF CEVENT("安娜：自室幻術")
					PRINTFORML 进門的瞬间，和之前完全不同的房间让%CALLNAME:MASTER%吃惊。
					PRINTFORML 当%CALLNAME:TARGET%看到这个样子的时候，像个傻瓜一样哼了一声。
					PRINTFORML 「哦、%CNAME("二人称")%察觉到了吗」
					PRINTFORML 「是幻术啦，幻术。我怎么可能让你随便去看我的房间呢」
					PRINTFORML 「嗯，既然没被发现，这个装置还能用吧，对吧？」
					PRINTFORML 对方微微一笑。
				ELSE
					PRINTFORML 进門的瞬间，一股淡淡的木頭和油的味道扑鼻而来。
					PRINTFORML 简单的桌子上散落着不知是不是做木工时削出来的木屑，还有几件难看的木制装饰品。。
					PRINTFORML 朴素的床上挂着一个满是缝线的皮包，似乎在诉说着历经了多少岁月，显出疲惫的样子。
					PRINTFORML 眼前的景象与她平时的形象大相径庭。
					PRINTFORML 「这样的房间会让你感到意外吗？我从来没有给任何人看过我的房间」
					PRINTFORML 「平时都是『那样』的感觉，房间却变成这样，不太合适吧？」
					PRINTFORML 「所以我想回家。那家伙一直用巧妙的术式蒙混过去了。」
					PRINTFORML 「你觉得怎么样？就像得到了%CNAME("一人称")%的处女一样的感觉」
				ENDIF
				CALL SET_CEVENT, "安娜：自室訪問"
			ENDIF
		ELSE
			IF CEVENT("安娜：自室幻術") == 0
				PRINTFORML 「想看看%CNAME("一人称")%的房间，是吗？」
				PRINTFORML 就在%CALLNAME:MASTER%走到%CALLNAME:TARGET%的房间前的瞬间，門外传来了%CALLNAME:TARGET%的声音
				PRINTFORML 看来是被发现了
				PRINTFORML 「真是的、不以女性为优先的男性会被讨厌的吧？」
				PRINTFORML 「……话说如此……也是」
				PRINTFORML 「没办法，我要打扫房间，请您稍等」
				PRINTFORML 话音刚落，从門的另一頭传来拽出什么东西的声音
				PRINTFORML 过了一会儿，声音停止了，接着又传来了%CALLNAME:TARGET%的低语。
				PRINTFORML 到底在做什么――――――――
				PRINTFORML
				PRINTFORML
				PRINTFORML
				PRINTFORML
				PRINTFORML
				PRINTFORML 「……让您久等了」
				PRINTFORML 「你可以进来了」
				PRINTFORML 回过神来，在敞開的門前呆住的%CALLNAME:MASTER%，听到那个声音后慌忙往『里面』走……
				CALL SET_CEVENT, "安娜：自室幻術"
			ELSE
				PRINTFORML 「哦呀、请稍等一下……」
				PRINTFORML
				PRINTFORML
				PRINTFORML
				PRINTFORML 「……让您久等了。请、%CNAME("二人称")%」
			ENDIF
		ENDIF
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	IF CEVENT("名没有の呼び出し")
		IF CHARA_NUM("室内の邪魔者") == 0
			PRINTFORML 「哎呀，看见了吗」
			PRINTFORML 「那就没办法了呢……呋呒♪」
		ELSE
			PRINTFORML 「看到了吗？」
			PRINTFORML 「……不转移视线也没関系吧？」
			PRINTFORML %CALLNAME:TARGET%抓着裙摆眯着眼睛微笑着。
		ENDIF
	ELSE
		PRINTFORML 「这么短的裙子会被看见也是没办法的事吧？」
		PRINTFORML 「呋呒……这是没办法的事，真是的」
	ENDIF
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML
	ENDIF
CASE "拜托処理性欲"
	PRINTFORML
CASE "进行性処理"
	PRINTFORML
CASE "清洁口交"
	PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4

		CASEELSE

		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML
	;個室で二人きり
	ELSE
		PRINTFORML
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		IF CEVENT("名没有の呼び出し")
			IF RAND:2
				PRINTFORML 「真是的、%CNAME("二人称")%喜欢这样呢」
			ELSE
				PRINTFORML 「ひゅ～♪（惊叹声）这房间不错！挑的挺好」
			ENDIF
		ELSE
			PRINTFORML 「……那我们就赶快准备吧」
			PRINTFORML 「你是想做梦吧？」
		ENDIF
	;做爱房
	ELSE
		IF CEVENT("名没有の呼び出し")
			PRINTFORML 「话说回来，明明这里本来是个普通的房间吧」
			PRINTFORML 「学园的风纪到底是怎么回事……啊，事到如今了」
		ELSE
			PRINTFORML 「我被叫到了一个意想不到的地方啊」
			PRINTFORML 「真是够背德呢……把老师叫到这种地方来，到底想怎么做呢？」
		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 && CEVENT("名没有の呼び出し") == 0
	PRINTFORML 「很少看到%CNAME("一人称")%的姿态……是吗？」
	PRINTFORML 「说的也是，负责的课也很少」
	CALL SET_DEVENT, "あまり見ない老师"
ELSEIF CFLAG:日常事件回数 >= 10 && DEVENT("敬語？") == 0 && CEVENT("名没有の呼び出し") == 0
	PRINTFORML 「对学生也使用敬语很奇怪、是吗？」
	PRINTFORML 「话虽如此，但这也是我的性格」
	PRINTFORML 「……嗯，是性格使然」
	CALL SET_DEVENT, "敬語？"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("聖句") == 0
	PRINTFORML 「别看我这样，其实我以前是修女，所以能背经文」
	PRINTFORML 「想让我背诵一下……是吗」
	PRINTFORML 「………………我们在天之鲑鱼……弄错了吗？」
	PRINTFORML 「…………沙丁鱼頭也是因为信仰」（译者：是原文就背错了，不是我翻译的问题）
	CALL SET_DEVENT, "聖句"
ELSEIF DEVENT("素顔で") == 0 && LUV_CHARA()
	PRINTFORML 「要是不改点什么，那就太害羞了……嘛，怎么了」
	PRINTFORML 「黄油就拜托你了、部长（敬语）」
	CALL SET_DEVENT, "素顔で"
ELSEIF CEVENT("名没有の呼び出し２") && LUV_CHARA() && RAND:5 == 0
	IF RAND:3 == 0
		PRINTFORML 「哦呀，老爷，您有空吗？」
		PRINTFORML 「怎么样，我就给你讲一个小气淫魔的笑话吧」
		PRINTFORML 「啊，不行了呢，糖要起来了！绝妙的小笑话下次再说！」
	ELSEIF RAND:2
		PRINTFORML 「我的兴趣是，偶尔能像这样出来走走。」
		PRINTFORML 「嗯，嗯，当然要对糖保密。不过她会意识错乱，所以会暴露」
	ELSE
		PRINTFORML 「糖做的稍微有点粗糙。错误随处可见，我偶尔会纠正一下。」
		PRINTFORML 「能听我说吗，说了也是泪听了是笑的糖的日常故事！」
		PRINTFORML 「欸、糖，我还什么都没说啊……那么，老爷，下周见！！」
	ENDIF
ENDIF

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

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	PRINTFORML
ENDIF

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

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF STATE("酔酒")
	PRINTFORML
ELSEIF COND("夜")
	IF CEVENT("名没有の呼び出し")
		IF CHARA_NUM("室内の邪魔者") == 0
			IF PLACE("自室")
				PRINTFORML 「…………」
				PRINTFORML %CALLNAME:TARGET%表情专注地%TEXTR("进行木工雕刻/磨刀")%…
			ELSE
				IF RAND:2
					PRINTFORML 「话说，不知道什么时候会有人来，真麻烦啊……」
					PRINTFORML %CALLNAME:TARGET%一边发牢骚一边将手伸向嘴周围…
				ELSE
					PRINTFORML 「哈啊……」
					PRINTFORML %CALLNAME:TARGET%连嘴都没遮掩就打了个大大的哈欠。
				ENDIF
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「……」
				PRINTFORML %CALLNAME:TARGET%在桌子上摊開厚厚的书，写着什么。
			ELSEIF RAND:2
				PRINTFORML 「嗯、唔姆」
				PRINTFORML %CALLNAME:TARGET%大幅度地动了动身子，用眼睛看着%CALLNAME:MASTER%…
			ELSE
				PRINTFORML 感觉到视线，朝那边望去，%CALLNAME:TARGET%正盯着这边看。
				PRINTFORML 「嘘」
				PRINTFORML 她把手指抵在嘴边，露出娇艳的舌頭。
			ENDIF
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORML 「%TEXTR("嗯/哦吼/呼/")%……」
			PRINTFORML %CALLNAME:TARGET%一边端正地读着杂志一边念念有词。
		ELSE
			PRINTFORML 「……」
			PRINTFORML %CALLNAME:TARGET%在桌子上摊開厚厚的书，写着什么。
		ENDIF
	ENDIF
ELSE
	IF CEVENT("名没有の呼び出し")
		IF CHARA_NUM("室内の邪魔者") == 0
			PRINTFORML 「啊、累了……」
			PRINTFORML %CALLNAME:TARGET%一副懒洋洋的样子坐在椅子上伸着腿…
		ELSE
			PRINTFORML 「……」
			PRINTFORML %CALLNAME:TARGET%安静地喝着茶。
			PRINTFORML 和%CALLNAME:MASTER%四目相对时，露出了含糊的笑容。
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORML 「……」
			PRINTFORML %CALLNAME:TARGET%像观察一样睥睨着房间…
		ELSE
			PRINTFORML %CALLNAME:TARGET%似乎在预习课程，视线移到隔板上翻着书。
			PRINTFORML 把腿重新搭在隔板上的动作，有种娇媚的感觉……
		ENDIF
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K38
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	PRINTFORML 「………………」
	PRINTFORML 听不到呼吸声……但似乎睡得很熟。
ELSEIF RAND:2
	PRINTFORML 「……すぅ……すぅ……(（呼吸声）」
	PRINTFORML %CALLNAME:TARGET%发出轻微的难以听清的鼾声，一动也不动。
ELSE
	PRINTFORML 「嗯……呜、可恶、可恶、開什么玩笑……」
	PRINTFORML 「呼……呼……」
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K38, ARGS
;打招呼
#DIMS GREETING

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	RETURN 0
	IF PLACE("情人旅館")
		PRINTFORMW 『』
	;做爱房
	ELSE
		PRINTFORMW 『』
	ENDIF
CASE "学園での日常"

CASE "お仕事"

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

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORMW
	ENDSELECT

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

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "内衣選び", "泳装選び"
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW 「欸、%CNAME("二人称")%要帮我一起选吗？」
			IF RAND:2
				PRINTFORMW 「……你这个笨蛋」
				PRINTFORMW 「%CNAME("一人称")%拿着东西、%CNAME("二人称")%就在那里傻站着啊」
			ELSE
				PRINTFORMW 「欸、那就快点地选出来吧」
				PRINTFORMW 「就是那种让%CNAME("二人称")%变得独特、魅力非凡的家伙」
			ENDIF
		ELSE
			PRINTFORMW 「哦呀，您要陪我去买东西吗」
			PRINTFORMW 「呋呒、那么就选出让%CNAME("二人称")%高兴的\@SAVESTR:归途の行動 == "内衣選び" ? 内衣 # 泳装\@吧……」
		ENDIF
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW 「啊？ 这是适当的娱乐罢了。适当的娱乐」
			PRINTFORMW %CALLNAME:TARGET%一边翻阅八卦杂志，一边浏览感兴趣的部分……
		ELSE
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME:TARGET%兴致勃勃地翻着八卦杂志……
		ENDIF
	CASE "繞道"
		PRINTFORMW 「哦呀，您要带我去什么地方吗？」
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW 「……可不要带我去什么麻烦的地方哦」
		ELSE
			PRINTFORMW 「那么我就好好地期待一下吧」
			PRINTFORMW 「难得%CNAME("二人称")%让%CNAME("一人称")%想要沉入梦之中呢」
		ENDIF
	CASE "直帰"
		PRINTFORMW
	CASE "圣诞节"
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW 回程路上到处飘扬着彩灯和促销广告，以红色为主的色彩缤纷。
			PRINTFORMW 突然看到学生手牵着手走向某处，啊，今天是圣诞节啊，%CALLNAME:MASTER%眯起了眼睛。
			PRINTFORMW 把頭转向相反的方向，看到了表情复杂的%CALLNAME:TARGET%。
			PRINTFORMW 她的表情交织着欢喜与悲哀、放弃与希望。
			PRINTFORMW 大街上播放着圣诞歌曲，但两人之间只能听到对方的脚步声。
			PRINTFORMW 无视背后回响的噪音，%CALLNAME:MASTER%向%CALLNAME:TARGET%询问。
			PRINTFORMW ——为什么会有这样的表情？
			PRINTFORMW 她怀念往昔地凝视着远方，只回答了一句「发生了很多事」。
			PRINTFORMW 怀念已经无法挽回的过去，爱憎已经无法挽回的曾经的自己。
			PRINTFORMW ——恐怕是自己没有意识到吧。
			PRINTFORMW %CALLNAME:MASTER%紧紧握住了被留在过去的少女的手，说这是无意识中产生的极其悲哀的话语。
		ELSE
			PRINTFORMW
		ENDIF
	CASEELSE
		PRINTFORMW
	ENDSELECT

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
CASE "放課後Ｈ的邀请"

;お浴室に一緒に入ろうと誘われた場合
CASE "一緒にお浴室"
	PRINTFORMW
;[999]選択後の台詞。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 "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		IF LUV_CHARA()
			GREETING = 晚上好啊
		ELSE
			GREETING = 晚上好！
		ENDIF
	ELSEIF COND("昼")
		IF LUV_CHARA()
			GREETING = 哦、你好
		ELSE
			GREETING = 你好！
		ENDIF
	ELSE
		IF LUV_CHARA()
			GREETING = 早上好
		ELSE
			GREETING = 早上好
		ENDIF
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
		IF LUV_CHARA()
			PRINTFORML 「啊、%GREETING%…感觉被抢先了呢」
		ELSE
			PRINTFORML 「啊啦、%GREETING%……总觉得很丢脸呢」
		ENDIF
	ELSE
		IF LUV_CHARA()
			PRINTFORML 「%GREETING%、你说什么啊？这一天还很长呢」
			PRINTFORMW 「喂，挺起腰杆年轻人！」
		ELSE
			PRINTFORML 「啊啦、%GREETING%」
		ENDIF
	ENDIF
CASE "叫醒"
	IF LUV_CHARA()
		PRINTFORML 「哇……睡得真好……」
		PRINTFORML 「ってうおっ！？（迷迷糊糊的惊叫声）……什么啊、是%CNAME("二人称")%啊
		IF CEVENT("就寝偽装") == 0
			PRINTFORML 「平时一感觉到气息就会马上起床，没想到会被叫醒，真是一辈子的疏忽啊」
			CALL SET_CEVENT, "就寝偽装"
		ELSE
			PRINTFORMW 「哈啊、%CNAME("二人称")%如果是对手的话，怎么也不能乱来啊」
		ENDIF
	ELSE
		PRINTFORML 「唔……？」
		PRINTFORML 「……好像睡着了呢」
		PRINTFORML 「%GREETING%、%CNAME("二人称")%」
		PRINTFORM %CALLNAME:TARGET%通过
		IF CEVENT("就寝偽装")
			PRINTFORM 用刚睡醒的声音
		ELSE
			PRINTFORM 语气坚定得不像是刚睡醒的人
		ENDIF
		PRINTFORMW 向%CALLNAME:MASTER%打招呼了…
	ENDIF
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	IF LUV_CHARA()
		PRINTFORMW 「等等、不行啊、果然喝多了不妙」
		PRINTFORMW 「不好意思，我先睡了，下次再继续晩酌吧」
		PRINTFORMW %CALLNAME:TARGET%虽然喝醉了，但还是迈着坚实的步伐回了房间…
	ELSE
		PRINTFORMW 「不好意思、%CNAME("一人称")%酒量不好……」
		PRINTFORMW 「我先回房间了」
		PRINTFORMW 深深鞠了一躬%CALLNAME:TARGET%摇摇晃晃地回到了自己的房间…
	ENDIF
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		IF LUV_CHARA()
			PRINTFORMW 「嗯……哈哈，你是想奉承我吗？」
			PRINTFORMW 「这种把戏的话，太弱了……」
			PRINTFORMW 「……」
			PRINTFORMW 「……好了，已经够了，投降，投降」
			PRINTFORMW 「脸都发烫了，所以，真是的…」
		ELSE
			PRINTFORMW 「捧老师也是不会加分的哦？」
			PRINTFORMW 「……我就接受了吧」
		ENDIF
	CASE "甜言蜜语"
		IF LUV_CHARA()
			IF RAND:2
				PRINTFORMW 「%CNAME("二人称")%……那是真心话吗？」
				PRINTFORMW 「哈哈哈，真是个自大的孩子」
				PRINTFORMW 话虽如此，她却一副若无其事的样子……
			ELSE
				PRINTFORMW 「哈啊、%CNAME("一人称")%的赞美之词，正如字面意思是还早了一百年呢」
				PRINTFORMW 「嘛，这次就收下吧，小子？」
			ENDIF
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORMW 「怎么办呢」
			PRINTFORML 「年龄……哎呀，脸都热了、这个」
		ELSE
			PRINTFORMW 「是吗？谢谢」
			PRINTFORMW 「为了表示感谢，让你做个甜蜜的梦吧？」
		ENDIF
	CASEELSE
		IF CEVENT("名没有の呼び出し")
			IF CHARA_NUM("室内の邪魔者") == 0
				IF RAND:5 == 0
					PRINTFORMW 「你说我不像个老师，那也是」
					PRINTFORMW 「我再怎么努力，也只是个没教养、粗俗的村娘」
					PRINTFORMW 「就算把表面整好了，里面的东西也不会变的。」
				ELSEIF RAND:4 == 0
					PRINTFORMW 「啊，一个男同事非要去喝酒，纠缠得我心烦呢…」
					PRINTFORMW 「明明连精气都难吃还让人不得不摆出一副客套的样子说都是%CNAME("一人称")%的不好来推托」
					PRINTFORMW 「嘛、也是成本之一，我会付的」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「你在吃什么？就是那一带的水果」
					PRINTFORMW 「要吗？不要？嗯……你先尝一口吧」
					SIF RAND:3 == 0
						PRINTFORMW 「哈哈、很好很好、这下子%CNAME("二人称")%也是共犯了呢？」
				ELSEIF RAND:2
					PRINTFORMW 「是啊，好好学习一下吧」
					PRINTFORMW 「即使这样也很费心。把旧知识混在一起，该露馅的时候还是会露馅」
				ELSE
					PRINTFORMW 「嗯，不是的，明明应该是经常刻的那个，那个东西老是刻不出来呢」
					PRINTFORMW 「总觉得%CNAME("一人称")%没有这种天赋啊」
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「要是能处理得再好一点就好了」
					PRINTFORMW 「对、就是那个事」
					PRINTFORMW 「…………那样的话就不用这么做了」
				ELSEIF RAND:2
					PRINTFORMW 「看上去很闲呢」
					PRINTFORMW 「对了……要不要读一下这样的书？」
					PRINTFORMW %CALLNAME:MASTER%从%CALLNAME:TARGET%那里得到了%TEXTR("酒的目录/八卦杂志/旧装订的外文书")%。
				ELSE
					PRINTFORMW 「嗯…对不起，有点迷迷糊糊的」
					PRINTFORMW 「…稍微放松一下就罢了，不能松懈呢………」
				ENDIF
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「看上去很闲呢」
				PRINTFORMW 「对了……要不要读一下这样的书？」
				PRINTFORMW %CALLNAME:MASTER%从%CALLNAME:TARGET%那里得到了%TEXTR("写着《日本常识大全》的书/标题是《那个孩子也非常高兴的技巧！》的书/附有照片的周刊/圣经")%。
			ELSEIF RAND:2
				PRINTFORMW 「唔……不，我有点累了」
				PRINTFORMW 「没想到当老师这么辛苦」
			ELSE
				PRINTFORMW 「怎么了？」
				PRINTFORMW 「对于课堂上有什么疑问吗？」
				PRINTFORMW 「欸？ 你是负责的吗？……ごほん（清嗓子的声音）」
				PRINTFORMW 「"没有那回事，你在说什么呢"」
				PRINTFORMW 「……呐？」
			ENDIF
		ENDIF
	ENDSELECT
CASE "拭汗"
	IF CEVENT("名没有の呼び出し")
		IF CHARA_NUM("室内の邪魔者") == 0
			PRINTFORMW 「哦呀、你说帮我擦？」
			PRINTFORMW 「只要能隐藏自己的企图，就能得到满分……」
			PRINTFORMW 「算了，那就拜托你了」
		ELSE
			PRINTFORMW 「汗？ ……没関系的」
			PRINTFORMW %CALLNAME:MASTER%想擦%CALLNAME:TARGET%的汗而摸到皮肤的时候她露出了微笑。
			PRINTFORMW 「你不觉得我是老太婆吧？」
			PRINTFORMW 然后用只有%CALLNAME:MASTER%才能听到的音量低语。
			PRINTFORMW 「好期待啊……工・口・小・鬼♪」
		ENDIF
	ELSE
		PRINTFORMW 「要擦就好好擦吧，每个角落……是吧？」」
	ENDIF
CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		IF LUV_CHARA()
			PRINTFORMW 「哦呀哦呀，内衣好像丢了」
			PRINTFORMW 「这家伙真让人伤脑筋，现在该怎么办呢……」
			PRINTFORMW 「……好了，这出奇怪的闹剧还是算了吧」
			PRINTFORMW 「%CNAME("二人称")%、别太过分了」
		ELSE
			PRINTFORMW 「哦呀哦呀，我好像把内衣弄丢了」
			PRINTFORMW 「这可不好办了，到底该怎么办呢……」
			IF CEVENT("名没有の呼び出し")
				PRINTFORMW 「……那么，三門芝居（指代很差的演技）就到此为止吧」
				PRINTFORMW 「这次没有関系，但你不能再做这种过分的行为哦？」
			ELSE
				PRINTFORMW 「……我说%CNAME("二人称")%、今天的『挖掘物』你喜欢吗？」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K38
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		IF LUV_CHARA()
			IF RAND:2
				PRINTFORMW 「感觉怎么样？今天也很舒服吧？」
			ELSE
				PRINTFORMW 「嘻嘻嘻、你还是那么诚实对待欲望啊？」
				PRINTFORMW 「反正谁都不在。更期待些吧♪」
			ENDIF
		ELSEIF CEVENT("名没有の呼び出し")
			IF RAND:2
				PRINTFORMW 「那个，你应该知道还有其他人吧？」
				PRINTFORMW 「……很舒服的揉法？………是这样吗」
			ELSE
				PRINTFORMW 「我承认它确实是一种卖点……」
				PRINTFORMW 「也不打算在这种场合贱卖啊？」
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORMW 「我承认它确实是一种卖点……」
				PRINTFORMW 「也不打算在这种场合贱卖啊？」
			ELSE
				PRINTFORMW 「真是对欲望诚实呢、%CNAME("二人称")%啊」
				PRINTFORMW 「我姑且也算是老师……算了随你吧」
				PRINTFORMW 「话说回来、感觉怎么样？喜欢吗？」
			ENDIF
		ENDIF
	CASE "按摩"
		IF LUV_CHARA()
			IF RAND:2
				PRINTFORMW 「啊~啊，那里那里，更多揉揉吧……」
			ELSE
				PRINTFORMW 「呜唏~♪ 变年轻了～哇啊～」
			ENDIF
		ELSEIF CEVENT("名没有の呼び出し")
			IF RAND:2
				PRINTFORMW 「谢谢，酸痛得很厉害」
				PRINTFORMW 「……就算你说不要进行这种奇怪的演技但我就是这样活过来的呢」
			ELSE
				PRINTFORMW 「唔……嗯……等等……适可而止」
				PRINTFORMW 「呜啊噗啊……啊呼……♪」
			ENDIF
		ELSE
			PRINTFORMW 「按摩这就结束了吗？还是…？」
		ENDIF

	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "泡茶"
		IF LUV_CHARA()
			IF CEVENT("初茶") == 0
				PRINTFORMW 「哦呀，是茶吗？」
				PRINTFORMW 「嘛、平常也有在喝……」
				PRINTFORMW 「一般都是为了外观，或是为了迎合对方，享受味道的时候是没有的。」
				PRINTFORMW 「……说的太长的话就不好喝了、那就马上享用吧……」
				PRINTFORMW 「……嗯、很好喝」
				PRINTFORMW 「等等，%CNAME("二人称")%、不是有相当意外的特技吗？我对你刮目相看了。」
				CALL SET_CEVENT, "初茶"
			ELSE
				PRINTDATAW
					DATA 「哦，茶啊」
					DATA 「那我就收下了」
					DATA 「……还是那么好喝呢」
				ENDDATA
			ENDIF
		ELSE
			IF CEVENT("初茶") == 0
				PRINTFORMW 「哦呀、是茶吗」
				PRINTFORMW 「是啊，我平时就有这种嗜好，所以自以为知道味道………」
				PRINTFORMW 「%CNAME("二人称")%能泡出这样的东西，有点意外」
				PRINTFORMW 「……话说得太长的话，难得的茶就凉了。那就快点……」
				PRINTFORMW 「……嗯，你泡得很好」
				PRINTFORMW 「呋呒、偶尔让%CNAME("二人称")%来泡茶的话、或许也不错」
				CALL SET_CEVENT, "初茶"
			ELSE
				PRINTDATAW
					DATA 「茶吗」
					DATA 「那我就收下了」
					DATA 「……果然很好喝啊」
				ENDDATA
			ENDIF
		ENDIF
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		IF LUV_CHARA()
			PRINTFORMW 「哦呀，你要请我喝酒吗」
			PRINTFORMW 「就算是我也喝过很多次酒了」
			PRINTFORMW 「我们来试一试，看看是否符合%CNAME("一人称")%的舌頭」
		ELSEIF CEVENT("名没有の呼び出し")
			PRINTFORMW 「请我喝酒吗」
			PRINTFORMW 「必须要小心不要被吞掉呢……」
			PRINTFORMW 「%CNAME("二人称")%也请注意哦？不要被坏女人欺骗」
		ELSE
			PRINTFORMW 「哦呀，您要请我喝酒吗」
			PRINTFORMW 「必须要小心不要被吞掉呢……」
		ENDIF
	;当然だが尾巴がある相手のみ
	CASE "摸頭"
	IF CEVENT("名没有の呼び出し")
		IF CHARA_NUM("室内の邪魔者") == 0
			IF CFLAG:夸奖
				PRINTFORMW 「OK、OK、想要把%CNAME("一人称")%当成小孩子吗？」
				PRINTFORMW 「啊？不对？那你是什么意思……啊……等一下，不用说也可以！」
				PRINTFORMW 「被%CNAME("二人称")%说的这么丢人，真是太荒唐了」
				PRINTFORMW 「年纪这么大，脸上还热着，真的很抱歉…」
			ELSE
				PRINTFORMW 「那个，%CNAME("一人称")%也不是被摸頭会高兴的年纪了」
				PRINTFORMW 「……明明是这样还要继续,%CNAME("二人称")%真是的」
			ENDIF
		ELSE
			IF CFLAG:夸奖
				PRINTFORMW 「……♪」
				PRINTFORMW 「什么？松弛了吗？脸？」
				PRINTFORMW 「…………怎么可能」
			ELSE
				PRINTFORMW 「真是的，随便地摸女孩子的頭，真让人佩服」
				PRINTFORMW 「……只是一会的话倒也没有関系」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW 「……不、无论如何%CNAME("一人称")%也是老师啊」
		PRINTFORMW 「……完全没有在听啊、算了……随意做吧」
		SIF MARK:屈服刻印 >= 2
			PRINTFORMW 「……我不觉得不好」
	ENDIF
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K38
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		IF LUV_CHARA()
		ELSE
			SELECTCASE TEXTS("季節")
			CASE "春"
				PRINTFORMW 「这里的春天温暖得让人想睡觉呢」
				PRINTFORMW 「不行，这样下去会迷迷糊糊的…」
				PRINTFORMW %CALLNAME:TARGET%慢慢地把手指放在%CALLNAME:MASTER%的身体上，用充满性感的声音低语。
				CALL PRINT_STRW, @"「…为了不让她睡着、能不能让来%CNAME("二人称")%来揭露一下呢_HH_」（这一句不太会翻译）"
			CASE "夏"
				PRINTFORMW 「最近天气变得很热了呢」
				PRINTFORMW 「「再这样下去，什么都不会做了」」
				PRINTFORMW %CALLNAME:TARGET%说着，慢慢地把手放到了%CALLNAME:MASTER%的手臂上。
				CALL PRINT_STRW, @"「…要不要一起出汗，把体温降下来再穿…_HH_」"
			CASE "秋"
				PRINTFORMW 「都说秋天是离别的季节，总觉得有种悲伤的气氛」
				PRINTFORMW 「……不行啊，一不小心就会变得忧郁。」
				PRINTFORMW %CALLNAME:TARGET%向%CALLNAME:MASTER%低下身子，以充满色气的表情注视着%CALLNAME:MASTER%
				CALL PRINT_STRW, @"「为了解除现在的忧郁，能请您帮忙吗_HH_」"
			CASE "冬"
				PRINTFORMW 「天气已经变冷了」
				PRINTFORMW %CALLNAME:TARGET%咕哝着，慢慢地把身体垂到%CALLNAME:MASTER%的肩膀上。
				PRINTFORMW 「嘛、%CNAME("二人称")%好暖和呢…」
				CALL PRINT_STRW, @"「…让%CNAME("一人称")%更暖和的办法，你是知道的吧…_HH_」"
			ENDSELECT
		ENDIF
	CASE "推倒"
		PRINTFORMW
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸"
		PRINTFORMW
	CASE "手淫"
		IF LUV_CHARA()
			PRINTFORMW 「你看起来很闲啊，可以的话陪我一起去吗？」
			CALL PRINT_STRW, @"「没什么大不了的。只是稍微安慰一下%CNAME("二人称")%的东西而已啦」"
		ELSE
			PRINTFORMW 「如果方便的话，能陪我一会儿吗？」
			PRINTFORMW 「不用担心，我只是想抚慰一下%CNAME("二人称")%而已啦、呐」
			PRINTFORMW 「只是现在、沉溺在泡沫之中吧」
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		IF LUV_CHARA()
			PRINTFORMW 「嗯？ 啊、厕所啦厕所」
			IF RAND:3 == 0
				PRINTFORMW 「…啊？摘花？」
				IF RAND:2
					PRINTFORMW 「本来%CNAME("一人称")%还是打野鸡比较合适、如果是%CNAME("二人称")%的话应该知道吧」
				ELSE
					PRINTFORMW 「那是个很好的表达方式呢、如果不是表演的话我可说不出嘴。」
				ENDIF
			ENDIF
		ELSE
			PRINTFORMW 「稍稍失礼了」
			IF RAND:3 == 0
				PRINTFORMW 「去哪里？你要问吗」
				PRINTFORMW 「摘花……但是，不体贴的老爷会被讨厌的吧？」
			ENDIF
		ENDIF
	ENDIF
CASE "廁所詮索"
	IF LUV_CHARA()
		PRINTFORMW 「…怎么、是会对%CNAME("二人称")%这样的老婆婆小便的姿态而兴奋的类型吗」
		PRINTFORMW 「那到姑且不论、%CNAME("一人称")%不是让人看到会兴奋的性质，真遗憾呢」
	ELSE
		PRINTFORMW 「……%CNAME("二人称")%？」
		PRINTFORMW 「女性有很多秘密…是的，秘密这种东西」
		PRINTFORMW 「……你能理解吧？」
	ENDIF
;これは你と角色が両方男性の際に限り起きます
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_K38
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		IF RAND:2
			PRINTFORMW 「你太走神了，真是的……」
		ELSE
			PRINTFORMW 「事物是有顺序的。你是个好孩子，应该能理解吧？」
		ENDIF
	ELSE
		SELECTCASE STR:日常イベント名
		CASE "检查菊穴"
			PRINTFORMW
		CASEELSE
		IF LUV_CHARA()
			PRINTFORMW 「好好看清楚了吗？」
			CALL PRINT_STR, @"「%CNAME("一人称")%的%TEXTR("小穴/咕咚咕咚的小穴/想要的穴")%_H_」_W"
		ELSE
			IF RAND:2
				PRINTFORMW 「只是看，是吗？」
				PRINTFORMW 「……真的你？」
			ELSE
				PRINTFORMW 「没想到就这样结束了……还真是可爱啊」
			ENDIF
		ENDIF
		ENDSELECT
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K38
		WAIT
	;恋慕が付くころには合意持ってると思うので恋慕は除外
	ELSEIF COND("合意：检查内褲") == 0
		PRINTFORMW 「……这种不当的行为作为老师应该是要加以矫正的吧」
	ELSE
		IF LUV_CHARA()
			PRINTFORMW 「要是被人看到了，你会怎么说？」
			PRINTFORMW 「就、就算是%TEXTR(@"%CNAME("一人称")%/我/老师")%啊、羞、羞耻感什么的还是有的啊？」
		ELSE
			PRINTFORMW 「呋呒……不、呐」
			PRINTFORMW 「没関系，就这样算了」
		ENDIF
	ENDIF
CASE "撫摸股間"
	IF LUV_CHARA()
		CALL PRINT_STRW, @"「哈啊……_HH_、嗯……_HH_」"
		PRINTFORMW 「…真是的、这个色鬼」
	ELSE
		CALL PRINT_STRW, @"「嗯……_HH_」"
		PRINTFORMW 「…哎呀哎呀，已经让你这么亢奋了…」
		CALL PRINT_STRW, @"「…%CNAME("一人称")%帮你冷静一下吧_HH_」"
	ENDIF
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K38
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		IF LUV_CHARA()
			PRINTFORMW 「虽然我说过很多次了、%CNAME("一人称")%是个老太婆了」
			PRINTFORMW 「你还想看吗？……是吗」
			PRINTFORMW 「既然这样就过来吧。慢慢地、让你好好看看吧♪」
		ELSE
			PRINTFORMW 「你这么仔细看的话」
			PRINTFORMW 「………是想看到梦吧」
		ENDIF
	ELSE
		IF LUV_CHARA()
			PRINTFORMW 「视线什么的是很敏感的东西呢」
			PRINTFORMW 「你知道我想说什么吗？哈哈，对了，你想看吗？」
		ELSE
			PRINTFORMW 「感觉你的视线很讨厌啊…………」
			PRINTFORMW 「到底是哪里的坏孩子呢，对吧？」
		ENDIF
	ENDIF
CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			IF LUV_CHARA()
				PRINTFORMW 「要我撩起裙子给你看」
				PRINTFORMW 「这个、%CNAME("一人称")%也挺不好意思的、什么、是这样的PLAY吗？」
				PRINTFORMW 「嘛，倒也可以吧」
			ELSE
				PRINTFORMW 「要撩起来吗……我知道了」
				PRINTFORMW 「怎么样？……能做梦吗？」
			ENDIF
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF LUV_CHARA()
				PRINTFORMW 「看招、開帳……啊」
				PRINTFORMW 「那么，接下来怎么办？虽说交给你了、%CNAME("一人称")%没有理由告诉你吧？」
			ELSE
				PRINTFORMW 「其他的也可以，特意用%CNAME("一人称")%的吗」
				PRINTFORMW 「好啊。不……也不是不害羞的意思」
			ENDIF
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			IF LUV_CHARA()
				PRINTFORMW 「啊……真是、性欲旺盛啊\@ TALENT:PLAYER:男性 ? 坊や # お嬢桑 \@だこと」
			ELSE
				PRINTFORMW 「唔……」
				PRINTFORMW %CALLNAME:TARGET%皱着眉頭。
			ENDIF
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K38
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			IF LUV_CHARA()
				PRINTFORMW 「嗯？ ！……你在干什么」
				PRINTFORMW 「裙子？卷起来？又不是好色小鬼……」
				PRINTFORMW 「啊、说是好色小鬼也没错」
			ELSE
				PRINTFORMW 「请问，您在做什么？」
				PRINTFORMW 「哈啊……裙子……？」
				PRINTFORMW 「……呀啊、这样说比较好吗？」
			ENDIF
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			IF LUV_CHARA()
				PRINTFORMW 「ほぉん（清嗓子的声音）、一瞬间就受不了了吗？哈哈♪♪」
			ELSE
				PRINTFORMW 「明明刚才才看了还想看吗？」
				PRINTFORMW 「又不会掉块肉，没関系的」
			ENDIF
		ELSE
			IF COND("打招呼前")
				IF LUV_CHARA()
					PRINTFORMW 「……っとお(惊叫声）！？ %CNAME("二人称", "どもり")%…啊、吓我一跳…」
					PRINTFORMW 「真是的、不要为了掀裙子而隐藏气息啊……」
				ELSE
					PRINTFORMW 「っ（惊叫）！？ …………啊、是%CNAME("二人称")%啊」
					PRINTFORMW 「不，卷起来倒也没関系……没関系」
					PRINTFORMW 「至少请打个招呼吧」
				ENDIF
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					IF LUV_CHARA()
						PRINTFORMW 「呋呒，没関系，看也行」
						PRINTFORMW 「……这是你想要的，很壮观吧？」
					ELSE
						CALL PRINT_STRW, "「……呋呒_HH_」"
						PRINTFORMW 「看到什么了吗？」
					ENDIF
				ELSE
					IF LUV_CHARA()
						PRINTFORMW 「%CNAME("二人称")%也不腻烦啊」
						PRINTFORMW 「啊，因为被要求的内在是华丽的，所以我很高兴♪」
					ELSE
						PRINTFORMW 「想看内衣吗？」
						PRINTFORMW 「……不，虽然没関系。你没有忘记%CNAME("一人称")%是老师吧？」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW 「哦，哦…………哦？」
			IF LUV_CHARA()
				PRINTFORMW 「%CNAME("二人称")%……我以前就觉得你是个笨蛋、真是不得了的蠢货啊」
				PRINTFORMW 「……讨厌，怎么一副『你为什么生气？』的表情，生气才是正常的吧！」
				PRINTFORMW 「到底是怎么回事啊！ 用胖次兴奋剂，%CNAME("一人称")%也和黄油一起很长时间了、结果也完全没有看见过这样的啊！」
				PRINTFORMW 「%CNAME("二人称")%第一！ no . 1 ！可以自豪地说，这个世界和那个世界都没有超过%CNAME("二人称")%的%TEXTR("色情狂/好色男/变态")%！」
				PRINTFORMW 「……哈啊、原来『暖簾に腕押し（压在暖帘上，形容白费力气）』『糠に釘（在米糠里打钉子，形容白费力气）』就是这个意思啊。虽然到现在为止也相应地学习过，但是没有像现在这样深切地体会过语言的意义……」
				PRINTFORMW 「反正是%CNAME("二人称")%的话、就算被说不要也要做吧，至少在使用%CNAME("一人称")%的内衣的时候不要当着我的面去做啊」
				PRINTFORMW 「除此之外，我就放弃了……」
			ELSE
				PRINTFORMW 「……不、不，什么都没有」
				PRINTFORMW 「那个……%CNAME("二人称")%的、那个…………」
				PRINTFORMW 「……探求心……我对%CNAME("二人称")%对性的无止境的探求心到钦佩、一不注意就脱口而出了」
				PRINTFORMW 「……对了、『这个』今后也打算实行吗？」
				PRINTFORMW 「不，完全没有问题，只是对%CNAME("一人称")%刺激好像太强了」
				PRINTFORMW 「以后如果能在%CNAME("一人称")%的面前控制住就太高兴了」
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW 「哦呀、我可不関心偷拍啊」
		PRINTFORMW 「真是的，如果是在床上，我想让你看多少都可以」
		CALL PRINT_STRW, @"「…裙子里面也好，再往前也好，都是吧_HH_」"
	CASEELSE
		IF LUV_CHARA()
			PRINTFORMW 「…我開始担心%CNAME("二人称")%会不会在这段时间里被抓住，我開始不安了」
			PRINTFORMW 「不、这种担心哪里是现在才有…」
		ELSE
			PRINTFORMW 「哎呀哎呀，%CNAME("二人称")%可不能做这种事」
			PRINTFORMW 「是我可以理解，因为禁忌中往往隐藏着最甜的蜜」
		ENDIF
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW 「…正因为有隐藏着，梦想才会膨胀吧？」
		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 NAMES("性処理")
	CASE "口交"

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
ENDSELECT

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

MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り"
	RETURN 0
	MAIL_BODY =
CASE "阴部自撮り", "阴茎自撮り"
	RETURN 0
	MAIL_BODY =
CASE "今年の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "学校指定の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "体操服自撮り"
	RETURN 0
	MAIL_BODY =
CASE "胸罩自撮り" ,"胖次自撮り"
	RETURN 0
	MAIL_BODY =
CASEELSE
	RETURN 0
	MAIL_BODY =
ENDSELECT

;地の文
PRINTFORMW 照片被添加了「%MAIL_BODY%」这样的信息…

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	IF CEVENT("名没有の呼び出し")
		IF CHARA_NUM("室内の邪魔者") == 0
			PRINTFORMW 「啊、对了、呐，%CNAME("二人称")%、这周末有空吗？」
			PRINTFORMW 「有空的话，你就陪我去散散心吧」
			PRINTFORMW 「一个有这么多谜团的女人，却很少有消遣的机会。…呐、怎么样？」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、可以打扰一下吗？」
			PRINTFORMW 这样说着%CALLNAME:TARGET%用手臂搂住了%CALLNAME:MASTER%的脖子。
			PRINTFORMW 「放假的时候，一起玩吧，可以吧？」
			PRINTFORMW 然后用只有%CALLNAME:MASTER%才能听见的声音在耳边低语。
		ENDIF
	ELSE
		PRINTFORMW 「%CNAME("二人称")%、可以打扰一下吗？」
		PRINTFORMW 「你有空的话，这周末一起去放松一下怎么样」
		PRINTFORMW 「……%CNAME("一人称")%没有别的意思。没错」
	ENDIF
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW 「OK，决定了」
			PRINTFORMW 「期待和奶奶的约会吧♪」
		ELSE
			PRINTFORMW 「呋呒…我很期待」
			PRINTFORMW 「非常、非常…呐♪」
		ENDIF
	;你に保留されてしまった
	ELSE
		PRINTFORMW
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	IF CEVENT("名没有の呼び出し")
		IF CHARA_NUM("室内の邪魔者") ==0
			PRINTFORMW 「哦，怎么了？ ……欸、去玩」
			PRINTFORMW 「幽会……不，是约会吗、emmm」
			PRINTFORMW 「不错呢，走吧%CNAME("二人称")%可得与%CNAME("一人称")%大干一场呢」
		ELSE
			PRINTFORMW 「去游玩是吗？」
			PRINTFORMW %CALLNAME:TARGET%一边做着沉思的动作一边向%CALLNAME:MASTER%靠近。
			PRINTFORMW 终于走到可以耳语的距离时，她露出了原本的笑容。
			PRINTFORMW 看来是OK了，是这样的吧。
		ENDIF
	ELSE
		PRINTFORMW 「去玩……是吗」
		PRINTFORMW 「说的也是、也许不错」
		PRINTFORMW 「在安息日展翅高飞，没有人会生气」
	ENDIF
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW 『啊、好的好的、是%CNAME("一人称")%』
			SIF RAND:3
				PRINTFORMW 『无论如何电话这种东西到现在也不习惯啊…』
			PRINTFORMW 『有什么事？』
			PRINTFORMW 『啊？去玩……现在？』
			PRINTFORMW 『……等一下』
			PRINTFORMW 『……对…………不……起……不好意思』
			PRINTFORMW 『让你久等了，已经协调好了，谢谢你。』
		ELSE
			PRINTFORMW 打到第十声左右，电话终于打通了。
			PRINTFORMW 伴随着啪嗒啪嗒的声音
			PRINTFORMW 『%CNAME("二人称", "どもり")%是吗？』
			PRINTFORMW 『……嗯，没関系的。我只是被突如其来的电话吓了一跳。』
			PRINTFORMW 『那么，是什么事？』
			PRINTFORMW 『……去玩吗？』
			PRINTFORMW 『没関系的，请稍等一下』
		ENDIF
	ELSE
		IF CEVENT("名没有の呼び出し")
			IF CHARA_NUM("室内の邪魔者") ==0
				PRINTFORMW 「哦%CNAME("二人称")%来了」
				PRINTFORMW 「啊？你说现在去玩？……现在……啊……」
				PRINTFORMW 「那个啊，我忘了跟你说过了，女人是要有准备的」
				PRINTFORMW 「并不是为了%CNAME("二人称")%而做的啊」
				PRINTFORMW 「……啊，这不是在说教吗」
				PRINTFORMW 「好啊，这次我就被你折腾了，你稍等一下」
			ELSE
				PRINTFORMW 「现在……是吗」
				PRINTFORMW 「……可以。不好意思，能请您稍等一下吗」
				PRINTFORMW %CALLNAME:TARGET%的眼睛在笑，但很明显眼睛在骂着畜生。
				PRINTFORMW 「不・要・逃・跑……稍等一下、呐？」
			ENDIF
		ELSE
			PRINTFORMW 「唔姆……虽然我想去玩」
			PRINTFORMW 「能占用您一点时间吗？」
			PRINTFORMW 「……女人也是有准备的」
			PRINTFORMW 「请、稍等一下」
		ENDIF
	ENDIF

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

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW 「让您久等了……。我花了一些时间做准备。」
		SIF CEVENT("名没有の呼び出し")
			PRINTFORMW 调侃着突然開始装乖巧的%CALLNAME:TARGET%的时候「我们是这样拼命活了几百年的。你只是在追求%CNAME("一人称")%的时候说多余的话」不耐烦地瞪着%CALLNAME:MASTER%说道……
	ELSE
		PRINTFORMW
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW
	CASE "散歩"
		PRINTFORMW
	CASE "尋訪美食"
		PRINTFORMW
	CASE "逛街"
		PRINTFORMW
	CASE "去水族馆"
		PRINTFORMW
	CASE "去游乐园"
		PRINTFORMW
	CASE "去电影院"
		PRINTFORMW
	CASE "去图书馆"
		PRINTFORMW
	CASE "赏花"
		PRINTFORMW
	CASE "去游泳"
		PRINTFORMW
	CASE "爬山"
		PRINTFORMW
	CASE "赏红叶"
		PRINTFORMW
	CASE "滑雪"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

CASE "手をつなぐ"
	IF CEVENT("名没有の呼び出し")
		PRINTFORMW 「怎么样，很皱巴巴的吧？…開玩笑」
		PRINTFORMW 「这是世上少有的像少女一样的老太婆的手，好好品味一下吧」
	ENDIF
CASE "手をつながない"
	PRINTFORMW
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW
	ELSEIF RAND:2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "比基尼"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	CASE "高開衩連衣裙"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		PRINTFORMW
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	IF CEVENT("名没有の呼び出し")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;映画館などで横並びに座った状態での手交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "请求偷偷手交"

CASE "接吻"

CASE "摸屁股"
	IF CEVENT("名没有の呼び出し")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问", "专心看电影"

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
CASE "帰り際"
	IF CEVENT("名没有の呼び出し")
		PRINTFORMW 「好舒服的休息。最重要的是没有顾虑，这是最棒的」
		PRINTFORMW 「休息不这样的话，就算是神也会自暴自弃的」
		PRINTFORMW 「那么，吃了玩了最后……%CNAME("一人称")%的话想要怎么做？」
	ELSE
		PRINTFORMW 「这样就结束了吗？ ……还是说、接下来、有什么其他的？」
		PRINTFORMW 「……你不想沉溺于梦境吗？」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

;CEVENT("名没有の呼び出し") && CHARA_NUM("室内の邪魔者") == 0 が頻出しうるので関数化することで負担を減らしておく
@LUV_CHARA, ARG
#FUNCTION
#DIM DYNAMIC JUDGE

;ARGが0の場合は自動的にTARGETにしておく
SIF !ARG
	ARG = TARGET

SIF CEVENT("名没有の呼び出し") && CHARA_NUM("室内の邪魔者") == 0
	JUDGE = 1

RETURNF JUDGE

path: ERB/EVENT_K/38 アンナ/EVENT_K38_DAILY.ERB


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

MEMO_LINECOUNT = LINECOUNT

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

		ELSE

		ENDIF
	ELSE
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW 「啊？ 怎么了、这么认真的模样」
		ELSE
			PRINTFORMW 「啊啦、有什么事情吗？」
			PRINTFORMW 「只要是老师能做的，对，什么都愿意做？」
		ENDIF
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:恋慕
		PRINTFORMW 「我说啊、%CNAME("二人称")%、如你所见，%CNAME("一人称")%可是个粗野的家伙」
		PRINTFORMW 「而且是来自乡下的，虽然看起来很年轻，但是其实已经是个老太婆了」
		PRINTFORMW 「我是说过%CNAME("二人称")%不要离開我之类的话、但是%CNAME("二人称")%也不用特意说出来的」
		PRINTFORMW 「我们不是说『我爱你』之类话的関系吧……呐？」
		PRINTFORMW %CALLNAME:TARGET%用劝导的语气注视着%CALLNAME:MASTER%。
		PRINTFORMW 两个人对视着，结果都没有開口。
		PRINTFORMW 「……哈」
		PRINTFORMW 打破沉默的是%CALLNAME:TARGET%的叹息声。
		PRINTFORMW 慢慢地走到身边，轻轻地把手放在%CALLNAME:MASTER%的脸上。
		PRINTFORMW 「不要自作多情」
		PRINTFORMW 「最喜欢什么的是不可能的。那是以这种感情为诱饵的%CNAME("一人称")%最清楚的事情」
		PRINTFORMW 「可是，可是。啊……可恶，可恶……真的，可恶」
		PRINTFORMW 眼泪流过%CALLNAME:TARGET%的脸颊。不久，它沉默着离開了肌肤。
		PRINTFORMW 「哈哈……女人真是难啊、真是的」
		PRINTFORMW 「……为什么要作为女人而降生呢、%CNAME("一人称")%」
		PRINTFORMW 自嘲似的笑着的%CALLNAME:TARGET%静静地轻吻了一下%CALLNAME:MASTER%。
		PRINTFORMW 就像明知道不会成为自己的东西一样，畏畏缩缩的。
		PRINTFORMW 然后，为了确认味道而倒吸了一口气，然后将手臂绕在%CALLNAME:MASTER%的脖子上低语。
		PRINTFORMW 「……好啊、成为%CNAME("二人称")%的东西吧」
		PRINTFORMW 「…………所以、是啊」
		PRINTFORMW ――所以、请不要离開%CNAME("一人称")%。
		PRINTFORMW 这句话没有继续下去。觉得这么说太卑鄙了。
		PRINTFORMW 没能说出想说的话的女人没有把话说下去，而是深深地亲吻了%CALLNAME:MASTER%。
	;失敗
	ELSE
		PRINTFORMW 「……这样啊」
		PRINTFORMW 「不，我很高兴……嗯，非常高兴」
		PRINTFORMW 「但是那……还不行」
		PRINTFORMW 「什么都没有、"什么、都没有"」
		PRINTFORMW 「可以吧？」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			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

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾

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

	;取引初成功
	ELSEIF COND("合意：全裸化") == 0

	ELSE

	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否

	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)

	ELSE

	ENDIF

;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "事后避孕药取引"

CASE "事后避孕药"
	;代金をまけてくれた場合
	IF TFLAG:値切った
		;所持金が足りなかった場合です
		;現状、ここに来るのは恋慕无の時のみ
	;拝み倒したら代金を払わなくても許してくれた場合
	ELSEIF TFLAG:取引価格 == 0
		;現状、ここに来るのは恋慕有の時のみ
	ELSE
		;普通にお金を払った場合
		;口上无でも自然な感じです
		;ですが恋慕のときなどは、なにか一言あってもいいかもですね
	ENDIF

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

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		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

			ELSE

			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE

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

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

CASE "淫紋拒否"

;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"

CASE "性処理の一時中断"

CASE "性処理拒否"

;悪魔、淫魔、妖狐専用
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("開放型连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW
	;生足
	ELSE
		PRINTFORMW
	ENDIF
CASE "连褲襪着替え拒否"

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

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, "拒否")
		IF CEVENT("名没有の呼び出し")
			PRINTFORMW 「哈啊……笨蛋」
			PRINTFORMW 「那种事情怎么可能啊、驳回驳回」
		ELSE
			PRINTFORMW 「虽然说过什么都可以…」
			PRINTFORMW 「真为难啊……？」
			PRINTFORMW 看来是委婉地拒绝了。
		ENDIF
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	IF CEVENT("名没有の呼び出し")
		PRINTFORMW 「是是、举手之劳呢。」
	ELSE
		PRINTFORMW 「是、是、小菜一碟」
	ENDIF
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0

	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE

	ENDIF
CASE "目送"

CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0

	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0

	ELSE

	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")

	ELSEIF CHECK_CLO("体操服姿")

	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")

	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0

	ELSE

	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"

	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")

	ELSE

	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0

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

	ENDIF
ENDSELECT

path: ERB/EVENT_K/38 アンナ/EVENT_K38_SHOP.ERB