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

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

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

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

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

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

;７：あとはERBファイルに書けば書くだけ喋るようになります
;裏話
;式神と性交して妊娠した初代から呪いみたいな感じに女性しか生まれない家系
;初代が獣姦妊娠とアブノーマルな性癖も遺伝してどの娘も何かしらアブノーマルな性癖を持って生まれている
;-------------------------------------------------
;呼び名の設定。"_"の右にふりがなを書く。
;-------------------------------------------------
@CNAME_K7, ARGS
#FUNCTIONS
#DIM ACTOR

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 僕_僕
CASE "二人称"
	ACTOR = PLAYER

	;相手が主人
	IF ACTOR == MASTER
		IF CEVENT("妹哈娜")
			LOCALS = 尼酱_尼酱
		ELSE
			LOCALS = 前輩_前輩
		ENDIF
	;相手が主人ではない
	ELSE
		SELECTCASE CSTR:ACTOR:称号
		CASE "実母"
			LOCALS = 母亲大人_母亲大人
		CASEELSE
			SELECTCASE CSTR:ACTOR:学年
			CASE "１年生", "初等部", "中等部"
				IF TALENT:ACTOR:男性
					LOCALS = %CALLNAME:ACTOR%君_%CSTR:ACTOR:ふりがな%君
				ELSE
					LOCALS = %CALLNAME:ACTOR%酱_%CSTR:ACTOR:ふりがな%酱
				ENDIF
			CASE "２年生", "３年生", "研究生"
				LOCALS = %CALLNAME:ACTOR%前輩_%CSTR:ACTOR:ふりがな%前輩
			CASEELSE
				IF COND("教員", ACTOR)
					LOCALS = 老师_老师
				ELSE
					IF TALENT:ACTOR:男性
						LOCALS = %CALLNAME:ACTOR%君_%CSTR:ACTOR:ふりがな%君
					ELSE
						LOCALS = %CALLNAME:ACTOR%酱_%CSTR:ACTOR:ふりがな%酱
					ENDIF
				ENDIF
			ENDSELECT
		ENDSELECT
	ENDIF
CASE "主人"
	LOCALS = 前輩_前輩
CASE "助手"
	ACTOR = ASSI

	SELECTCASE CSTR:ACTOR:学年
	CASE "１年生", "初等部", "中等部"
		IF TALENT:ACTOR:男性
			LOCALS = %CALLNAME:ACTOR%君_%CSTR:ACTOR:ふりがな%君
		ELSE
			LOCALS = %CALLNAME:ACTOR%酱_%CSTR:ACTOR:ふりがな%酱
		ENDIF
	CASE "２年生", "３年生", "研究生"
		LOCALS = %CALLNAME:ACTOR%前輩_%CSTR:ACTOR:ふりがな%前輩
	CASEELSE
		IF COND("教員", ACTOR)
			LOCALS = %CALLNAME:ACTOR%老师_%CSTR:ACTOR:ふりがな%老师
		ELSE
			IF TALENT:ACTOR:男性
				LOCALS = %CALLNAME:ACTOR%君_%CSTR:ACTOR:ふりがな%君
			ELSE
				LOCALS = %CALLNAME:ACTOR%酱_%CSTR:ACTOR:ふりがな%酱
			ENDIF
		ENDIF
	ENDSELECT
ENDSELECT
RETURNF LOCALS

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

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = 继承了人狼之血的元気的僕娘（译注：僕是日语里年轻男性的自称）
	STR:2 = 按理说应该是狼、不过同学们都感觉像是条柴犬

;ここの中に限り、CFLAG,BASE,TALENT,ABL,EXP,CSTRをCSVに書いたものから変更させることが出来ます
;例えばBASE:体力を2000にしたいなら BASE:0:体力 = 2000 、強気にさせたいなら TALENT:0:強気 = 1 として下さい
;また、ABL:信頼を+2させたい場合には ABL:0:信頼 = ABL:信頼 + 2 と書いてください
CASE "勧誘"
;	PRINTFORML - 系统信息 -
;
;	PRINTFORML   [0]後輩モード（呼び方が『前輩』になります）
;	PRINTFORML   [1]異母兄弟モード（呼び方が『尼酱』、初めから式神になります）
;	CALL INPUT_SELECT, 2
;	IF RESULT == 0
;		PRINTFORMW 後輩モードを選択しました

		PRINTFORML - %NAME:TARGET% -
		PRINTFORMW 「嗯、怎么了啊%CNAME("二人称")%？」
		PRINTFORMW 「死不掉的人类…？什么啊%CNAME("二人称")%、死不掉是什么意思啊！！」
		PRINTFORMW %CALLNAME:TARGET%像是发现了什么不可思議的东西一样咬住不放

;	ELSE
;		PRINTFORMW 異母兄妹モードを選択しました
;		CSTR:0:種族 += "_式神"
;		PRINTFORML - %NAME:TARGET% -
;		PRINTFORML 「へっへっへー、遂に%CNAME("二人称")%見つけたっ！」
;		PRINTFORML 「長かった、ホントーに長かった…　%CNAME("一人称")%の名前は%CALLNAME:TARGET%！%CNAME("二人称")%のいもーとの%CALLNAME:TARGET%だよ！」
;		PRINTFORMW %CALLNAME:MASTER%は不意に投げかけられた言葉に面食らってしまった
;		PRINTFORML 「聞くも涙、語るも涙！%CNAME("一人称")%の%CNAME("二人称")%探しの旅っ！」
;		PRINTFORML %CALLNAME:TARGET%の話を詳しく聞いてみたところ、%CALLNAME:MASTER%とは腹違いの妹という事
;		PRINTFORMW %CALLNAME:TARGET%が式神の末裔で有人狼の血を引いていると言う事
;		PRINTFORML 小小的頃に%CALLNAME:MASTER%という兄が居ると知り、所在を見つけこの学園へ入学するため努力したという事
;		PRINTFORML 「と、言うことでーこれからよろしくね！%CNAME("二人称")%！！」
;		PRINTFORMW %CALLNAME:TARGET%は満面の笑顔を%CALLNAME:MASTER%へ向けている
;		PRINTFORML 「ところで…　%CNAME("二人称")%の入ってる部活って何やってるの？」
;		PRINTFORMW %CALLNAME:MASTER%は一応オ胸罩ートに包みつつ部活の説明を%CALLNAME:TARGET%へしてやる
;		PRINTFORML 「ほへー…　つまり%CNAME("二人称")%とえっちな事すると…」
;		PRINTFORML 「べ、別に…　いーよ…？　魂もらえるみたいだし…」
;		PRINTFORMW %CALLNAME:TARGET%は顔を赤くしながらも『こくり』と頷いた…
;	ENDIF

CASE "勧誘直後"
	SIF COND("種族：式神")
		CALL SET_CEVENT, "妹哈娜"
ENDSELECT

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

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

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	PRINTFORMW 「喂、%CNAME("二人称")%为什么要脱衣服！！」
	PRINTFORMW %CALLNAME:MASTER%说出了%CALLNAME:TARGET%旁边的这个女学生是吞喰魂的悪魔、以及与这个悪魔签订了契約的事情
	PRINTFORMW 包括%CALLNAME:MASTER%的魂就算受了傷也可以回復的事情
	PRINTFORMW 顺便还加上了只要吞喰魂就能变強的事…
	PRINTFORMW 「唔——、的確是%CNAME("一人称")%很在意所以上来搭的话…嗯——…
	PRINTFORMW 処、処女是要留给最重要的人的、所以……不过除此之外的话…　除此之外的事情倒也不是不可以…」

	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
ELSEIF CEVENT("乳頭奸") == 0 && CONFIG("乳頭奸") && TALENT:淫乳
	PRINTFORML 「%CNAME("二人称", "どもり")%、きょ、今日は何するんスかね…？　で、できればでいーんで%CNAME("一人称")%の%TEXTR("胸部/胸")%とか…」
	PRINTFORMW %CALLNAME:TARGET%は珍しく%CALLNAME:MASTER%に今日の内容を尋ねながら胸を見せ付けてくる
	CALL PRINT_STR, @"「え、えへへ_H_　%CNAME("一人称", "どもり")%こんなことも…　できるっス…　んんんっ_H_」_L"
	PRINTFORMW 乳頭の付けた覚えの無い飾りを%CALLNAME:TARGET%が一気に引っ張ると中からは小小的ビーズがずるずると飛び出てきた…
	CALL PRINT_STR, @"「%CNAME("一人称")%の%TEXTR("胸部/胸")%で…　%CNAME("二人称")%のちんちん食べちゃうっス_H_」_L"
	PRINTFORML 我慢できなくなってしまった%CALLNAME:TARGET%はぽっかりと口を空けた乳頭に指を突き刺し自慰を始めてしまった
	PRINTFORMW 自慰経験 + 1
	EXP:自慰経験 += 1
	CALL SET_CEVENT, "乳頭奸"
ELSEIF COND("発情期") && CEVENT("調教開始：発情中") == 0
	CALL PRINT_STR, @"「%CNAME("二人称")%…　%CNAME("一人称")%、%CNAME("一人称")%…　子作り、子作りしましょ…%CNAME("二人称")%_H_」_L"
	PRINTFORMW %CALLNAME:TARGET%は発情期で理性の効かない様子で%CALLNAME:MASTER%に詰め寄ってきた…
	CALL SET_GOUI, "危険日生性交", TARGET
	CALL SETFLAG, "Ｖ生挿入許可"
	CALL SET_CEVENT, "調教開始：発情中"
	CALL SET_CEVENT, "発情イベント中"
ELSEIF CEVENT("强行") && CEVENT("强行イベント") == 0
	PRINTFORML 「も、もー良いっスよ…　ダメって言ったのに%CNAME("二人称")%が强行ヤったことは…
	PRINTFORMW %CNAME("一人称", "どもり")%は温柔っスからね」
	CALL DEL_GOUI, "危険日生性交", TARGET
	CALL SET_CEVENT, "强行イベント"
ELSEIF CEVENT("発情破瓜") && CEVENT("発情破瓜イベント") == 0
	PRINTFORML 「あー、うん…　いや、%CNAME("二人称")%は悪く無いっスよ？　ただ%CNAME("一人称")%が我慢できなかっただけっスから…
	CALL PRINT_STR, @"ま、またヤるっスよね　温柔的して…　欲しいっス_H_」_W"
	CALL SET_CEVENT, "発情破瓜イベント"
ELSEIF TALENT:処女 == 0 && TALENT:恋慕 == 0 && CEVENT("恋慕无処女喪失") == 0
	PRINTFORML 「むー…　あー…　な、流されてシちゃったっスね…　んー…　考えてても仕方ないし　%CNAME("二人称")%もまたシたいっスよね？」
	PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%に聞こえるか聞こえないかの声量で『%CNAME("一人称")%も…』と呟いたように見えた
;屈服刻印Lv1
;ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
;	PRINTFORMW
;	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
;ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
;	PRINTFORMW
;	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
;ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
;	PRINTFORMW
;	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0 && TALENT:処女
	IF TALENT:処女 == 0

	ELSE
		PRINTFORML 「%CNAME("二人称", "どもり")%なら別に処女とかそんなのとか…」
		PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながらごにょごにょと口ごもっている
		PRINTFORMW 「だっ、だから　%CNAME("一人称")%の処女…　奪って…
		PRINTFORMW
		PRINTFORMW
		PRINTFORMW 欲しいっス…」
		PRINTFORMW %CALLNAME:TARGET%はその一言で顔はますます赤くなり、尾巴を振るのはもう止まらない

		CALL SET_CEVENT, "調教開始：恋慕"
	ENDIF
;相思相愛
;ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
;	PRINTFORMW

;	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無を格子（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K7_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 K7_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K7_KOJO2
CALL DEL_CEVENT, "寝坊没穿内褲"
;開始時身嗜み拡張言及
IF COND("身嗜み：尿道拡張") || COND("身嗜み：Ｖ拡張") || COND("身嗜み：Ａ拡張")
	IF RAND:3 == 0
		PRINTFORM 「い、今準備するっスからね、
	ELSEIF RAND:3
		PRINTFORM 「ちょ、ちょっと待って欲しいっス…
	ELSE
		PRINTFORM 「%CNAME("二人称")%の言うとおり
		CALL SET_CEVENT, "おもちゃ装備"
	ENDIF

	CFLAG:随机 = RAND:5

	PRINTFORM んんっ…
	IF CFLAG:随机 == 5 && COND("身嗜み：尿道拡張")
		PRINTFORM %TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%
	ELSEIF CFLAG:随机 == 4 && COND("身嗜み：Ｖ拡張")
		PRINTFORM %TEXTR("まんこ/おまんこ/おだいじ")%
	ELSEIF CFLAG:随机 == 3 && COND("身嗜み：Ａ拡張")
		PRINTFORM %TEXTR("おしり/お尻/ちょくちょー/直腸")%
	ELSE
		PRINTFORM おもちゃ
		CALL SET_CEVENT, "おもちゃ装備２"
	ENDIF

	IF CEVENT("おもちゃ装備")
		PRINTFORMW に酱と入れてるっスよ…」
	ELSEIF CEVENT("おもちゃ装備２")
		PRINTFORMW で拡がっちゃったっス…」
	ELSEIF RAND:3
		PRINTFORMW じんじんする…」
	ELSEIF RAND:3 == 0
		PRINTFORMW ぴりぴりするっス…」
	ELSE
		PRINTFORMW 準備万端っスよ…？」
	ENDIF
	CALL DEL_CEVENT, "おもちゃ装備"
	CALL DEL_CEVENT, "おもちゃ装備２"
ENDIF

;恋慕
IF TALENT:恋慕
	IF COND("発情期")
		CALL PRINT_STR, @"「%CNAME("二人称")%、%CNAME("一人称")%今日はデきちゃうかも知れないっス…_H_」_W"
	ELSE
		PRINTFORM 「えへへ、%CNAME("二人称")%今日は%CNAME("一人称")%の
			IF TALENT:淫壷
				IF EXP:子宮姦経験 > 30
					PRINTFORM %TEXTR("しきゅー/子宮/こどもへや/大事なところ/子宮飞机杯")%で
				ELSE
					PRINTFORM %TEXTR("まんこ/おまんこ/おだいじ/肉飞机杯")%で
				ENDIF
			ELSEIF TALENT:淫乳
				IF EXP:Ｂ性交経験 > 30
					PRINTFORM %TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%で
				ELSE
					PRINTFORM %TEXTR("胸部/胸")%で
				ENDIF
			ELSEIF TALENT:尻穴狂い
				PRINTFORM %TEXTR("おしり/お尻/ケツ穴/ケツまんこ/ちょくちょー飞机杯")%で
			ELSEIF TALENT:尿道狂
				PRINTFORM %TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴/にょーどー飞机杯/尿道飞机杯")%で
			ELSE
				PRINTFORM どこで
			ENDIF
		PRINTFORM %TEXTR("びゅるびゅる/びゅーびゅー/射精/しゃせー")%
			IF TALENT:淫壷 || TALENT:淫乳 || TALENT:尻穴狂い || TALENT:尿道狂
				CALL PRINT_STR, "させちゃうっス_H"
			ELSE
				CALL PRINT_STR, "ださせちゃおっかな_H"
			ENDIF
		PRINTFORML 」
	ENDIF
	PRINTFORMW %CALLNAME:TARGET%は顔を赤くしながら%CALLNAME:MASTER%へ詰め寄ってきた…
;発情期
ELSEIF COND("発情期")
	CALL PRINT_STR, @"「ダメだって分かってても…%CNAME("一人称")%、我慢…　できないっス%CNAME("二人称")%_H_　子作りッス…_H_」_L"
	PRINTFORMW %CALLNAME:TARGET%は我慢できない様子で%CALLNAME:MASTER%に詰め寄ってきた…
	CALL SET_CEVENT, "発情イベント中"
ELSE
	PRINTFORMW 「や、やさしくおねがいします…%CNAME("二人称")%」
;屈服刻印Lv0
;ELSEIF MARK:屈服刻印 == 0
;	PRINTFORMW
;屈服刻印Lv1
;ELSEIF MARK:屈服刻印 == 1
;	PRINTFORMW
;屈服刻印Lv2
;ELSEIF MARK:屈服刻印 == 2
;	PRINTFORMW
;屈服刻印Lv3
;ELSEIF MARK:屈服刻印 == 3
;	PRINTFORMW
ENDIF
RETURN 1

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

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF RAND:3 == 0
	CFLAG:角色用 = MAX(CFLAG:尿道回数, CFLAG:Ｖ回数, CFLAG:Ａ回数)
	IF CFLAG:角色用 == 0
		IF RAND:3 == 0 && (TALENT:処女 == 0 || TALENT:Ａ処女 == 0 || EXP:尿道性交経験 == 0)
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0 && TALENT:処女 == 0
				PRINTFORMW 「%CNAME("二人称", "どもり")%…　まだ、%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%使ってないっスよ…？」
			ELSEIF CFLAG:随机 == 1 && TALENT:Ａ処女 == 0
				PRINTFORMW 「%CNAME("二人称", "どもり")%…　%CNAME("一人称")%の%TEXTR("おしり/お尻//ちょくちょー/直腸")%使わなくて良いんスか…？」
			ELSEIF CFLAG:随机 == 2 && EXP:尿道性交経験 == 0
				PRINTFORMW 「%CNAME("二人称")%…　%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%にも…　欲しかったっス…」
			ELSE
				PRINTFORMW 「%CNAME("二人称", "どもり")%…　まだ…　できるっス…」
			ENDIF
		ELSEIF RAND:3
			PRINTFORMW 「は、はひっ…　た、たてなひ…」
		ELSE
			PRINTFORMW 「も、もーだめっス…」
		ENDIF
	ELSEIF CFLAG:角色用 == CFLAG:尿道回数
		IF COND("尿道弱点", PLAYER)
			IF RAND:3 == 0 && EX:尿道絶頂 >= 20
				CALL PRINT_STR, @"「あ、あれっ…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%の感覚が…_H_」_W_"
			ELSEIF RAND:3
				PRINTFORMW 「%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%壊れちゃうっス…」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%、%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%好きすぎじゃないっスか…」
			ENDIF
		ELSE
			IF RAND:2 == 0 && EX:尿道絶頂 >= 20
				CALL PRINT_STR, @"「んんっ…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%がしまらにゃ…_H_」_W_"
			ELSE
				PRINTFORMW 「あ、あはは…　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　感覚無いっス…」
			ENDIF
		ENDIF
	ELSEIF CFLAG:Ｖ回数 == CFLAG:角色用
		IF COND("♀弱点", PLAYER)
			IF RAND:3 == 0 && EX:Ｖ絶頂 >= 10
				CALL PRINT_STR, @"「ひっ_H_%TEXTR("まんこ/おまんこ/おだいじ")%きもちいっ…_H_」_W_"
			ELSEIF RAND:3
				PRINTFORMW 「そ、そんなにしたら…　%TEXTR("まんこ/おまんこ/おだいじ")%が%CNAME("二人称")%のちんちん覚えちゃうっス…」
			ELSE
				PRINTFORMW 「んんっ…　%TEXTR("まんこ/おまんこ/おだいじ")%戻らなくなっちゃうっス…」
			ENDIF
		ELSE
			IF RAND:2 == 0 && EX:Ｖ絶頂 >= 10
				CALL PRINT_STR, @"「はひっ…　%TEXTR("まんこ/おまんこ/おだいじ")%が…　もうっ…_H_」_W_"
			ELSE
				PRINTFORMW 「ちょ、%CNAME("二人称")%…　%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%ばっかり…」
			ENDIF
		ENDIF
	ELSEIF CFLAG:Ａ回数 == CFLAG:角色用
		IF COND("肛門弱点", PLAYER)
			IF RAND:3 == 0 && EX:Ａ絶頂 >= 10
				CALL PRINT_STR, @"「は、はれっ…　%CNAME("一人称")%の%TEXTR("おしり/お尻/")%しまらにゃ…_H_」_W_"
			ELSEIF RAND:3
				PRINTFORMW 「%CNAME("二人称", "どもり")%…　%CNAME("一人称")%の%TEXTR("おしり/お尻/ちょくちょー/直腸")%ばっかりしちゃ…」
			ELSE
				PRINTFORMW 「ちょ、ちょっと%CNAME("二人称")%…　%TEXTR("おしり/お尻/ちょくちょー/直腸")%すきすぎじゃ…」
			ENDIF
		ELSE
			IF RAND:2 == 0 && EX:Ａ絶頂 >= 10
				CALL PRINT_STR, @"「は、はひっ_H_　%CNAME("一人称")%のおしり…ガバガバになっちゃ…_H_」_W_"
			ELSE
				PRINTFORMW 「%CNAME("一人称", "どもり")%の%TEXTR("おしり/お尻/ちょくちょー/直腸")%ばっかりいじっちゃ…　ダメっスよ…」
			ENDIF
		ENDIF
	ENDIF
ELSEIF STATE("撃沈", TARGET)
	;恋慕
	IF TALENT:恋慕
		IF RAND:3 == 0
			PRINTFORMW 「ま、まだできりゅっスよぉ…」
		ELSEIF RAND:3
			PRINTFORMW 「%CNAME("二人称", "どもり")%、もっとぉ…　は、はれ…？　あしが…」
		ELSE

		ENDIF
	;其他
	ELSE
		PRINTFORMW 「や、やりすぎっスよ…%CNAME("二人称")%…」
	ENDIF
;恋慕＋満足
;ELSEIF TALENT:恋慕 && COND("満足")
	;PRINTFORMW
;恋慕
ELSEIF TALENT:恋慕
	PRINTFORMW 「んふー　%CNAME("一人称")%はまだまだできるっスけど、%CNAME("二人称")%だらしないっス」
ELSE
	PRINTFORMW 「お、終わりっスか…？」
ENDIF
CFLAG:尿道回数 = 0
CFLAG:Ｖ回数 = 0
CFLAG:Ａ回数 = 0
CALL DEL_CEVENT, "発情イベント中"

RETURN 1

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

;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「うひゃっ、くすぐったいっスよ%CNAME("二人称")%」
	;二回目以降
	ELSEIF RAND:2 == 0
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STR, @"「えへへー、%CNAME("二人称")%の触り方やらしーっス　あんっ_H_」_W"
		;それ以外
		ELSE
			PRINTFORMW 「んんっ、もうちょっと強くても大丈夫っス…」
		ENDIF
	ELSE
		 IF TALENT:恋慕
		 	PRINTFORMW 「%CNAME("二人称", "どもり")%…　んんっ、そこっ…」
		 ELSE
		 	PRINTFORMW 「ちょっ、%CNAME("二人称")%そこはダメ…」
		 ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF PREVEX("尿道内射精") || PREVPLAY("尿道挿入")
			;被逆推ているとき
			IF TEQUIP:推倒
				PRINTFORM 「%CNAME("二人称")%が
				IF TALENT:淫乱 || TALENT:尿道狂
					PRINTFORM %TEXTR("にょーどー", "尿道", "おしっこ穴", "しょんべんまんこ")%
				ELSE
					PRINTFORM %TEXTR("にょーどー", "尿道", "おしっこ穴")%
				ENDIF
				IF PREVEX("尿道内射精")
					PRINTFORM にいっぱい出した
				ELSEIF PREVPLAY("尿道挿入")
					PRINTFORM をいっぱい使った
				ENDIF

				PRINTFORMW っスから掃除っスよ？」

			;それ以外
			ELSE
				PRINTFORMW 「ひゃあっ、%CNAME("二人称", "どもり")%
				IF TALENT:淫乱 || TALENT:尿道狂
					PRINTFORM %TEXTR("にょーどー", "尿道", "おしっこ穴", "しょんべんまんこ")%
				ELSE
					PRINTFORM %TEXTR("にょーどー", "尿道", "おしっこ穴")%
				ENDIF
				PRINTFORMW …強すぎ…っス…ひゃんっ」
			ENDIF
		ELSE
			;被逆推ているとき
			IF TEQUIP:推倒
				PRINTFORMW 「んっ、%CNAME("二人称", "どもり")%　そこっじょーずっスよ…ひんっ…」
			;それ以外
			ELSE
				PRINTFORMW 「ひゃあっ、%CNAME("二人称", "どもり")%それっ…強すぎ…っス…」
			ENDIF
		ENDIF
	;二回目以降
	;清洁舔阴
	ELSEIF COND("清洁舔阴フラグ", PLAYER)
		;被逆推ているとき
			IF TEQUIP:推倒
				PRINTFORM 「%CNAME("二人称")%が
				IF TALENT:淫乱 || TALENT:尿道狂
					PRINTFORM %TEXTR("にょーどー", "尿道", "おしっこ穴", "しょんべんまんこ")%
				ELSE
					PRINTFORM %TEXTR("にょーどー", "尿道", "おしっこ穴")%
				ENDIF
				IF PREVEX("尿道内射精")
					PRINTFORM にいっぱい出した
				ELSEIF PREVPLAY("尿道挿入")
					PRINTFORM をいっぱい使った
				ENDIF

				PRINTFORMW っスから掃除っスよ？」

			;それ以外
			ELSE
				PRINTFORMW 「ひゃあっ、%CNAME("二人称", "どもり")%
				IF TALENT:淫乱 || TALENT:尿道狂
					PRINTFORM %TEXTR("にょーどー", "尿道", "おしっこ穴", "しょんべんまんこ")%
				ELSE
					PRINTFORM %TEXTR("にょーどー", "尿道", "おしっこ穴")%
				ENDIF
				PRINTFORMW …強すぎ…っス…ひゃんっ」
			ENDIF
	;それ以外
	ELSE
		CFLAG:随机 = RAND:4
		IF CFLAG:随机 == 0
			PRINTFORMW 「ひゃんっ、阴蒂っつよ　っス」
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, "「阴蒂っ、吸っちゃ　やっ…」_W"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"「やあああっ　%CNAME("二人称")%っ、%CNAME("二人称")%強すぎっス…」_W"
		ELSE
			CALL PRINT_STR, @"「やだっ　%CNAME("二人称")%音立てちゃっ…　だめっス」_W"
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門愛撫
;-------------------------------------------------
IF SELECTCOM == 2
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;気持ちいい
		IF CHECK("Ａ指挿入")
			PRINTFORMW 「んっ、ちっちがっ…きもちく無いっスよ、気持ちよくなんて…」
		;それ以外
		ELSE
			PRINTFORMW 「ひゃあっ、%CNAME("二人称", "どもり")%そこ違うっスよ！！」
		ENDIF
	;二回目以降
	ELSE
		IF TEQUIP:肛用振動棒
			;恋慕
			IF TALENT:恋慕
				IF TALENT:尻穴狂い
					CFLAG:随机 = RAND:3
					IF CFLAG:随机 == 0
						;肛門拉珠
						IF COND("肛門拉珠")
							CALL PRINT_STR, @"「あっ_H_はげしっ_HH_　じゅぷじゅぷはげしひっ_HH_"
						;肛用振動棒
						ELSEIF SIZE("Ａ振動棒") == 0
							CALL PRINT_STR, @"「ひゃぁあぁっ_H_　ずりゅずりゅってぇ_H_"
						;普通の振動棒
						ELSEIF SIZE("Ａ振動棒") == 1
							CALL PRINT_STR, @"「しゅごひっ_H_　%TEXTR("おしり/お尻")%のいりぐちじゅぷじゅぷしゅきっ_H_"
						;大号振動棒
						ELSEIF SIZE("Ａ振動棒") == 2
							CALL PRINT_STR, @"「しゅきっ_HH_　%TEXTR("おしり/お尻/ちょくちょー/直腸")%いじめられりゅのしゅきっ　かひゅっ_HH_"
						;極太振動棒
						ELSEIF SIZE("Ａ振動棒") == 3
							CALL PRINT_STR, @"「でひゃうっ_HH_　%TEXTR("おなか/お腹")%のなかみでひゃううぅぅうっ_HH_"
						;フィスト振動棒
						ELSEIF SIZE("Ａ振動棒") == 4
							CALL PRINT_STR, @"「ぐっ_H_ごっ_H_いぎゅっ_H_　でりゅっ、%CNAME("一人称")%のなかみうらがえりゅっ_HH_"
						;馬型振動棒
						ELSEIF SIZE("Ａ振動棒") == 5
							CALL PRINT_STR, @"「しゅきっ_HH_　%TEXTR("うま/馬")%%TEXTR("ちんちん/おちんちん")%らいしゅきっ_HH_"
						ENDIF
					ELSEIF CFLAG:随机 == 1 && ABL:Ａ拡張 >= 4
						;肛門拉珠
						IF COND("肛門拉珠")
							CALL PRINT_STR, @"「でてりゅっ_H_　%CNAME("一人称")%の%TEXTR("おしり/お尻")%から%TEXTR("たまご/卵/タマゴ")%でてりゅうっ_HH_"
						;肛用振動棒
						ELSEIF SIZE("Ａ振動棒") == 0 || SIZE("Ａ振動棒") == 1
							CALL PRINT_STR, @"「も、もっとおっきいのでも…　大丈夫っスよ_H_"
						;大号振動棒
						ELSEIF SIZE("Ａ振動棒") == 2
							CALL PRINT_STR, @"「ま、まだまだ…　はひっ_H_　よゆーっス_HH_"
						;極太振動棒
						ELSEIF SIZE("Ａ振動棒") == 3
							CALL PRINT_STR, @"「はひっ_H_　しゅごっ_H_　%CNAME("一人称")%の%TEXTR("おしり/お尻")%こわれてりゅっ_HH_"
						;フィスト振動棒
						ELSEIF SIZE("Ａ振動棒") == 4
							CALL PRINT_STR, @"「ぐぎゅっ_H_　ぎゅひっ_HH_　おぐっ、ひびぐっ_HH_"
						;馬型振動棒
						ELSEIF SIZE("Ａ振動棒") == 5
							CALL PRINT_STR, @"「ひぎっ_H_　%TEXTR("うま/馬")%%TEXTR("ちんちん/おちんちん")%%TEXTR("ずんずん/じゅんじゅん")%しゅきぃ_HH_"
						ENDIF
					ELSE
						;肛門拉珠
						IF COND("肛門拉珠")
							CALL PRINT_STR, @"「ごりってでてくの…　すきっス…_H_"
						;肛用振動棒
						ELSEIF SIZE("Ａ振動棒") == 0 || SIZE("Ａ振動棒") == 1
							IF RAND:2 == 0
								CALL PRINT_STR, @"「あー…_H_はああぁぁぁ　んっ…_H_　%TEXTR("おしり/お尻")%の中身でてるみたいっス_HH_"
							ELSE
								CALL PRINT_STR, @"「あっ_H_あっ_H_%TEXTR("ちょくちょー/直腸")%ごりって_HH_"
							ENDIF
						;大号振動棒
						ELSEIF SIZE("Ａ振動棒") == 2
							CALL PRINT_STR, @"「んんんんっ_HH_　%TEXTR("おなか/お腹")%のなかまっすぐni↘_H_"
						;極太振動棒
						ELSEIF SIZE("Ａ振動棒") == 3
							CALL PRINT_STR, @"「えへへ_HH_　%TEXTR("おなか/お腹")%…ぼこぉって_H_"
						;フィスト振動棒
						ELSEIF SIZE("Ａ振動棒") == 4
							CALL PRINT_STR, @"「こっ、これなりゃっ_H_　%CNAME("二人称")%の腕もたべちゃいそうっスね…_H_"
						;馬型振動棒
						ELSEIF SIZE("Ａ振動棒") == 5
							CALL PRINT_STR, @"「あっ_H_　ひぎゅっ_H_　おかひくっ_H_　%CNAME("一人称")%の%TEXTR("おなか/お腹")%こわれひゃうっ_HH_"
						ENDIF
					ENDIF
				ELSE
					CFLAG:随机 = RAND:3
					IF CFLAG:随机 == 0 && EXP:Ａ経験 >= 20
						;肛門拉珠
						IF COND("肛門拉珠")
							PRINTFORM 「ん、んんっ…　慣れてきたっスけど…　んんっ
						;肛用振動棒
						ELSEIF SIZE("Ａ振動棒") == 0 || SIZE("Ａ振動棒") == 1
							PRINTFORM 「んっ、んんっ…　%CNAME("二人称", "どもり")%、お尻の準備っスか…？
						;大号振動棒
						ELSEIF SIZE("Ａ振動棒") == 2
							PRINTFORM 「そ、そんなに激烈地うごかしたら…っ
						;極太振動棒
						ELSEIF SIZE("Ａ振動棒") == 3
							PRINTFORM 「だ、ダメっス　%CNAME("一人称")%の%TEXTR("おしり/お尻")%こわれちゃ…ひゃっ…
						;フィスト振動棒
						ELSEIF SIZE("Ａ振動棒") == 4
							PRINTFORM 「ぐっ、ぎひっ…　%CNAME("二人称", "どもり")%きつ…
						;馬型振動棒
						ELSEIF SIZE("Ａ振動棒") == 5
							PRINTFORM 「う、ぎっ…　%CNAME("二人称", "どもり")%きもちわ…　ひぎっ…
						ENDIF
					ELSEIF CFLAG:随机 == 1 && TALENT:Ａ処女
						IF CEVENT("阴茎初見")
							IF SIZE("阴茎", PLAYER) >= 3
								;肛門拉珠
								IF COND("肛門拉珠")
									PRINTFORM 「だ、大丈夫っスか？　%CNAME("一人称")%の%TEXTR("おしり/お尻")%壊れてないっスか？
								;肛用振動棒
								ELSEIF SIZE("Ａ振動棒") == 0 || SIZE("Ａ振動棒") == 1
									PRINTFORM 「くっ、んんっ…　%CNAME("二人称", "どもり")%の%TEXTR("ちんちん/おちんちん")%にはまだまだ…
								;大号振動棒
								ELSEIF SIZE("Ａ振動棒") == 2
									PRINTFORM 「も、もーちょっとっスね…
								;極太振動棒
								ELSEIF SIZE("Ａ振動棒") == 3
									PRINTFORM 「はぎゅっ…　%CNAME("二人称", "どもり")%もーそろそろ%TEXTR("おしり/お尻")%に入りそうっスね…
								;フィスト振動棒
								ELSEIF SIZE("Ａ振動棒") == 4
									PRINTFORM 「はっ、ぎゅっ、おかしい、%CNAME("一人称")%の体おかしくなっちゃってるっ…
								;馬型振動棒
								ELSEIF SIZE("Ａ振動棒") == 5
									PRINTFORM 「こわれたっ、%CNAME("一人称", "どもり")%の%TEXTR("おしり/お尻")%こわれちゃったぁ
								ENDIF
							ELSEIF SIZE("阴茎", PLAYER) == 2
								;肛門拉珠
								IF COND("肛門拉珠")
									PRINTFORM 「うひゃっ、んん～っ　玉が%TEXTR("おしり/お尻")%から抜ける度体が抖抖って…
								;肛用振動棒
								ELSEIF SIZE("Ａ振動棒") == 0 || SIZE("Ａ振動棒") == 1
									PRINTFORM 「んっ、んんっ…　も、もーちょっと激烈地し…　な、なんでも無いっス！！
								;大号振動棒
								ELSEIF SIZE("Ａ振動棒") == 2
									PRINTFORM 「こ、ここまで拡がれば…　%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%も入りそうっスね…
								;極太振動棒
								ELSEIF SIZE("Ａ振動棒") == 3
									PRINTFORM 「%CNAME("二人称", "どもり")%だめっ、ダメっス！　それ以上やっちゃ…　ひゃぁんっ
								;フィスト振動棒
								ELSEIF SIZE("Ａ振動棒") == 4
									PRINTFORM 「ひっ、ぐぐっ…　%CNAME("二人称", "どもり")%%CNAME("一人称")%の%TEXTR("おしり/お尻")%こわしちゃ…
								;馬型振動棒
								ELSEIF SIZE("Ａ振動棒") == 5
									PRINTFORM 「やらっ、%CNAME("一人称")%の体こわれひゃうっ…
								ENDIF
							ELSE
								;肛門拉珠
								IF COND("肛門拉珠")
									PRINTFORM 「んんっ、ずるずるぅって…　あぁっ
								;肛用振動棒
								ELSEIF SIZE("Ａ振動棒") == 0 || SIZE("Ａ振動棒") == 1
									PRINTFORM 「も、もー%TEXTR("ちんちん/おちんちん")%でもだいじょぶじゃないっスか？　うひゃんっ…　まだやるんスね…
								;大号振動棒
								ELSEIF SIZE("Ａ振動棒") == 2
									PRINTFORM 「%CNAME("二人称", "どもり")%？　もー%TEXTR("ちんちん/おちんちん")%でもだいじょぶじゃ…　あはっ、んっ…
								;極太振動棒
								ELSEIF SIZE("Ａ振動棒") == 3
									PRINTFORM 「%CNAME("二人称", "どもり")%、これ以上は%CNAME("一人称")%の%TEXTR("おしり/お尻")%おかしくなっちゃうっス
								;フィスト振動棒
								ELSEIF SIZE("Ａ振動棒") == 4
									PRINTFORM 「お、おかしいっ　ぜったい%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%よりコレおっきいっス　%CNAME("一人称")%こわれちゃうっス
								;馬型振動棒
								ELSEIF SIZE("Ａ振動棒") == 5
									PRINTFORM 「は、是ってる…%TEXTR("うま/馬")%%TEXTR("ちんちん/おちんちん")%が%CNAME("一人称")%のからだこわしてる…
								ENDIF
							ENDIF
						ELSE
							;肛門拉珠
							IF COND("肛門拉珠")
								PRINTFORM 「やらっ、%CNAME("一人称")%の%TEXTR("おしり/お尻")%閉じなくなっちゃっ
							;肛用振動棒
							ELSEIF SIZE("Ａ振動棒") == 0 || SIZE("Ａ振動棒") == 1
								PRINTFORM 「んっ、あっ…　ま、まだまだ…　いけるっス…
							;大号振動棒
							ELSEIF SIZE("Ａ振動棒") == 2
								PRINTFORM 「ちょ、ちょっと…　きつ…
							;極太振動棒
							ELSEIF SIZE("Ａ振動棒") == 3
								PRINTFORM 「%CNAME("二人称", "どもり")%の%TEXTR("ちんちん/おちんちん")%入れるってこんな感じなんスかね…
							;フィスト振動棒
							ELSEIF SIZE("Ａ振動棒") == 4
								PRINTFORM 「や、やぁっ　ホントに%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%と同じくらいなんスよね？　ホントっスよね？
							;馬型振動棒
							ELSEIF SIZE("Ａ振動棒") == 5
								PRINTFORM 「ひっ、ひぎゅっ、ぐっ、ぎっ…%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%ホントにこの尺寸なんスよね？
							ENDIF
						ENDIF
					ELSE
						PRINTFORM 「んんっ、%CNAME("一人称")%の%TEXTR("おしり/お尻/ちょくちょー/直腸")%拡がって…
					ENDIF
				ENDIF
			;気持ちいい
			ELSEIF CHECK("Ａ指挿入")
				PRINTFORM 「ひゃっ、んっ…　おく…　ごりって…
			;それ以外
			ELSE
				IF PALAM:Ａ潤 >= 5000
					PRINTFORM 「%CNAME("一人称")%の%TEXTR("おしり/お尻")%じゅぷじゅぷって凄い音してるっス…
				ELSE
					PRINTFORM 「つっ…　%CNAME("二人称")%激烈地動かしすぎっス…
				ENDIF
			ENDIF
			PRINTFORM
			CALL HANA_HANNYO
			PRINTFORMW 」
		ELSE
			;恋慕
			IF TALENT:恋慕
				IF CEVENT("アナニー告白")
					IF TALENT:尻穴狂い
						CFLAG:随机 = RAND:3
						IF CFLAG:随机 == 0
							CALL PRINT_STR, @"「ひゃんっ_H_　%TEXTR("おしりせっくす/お尻性交/ちょくちょーせっくす/直腸性交")%の準備っスねっ_HH_"
						ELSEIF CFLAG:随机 == 1 && ABL:Ａ拡張 >= 4
							CALL PRINT_STR, @"「こ、このまま行ったら…　腕も入っちゃいそうっスね_H_　そしたら%CNAME("一人称")%の%TEXTR("おしり/お尻")%…　がばがばに_HH_"
						ELSE
							CALL PRINT_STR, @"「あっ_H_　すきっ、%CNAME("一人称")%の体が変わって行っちゃうのっ_HH_　すきっ"
						ENDIF
					ELSE
						CFLAG:随机 = RAND:3
						IF CFLAG:随机 == 0 && EXP:Ａ経験 >= 20
							CALL PRINT_STR, @"「え、えへへ_H_　%CNAME("一人称")%の%TEXTR("おしり/お尻/ちょくちょー/直腸")%使えるように準備っスね？"
						ELSEIF CFLAG:随机 == 1 && TALENT:Ａ処女
							IF CEVENT("阴茎初見")
								IF SIZE("阴茎", PLAYER) >= 3
									PRINTFORM 「%CNAME("一人称", "どもり")%の腕よりふとい%TEXTR("ちんちん/おちんちん")%…ホントに入るんスかね…
								ELSEIF SIZE("阴茎", PLAYER) == 2
									PRINTFORM 「ほ、ホントに入っちゃうんスかね…　そんなおっきな%TEXTR("ちんちん/おちんちん")%…
								ELSE
									PRINTFORM 「%CNAME("一人称", "どもり")%頑張るっスよ、%CNAME("二人称")%との%TEXTR("おしりせっくす/お尻性交")%ためni↘、んんっ
								ENDIF
							ELSE
								PRINTFORM 「%TEXTR("お、おしり/お、お尻")%にホントに入っちゃうんスかね、%TEXTR("ちんちん/おちんちん")%って…
							ENDIF
						ELSE
							PRINTFORM 「お、お尻使いたい…っスか…んっ…
						ENDIF
					ENDIF
				ELSE
					PRINTFORM 「じ、実は
					SIF FIRSTCOM(148) || FIRSTCOM(151)
						PRINTFORM %TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%だけじゃなく…
					PRINTFORML 恥ずかしながら自己%TEXTR("おしり/お尻")%試したことあってっスね…」
					PRINTFORMW %CALLNAME:TARGET%は有点害臊的そう告げるが、%CALLNAME:MASTER%が『知っている』と言葉にした瞬間見る見るうちに顔は真っ赤になってしまった
					PRINTFORML 「えっ、えっ？な、何で…なんでなんスか!!　むー、恥ずかしい…　これは%CNAME("二人称")%の秘密もおしえ…
					PRINTFORM ひゃひぃっ、まだ話はおわって

					CALL HANA_HANNYO
					PRINTFORML 」
					PRINTFORMW %CALLNAME:TARGET%の訴えを遮るかのように%CALLNAME:MASTER%は%TEXTR("肛門/排泄腔")%を指で刺激し続けた…
					CALL SET_CEVENT, "アナニー告白"
				ENDIF
			;気持ちいい
			ELSEIF CHECK("Ａ指挿入")
				PRINTFORM 「き、きもちくなんて…ないっ…っスよ…？
			;それ以外
			ELSE
				PRINTFORM 「いつっ…　%CNAME("二人称", "どもり")%痛いっス…
			ENDIF
			PRINTFORM
			CALL HANA_HANNYO
			PRINTFORMW 」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;-------------------------------------------------
