code:
;-------------------------------------------------
;口上テンプレート
;小早川百合香口上_2020_01_xx（角色クターの名前を入れる、下にコンセプトなど一言あれば入れる）
;製作者　8の686
;-------------------------------------------------
;-------------------------------------------------
;角色追加の手順（必読！）
;１：EVENT_K39_名前.ERBとEVENT_K39_SHOP.ERBとEVENT_K39_DAILY.ERBとCHARA39.csvのファイル名と内部の39を角色番号に変更し、名前部分を角色名にする

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

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

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

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

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

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

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

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	IF CEVENT("百合香：父との再会")
		LOCALS = 我_我
	ELSE
		LOCALS = 我_我
	ENDIF
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		LOCALS = %NAME:PLAYER%_%CSTR:PLAYER:ふりがな%
	;相手が主人ではない
	ELSE
		LOCALS = %CALLNAME:PLAYER%_%CSTR:PLAYER:ふりがな%
	ENDIF
;"主人"と"助手"は三人称。主に当人と話していない時に使う
CASE "主人"
	LOCALS = %CALLNAME:MASTER%桑_%CALLNAME:MASTER%桑
CASE "助手"
	LOCALS = %CALLNAME:ASSI%同学_%CSTR:ASSI:ふりがな%同学
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;勧誘イベントのセリフや紹介文
;ここの中に限り、CFLAG,BASE,TALENT,ABL,EXP,CSTRをCSVに書いたものから変更させることが出来ます
;例えばBASE:体力を2000にしたいなら BASE:0:体力 = 2000 、強気にさせたいなら TALENT:0:強気 = 1 として下さい
;また、ABL:信頼を+2させたい場合には ABL:0:信頼 = ABL:信頼 + 2 と書いてください
;-------------------------------------------------
@EVENT_PROFILE_K39, ARGS

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = 明明很讨厌男人、却有着想要成为放荡的女子的愿望。
	STR:2 = 虽然平时表现出一副淑女的样子、一旦做起淫乱的事情就会散发出别样的魅力。
CASE "勧誘"
	PRINTFORMW 午后、昼食も終わって学校の中をぼんやり歩いていると……
	IF FINDCHARA(NO, 6) > 0
		PRINTFORMW どことなく、樱に似たような雰囲気を纏った女性が声を掛けてきた。
	ELSE
		PRINTFORMW どこか大人びた雰囲気を持った美女が声を掛けてきた。
	ENDIF
	PRINTFORMW 「もし、すみません。貴女は……%CNAME("二人称")%桑ですよね？」
	PRINTFORMW
	PRINTFORMW ・
	PRINTFORMW ・
	PRINTFORMW ・
	PRINTFORMW
	PRINTFORMW 「%CNAME("一人称")%、小耳に挟んだのですけど……」
	PRINTFORMW 「……%CNAME("二人称")%桑が学園中の綺麗な女性を集めているという噂を耳にしたのですが。」
	PRINTFORMW 「ああ勘違いしないでください。そのことをネタに揺すろうとか脅そうとか、そういうつもりではないですから」
	PRINTFORMW 「実は……%CNAME("一人称")%、SNSにエッチな自撮りを投稿してまして」
	PRINTFORMW 「この事は他の方には内緒ですよ？」
;	PRINTFORMW 「元々男性とは致せないし、……守秘義務も有ますから……無理にとは言いません」
;	PRINTFORMW 本文：「我さぁ、見た目は大和撫子だって言われるけどさぁ。そんな事ないって言うかね、男の子ってちょっと怖いから好きじゃないんだよねぇ……」
;	PRINTFORMW 「それにぃ、ヤリサー活動なんてあんまり公言する事じゃないしぃ」
	PRINTFORMW 「大号的声では言えないんですけど……%CNAME("一人称")%はあまり男性は得意ではないと言うか……ちょっと怖いんです」
	PRINTFORMW 「それに女性が好みの領帯プだなんて……お友達には言えなくって……」
	PRINTFORMW 「ここの部活ではちょっと人に言えない活動をしているんですよね？」
	PRINTFORMW 「もし良ければ……%CNAME("一人称")%も入れてくださいませんか？」
;	PRINTFORMW （意訳：你、私の秘密を知りましたね？　私と你は同じ穴の貉なんですよ。ほらほら、私を部活に入れてくれないと你の秘密を蔷薇すかもしれませんよ）

	IF TRUE_SEX(MASTER) == "男性"
		TALENT:0:難以越過的底線 = 1
		TALENT:0:贞操重视 = 1
		TALENT:0:好色 = 0
		ABL:0:信頼 = ABL:信頼 - 2
		CFLAG:0:好感度 = CFLAG:好感度 - 2500
	ELSE
		CFLAG:0:好感度 = CFLAG:好感度 + 100
	ENDIF

;五分あればギタンギタンに口上をでっち上げてさしあげましてよ！！　ゲーミング大小姐感
CASE "勧誘直後"
	;百合関数が2の場合角色イベントによる提案を得られる＞台詞変化
	;1の場合は撮影機材がなかった場合撮影機材を持ってきてくれる(ある場合は褒めてくれる)
	IF YURI_COND(MASTER) >= 2
		;旧仕様
		;PRINTFORMW 「もしよかったら、……%CNAME("一人称")%もその一人に加えて貰えませんか？」
		;新仕様：初球デッドボール
		PRINTFORMW 「ところで……%CNAME("二人称")%桑は女の子同士の少しエッチな自撮りに興味はお有では有ませんか？」
		PRINTFORMW 「実は%CNAME("一人称")%……%CNAME("二人称")%とそんな写真を撮ってみたいなんて思っていたのですが……」
		PRINTFORML
		PRINTFORMW %CALLNAME:TARGET%通过隣に腰をおろすと熱っぽい視線を%CALLNAME:MASTER%に向け一边继续、自然に手を重ねてきた。
		PRINTFORML
		CALL PRINT_SELECT, "百合香の答应了/百合香の誘いに乗らない"
		IF RESULT == 0
			;CALL PRINT_STR, "「有がとうございます……_HH_ じゃあ、これからよろしくお願いします……_HH_」_W"
			CALL PRINT_STRW, @"「有がとうございます……_HH_ これから二人の写真を沢山撮っていきましょうね……_HH_」"
				PRINTFORML
				PRINTFORMW 【%CALLNAME:MASTER%%CALLNAME:TARGET%の提案に合意した】
				PRINTFORMW 【[检查阴部][Ｈ的写真]の合意を得た】
			CALL SET_CEVENT, "百合香の提案：合意"
			CALL SET_GOUI, "检查阴部"
			CALL SET_GOUI, "Ｈ的写真"
		ELSEIF RESULT == 1
			;旧仕様
			;PRINTFORMW 「やっぱり初対面の誘いには……乗れませんよね」
			;PRINTFORMW 「無理にとは言いませんので、ゆっくりお話ししたりもしたいです」
			;新仕様　　　大和撫子闇ムーヴ
			PRINTFORMW 「ごめんなさい……%CNAME("一人称")%としたことが、自分の事ばかり考えてしまって」
			PRINTFORMW 「初対面でこんなお願いをするのは不躾でしたね……」
			PRINTFORML
			PRINTFORMW %CALLNAME:TARGET%通过心底申し訳ないと言った様子で視線を伏せ、%CALLNAME:MASTER%の手を強く握りしめている……
			;PRINTFORMW 街道すがりのネコ「おーらい、その手を放そう」
			;PRINTFORMW 街道すがりのネコ「はなそうね？？？」
		ENDIF
	ELSE
		;勧誘すると本性を現すクズの鏡とはこういうモノでしてよ構文
		IF ITEM:撮影機材 == 0
			PRINTFORMW 「ところで……%CNAME("二人称")%桑は『女の子同士』の少しエッチな自撮りに興味はお有では有ませんか？」
			PRINTFORMW 「実は%CNAME("一人称")%、撮影に関してはちょっと詳しいのですが……」
			PRINTFORML
			PRINTFORMW %CALLNAME:TARGET%通过隣に腰をおろすと熱っぽい視線を%CALLNAME:MASTER%に向け一边继续、自然に手を重ねてきた。
			PRINTFORML
			IF FIND_COND("乃々")
				PRINTFORMW 「照相机のアナログ撮影に関しては乃々桑の方がお詳しいとは思いますけど」
				PRINTFORMW 「%CNAME("一人称")%は動画撮影や編集なら少し自信が有ます」
				PRINTFORML
			ENDIF
			PRINTFORML %CALLNAME:TARGET%の話を詳しく……
			CALL PRINT_SELECT, "聞く/聞かない"
			IF RESULT == 0
				PRINTFORMW 「有がとうございます。勇気を出して%CNAME("二人称")%桑にお声をかけて正解でした」
				PRINTFORMW 「早速ですが部室の方に撮影機材を用意しておこうと思います」
				ITEM:撮影機材 = 1
				PRINTFORML
				PRINTFORMW 【%CALLNAME:MASTER%撮影機材を手に入れた】
			ELSE
				PRINTFORMW 「是这様吗……残念です」
				PRINTFORMW 「もし……撮影に興味がお有でしたら、何か力になれるかもしれませんから声をかけてみてくださいね」
			ENDIF
		ELSE
			PRINTFORMW 「部室の方を拝見させていただいたのですが、素晴らしいですね」
			IF FIND_COND("乃々")
				PRINTFORMW 「生徒会の記録係乃々桑が在籍しておられるからでしょうか」
				PRINTFORMW 「この部室は撮影機材も揃っているのですね」
			ELSE
				PRINTFORMW 「本格的な撮影機材が一街道揃っているなんて思いませんでしたから」
			ENDIF
			PRINTFORMW 「ところで……%CNAME("二人称")%はどの様な撮影をなさっておられるのですか？」
			PRINTFORMW 「%CNAME("一人称")%、先ほども申し上げた様に『女の子同士』の仲睦まじい様子を撮影するのに少し興味があるのですが」
			PRINTFORMW 「その様な趣向にご興味は……%CNAME("二人称")%は有ませんか？」
			PRINTFORML
			PRINTFORMW %CALLNAME:TARGET%通过不动声色地重ねた手の指を絡めてくる……
			;PRINTFORMW 茶を啜っているいつもの女仆（物は言いようですよねえ……）
		ENDIF
	ENDIF

	PRINTL
	PRINTFORMW - ！系统信息！ -
	PRINTFORML %CALLNAME:TARGET%の%CALLNAME:MASTER%に対する二人称を設定できます。
	PRINTFORML 当口上は固有名称で識別させるため、二人称(出来れば人名)が設定してあるとより没入感を味わいやすいかと存じます。
	PRINTFORML 現在的二人称は『%CNAME("二人称")%』です。要进行変更吗？
	PRINTFORML (後から取引で拜托了ことで変更することもできます。)
	CALL PRINT_SELECT, "変更する/変更しない"
	IF RESULT == 0
		CALL NAME_CONVERT_SP, TARGET
	ELSEIF RESULT == 1
		PRINTFORMW  二人称を変更しません。
	ENDIF

