code:
;-------------------------------------------------
;未亡人子持ち妈妈桑悪魔　麦莉爱娜口上
;製作者　Ｔの人
;-------------------------------------------------
;### コンセプト ###
;
; 温柔的て甘やかしてくれる守備の甜妈妈桑
; --温柔又溺爱地守护着孩子的天真妈妈
; 外見は地味だがそれは派手なプロ薬水と蔷薇ンスを取るためという裏設定がある
; --虽然打扮得很不起眼，但那是为了掩盖艳丽的身材曲线，有这种秘密设定
; シリアスさは控えめに、ただし背徳感には力を入れていきたい
; --减少了严肃的感觉，但是在背德感上下了很多功夫
; 情緒が100以上になると台詞が微妙に変化するギミック付き
; --气氛达到100以上，台词会有微妙的变化。
;
;### 指令使用制限 ###
;
; 最初は本番行為が禁止されているが、
; --最初的调教中禁止动真格，但是
; 好感度1000以上で調教を開始することで解禁される（蔷薇ンス検討中）
; --当好感值到达1000以上后，会在调教開始时解禁（平衡检讨中）
;
; ただし、潤滑と情緒が高い状態で素股すると調教ごとに一度だけ正常位に移行することができる
; -然而，如果曾在润滑和气氛值高的状态下，在素股调教时选择移入正常位的话，
; Ｖ系派生指令で挿入を続けることもできるが反感が很多に溜圆圈
; --V系派生命令同样可以使用，但是会积累更多地反感点数
;
;### プロット ###
;
; 実の母親が悪魔だったので契約を利用してＨ的ことをする。以上。
; --因为实母是恶魔，所以利用了契约来做H的事情。以上。
; 割と軽いノリでＯＫしてくれるので近親相姦に伴う苦悩といったシリアスさは皆無だが、
; --意外很轻易的就被接受了，所以没有通常和近亲相奸一起的严肃的苦恼
; 随所で母親らしい態度を取らせることで背徳感をブーストしたい。
; --通过满满的母亲态度来提升了背德感
;
;### 口調 ###
;
; 普段はやや丁寧な「タメ口」で話すが、説教するときや怒ったとき「ですます調」になる
; --平常会用比较礼貌的「タメ口」（哥们儿话）来对话，但是说教时或者生气时语气会变得严肃「ですます調」
;「ら抜き言葉」を多様不会うに気を付ける
; --注意不要过多使用「ら抜き言葉」（无ra形式） //即语法需要比较正式
;
; 屈服しようが恋慕しようがアヘ顔を晒そうが「おちんぽ欲しい系」など下品な言葉は避ける
; --屈服系也好，恋慕系也好，露出阿嘿颜也好，「おちんぽ欲しい系」（想要おちんぽ系）一类的下流话需要尽量避免
;（独白などで思い浮かべる、態度で示す、強制的に言わされるなどはセーフ）
; --（内心独白、态度表示、被强迫，这类情况下出现的话可以允许）
;
;-------------------------------------------------
;呼び名の設定。"_"の右にふりがなを書く。
;-------------------------------------------------
@CNAME_K10, ARGS
#FUNCTIONS

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	IF TALENT:母親
		;炮友を消去することで一人称を変更することができる
		IF TALENT:炮友
			IF TALENT:MASTER:外見年齢 == 1
				LOCALS = 妈妈_妈妈
			ELSE
				LOCALS = 母亲_母亲
			ENDIF
		ELSE
			LOCALS = 我_我
		ENDIF
	ELSE
		;炮友を消去することで一人称を変更することができる
		IF TALENT:炮友
			LOCALS = 老师_老师
		ELSE
			LOCALS = 我_我
		ENDIF
	ENDIF
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		LOCALS = 你_你
	;相手が主人ではない
	ELSE
		LOCALS = 你_你
	ENDIF
CASE "主人"
	LOCALS = 主人様_主人大人
CASE "助手"
	IF COND("兄弟", ASSI)
		LOCALS = %CALLNAME:ASSI%_%CALLNAME:ASSI%
	ELSE
		LOCALS = %CALLNAME:ASSI%酱_%CALLNAME:ASSI%酱
	ENDIF
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;勧誘イベントのセリフや紹介文
;ここではTARGETではなくARGとして呼ばれています
;例えば、TALENT:恋慕を条件分に書く場合には TALENT:ARG:恋慕 としてください
;-------------------------------------------------
@EVENT_PROFILE_K10, ARGS
#DIM MEMO_BASE
MEMO_BASE = TALENT:母親

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = 与性感的身材相反，是一位散发着冷静知性气质的女教师。
	STR:2 = 虽然身为恶魔，但还是不顾一切地和人类坠入了爱河，并诞生了爱情的结晶，但是这场跨越种族的恋情也随着十年前丈夫去世而告终。现在和%CONDS("間柄", MASTER)%还有女儿住在一起，十分溺爱孩子。
	PRINTL
	STR:3 = 因为女仆打扮的恶魔和%CONDS("間柄", MASTER)%同居在一起，一想到这件事心里就久久无法平静。
	SIF COND("角色メイク中")
		STR:4 = （如果劝诱的话，将会被视为%CALLNAME:MASTER%的亲生母亲）
CASE "勧誘"
	PRINTFORML - %NAME:TARGET% -
	PRINTFORMW 「真糟糕，没想到会被看穿本来的面目」
	PRINTFORMW 「……那么，是想要什么呢？知识……恋爱成功……还是通融一下提高成绩？」
	PRINTFORMW 「……什么？希望可以处理性欲？」
	PRINTFORMW 「那、那种事去找个女朋友再拜托她不是更好吗！」
	PRINTL
	PRINTFORML （请注意现在口上还没完成，大部分事件尚未实现）
	PRINTFORMW （如果劝诱的话，将会被视为%CALLNAME:MASTER%的亲生母亲）

CASE "勧誘直後"
	PRINTL
	PRINTW ・・
	PRINTW ・・・・
	PRINTW ・・・・・・
	PRINTL
	PRINTFORMW 主人公的亲生母亲%CALLNAME%一直都隐藏着什么。
	PRINTFORMW 小时候父亲就去世了，这个女人独自养育了主人公，是最重要的人。
	PRINTFORMW 如果说迄今为止，没有用看待女性的眼光来观察过她，那是在说谎。
	PRINTFORMW 因为外貌十分年轻，也被朋友用色色的眼神嫉妒过。
	PRINTFORMW 另一方面也很自豪。朴素又不妖艳，是一位漂亮温柔的母亲。
	PRINTFORMW 只是，直到前几天为止都没有想象过。
	PRINTL
	PRINTFORMW 自己的母亲，竟然是恶魔。
	PRINTL
	PRINTFORMW 「脑子一热就和%CONDS("間柄", MASTER)%签订了契约……」
	PRINTFORMW 「这真是一生中的最大的失败……」
	PRINTFORMW %CALLNAME%一边按着太阳穴一边纠结着……
	PRINTFORMW 她頭上长出了两根大角，頭发和眼睛的颜色也有些变化。
	PRINTFORMW 恶魔的角和尾巴。金色的眼睛。是觉得已经没有隐藏的必要了吗。
	PRINTFORMW 顺带一提，背上好像也有翅膀，因为太碍事所以就藏起来了。
	PRINTL
	PRINTFORMW 「话虽如此，不知道为什么，我的真正身份到底还是被你看穿了」
	PRINTFORMW 「……这件事你可不要和其他人说，我知道这是谁出的主意。」
	PRINTFORMW 「你知道灵魂的交易本来就是危险的东西吗？　将它托付给欲望……真是的」
	PRINTFORMW 「本来打算悄悄地在背后守护着你，事到如今也没有办法了」
	PRINTFORMW %CALLNAME%像责备淘气孩子似地叹气，把手搭在腰间，弯腰向前看着这边。
	PRINTFORMW 说教时，习惯性地和对方视线高度保持一致。
	PRINTFORMW 胸部被服装突出着，视线根本无法离開\@TALENT:巨乳?丰盈得快要溢出来的#外形良好的\@乳房。
	PRINTFORMW 眼前这位"最亲近的女性"和最遥远的"契约"彼此交织着，冲击着所谓的真实感……
	PRINTFORMW 伴随着心中这违背道德的冲动，你不由得感觉到血流变快了。
	PRINTL
	PRINTFORMW 「那个，虽然知道你正是那样的年纪，但是不管怎么说，是不是太没有节操了呢」
	PRINTFORMW 注意到投过来的视线，%CALLNAME%端正了姿态说道。
	PRINTFORMW 「就算是恶魔，我也是你的母亲哟？」
	PRINTFORMW 「唉，但契约就是契约，按照约定我也会进行性欲处理的」
	PRINTFORMW 「但做爱是绝对、绝对不可以的。能答应我吗？」
	PRINTFORMW 也就是说，除了做爱之外的都可以做吗？
	PRINTFORMW 「对周围的人提起也是绝对不行的。否则最坏的结果就是要搬家」
	PRINTFORMW 这也会变成问题的吧？
	PRINTFORMW 「因为是灵魂所以一定要慎重，得意忘形什么的绝对不允许」
	PRINTFORMW 这个时候才表现得有点像一个恶魔……
	PRINTL
	PRINTFORMW 「对了对了，还有」
	PRINTFORMW 突然回想起，往日里母亲的声音。
	PRINTFORMW 「千万不要直呼"%CALLNAME%"的真名。记住了吗？」
	PRINTFORMW 以不容分说的口吻制定了规则……
	PRINTL
	PRINTL
	PRINTFORML - 系统信息 -
	CALL KOJO_MODE_SELECT_K10

CASE "自室描写"
	PRINTFORML 充满了童年回忆的房间、空气中飘荡着和%CALLNAME:TARGET%身体一样味道的香气。
	PRINTFORML %CALLNAME:MASTER%读中学前一直都是和妈妈睡在一起的……和现在的"睡在一起"不是一个意思
	PRINTFORML 和%CALLNAME:TARGET%平时的打扮一样、房间的装扮风格非常素净，除開必要的家具、只有几张相片作为装饰
	IF TALENT:恋慕
		;有女儿(樱、南实)
		IF FINDCHARA(NO, 6) > 0 || FINDCHARA(NO, 42) > 0
			PRINTFORML 全部都是与子女的合照、関键的位置是和孩子们也一起在旅行的全家福、大家都笑得十分灿烂
			PRINTFORML 然而细心的%CALLNAME:MASTER%在书架上找到一本隐藏的相册、里面全部是%CALLNAME:TARGET%与%CALLNAME:MASTER%的合照……
			PRINTFORML 里面两人最近的合照、照片里%TEXTR("、两个人额頭相贴扮着鬼脸/麦莉爱娜正被你公主抱/是呆毛翘起的你、和自拍角度的麦莉爱娜")%、经过魔力处理后、着装正常了不少……
			PRINTFORML 不知情的人、恐怕不会认为这一对亲密无间的年轻男女是母子吧……
			PRINTL
			PRINTFORML 不过只要%CALLNAME%挥挥手、障眼法就会散去、露出隐藏的那对沉溺于背德之爱的淫乱母子……
		ELSE
			PRINTFORML 全部是%CALLNAME:MASTER%从小到大的照片…最显眼的位置
			PRINTFORML 放着两人最近的合照、照片里%TEXTR("、两个人额頭相贴扮着鬼脸/麦莉爱娜正被你公主抱/是呆毛翘起的你、和自拍角度的麦莉爱娜")%、经过魔力处理后、着装正常了不少……
			PRINTFORML 不知情的人、恐怕不会认为这一对亲密无间的年轻男女是母子吧……
			PRINTFORML 不过只要%CALLNAME%挥挥手、障眼法就会散去、露出隐藏的那对沉溺于背德之爱的淫乱母子……
		ENDIF
		PRINTFORML 说起来、小时候挂在墙上的%CALLNAME:TARGET%与父亲的合照、已经不知道被收到哪里去了……
	ELSE
	ENDIF

ENDSELECT

;-------------------------------------------------
;この角色が拒否している指令のフラグ立てや其他色々なフラグを開始前に設定できる
;partnerは勿論、指导者の時でも読み込む
;TARGETではなく、ARGとして呼ばれることに注意
;-------------------------------------------------
@SETFLAG_BEFORE_TRAIN_K10
;他の角色がTARGETのときは発生しない
SIF TARGET == ASSI
	RETURN 1

;システム側での合意禁止
SIF COND("合意：本番") == 0 && CEVENT("合意禁止：本番") == 0
	CALL SET_CEVENT, "合意禁止：本番"
SIF COND("合意：肛門性交") == 0 && CEVENT("合意禁止：肛門性交") == 0
	CALL SET_CEVENT, "合意禁止：肛門性交"

IF ABL:Ａ感覚 >= 3 && COND("合意：肛門性交") == 0
	PRINTL
	PRINTFORMW 「那个，是最近的性欲处理的事情」
	PRINTFORMW 「那么%CNAME("二人称")%对%CNAME("一人称")%的屁股很感兴趣吧」
	PRINTL
	PRINTFORMW 「果然和我想的一样呢」
	PRINTFORMW 「也就是说……　想和%CNAME("一人称")%"肛交"吗？」
	PRINTFORMW 「哎呀，不对吗？」
	PRINTFORMW 「嘛，确实，屁股是不会怀孕的……」
	PRINTL
	PRINTFORMW 「嗯，那么就这样吧」
	PRINTFORMW 「无论如何都无法忍耐的时候，即使插入%CNAME("一人称")%的屁股…也可以哦」
	PRINTFORMW 「但是，与其说是“肛交”不如说是“性欲处理”的一环，对吧」
	PRINTFORMW 「如果发泄出去，就会变得冷静下来吧」
	PRINTFORMW 「把%CNAME("一人称")%的屁股当成飞机杯什么的，把邪恶的欲望全部吐出来吧」
	PRINTL
	SETCOLOR DEF_COLOR("黄色")
	PRINTFORML - 系统信息 -
	PRINTFORML  獲得了能和%CALLNAME:TARGET%肛交的协议。
	PRINTFORML  A插入系统指令可以使用
	PRINTFORMW  (事件还没有完成，触发条件将来可能会变更)
	CALL DEL_CEVENT, "合意禁止：肛門性交"
	CALL SET_GOUI, "肛門性交"
	RESETCOLOR
ENDIF
IF CFLAG:好感度 >= 1000 && COND("合意：本番") == 0
	IF CEVENT("斥责事件") == 0
	; 没有素股意外
		PRINTL
		PRINTFORMW 「那个……」
		PRINTFORMW %CALLNAME:TARGET%的脸有些红
		PRINTFORMW 「果然，不能动真格的话，%CNAME("二人称")%是不能满足的吧」
		PRINTFORMW 「我作为母亲，可不能眼睁睁看着%CNAME("二人称")%难受啊」
		PRINTL
		PRINTFORMW %CALLNAME:TARGET%的眼中满溢着温柔和爱意，向%CALLNAME:MASTER%张開了双臂
		SETCOLOR DEF_COLOR("ショッキング粉紅")
		PRINTFORMW 「今后，你想怎么使用我的身体都没関系，%CNAME("一人称")%都可以原谅你」
		RESETCOLOR
		PRINTFORMW 「不过，要尽量温和一点哦」
		PRINTFORMW 「自从你的父亲走后，我就再也没有做过这种事情了……」
		PRINTL
		PRINTFORMW 「好了好了，不说他了，你已经等不及了吧……」
	ELSE
	; 有素股意外
		PRINTL
		PRINTFORMW 「唉……%CNAME("二人称")%，你老实和我说」
		SETCOLOR DEF_COLOR("ショッキング粉紅")
		PRINTFORMW 「你是不是还想和%CNAME("一人称")%……做上次那种事……」
		RESETCOLOR
		PRINTL
		PRINTFORMW 「果然呢……其实我也没有办法忘记那次意外」
		PRINTFORMW 「自从你父亲走后，我就再也没做过这种事情了……」
		PRINTFORMW 「没想到居然会是和%CNAME("二人称")%……」
		PRINTFORMW %CALLNAME:TARGET%用责备的眼神看了%CALLNAME:MASTER%一眼，轻轻叹了口气
		PRINTL
		PRINTFORMW 「这也都怪我，平时太纵容你了」
		PRINTFORMW 「只是这次的事，如果我不负责的话，你邪恶的欲望不知道还会发泄到哪个无辜的女孩身上……」
		PRINTFORMW 「……所以，就仅限性欲处理的时间，我允许你做这种事」
		PRINTFORMW 「平常，我们还是普通的母子，好吗？」
		PRINTFORMW 看着%CALLNAME:MASTER%欣喜若狂的神情，%CALLNAME:TARGET%的脸颊一片嫣红……
	ENDIF
	SETCOLOR DEF_COLOR("ショッキング粉紅")
	PRINTFORML - 系统信息 -
	PRINTFORML  獲得了能和%CALLNAME:TARGET%做爱的协议。
	PRINTFORML  V插入系统指令可以使用
	PRINTFORMW  (事件还没有完成，触发条件将来可能会变更)
	CALL DEL_CEVENT, "合意禁止：本番"
	CALL SET_GOUI, "本番"
 	RESETCOLOR
ENDIF
CALL KOJO_ENDCOM_K10

;-------------------------------------------------
;独自処理　口上のモード選択
;ARG = 対象角色
;-------------------------------------------------
@KOJO_MODE_SELECT_K10
;元はモードセレクト用の処理だったが実母固定变成了ため一部をオミット
IF FINDCHARA(NO, 6) > 0
	PRINTFORMW %CALLNAME:TARGET% %CALLNAME:(FINDCHARA(NO, 6))%作为%CALLNAME:MASTER%  "亲生母亲"的同时，状态变为"同居中"。
ELSE
	PRINTFORMW %CALLNAME:TARGET%作为%CALLNAME:MASTER% "亲生母亲"的同时，状态变为"同居中"。
ENDIF

CALL SETFLAG, "同居：一直", TARGET

PRINTL
PRINTFORML  设定%CALLNAME:TARGET%对%CALLNAME:MASTER%的第二人称。
PRINTFORML  現在的第二人称是『%CNAME("二人称")%』。要进行变更吗？
PRINTFORML （之后请求交易时可以变更）
PRINTFORML   [0]变更
PRINTFORML   [1]不变更
$INPUT_LOOP_B
INPUT
IF RESULT == 0
	CALL NAME_CONVERT_SP, TARGET
ELSEIF RESULT == 1
	PRINTFORMW  不变更二人称。
ELSE
	GOTO INPUT_LOOP_B
ENDIF
CALL SET_CEVENT, "モードセレクト完了", TARGET
PRINTL

;-------------------------------------------------
;独自処理　調教開始時に特定角色が指导者だった場合のイベント
;-------------------------------------------------
@K10_CHARAEVENT
;弗理希艾尔
IF NO:ASSI == 1 && CEVENT("指导者：弗理希艾尔") == 0
	PRINTFORMW 调教開始事件『弗理希艾尔的场合』
	PRINTL
	PRINTFORML %CALLNAME%
	PRINTFORMW 「……一直想问你一些事」
	PRINTFORMW 「那边的女仆是%CNAMET(TARGET, "二人称")%的…恋人吗？」
	PRINTFORMW 「比起我，更应该珍惜和她在一起的时间吧。」
	PRINTFORMW 迎着%CALLNAME%的视线、%CALLNAME:ASSI%回答道。
	SWAP TARGET, ASSI
	PRINTL
	IF TALENT:相思相愛 > 0 || TALENT:恋慕 > 0
		PRINTFORML %CALLNAME%
		PRINTFORMW 「真是对不起呢，"太太"……」
		PRINTFORMW 「%CNAME("一人称")%只是%CNAME("主人")%的女仆」
		PRINTFORMW 「绝对遵从%CNAME("主人")%的意志」
		PRINTFORMW 有意无意地把视线投向这边，撩拨着敏感的气氛……
		PRINTFORMW %CALLNAME%招手示意%CALLNAME:MASTER%过来。
		PRINTFORMW 眼神中透露着不满，在耳边说了一句「恋母控…」。
	ELSE
		PRINTFORML %CALLNAME%
		PRINTFORMW 「非常抱歉，"太太"……」
		PRINTFORMW 「%CNAME("一人称")%只不过是%CNAME("主人")%的女仆而已」
		PRINTFORMW 「%CNAME("一人称")%只不过是帮助%CNAME("主人")%把欲望降临在你身上」
		PRINTFORMW 虽然言辞十分礼貌，但是其中隐约有些莫名的意味。
		PRINTFORMW %CALLNAME%招手示意%CALLNAME:MASTER%过来。
		PRINTFORMW 一副坏心眼的模样，在耳边说了一句「恋母控…」。
	ENDIF
	PRINTL
	SWAP TARGET, ASSI
	PRINTFORML %CALLNAME%
	PRINTFORMW 「似乎没有搞清什么関系呢，你啊……」
	PRINTFORMW 「看来，现在这个情况似乎不适合我插嘴呢」
	CALL SET_CEVENT, "助手：弗理希艾尔"
;樱
ELSEIF NO:ASSI == 6 && CEVENT("指导者：樱") == 0
	PRINTFORMW 调教開始事件『樱の場合』
	PRINTL
	PRINTFORML %CALLNAME%
	PRINTFORMW 「我想先问一下，为什么%CNAME("助手")%会在这里当助手啊」
	PRINTFORMW 「虽然觉得不可能……但是你该不会连自己的妹妹都下手了吧？」
	PRINTFORMW 「需要稍微协商一下吗"哥哥"？」
	PRINTFORMW %CALLNAME%的视线有些刺人……
	PRINTFORMW 真不愧是主人公呢，想到把%CALLNAME:ASSI%带到这里来，看样子失败了吧？
	SWAP TARGET, ASSI
	PRINTL
	PRINTFORML %CALLNAME%
	PRINTFORMW 「对不起，妈妈。%CNAME("主人")%不是个坏人哦」
	PRINTFORMW 「是%CNAME("一人称")%主动拜托做色色的事情的……因为必须要有灵魂」
	PRINTFORMW 「而且呢，也非常想要和%CNAME("主人")%住在一起，特地拜托了%CALLNAME:FINDCHARA(NO, 1)%」
	PRINTL
	SWAP TARGET, ASSI
	PRINTFORMW 听着%CALLNAME:ASSI%为%CALLNAME:MASTER%辩解的话，%CALLNAME%深深叹了一口气。
	PRINTFORMW 「原来是这样啊……%CNAME("助手")%出院的时候，我还以为是我的法术很有效呢」
	PRINTFORMW 「希望你们二人能够过上普通人的生活、随心所欲地活着」
	SWAP TARGET, ASSI
	PRINTL
	PRINTFORML %CALLNAME%
	PRINTFORMW 「%CNAME("一人称")%，我不后悔变成这样。反而很高兴哦」
	PRINTFORMW 「所以……希望妈妈也能和%CNAME("主人")%好好相处，可以吗？」
	PRINTL
	SWAP TARGET, ASSI
	PRINTFORML %CALLNAME%
	PRINTFORMW 「这里说的関系好，可不是平时那种！」
	PRINTFORMW 「这孩子已经……到底像谁呢」
	PRINTFORMW 声音中透露着浓浓的无奈……
	CALL SET_CEVENT, "助手：樱"
