code:
;-------------------------------------------------
;各種打招呼
;-------------------------------------------------
@KOJO_GREETING_K57, 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 "朝足交"

	CASE "朝の新妻PLAY"

	CASE "朝乳交"

	CASE "朝騎乗位"

	CASE "朝Ａ騎乗位"

	CASE "朝接吻"

	CASE "朝添い寝"

	CASE "朝口交", "朝六九式"

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	IF AIZOU() && CSTR:朝袭 != ""
		CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%」"
		CALL PRINT_STRW, @"「%CNAME("二人称")%什么的……%CNAME("二人称")%讨厌死了……%PANT_K57(TARGET, "要", "通常")%」"
	ELSE
		SELECTCASE CSTR:朝袭
		CASE "朝拘束"
			PRINTFORMW 「%CNAME("一人称")%、一直在等你哦？」
			PRINTFORMW 「还在想什么时候会来、又会做些什么呢……」
			PRINTFORMW 「但是%CNAME("二人称")%、一直都在和其他孩子做H的事情」
			PRINTFORMW 「所以除了这样没有其他办法了嘛」
			CALL PRINT_STRW, @"「……%CNAME("二人称")%、做好觉悟了吗_H_」"
		CASE "朝口交"
			IF CEVENT("接吻の虜")
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 5)%」"
				CALL PRINT_STRW, @"「……啊、早上好……%PANT_K57(TARGET, "要", "Ｍ異物")%」"
				SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 2+RAND:2)%\@SIZE("阴茎", PLAYER) >= 2 ? 好大 # 好硬\@……_H_」"
				CASE 1
					CALL PRINT_STRW, @"「这个……光是舔着就要去了……%PANT_K57(TARGET, "要", "Ｍ異物", 3)%」"
				CASE 2
					CALL PRINT_STRW, @"「啊哈……味道好色哦……_H_」"
				CASE 3
					PRINTFORMW 「啊、鸡鸡跳了一下」
					CALL PRINT_STRW, @"「……要%CNAME("一人称")%继续一边舔一边说话吗_H_」"
				CASE 4
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 5)%」"
					CALL PRINT_STRW, @"「再等一下……%PANT_K57(TARGET, "要", "Ｍ異物", 3)%」"
				ENDSELECT
			ELSEIF TALENT:淫乱
				PRINTFORMW 「早、早上好~、%CNAME("二人称")%」
				SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「……然后、谢谢招待_H_」"
				CASE 1
					CALL PRINT_STRW, @"「……还可以、再舔一会儿吗_H_」"
				CASE 2
					CALL PRINT_STRW, @"「呼呼_H_黏黏的精液还在流出来呢……_H_」"
				CASE 3
					PRINTFORMW 「对不起、再等一下……」
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 5)%」"
				CASE 4
					PRINTFORMW 「……还没满足吗？」
					CALL PRINT_STRW, @"「不过，%CNAME("一人称")%也是呢_H_」"
				ENDSELECT
			ELSE
				CALL PRINT_STRW, @"「啊……早、早上好……%CNAME("二人称")%……_H_」"
				PRINTDATAW
					DATA 「……さっきのは見なかったことにしてくれないか」
					DATA 「……え、ええっとぉ……」
					DATA 「……さ、さっきのは違くて……」
				ENDDATA
			ENDIF
		CASE "朝の新妻PLAY"
			PRINTFORMW 「あ、おはよー！」
			PRINTFORMW 「ご飯そこに作っといたから……って、ちょちょ……！」
			IF TALENT:淫乱
				SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「……もう、%CNAME("一人称")%もその気になっちゃったじゃん_H_」"
				CASE 1
					CALL PRINT_STRW, @"「……%CNAME("二人称")%ってホントにエッチだなぁ_H_」"
				CASE 2
					PRINTFORMW 「……朝からエッチなことするんだな」
					CALL PRINT_STRW, @"「へへ、%CNAME("二人称")%と一緒にいるとどんどんいやらしくなっちゃうよ_H_」"
				CASE 3
					PRINTFORMW 「……ふふ、%CNAME("二人称")%のエッチ」
					CALL PRINT_STRW, @"「今日は学校なんだから、遅れないようにしてよ_H_」"
				CASE 4
					CALL PRINT_STRW, @"「朝からラ胸罩ブ中出しエッチ、しちゃおっか_H_」"
				ENDSELECT
			ELSE
				IF RAND:2
					PRINTFORMW 「……も、もしかした朝からそういうことしたいのか……？」
				ELSE
					PRINTFORMW 「む、むぅ……」
					CALL PRINT_STRW, @"「……%CNAME("二人称")%のエッチ……_H_」"
				ENDIF
			ENDIF
		CASE "朝Ａ騎乗位"
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%早上好……%CNAME("二人称")%……_H_」"
			IF CEVENT("肛門の虜")
				SELECTCASE RAND:6
				CASE 0
					CALL PRINT_STRW, @"「あっ_H_お尻きもちいいっ_H_」"
					CALL PRINT_STRW, @"「もっと……もっとお尻ズボズボしてぇ……_H_」"
				CASE 1
					CALL PRINT_STRW, @"「しゅごいぃ……お尻の奥がぁ……_H_」"
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
				CASE 2
					CALL PRINT_STRW, @"「あはっ_H_あっ_H_あんっ_H_あぁっ_H_」"
					CALL PRINT_STRW, @"「こんなのっ_H_夢中になるにきまってんじゃんっ_H_」"
				CASE 3
					CALL PRINT_STRW, @"「これもっとぉ_H_もっとしてぇ_H_」"
					CALL PRINT_STRW, @"「%CNAME("一人称")%のお尻もっと犯して女の子にしてぇっ_H_」"
				CASE 4
					CALL PRINT_STRW, @"「あっ_H_おはっ_H_おはようっ_H_」"
					CALL PRINT_STRW, @"「ってちょっ_H_なんでおおきくなってんのぉっ_H_」"
				CASE 5
					CALL PRINT_STRW, @"「あはっ_H_そこっ_H_すごいっ_H_」"
					CALL PRINT_STRW, @"「朝からはげしっ_H_あっ_H_あっ_H_あぁっ_H_」"
				ENDSELECT
			ELSEIF TALENT:淫乱
				IF RAND:2
					CALL PRINT_STRW, @"「あっ_H_それっ_H_さいこぉっ_H_」"
					CALL PRINT_STRW, @"「もっとっ_H_もっとしてっ_H_んっ_H_あっ_H_あっ_H_あんっ_H_」"
				ELSE
					CALL PRINT_STRW, @"「あはっ_H_あっ_H_あっ_H_」"
					CALL PRINT_STRW, @"「もっとっ_H_もっと犯してっ_H_」"
				ENDIF
			ELSE
				SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%对不起~_H_好好射出来%CNAME("一人称")%就离開~……%PANT_K57(TARGET, "要", "通常")%」"
				CASE 1
					CALL PRINT_STRW, @"「……%CNAME("二人称")%的鸡鸡、好硬啊……_H_」"
				CASE 2
					CALL PRINT_STRW, @"「做这种事被知道了的话~_H_%PANT_K57(TARGET, "要", "通常")%肯定会变奇怪的啦……~_H_%PANT_K57(TARGET, "要", "通常")%」"
				CASE 3
					CALL PRINT_STRW, @"「啊哈，鸡鸡还是这么硬呢……_H_」"
				CASE 4
					CALL PRINT_STRW, @"「呼呼，再来做……嗯……_H_」"
				ENDSELECT
			ENDIF
		CASE "朝接吻"
			SELECTCASE RAND:3
			CASE 0
				CALL PRINT_STRW, @"「……嘿嘿~_H_%CNAME("二人称")%早啊」"
				CALL PRINT_STRW, @"「这个样子接吻、有点像、恋人一样呢……_／／／_」"
			CASE 1
				CALL PRINT_STRW, @"「う、うわぁー……ちゅ、ちゅーしちゃった……_H_」"
				PRINTFORMW 「へへへ、えへへぇ……」
			CASE 2
				PRINTFORMW 「……ね、ねえ！　これちょっと大人っぽくない？」
				PRINTFORMW 「こ、こ、こうやってさ、ちゅーして起きるとか……」
			ENDSELECT
		CASE "Ｗ朝口交"
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 3+RAND:3)%」"
			PRINTFORMW 「……诶、%CNAME("二人称", "どもり")%……！？」
			PRINTFORMW 「……呜……」
			PRINTFORMW 「……诶！　这、这个！」
		CASE "朝添い寝"
			IF AIZOU()
				PRINTFORMW 「………………………………」
				PRINTFORMW 「…………仅限今天，就让%CNAME("一人称")%这么做吧……」
			ELSE
				SELECTCASE RAND:5
				CASE 0
					PRINTFORM 「嘿嘿嘿……%CNAME("二人称")%，好暖和。
					SELECTCASE TEXTS("季節")
					CASE "春"
						PRINTFORMW 真想就这样一直睡下去……」
					CASE "夏"
						PRINTFORMW 外面那么热，但是还想贴着你，不可思议……」
					CASE "秋"
						PRINTFORMW 外面越来越冷了，但是%CNAME("二人称")%还是一样暖和……」
					CASE "冬"
						PRINTFORMW 外面已那么冷但%CNAME("二人称")%身上还是这么暖和，真不可思议……」
					ENDSELECT
					IF COND("種族：吸血鬼")
						PRINTFORMW 「……呐%CNAME("二人称")%、不觉得身体%CNAME("一人称")%冷吗？　没问题？　太好了……」
					ELSE
						PRINTFORMW 「……真的吗？　……无所谓啦。不管是真是假，对%CNAME("一人称")%来说都是温暖安心的……」
					ENDIF
				CASE 1
					CALL PRINT_STRW, @"「……嘿嘿嘿~_H_%CNAME("二人称", "かな")%……_H_」"
					CALL PRINT_STRW, @"「嗯~……%CNAME("二人称")%好暖和……_H_」"
				CASE 2
					PRINTFORMW 「呼呼……早上好，%CNAME("二人称")%」
					PRINTFORMW 「……再多待一会儿，不行吗？」
				CASE 3
					PRINTFORMW 「呼……嗯……」
					PRINTFORMW 「……唔！？　早、早上好……」
				CASE 4
					PRINTFORMW 「嘿嘿、%CNAME("二人称")%早上好」
					PRINTFORMW 「……嗯，仔、仔细想想，这个，怎么说呢……」
					CALL PRINT_STRW, @"「有、有点像热恋的感觉呢……_／／／_」"
				ENDSELECT
			ENDIF
		ENDSELECT
	ENDIF

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

	IF AIZOU()
		PRINTDATAW
			DATA 「……朝だぞ」
			DATA 「……」
		ENDDATA
	ELSEIF COND("体育")
		PRINTFORMW 「今天是体育课哦~！」
		PRINTDATAW
			DATAFORM 「%CNAME("二人称")%、終わったら一緒に走ろうぜ！」
			DATAFORM 「ほら！　%CNAME("二人称")%も早く行こ！」
			DATALIST
				DATA 「走るのがとっても速い同級生がいるんだー！」
				DATA 「絶対絶対、いつか追いついてやる……！」
			ENDLIST
			DATALIST
				DATA 「走るのも良いし、サッカーでも良いし……！」
				DATA 「……あ、でもバレーだけはちょっと苦手……」
			ENDLIST
			DATA 「今日もがんばるぞーっ！」
		ENDDATA
	ELSEIF DAYEV("新年")
		PRINTFORMW 「喂——！　今天是正月了哦~！」
		PRINTFORMW 「%CNAME("二人称")%说过喜欢的那个节目、再不起来就要開始咯！」
	ELSEIF DAYEV("万圣节")
		PRINTFORMW 「%CNAME("二人称")%！　不给糖就捣蛋！」
		PRINTFORMW 「……啊、难道说%CNAME("二人称")%家里不会做这些吗？」
		IF COND("種族：吸血鬼") == 0 || CEVENT("極夜の和解")
			PRINTFORMW 「我家的话、每到万圣节的时候都会打扮成这样讨要糖果哦、该怎么说呢、就像变装一样？　差不多就像这样的感觉」
			PRINTFORMW 「\@COND("種族：吸血鬼") ? 说不定这是父亲以前的衣服也说不定 # 也不知道是为什么\@、我家就会穿上这样昂贵的衣服」
			IF COND("種族：吸血鬼") && RAND:2
				PRINTFORMW 「哼~哼~哼~、现在可是真正的吸血鬼哦。怎么样？　合身吗？」
			ELSE
				PRINTFORMW 「……啊！　当然现在不会这样了！」
				PRINTFORMW 「这只是为了让社团里的大家大吃一惊什么的……」
				IF TALENT:相思相愛 && RAND:3 == 0
					PRINTFORMW 「……对不起%CNAME("一人称")%撒谎了」
					PRINTFORMW 「其实是想让%CNAME("二人称")%高兴才穿的，嗯」
				ENDIF
			ENDIF
		ENDIF
	ELSEIF DAYEV("情人節")
		PRINTFORMW 「そういや今日は情人節だなー」
		IF TALENT:恋慕
			PRINTFORMW 「……那，那个！」
			PRINTFORMW 「こ、これ、给……」
			CALL PRINT_STRW, @"_黄色_%CALLNAME:TARGET%から巧克力を貰った！"
		ELSE
			PRINTFORMW 「いろんな女の子から巧克力貰ってるヤツってすごいよなー」
			PRINTFORMW 「……もしかして、%CNAME("二人称")%もいっぱい要領帯プじゃないよな？」
		ENDIF
	ELSEIF DAYEV("圣诞节")
		PRINTFORMW 「今天是圣诞节呢！」
		PRINTFORMW 「以前爸爸妈妈也给%CNAME("一人称")%送过很多礼物呢」
		PRINTFORMW 「放在非常漂亮的盒子里，缎带也是%CNAME("一人称")%喜欢的那种」
		PRINTFORMW 「……%CNAME("二人称")%，你会送%CNAME("一人称")%礼物吗？　会吗？」
	ELSEIF DAYEV("七夕")
		PRINTFORMW 「今天是七夕呢！」
		;天気は晴天になる比率が低くなるようにする
		SELECTCASE RAND:10
		CASE IS >= 5
			PRINTFORMW 「虽然很遗憾今天是阴天，但还有各种庙会啊集市啊，好期待啊！」
		CASE IS >= 2
			PRINTFORMW 「嘛，虽然今天内衣大雨……」
			PRINTFORMW 「但是呢，还有各种各样的集市啊庙会啊，好期待啊！」
		CASEELSE
			PRINTFORMW 「今天是晴天呢，一起去看星星吧吧！」
		ENDSELECT
	ELSEIF DAYEV("文化祭")
		PRINTFORMW 「あ、そういえば今日は文化祭の日だな！」
		PRINTFORMW 「%CNAME("一人称")%のクラスもいっぱい頑張ってたから、一緒に身に行こ！」
	ELSE
		PRINTFORMW 「喂——！　早上了哦！」
		IF COND("種族：吸血鬼") && RAND:4 == 0
			PRINTFORMW 「……真是的，%CNAME("一人称")%也想晚上起床中午睡觉啊」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「……むぅ、遅刻したって知らないからなー」
		ELSEIF RAND:2
			PRINTFORMW 「真是的，%CNAME("一人称")%其实也想再睡一会儿」
		ELSE
			PRINTFORMW 「……真是的、%CNAME("一人称")%可是比你小哦？」
		ENDIF
	ENDIF
