code:
;-------------------------------------------------
;  [年齢詐称同班同学] 千堂玲子 口上
;    ver 0.3
;    製作者　a-ja
;-------------------------------------------------
;-------------------------------------------------
;覚書
;
;○角色クターコンセプト
;　退○忍。オカルト的な方面で国家の安寧を守護する組織の実働員。
;　今回、悪魔と契約を結んだ你の監視要員（という名の生贄）として
;　你専用に派遣された。
;　任務のためには你の傍に居る必要が有、你は年若い男である、
;　ということでハニトラ前提で你と親しくなろうとしている。
;　真面目で、使命感があるが、根本的にぽんこつ。
;　一切合切悪魔の手のひらの上なのだが、気付いていない。
;
;○設定
;　オカルト的な意味での護国機関に所属する実働員。
;　実家は寂れた地方の古くはあるが小さい神社で有、義務教育
;　終了後は修行と家業に明け暮れ、就这様機関に所属すること变成了
;　生粋の叩き上げである。
;　ただ、逆に言えばそれだけでしかないので、今回出現した悪魔との
;　密約により你に差し出されること变成了金糸雀である。
;　なお実年齢は三十路超え。実家に２つ年下の妹がいる。
;
;○Tips
;　・本人は干劲バリバリ　自分の肩にこの土地の安全が掛かっていると
;　　本気で考えており、場合によってはそれは正鵠を射ていました
;　・你のことは最初想像していたよりもよほどまっとうな人类であった
;　　ため大分気を許してしまっています
;　・一応潜入調査の体を取っているので、本人の身分は学生で有、
;　　戸籍上は你と同い年になります
;　・高等教育を受けていないため、地味に授業に着いていくのが
;　　つらいですが、初めての経験ばかりなので楽しんでもいます
;
;=== 更新履歴 ====================================
;  2019/07/27 ver0.01 公開(恋慕系未実装)
;  2019/08/19 ver0.02 公開(まだプロト版)
;  2020/01/07 ver0.03 公開
;  2020/01/11 ver0.03b 公開
;
;-------------------------------------------------

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

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 我_我
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		LOCALS = 你_你/你_你
	;相手が主人ではない
	ELSE
		LOCALS = 你_你
	ENDIF
;"主人"と"助手"は三人称。主に当人と話していない時に使う
CASE "主人"
	LOCALS = 主人_主人大人
CASE "助手"
	LOCALS = %CALLNAME:ASSI%同学_%CSTR:ASSI:ふりがな%同学
; 以下ライ胸罩リ
CASE "愛液"
	LOCALS = お汁_おつゆ/おツユ_おつゆ
	SIF MARK:屈服刻印 > 1
		LOCALS += "/マン汁_まんじる"
CASE "肛門"
	LOCALS = 屁股穴_おしりのあな/肛門_あなる/菊花_菊花
	SIF MARK:屈服刻印 >= 2
		LOCALS += "/ケツ穴_けつあな/おケツマンコ_おけつまんこ"
CASE "陰毛"
	LOCALS = マン毛_まんげ/おけけ_おけけ/ケ_け
CASE "自慰", "自慰"
	LOCALS = 自慰_おなにー/ひとりエッチ_ひとりえっち/ソロPLAY_そろぷれい
CASE "オマンコ"
	LOCALS = オマンコ_おまんこ/阴部_あそこ
CASE "危険日"
	LOCALS = 危険日_きけんび/排卵日_是らんび/赤酱のデキちゃう日_あか酱のできちゃうひ
CASE "避孕套", "避孕套"
	LOCALS = 避孕套_こんどーむ/避孕套_ごむ
CASE "子宮"
	LOCALS = 子宮_しきゅう/赤酱的房間_あか酱のへや
CASE "射精"
	LOCALS = 射精_しゃせい/お射精_おしゃせい/びゅるびゅる_びゅるびゅる/どっぴゅん_どっぴゅん
CASE "射精擬音"
	LOCALS = びゅるびゅる/びゅくびゅく/どぴゅどぴゅ/どっぴゅん/びゅーびゅー
CASE "精液"
	LOCALS = 精液_せいえき/精液_ざーめん
	SIF MARK:屈服刻印 > 0
		LOCALS += "/ザー汁_ざーじる/赤酱ミルク_あか酱みるく"
	SIF MARK:屈服刻印 > 1
		LOCALS += "/ちんぽ汁_ちんぽじる/おちんぽミルク_おちんぽみるく/孕ませ汁_はらませじる"
CASE "中出し"
	LOCALS = 中出し_なかだし/ナカダシ_なかだし/膣内射精_ちつないしゃせい
CASE "ぱんつ", "胖次"
	LOCALS = ぱんつ_ぱんつ/三角胖次_ぱんてぃ/内衣_したぎ
CASE "阴茎"
	LOCALS = おちんちん_おちんちん/おちんぽ_おちんぽ
CASEELSE
	;DEBUGPRINTFORML エラー！　%ARGS%は未定義の単語です
ENDSELECT

	IF STRCOUNT(LOCALS, "/")
		SPLIT LOCALS, "/", LOCALS
		LOCALS = %LOCALS:(RAND:RESULT)%
	ENDIF

RETURNF LOCALS

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

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = 視線を奪ってやまない巨乳と安産間違い无の巨尻を持つ転校生。
	STR:2 = 明らかに大人びた雰囲気を持っており、その正体は悪魔の出現を察知した護国機関により学園に送り込まれてきたエージェントである。
	STR:3 = その役目は悪魔とその契約者の動向を監視・報告することで有、その為には女であること、色を使うことも利用して你の近くに居続けることを使命としている。
	STR:4 = とっくに成人を迎えたアラサー熟女だが、お役目のためと自らに言い聞かせて年齢にサバを読み、迷你裙に水手服の格好で你に近づき慣れない所作での色仕掛けを試みている。
	STR:5 = なお周りからは何かしら事情があるのだろうと（生）暖かい目で見守られているが、本人は「私もまだまだイケるのかしら？」とポジティブな勘違いをしている。

	STR:7 = 本人が護国機関のエージェントであることは間違いないのだが、下っ端も下っ端で有端的に言って『失っても痛くない人材』である。
	STR:8 = 組織が悪魔の存在を感知したのは事実なのだが、その直後に当の悪魔から交渉を持ち掛けられており、『契約者にとって都合のよい女性』を引き渡す代わりに無害であるという取引がなされた。
	STR:9 = 永い歴史の中で、悪魔は契約を順守するという事実を知っている組織は、リスクとリターンを鑑みて最も堅実な選択をしたのである。
	STR:10 = そのことを知るのは組織の上層部と、当の悪魔のみである。

	STR:11 = よって玲子は、正しくは監視員ではなく鉱山の金糸雀に等しい。
	STR:12 = 傍に居る契約者と悪魔に異常が無い限り、綺麗な声で囀るのだ。

;ここの中に限り、CFLAG,BASE,TALENT,ABL,EXP,CSTRをCSVに書いたものから変更させることが出来ます
;例えばBASE:体力を2000にしたいなら BASE:0:体力 = 2000 、強気にさせたいなら TALENT:0:強気 = 1 として下さい
;また、ABL:信頼を+2させたい場合には ABL:0:信頼 = ABL:信頼 + 2 と書いてください
CASE "勧誘"
	; 仲間を邀请、で最初に表示される
	PRINTFORMW 部室に向かおうとしていた%CALLNAME:PLAYER%を、同班同学が呼び止めた。
	CALL PRINT_STR,  "「ごめんなさいね。ちょっといいかしら？」_W"
	PRINTFORMW 声の主は%NAME:TARGET%。不自然な時期に突然現れた転校生だ。
	PRINTFORMW 凛とした整った顔立ちは十分美人に見えるが、何よりも目を引くのはその胸と尻だろう。
	PRINTFORMW でかい。ひたすらにでかい。
	PRINTFORMW ボン・キュッ・ボンなどという古典じみた表現すら置き去るようなス領帯ルの良さで、日本人出口というか、人类出口すらしている。
	CALL PRINT_STR, @"「%CNAME("一人称")%、ちょっとした噂を耳にしたのだけれど……」_W"
	CALL PRINT_STR, @"「その……%CNAME("二人称")%が部室で、ハレンチなコトをしている、って……」_W"
	CALL PRINT_SELECT, "根も葉もない噂です/…………"
	CALL PRINT_STR,  "「あ、誤解しないで欲しいんだけど、それを老师に話してどうこう……っていうのじゃないの」_W"
	PRINTFORMW %CNAME("玲子")%は妖艶な笑みを浮かべると、ゆったりとした動作で体の前で腕を組んでみせた。
	CALL PRINT_STR, @"「ほら……%CNAME("一人称")%、こんな身体でしょう？　だから、転校前はそういう相手に事欠かなかったんだけど……」"
	PRINTFORMW %CNAME("玲子")%が少し身体を揺らすと、腕に乗せられ強調された巨大なふたつの乳房が柔らかそうにぶるんと晃动的。
	IF TALENT:MASTER:男性
		CALL PRINT_STR,  "「こっちでもそういう相手、見つけようかなって。同じクラスに慣れたのもなにかの縁だし、私のイイ人类になってくれないかしら？」_W"
		CALL PRINT_SELECT, "…………"
		CALL PRINT_STR,  "「……あら、ごめんなさい。いきなりイイ人类ってのは、我ながらちょっとおかしいわね」_W"
		CALL PRINT_STR,  "「まずはトモダチから……ね？」_W"
		PRINTFORMW %CNAME("玲子")%は%CALLNAME:PLAYER%の腕を取るとそれを抱上去ように胸を押し付けながら隣を歩き始めた。
		CALL PRINT_STR, @"「ところで、まずは%CNAME("二人称")%の部室に案内してもらってもいいかしら？」_W"
		CALL PRINT_STR,  "「ちょっと疲れちゃったから……ご休憩、したいなって」_W"
	ELSE
		CALL PRINT_STR,  "「転校してちょうどいい機会だし……その、変な事を言うようだけれど、女の子のpartnerを見つけようかなって」_W"
		CALL PRINT_STR,  "「同じクラスに慣れたのもなにかの縁だし、私のイイ人类になってくれないかしら？」_W"
		CALL PRINT_SELECT, "…………"
		CALL PRINT_STR,  "「……あら、ごめんなさい。いきなりこんな事言われても、困るわよね」_W"
		CALL PRINT_STR,  "「まずはトモダチから……ね？」_W"
		PRINTFORMW %CNAME("玲子")%は%CALLNAME:PLAYER%の腕を取るとそれを抱上去ように胸を押し付けながら隣を歩き始めた。
		CALL PRINT_STR, @"「ところで、まずは%CNAME("二人称")%の部室に案内してもらってもいいかしら？」_W"
		CALL PRINT_STR,  "「ちょっと疲れちゃったから……ご休憩、したいなって」_W"
	ENDIF
	PRINTL
	PRINTFORMW ………………
	PRINTFORMW …………
	PRINTFORMW ……
	PRINTL
	CALL PRINT_STR,  "（……よ、よし。これで第一関門突破ね）_W"
	PRINTFORMW %CNAME("玲子")%は抱きついた腕を意識的に胸に押し当て一边继续、しなだれるように体重を預けつつ部室棟に歩を進めていた。
	CALL PRINT_STR,  "（い、いきなりイイ人类ってのはホントにアレだったけど、お、お友達って、そういうオトモダチもあるからいいわよね）_W"
	CALL PRINT_STR,  "（ああもう……！　緊張しまくってたの、バレてないわよね……？）_W"
	PRINTFORMW ちらりと隣の人物――監視対象の横顔を見ようとするが、なぜか擅長くいかなかった。
	PRINTFORMW 現在進行系でけたたましく鳴る心音が原因だとは、思いたくない。
	CALL PRINT_STR, @"（これもお役目の為だもの……気合を入れなさい、%CNAME("玲子")%。なんとしても監視を続けるのよ）_W"
	CALL PRINT_STR, @"（自然な形でこの子の傍に居るのはこれが一番だもの。身体でも色でもなんでも使えって下知だし……）_W"
	IF TALENT:MASTER:男性
		CALL PRINT_STR,  "（そ、それにこんな年頃の男性ノコなんて、どうせ性欲が一番でしょ？　余裕よ余裕）_W"
		CALL PRINT_STR, @"（そりゃ確かに%CNAME("一人称")%だって男の人とお付き合いなんてしたことないけど……）_W"
		CALL PRINT_STR,  "（でも練習用にアダルト動画見て振動棒で練習したし、年下の男性ノコの下半身ぐらい虜にしてみせるわ）_W"
		CALL PRINT_STR, @"（この%CNAME("一人称")%に限って、おちんちんに負けたりするものですか……っ！）_W"
	ELSEIF TALENT:MASTER:扶她
		CALL PRINT_STR,  "（……噂じゃこの子、女の子だけどおちんちんが生えてるっていうけど、本当なのかしら）_W"
		CALL PRINT_STR,  "（も、もしそうだとしたら年頃の男性ノコみたいに、どうせ性欲が一番でしょ？　余裕よ余裕）_W"
		CALL PRINT_STR, @"（そりゃ確かに%CNAME("一人称")%だって、よりにもよって生えてる女の子とお付き合いなんてしたことないけど……）_W"
		CALL PRINT_STR,  "（でも練習用にアダルト動画見て振動棒で練習したし、年下の女性ノコの下半身ぐらい虜にしてみせるわ）_W"
		CALL PRINT_STR, @"（この%CNAME("一人称")%に限って、女の子のおちんちんに負けたりするものですか……っ！）_W"
	ELSE
		CALL PRINT_STR,  "（そ、それにこんな年頃の女性ノコなんて、どうせ性欲が一番……よね？　まぁ、余裕よ余裕）_W"
		CALL PRINT_STR, @"（そりゃ確かに%CNAME("一人称")%だって……よ、よりにもよって女の人とお付き合いなんてしたことないけど……）_W"
		CALL PRINT_STR,  "（でも練習用にアダルト動画見て練習したし、年下の女性ノコの下半身だって虜にしてみせるわ）_W"
		CALL PRINT_STR, @"（この%CNAME("一人称")%に限って、年下の女の子に負けたりするものですか……っ！）_W"
	ENDIF
	PRINTFORMW 決意も新たに、%CNAME("玲子")%は抱きかかえた腕を意識的に胸に押し付けた……

;これは別になくても構いません
CASE "勧誘直後"
	;PRINTFORML - %NAME:TARGET% -

;これも別になくても構いません。特殊な条件がある場合などにどうぞ
CASE "出現条件"
	PRINTFORMW %NAME:TARGET%は%CALLNAME:MASTER%を監視するため"オトモダチ"という名目で(昼)の部室に顔を出します。
	PRINTFORMW ……といったあたりの背景事情を%CNAME("弗理希艾尔")%から聞かされました。
	PRINTFORMW %CALLNAME:MASTER%%CALLNAME:TARGET%のことを若干不憫に思いました……

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

ENDSELECT

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

; 告白失敗後は一定条件下で合意を強制付与
IF CEVENT("初回：告白失敗")
	SIF COND("合意：危険日生性交") == 0
		CALL SET_GOUI, "危険日生性交"
ENDIF

; 淫紋がある場合は潤滑にBOUNS
SIF RYOKO_COND("淫紋：愛液過多", TARGET)
	PALAM:Ｖ潤 += 1000 + (200 * MARK:淫紋)

;-------------------------------------------------
;一日の終わりでフラグなどを変化させたい時にはここで弄ることが出来る
;-------------------------------------------------
@TIMEEVENT_K32
IF COND("夜")
	; 個別角色イベント
	CALL RYOKO_EVENT("避妊禁止", TARGET)
	CALL RYOKO_EVENT("初妊娠", TARGET)

	; 調教系の解除
	CALL DEL_CEVENT, "調教：外出し約束"
	CALL DEL_CEVENT, "調教：避孕套ハメ"
	CALL DEL_CEVENT, "調教：危険日避孕套ゼロ生性交"

	; 性処理系の解除
	CALL DEL_CEVENT_GROUP, "日常：性処理"

	; 约会イベントの解除
	SIF CEVENT("约会：開始")
		CALL DEL_CEVENT_GROUP, "约会"
ENDIF

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

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	CALL PRINT_STRW,  "「あら、早速なの？　意外とせっかちなのね」"
	PRINTFORMW %NAMES("床")%に座った%CNAME("玲子")%は、わずかに笑みを浮かべた余裕の表情で%CALLNAME:PLAYER%を見ている……
	CALL PRINT_STRW,  "（う、うう。もうなの？　こんないきなりエッチすることになるの？）"
	CALL PRINT_STRW,  "（普通はもうちょっとおしゃべりして、お互相用趣味とか話して距離を縮めて……じゃないの？）"
	CALL PRINT_STRW, @"（で、でもこれは願ったり叶ったりよ。このまま%CNAME("一人称")%が主導権を握れば……）"
	CALL PRINT_STRW,  "「あら、どうしたの？　ひょっとして緊張しているのかしら？」"
	CALL PRINT_STRW,  "（う、うう、大丈夫よね。きっと大丈夫よね。せ、せせ、性交とか経験無いけど、実家に居た頃から振動棒で自慰してたし）"
	CALL PRINT_STRW,  "（この年頃なら相手を気遣うことなんてしない乱暴な性交だって話だし……）"
	CALL PRINT_STRW, @"「心配しなくても、%CNAME("一人称")%が酱と気持ちよくして给わ」"
	CALL PRINT_STRW, @"（昨日だって、予習を兼ねて散々振動棒で自慰してきたし！　勇気を持ちなさい、%CNAME("玲子")%！）"
	CALL PRINT_STRW,  "（お役目のためにも、おちんちんに負けたりしている闲はないわ……！）"
	PRINTFORMW

	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	CALL PRINT_STRW,  "「………………_BH_」"
	PRINTFORMW %CNAME("玲子")%は豊満的胸を腕から零しながらも何かを期待するように%CALLNAME:PLAYER%を見つめながら自分の身体抱住ている……
	CALL PRINT_STRW,  "（今日も……えっちなこと、するのね……_BH_）"
	CALL PRINT_STRW,  "（お役目のためだからイヤとは言えないけれど……こんなに何回もえっちなことに付き合わされたら……_BH_）"
	CALL PRINT_STRW,  "「いつまでも見てないで……」"
	CALL PRINT_STRW,  "「……早く、気持ちいいコトしましょ……？_／／／_」"

	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	CALL PRINT_STRW,  "「はぁ…………_BH_」"
	CALL PRINT_STRW, @"（この子ってば……_BH_　なんでこう何回も何回も%CNAME("一人称")%相手に……_BH_）"
	CALL PRINT_STRW,  "（……ま、まあ、見境なく他の娘桑が毒牙に掛かるくらいなら……ね_／／／_）"
	CALL PRINT_STRW,  "「今日は、どんなコトしましょうか……_BH_」"
	PRINTFORMW %CNAME("玲子")%は期待に満ちた瞳で%CALLNAME:PLAYER%を看了过来……

	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	IF TALENT:MASTER:男性
		CALL PRINT_STRW,  "「…………_BHH_」"
		PRINTFORMW %CNAME("玲子")%はうっとりとした息を履きながら%CALLNAME:PLAYER%の\@ EQUIP:PLAYER:裙 ? 裙に潜り込んで # 休闲褲のチャックを咥えて下ろし \@、まだ半勃起的阴茎を清めるように口に含んだ。
		CALL PRINT_STRW,  "（やだ……_BH_　今日もおっきぃ……_BH_）"
		CALL PRINT_STRW,  "（こんなに元気なおちんちん……_BH_　ほかの娘に任せるわけに是かないわね……_BH_）"
		CALL PRINT_STRW,  "「…………_BHH_」"
		CALL PRINT_STRW, @"（酱と……_BH_　%CNAME("一人称")%が責任もって……お世話……じゃない、お相手、しないと……_BH_）"
		CALL PRINT_STRW,  "「ん……_BH_　ちゅ_BH_」"
		PRINTFORMW カリの裏側まで舌先で綺麗に舐め回した%CNAME("玲子")%は、%CALLNAME:PLAYER%の阴茎の鈴口に名残惜しくも期待するような口付けをして顔を離した……
	ELSEIF TALENT:MASTER:扶她
		CALL PRINT_STRW,  "「…………_BHH_」"
		PRINTFORMW %CNAME("玲子")%はうっとりとした息を履きながら%CALLNAME:PLAYER%の\@ EQUIP:PLAYER:裙 ? 裙に潜り込んで # 休闲褲のチャックを咥えて下ろし \@、まだ半勃起的阴茎を清めるように口に含んだ。
		CALL PRINT_STRW,  "（やだ……_BH_　今日もおっきぃ……_BH_）"
		CALL PRINT_STRW,  "（こんなに元気なおちんちん……_BH_　ほかの娘に任せるわけに是かないわね……_BH_）"
		CALL PRINT_STRW,  "「…………_BHH_」"
		CALL PRINT_STRW, @"（酱と……_BH_　%CNAME("一人称")%が責任もって……お世話……じゃない、お相手、しないと……_BH_）"
		CALL PRINT_STRW,  "「ん……_BH_　ちゅ_BH_」"
		PRINTFORMW カリの裏側まで舌先で綺麗に舐め回した%CNAME("玲子")%は、%CALLNAME:PLAYER%の阴茎の鈴口に名残惜しくも期待するような口付けをして顔を離した……
	ELSE
		CALL PRINT_STRW,  "「…………_BHH_」"
		PRINTFORMW %CNAME("玲子")%はうっとりとした息を履きながら%CALLNAME:PLAYER%の\@ EQUIP:PLAYER:裙 ? 裙に潜り込んで # 休闲褲のチャックを咥えて下ろし \@、既に湿的ている秘唇を清めるように舌先で触れた。
		CALL PRINT_STRW,  "（やだ……_BH_　今日も湿的てる……_BH_）"
		CALL PRINT_STRW,  "（こんなにエッチなオマンコ……_BH_　ほかの人に渡すわけに是かないわね……_BH_）"
		CALL PRINT_STRW,  "「…………_BHH_」"
		CALL PRINT_STRW, @"（酱と……_BH_　%CNAME("一人称")%が責任もって……お世話……じゃない、お相手、しないと……_BH_）"
		CALL PRINT_STRW,  "「ん……_BH_　ちゅ_BH_」"
		PRINTFORMW 秘唇から垂れ堕ちる愛液を舌先で綺麗に舐め取った%CNAME("玲子")%は、%CALLNAME:PLAYER%の秘唇の割れ目に名残惜しくも期待するような口付けをして顔を離した……
	ENDIF
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：恋慕"
;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無を格子（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K32_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 K32_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K32_KOJO2
#DIM MEMO_LINECOUNT

$RYOKO_KOJO2_LP1
MEMO_LINECOUNT = LINECOUNT

; 恋慕
IF TALENT:恋慕
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「もぉ……_BH_　そんなにがっついちゃダメよ……_BH_」"
			CALL PRINT_STRW, @"「焦らなくても……全部、%CNAME("二人称")%のモノだから、ね……？_／／／_」"
		CASE 1
			CALL PRINT_STRW,  "「今日は、どんなことしましょうか」"
			CALL PRINT_STRW,  "「気持ちよくして欲しいし……気持ちよくしてあげたいの」"
			CALL PRINT_STRW,  "「何でも言って頂戴ね？」"
	ENDSELECT
ENDIF
SIF LINECOUNT - MEMO_LINECOUNT
	RETURN 1

IF EXP:Ｈ回数 > 3
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "（ま、またエッチなことするのね……_／／／_）_W"
			CALL PRINT_STR, @"（きょ、今日は%TEXTR("性欲/えっちな気分/ハレンチな気分")%に負けないようにしなきゃ……_BH_）_W"
			CALL PRINT_STR,  "「今日もいっぱい楽しみましょ……_BH_」_W"
		CASE 1
			CALL PRINT_STR,  "「今日はどんな風に楽しみましょうかしら？」_W"
			CALL PRINT_STR,  "「ふふ……楽しみにしてるわ_BH_」_W"
			CALL PRINT_STR, @"（きょ、今日こそ主導権握らないと……_BH_　また%TEXTR("エッチな/間抜けな")%声あげちゃう……_BH_）_W"
	ENDSELECT
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
ENDIF

IF RYOKO_COND("淫紋：愛液過多")
	IF ABL:露出癖 >= 3
		IF EQUIP:裙 && !CHECK_CLO("没穿内褲")
			; たくし上げ見せつけ
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「ねぇ……_BH_　見てよ、これ……_BH_」"
					PRINTFORMW %CNAME("玲子")%は腰を突き出した姿勢で%SKIRT(TARGET, "略")%の下摆を掴んでたくし上げ、その下に隠されているものを展示了出来……
					PRINTFORMW %CNAME("玲子")%の%TEXTR("阴部/腰/陰部/性器")%を覆う%PANTIES(TARGET)%は、その内側から溢れる%TEXTR("愛液/淫らな蜜")%でじっとりと湿って黒く変色しており、それでもなお押し止められていない%TEXTR("蜜/汁")%が%CNAME("玲子")%の内腿に粘質な跡を残しながら滴っている……
					CALL PRINT_STRW,  "「さっきまでは……ね……？_／／／_　がまん、できてたの……よ？」"
					CALL PRINT_STRW, @"「でも、%CNAME("二人称")%と%TEXTR("エッチ/パコパコ/ズッコンバッコン")%するって考えたら……_BH_」"
					CALL PRINT_STRW, @"「%CNAME("愛液")%止まらなくなっちゃった……_BH_」"
					CALL PRINT_STRW,  "「セキニン……_BH_　取ってよね……_BH_BH_BH_」"
					;CFLAG:胖次確認済 = 3
					CALL SETFLAG_DAILY, "胖次形状確認"
			ENDSELECT
		ELSEIF  EQUIP:裙 && CHECK_CLO("没穿内褲")
			; たくし上げ見せつけ（没穿内褲）
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「…………_BH_」"
					PRINTFORMW %CNAME("玲子")%は上気しながらも蕩けたような顔で、おもむろに%SKIRT(TARGET, "略")%をたくし動作著……
					CALL PRINT_STRW,  "「……見える？　もう、準備万端なの……_／／／_」"
					PRINTFORMW 眼前に示された%TEXTS("阴部：視覚")%からは、淫らな蜜がとくとくと溢れ牝臭漂う小川をその太ももに刻んでいる……
					CALL PRINT_STRW,  "「早い男は嫌われるって言うけど……_／／／_」"
					CALL PRINT_STRW,  "「焦らされるのは、好きじゃないの……_BH_BH_BH_」"
			ENDSELECT
		ENDIF
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "（あぁ……_BH_　ガマン、ガマンできた、のにぃ_BH_）"
			CALL PRINT_STRW, @"（いざえっちするって考えたら……_BH_　%CNAME("オマンコ")%きゅんきゅんしてきちゃった……_BH_）"
			CALL PRINT_STRW, @"（%CNAME("愛液")%こぼれちゃう……_BH_　ビショビショになっちゃってるぅ……_BH_BH_BH_）"
			CALL PRINT_STRW,  "「…………_BH_BH_BH_」"
			PRINTFORMW %CNAME("玲子")%は湿った熱のこもった瞳で%CALLNAME:PLAYER%を見ている……
		CASE 1
			CALL PRINT_STRW,  "「……_BH_　ぅぅ_BH_」"
			CALL PRINT_STRW, @"（やだ……_BH_　これから%TEXTR("えっち/パコパコ/性交")%するんだ、って考えたら……_BH_）"
			CALL PRINT_STRW, @"（%TEXTR("愛液")%……溢れちゃう……_BH_）"
		CASE 2
			CALL PRINT_STRW,  "「……ぅ_BH_　ぅ_BH_」"
			CALL PRINT_STRW,  "（や、やだぁ……_BH_　急に、こんな……_BH_）"
			CALL PRINT_STRW, @"（%TEXTR("オマンコ/阴部/子宮")%が、%TEXTR("きゅん/じゅん")%っ_BH_　ってぇ……_BH_）"
	ENDSELECT
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
ENDIF

; 汎用
SELECTCASE RAND:5
	CASE 0
		CALL PRINT_STRW,  "「あら、今日もお相手してくれるの？　ふふ、元気なのね」"
		CALL PRINT_STRW, @"（きょ、今日は前回みたいにいかないわ。気合を入れるのよ、%CNAME("玲子")%）"
	CASE 1
		CALL PRINT_STRW,  "「今日も元気いっぱいなのね……_／／／_」"
		CALL PRINT_STRW,  "「お手柔らかにお願いね」"
	CASE 2
		CALL PRINT_STRW, @"「……もう。そんなに%CNAME("一人称")%と%TEXTR("性交渉/えっち/性交")%したいの？」"
		CALL PRINT_STRW, @"「%CNAME("一人称")%は……内緒よ。女にそんなこと言わせないでちょうだい_／／／_」"
	CASE 3
		CALL PRINT_STRW,  "「…………_BH_」"
		CALL PRINT_STRW,  "「……っ_／／／_　～～っ_BH_」"
		CALL PRINT_STRW,  "「……_BH_　………………_／／／_」"
		CALL PRINT_STRW, @"「……？　ちょっと。なに%TEXTR("にやにや/にたにた")%してるのよ、もう……」"
		PRINTFORMW %CNAME("玲子")%の百面相を楽しんでいたら不満そうに言われてしまった……
ENDSELECT

;恋慕
;IF TALENT:恋慕
;	PRINTFORMW
;屈服刻印Lv0
;ELSEIF MARK:屈服刻印 == 0
;	PRINTFORMW
;屈服刻印Lv1
;ELSEIF MARK:屈服刻印 == 1
;	PRINTFORMW
;屈服刻印Lv2
;ELSEIF MARK:屈服刻印 == 2
;	PRINTFORMW
;屈服刻印Lv3
;ELSEIF MARK:屈服刻印 == 3
;	PRINTFORMW
;ENDIF

SIF LINECOUNT - MEMO_LINECOUNT
	RETURN 1
GOTO RYOKO_KOJO2_LP1

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

; 強制付与した合意の解除
IF COND("合意：危険日生性交")
	IF !TALENT:相思相愛
		IF TALENT:恋慕 && TALENT:淫乱 && CONFIG("危険日生性交の合意")
			; 相思相愛でない時の付与条件
		ELSE
			SPLIT CSTR:合意, "/危険日生性交", LOCALS
			CSTR:合意 = %LOCALS:0%%LOCALS:1%
		ENDIF
	ENDIF
ENDIF

DRAWLINE
MEMO_LINECOUNT = LINECOUNT
$RYOKO_EVENTEND_LP1

;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;其他
	ELSE
		PRINTFORMW
	ENDIF
;partnerが体力or精力尽きた場合
ELSEIF STATE("撃沈")
	PRINTFORMW
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
	PRINTFORMW
