code:
;-------------------------------------------------
;口上テンプレート
;○○口上_****_**_**（角色クターの名前を入れる、下にコンセプトなど一言あれば入れる）
;製作者　***
;-------------------------------------------------
;-------------------------------------------------
;角色追加の手順（必読！）
;１：EVENT_K57_名前.ERBとEVENT_K57_SHOP.ERBとEVENT_K57_DAILY.ERBとCHARA57.csvのファイル名と内部の57を角色番号に変更し、名前部分を角色名にする

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

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

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

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

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

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

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

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 俺_俺
CASE "二人称"
	LOCALS = %C_DETAIL(PLAYER)%
;"主人"と"助手"は三人称。主に当人と話していない時に使う
CASE "主人"
	IF NAME:MASTER == "你"
		LOCALS = 前輩_前輩
	ELSE
		LOCALS = %NAME:MASTER%前輩_%CSTR:MASTER:ふりがな%前輩
	ENDIF
CASE "助手"
	LOCALS = %C_DETAIL(ASSI)%
CASEELSE
	ACTOR = FIND_NO(ARGS)
	LOCALS = %C_DETAIL(ACTOR)%
ENDSELECT
RETURNF LOCALS

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

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = 学園の中等部に所属している生徒
	STR:2 = 最近オカルトに目覚めたようで、度々う桑くさい本を読んでいるのだとか
	STR:3 = とある『目的』のため、入部を志願したようだが……？
	IF TALENT:恋慕 && AIZOU(TARGET)
		STR:4 = かつては单相思の相手がいたが、今は吹っ切っているようだ
	ELSE
		STR:4 = ……ちなみに、本人は否定しているが、学園に单相思の相手がいる様子である
	ENDIF
;ここの中に限り、CFLAG,BASE,TALENT,ABL,EXP,CSTRをCSVに書いたものから変更させることが出来ます
;例えばBASE:体力を2000にしたいなら BASE:0:体力 = 2000 、強気にさせたいなら TALENT:0:強気 = 1 として下さい
;また、ABL:信頼を+2させたい場合には ABL:0:信頼 = ABL:信頼 + 2 と書いてください
CASE "勧誘"
	;PRINTFORML - %NAME:TARGET% -
	PRINTFORMW 「%CNAME("二人称")%」
	PRINTFORMW 某一天、有个学生找上了%CALLNAME:MASTER%。
	PRINTFORMW 那是脑后绑着一个单髻，皮肤褐色、同时有男性阳刚和女性阴柔气质的男孩。
	PRINTFORMW 「%CNAME("二人称")%ってば！」
	PRINTL
	CALL PRINT_SELECT, "……什么？/怎么了？"
	PRINTL
	PRINTFORMW 「终于对上眼了！」
	PRINTFORMW %CALLNAME:MASTER%回答后、%CALLNAME:TARGET%很開心地说道。
	PRINTFORMW 「%CNAME("一人称")%的名字是%CALLNAME:TARGET%的说！　顺带一说、我需要%CNAME("二人称")%的帮助……」
	PRINTFORMW %CALLNAME:TARGET%好几次欲言又止、最后下定决心死的抬起了頭。
	PRINTFORMW 「请让%CNAME("一人称", "どもり")%入部吧！」
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTFORMW ――据我所知、%CALLNAME:TARGET%似乎由着他的目的。
	PRINTFORMW 为了达成这个目的、需要借助魔法的力量。
	PRINTFORMW ……该怎么做呢？
;これは別になくても構いません
CASE "勧誘直後"
	;PRINTFORML - %NAME:TARGET% -
	PRINTFORMW %CALLNAME:MASTER%决定让他加入社团了。
	PRINTFORMW 「……！　真的吗！？」
	PRINTFORMW 「……终、终于啊啊啊啊啊啊啊！！！」
	PRINTFORMW 「十分感谢！　然后、那个……」
	PRINTFORMW 「……叫你师傅可以吗？」
	PRINTL
	CALL PRINT_SELECT, "很好/不行"
	PRINTL
	IF RESULT == 0
		CALL SET_CEVENT, "師匠フラグ"
		PRINTFORMW 「……！　这、这样啊！」
		PRINTFORMW 「那么、今后就请多多指教了！　%CNAME("二人称")%」
		;ちょっとだけ好感度が上がる
		CFLAG:好感度 += 10
	ELSE
		PRINTFORMW 「……啊、确实有点让人起鸡皮疙瘩」
		PRINTFORMW 「那么就、请多多指教了、%CNAME("二人称")%」
	ENDIF
	PRINTFORMW 「那么、事不宜迟……」
	PRINTFORMW 「……知道有什么、恋爱的魔法吗？」
	CALL SET_CEVENT, "合意禁止：同居"
;これも別になくても構いません。特殊な条件がある場合などにどうぞ
CASE "出現条件"
	;PRINTFORMW %NAME:TARGET%%CALLNAME:MASTER%的"%CSTR:関係%"、会在中午出现在社团活动室。

;初めて部室に顔を出した際のイベントや打招呼です。これも別に無くて構いません。
CASE "初訪問"
	PRINTFORML 「嘿~、这里就是%CNAME("二人称")%的部室啊」
	PRINTFORML 「总觉得、还以为会像秘密基地之类的呢」
	PRINTFORML 「……总之、%CNAME("一人称")%是%NAME:TARGET%哒！　以后也请多多照顾啦！」

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

ENDSELECT

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

;-------------------------------------------------
;一日の終わりでフラグなどを変化させたい時にはここで弄ることが出来る
;-------------------------------------------------
@TIMEEVENT_K57
#DIM TANK;DAYを一時的に入れるためのもの

IF COND("夜")
	IF COND("同居可能") && CEVENT("昼と夜") && DAY - CFLAG:昼と夜発生日 >= 3 && CEVENT("吸血鬼化") == 0
		IF CEVENT("吸血鬼フラグ")
			CSTR:髪色 = 銀髪
			CSTR:種族 = 吸血鬼
			CSTR:称号 = 吸血鬼となった少年
			PRINTFORMW 深夜中、在不一般的时间传来了門铃声，%CALLNAME:MASTER%冷着眼。
			PRINTFORMW 以为是醉鬼按错了門铃、就去看了下监视器。
			PRINTL
			PRINTL
			CALL EMOTION_PLUS, "心情差"
			PRINTFORMW 「……%CNAME("二人称")%」
			PRINTFORMW ……那里是、頭发变得雪白的%CALLNAME:TARGET%。
			PRINTFORMW 隐约察觉到不对劲的%CALLNAME:MASTER%、赶紧把在家的大人叫来了……。
			PRINTL
			PRINTL
			PRINTL
			PRINTL
			PRINTL
			PRINTFORMW 在进入家中的一段时间里、%CALLNAME:TARGET%出奇的安静。
			PRINTFORMW 平时開朗和蔼的样子一点都看不见。
			PRINTFORMW ……一定是遇到了什么可怕的事情吧、%CALLNAME:MASTER%什么都没有说做到了旁边
			PRINTFORMW 又过了一会儿、%CALLNAME:TARGET%终于用沙哑的声音開始说话了。
			PRINTFORMW 「……父亲、%CNAME("一人称")%变成了一个吸血鬼了」
			PRINTFORMW 「父亲他们为了和吸血鬼、一起居住，不得不这么做……！」
			PRINTFORMW %CALLNAME:TARGET%用力攥紧了拳頭。
			PRINTFORMW 「……什么都没对我说！　甚至也没问%CNAME("一人称")%想怎么做！」
			PRINTFORMW 「我喜欢父亲他们。但是、我真的不知道该怎么做了……！」
			CALL PRINT_SELECT, "……"
			PRINTFORMW 「……抱歉、能让我在这儿住一段时间吗」
			PRINTFORMW 「我还不知道、该用什么样的表情去面对他们……」
			PRINTL
			PRINTFORMW %CALLNAME:TARGET%变成吸血鬼，离家出走了。
			CALL PRINT_STRW, @"種族_黄色_[吸血鬼]_、髪色_黄色_[銀髪]_变更了、变成了强制同居状态。"
			CALL DEL_CEVENT, "合意禁止：同居"
			CALL DEL_CEVENT, "吸血鬼フラグ"
			CALL SETFLAG, "同居：一直", TARGET
			CFLAG:吸血鬼变成了日 = DAY
		ELSE
			PRINTFORMW 「啊、话说回来」
			PRINTFORMW 一天、%CALLNAME:TARGET%突然開口说道。
			PRINTFORMW 「我在%CNAME("二人称")%的家里住也可以！」
			PRINTFORMW 「父亲他们、对%CNAME("二人称")%十分喜欢啊！」
			PRINTFORMW ……是什么意图还不清楚、但可以和%CALLNAME:TARGET%同居了。
			PRINTL
			CALL PRINT_STRW, @"_黄色_可以和%CALLNAME:TARGET%同居了。"
			CALL DEL_CEVENT, "合意禁止：同居"
		ENDIF
		CALL SET_CEVENT, "吸血鬼化"
	ELSEIF CFLAG:女装乗り気度 >= 30 && TALENT:伪娘 == 0
		PRINTFORMW 深夜里、%CALLNAME:TARGET%在自己的房间里照着镜子。
		PRINTFORMW ……身上穿着、女生的连衣裙。
		PRINTFORMW 「……很适合、很适合吗……」
		PRINTFORMW 嘿嘿、嘿嘿嘿、%CALLNAME:TARGET%嘴里不断传出笑声。
		PRINTFORMW %CALLNAME:TARGET%似乎已经完全染上异装癖了……。
		PRINTL
		CALL PRINT_STRW, @"_黄色_%CALLNAME:TARGET%的素质追加了[伪娘]、[倒錯的]"
		TALENT:伪娘 = 1
		TALENT:倒錯的 = 1
		CALL K57_CLOTHCHANGE
	ELSEIF COND("合意：肛門性交") && ABL:Ａ感覚 >= 4 && CEVENT("肛門の虜") == 0
		PRINTFORMW 凌晨三点，一草一木都在睡觉的时候。
		PRINTFORMW %CALLNAME:TARGET%独自一人、玩弄着自己的肛門。
		PRINTFORMW 手指每次的搅动都会让%CALLNAME:TARGET%的身体跳动起来、嘴里不断发出喘息声。
		CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3+RAND:3)%」"
		CALL PRINT_STRW, @"「屁股……屁股好舒服呜~……_H_%PANT_K57(TARGET, "要", "通常")%」"
		CALL PRINT_STRW, @"「之前都完全不知道……%PANT_K57(TARGET, "要", "通常")%」"
		PRINTFORMW ……%CALLNAME:TARGET%似乎完全被肛門带来的快感给俘虏了……。
		CALL PRINT_STRW, @"%CALLNAME:TARGET%追加了_黄色_[Ａ性向]_"
		TALENT:Ａ性向 = 1
		CFLAG:メス堕ち度++
		CALL SET_CEVENT, "肛門の虜"
	ELSEIF ABL:Ｂ感覚 >= 6 && CEVENT("乳頭の虜") == 0
		PRINTFORMW 凌晨三点，一草一木都在睡觉的时候。
		PRINTFORMW %CALLNAME:TARGET%却因为胸口和衣服的摩擦不断蠕动着。
		PRINTFORMW 每当身体想要逃脱这种快感而移动、快感又会贯穿%CALLNAME:TARGET%的全身。
		CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3+RAND:3)%」"
		CALL PRINT_STRW, @"「明天……_H_绝对要……把%PANT_K57(TARGET, "要", "通常")%胸藏起来……~_H_」"
		PRINTFORMW ……到最后、朝直到早上%CALLNAME:TARGET%仍在快乐中蠕动。
		CALL PRINT_STRW, @"_黄色_%CALLNAME:TARGET%追加了[Ｂ性向]_"
		CALL PRINT_STRW, @"_黄色_另外、%CALLNAME:TARGET%会穿着胸罩了"
		TALENT:Ｂ性向 = 1
		CFLAG:メス堕ち度++
		CALL SET_CEVENT, "乳頭の虜"
	ELSEIF ABL:Ｍ感覚 >= 3 && CFLAG:メス堕ち度 >= 1 && CEVENT("接吻の虜") == 0
		PRINTFORMW 深夜中、午前０点前。
		PRINTFORMW %CALLNAME:TARGET%不断触摸着自己的嘴唇。
		PRINTFORMW 「……%CNAME("二人称")%的嘴唇、真的很软呢……」
		PRINTFORMW 「……哈！　这样可不行。不早点睡的话」
		CALL PRINT_STRW, @"「……也许可能吧、其他的东西也会很舒服吧……」"
		PRINTFORMW %CALLNAME:TARGET%似乎太过在意自己的嘴唇了……
		CALL PRINT_STRW, @"_黄色_%CALLNAME:TARGET%追加了[Ｍ性向]_"
		TALENT:Ｍ性向 = 1
		CFLAG:メス堕ち度++
		CALL SET_CEVENT, "接吻の虜"
	ELSEIF CEVENT("肛門の虜") && TALENT:縦深菊穴 && EXP:肛内精液経験 >= 50 && CEVENT("肛門大好き") == 0
		PRINTFORMW 深夜中、午前０点前。
		PRINTFORMW %CALLNAME:TARGET%的房间传来了啪啪啪的声音。
		PRINTFORMW 一个像是男性器官的模具插入了他的肛門、每当假阳具蠕动的时候，%CALLNAME:TARGET%就会发出娇喘。
		CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3+RAND:3)%」"
		CALL PRINT_STRW, @"「不够……~_H_好想要%CNAME("二人称")%的精液啊……~_H_」"
		PRINTFORMW ……%CALLNAME:TARGET%似乎已经完全堕于%CALLNAME:MASTER%的阴茎之下了。
		EXP:自慰経験 += 10
		CFLAG:メス堕ち度++
		CALL SET_CEVENT, "肛門大好き"
	ELSEIF ABL:精液中毒 >= 3 && EXP:精飲経験 >= 10 && EXP:精液経験 + EXP:精飲経験 >= 300 && CEVENT("精液の虜") == 0
		PRINTFORMW 已经是傍晚时分。
		PRINTFORMW %CALLNAME:TARGET%把自己的手指放进嘴里。
		PRINTFORMW 空闲的手捏着自己阴茎、反复抽动着。
		CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3)%」"
		CALL PRINT_STRW, @"「%CNAME("二人称")%的精液……明明……那么臭……的……_H_」"
		PRINTFORMW %CALLNAME:TARGET%被精液的魅力迷惑了的样子……
		CALL PRINT_STRW, @"_黄色_%CALLNAME:TARGET%獲得了[气味弱点]。"
		TALENT:气味弱点 = 1
		CFLAG:メス堕ち度++
		CALL SET_CEVENT, "精液の虜"
	ENDIF
ENDIF

IF CFLAG:女装乗り気度 >= 10 && CEVENT("胖次解禁") == 0
	CSTR:讨厌的胖次 =
	CFLAG:随机内衣OFF = 0
	CALL SET_CEVENT, "胖次解禁"
