path: ERB/EVENT_K/50 シュトリー/UPDATE_K50.ERB

license: unknown


code:
;-------------------------------------------------
;口上テンプレート
;森賀棗口上
;製作者　やぶへび
;-------------------------------------------------
;コンセプトは「魔女っこ高大巨乳巨尻幼馴染口上」
;胸部ばっかり埋める。
;「男の人のアレ（ソレ）」「胸」「あそこ」「精子」「きちゃう」（ふんわり）→「おちんちん」「胸部」「おまんこ」「精子」「イく」
;ちんこへの刺激には弱い。
;しりは苦手
;推倒は「もう理性で抑えられないくらいに君が好きっ！」
;相思相愛→余裕が有Ｓっけがある。恋慕→好きで少しＨになるけど一歩が踏めない
;Ｓっけが絡みそうなのは相思相愛で分岐をする。
;親しい人には崩した口調で、其他にはきちんとした口調。
;なぜ相思相愛になるとアヘるのかは理性でセーブしてたのがとんでるから。
;-------------------------------------------------

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

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 我_我
CASE "二人称"
	IF PLAYER == MASTER
		LOCALS = %NAME:MASTER%_%CSTR:MASTER:ふりがな%
	ELSEIF NO:PLAYER == 1
		LOCALS = フェリ桑_ふぇり桑
	ELSEIF NO:PLAYER == 18
		LOCALS = 長谷川老师_はせがわ老师
	ELSEIF NO:PLAYER == 21
		LOCALS = 蓬莱前輩_ほうらい前輩
	ELSEIF NO:PLAYER == 35
		LOCALS = 灯酱_ともる酱
	ELSEIF NO:PLAYER == 39
		LOCALS = 小早川前輩_こばやかわ前輩
	ELSEIF NO:PLAYER == 40
		LOCALS = 織笠前輩_おりかさ前輩
	ELSEIF NO:PLAYER == 41
		LOCALS = 氷之守前輩_ひのもり前輩
;	ELSEIF NO:PLAYER == 45
;		LOCALS = 小夜ちゃ……前輩_さよちゃ……前輩
	ELSEIF NO:PLAYER == 60
		LOCALS = 生実前輩_いくみ前輩
	ELSEIF NO:PLAYER == 62
		LOCALS = 霧江酱_きりえ酱
	ELSE
		SELECTCASE CSTR:PLAYER:学年
		CASE "初等部", "中等部", "１年生", "２年生"
			IF TALENT:PLAYER:男性
				LOCALS = %CALLNAME:PLAYER%君_%CSTR:PLAYER:ふりがな%君
			ELSE
				LOCALS = %CALLNAME:PLAYER%酱_%CSTR:PLAYER:ふりがな%酱
			ENDIF
		CASE "３年生", "研究生"
			LOCALS = %CALLNAME:PLAYER%前輩_%CSTR:PLAYER:ふりがな%前輩
		CASE "教師"
			LOCALS = %CALLNAME:PLAYER%老师_%CSTR:PLAYER:ふりがな%老师
		CASEELSE
			LOCALS = %CALLNAME:PLAYER%桑_%CSTR:PLAYER:ふりがな%桑
		ENDSELECT
	ENDIF
;"主人"と"助手"は三人称。主に当人と話していない時に使う
CASE "主人"
	LOCALS = %NAME:MASTER%_%CSTR:MASTER:ふりがな%
CASE "助手"
	IF NO:ASSI == 1
		LOCALS = フェリ桑_ふぇり桑
	ELSEIF NO:ASSI == 18
		LOCALS = 長谷川老师_はせがわ老师
	ELSEIF NO:ASSI == 21
		LOCALS = 蓬莱前輩_ほうらい前輩
	ELSEIF NO:ASSI == 35
		LOCALS = 灯酱_ともる酱
	ELSEIF NO:ASSI == 39
		LOCALS = 小早川前輩_こばやかわ前輩
	ELSEIF NO:ASSI == 40
		LOCALS = 織笠前輩_おりかさ前輩
	ELSEIF NO:ASSI == 41
		LOCALS = 氷之守前輩_ひのもり前輩
;	ELSEIF NO:ASSI == 45
;		LOCALS = 小夜ちゃ……前輩_さよちゃ……前輩
	ELSE
		SELECTCASE CSTR:ASSI:学年
		CASE "初等部", "中等部", "１年生", "２年生"
			IF TALENT:ASSI:男性
				LOCALS = %CALLNAME:ASSI%君_%CSTR:ASSI:ふりがな%君
			ELSE
				LOCALS = %CALLNAME:ASSI%酱_%CSTR:ASSI:ふりがな%酱
			ENDIF
		CASE "３年生", "研究生"
			LOCALS = %CALLNAME:ASSI%前輩_%CSTR:ASSI:ふりがな%前輩
		CASE "教師"
			LOCALS = %CALLNAME:ASSI%老师_%CSTR:ASSI:ふりがな%老师
		CASEELSE
			LOCALS = %CALLNAME:ASSI%桑_%CALLNAME:ASSI%桑
		ENDSELECT
	ENDIF
ENDSELECT
RETURNF LOCALS

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

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = %CALLNAME:MASTER%的青梅竹马。以前去了外国最近回来了。
	STR:2 = 因为是在魔女的家族里出生的、所以她其实是一个不够成熟的魔女。
	STR:3 = 因为从老家那里偷来了禁書、所以可以像悪魔一样进行魂的交易。（只有一小部分）
;ここの中に限り、CFLAG,BASE,TALENT,ABL,EXP,CSTRをCSVに書いたものから変更させることが出来ます
;例えばBASE:体力を2000にしたいなら BASE:0:体力 = 2000 、強気にさせたいなら TALENT:0:強気 = 1 として下さい
;また、ABL:信頼を+2させたい場合には ABL:0:信頼 = ABL:信頼 + 2 と書いてください
CASE "勧誘"
	PRINTFORML
	PRINTFORML 「――好久没回到这里了、所以如果能多告诉我一点这里的事情的话我会很高兴的。」
	PRINTFORMW
	PRINTFORMW %CNAME("二人称")%的班级里、来了一个转校生。
	PRINTFORMW 是一个身体修长、笑容柔和的美少女、给人一种非常清纯的印象。
	PRINTFORMW 和她的视线对上了一下、但、马上就很明显的移開了。
	PRINTFORML ……何か、気に障ったのだろうか。
	PRINTFORML
	PRINTFORMW 放学后。
	PRINTFORMW 「那个、不好意思」
	PRINTFORMW 正准备去社团的时候、转校生过来向%CNAME("二人称")%搭话了。
	PRINTFORMW 「あの…… %CNAME("二人称")%、だよね？」
	PRINTFORMW 「那个、还记得%CNAME("一人称")%吗？」
	PRINTFORMW 「我是以前住在隔壁的%CALLNAME:TARGET%哟」
	PRINTFORMW ……うろ覚えだが、確かに隣に住んでいた子と遊んでいた。
	PRINTFORMW 「えへへ、久しぶり……あの、ね、突然だけど、お願いがあるの」
	PRINTFORML
	PRINTFORML 「请把%CNAME("二人称")%给%CNAME("一人称")%！！！」
	PRINTFORMW
	PRINTFORMW …
	PRINTFORMW ……
	PRINTFORMW ………
	PRINTFORMW 总之先听一听到底什么情况、于是带她到了社团活动室。
	PRINTFORMW 「对、对不起？突然说了很奇怪的话」
	PRINTFORMW 「那个、其实%CNAME("一人称")%、是个魔女」
	PRINTFORMW 「……あんまり驚いてないよね、%CNAME("二人称")%。悪魔と契約してるでしょ」
	PRINTFORMW 「それに……昔は気付かなかったけど、魂がいっぱいある」
	PRINTFORMW 「诶嘿嘿、刚才有点魔女的风范吧………虽然也做不到什么太厉害的事情………」
	PRINTFORMW 「………%CNAME("一人称")%呢、可能要被迫嫁给一个悪魔了」
	PRINTFORMW 「如果%CNAME("一人称")%就这样和普通的人一起生下孩子的话、那个孩子可能就无法继承到魔女的力量了」
	PRINTFORMW 「我的母亲、觉得这样有伤家族的颜面、于是打算让%CNAME("一人称")%就这么消失」
	PRINTFORMW 「でも……知らない悪魔にいきなり嫁げって……それが嫌で、%CNAME("一人称")%、父亲を頼ってこっちに逃げてきたんだ」
	PRINTFORMW 「综上所述、%CNAME("二人称")%。能和%CNAME("一人称")%签订契约吗？」
	PRINTFORMW 「这是从母亲那里”借来”的禁書、可以做到一定程度的魂的交易！」
	PRINTFORMW 「我想就这么成为一名优秀的魔女、就不需要突然和别人结婚了！」
	PRINTFORMW 「所以说、拜托了！%CNAME("二人称")%！就当做帮助可爱的青梅竹马好不好！只要有%CNAME("一人称")%做得到的事情什么都会做的！」
	PRINTFORMW 在%CALLNAME:TARGET%低下頭的期间、不知道什么时候悄悄出现的%CALLNAME:FINDCHARA(NO, 1)%过来耳语了两句。
	PRINTFORMW 『主人様。稍微打扰一下』
	PRINTFORMW 『%NAME:TARGET%桑が仰っていた「悪魔の花嫁」……花嫁とは名ばかりで、実態は悪魔の情婦です。更に言えば、相手が非友好的である可能性もあるわけです』
	PRINTFORMW 『力の無い魔女が力を得ると言うのは、それだけリスキーなものです。このままでは%NAME:TARGET%桑は分の悪い賭けに挑む事になるでしょう』
	PRINTFORMW 『嘛、毕竟都把对方带过来了、主人様也已经想好怎么做了对吧』
