code:
;-------------------------------------------------
;呼び名の設定。"_"の右にふりがなを書く。
;-------------------------------------------------
@CNAME_K43, ARGS
#FUNCTIONS
;名前を呼ぶ相手の角色番号の代入に使う
#DIM ACTOR

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 我_我
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		LOCALS = 部長_ぶちょー
	;相手が教員
	ELSEIF COND("教員", PLAYER)
		LOCALS = 老师_老师
	;相手が上級生
	ELSEIF COND("学生", PLAYER) && COND("学年") < COND("学年", PLAYER)
		LOCALS = 前輩_前輩
	;相手が下の学年
	ELSEIF COND("学生", PLAYER) && COND("学年") > COND("学年", PLAYER)
		LOCALS = 你_你
	ELSE
		SELECTCASE CSTR:PLAYER:称号
		CASE "魔貴族", "没落魔貴族"
			LOCALS = %CALLNAME:PLAYER%様_%CSTR:PLAYER:ふりがな%大人
		CASEELSE
			LOCALS = 你_你
		ENDSELECT
	ENDIF
;この下は三人称。
CASE "主人"
	LOCALS = 部長_ぶちょー
CASEELSE
	;名前を呼ぶ相手の角色番号をACTORに代入する
	SELECTCASE ARGS
	;相手が助手
	CASE "助手"
		ACTOR = ASSI
	;ここにはARGSに角色のCALLNAMEが入ったりしている場合(ARGS == "弗理希艾尔" など)に来る
	CASEELSE
		ACTOR = FIND_NO(ARGS)
	ENDSELECT

	;相手が教員
	IF COND("教員", ACTOR)
		LOCALS = %CALLNAME:ACTOR%老师_%CSTR:ACTOR:ふりがな%老师
	;自分も相手も学生なら学年比較
	ELSEIF COND("学生") && COND("学生", ACTOR)
		;相手が同学年
		IF COND("学年") == COND("学年", ACTOR)
			LOCALS = %CALLNAME:ACTOR%_%CSTR:ACTOR:ふりがな%
		;相手が下の学年
		ELSEIF COND("学年") > COND("学年", ACTOR)
			LOCALS = %CALLNAME:ACTOR%_%CSTR:ACTOR:ふりがな%
		;相手が上級生
		ELSE
			IF CFLAG:夸奖
				LOCALS = %CALLNAME:ACTOR%大前輩_%CSTR:ACTOR:ふりがな%だい前輩
			ELSE
				LOCALS = %CALLNAME:ACTOR%前輩_%CSTR:ACTOR:ふりがな%前輩
			ENDIF
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CSTR:ACTOR:称号
		CASE "魔貴族", "没落魔貴族"
			LOCALS = %CALLNAME:ACTOR%様_%CSTR:ACTOR:ふりがな%大人
		CASEELSE
			LOCALS = %CALLNAME:ACTOR%_%CSTR:ACTOR:ふりがな%
		ENDSELECT
	ENDIF
ENDSELECT
RETURNF LOCALS

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

SELECTCASE ARGS
CASE "紹介文"
	;注意！ここに限り、STR:1～STR:15を用いて記述します。他の角色の同じ場所を参考にして下さい
	STR:1 = 自由自在的褐肤恶魔。对恶魔事业并不热心、也没有刻意在收集魂
	STR:2 = （顺便说一句、根据家训和祖母的教诲、角和尾巴一般都被藏着）
	STR:3 = 远离家人一个人在生活但是很喜欢钱、有过一段寻找能够拿到很多钱的短期打工的时期
	IF CFLAG:バニガのお仕事
		STR:4 = 现在在亲戚開的一家能够支付高额薪水的店里作为裸兔女郎做着一周两次的接客打工
		STR:5 = （刚刚開始工作的时候虽然也有因为自己的轻率而后悔、现在已经习惯了而且乐在其中的样子。但是再怎么说一周两次也已经是极限了）
	ELSEIF CEVENT("バイト開始")
		STR:4 = 现在在亲戚開的一家能够支付高额薪水的店里作为兔女郎做着一周两次的接客打工
	ELSE
		STR:4 = 现在在亲戚開的一家能够支付高额薪水的店里做着一周两次的打工
	ENDIF
	STR:6 = 喜欢观察凤蝶、因此买了欧芹盆栽不时地观察那些还没长成的幼虫
;ここの中に限り、CFLAG,BASE,TALENT,ABL,EXP,CSTRをCSVに書いたものから変更させることが出来ます
;例えばBASE:体力を2000にしたいなら BASE:0:体力 = 2000 、強気にさせたいなら TALENT:0:強気 = 1 として下さい
;また、ABL:信頼を+2させたい場合には ABL:0:信頼 = ABL:信頼 + 2 と書いてください
CASE "勧誘"
	CALL PRINT_MAIDFACE, TARGET
	PRINTFORML 「失礼しまーす。……ここの代表の人って今いますか？」
	PRINTFORMW ある日の部活時間中にガララッとドアが開かれ、結構ス領帯ルの良い褐色肌の学生が入ってきた。
	PRINTFORMW %CALLNAME:MASTER%が面食らいながら近寄って話を聞いてみたところ……どうやら入部希望者らしい。
	PRINTL
	PRINTFORML 「お、部長なのに私と同じ２年？そりゃ気を使わなくていいから楽だわ～」
	PRINTFORMW 自己紹介した%CALLNAME:MASTER%が同学年と分かると、目の前の褐色女は肩の力を抜いた様子で話し始めた。
	PRINTL
	PRINTFORMW 「いやー、今までも何度か近く通った時に様子伺ってたんだけど、なんかお菓子食べながらダベってばっかみたいじゃん？ここ」
	PRINTFORMW 「でぇ、私って今何も部活入ってないから学園内でゆっくり寛げる場所ないんだよねー」
	PRINTFORMW 「てわけで、活動内容次第では入部して部屋使わせて欲しいなーっ……て感じなんだけど。どう？」
	PRINTL
	PRINTFORMW ……何とも言えない申し出にどうしたもんかと悩むこと变成了%CALLNAME:MASTER%は、困った時の弗理希艾尔に応対をぶん投げたのだった。
	PRINTL
	PRINTL ………
	PRINTL ……
	PRINTL …
	PRINTL
	PRINTFORMW 「あーなるほどね、そういうことする部活な訳ね。人畜無害系かと思いきや大分アングラっていうかよく許可下りてるなぁ……」
	PRINTFORMW 「じゃあ、まぁ…………入っても良いかな。実はそういうこと興味あったし」
	PRINTFORMW いいのか。
	PRINTFORMW 「あ、でもね。期待を裏切ってゴメンかもだけど私って、そういうのちょっとしか経験ないんだよね」
	PRINTFORMW 「だからまー慣れるまでは温柔的して貰えると助かるかな……お互相用事もまだよく知らないしさ」
	PRINTL
	PRINTFORMW 「……そんぐらいかな？という事で部長、２年の秋月鲛子です。今後ともよろしくー」
;これは別になくても構いません
CASE "勧誘直後"
	;PRINTFORML - %NAME:TARGET% -

	;仕事は一時封印して後に開放する
	CSTR:仕事 =

	CALL PRINT_STRW, "黄色_※注意！※ この角色は路人相手に裸体给展示出来り、身体を触られる描写が少々有ます！"
	CALL PRINT_STRW, "黄色_路人は台詞没有で独白形式＆路人ちんこの出番は０＆本人が自発的にしてる事ですが、嫌いな人は多分嫌いな内容です！"
	CALL PRINT_STRW, "黄色_という訳で、そういう展開を無くすこともできます！……该怎么做呢？"
	CALL PRINT_SELECT, "無くさない(デフォ)/無くす"
	IF RESULT
		PRINTFORMW そういう展開を無くしました！
		CALL SET_CEVENT, "バイト没有"
	ENDIF

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

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

	ELSE

	ENDIF
;同居後の自分的房間の解説です。これも別に無くて構いません
CASE "自室描写"

ENDSELECT

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

;-------------------------------------------------
;一日の終わりでフラグなどを変化させたい時にはここで弄ることが出来る
;-------------------------------------------------
@TIMEEVENT_K43
IF COND("夜")
	;周日の夜はフラグ重置很多
	IF COND("周日")
		CFLAG:おべんとサイクル = 0
		IF CEVENT("バイト開始")
			;お仕事回数重置
			CFLAG:今週の仕事回数 = 0
			SIF CEVENT("バイト没有") == 0
				CSTR:仕事 = %CSVCSTR(NO:TARGET, GETNUM(CSTR, "仕事") )%
		ENDIF
	ENDIF
	CALL DEL_DEVENT, "質問一時停止"
ENDIF
;２回働いたら今週の仕事はおしまい
SIF CFLAG:今週の仕事回数 >= 2
	CSTR:仕事 =
SIF DAYEV("周考")
	CALL DEL_CEVENT, "一起学习禁止"

;-------------------------------------------------
;Ｈに入る前のセリフ
;TFLAG:指令中止 = 1 とすることで口上側からＨの開始自体を中止できる
;この時間帯にＨを断った回数自体は CFLAG:Ｈ断った で参照可能
;特に書かなくても問題有ません
;-------------------------------------------------
@PRE_EVENTTRAIN_K43

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

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	PRINTFORMW 「おっと……私としたくなっちゃった？」
	PRINTFORMW 「まぁいいよ、これも織り込み済みでココに居るわけだしね。私もさ」
	PRINTFORMW 「ただ、入部前にも言ったとおり私ってさ……ほら、経験少なくてさ……あとは分かるよね？」
	PRINTFORMW 「ということで…………温柔的してくれると嬉しいな」

	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;初めてのご褒美Ｈ