ENDIF

;ここは不要なCFLAGを消去する場所
SIF CEVENT("昼と夜（同居が解禁されるイベントです）")
	CALL DEL_CEVENT, "昼と夜（同居が解禁されるイベントです）"

SIF CEVENTS("入部季節") != ""
	CALL DEL_CEVENT_GROUP, "入部季節"

SIF CEVENTS("迷いの季節") != ""
	CALL DEL_CEVENT_GROUP, "迷いの季節"

SIF TALENT:料理擅長 == 0
	TALENT:料理擅長++

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

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	PRINTFORMW 「……说回来、接下来该做什么好呢？」
	PRINTFORMW 当把%CALLNAME:TARGET%带到床边、他这样说道。
	PRINTFORMW 听到这样的发言、%CALLNAME:MASTER%不由得翻了个白眼。
	PRINTFORMW 「不是、只听说你们在这儿做着不得了的事、具体怎么做我也不知道啊……」
	PRINTFORMW ……这下还是从頭開始和他说明比较好吧。
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTFORMW 「……就、就是说、这里一直在做很色情的部团活动吗……！？」
	PRINTFORMW 对的、%CALLNAME:MASTER%回答时、%CALLNAME:TARGET%整个脸都变得通红。
	PRINTFORMW 「……啊ー……那个……的话……」
	PRINTFORMW %CALLNAME:TARGET%扭捏了一会儿后、下定决心地望着%CALLNAME:MASTER%的脸。
	PRINTFORMW 「%CNAME("一人称")%……只听说过看过这种事、还没有做过……」
	PRINTFORMW 「朋友也有做过的！　这样的家伙也有，所以有点在意……」
	IF TALENT:MASTER:男性 && TALENT:MASTER:伪娘 == 0
		PRINTFORM 「……实际上还是真的大姐姐比较好啊、%CNAME("二人称")%
	ELSE
		PRINTFORM 「
		SIF TALENT:MASTER:伪娘
			PRINTFORM 明明知道你实际是个男人、
		PRINTFORM 但%CNAME("二人称")%还真是漂亮啊
	ENDIF
	PRINTFORMW 有个小小的愿望」
	CALL PRINT_STRW, @"「那个……%CNAME("一人称")%能教我H的知识吗……_H_」"
	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;莉酱とのＨを確認済+その時既に相思相愛を持っていた時、嫉妬によってお仕置きをする
ELSEIF PENIS(MASTER) && CEVENT("土内遥は見た！") && CEVENT("調教開始：嫉妬") == 0
	PRINTFORMW 「………………」
	PRINTFORMW 普段のように性交を始めようとすると、%CALLNAME:TARGET%はジトリと責めるような視線を%CALLNAME:MASTER%に投げかけてきた
	PRINTFORMW 「……むぅ」
	PRINTFORMW 「いいか%CNAME("二人称")%は今とーっても怒ってる！」
	PRINTFORMW 「どれくらい怒ってるかというと……なんかどういえばいいのかわかんないけど、とにかく怒ってる！！」
	PRINTFORMW 「どうしてそんなに怒ってるのか、%CNAME("二人称")%はわかんないの？」
	PRINTFORMW 今までの%CALLNAME:TARGET%との日々を思い返す
	CALL PRINT_SELECT, "覚えがない/エッチなことばかりしてること/莉と関係を持ったこと/覚えが有すぎる"
	SELECTCASE RESULT
	CASE 0
		PRINTFORMW 「……え、えぇ……？」
		PRINTFORMW 「この状態の%CNAME("二人称")%に何言ってもムダなんじゃ……いや、信じるんだ%CNAME("一人称")%、%CNAME("二人称")%は三大欲求性欲、性欲、性欲だしエッチのための部活作るし色々とホントにやばい奴だけどこれは大丈夫だと信じるんだ……！」
	CASE 1
		CALL PRINT_STRW, @"「なっ……_／／／_」"
		PRINTFORMW 「……そ、そうじゃなくて……じゃないこともないけど！　今言いたいのはそれじゃなくて！」
	CASE 2
		PRINTFORMW 「う、うぐっ……」
		PRINTFORMW 「わ、わかってるなら許してあげても……」
		PRINTFORMW 「……………………」
		PRINTFORMW 「……あー！　やっぱムリ！　許せない！」
	CASE 3
		PRINTFORMW 「覚えが有すぎるって……」
		PRINTFORMW 「……もうっ、この鬼畜！　ヘン領帯！　スケコマシ！　ハーレム主人公！」
		PRINTFORMW 「あーもう！　やっぱり許せねー！」
	ENDSELECT
	PRINTFORMW 「いいか%CNAME("二人称")%！　%CNAME("二人称")%莉酱とエッチしてただろ！」
	PRINTFORMW 「そりゃ莉酱だって年頃の女の子だし、%CNAME("二人称")%は%CNAME("二人称")%だからそうなるのもまあ、わかるのはわかる！」
	PRINTFORMW 「でもさ！　%CNAME("一人称")%だって%CNAME("二人称")%のこと好きなんだからエッチしたいんだよ！　それが他の子とエッチしちゃったりして！」
	PRINTFORMW 「でも莉酱を悪いって言うのはなんか違うし、そもそも%CNAME("二人称")%が誰にでもコナかけるようなヤツだから悪いんだし……」
	PRINTFORMW 「……ってことで決めた！　今日という今日は許さないぞ%CNAME("二人称")%！」
	PRINTFORMW %CALLNAME:TARGET%はそう叫ぶなり%CALLNAME:MASTER%に体当たりし、就这様床の上へと推倒。
	PRINTFORMW 呆然と%CALLNAME:TARGET%を見る%CALLNAME:MASTER%を後目に傍に置いていた鞄を開けると、中から吊帯のようなものを取り出し、それを%CALLNAME:MASTER%の阴茎の根本へと巻きつけた。
	PRINTFORM 陰茎の内部を締め付けられたような感覚に%CALLNAME:MASTER%は
	IF ABL:MASTER:受虐属性 >= 3
		PRINTFORMW 受虐狂ヒスティックな快感を覚える。
	ELSE
		PRINTFORMW 顔を顰める。
	ENDIF
	PRINTFORMW 「……よしよし、これで完了だ」
	PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の阴茎へと顔を近づけると、ふぅと息を吹きかける。
	PRINTFORMW 「これエッチなお店でこっそり買ったヤツでさ、付けると射精が出来なくなるんだって」
	CALL PRINT_STRW, @"「これで%CNAME("二人称")%がごめんなさい、許してくださいって言うまで、ずっとずーっといじめて给_H_」"
	TEQUIP:手下留情 = 1
	TEQUIP:推倒 = 1
;初めてのご褒美Ｈ
ELSEIF EQUIP:Ｈ的奖励 && CEVENT("調教開始：ご褒美Ｈ") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：ご褒美Ｈ"
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	PRINTFORMW 「……怎么说呢、最近和%CNAME("二人称")%H已经成习惯了呢」
	CALL PRINT_STRW, @"「自己很舒服、看到%CNAME("二人称")%也那么舒服时、怎么说呢、感觉身体里砰砰地……_H_」"
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	PRINTFORMW 「%CNAME("二人称")%……」
	PRINTFORMW 「……又、又要做吗？」
	PRINTFORMW 「不、也没有说不行……」
	CALL PRINT_STRW, @"「那、那个、就这样继续做H的事的话，感觉会迷上的……_H_」"
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTFORMW 「那、那个……」
	PRINTFORMW 「那个……和%CNAME("二人称")%H什么的确实很舒服……」
	PRINTFORMW 「但、但是、%CNAME("一人称")%不是、让%CNAME("二人称")%教我魔法才来的吗？」
	PRINTFORMW 「所以啊、就想、一直这样真的好吗……」
	PRINTFORMW 「……诶！　真、真的好吗！？」
	PRINTFORMW 「那、那就再一次……」
	PRINTFORMW 「…………」
	PRINTFORMW 「……嘎——！　果然太害羞了、算了吧！」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	;淫乱を先に獲得したかで分岐させたい場合(別にこの分岐は無くても良いと思います)
	IF CEVENT("『のぞき』見") && CEVENT("前輩の意見") == 0
		PRINTFORMW 「……%CNAME("二人称")%、为什么这么関照%CNAME("一人称")%？」
		PRINTFORMW 「%CNAME("一人称")%啊、其实知道哦？　%CNAME("莉")%和%CNAME("二人称")%是『那样』的関系……」
		PRINTFORMW 「让人发笑呢。%CNAME("二人称")%和%CNAME("莉")%的関系都不清楚、%CNAME("一人称")%还擅自開心，悲伤……」
		PRINTFORMW 「……%CNAME("二人称")%、其实嘲笑着%CNAME("一人称")%的吧？」
		PRINTFORMW 「这个蠢货还真好玩、一直这么想着吧……！」
		PRINTFORMW 「……呐！　对吧！？　绝对是这样对吧！？」
		PRINTFORMW 「……就是这样、说出来啊……！」
		PRINTFORMW 「讨厌啊我！　怎么这样……~！　暧昧不清的感觉啊！」
		PRINTFORMW 「……明明就这样恨上%CNAME("二人称")%、就轻松了的……！」
	ELSE
		PRINTFORMW 「……%CNAME("二人称")%啊、真是过分的人啊」
		IF CEVENT("前輩の意見")
			PRINTFORMW 「我知道了哟、你和%CNAME("莉")%酱一起做H的事」
			PRINTFORMW 「你猜%CNAME("一人称")%怎么想的？」
			CALL PRINT_SELECT, "……"
			PRINTFORMW 「超超超超嫉妒%CNAME("二人称")%啊」
			PRINTFORMW 「我很讨厌这样。我尽力掩藏了很久、实际上对%CNAME("二人称")%憎恨的憎恨的不得了」
			PRINTFORMW 「……本来该这样、一直嫉妒着嫉妒着、却变了对象」
			PRINTFORMW 「在那之前一直嫉妒着和%CNAME("莉")%H的%CNAME("二人称")%、不知何时变成了羡慕起了%CNAME("莉")%那边」
			PRINTFORMW %CALLNAME:TARGET%若有所思地盯着自己的手。
			PRINTFORMW 「……虽然是从%CNAME("弗理希艾尔")%发觉到的」
			PRINTFORMW 突然的话题变化让%CALLNAME:MASTER%困惑起来了。
			PRINTFORMW 「咒术中有种叫「完现术」的种类。……他们不管怎么教导我、我还是不清楚是怎样的存在」
			PRINTFORMW 「……所以说啊」
			PRINTFORMW %CALLNAME:TARGET%紧闭着嘴、突然吻上了%CALLNAME:MASTER%的唇……。
			EXP:接吻経験++
			EXP:PLAYER:接吻経験++
			PRINTFORMW 「……嘿嘿、成功了」
			PRINTFORMW 「%CNAME("一人称")%给你下了诅咒让%CNAME("二人称")%也会和我有同样的感觉」
			PRINTFORMW 「……%CNAME("一人称")%的诅咒会很厉害哦、做好觉悟了吗？　%CNAME("二人称")%」
		ELSE
			PRINTFORMW 「我知道哦、%CNAME("一人称")%对我以外都是这样这样的对吧？」
			PRINTFORMW 「但%CNAME("一人称")%却对这样的%CNAME("二人称")%喜欢、又嫉妒……」
			PRINTFORMW 「……这样、太不公平了。我也想让%CNAME("二人称")%有同样的感觉啊」
		ENDIF
	ENDIF
	CALL SET_CEVENT, "調教開始：恋慕"
;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無をチェック（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K57_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 K57_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K57_KOJO2
IF AIZOU()
	IF RAND:2
		PRINTFORMW 「……还要、再做吗？」
	ELSE
		PRINTFORMW 「……稍微节制点啊」
	ENDIF
;恋慕
ELSEIF TALENT:相思相愛 && RAND:2
	IF COND("欲求不満")
		PRINTFORMW 「もー！　またほったらかしにして！」
		PRINTFORMW 「そんないろんな子にコナかける節操无な%CNAME("二人称")%にはこうだ！」
		PRINTFORMW %CALLNAME:TARGET%は吊帯のようなものを取り出すと、素早く%CALLNAME:MASTER%の阴茎の根本へと巻きつけた……。
		TEQUIP:手下留情 = 1
	ELSEIF DAYEV("圣诞节")
		PRINTFORMW 「%CNAME("二人称")%、メリー圣诞节！」
		PRINTFORMW 「……ヘヘッ、驚いた？」
		PRINTFORMW 「最近ずーっと%CNAME("二人称")%に渡す送禮はどうしよっかなって考えてたんだ。けどどれだけ考えても思いつかなくて……」
		PRINTFORMW 「……でもさ、%CNAME("二人称")%ってスケベだからそういうのを渡しちゃえばいいんだよな」
		PRINTFORMW 「……ってことで、今日の送禮は%CNAME("一人称")%！　……なんちゃって。ヘヘッ、結局思いつかなかったや、ごめん」
		CALL PRINT_STRW, @"「……けどさ、%CNAME("二人称")%に圣诞节楽しんでほしいのは本当だから……%CNAME("一人称")%の身体、めちゃくちゃにしていいよ_H_」"
	ELSEIF PLACE("情人旅館") || PLACE("做爱房")
		PRINTFORMW 「ヘヘッ、ここなら二人っきりだな！」
		CALL PRINT_STRW, @"「……ねぇ、せっかくだし、おかしくなっちゃうくらいいっぱい気持ちよくなろうね_H_」"
	ELSEIF RAND:2
		CALL PRINT_STRW, @"「嘿嘿_H_做一堆恋人做的事吧_H_」"
	ELSE
		CALL PRINT_STRW, @"「%CNAME("二人称")%_H_让我再多舒服些啊_H_」"
	ENDIF
ELSEIF PLACE("情人旅館") || PLACE("做爱房")
	CALL PRINT_STRW, @"「う、ま、またここで……_H_」"
	CALL PRINT_STRW, @"「……お、お手柔らかに……_H_」"
;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0
	PRINTFORMW 「……诶？　还、还要做吗？」
	PRINTFORMW 「不……虽然很舒服、但是害羞什么的……」
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
	CALL PRINT_STRW, @"「一想到又能和%CNAME("二人称")%做这样的事、虽然很開心但还是有点害羞呢……_H_」"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	CALL PRINT_STRW, @"「再、再往前的话就回不来了……_H_」"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	CALL PRINT_STRW, @"「就是%CNAME("二人称")%让我的身体这么H……_H_」"
	CALL PRINT_STRW, @"「…要好好负起责任啊_H_」"
ENDIF
RETURN 1

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

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
IF AIZOU()
	PRINTFORMW 「…………」
