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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"
	PRINTFORMW 「%CNAME("二人称")%……%CNAME("二人称","甘え")%……！」
	PRINTFORMW 「%CNAME("一人称")%にもっとかまって……%CNAME("一人称")%をほうっておかないで……！」
CASE "打招呼"
	SELECTCASE CSTR:朝袭
		CASE "朝口交", "朝六九式"
			IF EXP_GAIN("射精経験", PLAYER)
				PRINTFORMW 「唔……！？嗯……唔唔……」
				PRINTFORMW %CALLNAME:TARGET%将口中的精液吞下去、然后看向了%CALLNAME:MASTER%。
				PRINTFORMW 「叫醒了……%CNAME("二人称")%的小弟弟变大了所以……」
			ELSE
				PRINTFORMW 「……起床了吗？早上好、%CNAME("二人称")%」
				PRINTFORMW 察觉到%CALLNAME:MASTER%睁開眼睛、%CALLNAME:TARGET%说道。
			ENDIF

		CASE "朝騎乗位"
			PRINTFORMW 「%CNAME("二人称","かな")%……%CNAME("二人称","かな","甘え")%……はやく起きてぇ……！」
			PRINTW 「饭要凉了……！」
			PRINTW ・
			PRINTW ・
			PRINTW ・
			PRINTFORMW 「那个……呐？　%CNAME("二人称")%的小弟弟变得非常大……」
			PRINTFORMW 「……变得想要了……对不起……」
			PRINTFORMW 跪坐的%CALLNAME:TARGET%深深埋下了頭。

		CASEELSE
			PRINTFORMW 「早上好、%CNAME("二人称")%」
			SIF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%的字典里好像没有起床气这个词……

	ENDSELECT

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

	IF COND("体育")

	ELSE

	ENDIF
CASE "一番乗り"

CASE "ただいま"
	IF RAND:4 == 0 && CEVENT("イベント：学校")
		PRINTFORMW 「学校、通ってたの」
		PRINTFORMW なにをしていたか訊ねると、%CALLNAME:TARGET%は当たり前のように答えた
		PRINTFORMW 保健室登校ならぬ美術準備室登校とでも言うのか
		PRINTFORMW しかし、いたりいなかったり（？）するのは構わないのだろうか……？

	ELSEIF RAND:3 == 0 && CEVENT("イベント：学校")
		PRINTFORMW 「学校で……モデル、してたの」
		PRINTFORMW 当被问起在做什么的时候、%CALLNAME:TARGET%的身上飘出了%TEXTR("得意……大概吧、/得意/疲惫")%的气息
		PRINTW ……モデルと言っても、静物画のモチーフなわけだが……

	ELSEIF RAND:2 == 0 && ABL:信頼 >= 5
		PRINTFORMW 「我回来了、%CNAME("二人称")%」
		PRINTFORMW %CALLNAME:TARGET%提着购物袋。
		IF RAND:3 == 0 && COND("同居中",FINDCHARA(NO, 1))
			PRINTFORMW %CALLNAME:FINDCHARA(NO, 1)%のおつかいだろうか……

		ELSEIF RAND:2 == 0 && COND("同居中",FINDCHARA(NO, 10))
			PRINTFORMW %CALLNAME:FINDCHARA(NO, 10)%のおつかいだろうか……

		ELSE
			PRINTW 买了什么东西呢……

		ENDIF

	ELSEIF RAND:2 == 0
		PRINTFORMW 「去散步了」
		PRINTFORMW 问她去干什么的时候、%CALLNAME:TARGET%看起来%TEXTR("有些失落/有些開心")%的样子。
		PRINTFORMW 散步的时候发生了什么呢……

	ELSE
		PRINTFORMW 「我回来了、%CNAME("二人称")%」
		PRINTFORMW 不知道从哪里回来的%CALLNAME:TARGET%突然低下頭。

	ENDIF

CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF COND("Ｈ的サプライズ可能") && RAND:5 == 0
			PRINTFORMW 「おかえり、%CNAME("二人称","甘え")%……%CNAME("一人称")%、%CNAME("二人称")%にかまって……ほしいな……」
			PRINTFORMW %CALLNAME:TARGET%靠近%CALLNAME:MASTER%不停地诱惑着……

		ELSE
			SELECTCASE RAND:20
				CASE 0 TO 9
					PRINTFORMW 「……欢迎回来、%CNAME("二人称")%」
					PRINTFORMW %CALLNAME:TARGET%似乎在%TEXTR("看电视/读书/发呆/打瞌睡")%……

				CASE 10 TO 17
					PRINTFORM 「欢迎回来、%CNAME("二人称")%……
					SIF ABL:信頼 >=3
						PRINT 有什么想要%CNAME("一人称")%做的事情吗……？
					PRINTW 」
					PRINTFORMW %CALLNAME:TARGET%似乎一直在等%CALLNAME:MASTER%回来……

				CASEELSE
					IF !CEVENT("イベント：変身")
					 	PRINTW 玄関口、放置着透出威压感的人偶……！
					 	PRINTFORMW %CALLNAME:MASTER%回来看到这个时、
						PRINTW ぽむっ
					 	PRINTFORMW 伴随着轻快的声音、%CALLNAME:TARGET%的身影出现了。
					 	PRINTFORMW 「欢迎回来、%CNAME("二人称")%」
					 	PRINTFORMW 看着一言不发站着的%CALLNAME:MASTER%、%CALLNAME:TARGET%歪着小脑袋。
					 	PRINTFORMW 「……怎么了？」
						CALL SET_CEVENT, "イベント：変身"

					ELSE
					 	PRINTW 玄関口、放置着透出威压感的人偶……！
					 	PRINTFORMW 在触摸到人偶脑袋的时候、砰的一下变成了%CALLNAME:TARGET%的样子。
					 	PRINTFORMW 「欢迎回来、%CNAME("二人称")%……好痛」
 					 	PRINTW ……不要做那些会成为家庭怪谈的事。
					ENDIF

			ENDSELECT

		ENDIF

	ENDIF

CASE "入室打招呼"

CASE "抜け出された"
	IF TALENT:恋慕
		PRINTFORMW 「%CNAME("二人称","甘え")%……」
		PRINTFORMW %CALLNAME:TARGET%用像是被遗弃的小狗一样的眼神目送着%CALLNAME:MASTER%……

	ELSE
		PRINTFORMW %CALLNAME:TARGET%默默看着%CALLNAME:MASTER%离開……

	ENDIF

CASE "便当"

ENDSELECT

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

;バージョンアップを行います
CALL K17_VERUP

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「……请多関照？」
	PRINTFORML %CALLNAME%歪着小脑袋、问候语不知为何成了疑问句……
CASE "浑身是汗"
	PRINTFORML
CASE "刚睡醒"
	PRINTFORML 「……？」
	PRINTFORML %CALLNAME%像什么都没发生一样站起来、%TEXTR("打開读了一半的书/看向窗外/開始发呆")%……
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K17
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML %CALLNAME%幸福地捂住脸颊……
CASE "契約成立"
	PRINTFORML
CASE "摆脱"
	IF TALENT:恋慕
		CALL PRINT_STR, @"「和%CNAME("二人称")%约会……_HH_」_W_"
		PRINTFORML %CALLNAME%显得很轻松……
	ENDIF
CASE "露脐装超短裙胖次チラ"
	IF !TALENT:不知羞恥
		PRINTFORML %CALLNAME%红着脸压住裙子……
	ELSEIF CEVENT("レッスン：はじらい")
		PRINTFORML %CALLNAME%一脸困惑地压着裙子……
	ENDIF
CASE "掀起裙子"
	IF TALENT:恋慕
		PRINTFORML 「%CNAME("二人称")%的手、诶……！」
		PRINTFORML ……%CALLNAME%似乎并不是真的在责备……
	ELSEIF !TALENT:不知羞恥
		PRINTFORML 「……」
		PRINTFORML %CALLNAME%低下頭按着裙子……
	ELSEIF CEVENT("レッスン：はじらい")
		PRINTFORML 「……」
		PRINTFORML %CALLNAME%一脸困惑地压着裙子……
	ENDIF
ENDSELECT

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

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML %CALLNAME%是不是已经适应了我们家的生活了呢？
	PRINTFORML 突然在意起来、去寻找%CALLNAME%……在架子上吧
	PRINTFORML 「……因为一直都放在这样的地方……」
	PRINTFORML ……我が家ではできるだけ人として暮らすように説教をすること变成了
	CALL SET_DEVENT, "質問１"
ENDIF
IF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML 興味本位で、思い出せる限り一番古い記憶について訊ねてみると……
	PRINTFORML 「……下摆を……めくられてた？」
	PRINTFORML 「え……？　うん……まだ、人形だったころ」
	PRINTFORML
	PRINTFORML ……純粋な好奇心でやらかしたのだと思いたい……
	CALL SET_DEVENT, "質問２"
ENDIF

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

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	IF TALENT:恋慕
		PRINTFORML 「……」
		PRINTFORML %CALLNAME%的眼中、充满了无法隐藏的期待……
	ENDIF
ENDIF

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

;以下は随机台詞など

;時間帯と場所と関係で変化有些
;IF COND("夜")
	PRINTFORML 「…………」
	IF TALENT:恋慕 && RAND:4 == 0
		PRINTFORML 眼神交汇后、%CALLNAME%露出了柔和的微笑。
		PRINTFORML 好像一直在盯着看……

	ELSE
		SIF CFLAG:茶 && RAND:2 == 0
			PRINTFORM 一边不时倾倒着茶杯、
		PRINTFORM %CALLNAME%
		;你との関係が深圆圈につれて知性的な活動が増える
		SELECTCASE ( RAND:10 * ( TALENT:恋慕 + MARK:屈服刻印 ) )
			CASE IS <= 7
				PRINTFORML 呆呆地看着%TEXTR("窗外/哪里/室内")%……

			CASE IS <= 15
				SIF TALENT:笨蛋
					PRINTFORML 用不知道是看着还是没看的眼神盯着电视里放的
				IF COND("夜")
					PRINTFORM %TEXTR("综艺节目/音乐节目/棒球比赛/足球比赛/新闻节目/连续剧")%

				ELSE
					PRINTFORM %TEXTR("综艺节目/新闻节目/连续剧")%

				ENDIF
				PRINTFORML が流れているテレビに目をやっている……

			CASEELSE
				PRINTFORM 静かに
				IF RAND:4 == 0
					PRINTL 正在安静地看报纸
				ELSE
					PRINTL 正在安静地看书
					PRINTFORML 有些在意得看了一眼、好像是%TEXTR("料理书/料理杂志/教養書/民间故事集/妖怪事典/咒语书")%之类的……
				ENDIF
		ENDSELECT
	ENDIF

;ELSE
;	PRINTFORML
;ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K17
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
	PRINTFORML 「…………」
IF RAND:3
	PRINTFORML %CALLNAME%静静沉睡著……
ELSEIF RAND:2
	PRINTFORM %CALLNAME%の
	IF TALENT:巨乳
		PRINT 要把衣服撑破的
	ELSEIF TALENT:貧乳
		PRINT 平坦的
	ENDIF
	PRINTL 胸部、一上一下地起伏着……
ELSE
	PRINTFORML 身じろぎひとつせずに寝ている%CALLNAME%は、圆圈で本物の人形のようだ……
ENDIF

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

SELECTCASE ARGS
CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"
	;地の文を出す
	CALL DAILY_MESSAGE, "归途"
