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

SELECTCASE ARGS
;高めの頻度で着用します。設定しなくてもかまいません
CASE "内衣"
	CSTR:胖次 = 蕾丝的胖次/純白/
	CSTR:胸罩 = 蕾丝胸罩/純白/

;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
CASE "飾品"
	CSTR:飾品 =

;学園での便装です。設定必須です
CASE "制服"
	IF COND("夏")
		CALL SET_COSTUME, "露脐装超短裙西装外衣"
	ELSE
		CALL SET_COSTUME, "西装外衣"
	ENDIF

	CALL SET_COSTUME, ""
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "体操服"
	IF COND("冬")
		CALL SET_COSTUME, "体操服运动衫"
	ELSE
		CALL SET_COSTUME, "体操服紧身短褲"
	ENDIF
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "泳装"
	CALL SET_COSTUME, "白比基尼"

;自宅など学園外で着ます。設定必須です
CASE "便装"
	SELECTCASE TEXTS("季節")
	CASE "冬"
		IF RAND:2
			CALL SET_SHIRT, "针织毛衣"
			CALL SET_SKIRT, "長裙"
			CALL SET_SOCKS, "長筒襪"
			CALL SET_SHOES, "靴"
			CALL SET_PANTIES, "褶边の胖次"
			CALL SET_BRA, "褶边の胸罩"
		ELSE
			CALL SET_SHIRT, "開胸高領毛衣"
			CALL SET_SKIRT, "開衩長裙"
			CALL SET_SOCKS, "及膝襪"
			CALL SET_PANTIES, "內褲"
			CALL SET_BRA, "简约胸罩"
		ENDIF
	CASE "夏"
		CALL SET_SHIRT, "无袖女式衬衫"
		CALL SET_SKIRT, "迷你裙"
		CALL SET_SOCKS, "及膝襪"
		CALL SET_SHOES, "小皮靴"
		CALL SET_PANTIES, "蕾丝的胖次"
		CALL SET_BRA, "蕾丝胸罩"
	CASEELSE
		IF COND("秋") && RAND:3 == 0
			CALL SET_SHIRT, "開胸高領毛衣"
			CALL SET_SKIRT, "開衩長裙"
			CALL SET_SOCKS, "及膝襪"
			CALL SET_PANTIES, "內褲"
			CALL SET_BRA, "简约胸罩"
		ELSEIF RAND:2
			CALL SET_SHIRT, "褶边女式衬衫"
			CALL SET_SKIRT, "迷你裙"
			CALL SET_SOCKS, "及膝襪"
			CALL SET_SHOES, "小皮靴"
			CALL SET_PANTIES, "條紋胖次"
			CALL SET_BRA, "條紋胸罩"
		ELSE
			CALL SET_SHIRT, "运动衫"
			CALL SET_OUTER, "运动衫休闲褲"
			CALL SET_PANTIES, "內褲"
			CALL SET_BRA, ""
		ENDIF
	ENDSELECT
;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	IF COND("夏")
		CALL SET_SHIRT, "半開衬衫"
		CALL SET_OUTER, "紧身短褲"
		CALL SET_PANTIES, "內褲"
		CALL SET_BRA, ""
	ENDIF

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

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

ENDSELECT

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

ELSE

ENDIF


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交", "朝六九式"
		CALL EMOTION_PLUS, "重置/闭眼２/小口/紅潮２"
		PRINTFORMW 「啾…啾啾…%TEXTR("啊啦/哼哼")%、%TEXTR("早上好啊/终——于醒来了呢")%♪」
		PRINTFORMW 「%TEXTR(@"真抱歉，擅自偷吃%CNAME("二人称")%的%TEXTR("小弟弟/大家伙/肉棒")%/话虽如此，%CNAME("二人称")%的%TEXTR("小弟弟/大家伙/肉棒/大鸡鸡")%倒是早早地就起来了呢…")%♪」
	CASE "朝騎乗位"
		CALL EMOTION_PLUS, "重置/半目/ヮ/赤面/对话框爱心"
		PRINTFORMW 「%TEXTR("あら/ふふ")%、虽然坐在你上面这样说有些失礼…早上好♪」
		PRINTFORMW 「%TEXTR(@"真抱歉，擅自偷吃%CNAME("二人称")%的%TEXTR("小弟弟/大家伙/肉棒")%/话虽如此，%CNAME("二人称")%的%TEXTR("小弟弟/大家伙/肉棒/大鸡鸡")%倒是早早地就起来了呢…")%♪」
	ENDSELECT

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

	IF COND("体育")
		IF RAND:2
			CALL EMOTION_PLUS, "重置/左笑颜４/对话框兴奋"
			PRINTFORMW 「今天有体育课呢」
			PRINTFORMW 「我有预感%CNAME("一人称")%会大显身手哇！」
		ELSE
			CALL EMOTION_PLUS, "重置/微笑３"
			PRINTFORMW 「今天有体育课呢。不要忘记带上体育服哦？」
		ENDIF
	ELSEIF COND("水泳")
		IF RAND:2
			CALL EMOTION_PLUS, "重置/左笑颜４/对话框兴奋"
			PRINTFORMW 「今天有游泳课呢」
			PRINTFORMW 「哼哼，小心不要因为看%CNAME("一人称")%穿着泳装的样子看得太入迷导致溺水了哟♪」
		ELSE
			CALL EMOTION_PLUS, "重置/微笑３"
			PRINTFORMW 「今天有游泳课呢。不要忘记带泳服哦？」
		ENDIF
	ELSE
		IF RAND:2
			CALL EMOTION_PLUS, "重置/笑颜４/对话框開心"
			PRINTFORMW 「啊，啊啦，早上好！」
			CALL EMOTION_PLUS, "重置/左陰/半目/無口系２"
			PRINTFORMW （唔、失去了一次释放早安空气炮的机会哇…）
		ELSE
			IF RAND:2
				CALL EMOTION_PLUS, "重置/左笑颜４/对话框兴奋"
			ELSE
				CALL EMOTION_PLUS, "重置/笑颜４/对话框開心"
			ENDIF
			PRINTFORMW 「早上好啊%TEXTR("＿/ッ")%！」
			PRINTFORMW 「今天也是好天气哟！」
		ENDIF
	ENDIF
CASE "一番乗り"
	IF RAND:3 == 0
		CALL EMOTION_PLUS, "重置/左笑颜４/半目/ڡ２/紅潮２/对话框爱心"
		PRINTFORMW 「现在的话可以不用担心别人的目光随意的对我性骚扰哟♪　来呀来呀♪」
	ELSEIF RAND:2
		CALL EMOTION_PLUS, "重置/斜眉/小口"
		PRINTFORMW 「啊、是二人独处呢」
	ELSE
		CALL EMOTION_PLUS, "重置/斜眉/小口"
		PRINTFORMW 「其他人都去哪里了呀？」
	ENDIF
CASE "ただいま"
	IF RAND:2
		CALL EMOTION_PLUS, "重置/ほんわか/斜眉/ヮ"
		PRINTFORMW 「我回来啦」
	ELSE
		CALL EMOTION_PLUS, "重置/斜眉/小口/对话框兴奋"
		PRINTFORMW 「啊呀，好好闻啊…%TEXTR("玄関的芳香剂换了吗？/是今天的晚饭吗…(咕噜噜…)")%」
	ENDIF
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF RAND:3
			CALL EMOTION_PLUS, "重置/笑颜４/对话框開心"
			PRINTFORMW 「你回来啦，%TEXTR("今天也在学校过得很開心呢！对吧！/请允许我先放松一下哇")%」
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/半目/小口"
			PRINTFORML 「真是的…你是不是途中饶了不少远路哇？」
			PRINTFORMW 「%CNAME("一人称")%，让我稍微有些担心了哟？」
		ELSE
			CALL EMOTION_PLUS, "重置/对话框兴奋"
			PRINTFORML 「啊，你回来啦～」
			PRINTFORMW 一打開門，发现%CALLNAME:TARGET%让身体微微漂浮在半空中…。
		ENDIF
	ELSE
		IF RAND:3
			CALL EMOTION_PLUS, "重置/左笑颜４/微笑４"
			PRINTFORMW 「啊呀，请允许我先放松一下哇」
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/半目/小口"
			PRINTFORML 「做了很重要的工作呢」
			PRINTFORMW 「要补习的话，只要是%CNAME("一人称")%所知道的范围都可以教你哟？」
		ELSE
			CALL EMOTION_PLUS, "重置/半目/困扰眉/～/对话框乱/茶"
			PRINTFORMW 「呜、好不容易泡的茶已经变成温的了哇…」
		ENDIF
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		PRINTFORMW
	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "重置/半目/小口/对话框？"
			PRINTFORMW 「…这是在做什么呢？」
			PRINTFORMW %CALLNAME:TARGET%在观察着%CALLNAME:MASTER%的样子…。
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/笑颜４/对话框電球/托下巴"
			PRINTFORMW 「嗯…果然%CNAME("二人称")%不管怎么说都是个变态啊！」
			PRINTFORMW 虽然%CALLNAME:TARGET%好像很惊讶似地说着、那双看向%CALLNAME:MASTER%的眼睛却愉快地眯成了月牙状…。
		ELSE
			CALL EMOTION_PLUS, "重置/左笑颜４/半目/笑顔２"
			PRINTFORMW 「哎呀真抱歉…不、请不用在意%CNAME("一人称")%，尽管继续就好啦」
			PRINTFORMW %CALLNAME:TARGET%一边好像觉得很有趣的样子看着%CALLNAME:MASTER%两人，一边催促两人继续…。
		ENDIF
	ELSE
		SELECTCASE CFLAG:MASTER:PREV_DAILYCATE
		CASE 1
			SELECTCASE CSTR:MASTER:PREV_DAILYCOM
			CASE "甜言蜜语"
				IF RAND:2
					CALL EMOTION_PLUS, "重置/左笑颜４/半目/嘟嘴３/紅潮２"
					PRINTFORMW 「哎呀哎呀、这么亲热…有点点嫉妒哇」
					PRINTFORMW %CALLNAME:TARGET%一边这样说着一边撅起了嘴，但眼中却带着快乐的笑意。
				ELSE
					CALL EMOTION_PLUS, "重置/左笑颜４/半目/ヮ/紅潮２/托下巴"
					PRINTFORMW 「还真是抱歉…不、请不用在意%CNAME("一人称")%，尽管继续就好啦」
					PRINTFORMW %CALLNAME:TARGET%一边好像觉得很有趣的样子看着%CALLNAME:MASTER%两人，一边催促两人继续…。
				ENDIF
	;		CASE "打招呼舐陰", "打招呼口交"
			ENDSELECT
		;互动
		CASE 2
		;卖个破绽
		CASE 3
			SELECTCASE CSTR:MASTER:PREV_DAILYCOM
				CASE "Ｈ的邀请", "推倒"
					CALL EMOTION_PLUS, "重置/笑颜４/ヮ/紅潮２/对话框兴奋/唇边手"
					PRINTFORMW 「哎呀呀，明明都没有靠近就已经感觉很热了呢！」
					PRINTFORMW %CALLNAME:TARGET%用一副很享受的表情远远地凝望着%CALLNAME:MASTER%二人。
				CASE "膝枕", "抱住", "膝枕"
					IF RAND:2
						CALL EMOTION_PLUS, "重置/左笑颜４/半目/嘟嘴３/紅潮２"
						PRINTFORMW 「哎呀哎呀，真是亲热呢…总感觉很嫉妒哇」
						SIF TALENT:恋慕
							PRINTFORMW 「毕竟是%CNAME("一人称")%所恋慕的人，真拿你没办法呢」
						PRINTFORMW %CALLNAME:TARGET%一边这样说着一边撅起了嘴，但眼中却带着快乐的笑意。
					ELSE
						CALL EMOTION_PLUS, "重置/笑颜４/微笑４/紅潮２/对话框兴奋"
						PRINTFORMW 「啊啦，气氛就像糖果一般甜蜜呢。倒也不讨厌哇」
						PRINTFORMW %CALLNAME:TARGET%微笑地注视着散发着甜美的氛围的%CALLNAME:MASTER%二人。
					ENDIF
	;			CASE "展示内褲", "摩擦股間", "手淫", "摩擦股間", "口淫", "接吻", "把胸部压了上去"

			ENDSELECT
		;胖次
		CASE 4
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/笑颜４/紅潮/对话框兴奋/托下巴"
				PRINTFORMW 「嗯…果然%CNAME("二人称")%不管怎么说都是个变态啊！」
				PRINTFORMW 虽然%CALLNAME:TARGET%好像很惊讶似地说着、那双看向%CALLNAME:MASTER%的眼睛却愉快地眯成了月牙状…。
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/半目/困扰眉/小口"
				PRINTFORMW 「…这种事情是不是还是别做比较好啊？」
				SIF TALENT:恋慕
					CALL EMOTION_PLUS, "重置/半目/紅潮２/对话框爱心"
					PRINTFORMW 「看吧、%CNAME("一人称")%的内裤的话不管怎样都可以献给你看哟？」
				PRINTFORMW %CALLNAME:TARGET%温和地责备了%CALLNAME:MASTER%的行为。
			ELSE
				CALL EMOTION_PLUS, "重置/闭眼２/小口"
				PRINTFORMW 「要小心不要被举报或者被逮捕哦」
				SIF TALENT:恋慕
					CALL EMOTION_PLUS, "重置/涙目〇〇/小口"
					PRINTFORMW 「如果变成那样的话%CNAME("一人称")%，会很难过啊…」
				PRINTFORMW %CALLNAME:TARGET%有些担心地盯着对内裤心满意足的%CALLNAME:MASTER%…。
			ENDIF
		ENDSELECT
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		CALL EMOTION_PLUS, "重置/涙目〇〇/小口"
		PRINTFORMW 「抱歉让各位久等了」
	ELSEIF CFLAG:呼び出された
		CALL EMOTION_PLUS, "重置/涙目〇〇/小口"
		PRINTFORMW 「呵呵、您叫%CNAME("一人称")%吗？」
	ELSE
		CALL EMOTION_PLUS, "重置/笑颜４/对话框開心"
		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("教員", "入室打招呼中")
		CALL EMOTION_PLUS, "重置/ヮ"
		PRINTFORMW 『啊呀老师，您好啊』
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		CALL EMOTION_PLUS, "重置/小口"
		PRINTFORMW 『啊啦，我好像迟到了很久呢？』
	ELSE
		CALL EMOTION_PLUS, "重置/笑颜４/对话框開心"
		PRINTFORMW 『哼哼，今天也很精神呢，这就最好哇』
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
	CALL EMOTION_PLUS, "重置/小口/唇边手"
	IF RAND:3 == 0
		PRINTFORMW 「把%CNAME("一人称")%留在这里去和别人幽会吗？嗯～…」
	ELSEIF RAND:2
		PRINTFORMW 「啊，两个人都有事情吗？请慢走哦～」
	ELSE
		PRINTFORMW 「嘛…还真是亲密呢」
	ENDIF