;これは別になくても構いません
CASE "勧誘直後"
	PRINTFORMW 「………へっ？部活に入ってほしい？」
	PRINTFORMW 「それぐらい！ところで部活って何するの？」
	PRINTFORMW 「………へっ！？」
	PRINTFORMW 「えっ、えっちな事するの！？」
	PRINTFORMW 「ええっと……その……」
	IF TALENT:PLAYER:男性
		PRINTFORMW 「%CNAME("二人称")%は知ってる人だから、いいけど、そういうのは初めてだから……温柔的してね？」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%は知ってる人だし、同性だから安心だけど……そういうのは初めてだから……温柔的してね？」
		;ここで兩面通吃。容易迷恋でもいいかも。
		TALENT:兩面通吃 = 1
	ENDIF
	PRINTFORMW 「それじゃあ……また、よろしくね！%CALLNAME:MASTER%！」
	PRINTFORMW - ！系统信息！ -
	PRINTFORML %CALLNAME:TARGET%の%CALLNAME:MASTER%に対する二人称を設定できます。
	PRINTFORML 当口上は二人称で呼ぶ場面が多い為、設定してあると違和感が減ると思われます。
	PRINTFORML また、幼馴染に特別なあだ名で呼んでもらいたい場合にもここで設定しておくのをおすすめしておきます。
	PRINTFORML 現在的二人称は『%CNAME("二人称")%』です。要进行変更吗？
	PRINTFORML (後から取引で拜托了ことで変更することもできます)
	CALL PRINT_SELECT, "变更/不变更"
	IF RESULT == 0
		CALL NAME_CONVERT_SP, TARGET
	ELSEIF RESULT == 1
		PRINTFORMW  第二人称不更变。
	ENDIF
;これも別になくても構いません。特殊な条件がある場合などにどうぞ
CASE "出現条件"
	;PRINTFORMW %NAME:TARGET%%CALLNAME:MASTER%的"%CSTR:関係%"、会在中午出现在社团活动室。

;同居後の自分的房間の解説です。これも別に無くて構いません
CASE "自室描写"
	STR:1 = 白を基調にした清潔感のある部屋だ。
	STR:2 = まぐろを模した珍妙な玩偶がいくつか置いてある。
	CALL DIALOGUE_FRAME_ITEM, @"22まぐろう{1 + RAND:3}"
ENDSELECT

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

;-------------------------------------------------
;一日の終わりでフラグなどを変化させたい時にはここで弄ることが出来る
;-------------------------------------------------
@TIMEEVENT_K51

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

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	PRINTFORMW 「ええっと……しちゃうんだよね？」
	PRINTFORMW %CALLNAME:TARGET%は背中を丸めて縮こまっている。
	PRINTFORMW 「最初に行ったけど……初めてだから、あんまり痛くしないでね？……約束だよ？」
	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;初めてのご褒美Ｈ
ELSEIF EQUIP:Ｈ的奖励 && CEVENT("調教開始：ご褒美Ｈ") == 0
	PRINTFORMW 「すごいねぇ……少し惊嚇しちゃった！」
	PRINTFORMW 「それじゃあ……頑張ったご褒美……」
	PRINTFORMW 「いっぱい……しよっか？」
	CALL SET_CEVENT, "調教開始：ご褒美Ｈ"
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	PRINTFORMW 「うーん……立派な魔女に近づいてるのかなぁ……」
	PRINTFORMW 「あっ、ごめんね、今はこっちに集中しないとね。始めよっか？」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	PRINTFORMW 「今まで知らなかった事を知れるの是いけどね？」
	PRINTFORMW 「……これが知っていい事かはわからないのが問題な気が……」
	PRINTFORMW 「まぁ考えても答えは出ないよね、それじゃ、始めよっか」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTFORMW 「なんというか……ずぶずぶとはまってる気がするような……」
	PRINTFORMW 「うぅぅん……まぁ、楽しいからいいのかも……？」
	PRINTFORMW 「あ、ごめんね！それじゃ！始めよっか！」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	PRINTFORMW 「ねぇ、%CNAME("二人称")%。始める前にすこしいい？」
	PRINTFORMW 「あのね、その……なんて言えばいいかなぁ……」
	PRINTFORMW 「%CNAME("一人称")%、%CNAME("二人称")%に感謝してるの。」
	PRINTFORMW 「いきなり来て、幼馴染です貴方をちょうだい！なんて、普通の人なら逃げてても変じゃないよ？」
	PRINTFORMW 「えへへ、褒めてる褒めてる……それでこうやって部活で皆と活動して……」
	PRINTFORMW 「有がとう、%CNAME("二人称")%。大好きだよ」
	PRINTFORMW 「……えへへっ、どう？ドキドキした？」
	PRINTFORMW 「それじゃあ……始めよっか！」
	CALL SET_CEVENT, "調教開始：恋慕"
;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
	PRINTFORMW 「……うう……」
	PRINTFORMW %CALLNAME:TARGET%は背中を丸めて縮こまっている。あれデジャヴ。
	PRINTFORMW とりあえず呼びかけた。
	PRINTFORMW 「ぴゃっ！？……わ……わわ……」
	PRINTFORMW こっちを向いてはくれたものの赤面して奇声をあげている。
	PRINTFORMW 「ち、違うの……その……えっと……はっ、恥ずかしく、て……」
	PRINTFORMW 「なんというか、こ、こっ、ここ、恋人……变成了でしょ？」
	PRINTFORMW 「それでその……なんだか恥ずかしく、なっ、ちゃ、いまして……」
	PRINTFORMW 「……あの、心構えができるまでは、えっちはお預けにできない……？」
	PRINTFORMW ……それだと%CALLNAME:TARGET%はずっと心構えができなさそうだ。
	PRINTFORMW とりあえず始める事にし、%CALLNAME:TARGET%を推倒た。
	PRINTFORMW 「わー！？こ、こっここ、心の準備がー！？」
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無を格子（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K51_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 K51_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K51_KOJO2

;恋慕
IF TALENT:恋慕
	IF RAND:3 == 0 && BASE:欲求不満 >= 50
		CALL PRINT_STRW, @"「%CNAME("二人称")%……_H_早く始めよ……_H_」"
	ELSEIF RAND:2 == 0
		PRINTFORMW 「えへへ、それじゃ始めよっか！」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%、今回は何するの？」
	ENDIF
;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0
	PRINTFORMW 「ふぅ……やっぱり緊張しちゃうなぁ……」
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
	PRINTFORMW 「まだ慣れないなぁ……」
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	SELECTCASE RAND:2
		CASE 0
			PRINTFORMW 「楽しくなってきた……かも？」
		CASE 1
			PRINTFORMW 「う～ん……あっ、始めよっか」
		ENDSELECT
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「楽しくなってきた……かも？」
		CASE 1
			PRINTFORMW 「それじゃ、始めよっか！」
		CASE 2
			PRINTFORMW 「%CNAME("二人称")%、今回は何するの？」
		ENDSELECT
ENDIF
RETURN 1

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

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW 「……あれ？もうおしま……%CNAME("二人称")%！？し、しっかり！？」
	;其他
	ELSE
		PRINTFORMW 「わわっ！？%CNAME("二人称")%！？だ、大丈夫！？」
	ENDIF
;partnerが体力or精力尽きた場合
ELSEIF STATE("撃沈")
	IF TALENT:恋慕
		CALL PRINT_STRW, "「こ、これ以上はぁ_H_無理ぃ……_H_」"
	ELSE
		PRINTFORMW 「……も、もう無理ぃ……」
	ENDIF
;相思相愛＋満足
ELSEIF TALENT:相思相愛 && COND("満足")
	CALL PRINT_STRW, @"「%CNAME("二人称")%……_H_だいすきぃ……_H_」"
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
	SELECTCASE RAND:3
	CASE 0
		CALL PRINT_STRW, @"「はーっ_H_はーっ_H_すごく……よかった_H_」"
	CASE 1
		CALL PRINT_STRW, @"「%CNAME("二人称")%……_H_とっても……気持ちよかったよ_H_」"
	CASE 2
		CALL PRINT_STRW, @"「%CNAME("二人称")%、気持ちよかった？%CNAME("一人称")%？……すごく、よかった_H_」"
	ENDSELECT
;恋慕
ELSEIF TALENT:恋慕
	SELECTCASE RAND:3
	CASE 0
		PRINTFORMW 「ふぅ……%CNAME("二人称")%、何か飲む？」
	CASE 1
		PRINTFORMW 「あ、あれ？……あ、なんでもないよっ！」
	CASE 2
		PRINTFORMW 「%CNAME("二人称")%、お話しない？」
	ENDSELECT
;屈服刻印Lv1以下
ELSEIF MARK:屈服刻印 <= 1
	SELECTCASE RAND:3
	CASE 0
		PRINTFORMW 「……も、もうむりぃ……」
	CASE 1
		PRINTFORMW 「し、心臓が……足りない……」
	CASE 2
		PRINTFORMW 「わわわ……」
	ENDSELECT
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	SELECTCASE RAND:3
	CASE 0
		PRINTFORMW 「ふぅ……お疲れ様」
	CASE 1
		PRINTFORMW 「むむむ、なんだかもやもやする……？」
	CASE 2
		PRINTFORMW 「ねぇ、%CNAME("二人称")%、酱とできてたかな？」
	ENDSELECT
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	SELECTCASE RAND:3
	CASE 0
		PRINTFORMW 「うーん……あ、%CNAME("二人称")%、よかった？」
	CASE 1
		PRINTFORMW 「今日は、ちょっとだけなんだ……」
	CASE 2
		PRINTFORMW 「%CNAME("二人称")%、お疲れ様」
	ENDSELECT
ENDIF
RETURN 1

;-------------------------------------------------
;指令実行時のセリフ
;イベントや台詞の都合上の問題でPLAYERに射精させたい場合は CALL SETFLAG, "強制射精", PLAYER とする事で强行射精させることができる
;-------------------------------------------------
@KOJO_MESSAGE_COM_K51
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「んん……くすぐったいかも……」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1
	;被逆推ているとき
	IF TEQUIP:推倒
		;初めて
		IF FIRSTCOM_REV(SELECTCOM) == 0
			PRINTFORMW 「ほら……ここ舐めて？」
		;二回目以降
		ELSE
			;恋慕
			IF TALENT:恋慕
				CALL PRINT_STRW, @"「ほら……もっと舐めて_H_んぅ_H_」"
			;それ以外
			ELSE
				PRINTFORMW 「もっと、酱と……んっ」
			ENDIF
		ENDIF
	ELSE
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「へっ？そ、そこは汚いよ！？」
		;二回目以降
		;清洁舔阴
		ELSEIF COND("清洁舔阴フラグ", PLAYER)
			;恋慕
			IF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			;恋慕
			IF TALENT:恋慕
				CALL  PRINT_STRW, "「あっ……きもちい_H_んぅ_H_」"
			;それ以外
			ELSE
				PRINTFORMW 「んっ……ふっ……あふっ……」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門愛撫