ENDIF

; 危険日に中出しされた
IF EXP_GAIN("膣内精液経験") && COND("危険日")
	IF !CEVENT("調教：調教後会話：危険日Ｖ中出し")
		CALL PRINT_STR,  "「ぁぅ……_BH_　しゅごい_BH_　まだ出てくる……_BH_」_W"
		PRINTFORMW %CNAME("玲子")%は股の間からだくだくと零れ出る%CALLNAME:PLAYER%の精液を見つめながら陶然と呟いた……
		CALL PRINT_STR,  "「どうしよう……_BH_　危険日なのにぃ_BH_　赤酱できちゃうよぉ……_BH_」_W"
		CALL PRINT_STR,  "「こんなに濃い精液……_BH_　いっぱい出されちゃったよぉ……_BH_　ん……っ_BH_」_W"
		PRINTFORMW %CNAME("玲子")%は蕩けたような瞳で自分の膣口から溢れる精液を指で掬い取り、下で舐め取っている……
		IF TALENT:MASTER:男性
			CALL PRINT_STR,  "（こんなハメになるのは……当たり前じゃない_BH_　相手はヤりたい盛りの男性ノコなんだからぁ……_BH_）_W"
		ELSEIF TALENT:MASTER:扶她
			CALL PRINT_STR,  "（こんなハメになるのは……当たり前じゃない_BH_　相手はヤりたい盛りの扶她女性ノコなんだからぁ……_BH_）_W"
		ENDIF
		CALL PRINT_STR,  "（いざエッチしたら……_BH_　妊娠とか_BH_　なにも考えずに_BH_　びゅー_BH_　びゅーって_BH_　無責任にナカダシするに決まってるじゃない……_BH_）_W"
		CALL PRINT_STR,  "「妊娠しちゃうよぉ……_BH_BH_BH_」_W"
		CALL PRINT_STR, @"（ぁぁ……_BH_　で、でも%CNAME("玲子")%、しっかりするのよ。いまはお役目の途中だもの……_BH_）_W"
		CALL PRINT_STR,  "（身体を使う以上、こういう事態だって覚悟してたでしょ……_／／／_　それよりも……）_W"
		CALL PRINT_STR,  "「……なんちゃって_BH_　ふふ、どう？　興奮した？」_W"
		PRINTFORMW %CNAME("玲子")%はおもむろに顔を上げると、にこりと笑った。
		CALL PRINT_STR,  "「あーあ、もう、こんなにナカに出して……_BH_　本当に妊娠しちゃいそう……」_W"
		CALL PRINT_STR,  "「……あそこまで嫌がったのは演技だけど、危険日なのは本当なのよ？」_W"
		PRINTFORMW %CNAME("玲子")%は自分の下腹部を撫で回しながら責めるような目で%CALLNAME:PLAYER%を見ている……
		CALL PRINT_STR,  "（あんまり強く拒絶して、めんどくさい女って思われて疎遠になっても困るし……）_W"
		CALL PRINT_STR,  "（玩遊戲のに便利な尻軽女、って風に思ってもらわなきゃ……）_W"
		IF TALENT:MASTER:男性
			CALL PRINT_STR,  "「ほら？　男性ノコって、出す時にそういう台詞言われる方が興奮するんでしょ？」_W"
		ELSEIF TALENT:MASTER:扶她
			CALL PRINT_STR,  "「ほら？　扶她女性ノコって、出す時にそういう台詞言われる方が男性ノコみたいに興奮するんでしょ？」_W"
		ENDIF
		CALL PRINT_STR,  "「……本当に妊娠しちゃうかもだから、流石に危険日は避孕套して欲しいけど……」_W"
		CALL PRINT_STR,  "「でも、いくら危険日に中出ししたからってそんな簡単に妊娠したりはしないでしょ」_W"
		CALL PRINT_STR,  "「また今度お相手してね。……危険日じゃないなら、いくらでもナマで注いでいいわよ_BH_」_W"
		CALL PRINT_STR,  "（こ、このくらいはリップサービスの範囲よね……まさか本気にはしないでしょうし……_／／／_）_W"
		CALL PRINT_STR,  "（……うぅ。でも、本当にナカにいっぱい詰まってる……_BH_）_W"
		CALL PRINT_STR, @"（頑張ってね、%CNAME("一人称")%の卵子……若い子の精子なんかに負けだちゃダメよ……_／／／_）_W"
		CALL PRINT_STR,  "「…………ふぅ_BH_」_W"
		PRINTFORMW %CNAME("玲子")%は心无ぷくりと膨らんだ自分の下腹部を撫で回し一边继续、膣からごぼごぼと溢れる精液を水润的瞳で眺めている……
		CALL SET_CEVENT, "調教：調教後会話：危険日Ｖ中出し"
		GOTO RYOKO_EVENTEND_SKIP1
	ENDIF

	; 条件的に一度は出産している
	IF TALENT:相思相愛
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「もう、こんなに出して……_／／／_　溢れて来ちゃうじゃない……_BH_」"
				PRINTFORMW %CNAME("玲子")%は満足そうな顔で股を開き、ひくつく淫唇から溢れる%CALLNAME:PLAYER%の精液を見せつけてくる……
				CALL PRINT_STRW, @"「そんなに%TEXTR("種付けし/孕ませ/妊娠させ")%たかったの？_／／／_」"
				CALL PRINT_STRW,  "「…………ふふ_BH_BH_BH_」"
			CASE 1
				CALL PRINT_STRW, @"「ふふ……_BH_　いっぱい%TEXTR("注いで/出して/恵んで")%貰っちゃったわね……_BH_」"
				CALL PRINT_STRW, @"「また%TEXTR("孕んじゃう/おなかが大きくなっちゃう")%わ……_BH_」"
			CASE 2
				CALL PRINT_STRW,  "「…………_BH_　ふふ_BH_」"
			IF TALENT:MASTER:男性
				CALL PRINT_STRW, @"（惚れた男の子に組み伏せられて……_BH_　こんなに%TEXTR("いっぱい/たく桑")%%TEXTR("中出し/種付け")%されて……_BH_）"
			ELSEIF TALENT:MASTER:扶她
				CALL PRINT_STRW, @"（惚れた子に組み伏せられて……_BH_　こんなに%TEXTR("いっぱい/たく桑")%%TEXTR("中出し/種付け")%されて……_BH_）"
			ENDIF
				CALL PRINT_STRW,  "「幸せ……_BH_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			GOTO RYOKO_EVENTEND_SKIP1
		GOTO RYOKO_EVENTEND_LP1
	ENDIF

	; 恋慕は妊娠未経験でもつく
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「馬鹿_BH_　馬鹿ぁ……_BH_　こんなに、出す、なんてぇ……_BH_」"
				CALL PRINT_STRW, @"（%TEXTR("中出し/種付け/孕ませ")%%CNAME("精液")%で……_BH_　おなかのナカ、%TEXTR("たぽたぽ/あったかい/ぽかぽか")%よぉ……_／／／_BH_）"
				CALL PRINT_STRW, @"「今日……_BH_　%CNAME("危険日")%なのにぃ……_BH_」"
			CASE 1
				CALL PRINT_STRW, @"「今日……_BH_　%CNAME("危険日")%だって……_BH_　言わなかったっけ……？_BH_」"
				CALL PRINT_STRW, @"「こんなに……_BH_　%CNAME("精液")%いっぱい_BH_　%CNAME("びゅるびゅる/どぷどぷ")%されたら……_BH_」"
				CALL PRINT_STRW, @"「%CNAME("一人称")%の%CNAME("卵子")%……_BH_　逃げ場ないじゃない……_BH_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			GOTO RYOKO_EVENTEND_SKIP1
		GOTO RYOKO_EVENTEND_LP1
	ENDIF

	; 汎用
	;   妊娠に関して否定的～懐疑的
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW, @"（……大丈夫よね？　%CNAME("一人称")%の卵子、そんなに簡単に負けたりしないわよね？）"
		CASE 1
			CALL PRINT_STRW, @"（受精と着床は別の話って%TEXTR("聞いたことがある/雑誌で見た/レディコミに描いてあった")%し……）"
			CALL PRINT_STRW,  "（着床しなければギリセーフ……よね？）"
		CASE 2
			CALL PRINT_STRW,  "（帰りに便利店でコーラ買わないと……）"
			CALL PRINT_STRW, @"（コーラで洗い流せば%TEXTR("大丈夫/妊娠しない")%のよね……？）"
		CASE 4
			CALL PRINT_STRW,  "（ぅぅぅ……こんなにいっぱい……_／／／_）"
			CALL PRINT_STRW, @"（大丈夫、大丈夫よ%CNAME("玲子")%……%CNAME("一人称")%の卵子がそう簡単に負けるわけ無いわ……）"
			CALL PRINT_STRW,  "（受精なんて……絶対にしてやらないんだから……_／／／_）"
	ENDSELECT
	SIF LINECOUNT - MEMO_LINECOUNT
		GOTO RYOKO_EVENTEND_SKIP1
	GOTO RYOKO_EVENTEND_LP1
ENDIF

; 中出しされた
IF EXP_GAIN("膣内精液経験") > 3
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「ぉ……_BH_　ぉ_BH_　おぉー……_BH_」"
			CALL PRINT_STRW, @"（しゅごい……_BH_　%CNAME("オマンコ")%_BH_　%CNAME("精液")%%TEXTR("どぱどぱ/だぷだぷ/どぽどぽ")%あふれてりゅ……_BH_）"
			CALL PRINT_STRW, @"（%TEXTR("なかだし/にゃかだし/にゃからひ")%ぃ……_BH_　%TEXTR("なかだし/にゃかだし/にゃからひ")%され%TEXTR("ちゃった/ひゃった")%ぁ……_BH_）"
			CALL PRINT_STRW, @"（はやく%CNAME("オマンコ")%からだひゃないとぉ……_BH_　%TEXTR("あか酱/あかひゃん/あかしゃん")%_BH_　%TEXTR("あか酱/あかひゃん/あかしゃん")%デキ%TEXTR("ちゃう/ひゃう")%ぅ_BH_）"
			CALL PRINT_STRW,  "（……孕むぅ_BH_BH_BH_）"
			CALL PRINT_STRW,  "　　　　_ショッキング粉紅_くちゅ_BHH"
			CALL PRINT_STRW,  "「ぉ……_BH_　おぉー_BH_　おぉっ_BH_BH_BH_」"
			PRINTFORMW %CNAME("玲子")%は辿々しい指靈活で膣に残った%CALLNAME:PLAYER%の%TEXTR("精液/精液")%をかき回して性行為の余韻を堪能しているようだ……
		CASE 1
			CALL PRINT_STRW,  "「うわ……_BH_　すごい……_BH_」"
			CALL PRINT_STRW, @"「こんなに……%TEXTR("出し/注い")%%TEXTR("た/てくれた")%の……？_／／／_」"
			PRINTFORMW %CNAME("玲子")%は%TEXTS("阴部：視覚")%から%TEXTR("だくだくと/ごぽごぽと音を立て/ごぼりと塊のように")%溢れる%CALLNAME:PLAYER%の精液を見ながら陶然と呟いた。
			CALL PRINT_STRW, @"（%TEXTR("せ、精液/ざ、精液")%ってこんなに出せるものなの……？　それとも、悪魔と契約した関係かしら……？）"
			CALL PRINT_STRW, @"（な、なんにせよこの量……_／／／_　%TEXTR("動画/ムービー")%でも見たことないわよ、もう……_BH_／／／_）"
			CALL PRINT_STRW, @"「そんなに気持ちよかったんだぁ……？_BH_　%CNAME("一人称")%の%CNAME("オマンコ")%……_BH_」"
			CALL PRINT_STRW, @"「また今度……%TEXTR("ハメ/挿入れ")%させて给ね……_BH_」"
			CALL PRINT_STRW,  "（……もぉ_BH_　そんなに開心地してぇ……_BH_BH_BH_）"
			CALL PRINT_STRW,  "（こっちはお役目なのに……_BH_　絆されたりしないんだからね……っ_／／／_）"
	ENDSELECT
ENDIF
SIF LINECOUNT - MEMO_LINECOUNT
	GOTO RYOKO_EVENTEND_SKIP1

IF TALENT:恋慕
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「…………_BH_BH_BH_」"
			CALL PRINT_STRW, @"（%TEXTR("今日も/また")%%TEXTR("エッチ/性交")%しちゃった……_BH_）"
	ENDSELECT
	SIF LINECOUNT - MEMO_LINECOUNT
		GOTO RYOKO_EVENTEND_SKIP1
	GOTO RYOKO_EVENTEND_LP1
ENDIF

; 汎用
SELECTCASE RAND:5
	CASE 0
		CALL PRINT_STR,  "「～～～～_BH_BH_BH_」_W"
		PRINTFORMW %CNAME("玲子")%は%NAMES("床")%に仰向けに倒れたまま、方を上下させ噛み殺すような息を吐いている……
		CALL PRINT_STR,  "「しゅごい……_BH_」_W"
		CALL PRINT_STR,  "「しゅごいきもちよかったぁ……_BH_」_W"
		CALL PRINT_STR, @"（%TEXTR("のーみそ/あたまのなか")%よいんでびくびくしてりゅ……_BH_　しゅごいぃ……_BH_）_W"
	CASE 1
		CALL PRINT_STR,  "「ぉ……_BH_　おぉ……_BH_」_W"
		PRINTFORMW %CNAME("玲子")%は冰雹もない姿で%NAMES("床")%に寝転んだまま、性行為の余韻を堪能している……
		CALL PRINT_STR,  "（ぅ、ぅぅ……_BH_　まだおめめちかちかすゆ……_BH_）_W"
		CALL PRINT_STR,  "（こんなの……_BH_　クセになるぅ……_BH_）_W"
ENDSELECT

SIF LINECOUNT - MEMO_LINECOUNT
	GOTO RYOKO_EVENTEND_SKIP1
GOTO RYOKO_EVENTEND_LP1

$RYOKO_EVENTEND_SKIP1
; 共通処理
; DEL系
CALL DEL_CEVENT, "調教：素股誤挿入発生済み"

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

MEMO_LINECOUNT = LINECOUNT
$RYOKO_COM_LP1

;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STR,  "「～～～～_BH_BH_BH_／／／_」_W"
		CALL PRINT_STR,  "（なにこれ……_H_　ただ触られてるだけなのに……っ_H_）_W"
		CALL PRINT_STR,  "（すっごく……_H_　頭が熱くなる……_H_）_W"
		CALL PRINT_STR,  "「ぅぅ_H_　ぅ_H_　うー……っ_BH_」_W"
		CALL PRINT_STR,  "「やさしく……触ってくれるのね……_H_」_W"
		CALL PRINT_STR,  "「ええ……_BH_　すっごく、気持ちいいわ……_BH_　あうっ_BH_」_W"
		CALL PRINT_STR,  "（あ、あうぅ……_BH_　太ももの内側、さわ、触られて……_BH_　うぅ_BHH_）_W"
		RETURN 1
	ENDIF

	;二回目以降

	; 挿入中
	IF INSERT("Ｖ挿入")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「は、ぅ_BH_　ぁー……_BH_　ぉー……_BH_　うぅ_BH_　っは_BH_　あ_BH_」_W"
				CALL PRINT_STR, @"（%TEXTR("オマンコ/パコパコ")%されながら……色々触られるの……_BH_　すごい……_BH_）_W"
				CALL PRINT_STR,  "「おっぉー_BH_　ぅー_BH_　おぉー……_BH_」_W"
				CALL PRINT_STR,  "（のーみそ……とろけそう……_BH_）_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	;恋慕
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「もぉ……_BH_　手つきがいやらしい、わよ……_BH_」"
				CALL PRINT_STRW, @"「%TEXTR("イヤ/ダメ")%とは……言わないけど……_BH_」"
			CASE 1
				CALL PRINT_STRW,  "「挑逗ような触り方は……嫌いよ」"
				CALL PRINT_STRW,  "「オアズケされるのは、好きじゃないわ……_BH_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_COM_LP1
	ENDIF

	;それ以外
	SELECTCASE RAND:5
		CASE 0
			IF TALENT:MASTER:男性
				CALL PRINT_STR,  "（男の子に触られるの……やっぱりまだ慣れないけど……）_W"
			ELSE
				CALL PRINT_STR,  "（女の子に触られるの……やっぱりまだ慣れないけど……）_W"
			ENDIF
			CALL PRINT_STR, @"「…………んっ_H_」_W"
			CALL PRINT_STR,  "（声が漏れちゃうの……恥ずかしいわね……_／／／_）_W"
		CASE 1
			CALL PRINT_STR,  "「ゃん……_H_　んっ_H_」_W"
			CALL PRINT_STR,  "「ぁ、大丈夫……痛いわけじゃないわ」_W"
			CALL PRINT_STR,  "「酱と気持ちいいから……ね？_／／／_」_W"
			CALL PRINT_STR,  "（むしろその方が不本意というか……自然に声が漏れちゃう……）_W"
			CALL PRINT_STR,  "「ぁぅんっ_H_　ぅぅっ_HH_」_W"
		CASE 2
			CALL PRINT_STR, @"「はぁ……_H_　%CNAME("二人称")%の手、%TEXTR("温かい/気持ちいい")%わ……_H_」_W"
			CALL PRINT_STR, @"「%TEXTR("ひとりえっち/ひとりでえっちする/オナる")%よりずっと感じちゃう……_H_）_W"
			CALL PRINT_STR, @"（……って、そうじゃなくて）_W"
			CALL PRINT_STR, @"（これはお役目なんだから……気持ちよくなっちゃダメなんだから……）_W"
			CALL PRINT_STR,  "「ぅ_H_　うぅー_HH_HH_HH_」_W"
			CALL PRINT_STR,  "（ダメ、なんだからぁ……_H_）_W"
		CASE 3
			CALL PRINT_STR,  "「はぁ……_H_　いじわるぅ……_H_」_W"
			CALL PRINT_STR,  "「そんなに……おしりばっかり、触らないでぇ……_H_」_W"
			CALL PRINT_STR,  "（おしり鷲掴みにされて……_H_　湿的ちゃうじゃない……_H_）_W"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1

	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STR,  "「……_H_　っ_H_　ぉっ_HH_」_W"
		PRINTFORMW %CNAME("玲子")%は股間に顔を埋めた%CALLNAME:PLAYER%に%TEXTS("阴部")%を精心舐め上げられ、背筋を反らして甘くも下品な吐息を漏らしている……
		CALL PRINT_STR,  "「ぉー……_H_　ぅ_H_　ぃんっ_H_　ぁあんっ_HH_」_W"
		CALL PRINT_STR, @"（やだぁ……_H_　%CNAME("一人称")%、気持ちよくなってる……_H_）_W"

		IF TALENT:MASTER:男性
			CALL PRINT_STR,  "（でも、でもぉ……_H_　男の子に舔陰部ら、んぁっ_H_　し、舌でオマンコのナカ穿らてぇ_H_　マン汁啜られるのぉ_H_）_W"
			CALL PRINT_STR,  "（年下の男の子に舔陰部られて、ドロドロにお汁漏らしちゃってるよぉ……_H_）_W"
			CALL PRINT_STR,  "「うぅ_H_　うー_H_　ぅ_H_　い、いぃぃいっ_HH_」_W"
			CALL PRINT_STR,  "（だ、ダメよ……しっかりしないとぉ……_H_　お役目、お役目があるんだからぁ……っ_H_）_W"
		ELSE
			CALL PRINT_STR,  "（年下の女の子に舔陰部られて、ドロドロにお汁漏らしちゃってるよぉ……_H_）_W"
			CALL PRINT_STR,  "「うぅ_H_　うー_H_　ぅ_H_　い、いぃぃいっ_HH_」_W"
			CALL PRINT_STR,  "（だ、ダメよ……しっかりしないとぉ……_H_　お役目、お役目があるんだからぁ……っ_H_）_W"
			CALL PRINT_STR,  "（でも、でもぉ……_H_　女の子に舔陰部ら、んぁっ_H_　し、舌でオマンコのナカ穿らてぇ_H_　マン汁啜られるのぉ_H_）_W"
		ENDIF
		CALL PRINT_STR,  "「ぉー_H_　ぉー……_H_　気持ちいい……_H_　ソレ気持ちいのぉ……_H_」_W"
		CALL PRINT_STR,  "「もっとシてぇ……_H_　阴蒂酱吸ってぇ、マン汁飲んでぇ……_H_　ぅ、ぅー！_／／／_HH_　おっほぉ……おぉぉ……っ_HH_」_W"
		PRINTFORMW %CALLNAME:PLAYER%の後頭部に手を当てて自己的股間に押し付けるようにする%CNAME("玲子")%のリクエストに応えると、%CNAME("玲子")%は淫らな蜜をだくだくと零しながら冰雹もない嬌声を動作著……
		RETURN 1
	ENDIF

	;二回目以降
	;被逆推ているとき
	IF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF

		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_COM_LP1
	ENDIF

	;清洁舔阴
	IF COND("清洁舔阴フラグ", PLAYER)
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_COM_LP1
	ENDIF

	SELECTCASE CONDS("陰毛")
		CASE "随意生長", "自然"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「や、もう……_／／／_」"
					CALL PRINT_STRW, @"「%CNAME("陰毛")%%TEXTR("ハムハムしちゃ/あむあむしちゃ/食べちゃ/すすっちゃ")%ダメェ……_BH_」"
				CASE 1
					CALL PRINT_STRW,  "「ぅ_BH_　うー_BH_」"
					CALL PRINT_STRW, @"（やだぁ……_BH_　%CNAME("オマンコ")%%TEXTR("なめなめされ/舐められ")%一边继续、%CNAME("陰毛")%のにおい嗅がれてる……_BH_）"
					CALL PRINT_STRW,  "「ぅ_BH_　うぅ_BH_　ぅっ_BH_」"
					CALL PRINT_STRW,  "（酱とリンスしておいて……よかったぁ……_BH_）"
			ENDSELECT
		CASE "白虎", "脱毛処理", "光滑无毛"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「ぉ_BH_　おー_BH_」"
					CALL PRINT_STRW,  "（ぅぅ_BH_　舐められてる……_BH_　舐められちゃってるよぉ……_BH_）"
					CALL PRINT_STRW, @"（%TEXTR("兒童っぽい/赤酱みたいな")%光滑无毛の%CNAME("オマンコ")%、美味しそうに舐められてるよぉ……_BH_）"
					CALL PRINT_STRW,  "「ぅぅ_BH_　う_BH_　おー……おぉー……_BH_」"
			ENDSELECT
	ENDSELECT
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	;
	IF COND("Ｖ潤充分") && CHECK_CLO("Ｖ露出")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「ぅ_BH_　ぅぅ_BH_　ぅぅぅ～～～～っ_BH_」"
				CALL PRINT_STRW, @"（い、イヤぁ_BH_　舐められてる_BH_　%CNAME("愛液")%止まんない%TEXTR("ぐちょぐちょ/びちゃびちゃ")%%CNAME("オマンコ")%美味しそうに堪能されちゃってる……_BH_）"
				CALL PRINT_STRW,  "「や、やだぁ……_BH_　それイヤぁ……っ_BH_　ぅーっ_BH_」"
				CALL PRINT_STRW, @"「%TEXTR("びちゃびちゃ音立てて舐めない/じゅるじゅる音立てて吸わない")%でぇ……っ_BH_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
	ENDIF

	IF EXP_GAIN("Ｖ性交経験") && !EXP_GAIN("膣内精液経験")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「ぅ_BH_　ぅぅ～_BH_」"
				PRINTFORMW 力なく開かれた%CNAME("玲子")%の股の間に顔を埋め、目の前でとくとくと汁を零す%TEXTR("秘唇/淫壺/ワレメ")%を味わうと%CNAME("玲子")%は有点害臊的顔を隠して淫らに呻いた……
				CALL PRINT_STRW,  "（やだぁ……_BH_　見られてる_BH_　ガン見されてるぅ……_BH_）"
				CALL PRINT_STRW, @"（半端なトコロで%CNAME("阴茎")%抜かれて%TEXTR("ひくついてる/おねだりしてる")%%CNAME("オマンコ")%バレちゃってるよぉ……っ_BH_）"
				CALL PRINT_STRW,  "「ぉ_BH_　おぉ～～_BH_　ぅ～っ_BH_　ぁー_BH_」"
				CALL PRINT_STRW, @"（不要_BH_　不要不要ぁ_BH_　%TEXTR("ビラビラはむはむ/おマメなめなめ")%しちゃダメぇっ_BH_）"
				CALL PRINT_STRW, @"（お汁溢れちゃう_BH_　%CNAME("オマンコ")%が%CNAME("阴茎")%欲しいって切なくなっちゃうからぁっ_BH_）"
				CALL PRINT_STRW,  "「…………_BH_BH_BH_」"
				PRINTFORMW %CNAME("玲子")%は時折身体を震わせながらも%CALLNAME:PLAYER%の施す快楽を堪能してる……
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
	ENDIF

	;恋慕
	IF TALENT:恋慕

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「もぉ……_BH_　そんなに、美味しそうに……_BH_　ぉ゛っ_BH_」"
				CALL PRINT_STRW,  "「ぁ゛_BH_　ぅ゛～～_BH_　ぉ゛～～_BH_」"
			CASE 1
				CALL PRINT_STRW,  "「ぅ゛_BH_　や゛だ_BH_　音たてて_BH_　啜っちゃだめぇ_BH_」"
				CALL PRINT_STRW, @"「%CNAME("一人称")%の%CNAME("愛液")%じゅるじゅる啜っちゃだめぇっ_BH_」"
		ENDSELECT

		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_COM_LP1
	ENDIF

	;汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「……っ_H_　っ_H_H_H_」_W"
			CALL PRINT_STR,  "（やだこれ……_H_　キモチイイ……_H_）_W"
		CASE 1
			CALL PRINT_STR, @"（%CNAME("一人称")%……何やってるんだろう……）_W"
			IF TALENT:MASTER:男性
				CALL PRINT_STR, @"（お役目のためと是え、こんな男の子に%CNAME("オマンコ")%舐められて……）_W"
			ELSE
				CALL PRINT_STR, @"（お役目のためと是え、同じ女の子に%CNAME("オマンコ")%舐められて……）_W"
			ENDIF
			CALL PRINT_STR, @"「……ぅ_H_」_W"
			CALL PRINT_STR, @"（こんな……_H_　%TEXTR("どろどろ/とろとろ")%になっちゃうくらいお汁漏らして……_H_）_W"
			CALL PRINT_STR,  "「もっと……シて……？_／／／_」_W"
		CASE 2
			CALL PRINT_STR, @"「ぁぅ……_H_　やぁん……っ_H_」_W"
			CALL PRINT_STR, @"「そんな……音立てて%CNAME("愛液")%啜らないで……ぇ_H_」_W"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

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
		CALL PRINT_STR,  "（ひとりでシてる所を見せてほしいだなんて……）_W"
		CALL PRINT_STR,  "（もお……変態じゃないの、この子ってば……_／／／_）_W"
		CALL PRINT_STR,  "「ぁん_BH_　ん……っ_BH_　んんーっ_BH_」_W"
		CALL PRINT_STR,  "（いつもは振動棒使ってるから……_BH_　物足りないわね……_BH_）_W"
		IF TALENT:MASTER:男性
			CALL PRINT_STR,  "（でも……_BH_　男性ノコに見られながらって、ぅ_BH_　んっ_BH_）_W"
		ELSE
			CALL PRINT_STR,  "（でも……_BH_　年下の女性ノコに見られながらって、ぅ_BH_　んっ_BH_）_W"
		ENDIF
		CALL PRINT_STR,  "「ぉ_BH_　おぉっ_BH_　ぅー_H_　うぅぅーっ_BH_BH_BH_」_W"
		PRINTFORMW %CNAME("玲子")%はちらちらと%CALLNAME:PLAYER%の反応を伺いながらも、次第に大胆地脚を開き秘所に突き立てる指の数を増やしていった……
	ENDIF

	;二回目以降
	;恋慕
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「いつもはね……？　振動棒で、%CNAME("自慰")%してるのよ……_BH_」"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 特殊自慰
	IF INSERT("Ｖ挿入")
		; 汎用
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「ぅ_BH_　ぅぅー_BH_　ぅー_BH_　ぅうぅー……_BH_」"
				CALL PRINT_STRW, @"（%CNAME("一人称")%、振動棒派なの、にぃ……っ_BH_）"
				CALL PRINT_STRW,  "（せめて、もう少し……_BH_　動いてよぉ……_BH_）"
				PRINTFORMW %CNAME("玲子")%は何かを訴えるかのように%CALLNAME:PLAYER%をじっと見つめながら自らを慰めている……
			CASE 1
				CALL PRINT_STRW, @"（%CNAME("一人称")%……_BH_　何やってるのかしら……_BH_）"
				CALL PRINT_STRW,  "「ぅ_BH_　うぅ_BH_　ぅー_BH_」"
				CALL PRINT_STRW, @"（%CNAME("オマンコ")%に%CNAME("阴茎")%%TEXTR("突っ込まれて/挿入れられて")%……_BH_　なのに%TEXTR("ひとりエッチ/自慰")%させられて……_BH_）"
				CALL PRINT_STRW,  "「ぅぅぅうううう_BH_　おおー……_BH_」"
				IF TALENT:MASTER:男性
					CALL PRINT_STRW, @"（%TEXTR("だらしない/いやらしい/えっちな")%顔……年下の男の子に%TEXTR("まじまじと/じっくり")%見られて……_BH_）"
				ELSE
					CALL PRINT_STRW, @"（%TEXTR("だらしない/いやらしい/えっちな")%顔……年下の女の子に%TEXTR("まじまじと/じっくり")%見られて……_BH_）"
				ENDIF
				CALL PRINT_STRW,  "「ぅ、ぅー_BH_　うう_BH_　おっほぉ……_BH_　うう、う_BH_　うー！_BH_」"
				CALL PRINT_STRW,  "（クセ变成了ら……どうしてくれるのよ……_BH_）"
		ENDSELECT

		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_COM_LP1
	ENDIF

	IF EXP_GAIN("膣内精液経験")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「うぅ_BH_　ぅー_BH_　おうっ_BH_」_W"
				PRINTFORMW %CNAME("玲子")%は自己的%TEXTR("膣内/胎内/肉壷/阴部")%に残った%CALLNAME:PLAYER%の%TEXTR("精液/精液/スペルマ")%を泡立てるように一心不乱にかき混ぜ、嗚咽のような嬌声を漏らしている……
				CALL PRINT_STR,  "（これ_BH_　これヤバい_BH_　これヤバいよぉ_BH_）_W"
				CALL PRINT_STR, @"（%TEXTR("射精したて/搾りたて")%%CNAME("精液")%_BH_　%CNAME("オマンコ")%に%TEXTR("擦り込み/こすり付け")%ながら%TEXTR("オナる/のひとりエッチ")%マジヤバいぃ_BH_）_W"
			CASE 1
				PRINTFORMW %CNAME("玲子")%は自分の膣から溢れた%TEXTR("精液/精液/白濁汁")%を弄び一边继续、ひとり享楽に耽っている……
				CALL PRINT_STR,  "「ぉっ_BH_　ぉぉっ_BH_　ぅ_BH_　うー！_BH_　おー……_BH_」_W"
				CALL PRINT_STR,  "（だ……だめぇ……_BH_　イヤぁ……_BH_BH_BH_）_W"
				CALL PRINT_STR,  "（これクセになるぅ_BH_　ダメなのにぃ_BH_　おやくめ、おやくめせっくす_BH_　おやくめでせっくすしてなかだしされただけなのにぃ_BH_）_W"
				CALL PRINT_STR, @"「%TEXTR("なかだし/ナカダシ")%%CNAME("精液")%でオナるのしゅごいぃ……_BH_　おっ_BH_　おおーっ_BH_」_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「は……_H_　ん……_H_　んんっ_H_」_W"
			CALL PRINT_STR,  "「んーっ_H_　ぅ_H_　うぅーっ_H_」_W"
			CALL PRINT_STR, @"「ねぇ……_H_　本当に、%TEXTR("見てる/眺めてる")%だけでイイの……？　んーっ_BH_」_W"
			CALL PRINT_STR, @"（コレ……_BH_　こっちが%TEXTR("切なく/寂しく")%なっちゃうわよぉ……_BH_）_W"
		CASE 1
			CALL PRINT_STR,  "「んーっ_H_　ふぅ、はぁ……_H_　んんっ_H_」_W"
			IF TALENT:MASTER:男性 || TALENT:MASTER:扶她
				CALL PRINT_STR, @"（ぁぅ……%CNAME("阴茎")%おっきくなってる……_BH_）_W"
				CALL PRINT_STR, @"（%CNAME("一人称")%の%CNAME("自慰")%見て%TEXTR("興奮してる/勃起てる")%んだぁ……_BH_）_W"
			ELSE
				CALL PRINT_STR, @"（ぁぅ……あの子の息、荒くなってる……_BH_）_W"
				CALL PRINT_STR, @"（%CNAME("一人称")%の%CNAME("自慰")%見て興奮してるんだぁ……_BH_）_W"
			ENDIF
	ENDSELECT

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
		CALL PRINT_STRW,  "「ん…………_／／／_」"
		PRINTFORMW とてもではないが手のひらに収まりきらない%CNAME("玲子")%の爆乳を持ち上げるように堪能していると、%CNAME("玲子")%の口からむず痒そうな声が漏れた。
		CALL PRINT_STRW,  "「温柔的……触ってくれるのね」"
		CALL PRINT_STRW,  "「その……重くない？　自己も、ちょっと大きいかな、とは思っているんだけど」"
		CALL PRINT_SELECT,  "素晴らしいと思う/これでも物足りない"
		CALL PRINT_STRW,  "「もう……_／／／_　なによそれ」"
		CALL PRINT_STRW,  "「ぁん……_BH_」"
		CALL PRINT_STRW,  "（やだ……_／／／_　いやらしい手つきなのに、すごい温柔的揉まれちゃってる……）"
		CALL PRINT_STRW,  "（乳頭……勃っちゃうわよ、こんなの……_BH_）"
		PRINTFORMW %CNAME("玲子")%は細く震える呼気を吐きながら胸から伝わる快楽を味わっている……
		RETURN 1
	ENDIF

	; 派生指令
	IF CHECK_COM("舔乳頭")
		IF INSERT("Ｖ挿入")
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「ぅ_BH_　ぉ_BH_　ぉぉ_BH_　ぅ_BH_　ぅぅー_BH_」"
					PRINTFORMW %CNAME("玲子")%は胸に吸い付く%CALLNAME:PLAYER%の頭を抱え込んで離さない……
					CALL PRINT_STRW,  "「ぉぉー……_BH_　ダメ、ダメよぉ_BH_　胸部ばっかり、胸部ばっかりぃ……っ_BH_」"
				CASE 1
					CALL PRINT_STRW,  "「ぅぅー_BH_　ぉおー_BH_　ぉぅんっ_BH_　おっ_BH_　おぉおーぁっ_BH_」"
					PRINTFORMW 乳頭を吸いなが膣の奥を責めると、%CNAME("玲子")%は声を荒げて快感を堪能している……
					CALL PRINT_STRW,  "（不行ぇ_BH_　这样不行ぇ_BH_）"
					CALL PRINT_STRW, @"（%TEXTR("性交/しぇっくしゅ/本番")%しながら胸部吸われると……_BH_　%TEXTR("妈妈/母親")%变成了気が、してぇ_BH_）"
					CALL PRINT_STRW,  "「ぅ_BH_　おおーっ_BH_　おー_BH_　おおー……_BH_」"
					IF TEQUIP:避孕套
						CALL PRINT_STRW, @"（ナマの%CNAME("阴茎")%……_BH_　欲しくなっちゃう……_BH_）"
					ELSE
						CALL PRINT_STRW,  "（赤酱……欲しくなっちゃう……っ_BH_）"
					ENDIF
			ENDSELECT

			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
			GOTO RYOKO_COM_LP1
		ENDIF

		IF TALENT:母乳体質
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「…………_BH_」"
					CALL PRINT_STRW,  "（もう……_BH_　そんなにがっついて……_BH_）"
					CALL PRINT_STRW, @"「慌てなくても……_BH_　%TEXTR("ミルク/胸部")%はたっぷりあるわよ……_BH_」"
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「ぁぅ_BH_　も、もう_BH_　そんな、%TEXTR("ペロペロしちゃ/吸っちゃ")%ダメェ_BH_」"
				IF TALENT:母乳体質
					IF BASE:育児中
						CALL PRINT_STRW, @"「%TEXTR("あの子/赤酱")%の%TEXTR("分/胸部")%無くなっちゃうからぁ……っ_BH_　ぁうんっ_BH_」"
					ELSE
						CALL PRINT_STRW,  "「胸部無くなっちゃう……_BH_　胸部萎んじゃうからぁっ_BH_　ううっ_BH_」"
					ENDIF
				ELSE
					IF TALENT:出産経験
						CALL PRINT_STRW,  "「そんなに吸われても……_BH_　いまは出ないわよぉっ_BH_　おおっ_BH_」"
					ELSE
						CALL PRINT_STRW,  "「まだ出ないっ_BH_　まだ胸部出ない、からぁっ_BH_　ぅーっ_BH_」"
					ENDIF
				ENDIF

			CASE 1
				CALL PRINT_STRW,  "「んっ_BH_　おっ_BH_　んぅ_BH_　んー……っ_BH_」"
				CALL PRINT_STRW,  "「そんなに……_BH_　胸部、ばっかりぃ……_BH_　ぁぅー_BH_」"
				CALL PRINT_STRW,  "「乳頭、伸びちゃう……_BH_　ぅ_BH_」"

			CASE 2
				CALL PRINT_STRW,  "「おっ_BH_　うっ_BH_　んぉ……_BH_　ぅー……_BH_」"
				CALL PRINT_STRW,  "「……乳頭、噛むの……止めて……_BH_」"
				CALL PRINT_STRW,  "「感じ過ぎちゃう、から……_BH_　おぅっ_BH_　うぅ_BH_　い、坏心眼ぅ……_BH_」"
		ENDSELECT

		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_COM_LP1
	ENDIF

	; 挿入中
	IF INSERT("Ｖ挿入")
		IF ABL:受虐属性 >= 3 && INSERT("Ｖ後背位")
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「おおぉ_BH_　ぉ_BH_　ぉぉー_BH_　おうぅ_BH_」"
					CALL PRINT_STRW,  "「もっとぉ_BH_　もっと揉んでぇ_BH_　もっと胸部おもちゃにしてぇ……_BH_」"
					CALL PRINT_STRW,  "「おおうっ_BH_　おっ_BH_　う_BH_　うぅ_BH_」"
				CASE 1
					CALL PRINT_STRW,  "「い、いやぁ_BH_　だめぇ_BH_」"
					CALL PRINT_STRW, @"「胸部いじめながら从后面将%TEXTR("パコパコ/ズコバコ")%しちゃだめぇ_BH_」"
					CALL PRINT_STRW,  "「い、痛っ_BH_　おっ_BH_　いたい、ぅ、ぁ_BH_　ぉっ_BH_　ううーっ_BH_」"
					CALL PRINT_STRW,  "「胸部わしづかみ_BH_　しながらっ_BH_　しきゅー_BH_　しきゅーに接吻しちゃ_BH_　らめぇ_BH_BH_BH_」"
					CALL PRINT_STRW,  "「～～～～_BH_BH_BH_　……ぉ_BH_　おぉー……_BH_」"
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「ぅっ_BH_　ぉっ_BH_　ひんっ_BH_」_W"
				PRINTFORMW 柔らかくもハリのある巨大な乳房を両手で弄びながら長く深いストロークで膣の締りを堪能していると、%CNAME("玲子")%の甜鳴き声が耳に届いた……
				CALL PRINT_STR, @"（うぅ_BH_　これ好き_BH_　好き_BH_　胸部揉まれながら温柔的%TEXTR("パコパコ/じゅぽじゅぽ")%されるの好きぃっ_BH_）_W"
				CALL PRINT_STR,  "「おっ_BH_　おー……_BH_　うー_BH_　おうっ_BH_」_W"
			CASE 1
				CALL PRINT_STR,  "「うう_BH_　だめぇ_BH_　胸部潰れちゃう_BH_　もっと温柔的してぇ_BH_　ううっ_BH_」_W"
				CALL PRINT_STR,  "「おっ_BH_ んう～_BH_ うう_BH_　いい、気持ちいい_BH_　気持ちいいよぉ_BH_」_W"
				CALL PRINT_STR, @"「もっとぉ_BH_　もっとして欲しいのぉ_BH_　もっと%CNAME("オマンコ")%%TEXTR("じゅぽじゅぽ/ぬっぽぬっぽ")%しながら胸部いじめてぇ……っ_BH_」_W"
				CALL PRINT_STR,  "「うっ_BH_　うーっ_BH_　うううーっ_BH_BH_BH_」_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「ん……ふ、ぅ……_H_」_W"
			CALL PRINT_STR, @"「胸部……%TEXTR("好きなの/気持ちいい")%？」_W"
			IF TALENT:MASTER:男性
				CALL PRINT_STR,  "（もぉ……_／／／_　これだから男って……）_W"
			ELSE
				CALL PRINT_STR,  "（もぉ……_／／／_　同じ女の子なのに……）_W"
			ENDIF

		CASE 1
			CALL PRINT_STR, @"「%TEXTR("ぁぅ/んぁ/んぅ")%……_H_　あんまり%TEXTR("先っぽ/乳頭")%ばっかり%TEXTR("いじめ/コリコリし")%ないでぇ……_H_」_W"
			CALL PRINT_STR,  "「乳頭……勃っちゃう……_／／／_」_W"
		CASE 2
			CALL PRINT_STR,  "「……_H_　……ん_H_」_W"
			CALL PRINT_STR, @"「もうちょっと……%TEXTR("乱暴にしても/随便くれても")%いいわよ……？_／／／_」_W"
		CASE 3
			CALL PRINT_STR,  "「おおきな胸部……好きなの？」_W"
			CALL PRINT_STR,  "「そう……_H_　じゃあ、楽しんでね……_H_」_W"
			CALL PRINT_STR,  "（もぉ……単純なんだから……_／／／_）_W"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
			CALL PRINT_STR,  "「～～～～～～_／／／_」_W"
			CALL PRINT_STR, @"（讨、讨厌_H_　%CNAME("一人称")%接吻了_H_　把初吻献给了这么年轻的孩子……_H_）_W"
		SIF TEQUIP:推倒
				CALL PRINT_STR,  "（而、而且……还是把人家推倒了接吻……_H_　这、这不是犯罪吗……？_／／／_）_W"
			CALL PRINT_STR,  "「嗯……_H_　啾……_H_　嗯……_／／／_」_W"
			CALL PRINT_STR,  "（但是但是、这、这也是任务、也没办法吧……嗯……_BH_）_W"
			CALL PRINT_STR,  "（…………不过不是讨厌的初吻……_BH_）"
		RETURN 1
	ENDIF

	;二回目以降
	;被逆推ているとき
	IF TEQUIP:推倒
		; 汎用
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「嗯_BH_　嗯……_BH_　啊_BH_　嗯唔_BH_　嗯～～_BH_BH_BH_」"
				PRINTFORMW %CNAME("玲子")%%TEXTR("热情的/自说自话的")%%TEXTR("贪图着嘴唇/重叠起了嘴唇")%、%TEXTR("舌頭互相缠绕/開始交换唾液")%……
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	;それ以外
	;テンダー接吻
	;IF CHECK_COM("テンダー接吻")
	;	PRINTFORMW
	;ENDIF
	;SIF LINECOUNT - MEMO_LINECOUNT
	;	RETURN 1

	;恋慕
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「嗯啾_BH_　嗯_BH_　嗯ー……_BH_　哈啊_BH_」"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 挿入中の接吻
	IF INSERT("挿入")
		IF INSERT("Ｖ挿入")
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「哦っ_BH_　嗯っ_BH_　嗯啾_BH_　唔っ_BH_　啊_BH_　嗯っ_BH_」_W"
					CALL PRINT_STR,  "「嗯啾_BH_　哈啊_BH_　嗯っ_BH_　嗯嗯嗯～～～～_BH_」_W"
					CALL PRINT_STR, @"（这个……%TEXTR("好舒服/好厉害")%……_BH_　一边%TEXTR("插入/做/欺负小穴")%一边%TEXTR("接吻/啾")%、舒服过頭了……_BH_）_W"
				CASE 1
					CALL PRINT_STR,  "（呜呜_BH_　这个太糟糕了……_BH_）_W"
					CALL PRINT_STR,  "「嗯啾_BH_　嗯っ_BH_　嗯嗯っ_BH_　啊唔_BH_　嗯っ_BH_　啊_BH_　　嗯っ_BH_　嗯っ_BH_　嗯唔_BH_」_W"
					CALL PRINT_STR, @"（小穴这么被欺负的话……脑子会開始融化的……_BH_）_W"
			ENDSELECT
		ENDIF
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「啊……_H_　嗯ー……_H_」_W"
			PRINTFORMW %CNAME("玲子")%性福的闭上眼睛，享受着%TEXTR("接吻/口口相交")%的感触……
		CASE 1
			CALL PRINT_STR,  "「讨厌……眼睛、闭起来……嗯_H_」_W"
			CALL PRINT_STR,  "「真是的……都说了讨厌……嗯嗯_H_　嗯啾_BH_」_W"
			CALL PRINT_STR,  "（一直这么在旁边看着的话……不是很羞耻吗……_BH_）_W"
			CALL PRINT_STR,  "「嗯っ_BH_　……真欺负人_／／／_」_W"
	ENDSELECT
