code:
;-------------------------------------------------
;艾迪安奴・帕拉奇娜口上
;-------------------------------------------------
;
;修女服である彼女の目的は魂の授受と救済で有、性行為はその手段にすぎません。
;したがってあまり積極的に快楽を追求することはなく、どちらかといえば受け身です。
;取引だから、生中出ししても何もやましいことはないし、昼間から部室で同級生と性交してもセーフなのです
;欺瞞！
;-------------------------------------------------
;（三代目）既に書かれてた上で加筆をしている場合はコメントアウトで加筆分を明示していきます。
;-------------------------------------------------
;屈服刻印3くらいが一番好きです
;-------------------------------------------------
;呼び名の設定。"_"の右にふりがなを書く。
;-------------------------------------------------
@CNAME_K9, ARGS
#FUNCTIONS

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 我_我
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		LOCALS = 你_你
	;相手が主人ではない
	ELSE
		LOCALS = 你_你
	ENDIF
CASE "主人"
	LOCALS = 主人様_主人大人
CASE "助手"
	LOCALS = %CALLNAME:ASSI%桑_%CSTR:ASSI:ふりがな%桑
ENDSELECT
RETURNF LOCALS

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

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = 十字教の修道女、所謂修女服で有驱魔人
	STR:2 = 但是由于种种原因，那块土地上的恶魔与驱魔人并没有什么明面上的争斗

CASE "勧誘"
	PRINTFORML - %NAME:TARGET% -
	PRINTFORMW 「一直因为吸引恶魔的体质而困扰……么」
	PRINTFORMW 「法王庁が你に保護を提供しましょう。これでも我、驱魔人なんです！」
CASE "勧誘直後"
	DRAWLINE
	PRINTFORMW 就当自己在部室午睡的时候，咔哒咔哒地响起了敲門的声音。
	PRINTFORMW 打開門后，出现在你面前的，是一位身着修女服的西洋少女。
	PRINTFORMW
	PRINTFORMW 「午安，虽然很突然，但是，我想要救助您的灵魂……」
	PRINTFORMW ”間に合ってます。”
	PRINTFORMW 「啊、等等！您误解了！我、我不是那个意思！请相信我！」
	PRINTFORMW ……就算是劝诱，做的未免太敬业了一点，至少先听听她说的是什么，加上她也的确很可爱。。
	PRINTFORMW 「咳……是、是这样的，我想和您说的，是関于您的"再生之魂"的事情」
	PRINTFORMW 「虽然不知道您是否了解您的这一体质，但是，您的灵魂很有可能会被恶魔所盯上！」
	PRINTFORML
	PRINTFORMW 「えっと、申し遅れましたが、我は艾迪安奴・%NAME:TARGET%といいます」
	PRINTFORMW 「你と你の魂を悪魔からお守りするよう、猊下から遣わされた法王庁の驱魔人です」
	PRINTFORMW 「从今往后，就由我来承担您的贴身护卫一职。啊、呃……是、根据您希望范围内的……恩。」
	PRINTFORMW
	PRINTFORMW 如我所愿范围内的……么。
	PRINTFORMW 脸上写满了天真……不如说，明明是驱魔人却满是破绽未免有些微妙
	PRINTFORMW 不过……其余部员现在都没有出现，说不定的确是因为她这驱魔人的身份才躲起来的？。
	PRINTFORMW 而且，虽然满是破绽，但是因为那一身圣职者的服装，的确很有一种圣洁的气氛。
	PRINTFORMW 再仔细看下去，亲和而温柔的容貌，以及那活泼灵动的表情的确很能给人留下美好的印象，加上的确是一名美少女。
	PRINTFORML
	PRINTFORMW 「啊、恩……那副表情，我可以当做是同意了么？那么……」
	PRINTFORMW %CALLNAME:TARGET%气势满满地脱下了修女装。修女服下的，是一件新颖而整洁的水手服
	PRINTFORMW 「呼呼，要欺骗敌人，首先要欺骗友军……如此，我们今天就是同学啦，请多多関照！」
	PRINTFORML
	PRINTFORMW %CALLNAME:TARGET%加入了你的社团活动

ENDSELECT

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

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	PRINTFORMW 「因此，在即将到来的人类与恶魔的战斗中」
	PRINTFORMW 「您……或者说，可以被无穷无尽释放的您的灵魂……」
	PRINTFORMW 「若是被恶魔之手所控制，那么战局就会极度不利于人类」
	PRINTFORMW 「当然，这是人对神明的背叛行为，死后一定会受到极重的惩罚吧」
	PRINTFORMW 「所以，我需要指引您的灵魂在恰当的时候，向着恰当的方向前进……」
	PRINTFORMW 「这就是我，埃蒂安娜 %NAME:TARGET%被派遣而来的使命」
	PRINTFORMW 「唔姆、您的表情，这是在质疑我的实力对么？　那就给您看看……诶？不对？」
	PRINTFORML
	PRINTFORMW 「哎哎哎哎哎哎哎哎哎哎！？　居，居然已经把魂交易出去过了么！？」
	PRINTFORMW 「为什么？！　是因为输给了性欲么！？　灵魂是可以那么简单卖掉的东西吗！？」
	PRINTFORMW 「……啧……既然已经和那边缔结了契约，那我们这边就不能多加插手……」
	PRINTFORMW 「……索性……」
	PRINTFORMW %CALLNAME:TARGET%苦恼地揉了揉太阳穴，但是还是真诚地凝视着你
	PRINTFORML
	PRINTFORMW 「ひとつ提案が有ます。你の魂の幾分かを、我たち法王庁に提供していただきたい」
	PRINTFORMW 「这，也是为了人类，也是您，救赎您自身的灵魂之道」
	PRINTFORMW 「当，当然了！我也会支、支付代价的……如果您需要的话……」
	PRINTFORML
	PRINTFORMW 「需要发泄性欲的话……请不要以灵魂为代价喂养那些恶魔，使、使用人家的身体也、也没関系……哦……」
	PRINTFORML
	PRINTFORMW 以提供灵魂给教皇厅为代价，可以调教%CALLNAME:TARGET%了

	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	PRINTFORMW 「你说这样做不违反戒律吗?……是吗？」
	PRINTFORMW 「哈哈。那么你想知道%CALLNAME:TARGET%的教义吗？」
	PRINTFORMW 「可以吗？如果不是为了追求快乐，或是为了生孩子的话，就不算是性行为」
	PRINTFORMW 「所以没问题」
	PRINTFORML
	PRINTFORMW 「……什么嘛，请不要一直盯着我看」
	PRINTFORMW 「……我已经说过很多次了，这是根据教义被认可的，所以没関系的」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	PRINTFORMW 「几次像这样，看到了%CNAME("二人称")%的裸体……」
	PRINTFORMW 「每次看都有新的发现呢」
	PRINTFORML
	PRINTFORMW 「……啊?戒律怎么了……是吗？」
	PRINTFORMW 「……我说过很多次，这是根据教义被认可的，所以没関系」
	PRINTFORMW 「……虽然是没有问题的话」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	;フェリ桑へヤキモチ焼かせました
	PRINTFORMW 「在%CNAME("二人称")%看来，%CNAME("一人称")%是个什么样的女人？」
	PRINTFORMW 「不要用邪恶的眼光看交易对象哦」
	PRINTFORML
	PRINTFORMW 「……和%CNAME("二人称")%进行交易的，不仅仅是那个女仆」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	PRINTFORMW 「啊呜……姆姆姆……呜！」
	PRINTFORMW %CALLNAME:TARGET%现在似乎对自己的痴态感到羞耻，把脸埋在枕頭里吧嗒吧嗒地跺着脚。。
	PRINTFORML
	PRINTFORMW "咔嚓"的一声，伴随着門的声音，%CALLNAME:MASTER%进来了。
	PRINTFORMW %CALLNAME:TARGET%看起来很尴尬，但好像在说什么似的看着%CALLNAME:MASTER%。
	PRINTFORMW 「戒律啊、教义啊……一直以来都是这么说着规则……」
	PRINTFORMW 「从来没有感受过这种心情……」
	PRINTFORMW 「即使我知道这是我的一种感觉，也不知道该怎么说才好」
	PRINTFORMW 「所以，为了搞清楚心中的这份疑惑」
	PRINTFORMW 「请与我交合吧」
	CALL SET_CEVENT, "調教開始：恋慕"