;調教強制終了時の口上
ELSEIF STATE("撃沈", MASTER)
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW 「没、没问题吧！？」
		PRINTFORMW 「……%CNAME("二人称")%再怎么厉害、也会累的。……稍微休息下，好吗」
	;其他
	ELSE
		PRINTFORMW 「%CNAME("二人称", "どもり")%！？」
		PRINTFORMW 「……只是累了吗。吓了一跳啊」
	ENDIF
;partnerが体力or精力尽きた場合
ELSEIF STATE("撃沈")
	CALL PRINT_STRW, @"「哈~……_H_……哈~~……_H_」"
	CALL PRINT_STRW, @"「你这个……野兽……_H_」"
;恋慕＋満足
ELSEIF TALENT:相思相愛 && COND("満足")
	CALL PRINT_STRW, @"「好、好厉害……_H_」"
	CALL PRINT_STRW, @"「%CNAME("二人称")%、真的很厉害呢……_H_」"
;恋慕
ELSEIF TALENT:相思相愛
	CALL PRINT_STRW, @"「嗯……再抚摸我一会儿、好吗……_H_」"
;屈服刻印Lv1以下
ELSEIF MARK:屈服刻印 <= 1
	PRINTFORMW 「嘿嘿、记得再叫我哦」
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	CALL PRINT_STRW, @"「真是、激烈呢……_H_」"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	CALL PRINT_STRW, @"「啊~、真是舒服_H_」"
ELSE
	PRINTFORMW 「……那、一会儿见……」
ENDIF
TEQUIP:手下留情 = 0
RETURN 1

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

IF AIZOU()
	IF PALAM:欲情 >= PALAMLV:4
		CALL PRINT_STRW, @"「……%MPANT_K57(2+RAND:2, TARGET, "要")%」"
	ELSEIF RAND:2
		PRINTFORMW 「……这样就行了吧」
	ELSE
		PRINTFORMW 「…………」
	ENDIF
ENDIF

;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「呜哇！！　怎、怎么了、这么突然！」
		PRINTFORMW 「喂、总感觉手法好下流！！！」
		PRINTFORMW 「变态！　才不会有这种魔法修行吧！！」
	;二回目以降
	ELSE
		IF INSERT("Ａ挿入")
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%そこっ_H_触らないでっ_H_ナカもっ_H_」"
			CALL PRINT_STRW, @"「ナカずこずこされてからださわられたら_H_%PANT_K57(TARGET, "要", "通常")%頭ホワホワってなっちゃうからっ_H_」"
		ELSEIF PREVCOM == TNUM("给对方手交")
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 2)%そ、それっ_H_だめっ_H_」"
			CALL PRINT_STRW, @"「ちんちんぐにゅぐにゅされた後に温柔的触られたらっ_H_なんかぞわっとするからっ_H_%PANT_K57(TARGET, "要", "通常")%」"
		;恋慕
		ELSEIF TALENT:相思相愛 && RAND:5 == 0
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3)%……喜欢……最喜欢%CNAME("二人称")%……_H_」"
		;それ以外
		ELSEIF MARK:屈服刻印 >= 2
			SELECTCASE RAND:10
			CASE 0
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 2)%……这样的手法、当然有感觉啦……_H_」"
			CASE 1
				CALL PRINT_STRW, @"「ちょっ_H_そこっ_H_さわらないでぇっ_H_」"
			CASE 2
				CALL PRINT_STRW, @"「あぁ……_H_触られてるだけなのにゾワゾワってするぅ……_H_」"
			CASE 3
				CALL PRINT_STRW, @"「あっ……_H_それはズルいぃ……_H_」"
			CASE 4
				CALL PRINT_STRW, @"「それされたらっ_H_服こすれるだけで感じるようになっちゃう……_H_」"
			CASE 5
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
			CASE 6
				CALL PRINT_STRW, @"「ふぁぁ……_H_それっ、だめぇ……_H_」"
				CALL PRINT_STRW, @"「それされると……勘違いしちゃうから……_H_」"
			CASE 7
				CALL PRINT_STRW, @"「あっ……_H_もっとしてぇ……_H_」"
			CASE 8
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%……%CNAME("二人称")%、手真下流呢……_H_」"
			CASE 9
				CALL PRINT_STRW, @"「あっ_H_そっ_H_それぇ……は、恥ずかしい……_H_」"
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%……%CNAME("二人称")%、手真下流呢……_H_」"
			CASE 1
				CALL PRINT_STRW, @"「ちょ、や、やめてぇ……_H_」"
			CASE 2
				CALL PRINT_STRW, @"「き、気持ちよくなんか……_H_」"
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;肛門愛撫
;-------------------------------------------------
IF SELECTCOM == 2
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;気持ちいい
		IF CHECK("Ａ指挿入")
			CALL PRINT_STRW, @"「哇！？　突然怎么了……~_H_」"
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%明明屁股里插进了手指、却这么舒服……~_H_」"
		;それ以外
		ELSE
			PRINTFORMW 「哇！？　突然怎么了……~！」
			PRINTFORMW 「这、这样的事才不会舒服的！　等、等等啊……！」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					CALL PRINT_STRW, @"「あっ_H_ちょっ_H_おくっ_H_ふかいっ_H_」"
					CALL PRINT_STRW, @"「そんなところほじられたらだめになるっ_H_おとこなのにあか酱できちゃうっ_H_%PANT_K57(TARGET, "要", "通常", 2+RAND:2)%」"
				ELSE
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3+RAND:3)%」"
					CALL PRINT_STRW, @"「%CNAME("二人称")%……不、不要看啊……_H_」"
					CALL PRINT_STRW, @"「这、这副样子被看到了的话……%PANT_K57(TARGET, "要", "通常")%好害羞……_H_」"
				ENDIF
			ELSE
				CALL PRINT_STRW, @"「啊~_H_%CNAME("二人称")%的手指_H_」"
				CALL PRINT_STRW, @"「一直插进到最里面敏感的地方……_H_」"
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%如果这样的话_H_会变成雌性的_H_」"
			ENDIF
		;気持ちいい
		ELSEIF CHECK("Ａ指挿入")
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					IF TALENT:結腸性感
						CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%好深_H_」"
						CALL PRINT_STRW, @"「上面咕噜咕噜的_H_%PANT_K57(TARGET, "要", "通常", 3)%」"
					ELSE
						CALL PRINT_STRW, @"「啊、~_H_喂、进去奇怪的地方啦_H_」"
						CALL PRINT_STRW, @"「快点拔出来~_H_%PANT_K57(TARGET, "要", "通常")%不要在那儿摩擦_H_」"
					ENDIF
				ELSE
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%振动棒~_H_不要乱动啊~_H_」"
					CALL PRINT_STRW, @"「敏感的地方~_H_被咕噜咕噜地搅动着~_H_」"
					CALL PRINT_STRW, @"「尻穴~_H_不断吮吸着，发出舒服的声音_H_%PANT_K57(TARGET, "要", "通常")%」"
				ENDIF
			ELSE
				CALL PRINT_STRW, @"「%MPANT_K57(3+RAND:4, TARGET, "要")%」"
				IF PREVCOM == TNUM("愛撫")
					CALL PRINT_STRW, @"「そこっ_H_だめぇっ_H_」"
					CALL PRINT_STRW, @"「エッチにいろんなところ触りながらおしりぐちゃぐちゃってしないでっ_H_」"
				ELSEIF RAND:2
					CALL PRINT_STRW, @"「屁股~_H_好舒服~_H_」"
					CALL PRINT_STRW, @"「在这个地方_H_用手指搅动的话_H_要去了_H_」"
				ELSE
					CALL PRINT_STRW, @"「おしりっ_H_%PANT_K57(TARGET, "要", "通常")%そこっ_H_」"
					CALL PRINT_STRW, @"「そこほじられるとっ_H_おしりの中じんじんしちゃうっ_H_」"
				ENDIF
			ENDIF
		;それ以外
		ELSE
			IF ABL:Ａ感覚 >= 3
				PRINTFORMW 「等、等一下、还没准备好……」
			ELSE
				PRINTFORMW 「……呐、那里真的会觉得舒服吗？」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;-------------------------------------------------
