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

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 我_我
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		LOCALS = 前輩_前輩
	;相手が主人ではない
	ELSE
		LOCALS = 你_你
	ENDIF
;ここ莉雅拉老师のマネ,CASEELSEの下に持ってくるのはまずいらしい
CASE "精子"
	LOCALS  = 精子_せいし/せーし_せーし/精子_せいし/せーし_せーし/精子_せいし/子種_こだね/
	LOCALS += "精子_せいし/子種_こだね/遺伝子_いでんし/精虫_せいちゅう/精細胞_せいさいぼう/"
CASE "精液"
	LOCALS  = 精液_ざーめん/ザー汁_ざーじる/スペルマ_すぺるま/ちんぽ汁_ちんぽじる/濃厚ミルク_のうこうみるく/
	LOCALS += "性欲の塊_せいよくのかたまり/オス汁_おすしる/オスの獣液_おすのじゅうえき/せーえき_せーえき/蛋白液_たんぱくえき/"
	LOCALS += "精液_せいえき/せーえき_せーえき/精液_せいえき/精液_ざーめん/精液_せいえき/精液_ざーめん/"
CASE "射精音"
	LOCALS  = びゅりゅびゅりゅ_びゅりゅびゅりゅ/びゅーびゅー_びゅーびゅー/どくどく_どくどく/ぴゅっぴゅ_ぴゅっぴゅ/びゅくびゅく_びゅくびゅく/ぴゅゆぴゅりゅ_ぴゅるぴゅる/
	LOCALS += "ビュリュビュリュ_びゅりゅびゅりゅ/ビュービュー_びゅーびゅー/ドクドク_どくどく/ピュッピュ_ぴゅっぴゅ/ビュクビュク_びゅくびゅく/ピュルピュル_ぴゅるぴゅる/"
CASE "子宮"
	LOCALS  = 子宮_しきゅう/子宮_しきゅう/子宮_しきゅう/お腹の奥_おなかのおく/メスの器官_めすのきかん/精液タンク_せいえきたんく/
	LOCALS += "子宮_しきゅう/子宮_しきゅう/子宮_しきゅう/お腹の奥_おなかのおく/"
	LOCALS += "精液捨場_ざーめんすてば/スペルマ廃棄所_すぺるま是きじょ/オス液投棄場_おすえきとうきば/排泄先_是せつさき/"
CASE "膣"
	LOCALS  = おまんこ_おまんこ/肉飞机杯_にくおなほ/チンポしごき穴_ちんぽしごきあな/精液絞り器_ざーめんしぼりき/シコシコ穴_しこしこあな/
	LOCALS += "オネダリ穴_おねだりあな/飞机杯_飞机杯/チンコキホール_ちんこきほーる/"
CASE "陰茎形容"
	SELECTCASE SIZE("阴茎")
	;馬根、規格外
	CASE IS >= 3
			LOCALS = バケモノ_ばけもの/猛獣_もうじゅう/殺人_さつじん/人外_じんがい/
	;巨根
	CASE 2
			LOCALS = 凶悪_きょうあく/極悪_ごくあく/極太_ごくぶと/凶暴_きょうぼう/
	;普通
	CASE 1
			LOCALS = 精力超群_ぜつりん/変態_へんたい/ヤリチン_やりちん/つよつよ_つよつよ/
	;短小
	CASEELSE
			LOCALS = 可爱_可爱/キュートな_きゅーとな/
	ENDSELECT
;この下は三人称。
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)
			IF TALENT:ACTOR:男性
				LOCALS = %CALLNAME:ACTOR%_%CSTR:ACTOR:ふりがな%
			ELSE
				LOCALS = %CALLNAME:ACTOR%酱_%CALLNAME:ACTOR%酱
			ENDIF
		;相手が上級生
		ELSE
			LOCALS = %CALLNAME:ACTOR%前輩_%CSTR:ACTOR:ふりがな%前輩
		ENDIF

	;それ以外
	ELSE
		LOCALS = %CALLNAME:ACTOR%桑_%CALLNAME:ACTOR%桑
	ENDIF

ENDSELECT
RETURNF LOCALS

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

SELECTCASE ARGS
CASE "紹介文"
		;注意！ここに限り、STR:1～STR:15を用いて記述します。他の角色の同じ場所を参考にして下さい
		STR:1 = 拥有着肉感的早熟身体的中等部女学生
		STR:2 = 对正值青春期的中等部男孩子们产生了很强的刺激
		STR:3 = 因此在班级中被列为了第三的性幻想对象
		STR:4 = 当被男性以性的目光注视的时候会产生强烈的优越感
		STR:5 = 也因此想要击败在性幻想对象上比自己更有人气的对手
		STR:6 = 似乎也是因为自己明明拥有着淫魔的血脉却输给了纯人类而感到不甘心
		STR:7 = 偶然听说了有着可以增强这份力量的人的存在而选择加入到了部活之中
;ここの中に限り、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
	PRINTFORMW 「どうもこんにちは。ウワサを聞いて来たんですけれども」
	PRINTFORML 中等部の制服を着た女生徒がノックもせずに部室に入ってきた
	PRINTFORMW しかし的同时、その体格は同級生と見まごう姿である
	PRINTFORMW 特に那豊満的胸圍、中等部の生徒としては確実に少数派であろう
	PRINTFORMW 「あ、やっぱりこんな可疑部屋の%CNAME("二人称")%も胸部見るんですね」
	PRINTFORMW 「いや責めてるわけではないというか、むしろ望むところというか」
	PRINTFORMW 「私って单薄的けど淫魔の血が流れてるらしくて男子が%CNAME("一人称")%で欲情すると嬉しいんですよね」
	PRINTFORMW 「クラスの男子も結構な人数が%CNAME("一人称")%で自慰してると思います」
	PRINTFORMW 「むしろ淫魔の血が流れてる自分よりズリネタに使われてるだろう女子がいるのが許せないというか」
	PRINTFORMW 「純粋な人类なのに%CNAME("一人称")%より使われてる女子が二人もいるんですよウチのクラス」
	PRINTFORMW 「そしたら、ここに淫魔の力を強くする精液を出せる人がいるなんて話を聞いたんですよね」
	PRINTFORMW 「というわけで%CNAME("二人称")%の精液で%CNAME("一人称")%をクラスで一番のオナペットに成長させてください」
;これは別になくても構いません
CASE "勧誘直後"
	PRINTFORMW 「…やっぱり目の前で自慰して精液だけくれるというわけに是かないですよね」
	PRINTFORMW 「その、手や胸部でシコシコしますけど、処女なので性交は勘弁してください」
	PRINTFORMW ！！屈服刻印上昇で解禁されます
;これも別になくても構いません。特殊な条件がある場合などにどうぞ
CASE "出現条件"
	PRINTFORMW %NAME:TARGET%は%CSTR:関係%を目的として、(昼)の部室に顔を出してくれます。

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

	ELSE

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

ENDSELECT

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

;屈服刻印が0の場合AV挿入禁止
IF MARK:屈服刻印 == 0
	DITEMTYPE:TARGET:13 = 1
	DITEMTYPE:TARGET:31 = 1
	DITEMTYPE:TARGET:60 = 1
	DITEMTYPE:TARGET:61 = 1
	DITEMTYPE:TARGET:62 = 1
	DITEMTYPE:TARGET:63 = 1
	DITEMTYPE:TARGET:64 = 1
	DITEMTYPE:TARGET:65 = 1

	DITEMTYPE:TARGET:70 = 1
	DITEMTYPE:TARGET:71 = 1
	DITEMTYPE:TARGET:72 = 1
	DITEMTYPE:TARGET:73 = 1
	DITEMTYPE:TARGET:74 = 1
	DITEMTYPE:TARGET:75 = 1
	DITEMTYPE:TARGET:76 = 1
	DITEMTYPE:TARGET:77 = 1
	DITEMTYPE:TARGET:78 = 1
	DITEMTYPE:TARGET:79 = 1
;屈服刻印が1の場合V挿入禁止
ELSEIF MARK:屈服刻印 <= 1
	DITEMTYPE:TARGET:13 = 1
	DITEMTYPE:TARGET:31 = 1
	DITEMTYPE:TARGET:60 = 1
	DITEMTYPE:TARGET:61 = 1
	DITEMTYPE:TARGET:62 = 1
	DITEMTYPE:TARGET:63 = 1
	DITEMTYPE:TARGET:64 = 1
	DITEMTYPE:TARGET:65 = 1
ENDIF

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

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

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	PRINTFORMW 「実は男の人のおちんちん見るのって初めてなんですよね」
	PRINTFORMW 「男子ってこんなふうになっちゃってたんだ・・・」
	PRINTFORMW 「知識としては知ってたけど実際見るとちょっと威圧感を覚えますね」
	PRINTFORMW 「早速ですけど、せーえきの臭いとかも教えてください」
	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;初めてのご褒美Ｈ
ELSEIF EQUIP:Ｈ的奖励 && CEVENT("調教開始：ご褒美Ｈ") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：ご褒美Ｈ"
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	PRINTFORMW 「その、エッチは禁止なんですけど」
	PRINTFORMW 「なんといいますか」
	PRINTFORMW 「お手手やお口や胸部でシコシコするのはやってきたじゃないですか」
	PRINTFORMW 「もし%CNAME("二人称")%がどうしても%CNAME("一人称")%の中で精液出したいんでしたら」
	PRINTFORMW 「お菊門でしたら射精してくれて構いませんよ？」
	PRINTFORMW 「ソッチのほうが%CNAME("一人称")%の精液の効果が有そうですし」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	PRINTFORMW 「・・・・・・・・・・・・・・・・・・・・・・・・・・・・」
	PRINTFORMW 「あのですね、その、なんだ、えっと・・・」
	PRINTFORMW 「・・・・・・・・・・・・・・・」
	PRINTFORMW 「やっぱり淫魔の力は、その、膣というか、ヴァギナに影響があるんですよ」
	PRINTFORMW 「だからですね・・・本当に淫魔としての力を育てるならですね」
	PRINTFORMW 「あー・・・」
	PRINTFORMW 「・・・・・・ヴァギナへの挿入は避けては通れないかもしれないわけですね」
	PRINTFORMW 「だから、避孕套を使えば、それは性交じゃないわけでして」
	PRINTFORMW 「いや、その、子作りするのが性交ですよね、だから・・・・・・・・」
	PRINTFORMW 「・・・・・・%CNAME("一人称")%のヴァギナを使って自慰してもいいですよ」
	PRINTFORMW 「ええ、あくまで%CNAME("二人称")%の自慰の道具として使うだけです」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTFORMW 「・・・%CNAME("二人称")%ならいいですよ、ゴミ箱じゃなくて子宮に精液捨てても」
	PRINTFORMW 「%CNAME("一人称")%はみんなのオナペットだから恋人にはなれませんけど」
	PRINTFORMW 「%CNAME("二人称")%には特別に%CNAME("一人称")%の子育て袋を精液廃棄所として使う権利をあげます」
	PRINTFORMW 「等身大の飛機杯はラブドールって言うんでしたっけ？」
	PRINTFORMW 「クラスのみんなが自分の手でシコシコして・・・ゴミ箱にオナティッシュを捨ててる間に・・・」
	PRINTFORMW 「%CNAME("二人称")%は後輩ラブドールのオマンコでシコシコして中学生の子宮に精液捨てていいですよ」
	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 K58_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 K58_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K58_KOJO2
;恋慕
IF TALENT:恋慕
	PRINTFORMW
;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0
	PRINTFORMW
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
	PRINTFORMW
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW
ENDIF
RETURN 1

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

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
	;恋慕or屈服刻印3
	IF TALENT:恋慕 || MARK:屈服刻印 == 3
		IF EX:Ｖ中出し > 0
			PRINTFORMW %CALLNAME:TARGET%は你の精液が注がれたお腹を開心地なでている
			IF COND("妊娠中：妊娠発覚済み")
				PRINTFORMW 「赤酱がいる子宮をまだ%CNAME("二人称")%のゴミ箱扱いなんて酷いですよ」
			ELSE
				PRINTFORMW 「ゴミ箱を妊娠させるつもりですか？%CNAME("二人称")%専用の特別品だから本当に孕みますよ？」
			ENDIF
			IF EX:Ｖ中出し == 1
				PRINTFORMW 「こんな1回だからって濃厚的%CNAME("精液")%を%CNAME("射精音")%出したらいっぱいなんですから」
			ELSE
				PRINTFORMW 「%CNAME("射精音")%%CNAME("射精音")%%CNAME("射精音")%{EX:Ｖ中出し}回も%CNAME("精液")%を%CNAME("子宮")%に注がれたら満杯になっちゃいますよ」
			ENDIF
		ELSEIF COND("避孕套搾精量") > 0
			PRINTFORMW 「避孕套{COND("避孕套使用数")}個もなんていっぱい%CNAME("精液")%%CNAME("射精音")%しちゃいましたね」
			PRINTFORMW 「どうですか？%CNAME("一人称")%の膣穴飞机杯で自慰よかったですか？」
		ELSEIF EX:Ａ中出し > 0
			PRINTFORMW 「%CNAME("一人称")%のケツ穴でたく桑自慰しちゃいましたね」
			PRINTFORMW 「後で廁所がちょっと大変なんですけど・・・その、%CNAME("一人称")%も気持ちいいから大丈夫です」
		ELSEIF EX:口内射精 > 2
			PRINTFORMW 「{EX:口内射精}回も%CNAME("精液")%を%CNAME("射精音")%飲ませましたね・・・」
			PRINTFORMW 「まぁ%CNAME("二人称")%の%CNAME("精液")%是くらでも飲めちゃうんですけど」
		ELSE
			PRINTFORMW 「精根尽き果てるまで自慰しちゃいましたね」
		ENDIF
	;其他
	ELSE
			PRINTFORMW 「精根尽き果てるまで自慰しちゃいましたね」
	ENDIF