;これも別になくても構いません。特殊な条件がある場合などにどうぞ
CASE "出現条件"
	PRINTFORMW %NAME:TARGET%作为%CALLNAME:MASTER%的"%CSTR:関係%"、会在白天出现部室。

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

	ELSE

	ENDIF
;同居後の自分的房間の解説です。これも別に無くて構いません
CASE "自室描写"
	PRINTFORML 収納なども含め整理整頓されている、年相応的房間だ。
	PRINTFORML 要所要所でなにやら格式高い小物が使われていたりと、彼女の品の良さも伝わってくる。
ENDSELECT

;-------------------------------------------------
;この角色が拒否している指令のフラグ立てや其他色々なフラグを開始前に設定できる
;partnerは勿論、指导者の時でも読み込む
;-------------------------------------------------
@SETFLAG_BEFORE_TRAIN_K39
;一定の段階まで(中身も含めた)男へのチン負けはしないです
;口上書きやすさ優先で……
;恋慕になっても男性からはチンコだめです(性処理はしてくれる)
;元男性だと假阳具も通さなくなってしまうが、そうしないと具現で貫通しちゃうのでしょうがない
	IF PENIS(PLAYER) || YURI_COND() == 1
		IF YURI_COND() <= 0 || (TALENT:恋慕 == 0 && YURI_COND() == 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
	ENDIF
;-------------------------------------------------
;一日の終わりでフラグなどを変化させたい時にはここで弄ることが出来る
;-------------------------------------------------
@TIMEEVENT_K39

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

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	IF CEVENT("百合香の提案：合意") == 1
		PRINTFORMW 「気心知れたわけでもないけれど……なんだか、ドキドキしてしまいますね」
		PRINTFORMW 「これが初夜に初めて逢瀬をする情侣の気持ちなんでしょうか、なんて」
		PRINTFORMW 「诶嘿嘿、冗談ですよ。ともかく、よろしくお願いします」
	ELSE
		PRINTFORMW 「いざ本番となるとやっぱり緊張してしまいますね」
		PRINTFORMW 「写真は撮り慣れてても、こうしてするのは初めてで……」
		PRINTFORMW 「どうぞお手柔らかにお願いします」
	ENDIF
	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	IF CEVENT("百合香の提案：合意") == 1
		PRINTFORMW 「ちょっとは%CNAME("二人称")%桑に気に入って貰えるような女性になれたでしょうか？」
		PRINTFORMW 「……一度言ってみたかったんですよね、こういうの」
		PRINTFORMW 「さあ、楽しみましょう」
	ELSE
		PRINTFORMW 「少しは緊張しなくなってきましたけど」
		PRINTFORMW 「慣れちゃだめって思いますが、やがてこれも当たり前になるんでしょうね」
		PRINTFORMW 「お手柔らかにお願いします」
	ENDIF
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	IF CEVENT("百合香の提案：合意") == 1
		PRINTFORMW 「大分こういうコトするのも慣れてきましたね」
		PRINTFORMW 「……最初の頃からは、考えられないですけど」
		PRINTFORMW 「%CNAME("二人称")%桑としない日はひとりで悶々としちゃうんです」
		PRINTFORMW 「今日も%CNAME("一人称")%のこと、しつけて下さいね」
	ELSE
		PRINTFORMW 「ちょっとは%CNAME("二人称")%桑に気に入って貰えるような女性になれたでしょうか？」
		PRINTFORMW 「……一度言ってみたかったんですよね、こういうの」
		PRINTFORMW 「さあ、楽しみましょう？」
	ENDIF
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	IF CEVENT("百合香の提案：合意") == 1
		PRINTFORMW 「%CNAME("二人称")%桑としない日の躁动难忍、すごくつらくて」
		PRINTFORMW 「……躁动难忍もあるんですけど……なんか、違う感じもあるんです」
		PRINTFORMW 「もっと私のことを見て欲しいとか、独り占めしたいとか……」
		IF YURI_COND() == 2
			PRINTFORMW 「もしかしたら私、%CNAME("二人称")%桑に恋しちゃってるのかなって」
		ENDIF
		PRINTFORMW 「なんて……考えすぎもよくないですよね」
		PRINTFORMW 「お互いに、今日も一杯気持ちよくなりましょうっ」
	ELSE
		PRINTFORMW 「大分こういうコトするのも慣れてきましたね」
		PRINTFORMW 「……最初の頃からは、考えられないですけど」
		PRINTFORMW 「%CNAME("二人称")%桑としない日はひとりで悶々としちゃうんです」
		PRINTFORMW 「今日も%CNAME("一人称")%のこと、しつけて下さいね」
	ENDIF
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	IF CEVENT("百合香の提案：合意") == 1
		PRINTFORMW 「最初はかっこつけもあったんです」
		PRINTFORMW 「本当は写真は撮り慣れてても、こうしてするのは初めてで……」
		PRINTFORMW 「身体が%CNAME("二人称")%桑のものになっていくのが怖い反面嬉しかったです」
		PRINTFORMW 「でも今なら、%CNAME("二人称")%桑が望むなら私をさらけ出していいし」
		PRINTFORMW 「自己コレはダメって思ったら止められる」
		PRINTFORMW 「そういう風に考えられるよう变成了んです」
		PRINTFORML
	ELSE
		PRINTFORMW 「今更こういうこと言うのは恥ずかしいですけど」
		PRINTFORMW 「初めてじゃないのに、ドキドキしてしまいますね」
		PRINTFORMW 「これが初夜に初めて逢瀬をする情侣の気持ちなんでしょうか、なんて」
		PRINTFORML
		PRINTFORMW 「诶嘿嘿、冗談ですよ」
	ENDIF
	PRINTFORMW 「これからも、%CNAME("一人称")%のこと、見てて下さいね」
	CALL SET_CEVENT, "調教開始：恋慕"
;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
	IF CEVENT("百合香の提案：合意") == 1
		PRINTFORMW 「初めてシた時のこと、覚えてますか？」
		PRINTFORMW 「これが初夜に初めて逢瀬をする情侣の気持ちなんでしょうか」
		PRINTFORMW 「……なんて、言ったんですよね」
		PRINTFORML
		PRINTFORMW 「でも今ならわかります」
		PRINTFORMW 「大好きな人と身体を交わらせるというのが、こんなに幸せなことだって……」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%桑としない日の躁动难忍、すごくつらくて」
		PRINTFORMW 「……躁动难忍もあるんですけど……なんか、違う感じもあるんです」
		PRINTFORMW 「もっと私のことを見て欲しいとか、独り占めしたいとか……」
		PRINTFORMW 「もしかしたら私、%CNAME("二人称")%桑に恋しちゃってるのかなって」
		PRINTFORMW 「そうしているうちに恋する気持ちが%CNAME("二人称")%桑と一緒ってわかったときはすごく嬉しかったです」
		PRINTFORML
		PRINTFORMW 「だからこれからも、今も一杯気持ちよくなりましょう」
		CALL SET_CEVENT, "百合香の提案：合意"
	ENDIF
	PRINTFORMW 「……愛しています、%CNAME("二人称")%桑」
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無を格子（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K39_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 K39_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K39_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 != 39
	RETURN 1

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;其他
	ELSE
		PRINTFORMW
	ENDIF
;partnerが体力or精力尽きた場合
ELSEIF STATE("撃沈")
	PRINTFORMW
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
	PRINTFORMW
;恋慕
ELSEIF TALENT:恋慕
	PRINTFORMW
;屈服刻印Lv1以下
ELSEIF MARK:屈服刻印 <= 1
	PRINTFORMW
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW
ENDIF
RETURN 1

;-------------------------------------------------
;指令実行時のセリフ
;-------------------------------------------------
@KOJO_MESSAGE_COM_K39
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0
;-------------------------------------------------
;指令実行時のセリフ(コピペ用)
;HHすると爱心マークがでるやつ
;-------------------------------------------------
;
;CALL PRINT_STR, "「」_W"
;
;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1
	;被逆推ているとき
	IF TEQUIP:推倒
		;初めて
		IF FIRSTCOM_REV(SELECTCOM) == 0
			PRINTFORMW
		;二回目以降
		ELSE
			;恋慕
			IF TALENT:恋慕
				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
	;初めて
	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 「……%CNAME("一人称")%が一人でシてるとこ……見たいんですか？」
		PRINTFORMW %CALLNAME:TARGET%通过怯生生地自己的股間を触り始めた。
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF TEQUIP:振動棒 || TEQUIP:肛用振動棒
				CALL PRINT_STRW, @"「だ、だめっ……ああっ、ダメっ、あぁぁんっ_HH_」"
				CALL PRINT_STRW, @"「んっ、んーーっっ、見られながら……%TEXTR("気持ちいい所/感じちゃう場所")%グリグリしろなんて……あっ、あああっ_HH_」"
			ELSE
				IF RAND:3 == 0
					CALL PRINT_STRW, @"「……大丈夫です_HH_」"
					CALL PRINT_STRW, @"「%CNAME("一人称")%の生自慰見せるのなんて……%CNAME("二人称")%にだけですからね_HH_」"
				ELSEIF RAND:2 == 0
					PRINTFORM 「%TEXTR("ええ/是")%……%TEXTR("SNS/Twi〇t〇r")%には%TEXTR("しちゃってる/自慰してる")%所も
					IF RAND:2 == 0 && TALENT:相思相愛
						CALL PRINT_STRW, @"投稿%TEXTR("しちゃってます/してます")%けど、一番%TEXTR("見られたいのは/見て欲しいのは")%%CNAME("二人称")%だけですから_HH_」"
					ELSE
						CALL PRINT_STRW, @"あげて%TEXTR("ますけどぉ、んぅ/ますよ……もう、坏心眼。あっ、ああっ")%_HH_」"
					ENDIF
				ELSE
					PRINTFORMW 「%CNAME("一人称")%が%TEXTR("自撮りして裏垢であげてるの/えっちな写真をSNSにあげてるの")%、%CNAME("二人称")%も知ってますよね？」
					CALL PRINT_STRW, @"「……%TEXTR("でも/だけど")%、%TEXTR("んっ/あっ")%_HH_　%TEXTR("無修正まで/全部")%見せ%TEXTR("る/ちゃう")%のは%CNAME("二人称")%にだけですからね_HH_」"
				ENDIF
			ENDIF
		;それ以外
		ELSE
			IF TEQUIP:振動棒 && TEQUIP:肛用振動棒
				PRINTFORMW 「どれで？」
				CALL PRINT_STRW, @"「%TEXTR("何の事か、解ってるでしょう/どちらかじゃダメなんですか")%……りょ、両方同時なんて_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("ん/んぅ")%_HH_　……%TEXTR("はぁ/くぅ")%_HH_……」"
			ELSE
				IF RAND:2 == 0
					PRINTFORMW 「自己した感想を……後で作文にして%TEXTR("＿/見せて/SNSに投稿して/SNSにあげて")%欲しいんですか？」
					PRINTFORMW 「%TEXTR("/どうしてもって言うなら良いですけど……")%」
					PRINTFORMW
					PRINTFORMW （言えない……本当は自己しちゃった感想付きで自撮りをＳＮＳにあげてるなんて）
					;PRINTFORMW ↑おなにーとか好きなのに書けてない民
				ELSE
					PRINTFORMW 「%TEXTR("あっ、是/是")%」
					PRINTFORMW %CALLNAME:TARGET%通过小さく身体を震わせた…
					PRINTFORML
					PRINTFORMW 「%TEXTR("今日……えっと/……あの、今日はどうしたんですか？")%　%TEXTR("やたら無茶なお願いをされてる気がしますけど/やたら無理っぽいお願いをしてくる気がしますけど")%……」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW 「%CNAME("二人称")%は初吻がまだなんですね」
			CALL PRINT_STRW, @"「………では、いただきます_HH_」"
		;それ以外
		ELSE
			PRINTFORMW 「%CNAME("二人称")%の初吻を、%CNAME("一人称")%に？」
				IF TALENT:恋慕
				CALL PRINT_STRW, @"「……いっぱい愛してあげますね_HH_」_"
				ELSE
					PRINTFORMW 「……ちょっと恥ずかしいですが……いいですよ」
					PRINTFORMW 「情緒って大事ですからね」
				ENDIF
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕 && RAND:3
			CALL PRINT_STRW, @" 「……%CNAME("二人称")%、無防備すぎます_HH_」"
		ELSEIF RAND:2
			PRINTFORMW 「……本当、罪作りな顔してるんですから」
		;それ以外
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、こうされるの好きですもんね」
		ENDIF
	;それ以外
	ELSE
		IF CHECK_COM("テンダー接吻") && TALENT:恋慕 && RAND:6
			CALL PRINT_STR, "「はぅっ、んんっ、んっ_HH_」_W"
			CALL PRINT_STR, "「んっ、んっ_HH_ この接吻、好きですっ_HH_」_W"
			CALL PRINT_STR, "(頭が沸騰しちゃいそうなぐらい好きっ_HH__HH_)_W"
		ELSEIF CHECK_COM("テンダー接吻") && TALENT:恋慕 && RAND:5
			CALL PRINT_STR, "「ん……はふ、んんっ_HH_」"
			CALL PRINT_STRW, @"「%CNAME("二人称", "ふりがな")%桑_HH_」"
			CALL PRINT_STRW, @"「接吻って不思議ですよね……_HH_」"
		ELSEIF CHECK_COM("テンダー接吻") && RAND:4
			PRINTFORMW 「ん……はふ」
			CALL PRINT_STRW, @"「%CNAME("二人称")%、接吻って不思議ですよね……_HH_」"
		;恋慕
		ELSEIF TALENT:恋慕 && RAND:3
			PRINTFORMW 「……%CNAME("二人称")%桑は接吻の、馴れました？」
			CALL PRINT_STR, "「……ん、是这様吗_HH_」"
		;それ以外
		ELSEIF ABL:信頼 == 3 && ABL:Ｍ感覚 >= 3 && RAND:2
			PRINTFORMW 「いつも接吻度に思うのですが」
			PRINTFORMW 「やっぱり%CNAME("二人称")%と接吻の、好きですね……」
		ELSE
			CALL PRINT_STRW, @"「……_HH_」"
			PRINTFORMW 「%CNAME("二人称")%……接吻、好きですよね」
		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
		;ELSEIF YURI_COND
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方乳交
;-------------------------------------------------
IF SELECTCOM == 11
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方足交
;-------------------------------------------------
IF SELECTCOM == 12
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開阴道
;-------------------------------------------------
IF SELECTCOM == 13
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入
;-------------------------------------------------
IF SELECTCOM == 15
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋
;-------------------------------------------------
IF SELECTCOM == 30
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 31
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛用振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒")
			;Ｓ状結腸まで振動棒が侵入している
			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
		;それ以外
		ELSEIF YURI_COND(MASTER) < 2
			PRINTFORMW 「……飛機杯ですか？」
			PRINTFORMW 「男にされるのは屈辱ですけど」
			PRINTFORMW 「%CNAME("一人称")%にその手が触れないの是いですね」
		ELSE
			PRINTFORMW 「えっ、飛機杯ですか……？」
			PRINTFORMW 「ああいや、%CNAME("一人称")%は飛機杯使うのが嫌なわけではなくて」
			PRINTFORMW 「%CNAME("一人称")%は手がいいなあって……」
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ｖ挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 60 && SELECTCOM <= 69 && FIRSTCOMS("Ｖ挿入") == 0
	;処女
	IF TALENT:処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF COND("双頭振動棒")
				PRINTFORMW 「思ったより大きいんですね……」
				PRINTFORMW 「いえ、覚悟はしています……どうか请温柔点、拜托了……」
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	;非処女
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ｖ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;巨根
	IF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 65
			PRINTFORMW
		;対面座位
		CASE 63
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ｖ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			CALL PRINT_STR, " 「あぅぅ、イかせてください……_HH__HH_」_W"
		ELSE
			PRINTFORMW 「(イキたい、イカせて……っ)」
		ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		CASEELSE
			IF RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
;-------------------------------------------------
;二穴挿入(書く場合には;を消してください)
;-------------------------------------------------
;ELSEIF SELECTCOM >= 60 && SELECTCOM <= 79 && COND("３Ｐ")
;	IF CHECK_COM("两根挿入Ｖ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ｖ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("两根挿入Ａ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ａ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("二穴挿入")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("二穴挿入")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ENDIF
ENDIF

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

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

;-------------------------------------------------
;屈曲位
;-------------------------------------------------
IF SELECTCOM == 62
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「やっ、あっ…… ナカに入ってきてる……」
			PRINTFORMW 「普通就好のよりエッチだけれど……」
			CALL PRINT_STRW, @"「%CNAME("一人称")%の阴部が、%CNAME("二人称", "桑")%のものになってるって分かっちゃう……_HH_」"
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

;-------------------------------------------------
;Ａ挿入系初選択
;疼痛が少なく楽しめているかはCHECK("Ａ挿入")で判定
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	;Ａ処女
	IF TALENT:Ａ処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ａ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORML 「まだ少し……」
		PRINTFORMW 「お尻でするの%TEXTR("怖い/痛い")%から……温柔的してくださいね」
	;巨根
	ELSEIF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		CALL PRINT_STRL, @"「%TEXTR("んっ/んんっ")%_HH_%CNAME("二人称")%桑の大きい……」"
		CALL PRINT_STRW, @"「そんな%TEXTR("大きい/立派な")%ので%TEXTR("お尻/肛門")%犯されたら_HH_%CNAME("一人称")%、%TEXTR("壊れちゃいそうです/おかしくなっちゃいそうです")%_HH_」"
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			IF PENIS(PLAYER)
				CALL PRINT_STRL, @"「%CNAME("二人称")%%TEXTR("に跨っ/をたっぷり搾り取っ")%ちゃうんですからね_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("女の子同士/同性")%なのにお尻でえっちしちゃうなんて%CNAME("一人称")%達って%TEXTR("変態桑ですよね/ちょっとアブノーマルですね")%_HH_」"
			ENDIF
			CALL PRINT_STRW, @"（%TEXTR("擅長に出来るでしょうか……あっ、入ってきちゃいます/恥ずかしいけど……頑張らないといけないよね。んっ、入れただけなのに……お尻気持ちいい")%_HH_）"
		;対面座位
		CASE 73
			PRINTFORMW
		;それ以外
		CASEELSE
			IF PENIS(PLAYER)
				IF TEQUIP:PLAYER:避孕套
					CALL PRINT_STRL, @"「%TEXTR("酱と避孕套をつけて偉いです……/お尻なのに避孕套をしてくれるなんて嬉しい……")%_HH_」"
					CALL PRINT_STRW, @"「%TEXTR("お尻/肛門")%に%TEXTR("出されちゃう瞬間/射精される感覚")%も嫌いじゃないけど_HH_……%TEXTR("中からトロトロ出て来ちゃうのは恥ずかしいんです_HH_/溢れてきちゃうとちょっと汚いですから……")%」"
				ELSE
					CALL PRINT_STRL, @"「%CNAME("二人称")%桑、%TEXTR("お尻/肛門")%なら%TEXTR("どれだけ出しても妊娠しないですから/妊娠しないから好きなだけ射精して下さいね")%_HH_」"
					CALL PRINT_STRW, @"（%TEXTR(@"%CNAME("一人称")%のお腹がいっぱいになるまで注がれちゃうのでしょうか……ドキドキしちゃいます/妊娠しないけど……沢山出されちゃったらどうしましょう……はぁ_HH_想像しちゃいました")%_HH_」"
				ENDIF
			ELSE
				CALL PRINT_STRL, @"「%TEXTR("女の子同士/同性")%でも……%TEXTR("肛門性交/お尻でえっち")%%TEXTR("するんですね/しちゃうんですね")%_HH_」"
				CALL PRINT_STRW, @"「もちろん、%CNAME("二人称")%桑となら%CNAME("一人称")%は%TEXTR("安心ですけど……温柔的してくださいね/心配してないんだけど……私の性癖もあるからアブノーマルだなぁって思います")%_HH_」"
			ENDIF
		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:推倒
			PRINTFORML 「頑張りますね……」
			PRINTFORMW 「えっと、こうして欲しいとかあれば何でも言ってください」
		;それ以外
		ELSE
			;レズ强奸　想定：双頭振動棒
			IF TALENT:処女 && COND("双頭振動棒", PLAYER)
				PRINTFORML 「あの……実は%CNAME("一人称")%初めてなので……」
				PRINTFORMW 「温柔的してくださいね……」
			ELSE
				PRINTFORML 「あの……改めて宜しくお願いします……」
				PRINTFORMW 「女の子同士ですから少しは安心ですけど……温柔的してくださいね……」
			ENDIF
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			IF COND("双頭振動棒", TARGET)
				CALL PRINT_STRL, @"「%TEXTR(@"%CNAME("一人称")%に滅茶苦茶にされてる気分は/女の子同士なのに一つになってる気分は")%どうですか、%CNAME("主人")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR(@"ほら……%CNAME("主人")%の中に出たり、入ったりしてますよ/もう気持ち良くなってきちゃったんですか？　ほらほら、%CNAME("主人")%はココを虐められるのが好你たいですね")%_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%CNAME("主人")%と%CNAME("一人称")%の%TEXTR("阴部/花びら/気持ちいい所")%が擦れあって%TEXTR("グチュグチュ音が響いちゃってます/はしたない音が聞こえて来ちゃってますね")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR(@"もっともっと可愛い声を聞かせてくださいね。%CNAME("一人称")%の瞳に%CNAME("主人")%のはしたない姿をもっと焼きつけておきたいですから/阴部から蜜がいっぱい溢れてきちゃってます。そんなに喜んで貰えるなんて%CNAME("一人称")%も嬉しいですよ")%_HH_」"
			ENDIF
		;それ以外
		ELSE
			IF COND("双頭振動棒", TARGET)
				CALL PRINT_STRL, @"「%CNAME("助手")%%TEXTR(@"の事を抱けるなんて光栄です。たっぷり可愛がってあげますからね/と%CNAME("一人称")%が一つに繋がっちゃってるの解りますか？")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR(@"もう気持ち良くなってきちゃったみたいですけど、もっともっと%CNAME("助手")%の弱い所をいじめちゃいます/お互いに動いてもっともっと気持ち良くなりましょうね")%_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%CNAME("助手")%%TEXTR(@"の阴部と%CNAME("一人称")%の阴部が接吻してるみたいで……素敵です/の上に%CNAME("一人称")%が覆いかぶさって、これからたっぷり可愛がって给んだと思うと興奮しちゃいます")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("ん/んっ")%_HH_　二人の%TEXTR("阴蒂/阴蒂酱/敏感な所")%が擦れあって……解ります？　ふふっ、もっともっと気持ち良くなりましょうね_HH_」"
			ENDIF
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF COND("双頭振動棒", PLAYER)
				CALL PRINT_STRL, @"「%CNAME("主人")%、%TEXTR("もう許してください……ああっ、ダメェ/そんな激烈地しちゃ、んっ_HH_　んぅ、気持ちいいですっ、ああっ")%_HH_」"
				CALL PRINT_STRW, @"「%TEXTR("ダメぇ/ダメっ/ダメ")%_HH_　%TEXTR(@"そこは弱いのっ、ああっ/%CNAME("一人称")%の弱い所ばっかりっ、あっ、ああっ、ダメぇ、感じちゃうの")%_HH_」"
			ELSE
				CALL PRINT_STRW, @"「%CNAME("一人称")%と%CNAME("主人")%は%TEXTR("女の子同士/同性")%ですけど……%CNAME("一人称")%は本気で%CNAME("二人称")%を愛しています_HH_」"
				CALL PRINT_STRW, @"「だから、%TEXTR(@"好きな様に%CNAME("一人称")%を抱いてくださいね/遠慮なく……一緒に乱れましょうね")%_HH_」"
			ENDIF
		;それ以外
		ELSE
			IF COND("双頭振動棒", PLAYER)
				CALL PRINT_STRL, @"「%TEXTR(@"安心してくださいね。%CNAME("一人称")%はどうすれば気持ち良くなれちゃうか、熟知してますから/最初はゆっくり動いてくれれば……%CNAME("一人称")%がリードしますからね")%_HH_」"
				CALL PRINT_STRW, @"「ふふっ_HH_……%TEXTR("擅長ですよ/いい感じですよ")%_HH_　そう……就这様動いてください、んっ_HH_」"
			ELSE
				PRINTFORML 「%TEXTR("少し/ちょっと")%%TEXTR("不安/怖い")%ですけど……女の子同士なら%TEXTR("大丈夫/安心")%です」
				PRINTFORMW 「%TEXTR("んっ/ん")%……%TEXTR("大丈夫です/ちょっとビッ阴蒂しただけですから……")%」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;手淫
;-------------------------------------------------
IF SELECTCOM == 90
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSEIF YURI_COND(MASTER) < 2 && CFLAG:TARGET:好感度 < 1000
			PRINTFORMW 「別にすることは嫌じゃないんです」
			PRINTFORMW 「男にしないといけないって思うと、嫌悪感とかが、ね……」
			PRINTFORMW 「……拔出ものを抜いて、早く楽になってくださいね」
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSEIF YURI_COND(MASTER) < 2
			PRINTFORMW 「……女性のモノをあーしてこーするのは好きですけど」
			PRINTFORMW 「……男性のモノに同じことをするのは……」
			PRINTFORMW 「いえ、なんでも有ません。手早く終わらせてしまいましょう？」
		ELSE
			PRINTFORMW 「……あは」
			PRINTFORMW 「女性のおちんちん、大好きなんです」
			CALL PRINT_STRW, @"「いっぱいいっぱい、だしてくださいね……_BH_」"
		ENDIF
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕 && RANDIF(1, ABL:奉仕精神 >= 3)
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;乳交
;-------------------------------------------------
IF SELECTCOM == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && YURI_COND(MASTER) == 2
			CALL PRINT_STRW, @" 「あは……_BH_ 我のおっきな胸部で……しこしこ、どぴゅどぴゅ_HH_ しちゃいましょうね」"
			PRINTFORMW 「………こほん。こういうの、……ちょっと言ってみたかったんですよね」
		SIF FINDCHARA(NO, 40)
			PRINTFORMW 「そういうのが【得意】な方もいらっしゃいますし……ね」
	ELSEIF YURI_COND(MASTER) < 2
			PRINTFORMW 「……女性のモノに胸部たぷたぷするのは好きですけど……」
			PRINTFORMW 「……仕方ないですね。手早く終わらせてしまいましょう？」
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕 && YURI_COND(MASTER) == 2
			CALL PRINT_STRW, @"「あは……_HH_」"
			CALL PRINT_STRW, @"「この体勢だと、%CNAME("二人称")%のおちんちんが丸見え_HH_」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%のいいようにできちゃいますねぇ_HH_」"
		SIF FINDCHARA(NO, 40)
			CALL PRINT_STRW, @"「胸部たぷたぷ～って綾乃桑みたいにしてあげましょうか_HH_」"
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「ちょっと年上の大姐姐に、しこしこ_HH_扱かれるのはどうですか～？」_"
			CALL PRINT_STRW, @"「うー……恥ずかしいんですよ、こういうの……」"
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕 && YURI_COND(MASTER) >= 1
				CALL PRINT_STRW, @"「胸部で……たぽたぽ_HH_おちんちん扱いちゃいましょ～_HH_ 」"
				CALL PRINT_STRW, @"「ほら、%CNAME("一人称")%の胸部の中で、%CNAME("二人称")%のおちんちんちんが……」"
				CALL PRINT_STRW, @"「び君び君って_HH_ 震えてますよ～……_HH_」"
		;それ以外
		ELSE
				CALL PRINT_STRW, @"「こういうのは夢……なんて聞いたりもしますけど_HH_」"
				CALL PRINT_STRW, @"「実際気持ちよさそうですよねえ……_HH_」"
		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 RAND:4 == 0 && TALENT:恋慕
			PRINTFORMW 「もっと足をぎゅっとしたら気持ちいいでしょうか……？」
			CALL PRINT_STR, "「がんばれっ_HH_がんばれっ_HH_」_W"
		ELSEIF RAND:3 == 0 && YURI_COND() == 2
			PRINTFORMW 「本番でしちゃっても良いんですよ」
			PRINTFORMW 「……え、恋人になってないから本番はダメですか？」
			PRINTFORMW %CALLNAME:TARGET%通过かなり不満そうだ。
		ELSEIF RAND:2 == 0
			PRINTFORMW 「%CNAME("二人称")%の……出っ張ってるところが、こすれてます……っ」
			PRINTFORMW 「気持ちい……っ、ぁ、んっ」
		ELSE
			PRINTFORMW 「もっと足をぎゅっとしたら気持ちいいのでしょうか？」
			CALL PRINT_STR, "「あぅ、股間が熱いです……_HH_」_W"
		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 「胖次で扱君ですか？ あんまり綺麗じゃないと思うのですが……」
		PRINTFORMW 「……いくら%CNAME("二人称")%桑のお願いでも、恥ずかしいです」
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;奉仕舐陰
;-------------------------------------------------
IF SELECTCOM == 98
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;六九式
;-------------------------------------------------
IF SELECTCOM == 99
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶
;-------------------------------------------------
IF SELECTCOM == 104
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飞机杯冲
;-------------------------------------------------
IF SELECTCOM == 105
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && YURI_COND(MASTER) == 2
			PRINTFORMW 「えっ、飛機杯なんですか……？」
			PRINTFORMW 「ああいや、飛機杯使うのが嫌なわけではなくて」
			PRINTFORMW 「私的には手でもオッケーなんですけど……」
		ELSEIF FIRSTCOM(SELECTCOM) == 0 && YURI_COND(MASTER) < 2
			PRINTFORMW 「……飛機杯で、ですか？」
			PRINTFORMW 「別に避孕套は付けても付けなくても、お好きなように」
			PRINTFORMW 「%CNAME("一人称")%の手を汚さなくていいので、楽ですね」
	;二回目以降
	;被逆推ているとき
	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 「%CNAME("二人称")%の初めてを、私に？」
			PRINTFORMW 「嬉しい、です……」
		;それ以外
		ELSE
			PRINTFORMW 「%CNAME("二人称")%の初めてを、私に？」
			PRINTFORMW 「恋人じゃないのに、いいんですか……？」
		ENDIF
	ENDIF
	PRINTFORMW 「……私、%CNAME("二人称")%のコト、幸せにしますから……！」
	RETURN 1
ENDIF
;-------------------------------------------------
;正常位奉仕
;-------------------------------------------------
IF SELECTCOM == 120
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF TALENT:PLAYER:処女
			;被逆推ている時
			IF TEQUIP:推倒
				PRINTFORMW 「……すみません」
				PRINTFORMW 「%CNAME("二人称")%が初めてなのはわかってるんですが」
				PRINTFORMW 「私、もう……我慢できないです……」
			;それ以外
			ELSE
				PRINTFORMW 「……えっ」
				PRINTFORMW 「初めてを……私……で？」
			ENDIF
		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
		;それ以外
		ELSEIF YURI_COND(MASTER) < 2
			PRINTFORMW 「……え？今なんて？」
			PRINTFORMW 「聞こえなかったのでもう一度言って頂けますか？」
			PRINTFORMW
			PRINTFORMW 「%CNAME("二人称")%桑のお尻を掘って欲しい、ですって？」
				IF TALENT:恋慕
					PRINTFORMW 「冗談じゃないですよ、いくら親しい仲とは言えなんで你の尻を……」
					PRINTFORMW
					PRINTFORMW 「……どうしてもして欲しいんですか？」
					PRINTFORMW 「そういうことならしてあげますよ、你だけですから……ね」
					PRINTFORMW
					PRINTFORMW 「あは……♪こういうのも、たまに是いですね」
					PRINTFORMW 「お互いが望むままに、肉欲に溺れ、愛し合う」
					PRINTFORMW 「そうしたいびつな関係を許してくれたのは你ですから……」
				ELSE
					PRINTFORMW 「ふーん……そういうのがお好みだったんですね」
					PRINTFORMW 「%CNAME("二人称")%桑に靡くつもりもさらさら有ませんが、そうしたいというなら」
					PRINTFORMW
					PRINTFORMW 「ほら、しっかり入りましたよ」
					PRINTFORMW 「%CNAME("一人称")%は%CNAME("二人称")%桑がなぜ自分自身を貶める行為がしたいのか、知りませんけどね」
				ENDIF
			ELSE
			PRINTFORMW 「……え？今なんて？」
			PRINTFORMW 「聞こえなかったのでもう一度言って頂けますか？」
			PRINTFORMW
			PRINTFORMW 「%CNAME("二人称")%桑のお尻を掘って欲しい、ですって？」
			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
		;それ以外
		ELSEIF YURI_COND(MASTER) < 2
			PRINTFORMW 「……え？今なんて？」
			PRINTFORMW 「聞こえなかったのでもう一度言って頂けますか？」
			PRINTFORMW
			PRINTFORMW 「%CNAME("二人称")%桑のお尻を掘って欲しい、ですって？」
			PRINTFORMW 「それもバックで？」
				IF TALENT:恋慕
					PRINTFORMW 「冗談じゃないですよ、いくら親しい仲とは言えなんで你の尻を……」
					PRINTFORMW
					PRINTFORMW 「……どうしてもして欲しいんですか？」
					PRINTFORMW 「そういうことならしてあげますよ、你だけですから……ね」
					PRINTFORMW
					PRINTFORMW 「あは……♪こういうのも、たまに是いですね」
					PRINTFORMW 「お互いが望むままに、肉欲に溺れ、愛し合う」
					PRINTFORMW 「そうしたいびつな関係を許してくれたのは你ですから……」
				ELSE
					PRINTFORMW 「ふーん……そういうのがお好みだったんですね」
					PRINTFORMW 「%CNAME("二人称")%桑に靡くつもりもさらさら有ませんが、そうしたいというなら」
					PRINTFORMW
					PRINTFORMW 「ほら、しっかり入りましたよ」
					PRINTFORMW 「%CNAME("一人称")%は%CNAME("二人称")%桑がなぜ自分自身を貶める行為がしたいのか、知りませんけどね」
				ENDIF
			ELSE
			PRINTFORMW 「……え？今なんて？」
			PRINTFORMW 「聞こえなかったのでもう一度言って頂けますか？」
			PRINTFORMW
			PRINTFORMW 「%CNAME("二人称")%桑のお尻を掘って欲しい、ですって？」
			PRINTFORMW 「それもバックで？」
			PRINTFORMW 「……身体を大事にして下さい、なんて言っても聞いて貰えないのでしょうか」
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

;-------------------------------------------------
;浣腸
;大量的液体を注いだかはCOND("大量浣腸")で判定できます
;-------------------------------------------------
IF SELECTCOM == 136
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORML 「な……何をするんですか……」
		PRINTFORMW 「ひっ、や、やめてください。いやあああっ！！」
	;排泄
	ELSEIF TEQUIP:浣腸 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「許して……お願いします。何でもしますから」
			PRINTFORMW 你『んっ、今何でもするって言った？』
			PRINTFORMW %CALLNAME:TARGET%の肛門は限界を迎えつつも、プルプルと小刻みに震えながら必死に漏らすまいと堪えている。
			PRINTFORMW 白磁の様な肌には油汗がベットリと張りつき、端正な顔立ちは苦悶と羞恥に醜く歪む。
			PRINTFORMW 「%TEXTR("もう……無理っ/ごめんなさい……ごめんなさい……")%」
			PRINTFORMW （%TEXTR(@"他の人が見てる前で漏らすなんて……もう%CNAME("一人称")%生きていけない……/裏垢女子だから覚悟はしてたけど……こんなのって")%
			PRINTFORMW 「%TEXTR("きゃああああああああああっ/いやああああああああっ")%！！」
			IF COND("精液浣腸")
				SETCOLOR DEF_COLOR("白")
			ELSEIF BASE:排泄物
				SETCOLOR DEF_COLOR("暗黄色")
			ELSE
				SETCOLOR DEF_COLOR("灰色")
			ENDIF
			;排泄音を汎用乱数で組み立ててもいいのでは？
			SELECTCASE RAND:3
			CASE 2
				PRINTFORMW （ブリ、ブリッブリッ、ブビッ、ブビビッ、ブッ、ブリュルルル）
			CASE 1
				PRINTFORMW （ブッ、ブッ、ブリッ、ブリッ……ブビュ、ブリュル、ブチュ、ブチュ、ブリュ、ブリュ、ブッ、ブュルルル）
			CASEELSE
				PRINTFORMW （ブリッ、ブッ、ブッ、ブリッ、ブビュ、ブビュ、ブリッ、ビュ、ビュウウウ）
			ENDSELECT
			RESETCOLOR
			PRINTFORML
			PRINTFORM 響き渡る排泄音をかき消桑ばかりに%CALLNAME:TARGET%通过叫んだが、%TEXTR("勢いよく/凄まじいまでの音をたてて")%吐き出される
			IF BASE:排泄物
				IF COND("精液浣腸")
					PRINTFORMW 汚物と精液が混じった浣腸液を押し留めることは叶わなかった……
				ELSE
					PRINTFORMW お腹の中に溜まっていた汚物は床に飛散し、普段は何事に対しても落ち着いた態度を見せる%CALLNAME:TARGET%の顔は羞恥と悲しさに染圆圈。
					PRINTFORMW %CALLNAME:TARGET%通过%CALLNAME:MASTER%に許しを乞い一边继续、顔をしかめボロボロと涙を零れ落ちさせ無慈悲にも%CALLNAME:TARGET%の%TEXTR("肛門/尻穴/ケツ穴")%はなおも汚物の残滓を吐き出し続けていた……
				ENDIF
			ELSEIF COND("精液浣腸")
				PRINTFORMW 精液混じりの浣腸液が勢いよく深窓の令嬢の%TEXTR("肛門/ケツ穴/尻穴")%をこじ開けて次々に噴きだし続ける……
			ELSE
				PRINTFORMW 水っぽい浣腸液。壊れた噴水の様に深窓の令嬢の%TEXTR("肛門/ケツ穴/尻穴")%からはビュッ、ビュッと音をたてて浣腸液の残りを吐き出し続けていた……
			ENDIF
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

;-------------------------------------------------
;喝套内精液
;-------------------------------------------------
IF SELECTCOM == 147
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF ABL:精液中毒 >= 3
			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 「えっと……%CNAME("一人称")%、穿環するの苦手なんですけど……ダメ、ですよね」
			PRINTFORMW CALLNAME:TARGETは自分の身体に穿環をする、と言われ困っているようだが渋々従った。
		;それ以外
		ELSE
			PRINTFORMW 「えっと……%CNAME("一人称")%、穿環するの苦手なんですけど……ダメ、ですよね」
			PRINTFORMW CALLNAME:TARGETは自分の身体に穿環をする、と言われ困っているようだが、渋々従った。
		ENDIF
	;二回目以降
	ELSE
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW 「……まだつけるのですか？」
			PRINTFORMW CALLNAME:TARGETはさらに穿環をすることに嫌悪感はあるようだが、渋々従った。
		;それ以外
		ELSE
			;ＯＮフラグが付けた際のセリフです
			IF COND("陰蒂環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("陰唇環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("乳环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("肚脐环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;攝像機使用
;-------------------------------------------------
IF SELECTCOM == 170
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:攝像機 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「酱と%CNAME("一人称")%達がしているところ、しっかり記録して下さいね」
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

;-------------------------------------------------
;潤滑液使用
;-------------------------------------------------
IF SELECTCOM == 260
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「下準備は大事ですものね」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;媚薬使用
;-------------------------------------------------
IF SELECTCOM == 261
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;利尿剤
;-------------------------------------------------
IF SELECTCOM == 262
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;排卵誘発剤
;-------------------------------------------------
IF SELECTCOM == 264
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;筋弛緩剤
;-------------------------------------------------
IF SELECTCOM == 267
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K39, 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
			IF COND("双頭振動棒") && INSERT("Ｖ挿入")
				IF TEQUIP:攝像機
					PRINTFORML 「%CNAME("一人称")%の初めてを%CNAME("二人称")%に捧げちゃいました……」
					PRINTFORMW 「初めてを捧げた所、全部……撮影されてるんですよね」
				ELSE
					PRINTFORML 「くぅ……」
					PRINTFORMW 「痛いですけど……これで%CNAME("一人称")%も大人の女になれたのですね」
				ENDIF
			ELSEIF TEQUIP:振動棒
				IF SIZE("振動棒", TARGET) >= ABL:Ｖ拡張
					PRINTFORML 「ううっ……」
					PRINTFORMW 「お願いします……抜いてください……」
					PRINTFORML
					PRINTFORMW %CALLNAME:TARGET%通过苦痛に端正な顔を歪め、今にも泣きだしそうな表情で%CALLNAME:MASTER%に懇願した。
				ELSEIF ABL:Ｖ拡張 >= SIZE("振動棒", TARGET)
					IF TEQUIP:攝像機
						PRINTFORML 「哈……哈啊……」
						PRINTFORML 「……%CNAME("一人称")%の初めてを振動棒に捧げちゃいました」
						PRINTFORMW 「そうですね……これで大人の女になれたと思えば、%CNAME("一人称")%はそんなに悲しくないと思いたいです……」
					ELSEIF TALENT:MASTER:処女
						PRINTFORML 「哈……哈啊……」
						PRINTFORML 「次は%CNAME("主人")%の番ですからね……覚悟が出来たら何時でも言ってください」
						PRINTFORMW 「%CNAME("主人")%の処女は%CNAME("一人称")%が要って決めてますからね」
					ELSE
						PRINTFORML 「哈……哈啊……」
						PRINTFORML 「処女を振動棒で失っちゃいました……でも、これで%CNAME("主人")%と一緒だと思えば……」
						PRINTFORMW 「ごめんなさい……少しだけ、泣いてもいいでしょうか」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDIF
;-------------------------------------------------
;射精した(扶她/男性のみ)
;-------------------------------------------------
CASE "射精した"
	;初めて
	IF FIRST_EV("射精した") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;噴乳した(母乳体質のみ)
;-------------------------------------------------
CASE "噴乳した"
	;初めて
	IF FIRST_EV("噴乳した") == 0
		PRINTFORMW
	;二回目以降
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;絶頂放尿した
;-------------------------------------------------
CASE "絶頂放尿"
	;初めて
	IF FIRST_EV("絶頂放尿") == 0
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｃ絶頂20以上
;-------------------------------------------------
CASE "Ｃ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｃ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｖ絶頂20以上
;-------------------------------------------------
CASE "Ｖ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｖ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ａ絶頂20以上
;-------------------------------------------------
CASE "Ａ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ａ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｂ絶頂20以上
;-------------------------------------------------
CASE "Ｂ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｂ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

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

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

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

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

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

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW
	;超大量射精
	ELSEIF COND("絶頂", PLAYER) >= 3
		PRINTFORMW
	;大量射精
	ELSEIF COND("絶頂", PLAYER) == 2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰")
	PRINTFORMW

;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた
;-------------------------------------------------
ELSEIF SHOOT("脚")
	;初めて
	IF FIRST_EV("絶頂：脚") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ELSEIF SHOOT("素股")
	PRINTFORMW
;-------------------------------------------------
;口で射精させた
;-------------------------------------------------
ELSEIF SHOOT("口")
	;初めて
	IF FIRST_EV("絶頂：口") == 0
		PRINTFORMW
	;精液中毒Lv5
	ELSEIF ABL:精液中毒 >= 5
		PRINTFORMW
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;性交で射精させた
;-------------------------------------------------
ELSEIF SHOOT("Ｖ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ｖ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
ELSEIF SHOOT("Ａ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ａ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
ELSEIF SHOOT("接吻")
	PRINTFORMW
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗")
	PRINTFORMW
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶")
	PRINTFORMW
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
ELSEIF SHOOT("逆舐陰")
	PRINTFORMW
;-------------------------------------------------
;逆肛交、逆強姦で射精
;-------------------------------------------------
ELSEIF SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")
	PRINTFORMW
;-------------------------------------------------
;PLAYERが女で、イってしまった…
;-------------------------------------------------
ELSEIF SHOOT("調教者が女性")
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2
		PRINTFORMW
	;絶頂
	ELSEIF COND("絶頂", PLAYER) == 1
		PRINTFORMW
	ENDIF
ENDIF

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

RETURN 1

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

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

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

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

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

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

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

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

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

	ELSE

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

;-------------------------------------------------
;PLAYERがMASTERとASSI間で交代した際の台詞
;-------------------------------------------------
CASE "調教者交代"
	;PLAYERがASSIに変わった
	IF PLAYER == ASSI
		PRINTFORMW
	;PLAYERが你に戻った
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;partnerがTARGETとASSI間で交代した際の台詞
;-------------------------------------------------
CASE "対象交代"
	;partnerとしてエッチに誘われた
	IF COND("第一対象") == TARGET
		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 「あのですね、惊嚇しないで聞いて頂きたいのですけど」
		PRINTFORMW 「%CNAME("一人称")%も正直惊嚇していますが……」
		PRINTFORML
		PRINTFORMW 「……%CNAME("二人称")%桑との兒童を、授かりまして」
		PRINTFORMW 「授かったからには酱と子育てしたいですし」
		PRINTFORMW 「形はどうあれ、%CNAME("二人称")%桑との兒童ですから」
		PRINTFORMW 「%CNAME("二人称")%桑にも酱と報告したくて……」
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;出産した
;----------------------------------------------------------------
CASE "出産"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;兒童が大きくなった
;----------------------------------------------------------------
CASE "子出口"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;性交後に抜いた時
;----------------------------------------------------------------
;恥ずかしいところを見せてくれる
;----------------------------------------------------------------
CASE "中出し後くぱぁ"
	;恋慕
	IF TALENT:恋慕
		;避孕套有些
		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 "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;塞子をしていない状態での液体浣腸口上
;----------------------------------------------------------------
CASE "无塞浣腸事件"
	;限界値突破時
	IF BASE:排泄欲 >= 10000
		;限界値を超えたが漏らせない場合
		IF INSERT("Ａ挿入") || COND("肛門栓")
			PRINTFORMW
		;漏らす直前
		ELSE
			PRINTFORMW
		ENDIF
	;漏らした
	ELSEIF NOWEX:排泄
		PRINTFORMW
	;我慢しているときの口上
	ELSEIF TEQUIP:浣腸
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;吸能
;----------------------------------------------------------------
CASE "吸能"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;調教者がちんこを挿入する前に射精してしまった！
;----------------------------------------------------------------
CASE "挿入前暴発"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;特殊な道具を使った際の台詞
;----------------------------------------------------------------
CASE "避妊の護符"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		;装着
		IF TALENT:避妊の護符
			PRINTFORMW
		;取り外し
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:避妊の護符
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

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

ENDSELECT

;-------------------------------------------------
;TARGET以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@KOJO_GUEST_K39, 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_STRWで表示しつつイベント発生不可能とします
;条件を満たしている際にはSTR:実行条件 に何も入れないようにして下さい
;-------------------------------------------------
@ADDCOND_K39(ARGS)
#DIM ACTOR
ACTOR = FINDCHARA(NO, 39)

SELECTCASE ARGS
CASE "勧誘"
	;你が女性または扶她で、[認識阻害]を持っている時のみ勧誘可
	SIF TALENT:MASTER:男性 == 0 && TALENT:MASTER:禁断的知識 > 2
		RETURN 1
	STR:実行条件 = ※%CSVNAME(39)%は_黄色_%CALLNAME:MASTER%が[女性]or[扶她]で、[認識阻害](禁断的知識LV3)を持っている時のみ_勧誘可能になります※
CASE "恋慕"
CASE "淫乱"
CASE "相思相愛"
	SIF FLAG:二人きり && TALENT:ACTOR:恋慕 && TALENT:MASTER:男性 == 0
		RETURN 1
	IF TALENT:MASTER:男性
		STR:実行条件 = イエロー_（※%CALLNAME:MASTER%が[男性]の場合には、百合香と[相思相愛]にはなれません）
	ELSE
		STR:実行条件 = イエロー_（※百合香と[相思相愛]になるには、[恋慕]かつ二人きりの必要が有ます）
	ENDIF
CASE "淫紋"
ENDSELECT

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

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

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

;閲覧済みの場合は見返せる
IF CEVENT("百合香：私の望む永遠") || CEVENT("百合香：父との再会")
	STR:エンディング += "1_百合香：私の望む永遠/"
ELSEIF FIND_COND("灯", "助手")
	ACTOR = FIND_COND("灯", "助手")
	SIF TALENT:相思相愛 && YURI_COND(MASTER) >= 1 && COND("相性○", ACTOR) && CFLAG:ビデオ売上合計 >= 150000
		STR:エンディング += "1_百合香：私の望む永遠/"
ENDIF

IF CEVENT("百合香：さよなら、少女だった私")
	STR:エンディング += "2_百合香：さよなら、少女だった私/"
ELSEIF FIND_COND("南実", "助手")
	ACTOR = FIND_COND("南実", "助手")
	SIF CEVENT("百合香：私の望む永遠") && YURI_COND(MASTER) >= 1 && COND("相性◎", ACTOR) && CFLAG:ビデオ売上合計 >= 500000
		STR:エンディング += "2_百合香：さよなら、少女だった私/"
ENDIF

;正史ルート、こちらを見た場合Trueエンドの報酬が貰えなくなる
;男你の場合は強制的にこちらになるよ
IF CEVENT("百合香：父との再会") || CEVENT("百合香：さよなら、少女だった私")
		STR:エンディング += "3_百合香：父との再会/"
ELSEIF FIND_COND("弗理希艾尔", "助手")
	ACTOR = FIND_COND("弗理希艾尔", "助手")
	SIF TALENT:相思相愛 && CEVENT("约会後に告白された：百合香") && CFLAG:ビデオ売上合計 >= 250000 && COND("相性○", ACTOR)
		STR:エンディング += "3_百合香：父との再会/"
ENDIF
RETURN 1

;ARGSには@MENU_SINGLE_ENDING_K1で設定したEND名のどれかが入っている
;見たENDはCEVENTで記録される
;例）ＥＮＤ名１を閲覧した場合は CEVENT("ＥＮＤ名１") = 1 となる
@SINGLE_ENDING_K39, ARGS
SELECTCASE ARGS
CASE "百合香：私の望む永遠"
	PRINTFORMW ある午后のこと。
	PRINTFORMW ……いつものように、%CALLNAME:TARGET%通过部室を訪れ、彼女を等待。
	PRINTFORMW 誰になんと言われたわけでもない。ただ、愛しい人である彼女と致すことは百合香にとって、日々の日課となった。
		SIF YURI_COND(MASTER) == 1
			PRINTFORMW 男に魂を売ったのかと時々自問自答することもあったけれど……その悲しさを、彼女は洗い流してくれた。
	PRINTFORMW そんな%CALLNAME:TARGET%にも、やはり悩みはあった。
	PRINTFORMW ……彼女に告白したことは嘘ではないけれど、やはりお互いに結ばれたい。
	PRINTFORMW そう考えた矢先、似たような境遇の彼……望木灯と出会い、彼の考え方を知った。
	PRINTFORML
	PRINTFORMW 「望木君」
	PRINTFORMW 『前輩、来てたのか……相変わらず部長にお熱なんだな』
	PRINTFORMW 「……もう」
	PRINTFORMW 異性を極端に嫌う百合香が彼を受け入れたというのも、もし自分自身が女ではなく男だったとしたら……
	PRINTFORMW 家族に同性が好きということがバレたら、彼のようになっていたと、強く思っていたから。
	PRINTFORML
	PRINTFORMW 百合香の実家周りはまったく同性愛者というものに温柔的なかった。
	PRINTFORMW 異性愛こそがすべて、という気持ちも、百合香自身……普通に恋した経験がある。
	PRINTFORMW そのため決して理解できないという感情はない。
	PRINTFORMW 但是、その価値観こそが絶対と定義されたなら……
	PRINTFORMW それ以外の定義を持つ人类が苦しむ事など、火を見るよりも明らかだから。
	PRINTFORMW 「望木君は…… もし、私と恋愛できたとしたら、してみたい？」
	PRINTFORMW 『……前輩、そういうとこヌケてるよな』
	PRINTFORMW 『前輩みたいな美人だったら、俺じゃなくても引く手あまただと思うけど』
	PRINTFORMW 「そんなのはわかってるんだけど……」
	PRINTFORMW
	PRINTFORMW 百合香は灯を試したいという意図はなかったが、夜伽を共にするうちに灯の過去に少なからず触れて……
	PRINTFORMW その上で、男女の関係を抜きにして「１人の人类として一直陪着我みたい」という感情があったから。
	PRINTFORMW 『……そんなん、冗談でも乗るわけないじゃないか』
	PRINTFORMW 『俺に前輩がそういうこと言うってことは、前輩が考えてることだって大体は察しが付く』
	PRINTFORMW 『……その前にやり方なんて今の世の中いっぱいあるだろ？』
	PRINTFORMW
	PRINTFORMW
	PRINTFORMW 「……それって」
	PRINTFORMW 『ま、そーゆーこと』
	PRINTFORMW 『ホントに前輩しか恋愛対象がいないってなった時に、恋愛したくねえっていうとそれはウソになるけど』
	PRINTFORMW 『前輩の好きなモノや好きな事、前ならともかく今の俺が知らないってはずはないから』
	PRINTFORMW 灯もまた、そうした性的嗜好に悩まされたから……そう言いたいのだ。
	PRINTFORML
	PRINTFORMW 『何より、部長と前輩が幸せなのが、それが俺は一番嬉しいから』
	PRINTFORMW 『……勘違いすんなよ、俺だってぜってー幸せになってやるからな！』
	PRINTFORMW 「……もう、照れくさいなあ……」
	PRINTFORMW 『……前輩が照れるなら俺だって照れるよ』
	PRINTFORMW 『けど……今さら前輩のことが嫌いだーとかそういうのは思ってねーし』
	PRINTFORMW 何気ない日常の中で、絶対に奥底までわかり合うことは出来ない。
	PRINTFORMW そうだったとしても……最高の親友が出来たと……互いに心から思えるよう变成了。
	PRINTFORML
	PRINTFORMW 『まーなんだ……前輩に会えてよかったよ、本当に……』
	PRINTFORMW 「私もです……お互相用恋路、頑張ろうね」
	PRINTFORMW
	SETCOLOR DEF_COLOR("黄色")
	PRINTFORMW - 系统信息 -
		IF CEVENT("百合香：私の望む永遠") == 0 && YURI_COND(MASTER) == 2 && CEVENT("百合香：父との再会") == 0
			PRINTFORML
			PRINTFORMW %CALLNAME:TARGET%の心境の変化により、[好色]を失い、[接受快感]獲得了。
			PRINTFORMW
			TALENT:好色 = 0
			TALENT:接受快感 = 1
		ELSE
		ENDIF
	RESETCOLOR
	PRINTFORMW
	PRINTFORMW つづく……
CASE "百合香：さよなら、少女だった私"
	PRINTFORMW - とある楽屋 -
	PRINTFORML
	PRINTFORMW 『えーやだぁ～！紫織桑誉め擅長！』
	PRINTFORMW 「……あはは。そんなこと言っても何も出ませんけどね」
	PRINTFORMW 『本当に擅長ですって！ 紫織桑が嫌いなレズの娘なんていないですもん！』
	PRINTFORMW 『うんうん！ 紫織桑綺麗だし、タチネコ両方出来るって羨ましいです！』
	PRINTFORML
	PRINTFORMW 「……煽てたって何も出ないって言ってるでしょう？それに私よりみんなの方が前輩だから」
	PRINTFORMW 『『えぇ～！！』』
	PRINTFORMW 『そういう大和撫子な所も好き！』
	PRINTFORMW 『紫織桑に恋人がいたらとっても素敵な人なんだろうなぁ～！』
	PRINTFORMW 「……っ」
	PRINTFORMW 『あっ……』
	PRINTFORMW 『ご、ごめんなさい！私たちも悪気があったわけじゃ……』
	PRINTFORMW 「いえ…… 少し風に当たってきますね」
	PRINTFORML
	PRINTFORMW 夜風に身を任せ、暫しあの人に想いを馳せる。
	PRINTFORMW ……元々この業界に入る前は闇に堕ちる前の、最後の救い場だと思ってた。
	PRINTFORMW けれど、そこで生きる人たちは。
	PRINTFORML
	PRINTFORMW 明日が見えなくても、今を信じ……必死で生きてる。
	PRINTFORMW 過去のしがらみとかそういったものがある人もいる……
	PRINTFORMW そういう人でも過去を見つめ直し前向きに、まっすぐに生きてる。
	PRINTFORML
	PRINTFORMW あぁ、你に……もう一度逢えたら、その時は。
	PRINTFORMW 今度こそ、―――――、って……
	PRINTFORML
	PRINTFORMW - %CALLNAME:TARGET%からの手紙 -
	PRINTFORML
	PRINTFORMW 拝啓 %CNAME("二人称")%様
	PRINTFORMW お元気ですか？あれから私は、AV女優としてデビューすること成为了。
	PRINTFORML
	PRINTFORMW ……毎日逢っていた%CNAME("二人称")%桑と、毎日逢えなくなるのは、寂しかったです。
	PRINTFORMW けれど、一度はきちんとけじめをつけて……やれるところまでやってみたいと、その背中を押してくれたのは%CNAME("二人称" , "桑")%だったから。
	PRINTFORML
	PRINTFORMW ……デビューしてしばらく経ちましたけど、今度、久しぶりに逢いませんか？
	PRINTFORMW 私の行きつけの咖啡館で待ってます。
	PRINTFORML
	PRINTFORMW - 百合香行きつけの咖啡館 -
	PRINTFORML
	PRINTFORMW 約束の場所……%CALLNAME:TARGET%の行きつけの咖啡館へと向かうと、
	PRINTFORML
	PRINTFORMW 始めて出会った時よりも、
	PRINTFORMW 隠していた過去を話してくれた時よりも……
	PRINTFORMW ずっとずっと綺麗变成了%CALLNAME:TARGET%がそこにいた。
	PRINTFORML
	PRINTFORMW 「お久しぶりです、%CNAME("二人称")%桑」
	PRINTFORML
	PRINTFORMW 今思えば、あれは……大人になれない彼女なりの強がりだったのかもしれない。
	PRINTFORMW それがこうして、……前あった気高さや凛々しさを就这様に、どこかやわらかい印象さえある。
	PRINTFORMW 部活での大人ざまな出会いが彼女を変えたのかもしれない。
	PRINTFORML
	PRINTFORMW 『綺麗变成了ね』
	PRINTFORMW その言葉が、自然と漏れてきた。
	PRINTFORML
	PRINTFORMW 「%CNAME("二人称")%桑に会ったら、告げようと思ってたことがあるんです」
	PRINTFORMW 「―――――、」
	;PRINTFORMW 大好きです。これからも……
	IF COND("春")
		PRINTFORMW 悪戯な春風が、%CALLNAME:TARGET%の声を遮るようにびゅぅ、と吹いた。
	ELSEIF COND("夏")
		PRINTFORMW 暑苦しい蝉の声が、耳鳴りのように鳴っては%CALLNAME:TARGET%の言葉を掻き消していった。
	ELSEIF COND("秋")
		PRINTFORMW 心細くなるような秋風が、２人を遮るようにぴゅぅ、と吹いた。
	ELSE
		PRINTFORMW 瞬間、空っ風の音が、ぴゅーっ……と吹いて%CALLNAME:TARGET%の声をかき消した。
	ENDIF
	PRINTFORML
	PRINTFORMW 「……あはは……」
	PRINTFORMW もう２度目はないと言いたげな苦笑いを浮かべるが、言いたいことは分かる。
	PRINTFORML
	PRINTFORMW これからを、一緒に歩んでいこう。
	PRINTFORMW その先にどんなことがあったとしても。
	PRINTFORMW
	PRINTFORMW
	PRINTFORML
		IF CEVENT("百合香：さよなら、少女だった私") == 0
			SETCOLOR DEF_COLOR("黄色")
			PRINTFORMW - 系统信息 -
			PRINTFORML
			PRINTFORMW 你との出会いや、部活で得た数々の経験や心境の変化を経て、
			PRINTFORMW %CALLNAME:TARGET%通过[高贵]獲得了。
			TALENT:高贵 = 1
			RESETCOLOR
			IF TRUE_SEX(MASTER) == "男性"
				PRINTFORMW - 作者メッセージ -
				PRINTFORMW 祝贺您！。
				PRINTFORMW 男你で、非常に困難な条件を很强られてもなお、百合香をここまでPLAYしてくれて有がとう。
				PRINTFORMW そんな%CNAME("二人称")%桑は……きっと、どんなことがあっても、この先も……彼女を愛してくれると信じています。
				;PRINTFORMW Discordをお使いでしたら悪魔女仆鯖に来て、こっそり作者に教えて下さい。泣いて喜びます。
				PRINTFORML
				PRINTFORMW ……これからも、どうか你に楽しいera悪魔女仆ライフが有ますように。
				CALL PRINT_STRW, @"黄色_百合香のＶ挿入が解禁されました。"
				CFLAG:決断 += 1
			ENDIF
		ENDIF
	PRINTFORMW
	PRINTFORMW
	PRINTFORML
	PRINTFORMW - era悪魔女仆 小早川百合香 [TrueEND] Fin -
	RESETCOLOR
		SIF CEVENT("百合香：さよなら、少女だった私") == 0
			PRINTFORMW Thank you for playing!!
CASE "百合香：父との再会"
	PRINTFORMW	私に、会いたい人がいる。部長からそう告げられたのは、%TEXTS("季節詳細")%のことだった。
	PRINTFORMW	裏AVの売り上げも色々うまく行って……まさにこれから、そういうときだった。
	PRINTFORMW
	PRINTFORMW	『……久しぶりだね、%CALLNAME:TARGET%』
	PRINTFORMW	「……その声、は」
	PRINTFORMW
	PRINTL
	PRINTFORMW	……この声は、間違えもしない。……少し年老いただろうけど、その雰囲気は変わらない。
	PRINTFORMW	『……学園で色々好きにやってると、母桑から聞いてね』
	PRINTFORMW
	PRINTL
	PRINTFORMW	「何をするつもりなの、……父桑」
	PRINTFORMW	小早川、風斗。……私の、父桑。
	PRINTFORMW	正直父桑と母桑は、私のやったことを許さないような気がして……会うのを遠ざけてた。
	PRINTL
	PRINTFORMW	……ああ、我は……やっぱり親のオモチャだったのかな……
	PRINTFORMW	『……母桑のやったことを まだ根に持ってるんだね』
	PRINTFORMW	「当たり前でしょう？！だって、母桑は私の……我の、普通を奪ったんだから！！」
		IF COND("春")
			PRINTFORMW	季節外れとも言いがたいような突風がびゅうん、と窓の外で吹いた。
		ELSEIF COND("夏")
			PRINTFORMW	外では突如雷が鳴り響き、天気雨とも言えないような夕立がさぁぁぁ……と降り始める。
		ELSEIF COND("秋")
			PRINTFORMW	女心と秋の空……そう言わんばかりに雨がしとしと降り注ぐ。
		ELSE
			PRINTFORMW	ぴゅう、と木枯らしが窓の外で吹いて、かたかた…と窓を揺らす。
		ENDIF
	PRINTFORMW	『……かばってやれなくてすまない』
	PRINTFORMW	「父桑は母桑達の味方なんでしょ？！今すぐここからいなくなってよ」
	PRINTFORMW	『……そうは思ってないな。父桑がこうなったのは……%CALLNAME:TARGET%、君に会うためだよ』
	PRINTL
	PRINTFORMW	「……嘘、じゃあ、それって、とう桑、は」
	PRINTFORMW	『はは……手痛いなあ。家では、どちらの味方でもなく、中立でなきゃいけないからね。僕はそもそも傍流だから本家筋もうるさいし。』
	PRINTFORMW	「……嫌、だって父桑は、こんな、こんな我なんて、きら、いじゃ……」
	PRINTFORMW	『……%CALLNAME:TARGET%。……いいかい、よく聞いてくれ。你のことを嫌いになることなんて、あるもんか。』
	PRINTFORMW
	PRINTL
	PRINTFORMW	『%CALLNAME:TARGET%が家を出てすぐだったかな。婿養子を迎えることはしないと決めたよ。』
	PRINTFORMW	『望まない結婚をして%CALLNAME:TARGET%が悲しくなる位なら、僕は%CALLNAME:TARGET%に外の世界を自由に見て欲しいと思った』
	PRINTFORMW	『%CALLNAME:TARGET%通过僕にとって、たったひとりの娘なんだ。愛しくないわけ、ないだろう？』
	PRINTFORMW	「もうやめてよ……今更我のこと、わかったふりしないでよ！！どれだけ、我がしんどかったか、父桑は見てるだけだったくせに……！！」
	PRINTL
	PRINTFORMW	『……それについては、詫びることしかできない。%CALLNAME:TARGET%の好みとかね。』
	PRINTFORMW	『%CALLNAME:TARGET%が何をしたいか、僕は分かってたのに……何もかも、僕はじい桑やばあ桑、そして母桑の側に立っていた。そうして、娘のやりたいことを……認めてやれなくて……』
	PRINTFORMW	『本当に、申し訳なかった…… 許せとは言わない。辛かっただろう……じい桑やばあ桑にも散々孫見せろって迫られたのも知ってるんだ……』
	PRINTL
	PRINTFORMW	「……そんな風に、そんな風に認められたら……我……我は……っ、おとう、桑……っ うわぁぁぁぁぁぁ！！！！」
	PRINTFORMW	我の横にいる%CNAME("二人称")%が、動いたような気がした。そして。
	PRINTFORMW	「……那么、お義父様、でいいんですよね」
	PRINTL
	PRINTFORMW	『はは、そんなにかしこまらなくていいよ……你にはうちの愛娘がたく桑世話になっているからね。……%CNAME("二人称")%君。』
	PRINTFORMW	「……どうしてこちらの名前を？！」
	PRINTFORMW	『調べさせて貰ったのさ……といっても、你のためにじゃなくて、妻が%CALLNAME:TARGET%のために、だけど。』
	PRINTFORMW	「%CALLNAME:TARGET%が旧家であるという話は以前本人から伺いました……けど、それとなんの関係が？」
	PRINTL
	PRINTFORMW	『……うちはおよそ400年、いや、もっとか。そのくらい続く家でね。裏の餡餅プもそれなりにあるんだ』
	PRINTFORMW	『僕の妻は嵯峨家……まぁ分かりやすくいうと昔の公家だ』
	PRINTFORMW	『嵯峨家の本家筋……%CALLNAME:TARGET%の母方に……彼女を旧御三家やら宮家に嫁がせるとか、やれ見合いだ何だのってね』
	PRINTFORMW	『僕の……父方の本家筋もその辺は承知の上だったんだ。』
	PRINTFORML
	PRINTFORMW	『ああ、僕是いんだ、傍流とは言え小早川に生まれたし、妻もそんなに嫌いじゃない。……正直離縁したいってのは幾度となく思ったけれどね』
	PRINTFORMW	『僕は……大人の事情で兒童……ひいては孫の意思じゃないのに生きる道筋を決めるのはやめてくれといっても、誰も聞かなかったんだ。』
	PRINTFORMW	『昔的家だからとか、なんだとか。……僕が学生なら、你の所で自由になりたかった位にはね。』
	PRINTL
	PRINTFORMW	『……%CALLNAME:TARGET%が你に会えたから、もう大丈夫、と思っているけどね。』
	PRINTFORMW	「……部活の内容も、もしかして知っている？」
	PRINTFORMW	『まさか、そこまでではないよ。僕らが知らないような危ない場所だったとしても%CNAME("二人称")%君なら……』
	PRINTFORMW	『そう確信したからね。……自称清廉潔白なうちの嫁達が見たらぎゃあすか騒ぎ倒すだろうけど』
ENDSELECT
RETURN 1

path: ERB/EVENT_K/39 百合香/EVENT_K39.ERB