IF SELECTCOM == 3
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「诶~……等等、在、在这儿自慰……？」
		PRINTFORMW 「不不不！　不行！　怎么想正常来说都不可能吧！」
		PRINTFORMW 「……不、不管怎么说都不能不做吗？」
		CALL PRINT_STRW, @"「……咕努努……不、不要那样看着啊……_H_」"
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 2)%%CNAME("二人称")%~_H_%CNAME("二人称", "かな")%_H_」"
			CALL PRINT_STRW, @"「不要盯着看啊_H_%PANT_K57(TARGET, "要", "通常")%」"
			CALL PRINT_STRW, @"「被那样看着的话_H_会兴奋起来的_H_%PANT_K57(TARGET, "要", "通常", 3+RAND:2)%」"
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「%MPANT_K57(3, TARGET, "要")%看着呢_H_」"
			CALL PRINT_STRW, @"「明明很害羞_H_手却停不下_H_」"
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰莖(扶她/男性のみ)
;-------------------------------------------------
IF SELECTCOM == 4
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「……诶！？」
			PRINTFORMW 「那个、口、口交吗！？」
			PRINTFORMW 「……不、该怎么说呢……就像是那些色情图片一样呢」
			PRINTFORMW 「一直想做来着……稍微有点吓到了……」
			PRINTFORMW 「……那、就……轱辘……咕噜、嗯……」
			PRINTFORMW 「……啊~真是的！　快点做啊！」
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要")%%CNAME("二人称")%の口の中気持ちいいっ_H_」"
			CALL PRINT_STRW, @"「もっとっ_H_もっと奥まで舐めてっ_H_」"
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		IF PREVCOM == TNUM("肛門愛撫") && ABL:Ａ感覚 >= 3
			CALL PRINT_STRW, @"「%MPANT_K57(3+RAND:2, TARGET, "要")%それっ_H_すごいっ_H_」"
			CALL PRINT_STRW, @"「お尻もちんちんもっ_H_%PANT_K57(TARGET, "要", "通常")%気持ちいいっ_H_」"
		;恋慕
		ELSEIF TALENT:恋慕 && RAND:2
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%再吸紧一点_H_」"
			CALL PRINT_STRW, @"「吸舒服点_H_舔的鸡鸡不行不行的_H_」"
		;それ以外
		ELSE
			IF ABL:Ｃ感覚 >= 3 && RAND:2
				CALL PRINT_STRW, @"「%MPANT_K57(3, TARGET, "要")%」"
				CALL PRINT_STRW, @"「啊~_H_鸡鸡要融化了_H_要融化啦_H_」"
			ELSE
				PRINTFORMW 「……あのっ！　そ、その……」
				CALL PRINT_STRW, @"「……な、舐めてくれ、その、%CNAME("一人称")%のチンコを……_H_」"
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;胸愛撫
;-------------------------------------------------
IF SELECTCOM == 5
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「诶、等、等一下……」
		PRINTFORMW 「摸那种地方也不会有什么感觉的……？」
	;二回目以降
	ELSE
		IF INSERT("Ａ挿入")
			CALL PRINT_STRW, @"「%MPANT_K57(5+RAND:2, TARGET, "要")%」"
			CALL PRINT_STRW, @"「なかっ_H_めちゃくちゃにしながらそこ触らないでっ_H_」"
			CALL PRINT_STRW, @"「どっちも気持ちよくてヘンになっちゃ……%PANT_K57(TARGET, "要", "通常")%」"
		;恋慕
		ELSEIF TALENT:恋慕 && RAND:3 == 0
			SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%……被%CNAME("二人称")%这样触摸着、好害羞……_H_」"
			CASE 1
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%……那样摸的话……~_H_会有奇怪的感觉的……_H_」"
			CASE 2
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 2)%胸のあたりがビリビリってっ_H_」"
			CASE 3
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
			CASE 4
				CALL PRINT_STRW, @"「あっ_H_あか酱じゃないだろぉっ_H_%PANT_K57(TARGET, "要", "通常", 3)%」"
			ENDSELECT
		ELSEIF PREVCOM == TNUM("给对方手交") && RAND:2
			IF ABL:Ｂ感覚 >= 3
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%それっ_H_それだめぇっ_H_」"
				CALL PRINT_STRW, @"「乳頭とちんちんいっしょにされたらっ_H_%PANT_K57(TARGET, "要", "通常")%両方イッておかしくなっちゃうぅっ_H_」"
			ELSE
				CALL PRINT_STRW, @"「ちょ……チンコ触りながら乳頭いじらないでぇ……っ_H_」"
				CALL PRINT_STRW, @"「なんか、なんかヘンな気分になっちゃう……%PANT_K57(TARGET, "要", "通常")%」"
			ENDIF
		;それ以外
		ELSEIF ABL:Ｂ感覚 >= 3
			SELECTCASE RAND:25
			CASE 0
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%不要，乳頭……~_H_不要再吸了……_H_」"
			CASE 1
				CALL PRINT_STRW, @"「あっ_H_気持ちいいっ_H_乳頭コリコリされるの気持ちいいっ_H_」"
			CASE 2
				CALL PRINT_STRW, @"「あっ_H_らめっ_H_そこコリってされたらおかしくなっちゃうっ_H_」"
			CASE 3
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 2)%そこっ_H_そこぉっ_H_」"
			CASE 4
				CALL PRINT_STRW, @"「あぁっ_H_これ以上されたらっ_H_乳頭こすれただけでおかしくなっちゃうぅっ_H_」"
			CASE 5
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3)%それっ_H_いぃぃ……_H_」"
			CASE 6
				CALL PRINT_STRW, @"「あっ_H_これやばいっ_H_ヘンになるっ_H_」"
			CASE 7
				CALL PRINT_STRW, @"「コリコリってされるだけでっ_H_イっちゃいそうっ_H_%PANT_K57(TARGET, "要", "通常")%」"
			CASE 8
				CALL PRINT_STRW, @"「あぁっ_H_それぇ_H_ふわってなって……%PANT_K57(TARGET, "要", "通常")%」"
			CASE 9
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3)%そんにゃっ_H_思い切りコリってされたらぁ_H_」"
			CASE 10
				CALL PRINT_STRW, @"「あっ_H_やばいっ_H_」"
				CALL PRINT_STRW, @"「乳頭ぃっ_H_乳頭だけでイっちゃうぅっ_H_」"
			CASE 11
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%それっ_H_やばいっ_H_」"
				CALL PRINT_STRW, @"「からだがふわふわってしてっ_H_ビリビリってしてぇっ_H_きもちよすぎておかしくなるぅっ_H_」"
			CASE 12
				CALL PRINT_STRW, @"「あっ_H_そこっ_H_そこコリコリってされるのきもちいいっ_H_」"
			CASE 13
				CALL PRINT_STRW, @"「あぁっ_H_ただのっ_H_ただのちくびなのにぃっ_H_」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%にさわられてっ_H_おんなのこみたいに気持ちよくなっちゃうぅっ_H_」"
			CASE 14
				CALL PRINT_STRW, @"「%MPANT_K57(3+RAND:6, TARGET, "要")%」"
			CASE 15
				CALL PRINT_STRW, @"「あっ_H_ちくびピンってなってるっ_H_」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%にさわられてピンってっ_H_%PANT_K57(TARGET, "要", "通常")%」"
			CASE 16
				CALL PRINT_STRW, @"「あぁっ_H_もうっ_H_もうやめてぇっ_H_」"
				CALL PRINT_STRW, @"「ちくびの周りがキュンキュンって……あぁっ_H_」"
			CASE 17
				CALL PRINT_STRW, @"「あんっ_H_もうっ_H_もうダメっ_H_」"
				CALL PRINT_STRW, @"「乳頭いつも触らないと満足できなくなっちゃうからぁっ_H_」"
			CASE 18
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3)%」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%ni↘_H_乳頭めちゃくちゃにされちゃってるっ_H_」"
			CASE 19
				CALL PRINT_STRW, @"「あっ_H_それきもちよくなっちゃうっ_H_」"
				CALL PRINT_STRW, @"「ちくびだけで要去了になっちゃうからっ_H_」"
			CASE 20
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%%CNAME("一人称")%っ_H_男性なのni↘_H_」"
				CALL PRINT_STRW, @"「女の子みたいに胸部で気持ちよくなっちゃってるっ_H_」"
			CASE 21
				CALL PRINT_STRW, @"「そこっ_H_そこすごすぎるっ_H_」"
				CALL PRINT_STRW, @"「きもちいいことしかかんがえられなくなっちゃうぅっ_H_」"
			CASE 22
				CALL PRINT_STRW, @"「それっ_H_ほんとにヤバいからぁっ_H_」"
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
			CASE 23
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3)%」"
				CALL PRINT_STRW, @"「これぇっ_H_ぜったいダメになるやつっ_H_」"
			CASE 24
				CALL PRINT_STRW, @"「あっ_H_そこっ_H_ちくびっ_H_%PANT_K57(TARGET, "要", "通常")%さわられるとぉっ_H_」"
				CALL PRINT_STRW, @"「からだが_H_%PANT_K57(TARGET, "要", "通常")%ビクンってなっちゃうからぁっ_H_」"
			ENDSELECT
		ELSEIF ABL:Ｂ感覚 >= 1
			IF PALAM:快Ｂ >= PALAMLV:2
				SELECTCASE RAND:10
				CASE 0
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
				CASE 1
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3)%」"
					CALL PRINT_STRW, @"「ちくびぃっ_H_おかしくっ_H_%PANT_K57(TARGET, "要", "通常")%おかしくなるっ_H_」"
				CASE 2
					CALL PRINT_STRW, @"「%CNAME("一人称")%っ_H_おんなのこじゃないのにぃっ_H_」"
					CALL PRINT_STRW, @"「なんでっ_H_なんでこんなにきもちよくなってるのっ_H_」"
				CASE 3
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3)%」"
					CALL PRINT_STRW, @"「もうやめてっ_H_コリコリってしにゃいでぇっ_H_」"
				CASE 4
					CALL PRINT_STRW, @"「あぁっ_H_やめてっ_H_」"
					CALL PRINT_STRW, @"「きもちいいのni↘_H_ふわふわってしちゃうっ_H_」"
				CASE 5
					CALL PRINT_STRW, @"「あっ_H_それだめっ_H_」"
					CALL PRINT_STRW, @"「それされちゃったらっ_H_おんなのこみたいになっちゃうっ_H_」"
				CASE 6
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3)%」"
					CALL PRINT_STRW, @"「ちくびがっ_H_ちくびがぁっ_H_きもちいいっ_H_%PANT_K57(TARGET, "要", "通常")%なんでっ_H_」"
				CASE 7
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
					CALL PRINT_STRW, @"「すごいっ_H_これっ_H_もどれなくなるっ_H_」"
				CASE 8
					CALL PRINT_STRW, @"「あぁんっ_H_ちょ、とめっ_H_とめてっ_H_」"
					CALL PRINT_STRW, @"「ぜったいこれダメ……あっ_H_%PANT_K57(TARGET, "要", "通常", 5)%」"
				CASE 9
					CALL PRINT_STRW, @"「%CNAME("一人称")%男性なのにぃ……っ_H_」"
					CALL PRINT_STRW, @"「なんでっ_H_こんなキュンキュンってっ_H_%PANT_K57(TARGET, "要", "通常", 3)%」"
				ENDSELECT
			ELSE
				SELECTCASE RAND:10
				CASE 0
					CALL PRINT_STRW, @"「……なんか、ヘンな気分になってきた……_H_」"
				CASE 1
					CALL PRINT_STRW, @"「なんで、ピリピリって……_H_」"
				CASE 2
					CALL PRINT_STRW, @"「くすぐったい……だけなのni↘……_H_」"
				CASE 3
					CALL PRINT_STRW, @"「あっ_H_コリコリってしないでぇ……_H_」"
				CASE 4
					CALL PRINT_STRW, @"「こんなのっ_H_絶対おかしいっ_H_」"
				CASE 5
					CALL PRINT_STRW, @"「んっ……_H_や、やっぱここまでにしない……？」"
				CASE 6
					CALL PRINT_STRW, @"「なんか、ふわってするぅ……_H_」"
				CASE 7
					CALL PRINT_STRW, @"「なんでっ……乳頭固くなってるのぉ……_H_」"
				CASE 8
					CALL PRINT_STRW, @"「あっ……_H_ヘンな声でちゃう……_H_」"
				CASE 9
					CALL PRINT_STRW, @"「なんできもちいのぉ……っ_H_」"
				ENDSELECT
			ENDIF
		ELSE
			SELECTCASE PALAM:快Ｂ
			CASE IS >= PALAMLV:3
				SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「あっ_H_もうやめっ_H_」"
				CASE 1
					CALL PRINT_STRW, @"「乳頭がピリピリってぇっ_H_」"
				CASE 2
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 2)%これっ_H_やばいっ_H_」"
				CASE 3
					CALL PRINT_STRW, @"「あぁっ_H_胸っ_H_いじられてるだけっ_H_なのにぃ_H_」"
				CASE 4
					CALL PRINT_STRW, @"「ちょっ_H_これっ_H_ヘンだってっ_H_」"
				ENDSELECT
			CASE IS >= PALAMLV:1
				SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「んっ……_H_や、やっぱここまでにしない……？」"
				CASE 1
					CALL PRINT_STRW, @"「ん……なんかゾクゾクって……_H_」"
				CASE 2
					CALL PRINT_STRW, @"「……なんか、ヘンな気分になってきた……_H_」"
				CASE 3
					CALL PRINT_STRW, @"「ちょっと……これっ……_H_」"
				CASE 4
					CALL PRINT_STRW, @"「これぇっ_H_なんでゾクゾクってぇ……_H_」"
				ENDSELECT
			CASEELSE
				PRINTDATAW
					DATA 「そんなに触って楽しいかー？」
					DATA 「……これなんか意味あるのか？」
					DATA 「……くすぐったくはあるけどさぁ」
					DATA 「こんなことやったって……」
					DATA 「い、いや、%CNAME("二人称")%……？」
				ENDDATA
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW 「う、うぅ……………」
			PRINTFORMW 「……………………」
			PRINTFORMW 「…………ええいっ！」
			CALL PRINT_STRW, @"「……あー！　や、やっちゃった……_／／／_」"
			CALL PRINT_STRW, @"「じ、主动接吻しちゃったぁ……_／／／_」"
		;それ以外
		ELSE
			PRINTFORMW 「……诶」
			PRINTFORMW 「亲、被亲了……！」
			IF EXP:接吻経験 == 0
				PRINTFORMW 「呼啊、我的初吻……」
				PRINTFORMW 「已经娶不了了……！」
			ELSE
				PRINTFORMW 「哇、已经不是第一次了哦！」
				PRINTFORMW 「但是、这个和那个不是一回事……」
			ENDIF
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「呐，%CNAME("二人称")%、来接吻吧_H_」"
			CALL PRINT_STRW, @"「可以的吧？　呐、啾——_H_」"
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "接吻", 3)%」"
		;それ以外
		ELSE
			PRINTFORMW 「……%CNAME("二人称", "どもり")%」
			PRINTFORMW 「……チュ、チューしていい……？」
		ENDIF
	;それ以外
	ELSE
		;テンダー接吻
		IF CHECK_COM("テンダー接吻")
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "接吻", 3+RAND:3)%」"
			CALL PRINT_STRW, @"「接吻的方式、真下流呢……%PANT_K57(TARGET, "要", "通常")%」"
		ELSEIF INSERT("Ａ挿入")
			CALL PRINT_STRW, @"「%MPANT_K57(3, TARGET, "要")%」"
			CALL PRINT_STRW, @"「お尻ぐちゅぐちゅってしながら接吻されたらっ_H_\@TALENT:相思相愛 ? 好きになっちゃう # 勘違いしちゃう\@っ_H_」"
			CALL PRINT_STRW, @"「恋人\@TALENT:相思相愛 ? らしいことされてもっと好きになっちゃうぅ # みたいなことされて好きになっちゃう\@っ_H_」"
		ELSEIF PREVCOM == TNUM("胸愛撫") && ABL:Ｂ感覚 >= 3
			CALL PRINT_STRW, @"「%MPANT_K57(4+RAND:2, TARGET, "要")%」"
			CALL PRINT_STRW, @"「乳頭コリコリされながら接吻なんかされちゃったら……%PANT_K57(TARGET, "要", "通常")%」"
		;恋慕
		ELSEIF TALENT:相思相愛
			CALL PRINT_STRW, @"「%MPANT_K57(4+RAND:2, TARGET, "要")%」"
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "接吻")%还要多一点……_H_%PANT_K57(TARGET, "要", "接吻", 2)%」"
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "接吻", 5)%」"
			CALL PRINT_STRW, @"「怎么……~_H_有点毛躁……%PANT_K57(TARGET, "要", "接吻")%」"
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

;-------------------------------------------------
;舐肛　Ａ面部騎乗(被逆推ているとき)
;-------------------------------------------------
;舐肛
IF SELECTCOM == 9
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			IF CEVENT("肛門の虜")
				PRINTFORMW 「……%CNAME("二人称")%のせいでおかしくなっちゃったんだ……」
				CALL PRINT_STRW, @"「こんなっ、お菊門なのに、舐めて、ほしいって……_H_」"
				CALL PRINT_STRW, @"「ずっとずーっとお尻がうずいて仕方がないんだ……_H_」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%、早く舐めて……_H_」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%のせいでおかしくなっちゃったんだから、酱とセキニンとってよ……_H_」"
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕 && ABL:施虐属性 >= 3
			CALL PRINT_STRW, @"「来啊、再多舔一下屁股吧_H_」"
			CALL PRINT_STRW, @"「不错吧_H_」"
		;それ以外
		ELSE
			PRINTFORMW 「诶诶……那、那个……」
			PRINTFORMW 「……请、舔那……那里！　为什么要我说这样的话！」
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「%MPANT_K57(3+RAND:3, TARGET, "要")%」"
			CALL PRINT_STRW, @"「再_H_再多舔一会儿_H_」"
		ELSEIF ABL:Ａ感覚 >= 3
			SELECTCASE RAND:7
			CASE 0
				CALL PRINT_STRW, @"「%MPANT_K57(3+RAND:3, TARGET, "要")%」"
				CALL PRINT_STRW, @"「不要……%PANT_K57(TARGET, "要", "通常")%这样得舔我……~_H_」"
			CASE 1
				CALL PRINT_STRW, @"「%MPANT_K57(3+RAND:2, TARGET, "要")%」"
				CALL PRINT_STRW, @"「こんなの……っ_H_ダメッ_H_%PANT_K57(TARGET, "要", "通常")%なのni↘_H_気持ちよくなっちゃうぅ……_H_」"
			CASE 2
				CALL PRINT_STRW, @"「あ、そ、それぇ……っ_H_」"
				CALL PRINT_STRW, @"「こんなの絶対ヘンなのにぃ……%PANT_K57(TARGET, "要", "通常")%」"
			CASE 3
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5 + RAND:3)%」"
			CASE 4
				CALL PRINT_STRW, @"「お、お尻っ_H_%PANT_K57(TARGET, "要", "通常")%」"
				CALL PRINT_STRW, @"「これっ_H_ヘンっ_H_ヘンなのに気持ちいいっ_H_」"
			CASE 5
				CALL PRINT_STRW, @"「そ、そんなところ舐めないでぇ……っ_H_」"
			CASE 6
				CALL PRINT_STRW, @"「すごいっ_H_お尻すごいよぉっ_H_」"
				CALL PRINT_STRW, @"「こんなの知っちゃったらっ_H_女の子になっちゃうからぁっ_H_」"
			CASE 7
				CALL PRINT_STRW, @"「お尻舐められてるのに気持ちよくなってるぅ……_H_」"
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
			CASE 8
				CALL PRINT_STRW, @"「あっ_H_それヤバいっ_H_」"
				CALL PRINT_STRW, @"「それされたらっ_H_女の子みたいな声でちゃうっ_H_」"
			CASE 9
				CALL PRINT_STRW, @"「あっ_H_これっ_H_ダメになるっ_H_」"
				CALL PRINT_STRW, @"「こんなの知っちゃったらっ_H_あぁっ_H_戻れなくなっちゃうっ_H_」"
			ENDSELECT
		;それ以外
		ELSE
			PRINTFORMW 「……为什么要舔那种地方？」
			PRINTFORMW 「做这种事、只会恶心吧？」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方手交
;-------------------------------------------------
IF SELECTCOM == 10
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		IF PREVCOM == SELECTCOM
			CALL PRINT_STRW, @"「%MPANT_K57(3+RAND:3, TARGET, "要")%」"
			CALL PRINT_STRW, @"「そんな何回もごしごししないでぇ……%PANT_K57(TARGET, "要", "通常")%」"
		;恋慕
		ELSEIF TALENT:恋慕 || CFLAG:メス堕ち度 >= 3
			IF RAND:2
				CALL PRINT_STRW, @"「%MPANT_K57(2, TARGET, "要")%……%CNAME("二人称")%的手、好舒服……_H_」"
			ELSE
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%そこ……もっとして……%PANT_K57(TARGET, "要", "通常")%」"
			ENDIF
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「呜哇……%CNAME("二人称")%的手在躁动……~_H_」"
		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 CFLAG:メス堕ち度 >= 3 || ABL:露出癖 >= 3
			PRINTFORMW 「……别、别太盯着看……」
			CALL PRINT_STRW, @"「会、让人兴奋不是吗……_H_」"
		;それ以外
		ELSE
			PRINTFORMW 「……真、真的就这样……？」
			PRINTFORMW 「……%CNAME("二人称")%、真是个无可救药的变态啊……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入
