code:
;-------------------------------------------------
;南実口上_Ver.000x
;製作者　専スレ8の>>686
;-------------------------------------------------
;-------------------------------------------------
;コンセプト：
;日常漫画に出てくる百合妹
;└性質上必然的に女性同士の口上が充実。
;＞の、つもりだったけど普通に明るい妹としてやっているのでこれは別の機会に。
;近親好き向けになってます。
;-------------------------------------------------
;呼び名の設定。"_"の右にふりがなを書く。
;-------------------------------------------------
@CNAME_K42, ARGS
#FUNCTIONS
#DIM ACTOR

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 我_我
CASE "二人称"
	;相手が主人
	;相手が主人ではない時の特殊二人称もここ(ナンバー指定有)
	IF PLAYER == MASTER
		IF TRUE_SEX(MASTER) != "男性"
			LOCALS = 欧内酱_欧内酱
		ELSE
			LOCALS = 欧尼酱_欧尼酱
		ENDIF
	ELSEIF NO:PLAYER == 10
		LOCALS = 母亲_母亲
	ELSEIF NO:PLAYER == 6
		LOCALS = 樱欧内酱_樱欧内酱
	ELSEIF NO:PLAYER == 51
		LOCALS = 棗桑_なつめ桑
	;相手が主人ではない時の汎用口上
	;学生限定。
	;中等部以下…君酱付け
	;高等部以上…前輩
	;教師…老师
	ELSE
		SELECTCASE CSTR:PLAYER:学年
		CASE "初等部", "中等部"
			IF TALENT:PLAYER:男性
				LOCALS = %CALLNAME:PLAYER%君_%CSTR:PLAYER:ふりがな%君
			ELSE
				LOCALS = %CALLNAME:PLAYER%酱_%CSTR:PLAYER:ふりがな%酱
			ENDIF
		CASE "１年生", "２年生", "３年生", "研究生"
			LOCALS = %CALLNAME:PLAYER%前輩_%CSTR:PLAYER:ふりがな%前輩
		CASEELSE
			IF COND("教員", PLAYER)
				LOCALS = %CALLNAME:PLAYER%老师_%CSTR:PLAYER:ふりがな%老师
			ELSE
				LOCALS = %CALLNAME:PLAYER%桑_%CSTR:PLAYER:ふりがな%桑
			ENDIF
		ENDSELECT
	ENDIF
;"主人"と"助手"は三人称。主に当人と話していない時に使う
CASE "主人"
    IF TRUE_SEX(MASTER) != "男性"
        LOCALS = 欧内酱_欧内酱
    ELSE
        LOCALS = 欧尼酱_欧尼酱
    ENDIF
CASE "助手"
	IF COND("麦莉爱娜", ASSI)
	    LOCALS = 母亲_母亲
	ELSEIF COND("樱", ASSI)
	    LOCALS = %CALLNAME:ASSI%欧内酱_%CSTR:ASSI:ふりがな%欧内酱
;	ELSEIF COND("玛丽", ASSI)
;		;「私ですか？　私はメスガキ解らせ大姐姐です。姉ビーム！！」
;		;【%CALLNAME:TARGET%の中の常識が改変された！！】
;	    LOCALS = %CALLNAME:ASSI%欧内酱_%CSTR:ASSI:ふりがな%欧内酱
	ELSEIF NO:PLAYER == 51
		LOCALS = 棗桑_なつめ桑
	ELSEIF NO:PLAYER == 55
		LOCALS = 紬希酱_つむぎ酱
	ELSEIF NO:PLAYER == 62
		LOCALS = 霧江欧内酱_きりえ欧内酱
	ELSE
		SELECTCASE CSTR:ASSI:学年
		CASE "初等部", "中等部"
			IF TALENT:PLAYER:男性
				LOCALS = %CALLNAME:ASSI%君_%CSTR:ASSI:ふりがな%君
			ELSE
				LOCALS = %CALLNAME:ASSI%酱_%CSTR:ASSI:ふりがな%酱
			ENDIF
		CASE "１年生", "２年生", "３年生", "研究生"
			LOCALS = %CALLNAME:ASSI%前輩_%CSTR:ASSI:ふりがな%前輩
		CASE "教師"
			LOCALS = %CALLNAME:ASSI%老师_%CSTR:ASSI:ふりがな%老师
		CASEELSE
	    	LOCALS = %CALLNAME:ASSI%桑_%CSTR:ASSI:ふりがな%桑
		ENDSELECT
   ENDIF
CASEELSE
	;ARGSに角色名が入れられてる場合には角色への呼び方なのでチェック
	IF FIND_NO(ARGS) > 0
		ACTOR = FIND_NO(ARGS)
		IF NO:ACTOR == 10
			LOCALS = 母亲_母亲
		ELSEIF NO:ACTOR == 6
			LOCALS = 樱欧内酱_樱欧内酱
		ELSEIF NO:ACTOR == 51
			LOCALS = 棗桑_なつめ桑
		ELSEIF NO:ACTOR == 55
			LOCALS = 紬希酱_つむぎ酱
		ELSEIF NO:ACTOR == 62
			LOCALS = 霧江欧内酱_きりえ欧内酱
		ELSE
			SELECTCASE CSTR:ACTOR:学年
			CASE "初等部", "中等部"
				IF TALENT:ACTOR:男性
					LOCALS = %CALLNAME:ACTOR%君_%CSTR:ACTOR:ふりがな%君
				ELSE
					LOCALS = %CALLNAME:ACTOR%酱_%CSTR:ACTOR:ふりがな%酱
				ENDIF
			CASE "１年生", "２年生", "３年生", "研究生"
				LOCALS = %CALLNAME:ACTOR%前輩_%CSTR:ACTOR:ふりがな%前輩
			CASEELSE
				IF COND("教員", ACTOR)
					LOCALS = %CALLNAME:ACTOR%老师_%CSTR:ACTOR:ふりがな%老师
				ELSE
					LOCALS = %CALLNAME:ACTOR%桑_%CSTR:ACTOR:ふりがな%桑
				ENDIF
			ENDSELECT
		ENDIF
	ENDIF
ENDSELECT
RETURNF LOCALS

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

SELECTCASE ARGS
CASE "紹介文"
		STR:1 = %CALLNAME:MASTER%的亲妹妹。
		STR:2 = 因为比%CALLNAME:MASTER%年龄要小、所以平时在学校不怎么见得着面。
		STR:3 = 虽然个子不高但发育良好、因此在男女生中都很有人气。
;ここの中に限り、CFLAG,BASE,TALENT,ABL,EXP,CSTRをCSVに書いたものから変更させることが出来ます
;例えばBASE:体力を2000にしたいなら BASE:0:体力 = 2000 、強気にさせたいなら TALENT:0:強気 = 1 として下さい
;また、ABL:信頼を+2させたい場合には ABL:0:信頼 = ABL:信頼 + 2 と書いてください

;南実口上你は帰宅部&ズボラの想定。
CASE "勧誘"
	IF COND("昼")
		PRINTFORMW 事情的原委要追溯到几个小時前。……大致上来说、是今天早上发生的事。
		PRINTFORMW
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW
		PRINTFORMW 已经厌倦了毎天去学校上学、学习、放学回家的一成不変的无聊日子。
		PRINTFORMW 但是、如果想要寻找一个让日常变成非日常的契机的话…… 虽然一直都不太想参与社团活动、但自己建一个出来的话或许也不坏。
		PRINTFORMW 因为也不是会引起什么問題的事情、社团活动申报了之后就能顺利受理吧。
		PRINTFORMW 就在我这么想的时候。
		PRINTFORMW
		PRINTFORMW 「……呐。…嗯、好像在嘟囔着什么……社团活动、你打算建社团吗？」
		PRINTFORMW どうやら%NAME:TARGET%に独り言を聞かれてしまっていたようだ。
		PRINTFORMW %NAME:TARGET%はやや心配そうに、じぃっと%CALLNAME:MASTER%を見上げて見つめてきた。
		PRINTFORMW 「因为学年不同……虽然有些担心也很难自己参加……」
		PRINTFORMW %NAME:TARGET%の育ちの良さは知っているし、心配されるのも仕方ない、とは思える。
		PRINTFORMW 可是、就算是自己、也是想把自己打算去做的事情做到最后的……
		PRINTFORMW 「这样啊……。但是还是很担心、所以我偶尔去看看吧……？」
	ELSE
		;南実夜勧誘の場合のケース。
		PRINTFORMW 已经厌倦了毎天去学校上学、学习、放学回家的一成不変的无聊日子。
		PRINTFORMW 但是、弗理希艾尔给了自己一个让日常变成非日常的契机…… 虽然一直都不太想参与社团活动、但自己建一个出来的话或许也不坏。
		PRINTFORMW 作为社团活动的各种各样的器具都准备好了、隠蔽工作也做得很好。
		PRINTFORMW 想到这里、我正在回家路上的时候。
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW
		PRINTFORMW
		PRINTFORMW 「……那个。……你成立了个社团是吗？」
		PRINTFORMW 「既然你如果成立了社团、%CNAME("一人称")%也想加进去来着」
		PRINTFORMW どこでその話を聞いてきた、とは思ったが%NAME:TARGET%ならしょうがない、と思って話を聞いていると……
		PRINTFORMW 「在学校里也想和%CNAME("二人称")%一直在一起、不行吗～？」
		PRINTFORMW
		PRINTFORMW %NAME:TARGET%の押しの強さは相変わらず、と思うと共に断る理由もなかったので承諾すると……
		PRINTFORMW 「太好了～！学校的社团活动里也和%CNAME("二人称")%在一起～！」
		PRINTFORMW 似乎很高兴的样子。
	ENDIF