CASE "登校"
	IF AIZOU()
		;意図的に発言させない
	ELSEIF DAYEV("試験当日")
		PRINTFORMW 「说起来，今天是考试的日子呢」
		IF RAND:2
			IF BASE:学力 >= 90
				PRINTDATAW
					DATA 「へっへー、今回のヤツはものすっごく自信満々だぞー！」
					DATAFORM 「へっへっへー、今回は%CNAME("二人称")%のおかげでとっても良く出来そうだぞー！」
					DATA 「今回是っぱい勉強したから、とっても良い点を取れそう！」
					DATA 「今回は……めっちゃ自信ある！」
					DATA 「ふっふっふ、点数見てビッ阴蒂するなよー？」
				ENDDATA
			ELSE
				PRINTDATAW
					DATA 「……ぐぬぬ、今日頑張ったらご褒美、今日頑張ったらご褒美……」
					DATA 「なんとかなる……多分、きっと」
					DATA 「て、点数は……シ、シン餡餅ナイデスヨー？」
					DATALIST
						DATA 「あ、赤点はとらないよ！」
						DATA 「……も、もしかしたら」
					ENDLIST
					DATA 「……な、なんとかなるかなぁ……」
				ENDDATA
			ENDIF
		ELSE
			IF BASE:学力 >= 70
				PRINTDATAW
					DATA 「……き、きっと今回は大丈夫なハズ……！」
					DATA 「今回のは自信ある！　と、思いたいなぁっていうか……」
					DATA 「今回はなんとかなる！　気がする！」
					DATA 「今回はベンキョー頑張ったし、大丈夫……きっと…………多分………………」
				ENDDATA
			ELSE
				PRINTDATAW
					DATA 「……だ、大丈夫かなぁ……」
					DATA 「……なんか、急に不安になってきた……」
					DATA 「今日のテストはなんとかなる！　……といいなぁ」
				ENDDATA
			ENDIF
		ENDIF
	ELSEIF DAYEV("試験返却日")
		PRINTFORMW 「今天是考试成绩公布的日子呢——」
		IF RAND:2
			PRINTFORMW 「说起来，%CNAME("二人称")%考得怎么样？」
			SELECTCASE BASE:MASTER:学力
			CASE IS >= 70
				PRINTFORMW 「……哼—，感觉很胜券在握啊ー」
				PRINTFORMW 「……不知道为什么，虽然知道你很聪明，但听到%CNAME("二人称")%能考那么高分总觉得有点意外」
			CASE IS >= 50
				PRINTFORMW 「挺不错呢」
				PRINTFORMW 「因为%CNAME("一人称")%不喜欢学习嘛……啊，对了！」
				PRINTFORMW 「下次教教%CNAME("一人称")%怎么才能提高成绩吧！」
			CASE IS <= 10
				PRINTFORMW 「……啊—感觉没什么自信啊ー」
				PRINTFORMW 「嘛%CNAME("二人称")%也不那有自信呢ー」
				;そう言いつつ赤点回避してること多いけどな！
			CASE IS <= 30
				PRINTFORMW 「……感觉还行吧」
				PRINTFORMW 「不过在做很多事的同时考到这样的分数，已经很厉害了ー」
			CASEELSE
				PRINTFORMW 「……ほー、フツーって感じかー」
				PRINTFORMW 「なんつーかコメントがしづら……じゃなくて！　丁度良いっていうのが一番良かったりするよな！」
			ENDSELECT
		ELSE
			PRINTFORMW 「……ん？　%CNAME("一人称")%の点数か？」
			SELECTCASE BASE:学力
			CASE IS >= 70
				PRINTFORMW 「そりゃーもう、自信がめっちゃあるぞ！」
				PRINTFORMW 「いっつもはわかんないところもあったりするんだけど、今回のはほとんどわかったし酱と答えられたんだ！」
				IF TALENT:恋慕
					PRINTFORMW 「……え、えっとさ、それで……」
					CALL PRINT_STRW, @"「……もし良い点だったら、いっぱい褒めてくれると嬉しいかなって……_／／／_」"
				ELSE
					PRINTFORMW 「……ヘヘヘ、これならきっとあの子も……」
				ENDIF
			CASE IS >= 50
				PRINTFORMW 「けっこー良い点とってる自信があるぞ！」
				PRINTFORMW 「ふっふっふー、ベンキョーは苦手なんだけど、最近なんだか出来るようになってきたんだー」
				PRINTFORMW 「もしかして%CNAME("二人称")%の部活に入ったからかな？」
			CASE IS <= 10
				PRINTFORMW 「……そ、そのぉ……えぇとぉ……」
				PRINTFORMW 「……タブン、赤点デス。ハイ」
			CASE IS <= 30
				PRINTFORMW 「……そのー、あんまり、良くは、ないこともなくもなくもない」
				PRINTFORMW 「でもたぶん大丈夫……だったりするといいなー……」
			CASEELSE
				PRINTFORMW 「まーフツーっていうか、めちゃくちゃ悪くはないけど良くは全然ないっていうか……」
				PRINTFORMW 「……むー、別に悪くないだろー」
			ENDSELECT
		ENDIF
	ELSEIF COND("朝袭相手")
		IF TALENT:淫乱
			IF RAND:2
				PRINTFORMW 「もー、%CNAME("二人称")%のせいなんだぞ」
				PRINTFORM 「%CNAME("二人称")%がエッチなことばかりするのに放置するから
				SELECTCASE CSTR:朝袭
				CASE "朝逆正常位"
					PRINTFORMW おまんこにすぐ挿れちゃうような身体になっちゃったじゃん」
				CASE "朝舐陰"
					PRINTFORMW 朝に%CNAME("二人称")%のおまんこ舐めたくなっちゃうようになっちゃったじゃん」
				CASE "朝Ａ騎乗位"
					PRINTFORMW 朝からおちんちんをお尻に挿れて喘いじゃうような体になっちゃったじゃん」
				CASE "朝接吻"
					PRINTFORMW こんな接吻だけでエッチな感じになるようになっちゃったじゃん」
				CASE "朝添い寝"
					PRINTFORMW 添い寝するだけでエッチな感じになるようになっちゃったじゃん」
				CASE "朝口交", "朝六九式"
					PRINTFORMW %CNAME("二人称")%のチンチンしゃぶりに行くような身体になっちゃったじゃん」
				CASEELSE
					PRINTFORMW こんなエッチなことフツーに出来る身体になっちゃったじゃん」
				ENDSELECT
				PRINTFORMW 「%CNAME("二人称")%のエッチ！　ド変態！」
			ELSE
				PRINTFORMW 「…………」
				CALL PRINT_STRW, @"「……なんか、さっきまでのことを思い出して躁动难忍しちゃった……_H_」"
			ENDIF
		ELSE
			IF RAND:2
				CALL PRINT_STRW, @"「…………_／／／_」"
				PRINTFORMW 「……那，那个！」
				IF RAND:2
					SELECTCASE TEXTS("季節")
					CASE "春"
						PRINTFORMW 「……花、花真漂亮呢！」
					CASE "夏"
						PRINTFORMW 「……天、天气真热呢！」
					CASE "秋"
						PRINTFORMW 「……叶、叶子真漂亮呢！」
					CASE "冬"
						PRINTFORMW 「……天、天气真冷呢！」
					ENDSELECT
				ELSE
					PRINTFORMW 「……天、天气真好呢！」
				ENDIF
			ELSE
				PRINTFORMW 「……%CNAME("二人称")%、よくフツーにできるな……」
			ENDIF
		ENDIF
	ELSEIF COND("体育")
		PRINTFORMW 「今天有体育课呢！」
		PRINTDATAW
			DATA 「一緒にいっぱいいーっぱい走ろうな！」
			DATA 「ヘヘ、いっぱい遊べそうでたのしみ～♪」
			DATAFORM 「確か%CNAME("一人称")%のトコはバレーだったっけ……よし！　がんばるぞー！」
		ENDDATA
	ELSEIF COND("水泳")
		PRINTFORMW 「今天有游泳课呢！」
		PRINTFORMW 「%CNAME("一人称")%喜欢游泳，所以每到这一天都很兴奋！」
	ELSE
		PRINTFORMW 「嘿嘿♪和%CNAME("二人称")%一起的早晨真新鲜啊ー♪」
	ENDIF
CASE "一番乗り"
	IF AIZOU()
		IF RAND:2
			PRINTFORMW 「…………」
		ELSE
			PRINTFORMW 「……%CNAME("二人称")%………………早上好」
		ENDIF
	ELSEIF RAND:4 == 0
		PRINTFORMW 「お！　%CNAME("二人称")%だけなんだな！」
		IF TALENT:相思相愛
			PRINTFORMW 「……あ、あのさ」
			PRINTFORMW 「せっかくだし、ちょっとだけ打情骂俏してみない……？」
		ELSE
			PRINTFORMW 「そうそう、教えてほしい魔法があるんだけどさー」
		ENDIF
	ELSEIF RAND:3 == 0
		PRINTFORMW 「哦！　今天只有%CNAME("二人称")%一个人啊～」
		PRINTFORMW 「怎么说呢，这种时候的活动室也和平时不一样，感觉真好！」
	ELSEIF RAND:2
		PRINTFORMW 「哦！　第一个到啦ー！」
	ELSE
		PRINTFORMW 「啊！　%CNAME("二人称")%！」
		PRINTFORMW 「……嘿嘿、两个人独处呢」
	ENDIF
CASE "ただいま"
	IF AIZOU()
		PRINTDATAW
			DATA 「……ただいま」
			DATA 「…………」
		ENDDATA
	ELSE
		IF COND("夏")
			PRINTDATAW
				DATA 「ふぃー、暑かったー」
				DATA 「あ゛ー、涼しー……」
				DATA 「いきなり雨降ってきてビッ阴蒂したよー」
				DATA 「はーあっつい！　汗でビショビショだよー……」
				DATA 「おー……エアコン涼しー……」
			ENDDATA
		ELSEIF COND("冬")
			PRINTDATAW
				DATA 「あ゛ー暖かい……」
				DATA 「ズビビ……寒かったぁ……」
				DATA 「取下っごい雪だったぞ……」
				DATA 「今日はあったかかったぞー」
				DATA 「うー……なんか急に寒くなったんだけど……」
			ENDDATA
		ELSE
			PRINTDATAW
				DATA 「ただいまー」
				DATA 「ねえねえ！　取下っごいキレーだった！」
				DATA 「友達としゃべってたらこんな時間になっちゃった！　ごめん！」
				DATA 「うおっ！　……セーフ……急に雨降ってきたー……」
			ENDDATA
		ENDIF
	ENDIF
CASE "既に入室"
	IF AIZOU()
		PRINTFORMW 「……欢迎回来」
	;家で出迎えてくれる時
	ELSEIF COND("夜")
		PRINTDATAW
			DATA 「お！　おかえり！」
			DATALIST
				DATAFORM 「お、%CNAME("二人称")%も今帰ってきたんだなー」
				DATAFORM 「うん、%CNAME("一人称")%もー」
			ENDLIST
			DATAFORM 「%CNAME("二人称")%おかえりー」
		ENDDATA
	ELSE
		PRINTDATAW
			DATAFORM 「%CNAME("二人称")%、先に失礼してるぞー」
			DATAFORM 「あ！　%CNAME("二人称")%だー！」
		ENDDATA
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		IF AIZOU()
			PRINTFORMW 「……有什么事吗」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、收到了『有空就来玩吧』的消息……」
			PRINTFORMW 「有什么事吗——？」
		ENDIF
	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		IF AIZOU()
			PRINTFORMW 「大家…………」
			PRINTFORMW 「…………………………」
		ELSE
			PRINTFORMW 「大家…………」
			IF TALENT:恋慕 && RAND:2
				PRINTDATAW
					DATAFORM 「……むー、後で%CNAME("一人称")%にもしてくれよー」
					DATAFORM 「……また他の\@COND("池面") ? ヤツと # コと\@打情骂俏してる……」
				ENDDATA
			ELSE
				IF RAND:2
					PRINTFORMW 「……啊、之后就交给你们两个年轻人了……」
				ELSE
					PRINTFORMW 「え？　その……」
					PRINTFORMW 「…………え？」
				ENDIF
			ENDIF
		ENDIF
	ELSE
		IF AIZOU()
			PRINTFORMW 「好……%CNAME("二人称")%啊」
		ELSEIF RAND:2
			PRINTFORML 「ちわーす」
			IF RAND:2
				SELECTCASE TEXTS("季節")
				CASE "春"
					PRINTFORMW 「话说回来最近開始变的有点暖和了啊——」
				CASE "夏"
					PRINTFORMW 「好热——……%CNAME("二人称")%感觉还好吗？」
				CASE "秋"
					PRINTFORMW 「街上好吃的东西变多了呢——」
				CASE "冬"
					PRINTFORMW 「啊——好暖和~……还好部室有空调——……」
				ENDSELECT
			ENDIF
		ELSE
			PRINTFORMW 「あ！　%CNAME("二人称")%もう来てたんだ！」
			PRINTFORMW 「ヘヘ、授業が終わったからソッコーでこっち来了んだー♪」
		ENDIF
	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("教員", "入室打招呼中")
		ACTOR = FIND_COND("教員", "入室打招呼中")
		CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

		PRINTFORML 『%CNAME(CALLNAME_ACTOR)%！　来的正好、有个不懂的地方教教%CNAME("一人称")%！』
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		IF RAND:2
			PRINTFORM 『%CNAME(CALLNAME_ACTOR)%ー。等%CNAME(CALLNAME_ACTOR)%等的
			IF COND("夏")
				PRINTFORMW 冰棍都化了——』
			ELSEIF COND("冬")
				PRINTFORMW 饮料都凉了——』
			ELSE
				PRINTFORMW 饮料都变得温热了——』
			ENDIF
		ELSE
			PRINTFORMW 「啊！　%CNAME(CALLNAME_ACTOR)%辛苦了！」
			PRINTFORMW 「今天好忙啊ー」
		ENDIF
	ELSE
		PRINTDATAL
			DATAFORM 『あ！　%CNAME(CALLNAME_ACTOR)%だ！』
			DATAFORM 『%CNAME(CALLNAME_ACTOR)%！』
		ENDDATA
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		IF AIZOU()
			PRINTFORMW 「……有事的话，就赶紧做啊」
		ELSE
			PRINTDATAW
				DATAFORM 「%CNAME("二人称")%ー、なにか用かー？」
				DATA 「なにかあるのー？」
				DATA 「なにー？」
				DATAFORM 「%CNAME("二人称")%ー？」
			ENDDATA
		ENDIF
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		IF COND("夏") && RAND:2
			PRINTFORMW 「ふぃー、鈴しぃー」
		ELSEIF COND("冬") && RAND:2
			PRINTFORMW 「あーあったけー……」
		ELSE
			PRINTFORMW 「あー、やっぱ今日はこっちの気分だなー」
		ENDIF
	ELSE
		PRINTFORMW 「啊！　%CNAME("二人称")%哒！」
	ENDIF
CASE "抜け出された"
	PRINTFORMW 「むー、そんなにイヤだったのかー？」
CASE "便当"
	IF AIZOU()
		PRINTFORMW 「…………便当」
		PRINTFORMW 「……因为约好了嘛」
	ELSE
		PRINTFORMW 「啊、%CNAME("二人称")%！」
		PRINTFORMW 「这是今天的便当！」
		PRINTFORMW 「嘿嘿、今天呢、做了有%TEXTR("三文鱼便当/煎蛋/炒面/汉堡肉/可乐饼便当/猪肉饭")%哦！」
	ENDIF
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"
	IF AIZOU()
		CALL EMOTION_PLUS, "心情差", TARGET
		PRINTFORMW 「…………」
	ELSEIF TALENT:恋慕
		CALL EMOTION_PLUS, "心情差", TARGET
		SELECTCASE RAND:6
		CASE 0
			PRINTFORMW 「嘿~、咳咳~」
			PRINTFORMW 「那么、就慢慢来吧——」
			PRINTFORMW 「……之后就交给%CNAME("一人称")%了」
		CASE 1
			PRINTFORMW 「……呼—嗯」
		CASE 2
			PRINTFORMW 「……嘛，算了」
			PRINTFORMW 「知道%CNAME("二人称")%是这样的人，也还是喜欢」
		CASE 3
			PRINTFORMW 「……这个无节操」
		CASE 4
			PRINTFORMW 「……之后和%CNAME("一人称")%做的话就原谅一下」
		CASE 5
			PRINTFORMW 「%CNAME("一人称")%の目の前でそんな打情骂俏するなんて……」
			PRINTFORMW 「……%CNAME("二人称")%のイジワル」
		ENDSELECT
	ELSE
		CALL EMOTION_PLUS, "惊嚇", TARGET
		PRINTDATAW
			DATALIST
				DATA 「えっ」
				DATA 「……お、おふたりでごゆっくりー……」
			ENDLIST
			DATA 「えっ、ちょっ、い、いきなりここで！？」
			DATALIST
				DATA 「ちょっ、え……！？」
				DATA 「す、すぐ出るからもう少し待って！」
			ENDLIST
			DATA 「そ、そんないきなりするの！？」
			DATA 「うわっ、へ、ええっ！？！？」
			DATA 「う、うわー……うわぁー……」
		ENDDATA
	ENDIF
ENDSELECT

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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「诶~、这里就是部室啊……」
	PRINTFORML 「……接下了各种各样的事就请多照顾了、%CNAME("二人称")%！」
CASE "浑身是汗"
	IF COND("夏")
		SELECTCASE RAND:5
		CASE 0
			PRINTFORML 「哈——好热！」
			PRINTFORML 「这么热的话%CNAME("一人称")%都要融化了——……」
		CASE 1
			PRINTFORML 「呜诶……」
			PRINTFORML 「太热了衣服都湿透了……」
		CASE 2
			PRINTFORML 「うげー……」
			PRINTFORML 「これは帰ったら着替えないとマズそうだなー……」
		CASE 3
			PRINTFORML 「もーあっつ……」
			PRINTFORML 「こんなに暑いなんて聞いてないよー……」
		CASE 4
			PRINTFORML 「あーもう、今日暑い……」
			PRINTFORML 「天気予報じゃそこまでなるって聞いてなかったんだけどー……」
		ENDSELECT
	ELSEIF COND("水泳")
		SELECTCASE RAND:4
		CASE 0
			PRINTFORML 「呼——！」
			PRINTFORML 「果然游泳很舒服啊！」
		CASE 1
			PRINTFORML 「嗯……」
			PRINTFORML 「游泳果然很有意思啊！」
			SIF COND("種族：吸血鬼")
				PRINTFORML 「能用这身体进入游泳池真是太好了！」
		CASE 2
			PRINTFORML 「这样好好活动身体之后，感觉真的很舒畅啊ー」
		CASE 3
			PRINTFORML 「呼——！」
			PRINTFORML 「体育楽しかったー！」
		ENDSELECT
	ELSE
		IF RAND:2
			PRINTFORML 「呼——！」
			PRINTFORML 「果然尽情跑起来很爽啊！」
		ELSE
			PRINTFORML 「ん？　ああ！　さっき外を思いっきり走ってきたんだ！」
			IF COND("種族：吸血鬼") && RAND:2
				PRINTFORML 「吸血鬼变成了からかな？　今までよりものすごく早くなっててビッ阴蒂した！」
			ELSEIF COND("夏")
				PRINTFORML 「外とっても暑かったけどメッチャ楽しかった！」
			ELSE
				PRINTFORML 「朝からずーっとボーっとしてたんだけど、走ってたらスッキリしたー！」
			ENDIF
		ENDIF
	ENDIF
CASE "刚睡醒"
	PRINTDATAL
		DATA 「ふあぁ……」
		DATA 「むにゃ……まだ眠い……」
		DATA 「あー、あれ夢……」
		DATA 「そんな、ピョンの助が世界の破壊者だったなんて……むにゃ……」
		DATA 「もうちょっとダラダラさせてぇ……」
		DATA 「もう起きなきゃいけなぃの……？」
	ENDDATA