CASE "便当"
	IF COND("同居中")
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "重置/左笑颜４"
			PRINTFORML 「来，尝尝吧。我对今天的便当很有自信哟！」
			CALL EMOTION_PLUS, "重置/左陰/半目/小口/对话框・・・"
			PRINTFORMW （…ほとんど弗理希艾尔が作ってくれたことは秘密ですわ）
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/涙目〇〇/困扰眉/△２/对话框尷尬"
			PRINTFORML 「对不起啊，今，今天有些着急所以发挥比之前任何一次都差…」
			PRINTFORMW 「下次会更加…应该能好好地做出来吧…肯定可以」
		ELSE
			CALL EMOTION_PLUS, "重置/笑颜４/对话框開心"
			PRINTFORML 「做，做出来了哟！请仔细品尝一下吧！」
			PRINTFORMW 「…如果可以的话对那可怕的外观睁一只眼闭一只眼吧，我会很感激的哇…」
		ENDIF
	ELSE
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "重置/笑颜４/小口/对话框開心"
			PRINTFORMW 「来来，快来吃吧？%CNAME("一人称")%我的肚子已经饿得咕咕叫了哇～」
			PRINTFORMW %CALLNAME:TARGET%兴冲冲地取出了便当在%CALLNAME:MASTER%的身边坐了下来。
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/左笑颜４/半目/对话框開心"
			PRINTFORMW 「来，尝尝吧。我只放了%CNAME("二人称")%喜欢吃的东西…我是这样认为的 ！」
		ELSE
			CALL EMOTION_PLUS, "重置/困扰眉/ڡ２/对话框汗"
			PRINTFORMW %CALLNAME:TARGET%带来的是一个有三层的便当箱。
			PRINTFORMW 「不，不知不觉就做了好多。把大家叫来一起吃吧？」
		ENDIF
	ENDIF
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「大家，从今天開始请多多指教哇！！」
	PRINTFORML %CALLNAME:TARGET%带着光彩夺目的笑颜和部员们一个接一个地握手。
CASE "浑身是汗"
	IF CHECK_CLO("体操服姿") && COND("胸罩透け") && EQUIP:胸罩 && RAND:3 == 0
		CALL EMOTEFACE, "重置/左笑颜４/小口/頬汗"
		PRINTFORML 「哎呀，衣服这么透都能看见胸衣了」
		PRINTFORML 「你喜欢这种的吗？」
	ELSEIF RAND:2
		CALL EMOTEFACE, "重置/半目/呀哒/頬汗"
		PRINTFORML 「哈啊～、汗水都把頭发浸湿了哇」
		PRINTFORML 「要是突然来阵风把它吹干就好啦…」
	ELSE
		CALL EMOTEFACE, "重置/半目/斜眉/小口/頬汗"
		PRINTFORML 「唔…闹过頭了感觉像要溶化了一样哇～…」
	ENDIF
CASE "刚睡醒"
	IF EXP_GAIN("睡眠姦経験")
		CALL EMOTEFACE, "重置/半目/小口/赤面/对话框困倦"
		IF RAND:3 && CHOSE_DEVENT("睡眠姦Ｖ中出し")
			PRINTFORML 「唔ー嗯………哈～………」
			PRINTFORML （总感觉肚子里有种幸福的重量呢…）
			PRINTFORML %CALLNAME:TARGET%在睡觉时用手柔缓地揉着被注入了种子的下腹部。
		ELSEIF RAND:2
			PRINTFORML 「………………」
			PRINTFORML %CALLNAME:TARGET%想起了%CALLNAME:MASTER%的事情，脸被染得通红。
			PRINTFORML （好像做了一个%CNAME("一人称")%被%CALLNAME:MASTER%抱着的梦…）
		ELSE
			PRINTFORML 「嗯………」
			PRINTFORML （怎么回事…？　小穴湿得好厉害哇…）
			PRINTFORML %CALLNAME:TARGET%一边歪着頭困惑地思考着，一边不停地来回擦着自己的大腿内侧。
		ENDIF
	ELSE
		IF RAND:4 == 0
			;CALL EMOTEFACE, "重置/憤怒眉/对话框圓圈"
			PRINTFORML 「哎呀…感觉没什么精神呢？　脸色看着也不太好…」
			PRINTFORML 「感觉输给冬天的寒冷了？这是因为锻炼…锻炼的程度还不够哇！！」
			PRINTFORML 「好好锻炼身体的话冬天的严寒也没什么大不了的哇！！」
			PRINTFORML 「来吧，准备好了吗！？那就出发了哟，向着雪山进发！！！」
			PRINTFORML
			CALL EMOTEFACE, "重置/左闭眼２/呀哒２/对话框汗"
			PRINTFORML 「…做了这样的噩梦…为什么最后变成了筋肉魔鬼呢…」
		ELSEIF RAND:3 == 0
			CALL EMOTEFACE, "重置/闭眼２/哈欠大/对话框困倦"
			PRINTFORML 「呼啊～～～………」
			PRINTFORML %CALLNAME:TARGET%打了一个大呵欠，又轻轻地拂去了贴在前额上的发丝。
		ELSEIF RAND:2
			CALL EMOTEFACE, "重置/左闭眼２/半目/小口/对话框困倦"
			PRINTFORML 「（咚咔、啵咔啵咔…）…啊呀不好意思、让你看到了不得体的样子呢」
			PRINTFORML %CALLNAME:TARGET%拍了拍自己的脑袋和肩膀试图把睡意驱散掉。
		ELSE
			CALL EMOTEFACE, "重置/＞＜/△２/对话框困倦"
			PRINTFORML 「嗯嗯～呼、睡了个好觉呢～」
			PRINTFORML %CALLNAME:TARGET%像是在强调丰满的胸部一样舒展着身体。
		ENDIF
	ENDIF
CASE "Cosplay中"
	PRINTFORML
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K37
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K37, %CSTR:PREV_DAILYCOM%后
	[ENDIF]
CASE "约会的约定"
	CALL EMOTEFACE, "重置/笑颜４/对话框開心"
	PRINTFORML 「哎嘿嘿っ♪约会，约会——♪」
	PRINTFORML 「我都要等不及到周末了哇～♪」
;これは悪魔のみ
CASE "契約成立"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K37, %CSTR:PREV_DAILYCOM%后
	[ENDIF]
CASE "摆脱"
	SELECTCASE SAVESTR:現在位置
		CASE "做爱房"
			CALL EMOTEFACE, "重置/小口/唇边手"
			PRINTFORML 「啊啦，原来还有一个房间吗？」
			PRINTFORML 「这里原来是做那种事情的房间呢，原来如此」
			PRINTFORML 「呜呼呼，请多多疼爱我吧♪」
		CASE "体育倉庫", "更衣室", "保健室"
			CALL EMOTEFACE, "重置/左笑颜４/紅潮２/托下巴"
			PRINTFORML 「难道要在这里做吗？这样的话…」
			PRINTFORML 「…不知道会不会被老师们和其他的学生们看见，感觉超级刺激呢♪」
		CASE "情人旅館"
			CALL EMOTEFACE, "重置/左笑颜４/半目/ڡ/紅潮２"
			PRINTFORML 「来这里的途中感觉也像在约会时一样让人非常開心呢…」
			PRINTFORML 「果然在这里的本命是最让人高兴的哇♪」
			PRINTFORML 「先去洗个澡吧♪　之后再进来也可以哟♪」
	ENDSELECT
CASE "主人公的房間に連れ込まれた"
	IF RAND:2
		CALL EMOTEFACE, "重置/左笑颜４/半目/ڡ/紅潮２"
		PRINTFORML 「ｽﾝｽﾝ…%CNAME("二人称")%的房间的味道，不知为何让我感觉很平静哇…」
	ELSE
		CALL EMOTEFACE, "重置/半目/ヮ/紅潮"
		PRINTFORML 「啊啦、带着%CNAME("一人称")%过来是打算做什么呢？」
		IF RAND:2
			PRINTFORML 「想要一起学习的话，只要是我会的都可以教你哦♪」
		ELSE
			PRINTFORML 「哼哼，无论是想闲聊还是想做色色的事情%CNAME("一人称")%都很欢迎哦♪」
		ENDIF
	ENDIF
CASE "自室に招待"
	CALL EMOTEFACE, "重置/半目/ヮ/紅潮"
	PRINTFORML 「哼哼、愿意来%CNAME("一人称")%的房间真是非常感谢呢♪」
	IF RAND:3 == 0
		PRINTFORML 「对了…需要的话请随意使用这里的%TEXTR("披肩/毛毯")%」
		PRINTFORML 「%CNAME("一人称")%の手編みですの。持って帰って使っても構いませんわよ♪」
	ELSEIF RAND:2
		PRINTFORML 「闻到红茶的味道了吗？对，是刚刚才泡好的。当然%CNAME("二人称")%的那份也有备好哟♪」
		PRINTFORML 「请用吧，因为还%TEXTR("是滚烫的/非常热/非常烫/很烫嘴/")%所以请小心点哦」
	ELSE
		PRINTFORML 「然后该做什么呢？」
		IF RAND:3 == 0
			PRINTFORML 「哼哼，无论是想闲聊还是想做色色的事情%CNAME("一人称")%都很欢迎哦♪」
		ELSEIF RAND:2
			PRINTFORML 「想要一起学习的话，只要是我会的都可以教你哦♪」
		ELSE
			PRINTFORML 「…总之我先去准备茶水吧。请先在觉得舒适的地方坐着等一会儿」
		ENDIF
	ENDIF
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		CALL EMOTEFACE, "重置/斜眉/小口/紅潮"
		PRINTFORML 「啊啦，%CNAME("二人称")%に%CNAME(CSVCALLNAME(NO:ASSI) )%。是特意来拜访我的吗」
		IF RAND:2
			PRINTFORML 「两位一起前来是有什么事情吗？」
		ELSE
			PRINTFORML 「现在我先去为你们准备茶水。请先在觉得舒适的地方坐着等一会儿」
		ENDIF
	ELSE
		CALL EMOTEFACE, "重置/斜眉/小口/紅潮"
		PRINTFORML 「啊啦、%CNAME("二人称")%。是特意来拜访我的吗」
		PRINTFORML 「到底是有什么事情呢？」
		IF RAND:3 == 0
			PRINTFORML 「…想来见见我？嘛，很高兴你这么说哇♪」
		ELSEIF RAND:2
			PRINTFORML 「想一起学习的话我会尽我所能教你的哟♪」
		ELSE
			PRINTFORML 「总之我先去准备茶水啦。请先在觉得舒适的地方坐着等一会儿吧」
		ENDIF
	ENDIF
CASE "指导者部屋訪問"
	CALL EMOTEFACE, "重置/左陰/嘲笑/紅潮"
	PRINTFORML 「二位%CNAME("一人称")%就请当我不存在该做什么就做什么就好」
	PRINTFORML 「嗯，%CNAME("一人称")%在这里旁观就好♪」
	PRINTFORML %CALLNAME:TARGET%一边嘿嘿嘿地坏笑着在两人视线的边缘找了个位置…。
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	CALL EMOTEFACE, "重置/半目/ヮ/紅潮２"
	PRINTFORML 「怎么了吗？　一脸坏笑的…」
	PRINTFORML 「难道说是看到%CNAME("一人称")%现在穿着的内裤了吗？」
	PRINTFORML 「真是，明明光明正大地看就好了…」
	PRINTFORML %CALLNAME:MASTER%点了点頭作为回答后，%CALLNAME:TARGET%撅着嘴唇发起了牢骚。
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	IF RAND:3 == 0
		CALL EMOTEFACE, "重置/半目/紅潮２/托下巴"
		PRINTFORML 「哼哼，这就结束了吗？明明再多做些这样那样的事情也可以的…」
		PRINTFORML %CALLNAME:TARGET%露出了妖媚的微笑注视着%CALLNAME:MASTER%。
	ELSEIF RAND:2
		CALL EMOTEFACE, "重置/左笑颜４/半目/小口/紅潮２/托下巴"
		PRINTFORML 「为了任何时候被看到都没関系，我专門选了%CNAME("二人称")%喜欢的种类哟」
		PRINTFORML 「今天的内裤还算满意吗？」
	ELSE
		CALL EMOTEFACE, "重置/闭眼２/困扰眉/小口/紅潮２/托下巴"
		PRINTFORML 「真是的，擅自偷看女孩子的短裙下面可是不行的哟？」
		PRINTFORML 「啊，如果对象是%CNAME("一人称")%的话请事先告知一声就好啦♪」
	ENDIF