IF SELECTCOM == 3
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「うー、%CNAME("一人称")%のこんな姿見て何が楽しいっスかー…」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			SELECTCASE FAV_ONANIE(SELECTCOM, "一番")
			CASE "尿"
				IF CHOSECOMS("尿道挿入") && TALENT:尿道狂
					IF CEVENT("挿入中初尿道自慰") == 0
						CALL PRINT_STR, @"「ま、まだよゆーっス…_H_　もっと…いっぱい%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ひろげた…いぎいぃぃいぃ…_H_」_L"
						PRINTFORML %CALLNAME:TARGET%はそう言いながら限界まで拡がっている%TEXTR("尿道口/狭孔/排泄腔")%へ指を突き入れててしまう…
						PRINTFORMW 実際は%TEXTR("尿道口/狭孔/排泄腔")%に指など入る余裕など無く、突き入れた瞬間%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%をきゅうきゅうと居たいほどに締め付けてきた…
						CALL PRINT_STR, @"「あ、_H_あははっ_H_これで…もっとふとい%TEXTR("ちんちん/おちんちん")%入っちゃうっス_HH_」_L"
						PRINTFORMW 涙目になりながらも%CALLNAME:TARGET%は%CALLNAME:MASTER%へと蕩けた表情で笑いかけてきた…
						IF PENIS(TARGET)
							CSTR:Ｐ尿道拡張度 = %ADDNUM_STR(CSTR:Ｐ尿道拡張度, 3)%
						ELSE
							CSTR:Ｖ尿道拡張度 = %ADDNUM_STR(CSTR:Ｖ尿道拡張度, 3)%
						ENDIF
						CALL SET_CEVENT, "挿入中初尿道自慰"
					ELSE
						IF RAND:2 == 0
							CALL PRINT_STR, @"きもちいっ_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ぎちぎちきもちいっ_H_」_L"
						ELSE
							CALL PRINT_STR, @"しゅきっ_HH_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%おなにーらいしゅきっ_HH_"
						ENDIF
					ENDIF
				ELSEIF CALCF("尿道径") > SIZE("阴茎の直径", PLAYER)
					IF EXP:尿道性交経験 >= 1
						CALL PRINT_STR, @"「んんっ_H_　%CNAME("二人称", "甘え")%_H_%CNAME("一人称")%…%TEXTR("ちんちん/おちんちん")%%TEXTR("欲しい/ほしー")%っス…_H_」_L_"
					ELSE
						CALL PRINT_STR, @"「こっ、これなら%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%も是っちゃうんじゃ…　ないっスかね…_H_」_L"
					ENDIF
					PRINTFORMW %CALLNAME:TARGET%はすっかり指では満足できなくなってしまった様子で、自己的両指で%TEXTR("尿道口/狭孔/排泄腔")%をグイグイと拡げている…
				;指插入可能
				ELSEIF CALCF("尿道径") > SIZE("指の直径", PLAYER)
					CALL PRINT_STR, @"「えへへ_H_　指も…入っちゃうっス…_H_」_L"
					PRINTFORMW %CALLNAME:TARGET%は蕩けた表情で自己的%TEXTR("尿道口/狭孔/排泄腔")%に指を入れ中から揉み解している…
				ELSE
					CALL PRINT_STR, @"「んんっ_H_　指も…いつか入っちゃうっスかね…_H_」_L"
					PRINTFORMW %CALLNAME:TARGET%は蕩けた表所で自己的%TEXTR("尿道口/狭孔/排泄腔")%揉み解している…
				ENDIF
			CASEELSE
				PRINTFORML 「%CNAME("二人称", "どもり")%、どーっスか？%CNAME("一人称")%えっちっスか？」
				PRINTFORMW %CALLNAME:TARGET%は蕩けた表情で沉溺于自慰之中
			ENDSELECT
		;それ以外
		ELSE
			SELECTCASE FAV_ONANIE(SELECTCOM, "一番")
			CASE "尿"
				IF CHOSECOMS("尿道挿入") && TALENT:尿道狂
					IF CEVENT("挿入中初尿道自慰") == 0
						CALL PRINT_STR, @"「ま、まだよゆーっス…_H_　もっと…いっぱい%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ひろげた…いぎいぃぃいぃ…_H_」_L"
						PRINTFORML %CALLNAME:TARGET%はそう言いながら限界まで拡がっている%TEXTR("尿道口/狭孔/排泄腔")%へ指を突き入れててしまう…
						PRINTFORMW 実際は%TEXTR("尿道口/狭孔/排泄腔")%に指など入る余裕など無く、突き入れた瞬間%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%をきゅうきゅうと居たいほどに締め付けてきた…
						CALL PRINT_STR, @"「あ、_H_あははっ_H_これで…もっとふとい%TEXTR("ちんちん/おちんちん")%入っちゃうっス_HH_」_L"
						PRINTFORMW 涙目になりながらも%CALLNAME:TARGET%は%CALLNAME:MASTER%へと蕩けた表情で笑いかけてきた…
						IF PENIS(TARGET)
							CSTR:Ｐ尿道拡張度 = %ADDNUM_STR(CSTR:Ｐ尿道拡張度, 3)%
						ELSE
							CSTR:Ｖ尿道拡張度 = %ADDNUM_STR(CSTR:Ｖ尿道拡張度, 3)%
						ENDIF
						CALL SET_CEVENT, "挿入中初尿道自慰"
					ELSE
						IF RAND:2 == 0
							CALL PRINT_STR, @"きもちいっ_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ぎちぎちきもちいっ_H_」_L"
						ELSE
							CALL PRINT_STR, @"しゅきっ_HH_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%おなにーらいしゅきっ_HH_"
						ENDIF
					ENDIF
				ELSEIF CALCF("尿道径") > SIZE("阴茎の直径", PLAYER)
					IF EXP:尿道性交経験 >= 10 && COND("尿道弱点", PLAYER)
						PRINTFORML 「んんっ…%CNAME("二人称", "どもり")%…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%も使えるっスよ？」
					ELSE
						PRINTFORML 「ひゅっ…　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　拡がっちゃった…っス…」
					ENDIF
					PRINTFORMW %CALLNAME:TARGET%は自己的%TEXTR("尿道口/狭孔/排泄腔")%をぐいぐいと拡げている…
				;指插入可能
				ELSEIF CALCF("尿道径") > SIZE("指の直径", TARGET)
					PRINTFORML 「ゆ、指っ…　入っちゃった…」
					PRINTFORMW %CALLNAME:TARGET%は自己的指で%TEXTR("尿道口/狭孔/排泄腔")%をナカから揉み解している…
				ELSE
					PRINTFORML 「んんっ…　%CNAME("一人称", "どもり")%っ別に…%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ハマったとかじゃ…」
					PRINTFORMW %CALLNAME:TARGET%はそう言いつつも%TEXTR("尿道口/狭孔/排泄腔")%を弄る指を止めることは出来ない様子だ…
				ENDIF
			CASEELSE
				PRINTFORML 「%CNAME("二人称", "どもり")%見ないで…　見ないで欲しいっス…」
				PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながらも手を止めることは無かった
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰莖(扶她/男性のみ)
;-------------------------------------------------
IF SELECTCOM == 4

	RETURN 1
ENDIF

;-------------------------------------------------
;胸愛撫
;-------------------------------------------------
IF SELECTCOM == 5
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「%CNAME("二人称", "どもり")%…触り方…やらしーっスよ…」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 || EXP:接吻経験 == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW 「んっ、ちゅ…　えへへ、%CNAME("一人称")%の初吻あげちゃったっス…」
		;それ以外
		ELSE
			PRINTFORMW 「んっ、ちゅ…　えへへ、%CNAME("一人称")%の初吻とられちゃったっス…」
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「んっ、ちゅっ　しゅきっ、大好きっス%CNAME("二人称")%っ」
		;それ以外
		ELSE
			PRINTFORMW 「んっ、ちゅ…　接吻…　嫌いじゃないっスよ…？　えへへ」
		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:恋慕

		;それ以外
		ELSE

		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:恋慕

		;気持ちいい
		ELSEIF CHECK("指挿入")

		;それ以外
		ELSE

		ENDIF
	;振動棒挿入中
	ELSEIF TEQUIP:振動棒
		;恋慕
		IF TALENT:恋慕

		;気持ちいい
		ELSEIF CHECK("振動棒")

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方手交
;-------------------------------------------------
IF SELECTCOM == 10

	RETURN 1
ENDIF
;-------------------------------------------------
;给对方乳交
;-------------------------------------------------
IF SELECTCOM == 11
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方足交
;-------------------------------------------------
IF SELECTCOM == 12
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開阴道
;-------------------------------------------------
IF SELECTCOM == 13
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「ひ、開いて見せろって…　%CNAME("二人称")%は変態っス…」
	;二回目以降
	ELSE
		CFLAG:随机 = RAND:4
		IF CFLAG:随机 == 0 && TALENT:尿道狂 && EXP:尿道性交経験 > 40
			PRINTFORML 「%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%さびしいっス…　%TEXTR("ちんちん/おちんちん")%、ください…」
			PRINTFORMW %CALLNAME:TARGET%は尿道挿入ですっかり緩くなった尿道を指で割り裂き%CALLNAME:MASTER%を誘っている
		ELSEIF TALENT:淫壷 && CFLAG:随机 == 1
			PRINTFORML 「%TEXTR("まんこ/おまんこ/膣/お大事")%が寂しいっス…　%TEXTR("ちんちん/おちんちん")%、ください…」
			PRINTFORMW %CALLNAME:TARGET%はすっかり柔らかくなった肉壷を指で割り裂き%CALLNAME:MASTER%を誘っている
		;恋慕
		ELSEIF CFLAG:随机 == 2 && TALENT:恋慕
			IF TALENT:処女 && RAND:2 == 0
				PRINTFORML 「%CNAME("二人称", "どもり")%…　こっちも使って良いんスよ…？」
				PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながら破瓜をねだって来た
			ELSE
				PRINTFORMW 「ま、まだ開いてないとダメっスか…？%CNAME("二人称")%…」
			ENDIF
		;それ以外
		ELSEIF TALENT:恋慕 == 0 && CFLAG:随机 == 3
			IF TALENT:処女 && RAND:2 == 0
				PRINTFORML 「こ、こっちはダメっスよ？%CNAME("二人称")%」
				PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながら頑なに挿入を拒否している
			ELSE
				PRINTFORMW 「ま、まだ開いてないとダメっスか…？%CNAME("二人称")%…」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入
;-------------------------------------------------
IF SELECTCOM == 15
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
			CALL PRINT_STR, @"「ひゃひっ、%CNAME("二人称", "どもり")%そこ%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%っスよ　間違って　んんっ_H_ _H_ちがっ、きもちくなっ…」_L"
			PRINTFORMW そう拒否しつつも%CALLNAME:TARGET%の%TEXTR("尿道/狭孔/排泄腔")%は指で轻轻地突いただけでズブズブと飲み込んでゆく
	;二回目以降
	ELSE
		IF TEQUIP:振動棒
			PRINTFORML 「いっ、今%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%だめっス」
			PRINTFORML 膣に振動棒を飲み込み狭くなっている%TEXTR("尿道/狭孔/排泄腔")%に指を押し当てると%CALLNAME:TARGET%に制止される
			PRINTFORMW しかし%CALLNAME:MASTER%は構わず一気に抉りこみＧスポットを振動棒と指で押しつぶしてやった
			PRINTFORML その瞬間%CALLNAME:TARGET%の%TEXTR("尿道/狭孔/排泄腔")%は指をギュウギュウと締め上げビクビクと震え始めた
			PRINTFORM 「

			CALL HANA_HANNYO

			PRINTFORML 」
			PRINTFORMW %CALLNAME:TARGET%は首をぶんぶん振りながらもその異常な快楽を愉しんでいる様子だ
		;それ以外
		ELSE
			IF TALENT:尿道狂
				IF RAND:3 == 0 && ABL:受虐属性 > 10
					CALL PRINT_STR, @"「ま、また%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%虐めてくれるんスか%CNAME("二人称")%_H_」_L"
				ELSEIF RAND:3
					CALL PRINT_STR, @"「は、はやく_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%寂しいっス%CNAME("二人称")%_H_」_L"
				ELSE
					CALL PRINT_STR, @"「%CNAME("二人称")%っ_H_　%CALLNAME:TARGET%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%はやくぐちゃぐちゃにしてっ_H_ぐちゃぐちゃni↘」_L"
				ENDIF

				IF TEQUIP:拘束 == 0 && ABL:尿道拡張 > 2 && RAND:2 == 0
					PRINTFORMW 自ら%TEXTR("尿道口/狭孔/排泄腔")%を指で割り裂き、%CALLNAME:MASTER%に与えられる快楽を心の底から期待している
				ELSE
					PRINTFORMW %CALLNAME:TARGET%の%TEXTR("尿道/狭孔/排泄腔")%は、指先を宛がうだけで今から始圆圈異常な責めにより綻び始めた
				ENDIF
			ELSEIF ABL:尿道感覚 > 5
				IF RAND:3 == 0
					PRINTFORM 「ちっ、違うんスよ%CNAME("二人称")%　%CNAME("一人称")%は%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%きもちくなんか
				ELSEIF RAND:3
					PRINTFORM 「そ、そこは違うっスよセンパ…
				ELSE
					PRINTFORM 「あっ　そ、そっちっスか%CNAME("二人称")%…
				ENDIF

				CALL HANA_HANNYO
				PRINTFORML 」
				PRINTFORMW 尿道の快楽を自覚し始めた%CALLNAME:TARGET%は%CALLNAME:MASTER%が指を出し入れするたび多彩な反応を見せるようになってきた…
			ELSE
				PRINTFORM 「んんっ、そこはちがっ…

				CALL HANA_HANNYO

				PRINTFORML 」
				IF ABL:尿道感覚 > 2 && CFLAG:角色用 > 2
					PRINTFORMW 違う違うと否定しながらも、%CALLNAME:TARGET%の尿道はキュンキュンと%CALLNAME:MASTER%の指を締め付けている…
				ELSEIF ABL:尿道感覚 > 2
					PRINTFORMW %CALLNAME:TARGET%は尿道を責められるという異常な状態だが僅かに快楽が芽生え始めていた…
				ELSE
					PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%から与えられる刺激が良く分からないという状態で目を白黒させている…
				ENDIF
				CFLAG:角色用 = 0
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋
;-------------------------------------------------
IF SELECTCOM == 30
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「んんっ、ぶ、抖抖震えて…　ひんっ…」
	;二回目以降
	ELSE
		IF EX:Ｃ絶頂 >= 10
			CALL HANA_HANNYO
		;恋慕
		ELSEIF TALENT:恋慕
			 PRINTFORM 「し、振動強すぎっスセンパ…
		;それ以外
		ELSE
			 PRINTFORM 「だ、だめっス%CNAME("二人称")%っ　つよすぎっ、ス…
		ENDIF
			CALL HANA_HANNYO
		PRINTFORMW 」
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 31
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛用振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒")

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ｖ挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 60 && SELECTCOM <= 69 && FIRSTCOMS("Ｖ挿入") == 0
	;処女
	IF TALENT:処女
		;恋慕
		IF TALENT:恋慕
			CALL PRINT_STR, @"「あっ_H_　やっと…　%CNAME("二人称")%と繋がるっスね？ドキドキするっス…」_W"
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%と遂に繋がるという事実に、顔を朱に染める…
			CALL PRINT_STR, @"「ど、どんな感じなんスかね？　性交って…」_L"
			PRINTFORML 期待と不安の入り混じった声色と表情で%CALLNAME:MASTER%へ問いかけてくる
			CALL PRINT_STR, @"「や、温柔的拜托了っス…　%CNAME("二人称")%_H_」_W"
		;それ以外
		ELSE
			IF CEVENT("强行")
				PRINTFORML 「やだっ、%CNAME("二人称", "どもり")%ダメっスよ？　い、入れちゃ…」
				PRINTFORM %CALLNAME:MASTER%霸王硬上弓%CALLNAME:TARGET%を推倒、强行
				IF SIZE("阴茎", PLAYER) >= 3
					PRINTFORM 長大な
				ELSEIF SIZE("阴茎", PLAYER) == 2
					PRINTFORM 巨大的
				ENDIF
				PRINTFORM 陰茎で処女膜を破る為
				SIF TALENT:娇小 >= 1
					PRINTFORM 未熟な
				PRINTFORML 性器の奥へと押し進めてゆく…
				PRINTFORM 「
				IF SIZE("阴茎", PLAYER) >= 2
					PRINTFORM い゛っ゛…　ぎっ…
				ELSE
					PRINTFORM いっ…　たっ…
				ENDIF
				PRINTFORML %CNAME("二人称", "どもり")%やめ…」
				IF SIZE("阴茎", PLAYER) >= 2
					PRINTFORM メリメリと
				ELSE
					PRINTFORM プツプツと
				ENDIF
				PRINTFORML 身体の内側から引き裂かれていく疼痛や悲しみに涙し必死に耐え的同时、この無限に続くような行為を受け続けている…
				PRINTFORML やがて陰茎は最奥へ到達し、%CALLNAME:TARGET%の性器からは処女だった証として一筋の鮮血が流れた
				PRINTFORMW 「ダメって言ったのに…　酷い…」
			ELSEIF COND("発情期")
				CALL PRINT_STR, @"「はっ_H_はっ_H_はっ_H_　%CNAME("一人称", "どもり")%しょ、処女とか良いっスから…　が、我慢できないっス_H_ _H_」_L"
				PRINTFORMW %CALLNAME:TARGET%はとろんとした瞳で%CALLNAME:MASTER%を見つめ、
					IF COND("指の使用")
						PRINTFORM 自己的指で秘部を割り裂き
					ELSE
						PRINTFORM 股を開き
					ENDIF
				PRINTFORML %CALLNAME:MASTER%へ膜を晒している…
				CALL PRINT_STR, @"「え、えへへ_H_　ぶちぶちぃって…　やっちゃって良いんスよ？　%CNAME("二人称", "甘え")%_H_」_W"
				CALL SET_CEVENT, "発情破瓜"
			ELSE

			ENDIF
		ENDIF
	;非処女
	ELSE
		;IF TALENT:恋慕
			IF ABL:受虐属性 >= 5
				CFLAG:随机 = RAND:5
				IF CFLAG:随机 == 4
					CALL PRINT_STR, @"「うへへ_H_　%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%壊しちゃっても良いんスよ？_W_"
					CALL HANA_HANNYO
					PRINTFORMW 」
				ELSEIF CFLAG:随机 == 3
					CALL PRINT_STR, @"「%CNAME("一人称", "どもり")%の%TEXTR("まんこ/おまんこ/おだいじ")%力いっぱい…　欲しいっス_H__W_"
					CALL HANA_HANNYO
					PRINTFORMW 」
				ELSEIF CFLAG:随机 == 2
					CALL PRINT_STR, @"「はっ、はやくっ_H_　%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%を"
					IF SIZE("阴茎", PLAYER) >= 3
						PRINTFORM おっきい
					ENDIF
					CALL PRINT_STR, @"%TEXTR("ちんちん/おちんちん")%で壊して欲しいっス_H__W_"
					CALL HANA_HANNYO
					PRINTFORMW 」
				ELSEIF CFLAG:随机 == 1 && SIZE("阴茎", PLAYER) >= 3
					CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%のおっきい%TEXTR("ちんちん/おちんちん")%でぶちぶちぃって拡がってくの好きっス_H__W_"
					CALL HANA_HANNYO
					PRINTFORMW 」
				ELSE
					CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%、%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%を壊すほど愉しんで欲しいっス_H__W_"
					CALL HANA_HANNYO
					PRINTFORMW 」
				ENDIF
			ELSE

			ENDIF
		;ELSE
		;	IF ABL:受虐属性
		;
		;	ELSE
		;
		;	ENDIF
		;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 EX:Ｖ絶頂 >= 10
		CALL HANA_HANNYO
	;要去了なのに焦らされている
	;ELSEIF TEQUIP:PLAYER:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2
	;	IF TALENT:恋慕
	;
	;	ELSE
	;
	;	ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
		IF TALENT:恋慕
			 PRINTFORML 「こ、このかっこ…　きらいじゃないっスよ…　%CNAME("二人称", "甘え")%
			 CALL HANA_HANNYO
			PRINTFORMW 」
		ELSEIF CEVENT("强行") && CEVENT("强行イベント") == 0
			IF RAND:3 == 0
				PRINTFORM 「やだっ、やだよぉ…
			ELSEIF RAND:3
				PRINTFORM 「%CNAME("二人称")%っ、ダメっ、ダメっス…
			ELSE
				PRINTFORM 「ひっ…　や、やだっ…
			ENDIF
			CALL HANA_HANNYO
			PRINTFORML 」
			PRINTFORMW %CALLNAME:TARGET%は强行犯されたことがトラ马になっているのか弱弱しく泣いている…
		ELSE
			IF RAND:3 == 0
				PRINTFORM 「ほ、ホントはダメなんスからね！　%CNAME("二人称")%だから…
			ELSEIF RAND:3
				PRINTFORM 「ほ、ホントはダメなんスからね！　あ、あの時は勢いで…
			ELSE
				PRINTFORM 「ひゃんっ…　もー、%CNAME("二人称")%はし、仕方無いっスねぇ
			ENDIF
			CALL HANA_HANNYO
			PRINTFORMW 」
		ENDIF
	;それ以外
	ELSE
;		SELECTCASE CONDS("体位")
;		CASE "正常位", "屈曲位"
;			IF TALENT:恋慕 && RAND:3 == 0
;
;
;			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
;
;
;			ELSE
;
;
;			ENDIF
;		CASEELSE
			IF COND("発情期") && TALENT:恋慕 == 0
				CFLAG:随机 = RAND:4
				IF CFLAG:随机 == 0
					CALL PRINT_STR, @"「%CNAME("二人称")%っ_H_赤酱作るっス_H_ _H"
				ELSEIF CFLAG:随机 == 1
					CALL PRINT_STR, @"「%CNAME("一人称", "どもり")%の%TEXTR("まんこ/おまんこ/おだいじ")%にいっぱい%TEXTR("せーし/精子/せーえき/精液")%%TEXTR("びゅるびゅる/びゅーびゅー")%出して赤酱作るっス_H"
				ELSEIF CFLAG:随机 == 2
					CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%っ_H_　%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%できもちくなって…　子作りするっス_H_ _H"
				ELSE
					CALL PRINT_STR, @"「%CNAME("一人称", "どもり")%の%TEXTR("しきゅー/子宮/こどもへや/大事なところ")%の中にいっぱい%TEXTR("せーし/精子/せーえき/精液")%欲しいっス_H"
				ENDIF
				PRINTFORM
				CALL HANA_HANNYO
				PRINTFORMW 」
			;恋慕
			ELSEIF TALENT:恋慕
				IF TALENT:淫壷 || TALENT:淫乱
					CFLAG:随机 = RAND:4
					IF CFLAG:随机 == 0
						CALL PRINT_STR, @"「ち、ちんちんっ_H_%CNAME("二人称")%のちんちんくだひゃいっ_H"
					ELSEIF CFLAG:随机 == 1
						CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%っ_H_%CNAME("二人称")%の専用にくあなはここっスよっ_H__W"
					ELSEIF CFLAG:随机 == 2
						CALL PRINT_STR, @"「%CNAME("二人称")%のちんちんピッタリになっちゃったっス_H"
					ELSE
						PRINTFORML 「%CNAME("二人称")%のち、ちんちんにごりごりされるの…
						PRINTFORMW
						CALL PRINT_STR, "大好きっス…_H_ _H__L"
					ENDIF

					CALL HANA_HANNYO
					PRINTFORMW 」
				ELSE
					IF RAND:3 == 0
						CALL PRINT_STR, @"「セ、性交も悪く無いっスね、%CNAME("二人称")%_H"
					ELSEIF RAND:3
						PRINTFORM 「んふふー、%CNAME("二人称")%も%CNAME("一人称")%にメロメロっスね
					ELSE
						PRINTFORM 「あっ…　い、入れるんスね%CNAME("二人称")%…
					ENDIF

					CALL HANA_HANNYO
					PRINTFORMW 」
				ENDIF
			ELSEIF CEVENT("强行") && CEVENT("强行イベント") == 0
				CFLAG:随机 = RAND:4
				IF CFLAG:随机 == 0
					PRINTFORM 「せ、性交いやぁ…
				ELSEIF CFLAG:随机 == 1
					PRINTFORM 「%CNAME("二人称", "どもり")%…　怖い…
				ELSEIF CFLAG:随机 == 2
					PRINTFORM 「だ、だめ…
				ELSE
					PRINTFORM 「やだっ…　できちゃうっス…
				ENDIF
				PRINTFORM
				CALL HANA_HANNYO
				PRINTFORML 」
				PRINTFORMW %CALLNAME:TARGET%は强行犯されたことがトラ马になっているのか弱弱しく泣いている…
			;それ以外
			ELSE
				CFLAG:随机 = RAND:4
				IF CFLAG:随机 == 0
					PRINTFORM 「あっ、%CNAME("二人称")%…　ダメっス…
				ELSEIF CFLAG:随机 == 1
					PRINTFORM 「%CNAME("二人称", "どもり")%…　いやっス…
				ELSEIF CFLAG:随机 == 2
					PRINTFORM 「い、入れちゃダメっス　%CNAME("二人称")%…
				ELSE
					PRINTFORM 「やだっ…　できちゃうっス…
				ENDIF
				PRINTFORM
				CALL HANA_HANNYO
				PRINTFORMW 」
			ENDIF