CASE "勧誘直後"

	PRINTFORMW %CALLNAME:TARGET%作为%CALLNAME:MASTER%的"実妹"、一直都处于"同居中"。

	PRINTFORMW - ！系统信息！ -
	PRINTFORML 可以設定%CALLNAME:TARGET%対%CALLNAME:MASTER%的第二人称（即对玩家的称呼）。
	PRINTFORML 現在的第二人称是『%CNAME("二人称")%』。要変更吗？
	PRINTFORML (之後可以在交易中请求来进行変更)
	CALL PRINT_SELECT, "変更/不変更"
	IF RESULT == 0
		CALL NAME_CONVERT_SP, TARGET
	ELSEIF RESULT == 1
		PRINTFORMW  不変更第二人称。
	ENDIF

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

	ELSE

	ENDIF
;同居後の自分的房間の解説です。これも別に無くて構いません
CASE "自室描写"
	PRINTFORML 只収納了最低必要限度的东西、对这个年龄的女孩子来说是个殺風景的房间。
	PRINTFORML 不过即便如此、在重要的地方还是有花朵图案的小饰品、果然还是有在意的吧。
ENDSELECT

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

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

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	;IF FINDCHARA(NO, 6) > 0
	;	PRINTFORMW 樱酱か、麦莉爱娜桑が加入してると特殊台詞(現状はまだ思いついてないので未定です)
	;ENDIF
	PRINTFORMW 「明明是亲%NAMES("兄弟")%、却要做这种事情、真是没想到呢……」
	PRINTFORMW 「因为这对于%CNAME("一人称")%来说还是第一次。请温柔一些……明白吗」
	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	PRINTFORMW 「%CNAME("一人称")%觉得还是不能接受」
	PRINTFORMW 「……因为、就算再怎么互相喜欢、禁忌也还是禁忌」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	PRINTFORMW 「%CNAME("一人称")%呢、已经開始觉得这种事情不是不能接受了」
	PRINTFORMW 「……有些害怕会这样想的自己」
	PRINTFORMW 「明明%CNAME("一人称")%知道是不可以的」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTFORMW 「最近一直在想。……%NAMES("兄弟")%之间如果能好好相处的话」
	PRINTFORMW 「包括这样的事情」
	PRINTFORMW 「虽然觉得还是不可以、但现在也不能摆脱了、只能不去想、大家好好相处吧」
	PRINTFORMW 「%CNAME("一人称")%喜欢%CNAME("二人称")%和樱姐姐、如果可以的话、希望能一直这样在一起」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	PRINTFORMW 「和%CNAME("二人称")%不在一起的日子、会很寂寞」
	PRINTFORMW 「……虽然痛苦……但是、心里总有一种违和感」
	PRINTFORMW 「想让%CNAME("二人称")%多看看%CNAME("一人称")%之类的、想要独占%CNAME("二人称")%之类的……」
	PRINTFORMW 「虽然一直都在说不可以、但是还是爱上了%CNAME("二人称")%什么的」
	PRINTFORMW 「嘛……想那么多也不太好吧」
	PRINTFORMW 「那就喝一杯、心情舒畅的继续吧」
	CALL SET_CEVENT, "調教開始：恋慕"
;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
;ここ処女かどうかで分岐させる
	PRINTFORMW 「事到如今说这种话真的不好意思呢」
	PRINTFORMW 「虽然不是第一次、但内心还是止不住的悸动」
	PRINTFORMW 「这就是夫妇之间在新婚初夜时的心情吗」
	PRINTFORML
	PRINTFORMW 「什么、開玩笑的」
	PRINTFORMW 「……因为、近亲之间的这种事是禁忌啊」
	PRINTFORMW 「但谁都没有权利要求别人停止追求自己的一生所爱、不是吗？」
	SIF TALENT:処女
		PRINTFORMW 「だから……うん、%CNAME("一人称")%ね、%CNAME("二人称")%になら……初めてを捧げたいな」
	PRINTFORMW 「从今以后、也请一直看着%CNAME("一人称")%啊……」
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無をチェック（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K42_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 K42_KOJO2
ENDIF

RETURN 1

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

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

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
	IF ABL:施虐属性 >= 3 && TALENT:恋慕
		PRINTFORMW 「どーぉ、%CNAME("二人称")%」
		PRINTFORMW 「%CNAME("一人称")%だって%CNAME("二人称")%のこと酱と気持ちよく出来たでしょ？」
		CALL PRINT_STRW, @"「またえっちな事しようね、%CNAME("二人称")%_HH_」"
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW 「んふふ、普段はやられっぱ无だもんね」
		PRINTFORMW 「%CNAME("二人称")%は気持ちよかった～？」
		CALL PRINT_STRW, @"「……うん_HH_ またえっちな事しようね、%CNAME("二人称")%_HH_」"
	;其他
	ELSE
		PRINTFORMW 「あれっ、やり過ぎちゃった？」
		PRINTFORMW 「そんなつもりじゃなかったんだけど……ごめんね、%CNAME("二人称")%」
	ENDIF
;partnerが体力or精力尽きた場合
ELSEIF STATE("撃沈")
		PRINTFORMW 「激しすぎだよ……もう……」
		PRINTFORMW どうやら、%NAME:TARGET%に性行為をやり過ぎてしまったようだ……
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
		PRINTFORMW 「……很舒服的呦……」
;恋慕
ELSEIF TALENT:恋慕
		PRINTFORMW 「……次はもっと気持ちよくしてね？」
		PRINTFORMW 肩で息をしながら%NAME:TARGET%は頬を膨らましている……
;屈服刻印无
;屈服刻印系は3以外恋慕无が前提です(そうじゃないとセリフの前提がおかしくなるので……)
ELSEIF MARK:屈服刻印 == 0
		PRINTFORMW 「……%CNAME("二人称")%、……今日は疲れちゃったから、終わりにしない？」
		PRINTFORMW %NAME:TARGET%は程よく疲れ切った表情を浮かべて、肩で息をしている……
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
		PRINTFORMW 「……ねえ、これで終わりにしてくれない？」
		PRINTFORMW 「……%CNAME("二人称")%の事は嫌いじゃないんだけど、なんかね……」
		PRINTFORMW 「……んーん、%CNAME("一人称")%は大丈夫。……難しいね、こういうの……」
		PRINTFORMW %NAME:TARGET%は複雑な表情を浮かべ的同时、肩で息をしている……
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
		PRINTFORMW 「ん、お疲れ様っ」
		PRINTFORMW 「……%CNAME("二人称")%とこういう事するの、……今も複雑なの」
		PRINTFORMW 「ただ、前よりは嫌じゃない、かなって……」
		PRINTFORMW 「……次も楽しくえっちできたら、嬉しい、かな」
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
		CALL PRINT_STRW, @"「%CNAME("二人称")%とのえっち、気持ちよすぎだよぉ……_HH_」"
		CALL PRINT_STRW, @"「%CNAME("二人称")%ともっとえっちしたいのにぃ……_HH_」"
ENDIF
RETURN 1

;-------------------------------------------------
;指令実行時のセリフ
;-------------------------------------------------
@KOJO_MESSAGE_COM_K42
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0
;-------------------------------------------------
;指令実行時のセリフ(コピペ用)
;HHすると爱心マークがでるやつ
;-------------------------------------------------
;
;CALL PRINT_STRW, "「」"
;
;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF TRUE_SEX(MASTER) != "男性"
			PRINT 「姉妹
		ELSE
			PRINT 「兄妹
		ENDIF
		CALL PRINT_STRW, @"で身体接觸するって、別に世の中珍しいことでもないけど _／／／_」"
		PRINTFORMW 「こういうどきどきって、きっと……２人だけの秘密、みたいになるのかな」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕 && MARK:快楽刻印 >= 3 && MARK:屈服刻印 >= 3 || TALENT:淫乱 && RAND:10 == 0
			CALL PRINT_STRW, @"「あぁ……っ_HH_ %CNAME("二人称")%に触られるの、すっごくいいよぉ……_／／／_」"
			CALL PRINT_STRW, @"「%CNAME("二人称")%、%CNAME("二人称")%_HH_ %CNAME("二人称")%好きっ！ もっと、もっともっと……_／／／_」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%のこと気持ちよくしてよぉ……_HH__HH_」"
		ELSEIF RAND:9 == 0 && TALENT:恋慕
			PRINTFORMW 「%CNAME("二人称")%の手、温柔から好き」
			CALL PRINT_STRW, "「もっといろいろ、触って欲しいな……_BH_」"
		ELSEIF RAND:8 == 0 && (PREVCOM == SELECTCOM) && TALENT:恋慕 && ABL:1 >= 3 && MARK:快楽刻印 >= 3
			CALL PRINT_STRW, @"「%CNAME("二人称")%に撫でられてるだけなのに、イっちゃいそうになるなんて_／／／_」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%はっ、そんないやらしい子じゃないもん……_HH__HH_ んぅっ、はぁ……_／／／_」"
		ELSEIF RAND:7 == 0 && MARK:淫紋 && MARK:快楽刻印 >= 2
			CALL PRINT_STRW, @"「んぅっ_HH_」"
			CALL PRINT_STRW, @"「やだっ、%CNAME("二人称")%だめぇ、お腹の印さわるのだめっ_HH__HH_」"
			CALL PRINT_STRW, "「やっあっ_HH_ あっ_HH_ やぁああぁっ_HH_ あぁぁんっ_HH_ んくぅぅっ_HH__HH_」_"
			PRINTFORMW 下腹部に\@ MARK:淫紋 >= 2 ? 刻まれた淫紋 # 貼られた淫紋贴纸 \@を轻轻地撫でただけで、%CALLNAME:TARGET%は全身をびくびくと快感に震わせてしまっている……。
		ELSEIF RAND:6 == 0 && ABL:1 >= 3 && MARK:快楽刻印 >= 3 || ABL:0 >=4 || CFLAG:好感度 >= 1750
			PRINTFORMW 「あのね、%CNAME("二人称")%……」
			PRINTFORMW 「%CNAME("二人称")%に抚摸してもらうって考えただけで……その……」
			PRINTFORMW 「さっきから心臓がどきどきして、頭がぼーっとなって、胸がきゅーってなるの……」
			CALL PRINT_STRW, @"「%CNAME("二人称")%、%CNAME("一人称")%おかしくなっちゃったのかな……_／／／_」"
		ELSEIF RAND:5 == 0 && ABL:1 >= 3 && MARK:快楽刻印 >= 1
			PRINTFORMW 「やっ、%CNAME("一人称")%の身体っ、こんなに敏感じゃなかったはずなのに……っ」
			PRINTFORMW 「%CNAME("二人称")%、ちがっ、%CNAME("一人称")%こんないやらしくなんか……んぅぅっ！？」
			PRINTFORMW 「たりない、よぉ……っ、もっと、もっとめちゃくちゃにしてほしいよぉっ」
		ELSEIF RAND:4 == 0 && (PREVCOM == SELECTCOM)
			PRINTFORMW 「%CNAME("一人称")%のこと、ん……っ、えっちなことに慣らしてっ」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「嗯哼……、呼嗯、呼、哈啊」
			PRINTFORMW 「あんまり、見ないで…… 恥ずかしいよ」
		ELSEIF RAND:2 == 0
			PRINTFORMW %CALLNAME:MASTER%向着%CALLNAME:TARGET%伸出双手、%CALLNAME:TARGET%的身体稍微的在颤抖。
			PRINTFORMW 「%CNAME("二人称")%のことは好きだし、信じてるけど、身体が勝手にびくっとしちゃって……」
			PRINTFORMW 「緊張してるから、……温柔的、してね」
		ELSE
			PRINTFORMW 「んっ…… うん、大丈夫…… 確かに近親相姦はダメなことだけど……」
			PRINTFORMW 「%CNAME("二人称")%是つだって、%CNAME("一人称")%のことを大事に思ってくれてるって」
			PRINTFORMW 「%CNAME("二人称")%のこと、信じてる……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;自慰