ELSEIF EQUIP:Ｈ的奖励 && CEVENT("調教開始：ご褒美Ｈ") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：ご褒美Ｈ"
;屈服刻印Lv1以上
ELSEIF MARK:屈服刻印 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0 && EQUIP:服 && EQUIP:胖次 && PANTIES(TARGET, "胖次") == "胖次" && CHECK_CLO("Ｖ露出") == 0
	PRINTFORMW 「よーし。じゃ、しようか……と、その前に」
	PRINTFORMW 「ね、部長。部長って、Ｈの時は服着たままが良いの？それとも裸の方が好き？」

	CALL PRINT_SELECT, "服は着たままが好き/裸の方が好き/下だけ脱いでるのが好き"
	SELECTCASE RESULT
	CASE 0
		PRINTFORMW 「ふーん……こだわりあるんだねぇ。じゃ、このまま始めよっか」
	CASE 1
		PRINTFORMW 「お、マジ？それは助かるなぁ」
		PRINTFORMW 「私って何度かカミングアウトした気もするけど汗っかきだからさぁ、する前に脱いだ方が良さげなんだよね」
		PRINTFORMW 「というわけで……っと」
		CALL EVENT_DATUI, "裸体"
		CALL SETFLAG, "扒成裸体", TARGET
		CALL EMOTION_PLUS, "重置/嘲笑/紅潮/对话框爱心"
		PRINTFORMW 「おまたせ。じゃ……これからは私の気分次第で、脱がせてもらうね」
		PRINTFORMW %CALLNAME:TARGET%は髪をかき上げて汗ばんだ%TEXTS("腋")%を%CALLNAME:MASTER%に見せ的同时、ニヤリと不敵な笑みを見せた。
		CALL SET_CEVENT, "好きなＨ衣装：裸"
	CASEELSE
		CALL EMOTION_PLUS, "重置/涙目＞＜/ワ/对话框兴奋"
		PRINTFORMW 「……ぷっ！あはははっ！！」
		PRINTFORMW 「ごめんごめん、予想外の答えに吹き出しちゃった……あはは！」
		PRINTFORMW 「うん、でもそれ、私的にもちょっと助かるかも……ふふっ！」
		PRINTFORMW 「いやほらっ、私って何度か言った気もするけど汗っかきだからさぁ、する前に……ぷぷっ！脱いでおきたかったんだよねっ」
		PRINTFORMW 「あー、おかしっ……ふぅ。というわけで……っと」
		CALL PRINT_CUTIN, "胖次正面", TARGET
		IF EQUIP:外套
			PRINTFORMW 目の前で%OUTER(TARGET)%と一緒に胖次を下ろした%CALLNAME:TARGET%は、指先でつまみ上げたソレを顔の高さに持ち上げて%CALLNAME:MASTER%に展示了出来。
			CALL SET_OUTER, ""
		ELSE
			PRINTFORMW 目の前でスルリと胖次を脱いだ%CALLNAME:TARGET%は、指先でつまみ上げたソレを顔の高さに持ち上げて%CALLNAME:MASTER%に展示了出来。
		ENDIF
		CALL SET_PANTIES, ""
		CALL EMOTION_PLUS, "小悪魔/笑颜"
		PRINTFORMW 「お互相用利害が一致したみたいだし、これからは私の気分次第で脱がせてもらうね」
		PRINTFORMW %CALLNAME:TARGET%は脱掉的胖次を指先に引っ掛け、クルクルと回しながら笑顔を浮かべた。
		CALL SET_CEVENT, "好きなＨ衣装：没穿下衣"
	ENDSELECT
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2以上
ELSEIF MARK:屈服刻印 >= 2 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0 && TALENT:Ａ性向 && EXP:Ａ経験 >= 20 && ABL:Ａ感覚 >= 3 && ABL:Ａ拡張 >= 1 && CEVENT("Ａ絶頂の感想")
	PRINTFORMW 「ね。始める前にちょっといいかな」
	PRINTFORMW %CALLNAME:TARGET%は普段より真面目そうな声色で話しかけてきた。
	PRINTL
	CALL EMOTION_PLUS, "重置/重度三白眼飘忽/無口系/紅潮２/对话框・・・"
	PRINTFORMW 「部長ってさ……もしかしなくてもお尻にＨ的事するの好きじゃん？」
	PRINTFORMW 「で、私も何度か弄られてるうちに、お尻の良さが分かってきたって言うかなんて言うか、その………………つまりね」
	PRINTFORMW 红了脸的%CALLNAME:TARGET%はそっぽを向いてｺﾞﾆｮｺﾞﾆｮ言った後に、%CALLNAME:MASTER%の顔を見つめて切り出してきた。
	PRINTFORMW 「私のお尻、おまんこと同じように……扱っていいよ」
	SIF TALENT:処女
		PRINTFORMW （まぁ、あっちもまだした事ないままなんだけど）
	PRINTFORMW 「という訳でじ、実は今日さ……してきたんだよね、準備。……勿論これからも、ずっとしてくるつもり」
	PRINTFORMW 「ま、まぁ、そういうことだから……その。おねがいします」
	BASE:排泄物 = 0
	CALL SETFLAG, "身嗜み：腸洗浄", TARGET
	CALL DEL_CEVENT, "合意禁止：肛門性交", TARGET
	CALL SET_GOUI, "肛門性交", TARGET
	PRINTL
	CALL PRINT_STRW, @"%CALLNAME:MASTER%は%CALLNAME:TARGET%から_イエロー_[肛門性交]_の合意を得た。"

	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	;淫乱を先に獲得したかで分岐させたい場合(別にこの分岐は無くても良いと思います)
	IF CEVENT("先に淫乱獲得")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	CALL SET_CEVENT, "調教開始：恋慕"
;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無をチェック（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K43_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 K43_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K43_KOJO2
IF RAND:3 && CEVENT("好きなＨ衣装") && EQUIP:服 && EQUIP:胖次 && PANTIES(TARGET, "胖次") == "胖次" && CHECK_CLO("Ｖ露出") == 0
	PRINTFORMW 「お、するの？じゃあ準備して……っと」
	CALL PRINT_CUTIN, "胖次正面", TARGET
	IF CEVENTS("好きなＨ衣装") == "裸"
		CALL EVENT_DATUI, "裸体"
		CALL SETFLAG, "扒成裸体", TARGET
		CALL EMOTION_PLUS, "重置/嘲笑/紅潮/对话框爱心"
	ELSE
		IF EQUIP:外套
			PRINTFORMW 目の前で%OUTER(TARGET)%と一緒に胖次を下ろした%CALLNAME:TARGET%は、指先でつまみ上げたソレを顔の高さに持ち上げて%CALLNAME:MASTER%に展示了出来。
			CALL SET_OUTER, ""
		ELSE
			PRINTFORMW 目の前でスルリと胖次を脱いだ%CALLNAME:TARGET%は、指先でつまみ上げたソレを顔の高さに持ち上げて%CALLNAME:MASTER%に展示了出来。
		ENDIF
		CALL SET_PANTIES, ""
		CALL EMOTION_PLUS, "小悪魔/笑颜"
	ENDIF
	PRINTFORMW 「じゃ……しよっか？」
	RETURN 1
ENDIF

;恋慕
IF TALENT:恋慕
	PRINTFORMW
;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0
	PRINTFORMW 「\@ FLAG:二人きり ? うん……いいよ。そろそろ # ん、私？ ……いいよ、 \@しよっか」
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
	PRINTFORMW 「あ、するの？ちょっと待ってね、スマホとか片付けるから」
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	IF FLAG:二人きり == 0
		PRINTFORMW 「お。今日は私をご指名かな？嬉しいね～……じゃ、しよっか」
	ELSE
		PRINTFORMW 「よーし、がんばっちゃうよ～」
	ENDIF
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW
ENDIF
RETURN 1

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

DRAWLINE

;初回Ｈ
IF EXP:Ｈ回数 == 0
	IF COND("満足") || EX:処女喪失
		PRINTFORMW 「はー……なんか今日は初めての事ばっかりで……凄かった」
		SIF COND("満足")
			PRINTFORMW 「でもうん、気持ちよかった。%CNAME("二人称")%が相手で良かったなって、そう思うよ」
	ELSEIF STATE("撃沈")
		PRINTFORMW 「つ、つかれたぁ～……」
	ELSE
		PRINTFORMW 「ん？これで終わり？」
		PRINTFORMW 「なんかものたんないなぁ」
	ENDIF
;処女喪失
ELSEIF EX:処女喪失
	IF CEVENT("初めては部長ちんこ")
		PRINTFORMW （ついにしちゃったんだなぁ、部長と…………）
		PRINTFORMW （私とした感想、部長に聞いておこっかな……ちょっと知りたいな…………いや、やっぱやめとこ、うん）
	ELSE
		PRINTFORMW 「はーっ……ちょっと思うところあるけど、次から色々楽しめるって事でいいのかなこれ」
		SIF CEVENT("初めては振動棒")
			PRINTFORMW %CALLNAME:TARGET%は振動棒と%CALLNAME:MASTER%をチラチラと交互に眺め的同时、僅かな文句を滲ませた
	ENDIF
;Ａ絶頂の感想
ELSEIF EX:Ａ絶頂 && CEVENT("初めてのＡ絶頂") && CEVENT("Ａ絶頂の感想") == 0
	PRINTFORMW 「うぅ……まさか、お尻でイかされるなんて……」
	PRINTFORMW （確かに気持ちよかったけど、この先どうなっちゃうのか……ちょっと不安）
	CALL SET_CEVENT, "Ａ絶頂の感想"
ELSEIF EX:Ａ絶頂 && CEVENT("Ａ絶頂の感想") && EXP:Ａ経験 >= 20 && ABL:Ａ感覚 >= 3 && TALENT:Ａ性向 == 0
	PRINTFORMW 「も～……Ｈするための場所が他にあるのに、なんでお菊門に手を出すかなぁ……」
	PRINTFORMW %CALLNAME:TARGET%は無意識に自分のお尻を触り的同时、不安と期待を混じらせた表情で%CALLNAME:MASTER%を横目に見遣りつつ愚痴をこぼした。
	PRINTL
	TALENT:Ａ性向 = 1
	CALL PRINT_STR, @"%CALLNAME:TARGET%は_イエロー_[Ａ性向]_を獲得しました。"
	FORCEWAIT

;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
ELSEIF STATE("撃沈", MASTER)
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;其他
	ELSE
		PRINTFORMW 「あれ、もう終わり？」
		PRINTFORMW 「……鍛え方が足んないんじゃない？」
	ENDIF
;partnerが体力or精力尽きた場合
ELSEIF STATE("撃沈")
	IF RAND:2
		PRINTFORMW 「わ、私が体力で負けるなんて……タフだなぁ……」
	ELSE
		PRINTFORMW 「う、もうダメ……ガ阴蒂」
	ENDIF
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
	PRINTFORMW
;恋慕
ELSEIF TALENT:恋慕
	PRINTFORMW
;屈服刻印Lv1以下
ELSEIF MARK:屈服刻印 <= 1
	PRINTFORMW 「はーっ……なんか、終わった後って独特の空気あるよね。祭りの後みたいな」
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW 「おつかれぇ……あー、喉乾いちゃった。部長も飲む？」
	PRINTFORMW %CALLNAME:TARGET%は汗を毛巾で拭き的同时、飲みかけの%TEXTR(CSTR:茶)%のペットボトルを差し出してきた。
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW
ENDIF

RETURN 1

;-------------------------------------------------
;指令実行時のセリフ
;イベントや台詞の都合上の問題でPLAYERに射精させたい場合は CALL SETFLAG, "強制射精", PLAYER とする事で强行射精させることができる
;-------------------------------------------------
@KOJO_MESSAGE_COM_K43
#DIM MEMO_LINECOUNT
#DIMS CHOICES
#DIM IS_ONA

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

MEMO_LINECOUNT = LINECOUNT