ENDIF

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

;過去バージョンで既に勧誘していた場合に備えて、モードセレクト呼び出し
IF CEVENT("モードセレクト完了") == 0
	PRINTFORML - 系统信息 -
	PRINTFORML  因为%CALLNAME:TARGET%是已经被劝诱的存档数据。
	PRINTFORMW  呼出口上的初期设定画面。
	PRINTL
	CALL KOJO_MODE_SELECT_K10
ENDIF

;一部フラグをオフにする
CALL DEL_CEVENT, "素股イベント予告"
CALL DEL_CEVENT, "素股イベント発生中"

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	PRINTL
	PRINTW ・・
	PRINTW ・・・・
	PRINTW ・・・・・・
	PRINTL
	CALL K10_CHARAEVENT
	PRINTFORMW 「……那么，開始吧」
	PRINTFORMW %CALLNAME%用微妙的语气说道。
	PRINTFORMW 「这只是处理性欲罢了」
	PRINTFORMW 「可以的话，请全部交给%CNAME("一人称")%做，你一直就这样别动就可以了」
	PRINTFORMW 「如果想摸的话，也不是不可以……这是%CNAME("二人称")%的自由」
	PRINTFORMW %CALLNAME%把脸转过去，张開双臂，向主人公献上了身体……
	PRINTL
	PRINTW ・・
	PRINTW ・・・・
	PRINTW ・・・・・・
	PRINTL
	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;肛門性交合意獲得
ELSEIF COND("合意：肛門性交") && CEVENT("調教開始：肛門性交合意獲得") == 0
	PRINTL
	CALL K10_CHARAEVENT
	PRINTL
	PRINTW ・・
	PRINTW ・・・・
	PRINTW ・・・・・・
	PRINTL
	PRINTFORMW 「我们是亲生母子，所以做爱是绝对不行的，但是用屁股来做什么的还是可以啦」
	PRINTFORMW 「没関系的，以前你的父亲也这么做过，这可不是什么出轨哦」
	CALL SET_CEVENT, "調教開始：肛門性交合意獲得"

;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0 && CEVENT("調教開始：屈服刻印ＬＶ０") == 0
	PRINTL
	CALL K10_CHARAEVENT
	PRINTL
	PRINTW ・・
	PRINTW ・・・・
	PRINTW ・・・・・・
	PRINTL
	PRINTFORMW 「虽然说了会帮你处理性欲，但是如果不能做爱的话，说不定会有反效果呢」
	PRINTFORMW 「%CNAME("一人称")%作为最大限度的让步，嘴巴和胸部……然后呢，还可以让你股交哦」
	PRINTFORMW 「会让%CNAME("二人称")%感到满意为止的，就先忍耐一下吧」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ０"

;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0

;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && CFLAG:好感度 >= 2000 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTL
	CALL K10_CHARAEVENT
	PRINTL
	PRINTW ・・
	PRINTW ・・・・
	PRINTW ・・・・・・
	PRINTL
	PRINTFORMW （唔、我究竟是怎么鬼迷心窍了、才会想要和他成为恋人的啊……就算如何的深爱、可我们畢竟是母子啊！）
	PRINTFORMW （……只是、身为母親的话、怎么能向孩子的告白呢……怎么办、该怎么和他相处？是作为母親、还是愛人？）
	PRINTFORMW 明明是已经做过很多次了、但平日里冷静知性的%CALLNAME%、此时竟羞涩到不敢看一眼%CALLNAME:MASTER%
	PRINTFORMW 眼前这个健壮、散发着陽性氣味的男人，既是她的兒子、也是她的學生、更是背德的愛人……
	PRINTL
	PRINTFORMW %CALLNAME%的感情似乎有了微妙的变化、在亲密时的表现也有不同了吧……
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"

;-------------------------------------------------
;通常の処理へ
;-------------------------------------------------
;助手の有無を格子（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K10_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 K10_KOJO2
ENDIF
RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K10_KOJO2
PRINTL
CALL K10_CHARAEVENT
PRINTL
PRINTW ・・
PRINTW ・・・・
PRINTW ・・・・・・
PRINTL
IF TALENT:恋慕 > 0
	IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
		IF RAND:2 == 0
			CALL PRINT_STR, @"「%CNAME("主人")%_HH_　…%TEXTR("呵呵，听起来很新鲜/和平常不一样的称呼也很新鲜呢")%」_L"
			CALL PRINT_STR, @"「妈妈%TEXTR("一切准备就绪/已经准备OK了")%，随时都可以袭击哟_HH_」_W"
			CALL PRINT_STR,@"「呐、主人在等什么……难道这是什么新的奇怪%TEXTR("玩法/PLAY")%吗？」_W"
			PRINTFORMW %CALLNAME:MASTER%回过神来解释道、自己只是突然想起作业还没补完
			CALL PRINT_STR,@"「诶？——那种东西怎么都好啦~~难道是妈妈太过没有魅力了、才让主人想到作业了吗？」_W"
			PRINTFORMW %CALLNAME%像个委屈的小孩一样、把纤细的手指含在嘴里、一双美丽的大眼睛渐渐浮出雾汽……
			PRINTFORMW 没什么可以多说的了。%CALLNAME:MASTER%上前将%CALLNAME%紧紧抱住、開始品尝她的唇瓣
			CALL PRINT_STR,@"「嗯、唔…啾、呼姆、呸咯嘶噜……哈、啵~~呼……」_W"
			PRINTFORMW ……良久唇分
			PRINTFORMW %CALLNAME%一边大口地喘气、一边用她粉色的瞳孔诱惑地凝视着%CALLNAME:MASTER%
			CALL PRINT_STR,@"「呼嗯……不继续做下去吗_HH_？我呢、喜欢被主人欺负哦_BHH_……」_W"
			PRINTFORMW 「妈妈可能确实是诱惑人堕落的恶魔呢……」
		ELSE
			CALL PRINT_STR, @"「……%TEXTR("在学校/上课")%觉得怎么样？」_L"
			CALL PRINT_STR, @"「老师可不记得有培养过这样的%TEXTR("坏男孩/坏孩子")%哟」_W"
			CALL PRINT_STR, @"「作为惩罚，和老师一起%TEXTR("进行课外教学吧/补习保健体育吧")%♪」_W"
			CALL PRINT_STR,@"「……%TEXTR("哎呀/啊啦")%_HH_~~知道要被惩罚了、下面就立正了吗……%TEXTR("好可爱/真H")%_BHH_」_W"
			IF RAND:2 == 0
				PRINTFORMW 「呐，先和妈妈交换一下唾液吧♪」
				CALL PRINT_STR, @"「%TEXTR("啾……/哈嗯……呣啾")%_BHH_」_W"
			ELSE
				PRINTFORMW %CALLNAME:TARGET%故作姿态，用\@TALENT:巨乳?丰满的#外形良好的\@胸部挤压着%CALLNAME:MASTER%一边%TEXTR("低声私语着/微笑着")%
			ENDIF
		ENDIF
	ELSEIF RAND:2 == 0
		CALL PRINT_STR, @"「%TEXTR("好喜欢啊/我爱你")%_BHH_」_L"
		CALL PRINT_STR, @"「%TEXTR("呼呼/芙芙")%~ 是想在学校里%TEXTR("做/做坏事/欺负妈妈/欺负老师")%吗_HH_、好的呢~」_W"
		CALL PRINT_STR,@"「%TEXTR("忍耐得很辛苦了吧/早就蠢蠢欲动了吧")%~%TEXTR("对不起呢/真是个小坏蛋")%、%TEXTR("妈妈/老师")%现在就让你舒服起来_HH_……」_W"
		CALL PRINT_STR, @"「%TEXTR("作为家人，当然了/因为是家人嘛，那是当然的吧？/不会害羞的，不是家人嘛？")%_HH_」_L"
		CALL PRINT_STR, @"「%TEXTR(@"今天…在%CNAME("一人称")%的身体中释放欲望吧……/今天也要好好射出来，是吧？")%_HH_」_W"
		CALL PRINT_STR, @"「%TEXTR(@"平时%CNAME("二人称")%和%CNAME("一人称")%是家人/在学校里是老师和学生")%……%TEXTR("现在让我撒娇吧/现在就是情人了")%」_W"
	ELSE
		CALL PRINT_STR, @"「%TEXTR("呼呼/芙芙")%~ 是看到%CNAME("一人称")%的教师制服就兴奋了吗_HH_、还是因为其他女孩子呢……」_W"
		PRINTFORML 「难道是突然反悔了、想去找别的女孩子了吗……不行哦、男孩子就要信守承诺呢」
		PRINTFORMW %CALLNAME%轻轻纠缠上来、对%CALLNAME:MASTER%呼出诱惑、潮湿的香气，似乎是稍微有些吃醋的样子
		PRINTFORMW 虽然也很怀念过去那个外柔内刚、总是一副严肃样子的老师，不过眼前这个性感诱人的尤物妈妈、%CALLNAME:MASTER%又怎么会不爱呢
		PRINTFORMW 「%TEXTR("呼呼/芙芙")%~虽然不知道你在想什么、不过一定是些不好的东西……」
		PRINTFORMW %CALLNAME%揪住%CALLNAME:MASTER%的衣领带往……
		IF PLACE("部室")
			PRINT 部室的大床
		ELSEIF PLACE("体育倉庫")
			PRINT 体育仓库的软垫
		ELSEIF PLACE("情人旅館")
			PRINT 情人旅馆的双人床
		ELSEIF PLACE("更衣室")
			PRINT 更衣室的长凳
		ELSE
			PRINT 床边
		ENDIF
		PRINTFORMW 、然后将你轻轻按倒……
		CALL PRINT_STR,@"「什么都不要想……现在、我们只是一对将要欢好的甜蜜情人_HH_……」_W"
	ENDIF
ELSEIF MARK:屈服刻印 == 0
	PRINTFORML 「虽然最后还是变成了这样……」
	PRINTFORMW 「%CNAME("一人称")%只是陪%CNAME("二人称")%处理性欲而已，才不是在交往什么的」
	IF RAND:4 == 0
		PRINTFORMW 「喂、喂、不要咬啊！」
	ELSEIF RAND:3 == 0
		PRINTFORMW 「如果觉得舒服了，要好好地学习哟？」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「好啦，赶快结束吧」
	ELSE
		PRINTFORMW 「……」
		IF RAND:2 == 0
			PRINTFORMW 「不要老是盯着我看……总觉得有点害羞」
		ELSE
			PRINTFORMW %CALLNAME:TARGET%移開视线畏缩不前……
		ENDIF
	ENDIF
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
	IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
		CALL PRINT_STR, @"「想和%CNAME("一人称")%做吗？不是去找别的女孩子？」_W"
		CALL PRINT_STR, @"「其实，%CNAME("一人称")%也%TEXTR("不讨厌身体接触/不想禁止性行为")%」_L"
		IF RAND:2 == 0
			CALL PRINT_STR, @"「但因为%CNAME("二人称")%%TEXTR("是我的亲生儿子/和我血脉相连")%，所以说还是不行」_L"
		ELSE
			PRINTFORML 「这是为了%CNAME("二人称")%的将来着想」
		ENDIF
		PRINTFORMW 「不能就一直和%CNAME("一人称")%这样睡觉吧？」
		PRINTFORMW 「还是说，喜欢%CNAME("一人称")%这种年纪大的女性吗？」

	ELSE
		CALL PRINT_STR, @"「老师的%TEXTR("单人课程/私人指导/课外补习")%，想参加吗？」_L"
		PRINTFORMW 「最近%TEXTR("好像得意忘形了/不管是什么老师都会听的")%，但是不管怎么样说好的底线是不能越过的」
	ENDIF
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
		PRINTFORMW 「……来找%TEXTR("妈妈/母親/亲生母亲")%就是为了做这种事吗、%TEXTR("是该開心还是生气呢/可爱又孝顺的儿子变成这样、心情好复杂/就算是恶魔、也会觉得离奇呢")%……」
		PRINTFORMW 「但是%TEXTR("没有办法/也不能拒绝呢")%、会变成现在这副样子、%CNAME("一人称")%应该负大部分责任呢……」
	ELSE
		CALL PRINT_STR, @"「把老师带到%TEXTR("这里/这样的地方")%%TEXTR("胆子不小啊？/你知道有什么后果吗？")%」_L"
		CALL PRINT_STR, @"「%TEXTR("特殊课程/私人补习时间")%　%TEXTR("让你好好地学习知识/用身体进行解答")%_」_W"
		PRINTFORMW %CALLNAME:TARGET%扶正了眼睛，露出无敌的微笑
	ENDIF
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
		IF RAND:2 == 0
			CALL PRINT_STR, @"「%TEXTR(@"真是的，下半身已经很老实地立正了呢/总觉得对%CNAME("二人称")%说什么都不会在意起来……")%」_W"
			CALL PRINT_STR,@"「%TEXTR("呼呼/芙芙")%~想%TEXTR("做/做坏事/欺负人")%了吗……交给我吧、一定会让你舒服起来的哦_HH_……」_W"
			CALL PRINT_STR,@"「不可以觉得妈妈%TEXTR("坏/好色/放荡")%哦，因为、这种事……只会对%CNAME("二人称")%一个人做而已啊_HH_……」_W"
		ELSE
			CALL PRINT_STR,@"「%TEXTR("诶/哎呀/啊啦/啊啦啦")%~是在向%CNAME("一人称")%%TEXTR("求爱/索取身体/申请做爱")%吗？」_W"
			CALL PRINT_STR,@"「难得%CNAME("二人称")%这么%TEXTR("认真/执着")%、如果%CNAME("一人称")%不回应的话、会感觉非常失礼呢_HH__BHH_」_W"
				IF RAND:2 == 0
					PRINTFORMW %CALLNAME%如同神话中象征欲望的蛇一样、紧紧地缠绕上来……她已经压抑不住眼中粉色光芒的浮动了……
				ELSE
					PRINTFORMW %CALLNAME%轻轻将%CALLNAME:MASTER%的手牵引到她d\@TALENT:巨乳 > 0?丰盈得快要溢出来的#外形良好的\@乳房上、似乎是想将心跳传达过去……
				ENDIF
			CALL PRINT_STR, @"「%TEXTR("既然你打算干，就请你陪我到满意为止。/既然要做，就要做好心理准备，我会竭尽全力的。")%_HH_」_W"
			CALL PRINT_STR,@"「无论被做了什么……绝对不要讨厌妈妈哦……%TEXTR("走到这一步/做了那么多事之后")%、已经只有%CALLNAME:MASTER%是妈妈唯一的%TEXTR("庇护所/归处/依靠")%了……」_W"
		ENDIF
	ELSE
		CALL PRINT_STR, @"「已经告诉过你在学校里是%TEXTR("老师和学生……/不行的")%」_L"
		CALL PRINT_STR, @"「因为是%CNAME("二人称")%才会答应做这种事，不然%CNAME("一人称")%是不会允许的呢。%TEXTR("唉……真是让人没办法的孩子/真是……太任性了")%」_W"
		CALL PRINT_STR, @"「如果光靠说还不能让你吸取教训的话，那么更加%TEXTR("严厉/激烈/艰难")%的%TEXTR("个人调教/性教育/调教指导")%就十分有必要了呢」_L"
		CALL PRINT_STR, @"「对于把老师%TEXTR("叫出来/带过来")%这件事，%TEXTR("会让你后悔的/会让你反省的")%，做好觉悟吧」_W"
	ENDIF
ENDIF
RETURN 1

;-------------------------------------------------
;調教終了時のセリフ
;-------------------------------------------------
@EVENTEND
SIF NO:TARGET != 10
	RETURN 1
DRAWLINE
;斥责事件
;条件：合意无で挿入済み、かつ挿入継続中でない場合
IF COND("合意：本番") == 0 && FIRSTCOMS("Ｖ挿入") && INSERT("Ｖ挿入") == 0 && CEVENT("斥责事件") == 0
	IF FIRST_EV("絶頂：Ｖ中出し")
		PRINTFORML #!#斥责活动V中出
		PRINTFORMW 「下不为例了！」
		CALL SET_CEVENT, "斥责事件"
	ELSE
		PRINTFORMW 「………刚才那个是意外哦。所以快点忘了吧」
		PRINTFORMW 「我会当作没发生过，下次请自制点。不能直接插入做爱，不是已经约好了吗？」
		PRINTFORMW 「不能再有第二次了。如果不遵守约定的话、%CNAME("一人称")%也是有自己的考虑的」
		PRINTFORMW 看起来%CALLNAME%终于原谅了插入的事情。
		PRINTFORMW 注意%CALLNAME%開始对[素股]有所警戒了！
		PRINTL
		PRINTFORML - 系统信息 -
		PRINTFORML  情绪如果不是MAX就不会有股交事件发生。
		PRINTFORML 但是，即使再次发生“意外”，除了好感度下降以外也不会有其他处罚。
		PRINTFORML  想解除限制的话，首先想办法提升好感度吧。
		PRINTW

		CALL SET_CEVENT, "素股警戒"
		CALL SET_CEVENT, "斥责事件"
	ENDIF
ELSEIF TALENT:恋慕
	;%CALLNAME:MASTER%体或精耗尽
	IF STATE("撃沈", MASTER)
		IF RAND:2 == 0
			CALL PRINT_STR, @"「%TEXTR("呼呼/芙芙/嘿嘿/嘻嘻")%～ 我的%TEXTR("乖乖宝贝/亲亲儿子")%、%TEXTR("已经不能再继续了吗/是被我榨干了吗")%_HH_？」_W"
			PRINTFORMW %CALLNAME%带着妩媚狡黠的笑容、将被汗水沾湿的发丝撩到耳后。她仍然保持着略微从容的姿态、附到%CALLNAME:MASTER%耳边
			CALL PRINT_STR, @"「%TEXTR("胜利的感觉、还不错呢/是不是做的太过了呢")%_HH_～～」_W"
		ELSE
			CALL PRINT_STR, @"「%TEXTR("咦/嗯/唔")%？%CNAME("二人称")%%TEXTR("已经不能再继续了吗/是被我榨干了吗")%，%TEXTR("哎呀/啊啦/啊啦啊啦")%…… 」_W"
			CALL PRINT_STR, @"「%TEXTR("真是拿你没办法呢/虽然我还有点想要、但那就是欺负了呢")%…那%TEXTR("妈妈/母親/我")%也一起休息吧、但是之后%TEXTR("要补偿我哦/需要偿还这一份哦/要再补上一次哦")%_HH_%TEXTR("呼呼/芙芙/嘿嘿/嘻嘻")%～」_W"
		ENDIF
	;伴侣体或精耗尽
	ELSEIF STATE("撃沈")
		IF RAND:3 == 0
			CALL PRINT_STR, @"「%TEXTR("唔、哈啊、哈啊/咿唔、呼唔、呼呜/呼、哈、唔咿")%～不、不行了、%TEXTR("被儿子欺负得快死掉了/快感让身体麻木、回过神来已经动不了了/变成被亲生儿子榨干的笨蛋恶魔了")%_HH_」_W"
			PRINTFORMW %CALLNAME%满身香汗地软倒、脸上带着高潮到精疲力竭后的余韵、显得妩媚异常……%CALLNAME:MASTER%将疲惫的母亲揽入怀中、像曾经母亲抱他那样、一边轻轻哼歌、一边抚摸她的頭顶，偶尔还会亲吻一下
			PRINTFORMW %CALLNAME%寻找到一个舒服的姿势，在亲生儿子的怀中、露出了安宁平静的表情……
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「%TEXTR("唔、嗯呜、呼呜/嗯嗯唔、呼、呼呜/哈啊、哈啊、哈啊")%～%TEXTR("累死了～好儿子、放过妈妈吧/太过舒服、就运动过頭了呢/像个笨蛋一样、被欲望操控了呢")%_HH_……」_W"
			PRINTFORMW %CALLNAME%仿佛没有骨頭一样软倒，她已经累得毫无体面、像只小狗一样大口喘息、甚至露出了一点粉红的舌頭
			PRINTFORMW 尚未满足的%CALLNAME:MASTER%把手指伸入%CALLNAME%的口腔中搅拌着、任由她无意识地吮吸着……
		ELSE
			CALL PRINT_STR, @"「%TEXTR("唔、嗯呜、呼呜/嗯嗯唔、呼、咪呜/哈啊、哈啊、哈啊")%～%TEXTR("累死了～完全不能动了/纵、纵欲过度了吗/贫弱妈妈、被儿子击倒啦")%_HH_……」_W"
			PRINTFORMW %CALLNAME%呻吟着、好像变成了液体一样瘫软……她一副疲惫得快要睡着的表情、好像意识也已经朦胧了……
			PRINTFORMW %CALLNAME:MASTER%想帮她擦掉脸上大战后的痕迹，%CALLNAME%却讨好似的伸出粉红色的小舌頭、舔舐起%CALLNAME:MASTER%的手指……
		ENDIF
	;正常结束，满足
	ELSEIF COND("満足")
		IF RAND:2 == 0
			CALL PRINT_STR, @"「%TEXTR("唔、哈啊、哈啊/咿唔、呼唔、呼呜/呼、哈、唔咿")%、结束了吗…%TEXTR("妈妈/母親/我")%又被%CALLNAME:MASTER%%TEXTR("欺负/凌辱/教训/施暴")%了呢，%TEXTR("哭哭/嘤嘤嘤/呜呜呜")%_HH_」_W"
			CALL PRINT_STR, @"「但是好不可思议啊、%CNAME("一人称")%竟然%TEXTR("对这种事感到兴奋了/越来越喜欢这种事情了/好像有点上瘾了呢")%_HH__BHH__HH_我是不是个%TEXTR("失败/无能/不称职")%的%TEXTR("妈妈/母親")%呢……」_W"
			CALL PRINT_STR, @"「……所以、对付我这样的坏%TEXTR("妈妈/母親")%，%CALLNAME:MASTER%…是不是该更多地%TEXTR("欺负/凌辱/教训/施暴")%呢、%TEXTR("呼呼/芙芙/嘿嘿/嘻嘻")%～」_W"
		ELSE
			CALL PRINT_STR, @"「%TEXTR("唔、哈啊、哈啊/咿唔、呼唔、呼呜/呼、哈、唔咿")%、咦？结束了吗……」_W"
			PRINTFORMW %CALLNAME%揉揉眼睛、擦拭掉因过度快乐而不自觉流下的泪水、蜷缩入%CALLNAME:MASTER%的怀中轻轻蹭着
			CALL PRINT_STR, @"「%TEXTR("喜欢你、喜欢得不得了/妈妈已经是脑子里全是爱意的笨蛋了")%_BHH_所以、不要%TEXTR("放開/离開")%%CNAME("一人称")%哦……」_W"
		ENDIF
	;未满足结束
	ELSE
		IF RAND:3 == 0
			CALL PRINT_STR, @"「%TEXTR("咦/诶/哎呀")%？%CALLNAME:MASTER%为什么停下了呢～是新的%TEXTR("欺负手法/PLAY/玩法")%吗_HH__BHH__HH_」_W"
			PRINTFORMW %CALLNAME%眼睛里的粉色爱心随着急促的呼吸一涨一缩，伴随一阵似有似无的香风、她附到%CALLNAME:MASTER%耳边
			CALL PRINT_STR, @"「应该不会是、想从%TEXTR("妈妈/母親/我")%身边逃走吧……不_HH_行_HH_哦、%TEXTR("再陪人家一会儿嘛/你也还没舒服够吧/不可以这么坏心眼啦")%_HH_」_W"
			PRINTFORMW %CALLNAME%用灼热、潮湿、娇艳的吐息%TEXTR("侵犯/撩拨/挑逗")%着%CALLNAME:MASTER%脆弱的理智……
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「%TEXTR("诶？/唔…/那个…")%难道说%CALLNAME:MASTER%想结束了吗…不_HH_～行_HH_～哦_HH_～」_W"
			PRINTFORMW %CALLNAME%湿润的眼睛里、有粉红色的情欲正在燃烧。她舔了舔嘴唇、附到%CALLNAME:MASTER%耳边
			CALL PRINT_STR, @"「都把%TEXTR("妈妈/人家")%弄到这种地步了、怎么可以停下来呢_HH_」_W"
			PRINTFORMW 不知道是不是错觉、总觉得此刻的%CALLNAME%分外妩媚……
			CALL PRINT_STR, @"「再陪%TEXTR("妈妈/人家")%一会儿嘛_HH_～」_W"
			PRINTFORMW %CALLNAME%不由分说地将想要起身的%CALLNAME:MASTER%重新按倒、她洋溢着粉色水光的眼睛如同黑洞一般吸引住了%CALLNAME:MASTER%……
		ELSE
			CALL PRINT_STR, @"「%TEXTR("咦/诶/哎")%？%CNAME("二人称")%要休息了吗、可是明明还很有精力的样子啊……」_W"
			PRINTFORMW %CALLNAME%像小孩耍赖一样、拉住了%CALLNAME:MASTER%的手不肯放開，紧紧缠着%CALLNAME:MASTER%撒娇
			CALL PRINT_STR, @"「坏心眼……%TEXTR("不要走嘛/继续做下去、好不好嘛")%…还是一定要%CNAME("一人称")%说出来呢……」_W"
			CALL PRINT_STR, @"「%TEXTR("求求你/")%%TEXTR("不要走/继续")%…%CNAME("一人称")%还想被%CNAME("二人称")%%TEXTR("使劲/用力/粗暴地")%%TEXTR("欺负/凌辱/教训")%哦_BHH_」_W"
		ENDIF
	ENDIF