CASE "检查内褲"
	IF COND("合意：检查内褲")
		CALL EMOTEFACE, "重置/半目/微笑３/紅潮２/唇边手"
		IF RAND:3 == 0
			PRINTFORML 「如何呢？有%CNAME("二人称")%看着顺眼的%PANTIES(TARGET, "胖次")%吗？」
		ELSEIF RAND:2
			PRINTFORML 「唔呼，%CNAME("一人称")%的%PANTIES(TARGET, "胖次")%看起来如何呢？」
		ELSE
			PRINTFORML 「真是的、%CNAME("二人称")%还真是喜欢%PANTIES(TARGET, "胖次")%呢」
		ENDIF
		PRINTFORML %CALLNAME:TARGET%小声偷笑着…。
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		CALL EMOTEFACE, "重置/左笑颜４/小口２/赤面/唇边手"
		IF RAND:2
			PRINTFORML 「呼呼，%CNAME("一人称")%最私密的部位…请尽情地检查吧…♪」
			PRINTFORML %CALLNAME:TARGET%红着脸的同时对你微笑着。
		ELSE
			PRINTFORML 「呀啊，%CNAME("二人称")%的呼吸有些粗重啊♪」
			PRINTFORML %CALLNAME:TARGET%通过小声偷笑着。
		ENDIF
	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
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:日常事件回数 >= 10 && DEVENT("質問１") == 0
	PRINTFORML 「関于%CNAME("一人称")%的能力，这样吗？」
	PRINTFORML 「…母亲的家族，据说从很久以前開始每隔几代都会产下风精灵的转世」
	PRINTFORML 「然后，这一次的转世貌似就是%CNAME("一人称")%哇」
	PRINTFORML 「所以呢，从被生下来開始就可以使用这种能力了…我是这么认为的哇」
	CALL SET_DEVENT, "質問１"
ENDIF
IF CFLAG:日常事件回数 >= 20 && DEVENT("質問２") == 0
	PRINTFORML 「関于%CNAME("一人称")%的家庭？」
	PRINTFORML 「母亲是北欧的贵族后裔、嫁到了这边的父亲家里」
	PRINTFORML 「父亲是这边的名門…風鳴家的子嗣呢」
	PRINTFORML 「两人似乎是经历了一场让两家都震惊到的困难重重又刻骨铭心的恋爱之后才结婚的哇」
	PRINTFORML 「啊啊、要是也能和%CNAME("一人称")%有那样浪漫的恋爱…一定会有的吧、欸嘿嘿♪」
	PRINTFORML %CALLNAME:TARGET%这样说着，看着%CALLNAME:MASTER%的目光似乎变得灼热起来…。
	CALL SET_DEVENT, "質問２"
ENDIF
IF CFLAG:日常事件回数 >= 30 && DEVENT("質問３") == 0
	PRINTFORML 「奇怪的事情和传闻…唔嗯——、都有什么呢………啊、对了哇」
	PRINTFORML 「的确…好像在哪听说过“虽然%CNAME("一人称")%是世界级的歌手但是也在负责国家防务”这样的传闻哇」
	PRINTFORML 「“说不定是做着一边歌唱一边战斗之类的不可思议的事情呢”还会这样想…不觉得很有趣吗？」
	CALL SET_DEVENT, "質問３"
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("夜")
;		PRINTFORML KOJO_DAILY_K37, 汎用台詞(夜)
;ELSE
	IF RAND:2 == 0
		SELECTCASE TEXTS("季節")
			CASE "冬"
				IF RAND:2
					CALL EMOTEFACE, "重置/左笑颜４/对话框兴奋"
				ELSE
					CALL EMOTEFACE, "重置/笑颜４/对话框開心/唇边手"
				ENDIF
				IF RAND:2
					PRINTFORML 「%TEXTR("呼呼呼/唔呵呵")%、看着积得很好看的雪，感觉%TEXTR("心情都好起来了/情绪高涨/心里很欢快")%哇ぁ♪」
					PRINTFORML %CALLNAME:TARGET%一边看着窗外一边高兴地笑着。
				ELSE

					PRINTFORML 「%TEXTR("啦啦啦～～～/啦～啦啦～/啦啦啦…/噜噜噜～…")%♪」
					PRINTFORML %CALLNAME:TARGET%一边愉快地哼唱着%TEXTR("即兴创作的曲子/故乡的民谣")%一边编织着织物。
				ENDIF
			CASE "秋"
				IF RAND:2
					CALL EMOTEFACE, "重置/左笑颜４/小口/对话框兴奋"
					PRINTFORML 「离我盼望已久的冬天已经不远了哇………呜呼呼………」
					PRINTFORML %CALLNAME:TARGET%似乎因为迫不及待而兴奋不已…。
				ELSE
					CALL EMOTEFACE, "重置/半目/小口/对话框・・・"
					PRINTFORML 「%TEXTR("えぇと/後は")%…%TEXTR("太/並太/合太/中細")%の%TEXTR("赤/橙色/黄/緑/黄緑/青/紫/茶/黒/白")%色が足りないですわね…」
					PRINTFORML %CALLNAME:TARGET%和毛线团组成的小山对视着…。
				ENDIF
			CASE "夏"
				IF RAND:3 == 0
					CALL EMOTEFACE, "重置/闭眼２/蹙眉/呀哒２/对话框汗３/頬汗"
					PRINTFORML 「%TEXTR("呜゛啊゛啊～/呜゛呜゛～/哈啊～")%…%TEXTR("好热/超热/酷暑/感觉要化掉了")%哇～………」
					IF EQUIP:TARGET:服 && RAND:2
						PRINTFORML %CALLNAME:TARGET%通过%TEXTR("倦怠至极的/毫无形象的")%%SHIRT(TARGET, "略")%啪嗒啪嗒地对胸口扇着风。
					ELSE
						PRINTFORML %CALLNAME:TARGET%软成一滩的同时也还在不停拂落着肌肤与发丝上粘连的汗珠…。
					ENDIF
				ELSEIF RAND:2
					CALL EMOTEFACE, "重置/左闭眼２/半目/蹙眉/小口/对话框汗/頬汗"
					PRINTFORML 「哈啊…听着喧嚣的蝉鸣声就感觉越来越热了是怎么回事…？」
					PRINTFORML %CALLNAME:TARGET%通过%TEXTR("无精打采地/幽怨地")%瞪着窗户外面…。
				ELSE
					CALL EMOTEFACE, "重置/蹙眉/半開/对话框汗２/頬汗"
					PRINTFORML 「等等…这样不就能让温度变低了吗？！」
					PRINTFORML %CALLNAME:TARGET%一跃而起想去调低空调的温度…。
				ENDIF
			CASE "春"
				IF RAND:2
					CALL EMOTEFACE, "重置/＞＜/嘟嘴２/对话框汗２"
					PRINTFORML 「%TEXTR("阿嚏/啊——嚏/哈——嚏/哈——啾")%！　…%TEXTR("纸巾纸巾…/啾——！/不，不好意思哇…")%」
					PRINTFORML %CALLNAME:TARGET%剧烈地打着喷嚏…。
				ELSE
					CALL EMOTEFACE, "重置/左笑颜４/对话框開心"
					PRINTFORML 「樱花…吹雪～♪」
					PRINTFORML %CALLNAME:TARGET%朝着%TEXTR("樱花/窗外")%唤起一阵微风…。
				ENDIF
		ENDSELECT
	ELSE
		LOCAL = FIND_COND("現在存在")
		IF RAND:4 == 0 && FIND_COND("現在存在")
			IF RAND:5 == 0
				CALL EMOTEFACE, "重置/对话框兴奋/唇边手"
			ELSEIF RAND:4 == 0
				CALL EMOTEFACE, "重置/左笑颜４/半目/会話口/对话框兴奋/唇边手"
			ELSEIF RAND:3 == 0
				CALL EMOTEFACE, "重置/笑颜４/会話口２/对话框兴奋/唇边手"
			ELSEIF RAND:2
				CALL EMOTEFACE, "重置/左笑颜４/ヮ/对话框兴奋"
			ELSE
				CALL EMOTEFACE, "重置/笑颜４/小口/对话框兴奋/唇边手"
			ENDIF
			PRINTFORML %CALLNAME:TARGET%和%CALLNAME:LOCAL%在有说有笑的。
		ELSEIF RAND:3 == 0
			IF RAND:3 == 0
				CALL EMOTEFACE, "重置/半目/小口/对话框・・・"
			ELSEIF RAND:2
				CALL EMOTEFACE, "重置/飘忽/微笑６/对话框・・・"
			ELSE
				CALL EMOTEFACE, "重置/飘忽/ヮ/对话框・・・"
			ENDIF
			PRINTFORML %CALLNAME:TARGET%通过%TEXTR("用专注认真的表情/一边不时因为美好的回忆露出笑容一边")%书写着寄给家里的信。
		ELSEIF RAND:2
			IF RAND:3 == 0
				CALL EMOTEFACE, "重置/斜眉/小口/对话框・・・/本"
			ELSEIF RAND:2
				CALL EMOTEFACE, "重置/半目/斜眉/笑顔２/对话框・・・/本"
			ELSE
				CALL EMOTEFACE, "重置/半目/斜眉/微笑６/对话框・・・/本"
			ENDIF
			PRINTFORM %CALLNAME:TARGET%通过
			IF FIND_COND("現在存在") && RAND:2
				PRINTFORM 和%CALLNAME:LOCAL%一起
			ELSE
				IF PLACE("partner的房間")
					PRINTFORM 坐在摇椅不停前后摇晃着
				ELSEIF PLACE("居間")
					PRINTFORM 坐在了沙发上
				ELSE
					PRINTFORM 坐在了椅子上
				ENDIF
			ENDIF
			PRINTFORML 在看一本名为『%TEXTR("剛力！向阳酱/天诛！防人君/怪杰！歌頭巾/奔跑吧！快盗姐妹")%』的漫画。
		ELSE
			CALL EMOTEFACE, "重置/半目/哈欠小/对话框・・・"
			PRINTFORML %CALLNAME:TARGET%通过%TEXTR("百无聊赖地/一边忍着哈欠一边/无所事事地")%在%TEXTR("手心/两手之间/指尖")%附近制造了一股不断盘旋的小小的旋风。
			SIF RAND:2 && CHARA_NUM("室内の邪魔者") > 4 && FIND_COND("現在存在")
				PRINTFORML 仔细一看、在空中飞舞着的旋风在%TEXTR("像是在追踪%CALLNAME:LOCAL%一样移动着/在%CALLNAME:LOCAL%的脚边来回转动着")%…。
		ENDIF
	ENDIF
;ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K37
SELECTCASE CONDS("直前行動")
	CASE "睡眠姦正常位", "睡眠姦寝后背位"
		IF COND("熟睡")
			IF RAND:2
				CALL EMOTEFACE, "重置/闭眼２/蹙眉/小口/赤面/对话框睡眠"
			ELSE
				CALL EMOTEFACE, "重置/闭眼２/困扰眉/小口/赤面/对话框睡眠"
			ENDIF
			IF RAND:4 == 0
				CALL PRINT_STR, "「………ＺＺＺ………嗯っ_H_」_L"
				PRINTFORML 发出着熟睡的呼吸声的%CALLNAME:TARGET%被%CALLNAME:PLAYER%用肉棒毫不犹豫地塞满了下面的膣道…。
			ELSEIF RAND:3 == 0
				CALL PRINT_STR, "「啊………嗯っ………_H_」_L"
				PRINTFORML 熟睡的%CALLNAME:TARGET%被%CALLNAME:PLAYER%用来处理着性欲也丝毫没有要醒来的迹象…。
			ELSEIF RAND:2
				CALL PRINT_STR, "「嗯………唔………_H_」_L"
				PRINTFORML 被%CALLNAME:PLAYER%激烈摆动腰部撞击着，%CALLNAME:TARGET%的乳房不停上下晃动…。
			ELSE
				CALL PRINT_STR, "「…………呜_H_　……啊っ_H_」_L"
				PRINTFORML 咕啾咕啾地欺负着%CALLNAME:TARGET%的%TEXTR("子宮口/Ｇ点")%，%CALLNAME:TARGET%发出甜美的轻声呻吟的同时身体也一下子后弓了起来…。
			ENDIF
		ELSEIF COND("打瞌睡")
			IF RAND:2
				CALL EMOTEFACE, "重置/闭眼２/蹙眉/小口/赤面/对话框睡眠"
			ELSE
				CALL EMOTEFACE, "重置/闭眼２/困扰眉/小口/赤面/对话框睡眠"
			ENDIF
			IF RAND:3 == 0
				CALL PRINT_STR, "「哈嗯……_H_　嗯啊……っ_H_」_L"
				PRINTFORML 在睡眠中被%CALLNAME:TARGET%侵犯的%CALLNAME:PLAYER%从口中漏出火热娇美的喘息声…。
			ELSEIF RAND:2
				CALL PRINT_STR, "「……呜っ……啊……_H_」_L"
				PRINTFORML 在%CALLNAME:TARGET%的阴道里一下下冲刺着，能感到她轻蹙着眉頭绷紧了身体…。
			ELSE
				CALL PRINT_STR, "「嗯嗯……呜……？_H_　啊呜…_H_」_L"
				PRINTFORML %CALLNAME:TARGET%由于快感而轻轻扭动着身体，膣内的软嫩的肉壁也在蠕动收缩着，把%CALLNAME:PLAYER%的大家伙紧紧地吸在里面包裹着…。
			ENDIF
		ELSE
			; 快要醒了
			IF RAND:2
				CALL EMOTEFACE, "重置/闭眼２/蹙眉/小口/赤面/对话框困倦"
			ELSE
				CALL EMOTEFACE, "重置/闭眼２/困扰眉/小口/赤面/对话框困倦"
			ENDIF
			IF RAND:4 == 0
				CALL PRINT_STR, "「呼、啊……_H_　嗯っ_H_　啊……呼呼_H_」_L"
				PRINTFORML 每隔一会儿就针对%CALLNAME:TARGET%的%TEXTR("子宮口/Ｇ点")%进行的冲撞让她在无意识中露出了幸福的痴笑，
				PRINTFORML 膣肉好像不愿意离開肉棒一样紧紧地将其缠住…。
			ELSEIF RAND:3 == 0
				CALL PRINT_STR, "「嗯呜っ……_H_　哈…_H_　坏蛋……_H_」_L"
				PRINTFORML 半梦半醒间%CALLNAME:TARGET%把侵犯着自己的%CALLNAME:PLAYER%抱住不放
				PRINTFORML 配合着你抽插的动作淫靡地晃动着自己的腰…。
			ELSEIF RAND:2
				CALL PRINT_STR, "「嗯啊ッ………啊？_H_　………」_L"
				PRINTFORML %CALLNAME:PLAYER%が%TEXTR("使劲地/大力地/激烈地/猛烈地")%进攻着%CALLNAME:TARGET%的%TEXTR("子宮口/Ｇ点")%，
				PRINTFORML %CALLNAME:TARGET%娇声呻吟着微微睁開了眼睛，露出了些笑意后又马上闭了起来…。
			ELSE
				CALL PRINT_STR, "「嗯っ…啊っ…唔…呜っ…呜啊っ…_H_」_L"
				PRINTFORML 当%CALLNAME:PLAYER%每一次%TEXTR("有节奏地/合着节奏地/梆梆梆地")%撞击着%CALLNAME:TARGET%的下胯部时，
				PRINTFORML 她都会漏出带着些许苦闷感的娇喘声…。
			ENDIF
		ENDIF
	CASEELSE
		IF RAND:3 == 0
			CALL EMOTEFACE, "重置/闭眼２/～/对话框睡眠"
		ELSEIF RAND:2
			CALL EMOTEFACE, "重置/闭眼２/小口/对话框睡眠"
		ELSE
			CALL EMOTEFACE, "重置/闭眼２/笑顔２/对话框睡眠"
		ENDIF
		IF RAND:3
			IF RAND:4 == 0
				PRINTFORML 「………………」
			ELSEIF RAND:3 == 0
				PRINTFORML 「嘶ー……嘶ー………」
			ELSEIF RAND:2
				PRINTFORML 「ＺＺＺ………zzz………」
			ELSE
				PRINTFORML 「嘶呼ー……」
			ENDIF
		ELSEIF RAND:2
			IF RAND:3 == 0
				PRINTFORML 「咯吱咯吱咯吱………（轻轻的磨牙声）」
			ELSEIF RAND:2
				PRINTFORML 「唔嗯………」
			ELSE
				PRINTFORML 「………向雪山进发………」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「呼呼………真開心哇ー………」
			ELSEIF RAND:2
				PRINTFORML 「唔ー………父亲大人…母亲大人………」
			ELSE
				PRINTFORML 「唔嘿嘿…已经吃不下了哇ー………」
			ENDIF
		ENDIF
ENDSELECT

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

SELECTCASE ARGS
CASE "学園での日常"

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

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

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

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "内衣選び", "泳装選び"
		PRINTFORMW
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

