code:
;-------------------------------------------------
;口上テンプレート
;小鳥遊静菜口上_人妻ＮＴＲ口上（角色クターの名前を入れる、下にコンセプトなど一言あれば入れる）
;製作者 玛丽酱の中の人
;-------------------------------------------------
;比自己大10岁的原青梅竹马。人妻ＮＴＲ口上です
;劝诱、口上内容涉及到和丈夫的对话、联络、发生性行为、以configmob H on为前提
;因为怀孕是托卵行为、所以为了选择人(而且处理起来也很麻烦会尽量的吃避孕药
;口服避孕薬を飲まない場合は危険日中田氏させない。そうは言っても安全日妊娠/拘束レ〇プ凌辱もあるので……中田氏すると事后避孕药でカバーする
;-------------------------------------------------
;角色追加の手順（必読！）
;１：EVENT_K52_名前.ERBとEVENT_K52_SHOP.ERBとEVENT_K52_DAILY.ERBとCHARA38.csvのファイル名と内部の38を角色番号に変更し、名前部分を角色名にする

;２：変更後のERBファイルをEVENT_Kフォルダに、CHARA38.csvをCSVフォルダに入れる

;３：他の角色を参考にCHARA38.csv内部の初期設定を記述する
;番号,名前,呼び名,基礎は必ず全部埋めましょう。CSTRも可能な限り埋めた方が良いです
;CSTR,胖次～飾品は初期衣装なので書かないと初期が全裸です

;４：このファイル内にある、@EVENT_PROFILE_K52を記述する
;CASE "勧誘直後"は別に無くても構いません
;CASE "勧誘前"と"紹介文"は有った方が良いです

;５：CALL_NAME.ERB内の
;CASE 38
;	STR:基本呼び名 = %CNAME_K52(ARGS)%
;の２行先頭の ; を削除する。

;６：以上で角色追加の準備が整います
;本編の日替わり領帯ミングでこんな人が居ますよ～って紹介するイベントが有些ますが、それを見ないでもメイン画面[301]で勧誘できます

;７：あとはERBファイルに書けば書くだけ喋るようになります
;-------------------------------------------------
;_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
;
;	Module		:EVENT_K52_小鳥遊静菜.ERB
;	Facility	:調教口上
;
;	Modification Data:
;	Edit	Date			Author					Reason
;	001		2020/10/24		玛丽酱の中の人（ジャンク＆元你）	新規作成
;_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
;ライセンスについて
;	・基本項目(許可する項目を"○"に、許可しない項目を"×"に変更してください。)
;	+----+----+-------------------------------+
;	|番号|許可|ライセンス内容                 |
;	+----+----+-------------------------------+
;	|   1| ○ | 処理上のバグ修正              |
;	+----+----+-------------------------------+
;	|   2| ○ | 口上の誤字・脱字の修正        |
;	+----+----+-------------------------------+
;	|   3| × | 口上まとめへの収録            |
;	+----+----+-------------------------------+
;	|   4| × | 口上の新規追加                |
;	+----+----+-------------------------------+
;	|   5| × | 既存口上の改変                |
;	+----+----+-------------------------------+
;	|   6| × | 改変した口上の自由な再配布    |
;	+----+----+-------------------------------+
;	|   7| × | 口上内容の転載                |
;	+----+----+-------------------------------+
;	|   8| × | 他バリアントへの転載          |
;	+----+----+-------------------------------+
;-------------------------------------------------

;-------------------------------------------------
;呼び名の設定。"_"の右にふりがなを書く。
;-------------------------------------------------
@CNAME_K52, ARGS
#FUNCTIONS

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 我_我
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		LOCALS = 你_你
	;相手が主人ではない
	ELSE
		LOCALS = %CALLNAME:ASSI%桑_%CSTR:PLAYER:ふりがな%桑
	ENDIF
;"主人"と"助手"は三人称。主に当人と話していない時に使う
CASE "主人"
	LOCALS = 主人様_主人大人
CASE "助手"
	LOCALS = %CALLNAME:PLAYER%桑_%CALLNAME:PLAYER%桑
CASE "Master"
	IF NAME:MASTER == "你"
		LOCALS = 你_你
	ELSEIF CONDS("本来の性別", MASTER) == "男性"
		LOCALS = %NAME:MASTER%君_%CSTR:MASTER:ふりがな%君
	ELSE
		LOCALS = %NAME:MASTER%酱_%CSTR:MASTER:ふりがな%酱
	ENDIF
CASE "調教時二人称"
	;相手が主人
	IF PLAYER == MASTER
		IF NAME:MASTER == "你"
			IF TALENT:MASTER:男性
				LOCALS = 你
			ELSE
				LOCALS = 您
			ENDIF
		ELSE
			PRINTFORM %NAME:MASTER%
			IF TALENT:MASTER:男性
				LOCALS = 你
			ELSE
				LOCALS = 您
			ENDIF
		ENDIF
	;相手が主人ではない
	ELSE
		LOCALS = %CALLNAME:PLAYER%桑_%CALLNAME:PLAYER%桑
	ENDIF
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;勧誘イベントのセリフや紹介文
;-------------------------------------------------
@EVENT_PROFILE_K52, ARGS

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = 十年前，住在隔壁的青梅竹马的大姐姐
	STR:2 = 实际年龄是秘密……
;	STR:3 = %CNAME("二人称")%より十歳年上だと思われる。
	STR:4 = 随着父母的工作调动，搬到外县，上了大学
	STR:5 = 以结婚为契机，回到了%CALLNAME:MASTER%居住的地方，開始担任学园的外聘讲师。
	STR:6 = 忙于工作、出差或应酬的丈夫经常不在家，而她却是能守护丈夫不在家的贞洁淑慧的人妻。
;	STR:7 =
	STR:8 = 一个人度过的夜晚有时感到寂寞，闲得发慌。
;	STR: = ※イベントを経て明らかになる予定
;	STR: =
;	STR: = 両親の転勤ではなく両親の別居が原因で地元を出口た
;	STR: = 你にプロポーズされた過去が有、少年の真剣な告白の事を少なからず気に留めていた
;	STR: = 大学卒業と共に年上の旦那と結婚した。歳の差がかなりある事や夫は出張で殆ど家にいない事から欲求不満を募らせている
;	STR: = 大学デビューと共に今の内しか遊べないと割り切って大学時代に炮友と様々な経験を経た為、淡泊かつ殆ど性交渉をもてない夫との夜の生活に満足出来ない
;	STR: = 思いついたら増やす

;ここの中に限り、CFLAG,BASE,TALENT,ABL,EXP,CSTRをCSVに書いたものから変更させることが出来ます
;例えばBASE:体力を2000にしたいなら BASE:0:体力 = 2000 、強気にさせたいなら TALENT:0:強気 = 1 として下さい
;また、ABL:信頼を+2させたい場合には ABL:0:信頼 = ABL:信頼 + 2 と書いてください
;2020/12/15　内容を改変。過去からかなり改修
CASE "勧誘"
	PRINTFORML
	IF COND("昼")
		PRINTFORMW 那是昨晚发生的事……
		PRINTFORMW 马上就要到家，已经把手放在家門口的%CALLNAME:MASTER%被一位气质沉稳的成熟女性叫住了。
		PRINTFORML
		PRINTFORMW 「好久不见，%CNAME("一人称")%的事还记得吗?？」
		PRINTFORML
		CALL PRINT_SELECT, "是/否"
		IF RESULT
			PRINTFORMW 「最后一次一起玩儿是在十年前吧。那可是很久以前的事了」
			IF FIND_COND("麦莉爱娜")
				PRINTFORMW 「听%CNAME("二人称")%的母亲说过了，现在已经有可爱的女朋友了吧？」
			ENDIF
			PRINTFORMW 「%CNAME("二人称")%小的时候明明还约定过将来结婚的呢……」
			PRINTFORMW 「毕竟是小时候的事。忘了姐姐的事也没什么办法啊」
			IF CHARA_NUM("血縁")
				CALL PRINT_STRW, @"「如果……不打扰的话，还能像以前那样全家人在一起的话我会很開心的 _HH_」"
			ENDIF
			PRINTFORML
			PRINTFORMW 大约十年前，她还是高中生的时候经常和%CALLNAME:MASTER%在一起玩。
			PRINTFORMW 据说因为父母的関系而调动工作的%CALLNAME:TARGET%自己也认为再也不会回到这个城市了。
		ELSE
			CALL PRINT_STRW, @"「好開心啊_HH_%CNAME("一人称")%还以为已经忘了那时候的事情了」"
			IF TALENT:MASTER:男性 && CONDS("本来の性別", MASTER) == "男性"
				PRINTFORMW 「你也完全变成一个优秀的男孩子了。我听你妈妈说了」
				PRINTFORMW 「真的交了家人公认的女朋友吗?」
			ELSEIF TALENT:MASTER:男性 == 0 && CONDS("本来の性別", MASTER) == "男性"
				PRINTFORMW 「你……虽然和你的母亲长得很像很漂亮……」
				PRINTFORMW 「明明记得之前是个可爱的男孩子呢……发生什么事了吗」
				PRINTFORMW 「如果不讨厌的话，之后详细地向姐姐说明情况吧?」
			ELSEIF TALENT:MASTER:男性
				PRINTFORMW 「你……变得十分帅气了呢」
				PRINTFORMW 「如果……如果不讨厌的话，希望以后详细地向姐姐说说这些年的故事呢」
			ELSE
				PRINTFORMW 「你也变成了一个漂亮的女孩。越来越像妈妈了吧」
				PRINTFORMW 「对了对了……听说你有了家庭公认的恋人，是个什么样的孩子呢」
			ENDIF
;			DRAWLINE
;			SETCOLOR DEF_COLOR("粉紅")
;				PRINTFORML - 系统信息 -
;				PRINTFORML 好感度+100
				CFLAG:0:好感度 = CFLAG:好感度 + 100
;			RESETCOLOR
;			DRAWLINE
			PRINTFORML
			PRINTFORMW 虽然气氛很成熟，但是那张脸很面熟。
			PRINTFORMW 大约十年前，就住在%CALLNAME:TARGET%的附近。她和年幼的%CALLNAME:MASTER%经常一起玩耍
			PRINTFORMW 她因为父母的原因工作调动了，以为再也见不到她了……
		ENDIF
		PRINTFORML
		PRINTFORMW 「%CNAME("二人称")%看起来元气满满呢」
		PRINTFORMW 「其实……%CNAME("一人称")%呢。结婚后要搬来这里」
		PRINTFORMW 「一直没联络，真是抱歉。详细情况以后再说吧」
		PRINTFORMW 「呵呵、你这孩子还是这么爱说话呢……」
		PRINTFORML
		PRINTFORMW %CALLNAME:TARGET%把旁边的男人，自己的老公介绍给了我。
		PRINTFORML
		PRINTFORMW 「还有……听说你上了学院。恭喜~」
		PRINTFORMW 「从%CNAME("一人称")%上学的时候開始那个学园就没有变化吗……」
		PRINTFORMW 「其实呢。%CNAME("一人称")%这次也要作为学园的老师来上课了。」
		PRINTFORMW 「作为%CNAME("二人称")%的外聘讲师，我想以后会有很多见面的机会，请多多関照了呢」
		PRINTFORML
	ELSE
		PRINTFORMW 「这么久不见、已经变得这么优秀了」
		PRINTFORMW 马上就要到家，已经把手放在家門口的%CALLNAME:MASTER%被一位气质沉稳的成熟女性叫住了。
		PRINTFORMW 「忘了姐姐的事了吗?」
		PRINTFORML
		CALL PRINT_SELECT, "是/否"
		IF RESULT == 0
			PRINTFORMW 「最后一次一起玩儿是在十年前吧。那可是很久以前的事了」
			IF FIND_COND("麦莉爱娜")
				PRINTFORMW 「听%CNAME("二人称")%的母亲说过了，现在已经有可爱的女朋友了吧？」
			ENDIF
			PRINTFORMW 「姐姐的事情忘了也没办法啊」
		ELSE
			CALL PRINT_STRW, @"「好開心啊_HH_%CNAME("一人称")%还以为已经忘了那时候的事情了」"
			IF TALENT:MASTER:男性 && CONDS("本来の性別", MASTER) == "男性"
				PRINTFORMW 「你也完全变成一个优秀的男孩子了。我听你妈妈说了」
				PRINTFORMW 「真的交了家人公认的女朋友吗?」
			ELSEIF TALENT:MASTER:男性 == 0 && CONDS("本来の性別", MASTER) == "男性"
				PRINTFORMW 「你……虽然和你的母亲长得很像很漂亮……」
				PRINTFORMW 「明明记得之前是个可爱的男孩子呢……发生什么事了吗」
				PRINTFORMW 「如果不讨厌的话，之后详细地向姐姐说明情况吧?」
			ELSEIF TALENT:MASTER:男性
				PRINTFORMW 「你……变得十分帅气了呢」
				PRINTFORMW 「如果……如果不讨厌的话，希望以后详细地向姐姐说说这些年的故事呢」
			ELSE
				PRINTFORMW 「你也变成了一个漂亮的女孩。越来越像妈妈了吧」
				PRINTFORMW 「对了对了……听说你有了家庭公认的恋人，是个什么样的孩子呢」
			ENDIF
;			DRAWLINE
;			SETCOLOR DEF_COLOR("粉紅")
;				PRINTFORML - 系统信息 -
;				PRINTFORML 好感度+100
				CFLAG:0:好感度 = CFLAG:好感度 + 100
;			RESETCOLOR
;			DRAWLINE
		ENDIF
		PRINTFORML
		PRINTFORMW 「……%CNAME("一人称")%はね、%CNAME("二人称")%の事を忘れてなかったよ」
		;2020/2/2　加筆
		;30代に上振れさせた分を補足するセリフ
		PRINTFORML
		PRINTFORMW 「听说你进了那个学园呢，祝贺你」
		PRINTFORMW 「因为%CNAME("一人称")%也曾在在那个学园上学、所以大学也想去和%CNAME("二人称")%一样的学校呢」
		PRINTFORMW 「因为父母工作调动，我搬到外县去了……」
		PRINTFORML
		PRINTFORMW 「一直以来没怎么联系真是抱歉。虽然觉得对%CNAME("二人称")%撒娇是不好的し……」
		PRINTFORMW 「因为不想给任何人添麻烦……」
		PRINTFORMW 「而且呢，那个时候如果被人温柔对待的话……%CNAME("一人称")%肯定也会因为寂寞而中途受挫回来」
		PRINTFORMW 「那个时候虽然很辛苦，但是现在好好结婚了……也变得幸福起来了呢」
		PRINTFORMW 「 但是，我丈夫经常不在家，所以一到晚上就很寂寞…… 」
		PRINTFORMW 虽然只是一瞬间，%CALLNAME:TARGET%露出了寂寞的表情，视线从%CALLNAME:MASTER%的脸上移開。
		IF CHARA_NUM("血縁")
			PRINTFORMW 「其实呢。我事先有去家里拜访了，大家看起来都很精神真是太好了。%CNAME("二人称")%也能像以前那样全家人在一起的话就很開心了」
		ELSE
			PRINTFORMW 「有种奇妙的感觉呢。我改日再到家里来，也要向家人问好哦」
		ENDIF
	ENDIF
;これは別になくても構いません
CASE "勧誘直後"
	;この辺は見直し必要
    PRINTFORMW %CALLNAME:TARGET%将会以%CALLNAME:MASTER%"隔壁的大姐姐"的身份、"周末在家中露面"

	BASE:欲求不満 = 75
	CALL SET_COORDINATE, "内衣", TARGET

	PRINTL
	IF COND("夜")
		PRINTFORM -
		SETCOLOR DEF_COLOR("黄色")
			PRINTFORM %NAME:TARGET%
		RESETCOLOR
		PRINTFORML  -
		IF FIND_COND("現在存在", "麦莉爱娜")
			PRINTFORML 「好久不见了呢，麦莉爱娜」
			;PRINTFORMW %CALLNAME:TARGET%呼唤了母亲作为日本人的名字、但是现在的%CALLNAME:MASTER%耳中听到的却是恶魔的真名。
			;PRINTFORMW 『フフッ、惊讶ましたか。主人様と契約した悪魔は真名を隠す事が出来なくなるんですよ。謂わば契約を履行するまで悪魔を縛る一種の呪いですね』
			PRINTFORML 「好久不见。因为有缘搬到了附近……以后还请多多指教。」
			IF FIND_COND("現在存在", "樱") && FIND_COND("現在存在", "南実")
				PRINTFORMW 「小樱和小南実都变得非常可爱了，两个人都已经是高中生了呢」
			ELSEIF FIND_COND("現在存在", "樱")
				PRINTFORMW 「小樱好像完全恢复了精神呢，真是太好了。%CNAME("一人称")%也很担心小樱的身体呢」
			ELSEIF FIND_COND("現在存在", "南実")
				PRINTFORMW 「南実也已经是高中生了啊……肯定会像妈妈一样成为美女吧?」
			ENDIF
		ELSEIF FIND_COND("現在存在", "樱") && FIND_COND("現在存在", "南実")
			PRINTFORML 「小樱和小南実都变得非常可爱了……两个人都已经是高中生了呢」
			CALL PRINT_STRW, @"「两人都长得像妈妈，长得很漂亮，应该很受欢迎吧_HH_」"
		ELSEIF FIND_COND("現在存在", "樱")
			PRINTFORML 「小樱。病已经没事了吗？」
			PRINTFORMW 「好像完全恢复了精神……但是不要不要太勉强哦。不然%CNAME("一人称")%是会担心的」
		ELSEIF FIND_COND("現在存在", "南実")
			PRINTFORML 「南実也已经是高中生了啊……肯定会像妈妈一样成为美女吧」
			PRINTFORMW 「精神饱满是好事，但不能让妈妈太为难哦。」
		ELSE
			PRINTFORML 「%CNAME("一人称")%是最近開始搬到附近的小鸟游静菜」
			PRINTFORML 「大约10年前在我们家承蒙您的関照了」
			PRINTFORMW 「以后可以多多照顾的话就太好了~」
		ENDIF
	;こっちは昼
	ELSE
		IF FIND_COND("現在存在", "樱") && FIND_COND("現在存在", "南実")
			PRINTFORML 「小樱和小南実都变得非常可爱了……两个人都已经是高中生了呢」
			CALL PRINT_STRW, @"「两人都长得像妈妈，长得很漂亮，应该很受欢迎吧_HH_」"
		ELSEIF FIND_COND("現在存在", "樱")
			PRINTFORML 「小樱。病已经没事了吗？」
			PRINTFORMW 「好像完全恢复了精神……但是不要不要太勉强哦。不然%CNAME("一人称")%是会担心的」
		ELSEIF FIND_COND("現在存在", "南実")
			PRINTFORML 「南実也已经是高中生了啊……肯定会像妈妈一样成为美女吧」
			PRINTFORMW 「精神饱满是好事，但不能让妈妈太为难哦。」
		ELSE
			PRINTFORML 「%CNAME("一人称")%是小鳥遊静菜」
			PRINTFORML 「我刚到这个学校当老师，因缘巧合，承蒙您照顾我的社团活动。」
			PRINTFORMW 「姑且……好像是顾问，但还不是很了解社团活动呢，还请多多関照~」
		ENDIF
	ENDIF

;これも別になくても構いません。特殊な条件がある場合などにどうぞ
CASE "出現条件"
	;PRINTFORMW %NAME:TARGET%%CALLNAME:MASTER%的"%CSTR:関係%"、会在中午出现在社团活动室。

;初めて部室に顔を出した際のイベントや打招呼です。これも別に無くて構いません。
CASE "初訪問"
	;昼などの、勧誘して即現れた場合です。別にここで分岐させなくても良いと思いますが違和感が出る場合にはどうぞ
	IF IS_TARGET()

	ELSE

	ENDIF
;同居後の自分的房間の解説です。これも別に無くて構いません
CASE "自室描写"
	IF COND("角色介绍中")
		PRINTFORML
		PRINTFORML -%CALLNAME:TARGET%の自室ではなく自宅の紹介です-
		PRINTFORML
		PRINTFORML %CALLNAME:TARGET%本来应该是一个人生活，但房间里打扫得很干净
		PRINTFORML %TEXTR(@"沙发上放着一本夹着书签的看了一半的恋爱小说/电视旁挂着夫妻恩爱的%CALLNAME:TARGET%和丈夫的图片")%
	ENDIF

CASE "自宅描写"
	IF COND("角色介绍中")
		PRINTFORML %CALLNAME:TARGET%本来应该是一个人生活，但房间里打扫得很干净
		PRINTFORML %TEXTR(@"沙发上放着一本夹着书签的看了一半的恋爱小说/电视旁挂着夫妻恩爱的%CALLNAME:TARGET%和丈夫的图片")%
	ELSEIF CEVENT("自宅訪問／小鳥遊静菜") == 0
;		PRINTFORML
;		PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%と小鳥遊静菜の新居を訪れた。
		PRINTFORMW 全新的家具、大型电视机和沙发。%CALLNAME:TARGET%自嘲地说着，作为一个人生活的空间来说有点太大了。
		PRINTFORML
		PRINT 「那个人在国外出差呢。回来的是……
		;太好了吧!?是色情游戏吗! !是色情游戏! !
		IF COND("春")
			PRINT 冬頃
		ELSEIF COND("夏")
			PRINT 来年の春
		ELSEIF COND("秋")
			PRINT 来年の夏
		ELSEIF COND("冬")
			PRINT 来年の秋
		ENDIF
		PRINTFORMW 听说会变成这样……」
		PRINTFORMW 「其实和朋友一起玩就好了。」
		PRINTFORMW 「%CNAME("一人称")%的老家在这里」
		PRINTFORMW 「其他的朋友不是结婚就是工作忙，时间总是对不上。」
		PRINTFORMW 「%CNAME("調教時二人称")%如果不反对的话、可以和小樱和南実。或者邀请其他朋友来玩哦」
		CALL SET_CEVENT, "自宅訪問／小鳥遊静菜"
	ELSE
		PRINTFORML %CALLNAME:MASTER%和%CALLNAME:TARGET%访问了小鳥遊静菜的新家。
		IF RAND:2 == 0
			PRINTFORML %CALLNAME:TARGET%本来应该是一个人生活，但房间里打扫得很干净。
			PRINTFORMW %TEXTR(@"ソファには栞が挟まれた読みかけの恋愛小説が置いてある/ＴＶの傍には夫婦仲睦まじい姿を見せる%CALLNAME:TARGET%と夫の写真が飾られている")%
		ELSE
			PRINTFORML 虽然%CALLNAME:TARGET%说着就当是自己的家，想怎么用就怎么用。
			PRINTFORMW 但是夫妻的卧室和丈夫的书房被严令不许进入。
		ENDIF
	ENDIF
ENDSELECT

;-------------------------------------------------
;この角色が拒否している指令のフラグ立てや其他色々なフラグを開始前に設定できる
;partnerは勿論、指导者の時でも読み込む
;-------------------------------------------------
@SETFLAG_BEFORE_TRAIN_K52

;Ｖ本番解除
DITEMTYPE:TARGET:60 = 0
DITEMTYPE:TARGET:61 = 0
DITEMTYPE:TARGET:62 = 0
DITEMTYPE:TARGET:63 = 0
DITEMTYPE:TARGET:64 = 0
DITEMTYPE:TARGET:65 = 0
;Ａ本番解除
DITEMTYPE:TARGET:70 = 0
DITEMTYPE:TARGET:71 = 0
DITEMTYPE:TARGET:72 = 0
DITEMTYPE:TARGET:73 = 0
DITEMTYPE:TARGET:74 = 0
DITEMTYPE:TARGET:75 = 0

;什麼也不做解除
DITEMTYPE:TARGET:139 = 0
IF TALENT:恋慕 == 0
;	IF CEVENT("肛門限定：恋慕で解禁")
	IF CFLAG:6201 == 1
		CALL SETFLAG, "Ｖ挿入指令禁止"
;		CALL SETFLAG, "Ｖ逆挿入指令禁止"
;		CALL SETFLAG, "尿道挿入指令禁止"
;	ELSEIF CEVENT("避孕套Ｖ限定：恋慕で解禁")
	ELSEIF CFLAG:6201 == 2
		CALL SETFLAG, "Ａ挿入指令禁止"
;		CALL SETFLAG, "Ａ逆挿入指令禁止"
;		CALL SETFLAG, "尿道挿入指令禁止"
	ENDIF
ENDIF

;-------------------------------------------------
;一日の終わりでフラグなどを変化させたい時にはここで弄ることが出来る
;-------------------------------------------------
@TIMEEVENT_K52
;周六日になると単身赴任中の旦那と電話して欲求不満になる設定
;周日日にはたまに帰ってくる設定の方が良いか？　要検討
;
;あまり欲求不満じゃない場合のみ躁动难忍する
IF TEXTS("曜日") == "土" && BASE:欲求不満 < 50
	BASE:欲求不満 += RAND:100
	;淫乱はBOUNS
	IF TALENT:淫乱 && BASE:欲求不満 < 50
		BASE:欲求不満 += 30
		BASE:欲求不満 += RAND:100
	ENDIF
	SIF BASE:欲求不満 > 90
		BASE:欲求不満 = 90
ENDIF

;屈服刻印Lv1毎にイベントが起きる。
IF (TALENT:恋慕 || MARK:屈服刻印 >= 1) && ABL:奉仕精神 >= 3 && CEVENT("個別イベント１解禁") == 0
	CALL SET_CEVENT, "個別イベント１解禁"
ELSEIF (TALENT:恋慕 || MARK:屈服刻印 >= 2) && BASE:陰毛 >= 500 && ABL:信頼 >= 2 && CEVENT("個別イベント２解禁") == 0
	CALL SET_CEVENT, "個別イベント２解禁"
ELSEIF (TALENT:恋慕 || MARK:屈服刻印 >= 3) && CFLAG:好感度 >= 1500 && ABL:露出癖 >= 3 && CEVENT("個別イベント３解禁") == 0
	CALL SET_CEVENT, "個別イベント３解禁"
ELSEIF CONFIG("路人Ｈ") && CFLAG:好感度 >= 1000 && CEVENT("Ｖ初性交済み：調教初回") && CEVENT("個別イベント４解禁") == 0 && SIZE("阴茎", MASTER) >= 2
	CALL SET_CEVENT, "個別イベント４解禁"
;ELSEIF TALENT:恋慕 && CEVENT("Ｖ初性交済み：調教初回") && CEVENT("個別イベント５解禁") == 0
;	CALL SET_CEVENT, "個別イベント５解禁"
ENDIF
;日替わり胖次　個別イベント３の前からエッチな内衣を着用しがちなので手動で書き換える
SIF CFLAG:エッチな内衣着用 == 0
	CALL SET_COORDINATE, "内衣"

CALL DEL_DEVENT, "家族からの電話"
CALL DEL_DEVENT, "家族からの電話終了"
CALL DEL_DEVENT, "家族からの電話終了２"
CALL DEL_DEVENT, "家族からの電話急に切った"

;-------------------------------------------------
;調教開始時のセリフ
;-------------------------------------------------
@EVENTTRAIN
SIF NO:TARGET != 52
	RETURN 1

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	IF COND("夜")
		PRINTFORMW 「哎……等等……」
		PRINTFORMW 「%CNAME("Master")%的事虽然并不讨厌……」
		PRINTFORMW 「但是不行啊……%CNAME("Master")%也有女朋友吧。而且%CNAME("一人称")%也已经结婚了……」
		PRINTFORMW 「因为寂寞…………可能让你%CNAME("一人称")%产生了一些误会」
		CALL PRINT_STRW, @"「不是的……没有欲求不满什么的、哈啊_HH_　哈啊_HH_……」"
		PRINTFORML
		;自室ではなく自宅と言う扱い
		IF PLACE("partnerの自宅")
			PRINTFORMW 「拜托了……床上不行……啊，要是在客厅的沙发上……」
			PRINTFORMW %CALLNAME:TARGET%好象对在夫妻的卧室做色情的事感到抗拒。
		;ELSEIF PLACE("自室")
		;	PRINTFORMW
		ELSEIF SAVESTR:現在位置 == "公園"
			PRINTFORMW 「因为是暗处……嗯，如果有人来的话……约定好有人来了要停下来啊……」
		ELSEIF PLACE("居間")
			PRINTFORMW 「这里会有人来的……至少去%CNAME("Master")%的房间一起……做吧？」
			SAVESTR:現在位置 = "%CSVCALLNAME(NO:MASTER)%的房間"
		ENDIF
		PRINTFORMW 虽然表现出讨厌的样子，但是%CALLNAME:TARGET%还是被%CALLNAME:MASTER%强行推倒了……
	;学園の場合
	ELSE
		PRINTFORMW 「喂……%CNAME("一人称")%和%CNAME("Master")%现在在学校可是老师和学生的関系，明白吗？」
		IF PLACE("体育倉庫") || PLACE("更衣室")
			PRINTFORMW 「把老师带到这种地方……你打算干什么？」
		ELSEIF PLACE("保健室")
			PRINTFORMW 「说身体不舒服之类的话，难道是在欺骗老师吗？」
		ELSEIF PLACE("做爱房")
			PRINTFORMW 「而且……学校里什么时候搞出这么个不像样的房间来了」
		ENDIF
		PRINTFORMW 「%CNAME("Master")%的事那个……因为是青梅竹马，所以并不讨厌……」
		PRINTFORMW 「不行啊……现在不但是老师和学生，而且%CNAME("一人称")%已经是已婚的人妻了」
		CALL PRINT_STRW, @"「没有期待会变成这样……不行啊 _HH_」"
	ENDIF
	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ０") == 0
	IF COND("夜")
		PRINTFORMW 「我们事先再确认一下……%CNAME("一人称")%和%CNAME("Master")%之间的関系要对他人保密哦。只是为了消除性欲互相帮助的関系而已。」
		PRINTFORMW 「性伴侣什么的……虽然会变成这样，但还是要对家里人保密哦 」
	ELSE
		PRINTFORMW 「我想你应该知道，老师和学生之间竟然有这样的関系，要是暴露了就会被退学的」
		PRINTFORMW 「%CNAME("一人称")%和%CNAME("Master")%事先约定好这是秘密。当然，也要对家人保密」
	ENDIF
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ０"
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	PRINTFORMW 「%CNAME("一人称")%和%CNAME("Master")%之间的身体可能非常契合吧……」
	PRINTFORMW 「虽然不想承认……但是很不错呢，各种各样的……」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	PRINTFORMW 「真的……虽然感觉很奇怪」
	PRINTFORMW 「和%CNAME("Master")%在一起就会觉得很開心，很幸福。」
	PRINTFORMW 「这么说虽然不太好。但正是因为%CNAME("一人称")%有了相爱的丈夫，所以才会有这样的心情」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTFORMW 「我想只在那个人不在的时候建立関系……」
	PRINTFORMW 「但是、自己说出这种话，%CNAME("一人称")%会被认为是下流的女人吧……」
	PRINTFORMW 「%CNAME("Master")%如果不讨厌的话……今后偶尔也会和我交往吗?」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;肛門性交合意後
ELSEIF TALENT:恋慕 == 0 && FIRSTCOMS("Ｖ挿入") && COND("合意：肛門性交") && CEVENT("Ｖ／Ａ：選択イベント") == 0
	PRINTFORMW 「……希望可以说出来，%CNAME("Master")%的%TEXTR("真实的心情到底是什么样的/真实的想法到底是什么样的")%」
	PRINTFORMW 「明明也是想被中出的、%CNAME("一人称")%的身体已经无法忍耐了」
	PRINTFORMW 「说实话……%CNAME("一人称")%也想过和%CNAME("Master")%一起生活是什么样子的……」
	PRINTFORMW 「尽管如此，%CNAME("一人称")%也是一位人妻……一旦越过了这条线，就再也回不到原来的関系了」
	PRINTFORMW 「%CNAME("一人称")%其实也是明白的……」
	PRINTFORMW 「这段関系总有一天是会结束的。」
	PRINTFORMW 「所以呢……最起码现在还不可以中出」
	PRINTFORMW 「只要一会儿就好了……如果你能给我时间考虑两个人的関系，我会很高兴的。」
	PRINTFORMW 「在%CNAME("一人称")%的身体里、直到得出结论为止……」
	PRINTFORMW 「在那之前只靠%CNAME("一人称")%的屁股……可以稍微忍耐一下吗？」
	PRINTFORML
	CALL PRINT_SELECT, "是/否"
	IF RESULT == 0
		PRINTFORMW 「对不起，我这么任性。谢谢你答应了我的无理要求」
		PRINTFORMW 「或许%CNAME("Master")%也能够明白、但是%CNAME("一人称")%也是第一次用屁股做。」
		PRINTFORMW 「做的时候希望可以温柔一点……」
		CALL SETFLAG, "Ｖ挿入指令禁止"
;		CALL SET_CEVENT, "肛門限定：恋慕で解禁"
		CFLAG:6201 = 2
	ELSE
		PRINTFORMW 「真是个……没办法的孩子啊」
		PRINTFORMW 「到现在为止好像好像好好戴上避孕套了吧，只要戴上了避孕套就%TEXTR("像之前一样/一如既往/始终如一")%得继续做爱吧」
		PRINTFORMW 「……相对的，用屁股来做的话就忍耐一下吧？」
		CALL PRINT_STRW, @"「%TEXTR("如果屁股那里被開发的太大的话……会被那个人发现的/如果被開发了很多肛門的话……那个人也会忍不住想要的请求，所以呢")%_HH_」"
		PRINTFORML
		CALL SETFLAG, "Ａ挿入指令禁止"
;		CALL SET_CEVENT, "避孕套Ｖ限定：恋慕で解禁"
		CFLAG:6201 = 1
	ENDIF
	CALL SET_CEVENT, "Ｖ／Ａ：選択イベント"
;肛門性交合意後
ELSEIF TALENT:恋慕 == 0 && CEVENT("肛門限定：恋慕で解禁") && CEVENT("Ｖ／Ａ：選択イベント") && CEVENT("Ｖ／Ａ：肛門限定台詞") == 0
	PRINTFORMW 「说实话……虽然菊花開发的很痛苦」
	PRINTFORMW 「但是、这么努力地忍耐着……是因为%CNAME("一人称")%这里的第一次想要献给%CNAME("Master")%……」
	PRINTFORMW 「因为以后%CNAME("一人称")%的屁穴就是%CNAME("Master")%专用的。所以请不要客气……想做的时候就尽管说吧。」
	PRINTFORMW 「其实想要中出也不是不可以，吃避孕药就好了……因为想要那个人的孩子啊」
	CALL SET_CEVENT, "Ｖ／Ａ：肛門限定台詞"

;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	;淫乱を先に獲得したかで分岐させたい場合(別にこの分岐は無くても良いと思います)
	;隠された過去が開示される
	IF CEVENT("先に淫乱獲得")
		PRINTFORMW 「其实一直有瞒着你……%CNAME("一人称")%实际上、是个比%CNAME("Master")%想象中还要淫乱的女人」
		PRINTFORMW 「其实……大学时代和那个人结婚前交往的男朋友是S型的」
		PRINTFORMW 「因为受到了性方面的開发……所以和%CNAME("Master")%做色情的事其实没有抵抗心」
		PRINTFORMW 「对不起……我不是想骗你。但是自己也没想过会和%CNAME("Master")%有这么久的関系」
		CALL SET_CEVENT, "調教開始：先に淫乱獲得"
	;2020/12/15　恋慕の内容を改変。過去からかなり改修
	ELSEIF RAND:2 == 0
		PRINTFORMW 「那个……%CNAME("一人称")%其实很喜欢%CNAME("Master")%……」
		PRINTFORMW 「……身为有夫之妇，竟然真的爱上了年龄相差一轮的对象」
		PRINTFORMW 「我知道这是不可能的。这是一段没有结果的爱情。」
		PRINTFORMW 「也许我不该说这种话。」
		PRINTFORMW 「%CNAME("一人称")%可能并不是和真正喜欢的人结婚了」
		PRINTFORMW 「当然，我爱我丈夫。但是……这绝对不是轰轰烈烈的恋爱结果。」
		PRINTFORMW 「%CNAME("一人称")%呢。因为父母离婚，所以从学园转校了……」
		PRINTFORMW 「然后，进了那边的大学。也和很多人交往过。」
		PRINTFORMW 「到现在为止%CNAME("一人称")%可能还没有遇到真正喜欢的人……」
		PRINTFORMW 「对方呢。虽说追求%CNAME("一人称")%，但可能只是习惯地交往而已」
		PRINTFORMW 「后来通过朋友介绍和现在的老公结婚了。」
		PRINTFORMW 「结果……%CNAME("一人称")%喜欢上的人，确是%CNAME("Master")%这个，不能爱上的人」
		PRINTFORMW 「可能会给你添麻烦……%CNAME("Master")%就算不爱着%CNAME("一人称")%也没什么関系」
		PRINTFORMW 「%CNAME("一人称")%只要是能够在%CNAME("Master")%身边就已经很幸福了」
		PRINTFORMW 「所以，这样就够了……把%CNAME("一人称")%抱在怀里、弄得乱七八糟把」
		PRINTFORMW 「%CNAME("一人称")%是只属于%CNAME("Master")%的……」
	;2020/12/15　恋慕別ver何らかの条件で分岐を取りたい所
	ELSE
		PRINTFORMW 「对你来说也许只是玩玩……」
		PRINTFORMW 「%CNAME("一人称")%却……好像真的喜欢上你了」
		PRINTFORMW 「%CNAME("一人称")%虽然是那个人的妻子、但是却想要成为你的%CNAME("Master")%爱人」
		;既に你と相思相愛の相手が居る場合のみ分岐を取る
		;若い順に読み込むので常に同じ人が選ばれるけど、まあしょうがないか
		IF FIND_COND("相思相愛")
			PRINTFORMW 「%CNAME("Master")%虽然可能也有了%CALLNAME:FIND_COND("相思相愛")%这样的人、但是却和%CNAME("一人称")%变成了这样的関系」
			PRINTFORMW 「是啊……%CNAME("一人称")%和%CNAME("Master")%可能很相似呢」
			CALL SET_CEVENT, "調教開始：相思相愛ＮＴＲ"
		ENDIF

		IF CEVENT("調教開始：相思相愛ＮＴＲ")
			PRINTFORMW 「可能只是自说自话吧……%CNAME("一人称")%也是」
			PRINTFORMW 「如果不允许做恋人的话，能继续保持以前的関系就好了。%CNAME("一人称")%想在%CNAME("Master")%的身边，一直」
			PRINTFORMW 「如果觉得再不行的话，无论何时都可以告诉我哦。也是呢，两个人的関系总有一天会结束的。」
		ELSE
			PRINTFORMW 「如果不行的话，就像以前一样继续做朋友也行。无论是以什么形式。只要能够待在%CNAME("Master")%的身边就可以了」
			PRINTFORMW 「我知道很任性。说出了这种话，真是个任性的女人」
			PRINTFORMW 「如果……讨厌的话，%CNAME("一人称")%和%CNAME("Master")%之间的関系就到此为止吧……嘶……」
		ENDIF
	ENDIF
	CALL SET_CEVENT, "調教開始：恋慕"
;口服避孕薬服用開始　飲ませたくない場合は取引から解除可能
ELSEIF TALENT:恋慕 && CFLAG:口服避孕薬 == 0 && CEVENT("口服避孕薬使用解禁：恋慕") == 0
	IF CEVENT("肛門限定：恋慕で解禁")
		PRINTFORML 「现在为止都只使用%TEXTR("屁穴/菊花")%不过实际上呢……」
		PRINTFORML 「每次身体重叠的时候……%CNAME("一人称")%也想要直接和%CNAME("調教時二人称")%没有束缚的相爱呢」
	ELSEIF CEVENT("避孕套Ｖ限定：恋慕で解禁")
		PRINTFORML 「到现在为止一直都带着避孕套……今后不戴也没関系」
		PRINTFORML 「虽然避孕很重要……即便如此也不如%CNAME("一人称")%和%CNAME("調教時二人称")%之间想要相爱的心情重要呢」
	ENDIF
;	CALL PRINT_STRL, @"「%CNAME("一人称")%も%TEXTR("中に出して欲しいなって/もっと気持ち良くなりたいから")%_HH_」"
;	CALL PRINT_STRW, @"「%TEXTR("口服避孕薬/経口避妊薬")%を飲んできちゃった%TEXTR("＿/の/んだ")%_HH_」"
	PRINTFORMW 「今后我想用避孕药……可以吗？」
	CALL PRINT_SELECT, "是/否"
	IF RESULT == 0
		CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_从现在開始尽情地品尝吧_HH_」"
		CFLAG:口服避孕薬 = 1
	ELSE
		PRINTFORMW 「是吗……既然%CNAME("Master")%这么说就没办法了」
;		PRINTFORMW 「エヴァにだけには乗らんといてくださいよ！」　あ、違いました。ごめんなさい
		PRINTFORMW 「因为只有危险的日子不能中出吧?」
	ENDIF
	CALL SET_CEVENT, "口服避孕薬使用解禁：恋慕"
;	PRINTFORML
;	SETCOLOR DEF_COLOR("黄色")
;		PRINTFORML 【取引指令から口服避孕薬の使用は解除出来ます】
;	RESETCOLOR

;口服避孕薬を你が取引から解除している場合のみこっちに来る
ELSEIF TALENT:恋慕 && CFLAG:口服避孕薬 == 0 && CEVENT("口服避孕薬使用解禁：恋慕") && CEVENT("口服避孕薬任意解除済み：恋慕")
	PRINTFORML 「我想应该可以理解……因为没有吃药所以要好好避孕哦 ？」
	IF COND("合意：肛門性交")
		CALL PRINT_STRW, @"「如果想要射出来的话……可以随时用我的屁股_HH_」"
	ELSE
		CALL PRINT_STRW, @"「如果可以避孕的话……就可以尽情做爱了呢，对吧_HH_」"
	ENDIF
	CALL SET_CEVENT, "口服避孕薬任意解除済み：恋慕"

;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無をチェック（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K52_KOJO2

;-------------------------------------------------
;助手との掛け合い(YYを助手の角色番号に置換、ＸＸを助手の角色番号に対応した名前に変更する)
;掛け合いをする角色を増やす場合は、コピー＆ペーストをして増やす
;-------------------------------------------------
;助手
;ELSEIF NO:ASSI == YY
	;初めて
;	IF CEVENT("助手会話：ＸＸ") == 0
		;恋慕＋恋慕時初口上（陥落イベント）が発生済み
;		IF CEVENT("調教開始：恋慕")
;			PRINTFORMW
		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		CALL SET_CEVENT, "助手会話：ＸＸ"
	;二回目以降
;	ELSE
		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;	ENDIF
;口上のある助手が居ない場合は、通常の二回目以降の口上へ飛ぶ
ELSE
	CALL K52_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K52_KOJO2
;恋慕
IF TALENT:恋慕
	IF (CFLAG:口服避孕薬 || TALENT:事后避孕药) && RAND:6 == 0
		CALL PRINT_STRL, @"「%TEXTR(@"因为在吃避孕药，如果可以的话希望在%CNAME("一人称")%的里面充满你的种子呢/可以拜托不戴避孕套吗……%CNAME("一人称")%的里面想要被炙热的精液填满")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"能够被喜欢的人射在里面的话……会很開心的/明明知道不会怀孕……但是感觉%CNAME("Master")%中出之后比平时更兴奋了呢/都快溢出来了……在%CNAME("一人称")%的小穴里射出很多呢")%_HH_」"
	ELSEIF CEVENT("個別イベント３") && BASE:欲求不満 >= 50 && EQUIP:胖次 && RAND:5 == 0
		CALL PRINT_STRL, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_今天%CLOCOLOR(CSTR:胖次)%の%PANTIES(TARGET, "種類")%被%TEXTR("看见了/看到了/视奸了/发现了")%_HH_」"
		CALL PRINT_STRW, @"「%CNAME("Master")%如果觉得開心的话……%CNAME("一人称")%什么都可以穿的哦、不用顾虑试着说一下吧_HH_」"
	ELSEIF CEVENT("個別イベント３") && BASE:欲求不満 >= 50 && EQUIP:胖次 && RAND:4 == 0
		CALL PRINT_STRL, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　今日は%CLOCOLOR(CSTR:胖次)%の%PANTIES(TARGET, "種類")%稍微尝试了一下_HH_」"
		CALL PRINT_STRW, @"「%CNAME("Master")%看了感觉怎么样，喜欢吗？%TEXTR("如果觉得其他种类更好的话，请告诉姐姐，我回去换的/如果觉得别的内衣好的话，我随时去换哦")%_HH_」"
	ELSEIF RAND:3 == 0
		PRINTFORML 「没関系。现在好像没有被那个人发现」
		PRINTFORMW 「%TEXTR("总是这样会很累的吧……经常拜托别人也不太好啊/回来了也……好像没什么那个意思")%」
	ELSEIF RAND:2 == 0
		PRINTFORML 「%CNAME("一人称")%其实……无论什么时候都想和%CNAME("Master")%在一起」
		CALL PRINT_STRW, @"「%CNAME("Master")%是学生，%CNAME("一人称")%是老师也是有夫之妇所以平时请忍耐一下。积攒的那份……现在会提供充分的服务释放，好好享受吧_HH_」"
	ELSE
		PRINTFORML 「寂寞的时候……%CNAME("一人称")%也是一样的」
		PRINTFORML 「%CNAME("一人称")%因为是%TEXTR("是有夫之妇所以请忍耐一下/结婚了所以请忍耐一下，对不起")%」
		PRINTFORML 「但是……%CNAME("一人称")%的身心的一切，全部都是属于%CNAME("Master")%的，真的」
		CALL PRINT_STRW, @"「你说什么我都听你的……今天就好好享受吧_HH_」"
	ENDIF
;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0
;週末だけは夜に対応する
	IF COND("夜")
		PRINTFORML 「离那个人回来的时间还早……」
		PRINTFORML 「今后也请不要客气地邀请我哦。%CNAME("Master")%的性欲多的都要溢出来了呢」
		CALL PRINT_STRW, @"「比起%CNAME("一人称")%自己一个人……两个人一起做感觉更加舒服呢_HH_」"
	ELSE
		PRINTFORML 「真是的……%CNAME("一人称")%怎么说也是%TEXTR("老师/教師")%啊」
		CALL PRINT_STRW, @"「当然、和%CNAME("Master")%一起的%TEXTR("love/做爱/性爱")%非常舒服……%TEXTR("嗯嗯/唔姆/哈啊")%_HH_」"
	ENDIF
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
	IF COND("夜")
		PRINTFORML 「好像没有被那个人发现……」
		PRINTFORML 「即使放任不管，也不会觉得%CNAME("一人称")%这样的女人会给他戴绿帽子吧」
		PRINTFORMW 「%CNAME("一人称")%再怎么样也是是女人，所以会感到寂寞，想要得到安慰。」
	ELSE
		PRINTFORML 「老师也很忙啊」
		CALL PRINT_STRW, @"「%TEXTR("好了，以后再继续说教吧/真的没时间了，所以尽快啊")%……%TEXTR("今天做什么事?/Hola、想做什么呢")%_HH_」"
	ENDIF
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	IF COND("夜")
		PRINTFORML 「那个人偶尔也会给我打电话，也有很少回来的时候……」
		PRINTFORML 「偶尔回到家也觉得很累。」
		PRINTFORMW 「%CNAME("一人称")%因为是妻子嘛……也想要一个婴儿，但这太难了。」
	ELSE
		PRINTFORML 「%CNAME("一人称")%还年轻嘛，所以才会欲求不满」
		PRINTFORMW 「……尽管一个人自慰也可以、但是和%CNAME("Master")%一起的话会更好呢」
	ENDIF
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	IF CFLAG:口服避孕薬 || TALENT:事后避孕药
		CALL PRINT_STRL, @"「%TEXTR("因为有在吃避孕药，所以尽情的在里面射出来吧，没関系的/今天的话不戴避孕套也可以哦……怎么样？")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("一人称")%也想看看%CNAME("Master")%射出来之后舒服的脸/其实が%CNAME("一人称")%も也喜欢直接中出……所以请不要客气/%CNAME("一人称")%其实也喜欢中出……暖洋洋的精子在里面游泳很让人兴奋呢")%_HH_」"
	ELSEIF COND("夜") && RAND:4 == 0
		PRINTFORML 「必须让那个人知道……最近觉得也没什么不好」
		CALL PRINT_STRW, @"「因为，和%CNAME("Master")%之间的%TEXTR("性行为/做爱")%是怎么都无法忘记的……%TEXTR("所以，要好好负责哦/今天也要好好疼爱那里哦")%_HH_」"
	ELSEIF CEVENT("個別イベント３") && BASE:欲求不満 >= 50 && EQUIP:胖次 && RAND:3 == 0
		CALL PRINT_STRL, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　今日は%CLOCOLOR(CSTR:胖次)%の%PANTIES(TARGET, "種類")%稍微尝试了一下_HH_」"
		CALL PRINT_STRW, @"「%CNAME("Master")%看了感觉怎么样，喜欢吗？%TEXTR("如果觉得其他种类更好的话，请告诉姐姐，我回去换的/如果觉得别的内衣好的话，我随时去换哦")%_HH_」"
	ELSEIF RAND:2 == 0
		PRINTFORML 「一開始呢，因为做了不好的事情而感到有罪恶感，心里很难受……」
		CALL PRINT_STRL, @"「最近和%CNAME("Master")%做了各种色情的事情变得很開心呢_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"那家伙放任这么可爱的妻子不管才是不对的/%CNAME("一人称")%明明也是会寂寞的……都怪那个人不好")%_HH_」"
	ELSE
		PRINTFORML 「%CNAME("一人称")%和%CNAME("Master")%做各种色情的事、%TEXTR("就算是激烈的也很開心/其实是不行的，但是很開心/虽然对不起那个人……但是很開心 ")%」
		CALL PRINT_STRW, @"「%CNAME("Master")%是怎么想的呢……%TEXTR(@"如果想和其他女孩子做的话，不要勉强/也有其他的年轻人、不用勉强和%CNAME("一人称")%一起玩吧？")%」"
	ENDIF