ENDIF

;-------------------------------------------------
;阴部愛撫
;阴蒂の場合にはCHECK_COM("陰核愛撫"), 阴部の場合にはCHECK_COM("阴部愛撫"), 恥丘ならCHECK_COM("恥丘愛撫")がONになる
;-------------------------------------------------
IF SELECTCOM == 7
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
		RETURN 1
	ENDIF

	;二回目以降
	;中出し後にお掃除
	IF CHECK_COM("擦拭")
		;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
		RETURN 0
	ENDIF

	;恋慕
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「啊ー……_BH_　噫゛_BH_　哦哦ー……_BH_」"
				CALL PRINT_STRW,  "「啊嗯、这个……_BH_　好舒服……_BH_　喜欢……_BH_」"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 已中出み
	IF EXP_GAIN("膣内精液経験")
		IF COND("危険日")
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"「快点……_BH_　快点把%CNAME("精液")%弄出来……_BH_」_W"
					CALL PRINT_STR, @"「在%CNAME("危険日")%的%CNAME("オマンコ")%里面%CNAME("中出し")%的%CNAME("精液")%、都好好弄干净……_BH_」_W"
					CALL PRINT_STR,  "「不快点的话……_BH_　会、怀、怀孕的_BH_　会怀孕的_BH_　会生出小宝宝的_BH_」_W"
					CALL PRINT_STR,  "「……会怀上孩子的…………？_／／／_」_W"
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「哈ー……_BH_　哈ー……_BH_　唔ー_BH_　啊_BH_　唔っ_BH_」"
				PRINTFORMW %CNAME("玲子")%用筋疲力尽的姿势享受着摆弄阴道口%CALLNAME:PLAYER%的手指……
				PRINTFORMW 发出黏稠的水声、之前注入进%CNAME("玲子")%小穴的%TEXTR("精液/白浊液体")%从里面流了出来……
				CALL PRINT_STRW, @"「好厉害……%TEXTR("一直/不间断的/不停的")%在出来……_BH_」"
				CALL PRINT_STRW, @"（%CNAME("一人称")%、被%TEXTR("射了/中出/注射")%了这么多啊……_BH_）"
			CASE 1
				CALL PRINT_STRW,  "「呜呜……_BH_　不行……_BH_　不行的……_BH_　哦ー_BH_」"
				PRINTFORMW %CNAME("玲子")%一边说着拒绝的话，一边想要推開%CALLNAME:PLAYER%的手，但是不知道是不是使不上劲，根本反抗不了。……
				CALL PRINT_STRW, @"「不行……_BH_　都说了不行_BH_　%CNAME("オマンコ")%的入口不能这么%TEXTR("欺负/玩弄/摩擦")%……_BH_」"
				CALL PRINT_STRW, @"「不行……_BH_　会想要更多的……_BH_　所以%TEXTR("不要在弄了/快点停下来")%_BH_　っ_BH_　唔噫ぃ_BH_　哦、哦ーっ_BH_」"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 没穿内褲、というか直触り
	IF CHECK_CLO("没穿内褲")
		SELECTCASE RAND:3
			CASE 0
				CALL PRINT_STRW,  "「啊呜……_H_　唔_H_　呜ー……_H_」"
				CALL PRINT_STRW, @"「好舒服……_H_　%CNAME("オマンコ")%一颤一颤的……_H_」"
			CASE 1
				CALL PRINT_STRW,  "「嗯っ_BH_　嗯啊_BH_　呜ー……_BH_」"
				CALL PRINT_STRW,  "「等一下……_BH_　不要这么欺负人……_BH_」"
				CALL PRINT_STRW, @"「不要玩%TEXTR("阴毛/淫毛")%……_BH_　%TEXTR("小豆豆/涨涨的那个")%%TEXTR("多碰一碰/多欺负欺负/多摸一摸")%嘛……_BH_」"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「呜……_H_　呜_H_」"
			IF TALENT:MASTER:男性
				CALL PRINT_STRW, @"（讨厌……_H_　%CNAME("私")%、被年轻的男孩子...，因为%CNAME("オマンコ")%%TEXTR("被碰触/被欺负/被疼爱")%%TEXTR("变舒服了起来/变湿了")%……_／／／_）"
			ELSE
				CALL PRINT_STRW, @"（讨厌……_H_　%CNAME("私")%、被年轻的女孩子...因为%CNAME("オマンコ")%%TEXTR("被碰触/被欺负/被疼爱")%%TEXTR("变舒服了起来/变湿了")%……_／／／_）"
			ENDIF
		CASE 1
			CALL PRINT_STRW,  "「呜_BH_　呜っ_BH_　唔_BH_　唔_BH_　呜っ呜っ唔_BH_　唔哦……_BH_」"
			CALL PRINT_STRW, @"「再、再多点、哦_BH_　%TEXTR("温柔/用力")%、一点、……_BH_」"
		CASE 2
			CALL PRINT_STRW,  "「…………_BH_　……_BH_　唔_BH_　哦ー……_BH_　唔っ_BH_」"
			CALL PRINT_STRW, @"（不、不行ぇ……讨厌……_BH_　颤、颤抖_BH_　%CNAME("オマンコ")%的颤抖停不下来……_BH_）"
			CALL PRINT_STRW, @"（被这样的、孩子、给……_BH_　%CNAME("オマンコ")%这样%TEXTR("被触碰/被欺负/被黏糊糊的欺负/被玩弄/被疼爱")%_BH_　%CNAME("オマンコ")%会变得%TEXTR("湿湿的/黏糊糊的")%……_BH_）"
	ENDSELECT

ENDIF

;-------------------------------------------------
;指挿入
;CHECK_COM("玩弄Ｇ点")とTEQUIP:振動棒で大きく分岐する
;-------------------------------------------------
IF SELECTCOM == 8
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;振動棒挿入中
		IF TEQUIP:振動棒
			PRINTFORMW
		;それ以外
		ELSE
			IF RYOKO_COND("処女")
				CALL PRINT_STRW,  "「啊……_BH_　嗯_BH_　唔_BH_　啊ー……_BH_」"
				PRINTFORMW \@ PALAM:Ｖ潤 > 2000 ? 蜜液滴落下来 # 变得湿湿的\@%CNAME("玲子")%的那里、用柔软的肉尝试压回侵入的%CALLNAME:PLAYER%的手指……
				CALL PRINT_STRW, @"（啊唔……_BH_　%CNAME("一人称")%的%CNAME("オマンコ")%真的被指插入了……_BH_）"
				CALL PRINT_STRW,  "「嗯_BH_　嗯嗯ー_BH_　哈啊_BH_　哦_BH_」"
				IF TALENT:MASTER:男性
					CALL PRINT_STRW,  "（和一个人自慰完全不一样……_BH_　在里面弯来弯去、又大、又热……_BH_　尽是在玩弄、一些奇怪的地方_BH_　啊、嗯_BH_）"
				ELSE
					CALL PRINT_STRW,  "（和一个人自慰完全不一样……_BH_　虽然手指很细、但很熟练、而且好热……_BH_　尽是在玩弄、一些奇怪的地方_BH_　啊、嗯_BH_）"
				ENDIF

				CALL PRINT_STRW,  "「唔ー…………_BH_BH_BH_」"
				PRINTFORMW 可能是因为还没满足，%CNAME("玲子")%用诉说着什么的眼神向上看着%CALLNAME:PLAYER%……
				CALL PRINT_STRW,  "「总感觉……好奇怪……_BH_」"
			ELSE
				CALL PRINT_STRW,  "「唔_BH_　嗯_BH_　啊ー_BH_　哦っ_BH_」"
				IF TALENT:MASTER:男性 || TALENT:MASTER:扶她
					CALL PRINT_STRW, @"（好厉害……还是%CNAME("阴茎")%的比较粗、虽然……_BH_）"
				ELSE
					CALL PRINT_STRW, @"（好厉害……还是%CNAME("假阳具")%的比较粗、虽然……_BH_）"
				ENDIF
				CALL PRINT_STRW,  "「唔ー_BH_　唔ー_BH_　哦ー……_BH_」"
				CALL PRINT_STRW,  "（比自己做……还要舒服……_BH_）"
				PRINTFORMW %CNAME("玲子")%耷拉着身体，在松弛的状态，诺诺地享受着%CALLNAME:PLAYER%的手指带来的快乐。……
				IF EXP_GAIN("膣内精液経験")
					CALL PRINT_STRW,  "「啊唔ー……_BH_　不要、一直_BH_　搅来搅去、不要、不行……っ_BH_」"
					CALL PRINT_STRW, @"「%CNAME("オマンコ")%的里面、_BH_　精液和穴汁_BH_　都混在一起了_BH_」"
					CALL PRINT_STRW,  "「哦っ_BH_　唔ー_BH_　啊ー_BH_」"
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF

	;二回目以降

	; 本番未経験
	IF RYOKO_COND("処女")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「唔_BH_　唔噫_BH_　哦っ_BH_　哦哦ー……_BH_」"
				CALL PRINT_STRW, @"（不要……_BH_　手指、插进%CNAME("オマンコ")%里面了……_BH_）"
				CALL PRINT_STRW, @"「跟%TEXTR("自己做/自己一个人做/自慰")%完全不一样……_BH_」"
				CALL PRINT_STRW,  "「哦っ_BH_　噢噢ー_BH_　呜ー_BH_　噫っ_BH_」"
			CASE 1
				CALL PRINT_STRW,  "「啊ー_BH_　哦_BH_　呜呜_BH_　不要_BH_　讨厌_BH_」"
				CALL PRINT_STRW, @"「不能发出这么%TEXTR("大的/下流/色情")%声音……っ_／／／_」"
				CALL PRINT_STRW,  "「呜、呜ーっ_BH_　啊_BH_　噫嗯_BH_　所、所以说_BH_　哦_BH_　噫_BH_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_COM_LP1
	ENDIF

	IF CHECK_COM("玩弄Ｇ点")
		; 已中出み
		IF EXP_GAIN("膣内精液経験")
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「呜呜_BH_　不行_BH_　不要_BH_」"
					CALL PRINT_STRW, @"「不要在这种地方ぃ……_BH_　涂上%CNAME("精液")%……っ_BH_」"
					CALL PRINT_STRW,  "「……呜っ_BH_　哦_BH_」"
				CASE 1
					CALL PRINT_STRW,  "「不行_BH_　那里不行_BH_　不要_BH_　不行的_BH_」"
					CALL PRINT_STRW, @"（被这样……っ_BH_　%TEXTR("温柔的/轻轻的")%涂上%CNAME("精液")%、……っ_BH_）"
					CALL PRINT_STRW, @"「%CNAME("精液")%会让人变得舒服这种事情……_BH_　%CNAME("オマンコ")%会自说自话记住的……っ_BH_」"
				CASE 2
					CALL PRINT_STRW, @"「不行……_BH_　都说了不行_BH_　不要在%CNAME("オマンコ")%里面把%CNAME("精液")%%TEXTR("涂来涂去/擦来擦去/搅来搅去")%的……_BH_　哦_BH_　哦ー……_BH_」"
					CALL PRINT_STRW, @"「呜呜_BH_　%CNAME("オマンコ")%会……记住%CNAME("精液")%的味道的……_BH_」"
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「不――行哟、那里_BH_　那里_BH_　%TEXTR("玩弄/碰触")%_BH_　是不行的_BH_」"
				CALL PRINT_STRW,  "「哦哦呜_BH_　呜っ_BH_　呜呜ー_BH_　哦っ_BH_」"
			CASE 1
				CALL PRINT_STRW,  "「哦_BH_　呜_BH_　哦哦_BH_　呜呜_BH_　呜_BH_」"
				CALL PRINT_STRW,  "（这孩子……_BH_　一直在欺负、舒服的地方……_BH_）"
				CALL PRINT_STRW,  "「呜ー_BH_　哦ー_BH_　哦ー……_BH_」"
				PRINTFORMW %CNAME("玲子")%在放松身体的同时露出%TEXTR("渴求更多的/渴求更多快乐的/欲求不满")%的表情看着%CALLNAME:PLAYER%……
			CASE 2
				CALL PRINT_STRW,  "「呜っ_BH_　唔っ_BH_　唔っ_BH_　呜っ_BH_　哦っ_BH_　哦啊ーっ_BH_BH_BH_　呜呜ーっ_BH_」"
				CALL PRINT_STRW, @"「%TEXTR("不行/不要")%_BH_　饶了我吧_BH_　要出来了_BH_　%CNAME("愛液")%%TEXTR("biubiu的/快要")%喷出来了_BH_」"
				CALL PRINT_STRW,  "「…………呜呜呜呜呜呜呜呜哦哦哦哦哦呜呜ーっ_BH_BH_BH_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_COM_LP1
	ENDIF

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「…………_BH_」"
			CALL PRINT_STRW, @"（讨厌……_BH_　%CNAME("一人称")%、变得舒服了起来……_BH_）"
			CALL PRINT_STRW, @"（舒服过頭了……_BH_　%CNAME("オマンコ")%都勒紧了……_BH_）"
			CALL PRINT_STRW,  "「呜_BH_　呜ー_BH_　哦_BH_」"
		CASE 1
			CALL PRINT_STRW,  "「呜ー_BH_　呜_BH_　哦っ_BH_　哦哦ーっ_BH_　噫嗯っ_BH_　呜ー_BH_　呜呜ーっ_BH_」"
			CALL PRINT_STRW, @"「好厉害……_BH_　舒服过頭了……_BH_　%CNAME("オマンコ")%%TEXTR("被欺负/被玩弄")%的好舒服……_BH_」"
			CALL PRINT_STRW, @"「比%TEXTR("自慰/自己做/自己玩弄")%要舒服好几倍、啊噫っ_BH_　哦_BH_　哦ーっ_BH_」"
	ENDSELECT

	;Gスポット刺激
	;IF CHECK_COM("玩弄Ｇ点")
	;	;恋慕
	;	IF TALENT:恋慕
	;		PRINTFORMW
	;	;気持ちいい
	;	ELSEIF CHECK("指挿入")
	;		PRINTFORMW
	;	;それ以外
	;	ELSE
	;		PRINTFORMW
	;	ENDIF
	;振動棒挿入中
	;ELSEIF TEQUIP:振動棒
	;	;恋慕
	;	IF TALENT:恋慕
	;		PRINTFORMW
	;	;気持ちいい
	;	ELSEIF CHECK("振動棒")
	;		PRINTFORMW
	;	;それ以外
	;	ELSE
	;		PRINTFORMW
	;	ENDIF
	;ENDIF

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1
ENDIF

