code:
;-------------------------------------------------
;口上テンプレート
;維吹口上_2019_01_01（角色クターの名前を入れる、下にコンセプトなど一言あれば入れる）
;製作者　試験型労働者
;-------------------------------------------------
;-------------------------------------------------
;角色追加の手順（必読！）
;１：EVENT_KX1_名前.ERBとEVENT_KX1_SHOP.ERBとEVENT_KX1_DAILY.ERBとCHARAX1.csvのファイル名と内部のX1を角色番号に変更し、名前部分を角色名にする

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

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

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

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

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

;７：あとはERBファイルに書けば書くだけ喋るようになります

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

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 我_我
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		LOCALS = 你_你
	;相手が主人ではない
	ELSE
		LOCALS = 你_你
	ENDIF
;"主人"と"助手"は三人称。主に当人と話していない時に使う
CASE "主人"
	;恋慕だとちょっと気安い呼び方になる
	IF TALENT:恋慕
		LOCALS = %NAME:MASTER%_%NAME:MASTER%
	ELSE
		LOCALS = %NAME:MASTER%桑_%NAME:MASTER%桑
	ENDIF
CASE "助手"
	LOCALS = %CALLNAME:ASSI%桑_%CSTR:ASSI:ふりがな%桑
ENDSELECT
RETURNF LOCALS

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

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = 雪女与人类的混血儿。经常旷课的不良少女。用男生语调说话的白皙美少女
	STR:2 = 为了进食灵魂成为完全的雪女而入部

;ここの中に限り、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 她环视一圈房间、点了点頭、转身面向弗理希艾尔、不慌不忙地開口道：
	PRINTFORMW 「你、不是人类吧？　求你了！　请教人家成为妖怪的方法」
	PRINTFORMW 『……请冷静一下。总之先喝杯茶再谈吧？』
	PRINTFORMW 对于这冒昧的请求、女仆礼仪完美的微笑着递出茶水、询问了事情的来龙去脉
	PRINTFORML ・
	PRINTFORML ・
	PRINTFORML ・
	PRINTFORMW 十几分钟之后、从她……風花 維吹（かざはな いぶき）那里了解到的事情、总的来说就是……
	PRINTFORMW 自身是雪女和人类的混血儿。因为种种原因变得讨厌人类，而想舍弃人类的身份去母亲的那里。
	PRINTFORMW 然而现在自己的身体更偏向人类、就算去山里也很难被认可的吧
	PRINTFORMW 在烦恼的时候、注意到这个部室里聚集着人类以外的存在
	PRINTFORMW （她似乎能够分辨人类以外的存在）
	PRINTFORMW 想请作为同类的弗理希艾尔告诉她舍弃人类血统的方法
	PRINTFORML
	PRINTFORMW 弗理希艾尔聆听完起因后思考着什么、少顷開口道：
	PRINTFORMW 『不再为人的方法各种各样的都有……、像貴女这种情况、食用人类的灵魂应该是最合适的吧』
	PRINTFORMW 「人类的灵魂？……啊——、多少能理解、但是……吃掉的话对方不就死了么？」
	PRINTFORMW 『会死呢』
	PRINTFORMW 「那样的话……有点」
	PRINTFORMW 『有点反感吗？　是这样没错呢。于是！　对貴女来说有个好消息』
	PRINTFORMW 「……那个恶魔般亲切的笑容、我有不好的预感」
	PRINTFORMW 『真是慧眼如炬。我就是恶魔哦、我要说的是对于现在的贵女来说、一个无法拒绝的提案』
	PRINTFORML
	PRINTFORMW ……这就是雪女半妖、風花維吹的入部起因。
	PRINTFORMW 「但是有个条件。要做好避孕。不然会很困扰吧？　对彼此来说」
	PRINTFORMW 『では、契約書に明記しておきましょう。悪魔の契約書ですから実効性抜群です』
	PRINTFORMW 『契約書的费用也有呢……。从主人様那獲得灵魂的两成就足够了喲？』
	PRINTFORML
	CALL PRINT_STRL, "黄色_※契約書附带避妊の護符"
	CALL PRINT_STRW, @"黄色_由%CALLNAME:TARGET%持有、除非在契約者双方（%CALLNAME:MASTER%和%CALLNAME:TARGET%）都同意的基础上废弃、否则不会失去效果"
	;ただし仲介者の弗理希艾尔は契約書そのものを無効にできる。意味がないからしないが
	PRINTFORML
	;素質で指定済みだが演出上の問題
	CALL PRINT_STRW, @"_%CALLNAME:MASTER%は%CALLNAME:TARGET%と_黄色_[炮友契約]_を結んだ"
	PRINTFORML
	PRINTFORMW 「写好了呢。我是風花維吹。请多多指教、%CNAME("主人")%」
	PRINTFORML
	PRINTFORMW 在弗理希艾尔拟定的契約書上署名、并捺印後、主动过来握手的%CALLNAME:TARGET%、手异常的冷。
	TALENT:0:避妊の護符 = 1

;これは別になくても構いません
CASE "勧誘直後"
	PRINTFORML ※系统消息※
	PRINTFORML 根据%CALLNAME:TARGET%收集的魂(可在能力表示界面上确认)来推进精灵化（雪女化）事件
	PRINTFORML 经过調教（[邀请上床]指令下的模式）后的展開、最终獲得[精霊]的素質
	PRINTFORMW 要成为[相思相愛]的话、必须有[恋慕]和[精霊]这两个素質

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

;同居後の自分的房間の解説です。これも別に無くて構いません
CASE "自室描写"
	PRINTFORML 房间的角落上放着提包和起码的私人物品、仅是如此的朴素卧室

ENDSELECT

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

;口上書く予定もないし封印しとく
;暴力は暴力。愛があるなんて理屈を維吹は理解しない
DITEMTYPE:TARGET:12 = 1
DITEMTYPE:TARGET:95 = 1
DITEMTYPE:TARGET:130 = 1
DITEMTYPE:TARGET:132 = 1
DITEMTYPE:TARGET:141 = 1
DITEMTYPE:TARGET:142 = 1
DITEMTYPE:TARGET:143 = 1
DITEMTYPE:TARGET:148 = 1
;肛門はなんとか理解するが尿道やら乳頭奸は暴力認定
DITEMTYPE:TARGET:15 = 1
DITEMTYPE:TARGET:82 = 1
DITEMTYPE:TARGET:83 = 1
DITEMTYPE:TARGET:84 = 1
DITEMTYPE:TARGET:85 = 1
DITEMTYPE:TARGET:86 = 1
DITEMTYPE:TARGET:87 = 1
DITEMTYPE:TARGET:88 = 1
DITEMTYPE:TARGET:149 = 1
DITEMTYPE:TARGET:151 = 1
DITEMTYPE:TARGET:152 = 1
;男性器は避妊できないしチンコ生やすとかないわ…
DITEMTYPE:TARGET:200 = 1

IF TALENT:相思相愛 && DEVENT("避妊解除可")
	;相思相愛状態で護符解除後、調教中は身嗜管理OFF
	DITEMTYPE:TARGET:146 = 1
	CALL SETFLAG, "身嗜み：Ｖ独占", TARGET
ENDIF

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

;相思相愛まで非同居時は朝袭・夜袭禁止
;恋慕なら「そんな勝手なことしたら嫌われそうだな…」みたいなことを考えて悶々としてる
;同居するとその辺の心理的ハードルが下がる。物理的距離の近さは実行しやすさだ
IF TALENT:相思相愛
	IF CEVENT("朝袭禁止")
		CALL DEL_CEVENT, "朝袭禁止"
	ENDIF
	IF CEVENT("夜袭禁止")
		CALL DEL_CEVENT, "夜袭禁止"
	ENDIF