ENDIF
RETURN 1

;-------------------------------------------------
;調教終了時のセリフ
;-------------------------------------------------
@EVENTEND
SIF NO:TARGET != 52
	RETURN 1

;托卵宣言を解除
CALL DEL_CEVENT, "托卵宣言", TARGET
CALL DEL_CEVENT, "情人旅館で生中出し許可"

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;無責任中田氏した場合　今後、未実装の托卵個別イベントを見た場合のみ事后避孕药を飲まなくなる様にする
IF (CFLAG:口服避孕薬 == 0 || TALENT:事后避孕药 == 0) && CEVENT("無責任中出しされた")
	IF TALENT:相思相愛
		PRINTFORML 「……%CNAME("一人称")%也想早点怀上%CNAME("Master")%的孩子」
		CALL PRINT_STRW, @"「%CNAME("Master")%が%TEXTR("但还是要等到从学校毕业。在那之前，我们互相忍耐一下吧/不过在学校毕业之前是不行的。在那之前，我们互相忍耐一下吧")%_HH_」"
	ELSEIF TALENT:恋慕
		PRINTFORML 「……虽然喜欢%CNAME("Master")%的心情是真的」
		PRINTFORMW 「但是%CNAME("一人称")%还是那个人的妻子……」
	ELSE
		PRINTFORML 「真是的……」
		PRINTFORMW 「下次不准再射在里面了」
	ENDIF
	CALL SETFLAG, "事后避孕药"
	PRINTFORML
	PRINTFORMW %CALLNAME:TARGET%は事后避孕药を飲んだようです。
	;生中出しフラグを解除
	CALL DEL_CEVENT, "無責任中出しされた", TARGET

;調教強制終了時の口上
ELSEIF STATE("撃沈", MASTER)
	;恋慕
	IF TALENT:恋慕
		PRINTFORML 「已经结束了吗？」
		CALL PRINT_STRW, @"「没関系的_HH_已经很满足了，不用介意」"
	;其他
	ELSE
		PRINTFORML 「已经结束了？……」
		PRINTFORMW 「不，没什么……没什么」
	ENDIF
;partnerが体力or精力尽きた場合
ELSEIF STATE("撃沈")
	CALL PRINT_STRL, @"「哈HH_……哈HH_……」"
	CALL PRINT_STRW, @"「真是的……%TEXTR("稍微/还请")%……手下留情%TEXTR("吧/一些吧")%_HH_」"
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
	CALL PRINT_STRL, @"「哈HH_……哈HH_……」"
	CALL PRINT_STRW, @"「%TEXTR("真想/想要")%_HH_%TEXTR(@"%CNAME("Master")%一直这样……温柔的抱着/就这么被抱紧……一直一直")%_HH_」"
;恋慕
ELSEIF TALENT:恋慕
	PRINTFORML 「%TEXTR(@"真的……当初为什么没有选择%CNAME("Master")%呢，真后悔啊/如果能够早点……遇到%CNAME("Master")%，也许%CNAME("一人称")%会有更加美好的人生吧")%……」
	IF TALENT:相思相愛
		CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("Master")%大学毕业之后……%CNAME("一人称")%可能已经是欧巴桑了，好好考虑一下吧？/%CNAME("一人称")%的心情也是一样的。希望%CNAME("Master")%大学毕业的时候再好好地告白一次。")%_HH_」"
	ELSE
		CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　%TEXTR(@"不能当真哦，就算是%CNAME("一人称")%多少也会在意的吧？/不要这么诱惑一位人妻堕落哦。因为%CNAME("一人称")%是女人，所以可能会在意的。")%」"
	ENDIF
;屈服刻印Lv1以下
ELSEIF MARK:屈服刻印 <= 1
	CALL PRINT_STRL, @"「%TEXTR("呼，呼/哈")%_HH_……」"
	PRINTFORMW 「好久没这么激烈了……啊」
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	CALL PRINT_STRL, @"「%TEXTR("呼，呼/哈")%_HH_……」"
	CALL PRINT_STRW, @"「和%CNAME("Master")%之间的秘事，%TEXTR("并不是很讨厌呢/可能并不讨厌呢")%_HH_」"
	CALL PRINT_STRW, @"「倒不如说%CNAME("Master")%才是，%TEXTR(@"对我这样的大姐姐下手什么的，不会讨厌吗？/不和其他的女孩子，而是和%CNAME("一人称")%")%大姐姐一起做，没関系吗？」"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	CALL PRINT_STRL, @"「啊、哈啊_HH_……」"
	CALL PRINT_STRW, @"「%TEXTR(@"稍微休息一下吧……什么？%CNAME("一人称")%还年轻，不用休息，无论做几次都可以，在说什么啊！？/真是的……实在是太激烈了。稍微休息一下吧？这次已经让%CNAME("一人称")%直不起腰了")%_HH_」"
ENDIF
RETURN 1

;-------------------------------------------------
;指令実行時のセリフ
;-------------------------------------------------
@KOJO_MESSAGE_COM_K52
#DIM PENISSIZE

;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

;口枷着用時には口上をスキップする？
SIF TEQUIP:口枷 && SELECTCOM != 135
	RETURN 0

;電話中汎用口上
SIF TEQUIP:電話中 && SELECTCOM != 139
	RETURN 0
;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORML 「喂喂……」
		CALL PRINT_STRW, @"「漂亮什么的……这样的大姐姐的身体有什么好值得称赞的，真是的_HH_」"
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR("唔/喂喂")%_HH_%TEXTR("不继续下去吗/那个、因为很舒服")%……」"
			CALL PRINT_STRW, @"「%TEXTR("不行/不要/不可以/不能这样")%_HH_%TEXTR("啊啊啊/唔唔/哈啊")%_HH_%TEXTR("很擅长呢……啊，没什么/ 感觉到了……嗯，嗯 /感觉心情变得舒畅了……啊")%_HH_」"
		;それ以外
		ELSE
			PRINTFORML 「对%CNAME("一人称")%这样的%TEXTR("欧巴桑/大姐姐/年上")%的身体……」
			CALL PRINT_STRW, @"「感到%TEXTR("開心/快乐/高兴")%什么的，应该不会吧……%TEXTR("身体的曲线很美丽/很漂亮")%吗？%TEXTR("真是的/真会说话呢/嗯嗯~真開心呢")%_HH_」"
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1
	;被逆推ているとき