;-------------------------------------------------
IF SELECTCOM == 3
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「……只有%CNAME("一人称")%一个人的话……想要看吗？」
		PRINTFORMW %CALLNAME:TARGET%小心翼翼地開始触碰着自己的股间。
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF TEQUIP:振動棒 || TEQUIP:肛用振動棒
				CALL PRINT_STRW, @"「だ、だめっ……ああっ、ダメっ、あぁぁんっ_HH_」"
				CALL PRINT_STRW, @"「んっ、んーーっっ、見られながら……%TEXTR("気持ちいい所/感じちゃう場所")%グリグリしろなんて……あっ、あああっ_HH_」"
			ELSEIF RAND:3 == 0 && (ABL:11 >= 5 || ABL:12 >= 5) && TEQUIP:振動棒 == 0 && TEQUIP:肛用振動棒 == 0
				PRINTFORMW 「１人でするの切ないよぉ……」
				PRINTFORMW 「振動棒突っ込んでぐりぐりってかき回しちゃいたい……」
			ELSEIF RAND:2 == 0
				CALL PRINT_STRW, @"「……%CNAME("一人称")%が%TEXTR("シてる/自慰してる")%所、じっくり観察してね……_HH_」"
			ELSE
				CALL PRINT_STRW, @"「……大丈夫だよ_HH_」"
				CALL PRINT_STRW, @"「%CNAME("一人称")%の自慰_HH_……見て良いのは%CNAME("二人称")%だけだからね_HH_」"
			ENDIF
		;それ以外
		ELSE
			IF TEQUIP:振動棒 && TEQUIP:肛用振動棒
				CALL PRINT_STRW, @"「『%TEXTR("何の事か、解ってるよね/両方同時")%』って……どちらかじゃダメなのかな……_／／／_」"
				CALL PRINT_STRW, @"「%TEXTR("ん/んぅ")%_HH_　……%TEXTR("はぁ/くぅ")%_HH_」"
				CALL PRINT_STRW, @"「んんっ、ぁ、っ_HH__HH_ や、だぁ……っ、こんな、恥ずかしいよ……_／／／_」"
			ELSEIF TEQUIP:振動棒 || TEQUIP:肛用振動棒
				CALL PRINT_STRW, @"「ねーねー、……%CNAME("二人称")%にして欲しいんだけど……_／／／_」"
				CALL PRINT_STRW, @"「うー、そんなあ……どうしても%TEXTR("振動棒で/おもちゃで")%自慰しなきゃいけないの……？」"
				CALL PRINT_STRW, @"「%TEXTR("ん/んぅ")%_HH_　……%TEXTR("はぁ/くぅ")%_HH_」"
				CALL PRINT_STRW, @"「うう、切なくなってくるぅ_／／／_ %CNAME("二人称")%、シてよお……っ_HH__HH__HH_」"
			ELSE
				IF RAND:2 == 0
					PRINTFORMW 「１人でするの切ないよぉ……」
					PRINTFORMW 「……見てないで、手伝ってよぉ……」
				ELSE
					PRINTFORMW 「%TEXTR("えっ、うん/うん")%」
					PRINTFORMW %CALLNAME:TARGET%は小さく身体を震わせた……
					PRINTFORML
					PRINTFORMW 「%TEXTR("今日……えっと/……あの、今日はどうしたの？")%」
					PRINTFORMW 「%TEXTR("やたら無茶なお願いをされてる気がするけど/やたら無理っぽいお願いをしてくる気がするけど")%……」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰莖(扶她/男性のみ)