ELSE
ENDIF
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
;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
RETURN 1

;-------------------------------------------------
;指令実行時のセリフ
;-------------------------------------------------
@KOJO_MESSAGE_COM_K10
#DIM LCOUNT

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

;独自処理　イベントによる口上スキップ
IF CEVENT("口上スキップ") > 0
	CALL DEL_CEVENT, "口上スキップ"
	RETURN 1
ENDIF

;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「%CNAME("一人称")%的身体，或许现在有点不足，不过」
		PRINTFORMW 「不过我还是想成为%CNAME("二人称")%成为喜欢的人呢……摸摸看吧」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF MARK:淫紋 && RAND:2 == 0
				IF EXP_GAIN("膣内精液経験")
					CALL PRINT_STR, @"「%TEXTR("呼唔/咿唔/嗯呜")%_HH_ %TEXTR("现在、不可以这样/这、这太奇怪了/稍稍、有些难受")%」_L"
					PRINTFORMW
					CALL PRINT_STR, @"「%CNAME("一人称")%的%TEXTR("那/子宮")%里面……那些东西……要被%TEXTR("按揉着流/儿子亲手按")%出来了_HH_……」_L"
					PRINTFORMW %CALLNAME:PLAYER%温柔地抚弄着的%CALLNAME:TARGET%的身体，不知不觉间已经有%TEXTR("精液/精浆")%缓缓地从%TEXTR("那里/秘所里")%溢了出来、%CALLNAME:TARGET%顶着潮红的脸又是无奈、又是幽怨地望了%CALLNAME:PLAYER%一眼……
				ELSE
					CALL PRINT_STR, @"「%TEXTR("咿、嗯嗯~/唔啊~")%_HH_　%TEXTR("不可、以、那里、那里的话/等一下、停、停下、咿")%_HH_」_L"
					PRINTFORMW 无视了%CALLNAME:TARGET%的哀鸣、%CALLNAME:PLAYER%用手指舔舐般轻揉着她%TEXTR("下腹部/子宮上面")%的%TEXTR("淫秽纹章/淫纹")%
					PRINTFORMW 每个触摸到粉色纹章的瞬间、%CALLNAME:TARGET%的身体都会不受控制地颤抖、迎接一个接一个的轻微高潮……
				ENDIF
			ELSEIF INSERT("Ｖ挿入")
				CALL PRINT_STR, @"「%TEXTR("唔、嗯嗯~/啊嗯、呼呼~")%_HH_　%TEXTR("咻、唔唔、嗯、啊/咿唔、啊、哈~")%_HH_」_L"
				PRINTFORMW %CALLNAME:TARGET%辛苦地忍耐着上面和下面同时传来的让人疯狂的快乐、勉强自己维持身为母親的威严……
				PRINTFORMW %CALLNAME:PLAYER%看着%CALLNAME:TARGET%的这副样子、反而被激起了更强的逆反心理、上下半身瞬间開足马力!!
				CALL PRINT_STR, @"「%TEXTR("等一下、咿/等、等等、啊、唔")%_HH_　%TEXTR("请、请温柔一点/稍稍、慢一点")%_HH_」_L"
				PRINTFORMW
				CALL PRINT_STR, @"～被这样抚摸的话、全身都好舒服服——」_W"
				PRINTFORMW %CALLNAME:TARGET%紧紧闭着眼睛、潮红的脸上露出了恍惚的迷醉笑容……
			;一有破绽就接吻
			ELSEIF TEQUIP:接吻
				CALL PRINT_STR, @"「还想亲亲吗？可以哦~~%CNAME("一人称")%好開心_HH_」_W"
				PRINTFORMW
				CALL PRINT_STR, @"「为什么和妈妈亲亲的时候还要摸身体呢、坏孩子_HH_%TEXTR("呼呼/芙芙")%~」_W"
				PRINTFORMW %CALLNAME%贪婪地索取着%CALLNAME:MASTER%的津液、完全顾不上%CALLNAME:MASTER%的手如何作弄……
				CALL PRINT_STR, @"「%TEXTR("嗯/嗯唔/啾")%_HH_　怎么能这样……」_W"
				PRINTFORMW
				CALL PRINT_STR, @"「亲生儿子的嘴唇和触摸，好甜蜜、还想要_HH_……」_W"
				PRINTFORMW
				CALL PRINT_STR, @"「我爱你_HH_」_W"
			ELSE
				PRINTFORMW %CALLNAME%明明是在谴责%CALLNAME:MASTER%、却不断地微微靠前、将诱人的娇躯送向亲生儿子……
				CALL PRINT_STR, @"「%TEXTR("嗯/唔/唔嗯")%_HH_　%CALLNAME:PLAYER%、%TEXTR("喜欢/爱你")%…%TEXTR("不那么温柔、也没関系~/感受到了你的热量呢/好像在被你的手指亲吻")%_HH_」_W"
			ENDIF
		;それ以外
		ELSE
			CALL PRINT_STR, @"「%TEXTR("呵呵/不错呢/再强硬点也没関系/请温柔点吧")%_HH_」_W"
			PRINTFORMW
			CALL PRINT_STR, @"「%CNAME("一人称")%可是你的对手，%TEXTR("请不要客气/可以不断尝试各种各样的东西哦")%」_W"
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ているとき
		IF TEQUIP:推倒
			IF TALENT:母親
				PRINTFORMW 「呼呼……请为%CNAME("一人称")%服务吧」
				PRINTFORMW 「如果做得好的话我会给你奖励的，要加油哦」
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			IF TALENT:母親
				PRINTFORMW 「竟然想要舔%CNAME("一人称")%的阴部啊……」
				PRINTFORMW 「虽然不是不行……可是好害羞啊……」
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	;二回目以降
	;清洁舔阴
	ELSEIF COND("清洁舔阴フラグ", PLAYER)
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			CALL PRINT_STR, @"「%TEXTR("哈/嗯")%_HH_……%TEXTR("嗯啊/啊")%_HH_」_W"
			CALL PRINT_STR, @"「%TEXTR("很擅长啊/不错嘛")%_HH_……」_W"
		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
		CALL PRINT_STR, @"「%CNAME("一人称")%对胸部很有自信哦_HH_」_W"
		PRINTFORMW 「就允许%CNAME("二人称")%尽情地舔吸吧」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			;超乳
			IF TALENT:巨乳 >= 3 && BASE:罩杯成長 >= 3 && RAND:2 == 0
				PRINTFORMW 「因为%CNAME("二人称")%一直这么揉都变大了……」
				CALL PRINT_STR, @"「这么喜欢%CNAME("一人称")%的胸部吗？_HH_」_W"
			ELSE
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%CNAME("二人称")%%TEXTR("更加激烈地欺负胸部吧/用手好好得欺负乳頭吧/稍微弄疼些也是没関系的哦")%_BHH_」_W"
			ELSE
				CALL PRINT_STR, @"「%CNAME("一人称")%的%TEXTR("胸部/胸/乳房")%被%CNAME("二人称")%%TEXTR("弄乱七八糟的，好喜欢/强硬地弄着，好喜欢/使劲揉搓着，很有感觉")%_BHH_」_W"
			ENDIF
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("啊呣/啊啊/嗯")%_BHH_　%TEXTR("好棒/再更用力点/好舒服啊/")%_BHH_」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("哦/嗯/呜")%_BHH_　%TEXTR("喜欢被强迫呢/更加强硬点、啊啊/好棒，继续")%_BHH_」_W"
			ENDIF
			ENDIF
		;それ以外
		ELSE
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("嗯/嗯啊/嗯嗯")%_HH_……%TEXTR("啊啊/啊唔/啊呣/啊")%_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("啊呣/啊/呣")%_HH_　%TEXTR("更多/好棒/啊啊")%_HH_」_W"
			ENDIF
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("是啊/更多，更多/感觉到了，明白了")%_HH_……」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("想要吃吗……/想要吸吗……/想要含住吗……")%%TEXTR("啊啊！/好棒/啊呣")%_BHH_」_W"
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻#####
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時か、チュートリアル時
		IF TEQUIP:推倒 || CEVENT("チュートリアル：１")
			PRINTFORMW 「呐……因为对手是%CNAME("一人称")%，所以失败了也没関系」
			PRINTFORMW 「啾，让嘴唇温柔地重叠……哈哈……对，很擅长呢……」
			PRINTFORMW 「%CNAME("一人称")%会引导你的，来伸长舌頭……哎呀……」
		;それ以外
		ELSE
			PRINTFORML （我……作为母亲，只是接受了%CONDS("間柄", MASTER)%无法压抑的性欲而已……）
			PRINTFORML （这孩子很让人爱恋……一旦有了心爱的人，就会从我身边离開吧……）
			PRINTFORML （所以……在那之前……）
		ENDIF
	;二回目以降
	;開局深吻
	ELSEIF CHECK_COM("テンダー接吻")
		IF TEQUIP:推倒
			PRINTFORM #逆推+深吻
		ELSE
			;恋慕
			IF TALENT:恋慕
				IF RAND:2 == 0
					PRINTFORMW 「一上来就要接吻吗……%TEXTR(@"很好哦，作为恋人、想要被温柔对待的/意外的温柔啊、%CALLNAME:MASTER%/如果能一直这么温柔就太好了")%……」
					PRINTFORML %CALLNAME:MASTER%深情地吻上闭着眼睛、面色通红的母亲，自然地揽过%CALLNAME%的纤腰、将她压向自己
					PRINTFORM %CALLNAME:TARGET%順從地依偎在%CALLNAME:PLAYER%的怀中、把手搭在%CALLNAME:MASTER%的身体两侧……
					IF TALENT:PLAYER:高大 > 0
						PRINTFORM 用她那娇媚的双眸仰望着%CALLNAME:PLAYER%、
					ELSEIF TALENT:PLAYER:娇小 >0
						PRINTFORM 她落在着%CALLNAME:PLAYER%身体上的眼神显得格外魅惑、
					ELSE
						PRINT 径直将她的粉红的舌頭探了过来、
					ENDIF
					PRINT 两人立刻開始了
					SIF ABL:欲望>5
						PRINT 如蛇在交配一般的
						PRINTFORMW 深情的拥吻……
						CALL PRINT_STR, @"「%TEXTR("嗯、唔嗯、哈/唔、咿嘤、哼呼/呼、哈、唔咿")%、嘶噜~_HH_ %TEXTR("呵呵~/呼呼~/哼、哦~")%、好像有口水流下来了呢_HH_……」_W"
				ELSE
					PRINTFORMW 「是吗、用接吻開启这次的内容吗……%TEXTR(@"以前妈妈也是这么对%CNAME("二人称")%的呢、早安KISS/唯独这方面、%CALLNAME:MASTER%还是那个温柔的孩子啊")%、%TEXTR("妈妈是特别的吗/也会对别的女孩子这样吗")%？」
					PRINTFORML %CALLNAME%环住%CALLNAME:MASTER%的腰、笑嘻嘻地发问，然而不等回答、她就主动吻上%CALLNAME:MASTER%
					CALL PRINT_STR, @"「%TEXTR("嗯、唔嗯、哈/唔、咿嘤、哼呼/呼、哈、唔咿")%_HH_～不论%CNAME("二人称")%怎么想、%CALLNAME:MASTER%就是%CNAME("一人称")%心中最特别的_BHH_……」_W"
					PRINTFORML %CALLNAME%撬開%CALLNAME:MASTER%的牙齿，强硬地用舌頭的纠缠扭转
					PRINTFORMW %TEXTR("有点生气了吗？突然之间动作那么粗暴，像是在宣示主权一样/动作那么强硬，仿佛是在申明母亲对孩子不容置疑的主导权")%……
				ENDIF
			ELSE
				PRINTFORM #无恋慕深吻
			ENDIF
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL KOJO_K10_RAND_VOICE
			IF INSERT("挿入")
				CALL PRINT_STR, @"「唔、竟然、%TEXTR("那么卖力地/像頭发情中的野兽一样/那么贪婪地")%上下一起_HH_ 就那么喜歡%TEXTR("妈妈/亲生母亲/我这个坏女人")%吗？%TEXTR("呼呼~/嘻嘻、/哈…")%不需要这么急迫哦、因为啊…… 」_W"
				IF TALENT:淫乱
					CALL PRINT_STR, @"「%TEXTR("妈妈/母亲/我")%的这副%TEXTR("身体和灵魂/肉体和灵魂/灵和肉")%、已经离不開%CNAME("二人称")%了哦_HH_」_W"
				ELSE
					CALL PRINT_STR, @"「%TEXTR("妈妈/母亲/我")%啊、已经不可能离得開%CNAME("二人称")%了哦_HH_」_W"
				ENDIF
			;情緒が90以上（爱心三つ分）なら確定、60未満は現在情緒＞随机で180以下に該当する場合
			ELSEIF FLAG:情緒 >= 90 || (FLAG:情緒 >= 60 && FLAG:情緒 >= RAND:180) && RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("好喜歡、可以不用停下来哦/請再多做一點、妈妈已经……/呼呼、好想你能一直做下去/別……不要停下來、好孩子、我已经……")%_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("好了好了、可以继续撒娇哦~/請再多做一點/好希望这个瞬间能永远继续下去啊/別……不要停下來")%_HH_」_W"
			ENDIF
		;それ以外
		ELSE
			IF RAND:8 == 0
				PRINTFORMW 「想和%CNAME("一人称")%…接吻，吗？」
				IF FLAG:情緒 >= 100
					CALL PRINT_STR, "「真是让人没办法的孩子……_HH_」_W_"
					CALL PRINT_STR, "「哈唔…啾…_HH_」_W_"
				ELSE
					CALL PRINT_STR, "「真是让人没办法的孩子……呢」_W_"
					CALL PRINT_STR, "「哈唔…啾……」_W_"
				ENDIF
			ELSEIF RAND:4 == 0
				PRINTFORMW 「嗯……嗯哼」
				PRINTFORMW 「哎……哎呀，不可以伸舌頭进来……」
				IF FLAG:情緒 >= 100
					CALL PRINT_STR, "「噜…啾吧……_HH_」_W_"
				ELSE
					CALL PRINT_STR, "「噜…啾吧……」_W_"
				ENDIF
			ELSEIF RAND:2 == 0
				IF FLAG:情緒 >= 100
					CALL PRINT_STR, "「嗯…噜…啾吧……_HH_」_W_"
					CALL PRINT_STR, @"（和%CONDS("間柄", PLAYER)%这样接吻，多么……_HH_）_W_"
				ELSE
					CALL PRINT_STR, "「嗯…噜…啾吧…………」_W_"
					CALL PRINT_STR, @"（和%CONDS("間柄", PLAYER)%这样接吻，多么…………）_W_"
				ENDIF
			ELSE
				IF FLAG:情緒 >= 100
					CALL PRINT_STR, "「啾吧…啾芙……嗯、啾噜……_HH_」_W_"
				ELSE
					CALL PRINT_STR, "「啾吧…啾芙……嗯、啾噜……」_W_"
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;阴部愛撫
;阴蒂の場合にはCHECK_COM("陰核愛撫"), 阴部の場合にはCHECK_COM("阴部愛撫"), 恥丘ならCHECK_COM("恥丘愛撫")がONになる
;-------------------------------------------------
IF SELECTCOM == 7
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;中出し後にお掃除
	ELSEIF CHECK_COM("擦拭")
		;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
		RETURN 0
		PRINTFORMW
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;指挿入
;CHECK_COM("玩弄Ｇ点")とTEQUIP:振動棒で大きく分岐する
;-------------------------------------------------
IF SELECTCOM == 8
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;振動棒挿入中
		IF TEQUIP:振動棒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;Gスポット刺激
	ELSEIF CHECK_COM("玩弄Ｇ点")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;気持ちいい
		ELSEIF CHECK("指挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;振動棒挿入中
	ELSEIF TEQUIP:振動棒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;気持ちいい
		ELSEIF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		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
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF CHOSECOMS("Ａ挿入")  && ASSIPLAY == 0
			PRINTFORMW 「在亲生母亲的肛門里中出、连这么害羞的事情你都要命令……」
			IF MARK:屈服刻印 == 3
				PRINTFORMW 「如果上瘾变成了癖好要怎么办哟……」
			ENDIF
		ELSE
			PRINTFORMW 「让%CNAME("一人称")%做这种丢脸的事……已经，已经……」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF CHOSECOMS("Ａ挿入")  && ASSIPLAY == 0
				CALL PRINT_STR, @"「呼呼_HH_　%CNAME("一人称")%的中出肛門被看见了呢_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("我/妈妈")%的%TEXTR("肛門/屁股小穴")%大概在%TEXTR("抽搐着/扩张着")%吧？_HH_」_W"
				CALL PRINT_STR, @"「%TEXTR("不要焦急呀/不要欺负呀")%，快点来这里，%TEXTR("快给我/想要被你侵犯")%_HH_」_W"
			ENDIF
		;それ以外
		ELSE
			IF CHOSECOMS("Ａ挿入")  && ASSIPLAY == 0
				IF MARK:屈服刻印 == 3
					CALL PRINT_STR, @"「明明很害羞……%TEXTR("哈/哈嗯")%_HH_」_W"
				ELSE
					PRINTFORMW 「因为是变态嘛……已经，已经」
				ENDIF
			ELSE
				PRINTFORMW
			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("振動棒")
			IF TALENT:母親
				PRINTFORMW 「想用振动棒吗？没関系哦……」
				PRINTFORMW %CALLNAME:TARGET%的阴部毫不费力地吞下了振动棒。
				PRINTFORMW 「看起来很意外呢，就算我这样看起来不像，但毕竟还是生过两个孩子。」
				CALL PRINT_STR, "「多大的振动棒都完全不要紧哦。虽然不是在做爱，但是也请好好地享受吧_HH_」_W_"
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			CALL PRINT_STR, @"「%TEXTR("唉/啊")%_HH_……拔出来吗」_W_"
			IF RAND:2 == 0 && COND("合意：本番") == 0
				PRINTFORMW 「说实话……虽然想要真货，但是绝对不行啊」
			ENDIF
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")
			CALL PRINT_STR, @"「%TEXTR("诶嘿嘿/哦呼呼")%_HH_　就这样被%CONDS("間柄", PLAYER)%的振动棒%TEXTR("侵犯/插入")%，嗯……感觉非常地%TEXTR("激动呢/背德呢")%_HH_」_W"
		;それ以外
		ELSE
			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:恋慕
			;馬型
			IF CHECK("Ａ最新受け入れサイズ") >= 5
				CALL PRINT_STR, @"「%TEXTR("哈啊…哈啊…/嗯…啊……")%%TEXTR("唔/嗯啊")%……%TEXTR("哈/哈哦")%_HH_」_W"
				CALL PRINT_STR, @"%CALLNAME:TARGET%的%TEXTR("屁眼/肛門")%被%TEXTR("马型/巨大")%的振动棒抽插得%TEXTR("要出来了/要排泄了")%_"
				CALL PRINT_STR, @"%TEXTR("肠液/汗水")%让身体变得濡湿，显得十分妖艳_W"
				PRINTFORMW 「
			;極太以上
			ELSEIF CHECK("Ａ最新受け入れサイズ") >= 3
				PRINTFORMW 「竟然让%CNAME("一人称")%用这么大的东西……」
				CALL PRINT_STR, @"「%TEXTR("真是个坏孩子/真是个小坏蛋")%，%TEXTR("那里变得空空荡荡的，记得要负责哦/普通的大小的已经无法满足了，记得要负责哦")%_HH_」_W"
			;それ以外
			ELSE
				IF ABL:Ａ拡張 >= 3
					PRINTFORMW 「这么大的还不能满足%CNAME("一人称")%啊」
					PRINTFORMW 「如果能给我更大的就好了……」
				ELSE
					PRINTFORMW 「已经结束了吗？」
					CALL PRINT_STR, @"「%CNAME("一人称")%一切都准备好了，用这边的洞也行哦_HH_」_W"
				ENDIF
			ENDIF
		;それ以外
		ELSE
			IF ABL:Ａ拡張 >= 3
				PRINTFORMW 「啊，这种尺寸的……%CNAME("一人称")%已经没法满足了……」
				PRINTFORMW 「可以用更粗更大的吗？」
			ELSE
				PRINTFORMW 「已经结束了吧……」
				PRINTFORMW 「
			ENDIF
		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 && FIRSTCOMS("Ｖ挿入") == 0
	;処女
	IF TALENT:処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;非処女
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF COND("合意：本番") == 0
				CALL PRINT_STR, "「这、这样可不行啊」_W_"
				CALL PRINT_STR, "「马上、马上、拔掉……_HH_」_W_"
				CALL PRINT_STR, "「嗯、啊、啊啊啊…_HH_」_W_"
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;同意无Ｖ挿入#####
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && COND("合意：本番") == 0
	IF TALENT:母親
		;処女
		IF TALENT:処女
			;恋慕
			IF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;非処女
		ELSE
			;恋慕
			;IF TALENT:恋慕
			;	PRINTFORMW
			;それ以外
			;ELSE
				IF RAND:4 == 0
					PRINTFORMW 「现、现在停手我就不会生气的，所以……！」
					CALL PRINT_STR, "「停下……喂，喂…_HH_ _HH_ _HH_」_W_"
				ELSEIF RAND:3 == 0
					CALL PRINT_STR, "(讨厌，这个孩子…这眼神是真的想要播种呢_HH_)_W_"
					CALL PRINT_STR, "(如此强烈地渴求着我…)_W_"
				ELSEIF RAND:2 == 0
					CALL PRINT_STR, "(从一開始就因为被责备而心情舒畅)_W_"
					CALL PRINT_STR, "(明明不行的…明明这种事情是不行的)_W_"
					CALL PRINT_STR, @"(咚咚，%CONDS("間柄", PLAYER)%的弱点被知道了……_HH_ _HH_ _HH_)_W_"
				ELSE
					CALL PRINT_STR, "「哼，呼呼……哈芙_HH_」_W_"
					PRINTFORMW 「不、不适可而止的话，%CNAME("一人称")%可是要生气咯！？」
				ENDIF
			;ENDIF
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ｖ挿入
;调教中的第一次V插入（RAND存在，并非每次必定触发）
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0

	;PRINTFORMW 調教ごとの初Ｖ挿入
	;巨根
	IF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		;疑似二穴插入
		IF TEQUIP:肛用振動棒
			PRINTFORML 「%TEXTR("呜嗯……/哈咿……/啊姆……")%明明%CNAME("一人称")%的%TEXTR("屁股小穴/肛門")%里还有振動棒、就被插入%TEXTR("膣道/阴道/小穴/蜜穴")%了~~%CNAME("調教時二人称")%坏心眼……」
			CALL PRINT_STR, @"「%TEXTR("呼/嗯/呜")%_HH_　%CNAME("一人称")%要被%TEXTR("親兒子/兒子主人/學生兒子/兒子老公")%变成奇怪的%TEXTR("色情/好色/淫乱")%%TEXTR("媽媽/母親/母愛人")%了_HH__BHH__HH__BHH__HH__W」"
		ELSEIF CHECK("Ｖ完美契合")
			CALL PRINT_STR, @"「%TEXTR("呼啊/呜咿/姆唔")%_HH__BHH__HH__BHH__HH_————~~~！！！%TEXTR("就、就是这个/好、好舒服/肉体交合的地方传来了让人迷失神志的快乐")%……_W」"
			CALL PRINT_STR, @"「%CNAME("一人称")%的%TEXTR("膣道/阴道/小穴/蜜穴")%已经彻底变成了%CNAME("二人称")%的形状了呐……%TEXTR("呼呼~/芙芙~/嘻嘻~/嘿嘿~")%_HH__W」"
			PRINTFORMW
		ELSE
			SELECTCASE SELECTCOM
			;屈曲位
			CASE 62
				CALL PRINT_STR, @"「%TEXTR("呼呼~/芙芙~/嘻嘻~/哼哼~")%、一上来就要用这么认真(播_HH_种)的姿势吗……_BHH__W」"
				CALL PRINT_STR, @"「%CNAME("一人称")%觉得很%TEXTR("開心/高兴/幸福")%哦…毕竟%CNAME("二人称")%那————么努力地想让%TEXTR("媽媽/母親/老师")%受孕什么的、%TEXTR("超级可爱哦/很让人心动啊/不是很感人吗")%_BHH__W」"
				PRINTFORMW %CALLNAME%用充满诱惑的动作、分開两条泛着粉光的长腿、架在了%CALLNAME:PLAYER%的肩膀上。母子倆十指紧紧相扣、以最易授種的体式開始活塞运动……
			;それ以外
			CASEELSE
				PRINTFORML 「%TEXTR("呜嗯……/哈咿……/啊姆……")%%TEXTR("親生兒子/兒子主人/學生兒子/兒子老公")%的\@ SIZE("阴茎", PLAYER) >= 2 ?大肉棒#肉棒\@进到%CNAME("一人称")%的%TEXTR("膣道/阴道/小穴/蜜穴")%里惹~~」
				CALL PRINT_STR, @"「%TEXTR("喜歡/好喜歡/愛你/好愛你")%_HH_%TEXTR("喜歡/好喜歡/愛你/好愛你")%_BHH_%TEXTR("喜歡/好喜歡/愛你/好愛你")%_HH_%TEXTR("喜歡/好喜歡/愛你/好愛你")%_BHH__W」"
			ENDSELECT
		ENDIF
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ｖ挿入共通の随机文
;所有V插入共有的随机句子
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;在这里多下点功夫的话，每次都会有不同的反应，所以推荐
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;PRINTFORMW 全Ｖ挿入共通の随机文
	;要去了なのに焦らされている
	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
		IF TALENT:恋慕
			CALL PRINT_STR, @"「%TEXTR("呼呼~/芙芙~/嘻嘻~/哼哼~")%_HH_ %CALLNAME:PLAYER%选择了%TEXTR("媽媽/母親/我")%最喜欢的%TEXTR("体位/姿势")%呢_HH__BHH__HH_……_W」"
			CALL PRINT_STR, @"「%TEXTR("好苦恼啊/有点困扰啊/那就稍微有点麻烦了呢")%……因为、不得不好好侍奉%CNAME("二人称")%作为奖励了哦_BHH__W」"
			PRINTFORMW 不知道是不是错觉、%CALLNAME%说话的时候眼睛里浮现出了粉红色的爱心形状……是\@ MARK:淫紋 > 0 ?淫纹的影响#恶魔的本能\@吗……
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STR, @"「吶、你和别的女孩子处理性欲的时候、最好也是先這樣哦_W」"
				CALL PRINT_STR, @"「毕竟这個姿勢的话…很方便恋人之间%TEXTR("親親/接吻/KISS")%、不是嗎_BHH__W」"
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			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
	PRINTFORMW 正常位
	;初めて
	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

;-------------------------------------------------
;後背位
;-------------------------------------------------
;本来は合意：本番で、台詞を分岐させてもいいが合意：本番が好感度1000なので条件がちょろい。死に口上になる予感しかないので省く
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		;IF TALENT:恋慕
		;	PRINTFORMW
		;それ以外
		;ELSE
		;	PRINTFORMW
		;ENDIF
		;助手分岐　正直、実母口上を今後も自分以外は書かない＆自分も流石に助手分岐は書かないと思うので念の為作っておく程度の話
		;玛丽×実母はちょっと思いつかないのでちよ
		IF ASSIPLAY == 0
			;どうしてこんなになるまで放っておいたんだ！！
			IF COND("合意：危険日生性交") && TEQUIP:PLAYER:避孕套 == 0
				PRINTFORMW 「居然让我像动物一样趴着，好害羞……」
				PRINTFORMW 「讨厌……倒也说不上。实际上和%CONDS("間柄", PLAYER)%用这种四肢着地、像母畜配种一样的做爱方式什么的，完全没有想象过」
				PRINTFORMW 「我已经做好了心理准备……可以尽情地侵犯我了」
			;真名封鎖。擬似宝具展開。
			ELSEIF TEQUIP:PLAYER:避孕套
				PRINTFORML 「以这种姿势来做……一想到屁股是不是很显眼就觉得有点害羞……」
				PRINTFORMW 「居然说%CNAME("一人称")%的屁股看起来很棒……笨蛋，你在说什么……」
			ELSE
				PRINTFORML 「不行哟，一定要用避孕套才行！！」
				PRINTFORMW 「喂，不行，不行，不行！别这样！啊啊啊啊啊！！」
				PRINTFORMW （被%CONDS("間柄", PLAYER)%射在里面真的不可以啊，不行……我……我为什么……）
			ENDIF
		ELSE
			;PRINTFORMW
		ENDIF
		;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF ABL:奉仕精神 + MARK:屈服刻印 < 6
				PRINTFORMW 「……%CNAME("二人称")%就那么喜欢%TEXTR("媽媽/母親/我")%用这种…%TEXTR("像动物交配一样/像母畜配种一样/趴在你面前抬起屁股")%的做爱方式吗」
				PRINTFORMW 「是喜欢这种%TEXTR("媽媽/母親/我")%向%CNAME("二人称")%臣服的感觉吗？%TEXTR("呼呼~/芙芙~/哼哼~")%%TEXTR("真是变态呢/真是越胆大了/真不知道你像谁")%……」
				PRINTFORMW %CALLNAME%嘴里虽然抱怨着、却依然温顺地用雌犬一样的动作伏下身子，把%TEXTR("沾着露水/娇嫩粉色/胀鼓鼓")%的%TEXTR("陰戶/膣口/花蕊")%奉献到%CALLNAME:PLAYER%面前……
			ELSE
				;后续分開细写
				PRINTFORMW 「%TEXTR("汪——汪呜————/喵——喵呜————/嘤——嘤咛————")%呜…%TEXTR("太害羞了/太变态了/太不知廉耻了")%……」
				PRINTFORMW %CALLNAME%虽然架不住%CALLNAME:PLAYER%的苦苦哀求、终于模仿着动物叫了两声、却立刻脸红得能滴出血来、把脸藏在里臂弯里不愿抬頭
				PRINTFORMW %CALLNAME:PLAYER%可管不上这些、如发情公牛般疯狂顶撞、拍击身下那匹雌性的美臀……
			ENDIF
		;屈服刻印Lv2以上
		;ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			IF TEQUIP:PLAYER:避孕套
				CALL PRINT_STR, @"「%TEXTR(@"一起做喜欢的事情吧/居然和%CNAME("一人称")%做这种事情，真是个坏孩子/看……对%CNAME("一人称")%来说这种程度可还远远不够哦")%_H_」_W"
			ELSE
				PRINTFORMW 「……%TEXTR("里面不行哦/不可以射在里面哦/里面要避開")%」
			ENDIF
		ENDIF
		;IF COND("合意：危険日生性交") && TEQUIP:PLAYER:避孕套 == 0
		;	PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;屈曲位
;搜索到的屈曲位与游戏中的描述有明显差别、这里以游戏中的姿势为准
;-------------------------------------------------
IF SELECTCOM == 62
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF TEQUIP:接吻
				CALL PRINT_STR, @"「%TEXTR("喜歡/好喜歡/愛你/好愛你")%_HH_%TEXTR("喜歡/好喜歡/愛你/好愛你")%_HH_给%CNAME("一人称")%%TEXTR("親親/接吻/KISS")%_BHH__W」"
				PRINTFORMW
				CALL KOJO_K10_RAND_VOICE
				PRINTFORMW %CALLNAME%迷失在了和%TEXTR("親生兒子/有血緣的愛人/既是兒子又是老公的主人公")%疯狂、淫乱、销魂的黏膜接触中、时不时痉挛般轻抬美臀来配合%CALLNAME:PLAYER%的动作……
			ELSE
				CALL PRINT_STR, @"「%TEXTR("讨厌/咿呀/唔")%……这个%TEXTR("姿势/体位/动作")%_HH_也太方便受孕了_BHH_……_W」"
				PRINTFORMW
				CALL KOJO_K10_RAND_VOICE
				PRINTFORMW %CALLNAME%无意识地与%CALLNAME:PLAYER%十指相扣、被死死抵住的美胯时不时跟随和子宫中等待着床的卵子一起颤抖……
			ENDIF
		;屈服刻印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
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		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:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			IF TALENT:母親
				PRINTFORMW 「母子之间做这种事，真的是太不像话了」
				PRINTFORMW 「尽管如此……%CNAME("二人称")%想要做的话，我也会让你做的」
				PRINTFORMW 「和%CNAME("一人称")%做约定，交到女朋友就不再做这种事了」
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			IF TALENT:母親
				PRINTFORMW 「母子之间做这种事，真的是太不像话了」
				PRINTFORMW 「尽管如此……%CNAME("二人称")%想要做的话，我也会让你做的」
				PRINTFORMW 「和%CNAME("一人称")%做约定，交到女朋友就不再做这种事了」
				;Ａ正常位、Ａ対面座位
				;IF SELECTCOM == 70 || SELECTCOM == 73
				;	PRINTFORMW 「こうして見つめ合うと気恥ずかしいものね」
				;Ａ後背位、Ａ背面座位
				;ELSEIF SELECTCOM == 71 || SELECTCOM == 74
				;	PRINTFORMW 「从后面将されるのはドキドキしちゃうわね」
				;Ａ屈曲位
				;ELSEIF SELECTCOM == 72
				;	PRINTFORMW
				;ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ａ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM)
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW 「等等……慢慢地进去……」
		PRINTFORMW 「没错，如果慢慢动的话，也是可以忍受的……」
	;巨根
	ELSEIF SIZE("阴茎", PLAYER) >= 2
		CALL PRINT_STR, @"「%TEXTR("啊唔/哈啊/嗯啊")%_BHH_　%TEXTR("大大的/很大的/粗大的")%已经进入我的%TEXTR("屁股小穴/肛門")%了_BHH_」_W"
		CALL PRINT_STR, @"「%TEXTR("巨根/大鸡鸡/粗粗的")%%TEXTR("好喜欢/最喜欢了")%_BHH_」_W"
		CALL PRINT_STR, @"「%CNAME("二人称")%%TEXTR("粗暴地/随心所欲地")%%TEXTR("侵犯着")%……我的%TEXTR("雌穴/小穴")%_BHH_」_W"
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			PRINTFORMW
		;対面座位
		CASE 73
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		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 RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで)
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 74
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		CALL PRINT_STR, @"「%TEXTR("＿/呼芙、/咿、/库、")%%TEXTR("嗯……等一下/疼，疼……/啊，要裂開了")%」_W"
		CALL PRINT_STR, @"「%CNAME("一人称")%的%TEXTR("屁股小穴/肛門")%、%TEXTR("坏、坏掉了/会坏掉的/这里、坏掉了")%、%TEXTR("停…停下…/原谅我/啊啊啊！！")%」_W"
		CALL PRINT_STR, @"「%TEXTR("＿/所以拜托了")%……%TEXTR("慢慢地动/温柔点/再慢一点吧")%」_W"
	;恋慕
	ELSEIF TALENT:恋慕