;-------------------------------------------------
;舐肛　Ａ面部騎乗(被逆推ているとき)
;-------------------------------------------------
;舐肛
IF SELECTCOM == 9
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方手交
;-------------------------------------------------
IF SELECTCOM == 10
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方乳交
;-------------------------------------------------
IF SELECTCOM == 11
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		RETURN 1
	ENDIF

	;二回目以降
	PRINTFORMW

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
		CALL PRINT_STR,  "「想让我自己打開看看……真、真是的、是认真的吗？」_W"
		CALL PRINT_STR,  "（连、连这种事情都要做吗！？_／／／_）_W"
		CALL PRINT_STR,  "（确实，如果是视频的话，女人会自己打開的……也有说‘请插入’的……_BH_）_W"
		CALL PRINT_STR,  "「～～～～_／／／_」_W"
		CALL PRINT_STR, @"（害、害羞是不行的%CNAME("玲子")%……%CNAME("一人称")%在这孩子看来，可是个性经验丰富的转校生……）_W"
		CALL PRINT_STR,  "（在被怀疑之前做出不回应的话……_BH_）_W"
		PRINTFORM %CNAME("玲子")%在%CALLNAME:PLAYER%的眼前张開了双腿、
		SIF !CHECK_CLO("没穿内褲")
			PRINTFORM 越过%PANTIES(TARGET)%
		PRINTFORMW 用手指把那里撑了開来……

		CALL PRINT_STR,  "「怎、怎么了……？　这样就满足了吧……？_／／／_」_W"

		IF CHECK_CLO("Ｖ露出")
			PRINTFORM 眼前%CNAME("玲子")%的%TEXTS("阴部：視覚")%
			IF EXP_GAIN("膣内精液経験")
				; ナカダシ済み
				PRINTFORMW 吐出刚注入的精液，子宫的入口仿佛要吞噬更多的白浊……
			ELSEIF EXP_GAIN("Ｖ性交経験")
				; 挿入済み
				PRINTFORMW 仿佛舍不得刚才叼着的男根似的，吧嗒地张着嘴，浑身是淫荡的花蜜，却显出对雄性饥肠辘辘的肉褶蠢蠢欲动。……
			ELSEIF PALAM:Ｖ潤 < 1000
				PRINTFORMW 虽然散发着雌性的气息，却在用力彰显，认为今天的自己还很纯洁……
			ELSE
				PRINTFORMW 仿佛在诉说想要接受雄性的愤怒一般，微微颤抖着，渗出像水珠一样的蜜液……
			ENDIF
		ENDIF

		CALL PRINT_STR,  "「～～～～っ_BH_BH_BH_　还、还在看吗……？　就这么想看吗……？_／／／_」_W"

		IF EXP:Ｖ性交経験
			CALL PRINT_STR,  "（这么一直盯着看的话……_BH_　会暴露的……_BH_）_W"
			CALL PRINT_STR,  "（假装是经验丰富的轻浮女，其实是只插入过震动棒的业余处女会暴露的……っ_BH_）_W"
		ENDIF

		CALL PRINT_STR,  "（饶、饶了我吧……_BH_BH_BH_）_W"

		RETURN 1
	ENDIF

	;二回目以降

	; 已中出み
	IF EXP_GAIN("膣内精液経験")
		IF TALENT:恋慕
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「呼呼……_BH_　在好好看着吗？　这个、全是%CNAME("二人称")%的%CNAME("精液")%哦……_BH_」"
					CALL PRINT_STRW, @"「%CNAME("一人称")%的%CNAME("オマンコ")%、变%TEXTR("得黏黏糊糊的/成白色了")%……_BH_」"
			ENDSELECT
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
			GOTO RYOKO_COM_LP1
		ENDIF

		IF COND("危険日")
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「呜、啊_BH_　啊啊_BH_　呜呜_BH_」_W"
					PRINTFORM 用双手张開自己的阴道口的%CNAME("玲子")%，以不知是哭脸还是陶然的表情看着从肉欲蠢动的肉褶深处源源不断溢出的新鲜精液……
					CALL PRINT_STR, @"「从%CNAME("一人称", "どもり")%的%CNAME("オマンコ")%……_BH_　%CNAME("精液")%……这么多……_BH_」_W"
					CALL PRINT_STR,  "「讨厌……_BH_　不要……_BH_　会怀孕的……_BH_　受精卵、会着床的……_BH_」_W"
					CALL PRINT_STR,  "「啊……_BH_ 呜呜……_BH_　呜ー……_BH_」_W"
					PRINTFORMW %CNAME("玲子")%一边炫耀似的洒落阴道里的精液，一边用期待的眼神看着%CALLNAME:PLAYER%微微地摇动着腰……
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「喂……_BH_　就是想看这个的吧……？」_W"
				CALL PRINT_STR,  "「嗯……っ_BH_」_W"
				PRINTFORMW %CNAME("玲子")%屏住呼吸用力、从手指展開的%TEXTR("私处/肉壶")%里面刚%TEXTR("注入/灌注/榨取")%的%TEXTR("精液/精液/白浊")%咕嘟咕嘟地溢了出来……
				CALL PRINT_STR,  "（中出动画……一般最后、都是这样结束的……）_W"
				IF TALENT:MASTER:男性
					CALL PRINT_STR,  "（男人这种生物、真的是……_BH_）_W"
				ELSEIF TALENT:MASTER:扶她
					CALL PRINT_STR,  "（扶她、跟男孩子没什么区别嘛……_BH_）_W"
				ENDIF
				CALL PRINT_STR, @"「哈、啊……_BH_　被这样……%TEXTR("内射了/注入了")%……_BH_」_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 陰毛 随意生長
	IF COND("陰毛") >= 7
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「怎么了……？　能清楚的看到吗……？」_W"
				CALL PRINT_STR,  "「……真、真是的_／／／_　阴毛太碍事了……真麻烦_BH_BH_BH_」_W"
				CALL PRINT_STR,  "（虽、虽然不是觉得很浓……）_W"
		ENDSELECT
	ENDIF

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「真是的……_BH_　这样就可以了吗……？_／／／_」"
		IF TALENT:MASTER:男性
			CALL PRINT_STRW, @"（呜_BH_　呜呜_BH_　在被看着_BH_　%CNAME("一人称")%的%CNAME("オマンコ")%、就连深处都被男孩子看见了……_BH_）"
		ELSE
			CALL PRINT_STRW, @"（呜_BH_　呜呜_BH_　在被看着_BH_　%CNAME("一人称")%的%CNAME("オマンコ")%、就连深处都被女孩子看见了……_BH_）"
		ENDIF
		CASE 1
			CALL PRINT_STRW, @"「那个……不要这么%TEXTR("把脸凑过来/凑近了看")%……_BH_」"
			CALL PRINT_STRW,  "「这个很……害羞的……_／／／_」"
		CASE 2
			CALL PRINT_STRW,  "（……看到性器官会兴奋吗……？）"
			CALL PRINT_STRW,  "（但如果是相反的立场……也不是不知道……_／／／_）"
			CALL PRINT_STRW,  "「……好了、已经张開了_BH_　怎么样？　能看见深处吗？」"
			CALL PRINT_STRW,  "（这种程度的服务……还是能忍耐、吧……？_BH_）"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入
;-------------------------------------------------
IF SELECTCOM == 15
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋
;-------------------------------------------------
IF SELECTCOM == 30
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 31
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛用振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒")
			;Ｓ状結腸まで振動棒が侵入している
			IF CHECK_COM("結腸責め")
				IF TALENT:結腸性感
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飛機杯
;-------------------------------------------------
IF SELECTCOM == 37
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ｖ挿入系初選択
;  設定的に膜はないが処女(男性経験がない)
;  初回は無条件でナマになる
;-------------------------------------------------
IF SELECTCOM >= 60 && SELECTCOM <= 69 && FIRSTCOMS("Ｖ挿入") == 0
	IF TALENT:恋慕
	ELSE
		IF CONDS("体位") == "騎乗位"
			PRINTFORMW 躺在%NAMES("床")%上的%CALLNAME:PLAYER%上面%CNAME("玲子")%跨坐着，屹立着的%CALLNAME:PLAYER%的阴茎在那里颤动，其前端就是自己的蜜裂……
			SIF COND("陰毛") == 7
				PRINTFORM 两个人的结合部分被茂密的毛茸茸的%CNAME("玲子")%的阴毛给遮住了、
			PRINTFORMW 在插入前变得敏感的阴茎前端，感觉到滴落淫靡的蜜液的女人的入口。……
			CALL PRINT_STR,  "「哈……_BH_　啊……_BH_」_W"
			PRINTFORMW %CNAME("玲子")%在阴道口反复亲吻马眼，把溢出来的蜜液涂在阴茎上，使其更加润滑……
			CALL PRINT_STR,  "（肉棒……_BH_　这是真正的肉棒……_BH_）_W"
			CALL PRINT_STR,  "（好厉害……_BH_　好热……_BH_　一跳一跳的……_BH_）_W"
			CALL PRINT_STR, @"（%CNAME("一人称")%的小穴……要被插入的吧……_BH_BH_BH_）_W"
			CALL PRINT_STR,  "「嗯……っ_BH_　嗯嗯っ_BH_」_W"
			PRINTFORMW 终于下定决心的%CNAME("玲子")%的腰稍微下沉，然后上升。
			PRINTFORMW 一边发出抑制不住的甜美声音，%CNAME("玲子")%在阴道口開始像啄龟頭一样的浅浅的抽送。
			CALL PRINT_STR,  "「插进来了……_BH_　插进来了……_BH_」_W"
			CALL PRINT_STR,  "「肉棒……_BH_　肉棒插到里面来了……_BH_BH_BH_」_W"
			CALL PRINT_STR,  "（呜_BH_　慢慢的_BH_　在里面慢慢的、肉棒最粗的地方、要插进小穴了……っ_BH_）_W"
			CALL PRINT_STR,  "（跟、跟自慰完全不一样_BH_　是真正的肉棒_BH_　插进小穴里面了_BH_　又热又粗的插进来好舒服_BH_）_W"
			CALL PRINT_STR,  "「呜っ_BH_　呜呜ーっ_BH_　不要っ_BH_　好烫的っ_BH_　好大的っ_BH_」_W"
			PRINTFORMW 战战兢兢的抽送，慢慢的往里面抽送，结果不小心一下子就抽走了柔软的阻力，结果%CALLNAME:PLAYER%的阴茎直到根部都被%CNAME("玲子")%的肉壶吞没了。
			CALL PRINT_STR,  "「哦……っ_BH_　哦吼呜_BH_　哦ー……っ_BH_」_W"
			PRINTFORMW 好像感觉到了一样倒了下来的%CNAME("玲子")%闭上双眼，似乎在品尝侵入胎内的怒涛。
			CALL PRINT_STR,  "（插进……来了……_BH_）_W"
			CALL PRINT_STR,  "（肉棒……_BH_　全都进到里面了、根部都、插进来了……_BH_BH_BH_）_W"
			CALL PRINT_STR, @"（这样%CNAME("一人称")%也变成非处女了……_BH_　在这个年龄、被这么年轻的孩子的肉棒给破处了……_BH_）_W"
			CALL PRINT_STR,  "「呜ー……_BH_　呜ー……っ_BH_」_W"
			PRINTFORMW 忍住甜美喘声的%CNAME("玲子")%终于睁開眼睛坐起来，用纤细的手指怜爱似的划过自己的下腹部，那里是因为%CALLNAME:PLAYER%的肉棒而凸起来的线条。
			CALL PRINT_STR,  "「好厉害……好大……_BH_　都插到这里了……_BH_」_W"
			CALL PRINT_STR,  "「这个……好像要被烫伤一样、好热……_BH_」_W"
			CALL PRINT_STR,  "「这就是……真正的肉棒吗……_BH_BH_BH_」_W"
		ELSE
			PRINTFORM %CNAME("玲子")%的
			IF COND("陰毛") >= 5
				SIF COND("陰毛") == 7
					PRINT 蓬乱丛生的
				PRINTFORM 阴毛被分開
			ENDIF
			PRINTFORMW 把阴茎的前端放在蜜缝上，%CNAME("玲子")%的身体微微颤抖……
			CALL PRINT_STR,  "「啊……_H_H_H_」_W"
			CALL PRINT_STR,  "「呜、不。什么都没有。……来吧_／／／_」_W"
			CALL PRINT_STR, @"（%CNAME("私")%……终于要被插进来了……_H_）_W"
			CALL PRINT_STR, @"（不是震动棒而是真正的%CNAME("阴茎")%要进来了……_H_）_W"
			IF TALENT:MASTER:男性
				CALL PRINT_STR, @"（真的被这个男孩子给破处了……_／／／_）_W"
			ELSEIF TALENT:MASTER:扶她
				CALL PRINT_STR, @"（真的被这个扶她女孩子给破处了……_／／／_）_W"
			ENDIF
			CALL PRINT_STR,  "（虽然是任务……_H_　但不是什么讨厌的人真是太好了……_H_H_H_）_W"
			CALL PRINT_STR,  "「呜_H_　啊、呜_H_　呜呜……_H_」_W"
			PRINTFORMW 把腰沉下去，伴随着柔软的抵抗，阴茎被%CNAME("玲子")%的湿润肉壶吞噬……
			CALL PRINT_STR,  "「呜呜_H_　呜ー_H_　呜呜ー_H_／／／_」_W"
			PRINTFORMW %CNAME("玲子")%的阴道就像在焦急等待侵入的异物一样，迫不及待地接受并勒紧……
			CALL PRINT_STR,  "「插进来了……_H_／／／_H_」_W"
			CALL PRINT_STR,  "「真正的肉棒、一下子就插进来了……_H_H_H_」_W"
			PRINTFORMW 虽然受到了柔软的肉的抵抗，但还是让阴茎插入了深处，%CNAME("玲子")%一脸兴奋地看着两人的结合部分，感慨万分地喃喃自语……
		ENDIF
	ENDIF

	CALL SET_CEVENT, "初回：本番"
	CALL SET_CEVENT, "初回：Ｖ挿入"

	RETURN 1
;-------------------------------------------------
;調教ごとの初Ｖ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0

	; 恋慕
	IF TALENT:恋慕
		IF TEQUIP:PLAYER:避孕套
		ELSE
			IF COND("危険日")
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW,  "「等一下……不行哟……_BH_」"
						CALL PRINT_STRW, @"「今日は……%CNAME("危険日")%なんだから……_BH_」"
						CALL PRINT_STRW,  "「小宝宝……会做出来的……_BH_　所以说、求你了……？」"
						PRINTFORMW 虽然%CNAME("玲子")%是一边背过脸一边拒绝，但是眼睛里却充满了期待……
						CALL PRINT_STRW,  "「……呜_BH_　呜呜_BH_　哦゛啊っ_BH_」"
						PRINTFORMW 用淫荡的蜜线的肉壶入口爱抚着马眼，%CNAME("玲子")%的身体颤抖着……
						CALL PRINT_STRW,  "「…………っ_BH_　呜゛_BH_　呜呜ー……_／／／_　欺、欺负人……_BH_」"
						PRINTFORMW 从%CNAME("玲子")%的身体里面拔出硬硬的。
						PRINTFORMW %CNAME("玲子")%用手指打開那里、像是要吞入%CALLNAME:PLAYER%的肉棒一样抬起了腰……
						CALL PRINT_STRW,  "「真的……是不行的所以……啊呜嗯_BH_」"
						PRINTFORMW 一边品尝着舒适的弹力和甜蜜的触感，%CALLNAME:PLAYER%贯穿了%CNAME("玲子")%的淫唇……
				ENDSELECT
			ENDIF
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 危険日
	IF COND("危険日")
		; 避孕套ハメ
		IF TEQUIP:PLAYER:避孕套
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「呜っ_BH_　呼咕っ_BH_　哦っ_BH_　哦呜っ_BH_」_W"
					CALL PRINT_STR,  "（噫嗯っ_BH_　为什么っ_BH_　为什么比平时、嗯啊っ_BH_　比平时、还要、舒服……っ_BH_）_W"
					CALL PRINT_STR,  "「插、插进来……_BH_　再往里面、想要更多……っ_BH_」_W"
					CALL PRINT_STR,  "（呜、呜呜_BH_　呜呜_BH_　这个不行、不行、不行ぃ_BH_　小穴、呜呜嗯、子宫在发情_BH_）_W"
					CALL PRINT_STR, @"（……呜、知、知道了_BH_　%CNAME("一人称")%、真是个笨蛋_BH_　因为是%CNAME("危険日")%所以想要%CNAME("阴茎")%到受不了っ_BH_）_W"
					CALL PRINT_STR,  "「呜ー_BH_　哦ー_BH_　噫咕_BH_　哦哦ー_BH_」_W"
					CALL PRINT_STR, @"（不要ぁ_BH_　不要不要不要ぁ_BH_　套子%CNAME("阴茎")%不要_BH_　不够_BH_　好寂寞_BH_　%CNAME("子宮")%在欲求不满っ_BH_）_W"
					CALL PRINT_STR, @"「呜……动起来嘛……_BH_　快点%TEXTR("啪啪啪的/用力的")%动起来_BH_　让我沉迷在这个%CNAME("阴茎")%里面嘛_BH_」_W"
					CALL PRINT_STR, @"（如果不能的话……会变奇怪的_BH_　明明%CNAME("危険日")%_BH_　想要这孩子的%CNAME("精液")%_BH_　进入到%CNAME("子宮")%里面想要到頭都要变奇怪了_BH_）_W"
			ENDSELECT
		; ナマハメ
		ELSE
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"「不、不行……_BH_　今天%TEXTR("直接做/不带套做")%是不行的……_BH_　都说了是不行的……_BH_」_W"
					CALL PRINT_STR, @"「明明%CNAME("危険日")%_BH_　会怀_BH_　会怀上的_BH_　%TEXTR("直接做/不带套做")%的话_BH_　呜_BH_　哦呜_BH_」_W"
					PRINTFORMW %CNAME("玲子")%顽固地重复拒绝着，但是动作却和台词不一致。
					PRINTFORM 傲娇的
					SELECTCASE CONDS("体位")
						CASE "正常位", "屈曲位"
							PRINTFORMW %CNAME("玲子")%自己抬起腰把阴部往上抬、调整身体的位置，使%CALLNAME:PLAYER%的阴茎能够一直线到达子宫……
						CASE "後背位"
							PRINTFORMW %CNAME("玲子")%保持臀部朝向这边的匍匐姿势，通过裆下的手臂将%CALLNAME:PLAYER%的阴茎引向自己的阴道口，像浅浅的抽送一样前后摆动腰部。……
						CASE "対面座位", "背面座位"
							PRINTFORMW %CNAME("玲子")%用手压住屹立的%CALLNAME:PLAYER%的阴茎靠近自己的阴道口，从竿的根部到龟頭的前端，用沾满了蜜液的肉褶来吸附一样地侍奉着……
						CASE "騎乗位"
							PRINTFORMW %CNAME("玲子")%跨坐在%CALLNAME:PLAYER%的腰上大幅度地张開双腿，把自己的阴道口贴在%CALLNAME:PLAYER%的阴茎上，发出淫荡的水声，一遍又一遍重复着色情的吻……
					ENDSELECT
					CALL PRINT_STR, @"「不要……_BH_　不行……_BH_　因为是%CNAME("危険日")%……_BH_」_W"
					CALL PRINT_STR, @"「把%CNAME("子宮")%做为目标……如果被粘稠的热热的%CNAME("精液")%中出的话……_BH_」_W"
					CALL PRINT_STR,  "「小宝宝……会怀上的……_BH_　啊_BH_　啊っ_BH_　啊啊っ_BH_BH_BH_」_W"
					PRINTFORMW 稍微腰顶一顶，%CNAME("玲子")%可爱的抵抗也变得若有若无，装满了蜜液的肉壶藏不住喜悦的雀跃的包裹住了%CALLNAME:PLAYER%的阴茎……
					CALL PRINT_STR,  "「啊啊啊啊啊啊啊…………_BH_　笨蛋……_BH_　都说了不行……_BH_　明明是不行的……_BH_」_W"
					PRINTFORMW 一边说着%CNAME("玲子")%一边满脸笑容，带着快乐的快要流泪的表情開始自己扭动腰肢。……
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_COM_LP1
	ENDIF

	; 屈服刻印
	IF MARK:屈服刻印 >= 2
		; 体位ごと
		SELECTCASE CONDS("体位")
			CASE "正常位"
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW, "「…………_BH_」"
						PRINTFORMW %CNAME("玲子")%为了更好地欢迎%CALLNAME:PLAYER%的阴茎抬起了腰、自己张開了%TEXTR("秘唇/性器/阴道口")%……
				ENDSELECT
			CASE "後背位"
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW,  "「呜_BH_　呜呜_BH_」"
						PRINTFORMW 战战兢兢地摇动着腰，为了不放过请求雄性的屁股，紧紧地抓住了它，如愿以实地慢慢地塞进了阴道，%CNAME("玲子")%的嘴里发出了细微的悲鸣……
						CALL PRINT_STRW,  "（不要_BH_　这个不行_BH_　好厉害_BH_）"
						CALL PRINT_STRW, @"（被紧紧的抓住了_BH_　%CNAME("阴茎")%被塞了进去、有、有种向男孩子屈服的感觉……っ_BH_）"
						CALL PRINT_STRW, @"（……%CNAME("オマンコ")%、好难受_BH_　胸口有种闷闷的感觉_BH_）"
						CALL PRINT_STRW,  "「……哦っ_BH_　哦哦ー……_BH_」"
						PRINTFORMW 一边沾染着淫荡的花蜜一边轻戳%CNAME("玲子")%的最深处，%CNAME("玲子")%的柔肉就像等不及一样紧勒着%CALLNAME:PLAYER%的阴茎……
				ENDSELECT
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
	ENDIF

	; 体位ごと
	SELECTCASE CONDS("体位")
		CASE "正常位"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「呜_BH_　呜呜_BH_」"
					PRINTFORMW 淫唇的蜜液像要让龟頭染上味道一样地粘在龟頭上，张開大腿的%CNAME("玲子")%的嘴里发出了轻微的吐息声。
					CALL PRINT_STRW, @"「这……这样%TEXTR("让人着急/放置人家/使坏")%、可不行……_BH_」"
					CALL PRINT_STRW, @"「%TEXTR("一下子/快点/一口气")%插进来嘛、……哦哦っ_BH_」"
					PRINTFORMW 响应要求，一边挤開%CNAME("玲子")%的软肉一边钻进去，%CNAME("玲子")%迫不及待地用舒适的勒紧欢迎侵入胎内的异物……
			ENDSELECT
		CASE "後背位"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「真是的、又是从后面……_BH_」"
					CALL PRINT_STRW, @"「虽然不是讨厌……但看不到%CNAME("二人称")%的脸、只是稍微有点%TEXTR("寂寞/恐怖")%……_BH_」"
					CALL PRINT_STRW,  "「嗯……_BH_　哦……_BH_　哦哦ー……っ_BH_」"
				CASE 1
					CALL PRINT_STRW,  "（真是的……快点插进来啦……_BH_　插进深处嘛……_BH_）"
					CALL PRINT_STRW, @"（一直在玩弄%CNAME("オマンコ")%的入口……是想让人焦急吗……？_／／／_）"
					CALL PRINT_STRW,  "「喂……不要一直揉屁股、快点插进来嘛……_BH_」"
			ENDSELECT
		CASE "屈曲位"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「嗯……可以哦。快点插进来吧……_BH_」"
					CALL PRINT_STRW,  "「嗯……_BH_　呜呜_BH_」"
					CALL PRINT_STRW, @"（好厉害_BH_　可以看见%CNAME("オマンコ")%被%CNAME("阴茎")%插入……_BH_）"
			ENDSELECT
		CASE "対面座位"
		CASE "背面座位"
		CASE "騎乗位"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"「可以的吧……_BH_　%CNAME("阴茎")%、插进%CNAME("オマンコ")%里面……？_BH_」_W"
					CALL PRINT_STR,  "「嗯っ、啊っ_BH_　哦_BH_　哦哦ー……呜呜_BH_」_W"
					CALL PRINT_STR, @"（进来了、啊……_BH_　自、自己、跨坐在男孩子身上_BH_　打開大腿%CNAME("オマンコ")%把%CNAME("阴茎")%%TEXTR("吃掉了/吸进去了")%啊……_BH_）"
				CASE 1
					CALL PRINT_STR,  "「哦ー……_BH_ 哦哦ー……_BH_」_W"
					CALL PRINT_STR, @"（在被看着……_BH_　紧紧吸着%CNAME("阴茎")%的地方、%TEXTR("完全/清楚")%的被看到了……_BH_）_W"
			ENDSELECT
	ENDSELECT
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「诶诶、求你了嘛……_BH_　来吧……_BH_」_W"
			CALL PRINT_STR,  "「一口气到深处……没関系、可以插进来的……_BH_」"
		CASE 1
			CALL PRINT_STR,  "「啊……_BH_　插进来了……_BH_」_W"
			CALL PRINT_STR, @"（%CNAME("一人称")%又、和这孩子%TEXTR("做到最后/做/H")%了……_BH_）_W"
			CALL PRINT_STR,  "（跟这么年轻的孩子……_BH_　做H的事情……_BH_）_W"
		CASE 2
			CALL PRINT_STR,  "「真是的……不要欺负人嘛……」_W"
			CALL PRINT_STR, @"「插进来嘛……%CNAME("オマンコ")%，%CNAME("阴茎")%插进来……_BH_」_W"
			CALL PRINT_STR,  "（这是演戏……演习哦……）_W"
			CALL PRINT_STR,  "（因为是演戏……所以没関系的……_／／／_）_W"
			CALL PRINT_STR,  "「呐、快点……_BH_　快点啦……_BH_」_W"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

;-------------------------------------------------
;全Ｖ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	;IF TEQUIP:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2
	;	IF TALENT:恋慕
	;		PRINTFORMW
	;	ELSE
	;		PRINTFORMW
	;	ENDIF
	;ENDIF
	;SIF LINECOUNT - MEMO_LINECOUNT
	;	RETURN 1

	;喜欢的体位
	;IF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
	;	IF TALENT:恋慕
	;		PRINTFORMW
	;	ELSE
	;		PRINTFORMW
	;	ENDIF
	;ENDIF
	;SIF LINECOUNT - MEMO_LINECOUNT
	;	RETURN 1

	; イキ過ぎて泣き言
	IF EXP_GAIN("絶頂経験") > 5 + (EXP:Ｈ回数 / 4)
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「哦呜っ_BH_　诶、啊、步、步咬、还要作吗……？」_W"
				CALL PRINT_STR, @"「已、已经步形了……_BH_　%CNAME("オマンコ")%不相再区了……っ_BH_　呜っ_BH_」_W"
				CALL PRINT_STR,  "「哦っ_BH_　哦哦ーっ_BH_　哦哦ーっ_BH_BH_BH_」_W"
			CASE 1
				CALL PRINT_STR,  "「步、步咬……_BH_　绕了吾吧……_BH_」_W"
				CALL PRINT_STR, @"「已经步咬了……_BH_　%CNAME("オマンコ")%会怀掉的……_BH_」_W"
				CALL PRINT_STR,  "「啊……_BH_　不要不要不要_BH_　不要っ_BH_BH_BH_　呜呜ーっ_BHH_」_W"
		ENDSELECT
	ENDIF

	; 已中出みで生挿入
	IF EXP_GAIN("膣内精液経験") && !TEQUIP:PLAYER:避孕套
		IF TALENT:恋慕
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「啊゛呜゛っ_BH_　……真是的_BH_」"
					CALL PRINT_STRW,  "「不要一声不吭的直接插进去……就算是不带套我也不会拒绝的、好吗？_BH_」"
					CALL PRINT_STRW,  "「嗯っ_BH_　……啊_BH_　在往深处……全部插进来……_BH_」"
				CASE 1
					CALL PRINT_STRW,  "「哈啊゛……_BH_　嗯゛っ_BH_」"
					CALL PRINT_STRW,  "「不要漏出来了……_BH_　要好好的塞好……_BH_」"
			ENDSELECT
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
			GOTO RYOKO_COM_LP1
		ENDIF

		; 汎用
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「喂゛_BH_　为什么又%TEXTR("不带套/要直接插进来")%゛っ_BH_」"
				CALL PRINT_STRW, @"「～～～～っ_／／／_　虽、虽然就算现在说了%TEXTR("不行/不可以/不能")%、也不会听_BH_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
	ENDIF

	; 体位ごと
	SELECTCASE CONDS("体位")
		CASE "正常位"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「…………_BH_」"
					PRINTFORMW 把阴茎的前端放在肉壶前面，%CNAME("玲子")%自己抬起腰来，做出迎接%CALLNAME:PLAYER%分身的姿势。
					CALL PRINT_STRW,  "「哦_BH_　呜_BH_　～～～～_BH_」"
					PRINTFORMW 为了回应盛情的款待把腰顶了进去，%CNAME("玲子")%的阴道像舔舐%CALLNAME:PLAYER%的阴茎一样地勒紧着……
			ENDSELECT
		CASE "後背位"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「啊呜_BH_　哦っ_BH_　哦呜呜っ_BH_」_W"
					PRINTFORMW 抓着不太能握住的%TEXTR("大屁股/巨尻")%%TEXTR("一压进/一侵入")%%CNAME("玲子")%的%TEXTR("阴道内/胎内/肉壶")%%CNAME("玲子")%突然抬起屁股回应了。
					CALL PRINT_STR, @"（被侵犯了……_BH_　在被侵犯着……_BH_）_W"
					CALL PRINT_STR,  "「呜呜_BH_　哦_BH_　哦呜_BH_」_W"
					PRINTFORMW 插进根部的话，喘着细小的喘息声的%CNAME("玲子")%的肉褶一边细微的颤抖一边勒紧……
			ENDSELECT
		CASE "屈曲位"
			SELECTCASE CONDS("陰毛")
				CASE "随意生長"
					SELECTCASE RAND:5
						CASE 0
							CALL PRINT_STRW,  "「呜_BH_　啊_BH_　呜ー……_BH_」"
							CALL PRINT_STRW, @"（插进来_BH_　要插进来了_BH_　进到%CNAME("一人称")%%TEXTR("湿湿的/发情")%%CNAME("オマンコ")%_BH_　%CNAME("阴茎")%_BH_　分開%CNAME("陰毛")%插进来了……_BH_）"
							CALL PRINT_STRW,  "「呜ー……_BH_　不要一下子就进……_BH_　到深处、啊……っ_BH_」"
					ENDSELECT
				CASE "白虎", "脱毛処理", "光滑无毛"
					SELECTCASE RAND:5
						CASE 0
							CALL PRINT_STRW,  "「呜_BH_　呜呜_BH_　哦……吼……_BH_」"
							CALL PRINT_STRW, @"（%TEXTR("讨厌/真是的")%……_BH_　全都被看到了……_BH_）"
							CALL PRINT_STRW, @"（%TEXTR("光滑的/滑滑的")%%CNAME("オマンコ")%把%TEXTR("硬硬的/元气满满的")%%CNAME("阴茎")%、%TEXTR("吃掉了/吞进去了")%……_BH_）"
					ENDSELECT
				SIF LINECOUNT - MEMO_LINECOUNT
					RETURN 1
			ENDSELECT

			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「っ_BH_　哦_BH_　哦哦ーっ_BH_　哦ー……_BH_　哦呜ー……_BH_」"
					CALL PRINT_STRW, @"（一口气……就进来了……_BH_　%TEXTR("一下子/直接")%%CNAME("阴茎")%连根部都%TEXTR("插进来了/进来了")%……_BH_）"
					CALL PRINT_STRW,  "（连子宫……_BH_　都、被亲吻了……_BH_）"
			ENDSELECT
		CASE "対面座位"
		CASE "背面座位"
		CASE "騎乗位"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「哦呜_BH_　呜、呜ー……_BH_」"
					CALL PRINT_STRW,  "「前端_BH_　进来了……_BH_」"
					CALL PRINT_STRW, @"（%CNAME("阴茎")%最%TEXTR("粗的/大的")%地方_BH_　%CNAME("オマンコ")%_BH_　一下子就被插进来了_BH_）"
					CALL PRINT_STRW,  "「呜呜呜_BH_　哦哦_BH_　哦ー……_BH_」"
					CALL PRINT_STRW,  "「太大了……_BH_　热热的、硬硬的、一跳一跳的……_BH_」"
					CALL PRINT_STRW,  "「这样的……_BH_　是进不来的……_BH_」"
					CALL PRINT_STRW,  "「…………哦哦ー_BH_」"
					PRINTFORMW %CNAME("玲子")%は一边吐着沁入鼻腔的甜美气息，一边沉下了腰、%CALLNAME:PLAYER%的肉棒%TEXTR("顺畅的/顺滑的/顺利的")%被%TEXTR("柔软/湿润")%的%TEXTR("蜜壶/肉壶")%给吞掉了……
			ENDSELECT
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
	ENDSELECT

	;それ以外
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「哦っ_BH_　哦呜っ_BH_」_W"
			CALL PRINT_STR, @"「%CNAME("阴茎")%……插进来了……_BH_」_W"
		CASE 1
			CALL PRINT_STR,  "「进来了っ_BH_　进来了っ_BH_　进来了っ_BH_　进到深处了っ_BH_」_W"
			CALL PRINT_STR,  @"「%CNAME("阴茎")%、插进%CNAME("オマンコ")%的深处了……_BH_」_W"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