;		ENDSELECT
	ENDIF
	RETURN 1
;-------------------------------------------------
;二穴挿入(書く場合には;を消してください)
;-------------------------------------------------
;ELSEIF SELECTCOM >= 60 && SELECTCOM <= 79 && COND("３Ｐ")
;	IF CHECK_COM("两根挿入Ｖ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ｖ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("两根挿入Ａ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ａ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("二穴挿入")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("二穴挿入")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ENDIF
ENDIF

;-------------------------------------------------
;正常位
;-------------------------------------------------
IF SELECTCOM == 60
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;後背位
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;屈曲位
;-------------------------------------------------
IF SELECTCOM == 62
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;対面座位
;-------------------------------------------------
IF SELECTCOM == 63
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;背面座位
;-------------------------------------------------
;背面座位
IF SELECTCOM == 64
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;挿入刺激Ｇ点
;-------------------------------------------------
IF SELECTCOM == 66
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && CEVENT("强行") == 0
		CALL PRINT_STR, "「ひっ_H_　いまのごりって…」_W"
	;それ以外
	ELSE
		IF EX:Ｖ絶頂 >= 10
			CALL HANA_HANNYO
		;恋慕
		ELSEIF TALENT:恋慕
			IF RAND:3 == 0
				CALL PRINT_STR, "「そこっ、おかひくっ_H"
			ELSEIF RAND:3
				CALL PRINT_STR, @"「だめっだめっ、%CNAME("一人称")%っおかしくなっちゃ_H"
			ELSE
				PRINTFORM 「セ、センパ…
			ENDIF

			CALL HANA_HANNYO
			PRINTFORMW 」
		ELSEIF CEVENT("强行") && CEVENT("强行イベント") == 0
			PRINTFORM 「や、やめっ…
			CALL HANA_HANNYO
			PRINTFORMW 」
		;それ以外
		ELSE
			IF RAND:3 == 0
				PRINTFORM 「そこっ、おかひくっ
			ELSEIF RAND:3
				PRINTFORM 「だめっだめっ、%CNAME("一人称")%っおかしくなっちゃ
			ELSE
				PRINTFORM 「セ、センパ…
			ENDIF

			CALL HANA_HANNYO
			PRINTFORMW 」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;挿入子宮口玩弄
;-------------------------------------------------
IF SELECTCOM == 67
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0 && CEVENT("强行") == 0
		CALL PRINT_STR, @"「ひぎゅっ_H_%CNAME("二人称", "どもり")%…　い、いい　いまの…すごっ…っス…」_L"
		PRINTFORMW %CALLNAME:TARGET%は子宮口を突かれ未知の快楽に目を白黒させている…
	;二回目以降
	;それ以外
	ELSE
		IF EX:Ｖ絶頂 >= 10
			CALL HANA_HANNYO
		;恋慕
		ELSEIF TALENT:恋慕
			CFLAG:随机 = RAND:5
			PRINTFORM 「
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"あっ、ま　またっ%TEXTR("しきゅー/子宮口/こどもへや/大事なところ")%っいじめちゃうっスか_H"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"だ、だめっ_H_%CNAME("一人称")%の%TEXTR("しきゅー/子宮口/こどもへや/大事なところ")%こわれちゃうっス_H"
			ELSEIF CFLAG:随机 == 2
				CALL PRINT_STR, @"%CNAME("二人称")%っ_H_%CNAME("二人称")%っ_H_%TEXTR("しきゅー/子宮口/こどもへや/大事なところ")%可愛がって_H"
			ELSEIF CFLAG:随机 == 3 && COND("子宮口弛緩度") > 2
				CALL PRINT_STR, @"%CNAME("一人称")%っ_H_%CNAME("一人称")%っ_H_%CNAME("二人称")%にならっ%TEXTR("しきゅー/子宮口/こどもへや/大事なところ")%の中もっ_H"
			ELSE
				PRINTFORM
			ENDIF

			CALL HANA_HANNYO
			PRINTFORMW 」
		ELSEIF CEVENT("强行") && CEVENT("强行イベント") == 0
			PRINTFORM 「や、やめっ…
			CALL HANA_HANNYO
			PRINTFORMW 」
		;それ以外
		ELSE
			CFLAG:随机 = RAND:5
			 IF CFLAG:随机 == 0
				PRINTFORM 「あっ、ま　またっ%TEXTR("しきゅー/子宮口/こどもへや/大事なところ")%っいじめちゃうっスか
			ELSEIF CFLAG:随机 == 1
				PRINTFORM 「だ、だめっ
				PRINTFORM %CNAME("一人称")%の%TEXTR("しきゅー/子宮口/こどもへや/大事なところ")%…　こわれちゃうっス
			ELSEIF CFLAG:随机 == 2
				PRINTFORM 「やっ、
				PRINTFORM %TEXTR("しきゅー/子宮口/こどもへや/大事なところ")%きつっ…
			ELSEIF CFLAG:随机 == 3 && COND("子宮口弛緩度") > 2
				PRINTFORM 「%CNAME("二人称", "どもり")%…　こわれちゃ…
			ELSE
				PRINTFORM 「や、やだっ…　%CNAME("一人称")%の%TEXTR("しきゅー/子宮口/こどもへや/大事なところ")%が…
			ENDIF
			PRINTFORM

			CALL HANA_HANNYO
			PRINTFORMW 」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;子宮挿入
;-------------------------------------------------
IF SELECTCOM == 68
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		CALL PRINT_STR, @"「あっ、ああっ…_H_セン…餡餅…%CNAME("一人称")%の中…　ど、どーっスか_H_」"
		PRINTFORMW %CALLNAME:TARGET%は初めての子宮内部への挿入に目を白黒させながらも、その異常な刺激に慣れようとしている…
	;二回目以降
	ELSE
		IF EX:Ｖ絶頂 >= 10
			CALL HANA_HANNYO
		;恋慕
		ELSEIF TALENT:恋慕
			IF RAND:3 == 0 && (TALENT:淫乱 || TALENT:淫壷 || EXP:子宮姦経験 > 30)
				CALL PRINT_STR, @"「ぼっ%CNAME("一人称")%の%TEXTR("しきゅー/子宮/こどもへや/大事なところ/子宮飞机杯")%でいっぱい…たのっ_H_愉しんで…　欲しいっス"
			ELSEIF RAND:2 && (TALENT:淫乱 || TALENT:淫壷)
				CALL PRINT_STR, @"「あはっ_H_セ、セセセッ%CNAME("二人称")%っ_H_%CNAME("一人称")%の%TEXTR("しきゅー/子宮/こどもへや/大事なところ")%っ　きもちいっスか？_H"
			ELSE
				CALL PRINT_STR, @"「セッ%CNAME("二人称")%っ_H_%CNAME("一人称")%の%TEXTR("しきゅー/子宮/こどもへや/大事なところ")%壊しちゃうんスね_H"
			ENDIF
			PRINTFORM
			CALL HANA_HANNYO
			PRINTFORM
			CFLAG:随机 = RAND:5
			IF CFLAG:随机 == 0
				CALL PRINT_STR, "こわれちゃうっス_H"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, "おかしくっなるっ_H"
			ELSEIF CFLAG:随机 == 2
				CALL PRINT_STR, "そこっ_H_しゅきっ_H"
			ELSEIF CFLAG:随机 == 3
				CALL PRINT_STR, "ダメっダメっ　いっいぃいいぃいっ_H_ _H"
			ELSE
				CALL PRINT_STR, @"%CNAME("二人称")%っ_H_%CNAME("二人称")%っ_H_%CNAME("二人称")%っ_H_ _H"
			ENDIF
			PRINTFORMW  」
		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ挿入系初選択
;疼痛が少なく楽しめているかはCHECK("Ａ挿入")で判定
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	;Ａ処女
	IF TALENT:Ａ処女
		;恋慕
		IF TALENT:恋慕
			IF EXP:Ａ経験 >= 40

			ELSE

			ENDIF
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			IF EXP:Ａ経験 >= 40

			ELSE

			ENDIF
		;それ以外
		ELSE
			IF EXP:Ａ経験 >= 40

			ELSE

			ENDIF
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF EXP:Ａ経験 >= 40

			ELSE

			ENDIF
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			IF EXP:Ａ経験 >= 40

			ELSE

			ENDIF
		;それ以外
		ELSE
			IF EXP:Ａ経験 >= 40

			ELSE

			ENDIF
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ａ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;巨根
	ELSEIF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			PRINTFORMW
		;対面座位
		CASE 73
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE

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

		ELSE

		ENDIF
	;余裕が無い
	ELSEIF CHECK("Ａ挿入") == 0
		IF TALENT:尻穴狂い

		ELSE

		ENDIF
		RETURN 0
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
		IF TALENT:恋慕
			IF TALENT:尻穴狂い

			ELSE

			ENDIF
		ELSE

		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0

			ELSEIF MARK:屈服刻印 >= 2 && RAND:2

			ELSE

			ENDIF
		CASEELSE
			IF RAND:4 == 0

			ELSEIF RAND:3 == 0

			ELSEIF RAND:2

			ELSE

			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで)
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 74
	;余裕が無い
	IF CHECK("Ａ挿入") == 0

		RETURN 0
	;恋慕
	ELSEIF TALENT:恋慕

		RETURN 0
	;それ以外
	ELSE

		RETURN 0
	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:恋慕

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;雙乳間抽插
;-------------------------------------------------
IF SELECTCOM == 81
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;乳頭奸
;-------------------------------------------------
IF SELECTCOM == 82
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF RAND:2 == 0
			CALL PRINT_STR, @"「えっえっ、%CNAME("二人称", "どもり")%っ…　%TEXTR("ちんちん/おちんちん")%が…ちくびっ、ちくびに入って…_H_ _H_」_L"
		ELSE
			CALL PRINT_STR, @"「あっ_H_ちっちくびっ…入って…んんっ_H_」_L"
		ENDIF
		PRINTFORMW %CALLNAME:TARGET%は%TEXTR("陰茎/阴茎/肉槍/肉棒")%をズブズブと飲み込んでいく自分の乳房という異常な光景、それ以上に与えられる快楽に悶えている…
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		IF EX:Ｂ絶頂 >= 10
			CALL PRINT_STR, @"「あ、あはっ…_H_もっときもちくなって…　いーっスよ？　%CNAME("二人称")%_H_」_W"
		ELSE
			CFLAG:随机 = RAND:5
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"「%TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%でっ、%TEXTR("ちんちん/おちんちん")%食べちゃう…っス_H_　"
			ELSEIF CFLAG:随机 == 1 || SIZE("阴茎", PLAYER) >= 2
				PRINTFORM 「こんなおっきいの…%TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%壊れちゃうっス…
			ELSEIF CFLAG:随机 == 2
				PRINTFORM 「ボ、%CNAME("二人称")%の%TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%…壊れちゃうっスよぉ…
			ELSEIF CFLAG:随机 == 3
				PRINTFORM 「んひゅっ、%TEXTR("ちくび/乳頭")%がぁ…
			ELSE
				CALL PRINT_STR, @"「%CNAME("一人称")%の胸部に入っちゃったっスね…_H_　"
			ENDIF
			CALL HANA_HANNYO
			CFLAG:随机 = RAND:6
			IF CFLAG:随机 == 0
				PRINTFORMW %CNAME("二人称")%、ひゅごしゅぎっひゅ…」
			ELSEIF CFLAG:随机 == 1
				PRINTFORMW ちくび…閉じなくなっひゃ…　っス…」
			ELSEIF CFLAG:随机 == 2
				PRINTFORMW んっ、%CNAME("一人称")%の胸部…　きもちかったっスか…？」
			ELSEIF CFLAG:随机 == 3
				PRINTFORMW %CNAME("二人称", "どもり")%、こわれちゃ…　っス…」
			ELSEIF CFLAG:随机 == 4 && EX:乳内射精 >= 5
				CALL PRINT_STR, @"あはっ_H_　%CNAME("一人称")%の%TEXTR("胸部/胸")%…　ふくらんじゃったっス_HH_」"
			ELSE
				PRINTFORMW あ、あはっ…　ちくび…　しゅごい…」
			ENDIF
		ENDIF
	;それ以外
	ELSEIF EX:Ｂ絶頂 >= 10
		CALL HANA_HANNYO
	ELSE
		CFLAG:随机 = RAND:8
		IF CFLAG:随机 == 0
			PRINTFORM 「あっ、ちくびni↘入って…
		ELSEIF CFLAG:随机 == 1 && SIZE("阴茎", PLAYER) >= 2
			PRINTFORM 「そんなおっきいの…壊れちゃうっス…
		ELSEIF CFLAG:随机 == 2
			PRINTFORM 「ボ、%CNAME("二人称")%の胸部…壊れちゃうっスよぉ…
		ELSEIF CFLAG:随机 == 3
			PRINTFORM 「んひゅっ、ちくびがぁ…
		ELSEIF CFLAG:随机 == 4
			PRINTFORM 「そ、そんなのっ　んんっ…
		ELSEIF CFLAG:随机 == 5 && EX:乳内射精 >= 5
			PRINTFORM 「%CNAME("二人称", "どもり")%出しすぎっ、%CNAME("一人称")%の%TEXTR("胸部/胸")%膨らんじゃってっ
		ELSEIF CFLAG:随机 == 6 && EX:乳内射精 >= 5
			CALL PRINT_STR, @"「んひっ_H_　%CNAME("一人称", "どもり")%の%TEXTR("胸部/胸")%破裂しちゃっ…"
		ELSE
			PRINTFORM 「%CNAME("二人称", "どもり")%の%CNAME("一人称")%っ…　%CNAME("一人称")%ぅ…
		ENDIF
		PRINTFORM
		CALL HANA_HANNYO

		PRINTFORML
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0
			PRINTFORM %CNAME("一人称")%、ひゅごしゅぎっひゅ…
		ELSEIF CFLAG:随机 == 1
			PRINTFORM ちくび…閉じなくなっひゃ…　っス…
		ELSEIF CFLAG:随机 == 2
			PRINTFORM んっ、%CNAME("一人称")%の胸部…　きもちかったっスか…？
		ELSEIF CFLAG:随机 == 3
			PRINTFORM セ、%CNAME("一人称")%、こわれちゃ…　っス…
		ELSE
			PRINTFORM あ、あはっ…　ちくび…　しゅごい…
		ENDIF
		PRINTFORML 」
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0
			PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の胸の形を変えてしまう勢いで乳腺内部を蹂躙した…
		ELSEIF CFLAG:随机 == 1
			PRINTFORMW %CALLNAME:MASTER%の亀頭が%CALLNAME:TARGET%の胸表面に浮かび上がり、突き破ってしまうのではないかと言う勢いで無遠慮に扱いた…
		ELSEIF CFLAG:随机 == 2 && EX:乳内射精 >= 5
			PRINTFORMW %CALLNAME:TARGET%の胸は乳内射精の影響で水風船の様に膨れ上がり%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を楽しませた…
		ELSEIF CFLAG:随机 == 3 && EX:乳内射精 >= 5
			PRINTFORMW %CALLNAME:TARGET%の胸は乳内射精の影響で一回り以上に大きくなり%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%をふわふわと包み込んでいる…
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 83 && SELECTCOM <= 88 && FIRSTCOMS("尿道挿入") == 0
	;被逆推ている時
	IF TEQUIP:推倒 || SELECTCOM == 88
		IF COND("初Ｖ性交") == PLAYER && COND("初Ａ性交") == PLAYER
			CALL PRINT_STR, @"「え、えへへ%CNAME("二人称")%に前の処女も……　後ろの処女も捧げて_H_　%TEXTR("にょ、にょーどー/にょ、尿道/お、おしっこ穴/オ、オシッコ穴")%の処女も%CNAME("二人称")%にあげちゃうっス_H_　んんっ…_H__L"
			CALL PRINT_STR, @"この体…　全部%CNAME("二人称")%のモノっスね…_H_」_L"
			PRINTFORMW 遂にはすべての肉孔を%CALLNAME:MASTER%へ捧げてしまった%CALLNAME:TARGET%の尿道はその事実だけでキュウキュウと肉槍を締め付けてきた…
		ELSEIF TALENT:尿道狂
			CALL PRINT_STR, @"「や、やっとにょーどーで……　%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%っ、食べられるっス_H__L"
			CALL PRINT_STR, @"にょーどー中出しって…　ど、どーなんスかね…_H_」_L"
			PRINTFORMW 尿道での快楽を覚えてしまった%CALLNAME:TARGET%は尿道で味わう精液の味を楽しみに微笑起来る…
		ELSE
			PRINTFORML 「んっ…　う、うまく入らないっス、%CNAME("二人称")%っ…」
			PRINTFORML %CALLNAME:TARGET%はうまく挿入らずただただ尿道口を擦り上げ快楽を味わうだけであったが、
			PRINTFORMW その行為を繰り返すうち綻び始めた尿道口を徐々に割り裂き進入してゆく…
			CALL PRINT_STR, @"「あっあっ、ああぁぁっ……　は、挿入った…　%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%…　挿入ったっス…_H_」_W"
		ENDIF
	;それ以外
	ELSE
		IF COND("初Ｖ性交") == PLAYER && COND("初Ａ性交") == PLAYER
			CALL PRINT_STR, @"「え、えへへ%CNAME("二人称")%に前の処女も……　後ろの処女も捧げて_H_%TEXTR("にょ、にょーどー/にょ、尿道/お、おしっこ穴/オ、オシッコ穴")%の処女も%CNAME("二人称")%に奪われちゃうっス_H_んんっ…_H__L"
			CALL PRINT_STR, @" この体…　全部%CNAME("二人称")%のモノっスね…_H__L"
			PRINTFORMW 遂にはすべての肉孔を%CALLNAME:MASTER%へ捧げてしまった%CALLNAME:TARGET%の尿道はその事実だけでキュウキュウと肉槍を締め付けてきた…
		ELSEIF TALENT:尿道狂
			CALL PRINT_STR, @"「や、やっと%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%で……　%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%っ、食べられるっス_H__L"
			CALL PRINT_STR, @"%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%中出しって…　ど、どーなんスかね…_H_」_L"
			PRINTFORMW 尿道での快楽を覚えてしまった%CALLNAME:TARGET%は尿道で味わう精液の味を楽しみに微笑起来る…
		ELSE
			PRINTFORML 「や、やっぱり%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%は中々是らな…　ひぎゅっ」
			PRINTFORML %CALLNAME:TARGET%の尿道には　やはりというかうまく挿入らずただただ尿道口を擦り上げ快楽を与えるだけであったが、
			PRINTFORMW その行為を繰り返すうち綻び始めた尿道口を徐々に割り裂き進入してゆく…
			CALL PRINT_STR, @"「あっあっ、ああぁぁっ……　は、挿入った…　%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%…　は、挿入ったっス…_H_」_W"
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初尿道挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 83 && SELECTCOM <= 88 && CHOSECOMS("尿道挿入") == 0 && FIRSTCOM(SELECTCOM)
	IF EX:尿道絶頂 >= 20 && RAND:3 == 0
		CFLAG:随机 = RAND:3
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"「是って、くゆぅ…_H_"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"「%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　是っひゃ…_H_"
		ELSE
			CALL PRINT_STR, @"「"
		ENDIF

		PRINTFORM
		CALL HANA_HANNYO
		PRINTFORMW 」

	ELSEIF TALENT:尿道狂 || ABL:尿道感覚 > 10
		IF SELECTCOM == 83 || SELECTCOM == 84
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"「あ、あっ_H_ああっ…_HH_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%是って…くぅ_H_"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"「%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ひろがっちゃっ_H_"
			ELSE
				CALL PRINT_STR, @"「あはっ_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%っスねっ_H_　いっぱい…きもちくぅっ…_H_"
			ENDIF

			PRINTFORM
			CALL HANA_HANNYO
			PRINTFORM

			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"あ、あはっ_H_奥までいっぱい…っス…_H_」_W"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"ひんっ_H_%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%までぇ…　いっぱい…_HH_」_W"
			ELSE
				CALL PRINT_STR, @"%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…ひゅきっ_H_」_W"
			ENDIF
		ELSEIF SELECTCOM == 85
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"「しゅごひっ_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ひろがっちゃってりゅっ_H_"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"「はひゅっ_HH_%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%こわされちゃうっ_H_"
			ELSEIF CFLAG:随机 == 2 && BASE:尿意 >= 10000
				CALL PRINT_STR, @"「み、見えるスか_H_　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%のいりぐちからおしっこがごぽごぽって_HH_"
			ELSE
				CALL PRINT_STR, @"「ひぎゅっ_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%っ、がっ_H_　はひっ_H_"
			ENDIF

			PRINTFORM
			CALL HANA_HANNYO
			PRINTFORM

			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"_HH_　しゅごっ…　ひっ_H_」_W"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"あ、あは_H_　いっぱ…　い_H_」_W"
			ELSE
				CALL PRINT_STR, @"%CNAME("二人称", "どもり")%っ、しゅきっ_H_」_W"
			ENDIF
		ELSEIF SELECTCOM == 87 || SELECTCOM == 86
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"「う从后面将っ…　っスね_H_　いーっスよっ_H_"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"「うしろっ_H_　从后面将%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ずんずんすきっ_HH_"
			ELSE
				CALL PRINT_STR, @"「やぶれりゅっ_H_　%CNAME("一人称")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%…　やぶれちゃっ_HH_"
			ENDIF

			PRINTFORM
			CALL HANA_HANNYO
			PRINTFORM

			PRINTFORMW 」
		ELSEIF SELECTCOM == 88
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"「ほ、ほらっ_HH_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に…　入っちゃうっスよっ_HH_"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"「%TEXTR("ぼっ膀胱/ぼっぼーこー/おっおしっこ袋/おっオシッコ袋")%まで…　いっぱひっ_H_"
			ELSE
				CALL PRINT_STR, @"「%CNAME("一人称", "どもり")%がいれて…　いーんスかっ_H_"
			ENDIF

			PRINTFORM
			CALL HANA_HANNYO
			PRINTFORM

			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"おにゃか…いっぱ、ひっ_H_」_W"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"しゅきっ_H_　%TEXTR("にょーどー/尿道/おしっこあにゃっ/オシッコあにゃっ")%しゅきっ_H_」_W"
			ELSE
				CALL PRINT_STR, @"ずんずんしゅきっ_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%いじめりゅのしゅきっ_H_」_W"
			ENDIF
		ENDIF
	ELSE
		IF SELECTCOM == 83 || SELECTCOM == 84
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				PRINTFORM 「前からっスか？　し、仕方ないっスね、%CNAME("二人称")%はっ
			ELSEIF CFLAG:随机 == 1
				PRINTFORM 「べ、別に…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%嫌いじゃないっスけど
			ELSE
				CALL PRINT_STR, @"「んっ_H_　そんな押し込んだら…　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%壊れちゃうっスよ"
			ENDIF

			PRINTFORM
			CALL HANA_HANNYO
			PRINTFORM

			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				PRINTFORMW %CNAME("二人称", "どもり")%…　はげし、すぎっス…」
			ELSEIF CFLAG:随机 == 1
				PRINTFORMW も、もっと…　ちがっ、違うんス%CNAME("一人称")%は…　はひゅっ」
			ELSE
				PRINTFORMW せんぱっ…　つよすぎっ」
			ENDIF
		ELSEIF SELECTCOM == 85
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				PRINTFORM 「ちょっ、いーっスから、　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に入るとこ見せなくていーっスからぁ
			ELSEIF CFLAG:随机 == 1
				PRINTFORM 「う、うわぁ…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%拡がって…　ひゃっ
			ELSE
				CALL PRINT_STR, "「やっ、そんなゆっくり…　んんっ_H"
			ENDIF

			PRINTFORM
			CALL HANA_HANNYO
			PRINTFORM

			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				CALL PRINT_STRW, "おなか…　ぐにぐにうごいてる…_H_」"
			ELSEIF CFLAG:随机 == 1
				PRINTFORMW %TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%やぶれちゃっ…」
			ELSE
				CALL PRINT_STRW, @"%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%ぐりぐり…　きらいじゃないっスよ…_H_」"
			ENDIF
		ELSEIF SELECTCOM == 87 || SELECTCOM == 86
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				PRINTFORM 「み、みえないってちょっと怖いっスね
			ELSEIF CFLAG:随机 == 1
				PRINTFORM 「あ、あっ、あっ…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ひろがって…
			ELSE
				PRINTFORM 「う、从后面将…　是ってっ
			ENDIF

			PRINTFORM
			CALL HANA_HANNYO
			PRINTFORM

			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				PRINTFORMW %TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%…ずんずんって、やぶれちゃっ…」
			ELSEIF CFLAG:随机 == 1
				PRINTFORMW びりびりって、すごっ…」
			ELSE
				PRINTFORMW せんぱっ、そんな从后面将がっついちゃっ…」
			ENDIF
		ELSEIF SELECTCOM == 88
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				PRINTFORM 「さ、さすがに体重かけるのは怖いっス…
			ELSEIF CFLAG:随机 == 1
				PRINTFORML 「うーん…　うまく是らなっ…　あっ、あ、あぁっ…」
				PRINTFORML %CALLNAME:TARGET%は自らぐいぐいと加減をしながら体重を掛け、%TEXTR("尿道口/狭孔/排泄腔")%へ入れようとしているが
				PRINTFORM 体重を支えるために置いていた手が滑り、『ずるり』と膀胱
					SIF SIZE("阴茎", PLAYER) >= 2
						PRINTFORM 手前
				PRINTFORMW まで一気に貫いてしまう
				PRINTFORM 「あ…　かひゅっ…　おく、まで…
				CALL SET_CEVENT, "尿道騎乗位"
			ELSE
				PRINTFORM 「あ、あはっ…　自己…%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%こわしちゃ…
			ENDIF

			CALL HANA_HANNYO
			PRINTFORM

			IF CEVENT("尿道騎乗位")
				PRINTFORML あ、あは…あはは…　%CNAME("一人称")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%まで、いっぱい…」
				CALL DEL_CEVENT, "尿道騎乗位"
			ELSE
				IF SIZE("阴茎", PLAYER) >= 4
					PRINTFORMW せ、せんぱっ…　%TEXTR("ちんちん/おちんちん")%おっきすぎっ…」
				ELSEIF SIZE("阴茎", PLAYER) >= 3
					PRINTFORMW さ、さすがに全部はっ…　んんっ…」
				ELSE
					PRINTFORMW はっはっ、んっ…あはっ…　おなか、いっぱい…」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1

;-------------------------------------------------
;尿道系連続実行
;-------------------------------------------------
ELSEIF SELECTCOM >= 83 && SELECTCOM <= 88 && (CHECK_COM("連続実行") || INSERT("尿道挿入")) && CFLAG:随机 >= 34 && CFLAG:随机 <= 66
	IF EX:尿道絶頂 >= 20
		PRINTFORM 「
		CALL HANA_HANNYO
	ELSEIF TALENT:尿道狂 || ABL:尿道感覚 > 10
		CFLAG:随机 = RAND:20
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"「まっ、まだ離さないっスよ　%CNAME("二人称")%_H"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"「きもちいっ_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%きもちっ"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"「ぜ、ぜーんぶ%CNAME("一人称")%に任せていーっスよ、%CNAME("二人称")%_H"
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"「しゅきっ_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%らいひゅきっ"
		ELSEIF CFLAG:随机 == 4 && CALCF("尿道径") <= SIZE("阴茎の直径", MASTER)
			CALL PRINT_STR, @"「はひっ_H_%TEXTR("ちんちん/おちんちん")%出たり入ったりで%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%すっごいのびて…_H_"
		ELSEIF CFLAG:随机 == 5 && CALCF("尿道径") >= SIZE("阴茎の直径", MASTER)
			CALL PRINT_STR, @"「はひゅっ_H_　もっと、%TEXTR("ずんずん/じゅぷじゅぷ")%ちゅいてっ_HH_"
		ELSEIF CFLAG:随机 == 6 && EXP:尿道性交経験 > 200
			CALL PRINT_STR, @"「あっ_H_はひゅっ_H_　しゅきっ_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%きもちひっ_H_"
		ELSEIF CFLAG:随机 == 7
			CALL PRINT_STR, @"「しゅごひっ_H_　おなか膨らんでっ_HH_"
		ELSEIF CFLAG:随机 == 8 && CALCF("尿道径") < SIZE("阴茎の直径", MASTER)
			CALL PRINT_STR, @"「はひゅっ_H_　%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%おっきすぎて…　戻んなくなっちゃうっス_H_"
		ELSEIF CFLAG:随机 == 9 && CALCF("尿道径") > SIZE("阴茎の直径", MASTER)
			CALL PRINT_STR, @"「はひゅっ_H_　%CNAME("二人称")%がいっぱい%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%いじめるから…　戻んなくなっちゃったっス_H_"
		ELSEIF CFLAG:随机 == 10 && EXP:尿道性交経験 > 200
			CALL PRINT_STR, @"「あはっ…_H_　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%ぐりぐり…　すきっ_H_"
		ELSEIF CFLAG:随机 == 11
			CALL PRINT_STR, @"「はひゅっ_H_　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%ずんずんくりゅっ_H_"
		ELSEIF CFLAG:随机 == 12 && CALCF("尿道径") <= SIZE("阴茎の直径", MASTER)
			CALL PRINT_STR, @"「%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ぎちぎちni↘_H_　"
		ELSEIF CFLAG:随机 == 13 && CALCF("尿道径") >= SIZE("阴茎の直径", MASTER)
			PRINTFORM 「も、もっと、もっと奥までっ
		ELSEIF CFLAG:随机 == 14 && EXP:尿道性交経験 > 200
			PRINTFORM 「%CNAME("二人称", "どもり")%も%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%好きっスねぇ　%CNAME("一人称")%も嫌いじゃ　ないっス…けど…
		ELSEIF CFLAG:随机 == 15 && BASE:尿意 >= 10000
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"「あっ、あっ、おしっこだせにゃっ_H_　"
			ELSEIF CFLAG:随机 == 1
				PRINTFORM 「%CNAME("二人称", "どもり")%、　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%いっぱいで…
			ELSEIF CFLAG:随机 == 2
				CALL PRINT_STR, @"「%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%はれつしちゃっ_H_　"
			ELSE
				CALL PRINT_STR, @"「くるしいのに、きもちいっ_H_　"
			ENDIF
		ELSEIF CFLAG:随机 == 16
			CALL PRINT_STR, @"「えへへ、%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%でいっぱいきもちくなっていーんスよ_H_　"
		ELSEIF CFLAG:随机 == 17
			PRINTFORM 「んっ、ぎっ…　おなかが、ぼこぼこって動いて…
		ELSEIF CFLAG:随机 == 18 && CALCF("尿道径") <= SIZE("阴茎の直径", MASTER)
			PRINTFORM 「こわれちゃっ、壊れちゃうっ　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%壊れちゃうっスからっ
		ELSEIF CFLAG:随机 == 19 && CALCF("尿道径") >= SIZE("阴茎の直径", MASTER)
			PRINTFORM 「ひ、拡がりすぎちゃった、ス…
		ELSE
			PRINTFORM 「ひっ、奥まで…　%TEXTR("ずんずん/じゅぷじゅぷ")%ってぇ…
		ENDIF

		PRINTFORM
		CALL HANA_HANNYO
		PRINTFORM

		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0 && PALAM:快尿 > 9000
			CALL PRINT_STR, @"　だめっ_H_%CNAME("一人称")%っ%CNAME("一人称")%っ_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%でいっちゃ…_H"
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			CALL PRINT_STR, @"　おっ、おなかっ_H_くるしいのにきもちいっス_H_ _H"
		ELSEIF CFLAG:随机 == 2 && ABL:尿道名器度 > 180
			CALL PRINT_STR, @"　ど、どーっスかっ　きもちーっスか_H"
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"　%CNAME("一人称", "どもり")%っ%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%すきっ_H"
		ELSE
			CALL PRINT_STR, @"　%CNAME("二人称", "どもり")%っ_H_%CNAME("一人称", "どもり")%っ、%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%できもちくっ_H"
		ENDIF
		PRINTFORMW 」
	ELSE
		CFLAG:随机 = RAND:7
		IF CFLAG:随机 == 0
			PRINTFORM 「ひゃっ…　ま、まだヤるっスか
		ELSEIF CFLAG:随机 == 1 && CALCF("尿道径") <= SIZE("阴茎の直径", MASTER)
			PRINTFORM 「%CNAME("二人称", "どもり")%、%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%こわれちゃ
		ELSEIF CFLAG:随机 == 2 && CALCF("尿道径") >= SIZE("阴茎の直径", MASTER)
			PRINTFORM 「も、もっと奥まで…　ち、ちがっ%CNAME("一人称")%はっ
		ELSEIF CFLAG:随机 == 3
			PRINTFORM 「んんっ、%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%がじゅぷじゅぷって
		ELSEIF CFLAG:随机 == 4 && ABL:自慰中毒 >= 5
			PRINTFORM 「ちっ、違うっス…　これは…　%TEXTR("にょーどー/尿道")%おなにーじゃないっス…
		ELSEIF CFLAG:随机 == 5 && CALCF("尿道径") <= SIZE("阴茎の直径", MASTER)
			PRINTFORM 「んんっ…　%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%おっきすぎてちょっとキツいっス…
		ELSEIF CFLAG:随机 == 6 && CALCF("尿道径") >= SIZE("阴茎の直径", MASTER)
			PRINTFORM 「はっ、あっ…　き、きもちくなってなんか…
		ELSE
			PRINTFORM 「はっ、はひっ…　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%こわれちゃ・・・
		ENDIF

		PRINTFORM
		CALL HANA_HANNYO
		PRINTFORM

		CFLAG:随机 = RAND:11
		IF CFLAG:随机 == 0 && BASE:尿意 >= 10000
			PRINTFORM く、くるしっス…
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			PRINTFORM %CNAME("二人称")%ダメっっスダメっス！！
		ELSEIF CFLAG:随机 == 2 && BASE:尿意 >= 10000
			PRINTFORM おしっこっ、おしっこださせてっ
		ELSEIF CFLAG:随机 == 3 && BASE:尿意 >= 10000
			PRINTFORM おなかっ…　%TEXTR("ぐちゅっぐちゅっ/ちゃぷちゃぷっ")%って…
		ELSEIF CFLAG:随机 == 4 && BASE:尿意 >= 10000
			PRINTFORM %CNAME("二人称", "どもり")%…　%TEXTR("ちんちん/おちんちん")%ぬいてっ…　おなかがっ…
		ELSEIF CFLAG:随机 == 5 && BASE:尿意 >= 10000
			PRINTFORM %CNAME("二人称")%っ…　おなか、くるしっ…
		ELSEIF CFLAG:随机 == 6
			CALL PRINT_STR, @"きもちくなんてっ…_H"
		ELSEIF CFLAG:随机 == 7
			PRINTFORM 閉じなくなっちゃ…
		ELSEIF CFLAG:随机 == 8
			PRINTFORM 壊れるっ壊れちゃうっス！！
		ELSEIF CFLAG:随机 == 9
			PRINTFORM %TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　ひろがっちゃ・・・
		ELSEIF CFLAG:随机 == 10
			PRINTFORM %TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%こわれちゃ…
		ELSE
			PRINTFORM %TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%ぐりぐりって…
		ENDIF
		PRINTFORMW 」
	ENDIF
	RETURN 1