CASE "Cosplay中"
	SELECTCASE SHIRT(TARGET)
	CASE "女教師"
		IF TALENT:伪娘
			PRINTFORML 「こ、これ似合うかな……？」
		ELSE
			PRINTFORML 「……いや、これもしかしなくても女装じゃ……」
		ENDIF
	CASE "和服"
		IF RAND:2
			PRINTFORMW 「へー、和服ってこんな風になってるのか……」
			PRINTFORMW 「うわっ！　……ヘタな動き方しちゃうと下のほうが開いちゃうなこれ……」
		ELSE
			PRINTFORMW 「……なんかちょっと動きづらい……」
		ENDIF
	CASE "女仆装"
		IF TALENT:伪娘
			PRINTFORML 「主人様、おかえりなさい！」
			IF TALENT:淫乱
				PRINTFORML 「まずはご飯を用意しましょうか？　お浴室を用意しましょうか？」
				CALL PRINT_STRL, @"「それともエッチなご奉仕？　……なんちゃって_H_」"
			ELSE
				PRINTFORML 「……な、なんちゃって……」
				PRINTFORML 「昔のマンガとかだとこんな感じだった気がするんだけど……どう、かな？」
			ENDIF
		ELSE
			PRINTFORML 「ええ……」
			PRINTFORML 「いや%CNAME("二人称")%……」
			PRINTFORML 「なんていうか……うん」
		ENDIF
	CASE "体操服"
		IF RAND:2
			PRINTFORML 「んー！　このカッコ動きやすいー！」
			PRINTFORML 「いやー！　Cosplayって聞いた時ちょっと不安だったけどOKだして良かったー！」
		ELSE
			PRINTFORML 「お、これ動きやすいな！」
			PRINTFORML 「……いやまあ、Cosplayかって言われるとなんかビミョーな気がするけどさ」
			PRINTFORML 「……でも、これウチのとは違うっぽいし、そういう意味ではCosplayなのかな……？」
		ENDIF
	CASE "护士服"
		IF TALENT:伪娘
			PRINTFORML 「なーなー%CNAME("二人称")%、ちょっと聞きたいんだけどさ」
			PRINTFORML 「护士のCosplayってのはわかるんだけど、この帽子ってなんなんだ……？」
			PRINTFORML 「……え、昔の护士桑ってこんな感じの帽子かぶってたの……！？」
		ELSE
			PRINTFORML 「えー、こんなカッコしても何も出来ないだろ……」
			PRINTFORML 「なんかヘンな帽子被らされたし……」
		ENDIF
	CASE "旗袍"
		IF TALENT:伪娘
			PRINTFORML 「うわ、すっごいヒラヒラする……」
		ELSE
			PRINTFORML 「こ、これは絶対似合わないだろ……」
		ENDIF
	CASE "水手服"
		IF TALENT:伪娘
			PRINTFORML 「ど、どう？　似合ってる……かな？」
		ELSEIF CFLAG:好感度 >= 150
			PRINTFORML 「えー……%CNAME("二人称")%ってマジで変態……」
		ELSE
			PRINTFORML 「セ、水手服って、え、えぇー……」
		ENDIF
	CASE "情趣内衣"
		IF TALENT:伪娘
			IF TALENT:淫乱
				CALL PRINT_STRL, @"「こんなカッコさせるなんて、期待しちゃうじゃんか……_H_」"
			ELSE
				PRINTFORML 「う、うわぁ、布面積がものすごく少ない……」
				PRINTFORML 「しかも色々と透けてるし……」
			ENDIF
		ELSE
			PRINTFORML 「……ちょっと引く」
		ENDIF
	CASE "婚纱礼服"
		IF TALENT:伪娘
			PRINTFORML 「へぇ……着てみるとこんな感じなんだ……」
			PRINTFORML 「着ることになるなんて思ってもなかったから、なんていうか新鮮だなぁ」
		ELSE
			PRINTDATAL
				DATA 「え、こっちの方……？」
				DATAFORM 「……%CNAME("二人称")%の趣味がわからない……」
			ENDDATA
		ENDIF
	CASE "哥特蘿莉礼服"
		IF TALENT:伪娘
			IF CEVENT("極夜の和解")
				PRINTFORML 「このカッコさー、なんかこう、吸血鬼！　って感じしない？」
				PRINTFORML 「可爱けどカッコイイとことかさ……」
			ELSEIF COND("種族：吸血鬼") == 0
				PRINTFORML 「……そういや、こんな感じの服母桑が持ってたなー」
				PRINTFORML 「ここまで豪華な感じじゃないんだけどな？　昔はこーゆー趣味だったのかなぁ……」
			ELSE
				PRINTFORML 「なんていうか、こう、ちょっとフクザツな気分……」
			ENDIF
		ELSE
			PRINTDATAL
				DATAFORM 「……%CNAME("二人称")%さ、%CNAME("一人称")%のこと換装人形か何かだと勘違いしてない？」
				DATA 「いや、これどう見たって全然似合ってないでしょ……」
				DATA 「あの、これなんで……なんで？」
			ENDDATA
		ENDIF
	CASE "啦啦队制服"
		IF TALENT:伪娘
			IF TALENT:淫乱
				PRINTFORML 「フフ、このカッコをするなら、頑張っていっぱい応援しないといけないな！」
				CALL PRINT_STRL, @"「……例えば%CNAME("二人称")%のチンコとか_H_」"
			ELSE
				PRINTFORML 「え、えっと、このカッコってことは、色々と応援したほうがいい……？」
			ENDIF
		ELSE
			PRINTFORML 「%CNAME("二人称")%の趣味って……」
		ENDIF
	CASE "睡衣"
		PRINTFORML 「ふぁぁ……」
		PRINTFORML 「思ったより着心地が良くて、このまま寝ちゃいそう……」
	CASE "怪獣睡衣"
		PRINTDATAL
			DATAFORM 「むー……%CNAME("二人称")%%CNAME("一人称")%のこと子どもだって思ってない？」
			DATA 「ちょ、ちょっと恥ずかしいんだけど……！」
			DATA 「うぅ……なんでこんなに子どもっぽいカッコを……」
		ENDDATA
	CASEELSE
		PRINTFORML 「なーなー、これ似合ってるかー？」
	ENDSELECT
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTDATAL
			DATAFORM 「今日は%CNAME("一人称")%が点心持ってきたんだけど……どうかな？」
			DATAFORM 「今日の点心は%CNAME("一人称")%が持ってきたんだけど……どう？」
			DATAFORM 「今日のはおいし\@RAND:2 ? そうだった # かった\@から持ってきたんだけど……どうかな？」
			DATALIST
				DATA 「……！　やっぱこれおいしい！」
				DATAFORM 「%CNAME("二人称")%も食べてみてよ、ほら！」
			ENDLIST
		ENDDATA
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML 「而且好好吃！　这个是谁做的……！？　可能会成为专家呢……！」
				PRINTFORML 「诶！？　%CNAME(@"%TEXTS("点心当番")%")%！？　……好、好强……！」
			ELSE
				PRINTFORML 「哦，我喜欢这个味道！」
				PRINTFORML 「……诶，这个是%CNAME(@"%TEXTS("点心当番")%")%做的？　%CNAME(@"%TEXTS("点心当番")%")%、谢谢！」
			ENDIF
		ELSE
			PRINTFORML 「哦、今天也是%CNAME(@"%TEXTS("点心当番")%")%的自制点心吗！」
			PRINTFORML 「嘿嘿、好期待呢～」
		ENDIF
	;点心が亲手自制でない
	ELSE
		IF RAND:2
			PRINTFORML 「哦！　这个好好吃呢！」
			PRINTFORML 「这个哪里有卖啊告诉%CNAME("一人称")%嘛——」
		ELSE
			PRINTFORML 「あ！　これ好吃！」
			PRINTFORML 「これなら何回だって食べられちゃうよー！」
		ENDIF
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K57
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「呜、呜哇哇……好、好害羞……」
	CALL PRINT_STRW, @"「整个脸都变得通红……_H_」"
CASE "约会的约定"
	IF AIZOU()
		PRINTFORML 「…………」
	ELSE
		IF RAND:2
			PRINTFORML 「嘿~嘿~嘿~、这次周末要去约会ー♪」
		ELSEIF EXP:约会経験 <= 10
			PRINTFORML 「要、要去约会啊……」
			PRINTFORML 「嗯，%CNAME("一人称")%要穿帅帅的衣服，好好准备一下，嗯，嗯……」
		ELSE
			PRINTFORML 「约会啊……」
			PRINTFORML 「……嘿嘿，今天%CNAME("一人称")%要努力让%CNAME("二人称")%夸%CNAME("一人称")%帅」
		ENDIF
	ENDIF
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	;[IF_DEBUG]
	;	PRINTFORML KOJO_DAILY_K57, %CSTR:PREV_DAILYCOM%後
	;[ENDIF]
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML
CASE "泡茶"
	IF AIZOU()
		PRINTFORML 「……谢谢」
	ELSE
		SELECTCASE RAND:4
		CASE 0
			PRINTFORML 「うぐ、苦い……」
			PRINTFORML 「け、けど、苦いのを飲めたほうが大人っぽいし……！」
		CASE 1
			PRINTFORML 「嗯~……啊、好好喝……！」
			PRINTFORML 「意料之外的技能呢、%CNAME("二人称")%」
		CASE 2
			PRINTFORML 「……！　おいしい……！」
		CASE 3
			PRINTFORML 「へー、これ苦くな……」
			PRINTFORML 「……に、苦くたってヘーキなんだからな！」
		ENDSELECT
	ENDIF
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	IF AIZOU()
		PRINTFORML 「……为什么、带%CNAME("一人称")%来这儿啊」
		PRINTFORML 「%CNAME("一人称")%来作对象也可以吗……」
	ELSE
		PRINTFORML 「诶~……这里就是%CNAME("二人称")%的房間吗……」
		PRINTFORML 「……那、色情视频的文件夹在哪里呢、哦……」
	ENDIF
;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	IF AIZOU()
		PRINTFORML 「……」
	ELSE
		SELECTCASE RAND:11
		CASE 0
			PRINTFORML 「还没来得及收拾……」
		CASE 1
			PRINTFORML 「嘿嘿、像这样到别人的房里、有点兴奋呢！」
		CASE 2
			PRINTFORML 「啊，对了！　前几天%CNAME("一人称")%买了游戏，要不要一起玩？」
		CASE 3
			PRINTFORML 「电视的电源在旁边……诶，这里是%CNAME("二人称")%的家，%CNAME("一人称")%在说什么呢」
		CASE 4
			PRINTFORML 「哼~哼~哼~ー、就算被翻床底下%CNAME("一人称")%也不怕ー。%CNAME("一人称")%是用电子设备看色色的类型」
		CASE 5
			PRINTFORML 「啊，那个手办？　和朋友一起玩扭蛋机的时候拿到的」
		CASE 6
			IF COND("種族：吸血鬼") == 0 || CEVENT("極夜の和解")
				PRINTFORML 「『%CNAME("一人称")%在%CNAME("二人称")%家过得很好』……嗯」
			ELSE
				PRINTFORML 「啊，打电话讲的话怎么说呢……有点尴尬……」
			ENDIF
		CASE 7
			PRINTFORML 「诶，这是重播……嗯、诶、唔唔……」
			PRINTFORML 「没，没什么！　女性向动画什么的，我我我才没看过呢！！！」
		CASE 8
			PRINTFORML 「啊，说起来%CNAME("二人称")%玩这个卡牌游戏吗？」
			PRINTFORML 「从柜子里翻出了以前的卡牌。要不要久违地再玩一次呢……」
		CASE 9
			PRINTFORML 「嗯，游戏機ー？　在电视下面，对对，右边那里ー」
		CASE 10
			PRINTFORML 「んー……」
			PRINTFORML %CALLNAME:TARGET%は大きく背伸びをしている……
		ENDSELECT
	ENDIF
;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	IF AIZOU()
		PRINTFORML 「……有什么事吗」
	;指导者を伴っている場合
	ELSEIF FIND_COND("現在存在", "助手")
		PRINTFORML 「啊！　%CNAME("二人称")%と%CNAME("助手")%！」
		PRINTFORML 「嘿嘿、稍微有点乱……」
	ELSE
		PRINTFORML 「哦、%CNAME("二人称")%」
		PRINTFORML 「有什么事找%CNAME("一人称")%吗——？」
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML 「诶……啊……那个……」
	PRINTDATAL
		DATA 「み、見なかったことにしてくれない？」
		DATA 「……きょ、今日是い天気だな！」
		DATA 「えっと、ええっと……」
		DATAFORM 「……オ、オハヨウ？　%CNAME("二人称")%……」
	ENDDATA
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「……啊咧」
	PRINTFORML 「……难道说、看见了？」
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML
CASE "检查内褲"
	IF COND("合意：检查内褲")
		IF CEVENT("女装")
			CALL PRINT_STRL, @"「等、等下啊、很害羞啊……_H_」"
		ELSE
			PRINTDATAL
				DATA 「……そろそろ終わっていいよな？」
				DATA 「……もしかして、まだこのまま……？」
			ENDDATA
		ENDIF
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		IF ABL:露出癖 >= 3
			SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRL, @"「感、感觉要变得奇怪了……_H_」"
			CASE 1
				CALL PRINT_STRL, @"「不、不要那样盯着看啊……_H_」"
			CASE 2
				PRINTFORML 「そ、そんなに見ないで……」
				CALL PRINT_STRL, @"「なんか興奮しちゃいそう……_H_」"
			CASE 3
				CALL PRINT_STRL, @"「ちょ、ちょっと……_H_」"
			CASE 4
				CALL PRINT_STRL, @"「な、なんでこんな……_H_」"
				CALL PRINT_STRL, @"「恥ずかしいのに、恥ずかしいのがゾクゾクしちゃう……_H_」"
			ENDSELECT
		ELSE
			IF RAND:2
				CALL PRINT_STRL, @"「已、已经行了吧……_H_」"
			ELSE
				PRINTFORML 「……さ、さすがにそろそろ恥ずかしいんだけど……」
			ENDIF
		ENDIF
	ENDIF
CASE "拜托処理性欲"
	IF RAND:2
		CALL PRINT_STRL, @"「呜呜~……总感觉还有点躁动啊……_H_」"
	ELSE
		CALL PRINT_STRL, @"「好、好羞耻，但是好舒服……_H_」"
	ENDIF
CASE "进行性処理"
	PRINTFORML
CASE "帮忙消除性欲"
	PRINTFORML
CASE "清洁口交"
	IF TALENT:淫乱
		CALL PRINT_STRL, @"「……好了、已经打扫干净了_H_」"
	ELSE
		PRINTDATAL
			DATA 「……あー……ここらへんで終わっていい？」
			DATA 「お、終わったぞ……」
		ENDDATA
	ENDIF
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4
			PRINTFORML 「很、很厉害的量呢……」
			PRINTFORML 「这些全都是H的东西、总感觉怪怪的……」
		CASEELSE
			PRINTFORML 「这个、有点…………」
			PRINTFORML 「…………好厉害」
		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML 「诶！？　等……」
	PRINTFORML 「……这、这种的不行的！」
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		CALL PRINT_STRL, @"「呜哇……被、被看见了……_H_」"
	;まさかの野外
	ELSEIF PLACE("野外")
		IF COND("冬")
			PRINTFORML 「……在害羞之前、先是很冷呢」
		ELSE
			PRINTFORML 「……马、马上换好衣服啦」
		ENDIF
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTDATAL
			DATA 「い、今さっき音しなかったか……？」
			DATA 「だ、誰も入ってこないよな……？」
			DATA 「こ、これホントにバレない……？」
			DATA 「う、だ、大丈夫かなぁ……」
			DATA 「へ、ヘンな感じがする……」
			DATA 「……これもしバレたら恨むからな」
			DATA 「こ、こういうのって絶対ダメなヤツなんじゃ……」
			DATA 「……これ絶対慣れちゃダメなヤツだよな……」
			DATA 「な、なんか人の影が見えたような……」
			DATA 「ど、どっか見えるような死角ないよな……！？」
		ENDDATA
	;個室で二人きり
	ELSE
		IF AIZOU()
			PRINTFORML 「……这样就满足了吧」
		ELSEIF TALENT:相思相愛
			PRINTFORML 「%CNAME("二人称", "どもり")%……怎、怎么样……？」
		ELSEIF TALENT:MASTER:男性 == 0 || TALENT:MASTER:伪娘 || MARK:屈服刻印 >= 2
			PRINTFORML 「……哇、很羞耻啊……别盯着看啊……」
		ELSE
			PRINTFORML 「%CNAME("二人称")%——、这样就好了吗——？」
		ENDIF
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		SELECTCASE RAND:5
		CASE 0
			PRINTFORML 「呜哇——……来情人旅馆了……呜哇——……」
		CASE 1
			PRINTFORML 「那、那个、就是……」
			PRINTFORML 「……请、请多指教」
		CASE 2
			IF TALENT:淫乱
				PRINTFORML 「今日はここで%CNAME("二人称")%と……」
				CALL PRINT_STRL, @"「……なんだか興奮してきちゃった……_H_」"
			ELSE
				PRINTFORML 「……感觉好像已经习惯了，这是好还是不好呢……」
			ENDIF
		CASE 3
			PRINTFORML 「……呜哇，这里放着避孕套，呜哇ー……」
		CASE 4
			PRINTFORML 「……%CNAME("一人称")%、%CNAME("一人称")%去洗澡……」
		ENDSELECT
	;做爱房
	ELSE
		SELECTCASE RAND:6
		CASE 0
			PRINTFORML 「这里是那个对吧……」
			PRINTFORML 「那个、晚上可以听到H的声音……」
			PRINTFORML 「……就、就是在、做那种事吧？」
		CASE 1
			PRINTFORML 「呜哇，装着精液的避孕套滚过来了……」
		CASE 2
			CALL PRINT_STRL, @"「呜……色色的%TEXTS("气味")%……_／／／_」"
		CASE 3
			PRINTFORML 「快、快把窗帘拉上……」
		CASE 4
			PRINTFORML 「啊咧，这个笔记本是……」
			PRINTFORML 「……诶！？　『○×的小穴像处女一样紧，但羞耻的表情很色情」……难、难道这是……」
		CASE 5
			PRINTFORML 「な、なんか向こうで部活してる声が聞こえるんだけど……」
		ENDSELECT
	ENDIF
ENDSELECT

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

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	IF STRCOUNT(SAVESTR:標語, "注意口渴")
		IF DEVENT("標語茶") == 0
			PRINTFORML 「啊——、确实摄入水分也很重要呢——」
			PRINTFORML 「%CNAME("一人称")%都这么努力、%CNAME("二人称")%也要努力了——」
			CALL SET_DEVENT, "標語茶"
		ENDIF
	ELSEIF STRCOUNT(SAVESTR:標語, "体操服")
		SELECTCASE SAVESTR:標語
		CASE "体操服はやっぱり布鲁马"
			;IF DEVENT("標語布鲁马") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語布鲁马"
			;ENDIF
			IF CDAYEV("初布鲁马")
				PRINTFORMW 「……那个、这是什么」
				PRINTFORML 「え、布鲁马？　これ昔は使われてたのか？」
				HTML_PRINT @"<p align= 'left'>「该怎么说呢……那个……	<font color= '#303030'>像内裤一样……啊嗯唔……</font>」</p>"
				CALL SET_CDAYEV, "初布鲁马"
			ELSE
				PRINTFORML 「うっ……ま、また布鲁马……」
				IF TALENT:伪娘
					PRINTFORML 「そ、そりゃあ可爱けどさ……」
				ELSE
					PRINTFORML 「なんでそんなに女装させたがるんだよ……」
				ENDIF
				PRINTFORM 「为什么不愿意，
				IF CFLAG:メス堕ち度 >= 3
					CALL PRINT_STR, @"なんか興奮しちゃうし……_H_」_L_"
				ELSE
					PRINTFORML だって恥ずかしいじゃん……」
				ENDIF
			ENDIF
		CASE "体操服はやっぱり运动短褲"
			PRINTFORML 「お！　このカッコは色々動きやすくていいんだよなー」
			IF CEVENT("女装") && CEVENT("初女装运动短褲") == 0
				IF TALENT:伪娘
					PRINTFORML 「よーし、女の子っぽい五分褲を探さないとなー」
				ELSE
					PRINTFORML 「……でも、女の子っぽいの探さないとダメってことだよなー……」
				ENDIF
				CALL SET_CEVENT, "初女装运动短褲"
			ELSE
				PRINTFORML 「とりあえず、今仕舞ってる分を洗わなくちゃ……」
			ENDIF
		CASE "体操服はやっぱり紧身短褲"
			IF TALENT:淫乱
				CALL PRINT_STRL, @"「……ふふ_H_どーせ紧身短褲でシルエットが見える下半身を見たいとかそんなんなんだろー？」"
				CALL PRINT_STRL, @"「特別にやって给から、%CNAME("一人称")%のエッチなとこ、酱と見ててよ_H_」"
			ELSEIF ABL:Ｃ感覚 >= 3
				PRINTFORML 「う、うぐっ……」
				PRINTFORML 「い、いや、確かに紧身短褲は動きやすいんだけどさ……」
				PRINTFORML 「最近ピッチリなのが気持ちよくなっちゃって……」
			ELSE
				PRINTFORML 「紧身短褲かー」
				PRINTFORML 「ピチってしてるのは嫌だけど、やっぱり動きやすいよなー」
			ENDIF
		CASE "体操服はやっぱり运动衫"
			PRINTFORML 「んー？　运动衫着てほしいのかー？」
			IF COND("夏")
				PRINTFORML 「別にいいけど、ちょっと闷热的そうだなー……」
			ELSEIF COND("冬")
				PRINTFORML 「まー、冬だし暖かいカッコしたいから別にいいけどー」
			ELSE
				PRINTFORML 「別にいいけど……%CNAME("二人称")%がこういうフツーのカッコの話すると逆に気持ち悪いな」
				PRINTFORML 「なんか、こう、なんていうか」
			ENDIF
		;各分岐を細かく埋めずに、上の分岐を消して望みの体操服に着替えてやったぞ発言をここに書くのも良いと思います
		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