;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
CASE "休憩"
	IF PLACE("自宅")
		IF COND("夜")

		ELSE

		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")

	;場所移動後
	ELSE

	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはよう
	ENDIF

	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			IF TALENT:恋慕
				PRINTFORMW 「呼呼……%CNAME("二人称")%、突然怎么了……？」
				PRINTFORMW %CALLNAME%哄孩子一样地抚摸%CALLNAME:MASTER%的背部……

			ELSEIF !TALENT:不知羞恥
				PRINTFORMW 「呼呀……%CNAME("二人称")%……！？」
				PRINTFORMW %CALLNAME%吓得两眼发白……

			ELSEIF CEVENT("レッスン：はじらい")
				PRINTFORMW 「%CNAME("二人称","どもり")%……？」
				PRINTFORMW %CALLNAME%很困惑……

			ELSE
				PRINTFORMW 「……%GREETING%？」
				PRINTFORMW %CALLNAME%被任意摆布……

			ENDIF

		ELSE
			;你に先に打招呼をされた
			IF CFLAG:打招呼した == 0
				PRINTFORMW 「%GREETING%、%CNAME("二人称")%」

			ELSE
				PRINTFORMW 「%GREETING%、%CNAME("二人称")%……」
				IF TALENT:恋慕
					PRINTFORMW %CALLNAME%温柔地抱过来……

				ELSEIF !TALENT:不知羞恥 || CEVENT("レッスン：はじらい")
					PRINTFORMW %CALLNAME%怯生生地抱了过来……

				ELSE
					PRINTFORMW %CALLNAME%被任意摆布……

				ENDIF

			ENDIF

		ENDIF

	CASE "打招呼接吻"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			IF TALENT:恋慕
				PRINTFORMW 「%CNAME("二人称")%……嗯……！？」
				PRINTFORMW 「%CNAME("二人称")%的……总是那么突然……」
				PRINTFORMW %CALLNAME%像是没了办法似的苦笑起来……

			ELSEIF !TALENT:不知羞恥
				PRINTFORMW 「唉……%CNAME("二人称")%……唔嗯！？」
				PRINTFORMW %CALLNAME%吓得两眼发白……

			ELSEIF CEVENT("レッスン：はじらい")
				PRINTFORMW 「%CNAME("二人称","どもり")%……嗯……」
				PRINTFORMW %CALLNAME%困惑地和%CALLNAME:MASTER%接吻……

			ELSE
				PRINTFORMW 「嗯……嗯嗯……？」
				PRINTFORMW %CALLNAME%被任意摆布……

			ENDIF

		ELSE
			IF TALENT:恋慕 || !TALENT:不知羞恥 || CEVENT("レッスン：はじらい")
				IF TALENT:恋慕
					PRINT 「
					SIF RAND:3 == 0
						PRINTFORM %CNAME("二人称","かな")%……
					PRINTFORMW %TEXTR("啾/库啾")%……%TEXTR("嗯/嗯嗯")%……」
					PRINTFORMW 「%CNAME("二人称")%……%GREETING%」
					PRINTFORMW %CALLNAME%害羞地笑了……

				ELSEIF !TALENT:不知羞恥
					PRINTFORMW 「%TEXTR("啾/库啾")%……%CNAME("二人称")%……」
					PRINTFORMW %CALLNAME%深低下頭、脸涨得通红……

				ELSE
					PRINTFORMW 「……%TEXTR("啾/库啾")%……」
					PRINTFORMW 「打招呼」的时候、%CALLNAME%一直低着视线……

				ENDIF

			ELSE
				PRINTFORMW 「%TEXTR("嗯/嗯姆")%……%TEXTR("嗯/嗯姆/嗯嗯/嗯唔")%…\@ RAND:2 == 0 ? …？ # … \@」

			ENDIF

		ENDIF

	CASE "打招呼舐陰"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			IF TALENT:恋慕
				PRINTFORMW 「%CNAME("二人称","どもり")%……呼姆！？」
				PRINTFORMW 「啊……%CNAME("二人称")%、%CNAME("二人称")%这……真的是问候吗！？」

			ELSEIF !TALENT:不知羞恥
				PRINTFORMW 「哎……%CNAME("二人称")%……在干什么！？」
				PRINTFORMW 「嗯……这……不要这样、打招呼……」

			ELSEIF CEVENT("レッスン：はじらい")
				PRINTFORMW 「嗯哼……%CNAME("二人称","どもり")%……」
				PRINTFORMW %CALLNAME%身体无法动弹、接受了「打招呼」……

			ELSE
				PRINTFORMW 「嗯……唔……？」
				IF CHECK_CLO("没穿内褲") && ( !CEVENT("レッスン：ぱんつ") || !TALENT:不知羞恥 )
					PRINTFORMW ……教导这个孩子穿胖次比较好吧……
					CALL SET_CEVENT, "イベント：沒穿"
				ELSEIF !CEVENT("レッスン：はじらい")
					PRINTFORMW ……还是教导这个孩子什么是羞耻心比较好吧……
					CALL SET_CEVENT, "イベント：はじらう？"
				ENDIF

			ENDIF

		ELSE
			IF TALENT:恋慕 || TALENT:淫乱
				PRINTFORMW 「%CNAME("二人称","どもり")%、不行……！」
				PRINTFORMW 「至少在床上……%TEXTR("嗯/呀/哎呀/库")%！？」
				PRINTFORMW 看来不能打招呼了……

			ELSEIF !TALENT:不知羞恥
				PRINTFORMW 「%CNAME("二人称","どもり")%、不要这样……」
				PRINTFORMW 「%TEXTR("嗯/呀/哎呀/库")%……这样打招呼感觉、很奇怪……！」

			ELSEIF CEVENT("レッスン：はじらい")
				PRINTFORMW 「%CNAME("二人称")%……%TEXTR("呀/嗯/啊")%……」
				PRINTFORMW %CALLNAME%一边困惑一边小声地叫着……

			ELSE
				PRINTFORMW 「%TEXTR("嗯/啊/唔")%……%TEXTR("嗯姆/嗯/啊")%…\@ RAND:2 == 0 ? …？ # … \@」
				PRINTFORMW %CALLNAME%被欺负得娇喘起来……
				IF CHECK_CLO("没穿内褲") && ( !CEVENT("レッスン：ぱんつ") || !TALENT:不知羞恥 )
					PRINTFORMW ……教导这个孩子穿胖次比较好吧……
					CALL SET_CEVENT, "イベント：沒穿"
				ELSEIF !CEVENT("レッスン：はじらい")
					PRINTFORMW ……还是教导这个孩子什么是羞耻心比较好吧……
					CALL SET_CEVENT, "イベント：はじらう？"
				ENDIF
			ENDIF

		ENDIF

	CASEELSE
		;你に先に打招呼をされた
		PRINTFORMW 「%GREETING%……%CNAME("二人称")%」
		PRINTFORM %CALLNAME%
		SIF TALENT:恋慕
			PRINTFORM 微笑着并
		PRINTFORMW 悄悄地低下了頭……

	ENDSELECT