ELSE
	IF COND("同居中")
		IF CEVENT("朝袭禁止")
			CALL DEL_CEVENT, "朝袭禁止"
		ENDIF
		IF CEVENT("夜袭禁止")
			CALL DEL_CEVENT, "夜袭禁止"
		ENDIF
	ELSE
		CALL SET_CEVENT, "朝袭禁止"
		CALL SET_CEVENT, "夜袭禁止"
	ENDIF
ENDIF

IF TALENT:相思相愛 && DEVENT("避妊解除可")
	CALL SETFLAG, "身嗜み：Ｖ独占", TARGET
ENDIF

;周日に今週の標語へのリアクションを重置
IF TEXTS("曜日") == "日"
	CALL DEL_DEVENT, "今週の標語"
ENDIF

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

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	PRINTFORMW 一被打招呼、%CALLNAME:TARGET%的身体就紧绷起来了
	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 「无论如何、不怎么紧张了的话、是好事啊」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTFORMW 「玩弄%CNAME("一人称")%很開心吗？」
	PRINTFORMW 「这个契約对%CNAME("主人")%有什么好处吗、怎么也无法理解」
	PRINTFORMW 「如果只是想抱女人的话、光是有弗理希艾尔小姐就足够了吧？」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	PRINTFORMW 「開始之前先等一下好吗？　把手伸出来」
	PRINTFORMW %CALLNAME:TARGET%用冰凉的双手盈握住%CALLNAME:MASTER%的手、随即闭上眼睛、一动不动
	PRINTFORMW 「……谢谢。和%CNAME("主人")%契約真是太好了」
	IF COND("種族：雪女")
		PRINTFORMW 「可是%CNAME("一人称")%马上就要和%CNAME("二人称")%分别了、%CNAME("一人称")%不会忘记在这里度过的时光的」
	ELSE
		PRINTFORMW 「%CNAME("一人称")%迟早会上山的。但是%CNAME("一人称")%永远不会忘记在这里度过的时光」
	ENDIF
	CALL SET_CEVENT, "調教開始：恋慕"
;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
	PRINTFORMW 一被打招呼、%CALLNAME:TARGET%的身体就紧绷起来了
	PRINTFORMW 「え、あ、するの？　うん、大丈夫、問題ない」
	PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为ぎくしゃくした動きで準備をしている
	PRINTFORMW 「おかしいな。その、こ、こ、恋人？とすると思うと何か緊張して……」
	PRINTFORMW 「……今まで何回もしてるのに、おかしいよな。ちょっと待って……」
	PRINTFORMW 深呼吸すると%CALLNAME:MASTER%に向き直り、深々と頭を下げた
	PRINTFORMW 「……よし、大丈夫。よろしくお願いします」
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無をチェック（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K27_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 K27_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K27_KOJO2
;相思相愛
IF TALENT:相思相愛
	IF RAND:2
		PRINTFORMW %CALLNAME:MASTER%が服を脱いでいると、何を思ったか%CALLNAME:TARGET%が手伝ってきた
		PRINTFORMW 言われるままにしていると、するすると服を脱がされる
		PRINTFORMW 服を精心畳むと、%CALLNAME:TARGET%正在认真地读着标题为向き直った
		PRINTFORMW 「よし、それじゃあやろうか？　%CNAME("一人称")%の服？　えっと、それはその、流れで……」
		IF ASSI > 0
			;助手が全裸にする場合
			IF GETBIT(CFLAG:ASSI:助手の指示, 45)
				PRINTFORMW 誤魔化す%CALLNAME:TARGET%であったが、%CALLNAME:ASSI%の魔手が从后面将伸びているのに気が付いていない
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW 「今日はどんな感じでする？」
		PRINTFORMW 「%CNAME("一人称")%はそうだな……。温柔的してくれるのがいい」
		PRINTFORMW 「でも激烈地されても喜んじゃうんだよな。染められてるなぁ……」
		PRINTFORMW 「うん、任せるよ。%CNAME("二人称")%とのこの時間はどっちにしても嬉しいからね」
	ENDIF
;恋慕
ELSEIF TALENT:恋慕
	IF RAND:2
		PRINTFORMW 「今天要怎么做？　可以的话、%CNAME("一人称")%想主动进攻呢」
		IF RAND:2
			PRINTFORMW 「大概、是因为可以看到%CNAME("二人称")%被攻时、那来感觉的表情吧？」
			;つまり彼女が喜欢的体位は……
		ELSE
			PRINTFORMW 「比起被欺负、%CNAME("一人称")%更喜欢这样做喲。被那样欺负太羞耻了、嘛……」
		ENDIF
		PRINTFORMW 「……又感觉羞耻起来了。赶紧開始啦」
	ELSE
		PRINTFORMW 「在告别之前一起享受快乐吧、我会尽可能地款待你的喲」
		PRINTFORMW 「……另外、当然也不会忘记给予我灵魂的付出哦？」
		PRINTFORMW %CALLNAME:TARGET%想要表现得很開朗的样子
	ENDIF
;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0
	IF RAND:2
		PRINTFORMW 「是是、那来做吧」
	ELSE
		PRINTFORMW 「……没什么心情、所以想明天再做啦……不行么」
	ENDIF
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
	IF RAND:2
		PRINTFORMW 「可以的话、今天也拜托你温柔一点喲」
		PRINTFORMW 「……等一下。%CNAME("二人称")%、此刻想的是『那就激烈点』是吧？」
	ELSE
		PRINTFORMW 「真不腻呢、%CNAME("主人")%也……」
		PRINTFORMW 「不对、这是在帮%CNAME("一人称")%而已。只是……没什么」
	ENDIF
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	IF RAND:2
		PRINTFORMW 「……努力的话就会有结果、也不是那么糟糕的运动的吧」
		PRINTFORMW 「世上、要是什么都是那样就好了呢？」
	ELSE
		PRINTFORMW 「不能控制支出灵魂的量么？」
		PRINTFORMW 「不行吗……。那么、只好努力了呢」
	ENDIF

;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	IF RAND:2
		PRINTFORMW 「像这样三番五次的邀请这种事情、对%CNAME("二人称")%也有好处吗」
		PRINTFORMW 「那样的话……算了、但愿如此吧」
		;この関数なら外が増えても大丈夫っぽい！便利！
		IF PLACE("野外")
			PRINTFORMW 为了结束那之后的话题、%CALLNAME:TARGET%委身于你
		ELSE
			PRINTFORMW 为了结束那之后的话题、%CALLNAME:TARGET%向%NAMES("床")%走去
		ENDIF
	ELSE
		PRINTFORMW 「%CNAME("主人")%是色鬼真是太好了喲」
		;相手は女とは限らないのだった
		PRINTFORMW 「想要左拥右抱、说起来、大概就是这么回事吧？」
		PRINTFORMW %CALLNAME:TARGET%露出了些许自虐的笑容
	ENDIF