;工事予定
;		IF NO:ASSI == 1 && ASSIPLAY && COND("３Ｐ")
;			PRINTFORMW 『失礼しますね、母亲大人』
;		ELSE
		IF COND("喜欢的体位中") && RAND:2 == 0
			CALL PRINT_STR, @"「%CNAME("一人称")%，啊，%CNAME("二人称")% ，%TEXTR("喜欢以这个体位做哟/喜欢这样的体位/最喜欢这个体位了")%_BHH_」_W"
			CALL PRINT_STR, @"「%TEXTR("哈嗯/啊呣/嗯唔")%_BHH_　%TEXTR("屁股小穴/肛門")%……%TEXTR("好喜欢/好舒服/这种感觉")%_BHH_　%TEXTR("咿/要去了/要、要出来了")%_BHH_」_W"
			IF PREVCOM == 72
				PRINTFORMW %CALLNAME:TARGET%两腿缠绕%CALLNAME:PLAYER%，沉溺在快感中。
			ENDIF
;		ELSEIF TEQUIP:振動棒 == 1 &&
;			PRINTFORMW
		ELSE
			;巨根
			IF SIZE("阴茎", PLAYER) >= 2
				IF RAND:2 == 0
					CALL PRINT_STR, @"「%CNAME("一人称")%啊、%CNAME("二人称")%的%TEXTR("大鸡巴/大肉棒/巨根")%%TEXTR("最喜欢了/侵犯着/一看见就想侍奉呢")%_BHH_」_W"
				ELSE
					CALL PRINT_STR, @"「%TEXTR("啊/哈嗯/嗯啊")%_BHH_　%CNAME("二人称")%，糟糕%TEXTR("太粗/太大/太粗壮")%了_BHH_」_W"
				ENDIF
				IF RAND:2 == 0
					CALL PRINT_STR, @"「我是个%TEXTR("肮脏/色情/好色")%的%TEXTR("母亲/妈妈")%，对不起_BHH_」_W"
				ENDIF
				CALL PRINT_STR, @"「我的%TEXTR("屁股小穴/肛門")%_"
				IF RAND:2 == 0
					CALL PRINT_STR, @"%TEXTR("乱七八糟的/、被侵犯坏的/、只属于主人公的/只被主人公侵犯的/、每天泄欲用的")%_BHH_」_W"
				ELSE
					CALL PRINT_STR, @"「%CNAME("二人称")%%TEXTR("的性欲处理小穴/的东西/的肉便器")%_HH_　%TEXTR("肛門/屁股小穴")%%TEXTR("里射被得满满的/播下了很多种子")%_HH_」_W"
				ENDIF
			ELSE
				CALL PRINT_STR, @"「%TEXTR("哈/库/嗯")%_HH_……　%TEXTR("再深点/深深插进去吧/请再往里边一点")%_HH_」_W"
			ENDIF
		ENDIF
	;それ以外
	ELSE
		IF COND("喜欢的体位中") && RAND:2 == 0
			CALL PRINT_STR, @"「%CNAME("一人称")%_BHH_　%TEXTR("这个体位/这样子做")%，%TEXTR("真是太喜欢了/最喜欢了")%_BHH_」_W"
			CALL PRINT_STR, @"「%TEXTR("不行啊/不行/不行呀")%_BHH_　%TEXTR("好棒/好舒服啊/啊啊啊！")%」_W"
			IF PREVCOM == 72
				PRINTFORMW %CALLNAME:TARGET%两腿缠绕%CALLNAME:PLAYER%，沉溺在快感中。
			ENDIF
		ELSE
			;巨根
			IF SIZE("阴茎", PLAYER) >= 2
				IF RAND:2 == 0
					CALL PRINT_STR, @"「%CNAME("一人称")%啊，%TEXTR("每天都在想着肉棒的事情……/这根肉棒怎么都忘不了/要听这根肉棒的话呢")%_BHH_」_W"
				ELSE
					CALL PRINT_STR, @"「%TEXTR("啊呣/哈嗯/嗯")%_BHH_　%TEXTR("太大了/已经塞满了/最喜欢大的了")%_BHH_」_W"
				ENDIF
				IF RAND:2 == 0
					CALL PRINT_STR, @"「我是个%TEXTR("肮脏/色情/好色")%的%TEXTR("母亲/妈妈")%，对不起_BHH_」_W"
				ENDIF
				CALL PRINT_STR, @"「我的%TEXTR("屁股小穴/肛門")%_"
				CALL PRINT_STR, @"%TEXTR("乱七八糟的/、被侵犯坏的/、只属于主人公的/只被主人公侵犯的/、每天泄欲用的")%_BHH_」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("哈/库/嗯")%_HH_……　%TEXTR("再深点/深深插进去吧/请再往里边一点")%_HH_」_W"
			ENDIF
		ENDIF
	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
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		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:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			IF TALENT:母親
				PRINTFORML 「如何，比做爱还要舒服吧」
				CALL PRINT_STR, @"「%CNAME("一人称")%会帮你进行性欲处理的、不用顾虑尽管射出来吧_HH_」_W_"
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	;二回目以降
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕 && RANDIF(1, ABL:奉仕精神 >= 3)
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3
			IF TALENT:母親
				PRINTFORMW 「%TEXTR("嗯/嗯嗯/嗯")%……%TEXTR("啾噜/啾噜噜/啾噜")%……%TEXTR("嗯/嗯/嗯")%……」
				IF CHOSECOMS("Ａ挿入")  && ASSIPLAY == 0
					CALL PRINT_STR, @"「%TEXTR("妈妈/我")%……%TEXTR("服务/舔舐/清洁")%着插入%TEXTR("屁股小穴/肛門")%的%TEXTR("小鸡鸡/肉棒")%，%TEXTR("感觉很舒服/感觉很兴奋/感觉很開心")%哦……」_W"
					CALL PRINT_STR, @"「这么%TEXTR("坏/没用")%的母亲，%TEXTR("对不起呢……/真是对不起……")%」_W"
				ELSE
					CALL PRINT_STR, @"「%TEXTR("哈/嗯/哈嗯")%_HH_……_"
					IF SIZE("阴茎", MASTER) >= 2
						PRINTFORMW %TEXTR("无敌的/挺立的/雄伟的")%%TEXTR("大鸡鸡/肉棒/那里")%……」
					ENDIF
					CALL PRINT_STR, @"「%TEXTR("想要一直都这样下去/今后也请让我效劳吧/侍奉的快要去了呢")%_HH_」_W"
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		ELSE
			IF TALENT:母親
				CALL PRINT_STR, @"「%TEXTR("咀噜咀噜/咀噜咀噜噜")%……%TEXTR("咀噜/咀噜噜")%_HH_…%TEXTR("哈……/嗯、……/啾……")%」_W"
				IF CHOSECOMS("Ａ挿入")  && ASSIPLAY == 0
					CALL PRINT_STR, @"「%CNAME("一人称")%随时都可以把%CNAME("二人称")%的%TEXTR("大鸡鸡/肉棒")%%TEXTR("好好服务/打扫干净/舔干净")%_HH_」_W"
				ELSE
					IF RAND:2 == 0
						PRINTFORMW 「我也是个%TEXTR("母亲/妈妈")%嘛……只要%TEXTR("孩子/我的孩子")%喜欢，做什么都可以哟」
					ELSE
						PRINTFORMW 「%CNAME("二人称")%这个可爱的小家伙，我的清洁口交很不可思议吧……」
					ENDIF
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF TALENT:母親
				CALL PRINT_STR, @"「%TEXTR("咀芙/咀噜")%……%TEXTR("嗯_HH_/嗯唔_HH_/嗯_HH_……")%%TEXTR("咀噜/咀噜/咀噜噜")%」_W"
				IF TEQUIP:振動棒 == 1 && RAND:4 == 0
					PRINTFORMW 「让%CNAME("一人称")%的阴部插着%TEXTR("玩具/大玩具/玩具/振动棒")%进行侍奉……真是%TEXTR("坏小孩/坏孩子")%……」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「%CNAME("一人称")%会好好观察%CNAME("二人称")%的表情，看有没有让%CNAME("二人称")%觉得舒服哟……」
				ELSEIF RAND:2 == 0
					CALL PRINT_STR, @"「%CNAME("一人称")%的侍奉有让你觉得舒服吗……坏孩子呢_HH_」_W"
				ELSE
					CALL PRINT_STR, @"「看到那么可爱的表情……%CNAME("一人称")%更加想要为你侍奉了呢_HH_」_W"
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;乳交
;-------------------------------------------------
IF SELECTCOM == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF TALENT:母親
			CALL PRINT_STR, "「嗯_HH_…咀噜…啾_HH_……」_W_"
			CALL PRINT_STR, @"「记得%CNAME("二人称")%小时候，最喜欢%CNAME("一人称")%的胸部了_HH_」_W_"
			PRINTFORMW 「明明长着一张可爱的脸……下边却如此坚硬」
			CALL PRINT_STR, @"「我会好好惩罚你的，做好觉悟吧_HH_」_W_"
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF RAND:3 == 0
				CALL PRINT_STR, @"「%TEXTR("咀噜/啾/啾呣")%_HH_　%TEXTR("咀噜/咀噜/咀噜")%……」_W"
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("嗯/嗯啊")%_HH_……%TEXTR("咀噜/咀噜咀噜")%_HH_…%TEXTR("＿/咀芙……/咀噜……")%」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("啾呣/啾")%_HH_……能有这样的感觉，%CNAME("一人称")%很開心哦_HH_」_W"
			ENDIF
			IF RAND:3 == 0
				CALL PRINT_STR, @"「看……%TEXTR("我/妈妈")%的%TEXTR("乳交/胸/胸部")%%TEXTR("最喜欢了，对吧/有好好感觉到吧")%」_W"
				CALL PRINT_STR, @"「%TEXTR("坏坏/色色/变态")%的孩子……%TEXTR("会好好地疼爱你呢/会把你榨干到射不出来为止哦")%_HH_」_W"
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, @"「明明和%CNAME("一人称")%一起做着%TEXTR("色色的事情/坏坏的事情")%，却这么有感觉吗？？？_HH_」_W"
				CALL PRINT_STR, @"「%TEXTR("严厉的惩罚/正确的性教育/严格的指导")%很有必要……%TEXTR("做好觉悟吧/我会好好疼爱你的")%_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("被逆推/被侵犯")%_HH_　还觉得高兴什么的，太可怜了呢」_W"
				CALL PRINT_STR, @"「那样的%TEXTR("孩子/可怜的孩子")%%TEXTR("我不记得有把你教成这样哦/变成这样了吗？")%」_W"
				CALL PRINT_STR, @"「%TEXTR("看招看招/怎么了？")%_HH_　%TEXTR("要继续忍耐一下哦/这种程度就输了吗？")%_HH_」_W"
			ENDIF
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF TALENT:母親
				IF TEQUIP:振動棒 == 1 && RAND:2 == 0
					CALL PRINT_STR, @"「%TEXTR("啊呣/啊啊")%_HH_……%TEXTR("哈嗯/啊啊呣/啊呣、啊呣/咿")%_HH_」_W"
					PRINTFORMW 「%TEXTR("妈妈/拼命")%被……%TEXTR("玩具/承认玩具/大玩具/振動棒")%%TEXTR("因为活动，不能集中精力/因为快感发出了声音……")%」
				ELSE
					IF RAND:2 == 0
						CALL PRINT_STR, @"「%TEXTR("嗯/嗯啊")%_HH_……%TEXTR("咀噜/咀噜咀噜")%_HH_…%TEXTR("＿/咀芙……/咀噜……")%」_W"
					ELSE
						CALL PRINT_STR, @"「%TEXTR("咀芙/啾")%_HH_……%CNAME("一人称")%、能有这样的感觉真的很開心哦HH_」_W"
					ENDIF
				ENDIF
				CALL PRINT_STR, @"「因为%TEXTR("我/妈妈/母亲")%的%TEXTR("乳頭/胸部")%变得%TEXTR("硬邦邦了/硬硬的")%呢_HH_」_W"
				IF RAND:2 == 0
					CALL PRINT_STR, @"「真是个%TEXTR("坏坏的/色色的/变态的")%孩子……是否有必要%TEXTR("再教育一次/再进行特别指导")%呢？_HH_」_W"
				ELSE
					CALL PRINT_STR, @"「真是个%TEXTR("恋母狂/恋母控")%……%TEXTR("我会好好疼爱你的/尽情地欺负我吧")%_HH_」_W"
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;素股#####
;-------------------------------------------------
IF SELECTCOM == 93
	IF TALENT:母親
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			IF TEQUIP:接吻
				IF FLAG:情緒 >= 50
					CALL PRINT_STR, "「呼、嗯…嗯呣…啾叭…_HH_」_W_"
				ELSE
					CALL PRINT_STR, "「呼、嗯…嗯呣…啾叭…」_W_"
				ENDIF
			ELSE
				IF FLAG:情緒 >= 50
					CALL PRINT_STR, "「呵呵，看我的绝招腰部振动……_HH_」_W_"
				ELSE
					CALL PRINT_STR, "「呵呵，看我的绝招腰部振动……」_W_"
				ENDIF
			ENDIF
			IF COND("合意：本番") == 0
				PRINTFORMW 「一直都想和%CNAME("一人称")%做这种事情吧？」
				IF FLAG:情緒 >= 50
					CALL PRINT_STR, "「真是个坏孩子……_HH_」_W_"
				ELSE
					CALL PRINT_STR, "「…是哪方面教育出错了吗♪」_W_"
				ENDIF
			ELSE
				PRINTFORMW 「%CNAME("一人称")%的大腿……感觉舒服吗？」
				IF FLAG:情緒 >= 50
					CALL PRINT_STR, "「真是个坏孩子……_HH_」_W_"
				ELSE
					CALL PRINT_STR, "「…是哪方面教育出错了吗♪」_W_"
				ENDIF
			ENDIF
		;二回目以降
		;被逆推ているとき
		ELSEIF TEQUIP:推倒
			;恋慕
			IF TALENT:恋慕
				CALL PRINT_STR, @"「%TEXTR("呼呼/芙芙")%~%TEXTR("亲爱/可爱")%的肉棒老师_HH_、今天也很%TEXTR("精神/坚硬/火热")%啊…有好好地想念我吗？」_W_"
				PRINTFORMW %CALLNAME%一边用\@MARK:淫紋>0?雕刻着淫邪纹章#光滑白皙\@的小腹轻轻磨蹭%CALLNAME:MASTER%%TEXTR("狰狞/下流/滚烫")%的%TEXTR("性器/阴茎/鸡鸡")%、一边用小孩子似的天真语气、真诚地问好……
				CALL PRINT_STR, @"「%TEXTR("嗯唔/哈唔/呼呜")%…%TEXTR("那个呢/其实啊")%、我家的%TEXTR("子宫/卵子")%酱可是非常想念你的哦_BHH_……」_W_"
				CALL PRINT_STR, @"「%TEXTR("抱歉/对不起")%、%CNAME("一人称")%怎么可以说这种话……%TEXTR("那么/接下来")%、请好好用肉棒惩罚我这个%TEXTR("好色/放荡/淫乱")%的母亲吧……」_W_"
				PRINTFORMW %CALLNAME%十分认真地看着%CALLNAME:MASTER%、%CALLNAME:MASTER%却感觉到一根凉凉的细腻手指、在%TEXTR("龟頭/阳具顶端")%处轻轻打转……
			ELSEIF SIZE("阴茎", PLAYER) >= 2 && CFLAG:好感度 >= 1500
				IF RAND:2 == 0
					PRINTFORMW  「咕噜嘟……」
					PRINTFORMW %CALLNAME%用手将%CALLNAME:MASTER%的巨枪贴近她的小腹、竟无意识地咽了一口口水
					PRINTFORMW (好大、太大了…无论多少次亲眼目睹都会惊讶、我的%TEXTR("亲生儿子/儿子/骨肉")%、竟然藏着这样%TEXTR("狰狞/硕大/威猛")%的性器……)
					PRINTFORMW (不行……光是看到、就会感到无法呼吸，肚子里好热、脑袋好晕……要变成纯粹的雌性了……)
					PRINTFORMW 每当%CALLNAME:MASTER%挑逗似的用肉棒轻触、%CALLNAME%光滑的小腹就会不自觉地绷紧、颤抖，仿佛会被烫伤一样……
			;それ以外
				ELSE
					PRINTFORMW 「唔……呃、嗯，已、已经很有精神的准备好了呢」
					PRINTFORMW 想象着这个巨根会到达多深的地方%CALLNAME%强作镇定地做出了敷衍的评价，其实已经口干舌燥了……
					PRINTFORMW (不行不行不行不行、太大了……这个尺寸的话、根本不可能维持得了作为母亲的从容啊……)
					PRINTFORMW (啊……子宫传来了微微的酸痛、它已经擅自准备接受这孩子的种子了……)
				ENDIF
			ELSE
				CALL PRINT_STR, @"「是想用这个诱惑我吗、真是%TEXTR("遗憾/对不起/可惜")%……_HH_%CNAME("一人称")%就是会如此轻易就被%TEXTR(@"%CNAME("二人称")%/儿子/亲生儿子")%诱惑到的%TEXTR("肮脏/色情/好色")%的%TEXTR("雌性/女性")%哦……」_W_"
				CALL PRINT_STR, @"「但是不要误会了啊……%CNAME("一人称")%的弱点、不是这根下流的%TEXTR("性器/鸡鸡")%、而是%TEXTR(@"%CALLNAME:MASTER%/%CNAME("二人称")%/你")%哦_BHH_……」_W_"
				PRINTFORMW %CALLNAME%说话的时候一眼都不曾往下看、只是一味地凝视着%CALLNAME:MASTER%。她的眼睛里满溢着不可量的温情……
			ENDIF
		;それ以外
		ELSE
			;恋慕
			IF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				IF TEQUIP:接吻
					IF RAND:3 == 0
						IF FLAG:情緒 >= 50
							CALL PRINT_STR, "「哈…嗯…呣咀……_HH_」_W_"
						ELSE
							CALL PRINT_STR, "「哈…嗯…呣咀……」_W_"
						ENDIF
					ELSEIF RAND:2 == 0
						PRINTFORMW 「咀噜咀噜…呣啾……」
						IF FLAG:情緒 >= 50
							CALL PRINT_STR, "「嗯，嗯…哈……咀芙……_HH_」_W_"
						ELSE
							CALL PRINT_STR, "「嗯，嗯…哈……咀芙……」_W_"
						ENDIF
					ELSE
						IF FLAG:情緒 >= 50
							CALL PRINT_STR, "「咀芙、咀噜…嗯………_HH_」_W_"
						ELSE
							CALL PRINT_STR, "「咀芙、咀噜…嗯……」_W_"
						ENDIF
					ENDIF
				ELSE
					IF RAND:10 == 0
						IF FLAG:情緒 >= 50
							CALL PRINT_STR, "（以母亲为对象做这种事情……）_W_"
						ELSE
							CALL PRINT_STR, "（以母亲为对象做这种事情……）_W_"
						ENDIF
						CALL PRINT_STR, "（…可爱_HH_）_W_"
					ELSEIF RAND:9 == 0
						IF FLAG:情緒 >= 50
							PRINTFORM 「嗯…%CNAME("一人称")%、
							CALL PRINT_STR, "舒服点了吧，也许……_HH_」_W_"
						ELSE
							PRINTFORM 「嗯…%CNAME("一人称")%、
							CALL PRINT_STR, "稍微、舒服点了吧，也许……」_W_"
						ENDIF
					ELSEIF RAND:6 == 0
						IF FLAG:情緒 >= 50
							CALL PRINT_STR, "「如果你这么高兴的话……我会让你更舒服的_HH_」_W_"
						ELSE
							CALL PRINT_STR, "「如果你这么高兴的话……我会让你更舒服的」_W_"
						ENDIF
					ELSEIF RAND:5 == 0
						IF FLAG:情緒 >= 50
							CALL PRINT_STR, @"「让%CNAME("一人称")%做这种事，真是个坏孩子_HH_」_W_"
						ELSE
							CALL PRINT_STR, @"「让%CNAME("一人称")%做这种事，真是个坏孩子」_W_"
						ENDIF
					ELSEIF RAND:4 == 0
						IF FLAG:情緒 >= 50
							CALL PRINT_STR, @"「怎么样？让%CNAME("一人称")%来做吧，呵呵……_HH_」_W_"
						ELSE
							CALL PRINT_STR, @"「怎么样？让%CNAME("一人称")%来做吧，呵呵……」_W_"
						ENDIF
					ELSEIF RAND:3 == 0
						IF FLAG:情緒 >= 50
							CALL PRINT_STR, "「哈、嗯、哈、哈……_HH_」_W_"
						ELSE
							CALL PRINT_STR, "「哈、嗯、哈、哈……」_W_"
						ENDIF
					ELSEIF RAND:2 == 0
						IF FLAG:情緒 >= 50
							CALL PRINT_STR, "「哈、呼、哈、哈……_HH_」_W_"
						ELSE
							CALL PRINT_STR, "「哈、呼哈、哈……」_W_"
						ENDIF
					ELSE
						IF FLAG:情緒 >= 50
							CALL PRINT_STR, "「哈、哈、嗯、哈……_HH_」_W_"
						ELSE
							CALL PRINT_STR, "「哈、哈、嗯、哈……」_W_"
						ENDIF
					ENDIF
				ENDIF