;-------------------------------------------------
IF SELECTCOM == 15
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛くない
		IF CHECK("尿道PLAY")
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%为什么啊~_H_为什么小便的孔会这么舒服啊~_H_%PANT_K57(TARGET, "要", "通常")%」"
			CALL PRINT_STRW, @"「一直做这样的事的话~_H_小便的时候不都会刺激到吗~_H_」"
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋
;-------------------------------------------------
IF SELECTCOM == 30
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 31
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛用振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒")
			;Ｓ状結腸まで振動棒が侵入している
			IF CHECK_COM("結腸責め")
				IF TALENT:結腸性感
					CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%里面的地方~_H_」"
					CALL PRINT_STRW, @"「屁股里面普鲁普鲁的~_H_站不起来了~_H_」"
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飛機杯
;-------------------------------------------------
IF SELECTCOM == 37
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ｖ挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 60 && SELECTCOM <= 69 && FIRSTCOMS("Ｖ挿入") == 0
	;処女
	IF TALENT:処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			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 CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
IF SELECTCOM == 60
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;後背位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;対面座位。IF CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
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 CHECK_COM("立位")で立位の場合の台詞も書ける
;-------------------------------------------------
;背面座位
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("Ａ挿入")
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%%CNAME("二人称")%のチンコが挿入ってくるっ_H_」"
			CALL PRINT_STRW, @"「お尻の中いっぱいに%CNAME("二人称")%のチンコが……%MPANT_K57(2+RAND:2, TARGET, "要")%」"
		;それ以外
		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:恋慕)
		CALL PRINT_STRW, @"「あ……_H_%CNAME("二人称")%のチンコでいっぱい……_H_」"
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			PRINTFORMW
		;対面座位
		CASE 73
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;Ｓ状結腸を使っての肛門性交
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHECK_COM("結腸責め")
	;初めての結腸責め
	IF EXP:結腸経験 == 0
		PRINTFORMW
	;今回初の結腸責め
	ELSEIF EXP_GAIN("結腸経験") == 0
		IF TALENT:結腸性感
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%插到深处了~_H_」"
			CALL PRINT_STRW, @"「不妙啊~_H_太舒服了有些頭晕了~_H_」"
		ELSE
			CALL PRINT_STRW, @"「喂、%CNAME("二人称")%！　又插进奇怪的地方了……呜~_H_」"
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%腰不要晃啊~……%PANT_K57(TARGET, "要", "通常")%」"
		ENDIF
	ELSE
		IF TALENT:結腸性感
			SELECTCASE RAND:6
			CASE 0
				CALL PRINT_STRW, @"「再往~_H_再往深处里一点~_H_」"
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3+RAND:2)%全部都好舒服~_H_」"
			CASE 1
				CALL PRINT_STRW, @"「あっ_H_それっ_H_いいっ_H_」"
				CALL PRINT_STRW, @"「奥のほうがきゅんきゅんってしちゃってるっ_H_」"
			CASE 2
				CALL PRINT_STRW, @"「あっ_H_%CNAME("一人称")%のお尻、%CNAME("二人称")%の精液ほしがっちゃってるっ_H_」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%の精液で受精したいってっ_H_そんなこといっちゃってるぅっ_H_」"
			CASE 3
				CALL PRINT_STRW, @"「%MPANT_K57(5, TARGET, "要")%」"
				CALL PRINT_STRW, @"「へんなっ_H_へんなこえがでちゃうっ_H_」"
			CASE 4
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3)%」"
				CALL PRINT_STRW, @"「いまっ_H_%CNAME("二人称")%に女の子にされちゃってるっ_H_%CNAME("二人称")%の女の子にされちゃってるよぉっ_H_」"
			CASE 5
				CALL PRINT_STRW, @"「あ゛_H_そこっ_H_そこぉ_H_」"
				CALL PRINT_STRW, @"「おくのほうっ_H_あ゛_H_%CNAME("二人称")%のおっきいちんぽでゴツゴツってしてぇ_H_」"
			ENDSELECT
		ELSE
			CALL PRINT_STRW, @"「啊~_H_这样的好奇怪~_H_」"
			CALL PRINT_STRW, @"「明明很奇怪~_H_奇怪但是好舒服~_H_」"
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ａ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%ちょっとっ_H_」"
			CALL PRINT_STRW, @"「イきたいっ_H_%PANT_K57(TARGET, "要", "通常")%イかせてっ_H_」"
			CALL PRINT_STRW, @"「このままじゃ%CNAME("一人称", "かな")%っ_H_%CNAME("二人称")%\@PENIS(PLAYER) ? のチンコないと # にエッチなことしてもらわないと\@ガマンできなくなっちゃうっ_H_」"
		ELSE
			PRINTFORMW
		ENDIF
	;余裕が無い
	ELSEIF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%好きっ_H_これ好きっ_H_」"
			CALL PRINT_STRW, @"「%CNAME("二人称")%っ_H_%PANT_K57(TARGET, "要", "通常")%もっといっぱい突いてっ_H_」"
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				CALL PRINT_STRW, @"「んっ……_H_%CNAME("二人称")%、チューして……_H_」"
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				CALL PRINT_STRW, @"「このカッコ、なんだか恋人みたいで恥ずかしい……っ_H_」"
			ELSE
				CALL PRINT_STRW, @"「ちょ、ちょっと、顔見ないで……_H_」"
			ENDIF
			CALL PRINT_STRW, @"「%MPANT_K57(3+RAND:3, TARGET, "要")%」"
		CASEELSE
			SELECTCASE RAND:4
			CASE 0
				CALL PRINT_STRW, @"「%MPANT_K57(2, TARGET, "要")%奥のほうni↘_H_当たって……%MPANT_K57(3, TARGET, "要")%」"
			CASE 1
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要")%これっ_H_すごいっ_H_」"
			CASE 2
				CALL PRINT_STRW, @"「%MPANT_K57(4+RAND:2, TARGET, "要")%」"
				CALL PRINT_STRW, @"「こんなの知ったらぁ_H_戻れなくなる……%PANT_K57(TARGET, "要", "通常", 2)%」"
			CASE 3
				CALL PRINT_STRW, @"「%MPANT_K57(5, TARGET, "要")%」"
			ENDSELECT
		ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで)
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 74
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW 「%PANT_K57(TARGET, "不要", "通常", 5)%」
		IF TALENT:相思相愛
			PRINTDATAW
				DATA 「……だ、大丈夫だから」
				DATAFORM 「……ん、%CNAME("二人称")%は心配しなくて良いよ」
				DATA 「……もっと、もっと動かしてみて」
				DATAFORM 「……ヘヘ、%CNAME("二人称")%気持ちいい？」
				DATA 「……んー？　そんなに心配しなくたって大丈夫だって」
			ENDDATA
			PRINTFORMW 「今は確かにあんまり気持ちよくないんだけどさ、頑張って一緒に気持ちよくなってみたいんだ」
		ELSE
			PRINTDATAW
				DATA 「……これさ、ホントに気持ちよくなれるの……っ！」
				DATA 「なんか大切なものが減ってる気がする……」
				DATA 「……これ、騙されてるってワケじゃないよね……？」
				DATA 「……全然気持ちよくないけど、これホントに大丈夫なの……？」
				DATA 「……なんていうかこれ、たぶん、っていうか絶対フツーじゃないよね」
			ENDDATA
		ENDIF
	;恋慕
	ELSEIF TALENT:恋慕 && RAND:11 == 0 && PALAM:恭順 >= PALAMLV:5
		CALL PRINT_STRW, @"「すきっ_H_%CNAME("二人称")%だいすきっ_H_」"
		CALL PRINT_STRW, @"「%MPANT_K57(5, TARGET, "要")%」"
	;それ以外
	ELSE
		SELECTCASE RAND:10
		CASE 0
			CALL PRINT_STRW, @"「%MPANT_K57(5+RAND:3, TARGET, "要")%」"
		CASE 1
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
			CALL PRINT_STRW, @"「お菊門でっ_H_女の子みたいな声だしちゃってるぅっ_H_」"
		CASE 2
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%これっ_H_気持ちいいっ_H_」"
			CALL PRINT_STRW, @"「からだがゾクゾクってしてっ_H_%PANT_K57(TARGET, "要", "通常", 5)%」"
		CASE 3
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
			SELECTCASE CONDS("阴茎尺寸", PLAYER)
			CASE "短小"
				CALL PRINT_STRW, @"「お尻のふちの辺りがキュンキュンってしてぇっ_H_」"
			CASE "普通"
				CALL PRINT_STRW, @"「ナカでっ_H_ゴチュゴチュってしてるっ_H_」"
			CASE "巨根"
				CALL PRINT_STRW, @"「奥のっ_H_奥のほうまで是ってっ_H_%PANT_K57(TARGET, "要", "通常", 3)%」"
			CASE "馬根"
				CALL PRINT_STRW, @"「あ゛_H_これっ_H_だめっ_H_」"
				CALL PRINT_STRW, @"「ぜったいもどれなくなるやつっ_H_B」"
			CASEELSE
				CALL PRINT_STRW, @"「あ゛あ゛ぁっ_H_」"
				CALL PRINT_STRW, @"「こんなのっ_H_こんなの知っちゃったらっ_H_ヘン領帯になっちゃうっ_H_」"
			ENDSELECT
		CASE 4
			CALL PRINT_STRW, @"「%MPANT_K57(5, TARGET, "要")%」"
			CALL PRINT_STRW, @"「これっ_H_ぜったいヤバいやつっ_H_」"
		CASE 5
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 3)%」"
			CALL PRINT_STRW, @"「こんなのっ_H_こんなの知っちゃったら絶対戻れなくなるっ_H_」"
		CASE 6
			IF CHECK("Ａ完美契合")
				CALL PRINT_STRW, @"「%CNAME("二人称")%のおちんちんがっ_H_お尻の中にズッポリってきれいにはまってるっ_H_」"
			ELSE
				CALL PRINT_STRW, @"「%CNAME("二人称")%のおちんちんっ_H_奥のほうまでズッポリ是っちゃってるっ_H_」"
			ENDIF
			CALL PRINT_STRW, @"「%MPANT_K57(5, TARGET, "要")%」"
		CASE 7
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
			CALL PRINT_STRW, @"「奥ゴチュゴチュってしないでぇっ_H_」"
		CASE 8
			CALL PRINT_STRW, @"「そんなni↘_H_そんなに突かれたらっ_H_%CNAME("二人称")%の女の子になっちゃうっ_H_」"
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 5)%」"
		CASE 9
			CALL PRINT_STRW, @"「これっ_H_しゅごいっ_H_」"
			CALL PRINT_STRW, @"「もっとっ_H_もっとしてっ_H_」"
		ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門騎乗位