ENDIF
RETURN 1

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

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
	PRINTFORML 「喂、喂~、%CNAME("主人")%、没事吧？」
	PRINTFORML 「太勉强啦」
	;恋慕
	IF TALENT:恋慕
		;助手がいる
		IF ASSI > 0
			;助手が恋慕
			IF TALENT:ASSI:恋慕
				;自分が相思相愛の場合、1/2で自分が介抱する
				IF TALENT:相思相愛 && RAND:2
					PRINTFORML 「%CNAME("助手")%、我想让%CNAME("主人")%休息一下、但是、可以拜托你善后吗？」
					PRINTFORMW 「……谢谢、我会找机会补偿你的」
				ELSE
					PRINTFORML 「%CNAME("助手")%、%CNAME("主人")%就拜托你了。让我休息一下吧」
					PRINTFORMW 「%CNAME("一人称")%之后会收拾的啦」
				ENDIF
			ELSE
				PRINTFORML 「%CNAME("助手")%、不好意思、善后就拜托给你了」
				PRINTFORMW 「因为%CNAME("一人称")%得让%CNAME("主人")%好好休息」
			ENDIF
		;二人きり
		ELSE
			;恋慕取得済みだと甘やかす
			PRINTFORML 「给、能喝水吗？　虽说自己也能喝……我知道啦」
			;雪女になっている場合
			IF COND("種族：雪女")
				PRINTFORML 銀髪的%CALLNAME:TARGET%抱住%CALLNAME:MASTER%后、把水含在自己嘴里
				PRINTFORMW 把由妖力调节成的温水、用嘴喂给%CALLNAME:MASTER%喝下……
			ELSE
				PRINTFORMW %CALLNAME:TARGET%搂着%CALLNAME:MASTER%、嘴对嘴地喂其水喝……
			ENDIF
		ENDIF
	;其他
	ELSE
		;助手がいる
		IF ASSI > 0
			PRINTFORML 「%CNAME("助手")%、%CNAME("主人")%就交给你了」
			PRINTFORMW 「由%CNAME("一人称")%来善后」
		;二人きり
		ELSE
			PRINTFORMW 「来、能喝水吗？　……能喝啊。别撒娇啦」
		ENDIF
	ENDIF
;partnerが体力or精力尽きた場合
ELSEIF STATE("撃沈")
	PRINTFORML 「%CNAME("二人称")%、还有力气啊……」
	PRINTFORML 「到此为止、%CNAME("一人称")%已经不行了……。让我休息一会儿」
	IF PLACE("野外")
		IF TALENT:相思相愛
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为着衣を整えると、%CALLNAME:MASTER%に偎依在一起きた
		ELSE
			PRINTFORMW %CALLNAME:TARGET%理了理衣着、也许是太疲惫了、坐着不动
		ENDIF
	ELSE
		PRINTFORML %CALLNAME:TARGET%仰面瘫软在%NAMES("床")%上、平缓地调整着呼吸
		IF TALENT:相思相愛 && RAND:2
			PRINTFORMW 发现你一直盯着她看、伸出那冰凉的小手与你十指紧扣时、由衷開心地笑了
		ELSE
			PRINTFORMW 你差点被那随着喘息上下起伏的峰峦所勾引、背过身去冷静下
		ENDIF
	ENDIF
;相思相愛＋満足
ELSEIF TALENT:相思相愛 && COND("満足")
	;確率が等分じゃないのは意図的
	IF RAND:3
		PRINTFORML 「最后、能再吻我一下吗？」
		IF RAND:2
			PRINTFORML 「嫌なら別に……んっ……有がとう……」
			PRINTFORMW 気有点害臊的礼物を言われた
		ELSE
			PRINTFORML 「んっ……。ん……ちゅ……」
			PRINTFORMW リクエストに応えると首に手を回された
		ENDIF
	ELSE
		PRINTFORML 不意に冷たくて柔らかい感触が頬に当たった
		PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为顔を離すと、赤くなって俯きながら呟いた
		PRINTFORMW 「……すっごくよかった。だからその、感謝の気持ち……」
	ENDIF
;相思相愛
ELSEIF TALENT:相思相愛
	IF RAND:2
		PRINTFORML 後始末をして着衣を整えていると、%CALLNAME:TARGET%がこちらをじっと見ている
		PRINTFORML 「用があるわけじゃないよ。ただ、一緒にいられて嬉しいなって思ってた」
		PRINTFORMW 「……恥ずかしいこと言ったかも。まあ、その……ホントだから」
	ELSE
		PRINTFORM 「これで終わり？
		IF COND("昼")
			IF TEXTS("曜日") == "日"
				PRINTFORML じゃあ、時間もあるし、午後の茶をしよう」
			ELSE
				PRINTFORML じゃあ、午後の講義まで少し茶しよう」
			ENDIF
			;助手がいる
			IF ASSI > 0
				;女仆or執事の場合は役割を尊重して淹れてくれるように頼む（恋人になると外れるがそれなら対等の立場なのでそれでOK）
				IF CONDS("関係", ASSI) == "女仆" || CONDS("関係", ASSI) == "執事"
					PRINTFORML 「%CNAME("助手")%、頼める？　よろしく」
				ELSE
					PRINTFORML 「%CNAME("一人称")%がやるよ。%CNAME("助手")%は待っててくれ」
				ENDIF
			ELSE
				;山では糖とか巧克力は手軽に食べられるので常備してる
				PRINTFORML 「茶を淹れてくる。巧克力ならあるけど、茶うけに食べるか？」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为楽しそうだ……
		ELSE
			PRINTFORML それなら眠くなるまで話さないか？」
			PRINTFORML 「これといって話があるわけじゃないんだけど……」
			;助手がいるとか室内に誰ぞいるとか
			IF ASSI > 0 || CHARA_NUM("室内の邪魔者") >= 1
				PRINTFORM 聞かれたくないのか、
			ELSE
				;いない場合でも耳打ちする。彼女にとっては恥ずかしいことだから
				PRINTFORM 他に誰也不在のに、
			ENDIF
			PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为身を寄せて耳打ちする
			PRINTFORML 涼しい囁きが耳をくすぐった
			PRINTFORMW 「つまりさ……もうちょっと一緒に居たいってことだよ」
		ENDIF
	ENDIF
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
	PRINTFORML 「……啊、结束了、吗」
	PRINTFORML 「舒服过頭了、总觉得露出了好糗的姿态……」
	PRINTFORML 「%TEXTR("等、等一下这边、别看啊……/别、别想像啊！　不许说！　快忘掉！")%」
;恋慕
ELSEIF TALENT:恋慕
	PRINTFORMW 「終わり？　なんか予定でもあるの？」
	PRINTFORMW 「……まあ…いいけど…」
;屈服刻印Lv1以下
ELSEIF MARK:屈服刻印 <= 1
	PRINTFORML 「这次的工作结束了吗。辛苦您了」
	PRINTFORMW 「稍微接近雪女化了吧……」
;屈服刻印Lv2
;恋慕までの範囲だと、この頃が一番屈託なく性行為をしてる
ELSEIF MARK:屈服刻印 == 2
	IF RAND:2
		PRINTFORML 「这次的工作结束了吗。辛苦了」
		IF COND("昼")
			PRINTFORMW 「下午的授课怎么办呢……」
		ELSE
			PRINTFORML 「今天该睡觉了」
			PRINTFORMW 「一起睡？　不要哦、不想再累了」
		ENDIF
	ELSE
		PRINTFORML 「来、喝杯水吧」
		IF STRCOUNT(SAVESTR:標語, "注意口渴")
			PRINTFORML 「部室的标语不是写着吗？　部長必须要遵守呢」
			PRINTFORMW 「……对了？　%CNAME("二人称")%是部長吧？」
		ELSEIF TEXTS("季節") == "夏"
			PRINTFORML 「这么热、因为是事后嘛」
			IF COND("種族：雪女")
				PRINTFORMW 「不、%CNAME("一人称")%虽然是雪女不会觉得热、水还是要喝的哦」
			ELSE
				;助手がいる
				IF ASSI > 0
					PRINTFORMW 「话虽如此、我们三个都被汗水啦、体液啦什么的、弄得黏糊糊了呢」
				;二人きり
				ELSE
					PRINTFORMW 「话虽如此、我们两个都被汗水啦、体液啦什么的、弄得黏糊糊了呢」
				ENDIF
			ENDIF
		ELSE
			PRINTFORML 「就好像体育运动之后一样啊、这种对话」
			PRINTFORMW 「我们部在分类上算是运动部吗…？」
		ENDIF
	ENDIF
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	IF COND("昼")
		IF TEXTS("曜日") == "日"
			PRINTFORML 「结束了？　嗯、知道了」
			PRINTFORMW 「虽说是休息日、但太阳还高的时候就过着如此……腐烂的生活啊」
		ELSE
			PRINTFORML 「再见、下午的课也要加油喲」
			PRINTFORML 「%CNAME("一人称")%？　因为太累就旷课……这样也不太好吧」
			PRINTFORMW 「没办法。稍微休息一会就去吧」
		ENDIF
	ELSE
		PRINTFORML 「……怎么样、此次。有享受吗？」
		PRINTFORML 「一般来说灵魂是很贵重的吧？　作为被提供的立场、事到如今还是有点在意啊……」
		PRINTFORMW 「别一副奇怪的表情啦。即使这样、还是想尽可能和%CNAME("二人称")%建立良好的関系」
	ENDIF
