code:
;-------------------------------------------------
;口上テンプレート
;焰口上_2018_05_06（角色クターの名前を入れる、下にコンセプトなど一言あれば入れる）
;製作者　wakky
;-------------------------------------------------
;-------------------------------------------------
;クール褐色巨乳人妻体育教師
;夫もいる関係で生娘ではないが、あまり自己的魅力には気づいてない感じ
;
;避妊関連にはこだわってるよ
;生理が止まって夫にバレるわけに是かないので口服避孕薬は使えないよ
;だけど避妊にはうるさいので安全日でも基本避孕套ハメにさせられるよ
;避孕套がなければそもそも挿れさせてもくれないよ
;そのウフフで何度も絶頂させるか、さっさと恋慕取得してしまえば守備が甘くなるので生でできるよ
;你が童貞かつ安全日なら生でさせてくれるよ
;
;まだ口上はほぼほぼ未完成だよ。頑張って書くよ
;-------------------------------------------------
;呼び名の設定。"_"の右にふりがなを書く。
;-------------------------------------------------
@CNAME_K18, ARGS
#FUNCTIONS

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 我_我
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		LOCALS = 你_你
	;相手が主人ではない
	ELSE
		IF COND("教員", ASSI)
			LOCALS = %CALLNAME:PLAYER%老师_%CSTR:PLAYER:ふりがな%老师
		ELSE
			LOCALS = %CALLNAME:PLAYER%_%CSTR:PLAYER:ふりがな%
		ENDIF
	ENDIF
CASE "主人"
	LOCALS = 主人様_主人大人
CASE "助手"
	LOCALS = %CALLNAME:ASSI%_%CSTR:ASSI:ふりがな%
ENDSELECT
RETURNF LOCALS

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

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = 拥有火之精灵“沙罗曼达”力量的女性体育教师。
	STR:2 = 乍一看给人很冰冷的印象、心底却隐藏着在燃烧般的热情。
	STR:3 = 也担任着生活指导、有着「地狱的火焰」的别名而被人畏惧,不过……其实平时来往时是个坦率、温和、可靠的老师、受到学生的爱戴。
	STR:4 = 天生光洁美丽的小麦色肌肤、受男人喜欢、紧致而有肉感的躯体。自然地吸引周围男性的视线，不过、本人却对此没什么自觉。自认为是个粗枝大叶、没有魅力的女人。
	STR:6 = 几年前和普通的男性结婚、但隐瞒了自己的来历。
	STR:7 = 虽然夫妻関系很好——
CASE "勧誘"
	PRINTFORML - %NAME:TARGET% -
	PRINTFORMW 「……没想到、我的学生竟然知道%CNAME("一人称")%的情况」
	PRINTFORMW 「那不可思议的灵魂的光辉……这就是可以再生的灵魂、应该不会错吧」
	PRINTFORMW 「……那、作为分享那个精魂的代价、%CNAME("二人称")%对%CNAME("一人称")%有什么要求呢？」
	PRINTFORMW 「――啊？性欲、处理……那……」
	PRINTFORMW 「……哼。唔……啊哈哈哈哈！！！」
	PRINTFORMW 「哈……真是的、一想到会被要求做什么就……真的是青春期的男孩子吧」
	PRINTFORMW 「嘛、好吧。如果你喜欢这么没骨气的女人、在有需要的时候也可以随心所欲地使用」
	PRINTFORMW 「但是！本来%CNAME("一人称")%就和你是教师和学生的関系、%CNAME("一人称")%也已经结婚了」
	PRINTFORMW 「一定不能越界哦？如果不能遵守的话……你懂了吗？」
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORML ※注意事項※
	PRINTFORML 这个角色是已婚者……也就是所谓的人妻。
	PRINTFORML 概念上、大量地包含着寝取要素。
	PRINTFORML 同时、这个角色的口上是针对默认角色编写的。
	PRINTFORML 素质变更的话口上可能会产生矛盾。
	PRINTFORMW 了解以上的点之后、请尽情享受。
;これは別になくても構いません
CASE "勧誘直後"
	;PRINTFORML - %NAME:TARGET% -

;これも別になくても構いません。特殊な条件がある場合などにどうぞ
CASE "出現条件"
	;PRINTFORMW %NAME:TARGET%は%CALLNAME:MASTER%の"%CSTR:関係%"として、(昼)の部室に顔を出してくれます。
ENDSELECT

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

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

;予備のフラグ解除
SIF CEVENT("初体験中")
	CALL DEL_CEVENT, "初体験中"
SIF CEVENT("今回生挿入経験")
	CALL DEL_CEVENT, "今回生挿入経験"

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：恋慕"
;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無をチェック（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K18_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 K18_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K18_KOJO2
;恋慕
IF TALENT:恋慕
	IF RAND:2 == 0
		PRINTFORMW 「やれやれ、もう我慢の限界か……？」
		CALL PRINT_STRW, @"「ふふ……_H_ まあ%CNAME("二人称")%も年頃だからな……_H_」"
		CALL PRINT_STRW, @"「先達として、%CNAME("一人称")%の体で多少なりとも発散させてやろう……_H_」"
	ELSE
		CALL PRINT_STRW, @"「……_H_ まったく、こんなに勃起させて……仕方のないやつだ……_H_」"
		CALL PRINT_STRW, @"「と是え、生徒の面倒を見るのは教師の務めでもあるからな……_H_」"
		CALL PRINT_STRW, @"「ほら、来い……_H_ 他の生徒のためにも、%CNAME("一人称")%がきちんと世話してやる……_H_」"
	ENDIF
;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0
	PRINTFORMW
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
	PRINTFORMW
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW
ENDIF
RETURN 1

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

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;其他
	ELSE
		PRINTFORMW
	ENDIF
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
	PRINTFORMW
;恋慕
ELSEIF TALENT:恋慕
	PRINTFORMW
;屈服刻印Lv1以下
ELSEIF MARK:屈服刻印 <= 1
	PRINTFORMW
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW
ENDIF

;今回限りのフラグを解除
SIF CEVENT("初体験中")
	CALL DEL_CEVENT, "初体験中"
SIF CEVENT("今回生挿入経験")
	CALL DEL_CEVENT, "今回生挿入経験"

RETURN 1

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