;-------------------------------------------------
IF SELECTCOM == 2
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;気持ちいい
		IF CHECK("Ａ指挿入")
			PRINTFORMW 「ちょっ、はうっ！？き、汚いよ……！？」
		;それ以外
		ELSE
			PRINTFORMW 「ちょっ、ちょっと！？そっちは汚いよ！？」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		;気持ちいい
		ELSEIF CHECK("Ａ指挿入")
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					IF TALENT:結腸性感
						PRINTFORMW
					ELSE
						PRINTFORMW
					ENDIF
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW 「はぅ……おしりなのに……」
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「うぅ……あんまりいじらないで……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;胸愛撫
;-------------------------------------------------
IF SELECTCOM == 5
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「ひゃっ！？……あ、あんまり強くしないでね？」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「ん……胸部、気持ちいいよ……」
		;それ以外
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「はう……こそばゆい……」
			ELSE
				PRINTFORMW 「んう……胸がじんじんする……」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW 「んふっ……んっ……ちゅ……」
		;それ以外
		ELSE
			PRINTFORMW 「んっ……えへへ、なんだか照れるね……」
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「んっ……ちゅっ……ぷはっ、%CNAME("二人称")%……んちゅ……」"
		;それ以外
		ELSE
			PRINTFORMW 「ごめんね……んっ……もうちょっとだけ……ちゅ……んんっ……」
		ENDIF
	;それ以外
	ELSE
		;テンダー接吻
		IF CHECK_COM("テンダー接吻")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE

			PRINTFORMW 「んちゅ………んぅ………」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;阴部愛撫
;阴蒂の場合にはCHECK_COM("陰核愛撫"), 阴部の場合にはCHECK_COM("阴部愛撫"), 恥丘ならCHECK_COM("恥丘愛撫")がONになる
;-------------------------------------------------
IF SELECTCOM == 7
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;中出し後にお掃除
	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:恋慕
			CALL PRINT_STRW, @"「%CNAME("二人称")%、ん、そこ、とっても気持ちいい_H_」"
		;気持ちいい
		ELSEIF CHECK("指挿入")
			CALL PRINT_STRW, "「そこっ、そこばっかり、ダメっ_H_ダメなのぉ_H_」"
		;それ以外
		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:恋慕
			CALL PRINT_STRW, @"「んっ……%CNAME("二人称")%の手……すき……はうっ_H_」"
		;それ以外
		ELSE
			PRINTFORMW 「あっ……はっ……ううっ……くぅ……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方乳交
;-------------------------------------------------
IF SELECTCOM == 11
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0

	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		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
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入
;-------------------------------------------------
IF SELECTCOM == 15
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋
;-------------------------------------------------
IF SELECTCOM == 30
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 31
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛用振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW 「み、見ないで……はうっ」
		;それ以外
		ELSE
			PRINTFORMW 「み、みな……うっ……ううん……」
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒")
			;Ｓ状結腸まで振動棒が侵入している
			IF CHECK_COM("結腸責め")
				IF TALENT:結腸性感
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		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:処女
		PRINTFORMW 「うう……き、きんちょう、する……」
		;恋慕かつ、你が童貞　果てしなく難しいが棗一筋ならいけるよ！！！
		IF TALENT:恋慕 && TALENT:PLAYER:童貞
			PRINTFORMW 「えっ？%CNAME("二人称")%も初めてなの？」
			PRINTFORMW 「……えへへ、そうなんだ……えへへ……なんだかすっごく嬉しいな……」
			CALL PRINT_STRW, @"「%CNAME("二人称")%の初めて、%CNAME("一人称")%にいっぱいちょうだい……_H_」"
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW 「でも、%CNAME("一人称")%、%CNAME("二人称")%が初めてで……とっても嬉しいな……」
		;それ以外
		ELSE
			PRINTFORMW 「……%CNAME("二人称")%、絶対に……痛くしないでね？約束ね！」
		ENDIF
	;非処女
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ｖ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;巨根
	IF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 65
			PRINTFORMW
		;対面座位
		CASE 63
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ｖ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「んひっ_H_%CNAME("二人称")%っ_H_お願いっ_H_イかせてっ_H_おねがっんうぅ_H_」"
		ELSE
			CALL PRINT_STRW, @"「%CNAME("二人称")%っ……うあっ！……_H_は、はやくっ_H_んんっ_H_」"
		ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
		IF TALENT:恋慕
			IF RAND:3
				CALL PRINT_STRW, @"「この体勢_H_はぁ_H_好きな_H_はぁうぅ_H_」"
			ELSEIF RAND:2
				CALL PRINT_STRW, @"「%CNAME("二人称")%とっ……んんっ_H_向き合うのっ、好きっ_H_」"
			ELSE
				CALL PRINT_STRW, @"「%CNAME("二人称")%、ぎゅって、して_H_はぁ_H_」"
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORMW 「こうやって向き合うのっ……ふっ……いいね……」
			ELSE
				PRINTFORMW 「あっ、あんまりまじまじ見ないで……恥ずかしいから……んっ……」
			ENDIF
		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