;	IF TEQUIP:推倒
;		;初めて
;		IF FIRSTCOM_REV(SELECTCOM) == 0
;			PRINTFORMW
;		;二回目以降
;		ELSE
;			;恋慕
;			IF TALENT:恋慕
;				PRINTFORMW
;			;それ以外
;			ELSE
;				PRINTFORMW
;			ENDIF
;		ENDIF
;	ELSE
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			IF CHECK_CLO("Ｖ露出") == 0
				PRINTFORML 「会把内衣弄脏的……」
				PRINTFORMW %CALLNAME:TARGET%穿着的%CLOCOLOR(CSTR:胖次, "形容詞")%%PANTIES(TARGET, "種類")%被唾液弄脏了…
			ELSE
				PRINTFORM %CALLNAME:PLAYER%把脸靠近了%CALLNAME:TARGET%的秘密场所
				IF CEVENTS("陰毛の名称") != ""
					PRINTFORM  %CEVENTS("陰毛の名称")%に整えられた
				ELSE
					PRINTFORM 艷麗的
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%的被阴毛覆盖的的小穴，左右微微张開着。
				PRINTFORMW 「和别的孩子相比……有点不一样吧，%CNAME("二人称")%不讨厌吗？」
				PRINTFORMW 被使用过的厚厚的大阴唇带着点黑色、述说着%CALLNAME:TARGET%已经是人妻的事实。
				PRINTFORMW 光是被看到%CALLNAME:TARGET%就兴奋了起来。爱液像洪水一样从私密处滴落，刺鼻的气味越来越重……
			ENDIF
		;二回目以降
		;清洁舔阴
		ELSEIF COND("清洁舔阴フラグ", PLAYER)
			;恋慕
			IF TALENT:恋慕
				CALL PRINT_STRL, @"「%TEXTR("啊/哈啊/嗯啊")%_HH_……%CNAME("調教時二人称")%这么舔下去的话……」"
				CALL PRINT_STRW, @"「%TEXTR("兴奋起来/心跳不已")%了……%TEXTR("不要再说漂亮之类的话了，这么说下面会流出来更多的/爱液流出来了吗……真是抱歉")%_HH_」"
			;それ以外
			ELSE
				PRINTFORML 「%TEXTR("用舌頭清洁的/舔的")%干干净净的呢……%TEXTR("谢谢/很開心呢")%……」
				PRINTFORMW 「那个……如果不讨厌的话、之后%CNAME("一人称")%也来……%TEXTR("回敬一下吧/清理那里吧/好好地感谢一下吧")%」
			ENDIF
		;それ以外
		ELSE
			;恋慕
			IF TALENT:恋慕
				CALL PRINT_STRL, @"「%TEXTR("啊啊/嗯嗯/哈啊")%_HH_……%TEXTR("太棒了/还要更多/太舒服了")%_HH_」"
				CALL PRINT_STRW, @"（%TEXTR("明明很羞耻/明明很害羞")%……%TEXTR("但是想要更多，腰不自觉动起来了/实在是太舒服了、要去了、哈啊、啊")%_HH_）"
			;それ以外
			ELSEIF PREVCOM == 1 && COND("前Ｔ調教者") == PLAYER
				CALL PRINT_STRL, @"「%TEXTR("不行啊/不可以/那样被舔的话")%……%TEXTR("啊啊/嗯嗯/哈啊")%_HH_」"
				PRINTFORMW （……%TEXTR("那个人/老公/丈夫")%……%TEXTR("一直没有/完全没有/不曾")%%TEXTR("这么做过/这么侍奉过")%呢，%TEXTR("舔着下面什么的/舔着小穴什么的")%……）
				IF CHECK_PANTIES("移開的")
					PRINTFORMW %CLOCOLOR(CSTR:胖次, "形容詞")%%PANTIES(TARGET, "種類")%被脱下%TEXTR("侍奉着/用舌頭舔舐着")%，%CALLNAME:TARGET%发出了甜美的声音…
				ENDIF
			ELSE
				IF COND("陰毛") >= 6
					CALL PRINT_STRL, @"「好害羞い……嗯_HH_」"
					PRINTFORMW 被浓密的阴毛覆盖的耻丘被打開，%CALLNAME:TARGET%忍不住发出了甜美的声音，扭动着身体…
				ELSE
					IF RAND:2 == 0
						PRINTFORML 「%TEXTR("太羞耻了/不要一直盯着看啊/就这么想看吗")%……」
					ELSE
						PRINTFORML 「……不行、嗯啊」
					ENDIF
					IF COND("陰核露出")
						PRINTFORMW 从%CALLNAME:TARGET%的%TEXTR("带着黑色/色素沉淀/厚实/黑色")%的%TEXTR("小穴/大阴唇")%可以看到%TEXTR("小豆豆/阴核")%露了出来。
					ELSEIF CHECK_CLO("Ｖ露出")
						IF RAND:2 == 0
							PRINTFORMW %CALLNAME:TARGET%注意到自己的%TEXTR("带着黑色/色素沉淀/厚实")%的%TEXTR("小穴/大阴唇")%露了出来。
						ELSE
							PRINTFORMW %CALLNAME:TARGET%闭着眼睛享受着%CALLNAME:PLAYER%用灵活的舌頭，在自己%TEXTR("带着黑色/色素沉淀/厚实/黑色")%的%TEXTR("小穴/大阴唇")%内外津津有味地品尝着，发出了啧啧的水声
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		ENDIF
;	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門愛撫
;-------------------------------------------------
IF SELECTCOM == 2
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;気持ちいい
		IF CHECK("Ａ指挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		;気持ちいい
		ELSEIF CHECK("Ａ指挿入")
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					IF TALENT:結腸性感
						PRINTFORMW
					ELSE
						PRINTFORMW
					ENDIF
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;-------------------------------------------------
IF SELECTCOM == 3
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰莖(扶她/男性のみ)
;-------------------------------------------------
IF SELECTCOM == 4
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;胸愛撫
;-------------------------------------------------
IF SELECTCOM == 5
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF COND("陥没乳頭") && CHECK_CLO("乳頭露出")
			PRINTFORML 「……如你所见、%CNAME("一人称")%的乳頭是内陷隐藏着的」
			PRINTFORMW 「可能让人失望了……如果可以的话，可以尽情地触摸哦。」
		ELSE
			PRINTFORML 「居然想摸%CNAME("一人称")%的欧派吗……」
			PRINTFORMW 「虽然不是什么不能接受的事情，但是拜托其他年轻的女孩子不是更好吗？」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF COND("陥没乳頭") && CHECK_COM("揉胸") && CHECK_COM("舔乳頭")
				;陥没乳頭が勃起
				IF COND("陥没乳頭") && CALCF("Ｂ発情")
					CALL PRINT_STRL, @"「%TEXTR("嗯嗯/哈啊")%、%TEXTR("唔/啊/嗯")%_HH_……%TEXTR("哈、哈/嗯、嗯啊/还要更多")%_HH_……」"
					CALL PRINT_STRW, @"（%TEXTR(@"明明是劈腿了/明明是出轨了")%……%TEXTR("但是想要更多……啊，再多一些/想要你再多多吸吮我的乳頭……更多")%_HH_）"
				ELSE
					CALL PRINT_STRL, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　%TEXTR(@"这样……嗯、拼命的舔舐着%CNAME("一人称")%的乳頭什么的。太高兴了/竟然一边揉一边、舔乳頭什么的……实在是太色情了")%_HH_」"
					CALL PRINT_STRW, @"（%TEXTR("啊/哈啊")%_HH_……就这样一直被舔着的话，%CNAME("一人称")%这样的内陷乳頭也会勃起的吧）"
				ENDIF
			ELSEIF COND("陥没乳頭") && CHECK_COM("舔乳頭")
				;陥没乳頭が勃起
				IF COND("陥没乳頭") && CALCF("Ｂ発情")
					CALL PRINT_STRL, @"「%TEXTR("做着这种色情的事/真是很喜欢欧派呢")%_HH_」"
					CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("二人称")%这么用力的舔着、%CNAME("一人称")%的乳房前端快要……硬起来了/%CNAME("二人称")%这么舔的话……%CNAME("一人称")%的乳頭快要硬起来了")%_HH_」"
				ELSE
					CALL PRINT_STRL, @"「%CNAME("一人称")%这样的%TEXTR("隐藏着/内陷着")%的%TEXTR("乳頭/乳頭")%……%TEXTR("像个孩子一样/像婴儿一样")%呢，%TEXTR("就这么想品尝吗/就这么想要舔舔吗")%_HH_」"
					CALL PRINT_STRW, @"「%TEXTR("真是的/阿拉阿拉")%_HH_　%TEXTR("好像生了个大孩子一样呢/像个可爱的小宝宝啊，请尽情品尝欧派吧")%_HH_」"
				ENDIF
			ELSEIF COND("陥没乳頭") && RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　"
				IF TALENT:MASTER:男性
					PRINTFORM 其他的%TEXTR("孩子/女孩/年轻孩子/女孩子")%的%TEXTR("胸部/乳房/欧派")%と
				ELSE
					PRINTFORM 自己的%TEXTR("胸部/欧派")%と
				ENDIF
				PRINTFORMW 是在比较吧?
				CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("一人称")%的乳頭虽然是内陷的……不过比柔软的话我有自信哦/%CNAME("一人称")%的乳頭虽然是隐藏着的……不过罩杯方面还是很自信的、请好好摸摸，好好享受它吧。")%_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%CNAME("二人称")%真是很喜欢胸部呢_HH_」"
				CALL PRINT_STRW, @"「呵呵_HH_如果被那样要求的话，也讨厌不起来呢，随自己喜欢，随便抚摸吧_HH_」"
			ENDIF
		;それ以外
		ELSE
			IF COND("陥没乳頭") && CHECK_COM("揉胸") && CHECK_COM("舔乳頭")
				;陥没乳頭が勃起
				IF COND("陥没乳頭") && CALCF("Ｂ発情")
					CALL PRINT_STRL, @"「%TEXTR("啊/哈啊")%_HH_……%TEXTR("好厉害/很棒哦")%」"
					CALL PRINT_STRW, @"（%TEXTR(@"%CNAME("一人称")%的乳頭都要露出来了/%CNAME("一人称")%太兴奋了……乳頭都变硬了")%_HH_……）"
				ELSE
					CALL PRINT_STRL, @"「%TEXTR("啊/哈啊")%_HH_」"
					CALL PRINT_STRW, @"「%TEXTR("胸部被揉着/胸部被这么抚摸着")%……%TEXTR("还要peropero的舔着/啊、被吸了，好害羞")%_HH_」"
				ENDIF
			ELSEIF COND("陥没乳頭") && CHECK_COM("舔乳頭")
				;陥没乳頭が勃起
				IF COND("陥没乳頭") && CALCF("Ｂ発情")
					CALL PRINT_STRL, @"「%TEXTR("已经是色情的事/因为只吸着前端")%_HH_」"
					CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("一人称")%的乳房前端……变成这样了/被%CNAME("二人称")%这么努力的吮吸着……乳頭、变成这样了")%_HH_」"
				ELSE
					PRINTFORML 「对不起啊……%CNAME("一人称")%的%TEXTR("乳頭/欧派的前端")%因为%TEXTR("是内陷的/是隐藏的")%」
					CALL PRINT_STRW, @"「%TEXTR("嗯/嗯啊")%……%TEXTR("感觉到了呢、乳頭要、勃起了/变得舒服起来了……这样就更容易吸了，对吧")%_HH_」"
				ENDIF
			ELSEIF COND("陥没乳頭") && RAND:2 == 0
				PRINTFORML 「%CNAME("一人称")%的%TEXTR("乳頭/欧派的前端")%是%TEXTR("内陷的/隐藏的")%的缘故」
				PRINTFORMW 「%TEXTR("……不用勉强自己哦/不想要吮吸的话也没関系……")%」
			ELSE
				PRINTFORML 「那个……」
				PRINTFORMW 「%CNAME("二人称")%想做什么就做什么吧」
			ENDIF
			IF TEQUIP:接吻
				PRINTFORMW %CALLNAME:TARGET%委身于%CALLNAME:MASTER%的怀抱%TEXTR("互相亲吻着/交换了亲吻")%
				CALL SETFLAG, "追加接吻フラグ", TARGET
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;テンダー接吻
		IF CHECK_COM("テンダー接吻")
			CALL PRINT_STRW, @"「%TEXTR("嗯啊/嗯")%_HH_……」"
			CALL PRINT_STRW, @"「%TEXTR("ちゅっ、ちゅ/ちゅ、ちゅう")%_HH_」"
			PRINTFORMW （……%CNAME("一人称")%好%CNAME("二人称")%简直像一对恋人…啊啊…心里七上八下的……）
		;それ以外
		ELSE
			CALL PRINT_STRL, @"「啾_HH_」"
			PRINTFORMW 「因为接吻了……这样就可以了吧？」
		ENDIF
	;二回目以降
	;被逆推ているとき
;	ELSEIF TEQUIP:推倒
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
	;それ以外
	ELSE
		;テンダー接吻
		IF CHECK_COM("テンダー接吻")
			IF RAND:3 == 0
				CALL PRINT_STRL, @"「%TEXTR("啾ゅ/唔~嗯")%_HH_」"
				CALL PRINT_STRL, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　%TEXTR("怎么样？喜欢和姐姐这样的亲吻吗？/像恋人一样的接吻呢……心里稍微有点激动")%_HH_」"
				IF TALENT:MASTER:男性
					PRINTFORMW （%TEXTR("完全……长了一张男子汉的脸，真是帅气啊/总觉得……不可思议啊。明明那时候还是个小男孩。……")%）
				ELSE
					PRINTFORMW （%TEXTR("和妈妈很像……变成大美人了呢/嗯，不愧是那个妈妈的孩子啊。长成美女了呢……")%）
				ENDIF
			ELSEIF RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("啾っ/唔~嗯/啾~哈")%_HH_%TEXTR("啾っ/啾っ/唔嗯")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("不行啊/不可以啊")%_HH_%TEXTR(@"别那么温柔/%CNAME("一人称")%明明是人妻")%……」"
			ELSE
				CALL PRINT_STRL, @"「嗯_HH_哈啊_HH_」"
				CALL PRINT_STRW, @"（……不行，明明觉得不可以，心里还是很紧张_HH_)"
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			IF INSERT("合体中")
				IF FLAG:情緒 >= 240 || TALENT:相思相愛 && RAND:2 == 0
					CALL PRINT_STRW, @"「%TEXTR("啪、啪、唔啊/啪、啪、哈啊、啪、哈啊")%_HH_」"
					CALL PRINT_STR, @"「%TEXTR("嗯/啊")%_HH_　比起那个人……和%CNAME("調教時二人称")%之间的%TEXTR("sex/做爱")%……喜欢、%TEXTR("肉棒/大鸡鸡")%、喜欢%TEXTR("啊/啊啊/哈啊")%_HH_」"
				ELSE
					CALL PRINT_STRL, @"「%TEXTR("嗯嗯/哈啊")%_HH_　%TEXTR("呵呵/嗯哼哼っ")%……%TEXTR("接吻吧/一起亲亲吧/想要接吻")%_HH_」"
					CALL PRINT_STRW, @"「%TEXTR("rero……嗯啊、rero、哈啊、rero/啾……嗯啊、啾、嗯")%_HH_」"
				ENDIF
			ELSE
				IF RAND:2 == 0
					CALL PRINT_STRL, @"「%TEXTR("啾/唔嗯")%_HH_　%TEXTR("啊/哈啊")%……」"
					CALL PRINT_STRL, @"「%TEXTR("啾、pero……唔嗯/啾、哈啊、peropero……嗯啊")%_HH_」"
					PRINTFORMW %CALLNAME:TARGET%和%CALLNAME:MASTER%%TEXTR("交织着唇舌/重叠嘴唇，伸着舌頭")%相互渴求着彼此、%TEXTR("专心的/不介意周围的样子")%%TEXTR("接吻着/沉浸在接吻中")%……
				ELSE
					CALL PRINT_STRL, @"「%TEXTR("啾/唔嗯/嗯啊")%_HH_%CNAME("一人称")%%TEXTR("喜欢/爱着")%的人……%TEXTR("只有/只是")%%CNAME("主人")%一个」"
					PRINTFORMW （%TEXTR("对不起/请原谅")%……%TEXTR(@"%CNAME("一人称")%是个会出轨的坏女人/一想到背着丈夫被其他人抽插着，啊啊、下面更加兴奋了")%……）
				ENDIF
			ENDIF
		;それ以外
		ELSE
			IF ABL:PLAYER:技巧 >= 3 && (RAND:3 == 0 || FLAG:情緒 >= 240)
				CALL PRINT_STRL, @"「%TEXTR("嗯/嗯啊/啾/唔嗯")%_HH_……%TEXTR("呼、啾……嗯啊……/啾……啧……")%%TEXTR("哈啊/唔")%_HH_」"
				IF RAND:2 == 0
					CALL PRINT_STRL, @"「%TEXTR("在哪里学会了这样的事/真是个坏孩子啊，竟然这么灵活的用舌頭")%_HH_」"
				ELSE
					PRINTFORML 「%TEXTR(@"%CNAME("一人称")%/大姐姐")%明明%TEXTR("是人妻了/已经结婚了")%……」
				ENDIF
				PRINTFORMW （%TEXTR(@"真是色情的吻……除了丈夫以外没什么不好……/%CNAME("一人称")%这么做是因为%CNAME("二人称")%诚恳的请求……是因为没办法才答应的……")%）
			ELSEIF RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("嗯啊/啾/唔嗯")%_HH_」"
				CALL PRINT_STRW, @"「都怪%TEXTR("那个人/丈夫/老公")%的原因……%TEXTR("不然……我才不会和其他人这样/总是不和我做这样的事情/最近完全没有这样做……嗯")%_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("啾ゅ/唔~嗯")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_ 姐姐的吻怎么样？因为好久没有接吻了……稍微努力了一下_HH_」"
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;阴部愛撫
;阴蒂の場合にはCHECK_COM("陰核愛撫"), 阴部の場合にはCHECK_COM("阴部愛撫"), 恥丘ならCHECK_COM("恥丘愛撫")がONになる
;-------------------------------------------------
IF SELECTCOM == 7
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STRW, @"「%TEXTR("嗯啊/哈啊")%_HH_……」"
		IF TALENT:MASTER:男性
			CALL PRINT_STRW, @"「对色情的事情很感兴趣呢_HH_　女孩子的这个地方很敏感，如果可以的话，请温柔地爱抚吧？_HH_」"
		ELSE
			CALL PRINT_STRW, @"「大概是因为年龄，对色情的事很感兴趣的样子_HH_要知道女孩子的这这里很敏感，所以要温柔一点哦？_HH_」"
		ENDIF
	;二回目以降
	;中出し後にお掃除
	ELSEIF CHECK_COM("擦拭")
		;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
		;RETURN 0
		CALL PRINT_STRL, @"「%TEXTR("清理的这么干净呢……嘿嘿_HH_　/好温柔啊……把这里清理的这么干净。")%感激不尽_HH_」"
		IF TALENT:MASTER:男性
			PRINTFORMW （%TEXTR(@"虽然很不甘心，但是这孩子真的成长成了一个好男人……总感觉怦然心动了/真是的……为什么成长成了这么好的男人。以%CNAME("二人称")%的眼光来看，%CNAME("一人称")%已经是欧巴桑了吧……")%）
		ENDIF
	;それ以外
	ELSE
		IF CHECK_COM("陰核愛撫")
			CALL PRINT_STRL, @"「%TEXTR(@"那里被这么爱抚的话……嗯~好、好舒服/不行啊……如果那样的话%CNAME("一人称")%的腰会忍不住想扭动的")%_HH_」"
			CALL PRINT_STRW, @"「……%TEXTR("别使坏了……啊，哈啊/拜托了，不要使坏了")%_HH_　%TEXTR("哈啊/嗯啊")%_HH_　%TEXTR("明明说了不行的……嗯、哈啊/小豆豆被这样玩弄的话……啊、哈啊")%_HH_」"
		;恋慕
		ELSEIF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
			CALL PRINT_STRW, @"「%CNAME("二人称")%未来%TEXTR("的恋人/结婚的人")%真是让人羡慕啊_HH_居然可以让人这么舒服……让一名人妻有这样的感觉，%CNAME("二人称")%真是个好孩子」"
		;それ以外
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
			CALL PRINT_STRL, @"「%TEXTR("温柔地抚摸吧_HH_……这样想也不错/真是温柔呢……这样的话女孩子会怦然心动的")%_HH_」"
			PRINTFORMW （%TEXTR("那个人都不会这么做……不行啊。不能一起比较啊……/明明还以为是个孩子……却这么擅长色情的事，真是个坏孩子啊……")%）
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;指挿入
;CHECK_COM("玩弄Ｇ点")とTEQUIP:振動棒で大きく分岐する
;-------------------------------------------------
IF SELECTCOM == 8
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;振動棒挿入中
		IF TEQUIP:振動棒
			CALL PRINT_STRW, @"「呵呵_HH_……想要尝试使用振动棒吗_HH_」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%没関系的……下面已经习惯了，不要太粗暴就可以，随便使用吧_HH_」"
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「嗯啊_HH_　姐姐的里面品尝到了%CNAME("二人称")%的手指_HH_」"
			CALL PRINT_STRW, @"「一開始要慢慢移动_HH_……然后稍微快一点……很擅长呢。就这样慢慢来吧_HH_」"
		ENDIF
	;二回目以降
	;Gスポット刺激
	ELSEIF CHECK_COM("玩弄Ｇ点")
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR("嗯啊/哈啊")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR(@"完全记住了%CNAME("一人称")%的弱点……不行、这样下去的话感觉……嗯/拜托，请原谅……不行、不行、那里是、啊、不行")%_HH_」"
		;気持ちいい
		ELSEIF CHECK("指挿入")
			CALL PRINT_STRL, @"「%TEXTR("嗯、哈啊_HH_……嗯、请原谅_HH_……/啊，啊，好舒服……还要更多……啊，不行，这样下去要变得奇怪了_HH_")%」"
			PRINTFORMW （%TEXTR("竟然有这么舒服的事……那个人已经完全无法满足了……/啊……不行。如果身体记住这么舒服的事情的话，和那个人做爱就满足不了了……")%）
		;それ以外
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("是啊，因为那里是女孩子敏感、快乐的地方……还请温柔的爱抚呢/因为那里是G点……在里面请温柔的爱抚……嗯啊")%_HH_」"
		ENDIF
	;振動棒挿入中
	ELSEIF TEQUIP:振動棒
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR("想让我看震动的地方吗?唔、真是色情/真是的……让我看震动的地方、真是个恶劣的坏孩子")%_HH_」"
			PRINTFORMW （%TEXTR(@"明明被这么年轻的孩子这么欺负着……%CNAME("第一人称")%为什么兴奋起来了呢……/明明是同样的玩具，却和自己一个人使用的时候完全不一样……只是稍微一动就感觉快要去了，实在是太舒服了……")%）
		;気持ちいい
		ELSEIF CHECK("振動棒")
			CALL PRINT_STRL, @"「%TEXTR("哈啊/嗯")%_HH_　%TEXTR("这么振动的话……不行啊，感觉要去了、啊啊、/那样做的话……不行，感觉要去了、啊啊、")%_HH_」"
			PRINTFORMW （%TEXTR("振动棒竟然能让人心情这么舒畅……不行……/比那个人做的时候……比自己做的时候舒服多了……")%）
		;それ以外
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("呵呵。没必要那么拼命做呢/慢慢地使用就好了")%_HH_」"
			CALL PRINT_STRW, @"「振动棒的使用方法方法接下来由%TEXTR(@"%CNAME("一人称")%/大姐姐")%慢慢教你吧……%TEXTR("不要着急，记住它吧/请放心吧")%_HH_」"
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR("啊啊/嗯啊")%_HH_　%TEXTR(@"发出那样不好意思的声音……因为心里平静不下来/不行、%CNAME("一人称")%竟然发出了这么大的声音、啊、")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR(@"故意让姐姐发出这种声音……%CNAME("二人称")%真是坏心眼/竟然这样捉弄姐姐……%CNAME("二人称")%真是个坏孩子")%_HH_」"
		;それ以外
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("Hola……不用客气，尽情的在里面移动吧/不必太客气。姐姐我有体验过，多少有点习惯了")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("慢慢地运转使用吧/一点点拿出放进去")%_HH_　%TEXTR("嗯/嗯啊")%……%TEXTR(@"做得很好，就是这样/感觉不错。就这样找到%CNAME("一人称")%会感到舒服的地方吧")%_HH_」"
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐肛Ａ面部騎乗(被逆推ているとき)
;-------------------------------------------------
;舐肛
IF SELECTCOM == 9
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORML 「那样的地方……」
			PRINTFORMW 「很脏的……啊，羞死人了」
		ENDIF
	;二回目以降
	;被逆推ているとき
;	ELSEIF TEQUIP:推倒
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR("拜托、饶了我吧/不行啊")%……%TEXTR("嗯嗯/哈啊")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("屁股/菊穴")%那里%TEXTR("不可以舔啊/被舔了的话…会控制不住的")%_HH_」"
		;それ以外
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「拜托了……不要看」
				PRINTFORMW 「不行，舔那种地方太脏了，对吧」
			ELSE
				PRINTFORML 「好害羞啊……」
				PRINTFORMW 「拜托了……啊，舌頭进去了」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方手交
;-------------------------------------------------
IF SELECTCOM == 10
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方乳交
;-------------------------------------------------
IF SELECTCOM == 11
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方足交
;-------------------------------------------------
IF SELECTCOM == 12
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開阴道
;-------------------------------------------------
IF SELECTCOM == 13
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「为什么要这么说呢……」
		PRINTFORMW 「%CNAME("一人称")%因为是大人……和其他女孩子的小穴不一样、没有其他女孩子那么漂亮」
		CALL PRINT_STRW, @"「如果那样也可以的话……请看吧_HH_」"
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORML 「真是的……」
			IF COND("夜")
				CALL PRINT_STRL, @"「毕竟已经是有夫之妇了……那个人也从来没说过要我张開小穴给他看啊_HH_」"
			ELSE
				CALL PRINT_STRL, @"「想让老师张開自己的小穴什么的，这么不要脸的事竟然拜托我……只有这一次啊_HH_」"
			ENDIF
			IF RAND:2 == 0
				PRINTFORMW （一想到做了不好的事情……%CNAME("一人称")%的小穴竟然已经湿了……）
			ELSE
				PRINTFORMW （明明觉得不行……但是小穴都已经湿了……）
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入
;-------------------------------------------------
IF SELECTCOM == 15
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋
;-------------------------------------------------
IF SELECTCOM == 30
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 31
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("振動棒")
			PRINTFORML 「那个……」
			PRINTFORMW 「嗯嗯……这种程度的话完全没问题」
		;それ以外
		ELSE
			PRINTFORML 「嗯啊……」
			PRINTFORMW 「可能有点……大呢」
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")
			IF TALENT:恋慕 && (SIZE("振動棒", TARGET) == SIZE("阴茎", MASTER)) && RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("嗯啊/嗯")%……振动棒是和%CNAME("Master")%相同的%TEXTR("尺寸/大小")%呢、有点兴奋起来了_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("嗯嗯/当然")%、比起%CNAME("Master")%的%TEXTR("真正的/勃起的")%肉棒，%TEXTR("振动棒虽然没有可比性/还是更喜欢真正的大鸡鸡呢")%_HH_」"
			ELSEIF SIZE("振動棒", TARGET) == SIZE("阴茎", PLAYER) && RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR(@"简直是……和%CNAME("Master")%的肉棒大小一样呢/嗯啊……光是想象着和%CNAME("Master")%的尺寸差不多、爱液就止不住了")%_HH_」"
				PRINTFORMW （%TEXTR(@"%CNAME("一人称")%明明是人妻……却被丈夫以外的的男人……%CNAME("Master")%的肉棒深深吸引着……/%CNAME("Master")%的大肉棒……光是想象着就已经忍不住了……")%）
			ELSE
				CALL PRINT_STRL, @"「%TEXTR(@"%CNAME("一人称")%也是成熟女性，这种程度的没问题的/还能从容地吞下去……%CNAME("一人称")%は真是个淫荡的女人")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("嗯~/啊~嗯~")%简直不敢相信自己的目光。真正的自己是这样的吗_HH_」"
			ENDIF
		;それ以外
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("真是色情/有点夸张/形状很漂亮")%的振动棒，%TEXTR("要放进去吗/想让姐姐用吗")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("没办法啊/嗯，知道了")%。姐姐啊……虽然不好意思，%TEXTR("含着振动棒的地方/使用振动棒的地方")%，请好好看看吧_HH_」"
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛用振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORML 「……啊」
			PRINTFORMW 「比想象中更容易进去呢」
		;それ以外
		ELSE
			PRINTFORML 「嗯啊……」
			PRINTFORMW 「虽然有点痛苦……啊」
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒")
			;Ｓ状結腸まで振動棒が侵入している
			IF CHECK_COM("結腸責め")
				IF TALENT:結腸性感
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF TALENT:恋慕 && (SIZE("肛用振動棒", TARGET) == SIZE("阴茎", PLAYER))
				CALL PRINT_STRL, @"「这个%TEXTR("尺寸/大小")%……简直像是%CNAME("Master")%插入了%TEXTR("屁股/菊穴")%一样呢_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　光是想象着%TEXTR("下面就要湿了/爱液就要流出来了")%……」"
			ELSEIF ABL:Ａ感覚 >= 3 && RAND:2 == 0
				PRINTFORML 「%TEXTR("要插入菊穴里/肛門振动棒")%吗……虽然并不是%TEXTR("讨厌/很讨厌")%……」
				PRINTFORMW 「%TEXTR("放进去的话，就会变得想要……吧?/光靠屁股已经不能满足了……因为、想要做那个")%」
			ELSEIF ABL:Ａ感覚 >= 2 && RAND:2 == 0
				PRINTFORML 「%TEXTR("是啊/是吗")%……」
				PRINTFORMW 「%TEXTR("我觉得有点舒服……不是很正常吗？/我也算是明白的……感觉好像变成变态了，好害羞啊")%」
			ELSEIF ABL:Ａ感覚 >= 1 && RAND:2 == 0
				PRINTFORML 「是不是多少有点感觉了?」
				PRINTFORMW 「%TEXTR(@"……没那回事/嗯……%CNAME("一人称")%的菊穴应该没什么……感觉吧？")%
			ELSE
				PRINTFORML 「想要把肛門振动棒插进去？」
				PRINTFORMW 「……菊穴扩张这种事%TEXTR("做了的话/做出来的话")%……%TEXTR("外遇/出轨")%的事情可能会被发现啊，稍微有些不安呢……」
			ENDIF
		;それ以外
		ELSE
			PRINTFORML 「如果无论如何都想做的话那就做吧……」
			PRINTFORMW 「%CNAME("一人称")%虽然不太喜欢使用肛門振动棒%TEXTR("＿/呢/……")%」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飛機杯
;-------------------------------------------------
IF SELECTCOM == 37
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ｖ挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 60 && SELECTCOM <= 69 && FIRSTCOMS("Ｖ挿入") == 0
	;処女
	IF TALENT:処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;非処女
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「……真是不可思议的感觉_HH_」"
			PRINTFORMW 「%CNAME("一人称")%虽然是人妻……」
			PRINTFORMW 「但是和%CNAME("二人称")%在一起就像真正的恋人一样……%CNAME("二人称")%是怎么想的呢」
		;それ以外
		ELSEIF FLAG:情緒 >= 240
			PRINTFORMW 「虽然%CNAME("一人称")%爱的只有那个人……」
			PRINTFORMW 「但是%CNAME("一人称")%也喜欢着%CNAME("二人称")%……」
			PRINTFORMW 「这样说是不是有点狡猾……」
		ELSE
			PRINTFORMW 「希望……把%CNAME("一人称")%搞得一团糟」
			PRINTFORMW 「お願い……イケない事をしてるって忘れちゃうぐらい」
			PRINTFORMW 「%CNAME("一人称")%を滅茶苦茶にして欲しいな」
		ENDIF
		CALL SET_CEVENT, "Ｖ初性交済み：調教初回"
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ｖ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;巨根
	IF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		CALL PRINT_STRL, @"「%TEXTR("嗯/唔")%_HH_……」"
		CALL PRINT_STRL, @"「进入%CNAME("一人称")%的里面了……%TEXTR("感受到了/来了、能够感觉到")%……」"
		PRINTFORML 「%TEXTR("这个尺寸/这个大小")%的肉棒……啊……感觉%TEXTR("很好/很舒服")%……」
		IF RAND:2 == 0
			PRINTFORMW （………明明才刚进来……又硬又热……好厉害……）
		ELSE
			PRINTFORMW （和那个人的……完全不一样……明明不行……兴奋起来了……）
		ENDIF
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;"正常位", "屈曲位"
		CASE 60, 62
			CALL PRINT_STRL, @"「%TEXTR("太羞耻了/不行啊")%_HH_……」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%的%TEXTR("那里/小穴")%。一点也不漂亮%TEXTR("＿/……")%那里、%TEXTR("不要看啊/请不要一直看")%……%TEXTR("别看啊/不行啊、这么看着")%_HH_」"
		;後背位
		CASE 61
			CALL PRINT_STRL, @"「简直像%TEXTR("母狗/动物交配")%的姿势一样……%TEXTR("这么做/这样被侵犯/这样做爱")%的话，感觉更加性奋了_HH_」"
			CALL PRINT_STRL, @"「嗯……%CNAME("一人称")%是%TEXTR("希望这样/想做")%…所以_HH_%TEXTR("嗯、嗯啊啊/哈啊啊")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("说起来有些不好意思/嗯、是的")%_HH_其实、%CNAME("一人称")%%TEXTR("很喜欢这个姿势/很喜欢这样趴着做/喜欢这个这个姿势来做")%_HH_」"
		;対面座位
		CASE 63
			CALL PRINT_STRL, @"「%TEXTR("真是的/喂喂")%_HH_……」"
			CALL PRINT_STRW, @"「%TEXTR(@"因为这个体位太羞耻了……互相凝视，不就像恋人一样吗/就这样和%CNAME("二人称")%互相注视着……虽然是人妻、%CNAME("一人称")%也有些心跳不已")%_HH_」"
		;背面座位
		CASE 64
			CALL PRINT_STRL, @"「%TEXTR("嗯啊/嗯")%_HH_……」"
			IF RAND:2 == 0
				CALL PRINT_STRW, @"「这样紧紧的%TEXTR("把身体贴在一起/贴着身体")%……%TEXTR("胸部/欧派")%%TEXTR("也被抚摸着/还被一边玩弄")%、啊啊_HH_现在、不能插进去_HH_」"
			ELSE
				CALL PRINT_STRW, @"「呵呵_HH_姐姐的胸部怎么样，喜欢吗_HH_再……接着享受一轮吧_HH_」"
			ENDIF
		;騎乗位
		CASE 65
			CALL PRINT_STRL, @"「%TEXTR("只考虑色情的事情/总是做色情的事")%的坏孩子需要好好的惩罚一下呢_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("满满的/好充实")%……%TEXTR("大姐姐/人妻")%的性爱技巧怎么样呢……%TEXTR("直到榨干之前都不会停下来的/姐姐会一直疼爱你直到说出“请原谅我”为止。")%_HH_」"
		;それ以外
		CASEELSE
			CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
			CALL PRINT_STRL, @"「%TEXTR(@"作为人妻/作为有夫之妇")%，却和%CNAME("二人称")%成为%TEXTR("这样的関系/这样的肉体関系")%……%TEXTR("真是没想到呢/从来没想过么")%_HH_」"
			CALL PRINT_STRW, @"「……和%CNAME("二人称")%做了之后，%TEXTR("实在是太舒服了/虽然知道不可以，但就是停不下来")%_HH_　%TEXTR("所以，就当作今天是最后一次，好好放松一下吧/其实……这次也想结束，所以请一起做爱做到双方都厌倦的程度吧")%_HH_」"
		ENDSELECT
	;それ以外
	ELSE
		;巨根
		IF SIZE("阴茎", PLAYER) >= 2
			CALL PRINT_STRL, @"「%TEXTR("哈啊/唔嗯/嗯啊")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("啊……这么大的/好厉害……太雄伟了")%_HH_%TEXTR(@"拜托了，请温柔一点/请、慢慢地放进去")%_HH_……」"
			PRINTFORMW （%TEXTR(@"这样的东西插进小穴的话……%CNAME("一人称")%快要受不了了/仅仅是龟頭插了进去……就感觉满满的、%CNAME("一人称")%要变得奇怪了啊")%）
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR(@"用姐姐的技巧……来让你爽到飞起吧/不小心的话，%CNAME("一人称")%的腰部动作会马上让你缴枪的哦")%_HH_」"
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ｖ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2
;		IF TALENT:恋慕
;			PRINTFORMW
;		ELSE
			CALL PRINT_STRL, @"「%TEXTR("已经/哈啊")%_HH_忍不住了……」"
			CALL PRINT_STRL, @"「%TEXTR("不想一起做吗/不想一起H吗")%_HH_希望可以明白……已经忍不住了、%TEXTR("想要激烈的性爱/好像……被侵犯")%……」"
			CALL PRINT_STRW, @"（%TEXTR("明明是人妻，却和丈夫以外的男人一起做爱/明明知道是不可以的，却想要得不得了")%……」"
;		ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
;		IF TALENT:恋慕
;			PRINTFORMW
;		ELSE
			CALL PRINT_STRL, @"「%TEXTR("嗯啊/嗯嗯")%_HH_　%TEXTR("这个姿势……最喜欢了/明明知道这个姿势是弱点")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("真是坏心眼的孩子……啊啊、不可以/已经……稍微让我休息一下，啊啊啊")%_HH_」"
;		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位", "対面座位"
			IF TALENT:恋慕 && NOWEX:Ｖ绝顶前骤停
				IF RAND:2 == 0
					CALL PRINT_STRL, @"「%TEXTR("这样怎么样/嗯~嗯")%_HH_」"
					CALL PRINT_STRW, @"「%TEXTR("不会让你逃走的/不会放開的")%_HH_%TEXTR("放弃吧/做好觉悟吧")%、来~进入%TEXTR(@"%CNAME("一人称")%/姐姐")%的小穴里吧_HH_」"
				ELSE
					CALL PRINT_STRL, @"「%TEXTR("啊啊/哈啊")%_HH_　哈、哈、嗯啊_HH_」"
					CALL PRINT_STRW, @"「%TEXTR("唔嗯/唔/嗯啊")%_HH_　%TEXTR("这里不行/这里是弱点/这里不可以/哪里不可以")%_HH_%TEXTR("大肉棒/去了去了/好、好啊/实在是太厉害了/不行了、要去了")%_HH_」"
				ENDIF
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORML 「和那个人在一起的时候……%TEXTR("那个……/＿")%」
				CALL PRINT_STRL, @"「%TEXTR("只尝试过正常位/是啊，只用过正常位")%……%TEXTR("嗯/哈啊")%_HH_」"
				CALL PRINT_STRL, @"「%TEXTR("不行啊/不可以")%_HH_　那个人确实%TEXTR("不会这么激烈的做/没法满足")%_HH_」"
			ELSEIF RAND:2 == 0
				PRINTFORML 「真是的……不要总这样盯着我的脸」
				CALL PRINT_STRW, @"「因为%CNAME("一人称")%被这样%TEXTR("看着/凝视着")%%TEXTR("太害羞了/心里七上八下的")%_HH_」"
			ELSE
				PRINTFORML 「互相看着对方的脸，简直就像恋人一样……」
				CALL PRINT_STRW, @"「%TEXTR("什么啊/開玩笑的")%_HH_　%CNAME("一人称")%已经是是有老公的人妻了，别当真」"
			ENDIF
		CASE "後背位"
			IF TALENT:恋慕 && NOWEX:Ｖ绝顶前骤停
				IF RAND:2 == 0
					CALL PRINT_STRL, @"「%TEXTR("哈啊/嗯啊/啊啊")%_HH_这么%TEXTR("粗暴/激烈/猛戳/插入")%……%TEXTR("好喜欢/感觉到了")%_HH_」"
					IF RAND:2 == 0
						CALL PRINT_STRW, @"「%TEXTR("好喜欢、好喜欢/喜欢、最喜欢了/想要被弄得乱七八糟")%_HH_　啊啊、啊啊_HH_　要去了、要去了_HH_　喜欢你、喜欢啊_HH_」"
					ELSE
						CALL PRINT_STRW, @"「%TEXTR("好喜欢、好喜欢/喜欢、最喜欢了/想要被弄得乱七八糟")%_HH_　啊啊、啊啊_HH_　要高潮了、要高潮了啊啊啊_HH_」"
					ENDIF
				ELSE
					CALL PRINT_STRL, @"「%TEXTR("啊啊/哈啊")%_HH_　哈、哈、嗯啊_HH_」"
					CALL PRINT_STRW, @"「%TEXTR("唔嗯/唔/嗯啊")%_HH_　%TEXTR("这里不行/这里是弱点/这里不可以/哪里不可以")%_HH_%TEXTR("大肉棒/去了去了/好、好啊/实在是太厉害了/不行了、要去了")%_HH_」"
				ENDIF
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORML 「你知道吧……」
				PRINTFORML 「那个……那个人%TEXTR("一直都是正常位/没有用过其他的姿势")%」
				CALL PRINT_STRW, @"「%TEXTR(@"拜托了……不要停下来，请……快点用大鸡鸡…/嗯，摇腰原因是因为那个……%CNAME("二人称")%太让人焦躁不安了")%_HH_」"
			ELSEIF RAND:2 == 0
				PRINTFORML 「%TEXTR("趴在地上，被人从后面按住/就这样被人从后面插入")%……」
				PRINTFORML 「%TEXTR("嗯嗯……/是啊……/＿")%%TEXTR("好喜欢这样/最喜欢这样了")%……」
				CALL PRINT_STRW, @"「%TEXTR("我承认了/我已经回答好了")%……拜托了%TEXTR(@"、/…要问我、想要什么，想要%CNAME("二人称")%的大、大鸡鸡插进来。/小穴好像要、想要到里面发痛了。/……真想快点插进去啊。")% 呜呜呜_HH_」"
			ELSE
				PRINTFORML 「是什么心情……」
				CALL PRINT_STRL, @"「%TEXTR("真是坏心眼/明明是知道的")%_HH_明明%TEXTR("出轨/和其他人做")%是不对的、因为%TEXTR("想要大鸡鸡/想要被玩弄")%……」"
				CALL PRINT_STRW, @"「……%TEXTR(@"摆出这样的姿势肯定会很兴奋吧/%CNAME("一人称")%也是女孩子，被这样折服的话会很兴奋的")%_HH_」"
			ENDIF
		CASE "騎乗位"
			IF TALENT:恋慕 && NOWEX:Ｖ绝顶前骤停
				CALL PRINT_STRL, @"「%TEXTR("嗯嗯啊/哈啊啊")%_HH_　%CNAME("二人称")%撞到了%CNAME("一人称")%最舒服的地方_HH_」"
				CALL PRINT_STRW, @"「这是%TEXTR("那个人/老公")%没法插到的地方、嗯啊_HH_　最舒服的地方……%TEXTR("嗯啊/啊啊啊/哈啊")%_HH_　%TEXTR("这么激烈的抽插着……不行了、要去了啊啊啊啊/这样摩擦着、嗯啊、好舒服啊")%_HH_」"
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORML 「……和那个人%TEXTR("从来没这么做过/都没有尝试过女方在上的姿势/……因为不喜欢这样的姿势，所以没有和老公做过。")%」
				PRINTFORML 「即使这样也很重视%CNAME("一人称")%的事，所以并不责备他，也爱着他……只是对待%TEXTR("夜生活/性生活")%比较淡薄而已」
				PRINTFORML 「%TEXTR("相对的，他很会用腰?/虽然没有经验，却夸我很厉害")%」
				CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_%TEXTR(@"少女有很多秘密哦/%CNAME("一人称")%是大人了。会有一两个秘密也是正常的吧")%_HH_」"
			ELSE
				PRINTFORML 「%CNAME("一人称")%%TEXTR("的技巧、怎么样呢？/被姐姐坐在身上是怎样的感受呢?")%」
				CALL PRINT_STRW, @"「%TEXTR("诶嘿嘿/呵呵/嗯哼哼っ")%_HH_　%TEXTR(@"%CNAME("一人称")%会充分告诉你成熟的女人是什么样子的/偶尔%CNAME("一人称")%也要让你见识一下认真起来的姐姐是什么样子")%_HH_」"
			ENDIF
		;背面座位だけじゃね？？？
		CASEELSE
			IF TALENT:恋慕 && NOWEX:Ｖ绝顶前骤停
				CALL PRINT_STRL, @"「%TEXTR("喜欢/最喜欢了")%_HH_　拜托了%TEXTR(@"%CNAME("一人称")%想要/想")%%TEXTR("被紧紧抱着/被弄到高潮")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("嗯啊/哈啊")%_HH_　%TEXTR("一副逃不掉的样子/被包裹着全身")%……%TEXTR("哈啊/啊啊/唔嗯")%_HH_　简直像是和%CNAME("二人称")%融为了一体%TEXTR("＿/嗯啊")%_HH_」"
			;巨根
			ELSEIF MARK:屈服刻印 >= 2 && SIZE("阴茎", PLAYER) >= 2 && RAND:4 == 0
				PRINTFORML 「%TEXTR("嗯/啊/嗯啊")%……」
				CALL PRINT_STRL, @"「%CNAME("二人称")%的%TEXTR("大/强壮的")%肉棒进入到%CNAME("一人称")%的%TEXTR("里面了/深处摩擦着")%…%TEXTR("…/嗯/啊")%_HH_」"
				PRINTFORMW （%TEXTR("到那个人绝对够不到的地方……进来了……/不行了……比那个人厉害多了，快要受不了了/老公对不起……要忍不住了")%）
			ELSEIF MARK:屈服刻印 >= 2 && SIZE("阴茎", PLAYER) >= 2 && RAND:3 == 0
				CALL PRINT_STRL, @"「%TEXTR("＿/是的")%……%TEXTR("比那个人的肉棒大得多/摩擦到了那个人的小鸡鸡够不到的地方")%_HH_」"
				CALL PRINT_STRW, @"「……%TEXTR("真是的/喂")%_HH_让%TEXTR(@"人妻/%CNAME("一人称")%")%说出……%TEXTR("这种下流的话，真是个坏孩子/这种色情的话，真是坏心眼")%_HH_」"
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORML 「%TEXTR("哈啊/啊啊")%……」
				CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("一人称")%竟是女人啊……当然也有想做的时候/那个人很忙，所以偶尔……也有想做的时候")%_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("嗯嗯/嗯啊")%_HH_」"
				PRINTFORML 「竟然在耳边低语……%TEXTR(@"%CNAME("一人称")%是人妻这件事，可不能忘了啊/不能这样诱惑哦。因为%CNAME("一人称")%可是人妻啊")%」
				PRINTFORMW （……%TEXTR("虽然觉得不好，但心里却有些激动不已/这明明是一件很危险的事，为什么这么紧张呢")%）
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
;-------------------------------------------------
;二穴挿入(書く場合には;を消してください)
;-------------------------------------------------
;ELSEIF SELECTCOM >= 60 && SELECTCOM <= 79 && COND("３Ｐ")
;	IF CHECK_COM("两根挿入Ｖ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ｖ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("两根挿入Ａ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ａ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("二穴挿入")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("二穴挿入")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ENDIF
ENDIF

;-------------------------------------------------
;正常位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
IF SELECTCOM == 60
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && CEVENT("Ｖ初性交済み：調教初回") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
				CALL PRINT_STRW, @"「这样的话%CNAME("一人称")%和你……就像真正的恋人一样_HH_」"
			ELSE
				PRINTFORML 「虽然有点不好意思……」
				CALL PRINT_STRW, @"「%CNAME("二人称")%和%TEXTR("互相凝视彼此/互相拥抱在一起")%什么的……最喜欢了_HH_」"
			ENDIF
		;屈服刻印Lv2以上
;		ELSEIF MARK:屈服刻印 >= 2
;			PRINTFORMW
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「%TEXTR("嗯嗯/嗯啊")%_HH_……」"
			CALL PRINT_STRW, @"「%TEXTR(@"被那样盯着的话……会害羞的……/竟然可以和%CNAME("二人称")%……这样结合在一起……/这么激烈的话……%CNAME("一人称")%、要坏掉了、要坏掉了")%_HH_」"
			PRINTFORMW （%TEXTR(@"明明是不行的……却越来越喜欢和%CNAME("二人称")%一起做爱，身体已经……离不開了……/这种関系明明是不道德的……身体却一直渴求着%CNAME("二人称")%……想做爱想到身体发痛……")%）
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;後背位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && CEVENT("Ｖ初性交済み：調教初回") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
;		ELSEIF MARK:屈服刻印 >= 2
;			PRINTFORMW
		;それ以外
		ELSE
			IF RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("唔嗯/嗯啊/哈啊")%_HH_」"
				CALL PRINT_STRL, @"「%TEXTR("背后位/从背后")%%TEXTR("这么做的话/啊啊、太、太激烈了")%_HH_　%TEXTR("嗯啊、嗯啊、啊啊啊/呼呼、哈啊啊")%_HH_」"
				IF RAND:2 == 0
					CALL PRINT_STRW, @"（那个人从来没有这么激烈的做过……哈啊、%CNAME("一人称")%明明不应该背着他做这种事……明明知道这是出轨、但是身体好舒服、停不下来了、啊啊_HH_）"
				ELSE
					CALL PRINT_STRL, @"（啊啊、不行了……頭脑里一片空白_HH_　现在唯一能感受到的、就是%CNAME("二人称")%的……大鸡鸡_HH_……）"
				ENDIF
				IF RAND:2 == 0
					PRINTFORMW （%TEXTR("对不起/请原谅……")%你……)
				ENDIF
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("不，不对/不行，不行")%_HH_」"
				CALL PRINT_STRL, @"「%CNAME("一人称")%明明是个%TEXTR("人妻/老师")%、但是却%TEXTR("被后入/被后背位/像发情的野兽一样/像雌兽一样")%%TEXTR("贯穿着/侵犯着/做着色情的事情")%ぇ_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("感觉舒服什么的/心情变好了之类的")%。%TEXTR("嗯啊/啊啊")%_HH_……%TEXTR("没有这样的事，嗯啊，啊啊啊! !/才没有、嗯啊、啊啊啊！！")%」"
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;屈曲位
;-------------------------------------------------
IF SELECTCOM == 62
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && CEVENT("Ｖ初性交済み：調教初回") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
;		ELSEIF MARK:屈服刻印 >= 2
;			PRINTFORMW
		;それ以外
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("哈啊/唔嗯")%_HH_%CNAME("二人称")%……%TEXTR(@"%CNAME("一人称")%简直要屈服在那肉棒下了/竟然用这么羞耻的姿势侵犯")%……」"
			IF SIZE("阴茎", PLAYER) >= 2
				CALL PRINT_STRL, @"「%TEXTR(@"嗯啊……不准在最里面这么摩擦_HH_……/嗯啊、唔咿、%CNAME("二人称")%顶到了最深处的_HH_不行啊……")%」"
				IF RAND:2 == 0
					PRINTFORMW （……和丈夫从来没有过，这么深刻、激烈……从来没有达到过这么深处的地方……再这样下去要……）
				ELSEIF RAND:2 == 0
					PRINTFORMW （……如果继续接受这么强壮的阴茎侵犯的话……那个人就不能满足了）
				ELSE
					PRINTFORMW （如果身体记住这些的话……那个人的小鸡鸡已经不能满足了……）
				ENDIF
			ELSE
				CALL PRINT_STRW, @"（%TEXTR("呵呵/嗯哼哼っ")%_HH_　%TEXTR("拼命地摇着腰……真是太可爱了/拼命地、用着腰呢……心跳加速了呢")%_HH_）"
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;対面座位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
IF SELECTCOM == 63
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && CEVENT("Ｖ初性交済み：調教初回") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
;		ELSEIF MARK:屈服刻印 >= 2
;			PRINTFORMW
		;それ以外
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("嗯嗯/嗯啊")%_HH_　%TEXTR(@"被%CNAME("二人称")%就这么抱着做的话……这个姿势稍微有点不好意思/被%CNAME("一人称")%这么坐着竟然在里面变大了……真是个好孩子啊")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR(@"就这样……一边互相凝视一边亲吻、也来让%CNAME("一人称")%的胸部舒服起来吧_HH_……/Hola……%CNAME("一人称")%是人妻啊_HH_……这样一边做着色情的事一边口頭调情是不行的哦？")%」"
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;背面座位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
;背面座位
IF SELECTCOM == 64
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && CEVENT("Ｖ初性交済み：調教初回") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
;		ELSEIF MARK:屈服刻印 >= 2
;			PRINTFORMW
		;それ以外
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("真是的/喂喂")%_HH_……」"
			CALL PRINT_STRL, @"「%TEXTR("像这样/像这样")%_HH_……%TEXTR("在人妻的耳边耳语/说可爱之类的话")%可不行啊……」"
			CALL PRINT_STRL, @"「……%TEXTR(@"如果、%CNAME("一人称")%万一当真了怎么办/去和别的女孩子说吧。这种恶作剧……嗯、坏孩子")%_HH_」"
			PRINTFORMW （……%TEXTR(@"像这样把%CNAME("一人称")%当成恋人一样对待……那孩子肯定是在捉弄%CNAME("一人称")%吧/虽然喜欢%CNAME("二人称")%的事是真的……但是要背叛丈夫什么的、%CNAME("一人称")%可做不到啊")%）
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;騎乗位
;-------------------------------------------------
IF SELECTCOM == 65
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && CEVENT("Ｖ初性交済み：調教初回") == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("被这样骑在身上是什么感觉呢/怎么样?……被骑在上面的感觉")%_HH_」"
			IF RAND:2 == 0
				CALL PRINT_STRW, @"「……%TEXTR("嗯嗯/嗯啊")%_HH_　喂……从下面往上使劲抽插是犯规的，啊啊_HH_」"
			ELSE
				CALL PRINT_STRW, @"「%TEXTR("啊啊/哈啊")%_HH_……不行、在下面请老师一点_HH_　不要从下面扭腰、啊啊_HH_」"
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;挿入刺激Ｇ点
;-------------------------------------------------
IF SELECTCOM == 66
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && CEVENT("Ｖ初性交済み：調教初回") == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF RAND:3 == 0
				CALL PRINT_STRL, @"「%TEXTR("好棒/好舒服/被、顶到敏感的地方了")%_HH_」"
				CALL PRINT_STRL, @"「%TEXTR("不行啊/唔咿/这么动不可以")%_HH_　那里和%CNAME("二人称")%的龟頭亲吻了啊_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("不要使坏了/喂喂、不要再使坏了")%_HH_　%CNAME("一人称")%的小穴、感觉有什么要出来了、啊啊_HH_」"
			ELSEIF RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("不行/不可以")%_HH_……_HH_」"
				CALL PRINT_STRL, @"「%TEXTR("那里摩擦到的是、嗯啊……/G点是敏感的地方……不行，太舒服了")%_HH_」"
				IF RAND:2 == 0
					CALL PRINT_STRL, @"「……%TEXTR("哈啊_HH_……哈啊、不行了/真是的……这么做的话……那里感觉要去了")%_HH_」"
				ELSE
					PRINTFORMW 「%CNAME("一人称")%明明……%TEXTR(@"是有夫之妇啊……不可以这么作啊……/不是%CNAME("二人称")%的恋人啊……")%」
				ENDIF
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("哈啊/唔嗯")%_HH_」"
				CALL PRINT_STRL, @"「%CNAME("一人称")%的……%TEXTR("舒服的地方/G点")%、被%CNAME("二人称")%的%TEXTR("肉棒/大鸡鸡/欧金金")%、%TEXTR("疼爱着/弄得非常舒服")%_HH_」"
				CALL PRINT_STRL, @"「%TEXTR("嗯嗯……嗯啊、哈啊/那里……哈啊、哈啊、好厉害")%_HH_」"
				CALL PRINT_STRL, @"（出轨了、被%TEXTR("大鸡鸡/肉棒")%抽插着、在%CNAME("一人称")%的%TEXTR("小穴/阴道")%里、弄得%TEXTR("一塌糊涂/一塌糊涂")%、%TEXTR("明明是不行的……这样下去/好舒服。明明做了一件很危险的事……快感、快要溢出来了")%_HH_）"
			ENDIF
			PRINTFORML
			IF RAND:3 == 0
				PRINTFORMW （明明不行……但是舒服的身体停不下来）
			ELSEIF RAND:2 == 0
				PRINTFORMW （这样下去的话会不是会变得更加欲求不满吗……）
			ELSE
				PRINTFORMW （如果身体记住这些的话……那个人已经无法满足了……)
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;挿入子宮口玩弄
;-------------------------------------------------
IF SELECTCOM == 67
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && CEVENT("Ｖ初性交済み：調教初回") == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF RAND:3 == 0
				CALL PRINT_STRL, @"「%TEXTR("啊啊、哈啊、哈啊/嗯啊、嗯、嗯啊")%_HH_」"
				CALL PRINT_STRL, @"「%TEXTR(@"因为……要是子宫那里被侵犯了、啊、肯定会叫出来的……啊、真是的/不行啊、要是子宫被这么顶着的话……肯定会出声的。明明知道，哈啊、啊啊啊")%_HH_」"
			ELSEIF RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("啊啊、哈啊/哈啊、啊啊、唔")%_HH_　%TEXTR("喂喂/不行啊")%……」"
				CALL PRINT_STRL, @"「%TEXTR("要是在那里/要是在最深的地方")%_HH_……%TEXTR(@"射精的话……不行……怀孕了怎么办……/不能在那里射出来啊……因为%CNAME("一人称")%还不是属于%CNAME("二人称")%的")%_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("啊啊、嗯啊、啊、啊嗯/不行、那里、一点一点的、啊、啊")%_HH_」"
				CALL PRINT_STRL, @"「%TEXTR("想让老师回答哪里被侵犯了/因为是在保健体育上学的，所以知道吧")%……那里是%CNAME("一人称")%的%TEXTR("子宫。因为很敏感……嗯，请温柔点/婴儿的房间")%_HH_」"
				IF RAND:2 == 0
					CALL PRINT_STRW, @"（那个人的……其实都不知道、%CNAME("一人称")%的%TEXTR("那里/子宮")%。想要%TEXTR("精子/精液/被射精/个婴儿")%、一想到、子宫就有些发痛了_HH_）"
				ELSE
					CALL PRINT_STRW, @"（现在这种行为%TEXTR("是出轨了/是给他带了绿帽子了")%吧……好像要、好像要、%TEXTR("那里/子宮")%好痒、%TEXTR("痒得发痛/想要")%、%TEXTR(@"想要被精液灌满/明明不是丈夫的精子、是不行的、%CNAME("一人称")%却")%_HH_）"
				ENDIF
			ENDIF
			IF TEQUIP:PLAYER:避孕套
				IF RAND:3 == 0
					PRINTFORMW （不行啊……必须避孕。但是、这样一来、那精液岂不是浪费了吗……）
				ELSEIF RAND:2 == 0
					PRINTFORMW （%TEXTR("避孕套/避孕套")%如果没有戴上的话……那么%CNAME("一人称")%岂不是……会怀上孩子……）
				ELSE
					PRINTFORMW （通过避孕器具也能明白……这个孩子真的想在%CNAME("一人称")%的子宫里面播种呢……）
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;子宮挿入
;-------------------------------------------------
IF SELECTCOM == 68
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && CEVENT("Ｖ初性交済み：調教初回") == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ挿入系初選択
;疼痛が少なく楽しめているかはCHECK("Ａ挿入")で判定
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	;Ａ処女
	IF TALENT:Ａ処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「%CNAME("一人称")%的处女之身虽然没能献给%CNAME("調教時二人称")%……」
			PRINTFORMW 「但是能这样……能献上后面的第一次，非常開心……」
			PRINTFORMW 「虽然有点不好意思，但还是想要告白……%CNAME("一人称")%也是那个时候，一起做的时候意识到喜欢上了%CNAME("調教時二人称")%的事实」
			CALL PRINT_STRW, @"「所以，从今往后……%CNAME("一人称")%的%TEXTR("屁股/菊穴")%是%CNAME("調教時二人称")%专用的_HH_」"
			CALL PRINT_STRW, @"「什么时候都可以。不管是在学校还是在家里，想使用的时候就尽情使用这里吧_HH_」"
		;余裕有
		;ELSEIF CHECK("Ａ挿入")
		;	PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「因为是第一次……请温柔些吧?」
			PRINTFORMW 「嗯啊……%CNAME("二人称")%的鸡鸡进来了、能够感觉到……」
			IF ASSIPLAY == 0
				CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　虽然有点痛苦」"
				CALL PRINT_STRW, @"「屁穴的第一次……被%CNAME("調教時二人称")%给%TEXTR("夺走了/收下了")%、真是太高兴了_HH_」"
			ENDIF
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ａ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;余裕が無い
	IF CHECK("Ａ挿入") == 0 && FLAG:情緒 < 180
		IF TALENT:恋慕 && RAND:2 == 0
			PRINTFORMW 「全然%TEXTR("没事没事/没関系没関系")%。不用客气……尽情动起来吧」
		ELSE
			PRINTFORMW 「%TEXTR("没事的/没関系")%、所以……慢慢动起来吧」
		ENDIF
	;恋慕　你巨根　余裕有
	ELSEIF TALENT:恋慕 && SIZE("阴茎", PLAYER) >= 2 && CHECK("Ａ挿入") && ASSIPLAY == 0 && RAND:3 == 0
		CALL PRINT_STRW, @"「%CNAME("調教時二人称")%的%TEXTR("雄伟/雄壮")%的……肉棒%TEXTR("完全插进来的/、虽然一開始很辛苦……但是现在感觉好舒服好喜欢")%_HH_」"
	ELSEIF CHECK("Ａ挿入") && RAND:2 == 0
		IF ASSIPLAY == 0
			PRINTFORM 「%CNAME("調教時二人称")%
		ELSE
			PRINTFORM 「%CNAME("助手")%
		ENDIF
		CALL PRINT_STRW, @"。希望%CNAME("一人称")%不用顾虑……%TEXTR("粗暴地/激烈地")%%TEXTR("动起来吧/尽情地侵犯屁穴吧")%_HH_」"
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			CALL PRINT_STRL, @"「%TEXTR("老师/人妻/大姐姐")%%TEXTR("跨在身上/的女上位/的骑乘位")%心情%TEXTR("如何呢/怎么样呢")%？_HH_」"
			CALL PRINT_STRW, @"「会%TEXTR("全力的/充分的")%%TEXTR("疼爱你的/让你舒服起来的")%_HH_　%TEXTR("做好心理准备吧/一滴不剩的榨出来")%_HH_」"
		;対面座位
		CASE 73
			CALL PRINT_STRL, @"「%TEXTR("等等……有点不好意思/互相凝视……有点害羞")%_HH_」"
			CALL PRINT_STRW, @"「一边%TEXTR("紧紧地/强烈的")%抱在一起、一边交合、%TEXTR(@"%CNAME("一人称")%最喜欢了/好舒服、太棒了")%_HH_」"
		;それ以外
		CASEELSE
			CALL PRINT_STR, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　%TEXTR("屁股/菊穴")%是只属于%CNAME("調教時二人称")%的%TEXTR("私有物哦/特别服务")%_HH_」"
			CALL PRINT_STRL, @"「%TEXTR("而且/恩恩")%……%CNAME("一人称")%其实%TEXTR("一直都想这么说了/早就想说出这句话了")%_HH_……」"
			CALL PRINT_STRW, @"「想要插进哪里……%TEXTR("真是的/坏孩子")%……%TEXTR("屁股/菊穴")%这里……想要、真是的，都已经鼓起勇气说出来了，快插进来吧_HH_」"
		ENDSELECT
	;それ以外
	ELSE
		IF RAND:3 == 0
			PRINTFORML 「是啊……嗯，我也不讨厌」
			PRINTFORMW 「……明明屁股不应该是插进去的地方，但是随便插入什么东西都变得无所谓了呢」
		ELSEIF RAND:2 == 0
			PRINTFORML 「%TEXTR("用屁股/用菊穴")%来做比较好吗……」
			PRINTFORMW 「如果太过使用%TEXTR("屁股/菊穴")%的话，会合不拢的、真是让人不安」
		ELSE
			PRINTFORML 「这个嘛……毕竟使用%TEXTR("屁股/菊穴")%，就算射出来也不会怀孕」
			PRINTFORMW 「因为是这种保密的関系……绝对不能让别人发现我们之间做爱的事情，对吧?」
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;Ｓ状結腸を使っての肛門性交
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHECK_COM("結腸責め")
	;初めての結腸責め
	IF EXP:結腸経験 == 0
		CALL PRINT_STRW, @"「嗯哈_HH_　能够感觉到……」"
		CALL PRINT_STRW, @"「插到了%CNAME("一人称")%的屁股里、不应该达到的地方。哈啊_HH_」"
		CALL PRINT_STRW, @"「明明被侵犯到很深的地方……感觉有些痛苦、但是却很舒服、脑子里都一片空白了_HH_」"
	;今回初の結腸責め
	ELSEIF EXP_GAIN("結腸経験") == 0
		IF TALENT:結腸性感
			CALL PRINT_STRL, @"「%TEXTR("嗯啊啊/嗯啊")%_HH_」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%的S形结肠_HH_　全部被侵犯，被支配了_HH_」"
		ELSE
			PRINTFORML 「虽然很痛苦……」
			PRINTFORMW 「竟然……啊、插到了这么深的地方……嗯啊」
		ENDIF
	ELSE
		IF TALENT:結腸性感
			CALL PRINT_STRL, @"「%TEXTR("哈啊/唔嗯")%_HH_　这么动的话、%CNAME("一人称")%、%CNAME("一人称")%っ_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("在不应该感受到的地方……感受到了、屁股里面想要更多/虽然S形结肠被侵犯了，但感觉好舒服，屁股都勒紧了。不行，动起来的话、会变得奇怪了")%_HH_」"
		ELSE
			CALL PRINT_STRL, @"「哈HH_……哈HH_……」"
			CALL PRINT_STRW, @"「%TEXTR("肚子/屁股")%里虽然很痛苦_HH_　即使觉得不可以也能感觉到、身心都快乐了起来_HH_」"
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ａ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
;	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停 && RAND:2
;		IF TALENT:恋慕
;			PRINTFORMW
;		ELSE
;			PRINTFORMW
;		ENDIF
;	;余裕が無い
	IF CHECK("Ａ挿入") == 0 && FLAG:情緒 < 180
		CALL PRINT_STRW, @"「%TEXTR("啊啊/嗯啊")%_HH_　明明%TEXTR("很痛/很痛苦")%……但是心情却很好……」"
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
		IF TALENT:恋慕 && RAND:2 == 0
			CALL PRINT_STRL, @"「%TEXTR("嗯啊啊/哈啊啊")%_HH_　希望可以就这样一直做_HH_」"
			CALL PRINT_STRW, @"「直到%CNAME("一人称")%的%TEXTR("屁股/菊穴")%被玩坏为止_HH_　%TEXTR("嗯啊/呃嗯/哈啊")%_HH_　%TEXTR("想被玩得/被插到/被侵犯到")%乱七八糟_HH_」"
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("不行啊/不可以啊")%_HH_　%TEXTR(@"这是……最喜欢的体位、嗯、只是/坏孩子……是知道%CNAME("一人称")%最喜欢这个体位吧")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("啊啊嗯/哈啊")%_HH_　%TEXTR("好棒/好喜欢")%……%TEXTR("还想做更多更多/好喜欢这个姿势、动起来")%_HH_」"
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			CALL PRINT_STRL, @"「%TEXTR("嗯嗯/嗯啊")%_HH_　在%CNAME("一人称")%的%TEXTR("屁股/菊穴")%%TEXTR("＿/里")%……」"
			CALL PRINT_STRW, @"「%TEXTR("进进出出/明明不是可以进去的地方……被插了进去、虽然不行、心情却这么好")%_HH_　%TEXTR("啊，别那么做/嗯啊、哈、哈啊、 好舒服啊 ")%_HH_」"
		CASE "後背位"
			IF RAND:2 == 0
				CALL PRINT_STRL, @"「……好羞耻的%TEXTR("姿势/体位")%、这样侵犯了屁股%TEXTR("＿/什么的")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("啊啊啊/不行啊")%_HH_　%CNAME("一人称")%的屁股%TEXTR("要被大鸡鸡扩张了/要变得乱七八糟的了")%啊啊啊啊_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("背后位/从后面")%%TEXTR("插进去/侵犯")%%TEXTR("了/了")%……%TEXTR("嗯嗯/嗯啊")%_HH_　虽然不%TEXTR("讨厌/讨厌")%、但是%TEXTR("＿/……/嗯")%」"
				CALL PRINT_STRW, @"「%TEXTR("接受这种不正常的行为/用屁股做是不好的事情")%、%TEXTR("嗯嗯/啊啊")%_HH_　%TEXTR("对不起/请原谅")%……%CNAME("一人称")%明明是%TEXTR("屁股被侵犯了、却感觉这么舒服/做了这么变态的行为")%_HH_」"
			ENDIF
		CASEELSE
			IF RAND:2 == 0
				CALL PRINT_STRL, @"「嗯啊……那里、想要更多、哈啊_HH_　哈啊_HH_」"
				CALL PRINT_STRW, @"（%CNAME("一人称")%的……%TEXTR("屁股/菊穴")%被侵犯了……能感觉到_HH_）"
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("哈恩/啊恩")%_HH_　%TEXTR("屁股/菊穴")%竟然能感觉这么舒服_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("如果身体记住这个的话……嗯/明明是不正常的行为……嗯、但是好像喜欢上了")%_HH_　%TEXTR("不行/不可以")%、这么下去的话、屁股、里面_HH_　乱七八糟的_HH_啊啊、要坏掉了_HH_」"
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで)
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 75
	;余裕が無い
	IF CHECK("Ａ挿入") == 0 && FLAG:情緒 < 180
		PRINTFORML 「%TEXTR("嗯……嗯、没事的……/哈……啊……嗯啊")%」
		CALL PRINT_STRW, @"「%TEXTR("呃，好痛啊/虽然有点痛苦")%……但是%TEXTR("一点也不讨厌/小穴里面这么摩擦的话很舒服/慢慢来、没関系的、慢慢习惯吧")%……」"
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:100
		;50%で体位分岐
		CASE IS > 50
			SELECTCASE CONDS("体位")
			CASE "正常位"
				CALL PRINT_STRL, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　和%CNAME("調教時二人称")%这么做的话%TEXTR("像一对恋人一样/有种幸福的心情呢")%_HH_」"
				CALL PRINT_STRL, @"「但是%TEXTR("普通的/正常的")%%TEXTR("恋人/情侣")%是不会用%TEXTR("屁股/菊穴")%来做爱的吧？_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("是啊/是啊")%……但是、吧%CNAME("一人称")%弄成这样、都是因为%CNAME("調教時二人称")%的原因，可要好好负责啊_HH_」"
			CASE "屈曲位"
				SELECTCASE RAND:100
				;50%で分岐
				CASE IS > 50
					CALL PRINT_STRL, @"「啊、不行、进入到%CNAME("一人称")%身体的深处了_HH_」"
				CASEELSE
					CALL PRINT_STRL, @"「啊啊、哈啊_HH_　%CNAME("一人称")%的%TEXTR("屁股/菊穴")%被%CNAME("調教時二人称")%に%TEXTR("的大肉棒扩大了/搅得乱七八糟的")%_HH_」"
				ENDSELECT
				CALL PRINT_STRW, @"「%TEXTR("不行啊/不可以")%_HH_　那样激烈的%TEXTR("做/抽插")%的话ぁ_HH_　%TEXTR("哈啊啊/唔咿啊")%_HH_　%TEXTR("屁股/菊穴")%要去了要去了_HH_」"
			CASE "後背位"
				CALL PRINT_STRL, @"「%TEXTR("这样趴着从后面/像野兽一样的姿势")%插入%TEXTR("屁股/菊穴")%……被%CNAME("調教時二人称")%に%TEXTR("侵犯了啊啊/摩擦着肠壁啊啊啊")%_HH_」"
				PRINTFORML 「%TEXTR("对不起/请原谅")%……%CNAME("一人称")%被%TEXTR("后背位的姿势/后入")%插入了%TEXTR("屁股/菊穴")%%TEXTR("的话/的话要")%……」
				CALL PRINT_STRW, @"「%TEXTR("比平时更加、啊/比平时更、嗯啊")%_HH_　%TEXTR("能够感觉到/太舒服啦啊啊啊啊/頭脑已经一片空白了")%_HH_」"
			CASE "対面座位"
				IF TEQUIP:接吻 == 0
					CALL PRINT_STRL, @"「%TEXTR("那个/拜托了")%……%TEXTR("屁股/菊穴")%这里想被%CNAME("調教時二人称")%と%TEXTR("插进去/狠狠玩弄")%的同时、一边接吻_HH_」"
					CALL PRINT_STRW, @"「%CNAME("一人称")%……和%CNAME("調教時二人称")%的事、%TEXTR("最喜欢了/最喜欢了、啊")%_HH_」"
					PRINTFORMW %CALLNAME:TARGET%委身于%CALLNAME:MASTER%的怀抱%TEXTR("互相亲吻着/交换了亲吻")%
					CALL SETFLAG, "追加接吻フラグ", TARGET
				ELSE
					PRINTFORMW
				ENDIF

			CASE "背面座位"
			CASE "騎乗位"
			ENDSELECT
		CASEELSE
			SELECTCASE RAND:100
			;50%で分岐
			CASE IS > 50
				CALL PRINT_STRL, @"「%TEXTR("对不起、这样做/怎么会做这种事……不能对那个人说")%。%TEXTR("啊啊、嗯啊啊/哈啊、啊啊")%_HH_」"
				CALL PRINT_STRW, @"「要成为……%CNAME("調教時二人称")%专用的%TEXTR("屁穴/菊穴")%奴隶了、%TEXTR("更多/想要更多")%……%TEXTR("直到玩坏为止/直到变松为止")%、%TEXTR("请尽情使用吧/尽情的侵犯吧")%_HH_」"
			CASEELSE
				IF COND("夜")
					CALL PRINT_STRL, @"「%TEXTR("是/是的")%……%CNAME("一人称")%的%TEXTR("屁穴/菊穴")%被開发的%TEXTR("很有感觉/很敏感")%什么的……对%TEXTR("老公/丈夫")%来说是%TEXTR("秘密/个秘密")%哟_HH_」"
					CALL PRINT_STRW, @"「%TEXTR("被教导了/被传达到")%%TEXTR("開发菊穴的事情/真正的快乐的事")%什么的……%TEXTR("真是的/笨蛋/不能说出了来啊")%_HH_　%TEXTR("这么的、坏心眼、啊、不行，绝对不行/不行，只有这个不行。啊，不行，那种感觉、啊、呜呜呜")%_HH_」"
				ELSE
					CALL PRINT_STRL, @"「%TEXTR("嗯啊/是啊/是啊")%……%TEXTR("那个人/丈夫/老公")%他、%TEXTR("嗯啊/嗯/哈啊")%_HH_　从来都不知道%CNAME("一人称")%的%TEXTR("屁穴/菊穴")%是个%TEXTR("变态/抖M/变态抖M")%穴_HH_」"
					CALL PRINT_STRW, @"「这是%CNAME("一人称")%和%CNAME("調教時二人称")%%TEXTR("之间的秘密/两人之间的秘密")%_HH_　%TEXTR("啊啊啊啊/嗯、哈啊、哈啊")%_HH_　%TEXTR("那里……好舒服，还想要更多/那里……很舒服、屁股好有感觉")%_HH_」"
				ENDIF
			ENDSELECT
		ENDSELECT
	;それ以外
	ELSE
		CALL PRINT_STRL, @"「%TEXTR("屁股/菊穴")%里面感觉……%TEXTR("啊啊/啊哈/嗯啊")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("这种感觉啊……嗯，不对，不对……/用肛門性交是不行的啊……不行、会扩大的、啊啊啊/这么变态的事……不能和别人一起、屁股不是可以插进去的地方、嗯啊")%_HH_」"
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;貝あわせ
;-------------------------------------------------
IF SELECTCOM == 80
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;雙乳間抽插
;-------------------------------------------------
IF SELECTCOM == 81
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;乳頭奸
;-------------------------------------------------
IF SELECTCOM == 82
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道挿入…細かく体位で分ける場合には以下の様になっている
;83,尿道正常位
;84,尿道後背位
;85,尿道屈曲位
;86,尿道対面座位
;87,尿道背面座位
;-------------------------------------------------
IF SELECTCOM >= 83 && SELECTCOM <= 87
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道騎乗位
;-------------------------------------------------
IF SELECTCOM == 88
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶手交
;手淫と洗面奶から派生する
;-------------------------------------------------
IF CHECK_COM("洗面奶手交")
	;恋慕
	IF TALENT:恋慕
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;手淫
;-------------------------------------------------
IF SELECTCOM == 90
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「要%TEXTR("好好/好好")%的向%CNAME("二人称")%的%TEXTR("大鸡鸡/肉棒/欧金金")%打个招呼呢_HH_」"
			CALL PRINT_STRW, @"「呲溜_HH_　今天也请%TEXTR(@"充分的惩罚%CNAME("一人称")%的那里呢、拜托了/太期待了……都有点湿了，请好好地疼爱%CNAME("一人称")%吧")%_HH_」"
		ELSEIF ABL:奉仕精神 >= 3
			IF SIZE("阴茎", PLAYER) >= 2
				CALL PRINT_STRL, @"「%CNAME("調教時二人称")%的%TEXTR("大鸡鸡/肉棒/欧金金")%啊，这么大……%TEXTR("真是太棒了/一想到要使用这么雄伟的……就怦然心动了")%_HH_」"
				CALL PRINT_STRW, @"「明明有了%TEXTR("老公/丈夫/结婚对象")%……却对别人的肉棒感到兴奋、明知道%TEXTR("这样有悖伦理的/这样是不对的")%……%CNAME("一人称")%也是个%TEXTR("女子/女性")%啊。%TEXTR("一想到要被这么大的肉棒侵犯、下面就已经湿了/不可能讨厌大肉棒的吧?")%_HH_」"
			ELSE
				CALL PRINT_STRL, @"「不向%CNAME("調教時二人称")%的%TEXTR("大鸡鸡/肉棒/欧金金")%好好打个招呼可不行呢_HH_」"
				CALL PRINT_STR, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　"
				IF COND("夜")
					PRINT 今夜
				ELSE
					PRINT 今日
				ENDIF
				CALL PRINT_STRW, @"「は%TEXTR(@"想让它变成什么样子呢？/直到%CNAME("調教時二人称")%力竭为止都不会停下侍奉的哦")%_HH_」"
			ENDIF
		;それ以外
		ELSE
			PRINTFORML 「没办法啊……」
			PRINTFORML 「既然是命令那就没办法了」
			PRINTFORMW 「%TEXTR(@"要记得%CNAME("一人称")%仍然是一位/不要忘记哦、%CNAME("一人称")%是")%%TEXTR("老师/人妻")%如果不是命令的话、怎么可能主动想要亲吻%CNAME("二人称")%你的那里呢？」
		ENDIF
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
;		IF CHECK_COM("恥垢清洁口交")
;			PRINTFORMW
;		;恋慕
;		ELSEIF TALENT:恋慕 && RANDIF(1, ABL:奉仕精神 >= 3)
;			PRINTFORMW
;		;奉仕精神Lv3以上
		IF ABL:奉仕精神 >= 3 && RAND:2
			CALL PRINT_STRL, @"「问有没有为%TEXTR("那个人/丈夫")%也……做这种事？_HH_」"
			CALL PRINT_STRL, @"「%TEXTR("真是的……/唔……明明知道……")%真是个坏孩子_HH_」"
			IF RAND:3 == 0
				CALL PRINT_STRL, @"「……%CNAME("一人称")%唔……啾_HH_」"
				CALL PRINT_STRL, @"「这样的性服务……唔嗯、哈姆。啊啊_HH_」"
				CALL PRINT_STRW, @"「虽然很喜欢……但是那个人很害羞、没有……做过_HH_」"
			ELSEIF RAND:2 == 0
				PRINTFORML 「用嘴侍奉是没问题……就这样放进嘴里、啊呜、pero就可以了吧、嗯」
				CALL PRINT_STRW, @"「这样口交扫除……什么的、只有为%CNAME("二人称")%做过_HH_」"
			ELSE
				CALL PRINT_STRL, @"「因为老公他有些冷淡……呲溜、啾咻_HH_」"
				PRINTFORML 「打扫口交什么的……嗯、从来没做过」
				CALL PRINT_STRW, @"「%CNAME("一人称")%的话……那个、如果是喜欢的人的话完全没関系……啊呜_HH_」"
			ENDIF
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("嗯唔/唔姆")%_HH_」"
			CALL PRINT_STRL, @"「%TEXTR("呵呵/嗯哼哼")%_HH_　%TEXTR(@"怎么样，这样做有感觉開心吗/请放轻松，交给%CNAME("一人称")%吧")%_HH_」"
			CALL PRINT_STRW, @"「姐姐会全部……%TEXTR("唔唔/唔嗯")%_HH_　打扫的%TEXTR("漂漂亮亮的/干干净净的")%……呲溜、啊_HH_」"
		ENDIF
	;被逆推ているとき