;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「嗯……。那个、没有必要那么在意%CNAME("一人称")%的感受」
		PRINTFORMW 「嘛、如果%CNAME("二人称")%这么想做的话、那也没関系……」
		PRINTFORMW %CALLNAME:TARGET%没有抵抗、接受了%CALLNAME:PLAYER%的爱抚……
	;二回目以降
	ELSE
		;恋慕
		;IF TALENT:恋慕
		;	PRINTFORMW
		IF ABL:欲望 >= 4 && COND("性欲満足")
			IF RAND:3 == 0 && COND("前回絶頂")
				CALL PRINT_STR, "「不要、等一下、啊！！啊哈、才刚刚去_HH_　不行、不可以……_HH_　啊啊啊啊！！」_W_"
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, "「啊、那里、啊！！讨厌、已经、只用手指~就好舒服_HH_　嗯啊啊~！！」_W_"
			ELSE
				CALL PRINT_STR, "「啊、哈、嗯！！！啊、不行_HH_全都变得敏感了、所以啊_HH_　哈啊啊！！」_W_"
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%被完全開发的身体又受到更多责备、发出沉溺在快乐中的甘甜声音……
		ELSEIF MARK:快楽刻印 >= 3
			IF RAND:3 == 0
				PRINTFORMW 「啊、哈……！像这样、被自己的学生这么说……啊！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「哎呀……那里、好厉害……好舒服……啊啊啊！」
			ELSE
				PRINTFORMW 「啊、嗯……！讨厌、这种……身体变得好奇怪……啊、啊！」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%在发出甜美声音的同时、激烈地扭动着成熟的肢体……
		ELSEIF MARK:快楽刻印 >= 1
			IF RAND:3 == 0 && !TEQUIP:推倒
				PRINTFORMW 「哼、哼~……！不、不要那么做啊、别……好、好吧……啊、啊哈……！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「哎呀……那里、不可以~……啊……！」
			ELSE
				PRINTFORMW 「哈哈……啊……！手的动作、那里……嗯~」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%每次被爱抚敏感的部分、身体都会激烈地颤抖……
		;それ以外
		ELSE
			IF RAND:3 == 0 && !TEQUIP:推倒
				PRINTFORMW 「……相当热心呢，不过、抚摸%CNAME("一人称")%的身体、很開心吗？」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「嗯……很好、要温柔地抚摸啊……」
			ELSE
				PRINTFORMW 「呵呵……稍微有点痒呢」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%就这样接受了%CALLNAME:PLAYER%的爱抚、但看起来依旧面不改色……
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ているとき
		IF TEQUIP:推倒
			PRINTFORMW 「这样如何？能让你兴奋我就很開心了……」
			PRINTFORMW 「如果你觉得太重了不舒服、要告诉我啊。我会停止的」
			PRINTFORMW %CALLNAME:TARGET%不再客气、把股间跨坐在%CALLNAME:PLAYER%的脸上……
		;それ以外
		ELSE
			PRINTFORMW 「哎呀！怎么了、这么急冲冲的……到底是怎么回事？」
			PRINTFORMW 「不过呢、因为是%CNAME("二人称")%的性处理、所以这种情况还是适可而止……哼、哼嗯~……」
			PRINTFORMW %CALLNAME:TARGET%虽然对于被爱抚感到有些抵触、但还是张開双腿、委身于%CALLNAME:PLAYER%的爱抚中……
		ENDIF
	;二回目以降
	;清洁舔阴
	;ELSEIF COND("清洁舔阴フラグ", PLAYER)
		;恋慕
	;	IF TALENT:恋慕
	;		PRINTFORMW
		;それ以外
	;	ELSE
	;		PRINTFORMW
	;	ENDIF

	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		IF ABL:欲望 + ABL:施虐属性 >= 5 && RAND:3
			IF RAND:3 == 0
				PRINTFORMW 「啊~哈啊~嗯……！呵呵、怎么了？刚才小鸡鸡就開始颤抖了？」
				PRINTFORMW 「脸被那里压着、嗯、很兴奋吗？你这个变态啊啊……♪」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「啊~……伸长舌頭……那里、嗯啊！呵呵……真听话、是个好孩子呢~……」
				PRINTFORMW 「如果做得好的话、我会好好奖励你的……来啊、加油……♪」
			ELSE
				PRINTFORMW 「啊、哈啊~……！呵呵、老师的蜜汁……好吃吗~」
				PRINTFORMW 「身体变得这样下流、都是%CNAME("二人称")%的错呢……你要负起责任来哦……♪」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%露出妖艳的笑容、因为嗜虐性的快乐而颤抖……
		ELSEIF ABL:Ｃ感覚 >= 3 || ABL:露出癖 >= 3
			IF RAND:2 == 0
				PRINTFORMW 「嗯、哼……！啊、这个……快成瘾了……哈、嗯……！」
			ELSE
				PRINTFORMW 「啊、哈……！跨坐在学生的脸上、这样……啊、果然……！」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%一边发出急切的声音、一边摇着腰寻求快感……
		;それ以外
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「我老公偶尔也会抱怨这个……这样真的好吗？」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「跨坐在人的脸上、有点……嗯、感觉好奇怪啊」
			ELSE
				PRINTFORMW 「什么？想要更紧贴屁股的感觉？……这样吗？」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%有些不适应地把%CALLNAME:PLAYER%的脸向%TEXTR("柔软的恥丘里/柔软的臀肉里")%摁了下去……
		ENDIF
	;それ以外
	ELSE
		IF ABL:欲望 >= 4 && COND("性欲満足")
			IF RAND:3 == 0 && COND("前回絶頂")
				CALL PRINT_STR, "「不要、等一下、啊！！不行~不行~~不行~~~_HH_又要泄了、要泄了_HH_啊~啊啊啊！！」_W_"
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, "「啊、啊、啊！！你、等等~、好舒服_HH_呼、啊啊！！」_W_"
			ELSE
				CALL PRINT_STR, "「啊、哈、嗯！！！哎呀、不行_HH_你这个笨蛋、不行啊_HH_啊、啊啊！！」_W_"
			ENDIF
			SIF INSERT("合体中") == 0
				PRINTFORMW %CALLNAME:TARGET%用结实健美的美腿夹住%CALLNAME:PLAYER%的頭、发出沉溺在快乐的甘甜尖叫……
		ELSEIF MARK:快楽刻印 >= 3 || ABL:Ｃ感覚 >= 5
			IF RAND:3 == 0 && CHECK_CLO("Ｖ露出") == 0
				PRINTFORMW 「哎呀、不行……！裤子、好难过……哼、哼……！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「啊、啊、那个……舌頭的动作、好厉害……啊啊啊！」
			ELSE
				PRINTFORMW 「啊、啊、嗯……！那种、下流的声音、真让人兴奋啊……嗯、啊啊啊！」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%把双手放在%CALLNAME:PLAYER%的頭部两侧、像受了伤一样大幅度弯着腰……
		ELSEIF MARK:快楽刻印 >= 1 || ABL:Ｃ感覚 >= 3
			IF RAND:3 == 0 && CHECK_CLO("Ｖ露出") == 0
				PRINTFORMW 「啊、嗯……！明明是超短裤的、居然这样……啊、啊……！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「嗯……呼……嗯……！」
			ELSE
				PRINTFORMW 「嗯……唔……！舌頭的触感……啊、啊哈~……」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%时不时漏出甜蜜的声音、舒服得腰都直不起来了……
		;それ以外
		ELSE
			IF RAND:3 == 0 && CHECK_CLO("Ｖ露出") == 0
				PRINTFORMW 「啊、哎呀……！那样的话、裤子会不会被弄脏呢？」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「“嗯……。让别人舔你的那里、怎么说呢……真变态啊」
			ELSE
				PRINTFORMW 「呼呼~呼呼~……哎呀、你的呼吸好痒~」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%看起来很痒、但好像还没感受到快乐…………
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門愛撫
;-------------------------------------------------
IF SELECTCOM == 2
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;気持ちいい
		IF CHECK("Ａ指挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;気持ちいい
		ELSEIF CHECK("Ａ指挿入")
			PRINTFORMW
		;それ以外
		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
		PRINTFORMW 「嗯……怎么说呢……虽然不知道是不是想听到这样的想法……」
		PRINTFORMW 「……看到他热心地持续揉搓的样子、感觉并不坏呢」
	;二回目以降
	ELSE
		IF ABL:欲望 >= 4 && COND("性欲満足")
			IF RAND:3 == 0 && COND("前回絶頂")
				CALL PRINT_STR, "「不要、等一下、啊！！喂_HH_HH_又是胸部、又欺负胸部了~_HH_啊、啊啊！！」_W_"
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, "「啊、啊、啊啊！！果然不行_HH_胸部、感觉好胀了_HH_啊、啊啊啊！！」_W_"
			ELSEIF CHECK_COM("舔乳頭")
				CALL PRINT_STRW, "「啊啊啊！！！不行、因为_ HH_那里~、乳頭、要坏掉了_ HH_啊啊~、啊啊啊啊！！」"
			ELSE
				CALL PRINT_STR, @"「啊、那个、什么！好啊、摸一下吧_HH_　%CNAME("一人称")%的乳房、喜欢吗~_HH_啊、啊啊啊！！_W_」_W_"
			ENDIF
		ELSEIF MARK:快楽刻印 >= 3 || ABL:Ｂ感覚 >= 5
			IF NUM("回合数") == 0
				PRINTFORMW 「嗯……！突然、突然、那里……啊、嗯……！」
				IF COND("胸弱点", PLAYER)
					PRINTFORMW 「你这个……啊~……胸部、星人、……啊、不行！啊、啊哈……」
				ELSE
					PRINTFORMW 「也、再稍微、嗯、温柔一点……！因为那里、非常地敏感……啊、不行！不行~不行啊、嗯啊啊啊……！」
				ENDIF
			ELSEIF RAND:3 == 0
				PRINTFORMW 「“啊、啊、嗯……！哎呀、不行……只有胸部、%CNAME("一人称")%的胸部……唔~唔唔~！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「啊、啊、那个……胸部、好舒服……啊啊啊！」
			ELSEIF CHECK_COM("舔乳頭")
				PRINTFORMW 「啊啊啊啊！不、那里是……乳頭、被吸住……已经……啊~啊！！」
			ELSE
				PRINTFORMW 「啊、哈、哎……！奶、被咕噜咕噜、被揉了……啊、嗯嗯嗯！」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%は\@ CHECK_COM("舔乳頭") ? 乳頭を強く吸われる # 乳肉に指が沈む \@たびに甜声を漏らし、確かな快感に身を震わせた……
		ELSEIF MARK:快楽刻印 >= 1 || ABL:Ｂ感覚 >= 3
			IF NUM("回合数") == 0
				PRINTFORMW 「嗯……！突然、突然、那里……」
				IF COND("胸弱点", PLAYER)
					PRINTFORMW 「%CNAME("二人称")%真的、嗯、好喜欢胸部啊……啊、啊……！」
				ELSE
					PRINTFORMW 「最近有点……！容易有感觉……稍微、温柔点、呐……啊、啊……！」
				ENDIF
			ELSEIF RAND:3 == 0
				PRINTFORMW 「哈哈……嗯……！也、再温柔一点……呼、哼……！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「嗯……呃……哼哼……！」
			ELSEIF CHECK_COM("舔乳頭")
				PRINTFORMW 「哼……嗯……！这样啊、在梦中吸着……啊、不行……啊……！」
			ELSE
				PRINTFORMW 「啊……哈……！这个摸法……啊、不行……哼嗯……！」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%は\@ CHECK_COM("舔乳頭") ? 乳頭を強く吸われる # 乳肉に指が沈む \@たびに甜声を漏らし、確かな快感に身を震わせた……
		;それ以外
		ELSE
			IF NUM("回合数") == 0
				PRINTFORM 「わっ、と……いきなりそこか。
				IF COND("胸弱点", PLAYER)
					PRINTFORMW 「真的好喜欢乳房啊、%CNAME("二人称")%」
				ELSE
					PRINTFORMW %CNAME("二人称")%、有那么喜欢乳房吗？」
				ENDIF
			ELSEIF RAND:3 == 0
				PRINTFORMW 「男孩子这么着迷乳房、嗯、呵呵……有点可爱呢」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「平时也感受到男生的视线……果然还是很在意丰满的胸部吗？」
			ELSEIF CHECK_COM("舔乳頭")
				PRINTFORMW 「嗯……这么入迷地吸、简直就像婴儿一样……呵呵」
			ELSE
				PRINTFORMW 「呵呵、抚摸的方法不太舒服啊……啊……嗯……」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%暴露在外的胸部被\@ CHECK_COM("舔乳頭") ? 吸着 # 揉着 \@、好像没怎么感受到快感的样子……
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE

		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;テンダー接吻
		IF CHECK_COM("テンダー接吻")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;阴部愛撫
;阴蒂の場合にはCHECK_COM("陰核愛撫"), 阴部の場合にはCHECK_COM("阴部愛撫"), 恥丘ならCHECK_COM("恥丘愛撫")がONになる
;-------------------------------------------------
IF SELECTCOM == 7
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「んっ……。悪くない手つきだ」
		PRINTFORMW 「旦那と最初に寝た時なんかは……いや、何でもない」
	;二回目以降
	;中出し後にお掃除
	ELSEIF CHECK_COM("擦拭")
		;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
		RETURN 0
		PRINTFORMW
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕 && COND("要去了")
			IF RAND:2 == 0
				CALL PRINT_STRW, "「んっ、そこっ……_HH_　そ、うっ、就这様、頼むっ……_HH_」"
			ELSE
				CALL PRINT_STRW, "「ああ、頼むよっ……_HH_　はぁっ……もっと、もっと強くっ……_HH_」"
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「……ん、そこを就这様……。っ、いい感じ……だな」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;指挿入
;CHECK_COM("玩弄Ｇ点")とTEQUIP:振動棒で大きく分岐する
;-------------------------------------------------
IF SELECTCOM == 8
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;振動棒挿入中
		IF TEQUIP:振動棒 && CHECK("振動棒")
			CALL PRINT_STRW, @"「あっ_HH_あああっ_HH_」"
			CALL PRINT_STRW, @"「待てっ_HH_まだ振動棒が挿入ってるだろっ_HH_ああっ_HH_あんっ_HH_」"
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「ん……_HH_そ、そこを触るのか……？」"
			CALL PRINT_STRW, @"「旦那のためにも……あっ……_HH_そこは自重してくれると助かるん……っ_HH_だが……っ_HH_」"
		ENDIF
	;二回目以降
	;旦那と打电话
	ELSEIF TEQUIP:電話中
		IF RAND:2
			CALL PRINT_STRW, @"「あっ_HH_も、もしもしっ_HH_」"
			CALL PRINT_STRW, @"「な、なんでもない、っ_HH_ぞ……ああっ_HH_」"
			CALL PRINT_STRW, @"「少し……息切れしてしまってな……ハァッ_HH_」"
		ELSE
			CALL PRINT_STRW, @"「あぁっ_HH_好きっ_HH_」"
			CALL PRINT_STRW, @"「好きっ_HH_愛してるっ_HH_もう少し続けてっ_HH_」"
		ENDIF
	;Gスポット刺激
	ELSEIF CHECK_COM("玩弄Ｇ点")
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「はぁっ_HH_いいぞ_HH_もっとしてくれ_HH_」"
			CALL PRINT_STRW, @"「旦那にも教えたいからな_HH_一緒に学び合おうじゃないか_HH_」"
		;気持ちいい
		ELSEIF CHECK("指挿入")
			CALL PRINT_STRW, @"「ああっ_HH_そこっ_HH_」"
			CALL PRINT_STRW, @"「擦ってくれっ_HH_%CNAME("一人称")%をもっと淫らにしてくれっ_HH_」"
		;それ以外
		ELSE
			PRINTFORMW 「ん……そこの感触……どうも慣れないな……」
			PRINTFORMW 「旦那に触られたこともないし……」
		ENDIF
	;振動棒挿入中
	ELSEIF TEQUIP:振動棒
		;気持ちいい
		IF CHECK("振動棒")
			IF RAND:2
				CALL PRINT_STRW, @"「んっ_HH_はぁぁ_HH_」"
				CALL PRINT_STRW, @"「いいっ_HH_いいぞっ_HH_もっと深くっ_HH_」"
			ELSE
				CALL PRINT_STRW, @"「あ、あぁっ……んぅぅっ_HH_」"
				CALL PRINT_STRW, @"「最近のおもちゃは、本当によくできているな…_HH_」"
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「う、くぅぅっ……」
			PRINTFORMW 「少しは、加減しろ…！」
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「ふう……っ_HH_んっ……_HH_」"
			CALL PRINT_STRW, @"「あまり、焦らさないでくれ……あっ_HH_」"
		;それ以外
		ELSE
			PRINTFORMW 「ん……そうだ……擅長だぞ……」
			CALL PRINT_STRW, @"「少しだけ指をまげて……あっ_HH_……できたじゃないか……」"
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐肛　Ａ面部騎乗(被逆推ているとき)
;-------------------------------------------------
;舐肛
IF SELECTCOM == 9
	;初めて
	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 == 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 「まったく、教師へのお願いにしてはえらく不躾じゃないか……」
		PRINTFORMW 「……ん……っ……ほら、満足か……？」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF COND("Ｖ潤充分")
				CALL PRINT_STRW, "「はぁ……っ……_H_ 見てるだけなのか……？」"
				CALL PRINT_STRW, @"「ほら、もう……%CNAME("一人称")%は準備ができてるんだぞ……_H_」"
			ELSE
				PRINTFORMW 「ふふっ……また%CNAME("一人称")%の中が見たいのか……？」
				CALL PRINT_STRW, "「いいぞ、ほら……好きなだけ堪能してくれ……_H_」"
			ENDIF
		;それ以外
		ELSE
			IF COND("Ｖ潤充分")
				PRINTFORMW 「……っ……あまり、見るなっ……こんなに、湿的てるところ……っ」
			ELSE
				PRINTFORMW 「また%CNAME("二人称")%はこうやって、%CNAME("一人称")%に恥をかかせて……困ったやつだよ……」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「え……お、お菊門を見せろだって？」
		PRINTFORMW 「な、なんてことをいうんだ%CNAME("二人称")%は！ ま、まったく……」
		PRINTFORMW 「……ほらっ。満足したら、さっさと言ってくれ……！」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF COND("Ａ潤充分")
				CALL PRINT_STRW, "「あ、はぁ……_H_ お願いだから、そんなに見ないでぇ……_H_」"
				CALL PRINT_STRW, "「こんなに湿的たお尻見られるなんて、恥ずかしい……_H_」"
			ELSE
				CALL PRINT_STRW, @"「ふふ……_H_ %CNAME("二人称")%は本当に%CNAME("一人称")%のお尻が好きなんだな……_H_」"
				CALL PRINT_STRW, "「ほら、好きなだけ見てくれ……_H_ 旦那にも見せたことのないお尻の中だぞ……_H_」"
			ENDIF
		;それ以外
		ELSE
			IF COND("Ａ潤充分")
				PRINTFORMW 「っ、くそ……見るな……お願いだからそんなに見ないでくれ……」
				PRINTFORMW 「生徒にお菊門を濡らしてるところを見られるなんて……！」
			ELSE
				PRINTFORMW 「くそ、%CNAME("二人称")%というやつは……また%CNAME("一人称")%にこんなことをさせて……！」
			ENDIF
		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("振動棒")
			PRINTFORMW 「なんだなんだ…そんなものどこに隠していたんだ」
			PRINTFORMW 「無理にませたことしなくてもいいんだぞ…？」
		;それ以外
		ELSE
			PRINTFORMW 「ばか、やめろっ…きついだろうが……」
			PRINTFORMW 「抜けっ…一旦、抜いてっ…！」
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		PRINTFORMW 「……はぁ……はぁ」
		IF RAND:2
			PRINTFORMW 「まったく…老师のおまんこで玩遊戲のは楽しかったか？」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%は本当に容赦がないやつだな…」
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW 「なんだ、老师とおもちゃ\@ TALENT:淫乱 && RAND:2 ? チンポ # \@で玩耍たいのか？」
			PRINTFORMW 「んんっ……つくづく教え子の相手というのは大変だな…♪」
		;それ以外
		ELSE
			PRINTFORMW 「……！？」
			PRINTFORMW 「これは……んんっ、くぅぅ…なかなか…」
			PRINTFORMW 「…いや、かなり……クるなっ……！うぅぅっ…！」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛用振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		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 && CEVENT("今回生挿入経験") && TEQUIP:推倒 == 0 && INSERT("挿入") == 0 && TEQUIP:PLAYER:避孕套 == 0
	IF CHOSECOMS("Ｖ挿入") == 0
		CALL PRINT_STR, "「就算你求我、只有那个……啊、骗人、真的没有戴套、啊、啊~……_HH_」_W_"
	ELSEIF RAND:2 == 0
		CALL PRINT_STR, "「“喂、真的、不行……啊、插进来了……啊、嗯…………_HH_」_W_"
	ELSE
		CALL PRINT_STR, "「“喂、喂、等一下……啊！讨厌、讨厌……啊、啊~啊……_HH_」_W_"
	ENDIF
	RETURN 1
;-------------------------------------------------
;Ｖ挿入系初選択
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && FIRSTCOMS("Ｖ挿入") == 0
	;処女
	IF TALENT:処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;非処女
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ｖ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;巨根
	IF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		CALL PRINT_STRW, "「あ、はぁ……_HH_　酱と全部入ったか……？」"
		CALL PRINT_STRW, @"「ふふふ……_HH_　旦那に負けてないな、%CNAME("二人称")%のチンポも……_HH_」"
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 65
			CALL PRINT_STRW, "「んっ、ふ……_HH_　そぉら_HH_　酱と見えるか？」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%のおまんこが、%CNAME("二人称")%のチンポ全部飲み込んだぞ……_HH_」"
		;対面座位
		CASE 63
			CALL PRINT_STRW, "「あぁ……_HH_　まるで恋人同士みたいじゃないか、なぁ……_HH_」"
			CALL PRINT_STRW, @"「本当に悪い奴だよ、%CNAME("二人称")%は……%CNAME("一人称")%には旦那がいるんだぞ……_HH_」"
		;背面座位
		CASE 64
			CALL PRINT_STRW, @"「んんっ……_HH_　まったく、%CNAME("二人称")%って奴は……」"
			CALL PRINT_STRW, "「老师に、こんな格好をさせたがるなんて……ふしだらな奴め……_HH_」"
		;屈曲位
		CASE 62
			CALL PRINT_STRW, "「お、おい！　何、するんだ……あぁんッ_HH_」"
			CALL PRINT_STRW, "「こん、なっ_HH_　格好で……あぁ_HH_　だめぇッ_HH_」"
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ｖ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	IF TEQUIP:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2
		IF ABL:欲望 >= 4 && COND("欲求不満")
			CALL PRINT_STRW, "「ふあ_HH_　ぁっ……！？　……な、なんでっ」"
			PRINTFORMW 「ぃ、イけそうだったっ！イけそうだったのni↘！」
			CALL PRINT_STRW, "「なんでやめ……んっぅっ_HH_　ぁ、またぁっ_HH_」"
		ELSEIF TALENT:恋慕
			CALL PRINT_STRW, "「んっ_HH_ イ、ク_HH_…………あっ！？」"
			PRINTFORMW 「な、なんだその顔はっ %CNAME("一人称")%だって、女で……解るだろう？」
			CALL PRINT_STRW, "「期待してたのに……酱と最後までしてくれよぉ……_HH_」"
		ELSE
			PRINTFORMW 「ふ、あっ……？」
			PRINTFORMW 「あ、あぁいや……なんでもないんだ、気にするな」
			PRINTFORMW 「……やめろって意味じゃないんだぞ？」
		ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		CASE "正常位"
			IF TALENT:恋慕
				IF RAND:4 == 0
					PRINTFORMW 「…………？ あぁ、なんでもないんだ」
					PRINTFORMW 「旦那以外にこうされている自分に違和感を覚えなくなったなと思ってな」
					PRINTFORMW 「……無粋だった。今は酱と%CNAME("二人称")%だけを見ることにしよう」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「ふふっ なぁ、手を繋がないか？」
					CALL PRINT_STRW, @"「……有がとう。%CNAME("二人称")%……暖かいな_HH_」"
					PRINTFORMW 「んっ……中で大きく……この変態めっ♪　老师が情緒を出しているっていうのに……本当に悪い子だ♪」
				ELSEIF RAND:2
					PRINTFORMW 「はぁっ……やぁっんっ！そこっ、そこがいいっ！」
					PRINTFORMW 「今だけは……%CNAME("一人称")%は女だからっだからもっとっ、もっと教え子との性交教えっ――――」
					CALL PRINT_STRW, "「――――てっ、はひっ、は、あぁっ_HH_」"
				ELSE
					PRINTFORMW 「んっ……しっかり入ってるな、ふふ……嫌でも感じる」
					PRINTFORMW 「解るか？ ……そう、ここだ。老师のここに%CNAME("二人称")%のがあるんだ」
					CALL PRINT_STRW, "「……やっ、こ、こらっ♪ せっかく授業っをっぉ゛っひっぃ゛_HH_」"
					CALL PRINT_STRW, "「そんなに体重をかけっ……んひっ_HH_」"
				ENDIF
			ELSEIF MARK:快楽刻印 >= 3 || ABL:Ｖ感覚 >= 5
				IF RAND:3 == 0
					PRINTFORMW 「やめっ、んっ、あっ、ぅ、ぅんっ……♪」
					PRINTFORMW 「これじゃ、教え子チンポに、塗り替えられっ……ひっ♪」
				ELSEIF RAND:2
					PRINTFORMW 「これで、終わりっ、これで終わりだからっだからっ」
					PRINTFORMW 「も、もっとチンポで……あぃっ♪」
				ELSE
					PRINTFORMW 「んぉ゛っ、あっ、ぉあっ♪」
					PRINTFORMW 「音、も、すごっ♪ 力、強くてっ 癖に、癖になる♪」
				ENDIF
			ELSEIF MARK:快楽刻印 >= 1 || ABL:Ｖ感覚 >= 3
				IF RAND:3 == 0
					PRINTFORMW 「どうした、元気がないな。腰が引けてるぞ？」
					PRINTFORMW 「あっ、はぁっ……！ そう、そうだ……元気なのはっ、ふふっ……良いことだ♪」
				ELSEIF RAND:2
					PRINTFORMW 「教え子に、こんなに、されて……んっ……あっ、ふぁっ……！」
					PRINTFORMW 「癖变成了ら%CNAME("一人称")%……あぁっ♪」
				ELSE
					PRINTFORMW 「そんなっ、しつこっ、んっ……あっ、あぁっ……やぁっ……！」
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「あぁ、そうだ、手を繋ごう」
					PRINTFORMW 「こういうのは情緒も大切だからな」
					PRINTFORMW 「……他の娘にもこういう気を回してやってほしいという話だ」
				ELSEIF RAND:2
					PRINTFORMW 「あ、あまり奥まで入れるんじゃないぞ？」
					PRINTFORMW 「っ……そう、ゆっくり、だ」
					PRINTFORMW 「痛いのもそうなんだが……教師としてみっともない声を出すのもな？」
				ELSE
					PRINTFORMW 「こらこらそうがっつくな」
					PRINTFORMW 「まったく、%CNAME("一人称")%が多少頑丈だから良いものの」
					PRINTFORMW 「他の娘に同じようにするんじゃないぞ？」
				ENDIF
			ENDIF
		CASE "騎乗位"
			IF TALENT:恋慕
				IF TEQUIP:推倒

				ELSE
					IF RAND:4 == 0
						PRINTFORMW 「どうだ？　酱とおまんこ気持ちいいか？」
						PRINTFORMW 「老师に、犯されてっ チンポ喜んでるかっ……？」
						PRINTFORMW 「ふ、んっ……！ ふふっ 正直だなぁ%CNAME("二人称")%のチンポは♪」
					ELSEIF RAND:3 == 0
						PRINTFORMW 「いいっぞぉ♪……っふぅ、んっ♪ もっと、下からっ♪」
						CALL PRINT_STRW, "「あっはっ！ ――お゛ひっ_HH_」"
					ELSEIF RAND:2
						PRINTFORMW 「んっ、くっ……？… ふふっ、胸が気になるのか」
						PRINTFORMW 「仕方のない奴だなぁ、いくらでも触って良いんだぞ」
						CALL PRINT_STRW, @"「今は%CNAME("二人称")%のものだからな……_HH_」"
					ELSE
						CALL PRINT_STRW, "「ぁあっ_HH_　腰、掴むの、いいっ♪」"
						CALL PRINT_STRW, "「もっと、もっとだ_HH_ もっと思い切り――――ぉ゛ほぁあ_HH_」"
					ENDIF
				ENDIF
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				IF TEQUIP:推倒

				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「そら、%CNAME("一人称")%の有利な体勢だ」
						PRINTFORMW 「良いようにされている分、しっかりとお返しをしてやらねばなぁ？」
					ELSEIF RAND:2
						PRINTFORMW 「あっんぅっ！ ぅっんっ……どうした、疲惫のか？」
						PRINTFORMW 「……ふ、ふふふぃっ あ、あぁ、良いぞぉ……せ、老师が動いてやろう♪」
						PRINTFORMW 「生殺しは御免だから、ぁっ……なぁっ……♪」
					ELSE
						PRINTFORMW 「こらこら！ だからそう勝手に動くなと言ってるだろう!」
						PRINTFORMW 「そうだ、酱と相手のことを考え……んっ」
						PRINTFORMW 「はっぁ……良い子、だ♪」
					ENDIF
				ENDIF
			ELSE
				IF TEQUIP:推倒

				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「重くは無いか？ そ、そうか……」
						PRINTFORMW 「……動くぞ、キツかったら言うんだ。 わかったな？」
					ELSEIF RAND:2
						PRINTFORMW 「こ、こらっ、奥に入りやすいのにそんなに無遠慮に動くやつがあるかっ！」
						PRINTFORMW 「ぐっ……んっ……んぁっ……ぁっ……あぁっ……！」
					ELSE
						PRINTFORMW 「旦那にもたまにやるんだが、やたらと%CNAME("一人称")%にやらせるんだよな」
						PRINTFORMW 「……あぁ、なるほど。 胸か」
					ENDIF
				ENDIF
			ENDIF
		CASEELSE
			IF RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			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 SELECTCOM == 60
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;後背位
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF RAND:3 == 0
				CALL PRINT_STRW, @"「うぅ……_H_　教え子相手に、こんな格好でっ……_H_」"
				CALL PRINT_STRW, @"「あぁっ_H_　ちょっ、待てぇ……っ_H_　急に、腰、早すぎっ……！_H_」"
			ELSEIF RAND:2 == 0
				CALL PRINT_STRW, @"「うく……_H_　一気に、奥まで……_H_　さすがに遠慮がなさすぎじゃないのか……？_H_」"
				CALL PRINT_STRW, @"「ふふ……_H_　まあ、今更遠慮などいらぬ仲かもしれないが、な……？_H_」"
			ELSE
				CALL PRINT_STRW, @"「お、おい……！　こっちは%CNAME("二人称")%の顔が見えないんだから、あまり挑逗な……あぁっ！？_H_」"
				CALL PRINT_STRW, @"「おまっ！_H_　いきなりっ_H_　入れるっ_H_　なっ_H_　アハぁっ_H_」"
			ENDIF
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			IF RAND:2 == 0
				PRINTFORMW 「……やれやれ、本当に困った生徒だよ、%CNAME("二人称")%は……」
				PRINTFORMW 「今からこんなんじゃ、%CNAME("一人称")%は将来が心配だぞ……」
			ELSE
				PRINTFORMW 「あまり、激烈地しすぎるな、よ」
				PRINTFORMW 「せっかくなんだ……%CNAME("一人称")%のことも、楽しませてくれないと、な……？」
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;屈曲位
;-------------------------------------------------
IF SELECTCOM == 62
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;対面座位
;-------------------------------------------------
IF SELECTCOM == 63
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;背面座位
;-------------------------------------------------
;背面座位
IF SELECTCOM == 64
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;騎乗位
;-------------------------------------------------
IF SELECTCOM == 65
	;初めて
	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 == 66
	;初めて
	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 == 67
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			IF ASSIPLAY == 0
				PRINTFORMW 「ま、待て……%CNAME("二人称")%……」
				CALL PRINT_STRW, @"「そこは……子……あっ……やっ、ああっ_HH_」"
			ELSE
				PRINTFORMW 「%CNAME("二人称")%……止まっ……ああっ」
				CALL PRINT_STRW, @"「し、子宮口……責められ、あっ……あぁっ_HH_ゴリゴリされっ、んぅう_HH_」"
			ENDIF
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF ASSIPLAY == 0
				CALL PRINT_STRW, @"「あぁっ_HH_　教え子に%TEXTR("種付け/本気性交")%されてっ、や、やめっ……あぁんっ_HH_」"
			ELSE
				CALL PRINT_STRW, @"「……%CNAME("二人称")%。そこは……%CNAME("一人称")%の、んっ_HH_　子宮、あっ、ああぁっ_HH_」"
			ENDIF
			IF ASSIPLAY == 0 && RAND:3 == 0
				CALL PRINT_STRW, @"「くっ……ください……%CNAME("一人称")%の子宮に……%CNAME("主人")%の%TEXTR("精子/子種/精液")%、あぁっ_HH_」"
				CALL PRINT_STRW, @"「こ、これぇ_HH_……駄目なのにぃ_HH_　%TEXTR("生徒/教え子")%に……滅茶苦茶にされてるぅ_HH_」"
			ELSEIF RAND:2 == 0
				CALL PRINT_STRW, @"「い、言うから……途中で止めるのはぁ_HH_　お願いします……%CNAME("一人称")%の子宮にぃ_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("精子/子種/精液")%……注いで、んっ_HH_　ください……お、お願いしますっ_HH_　あぁぁっ_HH_」"
			ELSE
				CALL PRINT_STRW, @"「くぅっ_HH_　子宮蹂躙されっ、されりゅう_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("やめっ/やめ")%……はぁはぁ……子宮口ぃ_HH_　突き上げられて……くぅう_HH_」"
			ENDIF
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「くっ……老师は%TEXTR("人妻なんだぞ/結婚しているんだぞ/旦那もいるんだ")%。だから……ち、違うっ_HH_」"
			CALL PRINT_STRW, @"「%TEXTR("んぅ/んっ/そこっ/あぁっ")%_HH_　……%TEXTR(@"老师/%CNAME("一人称")%")%の%TEXTR("子宮/子宮口")%%TEXTR("ノック/ゴリゴリ")%するな_HH_　%TEXTR("あぁぁっ/んぅうっ")%_HH_」"
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;子宮挿入
;-------------------------------------------------
IF SELECTCOM == 68
	;初めて
	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

;-------------------------------------------------
;Ａ挿入系初選択
;疼痛が少なく楽しめているかはCHECK("Ａ挿入")で判定
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	;Ａ処女
	IF TALENT:Ａ処女
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, "（すまない……こっちは……教え子に取られてしまったようだ…_H_）"
		;余裕有
		;ELSEIF CHECK("Ａ挿入")
		;	PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「なっ！？ま、待て………そこは…！」
			PRINTFORMW 「その……まだ、なんだ………旦那にもだ……！」
			PRINTFORMW 「我慢、してくれ…せめて、先に旦那ni↘………んﾞぅぅぅっ！？」
		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
		PRINTFORMW
	;巨根
	ELSEIF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		;CASE 75
		;	PRINTFORMW
		;対面座位
		;CASE 73
		;	PRINTFORMW
		CASE TNUM("肛門背面座位"), TNUM("肛門屈曲位")
			IF COND("Ａ熟達") || CHECK_COM("喜欢的体位", SELECTCOM)
				CALL PRINT_STRW, @"「は、あぁ……っ_HH_ 教え子のチンポをこんな体勢で菊門を使って接受、なんて……_HH_」"
				CALL PRINT_STRW, @"「恥ずかしいはずなのni↘_HH_ %CNAME("二人称")%のチンポっ_HH_ 欲しくなってしまうんだっっ_HH_」"
				CALL PRINT_STRW, @"「どうか、淫らな%CNAME("一人称")%の尻を……このチンポで躾けてくれないか_HH_」"
			ELSE
				PRINTFORMW 「っ……もう、勝手にしろ………ばれても、知らない…」
				PRINTFORMW %CALLNAME:TARGET%は肛門への挿入に対して抵抗意思がないようだ…
				PRINTFORMW 諦めたように%CALLNAME:MASTER%を受け入れ、身を任せている…
			ENDIF
		;それ以外
		CASEELSE
			PRINTFORMW 「っ……もう、勝手にしろ………ばれても、知らない…」
			PRINTFORMW %CALLNAME:TARGET%は肛門への挿入に対して抵抗意思がないようだ…
			PRINTFORMW 諦めたように%CALLNAME:MASTER%を受け入れ、身を任せている…
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW 「これ以上は……だめだ……そんなところ、旦那もいじってないから……」
		PRINTFORMW 「このままじゃ、気づかれる……だから……！」
		PRINTFORMW 「うあぁぁっ………！」
	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
	;余裕が無い
	ELSEIF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;SELECTCASE CONDS("体位")
		;CASE "正常位", "屈曲位"
		;	IF TALENT:恋慕 && RAND:3 == 0
		;		PRINTFORMW
		;	ELSEIF MARK:屈服刻印 >= 2 && RAND:2
		;		PRINTFORMW
		;	ELSE
		;		PRINTFORMW
		;	ENDIF
		;CASEELSE
			IF TALENT:恋慕
				IF RAND:2
					PRINTFORMW 「うぁぁ、あ……あぁ……！」
					CALL PRINT_STRW, "「やぁぁ……おしり、がぁ…_HH_　うぅぅ…ぐぅっ……_H_」"
				ELSE
					CALL PRINT_STRW, "「うﾞぅぅっ……_H_　ふといぃっ、あぅぅっ……_H_」"
				ENDIF
			ELSE
				IF RAND:2
					PRINTFORMW 「ふぁぁ…うぅ……！ダメって、言っただろう………！」
					PRINTFORMW 「うぐ……ふぅぅ……！もういいから、早く終わらせろ……！」
				ELSE
					PRINTFORMW 「はあっ…うぅっ…！！もうやめてくれ…！そんなに、広げたら……！」
					PRINTFORMW 「旦那に、言い訳できなくなる……！」
				ENDIF
			ENDIF
		;ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで)
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 74
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		IF RAND:2
			PRINTFORMW 「は、っ、ぐ……っ！ まて、そんなに、動くな、ァ……っ！」
		ELSE
			PRINTFORMW 「だ、だめっ……！ まって、はげし……ん……っ！」
		ENDIF
	;恋慕
	ELSEIF TALENT:恋慕 && COND("要去了")
		IF RAND:4 == 0
			CALL PRINT_STRW, "「あぁ_H_ いいっ_H_ おしりで避妊性交するのきもちいいのぉっ_H_H_」"
		ELSEIF RAND:3 == 0
			CALL PRINT_STRW, "「あ゛ぁー_H_ アツいの_H_ おしりアツくてきもちいいのぉ_H_ あはぁっ_H_」"
		ELSEIF RAND:2
			CALL PRINT_STRW, "「いい_H_ もっと_H_ もっとしてっ_H_ おしりにチンポいっぱいうちつけてぇっ_H_」"
		ELSE
			CALL PRINT_STRW, "「あはっ_H_ 就这様、おしりに出して_H_ こっちなら、あんっ_H_ デキないからぁ_H_」"
		ENDIF
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門騎乗位
;-------------------------------------------------
IF SELECTCOM == 75
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	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 == 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 「うぁっ……！？　な、なにをしているんだ！？」
			CALL PRINT_STRW, "「こんな、胸の中に、チンポを入れて……はぁっ_HH_」"
			CALL PRINT_STRW, @"「な、なんだ……？　どうして%CNAME("一人称")%、声なんか……んんっ_HH_」"
			CALL PRINT_STRW, "「こんな、こと、されて……あぁっ_HH_　気持ちいいなんてぇっ_HH_」"
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, "「お゛、ほぉ_HH_　これすきっ_HH_　すきなのっ_HH_」"
			CALL PRINT_STRW, "「もうだめ_HH_　こんな、すごいのっ_HH_　やめられないのぉっ_HH_」"
		;それ以外
		ELSE
			CALL PRINT_STRW, "「やぁっ_HH_　こんな、こと、おかしいのにぃ_HH_」"
			CALL PRINT_STRW, "「どうしてっ_HH_　気持ちいいのが、止まらないのぉっ_HH_」"
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF CHOSECOM(SELECTCOM) == 0
				CALL PRINT_STRW, "「あ、はぁ……_HH_　胸部に、是ってくる……_HH_」"
				CALL PRINT_STRW, @"「はぁ……はぁ……_HH_　まったく、とんでもない教え子だ、%CNAME("二人称")%は……_HH_」"
				CALL PRINT_STRW, @"「こんな、%CNAME("一人称")%の知らないことを……んっ_HH_　逆に教え込まれるなんて……_HH_」"
			ELSE
				CALL PRINT_STRW, "「あっ_HH_　く、あぁ_HH_　だめっ_HH_　胸部突かれてるのに、声が出ちゃうぅ_HH_」"
				CALL PRINT_STRW, "「胸部の中、チンポでかき乱されて、気持ちよくなってるぅ_HH_」"
			ENDIF
		;それ以外
		ELSE
			IF CHOSECOM(SELECTCOM) == 0
				PRINTFORMW 「ま、待ってくれ！　またこんなことをするのか！？」
				CALL PRINT_STRW, "「頼む、それだけはやめて、く……うぁっ_HH_」"
				CALL PRINT_STRW, "「だめ、だ……是って、くるぅ……っ_HH_」"
			ELSE
				CALL PRINT_STRW, "「うあぁっ_HH_　だ、だめだっ_HH_　これ以上は、やめてぇっ_HH_」"
				CALL PRINT_STRW, "「こわい、のぉ_HH_　もう、もどれなくなっちゃうからぁ_HH_」"
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道挿入
;-------------------------------------------------
IF SELECTCOM == 83
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;余裕が無い
		ELSEIF CHECK("尿道挿入") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;恋慕
		ELSEIF 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:恋慕
			IF RAND:3 == 0
				PRINTFORMW 「チンポのくびれのとこ、強めにコスられるのがいいんだろ……？」
				PRINTFORMW 「まったく……何度もしてるうちに、すっかり覚えてしまったよ」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%CNAME("二人称")%のチンポのことなら、%CNAME("二人称")%以上によく分かってる」
				CALL PRINT_STRW, @"「……だから、大人しく%CNAME("一人称")%に絞られておけ……_H_」"
			ELSE
				PRINTFORMW 「さて……せいぜい喜ばせてやるとしようかな」
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「……%CNAME("一人称")%の手なんて、そんな気持ちいいもんでもないんじゃないか……？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	;被逆推ている時
	IF TEQUIP:推倒 && FIRSTCOM_REV(SELECTCOM) == 0
		PRINTFORMW 「よし、いいか……就这様じっとしてろよ……んっ」
		PRINTFORMW 「ちゅぅ……れろ……ぐちゅ……」
		PRINTFORMW （何をしているんだ、%CNAME("一人称")%は……）
		PRINTFORMW （まさか主动教え子のチンポを咥えに行くなんて……）
	;それ以外
	ELSEIF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「なんだ、これを舐めてほしいのか？」
		PRINTFORMW 「いや、無理じゃないさ……%CNAME("一人称")%にもそれくらいの経験はある」
		PRINTFORMW 「いくぞ……ん、じゅぷっ……」
		PRINTFORMW （やっぱり、旦那のとは違うな……）
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, "「ちゅ……_HH_　ふふ、今日もよろしくな_HH_」"
		;それ以外
		ELSE
			PRINTFORMW 「ん、ちゅ……」
			PRINTFORMW 「まったく、%CNAME("二人称")%も良い趣味をしているな……老师にこんなことをさせて」
			PRINTFORMW 「ほら、ずいぶんと楽しそうな顔をしているじゃないか？」
		ENDIF
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			PRINTFORMW 「おいおい、なんだこのチンポは……さてはわざと洗わなかったんだろう？」
			PRINTFORMW 「まったく、%CNAME("二人称")%って奴は……」
			PRINTFORMW 「ん、じゅる……れろ……」
		;恋慕
		ELSEIF TALENT:恋慕 && RANDIF(1, ABL:奉仕精神 >= 3)
			PRINTFORMW 「ふふっ……いっぱい弄脏的な……」
			PRINTFORMW 「ほら、%CNAME("一人称")%が綺麗にしてやるからな……」
			CALL PRINT_STRW, "「ちゅぅぅ……じゅるる……れろ……んふ_HH_」"
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3 && RAND:2
			PRINTFORMW 「なんだ、綺麗にしてほしいのか？　ふふ……」
			PRINTFORMW 「わかった、就这様じっとしてろよ……んっ」
			PRINTFORMW 「ちゅ……じゅる……んぅ……」
		ELSE
			PRINTFORMW 「なんだ、これを舐めとれって言うのか？」
			PRINTFORMW 「まったく、いい態度じゃないか……老师に向かって」
			PRINTFORMW 「いいか、就这様動くなよ……ん、ちゅ……」
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, "「じゅっぽ_HH_　じゅぽ_HH_　じゅるるっ_HH_」"
			CALL PRINT_STRW, "（ああ、いい_HH_　チンポいいっ_HH_　教え子の若いチンポっ_HH_）"
			CALL PRINT_STRW, "（こんなのもう、我慢できない_HH_　できないのっ_HH_）"
		;それ以外
		ELSE
			PRINTFORMW 「じゅるるっ、じゅぶ、ぴちゃ、んちゅ……」
			PRINTFORMW （あぁ……今の%CNAME("一人称")%、傍から見たら生徒を襲っているようにしか見えないんじゃ……？）
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, "「じゅっぽ_HH_　じゅっぽ_HH_　ちゅる……ぷはっ_HH_」"
			PRINTFORMW 「んふっ……どうだ、%CNAME("一人称")%の口は？　気持ちいいだろう？」
		;それ以外
		ELSE
			PRINTFORMW 「じゅる……れろ、ぴちゃ……んっ……」
			PRINTFORMW 「どうだ？　満足してるか……？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;乳交