;				PRINTL
				IF RAND:5 == 0 && COND("合意：本番") == 0
					PRINTFORMW  粘膜互相接触却又不让插入，让%CALLNAME:MASTER%欲火中烧……
				ELSEIF RAND:4 == 0
					PRINTFORMW  两人相对无言，就像在梦中性交似的。
				ELSEIF CHECK_CLO("Ｖ露出")
					PRINTFORMW  彼此的性器直接接触，淫水声嗤嗤地响着……
				ELSE
					PRINTFORMW  隔着内衣的一层布，阴茎似乎被吞进去，又吐了出来……
				ENDIF
			ENDIF
		ENDIF
	ELSE
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW
			IF TEQUIP:接吻
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		;被逆推ているとき
		ELSEIF TEQUIP:推倒
			;恋慕
			IF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			;恋慕
			IF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		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
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飞机杯冲
;-------------------------------------------------
IF SELECTCOM == 105
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

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

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

;-------------------------------------------------
;打屁股
;あんまり痛くしません。ぴしゃぴしゃ
;-------------------------------------------------
IF SELECTCOM == 130
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF (CHOSECOMS("Ｖ挿入") || CHOSECOMS("Ａ挿入")) && ASSIPLAY == 0
			CALL PRINT_STR, @"「%CNAME("一人称")%是……被%CONDS("間柄", PLAYER)%侵犯」"
			IF CHOSECOMS("Ｖ挿入")
				PRINT 阴部
			ELSEIF CHOSECOMS("Ａ挿入")
				PRINT お尻
			ENDIF
			CALL PRINT_STR, @"「还能感受到快感的坏母亲」_W"
			CALL PRINT_STR, @"「请多加惩罚我吧_BHH_」_W"
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		IF (CHOSECOMS("Ｖ挿入") || CHOSECOMS("Ａ挿入")) && ASSIPLAY == 0
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%CNAME("一人称")%是……被%CONDS("間柄", PLAYER)%侵犯」"
				IF CHOSECOMS("Ｖ挿入")
					PRINT 阴部
				ELSEIF CHOSECOMS("Ａ挿入")
					PRINT お尻
				ENDIF
				CALL PRINT_STR, @"「被侵犯还能感受到快感的坏母亲」_W"
			ELSE
				CALL PRINT_STR, @"被%CONDS("間柄", PLAYER)%%TEXTR("侵犯着/抽插着")%还%TEXTR("觉得很開心/产生了快感")%，我是个坏母亲」_W"
			ENDIF
			CALL PRINT_STR, @"「%TEXTR("请您继续用肉棒惩罚我吧/我会成为主人的性奴隶的，请原谅我")%」_W"
		ELSE
			PRINTFORMW
		ENDIF