CASE "叫醒"
	PRINTFORMW 「……%CNAME("二人称","かな")%？」
	PRINTFORMW %CALLNAME%睁開眼睛后起身并整理居所……
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		IF TALENT:恋慕
			PRINTW 「真的吗……！？」
			PRINTFORMW %CALLNAME%用双手捂住因为害羞而通红的脸……
		ELSE
			PRINTW 「……很開心」
			PRINTFORMW %CALLNAME%有点儿困惑……似乎不习惯被赞扬。

		ENDIF

	CASE "甜言蜜语"
		IF TALENT:恋慕
			CALL PRINT_STR, @"「%CNAME("一人称")%、很幸福……%CNAME("二人称","甘え")%_HH_」_W"
			PRINTFORMW %CALLNAME%神情陶醉……
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORMW 「……！？」
			PRINTFORMW %CALLNAME%因为%CALLNAME:MASTER%的言语陷入混乱……
		ELSE
			PRINTFORMW 「……？」
			PRINTFORMW 现在的%CALLNAME%还无法理解……
		ENDIF
	CASEELSE
		IF RAND:20 == 0
			PRINTFORMW 改变一下与%CALLNAME:TARGET%的関系也许不错。
			PRINTFORMW %CALLNAME:MASTER%希望――
			;現在的立場も初期選択も"主人様"ではない場合に表示
			SIF CEVENTS("立場") != "主人様" && CEVENTS("初期選択") != "主人様"
				PRINTFORML [0] 是她的主人
			;(1)你が男性で、現在的立場も初期選択も"父亲"ではない場合に表示(2)你が男性でなく、現在的立場も初期選択も"お母桑"ではない場合に表示
			SIF ( CEVENTS("立場") != "父亲" && CEVENTS("初期選択") != "父亲" && TALENT:MASTER:男性 ) || ( CEVENTS("立場") != "お母桑" && CEVENTS("初期選択") != "お母桑" && !TALENT:MASTER:男性 )
				PRINTFORML [1] 是她的\@ TALENT:MASTER:男性 ? 父亲 # 母亲 \@と思ってほしいと告げた
			;(1)你が男性で、現在的立場も初期選択も"爸爸"ではない場合に表示(2)你が男性でなく、現在的立場も初期選択も"妈妈"ではない場合に表示
			SIF ( CEVENTS("立場") != "爸爸" && CEVENTS("初期選択") != "爸爸" && TALENT:MASTER:男性 ) || ( CEVENTS("立場") != "妈妈" && CEVENTS("初期選択") != "妈妈" && !TALENT:MASTER:男性 )
				PRINTFORML [2] 是她的\@ TALENT:MASTER:男性 ? 爸爸 # 妈妈 \@と思ってほしいと告げた
			;(1)你が男性で、現在的立場も初期選択も"欧尼酱"ではない場合に表示(2)你が男性でなく、現在的立場も初期選択も"欧内酱"ではない場合に表示
			SIF ( CEVENTS("立場") != "欧尼酱" && CEVENTS("初期選択") != "欧尼酱" && TALENT:MASTER:男性 ) || ( CEVENTS("立場") != "欧内酱" && CEVENTS("初期選択") != "欧内酱" && !TALENT:MASTER:男性 )
				PRINTFORML [3] 是她的\@ TALENT:MASTER:男性 ? 哥哥 # 姐姐 \@と思ってほしいと告げた
			;現在的立場と初期選択が異なる場合に表示
			SIF CEVENTS("立場") != CEVENTS("初期選択")
				PRINTFORML [4] 变回第一次两人遇到的称呼%CEVENTS("初期選択")%
				PRINTFORML [5] ……果然还是放弃
				PRINTL
				PRINTL ※改变関系的话、用「拜托了(拜托了)」更改后的称呼会被删除！
			$CHANGE_INPUT_LOOP
			INPUT
			SELECTCASE RESULT
				CASE 0
					IF CEVENTS("立場") != "主人様" && CEVENTS("初期選択") != "主人様"
						CALL DEL_CEVENT_GROUP,"立場"
						CALL DEL_CEVENT_GROUP_EX,"二人称主人"
						CALL SET_CEVENT,"立場：主人様"
						PRINT 「
						SIF TALENT:相思相愛
							PRINT 是恋人
						PRINTFORMW ……%CNAME("二人称","かな")%」
						IF TALENT:恋慕 && !TALENT:相思相愛
							PRINTFORMW %CALLNAME%寂寞地小声说道。
							PRINTW 有什么不满吗……
						ELSE
							PRINTFORMW %CALLNAME%接受了新的関系……
						ENDIF
					ELSE
						GOTO CHANGE_INPUT_LOOP
					ENDIF

				CASE 1
					IF ( CEVENTS("立場") != "父亲" && CEVENTS("初期選択") != "父亲" && TALENT:MASTER:男性 ) || ( CEVENTS("立場") != "お母桑" && CEVENTS("初期選択") != "お母桑" && !TALENT:MASTER:男性 )
						CALL DEL_CEVENT_GROUP,"立場"
						CALL DEL_CEVENT_GROUP_EX,"二人称主人"
						CALL SET_CEVENT,@"立場：\@ TALENT:MASTER:男性 ? 父亲 # 母亲 \@"
						PRINT 「
						SIF TALENT:相思相愛
							PRINT 是恋人
						PRINTFORMW ……%CNAME("二人称","かな")%」
						IF TALENT:恋慕 && !TALENT:相思相愛
							PRINTFORMW %CALLNAME%寂寞地小声说道。
							PRINTW 有什么不满吗……
						ELSE
							PRINTFORMW %CALLNAME%接受了新的関系……
						ENDIF
					ELSE
						GOTO CHANGE_INPUT_LOOP
					ENDIF

				CASE 2
					IF ( CEVENTS("立場") != "爸爸" && CEVENTS("初期選択") != "爸爸" && TALENT:MASTER:男性 ) || ( CEVENTS("立場") != "妈妈" && CEVENTS("初期選択") != "妈妈" && !TALENT:MASTER:男性 )
						CALL DEL_CEVENT_GROUP,"立場"
						CALL DEL_CEVENT_GROUP_EX,"二人称主人"
						CALL SET_CEVENT,@"立場：\@ TALENT:MASTER:男性 ? 爸爸 # 妈妈 \@"
						PRINT 「
						SIF TALENT:相思相愛
							PRINT 是恋人
						PRINTFORMW ……%CNAME("二人称","かな")%」
						IF TALENT:恋慕 && !TALENT:相思相愛
							PRINTFORMW %CALLNAME%寂寞地小声说道。
							PRINTW 有什么不满吗……
						ELSE
							PRINTFORMW %CALLNAME%接受了新的関系……
						ENDIF
					ELSE
						GOTO CHANGE_INPUT_LOOP
					ENDIF

				CASE 3
					IF ( CEVENTS("立場") != "欧尼酱" && CEVENTS("初期選択") != "欧尼酱" && TALENT:MASTER:男性 ) || ( CEVENTS("立場") != "欧内酱" && CEVENTS("初期選択") != "欧内酱" && !TALENT:MASTER:男性 )
						CALL DEL_CEVENT_GROUP,"立場"
						CALL DEL_CEVENT_GROUP_EX,"二人称主人"
						CALL SET_CEVENT,@"立場：\@ TALENT:MASTER:男性 ? 欧尼酱 # 欧内酱 \@"
						PRINT 「
						SIF TALENT:相思相愛
							PRINT 是恋人
						PRINTFORMW ……%CNAME("二人称","かな")%」
						IF TALENT:恋慕 && !TALENT:相思相愛
							PRINTFORMW %CALLNAME%寂寞地小声说道。
							PRINTW 有什么不满吗……
						ELSE
							PRINTFORMW %CALLNAME%接受了新的関系……
						ENDIF
					ELSE
						GOTO CHANGE_INPUT_LOOP
					ENDIF

				CASE 4
					IF CEVENTS("立場") != CEVENTS("初期選択")
						CALL DEL_CEVENT_GROUP,"立場"
						CALL DEL_CEVENT_GROUP_EX,"二人称主人"
						CALL SET_CEVENT,@"立場：%CEVENTS("初期選択")%"
						PRINT 「
							SIF TALENT:相思相愛
								PRINT 是恋人
							PRINTFORMW ……%CNAME("二人称","かな")%」
						IF TALENT:恋慕 || ABL:信頼 >= 10
							PRINTFORMW %CALLNAME%紧紧地抱上来
							PRINTFORMW 好像对一開始%CEVENTS("初期選択")%这种関系有强烈的思念……
						ELSE
							PRINTFORMW %CALLNAME%接受了新的関系……
						ENDIF
					ELSE
						GOTO CHANGE_INPUT_LOOP
					ENDIF

				CASE 5
					PRINTFORMW 「……？」
					PRINTFORMW %CALLNAME%歪着小脑袋

				CASEELSE
					GOTO CHANGE_INPUT_LOOP

			ENDSELECT

		;指導系イベント
		ELSEIF RAND:3 == 0 && ( CEVENT("イベント：沒穿") || CEVENT("イベント：はじらう？") || CEVENT("イベント：はずかしい") )
			PRINTFORML 那么、借此机会――
			;[不知羞恥]で、イベント"沒穿"フラグが立っていて、レッスン"ぱんつ"を受けていない
			SIF CEVENT("イベント：沒穿") && !CEVENT("レッスン：ぱんつ") && TALENT:不知羞恥
				PRINTFORML [0] 让我来教你什么叫胖次吧
			;[不知羞恥]で、イベント"はじらい？"フラグが立っていて、レッスン"はじらい"を受けていない
			SIF CEVENT("イベント：はじらう？") && !CEVENT("レッスン：はじらい") && TALENT:不知羞恥
				PRINTFORML [1] 教导你什么是害羞的感觉吧
			;[不知羞恥]で、イベント"はずかしい"フラグが立っている
			SIF CEVENT("イベント：はずかしい") && TALENT:不知羞恥
				PRINTFORML [2] 让我们理解所谓的羞耻感吧
			PRINTFORML [100] ……没什么事
			$EVENTTOP_INPUT_LOOP
			INPUT
			SELECTCASE RESULT
				CASE 0
					IF CEVENT("イベント：沒穿") && !CEVENT("レッスン：ぱんつ") && TALENT:不知羞恥
						PRINTFORMW %CALLNAME:MASTER%仔细说明了胖次的事情。
						PRINTFORMW 「人类都是这样……%CNAME("二人称")%很喜欢……需要坚持？」
						PRINTW ……说不定连不能教导的事都教导了。
						PRINTW ・
						PRINTW ・
						PRINTW ・
						PRINTFORMW %CALLNAME%穿上内衣了。
						CSTR:喜欢的胖次 = 內褲/條紋胖次/褶边の胖次
						CSTR:喜欢的胸罩 = 吊帯衫
						CALL SET_CEVENT("レッスン：ぱんつ")
						CALL DEL_CEVENT("イベント：沒穿")
					ELSE
						GOTO EVENTTOP_INPUT_LOOP
					ENDIF

				CASE 1
					IF CEVENT("イベント：はじらう？") && !CEVENT("レッスン：はじらい") && TALENT:不知羞恥
						PRINTFORMW %CALLNAME:MASTER%仔细描述了害羞的感觉。
						PRINTFORMW 「胖次和裸体的、会害羞……？ %CNAME("一人称")%害羞的话、%CNAME("二人称")%会兴奋起来……？」
						PRINTW ……不、只是一般的论调、并不是说着自己的性癖……
						PRINTW ・
						PRINTW ・
						PRINTW ・
						PRINTFORMW %CALLNAME%学习了害羞这个概念。
						CALL SET_CEVENT("レッスン：はじらい")
						CALL DEL_CEVENT("イベント：はじらう？")
						;合意：检查阴部がある場合、一旦取下
						SIF STRCOUNT(CSTR:合意, "检查阴部")
							CALL DEL_GOUI, "检查阴部"
					ELSE
						GOTO EVENTTOP_INPUT_LOOP
					ENDIF

				CASE 2
					IF CEVENT("イベント：はずかしい") && TALENT:不知羞恥
						PRINTFORMW %CALLNAME:MASTER%向%CALLNAME%详细说明了在被看见下面时应有的反应。
						PRINTW 「那个时候、会突然脑袋发热……变得不能思考……？」
						PRINTW 「那是……那就是“害羞”的意思……！？」
						PRINTW 「……」
						PRINTFORMW 「那么……那么……到现在为止的%CNAME("一人称")%是……！？」
						PRINTW ……虽然身体很害羞、但是脑子里却没有意识到。
						PRINTW 「……我明白了……现在明白了……！　这种感觉……就是说很害羞……！」
						PRINTFORMW 「%CNAME("一人称","どもり")%……好害羞啊——————……！！」
						PRINTFORMW ……因为害羞而觉醒的%CALLNAME%回顾了自己的黑历史、一时间晕了过去……
						PRINTW ・
						PRINTW ・
						PRINTW ・
						PRINTFORMW %CALLNAME%的[不知羞恥]失去了、獲得了[清楚]

						TALENT:不知羞恥 = 0
						TALENT:清楚 ++
						CALL DEL_CEVENT("イベント：はずかしい")
						;合意：检查阴部がある場合、一旦取下
						SIF STRCOUNT(CSTR:合意, "检查阴部")
							CALL DEL_GOUI, "检查阴部"

						;レッスン"ぱんつ"を受けていなければ、内衣の着用と害羞系レッスン終了フラグを設定しておく
						IF !CEVENT("レッスン：ぱんつ")
							CSTR:喜欢的胖次 = 內褲/條紋胖次/褶边の胖次
							CSTR:喜欢的胸罩 = 吊帯衫
							CALL SET_CEVENT("レッスン：ぱんつ")
							CALL DEL_CEVENT("イベント：沒穿")
							CALL SET_CEVENT("レッスン：はじらい")
							CALL DEL_CEVENT("イベント：はじらう？")
							PRINTFORMW  %CALLNAME%が内衣を着用するよう成为了
						;レッスン"はじらい"を受けていなければ、レッスン終了フラグを設定しておく
						ELSEIF !CEVENT("レッスン：はじらい")
							CALL SET_CEVENT("レッスン：はじらい")
							CALL DEL_CEVENT("イベント：はじらう？")
						ENDIF

					ELSE
						GOTO EVENTTOP_INPUT_LOOP
					ENDIF

				CASE 100
					PRINTFORMW %CALLNAME%歪着小脑袋……

				CASEELSE
					GOTO EVENTTOP_INPUT_LOOP

			ENDSELECT
		ELSEIF RAND:4 == 0
			PRINTFORML %CALLNAME:MASTER%询问%CALLNAME%、関于%CEVENTS("立場")%这个関系是怎么想的。
			IF TALENT:恋慕
				CALL PRINT_STR, "「……非常喜欢_HH_」_W_"
				PRINTFORML ……関于%CEVENTS("立場")%这个関系的意见……？
			ELSEIF !TALENT:処女 || !TALENT:Ａ処女
				PRINTFORMW 「……做过的関系？」
				PRINTFORMW ……感觉让%CALLNAME%有了歪曲的认知……
			ELSEIF ABL:欲望 >= 3
				PRINTFORMW 「……调情関系？」
				PRINTFORMW ……感觉让%CALLNAME%有了歪曲的认知……
			ELSE
				PRINTFORMW 「……同居関系？」
				PRINTFORMW 不仅如此……应该没错吧。
			ENDIF

		ELSEIF RAND:3 == 0 && !CEVENT("イベント：学校") && ABL:信頼 >= 2
			PRINTFORMW 「%CNAME("二人称")%……%CNAME("一人称")%、想去学校」
			PRINTFORMW ……真的想成为学校的怪谈吗……
			PRINTFORMW 虽然劝说过要好好考虑、但是%CALLNAME%
			PRINTFORMW 「……%CNAME("一人称")%已经、是%CNAME("二人称")%的东西了……学校的用品……
			PRINTFORMW 不是了……？」
			PRINTFORML
			PRINTFORMW ……在学校里绝对不能被任何人发现、晚上之前必须回家。如此向她交代。
			PRINTFORMW 「……十分感谢、%CNAME("二人称")%……！」
			CALL SET_CEVENT, "イベント：学校"

		ELSE
			PRINTFORML
		ENDIF
	ENDSELECT

CASE "拭汗"
	PRINTFORMW
;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K17
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		IF TALENT:恋慕 || ABL:Ｂ感覚 >= 5
			PRINTFORMW 「啊……%CNAME("二人称","かな","甘え")%……」
			PRINTFORMW %CALLNAME%的声音荡漾……

		ELSEIF !TALENT:不知羞恥
			PRINTFORMW 「%CNAME("二人称","かな")%……不行……！」
			PRINTFORMW %CALLNAME%因为害羞双手用力捂起来……

		ELSEIF CEVENT("レッスン：はじらい")
			PRINTFORMW 「不行……的吧、%CNAME("二人称","かな")%……」
			PRINTFORMW 困惑的%CALLNAME%把手放在%CALLNAME:MASTER%的怀里……

		ELSE
			PRINTFORMW 「……？」
			PRINTFORMW %CALLNAME%似乎不太清楚自己在被做着什么……

		ENDIF
	CASE "按摩"
		IF TALENT:恋慕
			PRINTFORMW 「……%CNAME("二人称")%的手、很舒服……」
			PRINTFORMW %CALLNAME%一边按摩一边发出诱人的声音……

		ELSEIF !TALENT:不知羞恥
			PRINTFORMW 「%TEXTR("啊/呀/嗯")%……%TEXTR("库/唔/呜")%……」
			PRINTFORMW %CALLNAME%漏出来的声音、感觉相当色情……

		ELSEIF CEVENT("レッスン：はじらい")
			PRINTFORMW 「这是什么……%TEXTR("啊/呀/嗯")%……感觉……有些害羞……？」
			PRINTFORMW 微妙地发出色情的声音同时、%CALLNAME%想确认这个行为是不是色情的事……

		ELSE
			PRINTFORMW 「%TEXTR("嗯/啊/唔")%……%TEXTR("嗯姆/嗯/啊")%…\@ RAND:2 == 0 ? …？ # … \@」
			PRINTFORMW %CALLNAME%似乎不太清楚自己在被做着什么……

		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF TALENT:恋慕 || ABL:Ｍ感覚 >= 5
				PRINT 「
				SIF RAND:3 == 0
					PRINTFORM %CNAME("二人称","かな")%……
				PRINTFORM %TEXTR("啾/库啾/啾姆/啾卜")%……%TEXTR("啾/库啾/啾姆/啾卜")%…
				SIF RAND:3 == 0
					PRINTFORM …%CNAME("二人称","かな","甘え")%…
				PRINTFORMW …」
				PRINTFORMW 如同做爱一般激烈地接吻着……

			ELSEIF !TALENT:不知羞恥
				PRINTFORMW 「%CNAME("二人称","かな")%……%TEXTR("啾/库啾/啾姆/啾卜")%……%TEXTR("啾/库啾/啾姆/啾卜")%……不、不要这样……！」
				PRINTFORMW 脸红得快要冒出热气的%CALLNAME%终于推開了%CALLNAME:MASTER%……

			ELSEIF CEVENT("レッスン：はじらい")
				PRINTFORMW 「%TEXTR("啾/库啾")%……%TEXTR("嗯/嗯姆")%……」
				PRINTFORMW %CALLNAME%一边皱着眉頭一边接吻……

			ELSE
				PRINTFORMW 「%TEXTR("嗯/嗯姆")%……%TEXTR("嗯/嗯唔")%……？」
				PRINTFORMW %CALLNAME%好像不太清楚自己在做什么……

			ENDIF

		ELSE
			IF TALENT:恋慕 || ABL:Ｍ感覚 >= 5
				PRINTFORMW 「%TEXTR("啾/库啾")%……%TEXTR("嗯/嗯姆")%……%CNAME("二人称","かな","甘え")%」
				PRINTFORMW 嘴唇相叠、%CALLNAME%的舌頭伸了进来……

			ELSEIF !TALENT:不知羞恥
				PRINTFORMW 「不要、%CNAME("二人称","かな")%……%TEXTR("嗯/嗯唔")%……」
				PRINTFORMW %CALLNAME%的手被压在%CALLNAME:MASTER%的怀里、无法用力推開……

			ELSEIF CEVENT("レッスン：はじらい")
				PRINTFORMW 「啊……%TEXTR("嗯/嗯唔")%……」
				PRINTFORMW %CALLNAME%一边皱着眉頭一边接吻……

			ELSE
				PRINTFORMW 「%TEXTR("嗯/嗯姆")%……%TEXTR("嗯/嗯唔")%……？」
				PRINTFORMW %CALLNAME%好像不太清楚自己在做什么……
			ENDIF
		ENDIF
	CASE "膝枕"
		IF TALENT:恋慕
			PRINTFORMW 「呼呼……%TEXTR("很舒适/好温暖/总觉得有些害羞")%呢、%CNAME("二人称")%……」
			PRINTFORMW %CALLNAME%舒舒服服地枕在腿上。

		ELSEIF MARK:屈服刻印 >= 1
			PRINTFORMW 「……心情很平静……是这样吗……？」
			PRINTFORMW %CALLNAME%不可思议地体会着%CALLNAME:MASTER%大腿的触感。

		ELSE
			PRINTFORMW 「……？」
			PRINTFORMW %CALLNAME%好像不太理解这个状况。

		ENDIF
	CASE "泡茶"
		PRINTFORMW 「……十分感谢、%CNAME("二人称")%」
		PRINTFORM %CALLNAME%
		IF TALENT:恋慕 || MARK:屈服刻印 >= 1
			SIF !TALENT:恋慕
				PRINTFORM 隐约
			PRINTFORM 微笑着并

		ELSE
			PRINTFORM 低下頭

		ENDIF
		PRINTFORMW 接过茶

	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K17
	WAIT