;-------------------------------------------------
;二穴挿入(書く場合には;を消してください)
;-------------------------------------------------
;ELSEIF SELECTCOM >= 60 && SELECTCOM <= 79 && COND("３Ｐ")
;	IF CHECK_COM("两根挿入Ｖ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ｖ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("两根挿入Ａ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ａ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("二穴挿入")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("二穴挿入")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ENDIF
ENDIF

;-------------------------------------------------
;正常位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
IF SELECTCOM == 60
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「んっ……おちんちんいれるの……？」
			CALL PRINT_STRW, @"「……いっぱい、気持ちよくしてね、%CNAME("二人称")%_H_」"
		;それ以外
		ELSE
			PRINTFORMW 「んっ……あっ、いれるの？」
			PRINTFORMW 「……いいよ、きて%CNAME("二人称")%……」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「%CNAME("二人称")%_H_……お願い_H_」"
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW 「きて……%CNAME("二人称")%……」
		;それ以外
		ELSE
			PRINTFORMW 「んっ……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;後背位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	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 == 62
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;対面座位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
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 CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
;背面座位
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 「んっ……おちんちんいれ……へ？」
			PRINTFORMW 「えっ、そそ、そっち！？」
			PRINTFORMW 「いいけど……痛くしないでね、約束だよ！？」
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW 「んっ……いれ……ん？」
			PRINTFORMW 「そ、そっち？いいけど……」
		;それ以外
		ELSE
			PRINTFORMW 「んっ……？」
			PRINTFORMW 「えっ、そっ、そっち！？」
			PRINTFORMW 「いいけど……痛くしないでね、約束だよ！？」
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ａ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;巨根
	ELSEIF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			PRINTFORMW
		;対面座位
		CASE 73
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;Ｓ状結腸を使っての肛門性交
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHECK_COM("結腸責め")
	;初めての結腸責め
	IF EXP:結腸経験 == 0
		PRINTFORMW 「はっ……ぐぅ、な、何これぇ……？」
	;今回初の結腸責め
	ELSEIF EXP_GAIN("結腸経験") == 0
		IF TALENT:結腸性感
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:結腸性感
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ａ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;しりは苦手なので割とつめため
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			IF RAND:3 == 0
				CALL PRINT_STRW, @"「んひっ_H_%CNAME("二人称")%っ_H_お願いっ_H_おしりでっ_H_イかせてっ_H_」"
			ELSEIF RAND:2
				CALL PRINT_STRW, @"「%CNAME("二人称")%っ_H_はやくっ_H_おしり、おわらせてっ_H_」"
			ELSE
				CALL PRINT_STRW, @"「イかせてっ_H_おねがい、おねがいっ_H_おしりで、おかしく、なるからぁ_H_」"
			ENDIF
		ELSE
			IF RAND:3 == 0
				CALL PRINT_STRW, @"「%CNAME("二人称")%っ……ふっ……_H_は、はやくっ_H_んんっ_H_」"
			ELSEIF RAND:2
				CALL PRINT_STRW, @"	「やだっ_H__おしりで_H_きもちいの_H_もうやだぁ_H_」"
			ELSE
				CALL PRINT_STRW, @"「おしりっ_H_もう_H_むりっ_H_こわれちゃうっ_H_」"
			ENDIF
		ENDIF
	;余裕が無い
	ELSEIF CHECK("Ａ挿入") == 0
		PRINTFORMW 「はっ……ぐうぅ……%CNAME("二人称")%、ゆっくり動いて、うぅ……お願い……」
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
		;A感覚3以上
		IF ABL:Ａ感覚 >= 3
			IF TALENT:恋慕
				IF RAND:3 == 0
					CALL PRINT_STRW, @"「おしり_H_きもち、いい_H_もっと_H_もっとごりごりして_H_%CNAME("一人称")%_H_」"
				ELSEIF RAND:2
					CALL PRINT_STRW, @"「あっうぅ_H_おしりでいっぱい射精して_H_おねがい_H_」"
				ELSE
					CALL PRINT_STRW, @"「%CNAME("一人称")%_H_ぎゅってして_H_あっ_H_」"
				ENDIF
			ELSE
				IF RAND:3 == 0
					CALL PRINT_STRW, @"「はっ、んっ_H_なんだか、こっちでするの変な感じだね……んっ_H_」"
				ELSEIF RAND:2
					CALL PRINT_STRW, @"「%CNAME("一人称")%_H_あんまり顔見ないで、あっ_H_」"
				ELSE
					CALL PRINT_STRW, @"「はひっ、くうっ_H_あ、うう……_H_」"
				ENDIF
			ENDIF
		;A感覚3未満
		ELSE
			IF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORMW 「んっ、%CNAME("一人称")%、もうちょっと強くても大丈夫だよ」
				ELSEIF RAND:2
					PRINTFORMW 「ん、ふっ……なんだか、変な感じ……」
				ELSE
					PRINTFORMW 「おしりが変になっちゃいそう……」
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「んっ……んん？……んー……」
				ELSEIF RAND:2
					PRINTFORMW 「うっ、んっ……なんだかすごい違和感……」
				ELSE
					PRINTFORMW 「おしり、変变成了り不会ね？んっ……」
				ENDIF
			ENDIF
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "後背位"
			;A感覚3以上
			IF ABL:Ａ感覚 >= 3
				IF TALENT:恋慕
					IF RAND:3 == 0
						CALL PRINT_STRW, @"「おしりっ_H_おしりのそとがわ_H_すきっ_H_」"
					ELSEIF RAND:2
						CALL PRINT_STRW, @"「ごりごりしてっ_H_もっと_H_もっとぉ_H_」"
					ELSE
						CALL PRINT_STRW, @"「あっ_H_おしりから子宮ゆさぶられるの_H_くせになっちゃう_H_」"
					ENDIF
				ELSE
					IF RAND:3 == 0
						CALL PRINT_STRW, @"「はうっ_H_ううっ_H_背中、ぞくぞくするぅ_H_」"
					ELSEIF RAND:2
						CALL PRINT_STRW, @"「おしりは本当はダメなのに……クセになっちゃうぅ_H_」"
					ELSE
						CALL PRINT_STRW, @"「だめっ、そこばっかり、ほじくらない、でぇ_H_」"
					ENDIF
				ENDIF
			;A感覚3未満
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「ごりごり、しないでっ……」
				ELSEIF RAND:2
					PRINTFORMW 「んっ……」
				ELSE
					PRINTFORMW 「背中がぞわぞわする、かなっ……」
				ENDIF
			ENDIF
		CASEELSE
			;A感覚3以上
				IF ABL:Ａ感覚 >= 3
					IF RAND:3 == 0
						CALL PRINT_STRW, @"「おしりの_H_おしりのあなが_H_こわれちゃう_H_」"
					ELSEIF RAND:2
						CALL PRINT_STRW, @"「えぐれちゃう_H_のにぃ_H_きもちいいのが_H_おわんないっ_H_」"
					ELSE
						CALL PRINT_STRW, @"「ふぅ_H_あっ_H_おしりっ_H_ダメになっちゃうぅ_H_」"
					ENDIF
				;A感覚3以下
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「ううっ……おしりが、変になりそう……」
					ELSEIF RAND:2
						PRINTFORMW 「んっ……出し入れするとなんだか……」
					ELSE
						PRINTFORMW 「おしりがめくれちゃうぅ……」
					ENDIF
				ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで)
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 74
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門騎乗位
;-------------------------------------------------
IF SELECTCOM == 75
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			;相思相愛
			IF TALENT:相思相愛
				CALL PRINT_STRW, "「今日は、こっちで……んっ……おまんこはお預け_H_」"
			;恋慕
			ELSEIF TALENT:恋慕
				CALL PRINT_STRW, "「んっ……お尻でぐりぐり、いっぱい絞っちゃうね_H_」"
			ELSE
				PRINTFORMW 「……んっ、お尻で、いっぱい、しようねっ……」
			ENDIF
		;それ以外
		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:恋慕
			CALL PRINT_STRW, @"「%CNAME("二人称")%ったら、胸部大好きなんだから_H_」"
		;それ以外
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、胸部大好きだね？」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF RAND:5 == 0
				CALL PRINT_STRW, @"「えへへ……_H_ こうして手で押さえてるから、好きに動いていいよ」"
				CALL PRINT_STRW, @"「%CNAME("一人称")%で、いっぱい気持ちよくなってね_H_」"
			ELSEIF RAND:4 == 0
				PRINTFORMW 「な、なんだかこれ……すっごいドキドキしちゃう………」
				CALL PRINT_STRW, @"「%CNAME("二人称")%もいつもより一生懸命な感じで……えへへ……_H_ なんか可爱ね_H_」"
				CALL PRINT_STRW, @"「……うぅー……！ なんか顔赤くなっちゃうよぉ……_H_」"
			ELSEIF RAND:3 == 0
				CALL PRINT_STRW, @"「ほら……奥まで入れたら、一気にむぎゅーってして给_H_」"
				CALL PRINT_STRW, @"「是、むぎゅ～～っ……_H_」"
			ELSEIF RAND:2 == 0
				PRINTFORMW 「遠慮しないで、もっと激烈地してもいいんだよ……？」
				CALL PRINT_STRW, @"「えへ……_H_ こういう時は、体が大きくてよかったって思えるかな……_H_」"
			ELSE
				CALL PRINT_STRW, @"「もう、%CNAME("二人称")%強引なんだから……_H_」"
			ENDIF
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3
			PRINTFORMW 「んっ、気持ちいい……？」
		;それ以外
		ELSE
			PRINTFORMW 「………気持ちいい？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;乳頭奸
;-------------------------------------------------
IF SELECTCOM == 82
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道挿入…細かく体位で分ける場合には以下の様になっている
;83,尿道正常位
;84,尿道後背位
;85,尿道屈曲位
;86,尿道対面座位
;87,尿道背面座位
;-------------------------------------------------
IF SELECTCOM >= 83 && SELECTCOM <= 87
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道騎乗位
;-------------------------------------------------
IF SELECTCOM == 88
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶手交
;手淫と洗面奶から派生する
;-------------------------------------------------
IF CHECK_COM("洗面奶手交")
	;恋慕
	IF TALENT:恋慕
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			CALL PRINT_STRW, "「胸部でむぎゅってして、おちんちんよしよしして给ね……_H_」"
			CALL PRINT_STRW, @"「よしよし………よしよし………えへへ……%CNAME("二人称")%、びくびくしてるね……_H_」"
		ENDIF
	;それ以外
	ELSE
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;手淫
;-------------------------------------------------
IF SELECTCOM == 90
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「こ、これが、男の人の……%CNAME("一人称")%、が、がんばるね！」
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF RAND:5 == 0
				PRINTFORMW 「%CNAME("一人称")%の指、もうすっかり%CNAME("二人称")%のカタチ覚えちゃったよ……？」
				CALL PRINT_STRW, @"「ほんと、イケナイ人なんだから……_H_」"
			ELSEIF RAND:4 == 0
				PRINTFORMW 「わ……！　おつゆ垂れてきちゃってる……」
				CALL PRINT_STRW, @"「それにぴくぴく震えてて……_H_ こうして見ると、ちょっと可爱かも……？」"
				CALL PRINT_STRW, @"「って、もう待ちきれない……？ いいよ、それじゃあしてあげよっか_H_」"
			ELSEIF RAND:3 == 0
				CALL PRINT_STRW, @"「おちんちん、あっついね……_H_」"
				PRINTFORMW 「%CNAME("二人称")%も、%CNAME("一人称")%みたいにドキドキしてくれてるのかな……」
				CALL PRINT_STRW, @"「えへへ……_H_ じゃあ、シコシコはじめちゃうね……_H_」"
			ELSEIF RAND:2 == 0
				CALL PRINT_STRW, "「よしよし_H_おちんちんからいっぱいびゅーっ_H_って出そうね_H_」"
			ELSE
				CALL PRINT_STRW, @"「%CNAME("二人称")%って胸部を当てながらシコシコすると……」"
				CALL PRINT_STRW, @"「いつもよりびくびくしてるんだよ、知ってた？%CNAME("二人称")%ってばよくばり桑だね_H_」"
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「んしょ、んしょ……力加減はちょうどいい？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW 「コレが%CNAME("二人称")%の……」
		;それ以外
		ELSE
			PRINTFORMW 「こ、これを舐めるの……？が、頑張るね！」
		ENDIF
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「%CNAME("二人称")%のおちんちん……ん、ちゅ、んっ……」
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			IF TALENT:相思相愛
				CALL PRINT_STR, @"「おちんちん汚したまま、女の子に会うなんて……%CNAME("二人称")%ったら……_H_」"
				CALL PRINT_STR, @"「……ん、ちゅ_H_%CNAME("一人称")%がキレイにして给ね_H_」"
			ELSE
				PRINTFORMW 「うわぁ……え？これをキレイにするの……？」
				PRINTFORMW 「……しょうがないなぁ、はふ……むぐ……へふなあひ……」
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕 && RANDIF(1, ABL:奉仕精神 >= 3)
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3 && RAND:2
			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 == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「……えっ！？む、胸で！？」
		PRINTFORMW 「……しょうがないなぁ、特別だよ？」
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			IF RAND:4 == 0
				CALL PRINT_STRW, @"「胸部の間で、どんどんおちんちん熱くなってきてる……_H_」"
				CALL PRINT_STRW, @"「もしかして、もうすぐ限界来ちゃいそうだったりして_H_」"
			ELSEIF RAND:3 == 0
				CALL PRINT_STRW, @"「%CNAME("二人称")%のおちんちん、甘えてきてるみたい……_H_」"
			ELSEIF RAND:2
				CALL PRINT_STRW, @"「%CNAME("二人称")%_H_腰がくがくしてる_H_」"
			ELSE
				PRINTFORMW 「えっちな%CALLNAME:MASTER%におしおきのコーナー！」
				PRINTFORMW 「胸部でおちんちんぎゅーって潰しちゃうね♪」
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「こうかな？これでいい？うまくできてる？」
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF RAND:8 == 0
				CALL PRINT_STRW, @"「%CNAME("二人称")%のおちんちん%CNAME("一人称")%の%TEXTR("胸部/胸")%%TEXTR("で挟まれて/に包まれて")%、%TEXTR("ドンドン硬くなってきちゃってる/ムクムク大きくなっちゃったね")%_H_」"
				CALL PRINT_STRW, @"「%TEXTR("気持ち良いんでしょう？/気持ち良いでしょう？")%_H_%TEXTR("正直に言えたらも～っと気持ち良くして给んだから/もっともっと、気持ち良くして给")%_H_」"
			ELSEIF RAND:7 == 0
				CALL PRINT_STRW, @"「%TEXTR(@"ほらほら、%CNAME("一人称")%のお胸が気持ち良いんでしょう？/%CNAME("一人称")%の胸部に挟まれて、どうしちゃったのかな？")%_H_」"
				CALL PRINT_STRW, @"「%TEXTR("ちゃ～んと/しっかり")%%TEXTR("答えられたら/言えたら")%%TEXTR("ご褒美を给からね/もっと気持ち良い事して给")%_H_」"
			ELSEIF RAND:6 == 0
				PRINTFORMW 「ほんとに好きだねー……」
				PRINTFORMW 「こういうの、なんて言うんだっけ？　胸部星人？」
			ELSEIF RAND:5 == 0
				PRINTFORMW 「%CNAME("一人称")%の胸部、気持ちいいかな？」
				CALL PRINT_STRW, @"「えへへ、言わなくてもわかっちゃうよ_H_ %CNAME("二人称")%のおちんちん、坦率桑だもんね_H_」"
			ELSEIF RAND:4 == 0
				CALL PRINT_STRW, @"「おツユで谷間がぬるぬる……_H_」"
				CALL PRINT_STRW, @"「これで、もっといっぱいむにゅむにゅしてあげられるね_H_」"
			ELSEIF RAND:3 == 0
				CALL PRINT_STRW, @"「胸部の間で、%CNAME("二人称")%のが震えてるのわかるよ_H_」"
				CALL PRINT_STRW, @"「これ、喜んでくれてるなら嬉しいな……_H_」"
			ELSEIF RAND:2
				CALL PRINT_STRW, "「胸部で抿嘴抿嘴すると、おちんちん幸せそうだね_H_」"
			ELSE
				CALL PRINT_STRW, @"「えへへ、今だけは、胸部大きくてよかったなぁ_H_」"
				CALL PRINT_STRW, @"「だって、%CALLNAME:MASTER%がこんなに気持ちよさそうにしてるから……_H_」"
			ENDIF
		;それ以外
		ELSE
			IF RAND:2
				PRINTFORMW 「胸でされるの……好きなの？」
			ELSE
				PRINTFORMW 「男の人のって、こんなに熱くなるんだ……」
				PRINTFORMW 「胸で挟むと、よくわかるね……」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;素股