;		;恋慕
;		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 を削除してください(何も喋らない場合には地の文が強化されます)
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STR, @"「%TEXTR("嗯唔/噜唔/唔噜")%%TEXTR("＿/……")%%TEXTR("嗯/嗯嗯/嗯哼")%　%TEXTR("咀噜/咀噜噜/咀噜")%……」_W"
		CALL PRINT_STR, @"「%TEXTR("咀啵/咀啵/咀啵")%%TEXTR("＿/……")%%TEXTR("哈……/啊哈……/呼……")%%TEXTR("嗯、/嗯…/嗯呼、")%%TEXTR("啊嗯啊嗯/啊嗯……/嗯啊啊")%」_W"
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STR, @"「%TEXTR("嗯唔/噜唔/唔噜")%%TEXTR("＿/……")%%TEXTR("嗯/嗯嗯/嗯哼")%　%TEXTR("咀噜/咀噜噜/咀噜")%……」_W"
			CALL PRINT_STR, @"「%TEXTR("咀啵/咀啵/咀啵")%%TEXTR("＿/……")%%TEXTR("哈……/啊哈……/呼……")%%TEXTR("嗯、/嗯…/嗯呼、")%%TEXTR("啊嗯啊嗯/啊嗯……/嗯啊啊")%」_W"
		;それ以外
		ELSE
			CALL PRINT_STR, @"「%TEXTR("嗯唔/噜唔/唔噜")%%TEXTR("＿/……")%%TEXTR("嗯/嗯嗯/嗯哼")%　%TEXTR("咀噜/咀噜噜/咀噜")%……」_W"
			CALL PRINT_STR, @"「%TEXTR("咀啵/咀啵/咀啵")%%TEXTR("＿/……")%%TEXTR("哈……/啊哈……/呼……")%%TEXTR("嗯、/嗯…/嗯呼、")%%TEXTR("啊嗯啊嗯/啊嗯……/嗯啊啊")%」_W"
		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("西装外衣")
			;裙の種別まで指定出来なさそう＆そこまで詳細に設定する意味がない気がするので暫定処置
			;弗理希艾尔から借りてくる
			;派生西装外衣の名前を変更すると表示される。バニラ環境では表示されない
			IF NO:ASSI == 1
				PRINTFORMW %CALLNAME:TARGET%穿上了一套从%CALLNAME:ASSI%那里借来的学生服。
				IF RAND:4 == 0
					PRINTFORMW 「我们学校的制服很可爱，所以想试穿一下」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「果然，尺寸不对胸围有点太窄呢……」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「穿上这个%CNAME("一人称")%的心情也变得朝气蓬勃了」
				ELSE
					PRINTFORMW 「和%CNAME("二人称")%一起上学非常開心呢」
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		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
		IF TALENT:母親
			PRINTFORMW 「在做色色的事情之前，好好使用润滑液是很重要的」
			PRINTFORMW 「如果不充分湿润的话，会让女孩子感到疼痛的。要小心哦」
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF COND("合意：肛門性交")
				CALL PRINT_STR, @"「%TEXTR("嗯/嗯呣")%_HH_……」_L"
				PRINTFORMW 「%TEXTR("屁股小穴/肛門")%因为%TEXTR("很纤细/比阴部还要紧")%，能涂满润滑油再做的话，%CNAME("一人称")%会觉得很開心的」
			ELSE
				CALL PRINT_STR, @"「要用%CNAME("一人称")%的%TEXTR("手/胸部")%让你变得舒服吗？」_L"
				CALL PRINT_STR, "「涂满润滑液后再为您服务_HH_」_W"
			ENDIF
		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:恋慕
			IF MARK:淫紋 && RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("呼呼~/哼哼~/哦？")%　%TEXTR("你说的这些话、是真心的吗/你不是在哄骗妈妈吧")%？」_L"
				CALL PRINT_STR, @"「%TEXTR("还是说/或者说")%_HH_　%TEXTR("是单纯在渴望这具身体吗/在望着这具身体流口水吗")%_HH_」_L"
				PRINTFORMW %CALLNAME:TARGET%%TEXTR("下腹部/子宮上面")%的%TEXTR("淫秽纹章/淫纹")%、正随着她%TEXTR("的下流话/荒唐的话")%发出微微的光……
			ELSEIF INSERT("Ｖ挿入")
				CALL PRINT_STR, @"「%TEXTR("嗯/嗯啊/嗯唔/哈唔/呼呜")%_HH_~~被%TEXTR("儿子/亲生儿子")%一边%TEXTR("插入/欺负/强奸")%一、%TEXTR("姆/呜/唔/哼呜//哈咿")%_HH_、边%TEXTR("告白/说情话")%了_BHH_」_W"
				CALL PRINT_STR, @"「%TEXTR("唔、嗯嗯~/啊嗯、呼呼~/嗯、唔咿、呼~")%_HH_　哪里会有人%TEXTR("一边和亲生母親做这种事、一边和她说情话的~/一边那么用力地耸动身体、一边又那么煽情的~/与下半身相连的女性说这种甜话的~")%_HH_」_L"
				PRINTFORML %CALLNAME:TARGET%%TEXTR("粉面通红/满脸潮红/的脸上有一滴汗水划过")% 、抛给了%CALLNAME:PLAYER%一个夹杂着无奈、幽怨、和丝丝兴奋的眼神……
				CALL PRINT_STR, @"「不可以啦、%TEXTR("姆/呜/唔/哼呜//哈咿")%_HH_、又是插入又是煽情的~~真是个%TEXTR("坏孩子/目无尊长的小孩/小色鬼")%呢_HH_难道、只是背德感已经满足不了你了吗？」_W"
				PRINTFORML %CALLNAME:TARGET%虽然%TEXTR("是这么说的/嘴上不承认")% 、但%CALLNAME:PLAYER%已经从%TEXTR("愈发湿润的秘道/吮吸得愈发紧密的花蕊/反复收縮的膣道")%了解了她真实的想法……
			;一有破绽就接吻
			ELSEIF TEQUIP:接吻
				CALL PRINT_STR, @"「%TEXTR("嗯/嗯唔/啾")%_HH_　这样%TEXTR("一边亲吻、一边说情话/又柔情、又色情地使用舌頭/不让我的心和嘴同时休息")%的话_HH_……」_W"
				PRINTFORMW %CALLNAME%轻轻抚摸着%CALLNAME:MASTER%的脸颊、说话间、潮湿灼热的吐息带着微微的香气钻进%CALLNAME:MASTER%的鼻腔……
				CALL PRINT_STR, @"「%TEXTR("根本不可能不动心的啦/没有女性、会不被打动吧~/哪怕是身为母親、也会脑袋晕晕的啊")% %TEXTR("唔嗯/嘤柠~/啾")%_HH_」_W"
				CALL PRINT_STR, @"「%TEXTR("好爱你/好喜欢/喜欢你")%_HH_ %TEXTR("想要被你侵犯/做好觉悟吧/再强硬点也没関系")%_HH_ 」_W"
				PRINTFORML %CALLNAME:TARGET%沉醉于与%CALLNAME:MASTER%的深吻之中、并且、手指滑进%CALLNAME:MASTER%的指缝之中、紧紧相扣……
			ELSE
				CALL PRINT_STR, @"「_HH_就算是这样%TEXTR("失态/丢人/好色/放荡/淫乱")%的坏妈妈也喜欢吗…」_W"
				CALL PRINT_STR, @"「被%TEXTR(@"儿子/%CALLNAME:MASTER%")%告白惹_HH_、好幸糊、妈妈好幸福_HH__BHH__HH_」_W"
				PRINTFORML 几句简单的情话就让她像只%TEXTR("发情的猫咪/黏人的小狗")%一样%TEXTR(@"依附上来/伸出小舌舔舐着%CALLNAME:MASTER%的皮肤")%……
				PRINTFORML %CALLNAME:TARGET%丢掉了矜持、失声回应%CALLNAME:MASTER%的告白
				CALL PRINT_STR, @"「喜欢_HH_、喜欢_BHH_、我也是、最喜欢%CALLNAME:MASTER%了_HH__BHH__HH__BHH__HH_！！！」_W"
			ENDIF
		;それ以外
		ELSE
			CALL PRINT_STR, @"「%TEXTR("呼呼~/芙芙~")%_HH_　即使%TEXTR("不是真心的、也没関系/只是在欺骗妈妈也没関系/没那么有诚意、妈妈也不在意")%」_W"
			CALL PRINT_STR, @"「因为、%TEXTR("妈妈/我/曾经只把自己当做母親的我")%啊…已经是%TEXTR("爱上亲生儿子的有罪妈妈了/和亲生儿子出轨的不道德老师了/沉溺于背德亲子爱的坏女人了")%_HH_」_W"
			CALL PRINT_STR, @"「所以啊……只要%CALLNAME:PLAYER%一天还在%TEXTR("这个无道德的妈妈/有罪的我/这个罪恶女性")%的身边的话、无论如何都无法从你的身边离開了呢_HH_」_W"
			PRINTFORML %CALLNAME:TARGET%向%CALLNAME:PLAYER%张開了双臂、像是索求%TEXTR("一个持续到永远的拥抱/一座无法回頭的港湾/将罪人锁在爱与欲望的牢笼之中")%……
			PRINTFORMW #无恋慕成功
		ENDIF
	;失敗
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STR, @"「%TEXTR("嗯/嗯啊/嗯唔/哈唔/呼呜")%、在这个时机说这种话、%CALLNAME:MASTER%真是坏心眼……」_W"
			CALL PRINT_STR, @"「是想看、%TEXTR("姆/嗯/呜/唔/哈/哼/哼呜//哈咿")%、看%CNAME("一人称")%出糗的样子吗？」_W"
			CALL PRINT_STR, @"「%TEXTR("呼呼/芙芙")%～%TEXTR("嗯/嗯唔/啾")%、对付别的女孩子可以这样，但想让妈妈相信你的鬼话、还太早了呢～～」_W"
			PRINTFORML %CALLNAME:TARGET%有些调皮地轻轻用手指按住%CALLNAME:MASTER%的嘴唇、不让他继续说下去，可她分明是笑着的……
			PRINTFORMW #有恋慕失败
		;それ以外
		ELSE
			PRINTFORMW #无恋慕失败
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;斥责事件
;条件：合意无で挿入済み、かつ挿入継続中でない場合
IF COND("合意：本番") == 0 && FIRSTCOMS("Ｖ挿入") && INSERT("Ｖ挿入") == 0 && CEVENT("斥责事件") == 0
	IF FIRST_EV("絶頂：Ｖ中出し")
		PRINTFORML #!#斥责活动V中出
		PRINTFORMW 「下不为例了！」
		CALL SET_CEVENT, "斥责事件"
	ELSE
		PRINTFORMW 「………刚才那个是意外哦。所以快点忘了吧」
		PRINTFORMW 「我会当作没发生过，下次请自制点。不能直接插入做爱，不是已经约好了吗？」
		PRINTFORMW 「不能再有第二次了。如果不遵守约定的话、%CNAME("一人称")%也是有自己的考虑的」
		PRINTFORMW 看起来%CALLNAME%终于原谅了插入的事情。
		PRINTFORMW 注意%CALLNAME%開始对[素股]有所警戒了！
		PRINTL
		PRINTFORML - 系统信息 -
		PRINTFORML  情绪如果不是MAX就不会有股交事件发生。
		PRINTFORML 但是，即使再次发生“意外”，除了好感度下降以外也不会有其他处罚。
		PRINTFORML  想解除限制的话，首先想办法提升好感度吧。
		PRINTW

		CALL SET_CEVENT, "素股警戒"
		CALL SET_CEVENT, "斥责事件"

		;情緒が低下
		FLAG:情緒 /= 2
	ENDIF
ENDIF

;Ａ拳交（実行前）
IF SELECTCOM == 142
	IF FIRSTCOM(SELECTCOM) == 0
		TFLAG:地の文スキップ = 1
	ENDIF
ENDIF

;接吻（実行前）
IF SELECTCOM == 6
	;チュートリアル中
	IF CEVENT("チュートリアル：１") && CEVENT("チュートリアル：２") == 0

	;初めて
	ELSEIF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
		;それ以外
		ELSE
			PRINTFORMW 「嗯…啊！？」
			IF FLAG:情緒 >= 100
				CALL PRINT_STR, "「嗯…咀芙……_HH_」_W_"
			ELSE
				CALL PRINT_STR, "「嗯…咀芙……」_W_"
			ENDIF
			IF TALENT:恋慕 > 0
				PRINTFORMW 「喂……不行啊……」
				PRINTFORMW %CALLNAME:TARGET%一松開嘴唇，就用有些为难的表情责备%CALLNAME:MASTER%的行为。
				PRINTL
				IF FLAG:情緒 >= 50
					CALL PRINT_STR, "「接吻……真心的接吻除了喜欢的人以外…不行啊_H_」_W_"
					IF RAND:2 == 0
						PRINTFORMW 「如果%CNAME("二人称")%有真心喜欢的人……可是会后悔的哦」
					ELSE
						PRINTFORMW 「%CNAME("一人称")%现在这样做了……也会对不起你未来的新娘」
					ENDIF
					PRINTFORMW 虽然用语言否定了这种行为，%CALLNAME:TARGET%看起来依旧沉浸在亲吻的余韵中。
				ELSE
					CALL PRINT_STR, "「接吻……真心的接吻除了喜欢的人以外……不行呀」_W_"
					IF RAND:2 == 0
						PRINTFORMW 「如果真的有喜欢的人的话会后悔的哦？」
					ELSE
						PRINTFORMW 「%CNAME("一人称")%现在这样做了……也会对不起你未来的新娘」
					ENDIF
					PRINTFORMW 虽然这么说，但脸上还是泛起了红潮，看上去不怎么坚定的样子……
				ENDIF
			ELSE
				PRINTFORMW 「别、别这样」
				PRINTFORMW %CALLNAME%用力地推開了……
				PRINTL
				IF FLAG:情緒 >= 100
					CALL PRINT_STR, "「接吻……真心的接吻除了喜欢的人以外……不行呀_H_」_W_"
					IF RAND:2 == 0
						PRINTFORMW 「如果%CNAME("二人称")%有真心喜欢的人……可是会后悔的哦」
					ELSE
						PRINTFORMW 「%CNAME("一人称")%现在这样做了……也会对不起你未来的新娘」
					ENDIF
					PRINTFORMW 虽然这么说，但脸上还是泛起了红潮，看上去不怎么坚定的样子……
				ELSE
					CALL PRINT_STR, "「接吻……真心的接吻除了喜欢的人以外是不行的」_W_"
					IF RAND:2 == 0
						PRINTFORMW 「如果真的有喜欢的人的话会后悔的哦？」
					ELSE
						PRINTFORMW 「%CNAME("一人称")%现在这样做了……也会对不起你未来的新娘」
					ENDIF
					PRINTFORMW %CALLNAME%脸上少见地泛着红晕，露出一副认真的神情……
				ENDIF
			ENDIF
			PRINTL
			PRINTL [0]正因为喜欢才想接吻                  (好感度提高：小)
			PRINTL [1]默默地继续亲吻                        (欲情の珠+50)
			$INPUT_LOOP_6
			INPUT
			IF RESULT == 0
				PRINTFORMW 「不、不可以戏弄大人啊！」
				PRINTFORMW %CALLNAME%的整个脸一下子变得通红……
				TFLAG:好感度BOUNS += 25
			ELSEIF RESULT == 1
				PRINTFORMW 「喂，喂……把话听到最后……」
				JUEL:欲情 += 50
			ELSE
				GOTO INPUT_LOOP_6
			ENDIF
			IF FLAG:情緒 >= 100
				CALL PRINT_STR, "「嗯…！　哈呣、啾吧……_H_」_W_"
				CALL PRINT_STR, "「叭行(不行)……明明书(说)过的……_H_」_W_"
			ELSE
				CALL PRINT_STR, "「嗯…！　哈呣、啾吧……」_W_"
				CALL PRINT_STR, "「叭行(不行)……明明书(说)过的……」_W_"
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%用语言象征性地表达了抵抗，没有主动拒绝而是被动地接受着亲吻。
			DRAWLINE
		ENDIF
	ENDIF
ENDIF

;素股（実行前）
;なお、被逆推中は事故は起きない
IF SELECTCOM == 93 && PLAYER == MASTER && TEQUIP:推倒 == 0
	TFLAG:地の文スキップ = 1
	IF PREVCOM != SELECTCOM && CHECK_OUTER("连裤袜") && CHECK_OUTER("破的") == 0
		PRINTFORMW 要撕破%CALLNAME%的连体袜吗？
		CALL PRINT_SELECT, "是/保留"
		IF RESULT == 0
			PRINTFORM 想要把%CALLNAME:MASTER%%OUTER(TARGET, "略")%を破いて%CALLNAME%の
			CSTR:外套 += "破的/"
			IF CHECK_CLO("Ｖ露出")
				PRINTFORMW \@ PENIS(TARGET) ? 股間 # 阴部 \@を剥き出しにした…
			ELSE
				PRINTFORMW 内衣露了出来…
			ENDIF
			IF COND("合意：本番") == 0 && CEVENT("连裤袜破き") == 0
				PRINTFORMW %CALLNAME:MASTER%突然的行动，让%CALLNAME%身体紧张得僵硬起来。
				PRINTL
				PRINTFORMW 「稍微…等等……」
				PRINTFORMW 「不是说好了不能H吗…？」
				PRINTL
				PRINTFORMW 向她说明不插入只是摩擦，%CALLNAME%勉强算是理解了。
				PRINTL
				CALL SET_CEVENT, "胖次撕裂"
			ENDIF
		ENDIF
	ENDIF
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF COND("合意：本番") == 0
			IF FLAG:情緒 >= 50
				CALL PRINT_STR, "「我想确认一下，只是摩擦一下而已……吗？」_W_"
				CALL PRINT_STR, "「绝对是不能插入的……」_W_"
				CALL PRINT_STR, "「……嗯_HH_」_W_"
				CALL PRINT_STR, "「看，我会好好夹住的，腰要開始动了哦………………」_W_"
			ELSE
				CALL PRINT_STR, "「我想知道，只是摩擦一下而已吗？」_W_"
				CALL PRINT_STR, "「绝对是不能插入的……」_W_"
				CALL PRINT_STR, "「看，我会好好夹住的，腰要開始动了哦………………」_W_"
			ENDIF
		ELSE
			IF FLAG:情緒 >= 50
				CALL PRINT_STR, "「只要这样摩擦就行了？」_W_"
				CALL PRINT_STR, "「……嗯_HH_」_W_"
				CALL PRINT_STR, "「看，我会好好夹住的，腰要開始动了哦………………」_W_"
			ELSE
				CALL PRINT_STR, "「只要这样摩擦就行了？」_W_"
				CALL PRINT_STR, "「看，我会好好夹住的，腰要開始动了哦………………」_W_"
			ENDIF

		ENDIF
		PRINTL
	;二回目以降
	;ELSE

	ENDIF
	;地の文を表示
	CALL TRAIN_MESSAGE_COM93
	;你が男性で相手が女性でなければ発生しない
	IF TALENT:MASTER:男性 == 0 || TALENT:男性
	;挿入できる状態でなければ事故は起きない
	ELSEIF USE_V(TARGET) == 0
	;阴茎が大きすぎる
	ELSEIF EXP_GAIN("Ｖ性交経験") == 0 && PENIS(PLAYER) && SIZE("阴茎", PLAYER) >= ABL:Ｖ拡張 + 2
	;潤滑不足
	ELSEIF PALAM:Ｖ潤 < 1000
	;情緒不足　改変　甜言蜜语で満たせる様に緩和
	ELSEIF (CEVENT("素股警戒") == 0 && FLAG:情緒 < 35) || (CEVENT("素股警戒") && FLAG:情緒 < 200)
	;ELSEIF (CEVENT("素股警戒") == 0 && FLAG:情緒 < 50) || (CEVENT("素股警戒") && FLAG:情緒 < 200)
	;発生予告
	ELSEIF CEVENT("素股イベント予告") == 0 && RAND:(MIN(1 + LIMIT(PALAM:Ｖ潤 - 1000, 0, 4000) + FLAG:情緒 * 25, 6000)) >= 3000 + ((CEVENT("素股警戒") > 0) * 1500)
		SETCOLOR DEF_COLOR("黄色")
			PRINTFORMW ……现在，感觉龟頭好像稍微被秘裂吞进去了。
			CALL SET_CEVENT, "素股イベント予告"
		RESETCOLOR
	;確率で事故発生。一度でも挿入したことがあれば発生率ダウン
	ELSEIF CEVENT("素股イベント予告") && RAND:(MIN(1 + LIMIT(PALAM:Ｖ潤 - 1000, 0, 4000) + FLAG:情緒 * 25, 6000)) >= 3000 + ((CEVENT("素股警戒") > 0) * 1500)
		PRINTFORMW 感觉只要腰部用力的话，肉棒的前端就能直接插进那秘裂里去了。
		IF CEVENT("素股警戒") > 0
			SETCOLOR DEF_COLOR("黄色")
				PRINTFORMW 如果就这样塞进去的话，好像可以插入………
			RESETCOLOR
		ELSE
			PRINTFORMW %CALLNAME%用手扶着%CALLNAME:MASTER%的肩膀，催促着稍微停一下……
		ENDIF
		PRINTL
		IF FIRSTCOMS("Ｖ挿入") == 0
			IF RAND:2 == 0
				CALL PRINT_STR, "「呼啊……_HH_」_W_"
				CALL PRINT_STR, "「现在，好像稍微插入进去了，好像……」_W_"
				CALL PRINT_STR, "「停、停下…不停下的话……这样下去……到里面来了…因为……啊」_W_"
			ELSE
				CALL PRINT_STR, "「呀！……_HH_」_W_"
				CALL PRINT_STR, "「稍微……先停下来……」_W_"
				CALL PRINT_STR, "「现在，稍微有些……啊，好像插进去了…所以……啊」_W_"
			ENDIF
		ENDIF
		SETCOLOR DEF_COLOR("黄色")
			CALL PRINT_SELECT, "腰を引く/押し込む"
		RESETCOLOR
		IF RESULT == 1
			;合意が無ければ反感
			SIF COND("合意：本番") == 0
				SOURCE:反感追加 += 3400 - FLAG:情緒 * 12
			IF FIRSTCOMS("Ｖ挿入") == 0
				PRINTL
				IF COND("合意：本番") == 0
					PRINTFORMW 对不起……腰部……停不下来……
					CALL PRINT_STR, "「不行，快停下来……！」_W_"
					CALL PRINT_STR, "「现在不停下的话……真的就……_HH_」_W_"
					CALL PRINT_STR, "「～～～っ！！ ～～～～～～っ！！」_W_"
					CALL PRINT_STR, "「～～～～～～っ_HH_　_HH_　_HH_」_L_"
				ELSE
					PRINTFORMW #!#合意有素股事故
				ENDIF
			ENDIF
			PRINTL
			PRINTFORMW 不顾一切地强行推入阴茎，尖端传来的抵触感仅仅一小会就消失了。取而代之的是咕啾咕啾的美妙触感，随后阴茎完全被温暖的肉壁包裹住了。
			PRINTFORM 想要把%CALLNAME:MASTER%
			SIF FIRSTCOMS("Ｖ挿入") == 0
				PRINTFORM 无视了%CALLNAME:TARGET%制止的声音。
			PRINTFORMW 以正常位插入了阴道，受欲望驱使開始了活塞运动！
			PRINTL
			CALL TEXT,"追加地の文：Ｖ挿入後",TARGET
			;正常位
			SELECTCOM = 60
			CALL SET_CEVENT, "素股イベント初回"
			CALL SET_CEVENT, "素股イベント発生中"
			;射精ゲージを重置
			BASE:MASTER:絶頂 = 0
		ELSE
			CALL PRINT_STR, "「啊…哈……_HH_」_W_"
			IF RAND:4 == 0
				IF COND("合意：本番") == 0
					CALL PRINT_STR, "「今天……是危险期……」_W_"
				ELSE
					CALL PRINT_STR, "「就这样，插进去，也很舒服_HH_」_W_"
				ENDIF
			ELSEIF RAND:3 == 0
				CALL PRINT_STR, "「要…好好地…忍耐」_W_"
				CALL PRINT_STR, "「嗯，真了不起呢♪」_W_"
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, "「哦呼呼」_W_"
				CALL PRINT_STR, "「不要露出那么遗憾的表情嘛♪」_W_"
			ELSE
				CALL PRINT_STR, "「对不起，要继续吗……」_W_"
			ENDIF
			FLAG:情緒 /= 2
			CALL SET_CEVENT, "口上スキップ"
			;射精ゲージを冷却器
			BASE:MASTER:絶頂 /= 2
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;COND("女性主導生性交")の判定だと安全日ならokで有今回は適切ではないので利用しない
;
;危険日生性交許可无　本番許可済み　Ｖ調教指令である　口服避孕薬常用无　避孕套個数0の場合、Ｖ挿入は拒む。
IF COND("合意：危険日生性交") == 0 && COND("合意：本番") && TRAIN_GENRE("Ｖ調教", SELECTCOM) && COND("避妊不要") == 0 && ITEM:避孕套 == 0
	;Ａルート陥落がベーシックなルートなので厚めにしておく
		PRINTFORML 「%TEXTR(@"一定要好好避孕哟？%CNAME("二人称")%还是高中生，有孩子还是太早了呢/不论如何，就算因为身体欲望的驱使，不去考虑我们的母子関系，但是还是要好好避孕哦/似乎没有避孕套啊，今天就别做了吧")%」
	IF COND("合意：肛門性交") && RAND:2 == 0
		PRINTFORM 「%TEXTR("不能插到小穴里来哦/换一种吧/不可以真的做爱哦")%……_"
		;"
		PRINTFORMW %TEXTR(@"今天会一直把%CNAME("一人称")%的肛門搞到坏掉……吗？/我会尽力用屁股满足你的……/%CNAME("一人称")%会献上肛門的……希望你能原谅妈妈")%」
	ELSE
		PRINTFORML 「%TEXTR("别露出那种表情啦……/下次在情人旅馆，也许……/好乖好乖……打起精神来吧")%」
		PRINTFORMW 「%TEXTR(@"今天%CNAME("一人称")%会尽力为你服务的，原谅妈妈吧/不能做那种事%CNAME("一人称")%也很难受……忍耐一下吧/呐，除了真正的做爱，我什么都可以给你做哦")%？」
	ENDIF
	FLAG:情緒 -= 120
	CALL TEXT, "情緒変化", -120
	WAIT
	TFLAG:指令中止 = 1
	CALL SETFLAG, "Ｖ調教指令禁止"