CASE "性処理：前"
	SELECTCASE NAMES("性処理")
	CASE "手淫"
		CALL EVENT_K17_GEN, "性処理：前", "手淫"
	CASE "口交"
		CALL EVENT_K17_GEN, "性処理：前", "口交"
	CASE "乳交"
		CALL EVENT_K17_GEN, "性処理：前", "乳交"
	CASE "Ｖ性交"
		CALL EVENT_K17_GEN, "性処理：前", "ヴァギナ"
	CASE "Ａ性交"
		CALL EVENT_K17_GEN, "性処理：前", "肛門"
	CASE "尿道性交"
		CALL EVENT_K17_GEN, "性処理：前", "尿道"
	CASE "乳頭奸"
		CALL EVENT_K17_GEN, "性処理：前", "ニプル"
	ENDSELECT
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "手淫"
		CALL EVENT_K17_GEN, "奉仕", "手淫"
	CASE "口交"
		CALL EVENT_K17_GEN, "奉仕", "口交"
	CASE "乳交"
		CALL EVENT_K17_GEN, "奉仕", "乳交"
	CASE "Ｖ性交"
		CALL EVENT_K17_GEN, "性処理", "ヴァギナ"
	CASE "Ａ性交"
		CALL EVENT_K17_GEN, "性処理", "肛門"
	CASE "尿道性交"
		CALL EVENT_K17_GEN, "性処理", "尿道"
	CASE "乳頭奸"
		CALL EVENT_K17_GEN, "性処理", "ニプル"
	ENDSELECT
CASE "性処理：後"
	CALL EVENT_K17_GEN, "性処理：後"
CASE "帮忙消除性欲"
	SELECTCASE STR:PLAY要望
	CASE "舐陰"
		CALL EVENT_K17_GEN, "愛撫", "阴蒂"
	CASE "舐陰莖"

	CASE "口交"

	CASE "六九式"
		CALL EVENT_K17_GEN, "愛撫", "阴蒂"
	CASE "Ｖ性交"
		CALL EVENT_K17_GEN, "挿入", "ヴァギナ"
	CASE "Ａ性交"
		CALL EVENT_K17_GEN, "挿入", "肛門"
	CASE "尿道性交"
		CALL EVENT_K17_GEN, "挿入", "尿道"
	CASE "Ｖ性交する"

	CASE "Ａ性交する"

	ENDSELECT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请", "展示内褲"
;		IF TALENT:恋慕
;			PRINTFORMW
;		ENDIF
	CASE "推倒"
		PRINTFORMW 「诶……%CNAME("二人称")%……？」
		PRINTFORMW %CALLNAME%被突然袭击搞得目瞪口呆……
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		PRINTFORMW
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW 「……？」
			PRINTFORMW %CALLNAME%看见%CALLNAME:MASTER%也走了进来时、呆住了……

		ELSE
			PRINTFORMW %CALLNAME%像是什么都没发生过一样重新坐了下来……

		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「啊……」
		PRINTFORMW %CALLNAME%轻轻地走出房间……

	ENDIF
CASE "廁所詮索"
	IF TALENT:恋慕
		PRINTFORMW 「呼呼……%CNAME("二人称")%……偶尔也会恶作剧……」
		PRINTFORMW 被%CALLNAME%嘲笑了……

	ELSEIF !TALENT:不知羞恥
		PRINTFORMW 「%CNAME("二人称")%……不许问那种事……」
		PRINTFORMW %CALLNAME%有点害羞……

	ELSEIF CEVENT("レッスン：はじらい")
		PRINTFORMW 「……」
		PRINTFORMW %CALLNAME%的沉默非常尴尬……

	ELSE
		PRINTFORMW 「……厕所」
		PRINTFORMW %CALLNAME%面不改色地回答
		IF !CEVENT("レッスン：はじらい")
			PRINTFORMW ……还是教导这个孩子什么是羞耻心比较好吧……
			CALL SET_CEVENT, "イベント：はじらう？"
		ENDIF
	ENDIF

CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K17
		WAIT
	;害羞イベントを進めなければ合意状態
	ELSEIF COND("合意：检查阴部") == 0
		;拒否されたのに連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF !TALENT:不知羞恥
				PRINTFORMW 「%CNAME("二人称","どもり")%、呀……！」
				PRINTFORMW %CALLNAME%逃走了……

			ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
				PRINTFORMW 「%CNAME("二人称","どもり")%……真的、不行……」
				PRINTFORMW %CALLNAME%的脸涨起来了……

			ELSE
				PRINTFORMW 「%CNAME("二人称")%……不行、不要……」
				PRINTFORMW %CALLNAME%似乎遵守了教导过的害羞的感觉……

			ENDIF

		ELSE
			IF !TALENT:不知羞恥 || TALENT:恋慕
				PRINTFORMW 「……现在、现在不行……！」
				PRINTFORMW %CALLNAME%缩着身子按住了下摆……

			ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
				PRINTFORMW 「%CNAME("二人称","どもり")%……这样不行……」
				PRINTFORMW %CALLNAME%的脸涨起来了……这是至今为止没有过的反应……

			ELSE
				PRINTFORMW 「%CNAME("二人称","どもり")%……」
				PRINTFORMW %CALLNAME%双手握住下摆并感到困惑……

			ENDIF
		ENDIF
	ELSE
		IF !TALENT:不知羞恥
			PRINTFORMW 「%CNAME("二人称","どもり")%……好害羞……呜……」

		ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
			PRINTFORMW 「为什么……身体自己……！？」
			PRINTFORMW %CALLNAME%的身体颤抖着。
			PRINTFORMW %CALLNAME%的手在徘徊着、想要遮住下面……
			IF !CEVENT("イベント：はずかしい")
				PRINTL
				PRINTFORMW ……现在应该能教导%CALLNAME%明白羞耻心……
				CALL SET_CEVENT("イベント：はずかしい")
			ENDIF
		ELSEIF CEVENT("レッスン：はじらい")
			PRINTW 「……」
			PRINTFORMW %CALLNAME%用困惑的表情看着正在观察性器的%CALLNAME:MASTER%……

		ELSE
			PRINTW 「……？」
			IF !CEVENT("レッスン：ぱんつ") || !TALENT:不知羞恥
				PRINTFORMW ……教导这个孩子穿胖次比较好吧……
				SIF !CEVENT("イベント：沒穿")
					CALL SET_CEVENT, "イベント：沒穿"
			ELSEIF !CEVENT("レッスン：はじらい")
				PRINTFORMW ……还是教导这个孩子什么是羞耻心比较好吧……
				CALL SET_CEVENT, "イベント：はじらう？"
			ENDIF
		ENDIF
	ENDIF

CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K17
		WAIT
	ELSE
		;連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
				IF !TALENT:不知羞恥
					PRINTFORMW 「%CNAME("二人称","どもり")%……好害羞……呜……」

				ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
					PRINTFORMW 「为什么……身体自己……！？」
					PRINTFORMW %CALLNAME%的身体颤抖着。
					PRINTFORMW %CALLNAME%的手在徘徊着、想要遮住下面……
					IF !CEVENT("イベント：はずかしい")
						PRINTL
						PRINTFORMW ……现在应该能教导%CALLNAME%明白羞耻心……
						CALL SET_CEVENT("イベント：はずかしい")
					ENDIF
				ELSEIF CEVENT("レッスン：はじらい")
					PRINTW 「……」
					PRINTFORMW %CALLNAME%用困惑的表情看着正在观察胖次的%CALLNAME:MASTER%……
				ELSE
					PRINTW 「……？？」
					PRINTFORMW %CALLNAME%惊讶地看着%CALLNAME:MASTER%……

				ENDIF

		ELSE
			IF !TALENT:不知羞恥
				PRINTFORMW 「%TEXTR("啊/嗯姆/库")%……%TEXTR("唔/哈呜/啊呜")%……」
				PRINTFORMW %CALLNAME%秀美的双脚不停颤抖着忍受羞耻感……

			ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
				PRINTFORMW 「……！？！？」
				PRINTFORMW %CALLNAME%的脸红得发烫。
				PRINTFORMW %CALLNAME%似乎为自己身体的反应感到混乱。

			ELSEIF CEVENT("レッスン：はじらい")
				PRINTFORMW 「……」
				PRINTFORMW %CALLNAME%用困惑的表情看着正在观察胖次的%CALLNAME:MASTER%……

			ELSE
				PRINTFORMW 「……？」

			ENDIF
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K17
		WAIT
	ELSEIF CFLAG:股間確認済 && RAND:2
		PRINTFORMW
	;心情好
	ELSEIF CFLAG:夸奖
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "胖次を見せて要"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		IF !TALENT:不知羞恥
			PRINTFORMW 「%CNAME("二人称")%……好、好害羞……」

		ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
			PRINTFORMW 「……！？！？」
			PRINTFORMW %CALLNAME%的脸红得发烫……

		ELSEIF CEVENT("レッスン：はじらい")
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME%用困惑的表情看着正在观察胖次的%CALLNAME:MASTER%……

		ELSE
			PRINTFORMW 「……？」
			PRINTFORMW %CALLNAME%随意地卷起下摆。
			IF !CEVENT("レッスン：はじらい")
				PRINTFORMW ……还是教导这个孩子什么是羞耻心比较好吧……
				CALL SET_CEVENT, "イベント：はじらう？"
			ENDIF
		ENDIF
	ELSE
		IF !TALENT:不知羞恥
			PRINTFORMW 「%TEXTR("啊/嗯姆/库")%……%TEXTR("唔/哈呜/啊呜")%……」
			PRINTFORMW %CALLNAME%秀美的双脚不停颤抖着忍受羞耻感……

		ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
			PRINTFORMW 「……！？！？」
			PRINTFORMW %CALLNAME%的脸红得发烫。
			PRINTFORMW %CALLNAME%似乎为自己身体的反应感到混乱。

		ELSEIF CEVENT("レッスン：はじらい")
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME%用困惑的表情看着正在观察胖次的%CALLNAME:MASTER%……

		ELSE
			PRINTFORMW 「……？」
			IF !CEVENT("レッスン：はじらい")
				PRINTFORMW ……还是教导这个孩子什么是羞耻心比较好吧……
				CALL SET_CEVENT, "イベント：はじらう？"
			ENDIF
		ENDIF
	ENDIF
CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		IF EQUIP:胖次 == 0
			IF !TALENT:不知羞恥
				PRINTFORMW 「%CNAME("二人称","どもり")%……不、不是这样的……！」
				PRINTFORMW 明明故意没有穿胖次、还说不是……

			ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
				PRINTFORMW 「%CNAME("二人称","どもり")%……不、不是这样的……！」
				PRINTFORMW %CALLNAME%的身体颤抖着。
				PRINTFORMW %CALLNAME%手在自己的鼠径部揉搓着、藏起来的本心显露无疑……
				IF !TALENT:不知羞恥
					PRINTL
					PRINTFORMW ……现在应该能教导%CALLNAME%明白羞耻心……
					CALL SET_CEVENT("イベント：はずかしい")

				ENDIF

			ELSEIF CEVENT("レッスン：はじらい")
				PRINTW 「……」
				PRINTFORMW %CALLNAME%用困惑的表情看着正在观察性器的%CALLNAME:MASTER%……

			ELSE
				PRINTW 「……？」
				IF !CEVENT("レッスン：ぱんつ")
					PRINTFORMW ……教导这个孩子穿胖次比较好吧……
					CALL SET_CEVENT, "イベント：沒穿"
				ELSEIF !CEVENT("レッスン：はじらい")
					PRINTFORMW ……还是教导这个孩子什么是羞耻心比较好吧……
					CALL SET_CEVENT, "イベント：はじらう？"
				ENDIF
			ENDIF
		ELSEIF !TALENT:不知羞恥
			PRINTFORM 「%CNAME("二人称","どもり")%……
			IF COND("胖次チラ直後")
				PRINTFORMW 胖次……请好好地看吧……」

			ELSE
				PRINTFORMW %CNAME("一人称")%的胖次……请、请看吧……」

			ENDIF
			PRINTFORMW 耳朵都红了的%CALLNAME%、念出即便如此也要说的台词……

		ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
			PRINTFORMW 「为什么……身体自己……！？」
			PRINTFORMW %CALLNAME%的身体颤抖着。
			PRINTFORMW %CALLNAME%手在自己的鼠径部揉搓着、藏起来的本心显露无疑……
			IF !CEVENT("イベント：はずかしい")
				PRINTL
				PRINTFORMW ……现在应该能教导%CALLNAME%明白羞耻心……
				CALL SET_CEVENT("イベント：はずかしい")
			ENDIF
		ELSEIF CEVENT("レッスン：はじらい")
			PRINTW 「……」
			PRINTFORMW %CALLNAME%用困惑的表情看着正在观察胖次的%CALLNAME:MASTER%……

		ELSE
			PRINTW 「……？」
			IF  !CEVENT("レッスン：はじらい")
				PRINTFORMW ……还是教导这个孩子什么是羞耻心比较好吧……
				CALL SET_CEVENT, "イベント：はじらう？"
			ENDIF
		ENDIF

	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW 「……%CNAME("二人称","かな")%……？」
			IF CHECK_CLO("没穿内褲")
				PRINTFORMW ……教导这个孩子穿胖次比较好吧……
				CALL SET_CEVENT, "イベント：沒穿"
			ENDIF

		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K17
			IF CHECK_CLO("没穿内褲")
				PRINTFORMW ……教导这个孩子穿胖次比较好吧……
				CALL SET_CEVENT, "イベント：沒穿"

			ENDIF
			WAIT
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			IF !TALENT:不知羞恥
				PRINTFORMW 「%CNAME("二人称","どもり")%……胖次……请好好地看吧……」
				PRINTFORMW 耳朵都红了的%CALLNAME%、念出即便如此也要说的台词……

			ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
				PRINTFORMW 「为什么……身体自己……！？」
				PRINTFORMW %CALLNAME%的身体颤抖着。
				PRINTFORMW %CALLNAME%手在自己的鼠径部揉搓着、藏起来的本心显露无疑……
					IF !CEVENT("イベント：はずかしい")
						PRINTL
						PRINTFORMW ……现在应该能教导%CALLNAME%明白羞耻心……
						CALL SET_CEVENT("イベント：はずかしい")
					ENDIF
			ELSEIF CEVENT("レッスン：はじらい")
				PRINTW 「……」
				PRINTFORMW %CALLNAME%用困惑的表情看着正在观察胖次的%CALLNAME:MASTER%……

			ELSE
				PRINTW 「……？」
				IF CHECK_CLO("没穿内褲") && ( !CEVENT("レッスン：ぱんつ") || !TALENT:不知羞恥 )
					PRINTFORMW ……教导这个孩子穿胖次比较好吧……
					CALL SET_CEVENT, "イベント：沒穿"
				ENDIF
			ENDIF
		ELSE
			IF COND("打招呼前")
				IF !TALENT:不知羞恥
					PRINTFORMW 「%CNAME("二人称","どもり")%……突、突然、这样子……不行……」
					PRINTFORMW 压着下摆的%CALLNAME%没法阻止%CALLNAME:MASTER%的力量……

				ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
					PRINTFORMW 「为什么……身体自己……！？」
					PRINTFORMW %CALLNAME%的身体颤抖着。
					PRINTFORMW %CALLNAME%手在自己的鼠径部揉搓着、藏起来的本心显露无疑……
					IF !TALENT:不知羞恥
						PRINTL
						PRINTFORMW ……现在应该能教导%CALLNAME%明白羞耻心……
						CALL SET_CEVENT("イベント：はずかしい")

					ENDIF

				ELSEIF CEVENT("レッスン：はじらい")
					PRINTW 「……」
					PRINTFORMW %CALLNAME%用困惑的表情看着正在观察胖次的%CALLNAME:MASTER%……

				ELSE
					PRINTW 「……？」
					IF CHECK_CLO("没穿内褲") && ( !CEVENT("レッスン：ぱんつ") || !TALENT:不知羞恥 )
						PRINTFORMW ……教导这个孩子穿胖次比较好吧……
						CALL SET_CEVENT, "イベント：沒穿"

					ENDIF
				ENDIF
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					IF !TALENT:不知羞恥
						PRINTFORMW 「%CNAME("二人称","どもり")%……不、不是这样的……！」
						PRINTFORMW 明明故意没有穿胖次、还说不是……

					ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
						PRINTFORMW 「为什么……身体自己……！？」
						PRINTFORMW %CALLNAME%的身体颤抖着。
						PRINTFORMW %CALLNAME%手在自己的鼠径部揉搓着、藏起来的本心显露无疑……
						IF !TALENT:不知羞恥
							PRINTL
							PRINTFORMW ……现在应该能教导%CALLNAME%明白羞耻心……
							CALL SET_CEVENT("イベント：はずかしい")

						ENDIF

					ELSEIF CEVENT("レッスン：はじらい")
						PRINTW 「……」
						PRINTFORMW %CALLNAME%用困惑的表情看着正在观察性器的%CALLNAME:MASTER%……

					ELSE
						PRINTW 「……？」
						IF !CEVENT("レッスン：ぱんつ")
							PRINTFORMW ……教导这个孩子穿胖次比较好吧……
							CALL SET_CEVENT, "イベント：沒穿"
						ELSEIF !CEVENT("レッスン：はじらい")
							PRINTFORMW ……还是教导这个孩子什么是羞耻心比较好吧……
							CALL SET_CEVENT, "イベント：はじらう？"
						ENDIF
					ENDIF
				ELSE
					IF !TALENT:不知羞恥
						PRINTFORMW 「%TEXTR("啊/嗯姆/库")%……%TEXTR("唔/哈呜/啊呜")%……」
						PRINTFORMW %CALLNAME%秀美的双脚不停颤抖着忍受羞耻感……

					ELSEIF EXP:羞恥快楽経験 >= 50 && ABL:欲望 >= 5
						PRINTFORMW 「……！？！？」
						PRINTFORMW %CALLNAME%的脸红得发烫。
						PRINTFORMW %CALLNAME%似乎为自己身体的反应感到混乱。

					ELSEIF CEVENT("レッスン：はじらい")
						PRINTFORMW 「……」
						PRINTFORMW %CALLNAME%用困惑的表情看着正在观察胖次的%CALLNAME:MASTER%……

					ELSE
						PRINTFORMW 「……？」
						IF !CEVENT("レッスン：はじらい") && CSTR:PREV_DAILYCOM == STR:日常イベント名
							PRINTFORMW ……还是教导这个孩子什么是羞耻心比较好吧……
							CALL SET_CEVENT, "イベント：はじらう？"
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
ENDSELECT

path: ERB/EVENT_K/17 小菊/EVENT_K17_DAILY.ERB


code:
;-------------------------------------------------
;手抜きのための汎用喘ぎ声ジェネレータ
;-------------------------------------------------
;ARGS	= 性行動の分類　愛撫・お掃除・挿入etc
;ARGS:1	= 性行動の対象など条件分岐に使用するデータ
;-------------------------------------------------
@EVENT_K17_GEN, ARGS, ARGS:1