IF AIZOU() == 0
	;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
	IF FINDCHARA(NO, 48) == 0 && DEVENT("気になるあの娘") == 0
		PRINTFORML 「话说来啊、%CNAME("二人称")%认识一个叫『望木莉』的孩子吗？」
		PRINTFORML 「和%CNAME("一人称")%一个班级的女生啦，考试总是在年级前列哦」
		PRINTFORML 「而且长相也很可爱、在班上很有人气。……因为是背地里传開的、本人并不知道」
		PRINTFORML 「……只是、那个叫莉的女生并不善于交际」
		PRINTFORML 「该怎么说呢……不仅是强硬的个性、好像……还隐瞒了很多事」
		PRINTFORML 「就是这样，%CNAME("一人称")%担心情况会变得糟糕……」
		IF TALENT:恋慕
			PRINTFORML 「……诶？　你喜欢那个人吗？」
			PRINTFORML 「明明知道%CNAME("一人称")%的心意、%CNAME("二人称")%是鬼、恶魔、花心大萝卜」
		ELSE
			PRINTFORML 「……哇、哇啊！？」
			PRINTFORML 「才、才才才、才不是！　才、才、才不、喜、喜欢那家伙！」
		ENDIF
		CALL SET_DEVENT, "気になるあの娘"
	ELSEIF CNUM("莉") && COND("相性○", CNUM("莉") ) && DEVENT("新たな悩み") == 0 && TALENT:恋慕 == 0
		ACTOR = CNUM("莉")
		PRINTFORMW 「……%CNAME("二人称")%，%CNAME("一人称")%有点事想问你」
		IF DEVENT("気になるあの娘") && CEVENT("莉初会話")
			PRINTFORMW 「不是说，%CNAME(CALLNAME:ACTOR)%是后来才加入进来的嘛」
			PRINTFORMW 「一開始%CNAME("一人称")%吓了一跳，不知道会发生什么」
			PRINTFORMW 「……呃，不是那个！　最近%CNAME("一人称")%和%CNAME(CALLNAME:ACTOR)%関系变好了……」
			PRINTFORMW 「唔嗯，怎么说呢，有点和%CNAME("一人称")%想要的方向不同……不过%CNAME("一人称")%很高兴啦」
			PRINTFORMW 「那个，%CNAME("二人称")%啊，如果你，你……对某个人感兴趣，想要建立新的関系的话会怎么做呢……」
		ELSE
			PRINTFORMW 「实、实际上，%CNAME("一人称")%有个心仪的人，最近和那个人関系变好了……」
			PRINTFORMW 「可是那个家伙，好像并没有把%CNAME("一人称")%当成喜欢的人看待……不过%CNAME("一人称")%很高兴啦」
			PRINTFORMW 「……那、那个啊，%CNAME("二人称")%你觉得要让喜欢的人把%CNAME("一人称")%当作异性看待应该怎么做呢……？」
			PRINTFORMW 「拜托了！　只有%CNAME("二人称")%能帮%CNAME("一人称")%了！」
		ENDIF
		CALL SET_DEVENT, "新たな悩み"
	ELSEIF CFLAG:日常事件回数 >= 5 && DEVENT("うち的家族") == 0
		PRINTFORML 「『吃了晚饭吗』……」
		PRINTFORML 「啊，不是%CNAME("二人称")%嘛」
		PRINTFORML 「啊~、是父母发的晚餐的消息、正在回复」
		PRINTFORML 「……嗯？　果然还是有点奇怪吗？」
		PRINTFORML 「我家的双亲是在一起工作的。而且不知道为什么两人都是上的夜班、过着日夜颠倒的生活」
		PRINTFORML 「肌肤也很娇柔，外出时必须带着太阳伞、也是没有办法的」
		PRINTFORML 「嘛、就是因为这样经常不能一起吃饭、就这样、总是收到这样晚餐的消息并回复他们」
		PRINTFORML 「……啊、先说在前面父母他们都是正经的人哦？　但总是喝着像番茄汁一样的东西有点让人担心……」
		CALL SET_DEVENT, "うち的家族"
	ELSEIF DAYEV("文化祭") && DEVENT("初文化祭") == 0
		PRINTFORML 「ふっふっふー、今日は待ちに待った文化祭だ……！」
		PRINTFORML 「だってさだってさ！　いろんな出し物があるでしょ、食べ物だっていっぱいあるでしょ、それにそれに……」
		IF TALENT:相思相愛
			PRINTFORML 「どーせ%CNAME("二人称")%闲だったりするんだろー？」
			PRINTFORML 「せっかくなんだして、一緒贰壹伍ーよ！」
		ELSEIF CNUM("莉") || DEVENT("気になるあの娘")
			PRINTFORML 「……ハッ！　こ、これ、もしかして……」
			PRINTFORML 「莉酱を约会に誘ったりできちゃう……！？」
		ELSE
			PRINTFORML 「……も、もしかしたらあの子と一緒に约会出来るかなぁ……」
		ENDIF
		CALL SET_DEVENT, "初文化祭"
	ENDIF
ENDIF

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

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	IF TALENT:相思相愛
		PRINTFORML 「……%CNAME("二人称")%がそういう人だってことは知ってるけどさ……」
		PRINTFORML 「なんかモヤモヤする……」
	ELSE
		IF CFLAG:メス堕ち度
			IF RAND:2
				CALL PRINT_STRL, @"「あ、あんなエッチなの見せられた後なんて……_H_」"
			ELSE
				CALL PRINT_STRL, @"「……%CNAME("二人称")%のエッチ……_H_」"
			ENDIF
		ELSE
			PRINTFORML 「……さ、さすがにさっきの見た後にそういう気分には……」
		ENDIF
	ENDIF
ENDIF

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

;以下は随机台詞など

IF CEVENT("『のぞき』見") && CEVENT("覗き後") == 0
	PRINTFORML 「………………」
	PRINTFORML 「……啊、 啊啊！　早、早上好！」
	CALL SET_CEVENT, "覗き後"
;時間帯と場所と関係で変化有些
ELSEIF FLAG:二人きり
	IF AIZOU()
		PRINTFORML 「…………」
	ELSEIF TALENT:恋慕
		PRINTFORML 「嘿、嘿嘿……这样两人独处、有点心动啊」
	ELSE
		PRINTFORML 「%CNAME("二人称")%！　一对一地教%CNAME("一人称")%魔法吧！」
	ENDIF
ELSEIF STATE("酔酒")
	PRINTFORML
ELSEIF COND("夜")
	IF DAYEV("大晦日")
		PRINTFORML 「啊、除夕的钟声啊」
		PRINTFORML 「对啊、今年已经结束了——」
		PRINTFORML 「……希望来年也是快乐的一年啊！」
	ELSE
		SELECTCASE RAND:4
		CASE 0
			PRINTFORML 「啊、已经是晚上啦」
			PRINTFORML 「……晚上、总感觉很成熟呢——」
		CASE 1
			PRINTFORML 「夜ってケッコー好きなんだよなー」
			PRINTFORML 「こうさ、こっそり徹夜しちゃって悪いことした気分变成了り……」
		CASE 2
			PRINTFORML 「哼……」
			PRINTFORML 「まだ起きてたいのにめちゃくちゃ眠い……」
		CASE 3
			PRINTFORML 「……なんか今日、全然寝れそうにない……」
		ENDSELECT
	ENDIF
ELSE
	IF AIZOU()
		PRINTFORML 「…………」
		PRINTFORML %CALLNAME:TARGET%对%CALLNAME:MASTER%投去\@TALENT:恋慕 ? 尴尬的# 恨恨的\@目光……。
	ELSEIF COND("春")
		SELECTCASE RAND:7
		CASE 0
			PRINTFORML 「呜咯……春天来了……」
			PRINTFORML 「……不、确实樱花很美哦？　……但是很讨厌虫子啊……」
		CASE 1
			PRINTFORML 「春天、春天啊……」
			PRINTFORML 「あっちこっちに蝶とかテントウムシが飛んでて……うぅ、トリハダが……」
		CASE 2
			PRINTFORML 「春といえば、花粉症もあるんだよなー……」
			PRINTFORML 「%CNAME("一人称")%はそーゆーのヘーキなんだけど、友達に花粉症のヤツがいてさ」
			PRINTFORML 「この頃になるといっつもティッシュ箱ごと持ってきてて、大変そうだなーっていつも思うんだ」
		CASE 3
			PRINTFORML 「春、春かー……」
			PRINTFORML 「春と秋だと春のほうが好きって人も多そうだけど、%CNAME("一人称")%はどっちかっていうと秋のほうが好きなんだよなー」
			PRINTFORML 「涼しくなってくるし、段々ムシが減ってくるし……」
		CASE 4
			PRINTFORML 「春是ろんな花が咲いてて見ててキレーだよなー」
			PRINTFORML 「これでヘンにムシがいっぱいいなきゃ最高なんだけど……」
		CASE 5
			PRINTFORML 「春ってことは、草莓がおいしー季節だな！」
			PRINTFORML 「あとは桜餅とか……あのしょっぱい葉っぱ、ケッコー好きなんだよなー」
		ENDSELECT
	ELSEIF COND("夏")
		SELECTCASE RAND:6
		CASE 0
			PRINTFORML 「啊゛热——……%CNAME("二人称")%补水没问题吗？」
			PRINTFORML 「%CNAME("一人称")%吗？　%CNAME("一人称")%经常喝水所以没问题啦」
		CASE 1
			PRINTFORML 「啊゛——……夏天啊——……」
			PRINTFORML 「……虽然很热……但可以去海边避暑所以并不怎么讨厌……」
		CASE 2
			PRINTFORML 「夏！　夏と言えば海！」
			PRINTFORML 「……けどクラゲがいて危険なんだよなー……」
		CASE 3
			PRINTFORML 「夏！　夏と言えば山！」
			PRINTFORML 「……けど虫がいっぱいいるのが……」
		CASE 4
			PRINTFORML 「……そういえばクラゲってたまーに売ってるじゃん。%CNAME("一人称")%、あれ食べたことないんだよなー」
			PRINTFORML 「一体どんな味なんだろう……」
		CASE 5
			PRINTFORML 「……そーいえば、そろそろ虫取りとかする時期だよなー」
			PRINTFORML 「うーん、ムシは大っ嫌いなんだけど、芜菁トムシとかクワガタはなんか別っていうか……」
		ENDSELECT
	ELSEIF COND("秋")
		PRINTFORM 「秋天！　说到秋天的话
		SELECTCASE RAND:5
		CASE 0
			PRINTFORML 就是食物哒！」
			PRINTFORML 「柿子……栗子……烤红薯……光想着就已经流口水了」
		CASE 1
			PRINTFORML 果然是运动啊！」
			PRINTFORML 「棒球和足球、不想去室外还有羽毛球和乒乓球、可以做很多事呢！」
			PRINTFORML 「……诶、游戏？　……肯定哪里搞错了。但也没搞错……」
		CASE 2
			PRINTFORML 当然是读书啦！」
			PRINTFORML 「……话虽这么说，但、%CNAME("一人称")%也不怎么读书呢……哈哈……」
		CASE 3
			PRINTFORML 就是艺术啊！」
			IF COND("種族：吸血鬼") == 0 || CEVENT("極夜の和解")
				PRINTFORML 「嘛虽然%CNAME("一人称")%并不太感兴趣，但爸爸妈妈都很喜欢古典音乐」
			ELSE
				PRINTFORML 「……嘛，不过%CNAME("一人称")%并没有对艺术那么感兴趣……」
			ENDIF
		CASE 4
			PRINTFORML ……是什么来着」
			PRINTFORML 「唔嗯……好像有点模糊的印象……」
			PRINTFORML 「…….这个年纪就这么健忘真是不妙啊……！」
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
		CASE 0
			PRINTFORML 「呼诶~……变得相当冷了呢……」
		CASE 1
			PRINTFORML 「……啊、下雪了」
			PRINTFORML 「在里面滑雪或滑雪板应该很好玩吧……虽然感觉很可能会遇难」
		CASE 2
			PRINTFORML 「呜哦哦、好冷……不能開空调吗……？」
		CASE 3
			PRINTFORML 「冬天总是让人感觉有点寂寞啊」
			PRINTFORML 「也许是因为没有什么生物活动的缘故吧……」
		CASE 4
			PRINTFORML 「冬天的天空总觉得比平常更深沉一些」
			PRINTFORML 「那到底是为什么呢」
		ENDSELECT
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K57
IF CEVENT("『のぞき』見") && TALENT:相思相愛 == 0 && RAND:4
	PRINTFORML 「等…………啊…………嗯~……」
	PRINTFORML 「%CNAME("一人称", "ふりがな")%………………明明……我先………………来着……」
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
ELSEIF RAND:3
	PRINTFORML 「去吧……地方战队……用鞭子来……」
ELSEIF RAND:2
	PRINTFORML 「这样…… 啊…………」
	PRINTFORML 「今天……是荞麦面……吗……嘶……」
ELSE
	PRINTFORML 「姆妞~……巨大戦艦就在前面……」
ENDIF

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

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	;RETURN 0
	IF PLACE("情人旅館")
		IF CEVENT("初情人旅館") == 0
			PRINTFORMW 『哦、%CNAME("二人称")%！　今天要做……情、情人、情人旅馆！？』
			PRINTFORMW 『情人旅馆就是、这个、那个H的那个对吧？！』
			PRINTFORMW 『去哪里就是说、那个、就是、就是那种事对吧……！？』
			PRINTFORMW 『……%CNAME("一人称")%、%CNAME("一人称")%知道了』
			CALL PRINT_STRW, @"「只是、那个、从来都没来过……就请你多多指教了……_／／／_」"
			CALL SET_CEVENT, "初情人旅館"
		ELSE
			IF RAND:2
				PRINTFORMW 『今、今天要去情人旅馆吗……？』
				CALL PRINT_STRW, @"『唔唔……%CNAME("一人称")%、%CNAME("一人称")%知道了……_／／／_』"
			ELSE
				PRINTFORMW 『……あ、あそこで……？』
				CALL PRINT_STRW, @"『わ、わかった……用意したら行く……_／／／_』"
			ENDIF
		ENDIF
	;做爱房
	ELSE
		IF CEVENT("初做爱房") == 0
			PRINTFORMW 『哦！　%CNAME("二人称")%！　突然给%CNAME("一人称")%打电话是有什么事？』
			PRINTFORMW 『……咦、诶、那里好像是、有名的做爱房……』
			PRINTFORMW 『……%CNAME("一人称")%、%CNAME("一人称")%知道了！　%CNAME("一人称")%知道了啦！』
			CALL PRINT_STRW, @"『过、过会儿%CNAME("一人称")%就过去，稍等一下……_／／／_』"
			CALL SET_CEVENT, "初做爱房"
		ELSE
			PRINTFORMW 『去，去那里就好了？』
			CALL PRINT_STRW, @"『唔……了、了解了……_／／／_』"
		ENDIF
	ENDIF