;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
	PRINTFORMW 「二人とも愛があれば…行為は許されます」
	PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%を見つめながら呟く。
	PRINTFORMW 「もう…言い訳出来ないんです。%CALLNAME:MASTER%が好きです」
	PRINTFORMW 「%CNAME("一人称")%の体をいっぱい愛して、魂まで愛してくれる所が好きです」
	PRINTFORMW 「%CNAME("一人称")%に奉仕を教えてくれて、奉仕した分の愛を与えてくれる所が好きです」
	PRINTFORMW 「時には他の方々の交わりを見せて、%CNAME("一人称")%に嫉妬させてくるいじわるな%CNAME("二人称")%が好きです」
	PRINTFORMW 「これからもご奉仕させていただいて愛を与えてくれませんか…？」
	PRINTFORML
	PRINTFORMW 「%CNAME("主人")%」
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無を格子（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K9_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 K9_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K9_KOJO2
;恋慕
IF TALENT:恋慕
	PRINTFORMW 「今日はどんな愛を教えてくれるんですか？」
	PRINTFORMW 「教えてもらった愛、いつか倍にして返させてください」
;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0
	PRINTFORMW 「開始了……么。」
	PRINTFORMW 「我可不能就这样看着……%CNAME("二人称")%的灵魂就这样被那些恶魔所玩弄。」
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
	PRINTFORMW 「可能，这种行为是违反了戒律……但是！」
	PRINTFORMW 「只追求快乐，但并非为了生育孩子的行为，并不足以称为性行为……」
	PRINTFORMW 「所以，于情于理都没有问题，呼呼~❤」
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW 「%CNAME("二人称")%的身体……就这样见了好多次呢……」
	PRINTFORMW 「不过，每次看都会有些新的发现~你看，比如这里，还有这里~」%CALLNAME:TARGET%的可爱脸颊就这样蹭着你的胸膛，用指尖在你的身体上轻轻绕圈着。
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW 「在%CNAME("二人称")%的眼中……%CNAME("一人称")%是一个怎么样的女孩呢？」
	PRINTFORMW 「可爱么？对%CNAME("二人称")%而言有魅力么？会在没有交易的情况下想、想要抱人家么……？」
	PRINTFORMW 「呼呼……不能用不纯洁的眼光看交易对象哦……」刚刚一瞬间的小女孩神色如同幻觉一般，只不过最后一句话，到底是说给谁听的呢……
;相思相愛
ELSEIF TALENT:相思相愛
    PRINTFORMW 「%CNAME("主人")%との快楽子づくりでのご奉仕、今では常に待ち遠しいです…」
	PRINTFORMW 「じーっと…見てくれませんか？この%CNAME("主人")%だけには、よこしまな体…」
	PRINTFORMW 「我はこの体を使って、これから%CNAME("主人")%に愛を捧げます…ね」
ENDIF
RETURN 1

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

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
    IF TALENT:相思相愛
	    CALL PRINT_STRW, @"「はぁ…はぁ…ぎゅっとしてください…_HH_」"
		PRINTFORMW %CALLNAME:TARGET%の要望に応えると、%CALLNAME:TARGET%は%CALLNAME:MASTER%を抱き返して安らかな顔で寝始めた。
		PRINTFORMW 抱き枕变成了%CALLNAME:MASTER%は%CALLNAME:TARGET%に付き合う事にした…。
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW 「ごめん无ゃい…次はきちんと受け止めますからぁ…」
	;其他
	ELSE
		PRINTFORMW 「这、这么蛮横……人类真的能承受的住的么……」
	ENDIF
;相思相愛＋満足
ELSEIF TALENT:相思相愛 && COND("満足")
    CALL PRINT_STRW, @"「今日も素敵でしたよ、%CNAME("主人")%…_HH_」"
	PRINTFORMW どこが素敵だったの？といたずら心で聞いてみる。
	PRINTFORMW 「言っていいんですね…？」
	PRINTFORMW …聞いたこっちが恥ずかしくなってくるぐらいに%CALLNAME:TARGET%の今日の素敵ポイントを言って来たので、こっちも負けじと言い返した。
	PRINTFORMW その結果、恥ずかしさで煮え立った男女が就这様恥ずかしさを抱えながら善后工作をする事となった…。
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
	PRINTFORMW 「%CNAME("一人称")%…幸せです。いっぱい愛してくれて…いっぱい愛されてくれて…」
	PRINTFORMW 「%CNAME("二人称")%の女としてまた教えてください…ね？」
;恋慕
ELSEIF TALENT:恋慕
	PRINTFORMW 「已经……次はもっと教えてくださいよー？」
	PRINTFORMW 少し不満げな帕拉奇娜を抱き寄せて、”今から帕拉奇娜の好きな所教えていく”と言ってみた。
	PRINTFORMW 「それならまあ…少し許してあげます」
;屈服刻印Lv1以下
ELSEIF MARK:屈服刻印 <= 1
	PRINTFORMW 「……已经，满足了么？」
	PRINTFORMW 「那么，我要换衣服了……那个……请面向那边」
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW 「啊呜……姆姆姆……呜！」
	PRINTFORMW %CALLNAME:TARGET%想到了自己之前的痴态，把自己羞红的脸埋在了枕頭上，粉嫩的小脚发泄一般把周围蹬的乱七八糟
	PRINTFORMW 但是还是用一只手牵着你，十指相扣。
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW 「这种的……我……觉得不太好哦」
	PRINTFORMW %CALLNAME:TARGET%鼓着脸轻抚着自己绯红的身子，脱力地枕在你的身边，似是撒娇一般小口轻咬了一下你。
	PRINTFORMW 随后又怜爱地伸出粉舌轻轻舔舐着你身上小巧的咬痕
ENDIF
RETURN 1

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