SELECTCASE ARGS
;愛撫 第二引数は部位指定で"阴蒂","ヴァギナ","肛門","胸圍","愛撫"（ＣとＢ）のい移開か
CASE "愛撫"
	;合体中は別処理
	IF INSERT("挿入")
		IF ( INSERT("Ｖ挿入") && ABL:Ｖ感覚 >= 5 ) || ( INSERT("Ａ挿入") && ABL:Ａ感覚 >= 5 ) || ( INSERT("尿道挿入") && ABL:尿道感覚 >= 5 )
			IF TALENT:恋慕 || !TALENT:不知羞恥 || MARK:屈服刻印 >= 2
				PRINT 「
				SIF RAND:3 == 0
					PRINTFORM %CNAME("二人称","かな")%っ！
				SIF RAND:3 == 0
					PRINTFORM %CNAME("二人称","かな","甘え")%っ！！
				SIF RAND:3
				PRINTFORM いじりながらうごい%TEXTR("ちゃ/ひゃ")%……

				IF RAND:3

				ELSEIF INSERT("Ｖ挿入") && ABL:欲望 >= 5
					PRINTFORM おまんこ

				ELSEIF INSERT("Ａ挿入") && ABL:欲望 >= 5
					PRINTFORM %TEXTR("おしり/おひり")%

				ELSEIF INSERT("尿道挿入") && ABL:欲望 >= 5
					PRINTFORM %TEXTR("その/おしっこ/おひっこ")%あな

				ENDIF

				PRINTFORMW %TEXTR("こわれちゃう/こわれひゃう/だめぇ/らめぇ/おかしくなる/おかしくなっひゃう")%っっ！」

				PRINTFORM 「%TEXTR("あっ/あっ/やっ/んっ/くっ/おっ")%\@ RAND:2 ? ！　 # …… \@%TEXTR("あっ/あっ/やっ/んっ/くっ/おっ")%\@ RAND:2 ? ！　 # …… \@
				PRINTFORMW %TEXTR("あっ/あっ/やっ/んっ/くっ/おっ")%\@ RAND:2 ? ！　 # …… \@%TEXTR("あっ/あっ/やっ/んっ/くっ/おっ")%\@ RAND:2 ? ！　 # …… \@%TEXTR("あぅっ/あああっ/やぁっ/ひんっ/くぅぅっ")%！」

			ELSE
				IF ( ARGS:1 == "阴蒂" && ABL:Ｃ感覚 >= 5 ) || ( ARGS:1 == "ヴァギナ" && ABL:Ｖ感覚 >= 5 ) || ( ARGS:1 == "肛門" && CHECK("Ａ指挿入") ) || ( ARGS:1 == "胸圍" && ABL:Ｂ感覚 >= 5 )
					PRINTFORM 「%TEXTR("あ゛っ/んっ/ぐっ/お゛っ")%\@ RAND:2 ? ！　 # …… \@%TEXTR("あ゛っ/んっ/ぐっ/お゛っ")%\@ RAND:2 ? ！　 # …… \@
					PRINTFORMW %TEXTR("あ゛っ/んっ/ぐっ/お゛っ")%\@ RAND:2 ? ！　 # …… \@%TEXTR("あ゛っ/んっ/ぐっ/お゛っ")%\@ RAND:2 ? ！　 # …… \@」
				ELSE
					PRINTFORM 「%TEXTR("あっ/んっ/くっ/おっ")%\@ RAND:2 ? ！　 # …… \@%TEXTR("あっ/んっ/くっ/おっ")%\@ RAND:2 ? ！　 # …… \@
					PRINTFORMW %TEXTR("あっ/んっ/くっ/おっ")%\@ RAND:2 ? ！　 # …… \@%TEXTR("あっ/んっ/くっ/おっ")%\@ RAND:2 ? ！　 # …… \@」
				ENDIF
				SIF RAND:3
					PRINTFORMW %CALLNAME%は敏感な箇所を同時に責められて、目を白黒させている……

			ENDIF

		ELSE
			IF TALENT:恋慕 || !TALENT:不知羞恥 || MARK:屈服刻印 >= 2
				PRINT 「
				SIF RAND:3 == 0
					PRINTFORM %CNAME("二人称","かな")%……
				PRINTFORMW %TEXTR("はぅ/くぅ/はぁ/んく")%\@ RAND:2 ? っ…… # …… \@」
				IF RAND:3 == 0 && ( ARGS:1 == "阴蒂" && ABL:Ｃ感覚 >= 5 ) || ( ARGS:1 == "ヴァギナ" && ABL:Ｖ感覚 >= 5 ) || ( ARGS:1 == "肛門" && CHECK("Ａ指挿入") ) || ( ARGS:1 == "尿道" && ABL:尿道感覚 >= 5 ) ||  ( ARGS:1 == "胸圍" && ABL:Ｂ感覚 >= 5 )
					PRINTFORMW 「うん、だいじょうぶ……酱ときもちいいよ、%CNAME("二人称","かな")%……」
					PRINTFORM %CALLNAME%、慣れない
					IF INSERT("Ｖ挿入")
						PRINTFORM 阴道

					ELSEIF INSERT("Ａ挿入")
						PRINTFORM 肛門

					ELSEIF INSERT("尿道挿入")
						PRINTFORM 尿道
					ENDIF
					PRINTFORMW よりも愛撫で感じているようだ……

				ENDIF

			ELSE
				PRINT 「
				SIF RAND:3 == 0
					PRINTFORM %CNAME("二人称","かな")%……
				PRINTFORMW %TEXTR("はぅ/くぅ/はぁ/んく")%\@ RAND:2 ? っ…… # …… \@」
				IF RAND:3 == 0 && ( ARGS:1 == "阴蒂" && ABL:Ｃ感覚 >= 5 ) || ( ARGS:1 == "ヴァギナ" && ABL:Ｖ感覚 >= 5 ) || ( ARGS:1 == "肛門" && CHECK("Ａ指挿入") ) || ( ARGS:1 == "尿道" && ABL:尿道感覚 >= 5 ) || ( ARGS:1 == "胸圍" && ABL:Ｂ感覚 >= 5 )
					PRINTFORM 「%TEXTR("あっ/ふあ/んんっ")%……
					SIF RAND:3 == 0
						PRINTFORM %TEXTR("そこ/そこは")%……
					PRINTFORMW %TEXTR("くぅ/っっ/あぅっ")%…\@ RAND:2 ? …！ # …？ \@」
					PRINTFORM %CALLNAME%、慣れない
					IF INSERT("Ｖ挿入")
						PRINTFORM 阴道

					ELSEIF INSERT("Ａ挿入")
						PRINTFORM 肛門

					ELSEIF INSERT("尿道挿入")
						PRINTFORM 尿道
					ENDIF
					PRINTFORMW よりも愛撫に反応しているようだ……

				ENDIF
			ENDIF
		ENDIF

	;恋慕かつ、(1)欲望5以上(2)Ｃ愛撫指定でＣ感覚5以上(3)Ｖ愛撫指定でＶ感覚5以上(4)Ａ愛撫指定でＡは指挿入で感じられている(5)Ｂ愛撫指定でＢ感覚5以上
	ELSEIF TALENT:恋慕 && ( ABL:欲望 >= 5 || ( ARGS:1 == "阴蒂" && ABL:Ｃ感覚 >= 5 ) || ( ARGS:1 == "ヴァギナ" && ABL:Ｖ感覚 >= 5 ) || ( ARGS:1 == "肛門" && CHECK("Ａ指挿入") ) || ( ARGS:1 == "胸圍" && ABL:Ｂ感覚 >= 5 ) || ( ARGS:1 == "尿道" && ABL:尿道感覚 >= 5 ))
		PRINT 「
		SIF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%\@ RAND:2 ? ！　 # …… \@
		PRINTFORM %TEXTR("あっ/ふあぁ/だめぇ/すきぃ/そんなっ")%\@ RAND:2 ? ！　 # …… \@
		;欲望3以上で淫語
		IF RAND:3 == 0
			IF ABL:欲望 >= 3 && ARGS:1 == "阴蒂"
				PRINTFORM %TEXTR("くり/おまめ/くりとりす/えっちなとこ/そこ/そこは")%

			ELSEIF ABL:欲望 >= 3 && ARGS:1 == "ヴァギナ"
				;玩弄Ｇ点かつＶ指挿入で感じている
				IF CHECK_COM("玩弄Ｇ点") && CHECK("指挿入")
					PRINTFORM %TEXTR("そこはだめぇ/おかしくなっちゃう/ヘンになっちゃう/えっちなとこ/そこ/そこは")%

				ELSE
					PRINTFORM %TEXTR("おまんこ/おんなのこのとこ/えっちなとこ/そこ/そこは")%

				ENDIF
			ELSEIF ABL:欲望 >=3 && ARGS:1 == "肛門"
				PRINTFORM %TEXTR("おしり/だめなとこ/おしりのあな/そこ/そこは")%

			ELSEIF ABL:欲望 >=3 && ARGS:1 == "尿道"
				PRINTFORM %TEXTR("にょうどう/だめなとこ/おしっこのあな/おひっこあな/そこ/そこは")%

			ELSEIF ABL:欲望 >=3 && ARGS:1 == "胸圍"
				PRINTFORM %TEXTR("おむね/胸部/そこ/そこは")%

			ELSEIF ABL:欲望 >3 && ARGS:1 == "愛撫"
				PRINTFORM %TEXTR("いっぱいいじっちゃ/いっぱい/りょうほうなんて/りょうほう/そこ/そこは")%

			ELSE
				PRINTFORM %TEXTR("そこ/そこは/そんなとこ")%

			ENDIF
			PRINTFORM \@ RAND:2 == 0 ? っ！　 # …… \@

		ENDIF

		PRINTFORM %TEXTR("あ/あう/ああ/君/すきぃ/きもちいい/かんじちゃう/いっちゃう")%
		SIF RAND:3 == 0
			PRINTFORM \@ RAND:2 ? っ！　 # …… \@%CNAME("二人称","かな","甘え")%
		PRINTFORMW \@ RAND:2 ? っ！ # …… \@」

	;恋慕
	ELSEIF TALENT:恋慕
		PRINT 「
		SIF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%……
		PRINTFORM %TEXTR("あっ/ふあ/ん")%……
		SIF RAND:3 == 0
			PRINTFORM %TEXTR("そこ/そこは/そんなとこ")%……
		PRINTFORM %TEXTR("あっ/んんっ/うれしい/すきぃ/かんじちゃう")%
		SIF RAND:3 == 0
			PRINTFORM ……%CNAME("二人称","かな","甘え")%
		PRINTFORMW \@ RAND:2 ? ……！ # …… \@」

	;(1)欲望5以上(2)Ｃ愛撫指定でＣ感覚5以上(3)Ｖ愛撫指定でＶ感覚5以上(4)Ａ愛撫指定でＡは指挿入で感じられている(5)Ｂ愛撫指定でＢ感覚5以上
	ELSEIF ABL:欲望 >= 5 || ( ARGS:1 == "阴蒂" && ABL:Ｃ感覚 >= 5 ) || ( ARGS:1 == "ヴァギナ" && ABL:Ｖ感覚 >= 5 ) || ( ARGS:1 == "肛門" && CHECK("Ａ指挿入") ) || ( ARGS:1 == "胸圍" && ABL:Ｂ感覚 >= 5 ) || ( ARGS:1 == "尿道" && ABL:尿道感覚 >= 5 )
		PRINTFORM 「%TEXTR("あっ/ふあ/んんっ")%……
		SIF RAND:3 == 0
			PRINTFORM %TEXTR("そこ/そこは")%……
		PRINTFORMW %TEXTR("くぅ/っっ/あぅっ")%…\@ RAND:2 ? …！ # …？ \@」

	;其他はほぼマグロ
	ELSE
		PRINTFORMW 「%TEXTR("ん/ぁ/ぅ")%……%TEXTR("んん/んっ/あ")%…\@ RAND:2 ? …？ # … \@」

	ENDIF

;お掃除系 第二引数は不要
CASE "お掃除"
	IF TALENT:恋慕
		PRINTFORMW 「%TEXTR("あっ/ふあ/ん")%……%CNAME("二人称","かな")%……やさしい……」
		PRINTFORMW %CALLNAME%は快感以上に幸福感を満喫しているようだ……

	ELSEIF !TALENT:不知羞恥
		PRINTFORMW 「%TEXTR("あ/や/だめぇ")%……%CNAME("二人称","かな","甘え")%……はずかしい……」
		PRINTFORMW %CALLNAME%は消え入りたそうに身体をすくめている……

	ELSEIF CEVENT("レッスン：はじらい")
		PRINTFORMW 「あっ……%CNAME("二人称","かな","どもり")%……！？」
		PRINTFORMW %CALLNAME%は困惑しながら%CALLNAME:PLAYER%を看了过来……

	ELSEIF ABL:欲望 >= 3 || ABL:Ｃ感覚 >= 5
		PRINTFORM 「%TEXTR("あっ/んくっ/んっ")%\@ RAND:2 ? 、 # ！　 \@」%TEXTR("あっ/ふあ/んんっ")%……%CNAME("二人称","かな")%…\@ RAND:2 ? …！ # …？ \@」
		PRINTFORM 掃除をしても、次から次へと愛液が溢れてくる……

	ELSE
		PRINTFORMW 「%TEXTR("ん/ぁ/ぅ")%……%TEXTR("んん/んっ/あ")%…\@ RAND:2 ? …？ # … \@」
		PRINTFORMW %CALLNAME%被任意摆布……

	ENDIF

CASE "奉仕"
	IF TALENT:恋慕 && ( ABL:奉仕精神 >= 5 || ABL:精液中毒 >= 5 )
		PRINT 「
		SIF RAND:3 == 0
			CALL PRINT_STR, @"%CNAME("二人称","かな")%　%TEXTR("_H_/…/……")%"

		IF RAND:3 == 0 && ( ABL:奉仕精神 >= 3 || ABL:精液中毒 >= 3 )
			IF ARGS:1 == "手淫"
				PRINTFORM %TEXTR("しゅっしゅっ/こう…かな？")%
			ELSEIF ARGS:1 == "口交"
				PRINTFORM %TEXTR("んっ/ちゅぷっ/ぷはっ")%
			ELSEIF ARGS:1 == "乳交"
				PRINTFORM %TEXTR("んっ/あっ…/ちくび…こすれてっ…")%
			ELSE
				PRINTFORM %TEXTR("きもち…いい…？/ぴ君ってしてる/ふふっ/いっぱいだして")%
			ENDIF
		ELSE
			CALL PRINT_STR, @"%TEXTR("ふふっ/ぴ君って/んっ")%_H_"
		ENDIF
	ELSEIF TALENT:恋慕
		PRINT 「
		SIF RAND:3 == 0
			CALL PRINT_STR, @"%CNAME("二人称","かな")%　%TEXTR("_H_/…/……")%"
		SIF RAND:3 == 0 && ABL:奉仕精神 >= 3
			CALL PRINT_STR, @"%CNAME("一人称")%がいっぱいごほうしするから…ね%TEXTR("_H_/？/……")%"

		IF ARGS:1 == "手淫" && RAND:3 == 0
			PRINTFORM %TEXTR("しゅっしゅっ/こう…かな？")%
		ELSEIF ARGS:1 == "口交" && RAND:3 == 0
			PRINTFORM %TEXTR("んっ/ちゅぷっ/ぷはっ")%
		ELSEIF ARGS:1 == "乳交" && RAND:3 == 0
			PRINTFORM %TEXTR("んっ/あっ…/ちくび…こすれてっ…/胸部…すき…？")%
		ELSE
			PRINTFORM %TEXTR("きもち…いい…？/ぴ君ってしてる/ふふっ/いい…よ？")%
		ENDIF
	ELSEIF ABL:奉仕精神 >= 5 || ABL:精液中毒 >= 5
		PRINT 「
		SIF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%…っ
		PRINTFORM %TEXTR("酱と…できてる…？/きもち…いい…？/んっ…んっ…")%
	ELSE
		PRINT 「
		PRINTFORM %TEXTR("これでいいの…？/酱と…できてる…？/きもちいい…の…？")%

	ENDIF
	PRINTW 」
	IF ABL:技巧 >= 5

	ELSE

	ENDIF