;-------------------------------------------------
;二穴挿入(書く場合には;を消してください)
;-------------------------------------------------
;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
		CALL PRINT_STR,  "「～～～～_BH_BH_BH_」_W"
		PRINTFORMW 被%CALLNAME:PLAYER%压住了的%CNAME("玲子")%每次被腰暴力击打的时候部就一边摇晃那柔软的胸一边发出纤弱的娇叫声……
		CALL PRINT_STR,  "（好腻害_BH_　肉棒好腻害_BH_）_W"
		CALL PRINT_STR,  "（撞来撞去_BH_　撞来撞去的_BH_　小穴变得好舒服_BH_）_W"
		PRINTFORMW 不经意间%CNAME("玲子")%纤细的手指碰到了%CALLNAME:PLAYER%的脸颊。
		CALL PRINT_STR,  "「呐……_BH_　多让我……看看、脸……哦っ_BH_」_W"
		CALL PRINT_STR,  "「呜っ_BH_　哦っ_BH_　多、多_BH_　多让我看一下脸、哦哦っ_BH_　ぅーっ_BH_　让我看着脸做嘛……っ_BH_　哦ーっ_BH_」_W"
		PRINTFORMW 看着因为请求被响应而留下快乐的唾液的%CNAME("玲子")%的脸摆动腰部，%CNAME("玲子")%的阴道压力就像愉悦一样变得更紧了……
		CALL PRINT_STR,  "「呜ー_BH_　呜ーっ_BH_　不_BH_　不要_BH_　不要看着我这张露出奇怪表情的脸、哦ー_BH_ 哦哦ーっ_BH_」_W"
		CALL PRINT_STR,  "（让我、看着脸っ_BH_　但是不要看着我的脸っ_BH_）_W"
		IF TALENT:MASTER:男性
			CALL PRINT_STR, @"（呜呜呜ーっ_BH_　%CNAME("一人称")%在被做H的事情_BH_　被这个男孩子在做H的事情_BH_）_W"
		ELSE
			CALL PRINT_STR, @"（呜呜呜ーっ_BH_　%CNAME("一人称")%在被做H的事情_BH_　被这个女孩子在做H的事情_BH_）_W"
		ENDIF
		CALL PRINT_STR,  "（明明连恋人都不是_BH_　这是为了任务っ_BH_　这是为了任务才做的っ_BH_）_W"
		CALL PRINT_STR,  "（对不起っ_BH_　对不起っ_BH_　说谎了_BH_　跟这种大龄女性做什么的_BH_　真的很对不起っ_BH_）_W"
		CALL PRINT_STR,  "「哦哦ー……_BH_　哦ー_BH_」_W"
		PRINTFORMW %CNAME("玲子")%为了不放过%CALLNAME:PLAYER%而勾着腿，一边积极地帮助%CALLNAME:PLAYER%的活塞一边贪图着快乐……
		RETURN 1
	ENDIF

	; 素股誤挿入中
	IF CEVENT("調教：素股誤挿入")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「嗯っ_BH_　呜っ_BH_　哦っ_BH_　嗯唔～～っ_BH_」"
				CALL PRINT_STRW,  "（不行……明明是不行的……_BH_）"
				CALL PRINT_STRW, @"（%CNAME("阴茎")%、好舒服……_BH_）"
			CASE 1
				CALL PRINT_STRW,  "（呜_BH_　呜呜呜_BH_　好舒服_BH_　好舒服_BH_）"
				CALL PRINT_STRW, @"（%CNAME("阴茎")%_BH_　%CNAME("阴茎")%一直在%CNAME("オマンコ")%舒服的地方%TEXTR("触碰着/亲吻着")%……_BH_）"
				CALL PRINT_STRW,  "「～～～～_BH_BH_BH_」"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	;二回目以降
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "（这样子……互相看着做……）_W"
			CALL PRINT_STR,  "（好……羞耻……_／／／_）_W"
			CALL PRINT_STR,  "「呜っ_BH_　呜呜ーっ_BH_　哦ーっ_BH_」_W"
			CALL PRINT_STR, @"（%TEXTR("讨厌/不要")%_BH_　奇怪的声音要出来了……っ_BH_BH_BH_）_W"
		CASE 1
			CALL PRINT_STR,  "「呜っ_BH_　呜呜っ_BH_　不、不要ぁ_BH_　看着っ_BH_　不要看着这张脸っ_BH_」_W"
			CALL PRINT_STR,  "「～～～～っ_BH_　哦ーっ_BH_　哦哦っ_BH_　哦っ_BH_　哦ーっ_BH_　哦哦ーっ_BH_」_W"
			PRINTFORMW %TEXTR("腰被击打着的/被发情的男人贪恋着肉壶的")%%CNAME("玲子")%一边流着唾液一边发出动物般的娇声……
		CASE 2
			CALL PRINT_STR, @"（啊啊_BH_　%CNAME("一人称")%在做爱_BH_　在被发泄性欲_BH_）_W"
		IF TALENT:MASTER:男性
			CALL PRINT_STR,  "（这么年轻的男孩子摇动着腰……在被当成性交的对象……_BH_）_W"
		ELSE
			CALL PRINT_STR,  "（这么年轻的扶她少女摇动着腰……在被当成性交的对象……_BH_）_W"
		ENDIF
			CALL PRINT_STR,  "「呜っ_BH_　哦っ_BH_　哦哦っ_BH_」_W"
			CALL PRINT_STR,  "（虽然是任务……虽然是任务……っ_BH_）_W"
			CALL PRINT_STR, @"（%TEXTR("做爱/性交")%、好舒服……っ_BH_BH_BH_）_W"
		CASE 3
			CALL PRINT_STRW,  "「哦ー……_BH_　哦_BH_　哦哦っ_BH_　呜ー……_BH_」"
			PRINTFORMW %CALLNAME:PLAYER%每次击腰，%CNAME("玲子")%丰满的胸部就像柔软的波浪一样颤抖着……
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

ENDIF

;-------------------------------------------------
;後背位
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			CALL PRINT_STR,  "「哦っ_BH_　哦っ_BH_　哦っ_BH_　哦っ_BH_　哦っ_BH_」_W"
			PRINTFORMW 每次%CALLNAME:PLAYER%用腰击打着%CNAME("玲子")%丰满的屁股时、%CNAME("玲子")%就会发出下流的喘声。
			CALL PRINT_STR,  "（这、这个不行_BH_　这、这样_BH_　哦呜っ_BH_　这样子、小穴从背后被这样粗暴的对待っ_BH_）_W"
			CALL PRINT_STR,  "「哦哦ーっ_BH_　哦っ_BH_　呜ーっ_BH_」_W"
			CALL PRINT_STR,  "（这样不是、不是_BH_　这样根本不是做爱、根本不是性交_BH_　这、这是在交尾_BH_　只是在交尾_BH_）_W"
			PRINTFORMW %CNAME("玲子")%的阴道突然收紧，渗出的爱液量增加。
			CALL PRINT_STR,  "（交尾_BH_　交尾_BH_　不行_BH_　交尾是不行的_BH_）_W"
			CALL PRINT_STR,  "（做爱_BH_　想做爱_BH_　不想要交尾_BH_　交尾_BH_　交尾_BH_）_W"
			CALL PRINT_STR,  "「哦哦っ_BH_BH_BH_　哦っ_BH_　哦ーっ_BH_　呜噫っ_BH_　哦っ_BH_　哦哦っ_BH_」_W"
			CALL PRINT_STR,  "「交尾_BH_　哦っ_BH_　交尾性爱、好腻害っ_BH_　太腻害了っ_BH_」_W"
			PRINTFORMW 勒紧阴茎的阴道的动作就像追求雄性精液的蠢动，%CALLNAME:PLAYER%踩下了指向射精的油門。
		ENDIF
	ENDIF

	; 二回目以降

	; 屈服
	IF MARK:屈服刻印 >= 3
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「哦っ_BH_　呜_BH_　哦哦_BH_　哦ーっ_BH_　呜呜_BH_」"
				PRINTFORMW %CNAME("玲子")%为了%TEXTR("巨尻/被抓着的屁股")%更容易被抽送高高的抬了起来、接受着%CALLNAME:PLAYER%的活塞运动……
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「哦哦ーっ_BH_　哦っ_BH_　哦呜っ_BH_　呜呜っ_BH_　呜ーっ_BH_」"
			CALL PRINT_STRW,  "（这个好腻害、好腻害_BH_　交尾性交好腻害_BH_）"
			CALL PRINT_STRW,  "「肉棒好腻害……っ_BH_　脑子要变成⑨了_BH_」"
		CASE 1
			CALL PRINT_STRW,  "「呜ー_BH_　不要っ_BH_　交尾性交不行っ_BH_」"
			CALL PRINT_STRW, @"「%CNAME("オマンコ")%自说自话的缠住了%CNAME("阴茎")%_BH_　呜咕_BH_」"
			CALL PRINT_STRW,  "「呜っ_BH_　呜っ_BH_　呜っ_BH_　呜っ_BH_　呜っ_BH_」"
			CALL PRINT_STRW,  "「好舒服、舒服过頭了……要对交尾性交上瘾了……っ_BH_」"
		CASE 2
			CALL PRINT_STRW,  "「呜呜呜呜呜呜呜呜呜呜呜呜呜っ_BH_」"
			CALL PRINT_STRW,  "（好腻害_BH_　好腻害这个_BH_）"
			CALL PRINT_STRW,  "「好舒乎_BH_　哦っ_BH_　呜_BH_　哦吼゛」"

	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

ENDIF

;-------------------------------------------------
;屈曲位
;-------------------------------------------------
IF SELECTCOM == 62
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STR,  "「哦っ_BH_　哦っ_BH_　哦哦哦っ_BH_　哦っ_BH_　哦ーっ_BH_」_W"
		CALL PRINT_STR,  "（不行_BH_　这个真的不行っ_BH_　太糟糕了太糟糕了っ_BH_）_W"
		CALL PRINT_STR,  "「进来了_BH_　肉棒在小穴里面撞来撞去_BH_」_W"
		CALL PRINT_STR,  "「呜、呜呜ー_BH_　好腻害っ_BH_　被看到了、全都被看到了っ_BH_　肉棒的活塞运动全都被看到了っ_BH_」_W"
		IF COND("陰毛") == 7
			CALL PRINT_STR, @"「%CNAME("一人称")%的森林茂密的小穴_BH_　被元气满满的肉棒_BH_　肉棒_BH_　粗暴的插来插去_BH_　这样的活塞运动全部都可以看见_BH_BH_BH_」_W"
		ELSEIF COND("陰毛") >= 4
			CALL PRINT_STR, @"「不要っ_BH_　饶了我把っ_BH_　肉棒不能这样插来插去っ_BH_　不能这么欺负小穴っ_BH_」_W"
		ELSE
			CALL PRINT_STR, @"「%CNAME("一人称")%的光滑小穴_BH_　在吸着肉棒_BH_　不让肉棒逃走紧紧吸着っ_BH_」"
		ENDIF
		CALL PRINT_STR,  "「哦_BH_　哦哦ーっ_BH_　好深、太深了……っ_BH_　哦ー_BH_　哦ー_BH_」_W"
		CALL PRINT_STR,  "「呜、呜呜ー_BH_　系欢……这个系欢……_BH_　小穴一直在被做活塞运动_BH_　活塞好喜欢_BH_」_W"
		CALL PRINT_STR,  "「哦、哦哦ー_BH_　哦_BH_　哦呜っ_BH_　呜呜呜ー_BH_」_W"
		RETURN 1
	ENDIF

	;二回目以降
	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「呜ー_BH_　好腻害_BH_　太腻害了_BH_」_W"
			CALL PRINT_STR, @"「%CNAME("阴茎")%一直在插来插去的_BH_　活塞运动全都被看见了っ_BH_」_W"
			CALL PRINT_STR, @"「%CNAME("一人称")%的%CNAME("オマンコ")%開心到流口水了っ_BH_」_W"
		CASE 1
			CALL PRINT_STR, @"（呜呜_BH_　%TEXTR("好厉害/好腻害")%、腻害过頭了……_BH_）_W"
			CALL PRINT_STR, @"（%CNAME("一人称")%的%CNAME("オマンコ")%、%TEXTR("在高兴的/在用力的")%吸着%CNAME("阴茎")%_BH_）_W"
			CALL PRINT_STR,  "「哦ー_BH_　哦っ_BH_　哦っ_BH_　哦哦ーっ_BH_」_W"
			CALL PRINT_STR, @"（%CNAME("阴茎")%连根部都在%TEXTR("做活塞运动/插进来")%……_BH_）_W"
		CASE 2
			CALL PRINT_STRW,  "「哦哦_BH_　哦゛ーっ_BH_　啊゛っ_BH_　噫っ_BH_」"
			CALL PRINT_STRW, @"（好深_BH_　%CNAME("阴茎")%进来的太深了_BH_　%CNAME("オマンコ")%的深处都被侵犯了……っ_BH_）"
			CALL PRINT_STRW,  "「好、好舒服゛－っ_BH_　啊゛～_BH_　呜っ_BH_　呜゛呜゛～～_BH_」"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

ENDIF

;-------------------------------------------------
;対面座位
;-------------------------------------------------
IF SELECTCOM == 63
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STR,  "「哦……哦哦……_BH_　呜ー……_BH_」_W"
		PRINTFORMW %CNAME("玲子")%抱住了%CALLNAME:PLAYER%把身体压了上去、细细品味着体内的异物……
		CALL PRINT_STR,  "「呜呜ー……_BH_　哦ー……_BH_　好大……_BH_」_W"
		PRINTFORMW 可能是坐姿不好，%CNAME("玲子")%动了动。压在身上的柔软而凶恶的胸部，以及被抓住的臀部也在不停地摇晃……
		CALL PRINT_STR,  "「呜_BH_　哦_BH_」_W"
		PRINTFORMW 突然体内的异物突然又往里面进去了一点、%CNAME("玲子")%吐出了长长的甜美叫声……
		CALL PRINT_STR,  "（这个……有点喜欢……_BH_）_W"
		CALL PRINT_STR,  "（也不用看到奇怪的表情……尽管如此，还能这样拥抱……_BH_）_W"
		CALL PRINT_STR,  "（…………还能进到最深的地方……_BH_BH_BH_）_W"
		CALL PRINT_STR,  "「那个……_BH_　再保持这样一会……好吗？」_W"
		CALL PRINT_STR,  "「是吗、谢谢……_BH_　……嗯呜_／／／_」_W"
		CALL PRINT_STR,  "「啊嗯……_BH_　真是的、又……_BH_　这样动是不行的……嗯っ_BH_」_W"
		PRINTFORMW 明明微微扭着腰的是%CNAME("玲子")%本人，但是好像没有注意到……
		PRINTFORMW 代替回答，用力抓住屁股上的肉，%CNAME("玲子")%发出甜蜜的惨叫之后，像抗议一样摇晃着身体，開始享受缓慢的抽送。……
		RETURN 1
	ENDIF

	;二回目以降
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「嗯_BH_　呜_BH_　呜呜_BH_　哦っ_BH_　哦哦っ_BH_」"
			PRINTFORMW %CNAME("玲子")%抱着%CALLNAME:PLAYER%连在一起，像品尝似的自己上下摇晃着腰……
			PRINTFORMW 抓住噗噗地摇晃的屁股肉，%CNAME("玲子")%发出甜蜜的悲鸣。
			CALL PRINT_STRW,  "「嗯ー！！_BH_　っ噫_BH_　哦哦哦ー、哦ー……っ_BH_」"
			CALL PRINT_STRW,  "（屁股好痛……喜欢……_BH_）"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

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
		RETURN 1
	ENDIF

	;二回目以降

	; 素股誤挿入
	IF CEVENT("調教：素股誤挿入")
		SELECTCASE RAND:3
			CASE 0
				CALL PRINT_STRW,  "「呜_BH_　呜_BH_　哦_BH_　呜_BH_　呜呜っ_BH_　呼咕_BH_」"
				CALL PRINT_STRW, @"（不行_BH_　这是不行的_BH_　%CNAME("阴茎")%明明是不能的_BH_）"
				CALL PRINT_STRW,  "「呜ー_BH_　呜ー_BH_　呜呜_BH_　哦ー_BH_　哦っ_BH_」"
				CALL PRINT_STRW, @"（%CNAME("阴茎")%……_BH_　太舒服了、停不下来……_BH_）"
			CASE 1
				CALL PRINT_STRW, @"（呜_BH_　不对_BH_　不是的_BH_　不是的%CNAME("玲子")%……_BH_）"
				CALL PRINT_STRW,  "「哦ー……_BH_　哦呜……_BH_　呼唔、呼呜_BH_　呜ー……_BH_」"
				CALL PRINT_STRW, @"（这个是%TEXTR("任务/事故")%……_BH_　所以说是没有办法的事情……_BH_）"
				CALL PRINT_STRW,  "「哦っ_BH_　哦ー……_BH_」"
				CALL PRINT_STRW, @"「%TEXTR("好舒服/舒服过頭了")%……_BH_BH_BH_」"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	IF ABL:露出癖 >= 3
		SELECTCASE CONDS("陰毛")
			CASE "随意生長"
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW,  "「呜_BH_　哦_BH_　哦っ_BH_　呼呜_BH_　呜っ_BH_」"
						PRINTFORMW 跨在%CALLNAME:PLAYER%腰上的%CNAME("玲子")%为了显示两人的结合部，以张開双腿的姿势有节奏地摆动着腰部……
						CALL PRINT_STRW,  "（呜呜_BH_　在被看着_BH_　在被盯着看……_BH_）"
						CALL PRINT_STRW, @"（%CNAME("陰毛")%%TEXTR("茂密/茂盛")%的%TEXTR("发情/湿润")%%CNAME("オマンコ")%_BH_　在吸着%TEXTR("元气满满/硬硬的")%的%CNAME("阴茎")%_BH_　在被看着_BH_）"
						CALL PRINT_STRW, @"「真、真是的……_BH_　不要那么_BH_　ぉ_BH_　%TEXTR("一直/专心地")%盯着、よぉ……っ_BH_　哦吼っ_BH_」"
						CALL PRINT_STRW, @"（要漏出来了_BH_　要漏出来了_BH_　这么一直被盯着看的话、色情的汁液会出来的……っ_BH_）"
				ENDSELECT
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「～～～～_BH_BH_BH_」"
			PRINTFORMW %CNAME("玲子")%自己一摇动着腰，那有着凶恶质量的胸部就会%TEXTR("噗扭噗扭/boingboing/嘭嘭")%地摇晃着……
		CASE 1
			CALL PRINT_STRW,  "「呜呜呜～～_BH_」"
			CALL PRINT_STRW,  "（讨厌_BH_　讨厌这个_BH_　在里面_BH_　好深_BH_）"
			CALL PRINT_STRW,  "「深处的……碰到了……_BH_」"
		CASE 2
			CALL PRINT_STRW,  "「哦ー_BH_　哦哦ー……_BH_」"
			PRINTFORMW %CNAME("玲子")%用毫不掩饰两人结合部分的姿势摆动腰部，品味着%CALLNAME:PLAYER%的阴茎……
			CALL PRINT_STRW,  "（不行……_BH_　会发出色情的声音的……_BH_）"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

ENDIF
;-------------------------------------------------
;挿入刺激Ｇ点
;-------------------------------------------------
IF SELECTCOM == 66
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			CALL PRINT_STR,  "「哦吼っ！？　哦、哦哦っ_H_　哦っ_H_　哦ーっ_H_」_W"
			CALL PRINT_STR,  "（这、这样不行_H_　这样做的话_H_　肉棒会摩擦到小穴最敏感的地方的_BH_）_W"
			CALL PRINT_STR,  "「哦っ_H_　哦哦哦哦哦哦ーっ_BH_BH_BH_」_W"
			CALL PRINT_STR,  "（不要_H_　不能这样_H_　会坏掉的、小学会变成⑨的_BH_）_W"
			CALL PRINT_STR,  "「哦、哦哦、小穴舒服过頭了_H_　会舒服过頭的_BH_　哦吼っ_BHH_」_W"
		ENDIF
		RETURN 1
	ENDIF

	;二回目以降
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「哦哦っ_H_　哦吼っ_H_　不行っ_H_　饶了我吧っ_H_」_W"
			CALL PRINT_STR, @"「%CNAME("オマンコ")%敏感过頭了_H_　会变成只知道高潮的笨蛋的_H_　不行っ_H_」_W"
			CALL PRINT_STR,  "（会坏掉的っ_H_　脑袋会坏掉的っ_H_　肉棒会把小学给弄坏的_BH_）_W"
			CALL PRINT_STR,  "「呜……噫呜呜呜呜呜呜_BH_BH_BH_」_W"
		CASE 1
			CALL PRINT_STR,  "「～～～～～～～～っ_BH_BH_BH_」_W"
			PRINTFORMW %CNAME("玲子")%仰着背，像发情期的野兽一样发出娇声。……
		CASE 2
			CALL PRINT_STR,  "「不_H_　这个不要っ_H_　不行っ_H_　饶了我吧っ_H_」_W"
			CALL PRINT_STR, @"（脑、脑子一片发白_H_　%CNAME("阴茎")%一直在摩擦%CNAME("オマンコ")%的壁肉_H_）_W"
			CALL PRINT_STR,  "「哦哦哦哦哦っ_H_　哦っ_H_　哦哦ー、哦ー……っ_H_　哦哦っ_H_」_W"
			CALL PRINT_STR, @"（%CNAME("阴茎")%っ_H_　多欺负欺负%CNAME("オマンコ")%_H_　多在里面抽插_H_）_W"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

ENDIF

;-------------------------------------------------
;挿入子宮口玩弄
;-------------------------------------------------
IF SELECTCOM == 67
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

	;二回目以降

	; 播種姿势
	IF PREVCOM == 67 && INSERT("屈曲位")
		IF COND("危険日")
			IF TEQUIP:避孕套
			ELSE
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW,  "「呜ー_BH_　呜ー_BH_　不゛行゛啊゛_BH_　不要、不能在里面゛_BH_」"
						CALL PRINT_STRW,  "「呜呜゛_BH_　啊啊っ_BH_　不行_BH_　种゛种子゛什么゛的不行゛_BH_」"
						CALL PRINT_STRW,  "「哦゛哦哦哦゛哦゛哦゛哦_BH_　呜呜_BH_　哦゛ーっ_BH_」"
				ENDSELECT
			ENDIF
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「呜_BH_　呜呜ーっ_BH_　哦っ_BH_　哦゛哦゛_BH_　呜ー_BH_」"
				CALL PRINT_STRW,  "「饶゛_BH_　饶゛了゛我吧_BH_　哦哦゛_BH_　呜ーっ_BH_」"
				CALL PRINT_STRW,  "「哦゛っ哦゛っ哦゛っ哦゛っ_BH_　哦哦っ_BH_　呜ー_BH_　呜咕_BH_　呜ー_BH_　哦哦哦゛哦゛ーーっ_BH_」"
			CASE 1
				CALL PRINT_STRW,  "「哦っ_BH_　不_BH_　呜_BH_　不要_BH_　这个不゛要゛啊゛っ_BH_　哦哦哦っ_BH_　哦゛っ_BH_」"
				CALL PRINT_STRW, @"「会゛坏゛掉的゛_BH_　%CNAME("オマンコ")%会坏掉的_BH_　呜呜ーっ_BH_　哦゛っ哦っ哦゛っ哦゛っ_BH_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_COM_LP1
	ENDIF

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「呜_BH_　呜ー_BH_　哦ー_BH_　呜呜……_BH_」"
			CALL PRINT_STRW, @"「那、那个……_BH_　这个、%TEXTR("能不能停一下/不是很喜欢")%……_BH_」"
			CALL PRINT_STRW, @"「反正要做的话_BH_　进到更里面、%TEXTR("插/撞")%进来、……哦゛っ_BH_　っ_BH_　哦哦っ_BH_BH_BH_」"
		CASE 1
			CALL PRINT_STRW,  "「哦ー……_BH_　哦゛_BH_　哦哦ー……_BH_」"
			CALL PRINT_STRW,  "（里面……在被玩弄……_BH_）"
			CALL PRINT_STRW,  "（在敲……小孩子的房间……_BH_）"
			CALL PRINT_STRW,  "「哦゛哦゛っ_BH_　……っ、呼ー_BH_　呼ー_BH_　呜呜_BH_」"
			CALL PRINT_STRW, @"「……再、%TEXTR("用力/乱来/插进来")%一些……也可以哦……？_／／／_」"
			CALL PRINT_STRW,  "「…………哦゛呜っ_BH_BH_BH_」"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1
ENDIF

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