;恋慕
ELSEIF TALENT:恋慕 || MARK:屈服刻印 == 3
	IF EX:Ｖ中出し > 0
		PRINTFORMW %CALLNAME:TARGET%は你の精液が注がれたお腹に手を当て荒い息をついている
		PRINTFORMW 「%CNAME("二人称")%のおちんぽ暴れ過ぎです」
		IF EX:Ｖ中出し == 1
			PRINTFORMW 「１回だけだからって、あんな特濃%CNAME("精液")%を%CNAME("射精音")%%CNAME("射精音")%しちゃうなんて」
		ELSE
			PRINTFORMW 「{EX:Ｖ中出し} 回も%CNAME("射精音")%%CNAME("射精音")%しちゃうなんて」
		ENDIF
		PRINTFORMW 「%CNAME("二人称")%専用飞机杯を%CNAME("精液")%で壊しちゃう気ですか？」
	ELSEIF COND("避孕套搾精量") > 0
		PRINTFORMW %CALLNAME:TARGET%はは你の精液で膨らんだ避孕套をお腹の上に乗せて並べている
		PRINTFORMW 「避孕套{COND("避孕套使用数")} 個の%CNAME("精液")%採取完了です」
		PRINTFORMW 「この避孕套がなかったら%CNAME("子宮")%に%CNAME("二人称")%の%CNAME("精子")%がいっぱい侵入してたんですよ」
		IF COND("妊娠中：妊娠発覚済み")
			PRINTFORMW 「まぁもう%CNAME("二人称")%の赤酱がいるから無駄足なんですけどね」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%専用%CNAME("子宮")%は妊娠能力もあるんだから気をつけてくださいね」
		ENDIF
	ELSEIF EX:Ａ中出し > 0
		PRINTFORMW 「もー、こんな%CNAME("射精音")%注いじゃって、廁所が大変なんですからね」
	ELSEIF EX:口内射精 > 2
		PRINTFORMW 「{EX:口内射精}回も%CNAME("二人称")%%CNAME("精液")%いただきました！」
		PRINTFORMW 「頑張って射精したおちんちんに熱い接吻をもう一度あげます」
		PRINTFORMW 「・・・もう一発おねだりしていいですか？」
	ELSE
	ENDIF
;恋慕
;屈服刻印Lv1以下
ELSEIF MARK:屈服刻印 <= 1
	PRINTFORMW 「いっぱいエッチ・・・じゃなかった自慰しましたね」
	PRINTFORMW 「%CNAME("二人称")%の%CNAME("精液")%もっとくれないと進化できないんだけどな～」
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW 「%CNAME("二人称")%ってやっぱり他の男子とは絶対違いますよね」
	PRINTFORMW 「%CNAME("一人称")%、%CNAME("二人称")%なら・・・いえ、その、なんでもないです」
ENDIF
RETURN 1

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

;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	CALL KOJO_RAND_K58("愛撫")
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「どうですか？自慢の玩偶身材ですよ」
		PRINTFORMW 「クラスの男子のエロい目つきが魅力十分なことを毎日教えてくれるんです」
		PRINTFORMW 「アイツラが妄想で我慢してるこの体、%CNAME("二人称")%は好きなだけ揉んだり舐めたりしていいですよ」
		PRINTFORMW 「その代わり他の女子に負けないくらいの魅力になるよう能力を育ててくださいね」
	;二回目以降
	ELSE
;ここの分岐は莉雅拉老师のマネ
		IF RAND:14 == 0
			PRINTFORMW 「%CNAME("二人称")%のやっぱり擅長いですよね♪」
		ELSEIF RAND:13 == 0
			PRINTFORMW 「ソコばっかりジロジロ見るやついるんすよね～」
		ELSEIF RAND:12 == 0
			PRINTFORMW 「%CNAME("二人称")%以外はまだ見たことないですよ」
			PRINTFORMW 「着替えの盗撮で見た奴是るかも知れないですけれど♪」
		ELSEIF RAND:11 == 0
			CALL PRINT_STR, "「なんだか不思議と体が活性化されてきてる気がします」_W"
			CALL PRINT_STR, "「このペースなら魅力倍増ですね_H_」_W"
		ELSEIF RAND:10 == 0 && INSERT("Ｖ挿入")
			CALL PRINT_STR, "「_HH_HH_」_W"
			CALL PRINT_STR, @"「%CNAME("二人称")%の%CNAME("膣")%ハメハメすごすぎます_H_」_W"
			CALL PRINT_STR, "「～～～～っ_H_」_W"
		ELSEIF RAND:9 == 0 && MARK:淫紋
			CALL PRINT_STR, @"「%CNAME("二人称")%専用マークさわっちゃダメ _HH_」_W"
			CALL PRINT_STR, "「～～～～_HH_」_W"
		ELSEIF RAND:8 == 0 && EXP_GAIN("膣内精液経験")
			CALL PRINT_STR, @"「%CNAME("二人称")%の%CNAME("精液")%くちゅくちゅしないでください_HH_」_W"
			CALL PRINT_STR, @"「%CNAME("膣")%をもっともっと使ってほしくなってしまいます_HH_HH_」_W"
			PRINTFORMW %CALLNAME:TARGET%はだらしなく開いた股の合間から%TEXTR("ごぼごぼと/どろりと")%%CALLNAME:PLAYER%の精液を零しながら期待に満ちた瞳で%CALLNAME:TARGET%を見ている……
		ELSEIF RAND:7 == 0
			CALL PRINT_STR, "「やっぱり男子って触るの好きなんですよね_H_」_W"
			CALL PRINT_STR, "「クラスの奴らもこんなふうにする妄想でシコってるんですかね_H_」_W"
		ELSEIF RAND:6 == 0
			CALL PRINT_STR, @"「揉んで育つって本当なんですかね」_W"
			CALL PRINT_STR, @"「私は育ててもらうためにここに来てるから、もっと揉んでください_H_」_W"
		ELSEIF RAND:5 == 0
			CALL PRINT_STR, @"「やっぱり%CNAME("二人称")%ってテクニシャンですよね」_W"
			CALL PRINT_STR, @"「こんなふうに二箇所を同時に別々の動きで責められるんですから_HH_」_W"
		ELSEIF RAND:4 == 0
			PRINTFORMW 「そんな触れるか触れないかみたいな動きがうますぎませんか？」
			PRINTFORMW 「やっぱりいろんな女の子を食べちゃう%CNAME("二人称")%の経験値ですかね」
		ELSEIF RAND:3 == 0 && COND("Ｖ潤充分") && MARK:屈服刻印 >= 2
			PRINTFORMW 「%CNAME("二人称")%を%CNAME("膣")%でズポズポズポするためのお汁が溢れちゃってます」
			PRINTFORMW 「ねえ%CNAME("二人称")%、もう%CNAME("膣")%を使ってもいいですよ？」
		ELSEIF RAND:2 == 0 && COND("Ｖ潤充分") && MARK:屈服刻印 >= 2
			PRINTFORMW 「もう%CNAME("膣")%の潤滑液いっぱい出しましたよ……」
			PRINTFORMW 「%CNAME("一人称")%の%CNAME("膣")%で%CNAME("射精音")%%CNAME("精液")%出しませんか？」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%のえっちな手でいっぱい育っちゃいますね♪」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;肛門愛撫