;[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("夜")
		GREETING = 晚上好！
	ELSEIF COND("昼")
		GREETING = %TEXTR("早啊/您贵安啊")%
	ELSE
		GREETING = 早上好
	ENDIF
	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/左笑颜４/微笑４/紅潮/对话框兴奋"
			PRINTFORMW 「%GREETING%…啊呀，真是热情呢♪」
			PRINTFORMW 「那么作为回应…抱紧♪」
		ELSEIF COND("易出汗", MASTER)
			CALL EMOTION_PLUS, "重置/半目/困扰眉/紅潮"
			PRINTFORMW 「%GREETING%…！　欸欸，抱我之前要先把汗擦干净呀」
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/左笑颜４/微笑４/紅潮/对话框兴奋"
				PRINTFORMW 「哼哼，倒也不讨厌这种代表努力过的男性的气味呢」
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/半目/小口/紅潮/对话框兴奋"
				PRINTFORMW 「真是让人无可奈何，%CNAME("一人称")%我来帮你擦一擦哦♪」
			ELSE
				CALL EMOTION_PLUS, "重置/笑顔２/紅潮/对话框兴奋"
				PRINTFORMW 「ほら、%CNAME("一人称")%の風で汗を飛ばしてあげますわよ？」
			ENDIF
		ELSE
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/闭眼２/斜眉/紅潮"
				PRINTFORMW 「%GREETING%…呼呼，真暖和呢」
				PRINTFORMW 「%CNAME("二人称")%，这种程度的热我还是挺喜欢的啦」
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/左笑颜４/紅潮"
				PRINTFORMW 「呜呼呼呼、%GREETING%！　抱——♪」
				PRINTFORMW %CALLNAME:TARGET%笑眯眯地回过来抱住了%CALLNAME:MASTER%。
			ELSE
				CALL EMOTION_PLUS, "重置/左陰/小口/紅潮"
				PRINTFORMW 「そんなに熱心に抱きつくと…吹き飛ばしてしまいますわよ？」
				CALL EMOTION_PLUS, "重置/左笑颜４/紅潮/对话框兴奋"
				PRINTFORMW 「…唔嘿嘿，開玩笑的♪　我才不会做出那种事情哇♪」
			ENDIF
		ENDIF
	CASE "打招呼接吻"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/斜眉/小口/紅潮２"
			PRINTFORMW 「嗯？　…啾っ………%GREETING%」
			CALL EMOTION_PLUS, "重置/半目/ヮ/紅潮２/对话框開心"
			PRINTFORMW 「唔嘿嘿、用吻来作为问候…真棒呐♪」
		ELSE
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/闭眼２/小口/紅潮２"
				PRINTFORMW 「嗯………噗哈…%GREETING%」
				CALL EMOTION_PLUS, "重置/半目/ヮ/紅潮２/对话框開心"
				PRINTFORMW 「呼呼，真是超棒的问候呢♪」
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/闭眼２/小口/紅潮２"
				PRINTFORMW 「啾……%GREETING%」
				CALL EMOTION_PLUS, "重置/半目/ڡ/紅潮２/对话框爱心"
				PRINTFORMW 「…不满足哇，再来一次吧…啾っ」
			ELSE
				CALL EMOTION_PLUS, "重置/闭眼２/小口/紅潮２"
				PRINTFORMW 「%GREETING%，嗯啾…呼………」
				CALL EMOTION_PLUS, "重置/左闭眼２/半目/ڡ/紅潮２/对话框爱心"
				PRINTFORMW 「呼哈…感觉嘴唇都要溶化了呢…♪」
			ENDIF
		ENDIF
	CASE "打招呼口交", "打招呼舐陰"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/小口/紅潮２/对话框？"
			PRINTFORMW 「嗯っ…这是在打招呼吗？」
			PRINTFORMW 「感觉大胆又新颖，还真是有趣呢♪」
		ELSE
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/笑颜４/ヮ/紅潮２"
				PRINTFORMW 「呜呼呼、%GREETING%」
				PRINTFORMW 「一见面就被请求做这种事情也不坏呢」
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/半目/小口/紅潮２"
				PRINTFORMW 「真是的，%CNAME("二人称")%还真是个没节操的家伙呢」
				CALL EMOTION_PLUS, "重置/左笑颜４/紅潮２/对话框爱心"
				PRINTFORM 「呼呼、要继续做下去的话
				IF PLACE("自宅")
					PRINTFORM 请在%CNAME("二人称")%在%CNAME("一人称")%卧室
				ELSE
					PRINTFORM 的床上
				ENDIF
					PRINTFORMW 继续吧♪」
			ELSE
				CALL EMOTION_PLUS, "重置/半目/斜眉/小口/紅潮２"
				PRINTFORMW 「普通的问候方式已经没法满足了，是这个意思吧」
			ENDIF
		ENDIF
	CASEELSE
		;你に先に打招呼をされた
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "重置/笑颜４/对话框兴奋"
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/左笑颜４/微笑４/对话框兴奋"
		ELSE
			CALL EMOTION_PLUS, "重置/笑顔２/对话框兴奋"
		ENDIF
		PRINTFORMW 「%TEXTR("啊啦/呵呵")%、%GREETING%」
		IF CFLAG:打招呼した == 0
			IF RAND:2
				PRINTFORMW 「%CNAME("二人称")%今天看着也元气满满呢！」
			ELSE
				PRINTFORMW 「有精神的招呼会让双方的心情都好起来呢！」
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORMW 「%CNAME("二人称")%今天看着也元气满满呢！」
			ELSE
				PRINTFORMW 「有精神的招呼会让双方的心情都好起来呢！」
			ENDIF
		ENDIF
	ENDSELECT
CASE "叫醒"
	IF RAND:3 == 0
		CALL EMOTION_PLUS, "重置/闭眼２/困扰眉/～/对话框困倦"
	ELSEIF RAND:2
		CALL EMOTION_PLUS, "重置/半目/斜眉/哈欠小/对话框困倦"
	ELSE
		CALL EMOTION_PLUS, "重置/左闭眼２/半目/斜眉/小口/对话框困倦"
	ENDIF
	IF RAND:3 == 0
		PRINTFORMW 「…哦呀？原来是梦啊…真可惜哇」
		PRINTFORMW %CALLNAME:TARGET%一脸%TEXTR("遗憾地/不满地")%似地发出了叹息…。
	ELSEIF RAND:2
		PRINTFORMW 「呼哇啊啊～～～…ッ……」
		PRINTFORMW %CALLNAME:TARGET%揉着惺松的睡眼，长大了嘴打着哈欠。
	ELSE
		PRINTFORMW 「啊呜呜…就当是在做善事吧…请就让我再睡五分钟——………」
		PRINTFORMW %CALLNAME:TARGET%在自己的四周展開了一堵风墙准备继续睡回笼觉…。
	ENDIF
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	CALL EMOTION_PLUS, "重置/眯眯眼/哈欠小/对话框困倦"
	PRINTFORMW 「呼哇啊啊…啊啦失礼了，但是開始感觉有些困了…」
	PRINTFORMW 「我就先行失陪了…呼啊啊～…」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "重置/笑颜４/紅潮/对话框開心"
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/半目/笑顔２/紅潮/对话框開心"
		ELSE
			CALL EMOTION_PLUS, "重置/笑颜４/微笑４/紅潮/对话框開心"
		ENDIF
		IF RAND:3 == 0
			PRINTFORMW 「突，突然被这样说的话我会很为难的…原因？」
			PRINTFORMW 「因为%CNAME("一人称")%的心会被%CNAME("二人称")%牢牢地俘虏呀♪」
		ELSEIF RAND:2
			PRINTFORMW 「唔嘿嘿、谢谢你啦♪」
			PRINTFORMW 「被这么直白地褒奖感觉也不错呢♪」
		ELSE
			PRINTFORMW 「啊啦、你还真是会夸人呢♪」
			PRINTFORMW 「再多多夸夸我也没関系哟♪」
		ENDIF
	CASE "甜言蜜语"
		IF TALENT:恋慕
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/ヮ/爱心眼/赤面/对话框爱心"
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/左笑颜４/笑顔２/爱心眼/赤面/对话框爱心"
			ELSE
				CALL EMOTION_PLUS, "重置/半目/小口/爱心眼/赤面/对话框爱心"
			ENDIF
			IF RAND:3 == 0
				CALL PRINT_STR, "「这、这种话请不要再说了——_H_」_W"
				CALL PRINT_STR, @"「%CNAME("一人称")%，感觉自己的心里热乎乎的，就像心灵和肉体都要溶化了一样哇——_HH_」_W"
			ELSEIF RAND:2
				CALL PRINT_STR, "「欸！_H_　呜呼呼…_H_」_W"
				CALL PRINT_STR, @"「我说%CNAME("二人称")%？　我也…爱你哇_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「被%CNAME("二人称", "どもり")%说了这种，这么甜言蜜语的话…っ_H_」_W"
				CALL PRINT_STR, @"「%CNAME("一人称")%会感觉有些幸福过頭了哇啊啊～～～ッ！！_HH_」_W"
			ENDIF
		ELSEIF CALCF("甜言蜜语成功")
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/笑颜４/紅潮２/对话框爱心"
				PRINTFORMW 「呼——…%CNAME("二人称")%我已经看穿你的企图了哦！」
				PRINTFORMW 「是企图让%CNAME("一人称")%心动不已变成%CNAME("二人称")%的俘虏对吧！？」
				PRINTFORMW 「请放心！　漂亮地击中了要害，效果拔群哇！！」
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/左笑颜４/紅潮２/对话框爱心"
				PRINTFORMW 「ai、爱我什么的这种…多说一些也感觉不错哦♪」
				PRINTFORMW 「来嘛别害羞，快、快、快啊！」
			ELSE
				CALL EMOTION_PLUS, "重置/左笑颜４/憤怒眉/小口/紅潮２"
				PRINTFORMW 「还想着突然在说什么呢…真是，什么啊？！」
				CALL EMOTION_PLUS, "重置/左笑颜４/憤怒眉/呀哒/紅潮２/对话框爱心"
				PRINTFORMW 「%CNAME("二人称")%就那么喜欢看%CNAME("一人称")%被弄得怦然心动的样子吗！？」
				PRINTFORMW 「想知道%CNAME("一人称")%我是怎么想的？　好吧，%CNAME("二人称")%超喜欢被你弄得小鹿乱撞——！」
			ENDIF
		ELSE
			CALL EMOTION_PLUS, "重置/飘忽/小口"
			PRINTFORMW 「……………」
			CALL EMOTION_PLUS, "重置/ヮ/对话框？"
			PRINTFORMW 「？　哎呀真是抱歉、我没有听清哇」
		ENDIF
	CASEELSE
	IF RAND:2
		SELECTCASE TEXTS("季節")
			CASE "冬"
				IF RAND:4 == 0
					CALL EMOTION_PLUS, "重置/小口"
					PRINTFORMW 「不好意思啊、现在%TEXTR("有点腾不開手呢…/手伸过去的话会被切到哟")%」
					PRINTFORMW %CALLNAME:TARGET%对着一个手掌大小的%TEXTR("冰雕/雪人")%，用指尖制造出的气刃雕刻着它的面部…。
				ELSEIF RAND:3 == 0
					CALL EMOTION_PLUS, "重置/笑颜４/ヮ"
					PRINTFORMW 「呼呼呼…积雪看着真不错呢」
					PRINTFORM 「想和大家一起
					IF RAND:2
						PRINTFORM 堆%TEXTR("雪人/雪像/雪屋")%也好
					ELSE
						PRINTFORM 玩%TEXTR("打雪仗/滑雪橇")%也好
					ENDIF
					PRINTFORMW 的感觉哇♪」
				ELSEIF RAND:2
					CALL EMOTION_PLUS, "重置/小口"
					PRINTFORMW 「呐%CNAME("二人称")%，能把手臂伸直一下吗？」
					PRINTFORMW 照着%CALLNAME:TARGET%说的那样伸直了手臂、她用卷尺丈量着%CALLNAME:MASTER%的身体，然后在笔记簿上记下了一些数字。
					CALL EMOTION_PLUS, "重置/左笑颜４/ヮ"
					PRINTFORMW 「…好了，谢谢配合啊。这样就可以去织%CNAME("二人称")%的新毛衣了哇♪」
				ELSE
					CALL EMOTION_PLUS, "重置/左笑颜４/对话框兴奋/頭上橘子"
					PRINTFORMW 「%CNAME("二人称")%ー？要不要一起吃冻橘子？」
					PRINTFORMW 「早上刚埋进那边的雪堆里面的♪」
				ENDIF
			CASE "秋"
				IF RAND:3 == 0
					CALL EMOTION_PLUS, "重置/小口"
					PRINTFORMW 「说起来这说学校，意外的有很多果树呢」
					IF RAND:2
						PRINTFORMW 「说起来、偶尔会发现%TEXTR("体育馆里的苹果树/教员室前的梨树/第四图书室前的柿子树")%上的果实越来越少了呢」
						PRINTFORMW 「老师们还是其他人会去摘收树上的果实吗…？　有些好奇啊…」
					ELSE
						PRINTFORMW 「…告诉你个秘密、我之前本来试图用气刃把树上的果子打下来然后拿走的」
						CALL EMOTION_PLUS, "重置/〇〇/左涙目〇〇/对话框汗"
						PRINTFORMW 「结果？最后没有控制好力度结果把树枝全都切得粉碎哇…」
						SIF RAND:2
							CALL EMOTION_PLUS, "重置/〇〇/对话框惊讶"
							PRINTFORMW 「…欸？反正是风精灵，直接飞起来去摘下来不就好了…？　啊——…」
					ENDIF
				ELSEIF RAND:2
					CALL EMOTION_PLUS, "重置/飘忽/小口"
					PRINTFORMW 「校园的各处，都堆积了不少落叶呢」
					IF RAND:2
						PRINTFORMW 「我想起了小的时候，我在家里的所有土地里面的森林中用落叶做了一张床」
					ELSE
						PRINTFORMW 「反正最后肯定就不要了，用来烤苹果和红薯的话似乎也挺好玩的呢」
					ENDIF
				ELSE
					CALL EMOTION_PLUS, "重置/飘忽/斜眉/ヮ"
					IF RAND:3 == 0
						PRINTFORMW 「无论是红叶还是银杏叶都变成了很鲜艳的颜色呢。真是炫目多彩哇」
						PRINTFORMW 「放学之后想和社团的各位一起去赏红叶哇」
					ELSEIF RAND:2
						PRINTFORMW 「银杏的叶子明明是那么绮丽的金黄色、为什么实际闻起来却那么臭呢？」
						PRINTFORMW 「真钦佩那些能把它们全扫干净的人啊…」
					ELSE
						PRINTFORMW 「啊啦、红蜻蜓…有好多红蜻蜓在飞来飞去呢」
						PRINTFORMW 「究竟是从哪里飞过来的呢」
					ENDIF
					PRINTFORMW %CALLNAME:TARGET%一边看着外面的景色一边闲谈着。
				ENDIF
			CASE "夏"
				IF RAND:3 == 0
					CALL EMOTION_PLUS, "重置/半目/へ字２/托下巴"
					PRINTFORMW 「要来了呢…台风。已经出台对策了吗？」
					IF RAND:3 == 0
						PRINTFORMW 「被吹跑的话会很麻烦所以趁现在回家待着就好了哟！」
						PRINTFORMW 「然后是养生胶带还有食物和水的采购以及避难路线的确认都千万不要忘了哇！」
					ELSEIF RAND:2
						PRINTFORMW 「你说%CNAME("一人称")%的能力应该能派上些用场吗？」
						PRINTFORMW 「嗯——，最多只有在台风来到附近的时候削弱一下它的势力的程度…」
					ELSE
						PRINTFORMW 「要不要去肉铺里买些可乐饼以备不时之需呢…」
						PRINTFORMW 「之后必须要注意观察水渠和海岸的情况呢…」
					ENDIF
				ELSEIF RAND:2
					CALL EMOTION_PLUS, "重置/半目/困扰眉/小口/頬汗"
					PRINTFORMW 「…你问能不能用%CNAME("一人称")%的能力让四周变凉快一些？」
					PRINTFORMW 「在什么都没有的地方凭空产生出冷气这种事情确实做不到呢…」
					PRINTFORMW 「嗯——，要说的话也只能清扫一下空调里的灰尘这样吧…」
					PRINTFORMW 面对%CALLNAME:MASTER%的请求，%CALLNAME:TARGET%无精打采地摇着頭…。
				ELSE
					IF RAND:4 == 0
						CALL EMOTION_PLUS, "重置/半目/小口/托下巴"
						PRINTFORMW 「夏天喜欢去的地方？我看看啊，有美味的冰淇淋，可以穿可爱的泳装…」
						PRINTFORMW 「还可以接近身上滴着水珠的男士和美少女…啊咧？意外的是个好地方呢…」
					ELSEIF RAND:3 == 0
						CALL EMOTION_PLUS, "重置/半目/蹙眉/呀哒２"
						PRINTFORMW 「啊～啊…要是时间可以直接快进到凉快的时候就好了………」
						PRINTFORMW 「我说啊、那个恶魔女仆能不能通过魂操纵时间什么的呢？」
					ELSEIF RAND:2
						CALL EMOTION_PLUS, "重置/左闭眼２/半目/蹙眉/小口/对话框汗"
						PRINTFORMW 「呜～…这暑气真是让人无可奈何哇………」
						PRINTFORMW 「这个难道说…不对、绝————对是异常气象吧…一定是这样的哇…」
					ELSE
						CALL EMOTION_PLUS, "重置/闭眼２/蹙眉/小口２/对话框乱"
						PRINTFORMW 「哈～啊…这么热的话真想索性回父母家呢………」
						PRINTFORMW 「我想，要不叫上社团的各位…%TEXTR("轻闲地/悠闲地")%と%TEXTR("開个茶会/聊会儿天/散散步")%哇…」
					ENDIF
				ENDIF
			CASE "春"
				IF RAND:3 == 0
					CALL EMOTION_PLUS, "重置/＞＜/蹙眉/嘟嘴２"
					PRINTFORMW 「%TEXTR("阿嚏/啊——嚏/哈——嚏/哈嚏——/哈——啾")%！！」
					CALL EMOTION_PLUS, "重置/左闭眼２/半目/蹙眉/～/对话框乱"
					PRINTFORMW 「呃——、鼻子里好像进了小虫子哇…」
				ELSEIF RAND:2
					CALL EMOTION_PLUS, "重置/左闭眼２/半目/哈欠小/对话框困倦"
					PRINTFORMW 「呼哇～…这个天气正好呢，有些变困了哇～…」
					PRINTFORMW 「不如我们一起稍微睡个午觉吧？」
				ELSE
					CALL EMOTION_PLUS, "重置/笑颜４/对话框開心"
					PRINTFORMW 「呵呵、樱花真是美丽呢」
					PRINTFORMW 「想和大家一起去赏花哇♪」
				ENDIF
		ENDSELECT
	ELSE
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "重置/小口/托下巴"
			PRINTFORMW 「说起来%CNAME("二人称")%…在学习的时候有没有不明白的地方？」
			IF RAND:2
				CALL EMOTION_PLUS, "重置/左笑颜４"
				PRINTFORMW 「性教育的话我确实是胜不过%CNAME("二人称")%…そ除此之外我都很有自信哟！」
			ELSE
				CALL EMOTION_PLUS, "重置/闭眼２/对话框電球"
				PRINTFORMW 「%CNAME("一人称")%啊，可是成绩非常优秀的…什么都可以来问我哦♪」
			ENDIF
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/半目/△２/对话框惊讶"
			PRINTFORMW 「你说什么、这是真的吗？！」
			PRINTFORMW %CALLNAME:TARGET%把%CALLNAME:MASTER%%TEXTR("半開玩笑地/吹牛的/经过夸张地/添油加醋的")%话语当真了…。
		ELSE
			CALL EMOTION_PLUS, "重置/笑颜４/微笑４/对话框兴奋"
			PRINTFORMW 「全心全意对待生命中的每一个瞬间，这就是%CNAME("一人称")%的座右铭」
			PRINTFORMW 「因为人生是只有一次的东西…不好好享受的话就太浪费了哇」
		ENDIF
	ENDIF
	ENDSELECT

CASE "拭汗"
	CALL EMOTION_PLUS, "重置/笑颜４/微笑４/頬汗"
	PRINTFORMW 「啊啦，您在为我擦汗吗。非常感谢哇」
	IF RAND:2
		CALL EMOTION_PLUS, "重置/半目/ヮ/对话框爱心/頬汗"
		PRINTFORMW 「…稍稍做些恶作剧也是没関系的哟？　来吧来吧♪」
	ELSE
		CALL EMOTION_PLUS, "重置/半目/ヮ/对话框爱心/頬汗"
		PRINTFORMW 「那里…%TEXTR("乳沟里面/腋下/臀部")%也请帮忙擦一下♪」
	ENDIF
CASE "淋浴独り言"
	PRINTFORML 「%TEXTR("好——烫——，真的゛好゛烫——゛哇——！/咿呀——！哈，好，好冷哇——！/哈啊～…身体和精神都好清爽哇～♪/对啦对啦，果然淋浴就该用温水啊～♪")%」
CASE "淋浴"
	SELECTCASE SAVESTR:現在位置
	CASE "自室"
		PRINTFORM 「啊——，欢迎回来，
	CASEELSE
		PRINTFORM 「啊啦、您来了呢？
	ENDSELECT
	PRINTFORMW 借用一下淋浴间哦」
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		IF RAND:2
			CALL EMOTION_PLUS, "重置/笑颜４"
			PRINTFORMW 「话说%CNAME("一人称")%穿过的内裤还算合您的意吗？」
			CALL EMOTION_PLUS, "重置/左陰/嘲笑"
			PRINTFORMW 「啊啦，本以为不会被发现吗？没関系，这种程度我是不会生气的哇♪」
		ELSE
			CALL EMOTION_PLUS, "重置/左笑颜４/嘲笑"
			PRINTFORMW 「呵呵、抓住了%CNAME("一人称")%的内裤你感觉如何啊？」
			PRINTFORMW 「不管你回答与否我都知道哇，因为%CNAME("二人称")%的大鸡鸡已经变得很精神了呢♪」
		ENDIF
	ELSE
		IF TALENT:恋慕 && RAND:3 == 0
			CALL EMOTION_PLUS, "重置/半目/小口/托下巴"
			PRINTFORMW 「本来还以为%CNAME("二人称")%的话会在我洗澡的时候来突袭…结果没有来呢」
			PRINTFORMW 「明明无论何时%CNAME("一人称")%都很欢迎的…」
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/微笑３"
			PRINTFORMW 「…来得正好哇、可以帮我一起把頭发吹干吗？」
			PRINTFORMW 「虽然是这么说、%CNAME("一人称")%用风吹干之后请帮我用梳子梳理一下就可以了哇」
		ELSE
			CALL EMOTION_PLUS, "重置/小口/对话框？"
			PRINTFORMW 「你怎么了呀、这么沉默…啊——、我知道了哇」
			CALL EMOTION_PLUS, "重置/笑颜４/对话框開心"
			PRINTFORMW 「因为%CNAME("一人称")%的身材的香味让你的胯下起反应了所以不敢动吧，我看到了哦！」
		ENDIF
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

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

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K37
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		PRINTFORMW
	CASE "按摩"
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/半目/△/托下巴"
			PRINTFORMW 「要给我…按摩吗？嗯～，嘛也确实…感觉肩膀很沉重…」
			PRINTFORMW 「…把我弄疼的话我会哭出来哟？」
			PRINTFORML
			PRINTFORMW １５分钟后…
			CALL EMOTION_PLUS, "重置/闭眼２/斜眉/对话框開心"
			PRINTFORMW 「啊——、啊啊啊～～～～…嗯——，嗯～～～～………」
			PRINTFORMW 「…不，不会吧…肩膀的感觉变得好轻松…就好像长了翅膀一样哇♪」
			PRINTFORMW 「哎嘿嘿、下次也拜托你啦♪啾——♪」
			PRINTFORMW 对按摩十分满意的%CALLNAME:TARGET%紧紧抱住了%CALLNAME:MASTER%，在脸颊上吻了一下。
		ELSE
			IF RAND:2
				CALL EMOTION_PLUS, "重置/闭眼２/ヮ２"
				PRINTFORMW 「啊啊啊～～～，那里哪里…好舒服哇～～～」
				PRINTFORMW 「…总感觉现在的%CNAME("一人称")%，就好像刚工作完的大叔一样呢…」
			ELSE
				CALL EMOTION_PLUS, "重置/笑颜４/ヮ"
				PRINTFORMW 「脚也要按摩吗？既然你都这样说了…」
				PRINTFORMW 「呼——，唔呼呼——，哈哈好，好——痒啊——，呜哈——，呜哈哈——…」
			ENDIF
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF RAND:2
				CALL EMOTION_PLUS, "重置/半目/小口/紅潮２/对话框爱心"
			ELSE
				CALL EMOTION_PLUS, "重置/左笑颜４/半目/小口/紅潮２/对话框爱心"
			ENDIF
			IF RAND:2
				PRINTFORMW 「嗯啾、啾、啾噜噜…嗯呼、呼ーっ…」
				PRINTFORMW （这么深厚激烈的…比起亲吻不如说是嘴巴之间的性交吧…）
				PRINTFORMW （啊啊…请再更加…更多地索求%CNAME("一人称")%的嘴…请尽情地品尝吧…♪）
			ELSE
				PRINTFORMW 「啾——，啾噜噜…嗯——，嗯～ッ…♪」
				PRINTFORMW 「噗啊…和%CNAME("二人称")%亲吻着，真的好舒服哇…♪」
			ENDIF
		ELSE
			IF RAND:4 == 0
				CALL EMOTION_PLUS, "重置/半目/ヮ/紅潮２"
			ELSEIF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/左笑颜４/半目/ヮ/紅潮２"
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/半目/小口/紅潮２"
			ELSE
				CALL EMOTION_PLUS, "重置/左笑颜４/半目/小口/紅潮２"
			ENDIF
			IF RAND:3 == 0
				PRINTFORMW 「噗哈…啊啦对不起，有口水…。我马上擦干净哦」
				PRINTFORMW %CALLNAME:TARGET%用手巾拭去了自己与%CALLNAME:MASTER%嘴唇分离时滴落在%CALLNAME:MASTER%衣服上的涎水。
			ELSEIF RAND:2
				PRINTFORMW 「啾——……啊啦？只是轻轻碰上吗？」
				PRINTFORMW 「还以为会是更加浓厚激烈的吻呢…」
				PRINTFORMW %CALLNAME:TARGET%把手指搭在嘴唇上，看起来一副很遗憾的样子。
			ELSE
				PRINTFORMW 「啾呜…啾叭、啾——啾…♪」
				PRINTFORMW 「嗯…唔，已经结束了吗？…再多亲一会儿吧？」
			ENDIF
		ENDIF
	CASE "膝枕"
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/笑颜４/ヮ"
			PRINTFORMW 「啊啦…想给我膝枕吗？」
			PRINTFORMW 「呵呵、既然你都这么说了…♪」
			PRINTFORMW %CALLNAME:TARGET%通过兴高采烈地躺倒在%CALLNAME:MASTER%的腿上、撒娇似的用脸颊轻轻蹭着%CALLNAME:MASTER%的大腿。
		ELSE
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/半目/斜眉/小口"
				PRINTFORMW 「总是让你来做总感觉不太好呢…」
				PRINTFORMW 「下次就轮到%CNAME("一人称")%来给%CNAME("二人称")%膝枕好了，不要忘记了哦」
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/闭眼２/斜眉/ヮ"
				PRINTFORMW 「感觉…回忆起了……故乡的双亲啊………ＺＺＺ………」
				PRINTFORMW 享受着膝枕地%CALLNAME:TARGET%恬然地睡着了…。
			ELSE
				CALL EMOTION_PLUS, "重置/闭眼２/斜眉/ヮ"
				PRINTFORMW 「再稍稍把腿并拢一些…对，感觉真舒服哇」
				PRINTFORMW 「嗯…没错没错、这个这个…这个就是%CNAME("一人称")%理想中地膝枕哇♪」
				PRINTFORMW %CALLNAME:TARGET%带着一脸满足的表情对%CALLNAME:MASTER%展露着笑颜。
			ENDIF
		ENDIF
	CASE "泡茶"
		CALL EMOTION_PLUS, "重置/笑颜４/斜眉/对话框兴奋/茶"
		PRINTFORMW 「为我泡了茶吗？　非常感谢」
		IF RAND:3 == 0
			PRINTFORMW 「呵呵，有人为我泡茶真是很让人高兴哇♪」
			PRINTFORMW 「对了哇，我带了点心所以一起来吃吧♪」
			PRINTFORMW %CALLNAME:TARGET%一边这么说着一边不知从何处取出了%TEXTR("奶油酥饼/巧克力蛋糕/蒙布朗/芝士蛋糕/长崎蛋糕/红薯羊羹/奶油泡芙/华夫饼/曲奇饼/饼干")%和餐具。
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/闭眼２/斜眉/小口/对话框・・・/茶"
			PRINTFORM 「%TEXTR("咕噜——…咕噜——/嘶嘶嘶")%………
			IF CFLAG:4500 >= 10
				CALL EMOTION_PLUS, "重置/斜眉/微笑４/托下巴"
				PRINTFORMW 呼唔…{RAND(60, 70)}…不对，{RAND(75, 80)}分（%CALLNAME:TARGET%标准）的感觉吧」
				PRINTFORMW 「还有精进的空间呢。要不要给你開个小讲座分析一下？」
			ELSEIF CFLAG:4500 >= 20
				CALL EMOTION_PLUS, "重置/左笑颜４/斜眉/ヮ/托下巴"
				PRINTFORMW 真是不错呢、{RAND(85, 95)}分（%CALLNAME:TARGET%标准）的感觉哇」
				PRINTFORMW 「%TEXTR("离完美就差临門一脚，就是这种感觉哇！/再多多注意一下水的温度的话…/可以再仔细把控一下醒茶的时间")%」
			ELSE
				IF CEVENT("精霊好みの茶") == 0
					CALL EMOTION_PLUS, "重置/左笑颜４/斜眉/对话框開心/唇边手"
					PRINTFORMW 这是…基本就是１００分满分（%CALLNAME:TARGET%标准）的水平了哇！」
					PRINTFORMW 「可以的话请每次都保持这个水平啊！　正所谓『茶『水』』！」
					CALL SET_CEVENT, "精霊好みの茶"
				ELSE
					CALL EMOTION_PLUS, "重置/ほんわか/斜眉/茶"
					PRINTFORMW 「%TEXTR("唔呼呼，/哈啊…")%%CNAME("二人称")%泡出来的茶今天也同样美味哇——♪」
					IF RAND:3 == 0
						PRINTFORMW 「这样下去可以去%CNAME("一人称")%家里永久就职了呢…哎嘿、開个玩笑哇」
						PRINTFORMW 这样说着的%CALLNAME:TARGET%的眼神却认真的完全不像在開玩笑…。
					ELSEIF RAND:2
						PRINTFORMW 「居然有了这种进步…%CNAME("一人称")%为你感到自豪哇——♪」
					ELSE
						PRINTFORMW 「%CNAME("一人称")%现在，可以挺起胸说自己是学校最幸福的人啦…欸？太夸张了？」
					ENDIF
				ENDIF
			ENDIF
		ELSE
			CALL EMOTION_PLUS, "重置/小口/茶"
			PRINTFORMW 「…啊啦、茶叶梗立起来了哇。还真是解风情呢」
		ENDIF
		CFLAG:4500 += 1
	CASE "勸酒"
		PRINTFORMW
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "摸頭"
		SELECTCASE CSTR:PREV_DAILYCOM
		CASE "接吻", "接吻"
			CALL EMOTION_PLUS, "重置/左笑颜４/半目/小口/紅潮２/对话框爱心"
			PRINTFORMW 「啾——，唦啦…唔呵呵、一边亲吻一边抚摸什么的…」
			PRINTFORMW 「还想要更多更多的对着%CNAME("二人称")%撒娇哇♪啾——♪」
		CASE "手淫", "口淫", "清洁口交", "拜托処理性欲"
			CALL EMOTION_PLUS, "重置/半目/ڡ２/紅潮２/对话框爱心"
			PRINTFORMW 「这是在…因为我有好好在侍奉所以夸奖了我吗？好高兴哇♪」
			PRINTFORMW 「下次也请让我尽我所能哦…♪」
		CASE "摩擦股間"
			CALL EMOTION_PLUS, "重置/半目/困扰眉/小口/紅潮２/对话框爱心"
			PRINTFORMW 「嗯啊…哈啊，呼唔…好，好难受啊…」
			PRINTFORMW 「仅仅是这样互相触碰着已经没法满足了…小腹不停地有种啾啾啾的感觉…」
		CASEELSE
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/闭眼２/紅潮/对话框開心"
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/半目/斜眉/微笑４/紅潮/对话框開心"
			ELSE
				CALL EMOTION_PLUS, "重置/左闭眼２/半目/斜眉/小口/紅潮/对话框開心"
			ENDIF
			IF RAND:3 == 0
				PRINTFORMW 「啊嗯，摸我的时候希望可以更温柔一些哇」
				PRINTFORMW 「对对，就是这种感觉…呜呼呼、真是好舒服哇…♪」
			ELSEIF RAND:2
				PRINTFORMW 「怎么样，%CNAME("一人称")%的頭发…很顺滑吧？」
				PRINTFORMW 「随你喜欢…只要不会把我摸秃的话就没関系哟♪」
			ELSE
				PRINTFORMW 「这么温柔地轻抚着我的頭发…总感觉像在被夸奖一样哇」
				PRINTFORMW 「还想更多更多地…被你夸奖呀♪」
			ENDIF
		ENDSELECT
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K37
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "Ｈ的邀请"
		CALL EMOTION_PLUS, "重置/半目/ڡ２/爱心眼/赤面/对话框爱心"
		PRINTFORMW 「哈啊啊…不知为何身体好热而且痒痒的哇…呐%CNAME("二人称")%？」
		PRINTFORMW 「去那边的床上帮%CNAME("一人称")%把身体…好好检查一些看看吧…？」
	CASE "推倒"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/＞＜/紅潮２"
			PRINTFORMW 「…嘿咿——」
			PRINTFORML 突然一阵强风重重地推着你，让你仰面摔了床上%CALLNAME:MASTER%。
			PRINTFORMW 在你仰面躺倒的时候，满脸通红的%CALLNAME:TARGET%坐了上来…。
			CALL EMOTION_PLUS, "重置/半目/困扰眉/小口/爱心眼/紅潮２"
			PRINTFORMW 「真抱歉、做出了如此粗暴的举动」
			PRINTFORMW 「可是，这里…小腹啾啾地抽痛着…在不停地渴求着%CNAME("二人称")%啊…」
		ELSE
			CALL EMOTION_PLUS, "重置/＞＜/紅潮２"
			PRINTFORMW 「看我的………咿呀——！」
			PRINTFORMW %CALLNAME:TARGET%故意让脚底打了下滑，然后一边紧紧抱住%CALLNAME:MASTER%一边朝着一旁的床上倒了下去…。
			CALL EMOTION_PLUS, "重置/半目/困扰眉/ヮ/爱心眼/紅潮２"
			PRINTFORMW 「啊，啊啦，真不好意思…你没有受伤吧？」
			IF RAND:2
				CALL EMOTION_PLUS, "重置/半目/ڡ/爱心眼/紅潮２"
				PRINTFORMW 「…%CNAME("一人称")%负起责任帮您检查一下。来来，请快把衣服脱掉吧」
			ELSE
				CALL EMOTION_PLUS, "重置/半目/ڡ/爱心眼/紅潮２"
				PRINTFORMW 「那个…不知是不是该向您赔个罪…就请对%CNAME("一人称")%的身体，随意地做您喜欢的事情吧」
			ENDIF
		ENDIF
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		CALL EMOTION_PLUS, "重置/半目/ڡ２/紅潮２"
		PRINTFORMW 「为了时刻保持完美得体的状态，来进行一些善后清理吧」
		PRINTFORMW 「唔呵呵，这里的清扫就请交给%CNAME("一人称")%吧♪」
		PRINTFORMW %CALLNAME:TARGET%毫不犹豫地将沾染着各种液体的肉棒整根含了进去，仔细地吮吸舔舐清理着…。
	CASE "口淫"
		CALL EMOTION_PLUS, "重置/半目/紅潮２/对话框爱心"
		IF RAND:2
			PRINTFORMW 「嘴，嘴巴有点寂寞哟？只是有点…真的只是一点、呢？」
			PRINTFORMW %CALLNAME:TARGET%一边这样说着一边跪了下去，掏出了%CALLNAME:MASTER%的肉棒開始黏乎乎地含吮起来…。
		ELSE
			PRINTFORMW 「哈呜…%CNAME("二人称")%地大鸡鸡…♪只要对着呼ー地一下就会一颤一颤的哇♪」
			PRINTFORMW %CALLNAME:TARGET%对着裸露在外的龟頭轻吐着气，享受着%CALLNAME:MASTER%有趣的反应…。
		ENDIF
	CASE "亲脸頬", "接吻"
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "重置/半目/小口/紅潮２"
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/闭眼２/斜眉/小口/紅潮２"
		ELSE
			CALL EMOTION_PLUS, "重置/左闭眼２/半目/小口/紅潮２"
		ENDIF
		IF RAND:2
			PRINTFORMW 「啾っ…欸嘿嘿，不管什么时候吻都是个好东西呢」
			PRINTFORMW 「来来、这次该%CNAME("二人称")%来亲%CNAME("一人称")%了哟♪」
		ELSE
			PRINTFORMW 「啾っ…啊啦？感觉有些干燥呢」
			PRINTFORMW 「…%CNAME("一人称")%是不是，用风把你吹过頭了啊…」
		ENDIF
	CASE "摩擦股間"
		CALL EMOTION_PLUS, "重置/半目/ヮ/赤面/对话框爱心"
		IF RAND:2
			PRINTFORMW 「呃，呃嗯っ…哈啊っ、哈啊っ…好热…不仅热还有些疼啊…」
			PRINTFORMW 「所以…所以也是没办法对吧？」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%，虽说喜欢色色的事情…但明明不是个这么下流的女孩子…」
			PRINTFORMW 「都是%CNAME("二人称", "どもり")%不好哦…总对我做这种事情…」
		ENDIF
	CASE "膝枕"
		CALL EMOTION_PLUS, "重置/左闭眼２/半目/斜眉/哈欠小/对话框困倦"
		PRINTFORMW 「呼啊啊——…不好意思、把大腿借我一下哦…」
		PRINTFORMW %CALLNAME:TARGET%说完就迅速枕倒在%CALLNAME:MASTER%的大腿上…。
	CASE "抱住", "把胸部压了上去"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/闭眼２/ヮ/紅潮"
		ELSE
			CALL EMOTION_PLUS, "重置/半目/ڡ２/紅潮"
		ENDIF
		IF COND("夏") && RAND:3 == 0
			PRINTFORMW 「呼呼呼、是不是很凉快啊？」
			PRINTFORMW 「%CNAME("一人称")%？　本来是很热，但只要抱着%CNAME("二人称")%就不这样觉得了哇」
			PRINTFORMW 被空调的冷气缠绕着的%CALLNAME:TARGET%用丰满的胸部挤压着抱住了你。
		ELSEIF RAND:2
			PRINTFORMW 「我说%CNAME("二人称")%、有空的话请搭理下我啊」
			PRINTFORMW 「就算你说不要%CNAME("一人称")%也会靠过去的哟！」
			PRINTFORMW %CALLNAME:TARGET%这样说着，以一个不会让%CALLNAME:MASTER%难受的力度将身体靠了上来。
		ELSE
			PRINTFORMW 「%CNAME("二人称")%的身体…不管怎么抱着都感觉很舒服哇…」
			PRINTFORMW 「呼呼、总感觉很安心哇…」
			PRINTFORMW %CALLNAME:TARGET%像是在确认%CALLNAME:MASTER%的触感一般紧紧抱住了%CALLNAME:MASTER%。
		ENDIF
	CASE "抚摸"
		CALL EMOTION_PLUS, "重置/笑颜４/微笑４/紅潮/布"
		IF RAND:2
			PRINTFORMW 「唔嘿嘿，%CNAME("二人称")%真是好可爱好可爱啊…」
			PRINTFORMW 「只要一会儿就好，请把身体交给%CNAME("一人称")%吧…♪」
		ELSE
			PRINTFORMW 「偶尔像这样摸一摸…慰劳一下你吧」
			PRINTFORMW 「今后也请继续努力吧」
		ENDIF
	CASE "手淫"
		CALL EMOTION_PLUS, "重置/半目/ヮ/紅潮/布"
		IF RAND:2
			PRINTFORMW 「唔呼呼——、现在很适合帮你手淫呢♪」
			PRINTFORMW %CALLNAME:TARGET%用手咕啾咕啾地玩弄着%CALLNAME:MASTER%的肉棒…。
		ELSE
			PRINTFORMW 「啧啧、立刻就開始不停变硬了呢…」
			PRINTFORMW 「到底是想着什么才变得这么有精神呢，说给我听听怎么样呀？」
		ENDIF
	CASE "膝枕"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/半目/微笑４/紅潮"
			PRINTFORMW 「%CNAME("二人称")%…是不是有些累了呀？」
			PRINTFORMW 「不介意的话来%CALLNAME:TARGET%这里，已经帮你准备好了哟」
		ELSE
			CALL EMOTION_PLUS, "重置/笑颜４/ヮ２/紅潮"
			PRINTFORMW 「睡～～～吧～～～睡～～～吧～～～♪」
			PRINTFORMW 虽然很高兴愿意为自己唱歌，但似乎是个可怕的音痴啊…。
		ENDIF
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		CALL EMOTION_PLUS, "重置/左笑颜４/半目/微笑４/紅潮/茶"
		PRINTFORMW 「不介意的话来写%TEXTR(@"热饮/%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
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	PRINTFORMW
;これは你と角色が両方男性の際に限り起きます
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_K37
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		;拒否されたのに連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			CALL EMOTION_PLUS, "重置/闭眼２/呀哒/叹气"
			PRINTFORMW 「哈啊…真是纠缠不休啊」
			PRINTFORMW 「%CNAME("一人称")%在我真的生气之前停下比较好哦」
			PRINTFORMW %CALLNAME:TARGET%用少见的完全没有笑意的眼神看着你，用一阵风将你重重推開…。
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/小口"
			PRINTFORMW 「这种事情不是应该在床上做的事吧？」
		ELSE
			CALL EMOTION_PLUS, "重置/闭眼２/困扰眉/小口"
			PRINTFORMW 「抱歉，%CNAME("一人称")%现在没有那种心情」
		ENDIF
	ELSE
		CALL EMOTION_PLUS, "重置/半目/ヮ/紅潮２"
		IF RAND:3
			PRINTFORMW 「想确认下%CNAME("一人称")%下面的仪容？」
			PRINTFORMW 「真是的，不被你%CNAME("二人称")%操这种心的话我会更高兴哇！」
			PRINTFORMW 「…真想知道的话就请实际亲眼看看来好好确认一下吧！　…呼呼♪」
		ELSEIF RAND:2
			PRINTFORMW 「呵呵、只是看看就满足了吗？」
			PRINTFORMW 「就算稍微摸一摸、舔几下也可以的哟♪」
			PRINTFORMW 「如果仅仅那样还是不够满足的话，就去床上继续吧…唔呵呵—♪」
		ELSE
			PRINTFORMW 「呵呵，很容易就能想象出%CNAME("二人称")%睁大眼睛用火热的目光看着我的样子呢」
			PRINTFORMW 「你这么痴迷于那里的话，我会感觉有些害羞呢♪」
		ENDIF
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K37
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		CALL EMOTION_PLUS, "重置/闭眼２/憤怒眉/小口"
		PRINTFORMW 「啊啦…我可不记得自己允许过%CNAME("二人称")%做到那种地步哦？」
		PRINTFORMW 「让%CNAME("一人称")%更多地看见%CNAME("二人称")%的出色之处…直到我的心被你俘獲为止就先听我的吧」
	ELSE
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/半目/困扰眉/呀哒２/紅潮２"
				PRINTFORMW 「唔——、%CNAME("二人称")%总是做这种事情…就不觉得有些不公平吗？」
				PRINTFORMW 「明明%CNAME("一人称")%也想看看%CNAME("二人称")%的内裤啊…」
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/半目/小口/紅潮２"
				PRINTFORMW 「话虽如此…只是这样检查一下你就满足了吗？」
				PRINTFORMW 「如果这样没法满足的话，请务必把我诱到床上去哦♪」
			ELSE
				CALL EMOTION_PLUS, "重置/左闭眼２/半目/笑顔２/紅潮２"
				PRINTFORMW 「啊啊、呼吸在不断加粗呢…就这么喜欢%CNAME("一人称")%的%PANTIES(TARGET, "胖次")%啊」
				PRINTFORMW 「呜嘿嘿…请尽情的享受吧♪」
			ENDIF
		ELSE
			CALL EMOTION_PLUS, "重置/半目/小口/紅潮２"
			IF RAND:3 == 0
				PRINTFORMW 「再稍微把腿张開些会更好？唔呵呵、像这样吗？」
				PRINTFORMW 「咿呀♪呼、呼出的气喷到那、那里会很痒哇——♪」
			ELSEIF RAND:2
				PRINTFORMW 「很容易就能想象出%CNAME("二人称")%睁大眼睛用火热的目光看着我的样子呢」
				PRINTFORMW 「对%PANTIES(TARGET, "胖次")%痴迷到这种程度的样子还真是可爱呢♪」
			ELSE
				PRINTFORMW 「啊啦、脸是不是有些靠得太近了？」
				PRINTFORMW 「我是不会逃開的、安安心心地慢慢观赏就好的」
			ENDIF
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K37
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K37, %ARGS%：じっくり
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K37, %ARGS%
		[ENDIF]
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/半目/ڡ２/紅潮２"
			PRINTFORML 「…♪」
			PRINTFORMW 一阵似乎是%CALLNAME:TARGET%自己唤起的清风，把她的裙子轻轻掀了起来…。
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			CALL EMOTION_PLUS, "重置/半目/紅潮２/唇边手"
			IF RAND:2 == 0
				PRINTFORML 「呜嗯，内裤被看见了哇…」
				PRINTFORMW 「不过是%CNAME("二人称")%的话…被看了我也不会介意哟♪」
			ELSE
				PRINTFORMW 「呜呵、被看到了哇…♪」
				PRINTFORMW 一阵风从挂着一副小恶魔似的坏笑的%CALLNAME:TARGET%那边吹了过来，像是在挑逗一般从%CALLNAME:MASTER%的股间穿流而过…。
			ENDIF
		ELSE
			IF RAND:2
				CALL EMOTION_PLUS, "重置/左笑颜４/斜眉/紅潮２"
				PRINTFORML 「唔呵呵、%CNAME("一人称")%的内裤，你不是很在意吗？」
				PRINTFORMW 「来～来、请过来尽情地观赏吧…♪」
			ELSE
				CALL EMOTION_PLUS, "重置/＞＜/紅潮２"
				PRINTFORML 「咿呀——っ♪怎么突然来了一阵风吹得内裤都要被看光了哇ー♪」
				PRINTFORMW %CALLNAME:TARGET%似乎故意发出了哀叫声…。
			ENDIF
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			IF RAND:2
				PRINTFORMW 「嗯唔…怎么感觉怪怪的哇…」
				PRINTFORMW 「真是的，%CNAME("二人称")%这家伙啊，在做什么呀…？」
			ELSE
				PRINTFORMW 「呼哇～…袭击刚起床的女孩子这种事可不讨喜啊」
				PRINTFORMW 「可不要%CNAME("一人称")%以外的人做这种事情哦？」
			ENDIF
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K37
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/斜眉/小口/紅潮２"
			PRINTFORML 「啊啦、好像理所当然呢…很想看%CNAME("一人称")%的内裤吗？」
			PRINTFORMW 「好呀，请尽情地看个够吧♪」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			IF RAND:2
				CALL EMOTION_PLUS, "重置/半目/笑顔２/紅潮２"
				PRINTFORML 「欸…没法好好看清楚？」
				PRINTFORMW 「请吧，尽情地看个够…唔呵呵…♪」
			ELSE
				CALL EMOTION_PLUS, "重置/左笑颜４/半目/紅潮２/唇边手"
				PRINTFORML 「好啦——、来对个答案吧」
				PRINTFORMW 「呼呼、和你猜想得一样吗？」
			ENDIF
		ELSE
			IF COND("打招呼前")
			CALL EMOTION_PLUS, "重置/＞＜/小口/紅潮２"
			PRINTFORML 「咿呀——！招呼都不打直接掀裙子吗？！」
				IF RAND:2
					PRINTFORMW 「不对，不如说这才是应该会出现的招呼吗…」
				ELSE
					PRINTFORMW 「啊啊——，%CNAME("二人称")%这家伙还真是性欲旺盛啊…！」
				ENDIF
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					IF RAND:2
						CALL EMOTION_PLUS, "重置/左笑颜４/紅潮２"
						PRINTFORMW 「呵呵，这可是为了随时都可以让你享用才这样准备的哦？」
						PRINTFORMW 「所以找个适合的时机来邀请我吧♪」
					ELSE
						CALL EMOTION_PLUS, "重置/＞＜/紅潮２"
						PRINTFORMW 「咿呀——，我明明是真空还被掀了裙子…不过我不讨厌哦…♪」
						PRINTFORMW 「%CNAME("二人称")%会不会讨厌这种下流的女孩子啊…？」
					ENDIF
				ELSE
					IF RAND:3 == 0
						CALL EMOTION_PLUS, "重置/左笑颜４/微笑４/紅潮２"
						PRINTFORMW 「今天的内裤是%PANTIES(TARGET)%哦」
						PRINTFORMW 「哼哼，你喜欢吗♪」
					ELSEIF RAND:2
						CALL EMOTION_PLUS, "重置/半目/小口/紅潮２"
						PRINTFORMW 「怎么说呢…能感觉到你的执念呢」
						PRINTFORMW 「先不论目的如何，我还是很想学习一下你马上付诸行动这一点哇」
					ELSE
						CALL EMOTION_PLUS, "重置/笑颜４/紅潮２"
						PRINTFORMW 「咿呀——♪　真是的，突然就掀起来什么的太卑鄙了！」
						PRINTFORMW 「作为惩罚，%CNAME("一人称")%想听一听你看了%CNAME("一人称")%的内裤之后的感想哇！」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			CALL EMOTION_PLUS, "重置/半目/ヮ/紅潮２/托下巴"
			PRINTFORMW 「唔呵，居然在内裤原本的主人面前做这种事呢」
			PRINTFORMW 「您能喜欢的话，也是原主的荣幸呢♪」
		ELSE
			CALL EMOTION_PLUS, "重置/斜眉/小口/紅潮２/托下巴"
			PRINTFORMW 「啊啦，特意在%CNAME("一人称")%我面前做这种事情吗」
			PRINTFORMW 「是想观察%CNAME("一人称")%的反应吧…真可爱呢♪」
		ENDIF
	ELSE
		IF COND("胖次ドーピング")
			IF RAND:2
				CALL EMOTION_PLUS, "重置/半目/蹙眉/小口/紅潮２/唇边手"
				PRINTFORMW 「%CNAME("一人称")%也会感觉有些不好意思哦？」
				PRINTFORMW 「只是%CNAME("二人称")%的行为感觉很有趣不知不觉就默许了」
			ELSE
				CALL EMOTION_PLUS, "重置/左笑颜４/紅潮２"
				PRINTFORMW 「感觉如何啊，%CNAME("一人称")%今天的小・内・裤♪」
				PRINTFORMW 「虽然每天我都会好好洗干净，但是如果你更喜欢脏一些的…我也可以为你准备的哦♪」
			ENDIF
		ELSE
			IF RAND:2
				CALL EMOTION_PLUS, "重置/半目/へ字/紅潮２"
				PRINTFORMW 「真是，明明%CNAME("一人称")%在我面前还要对其他人的内裤做那种事情…」
				PRINTFORMW 「难道说是想把%CNAME("一人称")%%TEXTR("不服输/嫉妒")%的心情煽起来吗？」
			ELSE
				CALL EMOTION_PLUS, "重置/半目/斜眉/小口/紅潮２"
				PRINTFORMW 「那个，完事了的话可以稍微借给%CNAME("一人称")%一下吗」
				PRINTFORMW 「有些在意到底是什么样的气味呢…」
			ENDIF
		ENDIF
	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 "口交"
			PRINTFORMW
		CASE "乳交"
			PRINTFORMW
		CASE "Ｖ性交"
			PRINTFORMW
		CASE "Ａ性交"
			PRINTFORMW
		;CASE "尿道性交"

		;CASE "乳頭奸"

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

		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "口交"
			PRINTFORMW
	CASE "乳交"
			PRINTFORMW
	CASE "Ｖ性交"
			PRINTFORMW
	CASE "Ａ性交"
			PRINTFORMW
	;CASE "尿道性交"

	;CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	CASE "手淫"
			PRINTFORMW
	CASE "Ｖ性交"
			PRINTFORMW
	CASE "Ａ性交"
			PRINTFORMW
	;CASE "尿道性交"

	ENDSELECT
ENDSELECT

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	PRINTFORMW 「%CNAME("二人称")%，周末是不是很闲啊？」
	PRINTFORMW 「要不要和%CNAME("一人称")%一起出去转转呀！」
CASE "约会のお誘い：結果"
	;约会決定！
	IF COND("约会的约定")
		PRINTFORMW 「哎嘿嘿，感谢你愿意接受我的邀请哇♪」
		PRINTFORMW 「现在已经開始期待着周末的到来了哇♪」
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「啊啦…已经有预约了吗？还真是遗憾呀…」
		PRINTFORMW 「那如果下次有机会的话…」
	ENDIF
;你から週末约会に誘われた
CASE "约会に誘われた"
	IF RAND:2
		PRINTFORMW 「周末出門…也就是说是约会吗？！」
		PRINTFORMW 「唔哈哈——，当然可以哟！」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%发出的约会邀请…当然会接受啊！」
		PRINTFORMW 「会去哪里会做些什么呢？已经開始期待了哇♪」
	ENDIF
;你から约会当日にいきなり誘われた
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 「嗯…嗯…约会？现在吗？」
		PRINTFORMW 「嗯嗯，嗯嗯，当然要去哇！应该去哪里比较好呢！？」
	ELSE
		PRINTFORMW 「约会？现在吗？」
		PRINTFORMW 「嗯嗯，嗯嗯，当然要去哇！我现在先去准备一下请稍等一会儿哦！」
	ENDIF

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

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW
	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
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

CASE "手をつなぐ"
	PRINTFORMW
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 TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

CASE "接吻"

CASE "摸屁股"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
CASE "帰り際"
	IF TALENT:恋慕
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K37, %ARGS%(恋慕)
		[ENDIF]
	ELSE
		IF RAND:2
			PRINTFORMW 「啊呀，已经到这个点了啊」
			PRINTFORMW 「高兴的时候时间总是过得那么快呢」
		ELSE
			PRINTFORMW 「太阳已经要下山了…也差不多到了该回去的时候了呢」
			PRINTFORMW 「不过到最后为止都过得很開心呢，%CNAME("二人称")%」
		ENDIF
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			IF RAND:2
				PRINTFORMW 「啊啦，在这里吗…真是的，%CNAME("二人称")%的话…」
				PRINTFORMW 「あんまり遅くなって弗理希艾尔小姐を心配させないようにしないといけませんわね、诶嘿嘿っ♪」
			ELSE
				PRINTFORMW 「呼呼…说得也是呢，杂志上也说过，说到约会的结尾的话就应该去宾馆♪」
				PRINTFORMW 「既然决定了的话那就Let‘s go！就是这样！」
			ENDIF
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			IF RAND:2
				PRINTFORMW 「哈啊～～，今天真的很開心哇♪」
				PRINTFORMW 「不介意的话，下次也要邀请我和你约会哦」
			ELSE
				IF COND("同居中")
					PRINTFORMW 「(咕呜…)哎呀讨厌，真是不好意思，肚子已经開始叫了啊」
					PRINTFORMW 「有些好奇今天的晚饭呢」
				ELSE
					PRINTFORMW 「今天就在这里分别吧，如何呢」
					PRINTFORMW 「唔呵呵，在学校再见吧…啾——」
					PRINTFORMW %CALLNAME:TARGET%有些恋恋不舍地在%CALLNAME:MASTER%的脸颊上留了一个仅仅是轻轻触碰到的吻，然后便随着清爽的晚风一起离開了…。
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/37 グレイス/EVENT_K37_DAILY.ERB

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

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

		ELSE

		ENDIF
	ELSE
		IF RAND:2
			PRINTFORMW 「%CNAME("一人称")%的愿望吗？」
			PRINTFORMW 「那就请让我听一听吧，不过我可不会接受讨厌的或是很过分的交易的哦」
		ELSE
			PRINTFORMW 「会被提出怎样的请求呢…唔呵呵，心脏怦怦直跳呢♪」
		ENDIF
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		[IF_DEBUG]
			PRINTFORMW @KOJO_WISH_K37, %ARGS%
		[ENDIF]
	;失敗
	ELSE
		IF MARK:屈服刻印 == 3
			PRINTFORMW 「呃っ…这，这个，样子吗…」
			PRINTFORMW 「………很，很高兴您能这么爱慕我哇。但是…对不起」
			PRINTFORMW 「%CNAME("一人称")%，和%CNAME("二人称")%应该还是做朋友比较好吧」
		ELSE
			PRINTFORMW 「真是的、请不要再说这种嘲弄%CNAME("一人称")%的话了」
			PRINTFORMW %CALLNAME:TARGET%完全听不进你的话…。
		ENDIF
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORM 「虽然很想给你…
	ELSE
		PRINTFORM 「
	ENDIF
	PRINTFORMW 不过十分抱歉，今天%TEXTR("其实没有穿/没带在身边呢…")%」
	PRINTFORMW %CALLNAME:TARGET%露出了惹人怜爱的微笑，大腿嚓唦嚓唦的互相磨蹭着。
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;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 "同居拒否"
	PRINTFORMW 「想和%CNAME("一人称")%一起住…是这个意思吧」
	PRINTFORMW 「很高兴你有这种想法…但是，因为这样会让我很为难所以…十分抱歉」
CASE "同居希望"
	PRINTFORMW 「想和%CNAME("一人称")%一起住…是这个意思吧」
	PRINTFORMW 「嗯——…虽然%CNAME("一人称")%的母亲会很担心，不过她一定能理解我的」
	PRINTFORMW 「好哇。同居，从现在就開始吧」
CASE "同居頻度的相談"

CASE "便当拒否"
	PRINTFORMW 「唔呵呵、想尝尝%CNAME("一人称")%做的便当吗？」
	PRINTFORMW 「但是不好意思。让我更加了解%CNAME("二人称")%的事情后再说吧」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「又想吃%CNAME("一人称")%做的便当了吗？」
		IF COND("同居中")
			PRINTFORMW 「可以倒是可以…%CNAME("二人称")%的爱好还真是奇怪呢」
		ELSE
			PRINTFORMW 「我知道啦，会连%CNAME("二人称")%的份一起带过来的」
		ENDIF
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")
			PRINTFORMW 「欸欸——？！你说想吃%CNAME("一人称")%做的便当！？」
			PRINTFORMW 「啊呜…我，我对自己的料理料理水平……不对，在行动之前就如此唯唯诺诺的话就不像%CNAME("一人称")%了呢」
			PRINTFORMW 「我知道了哇！那就给你做吧，便当！　…虽然不敢保证味道就是了」
		ELSE
			PRINTFORMW 「唔呵呵、想尝尝%CNAME("一人称")%做的便当吗？」
			PRINTFORMW 「可以哇、明天就会把%CNAME("二人称")%的那份叫人做…亲自做好哇♪」
		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 "给我看尾巴拒否"

;以下は悪魔専用
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_DEBUG]
		PRINTFORMW @KOJO_WISH_K37, 汎用拒否
	[ENDIF]
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	[IF_DEBUG]
		PRINTFORMW @KOJO_WISH_K37, 汎用ＯＫ
	[ENDIF]
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「想和我一起去买东西吗？」
		PRINTFORMW 「可以啊。那就拜托你陪着我了哦♪」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE

	ENDIF
CASE "目送"
	PRINTFORMW 「啊啦，你要去买东西吗？」
	IF RAND:2
		PRINTFORMW 「那就请顺便帮我带瓶矿泉水，还有本月号的这种杂志」
		;黄金の風　２００２年発売予定ッ！
	ELSE
		PRINTFORMW 「路上请小心哦」
	ENDIF
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("買い物胖次没収中")
		PRINTFORML 「嗯——…感觉那个地方痒痒的啊…」
		PRINTFORMW %CALLNAME:TARGET%一副忸忸怩怩焦躁不安的样子。
	ELSE
		PRINTFORML 「%TEXTR("………/呼嗯…这个，还挺有意思的呢")%」
		PRINTFORMW %CALLNAME:TARGET%兴致勃勃地物色着商品。
	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

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

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

	ENDIF
ENDSELECT

path: ERB/EVENT_K/37 グレイス/EVENT_K37_SHOP.ERB