;-------------------------------------------------
IF SELECTCOM == 93
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「えーっと……で、できてる？」
	;二回目以降
	ELSEIF CHECK_COM("展示肉棒")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「んはぁ……%CNAME("二人称")%、気持ちよくして给ね_H_」"
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「ごめんね_H_ごめんねっ_H_%CNAME("二人称")%_H_こすりつけるのっ、止まらないの_H_」"
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF RAND:2 == 0
				CALL PRINT_STRW, @"「あっ、%CNAME("二人称")%_H_ すごいびくびくしてる……_H_」"
			ELSE
				PRINTFORMW 「えへへ、気持ちいい？%CNAME("二人称")%？」
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「う、擅長くできてる？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;六九式
;-------------------------------------------------
IF SELECTCOM == 99
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶
;-------------------------------------------------
IF SELECTCOM == 104
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「ええっと……息苦しくない？」
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;相思相愛
		IF TALENT:相思相愛
			IF RAND:2 == 0
				CALL PRINT_STRW, "「えへへ、好きでしょ？こういうの_H_」"
			ELSE
				CALL PRINT_STRW, @"「%CNAME("二人称")%がだ～い好きな胸部だよ～_H_」"
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			CALL PRINT_STRW, "「胸部に埋もれちゃえ_H_」"
		;それ以外
		ELSE
			PRINTFORMW 「えへへ、これ、けっこう楽しいかも……」
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「えへへ、元気でた？」
		;それ以外
		ELSE
			PRINTFORMW 「……楽しい？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飞机杯冲
;-------------------------------------------------
IF SELECTCOM == 105
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

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

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

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

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

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

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

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

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

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

;-------------------------------------------------
;什麼也不做
;-------------------------------------------------
IF SELECTCOM == 139
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「……？何にもしないの？」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「……？何にもしないの？」
		;それ以外
		ELSE
			PRINTFORMW 「……？何にもしないの？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;強制口交