;-------------------------------------------------
;尿道挿入随机文
;-------------------------------------------------
ELSEIF SELECTCOM >= 83 && SELECTCOM <= 88 && CFLAG:随机 >= 0 && CFLAG:随机 <= 33
	;二回目以降
	;被逆推ているとき
	IF TEQUIP:推倒
		CFLAG:随机 = RAND:6
		IF CFLAG:随机  == 0 && ABL:自慰中毒 >= 4
			IF RAND:3 == 0
				CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%の%TEXTR("ちんちん/おちんちん")%は%CNAME("一人称")%の%TEXTR("おなにー/自慰")%用なんスから、じっとしてるっスよ_H__L"
			ELSEIF RAND:3
				CALL PRINT_STR, @"「きもちいっ_H_%CNAME("二人称")%%TEXTR("ちんちん/おちんちん")%で%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%%TEXTR("おなにー/自慰")%すきっ_H__L"
			ELSE
				CALL PRINT_STR, @"「きもちいっ_H_きもちいっ_H_きもちいっっ_H_ _H_ひゃんっ…　だ、ダメっスよ%CNAME("一人称")%の%TEXTR("おなにー/自慰")%邪魔しちゃ…　"
			ENDIF
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"「あっあっ_H_たっ、たべちゃうっスよ　%CNAME("二人称")%の%TEXTR("ち、ちんちん/お、おちんちん")%…_H"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"「%CNAME("二人称")%っ_H_「%CNAME("二人称")%_H_%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%愉しんで欲しいっス_H"
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"「んっんっんっんんんん～_H_は、挿入っちゃったっスね　%CNAME("二人称")%_H"
		ELSEIF CFLAG:随机 == 4
			CALL PRINT_STR, @"「えへへー_H_%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%で食べちゃうっスよー"
		ELSE
			CALL PRINT_STR, @"「%CNAME("二人称")%っ%CNAME("二人称")%っ_H_がっ我慢できないっス%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%で食べちゃうっス_H_ _H"
		ENDIF
		PRINTFORM
		CALL HANA_HANNYO
		PRINTFORM
		IF RAND:3 == 0
			CALL PRINT_STR, @"そこっ、そこぉっ_H"
		ELSEIF RAND:3
			CALL PRINT_STR, @"%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%しゅきっ_H"
		ELSE
			CALL PRINT_STR, @"%CNAME("二人称")%っ_H_%CNAME("二人称")%っ_H_%CNAME("二人称")%っ"
		ENDIF
		PRINTFORML 」
		PRINTFORMW %CALLNAME:TARGET%は表情を蕩けさせ%CALLNAME:MASTER%の上で腰を弾ませその異常な快楽を愉しんでいる…
	;それ以外
	ELSE
		IF EX:尿道絶頂 >= 20
			PRINTFORM 「
			CALL HANA_HANNYO
		ELSEIF TALENT:尿道狂 || ABL:尿道感覚 > 10
			CFLAG:随机 = RAND:5
			IF CFLAG:随机 == 0 && BASE:尿意 >= 10000
				CFLAG:随机 = RAND:4
				IF CFLAG:随机 == 0
					CALL PRINT_STR, @"「あっ、あっ、おしっこだせにゃっ_H_　"
				ELSEIF CFLAG:随机 == 1
					PRINTFORM 「%CNAME("二人称", "どもり")%、　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%いっぱいで…
				ELSEIF CFLAG:随机 == 2
					CALL PRINT_STR, @"「%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%はれつしちゃっ_H_　"
				ELSE
					CALL PRINT_STR, @"「くるしいのに、きもちいっ_H_　"
				ENDIF
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"「はっ_H_はっ_H_はっ_H_はっ_H_い、挿入れちゃう？挿入れちゃうっスか%CNAME("二人称")%っ_H_　"
			ELSEIF CFLAG:随机 == 2 && (ABL:尿道名器度 > 180 || COND("尿道弱点", PLAYER))
				CALL PRINT_STR, @"「え、えへへっ_H_%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ですぐにびゅーって出ちゃうっスね_H_　"
			ELSEIF CFLAG:随机 == 3
				CALL PRINT_STR, @"「えへへ_H_%CNAME("二人称")%っ_H_%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%こ、壊しちゃうっスか？_H_　"
			ELSE
				CALL PRINT_STR, @"%CNAME("二人称", "どもり")%っ_H_%CNAME("一人称")%のっ、%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に%TEXTR("ちんちん/おちんちん")%欲しいっス_H_　"
			ENDIF

			CALL HANA_HANNYO
			CFLAG:随机 = RAND:5
			IF CFLAG:随机 == 0 && PALAM:快尿 > 9000
				CALL PRINT_STR, @"　だめっ_H_%CNAME("一人称")%っ%CNAME("一人称")%っ_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%でいっちゃ…_H"
			ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
				CALL PRINT_STR, @"　おっ、おなかっ_H_くるしいのにきもちいっス_H_ _H"
			ELSEIF CFLAG:随机 == 2 && ABL:尿道名器度 > 180
				CALL PRINT_STR, @"　ど、どーっスかっ　きもちーっスか_H"
			ELSEIF CFLAG:随机 == 3
				CALL PRINT_STR, @"　%CNAME("一人称", "どもり")%っ%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%すきっ_H"
			ELSE
				CALL PRINT_STR, @"　%CNAME("二人称", "どもり")%っ_H_%CNAME("一人称", "どもり")%っ、%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%できもちくっ_H"
			ENDIF
			PRINTFORMW 」
		;それ以外
		ELSE
			CFLAG:随机 = RAND:5
			IF BASE:尿意 >= 10000
				CFLAG:随机 = RAND:4
				IF CFLAG:随机 == 0
					PRINTFORM 「%CNAME("二人称", "どもり")%　おなか、くるしっ…
				ELSEIF CFLAG:随机 == 1
					PRINTFORM 「おしっこ、ださせ…
				ELSEIF CFLAG:随机 == 2
					PRINTFORM 「%CNAME("二人称", "どもり")%、もれちゃう…　もれちゃ
				ELSE
					PRINTFORM 「お、おなかっキツッ…
				ENDIF
			ELSEIF CFLAG:随机 == 0 && BASE:尿意 >= 10000
				PRINTFORM 「%CNAME("二人称")%…　お、おしっこしたいっス…
			ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
				PRINTFORM 「おしっこっ、おしっこださせてっ
			ELSEIF CFLAG:随机 == 2
				PRINTFORM 「ま、また%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に　い、入れちゃうっスか
			ELSEIF CFLAG:随机 == 3
				PRINTFORM 「き、きもちくなってなんかっ…ひゃんっ
			ELSE
				PRINTFORM 「%CNAME("二人称", "どもり")%っ　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%壊れちゃうっス…
			ENDIF

			CALL HANA_HANNYO
			CFLAG:随机 = RAND:6
			IF CFLAG:随机 == 0 && BASE:尿意 >= 10000
				PRINTFORM く、くるしっス…
			ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
				PRINTFORM %CNAME("二人称")%ダメっっスダメっス！！
			ELSEIF CFLAG:随机 == 2 && BASE:尿意 >= 10000
				PRINTFORM おしっこっ、おしっこださせてっ
			ELSEIF CFLAG:随机 == 3
				CALL PRINT_STR, @"きもちくなんてっ…_H"
			ELSEIF CFLAG:随机 == 4
				PRINTFORM 閉じなくなっちゃ…
			ELSE
				PRINTFORM 壊れるっ壊れちゃうっス！！
			ENDIF
			PRINTFORMW 」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;尿道正常位
IF SELECTCOM == 83
	IF EX:尿道絶頂 >= 20
		PRINTFORM 「
		CALL HANA_HANNYO
	ELSEIF TALENT:尿道狂 || ABL:尿道感覚 > 10
		CFLAG:随机 = RAND:4
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && RAND:3 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 1 && TALENT:恋慕
			CALL PRINT_STR, @"「え、えへへ…　こーしてると、恋人みたいっスけど…　入れるのは%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%なんすよね_H__L"
		ELSEIF CFLAG:随机 == 2 && (ABL:尿道名器度 > 180 || COND("尿道弱点", PLAYER))
			CALL PRINT_STR, @"「あっ_H_　いーっスよ？　%CNAME("二人称")%のだいすきな%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%力いっぱい壊しちゃって_HH__L"
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"「んんんんっ_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%のいりぐちに%TEXTR("ちんちん/おちんちん")%出入りするたびっ　おにくまきこまれっ_H__L"
		ELSE
			CALL PRINT_STR, @"「んっ_H_　%CNAME("二人称", "甘え")%が%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%こわしちゃったんスから…　きもちよくしてっ_H__L"
		ENDIF
		CALL HANA_HANNYO
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0 && PALAM:快尿 > 9000
			CALL PRINT_STR, @"やっ_H_　はっ_HH_　こわれちゃっ_H_%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%こわえちゃうっ_HH_"
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			CALL PRINT_STR, @"きもちいっ_HH_　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%いっぱいがきもちいっ_HH_"
		ELSEIF CFLAG:随机 == 2 && ABL:尿道名器度 > 180
			CALL PRINT_STR, @"せんぱっ_HH_　きもちい、っスかっ_HH_　%CNAME("一人称")%の%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%きもちいっスかっ"
		ELSEIF CFLAG:随机 == 3 && TALENT:恋慕
			CALL PRINT_STR, @"せ、せんぱっ_HH_　ぎゅってしてっ_H_　それで、もっと%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%きもちくっ_HH_"
		ELSE
			CALL PRINT_STR, @""
		ENDIF
		PRINTFORMW 」
	;それ以外
	ELSE
		CFLAG:随机 = RAND:4
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && RAND:3 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 0 && BASE:尿意 >= 10000
			PRINTFORML 「%CNAME("二人称", "どもり")%っおしっこ…でちゃいそっ…
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			PRINTFORML 「せ、せんぱっ…%CNAME("一人称")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%いっぱ…いひゅっ…
		ELSEIF CFLAG:随机 == 2 && TALENT:恋慕 && TALENT:処女
			PRINTFORML 「%CNAME("二人称", "どもり")%、また%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%っスか？　%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%でも…　ひゃんっ
		ELSEIF CFLAG:随机 == 3 && TALENT:恋慕
			PRINTFORML 「んんっ、%TEXTR("にょ、にょーどーせっくす/にょ、尿道性交/お、おしっこ穴性交/オ、オシッコ穴性交")%は…　%CNAME("二人称")%だからさせてるんスからね…？
		ELSE
			PRINTFORML 「やっ、%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%もどらなくなっちゃっ…
		ENDIF
		CALL HANA_HANNYO
		PRINTFORM
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0 && BASE:尿意 >= 10000
			PRINTFORM おなか、くるしっ…
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			PRINTFORM でちゃうっ、おしっこでちゃうっスからっ！
		ELSEIF CFLAG:随机 == 2 && TALENT:恋慕
			CALL PRINT_STR, @"べ、別に%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%きらいじゃっ_H_　ないっスよ、%CNAME("二人称", "どもり")%とだからっ_HH_"
		ELSEIF CFLAG:随机 == 3
			PRINTFORM %TEXTR("ちんちん/おちんちん")%っずるずるぅって…　んんっ…
		ELSE
			PRINTFORM
		ENDIF
		PRINTFORMW 」
	ENDIF
ENDIF

;尿道後背位
IF SELECTCOM == 84
	IF EX:尿道絶頂 >= 20
		PRINTFORM 「
		CALL HANA_HANNYO
	ELSEIF TALENT:尿道狂 || ABL:尿道感覚 > 10
		CFLAG:随机 = RAND:4
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && RAND:3 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"「すきっ_H_　%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%しゅきっ_H_　うしろから%TEXTR("ちんちん/おちんちん")%できもちいとこ%TEXTR("ずるずる/ごりごり")%すきっス_HH__L"
		ELSEIF CFLAG:随机 == 2 && (ABL:尿道名器度 > 180 || COND("尿道弱点", PLAYER))
			CALL PRINT_STR, @"「き、きもちいっスかっ_H_　%CNAME("二人称")%%TEXTR("専用/せんよー")%%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%っ_HH__L"
		ELSEIF CFLAG:随机 == 3 && ABL:受虐属性 >= 5
			CALL PRINT_STR, @"「しゅきっ_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%乱暴に犯されるのらいしゅきっス_HH__L"
		ELSE
			CALL PRINT_STR, @"「ひゃひっ_H_%TEXTR("ちんちん/おちんちん")%で%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%のいりぐち突かれりゅとっ_H__L"
		ENDIF
		CALL HANA_HANNYO
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0 && PALAM:快尿 > 9000
			CALL PRINT_STR, @"あっ、あぁっ、あーっ_H_　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%のいりぐちっ、ぐりぐりだめっ_H_　だめっス_HH_"
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			CALL PRINT_STR, @"%CNAME("二人称", "どもり")%の%TEXTR("ちんちん/おちんちん")%おしっこがまんっ_HH_　あたまおかしくなるくらいきもちいっスよ_HH_"
		ELSEIF CFLAG:随机 == 2 && (ABL:尿道名器度 > 180 || COND("尿道弱点", PLAYER))
			CALL PRINT_STR, @"そ、そんなに%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ずんずんってして…　%CNAME("一人称", "どもり")%のきもちいっスか…_H_"
		ELSEIF CFLAG:随机 == 3 && COND("喜欢的体位中")
			CALL PRINT_STR, @"%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%_H_　%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%しゅきっ_HH_　%TEXTR("わんわん/犬/動物/どーぶつ")%みたいな%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%らいしゅきっ_H_"
		ELSE
			CALL PRINT_STR, @"あひゃっ_H_　%TEXTR("ちんちん/おちんちん")%のさきっぽが…　%TEXTR("阴蒂/阴蒂/阴蒂酱/お豆")%のねっこni↘_HH_"
		ENDIF
		PRINTFORMW 」
	;それ以外
	ELSE
		CFLAG:随机 = RAND:4
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && RAND:3 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 0 && BASE:尿意 >= 10000
			PRINTFORML 「で、でちゃっ、%TEXTR("ちんちん/おちんちん")%ぬいたらおしっこでちゃっ…
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			PRINTFORML 「ぐっ、ひ、ひぎゅっ…　%CNAME("二人称", "どもり")%おしっこいっぱ…い…
		ELSE
			PRINTFORML 「やっ、そんなに%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%突いちゃ…　壊れちゃうっスよっ
		ENDIF
		CALL HANA_HANNYO
		PRINTFORM
		CFLAG:随机 = RAND:4
		IF CFLAG:随机 == 0 && BASE:尿意 >= 10000
			PRINTFORM 或っ、んんっ…　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%はれつしちゃ…
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"そ、そんな%TEXTR("わんわん/犬/動物/どーぶつ")%みたいに…　ひゃっ…_H_"
		ELSEIF CFLAG:随机 == 3 && TALENT:恋慕
			PRINTFORM んっ、%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%き、きらいじゃ…ないっスよ…？
		ELSE
			PRINTFORM ひゃんっ…　%TEXTR("ちんちん/おちんちん")%のさきっぽが…　%TEXTR("阴蒂/阴蒂/阴蒂酱/お豆")%のねっこni↘…
		ENDIF
		PRINTFORMW 」
	ENDIF
ENDIF

;尿道屈曲位
IF SELECTCOM == 85
	IF EX:尿道絶頂 >= 20
		PRINTFORM 「
		CALL HANA_HANNYO
	ELSEIF TALENT:尿道狂 || ABL:尿道感覚 > 10
		CFLAG:随机 = RAND:4
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && RAND:3 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"「だ、だめっス_H_　%CNAME("一人称")%が%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%できもちくなってるとこみちゃっ_H__L"
		ELSEIF CFLAG:随机 == 2 && (ABL:尿道名器度 > 180 || COND("尿道弱点", PLAYER))
			CALL PRINT_STR, @"「ひゃっ_H_やっ_H_　きもちーんスねっ_HH_すごい勢いで%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%こわれちゃひっ_HH__L"
		ELSEIF CFLAG:随机 == 3 && TALENT:恋慕
			CALL PRINT_STR, @"「こ、恋人みたいっスね_H_　入ってるのは%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%っスけど_HH__L"
		ELSE
			CALL PRINT_STR, @"「しゅきっ_HH_　うえから%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%ずんっ_H_ずんっ_H_て_HH__L"
		ENDIF
		CALL HANA_HANNYO
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0 && PALAM:快尿 > 9000
			CALL PRINT_STR, @"あっ_H_　はひっ_H_　おかしくなっちゃっ…_HH_　%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%で要去了っス_HH_"
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			CALL PRINT_STR, @"きもちいっ_H_　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%膨らむのきもちいっ_HH_"
		ELSEIF CFLAG:随机 == 2 && (ABL:尿道名器度 > 180 || COND("尿道弱点", PLAYER))
			CALL PRINT_STR, @"あひゃっ_HH_　きもちいっスか_H_　%CNAME("一人称")%の%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%_HH_"
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"しゅきっ_H_%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%ずんずんってぇ_H_"
		ELSE
			CALL PRINT_STR, @"しゅきっ_HH_　ずんずんって%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%こわされるのっ_HH_"
		ENDIF
		PRINTFORMW 」
	;それ以外
	ELSE
		CFLAG:随机 = RAND:4
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && RAND:3 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 0 && BASE:尿意 >= 10000
			PRINTFORML 「あっ、ぐっ…　%CNAME("二人称", "どもり")%、%CNAME("一人称")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%はれつしちゃっ…
		ELSEIF CFLAG:随机 == 1 && TALENT:恋慕
			PRINTFORML 「ま、圆圈で恋人みたいっスねっ、ヤってるのは…%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%なんスけどっ…
		ELSEIF CFLAG:随机 == 2
			PRINTFORML 「そ、そんな力いっぱい突いちゃっ…
		ELSE
			PRINTFORML 「み、見せなくていーっス！%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に%TEXTR("ちんちん/おちんちん")%是ってるとことかっ！
		ENDIF
		CALL HANA_HANNYO
		PRINTFORM
		CFLAG:随机 = RAND:4
		IF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			PRINTFORM %CNAME("二人称", "どもり")%…　おしっこしたい…っス…
		ELSEIF CFLAG:随机 == 2 && TALENT:恋慕
			CALL PRINT_STR, @"%CNAME("二人称", "どもり")%とだから…%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%もヤじゃないんスからね…？"
		ELSEIF CFLAG:随机 == 3 && COND("尿道弱点", PLAYER)
			PRINTFORM %CNAME("二人称", "どもり")%が%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%だから…　責任…とってくださいよ…？
		ELSE
			PRINTFORM 或んっ、%CNAME("二人称")%…%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%のいりぐち%TEXTR("ごりごり/ずりゅずりゅ")%したらしまらなくっ…
		ENDIF
		PRINTFORMW 」
	ENDIF
ENDIF

;尿道対面座位
IF SELECTCOM == 86
	IF EX:尿道絶頂 >= 20
		PRINTFORM 「
		CALL HANA_HANNYO
	ELSEIF TALENT:尿道狂 || ABL:尿道感覚 > 10
		CFLAG:随机 = RAND:4
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && RAND:3 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"「み、見えるっスか_H_　%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%が是ってくの…_L"
		ELSEIF CFLAG:随机 == 2 && (ABL:尿道名器度 > 180 || COND("尿道弱点", PLAYER))
			CALL PRINT_STR, @"「あ、あはっ_H_　%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%で食べちゃうっスよ_H__L"
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"「ほ、ほらっ_H_　力入れなくても…　ずぶずぶって　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%入って…んんっ_H__L"
		ELSE
			CALL PRINT_STR, @"「はひゅっ_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%　拡がってりゅ…　っス_H__L"
		ENDIF
		CALL HANA_HANNYO
		PRINTFORM
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0 && PALAM:快尿 > 9000
			CALL PRINT_STR, @"イ　イっちゃう…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%イっちゃうっス_HHH_"
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			CALL PRINT_STR, @"出そう_H_　おしっこでちゃ_HH_"
		ELSEIF CFLAG:随机 == 2 && ABL:尿道名器度 > 180
			CALL PRINT_STR, @"どうっ_H_　どーっスか_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%きもちいっスか_HH_"
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"はひゅっ_H_　みにゃいで…　ほしいっス_HH_"
		ELSE
			CALL PRINT_STR, @"だめっ_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%きもちくなってるトコ見ちゃダメっス_HH_"
		ENDIF
		PRINTFORMW 」
	;それ以外
	ELSE
		CFLAG:随机 = RAND:4
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && RAND:3 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 0 && BASE:尿意 >= 10000
			PRINTFORML 「センパ　%CNAME("二人称")%！！　おしっこでちゃ…
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			PRINTFORML 「あっ、ああっ…　おなかっ　おなかがぁっ…
		ELSEIF CFLAG:随机 == 2
			PRINTFORML 「は、入ってく…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に是ってくっス…
		ELSE
			PRINTFORML 「ま、また%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%っスか…　はひっ
		ENDIF
		CALL HANA_HANNYO
		PRINTFORM
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0 && BASE:尿意 >= 10000
			PRINTFORM そんなっ、%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%ついちゃっ…
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			PRINTFORM おしっこ、おしっこでちゃっ
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%%TEXTR("ずんずん/じゅぷじゅぷ")%ついちゃっ_H_"
		ELSEIF CFLAG:随机 == 3 && COND("尿道弱点", PLAYER)
			PRINTFORM %CNAME("二人称", "どもり")%そんなに%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%スキなんスか…
		ELSE
			PRINTFORM 戻らなくなっちゃ…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%戻らなくなっちゃうっス…
		ENDIF
		PRINTFORMW 」
	ENDIF
	RETURN 1
ENDIF
;尿道背面座位
IF SELECTCOM == 87
	IF EX:尿道絶頂 >= 20
		PRINTFORM 「
		CALL HANA_HANNYO
	ELSEIF TALENT:尿道狂 || ABL:尿道感覚 > 10
		CFLAG:随机 = RAND:4
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && RAND:3 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"「あ、あはっ_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ひろがって…　%TEXTR("ちんちん/おちんちん")%がっ_H__L"
		ELSEIF CFLAG:随机 == 2 && (ABL:尿道名器度 > 180 || COND("尿道弱点", PLAYER))
			CALL PRINT_STR, @"「はひっ_H_　%CNAME("二人称")%のだいすきな%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に入ってくっス_H__L"
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"「%TEXTR("にょ、にょーどー/にょ、尿道/お、おしっこ穴/お、オシッコ穴")%是っちゃ_H_　んんっーー～～_HHH__L"
		ELSE
			CALL PRINT_STR, @"「是って…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に入ってきたぁ_HHH__L"
		ENDIF
		CALL HANA_HANNYO
		PRINTFORM
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0 && PALAM:快尿 > 9000
			CALL PRINT_STR, @"やっ、はっ_H_イっちゃ_H_　%CNAME("一人称")%っ、%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%イっちゃあぁぁあぁっ_HH_"
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			CALL PRINT_STR, @"きもちいっ、%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%膨らむのきもちいっ_HH_"
		ELSEIF CFLAG:随机 == 2 && ABL:尿道名器度 > 180
			CALL PRINT_STR, @"きもちいっスか？　%CNAME("一人称")%も%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%きもちいっスか_HH_"
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"しゅきっ_H_　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%%TEXTR("ずんずん/ズンズン/ぐちゅぐちゅ/じゅぷじゅぷ")%されるのしゅきぃ_H_"
		ELSE
			CALL PRINT_STR, @"いりぐちっ_H_　%CNAME("一人称")%の%CNAME("一人称")%も%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%は入り口っス_HHH_"
		ENDIF
		PRINTFORMW 」
	;それ以外
	ELSE
		CFLAG:随机 = RAND:4
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && RAND:3 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 0 && COND("尿道弱点", PLAYER)
			PRINTFORML 「%CNAME("二人称", "どもり")%、%CNAME("一人称")%のそんなにガっついたら%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%壊れちゃうっス…
		ELSEIF CFLAG:随机 == 1
			PRINTFORML 「は、入っちゃ　入っちゃう…　ひぎゅっ…
		ELSEIF CFLAG:随机 == 2 && TALENT:娇小 == 2
			PRINTFORML 「%CNAME("二人称", "どもり")%そんなに押し込んじゃ…　んぎゅ…
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"「あっ、んんっ_H_　ち、ちがっ　違うっス_L"
		ELSE
			PRINTFORML 「あ、ああっ…　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋/おくまで")%…　入って
		ENDIF
		CALL HANA_HANNYO
		PRINTFORM
		CFLAG:随机 = RAND:6
		IF CFLAG:随机 == 0 && BASE:尿意 >= 10000
			PRINTFORM で、でちゃうっ…　おしっこでちゃうっスからっ…
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			PRINTFORM %CNAME("二人称", "どもり")%　ぬいてっ、ぬいてぇっ…
		ELSEIF CFLAG:随机 == 2 && BASE:尿意 >= 10000
			PRINTFORM %CNAME("二人称", "どもり")%　ぬ、ぬいてっ、おしっこ…　いっぱいなんス…！！
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"はひっ_H_　きもちくなってなんか…　無いっスからぁ_H_"
		ELSEIF CFLAG:随机 == 4
			PRINTFORM %TEXTR("にょ、にょーどー/にょ、尿道/お、おしっこ穴/お、オシッコ穴")%もどんなくなっちゃ…
		ELSE
			PRINTFORML %TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%、こわれちゃ…
		ENDIF
		PRINTFORMW 」
	ENDIF
	RETURN 1
ENDIF