ENDIF

IF TRAIN_GENRE("Ｖ調教", SELECTCOM) + TRAIN_GENRE("尿道挿入", SELECTCOM) + TRAIN_GENRE("Ａ挿入", SELECTCOM) && CHECK_OUTER("连裤袜") && CHECK_OUTER("破的") == 0 && ASSIPLAY == 0
	PRINTFORMW 要撕破%CALLNAME%的连体袜吗？
	CALL PRINT_SELECT, "是/保留"
	IF RESULT == 0
		IF RAND:2 == 0
			PRINTFORML 「%CNAME("一人称")%%TEXTR("居然这么粗暴，真是让人为难的孩子啊/想要撕破以后，强行插入吗？/怎么用那种眼光看着我？")%」
		ELSE
			PRINTFORML 「%TEXTR("哎呀！/真是的")%……%TEXTR("太兴奋了吧，就算是自己的儿子，都让人觉得为难呢/对我这样没関系，但是对其他的孩子要温柔一点哦？")%」
		ENDIF
		PRINTFORM 想要把%CALLNAME:MASTER%%OUTER(TARGET, "略")%用力地撕破%CALLNAME%的
		CSTR:外套 += "破的/"
		IF CHECK_CLO("Ｖ露出")
			PRINTFORMW \@ PENIS(TARGET) ? 股间 # 阴部 \@赤裸地展露出来……
		ELSE
			PRINTFORMW 露出了内衣……
		ENDIF
	ENDIF
ENDIF

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K10, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
SIF ASSIPLAY
	RETURN 0
;-------------------------------------------------
;パラメータ変動時のセリフ
;-------------------------------------------------
SELECTCASE ARGS
;-------------------------------------------------
;初めてＶ潤がLV3超えた
;-------------------------------------------------
CASE "Ｖ潤LV3突破"
	;初めて
	IF FIRST_EV("Ｖ潤LV3突破") == 0
		;潤滑液を使った場合
		IF SELECTCOM == 260
			IF COND("合意：本番") == 0
				PRINTFORMW 「好不容易用了润滑液啊」
				CALL PRINT_STR, @"「%CNAME("一人称")%的股交有让你感到舒服吗？_HH_」_W"
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		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_K10, 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_K10
;恋慕
;IF TALENT:恋慕
;	PRINTFORMW
;それ以外
;ELSE
;	PRINTFORMW
;ENDIF

IF COND("合意：本番") == 0 && INSERT("Ｖ挿入") > 0
	PRINTL
	IF CEVENT("ナカダメ") == 0
		CALL PRINT_STR, "「要、要出来了吗！？」_W_"
		CALL PRINT_STR, "「……至少要射在外边哦」_W_"
		CALL PRINT_STR, "「要听话呢，射在小穴里是绝对不行的！？」_W_"
		CALL SET_CEVENT, "ナカダメ"
	ELSE
		CALL PRINT_STR, "「拜托了。」_W_"
		CALL PRINT_STR, "「一定…要射在外边」_W_"
		CALL PRINT_STR, "「要出来了_HH_」_W_"
	ENDIF
	RETURN 1
ENDIF

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

SIF ASSIPLAY
	RETURN 0

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW #!#射出　自慰射精
	;超大量射精
	ELSEIF COND("絶頂", PLAYER) >= 3
		PRINTFORMW #!#射出　超大量射精
	;大量射精
	ELSEIF COND("絶頂", PLAYER) == 2
		PRINTFORMW #!#射出　大量射精
	ELSE
		PRINTFORMW #!#射出　通常
	ENDIF
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"

;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰")
	PRINTFORMW #!#ぶっかけではない　自慰で射精
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"

;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた
;-------------------------------------------------
ELSEIF SHOOT("脚")
	;初めて
	IF FIRST_EV("絶頂：脚") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW #!#脚射精（第一次）（恋慕）
		;それ以外
		ELSE
			PRINTFORMW #!#脚射精（第一次
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW #!#脚射精（恋慕）
		;それ以外
		ELSE
			PRINTFORMW #!#脚射精
		ENDIF
	ENDIF
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
ELSEIF SHOOT("素股")
	PRINTFORMW #!#素股で射精
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
;-------------------------------------------------
;口で射精させた
;-------------------------------------------------
ELSEIF SHOOT("口")
	;初めて
	IF FIRST_EV("絶頂：口") == 0
		PRINTFORMW #!#口射精（第一次）
	;精液中毒Lv5
	ELSEIF ABL:精液中毒 >= 5
		PRINTFORMW #!#口射精（精液中毒Lv5以上）
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		PRINTFORMW #!#で射精（精液中毒Lv3以上）
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW #!#口射精（奉仕精神Lv3以上）
	;それ以外
	ELSE
		PRINTFORMW #!#口射精
	ENDIF
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW #!#胸射精（第一次）
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW #!#胸部射精（奉仕精神Lv5以上）
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW #!#胸部射精（奉仕精神Lv3以上）
	;それ以外
	ELSE
		PRINTFORMW #!#胸部射精
	ENDIF
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW #!#手射精（第一次）
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW #!#手射精（奉仕精神Lv5以上）
	;奉仕精神Lv3
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW #!#手射精（奉仕精神Lv3以上）
	;それ以外
	ELSE
		PRINTFORMW #!#手射精
	ENDIF
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
;-------------------------------------------------
;性交で射精させた#####
;-------------------------------------------------
ELSEIF SHOOT("Ｖ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ｖ中出し") == 0
		IF COND("合意：危険日生性交") == 0
			IF CEVENT("ナカダメ") > 0
				CALL PRINT_STR, "「～～～～～～～～ッッ_HH_ _HH_ _HH_ _HH_ _HH_」_W_"
				CALL PRINT_STR, "「……っ、…、………っっ_HH_ _HH_ _HH_」_W_"
				IF COND("絶頂", PLAYER) >= 2
					CALL PRINT_STR, "「～～～～～～～～～～、～～～～ッッ_HH_ _HH_ _HH_ _HH_ _HH_」_W_"
					CALL PRINT_STR, "「っ、…っ_HH_ _HH_ _HH_」_W_"
					CALL PRINT_STR, "「……_HH_」_W_"
				ENDIF
				PRINTL
				PRINTFORMW %CALLNAME:MASTER%把最后一滴精液都射在里面，随后与%CALLNAME%相拥，沉浸在高潮的余韵中……
				PRINTL
				PRINTFORMW 「哈啊……哈啊……哈啊……」
				PRINTFORMW 「明明说过，不可以射在里边的」
			ELSE
				PRINTFORMW 「啊…唔、哈……」
				PRINTFORMW 「从小穴里流出来了……」
				PRINTL
				PRINTFORMW %CALLNAME:MASTER%把最后一滴精液都射在里面，随后与%CALLNAME%相拥，沉浸在高潮的余韵中……
				PRINTL
				PRINTFORMW 「哈啊……哈啊……哈啊……」
				PRINTFORMW 「真是的，在%CNAME("一人称")%的阴道里射精什么的……」
			ENDIF
			PRINTL
			SETCOLOR DEF_COLOR("黄色")
				PRINTL [0]对不起                             (恭順の珠+300)
				PRINTL [1]太舒服了不由自主就…                (欲情の珠+100)
			RESETCOLOR
			IF ASSI == 0
				SETCOLOR DEF_COLOR("黄色")
					PRINTL [2]我喜欢你，希望你能成为我的恋人          (告白 & 好感度BOUNS：中)
				RESETCOLOR
			ELSE
				SETCOLOR 128,128,128
					PRINTL [2]我喜欢你，希望你能成为我的恋人           (不是两人单独相处的话不能选择)
				RESETCOLOR
			ENDIF
			$INPUT_LOOP_NAKADASHI
			INPUT
			IF RESULT == 0
				JUEL:恭順 += 300
			ELSEIF RESULT == 1
				JUEL:欲情 += 100
			ELSEIF RESULT == 2 && ASSI == 0
				TFLAG:好感度BOUNS += 50
				IF CEVENT("告白お断り済み")
					PRINTFORMW 「就、就算你说这种话，我也不会被骗的！」
					PRINTFORMW 「马上就变得得意忘形起来了……」
				ELSE
					PRINTFORMW 「这、这种时候你在说什么啊！真是的……」
					PRINTFORMW 虽然%CALLNAME%想要轻描淡写地略过，告白的%CALLNAME:MASTER%看起来却一脸认真。
					PRINTFORMW 在考虑应该怎么回答呢，时间在这一瞬间仿佛不再流逝。
					PRINTL
					PRINTFORMW 「…………」
					PRINTFORMW 「你明白自己说的话意味着什么吗？」
					PRINTFORMW 「……是啊，是认真的吗」
					PRINTL
					PRINTFORMW 「%CNAMET(TARGET, "二人称")%用那种眼神看%CNAME("一人称")%的时候，我就已经明白了」
					PRINTFORMW %CALLNAME%抚摸着%CALLNAME:MASTER%的頭，用温和的声音说着。
					PRINTFORMW 「但这只是青春期对女性的兴趣变强了而已」
					PRINTFORMW 「不是真正的恋慕心哟。所以不能成为恋人，不可以的。明白吗？」
					PRINTFORMW 尽管已经大大地跨越了母子的那条界线，可那声音却始终充满着身为“母亲”的慈爱。
					PRINTFORMW 现在这一瞬间，用炽热的粘膜感受着彼此的存在。
					PRINTFORMW 「所以啊，我不能成为%CNAMET(TARGET, "二人称")%的女朋友」
					PRINTFORMW 「对不起啊」
					PRINTFORMW 嘴里发出灼热的气息，至少想夺走嘴唇，却被悄悄地躲開了。
					PRINTFORMW 「……呵呵，真是个让人为难的撒娇鬼啊」
					PRINTFORMW 「而%CNAME("一人称")%的心，就算现在也是爸爸的东西哦」
					PRINTFORMW 「真是的，别露出那种失落的表情嘛」
					PRINTFORMW 反而被亲吻了脸颊。
					PRINTL
				ENDIF
				PRINTFORMW ……%CALLNAME%的心似乎没有回应。
				PRINTFORMW 或许要让%CALLNAME%改变心意……
				SETCOLOR 255,255,0
				PRINTFORMW (※成为[相思相愛]、对方必须要拥有[恋慕])
				RESETCOLOR
				CALL SET_CEVENT, "告白被拒绝了"
				PRINTL
			ELSE
				GOTO INPUT_LOOP_NAKADASHI
			ENDIF
			IF COND("合意：本番") == 0 && CEVENT("斥责事件") == 0
				PRINTFORMW 「有好好地反省吗？」
				PRINTFORMW 「……这次就当做是意外忘了吧」
				PRINTFORMW   我会当作没发生过，下次请自制点。那个……如果怀孕了……那可就不妙了哦？」
				PRINTFORMW 「不能再有第二次了。如果不遵守约定的话、%CNAME("一人称")%也是有自己的考虑的」
				PRINTFORMW 看来%CALLNAME%似乎原谅了这件事。
				PRINTFORMW 注意%CALLNAME%開始对[素股]有所警戒了！
				PRINTL
				PRINTFORML - 系统信息 -
				PRINTFORML  情绪如果不是MAX就不会有股交事件发生。
				PRINTFORML 但是，即使再次发生“意外”，除了好感度下降以外也不会有其他处罚。
				PRINTFORML  想解除限制的话，首先想办法提升好感度吧。
				PRINTW
				PRINTL

				CALL SET_CEVENT, "素股警戒"
				CALL SET_CEVENT, "斥责事件"
				;情緒が低下
				FLAG:情緒 /= 2
			ENDIF

			;阴茎を引き抜かせる
			TFLAG:EJECT = 1

			;挑逗状態にして清洁口交回避
			SIF NOWEX:Ｖ绝顶前骤停 == 0
				NOWEX:Ｖ绝顶前骤停 = 1
			SIF CUP:快Ｖ == 0
				CUP:快Ｖ = 1
		ELSE
			IF TALENT:恋慕
				IF TALENT:相思相愛
					CALL PRINT_STR, "「～～～～～～～～ッッ_HH_ _HH_ _HH_ _HH_ _HH_」_W_"
					CALL PRINT_STR, "「……っ、…、………っっ_HH_ _HH_ _HH_」_W_"
					IF COND("絶頂", PLAYER) >= 2
						CALL PRINT_STR, "「～～～～～～～～～～、～～～～ッッ_HH_ _HH_ _HH_ _HH_ _HH_」_W_"
						CALL PRINT_STR, "「っ、…っ_HH_ _HH_ _HH_」_W_"
						CALL PRINT_STR, "「……_HH_」_W_"
					ENDIF
					PRINTL
					PRINTFORMW %CALLNAME:MASTER%把最后一滴精液都射在里面，随后与%CALLNAME%相拥，沉浸在高潮的余韵中……
					PRINTL
					PRINTFORMW 「哈啊……哈啊……哈啊……」
					PRINTFORMW 「虽然%CNAME("一人称")%多少做了一些心理准备、可是%CNAME("二人称")%真是一点顾虑都没有呢……」
					PRINTFORMW %CALLNAME%半是埋怨、半是羞涩地横了%CALLNAME:MASTER%一眼
				ELSE
					PRINTFORMW 「啊…唔、哈……」
					PRINTFORMW 「从小穴里流出来了……」
					PRINTL
					PRINTFORMW %CALLNAME:MASTER%把最后一滴精液都射在里面，随后与%CALLNAME%相拥，沉浸在高潮的余韵中……
					PRINTL
					PRINTFORMW 「哈啊……哈啊……哈啊……」
					PRINTFORMW 「真是的，在%CNAME("一人称")%的阴道里射精什么的……」
				ENDIF
				PRINTL
				SETCOLOR DEF_COLOR("黄色")
					PRINTL [0]附到耳边说情话                          (恭順の珠+500)
					PRINTL [1]默默地亲吻上去                          (欲情の珠+300)
				RESETCOLOR
				IF ASSI == 0
					SETCOLOR DEF_COLOR("黄色")
						PRINTL [2]「今后、我会好好负起作为儿子和恋人的责任的！」          (好感度BOUNS：大)
					RESETCOLOR
				ELSE
					SETCOLOR 128,128,128
						PRINTL [2]「今后、我会好好负起作为儿子和恋人的责任的！」           (不是两人单独相处的话不能选择)
					RESETCOLOR
				ENDIF
				$INPUT_LOOP_NAKADASHI2
				INPUT
				IF RESULT == 0
					JUEL:恭順 += 500
					;甜言蜜语类似
					CALL PRINT_STR, @"「%TEXTR("呼呼~/芙芙~")%_HH_　即使%TEXTR("不是真心的、也没関系/只是在欺骗妈妈也没関系/没那么有诚意、妈妈也不在意")%」_W"
					CALL PRINT_STR, @"「因为、%TEXTR("妈妈/我/曾经只把自己当做母親的我")%啊…已经是%TEXTR("爱上亲生儿子的有罪妈妈了/和亲生儿子出轨的不道德老师了/沉溺于背德亲子爱的坏女人了")%_HH_」_W"
					CALL PRINT_STR, @"「所以啊……只要%CALLNAME:PLAYER%一天还在%TEXTR("这个无道德的妈妈/有罪的我/这个罪恶女性")%的身边的话、无论如何都无法从你的身边离開了呢_HH_」_W"
					PRINTFORML %CALLNAME:TARGET%向%CALLNAME:PLAYER%张開了双臂、像是索求%TEXTR("一个持续到永远的拥抱/一座无法回頭的港湾/将罪人锁在爱与欲望的牢笼之中")%……
				ELSEIF RESULT == 1
					JUEL:欲情 += 300
					EXP:接吻経験 += 1
					EXP:PLAYER:接吻経験 += 1
					;接吻类似
					CALL PRINT_STR, @"「%TEXTR("呼呼~/哼哼~/哦？")% 不是用话语而是用%TEXTR("亲吻/亲亲/舌頭的接触")%来回答%CNAME("一人称")%吗？ 可以哦_HH_~」_W"
					CALL KOJO_K10_RAND_VOICE
					CALL PRINT_STR, @"「%TEXTR("好喜歡、今后也请继续哦/今后也可以哦、妈妈已经……/呼呼、好想你能一直做下去/乖孩子、今后也请继续哦……我已经……")%_HH_」_W"
				ELSEIF RESULT == 2 && ASSI == 0
					TFLAG:好感度BOUNS += 100
					;不愿相信
					IF MARK:屈服刻印 < 2
						PRINTFORMW 「讨厌……这、这种时候你在说什么啊！真是的……」
						PRINTFORMW 「就、就算你说这种话，%TEXTR("妈妈/母亲/我")%可不是那些好骗的小女生啊！」
						PRINTFORMW 「马上就变得得意忘形起来了……」
						PRINTL
						PRINTFORMW 「…………」
						PRINTFORMW 「%TEXTR("妈妈/母親/我")%啊、只要%CNAME("二人称")%能够幸福、自己是怎么样完全没関系哦」
						PRINTFORMW 「所以、不用为了照顾%TEXTR("妈妈/母親/我")%的感受、而说这种话哦」
						PRINTL
						PRINTFORMW 即便再三解释了自己是真心的、%CALLNAME%也不愿意相信
						PRINTFORMW 看来距离完全占据%CALLNAME%还差最后一步啊……
					ELSE
						PRINTFORMW %CALLNAME%一瞬间惊讶得停止呼吸了、但是立刻就回过神来、无限温柔地将%CALLNAME:MASTER%揽入怀中
						PRINTFORMW 「嗯……就这么拜托你了哦、%TEXTR("妈妈/母親/我")%相信你」
						PRINTFORMW 「毕竟%CALLNAME:MASTER%啊、既是个恋母控、是%TEXTR("妈妈/母親/我")%的%TEXTR("好儿子/乖宝宝/爱人/恋人")%呢~」
						PRINTFORMW 两个人相拥相连，体味着对方灼热的粘膜，却没有色情的感觉，只觉得无限眷恋，时间在这一瞬间仿佛不再流逝。
						PRINTL
						PRINTFORMW 「不知道什么时候開始、%TEXTR("妈妈/母親/我")%心底的那个影子已经被%CALLNAME:MASTER%完全替代了……」
						PRINTFORMW 「即使就在刚刚、%TEXTR("妈妈/母親/我")%也还对那个人非常愧疚……不知道该如何面对他的亡魂」
						PRINTFORMW 说起来，曾经还有个父亲啊。%CALLNAME:MASTER%的心里突然也起了一些可以忽略不计的羞愧、而且立刻就被%CALLNAME%滚烫的娇躯融化了……
						PRINTL
						PRINTFORMW 「但是、就在刚才听到%CNAMET(TARGET, "二人称")%那么认真的告白的时候、我已经不再恐惧了」
						PRINTFORMW %CALLNAME%与%CALLNAME:MASTER%十指相扣，用慈爱而濡湿的声音诉说道。
						PRINTFORMW 「只要母亲和孩子在一起、只要爱人与爱人相伴、只要%CALLNAME%仍在的身边、我就有面对一切的勇气……」
						PRINTFORMW 「今后、也请永远不要离開这个既是母親又是愛人的女性哦♥」
						PRINTFORMW %CALLNAME:MASTER%任由%CALLNAME%亲吻了你的手指，然后是手背、锁骨、肩膀、脖子……一路亲吻上去，最后在额頭停留了很久很久……
						PRINTL
					ENDIF
				ELSE
					GOTO INPUT_LOOP_NAKADASHI2
				ENDIF
			ELSE
				PRINTFORMW #!#Ｖ中出　無戀慕危险日无套插入ＯＫ（第一次）
			ENDIF
		ENDIF
	;两次以上
	;恋慕
	ELSEIF TALENT:恋慕
		IF TALENT:相思相愛
			;非學校中出（恋慕+相思相愛）
			CALL PRINT_STR, @"「%TEXTR("嗯嗯呜/呼嗯嗯哦/咿呜嗯嗯")%_HH__HH__HH_ ～～～～～～～～%TEXTR("呼…呼……/哼…哼……哦……")%」_W"
			PRINTFORM 「真是的……
			;超大量射精
			IF COND("絶頂", PLAYER) >= 3
				CALL PRINT_STR, @"%TEXTR("竟然毫不留情地射出了那————么多的量/注射了那么多的话、都溢出来了/好像在炫耀性能力一样、往里面灌了那么多")%_BHH_」_W"
			;大量射精
			ELSEIF COND("絶頂", PLAYER) == 2
				CALL PRINT_STR, @"%TEXTR("竟然射出了那么多/注射了那么多的话、都滴下来了/射出了那么多、好像在炫耀性能力一样")%_BHH_」_W"
			ELSE
				CALL PRINT_STR, @"%TEXTR("射了那么多/全都射在里面了呢/真是年轻健壮呢")%_BHH_」_W"
			ENDIF
			IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
				IF RAND:4 == 0
					CALL PRINT_STR, @"「%TEXTR("但是、可不要停下哦/…还可以继续做的吧/…让我们继续吧")%、%TEXTR("呼呼~/芙芙~/哼哼~/嘿嘿~")% 在学校的时间%TEXTR("妈妈/母親/我")%可是忍耐得很辛苦哦_HH__HH_」_W"
					PRINTFORMW %CALLNAME%用她的%TEXTR("美臀/蜜桃似的臀部/泛着粉色的雪臀")%诱惑似的轻蹭%CALLNAME:PLAYER%的\@ SIZE("阴茎", PLAYER) >= 2 ?巨根#肉棒\@……
				ELSEIF RAND:3 == 0
					CALL PRINT_STR, @"「难道是想让%TEXTR("妈妈/母親/我")%%TEXTR("受孕/大肚子/懷上小寶寶")%嗎_HH_~可以哟、%TEXTR("盡情地向妈妈的身体里注射精液吧/无论射出多少、妈妈的身体都不会拒绝/努力地浇灌妈妈的卵子吧")%~_HH__HH_」_W"
					PRINTFORMW %CALLNAME%%TEXTR("滾燙/火熱/濡濕")%的%TEXTR("膣道/小穴/秘缝")%仿佛有生命一樣、吮吸起%CALLNAME:PLAYER%的\@ SIZE("阴茎", PLAYER) >= 2 ?巨根#肉棒\@来……
				ELSEIF RAND:2 == 0
					CALL PRINT_STR, @"「%TEXTR("不用那麼著急/慢慢來也没関系的哦/不会有别人来打扰的哦")%、%TEXTR("盡情/好好/沉醉")%地享受這段\@ ASSI == 0 ?只屬於我們母子的#\@%TEXTR("相處時間/親密時間/秘密時間")%吧~_HH__HH_」_W"
					PRINTFORMW %CALLNAME%%TEXTR("滾燙/火熱/濡濕")%的%TEXTR("膣道/小穴/秘缝")%仿佛有生命一樣、要通過%CALLNAME:PLAYER%的\@ SIZE("阴茎", PLAYER) >= 2 ?巨根#肉棒\@將你的灵魂吸住……
				ELSE
					CALL PRINT_STR, @"「%TEXTR("乖孩子/好孩子/亲爱的/达令♥————呼呼")%~ %TEXTR("喜欢你/好爱你/妈妈的心里已经全都是你了")%、%TEXTR("贪婪/傲慢/无需怜惜/尽你所能")%地占据我的一切吧_HH_」_W"
					PRINTFORMW %CALLNAME%献上了近乎臣服的一吻、与她的%TEXTR("膣道/小穴/秘缝")%里的热量将%CALLNAME:PLAYER%的欲望完全点燃……
				ENDIF
			;學校Ｖ中出し（恋慕+相思相愛）
			ELSE
				IF RAND:3 == 0
					CALL PRINT_STR, @"「%TEXTR("妈妈/母親/老师")%下午可还要%TEXTR("上课/開会/办公")%呢、这样可怎么去啊_HH_~」_W"
					PRINTFORMW %CALLNAME%有气无力地向%CALLNAME:PLAYER%抱怨、但她的%TEXTR("膣道/小穴/秘缝")%却愈發火熱糾纏上來了……
				ELSEIF RAND:2 == 0
					CALL PRINT_STR, @"「虽然想和你说、不该在學校這種场所里中出……但是你也不会答应的吧、%TEXTR("妈妈/母親/老师")%可太了解你这个%TEXTR("坏孩子/色色的学生/正处青春期的儿子")%了_HH_」_W"
					PRINTFORMW %CALLNAME%有气无力地向%CALLNAME:PLAYER%抱怨、但她的%TEXTR("膣道/小穴/秘缝")%却愈發火熱糾纏上來了……
				ELSE
					CALL PRINT_STR, @"「%TEXTR("还有多少、赶快射出来吧…/再加把劲全发泄出来吧、/如果还想做、就赶快開始吧、")% 不要耽误了你下午的课程啊~」_W"
					PRINTFORMW %CALLNAME%附到%CALLNAME:PLAYER%耳边温和地建议道。她的%TEXTR("膣道/小穴/秘缝")%也无限温柔地吮吸起%CALLNAME:PLAYER%的\@ SIZE("阴茎", PLAYER) >= 2 ?巨根#肉棒\@来……
				ENDIF
			ENDIF
		ELSE
			PRINTFORMW #!#Ｖ中出し（恋慕+无相思相愛）
		ENDIF
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW #!#Ｖ中出し（屈服刻印Lv3以上）
	;それ以外
	ELSE
		PRINTFORMW #!#Ｖ中出し
	ENDIF
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
ELSEIF SHOOT("Ａ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ａ中出し") == 0
		PRINTFORMW #!#Ａ中出し（初めて）
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW #!#Ａ中出し（恋慕）
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW #!#Ａ中出し（屈服刻印Lv3以上）
	;それ以外
	ELSE
		PRINTFORMW #!#Ａ中出し
	ENDIF
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
ELSEIF SHOOT("接吻")
	;恋慕
	IF TALENT:恋慕
		CALL PRINT_STR, @"「%TEXTR("嘛/呀/嗯/呼呼")%~出來了這麼多_HH_……%TEXTR("妈妈/母亲/亲生母亲/老师")%的%TEXTR("吻/亲亲/舌頭")%就那么舒服吗_HH_~」_W_"
		PRINTFORMW 「只靠%TEXTR("亲吻/亲亲/舌頭的接触")%就%TEXTR("射精了/忍不住了/射出來了")%什么的……%TEXTR("嘻嘻/呼呼/芙芙")%~~%CNAME("二人称")%还是个喜欢和%TEXTR("妈妈/母亲/老师")%撒娇的小宝宝呢♥♥♥」
		IF TALENT:淫乱
			CALL PRINT_STR, @"「%TEXTR("但是、这样可不够啊/只是、可不能休息哦/但是、可不能停下来哦")%…%TEXTR("妈妈/母亲/老师")%还想要更多呢_HH_~」_W_"
		ELSE
			PRINTFORMW 「%TEXTR("所以、要不要休息一下呢？/但是、只是这样就满足了吗？/要不要停下来休息一会儿呢？")% 不用在意%TEXTR("妈妈/母亲/老师")%、没関系的哦」
			CALL PRINT_STR, @"%CALLNAME:TARGET%嘴上这么说着、手臂却越缠越紧、一副舍不得松開的样子……_W_"
		ENDIF
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW #!#接吻で射精し（屈服刻印Lv3以上）
	;それ以外
	ELSE
		PRINTFORMW #!#接吻で射精し
	ENDIF
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗")
	PRINTFORMW #!#面部騎乗で射精
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶")
	PRINTFORMW #!#洗面奶で射精
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
ELSEIF SHOOT("逆舐陰")
	PRINTFORMW #!#逆舐陰で射精
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
;-------------------------------------------------
;逆肛交、逆強姦で射精
;-------------------------------------------------
ELSEIF SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")
	PRINTFORMW #!#逆強姦、逆肛交、肛門奉仕で射精
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
;-------------------------------------------------
;PLAYERが女で、イってしまった…
;-------------------------------------------------
ELSEIF SHOOT("調教者が女性")
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2
		PRINTFORMW #!#調教者が女性（強絶頂）
	;絶頂
	ELSEIF COND("絶頂", PLAYER) == 1
		PRINTFORMW #!#調教者が女性
	ENDIF
	;射精を行うなら事故フラグをオフにする
	CALL DEL_CEVENT, "素股イベント発生中"