CASE "学園での日常"
	IF CEVENT("入部") == 0
		PRINTL
		PRINTFORML  - A太 -
		PRINTFORMW 『喂！　回家的时候一起去买东西吧！』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「抱歉！　因为有社团活动所以没法一起走！」
		PRINTFORMW 「下次休息日再一起去吧！」
		PRINTL
		PRINTFORML - A太 -
		PRINTFORMW 『嗯？　这么说，你参加社团了？』
		PRINTFORMW 『之前一直都是帰宅部的啊』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「对对，有些想做的事情，所以」
		PRINTL
		PRINTFORML - A太 -
		PRINTFORMW 『诶ー、那你参加的是哪个社团啊？』
		PRINTL
		PRINTFORMW - %CALLNAME:TARGET% -
		PRINTFORMW 「这个嘛――」
		PRINTL
		PRINTL
		PRINTFORMW %CALLNAME:TARGET%和同級生谈笑着
		PRINTFORMW 好像对%CALLNAME:TARGET%加入的社团很感兴趣……

		CALL SET_CEVENT, "入部"
	;なんとなく連続すると良くないので夏あたりにしてみる
	ELSEIF TEXTS("季節") == "夏" && CEVENT("卡拉OK") == 0
		PRINTL
		PRINTFORML  - B郎 -
		PRINTFORMW 『そうだ、帰りに卡拉OKいかない？』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「卡拉OKかー、B郎は歌擅長いからなー」
		PRINTFORMW 「%CNAME("一人称")%は全然だし悔しいぜ」
		PRINTL
		PRINTFORML - B郎 -
		PRINTFORMW 『別にそんなに擅長い訳じゃないよ』
		PRINTFORMW 『それはそれとして、行く？　行かない？』
		PRINTL
		PRINTFORMW %CALLNAME:TARGET%和同級生谈笑着
		PRINTFORMW どうやら%CALLNAME:TARGET%は友人と卡拉OKに行くようだ……

		CALL SET_CEVENT, "卡拉OK"
	ELSEIF COND("種族：吸血鬼") && CEVENT("吸血鬼と友人") == 0
		PRINTL
		PRINTFORML  - A太 -
		PRINTFORMW 『そーいやさ、最近体悪いのか？』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「え、何で突然」
		PRINTFORMW 「%CNAME("一人称")%は全然元気だぞー」
		PRINTL
		PRINTFORML - B郎 -
		PRINTFORMW 『最近外出ると調子悪そうじゃないか』
		PRINTFORMW 『病気にでもなったのかなってみんな心配しているんだよ』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「あー、なるほど……」
		PRINTFORMW 「……そうだな、確かに最近ちょっと太陽に弱いっていうか、すぐバテちゃうっていうか……」
		PRINTFORMW 「でもお医者桑は大丈夫だって言ってたし、心配しなくても大丈夫だよ！」
		PRINTL
		PRINTFORML - A太 -
		PRINTFORMW 『お、そうか！　なら一緒に遊ぼうぜ！』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「おう！」
		PRINTL
		PRINTFORMW %CALLNAME:TARGET%和同級生谈笑着
		PRINTFORMW どうやら友人たちに体調を心配されていたようだ……

		CALL SET_CEVENT, "吸血鬼と友人"
	ELSEIF COND("身嗜み：Ａ拡張") && CEVENT("塞子登校") == 0
		PRINTFORML - Ｃ子 -
		PRINTFORMW 『ねえ%CALLNAME:TARGET%君、大丈夫？』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「え、な、何！？」
		PRINTL
		PRINTFORML - Ｃ子 -
		PRINTFORMW 『いや、そのね。何が、とか言えないんだけど……』
		PRINTFORMW 『……%CALLNAME:TARGET%君、いつもより元気がないような気がして……』
		PRINTL
		PRINTFORML - Ｄ地 -
		PRINTFORMW 『どーせ游戏しすぎて眠いとかじゃねーのー？』
		PRINTL
		PRINTFORML - Ｃ子 -
		PRINTFORMW 『もう！　横から茶化さないの！』
		PRINTFORMW 『……%CALLNAME:TARGET%君本当に大丈夫？　保健室まで連れて行こうか？』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「だ、大丈夫だって」
		PRINTFORMW 「最近やりはじめた游戏にハマっちゃってさ、ついつい寝るのが遅くなっちゃっただけだから……」
		PRINTL
		PRINTFORML - Ｃ子 -
		PRINTFORMW 『そう？　それなら良いけど……』
		PRINTL
		PRINTFORML - Ｄ地 -
		PRINTFORMW 『ほら！　俺の言った街道だったじゃん！』
		PRINTL
		PRINTFORML - Ｃ子 -
		PRINTFORMW 『それはたまたまでしょ！？　だいだい你――』
		PRINTFORML
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW （ホントはお尻に塞子挿れて興奮してましたなんて、絶対言えないよなぁ……）
		CALL SET_CEVENT, "塞子登校"
	ELSEIF TALENT:伪娘 && CEVENT("女装") == 0 && CEVENT("初伪娘") == 0
		PRINTFORML - Ｅ多 -
		PRINTFORMW 『……そういえば、最近なんかあったのか？』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「うん？　いや、別にそんなにはないけど……」
		PRINTFORMW 「何かヘンなところでもあったのか？」
		PRINTL
		PRINTFORML - Ｅ多 -
		PRINTFORMW 『別に何もなかったなら良いんだ。わざわざ言うようなことでもないし』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「えー？　そんなこと言われたら余計に気になるだろー！」
		PRINTFORMW 「なんでわざわざそんな事聞いたんだよー」
		PRINTL
		PRINTFORML - Ｅ多 -
		PRINTFORMW 『わかった！　わかったから！』
		PRINTFORMW 『……なんか、最近雰囲気が変わったって言うか……』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「雰囲気？」
		PRINTL
		PRINTFORML - Ｅ多 -
		PRINTFORMW 『そう、なんか女子っぽくなったっつーか……』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「あー、なるほど……」
		PRINTL
		PRINTFORML - Ｅ多 -
		PRINTFORMW 『なるほど？　ってことは覚えでもあるのか？』
		PRINTFORML
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「い、いや！　別にそういう訳じゃないんだけどさ！」
		PRINTFORMW （まさか友達に女子っぽくなったって言われるなんて……）
		IF TALENT:縦深菊穴
			PRINTFORMW （お菊門もすっかりヘンな形になっちゃったし……）
		ELSE
			PRINTFORMW （……やっぱ、%CNAME("二人称")%のせいなのかなぁ……）
		ENDIF
		CALL SET_CEVENT, "初伪娘"
	ELSEIF RAND:5 == 0
		SELECTCASE RAND:3
		CASE 0
			SELECTCASE RAND:11
			CASE 0
				PRINTFORML 「呐，你看了最新話了吗！？」
			CASE 1
				PRINTFORML 「啊哈哈、爸爸妈妈不怎么在家呢」
			CASE 2
				PRINTFORML 「哼，你也差不多吧」
			CASE 3
				PRINTFORML 「哦，走走走！」
			CASE 4
				PRINTFORML 「诶—，真的很详细啊……」
			CASE 5
				PRINTFORML 「……唔，好吃」
			CASE 6
				IF COND("夏")
					PRINTFORML 「这种时候不能游泳真是太糟糕了……」
				ELSE
					PRINTFORML 「啊，那就踢足球吧！」
				ENDIF
			CASE 7
				PRINTFORML 「诶诶！？　……那，那是什么ＡＶ啊？」
			CASE 8
				PRINTFORML 「啊，那就加个好友吧？」
			CASE 9
				PRINTFORML 「今天的话……好，%CNAME("一人称")%带了游戏机！」
			CASE 10
				PRINTFORML 「え、それなに！？」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%%TEXTR("和朋友愉快地聊天/准备出去玩/昏昏欲睡地发呆")%……
		CASE 1
			PRINTDATAL
				DATA 「ええと、この数式ならこうなるから……」
				DATA 「作者の気持ちってなんだよー……」
				DATA 「えっと、而って漢字は……」
				DATA 「るーと……？」
				DATA 「サバンナ気候と、ツンドラ気候と……」
				DATA 「……あ、これに似たようなの見たことある気がする」
				DATA 「へえ、だから物ってあんな感じで飛ぶんだ……」
				DATA 「受け身……形容詞……？」
				DATA 「ここで幕府が出来てから武家の力がどんどん強くなっていって……」
				DATA 「次は体育の時間だー！」
				DATA 「えっと……10番目の元素は……」
				DATA 「えっと、これとこれを混ぜたらこうなるから……」
				DATA 「……あれ、これなんだったっけ……？」
				DATA 「これの年は、えっと、千……えーっと……？」
			ENDDATA
			PRINTFORMW %CALLNAME:TARGET%在课堂上%TEXTR("认真思考着课堂内容/打着哈欠/茫然地看着黑板/拼命抄写着课堂内容")%……
		CASE 2
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 『なぁ……これめっちゃエロくね？』
				PRINTFORMW 「えー、どんな……！」
				PRINTFORMW 『な？　だろ？』
				PRINTFORMW 「……これはマジでエロいな……！」
			CASE 1
				IF TALENT:恋慕
					PRINTFORMW 『そういや、%CALLNAME:TARGET%ってなんか雰囲気変わったよなー』
					PRINTFORMW 「え、そうかな？」
					PRINTFORMW 『そうそう、だってほら、あの女子としゃべる時の雰囲気が変わった気がするし……』
					PRINTFORMW 「……バレてた？」
					PRINTFORMW 『そりゃ、仲良いヤツにはバレバレだろ』
				ELSE
					PRINTFORMW 『%CALLNAME:TARGET%って、あの女子のこと好きだよな』
					PRINTFORMW 「ゴフッ！　……え、な、なんでそんなこと？」
					PRINTFORMW 『いや、見てりゃすぐにわかるだろ……』
				ENDIF
			CASE 3
				PRINTFORMW 『%CALLNAME:TARGET%君。一緒に玩耍にいかない？』
				PRINTFORMW 「お、いいぞー！　どこ行君だー？」
			ENDSELECT
		ENDSELECT
	ENDIF

CASE "お仕事"

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

	IF DEVENT("うち的家族") && DAY - CFLAG:加入日 >= 3 && ABL:信頼 >= 3 && CEVENT("昼と夜") == 0
		CALL K57_LONG, "昼と夜"
		CALL SET_CEVENT, "昼と夜"
	ELSEIF AIZOU()
		CALL DAILY_MESSAGE, "归途"
	ELSE
		;地の文の前の台詞がある場合はここに書く
		SELECTCASE SAVESTR:現在位置
		CASE "阵雨"
			PRINTDATAW
				DATA 「うおっ、急に降り出してきたなー」
				DATA 「うわーまじか。返回の大変そうだなー」
				DATA 「えっ雨！？　傘持ってきてないんだけどどうしよう……」
				DATA 「あちゃー、今日は折り畳み傘持ってきてない……」
				DATA 「うわー結構激しい。これどうしよう……」
			ENDDATA
		ENDSELECT

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

		SELECTCASE SAVESTR:归途の行動
		CASE "相合傘"
			PRINTFORMW 「呜哇~……忘记看天气预报了……」
			PRINTFORMW 「……诶、让%CNAME("一人称")%进去吗？　认真的？」
		CASE "内衣選び", "泳装選び"
			IF RAND:2
				PRINTFORMW 「诶~！？　对、对呢——……」
				PRINTFORMW 「……这、这件合不合适……？」
			ELSE
				PRINTFORMW 「うーん……そうだなぁ……」
				PRINTFORMW 「……じゃあ、これとか？」
			ENDIF
		;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
		CASE "站着读书"
			PRINTDATAW
				DATA 「お、新刊だー！」
				DATA 「……あ、こ、これは、エッチな……」
				DATA 「えっと……『ドラキュラ』……？」
				DATA 「むー……全然わかんない！」
				DATA 「……うわ、いきなりエッチな感じ变成了……」
				DATA 「あ、これケッコー面白そう……！」
			ENDDATA
		CASE "打情骂俏", "買食物"
			SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「啊%CNAME("二人称")%！　那家店看起来很好吃！」
			CASE 1
				PRINTFORMW 「啊，是新干线」
				PRINTFORMW 「……说起来，%CNAME("二人称")%小时候喜欢新干线这类的？」
				PRINTFORMW 「%CNAME("二人称")%？　%CNAME("二人称")%是这样的…嘛，可能会觉得很意外」
			CASE 2
				PRINTFORMW 「诶ー……这附近的小路是这样的啊」
			CASE 3
				PRINTFORMW 「这附近还真有不少天地啊……呜哇、虫子！」
			CASE 4
				PRINTFORMW 「啊，那边新開了一家店啊」
				IF TALENT:相思相愛
					PRINTFORMW 「……下、下次一起去吧……？」
				ELSE
					PRINTFORMW 「……希望有一天能和\@CNUM("莉") ? %CNAME("莉")% # 那个孩子\@一起去啊」
				ENDIF
			ENDSELECT
		CASE "物色游戏"
			PRINTDATAW
				DATA 「お！　この游戏面白そうだな！」
				DATAFORM 「%CNAME("二人称")%，一起玩这个游戏吧？」
				DATALIST
					DATAFORM 「%CNAME("二人称", "どもり")%……」
					DATAFORM 「……想、想买这个H游戏所以，那个……一起去收银台，可以吗……」
				ENDLIST
				DATA 「へー、なんだか昔の游戏っぽい……って高っ！？」
				DATA 「あ、これクラスで話題になってたやつだ」
			ENDDATA
		CASE "检查新刊"
			IF RAND:10 == 0
				PRINTFORMW 「诶……！？　下、下一卷就是最终卷了……！？」
			ELSEIF RAND:3
				PRINTFORMW 「姆~……还没出吗——……」
			ELSE
				SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「哦！　不是新刊吗！！」
				CASE 1
					PRINTFORMW 「…………うわっ！」
					CALL PRINT_STRW, @"「……エ、エッチそうなマンガ見つけっちゃった……\@ TALENT:淫乱 ? _H_ # _／／／_\@」"
				CASE 2
					PRINTFORMW 「えっと……『攻略本』……？」
					PRINTFORMW 「この游戏はやってるけど、んー……この中に攻略情報が書いてるの……？」
				ENDSELECT
			ENDIF
		CASE "繞道"
			SELECTCASE RAND:10
			CASE 0
				PRINTFORMW 「呐——%CNAME("二人称")%！　稍微绕下道吧！」
			CASE 1
				PRINTFORMW 「诶——、这里还有这样的地方啊——」
				PRINTFORMW 「没怎么来这边不怎么清楚呢——」
				IF CEVENT("極夜の和解")
					PRINTFORMW 「父亲他们不怎么喜欢过桥」
					PRINTFORMW 「现在%CNAME("一人称")%知道是因为吸血鬼不喜欢流水的原因了」
					IF RAND:10 == 0 && TALENT:相思相愛
						PRINTFORMW 「……嗯？　%CNAME("一人称")%不害怕吗？」
						PRINTFORMW 「有%CNAME("二人称")%在所以完全没问题啦！」
					ENDIF
				ENDIF
			CASE 2
				PRINTFORMW 「お、あそこのお店で売ってるのオシャレな感じだなー」
				SIF CEVENT("極夜の和解") || COND("種族：吸血鬼") == 0
					PRINTFORMW 「母桑が好きそうだし、後で教えてあげよっと！」
			CASE 3
				PRINTFORMW 「へー、こんなところにアンティークショップが……」
				SIF CEVENT("極夜の和解") || COND("種族：吸血鬼") == 0
					PRINTFORMW 「%CNAME("一人称")%も結構好きなんだけど、それよりも父桑がこういうの大好きで……」
			CASE 4
				PRINTFORMW 「へえー、ここらへんって商店街があるのかー」
				PRINTFORMW 「こういう所ってなんだかワクワクするな！」
			CASE 5
				PRINTFORMW 「あ、川だ」
				IF RAND:2 && COND("夏")
					IF COND("種族：吸血鬼")
						PRINTFORMW 「……え、ヘ、ヘンな汗出てる？　マジ？」
						PRINTFORMW 「いや、そのー……吸血鬼变成了からなのかな、川とか見るとゾワゾワってするんだ」
						PRINTFORMW 「そんで外は暑いからこう、汗がダバダバーって……」
					ELSE
						PRINTFORMW 「……こんだけ暑いと、思い切って泳いじゃいたくなるな……」
						PRINTFORMW 「……さ、さすがにホンキでそんなことはしないって！！」
					ENDIF
				ELSE
					IF COND("種族：吸血鬼")
						PRINTFORMW 「……あー、その、吸血鬼になってからさ、川とか見るとちょっとゾワゾワってするようになって……」
						PRINTFORMW 「別に橋とか渡れないってレベルじゃないんだけど……って、だ、大丈夫だってば！！」
					ELSE
						PRINTFORMW 「老师ーが言ってたんだけど、昔はこういうところで泳いだりしてたんだって」
						PRINTFORMW 「怖くてそういうのは中々出来ないけど、なんだかあこがれちゃうよなー」
					ENDIF
				ENDIF
			CASE 6
				PRINTFORMW 「なんだろう、こういうちょっと裏道みたいなとこってさ、なんか良いよな」
				PRINTFORMW 「%CNAME("一人称")%が言うのもヘンだけど、こう、懐かしい感じがするっていうか……」
			CASE 7
				PRINTFORMW 「こっちの方ってこんなお店があるんだなー」
				PRINTFORMW 「次大家行くときはこっち行ってみよう……」
			CASE 8
				PRINTFORMW 「いっつもはどうしても車とかで一気に走っちゃうからさ、ゆっくり歩くことってないんだけど……」
				PRINTFORMW 「こうやって見てみると、なんだか新鮮で楽しいな！」
			CASE 9
				SELECTCASE TEXTS("季節")
				CASE "春"
					PRINTFORMW 「……この辺り、いろんな花が咲君だな」
					PRINTFORMW 「うぅ……花はキレーだけど、虫もいっぱいいると思うと……」
				CASE "夏"
					PRINTFORMW 「……お、アサガオだ」
					PRINTFORMW 「アサガオと言えば、夏休みの作業で枯らしちゃった思い出が……」
				CASE "秋"
					PRINTFORMW 「お、葉っぱがキレーに赤くなってる」
					PRINTFORMW 「傍晚もそうだけど、秋って真っ赤で不思議な気持ちになるよなー」
				CASE "冬"
					PRINTFORMW 「この辺り、雪が降ってたんだ」
					PRINTFORMW 「こういう景色って、なんだか神秘的で良いよなー」
					PRINTFORMW 「こう、ワクワクするっていうかさ」
				ENDSELECT
			ENDSELECT
		CASE "直帰"
			PRINTFORMW 「哦、今天直接回家吗」
			IF COND("同居中")
				PRINTFORMW 「那我们一起回去吧，%CNAME("二人称")%」
			ELSE
				PRINTFORMW 「那么%CNAME("二人称")%，明天见！」
			ENDIF
		CASE "圣诞节前夕"
			PRINTFORMW
		CASEELSE
			PRINTFORMW
		ENDSELECT
	ENDIF

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "放課後Ｈ的邀请"
	;システムでどうにか出来るかもしれないけど、まあこれはこれでエッチなので書く
	IF AIZOU()
		PRINTFORMW 「……………」
		PRINTFORMW %CALLNAME:TARGET%はそっぽを向き的同时、%CALLNAME:MASTER%の腕を掴んでどこかに連れて行こうとしている
		PRINTFORMW その方向へと目を向けると、煌びやかなネオンで彩られた情人旅館が堂々と聳え立っていた……
	ELSEIF TALENT:相思相愛 && RAND:2
		PRINTFORMW 「あ、あのさ……」
		PRINTFORMW %CALLNAME:TARGET%はもじもじとし的同时、言いにくそうにとある方向を指さしている
		PRINTFORMW そちらへと%CALLNAME:MASTER%が目を向けると、煌びやかなネオンで彩られた情人旅館が堂々と聳え立っていた
		PRINTFORMW 「その……せっかく二人きりなんだし……ダメ、かな？」
	ELSE
		PRINTFORMW 「――あ」
		PRINTFORMW %CALLNAME:TARGET%が何かに気づいた様子でとある方向へと目を向ける
		PRINTFORMW %CALLNAME:MASTER%もつられてそちらを見ると、そこには煌びやかなネオンで彩られた情人旅館が堂々と聳え立っていた
		IF TALENT:淫乱
			IF CEVENT("初情人旅館") == 0
				PRINTFORMW 「……%CNAME("一人称")%さ、一緒に帰ってる時、実は躁动难忍しちゃってたんだ」
				IF ABL:露出癖 >= 5
					PRINTFORMW 「こんなところでエッチしちゃったらどうしよう、見られちゃったらどうしようって……」
				ELSE
					PRINTFORMW 「こんな街中だと色々と見えちゃうから、どこでエッチしちゃおうか、どこなら大丈夫なんだろうかって……」
				ENDIF
				PRINTFORMW 「だからさ、あれ見つけちゃったらガマンが出来なくなっちゃった」
				PRINTFORMW %CALLNAME:TARGET%が情熱的な瞳を向けて%CALLNAME:MASTER%に腕を絡みつける
				CALL PRINT_STRW, @"「二人っきりでさ、返回前にいっぱいエッチなことしちゃお_H_」"
			ELSE
				IF RAND:2
					CALL PRINT_STRW, @"「ねえ、返回前にいっぱいエッチしちゃおっか_H_」"
				ELSE
					CALL PRINT_STRW, @"「……ふたりっきりで、いっぱいシちゃおっか_H_」"
				ENDIF
			ENDIF
		ELSEIF CEVENT("初情人旅館") == 0
			PRINTFORMW 「情人旅館って、色々見たりはするんだけどさ、入ってみたことは全然ないんだよなー」
			PRINTFORMW 「そういうことする場所なんだし、フツーに入るってのもなんか恥ずかしいし……」
			PRINTFORMW 「……えっ！？　べ、別に、入ってみたいとか、そういう訳じゃ……」
		ELSE
			PRINTFORMW 「え……べ、別に、入りたいとかじゃ……！」
			PRINTFORMW 「……ま、マジで入るの……？」
		ENDIF
	ENDIF