;慣れていない状態のＡ絶頂
IF NOWEX:Ａ絶頂
	IF CEVENT("初めてのＡ絶頂") == 0
		PRINTFORMW 「お゛っ、……おぉっ！？う、うそ私っ、お菊門でなんてそんなっ……あ、あっ……ぁああ！！」
		CALL SET_CEVENT, "初めてのＡ絶頂"
	ELSEIF COND("合意：肛門性交") == 0
		SELECTCASE KABURAND(3)
		CASE 2
			PRINTFORMW 「ん……ぁ……あっ、……あ！っ…………んん！く、くううっ……あ、……あ！」
		CASE 1
			PRINTFORMW 「お、おぉっ、ちょっ、それ以上は……あ、あっ……くぅうっ……！」
		CASEELSE
			PRINTFORMW 「う、そんなまたっ、ん！んんっ……、ふっ……ぅ…………ぁっ！」
		ENDSELECT
		IF NOWEX:Ａ絶頂 == EX:Ａ絶頂
			PRINTFORM %CALLNAME:TARGET%お尻の快楽%TEXTR("に染まるのが恥ずかしいのか/にはまだまだ否定的なようで/に忌避感があるのか")%、
			PRINTFORMW %TEXTR("咬紧牙関なんとか堪えようとしている/嬌声を抑えようと頑張っている/気持ち良さそうな声を上げまいと必死な")%ようだ。
		ENDIF
	ENDIF
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1
ENDIF
;汎用絶頂台詞。ここだけは淫語很多でＯＫ。推倒で分けるか迷う
IF COND("絶頂") && CHOSECOM(SELECTCOM)
	IS_ONA = 0
	SELECTCASE SELECTCOM
	CASE TNUM("自慰")
		IS_ONA = 1
	CASE TNUM("舐陰")
		IF TEQUIP:推倒
			IS_ONA = 1
		ELSEIF (COND("緊張緩和") > 0) + COND("絶頂") >= 3
			SELECTCASE KABURAND(4)
			CASE 3
				PRINTFORMW 「んんんん……あ！う、うぅぅ……イ、……ぃい！おまんこ凄くいい！！もっと、もっとおまんこ虐めて！！！」
			CASE 2
				PRINTFORMW 「ひっ……うっ、……あぁっ！？ヤバ、それ効きすぎっ、頭おかしくなりそうっ……ぅう！お、おねがいっ！それ……もっと！！」
			CASE 1
				PRINTFORMW 「あーそこ、そこそこそこもっと……ぅうっ！いやいいから！やめないでそこもっと、ぉ……っ！あ、あ……ぁあ！」
			CASEELSE
				PRINTFORMW 「ひっ、あぁっ、……あ！歯、立てる……なんて……いい！それすっごいイイ！も、もっとつづけ……ん！……って！」
			ENDSELECT
		ELSE
			SELECTCASE KABURAND(4)
			CASE 3
				PRINTFORMW 「ん……ぁ……あっ、……あ！そ、そろそろ……かもっ…………ん！ふぁっ……あ、……あ！」
			CASE 2
				PRINTFORMW 「お、おぉっ、ちょっとイイ感じ……かもっ……あ、あっ……はぁっ……う、ぅんうん就这様……もうちょい……頑張って……！」
			CASE 1
				PRINTFORMW 「んんんっ……、ふっ……ぅ…………ぁっ！な、なるほど、こうきたかぁ～……んんっ！い、いいじゃんっ……っ」
			CASEELSE
				PRINTFORMW 「あーいい、いいよ、要去了、そう、就这様……続けてっ……あああっ！」
			ENDSELECT
		ENDIF
	CASE TNUM("舐肛")
		IF TEQUIP:推倒
			IS_ONA = 1
		ELSE

		ENDIF
	ENDSELECT
	;推倒面部騎乗中
	SIF TEQUIP:面部騎乗 && TEQUIP:推倒
		IS_ONA = 1
	;自慰系は自己するので他と台詞の趣が異なる
	IF IS_ONA
		SELECTCASE KABURAND(3)
		CASE 2
			PRINTFORMW 「ん……ぁ……あっ、……あ！そ、そろそろ……かもっ…………ん！ふぁっ……あ、……あ！」
		CASE 1
			PRINTFORMW 「あー、きたきたきた……んんんっ……！あぁっ！」
		CASEELSE
			PRINTFORMW 「んんっ、……ふぅっ……も、もうちょい…………ん！あ、あぁあっ……、い、要去了っ……」
		ENDSELECT
	;汎用喘ぎ声
	ELSEIF LINECOUNT == MEMO_LINECOUNT
		IF (COND("緊張緩和") > 0) + COND("絶頂") >= 3
			SELECTCASE KABURAND(2)
			CASE 1
				PRINTFORMW 「ひっうっ、……あぁっ！？ヤバ、それ効きすぎっ、頭おかしくなりそうっ……ぅう！お、おねがいっ！それ……もっと！！」
			CASEELSE
				PRINTFORMW 「あーそこ、そこそこそこもっと……ぅうっ！いやいいから！やめないでそこもっと、ぉ……っ！あ、あ……ぁあ！」
			ENDSELECT
		ELSE
			SELECTCASE KABURAND(4)
			CASE 3
				PRINTFORMW 「ん……ぁ……あっ、……あ！そ、そろそろ……かもっ…………ん！ふぁっ……あ、……あ！」
			CASE 2
				PRINTFORMW 「お、おぉっ、ちょっとイイ感じ……かもっ……あ、あっ……はぁっ……う、ぅんうん就这様……もうちょい……！」
			CASE 1
				PRINTFORMW 「んんんっ……、ふっ……ぅ…………ぁっ！な、なるほど、こうきたかぁ～……んんっ！い、いいじゃんっ……っ」
			CASEELSE
				PRINTFORMW 「あーいい、いいよ、要去了、そう、就这様……続けてっ……あああっ！」
			ENDSELECT
		ENDIF
	ENDIF
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1
ENDIF
;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF COND("腋舐めフラグ") && CEVENT("腋舐められ経験") == 0
		PRINTFORMW 「う……そんなとこも舐めるの……？」
		PRINTFORMW 「いやほら、私って汗っかきだからさぁ……。自覚してるから、一応いつも綺麗にして是るんだけど……」
		CALL SET_CEVENT, "腋舐められ経験"
	ELSEIF CHOSECOM(SELECTCOM) == 0 && COND("腋舐めフラグ") == 0 && COND("初愛撫") == 0
		PRINTFORMW 「んっ……ちょっとくすぐったいかな……？」
		PRINTFORMW 「あ。別に文句言ったわけじゃないよ、まだよく分かんないからもうちょい続けてみて？」
		CALL SET_CEVENT, "初愛撫"
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF COND("腋舐めフラグ")
				SELECTCASE KABURAND(3)
				CASE 2
					PRINTFORMW 「ね、ねぇ……その、えーと……臭くない？」
					PRINTFORMW 「大丈夫？なら、いいけど…………」
				CASE 1
					PRINTFORMW 「ふぅ……本当に好きだね、ココ舐めるの。そんな良いもんじゃないと思うんだけどなぁ」
				CASEELSE
					PRINTFORMW 「う……そこ舐められるのちょっと苦手なんだけど……仕方ないなぁ」
				ENDSELECT
			ELSEIF COND("足舐めフラグ")
				SELECTCASE KABURAND(3)
				CASE 2
					PRINTFORMW 「喜欢的东西が目の前にあって、我慢できなくなっちゃったのかな？ふふっ……」
				CASE 1
					PRINTFORMW 「ん……あ、ぁ～……。いいよいいよ、その調子で好きに舐めて……」
				CASEELSE
					PRINTFORMW 「あ、それいい……指、もっとしゃぶって……」
				ENDSELECT
			ELSEIF (CHOSECOM(SELECTCOM) == 0 || RAND:4 == 0) && PREVCOM != SELECTCOM
				SELECTCASE KABURAND(3)
				CASE 2
					PRINTFORMW 「んっ…………ふふ。こうやって触る時って、けっこう遠慮がちだよね」
					PRINTFORMW 「馬鹿にしたりはしてないよ。ただ……ちょっと嬉しいな、って」
				CASE 1
					PRINTFORMW 「あっ……触るの？」
					PRINTFORMW 「うん、いいよ……私のこと、気持ちよくして……」
				CASEELSE
					PRINTFORMW 「そういえばさ、ね、%CNAME("二人称")%。……私の体のどこを触るのが一番好き？」
					PRINTFORMW 「やっぱり胸部？それとも、お尻？」
				ENDSELECT
			ELSE
				SELECTCASE KABURAND(3)
				CASE 2
					PRINTFORMW %CALLNAME:TARGET%は脱力した様子で%CALLNAME:PLAYER%を見つめ的同时、愛撫に身を委ねている…
				CASE 1
					PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%にやんわりと身体を寄せ的同时、坦率に愛撫に身を委ねている…
				CASEELSE
					PRINTFORMW %CALLNAME:TARGET%は目を閉じて、慢慢地呼吸しながら%CALLNAME:PLAYER%の愛撫に身を委ねている…
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1
	;被逆推ているとき
	IF TEQUIP:推倒
		;初めて
		IF FIRSTCOM_REV(SELECTCOM) == 0
			PRINTFORMW 「もしも苦しかったりしたら、手を上げて教えてね」
			PRINTFORMW 「私、加減とかよく知らないから無理しないでよね、本当に」
		ELSEIF CHOSECOM_REV(SELECTCOM) == 0
			IF RAND:3 == 0
				PRINTFORMW 「ほらほら、手は腰。お尻揉んだりは後でね」
			ELSEIF RAND:2
				PRINTFORMW 「んんっ、なかなか良い座り心地……もうちょっと体重かけるよ？」
			ELSE
				PRINTFORMW 「苦しかったりしたら、手を上げて教えてねー」
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			SELECTCASE KABURAND(4)
			CASE 3
				PRINTFORMW 「それじゃ、座ったまま６０数えるからね？そーれ、いーち、にー、さーん、…………」
				PRINTFORMW 「じゅーご、じゅーろく、…………」
				PRINTFORMW 「よんじゅーにー、よんじゅさーん、…………」
				PRINTFORMW 「ごじゅーきゅー、ろくじゅー！」
				PRINTFORMW 「是、よく我慢できたねぇ～。えらい、えらい」
				PRINTFORMW 顔から腰を浮かした%CALLNAME:TARGET%は%CALLNAME:PLAYER%の息が整うのを待ちつつ、温柔声色で頬を撫でながら褒めた。
				PRINTL
				PRINTFORMW 「じゃ、次は７０秒行ってみようか」
				PRINTFORMW 然后再び顔に跨り、口と鼻を股間でしっかりと塞ぎながら楽しそうな笑みを浮かべた…
			CASE 2
				PRINTFORMW 「おっと、ちょっと湿的すぎかも……悪いんだけど、口付けて一回吸ってもらっていい？」
			CASE 1
				PRINTFORMW 「あっ……そうそう、もっと舌伸ばして尖らせて……うん、就这様就这様」
			CASEELSE
				PRINTFORMW 「うわー凄い鼻息……苦しいの？それとも、私の气味が気に入っちゃった？」
				PRINTFORMW 「……手も上がってないし、後者かなぁ。ふふっ」
			ENDSELECT
		ENDIF
	ELSE
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「ん……ふっ…………うあ……っ」
			PRINTFORMW 「実はコレ、ちょっと期待してたんだけど……かなり、いいね……」
			PRINTFORMW 「舐めてもらうの……癖に、なりそうっ……」
		;清洁舔阴
		ELSEIF COND("清洁舔阴フラグ", PLAYER)
			IF CEVENT("清洁舔阴初体験") == 0
				PRINTFORMW 「えぇ……%CNAME("二人称")%って、こういうことも平気でやっちゃう領帯プなの……？」
				PRINTFORMW 「いや、別にダメっていうか、むしろ普通に良い意味で感心しているっていうか……」
				PRINTFORMW 「……私、こんな格好でおまんこ的污垢舐めて貰いながら何言ってるんだろ。……はぁ」
				PRINTFORMW 「まぁいいわ。お掃除好は得意みたいだし、次もお願いね」
				PRINTFORMW %CALLNAME:TARGET%はやや投げやりな様子で%CALLNAME:PLAYER%の頭を撫でて労った。
				CALL SET_CEVENT, "清洁舔阴初体験"
			ELSE
				CALL PRINT_STRW, @"「うぁ……_UH_ ほんと、%CNAME("二人称")%ってこういうの擅長だよね……ポイント高いよ、私的には」"
			ENDIF
		;それ以外
		ELSE
			;恋慕
			IF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				SELECTCASE KABURAND(3)
				CASE 2
					PRINTFORMW 「あーそれもうちょっと強めに……あー。そう……そうそう！」
				CASE 1
					PRINTFORMW 「あっそれいい、もう一回……そうそう！うん、いい感じ……」
				CASEELSE
					PRINTFORMW 「んん……いいよ……擅長擅長……」
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門愛撫
;-------------------------------------------------
IF SELECTCOM == 2
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;気持ちいい
		IF CHECK("Ａ指挿入")
			PRINTFORMW 「ちょっとぉ……どこ弄ってるんだよ、もう……汚いなぁ」
		;それ以外
		ELSE
			PRINTFORMW 「どこ触ってんだよ、もう。汚いなぁ……」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		ELSEIF COND("合意：肛門性交")
			IF COND("肛門栓")
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					IF TALENT:結腸性感
						PRINTFORMW
					ELSE
						PRINTFORMW
					ENDIF
				ELSEIF CHECK("Ａ振動棒")
					SELECTCASE KABURAND(3)
					CASE 2
						PRINTFORMW 「う、ぐ…………すごっ、……ぉ、お菊門、大きくなっちゃいそうっ……！」
					CASE 1
						PRINTFORMW 「んんっ……あっ、……いい！……その動き、……もっと、もっとして！」
					CASEELSE
						PRINTFORMW 「あ！？……あっ、……ぁあっ、…………あぁあっ！」
					ENDSELECT
				ELSE
					PRINTFORMW 「」
				ENDIF
			;指でのＡ愛撫初回。EXP:Ａ拳交経験で分岐させる？
			ELSEIF CHECK("Ａ指挿入") && CHOSECOM(SELECTCOM) == 0
				IF RAND:3 == 0
					PRINTFORMW （あっ……指、入ってきた…………）
					PRINTFORMW （やっぱり……自分の指でするより、ずっと…………）
				ELSEIF RAND:2
					PRINTFORMW 「うあ……それいい、……もう少し激烈地っ……あっ……んん！」
					PRINTFORMW 「いいっ、いいよ就这様……指、根元まで……っ」
				ELSE
					PRINTFORMW 「ふふっ……%CNAME("二人称")%は私のお菊門を指で弄るの……んぁっ、好きだよねぇ」
					PRINTFORMW 「まぁ、私も弄られるの……んんっ、好き、……だけどっ」
				ENDIF
			ELSE
				SELECTCASE KABURAND(3)
				CASE 2
					PRINTFORM %CALLNAME:TARGET%期待の混じった眼差しで%CALLNAME:PLAYER%を見つめ的同时、
				CASE 1
					PRINTFORM %CALLNAME:TARGET%向%CALLNAME:PLAYER%がしやすい様にと不动声色地体勢を変え的同时、
				CASEELSE
					PRINTFORM %CALLNAME:TARGET%目を閉じて慢慢地呼吸し的同时、
				ENDSELECT
				PRINTFORMW %TEXTR("敏感な粘膜/お菊門/肛門周辺部")%への愛撫に身を委ねている…
			ENDIF
		ELSEIF CHOSECOM(SELECTCOM) == 0
			IF TEQUIP:肛用振動棒
				PRINTFORMW 「うっ……慣れてないんだから、激烈地するのは本当にやめてよ？」
			ELSEIF RAND:2
				PRINTFORMW （……これ本当に慣れないなぁ……慣れたくもないけど）
			ELSE
				PRINTFORMW 「もー……そこ触るの、ホントやめてよ……」
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;-------------------------------------------------
IF SELECTCOM == 3
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「……やっぱ落ち着かないなぁ、これ」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「う……見られながらするの……んっ、なーんか気が、あっ……散るんだよな……ぁっ」
			PRINTFORMW %CALLNAME:TARGET%は文句を言って是るが、集中できないなりに気持ちよくなろうと模索しているようだ。
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;胸愛撫
;-------------------------------------------------
IF SELECTCOM == 5
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「ふふ、どうかな……実は秘かに自慢なんだけど……んあっ……ふふっ」
		PRINTFORMW %CALLNAME:TARGET%は少しだけ気持ちよさの入った上ずり気味の声をあげつつ、自信有げな様子で%CALLNAME:PLAYER%の手の動きを眺めている…
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			;穿環分岐はCHECK_COM("Ｂ穿環弄り")
			IF CHECK_COM("舔乳頭")
				SELECTCASE KABURAND(4)
				CASE 3
					PRINTFORMW 「ね。しゃぶるだけじゃなくて、少し歯をたてて貰っても良いかな……んっ、そうそう」
				CASE 2
					PRINTFORMW 「んふ……夢中で舐めちゃってまぁ」
				CASE 1
					PRINTFORMW 「んん、いいよ……もうちょい強く……」
				CASEELSE
					PRINTFORMW 「あっ……そうそれ、好き……私の胸部、もっと隅々まで舐めて……っ」
				ENDSELECT
			ELSEIF CHECK_COM("乳頭弄り")
				SELECTCASE KABURAND(3)
				CASE 2
					PRINTFORMW 「ね、そこ抓みながら捻ってもらっても良いかな……私、ちょっと強めにやってもらう方が好你たい」
				CASE 1
					PRINTFORMW 「おっ、それちょっと気持ちいいかも……もう一回やってもらって良い？」
				CASEELSE
					PRINTFORMW 「ふふっ、楽しんでるねぇ……なんか私も楽しくなってきたよ」
				ENDSELECT
			;胸を揉む
			ELSE
				SELECTCASE KABURAND(3)
				CASE 2
					PRINTFORMW 「おっ……それなかなか……もっと指先たてて、胸部にめり込むようにさ……んんっ、そうそう、そんな感じ……」
				CASE 1
					PRINTFORMW 「あっ……んん……っ、いいねっ……私、下から上に向かってマッサージされるの好き、みたいっ……」
				CASEELSE
					PRINTFORMW 「ん～……もうちょい力、入れてもいいよ？ほら……私のって、でかいからさぁ」
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「嗯……」
			PRINTFORMW （これが接吻か…………話に聞いてたのよりも全然なんてことないなぁ……）
			PRINTFORMW 「っちゅ……ん……ふ……」
			PRINTFORMW （でも……嫌いじゃ…………ないかも……）
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;テンダー接吻
		IF CHECK_COM("テンダー接吻")
			PRINTFORMW 「んっ…………今日もよろしくね」
		;恋慕
		;ELSEIF TALENT:恋慕
		;	PRINTFORMW
		;それ以外
		ELSE
			PRINTFORM 「%TEXTR("ん/っちゅ/ふー/んん")%……%TEXTR("む/ぷぁ/ぁ/ん……っ")%…………%TEXTR("ちゅっ/んむ/はぁっ/ふっ……ぅ")%……
			IF TEQUIP:接吻
				SELECTCASE KABURAND(5)
				CASE 4
					PRINTFORM ……あはっ、鼻息すごいね、お互い様だけど……すぅー……ふぅー……っ
				CASE 3
					PRINTFORM ……ふふっ、いくよ……私の唾液、たっぷり飲ませて给……
				CASE 2
					PRINTFORM んっ……ぷぁ……いいよ、もっと飲ませて……
				CASE 1
					PRINTFORM ……っふ、……舌、もっと舐めさせて……
				CASEELSE

				ENDSELECT
			ENDIF
			PRINTFORMW 」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;阴部愛撫