;	ELSEIF TEQUIP:推倒
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
		CALL KOJO_RAND_K52("口交")
	;それ以外
	ELSE
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
		CALL KOJO_RAND_K52("口交")
		IF TEQUIP:振動棒 || TEQUIP:肛用振動棒
			PRINTFORML
			IF SIZE("阴茎", PLAYER) >= 2 && ((SIZE("阴茎", PLAYER) == SIZE("振動棒", TARGET)) || (SIZE("阴茎", PLAYER) == SIZE("Ａ振動棒", TARGET)))
				IF RAND:2 == 0
					PRINTFORML （这个振动棒……和%CNAME("二人称")%肉棒的%TEXTR("大小/尺寸")%差不多呢……简直就像被%CNAME("二人称")%%TEXTR("一边侵犯一边做一样/一边抽插一边侍奉一样")%……）
				ELSE
					PRINTFORML （这个振动棒……和%CNAME("二人称")%肉棒的%TEXTR("大小/尺寸")%差不多呢……脑袋里不由得想象到和%CNAME("二人称")%%TEXTR("sex/做爱")%的场景……）
				ENDIF
			ELSE
				PRINTFORML （%CNAME("一人称")%……一边%TEXTR("品尝着肉棒/侍奉着肉棒/为肉棒服务")%……一边%TEXTR("做爱/被侵犯")%什么的……光是想象%TEXTR("就有些发情了/小穴就被爱液打湿了")%……）
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;乳交
;-------------------------------------------------
IF SELECTCOM == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("那个人/丈夫")%也做过这种事吗？_HH_」"
		CALL PRINT_STRW, @"「这可是秘密。不能说哦_HH_　反正%CNAME("二人称")%就这样抚摸了%CNAME("一人称")%的欧派就会变得開心，别的事情什么的就无所谓了_HH_」"
	;二回目以降
	;被逆推ているとき