;-------------------------------------------------
IF SELECTCOM == 140
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;喝套内精液
;-------------------------------------------------
IF SELECTCOM == 147
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF ABL:精液中毒 >= 3
			CALL PRINT_STRW, "………ぷはっ、佳肴大人でした_H_」"
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		IF ABL:精液中毒 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;穿环
;-------------------------------------------------
IF SELECTCOM == 148
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			;ＯＮフラグが付けた際のセリフです
			IF COND("陰蒂環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("陰唇環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("乳环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("肚脐环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

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

;-------------------------------------------------
;潤滑液使用
;-------------------------------------------------
IF SELECTCOM == 260
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「わひゃ！？……ぬるぬるするね……」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
		;Ａ感度
		;今日もおしり……？
			PRINTFORMW 「慣れてきた……かも？」
		;それ以外
		ELSE
			PRINTFORMW 「うう～ん、ちょっぴり苦手かも……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;媚薬使用
;-------------------------------------------------
IF SELECTCOM == 261
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;利尿剤
;-------------------------------------------------
IF SELECTCOM == 262
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;排卵誘発剤
;-------------------------------------------------
IF SELECTCOM == 264
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;筋弛緩剤
;-------------------------------------------------
IF SELECTCOM == 267
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;挣扎
;-------------------------------------------------
IF SELECTCOM == 280
	;成功
	IF TEQUIP:推倒 == 0
		IF TALENT:相思相愛
			PRINTFORMW 「あっ、逃げないでよ～%CNAME("二人称")%～」
		ELSE
			PRINTFORMW 「あっ……い、嫌だった……？」
		ENDIF
	;失敗
	ELSE
		IF TALENT:相思相愛
			IF RAND:2
				CALL PRINT_STRW, @"「だ～め_H_」"
			ELSE
				CALL PRINT_STRW, @"「気持ちよくして给から、ね_H_」"
			ENDIF
		ELSE
			PRINTFORMW 「ごめんね……もうちょっとだけ……」
		ENDIF
	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
	;成功
	IF TEQUIP:甜言蜜语
		;相思相愛
		IF TALENT:相思相愛
			PRINTFORMW 「ふふっ、もう%CNAME("二人称")%たらっ……」
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……えへへ、%CNAME("二人称")%は口が擅長いんだから……」
		;それ以外
		ELSE
			PRINTFORMW 「も、もうっ、%CNAME("二人称")%は口が擅長いんだからっ！」
		ENDIF
	;失敗
	ELSE
		PRINTFORMW 「…………？」
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;抱上去
;-------------------------------------------------
IF SELECTCOM == 285
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW 「……%CNAME("二人称")%……」
	;それ以外
	ELSE
		PRINTFORMW 「わわっ、%CNAME("二人称")%たらっ……」
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K51, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0
;-------------------------------------------------
;パラメータ変動時のセリフ
;-------------------------------------------------
SELECTCASE ARGS
;-------------------------------------------------
;初めてＶ潤がLV3超えた
;-------------------------------------------------
CASE "Ｖ潤LV3突破"
	;初めて
	IF FIRST_EV("Ｖ潤LV3突破") == 0
		;潤滑液を使った場合
		IF SELECTCOM == 260
			PRINTFORMW 「うう、%CNAME("二人称")%、淋浴浴びちゃダメ？」
		;それ以外
		ELSE
			PRINTFORMW 「はぁ……はぁ……やだ、湿透……」
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて欲情がLV3超えた
;-------------------------------------------------
CASE "欲情LV3突破"
	IF FIRST_EV("欲情LV3突破") == 0
		;媚薬を使った場合
		IF SELECTCOM == 261
			CALL PRINT_STRW, "「はっ_H_……ふぅ_H_……そんなに、したかった……の_H_」"
		;それ以外
		ELSE
			PRINTFORMW 「ふぅ……ふぅ……すごく……うずうず……しちゃう……」
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて恥情がLV3超えた
;-------------------------------------------------
CASE "恥情LV3突破"
	IF FIRST_EV("恥情LV3突破") == 0
		PRINTFORMW 「は、恥ずかしいよ%CNAME("二人称")%……」
	ENDIF
;-------------------------------------------------
;初めて恐怖がLV3超えた
;-------------------------------------------------
CASE "恐怖LV3突破"
	IF FIRST_EV("恐怖LV3突破") == 0
		PRINTFORMW 「こ、怖いよ……%CNAME("二人称")%……！」
	ENDIF
;-------------------------------------------------
;初めてC絶頂
;-------------------------------------------------
CASE "Ｃ絶頂"
	IF FIRST_EV("Ｃ絶頂") == 0
		CALL PRINT_STRW, "「んあっ！きちゃう、きちゃ……ううぅぅ_H_」"
	ENDIF
;-------------------------------------------------
;初めてV絶頂
;-------------------------------------------------
CASE "Ｖ絶頂"
	IF FIRST_EV("Ｖ絶頂") == 0
		CALL PRINT_STRW, "「あうっ、はぁ！んっ、もうっ……くぅ_H_」"
	ENDIF
;-------------------------------------------------
;初めてA絶頂
;-------------------------------------------------
CASE "Ａ絶頂"
	IF FIRST_EV("Ａ絶頂") == 0
		CALL PRINT_STRW, "「違うところなのni↘……あっ、ふぅっ_H_」"
	ENDIF
;-------------------------------------------------
;初めてB絶頂
;-------------------------------------------------
CASE "Ｂ絶頂"
	IF FIRST_EV("Ｂ絶頂") == 0
		CALL PRINT_STRW, "「あうっ、だめっ！胸がおかしくなるのぉ_H_」"
	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
		CALL PRINT_STRW, "「胸からで、ちゃ、ううううぅぅぅぅ……_H_」"
	;二回目以降
	ELSE
		CALL PRINT_STRW, "「またっ！またでるぅ……_H_」"
	ENDIF
;-------------------------------------------------
;絶頂放尿した
;-------------------------------------------------
CASE "絶頂放尿"
	;初めて
	IF FIRST_EV("絶頂放尿") == 0
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			CALL PRINT_STRW, "「あっ、あふっ、でちゃうぅ……_H_」"
		;それ以外
		ELSE
			CALL PRINT_STRW, "「あっ、見ない、でぇ……_H_」"
		ENDIF
	;二回目以降
	ELSE
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			CALL PRINT_STRW, "「ふっ、う……はぁ_H_」"
		;それ以外
		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:恋慕
			CALL PRINT_STRW, "「あぐっ_H_おまんこ_H_おまんこがぁ_H_」"
			CALL PRINT_STRW, "「ずっとずっと_H_イってるのぉ_H_」"
		;それ以外
		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:恋慕
			CALL PRINT_STRW, "「胸部もうダメになってるからぁ_H_」"
			CALL PRINT_STRW, "「これ以上ダメにするのはやめてぇ_H_」"
		;それ以外
		ELSE
			CALL PRINT_STRW, "「胸がっ、おかしくなるっ……からっ、これ以上は……ダメ、だからぁ_H_」"
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, "「また、胸部おかしくされちゃうぅ_H_」"
		;それ以外
		ELSE
			CALL PRINT_STRW, "「また、胸部おかしくされちゃうっ……_H_」"
		ENDIF
	ENDIF
ENDSELECT

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

SELECTCASE ARGS
;-------------------------------------------------
;苦痛刻印Lv3取得
;-------------------------------------------------
CASE "苦痛刻印Lv3取得"
	IF FIRST_EV("苦痛刻印Lv3取得") == 0
		PRINTFORMW 「ど、どうして、%CNAME("二人称")%……？」
	ENDIF
;-------------------------------------------------
;快楽刻印Lv3取得
;-------------------------------------------------
CASE "快楽刻印Lv3取得"
	IF FIRST_EV("快楽刻印Lv3取得") == 0
		CALL PRINT_STRW, "「壊れちゃう……あうっ_H_壊れちゃうよぅ_H_はぁ……_H_」"
	ENDIF
;-------------------------------------------------
;屈服刻印Lv3取得
;-------------------------------------------------
CASE "屈服刻印Lv3取得"
	IF FIRST_EV("屈服刻印Lv3取得") == 0
		PRINTFORMW 「%CNAME("二人称")%、えへへ、呼んだだけー」
	ENDIF
ENDSELECT

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

;恋慕
IF TALENT:恋慕
	PRINTFORMW
;それ以外
ELSE
	PRINTFORMW
ENDIF

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

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW
	;鼻钩時専用です。人を選びすぎるので基本的には書かなくて良いと思われます
	ELSEIF SHOOT("鼻の穴")
		;初めて
		IF FIRST_EV("絶頂：ぶっかけ鼻の穴") == 0
			PRINTFORMW
		;鼻の穴に出され慣れて平気变成了
		ELSEIF CHECK("鼻射")
			PRINTFORMW
		;鼻钩自体は受け入れているが苦痛
		ELSEIF CHECK("鼻钩")
			PRINTFORMW
		;全面的につらい
		ELSE
			PRINTFORMW
		ENDIF
	;超大量射精
	ELSEIF COND("絶頂", PLAYER) >= 3
		PRINTFORMW
	;大量射精
	ELSEIF COND("絶頂", PLAYER) == 2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰")
	PRINTFORMW

;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた
;-------------------------------------------------
ELSEIF SHOOT("脚")
	;初めて
	IF FIRST_EV("絶頂：脚") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ELSEIF SHOOT("素股")
	PRINTFORMW
;-------------------------------------------------
;口で射精させた
;-------------------------------------------------
ELSEIF SHOOT("口")
	;初めて
	IF FIRST_EV("絶頂：口") == 0
		PRINTFORMW 「んぶっ！？……んえっ、美味しくな～い……」
	;精液中毒Lv5
	ELSEIF ABL:精液中毒 >= 5
		CALL PRINT_STRW, "「ん……んんぅー……_H_」"
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW 「ひゃっ！……惊嚇したぁ……そんなに気持ちよかった？」
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		IF RAND:3 == 0
			CALL PRINT_STRW, @"「わっ_H_ 中でいっぱい……どぷどぷって……_H_」"
		ELSEIF RAND:2 == 0
			CALL PRINT_STRW, @"「ふふ……_H_ %CNAME("二人称")%ので真っ白になっちゃった……_H_」"
		ELSE
			CALL PRINT_STRW, "「わぁ……いっぱいでたね_H_」"
		ENDIF
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		CALL PRINT_STRW, "「どくどくしてる……_H_」"
	;それ以外
	ELSE
		PRINTFORMW 「わぁ……でるねぇ……」
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW 「ひゃ！？へ、変な感じだねぇ……」
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		IF RAND:3 == 0
			CALL PRINT_STRW, @"「わぁ_H_手がべっとべと_H_気持ちよかった？」"
		ELSEIF RAND:2 == 0
			CALL PRINT_STRW, @"「ふふ……_H_ %CNAME("二人称")%のでべっとべと_H_」"
		ELSE
			CALL PRINT_STRW, "「見て見て、こーんなに、いっぱい_H_」"
		ENDIF
	;奉仕精神Lv3
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;性交で射精させた
;-------------------------------------------------
ELSEIF SHOOT("Ｖ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ｖ中出し") == 0

		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
ELSEIF SHOOT("Ａ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ａ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
ELSEIF SHOOT("接吻")
	PRINTFORMW 「ん……？ひゃ！？ちゅーで出ちゃったの？」
	IF TALENT:恋慕
		CALL PRINT_STRW, @"「……そっかぁ_H_えへへ……_H_」"
	ELSE
		PRINTFORMW 「惊嚇したぁ、出しちゃうなら言ってよ、あ、言えないよね……」
	ENDIF
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗")
	PRINTFORMW
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶")
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
ELSEIF SHOOT("逆舐陰")
	PRINTFORMW
;-------------------------------------------------
;逆肛交、逆強姦で射精
;-------------------------------------------------
ELSEIF SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")
	PRINTFORMW
;-------------------------------------------------
;PLAYERが女で、イってしまった…
;-------------------------------------------------
ELSEIF SHOOT("調教者が女性")
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2
		PRINTFORMW
	;絶頂
	ELSEIF COND("絶頂", PLAYER) == 1
		PRINTFORMW
	ENDIF
ENDIF

;-------------------------------------------------
;角色が調教中に調教者を攻める際などの口上
;-------------------------------------------------
@KOJO_COUNTER_K51, ARGS
SELECTCASE ARGS
CASE "绝顶忍耐"
	;partnerに焦らされている
	IF TEQUIP:推倒
		PRINTFORMW
	;PLAYERが绝顶忍耐
	ELSE
		;今回がこらえた初回
		IF EX:PLAYER:绝顶忍耐 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "恍惚"
	PRINTFORMW
CASE "推倒"
	IF TALENT:相思相愛
		CALL PRINT_STRW, @"「%CNAME("二人称")%_H_ごめんね、大好き、大好きすぎて我慢できないの……だから、ごめんね_H_」"
	ELSEIF TALENT:恋慕
		CALL PRINT_STRW, @"「%CNAME("二人称")%_H_ごめんね、ちょっと我慢してね……%CNAME("一人称")%、我慢できないのっ……_H_」"
	ELSE
		CALL PRINT_STRW, @"「……ごめんね、%CNAME("二人称")%、%CNAME("一人称")%、もうがまん、できないっ_H_」"
	ENDIF
CASE "強制終了"
	PRINTFORMW
CASE "復活"
	PRINTFORMW
CASE "恍惚から復帰"
	PRINTFORMW
CASE "助手が限界"
	PRINTFORMW
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;-------------------------------------------------
@KOJO_EVENT_K51, ARGS
SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
CASE "Ｖ避孕套装着"
	;挿入指令
	IF TRAIN_GENRE("挿入", SELECTCOM)
		;PLAYヤーは着ける気満々
		IF TEQUIP:PLAYER:避孕套

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

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

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

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

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

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

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

		ENDIF
	ENDIF
;-------------------------------------------------
;陶酔かつ危険日でない時に、普段は許していない生挿入をさせて给際のセリフ
;-------------------------------------------------
CASE "特別に生挿入許可"
	;初めて
	IF FIRST_EV(ARGS) == 0

	ELSE

	ENDIF
;-------------------------------------------------
;調教後自慰
;-------------------------------------------------
CASE "調教後自慰"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;自慰中毒Lv3以上
	ELSEIF ABL:自慰中毒 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;レズPLAY
;-------------------------------------------------
CASE "調教後レズPLAY"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;調教後性交
;-------------------------------------------------
CASE "調教後性交"
	;V感覚Lv4以上
	IF ABL:Ｖ感覚 >= 4
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭騎乗位
;-------------------------------------------------
CASE "夜袭騎乗位"
	;V感覚Lv5以上
	IF ABL:Ｖ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭Ａ騎乗位
;-------------------------------------------------
CASE "夜袭Ａ騎乗位"
	;Ａ感覚Lv5以上
	IF ABL:Ａ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-----------------------------
;夜袭接吻
;----------------------------
CASE "夜袭接吻"
	;M感覚Lv3以上
	IF ABL:Ｍ感覚 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;添い寝
;-------------------------------------------------
CASE "添い寝"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF

;-------------------------------------------------
;PLAYERがMASTERとASSI間で交代した際の台詞
;-------------------------------------------------
CASE "調教者交代"
	;PLAYERがASSIに変わった
	IF PLAYER == ASSI
		PRINTFORMW
	;PLAYERが你に戻った
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;partnerがTARGETとASSI間で交代した際の台詞
;-------------------------------------------------
CASE "対象交代"
	;partnerとしてエッチに誘われた
	IF COND("第一対象") == TARGET
		IF TALENT:相思相愛
			PRINTFORMW 「はーい、えへへ、待ってたよ！」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%と？うん、がんばるね！」
		ENDIF
	;指导者としてエッチに誘われた
	ELSE
		PRINTFORMW 「あ、%CNAME("一人称")%の出番？」
	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 COND("嘔吐後余力有")
		PRINTFORMW
	;強制口交で射精後に吐いた場合。射精個所は@KOJO_MESSAGE_SAMEN_AND_EXTACY_KX1内同様にSHOOTで分岐できます
	ELSEIF COND("射精後嘔吐")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;妊娠した
;----------------------------------------------------------------
CASE "妊娠発覚"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;出産した
;----------------------------------------------------------------
CASE "出産"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;兒童が大きくなった
;----------------------------------------------------------------
CASE "子出口"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;性交後に抜いた時
;----------------------------------------------------------------
;恥ずかしいところを見せてくれる
;----------------------------------------------------------------
CASE "中出し後くぱぁ"
	;台詞の前の地の文を消したい人は下のコメントアウトを消してください
	;CALL SETFLAG, "地の文スキップ"

	;恋慕
	IF TALENT:恋慕
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	PRINTFORMW
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;この分岐には絶頂していない場合にのみ来ます
;----------------------------------------------------------------
CASE "中出し後挿入解除"
	PRINTFORMW
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
CASE "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;----------------------------------------------------------------
;塞子をしていない状態での液体浣腸口上
;----------------------------------------------------------------
CASE "无塞浣腸事件"
	;限界値突破時
	IF BASE:排泄欲 >= 10000
		;限界値を超えたが漏らせない場合
		IF INSERT("Ａ挿入") || COND("肛門栓")
			PRINTFORMW 「うぅ……お、おなかがぁ……」
		;漏らす直前
		ELSE
			PRINTFORMW 「で、でちゃうぅ……見ないでぇ……！」
		ENDIF
	;漏らした
	ELSEIF NOWEX:排泄
		PRINTFORMW 「出ちゃった……うぅ……ひどいよ%CNAME("二人称")%……」
	;我慢しているときの口上
	ELSEIF TEQUIP:浣腸
		PRINTFORMW 「はぐっ……もれちゃうぅ……」
	ENDIF
;----------------------------------------------------------------
;吸能
;----------------------------------------------------------------
CASE "吸能"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;調教者がちんこを挿入する前に射精してしまった！
;----------------------------------------------------------------
CASE "挿入前暴発"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW 「ひゃっ！……で、でちゃったの……？ええっと、興奮しすぎちゃった？」
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;特殊な道具を使った際の台詞
;----------------------------------------------------------------
CASE "避妊の護符"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		;装着
		IF TALENT:避妊の護符
			PRINTFORMW
		;取り外し
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:避妊の護符
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

CASE "扶她薬"
	;扶她变成了
	IF TALENT:扶她
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
CASE "黑色ドロップ"
	;男性变成了
	IF TALENT:男性
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "巨根薬"
	;薬を使用した後の状態で分岐
	SELECTCASE SIZE("阴茎")
	;並
	CASE 1
		PRINTFORMW
	;巨根
	CASE 2
		PRINTFORMW
	;馬根
	CASE 3
		PRINTFORMW
	CASE 4
		PRINTFORMW
	CASE 5
		PRINTFORMW
	;CASEELSE
	;	PRINTFORMW
	ENDSELECT
CASE "縮根薬"
	;薬を使用した後の状態で分岐
	SELECTCASE SIZE("阴茎")
	;小
	CASE 0
		PRINTFORMW
	;並
	CASE 1
		PRINTFORMW
	;巨根
	CASE 2
		PRINTFORMW
	ENDSELECT
CASE "剥皮薬"
	;薬を使用した後の状態で分岐
	IF COND("假性包茎")
		PRINTFORMW
	;ずる剥け
	ELSE
		PRINTFORMW
	ENDIF
CASE "伸皮薬"
	;薬を使用した後の状態で分岐
	IF COND("真性包茎")
		PRINTFORMW
	ELSEIF COND("假性包茎")
		PRINTFORMW
	ENDIF
CASE "豊胸薬"
	;薬を使用した後の状態で分岐
	SELECTCASE TALENT:巨乳
	;並乳
	CASE 0
		PRINTFORMW 「ちょうどいいサイズだよねー」
	;巨乳
	CASE 1
		PRINTFORMW 「元に戻っちゃったけど、やっぱり安心するね」
	;爆乳
	CASE 2
		PRINTFORMW 「うーん……肩こりひどくなりそう……」
	;超乳
	CASE IS >= 3
		PRINTFORMW 「ねぇ！？大きすぎない！？」
	ENDSELECT
CASE "貧乳薬"
	;薬を使用した後の状態で分岐
	SELECTCASE TALENT:巨乳
	;並乳以下
	CASE 0
		IF TALENT:貧乳
			PRINTFORMW 「わぁ……ないと新鮮だね、すっごく軽ーい！」
		;並乳
		ELSE
			PRINTFORMW 「わぁ……これぐらいがちょうどいいよね！」
		ENDIF
	;巨乳
	CASE 1
		PRINTFORMW 「元に戻って良かったよ……」
	;爆乳
	CASE 2
		PRINTFORMW 「うーん……あれよりはマシだけど……」
	ENDSELECT
CASE "巨人の薬"
	;薬を使用した後の状態で分岐
	IF TALENT:高大
		PRINTFORMW
	;普通身高
	ELSE
		PRINTFORMW
	ENDIF
CASE "小人の薬"
	;薬を使用した後の状態で分岐
	IF TALENT:娇小
		PRINTFORMW
	;普通身高
	ELSE
		PRINTFORMW
	ENDIF
CASE "虹の薬"
	;薬を使用した後の状態で分岐
	SELECTCASE CONDS("肤色")
	CASE "褐色肌"
		PRINTFORMW
	CASE "色白"
		PRINTFORMW
	CASE "青肌"
		PRINTFORMW
	;普通
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "桃尻薬"
	;薬を使用した後の状態で分岐
	IF TALENT:巨尻 >= 2
		PRINTFORMW
	ELSEIF TALENT:巨尻
		PRINTFORMW
	;普通の尺寸
	ELSE
		PRINTFORMW
	ENDIF
CASE "小尻薬"
	;薬を使用した後の状態で分岐
	IF TALENT:巨尻
		PRINTFORMW
	ELSEIF TALENT:小尻
		PRINTFORMW
	;普通の尺寸
	ELSE
		PRINTFORMW
	ENDIF

ENDSELECT

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

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

	ELSE

	ENDIF

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

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

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

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

CASE "助手：撮影開始"

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

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

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

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

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

CASE "助手で性処理"

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

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

ENDSELECT

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

SELECTCASE ARGS
;CASE "勧誘"のみ、角色としてはまだ存在していないのに注意
CASE "勧誘"
	SIF DAY > 8
		RETURN 1
	STR:実行条件 = ※%CSVNAME(51)%在_黄色_游戏開始一周后_才可以劝诱
CASE "恋慕"
	;默认だと信頼5LV＆好感度が2500以上で恋慕
	;SIF TALENT:ACTOR:恋慕 == 0 && ABL:ACTOR:信頼 >= 5 && CFLAG:ACTOR:好感度 >= 2500
	;	RETURN 1
	;STR:実行条件 = 要:信頼5LV、好感度2500
CASE "淫乱"
	;默认だと欲望が5以上、自慰中毒or精液中毒のどれかが3以上、今回の絶頂数が10以上で淫乱
	;SIF TALENT:ACTOR:淫乱 == 0 && ABL:ACTOR:欲望 >= 5 && MAX(ABL:ACTOR:自慰中毒, ABL:ACTOR:精液中毒) >= 3 && EX:ACTOR:絶頂数合計 >= 10
	;	RETURN 1
	;STR:実行条件 = 要:欲望5LV、自慰中毒か精液中毒のどちらかが3LV、今回の絶頂数10
CASE "相思相愛"
	;棗以外の「相思相愛」の部員数が増えるごとに必要信頼と好感度が増えていく
	;・信頼		「相思相愛」×1＋5			例 「相思相愛」が二人	必要信頼7
	;・好感度	「相思相愛」×500＋2500		例 「相思相愛」が二人	必要好感度3500
	;最大5人。それ以上は増えない。
	;式作ってくださったブリート桑に感謝
	SIF TALENT:ACTOR:恋慕 && MIN(CHARA_NUM("相思相愛"), 5) + 5 <= ABL:ACTOR:信頼 && (MIN(CHARA_NUM("相思相愛"), 5) * 500) + 2500 <= CFLAG:ACTOR:好感度
		RETURN 1
	;いい感じの説明文の書き方わかんねぇ～
	STR:実行条件 = イエロー_（※告白を受け入れてもらうには[棗の信頼と好感度が一定以上]の必要が有ます。)
CASE "淫紋贴纸"
	;默认だと[欲望LV3]or[屈服刻印LV1]
	;SIF MARK:ACTOR:淫紋 == 0 && (ABL:ACTOR:欲望 >= 3 || MARK:ACTOR:屈服刻印)
	;	RETURN 1
	;STR:実行条件 = イエロー_(※淫紋を受け入れてもらうには、[欲望LV3]or[屈服刻印LV1]の必要が有ます)
CASE "淫紋"
	;默认だと[淫乱]or[受虐属性LV3]or[屈服刻印LV3]
	;SIF TALENT:ACTOR:淫乱 || ABL:ACTOR:受虐属性 >= 3 || MARK:ACTOR:屈服刻印 >= 3
	;	RETURN 1
	;STR:実行条件 = イエロー_(※刻印を受け入れてもらうには、[淫乱]or[屈服刻印LV3]or[受虐属性LV3]の必要が有ます)
ENDSELECT

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

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

;ENDを選択する際の表示。下で満たしたEND条件に応じて全角21文字以内で好きに変えて良い
STR:ＥＮＤ标题 = シナリオイベント：棗

;時期が夏か天気が雨で好感度が500以上
SIF COND("夏") && CFLAG:好感度 >= 500
	;ENDの番号_END名 となっている
	;番号は1～60の範囲(でもできれば１から順に詰めて使用)の半角数字で、ＥＮＤ名は喜欢的东西に変更してください
	STR:エンディング += "1_あめあめふれふれ/"
SIF CFLAG:好感度 >= 1000 && CEVENT("あめあめふれふれ")
	STR:エンディング += "2_なつむかし/"
RETURN 1

;ARGSには@MENU_SINGLE_ENDING_K1で設定したEND名のどれかが入っている
;見たENDはCEVENTで記録される
;例）ＥＮＤ名１を閲覧した場合は CEVENT("ＥＮＤ名１") = 1 となる
@SINGLE_ENDING_K51, ARGS
SELECTCASE ARGS
CASE "あめあめふれふれ"
	CALL K51_LONG, "あめあめふれふれ"
CASE "なつむかし"
	;懐かしむ（なつかしむ）のアナグラム
	CALL K51_LONG, "なつむかし"
CASE "ＥＮＤ名３"
	PRINTFORMW ＥＮＤ名３の本文です
ENDSELECT
RETURN 1

path: ERB/EVENT_K/51 棗/EVENT_K51.ERB


code:
;-------------------------------------------------
;この角色独自の衣装を設定する。制服、体操服、泳装は既存のものから選ぶのが楽です
;-------------------------------------------------
@CLOTHES_K51, ARGS

SELECTCASE ARGS
;角色クター独自の内衣の組み合わせを設定できます。設定した場合、一定の確率で着用します
CASE "内衣"
	CALL SET_PANTIES, TEXTR("內褲/三角胖次/褶边の胖次")
	IF CHECK_PANTIES("褶边の胖次")
		CALL SET_BRA, "褶边の胸罩"
	ELSE
		CALL SET_BRA, TEXTR("简约胸罩/满杯胸罩/褶边の胸罩")
	ENDIF
;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
CASE "飾品"
	;CALL SET_OTHER, ""

;学園での便装です。設定必須です。
;水手服, 露脐装超短裙水手服, 西装外衣, 露脐装超短裙西装外衣, 美式校服など
CASE "制服"
	CALL SET_COSTUME, "西装外衣"
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;体操服布鲁马, 体操服五分褲, 体操服紧身短褲, 体操服运动衫など
CASE "体操服"
	CALL SET_COSTUME, "体操服运动衫"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;死库水, 競泳泳装, 白比基尼, 黒比基尼など
CASE "泳装"
	CALL SET_COSTUME, "死库水"

;自宅など学園外で着ます。設定必須です
CASE "便装"
	CALL SET_SHIRT, "女式衬衫"
	CALL SET_SKIRT, "裙"
	CALL SET_SOCKS, "短襪"
	CALL SET_SHOES, "運動鞋"

;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	CSTR:服 = 睡衣/
	CSTR:外套 = 睡衣休闲褲/不可移開/不可手交/休闲褲/

;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"
	CALL SET_SHIRT, "女式衬衫"
	CALL SET_SKIRT, "裙"
	CALL SET_SOCKS, "短襪"
	CALL SET_SHOES, "運動鞋"
;もちろん约会の際に着ます
CASE "约会衣装"
	IF COND("春")
		IF COND("髪型変更可能")
			CALL CHANGE_MAIDFACE, "長", TARGET
			CALL CHANGE_MAIDFACE, "侧盘頭", TARGET
		ENDIF
		IF RAND:2 == 0
			CALL SET_SHIRT, "蕾丝女式衬衫/米色"
		ELSE
			CALL SET_SHIRT, "女式衬衫"
		ENDIF
		CALL SET_SKIRT, "裙"
		CALL SET_SOCKS, "短襪"
		CALL SET_SHOES, "平底鞋"
	ELSEIF COND("夏")
		IF COND("髪型変更可能")
			CALL CHANGE_MAIDFACE, "長", TARGET
			CALL CHANGE_MAIDFACE, "侧盘頭", TARGET
		ENDIF
		CALL SET_SHIRT, "夏日礼服"
		CALL SET_SHOES, "无后跟鞋"
	ELSEIF COND("秋")
		IF COND("髪型変更可能")
			CALL CHANGE_MAIDFACE, "長", TARGET
			CALL CHANGE_MAIDFACE, "侧盘頭", TARGET
		ENDIF
		IF RAND:2 == 0
			CALL SET_SHIRT, "蕾丝女式衬衫/黒"
		ELSE
			CALL SET_SHIRT, "褶边女式衬衫"
		ENDIF
		CALL SET_SKIRT, "裙"
		CALL SET_SOCKS, "短襪"
		CALL SET_SHOES, "平底鞋"
	ELSEIF COND("冬")
		IF COND("髪型変更可能")
			CALL CHANGE_MAIDFACE, "長", TARGET
			CALL CHANGE_MAIDFACE, "侧盘頭", TARGET
		ENDIF
		CALL SET_SHIRT, "针织毛衣"
		CALL SET_SKIRT, "裙"
		CALL SET_SOCKS, "膝下襪"
		CALL SET_SHOES, "小皮靴"
	ENDIF
ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;髪型変更のお願い中だとここでの変更は起きません
;-------------------------------------------------
@MAIDFACE_K51
IF PLACE("自宅")
	CALL CHANGE_MAIDFACE, "長", TARGET
	CALL CHANGE_MAIDFACE, "无特殊髪型", TARGET
ELSE
	CALL SETFLAG, "普段の髪型復元", TARGET
ENDIF

;-------------------------------------------------
;感情やシチュに応じて、角色独自の表情を設定する。設定しなくてもかまいません
;主にEMOTION_PLUSなどで颜绘を出す際の文字列の組み合わせの代わりに使う関数です
;-------------------------------------------------
@EMOTION_K51, ARGS

SELECTCASE ARGS
CASE "睡眠"
	STR:颜绘改髪 = 闭眼/小口２/对话框睡眠
CASE "甜言蜜语"
	STR:颜绘改髪 = 半目/呀哒３/紅潮２
CASE "夸奖"
	STR:颜绘改髪 = 对话框開心/笑顔３/笑颜/紅潮
CASE "心情差"
	STR:颜绘改髪 = 半目/通常眉/へ字３
CASE "躁动难忍"
	STR:颜绘改髪 = 闭眼/蹙眉/へ字４/紅潮
CASE "刚睡醒"
	STR:颜绘改髪 = 对话框困倦/半目/斜眉２/ヮ
CASE "憤怒"
	STR:颜绘改髪 = 对话框憤怒/憤怒眉/△/半目
CASE "害羞"
	STR:颜绘改髪 = 半目/飘忽/栗口２/紅潮
CASE "惊嚇"
	STR:颜绘改髪 = 〇〇/斜眉/呀哒２/对话框惊讶
CASE "小悪魔"
	STR:颜绘改髪 = 半目/笑顔３/紅潮
CASE "红潮恍惚"
	STR:颜绘改髪 = 紅潮/半目/通常眉/へ字
CASE ""
	STR:颜绘改髪 =
ENDSELECT

path: ERB/EVENT_K/51 棗/EVENT_K51_CLOTHES.ERB


code:
;-------------------------------------------------
;部員同士での交流。自分はTARGETとして呼ばれ、話相手の部員はPARTNER()として呼ばれる
;話相手への呼びかけはCNAME("partner")で出来る
;TFLAG:台詞スキップ = 1で話している相手のセリフのスキップ、TFLAG:地の文スキップ = 1で続く地の文のスキップをする事が出来る
;-------------------------------------------------
@KOJO_COMM_K51, ARGS
#DIM MEMO_LINECOUNT
;対話相手にしたい角色の名前を/区切りでこれに突っ込んでFIND_TaiTa(EVENT_TABLE)とするとそのうち一人が選ばれる
#DIMS EVENT_TABLE

EVENT_TABLE =
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;話しかける側のセリフ。COND("対話可能")を満たす相手を選んでPARTNER()にする事で、特定の相手に話しかけることもできる
CASE "お誘いする"
	;特定の相手に話しかける場合はEVENT_TABLEに対話相手の呼び名(CALLNAME)を / 区切りで並べて ; を消す
	;例１）弗理希艾尔or濡烏の君or杏珠から一人選ぶ場合
	;EVENT_TABLE = 弗理希艾尔/濡烏の君/杏珠
	;例２）部員全てから一人選ぶ場合
	;EVENT_TABLE = 全員

	IF FIND_TaiTa(EVENT_TABLE)
		;話し相手をpartnerにする
		CALL SET_PARTNER, FIND_TaiTa(EVENT_TABLE)
		CALL EMOTION_PLUS, "交流中", TARGET, PARTNER()
	ENDIF

;話しかけられる側のセリフ。括弧は『』を使うのが望ましい
CASE "誘われた"

ENDSELECT
;-------------------------------------------------
;この角色とのやり取りで使う路人角色を記述する
;-------------------------------------------------
@CREATE_MOB_K51, ARGS

SELECTCASE ARGS
CASE "サラ・フェルトベルク", "棗妈妈"
	CSTR:種族 = 人类
	CSTR:髪色 = 銀髪
	CSTR:髪長 = 長
	CSTR:前髪 = 进气口发型
	CSTR:後髪 = 卷髪
	CSTR:改髪 = 无特殊髪型
	CSTR:呆毛 = 无呆毛
	CSTR:蝴蝶結 = 无蝴蝶結
	CSTR:瞳色 = 赤
	CSTR:眼形 = 吊眼３
	CSTR:白眼 = 白眼
	CSTR:眉形 = 憤怒眉短
	CSTR:嘴形 = へ字３

	TALENT:外見年齢 = 1
	TALENT:娇小 = 1
	TALENT:肤色 = 2
	TALENT:貧乳 = 1
	TALENT:小尻 = 1
	TALENT:性器年齢 = 3

	TALENT:強気 = 1
	TALENT:傲慢 = 1
	TALENT:冷静 = 1
	TALENT:不在乎貞操 = 1
	TALENT:不知羞恥 = 1
	TALENT:難以越過的底線 = 1
	TALENT:聰慧 = 1
	TALENT:堅強 = 1
	TALENT:自制心 = 1
	TALENT:錬金術 = 1
	TALENT:禁断的知識 = 1
	TALENT:汚臭無視 = 1
	TALENT:疼痛無視 = 1
	TALENT:难以妊娠 = 1
	TALENT:魅力 = 1
	TALENT:薬毒耐性 = 1

	BASE:身高 = 150
	BASE:胸圍 = 76
	BASE:腰圍 = 62
	BASE:臀圍 = 77
	CALL SET_CEVENT, "陰毛の名称：自然"
	CALL SET_SHIRT, "褶边連衣裙/黒"

ENDSELECT

path: ERB/EVENT_K/51 棗/EVENT_K51_COMM.ERB