;-------------------------------------------------
IF SELECTCOM == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			IF RAND:3 == 0
				CALL PRINT_STRW, @"「我慢汁が……もうヌルヌルだな……_H_」"
				PRINTFORMW 「%CNAME("一人称")%の胸に埋もれるの……そんなに気持ちいいのか……？」
				PRINTFORMW 「どうせ、%CNAME("二人称")%と旦那以外には触らせもしないんだ……好きなだけ楽しむといいさ」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「よっと……うちの旦那は、こうして上から押さえつけるのが好きだったが……」
				PRINTFORMW 「……どうやら、%CNAME("二人称")%もそうみたいだな……？」
			ELSE
				CALL PRINT_STRW, @"「まったく……こんな時だけ可爱顔して……_H_」"
				PRINTFORMW 「ほら、こうして互い違いにするの……好きだろう……？」
				CALL PRINT_STRW, @"「このまま%CNAME("二人称")%の好きな責め方でしてやるから……いつでも好きな時に射精しろ……_H_」"
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORMW 「%CNAME("二人称")%は、本当にこれが好きだな……？」
				PRINTFORMW 「まあ、男というのは皆そうなのかもしれんが……それにしたって、もっといい相手がいるんじゃないか？」
				CALL PRINT_STR, @"「……まあ、頼まれたからにはきっちりやるさ……_H_」_W"
			ELSEIF RAND:2 == 0
				CALL PRINT_STRW, @"「まったく……幸せそうな顔をして……_H_ %CNAME("一人称")%の胸はそんなに気持ちがいいか……？_H_」_"
				CALL PRINT_STRW, @"「ふ……_H_　こういうときは坦率だな……_H_」_"
			ELSE
				CALL PRINT_STRW, @"「ほら……_H_　%CNAME("二人称")%のチンポ……%CNAME("一人称")%の乳に埋もれてしまったぞ……_H_」_"
				CALL PRINT_STRW, @"「先のところがぴょこぴょこ出てて……まるで溺れているみたいだな……_H_」_"
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;素股
;-------------------------------------------------
IF SELECTCOM == 93
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSEIF CHECK_COM("展示肉棒")
		;恋慕
		IF TALENT:恋慕
			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 == 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 == 104
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		;IF TALENT:恋慕
		;	PRINTFORMW
		;それ以外
		;ELSE
			IF RAND:3 == 0 && TALENT:巨乳
				PRINTFORMW %CALLNAME:TARGET%の豊かな乳房はうっとりするほどにやわらかい。
				PRINTFORMW それでいて、顔を押し付けるとしっかりとした弾力で押し返してくる…
				PRINTFORMW 「おいおい……興奮しすぎだぞ？少し落ち着け…」
			ELSEIF RAND:2
				PRINTFORMW 「ふふふ……%TEXTR("チンポ、固いぞ/特等席だぞ")%？うれしいか？」
				PRINTFORMW 「いつもじろじろ見てるもんな…隠したって無駄だぞ…」
			ELSE
				PRINTFORMW 「ほうら、胸部、胸部♪」
				SIF CHOSECOM(SELECTCOM) == 0
					PRINTFORMW 「これか？この掛け声を付けてやると旦那が喜ぶんだ」
				PRINTFORMW 「まだまだ行くぞ…胸部、胸部、胸部♪…っと」
			ENDIF
		;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 == 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
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;強制口交
;-------------------------------------------------
IF SELECTCOM == 140
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	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 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 == 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
			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