;阴蒂の場合にはCHECK_COM("陰核愛撫"), 阴部の場合にはCHECK_COM("阴部愛撫"), 恥丘ならCHECK_COM("恥丘愛撫")がONになる
;-------------------------------------------------
IF SELECTCOM == 7
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF CHECK_COM("陰核愛撫")
			PRINTFORMW 「んんっ！？」
			PRINTFORMW 「……あ。大声でたから驚いちゃった？……続けて、いいよ」
			PRINTFORMW （し、刺激很强なぁ、これ……！自己するのと、全然ちがう……）
		ELSE
			PRINTFORMW 「……爪立てたりはしないでね？」
		ENDIF
	;二回目以降
	;中出し後にお掃除
	ELSEIF CHECK_COM("擦拭")
		;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
		RETURN 0
		PRINTFORMW
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		ELSEIF CHECK_COM("陰核愛撫")
			IF PREVCOM == SELECTCOM
				SELECTCASE KABURAND(3)
				CASE 2
					PRINTFORMW 「んんっ！？そ、それちょっと痛っ……いや、気持ち……いい？」
					PRINTFORMW 「うぅー……なんだか、よく分かんなくなってきたぁ……っ！」
				CASE 1
					PRINTFORMW 「ば、バカっ、そこばっか続けて弄るのはやめ……あ！んんん……！」
				CASEELSE
					PRINTFORMW 「あっ、ちょっ、そんな強くは……うぅぅ……！」
				ENDSELECT
				SIF RAND:3 == 0
					PRINTFORMW %CALLNAME:TARGET%は悪態を付いているが、%CALLNAME:PLAYER%の手を止めるどころかむしろ腰を突き出している…
			ELSE
				PRINTFORMW 「う……。そ、そこ弱いから、もうちょっと温柔的触って……」
			ENDIF
		;それ以外
		ELSE
			IF CHOSECOM(SELECTCOM) == 0
				IF MARK:屈服刻印 || ABL:信頼 >= 3
					PRINTFORMW 「うん、いいよ……私のここ、触って……」
					PRINTFORMW %CALLNAME:TARGET%は控えめに腰を突き出して、自己的股間に延びた%CALLNAME:PLAYER%の手を歓迎した
				ELSE
					PRINTFORMW 「ん……ちょっと%TEXTR("くすぐったい/もどかしい/冷たい")%かも」
					PRINTFORMW %CALLNAME:TARGET%は股間をまさぐる%CALLNAME:PLAYER%の手の感触に、僅かに体を強張らせた
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;指挿入
;CHECK_COM("玩弄Ｇ点")とTEQUIP:振動棒で大きく分岐する
;-------------------------------------------------
IF SELECTCOM == 8
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF EX:処女喪失
			PRINTFORMW 「ぃたたっ……う～ん、今日のところは流石に痛さの方が勝りそう……」
		;振動棒挿入中
		ELSEIF TEQUIP:振動棒
			IF CHECK("振動棒")
				PRINTFORMW 「ん……あっ……、思ったとおりに存在感あるっていうか……うん」
				PRINTFORMW 「私、これ……結構好きかも……」
			ELSE
				PRINTFORMW 「う、凄い異物感……やっぱ硬さがあるからなのかなこれ」
				PRINTFORMW 「まーそのうち慣れるだろうけど、それまでは辛抱なのかなぁ」
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「ん……あっ……指、思ったより存在感あるっていうか……うん」
			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
		PRINTFORMW 「ひゃっ…………なんかゾワゾワするなぁ、これ」
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		ELSEIF COND("合意：肛門性交")
			IF CHOSECOM(SELECTCOM) == 0
				IF RAND:3 == 0 && TALENT:Ａ処女 == 0 && EXP_GAIN("Ａ経験") == 0
					PRINTFORMW 「ん……。接吻から始まるの、私、ちょっと好きかも……」
				ELSEIF RAND:2
					PRINTFORMW 「ね、大丈夫？舐めづらくない？……もっと広げて欲しかったら、遠慮せずに言ってね」
				ELSE
					PRINTFORMW 「ふふっ……%CNAME("二人称")%は私のお菊門舐めるの好きだよねぇ」
					PRINTFORMW 「……ちょっと嬉しいかも」
				ENDIF
				SIF PREVCOM == TNUM("扒開菊穴")
					PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%が舐めやすいようにと、お尻を両手でグッと押し開いて肛門を差し出している…
			ELSE
				SELECTCASE KABURAND(3)
				CASE 3
					PRINTFORMW 「あっ、そうそこ、もうちょっと舌尖らせて……んんっ……いいっ……」
				CASE 2
					PRINTFORMW 「ふふっ……汚い場所なのに夢中で舐めちゃってまぁ」
					PRINTFORMW ちょっとだけ嬉しそうな笑顔の%CALLNAME:TARGET%は、お尻に顔を埋める%CALLNAME:PLAYER%の頭を温柔的撫でた。
				CASE 1
					PRINTFORMW 「んっ……それ、なかなかっ……あっ、そこ、もうちょい……強めにお願い……」
				CASEELSE
					PRINTFORMW 「うぁっ……それいい……私のお菊門、もっと舐めて……っ」
				ENDSELECT
			ENDIF
		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 PREVEX("処女喪失") || (FIRSTCOM(SELECTCOM) == 0 && EX:処女喪失)
		PRINTFORMW 「流石に……うん、恥ずかしいね。程々で終わりにしてくれると助かるかな」
		PRINTFORMW %CALLNAME:TARGET%は処女喪失したばかりの膣穴に刺さる%CALLNAME:PLAYER%の視線に耐え切れず、ふいっと有点害臊的目を逸らした。
	;初めて
	ELSEIF FIRSTCOM(SELECTCOM) == 0
		IF EX:絶頂数合計 + EX:放尿 + EX:Ｖ中出し
			PRINTFORMW 「一応、前もって綺麗にはしてきたんだけど……ね」
		ELSE
			PRINTFORMW 「どうかな……一応、ここに来る前に綺麗にはしてきたんだけど」
		ENDIF
	;連続実行
	ELSEIF PREVCOM == SELECTCOM
		SELECTCASE KABURAND(4)
		CASE 3
			PRINTFORMW （あー……私、これ結構好きかも……）
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%がよく見えるようにと、用陰唇両手で左右にグッと押し広げた。
		CASE 2
			PRINTFORMW （う、ヤバ……汁垂れてるなぁこの感触……あーもー私ってホント容易濕っていうかなんていうか……）
		CASE 1
			PRINTFORMW 「……そろそろ違うことしない？」
			PRINTFORMW 「流石に恥ずかしくなってきたんだけど……」
		CASEELSE
			PRINTFORMW （凝視されてると話しかけづらいなぁ……でもずっと黙ってるのもこう、なんか……うぅん）
		ENDSELECT
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		ELSEIF PREVPLAY("絶頂")
			IF RAND:3 == 0
				PRINTFORMW 「う……今ドキドキしてるからっ、ちょっと一息ついてからに、……ふぅ、して欲しいなぁ、こういうの……はー……っ」
			ELSEIF RAND:2
				PRINTFORMW 「ふー……っ、ふー……っ…………はぁ～…………っ」
				PRINTFORMW %CALLNAME:TARGET%は慢慢地深呼吸をして、イったばかりの身体を冷却器させている。
			ELSE
				PRINTFORMW （う……イったばっかだし汗もかいてるしで……これ絶対、見ながら嗅がれてるよね……）
			ENDIF
		ELSEIF CHOSECOM(SELECTCOM) == 0
			IF RAND:3 == 0
				PRINTFORMW 「……見えづらかったりしたら、言ってよね」
				PRINTFORMW %CALLNAME:TARGET%はふいっと有点害臊的目を逸らしつつ、%CALLNAME:PLAYER%からの要望に応える姿勢を見せた。
			ELSEIF RAND:2
				PRINTFORMW （う、ヤバっ……今絶対、阴部から汁が垂れちゃってる……）
				PRINTFORMW （はーっ…………我的同时、ちょっと湿的易すぎるなぁ……）
			ELSE
				PRINTFORMW （うわー……すっごい見てる…………）
				IF TEQUIP:出浴 == 0 && COND("冬") == 0
					PRINTFORMW （あ。もしかしたら、今日汗かいたからちょっと臭いのかも……）
				ELSE
					PRINTFORMW （大丈夫なはずだけど……汚れが付いてないかちょっと心配になってくるなぁ…………）
				ENDIF
			ENDIF
		;それ以外
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「ホント飽きないなぁ……」
			ELSEIF RAND:2
				PRINTFORMW 「是、どーぞ。どう？酱と見えてる？」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%って、私にこういう事させるの好きだよね……まぁ、私も別に嫌いじゃあないんだけどさ」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	IF COND("合意：肛門性交") && CEVENT("合意後初Ａくぱぁ") == 0 && TALENT:Ａ処女 && COND("絶頂") == 0
		PRINTFORMW 「……」
		PRINTFORMW %CALLNAME:TARGET%は臉上泛起了紅潮、期待と不安をないまぜにした表情で%CALLNAME:MASTER%を看了过来……
		CALL SET_CEVENT, "合意後初Ａくぱぁ"
	;初めて
	ELSEIF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW （う……なんか……落ち着かないなぁ……）
	;連続実行
	ELSEIF PREVCOM == SELECTCOM
		SELECTCASE KABURAND(4)
		CASE 3
			PRINTFORMW （うー……恥ずかしいなぁ、これ……）
			SIF COND("合意：肛門性交")
				PRINTFORMW （でも、もっと見て欲しいかも……）
		CASE 2
			PRINTFORMW （う、ヤバ……阴部から汁垂れてるなぁこの感触……あーもー私ってホント容易濕っていうかなんていうか……）
		CASE 1
			IF COND("合意：肛門性交")
				PRINTFORMW 「ねぇ……み、見てるだけで……良いの？」
				PRINTFORMW %CALLNAME:TARGET%は有点害臊的%CALLNAME:PLAYER%から眼を逸らしつつ、少し上ずった声で控えめなおねだりをしている。
			ELSE
				PRINTFORMW 「ねぇ。どうせなら……前の方見たら？」
			ENDIF
		CASEELSE
			IF COND("合意：肛門性交")
				PRINTFORMW （もしかして皺とか数えられてたりするのかなぁ…………）
				PRINTFORMW （お尻で遊んでると、増えるのかな？それとも……？）
			ELSE
				PRINTFORMW （もー……いつまで見てんだか……多分お尻の皺とか数えられてるんだろうなぁ、これ……）
			ENDIF
		ENDSELECT
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		ELSEIF PREVPLAY("絶頂")
			IF RAND:3 == 0
				PRINTFORMW 「う……今ドキドキしてるからっ、ちょっと一息ついてからに、……ふぅ、して欲しいなぁ、こういうの……はー……っ」
			ELSEIF RAND:2
				PRINTFORMW 「ふー……っ、ふー……っ…………はぁ～…………っ」
				PRINTFORMW %CALLNAME:TARGET%は慢慢地深呼吸をして、イったばかりの身体を冷却器させている。
			ELSE
				PRINTFORMW （う……イったばっかだし汗もかいてるしで……これ絶対、見ながら嗅がれてるよね……）
			ENDIF
		ELSEIF COND("合意：肛門性交")
			IF CHOSECOM(SELECTCOM) == 0
				IF RAND:3 == 0 && TALENT:Ａ処女 == 0 && EXP_GAIN("Ａ経験") == 0
					PRINTFORMW 「あ、そうだ。こんな格好しながら言うのもなんだけど……今日もよろしくね」
					PRINTFORMW 「ん？いやほら、今回はまだお菊門を弄ってもらう前だし、ほら……ｺﾞﾆｮｺﾞﾆｮ」
					PRINTFORMW %CALLNAME:TARGET%は言いながら恥ずかしくなってきたのか、%CALLNAME:PLAYER%から眼を逸らして言葉を濁した。
				ELSEIF RAND:2
					PRINTFORMW 「ね、もっと近く来了ら。……どうせなら气味も、確かめたいでしょ？」
				ELSE
					PRINTFORMW 「どうかな。……喜んでもらえてたら、嬉しいんだけれど」
					PRINTFORMW %CALLNAME:TARGET%は表情も声色も普段街道だが、その膣穴からは粘度の高い愛液が漏れだして興奮を隠せずにいる…
				ENDIF
			ELSE
				IF RAND:3 == 0 && FIRSTCOM(TNUM("扒開阴道") )
					PRINTFORMW （なんかここ見せてると……ドキドキが、凄いなぁ。下手したら……ううん、確実に阴部見せてる時よりも……）
				ELSEIF RAND:2
					PRINTFORMW （ぅあー、物凄い湿的てきてる……私、お菊門を見つめられるの、実はかなり好きかもなぁ……）
				ELSE
					PRINTFORMW 「ふふ……%CNAME("二人称")%も好きだねぇ、ホント」
					PRINTFORMW 「でもまぁいいよ、こんなもので良ければ好きに見て？」
				ENDIF
			ENDIF
		ELSEIF CHOSECOM(SELECTCOM) == 0
			IF RAND:2
				PRINTFORMW 「はー……%CNAME("二人称")%って本当に好きだよね、お菊門眺めるの」
			ELSE
				PRINTFORMW 「うぅん……こっち見られるの、好きじゃないんだけどなぁ」
			ENDIF
		;それ以外
		ELSE
			IF RAND:2
				PRINTFORMW 「……変態」
			ELSE
				PRINTFORMW 「もー……ほんと、今日はこのぐらいで勘弁して」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入