;尿道騎乗位
IF SELECTCOM == 88
	IF EX:尿道絶頂 >= 20
		PRINTFORM 「
		CALL HANA_HANNYO
	ELSEIF TALENT:尿道狂 || ABL:尿道感覚 > 10
		CFLAG:随机 = RAND:5
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && CFLAG:随机 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 1 && CALCF("尿道径") < SIZE("阴茎の直径", MASTER)
			CALL PRINT_STR, @"「んんっ…　%TEXTR("ちんちん/おちんちん")%太すぎて…%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ぎちぎちっス…_H__L"
		ELSEIF CFLAG:随机 == 2 && CALCF("尿道径") > SIZE("阴茎の直径", MASTER)
			CALL PRINT_STR, @"「あはっ_H_　%CNAME("二人称", "どもり")%の%TEXTR("ちんちん/おちんちん")%…　簡単に入っちゃったっス_H__L"
		ELSEIF CFLAG:随机 == 3 && (ABL:尿道名器度 > 180 || COND("尿道弱点", PLAYER))
			CALL PRINT_STR, @"「きもちい？　%CNAME("二人称", "どもり")%っ、%CNAME("一人称")%の%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%きもちいっスか_H__L"
		ELSE
			CALL PRINT_STR, @"「はひっ_H_　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%%TEXTR("ひどい/すごい")%音…　してりゅっ_H__L"
		ENDIF
		CALL HANA_HANNYO
		PRINTFORM
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0 && PALAM:快尿 > 9000
			CALL PRINT_STR, @"はっ_H_　はひゅっ…_H_　イっちゃ…_H_"
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			CALL PRINT_STR, @"%TEXTR("ぐちゅっぐちゅっ/ちゃぷちゃぷっ")%てへんにゃおとしてりゅ…_H_"
		ELSEIF CFLAG:随机 == 2 && ABL:尿道名器度 > 180
			CALL PRINT_STR, @"%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%きもちいっスか_H_"
		ELSEIF CFLAG:随机 == 3
			CALL PRINT_STR, @"%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ばかになっひゃう_H_"
		ELSE
			CALL PRINT_STR, @"はひゅっ…_H_　しゅごひ…_HH_"
		ENDIF
		PRINTFORMW 」
		IF RAND:3 == 0
			PRINTFORM %CALLNAME:TARGET%すっかり蕩けた表情で
				IF RAND:2 == 0
					PRINTFORM %TEXTR("尿道口/狭孔/排泄腔")%が裂けるような勢いで
				ELSE
					PRINTFORM 膀胱が壊れかねない勢いで
				ENDIF
			PRINTFORMW 腰を叩きつけている…
		ENDIF
	;それ以外
	ELSE
		CFLAG:随机 = RAND:4
		IF (CHECK_COM("連続実行") || INSERT("尿道挿入")) && RAND:3 == 0
			PRINTFORM 「
		ELSEIF CFLAG:随机 == 0
			PRINTFORML 「%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に%CNAME("二人称")%の入って…
		ELSEIF CFLAG:随机 == 1
			PRINTFORML 「あ、あっ、あぁっ…　%TEXTR("ずぶずぶ/ズブズブ")%って%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%にぃ…
		ELSEIF CFLAG:随机 == 2
			PRINTFORML 「んんんんっ…　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%までいっぱい…　っス…
		ELSE
			PRINTFORML 「んんっ…　%TEXTR("ちんちん/おちんちん")%%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に是っちゃ…
		ENDIF
		CALL HANA_HANNYO
		PRINTFORM
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 0 && BASE:尿意 >= 10000
			PRINTFORM おなかっ…　%TEXTR("ぐちゅっぐちゅっ/ちゃぷちゃぷっ")%って…
		ELSEIF CFLAG:随机 == 1 && BASE:尿意 >= 10000
			PRINTFORM %CNAME("二人称", "どもり")%…　%TEXTR("ちんちん/おちんちん")%ぬいてっ…　おなかがっ…
		ELSEIF CFLAG:随机 == 2 && BASE:尿意 >= 10000
			PRINTFORM %CNAME("二人称")%っ…　おなか、くるしっ…
		ELSEIF CFLAG:随机 == 3
			PRINTFORM %TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　ひろがっちゃ・・・
		ELSEIF CFLAG:随机 == 4
			PRINTFORM %TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%こわれちゃ…
		ELSE
			PRINTFORM %TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%ぐりぐりって…
		ENDIF
		PRINTFORMW 」
	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
		PRINTFORML 「そ、それじゃあ行くっスよ%CNAME("二人称")%…！！　ごっ、ごめんなさい　加減間違えちゃったっス…」
		PRINTFORMW %CALLNAME:TARGET%は力加減を間違えたのか危うく不能になるところだった…
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			CFLAG:随机 = RAND:5
			IF TALENT:処女 && CFLAG:随机 == 0
				IF SIZE("阴茎", PLAYER) >= 2
					PRINTFORMW 「こんなおっきな%TEXTR("ちんちん/おちんちん")%本当に入っちゃうんスかね…」
				ELSE
					PRINTFORMW 「ほ、本当にこんなの入っちゃうんスかね…」
				ENDIF
			ELSEIF CFLAG:随机 == 1 && PREVPLAY("Ｖ挿入")
				CALL PRINT_STR, @"「こ、こんなのが%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/えっちな穴/お大事")%に入ってたんスね…_H_」_W"
			ELSEIF CFLAG:随机 == 2 && EX:MASTER:射精 > 8000
				CALL PRINT_STR, @"「す、凄いビクビクしてるっス　出そうなんスね%CNAME("二人称")%_H_」_W"
			ELSEIF CFLAG:随机 == 3
				CALL PRINT_STR, @"「どーっスか%CNAME("二人称")%　きもちいっスか_H_」_W"
			ELSE
				CALL PRINT_STR, @"「んふふ_H_好きに出していいっスよ%CNAME("二人称")%」_W"
			ENDIF
		;それ以外
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「わっ、わっ、びくって動いたっスよ　惊嚇させないでくださいよ%CNAME("二人称")%」
			ELSEIF RAND:3
				PRINTFORML 「%TEXTR("ちんちん/おちんちん")%ってすごい硬いんスね…　始めて知ったっス」
			ELSE
				PRINTFORML 「%TEXTR("ちんちん/おちんちん")%…あ、熱いっス…」
			ENDIF
			IF RAND:3 == 0
				PRINTFORML （%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%すごいえっちな气味でおかしくなりそうっス…）
			ELSEIF RAND:3
				PRINTFORML （%CNAME("一人称")%%TEXTR("ちんちん/おちんちん")%触っちゃってる…　あっ、%CNAME("二人称")%びくってしたここが良いのかな…？）
			ELSE
				PRINTFORML （%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%の气味嫌いじゃないかも…）
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%はトロンとした目で%CALLNAME:MASTER%の陰茎を擦っている…
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF CHECK_COM("阴茎接吻")
			IF EXP:接吻経験 == 0
				PRINTFORML 「%CNAME("一人称", "どもり")%…初吻もまだなんスけど…　%CNAME("二人称")%は変態っス　ちゅっ…」
				PRINTFORMW %CALLNAME:TARGET%はぷんぷんと憤怒つつもしぶしぶといった様子で、%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%へ穢れ無き唇を捧げた…
			ELSE
				PRINTFORML 「%TEXTR("ち、ちんちん/お、おちんちん")%に接吻しろとか…　%CNAME("二人称")%は変態っス…」
				PRINTFORMW %CALLNAME:TARGET%はぷんぷんと憤怒つつも仕方ないといった表情で、%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%へ口付けした…
			ENDIF
		ELSE
			PRINTFORML 「し、舌で舐めるっスか？%CNAME("二人称")%…　じゃ、じゃあいくっス　ちゅ、ちゅぷくちゅ…
			PRINTFORMW （%CNAME("二人称", "どもり")%のちんちん…　ちんちん舐めちゃってるっス…　え、えっちな气味すごくて…）
		ENDIF
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			 IF SIZE("阴茎", PLAYER) >= 3
				CFLAG:随机 = RAND:4
				IF CFLAG:随机 == 0
					PRINTFORML %CALLNAME:TARGET%は勢い良く%CALLNAME:MASTER%の内衣を下ろすと、現れた巨大な%TEXTR("陰茎/阴茎/肉槍/肉棒")%が顔面をべちんと音を立て叩き付けられた
					PRINTFORMW 「うひゃっ…　も、もー%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%は暴れん坊っスねー…　そんな暴れん棒はこうっス！！　ちゅっ、じゅるっ…」
				ELSEIF CFLAG:随机 == 1 && ABL:精液中毒 > 4
					PRINTFORML %CALLNAME:TARGET%の眼前にさらけ出された巨大な%TEXTR("陰茎/阴茎/肉槍/肉棒")%は、ダラダラと先走りを垂らしながら顔を汚してゆく…
					CALL PRINT_STR, @"「はっ_H_はっ_H_せ、せーえき…　いっぱいくだひゃいっ…　ちゅっ、じゅるるっ…」_W"
				ELSEIF CFLAG:随机 == 2
					PRINTFORMW 「あ、相変わらず%CNAME("二人称")%のはでっかすぎっス…　んっ、ちゅっ…」
				ENDIF
			ELSEIF SIZE("阴茎", PLAYER) >= 2
				IF RAND:3 == 0
					PRINTFORML %CALLNAME:TARGET%は勢い良く%CALLNAME:MASTER%の内衣を下ろすと、現れた%TEXTR("陰茎/阴茎/肉槍/肉棒")%が顔面をぺちんと音を立て叩き付けられた
					PRINTFORMW 「うひゃっ…　も、もー%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%は暴れん坊っスねー…　そんな暴れん棒はこうっス！！　ちゅっ、じゅるっ…」
				ELSEIF RAND:3 && ABL:精液中毒 > 4
					PRINTFORML %CALLNAME:TARGET%の眼前にさらけ出された%TEXTR("陰茎/阴茎/肉槍/肉棒")%は、ダラダラと先走りを垂らしながら顔を汚してゆく…
					CALL PRINT_STR, @"「はっ_H_はっ_H_せ、せーえき…　いっぱいくだひゃいっ…　ちゅっ、じゅるるっ…」_W"
				ELSE
					PRINTFORMW 「あ、相変わらず%CNAME("二人称")%のはでっかいっスね…　んっ、ちゅっ…」
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORML %CALLNAME:TARGET%は勢い良く%CALLNAME:MASTER%の内衣を下ろすと、現れた%TEXTR("陰茎/阴茎/肉槍/肉棒")%が鼻先を掠めていった
					PRINTFORMW 「うひゃっ…　も、もー%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%は暴れん坊っスねー…　そんな暴れん棒はこうっス！！　ちゅっ、じゅるっ…」
				ELSE
				 CALL PRINT_STR, @"「ちゅっ…　がんばってくださいね？　%CNAME("二人称")%_H_」_W"
				ENDIF
			ENDIF
		;それ以外
		ELSE
			 PRINTFORMW 「ちゅっ…　%TEXTR("ち、ちんちん/お、おちんちん")%に接吻…しちゃったっス…　えへへ」
		ENDIF
	;それ以外
	ELSE
		PRINTFORM 「
		CALL HANA_HANNYO
		;恋慕
		IF TALENT:恋慕
			 CALL PRINT_STR, @"　ひもちいひっスか　ひぇんぱひ_H_」_W"
		;それ以外
		ELSE
			IF COND("発情期")
				PRINTFORML 」
				IF RAND:2 == 0
					CALL PRINT_STR, @"（ちんちんっ_H_%CNAME("二人称")%のちんちんっ_H_）_W"
				ELSE
					CALL PRINT_STR, @"（%CNAME("二人称", "どもり")%の%TEXTR("せーし/精子/せーえき/精液")%っ_H_%TEXTR("しきゅー/子宮口/こどもへや/大事なところ")%に欲しいっス…_H_）_W"
				ENDIF
			ELSEIF RAND:3 == 0 && SIZE("阴茎", PLAYER) >= 2
				PRINTFORML 」
				PRINTFORMW （%CNAME("二人称")%のちんちん…　おっきすぎっス…）
			ELSEIF RAND:3
				PRINTFORML 」
				PRINTFORMW （%CNAME("二人称", "どもり")%のちんちん…　すっごく硬くて熱いっス…）
			ELSE
				PRINTFORML 」
				PRINTFORMW （んんっ…　%CNAME("二人称", "どもり")%のちんちんの气味…）
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;乳交
;-------------------------------------------------
IF SELECTCOM == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「お、胸部で挟むっスか？　こうっスかね…　%CNAME("二人称")%、コレきもちいんスか？　うひゃっ、び君って…」
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			 IF RAND:3 == 0 && COND("胸弱点", PLAYER)
			 	CALL PRINT_STR, @"「んふふー_H_%CNAME("二人称")%のだーいすきな%TEXTR("胸部/胸")%っスよー？」_W"
			 ELSEIF RAND:3
			 	CALL PRINT_STR, @"「ど、どーっスか、%CNAME("二人称")%_H_　%CNAME("一人称")%じょーずに出来てるっスか？」_W"
			 ELSE
			 	CALL PRINT_STR, @"「こ、これっ_H_　%CNAME("一人称")%もきもちくっ…　ひゃんっ」_W"
			 ENDIF
		;それ以外
		ELSE
			 PRINTFORMW 「%CNAME("二人称")%の暴れん坊な%TEXTR("ちんちん/おちんちん")%はー…　こうっス！　へへー、胸部につかまっちゃったっスね？　%CNAME("二人称")%」
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF COND("胸弱点", PLAYER)
				PRINTFORM 「%CNAME("二人称")%は
				IF TALENT:巨乳
					PRINTFORML ほんとーにおっきな%TEXTR("胸部/胸")%が好きっスねぇ…」
				ELSEIF TALENT:貧乳
					CALL PRINT_STR, @"おっきい%TEXTR("胸部/胸")%の方が良いんじゃ…　ひゃぁんっ_H_　そんな激烈地こすっちゃっ…　んんっ_H_」_L"
				ELSE
					PRINTFORML ほんとーに%TEXTR("胸部/胸")%が好きっスねぇ…」
				ENDIF
				IF TALENT:貧乳
					PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の言葉を遮る様に激烈地腰を動かし%TEXTR("陰茎/阴茎/肉槍/肉棒")%で胸を攻め立てた…
				ENDIF
			ELSE
				PRINTFORMW 「んっ、どーっスか？　%CNAME("二人称")%きもちいっスか？　んんっ」
			ENDIF
		;それ以外
		ELSE
			IF ABL:技巧 >= 5
				PRINTFORMW 「ど、どーっスか？%CNAME("二人称")%きもちいっスか…？」
			ELSE
				PRINTFORMW 「%TEXTR("お、胸部/む、胸")%で%TEXTR("ちんちん/おちんちん")%擦るって結構難しいっスね…」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;素股
;-------------------------------------------------
IF SELECTCOM == 93
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSEIF CHECK_COM("展示肉棒")
		;恋慕
		IF TALENT:恋慕
			IF SIZE("阴茎", PLAYER) >= 3
				PRINTFORMW 「い、いつ見てもでっかいっスね…　%TEXTR("お、胸部/む、胸")%の下まで%TEXTR("ちんちん/おちんちん")%が…」
			ELSEIF SIZE("阴茎", PLAYER) >= 2 && (TALENT:処女 == 0 || EXP:尿道性交経験 > 1 || EXP:Ａ性交経験 > 1)
				PRINTFORMW 「こ、こんなの入っちゃうんスね…」
			ELSE
				PRINTFORMW 「えへへ、%CNAME("二人称")%これからどーするつもりっスか？」
			ENDIF
		;それ以外
		ELSE
			IF SIZE("阴茎", PLAYER) >= 3
				PRINTFORMW 「%TEXTR("お、胸部/む、胸")%の下まで届いてるんスけど…」
			ELSEIF SIZE("阴茎", PLAYER) >= 2 && (EXP:尿道性交経験 > 20 || EXP:Ａ性交経験 > 20)
				PRINTFORM 「きょ、今日は
				IF RAND:3 == 0 && EXP:尿道性交経験 > 1
					PRINTFORM %CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%使わないんスか…？
				ELSEIF RAND:3 && EXP:Ａ性交経験 > 20
					PRINTFORM %CNAME("一人称")%の%TEXTR("おしりのあな/お菊門/ちょくちょー/直腸")%使わないんスか…？
				ELSE
					PRINTFORM 一段とおっきいっスね、%CNAME("二人称")%…
				ENDIF
				PRINTFORMW 」
			ELSE
				PRINTFORMW 「えへへ、%CNAME("一人称")%をこれからどーするつもりっスか？」
			ENDIF
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		PRINTFORM 「%CNAME("二人称", "どもり")%、どーっスか？　%CNAME("一人称")%のおまた
			SIF PALAM:Ｖ潤 > 5000
				PRINTFORM にゅるにゅるって
		PRINTFORMW きもちいっスか？」
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			;主要な指令が実行できるか判定する関数の呼び出し
			CALL CHECK_COM_ABLE, TARGET
			CFLAG:随机 = RAND:5
			IF CFLAG:随机 == 0 && (CANTRAIN("正常位") || CANTRAIN("肛門後背位") || CANTRAIN("尿道挿入") )
				PRINTFORM 「い、挿入れても良いんスよ？
				CALL SET_CEVENT, "素股で挿入"
			ELSEIF CFLAG:随机 == 1 || SIZE("阴茎", PLAYER) >= 2
				PRINTFORM 「ちょ、ちょっと%CNAME("二人称")%大きすぎっスよ
			ELSEIF CFLAG:随机 == 2
				PRINTFORM 「んんっ、%CNAME("一人称")%に%TEXTR("ちんちん/おちんちん")%生えたみたいっスね…
			ELSEIF CFLAG:随机 == 3
				PRINTFORM 「ひゃんっ、%CNAME("一人称")%の%TEXTR("ちんちん/おちんちん")%がごりって…
			ELSE
				PRINTFORM 「ど、どーっスか？%CNAME("二人称")%
			ENDIF
			PRINTFORM
			CALL HANA_HANNYO
				IF RAND:5 == 0 && CEVENT("素股で挿入") && (CANTRAIN("正常位") || CANTRAIN("肛門後背位") || CANTRAIN("尿道挿入") )
					CALL PRINT_STR, @"　あ、あっ、あぁあっ_H_」_L"
					PRINTFORM %CALLNAME:TARGET%的すべすべとした股で肉槍を摩擦了起来と、角度が合ったのか
					IF CANTRAIN("正常位") && RANDIF(1, CANTRAIN("尿道挿入"), CANTRAIN("肛門後背位") )
						PRINTFORM %TEXTR("肉壷/肉孔/膣道/淫壷")%
						CALL SET_INSERT, TARGET, PLAYER, 60
					ELSEIF CANTRAIN("肛門後背位") && RANDIF(1, CANTRAIN("尿道挿入") )
						PRINTFORM %TEXTR("肛門/尻穴/排泄腔")%
						CALL SET_INSERT, TARGET, PLAYER, 71
					ELSE
						PRINTFORM %TEXTR("尿道/狭孔/緩んだ尿道/排泄腔")%
						CALL SET_INSERT, TARGET, PLAYER, 83
					ENDIF
					PRINTFORMW に突き刺さってしまった
					PRINTFORMW 「んっ、び、惊嚇したっス…」
				ELSE
					PRINTFORMW 」
				ENDIF
				CALL DEL_CEVENT, "素股で挿入"
		;それ以外
		ELSE
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0
				PRINTFORM 「い、挿入れないっスよね　%CNAME("二人称")%…？
			ELSEIF CFLAG:随机 == 1 || SIZE("阴茎", PLAYER) >= 2
				PRINTFORM 「ちょ、ちょっと%CNAME("二人称")%大きすぎじゃ…
			ELSEIF CFLAG:随机 == 2
				PRINTFORM 「挿入れちゃダメっスからね、%CNAME("二人称")%　ひゃっ
			ELSE
				PRINTFORM 「んっ、きもちいっスか%CNAME("二人称")%？　%CNAME("一人称", "どもり")%はきもちい
			ENDIF

			CALL HANA_HANNYO
			PRINTFORMW 」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;泡泡浴
;-------------------------------------------------
IF SELECTCOM == 94
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門奉仕
;-------------------------------------------------
IF SELECTCOM == 96
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;内褲冲
;-------------------------------------------------
IF SELECTCOM == 97
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;六九式
;-------------------------------------------------
IF SELECTCOM == 99
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;眼罩
;-------------------------------------------------
IF SELECTCOM == 133
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:眼罩 == 0
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;拘束
;-------------------------------------------------
IF SELECTCOM == 134
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:拘束 == 0
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

		;それ以外
		ELSE

		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;浣腸
;大量的液体を注いだかはCOND("大量浣腸")で判定できます
;-------------------------------------------------
IF SELECTCOM == 136
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;排泄
	ELSEIF TEQUIP:浣腸 == 0
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		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

			;恋慕
			ELSEIF TALENT:恋慕

			;それ以外
			ELSE

			ENDIF
		ENDIF
	ELSEIF CHECK_COM("子宮内放尿")
		;初めて
		IF EXP:子宮浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("子宮内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("子宮内放尿") == 0

			;恋慕
			ELSEIF TALENT:恋慕

			;それ以外
			ELSE

			ENDIF
		ENDIF
	ELSEIF CHECK_COM("膣内放尿")
		;初めて
		IF EXP:膣内浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("膣内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("膣内放尿") == 0

			;恋慕
			ELSEIF TALENT:恋慕

			;それ以外
			ELSE

			ENDIF
		ENDIF
	ELSEIF CHECK_COM("温泉浣腸")
		;初めて
		IF EXP:温泉浣腸経験 == 0
			;PLAYを受け入れていない
			IF CHECK("温泉浣腸") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("温泉浣腸") == 0

			;恋慕
			ELSEIF TALENT:恋慕

			;それ以外
			ELSE

			ENDIF
		ENDIF
	ELSEIF CHECK_COM("乳内放尿")
		;初めて
		IF EXP:乳内浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("乳内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("乳内放尿") == 0

			;恋慕
			ELSEIF TALENT:恋慕

			;それ以外
			ELSE

			ENDIF
		ENDIF
	ELSEIF CHECK_COM("膀胱内放尿")
		;初めて
		IF EXP:輸尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("膀胱内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("膀胱内放尿") == 0

			;恋慕
			ELSEIF TALENT:恋慕

			;それ以外
			ELSE

			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;什麼也不做
;-------------------------------------------------
IF SELECTCOM == 139
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		IF COND("発情期")
			IF TALENT:恋慕 == 0 && CEVENT("発情イベント中")
				PRINTFORMW 「ご、ごめんなさい%CNAME("二人称")%…　%CNAME("一人称")%、%CNAME("一人称")%自己ダメって言ったのに…」
				CALL DEL_CEVENT, "発情イベント中"
			ELSEIF TALENT:恋慕 == 0
				PRINTFORMW 「ダ、ダメっスからね…　%CNAME("二人称")%…　んんっ…」
			ELSE
				CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%…_H_はやく子作りっス_H_ _H_」_W"
			ENDIF
		ELSE
			IF TALENT:恋慕
				CALL PRINT_STR, @"「何ぼーっとしてるんスか%CNAME("二人称")%_H_はやくはやくっ_H_」_W"
			ELSE
				IF BASE:体力 <= 500
					PRINTFORMW 「きゅ、休憩っスか…　別に疲れてなんか…」
				ELSE
					PRINTFORMW 「ふっふっふー、疲惫んスか？%CNAME("二人称")%」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;強制口交
;-------------------------------------------------
IF SELECTCOM == 140
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE

		PRINTFORM 「
		CALL HANA_HANNYO
		PRINTFORML 」

		IF ABL:Ｍ感覚 > 10 || TALENT:喉性感
			CFLAG:随机 = RAND:5
			IF CFLAG:随机 == 0
				PRINTFORMW （喉っ、%CNAME("一人称")%の%TEXTR("ちんちん/おちんちん")%でっ、いっぱいっ　きもちっ）
			ELSEIF CFLAG:随机 == 1
				PRINTFORMW （喉っ、%CNAME("一人称")%の喉の奥まで%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%で犯されてるっ）
			ELSEIF CFLAG:随机 == 2
				PRINTFORMW （もっとっ、もっとごりごり抉って　犯してっ）
			ELSEIF CFLAG:随机 == 3
				PRINTFORMW （もっとっ、乱暴ni↘）
			ELSE
				PRINTFORMW （きもちいっ　喉奥広げられるの　すっごいきもちいいっ）
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW （しぬっ　しんじゃうっ…）
			ELSEIF RAND:3
				PRINTFORMW （くる…しい…　前、まっしろ…）
			ELSE
				PRINTFORMW （いき、できな…）
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;フィスト系指令
;-------------------------------------------------
IF SELECTCOM == 141 || SELECTCOM == 142 || SELECTCOM == 143
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;楽しめる余裕が無い
		IF CHECK("フィスト") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)

			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;楽しめる余裕が無い
		IF CHECK("フィスト") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)

		;恋慕
		ELSEIF TALENT:恋慕

		;それ以外
		ELSE

		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:恋慕

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;剃毛
;-------------------------------------------------
IF SELECTCOM == 145
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;行為に抵抗有
		IF CHECK("陰毛管理") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)

			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;行為に抵抗有
		IF CHECK("陰毛管理") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)

		;それ以外
		ELSE
			SELECTCASE CONDS("陰毛")
			;脱毛した
			CASE "脱毛処理"

			;光滑无毛に剃り上げた
			CASE "光滑无毛"

			;綺麗に剃り整えた
			CASEELSE

			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("身嗜み：性欲の管理")
	;などでも分岐可能。
	ELSEIF CHECK_COM("身嗜み：尿道拡張")
		IF TALENT:恋慕
			IF TALENT:尿道狂
				CALL PRINT_STR, @"「えっ…　こ、これって…_H_『どこに入れておくか分かるよな？』って…　%CNAME("二人称")%は変態桑っス…_H_」_L"
				PRINTFORML %CALLNAME:TARGET%は自ら尿道を拡張することに興奮してしまい、尿道での自慰を始めてしまった…
				PRINTFORML 自慰経験 + 1
				PRINTFORML 尿道経験 + 1
				EXP:自慰経験 += 1
				EXP:尿道経験 += 1
			ELSE
				PRINTFORML 「%CNAME("二人称", "どもり")%…　送禮はうれしいっスけど…　い、いや、%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%嫌いじゃないっスよ？　嫌いじゃ…」
				PRINTFORMW %CALLNAME:TARGET%は自己尿道拡張する姿を想像してしまったのかもじもじと太ももをすり合わせている…
			ENDIF
		ELSE
			IF TALENT:尿道狂
				CALL PRINT_STR, @"「じ、自己やれって…　い、いやそんな…　えへへ…_H_」_L"
				PRINTFORML 自ら尿道拡張する様を思い浮かべてしまったのか、顔をだらしなくほころばせ股からは締まり無く尿がちょろちょろと漏れている…
				PRINTFORMW 放尿経験 + 1
				EXP:放尿経験 += 1
				BASE:尿意 -= 1000
			ELSE
				PRINTFORML 「じ、自己拡げておけって…　それじゃあ%CNAME("一人称")%が変態みたいじゃないっスか…　やるっスけど…」
				PRINTFORMW 尿道拡張しておけと告げられた%CALLNAME:TARGET%は顔を真っ赤にしながらも渋々道具を受け取った…
			ENDIF
		ENDIF
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;深喉
;-------------------------------------------------
IF SELECTCOM == 150
	;口上を書く際には RETURN 0 を削除してください(もともと地の文が長めなので書かなくても問題ないかもしれません)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE

	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道探针