;-------------------------------------------------
IF SELECTCOM == 2
	CALL KOJO_RAND_K58("愛撫")
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;気持ちいい
		IF CHECK("Ａ指挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		;気持ちいい
		ELSEIF CHECK("Ａ指挿入")
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					IF TALENT:結腸性感
						PRINTFORMW
					ELSE
						PRINTFORMW
					ENDIF
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;-------------------------------------------------
IF SELECTCOM == 3
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「あれ？見るだけでいいんですか？」
		PRINTFORMW 「まぁ自己育てるのも重要といえば重要ですけれども」
		PRINTFORMW 「いいですよ、見られるのは慣れてますから」
	;二回目以降
	ELSE
		;口交自慰音追加
		;ここ西西莉亚と同じ
		IF CHECK_COM("口交自慰") && TALENT:恋慕
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("ぺろ…/ちゅっ…/ちゅる…/ぺろ")%_H_%TEXTR("ちろっ/ぺろっ…/ぺろ…/ぺろ/ちろ…ちろ")%_H_」_L"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("じゅる…/ちゅっ…/ちゅる…/じゅるる")%_H_%TEXTR("ちゅっ/ちゅっ…/じゅるる…/ちゅっ…ちゅっ")%_H_」_L"
			ENDIF
		ELSEIF CHECK_COM("口交自慰")
			IF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("ぺろ…/ちゅっ…/ちゅる…/ぺろ")%…%TEXTR("ちろっ/ぺろっ…/ぺろ…/ぺろ/ちろ…ちろ")%…」_L"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("じゅる…/ちゅっ…/ちゅる…/じゅるる")%…%TEXTR("ちゅっ/ちゅっ…/じゅるる…/ちゅっ…ちゅっ")%…」_L"
			ENDIF
		ENDIF
		;飞机杯自慰
		IF STRCOUNT(CHECK_ONANIE(SELECTCOM), "飞机杯")
		;両穴振動棒自慰
		ELSEIF STRCOUNT(CHECK_ONANIE(SELECTCOM), "両穴振動棒")
			;恋慕
			IF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STR, @"「%CNAME("二人称")%_HH_%CNAME("二人称")%」_W"
			;それ以外
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, @"「両方は_H_すごすぎます_H_」_W"
			ELSE
				CALL PRINT_STR, @"「だめです_H_ズポズポ止まらない_H_」_W"
			ENDIF
		;Ｖ振動棒自慰
		ELSEIF STRCOUNT(CHECK_ONANIE(SELECTCOM), "Ｖ振動棒")
			;恋慕
			IF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STR, @"「%CNAME("二人称")%の%CNAME("膣")%をほぐしちゃいます_HH_」_W"
			;それ以外
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ズポズポズポするの気持ちいいです」
			ELSE
				PRINTFORMW 「振動棒レーターってエッチで気持ちよすぎる形ですよね」
			ENDIF
		;Ａ振動棒自慰
		ELSEIF STRCOUNT(CHECK_ONANIE(SELECTCOM), "Ａ振動棒")
			PRINTFORML %TEXTR("やぁっ/んっ…/やぁん/あぁ")%♪%TEXTR("にゃっ/んっ…/にゅ/にゃぁ")%♪
			;恋慕
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORML %TEXTR("おっ/んっ…/んふぅ/おぉ")%♪%TEXTR("おっ/んっ…/んふぅ/おぉ")%♪
				PRINTFORMW 「お尻ズポズポ♪気持ちいいい♪」
			;それ以外
			ELSEIF RAND:2 == 0
				PRINTFORMW 「おしりで気持ちよくなれる道具って素敵♪」
			ELSE
				PRINTFORML %TEXTR("やぁっ/んっ…/やぁん/あぁ")%♪%TEXTR("にゃっ/んっ…/にゅ/にゃぁ")%♪
			ENDIF
		;尿道振動棒自慰
		ELSEIF STRCOUNT(CHECK_ONANIE(SELECTCOM), "尿道振動棒")
		;以下は道具没有で自分の指を使う
		ELSE
			SELECTCASE FAV_ONANIE(SELECTCOM, "一番")
			CASE "Ｃ"
				;ちんこ自慰
				IF PENIS(TARGET)
				;阴蒂自慰
				ELSE
					IF TALENT:恋慕 && RAND:2
						IF RAND:2
							PRINTFORML 「阴蒂を育てても外からじゃわかりませんよ」
							PRINTFORML 「いや、もちろん気持ちいいんですけど」
							PRINTFORMW %CALLNAME:TARGET%はどこか媚びるような手付きでいやらしく指を使っている
						ELSE
							PRINTFORML 「あんまり大きくしちゃうと泳装を着たときに目立っちゃいますね」
							PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%をまっすぐ見つめながら腰を浮かせて性感を得ている
						ENDIF
					ELSEIF RAND:2 == 0
						PRINTFORML 「男子たちを自慰させるのは好きですけど、自分がするのも嫌いじゃないです？」
						PRINTFORMW %CALLNAME:TARGET%は手慣れた手付きで自らを愛撫している
					ELSE
						PRINTFORMW 「男の子みたいにシコシコしても%CNAME("精液")%は出ないのが女の子の楽なところですね？」
						SIF TALENT:恋慕
							PRINTFORMW %CNAME("二人称")%のをシコシコしてもいいですか？
					ENDIF
				ENDIF
			;Ｖ自慰
			CASE "Ｖ"
				;恋慕
				IF TALENT:恋慕 && RAND:3 == 0
					CALL PRINT_STR, @"「_HH_%CNAME("二人称")%の%CNAME("精液")%が欲しくてたまらない%CNAME("膣")%が泣いちゃってますよ_HH_」_W"
				;それ以外
				ELSEIF RAND:2 == 0
					PRINTFORMW 「男子の奴ら、きっとここの触り心地を想像してシコシコしてるんですよ」
				ELSE
					PRINTFORMW 「ザラザラした感覚、やっぱりチンポをシコシコするための場所なんだなって」
				ENDIF
			;Ａ自慰
			CASE "Ａ"
				;恋慕
				IF TALENT:恋慕 && RAND:3 == 0
					PRINTFORMW 「%CNAME("二人称")%のせいでお尻大変なんですからね」
				;それ以外
				ELSEIF RAND:2 == 0
				ELSE
				ENDIF
			;Ｂ自慰
			CASE "Ｂ"
				;恋慕
				IF TALENT:恋慕 && RAND:3 == 0
				;それ以外
				ELSEIF RAND:2 == 0
				ELSE
				ENDIF
			CASE "尿"
				;尿道指插入自慰
				IF CALCF("尿道径") > SIZE("指の直径", PLAYER)
				;尿道口自慰
				ELSE
				ENDIF
			ENDSELECT
		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
	CALL KOJO_RAND_K58("愛撫")
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「やっぱり胸部大好きですよね男子って」
		PRINTFORMW 「体育のときとか視線が集中するのが丸わかりですごいんですよ」
		PRINTFORMW 「試しにわざと見えるような場所で着替えたら・・・あのあとはしばらく目つきが違いましたね」
		PRINTFORMW 「うちのクラスの男子のズリネタ、%CNAME("二人称")%が揉んでもっと凶悪にしてください」
	;二回目以降
	;母乳体質
	ELSEIF TALENT:母乳体質
		IF COND("喝母乳フラグ", PLAYER)
			IF INSERT("Ｖ挿入")
				IF RAND:2 == 0
					CALL PRINT_STR, @"「赤酱用のミルクおいしいですか_H_」_W"
					CALL PRINT_STR, @"「%CNAME("一人称")%のミルクを胸部から絞ってくれてますから_H_」_W"
					CALL PRINT_STR, @"「礼物に頑張って%CNAME("膣")%をおちんちんミルク絞りがんばります_HH_」_W"
				;それ以外
				ELSE
					CALL PRINT_STR, @"「お互いに「ミルク」絞っちゃいましょうね_HH_」_W"
				ENDIF
			ELSEIF INSERT("Ａ挿入")
				IF RAND:3 == 0
					PRINTFORMW 「お尻ズポズポしながら吸わないでください♪」
				;それ以外
				ELSEIF RAND:2 == 0
					PRINTFORMW 「おいしいですか？」
				ELSE
					PRINTFORMW 「ちょっと絞る力強すぎです♪」
				ENDIF
			ELSE
				IF RAND:2 == 0
					CALL PRINT_STR, @"「いっぱい飲んでくださいね_HH_」_W"
				ELSE
					PRINTFORMW 「%CNAME("二人称")%の妈妈の胸部ですよ～」
					PRINTFORMW 「なんて、美味しそうにぐぴぐぴ吸われたらっちょっと母性芽生えちゃうかもです」
				ENDIF
			ENDIF
		ELSEIF INSERT("Ｖ挿入")
			;恋慕
			IF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STR, @"「%CNAME("二人称")%専用の%CNAME("膣")%ハメハメしながら乱暴にしないでください_HH_」_W"
				CALL PRINT_STR, @"「そうやって胸部ガッシリホールドされると・・・チンポに逆らえなくなっちゃいます_HH_」_W"
			;それ以外
			ELSEIF RAND:2 == 0
				PRINTFORMW 「男子の猥談が聞こえることあって…要約すると「チンコハメてぇ～」か「胸部揉みてぇ～」の2択なんですよ」
				PRINTFORMW 「%CNAME("二人称")%は両方やっちゃう欲張りや桑ですね？」
			ELSE
				PRINTFORMW 「そんなわしづかみにしちゃうなんて♪」
				CALL PRINT_STR, @"「胸部は%CNAME("二人称")%の飞机杯用ハンドルじゃないんですよ_HH_」_W"
			ENDIF
		ELSEIF INSERT("Ａ挿入")
			IF RAND:3 == 0
				PRINTFORMW 「お尻素股しながらはダメですぅ♪」
			;それ以外
			ELSEIF RAND:2 == 0
				PRINTFORMW 「お尻と胸部、両方は欲張りじゃないですか？♪」
			ELSE
				PRINTFORMW 「やっぱり%CNAME("二人称")%のテクニックすごすぎます♪」
			ENDIF
		ELSE
			;恋慕
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW 「%CNAME("二人称")%の赤酱のために母乳を作るようになって張りが強くなりました」
				CALL PRINT_STR, "「やっぱりクラスの男子からは「絞りてぇ～」みたいに思われてるっぽくて嬉しいです_H_」_W"
			;それ以外
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%CNAME("二人称")%の赤酱に母乳を作るようになってから大変なんですよ」
				PRINTFORMW 「『母乳が出るようなコト』しちゃったんだってクラスの男子にバレバレですからね」
				CALL PRINT_STR, @"「もちろん%CNAME("二人称")%と違ってあいつらは家でシコるだけですけど_HH_」_W"
			ELSE
				PRINTFORMW 「適度に母乳を出さないと辛いんですよ」
				PRINTFORMW 「いくら私でも教室の中で絞るわけには行きませんからね…」
				PRINTFORMW 「せっかくなのでいっぱい味わってください」
			ENDIF
		ENDIF
	;挿入時
	ELSEIF INSERT("Ｖ挿入")
		;恋慕
		IF TALENT:恋慕 && RAND:4 == 0
			CALL PRINT_STR, @"「%CNAME("二人称")%専用の%CNAME("膣")%ハメハメしながら乱暴にしないでください_HH_」_W"
			CALL PRINT_STR, @"「そうやって胸部ガッシリホールドされると・・・チンポに逆らえなくなっちゃいます_HH_」_W"
		;それ以外
		ELSEIF RAND:3 == 0
			CALL PRINT_STR, @"「お馬桑に鞭つけるみたいに_HH_%TEXTR("オッ餡餅/胸圍")%握りしめて_HH_%CNAME("膣")%もっと締めろって急かされちゃってる_HH_」_W"
		ELSEIF RAND:2 == 0
			PRINTFORMW 「男子の猥談が聞こえることあって…要約すると「チンコハメてぇ～」か「胸部揉みてぇ～」の2択なんですよ」
			CALL PRINT_STR, @"「%CNAME("二人称")%は両方やっちゃう欲張りや桑ですね？_HH_」_W"
		ELSE
			PRINTFORMW 「そんなわしづかみにしちゃうなんて♪」
			CALL PRINT_STR, @"「胸部は%CNAME("二人称")%の飞机杯用ハンドルじゃないんですよ_HH_」_W"
		ENDIF
	ELSEIF INSERT("Ａ挿入")
		IF RAND:3 == 0
			PRINTFORMW 「お尻素股しながらはダメですぅ♪」
		;それ以外
		ELSEIF RAND:2 == 0
			PRINTFORMW 「お尻と胸部、両方は欲張りじゃないですか？♪」
		ELSE
			PRINTFORMW 「やっぱり%CNAME("二人称")%のテクニックすごすぎます♪」
		ENDIF
	ELSE
		;恋慕
		IF TALENT:恋慕 && RAND:5 == 0
			PRINTFORMW 「%CNAME("二人称")%にいっぱい揉まれたおかげでエッチな形变成了みたいです」
			CALL PRINT_STR, "「男子たちが妄想でモミモミする胸部、もっと揉んでいいですよ_H_」_W"
		;それ以外
		ELSEIF RAND:4 == 0
			PRINTFORMW 「クラスの目線を大いに集める胸部を随便る贅沢な%CNAME("二人称")%」
			PRINTFORMW 「男子たちにバレたら土下座して俺にも揉ませてくださいって頼み込まれちゃうかもしれませんよ」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「体操服って制服より胸部の形出るじゃないですか」
			PRINTFORMW 「他の時間より目線集めやすくて…もっと集められるよう育ててくださいね」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「今日、ある男子と正面向かって話したら、目線がガッツリ胸部だったんですよね～」
			PRINTFORMW 「ちょうど今%CNAME("二人称")%がモミモミしてるみたいに「揉みてぇ～」って妄想してるみたいでした」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%の胸部はまだまだ育ちますよ」
			PRINTFORMW 「%CNAME("二人称")%のおかげで高等部に入る頃にはもっともっと育つかもです」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	CALL KOJO_RAND_K58("接吻")
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;テンダー接吻
		IF CHECK_COM("テンダー接吻")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;舐肛　Ａ面部騎乗(被逆推ているとき)
;-------------------------------------------------
;舐肛
IF SELECTCOM == 9
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方手交
;-------------------------------------------------
IF SELECTCOM == 10
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方乳交
;-------------------------------------------------
IF SELECTCOM == 11
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方足交
;-------------------------------------------------
IF SELECTCOM == 12
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開阴道
;-------------------------------------------------
IF SELECTCOM == 13
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「こうやって他人に見せるのは初めてですよ」
		PRINTFORMW 「今となっては%CNAME("二人称")%の飛機杯なわけですが・・・」
		PRINTFORMW 「酱と気持ちよさそうな見た目してますか？」
	;二回目以降
	ELSEIF EX:Ｖ中出し > 0
		PRINTFORMW 「%CNAME("二人称")%の%CNAME("精液")%が酱と見えますか？」
		IF EX:Ｖ中出し == 1
			PRINTFORMW 「１回%CNAME("射精音")%しただけでこんなになんて」
		ELSE
			PRINTFORMW 「%CNAME("射精音")%%CNAME("射精音")%{EX:Ｖ中出し} 回も出しちゃって」
		ENDIF
		PRINTFORMW 「%CNAME("子宮")%にいっぱい注がれちゃいました」
	ELSEIF COND("避孕套搾精量") > 0
		PRINTFORMW %CALLNAME:TARGET%は你の精液で膨らんだ避孕套を膣穴に添えた
		PRINTFORMW 「避孕套を{COND("避孕套使用数")} 個分もズポズポ%CNAME("射精音")%しちゃいましたね」
		PRINTFORMW 「ほら、根本に%CNAME("一人称")%の白色本気汁が輪っかになってこびりついちゃってます」
	ELSEIF EX:Ａ中出し > 0
		PRINTFORMW 「お菊門で%CNAME("射精音")%好きなだけして気持ちよかったですか？」
		PRINTFORMW 「%CNAME("一人称")%にお尻%CNAME("膣")%ハメハメよかったです・・・」
	ELSE
		;恋慕
		IF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, @"「%CNAME("二人称")%の%CNAME("精液")%欲しくて本気のお汁で誘ってますよ_H_」_W"
		;それ以外
		ELSEIF RAND:2 == 0
			PRINTFORMW 「膣がよく見えますか？」
			PRINTFORMW 「クラスの男子が妄想するしかない%CNAME("二人称")%だけの%CNAME("膣")%をしっかり見てくださいね」
		ELSE
			PRINTFORMW 「ここで%CNAME("二人称")%の膣コキ自慰しちゃうんですね」
			PRINTFORMW 「%CNAME("二人称")%なら、好きなだけ「自慰」させてあげますよ」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入
;-------------------------------------------------
IF SELECTCOM == 15
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋
;-------------------------------------------------
IF SELECTCOM == 30
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 31
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛用振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒")
			;Ｓ状結腸まで振動棒が侵入している
			IF CHECK_COM("結腸責め")
				IF TALENT:結腸性感
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飛機杯
;-------------------------------------------------
IF SELECTCOM == 37
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ｖ挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 60 && SELECTCOM <= 69 && FIRSTCOMS("Ｖ挿入") == 0
	;処女
	IF TALENT:処女
		PRINTFORMW 「本当は愛し合うための大切な場所なのに…」
		PRINTFORMW 「ヤリチンな%CNAME("二人称")%の性欲処理の道具にされてしまうんですね。」
		PRINTFORMW 「これから%CNAME("二人称")%チンポで何度もハメハメされちゃう都合のいい穴に調教されてしまうのでしょうけれど」
		PRINTFORMW 「バージンはたった一度しか奪えないんですから、大事に奪ってくださいね。」
		PRINTFORMW 「%CNAME("二人称")%のチンポで…中学生飞机杯に変えてください。」
	;非処女
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ｖ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	SELECTCASE SELECTCOM
	;騎乗位
	CASE 65
		PRINTFORMW 「中等部女子の%CNAME("膣")%でおチンポマッサージされたいんですね」
		PRINTFORMW 「気持ちよくて%CNAME("精液")%が出したくてたまらなくなると思いますけど」
		PRINTFORMW 「我慢せずに好きなだけ%CNAME("射精音")%%CNAME("射精音")%してくださいね」
	;対面座位
	CASE 63
		PRINTFORMW 「後輩に全身を押し付けてもらいながらしてほしいですか」
		PRINTFORMW 「クラスの男子垂涎の胸部と%CNAME("二人称")%用%CNAME("膣")%の欲張りセット」
		PRINTFORMW 「いいですけど、酱と%CNAME("一人称")%の体をしっかり抱き支えてくださいね」
	;それ以外
	CASEELSE
		PRINTFORMW 「%CNAME("膣")%で気持ちよくなりたくなったんですね。」
		PRINTFORMW 「中等部%CNAME("膣")%は繊細なんですから、壊さないように大事に大事に使ってくださいよ。」
		PRINTFORMW 「じゃあ、%CNAME("二人称")%の気が済むまで「自慰」しましょうか。」
	ENDSELECT
	RETURN 1
;-------------------------------------------------
;全Ｖ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;汎用喘ぎ
	CALL KOJO_RAND_K3("膣挿入")
	;要去了なのに焦らされている
	IF TEQUIP:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2
		IF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, @"「%CNAME("射精音")%ください%CNAME("二人称")%_H_」_W"
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「イかせてください。%CNAME("二人称")%の%TEXTR("凶悪/極悪/獰猛/鬼畜/凶暴")%チンポで%TEXTR("ズポずぽズポずぽ/コツンコツン/ガツンガツン")%してください_H_」_W"
		ELSE
			CALL PRINT_STR, @"「イジワルしないでいかせてください_H_」_W"
		ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
		IF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, @"「%CNAME("二人称")%にこの姿勢で発情するよう調教されちゃってます_H_」_W"
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「この体位すき、すぐダメになっちゃう_H_」_W"
		ELSE
			CALL PRINT_STR, @"「これで%CNAME("膣")%いじめられるのすき_H_」_W"
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STR, @"「%TEXTR("飞机杯/チンコキ穴/オナティッシュ/性欲処理器")%の瞳なんかみちゃだめ_H_」_W"
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%CNAME("二人称")%の体胖次胖次おしつけられてる」
			ELSE
				PRINTFORMW 「%CNAME("膣")%使ってる%CNAME("二人称")%とっても気持ちよさそうな顔です」
			ENDIF
		CASEELSE
			IF TALENT:恋慕 && RAND:5 == 0
				CALL PRINT_STR, @"「%TEXTR("元気な/立派な/暴力的な")%%CNAME("二人称")%チンポを%CNAME("膣")%で%TEXTR("シコシコ/じゅぽじゅぽ/きゅっきゅ")%するの好き_H_」_W"
			ELSEIF TALENT:恋慕 && RAND:4 == 0
				CALL PRINT_STR, @"「%CNAME("膣")%で%CNAME("二人称")%の%CNAME("精液")%絞るの大好き_H_」_W"
			ELSEIF RAND:3 == 0
				PRINTFORMW 「%CNAME("二人称")%の腰靈活すごいです」
			ELSEIF RAND:2
				PRINTFORMW 「%CNAME("膣")%でいっぱい気持ちよくなって下さい」
			ELSE
				PRINTFORMW 「中学生なのにチンポ%CNAME("射精音")%させようとしちゃってる」
			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
		CALL PRINT_STR, "「せっかくなので手を握りながらしましょうか_H_」_W"
		PRINTFORMW %CALLNAME:TARGET%はすこし有点害臊的笑着いる
	;二回目以降
	;体位を変えない場合は汎用喘ぎ
	ELSEIF CHECK_COM("同じ体位で続行")
	CALL KOJO_RAND_K3("膣挿入")
	ELSE
		;恋慕
		IF TALENT:恋慕 && RAND:4 == 0
			CALL PRINT_STR, "「飞机杯が逃げたり不会うに、しっかり手首でも掴んでください_H_」_W"
			CALL PRINT_STR, @"「そしたら・・・手を動かせない%CNAME("一人称")%は逃げようと腰を一生懸命振って%CNAME("二人称")%を気持ちよくしちゃうと思いますから_H_」_W"
		ELSEIF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, "「男の人ってこの姿勢のときは脚を腰に絡めてほしいんですってね_H_」_W"
			CALL PRINT_STR, @"「でも%CNAME("二人称")%があんまり頑張りすぎると%CNAME("膣")%が気持ちよくなりすぎて脚をジタバタさせちゃうかもしれません_H_」_W"
		ELSEIF RAND:2 == 0
			PRINTFORMW 「この姿勢だとお互相用顔が近いですね」
			PRINTFORMW 「%CNAME("二人称")%が%CNAME("一人称")%の%CNAME("膣")%で気持ちよーくなってる%TEXTR("マヌケな/必死な/射精欲丸出しの/知性を失った")%顔を観察させてもらいますよ」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、ひょっとして%CNAME("膣")%で性欲処理しながら接吻でもするつもりですか？」
			PRINTFORMW 「%TEXTR("廁所/飞机杯")%なんかに接吻の汚いから止めたほうがいいですよ」
		ENDIF
	ENDIF

	RETURN 1
ENDIF

;-------------------------------------------------
;後背位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「この姿勢だとお互い顔が見えませんね。どんなに無様な顔で腰を振っても大丈夫だから%CNAME("二人称")%には好都合じゃないですか？」
	;二回目以降
	;体位を変えない場合は汎用喘ぎ
	ELSEIF CHECK_COM("同じ体位で続行")
	CALL KOJO_RAND_K3("膣挿入")
	ELSE
		;恋慕
		IF TALENT:恋慕 && RAND:4 == 0
			CALL PRINT_STR, @"「%CNAME("一人称")%のお尻を胖次胖次してください_H_」_W"
			CALL PRINT_STR, @"「%CNAME("二人称")%の腰を叩きつけて太鼓みたいにエッチな音をいっぱい鳴らして下さい_H_」_W"
		ELSEIF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, @"「クラスの男子たちって%CNAME("一人称")%のお尻をジロジロみるんですよ_H_」_W"
			CALL PRINT_STR, @"「%CNAME("二人称")%にとっては思い出してシコるズリネタじゃなくて・・・_H_」_W"
			CALL PRINT_STR, @"「どれだけ%TEXTR("ズポズポ/ズコバコ/フリフリ/ピストン")%しても腰を柔らかく受け止める%TEXTR("おマンコ自慰/膣コキ/性欲処理")%専用クッション_HH_」_W"
		ELSEIF RAND:2 == 0
			PRINTFORMW 「%CNAME("一人称")%のお尻はかなりきれいな形だと自信があるんですけど・・・」
			PRINTFORMW 「%CNAME("二人称")%の腰を叩きつけ過ぎて形を崩したりしないでくださいね？」
		ELSE
			PRINTFORMW 「クラスの男子が「揉みてー」ってシコシコしながらズリネタにする%CNAME("一人称")%のお尻・・・」
			PRINTFORMW 「チンポハメハメしながら好きなだけ揉み揉みするゼータクな%CNAME("二人称")%にいっぱい使われて、もっとエッチになるかもしれませんね」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;屈曲位
;-------------------------------------------------
IF SELECTCOM == 62
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「こんなふうに抑えつけられると本当に飛機杯变成了気分ですね」
	;二回目以降
	;体位を変えない場合は汎用喘ぎ
	ELSEIF CHECK_COM("同じ体位で続行")
	CALL KOJO_RAND_K3("膣挿入")
	ELSE
		IF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, @"「腰だけあればいいみたいな乱暴な体位で飞机杯にされちゃってます_H_」_W"

		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「こんなふうに押さえつけられて動けないと…気持ちいいのごまかせなくなります_H_」_W"
			CALL PRINT_STR, @"「中学生がしちゃダメな顔で気持ちよくなってるの見ないでください_HH_」_W"
		ELSE
			CALL PRINT_STR, @"「そんなに押さえつけなくても逃げませんから_H_」_W"
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;対面座位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
IF SELECTCOM == 63
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;体位を変えない場合は汎用喘ぎ
	ELSEIF CHECK_COM("同じ体位で続行")
	CALL KOJO_RAND_K3("膣挿入")
	ELSE
		;恋慕
		IF TALENT:恋慕 && RAND:4 == 0
			CALL PRINT_STR, @"「胸部と胸部合わせながらが好きですか？_H_」_W"
			CALL PRINT_STR, @"「おヘソも合わせながら全身密着させて全身で中学生の肉体を楽しんでください_HH_」_W"
		ELSEIF TALENT:恋慕 && RAND:3 == 0
			IF COND("安全日") || TEQUIP:PLAYER:避孕套 || COND("避妊不要")
				CALL PRINT_STR, @"「飞机杯を恋人みたいにする%CNAME("二人称")%ちょっと気持ち悪いですよ_H_」_W"
			ELSE
				CALL PRINT_STR, @"「あんまり恋人みたいな使い方をしてると、%TEXTR("精液捨場/スペルマ廃棄所/オス液投棄場")%が%TEXTR("子育て袋/赤酱部屋/妊娠希望のメス")%になっちゃいますよ_HH_」_W"
			ENDIF
		ELSEIF RAND:2 == 0
			PRINTFORMW 「抱き枕に飞机杯をつけるみたいな使い方があるらしんですけど、ちょうどそんな気分です」

		ELSE
			PRINTFORMW 「どうですか？%CNAME("一人称")%の体ちょっと重く感じません？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;背面座位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
;背面座位
IF SELECTCOM == 64
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;体位を変えない場合は汎用喘ぎ
	ELSEIF CHECK_COM("同じ体位で続行")
	CALL KOJO_RAND_K3("膣挿入")
	ELSE
		;恋慕
		IF TALENT:恋慕 && RAND:4 == 0
			CALL PRINT_STR, @"「从后面将胸部揉みしだくの好きですよね%CNAME("二人称")%_H_」_W"
			CALL PRINT_STR, @"「中学生の%CNAME("膣")%と成長中胸部両方同時に好きなように使って下さい_HH_」_W"
		;屈服刻印Lv2以上
		ELSEIF CHARA_NUM("室内の邪魔者") && RAND:3 == 0
			PRINTFORMW 「%CNAME("一人称")%が飞机杯にされてる姿を部屋のみんなに見せつけながらするつもりですね%CNAME("二人称")%」
			PRINTFORMW 「見られるのも結構好きなので、それはそれでいいんですけれども」
		;それ以外
		ELSEIF RAND:2 == 0
			PRINTFORMW 「この姿勢だと%CNAME("二人称")%の手はどこに置くつもりですかね」
			PRINTFORMW 「みんながジロジロ見る胸部か、それとも胖次チラだけでズリネタになる股間か・・・」
			PRINTFORMW 「どっちにしても、%CNAME("二人称")%のチンポに%CNAME("膣")%を好き放題にされることには変わりないわけですが」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%に顔を見られなくて済むから、ちょっと変な顔しても大丈夫ですよね」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;騎乗位
;-------------------------------------------------
IF SELECTCOM == 65
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;体位を変えない場合は汎用喘ぎ
	ELSEIF CHECK_COM("同じ体位で続行")
	CALL KOJO_RAND_K3("膣挿入")
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		IF INSERT("狂野摇摆")
			;恋慕
			IF TALENT:恋慕 && RAND:4 == 0
				CALL PRINT_STR, @"「%CNAME("二人称")%のチンポがすごすぎて腰が勝手にエッチな動きになっちゃいます_HH_」_W"
			ELSEIF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STR, @"「ダンスの授業で男子たちがジロジロ見て後でズリネタにする腰振り振り_H_」_W"
				CALL PRINT_STR, @"「%CNAME("二人称")%はぜーたくチンポをハメながら特等席で見ててください_HH_」_W"
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("膣コキ/飞机杯/ハメハメ/サキュバス")%ダンスよく見てください_H_」_W"
				CALL PRINT_STR, @"「点数つけるなら何点ですか%CNAME("二人称")%_H_」_W"
			ELSE
				PRINTFORMW 「%CNAME("一人称")%って腰が結構粗大的しこの体制って割と疲れるんですけど」
				PRINTFORMW 「%CNAME("二人称")%のチンポで%CNAME("膣")%が%TEXTR("気持ちよく/夢中に")%なっちゃうから気にならないです」
			ENDIF
		ELSE
			;恋慕
			IF TALENT:恋慕 && RAND:4 == 0
				CALL PRINT_STR, @"「%CNAME("一人称")%のペースでしっかり%CNAME("精液")%%TEXTR("絞り/ヌキヌキ/オネダリ")%させてもらいますからね%CNAME("二人称")%_HH_」_W"
			ELSEIF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STR, @"「%CNAME("二人称")%のチンポは%TEXTR("凶悪/女泣かせ/精力超群")%過ぎますから、こうやって組み伏せられるくらいで丁度いいですね_H_」_W"
			ELSEIF RAND:2 == 0
				PRINTFORMW 「何もしなくてもチンポを%TEXTR("シコシコ/ヌプヌプ/じゅぽじゅぽ")%してくれる全自動飛機杯中学生に%CNAME("射精音")%しましょうね%CNAME("二人称")%。」
			ELSE
				PRINTFORMW 「%CNAME("一人称")%の自慢のお尻で%CNAME("二人称")%の腰に何度も臀圍プレスしちゃいますから、覚悟してください」
			ENDIF
		ENDIF
	ELSE
		;恋慕
		IF TALENT:恋慕 && RAND:4 == 0
			CALL PRINT_STR, @"「%CNAME("一人称")%の体の重さ・・・全部受け止めてくださいね%CNAME("二人称")%_H_」_W"
		ELSEIF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, @"「胸部%TEXTR("タプンタプン/フリフリ/ゆらゆら")%したほうがいいですか_H_」_W"
			CALL PRINT_STR, @"「それとも中学生のえっちな表情がよく見えるようにしたほうがいいですか_H_」_W"
			CALL PRINT_STR, @"「%CNAME("二人称")%のチンポが気持ちよくなる方でいいですよ_HH_」_W"
		ELSEIF RAND:2 == 0
			PRINTFORMW 「%CNAME("一人称")%のお尻が%CNAME("二人称")%の腰とぶつかってペチペチ音がなりそうで抵抗も有ますね・・・」
			PRINTFORMW 「%CNAME("二人称")%はどんなリズムでペチペチさせるのがいちばん興奮できますか？？」
		ELSE
			PRINTFORMW 「中学生の女の子を腰の上に乗せておいて重いとか言ったら許しませんからね%CNAME("二人称")%」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;挿入刺激Ｇ点
;-------------------------------------------------
IF SELECTCOM == 66
	CALL KOJO_RAND_K3("膣挿入")
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STR, @"「%CNAME("一人称")%に、こんな気持ちよくエッチするためだけの場所があるだなんて_HH_」_W"
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		IF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, @"「好きです_H_%CNAME("二人称")%の%CNAME("陰茎形容")%チンポでＧスポごしごし好き_HH_」_W"
		ELSEIF RAND:2
			CALL PRINT_STR, @"「%CNAME("膣")%でモノを考えてしまってます_H_気持ちよくエッチするためだけのＧスポなんか付いてるから馬鹿になっちゃってます_HH_」_L"
		ELSE
			CALL PRINT_STR, @"「ちゅーがくせいなのに_HH_%CNAME("精液")%絞りばっかり得意になっちゃってます_HH_」_W"
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, @"「好きです_H_%CNAME("二人称")%の%CNAME("陰茎形容")%チンポでＧスポつかれるの好き_HH_」_W"
		;それ以外
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, "「そこです_H_肉飞机杯がチンポをキュッキュ絞りたくなっちゃう雌穴スイッチ_H_ズポズポズポしてください_HH_」_W"
		ELSE
			CALL PRINT_STR, @"「そこばっかりこすられたら_H_%CNAME("一人称")%の%CNAME("膣")%が馬鹿になってしまいます_H_」_L"
			CALL PRINT_STR, @"「%CNAME("精液")%%CNAME("射精音")%させるのが生きがいの%CNAME("膣")%になっちゃいます_HH_」_W"
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;挿入子宮口玩弄
;-------------------------------------------------
IF SELECTCOM == 67
	CALL KOJO_RAND_K3("膣挿入")
	;初めて
	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("Ａ挿入")で判定
;2021/04/26　玛丽酱の中の人加筆
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	;Ａ処女
	IF TALENT:Ａ処女
		;恋慕
		IF TALENT:恋慕
			IF TALENT:処女
				PRINTFORMW 「遠慮してくださっているのか、それとも焦らされてたのか……」"
				PRINTFORMW 「%CNAME("一人称")%は処女ですけど、これでも淫魔ですから。人一倍せーよくはあるんですからね？」
				CALL PRINT_STRW, @"「今日は遠慮なく……たっぷり%CNAME("一人称")%の%TEXTR("お尻/肛門/ケツマンコ")%を堪能してくださいね_H_」"
			ELSE
				;処女簒奪フラグの使い方が解らないので各書くけどコメントアウト
				;你に奪われた場合
				;IF COND("処女簒奪フラグ", MASTER)
				;	PRINTFORMW 「%CNAME("一人称")%の初めても、お尻の初めても両方共%CNAME("二人称")%に捧げられるんですね」
				;	CALL PRINT_STRW, @"「好きな人に%CNAME("膣")%も%TEXTR("お尻/肛門/ケツマンコ")%も全部犯されて、精液タンクにされちゃうって思うと興奮してきちゃいます_H_」"
				;	CALL PRINT_STRW, @"「%CNAME("一人称")%の事は構わずに……好きなだけ滅茶苦茶にしてくださいね。%CNAME("主人")%_H_」"
				;ELSE
				;	PRINTFORMW 「処女も……%CNAME("主人")%にあげたかったな、なんて」
				;	CALL PRINT_STRW, @"「でも良いんです。%CNAME("一人称")%の%TEXTR("お尻/肛門/ケツマンコ")%の初めては%CNAME("主人")%に奪ってもらえるんですから_H_」"
				;	;巨根
				;	IF SIZE("阴茎", PLAYER) >= 2
				;		CALL PRINT_STRW, @"「大きくて立派な%CNAME("主人")%のおちんちんでいっぱい_H_　肛門性交大好きになるまで犯してくださいね、%CNAME("主人")%_H_」"
				;	ELSE
				;		CALL PRINT_STRW, @"「%CNAME("一人称")%に遠慮しないでくださいね。お菊門がガバガバになっちゃうまで犯して欲しいんです_H_」"
				;	ENDIF
				;ENDIF
			ENDIF
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			IF RAND:2 == 0
				CALL PRINT_STRW, @"「んっ、んぅ_H_　%CNAME("一人称")%の%TEXTR("お尻/肛門/ケツマンコ")%どうですか……気持ちよくなってくださいね、%CNAME("主人")%_H_」"
			ELSE
				CALL PRINT_STRW, @"「%CNAME("精液")%を%CNAME("一人称")%の%TEXTR("お尻の中/肛門/ケツマンコ")%に射精してくれるまで、絶対に%TEXTR("離しませんからね/離さないつもりで頑張りますからね/許してあげませんからね")%_H_」"
			ENDIF
			;巨根
			IF SIZE("阴茎", PLAYER) >= 2
				CALL PRINT_STRW, @"「あっ……大きい、%CNAME("二人称")%のおち〇ぽ大きすぎて、%CNAME("一人称")%のお尻が広がっちゃってます_H_」"
				PRINTFORMW 「んっ、あっ……初めてだから、もっとゆっくり……」
				CALL PRINT_STRW, @"「はぁ、はぁ……苦しいのに、気持ち良くって%CNAME("一人称")%……おかしくなっちゃいそうです_H_」"
			ELSE
				CALL PRINT_STRW, @"「玩具や指と全然違うんですね。是、肛門性交するの好きになりそうです_H_」"
				CALL PRINT_STRW, @"「こうして他の人と一つになるのがこんなに気持ちいいなんて……あぁっ_H_」"
			ENDIF
		;それ以外　屈服刻印Lv1以降
		ELSE
			PRINTFORMW 「……くぅ」
			PRINTFORMW 「大丈夫ですから……ゆっくり動いてくださいね」
		ENDIF
	;Ａは処女なので、死に分岐ではないのだろうか？？？
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ａ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW 「普通じゃない使い方ですから、ゆっくりお願いしますね」
	;巨根
	ELSEIF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW 「中学生なのに%CNAME("二人称")%の%CNAME("陰茎形容")%チンポを気持ちよくする飞机杯にされたお菊門、どうぞ使ってください。」
	;恋慕
	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
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;乳頭奸
;-------------------------------------------------
IF SELECTCOM == 82
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道挿入…細かく体位で分ける場合には以下の様になっている
;83,尿道正常位
;84,尿道後背位
;85,尿道屈曲位
;86,尿道対面座位
;87,尿道背面座位
;-------------------------------------------------
IF SELECTCOM >= 83 && SELECTCOM <= 87
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道騎乗位
;-------------------------------------------------
IF SELECTCOM == 88
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶手交
;手淫と洗面奶から派生する
;-------------------------------------------------
IF CHECK_COM("洗面奶手交")
	;恋慕
	IF TALENT:恋慕
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;手淫
;-------------------------------------------------
IF SELECTCOM == 90
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「しっかり手で触るのは初めてですね」
		PRINTFORMW 「シコシコシコシコ・・・気持ちいいですか？」
		PRINTFORMW 「男子って毎日こうやって自己シコシコするらしいじゃないですか」
		PRINTFORMW 「%CNAME("二人称")%ならいいですよ、毎日自慰の手伝いしても」
		PRINTFORMW 「%CNAME("一人称")%をシコシコ係にでも任命してください」
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕 && RAND:3 == 0
			PRINTFORMW 「シコシコされるだけじゃ嫌ですか？でも我慢してください。」
			PRINTFORML 「%CNAME("二人称")%のタマタマの中身をちょっとでも減らさないと」
			PRINTFORMW 「性欲満タンの%CNAME("二人称")%は女の子に対して鬼畜すぎますからね」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「%CNAME("二人称")%が空中に%CNAME("射精音")%するとこ見たいな～」
			PRINTFORMW 「%CNAME("精液")%がどれくらいの勢いで飛ぶか楽しみです」
		ELSE
			PRINTFORMW 「女の子の%CNAME("膣")%をいっぱいイジメる%TEXTR("凶悪/極悪/サディスト/鬼畜")%チンポはこうですよ」
			PRINTFORMW 「シコシコして空中に虚しく%CNAME("射精音")%させちゃいます」
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕 && RAND:6 == 0
			PRINTFORMW 「%CNAME("一人称")%の%CNAME("膣")%を好き勝手する凶暴チンポ」
			PRINTFORMW 「いつもどんな勢いで%CNAME("子宮")%に%CNAME("精子")%を送り出してるのか見せてください」
		;愛液湿的の
		ELSEIF CONDS("Ｐ汚れ", PLAYER) == "Ｖ" && COND("Ｐ汚れの相手", PLAYER) == TARGET && RAND:5 == 0
			PRINTFORMW 「%CNAME("一人称")%の%CNAME("膣")%で「潤滑液」まみれ变成了精力超群チンポ・・・」
			PRINTFORMW 「この根本で輪っかになってるのって%CNAME("一人称")%の本気汁ですよね」
			PRINTFORMW 「いつも「使って」くれる%CNAME("二人称")%に感謝してシコシコしてあげます」
		ELSEIF EXP:Ｖ性交経験 >= 30 && RAND:4 == 0
			PRINTFORMW 「%CNAME("一人称")%の%CNAME("膣")%、このチンポに何回も何回も使われちゃいましたね」
			PRINTFORMW 「%CNAME("膣")%で気持ちよくするのと違って单方面地攻撃できるシコシコで仕返しです」
		ELSEIF EXP:腰靈活経験 >= 100 && RAND:3 == 0 && CHARA_NUM("調教経験有") > 0
			PRINTFORMW 「『部活』の女の子たちを食べまくってる最低のヤリチンですよねこれ」
			PRINTFORMW 「生徒会には『%CNAME("膣")%部』で活動申請でも出してるんですか？」
			PRINTFORMW 「そんな最低チンポはこうやってシコシコして性欲を『抜いて』あげなきゃダメですよね」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「どうですか？シコーシコーって口に出したほうがいいですか？」
			PRINTFORMW 「出したくなったらいつでも%CNAME("射精音")%していいですからね」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%のチンポをシコシコするの好きかもしれません」
			PRINTFORMW 「タマタマも揉んだほうがいいですか？いっぱい%CNAME("精子")%つくって無駄遣いしちゃいましょうね」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「これがチンポの臭いですか、かなりエゲツないですね」
		PRINTFORMW 「中等部の、本当なら性的なことが一番恥ずかしい年頃の女の子のお口を使って」
		PRINTFORMW 「飛機杯として精液絞りするなんて贅沢すぎますよ」
		PRINTFORMW 「しかも射精したら精液を飲ませて満足するんですよね・・・」
		PRINTFORMW 「いや%CNAME("一人称")%は合意してるからもちろん問題は有ませんけれど」
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕 && RAND:3 == 0
			PRINTFORMW 「%CNAME("二人称")%のおチンポ様・・・とでも言えばいいんですか？」
			PRINTFORMW 「中等部の唇って普通は同級生と接吻のも青春の美しい思い出として描かれるものですよ」
			PRINTFORMW 「『貴重な%CNAME("精液")%をいっぱいください』みたいに懇願させる鬼畜%CNAME("二人称")%」
		;恥垢有
		ELSEIF TALENT:恋慕 && CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｐ恥垢") && RAND:2 == 0
			PRINTFORMW 「女の子を都合のいい%CNAME("膣")%として使うに飽き足らずですか」
			PRINTFORMW 「タダでさえ低い立場が%CNAME("二人称")%のチンカス掃除機にまでランクダウンするなんて思いませんよ普通は」
			PRINTFORMW 「まあいいです。%CNAME("二人称")%のチンカス掃除機に今日の%CNAME("精液")%酱とくださいね」
		;それ以外
		ELSE
			PRINTFORMW 「こうやって間近で改めて見ると威圧感有ますよね%CNAME("二人称")%チンポ」
			PRINTFORMW 「・・・やっぱり崇拝してます～みたいな感じの接吻がいいですよね」
			PRINTFORMW 「オチンポ様、%CNAME("一人称")%に今日の恵みの%CNAME("精液")%をお恵みくださいませ・・・」
			CALL PRINT_STR, @"「ちゅっ_H_ちゅっ_H_」_W"
		ENDIF
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			PRINTFORMW 「精液掃除とチンカス掃除なんて普通の女の子は吐いてしまうと思いますけれど」
			PRINTFORMW 「%CNAME("二人称")%のならまぁ、いいですよ」
			PRINTFORMW 「中等部の万能掃除機で磨き掃除まで済ませてあげますね」
		;恋慕
		ELSEIF TALENT:恋慕 && RANDIF(1, ABL:奉仕精神 >= 3)
			PRINTFORMW 「正直な話をすると%CNAME("二人称")%のチンポに%CNAME("膣")%を使われるの…好きです」
			PRINTFORMW 「%CNAME("一人称")%の潤滑液でこんなにチンポべたべたにしちゃったらバレバレですよね」
			PRINTFORMW 「いっぱい使ってくれたヘビーユーザー様にいっぱい礼物しますね」
		ELSEIF ABL:奉仕精神 >= 3 && RAND:3
			PRINTFORMW 「%CNAME("二人称")%の凶暴チンポの根本…%CNAME("一人称")%の本気汁が輪っかになってますよね」
			PRINTFORMW 「・・・%CNAME("二人称")%のしてほしいことわかりますよ、いつもの付き合いですから」
			PRINTFORMW %CALLNAME:TARGET%は根本まで阴茎を飲み込むと、舌を突き出して自己的本気汁を熱心に舐めとってきた
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3 && RAND:2
			PRINTFORMW 「チンポ掃除なんかさせて、どうせ追加の%CNAME("精液")%を%CNAME("射精音")%するつもりなんでしょう？」
			PRINTFORMW 「まあいいですけど。出すときは言ってくださいね。」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%の%CNAME("膣")%を使ったあとはチンポ掃除機を使うというわけですか」
			PRINTFORMW 「いや本当に地獄に落ちる可能性大ですよ%CNAME("二人称")%」
		ENDIF
		CALL KOJO_RAND_K58("口交")
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		IF TEQUIP:深喉
			;六九式
			IF TEQUIP:六九式
				PRINTFORMW %CALLNAME:TARGET%が激烈地唇で愛撫する様がヘソや胸の谷間の向こう側から垣間見える
			ELSE
				IF TALENT:恋慕 && RAND:2
					PRINTFORMW 年の割に豊かな肉体で押さえつけるように愛撫を続けている
				ELSE
					PRINTFORMW %CALLNAME:TARGET%は騎乗位のように体を上下させ口腔性交に励んだ
				ENDIF
			ENDIF
		ELSE
			;恋慕
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW 「ちょっと調教されすぎですかね…」
				PRINTFORMW 「体のどこでも飞机杯として使われると嬉しくなってしまってます」
				PRINTFORMW 「%CNAME("二人称")%のこゆ～い%CNAME("精液")%、喉に直接流し込んでくださいね」
			;それ以外
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%CNAME("二人称")%チンポの先っぽから根本までジュポジュポお磨きするの・・・」
				PRINTFORMW 「結構な重労働なんだからいたわってくださいね。いや%CNAME("精液")%でご褒美じゃなくて」
			ELSE
				PRINTFORMW 「いろんな女の子の%CNAME("膣")%で磨かれてどんどん%TEXTR("凶悪/極悪/立派/鬼畜")%になっちゃう%CNAME("二人称")%チンポ」
				PRINTFORMW 「まあ%CNAME("二人称")%チンポがカッコよくなるの見るのは嫌いではないです」
				PRINTFORMW 「%CNAME("一人称")%の「お手入れ」堪能してください」
			ENDIF
		CALL KOJO_RAND_K58("口交")
		ENDIF
	;それ以外
	ELSE
		IF TEQUIP:深喉
			;六九式
			IF TEQUIP:六九式
			ELSE
			ENDIF
		CALL KOJO_RAND_K58("口制限")
		ELSE
			;恋慕
			IF TALENT:恋慕 && CHARA_NUM("調教経験有") > 6 && RAND:6 == 0
				PRINTFORMW 「チンポ磨きは「部員」の必須の活動ですからね」
				PRINTFORMW 「こんなに素敵な部活の皆桑みんなヤリチン%CNAME("二人称")%の%CNAME("精液")%を飲んだことあるんですから」
				PRINTFORMW 「ひょっとして女の子の唇に週ごとに日替わりで磨かれないと死ぬ呪いでもかかってらっしゃるんですか？」
			ELSEIF TALENT:恋慕 && RAND:5 == 0
				PRINTFORMW 「%CNAME("二人称")%のチンポって本当に%TEXTR("凶悪/極悪/立派/鬼畜")%ですよね」
				PRINTFORMW 「いや尺寸とかそういう話じゃなくてですよ」
				PRINTFORMW 「唇で触れてると接吻してるみたいな不思議な充足感があるというか」
				PRINTFORMW 「女のコを恋させるマジカルチンポを魂と交換したりました？」
			;中毒
			ELSEIF ABL:精液中毒 >= 5 && RAND:4 == 0
				PRINTFORMW 「%CNAME("一人称")%は少し悔しいです」
				PRINTFORMW 「%CNAME("二人称")%に%CNAME("精液")%を唇で絞る機械に調教されて」
				PRINTFORMW 「美味しい美味しい%CNAME("精液")%を飲みたくてたまらないです」
			;それ以外
			ELSEIF RAND:3
				PRINTFORMW 「唇でいっぱい%CNAME("精液")%出したくてたまらなさそうですね」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「唇が好きですか？舌が好きですか？まぁ両方でしょうけれど」
			ELSE
				PRINTFORMW 「中等部の唇、気持ちいですか？」
				PRINTFORMW 「%CNAME("二人称")%のチンポ磨きですよ」
			ENDIF
		CALL KOJO_RAND_K58("口交")
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;乳交
;-------------------------------------------------
IF SELECTCOM == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「乳交ですか、知識としては知ってますよもちろん」
		PRINTFORMW 「自慢ではないですが乳交されたいランキングではクラス1位のはずです」
		PRINTFORMW 「男子の半分くらいは妄想でシコってくれたんじゃないかなと」
		PRINTFORMW 「実際にしてもらえるのは%CNAME("二人称")%が最初ということになりますけど」
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

;-------------------------------------------------
;尻素股
;-------------------------------------------------
IF SELECTCOM == 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 == 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
	CALL KOJO_RAND_K58("口制限")
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

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

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

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

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

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

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

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

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

;-------------------------------------------------
;抱上去
;-------------------------------------------------
IF SELECTCOM == 285
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K58, 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
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｃ絶頂20以上
;-------------------------------------------------
CASE "Ｃ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｃ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｖ絶頂20以上
;-------------------------------------------------
CASE "Ｖ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｖ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ａ絶頂20以上
;-------------------------------------------------
CASE "Ａ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ａ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｂ絶頂20以上
;-------------------------------------------------
CASE "Ｂ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｂ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

;-------------------------------------------------
;刻印変動をトリガーにした口上
;刻印変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_MARKCNG_K58, 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_K58

;-------------------------------------------------
;射精先選択の直前に表示する口上
;頻繁に表示されるため随机や表示条件の設定推奨です
;-------------------------------------------------
@KOJO_MESSAGE_SHOOT_K58
;初期は表示されないようにしてあるため、書いた後はRETURN 0を消す
;V挿入中
IF INSERT("Ｖ挿入")
	IF COND("妊娠中：妊娠発覚済み")
		IF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, @"「%CNAME("二人称")%のために「本業」で働いてる%CNAME("子宮")%に%CNAME("射精音")%しましょう_HH_」_W"
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「赤酱がいる場所を%TEXTR(@"精液捨場/スペルマ廃棄所/オス液投棄場/排泄先")%にしてスッキリするんですね_HH_」_W"
		ELSE
			CALL PRINT_STR, @"「%CNAME("子宮")%の中身を気にせず%CNAME("膣")%で%CNAME("射精音")%%CNAME("射精音")%しちゃう悪い父亲になりましょう_HH_」_W"
		ENDIF
	;安全日　%CNAME("二人称")%　コピペ用
	;避孕套
	ELSEIF TEQUIP:PLAYER:避孕套
		IF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, @"「%CNAME("射精音")%し是这様吗？いいですよ、避孕套で、兒童を作らない、ちんちんが気持ちいいだけの膣コキ自慰ですからね_H_」_W"
			CALL PRINT_STR, @"「中等部女子の%CNAME("膣")%でオチンポ気持ちよくなった証拠に、避孕套にいっぱい%CNAME("精液")%%CNAME("射精音")%してください_HH_」_W"
		ELSEIF RAND:2 == 0
			PRINTFORMW 「%CNAME("二人称")%、いくら避孕套でのおかげで単なる飞机杯として膣コキできるからって遠慮なさすぎですよ」
			PRINTFORMW 「%CNAME("射精音")%しそうなオチンチンが傘を開いて準備してるのが避孕套越しにも%CNAME("膣")%が感じちゃいます」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%の%CNAME("膣")%で自慰过了%CNAME("精液")%、ティッシュじゃなくて避孕套に%CNAME("射精音")%しちゃいましょうね」
		ENDIF
	ELSEIF COND("安全日")
		IF TALENT:恋慕 && RAND:3 == 0
			CALL PRINT_STR, @"「%CNAME("二人称")%のおちんちんビクビクしてそろそろ%CNAME("射精音")%しそうですね_H_」_W"
			CALL PRINT_STR, @"「%CNAME("一人称")%の%CNAME("子宮")%に%CNAME("精液")%注いでいいですよ_HH_」_W"
		ELSEIF RAND:2 == 0
			PRINTFORMW 「%CNAME("二人称")%のオチンポ、%CNAME("膣")%で最後まで気持ちよくなりたいってビクビクしてますね」
		ELSE
			PRINTFORMW 「%CNAME("射精音")%しちゃいますか？%CNAME("子宮")%に%CNAME("精子")%を送り込んじゃいますか？それとも%CNAME("精液")%を体にぶっかけますか？」
		ENDIF
	;危険日生,どうせ恋慕じゃないとしてくれないので随机に恋慕条件は无
	ELSE
		IF RAND:3 == 0
			CALL PRINT_STR, @"「%CNAME("二人称")%の%CNAME("精液")%该怎么做呢？%CNAME("精子")%を「本業」を思い出しそうな%CNAME("子宮")%に%CNAME("射精音")%しますか？_HH_」_W"
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「ダメですよ、このまま%CNAME("射精音")%したら、「膣コキ」じゃなくて「性交」になっちゃいますよ_HH_」_W"
			CALL PRINT_STR, @"「したいんですか？「性交」_HH_」_W"
		ELSE
			CALL PRINT_STR, @"「このまま%CNAME("射精音")%しちゃったら・・・妊娠しちゃうかもしれませんよ_HH_」_W"
			CALL PRINT_STR, @"「そしたら、お腹が大きくなって、こんなふうに「性交」しちゃったことが、同班同学全員にバレちゃうんですよ_HH_」_W"
		ENDIF
	ENDIF
;A挿入中
ELSEIF INSERT("Ａ挿入")
	IF TALENT:恋慕 && RAND:3 == 0
		CALL PRINT_STR, @"「排泄の穴で%CNAME("射精音")%%CNAME("射精音")%出して%CNAME("精液")%を「排泄」しちゃいましょう_HH_」_W"
	ELSEIF RAND:2 == 0
		PRINTFORMW 「%CNAME("一人称")%の排泄穴で%CNAME("射精音")%%CNAME("射精音")%しちゃいましょうね」
	ELSE
		PRINTFORMW 「もう、ウンチだけじゃなくて%CNAME("二人称")%の%CNAME("精液")%まで出さなきゃいけなくなっちゃいます」
	ENDIF
;深喉
ELSEIF TEQUIP:深喉
	IF TALENT:恋慕 && RAND:3 == 0
		PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の阴茎が限界を迎えそうなのを感じ、精液を吸い出すかのように口をすぼめて精液おねだりをはじめた
	ELSEIF RAND:2 == 0
		PRINTFORMW %CALLNAME:TARGET%は喉奥まで達する%CALLNAME:MASTER%の阴茎が射精間近なのを察して%CALLNAME:MASTER%&をまっすぐ見つめてきた
	ELSE
		PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%を射精に導くため口腔愛撫のラストス布トをかけてきている
	ENDIF
;手交
ELSEIF SELECTCOM == 90
	IF RAND:3 == 0
		PRINTFORMW 「%CNAME("二人称")%の%CNAME("精子")%がどれだけ激烈地%CNAME("射精音")%するか見ててあげますね」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「%CNAME("一人称")%でオナってる男子が自分の手でシコシコしてる間に、%CNAME("一人称")%の手で%CNAME("射精音")%しましょうね」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%って贅沢ですよね、手で%CNAME("射精音")%するときも女の子の手で%CNAME("射精音")%させてもらえるんですから」
	ENDIF
;口交
ELSEIF SELECTCOM == 91
	IF TALENT:恋慕 && RAND:3 == 0
		CALL PRINT_STR, @"「大好きな%CNAME("二人称")%の%CNAME("精液")%_H_ いっぱい飲ませてくださいね_H_」_W"
	ELSEIF RAND:2 == 0
		PRINTFORMW 「%CNAME("二人称")%の%CNAME("精液")%の苦くてまっずーいエゲツないお味…そろそろですね」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%はどこで出したいですか？舌の上ですか？喉の奥ですか？」
	ENDIF
;足交
ELSEIF SELECTCOM == 95
	IF RAND:3 == 0
		PRINTFORMW 「頑張って%CNAME("一人称")%の%CNAME("膣")%に届くくらい%CNAME("射精音")%しましょうね」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「%CNAME("二人称")%って%CNAME("一人称")%のどこでも気持ちよく%CNAME("射精音")%できちゃうんですね」
	ELSE
		PRINTFORMW 「射精したくてビクビクする感覚が足でもわかっちゃいますよ」
	ENDIF
;それ以外
ELSE
	IF TALENT:恋慕 && RAND:3 == 0
		PRINTFORMW 「%CNAME("二人称")%なら、どこで%CNAME("射精音")%してもいいですよ」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「そろそろですか？いつでもいいですよ」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%が一番気いい領帯ミングで%CNAME("射精音")%してくださいね」
	ENDIF
ENDIF
;-------------------------------------------------
;射精先選択の直後に表示する口上
;頻繁に表示されるため随机や表示条件の設定推奨です
;-------------------------------------------------
@KOJO_MESSAGE_AFTERSHOOTCHANGE_K58
;初期は表示されないようにしてあるため、書いた後はRETURN 0を消す
RETURN 0

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

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

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW
	;鼻钩時専用です。人を選びすぎるので基本的には書かなくて良いと思われます
	ELSEIF SHOOT("鼻の穴")
		;初めて
		IF FIRST_EV("絶頂：ぶっかけ鼻の穴") == 0
			PRINTFORMW
		;鼻の穴に出され慣れて平気变成了
		ELSEIF CHECK("鼻射")
			PRINTFORMW
		;鼻钩自体は受け入れているが苦痛
		ELSEIF CHECK("鼻钩")
			PRINTFORMW
		;全面的につらい
		ELSE
			PRINTFORMW
		ENDIF
	;超大量射精
	ELSEIF COND("絶頂", PLAYER) >= 3
		PRINTFORMW
	;大量射精
	ELSEIF COND("絶頂", PLAYER) == 2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰")
	IF CHARA_NUM("調教経験有") > 3 && RAND:4 == 0
		PRINTFORMW 「あーあ、%CNAME("二人称")%のために%CNAME("膣")%を用意してる女の子たちが欲しくて欲しくてたまらない%CNAME("精液")%を無駄遣いしすぎですよ」
	ELSEIF ABL:精液中毒 >= 3 && RAND:3 == 0
		PRINTFORMW 「クラスの男子たちが私で自慰过了精液をティッシュでくるんでゴミ箱に捨ててるのを想像すると嬉しいのに…」
		CALL PRINT_STR, @"「%CNAME("二人称")%の%CNAME("精液")%が無駄に捨てられるのはなぜか悲しい気分になってしまいます_HH_」_W"
	ELSEIF RAND:2 == 0
		PRINTFORMW 「いつでも%CNAME("精液")%を受け入れてる女の子がいるのに」
		PRINTFORMW 「こんなふうに一人でシコシコなんてある意味で贅沢ですね」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%の自慰、なぜか%CNAME("一人称")%までドキドキしてしまいました」
	ENDIF

;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた
;-------------------------------------------------
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 %CALLNAME:TARGET%は口の中に注がれた精液を口の中で咀嚼している
		PRINTFORMW 细心的味わいながら少しずつ、慢慢地飲み下した
		PRINTFORMW 「コレでもサキュバスの端くれなので、驚くほど美味しく感じる自分に驚いてます」
	;精液中毒Lv1
	ELSEIF ABL:精液中毒 >= 1
		;深喉
		IF TEQUIP:深喉
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%は大好物の精液を%CALLNAME:MASTER%の顔を見つめながら夢中で飲み干している
			ELSEIF RAND:2 == 0
				PRINTFORMW %CALLNAME:TARGET%は喉に注ぎ込まれる精液の熱さに発情してお尻をくねらせている
			ELSE
				PRINTFORMW %CALLNAME:TARGET%は大好きな精液を一滴も残すまいと吸い出すようにしゃぶりついた
			ENDIF
		ELSE
			IF TALENT:恋慕 && RAND:5 == 0
				PRINTFORMW 「%CNAME("二人称")%の%CNAME("精液")%%TEXTR(@"大好き/美味しい/最高/素敵")%です。」
				PRINTFORMW 「礼物にもっとチンポを気持ちよくしてあげますね。」
			ELSEIF RAND:4 == 0
				PRINTFORMW 「%CNAME("精液")%が出てきてくれる思うと・・・」
				PRINTFORMW 「頑張ってペロペロするのでチンポ様いっぱい%CNAME("射精音")%してくださいって、思わず夢中になる自分がいます。」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「サキュバスの本能なんでしょうか」
				PRINTFORMW 「%CNAME("二人称")%の%CNAME("精液")%を飲んだら、もっと%CNAME("射精音")%して飲ませてほしくなります」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「中学生の唇を%CNAME("膣")%として使って%CNAME("射精音")%する%TEXTR(@"贅沢/犯罪/最低/凶悪/鬼畜")%チンポ」
				PRINTFORMW 「これでは%CNAME("二人称")%はティッシュなんて使う暇なさそうですね」
			ELSE
				PRINTFORMW 「%CNAME("一人称")%の口も%CNAME("精液")%絞りがだいぶ擅長くなってますよね？」
				PRINTFORMW 「ひょっとしたら特技として自慢・・・はできないでしょうけれど」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW 「うわぁ、この胸を想ってシコシコ一人で自慰してる男子たち、これからは%CNAME("二人称")%の精液で弄脏的マーキング済みオッ餡餅で自慰することになっちゃいますね。」
	;それ以外
	ELSEIF TALENT:恋慕 && RAND:3 == 0
		PRINTFORMW 「ズリネタとしてはみんなの共用胸部ですけど・・・精液ふきティッシュとしては%CNAME("二人称")%専用ですよ」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「男子はオナティッシュに捨てる精液を・・・胸部にいっぱい%CNAME("射精音")%しましたね」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%%CNAME("精液")%のせいで胸部がもっとエッチになって…今よりもっとズリネタにされちゃいますね」
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW 「こんなビュービュー勢いよく出てるんですね・・・ティッシュ破けちゃいそうです」
	ELSEIF TALENT:出産経験 && RAND:4 == 0
		CALL PRINT_STR, @"「%CNAME("一人称")%の%CNAME("子宮")%に%CNAME("精液")%を注いで赤酱作りしたときは・・・もっとすごかったですよ_HH_」_W"
	ELSEIF ABL:精液中毒 >= 3 && RAND:3 == 0
		PRINTFORMW %CALLNAME:TARGET%は片方の手のひらに精液を受け止めている
		PRINTFORMW 「こんな重たい濃厚%CNAME("精液")%・・・出し終わったら飲んであげますね」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「%CNAME("射精音")%%CNAME("射精音")%、手のひらに伝わってすごいですね・・・」
	ELSE
		PRINTFORMW 「ふふ、なんか%CNAME("精液")%%CNAME("射精音")%させるの楽しいです」
		PRINTFORMW %CALLNAME:TARGET%は射精が終わるまで温柔的精液を搾り取ってくれた
	ENDIF
;-------------------------------------------------
;性交で射精させた
;-------------------------------------------------
ELSEIF SHOOT("Ｖ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ｖ中出し") == 0
		PRINTFORMW 「%CNAME("一人称")%・・・%CNAME("二人称")%のチンポを甘く見てました」
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW 「避孕套で阻まれてるはずの精液が・・・子宮に入りたがってるのがわかってドキドキしてます・・・」
			PRINTFORMW 「本当に子宮が赤酱作りたくなっちゃうかも・・・」
		ELSE
			PRINTFORMW 「子宮が「子作り性交」だとおもって精液いっぱい欲しがってドキドキします・・・」
		ENDIF
	ELSE
		IF COND("妊娠中：妊娠発覚済み")
			IF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STR, @"「%TEXTR(@"精液捨場/スペルマ廃棄所/オス液投棄場/精液廁所")%で兒童育てさせる気ですか_HH_」_W"
			ELSEIF RAND:2 == 0
				PRINTFORMW %CALLNAME:TARGET%は膨らんだお腹に手を当てて微笑んでいる
			ELSE
				CALL PRINT_STR, @"「女の子を孕ませたがりの元気な%CNAME("精子")%、%CNAME("一人称")%が受け止めなきゃ危なすぎますよ_HH_」_W"
			ENDIF
		ELSEIF TEQUIP:PLAYER:避孕套
			IF TALENT:出産経験 && RAND:4 == 0
				CALL PRINT_STR, @"「%CNAME("一人称")%は「膣コキ」じゃなくて、「子作り性交」でもよかったですよ_HH_」_W"
				PRINTFORMW %CALLNAME:TARGET%は避孕套の存在を少しだけ恨んだ
			ELSEIF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STR, @"「避孕套のおかげで「性交」じゃなくて「膣コキ」で済みましたね_H_」_W"
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, @"「%CNAME("二人称")%チンポが中等部の後輩の%CNAME("膣")%で自慰して気持ちよく%CNAME("射精音")%してる感覚・・・すごいです_H_」_W"
			ELSE
				CALL PRINT_STR, @"「%CNAME("二人称")%が%CNAME("膣")%で気持ちよくなった証拠の避孕套・・・もっと増やしましょうね_H_」_W"
			ENDIF
		;危険日生,どうせ恋慕じゃないとしてくれないので随机に恋慕条件は无
		ELSEIF COND("危険日")
			IF TALENT:出産経験 && RAND:4 == 0
				CALL PRINT_STR, @"「これ「性交」_HH_　%CNAME("一人称")%、「性交」好き_HH_　「性交」大好き_HH_　」_W"
				PRINTFORMW %CALLNAME:TARGET%は愛しい人の兒童を孕む喜びに満たされている
			ELSEIF RAND:3 == 0
				CALL PRINT_STR, @"「%CNAME("精液")%_HH_子作り精液来てる_HH_」_W"
				PRINTFORMW %CALLNAME:TARGET%は準備万端の子宮に種付けされて蕩けている
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, @"「今日は%TEXTR(@"精液捨場/スペルマ廃棄所/オス液投棄場/精液廁所")%じゃなくて_HH_赤酱的房間なのに_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「%CNAME("二人称")%の兒童できちゃいます_HH_」_W"
			ENDIF
		ELSE
			IF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STR, @"「%CNAME("二人称")%の熱い%CNAME("精液")%で%CNAME("子宮")%溢れちゃいます_HH_」_W"
				PRINTFORMW %CALLNAME:TARGET%は愛しい人の子種を子宮に注がれて嬉しそうだ
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, @"「%CNAME("子宮")%に%CNAME("射精音")%%CNAME("射精音")%きてます_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「%CNAME("膣")%で%CNAME("射精音")%すごい_HH_」_W"
			ENDIF
		ENDIF
	ENDIF
ELSEIF SHOOT("Ａ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ａ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
ELSEIF SHOOT("接吻")
	PRINTFORMW
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗")
	PRINTFORMW
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶")
	PRINTFORMW
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
ELSEIF SHOOT("逆舐陰")
	PRINTFORMW
;-------------------------------------------------
;逆肛交、逆強姦で射精
;-------------------------------------------------
ELSEIF SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")
	PRINTFORMW
;-------------------------------------------------
;PLAYERが女で、イってしまった…
;-------------------------------------------------
ELSEIF SHOOT("調教者が女性")
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2
		PRINTFORMW
	;絶頂
	ELSEIF COND("絶頂", PLAYER) == 1
		PRINTFORMW
	ENDIF
ENDIF

;-------------------------------------------------
;角色が調教中に調教者を攻める際などの口上
;-------------------------------------------------
@KOJO_COUNTER_K58, 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
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;ARGSの各CASEでの分岐において、ARGSの文字列後半に ：地の文前 を追加する事で地の文前に喋らせることもできる。
;また、そこでTFLAG:地の文スキップ = 1 とすると、本来出て来る地の文を飛ばすこともできる
;CASE "中出し後害羞"の地の文の前に喋らせたりスキップさせたい場合にはCASE "中出し後害羞：地の文前"を用意すればよい
;例）CASE "中出し後害羞：地の文前"
;		PRINTW 試しにスキップ
;		TFLAG:地の文スキップ = 1
;-------------------------------------------------
@KOJO_EVENT_K58, ARGS
SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
CASE "Ｖ避孕套装着"
	;挿入指令
	IF TRAIN_GENRE("挿入", SELECTCOM)
		;PLAYヤーは着ける気満々
		IF TEQUIP:PLAYER:避孕套
			;初めての避孕套有些性交
			IF EXP:避孕套性交経験 == 0
				PRINTFORMW 「これを使って%CNAME("一人称")%の膣を飛機杯にしちゃうんですね」
				PRINTFORMW 「%CNAME("二人称")%のおちんちんを気持ちよくして%CNAME("射精音")%させる自慰の道具」
				PRINTFORMW 「たまたま避孕套のティッシュに精液を捨てて、たまたま肉飞机杯を使うだけですよね」
			ELSE
				PRINTFORMW 「また%CNAME("一人称")%の%CNAME("膣")%を%CNAME("二人称")%の「自慰」に使うんですね」
				PRINTFORMW 「悔しいですけど、いつもみたいにこの避孕套も%CNAME("一人称")%の本気のお汁で白く濡らしちゃうんだろうなぁ…」
			ENDIF
			IF COND("安全日") && TALENT:恋慕 && MARK:屈服刻印 == 3
				CALL PRINT_STR, @"「でも%CNAME("二人称")%の%CNAME("子宮")%に%CNAME("射精音")%しても大丈夫な日ですよ_H_」_W"
				CALL PRINT_SELECT, "即便如此也要戴着/果然还是直接插入！"
				IF RESULT == 0
					PRINTFORMW 「%CNAME("二人称")%はセキニンは取りたくないわけですね」
					PRINTFORMW 「じゃあ思う存分、避孕套を使って「自慰」させてあげます」
				ELSE
					CALL PRINT_STR, @"「%CNAME("二人称")%も%CNAME("子宮")%に好きなだけ%CNAME("精子")%を注ぎたいですよね？_H_」_W"
					CALL PRINT_STR, @"「いっぱい%CNAME("精液")%を%CNAME("射精音")%して%CNAME("子宮")%を満杯にしちゃいましょうね_HH_」_W"
					CALL SETFLAG, "取消避孕套", PLAYER
				ENDIF
			ELSE
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%が避孕套を着けるのを見て微笑んだ。
			ENDIF
	;まだ避孕套だけ
		ELSEIF MARK:屈服刻印 <= 2
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%に避孕套を手渡してきた。
			PRINTFORMW これを使うって約束ですからね。あくまで膣コキ自慰なんですから
			CALL PRINT_SELECT, "着ける/着けない"
			SELECTCASE RESULT
			CASE 0
				PRINTFORMW %CALLNAME:PLAYER%は%CALLNAME:TARGET%に従って避孕套を装着した。
				PRINTFORMW 「その避孕套越しでも酱と気持ちよくなるくらい頑張ってあげます」
				CALL SETFLAG, "戴上套套", PLAYER
			CASE 1
				PRINTFORMW 「わがままな%CNAME("二人称")%ですねぇ・・・口でつけてあげますから・・・つけてください」
				PRINTFORMW %CALLNAME:PLAYER%は%CALLNAME:TARGET%の唇で包み込むように避孕套を装備した
				CALL SETFLAG, "戴上套套", PLAYER
			ENDSELECT
		;避妊処置をしなくて良い事が角色に分かっている状態
		ELSEIF COND("避妊不要")
			;SIF CHOSECOMS("Ｖ挿入") == 0
			;	PRINTFORMW
			IF COND("妊娠中：妊娠発覚済み")
				PRINTFORMW 「でも、もう%CNAME("二人称")%赤酱妊娠してるから大丈夫ですよ？」
			ELSEIF COND("避妊中")
				PRINTFORMW 「酱と避妊してるけど、まぁでも避孕套を使うことに意味があるわけですね」
				CALL PRINT_STR, @"「避孕套の中にどれだけ%CNAME("精液")%が溜まってるか見るの、実は好きです_H_」_W"
			ELSE
			ENDIF
		;避孕套が無い
		ELSEIF ITEM:避孕套 == 0
			;避孕套付けてやるはずだったけど避孕套が切れてしまった！
			PRINTFORMW 「あれ！避孕套がないですね・・・」
			IF MARK:屈服刻印 <= 2
				PRINTFORMW 「……残念ですけど、今日は%CNAME("膣")%以外でシコシコしましょうか」
				TFLAG:指令中止 = 1
			ELSE
				PRINTFORMW 「後で買いに行きましょうか？店員桑に「使うところ」妄想させてシコらせちゃいます」
				PRINTFORMW %CALLNAME:TARGET%は悪戯げに笑着許してくれた
			ENDIF
		;安全日に生希望
		ELSEIF COND("安全日")
			IF CHOSECOMS("Ｖ挿入") == 0
				PRINTFORMW 「今日は%CNAME("子宮")%は「本業」がお休みですからね」
				PRINTFORMW 「ズポズポしても、多分大丈夫だと思います」
			ENDIF
		;安全日じゃないけど生ＯＫ
		ELSEIF COND("女性主導生性交") || COND("合意：危険日生性交") || TCVAR:獎勵生H && MARK:屈服刻印 == 3
			IF COND("危険日")
				CALL PRINT_STR, @"「いいんですか、%CNAME("精子")%がもし卵子をみつけちゃったら_HH_」_W"
				CALL PRINT_STR, @"「%CNAME("二人称")%の%CNAME("子宮")%が「本業」を思い出しちゃうんですよ_HH_」_W"
				CALL PRINT_STR, @"「%CNAME("膣")%が「本業」のための%CNAME("精子")%を絞り出そうといっぱい頑張って_HH_」_W"
				CALL PRINT_STR, @"「%CNAME("二人称")%のチンポにいっぱいオネダリして%CNAME("精液")%出して出してって絡みついて_HH_」_W"
				CALL PRINT_STR, @"「いつもの%CNAME("子宮")%じゃなくて、「赤酱的房間」に兒童の素を注がれようと頑張っちゃうんですよ_HH_」_W"
				CALL PRINT_STR, @"「%CNAME("二人称")%の精子が%CNAME("一人称")%の卵子を捕まえちゃったら_HH_」_W"
				CALL PRINT_STR, @"「お腹が膨らんで、学校のみんなに「子作り性交」したことがバレちゃうんですよ_HH_」_W"
				CALL PRINT_STR, @"「……それはそれでクラスの男子が悔しそうにシコりそうですね_HH_」_W"
			ELSE
				PRINTFORMW 「『危険日』ど真ん中でなくても可能性はあるんですからね」
				CALL PRINT_STR, @"「まぁいいです、危ない『膣コキ生自慰』しちゃいましょうか_HH_」_W"
			ENDIF
		;安全日じゃないけど避孕套没有を希望
		ELSE
				;そもそも着ける気が無い
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%に避孕套を手渡してきた
				PRINTFORMW 「やっぱり、あくまで「自慰」なので危ない橋は渡りたくないというか・・・」
				CALL PRINT_SELECT, "着ける/着けない"
				SELECTCASE RESULT
				CASE 0
					PRINTFORMW %CALLNAME:PLAYER%は%CALLNAME:TARGET%に従って避孕套を装着した。
					PRINTFORMW 「その避孕套越しでも酱と気持ちよくなるくらい頑張ってあげます」
					CALL SETFLAG, "戴上套套", PLAYER
				CASE 1
					PRINTFORMW 「わがままな%CNAME("二人称")%ですねぇ・・・口でつけてあげますから・・・つけてください」
					PRINTFORMW %CALLNAME:PLAYER%は%CALLNAME:TARGET%の唇で包み込むように避孕套を装備した
					CALL SETFLAG, "戴上套套", PLAYER
				ENDSELECT
		ENDIF
	;PLAYヤーへの挿入指令
	ELSEIF TRAIN_GENRE("逆挿入", SELECTCOM)
		;PLAYヤーは着けてもらうの希望
		IF TEQUIP:避孕套

		;そもそも着けてもらう気が無い
		ELSEIF CONFIG("Ｖ避孕套")

		;避孕套没有を希望
		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 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_K58, 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_K58(ARGS)
#DIM ACTOR
ACTOR = FINDCHARA(NO, 58)

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 "淫紋贴纸"
	;デフォだと[欲望LV3]or[屈服刻印LV1]
	;SIF MARK:ACTOR:淫紋 == 0 && (ABL:ACTOR:欲望 >= 3 || MARK:ACTOR:屈服刻印)
	;	RETURN 1
	;STR:実行条件 = イエロー_(※淫紋を受け入れてもらうには、[欲望LV3]or[屈服刻印LV1]の必要が有ます)
CASE "淫紋"
	;デフォだと[淫乱]or[受虐属性LV3]or[屈服刻印LV3]
	;SIF TALENT:ACTOR:淫乱 || ABL:ACTOR:受虐属性 >= 3 || MARK:ACTOR:屈服刻印 >= 3
	;	RETURN 1
	;STR:実行条件 = イエロー_(※刻印を受け入れてもらうには、[淫乱]or[屈服刻印LV3]or[受虐属性LV3]の必要が有ます)
CASE "避妊の護符の解除"
	;例）風花維吹の場合の記述
	;維吹は[相思相愛]まで避妊の護符を解除しない
	;SIF TALENT:ACTOR:相思相愛
	;	RETURN 1
	;STR:実行条件 = イエロー_※維吹は[相思相愛]になるまで避妊の護符を破棄しません
ENDSELECT

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

@MENU_SINGLE_ENDING_K58
;エンディングを書いたら、下の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_K58, ARGS
SELECTCASE ARGS
CASE "ＥＮＤ名１"
	PRINTFORMW ＥＮＤ名１の本文です
CASE "ＥＮＤ名２"
	PRINTFORMW ＥＮＤ名２の本文です
CASE "ＥＮＤ名３"
	PRINTFORMW ＥＮＤ名３の本文です
ENDSELECT
RETURN 1

path: ERB/EVENT_K/58 魔華/EVENT_58_魔華.ERB