;-------------------------------------------------
IF SELECTCOM == 75
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;貝あわせ
;-------------------------------------------------
IF SELECTCOM == 80
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;手淫
;-------------------------------------------------
IF SELECTCOM == 90
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕 || CFLAG:メス堕ち度 >= 3
			IF PREVCOM == TNUM("口交")
				CALL PRINT_STRW, @"「ヘヘ……%CNAME("二人称")%のチンコぬらぬらしてて……_H_」"
				CALL PRINT_STRW, @"「湿的てるのは%CNAME("一人称")%の唾液のせいだって分かってるんだけど、なんかドキドキする……_H_」"
			ELSE
				CALL PRINT_STRW, @"「……嘿嘿、快不行了……_H_」"
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「呜诶~……暖暖的有点恶心……」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕 && RANDIF(1, ABL:奉仕精神 >= 3)
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSEIF CFLAG:メス堕ち度 >= 3
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 3)%」"
			PRINTFORMW 「……哦，舔这里会舒服吗？」
			CALL PRINT_STRW, @"「嘿嘿_H_知道好事情了_H_」"
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 3+RAND:2)%」"
			CALL PRINT_STRW, @"「喂、不要看我的脸啊……_H_」"
		ELSEIF CFLAG:メス堕ち度 >= 3
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 3+RAND:3)%」"
			IF RAND:2
				CALL PRINT_STRW, @"「……嘿嘿、%CNAME("一人称")%舔着我的鸡鸡、自己的也变得这么硬啊_H_」"
			ELSE
				CALL PRINT_STRW, @"「……嘿嘿、很硬呢……_H_」"
			ENDIF
		;それ以外
		ELSE
			IF RAND:2
				PRINTFORMW 「呜呃~……鸡鸡的味道满嘴都是……」
			ELSE
				CALL PRINT_STRW, @"「うげ……%PANT_K57(TARGET, "不要", "Ｍ異物", 3+RAND:3)%」"
				PRINTFORMW 「って、なんでこれでチンコ硬くしてんだよぉ……！」
			ENDIF
		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:恋慕
			CALL PRINT_STRW, @"「%MPANT_K57(4+RAND:2, TARGET, "要")%」"
			CALL PRINT_STRW, @"「ちんこが……っ_H_%CNAME("二人称")%の\@PENIS(PLAYER) ? チンコ # おまんこ\@に擦れて気持ちいい……っ_H_」"
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;肛門奉仕
;-------------------------------------------------
IF SELECTCOM == 96
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;内褲冲
;-------------------------------------------------
IF SELECTCOM == 97
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;奉仕舐陰
;-------------------------------------------------
IF SELECTCOM == 98
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:相思相愛 && RAND:5 == 0
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 3)%」"
			CALL PRINT_STRW, @"「%CNAME("二人称")%のおまんこ、エッチな味がして、なんかふわふわする……_H_」"
		;それ以外
		ELSEIF ABL:欲望 >= 3
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 3)%」"
			SELECTCASE RAND:10
			CASE 0
				CALL PRINT_STRW, @"「あは……_H_%CNAME("二人称")%のおまんこがくぱくぱって開いたりしまったりしてる……_H_」"
			CASE 1
				CALL PRINT_STRW, @"「すごい……こんなにいっぱい出されたら顔中ベトベトになっちゃう……_H_」"
			CASE 2
				CALL PRINT_STRW, @"「ヘヘ……とってもエッチな%TEXTS("气味")%がする……_H_」"
				CALL PRINT_STRW, @"「ちょっとしょっぱい感じで、おちんちんがキュン_H_ってなっちゃうような%TEXTS("气味")%……_H_」"
			CASE 3
				CALL PRINT_STRW, @"「……もう、おまんこすっごいベタベタじゃん_H_」"
				CALL PRINT_STRW, @"「このままだと気持ち悪いだろうし、全部キレイにして不给と_H_」"
			CASE 4
				CALL PRINT_STRW, @"「フフ_H_%CNAME("二人称")%のおまんこ、もう真っ赤っか……_H_」"
				CALL PRINT_STRW, @"「お尻のほうまですっかりグショグショだし、阴蒂は胖次胖次だし……_H_」"
			CASE 5
				CALL PRINT_STRW, @"「舐めるたびにビクビクってしてて……_H_」"
				CALL PRINT_STRW, @"「……ヘヘ_H_なんだか楽しくなっちゃう_H_」"
			CASE 6
				IF COND("種族：吸血鬼")
					CALL PRINT_STRW, @"「もー、こんなにエッチな汁出したらおまんこに近づけなくなっちゃうじゃん……_H_」"
					CALL PRINT_STRW, @"「……もっともっとおまんこの奥をほじくって、お汁をせき止めないと_H_」"
				ELSE
					CALL PRINT_STRW, @"「……もう、こんなにダラダラ出してたら%CNAME("一人称")%溺れちゃうぞ_H_」"
				ENDIF
			CASE 7
				CALL PRINT_STRW, @"「あはっ、%CNAME("二人称")%のおまんこの動き方がキレイに見える……_H_」"
				CALL PRINT_STRW, @"「奥のほうがおちんちん欲しそうにクパ_H_クパッ_H_って動いて……_H_」"
			CASE 8
				PRINTFORMW 「ん……おまんこに顔を近づけてるからかな……」
				CALL PRINT_STRW, @"「頭のなかまでエッチなグチュ……_H_クチャッ……_H_って音が響いてきて、ちんちんがキュンキュンってしちゃってる……_H_」"
			CASE 9
				CALL PRINT_STRW, @"「……フフ_H_舌を入れただけなのに、寂しそうにおまんこがキュン_H_って吸い付いてくる……_H_」"
				CALL PRINT_STRW, @"「舌みたいな尺寸のものでもこんなんっちゃうなんて……%CNAME("二人称")%のエッチ_H_」"
			ENDSELECT
		ELSE
			SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「うわ……うわ、うわー……_H_」"
				CALL PRINT_STRW, @"「なんか……なんかすごい……_H_」"
			CASE 1
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 5)%」"
				CALL PRINT_STRW, @"「……%CNAME("一人称")%、今ものすごいことしてる気がする……_H_」"
			CASE 2
				PRINTFORMW 「うわ、うわわわわわ……」
				CALL PRINT_STRW, @"「おまんこがこんな近いの、全然慣れない……_H_」"
			CASE 3
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "Ｍ異物", 5)%」"
				CALL PRINT_STRW, @"「……今おまんこがヒクヒクってなってるし、出て来る汁はエッチな味がするし……_H_」"
			CASE 4
				CALL PRINT_STRW, @"「こ、これヤバい……_H_」"
				CALL PRINT_STRW, @"「こんなAVみたいなことしてるのに……でも、止められない……_H_」"
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;六九式
;-------------------------------------------------
IF SELECTCOM == 99
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「えっと……%CNAME("二人称")%が%CNAME("一人称")%のを舐めるから、代わりに%CNAME("一人称")%が%CNAME("二人称")%のを舐めればいいんだよな……？」
		PRINTFORMW 「えっ……し、知ってるし！　こんなの全然知ってるしー！！」
		CALL PRINT_STRW, @"「だから……あっ_H_ちょ、いきなりやんないでぇっ_H_」"
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:相思相愛 && RAND:2
			CALL PRINT_STR, @"「%MPANT_K57(1, TARGET, "要")%"
			IF VAGINA(PLAYER)
				CALL PRINT_STRW, @"%CNAME("二人称")%のオマンコ、ドロッドロ……_H_」"
				CALL PRINT_STRW, @"「舐める度にジュワってなって、すごい%TEXTS("气味")%させちゃってる……_H_」"
			ELSE
				CALL PRINT_STRW, @"あはっ_H_%CNAME("二人称")%のチンチンすごい%TEXTS("气味")%……_H_」"
				CALL PRINT_STRW, @"「ものすごく硬くて……%CNAME("一人称")%男性なのに女の子みたいにキュンキュンしちゃってる……_H_」"
			ENDIF
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「%MPANT_K57(3+RAND:3, TARGET, "要")%」"
			IF VAGINA(PLAYER)
				CALL PRINT_STRW, @"「%CNAME("二人称")%的小穴被我按摩着~_H_鸡鸡又被你舔着~_H_」"
				CALL PRINT_STRW, @"「舒服的不行了~_H_脑子里想的全是H的事情~_H_%PANT_K57(TARGET, "要", "通常")%」"
			ELSE
				CALL PRINT_STRW, @"「和%CNAME("二人称")%舔着对方的鸡鸡~_H_%PANT_K57(TARGET, "要", "通常")%」"
				CALL PRINT_STRW, @"「这样下去的话~_H_会爱上%CNAME("一人称")%的鸡鸡的~_H_」"
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;尻素股
;-------------------------------------------------
IF SELECTCOM == 101
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;-------------------------------------------------
;逆振動棒
;-------------------------------------------------
IF SELECTCOM == 106
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW 「%CNAME("二人称", "どもり")%、すげえエッチな顔してる……」
			CALL PRINT_STRW, @"「そ、その、ちょっとビッ阴蒂しちゃったというか、こっちまでエッチな気分になっちゃったというか……_H_」"
			PRINTFORMW 「……ちょ、ちょっとだけ、動かしてもいい？」
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			SELECTCASE RAND:10
			CASE 0
				CALL PRINT_STRW, @"「う、うわ、振動棒挿れただけでものすごく気持ちよさそうな顔してる……_H_」"
			CASE 1
				CALL PRINT_STRW, @"「うわ、うわー、振動棒がズブズブって……_H_」"
			CASE 2
				PRINTFORMW 「バ、振動棒ってそんなに気持ちいいの……？」
			CASE 3
				CALL PRINT_STRW, @"「うわ、す、すっごい……_H_」"
			CASE 4
				CALL PRINT_STRW, @"「%CNAME("二人称")%の声、ものすごくエッチで躁动难忍しちゃう……_H_」"
			CASE 5
				CALL PRINT_STRW, @"「あ、%CNAME("二人称")%目がとろんってしてる……_H_」"
			CASE 6
				CALL PRINT_STRW, @"「な、なんか、や、ヤバイ……_H_」"
			CASE 7
				CALL PRINT_STRW, @"「うわ、振動棒がブルってなるたびにエッチな汁が飛び散ってる……_H_」"
			CASE 8
				CALL PRINT_STRW, @"「ここをこうしたら……あ、き、気持ちいいんだ……_H_」"
			CASE 9
				CALL PRINT_STRW, @"「み、見てるだけなのに気持ちよさそうでぞわぞわってしちゃう……_H_」"
			ENDSELECT
		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:処女
		PRINTFORMW 「あっ……だ、大丈夫！？」
		PRINTFORMW 「だってなんかちょっと痛そうだし、血が出てるし……」
		PRINTFORMW 「……え、しょ、処女だったの！？」
		PRINTFORMW 「いや、だ、だってさ、いっつもあんなにエッチなことしてくる%CNAME("二人称")%だよ！？　絶対経験あるって思うじゃん！」
		PRINTFORMW 「それが処女だっただなんて……」
		IF TALENT:童貞
			PRINTFORMW 「……そ、その、%CNAME("一人称")%も実は初めてで、その、」
			CALL PRINT_STRW, @"「けど、できるだけがんば……あっ_H_」"
			CALL PRINT_STRW, @"「ちょ、%CNAME("二人称")%っ、急に動かさないでぇ……_H_」"
		;それ以外
		ELSE
			PRINTFORMW 「……ふっふっふー」
			PRINTFORMW 「%CNAME("二人称")%こういうこと初めてだったかー、なら仕方ないなー」
			CALL PRINT_STRW, @"「ここは%CNAME("二人称")%より経験豊富な%CNAME("一人称")%が……あっ_H_」"
			CALL PRINT_STRW, @"「あっ_H_ちょ_H_おまんこのヒダがおちんちんにトロトロってからみついてくるぅっ_H_」"
			CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 2+RAND:2)%なんでっ_H_なんで%CNAME("一人称")%よりエッチ擅長なのぉっ_H_」"
		ENDIF
	;対象が童貞
	ELSEIF TALENT:童貞
		PRINTFORMW 「……そ、その、実はね……」
		PRINTFORMW 「……%CNAME("一人称")%、エッチしたことないんだ……」
		PRINTFORMW 「……え、知ってた？　そうだと思ってた？　い、いや！　そんなことないでしょ！」
		PRINTFORMW 「もー！　ずっと恥ずかしいなって思ってたのに～～～！」
		PRINTFORMW 「うぅ…………」
		PRINTFORMW 「……え、えっと、気を取り直して……」
		CALL PRINT_STRW, @"「……%MPANT_K57(2, TARGET, "要")%」"
		CALL PRINT_STRW, @"「%CNAME("二人称")%のナカ、あったかくてウネウネしてる……」"
		CALL PRINT_STRW, @"「なんだかふわふわして、キュンってして、とってもきもちいい……っ_H_」"
		CALL PRINT_STRW, @"「%MPANT_K57(4+RAND:2, TARGET, "要")%」"
		CALL PRINT_STRW, @"「ちょ_H_ちょっとっ_H_いきなり腰をふらないでぇっ_H_」"
		CALL PRINT_STRW, @"「あっ_H_%CNAME("二人称")%のおまんこがっ_H_%PANT_K57(TARGET, "要", "通常")%ふわふわってしながらキュッ_H_キュッ_H_ってしぼりとってきてぅっ_H_」"
	;それ以外
	ELSE
		CALL PRINT_STRW, @"「あ…………_H_」"
		CALL PRINT_STRW, @"「……%CNAME("二人称")%のおまんこ、とろとろってしてるのにぴったりしてる……_H_」"
		CALL PRINT_STRW, @"「あったかくて、ふわふわで、なんだか溶けちゃいそう……_H_」"
		CALL PRINT_STRW, @"「……あ_H_ちょ、ま、まだ腰ふらないで……っ_H_」"
		CALL PRINT_STRW, @"「%MPANT_K57(3, TARGET, "要")%だめっ_H_だめだからぁっ_H_」"
		CALL PRINT_STRW, @"「あっ_H_ざらざらってしてるっ_H_おちんちんしょわしょわぁってしてくるっ_H_%PANT_K57(TARGET, "要", "通常")%」"
		CALL PRINT_STRW, @"「%MPANT_K57(5, TARGET, "要")%」"
		CALL PRINT_STRW, @"「わかんないっ_H_わかんなくなっちゃうっ_H_」"
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;正常位奉仕
;-------------------------------------------------
IF SELECTCOM == 120
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:相思相愛 && RAND:2
			SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「あ、%CNAME("二人称")%のおまんこヌルヌルってしてる……_H_」"
				CALL PRINT_STRW, @"「なんだか、おちんちんとおまんこで接吻しちゃってるみたい……_H_」"
			CASE 1
				CALL PRINT_STRW, @"「ねえ%CNAME("二人称")%、これって気持ちいい？　……フフ_H_気持ちよさそうでよかった_H_」"
			CASE 2
				CALL PRINT_STRW, @"「あ……_H_これヤバい……_H_」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%のおまんこがキュッキュッってなって、もっと好きになっちゃう……_H_」"
			CASE 3
				CALL PRINT_STRW, @"「%MPANT_K57(5, TARGET, "要")%」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%、やわらかくて、あったかくてぇ……っ_H_しあわしぇ……%PANT_K57(TARGET, "要", "通常")%」"
			CASE 4
				CALL PRINT_STRW, @"「フフ_H_%CNAME("二人称")%の顔、気持ちよさそう……_H_」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%がもっともーっと気持ちよくなれるように%CNAME("一人称")%がんばるねっ_H_」"
			ENDSELECT
		;それ以外
		ELSE
			SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「あっ_H_これダメっ_H_」"
				CALL PRINT_STRW, @"「おまんこの気持ちよさ知っちゃったらっ_H_戻れなくなるっ_H_」"
			CASE 1
				CALL PRINT_STRW, @"「%MPANT_K57(5+RAND:3, TARGET, "要")%」"
				CALL PRINT_STRW, @"「しょんなni↘_H_おまんこキツくしめないでぇっ_H_」"
			CASE 2
				CALL PRINT_STRW, @"「あっ_H_みにゃいでっ_H_」"
				CALL PRINT_STRW, @"「ぜったい今ヘンな顔しちゃってるっ_H_%PANT_K57(TARGET, "要", "通常")%気持ちよすぎてダメな顔しちゃってるぅっ_H_」"
			CASE 3
				CALL PRINT_STRW, @"「あっ_H_こしとまんないっ_H_」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%にせーしだしたくていっぱいぐちょぐちょしちゃうっ_H_」"
			CASE 4
				CALL PRINT_STRW, @"「あっ_H_そんなni↘_H_そんなにしないでっ_H_」"
				CALL PRINT_STRW, @"「いっぱいでちゃう_H_いっぱいせーしでちゃうからあぁっ_H_」"
			ENDSELECT
		ENDIF
	;それ以外
	ELSE
		CALL PRINT_STRW, @"「%MPANT_K57(3+RAND:3, TARGET, "要")%」"
		;恋慕
		IF TALENT:相思相愛 && RAND:2
			SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「%CNAME("二人称")%っ_H_好きっ_H_大好きっ_H_」"
			CASE 1
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%おまんこがうねうねってなって、止まらないぃっ_H_」"
			CASE 2
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%とエッチしてると、なんだか幸せな気分になる……_H_」"
			CASE 3
				CALL PRINT_STRW, @"「おまんこがおちんちんにぬるぬるってからみついて……_H_」"
				CALL PRINT_STRW, @"「このままだとどっちがどっちだかわかんなくなっちゃいそう……_H_」"
			CASE 4
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%%CNAME("二人称")%っ_H_接吻したいっ_H_」"
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%そこじゃっ_H_おまんこでじゃなくてぇっ_H_%PANT_K57(TARGET, "要", "通常", 3)%」"
			ENDSELECT
		;それ以外
		ELSE
			SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「すごいっ_H_あたまダメになるっ_H_」"
				CALL PRINT_STRW, @"「おまんことおちんちんのことしかかんがえられなくなっちゃうっ_H_」"
			CASE 1
				CALL PRINT_STRW, @"「%CNAME("二人称")%のおまんこっ_H_ぬるぬるってっ_H_」"
				CALL PRINT_STRW, @"「ふぁっ_H_ウラのほうそんなにヌメッ_H_でおまんこでしゃぶらないでぇっ_H_」"
			CASE 2
				CALL PRINT_STRW, @"「あっ_H_すごいっ_H_」"
				CALL PRINT_STRW, @"「奥に挿れるとずるずる_H_ってつつんできてっ_H_抜こうとするときゅんきゅん_H_ってすいついてきてぅっ_H_」"
				CALL PRINT_STRW, @"「かってni↘_H_かってにこしがうごいちゃうっ_H_」"
			CASE 3
				CALL PRINT_STRW, @"「あ…………_H_」"
				CALL PRINT_STRW, @"「ふわとろ……ってして……あ、ずっとこのまま……_H_」"
				CALL PRINT_STRW, @"「あっ_H_いきなりうごかないでぇっ_H_」"
			CASE 4
				CALL PRINT_STRW, @"「ああっ_H_そんなナカでざらざらっておちんちん舐めないでっ_H_」"
				CALL PRINT_STRW, @"「ふあっ_H_しゅごいっ_H_」"
			ENDSELECT
		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:相思相愛 && RAND:2
			SELECTCASE RAND:3
			CASE 0
				CALL PRINT_STRW, @"「あ……_H_%CNAME("二人称")%のおまんこ、きゅんきゅん_H_って……_H_」"
				CALL PRINT_STRW, @"「……ヘヘ_H_%CNAME("一人称")%も大好き……_H_」"
			CASE 1
				CALL PRINT_STRW, @"「%MPANT_K57(5, TARGET, "要")%それっ_H_それすきっ_H_」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%もぉっ_H_%CNAME("二人称")%のおまんこもっ_H_だいすきっ_H_だいすきぃっ_H_」"
			CASE 2
				CALL PRINT_STRW, @"「あっ、%CNAME("二人称")%のおまんこ、あったかくてふわふわしてて……_H_」"
				CALL PRINT_STRW, @"「ヘヘ_H_もうやったことあるのに、なんだかドキドキしちゃう……_H_」"
			ENDSELECT
		;それ以外
		ELSE
			SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「%MPANT_K57(5, TARGET, "要")%」"
				CALL PRINT_STRW, @"「そんなに腰振らないでっ_H_」"
			CASE 1
				CALL PRINT_STRW, @"「あっ_H_ダメェっ_H_」"
				CALL PRINT_STRW, @"「おまんこからゴチュゴチュってエッチな音してっ_H_気持ちよくておかしくなっちゃうっ_H_」"
			CASE 2
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 2+RAND:2)%おまんこがパクパクってなってっ_H_」"
				CALL PRINT_STRW, @"「すごいっ_H_おちんちんトロトロになってとけちゃいそうっ_H_」"
			CASE 3
				CALL PRINT_STRW, @"「あ、すごい音してる……_H_」"
				CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常")%ちょ、急に動かないで……っ_H_%MPANT_K57(5, TARGET, "要")%」"
			CASE 4
				CALL PRINT_STRW, @"「お、おちんちんすごいビチョビチョになってる……_H_」"
				CALL PRINT_STRW, @"「%CNAME("二人称")%のおまんこを出たり入ったりするたびにおまんこの汁がぬとーっ_H_ってへばりついてくるのが見えて……あっ_H_」"
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