;挿入 第二引数は"ヴァギナ","肛門"
CASE "挿入"
	;恋慕かつ(1)欲望5以上(2)膣性交指定でＶ感覚5以上(3)肛門性交指定でＡは男性器挿入で感じられる
	IF TALENT:恋慕 && ( ABL:欲望 >= 5 || ( ARGS:1 == "ヴァギナ" && ABL:Ｖ感覚 >= 5 ) || ( ARGS:1 == "肛門" && CHECK("Ａ挿入") ) || ( ARGS:1 == "尿道" && CHECK("尿道挿入") ) || ( ARGS:1 == "ニプル" && SELECTCOM == 82))
		PRINT 「
		SIF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%\@ RAND:2 ? ！　 # …… \@
			SIF RAND:3 == 0
				PRINTFORM %CNAME("二人称","かな","甘え")%\@ RAND:2 ? っ！　 # っ……！  \@

		PRINTFORM %TEXTR("あっ/ふあぁ/だめぇ/すきぃ/そんなっ/えっちぃっ/うそっ")%\@ RAND:2 ? ！　 # …… \@
			;欲望3以上で淫語
			IF ABL:欲望 >= 3 && RAND:3 == 0
				IF ARGS:1 == "ヴァギナ"
					PRINTFORM %TEXTR("こんこんしてるぅ/奥だめぇ/すごいよぅ/おかしくなっちゃう/ヘンになっちゃう/おまんここわれちゃう/こわれちゃう/それだめぇ/そこ/そこは")%

				ELSEIF ARGS:1 == "子宮"
					PRINTFORM %TEXTR("しきゅうのなかこんこんしてるぅ/しきゅうだめぇ/すごいよぅ/おかしくなっちゃう/しきゅうヘンになっちゃう/しきゅうこわれちゃう/こわれちゃう/しきゅう")%
				ELSEIF ABL:欲望 >=3 && ARGS:1 == "肛門"
					PRINTFORM %TEXTR("おしり/だめなとこ/おしりのあな/そこ/そこは")%

				ELSEIF ABL:欲望 >=3 && ARGS:1 == "尿道"
					PRINTFORM %TEXTR("にょうどう/だめなとこ/おしっこのあな/おひっこのあな/そこ/そこは")%

				ELSEIF ABL:欲望 >=3 && ARGS:1 == "ニプル"
					PRINTFORM %TEXTR("ちくび/だめなとこ/むねのなか/そこ/そこは")%

				ELSE
					PRINTFORM %TEXTR("ずぼずぼしてるぅ/奥だめぇ/すごいよぅ/おかしくなっちゃう/ヘンになっちゃう/こわれちゃう/それだめぇ/そこ/そこは")%

				ENDIF

			ELSE
				PRINTFORM %TEXTR("那个位置/那里是/不行了")%

			ENDIF
			PRINTFORM \@ RAND:2 ? っ！　 # …… \@
			PRINTFORM %TEXTR("あ/あう/ああ/君/すきぃ/きもちいい/かんじちゃう/いっちゃう")%
			SIF RAND:3 == 0
				PRINTFORM \@ RAND:2 ? っ！　 # …… \@%CNAME("二人称","かな","甘え")%
			PRINTFORMW \@ RAND:2 ? っ！ # ……！ \@」

	;恋慕
	ELSEIF TALENT:恋慕
		PRINT 「
		SIF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%……
		PRINTFORM %TEXTR("あ/ふあ/ん")%……
		SIF RAND:3 == 0
			PRINTFORM %TEXTR("そこ/すごい/えっちぃ")%……
		PRINTFORM %TEXTR("あっ/んんっ/うれしい/すきぃ/かんじちゃう")%
		SIF RAND:3 == 0
			PRINTFORM ……%CNAME("二人称","かな","甘え")%
		PRINTFORMW \@ RAND:2 ? ……！ # っ！ \@」

	;(1)欲望5以上(2)膣性交指定でＶ感覚5以上(3)肛門性交指定でＡは男性器挿入で感じられる
	ELSEIF ABL:欲望 >= 5 || ( ARGS:1 == "ヴァギナ" && ABL:Ｖ感覚 >= 5 ) || ( ARGS:1 == "肛門" && CHECK("Ａ挿入") )　|| ( ARGS:1 == "尿道" && CHECK("尿道挿入")) || ( ARGS:1 == "ニプル" && SELECTCOM == 82)
			PRINTFORM 「%TEXTR("啊/嗯/呀")%\@ RAND:2 ? ！　 # …… \@%TEXTR("呀/嗯库/嗯哼/库/啊")%
			SIF RAND:3 == 0
				PRINTFORM \@ RAND:2 ? ！　 # …… \@%CNAME("二人称","かな","甘え")%
			PRINTFORM \@ RAND:2 ? ！  # ……！  \@　%TEXTR("あ/あう/ああ/君/これヘン")%
			PRINTFORMW \@ RAND:2 ? っ！ # ……！ \@」

	;其他はマグロ　ＶorＡ潤滑で分岐
	ELSE

		IF ( ARGS:1 == "ヴァギナ" && PALAM:Ｖ潤 < 3000 ) || ( ARGS:1 == "肛門" && PALAM:Ａ潤 < 3000 )|| ( ARGS:1 == "尿道" && PALAM:Ｖ潤 < 3000 ) || ( ARGS:1 == "ニプル" && SELECTCOM == 82)
			PRINTFORMW 「%TEXTR("んく/く/う")%……%TEXTR("あうっ/んんっ/くぅっ")%…\@ RAND:2 ? …！ # …！？ \@」

		ELSE
			PRINTFORMW 「%TEXTR("はっ/あっ/んっ")%……%TEXTR("あっ/んっ/くぅ")%…\@ RAND:2 ? … # …？ \@」

		ENDIF
	ENDIF
CASE "性処理：前"
	PRINT 「
	IF RAND:3 == 0
		PRINTFORM %CNAME("二人称","かな")%
		SIF RAND:3 == 0
			CALL PRINT_STR, @"_H_"
	ENDIF
	PRINTFORM %CNAME("一人称")%の
	IF ARGS:1 == "ヴァギナ" && RAND:3 == 0
		SIF RAND:3 == 0 && (TALENT:淫乱 || TALENT:淫壷)
			PRINTFORM えっちな
		PRINTFORM おまんこ

	ELSEIF  ARGS:1 == "肛門" && RAND:3 == 0
		SIF RAND:3 == 0 && (TALENT:淫乱 || TALENT:尻穴狂い)
			PRINTFORM えっちな
		PRINTFORM %TEXTR("おしり/おしりのあな")%

	ELSEIF ARGS:1 == "尿道" && RAND:3 == 0
		SIF RAND:3 == 0 && (TALENT:淫乱 || TALENT:尿道狂)
			PRINTFORM えっちな
		PRINTFORM %TEXTR("にょうどう/おしっこのあな")%

	ELSEIF ARGS:1 == "ニプル" && RAND:3 == 0
		SIF RAND:3 == 0 && (TALENT:淫乱 || TALENT:淫乳)
			PRINTFORM えっちな
		PRINTFORM %TEXTR("ちくび/胸部")%
	ELSEIF ARGS:1 == "手淫" && RAND:3 == 0
		SIF TALENT:淫乱 && RAND:3 == 0
			PRINTFORM えっちな
		PRINTFORM て
	ELSEIF ARGS:1 == "口交" && RAND:3 == 0
		SIF TALENT:淫乱 && RAND:3 == 0
			PRINTFORM えっちな
		PRINTFORM %TEXTR("くち/おくち")%
	ELSEIF ARGS:1 == "乳交" && RAND:3 == 0
		SIF TALENT:淫乱 && RAND:3 == 0
			PRINTFORM えっちな
		PRINTFORM %TEXTR("むね/胸部")%
	ELSE
		SIF RAND:3 == 0 && (TALENT:淫乱 || TALENT:淫乳 || TALENT:尿道狂 || TALENT:尻穴狂い || TALENT:淫壷)
			PRINTFORM えっちな
		PRINTFORM からだ

	ENDIF
	CALL PRINT_STR, @"で%TEXTR("……/…/_H_")%"
	PRINTFORMW ごほうしするね？」
CASE "性処理"
	IF ABL:奉仕精神 >= 5 && TALENT:恋慕 && RAND:3 == 0
		PRINT 「
		IF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%
			SIF RAND:3 == 0
				CALL PRINT_STR, @"_H_"
		ENDIF
		PRINTFORM そんなに%TEXTR("ついちゃ/つよいと/はげしいと")%
		IF ARGS:1 == "ヴァギナ"
			CALL PRINT_STR, @"%TEXTR("おまんこ/んっ_H_")%"

		ELSEIF ARGS:1 == "肛門"
			PRINTFORM %TEXTR("おしり/おしりのあな")%

		ELSEIF ARGS:1 == "尿道"
			PRINTFORM %TEXTR("にょうどう/おしっこのあな/おひっこのあな")%

		ELSEIF ARGS:1 == "ニプル"
			PRINTFORM %TEXTR("ちくび/むねのなか/胸部のなか")%
		ENDIF
		PRINTFORM %TEXTR("イっちゃう/おかしくなっちゃう/ヘンになっちゃう/こわれちゃう")%
		SIF RAND:3 == 0
			CALL PRINT_STR, @"_H_"
		PRINTFORMW 」
	ELSEIF TALENT:恋慕
		PRINT 「
		SIF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%……
		PRINTFORM %TEXTR("あ/ふあ/ん")%……
		SIF RAND:3 == 0
			PRINTFORM %TEXTR("そこ……/すごい……/きもち…いい…？")%
		PRINTFORM %TEXTR("あっ/んんっ/うれしい/すきぃ")%
		SIF RAND:3 == 0
			PRINTFORM ……%CNAME("二人称","かな","甘え")%
		PRINTFORMW \@ RAND:2 ? ……！ # っ！ \@」
	ELSE
		PRINTFORMW 「%TEXTR("んく/く/う")%……%TEXTR("あうっ/んんっ/くぅっ")%…\@ RAND:2 ? …！ # …！？ \@」
	ENDIF
CASE "性処理：後"
	PRINT 「
		SIF RAND:3 == 0
			PRINTFORM えへへ
		SIF RAND:3 == 0
			CALL PRINT_STR, @"_H_"
		SIF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%
		PRINTFORM 有的是でたね
		SIF RAND:3 == 0 && TALENT:恋慕
			CALL PRINT_STR, @"_H_"
	PRINTW 」
CASE "射精"
	PRINT 「
	IF TALENT:恋慕 && RAND:3 == 0 && (ABL:欲望 >= 3 || ABL:精液中毒 >= 3)
		SIF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%
		SIF RAND:3 == 0
			CALL PRINT_STR, @"%TEXTR("_H_/……")%"
		IF ARGS:1 == "ヴァギナ" && RAND:3 == 0
			PRINTFORM %TEXTR("おまんこ/しきゅう")%
		ELSEIF ARGS:1 == "肛門" && RAND:3 == 0
			PRINTFORM %TEXTR("おしり/おしりのなか/おしりのあな")%
		ELSEIF ARGS:1 == "尿道" && RAND:3 == 0
			PRINTFORM %TEXTR("にょうどう/おしっこのあな")%
		ELSEIF ARGS:1 == "ニプル" && RAND:3 == 0
			PRINTFORM %TEXTR("ちくび/むねのなか/胸部のなか")%
		ELSEIF ARGS:1 == "手" && RAND:3 == 0
			PRINTFORM て
		ELSEIF ARGS:1 == "口" && RAND:3 == 0
			PRINTFORM %TEXTR("くち/おくち")%
		ELSEIF ARGS:1 == "胸圍" && RAND:3 == 0
			PRINTFORM %TEXTR("むね/胸部")%
		ELSEIF RAND:3 == 0 && (ARGS:1 == "ヴァギナ" || ARGS:1 == "肛門" || ARGS:1 == "尿道" || ARGS:1 == "ニプル")
			PRINTFORM %TEXTR("からだ/ナカ")%
		ELSE
			PRINTFORM %TEXTR("せいえき/せいし")%
		ENDIF
		SIF RAND:3 == 0
			PRINTFORM %TEXTR("……/…")%
		PRINTFORM %TEXTR("いっぱいでたね/べとべと/どろどろ")%
		SIF RAND:3 == 0
			PRINTFORM %TEXTR("……/…")%
		SIF RAND:3 == 0
			CALL PRINT_STR, @"_H_"
	ELSEIF TALENT:恋慕
		SIF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%
		SIF RAND:3 == 0
			CALL PRINT_STR, @"%TEXTR("_H_/……")%"
		PRINTFORM %TEXTR("んっ/あっ")%……
		PRINTFORM %TEXTR("せいえき/せいし")%
		SIF RAND:3 == 0
			PRINTFORM %TEXTR("いっぱい/べとべと/どろどろ")%……
		SIF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%
		PRINTFORM %TEXTR("きもちよかった…？/ふふっ……")%
	ELSE
		SIF RAND:3 == 0
			PRINTFORM %CNAME("二人称","かな")%
		SIF RAND:3 == 0
			CALL PRINT_STR, @"%TEXTR("…/……")%"
		PRINTFORM %CNAME("二人称","かな")%
		PRINTFORM %TEXTR("これで…いいの…？/んんっ…")%
	ENDIF
	PRINTW 」