;-------------------------------------------------
IF SELECTCOM == 151
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		TEQUIP:尿道探针 = 15
		PRINTFORML 「%CNAME("二人称", "どもり")%、そこはやめましょ…？　入れるところじゃないっスから…」
		PRINTFORML 尿道に10mmのブジーを押し当てられ%CALLNAME:TARGET%は異様にうろたえた…
		PRINTFORMW しかし良く%CALLNAME:TARGET%の尿道を観察してみると何故だろうか女性の尿道平均径は10mm程度と聞いているが…
		PRINTFORML 「ね？ねっ？　い、今なら%CNAME("一人称")%気にしないっスから…」
		PRINTFORML %CALLNAME:MASTER%はカマをかけるように『過去に怪我でもしたのだろうか、若干尿道が拡がっている』と…
		PRINTFORMW 「し、しらっ…　知らねっス、別に%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%がきもちいとかそんなんじゃ…」
		PRINTFORML うっかり口を滑らせてしまい顔を真っ赤に染める%CALLNAME:TARGET%…
		PRINTFORML ならばお望みどおりと言わんばかりに15mmのブジーを手に取り%CALLNAME:TARGET%の尿道へと押し当てる
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORML 「%CNAME("二人称", "どもり")%、それっ…　ふとすぎっ、あ゛あ゛あ゛ぁ゛ぁ゛あ゛っ゛」
			PRINTFORMW %CALLNAME:TARGET%の尿道を精一杯拡げ突き刺さったプジーは痙攣と共に先端がピクピクと跳ねている…
		;それ以外
		ELSE
			PRINTFORML 「あっ、ああぁあっ…　是っちゃ…　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に是っちゃ　んんんっ…」
			PRINTFORMW %CALLNAME:TARGET%の尿道は僅かな抵抗も見せずに『ずるり』と膀胱の奥深くまで飲み込んでしまった…
		ENDIF
	;二回目以降
	ELSE
		IF TEQUIP:尿道探针 > CALCF("尿道拡張の限界") && CEVENT("尿道拡張の限界突破") == 0
			CALL PRINT_STR, @"「んんっ_H_」_L"
			PRINTFORML %CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%にブジーを宛がい力を篭めて割り裂こうとするが光滑无毛と滑りただ刺激するだけで挿入までは至らない…
			CALL PRINT_STR, @"「ひゃっ_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ぐりぐりだけじゃなくって…　入れて欲しいっス…_H_」_W"
			PRINTFORML しかし刺激を繰り返していくうちに次第に緩くなってきたのか指先に『ぶつり』という何かが切れるような衝撃が伝わる…
			CALL PRINT_STR, @"「あ、ああぁあぁっ…_H_%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　どーなっちゃったスか…_H_」_L"
			PRINTFORMW %CALLNAME:TARGET%の外尿道括約筋は完全に壊れ、極太のブジーを咥えていた…
			CALL SET_CEVENT, "尿道拡張の限界突破"
		ELSEIF TEQUIP:尿道探针 > CALCF("尿道拡張の壁") && CEVENT("尿道拡張の壁突破") == 0
		 	CALL PRINT_STR, @"「んんっ…_H_」_L"
		 	PRINTFORMW %CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%は{TEQUIP:尿道探针}mmのブジーはまだ早かった様子で光滑无毛と滑るばかりで一向に入りそうに無い…
		 	CALL PRINT_STR, @"「は、入らないっスか？　%CNAME("二人称")%っ_H_」_L"
		 	PRINTFORMW しかし%CALLNAME:TARGET%の呼吸に合わせ開閉を繰り返す%TEXTR("尿道口/狭孔/排泄腔")%と力を加える領帯ミングが揃ったのか『ぶつんっ』という衝撃がブジーを通して指先に届いた…
		 	CALL PRINT_STR, @"「ぎっ…_H_い、今っ_H_%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%が『ぶちっ』て…_H_あはっ_H_」_L"
		 	PRINTFORMW %CALLNAME:TARGET%の外尿道括約筋は切れてしまったのか%TEXTR("尿道口/狭孔/排泄腔")%からは赤色の液体が一筋流れた…
		 	PRINTFORML 」
			CALL SET_CEVENT, "尿道拡張の壁突破"
		ELSEIF CEVENT("ブジー変化")
			IF TALENT:尿道狂
				CFLAG:随机 = RAND:100
				;充气
				IF CFLAG:随机 <= 19
					IF CEVENT("充气経験")
						IF ABL:受虐属性 >= 3 && RAND:2 == 0
							CALL PRINT_STR, @"「ま_H_また…%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%壊しちゃうっスか？」_L"
							PRINTFORMW %CALLNAME:TARGET%は充气を一目見ただけで顔を綻ばせる…
							CALL PRINT_STR, @"「はっ、はやくっ_H_　早く%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ばちって_H_」_L"
							PRINTFORMW %CALLNAME:TARGET%はすっかり充气で広げられる感覚が病みつきになってしまった様子で自己的%TEXTR("尿道口/狭孔/排泄腔")%指で引き伸ばしながら待ち続けている…
							CALL PRINT_STR, @"「ひゃっ_H_　是って、きたぁ_HH_　」_L"
							PRINTFORMW ある程度膨らませると%CALLNAME:TARGET%は何か期待した瞳でこちらを見つめてくるのでポンプを手渡してやる…
							CALL PRINT_STR, @"「えっ、%CNAME("二人称")%…　これ…_H_」_L"
							PRINTFORM 『好きにするといい』と告げると%CALLNAME:TARGET%は震える
							IF TALENT:娇小 >= 1
								PRINTFORM 小小的
							ENDIF
							PRINTFORMW 手で%TEXTR("思い切り/躊躇せず")%充气へ空気を送り込む…
							CALL PRINT_STR, @"「ひっ_H_拡がりゅっ_H_%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%壊しちゃうっ_H_"

							REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
							CFLAG:随机 = RAND:11
							IF CFLAG:随机 == 9
								CALL PRINT_STR, @"いっ_H_"
							ELSEIF CFLAG:随机 == 8
								PRINTFORM んぎゅっ
							ELSEIF CFLAG:随机 == 7
								PRINTFORM ひぃっ
							ELSEIF CFLAG:随机 == 6
								CALL PRINT_STR, @"んんっ_H_"
							ELSEIF CFLAG:随机 == 5
								PRINTFORM ……
							ELSEIF CFLAG:随机 == 4
								CALL PRINT_STR, @"すごっ_H_"
							ELSEIF CFLAG:随机 == 3
								PRINTFORM ひんっ
							ELSEIF CFLAG:随机 == 2
								CALL PRINT_STR, @"あっあっ_H_"
							ELSEIF CFLAG:随机 == 1
								CALL PRINT_STR, @"しゅきっ_H_"
							ELSEIF CFLAG:随机 == 0
								PRINTFORM んっんっ
							ELSE
								CALL PRINT_STR, @"あっあっああぁっ_H_"
								BREAK
							ENDIF
							REND

							PRINTFORML 」
							PRINTFORMW %CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%は本来の意味がなくなってしまう程充气で拡張され、今にも壊れてしまいそうだ
							CALL PRINT_STR, @"「ま、まだ入るっス_H_　まだっ…」_L_"
							PRINTFORMW %CALLNAME:TARGET%は目元に涙を溜め、震えるその両手でポンプを押しつぶす
							CALL PRINT_STR, @"「いっ_H_　かはっ…」_L"
							PRINTFORMW %CALLNAME:TARGET%の尿道は遂に壊れたダムの様に充气が飛び出し、本来は空気に晒される場所ではない%TEXTR("尿道口/狭孔/排泄腔")%の奥深くまで開ききってしまった…
						ELSE
							CALL PRINT_STR, @"「ま、また%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%拡げちゃうっスか…？」_L"
							PRINTFORMW %CALLNAME:TARGET%は不安そうだがどこか期待した表情で充气を看了过来…
							CALL PRINT_STR, @"「やりすぎると…　絞まらなくなっちゃ…　ひゃっ_H_」_L"
							PRINTFORM 不安そうな%CALLNAME:TARGET%を尻目に
							;膀胱手前
							IF RAND:2 == 0
								PRINTFORMW 膀胱の手前まで埋め込むと1回、2回と空気を送り充气を膨らませてやる
								CALL PRINT_STR, @"「ひっ、んんっ_H_」_L"
								IF RAND:2 == 0
									PRINTFORML 「えっ…　も、もう終わり…っスか…？」
									PRINTFORMW 数回空気を送り込んだところで手を止め、%CALLNAME:TARGET%にポンプを手渡してやる
									CALL PRINT_STR, @"「えっ、えっ…_H_　好きにしろって…　だ、大丈夫かな…_H_」_L"
									PRINTFORMW %CALLNAME:TARGET%は戸惑いながらポンプを受け取りシュコシュコと充气を膨らませてゆく
									CALL PRINT_STR, @"「あっ_H_ひ、拡がっちゃ_HH_"
									REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
									CFLAG:随机 = RAND:11
									IF CFLAG:随机 == 9
										CALL PRINT_STR, @"いっ_H_"
									ELSEIF CFLAG:随机 == 8
										PRINTFORM んぎゅっ
									ELSEIF CFLAG:随机 == 7
										PRINTFORM ひぃっ
									ELSEIF CFLAG:随机 == 6
										CALL PRINT_STR, @"んんっ_H_"
									ELSEIF CFLAG:随机 == 5
										PRINTFORM ……
									ELSEIF CFLAG:随机 == 4
										CALL PRINT_STR, @"すごっ_H_"
									ELSEIF CFLAG:随机 == 3
										PRINTFORM ひんっ
									ELSEIF CFLAG:随机 == 2
										CALL PRINT_STR, @"あっあっ_H_"
									ELSEIF CFLAG:随机 == 1
										CALL PRINT_STR, @"しゅきっ_H_"
									ELSEIF CFLAG:随机 == 0
										PRINTFORM んっんっ
									ELSE
										CALL PRINT_STR, @"あっあっああぁっ_H_"
										BREAK
									ENDIF
									REND
									CALL PRINT_STR, @"あっ_H_ひっぱると…しゅごっ_H__」_L"
									PRINTFORML %CALLNAME:TARGET%は%TEXTR("ぎちぎち/みちみち")%に膨らんだポンプを引っ張ると、の%TEXTR("尿道口/狭孔/排泄腔")%ははち切れんばかりに盛り上がる
									PRINTFORMW しかし力加減を間違えたのか『%TEXTR("ばつん/ばちん")%』と弾ける音と共に%TEXTR("尿道口/狭孔/排泄腔")%から飛び出てきてしまった…
									CALL PRINT_STR, @"「は_H_はひっ…_H_　今の…　しゅごっ…_HH_」_L"
									PRINTFORMW 弾けてしまった%CALLNAME:TARGET%の%TEXTR("尿道/狭孔/排泄腔")%は膀胱の入り口まですっかり見えるようになってしまった…
								ELSE
									CALL PRINT_STR, @"「%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%い、いっぱい…_H_」_L"
									PRINTFORMW %CALLNAME:TARGET%の%TEXTR("尿道/狭孔/排泄腔")%は限界まで膨らませた充气をしっかり飲み込み、下腹部は見ただけで解るほど膨らんでしまった
									CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%…_H_　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%全部飲み込んじゃったっスね_H__L"
									REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
									CFLAG:随机 = RAND:11
									IF CFLAG:随机 == 9
										CALL PRINT_STR, @"いっ_H_"
									ELSEIF CFLAG:随机 == 8
										PRINTFORM んぎゅっ
									ELSEIF CFLAG:随机 == 7
										PRINTFORM ひぃっ
									ELSEIF CFLAG:随机 == 6
										CALL PRINT_STR, @"んんっ_H_"
									ELSEIF CFLAG:随机 == 5
										PRINTFORM ……
									ELSEIF CFLAG:随机 == 4
										CALL PRINT_STR, @"すごっ_H_"
									ELSEIF CFLAG:随机 == 3
										PRINTFORM ひんっ
									ELSEIF CFLAG:随机 == 2
										CALL PRINT_STR, @"あっあっ_H_"
									ELSEIF CFLAG:随机 == 1
										CALL PRINT_STR, @"しゅきっ_H_"
									ELSEIF CFLAG:随机 == 0
										PRINTFORM んっんっ
									ELSE
										CALL PRINT_STR, @"あっあっああぁっ_H_"
										BREAK
									ENDIF
									REND
									PRINTFORML 」
									PRINTFORMW 埋め込められた充气を引っ張ってやると%CALLNAME:TARGET%は顔を抑えながら『%TEXTR("びくびく/がくがく")%』と体を震わせながらよがり狂う
									CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%_H_　それっ_HH_　キモチくて、だめっ_H_」_L"
									PRINTFORML 次第にポンプを引く手に抵抗感が感じられるようになって来る…
									PRINTFORML %CALLNAME:TARGET%は%TEXTR("尿道/狭孔/排泄腔")%に力を入れすぎてしまったのだろう
									PRINTFORMW 『%TEXTR("ばつん/ばちん")%』と弾ける音と共に『ずるり』と充气が飛び出してしまった
									CALL PRINT_STR, @"「ひぎっ_H_　あ、ぐぎゅっ_H_」_L"
									PRINTFORMW 散々攻められ続けた%CALLNAME:TARGET%の%TEXTR("尿道/狭孔/排泄腔")%は『%TEXTR("ぴくぴく/びくびく")%』と痙攣を続け、膀胱の入り口を晒し続けている…
								ENDIF
							;膀胱まで
							ELSE
								PRINTFORMW %CALLNAME:TARGET%の内尿道括約筋を貫き充气を膨らませてゆく…
								CALL PRINT_STR, @"「ひぎゅっ_H_お、奥まで入って…　拡がっちゃ…_H_」"
								PRINTFORML 1回、2回と膨らませていくとポンプが引っ張られるような力を感じる
								PRINTFORMW 何回か膨らませてゆくと『ずるり』と飲み込まれると同時に尿があふれ出てきてしまった…
								CALL PRINT_STR, @"「い、いぃ…　ぐうっ…」_L"
								PRINTFORMW その瞬間%CALLNAME:TARGET%は顔を歪ませ目尻には涙を浮かべている…
								CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%…　おなか…　くるしっ…_H_」_L"
								PRINTFORMW %CALLNAME:TARGET%は疼痛と快感が混ざった表情でこちらを見つめてくる
								CALL PRINT_STR, @"「くるしいっスけど…　キモチいから…　だいじょぶっスよ？%CNAME("二人称")%_H_」_L"
								PRINTFORML %CALLNAME:TARGET%の頬を撫でながら%CALLNAME:MASTER%は頷くと再び空気を送り膨らませてゆく
								PRINTFORMW 一押し、二押しと膨らませる度%CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%からは膀胱から押し出された尿が吹き出てくる…
								CALL PRINT_STR, @"「あっ_H_　%CNAME("一人称")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%風船でいっぱい…ni↘_H_"
								REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
								CFLAG:随机 = RAND:11
								IF CFLAG:随机 == 9
									CALL PRINT_STR, @"いっ_H_"
								ELSEIF CFLAG:随机 == 8
									PRINTFORM んぎゅっ
								ELSEIF CFLAG:随机 == 7
									PRINTFORM ひぃっ
								ELSEIF CFLAG:随机 == 6
									CALL PRINT_STR, @"んんっ_H_"
								ELSEIF CFLAG:随机 == 5
									PRINTFORM ……
								ELSEIF CFLAG:随机 == 4
									CALL PRINT_STR, @"すごっ_H_"
								ELSEIF CFLAG:随机 == 3
									PRINTFORM ひんっ
								ELSEIF CFLAG:随机 == 2
									CALL PRINT_STR, @"あっあっ_H_"
								ELSEIF CFLAG:随机 == 1
									CALL PRINT_STR, @"しゅきっ_H_"
								ELSEIF CFLAG:随机 == 0
									PRINTFORM んっんっ
								ELSE
									CALL PRINT_STR, @"あっあっああぁっ_H_"
									BREAK
								ENDIF
								REND
								PRINTFORML 」
								PRINTFORMW %CALLNAME:TARGET%の膀胱内部は空になり、空気を抜き充气を抜いてやる
								CALL PRINT_STR, @"「あっ_H_　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%…_H_スースーする…_HH_」_L"
								PRINTFORMW 入り口から膀胱まで一直線に開いてしまい、ただの肉孔となってしまった%CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%は中々返回气息は無い…
							ENDIF
						ENDIF
					ELSE
						CALL PRINT_STR, @"「そ、ソレなんスか？%CNAME("二人称")%…_H_」_L"
						PRINTFORMW %CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%へずぶずぶと沈んでゆく充气を不思議そうな、期待の篭った表情で看了过来…
						CALL PRINT_STR, @"「えへへ_H_　こ、こんな細いの…　%CNAME("一人称", "どもり")%にはよゆーっスよ？」_L"
						PRINTFORMW この程度余裕だと言うので充气へと1回、2回と空気を送り込んでやる
						CALL PRINT_STR, @"「ふっ、膨らむんスか!?　んぎゅっ…_H_　まだ…まだよゆっ…_L"

						REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
						CFLAG:随机 = RAND:11
						IF CFLAG:随机 == 9
							CALL PRINT_STR, @"いっ_H_"
						ELSEIF CFLAG:随机 == 8
							PRINTFORM んぎゅっ
						ELSEIF CFLAG:随机 == 7
							PRINTFORM ひぃっ
						ELSEIF CFLAG:随机 == 6
							CALL PRINT_STR, @"んんっ_H_"
						ELSEIF CFLAG:随机 == 5
							PRINTFORM ……
						ELSEIF CFLAG:随机 == 4
							CALL PRINT_STR, @"すごっ_H_"
						ELSEIF CFLAG:随机 == 3
							PRINTFORM ひんっ
						ELSEIF CFLAG:随机 == 2
							CALL PRINT_STR, @"あっあっ_H_"
						ELSEIF CFLAG:随机 == 1
							CALL PRINT_STR, @"しゅきっ_H_"
						ELSEIF CFLAG:随机 == 0
							PRINTFORM んっんっ
						ELSE
							CALL PRINT_STR, @"あっあっああぁっ_H_"
							BREAK
						ENDIF
						REND

						PRINTFORML 」
						PRINTFORMW %CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%は薄く白くなり充气が微かに透けて見えるほどに引き伸ばされてしまう…
						CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%_H_　ごめっ_H_ごめんにゃひゃいっ_HH_%CNAME("一人称")%、%CNAME("一人称")%っ_HH_」_L_"
						PRINTFORMW %CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%が耐え切れなくなった辺りで勢い良く引き拔出と%TEXTR("ばちん/ばつん")%といい音が響いた…
						CALL PRINT_STR, @"「あ_H_あはっ…_H_%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…こわれちゃったぁ…_H_」_L"
						PRINTFORMW %CALLNAME:TARGET%は%TEXTR("ぴくぴく/ひくひく")%と震え、締まらなくなるほど広がってしまった%TEXTR("尿道口/狭孔/排泄腔")%を指で撫で回している…
						CALL SET_CEVENT, "充气経験"
					ENDIF
				ELSEIF CFLAG:随机 <= 39
					IF CEVENT("トゲディルド経験")
						CALL PRINT_STR, @"「とげとげで…　やっぱりエグいっス_H_」_L"
						PRINTFORML トゲの生えたディルドを水润的瞳で見つめる%CALLNAME:TARGET%
						PRINTFORMW これから起こることを想像しているのだろうか自己的指を%TEXTR("尿道口/狭孔/排泄腔")%へ突き刺し自慰を始めてしまった様子だ
						CALL PRINT_STR, @"「えへへ_H_　%CNAME("二人称")%_H_　ココっスよ、ココ_H_　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%を%TEXTR("ごりごり/じゅぷじゅぷ")%いっぱいいじめてほしいっス_H_」_L"
						PRINTFORMW 自己的指で%TEXTR("尿道口/狭孔/排泄腔")%を割り裂きディルドを入れやすいようこちらへ向けてくる
						CALL PRINT_STR, @"「ナカっ、がりがりってひゅごいっ_H_　"

						REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
						CFLAG:随机 = RAND:11
						IF CFLAG:随机 == 9
							CALL PRINT_STR, @"いっ_H_"
						ELSEIF CFLAG:随机 == 8
							PRINTFORM んぎゅっ
						ELSEIF CFLAG:随机 == 7
							PRINTFORM ひぃっ
						ELSEIF CFLAG:随机 == 6
							CALL PRINT_STR, @"んんっ_H_"
						ELSEIF CFLAG:随机 == 5
							PRINTFORM ……
						ELSEIF CFLAG:随机 == 4
							CALL PRINT_STR, @"すごっ_H_"
						ELSEIF CFLAG:随机 == 3
							PRINTFORM ひんっ
						ELSEIF CFLAG:随机 == 2
							CALL PRINT_STR, @"あっあっ_H_"
						ELSEIF CFLAG:随机 == 1
							CALL PRINT_STR, @"しゅきっ_H_"
						ELSEIF CFLAG:随机 == 0
							PRINTFORM んっんっ
						ELSE
							CALL PRINT_STR, @"あっあっああぁっ_H_"
							BREAK
						ENDIF
						REND

						PRINTFORML 」
						PRINTFORMW 凶悪的ディルドで責められ続けた%CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%は真っ赤に充血しぽっかりと口を開いてしまっている…
					ELSE
						PRINTFORML 「な、なんで%CNAME("二人称")%がそれを…」
						PRINTFORM %CALLNAME:TARGET%己の%TEXTR("尿道口/狭孔/排泄腔")%に突きつけられた
						PRINTFORMW 柔らかながらもトゲの生えたディルドを目の当たりにし、その後に続く言葉を飲み込んでしまう…
						PRINTFORML 「%CNAME("一人称")%のディルド…　それを　どーしちゃうんスかね？　%CNAME("二人称")%…」
						PRINTFORMW 期待と恥ずかしさに開閉を繰り返す%CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%へ一気突き入れる
						CALL PRINT_STR, @"ひっ_H_はっ_H_　ずりずりぃって…"

						REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
						CFLAG:随机 = RAND:11
						IF CFLAG:随机 == 9
							CALL PRINT_STR, @"いっ_H_"
						ELSEIF CFLAG:随机 == 8
							PRINTFORM んぎゅっ
						ELSEIF CFLAG:随机 == 7
							PRINTFORM ひぃっ
						ELSEIF CFLAG:随机 == 6
							CALL PRINT_STR, @"んんっ_H_"
						ELSEIF CFLAG:随机 == 5
							PRINTFORM ……
						ELSEIF CFLAG:随机 == 4
							CALL PRINT_STR, @"すごっ_H_"
						ELSEIF CFLAG:随机 == 3
							PRINTFORM ひんっ
						ELSEIF CFLAG:随机 == 2
							CALL PRINT_STR, @"あっあっ_H_"
						ELSEIF CFLAG:随机 == 1
							CALL PRINT_STR, @"しゅきっ_H_"
						ELSEIF CFLAG:随机 == 0
							PRINTFORM んっんっ
						ELSE
							CALL PRINT_STR, @"あっあっああぁっ_H_"
							BREAK
						ENDIF
						REND

						PRINTFORMW 」
						CALL SET_CEVENT, "トゲディルド経験"
					ENDIF
				;ビーズ
				ELSEIF CFLAG:随机 <= 59 && ITEM:肛門拉珠
					IF CEVENT("ビーズ経験")
						CALL PRINT_STR, @"「びっ、ビーズ_H_　ここっ、%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%っ_H_」_L"
						PRINTFORML ビーズを目にした%CALLNAME:TARGET%は自己的%TEXTR("尿道口/狭孔/排泄腔")%を両手の指で割り割き、これから与えられる快楽を心待ちにしている…
						PRINTFORMW そして一つ、二つとビーズを難なく飲み込みついに最後の一つを飲み込んでしまう…
						CALL PRINT_STR, @"「んんっ_H_　えへへ_H_ぜーんぶ入っちゃったっスね_H_」_L"
						PRINTFORML %CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%はビーズで限界に膨らみはち切れんばかりだ…
						PRINTFORMW そしてわずかに飛び出ている取っ手を%CALLNAME:MASTER%は掴み一気に引きずり出すべく引っ張る…
						CALL PRINT_STR, @"「ひゃっ_H_%CNAME("一人称")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%出てきちゃっ_H_"

						REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
						CFLAG:随机 = RAND:11
						IF CFLAG:随机 == 9
							CALL PRINT_STR, @"いっ_H_"
						ELSEIF CFLAG:随机 == 8
							PRINTFORM んぎゅっ
						ELSEIF CFLAG:随机 == 7
							PRINTFORM ひぃっ
						ELSEIF CFLAG:随机 == 6
							CALL PRINT_STR, @"んんっ_H_"
						ELSEIF CFLAG:随机 == 5
							PRINTFORM ……
						ELSEIF CFLAG:随机 == 4
							CALL PRINT_STR, @"すごっ_H_"
						ELSEIF CFLAG:随机 == 3
							PRINTFORM ひんっ
						ELSEIF CFLAG:随机 == 2
							CALL PRINT_STR, @"あっあっ_H_"
						ELSEIF CFLAG:随机 == 1
							CALL PRINT_STR, @"しゅきっ_H_"
						ELSEIF CFLAG:随机 == 0
							PRINTFORM んっんっ
						ELSE
							CALL PRINT_STR, @"あっあっああぁっ_H_"
							BREAK
						ENDIF
						REND

						PRINTFORML 」
						;ビーズ破損
						IF RAND:2 == 0
							PRINTFORMW しかし%CALLNAME:TARGET%の%TEXTR("尿道/狭孔/排泄腔")%はビーズの強度に勝ってしまったのだろう取っ手の紐は千切れてしまう…
							PRINTFORML 「ちょっ、切れちゃったって%CNAME("二人称")%…」
							PRINTFORMW %CALLNAME:TARGET%は涙目になりながらカリカリと%TEXTR("尿道/狭孔/排泄腔")%に埋まったビーズを取り出そうと引っかいている…
							CALL PRINT_STR, @"「いきめば出てくるかも？って…　が、がんばる…っス…　んっ_H_　んんんっ_H_おっきぃ…　はひゅっ_H_」_L"
							PRINTFORML %TEXTR("ゴリゴリ/メリメリ")%と音を立てる様に%TEXTR("尿道口/狭孔/排泄腔")%を盛り上がらせながら顔を見せるビーズ
							PRINTFORMW しかしナカに埋まっている物体が巨大なのだろう中々出てくる气息は無い
							CALL PRINT_STR, @"「は、はひゅっ_H_　中々…出てこないっス…_H__L"
							CALL PRINT_STR, @"へっ、%CNAME("二人称")%おなかに手当ててなにして…　あっ_H_　んひっ_H_"

							REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
							CFLAG:随机 = RAND:11
							IF CFLAG:随机 == 9
								CALL PRINT_STR, @"いっ_H_"
							ELSEIF CFLAG:随机 == 8
								PRINTFORM んぎゅっ
							ELSEIF CFLAG:随机 == 7
								PRINTFORM ひぃっ
							ELSEIF CFLAG:随机 == 6
								CALL PRINT_STR, @"んんっ_H_"
							ELSEIF CFLAG:随机 == 5
								PRINTFORM ……
							ELSEIF CFLAG:随机 == 4
								CALL PRINT_STR, @"すごっ_H_"
							ELSEIF CFLAG:随机 == 3
								PRINTFORM ひんっ
							ELSEIF CFLAG:随机 == 2
								CALL PRINT_STR, @"あっあっ_H_"
							ELSEIF CFLAG:随机 == 1
								CALL PRINT_STR, @"しゅきっ_H_"
							ELSEIF CFLAG:随机 == 0
								PRINTFORM んっんっ
							ELSE
								CALL PRINT_STR, @"あっあっああぁっ_H_"
								BREAK
							ENDIF
							REND

							PRINTFORML 」
							PRINTFORM 痺れを切らした%CALLNAME:MASTER%は%CALLNAME:TARGET%の
							IF EXP:Ｖ拳交経験 && RAND:2 == 0
								PRINTFORM 阴道に手を入れ、
								CALL SET_CEVENT, "ビーズ時フィスト経験"
							ENDIF
							PRINTFORMW 下腹部に手を当てゴリゴリとした手触りを返してくる膀胱からビーズを搾り出すように押しつぶす
							CALL PRINT_STR, @"「ひっ_H_ぎっ_HH_　つぶしちゃっ_H_　んぎっ、ひっ_H_」_L"
							PRINTFORMW ビーズは%CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%をひどく擦りあげながら飛び出しついには尿と共に最後の一粒が排出された
							CALL PRINT_STR, @"「は、はひっ_H_　%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%…　ぐちゃぐちゃになっちゃ…_HH_」_L"
							PRINTFORMW 玩具に蹂躙された%CALLNAME:TARGET%の%TEXTR("尿道/狭孔/排泄腔")%は中々絞圆圈气息はなく勢いの無い尿を溢れさせている…
							IF CEVENT("ビーズ時フィスト経験")
								EXP:Ｖ拳交経験 += 1
								PRINTFORMW Ｖ拳交経験 + 1
								CALL DEL_CEVENT, "ビーズ時フィスト経験"
							ENDIF
						ELSE
							PRINTFORMW 勢い良く引き抜かれ開閉を繰り返す%CALLNAME:TARGET%の%TEXTR("尿道/狭孔/排泄腔")%はすっかり快楽を生み出す器官となってしまった様子だ…
						ENDIF
					ELSE
						PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%の尿道へ後庭拉珠を一粒ずつ詰め込んでゆく…
						CALL PRINT_STR, @"「あっ_H_ごりってぬけるのきもちい…_H_」_L"
						PRINTFORML 根元へ向かうにつれ徐々に太くなっていくため一つ、また一つと括約筋を抜ける度に抵抗が強くなってゆき最後の一つで抵抗が強く難儀していると
						PRINTFORML 「んんっっ、%CNAME("二人称", "どもり")%…　%CNAME("一人称")%はだいじょーぶだから…　%CNAME("二人称")%の随便　良いんスよ…？」
						PRINTFORMW %CALLNAME:MASTER%はその言葉に頷きビーズを両親指で押し込むと%CALLNAME:TARGET%の腹部からは%TEXTR("ごりごり/じゃりじゃり/がりがり/がちゃがちゃ")%と音が鳴る
						CALL PRINT_STR, @"「えへへ、全部入っちゃったっスね、%CNAME("二人称")%_H_入れたら…　どーしちゃうっスかっああぁぁあ゛あ゛あ゛ぁ゛ぁ゛あ゛っ゛」_L"
						PRINTFORMW %CALLNAME:TARGET%の言葉を待たず、一気にビーズを引き拔出と開閉を繰り返した%TEXTR("尿道口/狭孔/排泄腔")%は刺激によりぽっかりと口を空けたままとなってしまった…
						CALL SET_CEVENT, "ビーズ経験"
					ENDIF
				ELSEIF CFLAG:随机 <= 79 && ITEM:振動棒套装 && COND("尿道履歴") > 15
					PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%の尿道に…
					SIF COND("尿道履歴") > 15
						PRINTFORML [1]細身の振動棒を入れる
					SIF COND("尿道履歴") > 26
						PRINTFORML [2]指ほどの振動棒を入れる
					SIF COND("尿道履歴") > 33
						PRINTFORML [3]少し細めの振動棒を入れる
					SIF COND("尿道履歴") > 40
						PRINTFORML [4]振動棒を入れる
					SIF COND("尿道履歴") > 50
						PRINTFORML [5]粗大的振動棒を入れる

					$INPUT_LOOP
					INPUT

					SELECTCASE RESULT

						CASE 1
							TEQUIP:尿道探针 = 15
							PRINTFORM とても細い
						;指並み
						CASE 2
						TEQUIP:尿道探针 = 26
							PRINTFORM 藥指粗細のある
						;短小阴茎並み
						CASE 3
						TEQUIP:尿道探针 = 33
							PRINTFORM 通常より細めの
						;ふつうのちんこ並み
						CASE 4
						TEQUIP:尿道探针 = 40
							PRINTFORM 普通なら到底入るとは思えない一般的なサイズの
						;巨根並み～
						CASE 5
						TEQUIP:尿道探针 = 50
							PRINTFORM 巨大的
					ENDSELECT
						CFLAG:随机 = RAND:4
						IF CFLAG:随机 == 2
							PRINTFORM 振動棒
							CFLAG:角色用 = 1
						ELSEIF CFLAG:随机 == 1
							PRINTFORM 返しのついた振動棒
							CFLAG:角色用 = 2
						ELSEIF CFLAG:随机 == 0
							PRINTFORM 歪な振動棒
							CFLAG:角色用 = 3
						ELSE
							PRINTFORM 瘤付き振動棒
							CFLAG:角色用 = 4
						ENDIF
						PRINTFORM を
					PRINTFORML 押し当て埋め込んでゆく…
					IF CEVENT("振動棒経験")
						CALL PRINT_STR, @"「はっ、はやくっ_H_　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に振動棒_HH_んんんっ_H_　"
						CALL HANA_HANNYO
						PRINTFORML 」
					ELSE
						CALL PRINT_STR, @"「こ、今度は振動棒…なんスね_H_んんっ_H_　"
						CALL HANA_HANNYO
						PRINTFORML 」
						CALL SET_CEVENT, "振動棒経験"
					ENDIF
						PRINTFORM %CALLNAME:TARGET%的膀胱まで押し込まれた
						IF CFLAG:角色用 == 1
							PRINTFORML 振動棒を抜き差しして刺激してゆく…
						ELSEIF CFLAG:角色用 == 2
							PRINTFORM 振動棒は規則正しく把靠在一起的鱗で粘膜を削り取るように刺激した…
						ELSEIF CFLAG:角色用 == 3
							PRINTFORM 不規則に捩れた振動棒は粘膜を歪に拡げてゆく…
						ELSE
							PRINTFORM 振動棒に付いた瘤が尿道を抜ける度%CALLNAME:TARGET%は发出甜美的声音た…
						ENDIF
						PRINTFORMW
					CFLAG:角色用 = 0
				;束ねブジー
				ELSE
					IF CEVENT("束ねブジー経験")
						CALL PRINT_STR, @"「五本っ_H_　ろっぽんっ_HH_　なな…ほんっ_H_」_L"
						PRINTFORMW %CALLNAME:TARGET%は自己的%TEXTR("尿道口/狭孔/排泄腔")%に何本ブジーが入るか試している…
						CFLAG:随机 = RAND:4
						IF CFLAG:随机 == 0
							CALL PRINT_STR, @"「じゅうい…っぽん_H_"
						ELSEIF CFLAG:随机 == 1
							CALL PRINT_STR, @"「じゅう…にほんっ_H_"
						ELSEIF CFLAG:随机 == 2
							CALL PRINT_STR, @"「じゅう…桑っ_H_ほんっ_H_"
						ELSE
							CALL PRINT_STR, @"「じゅ、じゅう…よんっ_H_ほんっ…"
						ENDIF
						CALL PRINT_STR, @"めっ…　い、いっぱい_H_　できたっス_H_しあげは…　%CNAME("二人称")%ni↘_H_」_L"
						PRINTFORMW %CALLNAME:TARGET%は大量的ブジーを生やした歪んだ%TEXTR("尿道口/狭孔/排泄腔")%を%CALLNAME:MASTER%へ向け最後の一本をねだって来る
						CALL PRINT_STR, @"「さい…ごっ…_H_　かひっ_H_　おしっこ…でてる…_H_」_L"
						PRINTFORMW 最後の一本でついに限界へ達したのか%CALLNAME:TARGET%の膀胱は堰を切ったかのように尿があふれ出してきた…
						BASE:尿意 -= 2000
					ELSE
						TEQUIP:尿道探针 = MIN_STR(LOCALS)*21/20
						PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%の尿道には不釣合いなほど細いブジーを宛がった
						PRINTFORML 「あ、アレ…？%CNAME("二人称")%そんな細いのじゃ…　物足りないっス…」
						PRINTFORML そんな%CALLNAME:TARGET%の言葉をよそに1本、また1本とブジーを増やしていくと
						PRINTFORMW 滑らかな円形ではなく歪に拡がり、膀胱まで飲み込んだブジーの隙間からはちょろちょろと尿があふれ出てきた…
						CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%_H_%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%どーなって…_H_」_L"
						PRINTFORML 合計で{COND("尿道履歴")}mm分を詰め篭められた%TEXTR("尿道口/狭孔/排泄腔")%は、活花のようにブジーが無数に生えてしまった…
						CALL SET_CEVENT, "束ねブジー経験"
					ENDIF
					BASE:尿意 -= 1000
				ENDIF
			ELSE
				CFLAG:随机 = RAND:100
				IF CFLAG:随机 <= 33 && ITEM:肛門拉珠
					IF CEVENT("布ル経験")
						PRINTFORML 「こ、今度はそれ入れるんスか…？」
						PRINTFORMW %CALLNAME:TARGET%は不安そうに%CALLNAME:MASTER%の持つ肛門拉珠を看了过来…
						PRINTFORML 「%CNAME("二人称", "どもり")%がやりたいんじゃ…　仕方無いっスね、そうこれは仕方無いんス」
						PRINTFORMW そう自分に言い聞かせるようにしながらもどこか期待した表情で%CALLNAME:MASTER%へ性器を開き、肛門拉珠が挿入されるのを待っている
						PRINTFORML 「んんっ、はぁ…　だんだん…太くなって…　ひゃあぁぁあっ…」
						PRINTFORMW %CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%を突き入れる肛門拉珠を不意打ち気味に抜き差ししてやると、惊嚇してしまったのだろうがっちりと布ルを締め上げ抵抗を増していく…
						PRINTFORML 「やっ、だめっス…　そんなじゅぷじゅぷしちゃっ」
						PRINTFORMW 次第に柔らかくなり始めた%TEXTR("尿道口/狭孔/排泄腔")%を一気に根元まで突き刺すと、びくびくと四肢を痙攣させ喋るのもやっとの様子だ…
						PRINTFORML 「あ、かひゅっ…　せんぱっ…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%こわれひゃ…　んぎっ…」
						PRINTFORMW そして思う存分%CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%を苛め抜いた%CALLNAME:MASTER%は排尿を邪魔している布ルを取り除いた…
						CALL PRINT_STR, @"「あ_H_あはっ…_H_おしっこ…　とまらにゃひ…_HH_」_L"
						PRINTFORMW 障害を取り除かれた%CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%は関閉ことなく尿を垂れ流している…
						BASE:尿意 -= 1000
					ELSE
						PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%の尿道へ後庭拉珠を一粒ずつ詰め込んでゆく…
						PRINTFORMW 「あっ、ごりってぬけるのきもちい…」
						PRINTFORML 根元へ向かうにつれ徐々に太くなっていくため一つ、また一つと括約筋を抜ける度に抵抗が強くなってゆき最後の一つで抵抗が強く難儀していると
						PRINTFORML 「んんっっ、%CNAME("二人称", "どもり")%…　%CNAME("一人称")%はだいじょーぶだから…　%CNAME("二人称")%の随便　良いんスよ…？」
						PRINTFORMW %CALLNAME:MASTER%はその言葉に頷きビーズを両親指で押し込むと%CALLNAME:TARGET%の腹部からは%TEXTR("ごりごり/じゃりじゃり/がりがり/がちゃがちゃ")%と音が鳴る
						CALL PRINT_STR, @"「えへへ、全部入っちゃったっスね、%CNAME("二人称")%_H_入れたら…　どーしちゃうっスくああぁぁあ゛あ゛あ゛ぁ゛ぁ゛あ゛っ゛」_L"
						PRINTFORMW %CALLNAME:TARGET%の言葉を待たず、一気にビーズを引き拔出と開閉を繰り返した%TEXTR("尿道口/狭孔/排泄腔")%は刺激によりぽっかりと口を空けたままとなってしまった…
						CALL SET_CEVENT, "布ル経験"
					ENDIF
				ELSEIF CFLAG:随机 <= 66 && ITEM:振動棒套装 && COND("尿道履歴") > 15
					PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%の尿道に
					SIF COND("尿道履歴") > 15
						PRINTFORML [1]細身の振動棒
					SIF COND("尿道履歴") > 26
						PRINTFORML [2]指ほどの振動棒
					SIF COND("尿道履歴") > 33
						PRINTFORML [3]少し細めの振動棒
					SIF COND("尿道履歴") > 40
						PRINTFORML [4]振動棒
					SIF COND("尿道履歴") > 50
						PRINTFORML [5]粗大的振動棒

					$INPUT_LOOP_01
					INPUT

					SELECTCASE RESULT

						CASE 1
							TEQUIP:尿道探针 = 15
							PRINTFORM とても細い
						;指並み
						CASE 2
						TEQUIP:尿道探针 = 26
							PRINTFORM 藥指粗細のある
						;短小阴茎並み
						CASE 3
						TEQUIP:尿道探针 = 33
							PRINTFORM 通常より細めの
						;ふつうのちんこ並み
						CASE 4
						TEQUIP:尿道探针 = 40
							PRINTFORM 普通なら到底入るとは思えない一般的なサイズの
						;巨根並み～
						CASE 5
						TEQUIP:尿道探针 = 50
							PRINTFORM 巨大的
					ENDSELECT
						CFLAG:随机 = RAND:4
						IF CFLAG:随机 == 2
							PRINTFORM 振動棒
							CFLAG:角色用 = 1
						ELSEIF CFLAG:随机 == 1
							PRINTFORM 返しのついた振動棒
							CFLAG:角色用 = 2
						ELSEIF CFLAG:随机 == 0
							PRINTFORM 歪な振動棒
							CFLAG:角色用 = 3
						ELSE
							PRINTFORM 瘤付き振動棒
							CFLAG:角色用 = 4
						ENDIF
						PRINTFORM を
					PRINTFORML 押し当て埋め込んでゆく…
					IF CEVENT("振動棒経験")
						PRINTFORML 「つ、次は振動棒っスか…　準備は…いーっスよ…%CNAME("二人称")%」
						PRINTFORM %CALLNAME:TARGET%的膀胱まで押し込まれた
						IF CFLAG:角色用 == 1
							PRINTFORML 振動棒を抜き差しして刺激してゆく…
						ELSEIF CFLAG:角色用 == 2
							PRINTFORM 振動棒は規則正しく把靠在一起的鱗で粘膜を削り取るように刺激した…
						ELSEIF CFLAG:角色用 == 3
							PRINTFORM 不規則に捩れた振動棒は粘膜を歪に拡げてゆく…
						ELSE
							PRINTFORM 振動棒に付いた瘤が尿道を抜ける度%CALLNAME:TARGET%は发出甜美的声音た…
						ENDIF
						PRINTFORMW
					ELSE
						PRINTFORML 「こ、今度は振動棒…なんスね…　ひっ、ぎぃっ… 」
						PRINTFORM %CALLNAME:TARGET%的膀胱まで押し込まれた
						IF CFLAG:角色用 == 1
							PRINTFORML 振動棒を抜き差しして刺激してゆく…
						ELSEIF CFLAG:角色用 == 2
							PRINTFORM 振動棒は規則正しく把靠在一起的鱗で粘膜を削り取るように刺激した…
						ELSEIF CFLAG:角色用 == 3
							PRINTFORM 不規則に捩れた振動棒は粘膜を歪に拡げてゆく…
						ELSE
							PRINTFORM 振動棒に付いた瘤が尿道を抜ける度%CALLNAME:TARGET%は发出甜美的声音た…
						ENDIF
						PRINTFORMW
						CALL SET_CEVENT, "振動棒経験"
					ENDIF
					CFLAG:角色用 = 0
				;束ねブジー
				ELSE
					IF CEVENT("束ねブジー経験")
						PRINTFORML 「んんんんーっ…つぎは三本目…　ひぎゅっ…は、是ったぁ…つぎっ…四本めぇ…っ」
						PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%に自己的%TEXTR("尿道口/狭孔/排泄腔")%に何本ブジーが入るか試させている…
						CFLAG:随机 = RAND:4
						IF CFLAG:随机 == 0
							PRINTFORM 「六本
						ELSEIF CFLAG:随机 == 1
							PRINTFORM 「七本
						ELSEIF CFLAG:随机 == 2
							PRINTFORM 「八本
						ELSE
							PRINTFORM 「九本
						ENDIF
						PRINTFORML …めっ…は、はっ…　も、もう限界っス…%CNAME("二人称")%…」
						PRINTFORMW 限界だと告げてくる%CALLNAME:TARGET%、しかし%TEXTR("尿道口/狭孔/排泄腔")%はあと少し余裕があるように見える
						PRINTFORML 「やっ、だめっスせんぱっ…ひぎゅっ…」
						PRINTFORMW %CALLNAME:MASTER%は隙間を埋めるように細身のブジーを膀胱まで突き入れるとその瞬間堰を切ったかのように尿があふれ出てきた…
						CALL DEL_CEVENT, "ブジー変化"
					ELSE
						PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の尿道には不釣合いなほど細いブジーを宛がった
						PRINTFORML 「あ、アレ…？%CNAME("二人称")%そんな細いのじゃ…　物足りないっス…」
						PRINTFORML そんな%CALLNAME:TARGET%の言葉をよそに1本、また1本とブジーを増やしていくと
						PRINTFORMW 滑らかな円形ではなく歪に拡がり、膀胱まで飲み込んだブジーの隙間からはちょろちょろと尿があふれ出てきた…
						CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%_H_%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%どーなって…_H_」_L"
						PRINTFORML 合計で{COND("尿道履歴")}mm分の詰め篭められた%TEXTR("尿道口/狭孔/排泄腔")%は、活花のようにブジーが無数に生えてしまった…
						CALL SET_CEVENT, "束ねブジー経験"
					ENDIF
					BASE:尿意 -= 1000
				ENDIF
			ENDIF
			CALL DEL_CEVENT, "ブジー変化"
		ELSEIF TEQUIP:尿道探针 > CALCF("尿道径")
			IF EX:尿道絶頂 >= 20
				CALL HANA_HANNYO
			ELSEIF TALENT:尿道狂
				IF RAND:3 == 0
					CALL PRINT_STR, @"「え、えへへ_H_%CNAME("一人称")%っ%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ゴリゴリされるの…　だいすきっス_H"
				ELSEIF RAND:3
					CALL PRINT_STR, @"「いっぱいっ_H_いっぱい%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%いじめて欲しいっス_H_ _H"
				ELSE
					CALL PRINT_STR, @"「%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%が拡がる疼痛がきもちいのってヘンっスかね…%CNAME("二人称")%_H_ _H"
				ENDIF
				CALL HANA_HANNYO
				IF RAND:3 == 0
					CALL PRINT_STR, @"ふといの…　しゅきっ…_H"
				ELSEIF RAND:3
					CALL PRINT_STR, @"だめっダメダメダメっ_H_きもちくなっちゃうっ_H"
				ELSE
					CALL PRINT_STR, @"あはっ_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%もどらなくなっちゃ…_H"
				ENDIF
				PRINTFORML 」
				IF RAND:3 == 0
					PRINTFORMW ブジーに吸い付いてくる%CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%を引き裂かんばかりの勢いで抽送してやるだけで悶え狂ってしまう…
				ELSEIF RAND:3
					PRINTFORMW %CALLNAME:TARGET%は限界を超えて拡がる%TEXTR("尿道口/狭孔/排泄腔")%の疼痛を、快楽と認識してしまった様子で顔を蕩けさせている…
				ELSE
					PRINTFORMW %CALLNAME:TARGET%の張り裂けそうに充血した%TEXTR("尿道口/狭孔/排泄腔")%はただ快楽を生み出す孔となってしまっている様子だ…
				ENDIF
		 	ELSE
		 		IF RAND:3 == 0
		 			PRINTFORM 「%CNAME("二人称", "どもり")%…　は、入らないっスよ　ひっ…
		 		ELSEIF RAND:3
		 			PRINTFORM 「だ、ダメっス…　壊れちゃうっス…
		 		ELSE
		 			PRINTFORM 「%CNAME("二人称", "どもり")%こわい目して…
		 		ENDIF

				CALL HANA_HANNYO
				IF RAND:3 == 0 && PALAM:快尿 > 8000
					PRINTFORM センパ…イ　いた、きもちいっス…
				ELSEIF RAND:3
					PRINTFORM ひっぎ…　さけちゃ…う…っス
				ELSE
					PRINTFORM こわれちゃ…
				ENDIF
				PRINTFORML 」
				IF RAND:2 == 0
					PRINTFORMW %CALLNAME:TARGET%は限界を超えて拡がっている%TEXTR("尿道口/狭孔/排泄腔")%の疼痛と快楽の混ざった刺激を堪えている…
				ELSE
					PRINTFORMW %CALLNAME:TARGET%の薄く引き伸ばされてしまった%TEXTR("尿道口/狭孔/排泄腔")%は何とか裂けることは免れ必死に刺激を耐えている…
				ENDIF
			ENDIF
		ELSE
		 	IF EX:尿道絶頂 >= 20
		 		CALL HANA_HANNYO
		 	ELSEIF TALENT:尿道狂
		 		IF RAND:3 == 0
		 			PRINTFORM 「%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%もっと粗大的のでも…　い、いいっスよ…？
		 		ELSEIF RAND:3
		 			CALL PRINT_STR, @"「こ、ココっ_H_ココっスよ_H_%CNAME("二人称")%っ…　その棒入れるのは%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%っスよ_H"
		 		ELSE
		 			PRINTFORM 「%CNAME("二人称")%、%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%寂しいっス…
		 		ENDIF

				CALL HANA_HANNYO
				PRINTFORML 」
				IF RAND:3 == 0
					PRINTFORMW %CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%からブジーを引き拔出時、先端でGスポットを抉り弾くように抜き出すと狂ったように悶えた…
				ELSEIF RAND:3
					PRINTFORMW %CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%を円を描くようにブジーで責めてやると腰を痙攣させて悶えた…
				ELSE
					PRINTFORMW %CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%をブジーで%TEXTR("力強く/乱暴に")%抽送してやると我慢できないといった様子で悶えた…
				ENDIF
		 	ELSEIF CEVENT("尿道拡張の壁突破")
		 		IF RAND:3 == 0
		 			PRINTFORM 「%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　どーなっちゃ…
		 		ELSEIF RAND:3
		 			PRINTFORM 「い、一杯広がって…　%CNAME("二人称")%…%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%どーするつもりっスか…？
		 		ELSE
		 			PRINTFORM 「%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%壊しちゃうっスか…？　%CNAME("二人称")%
		 		ENDIF
				CALL HANA_HANNYO
				PRINTFORMW 」
		 	ELSE
		 		IF RAND:3 == 0
		 			PRINTFORM 「%CNAME("二人称", "どもり")%　またっ%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に入れちゃうっスか…？
		 		ELSEIF RAND:3
		 			PRINTFORM 「ちょ、ちょっときもちくなってる%CNAME("一人称")%…　こわいっス…　んんっ
		 		ELSE
		 			PRINTFORM 「ちょ、まっ…センパっ…　ひゃんっ
		 		ENDIF
				CALL HANA_HANNYO
				PRINTFORMW 」
		 	ENDIF
		 ENDIF
	ENDIF
	TFLAG:地の文スキップ = 0
	RETURN 1