;-------------------------------------------------
IF SELECTCOM == 15
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋
;-------------------------------------------------
IF SELECTCOM == 30
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「ふ～ん……思ったよりは気持ちよくないかも？」
		PRINTFORMW 「ていうか二人して股間見つめたまま黙っちゃうから、思ったより恥ずかしいね、コレ……」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			SELECTCASE KABURAND(3)
			CASE 2
				PRINTFORMW 「ん、く……んんっ……ふ……ぁ……っ」
			CASE 1
				PRINTFORMW 「………………」
				PRINTFORMW 「な、なんか言ってよ、もう」
			CASEELSE
				PRINTFORMW 「あー……う～……なんか、ビリビリしてきた……」
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 31
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF TALENT:処女
			SELECTCASE CUP:苦痛
			CASE IS >= 10000
				PRINTFORMW 「ひッ……？！！ オぉっ…………グ、……うァあっ！！！」
				PRINTFORMW %CALLNAME:TARGET%は想像を超えた疼痛に耐えかね、目を見開きながら獣のような唸り声をあげた。
				CALL SET_CEVENT, "Ｖ初体験：激痛"
			CASE IS >= 500
				PRINTFORMW 「うっ……く、…ぅ……っ！ や、やっぱ痛いもんだね……っ」
				PRINTFORMW 「あぁっ……ちょ、ストップ、もういいでしょ、一度止めてっ……！」
				CALL SET_CEVENT, "Ｖ初体験：普通"
			CASEELSE
				PRINTFORMW 「…………あれ？……思ったよりも痛くないもんだね」
				PRINTFORMW 「これってたまに聞くあれなのかな……スポーツ選手の処女膜が自然に破れてるってやつ」
				PRINTFORMW 「まー私はそんな激烈地はしてないから違うかもだけど……う～ん？」
				PRINTFORMW %CALLNAME:TARGET%は拍子抜けした様子で、膣に差し込まれた振動棒をどこか現実感なく眺めつつ雑談モードに入った。
				CALL SET_CEVENT, "Ｖ初体験：無痛"
			ENDSELECT
			CALL SET_CEVENT, "初めては振動棒"
		;余裕有
		ELSEIF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
		RETURN 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
		SELECTCASE CUP:苦痛
		CASE IS >= 500
			PRINTFORMW 「い、いたたた、ちょっ、ストップ！やっぱダメだって、これ！！」
			CALL SET_CEVENT, "Ａ振動棒初体験：痛い"
		CASEELSE
			PRINTFORMW 「んんっ！」
			PRINTFORMW 「…………あれ？もう入ったの？」
			PRINTFORMW ぎゅっと目を閉じて疼痛に備えていた%CALLNAME:TARGET%だったが……思ったほどでは無かったようだ。
			PRINTFORMW 「清潔さに欠けるところは減点だけど……まぁ、これぐらいなら付き合ってあげても良いかなぁ」
			CALL SET_CEVENT, "Ａ振動棒初体験：無痛"
		ENDSELECT
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
		RETURN 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒") && COND("合意：肛門性交")
			;Ｓ状結腸まで振動棒が侵入している
			IF CHECK_COM("結腸責め")
				IF TALENT:結腸性感
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「うっ、ちょっと、もうそれ以上は無理……んんっ、奥の方グリグリするの……ダメだって……っ！」
				ELSEIF RAND:2
					PRINTFORMW 「んんっ、入って……きた…………ぁっ！…………ぁああっ！」
				ELSE
					PRINTFORMW 「あっ……ぁあっ、…………んぅっ……ふぅっ」
				ENDIF
			ENDIF
		;それ以外
		ELSE
			IF SIZE("Ａ振動棒") >= 1
				IF SIZE("Ａ振動棒") > ABL:Ａ拡張
					PRINTFORMW 「ちょっ、ふとっ、粗大的って！私にはまだそれ無理ッ……ぐうぅ！」
				ELSEIF RAND:2
					PRINTFORMW 「ん、大丈夫……これぐらいなら、まだ、なんとか…………ふぅ。奥まで行けたかな」
					PRINTFORMW 「しっかし、冷静になるとお菊門に前用の振動棒入れてるのって凄い光景だよね、これ」
				ELSE
					PRINTFORMW 「ん……ふ……ぅっ！」
					PRINTFORMW 「…………一番奥の突き当り押し上げられるの、なんか変な感じだなぁ、これ……」
				ENDIF
			ELSE
				PRINTFORMW 「う、入ってきた……」
			ENDIF
		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:処女
		SELECTCASE CUP:苦痛
		CASE IS >= 10000
			PRINTFORMW 「ひッ……？！！ オぉっ…………グ、……うァあっ！！！」
			PRINTFORMW %CALLNAME:TARGET%は想像を超えた疼痛に耐えかね、目を見開きながら獣のような唸り声をあげた。
			CALL SET_CEVENT, "Ｖ初体験：激痛"
		CASE IS >= 500
			PRINTFORMW 「うっ……！？ や、やっぱ痛いもんだね」
			PRINTFORMW 「あぁっ……すごい、ドンドン……入ってくるっ……！」
			CALL SET_CEVENT, "Ｖ初体験：普通"
		CASEELSE
			PRINTFORMW 「…………あれ？……思ったよりも痛くないもんだね」
			PRINTFORMW 「これってたまに聞くあれなのかな……スポーツ選手の処女膜が自然に破れてるってやつ」
			PRINTFORMW 「まー私はそんな激烈地はしてないから違うかもだけど……う～ん？」
			PRINTFORMW %CALLNAME:TARGET%は拍子抜けした様子で、一大イベントを無事終えた達成感を滲ませながらの雑談モードに入った。
			CALL SET_CEVENT, "Ｖ初体験：無痛"
		ENDSELECT
		SIF PLAYER == MASTER && PENIS(PLAYER)
			CALL SET_CEVENT, "初めては部長ちんこ"
	;非処女
	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 CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
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 CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;対面座位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
IF SELECTCOM == 63
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