;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	PRINTFORMW 「呐、不一起洗个澡吗？」

;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	IF AIZOU()
		RETURN 0
	ELSE
		IF PLACE("自宅")
			IF COND("夜")
				;お浴室
				IF PLACE("居間")
					PRINTDATAW
						DATAFORM 「%CNAME("二人称")%！　一緒に浴室入ろ！」
						DATAFORM 「%CNAME("二人称")%と一緒にお浴室入りたいんだけど……ダメ？」
						DATAFORM 「%CNAME("二人称")%！　せっかくだし、一緒にお浴室是らない？」
					ENDDATA
				ELSE
					PRINTDATAW
						DATA 「おう！　休息！」
						DATA 「休息ー」
						DATA 「ん！　休息！」
					ENDDATA
				ENDIF
			ELSE
				IF RAND:2
					PRINTFORMW 「哦、要午睡吗？」
					PRINTFORMW 「那样的话ー……那%CNAME("一人称")%也睡个午觉吧！」
				ELSE
					PRINTFORMW 「ふぁぁ……%CNAME("一人称")%も眠くなっちゃった」
					IF TALENT:相思相愛 && RAND:2
						PRINTFORMW 「……えっと、さ」
						PRINTFORMW 「……%CNAME("二人称")%と一緒に寝ても良い？」
					ELSE
						PRINTDATAW
							DATA 「せっかくだし一緒に寝よ！」
							DATAFORM 「%CNAME("一人称")%もいっしょにねるぅ……」
							DATAFORM 「じゃあ%CNAME("二人称")%もいっしょに……」
						ENDDATA
					ENDIF
				ENDIF
			ENDIF
		;ここは実質昼のみ
		ELSEIF PLACE("部室")
			IF COND("同居")
				PRINTFORMW 「知道了！　那等会儿见！」
			ELSE
				PRINTFORMW 「知道了！　那明天见！」
			ENDIF
		;場所移動後
		ELSE
			PRINTFORMW 「うん、わかった」
			PRINTFORMW 「じゃ、%CNAME("一人称")%はもう少しこっちにいるから、また！」
		ENDIF
	ENDIF

CASE "清洁口交：お誘い"
	PRINTFORMW 「……あのさ」
	IF TALENT:淫乱
		CALL PRINT_STRW, @"「%CNAME("二人称")%のおちんちん、舐めてキレーにしてあげよっか_H_」"
	ELSEIF CEVENT("接吻の虜")
		CALL PRINT_STRW, @"「%CNAME("二人称")%のおちんちん、お掃除してもいいかな……_H_」"
	ELSE
		CALL PRINT_STRW, @"「そ、その、舐めてみたいっていうか……」"
		PRINTFORMW 「……興味が沸いちゃったんだし、別にいーだろ」
	ENDIF

CASE "清洁口交：射精後"
	IF TALENT:淫乱
		CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 3)%」"
		CALL PRINT_STRW, @"「……へへ、%CNAME("二人称")%のちんちん、大好きになっちゃった……_H_」"
	ELSE
		IF ABL:精液中毒 >= 3
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 3)%」"
			CALL PRINT_STRW, @"「臭くって、ヌルヌルしていて……んっ……_H_」"
		ELSE
			PRINTFORMW 「%PANT_K57(TARGET, "不要", "Ｍ異物", 3)%」
			PRINTFORMW 「うげぇ……ヘンな味ぃ……」
		ENDIF
	ENDIF

CASE "清洁口交：断った"
	IF TALENT:淫乱
		PRINTFORMW 「あちゃー、そんな気分じゃないかー」
		PRINTFORMW 「%CNAME("二人称")%ー、ムリ言っちゃってごめんなー」
	ELSE
		PRINTFORMW 「……そ、そうだよな！　そんなことするのヘンだよな！」
		PRINTFORMW 「う、うわ……なんであんなこと言っちゃったんだろ……」
	ENDIF

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("亲手自制点心")

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		IF AIZOU()
			GREETING = こんばんは
		ELSE
			GREETING = こんばんはー
		ENDIF
	ELSE
		IF AIZOU()
			GREETING = おはよう
		ELSE
			GREETING = おはよー
		ENDIF
	ENDIF
	IF CFLAG:打招呼した
		PRINTFORMW 「……%GREETING%」
	;你に先に打招呼をされた
	ELSEIF CFLAG:打招呼した == 0
		PRINTFORMW 「哦、%GREETING%！」
	ELSE
		PRINTFORMW 「%GREETING%」
		IF COND("夏")
			PRINTFORMW 「今日はあっついよなー……」
		ELSEIF COND("冬")
			PRINTFORMW 「うー……今日寒くないか……？」
		ELSE
			PRINTFORMW 「今天天气真不错呢！」
		ENDIF
	ENDIF
CASE "叫醒"
	PRINTDATAW
		DATAFORM 「嗯……%CNAME("二人称")%……？」
		DATA 「あれ、おはよ……？」
	ENDDATA
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORMW 「呼哇~…………」
	PRINTFORMW 「%CNAME("一人称")%还不困……再等一会儿…………晚啊~……」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTDATAL
		DATA 「段々寒くなってきた……」
		DATA 「うー……このままだと風邪ひいちゃう……」
		DATA 「脱掉んじゃなかった……ズビ……」
	ENDDATA
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTDATAW
		DATA 「あー……あっつい……」
		DATA 「あっついし、もう全部脱いじゃえっ！」
	ENDDATA
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		IF RAND:2
			PRINTFORMW 「诶嘿嘿、%CNAME("一人称")%也努力了下！」
		ELSE
			PRINTFORMW 「这、这样啊……嘿、嘿嘿~……」
			PRINTFORMW 「努力真的值得啊、好開心啊……」
		ENDIF
	CASE "夸奖"
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「可、可能是吧……嘿嘿嘿……」
		CASE 1
			PRINTFORMW 「そ、そう……？」
			CALL PRINT_STRW, @"「…………へへ…………_／／／_」"
		CASE 2
			PRINTFORMW 「……そ、そんな風に言ってもらえてめちゃくちゃ嬉しい……ヘヘヘ……」
		ENDSELECT
	CASE "甜言蜜语"
		IF AIZOU()
			PRINTFORMW 「……哼~」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……真、真的吗？」
			CALL PRINT_STRW, @"「啊、这样……这样啊……欸嘿嘿……_H_」"
		ELSEIF CALCF("甜言蜜语成功")
			CALL PRINT_STRW, @"「呜啊~！　不、不要说那么肉麻的话啦……_H_」"
		ELSE
			PRINTFORMW 「嗯？　什么？」
			PRINTFORMW 「……啊！　难道说你要教%CNAME("一人称")%魔法啦！？」
		ENDIF
	CASEELSE
		IF AIZOU()
			PRINTDATAW
				DATAFORM 「……%CNAME("一人称")%は%CNAME("二人称")%と話したくない……」
				DATA 「ほっといてくれよ……イヤな気分になるから……」
				DATA 「……なんで話しかけてくるの」
			ENDDATA
		ELSE
			SELECTCASE KABURAND(8)
			CASE 0
				IF COND("夜") && COND("春")
					IF COND("種族：吸血鬼")
						PRINTFORMW 「うわ、眠くなってきた……」
						PRINTFORMW 「この体になってから夜もあんまり眠くなくなったんだけど、この時期はそうでもないんだよなー……」
						PRINTFORMW 「なんでなんだろ……あったかいから……？」
					ELSE
						PRINTFORMW 「この時期の夜ってものすごく眠くなるよなー」
						PRINTFORMW 「昼もぽかぽかしてて眠くなっちゃうんだけどさ、夜も夜で、なんかこう、ふわっとしてるっていうか……」
					ENDIF
				ELSEIF COND("夏")
					;夏バテ気味だが遥君は夏好きそうなので元気な口上を書く
					SELECTCASE RAND:6
					CASE 0
						PRINTFORMW 「话说已经夏天了啊——」
						PRINTFORMW 「难得有机会、一起去看烟花吧！」
						IF COND("種族：吸血鬼") && RAND:2
							PRINTFORMW 「……嗯？　在担心%CNAME("一人称")%的身体吗？」
							PRINTFORMW 「话说、烟花大会不是都在晚上吗——？」
						ENDIF
					CASE 1
						PRINTFORMW 「虽然夏天很热，但看着明亮的天空让人感觉精神奕奕！」
						IF COND("種族：吸血鬼")
							PRINTFORMW 「……嘛，现在%CNAME("一人称")%是吸血鬼，所以有些没干劲啊……」
							PRINTFORMW 「还有很多虫子……」
						ELSE
							PRINTFORMW 「……嘛、虫子很多也是个问题啊……」
						ENDIF
					CASE 2
						PRINTFORMW 「哎呀ー、下雨了」
						PRINTFORMW 「%CNAME("一人称")%喜欢看巨大的积雨云在空中漂浮，但是下大雨就不好了」
					CASE 3
						PRINTFORMW 「……哦！　这不是风铃吗！」
						PRINTFORMW 「难得拿出来用……该挂在哪里呢」
					CASE 4
						PRINTFORMW 「哦！　今天天气真好！」
						PRINTFORMW 「这时候就会想去海边或者泳池游泳呢」
					CASE 5
						PRINTFORMW 「……呜、呜哇~！」
						PRINTFORMW 「%CNAME("二人称", "どもり")%、有、有有有、虫啊！」
						PRINTFORMW 「求、求求你了赶快拿走、%CNAME("二人称")%！」
					ENDSELECT
				ENDIF
			CASE 1
				IF CFLAG:好感度 <= 30 && RAND:25 == 0
					PRINTFORMW 「……あ、%CNAME("二人称")%！」
					PRINTFORMW 「あー、なんていうか……その……」
					PRINTFORMW 「\@CNUM("莉") ? れ……じゃなくて # \@好きな人に振り向いてもらうためにはどうすればいいんだろうって思ってさ……」
					PRINTFORMW 「好きって言ってほしいし、%CNAME("一人称")%と話して笑着ほしい……」
					PRINTFORMW 「……けど、一体どうすればそこまで行けるんだろう……」
				ELSEIF (COND("種族：吸血鬼") == 0 || CEVENT("極夜の和解")) && RAND:2
					SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「……啊啦？　这是国际象棋的棋盘吗？」
						PRINTFORMW 「父亲和母亲很喜欢下棋。%CNAME("一人称")%也经常陪他们一起玩」
						PRINTFORMW 「……是不是很擅长？……不要问%CNAME("一人称")%……」
					CASE 1
						PRINTFORMW 「是海派还是山派？　%CNAME("一人称")%当然是海派啦！」
						PRINTFORMW 「啊啊、但%CNAME("一人称")%也很喜欢山啊」
						PRINTFORMW 「只是啊、父亲他们啊……有点不擅长在山上……」
					CASE 2
						PRINTFORMW 「嗯——？　料理吗？」
						PRINTFORMW 「呜~嗯……虽然帮母亲打过下手、但是没那么擅长啊」
						PRINTFORMW 「而且、父亲母亲平时光喝番茄汁啊——」
						PRINTFORMW 「拜其所赐、冰箱里总是堆满了番茄汁」
					ENDSELECT
				ELSE
					PRINTFORMW 「ふぁ……ちょっと眠い……」
					PRINTFORMW 「……あ、ごめん。今日の最後が数学でさ」
					PRINTFORMW 「けど数学って一体なんの役に立つんだよー……」
				ENDIF
			CASE 2
				;部員評価が長くて視認性を損ねていたのでLONGに移籍
				CALL K57_LONG, "部員評価"
			CASE 3
				IF COND("種族：吸血鬼")
					SELECTCASE RAND:4
					CASE 0
						PRINTFORMW 「嗯？　白天不会太难受吗？」
						PRINTFORMW 「比想象的要好点、但比起以前还是要难受许多」
					CASE 1
						PRINTFORMW 「最近河水有点让人痛苦呢ー」
						PRINTFORMW 「嗯？　啊啊，不是说不能游泳了，只是好像变得不太喜欢流动的水了」
						PRINTFORMW 「水龙頭的水倒没関系……」
					CASE 2
						PRINTFORMW 「%CNAME("二人称")%，听%CNAME("一人称")%说～」
						PRINTFORMW 「最近又陪爸爸妈妈下国际象棋了，但是一点都赢不了！」
						PRINTFORMW 「比以前更强了，他们那时候好像故意放水了」
						PRINTFORMW 「呜ー、怎么才能赢呢……」
					CASE 3
						PRINTFORMW 「变成吸血鬼后有什么变化吗？　唔嗯……」
						PRINTFORMW 「……啊ー、对大蒜有点不太行了呢ー」
						PRINTFORMW 「但是十字架之类的完全没问题，真不可思议呢」
					ENDSELECT
				ELSE
					SELECTCASE RAND:4
					CASE 0
						PRINTFORMW 「眠くてもさ、外出て色々すると勝手に困倦なくなるよなー」
						PRINTFORMW 「友達と一緒に話してたら你だけだって言われたんだけど、%CNAME("二人称")%はどうなの？」
					CASE 1
						PRINTFORMW 「そういえば%CNAME("二人称")%って魚ヘーキなの？」
						PRINTFORMW 「%CNAME("一人称")%？　%CNAME("一人称")%かぁ……」
						PRINTFORMW 「実は魚料理があんま出てこないから、好きとか嫌いとかじゃなくて良くわかんないんだよなー」
					CASE 2
						PRINTFORMW 「うーん、夢か？」
						PRINTFORMW 「ふっふっふー、実は水泳選手になりたいんだ！」
						PRINTFORMW 「あ、でもサッカーもカッコいいし、野球だって……」
					CASE 3
						PRINTFORMW 「……あ、これ？　口臭スプレーだぞ」
						PRINTFORMW 「え、意外だって？　……むー、%CNAME("一人称")%だってオシャレには気を遣うんだぞー」
						PRINTFORMW 「……まあ、それ以外の理由で使うことが多いのは、まあまあ、ちょっと、少しくらいならあるけど……」
						PRINTFORMW 「父桑たちがニンニクの臭いが嫌いでさ。けどやっぱりさ、偶にはそういうガッツリしたヤツとか食べたくなるじゃん？」
						PRINTFORMW 「そういうのを食べた後とかに結構使うなー…………時々」
						PRINTFORMW 「時々！」
					ENDSELECT
				ENDIF
			CASE 4
				IF TALENT:伪娘
					PRINTFORMW 「就这样穿上女装、周围的视线也变了啊」
					PRINTFORMW 「该怎么说呢、感觉更容易感觉到视线集中在哪里了……」
					PRINTFORMW 「……%CNAME("二人称")%的视线？　从以前開始不就很明显吗？」
				ELSEIF CHARANUM >= 4
					PRINTFORMW 「ここの部員ってみんなキレーだよなー」
					PRINTFORMW 「みんな温柔的てとっても楽しいんだけど、正直、たまにちょっとキンチョーしちゃうんだよな……」
				ELSE
					PRINTFORMW 「あっ、%CNAME("二人称")%もあの子のこと知ってるの？」
					PRINTFORMW 「やっぱり有名なんだな……」
				ENDIF
			CASE 5
				PRINTFORMW 「……话说、%CNAME("二人称")%有〇〇传说的游戏吗？」
				PRINTFORMW 「哈哈……那个boss有点难打啊……想要个技术达人帮忙打一下啊」
			ENDSELECT
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW 「对不起！　这次已经不是糟糕能形容的程度了！」
		PRINTFORMW 「测试什么的下次再做吧！　真的对不起！」
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW 「诶——？　话说%CNAME("二人称")%脑袋真灵光啊——……」
			PRINTFORMW 「……好！　如果你考到了年级上游%CNAME("一人称")%就和你约定！」
			PRINTFORMW 「虽然不是绝对的、但也请好好教%CNAME("一人称")%读书哦？」
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW 「唔嗯、但是呐ー……」
			PRINTFORMW 「……不过如果，%CNAME("二人称")%取得好成绩，也许可以腾出很多时间……」
			PRINTFORMW 「……好！　决定了！　如果%CNAME("二人称")%能取得好成绩的话就可以做H的事！」
			PRINTFORMW 「……不过代价是，能陪%CNAME("一人称")%一起学习吗……？」
		ENDIF
	ENDIF
CASE "拭汗"
	PRINTFORMW 「诶、要帮%CNAME("一人称")%擦干净吗？」
	SIF (TALENT:MASTER:男性 == 0 || TALENT:MASTER:伪娘) && RAND:3 == 0
		PRINTFORMW 「……实际上%CNAME("一人称")%还真做过这样的梦」
	PRINTFORMW 「嘿嘿、谢谢你！」
CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	PRINTFORMW 「……哦、这不是%CNAME("二人称")%吗」
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		IF CEVENT("女装の虜")
			PRINTFORMW 「……那么、那个、怎么样了？」
			PRINTFORMW 「啊是什么？……%CNAME("二人称")%的内裤啊」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……这还真是、%CNAME("二人称")%真是个了不得的变态呢ー」
			PRINTFORMW 「嘛、这样喜欢着%CNAME("二人称")%的%CNAME("一人称")%也是同类了」
		ELSE
			PRINTFORMW 「……不对，%CNAME("二人称")%」
			PRINTFORMW 「不是、那个、……呜嗯」
		ENDIF
	ELSEIF COND("冬")
		IF RAND:2
			PRINTFORMW 「好冷啊、来温暖一下%CNAME("一人称")%嘛」
		ELSE
			PRINTFORMW 「ここの淋浴あったかくなれて良いよなー」
			PRINTFORMW 「部室に来るとついつい使っちゃうもん」
		ENDIF
	ELSEIF COND("夏")
		IF RAND:2
			PRINTFORMW 「浑身是汗呢、身体真是清爽了」
		ELSE
			PRINTFORMW 「なんであるのかわかんないけど、この淋浴ものすごい便利だよなー」
			PRINTFORMW 「汗でベトベトでも心配いらないし、何より冷たくないし！」
		ENDIF
	ELSE
		PRINTFORMW 「%CNAME("二人称")%也来洗澡了吗？」
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「……诶？　怎么回事……？」
		PRINTFORMW 「……等、等等！　%CNAME("二人称")%、%CNAME("一人称")%的衣服怎么不见了！？」
	ELSE
		PRINTFORMW 「诶、等、等一下……！？」
		IF RAND:2
			PRINTFORMW 「……难道、%CNAME("二人称")%……？」
		ELSE
			PRINTFORMW 「……しかも何この服……」
		ENDIF
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K57
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		IF AIZOU()
			PRINTFORMW 「……不、不用看着、也可以」
		ELSEIF RAND:2
			PRINTFORMW 「how muth……不对。how much……」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、%CNAME("一人称")%不是很懂这个地方……」
		ENDIF
	CASE "托一托胸部"
		PRINTFORMW
	CASE "撫摸股間"
		CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%在、在这种地方……_H_」"
	CASE "按摩"
		PRINTFORMW 「嗯ー……好舒服……」
		IF RAND:2
			PRINTFORMW 「呼啊……有点想睡觉了……」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%的按摩技术真厉害啊……」
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "接吻", 3+RAND:3)%」"
		ELSE
			PRINTFORMW 「等、太、太突然了！」
		ENDIF
	CASE "膝枕"
		IF AIZOU()
			PRINTFORMW 「不要」
			PRINTFORMW 「……真的十分想要的话、让%CNAME("一人称")%稍微考虑一下吧……」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CNAME("二人称")%的腿上、说不上来的很让人安心呢——」
			PRINTFORMW 「这样好像可以睡着了……」
		ELSE
			PRINTFORMW 「呜、呜呜……」
			PRINTFORMW 「像、像个小孩一样好害羞……」
		ENDIF
	CASE "泡茶"
		IF COND("夏") && RAND:2
			PRINTFORMW 「谢谢！　刚好稍微有点口渴了～」
		ELSE
			PRINTFORMW 「啊！　是茶啊！　谢谢你了！」
		ENDIF
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「哦！　这是酒吧！　%CNAME("一人称")%可以尝一口吗？」
			PRINTFORMW 「……真的吗？　好耶ー！」
			PRINTFORMW 「呀ー、爸爸妈妈总是说“不可以喝酒”！　所以到现在都没尝过呢」
			PRINTFORMW 「但是他们俩总是喝着像红酒一样的东西，很难不想试试！」
			PRINTFORMW 「……嗯、现在不是说这个的时候。那么，让%CNAME("一人称")%来试试吧♪」
		ELSEIF STATE("烂醉", TARGET)
			PRINTFORMW 「%CNAME("二人称", "甘え")%～、%CNAME("二人称")%好温暖～」
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「呼~呼~呼~、%CNAME("一人称")%要喝了哦！」
			CASE 1
				PRINTFORMW 「呜咕……好苦……」
				PRINTFORMW 「……但、但是、喝了这个的话就是大人了吧……！」
			CASE 2
				PRINTFORMW 「なんか病院みたいな味する……」
			ENDSELECT
		ENDIF
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "摸頭"
		IF CFLAG:好感度 >= 500
			PRINTFORMW 「……！　等、等一下……！」
			PRINTFORMW 「怎、怎么说呢…………不、不是！　并不是讨厌的意思！」
			PRINTFORMW 「这个、稍微有点羞耻…………」
		ELSE
			PRINTFORMW 「？　怎么了突然摸我頭」
			PRINTFORMW 「……总之、虽然不是很懂但谢谢你！」
		ENDIF
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW
	;送禮貰った感想です。何を貰ったか含め、好きに書いてください
	CASE "送一份小礼物"
		PRINTFORMW 「哦！　是点心！」
		PRINTFORMW 「%CNAME("一人称")%不怎么吃粗点心所以感觉有点特别。%CNAME("二人称")%、谢谢！」
	CASE "送一份普通的礼物"
		PRINTFORMW 「えっと、これって……」
		PRINTFORMW 「……え、このボールペンってそんなに高いんだ……！」
	CASE "送一份高价的礼物"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K57
	WAIT
CASE "被拒绝了学习的邀请"
	PRINTFORMW 「抱歉，今天稍微有点不太行……」
CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW 「%CNAME("二人称")%——、不和%CNAME("一人称")%一起洗澡吗？」
	CASE "Ｈ的邀请"
		PRINTFORMW
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW
		ELSE
			PRINTFORMW 「%CNAME("二人称")%——、不和%CNAME("一人称")%一起学习一会儿吗？」
		ENDIF
	CASE "推倒"
		PRINTFORMW 「有破绽！」
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			CALL PRINT_STRW, @"「……这、这样站成一排，感觉有点奇怪……_H_」"
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 3+RAND:2)%」"
		CALL PRINT_STRW, @"「……呼啊、清洁干净了_H_」"
	CASE "口淫"
		CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 3)%」"
		CALL PRINT_STRW, @"「……嘿嘿_H_%CNAME("二人称")%的鸡鸡、看起来很舒服的一直在跳动……_H_」"
	CASE "亲脸頬", "接吻"
		CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "接吻", 3+RAND:3)%」"
		CALL PRINT_STRW, @"「……嘿嘿、接吻、亲上了……_H_」"
	CASE "抱き着き"
		IF TALENT:相思相愛
			CALL PRINT_STRW, @"「%CNAME("二人称")%……_H_」"
		ELSE
			PRINTFORML 「……え、なんでこんなことしたのかって？」
			PRINTFORMW 「うーん……なんとなく？」
		ENDIF
	CASE "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕", "膝枕"
		PRINTFORMW 「%CNAME("二人称")%、难道困了吗？」
		PRINTFORMW 「那就给你膝枕吧——」
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTDATAW
			DATAFORM 「ほい、%SAVESTR:茶%だぞー」
			DATAFORM 「そーそー、これ%CNAME("二人称")%のぶんー」
		ENDDATA
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW 「嗯——？　你很闲吗——？」
		ELSE
			PRINTFORMW 「闲的话教%CNAME("一人称")%魔法啊，%CNAME("二人称")%——」
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW 「%CNAME("二人称")%ー、闲だし一緒になんかしよー」
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「去、去上个厕所！」
	ENDIF
CASE "廁所詮索"
	PRINTDATAW
		DATA 「いや、なんか含み持たせようとすんな」
		DATA 「フッツーに廁所に決まってるでしょ」
	ENDDATA
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW 「啊咧、%CNAME("二人称")%也上厕所吗？」
	PRINTFORMW 「……嘿嘿、平时的话不觉得有什么、但想到和%CNAME("二人称")%一起去就有点害羞呢……」
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW 「呼啊！　诶、等、等等、%CNAME("二人称")%！？」
	PRINTFORMW 「难、难道忘记锁門了！？」
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW
	CASE "廁所イベント：相互自慰"
		PRINTFORMW
	CASE "廁所イベント：口交"
		PRINTFORMW
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K57
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		PRINTFORMW 「等下！　你在干什么啊、%CNAME("二人称")%！」
	ELSE
		IF CFLAG:メス堕ち度 >= 3
			IF RAND:2
				CALL PRINT_STRW, @"「……不、不要一直看啦……_H_」"
				CALL PRINT_STRW, @"「那个、会兴奋、的……_H_」"
			ELSE
				CALL PRINT_STRW, @"「……恥ずかしいけどゾクゾクしちゃう……_H_」"
			ENDIF
		ELSEIF CFLAG:メス堕ち度 >=1
			IF RAND:2
				PRINTFORMW 「……こ、こう……？」
			ELSE
				CALL PRINT_STRW, @"「は、恥ずかしいんだけど……_H_」"
			ENDIF
		ELSE
			PRINTDATAW
				DATAFORM 「……%CNAME("二人称")%、目が怖いよ……」
				DATA 「……こ、これホントに見たいの……？」
				DATAFORM 「……%CNAME("二人称")%って……」
			ENDDATA
		ENDIF
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K57
		WAIT
	ELSE
		PRINTFORMW 「怎、怎么样……？」
		IF CEVENT("肛門の虜") && RAND:2
			CALL PRINT_STRW, @"（呜~……这样的也很很有感觉啊……_H_）"
		ELSE
			CALL PRINT_STRW, @"「哇、很害羞啊能快点吗……_H_」"
		ENDIF
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K57
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		PRINTFORMW 「%CNAME("一人称")%——才——不——要——！」
		PRINTFORMW 「就算是%CNAME("二人称")%这也是不行的！」
	ELSE
		PRINTFORMW 「诶……又来……？」
		CALL PRINT_STRW, @"「……%CNAME("一人称")%、%CNAME("一人称")%知道了啦……_H_」"
	ENDIF
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K57
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		IF TALENT:淫乱 && RAND:2
			CALL PRINT_STRW, @"「……明明平时也不厌其烦地看着……_H_」"
		ELSE
			CALL PRINT_STRW, @"「不、不要那样一直盯着看啊……_H_」"
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORMW 「不，也不是什么大不了的事情……」
			PRINTFORMW 「……说实话看着%CNAME("一人称")%不会觉得開心吧？」
		ELSE
			PRINTFORMW 「这、样吗……？」
		ENDIF
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「……诶？」
			PRINTFORMW 「不要、那个……」
			PRINTFORMW 「……诶？」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「……诶」
			PRINTFORMW 「呜、呜哇~！　你、你干什么啊！」
			PRINTFORMW 「而、而且这个、说不定胖次……！　呜哇——~！！！」
		ELSE
			PRINTFORMW 「……就这样想看吗」
			IF TALENT:淫乱
				PRINTFORMW 「真是的——、%CNAME("二人称")%明明已经看过更糟糕的地方了——……」
			ELSE
				PRINTFORMW 「……怎么说呢、太气愤了发而更冷静了」
			ENDIF
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW 「……啊咧、难道有虫子吗……？」
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K57
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「…………」
			PRINTFORMW 「…………哇！？」
			PRINTFORMW 「不、虽然知道你的心思、但选%CNAME("一人称")%作为对象也不会有什么高兴的……嘚~」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「嘿~！？」
				PRINTFORMW 「不、等下、虽然知道你很在意胖次！」
			CASE 1
				PRINTFORMW 「诶、%CNAME("二人称")%对%CNAME("一人称")%的内裤感兴趣吗……？」
				IF TALENT:伪娘
					CALL PRINT_STRW, @"「等、等一下这个太羞耻了所以……_／／／_」"
				ELSE
					PRINTFORMW 「没有啦ー、真的没有啦ー……」
				ENDIF
			CASE 2
				PRINTFORMW 「不是、诶？　……%CNAME("一人称")%？」
			CASE 3
				PRINTFORMW 「……嗯？ ……！」
				PRINTFORMW 「哈！？　等、做、做什么！？！？」
			CASE 4
				PRINTFORMW 「……不是、什么啊这个」
				PRINTFORMW 「太震惊了连表情都摆不出来了」
			ENDSELECT
		ELSE
			IF COND("打招呼前")
				PRINTFORMW 「早~……」
				PRINTFORMW 「……%CNAME("二人称")%、在做什么啊」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW 「等、等下！　不要看啦！」
					CALL PRINT_STRW, @"「……现在、没有穿啦……_H_」"
				ELSE
					PRINTFORMW 「等、等下！」
					PRINTFORMW 「胖次！　不要看胖次！」
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		;IF COND("胖次ドーピング")
			PRINTFORMW 「……诶、等等、诶……」
			PRINTFORMW 「……那个、%NAME:MASTER%前辈。那个、这是为了什么魔法做准备吗……？」
			PRINTFORMW 「不了、这次就请饶过%CNAME("一人称")%吧」
		;ELSE
		;	PRINTFORMW
		;ENDIF
	ELSE
		PRINTFORMW 「……啊啊、那个、嗯」
		PRINTFORMW 「不是，什么，都，没，嗯」
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW 「不、不不不……」
		PRINTFORMW 「要拍摄%CNAME("一人称")%的股間、%CNAME("二人称")%有点……」
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		IF TALENT:淫乱
			CALL PRINT_STRW, @"「呼呼，之后告诉%CNAME("一人称")%你会用照片做什么吧，%CNAME("二人称")%_H_」"
		ELSEIF CFLAG:メス堕ち度 >= 3
			CALL PRINT_STRW, @"「好、好害羞但是好兴奋……_H_」"
		ELSE
			PRINTFORMW 「这、样吗……？」
			PRINTFORMW 「………………」
			PRINTFORMW 「……好、好羞耻所以快点吧！」
		ENDIF
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW 「诶……！？」
		PRINTFORMW 「不、不不不！　不行！　那个绝对不行！」
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		IF AIZOU()
			PRINTFORMW 「……干什么啊」
		ELSE
			PRINTFORMW 「诶、等、等一下……！」
			PRINTFORMW 「在、在干什么啊%CNAME("二人称")%大笨蛋！」
		ENDIF
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "胖次見抜き"
		PRINTFORMW 「嘿、嘿啊~！？　%CNAME("一人称", "どもり")%吗！？！？」
		IF CFLAG:メス堕ち度 >= 3
			CALL PRINT_STRW, @"「呜~……虽、虽然不是说不行……_H_」"
			CALL PRINT_STRW, @"「很害羞但是有很高兴、很复杂的感觉……_H_」"
		ELSE
			PRINTFORMW 「欸欸……嘛、嘛、这里也不是说不行……」
			PRINTFORMW 「……看%CNAME("一人称")%的胖次会很兴奋？　真的？」
		ENDIF
	ENDSELECT
;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者はPARTNER()で参照できる
CASE "連れ見抜き"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "害羞", TARGET
	;PRINTFORMW 「……%CNAME("partner")%にそういう目で見られると、ちょっと恥ずかしいですね」

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

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

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

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

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者がいる場合はPARTNER()で参照できる
	CASE "胖次見抜き"
		PRINTFORMW 「んー、とりあえずこんな感じで大丈夫かー？」
		;連れ見抜きされた場合
		IF PARTNER()
			IF RAND:2
				IF TALENT:伪娘
					PRINTFORMW 「なんつーか、嬉しいよーな恥ずかしいよーな……」
				ELSE
					PRINTFORMW 「%CNAME("一人称")%見てもそんなに面白くないと思うんだけどなー……」
				ENDIF
			ELSE
				PRINTFORMW 「そんな皆で見るようなものじゃない気がするけど……」
			ENDIF
		ELSE
			PRINTFORMW 「それにしても、ホントに%CNAME("二人称")%はなんつーか、ケモノだなぁ……」
		ENDIF
	CASE "手淫"
		PRINTFORMW 「んーと、とりあえずこんな感じでオッケー？」
		PRINTFORMW 「……あっ、ちょっとそこ見づらいからどいて」
	CASE "Ｖ性交"

	CASE "Ａ性交"
		IF TALENT:尻穴狂い && RAND:2
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
			CALL PRINT_STRW, @"「やば、これ、集中できない……_H_」"
		ELSE
			PRINTFORMW 「%PANT_K57(TARGET, "不要", "通常", 5)%」
			PRINTFORM 「……ごめん、もうちょっとゆっくりしてくれない？
			SELECTCASE SAVESTR:夢中
			CASE "スマホ"
				PRINTFORMW 手ブレがやばいことになってるから……」
			CASE "游戏"
				PRINTFORMW 操作がめっちゃ大変になっちゃうからさ……」
			CASE "読書", "漫画本"
				PRINTFORMW 本に精液とかつけたくないからさ……」
			CASE "勉強"
				PRINTFORMW 印花に精液とか付くと色々大変だし……」
			CASE "SNS"
				PRINTFORMW 今返信しないといけないから……」
			CASE "WEB配信"
				PRINTFORMW 何言ってるのかよく聞こえなくなっちゃうから……」
			ENDSELECT
		ENDIF
	CASE "尿道性交"

	ENDSELECT

;TFLAG:指令中止 = 1 とすることで口上側から性欲解消を拒否できる
CASE "性欲解消を申し出た際の反応"
	PRINTFORMW 「えっと……ホ、ホントに大丈夫？」
	PRINTFORM 「えーっと、それなら
	SELECTCASE STR:PLAY要望
	CASE "舐陰"
		PRINTFORMW ……お、オマンコを舐めてほしいかなーなんて……」
	CASE "舐陰莖"
		PRINTFORMW ……ち、チンチンを舐めてもらっても良い？」
	CASE "口交"
		PRINTFORMW ……ち、チンチンを舐めさせてもらっても良い？」
		IF CFLAG:メス堕ち度 >= 3 && RAND:5 == 0
			PRINTFORMW 「そ、そりゃあ変態チックだなーって思うけどさ……」
			PRINTFORMW 「でも、そうさせたのは%CNAME("二人称")%じゃん……」
		ENDIF
	CASE "Ｖ性交"
		;避孕套没有の生性交を希望
		IF COND("女性主導生性交")
			PRINTFORMW ……な、ナマでしてみても大丈夫？」
		ELSE
			PRINTFORMW ……せ、性交させて、その、欲しい……です」
		ENDIF

	CASE "Ａ性交"
		PRINTFORMW ……え、エッチなことさせてほしいかなーって……」
		PRINTFORMW 「その……お尻で」
	CASE "尿道性交"
		PRINTFORMW ……えっと、エッチなことを、その……」
		PRINTFORMW 「……おしっこの穴でさせて欲しいなって」
		IF TALENT:淫乱 && RAND:5 == 0
			PRINTFORMW 「……う、うるせー！」
			PRINTFORMW 「そもそも%CNAME("二人称")%が悪いんだろー！」
		ENDIF
	ENDSELECT
;STR:PLAY要望 が本来したいPLAY。STR:PLAY内容 が你がやりたいと言って交渉中のPLAY
;ここの中で STR:PLAY内容 を変更する事で提案を蹴る事も出来る。什麼也不做場合は你の提案が通る
CASE "性欲解消の内容変更を頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "舐陰"
		PRINTFORMW 「え、えっと……その、%CNAME("二人称")%のオマンコを舐めたいいの……？」
		CALL PRINT_STRW, @"「那、那么……请、请多指教……_H_」"
	CASE "舐陰莖"

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

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;性欲解消PLAY後の台詞
CASE "帮忙消除性欲"
	SELECTCASE NAMES("性処理")
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "口交"

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

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

			CASE "Ａ性交"

			CASE "尿道性交"

			ENDSELECT
		ENDIF
	ENDSELECT
;主人公のスマホに一緒にお昼食べようよと邀请際に送る連絡文です
;ここで TFLAG:地の文スキップ = 0 とすると下の"お昼ご飯のお誘い"での地の文をカットできる
CASE "お昼ご飯のお誘い"
	PRINTFORMW 『一起来吃饭吧！』
;実際に二人昼食をとっている時です
CASE "一緒にお昼ご飯：地の文前"
	PRINTFORMW 「啊！　%CNAME("二人称")%！」
	PRINTFORMW 「嘿嘿、这样在早餐时看见你总感觉有点不可思议呢！」
	PRINTFORM %CALLNAME:TARGET%坐在%CALLNAME:MASTER%旁边
	IF COND("種族：吸血鬼")
		PRINTFORM 拿出了装着看起来像是血液的液体的塑料袋
	ELSE
		PRINTFORM 拿出了%TEXTR("有着显眼的葡萄酒炖菜的/看起来很平衡的营养的/放着面包和惠灵顿牛排的")%便当
	ENDIF
	PRINTFORMW 取り出した
	PRINTFORMW 「那么，一起吃吧！」
	SIF COND("合意：便当係")
		PRINTFORMW 「为了%CNAME("二人称")%而努力做的，如果觉得好吃的话%CNAME("一人称")%会很開心的！」
	PRINTFORMW 「那么，%CNAME("一人称")%開动了！」
	TFLAG:地の文スキップ = 1