ENDIF

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

		;それ以外
		ELSE

		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:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;新妻PLAY
;-------------------------------------------------
IF SELECTCOM == 173
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;終了時
	ELSEIF TEQUIP:新妻PLAY == 0
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

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

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;潤滑液使用
;-------------------------------------------------
IF SELECTCOM == 260
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;媚薬使用
;-------------------------------------------------
IF SELECTCOM == 261
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;利尿剤
;-------------------------------------------------
IF SELECTCOM == 262
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;排卵誘発剤
;-------------------------------------------------
IF SELECTCOM == 264
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕

		;それ以外
		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;筋弛緩剤
;-------------------------------------------------
IF SELECTCOM == 267

	RETURN 1
ENDIF
;-------------------------------------------------
;挣扎
;-------------------------------------------------
IF SELECTCOM == 280
	;成功
	IF TEQUIP:推倒 == 0
		IF COND("発情期")
			CALL PRINT_STR, @"「あっ、ダメっスよ%CNAME("二人称")%…_H_」_W"
		ELSE
			PRINTFORMW 「%CNAME("一人称")%にまかせて欲しいのにー」
		ENDIF
	;失敗
	ELSE
		IF TALENT:恋慕
			CALL PRINT_STR, @"「%CNAME("一人称")%に全部任せて_H_%CNAME("二人称")%_H_ _H_」_W"
		ELSEIF COND("発情期")
			CALL PRINT_STR, @"「えへへ_H_逃がさないっスよ%CNAME("二人称")%_H_諦めて子作りするっス_H_ _H_」_W"
		ELSE
			PRINTFORMW 「えへへ、%CNAME("一人称")%からは逃げられないっスよ%CNAME("二人称")%」
		ENDIF
	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:恋慕

		ELSE

		ENDIF
	ENDIF
	RETURN 1
ENDIF

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

;--------------------------------------------------
;調教指令の地の文の前に喋る台詞はここに書く
;--------------------------------------------------
@KOJO_MESSAGE_BEFORE_COM_K7
;口枷着用時には口上をスキップする？
SIF TEQUIP:口枷 && SELECTCOM != 135
	RETURN 0
IF SELECTCOM >= 83 && SELECTCOM <= 88
	CFLAG:随机 = RAND:100
ENDIF

	IF CEVENT("阴茎初見") == 0
		SELECTCASE SELECTCOM
		CASE 60, 70, 83
			IF SIZE("阴茎", PLAYER) >= 3
				PRINTFORML 「ひっ…　%CNAME("一人称", "どもり")%の腕くらい粗大的んスけど…　えっ、これを…　やっ…」
				PRINTFORMW %CALLNAME:TARGET%は、腹部へ押し当てられた胸の下まで届く%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%に顔を青ざめている…
			ELSEIF SIZE("阴茎", PLAYER) == 2
				PRINTFORML 「ひっ、%CNAME("二人称", "どもり")%…　ちょ、ちょっとおっきすぎじゃ…ないっスか…？」
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の大号的%TEXTR("陰茎/阴茎/肉槍/肉棒")%を見て轻轻地引きつっている…
			ELSE
				PRINTFORML 「わっ…　こ、これが%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%…」
				PRINTFORMW %CALLNAME:TARGET%の目は曝け出された%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%に釘付けだ…
			ENDIF
		CASE 61, 71, 84
			IF SIZE("阴茎", PLAYER) >= 3
				PRINTFORML 「ひゃっ…　なっ、何っ!?　やっ、べちんって　やだっ、%CNAME("二人称")%っ　こわい…」
				PRINTFORMW 臀部に『べちん』と音がなるほどの質量の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を叩きつけられ、%CALLNAME:TARGET%はその正体を確かめようとするが体勢のせいで確かめることが出来ずうろたえている…
			ELSEIF SIZE("阴茎", PLAYER) == 2
				PRINTFORML 「ひゃっ…　%CNAME("二人称", "どもり")%おしりに何あてて…」
				PRINTFORMW 臀部に『ぺちん』と%TEXTR("陰茎/阴茎/肉槍/肉棒")%を叩きつけるが、%CALLNAME:TARGET%は体勢のせいでその正体を確かめることが出来ないようでうろたえている…
			ELSE
				PRINTFORML 「ひゃんっ…　%CNAME("二人称", "どもり")%何してるっスか…」
				PRINTFORMW %CALLNAME:TARGET%は臀部に当てられた正体がわからずうろたえている…
			ENDIF
		CASE 62, 72, 85
			IF SIZE("阴茎", PLAYER) >= 3
				PRINTFORML 「ひっ…　%CNAME("一人称", "どもり")%の腕くらい粗大的んスけど…　えっ、これを…　やっ…」
				PRINTFORMW %CALLNAME:MASTER%の長大な%TEXTR("陰茎/阴茎/肉槍/肉棒")%を目の当たりにして、%CALLNAME:TARGET%の顔はすっかり青ざめてしまった…
			ELSEIF SIZE("阴茎", PLAYER) == 2
				PRINTFORML 「ひっ、%CNAME("二人称", "どもり")%…　ちょ、ちょっとおっきすぎじゃ…ないっスか…？」
				PRINTFORMW %CALLNAME:TARGET%の顔は、突き付けられた%CALLNAME:MASTER%の巨大な%TEXTR("陰茎/阴茎/肉槍/肉棒")%を見て轻轻地引きつっている…
			ELSE
				PRINTFORML 「わっ…　こ、これが%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%…」
				PRINTFORMW %CALLNAME:TARGET%は初めて見た%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%に目が釘付けだ…
			ENDIF
		CASE 63, 73, 86
			IF SIZE("阴茎", PLAYER) >= 3
				PRINTFORML 「え、これ…　%CNAME("二人称", "どもり")%…？　%CNAME("一人称")%の腕より…　ひっ…」
				PRINTFORMW %CALLNAME:TARGET%は腹部に押し当てられた%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を目の当たりにし、すっかり青ざめてしまった…
			ELSEIF SIZE("阴茎", PLAYER) == 2
				PRINTFORML 「せせ%CNAME("二人称", "どもり")%…？　ちょっとおっきすぎじゃ…」
				PRINTFORMW %CALLNAME:TARGET%は腹部に押し当てられた%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%に轻轻地引いている…
			ELSE
				PRINTFORML 「こ、これが%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%っスか…」
				PRINTFORMW %CALLNAME:TARGET%の腹部に押し当てられた%TEXTR("陰茎/阴茎/肉槍/肉棒")%に目が釘付けだ…
			ENDIF
		CASE 64, 74, 87
			IF SIZE("阴茎", PLAYER) >= 3
				PRINTFORML 「ひゃっ…　なっ、何っ!?　やっ、べちんって　やだっ、%CNAME("二人称")%っ　こわい…」
				PRINTFORMW 背中に『べちん』と音がなるほどの質量の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を叩きつけられ、%CALLNAME:TARGET%はその正体を確かめようとするが体勢のせいで確かめることが出来ずうろたえている…
			ELSEIF SIZE("阴茎", PLAYER) == 2
				PRINTFORML 「ひゃっ…　%CNAME("二人称", "どもり")%おしりに何あてて…」
				PRINTFORMW 背中に『ぺちん』と%TEXTR("陰茎/阴茎/肉槍/肉棒")%を叩きつけるが、%CALLNAME:TARGET%は体勢のせいでその正体を確かめることが出来ないようでうろたえている…
			ELSE
				PRINTFORML 「ひゃんっ…　%CNAME("二人称", "どもり")%何してるっスか…」
				PRINTFORMW %CALLNAME:TARGET%は背中に当てられた正体がわからずうろたえている…
			ENDIF
		CASE 65, 75, 88
			IF SIZE("阴茎", PLAYER) >= 3

			ELSEIF SIZE("阴茎", PLAYER) == 2

			ELSE

			ENDIF
		;雙乳間抽插
		;CASE 81
		;	IF SIZE("阴茎", PLAYER) >= 3
		;		PRINTFORML 「
		;	ELSEIF SIZE("阴茎", PLAYER) == 2
		;		PRINTFORML
		;	ELSE
		;		PRINTFORML
		;	ENDIF
		;乳頭奸
		CASE 82
			CALL PRINT_STR, @"「え、えへへ_H_　%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%…　食べちゃうっス…　"
			IF SIZE("阴茎", PLAYER) >= 3
				CALL PRINT_STR, @"えっ…　%CNAME("一人称")%の腕より粗大的とか…　%TEXTR("ちくび/乳頭")%壊れちゃうっスよ…？」_L"
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の長大な%TEXTR("陰茎/阴茎/肉槍/肉棒")%を目の当たりにすると、その巨大さに引いてしまっている…
			ELSEIF SIZE("阴茎", PLAYER) == 2
				CALL PRINT_STR, @"こ、こんなにおっきいの…　壊れちゃうじゃないっスか_H_」_L"
				PRINTFORMW %CALLNAME:MASTER%の巨大な%TEXTR("陰茎/阴茎/肉槍/肉棒")%を目の当たりにしながらも%CALLNAME:TARGET%はうっとりとした表情で看了过来……
			ELSE
				CALL PRINT_STR, @"こ、こんなの入っちゃうんスね…_H__」_L"
				PRINTFORMW %CALLNAME:TARGET%はそう言いながらもうっとりとした表情で%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を看了过来…
			ENDIF
		;手淫　口交　乳交
		CASE 90, 91, 92
			IF SIZE("阴茎", PLAYER) >= 3
				PRINTFORML 「ひゃんっ…　えっ、これ…　ちんち…ん…？」
				PRINTFORMW 『べちん』と音を立てるように%CALLNAME:TARGET%の顔面へ叩き付けられたモノを%TEXTR("陰茎/阴茎/肉槍/肉棒")%だと認識すると、%CALLNAME:TARGET%は僅かに涙を溜め引きつってしまった…
			ELSEIF SIZE("阴茎", PLAYER) == 2
				PRINTFORML 「うひゃっ…　ちょっ、ちょっとおっきすぎじゃないっスか…？　%CNAME("二人称")%」
				PRINTFORMW 鼻先を掠めるようにさらけ出された%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を目の当たりにすると、%CALLNAME:TARGET%は轻轻地引きつってしまった…
			ELSE
				PRINTFORML 「わっ…　こ、これが%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%…」
				PRINTFORMW %CALLNAME:TARGET%は眼前にさらけ出された%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%に目が釘付けの様子だ…
			ENDIF
		;素股
		CASE 93, 101
			IF SIZE("阴茎", PLAYER) >= 3
				PRINTFORML 「えっ…　%CNAME("一人称", "どもり")%の%TEXTR("胸部/胸")%まで届いてるんスけど…」
				PRINTFORMW %CALLNAME:MASTER%の長大な%TEXTR("陰茎/阴茎/肉槍/肉棒")%を目の当たりにして、%CALLNAME:TARGET%の顔はすっかり青ざめてしまった…
			ELSEIF SIZE("阴茎", PLAYER) == 2
				PRINTFORML 「ひゃっ…　%CNAME("二人称", "どもり")%…　ちょっとおっきすぎじゃ…」
				PRINTFORMW %CALLNAME:TARGET%は目の前に突き出された%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%の巨大さに轻轻地引いてしまった様子だ…
			ELSE
				PRINTFORMW 「わっ…　こ、これが、%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%…」
			ENDIF
		;足交
		;CASE 95
		;	IF SIZE("阴茎", PLAYER) >= 3
		;		PRINTFORML
		;	ELSEIF SIZE("阴茎", PLAYER) == 2
		;		PRINTFORML
		;	ELSE
		;		PRINTFORML
		;	ENDIF
		ENDSELECT
		CALL SET_CEVENT, "阴茎初見"
	ENDIF

	IF SELECTCOM >= 60 && SELECTCOM <= 68
		IF TALENT:処女 && TALENT:恋慕 == 0
			IF MOOD_HEART() >= 4 && PALAM:欲情 >= 8000 &&  TEQUIP:拘束 == 0
				PRINTFORM 「%CNAME("二人称", "どもり")%、我慢できないっスよね？
				SIF SIZE("阴茎", PLAYER) >= 3
					PRINTFORM こわいけど…
				PRINTFORMW がっ、我慢できないなら…　良いっスよ…」
			ELSEIF MOOD_HEART() >= 4 || PALAM:欲情 >= 8000 &&  TEQUIP:拘束 == 0
				PRINTFORML 「ダメっ、ダメっスよ%CNAME("二人称")%！！」
				PRINTFORML %CALLNAME:TARGET%は顔を真っ赤にしながら必死に押し返しているが力は前よりも弱弱しい…
				PRINTFORMW 情緒と興奮によってはこのまま勢いで挿入も出来るだろうが…
			ELSEIF TEQUIP:拘束 == 0
				PRINTFORMW 「%CNAME("二人称")%、ダメって言ったじゃないっスか！！」
				PRINTFORMW 情緒と興奮によっては押し切れるかもしれない…
			ENDIF

			IF MOOD_HEART() >= 4 && PALAM:欲情 >= 8000 || COND("発情期")

			ELSEIF TEQUIP:拘束
				PRINTFORML 「ちょ、%CNAME("二人称", "どもり")%%TEXTR("ちんちん/おちんちん")%押し付けてなにし…　やだっ　やあぁっ…」
				PRINTFORMW %CALLNAME:MASTER%は拘束され身動きの取れない%CALLNAME:TARGET%の%TEXTR("膣/女性器/肉洞/肉孔")%へ强行%TEXTR("陰茎/阴茎/肉槍/肉棒")%を突き入れた…

				CALL SET_GOUI, "危険日生性交", TARGET
				CALL SETFLAG, "Ｖ生挿入許可"
				CALL SET_CEVENT, "强行"
			ELSE
				PRINTFORML [1]推倒
				PRINTFORML [2]諦める
				$INPUT_LOOP_02
					INPUT
				SELECTCASE RESULT
					CASE 1
						IF TALENT:大力士 > TALENT:MASTER:大力士
							PRINTFORML %CALLNAME:MASTER%は霸王硬上弓押し倒そうとしたが%CALLNAME:TARGET%の力は%CALLNAME:MASTER%よりも強くついには投げ飛ばされてしまった…
							PRINTFORMW 「ダメって言ったじゃないっスか…」
							FLAG:情緒 -= 60
							TFLAG:指令中止 = 1
						ELSEIF TALENT:大力士 < TALENT:MASTER:大力士
							PRINTFORM %CALLNAME:MASTER%霸王硬上弓%CALLNAME:TARGET%を推倒性器に
							IF SELECTCOM >= 60 && SELECTCOM <= 68
								PRINTFORM %TEXTR("陰茎/阴茎/肉槍/肉棒")%
							ELSE
								PRINTFORM 振動棒
							ENDIF
							PRINTFORML を突き入れた…
							CALL SET_GOUI, "危険日生性交", TARGET
							CALL SETFLAG, "Ｖ生挿入許可"
							CALL SET_CEVENT, "强行"
						ENDIF
					CASE 2
						TFLAG:指令中止 = 1
				ENDSELECT
			ENDIF
		ELSE

		ENDIF
	ENDIF

	IF SELECTCOM == 151
		IF FIRSTCOM(SELECTCOM) == 0
			TFLAG:地の文スキップ = 1
		ELSEIF RAND:4 == 0 && COND("尿道履歴") > 15
			TFLAG:地の文スキップ = 1
			CALL SET_CEVENT, "ブジー変化"
		ELSE

		ENDIF
	ENDIF
;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K7, 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_STR, @"「やっ、何っ%TEXTR("阴蒂/阴蒂/阴蒂酱/お豆")%ヘンっ　んきゅうっ_H_」_W"
	ELSEIF NOWEX:Ｃ絶頂 >= 3
		PRINTFORM 「
		IF RAND:3 == 0
			CALL PRINT_STR, @"ひっ_H_ぴぎゅっ_H_ _H"
		ELSEIF RAND:3
			CALL PRINT_STR, @"ぴぃっ_H_ _H"
		ELSE
			CALL PRINT_STR, @"せっ_H_ぱいっ_H_ _H"
		ENDIF
		PRINTFORML 」
		PRINTFORMW %CALLNAME:TARGET%は絶頂の強さに四肢と喉を震わせることしかできない様子だ…
	ELSEIF NOWEX:Ｃ絶頂 >= 2
		CFLAG:随机 = RAND:4
		PRINTFORM 「なっ、ni↘…
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"あっがっ…_H_かはっ…"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"ひっ_H_あ゛ぁ゛あ゛あ゛ぁ゛ぁ゛ぁ゛っ゛"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"い゛っ゛_H_んぎっ_H_ _H"
		ELSE
			CALL PRINT_STR, @"や、やめっ…　んぎゅっ_H_ぎっ_H"
		ENDIF
		PRINTFORMW 」
	ELSE
		CFLAG:随机 = RAND:4
		PRINTFORM 「イクっ、%TEXTR("阴蒂/阴蒂/阴蒂酱/お豆")%でイっちゃうっス
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"あっあっああああぁぁぁぁっ_H"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"んきゅうぅぅっ_H"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"ひぎゅうぅうぅぅっ_H"
		ELSE
			CALL PRINT_STR, @"あああぁぁぁああぁぁっ_H"
		ENDIF
		PRINTFORMW 」
	ENDIF
;-------------------------------------------------
;尿道絶頂
;-------------------------------------------------
CASE "尿道絶頂"
	IF FIRST_EV("尿道絶頂") == 0
		CALL PRINT_STR, @"「やっ、何っ%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ヘンっ　んきゅうっ_H_」_W"
	ELSEIF NOWEX:尿道絶頂 >= 3
		PRINTFORM 「
		IF RAND:3 == 0
			CALL PRINT_STR, @"はぎゅっ_HH_　かはっ_H_　ひっ、ぎっ_H_　あ_H_あっ_H_　あっ…_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%、すごかった…っス_H_"
		ELSEIF RAND:3
			CALL PRINT_STR, @"ぴぃっ_H_ _H"
		ELSE
			CALL PRINT_STR, @"せっ_H_ぱいっ_H_ _H_　前輩っ_HH_"
		ENDIF
		PRINTFORML 」
		CFLAG:0 = CALCF("尿道径")
		CFLAG:誤差1 = (CFLAG:0 + 5)
		CFLAG:0 = CALCF("尿道径")
		CFLAG:誤差2 = (CFLAG:0 - 5)
		IF RAND:2 == 0 && (SIZE("阴茎の直径", MASTER) <= CFLAG:誤差1) && (SIZE("阴茎の直径", MASTER) >= CFLAG:誤差2)
			IF CEVENT("尿道裂け") == 0
				PRINTFORMW %CALLNAME:TARGET%はの尿道は強烈な絶頂により、%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を力強く締め付けてしまったために轻轻地裂けてしまった様子だ…
				IF PENIS(TARGET)
					CSTR:Ｐ尿道拡張度 = %ADDNUM_STR(CSTR:Ｐ尿道拡張度, 1)%
				ELSE
					CSTR:Ｖ尿道拡張度 = %ADDNUM_STR(CSTR:Ｖ尿道拡張度, 1)%
				ENDIF
				CALL SET_CEVENT, "尿道裂け"
			ELSEIF CEVENT("尿道裂け2") == 0
				PRINTFORMW %CALLNAME:TARGET%はの尿道は強烈な絶頂により、%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を力強く締め付けてしまったために轻轻地裂けてしまった様子だ…
				IF PENIS(TARGET)
					CSTR:Ｐ尿道拡張度 = %ADDNUM_STR(CSTR:Ｐ尿道拡張度, 1)%
				ELSE
					CSTR:Ｖ尿道拡張度 = %ADDNUM_STR(CSTR:Ｖ尿道拡張度, 1)%
				ENDIF
				CALL SET_CEVENT, "尿道裂け2"
			ELSEIF CEVENT("尿道裂け3") == 0
				PRINTFORMW %CALLNAME:TARGET%はの尿道は強烈な絶頂により、%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を力強く締め付けてしまったために轻轻地裂けてしまった様子だ…
				IF PENIS(TARGET)
					CSTR:Ｐ尿道拡張度 = %ADDNUM_STR(CSTR:Ｐ尿道拡張度, 1)%
				ELSE
					CSTR:Ｖ尿道拡張度 = %ADDNUM_STR(CSTR:Ｖ尿道拡張度, 1)%
				ENDIF
				CALL SET_CEVENT, "尿道裂け3"
			ELSEIF CEVENT("尿道裂け4") == 0
				PRINTFORMW %CALLNAME:TARGET%はの尿道は強烈な絶頂により、%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を力強く締め付けてしまったために轻轻地裂けてしまった様子だ…
				IF PENIS(TARGET)
					CSTR:Ｐ尿道拡張度 = %ADDNUM_STR(CSTR:Ｐ尿道拡張度, 1)%
				ELSE
					CSTR:Ｖ尿道拡張度 = %ADDNUM_STR(CSTR:Ｖ尿道拡張度, 1)%
				ENDIF
				CALL SET_CEVENT, "尿道裂け4"
			ELSEIF CEVENT("尿道裂け5") == 0
				PRINTFORMW %CALLNAME:TARGET%はの尿道は強烈な絶頂により、%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を力強く締め付けてしまったために轻轻地裂けてしまった様子だ…
				IF PENIS(TARGET)
					CSTR:Ｐ尿道拡張度 = %ADDNUM_STR(CSTR:Ｐ尿道拡張度, 1)%
				ELSE
					CSTR:Ｖ尿道拡張度 = %ADDNUM_STR(CSTR:Ｖ尿道拡張度, 1)%
				ENDIF
				CALL SET_CEVENT, "尿道裂け5"
			ELSEIF CEVENT("尿道裂け6") == 0
				PRINTFORMW %CALLNAME:TARGET%はの尿道は強烈な絶頂により、%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を力強く締め付けてしまったために轻轻地裂けてしまった様子だ…
				IF PENIS(TARGET)
					CSTR:Ｐ尿道拡張度 = %ADDNUM_STR(CSTR:Ｐ尿道拡張度, 1)%
				ELSE
					CSTR:Ｖ尿道拡張度 = %ADDNUM_STR(CSTR:Ｖ尿道拡張度, 1)%
				ENDIF
				CALL SET_CEVENT, "尿道裂け6"
			ELSE
				PRINTFORMW %CALLNAME:TARGET%の尿道は強烈な絶頂により、%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を千切らんばかりの強さで締め付けてくる…
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:TARGET%は絶頂の強さに四肢と喉を震わせることしかできない様子だ…
		ENDIF
	ELSEIF NOWEX:尿道絶頂 >= 2
		CFLAG:随机 = RAND:4
		PRINTFORM 「なっ、ni↘…
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"あっがっ…_H_かはっ…"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"ひっ_H_あ゛ぁ゛あ゛あ゛ぁ゛ぁ゛ぁ゛っ゛"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"い゛っ゛_H_んぎっ_H_ _H"
		ELSE
			CALL PRINT_STR, @"や、やめっ…　んぎゅっ_H_ぎっ_H"
		ENDIF
		PRINTFORMW 」
	ELSE
		CFLAG:随机 = RAND:4
		PRINTFORM 「イクっ、%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%でイっちゃうっス
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"あっあっああああぁぁぁぁっ_H"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"んきゅうぅぅっ_H"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"ひぎゅうぅうぅぅっ_H"
		ELSE
			CALL PRINT_STR, @"あああぁぁぁああぁぁっ_H"
		ENDIF
		PRINTFORMW 」
	ENDIF
;-------------------------------------------------
;V絶頂
;-------------------------------------------------
CASE "Ｖ絶頂"
	IF FIRST_EV("Ｖ絶頂") == 0
		CALL PRINT_STR, @"「やっ、何っ%TEXTR("まんこ/おまんこ/おだいじ")%ヘンっ　んきゅうっ_H_」_W"
	ELSEIF NOWEX:Ｖ絶頂 >= 3
		PRINTFORM 「
		IF RAND:3 == 0
			CALL PRINT_STR, @"ひっ_H_ぴぎゅっ_H_ _H"
		ELSEIF RAND:3
			CALL PRINT_STR, @"ぴぃっ_H_ _H"
		ELSE
			CALL PRINT_STR, @"せっ_H_ぱいっ_H_ _H"
		ENDIF
		PRINTFORML 」
		PRINTFORMW %CALLNAME:TARGET%は絶頂の強さに四肢と喉を震わせることしかできない様子だ…
	ELSEIF NOWEX:Ｃ絶頂 >= 2
		CFLAG:随机 = RAND:4
		PRINTFORM 「なっ、ni↘…
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"あっがっ…_H_かはっ…"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"ひっ_H_あ゛ぁ゛あ゛あ゛ぁ゛ぁ゛ぁ゛っ゛"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"い゛っ゛_H_んぎっ_H_ _H"
		ELSE
			CALL PRINT_STR, @"や、やめっ…　んぎゅっ_H_ぎっ_H"
		ENDIF
		PRINTFORMW 」
	ELSE
		CFLAG:随机 = RAND:4
		PRINTFORM 「イクっ、%TEXTR("まんこ/おまんこ/おだいじ")%でイっちゃうっス
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"あっあっああああぁぁぁぁっ_H"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"んきゅうぅぅっ_H"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"ひぎゅうぅうぅぅっ_H"
		ELSE
			CALL PRINT_STR, @"あああぁぁぁああぁぁっ_H"
		ENDIF
		PRINTFORMW 」
	ENDIF
;-------------------------------------------------
;初めてA絶頂
;-------------------------------------------------
CASE "Ａ絶頂"
	IF FIRST_EV("Ａ絶頂") == 0
		CALL PRINT_STR, @"「やっ、何っおしりヘンっ　んきゅうっ_H_」_W"
	ELSEIF NOWEX:Ａ絶頂 >= 3
		PRINTFORM 「
		IF RAND:3 == 0
			CALL PRINT_STR, @"ひっ_H_ぴぎゅっ_H_ _H"
		ELSEIF RAND:3
			CALL PRINT_STR, @"ぴぃっ_H_ _H"
		ELSE
			CALL PRINT_STR, @"せっ_H_ぱいっ_H_ _H"
		ENDIF
		PRINTFORML 」
		PRINTFORMW %CALLNAME:TARGET%は絶頂の強さに四肢と喉を震わせることしかできない様子だ…
	ELSEIF NOWEX:Ａ絶頂 >= 2
		CFLAG:随机 = RAND:4
		PRINTFORM 「なっ、ni↘…
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"あっがっ…_H_かはっ…"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"ひっ_H_あ゛ぁ゛あ゛あ゛ぁ゛ぁ゛ぁ゛っ゛"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"い゛っ゛_H_んぎっ_H_ _H"
		ELSE
			CALL PRINT_STR, @"や、やめっ…　んぎゅっ_H_ぎっ_H"
		ENDIF
		PRINTFORMW 」
	ELSE
		CFLAG:随机 = RAND:4
		PRINTFORM 「イクっ、おしりでイっちゃうっス
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"あっあっああああぁぁぁぁっ_H"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"んきゅうぅぅっ_H"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"ひぎゅうぅうぅぅっ_H"
		ELSE
			CALL PRINT_STR, @"あああぁぁぁああぁぁっ_H"
		ENDIF
		PRINTFORMW 」
	ENDIF