;-------------------------------------------------
;Ａ挿入系初選択
;疼痛が少なく楽しめているかはCHECK("Ａ挿入")で判定
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	SIF PLAYER == MASTER && PENIS(PLAYER)
		CALL SET_CEVENT, "Ａ初めては部長ちんこ"
	;Ａ処女
	IF TALENT:Ａ処女
		IF COND("合意：肛門性交")
			IF COND("Ａ潤充分") || CHECK("Ａ挿入")
				IF PLAYER == MASTER && TALENT:処女
					PRINTFORMW 「うぁっ…………是って、……きたっ……これが、部長の…………」
				ELSE
					PRINTFORMW 「うぁっ…………是って、……きたっ…………」
				ENDIF
				PRINTFORMW 「お゛っ！？」
				PRINTFORMW 「あっご、ゴメン、大声出ちゃった……気にせず就这様……続けていいよ？」
				PRINTFORMW （こ、これ、思ったより、ずっと…………特に、奥の方……すごいっ……）
				CALL SET_CEVENT, "Ａ初体験：無痛"
			ELSE
				PRINTFORMW 「うぐぅっ……いた、いたたっ！やっぱもっと準備すべきだってこれ！」
				CALL SET_CEVENT, "Ａ初体験：激痛"
			ENDIF
		ELSE
			PRINTFORMW
			CALL SET_CEVENT, "Ａ初体験：合意无"
		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:恋慕)
		IF RAND:3 == 0
			CALL PRINT_STRW, "「どう？なかなか良い感じでしょ？私のオ・シ・リ_UH_」"
			CALL PRINT_STRW, "「た～っぷり楽しませて给から……期待して、いいよ？」"
		ELSEIF RAND:2
			CALL PRINT_STRW, "「ん、……ぅっ……奥まで来たっ……_UH_ そうそういいよ、もっと腰突き出して……お菊門、もっとっ……_UH_」"
		ELSE
			CALL PRINT_STRW, "「はぁ～～…………おっき……_UH_」"
			CALL PRINT_STRW, "「ほんといいよね部長のこれ……押し広げられるの、癖になりそう」"
		ENDIF
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			PRINTFORMW
		;対面座位
		CASE 73
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;Ｓ状結腸を使っての肛門性交
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHECK_COM("結腸責め")
	;初めての結腸責め
	IF EXP:結腸経験 == 0
		PRINTFORMW
	;今回初の結腸責め
	ELSEIF EXP_GAIN("結腸経験") == 0
		IF TALENT:結腸性感
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:結腸性感
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ａ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			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 「……ねぇ。気持ちいいの？これ？」
			PRINTFORMW 「%CNAME("二人称")%が気持ちいいなら良いんだろうけど……なんか私としては、やることなくてちょっと暇かも」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			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 「へ～…………、こういう感じなんだ？」
		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
		PRINTFORMW 「ん……む……あ～……これ結構、舐めづらい……歯が当たっちゃったりしたら言ってね？」
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「んっ…………今日もよろしくね」
		;それ以外
		ELSE
			PRINTFORMW 「んっ…………今日もよろしくね」
		ENDIF
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			PRINTFORMW
		ELSEIF COND("Ａ清洁口交フラグ")
			PRINTFORMW 「よし。綺麗变成了と思うよ」
			IF FIRSTCOM(TNUM("手淫")) && FIRSTCOM(TNUM("強制口交")) && RAND:4 == 0
				PRINTFORMW 「次は何するの？手交？イラマ？それとも……またお尻？」
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%の阴茎をチロチロと舌先で舐めつつ、上目遣いに伺ってきた。
			ELSEIF RAND:3 == 0
				PRINTFORMW 「は～～……それにしても、ひっどい味。文句も言わずこんな事して给私に感謝してよね」
			ELSEIF RAND:2
				PRINTFORMW %CALLNAME:TARGET%は出来栄えに満足したらしく、目を閉じて%CALLNAME:PLAYER%の阴茎に頬ずりをした。
			ELSE
				PRINTFORMW 「あー……でも、まだちょっと臭うかな」
				PRINTFORMW クンクンと鼻を鳴らした%CALLNAME:TARGET%は、再び阴茎を口に含んで掃除を再開した……
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSEIF CHOSECOM(SELECTCOM) == 0
		IF RAND:3 == 0
			PRINTFORMW 「んっ……ちゅ……っ……ふぅっ……じゅるるっ……」
		ELSEIF RAND:2
			PRINTFORMW 「じゃ……舐めるね。一応頑張るつもり」
		ELSE
			PRINTFORMW 「それじゃ……いただきます」
		ENDIF
	;ＡＴＭ
	;ELSEIF PREVPLAY("Ａ挿入中", PLAYER)
	;	CALL PRINT_STRW, @"（うっ、クサッ……！ は～……ホント、コイツって最っ低……_UH_）"
	;被逆推ているとき
	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
		IF CHECK_COM("展示肉棒")
			PRINTFORMW 「うわぁ……干劲マンマン、って感じ……」
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	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 「こんなポーズでしたいの？うぅん、欲張りだなぁ……」
		PRINTFORMW 「あ、そうだ、もし苦しかったら手で轻轻地叩いて知らせてよね……窒息とか嫌でしょ？」
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;胸爱抚奉侍
;-------------------------------------------------
IF SELECTCOM == 102
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

;-------------------------------------------------
;什麼也不做
;-------------------------------------------------
IF SELECTCOM == 139
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	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:恋慕
			;このターン中に吐いてしまいます(PLAYERが射精しそうな時は、射精後に吐きます)
			IF COND("想吐")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;放尿　聖水PLAY(推倒ている時)