;-------------------------------------------------
;鼻钩
;-------------------------------------------------
IF SELECTCOM == 132
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:鼻钩 == 0
		;余裕有
		IF CHECK("鼻钩")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("鼻钩")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

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

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

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

;-------------------------------------------------
;喝套内精液
;-------------------------------------------------
IF SELECTCOM == 147
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF ABL:精液中毒 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		IF ABL:精液中毒 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;穿环
;-------------------------------------------------
IF SELECTCOM == 148
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			;ＯＮフラグが付けた際のセリフです
			IF COND("陰蒂環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("陰唇環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("乳环フラグ")
				IF COND("穿環ＯＮフラグ")
					CALL PRINT_STRW, @"「……うぅ、穿環が擦れる……_H_」"
					IF CEVENT("乳頭の虜")
						CALL PRINT_STRW, @"「こんないっつも気持ちいい思いしてたら、授業に集中できなくなっちゃう……_H_」"
					ELSE
						CALL PRINT_STRW, @"「このままずっと付けてたらクセになっちゃいそうで怖い……_H_」"
					ENDIF
				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 「えー、これ着てエッチしてほしいのか？」
			PRINTFORMW 「いや、まあ別に恥ずかしい服とかじゃないしいいんだけどさ……」
			PRINTFORMW 「まあ、なんというか、%CNAME("一人称")%に新妻みたいなCosplayしてほしいって……まあ、うん」
			PRINTFORMW 「うん、%CNAME("二人称")%らしいと思うよ、ホントに」
		;それ以外
		ELSE
			PRINTFORMW 「ん？　これ、圍裙だよな。これ着てほしい？　別にいいけど……」
			PRINTFORMW 「……え、も、もしかして、これ着てエッチしたいってこと……！？」
		ENDIF
	;終了時
	ELSEIF TEQUIP:新妻PLAY == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			;たまーに乗り気
			IF RAND:25 == 0
				PRINTFORMW 「お、今日はなんか良い気分だし大丈夫だぞー」
				PRINTFORMW 「你ご飯にする？　お浴室にする？　それともワ・タ・シ？　……なんちゃって」
			ELSE
				SELECTCASE RAND:5
				CASE 0
					PRINTFORMW 「んー、またやってほしいんだな？」
					PRINTFORMW 「全然いいけど、……ホントーに%CNAME("二人称")%は変わらんないなぁ……」
				CASE 1
					PRINTFORMW 「え、またやるの……？」
				CASE 2
					PRINTFORMW 「いや、まあいいんだけどさ……」
				CASE 3
					PRINTFORMW 「うーん、%CNAME("二人称")%のこういうところさえなければなー……」
				CASE 4
					IF CEVENT("女装の虜")
						PRINTFORMW 「……これ、デザインは可爱んだけどなー……」
						PRINTFORMW 「こんなエッチなことに使わないなら持って帰りたいくらいなのに……」
					ELSE
						PRINTFORMW 「……ホントに、なんで%CNAME("一人称")%にこんなの着せたがるんだろう……」
					ENDIF
				ENDSELECT
			ENDIF
		;それ以外
		ELSE
			SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「いや、まあいいんだけどさ……」
			CASE 1
				IF CEVENT("女装の虜")
					PRINTFORMW 「……こんな可爱のをエッチなことに使っちゃうなんて、なんだか罪悪感が……」
				ELSE
					PRINTFORMW 「そもそもこれ、女の子用の圍裙だよな……？」
				ENDIF
			CASE 2
				PRINTFORMW 「え、ま、またやるの……？」
			CASE 3
				PRINTFORMW 「これ以上ヤバいことしないから安心はするんだけど……」
			CASE 4
				PRINTFORMW 「うーん、なんだかヘンなことしてる気がする……」
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;室内露出PLAY
;まだ仕様が決まってない
;-------------------------------------------------
IF SELECTCOM == 174
	RETURN 1
ENDIF
;-------------------------------------------------
;換装
;-------------------------------------------------
IF SELECTCOM == 175
	;服、贴身制服、泳装に着替えた時
	IF CHECK_COM("換装：服を着替えた")
		IF CHECK_CLO("自分の服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("衬衫")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女教師")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("和服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女仆装")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("体操服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("看護婦")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("旗袍")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("水手服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("巫女")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("情趣内衣")
			PRINTFORMW
		ELSEIF CHECK_CLO("比基尼姿")
			PRINTFORMW
		ELSEIF CHECK_BODYS("拘束衣")
			PRINTFORMW
		ELSEIF CHECK_BODYS("兔")
			PRINTFORMW
		;其他
		ELSE
			PRINTFORMW
		ENDIF
	;胸も股間も丸出し状態变成了時
	ELSEIF CHECK_COM("換装：裸体变成了")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;露出癖Lv3
		ELSEIF ABL:露出癖 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;胖次を変えたり脱いだり
	ELSEIF CHECK_COM("換装：胖次")
		IF EQUIP:胖次
			PRINTFORMW
		;没穿内褲です
		ELSE
			PRINTFORMW
		ENDIF
	;以下は面倒ならELSE でひとまとめでも良いでしょう
	ELSEIF CHECK_COM("換装：外套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：胸罩")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：手套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：襪子")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：靴")
		PRINTFORMW
	;飾品の付け替えや其他
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;被逆推
;-------------------------------------------------
IF SELECTCOM == 176
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;潤滑液使用
;-------------------------------------------------
IF SELECTCOM == 260
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;媚薬使用
;-------------------------------------------------
IF SELECTCOM == 261
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「え！？　な、なんか……体が……」
		CALL PRINT_STRW, @"「そ、その、なんていうか……躁动难忍、しちゃうというか……_H_」"
		PRINTFORMW 「こ、これ、大丈夫だよな！？　変なこととか、起きないよな……？」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;利尿剤
;-------------------------------------------------
IF SELECTCOM == 262
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;排卵誘発剤
;-------------------------------------------------
IF SELECTCOM == 264
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;筋弛緩剤
;-------------------------------------------------
IF SELECTCOM == 267
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

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

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

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

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

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K57, 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
		CALL PRINT_STRW, @"「%PANT_K57(TARGET, "要", "通常", 4)%」"
		CALL PRINT_STRW, @"「呀~_H_不要啊~_H_」"
		CALL PRINT_STRW, @"「要来了~_H_要在%CNAME("二人称")%的面前射精了~_H_」"
	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_K57, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

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

;-------------------------------------------------
;TARGETの射精直前の口上
;-------------------------------------------------
@KOJO_MESSAGE_BEFORE_TARGETSHOOT_K57

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

;恋慕
IF TALENT:恋慕 || CFLAG:メス堕ち度 >= 2 || CEVENT("精液の虜")
	PRINTFORMW 「哦、马上要去了吗？」
	SELECTCASE KABURAND(10)
	CASE 0
		CALL PRINT_STRW, @"「告诉我想射在哪里。我会努力让你射在那里的~_H_」"
	CASE 1
		CALL PRINT_STRW, @"「姆~呼~呼~、%CNAME("二人称")%的精液、很期待的哦~_H_」"
	CASE 2
		CALL PRINT_STRW, @"「撒谎也没有用哦~、%CNAME("一人称")%也长着哦~_H_」"
	CASE 3
		CALL PRINT_STRW, @"「hola、忍耐汁咕哩咕哩的、发出很厉害的声音了哦~_H_」"
	CASE 4
		CALL PRINT_STRW, @"「就算因为%CNAME("二人称")%的错才喜欢上这样的……責任、会好好负起的吧_H_」"
	CASE 5
		CALL PRINT_STRW, @"「看吧、血管涨的很厉害了_H_」"
	CASE 6
		CALL PRINT_STRW, @"「哦、出来了些白色的了呢……差不多了吧~_H_」"
	CASE 7
		CALL PRINT_STRW, @"「%CNAME("一人称")%和你都是长着鸡鸡的人啦、不用客气尽管射出来吧~_H_」"
	CASE 8
		CALL PRINT_STRW, @"「holahola、加油~、加油~……什么的~_H_」"
	CASE 9
		CALL PRINT_STRW, @"「hola、也为了放学后、前辈也快射出大人的精液来啊~_H_」"
	ENDSELECT
;それ以外
ELSE
	;思いつかない+角色的にまだ乗り気じゃなさそうなので、ここで就这様放着
	SELECTCASE RAND:10
	CASE 0
		PRINTFORMW 「诶、已经快要去了……讲真？」
	CASE 1
		PRINTFORMW 「诶、等下、那、那个……」
	CASE 2
		PRINTFORMW 「呜诶……快点啊……」
	CASE 3
		PRINTFORMW 「……哇啊、啊真是的、我知道了啦」
	CASEELSE
	ENDSELECT
ENDIF

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

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

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

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW
	;鼻钩時専用です。人を選びすぎるので基本的には書かなくて良いと思われます
	ELSEIF SHOOT("鼻の穴")
		;初めて
		IF FIRST_EV("絶頂：ぶっかけ鼻の穴") == 0
			PRINTFORMW
		;鼻の穴に出され慣れて平気变成了
		ELSEIF CHECK("鼻射")
			PRINTFORMW
		;鼻钩自体は受け入れているが苦痛
		ELSEIF CHECK("鼻钩")
			PRINTFORMW
		;全面的につらい
		ELSE
			PRINTFORMW
		ENDIF
	;超大量射精
	ELSEIF COND("絶頂", PLAYER) >= 3
		PRINTFORMW
	;大量射精
	ELSEIF COND("絶頂", PLAYER) == 2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰")
	PRINTFORMW

;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた
;-------------------------------------------------
ELSEIF SHOOT("脚")
	;初めて
	IF FIRST_EV("絶頂：脚") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ELSEIF SHOOT("素股")
	PRINTFORMW
;-------------------------------------------------
;口で射精させた
;-------------------------------------------------
ELSEIF SHOOT("口")
	;初めて
	IF FIRST_EV("絶頂：口") == 0
		CALL PRINT_STRW, @"「あ……_H_くちのなかにせいえいがぁ……%PANT_K57(TARGET, "要", "通常")%」"
	;精液中毒Lv5
	ELSEIF ABL:精液中毒 >= 5
		CALL PRINT_STRW, @"「ん……_H_ふふっ、佳肴大人_H_」"
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		CALL PRINT_STRW, @"「%CNAME("二人称")%の精液……興奮する……_H_」"
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW 「んっ！？　……ちょ、ちょっと待っててよ……」
	;それ以外
	ELSE
		PRINTFORMW 「うげぇ、にがい……」
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;性交で射精させた
;-------------------------------------------------
ELSEIF SHOOT("Ｖ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ｖ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
ELSEIF SHOOT("Ａ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ａ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
ELSEIF SHOOT("接吻")
	PRINTFORMW
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗")
	PRINTFORMW
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶")
	PRINTFORMW
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
ELSEIF SHOOT("逆舐陰")
	PRINTFORMW
;-------------------------------------------------
;逆肛交、逆強姦で射精
;-------------------------------------------------
ELSEIF SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")
	PRINTFORMW
;-------------------------------------------------
;PLAYERが女で、イってしまった…
;-------------------------------------------------
ELSEIF SHOOT("調教者が女性")
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2
		PRINTFORMW
	;絶頂
	ELSEIF COND("絶頂", PLAYER) == 1
		PRINTFORMW
	ENDIF
ENDIF

;-------------------------------------------------
;角色が調教中に調教者を攻める際などの口上
;-------------------------------------------------
@KOJO_COUNTER_K57, ARGS
SELECTCASE ARGS
CASE "绝顶忍耐"
	;partnerに焦らされている
	IF TEQUIP:推倒
		CALL PRINT_STRW, @"「哼~哼~哼~_H_%CNAME("二人称")%、一脸很舒服的样子呢_H_」"
		CALL PRINT_STRW, @"「会更多更多地、让你舒服起来的~_H_」"
	;PLAYERが绝顶忍耐
	ELSE
		;今回がこらえた初回
		IF EX:PLAYER:绝顶忍耐 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "恍惚"
	PRINTFORMW
CASE "推倒"
	PRINTFORMW
CASE "強制終了"
	PRINTFORMW 「啊咧~、难道说我做的太过分了……？」
	PRINTFORMW 「等等、对不起、%CNAME("二人称")%」
	;ふざけてるのでたまににする
	SIF RAND:5 == 0
		PRINTFORMW 「……%CNAME("二人称")%？　%CNAME("二人称")%ーーーーー！！！」
CASE "復活"
	PRINTFORMW
CASE "恍惚から復帰"
	PRINTFORMW
CASE "助手が限界"
	PRINTFORMW
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;ARGSの各CASEでの分岐において、ARGSの文字列後半に ：地の文前 を追加する事で地の文前に喋らせることもできる。
;また、そこでTFLAG:地の文スキップ = 1 とすると、本来出て来る地の文を飛ばすこともできる
;CASE "中出し後害羞"の地の文の前に喋らせたりスキップさせたい場合にはCASE "中出し後害羞：地の文前"を用意すればよい
;例）CASE "中出し後害羞：地の文前"
;		PRINTW 試しにスキップ
;		TFLAG:地の文スキップ = 1
;-------------------------------------------------
@KOJO_EVENT_K57, ARGS
SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
CASE "Ｖ避孕套装着"
	;挿入指令
	IF TRAIN_GENRE("挿入", SELECTCOM)
		;PLAYヤーは着ける気満々
		IF TEQUIP:PLAYER:避孕套

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

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

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

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

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

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

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

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

	ELSE

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

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

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
CASE "清洁口交"
	SELECTCASE TFLAG:口上分岐
	;お掃除前
	CASE 0
		PRINTFORMW
	;お掃除中
	CASE 1
		PRINTFORMW
	;お掃除で射精しなかった
	CASE 2
		PRINTFORMW
	;お掃除で射精しそう？
	CASE 3
		PRINTFORMW
	;射精した
	CASE 4
		PRINTFORMW
	;お掃除で射精後
	CASE 5
		PRINTFORMW
	ENDSELECT
;-------------------------------------------------
;脱衣
;-------------------------------------------------
CASE "自発脱ぎ"
	;裸体变成了
	IF CHECK_CLO("裸体")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;阴部剥きだし
	ELSEIF CHECK_CLO("Ｖ露出")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;部分脱ぎ
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;妊娠した
;----------------------------------------------------------------
CASE "妊娠発覚"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	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:恋慕 && RAND:2
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「は、恥ずかしいけど、その、見て欲しい……_H_」"
			CASE 1
				CALL PRINT_STRW, @"「うぅ……なんだかうずうずしちゃう……_H_」"
			CASE 2
				PRINTFORMW 「こんなの見て欲しいなんて、絶対おかしいはずなのに……」
				PRINTFORMW 「……%CNAME("一人称")%、ヘン領帯になっちゃったのかなぁ……」
			CASE 3
				PRINTFORMW 「诶诶……」
				PRINTFORMW 「……%CNAME("二人称", "どもり")%相手だからやってるんだからな！」
			CASE 4
				PRINTFORMW 「こ、こんなの絶対ヘンで、普通じゃなくて……」
				CALL PRINT_STRW, @"「……なのに、なんでかドキドキしちゃう……_H_」"
			ENDSELECT
		ENDIF
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	SELECTCASE RAND:5
	CASE 0
		CALL PRINT_STRW, @"「ちょ、み、見ないでぇ……_H_」"
	CASE 1
		PRINTFORMW 「……はっ！」
		PRINTFORMW 「こ、これはダメだ！」
	CASE 2
		CALL PRINT_STRW, @"「ちょ、ちょっと、ホントにこれ恥ずかしいから……_／／／_」"
	CASE 3
		PRINTFORMW 「……%CNAME("二人称")%のド変態」
	CASE 4
		PRINTFORMW 「い、いや、男性の尻から精液出てるの見ても気持ち悪いだけだろ……」
	ENDSELECT
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;この分岐には絶頂していない場合にのみ来ます
;----------------------------------------------------------------
CASE "中出し後挿入解除"
	PRINTFORMW
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
CASE "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;----------------------------------------------------------------
;塞子をしていない状態での液体浣腸口上。BASE:排泄物 が溜まっている物の量
;----------------------------------------------------------------
CASE "无塞浣腸事件"
	;限界値突破時
	IF BASE:排泄欲 >= 10000
		;限界値を超えたが漏らせない場合
		IF INSERT("Ａ挿入") || COND("肛門栓")
			PRINTFORMW
		;漏らす直前
		ELSE
			PRINTFORMW
		ENDIF
	;漏らした
	ELSEIF NOWEX:排泄
		;脱糞した場合。NOWEX:排泄量の値が出たものの量である
		IF NOWEX:排泄量
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;我慢しているときの口上
	ELSEIF TEQUIP:浣腸
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;吸能
;----------------------------------------------------------------
CASE "吸能"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;調教者がちんこを挿入する前に射精してしまった！
;----------------------------------------------------------------
CASE "挿入前暴発"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;特殊な道具を使った際の台詞
;----------------------------------------------------------------
CASE "避妊の護符"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		;装着
		IF TALENT:避妊の護符
			PRINTFORMW
		;取り外し
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:避妊の護符
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

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

ENDSELECT

;-------------------------------------------------
;TARGET以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@KOJO_GUEST_K57, ARGS
#DIM ACTOR
SELECTCASE ARGS
CASE "調教相手に選ばれた"
	IF AIZOU()
		PRINTFORMW 「…………」
	ELSEIF TALENT:相思相愛
		PRINTFORMW 「今度は%CNAME("一人称")%なんだな！」
		CALL PRINT_STRW, @"「……いっぱい気持ちよくしてよ_H_」"
	ELSEIF CFLAG:メス堕ち度 >= 3
		PRINTFORMW 「よ、よろしく……」
		CALL PRINT_STRW, @"「……その、ちょっとクセになっちゃって……_H_」"
	ELSEIF CEVENT("調教開始：初調教") == 0
		PRINTFORMW 「ん？　なんだ%CNAME("二人称")%」
		PRINTFORMW 「一緒にいればいいのか？　いいぞー」
	ELSE
		PRINTFORMW 「え、えっと、その……%CNAME("一人称")%？」
		CALL PRINT_STRW, @"「我、我知道啦……_H_」"
	ENDIF
CASE "助手に抜擢"
	;初めて
	IF EXP:助手経験 == 0
		PRINTFORMW 「え、えっと、%CNAME("一人称")%と一緒にエッチなことをすればいいのか？」
		PRINTFORMW 「な、なんていうか、こう、ドキドキしちゃうな。……いろんな意味で」
	ELSE

	ENDIF

CASE "助手：主人に清洁口交"

CASE "助手：partnerに清洁舔阴"

CASE "助手：partnerに清洁舔A"

CASE "助手：主人にＰ恥垢清洁口交"

CASE "助手：撮影開始"

CASE "助手：調教開始前の準備後台詞"
	ACTOR = FLAG:調教開始時の対象
	IF TALENT:淫乱
		PRINTFORMW 「……%CNAME("二人称")%、まだ準備中だぞ？　そんなに元気にしてもどうしようもないって」
		PRINTFORMW 「ほら、もう終わったよ。%CNAME("partner")%も痛かったら遠慮なく言っていいからね？」
		PRINTFORMW 「……それと%CNAME("二人称")%。これが終わったら、後で%CNAME("一人称")%にもしてよ？」
	ELSEIF CALLNAME:ACTOR == "莉" && TALENT:相思相愛 == 0
		PRINTFORMW 「え、%CNAME("partner", "どもり")%……！？」
		PRINTFORMW 「…………そ、そうだよな。こんな部なんだから%CNAME("partner")%だってそういうことくらいするよな……」
		PRINTFORMW 「うん……で、出来るだけ嫌じゃないように頑張る」
	ELSE
		CALL PRINT_STRW, @"「う……そ、それじゃ、……その、痛かったら言って……_／／／_」"
	ENDIF
CASE "室内調教：登場台詞"

CASE "室内調教：ギャラリー増加台詞"
	IF RAND:2
		CALL PRINT_STRW, @"「ちょ、な、なにやって……_H_」"
	ELSE
		PRINTFORMW 「………………ふぇ？」
	ENDIF
CASE "室内調教：感想台詞"

CASE "助手で性処理：おあずけ"

CASE "助手で性処理"

CASE "助手で性処理：事後"

;COND("精液の優勢")で誰の兒童を孕んでしまったかを判定できます
;名前を出したい時には%COND("精液の優勢")%を用いてください
CASE "受精確認"

ENDSELECT

;-------------------------------------------------
;この角色に特殊なイベントを叫醒際の追加条件を設定できます（特に設定しない場合には丸々不要です）
;STR:実行条件 に文字列が入っている場合は、それを表示しつつイベント発生不可能とします(PRINT_STRの書式です)
;条件を満たしている際にはSTR:実行条件 に何も入れないようにして下さい
;-------------------------------------------------
@ADDCOND_K57(ARGS)
#DIM ACTOR
ACTOR = FINDCHARA(NO, 57)

SELECTCASE ARGS
;CASE "勧誘"のみ、角色としてはまだ存在していないのに注意
CASE "勧誘"
	;例）卯月佑香の場合の記述
	;SIF TALENT:MASTER:男性 && TRUE_SEX(MASTER) == "男性" && TALENT:MASTER:伪娘 == 0 && ABL:MASTER:技巧 >= 3
	;	RETURN 1
	;STR:実行条件 = ※%CSVNAME(57)%は_黄色_%CALLNAME:MASTER%が男性(not伪娘)＆技巧がLv3以上の時のみ_勧誘できます※
CASE "恋慕"
	;デフォだと信頼5LV＆好感度が2500以上で恋慕
	IF TALENT:ACTOR:恋慕 == 0 && ABL:ACTOR:信頼 >= 5 && CFLAG:ACTOR:好感度 >= 2500
		SIF TALENT:MASTER:男性 == 0 || TALENT:MASTER:伪娘 || CFLAG:ACTOR:メス堕ち度 >= 3
			RETURN 1
	ENDIF
	STR:実行条件 = 要:信頼5LV、好感度2500。%CALLNAME:MASTER%が男性で有、なおかつ伪娘でなければ、それに加えて%CALLNAME:ACTOR%をさらに調教する必要有
CASE "淫乱"
	;デフォだと欲望が5以上、自慰中毒or精液中毒のどれかが3以上、今回の絶頂数が10以上で淫乱
	;SIF TALENT:ACTOR:淫乱 == 0 && ABL:ACTOR:欲望 >= 5 && MAX(ABL:ACTOR:自慰中毒, ABL:ACTOR:精液中毒) >= 3 && EX:ACTOR:絶頂数合計 >= 10
	;	RETURN 1
	;STR:実行条件 = 要:欲望5LV、自慰中毒か精液中毒のどちらかが3LV、今回の絶頂数10
CASE "相思相愛"
	;例）小早川百合香の場合の記述
	IF AIZOU(ACTOR) == 0 && TALENT:ACTOR:恋慕
		RETURN 1
	ELSEIF ABL:ACTOR:信頼 >= 8 && CFLAG:ACTOR:好感度 >= 4000 && MARK:ACTOR:屈服刻印 >= 3
		RETURN 1
	ENDIF
	STR:実行条件 = イエロー_（※%CALLNAME:ACTOR%にさらに好きになってもらわなければ、%CALLNAME:ACTOR%と[相思相愛]にはなれません）
CASE "淫紋贴纸"
	;デフォだと[欲望LV3]or[屈服刻印LV1]
	;SIF MARK:ACTOR:淫紋 == 0 && (ABL:ACTOR:欲望 >= 3 || MARK:ACTOR:屈服刻印)
	;	RETURN 1
	;STR:実行条件 = イエロー_(※淫紋を受け入れてもらうには、[欲望LV3]or[屈服刻印LV1]の必要が有ます)
CASE "淫紋"
	;デフォだと[淫乱]or[受虐属性LV3]or[屈服刻印LV3]
	;SIF TALENT:ACTOR:淫乱 || ABL:ACTOR:受虐属性 >= 3 || MARK:ACTOR:屈服刻印 >= 3
	;	RETURN 1
	;STR:実行条件 = イエロー_(※刻印を受け入れてもらうには、[淫乱]or[屈服刻印LV3]or[受虐属性LV3]の必要が有ます)
CASE "避妊の護符の解除"
	;例）風花維吹の場合の記述
	;維吹は[相思相愛]まで避妊の護符を解除しない
	;SIF TALENT:ACTOR:相思相愛
	;	RETURN 1
	;STR:実行条件 = イエロー_※維吹は[相思相愛]になるまで避妊の護符を破棄しません
ENDSELECT

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

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

;ENDを選択する際の表示。下で満たしたEND条件に応じて全角21文字以内で好きに変えて良い
STR:ＥＮＤ标题 = エンディングを迎える

;魂の量によるEND
IF (DEVENT("うち的家族") && COND("在籍日数") >= 3 && ABL:信頼 >= 3) || CEVENT("昼と夜")
	;ENDの番号_END名 となっている
	;番号は1～60の範囲(でもできれば１から順に詰めて使用)の半角数字で、ＥＮＤ名は喜欢的东西に変更してください
	IF CEVENT("昼と夜") == 0
		STR:エンディング += "1_昼と夜（同居が解禁されるイベントです）/"
	ELSE
		STR:エンディング += "1_昼と夜/"
	ENDIF
ENDIF
;其他の条件(例えば淫乱)によるEND
SIF (COND("種族：吸血鬼") && DAY - CFLAG:吸血鬼变成了日 >= 8) || CEVENT("極夜の和解")
	STR:エンディング += "2_極夜の和解/"
;魂の量と其他の条件(例えば相思相愛)によるEND
SIF (CFLAG:メス堕ち度 >= 2 && CFLAG:好感度 >= 1000) || CEVENT("女装教習")
	STR:エンディング += "3_女装教習/"

IF CONFIG("路人Ｈ") && CNUM("莉")
	ACTOR = FIND_NO("莉")

	SIF (TALENT:ACTOR:恋慕 && TALENT:恋慕 == 0) || CEVENT("『のぞき』見")
		STR:エンディング += "4_『のぞき』見/"
ENDIF

;閲覧していないイベントがある場合などに選択肢と色を変える事も出来る。これ以外でも好きな条件で変えて良い
;IF COND("未読ＥＮＤ選択可能")
;	STR:ＥＮＤ标题 = エンディングを迎える
;	;これを指定しない場合には本体側で STR:ＥＮＤカラー = 爱心粉紅 となる
;	STR:ＥＮＤカラー = 爱心粉紅
;ENDIF

RETURN 1

;ARGSには@MENU_SINGLE_ENDING_K1で設定したEND名のどれかが入っている
;見たENDはCEVENTで記録される
;例）ＥＮＤ名１を閲覧した場合は CEVENT("ＥＮＤ名１") = 1 となる
@SINGLE_ENDING_K57, ARGS
SELECTCASE ARGS
;遥君が吸血鬼になるフラグのイベント
CASE "昼と夜", "昼と夜（同居が解禁されるイベントです）"
	CALL K57_LONG, "昼と夜"
	CALL SET_CEVENT, "昼と夜"
CASE "極夜の和解"
	CALL K57_LONG, "極夜の和解"
CASE "女装教習"
	CALL K57_LONG, "女装教習"
CASE "『のぞき』見"
	CALL K57_LONG, "『のぞき』見", FIND_NO("莉")
ENDSELECT
RETURN 1

path: ERB/EVENT_K/57 遥/EVENT_K57_遥.ERB