CASE "坐在旁邊"
	IF AIZOU()
		PRINTFORMW 「…………没什么、讨厌的话就算了」
		PRINTFORMW 「………………%CNAME("一人称")%也只是一时兴起而已」
	ELSEIF TALENT:相思相愛 && RAND:3 == 0
		PRINTFORMW 「…………%NAME:MASTER%」
		PRINTFORMW 「…………………………」
		PRINTFORMW 「…………啊！　好、好害羞ー！！」
		PRINTFORMW %CALLNAME:TARGET%红着脸把脸埋在%CALLNAME:MASTER%的肩膀上……
	ELSEIF COND("種族：吸血鬼")
		PRINTFORMW 「嘿嘿、%CNAME("二人称")%好暖和啊ー」
		PRINTFORMW 「为什么呢？　%CNAME("二人称")%很温柔……温……？　不，也不是啊……」
		PRINTFORMW 「……不是啦、虽然是因为%CNAME("一人称")%变成了吸血鬼，但这样很不梦幻啊很不梦幻」
	ELSE
		PRINTFORMW 「嘿嘿、在%CNAME("二人称")%身边感觉很安心……」
		PRINTFORMW 「…………………………」
		PRINTFORMW 「……不、不行，不行！　刚才那个绝对不行！！！」
	ENDIF
;部室で二人きりの時にＨに邀请際のセリフです
CASE "Ｈに邀请"
	PRINTFORMW 「……呐、呐—……」
	PRINTFORMW 「……那、那个……不做吗？」
	PRINTFORMW 「……………………H的事」
CASE "二人きり：Ｈの誘いに胖次条件で回应"
CASE "二人きり：Ｈの誘いに回应"
CASE "二人きり：Ｈの誘いを断った"
	IF AIZOU()
		PRINTFORMW 「…………」
	ELSEIF TALENT:相思相愛
		PRINTFORMW 「むー。%CNAME("一人称")%とそんなにしたくないのかー？」
		PRINTFORMW 「……それなら、%CNAME("一人称")%にだって考えがあるんだからな」
	ELSEIF CFLAG:メス堕ち度 >= 3
		PRINTFORMW 「……嗯」
	ELSE
		PRINTFORMW 「……そ、そそそ、そうだよなっ！！！」
		PRINTFORMW 「え、えっと……そ、それじゃまた！」
	ENDIF
ENDSELECT

;-------------------------------------------------
;自撮りにメッセージを添えます　一言くらい
;加筆の際には RETURN 0 を消去し、MAIL_BODY を埋めて使ってください
;地の文も必要であれば適宜変更してください
;-------------------------------------------------
@SELFY_MAIL_K57, 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 =
CASE "胸罩自撮り" ,"胖次自撮り"
	RETURN 0
	MAIL_BODY =
CASEELSE
	RETURN 0
	MAIL_BODY =
ENDSELECT

;地の文
PRINTFORMW 消息中附有「%MAIL_BODY%」的照片…

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	PRINTFORMW 「呐……那个……」
	PRINTFORMW 「……周末、要一起出去约个会吗？」
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW 「诶，可以吗！？」
		PRINTFORMW 「……太好了！　%CNAME("一人称")%会努力准备便当的，敬请期待！」
		CALL SET_CEVENT, "约会の便当"
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「啊，那天你很忙吗？　对不起啊ー」
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	PRINTFORMW 「周末吗？」
	PRINTFORMW 「行！　要去要去！」
	IF EXP:约会経験 == 0
		PRINTFORMW 「嘿嘿、第一次约会、真期待啊」
	ELSE
		PRINTFORMW 「嘿嘿、%CNAME("二人称")%居然又来邀请%CNAME("一人称")%、真是期待呢」
	ENDIF
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"
	PRINTFORMW 「哦、想让%CNAME("一人称")%帮忙做便当吗？」
	PRINTFORMW 「好啊！　%CNAME("一人称")%会努力做出又好看又美味的便当给你的！」
	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 『诶！？　现在去约会！？』
		PRINTFORMW 『%CNAME("二人称")%真强硬啊……好吧』
		PRINTFORMW 『在哪儿碰面？』
	ELSE
		PRINTFORMW 「诶！？　现在去约会！？」
		PRINTFORMW 「又是这么突然……算了，好吧」
		PRINTFORMW 「什么时候出发？」
	ENDIF

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

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW 「今天要去买泳衣吗？」
		PRINTFORMW 「知道了！　%CNAME("二人称")%的泳衣……诶、%CNAME("一人称")%」
		PRINTFORMW 「……嘿嘿、那么、选件\@TALENT:伪娘 ? 可爱 # 帅气\@的泳衣吧！」
	CASE "散歩"
		PRINTFORMW 「这样看来，虽然是看惯了的风景，但还是有很多没注意到的地方啊」
		PRINTFORMW 「和%CNAME("二人称")%在一起会有很多新发现！」
	CASE "尋訪美食"
		PRINTFORMW 「お！　いろんな食べ物買いに行君だな！」
		PRINTFORMW 「へっへっへー、高いモノいっぱい食べちゃおーっと」
	CASE "逛街"
		PRINTFORMW 「这样啊！」
		PRINTFORMW 「嗯嗯ー、那么这个……还有这个……」
	CASE "去水族馆"
		IF RAND:2
			PRINTFORMW 「要去水族馆吗？」
			PRINTFORMW 「……那、那么，能不能一起去看海狸？」
		ELSE
			PRINTFORMW 「お！　水族館か！」
			PRINTFORMW 「それじゃあどこ行君だ！？　イルカもいいし、けどサメとかシャチも……」
			PRINTFORMW 「……え、ダイオウグソク、ムシ？　……もしかしてあの、ダン避孕套シみたいな……」
		ENDIF
	CASE "去游乐园"
		PRINTFORMW 「お！　遊園地か！」
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「えっと、それじゃ、ジェットコースター行こ！」
			PRINTFORMW 「ヘヘー、せっかくなんだし、いっぱい乗ろーな！」
		CASE 1
			PRINTFORMW 「……そ、それじゃあさ、一緒に恐怖屋敷行ってくれる？」
			PRINTFORMW 「その、行ってみたいのは行ってみたいんだけどさ……」
			PRINTFORMW 「……なんか、ものすごく怖いって聞いて」
		CASE 2
			PRINTFORMW 「ふっふっふー、それじゃあ一体どこ行こっかなー♪」
		ENDSELECT
	CASE "去电影院"
		PRINTFORMW 「要去电影院对吧！」
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「那、%CNAME("一人称")%就好好期待一下%CNAME("二人称")%会选择看什么电影吧！」
		CASE 1
			PRINTFORMW 「那个、让%CNAME("一人称")%看看……那么、就看那个吧！」
			PRINTFORMW %CALLNAME:TARGET%指着的是、很有冲击力的一张电影海报……
		CASE 2
			PRINTFORMW 「呃、让%CNAME("一人称")%看看……那个、就看最近很火的那个……」
			PRINTFORMW %CALLNAME:TARGET%有点羞涩地、指着一部超人气的动画电影……
		ENDSELECT
	CASE "去图书馆"
		SELECTCASE RAND:2
		CASE 0
			PRINTFORMW 「图书馆啊ー」
			PRINTFORMW 「没関系，%CNAME("一人称")%并不讨厌书。……不过看书会很容易犯困」
		CASE 1
			PRINTFORMW 「呜诶……难道要去学习……诶，不是吗？」
			PRINTFORMW 「……这、这样啊！　那就快点走吧！　走吧！」
		ENDSELECT
	CASE "赏花"
		PRINTFORMW
	CASE "去游泳"
		PRINTFORMW
	CASE "爬山"
		PRINTFORMW
	CASE "赏红叶"
		PRINTFORMW 「紅葉狩り……？　えっと……」
		PRINTFORMW 「……へぇ……！　%CNAME("二人称")%ってオシャレなことするんだな！」
	CASE "滑雪"
		PRINTFORMW 「哦，要去滑雪啊！」
		PRINTFORMW 「嘿嘿、别把%CNAME("一人称")%甩在后面啊！」
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

CASE "手をつなぐ"
	IF AIZOU()
		PRINTFORMW 「……不要」
		PRINTFORMW 「会让人以为、是情侣的……」
	ELSEIF TALENT:恋慕
		CALL PRINT_STRW, @"「……这样做、就像一对恋人一样呢……_H_」"
		SIF TALENT:相思相愛 == 0
			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 TALENT:相思相愛
		PRINTFORMW 「…………%CNAME("二人称")%真色」
	ELSE
		PRINTFORMW 「诶、诶、等等……！」
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

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

CASE "接吻"

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

CASE "专心看电影"
	SIF TALENT:相思相愛
		PRINTFORMW %CALLNAME:TARGET%保持着沉默，慢慢地用手指滑过%CALLNAME:MASTER%的手背……

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

;文化祭イベント
;ここでは"约会相手ではなく出し物をしている人"が喋ります。
;本来の约会相手はPARTNER()に角色番号が入ってます。呼びかける場合にはCNAME("partner")を使ってください
CASE "女仆咖啡厅", "執事咖啡厅", "西式料理店"
	IF AIZOU()
		PRINTFORMW 「啊！　%CNAME("partner")%和……」
		PRINTFORMW 「………………%CNAME("二人称")%、啊」
		PRINTFORMW 「……那！　有什么事吗？」
	ELSE
		PRINTFORMW 「啊、欢迎光临——！」
		PRINTFORMW 「嘿嘿、%CNAME("二人称")%们想要什么呢？」
	ENDIF

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	IF AIZOU()
		PRINTFORMW 「……真是的、别再邀请了……」
	ELSEIF TALENT:恋慕 || (TALENT:相思相愛 && RAND:2)
		CALL PRINT_STRW, @"「……请、再来邀请%CNAME("一人称")%啊……_H_」"
	ELSE
		PRINTFORMW 「今天很尽兴啊」
		PRINTFORMW 「%CNAME("二人称")%、谢谢了！」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/57 遥/EVENT_K57_DAILY.ERB


code:
;遥君が你に愛憎を抱いているか判定
;ぶっちゃけYOKUBOと同じく長い判定が連続すると判断したので入れた
@AIZOU, ARG
#FUNCTION

SIF ARG == 0
	ARG = TARGET

SIF CEVENT("『のぞき』見", ARG) && TALENT:ARG:恋慕 && TALENT:ARG:相思相愛 == 0 && CEVENT("前輩の意見", ARG) == 0
	RETURNF 1

RETURNF 0

;-------------------------------------------------
;以降は喘ぎ声を生成するための関数
;六華口上や哈娜口上の汎用喘ぎ声を参考、また一部流用、改変させていただいて製作しています
;-------------------------------------------------

;喘ぎ声を随机で発声させる関数。挿入などの条件があればいくつかの喘ぎ声を混ぜ合わせる
;回数上限、ループ、爱心要不要は共通になる
;現状加える予定の喘ぎ声は、1.通常(製作済)、2.Ｍ異物（製作済）、3Ｖ異物（製作前、伪娘に膣がつけられるようにならない限り作らない予定）4Ａ異物（製作済）5挿入(製作前)
@MPANT_K57, 回数上限, ARG, ARGS
#FUNCTIONS
#DIMS DYNAMIC 喘ぎ
#DIMS 爱心;ARGSを直接いじってしまうと爱心が不要になって以後出なくなるので、そうしないための一時的な変数
#DIM 回数上限
#DIM ループ
#DIMS 連続过滤器;あまり繰り返させたくない言葉に过滤器を掛ける

連続过滤器 = 無
爱心 = %ARGS%
FOR ループ, 0, 回数上限

	;肛門に挿入されていた場合
	IF (TEQUIP:ARG:肛用振動棒 || TEQUIP:ARG:浣腸 || INSERT("Ａ挿入", ARG) || GROUPMATCH(SELECTCOM, 2, 9, 14, 33, 70, 71, 72, 73, 74, 75, 136, 142, 143)) && RAND:7 == 0 && 連続过滤器 != "Ａ異物"
		喘ぎ += @"%PANT_K57(ARG, 爱心, "Ａ異物")%"
		;肛門を連続して話さないために过滤器をかける
		連続过滤器 = Ａ異物
	;尿道に挿入されていた場合
	ELSEIF (INSERT("尿道挿入", ARG) || GROUPMATCH(SELECTCOM, 15, 83, 84, 85, 86, 87, 88, 149, 151)) && RAND:6 == 0 && 連続过滤器 != "尿道異物"
		喘ぎ += @"%PANT_K57(ARG, 爱心, "尿道異物")%"
		;尿道を連続して話さないために过滤器をかける
		連続过滤器 = 尿道異物
	;口に何か入っていた場合
	ELSEIF (TEQUIP:ARG:接吻 || TEQUIP:ARG:深喉 || TEQUIP:ARG:六九式 || GROUPMATCH(SELECTCOM, 6, 91, 96, 98, 99, 135, 148)) && RAND:5 == 0
		喘ぎ += @"%PANT_K57(ARG, 爱心, "Ｍ異物")%"
	;Ｍ異物と条件が被るものの、接吻の時限定
	ELSEIF (TEQUIP:ARG:接吻 || SELECTCOM == 6) && RAND:4 == 0
		喘ぎ += @"%PANT_K57(ARG, 爱心, "接吻")%"
	;膣や肛門に挿入していた場合
	ELSEIF (INSERT("挿入", PLAYER, ARG) || (ASSI && INSERT("挿入", ASSI, ARG)) || GROUPMATCH(SELECTCOM, 120, 121, 122, 125, 126, 127)) && RAND:3 == 0 && 連続过滤器 != "挿入"
		喘ぎ += @"%PANT_K57(ARG, 爱心, "挿入")%"
		;挿入を連続して話さないために过滤器をかける
		連続过滤器 = 挿入
	;飞机杯に挿入していた場合
	ELSEIF SELECTCOM == 37 && RAND:2 && 連続过滤器 != "飞机杯挿入"
		喘ぎ += @"%PANT_K57(ARG, 爱心, "飞机杯挿入")%"
		;飞机杯挿入を連続して話さないために过滤器をかける
		連続过滤器 = 飞机杯挿入
	;条件に引っかからなければ汎用を呼び出す
	ELSE
		喘ぎ += @"%PANT_K57(ARG, 爱心, "通常")%"
	ENDIF

	;連続して指定されなかった場合、过滤器を解除する
	IF 連続过滤器 != "無"
		IF LOCAL == 3
			連続过滤器 = 無
			LOCAL = 0
		ELSE
			LOCAL++
		ENDIF
	ENDIF

	;爱心が必要なときは随机でどちらにするのか指定する
	IF ARGS == "要" && (ループ == 0 || RAND:2)
		爱心 = %ARGS%
	;爱心が不要な場合
	;回数を繰り返したときは随机でこちらの方を選択する
	ELSEIF ARGS == "不要" || ループ >= 1
		爱心 = 不要
	;今のところは完全に不要だが後の拡張のため＆構文ミスに気付くために其他にはエラーをだす
	ELSE
		喘ぎ += "指定の範囲外です"
	ENDIF
NEXT

RETURNF 喘ぎ

;喘ぎ声を生成する関数。爱心を加えるか否かをARGSで指定する。
;喘ぎは使う度に空白にしていくので動的変数として指定
;それぞれのパターンを変数パターンに指定し、そのCASEにあわせて喘ぎ方を変えて行く(予定)
@PANT_K57, ARG, ARGS, パターン, 回数
#FUNCTIONS
#DIM ループ
#DIMS パターン
#DIMS DYNAMIC 喘ぎ
#DIM 回数

FOR ループ, 0, MAX(回数, 1)
	SELECTCASE パターン
	;汎用パターン
	CASE "通常"
		IF PALAM:ARG:欲情 >= PALAMLV:5 && RAND:3
			喘ぎ += @"%TEXTR("啊゛/哦゛/啊゛啊~/哦゛哼~/啊゛诶~/哈啊゛/啊゛ー/啊゛啊~")%"
		ELSEIF PALAM:ARG:欲情 >= PALAMLV:3 && RAND:2
			喘ぎ += @"%TEXTR("啊哈~/嗯哈~/哈嗯~/啊嗯~/啊~/哈呜~/嗯啊~/咿呜~/啊啊~")%"
		ELSE
			喘ぎ += @"%TEXTR("啊~……/咿嗯/嗯啊~……/啊嗯~/咿呀……/呼啊……/哈嗯……/嗯~……/咿呀~……/呼嗯……/~……")%"
		ENDIF
	;口に何か入っているとき
	CASE "Ｍ異物"
		;長くなるのでいくつかに分割
		IF RAND:2
			喘ぎ += @"%TEXTR("呼呜……/嗯唔~……/哈呜……/呜啊……/（舔舔）……/啾噜……/嗯……/嗯~、（舔）…/（舔舔）…啊姆…嗯~/嗯~…、（舔舔）……/啾、（舔舔）…啾咕/嗯嗯~……（舔）…/（舔）、哈呜……んっ")%"
		ELSE
			喘ぎ += @"%TEXTR("嗯~、嗯咕…/嗯嗯…嗯呜……~/嗯…、嗯嗯……/嗯咕~、嗯~…嗯~/嗯姆~……嗯~/嗯姆~、嗯嗯…~")%"
		ENDIF
	;接吻しているとき
	CASE "接吻"
		喘ぎ += @"%TEXTR("啾……/啾……/嗯姆……/嗯……/啾~、啾~…/啾…啾……~/啾~…、啾……/啾、啾…啾/啾呜……啾/嗯啾、啾……っ")%"
	;肛門に何か入っているとき
	CASE "Ａ異物"
		喘ぎ += @"%TEXTR("屁股/啊嗯/啊啊~")%"
	;尿道に何か入っているとき
	CASE "尿道異物"
		喘ぎ += "尿道"
	;何かに挿入しているとき
	CASE "挿入"
		IF RAND:2
			喘ぎ += @"%CNAMET(ARG, "二人称")%的"
			IF RAND:2
				IF GROUPMATCH(SELECTCOM, 120, 121, 122)
					喘ぎ += @"%TEXTR("小穴/深处")%"
				ELSEIF GROUPMATCH(SELECTCOM, 125, 126, 127)
					喘ぎ += @"%TEXTR("屁股/屁穴")%"
				ENDIF
			ELSE
				喘ぎ += "深处"
			ENDIF
			喘ぎ += "嗯_H_唔嗯"
		ELSE
			喘ぎ += @"%TEXTR("嗯/咕/呼/呜")%"
		ENDIF
	;飞机杯に挿入しているとき
	CASE "飞机杯挿入"
		喘ぎ += @"%TEXTR("飞机杯……/啊……不要动太快……")%"
	ENDSELECT
	;爱心が必要な場合
	IF ARGS == "要"
		喘ぎ += "_H_"
	;爱心が不要な場合
	ELSEIF ARGS == "不要"
	;今のところは完全に不要だが後の拡張のため＆構文ミスに気付くために其他にはエラーをだす
	ELSE
		喘ぎ = "PANT_K57に問題が有ます"
		RETURNF 喘ぎ
	ENDIF
	;読みやすいように半角スペースをくわえる
	喘ぎ += " "
NEXT

RETURNF 喘ぎ

path: ERB/EVENT_K/57 遥/EVENT_K57_FUNCTION.ERB

license: unknown