;-------------------------------------------------
;Ａ挿入系初選択
;疼痛が少なく楽しめているかはCHECK("Ａ挿入")で判定
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	;Ａ処女
	IF TALENT:Ａ処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ａ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;巨根
	ELSEIF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			PRINTFORMW
		;対面座位
		CASE 73
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;Ｓ状結腸を使っての肛門性交
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHECK_COM("結腸責め")
	;初めての結腸責め
	IF EXP:結腸経験 == 0
		PRINTFORMW
	;今回初の結腸責め
	ELSEIF EXP_GAIN("結腸経験") == 0
		IF TALENT:結腸性感
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:結腸性感
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ａ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;余裕が無い
	ELSEIF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		CASEELSE
			IF RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで)
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 74
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門騎乗位
;-------------------------------------------------
IF SELECTCOM == 75
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;貝あわせ
;-------------------------------------------------
IF SELECTCOM == 80
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;手淫
;-------------------------------------------------
IF SELECTCOM == 90
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF RYOKO_COND("処女")
			CALL PRINT_STRW,  "「好厉害……_BH_　这么……大……_BH_」"
				PRINTFORM %CNAME("玲子")%
			IF EXP_GAIN("口交経験")
				PRINTFORM 含住了前端
			ELSE
				PRINTFORM 屹立着的
			ENDIF
			PRINTFORMW 战战兢兢地握着%CALLNAME:PLAYER%的阴茎……
			CALL PRINT_STRW,  "（呜呜_BH_　这就是、真正的肉棒……_／／／_）"
			CALL PRINT_STR,  "（いつも使ってる振動棒"
			IF SIZE("阴茎", PLAYER) >= 2
				CALL PRINT_STR, "一比要大好多"
			ELSE
				CALL PRINT_STR, "差不多大"
			ENDIF
			CALL PRINT_STRW,  "差不多大吗……？）"
			IF TALENT:MASTER:扶她
				CALL PRINT_STRW,  "（明明是女孩子……却有这么大的肉棒……_BH_）"
			ENDIF
			CALL PRINT_STRW,  "「はぁ…………_BH_」"
			PRINTFORMW %CNAME("玲子")%一脸陶醉的看着%CALLNAME:PLAYER%的肉棒……
		ELSE
			IF EXP_GAIN("膣内精液経験")
				CALL PRINT_STRW,  "「呜……_BH_　啊……_BH_」"
				CALL PRINT_STRW,  "（好厉害……_BH_　明明射出来那么多、还这么硬、这么热……_BH_）"
				CALL PRINT_STRW,  "（被这根肉棒……给中出了……_BH_）"
				CALL PRINT_STRW,  "「真、真是的……_BH_　稍微、冷鸡一下嘛……_BH_」"
			ELSEIF EXP_GAIN("Ｖ性交経験")
				CALL PRINT_STRW,  "「呜呜呜……_BH_」"
				CALL PRINT_STRW, @"（这个……刚才还插进过%CNAME("一人称")%的里面……_BH_）"
				CALL PRINT_STRW,  "（被这样……又大、又热、又硬的肉棒给……_BH_）"
				CALL PRINT_STRW,  "「好像还是……_BH_　元气满满的样子……_BH_」"
			ELSE
				CALL PRINT_STRW,  "「…………_／／／_」"
				CALL PRINT_STRW,  "（就是被这根肉棒……给改造成了女人……_BH_）"
				CALL PRINT_STRW,  "（今天也会……_BH_　插进来的吧、肯定……_BH_）"
			ENDIF
		ENDIF
		RETURN 1
	ENDIF

	;二回目以降
	;被逆推ているとき
	IF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; PLAYERが射精済み
	IF EXP_GAIN("射精経験", PLAYER)
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「明明射出来那么多……_BH_　还是这么……_BH_」"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	;それ以外
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「真是的……变得这么硬……_BH_」"
			CALL PRINT_STRW,  "「不能一下子都射出来哦……？_／／／_」"
		CASE 1
			CALL PRINT_STRW,  "「…………_BH_　讨厌、真是的……_BH_　好烫……_BH_」"
			CALL PRINT_STRW,  "「被这样的插进来的话、会被灼伤的……_BH_」"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	GOTO RYOKO_COM_LP1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	;  挿入前とあとで分岐
	IF FIRSTCOM(SELECTCOM) == 0
		IF !CEVENT("初回：Ｖ挿入")
			; 挿入前
			CALL PRINT_STR,  "（想要用嘴……意思是用吸的吧……）_W"
			IF EXP:接吻経験 == 0
				IF TALENT:MASTER:男性
					CALL PRINT_STR, @"（明明和男人都没有接过吻……初吻对象竟然是%CNAME("阴茎")%什么的……）_W"
				ELSEIF TALENT:MASTER:扶她
					CALL PRINT_STR, @"（明明和男人都没有接过吻……初吻对象竟然是扶她少女的%CNAME("阴茎")%什么的……）_W"
				ENDIF
			CALL PRINT_STR, @"（但是要忍耐啊%CNAME("玲子")%……这也是为了任务）"
			ENDIF
			CALL PRINT_STR,  "「……唔嗯、什么都没有。……呼呼。虽然可以用嘴做……但不能突然出来哦？」_W"
			CALL PRINT_STR,  "（那个……好像、要注意不要让牙齿碰到……）_W"
			CALL PRINT_STR,  "「……啊～嗯_H_　ん……_H_」_W"
			CALL PRINT_STR,  "（讨厌……比看起来的还要大……_H_　而且有点黏黏的……下巴、好酸……）_W"
			PRINTFORMW %CNAME("玲子")%与擅长口頭服务的样子相反、像第一次一样以结结巴巴的动作把%CALLNAME:PLAYER%的阴茎含在嘴里，然后開始战战兢兢地用舌頭舔龟頭……
			CALL PRINT_STR,  "（呜诶……_H_　什么啊这是……很奇怪的味道……）_W"
			CALL PRINT_STR,  "（虽然不是什么讨厌的味道或者难闻的味道……ん……_H_）_W"
			CALL PRINT_STR,  "（要全部……都吞进去吗……_H_）_W"
			PRINTFORMW 虽然%CNAME("玲子")%有点困惑，但不久把阴茎连根部都含了进去，大胆的用整个嘴開始服务……
			CALL PRINT_STR,  "（嗯……_H_　只是稍微舔了舔……就抖了抖……）_W"
			CALL PRINT_STR,  "（好像有点可爱……？_H_）_W"
			CALL PRINT_STR,  "「嗯……_H_　啊姆……_H_　姆……_H_　嗯啾……_H_」_W"
		ELSE
			; 挿入後
			CALL PRINT_STR,  "「希望……舔那里吗……？」_W"
			CALL PRINT_STR,  "（这就是……口交吗……）_W"
			CALL PRINT_STR, @"「嗯……可以哟。这次%CNAME("一人称")%会、用嘴让肉棒舒服起来的……_H_」_W"
			PRINTFORMW 没有从眼前伸出来的%CALLNAME:PLAYER%的阴茎上面移開视线，%CNAME("玲子")%轻轻地低语着。
			CALL PRINT_STR,  "（啊……_H_　果然好大……_H_）_W"
			CALL PRINT_STR,  "（下巴好累……_H_）_W"
			CALL PRINT_STR,  "「嗯……啾……_H_」_W"
			CALL PRINT_STR,  "「啊姆_H_　嗯～～_H_　嗯っ_H_」_W"
			PRINTFORMW %CNAME("玲子")%把前端含在嘴里细细品味、慢慢地含住%CALLNAME:PLAYER%的阴茎，開始吸起……
			CALL PRINT_STR, @"（嗯っ_H_　咕っ_H_　%CNAME("阴茎")%的前端、在、喉咙……_H_）_W"
			CALL PRINT_STR, @"（%CNAME("一人称")%的小穴、也被这样_H_　粗暴的_H_　插来插去_H_）_W"
			CALL PRINT_STR,  "（就是被这根肉棒……给破处了……_H_　嗯――――っ_BH_）_W"
			PRINTFORMW 被猛地吞下去的阴茎前端，“啪”的一声戳到了喉咙深处。
			CALL PRINT_STR,  "「咳咳っ、咳咳っ！　嗯～～_BH_」_W"
			PRINTFORMW 被喂食的%CNAME("玲子")%像吐出阴茎一样离開了嘴，不过，马上又含住開始了侍奉。
			CALL PRINT_STR,  "（嗯……_H_　不认真点的话……_H_）_W"
			CALL PRINT_STR,  "（这也是为了任务……_H_　必须诚心诚意地侍奉……_H_）_W"
		ENDIF
		RETURN 1
	ENDIF

	;二回目以降
	IF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF

	;みんな大好き清洁口交
	IF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕 && RANDIF(1, ABL:奉仕精神 >= 3)
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
			RETURN 1
	ENDIF

	; 已中出み
	IF EXP_GAIN("膣内精液経験")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「啊姆……嗯……_H_　哈啊……嗯_H_　嗯嗯っ_H_」_W"
				CALL PRINT_STR, @"（好厉害……_H_　%CNAME("阴茎")%、又变得%TEXTR("硬硬的/硬邦邦的/这么坚硬")%……_H_）_W"
				CALL PRINT_STR, @"（好像要溢出来一样，%TEXTR("完全没有顾虑的/完全没有放水的")%在里面射出来了……_H_　难道还不够吗……？）_W"
				CALL PRINT_STR,  "「哈啊……_H_　真让人困扰……_H_」_W"
			CASE 1
				CALL PRINT_STR,  "「啊姆……_H_　嗯？_H_　嗯啾……嗯嗯嗯っ_H_」_W"
				CALL PRINT_STR, @"（讨厌……_H_　%CNAME("阴茎")%里面不是还留着%CNAME("精液")%吗……_H_）_W"
				CALL PRINT_STR,  "「……喂。真是的……如果要射出来的话、不好好全部射出来的话可不行……」_W"
				CALL PRINT_STR,  "「藏着这么多……_H_　啊姆……_H_」_W"
		ENDSELECT
	ENDIF

	; 射精済み
	IF EXP_GAIN("射精経験", PLAYER)
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「…………哇啊_H_」_W"
				CALL PRINT_STR, @"（好厉害……_H_　明明已经射出来那么多、还是这么%TEXTR("坚硬/精神/大")%吗……？）_W"
				CALL PRINT_STR, @"「%TEXTR("舔一舔/含进去")%也……可以吗……？_H_」_W"
			CASE 1
				CALL PRINT_STR,  "「嗯……_H_　啊姆……_H_」_W"
				CALL PRINT_STR, @"（刚才出来的%CNAME("精液")%で……还是%TEXTR("黏黏的/黏糊糊的")%……_H_）_W"
				CALL PRINT_STR,  "「嗯啾……_H_　嗯っ！？_／／／_」_W"
				CALL PRINT_STR, @"（讨厌……_H_　一吸下前端就%TEXTR("biubiu/突然/一下子")%的出来了……_H_）_W"
				CALL PRINT_STR,  "「真是的……不好好全部都射出来的话可不行……？　啊姆……_H_」_W"
				PRINTFORMW %CNAME("玲子")%把%CALLNAME:PLAYER%的阴茎完全吞下去后，像要把竿上残留的精液挤出来一样，缩紧嘴巴吸在马眼上……
				CALL PRINT_STR,  "「嗯嗯嗯～～～～_BH_BH_BH_」_W"
				CALL PRINT_STR, @"（真是……%TEXTR("不让人省心的/需要関照的")%孩子……_H_）_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	;被逆推ているとき
	IF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「啊姆……_H_　嗯_H_　嗯嗯ー……_H_」_W"
			CALL PRINT_STR,  "（一跳一跳的……稍微有点可爱……_H_）_W"
		CASE 1
			CALL PRINT_STRW, @"（%TEXTR("这样子/就这样/那个")%……%TEXTR("舔舔龟頭/舌頭钻进马眼里/亲一下前端")%会怎么样……？）」"
			CALL PRINT_STRW, @"「啊、不要_H_　真是是、不要乱动……%TEXTR("都含不了了/都不能吸了")%……_H_　阿姆_H_　嗯_H_」"
			CALL PRINT_STRW,  "（太好了……_H_　这样会舒服的啊……_H_）"
		CASE 2
			CALL PRINT_STR, @"（%CNAME("一人称")%、因为这根%CNAME("阴茎")%，%TEXTR("处女丧失了/破处了/被侵犯了")%……_H_）_W"
			CALL PRINT_STR,  "（的未来的老公大人……什么的、绝对没有想过）_W"
			CALL PRINT_STR, @"（但也不是什么%TEXTR("讨厌的/坏")%孩子……可以的吧……_H_）_W"
			CALL PRINT_STR,  "「嗯……_H_　啊～嗯……_H_　啾_H_」_W"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1

ENDIF

;-------------------------------------------------
;乳交
;-------------------------------------------------
IF SELECTCOM == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STR,  "（乳交……乳交、吗。这样就可以了吗……？）_W"
		CALL PRINT_STR,  "「哟西……。啊啦啊啦、全部都被藏起来了……_／／／_」_W"
		PRINTFORMW 就像腼腆的%CNAME("玲子")%说的那样，在那丰满得快要溢出来的胸部之间，%CALLNAME:PLAYER%的阴茎完全被遮住了……
		CALL PRINT_STR,  "「如果觉的太紧的话要说哦？　嗯……_BH_」_W"
		PRINTFORMW %CNAME("玲子")%从外侧按压自己的胸部，用不熟练但流畅的动作開始服务……
		PRINTFORMW
		RETURN 1
	ENDIF

	;二回目以降
	; 射精済み
	IF EXP_GAIN("射精経験", PLAYER)
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「好厉害……胸部的里面%CNAME("精液")%%TEXTR("黏黏的/黏糊糊的/好黏的")%……_BH_」_W"
				CALL PRINT_STR, @"（而且、这个味道……_BH_　%CNAME("精液")%的气味……_BH_）_W"
				CALL PRINT_STR,  "（脑子也变得黏糊糊的了……_BH_）_W"
			CASE 1
				CALL PRINT_STR,  "「真是的……_BH_　明明射出来那么多……_BH_」_W"
				CALL PRINT_STR,  "「还是这么硬……？_BH_」_W"
				CALL PRINT_STR,  "（听说男性的勃起不会那么持久……）_W"
				CALL PRINT_STR,  "（是因为与恶魔的契约?还是……也许是因为年轻……？_／／／_）_W"
				IF TALENT:MASTER:扶她
					CALL PRINT_STR,  "（啊、扶她少女……比男孩子还要厉害、大概……？_／／／_）_W"
				ENDIF
		ENDSELECT
	ENDIF

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "（好……烫……_BH_）_W"
			CALL PRINT_STR,  "（欧派好像要被烫伤一样……_BH_）_W"
			CALL PRINT_STR,  "「呼呼……_BH_　如果舒服的话发出声音也可以哦……？_／／／_」_W"
		CASE 1
			CALL PRINT_STR,  "（虽然是看着视频练习乳交的……）_W"
			CALL PRINT_STR,  "（好像变得舒服了起来……_BH_）_W"
			CALL PRINT_STR, @"「……呼呼_BH_　一副%TEXTR("舒服的/感觉到了的")%表情、真可爱_BH_」_W"
		CASE 2
			CALL PRINT_STR,  "（在欧派的谷间……被摩擦着什么的可以感受到啊……_／／／_）_W"
			CALL PRINT_STR,  "（如果这样就可以变的舒服的话就好了……啊啦？）_W"
			CALL PRINT_STR,  "「……_BH_　嗯啾_BH_」_W"
			CALL PRINT_STR,  "「啊啦、对不起。吓到了？　看到了可爱的頭頭……就舔了一下_BH_」_W"
			CALL PRINT_STR,  "（呼呼……这样的话自己也会很開心的。因为很努力的练习过了、不能好好享受的话……_BH_）_W"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1
ENDIF

;-------------------------------------------------
;素股
;-------------------------------------------------
IF SELECTCOM == 93
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF TEQUIP:推倒
			CALL PRINT_STRW,  "「哈啊……_BH_　好厉害_BH_　变得好硬……_BH_」"
			CALL PRINT_STRW,  "「被这样的插进去的话、小穴会坏掉的吧_BH_　……嗯_BH_」"
			PRINTFORMW 跨坐在%CALLNAME:PLAYER%身上的%CNAME("玲子")%张開大腿開始摩擦屹立在%TEXTS("阴部：視覚")%那里的肉棒……
			CALL PRINT_STRW,  "「怎么样？　舒服吗？　如果想射出来的话不用忍耐就这样射精也可以哦……_BH_」"
			PRINTFORMW %CALLNAME:PLAYER%的阴茎被%CNAME("玲子")%的肉壶溢出来的蜜液浸透……
			CALL PRINT_STRW,  "（这样在的、男孩子会觉得舒服吗……？_／／／_）"
			IF TALENT:MASTER:扶她
				CALL PRINT_STRW,  "（虽然有根肉棒、但这样扶她少女会舒服吗……？_／／／_）"
			ENDIF
			CALL PRINT_STRW,  "（但是、好像……这个……_BH_）"
			CALL PRINT_STRW,  "「啊_BH_　不行_BH_　不能乱动……_BH_　老老实实待着_BH_」"
			CALL PRINT_STRW, @"（%CNAME("オマンコ")%会变得很悲伤的……_BH_）"
		ELSE
			CALL PRINT_STRW,  "「诶、啊……？　不是插入……？」"
			CALL PRINT_STRW,  "「不插进去、夹住……？　啊、是所谓的素股吧。可以哦。但是、是第一次做不知道能不能做好……？」"
			CALL PRINT_STRW,  "（用新的振动棒的时候，先把它放在肚子上，一直插入到这里……虽然是这么做的）"
			CALL PRINT_STRW,  "「……_BH_　好热……_BH_　っ_BH_　啊っ_BH_」"
			PRINTFORM 用大腿夹住阴茎、
			SELECTCASE CONDS("陰毛")
				CASE "随意生長"
					PRINTFORM 拨開茂密的阴毛
				CASE "剃过留痕"
					PRINTFORM 在深色的阴毛上刮过的痕迹上刮过条纹一样
				CASE "白虎", "無毛処理"
					PRINTFORM 在光滑的耻丘上不断地涂抹汁液
				CASEELSE
					PRINTFORM 抚摸着像草原一样广阔的阴毛山丘，
			ENDSELECT
			PRINTFORMW 用阴茎摩擦时，%CNAME("玲子")%就会一颤一颤的……
			CALL PRINT_STRW,  "（这个……太色情了……_BH_）"
			CALL PRINT_STRW,  "（磨来磨去_BH_　肉棒一遍又一遍的蹭……_BH_）"
			IF EXP:Ｖ性交経験
				CALL PRINT_STRW,  "（这根肉棒……_BH_　原来可以到这里吗……_BH_）"
			ELSE
				CALL PRINT_STRW,  "（如果是真的H的话……_BH_　能进到这么里面……_BH_）"
			ENDIF
			CALL PRINT_STRW,  "「哈……_BH_　啊_BH_　呜_BH_　嗯呜……_BH_」"
			PRINTFORMW %CNAME("玲子")%吐着甘甜的气息，%CALLNAME:PLAYER%假装没有注意到被蜜液涂满了的肉褶吸附在竿上享受着插入的行为……
		ENDIF
		RETURN 1
	ENDIF

	;二回目以降
	IF CHECK_COM("展示肉棒")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 未発生なら誤挿入が発生しうる
	IF CEVENT("調教：素股誤挿入")
		; 初回
		IF !CEVENT("初回：素股誤挿入")
			CALL PRINT_STRW,  "「呜_BH_　呜呜_BH_　哦っ_BH_　哦～_BH_　呜呜呜_BH_　呜ー_BH_　呜ー_BH_BH_BH_」"
			CALL PRINT_STRW,  "（为什么_BH_　为什么为什么_BH_　到底是为什么啊_BH_）"
			CALL PRINT_STRW, @"（为什么这么、什么……っ_BH_　%CNAME("オマンコ")%会这么欲求不满……っ_BH_）"
			IF TEQUIP:推倒
				PRINTFORMW %CNAME("玲子")%跨坐在%CALLNAME:PLAYER%的身上
			ELSE
				PRINTFORMW %CNAME("玲子")%喘着粗气，一副快要哭出来的样子看着%CALLNAME:PLAYER%……
			ENDIF
			CALL PRINT_STRW, @"「呜呜_BH_　呜ー_BH_　呜ー_BH_」"
			CALL PRINT_STRW, @"「%CNAME("阴茎")%好热啊……_BH_　%CNAME("愛液")%停不下来……_BH_」"
			CALL PRINT_STRW, @"「%CNAME("オマンコ")%、好想要、………_BH_BH_BH_」"
			PRINTFORMW %CNAME("玲子")%用沙哑的声音喃喃自语，追求快乐。随着%CALLNAME:PLAYER%的腰部动作，自己也開始摆动腰部。。
			CALL PRINT_STRW,  "「呜っ_BH_　哦っ_BH_　哦ーっ_BH_　嗯啊_BH_」"
			CALL PRINT_STRW,  "（啊_BH_　这个好舒服_BH_　舒服过頭了……_BH_）"
			CALL PRINT_STRW, @"（%CNAME("阴茎")%的頭部在摩擦豆豆……_BH_　舒服得要被麻痹了……_BH_）"
			CALL PRINT_STRW,  "「嗯っ_BH_　呜っ_BH_　哦っ_BH_　嗯啊っ_BH_　呜ーっ_BH_　哦っ_BH_」"
			PRINTFORMW 想得到更多从%CALLNAME:PLAYER%的阴茎感受到的快感，%CNAME("玲子")%的腰有节奏地跳动着……
			PRINTFORMW 然后、
			PRINTL
			CALL PRINT_STRL,  "　　　_BHH_爱心粉紅_にゅるん_BHH_"
			PRINTFORMW
			PRINTFORMW 一个偶然的机会，%CALLNAME:PLAYER%的阴茎被%CNAME("玲子")%的蜜壶邀请似的钻了进去。
			CALL PRINT_STRW,  "「啊_BH_　啊ー！_BH_　啊啊ーっ_BH_」"
			CALL PRINT_STRW,  "（进来……了……_BH_　插进来了_BH_　一下子_BH_　一下子就插进来了_BH_）"
			CALL PRINT_STRW,  "「哦哦哦……_BH_　呜呜_BH_　呜ー……_BH_BH_BH_」"
			CALL PRINT_STRW,  "（最深处……进来了……_BH_　根部都_BH_　全都吞进来了_BH_）"
			PRINTFORM %CNAME("玲子")%用颤抖的声音享受着进入胎内的肉棒、与此同时
			IF TEQUIP:推倒
				PRINTFORMW 把体重全部都托在%CALLNAME:PLAYER%的身上，把腰压在身上以防阴茎脱落……
			ELSE
				PRINTFORMW 将双腿绕在%CALLNAME:PLAYER%的腰上，为了不让阴茎脱落，用力拉紧……
			ENDIF
			CALL PRINT_STRW,  "「…………_BH_」"
			IF COND("危険日")
				CALL PRINT_STRW,  "「……今天明明是、危险的日子」"
				CALL PRINT_STRW,  "「但是……但是……_BH_　但是……_BH_」"
			ENDIF
			CALL PRINT_STRW,  "「…………就保持、继续_BH_」"
			PRINTFORMW 回应了满脸淫荡的%CNAME("玲子")%发出的请求，%CALLNAME:PLAYER%開始用肉棒让%CNAME("玲子")%用甜美的声音叫着……
			CALL SET_CEVENT, "初回：素股誤挿入"

		; ２回目以降
		ELSE
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「啊啊_BH_　呜_BH_　呜呜_BH_」"
					CALL PRINT_STRW,  "「哦哦ー_BH_　呜ー……_BH_　啊_BH_　哦_BH_」"
					CALL PRINT_STRW,  "「等、等一下_BH_　等一等_BH_　插进来了_BH_　已经插进来了_BH_」"
					CALL PRINT_STRW,  "「呜_BH_　哦_BH_　哦呜っ_BH_」"

			ENDSELECT
		ENDIF

		RETURN 1
	ENDIF

	; 淫紋
	IF MARK:淫紋
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「呜゛　哦゛　呜゛呜゛_BH_」"
				CALL PRINT_STRW,  "（不要_BH_　这个不行_BH_）"
				CALL PRINT_STRW, @"（%CNAME("オマンコ")%在欲求不满……っ_BH_　里、里面_BH_　%CNAME("子宮")%在%TEXTR("发情/接受")%着_BH_）"
				CALL PRINT_STRW,  "「呜_BH_　呜呜呜ー！_BH_　哦゛……_BH_」"
				CALL PRINT_STRW, @"（插进来_BH_　快点插进来_BH_　%TEXTR("粗暴的/乱七八糟的")%做吧_BH_BH_BH_）"
				CALL PRINT_STRW,  "「哦゛ー_BH_　呜゛ー_BH_　呜呜゛呜゛呜゛ー！_BH_BH_BH_」"
				CALL PRINT_STRW, @"（%CNAME("阴茎")%快点给我…………っ_BH_BH_BH_）"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	IF TEQUIP:推倒
		SELECTCASE RAND:5
			CASE 0
				PRINTFORMW
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「嗯……_BH_　啊……_BH_　嗯唔_BH_　嗯っ_BH_」"
				CALL PRINT_STRW, @"（%CNAME("阴茎")%在大腿这摩擦……好舒服……_BH_）"
			CASE 1
				CALL PRINT_STRW,  "「嗯唔_BH_　嗯_BH_　啊_BH_　嗯呜_BH_」"
				SELECTCASE CONDS("陰毛")
					CASE "随意生長"
						CALL PRINT_STRW, @"（讨厌……_BH_　%CNAME("陰毛")%缠住了%CNAME("阴茎")%……_BH_）"
						CALL PRINT_STRW,  "（就这么兴奋吗……？_／／／_）"
					CASE "光滑无毛", "脱毛処理"
						CALL PRINT_STRW, @"（%CNAME("オマンコ")%的皱褶……_BH_　被%CNAME("阴茎")%吸住了……_BH_）"
					CASEELSE
						CALL PRINT_STRW, @"（%CNAME("オマンコ")%在被%CNAME("阴茎")%摩擦……_BH_）"
						CALL PRINT_STRW, @"（%TEXTR("这么粗暴/这么乱来")%_BH_　会_BH_　会发出%TEXTR("色情的/下流的/羞耻的")%的声音的_BH_）_W"
				ENDSELECT
			CASE 2
				CALL PRINT_STRW,  "「啊_BH_　嗯っ_BH_　啊啊っ_BH_　呜_BH_」"
				CALL PRINT_STRW,  "（呜呜_BH_　为什么_BH_　为什么_BH_）"
				CALL PRINT_STRW,  "「哦っ_BH_　哦哦ー_BH_　呜ー_BH_　呜っ_BH_」"
				CALL PRINT_STRW, @"（为什么%CNAME("オマンコ")%会这么想要……っ_BH_）"
		ENDSELECT
	ENDIF

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1
ENDIF

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	;二回目以降

	; 危険日、中出し没有
	IF COND("危険日") && !EXP_GAIN("膣内精液経験")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「啊……嗯……_BH_」"
				CALL PRINT_STRW,  "（讨、讨厌……_BH_　这不是比平时、还浓……？）"
				CALL PRINT_STRW,  "「嗯咕……_BH_　嗯っ_BH_」"
				CALL PRINT_STRW,  "（这样的……被中出的话……_／／／_）"
			CASE 1
				CALL PRINT_STRW,  "「哈啊……_BH_　嗯……_BH_　嗯咕_BH_」"
				CALL PRINT_STRW,  "「……今、今天……　在里面出来、是不行的」"
				PRINTFORMW %CNAME("玲子")%把积存的精液吸出来后摘下避孕套，戳着自己的下腹部。。
				CALL PRINT_STRW, @"「所以、作为代替……%TEXTR("上面/这边")%的嘴……可以随便%TEXTR("中出/射里面/射精")%哦？_／／／_」"
		ENDSELECT
	ENDIF

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「哈啊……_BH_　嗯_BH_　啾……_BH_」"
			CALL PRINT_STRW,  "（讨厌……_BH_　太浓了、这个……_BH_）"
			CALL PRINT_STRW,  "「嗯……咕……っ_BH_／／／_」"
			CALL PRINT_STRW,  "（在肚子里面……_BH_　一下子_BH_　就落进来了……_BH_）"
	ENDSELECT

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

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

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

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

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

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

;-------------------------------------------------
;新妻PLAY
;-------------------------------------------------
IF SELECTCOM == 173
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;終了時
	ELSEIF TEQUIP:新妻PLAY == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;館内露出PLAY
;まだ仕様が決まってない
;-------------------------------------------------
IF SELECTCOM == 174
	RETURN 1