ENDIF

;調教後の覚醒イベント呼び出し
CALL AFTER_TRAIN_K27

RETURN 1

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

;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「初心者なので……丁重にお願いします」
		IF ABL:PLAYER:技巧 >= 2
			PRINTFORMW 「ん……気持ちいいね」
			PRINTFORMW 「やっぱり経験豊富だから？」
		ELSE
			PRINTFORMW 「っ…くっくっ……！　だ、大丈夫続けて…んくく…」
			PRINTFORMW 「いやごめん。くすぐったくってさ……。うん、もう大丈夫」
		ENDIF

	;二回目以降
	ELSE
		;相思相愛
		IF TALENT:相思相愛
			IF PALAM:欲情 >= 30000
				IF RAND:3 == 0
					PRINTFORMW 欲情に湿的た瞳と目が合うと、%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:PLAYER%の肩に口をつける
					PRINTFORMW 「もっと、触って。%CNAME("二人称")%に……%CNAME("一人称")%の全部を受け取って欲しい…」
					PRINTFORMW 出口際、そんな囁きが耳をくすぐった
				ELSEIF RAND:2
					PRINTFORMW 「んっ…ふっ……はぁっ……ちゅっ」
					PRINTFORMW 光滑でひんやりと心地よい肌に触れるたび、%CALLNAME:TARGET%の口からは秘めやかな喘ぎが漏れる
					PRINTFORMW 不意に%CALLNAME:PLAYER%の手を取ると、無言のまま指先に接吻た
				ELSE
					PRINTFORMW 「もっと愛して……どこに触れてもすごくいいから……！」
					PRINTFORMW 欲情に染まった%CALLNAME:TARGET%の肌はどこを触っても反応が返ってくる
					PRINTFORMW その白色身体を抱き寄せ、演奏するように存分に愛撫してやった…
				ENDIF
			ELSEIF PALAM:欲情 >= 3000
				IF RAND:2 == 0
					PRINTFORMW 「んっ、はぁ……そこ、いいよ…」
				ELSE
					PRINTFORMW 「続けて、%CNAME("主人")%。すごく素敵だから…ああっ…もっと」
				ENDIF
				PRINTFORMW 撫でる手にあわせて微妙に身体の位置を変え的同时、%CALLNAME:TARGET%正在认真地读着标题为艶のある視線を向けてくる……
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 髪や肌、胸などを触り的同时、その部分の感触や臭いや美しさを褒めてみる
					PRINTFORMW 「その……もう十分だから……」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为赤くなって俯いてしまった
				ELSEIF RAND:2
					PRINTFORMW 「こうやって触れてもらえると安心する」
					PRINTFORMW 「%CNAME("主人")%に求められてる感じがするからかな？」
				ELSE
					PRINTFORMW 「大丈夫？　冷たくない？」
					PRINTFORMW 「%CNAME("一人称")%は…うん、とても暖かい」
				ENDIF
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			IF RAND:2 == 0
				PRINTFORMW %CALLNAME:TARGET%の首筋に啄むように接吻るとこらえきれない嬌声が漏れた
				PRINTFORMW 「っく……っ！　…そういうのはやめろ！　恥ずかしいんだって…ぁ！」
			ELSE
				PRINTFORMW 「そっそこはちょっと……。いやってわけじゃないんだけど…」
				PRINTFORMW そういいながらも%CALLNAME:TARGET%正在认真地读着标题为抵抗せず、%CALLNAME:PLAYER%の手に身体を委ねてきた…
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW %CALLNAME:TARGET%の肌は新雪のように白く冷たく、光滑でずっと触れていたくなる
			PRINTFORMW 「……随分熱心にさわってるけどそんなにいいのか？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ているとき
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;清洁舔阴
	ELSEIF COND("清洁舔阴フラグ", PLAYER)
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門愛撫
;-------------------------------------------------
IF SELECTCOM == 2
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;気持ちいい
		IF CHECK("Ａ指挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;気持ちいい
		ELSEIF CHECK("Ａ指挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;胸愛撫
;-------------------------------------------------
IF SELECTCOM == 5
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「胸を触られるくらい大したことじゃない……と思ってたけど、いざ触られるとドキドキする…」
	;二回目以降
	ELSE
		;舔乳頭
		;この書き方だと常に舔乳頭と判定されてしまい擅長く作動しない。暫定処置として今回指令の文字列で判定する
		;IF CHECK_COM("舔乳頭") || CHECK_COM("舔乳頭に変化")
		IF STR:今回指令 == "舔乳頭" || STR:今回指令 == "胸愛撫＆舔乳頭"
			;相思相愛
			IF TALENT:相思相愛
				IF PALAM:欲情 >= 30000
					IF RAND:3 == 0
						PRINTFORMW 「あんっ…あは…ぁ……胸、気持ちよすぎて…蕩けそう…」
						PRINTFORMW 「もっと蕩かして…！　いいようにして……！」
					ELSEIF RAND:2
						PRINTFORMW ふと思いついて舌を引っ込めると、%CALLNAME:TARGET%の顔に少し不満そうな色がよぎった
						PRINTFORMW 「どうした…？　もっと派手にしてくれても…構わないけど？　…んぅ！？　ああっいいよぉ！！」
					ELSE
						PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为欲情に息を荒げ的同时、%CALLNAME:PLAYER%に頭をかき抱く
						PRINTFORMW 「はぁんっ…これ好き、かも…！　もっと、強く吸って…舐めて…気持ちよくして…あぁんっ！？」
					ENDIF
					PRINTFORMW 望みどおりにしてやると、%CALLNAME:TARGET%の口から%TEXTR("嬌声/あえぎ声")%が漏れた…
				ELSEIF PALAM:欲情 >= 3000
					IF RAND:2
						PRINTFORMW 「強く吸っても大丈夫…気持ちいいから……」
						PRINTFORMW 「んぅっ！　歯を立てるのは无！　あんっ！」
					ELSE
						PRINTFORMW 「美味しい…？　…んっ、はぁ…よかった」
						PRINTFORMW 「ふふっ、%CNAME("一人称")%もなんだか楽しい…」
					ENDIF
				ELSE
					IF RAND:2
						PRINTFORMW 「ぁ……ん…よしよし」
						PRINTFORMW %CALLNAME:TARGET%の手が頭を撫でてくる…
					ELSE
						PRINTFORMW 「ん…%CNAME("二人称")%って胸好きだよな…」
						PRINTFORMW 「%CNAME("一人称")%？　%CNAME("一人称")%は%CNAME("二人称")%が喜ぶことは好きだよ」
					ENDIF
				ENDIF
			;恋慕
			ELSEIF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORMW 「なぁ、%CNAME("主人")%……その、胸ってやっぱり大きい方がいいのか？」
					PRINTFORMW 「あぅ！？　不満がないのは分かったからそんな強くしなくても、んひぃ！？」
				ELSEIF RAND:2
					PRINTFORMW 「こうやってるとなんか…赤ん坊みたいでちょっと可愛く見えてくるな…」
					PRINTFORMW 「あぅ！？　だって仕方ないだろ…んっ！」
				ELSE
					PRINTFORMW 「…ん……ぁ……ぅぅ…ぁん……」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为眉を寄せて声を漏らすのを我慢している…
				ENDIF
			;それ以外
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「ふぅ…はぅ…美味しいわけじゃないんだろ…？　そうでもない？　はんっ…そうなのか…」
				ELSEIF RAND:2
					PRINTFORMW 「涎でべとべとだな…。そういう倒錯的な楽しみ方も、あるのか…なっ…」
				ELSE
					PRINTFORMW 「くすぐったいようなむず痒いような変な感じだな、ふぅ…」
				ENDIF
			ENDIF
		;通常の胸愛撫。PLAYした感じ口を使った指令（接吻とか舐陰）の後はこれがでる？
		ELSE
			;相思相愛
			IF TALENT:相思相愛
				IF INSERT("挿入中")
					IF INSERT("後背位") || INSERT("背面座位")
						PRINTFORMW 「支えてくれるんだ……。あっコラ、恶作剧はやめ…んぅ…」
						IF PALAM:欲情 >= 3000
							PRINTFORMW 「はぅんっ…んぁっ…もうっ……し、仕方ないな……」
						ENDIF
					ELSE
						PRINTFORMW 「っ！　挿れながらなんて…ぁんっ…欲張りだな、%CNAME("主人")%は…」
						IF PALAM:欲情 >= 3000
							PRINTFORMW 「いいよ。激烈地して…感じさせて…」
						ENDIF
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「もう何回も触られてるけど…いつもドキドキするな…」
						PRINTFORMW 「……好きな人に触られてドキドキしないわけないだろ…」
					ELSEIF RAND:2
						PRINTFORMW 「撫でられるとすぐ、その…よくなっちゃうから加減して…」
						PRINTFORMW 言葉とは裏腹に%CALLNAME:TARGET%正在认真地读着标题为胸を差し出すようにしている…
					ELSE
						PRINTFORMW 「%CNAME("一人称")%の胸は%CNAME("二人称")%のだ…　だから…」
						PRINTFORMW 「だからその…随便…いい」
					ENDIF
				ENDIF
			;恋慕
			ELSEIF TALENT:恋慕
				IF RAND:2
					PRINTFORMW 「なぁ、%CNAME("主人")%……その、胸ってやっぱり大きい方がいいのか？」
					PRINTFORMW 「そっか…。ん…野暮なことを聞いてゴメン」
				ELSE
					PRINTFORMW 「…ん……ぁ……ぅぅ…ぁん……」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为眉を寄せて声を漏らすのを我慢している…
					PRINTFORMW 良くないのか訊くと無言で首を振った
				ENDIF
			;それ以外
			ELSE
				;B感覚Lv3以上
				IF ABL:Ｂ感覚 >= 3
					IF RAND:2
						PRINTFORMW 「ん……気持ち、いいよ…」
						PRINTFORMW 「すっかり…はぁ…いやらしくされちゃったのは喜んでいいのかな…」
					ELSE
						PRINTFORMW 「前はそんなに、感じなかったのに…」
						PRINTFORMW 「%CNAME("二人称")%に弄られ始めてからどんどん敏感になってきて……んっ！」
					ENDIF
				ELSE
					IF RAND:2
						PRINTFORMW 「もう少し温柔的…ん、それくらいで大丈夫」
					ELSE
						PRINTFORMW 「ちょっとムズムズするな…」
					ENDIF
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为自己的胸を這い回る手をじっと看了过来…
				ENDIF
			ENDIF

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW 「ちゅ…ん…」
			PRINTFORMW 「はぁ……これが接吻…か…」
		;それ以外
		ELSE
			PRINTFORMW 「んむっ、んっ……ぷはっ。これの息継ぎってどうすればいいかよくわからないな…」
			PRINTFORMW 「鼻ですると息がくすぐったくない？」
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;相思相愛
		IF TALENT:相思相愛
			;継続接吻
			IF TEQUIP:接吻
				IF RAND:2 == 0
					PRINTFORMW 「ちゅっ…じゅる…んっちゅ……。はぁ…これ、好き…」
					PRINTFORMW 熱に浮かされたような呟きとともに、%CALLNAME:TARGET%の舌が割り入ってくる
				ELSE
					PRINTFORMW 「%CNAME("主人")%、もっと接吻…しよう……」
					PRINTFORMW %CALLNAME:TARGET%の手が頬に添えられ、唇が合わさる
				ENDIF
				PRINTFORMW 雪女との情愛があふれ出るような唾液の交換はしばらく続いた…
			ELSE
				IF RAND:2 == 0
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为いったん唇を離したと思うと、%CALLNAME:PLAYER%の首筋に接吻る
					PRINTFORMW ひやっとするような唇の感触に身をすくめると、就这様顎を伝って再び唇に昇ってきた
					PRINTFORMW 「ちゅっ……ふふっ、ドキッとしただろ？」
				ELSE
					PRINTFORMW 「ちゅ…ふ…んん……はぁっ…好きだよ、%CNAME("主人")%……あっ…」
					PRINTFORMW 思わず呟いた自分の言葉に照れたのか、%CALLNAME:TARGET%の動きが一瞬止まる
					PRINTFORMW だが次の瞬間、意を決したのか愛の言葉を囁きながら接吻の雨を降らせてきた
				ENDIF
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			IF RAND:2 == 0
				PRINTFORMW 「…こっちを向いて…ちゅ…ん…れろ…」
			ELSE
				PRINTFORMW 「今は%CNAME("一人称")%に任せて…」
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「んっ…ちゅっ…」
			PRINTFORMW 緊張しているのか、%CALLNAME:TARGET%の動きはぎこちない
		ENDIF
	;それ以外
	ELSE
		;テンダー接吻
		IF CHECK_COM("テンダー接吻")
			;相思相愛
			IF TALENT:相思相愛
				IF RAND:2 == 0
					PRINTFORMW 「ちゅっ……ふふっ、いいな。情緒があって」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为有点害臊的笑着いる…
				ELSE
					PRINTFORMW 「はぁ……。ちゅっ」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为熱っぽい目で触れるような接吻を返した…
				ENDIF
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW 「ぁ……えっと有がとう…いや礼をいうのは違うような…」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为なんだかうろたえている…
			;それ以外
			ELSE
				PRINTFORMW 「んっ…。キ、キザな奴だな、まったく…」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为目をそらしてしまった…
			ENDIF
		;相思相愛
		ELSEIF TALENT:相思相愛
			IF RAND:3 == 0
				PRINTFORMW 「……っ…はっ……んちゅっんっ……じゅ…」
				PRINTFORMW 無言で唇を合わせ、舌を愛撫するように絡め合う
				PRINTFORMW %CALLNAME:TARGET%の氷菓のように甘く冷たい唾液を堪能した…
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ん…ちゅ…ちゅぷ…はぁ…待って、%CNAME("主人")%」
				PRINTFORMW %CALLNAME:TARGET%の腕が首に回され、お互相用距離が限りなくゼロに近づく
				PRINTFORMW 「ん、ちゅ……ちゅる……出口ないで…離さないで…」
			ELSE
				PRINTFORMW 「ふふっ…ちゅ…れろ…ん…はぁ…これ、病みつきになりそうだな…」
				PRINTFORMW その言葉を証明するように%CALLNAME:TARGET%正在认真地读着标题为何度も何度も接吻を繰り返す
				PRINTFORMW 舌が絡み合い、唾液を交換する求愛の接吻はしばらく続いた…
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			IF RAND:2 == 0
				PRINTFORMW 「ちゅっ…んっ」
				PRINTFORMW どこか遠慮気味な%CALLNAME:TARGET%に舌で催促すると、怯生生地舌を絡めてきた…
			ELSE
				PRINTFORMW 「ちゅっ…じゅ……ちゅる…はぁ…なんでこんな…ドキドキするんだろうな……んっむっ…」
				PRINTFORMW 接吻の合間、切なさを込めた%CALLNAME:TARGET%の呟きがもれた…
			ENDIF
		;それ以外
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「んっ…ちゅっちゅっ…」
				PRINTFORMW 緊張しているのか、%CALLNAME:TARGET%の動きはぎこちない…
			ELSE
				PRINTFORMW 「んっ…じゅるっ…ちゅ…はぁ、もう好きにしなよ…」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为おと无く受け入れている…
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;指挿入
;CHECK_COM("玩弄Ｇ点")とTEQUIP:振動棒で大きく分岐する
;-------------------------------------------------
IF SELECTCOM == 8
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;振動棒挿入中
		IF TEQUIP:振動棒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;Gスポット刺激
	ELSEIF CHECK_COM("玩弄Ｇ点")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;気持ちいい
		ELSEIF CHECK("指挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;振動棒挿入中
	ELSEIF TEQUIP:振動棒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;気持ちいい
		ELSEIF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐肛　Ａ面部騎乗(被逆推ているとき)
;-------------------------------------------------
;舐肛
IF SELECTCOM == 9
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方手交
;-------------------------------------------------
IF SELECTCOM == 10
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方乳交
;-------------------------------------------------
IF SELECTCOM == 11
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方足交
;-------------------------------------------------
IF SELECTCOM == 12
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開阴道
;-------------------------------------------------
IF SELECTCOM == 13
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		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("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飛機杯
;-------------------------------------------------
IF SELECTCOM == 37
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ｖ挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 60 && SELECTCOM <= 69 && FIRSTCOMS("Ｖ挿入") == 0
	;処女
	IF TALENT:処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;非処女
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			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:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		CASEELSE
			IF RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
;-------------------------------------------------
;二穴挿入(書く場合には;を消してください)
;-------------------------------------------------
;ELSEIF SELECTCOM >= 60 && SELECTCOM <= 79 && COND("３Ｐ")
;	IF CHECK_COM("两根挿入Ｖ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ｖ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("两根挿入Ａ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ａ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("二穴挿入")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("二穴挿入")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ENDIF
ENDIF

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

;-------------------------------------------------
;後背位
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			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 SELECTCOM == 63
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;背面座位
;-------------------------------------------------
;背面座位
IF SELECTCOM == 64
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;騎乗位
;-------------------------------------------------
IF SELECTCOM == 65
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;挿入刺激Ｇ点
;-------------------------------------------------
IF SELECTCOM == 66
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;挿入子宮口玩弄
;-------------------------------------------------
IF SELECTCOM == 67
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;Ａ挿入系初選択
;疼痛が少なく楽しめているかはCHECK("Ａ挿入")で判定
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	;Ａ処女
	IF TALENT:Ａ処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			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 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;余裕が無い
	ELSEIF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		CASEELSE
			IF RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで)
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 74
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門騎乗位
;-------------------------------------------------
IF SELECTCOM == 75
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;貝あわせ
;-------------------------------------------------
IF SELECTCOM == 80
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			PRINTFORMW
		;恋慕
		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
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;素股
;-------------------------------------------------
IF SELECTCOM == 93
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSEIF CHECK_COM("展示肉棒")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;六九式
;-------------------------------------------------
IF SELECTCOM == 99
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶
;-------------------------------------------------
IF SELECTCOM == 104
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			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 == 133
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:眼罩 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

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

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

;-------------------------------------------------
;喝套内精液
;-------------------------------------------------
IF SELECTCOM == 147
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF ABL:精液中毒 >= 3
			PRINTFORMW
		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_BODYS("拘束衣")
			PRINTFORMW
		ELSEIF CHECK_BODYS("兔")
			PRINTFORMW
		;其他
		ELSE
			PRINTFORMW
		ENDIF
	;胸も股間も丸出し状態变成了時
	ELSEIF CHECK_COM("換装：裸体变成了")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;露出癖Lv3
		ELSEIF ABL:露出癖 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;胖次を変えたり脱いだり
	ELSEIF CHECK_COM("換装：胖次")
		IF EQUIP:胖次
			PRINTFORMW
		;没穿内褲です
		ELSE
			PRINTFORMW
		ENDIF
	;以下は面倒ならELSE でひとまとめでも良いでしょう
	ELSEIF CHECK_COM("換装：外套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：胸罩")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：手套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：襪子")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：靴")
		PRINTFORMW
	;飾品の付け替えや其他
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;被逆推
;-------------------------------------------------
IF SELECTCOM == 176
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

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

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K27, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0
;-------------------------------------------------
;パラメータ変動時のセリフ
;-------------------------------------------------
SELECTCASE ARGS
;-------------------------------------------------
;初めてＶ潤がLV3超えた
;-------------------------------------------------
CASE "Ｖ潤LV3突破"
	;初めて
	IF FIRST_EV("Ｖ潤LV3突破") == 0
		;潤滑液を使った場合
		IF SELECTCOM == 260
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて欲情がLV3超えた
;-------------------------------------------------
CASE "欲情LV3突破"
	IF FIRST_EV("欲情LV3突破") == 0
		;媚薬を使った場合
		IF SELECTCOM == 261
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて恥情がLV3超えた
;-------------------------------------------------
CASE "恥情LV3突破"
	IF FIRST_EV("恥情LV3突破") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めて恐怖がLV3超えた
;-------------------------------------------------
CASE "恐怖LV3突破"
	IF FIRST_EV("恐怖LV3突破") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてC絶頂
;-------------------------------------------------
CASE "Ｃ絶頂"
	IF FIRST_EV("Ｃ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてV絶頂
;-------------------------------------------------
CASE "Ｖ絶頂"
	IF FIRST_EV("Ｖ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてA絶頂
;-------------------------------------------------
CASE "Ａ絶頂"
	IF FIRST_EV("Ａ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてB絶頂
;-------------------------------------------------
CASE "Ｂ絶頂"
	IF FIRST_EV("Ｂ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;C挑逗
;-------------------------------------------------
CASE "Ｃ挑逗"
	;初めて
	IF FIRST_EV("Ｃ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｃ挑逗
		IF NOWEX:Ｃ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｃ挑逗
		ELSEIF NOWEX:Ｃ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;V挑逗
;-------------------------------------------------
CASE "Ｖ挑逗"
	;初めて
	IF FIRST_EV("Ｖ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｖ挑逗
		IF NOWEX:Ｖ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｖ挑逗
		ELSEIF NOWEX:Ｖ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;A挑逗
;-------------------------------------------------
CASE "Ａ挑逗"
	;初めて
	IF FIRST_EV("Ａ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ａ挑逗
		IF NOWEX:Ａ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ａ挑逗
		ELSEIF NOWEX:Ａ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;B挑逗
;-------------------------------------------------
CASE "Ｂ挑逗"
	;初めて
	IF FIRST_EV("Ｂ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｂ挑逗
		IF NOWEX:Ｂ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｂ挑逗
		ELSEIF NOWEX:Ｂ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;扶她射精挑逗
;-------------------------------------------------
CASE "射精挑逗"
	;初めて
	IF FIRST_EV("射精挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;大量射精挑逗
		IF NOWEX:射精前骤停 >= 2
			PRINTFORMW
		;射精挑逗
		ELSEIF NOWEX:射精前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;処女喪失(処女のみ)
;-------------------------------------------------
CASE "処女喪失"
	IF FIRST_EV("処女喪失") == 0
		;恋慕
		IF TALENT:恋慕
			;主人の性交による処女喪失
			IF PLAYER == MASTER && INSERT("Ｖ挿入")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;射精した(扶她/男性のみ)
;-------------------------------------------------
CASE "射精した"
	;初めて
	IF FIRST_EV("射精した") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;噴乳した(母乳体質のみ)
;-------------------------------------------------
CASE "噴乳した"
	;初めて
	IF FIRST_EV("噴乳した") == 0
		PRINTFORMW
	;二回目以降
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;絶頂放尿した
;-------------------------------------------------
CASE "絶頂放尿"
	;初めて
	IF FIRST_EV("絶頂放尿") == 0
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｃ絶頂20以上
;-------------------------------------------------
CASE "Ｃ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｃ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｖ絶頂20以上
;-------------------------------------------------
CASE "Ｖ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｖ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ａ絶頂20以上
;-------------------------------------------------
CASE "Ａ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ａ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｂ絶頂20以上
;-------------------------------------------------
CASE "Ｂ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｂ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

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

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

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

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

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

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW
	;超大量射精
	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
		PRINTFORMW
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神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
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗")
	PRINTFORMW
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶")
	PRINTFORMW
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
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_K27, ARGS
SELECTCASE ARGS
CASE "恍惚"
	PRINTFORMW
CASE "推倒"
	PRINTFORMW
CASE "強制終了"
	PRINTFORMW
CASE "復活"
	PRINTFORMW
CASE "恍惚から復帰"
	PRINTFORMW
CASE "助手が限界"
	PRINTFORMW
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;-------------------------------------------------
@KOJO_EVENT_K27, 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 TALENT:恋慕
		PRINTFORMW
	;自慰中毒Lv3以上
	ELSEIF ABL:自慰中毒 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;レズPLAY
;-------------------------------------------------
CASE "調教後レズPLAY"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;調教後性交
;-------------------------------------------------
CASE "調教後性交"
	;V感覚Lv4以上
	IF ABL:Ｖ感覚 >= 4
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭騎乗位
;-------------------------------------------------
CASE "夜袭騎乗位"
	;V感覚Lv5以上
	IF ABL:Ｖ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭Ａ騎乗位
;-------------------------------------------------
CASE "夜袭Ａ騎乗位"
	;Ａ感覚Lv5以上
	IF ABL:Ａ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-----------------------------
;夜袭接吻
;----------------------------
CASE "夜袭接吻"
	;M感覚Lv3以上
	IF ABL:Ｍ感覚 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;添い寝
;-------------------------------------------------
CASE "添い寝"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF

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

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
CASE "清洁口交"
	SELECTCASE TFLAG:口上分岐
	;お掃除前
	CASE 0
		IF TALENT:恋慕
			CALL PRINT_STRW, "「奇麗にしてやるからちょっと待ってろ……。はむっ_HH_」"
		ELSE
			IF INSERT("Ａ挿入")
				PRINTFORMW 「我无权抱怨？　……我知道啦、别用那种眼神看我」
				PRINTFORMW 「一開始就骑上来的%CNAME("一人称")%也有问题」
			ELSE
				PRINTFORMW 「（这是蘑菇、这是蘑菇……）」
				PRINTFORMW 「……果然还是做不到啊。讨厌、只能上了」
			ENDIF

		ENDIF
	;お掃除中
	CASE 1
		PRINTFORMW
	;お掃除で射精しなかった
	CASE 2
		PRINTFORMW
	;お掃除で射精しそう？
	CASE 3
		PRINTFORMW
	;射精した
	CASE 4
		PRINTFORMW
	;お掃除で射精後
	CASE 5
		PRINTFORMW
	ENDSELECT
;-------------------------------------------------
;脱衣
;-------------------------------------------------
CASE "自発脱ぎ"
	;裸体变成了
	IF CHECK_CLO("裸体")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;阴部剥きだし
	ELSEIF CHECK_CLO("Ｖ露出")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;部分脱ぎ
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;妊娠した
;----------------------------------------------------------------
CASE "妊娠発覚"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;出産した
;----------------------------------------------------------------
CASE "出産"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;兒童が大きくなった
;----------------------------------------------------------------
CASE "子出口"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;性交後に抜いた時
;----------------------------------------------------------------
;恥ずかしいところを見せてくれる
;----------------------------------------------------------------
CASE "中出し後くぱぁ"
	;恋慕
	IF TALENT:恋慕
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW 「就这样拔出来……太舒服、了吗？」
			PRINTFORMW 「嗯、我……%CNAME("一人称")%也、很舒服」
		ENDIF
	ELSE
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW 「别这样动不动就中出啦……」
		ENDIF
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	PRINTFORMW 「唔……别死盯着看啊」
	IF INSERT("騎乗位")
		PRINTFORMW 「因为是这种姿势啦、数一下天花板上的浊液就可以了吧」
	ELSE
		PRINTFORMW 「好、好啦……还残留着灵魂的话赶紧继续啊！」
	ENDIF
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		IF ASSIPLAY
		ELSE
			PRINTFORMW 「%CNAME("主人")%的……。嗯……咕噜……咧啰」
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	IF ASSIPLAY
	ELSE
		;恋慕
		IF TALENT:相思相愛
			PRINTFORMW 「好像身心都与你纠缠不清一样……」
			PRINTFORMW 「如果是%CNAME("主人")%的话、就算被融化也没関系喲……？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CNAME("主人")%……%CNAME("一人称")%的身体、还在吗？」
			PRINTFORMW 「太舒服了、还以为变散架了呢……」
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
CASE "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW 「因为出演者是%CNAME("一人称")%啊……。是否太过同好向了……」
	ELSE
		PRINTFORMW 「哈啊……都说了这种东西卖不出去的吧……？」
	ENDIF

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

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

ENDSELECT

;-------------------------------------------------
;TARGET以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@KOJO_GUEST_K27, 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

@ADDCOND_K27(ARGS)
#DIM ACTOR
ACTOR = FINDCHARA(NO, 27)

SELECTCASE ARGS
CASE "相思相愛"
	;維吹は[恋慕]に加え、[精霊]を取得する必要がある
	SIF TALENT:ACTOR:恋慕 && COND("種族：雪女", ACTOR)
		RETURN 1
	STR:実行条件 = イエロー_※維吹と[相思相愛]になるには、[恋慕]かつ[精霊]である必要が有ます
CASE "避妊の護符の解除"
	;維吹は[相思相愛]まで避妊の護符を解除しない
	SIF TALENT:ACTOR:相思相愛
		RETURN 1
	STR:実行条件 = イエロー_※維吹は[相思相愛]になるまで避妊の護符を破棄しません
ENDSELECT

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

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

;ENDを選択する際の表示。下で満たしたEND条件に応じて全角21文字以内で好きに変えて良い
STR:ＥＮＤ标题 = エンディングを迎える

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

RETURN 1

;ARGSには@MENU_SINGLE_ENDING_K1で設定したEND名のどれかが入っている
;見たENDはCEVENTで記録される
;例）ＥＮＤ名１を閲覧した場合は CEVENT("ＥＮＤ名１") = 1 となる
@SINGLE_ENDING_K27, ARGS
SELECTCASE ARGS
CASE "初恋は四月に降る雪のように"
	CALL K27_ENDING_01
CASE "ＥＮＤ名２"
	PRINTFORMW ＥＮＤ名２の本文です
;CASE "ＥＮＤ名３"
;	PRINTFORMW ＥＮＤ名３の本文です
ENDSELECT
RETURN 1

path: ERB/EVENT_K/27 維吹/EVENT_K27_維吹.ERB


code:
■経歴■
いわゆる雪女の伝説。夫婦变成了男と雪女の間に生まれた子ども、のポジションにある少女。

伝説をなぞるように母親の雪女は登山家だった夫を殺さずに山へと去ったが、娘を連れていきはしなかった。
人类の世界に残された娘は人类として育てられたが、やはり母親の血を受けて少し常人とは違っていた。
その髪は雪のような銀色の毛が混じり、その体温は低い。
人类社会に馴染めなかった彼女は自己的母の元を目指す。

■雪女考察
冬山を擬人化した妖怪。
属性は山、冬、氷、雪。
白装束を着て描かれることを合わせると＋して死の属性か
莉雅拉（森の精霊（神）にして春の精霊、転じて命の精霊）とは表裏の関係

■基本的な対人人类観
・教師と炎系の能力者は苦手（前者はロクな思い出がない。後者は本能的）
・暴力の世界と関わってる相手、暴力的な相手はそれが自分に向かないと分かるまでは警戒心が最大になる
・敵意をもって接する相手には距離を取る
・向こうから近づいてくる相手は疑う。裏のない好意だと戸惑う。下心や企みを察すると全力で出口る。
・弱かったり不幸な境遇の相手には同情するが大したことができない自分が同情することすら失礼だと思っている。
・一時的だとしても部活は自分の居場所なので社团同伴には一段階好意的（最悪でも話くらいはしてくれる）
・[相思相愛]なら同じ[相思相愛]を持ってるメンバーを同じ恋人を支える家族のようなものだと認識する。
・部活加入時には内心かなり荒れているので、性行為自体はハードルが低め（この游戏では基準が低いので平均扱いだが普通会ったばかりの奴と性交しろ！とか拒否するよね）。だが生い立ちから愛がない妊娠、つまり両親から愛されない/自分が愛せない子どもが産まれることへの忌避感は激しい。

■各角色に関しての一言（初対面のイメージ）
●弗理希艾尔
紹介してもらった恩があるからな……。たまに笑顔が怖いけど、いい人だと思ってるよ
●湿的烏の君
威圧感ある。貴族って感じ。
●西西莉亚
物知りの前輩。クールに見えるけど弟子には甜のがちょっと可愛いな。傲嬌？違う？
●阿丽努
保健室の教員。それ以上何もないよ（教師は苦手）
●六華
式神かぁ……。うちにもお手伝い桑とか欲しいよ。
●樱
哥哥／大姐姐にはお世話になってます。（ためらってから）……体調、大丈夫？
●哈娜
賑やかでいいんじゃない？あの調子でこっちこられたら困るけど
●優里
鬼のイメージ崩れるなあ……。人のこと言えるのかって？ほっといて
●帕拉奇娜
（咖啡を淹れて差し出す）お疲れ桑
●麦莉爱娜
（実母持ちの場合）息子桑／娘桑にはお世話になってます……。親が悪魔でも子どもはそうならないんですか？
（実母持ちではない場合）んー、なんだろな。所帯持ち变成了フェリ桑？そんな感じ。
●莉雅拉
……（シモへ走りがちな言動に閉口してる）
●成美
うわっ、委員長がこんなところいていいの！？
●アイリ
你も妖怪混じりか。苦労してない？発情？……それはちょっと力になれないかな……
●織
女なの？男なの？吸血鬼なの？人类なの？……ごめん、デリカシーなかった。怒らないで。
●槞彁
（打招呼を試みて言葉が通じないことを理解。申し訳なさそうな顔で頭を下げて出口る）
●杏珠
いい子だ。大切にしなよ。人类は人类同士で仲良くするのが一番なんだし、さ……。
●小菊
学園七不思議。実在してたんだ……。
●焰
ああっと、用事を思い出した。また明日な！（火炎系で教師なので輪をかけて苦手）
●万音
あるべき生き方を与えられて生まれたのが羨ましい。それに向かない性格でも。
●卡莉斯塔
天使桑？なら聞いてみたいんだけど、天国っていいところ？ふぅん……。
●祥子
耳は可爱と思う。でも炎系かぁ……
●琉娜
あれが伝説の琉娜桑、か……（遠巻きにしてる）
●玛丽
我は伝奇物であっちはアメコミ。ジャンルが違うっていうか……。
●千穂
難しいことは理解できない。でも彼女、必死だよね？……協力、してあげなよ。
●乃々
生徒会には良い印象がない。当然"生徒会の天使"にもね。
●恭子
（魔法少女？……魔女とどう違うんだ？光線撃つのが魔法少女か？）
●西露芙
指輪物語はお好き？
●碧
転校生だ……。人类に見えるけど、なんか事情が……？（アクションを見て）……超人だ……。
●奥丝卡
悪魔っぽい悪魔。…だけど何かキツい目にあってそうだね。
●寧子
人类に戻りたい……？そういうものかなぁ…。
●玲子
……えっ？嘘だろ学生！？……いったん保留していい？（触れないことにした）
●鈴
……（何とも言えない複雑な表情）
●真
ああ…まあ…悪い人じゃないんじゃない？（羞恥心が很强ので窃視されるのがちょっと嫌）
●灯
近くにいてほしくはないけどちょっと憧れる部分はある…かな。
●佑香
いい友だちが多いな。我に構っててよかったのか？
●格蕾丝
流石の我も「格蕾丝大小姐」なら知ってるよ。住む世界が違うから表面的にだけどね。
●安娜
人类のようで有そうじゃないようでも有…。……つまり我の前輩みたいなものか。
●百合香
撮影…？我はＮＧで。
●綾乃
肉食獣は嫌いじゃないよ。食べるための行為は暴力じゃない。……こっちに牙を剥かなければ、だけど。
●栞
占ってもらいたいことが……いや、なんでもない。忘れて。
●南実
哥哥／大姐姐にはお世話になってます。……我のことは石の置物とでも思っておいてくれていいよ。
●千紗
……（見た瞬間に眉をひそめ、主动は決して近づかない）
●小夜
……（何度か声をかけようとしてひっこめ、巧克力と咖啡をおいて出口る）
●诺伊
「社会」。以上（教師は苦手）
●莉迪亚
我が口を挟む権利なんかないけど、一度面倒見ることに決めたんだったら何とかしてやりなよ…。
●莉
多分だけど我と彼女は合わないから関わらない方がいい（人类不信同士の同族嫌悪）
●白色死神
独特の雰囲気があって可爱と思う。死神？そんな怖い感じはしないけど…。
●休托莉
可愛いらしいお嬢桑だな。見習い悪魔？……悪魔って資格とか認定制度があるの？
●棗
母親に結婚を強制させられてる？……そっか……（沈んだ表情になって黙り込む）
●静菜
教師で？幼馴染で？さらに人妻で？ただの人类？……へ、へぇ～…。
●梅普尔
役者みたいな人だろ？知ってる。我が知ってるってことはつまり有名人だね。
●紬希
我は幼馴染っていないからわからないけど……特別なら特別扱いすればいいんじゃない？
●米娅
ノーコメント。
●遥
あんな普通の子が何でこの変な部来了んだろうな？
●魔華
同級生に一人は欲しい人材。なんでってあっちに注目が行って我は目立たずに済む。
●蔻卡
そうだね……。外で歩いてる時に見かけたらまず目を合わさないようにして道を変えるかな。
●千裕
屈折してないし、自由な感じが羨ましい。
●真妃
よくわからない人だけど静かでいい。
●帕图拉
茶目っ気のない方の女仆桑。一緒に暮らしたわけじゃないし我の女仆じゃないからよく知らない。

path: ERB/EVENT_K/27 維吹/雑記的ネタ帳.txt

license: unknown