;	ELSEIF TEQUIP:推倒
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF SIZE("阴茎", PLAYER) >= 2
				CALL PRINT_STRL, @"「%CNAME("二人称")%的%TEXTR("大鸡鸡/肉棒")%真是%TEXTR("雄伟/雄壮")%呢_HH_」"
			ENDIF
			CALL PRINT_STRL, @"「%TEXTR(@"%CNAME("一人称")%/姐姐")%的%TEXTR("胸部/欧派")%怎么样呢，很少有比这大的尺寸呢_HH_」"
			CALL PRINT_STRW, @"「%CNAME("二人称")%%TEXTR(@"要做好被充分疼爱的觉悟哦/怎么样才能让心情变好呢_HH_　这种事情%CNAME("一人称")%全都知道哦")%_HH_」"
		;それ以外
		ELSE
			IF RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("希望可以用胸部？/想要夹在胸部里？")%_HH_」"
				CALL PRINT_STRW, @"「让一位人妻做这么%TEXTR("色情/变态")%的侍奉……%CNAME("二人称")%真是的，%TEXTR("真是色情的孩子/这么喜欢这样的游戏吗？")%_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%TEXTR(@"不是我自夸，我对自己很有自信呢/%CNAME("一人称")%对胸部的尺寸还是很有自信的。来好好感受吧")%_HH_」"
				IF RAND:2 == 0
					CALL PRINT_STRL, @"「对了，%CNAME("二人称")%难道喜欢%TEXTR(@"年上的大姐姐/%CNAME("一人称")%这样大姐姐")%类型的%TEXTR("吗/？/吗？")%？_HH_」"
				ELSE
					CALL PRINT_STRL, @"「啊……难道说喜欢%CNAME("一人称")%这样的%TEXTR("有包容力/胸怀若谷")%的温柔%TEXTR("大姐姐/女子")%吗_HH_」"
				ENDIF
				CALL PRINT_STRL, @"「呵呵……害羞了吗、真是可爱呢_HH_」"
				CALL PRINT_STRW, @"「%TEXTR(@"为了奖励这么坦率的%CNAME("二人称")%、会努力地服侍好的/哎呀哎呀，被说中了吗?那么……今天要不要特别仔细地把每个角落都打扫干净呢")%_HH_」"
			ENDIF
		ENDIF
		PRINTFORML
		CALL KOJO_RAND_K52("口交")
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;素股
;-------------------------------------------------
IF SELECTCOM == 93
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSEIF CHECK_COM("展示肉棒")
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR("哈啊/啊啊")%……%CNAME("調教時二人称")%的%TEXTR("欧金金/大鸡鸡/肉棒")%%TEXTR(@"已经等了好久了/光是这么看着%CNAME("一人称")%下面就已经湿了")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("拜托了/拜托了")%……快、%CNAME("一人称")%%TEXTR(@"空虚的地方……好像被大鸡鸡填满/好想为大鸡鸡服务……用嘴巴让%CNAME("調教時二人称")%充分的感受到/不管做什么都可以……啊、快")%_HH_」"
		ELSEIF ABL:奉仕精神 >= 3 && SIZE("阴茎", PLAYER) >= 2
			PRINTFORML 「%TEXTR("真是的/真是个坏东西")%……%TEXTR(@"这么雄伟/又大又粗")%……%CNAME("調教時二人称")%的%TEXTR("欧金金/大鸡鸡/肉棒")%，光是看到……」
			CALL PRINT_STRW, @"「%TEXTR(@"%CNAME("一人称")%虽然是人妻、但是看到了这么雄伟的器具/明明知道……就算是人妻也是女人啊 ")%……%TEXTR("好想要、好想快点进入下面/只要是女人就一定会迫不及待地想要侍奉的")%_HH_」"
		;それ以外
		ELSE
			PRINTFORML 「和%TEXTR("老公/丈夫")%的鸡鸡相比怎么样吗……」
			IF SIZE("阴茎", PLAYER) >= 2
				PRINTFORML 「真是的……」
				CALL PRINT_STRL, @"「……%CNAME("二人称")%的更大更强壮、绝对是%CNAME("一人称")%喜欢的大鸡鸡的样子_HH_」"
				PRINTFORMW 「这样说就可以了吗?」
			ELSE
				PRINTFORML 「在大小上也没输多少、那个人也是」
				PRINTFORMW 「只是因为他……年纪大了、性格也很冷淡、是吧?」
			ENDIF
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;泡泡浴
;-------------------------------------------------
IF SELECTCOM == 94
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;足交(PENIS(PLAYER)で調教者のチンコの有無が確認できます)
;-------------------------------------------------
IF SELECTCOM == 95
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門奉仕
;-------------------------------------------------
IF SELECTCOM == 96
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;内褲冲
;-------------------------------------------------
IF SELECTCOM == 97
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;奉仕舐陰
;-------------------------------------------------
IF SELECTCOM == 98
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;六九式
;-------------------------------------------------
IF SELECTCOM == 99
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;尻素股
;-------------------------------------------------
IF SELECTCOM == 101
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;洗面奶
;-------------------------------------------------
IF SELECTCOM == 104
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飞机杯冲
;-------------------------------------------------
IF SELECTCOM == 105
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;逆振動棒
;-------------------------------------------------
IF SELECTCOM == 106
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;逆Ａ振動棒
;-------------------------------------------------
IF SELECTCOM == 107
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ｖ逆挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 120 && SELECTCOM <= 124 && FIRSTCOMS("Ｖ逆挿入") == 0
	;調教者が処女
	IF TALENT:PLAYER:処女
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;正常位奉仕
;-------------------------------------------------
IF SELECTCOM == 120
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;後背位奉仕
;-------------------------------------------------
IF SELECTCOM == 121
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;騎乗位侵犯
;-------------------------------------------------
IF SELECTCOM == 122
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ正常位奉仕
;-------------------------------------------------
IF SELECTCOM == 125
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ後背位奉仕
;-------------------------------------------------
IF SELECTCOM == 126
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ騎乗位侵犯
;-------------------------------------------------
IF SELECTCOM == 127
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;打屁股
;あんまり痛くしません。ぴしゃぴしゃ
;-------------------------------------------------
IF SELECTCOM == 130
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;鼻钩
;-------------------------------------------------
IF SELECTCOM == 132
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:鼻钩 == 0
		;余裕有
		IF CHECK("鼻钩")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("鼻钩")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;眼罩
;-------------------------------------------------
IF SELECTCOM == 133
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:眼罩 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;拘束
;-------------------------------------------------
IF SELECTCOM == 134
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:拘束 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口枷
;何を付けたかはCOND("口球")、COND("開口口枷")で判定できる
;付ける前のセリフは@KOJO_MESSAGE_BEFORE_COMに書くのも良いでしょう
;-------------------------------------------------
IF SELECTCOM == 135
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:口枷 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;浣腸
;大量的液体を注いだかはCOND("大量浣腸")で判定できます
;-------------------------------------------------
IF SELECTCOM == 136
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;排泄
	ELSEIF TEQUIP:浣腸 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;让对方浴尿