;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「呜……爱抚么……」
		PRINTFORMW 「再放松一点吧……别，别说人家随便啦！真是的……」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「いっぱい触ってくれるんですね……」
			PRINTFORMW 「%CNAME("一人称")%の体……好きなだけ、好きなように、你の好きを刻んでください」
		;それ以外
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「哎……%CNAME("二人称")%的手，好……不，没，没什么！」
			ELSE
				PRINTFORMW 「呜……这样的话，声音……」%CALLNAME:TARGET%把手按在嘴边忍耐着呻吟，面色潮红地享受着你的爱抚。
			ENDIF
		ENDIF

	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ているとき
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「明、明明都没有被人看过……更不用提摸过的……」
			PRINTFORMW 「用舌頭舔舐那边什么的……想象也，唔嗯~❤」
		ENDIF
	;二回目以降
	;清洁舔阴
	ELSEIF COND("清洁舔阴フラグ", PLAYER)
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「うん……んん……」
			PRINTFORMW %CALLNAME:TARGET%は声を殺して%CALLNAME:PLAYER%の掃除を甘んじて接受。
			CALL PRINT_STRW, @"「このような%TEXTR("はしたない/エッチな/淫乱")%%TEXTR("阴部/おまんこ/秘所")%をお掃除して頂き有がとうございます…っ_HH_」"
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「%TEXTR("阴蒂/おまんこ/ヴァギナ")%舐め放題ですよ？」
			PRINTFORMW 少し威勢がいいようなのでお望み街道強く舐めてやる
			CALL PRINT_STR, @"「%TEXTR("ひうっ～～～っ/んんっ～～～っ")%_HH_　%TEXTR("我はエッチです_HH_　変態です_HH_　なので慰めてください…_HH_/そこ好きです…_HH_　いっぱい随便ください…_HH_")%_HH_」_W"
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「你是笨蛋么……大笨蛋……」
				PRINTFORMW 「这、这样做到底哪里好了……真是的……」
			ELSE
				PRINTFORMW 「这、这种行为，我觉得不，不太好，恩！」
				PRINTFORMW 舌頭在舔舐私处的同时、%CALLNAME:TARGET%轻轻用大腿夹了一下%CALLNAME:PLAYER%的脸颊。
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門愛撫
;-------------------------------------------------
IF SELECTCOM == 2
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;気持ちいい
		IF CHECK("Ａ指挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「等、等一下，哪里和灵魂的出入没有関系……」
			PRINTFORMW 「要是有関系的话，那问题不是更严重了me啊啊！」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;気持ちいい
		ELSEIF CHECK("Ａ指挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「呜……这样……不完全就是变态了么……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;-------------------------------------------------
IF SELECTCOM == 3
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「哈……？！让你看自，自……在这里？！现在？！」
		PRINTFORMW 「如果不知道怎么做可以教wo……不，不用了……我做！我现在就做啦！」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「呜呜、%CNAME("二人称")%你这大笨蛋、性欲野兽、最喜欢了、野蛮人……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;胸愛撫
;-------------------------------------------------
IF SELECTCOM == 5
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「呜嗯……玩弄%CNAME("一人称")%的胸就这么開心么……？」
		PRINTFORMW 「啊不……如果不開心的话那问题就……呀啊！？」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「%CNAME("一人称")%の胸部、好きになっちゃいました？」
			PRINTFORMW 你はそれを肯定すると好きな所を挙げていきながら精心地揉んでいく
			PRINTFORMW 「…！うぅ……なら…%CNAME("一人称")%の胸部、いっぱいおもちゃにしてください…」
		;それ以外
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「哼、是、是欲求不满吗？%CNAME("二人称")%……」
			ELSE
				PRINTFORMW 「呐、总感觉那个……变成了非常色色的事情了……吧？」
				PRINTFORMW %CALLNAME:TARGET%被情欲侵染的身体微微颤抖着小声咕哝。
			ENDIF

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW 「ど、どーですか？惊嚇したでしょうっ」
			PRINTFORMW　普段こういう事には積極的ではない帕拉奇娜が初吻を捧げてきた
			PRINTFORMW　どういう風の吹き回しかと尋ねてみる
			PRINTFORMW　「あー、えっと…私が上なんでリードして不给と…ですよね？」
			PRINTFORMW　「私は貴方を気持ちよくさせて、貴方は気持ちよさの代わりに魂をって契約ですから」
			PRINTFORMW　彼女なりに必死に攻めてきた事にどうしても笑いが出てしまう
			PRINTFORMW　「あー！乙女の純情を笑うー！」
			PRINTFORMW　情緒が重置された事に少し怒った様子の%CALLNAME:TARGET%は唇を奪い続けてきた
			PRINTFORMW　「ちゅ…れろ…その減らず口を塞ぎまくってやりますから…」
		;それ以外
		ELSE
			PRINTFORMW 「是要……KISS么？」
			PRINTFORMW 「啊、不、没関系、这也是灵魂交易的必要条件……」
			PRINTFORMW 「嗯……」
			PRINTFORMW 「意外的……感觉挺舒……呃不、清爽的呢、恩。」
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;相思相愛
		IF TALENT:相思相愛
			PRINTFORMW 「すきっ………すきっ……」
			PRINTFORMW %CALLNAME:TARGET%と唇を重ねる度に求愛され、それに応えるように%CALLNAME:MASTER%が舌を入れていく。
			PRINTFORMW 舌を入れられた%CALLNAME:TARGET%は次に唇を重ねる時に%CALLNAME:MASTER%の口内を奉仕していく。
			PRINTFORMW （%CNAME("一人称")%の接吻…いっぱい受けてくれるの温柔…）
		;それ以外
		ELSE
			PRINTFORMW 「唔嗯~❤哈~~啾~」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;阴部愛撫
;阴蒂の場合にはCHECK_COM("陰核愛撫"), 阴部の場合にはCHECK_COM("阴部愛撫"), 恥丘ならCHECK_COM("恥丘愛撫")がONになる
;-------------------------------------------------
IF SELECTCOM == 7
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
	    IF EXP:自慰経験 >= 1
		 PRINTFORMW （ほかの人にして要のはやっぱ違うな…自分が試した時は…）
		 PRINTFORMW さらにガチガチになっている%CALLNAME:TARGET%を見て嫌だったか聞いてみる
		 PRINTFORMW 「はぇ！？なんでもないです！なんでもないですから！憤怒ますよ！」
		ENDIF
	;二回目以降
	;中出し後にお掃除
	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 「啊、呃……」
			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 「……哎？！等、等一下、难道、你想要」
			PRINTFORMW 「唔哎~！你，你到底在舔哪里啊！笨蛋笨蛋大笨蛋……呜……」
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「那、那就这样把舌頭拔出来吧……？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方手交
;-------------------------------------------------
IF SELECTCOM == 10
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方乳交
;-------------------------------------------------
IF SELECTCOM == 11
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方足交
;-------------------------------------------------
IF SELECTCOM == 12
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開阴道
;-------------------------------------------------
IF SELECTCOM == 13
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入
;-------------------------------------------------
IF SELECTCOM == 15
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋
;-------------------------------------------------
IF SELECTCOM == 30
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 31
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛用振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		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 「遅すぎますよ…最初出会った時から、体を自由に使っていいって言ってたのに」
		PRINTFORMW そうは言っても初日のあのガチガチぶりを見ると、無理しているのが見てわかった。
		PRINTFORMW 少し大人びた雰囲気すらあった初対面、小小的少女だとわかった初体験、使命が無くなると幼さが見えてきた日々。
		PRINTFORMW 知れば知るほどに面倒で、愛らしくて、自分とは噛み合わないけど一緒にいたくて。
		PRINTFORMW だから本心の準備が出来る事を等待事にした。
		PRINTFORMW 「優しすぎますって……%CNAME("一人称")%に魅力ないんじゃないかとか思ってたりしたんですよ？」
		PRINTFORMW こぼれ始めた%CALLNAME:TARGET%の涙を%CALLNAME:MASTER%は一つ吸い取る。
		PRINTFORMW 「ふふ、キザな人」
		PRINTFORMW 「本物の交わりを…教えてください、ね？」
		;你（ひっさびさに見たな大姐姐帕拉奇娜…）
		;それ以外
		ELSE
			PRINTFORMW 「要……插入了……对吧？」
			PRINTFORMW 「……倒也不是没有想说的……」
			PRINTFORMW 「如果这也是我的命运的话、那么能够拯救%CNAME("二人称")%的灵魂的话、乐意之极……」
			PRINTFORMW %CALLNAME:TARGET%意外的十分坦率地接受%CALLNAME:PLAYER%的进入
			PRINTFORMW 「倒是……没有想象中的那么疼……」
			PRINTFORMW 「还是说、是您费心了、什么的、呼……呼……」
		ENDIF
	;非処女
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ｖ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;巨根
	IF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 65
			PRINTFORMW
		;対面座位
		CASE 63
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ｖ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		CASEELSE
			IF RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
;-------------------------------------------------
;二穴挿入(書く場合には;を消してください)
;-------------------------------------------------
;ELSEIF SELECTCOM >= 60 && SELECTCOM <= 79 && COND("３Ｐ")
;	IF CHECK_COM("两根挿入Ｖ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ｖ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("两根挿入Ａ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ａ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("二穴挿入")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("二穴挿入")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ENDIF
ENDIF

;-------------------------------------------------
;正常位
;-------------------------------------------------
IF SELECTCOM == 60
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「……这个体位……总感觉有点羞耻呢……」
			PRINTFORMW 「不是、就算你没问题、%CNAME("一人称")%我也是会害羞的啦！」%CALLNAME:TARGET%闭上眼睛，小心地撑開一条缝偷偷看着你
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「……嘶……嗯~」
			PRINTFORMW 「没、没関系的，继续吧~？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;後背位
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「这、这个姿势、我觉得……不太好…！」
			PRINTFORMW %CALLNAME:TARGET%似乎有些不喜欢这种被侵犯的感觉
			;加筆
			PRINTFORMW それならと%CALLNAME:TARGET%に正面で愛を確かめるのが好みなのか聞いてみた
			PRINTFORMW 「は、恥ずかしい事言わないでください…獣交尾よりも顔見る方が好きに決まってるじゃないですかぁ…」
			PRINTFORMW さらっとえっちな事言えるんだなと思い的同时、从后面将抱きしめて顔を間近にしてみた。
			PRINTFORMW ”これでもだめ？”
			CALL PRINT_STRW, @"「～～っ！_H__BH_我明白了、それならいいですから…」"
		ENDIF
	;二回目以降
	ELSE
		;相思相愛
		IF TALENT:相思相愛
		    CALL PRINT_STRW, @"「从后面将…ぎゅってしてください_HH_」"
		    PRINTFORMW %CALLNAME:TARGET%の要望街道に抱きしめ頬に接吻をする。そして就这様尻肉に肉棒がぶつかり、後背位の宣言代わりに耳を舐める。
			CALL PRINT_STRW, @"「%CNAME("主人")%に、これからケモノ子づくりされちゃうって合図…_HH_%CNAME("一人称")%をただのわんわんにしてください_HH_」"
		;屈服刻印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:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ａ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;巨根
	ELSEIF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			PRINTFORMW
		;対面座位
		CASE 73
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ａ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && 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
;-------------------------------------------------
;尿道挿入
;-------------------------------------------------
IF SELECTCOM == 83
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;余裕が無い
		ELSEIF CHECK("尿道挿入") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶手交
;手淫と洗面奶から派生する
;-------------------------------------------------
IF CHECK_COM("洗面奶手交")
	;恋慕
	IF TALENT:恋慕
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;手淫
;-------------------------------------------------
IF SELECTCOM == 90
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「想要……用手握住么……」
		PRINTFORMW 「是啊，那是最稳妥的做法吧……」
		PRINTFORMW 「……」
		PRINTFORMW 「……」
		PRINTFORMW 「……干、干什么啦你那表情！！」
		PRINTFORMW 「在帮你……那个之前至少给人家一点时间做心里准备好么！」
		PRINTFORMW %CALLNAME:TARGET%的小脸气鼓鼓地盯着你，但是反而感觉非常的可爱
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「是、是这样的感觉……对么？」
			PRINTFORMW 「这里不行？那这里可以么……？呜……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「对于灵魂的交接……通过粘膜之间的接触是最有效率的……」
			PRINTFORMW 「是、是了！通过性、性交的话，%CNAME("一人称")%这边也比较轻松……嗯嗯」
			PRINTFORML
			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 「唔嗯……还是往常一样……不听人话的鸡鸡~」
			PRINTFORMW 「如果就这样放任不管的话，肯定会看见女孩子就会强行让她授种……」
			PRINTFORMW 「为了不能让那些不幸的女孩子增加，必须要在这里处理才行……啊~呜~❤……」
		ELSE
			PRINTFORMW 「听、听好了哦、下次射出来的时候提前跟人家说一下哦……唔。」
			PRINTFORMW 「这样的话、不管多少，人家都会……唔……都会接受的……」
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「唔~啾~啊呜…………还，还没出来么？」
			PRINTFORMW 「请不要误会……这只是交易、是为了救赎%CNAME("二人称")%的灵魂的必要措施而已……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;素股
;-------------------------------------------------
IF SELECTCOM == 93
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSEIF CHECK_COM("展示肉棒")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「感、感觉如何？虽然没有直接插入、但是、嗯~❤、意外的很有感觉」%CALLNAME:TARGET%肉肉的大腿根轻轻地摩擦着你的肉棒，小声地嗫嚅着
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;六九式
;-------------------------------------------------
IF SELECTCOM == 99
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶
;-------------------------------------------------
IF SELECTCOM == 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 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 == 148
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			;ＯＮフラグが付けた際のセリフです
			IF COND("陰蒂環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("陰唇環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("乳环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("肚脐环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

;-------------------------------------------------
;新妻PLAY
;-------------------------------------------------
IF SELECTCOM == 173
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;終了時
	ELSEIF TEQUIP:新妻PLAY == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;室内露出PLAY
;まだ仕様が決まってない
;-------------------------------------------------
IF SELECTCOM == 174
	RETURN 1
ENDIF
;-------------------------------------------------
;換装
;-------------------------------------------------
IF SELECTCOM == 175
	;服、贴身制服、泳装に着替えた時
	IF CHECK_COM("換装：服を着替えた")
		IF CHECK_CLO("自分の服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("衬衫")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女教師")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("和服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女仆装")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("体操服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("看護婦")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("旗袍")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("水手服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("巫女")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("情趣内衣")
			PRINTFORMW
		ELSEIF CHECK_CLO("比基尼姿")
			PRINTFORMW
		ELSEIF CHECK_CLO("拘束衣")
			PRINTFORMW
		ELSEIF CHECK_BODYS("兔")
			PRINTFORMW
		;其他
		ELSE
			PRINTFORMW
		ENDIF
	;胸も股間も丸出し状態变成了時
	ELSEIF CHECK_COM("換装：裸体变成了")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;露出癖Lv3
		ELSEIF ABL:露出癖 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;胖次を変えたり脱いだり
	ELSEIF CHECK_COM("換装：胖次")
		IF EQUIP:胖次
			PRINTFORMW
		;没穿内褲です
		ELSE
			PRINTFORMW
		ENDIF
	;以下は面倒ならELSE でひとまとめでも良いでしょう
	ELSEIF CHECK_COM("換装：外套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：胸罩")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：手套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：襪子")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：靴")
		PRINTFORMW
	;飾品の付け替えや其他
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;被逆推
;-------------------------------------------------
IF SELECTCOM == 176
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「嗳~咻……」
		PRINTFORMW %CALLNAME:TARGET%轻柔地抱住你的身体、娇小肉体紧贴着把%CALLNAME:PLAYER%给压倒到床上
		PRINTFORMW 「呼呼~一直都只让%CNAME("一人称")%被欺负一点都不公平呐~」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「呼嗯~与平时不同、倒是很容易推倒嘛……」
			PRINTFORMW 「%CNAME("一人称")%可是活生生的正常的人类女生哦」
			PRINTFORMW 「呐~难道说您……在期待着被%CNAME("一人称")%玩弄么？」她的眼角微眯、愉快地用素指在你的胸口画圈
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;潤滑液使用
;-------------------------------------------------
IF SELECTCOM == 260
	;初めて
IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORML 「むう…史莱姆が降ってきた感じ思い出します」
		IF TALENT:恋慕
			PRINTFORMW 「史莱姆まみれ变成了ら、服がこすれちゃってちょっと敏感に…」
		ELSE
			PRINTFORMW 「…何考えてたんですか」
		ENDIF
	;二回目以降
	ELSE
		;相思相愛
		IF TALENT:相思相愛
			CALL PRINT_STRW, @"「ねとねと…_HH_ぬるぬる…_HH_」"
			PRINTFORMW そういうと見せつけるように%CALLNAME:TARGET%は潤滑液を全身にぬりたくる
			CALL PRINT_STRW, @"「%CNAME("一人称")%の体の仕上げ…_HH_最後は%CNAME("主人")%の手でやります…？それともすぐに始めたいんですか？_HH_」"
		;それ以外
		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_K9
;口枷着用時には口上をスキップする？
SIF TEQUIP:口枷 && SELECTCOM != 135
	RETURN 0

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

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

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

;-------------------------------------------------
;PLAYERの射精＆絶頂をトリガーにした口上
;それぞれの射精分岐内での初めてかどうかの判定は、FIRST_EV(ARGS)で行う
;例）ELSEIF SHOOT("脚")において初めてかどうかは、FIRST_EV("絶頂：脚")で判定する
;-------------------------------------------------
@KOJO_MESSAGE_SAMEN_AND_EXTACY_K9
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;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 「……嗯~出来了呐……」
	PRINTFORMW 「为什么会喜欢这种……呜……不明白……」
;-------------------------------------------------
;口で射精させた
;-------------------------------------------------
ELSEIF SHOOT("口")
	;初めて
	IF FIRST_EV("絶頂：口") == 0
		PRINTFORMW 「！咕……唔……唔嗯！~~」
		PRINTFORMW %CALLNAME:TARGET%虽然眼泪汪汪的、但是还是把%CALLNAME:PLAYER%射出的精液乖乖地吞进小嘴里。
		;加筆
		PRINTFORMW そして唾液で少しでも薄める為に精液を口内にとどめてから飲み下した。
		;加筆おわり
		PRINTFORMW 「干、干什么嘛……灵魂可是非常重要的东西，如果洒在床上不是浪费了么……」
		PRINTFORMW 「所以才勉为其难地喝了的哦、别搞错了、你有什么意见么？！」
		;加筆
		PRINTFORMW ”すごい…えっちだったなって…”
		PRINTFORMW 「うぅ…こんなんで欲情しないてくださいよぉ…」
	;精液中毒Lv5
	;玛丽口上を大いに参考にさせて頂きました。
	ELSEIF ABL:精液中毒 >= 5
	　　PRINTFORMW 口に射精された%CALLNAME:TARGET%はそれを証明するように舌を突き出してから、口の中で味わうように転がしていく。
	　　PRINTFORMW 精液を受けた時から始めた薄めるための行為。それは就这様、濃厚精液を堪能する為の行為へと変化していた。
	　　PRINTFORMW そして、%CALLNAME:TARGET%はごくり、ごくり…と%CALLNAME:MASTER%の魂を体に収めていった…。
	　　CALL PRINT_STRL, @"「佳肴大人でした%CNAME("二人称")%産のこくまろおちんぽみるく_HH_、とても美味でしたよ_HH__HH_」"
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW 「咕……阿~姆~❤……虽然……各个地方都被您使用过了……但是果然还是喜欢这样~」
		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 「嘶……！」
		PRINTFORMW 「哈……哈……就这样把您的灵魂……在我的身体内释放吧~…」
		PRINTFORMW 「[……不用避孕物品真的没问题么？]　事到如今才说这话……您真是鬼畜的坏人呐……」
		PRINTFORMW 「那么，继续……可以吧~？再来一次~」
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		IF RAND:3 == 0
			PRINTFORMW 「呼嗯~……可以，哦……就这样在人家的里面射出来、啊～～」
			PRINTFORMW %CALLNAME:TARGET%幼小的身体微微颤抖着，蜜穴紧紧地包裹着肉棒，榨取着情欲
			PRINTFORMW %CALLNAME:PLAYER%在她的最深处射出了浓浓的精液。
		ELSEIF RAND:2
			PRINTFORMW 「……唔……这样……射了好多啊……」
			PRINTFORMW 她恬淡的俏脸染上了一层绯红、%CALLNAME:TARGET%娇小的身体就这样温柔地挽住%CALLNAME:PLAYER%的脖子，伸出舌頭温柔地咬着耳朵，媚音嗫嚅。
			PRINTFORMW 「没関系哦……直到您满意为止……人家的身体任君采撷……」
			PRINTFORMW 「……因为这可不是性交……只是交易而已……哦~❤」
		ELSE
			PRINTFORMW 「嘶……呼……没、没事哦，不用这么紧紧抱着我、我也不会逃跑的……我还有救赎您的灵魂的使命呐……」
			PRINTFORMW 「唔恩……不过……好、好大……小穴都被……玩坏了……、呼、呼、呼……」
		ENDIF
	;それ以外
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「❤❤❤……嗯❤❤❤」
			PRINTFORMW %CALLNAME:TARGET%的小穴被浓厚的精液冲击着，一边翻着白眼高潮一边忍耐着
		ELSEIF RAND:2
			PRINTFORMW 「……那个、单纯的想问您一个问题啦……」
			PRINTFORMW 「您的射精的量……是不是超过解剖学的法则了……」
		ELSE
			PRINTFORMW 「辛苦啦~呼呼」
			PRINTFORMW 「啊、不、不是，只是感觉很可爱，情不自禁…」
		ENDIF
	ENDIF
ELSEIF SHOOT("Ａ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ａ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
ELSEIF SHOOT("接吻")
	PRINTFORMW
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗")
	PRINTFORMW
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶")
	PRINTFORMW
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
ELSEIF SHOOT("逆舐陰")
	PRINTFORMW
;-------------------------------------------------
;逆肛交、逆強姦で射精
;-------------------------------------------------
ELSEIF SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")
	PRINTFORMW
;-------------------------------------------------
;PLAYERが女で、イってしまった……
;-------------------------------------------------
ELSEIF SHOOT("調教者が女性")
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2
		PRINTFORMW
	;絶頂
	ELSEIF COND("絶頂", PLAYER) == 1
		PRINTFORMW
	ENDIF
ENDIF

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

RETURN 1

;-------------------------------------------------
;イベント口上集
;-------------------------------------------------
@KOJO_EVENT_K9, 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 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

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
CASE "清洁口交"
	SELECTCASE TFLAG:口上分岐
	;お掃除前
	CASE 0
		PRINTFORMW
	;お掃除中
	CASE 1
		PRINTFORMW
	;お掃除で射精しなかった
	CASE 2
		PRINTFORMW
	;お掃除で射精しそう？
	CASE 3
		PRINTFORMW
	;射精した
	CASE 4
		PRINTFORMW
	;お掃除で射精後
	CASE 5
		PRINTFORMW
	ENDSELECT
;-------------------------------------------------
;脱衣
;-------------------------------------------------
CASE "自発脱ぎ"
	;裸体变成了
	IF CHECK_CLO("裸体")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;阴部剥きだし
	ELSEIF CHECK_CLO("Ｖ露出")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;部分脱ぎ
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;妊娠した
;----------------------------------------------------------------
CASE "妊娠発覚"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;出産した
;----------------------------------------------------------------
CASE "出産"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;兒童が大きくなった
;----------------------------------------------------------------
CASE "子出口"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;性交後に抜いた時
;----------------------------------------------------------------
;恥ずかしいところを見せてくれる
;----------------------------------------------------------------
CASE "中出し後くぱぁ"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	PRINTFORMW
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
CASE "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	PRINTFORMW 在堆积如山的不良库存面前，%CALLNAME:PLAYER%和%CALLNAME:TARGET%抱着頭…
;----------------------------------------------------------------
;塞子をしていない状態での液体浣腸口上
;----------------------------------------------------------------
CASE "无塞浣腸事件"
	;限界値突破時
	IF BASE:排泄欲 >= 10000
		;限界値を超えたが漏らせない場合
		IF INSERT("Ａ挿入") || COND("肛門栓")
			PRINTFORMW
		;漏らす直前
		ELSE
			PRINTFORMW
		ENDIF
	;漏らした
	ELSEIF NOWEX:排泄
		PRINTFORMW
	;我慢しているときの口上
	ELSEIF TEQUIP:浣腸
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;吸能
;----------------------------------------------------------------
CASE "吸能"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;調教者がちんこを挿入する前に射精してしまった！
;----------------------------------------------------------------
CASE "挿入前暴発"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;特殊な道具を使った際の台詞
;----------------------------------------------------------------
CASE "避妊の護符"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		;装着
		IF TALENT:避妊の護符
			PRINTFORMW
		;取り外し
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:避妊の護符
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

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

ENDSELECT

;-------------------------------------------------
;TARGET以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@KOJO_GUEST_K9, 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

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

path: ERB/EVENT_K/09 パラチネ/EVENT_K9.ERB

license: unknown


code:
;-------------------------------------------------
;この角色独自の衣装を設定する。制服、体操服、泳装は既存のものから選ぶのが楽です
;-------------------------------------------------
@CLOTHES_K9, ARGS

SELECTCASE ARGS
;高めの頻度で着用します。設定しなくてもかまいません
CASE "内衣"
	CSTR:胖次 = 褶边の胖次/淡色/正面蝴蝶結紐/
	CSTR:胸罩 = 褶边の胸罩/淡色/

;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
CASE "飾品"
	CSTR:飾品 =

;学園での便装です。設定必須です
CASE "制服"
	CALL SET_COSTUME, "水手服"
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "体操服"
	CALL SET_COSTUME, "体操服布鲁马"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "泳装"
	CALL SET_COSTUME, "死库水"

;自宅など学園外で着ます。設定必須です
CASE "便装"
	CSTR:服 = 水手服/
	CSTR:裙 = 百褶裙/
	CSTR:襪子 = 膝下襪/
	CSTR:靴 = 小皮靴/直到脚腕/

;自分的房間(not主人公的房間)で着ます
CASE "居家服"

;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"

;もちろん约会の際に着ます
CASE "约会衣装"

ENDSELECT


code:
;-------------------------------------------------
;各種打招呼
;-------------------------------------------------
@KOJO_GREETING_K9, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
	ENDSELECT
	;何か発言してたらここまで
	;SIF LINECOUNT > MEMO_LINECOUNT
	;	RETURN 1

	IF COND("体育")
		PRINTFORMW 「早上好」
		PRINTFORMW 「这么说来，今天有体育课啊。你的表情好让人嫌弃啊」
	ELSE
		IF RAND:3
			PRINTFORMW 「早上了啊……好困……啊！早安！」
		ELSEIF RAND:2
			PRINTFORMW 「不管时间够不够，早饭是必须要吃哒！」
		ELSE
			PRINTFORMW 「…啊，不要在别人看电视看的正開心的时候换台哦」
		ENDIF
	ENDIF

CASE "一番乗り"
	IF COND("同伴中")
		IF RAND:2
			PRINTFORMW 「谁也不在。嗯，也有这样的日子吧」
		ELSE
			PRINTFORMW 「啊、%CNAME("一人称")%们是第一个到的！真少见呐~」
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORMW 「…唔哇……别突然就開門啦……吓我一跳……」
		ELSE
			PRINTFORMW 「哦呀，辛苦啦」
		ENDIF
	ENDIF

CASE "ただいま"
	PRINTFORMW 「咳、我、我回来了」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		PRINTFORMW 「欢迎回家~大晚上的不要在外面呆的太晚哦」
	ELSE
		PRINTFORMW 「欢迎回来！」
	ENDIF
CASE "入室打招呼"
	IF RAND:2
		PRINTFORMW 「打扰了……」
		PRINTFORMW 「今天也麻烦您了」
	ELSE
		PRINTFORMW 「你好」
		PRINTFORMW 「我可以上去吗？」
	ENDIF
CASE "抜け出された"
	IF RAND:2
		PRINTFORMW 「……嗯，嗯」
		PRINTFORMW 「请不要离開太远哦，别让人担心，毕竟你那吸引恶魔的体质真的……」
	ELSE
		PRINTFORMW 「如果被恶魔袭击了的话，就按照之前教你的程序来发出救援哦」
	ENDIF
CASE "便当"
	IF RAND:3 == 0
		PRINTFORMW 「如何？吃了之后有什么感想么？希望能合您口味」
		PRINTFORMW 「啊、不、还是别说了、太过羞耻了不想听啦！」
	ELSEIF RAND:2
		PRINTFORMW 「想不到……我会和其余人一起吃便当………」
		PRINTFORMW 「到并不是没有憧憬过啦……只不过，突然实际上发生的时候就…」
		PRINTFORMW 「啊、啊不行啦！脸烧的厉害，稍微，稍微等我一下我恢复一下心境！」
	ELSE
		PRINTFORMW 「…」
		PRINTFORMW %CALLNAME:TARGET%は%TEXTR("目を輝かせながら/胸に手を当てながら/自分が食べるのも忘れて/母親のような表情で")%吃便當%CALLNAME:MASTER%を見守っている。
	ENDIF
ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;-------------------------------------------------
@KOJO_DAILY_K9, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML
CASE "浑身是汗"
	IF RAND:2
		PRINTFORML 「呜哇……流了好多汗……可乐~可乐~」
		PRINTFORML 「%CNAME("二人称")%也要喝点什么么？我请客也可以哦」
	ELSE
		PRINTFORML 「啊呜……这个国家怎么这么热啊…」
	ENDIF
CASE "刚睡醒"
	PRINTFORML 「啊……姆……不、不行、脑袋昏昏沉沉的……」
	PRINTFORML %CALLNAME:TARGET%打了个哈欠，摇摇晃晃地走出門外。
	;追記
	PRINTFORML 寝ぐせ直せばいいのに。

;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K9
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「情侣……情侣……什么嘛……这么突然……一点实感都没有//v//…」
	PRINTFORML 「…」
	PRINTFORML %CALLNAME:TARGET%忽然凝视着%CALLNAME:MASTER%，傻傻地笑了起来
	PRINTFORML 「…嘿嘿……真不错呐~我的恋人~」

CASE "契約成立"
	IF RAND:4 == 0
		PRINTFORML 「神爱众人，更爱善人、行善之人会更受神明大人的喜爱哦」
	ELSEIF RAND:3 == 0
		PRINTFORML 「%CNAME("二人称")%的灵魂由我们负责保管」
	ELSEIF RAND:2 == 0
		PRINTFORML 「愿此魂灵、得以永恒……」
	ELSE
		PRINTFORML 「哎？恶魔能够以灵魂为代价施展法术么？！」
		PRINTFORML “付出别人的灵魂也没関系吗?”
	ENDIF
CASE "摆脱"
	PRINTFORML 「……那么，在这里做什么呢？」
	;IF RAND:2
	;	PRINTFORML 「啊、如果要去哪里的话，我也陪你一起吧」
	;ELSE
	;	PRINTFORML 「是、どこへ行きましょうか」
	;ENDIF
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「…咿呀！？」
	PRINTFORML 「%CNAME("二人称")%、没看见吧……？！」
	PRINTFORML 「“怎么了？”个頭啦！」
CASE "掀起裙子"
	PRINTFORML 「啊！？」
	PRINTFORML 「真是的……你还是小孩子么！」
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML
	CALL SET_DEVENT, "質問１"
ENDIF
IF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML
	CALL SET_DEVENT, "質問２"
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
;	PRINTFORML
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF COND("夜")
	PRINTFORML
ELSE
	PRINTFORML
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K9
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	PRINTFORML 「zzz…豆沙…zzz」
ELSEIF RAND:2
	PRINTFORML 「zz豆沙老师…zz…让我咬一口」
ELSE
	PRINTFORML 「「…呜…呜呼……不要咬我」
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K9, ARGS
;打招呼
#DIMS GREETING

SELECTCASE ARGS
CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"
	;地の文を出す
	CALL DAILY_MESSAGE, "归途"
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = 晚上好
	ELSEIF COND("昼")
		GREETING = 你好
	ELSE
		GREETING = 早上好ございます
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
		PRINTFORMW 「%GREETING%」
		PRINTFORMW 「今天也度过美好的一天吧」
	ELSE
		PRINTFORMW 「%GREETING%！」
	ENDIF
CASE "叫醒"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		IF RAND:3 == 0
			PRINTFORMW 「嗯，啊，那个」
			PRINTFORMW 看起来之前没被这样表扬过，%CALLNAME:TARGET%红着脸，嘴角不由得放松了下来，開心地偷偷挠着脸颊
		ELSEIF RAND:2
			PRINTFORMW 「咿、我做了值得表扬的事吗？」
		ELSE
			PRINTFORMW 「诶、是这样吗？」
			PRINTFORMW %CALLNAME:TARGET%装作不太在意的样子，但还是掩饰不住脸上的笑容
		ENDIF
	CASE "甜言蜜语"
		IF TALENT:恋慕
			PRINTFORMW
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORMW 「…！」
			PRINTFORMW 「突、突然在说些什么啦、登徒子！色狼！坏人！卑鄙！呃、倒也不、不是讨厌啦…呜…」
		ELSE
			PRINTFORMW 「呜……人家都不知道你到底是不是真心的了………」
		ENDIF
	CASEELSE
		IF RAND:5 == 0
			PRINTFORMW 「驱魔人用银子弹击退恶魔…」
			PRINTFORMW 「那是一个人们认为枪炮很厉害的时代」
			PRINTFORMW 「再这样下去、现代的驱魔人就应该用中子脉冲发射器或者带着相位指示器的步枪来战斗」
			PRINTFORMW 「通过高质子传导性光束与暗物质撞击产生湮灭来消灭恶魔……」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「在很多文化圈里，恶魔容易受到铁和火的伤害」
			PRINTFORMW 「嘛、不过钢铁和火焰自古以来都是权威的象征、这也算是偶然的一致吧」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「在这个国家，即使发现了恶魔也不能轻易出手」
			PRINTFORMW 「有各种各样的，各种各样的…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「最近，这附近竟然成了动漫圣地，朝圣不断」
			PRINTFORMW 「虽说这个岛国并没有什么正统的宗教，但也是有一些怀揣着信仰的人嘛、所以说世上还是有些东西是不能舍弃的呀。」
		ELSE
			PRINTFORMW 「曾经有过驱魔师也兼职精神病医生和社会工作者的时代、」
			PRINTFORMW 「真是古老而美好的时代啊……而现代人很多都怀有心理疾病，真是可怜……」
		ENDIF
	ENDSELECT

CASE "拭汗"
	PRINTFORMW
;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K9
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		PRINTFORMW 「こんな体にまでやるんですかー。すけ吐舌。せくはらー。へんたーい」
		PRINTFORMW 容赦ない肘鉄に耐えながらも胸の感触を味わった…。
	CASE "按摩"
		PRINTFORMW 「啊……如果是出于真心被人家迷住的话………」
		PRINTFORMW 「嘛、还是不要太过猜测比较好……唔姆唔姆。」
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "泡茶"
		PRINTFORMW

	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K9
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请", "展示内褲"
		PRINTFORMW
	CASE "推倒"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		PRINTFORMW
	;それ以外
	CASEELSE
		PRINTFORMW 「怎么了么？呼呼~」
	ENDSELECT
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	PRINTFORMW
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K9
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		;拒否されたのに連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K9
		WAIT
	;連続実行
	ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K9
		WAIT
	ELSEIF CFLAG:股間確認済 && RAND:2
		PRINTFORMW
	;心情好
	ELSEIF CFLAG:夸奖
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;胖次チラ直後
		IF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K9
			WAIT
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("打招呼前")
				PRINTFORMW
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
ENDSELECT

path: ERB/EVENT_K/09 パラチネ/EVENT_K9_DAILY.ERB


code:
;-------------------------------------------------
;取引画面と、购物の際の台詞を記述します
;-------------------------------------------------
;取引画面での台詞。悪魔以外は大部分が不要です
;-------------------------------------------------
@KOJO_WISH_K9, ARGS

SELECTCASE ARGS
CASE "取引開始"
	IF RAND:6 == 0
		PRINTFORML 「我来问一下您的去向」
		PRINTFORML 「话虽这么说，但我会尽我所能……」
	ELSEIF RAND:5 == 0
		PRINTFORML 「您需要圣遗物吗？要这十字架吗？放心的国产货！」
	ELSEIF RAND:4 == 0
		PRINTFORML 「一旦金币响起，灵魂就会立刻飞到天堂……」
	ELSEIF RAND:3 == 0
		PRINTFORML 「%CNAME("一人称")%是正义的人伙伴」
		PRINTFORML 「顺便说一下，%CNAME("一人称")%们决定谁是正义的人」
	ELSEIF RAND:2 == 0
		PRINTFORML 「撕下的话就会增加，真的可以说是灵魂吗？其实是海星的手臂吗？」
	ELSE
		PRINTFORML 「不能提太过分的请求哟？」
	ENDIF

CASE "愛の告白"
	IF TALENT:相思相愛
		PRINTFORMW 「……虽然很開心，但是%CNAME("一人称")%也是有自己的立场……不能违背戒律……」
		PRINTFORMW %CALLNAME:TARGET%吞吞吐吐地说。
		PRINTFORML 「……」
		PRINTFORMW 「……诶？是这样么……你想和%CNAME("一人称")%交往吗？」
		PRINTFORMW 无论如何，都要拜托的话，回忆起至今为止的事情，%CALLNAME:TARGET%无法退缩。
		PRINTFORMW 「……如果是这样的话……我愿意」
		PRINTFORMW 「……我虽然是驱魔人，但我会全心全意地侍奉你的」
	ELSE
		PRINTFORMW 「……我很開心，但是%CNAME("一人称")%也有立场……违背戒律的话……。」
		PRINTFORMW %CALLNAME:TARGET%吞吞吐吐地推辞掉了。
	ENDIF

;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
CASE "胖次交易"

;魂を払っているので確実に渡すことになる
CASE "胖次"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「啊，您要把灵魂纳过来啊！真是太好了」
		PRINTFORMW 「那么作为代价的钱是多少…啊？我不想要钱，所以想要你现在穿的胖次…？」
		PRINTFORMW  %CALLNAME:TARGET%は呆れてものも言えない様子だったが、%CALLNAME:MASTER%が席を立とうとすると慌ててすがりついた
		PRINTFORMW 「我、我、我明白了！我给你，我给你！」
		PRINTFORMW %CALLNAME:MASTER%命令她在这里脱掉，她一边流着泪一边举起了裙子
		PRINTFORMW 「呜呜，这也是为了拯救%CNAME("二人称")%的灵魂，为了灵魂的救赎…」
	;２回目以降(魂は貰わない)
	ELSE
		PRINTFORMW 「啊啊啊…又来了吗？」
		PRINTFORMW 虽然同意了%CALLNAME:TARGET%的请求，但是那只手的动作很笨拙。
		PRINTFORMW 「够了……够了！这样好吗？」
	ENDIF

CASE "全裸交易"

CASE "全裸"

CASE "全裸拒否"

CASE "同居拒否"

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"
	PRINTFORMW 「……呀，拜托那个女仆桑不就行了吗？」
	PRINTFORMW 「我想她一定会很高兴为你做的」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「还想让你帮我做便当……嗯，我也没觉得不好啊！」
		PRINTFORMW 「从那以后%CNAME("一人称")%也努力提高了手艺！哦，这是我说的，呵呵，呵呵。」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")
			PRINTFORMW 「不只是早上晚上，中午也想吃%CNAME("一人称")%做的料理。」
			PRINTFORMW 「那是委婉的爱的告白吧？这本书」
			PRINTFORMW 「没関系。有吃的话，人会更有干劲」
		ELSE
			PRINTFORMW 「……呀，拜托那个女仆桑不就行了吗？」
			PRINTFORMW 「我想她一定会很高兴为你做的」
			PRINTFORMW 「我明白了！但是请不要期待味道哦！」
		ENDIF
	ENDIF
CASE "淫紋拒否"
	PRINTFORMW 「……难道忘记了吗？」
	PRINTFORMW 「就算是%CNAME("一人称")%，也是圣职者哦？」
	PRINTFORMW 「为什么一定要把这种不检点的东西贴在%CNAME("一人称")%的身上呢？」
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

;以下は悪魔専用
CASE "魂が足りない"
	PRINTFORMW 「嗯，不行哦」
	PRINTFORMW 「如果再削减灵魂的话，真的会死的」
CASE "想要钱"
	IF RAND:2 == 0
		PRINTFORMW 「啊，是。从%CNAME("一人称")%的活动经费中拿出多少呢」
		PRINTFORML 喀嘣！
		PRINTFORMW 从某国的隐藏户頭把钱汇到了%CALLNAME:MASTER%的户頭上
	ELSE
		PRINTFORMW 「随着时代的进步，我们教区的请示书也变成了电子审批。」
		PRINTFORMW 「但我无法用手机登录群服，实在是太麻烦了…」
		PRINTFORMW %CALLNAME:TARGET%一边写着收据一边发牢骚。
	ENDIF

CASE "大力士"
	PRINTFORMW 「想要不输给恶魔的力量？」
	PRINTFORMW 「那么轮到我们出场了！」
	PRINTFORMW 「让我们来见识教皇厅神奇的人体改造术吧…呼、呼、呼」

CASE "避妊解除可"
	IF TALENT:相思相愛
		PRINTFORMW 「我很期待，让我生很多孩子吧，%CNAME("二人称")%」
		PRINTFORMW 「因为修女的身体是这样的…呵呵，我不会放过你的，%CNAME("二人称")%？」
		;加筆分
		PRINTFORMW そもそも逃げようとするなら彼女に愛を伝えたりしない。変に気弱になってる%CALLNAME:TARGET%に腹を立てた%CALLNAME:MASTER%は本心を伝える事にした。
		PRINTFORMW 帕拉奇娜が好きだから、きちんと告白して関係の整理をしたかった事。
		PRINTFORMW 帕拉奇娜を愛してるから、家族を作りたかった事。
		PRINTFORMW 自分の言葉がそんなに軽いのかと少し拗ねる。
		PRINTFORMW 「あーのーでーすーねー！」
		PRINTFORMW そこからは帕拉奇娜の反撃の時間だった。
		PRINTFORMW 「他の子も奉承まくって！部活始圆圈前は彼女いなかった？絶対作っては捨てとかしてたでしょうが！」
		PRINTFORMW 「不安に思わないわけがないんですよぉ！みんな可愛いし、みんな私よりお嫁桑に向いてるし！」
		PRINTFORMW 「私なんてただの都合のいい契約結んだ飞机杯って思うだけならそっちの方がよっぽど楽なんですよ！」
		PRINTFORMW 你みたいな詐欺まがいの迫り方してきた奴がそれ言うか！？帕拉奇娜みたいなめんどくさい奴は飞机杯に一番向かねえ！
		PRINTFORMW 二度とそんな事言えないように愛してやるからな！
		PRINTFORMW 「こっちだって！前言撤回出来ないぐらい孕ませてもらいますからね！」
		PRINTFORMW その時、スマホの留守番通知が再生された。宛名は弗理希艾尔。
		PRINTFORMW 『痴話喧嘩が外にも聞こえるのはやめてくれませんか。さっさとハメてくださいバ情侣』
		PRINTFORMW 反省した二人は改めて家族となる事とお互い愛し合う事、それと次のPLAY内容の相談をした…
	ELSE
		PRINTFORMW 「那是……。也就是说…就是这么回事吧…」
		PRINTFORMW 「希望%CNAME("一人称")%生孩子…是吧…」
		PRINTFORMW 「…」
		PRINTFORMW 「如果生了孩子的话，就不是交易了，只是单纯的性交了……」
		PRINTFORMW 「可以啊…%CNAME("一人称")%想要%CNAME("二人称")%的小宝宝…我想要…」
	ENDIF
CASE "避妊解除拒否"
	PRINTFORMW 「……不管你怎么恳求，我也不能答应」
	PRINTFORMW 「知道吗，生孩子是神圣的…是神对相爱男女的恩宠……」
	PRINTFORMW 「啊，不要试图逃跑!！」
;其他汎用
CASEELSE
	;汎用拒否
	IF STRCOUNT(ARGS, "拒否")
		PRINTFORMW 「果然，那是…」
	;汎用取引（特に記述することがないならスキップ）
	ELSEIF STRCOUNT(ARGS, "取引")

	ELSE

	ENDIF
ENDSELECT

path: ERB/EVENT_K/09 パラチネ/EVENT_K9_SHOP.ERB