;-------------------------------------------------
IF SELECTCOM == 4
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW 「虽然很害羞……但是这个、要含住吗？」
			PRINTFORMW %CALLNAME:TARGET%扭扭捏捏的向肉棒凑过来。
		;それ以外
		ELSE
			PRINTFORMW 「呀！？%CNAME("二人称")%、怎么……、这样……！」
			PRINTFORMW %CALLNAME:TARGET%对从未接触过的快感感到困惑……
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「ねーぇ、コレ……咥えてよ」
			PRINTFORMW %CALLNAME:TARGET%毫不客气的把肉棒插入了口中。
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF PLAYER == MASTER && EXP:MASTER:接吻経験 == 0
			PRINTFORMW 「……初吻、%CNAME("一人称")%でいいの……？」
			PRINTFORMW 「……%CNAME("二人称")%がいいなら、いいんだけど……」
			CALL PRINT_STRW, @"「う～～～……_／／／_」"
			CALL PRINT_STRW, @"「嬉しいけど、恥ずかしい……なんだろ……_／／／_」"
			PRINTFORML
			PRINTFORMW （……%CNAME("一人称")%が思っている以上に、%CNAME("一人称")%って……）
			CALL PRINT_STRW, @"（……%CNAME("二人称")%のこと、好き……なのかな_／／／_）"
		ELSEIF EXP:接吻経験 == 0
			PRINTFORMW 「……接吻、したいの？」
			PRINTFORMW 「……あのね、%CNAME("二人称")%」
			PRINTFORMW 「%CNAME("二人称")%は初吻じゃないと思うけど……」
			PRINTFORMW 「うー……どうしても言わなきゃ、ダメ？」
			CALL PRINT_STRW, @"「%CNAME("一人称")%ね……接吻、……したことないんだよね……_／／／_」"
			CALL PRINT_STRW, @"「温柔的、してよね……_／／／_」"
		;被逆推ている時
		ELSEIF TEQUIP:推倒
			PRINTFORMW 「ごめん、……%CNAME("二人称")%」
			CALL PRINT_STRW, @"「……%CNAME("一人称")%……もう我慢出来ないよ_HH_」"
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「%CNAME("一人称")%ね……接吻、……初めてじゃないんだよね……_／／／_」"
			CALL PRINT_STRW, @"「%CNAME("二人称")%はそれでもいい、よね……？」"
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕 && RAND:10 >= 9
			CALL PRINT_STRW, @" 「……%CNAME("二人称")%、無防備すぎ_HH_」"
		ELSEIF ABL:信頼 >= 5 && RAND:10 <= 8
			PRINTFORMW 「……本当、罪作りな顔してるんだから」
		;それ以外
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、こうされるの好きだもんね」
		ENDIF
	;それ以外
	ELSE
		IF CHECK_COM("テンダー接吻") && TALENT:恋慕 && RAND:7 == 0
			CALL PRINT_STR, "「呼呜……、嗯……、呜嗯……_HH_」_W"
			CALL PRINT_STR, "「唔、嗯_HH_ 我喜欢、这样的吻_HH_」_W"
			CALL PRINT_STR, "(满脸羞红的接受了你的亲吻_HH__HH_)_W"
		ELSEIF CHECK_COM("テンダー接吻") && TALENT:恋慕 && RAND:6 == 0
			CALL PRINT_STR, "「ん……はふ、んんっ_HH_」"
			CALL PRINT_STRW, @"「ねーぇ、%CNAME("二人称", "かな")%_HH_」"
			CALL PRINT_STRW, @"「接吻って不思議だよね……_HH_」"
		ELSEIF CHECK_COM("テンダー接吻") && RAND:5 == 0
			PRINTFORMW 「ん……はふ」
			CALL PRINT_STRW, @"「%CNAME("二人称")%、接吻って不思議だよね……_HH_」"
		ELSEIF TALENT:恋慕 && RAND:4 == 0
			PRINTFORMW 「……ねぇ」
			PRINTFORMW 「……%CNAME("二人称")%は接吻の、馴れた？」
			CALL PRINT_STR, "「……そっか_HH_」"
		ELSEIF (CFLAG:好感度 >= 1500 || ABL:Ｍ感覚 >= 3) && RAND:3 == 0
			PRINTFORMW 「いつも接吻度に思うんだけど」
			PRINTFORMW 「やっぱり%CNAME("二人称")%と接吻の、好きだなあ……」
		ELSEIF (CFLAG:好感度 <= 1500 || ABL:Ｍ感覚 <= 3) && RAND:2 == 0
			PRINTFORMW 「んー……ちょっと恥ずかしいけど……うん、いいよ」
			PRINTFORMW 「情緒って大事だもんね、%CNAME("二人称")%」
		ELSE
			CALL PRINT_STRW, @"「……_HH_」"
			PRINTFORMW 「%CNAME("二人称")%……接吻、好きだよね」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

	;二回目以降は別のところで判定。セリフ丸々被ってるしね。
	ELSE

	ENDIF
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:処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「第一次能献给%CNAME("二人称")%……好開心……♪」
		;それ以外
		ELSE
			PRINTFORMW 「啊、做了这种事之后……」
			PRINTFORMW 「%CNAME("二人称")%的话、会好好地负起责任的是吧？」
			;内なる悪魔「だが断る」
		ENDIF
	;非処女
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ｖ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;巨根
	IF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW 「果然%CNAME("二人称")%的、肉棒……好大啊……」
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 65
			PRINTFORMW 「这样被榨取的感觉如何？很好吗♪」
		;対面座位
		CASE 63
			CALL PRINT_STR, "「如果一直被看着的话、心跳就会加速………_HH_」_W"
		;それ以外
		CASEELSE
			CALL PRINT_STR, "「哈啊……嗯唔……_HH_」_W"
			CALL PRINT_STR, "「进来的时候总是让人很安心呢_HH_」_W"
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW 「今天也满满地射出来吧♪」
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ｖ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2  == 0
		IF TALENT:恋慕
			CALL PRINT_STR, " 「啊呜、稍微让我……_HH__HH_」_W"
		ELSE
			PRINTFORMW 「(正在忍耐着……)」
		ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2  == 0
		IF TALENT:恋慕
			CALL PRINT_STR, "「喜欢被人从_HH_后面插入呢_HH_」_W"
		ELSE
			CALL PRINT_STR, "「我很喜欢……这个姿势……_HH_」_W"
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STR, "「唔……能看到被插入的地方让人很不好意思呢……_HH_」_W"
				CALL PRINT_STR, @"「%CNAME("二人称")%的肉棒在我体内的时候、露出舒服的表情、请多让我看看_HH_」_W"
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				CALL PRINT_STR, "「身体相结合的地方、可以看见呢、稍微有些害羞……_HH_」_W"
			ELSE
				PRINTFORMW 「如果看不到脸的话、会变得兴奋起来……っ」
			ENDIF
		CASEELSE
			IF RAND:4 == 0
				CALL PRINT_STR, "「看不到脸的话、会因为不知道身后会被如何对待而兴奋_HH_」_W"
			ELSEIF RAND:3 == 0
				PRINTFORMW 「不要忍耐、让我们变得更加舒服吧♪」
			ELSEIF RAND:2
				PRINTFORMW 「欸嘿嘿……♪」
			ELSE
				PRINTFORMW 「请让%CNAME("一人称")%变得更加的舒服起来吧♪」
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
;-------------------------------------------------
;二穴挿入(書く場合には;を消してください)
;-------------------------------------------------
;ELSEIF SELECTCOM >= 60 && SELECTCOM <= 79 && COND("３Ｐ")
;	IF CHECK_COM("两根挿入Ｖ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ｖ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("两根挿入Ａ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ａ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("二穴挿入")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("二穴挿入")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ENDIF
ENDIF

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

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

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

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

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

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

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

;-------------------------------------------------
;Ａ挿入系初選択
;疼痛が少なく楽しめているかはCHECK("Ａ挿入")で判定
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	;Ａ処女
	IF TALENT:Ａ処女
		;恋慕
		IF TALENT:恋慕
			IF CHECK("Ａ挿入")
				IF TALENT:処女
					PRINTFORML 「在处女给を%CNAME("二人称")%之前先将后面的处女交给%CNAME("二人称")%、感觉有些奇怪……」
					PRINTFORML 「无论那一边的第一次%CNAME("一人称")%都想献给%CNAME("二人称")%、好好地享用%CNAME("一人称")%的两次初体验吧、%CNAME("二人称")%♪」
				ELSEIF CEVENT("你と処女喪失：南実")
					CALL PRINT_STRL, @"「处女和尻穴都被%CNAME("二人称")%占有了。如同在梦里一般、内心雀跃不止………_HH_」"
					CALL PRINT_STRW, @"「私達は実の%NAMES("兄弟")%なのに超えちゃいけない一線を越えちゃったね_HH_」"
				ELSEIF CEVENT("你以外と処女喪失：南実")
					PRINTFORML 「虽然处女不能交给%CNAME("二人称")%了……」
					CALL PRINT_STRW, @"「但是%CNAME("一人称")%很高兴%CNAME("一人称")%还有后面的第一次可以交给%CNAME("二人称")%_HH_从此%CNAME("一人称")%的尻穴就是%CNAME("二人称")%专用的了_HH_」"
				ENDIF
			ENDIF
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			CALL PRINT_STRL, @"「呐……总是玩弄那里的话_HH_明明还是第一次却变得这么舒服_HH_」"
			CALL PRINT_STRW, @"「……让%CNAME("一人称")%变得这么H的事情……%CNAME("二人称")%要好好负起责任啊_HH_」"
		;それ以外
		ELSE
			PRINTFORML 「唔嗯……没関系的」
			CALL PRINT_STRW, @"「虽然有些痛……但是%CNAME("二人称")%喜欢的话、%CNAME("一人称")%也要努力才行_HH_」"
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF RAND:2 == 0
				PRINTFORML 「用屁股做H的事情本来应该是不正常的才对呢……」
				PRINT 「比起那个……
				IF TRUE_SEX(MASTER) != "男性"
					PRINT 姉妹
				ELSE
					PRINT 兄妹
				ENDIF
				CALL PRINT_STRW, @"之间变成这样……也是因为%CNAME("二人称")%实在太H了的错_HH_」"
			ELSE
				PRINTFORM 「%CNAME("一人称")%的后面、是只属于%CNAME("二人称")%的
				IF PENIS(MASTER)
					PRINTFORMW 肉棒
				ELSE
					PRINTFORMW 使用的呢
				ENDIF
				CALL PRINT_STRL, @"我记住了呢_HH_」"
				CALL PRINT_STRW, @"「在满足之前%TEXTR("很多的/满满的")%射进来吧……不喜欢吗？_HH_」"
			ENDIF
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			CALL PRINT_STRL, @"「哈啊_HH_……%CNAME("一人称")%、尻穴已经变得很舒服了呢_HH_」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%多少也习惯了、可以不用忍耐尽情的做H的事情了呢、%CNAME("二人称")%_HH_」"
		;それ以外
		ELSE
			PRINTFORMW 「少し痛いけど……これが%CNAME("二人称")%の望みなら耐えてみせるからね」
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ａ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORML 「稍等一下……」
		PRINTFORMW 「因为用屁股做会很%TEXTR("害怕/痛")%……所以温柔些可以吗？」
	;巨根
	ELSEIF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		CALL PRINT_STRL, @"「%TEXTR("んっ/んんっ")%_HH_%CNAME("二人称")%好大……」"
		CALL PRINT_STRW, @"「そんな%TEXTR("大きい/立派な")%ので%TEXTR("お尻/肛門")%犯されたら_HH_%CNAME("一人称")%、%TEXTR("壊れちゃいそう/おかしくなっちゃいそう")%_HH_」"
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			IF PENIS(PLAYER)
				CALL PRINT_STRL, @"「一定要%TEXTR("努力的侍奉/充分地榨取")%%CNAME("二人称")%的身体呢_HH_」"
			ELSE
				CALL PRINT_STRL, @"「明明都是%TEXTR("女孩子/同性")%却在做这样的事情%CNAME("一人称")%觉得%TEXTR("很变态的样子/不太正常呢")%_HH_」"
			ENDIF
			CALL PRINT_STRW, @"（%TEXTR("我能做的好吗……啊……、插进来了/虽然很害羞……但是只能加油了。啊……、明明只是插进来而已……就变的这样舒服起来")%_HH_）"
		;対面座位
		CASE 73
			IF PLAYER == MASTER && RAND:2 == 0
				CALL PRINT_STRL, @"「%TEXTR("虽然不太好意思/稍微有些高兴")%_HH_就像一对恋人一样_HH_」"
				PRINTFORM 「一般的恋人会用热衷于用%TEXTR("后面/尻穴")%做爱吗？%CNAME("一人称")%明明我们还是
				IF TRUE_SEX(MASTER) != "男性"
					PRINT 姉妹
				ELSE
					PRINT 兄妹
				ENDIF
				CALL PRINT_STRW, @"所以作为不寻常的恋人_HH_因为是禁断的関系、所以才会用%TEXTR("后面/尻穴")%做爱吗_HH_」"
			ELSE
				CALL PRINT_STRL, @"「%CNAME("二人称")%是喜欢使用%CNAME("一人称")%的%TEXTR("后面/尻穴")%吗？_HH_」"
				PRINTFORM 「虽然%CNAME("一人称")%觉得这样不太对……但
				IF TRUE_SEX(MASTER) != "男性"
					PRINT 姐姐
				ELSE
					PRINT 欧尼酱
				ENDIF
				CALL PRINT_STRW, @"「%TEXTR("喜欢的话/想做的话")%%TEXTR("我也会喜欢/心情也会变好")%_HH_」"
			ENDIF
		;それ以外
		CASEELSE
			IF PENIS(PLAYER)
				IF TEQUIP:PLAYER:避孕套
					CALL PRINT_STRL, @"「%TEXTR("有好好戴上避孕套呢/能这样尊重我我很開心")%_HH_」"
					CALL PRINT_STRW, @"「%TEXTR("在屁股里/在尻穴里")%に%TEXTR("射精的瞬间/射精的感觉")%也不讨厌的样子_HH_……%TEXTR("但是从里面流出来会很不好意思_HH_/溢出来的话感觉有点脏……")%」"
				ELSE
					CALL PRINT_STRL, @"「%CNAME("二人称")%、%TEXTR("屁股/尻穴")%なら%TEXTR("无论中出多少次都不会怀孕的/不会怀孕所以可以尽情的射进来哦")%_HH_」"
					CALL PRINT_STRW, @"（%TEXTR(@"%CNAME("一人称")%的肚子被满满地注入了呢……有些心跳加速/虽然不会怀孕……但是被人看出来怎么办……哈啊_HH_想象一下就会很羞耻")%_HH_」"
				ENDIF
			ELSE
				CALL PRINT_STRL, @"「虽然是%TEXTR("女孩子/同性")%但是……%TEXTR("肛交/用尻穴做")%%TEXTR("也是不对的/也是错误的")%_HH_」"
				CALL PRINT_STRW, @"「当然、如果是%CNAME("二人称")%那么%CNAME("一人称")%就会%TEXTR("安下心来……因为很温柔/不太担心……虽然我也知道这有些不正常")%_HH_」"
			ENDIF
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;Ｓ状結腸を使っての肛門性交
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHECK_COM("結腸責め")
	;初めての結腸責め
	IF EXP:結腸経験 == 0
		PRINTFORMW
	;今回初の結腸責め
	ELSEIF EXP_GAIN("結腸経験") == 0
		IF TALENT:結腸性感
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:結腸性感
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ａ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;余裕が無い
	ELSEIF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		CASEELSE
			IF RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで)
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 74
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門騎乗位
;-------------------------------------------------
IF SELECTCOM == 75
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;貝あわせ
;-------------------------------------------------
IF SELECTCOM == 80
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;手淫
;-------------------------------------------------
IF SELECTCOM == 90
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「えー、……%CNAME("二人称")%が独りでしてる所が見たいのに。私がお手伝いしないとダメ？」
			PRINTFORMW 「しょうがないなぁ……じゃあ先っぽにほら、おててを置いてて给から」
			CALL PRINT_STRW, @"「ここに向かって、ほら。ぴゅー……_HH_ ってしよ？」"
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
;樱口上の改変
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕 && RANDIF(1, ABL:奉仕精神 >= 3)
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;乳交
;-------------------------------------------------
IF SELECTCOM == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STRW, @"「胸部で%CNAME("二人称")%のおちんちん、こす、こす_HH_ すればいいの？」_"
		CALL PRINT_STRW, @"「ん、しょ……_HH_ 気持ちよくなぁれ_HH_」_"
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「ねーねー_HH_」_"
			CALL PRINT_STRW, @"「この体勢だと～、胸部で……%CNAME("二人称")%のおちんちん_HH_」_"
			CALL PRINT_STRW, @"「%CNAME("一人称")%のいいようにできちゃうね_HH_」_"
			PRINTL 「胸部たぷたぷ～って
				SIF FINDCHARA(NO, 40) > 0
					PRINTL 綾乃前輩みたいに
			CALL PRINT_STRW, @"してあげよっか_HH_」_"
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「あはー……_HH_」_"
			CALL PRINT_STRW, @"「この体勢だと～、%CNAME("二人称")%のせーえき_HH_ 搾り取れちゃうね_HH_」_"
			PRINT 「胸部たぷたぷ～って
				SIF FINDCHARA(NO, 40) > 0
					PRINT 綾乃前輩みたいに
			CALL PRINT_STRW, @"してあげよっか_HH_」_"
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕 && RAND:2 == 0
				CALL PRINT_STRW, @"「胸部で……たぽたぽ_HH_おちんちんしごきながら…ねっとり接吻しちゃうの、好き…_WH_」_"
				CALL PRINT_STRW, @"「あっ……_HH_ び君び君っておちんちん震えてる～……_HH_」_W"
				CALL PRINT_STRW, @"「嬉しいから、もっとしちゃおー……_HH_」_"
		;それ以外
		ELSE
				CALL PRINT_STRW, @"「胸部で……たぽたぽ_HH_ おちんちんしごいちゃうね……_WH_」_"
				CALL PRINT_STRW, @"「び君び君っておちんちん震えてる～……_HH_」_W"
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;素股
;-------------------------------------------------
IF SELECTCOM == 93
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「啊喏、这样用腿夹着摩擦就可以了吗？」
		PRINTFORMW 「――啊、不是吗？」
		PRINTFORML
		PRINTFORMW 「这样用大腿摩擦肉棒的话」
		CALL PRINT_STR, "「……如果趁乱插入小穴的话……也是有可能的_HH_」_W"
		;樱欧内酱とは違うんです
	;二回目以降
	ELSEIF CHECK_COM("展示肉棒")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
	IF RAND:4 == 0 && TALENT:恋慕
			PRINTFORMW 「再稍微用力一些会更舒服吗……？」
			CALL PRINT_STR, "「加油_HH_努力_HH_」_W"
		ELSEIF RAND:3 == 0 && TALENT:恋慕 > 0
			PRINTFORMW 「就算直接插入小穴也可以哟」
			PRINTFORMW 「……欸、因为没有正式成为恋人所以不行？」
			PRINTFORMW 南实似乎相当不满的样子。
		ELSEIF RAND:2 == 0
			PRINTFORMW 「%CNAME("二人称")%的肉棒……正在摩擦着敏感的地方……唔嗯……っ」
			PRINTFORMW 「好舒服……嗯……唔……呜…………」
		ELSE
			PRINTFORMW 「大腿夹的紧一些会变得更舒服吗？」
			PRINTFORMW 「啊呜、%CNAME("二人称")%的肉棒……好灼热……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;肛門奉仕