CASEELSE

ENDSELECT

RETURN

path: ERB/EVENT_K/17 小菊/EVENT_K17_GEN.ERB

license: unknown


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

SELECTCASE ARGS
CASE "取引開始"
	IF TALENT:恋慕 || TALENT:相思相愛
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「怎么了、%CNAME("二人称")%……？」
				PRINTFORMW %CALLNAME%露出微笑……

			CASEELSE
				PRINTFORMW 「%CNAME("二人称")%……？」
				PRINTFORMW %CALLNAME:TARGET%悄悄看着%CALLNAME:MASTER%的脸……

		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「%CNAME("二人称")%……有事吗？」
				PRINTFORMW %CALLNAME%目不转睛地看着%CALLNAME:MASTER%

			CASE 1
				PRINTFORMW 「……？」
				PRINTFORMW %CALLNAME%等待%CALLNAME:MASTER%開口……

			CASEELSE
				PRINTFORMW %CALLNAME%将视线转向%CALLNAME:MASTER%……

		ENDSELECT
	ENDIF

CASE "称呼変更"
	PRINTFORMW 「……叫什么好呢？」
CASE "称呼変更完了"
	PRINTFORMW 「%CNAME("二人称")%……好的？」
CASE "称呼変更中止"
	PRINTFORMW 「……？」
	PRINTFORMW %CALLNAME%歪着小脑袋
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「%CNAME("二人称")%……」
		PRINTFORMW %CALLNAME%、\@ TALENT:高大 ? 抱在 # 扑在 \@%CALLNAME:MASTER%的怀里……
		PRINTFORMW 「%CNAME("一人称")%、最近一直在想……」
		PRINTFORMW 「不是主人、\@ TALENT:MASTER:男性 ? 爸爸 # 妈妈 \@、\@ TALENT:MASTER:男性 ? 哥哥 # 姐姐 \@的関系……」
		PRINTW 「想成为更不同的関系……一直想着」
		PRINTW 「……」
		PRINTFORMW 「%CNAME("一人称")%……很奇怪」
		PRINTFORMW 「明明是%CNAME("二人称")%的恋人……想变成%CNAME("二人称")%更加、更加特别的人」
		PRINTFORMW 「希望被%CNAME("二人称")%更喜欢……」
		PRINTFORMW 「所以……再多教我一些东西吧……%CNAME("二人称")%……！」
		PRINTFORMW 相遇之后用最灿烂的笑容、%CALLNAME%和%CALLNAME:MASTER%交换了约定的吻。
		PRINTW ・
		PRINTW ・
		PRINTW ・
		PRINTFORMW %CALLNAME%失去了[不在乎貞操][感情缺乏]
		TALENT:不在乎貞操 = 0
		TALENT:感情缺乏 = 0

	;失敗
	ELSE
		IF CFLAG:好感度 >= 1500
			PRINTW 「……！？」
			PRINTFORMW 没有回答、%CALLNAME%一瞬间捂住红潮的脸颊混乱不堪。
			PRINTFORMW 这是从未见过的反应。
			PRINTFORMW 看样子、可能……
		ELSE
			PRINTFORMW %CALLNAME%点了点頭。
			PRINTFORMW 「%CNAME("一人称")%也喜欢%CNAME("二人称","かな")%」
			PRINTFORMW 很明显、%CALLNAME%无法理解恋爱的感情……
		ENDIF

	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		IF !TALENT:不知羞恥
			PRINTFORMW 「不、不行……！」
			PRINTFORMW %CALLNAME%使劲摇頭、脸上一片火红。
		ELSEIF CEVENT("レッスン：はじらい")
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME%感到困惑……
		ELSEIF CEVENT("レッスン：ぱんつ")
			PRINTFORMW %CALLNAME%摇了摇頭。
			PRINTW 「没穿」
		ELSE
			PRINTFORMW %CALLNAME%将视线投向自己的下腹部。
			PRINTW 「…………胖次？」
			PRINTFORMW 要从%CALLNAME%那里得到胖次的话、必须要先教导她穿胖次……
			CALL SET_CEVENT, "イベント：沒穿"
		ENDIF
	ELSE
		IF !TALENT:不知羞恥
			PRINTFORMW 「不、不行……！」
			PRINTFORMW %CALLNAME%使劲摇頭、脸上一片火红。
		ELSEIF CEVENT("レッスン：はじらい")
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME%感到困惑……
		ELSEIF CEVENT("レッスン：ぱんつ")
			PRINTFORMW %CALLNAME%摇了摇頭。
			PRINTW 「没穿」
		ELSE
			PRINTFORMW %CALLNAME%将视线投向自己的下腹部。
			PRINTW 「…………胖次？」
			PRINTFORMW 要从%CALLNAME%那里得到胖次的话、必须要先教导她穿胖次……
			CALL SET_CEVENT, "イベント：沒穿"
		ENDIF
	ENDIF
CASE "胖次交易"
	;お金では応じない
	TFLAG:取引価格 = 0

	IF !TALENT:不知羞恥
	ELSEIF CEVENT("レッスン：はじらい")
	ELSE
		;無条件に渡す
		TFLAG:取引承諾 = 1
	ENDIF

CASE "胖次"
	IF !TALENT:不知羞恥
		PRINTW 「……」
		PRINTFORMW %CALLNAME%怯生生地脱掉胖次、有点害臊地用手递过来……
	ELSEIF CEVENT("レッスン：はじらい")
		PRINTW 「……是」
		PRINTFORMW %CALLNAME%犹豫地点了点頭、脱下胖次递了过来。
	ELSE
		IF !CEVENT("イベント：はじらう？") && !CEVENT("レッスン：はじらい")
			PRINTFORMW %CALLNAME%点了点頭、随手脱下胖次递了过来。
			PRINTFORMW ……还是教导这个孩子什么是羞耻心比较好吧……
			CALL SET_CEVENT("イベント：はじらう？")
		ENDIF
	ENDIF

CASE "胖次拒否"
	IF !TALENT:不知羞恥
		PRINTW 「不行……！！」
		PRINTFORMW %CALLNAME%使劲摇頭、脸上一片火红。
	ELSEIF CEVENT("レッスン：はじらい")
		PRINTW 「……」
		PRINTFORMW %CALLNAME%在疑惑为什么要交出胖次……
	ENDIF

CASE "全裸交易"

CASE "全裸"

;CASE "全裸拒否"

CASE "同居拒否"
	PRINTFORMW 「……%CEVENTS("立場")%になってくれるって、言った」

CASE "同居希望"
	PRINTFORMW %CALLNAME%理解了请求、点了点頭。

CASE "同居頻度的相談"
	PRINTFORMW %CALLNAME%理解了请求、点了点頭。

CASE "便当拒否"
	IF !CEVENT("イベント：弁当")
		PRINTW 「……便当是什么？」
		PRINTFORMW %CALLNAME%歪着小脑袋
		PRINTW 好像是做便当之前的问题……
		CALL SET_CEVENT("イベント：弁当")
	ELSE
		PRINTW 「正在学习、稍等」
		PRINTFORMW %CALLNAME%双手捧着%TEXTR("料理杂志/料理杂志/料理书/料理书/蘑菇图鉴/动物图鉴")%
	ENDIF

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTW 「……试一下」
		PRINTFORMW %CALLNAME%点了点頭。

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		PRINTFORMW %CALLNAME%歪着小脑袋
		PRINTW 「虽然试着学习了……但没什么把握」
		PRINTW ……最好找别人先试一下……
	ENDIF

CASE "淫紋拒否"

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

	ELSE
		IF !TALENT:不知羞恥
			PRINTFORMW 耳朵都红了的%CALLNAME%怯生生地将光滑的腹部给展示出来……
		ELSEIF CEVENT("レッスン：はじらい")
			PRINTFORMW %CALLNAME%疑惑地将腹部给展示出来……
		ELSE
			PRINTFORMW %CALLNAME%点了点頭、随意脱下衣服露出了腹部。
		ENDIF

	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTW 「……？」
		PRINTFORMW %CALLNAME%为了确认触感、用手指描画着贴纸上的纹样……

	ELSE

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

	CASE 2
		PRINTFORMW 「%CNAME("二人称","かな")%……」
		PRINTFORMW %CALLNAME%不安地看着%CALLNAME:MASTER%。
		PRINTFORMW 也许是本能地感觉到了一些变化……

	CASE 3
		PRINTFORMW 「%CNAME("二人称","かな")%……%CNAME("一人称")%……不是%CNAME("一人称")%了……」
		PRINTFORMW 眼泪涌上%CALLNAME%的眼眶。
		PRINTFORMW %CALLNAME%显然很害怕……

	CASE 4
		PRINTFORMW 「%CNAME("二人称","かな")%……求求你……%CNAME("一人称")%变成什么样子……都不要丢下%CNAME("一人称")%……！」
		PRINTFORMW %CALLNAME%用力抱住%CALLNAME:MASTER%的手。
		PRINTFORMW %CALLNAME%似乎对再也无法消除的淫紋抱有强烈的恐惧……

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

	CASE 3

	CASE 4

	ENDSELECT
CASE "髪型変更の感想"

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW
	;生足
	ELSE
		PRINTFORMW
	ENDIF

;其他汎用
CASEELSE
	;汎用拒否
	IF STRCOUNT(ARGS, "拒否")
		PRINTW 「……？」
		PRINTFORMW %CALLNAME%好像没能理解……
	;汎用取引（特に記述することがないならスキップ）
	ELSEIF STRCOUNT(ARGS, "取引")

	ELSE
		PRINTFORMW %CALLNAME%点了点頭。
	ENDIF
ENDSELECT

path: ERB/EVENT_K/17 小菊/EVENT_K17_SHOP.ERB


code:
;-------------------------------------------------
;小菊口上データ修正パッチ
;-------------------------------------------------
;@K17_VERUPはEVENT_K17_DAILY.ERBの165行目
;メイン画面台詞処理冒頭部から呼び出しています。
;-------------------------------------------------
@K17_VERUP

IF FINDCHARA(NO, 17) > 0
	LOCAL = FINDCHARA(NO, 17)
	IF !TALENT:LOCAL:不知羞恥
		;レッスン：ぱんつ无でTALENT:不知羞恥を失っている場合、内衣とフラグを設定する
		IF !CEVENT("レッスン：ぱんつ", LOCAL)
			CSTR:LOCAL:喜欢的胖次 = 內褲/條紋胖次/褶边の胖次
			CSTR:LOCAL:喜欢的胸罩 = 吊帯衫
			CALL SET_CEVENT, "レッスン：ぱんつ", LOCAL
			CALL DEL_CEVENT, "イベント：沒穿", LOCAL
			CALL SET_CEVENT, "レッスン：はじらい", LOCAL
			CALL DEL_CEVENT, "イベント：はじらう？", LOCAL

		;レッスン：はじらい无でTALENT:不知羞恥を失っている場合、レッスン終了フラグを設定しておく
		ELSEIF !CEVENT("レッスン：はじらい", LOCAL)
			CALL SET_CEVENT, "レッスン：はじらい", LOCAL
			CALL DEL_CEVENT, "イベント：はじらう？", LOCAL

		ENDIF
	ENDIF

	;レッスン：はじらいとイベント：はずかしいが済んでおらず、合意：检查阴部を持っていなければ合意：检查阴部を設定する
	SIF TALENT:LOCAL:不知羞恥 && !CEVENT("レッスン：はじらい", LOCAL) && !STRCOUNT(CSTR:LOCAL:合意, "检查阴部")
		CALL SET_GOUI, "检查阴部"

ENDIF

RETURN

path: ERB/EVENT_K/17 小菊/EVENT_K17_VERUP.ERB