;--------------------------------------------------
;調教指令の地の文の前に喋る台詞はここに書く
;--------------------------------------------------
@KOJO_MESSAGE_BEFORE_COM_K18

;-------------------------------------------------
;胸愛撫
;-------------------------------------------------
IF SELECTCOM == 5
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「呐……想摸吧？被那样露骨地看着、%CNAME("一人称")%早就注意到了」
		PRINTFORMW %CALLNAME:TARGET%将有强烈存在感的乳房向这边挺起……
		PRINTFORMW 「嘛、这么在意那没什么用的胸部大小么、如果你喜欢的话、请随意触摸~」
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒

		;それ以外
		ELSE
			;PRINTFORMW 「……どうしてもしなきゃ、駄目か？」
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	;それ以外
	ELSE
		;テンダー接吻
		IF CHECK_COM("テンダー接吻")

		;恋慕
		ELSEIF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

IF SELECTCOM >= 60 && SELECTCOM <= 69 && TEQUIP:推倒 == 0 && INSERT("挿入") == 0 && TEQUIP:PLAYER:避孕套 == 0
	;生おまんこで童貞卒業中だオラァ！
	IF CEVENT("初体験中")
		IF RAND:2 == 0
			PRINTFORMW 「呼呼、啊~……今天已经来了好几次了」
		ELSE
			PRINTFORMW 「还不够吗？真是的、处男的性欲太厉害了……」
		ENDIF
		RETURN 1
	ELSEIF CEVENT("今回生挿入経験")
		IF RAND:2 == 0
			PRINTFORMW 「“等、等等……又没有戴避孕套吧！？那样的……%CNAME("一人称")%做了好几次……！」
		ELSE
			PRINTFORMW 「又、又直接插入……！？不行、不行的……那种、不可以……啊！」
		ENDIF
		RETURN 1
	;特別に生挿入イベント
	ELSEIF TCVAR:特別に生挿入イベ閲覧済
		CALL INSERT_MESSAGE_K18, "強行"
		CALL SET_CEVENT, "今回生挿入経験"
		TFLAG:地の文スキップ = 1
		RETURN 1
	ENDIF