;-------------------------------------------------
IF SELECTCOM == 144
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;聖水PLAY
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;聖水PLAY
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;剃毛
;-------------------------------------------------
IF SELECTCOM == 145
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;行為に抵抗有
		IF CHECK("陰毛管理") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;行為に抵抗有
		IF CHECK("陰毛管理") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			SELECTCASE CONDS("陰毛")
			;脱毛した
			CASE "脱毛処理"
				PRINTFORMW
			;光滑无毛に剃り上げた
			CASE "光滑无毛"
				PRINTFORMW
			;綺麗に剃り整えた
			CASEELSE
				PRINTFORMW
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;身嗜管理
;-------------------------------------------------
IF SELECTCOM == 146
	;陰毛の状態を指示
	IF CHECK_COM("身嗜み：陰毛")
		SELECTCASE COND("身嗜み：陰毛")
		;光滑无毛
		CASE 3
			SELECTCASE CONDS("陰毛")
			CASE "脱毛処理"
				PRINTFORMW 「あー……えっとね、私って普段から脱毛してるんだけど……」
				PRINTFORMW 「ってまさか脱毛止めて自己剃れって事？！」
				PRINTFORMW 「うわ～めんどそう……めんどそうだけど、%CNAME("二人称")%がどうしてもって言うなら……はぁ」
				PRINTFORMW 「どう考えても脱毛の方が楽だし仕上がりも綺麗だと思うんだけどなぁ」
			CASE "保养完毕"
				PRINTFORMW 「えぇ～……せっかく綺麗な形に剃り整えてるのになぁ……ちょっと勿体なくない？」
				PRINTFORMW 「まー、私も好きだからご要望とあらば従うけどね」
			CASEELSE
				PRINTFORMW 「剃っていいの？！」
				PRINTFORMW 「おっとゴメン、喜びのあまり大声出ちゃった」
			ENDSELECT
		;剃り整える
		CASE 5
			SELECTCASE CONDS("陰毛")
			CASE "脱毛処理"
				PRINTFORMW 「んー……まぁ、いいかな？」
				PRINTFORMW 「綺麗に整えてればそれはそれで楽しそうだしね」
				PRINTFORMW 「んで、どんな形が好きなの%CNAME("二人称")%は」
			CASEELSE
				PRINTFORMW 「おっけおっけ、いいよー」
				PRINTFORMW 「んで、どういう形にして欲しいの？」
			ENDSELECT

			STR:選択肢 = 逆三角形/卵型/長方形/心型/%CALLNAME:TARGET%に任せる
			VARSET LOCALS
			SPLIT STR:選択肢, "/", LOCALS
			CALL PRINT_SELECT, STR:選択肢
			CHOICES = %LOCALS:RESULT%

			SELECTCASE CHOICES
			CASE @"%CALLNAME:TARGET%に任せる"
				PRINTFORMW 「あ、そう？じゃあ乞うご期待って事で」
				CHOICES = %TEXTR("逆三角形/卵型/長方形/心型")%
			CASEELSE
				PRINTFORMW 「うーい、了解だよー」
			ENDSELECT

			SELECTCASE CHOICES
			CASE "逆三角形"
				CALL SET_CEVENT, "陰毛の形：▼"
				CALL SET_CEVENT, "陰毛の名称：逆三角形"
			CASE "卵型"
				CALL SET_CEVENT, "陰毛の形：●"
				CALL SET_CEVENT, "陰毛の名称：卵型"
			CASE "長方形"
				CALL SET_CEVENT, @"陰毛の形： %UNICODE(0x258E)%"
				CALL SET_CEVENT, "陰毛の名称：長方形"
			CASE "心型"
				CALL SET_CEVENT, "陰毛の形：HEARTMARK"
				CALL SET_CEVENT, "陰毛の名称：心型"
			ENDSELECT
		;从不剃
		CASE 7
			PRINTFORMW 「う、うーん…………」
			PRINTFORMW 「できるだけ善処はするけど……見た目の問題でどうしてもヤバい時は剃るよ？」
			PRINTFORMW 「それでもいいならまぁ……」
		ENDSELECT
	;腋毛の状態を指示
	ELSEIF CHECK_COM("身嗜み：腋毛")
		SELECTCASE COND("身嗜み：腋毛")
		;光滑无毛
		CASE 3
			SELECTCASE CONDS("腋毛")
			CASE "脱毛処理"
				PRINTFORMW 「えぇ～わざわざ手剃りすんの？めんどいなぁ……」
				PRINTFORMW 「うっかりジョリってるの発見しても、からかったりはしないでよぉ？」
			CASEELSE
				PRINTFORMW 「まー从不剃よりはずっと良いね、正直歓迎しかない」
			ENDSELECT
		;从不剃
		CASE 7
			PRINTFORMW 「……は？マジで？いやいや、ちょっと趣味渋すぎでしょ%CNAME("二人称")%」
			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
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW （うーん、なんか勢いでつけちゃったけど……早まったかなぁ）
		;それ以外
		ELSE
			PRINTFORMW 「……うん。良いじゃん」
			PRINTFORMW %CALLNAME:TARGET%は姿見の前で具合を確かめた後、満足げに微笑んだ。
		ENDIF
	;二回目以降
	ELSE
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			;ＯＮフラグが付けた際のセリフです
			IF COND("陰蒂環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("陰唇環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("乳环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("尿道穿環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("肚脐环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

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

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

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

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

;-------------------------------------------------
;甜言蜜语
;-------------------------------------------------
IF SELECTCOM == 283
	;成功
	IF TEQUIP:甜言蜜语
		IF FIRSTCOM(SELECTCOM) == 0
			CALL PRINT_STRW, "「も、もー……そういうの、やめてよ……_UH_」"
		ELSEIF TALENT:恋慕
			PRINTFORMW
		ELSEIF CHECK_COM("夸奖")
			IF (PREVCOM == TNUM("扒開阴道") || PREVCOM == TNUM("扒開菊穴") )&& RAND:3
				IF RAND:2
					CALL PRINT_STRW, "「う…………ホント、口が擅長だよね……」"
					PRINTFORMW 満更でもなさそうな様子の%CALLNAME:TARGET%は、有点害臊的目を逸らしつつも股間をグッと押し開いて更に展示了出来。
				ELSE
					CALL PRINT_STRW, "「う、うーん……こういうの褒められると、坦率に喜んでいいか迷うなぁ……_UH_」"
				ENDIF
			ELSEIF RAND:2
				CALL PRINT_STRW, "「え……そ、そう？……ちぇっ、その気にさせるのが擅長いんだからなぁ……_UH_」"
			ELSE
				CALL PRINT_STRW, "「そ、そんなに喜ばれると、なんか調子狂うなぁ……_UH_」"
			ENDIF
		;それ以外
		ELSE
			CALL PRINT_STRW, "「も、もー……そういうの、やめてよ……_UH_」"
		ENDIF
	;失敗
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;抱上去
;-------------------------------------------------
IF SELECTCOM == 285
	IF PREVEX("処女喪失")
		PRINTFORMW 「あはは……そんな痛そうだった？」
		PRINTFORMW 「うん……うん……だいぶマシになってきたよ、心配してくれて有がと」
	;初めて
	ELSEIF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「うわっ……思ったより凄いねこれ、ただ密着しただけなのに」
		PRINTFORMW 「%CNAME("二人称")%も緊張してるのかな、ほら、凄いドキドキしてる……」
		PRINTFORMW 「……って、これもしかして私の心臓の音？！ うわ、はずかし……」
	;挿入中
	ELSEIF INSERT("合体中")
		IF PREVPLAY("絶頂")
			CALL PRINT_STRW, @"「ふーっ_UH_ ふーっ……_UH_ はぁ～～～……」"
		ELSEIF PREVEX("Ｖ中出し") + PREVEX("Ａ中出し")
			CALL PRINT_STRW, @"「ふ～ぅ……おつかれ大人」"
			CALL PRINT_STRW, @"「……もうちょっとこのままで居よっか。まだ出きってないみたいだし、ね」"
		ELSE
			PRINTFORMW
		ENDIF
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

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

IF CHOSECOM(SELECTCOM) == 0 || (TEQUIP:推倒 && CHOSECOM_REV(SELECTCOM) == 0)
	SELECTCASE SELECTCOM
	CASE TNUM("舐陰")
		IF TEQUIP:推倒
			;初めて
			IF FIRSTCOM_REV(SELECTCOM) == 0
				PRINTFORMW 「一度やってみたかったんだよね、これ……それじゃ、失礼しまーす」
			ELSE
				PRINTFORMW 「ふふっ……それじゃ、今日も楽しんで貰おうかな」
			ENDIF
		ENDIF
	CASE TNUM("自慰")
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「え……私が自己してるところが見たいの？う、う～ん……」
			PRINTFORMW 「いいけど、なんか……あんまり集中できなさそうっていうか…………うぅん」
			PRINTFORMW %CALLNAME:TARGET%はあまり乗り気では無さそうだが、%CALLNAME:PLAYER%の頼みに従って渋々と自慰行為を始めた。
		ENDIF
	CASE TNUM("舐肛")
		IF COND("合意：肛門性交")
			IF TEQUIP:推倒

			ELSE

			ENDIF
		ENDIF
	CASE TNUM("扒開阴道")
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			IF EX:処女喪失
				PRINTFORMW 「まぁ…………やらされるかもとは思ってたから、良いけどさ」
			ENDIF
		ENDIF
	CASE TNUM("扒開菊穴")
		IF PREVPLAY("絶頂")
		ELSEIF COND("合意：肛門性交")
			IF CEVENT("合意後初Ａくぱぁ") == 0 && TALENT:Ａ処女 && COND("絶頂") == 0
				PRINTFORMW 「……うん。わかった」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「……うん、いいよ。……私も、見てもらうの結構好きだし」
			ENDIF
		ELSE
			;初めて
			IF FIRSTCOM(SELECTCOM) == 0
				PRINTFORMW 「えー……私のお菊門を見たいの……？」
				PRINTFORMW 「う、う～ん…………まぁ…………いいかなぁ。でも、変なこと言うのは禁止だからね？」
			;二回目以降
			ELSE
				;恋慕
				IF TALENT:恋慕
					;PRINTFORMW
				;それ以外
				ELSE
					IF RAND:2
						PRINTFORMW 「また……？仕方ないなぁ……」
					ELSE
						PRINTFORMW 「是是。我明白了よ」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	CASE TNUM("振動棒")
		IF TALENT:処女
			PRINTFORMW 「え？いやいや、私、その、初めてなんだけど…………マジで？」
			CALL PRINT_SELECT, "マジ/空気読めなくてすいません……冗談です"
			IF RESULT == 0
				IF PENIS(MASTER)
					PRINTFORMW 「う。そ、そうかぁ……私の初めての相手は部長だと思い込んでたけど、こうくるかぁ……」
					IF TALENT:相思相愛
						PRINTFORMW 「でもま、%CNAME("二人称")%がそれを望んでるっていうのなら……うん。よし、覚悟決めたよ」
					ELSE
						PRINTFORMW 「でもま、よく考えたら私たち恋人でも何でもないもんね。よーしＯＫ、覚悟決めたよ」
					ENDIF
				ELSE
					PRINTFORMW 「う。そ、そうかぁ……でもま、部長には生えてないし当然といえば当然の流れか…………よし！」
				ENDIF

				PRINTL
				PRINTFORMW 「ほら、いいよ……私の初めて、そのおもちゃで散らさせて给」
				PRINTFORMW 体勢を整えた%CALLNAME:TARGET%は%TEXTS("大陰唇：視覚")%を押し開き、処女膜を%CALLNAME:PLAYER%の眼前に晒して顔を見つめてきた。
			ELSE
				PRINTFORMW 「だよね。惊嚇したー……」
				TFLAG:指令中止 = 1
			ENDIF
		ENDIF
	CASE TNUM("肛用振動棒")
		IF COND("合意：肛門性交") == 0
			IF FIRSTCOM(SELECTCOM) == 0 && TALENT:Ａ処女
				PRINTFORMW 「あのー……そこって出す穴であって、入れる穴ではないと思うんだけど……なんか間違ってない？」
				CALL PRINT_SELECT, "大丈夫。間違ってない/間違ってた"
				IF RESULT == 0
					PRINTFORMW 「慣れれば気持ちよくなるとは聞くけどさぁ……うーん、うーん」
				ELSE
					PRINTFORMW 「だよね。惊嚇したー……」
					TFLAG:指令中止 = 1
				ENDIF
			ELSE
				IF CEVENT("Ａ振動棒初体験：痛い")
					PRINTFORMW 「えぇー……またこれするの？」
					PRINTFORMW 「前回痛かったから、出来れば違うのにして欲しいんだけど」
				ELSE
					PRINTFORMW 「……またお尻に入れるの？」
					PRINTFORMW 「まぁ……いいけどさ」
					PRINTFORMW %CALLNAME:TARGET%はお菊門に入れられた時のことを思い出したのか、なんとも微妙な表情を見せた。
				ENDIF
			ENDIF
		ENDIF
	CASE 60 TO 69
		IF FIRSTCOMS("Ｖ挿入") == 0 && TALENT:処女
			IF COND("Ｖ潤充分")
				PRINTFORMW 「……するの？」
				PRINTFORMW 「うん、まぁ……いいよ。……あんま痛くないと良いなぁ」
			ELSE
				PRINTFORMW 「……するの？」
				PRINTFORMW %CALLNAME:TARGET%は不安を隠せない様子で、体を強張らせながら%CALLNAME:PLAYER%を看了过来…
				CALL PRINT_SELECT, "する/もう少し準備する"
				IF RESULT
					CALL SETFLAG, "取消避孕套", PLAYER
					TFLAG:指令中止 = 1
				ENDIF
			ENDIF
		ENDIF
	CASE 70 TO 79
		IF FIRSTCOMS("Ａ挿入") == 0 && TALENT:Ａ処女
			IF COND("合意：肛門性交")
				IF COND("Ａ潤充分")
					PRINTFORMW 「…………」
					PRINTFORMW 阴茎を近づけられた%CALLNAME:TARGET%は%CALLNAME:PLAYER%にお尻を向け、両手でグッと開いて準備の出来た肛門を展示了出来。
					PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%から目を逸らしているが、その表情からは期待している様子が有有と見て取れる…
				ELSE
					PRINTFORMW 「……ねぇ。する分には望むところなんだけど、場所が場所だし潤滑液とかで準備してからにしない？」
					CALL PRINT_SELECT, "改めて準備する/構わずねじ込む"
					IF RESULT == 0
						PRINTFORMW 「有がと。そうしてくれると助かるな」
						CALL SETFLAG, "取消避孕套", PLAYER
						TFLAG:指令中止 = 1
					ELSE
						PRINTFORMW 「え、マジ……？ちょっと怖いんだけど……」
					ENDIF
				ENDIF
			ELSEIF FIRSTCOM(TNUM("肛用振動棒") ) == 0
				PRINTFORMW 「あのー……そこって出す穴であって、入れる穴ではないと思うんだけど……なんか間違ってない？」
				CALL PRINT_SELECT, "大丈夫。間違ってない/間違ってた"
				IF RESULT == 0
					PRINTFORMW 「慣れれば気持ちよくなるとは聞くけどさぁ……うーん、うーん」
				ELSE
					PRINTFORMW 「だよね。惊嚇したー……」
					TFLAG:指令中止 = 1
				ENDIF
			ENDIF
		ENDIF
	CASE TNUM("口交")
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「流石に初めてだからちょっと緊張するなぁ……すー…………は～……」
			PRINTFORMW 「そ、それじゃあ……舐めるよ？いいよね？」
		ENDIF
	ENDSELECT
ENDIF

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

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K43, 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
;-------------------------------------------------
;射精した(扶她/男性のみ)
;セルフ顔射orセルフ口内射精した場合はそれぞれCOND("セルフ顔射フラグ"), COND("セルフ口内射精フラグ")で分岐可能
;-------------------------------------------------
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
			CALL PRINT_STRW, "「え！ちょ！？あぁぁ……嘘、うそでしょ漏尿なんて、と、止まってぇ……ううぅ……_UH_」"
		;それ以外
		ELSE
			CALL PRINT_STRW, "（あっ？！……あー……ヤバ、これオシッコ漏らしちゃってるなぁ……でもいいやもうどうでも……はぁ……気持ちいい……_UH_）"
		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_K43, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

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

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

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

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

;-------------------------------------------------
;射精先選択の直後に表示する口上
;頻繁に表示されるため随机や表示条件の設定推奨です
;-------------------------------------------------
@KOJO_MESSAGE_AFTERSHOOTCHANGE_K43
;IF EX:Ａ中出し == 0 && INSERT("Ａ挿入") && INSERT("後背位") + INSERT("背面座位") == 0
;	IF COND("身嗜み：Ａ準備")
;		PRINTFORMW
;	ENDIF
;ENDIF
;初期は表示されないようにしてあるため、書いた後はRETURN 0を消す
RETURN 0

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

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

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW
	;鼻钩時専用です。人を選びすぎるので基本的には書かなくて良いと思われます
	ELSEIF SHOOT("鼻の穴")
		;初めて
		IF FIRST_EV("絶頂：ぶっかけ鼻の穴") == 0
			PRINTFORMW
		;鼻の穴に出され慣れて平気变成了
		ELSEIF CHECK("鼻射")
			PRINTFORMW
		;鼻钩自体は受け入れているが苦痛
		ELSEIF CHECK("鼻钩")
			PRINTFORMW
		;全面的につらい
		ELSE
			PRINTFORMW
		ENDIF
	ELSEIF SHOOT("髪")
		IF RAND:3 == 0
			PRINTFORMW 「もー……%CNAME("二人称")%ってば本っ当に私を精液で汚すの好きだなぁ」
			PRINTFORMW 「見てよこれ……うわ、ネバネバすごっ」
		ELSEIF RAND:2
			PRINTFORMW 「あのねぇ……髪にかけられると洗うのめちゃくちゃめんどいんだよ？」
		ELSE
			PRINTFORMW （あーもう。後で洗うのめんどいなぁ……）
		ENDIF
	ELSEIF SHOOT("顔")
		IF RAND:3 == 0
			PRINTFORMW 「んんっ。……いっぱい出たねぇ」
		ELSEIF RAND:2
			PRINTFORMW 「うっ…………もう目開けても大丈夫？」
		ELSE
			PRINTFORMW （うーん……まぁ、髪にかけられるよりはマシかな）
		ENDIF
	;超大量射精
	ELSEIF COND("絶頂", PLAYER) >= 3
		PRINTFORMW
	;大量射精
	ELSEIF COND("絶頂", PLAYER) == 2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰")
	PRINTFORMW

;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた
;-------------------------------------------------
ELSEIF SHOOT("脚")
	;初めて
	IF FIRST_EV("絶頂：脚") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ELSEIF SHOOT("素股")
	PRINTFORMW
;-------------------------------------------------
;口で射精させた
;-------------------------------------------------
ELSEIF SHOOT("口")
	;初めて
	IF FIRST_EV("絶頂：口") == 0
		PRINTFORMW 「うん……うん……口にしたのは初めてだけど、美味しくないね」
		PRINTFORMW 「でもまぁ、このぐらいなら我慢できるかも……手下留情はして欲しいけどさ」
	ELSEIF COND("射精後嘔吐")
		PRINTFORMW 「はーっ…………はーーっ…………ふっ……ぅっ……！」
		PRINTFORMW 「……ご、ごめん…………ぅぷっ……ふーっ……」
		PRINTFORMW 「耐えらんなかった……せっかく気持ちよくなってくれたのに、汚いもの……見せちゃったね」
	;精液中毒Lv5
	ELSEIF ABL:精液中毒 >= 5
		PRINTFORMW
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		PRINTFORMW
	ELSEIF COND("絶頂", PLAYER) >= 3
		SELECTCASE KABURAND(3)
		CASE 2
			PRINTFORMW 「ぶ！？ ぐ、……ぎゃ、逆流して、は、鼻に……うっ！」
			PRINTFORMW 「うぐぐ、ティッシュ１枚取って……」
		CASE 1
			PRINTFORMW 「げほっ……うえぇ……ちょっと水ちょうだい、水」
		CASEELSE
			PRINTFORMW 「うぅ、多すぎ……こんなに出されると困るよ……」
		ENDSELECT
	;今回の初精飲
	ELSEIF EXP_GAIN("精飲経験") == COND("絶頂", PLAYER)
		SELECTCASE KABURAND(3)
		CASE 2
			PRINTFORMW （う、ちょっと喉に絡んじゃった…………んんんっ、……んっ！）
		CASE 1
			PRINTFORMW 「ふーっ…………。見て？酱と飲めたよ」
			PRINTFORMW %CALLNAME:TARGET%は少し誇らしげな様子を滲ませ的同时、口を開いて精液の残っていない舌を見せてきた。
		CASEELSE
			PRINTFORMW （うん……今回は唾液ためといたから、結構楽に飲めたかな）
		ENDSELECT
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW 「ふふ、出た出た……気持ちよかったみたいだね、私の胸部」
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW 「うわー見てよこれ、谷間までべっとり……ほら～」
		PRINTFORMW %CALLNAME:TARGET%は胸部をムニュムニュと揉んだ後に左右に開いて、精液が糸を引く様を見せてきた。
	;それ以外
	ELSE
		PRINTFORMW 「ふふ、出た出た……気持ちよかったみたいだね、私の胸部」
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW 「わっ……出た……！」
		PRINTFORMW 「ふ～ん…………なんていうか、粘り気強くて……掃除とか大変そうだねこれ」
		PRINTFORMW 「でも臭いは大したことないんだね、オシッコとかに比べたらさ」
	ELSEIF TEQUIP:面部騎乗
		IF COND("絶頂")
			PRINTFORMW 「ふぅ～……っ。気持ちよかったぁ……」
			PRINTFORMW 「%CNAME("二人称")%も良かったみたいだね。ふふっ」
		ELSE
			IF RAND:3 == 0 && COND("絶頂", PLAYER) >= 3 && CEVENT("垂直射精記録")
				PRINTFORMW 「おおっ？！すっ、凄い勢い……！！」
				PRINTFORMW 「ね、%CNAME("二人称")%、今の見てた？！垂直方向に30cmは飛んだよ？！」
				PRINTFORMW 「って見えるわけないか、あーあ、撮影してお君だったなぁ～～」
				CALL SET_CEVENT, "垂直射精記録"
			ELSEIF RAND:2
				PRINTFORMW 「うーい、おつかれ～。%CNAME("二人称")%は私に座られつつ手交されるの好きだねぇ」
				PRINTFORMW 「…………ん？」
				PRINTFORMW 「おぉっと！酸素たんなかった？！ゴメンゴメン！」
			ELSE
				PRINTFORMW 「お、出た出た……こんなに喜んでもらえると、干劲でちゃうなぁ」
			ENDIF
		ENDIF
		PRINTFORM %TEXTR("額に座り直して/腰を浮かせて/前傾姿勢になって")%%CALLNAME:PLAYER%に息継ぎを許した%CALLNAME:TARGET%は、
		PRINTFORMW %TEXTR("先走りでべたべたの指を轻轻地舐めて綺麗にした/柔らかくなった阴茎に接吻して労った/阴茎を扱いて精液を最後まで絞り出したのを確認した")%後、再び顔を押しつぶした。
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		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 「ん？出たの？」
		PRINTFORMW 「……ふ～ん、あんまり分かんないもんだね」
	;恋慕
	;ELSEIF TALENT:恋慕
	;	PRINTFORMW
	;それ以外
	ELSE
		SELECTCASE KABURAND(3)
		CASE 2
			PRINTFORMW 「しかしあれだね、こっちだと避妊とか考えなくていいから楽でいいよね～……んんっ、まだ出てる……」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%の阴茎を精液が通過する様を肛門で感じ取って身震いをした。
		CASE 1
			PRINTFORMW 「おっ、イっちゃった？」
			PRINTFORMW 「じゃあ、どうせだからしっかり出しきっとこうか……ほら、腰ゆっくり……動きに合わせて締めたげるから」
		CASEELSE
			PRINTFORMW 「う～い、おつかれ～」
			SIF COND("疲労") == 0 && EX:Ａ中出し == 1
				PRINTFORMW 「どうせだし、もう何発か出してく？私はまだまだ全然平気だよ」
		ENDSELECT
	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_K43, ARGS
SELECTCASE ARGS
CASE "绝顶忍耐"
	;partnerに焦らされている
	IF TEQUIP:推倒
		PRINTFORMW
	;PLAYERが绝顶忍耐
	ELSE
		;今回がこらえた初回
		IF EX:PLAYER:绝顶忍耐 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "恍惚"
	PRINTFORMW 「もしもーし？……だめか。しょうがないなぁ」
CASE "推倒"
	PRINTFORMW 「ふふ。抵抗しないってことは……そういう事だよね？」
CASE "強制終了"
	PRINTFORMW
CASE "復活"
	PRINTFORMW
CASE "恍惚から復帰"
	PRINTFORMW
CASE "助手が限界"
	PRINTFORMW
CASE "到脱力为止结束的提案"
	PRINTFORMW
CASE "拒绝到脱力为止结束"
	PRINTFORMW
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;ARGSの各CASEでの分岐において、ARGSの文字列後半に ：地の文前 を追加する事で地の文前に喋らせることもできる。
;また、そこでTFLAG:地の文スキップ = 1 とすると、本来出て来る地の文を飛ばすこともできる
;CASE "中出し後害羞"の地の文の前に喋らせたりスキップさせたい場合にはCASE "中出し後害羞：地の文前"を用意すればよい
;例）CASE "中出し後害羞：地の文前"
;		PRINTW 試しにスキップ
;		TFLAG:地の文スキップ = 1
;-------------------------------------------------
@KOJO_EVENT_K43, ARGS
SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
CASE "Ｖ避孕套装着"
	;挿入指令
	IF TRAIN_GENRE("挿入", SELECTCOM)
		;PLAYヤーは着ける気満々
		IF TEQUIP:PLAYER:避孕套

		;ご褒美に生Ｈをさせて给場合
		ELSEIF TCVAR:獎勵生H

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

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

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

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

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

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

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

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

	ELSE

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

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

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
CASE "清洁口交"
	SELECTCASE TFLAG:口上分岐
	;お掃除前
	CASE 0
		PRINTFORMW
	;お掃除中
	CASE 1
		PRINTFORMW
	;お掃除で射精しなかった
	CASE 2
		PRINTFORMW
	;お掃除で射精しそう？
	CASE 3
		PRINTFORMW
	;射精した
	CASE 4
		PRINTFORMW
	;お掃除で射精後
	CASE 5
		PRINTFORMW
	ENDSELECT
;-------------------------------------------------
;強制口交で嘔吐
;-------------------------------------------------
CASE "強制口交で嘔吐"
	;吐いた後もＨ続行したい状態
	IF COND("嘔吐後余力有")
		PRINTFORMW
	;強制口交で射精後に吐いた場合。射精個所は@KOJO_MESSAGE_SAMEN_AND_EXTACY_K43内同様にSHOOTで分岐できます
	ELSEIF COND("射精後嘔吐")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;脱衣
;-------------------------------------------------
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
		ENDIF
	ELSE
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	PRINTFORMW
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;この分岐には絶頂していない場合にのみ来ます
;----------------------------------------------------------------
CASE "中出し後挿入解除"
	PRINTFORMW
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
CASE "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;----------------------------------------------------------------
;塞子をしていない状態での液体浣腸口上。BASE:排泄物 が溜まっている物の量
;----------------------------------------------------------------
CASE "无塞浣腸事件"
	;限界値突破時
	IF BASE:排泄欲 >= 10000
		;限界値を超えたが漏らせない場合
		IF INSERT("Ａ挿入") || COND("肛門栓")
			PRINTFORMW
		;漏らす直前
		ELSE
			PRINTFORMW
		ENDIF
	;漏らした
	ELSEIF NOWEX:排泄
		;脱糞した場合。NOWEX:排泄量の値が出たものの量である
		IF NOWEX:排泄量
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;我慢しているときの口上
	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_K43, ARGS
SELECTCASE ARGS
CASE "調教相手に選ばれた"

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

	ELSE

	ENDIF

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

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

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

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

CASE "助手：撮影開始"

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

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

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

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

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

CASE "助手で性処理"

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

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

ENDSELECT

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

SELECTCASE ARGS
;CASE "勧誘"のみ、角色としてはまだ存在していないのに注意
CASE "勧誘"
	;例）卯月佑香の場合の記述
	;SIF TALENT:MASTER:男性 && TRUE_SEX(MASTER) == "男性" && TALENT:MASTER:伪娘 == 0 && ABL:MASTER:技巧 >= 3
	;	RETURN 1
	;STR:実行条件 = ※%CSVNAME(08)%は_黄色_%CALLNAME:MASTER%が男性(not伪娘)＆技巧がLv3以上の時のみ_勧誘できます※
CASE "恋慕"
	;デフォだと信頼5LV＆好感度が2500以上で恋慕
	;SIF TALENT:ACTOR:恋慕 == 0 && ABL:ACTOR:信頼 >= 5 && CFLAG:ACTOR:好感度 >= 2500
	;	RETURN 1
	;STR:実行条件 = 要:信頼5LV、好感度2500
CASE "淫乱"
	;デフォだと欲望が5以上、自慰中毒or精液中毒のどれかが3以上、今回の絶頂数が10以上で淫乱
	;SIF TALENT:ACTOR:淫乱 == 0 && ABL:ACTOR:欲望 >= 5 && MAX(ABL:ACTOR:自慰中毒, ABL:ACTOR:精液中毒) >= 3 && EX:ACTOR:絶頂数合計 >= 10
	;	RETURN 1
	;STR:実行条件 = 要:欲望5LV、自慰中毒か精液中毒のどちらかが3LV、今回の絶頂数10
CASE "相思相愛"
	;例）小早川百合香の場合の記述
	;SIF TALENT:ACTOR:恋慕 && TALENT:MASTER:男性 == 0
	;	RETURN 1
	;STR:実行条件 = イエロー_（※%CALLNAME:MASTER%が[男性]の場合には、%CALLNAME:ACTOR%と[相思相愛]にはなれません）
CASE "淫紋贴纸"
	SIF MARK:ACTOR:淫紋 == 0 && ABL:ACTOR:欲望 >= 5 && MARK:ACTOR:屈服刻印
		RETURN 1
	STR:実行条件 = イエロー_(※%NAME:ACTOR%に淫紋贴纸を付けてもらうには、[欲望LV5]かつ[屈服刻印LV1]の必要が有ます)
CASE "淫紋"
	;デフォだと[淫乱]or[受虐属性LV3]or[屈服刻印LV3]
	;SIF TALENT:ACTOR:淫乱 || ABL:ACTOR:受虐属性 >= 3 || MARK:ACTOR:屈服刻印 >= 3
	;	RETURN 1
	;STR:実行条件 = イエロー_(※%NAME:ACTOR%に淫紋を受け入れてもらうには、[淫乱]or[屈服刻印LV3]or[受虐属性LV3]の必要が有ます)
CASE "避妊の護符の解除"
	;例）風花維吹の場合の記述
	;維吹は[相思相愛]まで避妊の護符を解除しない
	;SIF TALENT:ACTOR:相思相愛
	;	RETURN 1
	;STR:実行条件 = イエロー_※維吹は[相思相愛]になるまで避妊の護符を破棄しません
ENDSELECT

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

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

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

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

;閲覧していないイベントがある場合などに選択肢と色を変える事も出来る。これ以外でも好きな条件で変えて良い
;IF COND("未読ＥＮＤ選択可能")
;	STR:ＥＮＤ标题 = 终末之始
;	;これを指定しない場合には本体側で STR:ＥＮＤカラー = 爱心粉紅 となる
;	STR:ＥＮＤカラー = 爱心粉紅
;ENDIF

RETURN 1

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

path: ERB/EVENT_K/43 うお子/EVENT_K43_秋月うお子.ERB