;-------------------------------------------------
;B絶頂
;-------------------------------------------------
CASE "Ｂ絶頂"
	IF FIRST_EV("Ｂ絶頂") == 0
		CALL PRINT_STR, "「やっ、何っ", TEXTR("胸部/胸/ちくび/乳頭"), "ヘンっ　んきゅうっ_H_」_W"
	ELSEIF NOWEX:Ｂ絶頂 >= 3
		PRINTFORM 「
		IF RAND:3 == 0
			CALL PRINT_STR, @"ひっ_H_ぴぎゅっ_H_ _H"
		ELSEIF RAND:3
			CALL PRINT_STR, @"ぴぃっ_H_ _H"
		ELSE
			CALL PRINT_STR, @"せっ_H_ぱいっ_H_ _H"
		ENDIF
		PRINTFORML 」
		PRINTFORMW %CALLNAME:TARGET%は絶頂の強さに四肢と喉を震わせることしかできない様子だ…
	ELSEIF NOWEX:Ｂ絶頂 >= 2
		CFLAG:随机 = RAND:4
		PRINTFORM 「なっ、ni↘…
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"あっがっ…_H_かはっ…"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"ひっ_H_あ゛ぁ゛あ゛あ゛ぁ゛ぁ゛ぁ゛っ゛"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"い゛っ゛_H_んぎっ_H_ _H"
		ELSE
			CALL PRINT_STR, @"や、やめっ…　んぎゅっ_H_ぎっ_H"
		ENDIF
		PRINTFORMW 」
	ELSE
		CFLAG:随机 = RAND:4
		PRINTFORM 「イクっ、%TEXTR("胸部/胸/ちくび/乳頭")%でイっちゃうっス
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"あっあっああああぁぁぁぁっ_H"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"んきゅうぅぅっ_H"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"ひぎゅうぅうぅぅっ_H"
		ELSE
			CALL PRINT_STR, @"あああぁぁぁああぁぁっ_H"
		ENDIF
		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
		PRINTFORMW 「でっ、出ちゃってるっス…　おしっこ…ああぁぁ…」
	;二回目以降
	ELSE
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORM 「ど、どーっスか？%CNAME("二人称")%見えるっスか？
			SIF ABL:尿道感覚 > 5
				PRINTFORM 　%CNAME("一人称")%、おしっこしてきもちくなってるっス
			PRINTFORMW 」
		;それ以外
		ELSE

			PRINTFORM 「えへへ、おしっこでちゃった
			SIF ABL:尿道感覚 > 5
				PRINTFORM 　%CNAME("一人称")%…おしっこしてきもちくなる変態桑っス…
			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_K7, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

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

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

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

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

;-------------------------------------------------
;顔へのぶっかけ
;-------------------------------------------------
IF SHOOT("顔")
	;初めて
	IF FIRST_EV("絶頂：ぶっかけ顔") == 0
		IF RAND:2 == 0 && CHECK_OTHER("眼鏡")
			PRINTFORMW 「わぷっ、もー%CNAME("二人称")%っ！眼鏡にかけないで欲しいっス！！」
		ELSE
			PRINTFORMW 「わぷっ、惊嚇するじゃないっスか！」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF CHECK_OTHER("眼鏡")
				IF RAND:3 == 0 && ABL:精液中毒 > 4
					PRINTFORMW 「わわっ、%TEXTR("せーし/精子/せーえき/精液")%もったいないっス…　ちゅるっ、ちゅぷ…」
				ELSEIF RAND:3 && ABL:精液中毒 > 4 && TALENT:淫乱
					PRINTFORM 「もったいないっス、出すなら
						CFLAG:随机 = RAND:5
						IF CFLAG:随机 == 0 && TALENT:淫壷
							PRINTFORM %TEXTR("まんこ/おまんこ/おだいじ/肉飞机杯")%
						ELSEIF CFLAG:随机 == 1 && TALENT:淫乳 && CONFIG("乳頭奸")
							PRINTFORM %TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%
						ELSEIF CFLAG:随机 == 2 && TALENT:尻穴狂い
							PRINTFORM %TEXTR("おしり/お尻/ケツ穴/ケツまんこ/ちょくちょー飞机杯")%
						ELSEIF CFLAG:随机 == 3 && TALENT:尿道狂
							PRINTFORM %TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴/にょーどー飞机杯/尿道飞机杯")%
						ELSE
							PRINTFORM %TEXTR("くちまんこ/のどまんこ/くち飞机杯/のど飞机杯")%
						ENDIF
					CALL PRINT_STR, @"に%TEXTR("びゅるびゅる/びゅーびゅー")%出して欲しいっスよ_H_」_W"
				ELSE
					PRINTFORML 「もー、かけないで欲しいって言ってるっス…　ぺろっ、んちゅっ…」
					PRINTFORMW %CALLNAME:TARGET%は眼鏡に付いた精液を精心舐め取っている…
				ENDIF
			ELSE
				PRINTFORML 「わっ、もー…顔中べとべとっス…　んっ、ちゅるっ…」
				PRINTFORMW %CALLNAME:TARGET%は顔に付いた精液を指でこそぎ取り舐めている…
			ENDIF
		;それ以外
		ELSE
			IF CHECK_OTHER("眼鏡")
				IF RAND:2 == 0
					PRINTFORML 「もー…　%CNAME("二人称")%にいくら言っても眼鏡にかけるの止めてくれないから諦めたっス…」
				ELSE
					PRINTFORML 「んもー、眼鏡がぴがぴになっちゃうっスよー…」
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%は眼鏡にこびりついた精液を指でぬぐっている…
			ELSE
				PRINTFORML 「もー、%CNAME("二人称")%は顔にかけるの好きっスねー…」
				PRINTFORMW %CALLNAME:TARGET%は顔にこびりついた精液を指でぬぐっている…
			ENDIF
		ENDIF
	ENDIF
;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
ELSEIF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW
	;超大量射精
	ELSEIF COND("絶頂", PLAYER) >= 3
		PRINTFORMW
	;大量射精
	ELSEIF COND("絶頂", PLAYER) == 2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰")
	PRINTFORMW

;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた
;-------------------------------------------------
ELSEIF SHOOT("脚")
	;初めて
	IF FIRST_EV("絶頂：脚") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ELSEIF SHOOT("素股")
	PRINTFORMW
;-------------------------------------------------
;口で射精させた
;-------------------------------------------------
ELSEIF SHOOT("口")
	;初めて
	IF FIRST_EV("絶頂：口") == 0
		PRINTFORMW
	;精液中毒Lv5
	ELSEIF ABL:精液中毒 >= 5
		PRINTFORMW
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;性交で射精させた
;-------------------------------------------------
ELSEIF SHOOT("Ｖ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ｖ中出し") == 0 && TALENT:恋慕 == 0 && COND("危険日") && COND("発情期")
		PRINTFORML 「はぁ、はぁ…　%CNAME("二人称")%一杯出たっスね…　よかった」
		PRINTFORMW %CALLNAME:TARGET%は荒い呼吸を整え的同时、%CALLNAME:MASTER%を射精させたという達成感で満たされている様子だ…
	;恋慕
	ELSEIF TALENT:恋慕
		CFLAG:随机 = RAND:3
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"「えへへ…_H_　%TEXTR("せーし/精子/せーえき/精液")%いっぱい出したっスね？　%CNAME("二人称")%_H_」"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"「あはっ_H_　おなか…　あったかい_H_」_W_"
		ELSE
			CALL PRINT_STR, @"「かひゅっ_H_　%CNAME("二人称", "どもり")%…　%TEXTR("せーし/精子/せーえき/精液")%いきおい凄すぎっスよ…_H_」_W_"
		ENDIF
	ELSEIF COND("発情期")
		CFLAG:随机 = RAND:3
		IF CFLAG:随机 == 0
			CALL PRINT_STR, @"「くふうぅぅぅ…_H_　おにゃか…　あったかひ…_H_」"
		ELSEIF CFLAG:随机 == 1
			CALL PRINT_STR, @"「くひっ_H_　%TEXTR("せーし/精子/せーえき/精液")%一杯出たっスね_H_」_W_"
		ELSE
			CALL PRINT_STR, @"「きゅひっ_H_　ナカぁ…　いっぱい…_H_」_W_"
		ENDIF
	ELSEIF TALENT:大力士 < TALENT:MASTER:大力士 && TALENT:恋慕 == 0 && COND("危険日")
		CFLAG:随机 = RAND:3
		IF CFLAG:随机 == 0
			PRINTFORMW 「やっ、やだっ　%TEXTR("せーし/精子/せーえき/精液")%やだぁっ…」
		ELSEIF CFLAG:随机 == 1
			PRINTFORMW 「だめっ　%CNAME("二人称")%ナカだめぇ…」
		ELSE
			PRINTFORMW 「外っ、せめて%CNAME("二人称")%外ni↘」
		ENDIF
	;屈服刻印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("乳内中出し")
	IF FIRST_EV("絶頂：乳内中出し") == 0
		CALL PRINT_STR, @"「あっ、%TEXTR("胸部/胸")%の中で%TEXTR("せーし/精子/せーえき/精液")%でて…　んっ…_H_」_W"
	ELSE
		;超大量射精
		IF COND("絶頂", PLAYER) >= 3
			CFLAG:随机 = RAND:5
			IF CFLAG:随机 == 0
				PRINTFORMW 「%CNAME("二人称", "どもり")%そんな出しても入りきらないっス…」
			ELSEIF CFLAG:随机 == 1
				PRINTFORMW 「%CNAME("一人称")%の%TEXTR("胸部/胸")%膨らんじゃう…」
			ELSEIF CFLAG:随机 == 2
				PRINTFORMW 「でてりゅっ、%CNAME("一人称")%の%TEXTR("胸部/胸")%の中に%TEXTR("びゅるびゅる/びゅーびゅー")%ってええぇぇえぇっ」
			ELSEIF CFLAG:随机 == 2 && TALENT:母乳体質
				PRINTFORMW 「%CNAME("一人称")%の%TEXTR("母乳/ぼにゅー")%が%TEXTR("せーし/精子/せーえき/精液")%臭くなっちゃうっスよ…」
			ELSEIF CFLAG:随机 == 3 && ABL:精液中毒 > 4
				CALL PRINT_STR, @"「んんっ_H_%TEXTR("胸部/胸")%の中で%TEXTR("せーし/精子/せーえき/精液")%があばれて…　きもちいっス…_H_」_W"
			ELSE
				CALL PRINT_STR, @"「あ、あはっ_H_%CNAME("一人称")%の%TEXTR("胸部/乳頭/ちくび")%開きっぱ无になっちゃうっス…_H_」_W"
			ENDIF
		;大量射精
		ELSEIF COND("絶頂", PLAYER) == 2
			IF RAND:3 == 0 && ABL:精液中毒 > 4
				CALL PRINT_STR, @"「うわっ、%CNAME("二人称")%出しすぎっス…　%CNAME("一人称")%のそんなにきもちかったんスか…_H_」_L"
				PRINTFORMW そう言いながら%TEXTR("陰茎/阴茎/肉槍/肉棒")%を受け入れ開いたままの乳頭を、指でかき回し精液を味わっている…
			ELSEIF RAND:3 && EX:同時絶頂
				PRINTFORML 「しゅごひっ、%TEXTR("胸部/乳穴")%せっくしゅクセになりそうっス…」
				PRINTFORMW %CALLNAME:TARGET%は%TEXTR("陰茎/阴茎/肉槍/肉棒")%と乳頭の隙間から溢れる精液をうっとりとした表情で看了过来…
			ELSE
				PRINTFORML 「んんっ、%CNAME("一人称")%の%TEXTR("胸部/胸")%…　%TEXTR("せーし/精子/せーえき/精液")%でおっきくなっちゃいそうっス…」
			ENDIF
		ELSE
			IF RAND:3 == 0 && ABL:精液中毒 > 4
				CALL PRINT_STR, @"「あっ_H_%TEXTR("せーし/精子/せーえき/精液")%もったいない…　んっ…じゅるっ_H_ぷあっ、ごちそー大人っス_H_」_L"
				PRINTFORM %CALLNAME:TARGET%乳腺内に吐き出された精液を
				SIF TALENT:母乳体質
					PRINTFORM 母乳ごと
				PRINTFORMW 吸い出して口内で味わい嚥下した…
			ELSEIF RAND:3
				PRINTFORMW 「%CNAME("一人称")%の%TEXTR("胸部/胸")%から%TEXTR("せーし/精子/せーえき/精液")%の气味取れなくなっちゃうっスよ…」
			ELSE
				CALL PRINT_STR, @"「んんっ…%TEXTR("胸部/胸")%の中に%TEXTR("せーし/精子/せーえき/精液")%出すとか…　%CNAME("二人称")%は変態桑っス…_H_」_W"
			ENDIF
		ENDIF
	ENDIF
ELSEIF SHOOT("尿道中出し")
	;初めて
	IF FIRST_EV("絶頂：尿道中出し") == 0
		CALL PRINT_STR, @"「あ、あっ…%CNAME("二人称")%…　%CNAME("一人称")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%いっぱいに…_H_」_W"
	ELSE
		;超大量射精
		IF COND("絶頂", PLAYER) >= 3
			CFLAG:随机 = RAND:5
			IF EX:尿道絶頂 >= 20
				CFLAG:随机 = RAND:3
				IF CFLAG:随机 == 0
					CALL PRINT_STR, @"「ひゃひっ_HH_　せんぱひっ、出ひすぎっ_HH_　%TEXTR("にょーどー/おしっこあな")%どろどろっス…_H_」_W"
				ELSEIF CFLAG:随机 == 1 && COND("尿道弱点", PLAYER)
					CALL PRINT_STR, @"「きもひよかったんスねぇ、%CNAME("二人称", "甘え")%_HH_　%CNAME("一人称")%の%TEXTR("にょーどー/おしっこあな")%こわすの_HH_」_W"
				ELSE
					CALL PRINT_STR, @"「しゅごひっ_H_　おにゃかっ、はれつしちゃっ_HH_　しゅきっ_HHH_」_W"
				ENDIF
			ELSEIF CFLAG:随机 == 0 && COND("尿道弱点", PLAYER)
				PRINTFORMW 「えへへ、%CNAME("二人称")%のだーいすきな%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　きもちかったっスか…？」
			ELSEIF CFLAG:随机 == 1 && TALENT:尿道狂
				PRINTFORMW 「%CNAME("一人称")%…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%中出しでもきもちくなっちゃいそう…　っス…」
			ELSEIF CFLAG:随机 == 2
				CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%、%CNAME("一人称")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%がこのままじゃ%TEXTR("せーし/精子/せーえき/精液")%袋になっちゃうっスよ…_H_」_W"
			ELSEIF CFLAG:随机 == 3
				PRINTFORML 「あっ、あっ、いっぱいでて…　く、苦しいっス%CNAME("二人称")%…　うぶっ…」
				PRINTFORMW 明らかに膀胱の許容量を超えた精液は%TEXTR("びゅるびゅる/びゅーびゅー/ごぼごぼ/ごぽごぽ/ぶしゅぶしゅ")%と%TEXTR("酷い/醜い/汚い/いやらしい")%音を立てながら陰茎と尿道の隙間から溢れてきている…
			ELSE
				PRINTFORML 「%CNAME("二人称", "どもり")%っ…　%CNAME("一人称")%のおなか膨らんじゃって…　うぶっ…」
				PRINTFORMW 明らかに膀胱の許容量を超えたように見えた精液をなんとか体内に収め%CALLNAME:TARGET%の腹部は異常な様子で膨らんでいる…
			ENDIF
		;大量射精
		ELSEIF COND("絶頂", PLAYER) == 2
			IF EX:尿道絶頂 >= 20
				CFLAG:随机 = RAND:3
				IF CFLAG:随机 == 0
					CALL PRINT_STR, @"「ひぎゅっ_H_　おにゃかっ　はれつしちゃっ_HH_」_W"
				ELSEIF CFLAG:随机 == 1
					CALL PRINT_STR, @"「前輩_H_　いっぱひ出たっスねぇ_HH_」_W"
				ELSE
					CALL PRINT_STR, @"「でてりゅぅ_H_%TEXTR("ぼーこー/おしっこふくろ")%にいっぱひっ_H_」_W_"
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORML 「んっ、%CNAME("二人称")%出しすぎっスよ　ちょっとくるし…」
				PRINTFORMW 大量の精液を受け入れた腹部は微かに膨らみ始めている…
			ELSE
				PRINTFORML 「%CNAME("二人称", "どもり")%出しすぎっス…　そんなにきもちかったっスか？」
				PRINTFORMW 僅かに入りきらなかった精子は尿道と陰茎の隙間からトロトロと溢れてきている…
			ENDIF
		ELSE
			PRINTFORM 「%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%にせーえきだしちゃうとか%CNAME("二人称")%は変態桑っス
			SIF PALAM:快尿 > 8000
				PRINTFORM 　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%できもちくなってる%CNAME("一人称")%も変態っス
			PRINTFORML 」
			PRINTFORMW %CALLNAME:TARGET%は膀胱の辺りをさすりながら『えへへ』と笑いかけてきた
		ENDIF
	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_K7, ARGS
SELECTCASE ARGS
CASE "恍惚"
	PRINTFORMW
CASE "推倒"
	PRINTFORMW
CASE "強制終了"
	PRINTFORMW
CASE "復活"
	PRINTFORMW
CASE "恍惚から復帰"
	PRINTFORMW
CASE "助手が限界"
	PRINTFORMW
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;-------------------------------------------------
@KOJO_EVENT_K7, ARGS
SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
CASE "Ｖ避孕套装着"
	;挿入指令
	IF TRAIN_GENRE("挿入", SELECTCOM)
		;PLAYヤーは着ける気満々
		IF TEQUIP:PLAYER:避孕套
			SIF TEQUIP:拘束 || (TALENT:大力士 < TALENT:MASTER:大力士 && TALENT:恋慕 == 0)
				PRINTFORMW 「ご、避孕套は付けてくれるんスね…」
		;避孕套が無い
		ELSEIF ITEM:避孕套 == 0
			IF COND("発情期")
				CALL PRINT_STR, @"「あっ、はっ_H_　こづくりっ_H_　はやくっ　%CNAME("二人称")%はやくっ_H_」_L_"
				CALL SET_GOUI, "危険日生性交", TARGET
				CALL SETFLAG, "Ｖ生挿入許可"
			ELSEIF CEVENT("强行イベント") && (TALENT:大力士 < TALENT:MASTER:大力士 && TALENT:恋慕 == 0)
				PRINTFORMW 「%CNAME("二人称", "どもり")%っ　避孕套っ、避孕套はつけましょっ…　%CNAME("二人称")%っ…」
				CALL SET_GOUI, "危険日生性交", TARGET
				CALL SETFLAG, "Ｖ生挿入許可"
			ELSEIF TEQUIP:拘束 || (TALENT:大力士 < TALENT:MASTER:大力士 && TALENT:恋慕 == 0)
				PRINTFORMW 「やっ、やだっ出来ちゃ…」
				CALL SET_GOUI, "危険日生性交", TARGET
				CALL SETFLAG, "Ｖ生挿入許可"
			ENDIF
		;安全日に生希望
		ELSEIF COND("安全日")
			IF TEQUIP:拘束 || (TALENT:大力士 < TALENT:MASTER:大力士 && TALENT:恋慕 == 0)
				CALL SETFLAG, "Ｖ生挿入許可"
			ENDIF
		;安全日じゃないけど避孕套没有を希望
		ELSE
			IF COND("発情期")
				CALL PRINT_STR, @"「はっ_H_はっ_H_　避孕套っ　いらないっスからっ_H_　はやくっ　%CNAME("二人称", "甘え")%_H_」_L_"
				CALL SET_GOUI, "危険日生性交", TARGET
				CALL SETFLAG, "Ｖ生挿入許可"
			ELSEIF CEVENT("强行イベント") && (TALENT:大力士 < TALENT:MASTER:大力士 && TALENT:恋慕 == 0)
				PRINTFORMW 「ちょっ、%CNAME("二人称")% 避孕套をっ…」
				CALL SET_GOUI, "危険日生性交", TARGET
				CALL SETFLAG, "Ｖ生挿入許可"
			ELSEIF TEQUIP:拘束 || (TALENT:大力士 < TALENT:MASTER:大力士 && TALENT:恋慕 == 0)
				PRINTFORMW 「やっ、やだっ出来ちゃ…」
				CALL SET_GOUI, "危険日生性交", TARGET
				CALL SETFLAG, "Ｖ生挿入許可"
			ENDIF
		ENDIF
	;PLAYヤーへの挿入指令
	ELSEIF TRAIN_GENRE("逆挿入", SELECTCOM)
		;PLAYヤーは着けてもらうの希望
		IF TEQUIP:避孕套

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

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

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

		ENDIF
	ENDIF

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

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
CASE "清洁口交"
	SELECTCASE TFLAG:口上分岐
	;お掃除前
	CASE 0
		PRINTFORMW
	;お掃除中
	CASE 1
		PRINTFORMW
	;お掃除で射精しなかった
	CASE 2
		PRINTFORMW
	;お掃除で射精しそう？
	CASE 3
		PRINTFORMW
	;射精した
	CASE 4
		PRINTFORMW
	;お掃除で射精後
	CASE 5
		PRINTFORMW
	ENDSELECT
;-------------------------------------------------
;脱衣
;-------------------------------------------------
CASE "自発脱ぎ"
	;裸体变成了
	IF CHECK_CLO("裸体")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;阴部剥きだし
	ELSEIF CHECK_CLO("Ｖ露出")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;部分脱ぎ
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;妊娠した
;----------------------------------------------------------------
CASE "妊娠発覚"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;出産した
;----------------------------------------------------------------
CASE "出産"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;兒童が大きくなった
;----------------------------------------------------------------
CASE "子出口"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;性交後に抜いた時
;----------------------------------------------------------------
;恥ずかしいところを見せてくれる
;----------------------------------------------------------------
CASE "中出し後くぱぁ"
	IF INSERT("Ｖ挿入")

	ELSEIF INSERT("Ａ挿入")

	ELSE
		IF TALENT:尿道狂
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"「あはっ_H_　%CNAME("二人称")%っ、%CNAME("一人称", "どもり")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%じゃっ…　ふつーの生活できないっスね_H_」_L"
			ELSEIF CFLAG:随机 == 1 && COND("絶頂", PLAYER) >= 3
				CALL PRINT_STR, @"「えへへ_H_　%CNAME("二人称")%きもちかったっスか？　こんなにいっぱい出しちゃって…_H_」_L"
			ELSEIF CFLAG:随机 == 2 && NOWEX:尿道絶頂 >= 1
				CALL PRINT_STR, @"「あはっ_H_　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　すっかりきもちい穴になっちゃったっス_H_」_L"
			ELSE
				CALL PRINT_STR, @"「み、見えるっスか？　%CNAME("二人称")%_H_　%CNAME("一人称")%のえっちな%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%のおくっ_H_」_L"
			ENDIF
			CFLAG:随机 = RAND:4
			IF NOWEX:尿道絶頂 >= 5 && CFLAG:随机 == 0
				PRINTFORMW %CALLNAME:TARGET%はすっかりイき慣れた%TEXTR("尿道口/狭孔/排泄腔")%を指で割り裂き%CALLNAME:MASTER%へ見せ付けてきた…
			ELSEIF COND("絶頂", PLAYER) >= 3 && CFLAG:随机 == 1
				PRINTFORMW %CALLNAME:TARGET%の膀胱に大量的詰まった精液が割り裂かれた%TEXTR("尿道口/狭孔/排泄腔")%から下品な音を立てながらあふれ出てきた…
			ELSEIF CFLAG:随机 == 2
				PRINTFORMW すっかり蕩けた表情で%CALLNAME:TARGET%は%CALLNAME:MASTER%へ%TEXTR("尿道口/狭孔/排泄腔")%を指で割り裂き、その狭かった穴の最奥まで曝け出してきた…
			ELSE
				PRINTFORMW %CALLNAME:TARGET%は自己的%TEXTR("尿道口/狭孔/排泄腔")%を両指で裂けかねないほど拡げ、%CALLNAME:MASTER%肚臍の元は狭かった穴の最奥を見せ付けてきた…
			ENDIF
		ELSEIF CHECK("尿道PLAY")
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0 && NOWEX:尿道絶頂 >= 5
				CALL PRINT_STR, @"「ひっ_H_いぎっ_H_　%CNAME("二人称", "どもり")%、見えるっスか？　%CNAME("一人称")%のイってる%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%っ_H_」_L"
			ELSEIF CFLAG:随机 == 1 && COND("絶頂", PLAYER) >= 3
				IF RAND:2 == 0
					PRINTFORML 「んんっ…　ほら、%CNAME("二人称", "どもり")%？　いっぱい…　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%から%TEXTR("せーし/精子/せーえき/精液")%いっぱい出てくるとこ…」
				ELSE
					CALL PRINT_STR, @"「あはっ_H_　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%からごぼごぼって%TEXTR("せーし/精子/せーえき/精液")%出てきてる…」_L"
				ENDIF
			ELSEIF CFLAG:随机 == 2
				PRINTFORML 「えへへ…　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　すっかり%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%にぴったりになっちゃったっスね…」
			ELSE
				CALL PRINT_STR, @"「んんっ…　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　出口じゃなくて入り口になっちゃったっスね…_H_」_L"
			ENDIF
			CFLAG:随机 = RAND:4
			IF NOWEX:尿道絶頂 >= 1 && CFLAG:随机 == 0
				PRINTFORMW %CALLNAME:TARGET%は絶頂に震える指で自己的%TEXTR("尿道口/狭孔/排泄腔")%を割り裂き、その狭窄狭窄穴の奥を%CALLNAME:MASTER%へ曝け出してきた
			ELSEIF COND("絶頂", PLAYER) >= 3 && CFLAG:随机 == 1
				PRINTFORMW %CALLNAME:TARGET%の割り裂いた%TEXTR("尿道口/狭孔/排泄腔")%からは大量の精液がごぼごぼと下品な音を立てながら溢れてきた
			ELSEIF CFLAG:随机 == 2
				PRINTFORMW %CALLNAME:TARGET%は片手の指で自己的%TEXTR("尿道口/狭孔/排泄腔")%を割り開き、もう片方の手で内部を擦り上げ自慰をしている…
			ELSE
				PRINTFORMW %CALLNAME:TARGET%は自己的%TEXTR("尿道口/狭孔/排泄腔")%を%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%用と自覚し始めている様子だ…
			ENDIF
		ELSE
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				PRINTFORML 「み、見えるっスか？%CNAME("二人称")%…　%CNAME("二人称")%が壊したんスからね…？」
			ELSE
				PRINTFORML 「あ、あはは…　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　壊れちゃった…　スね…」
			ENDIF
			CFLAG:随机 = RAND:2
			IF CFLAG:随机 == 0
				PRINTFORMW %CALLNAME:TARGET%は空洞な目をしながら自己的%TEXTR("尿道口/狭孔/排泄腔")%を指で割り開き%CALLNAME:MASTER%へ見せてきた…
			ELSE
				PRINTFORMW %CALLNAME:TARGET%は瞳に涙を溜めながら%CALLNAME:MASTER%へ自己的%TEXTR("尿道口/狭孔/排泄腔")%を指で割り裂き奥まで晒してきた…
			ENDIF
		ENDIF
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	IF INSERT("Ｖ挿入")

	ELSEIF INSERT("Ａ挿入")

	ELSE
		IF TALENT:尿道狂
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0 && NOWEX:尿道絶頂 >= 5
				PRINTFORML 「みちゃ、ダメっス…　%CNAME("一人称")%、%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%イっちゃって%TEXTR("せーし/精子/せーえき/精液")%とおしっこ止まらないスから…」
			ELSEIF CFLAG:随机 == 1 && COND("絶頂", PLAYER) >= 3
				PRINTFORML 「見ないで欲しいっス…　ごぼごぼって%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%から凄い音してるから…」
			ELSEIF CFLAG:随机 == 2 && ABL:尿道名器度 >= 200
				CALL PRINT_STR, @"「えへへ_H_　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%…　%TEXTR("せーし/精子/せーえき/精液")%絞る為のえっちな穴になっちゃったスね」_L_"
			ELSE
				CALL PRINT_STR, @"「きもちく…　なれたっスか？　%CNAME("二人称")%_H_　えへへ、%CNAME("一人称")%も%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ダイスキっス_H_」_L_"
			ENDIF
			IF RAND:2 == 0
				PRINTFORMW %CALLNAME:TARGET%は尿道での性行為にハマってしまったと言っても恥ずかしいのか、顔を真っ赤にしながら%CALLNAME:MASTER%肚臍う囁いた…
			ELSE
				PRINTFORMW %CALLNAME:TARGET%は自分の発した言葉を反芻し、真っ赤になっている…
			ENDIF
		ELSE
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0 && NOWEX:尿道絶頂 >= 5
				PRINTFORML 「見ないで欲しいっス…　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%、閉じなくなっちゃってるから…」
			ELSEIF CFLAG:随机 == 1 && COND("絶頂", PLAYER) >= 3
				PRINTFORML 「%CNAME("二人称", "どもり")%、出しすぎっス…　%CNAME("一人称")%%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%が%TEXTR("せーし/精子/せーえき/精液")%の臭いになっちゃうじゃないっスか…」
			ELSEIF CFLAG:随机 == 2
				PRINTFORML 「見ちゃ、ダメっス…　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%壊れちゃったっスから…」
			ELSE
				PRINTFORML 「%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%締まらなくて止まらないっス…」
			ENDIF
		ENDIF
	ENDIF
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	IF INSERT("Ｖ挿入")

	ELSEIF INSERT("Ａ挿入")

	ELSE
		IF TALENT:尿道狂
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0 && NOWEX:尿道絶頂 >= 5
				PRINTFORML
			ELSEIF CFLAG:随机 == 1 && COND("絶頂", PLAYER) >= 3
				PRINTFORML
			ELSEIF CFLAG:随机 == 2
				PRINTFORML
			ELSE
				PRINTFORML
			ENDIF
		ELSEIF CHECK("尿道PLAY")
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0
				PRINTFORML
			ELSEIF CFLAG:随机 == 1
				PRINTFORML
			ELSEIF CFLAG:随机 == 2
				PRINTFORML
			ELSE
				PRINTFORML
			ENDIF
		ENDIF
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	IF INSERT("Ｖ挿入")

	ELSEIF INSERT("Ａ挿入")

	ELSE
		CFLAG:随机 = RAND:4
		IF CFLAG:随机 == 0 && NOWEX:尿道絶頂 >= 5
			CALL PRINT_STR, @"「は、はひっ_H_　ちから…　是んにゃひっス…_H_」_L_"
		ELSEIF CFLAG:随机 == 1 && COND("絶頂", PLAYER) >= 3
			CALL PRINT_STR, @"「き、きもちかったんスね？　こんなに%TEXTR("せーし/精子/せーえき/精液")%いっぱい出して_H_」_L_"
		ELSEIF CFLAG:随机 == 2
			CALL PRINT_STR, @"「はっ、はれ…？　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%しまんにゃひっ_H_」_L_"
		ELSE
			CALL PRINT_STR, @"「えへへ_H_　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%からごぼごぼって出てりゅっス…」_L_"
		ENDIF
		IF RAND:3 == 0
			PRINTFORMW %CALLNAME:TARGET%は手足を投げ出し、%TEXTR("尿道口/狭孔/排泄腔")%での快楽を愉しんでいる様子だ…
		ELSEIF RAND:3
			PRINTFORMW すっかり緩くなってしまった%CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%は、呼吸のたび『ごぼごぼ』と通常聞くことの出来ない音を響かせている…
		ELSE
			PRINTFORMW %CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を受け入れた%CALLNAME:TARGET%の%TEXTR("尿道口/狭孔/排泄腔")%は、覗けばその奥深くまで見えてしまいそうなほど開いてしまっている…
		ENDIF
	ENDIF
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
CASE "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

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

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

ENDSELECT

;-------------------------------------------------
;TARGET以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@KOJO_GUEST_K7, ARGS
SELECTCASE ARGS
CASE "調教相手に選ばれた"

CASE "助手に抜擢"
	;初めて
	IF EXP:助手経験 == 0

	ELSE

	ENDIF

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

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

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

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

CASE "助手：撮影開始"

CASE "助手：調教開始前の準備後台詞"

CASE "室内調教：登場台詞"

CASE "室内調教：ギャラリー増加台詞"

CASE "室内調教：感想台詞"

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

CASE "助手で性処理"

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

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

ENDSELECT

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

path: ERB/EVENT_K/07 ハナ/EVENT_K7.ERB

license: unknown