ENDIF
;-------------------------------------------------
;騎乗位
;-------------------------------------------------
IF SELECTCOM == 65
	;初めて
	IF FIRSTCOMS("Ｖ挿入") == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW 「……这个肉棒……和老公的形状完全不一样……嗯……」
			PRINTFORMW 「……如果只是一点点的话……但是对方是自己的学生、自己也是有丈夫的……啊、但是……」
			PRINTFORMW 用手抚摸着身体无法动弹的%CALLNAME:MASTER%的刚直、%CALLNAME:TARGET%发出了甜蜜的吐息……
			CALL PRINT_STR, "「……如果戴套……一次左右的话……对、就这一次、所以……_HH_」_W_"
			PRINTFORMW %CALLNAME:TARGET%不知从哪里取出避孕套、很快就戴在%CALLNAME:MASTER%的肉棒上……
			CALL PRINT_STR, @"「%CNAME("二人称")%也想要的吧…？想在老师的小穴里、变得舒服起来的吧？……_HH_」_W_"
			TEQUIP:PLAYER:避孕套 = 1
		;それ以外
		ELSE

		ENDIF
	;二回目以降
	;推倒＆挿入状態でない
	ELSEIF TEQUIP:推倒 && !INSERT("挿入")
		;今回初挿入
		IF CHOSECOMS("Ｖ挿入") == 0
			CALL PRINT_STR, "「……明明真的不行、如果让我看到这样下流的小鸡鸡的话……_HH_」_W_"
		ELSEIF RAND:3 == 0
			CALL PRINT_STR, "「还不够吧？老师也想要更多的……_HH_」_W_"
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, "「小鸡鸡看起来挺痛苦的……_ HH_现在、我会让你放·松·下·来·的~……_HH_」_W_"
		ELSE
			CALL PRINT_STR, "「这样硬邦邦的……_HH_就这么想侵犯老师吗、嗯？」_W_"
		ENDIF

		IF TALENT:恋慕
			PRINTFORML %CALLNAME:TARGET%瞥了一眼%CALLNAME:MASTER%勃起的阴茎、
			PRINTFORMW 从横躺着的%CALLNAME:MASTER%上面压了上去……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%不知从哪里取出避孕套、很快就戴在%CALLNAME:MASTER%的肉棒上……
			TEQUIP:PLAYER:避孕套 = 1
		ENDIF

		SIF CHOSECOMS("Ｖ挿入") == 0
			CALL PRINT_STR, "「……要侵犯了吗？学生的小鸡鸡、在老师的这里、要侵犯了~……_HH_」_W_"
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;調教指令終了時に行う共通処理。特になくともよい
;-------------------------------------------------
@KOJO_ENDCOM_K18

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K18, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0
;-------------------------------------------------
;パラメータ変動時のセリフ
;-------------------------------------------------
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
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてV絶頂
;-------------------------------------------------
CASE "Ｖ絶頂"
	IF FIRST_EV("Ｖ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてA絶頂
;-------------------------------------------------
CASE "Ａ絶頂"
	IF FIRST_EV("Ａ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてB絶頂
;-------------------------------------------------
CASE "Ｂ絶頂"
	IF FIRST_EV("Ｂ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;C挑逗
;-------------------------------------------------
CASE "Ｃ挑逗"
	;初めて
	IF FIRST_EV("Ｃ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｃ挑逗
		IF NOWEX:Ｃ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｃ挑逗
		ELSEIF NOWEX:Ｃ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;V挑逗
;-------------------------------------------------
CASE "Ｖ挑逗"
	;初めて
	IF FIRST_EV("Ｖ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｖ挑逗
		IF NOWEX:Ｖ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｖ挑逗
		ELSEIF NOWEX:Ｖ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;A挑逗
;-------------------------------------------------
CASE "Ａ挑逗"
	;初めて
	IF FIRST_EV("Ａ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ａ挑逗
		IF NOWEX:Ａ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ａ挑逗
		ELSEIF NOWEX:Ａ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;B挑逗
;-------------------------------------------------
CASE "Ｂ挑逗"
	;初めて
	IF FIRST_EV("Ｂ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｂ挑逗
		IF NOWEX:Ｂ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｂ挑逗
		ELSEIF NOWEX:Ｂ绝顶前骤停
			PRINTFORMW
		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_K18, 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

;-------------------------------------------------
;射精先選択時に表示する口上
;頻繁に表示されるため随机や表示条件の設定推奨です
;-------------------------------------------------
@KOJO_MESSAGE_SHOOT_K18
;恋慕
IF TALENT:恋慕
	SELECTCASE KABURAND(17)
	CASE 16
		PRINTFORML 「む、震えが大きくなってきたか」
		PRINTFORMW 「射精そうなんだな？　よし……♪」
	CASE 15
		PRINTFORML 「ん、声が出てきたな……」
		PRINTFORMW 「そろそろ要去了か？」
	CASE 14
		PRINTFORML 「你のチンポ、カサがぐっと開いて……」
		CALL PRINT_STRW, @"「これは、期待が出来そうだ……_HH_」"
	CASE 13
		PRINTFORMW 「あまり我慢はするなよ？」
	CASE 12
		PRINTFORML 「射精そうなのか……？」
		PRINTFORMW 「し、仕方がないから、受け止めてやる……♪」
	CASE 11
		CALL PRINT_STRW, @"「いいぞ、就这様射精しろ……_HH_」"
	CASE 10
		PRINTFORML 「ふふ……もう限界か……？」
		CALL PRINT_STRW, "「なら、好きなだけ射精すといい……_HH_　受け止めてやる……_HH_」"
	CASE 9
		PRINTFORML 「おいおい、もうか……？」
		PRINTFORMW 「ふ、仕方ない奴だな……♪」
	CASE 8
		PRINTFORML 「んっ……大きくなってきたな……」
		PRINTFORMW 「いいぞ、%CNAME("一人称")%が受け止めてやるからな……♪」
	CASE 7
		CALL PRINT_STRL, "「こら、忍耐な……_HH_」"
		CALL PRINT_STRW, "「就这様、な_HH_」"
	CASE 6
		PRINTFORML 「まったく、声を上げすぎだぞ……？」
		CALL PRINT_STRW, "「本当に、女をその気にさせるのが好吃やつだ……_HH_」"
	CASE 5
		CALL PRINT_STRL, "「ふふ……_HH_　チンポの奥に、『熱』を感じるぞ……_HH_」"
		CALL PRINT_STRW, "「熱く滾る、欲望の熱だ……_HH_　今、解放してやるからな_HH_」"
	CASE 4
		CALL PRINT_STRW, "「ぐつぐつと煮え立って……_HH_　どうやらよっぽど射精したいらしい_HH_」"
		CALL PRINT_STRW, "「……これは、期待できそうだ_HH_」"
	CASE 3
		PRINTFORML 「さっきから、我慢汁が止まらないみたいだな……♪」
		CALL PRINT_STRW, "「安心しろ、変に挑逗たりはせんさ……_HH_」"
	CASE 2
		PRINTFORML 「腰ががくがく震えているな……」
		CALL PRINT_STRW, "「可爱やつめ、ご褒美だ_HH_」"
	CASE 1
		PRINTFORML 「ふふ……♪」
		CALL PRINT_STRW, @"「大丈夫だ、すぐラクにしてやる……_HH_」"
	CASEELSE
		PRINTFORML 「においが、濃くなってきたな……」
		PRINTFORMW 「腹の底が、疼くにおいだ……♪」
	ENDSELECT
;それ以外
ELSE
	;PRINTFORMW
ENDIF

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

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW 「んっ……よしよし。酱と射精できたな」
		PRINTFORMW 「%CNAME("一人称")%でするのはそんなに良かったか？ ふふ」
	;超大量射精
	ELSEIF COND("絶頂", PLAYER) >= 3 && COND("今回初射精", PLAYER)
		IF RAND:2
			PRINTFORMW 「わ、ぶ……っ！？ な、なんだその量は……ただごとじゃないな、%CNAME("二人称")%……」
			PRINTFORMW （こんなのを、%CNAME("一人称")%の中で出されたら……）
		ELSE
			PRINTFORMW 「まったく、こんなに出されても受けきれないだろう…」
			PRINTFORMW 「元気が良すぎるのも困りものだな…」
		ENDIF
	;大量射精
	ELSEIF COND("絶頂", PLAYER) >= 2
		IF COND("今回初射精", PLAYER)
			PRINTFORMW 「うおっ……すごい量だな……流石に若いだけあるということか……」
		ELSE
			PRINTFORMW 「おいおい…多すぎだぞ、少しは加減できないのか…？」
			SIF SELECTCOM >= 90 && SELECTCOM <= 99
				PRINTFORMW 「それとも、%CNAME("一人称")%の方が加減してやるべきだったか？」
		ENDIF
	ELSEIF RAND:5 == 0 && SHOOT("顔") && TALENT:恋慕
		PRINTFORMW 「酱と顔に命中させられたな、えらいぞ…ふふ♪」
	ELSE
		IF RAND:3 == 0 && COND("今回初射精", PLAYER)
			IF TALENT:恋慕
				CALL PRINT_STRW, @"「そんなに%CNAME("一人称")%にかけたかったか？……しょうがない奴だな_H_」"
			ELSE
				PRINTFORMW 「わっ！？」
				PRINTFORMW 「かけるならかけるって言え！……しょうがない奴だなぁ」
			ENDIF
		ELSEIF RAND:2
			PRINTFORMW 「……ったく」
			PRINTFORMW 「……どこまでも性欲湿的なんだな」
		ELSE
			PRINTFORMW 「まったく……」
		ENDIF
	ENDIF
;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰")
	IF RAND:2
		PRINTFORMW 「おぉ……なんだ、出してしまったのか」
		PRINTFORMW 「ふふっ……%CNAME("一人称")%に向けて出さないで満足できるのか？」
	ELSE
		PRINTFORMW 「どうせ射精するなら、そんな勿体ない事をしなくても良いだろうに……」
	ENDIF
;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた
;-------------------------------------------------
ELSEIF SHOOT("脚")
	;初めて
	IF FIRST_EV("絶頂：脚") == 0
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「あぁっ_H_ ……ふふ、%CNAME("一人称")%の足でイってしまったのか……？」"
			CALL PRINT_STRW, @"「そうかそうか……そんなに%CNAME("一人称")%の足が良かったんだな……ふふふ……_H_」"
		;それ以外
		ELSE
			PRINTFORMW 「うおっ、惊嚇した……足でイったのか、%CNAME("二人称")%」
			PRINTFORMW 「あーあ……すっかりべとべとにしてくれたな……」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF RAND:2
				CALL PRINT_STRW, "「ふふっ_H_ また足でイってしまったな……_H_」"
			ELSE
				CALL PRINT_STRW, @"「なんだ、すっかり%CNAME("一人称")%の足を気に入ったみたいだな……_H_」"
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「んっ……なんだ、また足でイったのか？」
			PRINTFORMW 「%CNAME("二人称")%、こういうのが好きだったとはなぁ……」
		ENDIF
	ENDIF
ELSEIF SHOOT("素股")
	IF TALENT:恋慕
		PRINTFORMW 「んっ……？ おいおい、出してしまったのか？」
		CALL PRINT_STRW, "「あーあ、もったいないなぁ……こんなに撒き散らして……_H_」"
	;それ以外
	ELSE
		PRINTFORMW 「んっ……なんだ、もう出たのか？」
		PRINTFORMW 「まぁ、股だけで満足してくれた訳だし問題ないか……」
	ENDIF
;-------------------------------------------------
;口で射精させた
;-------------------------------------------------
ELSEIF SHOOT("口")
	;初めて
	IF FIRST_EV("絶頂：口") == 0
		PRINTFORMW 「んぶっ！？ ん、ぐ……ごほっ、ごほっ！」
		PRINTFORMW 「まったく、%CNAME("二人称")%は……教師の口に出すやつがあるか……っ」
	;精液中毒Lv5
	ELSEIF ABL:精液中毒 >= 5
		CALL PRINT_STRW, "「～～っ_H_ んっ……こくっ、こくっ……ぷはぁ_H_」"
		CALL PRINT_STRW, "「あぁ……_H_ 教え子の精子おいしい……_H_ もっと飲ませてぇ……_H_」"
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		CALL PRINT_STRW, "「んっ……んく……こく……っ、ぷ、はぁ……_H_」"
		CALL PRINT_STRW, "「ふふっ……今日もイキの良い精子がいっぱい出たな……_H_」"
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW 「んぅ……っ、んく……んっ……ふぅ……」
		PRINTFORMW 「まったく、何度も教師の口に出したがって……手のかかる教え子だな……」
	;それ以外
	ELSE
		PRINTFORMW 「んっ……！ く……んぐ……く、けほっ……」
		PRINTFORMW 「っ……%CNAME("二人称")%はまた口の中に出して……少しはデリカシーというものをだな……」
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		IF RAND:2 == 0
			CALL PRINT_STRW, @"「く……胸の奥で、精液が弾けて……_H_」"
			CALL PRINT_STRW, @"「この感覚……なんだか癖になりそうだ……_H_」"
		ELSE
			PRINTFORMW 「ふふ……ほら、見てみろ……」
			PRINTFORMW 「%CNAME("一人称")%の胸の間に……%CNAME("二人称")%の精液で何本も橋が架かっているぞ……？」
			CALL PRINT_STRW, @"「%CNAME("二人称")%が、%CNAME("一人称")%の谷間を征服した証だ……ふふ……_H_　さあ、よく見ておけ……_H_」"
		ENDIF
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		IF RAND:3 == 0
			PRINTFORMW 「あっ……！　お、おい……%CNAME("一人称")%の指に……」
			PRINTFORMW 「…………」
			PRINTFORMW 「……はぁ、まったく……仕方ないやつだな」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「わぷ……まったく、ずいぶん元気じゃないか？」
			CALL PRINT_STRW, @"「ふ……_H_　そう気にするな……気持ちよかったんだろう？」"
			CALL PRINT_STRW, @"「だったら、好きなだけ射精せばいい……_H_」"
		ELSE
			PRINTFORMW 「相変わらずの濃さと量だな……」
			PRINTFORMW 「……%CNAME("一人称")%の旦那でも、これは流石に……」
		ENDIF
	;奉仕精神Lv3
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;性交で射精させた
;-------------------------------------------------
ELSEIF SHOOT("Ｖ中出し")
	;初めて
	;IF FIRST_EV("絶頂：Ｖ中出し") == 0
	;	PRINTFORMW
	;恋慕
	;ELSEIF TALENT:恋慕
	;	PRINTFORMW
	;屈服刻印Lv3
	;ELSEIF MARK:屈服刻印 == 3
	;	PRINTFORMW
	;それ以外
	;ELSE
		IF TEQUIP:PLAYER:避孕套 == 0
			IF CEVENT("初体験中")
				IF CEVENT("一発目") == 0
					PRINTFORMW 「んっ…全部、出たか？」
					PRINTFORMW 「…くく……で、どうだ？一発目の感想は？」
					CALL SET_CEVENT, "一発目"
				ELSEIF RAND:2
					PRINTFORMW 「あっ、と……中に出したな？」
					PRINTFORMW 「ふふ、若い奴は怖いもの无だな、まったく…♪」
				ELSE
					PRINTFORMW 「また、出ちゃったか？」
					PRINTFORMW 「構わん構わん、仕方ないさ……まだ慣れてないんだもんな？」
				ENDIF
			;恋慕および強行の避孕套无分岐
			ELSEIF CEVENT("今回生挿入経験") || TALENT:恋慕
				IF RAND:2
					CALL PRINT_STRW, "「うぅぅっ……熱いぃ……_HH_」"
					CALL PRINT_STRW, "「…はぁ……_HH_はぁ……_HH_この……ばかぁ……」"
				ELSE
					CALL PRINT_STRW, "「ふーっ……_HH_ふーっ……_HH_」"
					PRINTFORMW 「あぁ……中、こんなni↘……うぅぅ……！」
				ENDIF
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORMW 「んっ………イったか？イったな…？」
				PRINTFORMW 「こんなにびくびく震えて…%CNAME("二人称")%のはわかりやすいチンポだな…」
			ELSE
				PRINTFORMW 「……気持ちよかったか？」
				PRINTFORMW 「さて…どれくらい出たか、避孕套の中身を確かめてやるとするか…」
			ENDIF
		ENDIF
	;ENDIF
ELSEIF SHOOT("Ａ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ａ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
ELSEIF SHOOT("接吻")
	PRINTFORMW 「ん……ぅ……っ？ ふぁ……」
	PRINTFORMW 「なんだ%CNAME("二人称")%、接吻でイってしまったのか……？」
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗")
	PRINTFORMW 「んっ……おや？ %CNAME("二人称")%……ふふっ」
	PRINTFORMW 「まさか、顔にのしかかられてイってしまうとはな……」
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶")
	PRINTFORMW 「おっ……？ なんだ%CNAME("二人称")%、こんな胸で顔を挟んでやっただけなのに……」
	PRINTFORMW 「ふふっ……まるで手のかかる兒童だな、%CNAME("二人称")%は……」
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
ELSEIF SHOOT("逆舐陰")
	PRINTFORMW
;-------------------------------------------------
;逆肛交、逆強姦で射精
;-------------------------------------------------
ELSEIF SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")
	IF RAND:3 && TALENT:相思相愛
		CALL PRINT_STRW, @" 「……射精してしまったのか_HH_」"
		CALL PRINT_STRW, @" 「%CNAME("二人称")%が喘いでいるのを見ると、止められなくてな_HH_」"
	ELSEIF ABL:施虐属性 >= 3
		IF RAND:2
			CALL PRINT_STRW, @" 「……ココが良かったのか_HH_ んっ？」"
		ELSE
			CALL PRINT_STRW, @" 「……情けなく射精するのが好きとは_HH_」"
			CALL PRINT_STRW, @" 「%CNAME("二人称")%は本当に変わり者だなあ_HH_」"
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;PLAYERが女で、イってしまった…
;-------------------------------------------------
ELSEIF SHOOT("調教者が女性")
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2 && TALENT:恋慕 && ABL:技巧 >= 3 && RAND:3
		PRINTFORMW 「生徒に手を掛けるなんて、自分の事ながら悪い女だとは思ったが……」
		PRINTFORMW 「こうしてヨガっているのを見ると、悪くないな……こういうのも」
		PRINTFORMW %CALLNAME:TARGET%は艶やかに喘ぐ%CALLNAME:PLAYER%を微笑着并看了过来……
	ELSEIF COND("絶頂", PLAYER) >= 2 && TALENT:恋慕 && RAND:2
		CALL PRINT_STRW, @"「%CNAME("二人称")%が気持ちよくなってくれているのを見ると、女同士……というのも、案外悪くないな_H_」"
	ELSEIF RAND:3 == 0
		PRINTFORMW 「そんなに気持ち良さそうにしてもらえると、やりがいがあるな」
	ELSEIF RAND:2
		PRINTFORMW 「%CNAME("二人称")%が喘ぐ姿も好東西だな」
		PRINTFORMW 「ふふっ……女同士というのも、悪くない」
	ELSE
		PRINTFORMW 「……気持ちよかったか？」
	ENDIF
ENDIF

;-------------------------------------------------
;角色が調教中に調教者を攻める際などの口上
;-------------------------------------------------
@KOJO_COUNTER_K18, ARGS
SELECTCASE ARGS
CASE "恍惚"
	PRINTFORMW 「おいおい……ぼーっとするにはまだ早いぞ？」
CASE "推倒"
	PRINTFORMW
CASE "強制終了"
	PRINTFORMW
CASE "復活"
	PRINTFORMW
CASE "恍惚から復帰"
	PRINTFORMW 「おお……？　やっと起きたか、この寝坊助め」
CASE "助手が限界"
	PRINTFORMW
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;-------------------------------------------------
@KOJO_EVENT_K18, ARGS
SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;陶酔かつ危険日でない時に、普段は許していない生挿入をさせて给際のセリフ
;-------------------------------------------------
CASE "特別に生挿入許可"
	;初体験の約束
	IF CEVENT("初体験の約束") && TALENT:PLAYER:童貞 && !(COND("安全日") || COND("避妊中"))
		CALL PRINT_STR, "「哈—_HH_哈—_HH_不行……就算是初体验……约定好了……对吧？」_W_"
		PRINTFORMW 「就算今天是安全日……也会遵守约定的……是吗？」
		PRINTFORMW %CALLNAME:TARGET%在反复的绝顶下、抵抗的力量变弱了……
	;今回初生エッチ
	ELSE
		CALL PRINT_STR, "「哈~_HH_哈~_HH_不行呀~……避孕套、必须戴上……」_W_"
		PRINTFORMW %CALLNAME:TARGET%在反复的绝顶下、抵抗的力量变弱了……
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
CASE "Ｖ避孕套装着"
	;挿入指令
	IF TRAIN_GENRE("挿入", SELECTCOM)
		;PLAYヤーは着ける気満々
		IF TEQUIP:PLAYER:避孕套
			;生おまんこで童貞卒業中だオラァ！
			IF CEVENT("初体験中") || TCVAR:獎勵生H
				PRINTFORMW 「嗯、要戴套吗？只有今天可以无套插入小穴哦？」
				CALL PRINT_SELECT, "还是去掉避孕套/戴着避孕套"
				IF RESULT == 0
					PRINTFORMW %CALLNAME:MASTER%重新考虑了下、取下了戴着的避孕套
					PRINTFORMW 「呵呵呵、真是个好懂的家伙呢……好了~好了~，不管多少次我都会全部接受的……♪」
					CALL INSERT_MESSAGE_K18, "避孕套没有"
					CALL SETFLAG, "取消避孕套", PLAYER
				ELSE
					PRINTFORMW 「……这样啊。嘛、%CNAME("二人称")%愿意的话也没関系」
					CALL INSERT_MESSAGE_K18, "避孕套有些"
				ENDIF
			;初体験の約束
			ELSEIF CEVENT("初体験の約束") && TALENT:PLAYER:童貞
				PRINTFORMW 「喂喂……约定、你不记得了吗？」
				IF COND("安全日") || COND("避妊中")
					PRINTFORMW 「今天是安全日、按照约定直接做也可以吧？」
					CALL PRINT_SELECT, "忘了那个约定吧！不带套的直接丢掉童贞！/不、果然避孕还是很重要的……"
					IF RESULT == 0
						PRINTFORMW %CALLNAME:MASTER%鼻息急促、气势汹汹地取下了戴上的避孕套！
						PRINTFORMW 「哈哈、真是个坦率的家伙啊~♪那么、老师的那种地方……不讨厌吧？」
						CALL INSERT_MESSAGE_K18, "避孕套没有"
						CALL PRINT_STR, "「那么、作为老师……奖励的性行为呦……_HH_」_W_"
						CALL SETFLAG, "取消避孕套", PLAYER
						CALL SET_CEVENT, "初体験中"
					ELSE
						PRINTFORMW 「……这样啊。嘛、%CNAME("二人称")%愿意的话也没関系」
						PRINTFORMW 「不能直接插入来脱处、不会后悔吗？」
						CALL INSERT_MESSAGE_K18, "避孕套有些"
					ENDIF
				ELSE
					PRINTFORMW 「今天不是安全日、我不能让你直接插入。这样也可以吗？」
					CALL PRINT_SELECT, "忘记了。忍耐一下……/啊、我受不了！做爱啊！"
					IF RESULT == 0
						PRINTFORMW 「嗯、能好好忍耐真了不起。真是个好孩子~……」
						PRINTFORMW %CALLNAME:MASTER%温柔地摸着%CALLNAME:TARGET%的頭……
						CALL SETFLAG, "取消避孕套", PLAYER
						TFLAG:指令中止 = 1
					ELSE
						PRINTFORMW 「……这样啊。嘛、%CNAME("二人称")%愿意的话也没関系」
						PRINTFORMW 「不能直接插入来脱处、不会后悔吗？」
						CALL INSERT_MESSAGE_K18, "避孕套有些"
					ENDIF
				ENDIF
			ELSE
				;初めての性交
				IF FIRSTCOMS("Ｖ挿入") == 0
					PRINTFORMW 「……因为有丈夫、所以如果可以的话、希望不要用小穴做爱……」
					PRINTFORMW 「那个样子、就算说不行也听不到啊……」
					PRINTFORMW 「……没办法、随你的便吧。但是好好地给我戴上套套啊」
				ELSEIF TALENT:恋慕
					IF CHOSECOMS("Ｖ挿入") == 0
						PRINTFORMW 「“……嗯？什么呀、在戴套吗？是吗、要戴吗……」
						PRINTFORMW 「啊、不。没什么。好好避孕是件好事、嗯」
						PRINTFORMW 「……因为并不想生下来……真的吗？」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「……要戴套吗……当然了……嗯……」
					ELSE
						PRINTFORMW 「……避孕套……戴上了吗？哼、是吗……」
						PRINTFORMW 「…………那是什么眼神啊。有什么可遗憾的」
					ENDIF
				;今回初めて
				ELSEIF CHOSECOMS("Ｖ挿入") == 0
					PRINTFORMW 「ん……するのか。わかったよ……ほら」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「なんだ、まだヤリたりないのか？　わかったわかった、好きにしろ」
				ELSE
					PRINTFORMW 「……まだ避孕套あるのか。まったく、どれだけヤる気なんだか……」
				ENDIF
				CALL INSERT_MESSAGE_K18, "避孕套有些"
			ENDIF
		;避孕套をつけない
		ELSE
			IF TCVAR:獎勵生H
				;今回初めて
				IF CHOSECOMS("Ｖ挿入") == 0
					PRINTFORMW 「ん……するのか。わかったよ……ほら」
				ELSE
					PRINTFORMW 「なんだ、まだヤリたりないのか？　わかったわかった、好きにしろ」
				ENDIF
				CALL INSERT_MESSAGE_K18, "避孕套没有"
			ELSEIF TALENT:恋慕 == 0
				;生おまんこで童貞卒業中だオラァ！（@KOJO_MESSAGE_BEFORE_COM_K18に移動）
				IF CEVENT("初体験中")
				;何度も絶頂していたら、守備が甘くなる
				ELSEIF CEVENT("今回生挿入経験")
				;初体験の約束
				ELSEIF CEVENT("初体験の約束") && TALENT:PLAYER:童貞
					IF COND("安全日") || COND("避妊中")
						PRINTFORMW 「呵呵……我记得。约定好了吧？第一次的体验…………」
						CALL INSERT_MESSAGE_K18, "避孕套没有"
						CALL PRINT_STR, "「给能忍得住好孩子的奖励呦、第一次做爱的无套生插小穴……好好品尝吧……_HH_」_W_"
						CALL SET_CEVENT, "初体験中"
					ELSE
						PRINTFORMW 「今天不是安全日、我不能让你直接插进来。要遵守约定啊」
						IF ITEM:避孕套
							PRINTFORML
							CALL PRINT_SELECT, "忍耐到安全日为止……啊！/戴套就好了、现在就做"
							PRINTFORML
							IF RESULT == 0
								PRINTFORMW %CALLNAME:MASTER%伤心地放弃了直接做爱的打算……
								PRINTFORMW 「怎么一副要哭出来的样子嘛，总觉得我做了坏事啊……」
								TFLAG:指令中止 = 1
							ELSE
								PRINTFORMW 「……这样啊。嘛、%CNAME("二人称")%愿意的话也没関系」
								PRINTFORMW 「不能直接插入来脱处、不会后悔吗？」
								CALL SETFLAG, "戴上套套", PLAYER
								CALL INSERT_MESSAGE_K18, "避孕套有些"
							ENDIF
						ELSE
							PRINTFORMW 被轻易地拒绝了…………
							TFLAG:指令中止 = 1
						ENDIF
					ENDIF
				;はじめての性交
				ELSEIF FIRSTCOMS("Ｖ挿入") == 0
					PRINTFORMW 「……因为有丈夫、所以如果可以的话、希望不要用小穴做爱……」
					PRINTFORMW 「那个样子、就算说不行也听不到啊……唉、没办法」
					PRINTFORMW 「只是！请好好地带着套做。万一怀孕了、双方都会为难吧？」
					SIF ITEM:避孕套 == 0
						PRINTFORMW 「……没有准备套套吗？那么、就这样吧。下次要记得呦」
					IF TALENT:PLAYER:童貞
						PRINTFORML
						IF ITEM:避孕套 == 0
							CALL PRINT_SELECT, "第一次、请让我生插入吧！/今天放弃……"
						ELSE
							CALL PRINT_SELECT, "第一次、请让我生插入吧！“按照约定、戴上避孕套"
						ENDIF
						PRINTFORML
						IF RESULT == 0
							PRINTFORMW 「哈、哈？不、因为是第一次所以没関系、这种事……」
							PRINTFORMW 「但是、听说对于男孩子来说初次体验很重要……嗯……」
							IF COND("安全日") || COND("避妊中")
								PRINTFORMW 「没办法。今天是安全日……只有这一次、是特别的啊？」
								CALL INSERT_MESSAGE_K18, "避孕套没有"
								CALL SET_CEVENT, "初体験中"
							ELSE
								PRINTFORMW 「……知道了、那么就这样吧」
								IF ITEM:避孕套 == 0
									PRINTFORMW 「今天不是安全日啊、我不能让你做、不过到了安全日我会让你直接插入哦」
									PRINTFORMW 「所以、今天就忍一忍、好吗？」
									PRINTFORML
									PRINTFORMW %CALLNAME:MASTER%与%CALLNAME:TARGET%做了首次体验的约定！
									CALL SET_CEVENT, "初体験の約束"
									TFLAG:指令中止 = 1
								ELSE
									PRINTFORMW 「今天不是安全日啊、我不能让你做、不过到了安全日我会让你无套插入的……怎么样？」
									PRINTFORML
									CALL PRINT_SELECT, "明白了、我忍一忍！/戴上避孕套现在就做"
									PRINTFORML
									IF RESULT == 0
										PRINTFORMW 「是、是吗……你想要直接插进来吗……」
										PRINTFORMW 「那么……、在那一天到来之前忍一忍、好吗？」
										PRINTFORML
										PRINTFORMW %CALLNAME:MASTER%与%CALLNAME:TARGET%做了首次体验的约定！
										CALL SET_CEVENT, "初体験の約束"
										TFLAG:指令中止 = 1
									ELSE
										PRINTFORMW 「……这样啊。嘛、%CNAME("二人称")%愿意的话也没関系」
										PRINTFORMW 「不能直接插入来脱处、不会后悔吗？」
										CALL SETFLAG, "戴上套套", PLAYER
										CALL INSERT_MESSAGE_K18, "避孕套有些"
									ENDIF
								ENDIF
							ENDIF
						ELSEIF ITEM:避孕套 == 0
							PRINTFORMW %CALLNAME:MASTER%不情愿地放弃了无套插入……
							TFLAG:指令中止 = 1
						ELSE
							CALL SETFLAG, "戴上套套", PLAYER
							CALL INSERT_MESSAGE_K18, "避孕套有些"
						ENDIF
					ELSEIF ITEM:避孕套 == 0
						PRINTFORMW %CALLNAME:MASTER%不情愿地放弃了无套插入……
						TFLAG:指令中止 = 1
					ELSE
						CALL INSERT_MESSAGE_K18, "避孕套有些"
						CALL SETFLAG, "戴上套套", PLAYER
					ENDIF
				;避孕套がない
				ELSEIF ITEM:避孕套 == 0
					IF CHOSECOMS("Ｖ挿入") == 0
						PRINTFORMW 「……嗯？怎么了、没有准备避孕套吗？」
					ELSE
						PRINTFORMW 「什么嘛、已经没有避孕套了吗？」
					ENDIF
					IF COND("安全日") || COND("避妊中")
						PRINTFORMW 「那就没办法了。虽然很可惜、但H就没办法了啊……唔？今天应该是安全日吧？」
						PRINTFORMW 「……%CNAME("二人称")%为什么掌握了%CNAME("一人称")%的安全日这点非常值得怀疑……但是无论如何、也应该遵守约定吧」
						PRINTFORMW 「就算是个体育教师、也要教学生正确的保健知识啊」
						PRINTFORMW 被轻易地拒绝了…………
					ELSE
						PRINTFORMW 「那就没办法了。很遗憾、H可不行。下次再说吧」
						PRINTFORMW 被轻易地拒绝了…………
					ENDIF
					TFLAG:指令中止 = 1
				;避孕套はあるけどつけない
				ELSE
					PRINTFORMW 「喂。不行啊、好好地戴上避孕套吧」
					;口で避孕套つけてくれる
					IF ABL:舌靈活 >= 3 && RAND:2 == 0
						PRINTFORMW 「老师会帮你戴上的……来吧、交给我~……嗯、啊啊——」
						PRINTFORMW %CALLNAME:TARGET%把安全套含在嘴唇里、就那样到直接把%CALLNAME:MASTER%的阴茎含到根部、戴上了避孕套……
						IF CHOSECOMS("Ｖ挿入") == 0 && ABL:施虐属性 >= 3
							CALL PRINT_STR, @"「%KOJO_RAND_K18("口交")%」_W_"
							PRINTFORMW %CALLNAME:TARGET%就这样从嘴巴里吐出了阴茎、黏糊糊的唾液像涂层一样滴落在肉棒上……
							PRINTFORMW 在%CALLNAME:TARGET%巧妙的口交服侍下、%CALLNAME:MASTER%的射精感越来越强了！
							PRINTFORMW 「——呵呵~……怎么了？露出那样不像样的表情~」
							PRINTFORMW %CALLNAME:TARGET%在快要爆发的紧要関頭停下了、微笑着看着这边……
							PRINTFORMW 「你看……这个胀大到不行的小鸡鸡、到底想干什么呀~？嗯？」
						ELSEIF RAND:2 == 0
							PRINTFORMW 「——噗哈……嗯、这样就行了吧。好啦」
						ELSE
							PRINTFORMW 「――噗噜噗噜……呵呵、准备好了……那么、開始吧~」
						ENDIF
						CALL INSERT_MESSAGE_K18, "避孕套没有"
						CALL SETFLAG, "戴上套套", PLAYER
					ELSE
						PRINTFORMW 「老师会帮你戴的……来、交给我」
						PRINTFORMW %CALLNAME:TARGET%拿起了避孕套、帮%CALLNAME:MASTER%的阴茎戴上了……
						IF CHOSECOMS("Ｖ挿入") == 0 && ABL:施虐属性 >= 3
							PRINTFORMW 「真是的……只是肉体上的関系、不要越界是有必要的。你明白吗？嗯？」
							PRINTFORMW %CALLNAME:TARGET%嘴上说着手却没停下来、隔着套套上下用力地搓弄起来……
							PRINTFORMW 被毫不留情地强行责备、眼看着%CALLNAME:MASTER%到了爆发的边缘……！
							PRINTFORMW 「……哦、呵呵~。差点儿就这么射了呢……呵呵~」
							PRINTFORMW %CALLNAME:TARGET%在最后一刻、手突然从不停脉动的肉棒上松開了……
							PRINTFORMW 「不知不觉就想欺负你呢~。为了表示歉意、你看……老师、随·你·使·用·呦」
						ELSEIF RAND:2 == 0
							PRINTFORMW 「……嗯、这样就行了。好了」
						ELSE
							PRINTFORMW 「呵呵、准备好了……那么、開始吧~」
						ENDIF
						CALL INSERT_MESSAGE_K18, "避孕套没有"
						CALL SETFLAG, "戴上套套", PLAYER
					ENDIF
				ENDIF
			ELSEIF TALENT:恋慕 && SELECTCOM != 65
				IF CHOSECOMS("Ｖ挿入") == 0
					PRINTFORMW 「……好好地、避孕套……」
					PRINTFORMW %CALLNAME:TARGET%在语言上拒绝了，但却没了平时坚定的样子。
					PRINTFORMW 被%CALLNAME:MASTER%目不转睛地凝视着脸颊、只是害羞地转过脸去、感受不到有抵抗的想法……
				ELSEIF RAND:2 == 0
					PRINTFORMW 「……啊……」
					PRINTFORMW %CALLNAME:TARGET%无言地瞪着没有避孕打算的%CALLNAME:MASTER%。
					PRINTFORMW 但却能从她的眼神深处感受到了某种炙热的期待……
				ELSE
					PRINTFORMW 「啊……不行、不行、只有这个……」
					PRINTFORMW %CALLNAME:TARGET%想要用手推開逼近的%CALLNAME:MASTER%。
					PRINTFORMW 但是明显没有用力、感觉不是在真正的拒绝……
				ENDIF
				CALL INSERT_MESSAGE_K18, "強行"
				IF RAND:3 == 0
					CALL PRINT_STR, "「……啊……无套肉棒、插进来了……_HH_哈~啊啊……嗯_HH_」_W_"
				ELSEIF RAND:2 == 0
					CALL PRINT_STR, "「……讨厌、整个都……_HH_啊、哈…………_HH_」_W_"
				ELSE
					CALL PRINT_STR, "「……“……啊、来了……_HH_嗯……呼…………_HH_」_W_"
				ENDIF
				TFLAG:地の文スキップ = 1
			ENDIF
		ENDIF
	;PLAYヤーへの挿入指令
	ELSEIF TRAIN_GENRE("逆挿入", SELECTCOM)
		;PLAYヤーは着けてもらうの希望
		IF TEQUIP:避孕套

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

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

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

		ENDIF
	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

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
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 CEVENT("初体験中")
		IF RAND:2
			PRINTFORMW 「ふふふ……どうだ？」
			PRINTFORMW 「せっかくの初体験だ…思い出は多い方がいいよな？」
		ELSE
			PRINTFORMW 「授業じゃここまでは教えられんからな…%CNAME("二人称")%には特別だ♪」
		ENDIF
	;恋慕
	ELSEIF TALENT:恋慕 && RAND:2
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW 「好き放題に使ってくれるな、%CNAME("二人称")%は……」
			PRINTFORMW 「こんな教え子を持つと教師は苦労するよ、まったく…♪」
		ELSE
			PRINTFORMW 「はぁ……はぁ……」
			PRINTFORMW 「これがどういう結果になるか…%CNAME("二人称")%はわかってるんだよな……？」
		ENDIF
	ELSE
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW 「こっちの体が保つか可疑な…まったく」
			PRINTFORMW 「ほら見ろ、你のせいでこうなったんだぞ…♪」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%…自分が何したかわかってるのか…？」
			PRINTFORMW 「ちょっとは反省しろ、バカ…！」
		ENDIF
	ENDIF

;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	PRINTFORMW
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
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_K18, 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

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

;-------------------------------------------------
;避孕套装着の地の文
;-------------------------------------------------
@INSERT_MESSAGE_K18, 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("太股：描写")%足をＭ字に開かせ
		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

;-------------------------------------------------
;口上の随机生成関数
;eraSQNのクズノハ口上からお借りしています
;口上作者桑からは許可いただいてます。感謝感謝……
;-------------------------------------------------
@KOJO_RAND_K18(ARGS, ARG)
#FUNCTIONS
IF ARG == 0
	ARG = 2 + RAND:2
	;ARG += RAND:2
ENDIF
LOCALS =
FOR LOCAL, 0, ARG
	SIF LOCAL
		LOCALS += ""
	SELECTCASE ARGS
	CASE "接吻"
		;欲情Lv7以上or欲情Lv5以上+情緒80以上
		IF PALAM:欲情 >= PALAMLV:7 || (PALAM:欲情 >= PALAMLV:5 && MOOD_HEART() >= 3)
			SELECTCASE RAND:42
			CASE 41
				LOCALS = %LOCALS%ん……ちゅ……はふ…
			CASE 40
				LOCALS = %LOCALS%はむ、ん、んんぅ……
			CASE 39
				LOCALS = %LOCALS%んふ……んん…_HH_　ふぁ…ちゅぅ…
			CASE 38
				LOCALS = %LOCALS%んちゅ……ぷは、ぁ……ぁむ
			CASE 37
				LOCALS = %LOCALS%ぅん…ちゅ…くちゅ……
			CASE 36
				LOCALS = %LOCALS%はむ、ん、んんぅ……
			CASE 35
				LOCALS = %LOCALS%んふ……んん…_HH_　ふぁ…
			CASE 34
				LOCALS = %LOCALS%んちゅ……ぷは、ぁ……
			CASE 33
				LOCALS = %LOCALS%んぁ……ぁむ…ちゅ…
			CASE 32
				LOCALS = %LOCALS%んふ…ちゅ…んん…、ぁふ…
			CASE 31
				LOCALS = %LOCALS%ぁむ…ちゅぅ……、ぷは、ぁ……あふぅ…
			CASE 30
				LOCALS = %LOCALS%んちゅ…ぁ、むぅ……はふ、鞭子ゅ～～…
			CASE 29
				LOCALS = %LOCALS%…ぅん…ちゅ…はむ…
			CASE 28
				LOCALS = %LOCALS%んん…ちゅぅ…ぁふ…
			CASE 27
				LOCALS = %LOCALS%ちゅ……ん、んん……
			CASE 26
				LOCALS = %LOCALS%…ぅん…ちゅ…くちゅ…
			CASE 25
				LOCALS = %LOCALS%ちゅ…ぁむ……んん_HH_　ちゅ
			CASE 24
				LOCALS = %LOCALS%ぁむ…れろ……ん、ちゅぅ…
			CASE 23
				LOCALS = %LOCALS%ちゅっ、ちゅぅ…ちゅ…
			CASE 22
				LOCALS = %LOCALS%ぁむっ_HH_　はふ、ちゅ、ちゅぅ～～
			CASE 21
				LOCALS = %LOCALS%んっ_HH_ちゅっ、ちゅっ、ちゅ
			CASE 20
				LOCALS = %LOCALS%ちゅ～～～～～～
			CASE 19
				LOCALS = %LOCALS%ちゅっ_HH_　ちゅっ_HH_　ちゅ……
			CASE 18
				LOCALS = %LOCALS%あむっ、はふっ_HH_　くちゅっ、ちゅ
			CASE 17
				LOCALS = %LOCALS%ちゅ…、ちろちろ、ちゅ
			CASE 16
				LOCALS = %LOCALS%んっ_HH_　ちゅっ、つっ、ちゅ…
			CASE 15
				LOCALS = %LOCALS%ちゅっ、ちゅっちゅるる
			CASE 14
				LOCALS = %LOCALS%ちゅっ、ちゅっ……はむ
			CASE 13
				LOCALS = %LOCALS%ちゅう、ちゅぅ～
			CASE 12
				LOCALS = %LOCALS%ちゅっ、っちゅ…くちゅっ、ちゅ
			CASE 11
				LOCALS = %LOCALS%んちゅっ_HH_　ちゅっ、ちゅくちゅく
			CASE 10
				LOCALS = %LOCALS%ちゅっ、ちゅく
			CASE 9
				LOCALS = %LOCALS%ちゅっ、ちゅくっ_HH_　ちゅう～
			CASE 8
				LOCALS = %LOCALS%んっ_HH_　ちゅっ、ちゅ～～
			CASE 7
				LOCALS = %LOCALS%はむっ………んふっ、ちゅ
			CASE 6
				LOCALS = %LOCALS%あむっ…ちゅっ、チュッ…
			CASE 5
				LOCALS = %LOCALS%っちゅ…ちゅ～～っ、ちゅっ、ちゅ
			CASE 4
				LOCALS = %LOCALS%はむっ…ん、ちゅっ、ちゅっ
			CASE 3
				LOCALS = %LOCALS%ちゅく、ちゅく…ちゅるる
			CASE 2
				LOCALS = %LOCALS%ん～～っ、んっ、ちゅ
			CASE 1
				LOCALS = %LOCALS%ちゅっ、ちゅう…
			CASE 0
				LOCALS = %LOCALS%ぁむ……んん…んむ…
			ENDSELECT
		ELSE
			SELECTCASE RAND:20
			CASE 19
				LOCALS = %LOCALS%ん……ちゅ……
			CASE 18
				LOCALS = %LOCALS%はむ、んぅ……
			CASE 17
				LOCALS = %LOCALS%んふ……んん……ちゅ……
			CASE 16
				LOCALS = %LOCALS%ん………ぷは、ぁ……
			CASE 15
				LOCALS = %LOCALS%ぅん………ちゅ……
			CASE 14
				LOCALS = %LOCALS%はむ、ん、んん……
			CASE 13
				LOCALS = %LOCALS%んふ……ん……
			CASE 12
				LOCALS = %LOCALS%ん……ちゅ……
			CASE 11
				LOCALS = %LOCALS%ん……ぁむ……
			CASE 10
				LOCALS = %LOCALS%んふ…ちゅ…んん……
			CASE 9
				LOCALS = %LOCALS%ぁむ…ちゅぅ……
			CASE 8
				LOCALS = %LOCALS%んちゅ…ぁ、むぅ……
			CASE 7
				LOCALS = %LOCALS%…ぅん…ちゅ……
			CASE 6
				LOCALS = %LOCALS%んん…ちゅぅ……
			CASE 5
				LOCALS = %LOCALS%ちゅ……ん、んん……
			CASE 4
				LOCALS = %LOCALS%…ぅん…ちゅ……
			CASE 3
				LOCALS = %LOCALS%ちゅ…ん、む……
			CASE 2
				LOCALS = %LOCALS%ぁむ…れろ……
			CASE 1
				LOCALS = %LOCALS%ちゅっ…ちゅ……
			CASE 0
				LOCALS = %LOCALS%ぁむ……んん…んむ…
			ENDSELECT
		ENDIF
		IF LOCAL < ARG - 1
			IF (TALENT:恋慕 || TALENT:淫乱)
				LOCALS = %LOCALS%%TEXTR("＿", "…")%%TEXTR("＿", "、", "っ、", "_HH_　", "っ_HH_　")%
			ELSE
				LOCALS = %LOCALS%%TEXTR("＿", "…")%%TEXTR("＿", "、", "っ、")%
			ENDIF
		ELSE
			IF (TALENT:恋慕 || TALENT:淫乱) || (PALAM:欲情 >= PALAMLV:7 || (PALAM:欲情 >= PALAMLV:5 && MOOD_HEART() >= 3))
				LOCALS = %LOCALS%%TEXTR("＿", "…", "っ", "…っ")%_HH_
			ELSE
				LOCALS = %LOCALS%%TEXTR("＿", "…", "っ", "…っ")%！
			ENDIF
		ENDIF
	;ちゅぱ音生成
	CASE "口交"
		;欲情Lv7以上or欲情Lv5以上+情緒80以上
		IF PALAM:欲情 >= PALAMLV:7 || (PALAM:欲情 >= PALAMLV:5 && MOOD_HEART() >= 3)
			SELECTCASE RAND:55
			CASE 54
				LOCALS = %LOCALS%じゅっぽっ、じゅっぽっ、じゅっぽっ
			CASE 53
				LOCALS = %LOCALS%じゅぼっ、じゅぼっ、じゅぼっ、じゅぼっ
			CASE 52
				LOCALS = %LOCALS%ぐぽっ、ぐぽっ、ぐぽっ、ぐぽっ
			CASE 51
				LOCALS = %LOCALS%ちゅぅぅ……れろ、れろ…
			CASE 50
				LOCALS = %LOCALS%れろ、ちゅ、じゅるる…
			CASE 49
				LOCALS = %LOCALS%じゅる、じゅるる……ぷは、ちゅ…
			CASE 48
				LOCALS = %LOCALS%ちゅぅぅ…じゅるる…
			CASE 47
				LOCALS = %LOCALS%ちゅぅ…れろれろ…
			CASE 46
				LOCALS = %LOCALS%ちゅぅ……れろ…
			CASE 45
				LOCALS = %LOCALS%じゅぶ、じゅるる…
			CASE 44
				LOCALS = %LOCALS%じゅぶ、じゅるるっ…
			CASE 43
				LOCALS = %LOCALS%ぁむっ…ちゅぅ…
			CASE 42
				LOCALS = %LOCALS%ちゅぱっ……ちゅぷっ…
			CASE 41
				LOCALS = %LOCALS%くちゅ……ちゅぅ…
			CASE 40
				LOCALS = %LOCALS%ちゅっ……くちゅ…
			CASE 39
				LOCALS = %LOCALS%ぴちゃ……ちゅぅ…
			CASE 38
				LOCALS = %LOCALS%ぴちゃ…ぺろ…ちゅっ…
			CASE 37
				LOCALS = %LOCALS%ぅん…ちゅ…くちゅ…
			CASE 36
				LOCALS = %LOCALS%じゅぷ、ちゅる…ちゅぽっ
			CASE 35
				LOCALS = %LOCALS%ぺろっ…ふふ…くちゅ…
			CASE 34
				LOCALS = %LOCALS%んちゅ……ぷは、ぁ…
			CASE 33
				LOCALS = %LOCALS%んぁ……ぁむ…ちゅ…
			CASE 32
				LOCALS = %LOCALS%んふ…ちゅ…んん…
			CASE 31
				LOCALS = %LOCALS%ぁむ…ちゅぅ…
			CASE 30
				LOCALS = %LOCALS%じゅぷ、じゅぷ…
			CASE 29
				LOCALS = %LOCALS%ぅん…ちゅ…はむ…
			CASE 28
				LOCALS = %LOCALS%んん…ちゅぅ…ぁふ…
			CASE 27
				LOCALS = %LOCALS%ちゅ……ん、んん…
			CASE 26
				LOCALS = %LOCALS%ぅん…ちゅ…くちゅ…
			CASE 25
				LOCALS = %LOCALS%ちゅ…ぁむ……んん♪　ちゅ
			CASE 24
				LOCALS = %LOCALS%ぁむ…れろ……ん、ちゅぅ…
			CASE 23
				LOCALS = %LOCALS%ふぁ……んくッ……ちゅ
			CASE 22
				LOCALS = %LOCALS%じゅぷじゅぷっ、じゅる
			CASE 21
				LOCALS = %LOCALS%んっ…んむ……ちゅっ、ちゅ…
			CASE 20
				LOCALS = %LOCALS%じゅるっ…んっ…んむ…
			CASE 19
				LOCALS = %LOCALS%ぴちゃ…ちゅむっ…
			CASE 18
				LOCALS = %LOCALS%あむっ、はふっ♪　くちゅっ、ちゅ
			CASE 17
				LOCALS = %LOCALS%ちゅ…、ちろちろ、ちゅ
			CASE 16
				LOCALS = %LOCALS%んっ♪　ちゅっ、つっ、ちゅ…
			CASE 15
				LOCALS = %LOCALS%ちゅっ、ちゅっちゅるる…
			CASE 14
				LOCALS = %LOCALS%ちゅっ、ちゅっ……はむ
			CASE 13
				LOCALS = %LOCALS%ちゅ…じゅぼ、じゅる…
			CASE 12
				LOCALS = %LOCALS%ぴちゃ…ちゅむっ…
			CASE 11
				LOCALS = %LOCALS%じゅるっ…んっ…む…
			CASE 10
				LOCALS = %LOCALS%じゅく、じゅぷじゅぷっ、くちゅぅ…
			CASE 9
				LOCALS = %LOCALS%ちゅっ、ちゅくっ♪　ちゅう～
			CASE 8
				LOCALS = %LOCALS%んっ♪　ちゅっ、ちゅ～～
			CASE 7
				LOCALS = %LOCALS%はむっ………んふっ、ちゅ
			CASE 6
				LOCALS = %LOCALS%あむっ…ちゅっ、ちゅ…
			CASE 5
				LOCALS = %LOCALS%ちゅぷっ、くちゃ…ちゅ
			CASE 4
				LOCALS = %LOCALS%はむっ…ん、ちゅっ、ちゅ
			CASE 3
				LOCALS = %LOCALS%ちゅく、ちゅく…ちゅるる
			CASE 2
				LOCALS = %LOCALS%ちゅっ、ぺろ…
			CASE 1
				LOCALS = %LOCALS%ぷぁ……じゅる
			CASE 0
				LOCALS = %LOCALS%れろ……ぁむ、ちゅ…
			ENDSELECT
		ELSE
			SELECTCASE RAND:52
			CASE 51
				LOCALS = %LOCALS%ちゅ……れろ、れろ…
			CASE 50
				LOCALS = %LOCALS%れろ……じゅる…る…
			CASE 49
				LOCALS = %LOCALS%じゅる、じゅるる……
			CASE 48
				LOCALS = %LOCALS%ちゅ……じゅる、る…
			CASE 47
				LOCALS = %LOCALS%ちゅ…れろ……
			CASE 46
				LOCALS = %LOCALS%ちゅ……れろ…
			CASE 45
				LOCALS = %LOCALS%じゅぶ、じゅる…
			CASE 44
				LOCALS = %LOCALS%じゅぶ、じゅるるっ…
			CASE 43
				LOCALS = %LOCALS%ぁむっ…ちゅ……
			CASE 42
				LOCALS = %LOCALS%ちゅぱ……ちゅぷっ…
			CASE 41
				LOCALS = %LOCALS%くちゅ……ちゅぅ…
			CASE 40
				LOCALS = %LOCALS%ちゅ……くちゅ…
			CASE 39
				LOCALS = %LOCALS%ぴちゃ……ちゅ……
			CASE 38
				LOCALS = %LOCALS%ぴちゃ……ちゅ…
			CASE 37
				LOCALS = %LOCALS%ぅん…ちゅ、くちゅ…
			CASE 36
				LOCALS = %LOCALS%じゅぷ、ちゅる…ちゅぷ…
			CASE 35
				LOCALS = %LOCALS%ぺろっ……くちゅ…
			CASE 34
				LOCALS = %LOCALS%んちゅ……ぷは…
			CASE 33
				LOCALS = %LOCALS%んぁ……ぁむ…ちゅ…
			CASE 32
				LOCALS = %LOCALS%ん…ちゅ……
			CASE 31
				LOCALS = %LOCALS%ぁむ…ちゅ…
			CASE 30
				LOCALS = %LOCALS%じゅぷ、じゅぷ…
			CASE 29
				LOCALS = %LOCALS%ぅん……はむ…
			CASE 28
				LOCALS = %LOCALS%んん…ちゅ……
			CASE 27
				LOCALS = %LOCALS%ちゅ……ん、んん…
			CASE 26
				LOCALS = %LOCALS%ん…ちゅ……くちゅ…
			CASE 25
				LOCALS = %LOCALS%ちゅ…ぁむ…んん…
			CASE 24
				LOCALS = %LOCALS%ぁむ…れろ……ん、ちゅ…
			CASE 23
				LOCALS = %LOCALS%ふぁ……んくッ……ちゅ
			CASE 22
				LOCALS = %LOCALS%じゅぷ、じゅる……
			CASE 21
				LOCALS = %LOCALS%んっ…んむ……ちゅ、ちゅ…
			CASE 20
				LOCALS = %LOCALS%じゅる……んっ…んむ…
			CASE 19
				LOCALS = %LOCALS%ぴちゃ…ちゅむっ…
			CASE 18
				LOCALS = %LOCALS%あむ…、くちゅ…
			CASE 17
				LOCALS = %LOCALS%ちゅ…、ちゅ…
			CASE 16
				LOCALS = %LOCALS%んっ、ちゅ…っ、ちゅ…
			CASE 15
				LOCALS = %LOCALS%ちゅっ、ちゅ…ちゅるる…
			CASE 14
				LOCALS = %LOCALS%ちゅっ、ちゅっ……んむ…
			CASE 13
				LOCALS = %LOCALS%ちゅ…じゅぼ、じゅる…
			CASE 12
				LOCALS = %LOCALS%ぴちゃ…ちゅむっ…
			CASE 11
				LOCALS = %LOCALS%じゅるっ……んっ…む…
			CASE 10
				LOCALS = %LOCALS%じゅく、じゅぷ…くちゅぅ…
			CASE 9
				LOCALS = %LOCALS%ちゅっ、ちゅく、ちゅ…
			CASE 8
				LOCALS = %LOCALS%んっ、ちゅ…ちゅ…
			CASE 7
				LOCALS = %LOCALS%はむ……んふ…、ちゅ
			CASE 6
				LOCALS = %LOCALS%あむ……ちゅっ、ちゅ…
			CASE 5
				LOCALS = %LOCALS%ちゅぷっ、くちゃ…ちゅ
			CASE 4
				LOCALS = %LOCALS%はむっ…ん、ちゅ…ちゅ
			CASE 3
				LOCALS = %LOCALS%ちゅく……ちゅるる
			CASE 2
				LOCALS = %LOCALS%ちゅっ、ぺろ…
			CASE 1
				LOCALS = %LOCALS%ぷぁ……じゅる
			CASE 0
				LOCALS = %LOCALS%れろ……ぁむ、ちゅ…
			ENDSELECT
		ENDIF
		IF LOCAL < ARG - 1
			IF (TALENT:恋慕 || TALENT:淫乱)
				LOCALS = %LOCALS%%TEXTR("＿", "…")%%TEXTR("＿", "、", "っ、", "♪　", "っ♪　")%
			ELSE
				LOCALS = %LOCALS%%TEXTR("＿", "…")%%TEXTR("＿", "、", "っ、")%
			ENDIF
		ELSE
			IF (TALENT:恋慕 || TALENT:淫乱) || (PALAM:欲情 >= PALAMLV:7 || (PALAM:欲情 >= PALAMLV:5 && MOOD_HEART() >= 3))
				LOCALS = %LOCALS%%TEXTR("＿", "…", "っ", "…っ")%♪
			ELSE
				LOCALS = %LOCALS%%TEXTR("＿", "…", "っ", "…っ")%！
			ENDIF
		ENDIF
	;強制口交音生成
	CASE "強制口交"
		SELECTCASE RAND:56
		CASE 55
			LOCALS = %LOCALS%んげ、ぇ……、ぉごっ……
		CASE 54
			LOCALS = %LOCALS%っご、ぉぶ……ん、ぐ…
		CASE 53
			LOCALS = %LOCALS%んぶっ、ぐ…げぇ…
		CASE 52
			LOCALS = %LOCALS%んご、ぉげ……、ぐ…
		CASE 51
			LOCALS = %LOCALS%んぐぅぅぅぅ…
		CASE 50
			LOCALS = %LOCALS%んぐっ、こほっ、こほっ…
		CASE 49
			LOCALS = %LOCALS%ぐっ、ん、ぅぐ…
		CASE 48
			LOCALS = %LOCALS%げほっ、ごほごほっ…
		CASE 47
			LOCALS = %LOCALS%んくっぅぅ…
		CASE 46
			LOCALS = %LOCALS%んんっ、ぐっ、んっ
		CASE 45
			LOCALS = %LOCALS%じゅぶ、じゅるる…
		CASE 44
			LOCALS = %LOCALS%じゅぶ、じゅるるっ…
		CASE 43
			LOCALS = %LOCALS%じゅぼっ…ん、ちゅば…
		CASE 42
			LOCALS = %LOCALS%はぁ、んぐ…
		CASE 41
			LOCALS = %LOCALS%げっ！　…ぇほっ、んぁぁ…
		CASE 40
			LOCALS = %LOCALS%ん……じゅるっ、んぐぅっ…
		CASE 39
			LOCALS = %LOCALS%んぐ……じゅる…
		CASE 38
			LOCALS = %LOCALS%じゅぶっ……れろ、れろ…
		CASE 37
			LOCALS = %LOCALS%ん、くぅ……けほっ、んっ
		CASE 36
			LOCALS = %LOCALS%んぐぅ……ッ、ぐ…
		CASE 35
			LOCALS = %LOCALS%むぐっ、んふ、じゅぼっ…んぅ、じゅる…
		CASE 34
			LOCALS = %LOCALS%んぐっ、んむぅ…
		CASE 33
			LOCALS = %LOCALS%じゅるっ…んんぅっ、じゅる…
		CASE 32
			LOCALS = %LOCALS%んんっ、ぐっ、ん、ぅぐ…
		CASE 31
			LOCALS = %LOCALS%むぅ、んっ…けほっ…
		CASE 30
			LOCALS = %LOCALS%じゅぷ、じゅぷ…
		CASE 29
			LOCALS = %LOCALS%むぐ！？…んんっ、ぐ…
		CASE 28
			LOCALS = %LOCALS%ん、ぅぐ…げほっ、んっ、んぐっ…
		CASE 27
			LOCALS = %LOCALS%んんっ、ぐっ、ん、ぅぐ…むぅ、んっ…
		CASE 26
			LOCALS = %LOCALS%んん…ちゅ…んぐっ…
		CASE 25
			LOCALS = %LOCALS%んんっ…ぁふ、んんっ…
		CASE 24
			LOCALS = %LOCALS%れろ……ぁぶ、んんぶ…ぐぅっ
		CASE 23
			LOCALS = %LOCALS%ふぁ……んくッ……
		CASE 22
			LOCALS = %LOCALS%じゅぷじゅぷっ、じゅるっ…
		CASE 21
			LOCALS = %LOCALS%んっ…んむ……れろ…んむ…
		CASE 20
			LOCALS = %LOCALS%じゅるっ…んっ…んむ…
		CASE 19
			LOCALS = %LOCALS%じゅぶ…ちゅむっ…
		CASE 18
			LOCALS = %LOCALS%んむっ、んんっ…んぶっ…
		CASE 17
			LOCALS = %LOCALS%んぐぅっ！　んっ、んんんっぅ～
		CASE 16
			LOCALS = %LOCALS%むぐっ、んっ………～～～っ！　ぷは、ぁっ…
		CASE 15
			LOCALS = %LOCALS%んむっ、んっ……んん、んんぅぅぅ～～
		CASE 14
			LOCALS = %LOCALS%んぐっ、んぶっ…じゅぼ、じゅぶ…
		CASE 13
			LOCALS = %LOCALS%んぶっ…じゅぼ、じゅる…
		CASE 12
			LOCALS = %LOCALS%ぴちゃ…じゅるるっ…
		CASE 11
			LOCALS = %LOCALS%じゅるっ…んっ…む…
		CASE 10
			LOCALS = %LOCALS%じゅく、じゅぷじゅぷっ、くちゅぅ…
		CASE 9
			LOCALS = %LOCALS%じゅぅ…んぐ、んん…
		CASE 8
			LOCALS = %LOCALS%むぐっ！？　げほっ…ぉえ…
		CASE 7
			LOCALS = %LOCALS%んんっ……じゅぶ…
		CASE 6
			LOCALS = %LOCALS%んぐっ……んふっ、じゅぶ…
		CASE 5
			LOCALS = %LOCALS%んんんっ、ぁふ、ぁむっ、んんっ…
		CASE 4
			LOCALS = %LOCALS%んんぅっ！？　げほっ…ぁふ、ぅぅ…むぐ…
		CASE 3
			LOCALS = %LOCALS%じゅる…じゅぶ、じゅぶぶ…
		CASE 2
			LOCALS = %LOCALS%んんっ、じゅる…じゅぅぅ…
		CASE 1
			LOCALS = %LOCALS%ぷぁ……じゅる……れろ…
		CASE 0
			LOCALS = %LOCALS%んくっ、んっ…
		ENDSELECT
		IF LOCAL < ARG - 1
			IF (TALENT:恋慕 || TALENT:淫乱)
				LOCALS = %LOCALS%%TEXTR("＿", "…")%%TEXTR("＿", "、", "っ、", "！　", "っ！　", "♪　", "っ♪　")%
			ELSE
				LOCALS = %LOCALS%%TEXTR("＿", "…")%%TEXTR("＿", "、", "っ、", "！　", "っ！　", "！！　", "っ！！　")%
			ENDIF
		ELSE
			LOCALS = %LOCALS%%TEXTR("＿", "…", "っ", "…っ", "ッ", "…ッ")%
			IF (TALENT:恋慕 || TALENT:淫乱)
				LOCALS = %LOCALS%%TEXTR("！", "！！", "♪")%
			ELSE
				LOCALS = %LOCALS%%TEXTR("！", "！！")%
			ENDIF
		ENDIF
	ENDSELECT
NEXT
RETURNF LOCALS

path: ERB/EVENT_K/18 ホムラ/EVENT_K18_ホムラ.ERB