;と是えまだ浴尿は出来ません
;直前に口交系指令なら口内放尿、性交系なら膣内放尿、Ａ性交系なら温泉浣腸となる
;別の指令が複数つまっているようなものなので正直な所、分岐が多くて煩雑です
;-------------------------------------------------
IF SELECTCOM == 138
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	IF CHECK_COM("口内放尿")
		;初めて
		IF EXP:飲尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("口内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("口内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("子宮内放尿")
		;初めて
		IF EXP:子宮浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("子宮内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("子宮内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("膣内放尿")
		;初めて
		IF EXP:膣内浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("膣内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("膣内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("温泉浣腸")
		;初めて
		IF EXP:温泉浣腸経験 == 0
			;PLAYを受け入れていない
			IF CHECK("温泉浣腸") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("温泉浣腸") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("乳内放尿")
		;初めて
		IF EXP:乳内浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("乳内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("乳内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("膀胱内放尿")
		;初めて
		IF EXP:輸尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("膀胱内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("膀胱内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;什麼也不做
;-------------------------------------------------
IF SELECTCOM == 139
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
;	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「没办法啊……如果要发出声音的话，马上就挂断吧？」
		PRINTFORMW %CALLNAME:TARGET%一边说着抱怨的话一边给%TEXTR("丈夫/老公")%打着电话……
		PRINTFORML
		PRINTFORMW 「喂喂……」
		IF COND("夜")
			PRINTFORMW 「是在工作吗?对不起啊……有点想听您的声音了。最近工作怎么样?还顺利吗?」
		ELSE
			PRINTFORMW 「对不起，都已经%TEXTR("是这个时间了/这么晚了")%还打了电话，因为想听听您的声音，那边现在是晚上吗？」
		ENDIF
	;二回目以降
	ELSE
;		;恋慕
;		IF TALENT:恋慕
		PRINTFORML 「%TEXTR("真是的……如果做了奇怪的事马上就挂电话哦/打电话的时候……要保证不做什么奇怪的事情哦")%？」
		PRINTFORMW %CALLNAME:TARGET%一边说着抱怨的话一边给%TEXTR("丈夫/老公")%打着电话……
		PRINTFORML
		IF COND("夜")
			IF PLACE("情人旅館")
				PRINTFORML 「对不起啊……和%TEXTR("朋友/好友")%一起喝酒，没注意时间，稍微有点晚了」
			ELSEIF PLACE("野外")
				PRINTFORML 「现在有时间吗……我现在正在外面散步」
			ELSE
				PRINTFORML 「其实……现在正在去%TEXTR("朋友/好友")%家玩的路上」
			ENDIF
			PRINTFORMW 「%TEXTR("因为有点寂寞，所以想听听您的声音/想知道您现在再做什么，就打了电话过去 ")%」
		;それ以外
		ELSE
			PRINTFORMW 「喂喂……%CNAME("一人称")%没関系的、%TEXTR(@"您的工作怎么样了呢。我这里很顺利，给孩子们上课还挺開心的，请不用担心/您现在在做什么呢？%CNAME("一人称")%现在不怎么忙，所以想听听您的声音")%」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;強制口交
;-------------------------------------------------
IF SELECTCOM == 140
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
;	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
		CALL KOJO_RAND_K52("強制口交")
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;フィスト系指令
;-------------------------------------------------
IF SELECTCOM == 141 || SELECTCOM == 142 || SELECTCOM == 143
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;楽しめる余裕が無い
		IF CHECK("フィスト") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;楽しめる余裕が無い
		IF CHECK("フィスト") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;結腸まで腕を捻じ込んだ
		ELSEIF CHECK_COM("結腸責め")
			IF TALENT:結腸性感
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;放尿聖水PLAY(推倒ている時)
;-------------------------------------------------
IF SELECTCOM == 144
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;聖水PLAY
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;聖水PLAY
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;剃毛
;-------------------------------------------------
IF SELECTCOM == 145
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;行為に抵抗有
		IF CHECK("陰毛管理") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;行為に抵抗有
		IF CHECK("陰毛管理") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			SELECTCASE CONDS("陰毛")
			;脱毛した
			CASE "脱毛処理"
				PRINTFORMW
			;光滑无毛に剃り上げた
			CASE "光滑无毛"
				PRINTFORMW
			;綺麗に剃り整えた
			CASEELSE
				PRINTFORMW
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;身嗜管理
;-------------------------------------------------
IF SELECTCOM == 146
	;陰毛の状態を指示
	IF CHECK_COM("身嗜み：陰毛")
		SELECTCASE COND("身嗜み：陰毛")
		;光滑无毛
		CASE 3
			PRINTFORMW
		;剃り整える
		CASE 5
			PRINTFORMW
		;从不剃
		CASE 7
			PRINTFORMW
		ENDSELECT
	;腋毛の状態を指示
	ELSEIF CHECK_COM("身嗜み：腋毛")
		SELECTCASE COND("身嗜み：腋毛")
		;光滑无毛
		CASE 3
			PRINTFORMW
		;从不剃
		CASE 7
			PRINTFORMW
		ENDSELECT
	;常に膣を拡張しておくように指示
	ELSEIF CHECK_COM("身嗜み：Ｖ拡張")
		;尺寸で分岐
		SELECTCASE COND("身嗜み：Ｖ拡張")
		;指示解除
		CASE 0
			PRINTFORMW
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;常に肛門を拡張しておくように指示
	ELSEIF CHECK_COM("身嗜み：Ａ拡張")
		;尺寸で分岐
		SELECTCASE COND("身嗜み：Ａ拡張")
		;指示解除
		CASE 0
			PRINTFORMW
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;いつでもお尻でエロいことできるように指示
	ELSEIF CHECK_COM("身嗜み：Ａ準備")
		;呼ばれたら腸内を綺麗にしておくように指示
		IF COND("身嗜み：腸洗浄")
			PRINTFORMW
		;潤滑液を用意するように指示
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	;CHECK_COM("身嗜み：Ｐ準備"), CHECK_COM("身嗜み：Ｖ準備"), CHECK_COM("身嗜み：服装")
	;CHECK_COM("身嗜み：尿道拡張"), CHECK_COM("身嗜み：性行為の制限"), CHECK_COM("身嗜み：性欲の管理")
	;などでも分岐可能。
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;喝套内精液
;-------------------------------------------------
IF SELECTCOM == 147
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF ABL:精液中毒 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW 「是啊……」
			PRINTFORMW 「这么美味的精子可不能白白浪费呢，既然这么请求的话，那就不客气了」
			PRINTFORMW 「唔嗯……呲溜、咕噜、唔唔」
			PRINTFORMW （%CNAME("二人称")%的精液、真是浓郁……雄性的气味充满了口腔）
		ENDIF
	;二回目以降
	ELSE
		IF ABL:精液中毒 >= 3
			PRINTFORMW
		ELSE
			PRINTFORML 「%TEXTR(@"还要喝下去吗？/还要再喝下去吗……/真是没办法啊。还要喝下%CNAME("二人称")%浓厚的精液")%」
			CALL PRINT_STRL, @"「%TEXTR("嗯嗯……呲溜、咕噜、唔嗯/嗯……咕噜、咕噜、哈啊")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR(@"虽然不能让小蝌蚪们活下去……作为补偿，%CNAME("二人称")%的精子%CNAME("一人称")%会好好地全部喝下去的~/……不喜欢的话当然是不会喝的、所以，请不要顾虑，今后也会好好喝光的~")%」"
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;穿环
;-------------------------------------------------
IF SELECTCOM == 148
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			;ＯＮフラグが付けた際のセリフです
			IF COND("陰蒂環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("陰唇環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("乳环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("尿道穿環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("肚脐环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;导管
;-------------------------------------------------
IF SELECTCOM == 149
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;抜いた
	ELSEIF TEQUIP:导管 == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;深喉
;-------------------------------------------------
IF SELECTCOM == 150
	;口上を書く際には RETURN 0 を削除してください(もともと地の文が長めなので書かなくても問題ないかもしれません)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道探针
;-------------------------------------------------
IF SELECTCOM == 151
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;攝像機使用
;-------------------------------------------------
IF SELECTCOM == 170
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:攝像機 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;野外PLAY
;まだ仕様が決まってない
;-------------------------------------------------
IF SELECTCOM == 171
	RETURN 1
ENDIF

;-------------------------------------------------
;浴室PLAY
;-------------------------------------------------
IF SELECTCOM == 172
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:浴室PLAY == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;新妻PLAY
;-------------------------------------------------
IF SELECTCOM == 173
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;終了時
	ELSEIF TEQUIP:新妻PLAY == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;室内露出PLAY
;まだ仕様が決まってない
;-------------------------------------------------
IF SELECTCOM == 174
	RETURN 1
ENDIF
;-------------------------------------------------
;換装
;-------------------------------------------------
IF SELECTCOM == 175
	;服、贴身制服、泳装に着替えた時
	IF CHECK_COM("換装：服を着替えた")
		IF CHECK_CLO("自分の服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("衬衫")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女教師")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("和服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女仆装")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("体操服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("看護婦")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("旗袍")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("水手服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("巫女")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("情趣内衣")
			PRINTFORMW
		ELSEIF CHECK_CLO("比基尼姿")
			PRINTFORMW
		ELSEIF CHECK_BODYS("拘束衣")
			PRINTFORMW
		ELSEIF CHECK_BODYS("兔")
			PRINTFORMW
		;其他
		ELSE
			PRINTFORMW
		ENDIF
	;胸も股間も丸出し状態变成了時
	ELSEIF CHECK_COM("換装：裸体变成了")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;露出癖Lv3
		ELSEIF ABL:露出癖 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;胖次を変えたり脱いだり
	ELSEIF CHECK_COM("換装：胖次")
		IF EQUIP:胖次
			PRINTFORMW
		;没穿内褲です
		ELSE
			PRINTFORMW
		ENDIF
	;以下は面倒ならELSE でひとまとめでも良いでしょう
	ELSEIF CHECK_COM("換装：外套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：胸罩")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：手套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：襪子")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：靴")
		PRINTFORMW
	;飾品の付け替えや其他
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;被逆推
;-------------------------------------------------
IF SELECTCOM == 176
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;潤滑液使用
;-------------------------------------------------
IF SELECTCOM == 260
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;媚薬使用
;-------------------------------------------------
IF SELECTCOM == 261
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;利尿剤
;-------------------------------------------------
IF SELECTCOM == 262
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;排卵誘発剤
;-------------------------------------------------
IF SELECTCOM == 264
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;筋弛緩剤
;-------------------------------------------------
IF SELECTCOM == 267
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;挣扎
;-------------------------------------------------
IF SELECTCOM == 280
	;成功
	IF TEQUIP:推倒 == 0
		PRINTFORMW
	;失敗
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;自慰の種類についてはTEQUIP:PLAYER:自慰の値で分岐可能
;==1舐陰, ==4舐陰莖, ==9舐肛, ==13くぱぁ, ==14Ａくぱぁ など
;-------------------------------------------------
IF SELECTCOM == 282
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;甜言蜜语
;-------------------------------------------------
IF SELECTCOM == 283
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;成功
	IF TEQUIP:甜言蜜语
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;失敗
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;抱上去
;-------------------------------------------------
IF SELECTCOM == 285
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;--------------------------------------------------
;調教指令の地の文の前に喋る台詞はここに書く
;--------------------------------------------------
@KOJO_MESSAGE_BEFORE_COM_K52
;口枷着用時には口上をスキップする？
SIF TEQUIP:口枷 && SELECTCOM != 135
	CALL KOJO_RAND_K52("口枷")

;電話中汎用口上
IF TEQUIP:電話中 && SELECTCOM != 139
	IF INSERT("後背位") && SELECTCOM == 130 && RAND:2 == 0
		CALL PRINT_STRL, @"『%TEXTR("んぅ/んぅう/んっ/んんっ/くぅ")%_HH_……』"
		PRINTFORML 『%TEXTR("ちょっと……ＴＶの音がうるさいかもしれないけど、気にしないで/洗濯物を干してる音よ。ちょっとうるさかったかな？")%』
	ELSE
		IF TALENT:恋慕 && RAND:5 == 0
			PRINTFORML
			PRINTFORML
		ELSEIF TALENT:恋慕 && RAND:4 == 0
			PRINTFORML 「%TEXTR("太过分的话声音会露出来的/真是的……这么做的话声音不是压制不住了吗")%……」
			PRINTFORML
			PRINTFORMW %CALLNAME:TARGET%把电话调成静音、小声地提醒着%CALLNAME:PLAYER%的行为…
		ELSEIF RAND:3 == 0
			CALL PRINT_STRL, @"『%TEXTR("んっ/くっ/あっ/はぁ/んぅ/待って/ダメよ/ダメだってば/こら")%_HH_……』"
			PRINTFORMW 『%TEXTR("ごめん……ちょっと電話の調子が悪いのかも/何もないからね……うん。気のせいだと思うよ/え……空耳じゃない？　ところでさ/あっ、そうだ。そう言えばさ")%』
		ELSEIF RAND:2 == 0
			CALL PRINT_STRL, @"『%TEXTR("うっ、うん。/うんっ、うぅん。/うん、んぅん、うん。/うん……うっ、うんっ/んっ、うんうん。/んぅ、うん。/うっ…うん……/うぅん……うん……")%%TEXTR("そうだと思うよ/そうだね/そうかも/そうしようか/それがいいかも")%_HH_』"
			CALL PRINT_STRW, @"『%TEXTR("待ってる……からね/わかったよ。大丈夫……だから心配しないで/ちょっと、調子が悪いかなって。うん……っ、大丈夫よ/ふぅ……少し疲れてるだけだから、ね。うんっ、んぅん")%_HH_』"
		ELSE
			CALL PRINT_STRL, @"『%TEXTR("んっ/んぅ/んぅう/くぅ/")%_HH_』"
			PRINTFORMW 『%TEXTR("別に……どうもしないけど？/な、何でもないわよ……你も疲れてるのね/気のせいじゃない？　ＴＶの音じゃないかな……")%』
		ENDIF
	ENDIF

ELSEIF SELECTCOM == 13 && FIRSTCOM(SELECTCOM) && AGE(TARGET) == 4
	;日常だけだと勿体ないので再利用
	IF TALENT:陰唇環 && RAND:3 == 0
		IF RAND:2 == 0
			IF CEVENTS("陰唇環") != ""
				PRINTFORM %CEVENTS("陰唇環", TARGET)%の
			ENDIF
			PRINTFORM 穿環
		ELSE
			PRINTFORM %TEXTS("陰唇環")%
		ENDIF
		PRINTFORM で飾られた
	;陰毛描写
	ELSEIF COND("陰毛")
		SELECTCASE COND("陰毛")
			;身嗜み指定可能7随意生長
			CASE 7
				PRINTFORM %TEXTR("浓密/茂密/浓厚")%的阴毛覆盖着秘所
			;自然
			CASE 6
				PRINTFORM %TEXTR(@"有点长/不怎么打理的有点毛茸茸的样子/自然的/不怎么打理")%阴毛覆盖着%TEXTR("那里/下面")%
			;身嗜み指定可能5保养完毕み
			CASE 5
				IF AGE(TARGET) >= 3 && RAND:2
					PRINTFORM 小心地%TEXTR("被剪齐了/被剃光了/被保养好的")%
				ELSE
					PRINTFORM 被整好的阴毛镶边
				ENDIF
			;剃过留痕無髭にもなる
			CASE 4
				;無髭状態
				IF CONDS("陰毛") == "無髭"
					PRINTFORM 下面的阴毛稀稀拉拉的
				;剃过留痕
				ELSEIF CONDS("陰毛") == "剃过留痕"
					PRINTFORM 刮过的痕迹明显
				;还没長出来（大人）
				ELSEIF RAND:2 && BASE:陰毛%100 >= 5
					PRINTFORM 毛长齐了
				ELSE
					PRINTFORM 阴毛薄薄的
				ENDIF
			;身嗜み指定可能3光滑无毛2脱毛処理1白虎
			CASE 3
				PRINTFORM 白虎に%TEXTR("剃过毛的/被剃了阴毛的")%
			CASE 2
				PRINTFORM %TEXTR("正在脱毛的/已经脱毛的")%
			CASEELSE
				PRINTFORM %TEXTR("刮得干干净净的/阴毛被剃得光溜溜的")%
		ENDSELECT
	ENDIF
	PRINTFORM 大陰唇の中心。
	PRINTFORM %TEXTR("厚实的/饱满的/成熟的/带点黑色的/变黑了的/染黑了的")%%CALLNAME:TARGET%の
	PRINTFORMW %TEXTR("大阴唇/小穴/阴唇")%进入了%CALLNAME:PLAYER%的视线%TEXTR("。/。")%

ELSEIF SELECTCOM == 91 && TEQUIP:拘束 == 0 && ((CEVENT("避孕套装着：初めて") && (CEVENT("避孕套装着：初めて２") == 0) || (CEVENT("避孕套装着：初めて２") && CEVENT("避孕套装着：初めて３") == 0 && RAND:5 == 0)))
	PRINTFORML
	PRINTFORMW %CALLNAME:TARGET%传达了希望用口交服务%CALLNAME:MASTER%は……
	PRINTFORMW 想起了之前%CALLNAME:TARGET%做的真空口交的事
	PRINTFORML
	PRINTFORML %CALLNAME:MASTER%関于真空口交……
	CALL PRINT_SELECT, "聞く/聞かない"
	IF RESULT == 0
		PRINTFORMW 「唔嗯、呲溜……这就是、所谓的真空口交吧」
		PRINTFORMW 「当时是因为一时冲动才这么做的……不管怎么说……」
		PRINTFORMW 「而且%CNAME("一人称")%作为年长的大姐姐、所以有一两个秘密也不奇怪吧？」
		PRINTFORMW 「明明有避孕套却绝对不戴，都是%CNAME("二人称")%不好……」
		PRINTFORMW %CALLNAME:TARGET%一边含糊地回答，一边将视线从%CALLNAME:MASTER%上移開
		PRINTFORML
		PRINTFORMW 「呜……知道了」
		PRINTFORMW 「这件事就不要再追究了」
		PRINTFORMW 「作为交换、下次说无论如何都不想戴避孕套的时候……再……」
		PRINTFORMW 「我会再……为你做的，所以……」
		PRINTFORML
		PRINTFORMW %CALLNAME:TARGET%和%CALLNAME:MASTER%之间流露出尴尬的气氛……
		FLAG:情緒 -= 60
		CALL TEXT, "情緒変化", -60
		WAIT
		TFLAG:指令中止 = 1
	 	CALL SET_CEVENT, "避孕套装着：初めて３"
	 ELSE
	 	PRINTFORMW 「%TEXTR("怎么了/是在想什么吗")%？」
	 	PRINTFORML
	 	PRINTFORMW %CALLNAME:TARGET%察觉到%CALLNAME:MASTER%可能是想说些什么……
	 	PRINTFORMW 积极的把脸埋在%CALLNAME:PLAYER%的裆部開始了%TEXTR("口交/侍奉")%。
	 	PRINTFORMW %CALLNAME:MASTER%一下失去了開口说话的时机。
		FLAG:情緒 += 60
		CALL TEXT, "情緒変化", +60
;		SETCOLOR DEF_COLOR("粉紅")
;			PRINTFORML - 系统信息 -
;			PRINTFORML 好感度+100
			IF CEVENT("避孕套装着：初めて２") == 0
				CFLAG:好感度 += 100
			ENDIF
;		RESETCOLOR
;		DRAWLINE
	ENDIF
	CALL SET_CEVENT, "避孕套装着：初めて２"
;尿道挿入でＶ／Ａ選択は何かが違うから例外とすべきか？
;『展開的に調教開始時に言い出す方がそれっぽいので移動』
;ELSEIF TALENT:恋慕 == 0 && (TRAIN_GENRE("Ｖ挿入", SELECTCOM) + TRAIN_GENRE("尿道挿入", SELECTCOM) + TRAIN_GENRE("Ａ挿入", SELECTCOM)) && COND("合意：肛門性交") && CEVENT("肛門限定：選択イベント") == 0
ENDIF

;-------------------------------------------------
;調教指令終了時に行う共通処理。特になくともよい
;-------------------------------------------------
@KOJO_ENDCOM_K52
IF CEVENT("電話強制終了")
	;什麼也不做/打电话を一時的に封印する
	DITEMTYPE:TARGET:139 = 1
	;電話中を解除する
	TEQUIP:電話中 = 0
	CALL DEL_CEVENT("電話強制終了")
ENDIF

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K52, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

IF TEQUIP:電話中
	IF (NOWEX:Ｃ絶頂 || NOWEX:Ｖ絶頂 || NOWEX:Ａ絶頂 || NOWEX:Ｂ絶頂 || NOWEX:Ｍ絶頂 || NOWEX:尿道絶頂)
		IF (COND("弛緩") && RAND:2 == 0) || COND("陶酔")
			IF TALENT:淫乱 && ABL:露出癖 >= 5 && RAND:3 == 0
				CALL PRINT_STRL, @"「%TEXTR("其实啊/那个啊")%……%CNAME("一人称")%、%TEXTR("做了不好的事情/听到您的声音我就感到寂寞")%……%TEXTR("嗯啊/嗯啊/嗯啊/啊啊/啊啊/啊啊/哈啊/哈啊/呀啊/呀啊")%_HH_」"
				PRINTFORML
				PRINTFORMW 在和%TEXTR("丈夫/老公")%打电话%TEXTR("的时候/的同时")%%CALLNAME:TARGET%%TEXTR("淫叫着/控制不住得/无法忍受快乐的")%绝顶了…
			ELSEIF RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("嗯……差不多该挂了/啊……没、没事的……再见/等等……啊、想起了有重要的事要做。回頭再说吧")%」"
				PRINTFORML
				PRINTFORMW 把%TEXTR("丈夫/老公")%的电话%TEXTR("挂断后/结束后")%%CALLNAME:TARGET%は%TEXTR("颤抖着身体/吐出甜美的气息")%%TEXTR("/控制不住得/无法忍受快乐得")%绝顶了…
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("差不多该挂电话了/谢谢。差不多该讲完了")%。我爱您、亲爱的_HH_」"
				PRINTFORML
				PRINTFORMW 挂断电话后%CALLNAME:TARGET%は%TEXTR("呼出甜美的气息/发出压抑已久的娇喘/发出愉悦的喘息")%、%TEXTR("撒娇似的把身体靠在/充满爱欲的眼神望向了")%%CALLNAME:PLAYER%上…
			ENDIF
			PRINTFORML %CALLNAME:TARGET%把%TEXTR("丈夫/老公")%的电话挂断了…
			SETCOLOR DEF_COLOR("黄色")
				PRINTFORMW 【这次调教中不能再打电话了】
			RESETCOLOR
			;什麼也不做/打电话を一時的に封印する
			DITEMTYPE:TARGET:139 = 1
			;電話中を解除する
			TEQUIP:電話中 = 0
			CALL SET_CEVENT, "電話強制終了"
		ENDIF
	ELSE
		;PRINTFORMW
	ENDIF
	RETURN 0
ENDIF
;-------------------------------------------------
;パラメータ変動時のセリフ
;-------------------------------------------------
SELECTCASE ARGS
;-------------------------------------------------
;初めてＶ潤がLV3超えた
;-------------------------------------------------
CASE "Ｖ潤LV3突破"
	;初めて
	IF FIRST_EV("Ｖ潤LV3突破") == 0
		;潤滑液を使った場合
		IF SELECTCOM == 260
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて欲情がLV3超えた
;-------------------------------------------------
CASE "欲情LV3突破"
	IF FIRST_EV("欲情LV3突破") == 0
		;媚薬を使った場合
		IF SELECTCOM == 261
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて恥情がLV3超えた
;-------------------------------------------------
CASE "恥情LV3突破"
	IF FIRST_EV("恥情LV3突破") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めて恐怖がLV3超えた
;-------------------------------------------------
CASE "恐怖LV3突破"
	IF FIRST_EV("恐怖LV3突破") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてC絶頂
;-------------------------------------------------
CASE "Ｃ絶頂"
	IF FIRST_EV("Ｃ絶頂") == 0
		CALL PRINT_STRW, @"「哈啊 _HH_……唔啊_HH_……」"
		CALL PRINT_STRW, @"「小豆豆_HH_　好舒服啊_HH_　啊啊、要去了、去了啊啊啊_HH_」"
	ENDIF
;-------------------------------------------------
;初めてV絶頂
;-------------------------------------------------
CASE "Ｖ絶頂"
	IF FIRST_EV("Ｖ絶頂") == 0
		CALL PRINT_STRW, @"「嗯嗯啊_HH_　啊、不行了、嗯啊_HH_　嗯啊、哈啊_HH_」"
		CALL PRINT_STR, @"「嗯啊啊啊_HH_　高潮了高潮了_HH_"
		CALL PRINT_STR, @"_HH_"
		CALL PRINT_STR, @"_HH_　啊啊啊啊っ_HH_"
		CALL PRINT_STR, @"_HH_"
		CALL PRINT_STRW, @"_HH_」"
	ENDIF
;-------------------------------------------------
;初めてA絶頂
;-------------------------------------------------
CASE "Ａ絶頂"
	IF FIRST_EV("Ａ絶頂") == 0
		CALL PRINT_STRW, @"「不行了_HH_　有、有什么要来了_HH_」"
		CALL PRINT_STR, @"「屁股、屁股要、去了啊啊啊啊う_HH_"
		CALL PRINT_STR, @"_HH_"
		CALL PRINT_STRW, @"_HH_」"
	ENDIF
;-------------------------------------------------
;初めてB絶頂
;-------------------------------------------------
CASE "Ｂ絶頂"
	IF FIRST_EV("Ｂ絶頂") == 0
		CALL PRINT_STRW, @"「嗯啊……好舒服_HH_」"
		CALL PRINT_STRW, @"「啊_HH_　哈啊_HH_　欧派_HH_　胸部要去了啊啊啊啊_HH_」"
	ENDIF
;-------------------------------------------------
;C挑逗
;-------------------------------------------------
CASE "Ｃ挑逗"
	;初めて
	IF FIRST_EV("Ｃ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｃ挑逗
		IF NOWEX:Ｃ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｃ挑逗
		ELSEIF NOWEX:Ｃ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;V挑逗
;-------------------------------------------------
CASE "Ｖ挑逗"
	;初めて
	IF FIRST_EV("Ｖ挑逗") == 0
		CALL PRINT_STRW, @"「哈啊 _HH_……唔啊_HH_……」"
		CALL PRINT_STRW, @"「不要再使坏了_HH_　请在%CNAME("一人称")%的里面射出来吧……还想要更多的……」"
	;２回目以降
	ELSE
;		;強絶頂Ｖ挑逗
;		IF NOWEX:Ｖ绝顶前骤停 >= 2
;			PRINTFORMW
		;絶頂Ｖ挑逗
		IF NOWEX:Ｖ绝顶前骤停 && FLAG:情緒 >= 240
			CALL PRINT_STRL, @"「%TEXTR("嗯啊啊/小穴要/快点")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("小穴/里面/那里")%好想要_HH_　请快点在%CNAME("一人称")%的%TEXTR("里面/小穴里/阴道里/子宫里")%射出浓郁的精子吧_HH_」"
		ENDIF
	ENDIF
;-------------------------------------------------
;A挑逗
;-------------------------------------------------
CASE "Ａ挑逗"
	;初めて
	IF FIRST_EV("Ａ挑逗") == 0
		CALL PRINT_STRW, @"「嗯啊_HH_　哈啊……」"
		CALL PRINT_STRW, @"「%CNAME("一人称")%的菊穴……拜托了，让菊穴高潮吧啊啊_HH_」"
	;２回目以降
	ELSE
;		;強絶頂Ａ挑逗
;		IF NOWEX:Ａ绝顶前骤停 >= 2
;			PRINTFORMW
		;絶頂Ａ挑逗
		IF NOWEX:Ａ绝顶前骤停 && FLAG:情緒 >= 240
			CALL PRINT_STRL, @"「%TEXTR("请不要再使坏了/拜托了")%_HH_」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%的%TEXTR("屁股/菊穴")%……想要、%TEXTR("请尽情的欺负我吧/把我弄得乱七八糟吧")%_HH_」"
		ENDIF
	ENDIF
;-------------------------------------------------
;B挑逗
;-------------------------------------------------
CASE "Ｂ挑逗"
	;初めて
	IF FIRST_EV("Ｂ挑逗") == 0
		CALL PRINT_STRW, @"「嗯_HH_　欧派_HH_」"
		CALL PRINT_STRW, @"「想要……更多、%CNAME("一人称")%的胸部、想被玩弄到高潮_HH_」"
	;２回目以降
	ELSE
;		;強絶頂Ｂ挑逗
;		IF NOWEX:Ｂ绝顶前骤停 >= 2
;			PRINTFORMW
		;絶頂Ｂ挑逗
		IF NOWEX:Ｂ绝顶前骤停
			CALL PRINT_STRW, @"「%TEXTR("唔嗯、唔嗯/嗯啊、嗯啊啊/哈啊……哈啊啊")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("欧派/胸部")%%TEXTR("想要更多/想要被激烈地玩弄")%……_HH_」"
		ENDIF
	ENDIF
;-------------------------------------------------
;扶她射精挑逗
;-------------------------------------------------
CASE "射精挑逗"
	;初めて
	IF FIRST_EV("射精挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;大量射精挑逗
		IF NOWEX:射精前骤停 >= 2
			PRINTFORMW
		;射精挑逗
		ELSEIF NOWEX:射精前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;処女喪失(処女のみ)
;-------------------------------------------------
CASE "処女喪失"
	IF FIRST_EV("処女喪失") == 0
		;恋慕
		IF TALENT:恋慕
			;主人の性交による処女喪失
			IF PLAYER == MASTER && INSERT("Ｖ挿入")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;射精した(扶她/男性のみ)
;-------------------------------------------------
CASE "射精した"
	;初めて
	IF FIRST_EV("射精した") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;噴乳した(母乳体質のみ)
;-------------------------------------------------
CASE "噴乳した"
	;初めて
	IF FIRST_EV("噴乳した") == 0
		PRINTFORMW
	;二回目以降
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;絶頂放尿した
;-------------------------------------------------
CASE "絶頂放尿"
	;初めて
	IF FIRST_EV("絶頂放尿") == 0
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｃ絶頂20以上
;-------------------------------------------------
CASE "Ｃ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｃ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｖ絶頂20以上
;-------------------------------------------------
CASE "Ｖ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｖ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ａ絶頂20以上
;-------------------------------------------------
CASE "Ａ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ａ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｂ絶頂20以上
;-------------------------------------------------
CASE "Ｂ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｂ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

;-------------------------------------------------
;刻印変動をトリガーにした口上
;刻印変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_MARKCNG_K52, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

SELECTCASE ARGS
;-------------------------------------------------
;苦痛刻印Lv3取得
;-------------------------------------------------
CASE "苦痛刻印Lv3取得"
	IF FIRST_EV("苦痛刻印Lv3取得") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;快楽刻印Lv3取得
;-------------------------------------------------
CASE "快楽刻印Lv3取得"
	IF FIRST_EV("快楽刻印Lv3取得") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;屈服刻印Lv3取得
;-------------------------------------------------
CASE "屈服刻印Lv3取得"
	IF FIRST_EV("屈服刻印Lv3取得") == 0
		PRINTFORMW
	ENDIF
ENDSELECT

;-------------------------------------------------
;TARGETの射精直前の口上
;-------------------------------------------------
@KOJO_MESSAGE_BEFORE_TARGETSHOOT_K52

;-------------------------------------------------
;射精先選択の直前に表示する口上
;頻繁に表示されるため随机や表示条件の設定推奨です
;-------------------------------------------------
@KOJO_MESSAGE_SHOOT_K52
;初期は表示されないようにしてあるため、書いた後はRETURN 0を消す
;RETURN 0

;恋慕
IF TEQUIP:電話中 == 0 && TALENT:恋慕 && INSERT("Ｖ挿入") && TEQUIP:PLAYER:避孕套 == 0 && (CFLAG:口服避孕薬 == 0 || TALENT:事后避孕药 == 0)
	CALL PRINT_STRL, @"「%TEXTR("嗯啊/唔嗯")%_HH_　拜托了、%TEXTR("＿/做的话/要射精的话")%……」"
	CALL PRINT_STRW, @"「%TEXTR("不可以在里面中出/请射在外面")%……%TEXTR("哈啊/啊啊/嗯啊")%_HH_」"
ENDIF

;-------------------------------------------------
;PLAYERの射精＆絶頂をトリガーにした口上
;それぞれの射精分岐内での初めてかどうかの判定は、FIRST_EV(ARGS)で行う
;例）ELSEIF SHOOT("脚")において初めてかどうかは、FIRST_EV("絶頂：脚")で判定する
;-------------------------------------------------
@KOJO_MESSAGE_SAMEN_AND_EXTACY_K52
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
SIF ASSIPLAY
	RETURN 0

CALL BLANKLINE
;性交中の射精は強制的に電話終了とする
IF TEQUIP:電話中
	IF (SHOOT("Ｖ中出し") || SHOOT("Ａ中出し"))
		CALL PRINT_STRL, @"『%TEXTR("くぅっ/くっ/んぅ/んっ")%_HH_……』"
		CALL PRINT_STRW, @"『%TEXTR("ちょっと身体の調子があんまり良くないから……今日はこのぐらいにしておくね。好きよ、你/何でもないから……気にしないでね。愛してるわ、你")%_HH_』"
		PRINTFORML
		CALL PRINT_STRW, @"「%TEXTR(@"请手下留情……会暴露的、所以……啊、啊/喂……要控制不住声音了……不行、那里、那里不行")%_HH_」"
		PRINTFORML
		PRINTFORMW %CALLNAME:TARGET%无法忍受快感地挂断了%TEXTR("老公/丈夫")%的电话、%CALLNAME:MASTER%听着%CALLNAME:TARGET%的抗议，%CALLNAME:PLAYER%为了%TEXTR("慰劳/疼爱/让她明白")%动起了腰…
		CALL SET_CEVENT, "電話強制終了"
		PRINTFORML %CALLNAME:TARGET%把%TEXTR("丈夫/老公")%的电话挂断了…
		SETCOLOR DEF_COLOR("黄色")
			PRINTFORMW 【这次调教中不能再打电话了】
		RESETCOLOR
		;什麼也不做/打电话を一時的に封印する
		DITEMTYPE:TARGET:139 = 1
		;電話中を解除する
		TEQUIP:電話中 = 0
		RETURN 0
	ELSE
		;PRINTFORMW
		RETURN 0
	ENDIF
ENDIF

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ") && TALENT:恋慕
	IF SHOOT("自慰")
		CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
		CALL PRINT_STRW, @"「%CNAME("調教時二人称")%%TEXTR("一个人的时候也会做这样的事情吧/就这么想看女孩子做这种事情吗")%_HH_」"
	;大量射精以上
	ELSEIF COND("絶頂", PLAYER) >= 2 && RAND:2 == 0
		IF CFLAG:口服避孕薬 || TALENT:事后避孕药
			CALL PRINT_STRL, @"「%TEXTR("竟然射出了这么多/射出了这么多呢")%_HH_」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%因为%CNAME("調教時二人称")%的原因%TEXTR("现在在吃避孕药/用避孕药避孕了")%啊……下次请不要客气%TEXTR("射在小穴里面也可以哦/尽情把精子射在里面吧")%_HH_」"
		ELSEIF TALENT:相思相愛 && RAND:2 == 0
			CALL PRINT_STRL, @"「%TEXTR("非常感谢射了这么多/被射在里面了呢……好激动啊")%_HH_」"
			IF TALENT:妊娠
				CALL PRINT_STRW, @"「%TEXTR("宝宝如果/婴儿如果")%生下来的话，还想再射在里面呢_HH_」"
			ELSE
				CALL PRINT_STRW, @"「%TEXTR(@"但是、接下来……请射在里面。拜托了/其实……%CNAME("一人称")%想要再次受精呢。下次请多多指教")%_HH_」"
			ENDIF
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("好多精液/好多精子")%%TEXTR("被榨出来了呢/出来了呢/射出来了呢")%_HH_」"
		ENDIF
	ELSE
		IF CFLAG:口服避孕薬 || TALENT:事后避孕药
			CALL PRINT_STRL, @"「呼……%TEXTR("射出来了好多啊/竟然射了这么多")%_HH_」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%因为%TEXTR("已经吃了避孕药/已经做好避孕措施")% 、%TEXTR("下次想要射到小穴里面呢/不用担心尽情的中出吧")%_HH_」"
		ELSE
			CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("还是这么有精神呢/刚射精就这么精神呢")%_HH_　这次就用%TEXTR(@"姐姐/%CNAME("一人称")%")%的%TEXTR("口交/嘴巴/口交侍奉")%清理的干干净净的吧？」"
		ENDIF
	ENDIF
;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰") && TALENT:恋慕
	PRINTFORML 「へ～……」
	PRINTFORMW 「結構飛ぶんだね。ちょっとビッ阴蒂しちゃった」

;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた
;-------------------------------------------------
ELSEIF SHOOT("脚") && TALENT:恋慕
	;初めて
	IF FIRST_EV("絶頂：脚") == 0
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR(@"被脚弄得很舒服吗?/被%CNAME("一人称")%用脚摩擦感觉怎样呢？")%_HH_」"
			CALL PRINT_STRW, @"「这么%TEXTR("色情的孩子/变态的孩子")%必须好好教育教育%TEXTR("呢/呢~")%_HH_」"
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("还想要更多吧？　如果/Hola……快好好地说清楚，想要什么呢")%_HH_」"
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ELSEIF SHOOT("素股")
	CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
	CALL PRINT_STRW, @"「%TEXTR("姐姐/人妻")%的%TEXTR("素股服务/小穴夹着大鸡鸡")%%TEXTR("感觉很舒服吧/感觉怎么样呢")%_HH_」"
;-------------------------------------------------
;口で射精させた
;-------------------------------------------------
ELSEIF SHOOT("口") && TALENT:恋慕
	;初めて
	IF FIRST_EV("絶頂：口") == 0
		PRINTFORML 「嗯……好厉害」
		CALL PRINT_STRW, @"「%CNAME("調教時二人称")%的%TEXTR("浓稠精液/黏稠精子")%在嘴里射出了很多呢_HH_」"
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		CALL PRINT_STRL, @"「%TEXTR("嗯嗯/哈啊")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("十分的/非常的")%美味%TEXTR("＿/呢/啊")%_HH_呲溜、%TEXTR("想要再喝更多更多/喝了这么美味的精液会上瘾的")%_HH_」"
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
		CALL PRINT_STRW, @"「%CNAME("一人称")%的口交%TEXTR("技术/侍奉")%相当%TEXTR("不错吧/厉害吧")%_HH_」"
	;それ以外
	ELSE
		CALL PRINT_STRL, @"「%TEXTR("唔嗯/嗯嗯")%_HH_　%TEXTR("咕噜咕噜/呲溜、咕噜/咕噜噜、咕噜咕噜")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"呼……积累了很多呢。在嘴里射出了这么多，姐姐很開心呢/呼……%CNAME("二人称")%的精液这么大的量。不过一点也不讨厌呢、请再让我喝点吧")%_HH_」"
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸") && TALENT:恋慕
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		CALL PRINT_STRW, @"「%TEXTR("阿拉啦/嗯哼哼")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"那个%CNAME("一人称")%的胸部侍奉还舒服吗？/真是的……快射出来的话要提前说一声啊。吓了姐姐一跳呢")%_HH_」"
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_」"
		CALL PRINT_STRW, @"「%CNAME("一人称")%的%TEXTR("欧派中间/乳交侍奉")%……%TEXTR("大肉棒又热又硬呢/很舒服吧")%，啊啊，射了这么多出来呢_HH_」"
	;それ以外
	ELSE
		CALL PRINT_STRW, @"「%TEXTR("嗯嗯/嗯哼")%……_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"可以这样侍奉、感觉彼此都变得愉悦起来了呢/为%CNAME("二人称")%这样侍奉的话、看起来很喜欢的样子呢")%_HH_」"
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手") && TALENT:恋慕
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		CALL PRINT_STRL, @"「肉棒变得%TEXTR("这么/非常")%%TEXTR("大了呢/硬了呢")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"小鸡鸡射精的时候一抖一抖的……真可爱/明明刚刚才射过精……在%CNAME("一人称")%的手里这么快又挺拔起来了")%_HH_」"
	;奉仕精神Lv3
	ELSEIF ABL:奉仕精神 >= 3
		CALL PRINT_STRL, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　看起来很喜欢%TEXTR(@"%CNAME("一人称")%/姐姐")%用手来帮忙做%TEXTR("呢/啊")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"可以让你这么開心就是值得的呢、%CNAME("一人称")%也会很高兴的/作为对诚实的好孩子的奖励……我会为你做更多的")%_HH_」"
	;それ以外
	ELSE
		CALL PRINT_STRL, @"「%TEXTR("这样的感觉真好啊/很高兴让你舒服起来了")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR("用手做也稍微习惯了一点……下次一定会让你更加舒服的哟/亲手为您服务、姐姐也很開心啊")%_HH_」"
	ENDIF
;-------------------------------------------------
;性交で射精させた
;-------------------------------------------------
ELSEIF SHOOT("Ｖ中出し") && TALENT:恋慕 && TEQUIP:PLAYER:避孕套 == 0
	;初めて
	IF FIRST_EV("絶頂：Ｖ中出し") == 0
		CALL PRINT_STRW, @"「哈啊 _HH_……唔啊_HH_……」"
		PRINTFORMW 「啊啊……%CNAME("一人称")%已经も……」
		CALL PRINT_STR, @"「比起丈夫……更加的_HH_　喜欢%CNAME("調教時二人称")%_HH_　最喜欢了_HH_」"
	;それ以外
	ELSEIF (CFLAG:口服避孕薬 || TALENT:事后避孕药)
		PRINTFORML 「%TEXTR("没関系。那边的事情会好好解释的……拜托了。请尽情的射在里面吧/会。会和丈夫解释的、拜托了中出吧")%……」
		CALL PRINT_STRL, @"%TEXTR("啊啊/嗯啊啊/哈啊啊")%_HH_　%CNAME("一人称")%、%TEXTR("喜欢的人/爱的人")%只有%CNAME("調教時二人称")%一个%TEXTR("＿/っ/……")%_HH_」"
		CALL PRINT_STRW, @"（……%CNAME("調教時二人称")%的%TEXTR("那个/大肉棒/大鸡鸡")%最棒了……明明是背德的行为、但是却想要得停不下来_HH_　对不起……亲爱的）"
		IF RAND:5 == 0
			IF TALENT:相思相愛 && RAND:2 == 0
				PRINTFORMW （%TEXTR("明明知道不行/明明是不行的")%……但是还是想要%CNAME("調教時二人称")%的%TEXTR("精子受精/孩子")%……%TEXTR("快射出来吧/啊啊、快")%……）
			ELSE
				PRINTFORMW （%TEXTR("还好提前吃过避孕药了……如果能注入这样的量的话绝对会怀孕的/因为用避孕药避孕了所以没関系……如果不喝的话绝对会怀孕的/年轻的男孩子实在是太厉害了……如果不是吃了避孕药可能就危险了……")%）
			ENDIF
		ENDIF
	ELSEIF CEVENT("情人旅館で生中出し許可")
		CALL PRINT_STRL, @"「%TEXTR("嗯啊/啊啊/唔嗯/咿咿")%_HH_……」"
		PRINTFORML （%TEXTR("其实/頭脑里")%明明知道%TEXTR("不能和丈夫以外的人做这种事/和别的男人做爱是出轨了")%……%CNAME("一人称")%毕竟是女人）
		CALL PRINT_STRL, @"（……%TEXTR("屈服在年轻男孩子的肉棒下……被调教、做了这么多色情、舒服的事情……已经没办法再忍耐了/如果狡辩说是被强行要求做爱的话……总觉得多少会好听一点吧")%_HH_）"
		PRINTFORMW （%TEXTR(@"实在对不起……亲爱的……/绝对不会被发现的……请原谅%CNAME("一人称")%这个不守妇道的荡妇……")%）
	ELSE
		PRINTFORML 「%TEXTR("不行了……如果射出来的话、感觉有什么要、啊啊啊啊！！/不行啊、要被、嗯啊、 被、 中出了……啊、好舒服、要去了、啊啊啊啊啊啊！！")%」
		CALL PRINT_STRL, @"「哈啊_HH_……哈啊_HH_……%TEXTR(@"明明说了不行的……大笨蛋/万一真的怀孕了该怎么办？在%CNAME("二人称")%到了能好好负责的年龄之前可不准再这样了")%」"
		CALL PRINT_STRW, @"「%TEXTR("真是的……既然都发生这种事了、今天可不能再由着继续做下去了。请好好反省吧/好好反省一下吧?今天的运动就到此为止吧")%」"
		CALL SET_CEVENT, "無責任中出しされた"
		CALL SETFLAG, "Ｖ挿入指令禁止"
		FLAG:情緒 -= 180
		CALL TEXT, "情緒変化", -180
	ENDIF

ELSEIF SHOOT("Ａ中出し") && TALENT:恋慕
	;初めて
	IF FIRST_EV("絶頂：Ａ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
ELSEIF SHOOT("接吻") && TALENT:恋慕
	PRINTFORMW
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗") && TALENT:恋慕
	PRINTFORMW
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶") && TALENT:恋慕
	PRINTFORMW
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
ELSEIF SHOOT("逆舐陰") && TALENT:恋慕
	PRINTFORMW
;-------------------------------------------------
;逆肛交、逆強姦で射精
;-------------------------------------------------
ELSEIF (SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")) && TALENT:恋慕
	PRINTFORMW
;-------------------------------------------------
;PLAYERが女で、イってしまった…
;-------------------------------------------------
ELSEIF SHOOT("調教者が女性") && TALENT:恋慕
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2
		PRINTFORMW
	;絶頂
	ELSEIF COND("絶頂", PLAYER) == 1
		PRINTFORMW
	ENDIF
ENDIF

;-------------------------------------------------
;角色が調教中に調教者を攻める際などの口上
;-------------------------------------------------
@KOJO_COUNTER_K52, ARGS
SELECTCASE ARGS
CASE "绝顶忍耐"
	;partnerに焦らされている
	IF TEQUIP:推倒
		PRINTFORMW
	;PLAYERが绝顶忍耐
	ELSE
		;今回がこらえた初回
		IF EX:PLAYER:绝顶忍耐 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "恍惚"
	PRINTFORMW
CASE "推倒"
	PRINTFORMW
CASE "強制終了"
	PRINTFORMW
CASE "復活"
	PRINTFORMW
CASE "恍惚から復帰"
	PRINTFORMW
CASE "助手が限界"
	PRINTFORMW
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;-------------------------------------------------
@KOJO_EVENT_K52, ARGS
SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
;ほむら老师口上から構文をお借りしました
CASE "Ｖ避孕套装着"
	;挿入指令
	IF TRAIN_GENRE("挿入", SELECTCOM)
		;PLAYヤーは着ける気満々
		IF TEQUIP:PLAYER:避孕套
			;初めての性交
			IF FIRSTCOMS("Ｖ挿入") == 0
				PRINTFORMW 「……怎么说、%CNAME("一人称")%也是结婚的人妻了」
				PRINTFORMW 「无套中出当然是不行的……但是只用素股忍耐的话也太可怜了」
				PRINTFORMW 「而且第一次的话、用屁股稍微也有点……」
				PRINTFORMW 「嗯嗯。如果可以好好地戴上一次避孕套的话……」
				PRINTFORMW 「这次就破例交合一次也可以……但是下次可不行了啊？」
				PRINTFORML
			ELSEIF CHOSECOMS("Ｖ挿入") == 0
				IF TALENT:相思相愛 && RAND:3 == 0
					IF (CFLAG:口服避孕薬 == 1 || TALENT:事后避孕药) && RAND:2 == 0
						PRINTFORML 「能够好好%TEXTR("戴上避孕套/做好避孕措施")%姐姐很開心啊……」
						IF RAND:2 == 0
							CALL PRINT_STRW, @"「%TEXTR(@"我/姐姐/老师")%是为了%CNAME("二人称")%才吃的避孕药_HH_」"
						ELSE
							CALL PRINT_STRW, @"「这%TEXTR("一次/一发")%结束之后、下次就直接中出吧_HH_」"
						ENDIF
					ELSE
						IF RAND:3 == 0
							IF RAND:2 == 0
								PRINTFORML 「%TEXTR("唔～嗯。/这样啊……")%%TEXTR(@"%CNAME("二人称")%/今天")%戴了避孕套了吗……」
								PRINTFORML 「没、没有什么遗憾啊。%CNAME("一人称")%毕竟也是人妻」
							ELSE
								CALL PRINT_STRL, @"「%TEXTR("因为现在还是学生，所以要好好避孕啊/做好避孕工作啦吗、嗯嗯很棒哦")%_HH_」"
								CALL PRINT_STRL, @"「%TEXTR("是不是真的想要无套插入？　我、可没这么说过/我可没有期待无套插入什么的、真的没有！")%」"
							ENDIF
							IF RAND:2 == 0
								PRINTFORMW （但是、如果真的被逼迫中出的话……%CNAME("一人称")%）
							ELSE
								PRINTFORMW （确实有点想要被中出啊……明明是不可以的）
							ENDIF
						ELSEIF RAND:2 == 0
							PRINTFORMW 「%TEXTR("那个/是吗/是吗")%……好好的戴上避孕套了啊……%TEXTR("嗯嗯/了不起")%」
							PRINTFORMW 「%TEXTR(@"%CNAME("一人称")%因为已经是结了婚的人妻了。避孕是很重要的/并没有觉得遗憾……只是觉得戴着避孕套有些不太舒服而已")%
						ELSE
							PRINTFORMW 「已经%TEXTR("戴好/戴上")%避孕套%TEXTR("了吗/了啊")%……」
							CALL PRINT_STRW, @"「%TEXTR(@"非常感谢……好好考虑到%CNAME("一人称")%的实际情况了呢/真是有责任感的好孩子。既然已经做好准备了，那就開始做些爱做的事情吧")%_HH_」"
						ENDIF
					ENDIF
				;
				ELSEIF TALENT:恋慕 && RAND:2 == 0
					IF (CFLAG:口服避孕薬 == 1 || TALENT:事后避孕药) && RAND:2 == 0
						PRINTFORML 「可以不必客气哦」
						CALL PRINT_STRW, @"「%CNAME("一人称")%为了%CNAME("二人称")%%TEXTR("已经提前吃了避孕药了、下次直接射在里面就可以了/已经提前做好避孕设施了，想中出的话就尽情做吧")%_HH_」"
					ELSE
						IF FLAG:情緒 >= 240
							PRINTFORML 「%TEXTR("我想你应该知道/那个啊")%……%CNAME("一人称")%怎么说%TEXTR("都是一位人妻/都是有夫之妇")%」
							CALL PRINT_STRW, @"「%TEXTR(@"过分亲热的话……那个%CNAME("一人称")%要是这么沉沦下去该怎么办/制造这么暧昧的气氛的话。彼此可能都会心动的啊")%_HH_……」"
						ELSEIF COND("Ｖ潤充分") == 0
							PRINTFORML 「还没怎么湿呢……稍微温柔一点吧？」
							CALL PRINT_STRW, @"（%TEXTR(@"不习惯H的年轻人努力的样子。其实我并不讨厌，但是其他的孩子可能会讨厌啊/只是被欲望所驱使还不够好……让年长一些的%CNAME("一人称")%好好地引导吧")%_HH_）"
						ELSE
							CALL PRINT_STRL, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　%TEXTR(@"就这么想和%CNAME("一人称")%一起做爱吗？　这么被要求了，但是也不讨厌呢/一副想得不得了的样子呢。哼哼……来吧")%_HH_」"
							CALL PRINT_STRW, @"「%TEXTR("好好对准/好好瞄准前端")%哦_HH_　%TEXTR(@"现在開始%CNAME("一人称")%和%CNAME("二人称")%合为一体了呢。已经做好了避孕措施所以不要客气，好好享受吧。/至少现在%CNAME("一人称")%是只属于%CNAME("二人称")%一个人的女人。想怎么做都可以哦……把腰动起来吧")%_HH_」"
						ENDIF
					ENDIF
				ENDIF
			;初挿入以外は避孕套が3個だとカウントダウンが始まる
			ELSEIF ITEM:避孕套 == 3
				CALL PRINT_STRW, @"「１，２，３……真是的，到底准备了多少避孕套啊。是想把%CNAME("一人称")%干到筋疲力尽为止吗_HH_」"
			ELSEIF ITEM:避孕套 == 2
				CALL PRINT_STRW, @"「只剩下两个避孕套了呢_HH_　%TEXTR("不好好做的话很快就会结束的，加油哦_HH_/我想你应该能明白……避孕套用完了的话就要结束了哦？")%」"
			ELSEIF ITEM:避孕套 == 1
				CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　避孕套好像是最后一个了，%TEXTR(@"可不准马上射精哦/以%CNAME("一人称")%的技巧可能马上就会结束了呢、所以哦")%，好好加油吧_HH_」"
			;初挿入以外は情緒が高い場合だけ喋る
			ELSEIF FLAG:情緒 >= 240
				IF RAND:2 == 0
					CALL PRINT_STRW, @"「%TEXTR("还想要做更多呢/想要再做些色色的事情吗？")%_HH_　%TEXTR("真是没办法啊。那就一直做到满意为止吧/就这么喜欢姐姐的身体吗，真是个让人頭疼的孩子")%_HH_」"
				ELSE
					CALL PRINT_STRW, @"「%TEXTR("嗯啊/啊哈/唔嗯")%_HH_　通过避孕套都能感觉到%CNAME("二人称")%の%TEXTR("大鸡鸡/肉棒/阴茎")%%TEXTR("变得非常的硬/勃起的雄伟程度。真是太棒了")%_HH_」"
				ENDIF
			ENDIF
			CALL INSERT_MESSAGE_K52, "避孕套有些"

		;PLAYヤーは避孕套を着ける気がない　ここからスタート
		;拘束されている
		ELSEIF TEQUIP:拘束 && CHOSECOMS("Ｖ挿入") == 0
			IF (CFLAG:口服避孕薬 || TALENT:事后避孕药)
				PRINTFORML 「……%TEXTR("淫荡/淫乱")%%TEXTR("人妻/老师/教師")%的……%TEXTR("色情/变态")%%TEXTR("小穴/阴道")%に……」
				PRINTFORML 「%TEXTR("想要被狠狠地惩罚/想要被炙热的精液填满/好像要美味的精液")%……」
			ELSE
				PRINTFORML 「拜托%TEXTR("了/在")%開始之前%TEXTR("戴好套套/戴好避孕套/戴上避孕套/做好避孕")%……」
			ENDIF
			;緊縛中
			IF BIND("縄：手首足首縛り", TEQUIP:拘束)
				PRINTFORMW 双腿呈M字张開的姿势，手腕脚踝被绳子束缚的%CALLNAME:TARGET%一脸痛苦地恳求着%CALLNAME:PLAYER%……
			ELSEIF BIND("縄：亀甲縛り", TEQUIP:拘束)
				PRINTFORM 「%CALLNAME:TARGET%
				IF TALENT:巨乳 >= 3 && RAND:3 == 0
					PRINTFORM 从绳子%TEXTR("挤压出/溢出")%的%TEXTR("丰满/巨大")%%TEXTR("胸部/乳房/欧派")%沉甸甸地垂下来、
				ELSEIF TALENT:巨乳 == 2 && RAND:2 == 0
					PRINTFORM 那%TEXTR("巨大丰满/一只手握不下")%的%TEXTR("胸部/乳房/欧派")%被绳子紧紧地勒着、
				ELSEIF TALENT:巨乳
					PRINTFORM 那%TEXTR("巨大的胸部/巨乳")%被绳子绑着，美丽的胸部被绳子嵌入、
				ELSE
					PRINTFORM 的%TEXTR("胸部/乳房/欧派")%被绳子勒紧、
				ENDIF
				PRINTFORMW 股间的绳子在大阴唇边上绑着，把淫荡的小穴暴露的一清二楚
				IF COND("陰核露出") && TALENT:陰蒂環
					IF CEVENTS("陰蒂環") != ""
						PRINTFORM %CEVENTS("陰蒂環", TARGET)%の
					ENDIF
					PRINT 穿環
					PRINTFORM %TEXTR("に飾られた/に彩られた/を刻まれた")%
				ENDIF
				IF COND("陰核肥大")
					PRINTFORM %TEXTR("巨大的/肥大的")%
				ENDIF
				PRINTFORMW %TEXTR("阴蒂/阴核/小豆豆")%を%TEXTR("ことさらに/が硬くなっているのを")%強調している
			ELSEIF BIND("縄：逆海老", TEQUIP:拘束)
				PRINTFORML 两手和两脚被捆绑起来，手脚用背合在一起的形式被紧紧绑住了%CALLNAME:TARGET%
				PRINTFORMW 以虾弯曲的姿势被绑着，忍不住地咽着唾液听着%CALLNAME:PLAYER%的样子……
			ELSEIF BIND("縄：足吊り", TEQUIP:拘束)
				PRINTFORM %CALLNAME:TARGET%
				IF TALENT:巨乳 >= 3 && RAND:3 == 0
					PRINTFORM 从绳子%TEXTR("挤压出/溢出")%的%TEXTR("丰满/巨大")%%TEXTR("胸部/乳房/欧派")%沉甸甸地垂下来、
				ELSEIF TALENT:巨乳 == 2 && RAND:2 == 0
					PRINTFORM 那%TEXTR("巨大丰满/一只手握不下")%的%TEXTR("胸部/乳房/欧派")%被绳子紧紧地勒着、
				ELSEIF TALENT:巨乳
					PRINTFORM 那%TEXTR("巨大的胸部/巨乳")%被绳子绑着，美丽的胸部被绳子嵌入、
				ELSE
					PRINTFORM 的%TEXTR("胸部/乳房/欧派")%被绳子勒紧、
				ENDIF
				PRINTFORML 谷間を強調するように緊縛されている。
				PRINTFORMW 手被绑在身后，一只脚吊着恰到好处的露出了色情的小穴……
			ELSEIF BIND("縄", TEQUIP:拘束)
				PRINTFORMW %CALLNAME:TARGET%被绳子绑住，动弹不得……
			ELSEIF BIND("四つん這い", TEQUIP:拘束)
				PRINTFORMW %CALLNAME:TARGET%就像要盖在桌子上一样双手双脚被桌子腿束缚着，被随意地束缚着……
			ELSEIF BIND("床", TEQUIP:拘束)
				PRINTFORMW %CALLNAME:TARGET%像一个大字一样被绑在床上动弹不得、任凭摆布……
			ELSEIF BIND("手枷", TEQUIP:拘束)
				PRINTFORMW 双手被手铐铐住的%CALLNAME:TARGET%身体无法做出动作地对%CALLNAME:PLAYER%言听计从……
			ELSEIF BIND("Ｍ字開脚", TEQUIP:拘束)
				PRINTFORMW %CALLNAME:TARGET%被放在%TEXTR("分娩台/拘束台")%上、以M字大张腿的姿势被束缚着……
			ELSEIF BIND("吊り", TEQUIP:拘束)
				PRINTFORMW %CALLNAME:TARGET%双手被吊在天花板上的锁链束缚着、乖乖地听从着%CALLNAME:PLAYER%的话……
			ELSE
				PRINTFORMW %CALLNAME:TARGET%被锁链束缚者、乖乖地服从%CALLNAME:PLAYER%……
			ENDIF
		;避孕套つけないケース限定　初挿入以外は喋らなくても良いかなって……
		;PLAYヤーは避孕套を着ける気がない
		;調教毎のＶ挿入初めて
		ELSEIF (CFLAG:口服避孕薬 || TALENT:事后避孕药) && CHOSECOMS("Ｖ挿入") == 0
			IF FLAG:情緒 >= 240
				CALL PRINT_STRL, @"「哈HH_……哈HH_……」"
				CALL PRINT_STRL, @"「%TEXTR("我一直在等着呢/因为太想要大肉棒、頭脑都变得昏昏沉沉的了")%_HH_」"
				CALL PRINT_STRL, @"「%TEXTR("拜托了/无论如何")%_HH_……%CNAME("一人称")%想要%TEXTR("肉棒中出在小穴里面/大鸡鸡在小穴里射精")%_HH_」"
				CALL PRINT_STRL, @"「%TEXTR("竟然说出了这种话/居然提出这样的请求")%、%CNAME("一人称")%明明已经%TEXTR("结婚了/是人妻了")%……%TEXTR("真是个坏孩子/坏孩子")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR(@"希望你好好惩罚我……做了坏事、用%CNAME("二人称")%的手来告诉%CNAME("一人称")%的身体吧/请教育我……为了不考虑不好的事情、用%CNAME("二人称")%的手把%CNAME("一人称")%玩坏、玩得乱七八糟也可以")%_HH_」"
			ELSEIF RAND:3 == 0
				CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR(@"今天也一起好好享受吧/既然是难得的机会，就好好享受吧")%_HH_」"
			ELSEIF RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR(@"不要客气，可以尽情地在里面射出来哦/被%CNAME("一人称")%喜欢的男孩子射在里面、就会变得很開心、很舒服")%_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("呵呵呵/诶嘿嘿")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("不要客气/直到溢出来为止")%、尽情的在%TEXTR("人妻/老师/姐姐")%的%TEXTR("小穴里面中出吧/子宫里播种吧")%_HH_」"
			ENDIF
		;口服避孕薬没有　特殊ケース
		;PLAYヤーは避孕套を着ける気がない
		;安全日じゃないけど生ＯＫ　事実上の相思相愛ルート
		;★一応作ったけど你が学生なので、設定的にあまり好みではないかもしれない　托卵ＯＫの個別イベントを組んでから再度実装する
;		ELSEIF TALENT:相思相愛 && TALENT:淫乱 && COND("危険日") && (COND("女性主導生性交") || COND("合意：危険日生性交")) && CHOSECOMS("Ｖ挿入") == 0 && FLAG:情緒 >= 240 && (CFLAG:口服避孕薬 == 0 || TALENT:事后避孕药 == 0) && CEVENT("托卵宣言") == 0
;			CALL PRINT_STRL, @"「今日は%TEXTR("危険日/出来ちゃう日")%だから遠慮しないで……%TEXTR("中に出してね/子宮に種付けして欲しいな")%_HH_」"
;			CALL PRINT_STRW, @"「%TEXTR("赤酱/兒童")%が産まれたら、あの人の兒童として酱と育てるから安心してね_HH_」"
;			CALL SET_CEVENT, "托卵宣言"
		;安全日じゃないけど生ＯＫ　事実上の相思相愛ルート　未実装の個別イベント閲覧後にしたいけど面倒なので一旦実装
		ELSEIF COND("危険日") && (COND("女性主導生性交") || COND("合意：危険日生性交")) && FLAG:情緒 >= 240
			IF TALENT:恋慕
				CALL PRINT_STRW, @"「哈啊 _HH_……唔啊_HH_……」"
				IF RAND:4 == 0
					CALL PRINT_STRL, @"「%CNAME("一人称")%其实也是……想生下来……明明知道，却一直_HH_」"
				ELSEIF RAND:3 == 0
					CALL PRINT_STRL, @"「%CNAME("一人称")%已经无法忍耐了……想要更加直接的感受%CNAME("二人称")%的大肉棒_HH_」"
				ELSEIF RAND:2 == 0
					CALL PRINT_STRL, @"「别使坏了……嗯啊_HH_　直接中出也是可以的……请在%CNAME("一人称")%色情的小穴里……尽情用大肉棒射精吧……」"
				ELSE
					CALL PRINT_STRL, @"「啊啊坏孩子……真是的_HH_　其实%CNAME("一人称")%也想要被直接中出啊……大笨蛋」"
				ENDIF
			ENDIF
			IF RAND:2 == 0
				CALL PRINT_STRL, @"「%CNAME("一人称")%是因为……最喜欢%CNAME("二人称")%了_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%CNAME("一人称")%也……对%CNAME("二人称")%很喜欢_HH_　最喜欢了_HH_」"
			ENDIF
			PRINTFORML 「%TEXTR("我不想做让你伤心的事/我不想让你伤心")%……」
			CALL PRINT_STRW, @"「いいよ……\@ CHOSECOMS("Ｖ挿入") ? 続きは # 今日は \@着けずに%TEXTR("＿/生で性交")%%TEXTR("しちゃおう/してね")%_HH_」"
		;口服避孕薬没有　特殊ケース
		ELSEIF COND("安全日") && (PLACE("情人旅館") || (ASSIPLAY == 0 && TALENT:MASTER:童貞 == 0 && FLAG:情緒 >= 240)) && CHOSECOMS("Ｖ挿入") == 0
			IF TEQUIP:電話中
				PRINTFORML 「%TEXTR("只有这次是特别的……是无套中出……/只有这次啊……是不戴避孕套做的……")%」
				PRINTFORML
				PRINTFORMW %CALLNAME:TARGET%对%CALLNAME:PLAYER%小声嘀咕着…
			ELSE
				PRINTFORML 「没办法啊……今天是安全日……」
				CALL PRINT_STRW, @"「%TEXTR("难得的来一次无套做爱吧/不用戴套也是可以的")%_HH_」"
			ENDIF
			CALL SET_CEVENT, "情人旅館で生中出し許可"
		;口服避孕薬有
		ELSEIF CFLAG:口服避孕薬 || TALENT:事后避孕药
			CALL PRINT_STRL, @"「%TEXTR("好好地/好好")%%TEXTR("吃了避孕药所以没関系的/使用过避孕药")%_HH_」"
			IF COND("夜")
				PRINTFORM 「明明是有夫之妇……但是却做了这样的坏事……%CNAME("一人称")%真是个不知廉耻的女人…」
			ELSE
				PRINT 「真是的、和学生有这种関系的坏老师」
			ENDIF
			CALL PRINT_STRW, @"「在%TEXTR("小穴里/阴道里/那里面/子宫里/淫穴里")%%TEXTR("尽情的播种吧/射出满满的精液吧/毫无顾忌地射精吧")%、%TEXTR("想要被狠狠的惩罚/请随意的欺负那里吧")%_HH_」"
		;ご褒美に生Ｈをさせて给場合
		ELSEIF TCVAR:獎勵生H

		;避孕套が無い
		ELSEIF ITEM:避孕套 == 0
			IF CHOSECOMS("Ｖ挿入") == 0
				PRINTFORML 「怎么了？」
				PRINTFORML 「没有准备避孕套吧……」
				IF SAVESTR:現在位置 == @"%CSVCALLNAME(NO:TARGET)%的房間"
					PRINTFORML 「是的。用这个吧」
					PRINTFORMW 「因为结婚后没怎么用过。型号还有多余的」
					ITEM:避孕套 = 5
				ELSE
					PRINTFORML 「下次要好好准备避孕套哦」
					PRINTFORMW 「%TEXTR("好吧好吧、/真是的、")%不要露出那么遗憾的表情啊……」
				ENDIF
			ELSE
				PRINTFORML 「真遗憾。避孕套已经用完的话今天就结束吧」
				PRINTFORML 「%CNAME("一人称")%其实也想就这样不用避孕套做爱呢……」
				PRINTFORMW 「但是万一怀孕的话不就麻烦了吗。所以，不行啊」
			ENDIF
			TFLAG:指令中止 = 1
		;PLAYヤーは避孕套を着ける気がない
		;安全日じゃないけど避孕套没有を希望
		ELSE
			;初めての日　童貞限定　情緒を高めた場合のみ避孕套没有でも良い
			IF ASSIPLAY == 0 && TALENT:MASTER:童貞 && FLAG:情緒 >= 240
				IF COND("危険日")
					PRINTFORMW 「今天呢……因为是危险的日子，所以其实是不行的……」
					PRINTFORMW 「%CNAME("二人称")%也是……因为是第一次所以想试着直接做吧」
					CALL PRINT_STRW, @"「虽然想要一起舒服起来、但是如果不在里面射出来的话就最好了、所以拜托了_HH_」"
				ELSE
					PRINTFORMW 「是啊……%CNAME("二人称")%如果是第一次的话肯定想体验一下无套的感觉呢」
					CALL PRINT_STRW, @"「这次就特别地无套做一次吧……下次一定要好好避孕啊_HH_」"
				ENDIF
			;避孕套はあるけどつけない
			ELSE
				IF (CEVENT("避孕套装着：初めて") == 0 && ASSIPLAY == 0) || CEVENT("避孕套装着：初めて３") && RAND:2 == 0
					PRINTFORMW 「%TEXTR("无论如何都不想戴吗/喂……不要说任性的话")%」
					CALL PRINT_STR, @"「%TEXTR("真拿你没办法啊/Hola、那个拿过来")%……%TEXTR("这次/今天")%就由姐姐%TEXTR(@"＿/代替任性的的%CNAME("二人称")%")%用嘴戴上吧……哈姆、%TEXTR("啊～嗯♪/唔嗯_HH_")%"
					CALL PRINT_STR, @"_HH_"
					CALL PRINT_STRW, @"_HH_」"
					PRINTFORML
					PRINTFORMW %CALLNAME:TARGET%%TEXTR("轻轻地/温柔的")%用嘴含着避孕套，靠近了%CALLNAME:PLAYER%的肉棒、
					PRINTFORM 就这样%CALLNAME:PLAYER%看着%TEXTR("静莱靠近了股间/静莱和淫荡行为形成反差的美丽脸庞")%
					PRINTFORMW 把肉棒含在嘴里，%TEXTR("灵巧/巧妙")%的%TEXTR("用嘴/＿")%把%TEXTR("安全套/避孕套")%%TEXTR("戴上了/戴好了")%……
				ELSEIF (CEVENT("避孕套装着：初めて") == 0 && ASSIPLAY == 0) || CEVENT("避孕套装着：初めて３")
					PRINTFORMW 「%TEXTR("喂喂、有避孕套的话就要好好戴上啊/不行吧、戴好避孕套是必须的……")%」
					PRINTFORMW 「%TEXTR("事到如今放弃也有点……呜~……没办法啊/真是让人没办法的孩子啊，这样为难着姐姐")%」
					CALL PRINT_STRW, @"「这次%TEXTR("就/特别地")%%TEXTR("让你看看姐姐的看家本领吧/让你看看作为人妻的特别技巧")%_HH_」"
					CALL PRINT_STR, @"「……%TEXTR(" 我開动了♪啊～恩 /啊呜")%_HH_"
					CALL PRINT_STR, @"_HH_"
					CALL PRINT_STRW, @"_HH_」"
					PRINTFORML
					PRINTFORM %CALLNAME:TARGET%从%CALLNAME:PLAYER%那里拿到避孕套后，灵巧的吮在%TEXTR("口中/嘴里/嘴中")%、
					PRINTFORMW %CALLNAME:PLAYER%的%TEXTR("阴茎/肉棒")%被%TEXTR("温柔的/轻轻地")%含在嘴里%TEXTR("み、/、")%用%TEXTR("口/嘴")%完美的把%TEXTR("安全套/避孕套")%%TEXTR("戴上了/戴好了")%……
				ENDIF
				IF (CHOSECOMS("Ｖ挿入") == 0 && (ABL:奉仕精神 >= 5) || (CEVENT("避孕套装着：初めて") == 0 && ASSIPLAY == 0))
					PRINTFORML
					CALL PRINT_STRW, @"「%TEXTR("安全套/避孕套")%的话……就用%CNAME("一人称")%的%TEXTR("嘴/嘴")%来%TEXTR("戴上吧/戴好吧")%。%CNAME("二人称")%请%TEXTR("放松一些/稍等一会儿")%_HH_」"
					CALL PRINT_STR, @"「%TEXTR("啾噜噜、呲溜、呲溜、啊呜_HH_……嘶溜、嘶溜/唔嗯、啊呜_HH_　呲溜、peropero_HH_、呲溜……哈啊")%_HH_"
					CALL PRINT_STR, @"_HH_"
					CALL PRINT_STRW, @"_HH_」"
					CALL PRINT_STR, @"「%TEXTR("努丘、努丘、呲溜……啊、啾啾，啾啾……啵滋、啵滋、啵滋……啊嗯/pero、pero_HH_　滋噜噜……　 滋啵、滋啵啵 _HH_　嗯啾、嗯啾……呲溜_HH_　……哈啊")%_HH_"
					CALL PRINT_STR, @"_HH_"
					CALL PRINT_STRW, @"_HH_」"
					PRINTFORML
					PRINTFORM %CALLNAME:PLAYER%的%TEXTR("阴茎/肉棒")%被%CALLNAME:TARGET%发出下流的声音吸吮着、
					IF RAND:2 == 0
						PRINTFORMW 避孕套的上面，%CALLNAME:TARGET%的嘴唇吸附在肉棒上
						PRINTFORMW %CALLNAME:PLAYER%感觉到自己的阴茎、被绝妙的速度上下移动，从龟頭到根部细心地刺激着。
					ELSE
						PRINTFORMW 以真空口交開始为%CALLNAME:PLAYER%侍奉。
						PRINTFORMW 从%CALLNAME:TARGET%的嘴里传来了不像是戴着避孕套的舒适快感、%CALLNAME:PLAYER%感到自己的阴茎勃起变得更大更硬……
					ENDIF
					PRINTFORML
					IF COND("包茎", PLAYER)
						CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　%TEXTR(@"%CALLNAME:PLAYER%的小鸡鸡被包皮包裹着真是可爱啊/%CALLNAME:PLAYER%的包茎小鸡鸡_HH_　就由姐姐来剥下来吧")%_HH_」"
					ELSEIF SIZE("阴茎", PLAYER) >= 2
						PRINT 「
						SIF SIZE("阴茎", PLAYER) >= 3
							PRINTFORM %TEXTR("非常/非常的")%
						CALL PRINT_STRW, @"「%TEXTR("雄伟/巨大")%%TEXTR("＿/呢/啊/哇")%_HH_　%TEXTR("这么大的话好像有奉献的价值呢/这么大真是太棒了_HH_　光是看着就心跳加速了")%_HH_」"
					ENDIF
					PRINTFORML %CALLNAME:TARGET%的目光一刻都没有离開过大肉棒、%TEXTR("脸上露着陶醉的表情/脸上带着高兴地微笑")%，%TEXTR("小心地用舌頭包住整个肉棒、/像是要用唾液涂满涂一样")%发出呲溜呲溜的声音吮吸着……
					PRINTFORML
					CALL PRINT_STRL, @"「――%TEXTR("嗯啊/噗哈/呼嗯")%。%TEXTR("呵呵/嗯哼哼っ")%，怎么了？　一副痛苦的表情%TEXTR("呢/~開个玩笑")%_HH_」"
					PRINTFORML
					PRINTFORML %CALLNAME:TARGET%从嘴里把快要射出来%CALLNAME:PLAYER%的%TEXTR("肉棒/敏感的龟頭")%上%TEXTR("松開了/移開了")%、%TEXTR("像小恶魔一样微笑着/露出了恶作剧般的笑容")%。
					PRINTFORML
					CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　看看、这么%TEXTR("健壮/年轻活泼")%的%TEXTR("小鸡鸡/勃起小鸡鸡")%で、想要在%CNAME("一人称")%的哪里做什么呢？」"
					PRINTFORML
					CALL SET_CEVENT, "避孕套装着：初めて"
				ELSEIF RAND:2 == 0
					CALL PRINT_STRL, @"「%CNAME("一人称")%如果想要插入姐姐的小穴的话%TEXTR("要好好戴上避孕套哦/不好好戴上避孕套的话不行/要做好避孕设施啊")%_HH_」"
					PRINTFORMW %CALLNAME:TARGET%拿出了避孕套叼在了嘴里，戴在了%CALLNAME:PLAYER%的%TEXTR("阴茎/肉棒/小鸡鸡/阳具/大肉棒")%上。
					PRINTFORML
					PRINTFORML 「――啊呜……呲溜、这样就好了」
					CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　那么……一起快乐起来吧_HH_」"
					PRINTFORML
					PRINTFORMW %CALLNAME:TARGET%灵巧的用嘴给%CALLNAME:PLAYER%戴上了%TEXTR("避孕套/安全套")%。
				ELSE
					CALL PRINT_STRL, @"「想要中出%TEXTR("人妻/已婚的姐姐/有夫之妇")%什么的……%TEXTR("坏孩子/不行、不行。要好好避孕啊。")%_HH_」"
					PRINTFORMW %CALLNAME:TARGET%拿出了避孕套叼在了嘴里，戴在了%CALLNAME:PLAYER%的%TEXTR("阴茎/肉棒/小鸡鸡/阳具/大肉棒")%上。
					PRINTFORML
					PRINTFORML 「――呲溜。感觉怎么样？」
					IF RAND:2 == 0
						CALL PRINT_STRW, @"「这可是姐姐的拿手好戏。%TEXTR("快快、夸夸姐姐~/很厉害吧?呵呵~夸奖姐姐的话会再给你做的哦~")%_HH_」"
					ELSE
						CALL PRINT_STRW, @"「%TEXTR("吓了一跳吧/感觉吃惊了吗")%_HH_　因为是%TEXTR("姐姐/人妻")%，所以这种程度的事情没问题的_HH_」"
					ENDIF
					PRINTFORML
					PRINTFORMW 一转眼%CALLNAME:PLAYER%的肉棒被%CALLNAME:TARGET%用嘴戴上了%TEXTR("避孕套/安全套")%。

				ENDIF
				CALL INSERT_MESSAGE_K52, "避孕套没有"
				CALL SETFLAG, "戴上套套", PLAYER
			ENDIF
		ENDIF
	;PLAYヤーへの挿入指令
	ELSEIF TRAIN_GENRE("逆挿入", SELECTCOM)
		;PLAYヤーは着けてもらうの希望
		IF TEQUIP:避孕套

		;避孕套が無い
		ELSEIF ITEM:避孕套 == 0

		;安全日に生希望
		ELSEIF COND("安全日", PLAYER)

		;安全日じゃないけど避孕套没有を希望
		ELSE

		ENDIF
	ENDIF
;-------------------------------------------------
;陶酔かつ危険日でない時に、普段は許していない生挿入をさせて给際のセリフ
;-------------------------------------------------
CASE "特別に生挿入許可"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORML 「无论如何都想……做吗？」
		CALL PRINT_STRW, @"「%TEXTR("呵呵/嗯哼哼っ")%_HH_　%TEXTR("看在这么可爱的份上/因为今天心情很好")%就特例做一次吧_HH_」"
	ELSE
		PRINTFORML 「没办法啊……」
		CALL PRINT_STRW, @"「%TEXTR("特例做一次也是可以的，但这是唯一的一次哦/因为只有这一次、不戴避孕套也是可以的")%_HH_……但是要拜托一件事，不可以在里面射出来啊、%TEXTR("还有就是希望希望稍微粗暴一点/还有，不要客气，要激烈一点")%_HH_」"
	ENDIF
;-------------------------------------------------
;調教後自慰
;-------------------------------------------------
CASE "調教後自慰"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;自慰中毒Lv3以上
	ELSEIF ABL:自慰中毒 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;レズPLAY
;-------------------------------------------------
CASE "調教後レズPLAY"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;調教後性交
;-------------------------------------------------
CASE "調教後性交"
	;V感覚Lv4以上
	IF ABL:Ｖ感覚 >= 4
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭騎乗位
;-------------------------------------------------
CASE "夜袭騎乗位"
	;V感覚Lv5以上
	IF ABL:Ｖ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭Ａ騎乗位
;-------------------------------------------------
CASE "夜袭Ａ騎乗位"
	;Ａ感覚Lv5以上
	IF ABL:Ａ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-----------------------------
;夜袭接吻
;----------------------------
CASE "夜袭接吻"
	;M感覚Lv3以上
	IF ABL:Ｍ感覚 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;添い寝
;-------------------------------------------------
CASE "添い寝"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF

;-------------------------------------------------
;PLAYERがMASTERとASSI間で交代した際の台詞
;-------------------------------------------------
CASE "調教者交代"
	;PLAYERがASSIに変わった
	IF PLAYER == ASSI
		PRINTFORMW
	;PLAYERが你に戻った
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;partnerがTARGETとASSI間で交代した際の台詞
;-------------------------------------------------
CASE "対象交代"
	;partnerとしてエッチに誘われた
	IF COND("第一対象") == TARGET
		PRINTFORMW
	;指导者としてエッチに誘われた
	ELSE
		PRINTFORMW
	ENDIF

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
CASE "清洁口交"
	SELECTCASE TFLAG:口上分岐
	;お掃除前
	CASE 0
		PRINTFORMW
	;お掃除中
	CASE 1
		PRINTFORMW
	;お掃除で射精しなかった
	CASE 2
		PRINTFORMW
	;お掃除で射精しそう？
	CASE 3
		PRINTFORMW
	;射精した
	CASE 4
		PRINTFORMW
	;お掃除で射精後
	CASE 5
		PRINTFORMW
	ENDSELECT
;-------------------------------------------------
;脱衣
;-------------------------------------------------
CASE "自発脱ぎ"
	;裸体变成了
	IF CHECK_CLO("裸体")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;阴部剥きだし
	ELSEIF CHECK_CLO("Ｖ露出")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;部分脱ぎ
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;妊娠した
;----------------------------------------------------------------
CASE "妊娠発覚"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;出産した
;----------------------------------------------------------------
CASE "出産"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;兒童が大きくなった
;----------------------------------------------------------------
CASE "子出口"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;性交後に抜いた時
;----------------------------------------------------------------
;恥ずかしいところを見せてくれる
;----------------------------------------------------------------
CASE "中出し後くぱぁ"
	;恋慕
	IF TALENT:恋慕
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			CALL PRINT_STRL, @"「%TEXTR("……虽然很害羞但还是想看吧/听你的……特殊的色情命令实际上是不行的")%_HH_」"
			CALL PRINT_STRW, @"「但是%CNAME(@"調教時二人称")%看起来%TEXTR(@"非常開心，所以再给你看一次吧……其实%CNAME("一人称")%也有点害羞呢/好像很兴奋，下次再给你做吧")%_HH_」"
		ELSE
			IF CFLAG:口服避孕薬 || TALENT:事后避孕药
				CALL PRINT_STRL, @"「%TEXTR("呵呵/嗯哼哼っ")%……被%CNAME("調教時二人称")%%TEXTR("乱来/粗暴的")%侵犯、%TEXTR("子宫里面满满的精液/感觉都要受精了")%_HH_」"
				IF RAND:2 == 0
					CALL PRINT_STR, @"「%CNAME("調教時二人称")%……最喜欢了……请一直侵犯%CNAME("一人称")%、直到頭脑一片空白吧、"
					IF COND("夜")
						PRINT 今夜
					ELSE
						PRINT 今日
					ENDIF
					CALL PRINT_STRW, @"は%TEXTR("不要客气/请尽情的")%……%TEXTR("让我们尽情融为一体吧吧/两个人一起交融相爱吧")%_HH_」"
				ELSE
					CALL PRINT_STRW, @"「……%TEXTR("那个人/丈夫/老公")%、其实没有%TEXTR(@"为他做过这样色情的事情/为他做过这样色情的事情、只有%CNAME("調教時二人称")%是特别的")%_HH_」"
				ENDIF
			ELSE
				PRINTFORML 「%TEXTR("真是的/喂喂")%……不是说过不能%TEXTR("中出/射在里面")%吗？」
				CALL PRINT_STRW, @"「%CNAME("一人称")%因为一直在忍耐着……如果%CNAME("調教時二人称")%的%TEXTR("精液/精子")%射进%TEXTR("小穴/阴道/子宫")%里的话，以后万一离不開怎么办啊_HH_」"
			ENDIF
		ENDIF
	ELSE
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORML 「%TEXTR("这样可以吗？我已经帮你打開了，已经可以了吧/想让我看什么的，真是H")%……」
			PRINTFORMW （%TEXTR("这么羞耻的事……对那个人都没做过……/明明不行……被命令的话就无法违抗 ……")%）
		ELSE
			CALL PRINT_STRL, @"「哈HH_……哈HH_……」"
			CALL PRINT_STRL, @"「%TEXTR("满满的/充分的")%射在%TEXTR("里面/子宮里/小穴里")%了……%TEXTR("精液/精子/种子")%、哈啊、啊_HH_」"
		ENDIF
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	;避孕套有些
	IF TEQUIP:PLAYER:避孕套 && RAND:2 == 0
		PRINTFORMW 「真是的……被这样盯着看的话不是很害羞吗」
	ELSE
		PRINTFORMW 「好羞耻啊……不要一直盯着看啊」
	ENDIF
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	;恋慕
	IF TALENT:恋慕
		IF RAND:2 == 0
			CALL PRINT_STRL, @"「哈HH_……哈HH_……」"
		ELSE
			CALL PRINT_STRL, @"「嗯啊_HH_……」"
		ENDIF
	ELSE
		PRINTFORML 「%TEXTR("哈啊……哈啊……/嗯啊……")%」
	ENDIF
	IF TALENT:恋慕 && RAND:3 == 0
		CALL PRINT_STRL, @"「%TEXTR("中出了呢/出来了呢/去了呢")%_HH_」"
		CALL PRINT_STRW, @"「%TEXTR(@"这是为了感谢让%CNAME("一人称")%心情愉快的感谢之情。稍微……休息一会儿再继续吧/啾……这么亲吻的话……頭脑都要变得迟钝了")%」"
	ELSEIF RAND:2 == 0
		CALL PRINT_STRW, @"「%TEXTR("稍微/麻烦稍微")%……手下留情一些_HH_　%CNAME("一人称")%虽然并不讨厌激烈的运动……但是沉迷其中就不好了、对吧？」"
	ELSE
		CALL PRINT_STRW, @"「%TEXTR("实在是太舒服了……呐，这还不算完吧？/非常舒服……非常棒哦")%_HH_」"
	ENDIF
;----------------------------------------------------------------
;この分岐には絶頂していない場合にのみ来ます
;----------------------------------------------------------------
CASE "中出し後挿入解除"
	PRINTFORML 「哦……稍微休息一下吧?」
	PRINTFORMW 「如果太辛苦的话可能就坚持不到最后了。%CNAME("一人称")%啊」
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
CASE "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;----------------------------------------------------------------
;塞子をしていない状態での液体浣腸口上
;----------------------------------------------------------------
CASE "无塞浣腸事件"
	;限界値突破時
	IF BASE:排泄欲 >= 10000
		;限界値を超えたが漏らせない場合
		IF INSERT("Ａ挿入") || COND("肛門栓")
			PRINTFORMW
		;漏らす直前
		ELSE
			PRINTFORMW
		ENDIF
	;漏らした
	ELSEIF NOWEX:排泄
		PRINTFORMW
	;我慢しているときの口上
	ELSEIF TEQUIP:浣腸
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;吸能
;----------------------------------------------------------------
CASE "吸能"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;調教者がちんこを挿入する前に射精してしまった！
;----------------------------------------------------------------
CASE "挿入前暴発"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;特殊な道具を使った際の台詞
;----------------------------------------------------------------
CASE "避妊の護符"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		;装着
		IF TALENT:避妊の護符
			PRINTFORMW
		;取り外し
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:避妊の護符
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

CASE "扶她薬"
	;扶她变成了
	IF TALENT:扶她
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
CASE "黑色ドロップ"
	;男性变成了
	IF TALENT:男性
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "巨根薬"
	;薬を使用した後の状態で分岐
	SELECTCASE SIZE("阴茎")
	;並
	CASE 1
		PRINTFORMW
	;巨根
	CASE 2
		PRINTFORMW
	;馬根
	CASE 3
		PRINTFORMW
	CASE 4
		PRINTFORMW
	CASE 5
		PRINTFORMW
	;CASEELSE
	;	PRINTFORMW
	ENDSELECT
CASE "縮根薬"
	;薬を使用した後の状態で分岐
	SELECTCASE SIZE("阴茎")
	;小
	CASE 0
		PRINTFORMW
	;並
	CASE 1
		PRINTFORMW
	;巨根
	CASE 2
		PRINTFORMW
	ENDSELECT
CASE "剥皮薬"
	;薬を使用した後の状態で分岐
	IF COND("假性包茎")
		PRINTFORMW
	;ずる剥け
	ELSE
		PRINTFORMW
	ENDIF
CASE "伸皮薬"
	;薬を使用した後の状態で分岐
	IF COND("真性包茎")
		PRINTFORMW
	ELSEIF COND("假性包茎")
		PRINTFORMW
	ENDIF
CASE "豊胸薬"
	;薬を使用した後の状態で分岐
	SELECTCASE TALENT:巨乳
	;並乳
	CASE 0
		PRINTFORMW
	;巨乳
	CASE 1
		PRINTFORMW
	;爆乳
	CASE 2
		PRINTFORMW
	;超乳
	CASE IS >= 3
		PRINTFORMW
	ENDSELECT
CASE "貧乳薬"
	;薬を使用した後の状態で分岐
	SELECTCASE TALENT:巨乳
	;並乳以下
	CASE 0
		IF TALENT:貧乳
			PRINTFORMW
		;並乳
		ELSE
			PRINTFORMW
		ENDIF
	;巨乳
	CASE 1
		PRINTFORMW
	;爆乳
	CASE 2
		PRINTFORMW
	ENDSELECT
CASE "巨人の薬"
	;薬を使用した後の状態で分岐
	IF TALENT:高大
		PRINTFORMW
	;普通身高
	ELSE
		PRINTFORMW
	ENDIF
CASE "小人の薬"
	;薬を使用した後の状態で分岐
	IF TALENT:娇小
		PRINTFORMW
	;普通身高
	ELSE
		PRINTFORMW
	ENDIF
CASE "虹の薬"
	;薬を使用した後の状態で分岐
	SELECTCASE CONDS("肤色")
	CASE "褐色肌"
		PRINTFORMW
	CASE "色白"
		PRINTFORMW
	CASE "青肌"
		PRINTFORMW
	;普通
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "桃尻薬"
	;薬を使用した後の状態で分岐
	IF TALENT:巨尻 >= 2
		PRINTFORMW
	ELSEIF TALENT:巨尻
		PRINTFORMW
	;普通の尺寸
	ELSE
		PRINTFORMW
	ENDIF
CASE "小尻薬"
	;薬を使用した後の状態で分岐
	IF TALENT:巨尻
		PRINTFORMW
	ELSEIF TALENT:小尻
		PRINTFORMW
	;普通の尺寸
	ELSE
		PRINTFORMW
	ENDIF

ENDSELECT

;-------------------------------------------------
;TARGET以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@KOJO_GUEST_K52, ARGS
SELECTCASE ARGS
CASE "調教相手に選ばれた"

CASE "助手に抜擢"
	;初めて
	IF EXP:助手経験 == 0

	ELSE

	ENDIF

CASE "助手：主人に清洁口交"

CASE "助手：partnerに清洁舔阴"

CASE "助手：partnerに清洁舔A"

CASE "助手：主人にＰ恥垢清洁口交"

CASE "助手：撮影開始"

CASE "助手：調教開始前の準備後台詞"

CASE "室内調教：登場台詞"

CASE "室内調教：ギャラリー増加台詞"

CASE "室内調教：感想台詞"

CASE "助手で性処理：おあずけ"

CASE "助手で性処理"

CASE "助手で性処理：事後"

;COND("精液の優勢")で誰の兒童を孕んでしまったかを判定できます
;名前を出したい時には%COND("精液の優勢")%を用いてください
CASE "受精確認"

ENDSELECT

;-------------------------------------------------
;@単体エンディング関係(X1を角色番号に置換)
;通常のエンディングチェックの前に個別エンディングを判定
;-------------------------------------------------
;
;
;
;
;
;
;
;
;
;
;★ここから先にはエンディングが記述されています★
;ネタバレを避けたい方は閲覧不会うにご注意下さい。
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
@IS_SINGLE_ENDING_K52
;エンディングを書いたら、下のRETURN 1のコメントアウト;を消してください
RETURN 1

@MENU_SINGLE_ENDING_K52
;エンディングを書いたら、下のRETURN 0を消してください
;RETURN 0

;ENDを選択する際の表示。下で満たしたEND条件に応じて全角21文字以内で好きに変えて良い
;STR:ＥＮＤ标题 = エンディングを迎える
IF CEVENT("個別イベント１解禁") && CEVENT("個別イベント１") == 0 || CEVENT("個別イベント２解禁") == 0 && CEVENT("個別イベント２") == 0 || CEVENT("個別イベント３解禁") && CEVENT("個別イベント３") == 0
	STR:ＥＮＤ标题 = 新規イベント発生中
ELSEIF (CEVENT("個別イベント４") == 0 && CEVENT("個別イベントＡ") == 0) || (CEVENT("個別イベントＡ") && CEVENT("個別イベントＢ") == 0)
	STR:ＥＮＤ标题 = 新規イベント発生中
ELSEIF CEVENT("個別イベント５解禁") && CEVENT("個別イベント５") == 0
	STR:ＥＮＤ标题 = 新規イベント発生中
ELSE
	STR:ＥＮＤ标题 = 看个人事件
ENDIF

;魂の量によるEND
;SIF BASE:魂 >= 300
;	;ENDの番号_END名 となっている
;	;番号は1～60の範囲(でもできれば１から順に詰めて使用)の半角数字で、ＥＮＤ名は喜欢的东西に変更してください
;	STR:エンディング += "1_ＥＮＤ名１/"
;其他の条件(例えば淫乱)によるEND
;SIF TALENT:淫乱
;	STR:エンディング += "2_ＥＮＤ名２/"
;魂の量と其他の条件(例えば相思相愛)によるEND
;SIF BASE:魂 >= 300 && TALENT:相思相愛
;	STR:エンディング += "3_ＥＮＤ名３/"

SIF CEVENT("個別イベント１解禁")
	STR:エンディング += "1_《他人の食卓》/"
SIF CEVENT("個別イベント２解禁")
	STR:エンディング += "2_《他人に言えないお悩み》/"
SIF CEVENT("個別イベント３解禁")
	STR:エンディング += "3_《他人に言えない新たな悩み》/"
SIF CEVENT("個別イベント４解禁")
	STR:エンディング += "4_《夫婦の生活》/"
SIF CEVENT("個別イベント４解禁") && CEVENT("個別イベントＡ")
	STR:エンディング += "5_《夫婦の生活２》/"
SIF CEVENT("個別イベント５解禁")
	STR:エンディング += "6_《人妻として》/"
RETURN 1

;ARGSには@MENU_SINGLE_ENDING_K1で設定したEND名のどれかが入っている
;見たENDはCEVENTで記録される
;例）ＥＮＤ名１を閲覧した場合は CEVENT("ＥＮＤ名１") = 1 となる
@SINGLE_ENDING_K52, ARGS
SELECTCASE ARGS
CASE "《他人の食卓》"
	PRINTFORML
	PRINTFORMW 因为一点小事访问了%CALLNAME:TARGET%家的%CALLNAME:MASTER%收到了静莱亲手做的点心。
	PRINTFORML
	CALL PRINT_STRW, @"「嗯哼哼っ_HH_　点心做的还不错吧？_HH_」"
	PRINTFORMW 「%CNAME("一人称")%啊……对做料理什么的很感兴趣」
	PRINTFORMW 「因为丈夫总是不在家……做了料理也没人尝尝和评价」
	PRINTFORMW 「点心也好，料理也好……总是做得太多了」
	PRINTFORMW 「%CNAME("二人称")%如果不讨厌的话、偶尔来姐姐家吃些点心料理吧？」
	PRINTFORML
	CALL PRINT_SELECT, "是/否"
	IF RESULT == 0
		CALL PRINT_STRW, @"「谢谢_HH_　%CNAME("二人称")%真是温柔啊_HH_」"
		PRINTFORMW 「一个人吃晚饭有点索然无味……得救了」
		PRINTFORMW 「还有那个……%CNAME("二人称")%是带便当去学校的吗？」
		CALL PRINT_STRW, @"「只要告诉我想吃什么便当，我什么时候都会给你做的，请随便说吧_HH_」"
		IF CEVENT("個別イベント１") == 0
			PRINTFORML
			DRAWLINE
			PRINTFORML
			SETCOLOR DEF_COLOR("粉紅")
				PRINTFORML - 系统信息 -
				PRINTFORML 好感度+400
				CFLAG:好感度 += 400
				RESETCOLOR
				PRINTFORML
				DRAWLINE
				PRINTFORMW
			RESETCOLOR
			CALL SET_CEVENT, "個別イベント１"
		ENDIF
	ELSEIF RESULT == 1
		PRINTFORMW 「是啊……%CNAME("二人称")%也是很忙的呢」
		PRINTFORMW 「如果愿意的话，就算只是来%CNAME("一人称")%家里玩姐姐也很開心、下次再拜托你了」
	ENDIF
CASE "《他人に言えないお悩み》"
	PRINTFORML
	PRINTFORMW 「……呜呜、稍微有些烦恼呢」
	PRINTFORMW 「%CNAME("一人称")%嗯……下面虽然还没到体毛浓密的程度……」
	PRINTFORMW 「但是一直被阴毛覆盖的话……感觉多少会有些气味的感觉」
	PRINTFORMW 「%CNAME("二人称")%怎么看呢……也是更喜欢薄一点的%TEXTR("阴毛/阴毛")%么？」
	PRINTFORML
	CALL PRINT_SELECT, "濃い方が好き/单薄的方が好き"
	IF RESULT == 0
		PRINTFORMW 「是这样啊……谢谢~」
		PRINTFORMW 「总觉得放心了呢。因为%CNAME("一人称")%真的对自己的那个没什么自信」
		PRINTFORMW 「%CNAME("二人称")%说喜欢浓密一点的，我松了一口气呢……」
		IF CEVENT("個別イベント２") == 0
			PRINTFORML
			DRAWLINE
			PRINTFORML
			SETCOLOR DEF_COLOR("粉紅")
				PRINTFORML - 系统信息 -
				PRINTFORML 好感度+400
				CFLAG:好感度 += 400
				RESETCOLOR
				PRINTFORML
				DRAWLINE
				PRINTFORMW
			RESETCOLOR
			CALL SET_CEVENT, "個別イベント２"
		ENDIF
	ELSE
		PRINTFORMW 「是这样吗……」
		PRINTFORMW 「%CNAME("一人称")%也是%CNAME("二人称")%这么觉得的么……」
		PRINTFORMW 「想了一下……总感觉有点不好意思啊……」
	ENDIF

CASE "《他人に言えない新たな悩み》"
	PRINTFORML
	PRINTFORMW 「……试着买了新的内衣」
	PRINTFORMW 「%CNAME("二人称")%呢、觉得怎么样呢……」
	PRINTFORML
;	CALL SET_ORDINARY, TARGET, "蕾丝胸罩_蕾丝的胖次"
	CALL SET_BRA, "蕾丝胸罩", TARGET
	CALL SET_PANTIES, "蕾丝的胖次", TARGET

	PRINTFORMW %CALLNAME:TARGET%的%CALLNAME:MASTER%的%CLOCOLOR(CSTR:胖次)%的%PANTIES(TARGET, "種類")%隐约可见。
	PRINTFORML
	CALL PRINT_SELECT, "好き/嫌い"
	IF RESULT == 0
		PRINTFORMW 「……%CNAME("二人称")%喜欢吗？太好了~」
		PRINTFORMW 「虽然平时不穿这种类型的，但是也拿出勇气买了看看……喜欢就好呢~」
		IF CEVENT("個別イベント３") == 0
			PRINTFORML
			DRAWLINE
			PRINTFORML
			SETCOLOR DEF_COLOR("粉紅")
				PRINTFORML - 系统信息 -
				PRINTFORML 好感度+400
				CFLAG:好感度 += 400
				RESETCOLOR
				PRINTFORML
				DRAWLINE
				PRINTFORMW
			RESETCOLOR
			CFLAG:エッチな内衣着用 = 1
			CALL SET_CEVENT, "個別イベント３"
		ENDIF
	ELSE
		PRINTFORMW 「是吗……真遗憾」
		PRINTFORMW 「%CNAME("一人称")%也算是成熟的女人了，想着偶尔用这样的内衣来决胜负也不错……」
		PRINTFORMW 「真是的……希望你能够知道。不是为了那个人才穿这种类型的内衣的……」
	ENDIF
;ＮＴＲの寝室編その１
CASE "《夫婦の生活》"
	;暫定で書くが、本来見れないシーンをどうやって目にする事にするか。条件式で悩む
	PRINTFORML
	CALL PRINT_STRW, @"「嗯……啊_HH_……是_HH_」"
	PRINTFORMW 『あっ、静菜。くぅ……』
	PRINTFORML
	PRINTFORMW 「没関系吗？……不用太勉强哦」
	PRINTFORMW 『ごめんな。ちょっと続きは出来そうにない』
	PRINTFORML
	PRINTFORMW 「没関系。%CNAME("一人称")%也累了……今天好好休息哦。晚安」
	PRINTFORMW 『休息。静菜』
	PRINTFORML
	PRINTFORMW %CNAME("一人称")%和%CALLNAME:MASTER%生関系是一种必然的趋势、
	PRINTFORMW 如果说对和新婚丈夫的生活没有不满，那是谎言。
	PRINTFORMW 因为工作関系。经常出差独自赴任的丈夫。
	PRINTFORMW 和刚结婚的时候相比，他要求的次数和性欲都减少了，他一直在努力着，工作也很累，所以我觉得不能勉强他
	PRINTFORML
	PRINTFORMW 在遇到%CALLNAME:MASTER%之前……
	PRINTFORML
	PRINTFORMW 我知道这是不好的事情。
	PRINTFORMW 但是，身体却在渴望着……
	PRINTFORMW 想和那个被强烈追求，带着暴力热情的%CALLNAME:MASTER%合为一体。
	PRINTFORMW ……无论是大小、硬度、精液量都不一样。
	PRINTFORML
	PRINTFORMW 即便如此，还是要坚持避孕
	PRINTFORMW 因为……这是背叛了丈夫的%CNAME("一人称")%的唯一不可逾越的底线。
	PRINTFORML
	CALL SET_CEVENT, "個別イベントＡ"

;ＮＴＲの寝室編之２
;未実装　どうやって実装するんですかね！？
CASE "《夫婦の生活２》"
	PRINTFORML
	CALL PRINT_STRW, @"「嗯啊……大肉棒、好像要_HH_」"
	PRINTFORML
	PRINTFORMW 和%CALLNAME:MASTER%相遇后，%CNAME("一人称")%就越来越无法压抑住性欲。
	PRINTFORMW 明明到现在为止都很满足于和丈夫的性生活……
	PRINTFORML
	CALL PRINT_STRW, @"「%CNAME("一人称")%的小穴……想要那个_HH_」"
	PRINTFORML
	PRINTFORMW %CNAME("一人称")%手上握着振动棒……又大又粗又硬，丈夫的那个根本没法与之相比。
	PRINTFORMW 仿佛是%CALLNAME:MASTER%使用振动棒的尖端焦灼地在阴核上摩擦、只要想起%CALLNAME:MASTER%在耳边耳语的甜言蜜语，%CNAME("一人称")%的小穴就会控制不住的湿润。
	PRINTFORMW 没有顾及正在卧室同床共枕的丈夫，%CNAME("一人称")%悄悄溜出了卧室，去了和%CALLNAME:MASTER%交欢过的客厅里一个人自慰。
	PRINTFORMW 即使知道这样的事不能一直持续下去……
	PRINTFORML
	CALL PRINT_STRW, @"「不行、不能这么使坏啊_HH_　嗯啊_HH_」"
	PRINTFORML
	PRINTFORMW 光是想象一下被%CALLNAME:MASTER%用语言责备的样子、就会感到背脊一阵发颤，一边感觉身体燥热，一边一口气用振动棒贯穿小穴，下面流出的爱液滴滴答答的落在地上。
	PRINTFORMW 像是双腿呈M形张開，连丈夫都没见过的下流姿态被激烈的侵犯。
	PRINTFORMW 被细致地侵犯了敏感快乐的地方，嘴里还说这淫言秽语。
	PRINTFORMW 被教导要对受辱感到喜悦、%CNAME("一人称")%完全记住了快乐的味道。
	PRINTFORMW 绝对要保密的関系。这只是为了让彼此心情舒畅的身体関系。
	PRINTFORMW %CNAME("一人称")%所爱的应该只能是那个人……
	CALL SET_CEVENT, "個別イベントＢ"

CASE "《人妻として》"
	PRINTFORML
	PRINTFORMW 小鸟游静菜爱着丈夫。那份心意是不会变的。
	PRINTFORMW 但是，再次见到了%CALLNAME:MASTER%的静莱清晰地感觉到了自己的蜕变。
	PRINTFORMW 几度如胶似漆的渴求着彼此。但是，这是不被允许的関系。
	PRINTFORML
	PRINTFORMW 「因为这份心情是恋爱。绝对不是爱情」

ENDSELECT
RETURN 1

;-------------------------------------------------
;この角色に特殊なイベントを叫醒際の追加条件を設定できます（特に設定しない場合には丸々不要です）
;STR:実行条件 に文字列が入っている場合は、それを表示しつつイベント発生不可能とします(PRINT_STRの書式です)
;条件を満たしている際にはSTR:実行条件 に何も入れないようにして下さい
;-------------------------------------------------
@ADDCOND_K52(ARGS)
#DIM ACTOR
ACTOR = FINDCHARA(NO, 52)

SELECTCASE ARGS
;CASE "勧誘"のみ、角色としてはまだ存在していないのに注意
CASE "勧誘"
	;例）卯月佑香の場合の記述
	;SIF TALENT:MASTER:男性 && TRUE_SEX(MASTER) == "男性" && TALENT:MASTER:伪娘 == 0 && ABL:MASTER:技巧 >= 3
	;	RETURN 1
	;STR:実行条件 = ※%CSVNAME(X1)%は_黄色_%CALLNAME:MASTER%が男性(not伪娘)＆技巧がLv3以上の時のみ_勧誘できます※
;	SIF CHARA_NUM("血縁") && CONFIG("路人Ｈ")
	SIF CONFIG("路人Ｈ")
		RETURN 1
;	STR:実行条件 = ※%CSVNAME(52)%は_黄色_【家族の誰かが勧誘済み】かつ【Config路人Ｈ可能】の場合のみ_勧誘できます※
	STR:実行条件 = ※%CSVNAME(52)%只有在_黄色_【设置里选了可以和路人Ｈ】的情况下_才可以劝诱※

CASE "恋慕"
	;デフォだと信頼5LV＆好感度が2500以上で恋慕
	;SIF TALENT:ACTOR:恋慕 == 0 && ABL:ACTOR:信頼 >= 5 && CFLAG:ACTOR:好感度 >= 2500
	;	RETURNF 1
	;STR:実行条件 = 要:信頼5LV、好感度2500
CASE "淫乱"
	;デフォだと欲望が5以上、自慰中毒or精液中毒のどれかが3以上、今回の絶頂数が10以上で淫乱
	;SIF TALENT:ACTOR:淫乱 == 0 && ABL:ACTOR:欲望 >= 5 && MAX(ABL:ACTOR:自慰中毒, ABL:ACTOR:精液中毒) >= 3 && EX:ACTOR:絶頂数合計 >= 10
	;	RETURNF 1
	;STR:実行条件 = 要:欲望5LV、自慰中毒か精液中毒のどちらかが3LV、今回の絶頂数10
CASE "相思相愛"
	;例）小早川百合香の場合の記述
	;SIF TALENT:ACTOR:恋慕 && TALENT:MASTER:男性 == 0
	;	RETURN 1
	;STR:実行条件 = イエロー_（※%CALLNAME:MASTER%が[男性]の場合には、%CALLNAME:ACTOR%と[相思相愛]にはなれません）
CASE "淫紋贴纸"
	;デフォだと[欲望LV3]or[屈服刻印LV1]
	;SIF MARK:ACTOR:淫紋 == 0 && (ABL:ACTOR:欲望 >= 3 || MARK:ACTOR:屈服刻印)
	;	RETURNF 1
	;STR:実行条件 = イエロー_(※淫紋を受け入れてもらうには、[欲望LV3]or[屈服刻印LV1]の必要が有ます)
CASE "淫紋"
	;SIF TALENT:ACTOR:恋慕 && (TALENT:ACTOR:淫乱 || ABL:ACTOR:受虐属性 >= 3 || MARK:ACTOR:屈服刻印 >= 3)
	;	RETURN 1
	;STR:実行条件 = イエロー_(※刻印を受け入れてもらうには、[恋慕]が有[淫乱]or[屈服刻印LV3]or[受虐属性LV3]の必要が有ます)

ENDSELECT

;-------------------------------------------------
;避孕套装着の地の文　焰式避孕套の術改
;-------------------------------------------------
@INSERT_MESSAGE_K52, ARGS
SELECTCASE ARGS
	CASE "避孕套有些"
		PRINTFORML %CALLNAME:TARGET%看着%CALLNAME:MASTER%戴上了避孕套、
	CASE "避孕套没有"
		PRINTFORML %CALLNAME:TARGET%看了一眼%CALLNAME:MASTER%勃起的阴茎、
	CASE "強行"
		PRINTFORM %CALLNAME:PLAYER%是%CALLNAME:TARGET%
ENDSELECT
IF ARGS == "強行"
	SELECTCASE SELECTCOM
		CASE 60
			PRINTFORM 仰面推倒后、将%TEXTS("太股：描写")%的腿打開为M字
		CASE 61
			PRINTFORM 将其按倒在地，抓住了其%TEXTS("お尻：視覚")%を鷲掴んで
		CASE 62
			PRINTFORM 推倒之后，从上面压着
		CASE 63
			PRINTFORM 强行抱起来、抬起了%TEXTS("お尻：感触")%
		CASE 64
			PRINTFORM 从后面抱起，然后抓住了%TEXTS("お尻：感触")%
	ENDSELECT
	PRINTFORMW 剛直の先端を秘裂にあてがった……
ELSE
	SELECTCASE SELECTCOM
		CASE 60
			PRINTFORMW 主动把腿打開成M字样、诱惑着%CALLNAME:PLAYER%
		CASE 61
			PRINTFORMW 自己趴在地上、把%TEXTS("お尻：視覚")%伸了过去……
		CASE 62
			PRINTFORMW 躺在床上伸展了身体……
		CASE 63
			PRINTFORMW 在%CALLNAME:MASTER%的膝盖上坐下…
		CASE 64
			PRINTFORMW 将柔软的屁股肉按到%CALLNAME:MASTER%的阴茎上，然后靠在了%CALLNAME:MASTER%身上……
		CASE 65
			PRINTFORMW 卧倒与地在%CALLNAME:MASTER%的四周爬来爬去……
	ENDSELECT
ENDIF

RETURN 1