ENDIF
;-------------------------------------------------
;換装
;-------------------------------------------------
IF SELECTCOM == 175
	;服、贴身制服、泳装に着替えた時
	IF CHECK_COM("換装：服を着替えた")
		IF CHECK_CLO("自分の服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("衬衫")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女教師")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("和服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女仆装")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("体操服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("看護婦")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("旗袍")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("水手服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("巫女")
			IF !CEVENT("初回：換装：巫女")
				IF !CHECK_CLO("没穿内褲") && EQUIP:胸罩
					PRINTFORMW 换了巫女服的%CNAME("玲子")%好像穿起来不舒服、慢慢地把%BRA()%和%PANTIES()%抽出来扔在了一边……
					CALL PRINT_STRW,  "「嗯。果然……这样一直穿的话有点奇怪」"
					CALL PRINT_STRW,  "「怎么了。在老家的时候就是这么穿的。不行吗？_／／／_」"
					CALL PRINT_STRW,  "「…………说起来、说过老家是神社这件事吗？」"
					PRINTFORMW 奇怪的%CNAME("玲子")%，不过，确实如本人所说，巫女姿态看起来非常自然……
					CALL SET_CEVENT, "初回：換装：巫女"
					CALL RYOKO_SET_FLAG, "換装：服を着替えた"
					RETURN 1
				ENDIF
			ENDIF

			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"（虽说是%TEXTR("cosplay用的/杂物堆的/什么东西的")%，但也有很多年没穿巫女服了……）"
					CALL PRINT_STRW,  "「……？　是、是吗？　适合吗、那个、很高兴_／／／_」"
			ENDSELECT

		ELSEIF CHECK_SHIRT("情趣内衣")
			PRINTFORMW
		ELSEIF CHECK_CLO("比基尼姿")
			PRINTFORMW
		ELSEIF CHECK_CLO("拘束衣")
			PRINTFORMW
		ELSEIF CHECK_BODYS("兔")
			PRINTFORMW
		;其他
		ELSE
			PRINTFORMW
		ENDIF

		; 換装時の共通処理
		IF LINECOUNT - MEMO_LINECOUNT
			CALL RYOKO_SET_FLAG, "換装：服を着替えた"
		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

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_COM_LP1
ENDIF
;-------------------------------------------------
;被逆推
;-------------------------------------------------
IF SELECTCOM == 176
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

;-------------------------------------------------
;甜言蜜语
;-------------------------------------------------
IF SELECTCOM == 283
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;成功
	IF TEQUIP:甜言蜜语
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;失敗
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;--------------------------------------------------
;調教指令の地の文の前に喋る台詞はここに書く
;--------------------------------------------------
@KOJO_MESSAGE_BEFORE_COM_K32
;口枷着用時には口上をスキップする？
SIF TEQUIP:口枷 && SELECTCOM != 135
	RETURN 0

; CEVENTの削除
IF CEVENT("調教：素股誤挿入")
	IF !INSERT("Ｖ挿入")
		CALL DEL_CEVENT, "調教：素股誤挿入"
	ENDIF
ENDIF

; 指令の派生とか
SIF SELECTCOM == 93 && RYOKO_COM_CHECK("素股誤挿入")
	CALL RYOKO_ALTNATE_COM, "素股誤挿入"

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

	; 素股誤挿入騎乗位の処理
	;   能動的に選択できないと連続して騎乗位が実行できないため、NEXTCOMを用いる
	IF TEQUIP:推倒 && ((SELECTCOM == 65) || (SELECTCOM == 66) || (SELECTCOM == 67)) && CEVENT("調教：素股誤挿入")
		SELECTCASE RAND:10
			CASE 8, 9
				NEXTCOM = 67
			CASE 5 TO 7
				NEXTCOM = 66
			CASEELSE
				NEXTCOM = 65
		ENDSELECT
		; 既に射精していたら終了
		PRINTL
		IF COND("絶頂", PLAYER)
			PRINTFORMW %CNAME("玲子")%は%TEXTR("一脸满足的/一脸幸福的")%表情享受着从%TEXTR("胎内/阴道里")%吐出的精液……
			NEXTCOM = -1
		ELSE
			PRINTFORM %CNAME("玲子")%%TEXTR("好像还没有满足的/好像还没有被满足")%的样子
			SELECTCASE NEXTCOM
				CASE 65
					PRINTFORMW 一边摇着腰，一边胸部在%TEXTR("啪昂啪昂的/噗噜噗噜的")%摇晃着……
				CASE 66
					PRINTFORMW 夹住腰、一边细啼一边粗鲁地摇起腰来……
				CASE 67
					PRINTFORMW %TEXTR("阴茎/肉棒")%的根部也%TEXTR("吞了下去/吸了进去")%、不停地活动腰部，因为子宮口和马眼的%TEXTR("湿吻/接吻/碰触")%%TEXTR("在享受着/在品味着/在渴求着")%……
			ENDSELECT
		ENDIF
	ENDIF

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

;-------------------------------------------------
;刻印変動をトリガーにした口上
;刻印変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_MARKCNG_K32, 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_K32
#DIM MEMO_LINECOUNT
;初期は表示されないようにしてあるため、書いた後はRETURN 0を消す
;RETURN 0

MEMO_LINECOUNT = LINECOUNT
$RYOKO_SHOOT_LP1

; 挿入中
IF INSERT("挿入")
	IF INSERT("Ｖ挿入")
		; 恋慕
		IF TALENT:恋慕
			IF COND("危険日") && !TEQUIP:PLAYER:避孕套
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW, @"「今天是%CNAME("危険日")%_BH_　说过了、吧_BH_」"
						CALL PRINT_STRW, @"「但还是%TEXTR("不带套/什么都不做")%_BH_　%CNAME("子宮")%%TEXTR("在被玩弄着/在被强吻着/在被侵犯着")%_BH_」"
						CALL PRINT_STRW,  "「～～～～っ_BH_BH_BH_」"
						PRINTFORMW %CNAME("玲子")%为了不让%CALLNAME:PLAYER%的阴茎被拔出来，用腿缠住了腰……
				ENDSELECT
				SIF LINECOUNT - MEMO_LINECOUNT
					RETURN 1
			ENDIF
			IF !TEQUIP:PLAYER:避孕套
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW, @"「真是的_BH_　这么_BH_　%TEXTR("玩弄/欺负")%゛_BH_」"
						CALL PRINT_STRW, @"「可以的っ_BH_　所以在里面%TEXTR("射出来/biubiu的出来/中出")%也可以的_BH_」"
				ENDSELECT
				SIF LINECOUNT - MEMO_LINECOUNT
					RETURN 1
			ENDIF

			; 汎用
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「哦゛っ_BH_　哦゛っ_BH_　哦゛っ_BH_　哦゛っ_BH_」"
					CALL PRINT_STRW,  "「哦゛啊゛啊啊啊゛啊゛っ_BH_　里面゛_BH_　里面要去了_BH_」"
			ENDSELECT

			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
			GOTO RYOKO_SHOOT_LP1
		ENDIF

		; 避孕套ハメ
		IF TEQUIP:PLAYER:避孕套
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
		ENDIF

		; ナマハメ
		IF !TEQUIP:PLAYER:避孕套
			IF CEVENT("調教：外出し約束")
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STR,  "「呜_BH_　啊_BH_　那、那个_BH_　要射了吗？_BH_　要射出来了吗？_BH_」_W"
						CALL PRINT_STR,  "「约定、还记得_BH_　的、吧？_BH_　啊っ_BH_　里面、里面_BH_　里面、嗯唔_BH_」_W"
					CASE 1
						CALL PRINT_STR,  "「哦っ_BH_　哦っ_BH_　哦っ_BH_　呜呜ー_BH_　呜ー_BH_」_W"
						CALL PRINT_STR, @"「那、那个_BH_　%CNAME("精液")%、没有関系吧？_BH_　%CNAME("中出し")%、没有吧？_BH_」_W"
						CALL PRINT_STR,  "「约……定_BH_　因为有约定的_BH_　里面_BH_　里面_BH_　呜呜_BH_」_W"
				ENDSELECT
			ENDIF
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1

			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「呜～_BH_　哦～_BH_」_W"
					CALL PRINT_STR, @"「%TEXTR("射出来/社出来")%……_BH_　%CNAME("オマンコ")%%CNAME("精液")%都射进来……っ_BH_」_W"
				CASE 1
					CALL PRINT_STR, @"「呜_BH_　呜_BH_　啊_BH_　要出来了吗？　%CNAME("精液")%、biubiu的_BH_　%TEXTR("出来/粗来")%吗？_BH_」_W"
					CALL PRINT_STR, @"「……%TEXTR("快点/快点给我")%_BH_　就这样_BH_　就这样在里面_BH_　biu的_BH_　出来_BH_」_W"
				CASE 2
					CALL PRINT_STR,  "「哦ー……_BH_　哦哦ー……_BH_」_W"
					CALL PRINT_STR, @"「真是的……%TEXTR("射出来/社出来")%……_BH_　射出来嘛……_BH_　在里面也可以_BH_　%CNAME("精液")%都射出来……_BH_」_W"
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1

	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	IF INSERT("Ａ挿入")
		; 未対応
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「哦っ_BH_　哦っ_BH_　哦っ_BH_　哦っ_BH_」_W"
			CALL PRINT_STR, @"（冲刺_BH_　在冲刺着_BH_　%CNAME("阴茎")%已经做好%CNAME("射精")%的准备了_BH_）_W"
	ENDSELECT

ENDIF

; 汎用(射精方法を問わない)
SELECTCASE RAND:5
	CASE 0
		CALL PRINT_STR, @"（啊……_BH_　%CNAME("阴茎")%%TEXTR("一跳一跳/一颤一颤")%的……_BH_）_W"
		CALL PRINT_STR, @"（要射了吗？　%CNAME("精液")%要射出了？　要出来了吧？_／／／_）_W"
	CASE 1
		CALL PRINT_STR, @"（啊……_BH_　好厉害_BH_　%CNAME("阴茎")%要把%CNAME("精液")%射出来这种事情可以清楚的感觉到……_BH_）_W"
		CALL PRINT_STR, @"（%TEXTR("黏黏的/黏答答的")%%CNAME("精液")%、从%TEXTR("睾丸/袋子")%里面要出来了……_／／／_）_W"
ENDSELECT

SIF LINECOUNT - MEMO_LINECOUNT
	RETURN 1
GOTO RYOKO_SHOOT_LP1

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

MEMO_LINECOUNT = LINECOUNT
$RYOKO_SAMEN_EX_LP1

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
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
		CALL PRINT_STRW,  "「ぁ_BH_　ぅ_BH_　う、うわぁ……_BH_」"
		CALL PRINT_STRW,  "（すごい_BH_　胸部の間でおちんちんびくびく震えてる……_BH_）"
		CALL PRINT_STRW,  "（あつくて、べっとりしたのが……_BH_　びゅぅ、びゅぅ_BH_　って胸部の谷間に溜まってる……_BH_）"
		CALL PRINT_STRW,  "「いっぱい……出てるわね……_BH_」"
		CALL PRINT_STRW,  "（せーえきのにおい、すっごい……_BH_　胸部がせーえきでにおいづけされちゃうわ……_BH_）"
		PRINTFORMW 结束了可以拨開柔软而有力的胸部压力的射精，从%CNAME("玲子")%的乳沟中拔出阴茎。……
		CALL PRINT_STRW,  "「すごい……_BH_　精液、こんなにこびりついてる……_BH_」"
		PRINTFORMW %CNAME("玲子")%開心地抓住两边的乳房，把乳沟撑開，吐出的精液并没有流下来，而是在乳房之间挂着几条黏黏的白色粗桥似的线……
		CALL PRINT_STRW, @"「%CNAME("一人称")%の胸部、そんなに気持ちよかったの……？」"
		PRINTFORMW %CNAME("玲子")%红着脸嘟囔着，害羞地揉搓着自己的胸部，咕嘟咕嘟地搅拌着堆积在山谷里的精液……
		CALL PRINT_STRW,  "（やだ……_BH_　すごいにちゃにちゃしてる……_BH_）"
		CALL PRINT_STRW,  "（胸部に……この子の精液のにおい、带污迹的付いちゃうわ……_BH_BH_BH_）"
		RETURN 1
	ENDIF

	IF COND("危険日")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "（呜、呜哇……_BH_　射出来好多……_BH_）_W"
				CALL PRINT_STR, @"（胸部的里面……biuー_BH_　biuー_BH_　的射出%CNAME("精液")%……_BH_）_W"
				CALL PRINT_STR,  "「…………哈啊_／／／_」_W"
				CALL PRINT_STR,  "「胸部感觉好像要怀孕了……_／／／_」_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「真是的_BH_　射出来这么多……_／／／_」_W"
			CALL PRINT_STR, @"「%CNAME("一人称")%的欧派、可不是%CNAME("二人称")%的飞机杯哦？_／／／_」_W"
			PRINTFORMW 说着说着%CNAME("玲子")%为了挤出残留在竿上的精液，继续隔着胸部刺激阴茎……
		CASE 1
			CALL PRINT_STR,  "「好了、biu_BH_　biu_BH_」_W"
			CALL PRINT_STR, @"「……多%TEXTR("飞溅出来吧/射出来吧")%_BH_」_W"
	ENDSELECT

	;奉仕精神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 可能是察觉到了射精的迹象，%CNAME("玲子")%的阴道猛地抱住阴茎……
		CALL PRINT_STR,  "（啊っ_H_　什么っ_H_　这是什么っ_H_）_W"
		CALL PRINT_STR,  "（肉棒_H_　肉棒在一震一震的_H_　小穴_H_　在小穴的里面_H_　一颤一颤的_H_）_W"
		CALL PRINT_STR,  "（难道_H_　难道说_H_　射精_H_　是、射精？_H_　从肉棒里面、精液_H_　会射出精液吗？_H_）_W"
		CALL PRINT_STR,  "「哦_H_　哦哦っ_H_　哦吼_H_」_W"
		; 一応確認
		IF !TEQUIP:PLAYER:避孕套
			CALL PRINT_STR,  "（不、不拔出来的话_H_　没、没有带套、射精、精液_H_　精液、要在外面_H_）_W"
		ENDIF
		CALL PRINT_STR,  "「呜_H_　呜呜呜呜呜呜呜っ_H_H_H_」_W"
		IF CONDS("体位") == "騎乗位"
			PRINTFORMW %CNAME("玲子")%发出甜蜜的呻吟，把腰下沉、把%CALLNAME:PLAYER%的阴茎含住用画圆的动作来享受快乐……
		ELSE
			PRINTFORMW %CNAME("玲子")%用腿缠住%CALLNAME:PLAYER%的腰，寻求着更深的抽送而倾注力量……
		ENDIF
		CALL PRINT_STR,  "「不行_H_　不要_H_　里面、里面是不行的_H_　中出是不行的_H_H_H_」_W"
		CALL PRINT_STR,  "（不要不要不要不要_HH_　里面是不行的_H_　求你了_H_　会怀上孩子的_H_）_W"
		PRINTFORMW 与甜美的声音的拒绝相反，%CNAME("玲子")%的阴道紧勒着%CALLNAME:PLAYER%的阴茎不让她逃掉……
		PRINTFORMW 用阴茎的前端感觉到的“咔嗒”的触感，是%CNAME("玲子")%的子宫口附在马眼上的吻吗。
		CALL PRINT_STR,  "「啊啊_H_　不行っ_H_　是不行的っ_H_　不要っ_H_」_W"
		CALL PRINT_STR,  "（不行_H_　不要_H_　中出是不行的_H_）_W"
		PRINTFORMW 那张荡然的脸，不是在哀求，而是在等待雌性的欢愉。
		CALL PRINT_STR,  "「啊っ_H_　啊啊っ_H_　呜、呜呜呜呜呜呜呜呜呜_BH_」_W"
		PRINTL
		CALL PRINT_STR,  "ショッキング粉紅_　　　　びゅるっ_H_　　　_ショッキング粉紅_びゅるるるるるっ_BHH_W"
		PRINTL
		CALL PRINT_STR,  "「哦……_H_　哦吼……_H_　哦っ_H_　哦哦哦っ_H_」_W"
		PRINTFORMW 把精液洒在%CNAME("玲子")%的最里面，%CNAME("玲子")%一边发出呆然而又甜蜜的声音一边为了不放过一滴精液而勒住阴茎。。
		CALL PRINT_STR,  "「出来了……_H_　明明都唆了不行的……_H_　小穴被精液给强暴了……_H_」_W"
		CALL PRINT_STR,  "（小穴里面好烫……_H_　黏答答的精子_H_　在里面散開来寻找卵子了_H_）_W"
		CALL PRINT_STR,  "「笨蛋……_H_　笨蛋……_BH_」_W"
		CALL PRINT_STR,  "（明明是第一次的H……_H_　被这样年轻的孩子……_H_　被精子给标记了……_H_）_W"
		CALL PRINT_STR,  "「哦ー……_H_　哦……_H_」_W"
		PRINTFORMW %CNAME("玲子")%满脸陶醉地品尝着吐出胎内的精液……
		CALL PRINT_SELECT,  "对不起/没有拔出来"
		CALL PRINT_STR,  "「诶……？　啊……_BH_」_W"
		PRINTFORMW %CNAME("玲子")%可能是终于意识到是自己主动地含着%CALLNAME:PLAYER%的阴茎没有放開，发出了惊讶的声音，眼睛里隐约恢复了理性的色彩。
		CALL PRINT_STR, @"（骗人……%CNAME("一人称")%、自己做了……那么羞耻的事情……_H_）_W"
		CALL PRINT_STR,  "（虽然是第一次做……_H_　但这样的话不是跟痴女没什么两样吗……っ_H_）_W"
		CALL PRINT_STR,  "（比、比起这个不快点回答的话……！　虽然结果是中出……中、中出_H_　虽然但是！　这个不是自己的本意）_W"
		CALL PRINT_STR,  "「那个……如果是中出这件事的话、不用在意也可以、哟？」_W"
		CALL PRINT_STR,  "「不是_H_　那个、不行_H_　虽然是这么说了……那个是play啦」_W"
		IF TALENT:MASTER:男性
			CALL PRINT_STR,  "「男孩子的话、这样会兴奋起来……不是吗？」_W"
		ELSEIF TALENT:MASTER:扶她
			CALL PRINT_STR,  "「听说男孩子的话、这样会兴奋起来……扶她的话……也是这样的吧？」_W"
		ENDIF
		CALL PRINT_STR,  "（是征服欲的一种吧……实际上、子宮是屈服了_H_　这样的感觉……_H_）_W"
		CALL PRINT_STR, @"（……额、不对、不是这样的%CNAME("玲子")%。错觉错觉）_W"
		CALL PRINT_STR,  "（这个说到底也是为了任务……为了监视这孩子、只是为了建立亲密的関系而以身相许而已……_H_）_W"
		CALL PRINT_STR,  "（虽然舒服是……真的……_BH_　但是、任务比较重要。这样的、）_W"
		CALL PRINT_STR,  "（这样……热热的、硬硬的、元气满满的肉棒……怎么可能会输给它……_BHH_）_W"
		PRINTFORMW %CNAME("玲子")%害羞地擦着自己的下腹部……
		CALL PRINT_STR,  "「是这附近吧……_H_　黏黏的热热的、有一种黏糊糊的感觉……_H_」_W"
		CALL PRINT_STR,  "「射出来很多啊……_H_　这样的还是第一次……那个、久违的、对、因为好久没做过了」_W"
		CALL PRINT_STR,  "「没有多少……完全没有……讨厌什么的……_H_　应该说是放荡吗……_H_」_W"
		CALL PRINT_STR,  "「啊……抱歉。一直就这么自说自话……嗯っ_H_　……呜_H_」_W"
		PRINTFORMW 终于舒缓了阴道压力的%CNAME("玲子")%战战兢兢地想把阴茎从肉壶里拔出来，但是在拔出一半左右的时候，又害羞地再次把%CALLNAME:PLAYER%的阴茎彻底吞了下去。。
		PRINTFORMW 纤细的肉褶紧紧地抱住整个阴茎……
		CALL PRINT_STR,  "「呜_H_　呜_H_　对……对不起？」_W"
		CALL PRINT_STR,  "「虽然想要拔出来……_H_　但、这个好热……_H_　拔出来的话、肚子会变冷的……_H_」_W"
		CALL PRINT_STR,  "「所以……就这样继续放着……可以吗？_／／／_」_W"
		PRINTFORMW 一边用娇媚的眼神甜蜜地低语，%CNAME("玲子")%的阴道有节奏地蠕动着，像要再来一发一样刺激着%CALLNAME:PLAYER%的阴茎……
		PRINTFORMW 好像离下次射精也不远了……

		; フラグのセット
		IF !TEQUIP:PLAYER:避孕套
			CALL SET_CEVENT, "初回：Ｖ中出し"
			SIF COND("危険日")
				CALL SET_CEVENT, "初回：危険日Ｖ中出し"
		ENDIF
		RETURN 1
	ENDIF

	; ２回目以降

	; 危険日
	IF COND("危険日")
		IF TALENT:恋慕
			; 汎用
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「呜_BH_　啊_BH_　哦っ_BH_　呜っ_BH_」"
					CALL PRINT_STRW,  "「呜～～～～_BH_BH_BH_　啊゛～～～～_BH_BH_BH_」"
					CALL PRINT_STRW, @"（出来了……_BH_　%CNAME("オマンコ")%被种下种子了……_BH_）"
					CALL PRINT_STRW,  "「……笨蛋…………_BH_」"
					IF TALENT:出産経験
						CALL PRINT_STRW,  "「不是会怀孕了吗……真是的……_BH_　呜_BH_」"
					ELSE
						CALL PRINT_STRW,  "「不是会怀上小宝宝的吗……真是的……_BH_　呜_BH_」"
					ENDIF
			ENDSELECT
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
			GOTO RYOKO_SAMEN_EX_LP1
		ENDIF

		IF CEVENT("調教：外出し約束") && !TEQUIP:PLAYER:避孕套
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「啊_BH_　呜_BH_　讨、讨厌っ_BH_　啊っ_BH_　讨厌、这个不要、呜呜っ_BH_」_W"
					CALL PRINT_STR, @"「出来了_BH_　%CNAME("阴茎")%biuー_BH_　biuー_BH_　的射出来了_BH_」_W"
					CALL PRINT_STR,  "「不行_BH_　不要_BH_　明明、明明做了约定的_BH_　明明说了不行的_BH_」_W"
					CALL PRINT_STR,  "「笨蛋笨蛋笨蛋_BH_　呜ー_BH_　啊、啊啊……_BH_　呜呜_BH_」_W"
					PRINTFORMW %CNAME("玲子")%缠着%CALLNAME:PLAYER%腰的腿用力的同时享受着胎内扩散的白浊液……
				CASE 1
					CALL PRINT_STR,  "「啊_BH_　嗯っ_BH_　呜_BH_　哦っ_BH_　呜ー……_BH_　……？」_W"
					CALL PRINT_STR, @"「啊……不、不要っ_BH_　出来了っ_BH_　%TEXTR("biubiu的/一下子/突然")%在里面射出来了_BH_」_W"
					CALL PRINT_STR, @"「不要……_BH_　笨蛋……_BH_　%TEXTR("不要在里面射出来/在外面射出来")%不是说好的吗……っ_BH_」_W"
					PRINTFORMW %CNAME("玲子")%虽然眼含泪水地指责，但那两只脚却抓住%CALLNAME:PLAYER%的腰决不松開。
					CALL PRINT_STR,  "「哦_BH_　哦哦ー……_BH_　ぅ_BH_」_W"
					CALL PRINT_STR, @"（不要……_BH_　被%CNAME("中出し")%……_BH_　明明是%CNAME("危険日")%、被%TEXTR("无责任的/不考虑后果的/放弃思考的/任性的")%%CNAME("中出し")%……_BH_）_W"
					CALL PRINT_STR, @"「哦哦ー_BH_　哦ー……_BH_　%TEXTR("热热的/烫烫的")%……_BH_　不要……_BH_　拔出去……_BH_　不要这样钻来钻去地拿出来……_BH_」_W"
					CALL PRINT_STR, @"「%TEXTR("会怀上的/会怀孕的/会怀上孩子的")%…………_BH_BH_BH_」_W"
					PRINTFORMW 像呓语一样低语的%CNAME("玲子")%的小穴，无数柔软而有弹性的肉褶贪婪地蠕动着，想把阴茎残留的精液全部吸出来……
			ENDSELECT

			IF LINECOUNT - MEMO_LINECOUNT
				CALL SET_CEVENT, "初回：危険日Ｖ中出し"
				RETURN 1
			ENDIF
			GOTO RYOKO_SAMEN_EX_LP1
		ENDIF

		IF TEQUIP:PLAYER:避孕套
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「哦っ_BH_　哦哦ーっ_BH_　哦呜っ_BH_」_W"
					CALL PRINT_STR, @"（%TEXTR("好厉害/好腻害")%_BH_　%CNAME("オマンコ")%的里面想被%TEXTR("biubiu的/灌满/中出")%_BH_）_W"
					CALL PRINT_STR, @"（%TEXTR("避孕套")%透过来的%TEXTR("精液/白浊液体/种子牛奶/白色种子")%、好热……）_W"
					CALL PRINT_STR, @"（被这样……_BH_　如果被这样精神的%TEXTR("精液/白浊液体/种子牛奶/白色种子")%、%TEXTR("中出的话/直接进入子宫的话")%%TEXTR("绝对/肯定")%%TEXTR("会怀孕的/会怀上的/会怀上孩子的")%……_BH_）_W"
					CALL PRINT_STR, @"「好腻害……_BH_　明明带着%CNAME("避孕套")%……好像也还是要怀上孩子……_BH_」_W"
			ENDSELECT
		ELSE
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「哦っ_BH_　哦哦っ_BH_　哦～っ_BH_BH_BH_」_W"
					CALL PRINT_STR, @"（讨、讨厌_BH_　出来了_BH_　里面被%CNAME("精液")%%TEXTR("射出来好多/biubiu的射了/射满了/灌满了/中出了")%_BH_）_W"
					CALL PRINT_STR, @"「%TEXTR("不行/不要")%_BH_　不能射出来_BH_　明明是%TEXTR("危险日/会怀上的日子")%_BH_」_W"
					CALL PRINT_STR, @"「%TEXTR("黏黏的/黏糊糊的")%_BH_　明明%TEXTR("满满的/新鲜的/热热的")%%CNAME("精液")%在%CNAME("子宮")%里面%TEXTR("出来/中出")%%TEXTR("是不行的/是不能的")%_BH_」_W"
					CALL PRINT_STR,  "「哦っ_BH_　呜っ_BH_　哦哦っ_BH_　～～～～_BH_BH_BH_　不……不行……_BH_BH_BH_」_W"
					PRINTFORMW 一边说着%CNAME("玲子")%一边自己细微地摇动着腰部，直到最后一团精液从阴茎中吐出……
				CASE 1
					CALL PRINT_STR, @"「%TEXTR("不行/不要/停下来")%っ_BH_　不要っ_BH_　里面是不行的_BH_」_W"
					CALL PRINT_STR,  "「拔出去っ_BH_　快点拔出去っ_BH_　不要不要不要っ_BH_BH_BH_」_W"
					PRINTFORM %CNAME("玲子")%虽然哭丧着脸恳求着、
					IF CONDS("体位") == "騎乗位"
						PRINTFORM 跨在%CALLNAME:PLAYER%腰上的%CNAME("玲子")%把体重压在两个人的连接处，不允许有丝毫的间隙。
					ELSE
						PRINTFORM 缠在腰上的%CNAME("玲子")%的腿紧紧地勒紧，绝对不想放開。
					ENDIF
					PRINTFORMW 所以想拔出一点点都不行……
					CALL PRINT_STR, @"「今天明明是%CNAME("危険日")%……_BH_　所以是不行的……_BH_　在里面是不行的……っ_BH_　っ、呜～～～～_BH_BH_BH_」_W"
				CASE 2
					CALL PRINT_STR,  "（啊_BH_　里面_BH_　在里面射出来了_BH_　满满的射出来了_BH_）_W"
					CALL PRINT_STR,  "「不、不行、不行っ_BH_　里面是不行的っ_BH_　不能在里面射出来っ_BH_」_W"
					CALL PRINT_STR, @"「明明今天是不行的っ_BH_　因为是%CNAME("危険日")%っ_BH_　在%CNAME("危険日")%的%CNAME("オマンコ")%里面%TEXTR("新鲜的/热热的")%%CNAME("精液")%%TEXTR("出来了/被射满了/被灌满了")%っ_BH_BH_BH_」_W"
					CALL PRINT_STR,  "「呜っ_BH_　～～～～_BH_　呜呜ー_BH_　……好烫……扩散開了……_BH_」_W"
					CALL PRINT_STR, @"（啊啊……_BH_　在%CNAME("危険日")%被%CNAME("中出し")%了……_BH_　变成%TEXTR("做小孩的/种种子")%的H了……_BH_BH_BH_）_W"
			ENDSELECT
			; RETURN は直下にあるのでCEVENTのセットだけ
			SIF LINECOUNT - MEMO_LINECOUNT
				CALL SET_CEVENT, "初回：危険日Ｖ中出し"
		ENDIF
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	IF MARK:屈服刻印 >= 2
		IF TEQUIP:PLAYER:避孕套
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「……呜_BH_　啊……_BH_　嗯啊_BH_」"
					CALL PRINT_STRW, @"（好厉害_BH_　在肚子的里面%TEXTR("一抖一抖的/一颤一颤的")%%TEXTR("乱来/弹跳")%……_BH_）"
					CALL PRINT_STRW, @"（被透过避孕套的%CNAME("精液")%_BH_　一直这么撞击着……好像、要去了……呜_BH_）"
					CALL PRINT_STRW,  "「啊～～～～_BH_BH_BH_　哦哦～～～～_BBH_」"
					CALL PRINT_STRW,  "「……呜゛呜_BH_　对不起、对不起_BH_　明明射出来这么多_BH_　让你们、白出来一趟……_BH_」"
				CASE 1
					CALL PRINT_STRW,  "「啊゛っ_BH_　对不起っ_BH_　对不起っ_BH_BH_BH_」"
					CALL PRINT_STRW, @"「出来好多_BH_　明明在%CNAME("オマンコ")%的里面%TEXTR("biubiu的/一下子/全部")%出来了_BH_」"
					CALL PRINT_STRW, @"「因为%CNAME("避孕套")%……_BH_　让他们、全都、白跑一趟_BH_BH_BH_」"
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	IF TEQUIP:PLAYER:避孕套
		; 避孕套有
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「………………_HH_HH_HH_」_W"
				CALL PRINT_STR, @"（呜啊……_H_　又在里面%TEXTR("中出/射出来")%了……_H_）_W"
				CALL PRINT_STR, @"（就算透过%CNAME("避孕套")%……也知道……_H_）_W"
			CASE 1
				CALL PRINT_STR,  "「啊……_H_　射出来好多……_H_」_W"
				CALL PRINT_STR, @"「明明戴着%CNAME("避孕套")%……_H_　呜……_H_　呜呜_H_」_W"
				CALL PRINT_STR,  "（如果不戴的话……会射出来更多吗……_H_）_W"
			CASE 2
				CALL PRINT_STR,  "「呜ー_H_　呜ー……_H_」_W"
				CALL PRINT_STR, @"（好厉害……_H_　就算隔着%CNAME("避孕套")%也能感受到%TEXTR("在biubiu的/在一下子/全部都")%出来了……_H_）_W"
		ENDSELECT
	ELSE
		; 生
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「啊ーっ_H_　不行、不要_H_　里面是不行的_H_」_W"
				PRINTFORMW 就算发出拒绝要求的%CNAME("玲子")%为了不让射精中的%CALLNAME:PLAYER%的肉棒逃走\@ CONDS("体位") != "騎乗位" ? 勾住缠在腰上的腿 # 把体重压在两个人的结合部位 \@……
				CALL PRINT_STR, @"「不要……_H_　在出来……_H_　好多、热热的黏黏的%CNAME("精液")%在里面出来了……_H_」_W"
				CALL PRINT_STR, @"（又被%CNAME("中出し")%了……_H_　被比自己小的孩子冲昏了頭脑、重要的地方被%TEXTR("标记/染上气味")%了……_H_）_W"
				CALL PRINT_STR,  "「呜呜……_H_　不要……_H_　不要……_H_」_W"
				PRINTFORMW %CNAME("玲子")%一边垂頭丧气地呻吟，一边有节奏地勒紧阴道，想挤掉尿道里残留的精液……
			CASE 1
				CALL PRINT_STR,  "「呜ー_H_　呜呜ー……っ_H_」_W"
				CALL PRINT_STR,  "（热热的又……_H_　在里面……_H_）_W"
				CALL PRINT_STR,  "「笨蛋_H_　笨蛋……_H_」_W"
			CASE 2
				CALL PRINT_STR,  "「哦_H_　哦哦_H_　呜_H_」_W"
				CALL PRINT_STR,  "（又……_H_　这样射出来好多……_H_）_W"
				CALL PRINT_STR, @"（现在的孩子……_H_　都这样%TEXTR("毫无顾虑的/无责任的/不考虑就")%%CNAME("中出し")%吗……？_H_）_W"
				CALL PRINT_STR, @"「真是的……_H_　%TEXTR("射出来太多了/太没有顾虑了")%……_H_」_W"
			CASE 3
				CALL PRINT_STR,  "「不要……_H_　太多了_H_　热热的出来的太多了……_H_」_W"
				CALL PRINT_STR, @"（%TEXTR("黏黏的/黏答答的")%%CNAME("精液")%……_H_　在肚子的里面……ぁ）_W"
				CALL PRINT_STR,  "「嗯、不行……_H_　不能拔出去……_H_」_W"
				PRINTFORMW 如果把射精后的阴茎拔出来、%CNAME("玲子")%\@ CONDS("体位") != "騎乗位" ? 会紧紧缠住%CALLNAME:PLAYER%的腰 # 重新坐好 \@再次用小穴叼住阴茎……
				CALL PRINT_STR,  "「如果拔出去的话……肚子会变冷的……_H_」_W"
				CALL PRINT_STR,  "「再稍微……这样取取暖……_H_」_W"
				CALL PRINT_STR,  "（哈啊……_H_　好温暖……_H_　好舒服……_H_）_W"
				PRINTFORMW %CNAME("玲子")%吞下了%CALLNAME:PLAYER%的阴茎用自己的下腹部一边疼爱着一边闭上眼睛，幸福地羞涩着……
		ENDSELECT
	ENDIF
ELSEIF SHOOT("Ａ中出し")
	;初めて
	;IF FIRST_EV("絶頂：Ａ中出し") == 0
	;	PRINTFORMW
	;ENDIF

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「噢噢噢噢～_BH_　啊～_BH_　哦゛～_BH_」"
			CALL PRINT_STRW, @"（在%CNAME("射精擬音")%……_BH_　%CNAME("肛門")%里面在被注射%CNAME("精液")%……_BH_）"
	ENDSELECT

;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
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
ELSE
	PRINTFORMW
ENDIF
SIF LINECOUNT - MEMO_LINECOUNT
	RETURN 1
GOTO RYOKO_SAMEN_EX_LP1

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

RETURN 1

;-------------------------------------------------
;イベント口上集
;-------------------------------------------------
@KOJO_EVENT_K32, ARGS
#DIM MEMO_LINECOUNT

$RYOKO_EVE_LP1
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
		; 汎用
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「说这种话……不要逞强」_W"
				CALL PRINT_STR, @"「啊啦、不是又变的这么%TEXTR("硬/坚硬")%了吗……_BH_」_W"
				CALL PRINT_STR,  "「想再稍微多做一点的话……会留下来的……_BH_BH_BH_」_W"
			CASE 1
				CALL PRINT_STR, @"「真是的……_／／／_　明明这么一副%TEXTR("欲求不满/想要")%表情在说什么……_／／／_」_W"
				CALL PRINT_STR, @"「好啦_BH_　会留下来的、再多做一点%TEXTR("工口的/色情的")%事情吧？_BH_」_W"
		ENDSELECT
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
CASE "Ｖ避孕套装着"
	;挿入指令
	IF TRAIN_GENRE("挿入", SELECTCOM)
		; 初挿入
		IF !CEVENT("初回：Ｖ挿入")
			CALL PRINT_STR,  "「啊……呜……要、要插进来吗……？」_W"
			CALL PRINT_STR,  "「不、不是说不行。经验可是很丰富的哦？」_W"
			CALL PRINT_STR, @"（……虽然真正的%CNAME("阴茎")%是没有经验的）_W"
			CALL PRINT_STR,  "（必、必须装出从容的样子来掌握主导权……没関系的、说到底只是一个孩子。已经没有好害怕的了）_W"
			CALL PRINT_STR,  "「撒、一起变得舒服吧……？」_W"
			PRINTFORMW %CNAME("玲子")%用手扶着%CALLNAME:PLAYER%的%TEXTS("阴茎", PLAYER)%、把前端对着自己的%TEXTS("阴部")%……
			CALL PRINT_STR,  "（呜……好热……_／／／_）_W"
			CALL PRINT_STR, @"（而且比平时的震动棒还要大……插进%CNAME("オマンコ")%真的没有関系吗……？）_W"
			CALL PRINT_STR,  "（而、而且如果就这么插进去的话……不是就会变成无套的了吗……！？）_W"
			CALL PRINT_SELECT, "不带套可以吗？/就这样插进去可以吗？"
			CALL PRINT_STR,  "「…………っ_／／／_」_W"
			CALL PRINT_STR,  "「当、当然。套子什么的不是很碍事吗？」_W"
			CALL PRINT_STR,  "「不要在意这些细节、变得舒服起来吧」_W"
			CALL PRINT_STR,  "（现在的孩子是这样子的感觉吧……？）_W"
			CALL PRINT_STR,  "（把常识强加于人，会让人怀疑的……）_W"
			CALL PRINT_STR,  "（虽然是无套做、说不定也不会突然在里面中出……）_W"
			CALL PRINT_STR,  "（而、而且还有任务……不能这么在意……_／／／_）_W"
			CALL PRINT_STR,  "「好啦……要让人焦急到什么时候啊」_W"
			CALL PRINT_STR,  "「一起……做些学生不能做的事吧？_／／／_」_W"
			SIF TEQUIP:PLAYER:避孕套
				CALL SETFLAG, "取消避孕套", PLAYER
			RETURN 1
		ENDIF

		; 2回目以降

		; 調教中に避孕套が尽きた
		IF CEVENT("調教：避孕套ハメ") && ITEM:避孕套 == 0
			IF CEVENT("初回：えっち中に避孕套が尽きた")
				CALL PRINT_STR, @"「啊……等一下_BH_　戴上%CNAME("避孕套")%……啊啦？」_W"
				CALL PRINT_STR, @"（讨厌……%CNAME("避孕套")%已经……_BH_）_W"
				CALL PRINT_STR,  "「该怎么办……套子、已经用完了」_W"
				CALL PRINT_STR,  "（没办法了今天就做到……不能这么说吧）_W"
				CALL PRINT_STR,  "（……还是、那么大……_BH_　……没、没办法了）_W"
				CALL PRINT_STR,  "「真是的……不要用那种眼神看嘛……_BH_」_W"
				PRINTFORMW %CNAME("玲子")%焦急地抚摸着%CALLNAME:PLAYER%的阴茎的龟頭，害羞地咬着嘴唇，把它塞进了滴着蜜液的阴道里。
				CALL PRINT_STR,  "（啊_BH_ 好热_BH_　无套肉棒好热_BH_）_W"
				CALL PRINT_STR,  "「呜呜_BH_　啊……_BH_　嗯呜_BH_」_W"
				PRINTFORMW 龟頭嗖地钻进了%CNAME("玲子")%的肉壶里……
				CALL PRINT_STR,  "「下次……要多买点套子哦……_BH_」_W"
				IF COND("危険日")
					CALL PRINT_STR, @"「还有……%CNAME("一人称")%、是%CNAME("危険日")%是……_BH_」_W"
					CALL PRINT_STR,  "「不要得意忘形的……_BH_　在里面biu_BH_　biu的_BH_　射出来哦……？_／／／_」_W"
					CALL SET_CEVENT, "調教：外出し約束"
				ENDIF
				CALL PRINT_STR,  "（啊……_BH_　但是、果然……_BH_）_W"
				CALL PRINT_STR,  "（不带套的肉棒……好像很舒服……_BH_BH_BH_）_W"
				CALL PRINT_STR,  "「哦……_BH_　嗯呜_BH_　啊呜_BH_　哦_BH_」_W"
				PRINTFORMW %CNAME("玲子")%闭上眼睛，尽情感受阴茎侵入自己胎内的感觉……
				CALL SET_CEVENT, "初回：えっち中に避孕套が尽きた"
				RETURN 1
			ENDIF

			IF COND("危険日")
				IF !CEVENT("調教：危険日避孕套ゼロ生性交")
					SELECTCASE RAND:5
						CASE 0
							CALL PRINT_STR, @"「讨厌、难道说%CNAME("避孕套")%用完了……？」_W"
							CALL PRINT_STR,  "「呜_BH_　真、真困扰…………_／／／_」_W"
							PRINTFORMW %CNAME("玲子")%困惑地瞄了瞄%CALLNAME:PLAYER%的阴茎……
							CALL PRINT_STR,  "（又变得那么大……_BH_　完全没有满足的样子……_BH_）_W"
							CALL PRINT_STR, @"「……今天是%CNAME("危険日")%……所以在里面中出是%TEXTR("不行/不可以")%的……？_／／／_」_W"
						CASE 1
							CALL PRINT_STR, @"（啊……_BH_　好厉害、明明射出来那么多_BH_　还是这么_BH_　%TEXTR("硬硬的/坚硬")%_BH_）_W"
							CALL PRINT_STR, @"「那个、等一下……_BH_　%CNAME("避孕套")%、%TEXTR("没有剩下的了/没有了")%已经……_BH_」_W"
							CALL PRINT_STR,  "「在听吗？　停下、不行、不要……_BH_」_W"
							PRINTFORMW 虽然%CNAME("玲子")%说着拒绝的话语、已经忍耐不了的%TEXTR("一颤一颤发抖的/漏出爱液的")%的小穴自说自话的蹭着%CALLNAME:PLAYER%的肉棒……
							CALL PRINT_STR, @"（啊啊_BH_　不行_BH_　被插入了_BH_　被无套的%TEXTR("肉棒/阴茎")%无责任插入了……っ_BH_　前端_BH_　前端插进来了_BH_）_W"
							PRINTFORMW %TEXTR("流出淫乱爱液的/湿的一塌糊涂的")%的小穴在被活塞着， %CNAME("玲子")%在%CALLNAME:PLAYER%眼前背过脸重复着浅而急促的呼吸……
							PRINTFORMW 稍微一伸腰，龟頭就惊人地干脆地钻进了%CNAME("玲子")%的肉壶里……
							CALL PRINT_STR,  "「呜_BH_　啊_BH_　不行……的……_BH_」_W"
							PRINTFORMW 一边用颤抖的声音说着，%CNAME("玲子")%一边怜爱地抚摸着吞下%CALLNAME:PLAYER%阴茎的下腹部……
							CALL PRINT_STR,  "「……呼ー_BH_　呼ー_BH_　呜_BH_」_W"
							CALL PRINT_STR, @"「在外面……射出来哦……_BH_　因为是%CNAME("危険日")%、所以……_BH_」_W"
							PRINTFORMW %CNAME("玲子")%一边用挤压般的蠕动勒紧阴道，一边叮嘱似的说道……
						CASE 2
							CALL PRINT_STR, @"「哈啊……_BH_　还要、%TEXTR("插进来/继续/做")%吗……？_／／／_」_W"
							CALL PRINT_STR, @"「不行……_BH_　那个、%CNAME("避孕套")%已经没有了……_BH_」_W"
							CALL PRINT_STR, @"「今天说过了是%CNAME("危険日")%吧？　%CNAME("避孕套")%都没有了、呐？_／／／_」_W"
							PRINTFORMW %CNAME("玲子")%一边这么说着、一边恋恋不舍地玩弄着%CALLNAME:PLAYER%的阴茎……
							CALL PRINT_STR,  "「好厉害……_BH_　还是这么硬……_BH_」_W"
							CALL PRINT_STR,  "「…………真让人没办法、真是的……_BH_」_W"
							CALL PRINT_STR, @"（最%TEXTR("浓的/容易让人怀孕的")%%CNAME("精液")%已经%TEXTR("没留下来/射出来")%了吧……_／／／_）_W"
							CALL PRINT_STR, @"「%TEXTR("在里面射出来是不行的/中出是不行的/约好了不能在里面射出来")%……_BH_BH_BH_」_W"
							CALL PRINT_STR,  "「啊_BH_　呜嗯_BH_　嗯っ_BH_　哦っ_BH_」_W"
					ENDSELECT
					IF LINECOUNT - MEMO_LINECOUNT
						CALL SET_CEVENT, "調教：外出し約束"
						CALL SET_CEVENT, "調教：危険日避孕套ゼロ生性交"
						RETURN 1
					ENDIF
					GOTO RYOKO_EVE_LP1
				ENDIF

				; 危険日に避孕套が尽きた状態で生性交をして、中出しされている
				IF EXP_GAIN("膣内精液経験")
					SELECTCASE RAND:5
						CASE 0
							CALL PRINT_STR,  "「啊……_BH_　什么_BH_　什么、啦……_BH_」_W"
							CALL PRINT_STR, @"「明明%CNAME("避孕套")%都没有了、怎么样都想%TEXTR("直接/无套")%%TEXTR("插入/插进来/危险日性交")%吗……_BH_」_W"
							CALL PRINT_STR, @"「%TEXTR("不要在里面中出/射在外面/不准中出")%就这么约好了……_BH_　那就%TEXTR("无套肉棒/直接")%%TEXTR("插进来吧/进来吧")%……_BH_」_W"
							CALL PRINT_STR, @"「明明这么……_BH_　%TEXTR("量大到/多的要")%_BH_　溢出来的%CNAME("精液")%都%TEXTR("射出来了/出来了/榨出来了")%……_BH_」_W"
							CALL PRINT_STR, @"「还要……%TEXTR("啪啪啪/嘭嘭嘭")%的吗……？　在%CNAME("危険日")%的%CNAME("オマンコ")%里面%TEXTR("用精液/用白浊液体/黏黏的精液")%%TEXTR("无责任中出吗/不考虑的中出吗")%……？_／／／_」_W"
							CALL PRINT_STR,  "「啊_BH_　讨厌_BH_　不要_BH_　明明都说了不要_BH_　插进来是不行的……_BH_」_W"
							IF TALENT:出産経験
								CALL PRINT_STR, @"「又要%TEXTR("怀孕/做出孩子/怀上/变成西瓜肚")%了……_BH_BH_BH_」_W"
							ELSE
								CALL PRINT_STR, @"「真的又要%TEXTR("怀孕了/做出孩子了")%……_BH_BH_BH_」_W"
							ENDIF
						CASE 1

					ENDSELECT
				; 危険日に避孕套が尽きた状態で生性交をしたが、外に出してくれた
				ELSE
					SELECTCASE RAND:5
						CASE 0
							CALL PRINT_STR, @"「真是的……_BH_　又%TEXTR("变硬了/是射精不足/做了")%……？」_W"
							CALL PRINT_STR,  "「真让人没办法……_BH_」_W"
							PRINTFORMW %CNAME("玲子")%苦笑着用温柔的声音说、自己把%TEXTR("适当地放松了的/蜜液溢出的")%的肉壶吞入了%CALLNAME:PLAYER%的肉棒……
							CALL PRINT_STR,  "「再说一遍……」_W"
							CALL PRINT_STR, @"「%TEXTR("在里面射出来是不行的/要射的时候要在外面")%哦……？_／／／_」_W"
						CASE 1
							CALL PRINT_STR,  "「又要插进来……？_／／／_　可以是可以……嗯_BH_」_W"
							CALL PRINT_STR, @"「因为是在%CNAME("危険日")%%TEXTR("不带套做/直接性交")%……_BH_　ぁ_BH_」_W"
							CALL PRINT_STR,  "「要遵守……_／／／_　约定哦……_BH_」_W"
						CASE 2
							CALL PRINT_STRW, @"「呜呜_BH_　又要做……？_BH_　%CNAME("危険日")%不带套、想要多做一点……？_BH_」"
							CALL PRINT_STRW,  "「啊……_BH_　呜_BH_　呜呜ー……_BH_」"
							CALL PRINT_STRW,  "（插进来了……_BH_　又要插进来了……_BH_）"
					ENDSELECT
				ENDIF

				SIF LINECOUNT - MEMO_LINECOUNT
					RETURN 1
				GOTO RYOKO_EVE_LP1
			ENDIF

			; 避孕套尽き生ハメ 汎用
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「啊啦……？　讨、讨厌、%CNAME("避孕套")%%TEXTR("没有剩下的/已经没有")%了……？」"
					CALL PRINT_STRW,  "「…………_BH_」"
					CALL PRINT_STRW,  "「真……真让人没办法、啊……_／／／_」"
					CALL PRINT_STRW,  "（没有确认套子的剩余量是自己不好……而且）"
					CALL PRINT_STRW, @"（%CNAME("阴茎")%、还是%TEXTR("那么硬硬的/那么涨涨的")%……_BH_　不帮忙、让它清爽一点的话……_BH_）"
					CALL PRINT_STRW, @"「%TEXTR("直接做/不带套做")%、吧……？_／／／_」"
			ENDSELECT
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
			GOTO RYOKO_EVE_LP1
		ENDIF

		; 既に已中出みの場合は無条件でナマになる
		IF EXP_GAIN("膣内精液経験")
			SIF TEQUIP:PLAYER:避孕套
				CALL SETFLAG, "取消避孕套", PLAYER

			IF COND("危険日")
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STR,  "「啊啊……_BH_　不行_BH_　都说了不行_BH_」_W"
						CALL PRINT_STR, @"「对%CNAME("危険日")%的%CNAME("オマンコ")%来说%TEXTR("直接做/不带套做/不带套肉棒")%是不行的_BH_」_W"
						CALL PRINT_STR, @"「已经进去了_BH_　在%CNAME("危険日")%%CNAME("オマンコ")%射出大量%CNAME("精液")%_BH_」_W"
						CALL PRINT_STR,  "「呜_BH_　呜呜ー！_BH_　呜哦哦_BH_　哦哦_BH_」_W"
					CASE 1
						CALL PRINT_STR,  "「又……又要做吗……？」_W"
						CALL PRINT_STR, @"「明明是不行的……对%CNAME("危険日")%%CNAME("オマンコ")%这么%CNAME("中だし")%……_BH_」_W"
						CALL PRINT_STR,  "「啊……_BH_　呜_BH_　呜ー_BH_」_W"
						CALL PRINT_STR,  "「不行……_BH_　在危险日直接做是不行的……_BH_　拔出去……_BH_」_W"
				ENDSELECT
				SIF LINECOUNT - MEMO_LINECOUNT
					RETURN 1
				GOTO RYOKO_EVE_LP1
			ENDIF

			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「…………_BH_　欺负人_BH_」_W"
					CALL PRINT_STR, @"「明明射出来那么多、就算现在戴%CNAME("避孕套")%不是什么意义都没有吗……_BH_」_W"
					CALL PRINT_STR,  "「直接……做吧……_BH_」_W"
				CASE 1
					CALL PRINT_STR,  "「真是的……笨蛋……_BH_」_W"
					CALL PRINT_STR, @"「被这么%CNAME("中出し")%了……%CNAME("避孕套")%不是没有意义了吗现在……_BH_」_W"
					CALL PRINT_STR, @"「反正要做的话……全部都注射到%CNAME("オマンコ")%里面啊……_BH_」_W"
			ENDSELECT

		ENDIF

		; 危険日だけどナマ希望
		IF COND("危険日")
			; 无崩しナマえっち
			IF MARK:屈服刻印 >= 2 || TALENT:精液弱点
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STR,  "（啊……不行……_BH_　今天、今天不好好说出来的话……）_W"
						CALL PRINT_STR, @"「哪个、这个……？　其实今天、是%CNAME("危険日")%……」_W"
						CALL PRINT_STR,  "「所以……那个？　这个……呜……_／／／_」_W"
						PRINTFORMW %CNAME("玲子")%虽然想说些什么，但还是主动地把自己的女性生殖器蹭在%CALLNAME:PLAYER%的阴茎上……
						CALL PRINT_STR, @"（欺、欺负人……っ_BH_　女方明明都说了是%CNAME("危険日")%……_BH_　体谅一下嘛……_BH_）_W"
						CALL PRINT_STR,  "「哦_BH_　哦_BH_　哦哦_BH_」_W"
						CALL PRINT_STR, @"（不行_BH_　%CNAME("阴茎")%插进来了_BH_　全都插进来了_BH_　一下子_BH_　一下子就_BH_）_W"
						CALL PRINT_STR,  "「…………………哦_BH_BH_BH_」_W"
						CALL PRINT_STR, @"「～～_BH_　笨、笨蛋……_BH_　真的_BH_　真的_BH_　真的%TEXTR("很危险/很糟糕")%的……_BH_」_W"
						CALL PRINT_STR, @"「所以……_BH_　%CNAME("中出し")%_BH_　绝对是、不行的……_BH_」_W"
						PRINTFORMW %CNAME("玲子")%反复叮嘱着，但又在用绝妙的阴道压力缠绕着阴茎……
						SIF TEQUIP:PLAYER:避孕套
							CALL SETFLAG, "取消避孕套", PLAYER
					CASE 1
						CALL PRINT_STR, @"「啊、今、今天是不行的……%TEXTR("不戴/直接做")%是不行的……」_W"
						CALL PRINT_STR, @"「因为、那个、小宝宝会怀上的……_BH_　因为是%CNAME("危険日")%……_BH_」_W"
						CALL PRINT_STR,  "「所以……喂、在听吗？　都说了不行。是不行的。不带套、唔嗯、小宝宝会……_BH_　所以……_BH_」_W"
						PRINTFORMW %CNAME("玲子")%语无伦次地看着屹立的%CALLNAME:PLAYER%的阴茎……
						CALL PRINT_STR,  "（就这么……想射里面吗？　呜。好厉害_BH_　好硬_BH_　忍耐液都溢出来了_BH_）_W"
						CALL PRINT_STR,  "「～～～～～_BH_」_W"
						PRINTFORMW %CNAME("玲子")%犹豫了一会儿似的用手玩弄着%CALLNAME:PLAYER%的阴茎，不久自己将其前端引向了微微颤抖的阴道口。
						CALL PRINT_STR,  "「在里面射出来……是不行的哦……？_／／／_」_W"
						SIF TEQUIP:PLAYER:避孕套
							CALL SETFLAG, "取消避孕套", PLAYER
				ENDSELECT
			ENDIF
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1

		; 汎用
		;PLAYヤーは着ける気満々
		IF TEQUIP:PLAYER:避孕套
			; 恋慕があると危険日以外は無条件ナマ
			IF TALENT:恋慕
				IF COND("危険日")
				ELSE
					IF CONDS("体位") == "騎乗位"
						SELECTCASE RAND:5
							CASE 0
								CALL PRINT_STRW,  "「～～～～_／／／_」"
								PRINTFORMW 跨坐在%CALLNAME:PLAYER%身上的%CNAME("玲子")%露出复杂的表情，缓缓地把覆盖%CALLNAME:PLAYER%阴茎的避孕套拿掉了……
								CALL PRINT_STRW,  "「今天……是没関系的、大概」"
								CALL PRINT_STRW,  "「所以……呐？　不带套性交、来做吧……？_BH_」"
						ENDSELECT
					ELSE
					ENDIF

					SIF LINECOUNT - MEMO_LINECOUNT
						CALL SETFLAG, "取消避孕套", PLAYER
				ENDIF
			ENDIF
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1

			; 汎用
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"（啊……会戴%CNAME("避孕套")%吗……_／／／_）_W"
					CALL PRINT_STR, @"（明明%TEXTR("直接做/不带套做/拿掉套做")%会更舒服的、%TEXTR("不用勉强/不用装模作样")%也可以的……_／／／_）_W"
					CALL PRINT_STR,  "「真是的……。明明直接做也可以的……」_W"
				CASE 1
					CALL PRINT_STR, @"「啊咧……%CNAME("避孕套")%要戴吗……？」_W"
					CALL PRINT_STR, @"「不是那种、不带做也行的意思……」_W"
					CALL PRINT_STR,  "（意外的是，还懂这种礼节呢……）_W"
				CASE 2
					CALL PRINT_STR,  "「呼呼_BH_　都准备好了嘛_BH_」_W"
					CALL PRINT_STR, @"（要用%CNAME("避孕套")%的话、就是跟用震动棒%CNAME("自慰")%一样了……）_W"
					CALL PRINT_STR,  "（不用担心避孕，很轻松♪）_W"
				CASE 3
					CALL PRINT_STR, @"「会戴%CNAME("避孕套")%？　那么帮忙戴上吧」_W"
					PRINTFORMW %CNAME("玲子")%从%CALLNAME:PLAYER%那里拿过没使用过的套子、用嘴帮忙把套子戴上了%CALLNAME:PLAYER%的肉棒。
					CALL PRINT_STR,  "「呼呼、怎么样？　很厉害吧？」_W"
					CALL PRINT_STR,  "（用振动棒练习了这么多，变得有价值了。）_W"
			ENDSELECT
			SIF LINECOUNT - MEMO_LINECOUNT
				CALL SET_CEVENT, "調教：避孕套ハメ"
		;避孕套が無い
		ELSEIF ITEM:避孕套 == 0
			; 汎用
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"「啊啦……？　%CNAME("避孕套")%、已经没有了……」_W"
					CALL PRINT_STR,  "「………………真、真让人没办法」_W"
					CALL PRINT_STR, @"「%TEXTR("不做的话/不做到最后的话")%……%TEXTR("很讨厌/不能忍耐的")%吧？」_W"
					CALL PRINT_STR, @"（呜呜……没有好好确认是%CNAME("一人称")%的错）_W"
				CASE 1
					CALL PRINT_STR, @"「诶、%CNAME("避孕套")%没有了……？」_W"
					CALL PRINT_STR,  "（但是为了以防万一，在包里……）_W"
					CALL PRINT_STR,  "「…………啊」_W"
					CALL PRINT_STR, @"（说起来在用震动棒%CNAME("自慰")%的时候用掉了……）_W"
					CALL PRINT_STR,  "（该、怎么办才好……）_W"
					CALL PRINT_STR,  "（忍耐的话……很辛苦吧、一定。没办法了……这、这没有办法了吧_／／／_）_W"
					CALL PRINT_STR, @"「那么今天就是%TEXTR("不带套做/直接做/不带套性交")%的日子了」_W"
					CALL PRINT_STR,  "「一起变得舒服起来吧……？」_W"
			ENDSELECT
		; ナマ希望
		ELSE
			; 危険日は流石に基本NG
			IF COND("危険日")
				SELECTCASE RAND:5
					CASE 0
						; 外出し約束
						CALL PRINT_STR, @"「今天是不行的……直接做是不行的。一定要戴上%CNAME("避孕套")%」_W"
						CALL PRINT_STR, @"「因为、那个、是%CNAME("危険日")%……不戴的话会很担心的……」_W"
						CALL PRINT_STR,  "（但、但是现在的孩子是怎么样的……？　但、但再怎么说……呜呜_BH_）_W"
						CALL PRINT_STR, @"「……想直接做？　想对%CNAME("危険日")%的%CNAME("オマンコ")%直接做……？_BH_」_W"
						CALL PRINT_STR,  "（……呜_BH_　呜呜_BH_　真、真让人没办法……_BH_）_W"
						CALL PRINT_STR,  "「在里面射出来……是不行的哦……？_／／／_」_W"
						CALL SET_CEVENT, "調教：外出し約束"
					CASE 1
						IF COND("合意：危険日生性交") == 0
							CALL PRINT_STR,  "「啊……不、不行。今天是不行的」_W"
							CALL PRINT_STR, @"「今天是%CNAME("危険日")%……直接做的话会怀上的」_W"
							CALL PRINT_STR,  "「所以今天……呐？　拜托了」"
							TFLAG:指令中止 = 1
						ENDIF
				ENDSELECT

				SIF LINECOUNT - MEMO_LINECOUNT
					RETURN 1
				GOTO RYOKO_EVE_LP1
			ENDIF

			; 汎用
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「啊呜……_／／／_　要直接做……？」_W"
					CALL PRINT_STR,  "「虽、虽然不是讨厌……」_W"
					CALL PRINT_STR, @"（真是的……%TEXTR("如果怀孕的话/如果怀上小宝宝的话")%该怎么办……_／／／_）_W"
			ENDSELECT
		ENDIF
		;安全日に生希望
		;ELSEIF COND("安全日")
		;安全日じゃないけど避孕套没有を希望
		;ELSE
		;ENDIF
	;PLAYヤーへの挿入指令
	ELSEIF TRAIN_GENRE("逆挿入", SELECTCOM)
		;PLAYヤーは着けてもらうの希望
		IF TEQUIP:避孕套
			PRINTFORMW

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

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

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

		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 "朝口交"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;朝舐陰
;-------------------------------------------------
CASE "朝舐陰"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		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
;-----------------------------
;朝の新妻PLAY
;----------------------------
CASE "朝の新妻PLAY"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-----------------------------
;朝接吻
;----------------------------
CASE "朝接吻"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;朝足交
;-------------------------------------------------
CASE "朝足交"
	;恋慕
	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
		; 你以外の男性とは挿入系禁止
		SIF TALENT:PLAYER:男性
			CALL SETFLAG, "挿入指令禁止"

		PRINTFORMW
	;PLAYERが你に戻った
	ELSE
		; 禁止した指令の解除
		FOR LOCAL, 0, 600
			SIF TRAIN_GENRE("挿入", LOCAL)
				DITEMTYPE:TARGET:LOCAL = 0
		NEXT

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

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
CASE "清洁口交"
	SELECTCASE TFLAG:口上分岐
	;お掃除前
	CASE 0
		PRINTFORMW
	;お掃除中
	CASE 1
		PRINTFORMW
	;お掃除で射精しなかった
	CASE 2
		PRINTFORMW
	;お掃除で射精しそう？
	CASE 3
		PRINTFORMW
	;射精した
	CASE 4
		PRINTFORMW
	;お掃除で射精後
	CASE 5
		PRINTFORMW
	ENDSELECT
;-------------------------------------------------
;脱衣
;-------------------------------------------------
CASE "自発脱ぎ"
	;裸体变成了
	IF CHECK_CLO("裸体")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;阴部剥きだし
	ELSEIF CHECK_CLO("Ｖ露出")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;部分脱ぎ
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;妊娠した
;----------------------------------------------------------------
CASE "妊娠発覚"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;出産した
;----------------------------------------------------------------
CASE "出産"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;兒童が大きくなった
;----------------------------------------------------------------
CASE "子出口"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;性交後に抜いた時
;----------------------------------------------------------------
;恥ずかしいところを見せてくれる
;----------------------------------------------------------------
CASE "中出し後くぱぁ"
	;恋慕
	IF TALENT:恋慕
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「真是的……_BH_　这是、忘记带走的东西_／／／_」"
			ENDSELECT
		ELSE
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「%CNAME("精液")%、射的太多了……_BH_　不是都溢出来了吗……_BH_」"
				CASE 1
					CALL PRINT_STRW,  "「哈啊…………_BH_／／／_BH_」"
					CALL PRINT_STRW, @"「只有%CNAME("精液")%最浓的一部分……留在了里面……_BH_」"
			ENDSELECT
		ENDIF
	ELSE
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「这样的东西、不能随便%TEXTR("忘记/放着")%……_BH_」"
				CASE 1
					CALL PRINT_STRW, @"「%CNAME("避孕套")%不能随便乱扔……_／／／_」"
					CALL PRINT_STRW,  "「要好好的……『处理』才行、吧……？」"
			ENDSELECT
		ELSE
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「…………不、不要这么看着嘛」"
					CALL PRINT_STRW,  "「多少会有点害羞的……_／／／_」"
				CASE 1
					CALL PRINT_STRW,  "「这样就……可以了吗……？_／／／_」"
					CALL PRINT_STRW, @"「%TEXTR("全部/全都")%是%CNAME("二人称")%的%CNAME("精液")%哦、这个……_BH_」"
			ENDSELECT
		ENDIF
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	PRINTFORMW
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「哈嗯……嗯_BH_　啊ー嗯……_BH_　嗯っ_BH_」"
				CALL PRINT_STRW,  "「真好吃……嗯_BH_　呼呼_BH_」"
			CASE 1
				CALL PRINT_STRW,  "「好多浓浓的……_BH_　这个、好像果冻一样。呼呼_BH_」"
				CALL PRINT_STRW,  "「这个是算是吃新鲜的吧？　啊ー嗯……_／／／_」"
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「哈啊……_BH_　哈啊……_BH_　嗯……っ_BH_」"
				CALL PRINT_STRW, @"（这么……%TEXTR("浓的/粘的/臭的")%%CNAME("精液")%_BH_　在里面%TEXTR("残留着/积攒着")%会%TEXTR("怀孕的/变成小宝宝的")%吧……_BH_BH_BH_）"
				CALL PRINT_STRW,  "「好多、啊……_／／／_　真是的……嗯っ_BH_　嗯咕っ_BH_」"
				CALL PRINT_STRW,  "（假装用嘴品尝……哪怕是一点点，也得抠出来……_BH_　嗯っ_BH_）"
				IF ABL:精液中毒 >= 3
					CALL PRINT_STRW,  "（…………很好吃、好像_／／／_）"
				ELSE
					CALL PRINT_STRW, @"（……%TEXTR("奇怪的味道/真难吃")%、真是的……_BH_）"
				ENDIF
			CASE 1
				CALL PRINT_STRW,  "「哈ー_BH_　哈ー_BH_　っ_BH_　嗯ー……_BH_」"
				CALL PRINT_STRW, @"（出来这么多……_／／／_　%CNAME("一人称")%的%CNAME("オマンコ")%、可不是厕所……_／／／_）"
				CALL PRINT_STRW,  "「嗯啾……_BH_　嗯……哈啊_BH_」"
				CALL PRINT_STRW, @"（%CNAME("精液")%好多、好臭、好浓……_BH_　真是……_／／／_BH_）"
		ENDSELECT
	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
	PRINTFORMW 面对堆积如山的不良库存、%CALLNAME:MASTER%和%CALLNAME:TARGET%大伤脑筋…
;----------------------------------------------------------------
;塞子をしていない状態での液体浣腸口上
;----------------------------------------------------------------
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

CASEELSE
	PRINTFORMW
	DEBUGPRINTFORM %ARGS%は未定義です！ (%__FUNCTION__%:l.{__LINE__})
ENDSELECT

SIF LINECOUNT - MEMO_LINECOUNT
	RETURN 1
GOTO RYOKO_EVE_LP1

;-------------------------------------------------
;TARGET以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@KOJO_GUEST_K32, 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_K32(ARGS)
#DIM ACTOR
ACTOR = FINDCHARA(NO, 32)

SELECTCASE ARGS
CASE "勧誘"
	; ３日目以降勧誘可能
	SIF DAY >= 3
		RETURN 1
	STR:実行条件 = ※%CSVNAME(32)%_黄色_从第３天開始_才可以勧誘※
CASE "恋慕"
CASE "淫乱"
CASE "相思相愛"
	SIF TALENT:ACTOR:恋慕 && CEVENT("イベント：初妊娠", ACTOR)
		RETURN 1
	STR:実行条件 = イエロー_（※%CALLNAME:ACTOR%と[相思相愛]になるには、着床させた後にイベントを叫醒必要が有ます）
CASE "淫紋"
ENDSELECT

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

@SINGLE_ENDING_K32
;エンディングを書いたら、下のフラグをONにしてください
RETURN 1

path: ERB/EVENT_K/32 玲子/EVENT_K32.ERB