ENDIF
PRINTL

;-------------------------------------------------
;角色が調教中に調教者を攻める際などの口上
;-------------------------------------------------
@KOJO_COUNTER_K10, ARGS
SELECTCASE ARGS
CASE "恍惚"
	PRINTFORMW
CASE "推倒"
	PRINTFORMW
CASE "強制終了"
	PRINTFORMW
CASE "復活"
	PRINTFORMW
CASE "恍惚から復帰"
	PRINTFORMW
CASE "助手が限界"
	PRINTFORMW
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;-------------------------------------------------
@KOJO_EVENT_K10, ARGS
SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
CASE "Ｖ避孕套装着"
	;挿入指令　現状対你しか書いてない
	IF TRAIN_GENRE("挿入", SELECTCOM)
		IF ASSIPLAY == 0
			;PLAYヤーは着ける気満々
			IF TEQUIP:PLAYER:避孕套 && COND("合意：危険日生性交") == 0 && RAND:3 == 0
				CALL PRINT_STR, @"「%TEXTR(@"好好避孕真了不起/有戴上避孕套%CNAME("一人称")%也很高兴/好孩子，如果戴上避孕套，就算是母子也可以安心的做了呢")%_H_」_L"
			;避孕套が無い
			ELSEIF ITEM:避孕套 == 0
				PRINTFORMW 「哎呀，避孕套不知道掉在什么地方了？」
			;你「この你　ことＶ挿入に限り虚偽は一切言わぬ　避孕套はつける……！」
			;「つけるが……今回　まだその時と場所の指定まではしていない　そのことをどうか母も思い出していただきたい」
			;「つまり……你がその気になれば避孕套をつけるのは１０年、２０年後ということもあるだろう……ということ……！」
			;安全日に生希望
			ELSEIF COND("安全日") && COND("合意：危険日生性交") == 0
				PRINTFORML 「%TEXTR("不行，如果射进去了怎么办/不行……就算是安全日也不能做哟")%？」
				PRINTFORMW 「%TEXTR(@"至少……在你%CNAME("二人称")%高中毕业之前要忍耐/那么……喜欢%CNAME("一人称")%吗……/我也爱你……但是，我们是母子関系哟")%」
			;非合意での危険日中だし
			;安全日じゃないけど避孕套没有を希望　危険日生性交合意无　避妊不要无
			ELSEIF COND("合意：危険日生性交") == 0 && COND("避妊不要") == 0
				PRINTFORML 「%TEXTR(@"今天……不是%CNAME("一人称")%的安全日，不可以直接插进来！！/啊，不行，不行，今天是危险日。不可以进来……啊啊、不行！！")%」
				PRINTFORMW 「%TEXTR("好好地戴上避孕套吧……/避孕套呢！？　不行、不行哦……/拔出来！！　母子之间不可以这样做，你忘了吗！？")%」
			ELSE
				;PRINTFORMW
			ENDIF
		ELSE
			;PRINTFORMW
		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 「%TEXTR("呼呼/芙芙")%~竟然弄得%CNAME("一人称")%妊娠了呢。那么，宝宝生下来的话，%CNAME("二人称")%要他叫你爸爸呢还是哥哥呢~」
	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
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	PRINTFORMW
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	PRINTFORMW 高潮过后、%CALLNAME%表情有些迷懵，看着如此可爱的母亲、%CALLNAME:MASTER%故意询问她的感受
	;恋慕
	IF TALENT:恋慕
		IF RAND:3 == 0
			CALL PRINT_STR,@"和%CALLNAME:MASTER%%TEXTR("做爱/SEX")%好%TEXTR("辛苦/难受/艰辛")%哦……因为、%CNAME("一人称")%轻易就会去呢_HH_~」_W"
			CALL PRINT_STR,@"「以前不是这样的……难道是我们母子的身体相性太好了吗、%TEXTR("呼呼/芙芙")%~~」_W"
			CALL PRINT_STR,@"诱惑着%TEXTR("儿子/亲生儿子")%做出这种事、%CNAME("一人称")%已经是个坏女人了……」_W"
			CALL PRINT_STR,@"「%TEXTR("作为赔偿/为了谢罪")%、%CALLNAME:MASTER%要好好%TEXTR("玩弄/调教/欺负")%这具色情的身体哦_HH_%TEXTR("呼呼/芙芙")%……」_W"
		ELSEIF RAND:2 == 0
			CALL PRINT_STR,@"%CNAME("一人称")%那么轻易就去了、%CALLNAME:MASTER%会觉得開心吗？」_W"
			CALL PRINT_STR,@"「%TEXTR("呼呼/芙芙")%~那——作为奖励、可以更多地%TEXTR("爱/来找")%%CNAME("一人称")%吗_HH_？」_W"
			CALL PRINT_STR,@"「%CNAME("一人称")%已经是你的俘虏了……要对%CNAME("一人称")%好点哦……」_W"
			PRINTFORMW %CALLNAME%向%CALLNAME:MASTER%露出了一个迷离、母性、魅惑的笑容……
		ELSE
			CALL PRINT_STR,@"好舒服、脑袋晕晕的……但是还想被%CALLNAME:MASTER%爱_HH_……」_W"
			CALL PRINT_STR,@"喜欢_HH_…好喜欢_HH__HH_……特别喜欢_BHH__BHH__BHH_」_W"
			CALL PRINT_STR,@"「%CALLNAME:MASTER%是%CALLNAME%的宝物来的……我的恋人、爱人,一切_HH_……」_W"
			PRINTFORMW 意识朦胧的%CALLNAME%用娇软的声音不停告白、还试图与%CALLNAME:MASTER%十指相扣……
		ENDIF
	ELSE
		CALL PRINT_STR,@"好孩子_HH_、不可以再%TEXTR("玩弄/欺负")%%CNAME("一人称")%的身体了……」_W"
		CALL PRINT_STR,@"「我们明明是母子、却在做这种事……这是不可以的啦_BHH_哭哭_HH_」_W"
		PRINTFORMW %CALLNAME%用娇媚软糯的声音撒着娇，虽然嘴上说着不要、却不断用软软的手轻轻撩拨%CALLNAME:MASTER%的身体……
		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以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@GUEST_KOJO_K10, ARGS, ARG
SELECTCASE ARGS
CASE "調教相手に選ばれた"

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

	ELSE

	ENDIF

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

CASE "助手：对象に清洁舔阴"

CASE "助手：对象に清洁舔A"

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

CASE "助手：撮影開始"

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

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

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

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

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

CASE "助手で性処理"

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

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

ENDSELECT

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

;-------------------------------------------------
;調教指令終了時に行う共通処理
;-------------------------------------------------
@KOJO_ENDCOM_K10

;初調教前
IF CEVENT("調教開始：初調教") == 0
	;朝口交防止
	DITEMTYPE:TARGET:91 = 1
	;朝乳交防止
	DITEMTYPE:TARGET:92 = 1
	;朝舐陰防止
	DITEMTYPE:TARGET:98 = 1
	;朝逆正常位防止
	DITEMTYPE:TARGET:120 = 1
ELSE
	DITEMTYPE:TARGET:91 = 0
	DITEMTYPE:TARGET:92 = 0
	DITEMTYPE:TARGET:98 = 0
	DITEMTYPE:TARGET:120 = 0
ENDIF
IF COND("合意：本番") == 0
	;Ｖ本番禁止
	DITEMTYPE:TARGET:60 = 1
	DITEMTYPE:TARGET:61 = 1
	DITEMTYPE:TARGET:62 = 1
	DITEMTYPE:TARGET:63 = 1
	DITEMTYPE:TARGET:64 = 1
	DITEMTYPE:TARGET:65 = 1
	;尿道挿入禁止
	DITEMTYPE:TARGET:83 = 1
	;自慰禁止
	DITEMTYPE:TARGET:3 = 1
	;Ｖ逆調教指令禁止
	DITEMTYPE:TARGET:120 = 1
	DITEMTYPE:TARGET:121 = 1
	DITEMTYPE:TARGET:122 = 1
ELSE
	;Ｖ本番禁止
	DITEMTYPE:TARGET:60 = 0
	DITEMTYPE:TARGET:61 = 0
	DITEMTYPE:TARGET:62 = 0
	DITEMTYPE:TARGET:63 = 0
	DITEMTYPE:TARGET:64 = 0
	DITEMTYPE:TARGET:65 = 0
	;尿道挿入禁止
	DITEMTYPE:TARGET:83 = 0
	;自慰禁止
	DITEMTYPE:TARGET:3 = 0
	;Ｖ逆調教指令禁止
	DITEMTYPE:TARGET:120 = 0
	DITEMTYPE:TARGET:121 = 0
	DITEMTYPE:TARGET:122 = 0
ENDIF
IF COND("合意：肛門性交") == 0
	;Ａ本番禁止
	DITEMTYPE:TARGET:70 = 1
	DITEMTYPE:TARGET:71 = 1
	DITEMTYPE:TARGET:72 = 1
	DITEMTYPE:TARGET:73 = 1
	DITEMTYPE:TARGET:74 = 1
	DITEMTYPE:TARGET:75 = 1
	;Ａ調教指令禁止
	DITEMTYPE:TARGET:125 = 1
	DITEMTYPE:TARGET:126 = 1
	DITEMTYPE:TARGET:127 = 1
ELSE
	;Ａ本番禁止
	DITEMTYPE:TARGET:70 = 0
	DITEMTYPE:TARGET:71 = 0
	DITEMTYPE:TARGET:72 = 0
	DITEMTYPE:TARGET:73 = 0
	DITEMTYPE:TARGET:74 = 0
	DITEMTYPE:TARGET:75 = 0
	;Ａ調教指令禁止
	DITEMTYPE:TARGET:125 = 0
	DITEMTYPE:TARGET:126 = 0
	DITEMTYPE:TARGET:127 = 0
ENDIF
IF CEVENT("素股イベント発生中") && COND("合意：本番") == 0
	;挿入に夢中で阴茎を拔出行為を選べない
	DITEMTYPE:TARGET:8 = 1
	DITEMTYPE:TARGET:9 = 1
	DITEMTYPE:TARGET:10 = 1
	DITEMTYPE:TARGET:11 = 1
	DITEMTYPE:TARGET:12 = 1
	DITEMTYPE:TARGET:13 = 1
	DITEMTYPE:TARGET:14 = 1
	DITEMTYPE:TARGET:15 = 1

	DITEMTYPE:TARGET:30 = 1
	DITEMTYPE:TARGET:31 = 1
	DITEMTYPE:TARGET:33 = 1
	DITEMTYPE:TARGET:37 = 1

	DITEMTYPE:TARGET:80 = 1
	DITEMTYPE:TARGET:81 = 1
	DITEMTYPE:TARGET:82 = 1
	DITEMTYPE:TARGET:83 = 1

	DITEMTYPE:TARGET:90 = 1
	DITEMTYPE:TARGET:91 = 1
	DITEMTYPE:TARGET:92 = 1
	DITEMTYPE:TARGET:93 = 1
	DITEMTYPE:TARGET:94 = 1
	DITEMTYPE:TARGET:95 = 1
	DITEMTYPE:TARGET:96 = 1
	DITEMTYPE:TARGET:97 = 1
	DITEMTYPE:TARGET:98 = 1
	DITEMTYPE:TARGET:99 = 1
	DITEMTYPE:TARGET:104 = 1
	DITEMTYPE:TARGET:105 = 1
	DITEMTYPE:TARGET:106 = 1
	DITEMTYPE:TARGET:107 = 1

	DITEMTYPE:TARGET:133 = 1
	DITEMTYPE:TARGET:134 = 1
	DITEMTYPE:TARGET:135 = 1
	DITEMTYPE:TARGET:136 = 1
	DITEMTYPE:TARGET:140 = 1
	DITEMTYPE:TARGET:141 = 1
	DITEMTYPE:TARGET:142 = 1
	DITEMTYPE:TARGET:143 = 1
	DITEMTYPE:TARGET:145 = 1
	DITEMTYPE:TARGET:146 = 1
	DITEMTYPE:TARGET:147 = 1
	DITEMTYPE:TARGET:148 = 1
	DITEMTYPE:TARGET:149 = 1
	DITEMTYPE:TARGET:150 = 1
	DITEMTYPE:TARGET:151 = 1

	DITEMTYPE:TARGET:170 = 1
	DITEMTYPE:TARGET:171 = 1
	DITEMTYPE:TARGET:172 = 1
	DITEMTYPE:TARGET:173 = 1
	DITEMTYPE:TARGET:174 = 1
	DITEMTYPE:TARGET:175 = 1
	DITEMTYPE:TARGET:176 = 1
	DITEMTYPE:TARGET:178 = 1

	DITEMTYPE:TARGET:260 = 1
	DITEMTYPE:TARGET:261 = 1
	DITEMTYPE:TARGET:262 = 1
	DITEMTYPE:TARGET:264 = 1
	DITEMTYPE:TARGET:267 = 1

	DITEMTYPE:TARGET:282 = 1

	;正常位を一時的に解放する
	DITEMTYPE:TARGET:60 = 0
ELSE
	DITEMTYPE:TARGET:8 = 0
	DITEMTYPE:TARGET:9 = 0
	DITEMTYPE:TARGET:10 = 0
	DITEMTYPE:TARGET:11 = 0
	DITEMTYPE:TARGET:12 = 0
	DITEMTYPE:TARGET:13 = 0
	DITEMTYPE:TARGET:14 = 0
	DITEMTYPE:TARGET:15 = 0

	DITEMTYPE:TARGET:30 = 0
	DITEMTYPE:TARGET:31 = 0
	DITEMTYPE:TARGET:33 = 0
	DITEMTYPE:TARGET:37 = 0

	DITEMTYPE:TARGET:80 = 0
	DITEMTYPE:TARGET:81 = 0
	DITEMTYPE:TARGET:82 = 0
	DITEMTYPE:TARGET:83 = 0

	DITEMTYPE:TARGET:90 = 0
	DITEMTYPE:TARGET:91 = 0
	DITEMTYPE:TARGET:92 = 0
	DITEMTYPE:TARGET:93 = 0
	DITEMTYPE:TARGET:94 = 0
	DITEMTYPE:TARGET:95 = 0
	DITEMTYPE:TARGET:96 = 0
	DITEMTYPE:TARGET:97 = 0
	DITEMTYPE:TARGET:98 = 0
	DITEMTYPE:TARGET:99 = 0
	DITEMTYPE:TARGET:104 = 0
	DITEMTYPE:TARGET:105 = 0
	DITEMTYPE:TARGET:106 = 0
	DITEMTYPE:TARGET:107 = 0

	DITEMTYPE:TARGET:133 = 0
	DITEMTYPE:TARGET:134 = 0
	DITEMTYPE:TARGET:135 = 0
	DITEMTYPE:TARGET:136 = 0
	DITEMTYPE:TARGET:140 = 0
	DITEMTYPE:TARGET:141 = 0
	DITEMTYPE:TARGET:142 = 0
	DITEMTYPE:TARGET:143 = 0
	DITEMTYPE:TARGET:145 = 0
	DITEMTYPE:TARGET:146 = 0
	DITEMTYPE:TARGET:147 = 0
	DITEMTYPE:TARGET:148 = 0
	DITEMTYPE:TARGET:149 = 0
	DITEMTYPE:TARGET:150 = 0
	DITEMTYPE:TARGET:151 = 0

	DITEMTYPE:TARGET:170 = 0
	DITEMTYPE:TARGET:171 = 0
	DITEMTYPE:TARGET:172 = 0
	DITEMTYPE:TARGET:173 = 0
	DITEMTYPE:TARGET:174 = 0
	DITEMTYPE:TARGET:175 = 0
	DITEMTYPE:TARGET:176 = 0
	DITEMTYPE:TARGET:178 = 0

	DITEMTYPE:TARGET:260 = 0
	DITEMTYPE:TARGET:261 = 0
	DITEMTYPE:TARGET:262 = 0
	DITEMTYPE:TARGET:264 = 0
	DITEMTYPE:TARGET:267 = 0

	DITEMTYPE:TARGET:282 = 0

	;正常位を再封印する
	SIF COND("合意：本番") == 0
		DITEMTYPE:TARGET:60 = 1
ENDIF
RETURN 1

path: ERB/EVENT_K/10 メリィエーナ/EVENT_K10_メリィエーナ（再次加笔版）.ERB

license: unknown