;-------------------------------------------------
IF SELECTCOM == 96
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;内褲冲
;-------------------------------------------------
IF SELECTCOM == 97
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「真的要这样做吗？ 我觉得不会很舒服的样子……」
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	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
	;二回目以降
	ELSE
		IF ABL:精液中毒 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;穿环
;-------------------------------------------------
IF SELECTCOM == 148
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW 「那个呢……我呢、对于这种事情不太擅长呢……不要了、好吗」
			PRINTFORMW 南实被要求打耳孔、好像很为难、但还是不情愿的遵从了你的要求。
		;それ以外
		ELSE
			PRINTFORMW 「那个呢……我呢、对于这种事情不太擅长呢……不要了、好吗」
			PRINTFORMW 南实被要求打耳孔、好像很为难、但还是勉强遵从了你的要求。
		ENDIF
	;二回目以降
	ELSE
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW 「……还没戴上？」
			PRINTFORMW 南实虽然十分讨厌戴耳环、但还是不情愿的听从了你的要求。
		;それ以外
		ELSE
			RETURN 0
			;ＯＮフラグが付けた際のセリフです
			IF COND("陰蒂環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("陰唇環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("乳环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("肚脐环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;攝像機使用
;-------------------------------------------------
IF SELECTCOM == 170
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:攝像機 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「呐、只有%CNAME("一人称")%自己可以观看录下来的东西吧？」
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

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

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

;--------------------------------------------------
;調教指令の地の文の前に喋る台詞はここに書く
;--------------------------------------------------
@KOJO_MESSAGE_BEFORE_COM_K42
;振動棒の初回限定で処女
;二度は聞かない
IF SELECTCOM == 31 && FIRSTCOM(31) == 0 && TALENT:処女
	;V経験无
	IF EXP:Ｖ経験 == 0
		;口枷有
		SIF TEQUIP:口枷
		CALL PRINT_STR, @"当%CALLNAME:MASTER%准备着振动棒的时候、从侧面探頭过来的%CALLNAME:TARGET%、打着「把",\@ TEQUIP:口枷 == 1 ? 口球 # 口环 \@,"取下来」那样的眼色_W_"
		PRINTFORMW 「……啊咧、%CNAME("二人称")%在干什么呢？」
		PRINTFORMW 「%CNAME("一人称")%、没有使用过那种东西……」
		PRINTFORMW 「这还是第一次和%CNAME("二人称")%保持这样的肉体関系呢？」
		PRINTFORMW 「…………」
		PRINTFORML
		PRINTFORMW 「……哪个、好像有些说不太明白呢……」
		PRINTFORMW 「%CNAME("一人称", "かな")%、因为……还是处女的说……」
		PRINTFORML
		PRINTFORMW 「不希望一開始就接触这样奇怪的玩法呢」
			;極太以上
			SIF SIZE("振動棒") >= 2
				PRINTFORMW 「还有呐、哪个……那么大的东西真的能够塞进来吗」
		PRINTFORMW 「……能重新再考虑一下吗？」
		;振動棒で処女を奪うのをやめる？
		CALL PRINT_SELECT, "不能/重新考虑"
		SELECTCASE RESULT
		;やだ
		CASE 0
			PRINTFORMW 「唔、呜呜呜、%CNAME("二人称")%喏baka、大笨蛋！」
			PRINTFORMW 「想要留给喜欢的人呢、稍微注意一下啊……真是的」
		;考え直す
		CASE 1
			PRINTFORMW 「……十分感谢」
			PRINTFORMW 「虽然不知道能不能实现……」
			PRINTFORMW 「但是……第一次的话、想要送给最喜欢的人呢……」
			TFLAG:指令中止 = 1
		ENDSELECT
	ENDIF
ENDIF

IF SELECTCOM == 13
	TFLAG:地の文スキップ = 1
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STRW, @"「あの、……%CNAME("二人称")%？」"
		CALL PRINT_STRW, @"「いくらなんでも、実の%NAMES("兄弟")%に自分のを広げて見せて欲しいだなんて……本気なのっ？」"
		CALL PRINT_STRW, @"「も～～～～_／／／_」"
		PRINTFORM %CALLNAME:TARGET%將%CALLNAME:PLAYER%的目前で大きく股を開くと、
		IF CHECK_CLO("没穿内褲")
			PRINTFORM 内衣に覆われていない
		ELSE
			PRINTFORM %PANTIES(TARGET)%越しの
		ENDIF
		SIF TALENT:処女
			PRINTFORM まだ不识男人滋味的
		PRINTFORMW 阴部を指で広げてみせた……
		PRINTFORML
		CALL PRINT_STRW, @"「ね、ねぇ%CNAME("二人称")%……？　これで満足……した？_／／／_」"
		IF CHECK_CLO("Ｖ露出")
			PRINTFORM 眼前であけすけ变成了%CALLNAME:TARGET%の%TEXTS("阴部：視覚")%は
			IF EXP_GAIN("膣内精液経験")
				; ナカダシ済み
				PRINTFORMW 注ぎ込んだばかりの精液をごぼりと零し的同时、その奥に少しでも多くの白濁を呑み込もうとひくつく子宮の入り口が見える……
			ELSEIF EXP_GAIN("Ｖ性交経験")
				; 挿入済み
				PRINTFORMW 先程まで咥えていた肉棒を惜しむかのようにぽかりと口を開け、淫らな蜜にまみれながら肉欲に飢える肉襞の蠢動を見せつけている……
			ELSEIF PALAM:Ｖ潤 < 1000
				PRINTFORMW 雌の空気を匂わせながらも、今日の自分はまだ清らかだと去勢を張っている……
			ELSE
				PRINTFORMW 肉棒の憤りを受け止めたいと訴えるかのようにひくひくと震え、ヨダレのような蜜をじゅくじゅくと滲ませている……
			ENDIF
		ENDIF
	ELSE
		;已中出み
		IF EXP_GAIN("膣内精液経験") >= 1 && TALENT:相思相愛 && RAND:4 == 0
			CALL PRINT_STRW,  "「ぅ、ぁ_BH_　ぁぁ_BH_　ぅぅ_BH_」"
			PRINTFORM 自己的膣口を両手で広げた%CALLNAME:TARGET%は、肉欲に蠢く肉襞の奥から尽きることなく溢れ出る新鮮な精液を泣き顔とも陶然ともつかぬ顔で凝視している……
			CALL PRINT_STRW, @"「%CNAME("一人称", "どもり")%の%CNAME("おまんこ")%から……_BH_　%CNAME("精液")%が……こんなにいっぱい……_BH_」_W"
			CALL PRINT_STRW, @"「ぁ……_BH_ ぅぅ……_BH_ ぅー……_BH_」"
			PRINTFORMW %CALLNAME:TARGET%は膣内の精液を見せびらかすように零し的同时、何かを期待するような目で%CALLNAME:PLAYER%を見てわずかに腰を振っている……
		ELSEIF TALENT:恋慕 && EXP_GAIN("膣内精液経験") && RAND:3 == 0
			CALL PRINT_STRW, @"「ねーぇ……_BH_　酱と見える？　これ、ぜーんぶ%CNAME("二人称")%の%CNAME("精液")%なの……_BH_」"
			CALL PRINT_STRW, @"「%CNAME("一人称")%のナカ、%TEXTR("ドロドロ/真っ白")%になっちゃった……_BH_」"
		ELSEIF EXP_GAIN("膣内精液経験") && RAND:2 == 0
			CALL PRINT_STRW, @"「%CNAME("二人称")%、もぉ……_BH_　これが見たかったんでしょ……？」"
			CALL PRINT_STRW, @"「ん……っ_BH_」"
			PRINTFORMW %CALLNAME:TARGET%が息を止めて力むと、その指で広げられた%TEXTR("秘所/肉壷")%から先程%TEXTR("注いだ/注ぎ込んだ/搾り取られた")%ばかりの%TEXTR("精液/精液/白濁")%がごぼりと音を立てて溢れてきた……
		ELSEIF EXP_GAIN("膣内精液経験")
			PRINTFORMW 注ぎ込んだばかりの精液をごぼりと零し的同时、その奥に少しでも多くの白濁を呑み込もうとひくつく子宮の入り口が見える……
			CALL PRINT_STRW, @"（%CNAME("二人称")%ってば、ホントにもう……_WH_）"
			CALL PRINT_STRW, @"「は、ぁ……_BH_　こんなに……%TEXTR("出された/注がれちゃった")%んだ……_BH_」"
		ENDIF
		PRINTFORM %CALLNAME:TARGET%將%CALLNAME:PLAYER%的目前で大きく股を開くと、
		IF CHECK_CLO("没穿内褲")
			PRINTFORM 内衣に覆われていない
		ELSE
			PRINTFORM %PANTIES(TARGET)%越しの
		ENDIF
		SIF CHECK_CLO("Ｖ露出")
			PRINTFORM 眼前であけすけ变成了%CALLNAME:TARGET%の%TEXTS("阴部：視覚")%は、
		IF EXP_GAIN("Ｖ性交経験")
			; 挿入済み
			PRINTFORMW 先程まで咥えていた肉棒を惜しむかのようにぽかりと口を開け、淫らな蜜にまみれながら肉欲に飢える肉襞の蠢動を見せつけている……
		ELSEIF PALAM:Ｖ潤 < 2000
			PRINTFORMW 雌の空気を匂わせながらも、今日の自分はまだ清らかだと去勢を張っている……
		ELSE
			PRINTFORMW 肉棒の憤りを受け止めたいと訴えるかのようにひくひくと震え、ヨダレのような蜜をじゅくじゅくと滲ませている……
		ENDIF
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「もう……_BH_　これでいいの……？_／／／_」"
				CALL PRINT_STRW, @"（ぅ_BH_ うぅ_BH_ 見られてる_BH_ %CNAME("一人称")%の%CNAME("おまんこ")%っ）"
				CALL PRINT_STRW, @"（奥の方まで%CNAME("二人称")%に見られてるぅ……_BH_)"
			CASE 1
				CALL PRINT_STRW, @"「ねえ……そんなに%TEXTR("顔を近づけないで/近くで見ない")%でよ……_BH_」"
				CALL PRINT_STRW, @"「流石にちょっと……恥ずかしい……_／／／_」"
			CASE 2
				CALL PRINT_STRW, @"「……こんなの見て興奮するのかなぁ……？」"
				CALL PRINT_STRW, @"（そんなにじっくり見られたら……_WH_　感じちゃう……_WH_）"
			CASE 3
				CALL PRINT_STR,  "「もうっ_WH_　ま、まだ見る……？　そんなに見たい……？_／／／_」_W"
				CALL PRINT_STRW, @"（そんなにじっくり見られたら……_WH_　おまんこが、感じちゃう……_WH_）"
			CASE 4
				CALL PRINT_STRW, @"「じろじろ見すぎだよぉっ、%CNAME("二人称")%のえっち_／／／_」_"
				CALL PRINT_STRW, @"（おまんこが、感じちゃって……_WH_だめぇ、だらだら、垂れちゃう……_／／／_）"
		ENDSELECT
	ENDIF
ENDIF
;口交初回or六九式初回限定で一度も呼ばれていない
;よって二度目は中止するか聞かない
IF ( (SELECTCOM == 91 && FIRSTCOM(91) == 0) || (SELECTCOM == 99 && FIRSTCOM(99) == 0) ) && TALENT:処女
	;初吻
	IF FIRSTCOMS("口") == 0
		;段階0　予定
		;IF
			;推倒
			IF TEQUIP:推倒
				;口枷着用時には口上をスキップする？
				SIF TEQUIP:口枷 && SELECTCOM != 135
					RETURN 0
				PRINTFORMW 「%CNAME("二人称")%的肉棒、一颤一颤地看起来很美味呢……♪」
				PRINTFORMW %CALLNAME:MASTER%让%CALLNAME:TARGET%——
				;止める/止めない
				CALL PRINT_SELECT, "停下/继续"
				SELECTCASE RESULT
				;止める
				CASE 0
					PRINTFORMW 稍微等一下、欸――%CALLNAME:MASTER%要求%CALLNAME:TARGET%稍微忍耐一下
					PRINTFORMW 「――那样的话、来接吻吧。我想要%CNAME("二人称")%先亲我一下呢」
					PRINTFORMW 「约好了哦、%CNAME("二人称")%」
					;約束フラグセット
					CALL SET_CEVENT, "接吻的约定"
					;口交を中止
					TFLAG:指令中止 = 1
				;止めない
				CASE 1
					;口交へ
				ENDSELECT
			;それ以外
			ELSE
				;初吻の場合中止の選択肢を表示
				IF FIRSTCOMS("口") == 0
					;口枷使用中
					SIF TEQUIP:口枷
						PRINTFORMW %CALLNAME:MASTER%为了口交而挺着陰莖准备突击的时候、注意到%CALLNAME:TARGET%请求取下口枷那样的意图
					PRINTFORMW 「……那个、%CNAME("二人称")%。可以吗？」
					PRINTFORMW 「%CNAME("二人称")%的话、……就算要%CNAME("一人称")%舔你的肉棒……也是可以的哦」
					PRINTFORMW 「%CNAME("一人称", "かな")%的话、怎么说呢……那个……要舔了哦……」
					PRINTFORMW 「这里的第一次、也是%CNAME("二人称")%的呢、我的嘴巴已经完全属于%CNAME("二人称")%了呢」
					PRINTFORMW 「在和%CNAME("二人称")%的肉棒接吻前、能不能先给%CNAME("一人称", "かな")%一个吻呢……？」
					;先に接吻して给？
					CALL PRINT_SELECT, "答应/不能"
					SELECTCASE RESULT
					;して给
					CASE 0
						PRINTFORMW 「……谢谢」
						PRINTFORMW 「越好了哦、%CNAME("二人称")%……」
						;約束フラグセット
						CALL SET_CEVENT, "接吻的约定"
						;口枷を解除
						TEQUIP:口枷 = 0
						;口交を中止
						TFLAG:指令中止 = 1
					;不给
					CASE 1
						PRINTFORMW 「……欸……%CNAME("二人称", "かな")%、真狡猾」
						PRINTFORMW 「真是的、之后会把我的初吻交给白的啦」
						PRINTFORMW 「……%CNAME("二人称")%のおちんちんに、%CNAME("一人称")%の初吻しちゃうから」
						;口枷使用中
						SIF TEQUIP:口枷
							PRINTFORMW 在%CALLNAME:MASTER%给%CALLNAME:TARGET%重新戴好口枷的时候、陰莖再一次顶在她鼻尖上……
					ENDSELECT
				ENDIF
			ENDIF
		;ENDIF
	ENDIF
ENDIF
;口枷着用時には口上をスキップする？
SIF TEQUIP:口枷 && SELECTCOM != 135
	RETURN 0

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

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K42, 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
;-------------------------------------------------
;処女喪失(処女のみ)
;-------------------------------------------------
;2019/12/23　玛丽酱の中の人加筆
CASE "処女喪失"
	IF FIRST_EV("処女喪失") == 0
		;恋慕
		IF TALENT:恋慕
			;主人の性交による処女喪失
			IF  MASTER && INSERT("Ｖ挿入")
				CALL PRINT_STR, @" 「我的第一次能够交给%CNAME("二人称")%…真是……太好了…………_HH_」_W"
				CALL SET_CEVENT, "你で処女喪失：南実"
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSEIF PLAYER != MASTER
			PRINT 「想要献给
			IF TRUE_SEX(MASTER) != "男性"
				PRINT 姐姐
			ELSE
				PRINT 欧尼酱
			ENDIF
			PRINTFORMW 呢……我的第一次」
			CALL SET_CEVENT, "你以外と処女喪失：南実"
		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_K42, 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_K42
;初期は表示されないようにしてあるため、書いた後はRETURN 0を消す
RETURN 0

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

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

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

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

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

RETURN 1

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

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

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

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

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

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

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

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

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

	ELSE

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

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

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
CASE "清洁口交"
	SELECTCASE TFLAG:口上分岐
	;お掃除前
	CASE 0
		PRINTFORMW
	;お掃除中
	CASE 1
		PRINTFORMW
	;お掃除で射精しなかった
	CASE 2
		PRINTFORMW
	;お掃除で射精しそう？
	CASE 3
		PRINTFORMW
	;射精した
	CASE 4
		PRINTFORMW
	;お掃除で射精後
	CASE 5
		PRINTFORMW
	ENDSELECT
;-------------------------------------------------
;脱衣
;-------------------------------------------------
CASE "自発脱ぎ"
	;裸体变成了
	IF CHECK_CLO("裸体")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;阴部剥きだし
	ELSEIF CHECK_CLO("Ｖ露出")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;部分脱ぎ
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;妊娠した
;----------------------------------------------------------------
CASE "妊娠発覚"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW 「又生下了……%CNAME("二人称")%的孩子呢、好幸福♪」
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW 「那个呢、稍微有些事要对%CNAME("二人称")%说、不要被吓到哦」
		PRINTFORMW 「那个……」
		PRINTFORMW 「怀上了%CNAME("二人称")%的孩子呢……唔……」
		PRINTFORMW 「说实话……%CNAME("一人称")%也被吓到了呢……」
		PRINTFORMW 「既然怀上了、就想要好好养育它」
		PRINTFORMW 「要说为什么的话、因为是和%CNAME("二人称")%生下的孩子呢」
		PRINTFORMW 「%CNAME("二人称")%……我们两个要好好养育我们的孩子呢……」
		PRINTFORMW 「虽然这段感情一開始就是不应该的、但是……」
		PRINTFORMW 「……但这是我%CNAME("一人称")%们两个最重要的孩子呢……」
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;出産した
;----------------------------------------------------------------
CASE "出産"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;兒童が大きくなった
;----------------------------------------------------------------
CASE "子出口"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;性交後に抜いた時
;----------------------------------------------------------------
;恥ずかしいところを見せてくれる
;----------------------------------------------------------------
CASE "中出し後くぱぁ"
	;恋慕
	IF TALENT:恋慕
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	PRINTFORMW
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
CASE "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;塞子をしていない状態での液体浣腸口上
;----------------------------------------------------------------
CASE "无塞浣腸事件"
	;限界値突破時
	IF BASE:排泄欲 >= 10000
		;限界値を超えたが漏らせない場合
		IF INSERT("Ａ挿入") || COND("肛門栓")
			PRINTFORMW
		;漏らす直前
		ELSE
			PRINTFORMW
		ENDIF
	;漏らした
	ELSEIF NOWEX:排泄
		PRINTFORMW
	;我慢しているときの口上
	ELSEIF TEQUIP:浣腸
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;吸能
;----------------------------------------------------------------
CASE "吸能"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;調教者がちんこを挿入する前に射精してしまった！
;----------------------------------------------------------------
CASE "挿入前暴発"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;特殊な道具を使った際の台詞
;----------------------------------------------------------------
CASE "避妊の護符"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		;装着
		IF TALENT:避妊の護符
			PRINTFORMW
		;取り外し
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:避妊の護符
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

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

ENDSELECT

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

SELECTCASE ARGS
CASE "勧誘"
CASE "恋慕"
CASE "淫乱"
CASE "相思相愛"
	SIF FLAG:二人きり && TALENT:ACTOR:恋慕
		RETURN 1
	STR:実行条件 = イエロー_（※%CALLNAME:ACTOR%と[相思相愛]になるには、[恋慕]かつ二人きりの必要が有ます）
CASE "淫紋"
ENDSELECT
;-------------------------------------------------
;@単体エンディング関係(42を角色番号に置換)
;通常のエンディングチェックの前に個別エンディングを判定
;-------------------------------------------------
;
;
;
;
;
;
;
;
;
;
;★ここから先にはエンディングが記述されています★
;ネタバレを避けたい方は閲覧不会うにご注意下さい。
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
@IS_SINGLE_ENDING_K42
;エンディングを書いたら、下のRETURN 1のコメントアウト;を消してください
RETURN 1

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

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

SIF TALENT:恋慕 && FINDCHARA(NO, 1) > 0 && FINDCHARA(NO, 10) > 0
	STR:エンディング += "1_南実：ほんとうの我/"
SIF TALENT:恋慕 && FINDCHARA(NO, 1) > 0 && FINDCHARA(NO, 10) > 0 && FINDCHARA(NO, 6) > 0 && CEVENT("你と処女喪失：南実") > 0
	STR:エンディング += "2_南実：狂気にまみれて/"
SIF TALENT:恋慕 >= 1 && CEVENT("南実：シナリオイベント１") && CHARANUM >= 5
	STR:エンディング += "3_南実：もしもの私 １話/"
;魂の量によるEND
;SIF BASE:魂 >= 300
	;ENDの番号_END名 となっている
	;番号は1～60の範囲(でもできれば１から順に詰めて使用)の半角数字で、ＥＮＤ名は喜欢的东西に変更してください
;	STR:エンディング += "1_ＥＮＤ名１/"
;其他の条件(例えば淫乱)によるEND
;魂の量と其他の条件(例えば相思相愛)によるEND
;SIF BASE:魂 >= 300 && TALENT:相思相愛
;	STR:エンディング += "3_ＥＮＤ名３/"
RETURN 1

;ARGSには@MENU_SINGLE_ENDING_K42で設定したEND名のどれかが入っている
;見たENDはCEVENTで記録される
;例）ＥＮＤ名１を閲覧した場合は CEVENT("ＥＮＤ名１") = 1 となる
@SINGLE_ENDING_K42, ARGS
#DIMS ジャンプ判定
SELECTCASE ARGS
CASE "南実：ほんとうの我"
	PRINTFORMW 某一天、%CALLNAME:MASTER%与%CALLNAME:TARGET%\@ COND("同居中") ? 被从自己的房间 # \@叫出来了。
	PRINTFORMW 在那里等待的是是稍微侧倾着頭、满脸疑惑的母亲、麦丽爱娜、她想知道你们之间究竟发生了什么……
	PRINTFORMW 「……那么。两人都到了呢？」
	PRINTFORML
	PRINTFORMW 带着奇妙的表情、母上看着两人。
	PRINTFORMW 做了什么让母亲生气的事、不然的话……就是每天的淫行被发现了？……无论怎样、被母亲叫出来总是一件让人心虚的事情。
	PRINTFORMW 「……弗理希艾尔桑から%CALLNAME:MASTER%从菲利夏尔老师那里得知了我的儿子拥有着贵重的特殊能力、其实……妈妈我是个恶魔哦、你们知道吗？」
	PRINTFORMW %CALLNAME:MASTER%和南实点了点頭、麦丽爱娜像是放下了心、開口道。
	PRINTFORML
	PRINTFORMW 「……真是个无能的母亲呢、我。……%CALLNAME:MASTER%和南实……其实并非是纯粹的人类。」
	PRINTFORMW 南实露出了困惑的表情、向母亲问到。
	PRINTFORMW 「母亲大人、関于这个、您是从什么时候……就知道了呢？」
	PRINTFORMW 「……从%CALLNAME:TARGET%出生的时候、就知道了哟。」
	PRINTFORMW 「%CALLNAME:MASTER%、拥有复活的能力这件事……。」
	PRINTFORMW 麦丽爱娜露出了无法形容的表情、抬頭向上方看去。
	PRINTFORML
	PRINTFORMW ……虽然已经知道了母亲的真实身份是恶魔、但自己和妹妹……。
	PRINTFORMW 现在已经和弗理希艾尔签订了契约、也有着更多不为人知的可能性。
	PRINTFORMW 但是到现在为止、自己一直是以人类的身份自居并生活着的。
	PRINTFORMW 这个冲击性的事实对于%CALLNAME:TARGET%来说并不是很容易接受……
	PRINTFORML
	PRINTFORMW 「……%CALLNAME:TARGET%的恶魔血统、正因为你们两人之间的性事逐渐被激活。对于南实来讲、可能会是件比较辛苦的事情。」
	PRINTFORMW 「那么、以后不能和%CNAME("二人称")%做H的事情了吗？」
	PRINTFORMW 事到如今竟然不能和已经成为恋人的%CALLNAME:TARGET%继续交往了、内心不由得有些悲伤起来。
	PRINTFORMW 虽然知道禁断的情事会使自己进一步向恶魔靠拢……但还是想要与重要的人亲密的在一起。
	PRINTFORMW 最重要的是、如果和南实分開的话、自己也会从此消沉下去吧……有这样的预感。
	PRINTFORMW 「只要弗里希艾尔在的话、基本上不会有什么太出格的事情、所以只要别做些特别奇怪的事情、都可以哦。想和%CALLNAME:MASTER%尽情的做爱这件事情、%CALLNAME:TARGET%也是一直在煎熬的忍耐着。」
	PRINTFORMW 在那之后，麦丽爱娜一边流着泪一边拥抱着%CALLNAME:TARGET%与%CALLNAME:MASTER%……
	PRINTFORML
		IF CEVENT("南実：ほんとうの我") == 0
		CSTR:種族 = 悪魔
		CALL SET_CEVENT, "南実：シナリオイベント１"
		SETCOLOR DEF_COLOR("黄色")
		PRINTFORMW - 系统信息 -

		PRINTFORMW %CALLNAME:TARGET%的种族变成了恶魔。
		PRINTFORMW %CALLNAME:TARGET%的请求中添加了恶魔才可以交易的项目。
		PRINTFORMW 另外、%CALLNAME:TARGET%可以喝酒了。
		RESETCOLOR
		ENDIF
	PRINTFORML
	PRINTFORML
	PRINTFORMW To be continued ...?

CASE "南実：狂気にまみれて"
	PRINTFORMW ！注意！
	PRINTFORMW 这个剧本包含角色崩坏、死亡等内容。
	PRINTFORMW 即使这样也要阅览吗？
	CALL PRINT_SELECT, "好呀/不行"
	IF RESULT == 0
		PRINTFORMW
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW
		PRINTFORMW 呐、%CNAME("二人称")%……、为什么会和这样的女人在一起？
		PRINTFORMW 能成为%CNAME("二人称")%的爱人的，只有%CNAME("一人称")%和妈妈还有樱姐姐的吧？
		PRINTFORMW 因为是血脉相连的亲人呢。
		PRINTFORMW 那样的女人，就算消失了也没有関系吧。
		PRINTFORMW 如果连第一次都不能献给%CNAME("二人称")%的话。
		PRINTFORMW 独占了%CNAME("二人称")%的宠爱的这个女人……
		PRINTFORMW 只 能 杀 掉 呢 、不 是 吗 ？
		PRINTFORMW
		PRINTFORMW 啊啊、这个？ ……是杀掉樱姐的时候沾到的血迹，妈妈看到之后过来想要夺走我手上的刀呢、但是也被我一起杀掉了哦？
		PRINTFORMW
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW
		PRINTFORMW 为什么！？为什么啊！？为什么那个女人想要勾引%CNAME("二人称")%啊！！
		PRINTFORMW %CNAME("二人称")%让開！ 那个家伙必须杀掉！！
		PRINTFORMW
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW
		PRINTFORMW 不然……%CNAME("二人称")%也……一起死掉吧？
		PRINTFORMW %CNAME("一人称")%快速的像你逼近过来、并且紧追不舍。
		PRINTFORMW
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW ・
		PRINTFORMW
		PRINTFORMW 总觉得胸口透不过气，像是做了一个噩梦……
		PRINTFORMW 我并不认为%CALLNAME:TARGET%会做出这样的事情。
		PRINTFORMW 但是……一想到如果自己做错了选择、%CALLNAME:TARGET%就会变成这样、那样可爱的妹妹竟然会因为自己变得那么恐怖……
		PRINTFORMW 那种危机感一直萦绕在心頭、久久不能散去。
		PRINTFORMW 这样想着，回去之前还是买些%TEXTR("蛋糕卷/奶油泡芙/冰淇淋/铜锣烧/水果/巧克力/草莓蛋糕")%带回去吧……
		CALL SET_CEVENT, "南実：シナリオイベント２"
	ELSE
	RETURN
	ENDIF
CASE "南実：もしもの私 １話"
	PRINTFORMW ！注意！
	PRINTFORMW このシナリオは角色崩壊・人によって不快な表現(NTL)を含みます。
	PRINTFORMW 即使这样也要阅览吗？
	CALL PRINT_SELECT, "好呀/不行"
	IF RESULT == 0
		PRINTFORMW 「なんかすごい不思議な夢を見たんだよね、こんな感じ」
		PRINTFORMW
		PRINTFORMW
		PRINTFORMW
		PRINTFORMW
		PRINTFORMW %CALLNAME:MASTER%と南実が悪魔である事が発覚してから、南実は日を追う事に色っぽさを増していった。
		PRINTFORMW 南実はその外見からも分かるとおり、元々悪魔としての素質はあったのかもしれない。
		PRINTFORMW 何故なら……悪魔として生きることを決めてからというもの、日に日に、南実の性的欲求が強くなっているのだ。
		PRINTFORML
		PRINTFORMW ――妹と幸せに生きることが出来るなら……
		PRINTFORMW どこか移開た……けれど当たり前の願いを抱いて思いを膨らませるうちに、南実が爸爸活をしているとも知らず。
		PRINTFORMW
		CALL PRINT_STRW, @"「……あんっ、ねぇ～爸爸ぁ_BH_」"
		CALL PRINT_STRW, @"「まなといいこと_BH_もっとしようよぉ_BH_」"
		CALL PRINT_STRW, @"「……天国にのぼるくらい_BH_気持ちいいよ_BH__BH_」"
		PRINTFORMW 南実の"爸爸"は否応无にうなずき、アン平衡な身体と南実の若さをむさぼりながら文字街道｢死が待っている｣とは知らず、ス布トを掛ける。
		PRINTFORML
		PRINTFORMW 『そ、それはまな酱が気持ちよくなってくれてるってことだね？』
		PRINTFORMW 爸爸と呼ばれた青年は南実がヨガってくれてるのに喜びこのままあわよくば無責任に中出ししてしまおうといるのに、それよりもっと高い代償をその身を持って払うことになるとも知らずに。
		CALL PRINT_STRW, @" 「うん～_BH_ 爸爸ぁ～、まなのためならなんだって捧げてくれるよね_BH__BH_」"
		PRINTFORMW 『あぁもちろん捧げる！！お金も、家も、家族も……君が望むならなんでもだ！！』
		PRINTFORML
		PRINTFORMW ……そうして、"爸爸"が精液を吐き出す寸前まで上り詰めると……南実の身体がほのかな桃色に包まれる。
		PRINTFORMW それが、この"爸爸"の話せた【最期のまともな言葉】だった。
		PRINTFORML
		CALL PRINT_STRW, @" ｢じゃあ……まなにその魂_BH_捧げてね_BH_｣"
		PRINTFORMW 『う、うお！？すごい締め付け……っ、くっ、まな、中に出すぞっっっ！！』
		PRINTFORMW
		PRINTFORMW ……まだ未熟な悪魔と是え、常人には手に余るどころか制御するのも難しい代物を手にして、彼が南実のためのミイラになる事は、想像しがたいことではなかった。
		PRINTFORMW 彼は命懸けの射精をして……魂ごと、南実へと吸われていく。
		PRINTFORMW 射精がやまないことに気づいた時には、もう手遅れだった。
		PRINTFORML
		PRINTFORMW 『ま、待ってくれ、本当に天国にいってしまうのか？！』
		CALL PRINT_STRW, @"「えぇ、爸爸ぁ～……まなの言うこと_BH_ 信じてなかったのぉ？ 天国にいっちゃうぐらい_BH_気持ちいいって_BH__BH_」"
		PRINTFORMW 『い、いやだ、僕には妻が、いやだ、しにたくない、しにたくない！！！』
		CALL PRINT_STRW, @"「あ～_BH__BH_イイコト_BH_ きいちゃった_BH_」"
		PRINTFORMW 『まな、やめてくれ、まなっ、まなぁぁぁ！！！』
		PRINTFORMW ……そうして、南実の手によって一人の男が絞られて死に、"爸爸"の愛する妻は南実の愛妾变成了。
		PRINTFORMW ……妻も最初こそ抵抗していたが、悪魔の魅力に抗えるはずもなく……今では南実が赴けばすぐに従うほどに調教されているという。
		PRINTFORMW そうしてその妻が屈服してから２度目の逢瀬を迎えようとした瞬間……
		PRINTFORML
		PRINTFORMW 「あれ……夢？」
		PRINTFORMW どこか朧気だけど、いやに現実味がある夢。
		PRINTFORMW ……もし母に自分の正体を教わっていなかったら、こうなったかもしれない。
		PRINTFORMW しかしこんな悪夢誰かに相談するわけにも…と。
		PRINTFORML
		PRINTFORMW 「……っていう夢を見たんだ……」
		PRINTFORMW 「……夢にしてはやけに現実味が有すぎて怖かった」
		PRINTFORMW よしよし、と頭を撫でてやり南実が落ち着くまで一緒にいようと決めたのだった。
	ELSE
	RETURN
	ENDIF
ENDSELECT
RETURN 1

path: ERB/EVENT_K/42 みなみ/EVENT_K42_みなみ.ERB