code:
;_KOJO_SYSTEM.ERBから呼ばれる口上用関数
;実行前・実行後・第三者実行前・第三者実行後に呼ばれるコマンド口上の関数
;同じカテゴリ分岐を通るのでカテゴリ分岐を下部の@KOJO_COM_CHECK_K7にまとめた
;───────────────────────────────────────
;●実行前
;───────────────────────────────────────
@KOJO_COM_BEFORE_K7
#DIM エル_対象
#DIM エル

;エル口上非表示をチェックする前にエルをとっておく
エル = NAME_TO_CHARA("エル")

;エル口上非表示
SIF CFLAG:エル:400 == 1
	RETURN 0

;口上カラーのセット
SETCOLOR エル_口上カラー

;衣装を取得し'エル_衣装'に格納
CALL GET_CLOTH_NAME_K7(エル)

;普段は主人公が対象
エル_対象 = MASTER

;カテゴリを決定して各口上を呼び出す
CALL KOJO_COM_CHECK_K7("前", エル_対象)

;口上カラーのリセット
RESETCOLOR

;描写のオンオフを渡す
RETURN RESULT

;───────────────────────────────────────
;●実行後
;───────────────────────────────────────
@KOJO_COM_AFTER_K7
#DIM エル_対象
#DIM エル

エル = NAME_TO_CHARA("エル")

SIF CFLAG:エル:400 == 1
	RETURN 0

SETCOLOR エル_口上カラー

エル_対象 = MASTER

CALL KOJO_COM_CHECK_K7("後", エル_対象)

RESETCOLOR

RETURN RESULT

;───────────────────────────────────────
;●第三者実行前
;───────────────────────────────────────
@KOJO_COM_THIRD_BEFORE_K7
#DIM エル_対象
#DIM エル

エル = NAME_TO_CHARA("エル")

SIF CFLAG:エル:400 == 1
	RETURN 0

SETCOLOR エル_口上カラー

;暫定的にメイン相手を主導権所有者に決定
エル_対象 = FLAG:主導権所有者
;主導権者がエル本人あるいはいなければ
IF エル_対象 == エル || エル_対象 == -1
	;エルが実行のとき対象
	IF IS_MPLY(エル)
		エル_対象 = MTAR:0
		;そうでなければ実行
	ELSE
		エル_対象 = MPLY:0
	ENDIF
ENDIF

SIF エル_対象 == -1
	RETURN 0

CALL KOJO_COM_CHECK_K7("前", エル_対象)

RESETCOLOR

RETURN RESULT

;───────────────────────────────────────
;●第三者実行後
;───────────────────────────────────────
@KOJO_COM_THIRD_AFTER_K7
#DIM エル
#DIM エル_対象

エル = NAME_TO_CHARA("エル")

SIF CFLAG:エル:400 == 1
	RETURN 0

SETCOLOR エル_口上カラー

エル_対象 = FLAG:主導権所有者
;主導権者がエル本人あるいはいなければ
IF エル_対象 == エル || エル_対象 == -1
	IF IS_MPLY(エル)
		エル_対象 = MTAR:0
	ELSE
		エル_対象 = MPLY:0
	ENDIF
ENDIF

SIF エル_対象 == -1
	RETURN 0

CALL KOJO_COM_CHECK_K7("後", エル_対象)

RESETCOLOR

RETURN RESULT

;───────────────────────────────────────
;●カテゴリ分岐
;　前後 = 実行前か実行後か
;　エル_対象 = 普段はMASTER 第三者なら相手を渡しておく
;───────────────────────────────────────
@KOJO_COM_CHECK_K7(前後, エル_対象)
#DIMS 前後
#DIM エル_対象
#DIM エル
#DIMS エル口上カテゴリ

エル = NAME_TO_CHARA("エル")
エル口上カテゴリ '= ""

;怒り哀しみによる離脱済み
;IF TCVAR:エル:53 > 1
;ENDIF

;虚ろ崩壊
IF TALENT:エル:虚ろ || TALENT:エル:崩壊
	エル口上カテゴリ '= "虚ろ"

	;快楽失神or酒酔睡眠や離脱状態（KOJO_SYSTEM.ERBで、TCVAR:失神フラグ || TCVAR:離脱フラグなら口上が抑制されるため、体力不足以外は死に分岐）
ELSEIF TCVAR:エル:51 || TCVAR:エル:52 || TCVAR:エル:53 == 1
	エル口上カテゴリ '= "失神"

	;ターゲットなら喋れない苦痛系コマンド 87フィスト 88Ａフィスト 94首絞め 97腹パン
ELSEIF ( IS_MTAR(エル) && GROUPMATCH(SELECTCOM, 87, 88, 94, 97) ) || IS_EQUIP_TARGET(エル, 87, 88, 94, 97)
	エル口上カテゴリ '= "叫び"

	;キス等の喋れないコマンド（単発継続）
ELSEIF GROUPMATCH(SELECTCOM, 20, 340, 341, 342) || IS_EQUIP(エル, 20, 340, 341, 342)
	エル口上カテゴリ '= "口塞"

	;ターゲットなら喋れないコマンド 86口枷 90イラマチオ 101顔面騎乗 102Ａ顔面騎乗 105Ｗ顔面騎乗 132口内放尿 210触手口辱
ELSEIF ( IS_MTAR(エル) && GROUPMATCH(SELECTCOM, 86, 90, 101, 102, 105, 132, 210) ) || IS_EQUIP_TARGET(エル, 86, 90, 101, 102, 105, 132, 210)
	エル口上カテゴリ '= "口塞"

	;プレイヤーなら喋れないコマンド 2クンニ 8アナル舐め 9乳首吸い 11フェラ 104足舐め 330日常フェラ
ELSEIF ( IS_MPLY(エル) && GROUPMATCH(SELECTCOM, 2, 8, 9, 11, 20, 104, 107, 330) ) || IS_EQUIP_PLAYER(エル, 2, 8, 9, 11, 20, 104, 107, 330)
	エル口上カテゴリ '= "口塞"

	;閨コマンド
ELSEIF SELECTCOM >= 0 && SELECTCOM <= 299　|| GROUPMATCH(SELECTCOM, 331, 332, 333)
	エル口上カテゴリ '= "閨"

	;日常コマンド（なりゆきまかせ未満）
ELSEIF SELECTCOM >= 300 && SELECTCOM < 393
	エル口上カテゴリ '= "日常"

ENDIF

;カテゴリ分岐例外処理
;日常フェラは前：日常、後：口塞として扱う
IF SELECTCOM == 330 || (FLAG:調教モード == 調教_居住区 && GROUPMATCH(SELECTCOM, 11, 107))
	IF 前後 == "前"
		エル口上カテゴリ '= "日常"
	ELSE
		エル口上カテゴリ '= "口塞"
	ENDIF
ENDIF
;閨の「なにもしない」を猥談に流す。
IF SELECTCOM == 292 && FLAG:ウフフフラグ == 1 && CHECK_K7("陥落", エル_対象)
	IF 前後 == "前"
		エル口上カテゴリ '= "日常"
	ELSE
		エル口上カテゴリ '= "閨"
	ENDIF
ENDIF

;カテゴリによる分岐
IF 前後 == "前"
	IF エル口上カテゴリ == "虚ろ"
		;CALL KOJO_K7_HOLLOW(エル_対象)
	ELSEIF エル口上カテゴリ == "失神"
		;CALL KOJO_K7_SYNCOPE(エル_対象)
	ELSEIF エル口上カテゴリ == "叫び"
		;CALL KOJO_K7_SHOUT(エル_対象)
	ELSEIF エル口上カテゴリ == "口塞"
		CALL KOJO_K7_CANNOT_TALK(エル_対象)
	ELSEIF エル口上カテゴリ == "閨"
		CALL KOJO_K7_NIGHT(エル_対象,"前")
	ELSEIF エル口上カテゴリ == "日常"
		CALL KOJO_K7_NOON(エル_対象,"前")
	ENDIF
ELSE
	IF エル口上カテゴリ == "閨"
		CALL KOJO_K7_NIGHT(エル_対象,"後")
	ELSEIF エル口上カテゴリ == "日常"
		CALL KOJO_K7_NOON(エル_対象,"後")
	ELSEIF エル口上カテゴリ == "口塞"
		CALL KOJO_K7_NOTTALK_AFTER(エル_対象)
	ENDIF
ENDIF

RETURN RESULT


code:
;───────────────────────────────────────
;■閨_受け_実行前
;　汎用台詞「KOJO_K7_共_閨_受_汎用.ERB」を呼び出す前に
;　特殊なコマンドを個別に表示してRETURNする
;───────────────────────────────────────
@KOJO_K7_NIGHT_BEFORE_BOTTOM(エル_対象)
#DIM エル
#DIM エル_対象
#DIMS エル機嫌
#DIM DYNAMIC 実行名
#DIM DYNAMIC 対象名
#DIM DYNAMIC 衣装描写

IF !エル_対象
	エル_対象 = MASTER
ENDIF

エル = NAME_TO_CHARA("エル")
エル機嫌 '= TOSTR_EMOTION(エル)

;───────────────────────────────────────
;◆実行が受け（主導権によるものもある）
;───────────────────────────────────────
;おねだりする・させられる
IF SELECTCOM == 111 && !TCVAR:エル:精飲おねだりフラグ
	;主導権がないと渋々だが陥落してると乗り気、慰安だと何も言わない
	IF !IS_INITIATIVE(エル) && FLAG:調教モード != 調教_慰安
		IF CHECK_K7("陥落", エル_対象)
		ENDIF
	ENDIF
	;対象が男性
	IF HAS_PENIS(エル_対象)
		IF RAND:2 == 0
			PRINTFORM 「%ANAME(エル)%の
			PRINTDATA
				DATAFORM いやらしい
				DATAFORM はしたない
				DATAFORM みだらな
				DATAFORM 欲しがりの
				DATAFORM 淫乱
				DATAFORM 感じっぱなしの
			ENDDATA
			IF RAND:2 == 0
				PRINTDATA
					DATAFORM %CALL_DIRTY_K7("Ｖ")%
					DATAFORM %CALL_DIRTY_K7("Ａ")%
				ENDDATA
				PRINTDATA
					DATAFORM を可愛がってください
					DATAFORM をいじめてください
					DATAFORM を気持ちよくしてください
					DATAFORM を弄ってください
					DATAFORM で遊んでください
					DATAFORM を%CALL_DIRTY_K7("Ｐ")%で犯してください
					DATAFORM に%CALL_DIRTY_K7("Ｐ")%を挿れてください
				ENDDATA
			ELSE
				PRINTDATA
					DATAFORM %CALL_DIRTY_K7("Ｂ")%
					DATAFORM %CALL_DIRTY_K7("Ｃ")%
				ENDDATA
				PRINTDATA
					DATAFORM を可愛がってください
					DATAFORM をいじめてください
					DATAFORM を気持ちよくしてください
					DATAFORM を弄ってください
					DATAFORM で遊んでください
				ENDDATA
			ENDIF
		ELSE
			PRINTDATA
				DATAFORM 「%ANAME(エル)%に%CALL_DIRTY_K7("Ｐ")%をください
				DATAFORM 「どうか、%ANAME(エル)%を好きにしてください
				DATAFORM 「%ANAME(エル)%を可愛がってください
				DATAFORM 「%ANAME(エル)%を気持ちよくしてください
				DATAFORM 「%ANAME(エル)%に%CALL_DIRTY_K7("Ｐ", "ぁ")%を挿れてください
				DATAFORM 「どうか、%ANAME(エル)%にいやらしいことを教えて下さい
			ENDDATA
		ENDIF
		PRINTFORM %BREAK_K7("末", エル_対象)%
		PRINTFORML 」
		;対象が女性
	ELSE
		IF RAND:2 == 0
			PRINTFORM 「%ANAME(エル)%の
			PRINTDATA
				DATAFORM いやらしい
				DATAFORM はしたない
				DATAFORM みだらな
				DATAFORM 欲しがりの
				DATAFORM 淫乱
				DATAFORM 感じっぱなしの
			ENDDATA
			PRINTDATA
				DATAFORM %CALL_DIRTY_K7("Ｖ")%
				DATAFORM %CALL_DIRTY_K7("Ａ")%
				DATAFORM %CALL_DIRTY_K7("Ｂ")%
				DATAFORM %CALL_DIRTY_K7("Ｃ")%
			ENDDATA
			PRINTDATA
				DATAFORM を可愛がってください
				DATAFORM をいじめてください
				DATAFORM を気持ちよくしてください
				DATAFORM を弄ってください
				DATAFORM をだめにしてください
				DATAFORM で遊んでください
			ENDDATA
		ELSE
			PRINTDATA
				DATAFORM 「%CALLNAME_K7(エル_対象)%の奴隷にしてください
				DATAFORM 「私は%CALLNAME_K7(エル_対象)%の性奴隷です
				DATAFORM 「どうか、%ANAME(エル)%を好きにしてください
				DATAFORM 「%ANAME(エル)%を可愛がってください
				DATAFORM 「%ANAME(エル)%を気持ちよくしてください
			ENDDATA
		ENDIF
		;PRINTFORM %BREAK_K7("末", エル_対象)%
		PRINTFORML ……」
	ENDIF
	IF CHECK_K7("陥落", エル_対象)
		PRINTDATAL
			DATAFORM 「こ、こうでいいのかい？　……なんだか変な気分だ。……%CALLNAME_K7(エル_対象)%も意地が悪いよ……」
			DATAFORM 「こんな感じでいいのかい……？　ええっと……私はなんだか、その……」
		ENDDATA
	ELSE
		PRINTDATAL
			DATAFORM 「……%CALLNAME_K7(エル_対象)%も意地が悪いな」
			DATAFORM 「……わ、笑わないでよ」
			DATAFORM 「……ううぅ」
		ENDDATA
	ENDIF
	RETURN 0
ELSEIF SELECTCOM == 111 && TCVAR:エル:精飲おねだりフラグ > 0
	IF TCVAR:エル:精飲おねだりフラグ == 1
		PRINTFORML 「……ほら、早く出しなよ❤　待っててあげるからさ」
	ELSEIF TCVAR:エル:精飲おねだりフラグ == 2
		PRINTFORML 「ふふっ……ごちそうさまでした❤」
	ENDIF
	RETURN 0
ENDIF

;;土下座する・させられる
;IF SELECTCOM == 110
;	;主導権がないと渋々だが陥落してると乗り気、慰安だと何も言わない
;	IF !IS_INITIATIVE(エル) && FLAG:調教モード != 調教_慰安
;	ENDIF
;	RETURN 0
;ENDIF

;顔面騎乗させられる Ａ顔面騎乗させられる（主導権がなければ実行が受け）
IF SELECTCOM == 101 || SELECTCOM == 102
	IF IS_MPLY(エル) && !IS_INITIATIVE(エル)
		PRINTDATAL
			DATAFORM 「く、苦しくない……？」
		ENDDATA
	ENDIF
ENDIF

;自慰させられる・される（主導権持ちが攻め）
IF SELECTCOM == 100 || SELECTCOM == 211
	IF IS_MPLY(エル) && !IS_INITIATIVE(エル)
		IF CHECK_K7("陥落", エル_対象) && FLAG:調教モード != 調教_慰安
			PRINTFORML 「%CALLNAME_K7(エル_対象)%が……その、見たいというなら……」
		ENDIF
		PRINTDATAL
			DATAFORM 「こう……かな……？」
		ENDDATA
		PRINTDATA
			DATAFORM 「あっ……あっ、は
			DATAFORM 「あ……っふ
			DATAFORM 「ん、くっ。ふぁ
			DATAFORM 「あっ……気持ちい……あっ、ん
		ENDDATA
		PRINTFORM %BREAK_K7("中", エル_対象)%
		IF SELECTCOM == 211
			PRINTDATA
				DATAFORM しょ触手なんかで……
				DATAFORM んんっヌルヌルして
				DATAFORM こ、擦れて
			ENDDATA
			PRINTFORM %BREAK_K7("中", エル_対象)%
		ENDIF
		IF CHECK_K7("陥落", エル_対象)
			PRINTDATA
				DATAFORM こんなの……　んっ
				DATAFORM 見てるだけで……面白いのかい？　んんっ
				DATAFORM んっ
				DATAFORM こう……かな？
				DATAFORM んんっ、くぅ
			ENDDATA
		ELSE
			PRINTDATA
				DATAFORM んんっ
				DATAFORM はぁ……
				DATAFORM んっ
			ENDDATA
		ENDIF
		PRINTFORM %BREAK_K7("末", エル_対象)%
		PRINTFORML 」
		;	ELSEIF IS_MTAR(エル) && !IS_INITIATIVE(エル)
		;		IF CHECK_K7("陥落", エル_対象)
		;		ENDIF
	ENDIF
	RETURN 0
ENDIF

;───────────────────────────────────────
;◆クリ愛撫
;非ウフフ
;───────────────────────────────────────
IF SELECTCOM == T_N("愛撫") && !FLAG:ウフフフラグ
	{
		SELECTCASE IFRAND(
			"1",1,
			"D1,2",エル機嫌 == "良" || エル機嫌 == "悦" || エル機嫌 == "幸",
			"D1,3",エル機嫌 == "良" || エル機嫌 == "悦" || エル機嫌 == "幸" && CHECK_K7("陥落")
			)
	}
		CASE 1
			PRINTDATAL
				DATAFORM 「……ちょっと、ねぇ……いまはそういう時じゃないだろう？」
				DATAFORM 「……私だって怒るよ？」
				DATAFORM 「んんっ！？　なにして……！」
			ENDDATA
		CASE 2
			PRINTDATAL
				DATAFORM 「んっ、あっ……ま、まったく」
				DATAFORM 「ねぇ……なにもこんな時にでなくても……あっ」
				DATAFORM 「どこに手を入れてるんだい……？　まったく……」
			ENDDATA
		CASE 3
			PRINTDATAL
				DATAFORM 「あ、んんっ……。ちょ、ちょっと、こっちは心の準備が」
				DATAFORM 「きゃっ❤　ど、どこに手を入れて……ああんっ」
				DATAFORM 「やんっ❤　も、もぅ……こ、ここでなくてもいいだろう？」
				DATAFORM 「もう本当に節操がないなぁ……、あっ❤　逃げやしないから、もう少し場所を選ぼうよ」
			ENDDATA
		CASEELSE
	ENDSELECT
	RETURN 0
ENDIF

;───────────────────────────────────────
;◆機嫌が悪いと喋らない行為
;───────────────────────────────────────
;不機嫌な状態で話せるのはここまで
IF GROUPMATCH(エル機嫌, "恨", "怒", "憤", "鬱", "悲", "憂", "狂", "恐", "怯")
	RETURN 0
ENDIF

;───────────────────────────────────────
;●前回と同一コマンド
;───────────────────────────────────────
IF SELECTCOM == PREVCOM && RAND:10 == 0
	IF RAND:10 == 0 && !IS_INITIATIVE(エル) && CHECK_K7("陥落", エル_対象) && CHECK_K7("活力", エル_対象) && (( IS_MPLY(エル) && MPLY_NUM == 1 )||( IS_MTAR(エル) && MTAR_NUM == 1 ))
		PRINTDATA
			DATAFORM お願いだ
			DATAFORM して
			DATAFORM おねがい……
		ENDDATA
		PRINTFORM %BREAK_K7("中", エル_対象)%
		;実行が受け
		IF !GROUPMATCH(SELECTCOM, 111, 101, 102, 100, 211, 130, 131, 132, 150, 151)
			PRINTDATA
				DATAFORM %KOJO_COM_NAME_PLAYER_K7(SELECTCOM)%たいの……
				DATAFORM %KOJO_COM_NAME_PLAYER_K7(SELECTCOM)%たいんだ……
			ENDDATA
			;対象が受け
		ELSE
			PRINTDATA
				DATAFORM %KOJO_COM_NAME_PLAYER_K7(SELECTCOM)%たいの……
				DATAFORM %KOJO_COM_NAME_PLAYER_K7(SELECTCOM)%たいんだ……
			ENDDATA
		ENDIF
		PRINTFORM %BREAK_K7("中", エル_対象)%
		PRINTDATA
			DATAFORM もっと
			DATAFORM このまま
			DATAFORM もう少し
			DATAFORM まだ
		ENDDATA
		PRINTFORML %BREAK_K7("末", エル_対象)%」
	ENDIF
ENDIF

;───────────────────────────────────────
;●ペニバン装着時
;───────────────────────────────────────
; IF SELECTCOM == 50
; 	;汎用受けを喋らない
; 	RETURN 0
; ENDIF

;───────────────────────────────────────
;●ローション・媚薬・排卵誘発剤・メイガスの夜・足舐め
;───────────────────────────────────────
IF SELECTCOM >= 70 && SELECTCOM <= 73 || SELECTCOM == 104
	PRINTFORM 「
	PRINTFORM %SPLIT_R("ふぁ……：んぁぅ、ん：んふ……：はあふ……：ん、ん……")%
	PRINTFORM %SPLIT_R("ん：ひゃ：ふぁ")%
	PRINTFORM %BREAK_K7("中", エル_対象)%
	PRINTFORM %SPLIT_R("ぁは：う：ん")%
	PRINTFORML %BREAK_K7("末", エル_対象)%」
	;汎用受けを喋らない
	RETURN 0
ENDIF

;───────────────────────────────────────
;●なにもしない
;───────────────────────────────────────
IF SELECTCOM == 292
	;汎用受けを喋らない
	RETURN 0
ENDIF

;───────────────────────────────────────
;◆汎用受け（コマンド番号に関わらずソースを見る）
;───────────────────────────────────────
CALL MOAN_K7(エル_対象)

;───────────────────────────────────────
;◆戻る
;───────────────────────────────────────
RETURN 0

;───────────────────────────────────────
;■閨_受_実行後
;　選択肢後に実行するコマンドや失禁等に対応
;───────────────────────────────────────
@KOJO_K7_NIGHT_AFTER_BOTTOM(エル_対象)
#DIM エル
#DIM エル_対象
#DIMS エル機嫌

IF !エル_対象
	エル_対象 = MASTER
ENDIF

エル = NAME_TO_CHARA("エル")
エル機嫌 '= TOSTR_EMOTION(エル)

;───────────────────────────────────────
;◆機嫌が悪いと喋らない行為
;───────────────────────────────────────
;不機嫌な状態で話せるのはここまで
IF GROUPMATCH(エル機嫌, "恨", "怒", "憤", "鬱", "悲", "憂", "狂", "恐", "怯")
	RETURN 0
ENDIF

;───────────────────────────────────────
;◆V性交系
;───────────────────────────────────────
;後背位以外
CALL RAND_WT_INIT
SIF GROUPMATCH(SELECTCOM, 30, 32, 33, 34, 35, 36, 37, 38, 39, 52, 160)
	CALL RAND_WT_SET(0, 10)
SIF GROUPMATCH(SELECTCOM, 31)
	CALL RAND_WT_SET(1, 90)
SIF GROUPMATCH(SELECTCOM, T_N("騎乗位"), T_N("背面騎乗位")) && CHECK_K7("活力", エル_対象)
	CALL RAND_WT_SET(2, 90)
SIF !CHECK_K7("活力", エル_対象)
	CALL RAND_WT_SET(99, 30)

SELECTCASE RAND_WT_RESULT()
	CASE 0
		{
			SELECTCASE IFRAND(
				"1",1,
				"D1,2",CHECK_K7("陥落", エル_対象),
				"D1,3",GETBIT(TALENT:エル:淫乱系, 素質_淫乱_淫乱)  || GETBIT(TALENT:エル:淫乱系, 素質_淫乱_淫壷)
				)
		}
			CASE 1
				PRINTDATAL
					DATAFORM （入ってる……私……しちゃってるんだね……）
					DATAFORM 「くうぅ、もう少し優しく……して……」
					DATAFORM 「んんっ……お願い……優しく、して……ね」
				ENDDATA
			CASE 2
				PRINTDATAL
					DATAFORM （入ってる……%CALLNAME_K7(エル_対象)%の%CALL_DIRTY_K7("Ｐ")%が私の%CALL_DIRTY_K7("Ｖ")%に……❤）
					DATAFORM 「ん゛んっ！　ひゃんっ❤　は、激しすぎるよぉ……」
					DATAFORM 「はぁん……❤　熱い……」
				ENDDATA
			CASE 3
				PRINTDATAL
					DATAFORM 「突いて❤　もっと、もっとぉ❤　わたしの%CALL_DIRTY_K7("Ｖ")%にあなたの%CALL_DIRTY_K7("Ｐ")%を、んっ、刻みつけてぇ！」
					DATAFORM 「好きぃ！　じゅぼじゅぼ%CALL_DIRTY_K7("Ｐ")%で突かれるの気持ちいいよぉ！　ひゃぁぁん❤❤！」
					DATAFORM 「教えて❤　%SPLIT_RAND("セックス/性交",1)%の快楽、私にもっと、たくさん、んんっ――――❤❤❤！」
					DATAFORM 「だめぇ❤　こんな、あっ❤　気持ちいいこと、知っちゃったら、んん゛っ❤、もうっ戻れなく、ああぁん❤❤❤」
					DATAFORM 「いいんだよ、好きなだけ動いて❤　ほら、じゅぽじゅぽ、ぐちょぐちょ、私の%CALL_DIRTY_K7("Ｖ")%をあなたの%CALL_DIRTY_K7("Ｐ")%で好きなだけかき回して❤❤❤」
				ENDDATA
			CASEELSE
		ENDSELECT

	CASE 1
		;後背位
		{
			SELECTCASE IFRAND(
				"1",1,
				"D1,2",CHECK_K7("陥落", エル_対象),
				"D1,3",GETBIT(TALENT:エル:淫乱系, 素質_淫乱_淫乱)  || GETBIT(TALENT:エル:淫乱系, 素質_淫乱_淫壷)
				)
		}
			CASE 1
				PRINTDATAL
					DATAFORM 「こ、こんな犬みたいな格好で……いやぁ……」
					DATAFORM 「うしろからなんて…い゛っ！」
					DATAFORM 「お願い……します。優しく、して……」
				ENDDATA
			CASE 2
				PRINTDATAL
					DATAFORM （入ってる……%CALLNAME_K7(エル_対象)%の%CALL_DIRTY_K7("Ｐ")%が私の%CALL_DIRTY_K7("Ｖ")%に……❤）
					DATAFORM 「ん゛んっ！　ひゃんっ❤　は、激しすぎるよぉ……」
					DATAFORM 「はぁん……❤　熱い……」
					DATAFORM 「%CALLNAME_K7(エル_対象)%の顔がみたいのに……うしろからなんて…んんっ！」
					DATAFORM 「ら、乱暴だよ%CALLNAME_K7(エル_対象)%……。もう少し優しく…ん゛んっ！」
				ENDDATA
			CASE 3
				PRINTDATAL
					DATAFORM 「後ろから突かれるのすきぃ❤　もっと、もっとぉ❤　わたしの%CALL_DIRTY_K7("Ｖ")%、%CALLNAME_K7(エル_対象)%の%CALL_DIRTY_K7("Ｐ")%で、ん゛んっ、犯してくださぃ❤」
					DATAFORM 「好きぃ！　後ろからじゅぼじゅぼ%CALL_DIRTY_K7("Ｐ")%で突かれるの気持ちいいよぉ！ ひゃぁぁん❤❤！」
					DATAFORM 「教えて❤　%SPLIT_RAND("セックス/性交",1)%の快楽、私にもっと、たくさん、んんっ――――❤❤❤！」
					DATAFORM 「い゛ぐっ❤　ん゛んっ！　%CALL_DIRTY_K7("Ｖ")%ぐちゃぐちゃになっちゃうよぉ❤❤❤」
					DATALIST
						DATAFORM 「ん゛っ❤　私が浅ましく犬みたいに、あぁん❤　イくところが見たいのかい？　んんっ――❤！」
						DATAFORM 「じゃあ、もっと強く突いてよ❤　激しく突いてよ❤　%S_R("あさましい/えっちな/淫らな")%%CALLNAME_K7(エル_対象)%の%CALL_DIRTY_K7("Ｐ")%でもっと、もっと気持ちよくしてよ❤❤❤」
					ENDLIST
				ENDDATA
			CASEELSE
		ENDSELECT
	CASE 2
		;騎乗位
		{
			SELECTCASE IFRAND(
				"1",1,
				"D1,2",CHECK_K7("陥落", エル_対象),
				"D1,3",GETBIT(TALENT:エル:淫乱系, 素質_淫乱_淫乱)  || GETBIT(TALENT:エル:淫乱系, 素質_淫乱_淫壷)
				)
		}
			CASE 1
				PRINTDATAL
					DATAFORM （これは……存外……恥ずかしいな……）
					DATAFORM 「くうぅ、もう少し優しく……して……」
					DATAFORM 「んんっ……お願い……優しく、して……ね」
				ENDDATA
			CASE 2
				IF IS_INITIATIVE(エル)
					PRINTDATAL
						DATAFORM （入ってる……%CALLNAME_K7(エル_対象)%の%CALL_DIRTY_K7("Ｐ")%が私の%CALL_DIRTY_K7("Ｖ")%に……❤）
						DATAFORM 「はぁん……❤　熱い……」
						DATAFORM 「この体勢だと%CALLNAME_K7(エル_対象)%の顔がよく見えるね……❤　どう？　気持ちいいかい❤」
						DATAFORM 「どうかな？　気持ちいいかな？　結構、頑張ってるんだよ❤？」
					ENDDATA
				ELSE
					PRINTDATAL
						DATAFORM （入ってる……%CALLNAME_K7(エル_対象)%の%CALL_DIRTY_K7("Ｐ")%が私の%CALL_DIRTY_K7("Ｖ")%に……❤）
						DATAFORM 「ん゛んっ！　ひゃんっ❤　は、激しすぎるよぉ……」
						DATAFORM 「あ゛あんっ……❤　待って……、そんなに突き上げられたら、やぁん❤❤」
						DATAFORM 「身体の中、じんじんして❤　んんっ❤」
						DATAFORM 「ふふっ、ここから一生懸命腰を振ってる%CALLNAME_K7(エル_対象)%の顔を見るの、んっ❤、クセになってしまいそうだよ❤」
					ENDDATA
				ENDIF
			CASE 3
				IF IS_INITIATIVE(エル)
					PRINTDATAL
						DATAFORM 「どうかな？　気持ちいいかい❤　気持ちいいよね❤？　良くないなんて言わせてあげないよ❤　空っぽになるまで搾り取って上げるからね❤❤❤」
						DATAFORM 「はぁ❤　すごいね❤　そんな%S_R("気持ちよさそうな/とろとろな/えっちな/淫らな")%%CALLNAME_K7(エル_対象)%の顔見せられたら……ふふっ❤　もっと気持ち良くしてあげるね❤❤❤」
						DATAFORM 「じっとしていてもいいし、快楽のままに腰を振ってもいい❤❤　%CALLNAME_K7(エル_対象)%が気持ちよくなれるように、たっぷり……癒やしてあげるね❤」
						DATAFORM 「ん゛んっ❤　いい顔、すごく%S_R("気持ちよさそうな/とろとろな")%顔してるね❤❤　じゃあ……もっと、んっ❤　頑張ってあげよう❤」
						DATALIST
							DATAFORM 「%CALLNAME_K7(エル_対象)%のせいだよ？　%CALLNAME_K7(エル_対象)%のせいで私は自分から%CALL_DIRTY_K7("Ｐ")%に跨って快楽を貪る、%S_R("あさましい/えっちな/淫らな")%女になってしまったんだ」
							DATAFORM 「だから責任……とってね❤　%CALL_DIRTY_K7("Ｐ")%から%S_R("えっちなザーメン/とろとろの精液/白いミルク")%を撒き散らして、どろどろになるところ……たっぷり見せてよ❤」
							DATAFORM 「……私が満足するまで……ね❤❤❤」
							DATAFORM
						ENDLIST
					ENDDATA
				ELSE
					PRINTDATAL
						DATAFORM 「あ゛あんっ……❤　待って……、そんなに突き上げられたら、やぁん❤❤」
						DATAFORM 「ああ゛ぁん……❤　いい❤❤　下から%CALL_DIRTY_K7("Ｖ")%突き上げられるの好きぃ❤❤　もっと突いて❤　もっと❤❤❤」
						DATAFORM 「いっぱい……動いて上げるから……、たくさん気持ちよくしてあげるからさ……❤　%CALLNAME_K7(エル_対象)%も私のこと、いっぱい愛して欲しいな❤❤」
						DATALIST
							DATAFORM 「%CALL_DIRTY_K7("Ｖ")%から愛液を撒き散らしているところも、口から涎を垂らして快楽に浸っているところも……恥ずかしいところ、全部見られちゃってるね❤❤❤」
							DATAFORM 「んんっ❤　……いいよ❤　見て❤　その代わり……あぁんっっ❤　もっと愛して❤　もっと気持ち良くしてよ❤❤❤」
						ENDLIST
					ENDDATA
				ENDIF
			CASEELSE
		ENDSELECT
ENDSELECT

;───────────────────────────────────────
;●選択後に実行
;───────────────────────────────────────
;針・ピアス・タトゥー（痛みに強い素質持ち）
; IF SELECTCOM == 83 || SELECTCOM == 91 || SELECTCOM == 92
; ENDIF

;汎用の感想口上
CALL KOJO_K7_MESSAGE_AFTER(エル_対象)

;───────────────────────────────────────
;●失禁後
;───────────────────────────────────────
SELECTCASE TCVAR:0
		;尿意がある状態で絶頂強度の合計が4以上
	CASE 1
		PRINTFORMW 「ひぁぁっ❤　き、気持ちぃ……あ、や、漏れ……やっ！　あ、ひぁ……❤」
		;尿意が高い状態で絶頂
	CASE 2
		PRINTFORMW 「あぁぁ……っ！　う、や、イッ……漏れ……やっ！　あ、ひぁ……❤」
		;尿意の限界
	CASE 3
		PRINTFORMW 「う、いやぁ！　も、我慢できな……んんっ！」
		;恐怖による失禁
	CASE 4
		PRINTFORMW 「ヒッ……う、怖ぁ、うあ……ッ！？　や、漏れ……やっ！」
ENDSELECT

;───────────────────────────────────────
;◆戻る
;───────────────────────────────────────
RETURN 0

repo_name: pervysquirrelz/erafl

license: unknown


code:
;───────────────────────────────────────
;●閨_受け_実行前_ソース参照　CALL MOAN_K7(エル_対象)
;───────────────────────────────────────
@MOAN_K7(エル_対象)
#DIM エル
#DIM エル_対象
#DIM エル_今回部位値
#DIM エル_最大部位値
#DIM エル_表示フラグ
#DIMS エル_今回部位
#DIMS エル_最大部位
#DIMS エル_今回部位称
#DIMS エル_最大部位称

IF !エル_対象
	エル_対象 = MASTER
ENDIF

;初期化
エル = NAME_TO_CHARA("エル")
エル_今回部位値 = 0
エル_最大部位値 = 0
エル_表示フラグ = 0
エル_今回部位 = ""
エル_最大部位 = ""
エル_今回部位称 = ""
エル_最大部位称 = ""

;───────────────────────────────────────
;○エルの快楽状態をチェック
;───────────────────────────────────────
;▼SOURCE
;　前文の場合SOURCE・後文ならCUP・値は最大部位値との比較用なのでPALAMで保存
;　最低1ないと刺激とみなさないPALAMには快Ｐがない
IF SOURCE:エル:快Ｖ >= 1 && SOURCE:エル:快Ｖ >= SOURCE:エル:快Ｐ && SOURCE:エル:快Ｖ >= SOURCE:エル:快Ｃ && SOURCE:エル:快Ｖ >= SOURCE:エル:快Ａ && SOURCE:エル:快Ｖ >= SOURCE:エル:快Ｂ
	エル_今回部位値 = PALAM:エル:快Ｖ
	エル_今回部位 '= "Ｖ"
	エル_今回部位称 '= CALL_DIRTY_K7("Ｖ")
ELSEIF SOURCE:エル:快Ａ >= 1 && SOURCE:エル:快Ａ >= SOURCE:エル:快Ｐ && SOURCE:エル:快Ａ >= SOURCE:エル:快Ｃ && SOURCE:エル:快Ａ >= SOURCE:エル:快Ｖ && SOURCE:エル:快Ａ >= SOURCE:エル:快Ｂ
	エル_今回部位値 = PALAM:エル:快Ａ
	エル_今回部位 '= "Ａ"
	エル_今回部位称 '= CALL_DIRTY_K7("Ａ")
ELSEIF SOURCE:エル:快Ｐ >= 1 && SOURCE:エル:快Ｐ >= SOURCE:エル:快Ｖ && SOURCE:エル:快Ｐ >= SOURCE:エル:快Ａ && SOURCE:エル:快Ｐ >= SOURCE:エル:快Ｃ && SOURCE:エル:快Ｐ >= SOURCE:エル:快Ｂ
	エル_今回部位値 = PALAM:エル:快Ｃ
	エル_今回部位 '= "Ｐ"
	エル_今回部位称 '= CALL_DIRTY_K7("Ｐ")
ELSEIF SOURCE:エル:快Ｃ >= 1 && SOURCE:エル:快Ｃ >= SOURCE:エル:快Ｐ && SOURCE:エル:快Ｃ >= SOURCE:エル:快Ｖ && SOURCE:エル:快Ｃ >= SOURCE:エル:快Ａ && SOURCE:エル:快Ｃ >= SOURCE:エル:快Ｂ
	IF HAS_PENIS(エル)
		エル_今回部位値 = PALAM:エル:快Ｃ
		エル_今回部位 '= "Ｐ"
		エル_今回部位称 '= CALL_DIRTY_K7("Ｐ")
	ELSE
		エル_今回部位値 = PALAM:エル:快Ｃ
		エル_今回部位 '= "Ｃ"
		エル_今回部位称 '= CALL_DIRTY_K7("Ｃ")
	ENDIF
ELSEIF SOURCE:エル:快Ｂ >= 1 && SOURCE:エル:快Ｂ >= SOURCE:エル:快Ｐ && SOURCE:エル:快Ｂ >= SOURCE:エル:快Ｃ && SOURCE:エル:快Ｂ >= SOURCE:エル:快Ｖ && SOURCE:エル:快Ｂ >= SOURCE:エル:快Ａ
	エル_今回部位値 = PALAM:エル:快Ｂ
	エル_今回部位 '= "Ｂ"
	エル_今回部位称 '= CALL_DIRTY_K7("Ｂ")
ELSE
	エル_今回部位値 = 0
	エル_今回部位 '= ""
	エル_今回部位称 '= ""
ENDIF

;▼PALAM
;　PALAMは絶頂までの蓄積＆絶頂により落ち着く（LIMIT9999）
;　最低10ないと刺激とみなさないPALAMには快Ｐがない
IF PALAM:エル:快Ｖ >= 10 && PALAM:エル:快Ｖ >= PALAM:エル:快Ｃ && PALAM:エル:快Ｖ >= PALAM:エル:快Ａ && PALAM:エル:快Ｖ >= PALAM:エル:快Ｂ
	エル_最大部位値 = PALAM:エル:快Ｖ
	エル_最大部位 '= "Ｖ"
	エル_最大部位称 '= CALL_DIRTY_K7("Ｖ")
ELSEIF PALAM:エル:快Ａ >= 10 && PALAM:エル:快Ａ >= PALAM:エル:快Ｃ && PALAM:エル:快Ａ >= PALAM:エル:快Ｖ && PALAM:エル:快Ａ >= PALAM:エル:快Ｂ
	エル_最大部位値 = PALAM:エル:快Ａ
	エル_最大部位 '= "Ａ"
	エル_最大部位称 '= CALL_DIRTY_K7("Ａ")
ELSEIF PALAM:エル:快Ｃ >= 10 && PALAM:エル:快Ｃ >= PALAM:エル:快Ｖ && PALAM:エル:快Ｃ >= PALAM:エル:快Ａ && PALAM:エル:快Ｃ >= PALAM:エル:快Ｂ
	IF HAS_PENIS(エル)
		エル_最大部位値 = PALAM:エル:快Ｃ
		エル_最大部位 '= "Ｐ"
		エル_最大部位称 '= CALL_DIRTY_K7("Ｐ")
	ELSE
		エル_最大部位値 = PALAM:エル:快Ｃ
		エル_最大部位 '= "Ｃ"
		エル_最大部位称 '= CALL_DIRTY_K7("Ｃ")
	ENDIF
ELSEIF PALAM:エル:快Ｂ >= 10 && PALAM:エル:快Ｂ >= PALAM:エル:快Ｃ && PALAM:エル:快Ｂ >= PALAM:エル:快Ｖ && PALAM:エル:快Ｂ >= PALAM:エル:快Ａ
	エル_最大部位値 = PALAM:エル:快Ｂ
	エル_最大部位 '= "Ｂ"
	エル_最大部位称 '= CALL_DIRTY_K7("Ｂ")
ELSE
	エル_最大部位値 = 0
	エル_最大部位 '= ""
	エル_最大部位称 '= ""
ENDIF

;───────────────────────────────────────
;○台詞１_エルの失神疲労
;───────────────────────────────────────
;主導権がない
IF !IS_INITIATIVE(エル)
	;体力
	IF BASE:エル:体力 <= (MAXBASE:エル:体力 / 3)
		PRINT 「
		PRINTDATA
			DATAFORM はふっ……んんぅ
			DATAFORM も、もう限界
			DATAFORM はあ、んんっ
			DATAFORM もう……力が……
			DATAFORM はぁ……はぁ
			DATAFORM はあはあ……ちょっと……疲れたな
		ENDDATA
		PRINTFORM %BREAK_K7("中", エル_対象)%
		PRINTDATA
			DATAFORM 少し……休ませてよ
			DATAFORM はぁ……はぁ……
			DATAFORM はあはあ
			DATAFORM はあ、んぅ
			DATAFORM 休憩……させてよ
			DATAFORM はふ
			DATAFORM す、少し休憩しないか……
			DATAFORM んんっ、はぁ
		ENDDATA
		PRINTFORML %BREAK_K7("末", エル_対象)%」

		;気力
	ELSEIF BASE:エル:気力 <= (MAXBASE:エル:気力 / 3)
		PRINT 「
		PRINTDATA
			DATAFORM ふわふわして……変な感じだ
			DATAFORM 身体がしびれて……んんっ
			DATAFORM ふあぁあぁ……んぅ
			DATAFORM 身体中気持ちよすぎて……んっ
		ENDDATA
		PRINTFORM %BREAK_K7("中", エル_対象)%
		PRINTDATA
			DATAFORM はあ、ふぁ
			DATAFORM も、もうダメ……
			DATAFORM だんだん、よくわから――な、はぁん
			DATAFORM ひゃう……あ❤　は
			DATAFORM んんっ
		ENDDATA
		PRINTFORML %BREAK_K7("末", エル_対象)%」
	ENDIF
ENDIF

;───────────────────────────────────────
;○台詞２_ソースに関して
;　覚書：解消は会話のみ・感応は猥談本屋のみ
;───────────────────────────────────────
エル_表示フラグ = 0
;フィスト・イラマ・タトゥー・首絞め・腹パン・鞭などの強苦痛（痛みに強い）
IF SOURCE:エル:苦痛 >= 100
	エル_表示フラグ += 1
	IF エル_表示フラグ == 1
		PRINTFORM 「
	ELSEIF エル_表示フラグ > 3
		PRINTFORML %BREAK_K7("末", エル_対象)%」
		PRINTFORM 「
	ELSE
		PRINTFORM %BREAK_K7("中", エル_対象)%
	ENDIF
	PRINTDATA
		DATAFORM くうう……ぅ
		DATAFORM あ！　あ――ぁ、あ
		DATAFORM ひぁ！　くっ……つ
		DATAFORM うくうっ……ん
		DATAFORM いっ……うあ！　あ、あ
	ENDDATA
	;縄やスパンキングなどの苦痛
ELSEIF SOURCE:エル:苦痛 >= 50
	エル_表示フラグ += 1
	IF エル_表示フラグ == 1
		PRINTFORM 「
	ELSEIF エル_表示フラグ > 3
		PRINTFORML %BREAK_K7("末", エル_対象)%」
		PRINTFORM 「
	ELSE
		PRINTFORM %BREAK_K7("中", エル_対象)%
	ENDIF
	PRINTDATA
		DATAFORM い、いたい。や……やめて
		DATAFORM 痛っ、痛いよ
		DATAFORM 痛っ！、痛いよ！
		DATAFORM つっ、くぅ
	ENDDATA
ENDIF

IF SOURCE:エル:恐怖 >= 10 || SOURCE:エル:不安 >= 10
	エル_表示フラグ += 1
	IF エル_表示フラグ == 1
		PRINTFORM 「
	ELSEIF エル_表示フラグ > 3
		PRINTFORML %BREAK_K7("末", エル_対象)%」
		PRINTFORM 「
	ELSE
		PRINTFORM %BREAK_K7("中", エル_対象)%
	ENDIF
	PRINTDATA
		DATAFORM や、やめ……なっ、何
		DATAFORM ……い、いや
	ENDDATA
ENDIF

IF SOURCE:エル:反感 >= 10
	エル_表示フラグ += 1
	IF エル_表示フラグ == 1
		PRINTFORM 「
	ELSEIF エル_表示フラグ > 3
		PRINTFORML %BREAK_K7("末", エル_対象)%」
		PRINTFORM 「
	ELSE
		PRINTFORM %BREAK_K7("中", エル_対象)%
	ENDIF
	PRINTDATA
		DATAFORM いやっ！　やめて！
		DATAFORM やめて！
		DATAFORM どうしてこんな……
	ENDDATA
ENDIF

;愛情系は陥落時のみで、苦痛が高すぎない場合かマゾのみ
IF CHECK_K7("陥落", エル_対象)
	IF SOURCE:エル:苦痛 < 80 || GETBIT(TALENT:エル:淫乱系, 素質_淫乱_マゾ)
		IF SOURCE:エル:歓楽 >= 10 || SOURCE:エル:愛情 >= 10 || SOURCE:エル:優越 >= 10 || SOURCE:エル:接触 >= 10 || SOURCE:エル:奉仕 >= 10 || SOURCE:エル:歓喜 >= 10
			エル_表示フラグ += 1
			IF エル_表示フラグ == 1
				PRINTFORM 「
			ELSEIF エル_表示フラグ > 3
				PRINTFORML %BREAK_K7("末", エル_対象)%」
				PRINTFORM 「
			ELSE
				PRINTFORM %BREAK_K7("中", エル_対象)%
			ENDIF
			PRINTDATA
				DATAFORM 好きだよ❤
				DATAFORM ちゅっ❤　すき
				DATAFORM すき❤　んっ
				DATAFORM んっ❤
				DATAFORM んっ、ちゅっ。して……ほしいな❤
			ENDDATA
		ENDIF
	ENDIF
ENDIF

IF SOURCE:エル:露出 >= 10 || SOURCE:エル:逸脱 >= 10
	;あまり痛みがないと体力気力があれば恥じらう
	IF SOURCE:エル:苦痛 < 80 && CHECK_K7("活力")
		エル_表示フラグ += 1
		IF エル_表示フラグ == 1
			PRINTFORM 「
		ELSEIF エル_表示フラグ > 3
			PRINTFORML %BREAK_K7("末", エル_対象)%」
			PRINTFORM 「
		ELSE
			PRINTFORM %BREAK_K7("中", エル_対象)%
		ENDIF
		PRINTDATA
			DATAFORM あまり……じっと見ないでよ
			DATAFORM そ、そんなに見つめられると……その……
			DATAFORM んっ……、ちょっと恥ずかしいな……
			DATAFORM は……恥ずかしい……な
			DATAFORM やぁ……そんなにじっと見ないでよ
			DATAFORM ふふっ、顔が真っ赤だ
			DATAFORM これでも、結構気恥ずかしいんだ
			DATAFORM えっと……あぁ
		ENDDATA
	ENDIF
ENDIF

;エル側の奉仕
IF SOURCE:エル:不潔 >= 10
	;あまり痛みがなく体力気力があれば
	IF SOURCE:エル:苦痛 < 80 && CHECK_K7("活力")
		エル_表示フラグ += 1
		IF エル_表示フラグ == 1
			PRINTFORM 「
		ELSEIF エル_表示フラグ > 3
			PRINTFORML %BREAK_K7("末", エル_対象)%」
			PRINTFORM 「
		ELSE
			PRINTFORM %BREAK_K7("中", エル_対象)%
		ENDIF
		PRINTDATA
			DATAFORM んぐぅ
			DATAFORM ふ……うく
			DATAFORM んぇ……う
		ENDDATA
	ENDIF
ENDIF

IF エル_表示フラグ
	PRINTFORML %BREAK_K7("末", エル_対象)%」
ENDIF

;───────────────────────────────────────
;○台詞３_エルの感じ具合に関して
;───────────────────────────────────────
PRINTFORM 「
;▼～1500　あっ……ん……
IF エル_最大部位値 < 1500 || エル_今回部位値 == 0
	PRINTFORM %SPLIT_R("あ：あん：あふ：うー：んうー：あ：あう：あふ：ん：んうー：何して")%
	;促音を少な目に
	PRINTFORM %SPLIT_R("、：。：……：、：。：……：、：。：……：……。：っ、：っ。：っ……：……っ。：……きゃ。")%
	PRINTFORM %SPLIT_R("あ：んう：ふあ")%
	PRINTFORM %SPLIT_R("あ：う：ふ：、やぁう：：：")%
	PRINTFORM %BREAK_K7("中", エル_対象)%

	PRINTFORM %SPLIT_R("ああ：あう：あふ：う：んう：あ：あん：あふ：ん：んうー")%
	PRINTFORML %BREAK_K7("末", エル_対象)%」

	;▼1500～5000　ああっ、う、あ❤　ん……っ、ん
ELSEIF エル_最大部位値 >= 1500 && エル_最大部位値 < 5000
	PRINTFORM %SPLIT_R("あ：あう：あふ：うー：んうー：あ：あん：あふ：ん：んうー")%
	;すべて同じバランスで
	PRINTFORM %SPLIT_R("、：。：……：……。：っ、：っ。：っ……：……っ。")%
	PRINTFORM %SPLIT_R("あ：んう：ふあ")%
	PRINTFORM %SPLIT_R("あ：う：ふ：、やぁう：：：")%
	PRINTFORM %BREAK_K7("中", エル_対象)%

	IF RAND:10 == 0
		PRINTFORM %CALLNAME_K7(エル_対象, "ぁ")%
		PRINTFORM %BREAK_K7("中", エル_対象)%
	ENDIF

	PRINTFORM %SPLIT_R("あ：あう：あふ：うー：んうー：あ：あう：あん：うー：んうー")%
	;中継ぎ・読点を外す
	PRINTFORM %SPLIT_R("、：……：っ、：っ……")%
	PRINTFORM %SPLIT_R("あ：んん：ふあ")%
	PRINTFORM %SPLIT_R("あ：う：ふ：、やぁう：：：")%
	PRINTFORM %BREAK_K7("中", エル_対象)%

	PRINTFORM %SPLIT_R("あ：あう：あふ：うー：んうー：あ：あん：あふ：うー：んうー")%
	PRINTFORM %SPLIT_R("、：。：……：っ、：っ。：っ……：……。：……っ。")%
	PRINTFORM %SPLIT_R("あ：んう：ふあ")%
	;中継ぎ・読点を外す
	PRINTFORM %SPLIT_R("、：……：っ、：っ……")%
	PRINTFORM %SPLIT_R("あ：う：ふ：んうぅ：きゃ：：")%
	PRINTFORML %BREAK_K7("末", エル_対象)%」

	;▼5000～9000　あっ❤　だめっ　も、もうっ。はあぁぁん❤
ELSEIF エル_最大部位値 >= 5000 && エル_最大部位値 < 9000
	PRINTDATA
		DATAFORM あぁ
		DATAFORM あうぅ
		DATAFORM うあぁ
		DATAFORM あくぅ
		DATAFORM ふあ
		DATAFORM ううぅ
		DATAFORM ふあぁ
		DATAFORM あう
		DATAFORM はふぅ
		DATAFORM あはあ
		DATAFORM ふぁあ
		DATAFORM うぅあ
		DATAFORM あぁう
		DATAFORM きゃ、あ
		DATAFORM ふああぁ
		DATAFORM う～っ。う
		DATAFORM あぁう
		DATAFORM ふぁあ
		DATAFORM ふぁ、は
		DATAFORM んううぁ
		DATAFORM %CALLNAME_K7(エル_対象, "ぁ")%、ふぁ
	ENDDATA
	PRINTFORM %BREAK_K7("中", エル_対象)%
	PRINTDATA
		DATAFORM あぁ
		DATAFORM うぅ
		DATAFORM あふ
		DATAFORM あくぅ
		DATAFORM ふ、あう
		DATAFORM いい
		DATAFORM ふあぁぁん
		DATAFORM あぅ
		DATAFORM あふぁあ
		DATAFORM うふぁ
		DATAFORM あふぁ
		DATAFORM うふあ
		DATAFORM 響くう
		DATAFORM もっ、くる
		DATAFORM いきそぅ
		DATAFORM すごお
		DATAFORM 気持ち、よくてぇ
		DATAFORM う
		DATAFORM もう、あうう
		DATAFORM 感じるう
		DATAFORM いい
	ENDDATA
	PRINTFORM %BREAK_K7("中", エル_対象)%
	PRINTDATA
		DATAFORM ひあぁ
		DATAFORM んあぅ
		DATAFORM はああぁん
		DATAFORM あぁあぁ
		DATAFORM ふあぁ
		DATAFORM しびれちゃうぅ
		DATAFORM くふあぁ
		DATAFORM あはぁあん
		DATAFORM うふああぁ
		DATAFORM はぁあん
		DATAFORM ああぁうぅ
		DATAFORM ふあぁあ
		DATAFORM も――うああぁ
		DATAFORM きちゃううぅ
		DATAFORM すご、うあぁぁ
		DATAFORM 気持ちいい
		DATAFORM すてきぃ
		DATAFORM やぁぁん
		DATAFORM いちゃあぅ
		DATAFORM い゛いぃぃい
	ENDDATA
	PRINTFORML %BREAK_K7("末", エル_対象)%」

	;▼9000～　ひびくうううう❤　きちゃううっ❤
	;　割とすぐ毎ターンこの状態になるので気力体力不足で緩急を
ELSE
	;▽今回部位称か最大部位称がとれていないので部位表現をぼかす
	IF エル_今回部位称 == "" || エル_最大部位称 == ""
		;気力体力がある、または主導権がある
		IF CHECK_K7("活力")
			PRINTDATA
				DATAFORM くるう
				DATAFORM い゛ぐっ❤　いっちゃうぅ
				DATAFORM あ゛あぁぁん
				DATAFORM ん゛んっ――――❤❤❤　まって、こんな、あぁん
				DATAFORM とんじゃう
				DATAFORM きちゃうのぉ
				DATAFORM とけちゃう
				DATAFORM も、だめぇっ❤　そこぉ
				DATAFORM そこぉ
				DATAFORM やぁぁん
			ENDDATA
			PRINTFORM %BREAK_K7("中", エル_対象)%
			PRINTDATA
				DATAFORM あぁあ
				DATAFORM もお、ぅう
				DATAFORM もうやあ
				DATAFORM きちゃうぅ
				DATAFORM やぁ
				DATAFORM すごいぃ
				DATAFORM それぇ
				DATAFORM こんなぁ
				DATAFORM 気持ちいいぃっ
			ENDDATA
			PRINTFORM %BREAK_K7("中", エル_対象)%
			PRINTDATA
				DATAFORM きちゃうぅ
				DATAFORM きちゃうのぉ
				DATAFORM じんじんしてっ、んんっ
				DATAFORM おかしくなっちゃうぅ
				DATAFORM 狂っちゃうぅ
				DATAFORM ああぁあ
				DATAFORM ひびくうぅ
				DATAFORM すごいぃ
			ENDDATA
			;気力体力がないかつ主導権がない
		ELSE
			PRINTDATA
				DATAFORM ひいぃ
				DATAFORM きちゃうぅ
				DATAFORM あ、あぁ、あ
				DATAFORM もお、うぅう
				DATAFORM しんじゃうぅ
				DATAFORM い、くううう
				DATAFORM 息がぁ
				DATAFORM 優しくしてぇ
				DATAFORM 許してぇ
			ENDDATA
			PRINTFORM %BREAK_K7("中", エル_対象)%
			PRINTDATA
				DATAFORM あぁあ
				DATAFORM もおぅう
				DATAFORM もうやあ
				DATAFORM きちゃうぅ
				DATAFORM やぁ
				DATAFORM すごいぃ
				DATAFORM それぇ
				DATAFORM こんなぁ
				DATAFORM 気持ちいいぃっ
			ENDDATA
			PRINTFORM %BREAK_K7("中", エル_対象)%
			PRINTDATA
				DATAFORM い゛ッ、あ
				DATAFORM じんじんしてっ、んんっ
				DATAFORM だめぇ
				DATAFORM 壊れるぅ
				DATAFORM ああぁあ
				DATAFORM ん゛ッ、あぁ
				DATAFORM もうぃやぁ
			ENDDATA
		ENDIF
		PRINTFORML %BREAK_K7("末", エル_対象)%」

		;▽今回部位称と最大部位称がとれている
	ELSE
		;・１番気持ちいいところに触った場合
		IF エル_今回部位 == エル_最大部位
			;気力体力がある、または主導権がある
			IF CHECK_K7("活力")
				PRINTDATA
					DATAFORM い゛ぐっ、あぁん❤こんなっ、だめぇ
					DATAFORM いっちゃあぁぁ
					DATAFORM あ゛ぁん
					DATAFORM きちゃうぅ
					DATAFORM とんじゃう
					DATAFORM きちゃうのぉ
					DATAFORM も、だめぇっ❤　そこぉ
					DATAFORM いいぃ❤　もっと
					DATAFORM そこぉ
					DATAFORM あぁん
				ENDDATA
				PRINTFORM %BREAK_K7("中", エル_対象)%
				;気力体力がないかつ主導権がない
			ELSE
				PRINTDATA
					DATAFORM ひいぃ
					DATAFORM きちゃうぅ
					DATAFORM あ、あぁ、あ
					DATAFORM もおぅう
					DATAFORM しんじゃうぅ
					DATAFORM い、くううう
					DATAFORM 息がぁ
					DATAFORM そこぉもうだめぇ
				ENDDATA
				PRINTFORM %BREAK_K7("中", エル_対象)%
			ENDIF

			IF エル_最大部位 == "Ｖ"
				PRINTDATA
					DATAFORM %CALL_DIRTY_K7("Ｖ", "ぁ")%ぶつかるぅ
					DATAFORM %CALL_DIRTY_K7("Ｖ", "ぁ")%もう、ぅう
					DATAFORM いいっ❤　%CALL_DIRTY_K7("Ｖ", "ぁ")%いいぃ
					DATAFORM %CALL_DIRTY_K7("Ｖ", "ぁ")%きちゃうぅ
					DATAFORM んんっ――――❤❤　%CALL_DIRTY_K7("Ｖ")%、こんなの、だめぇ
					DATAFORM %CALL_DIRTY_K7("Ｖ", "ぁ")%やぁ
					DATAFORM %CALL_DIRTY_K7("Ｖ")%はもう
					DATAFORM %CALL_DIRTY_K7("Ｖ")%すごいぃ
					DATAFORM そこぉ❤　%CALL_DIRTY_K7("Ｖ", "ぁ")%
					DATAFORM こんなぁ❤　%CALL_DIRTY_K7("Ｖ")%
					DATAFORM 気持ちよすぎて❤　%CALL_DIRTY_K7("Ｖ", "ぁ")%
					DATAFORM ぶつかるぅっ❤　%CALL_DIRTY_K7("Ｖ", "ぁ")%
					DATAFORM %CALL_DIRTY_K7("Ｖ")%❤　とんじゃうぅ
					DATAFORM %CALL_DIRTY_K7("Ｖ", "ぁ")%とけちゃうぅ
					DATAFORM %CALL_DIRTY_K7("Ｖ", "ぁ")%やけちゃうぅ
				ENDDATA
				PRINTFORM %BREAK_K7("中", エル_対象)%

			ELSEIF エル_最大部位 == "Ａ"
				PRINTDATA
					DATAFORM %CALL_DIRTY_K7("Ａ", "ぁ")%いぃ
					DATAFORM もぉ、やっ❤　%CALL_DIRTY_K7("Ａ", "ぁ")%
					DATAFORM %CALL_DIRTY_K7("Ａ", "ぁ")%いやあ
					DATAFORM きちゃうぅ❤　%CALL_DIRTY_K7("Ａ", "ぁ")%
					DATAFORM %CALL_DIRTY_K7("Ａ")%がぁ
					DATAFORM %CALL_DIRTY_K7("Ａ", "ぁ")%やぁ
					DATAFORM %CALL_DIRTY_K7("Ａ")%はもう
					DATAFORM %CALL_DIRTY_K7("Ａ")%すごいぃ
					DATAFORM そこぉ❤　%CALL_DIRTY_K7("Ａ", "ぁ")%
					DATAFORM こんなぁ❤　%CALL_DIRTY_K7("Ａ")%
					DATAFORM 気持ちよすぎて❤　%CALL_DIRTY_K7("Ａ", "ぁ")%
					DATAFORM ぶつかるぅっ❤　%CALL_DIRTY_K7("Ａ", "ぁ")%
					DATAFORM %CALL_DIRTY_K7("Ａ")%❤　とんじゃうぅ
					DATAFORM %CALL_DIRTY_K7("Ａ", "ぁ")%うねっちゃうぅ
					DATAFORM %CALL_DIRTY_K7("Ａ", "ぁ")%やけちゃうぅ
				ENDDATA
				PRINTFORM %BREAK_K7("中", エル_対象)%

			ELSEIF エル_最大部位 == "Ｃ"
				PRINTDATA
					DATAFORM %CALL_DIRTY_K7("Ｃ", "ぁ")%いぃ
					DATAFORM もぉ、やっ❤　%CALL_DIRTY_K7("Ｃ", "ぁ")%
					DATAFORM %CALL_DIRTY_K7("Ｃ")%もう、ぅう
					DATAFORM %CALL_DIRTY_K7("Ｃ", "ぁ")%
					DATAFORM %CALL_DIRTY_K7("Ｃ")%がぁ
					DATAFORM %CALL_DIRTY_K7("Ｃ", "ぁ")%やぁ
					DATAFORM %CALL_DIRTY_K7("Ｃ")%はもうぅ
					DATAFORM そこぉ❤　%CALL_DIRTY_K7("Ｃ", "ぁ")%
					DATAFORM こんなぁ❤　%CALL_DIRTY_K7("Ｃ")%
					DATAFORM 気持ちいいぃっ❤　%CALL_DIRTY_K7("Ｃ", "ぁ")%
					DATAFORM 潰れるぅ❤　%CALL_DIRTY_K7("Ｃ", "ぁ")%
				ENDDATA
				PRINTFORM %BREAK_K7("中", エル_対象)%

			ELSEIF エル_最大部位 == "Ｂ"
				PRINTDATA
					DATAFORM %CALL_DIRTY_K7("Ｂ", "ぁ")%あぁあ
					DATAFORM もういぃっ❤　%CALL_DIRTY_K7("Ｂ", "ぁ")%
					DATAFORM %CALL_DIRTY_K7("Ｂ", "ぁ")%もうやあ
					DATAFORM きちゃうぅ
					DATAFORM %CALL_DIRTY_K7("Ｂ")%がぁ
					DATAFORM %CALL_DIRTY_K7("Ｂ", "ぁ")%やぁ
					DATAFORM %CALL_DIRTY_K7("Ｂ")%はもうぅ
					DATAFORM %CALL_DIRTY_K7("Ｂ", "ぁ")%すごいぃ
					DATAFORM そこぉ❤　%CALL_DIRTY_K7("Ｂ", "ぁ")%
					DATAFORM こんなぁ❤　%CALL_DIRTY_K7("Ｂ")%
					DATAFORM 気持ちいいぃっ❤　%CALL_DIRTY_K7("Ｂ", "ぁ")%
					DATAFORM 潰れるぅ❤　%CALL_DIRTY_K7("Ｂ", "ぁ")%
				ENDDATA
				PRINTFORM %BREAK_K7("中", エル_対象)%
			ENDIF

			;気力体力がある、または主導権がある
			IF CHECK_K7("活力")
				PRINTDATA
					DATAFORM きちゃうっ
					DATAFORM じんじんするぅ
					DATAFORM おかしくなっちゃうっ
					DATAFORM 狂っちゃう
					DATAFORM ああぁあ
					DATAFORM すごいぃ
				ENDDATA
				;気力体力がないかつ主導権がない
			ELSE
				PRINTDATA
					DATAFORM い゛ッ、あ
					DATAFORM じんじんするのぉ
					DATAFORM だめぇ
					DATAFORM ゆるくしてぇ
					DATAFORM 壊れるぅ
					DATAFORM ああぁあ
					DATAFORM いやぁ……
				ENDDATA
			ENDIF

			;───────────────────────────────────────
			;たまに相手が愛撫に使用している部位に言及するがここはあまり汎用的でない
			;（コマンド番号で判断するのでCOMF変化に対応できない）
			;───────────────────────────────────────
			IF RAND:10 == 0
				;１対１性交系
				IF ( IS_MTAR(エル) && ((SELECTCOM >= 30 && SELECTCOM <= 36)||(SELECTCOM >= 40 && SELECTCOM <= 46)) ) || ( IS_EQUIP_TARGET(エル, 30, 31, 32, 33, 34, 35, 36) || IS_EQUIP_TARGET(エル, 40, 41, 42, 43, 44, 45, 46) )
					PRINTFORM %BREAK_K7("中", エル_対象)%
					;エル_対象が主人公で陥落済み
					IF CHECK_K7("陥落", エル_対象)
						;主人公に竿あり
						IF HAS_PENIS(MASTER)
							PRINTDATA
								DATAFORM %CALL_DIRTY_K7("Ｐ", "ぁ")%すごいぃ
								DATAFORM %CALL_DIRTY_K7("Ｐ", "ぁ")%いい
								DATAFORM 好きぃ
								DATAFORM 出してぇ%BREAK_K7("中", エル_対象)%%CALL_DIRTY_K7("Ｖ", "ぁ")%ぁ
								DATAFORM ぐちゃぐちゃになってるぅ
								DATAFORM ちょうだいぃ
								DATAFORM %CALLNAME_K7(エル_対象)%の%CALL_DIRTY_K7("Ｐ", "ぁ")%好きぃ、大好き❤
							ENDDATA
						ELSE
							PRINTDATA
								DATAFORM 太いよぉ
								DATAFORM 嬉しいぃ
								DATAFORM 繋がってるぅ%BREAK_K7("中", エル_対象)%%CALLNAME_K7(エル_対象)%とぉ
								DATAFORM %CALLNAME_K7(エル_対象, "ぁ")%
							ENDDATA
						ENDIF
						;エルに主導権がない
					ELSEIF !IS_INITIATIVE(エル)
						PRINTFORM %SPLIT_R("駄目ぇ：いやぁ：やぁ")%
					ENDIF
				ENDIF

				;指愛撫
				IF (IS_MTAR(エル) && GROUPMATCH(SELECTCOM, 0, 1, 3, 4, 10)) || IS_EQUIP_TARGET(エル, 0, 1, 3, 4, 10)
					PRINTFORM %BREAK_K7("中", エル_対象)%
					;エル_対象が主人公で陥落済み
					IF CHECK_K7("陥落", エル_対象)
						PRINTDATA
							DATAFORM 指ぃ
							DATAFORM 指がぁ%BREAK_K7("中", エル_対象)%嬉しいの
							DATAFORM %CALLNAME_K7(エル_対象, "ぁ")%、指いいのぉ
						ENDDATA
						;エルに主導権がない
					ELSE
						PRINTFORM %SPLIT_R("あぁ……指があ：指がぁ")%
					ENDIF
				ENDIF

				;舌愛撫
				IF (IS_MTAR(エル) && GROUPMATCH(SELECTCOM, 2, 8, 9, 11)) || IS_EQUIP_TARGET(エル, 2, 8, 9, 11)
					PRINTFORM %BREAK_K7("中", エル_対象)%
					;エル_対象が主人公で陥落済み
					IF CHECK_K7("陥落", エル_対象)
						PRINTDATA
							DATAFORM 舌ぁ
							DATAFORM 舌が❤　ぬるぬるってぇ
							DATAFORM %CALLNAME_K7(エル_対象, "ぁ")%、唇すごいぃ
						ENDDATA
						;エルに主導権がない
					ELSE
						PRINTFORM %SPLIT_R("舌がぁ：舌ぁ")%
					ENDIF
				ENDIF

				;陥落ありで玩具愛撫（たまに）
				IF (IS_MTAR(エル) && GROUPMATCH(SELECTCOM, 60, 61, 62, 63, 64, 65, 66)) || IS_EQUIP_TARGET(エル, 60, 61, 62, 63, 64, 65, 66)
					PRINTFORM %BREAK_K7("中", エル_対象)%
					;エル_対象が主人公で陥落済み
					IF CHECK_K7("陥落", エル_対象)
						PRINTDATA
							DATAFORM 玩具なんてぇ
							DATAFORM おもちゃだめぇ。%CALLNAME_K7(エル_対象)%が良いのにぃ
							DATAFORM いやぁ❤　玩具いやぁ
						ENDDATA
						;エルに主導権がない
					ELSE
						PRINTDATA
							DATAFORM 玩具なんてぇ
							DATAFORM おもちゃだめぇ
							DATAFORM いやぁっ！　玩具いやぁ
						ENDDATA
					ENDIF
				ENDIF
			ENDIF
			PRINTFORML %BREAK_K7("末", エル_対象)%」

			;・１番気持ちいいところに触らなかった場合
		ELSE
			;最大部位値と今回部位値に7000以上差があるなら焦らされていると感じる
			IF エル_最大部位値 - エル_今回部位値 >= 7000
				;気力体力があり主導権がなく陥落があるとおねだり
				IF ( BASE:エル:気力 <= (MAXBASE:エル:気力 / 3) && BASE:エル:体力 > (MAXBASE:エル:体力 / 3) ) && CHECK_K7("陥落", エル_対象) && !IS_INITIATIVE(エル)
					PRINTDATA
						DATAFORM あぁっ……焦らさないで…よぉ
						DATAFORM んっ……意地悪しないでよ……
						DATAFORM いじわる、ばかぁっ。あぁっ。んんっ
						DATAFORM やぁ、んぅ。いかせてぇ
						DATAFORM いやぁ、%エル_今回部位称%じゃなくて……お願い
						DATAFORM そこじゃ……っ。お願いぃ
						DATAFORM %エル_今回部位称%じゃないよぉ
					ENDDATA
					;気力体力か主導権があるか陥落がない
				ELSE
					PRINTDATA
						DATAFORM ふぁあ……はぁ、ん
						DATAFORM もぉ……楽にぃ、お願い……
						DATAFORM おねがぃい
						DATAFORM 楽にぃ……してぇ
						DATAFORM はっ、あぁ……苦しい、よぉ
						DATAFORM はぁ、はぁっ……苦し、うぅ
					ENDDATA
				ENDIF
				PRINTFORM %BREAK_K7("中", エル_対象)%

				;気力体力があれば
				IF BASE:エル:気力 > (MAXBASE:エル:気力 / 3) && BASE:エル:体力 > (MAXBASE:エル:体力 / 3) && CHECK_K7("陥落", エル_対象)
					PRINTFORM %SPLIT_R("いかせてよ：もう許して…：狂っちゃうっ：おかしくなっちゃうっ：お願いぃ")%
					;体力か陥落がなければ
				ELSE
					PRINTFORM %SPLIT_R("壊れ、ちゃうっ：ゆるして：変になる、う：お願い")%
				ENDIF
				PRINTFORML %BREAK_K7("末", エル_対象)%」

				;最大部位値と今回部位値が3000未満の差ならあっちもこっちも気持ちいい
			ELSE
				;気力体力があれば
				IF BASE:エル:気力 > (MAXBASE:エル:気力 / 3) && BASE:エル:体力 > (MAXBASE:エル:体力 / 3) && CHECK_K7("陥落", エル_対象)
					PRINTFORM %SPLIT_R("すごいよぉ：あたま変になるぅ：こんなのって、ん゛んっ、いくぅう：おかしくなるぅ：もうダメ…：狂っちゃうぅ")%
					;体力か陥落がなければ
				ELSE
					PRINTFORM %SPLIT_R("あたま、変になっちゃう：こんなのって、あんっ：ゆるしてぇ：おかしくなるぅ：もうダメ…：狂っちゃうぅ")%
				ENDIF
				PRINTFORM %BREAK_K7("中", エル_対象)%

				IF エル_今回部位 == "Ｐ"
					PRINTFORM %CALL_DIRTY_K7("Ｐ")%
				ELSEIF エル_今回部位 == "Ｖ"
					PRINTFORM %CALL_DIRTY_K7("Ｖ")%
				ELSEIF エル_今回部位 == "Ａ"
					PRINTFORM %CALL_DIRTY_K7("Ａ")%
				ELSEIF エル_今回部位 == "Ｂ"
					PRINTFORM %CALL_DIRTY_K7("Ｂ")%
				ELSEIF エル_今回部位 == "Ｃ"
					PRINTFORM %CALL_DIRTY_K7("Ｃ")%
				ENDIF

				;最大部位も刺激されていれば主張
				IF エル_最大部位 == "Ｐ" && SOURCE:エル:快Ｃ >= 10
					PRINTFORM も%CALL_DIRTY_K7("Ｐ")%
					PRINTFORM %SPLIT_R("んんっ：んっ、気持ち、いい：あん❤　いくぅ：もだめぇ：出るぅ：出ちゃうぅ")%
					PRINTFORM %BREAK_K7("中", エル_対象)%
				ELSEIF エル_最大部位 == "Ｖ" && SOURCE:エル:快Ｖ >= 10
					PRINTFORM も%CALL_DIRTY_K7("Ｖ")%
					PRINTFORM %SPLIT_R("んん゛っ！　いいよ……あぁぁ：も、気持ちいいよぉ：あん❤　いくぅ：もだめぇ")%
					PRINTFORM %BREAK_K7("中", エル_対象)%
				ELSEIF エル_最大部位 == "Ａ" && SOURCE:エル:快Ａ >= 10
					PRINTFORM も%CALL_DIRTY_K7("Ａ")%
					PRINTFORM %SPLIT_R("ひぐっ：んん゛っ：熱い…、とけちゃうよ……：あん❤　きちゃう：も、気持ち良すぎて…あぁ…")%
					PRINTFORM %BREAK_K7("中", エル_対象)%
				ELSEIF エル_最大部位 == "Ｂ" && SOURCE:エル:快Ｂ >= 10
					PRINTFORM も%CALL_DIRTY_K7("Ｂ")%
					PRINTFORM %SPLIT_R("んん゛っ！　いいよ……あぁぁ：感じすぎて……あぁぁ…：いいよ、あぁぁ……：んんっ❤　あっ、あぁ：あぁ…いっちゃう")%
					PRINTFORM %BREAK_K7("中", エル_対象)%
				ELSEIF エル_最大部位 == "Ｃ" && SOURCE:エル:快Ｃ >= 10
					PRINTFORM も%CALL_DIRTY_K7("Ｃ")%
					PRINTFORM %SPLIT_R("だ、ダメ…ん゛んっ：い、いっちゃう：いいよ、あぁぁ……：んん゛っ")%
					PRINTFORM %BREAK_K7("中", エル_対象)%
				ENDIF

				;気力体力がある、または主導権がある
				IF CHECK_K7("活力")
					PRINTFORM %SPLIT_R("きちゃうぅ：じんじんして…あぁ…：おかしくなっちゃうぅ：やけちゃうっ：おかしくなって…あぁんっ：ああぁあ：中までひびくいて…あぁ…：頭の中真っ白で…んんんっ")%
					;体力か陥落がなければ
				ELSE
					PRINTFORM %SPLIT_R("あぁ……：もぅ、ダメ…：壊れちゃうよ……：変に、なっちゃう……：ああぁ：んん゛っ")%
				ENDIF

				PRINTFORML %BREAK_K7("末", エル_対象)%」
			ENDIF
		ENDIF
	ENDIF
ENDIF

;───────────────────────────────────────
;◆戻る
;───────────────────────────────────────
RETURN 0


code:
;───────────────────────────────────────
;■閨の攻め受け分岐
;　KOJO_K7_前.ERBとKOJO_K7_後.ERBで閨と判断されると呼び出される
;　閨は実行対象や主導権だけでは攻め受け関係が判断しにくいので
;　ここを通してまとめて分岐させる
;───────────────────────────────────────
@KOJO_K7_NIGHT(エル_対象, 前後)
#DIM エル
#DIM エル_対象
#DIMS 前後
#DIMS エル口上攻受カテゴリ

IF !エル_対象
	エル_対象 = MASTER
ENDIF

;リセット
エル = NAME_TO_CHARA("エル")
エル口上攻受カテゴリ '= ""
エル_エルが受け = 0

;───────────────────────────────────────
;●詳細カテゴリ決定
;───────────────────────────────────────
;自慰など
IF IS_MPLY(エル) && IS_MTAR(エル)
	RETURN
ENDIF
;エルが実行
IF IS_MPLY(エル)
	;土下座・おねだり（主導権に関わらず実行が受け）
	IF GROUPMATCH(SELECTCOM, 110, 111)
		エル口上攻受カテゴリ '= "エル受け"
		;100自慰 101顔面騎乗 102Ａ顔面騎乗 （主導権がなければ受け）
	ELSEIF GROUPMATCH(SELECTCOM, 100, 101, 102) && !IS_INITIATIVE(エル)
		エル口上攻受カテゴリ '= "エル受け"
		;主導権なし排泄者　130放尿する 131尿を掛ける 132口内放尿 150放屁　151顔騎放屁（主導権がなければ受け）
	ELSEIF GROUPMATCH(SELECTCOM, 130, 131, 132, 150, 151) && !IS_INITIATIVE(エル)
		エル口上攻受カテゴリ '= "エル受け"
		;それ以外は実行が攻め
	ELSE
		エル口上攻受カテゴリ '= "エル攻め"
	ENDIF
	;エルがエル_対象
ELSEIF IS_MTAR(エル)
	;土下座・おねだり（主導権に関わらず対象が攻め）
	IF GROUPMATCH(SELECTCOM, 110, 111)
		エル口上攻受カテゴリ '= "エル攻め"
		;100自慰 101顔面騎乗 102Ａ顔面騎乗（主導権があれば攻め）
	ELSEIF GROUPMATCH(SELECTCOM, 100, 101, 102) && IS_INITIATIVE(エル)
		エル口上攻受カテゴリ '= "エル攻め"
		;主導権あり排泄指示者　130放尿する 131尿を掛ける 132口内放尿 150放屁　151顔騎放屁（主導権があれば攻め）
	ELSEIF GROUPMATCH(SELECTCOM, 130, 131, 132, 150, 151) && IS_INITIATIVE(エル)
		エル口上攻受カテゴリ '= "エル攻め"
		;それ以外は対象が受け
	ELSE
		エル口上攻受カテゴリ '= "エル受け"
	ENDIF
ENDIF

;───────────────────────────────────────
;●詳細カテゴリによる分岐
;───────────────────────────────────────
IF エル口上攻受カテゴリ == "エル受け"
	;文末決定関数で使用する
	エル_エルが受け = 1
	;前文か後文か
	IF 前後 == "前"
		CALL KOJO_K7_NIGHT_BEFORE_BOTTOM(エル_対象)
	ELSEIF 前後 == "後"
		CALL KOJO_K7_NIGHT_AFTER_BOTTOM(エル_対象)
	ENDIF
ELSEIF エル口上攻受カテゴリ == "エル攻め"
	;前文か後文か
	IF 前後 == "前"
		CALL KOJO_K7_NIGHT_BEFORE_TOP(エル_対象)
	ELSEIF 前後 == "後"
		CALL KOJO_K7_NIGHT_AFTER_TOP(エル_対象)
	ENDIF
ENDIF

;───────────────────────────────────────
;●終了
;───────────────────────────────────────
エル_エルが受け = 0
RESETCOLOR
RETURN RESULT


code:
@KOJO_K7_MESSAGE_AFTER(エル_対象)
#DIM エル
#DIM エル_対象
#DIMS エル機嫌
#DIM エル_表示フラグ
#DIMS エル_最大部位称
#DIM 射精フラグ
#DIMS 射精先
#DIMS 精愛傾向

IF !エル_対象
    エル_対象 = MASTER
ENDIF

エル = NAME_TO_CHARA("エル")
エル機嫌 '= TOSTR_EMOTION(エル)
エル_表示フラグ = 0
エル_最大部位称 '= ""

射精先 '= ""
射精フラグ = 0

;───────────────────────────────────────
;◆不機嫌なら何も言わない
;───────────────────────────────────────
SELECTCASE エル機嫌
    CASE "恨", "怒", "憤"
        RETURN 0
    CASE "鬱", "悲", "憂"
        RETURN 0
    CASE  "狂", "恐", "怯"
        RETURN 0
ENDSELECT

;───────────────────────────────────────
;◆キスに対する感想（日常）
;───────────────────────────────────────
IF GROUPMATCH(SELECTCOM, 340, 341)
    {
        SELECTCASE IFRAND(
            "1",1,
            "D1, 2",CHECK_K7("陥落", エル_対象),
            "D1TO9, 10",CHECK_K7("陥落", エル_対象) && PALAM:エル:欲情 >= 9000 && IS_INITIATIVE(エル),
            "D1TO9, 11",CHECK_K7("陥落", エル_対象) && PALAM:エル:欲情 >= 9000 && !IS_INITIATIVE(エル)
            )
    }
        CASE 1
            IF IS_INITIATIVE(エル)
                PRINTDATAL
                    DATAFORM 「……ふふっ、ちょっとした挨拶のようなものだよ」
                    DATAFORM 「どう、かな……？　やっぱり気恥ずかしいね」
                ENDDATA
            ELSE
                PRINTDATAL
                    DATAFORM 「……やっぱり気恥ずかしいね」
                    DATAFORM 「やっぱり気恥ずかしいなぁ……こういうのは」
                ENDDATA
            ENDIF
        CASE 2
            IF IS_INITIATIVE(エル)
                PRINTDATAL
                    DATALIST
                        DATAFORM 「……ふふっ、ちょっとした挨拶のようなものだよ」
                        DATAFORM 「物足りないって顔してるね。……私もだよ❤」
                    ENDLIST
                    DATAFORM 「……ふふっ、今のはちょっとした挨拶だよ。本番は……これからだね」
                    DATAFORM 「これじゃぁ、ちょっと物足りないかな？」
                ENDDATA
            ELSE
                PRINTDATAL
                    DATAFORM 「ねぇ……これだけでいいのかい？」
                    DATAFORM 「んんっ……もう、おしまいなのかい？」
                ENDDATA
            ENDIF
        CASE 10
            PRINTW
            PRINTFORMW 「……これじゃあ、足りないよね？」
            PRINTFORMDL %ANAME(エル)%は%ANAME(MASTER)%を抱き寄せると、抱く手に力を込めて唇を重ねた
            PRINTFORMDW
            PRINTFORMDW 彼女の舌がさらに深い深いつながりを求めて%ANAME(MASTER)%の舌に絡みつく……
            CALL SET_EQUIP(342, 1)
            RETURN 1
        CASE 11
            PRINTW
            PRINTFORMW 「……ダメ。まだ止めないでよ……」
            PRINTFORMDW %ANAME(エル)%は%ANAME(MASTER)%に半ば強引に抱きつき、貪るように激しく舌を絡める……
            CALL SET_EQUIP(342, 1)
            RETURN 1
        CASEELSE
    ENDSELECT
ENDIF
;───────────────────────────────────────
;◆自慰に対する感想
;───────────────────────────────────────
IF GROUPMATCH(SELECTCOM, 100, 120)
    {
        SELECTCASE IFRAND(
            "0",1,
            "D0, 1",CHECK_K7("陥落", エル_対象)  && NOWEX:エル:Ｃ絶頂,
            "D0, D1, 2",CHECK_K7("陥落", エル_対象)  && NOWEX:エル:Ｃ絶頂 && IS_EQUIP(エル,11, 90, 107),
            )
    }
        CASE 1
            PRINTDATAL
                DATAFORM 「んんっ……恥ずかしいところ見られながらイッて……んんっ！」
                DATAFORM （恥ずかしいけど…気持ちよくて……手、止まらないよぉ……）
                DATAFORM 「……み、見ないで。こんな%SPLIT_RAND("はしたない/いやらしい",1)%姿……あぁん❤」
            ENDDATA
        CASE 2
            PRINTDATAL
                DATAFORM （%CALL_DIRTY_K7("Ｐ")%%SPLIT_RAND("で口を犯され/をしゃぶり/をなめ",1)%ながら自分の%CALL_DIRTY_K7("Ｃ")%をいじるなんて……これじゃぁ変態……んっ❤）
                DATAFORM （上も下もあつくて……あぁんっ……きもちいい❤❤❤）
            ENDDATA
        CASEELSE
    ENDSELECT
ENDIF
;───────────────────────────────────────
;◆射精に対する感想
;───────────────────────────────────────
SELECTCASE GET_STACK_SPERM_TO(エル_対象, エル)
    CASE 1
        射精先 '= "膣"
    CASE 3
        射精先 '= "手"
    CASE 4
        射精先 '= "口"
    CASE 5
        射精先 '= "胸"
    CASE 6
        射精先 '= "足"
    CASE 8
        射精先 '= "顔"
    CASE 9
        射精先 '= "髪"
    CASE 11
        射精先 '= "尻"
    CASEELSE
        射精先 '= ""
ENDSELECT

IF HAS_PENIS(エル_対象) && NOWEX:エル_対象:射精 > 0
    射精フラグ = 1
ENDIF

IF CHECK_K7("陥落", エル_対象) && ABL:精愛 >= 2
    精愛傾向 '= "精愛"
ELSE
    精愛傾向 '= "通常"
ENDIF

;(11=フェラ 90=イラマ 107=亀頭フェラ 330=日常口奉仕)
IF GROUPMATCH(SELECTCOM, 11, 90, 107, 330)	|| IS_EQUIP(エル,11, 90, 107)
    IF 射精フラグ == 1 && 射精先 == "口"
        IF 精愛傾向 == "精愛"
            PRINTDATAL
                DATAFORM （んんっ……！　で、でてる）
                DATAFORM 「んっぷ、んれぇ……。はぁ……はぁ」
                DATAFORM （はぁ……すごい%S_R("量/匂い",1)%……。おいしい❤）
                DATAFORM 「ん……ふぅ。溜まっていたんだね❤」
                DATAFORM 「ちゅる、んんっ……。はぁぁ❤」
                DATAFORM （口の中……%S_R("精液/ザーメン/白いの",1)%でいっぱい……❤）
                DATAFORM 「ちゅぷ、んっ、ぷはぁ」
                DATAFORM 「くちゅ……んっ。濃くて……とろとろで……はぁ❤」
            ENDDATA
            PRINTDATAL
                DATAFORM （欲しい……%S_R("濃厚/えっちな/とろとろの",1)%%S_R("ミルク/ザーメン/精液",1)%もっと飲みたい、もっと❤❤❤）
                DATAFORM 「んんっ……はぁ……。ごちそうさま……でした❤」
                DATAFORM 「……どう？　気持ちよかったかい？　私は……もう少し……欲しいな❤」
                DATAFORM 「んぐっ、んっ……じゅるるるぅ、……ぷはぁ。……しゃぶってもしゃぶってもえっちな汁……どんどん溢れてくるね。ちっとも綺麗にならないや❤」
                DATAFORM 「こうやって、先の方を舌で撫でてあげると……ふふっ、またビクってしたね❤　可愛いなぁもう」
                DATAFORM 「まだ、足りないよ……。ねぇ、もっと……ちょうだい❤」
                DATAFORM 「もっと……私の口に%CALLNAME_K7(エル_対象)%の%S_R("濃厚/えっちな/とろとろの",1)%%S_R("ミルク/ザーメン/精液",1)%、いっぱい……注いで❤❤❤」
            ENDDATA
        ELSE
            PRINTDATAL
                DATAFORM (んんっ……！　く、口の中に出て……)
                DATAFORM 「ん゛んっ……！　ぷはぁ……。だ、出すなら先に言って欲しかったよ……」
                DATAFORM 「はぁ……はぁ……。これが……%SPLIT_RAND("ザーメン/精液",1)%の味……なんだね……」
            ENDDATA
        ENDIF
    ELSEIF 射精フラグ == 1 && 射精先 == "顔"
        IF 精愛傾向 ==  "精愛"
            PRINTDATAL
                DATAFORM 「はぁ……顔中……べとべと」
                DATAFORM 「ぷはぁ……❤　白いのいっぱい出たね❤」
                DATAFORM 「んぷ、濃厚で……すごい匂い❤」
                DATAFORM 「はぁ……。顔中トロトロの%SPLIT_RAND("精液/ザーメン",1)%まみれ……。おかしくなってしまいそうだ❤❤」
                DATAFORM 「ぷはぁ……❤すきぃ……%SPLIT_RAND("精液/ザーメン",1)%すきぃ❤」
            ENDDATA
            IF RAND:3 < 1
                PRINTFORMDL %ANAME(エル)%は滴る精液を恍惚の表情で舐め取った……
            ENDIF
        ELSE
            PRINTDATAL
                DATAFORM 「はぁ……顔中……べとべとだよ」
                DATAFORM 「うぅ……すごい……匂い」
            ENDDATA
        ENDIF
    ELSE
        PRINTDATAL
            DATAFORM （頭……くらくらして……あぁ……）
            DATAFORM （また……大きくなって……熱い……）
            DATAFORM （んぷっ、はぁ………）
            DATAFORM （すごい……。脈打ってて……んんっ）
            DATAFORM 「%SPLIT_RAND("ん/んっ/んんっ",1)%、%SPLIT_RAND("ちゅ/じゅぷ/くちゅ/じゅっ",1)%…%SPLIT_RAND("はぁ/ふぅ/んぷっ",1)%」
        ENDDATA
    ENDIF
    RETURN 0
ENDIF

;(10=手コキ 332=日常手コキ)
IF GROUPMATCH(SELECTCOM, 10, 332)
    IF 射精フラグ == 1 && 射精先 == "手"
        IF 精愛傾向 == "精愛"
            IF RAND:3 < 1
                PRINTFORMDL %ANAME(エル)%は恍惚とした表情で手から滴る精液を眺めている……
            ENDIF
            PRINTDATAL
                DATAFORM 「はぁん❤　すごい量……いっぱい溜まってたんだね……❤」
                DATAFORM 「きゃっ……出しすぎだよぉ……」
                DATAFORM 「……手がすっかりべとべとだ」
            ENDDATA
            IF RAND:3 < 1
                PRINTFORMDL %ANAME(エル)%は手にこびりついた精液を愛おしげに舌で舐め取った……
            ENDIF
        ELSE
            PRINTDATAL
                DATAFORM 「うぇ……べとべと……」
                DATAFORM 「……すごい量だねぇ」
            ENDDATA
        ENDIF
    ELSEIF 射精フラグ == 1 && 射精先 == "顔"
        IF 精愛傾向 ==  "精愛"
            IF RAND:3 < 1
                PRINTFORMDL 陶然とした表情の%ANAME(エル)%の顔から精液が流れる……
            ENDIF
            PRINTDATAL
                DATAFORM 「んんっ！　顔中……べとべと」
                DATAFORM 「ぷはぁ……❤　白いのいっぱい出たね❤」
                DATAFORM 「はぁ……濃厚で……すごい匂い❤」
            ENDDATA
            IF RAND:3 < 1
                PRINTFORMDL %ANAME(エル)%は唇に垂れる精液をぺろりと舐め取った……
            ENDIF
        ELSE
            PRINTDATAL
                DATAFORM 「顔中……べとべとだ」
                DATAFORM 「うぅ……すごい……匂い」
            ENDDATA
        ENDIF
    ELSEIF 射精フラグ == 1 && 射精先 == "口"
        IF 精愛傾向 == "精愛"
            PRINTDATAL
                DATAFORM （んんっ……！　で、でてる）
                DATAFORM 「んっぷ、んれぇ……。はぁ……はぁ」
                DATAFORM （すごい量……。おいしい❤）
                DATAFORM 「ん……ふぅ。溜まっていたんだね❤」
                DATALIST
                    DATAFORM 「くちゅ……んっ。濃くて……とろとろで……はぁ❤」
                    DATAFORM 「もっと……ちょうだい」
                ENDLIST
            ENDDATA
        ELSE
            PRINTDATAL
                DATAFORM （んんっ……！　で、でてる）
                DATAFORM 「んっぷ、んれぇ……。はぁ……はぁ」
            ENDDATA
        ENDIF
    ELSE
        PRINTDATAL
            DATAFORM （すごい……。脈打ってて……んんっ）
            DATAFORM 「すごい……。手の中でびくって」
        ENDDATA
    ENDIF
    RETURN 0
ENDIF

IF 射精フラグ == 1 && 射精先 == "膣"
    IF 精愛傾向 == "精愛"
        PRINTDATAL
            DATAFORM 「はぁ……❤　%CALL_DIRTY_K7("Ｖ")%に%CALLNAME_K7(エル_対象)%の%SPLIT_RAND("精液/ザーメン/子種",1)%が…いっぱい……❤」
            DATAFORM 「んんっ、はぁ……あったかい……❤」
            DATAFORM 「やぁ……%CALL_DIRTY_K7("Ｖ")%、とけちゃう……」
            DATALIST
                DATAFORM 「はぁ……もっと、もっと注いでよ❤」
                DATAFORM 「%SPLIT_RAND("はしたない/えっちな/いやらしい/とろとろの",1)%私の%CALL_DIRTY_K7("Ｖ")%…%CALLNAME_K7(エル_対象)%の%SPLIT_RAND("精液/ザーメン",1)%で%SPLIT_RAND("いっぱい/ぐちゃぐちゃ",1)%にして❤❤」
            ENDLIST
            DATAFORM 「はぁ…はぁ…❤　なかでびゅるっ、びゅるっ、ってしているよ❤　あぁ……んんっ」
            DATAFORM 「ねぇ……、%CALLNAME_K7(エル_対象)%の%SPLIT_RAND("濃い/えっちな/いやらしい/とろとろの",1)%%SPLIT_RAND("精液/ザーメン/白いの/ミルク",1)%、いっぱい……ください❤❤　ふふっ❤」
        ENDDATA
    ELSE
        PRINTDATAL
            DATAFORM 「んっあぁ……❤　な、なかに出てるぅ」
            DATAFORM 「はぁ……あつい……❤　%SPLIT_RAND("濃い/えっちな/いやらしい/とろとろの",1)%%SPLIT_RAND("精液/ザーメン/白いの/ミルク",1)%、いっぱい%CALL_DIRTY_K7("Ｖ")%に出てるよ❤」
            DATAFORM 「ひゃんっ……❤　出てるぅ」
        ENDDATA
    ENDIF
    RETURN 0
ENDIF

IF 射精フラグ == 1
    IF 精愛傾向 == "精愛"
        PRINTDATAL
            DATAFORM 「いっぱいでたね……❤」
            DATAFORM 「ふふっ、そんなに気持ちよかったのかな……❤」
        ENDDATA
    ELSE
        PRINTDATAL
            DATAFORM 「溜まっていたんだね……」
            DATAFORM 「気持ち……いいかな……？」
        ENDDATA
    ENDIF
    RETURN
ENDIF

;───────────────────────────────────────
;●戻る
;───────────────────────────────────────
RETURN 0


code:
;───────────────────────────────────────
;■閨_攻め_実行前
;　汎用台詞「KOJO_K7_共_閨_攻_汎用.ERB」を呼び出す前に
;　特殊なコマンドを個別に表示してRETURNする
;───────────────────────────────────────
@KOJO_K7_NIGHT_BEFORE_TOP(エル_対象)
#DIM エル
#DIM エル_対象
#DIMS エル機嫌
#DIM 汎用攻め省略

IF !エル_対象
	エル_対象 = MASTER
ENDIF

エル = NAME_TO_CHARA("エル")
エル機嫌 '= TOSTR_EMOTION(エル)

汎用攻め省略 = 0

;───────────────────────────────────────
;◆慰安中の攻めは煽らず曖昧に奉仕
;───────────────────────────────────────
IF FLAG:調教モード == 調教_慰安
	PRINTFORM 「
	IF RAND:5 == 0
		PRINTFORM %CALLNAME_K7(エル_対象)%
		PRINTFORM %SPLIT_R("……：、：。")%
		PRINTFORM %SPLIT_R("ここ、が：こんな、感じで：は、ふ")%
		PRINTFORM %SPLIT_R("……気持ちいいかい？：……いいかい？：……悦んでくれるのかい？")%
	ENDIF
	PRINTFORM %SPLIT_R("はふ、あ：んんっ：んぅ：んう")%
	PRINTFORM %BREAK_K7("中", エル_対象)%
	PRINTFORM %SPLIT_R("んっ……：んふ……：んく……：はぁ……：んぅ……：ん：はふ")%
	PRINTFORM %BREAK_K7("末", エル_対象)%
	PRINTFORML 」
	RETURN 0
ENDIF

;───────────────────────────────────────
;◆不機嫌時
;───────────────────────────────────────
SELECTCASE エル機嫌
	CASE "恨", "怒", "憤"
		IF RAND:3 < 1
			PRINTFORMDL %ANAME(エル)%は眉をひそめて様子を伺っている
		ENDIF
		IF PALAM:エル:怒主 <= PALAM:エル:怒外
			PRINTDATAL
				DATAFORM 「……」
			ENDDATA
		ELSE
			PRINTDATAL
				DATAFORM 「ふんっ」
				DATAFORM 「…………」
				DATAFORM 「なんなんのかな……」
			ENDDATA
		ENDIF
		RETURN 0

	CASE "鬱", "悲", "憂"
		IF RAND:3 < 1
			PRINTFORMDL %ANAME(エル)%は悲しげな表情で目を背けた
		ENDIF
		IF PALAM:エル:哀主 <= PALAM:エル:哀外
			PRINTDATAL
				DATAFORM 「……」
			ENDDATA
		ELSE
			PRINTDATAL
				DATAFORM 「こんなの……あんまりじゃないかな」
				DATAFORM 「私を何だと思っているんだい……」
				DATAFORM 「…………」
			ENDDATA
		ENDIF
		RETURN 0

	CASE  "狂", "恐", "怯"
		IF RAND:3 < 1
			PRINTFORMDL %ANAME(エル)%は恐怖のあまり震えている
		ENDIF
		IF PALAM:エル:怖主 <= PALAM:エル:怖外
			PRINTDATAL
				DATAFORM 「%CALLNAME_K7(エル_対象)%、私……はもう耐えられないよ……」
				DATAFORM 「ひっ……」
			ENDDATA
		ELSE
			PRINTDATAL
				DATAFORM 「…………」
				DATAFORM 「ひっ……」
			ENDDATA
		ENDIF
		RETURN 0

	CASEELSE
ENDSELECT

;───────────────────────────────────────
;◆不機嫌だと喋らない
;───────────────────────────────────────
IF !GROUPMATCH(エル機嫌, "恨", "怒", "憤", "鬱", "悲", "憂", "狂", "恐", "怯")
	IF SELECTCOM == PREVCOM
		IF RAND:10 == 0 && IS_INITIATIVE(エル) && CHECK_K7("活力", エル_対象) && (( IS_MPLY(エル) && MPLY_NUM == 1 )||( IS_MTAR(エル) && MTAR_NUM == 1 ))
			PRINTDATA
				DATAFORM 「んっ……
				DATAFORM 「もっと
				DATAFORM 「このまま
				DATAFORM 「もう少し
			ENDDATA
			;実行逆転のコマンド
			IF GROUPMATCH(SELECTCOM, 111, 101, 102, 100, 211, 130, 131, 132, 150, 151)
				PRINTDATAL
					DATAFORM %KOJO_COM_NAME_TARGET_K7(SELECTCOM)%たいのかい？」
					DATAFORM %KOJO_COM_NAME_PLAYER_K7(SELECTCOM)%たいんだね？」
				ENDDATA
				LOCAL:0 = COM_EXP:(エル):(SELECTCOM+1000)
				;実行逆転のコマンド以外
			ELSE
				PRINTDATAL
					DATAFORM %KOJO_COM_NAME_PLAYER_K7(SELECTCOM)%たいな……いいかい？」
					DATAFORM %KOJO_COM_NAME_TARGET_K7(SELECTCOM)%たいよ……だめかな？」
				ENDDATA
				LOCAL:0 = COM_EXP:(エル):(SELECTCOM)
			ENDIF
			;性癖設定を参照して該当コマンドの経験回数をチェック
			;NTR系で経験を稼いでいる場合に違和感が出るからどうしたものか
			IF RAND:5 == 0
				IF LOCAL:0 > 100
					PRINTFORM 「もう何度も
					PRINTDATAL
						DATAFORM 教えてあげたんだから
						DATAFORM 躾けてあげたんだから
						DATAFORM 教えたんだから
						DATAFORM 躾けたんだから
					ENDDATA
					PRINTFORM %BREAK_K7("中", エル_対象)%
					PRINTDATAL
						DATAFORM %CALLNAME_K7(エル_対象)%も理解できたよね？」
						DATAFORM %CALLNAME_K7(エル_対象)%だって好きなんだよね？」
						DATAFORM しないとだめな体のはずだよね？」
						DATAFORM 成果を見せてくれるね？」
						DATAFORM わかってくれたよね？」
					ENDDATA
				ELSEIF LOCAL:0 > 35
					PRINTFORML 「慣れたかい……？」
					PRINTFORML 「ふふっ、まだまだ%SPLIT_R("教えて：指導して：躾けて")%あげるからね%BREAK_K7("末", エル_対象)%」
				ELSE
					PRINTFORML 「まだ{LOCAL:0}回しかしていないよ？　もっともっと%SPLIT_R("躾け：教育")%が必要だね%BREAK_K7("末", エル_対象)%」
				ENDIF
			ENDIF
			PRINTL
		ENDIF
	ENDIF
ENDIF

;───────────────────────────────────────
;●エル_対象が攻め（主導権によるものもある）
;───────────────────────────────────────
;おねだりされる・させる
IF SELECTCOM == 111
	IF IS_MALE(MASTER)
		LOCALS:0 '= "精液を搾ってください"
		LOCALS:1 '= "白い"
	ELSE
		LOCALS:0 '= "愛液を掻き出してください"
		LOCALS:1 '= "透明"
	ENDIF
	PRINTDATAL
		DATAFORM 「%LOCALS:0%、だよね？」
		DATAFORM 「飲んで欲しいのかい？　%LOCALS:1%のを」
		;		DATALIST
		;			DATAFORM 「%CALLNAME_K7(エル_対象)%の血は全部私の好きにしていい血よね」
		;			DATAFORM 「紅いのも、白いのも、透明なのも」
		;		ENDLIST
	ENDDATA
	RETURN 0
ENDIF

;顔面騎乗 Ａ顔面騎乗する・させる（ターゲットは喋れない）
IF SELECTCOM == 101 || SELECTCOM == 102
	IF IS_MPLY(エル)
		PRINTDATA
			DATAFORM 「こ、こうかな」
			DATAFORM 「……どうしようもない変態だね❤」
			DATAFORM 「躾けてあげよう」
		ENDDATA
		PRINTL
		RETURN 0
	ENDIF
ENDIF

;自慰する・させる（触手も）
IF SELECTCOM == 100 || SELECTCOM == 211
	;エルがする
	IF IS_MPLY(エル)
		PRINTDATAL
			DATAFORM 「んっ……ふあぁっ」
			DATAFORM 「はああぁ……っ。見られながら……するの、いい❤」
			DATAFORM 「んくぅ……気持ちい……あっ」
		ENDDATA
		PRINTL
		;エルがエル_対象にさせる
		;	ELSE
	ENDIF
	RETURN 0
ENDIF

;排泄指示
;IF GROUPMATCH(SELECTCOM, 130, 131, 132, 150, 151) && IS_MTAR(エル) && IS_INITIATIVE(エル)
;ENDIF

;───────────────────────────────────────
;●実行が攻め
;───────────────────────────────────────
;捕虜逆調教（80～99）
;IF SELECTCOM >= 80 && SELECTCOM <= 99
; ENDIF

;触手系
; IF SELECTCOM >= 200 && SELECTCOM <= 219
; ENDIF

;不機嫌な状態で話せるのはここまで
IF GROUPMATCH(エル機嫌, "恨", "怒", "憤", "鬱", "悲", "憂", "狂", "恐", "怯")
	RETURN 0
ENDIF

;───────────────────────────────────────
;◆機嫌が悪いと喋らない
;───────────────────────────────────────
;ペニバン装着時は汎用攻めを喋らない
;IF SELECTCOM == 50
;ENDIF

;１対１の性交系
IF ( IS_MPLY(エル) && ( GROUPMATCH(SELECTCOM, 30, 31, 32, 33, 34, 35, 36)||GROUPMATCH(SELECTCOM, 40, 41, 42, 43, 44, 45, 46) ) ) || ( IS_EQUIP_PLAYER(エル, 30, 31, 32, 33, 34, 35, 36) || IS_EQUIP_PLAYER(エル, 40, 41, 42, 43, 44, 45, 46) )
	IF HAS_PENIS(エル)
		LOCALS:0 '= CALL_DIRTY_K7("Ｐ")
		LOCALS:1 '= ""
	ELSE
		LOCALS:0 '= "玩具の" + CALL_DIRTY_K7("Ｐ")
		LOCALS:1 '= "の真似を"
	ENDIF
	;主導権がある
	IF IS_INITIATIVE(エル)
		;陥落がある
		IF CHECK_K7("陥落", エル_対象)
			;サド素質でたまに
			IF GETBIT(TALENT:エル:淫乱系, 素質_淫乱_サド) && RAND:10 == 0
				IF IS_MALE(エル_対象)
					PRINTFORML 「女の子に犯されるのが好きなのかい？　つくづくどうしようもない人だね❤」
				ELSE
					PRINTFORML 「%LOCALS:0%なら何でもいいのかな？　この変態❤」
				ENDIF
			ELSE
				PRINTDATAL
					DATAFORM 「今は私の番だよ、大人しく従ってもらおう❤」
				ENDDATA
			ENDIF
			;陥落がない
		ELSE
			;サド素質でたまに
			IF GETBIT(TALENT:エル:淫乱系, 素質_淫乱_サド) && RAND:10 == 0
				IF IS_MALE(エル_対象)
					PRINTFORML 女の子に犯されるのが好きなのかい？　つくづくどうしようもない人だね❤」
				ELSE
					PRINTFORML 「%CALL_DIRTY_K7("Ｐ")%なら何でもいいのかい？　……Ｌこの変態」
				ENDIF
			ELSE
				PRINTDATAL
					DATAFORM 「ほらほらっ。%LOCALS:0%が好きなんだろう？」
					DATAFORM 「ここがいいんだろう？　ほら」
					DATAFORM 「%LOCALS:0%で気持ちよく%LOCALS:1%してあげよう❤」
				ENDDATA
			ENDIF
		ENDIF

		;主導権がない
	ELSE
		PRINTDATAL
			DATAFORM 「あぁっ。気持ちいいっ」
			DATAFORM 「出そう……っ！　%CALLNAME_K7(エル_対象, "ぁ")%っ……いいっ❤」
		ENDDATA
	ENDIF
ENDIF

;指愛撫
IF IS_MTAR(エル) && !IS_MPLY(エル) && GROUPMATCH(SELECTCOM, 0, 1, 3, 4, 10) || IS_EQUIP_TARGET(エル, 0, 1, 3, 4, 10)
	IF CHECK_K7("陥落", エル_対象)
		PRINTDATAL
			DATAFORM 「どうかい？　気持ちいいかな？」
			DATAFORM 「指で……気持ちよくしてあげるよ❤」
			DATAFORM 「よしよし❤　気持ちいいかい？」
		ENDDATA
	ELSE
		PRINTDATAL
			DATAFORM 「どう……かな……？　気持ちいいかい？」
			DATAFORM 「こう……かな」
		ENDDATA
	ENDIF
ENDIF

;手コキ
IF IS_MPLY(エル) && SELECTCOM == 10
	{
		SELECTCASE IFRAND(
			"1",1,
			"D1,2",CHECK_K7("陥落", エル_対象),
			"D1,3",CHECK_K7("陥落", エル_対象) && PALAM:エル:欲情 >= 6000,
			"D1,4",CHECK_K7("陥落", エル_対象) && PALAM:エル:欲情 >= 6000 && エル_衣装:衣装部位_下着下 != "なし",
			"D1TO9,10",CHECK_K7("陥落", エル_対象) && IS_EQUIP(エル, 9),
			"D1TO9,11",GETBIT(TALENT:エル:淫乱系, 素質_淫乱_淫乱) && IS_EQUIP(エル, 9),
			"D1TO9,D10,12",GETBIT(TALENT:エル:淫乱系, 素質_淫乱_淫乱) && IS_EQUIP(エル, 9) && TALENT:エル:母乳体質 == 1,
			)
	}
		CASE 1
			PRINTDATAL
				DATAFORM 「どうかな……？　気持ちいいかい？」
				DATAFORM 「こう……でいいのかな？」
			ENDDATA
		CASE 2
			PRINTDATAL
				DATAFORM 「どうかい？　気持ちいいかい？」
				DATAFORM 「よしよし❤　気持ちいいかな？」
				DATAFORM 「手でしてあげるから……気持ちよくなってよ……❤」
				DATAFORM %PRINT_DESC_K7(ANAME(エル) + "が" + ANAME(エル_対象) + "のペニスを手に取りしごきあげる…")%
			ENDDATA
		CASE 3
			PRINTDATAL (LOCAL:0)
				DATAFORM 「%CALLNAME_K7(エル_対象)%の%SPLIT_RAND("えっちな/いやらしい",1)%%CALL_DIRTY_K7("Ｐ")%、シコシコしてあげよう❤」
				DATAFORM 「我慢しなくていいんだよ……？　好きなだけ、気持ちよくしてあげよう」
			ENDDATA
			;パンツ扱き
		CASE 4
			PRINTFORMW 「こういうのはどうかな？」
			PRINTFORMDL %ANAME(エル)%は身に着けていた%エル_衣装:衣装部位_下着下%を%ANAME(エル_対象)%のペニスにそっと被せた
			PRINTFORMW 「私の下着でしごいてあげよう……脱ぎたての❤」
			CALL SET_STS_K7("特殊口上", "パンツ扱き")
			;授乳手コキ
		CASE 10
			PRINTFORMDL 乳首%SPLIT_RAND("にむしゃぶりつく/を舐め回す/を口の中でねぶる",1)%%ANAME(MASTER)%のペニスを、%ANAME(エル)%が%SPLIT_RAND("優しく/おずおずと/慈しむように",1)%しごきあげる…
			PRINTDATAL
				DATAFORM 「よしよし❤　いい子、いい子❤」
				DATAFORM 「そ、そんなに強く吸っちゃぁ……あぁん！」
				DATAFORM 「ふふっ❤　まるで赤ちゃんみたいだね❤」
				DATAFORM 「気が済むまで手でしてあげるから……気持ちよくなってよ……❤」
			ENDDATA
		CASE 11
			PRINTFORMDL 乳首%SPLIT_RAND("にむしゃぶりつく/を舐め回す/を口の中でねぶる",1)%%ANAME(MASTER)%のペニスを、%ANAME(エル)%が%SPLIT_RAND("優しく/ねっとりと/撫で回すように",1)%しごきあげる…
			PRINTDATAL
				DATAFORM 「よしよし❤　%SPLIT_RAND("えっちな/いやらしい",1)%赤ちゃんミルク、いっぱいぴゅるぴゅるしていいんだよ❤」
				DATAFORM 「我慢しなくていいんだよ……？　好きなだけ、気持ちよくしてあげるよ❤」
				DATAFORM 「手でしてあげるから……%CALL_DIRTY_K7("Ｐ")%で気持ちよくなってよ……❤❤❤」
			ENDDATA
		CASE 12
			PRINTFORMDL 乳首%SPLIT_RAND("にむしゃぶりつく/を舐め回す/を口の中でねぶる",1)%%ANAME(MASTER)%のペニスに、%ANAME(エル)%の華奢な指先が%SPLIT_RAND("優しく/ねっとりと絡みつくように/撫で回すように",1)%伸びる
			PRINTDATAL
				DATAFORM 「よしよし❤　%SPLIT_RAND("えっちな/いやらしい",1)%赤ちゃんミルク、いっぱいぴゅるぴゅるしようね❤」
				DATAFORM 「ふふっ❤　ママのミルク飲みながら……%SPLIT_RAND("えっちな/いやらしい/とろとろの",1)%赤ちゃんミルク、いっぱいぴゅっぴゅしてね、パパ❤❤❤」
				DATAFORM 「手でシコシコされながら、一生懸命%CALL_DIRTY_K7("Ｂ")%%SPLIT_RAND("ちゅーちゅー/ちゅるちゅる/ちゅぱちゅぱ",1)%して……%CALLNAME_K7(エル_対象)%は本当にいやらしいね❤❤❤」
			ENDDATA
		CASEELSE
	ENDSELECT
	PRINTL
ENDIF

;パイズリ
IF IS_MPLY(エル) && SELECTCOM == 12
	{
		SELECTCASE IFRAND(
			"1",1,
			"D1,2",CHECK_K7("陥落", エル_対象),
			"D1,3",CHECK_K7("陥落", エル_対象) &&  GET_BUSTSIZE(エル) < 0,
			"D1TO3,4",CHECK_K7("陥落", エル_対象) &&  (CUM_GET_COUNT:(エル):射精部位_胸 > 0)
			)
	}
			;通常
		CASE 1
			IF IS_INITIATIVE(エル)
				PRINTDATAL
					DATAFORM 「どうかな……？　気持ちいいかい？」
					DATAFORM 「%CALL_DIRTY_K7("Ｂ")%で……気持ちよくなってよ」
				ENDDATA
			ELSE
				PRINTDATAL
					DATAFORM 「%CALL_DIRTY_K7("Ｂ")%で扱いて欲しい？　……仕方ないなぁ」
					DATAFORM 「%CALL_DIRTY_K7("Ｂ")%で……？　しょうがないなぁ……」
				ENDDATA
			ENDIF
			;陥落
		CASE 2
			IF IS_INITIATIVE(エル)
				PRINTDATAL
					DATAFORM 「ふふっ、%CALL_DIRTY_K7("Ｂ")%で奉仕してあげよう」
					DATAFORM 「%CALL_DIRTY_K7("Ｂ")%で、気持ちよくなってよ」
				ENDDATA
			ELSE
				PRINTDATAL
					DATAFORM 「%CALL_DIRTY_K7("Ｂ")%で扱いて欲しい？　……仕方ないなぁ❤」
					DATAFORM 「しょうがないなぁ❤　%CALL_DIRTY_K7("Ｂ")%で奉仕してあげるよ」
				ENDDATA
			ENDIF
		CASE 3
			;ナイズリ
			IF IS_INITIATIVE(エル)
				PRINTFORMDL %ANAME(エル)%は%ANAME(エル_対象)%のペニスに薄い胸板を押し当てた
				PRINTFORMDL 早鐘のように鳴る%ANAME(エル)%の鼓動が%ANAME(エル_対象)%の亀頭を刺激する…
				PRINTL
				PRINTFORML 「%CALL_DIRTY_K7("Ｂ")%で扱いてあげるよ❤　おおきい……とは言えないがね」
			ELSE
				PRINTFORMDL %ANAME(エル_対象)%は%ANAME(エル)%の薄い胸板にペニスを押し当て、%SPLIT_RAND("扱き上げる/奉仕する/胸で気持ちよくする",1)%よう要求した
				PRINTFORMDL 早鐘のように鳴る%ANAME(エル)%の鼓動が%ANAME(エル_対象)%の亀頭を刺激する…
				PRINTL
				PRINTFORML 「ひどいなぁ……私が%CALL_DIRTY_K7("Ｂ")%のこと気にしているの、よく知っているくせに❤」
			ENDIF
		CASE 4
			;ぶっかけ
			PRINTFORMDL %SPLIT_RAND("ぢゅっ/じゅぶ/ぐちゅ/ぬちゅっ",1)%…%SPLIT_RAND("ちゅぷ/ちゅ/くちゅ/じゅるるっ",1)%……%SPLIT_RAND("ぐちゅ/ちゅっ/ぬちゅ/じゅっ",1)%……
			IF IS_INITIATIVE(エル)
				PRINTFORMDL %ANAME(エル)%は胸にこびりついた%SPLIT_RAND("精液/ザーメン/体液",1)%をローション代わりに、%ANAME(エル_対象)%のペニスをさらに扱き上げる…
				PRINTL
				PRINTFORML 「私の%CALL_DIRTY_K7("Ｂ")%でもっともっと気持ちよくなってよ❤　ほら❤」
			ELSE
				PRINTFORMDL 既に%SPLIT_RAND("精液/ザーメン/体液",1)%で%SPLIT_RAND("白濁した/ドロドロになった/まみれた",1)%%ANAME(エル)%の胸を、%ANAME(エル_対象)%のペニスがさらに蹂躙する…
				PRINTL
				PRINTFORML 「まだ汚し足りないのかい❤　まったく%CALLNAME_K7(エル_対象)%は本当に仕方ないなぁ❤」
			ENDIF
		CASEELSE
	ENDSELECT
	PRINTL
ENDIF

;足コキ
IF IS_MPLY(エル) && GROUPMATCH(SELECTCOM, 14) || IS_EQUIP_PLAYER(エル, 14)
	{
		SELECTCASE IFRAND(
			"1",1,
			"D1,2",CHECK_K7("陥落", エル_対象),
			"D1TO2,3",CHECK_K7("陥落", エル_対象) && (CUM_GET_COUNT:(エル):射精部位_足 > 0)
			)
	}
			;通常
		CASE 1
			PRINTDATAL
				DATAFORM 「こう……でいいのかい……？」
				DATAFORM 「踏んで欲しい……？　%CALLNAME_K7(エル_対象)%もなかなか救いがたいね……」
				DATAFORM 「%CALLNAME_K7(エル_対象)%の奇特な性癖に付き合ってあげているんだ。感謝してよ、ほら」
			ENDDATA
			;陥落
		CASE 2
			IF エル_衣装:衣装部位_靴下 != "なし" && RAND:2
				PRINTDATADL
					DATAFORM %PRINT_DESC_K7(@"%ANAME(エル)%は%エル_衣装:衣装部位_靴下%を脱ぐと、%SPLIT_RAND("足指を這わせるように/素足で/白くなめらかな足で/艶めかしい足つきで",1)%%ANAME(エル_対象)%のペニスを扱き上げる")%
					DATAFORM %PRINT_DESC_K7(@"%ANAME(エル)%は%エル_衣装:衣装部位_靴下%で%ANAME(エル_対象)%のペニスを扱き上げる")%
				ENDDATA
				PRINTL
			ELSEIF エル_衣装:衣装部位_靴下 == "なし" && RAND:2
				PRINTFORMDL %PRINT_DESC_K7(@"%ANAME(エル)%は%SPLIT_RAND("足指を這わせるように/素足で/白くなめらかな足で/艶めかしい足つきで",1)%%ANAME(エル_対象)%のペニスを扱き上げる")%
				PRINTL
			ENDIF
			PRINTDATAL
				DATAFORM 「足の指で悦ばせてあげよう」
				DATAFORM 「踏まれるのが気持ちいいんだろう？」
				DATAFORM 「踏んであげるよ」
				DATAFORM 「%CALLNAME_K7(エル_対象)%にはお似合いの姿だ」
				DATAFORM 「こうされるのが好きなんだろう？　ほら❤」
			ENDDATA
			IF PALAM:(エル):欲情 > PALAMLV:5 && STRFIND(エル_衣装:衣装部位_下服, "スカート") != -1 && RAND:3
				PRINTL
				PRINTFORMDL %SPLIT_RAND("足で奉仕されて/なめらかな白い足でペニスを扱かれ/ぐりぐりとペニスを弄ばれ",1)%悶える%ANAME(エル_対象)%の痴態を前に、%ANAME(エル)%は情欲の笑みを浮かべると、
				PRINTFORMDL %エル_衣装:衣装部位_下服%をじらすように、ゆっくりとたくし上げる
				PRINTL
				PRINTDATAL
					DATAFORM 「これで……もっと興奮してくれるかい❤」
					DATAFORM 「ほら❤　これが見たかったんだろう❤」
					DATAFORM 「いやしい%CALLNAME_K7(エル_対象)%にご褒美をあげよう❤」
					DATAFORM 「ふふっ❤　%CALLNAME_K7(エル_対象)%の%CALL_DIRTY_K7("Ｐ")%、もっとかたくなったね❤　この変態❤」
				ENDDATA
				IF エル_衣装:衣装部位_下着下 != "なし"
					PRINTFORMDL ……あらわになった%エル_衣装:衣装部位_下着下%は愛液でぐっしょりと湿り気を帯びている
				ELSE
					PRINTFORMDL ……あらわになった秘裂は愛液でぐっしょりと湿り気を帯びている
				ENDIF
			ENDIF
			;ぶっかけ
		CASE 3
			IF エル_衣装:衣装部位_靴下 != "なし"
				PRINTFORMDL %ONOMATOPE_PRESET_K7("足コキ_潤",1)%
				PRINTDATAD
					DATAFORM %ANAME(エル)%は%エル_衣装:衣装部位_靴下%にこびり付いた%SPLIT_RAND("精液/ザーメン",1)%%SPLIT_RAND("にはお構いなしに/をローション代わりに/を塗りつけるように",1)%、
					DATAFORM %ANAME(エル)%は%SPLIT_RAND("精液/ザーメン",1)%%SPLIT_RAND("でぐちゃぐちゃになった/でドロドロになった/まみれの",1)%%エル_衣装:衣装部位_靴下%で
				ENDDATA
				PRINTFORMDL %ANAME(エル_対象)%のペニスをさらに扱き上げる
				PRINTL
				PRINTDATAL LOCAL
					DATAFORM 「%SPLIT_RAND("このはしたない/いやらしい/いやしい",1)%%CALL_DIRTY_K7("Ｐ")%はまだ満足できないのかい❤　つくづく度し難いね」
					DATAFORM 「指先から太ももまで……すっかりドロドロだ❤　後でしっかり……綺麗にしてもらうよ」
					DATAFORM 「まだ出し足りないのかい❤　ほらっ❤　ほらっ❤」
					DATAFORM 「はぁ……はぁ❤　私のお気に入りの靴下が台無しじゃないか❤」
					DATAFORM 「やれやれ……キミの変態的な嗜好に付き合わさる方の身にもなってほしいものだがね……」
				ENDDATA
				IF LOCAL == 4
					PRINTFORML 「まぁそこまで気持ちよさそうに喘いでいるところを見られるなら…まんざらでもない」
					PRINTFORMDL %ANAME(エル)%は挑発的な笑みを浮かべ、足裏でぐりぐりと亀頭を責め立てる…
					PRINTL
					PRINTFORML 「ほらほら、もっと情けなく喘いでみせてよ。でないと、止めてしまうよ？」
				ENDIF
			ELSE
				PRINTDATAD
					DATAFORM %ANAME(エル)%は脚にこびり付いた%SPLIT_RAND("精液/ザーメン",1)%%SPLIT_RAND("をローション代わりに/をぬちゃぬちゃと塗りつけるように指先で",1)%
					DATAFORM %ANAME(エル)%は%SPLIT_RAND("精液/ザーメン",1)%%SPLIT_RAND("のこびりついた/でドロドロになった/まみれの",1)%%SPLIT_RAND("指先/白い太もも/足うら/両足",1)%で
				ENDDATA
				PRINTFORMDL %ANAME(エル_対象)%のペニスをさらに扱き上げる
				PRINTL
				PRINTDATAL
					DATAFORM 「この%SPLIT_RAND("はしたない/いやらしい/いやしい",1)%%CALL_DIRTY_K7("Ｐ")%はまだ満足できないのかい❤　つくづく度し難いね」
					DATAFORM 「まったく……指先から太ももまですっかりドロドロだ❤　後でしっかり……綺麗にしてもらうよ」
					DATAFORM 「まだ出し足りないのかい❤　ほらっ❤　ほらっ❤」
					DATAFORM 「はぁ……はぁ❤　私のお気に入りの靴下が台無しじゃないか❤」
				ENDDATA
			ENDIF
			汎用攻め省略 = 1
		CASEELSE
	ENDSELECT
	PRINTL
ENDIF

;髪コキ
IF IS_MPLY(エル) && SELECTCOM == 18
	{
		SELECTCASE IFRAND(
			"1",1,
			"D1,2",CHECK_K7("陥落", エル_対象),
			"D1TO2,3",CHECK_K7("陥落", エル_対象) &&  (CUM_GET_COUNT:(エル):射精部位_髪 > 0) && CHECK_K7("ふたりきり")
			)
	}
			;通常
		CASE 1
			IF IS_INITIATIVE(エル)
				PRINTDATAL
					DATAFORM 「どうかな……？　気持ちいいかい？」
					DATAFORM 「これはその……なんというか……」
					DATAFORM 「その……うん、これは気持ちいいのだろうか……？」
				ENDDATA
			ELSE
				PRINTDATAL
					DATAFORM 「髪で扱いて欲しい？　……私の髪を性処理道具か何かと勘違いしているのかい……？」
					DATAFORM 「髪で……？　いやはや……呆れる他ないよ……」
				ENDDATA
			ENDIF
			;陥落
		CASE 2
			IF IS_INITIATIVE(エル)
				PRINTDATADL
					DATAFORM %ANAME(エル)%は%SPLIT_RAND("雪のように白く長い/絹のようになめらかな白い/透き通るような白さの/艶めかしく光沢を放つ白い",1)%髪を%ANAME(エル_対象)%のペニスに絡める
					DATAFORM %ANAME(エル)%は%SPLIT_RAND("雪のように白く長い/絹のようになめらかな白い/透き通るような白さの/艶めかしく光沢を放つ白い",1)%髪を手に取り%ANAME(エル_対象)%の亀頭をくすぐる
				ENDDATA
				PRINTL
				PRINTDATAL
					DATALIST
						DATAFORM 「髪は結構自慢なんだ」
						DATAFORM 「それ%SPLIT_RAND("で扱いてあげる/を性欲処理に使ってあげる",1)%のだから……喜んでくれないと割に合わないね❤」
					ENDLIST
					DATALIST
						DATAFORM 「こうして欲しかったのだろう？」
						DATAFORM 「私の大事な髪で%SPLIT_RAND("抜いてあげる/扱いてあげる",1)%んだ❤　大いに感謝して欲しいね」
					ENDLIST
				ENDDATA
			ELSE
				PRINTDATADL
					DATAFORM %ANAME(エル_対象)%は%ANAME(エル)%の%SPLIT_RAND("白く柔らかい/絹のようになめらかな/流れるような白い",1)%髪の毛を撫で、ペニスを扱くよう要求する
					DATAFORM %ANAME(エル_対象)%は%ANAME(エル)%の%SPLIT_RAND("白く柔らかい/絹のようになめらかな/流れるような白い",1)%髪でペニスを扱いてほしいと懇願する
				ENDDATA
				PRINTL
				PRINTDATAL
					DATALIST
						DATAFORM 「……性行為にかけての%CALLNAME_K7(エル_対象)%の発想の豊かさには毎度驚かされるよ」
						DATAFORM 「私の大事な大事な髪を%SPLIT_RAND("オナホール/性処理道具/性器",1)%か何かと勘違いしているのかい？」
						DATAFORM 「つくづく度し難いよ。そんな%CALLNAME_K7(エル_対象)%に付き合ってあげるのだから……後で相応の礼はしてもらおう❤」
					ENDLIST
					DATALIST
						DATAFORM 「%CALLNAME_K7(エル_対象)%が私の大事な髪を%SPLIT_RAND("オナホール/性処理道具/性器",1)%と見なしているのは驚きだ」
						DATAFORM  「けれどそれ以上に驚きなのは、私が喜々として%CALLNAME_K7(エル_対象)%の%CALL_DIRTY_K7("Ｐ")%に髪を絡めている事実だよ」
						DATAFORM 「さて……一体どう責任をとってもらおうか……❤❤」
					ENDLIST
				ENDDATA
			ENDIF
		CASE 3
			;ぶっかけ
			PRINTFORMDL %ONOMATOPE_PRESET_K7("髪コキ_潤",0)%
			IF IS_INITIATIVE(エル)
				PRINTDATADL
					DATAFORM %ANAME(エル)%は髪にこびりついた%SPLIT_RAND("精液/ザーメン",1)%をローション代わりに、%ANAME(エル_対象)%のペニスをさらに扱き上げる
					DATAFORM %ANAME(エル)%は%SPLIT_RAND("精液/ザーメン",1)%まみれの髪を%ANAME(エル_対象)%のペニスに絡みつけ、更に激しく扱き上げる
					DATAFORM %ANAME(エル)%は髪から滴る%SPLIT_RAND("精液/ザーメン",1)%を弄ぶように指に絡め、%ANAME(エル_対象)%のペニスにさらなる快楽を与える
				ENDDATA
				PRINTL
				PRINTDATAL
					DATALIST
						DATAFORM 「どうだい？　私の%SPLIT_RAND("髪オナホ/髪/自慢の髪",1)%に%SPLIT_RAND("精液/ザーメン",1)%をぶち撒けた気分は？」
						DATAFORM
						DATAFORM 「綺麗なものを汚したいと思うのは……人間の普遍的で背徳的な欲求だ。
						DATAFORM  だから包み隠さなくていいよ……？　私の前ではね❤」
						DATAFORM 「ねぇ、もっと汚したいのだろう？　好きなだけ%CALL_DIRTY_K7("Ｐ")%を擦り付ければいいさ」
					ENDLIST
					DATALIST
						DATAFORM 「美しい絵画に思いきりペンキをぶち撒けてみたい……
						DATAFORM  そんな背徳的な感情を抱いても思いとどまれるのは、人間に理性があるからだ」
						DATAFORM
						DATAFORM 「でもこの場にそんなものが必要かな？
						DATAFORM  ここには%SPLIT_RAND("ひたすら享楽的な/背徳的な/本能のままに/性欲に身を任せて",1)%%SPLIT_RAND("セックス/性交/まぐわい/姦淫/快楽",1)%%SPLIT_RAND("を重ねる/に耽る/に身を委ねる",1)%、%SPLIT_RAND("淫らな/卑しい/淫猥な",1)%%SPLIT_RAND("獣/動物/生き物",1)%しかいないじゃないか❤❤」
						DATAFORM 「だからほら……その%SPLIT_RAND("はしたない/いやらしい/いやしい",1)%%CALL_DIRTY_K7("Ｐ")%から……存分に白いペンキをぶち撒ければいい❤」
					ENDLIST
				ENDDATA
			ELSE
				PRINTDATADL
					DATAFORM %ANAME(エル_対象)%は%SPLIT_RAND("精液/ザーメン/体液",1)%でまみれた%ANAME(エル)%の髪に一心不乱にペニスを擦り付けている
					DATAFORM %SPLIT_RAND("精液/ザーメン/体液",1)%%SPLIT_RAND("で白濁した/でドロドロになった/でまみれた/の濃厚な精臭を放つ",1)%%ANAME(エル)%の髪に、%ANAME(エル_対象)%がペニスを擦り付ける
					DATAFORM 淫猥な水音を立てて、髪を絡めて性器を刺激する%ANAME(エル)%に%ANAME(エル_対象)%はさらなる奉仕を要求する
				ENDDATA
				PRINTL
				PRINTDATAL
					DATALIST
						DATAFORM 「んんっ……。はぁ❤　まったく……%CALLNAME_K7(エル_対象)%は本当にひどい人だよ」
						DATAFORM 「私の自慢の髪をこんなにしてしまって、一体この後どうしたらいいんだい？」
						DATAFORM 「勿論、洗うのも手伝ってくれるのだろうね？　……お風呂で、一緒にね❤」
					ENDLIST
					DATALIST
						DATAFORM 「どうだい？　うら若い少女を汚して得た快楽は？」
						DATAFORM 「さぞや心地良かっただろう？　そうでないと困るよ、自慢の髪を%SPLIT_RAND("性処理道具/オナホール",1)%代わりに差し出したのだからね❤」
					ENDLIST
					DATALIST
						DATAFORM 「そんなに気持ちよさそうに擦り付けないでくれたまえ❤　自慢の髪が本当に駄目になってしまうよ」
						DATAFORM 「口でも膣でも、使える場所は他に幾らでもあるだろう❤」
					ENDLIST
				ENDDATA
			ENDIF
			汎用攻め省略 = 1
		CASEELSE
	ENDSELECT
	PRINTL
ENDIF

;───────────────────────────────────────
;●泡踊り
;───────────────────────────────────────
IF IS_MPLY(エル) && GROUPMATCH(SELECTCOM, 5)
	{
		SELECTCASE IFRAND(
			"1",1,
			"D1,2", CHECK_EMOTION(エル, "GOOD"),
			"D1,3", CHECK_EMOTION(エル, "GOOD") && IS_ESTRUS(エル),
			"D1,4", CHECK_EMOTION(エル, "GOOD") && IS_ESTRUS(エル) && HAS_PENIS(エル_対象)
			)
	}
		CASE 1
			PRINTDATAL
				DATALIST
					DATAFORM 「まったく……人の身体を洗い布代わりにするとは、なんともいいご身分じゃないか」
					DATAFORM 「んっ……。ほら、気持ちいいかい？」
				ENDLIST
			ENDDATA
		CASE 2
			PRINTDATAL
				DATALIST
					DATAFORM 「こうして、肌をぴったり寄せて……んんっ……❤」
					DATAFORM %PRINT_DESC_K7(@"%ANAME(エル)%は滑らかな柔肌を%ANAME(エル_対象)%の背中に押し当てて、そっと擦り上げる")%
					DATAFORM %PRINT_DESC_K7(@"そして耳元で囁くように告げる")%
					DATAFORM 「洗い足りないところはこざいませんか？　なんてね、ふふっ❤」
				ENDLIST
			ENDDATA
		CASE 3
			PRINTDATAL
				DATALIST
					DATAFORM %PRINT_DESC_K7(@"%ANAME(エル)%は滑慎ましやかな胸を%ANAME(エル_対象)%の背中にぴったりと密着させ上下に擦り上げている")%
					DATAFORM %PRINT_DESC_K7(@"肌と肌が擦れあう度に、ピンと張った乳首の感触が背中越しに%ANAME(エル_対象)%を苛んだ")%
					DATAFORM 「はぁ……気持ちよくして上げるつもりだったんだけれど……これは、んんっ――❤」
				ENDLIST
				DATALIST
					DATAFORM 「悪かったねぇ……挟んであげられるほど無くて……」
					DATAFORM %PRINT_DESC_K7(@"%ANAME(エル)%は滑慎ましやかな胸を%ANAME(エル_対象)%の背中にぴったりと密着させ上下に擦り上げている")%
					DATAFORM %PRINT_DESC_K7(@"肌と肌が擦れあう度に、ピンと張った乳首の感触が背中越しに%ANAME(エル_対象)%を苛んだ")%
					DATAFORM 「でも……こういうのも悪くはないだろう？　いいって言ってくれないと……止めちゃうからね？」
				ENDLIST
			ENDDATA
		CASE 4
			PRINTDATAL
				DATALIST
					DATAFORM %PRINT_DESC_K7(@"%ANAME(エル)%は泡まみれの肢体を淫猥にくねらせ、前後から%ANAME(エル_対象)%に奉仕ししてる")%
					DATAFORM %PRINT_DESC_K7(@"ぴたりと身体を密着させ、首筋に熱を帯びた吐息を吹きかけて呟く")%
					DATAFORM 「気持ちよくなってくれたかな……？　ふふっ、言わなくてもいいよ」
					DATAFORM 「だって……かちかちに固くなったココ、さっきから当たっているからね。」
					DATAFORM 「次は……どうしてあげようかな❤」
				ENDLIST
			ENDDATA
			PRINTDATAL
				DATALIST
					DATAFORM %PRINT_DESC_K7(@"%ANAME(エル)%は%ANAME(エル_対象)%の首に細く白い腕を絡め、太腿に跨り、秘部を擦り付けるように前後に身体を揺すっている")%
					DATAFORM %PRINT_DESC_K7(@"時折切なげな声を漏らして、泡まみれの肢体を悩ましげにくねらせている")%
					DATAFORM 「あんっ❤　んっ……。　ごめんね、楽しませてあげようと思ったけれど……」
					DATAFORM 「こうしていると、すごく気持ちよくて……んんっ！　悪いけれど、勝手に楽しませてもらうよ❤」
				ENDLIST
			ENDDATA
	ENDSELECT
	PRINTL
	汎用攻め省略 = 1
ENDIF

;───────────────────────────────────────
;◆汎用攻め（コマンド番号に関わらずソースを見る）
;───────────────────────────────────────
IF 	汎用攻め省略 != 1
	CALL TEASE_K7(エル_対象)
ENDIF

;───────────────────────────────────────
;◆戻る
;───────────────────────────────────────
RETURN 0

;───────────────────────────────────────
;■閨_攻め_実行後
;───────────────────────────────────────
@KOJO_K7_NIGHT_AFTER_TOP(エル_対象)
#DIM エル
#DIM エル_対象
#DIMS エル機嫌
#DIM エル_表示フラグ
#DIMS エル_最大部位称

IF !エル_対象
	エル_対象 = MASTER
ENDIF

エル = NAME_TO_CHARA("エル")
エル機嫌 '= TOSTR_EMOTION(エル)

;この辺りのDIMはSOURCE_K7系の流用
エル_表示フラグ = 0
エル_最大部位称 '= ""

;───────────────────────────────────────
;◆不機嫌
;───────────────────────────────────────
SELECTCASE エル機嫌
	CASE "恨", "怒", "憤"
		RETURN 0
	CASE "鬱", "悲", "憂"
		RETURN 0
	CASE  "狂", "恐", "怯"
		RETURN 0
ENDSELECT

;───────────────────────────────────────
;◆不機嫌でない
;───────────────────────────────────────
;●Ｐ絶頂
IF NOWEX:エル_対象:射精 > NOWEX:エル_対象:Ｃ絶頂 && NOWEX:エル_対象:射精 > NOWEX:エル_対象:Ｂ絶頂 && NOWEX:エル_対象:射精 > NOWEX:エル_対象:Ａ絶頂 && NOWEX:エル_対象:射精 > NOWEX:エル_対象:Ｍ絶頂 && NOWEX:エル_対象:射精 >NOWEX:エル_対象:Ｖ絶頂
	エル_表示フラグ = 1
	エル_最大部位称 '= CALL_DIRTY_K7("Ｐ")
	;●Ｃ絶頂
ELSEIF NOWEX:エル_対象:Ｃ絶頂 >NOWEX:エル_対象:Ｖ絶頂 && NOWEX:エル_対象:Ｃ絶頂 > NOWEX:エル_対象:Ｂ絶頂 && NOWEX:エル_対象:Ｃ絶頂 > NOWEX:エル_対象:Ａ絶頂 && NOWEX:エル_対象:Ｃ絶頂 > NOWEX:エル_対象:Ｍ絶頂 && NOWEX:エル_対象:Ｃ絶頂 > NOWEX:エル_対象:射精
	エル_表示フラグ = 1
	エル_最大部位称 '= CALL_DIRTY_K7("Ｃ")
	IF HAS_PENIS(エル_対象)
		エル_最大部位称 '= CALL_DIRTY_K7("Ｐ")
	ENDIF
	;●Ｖ絶頂
ELSEIF NOWEX:エル_対象:Ｖ絶頂 > NOWEX:エル_対象:Ｃ絶頂 &&NOWEX:エル_対象:Ｖ絶頂 > NOWEX:エル_対象:Ｂ絶頂 && NOWEX:エル_対象:Ｖ絶頂 > NOWEX:エル_対象:Ａ絶頂 && NOWEX:エル_対象:Ｖ絶頂 > NOWEX:エル_対象:Ｍ絶頂 && NOWEX:エル_対象:Ｖ絶頂 > NOWEX:エル_対象:射精
	エル_表示フラグ = 1
	エル_最大部位称 '= CALL_DIRTY_K7("Ｖ")
	;●Ａ絶頂
ELSEIF NOWEX:エル_対象:Ａ絶頂 > NOWEX:エル_対象:Ｃ絶頂 && NOWEX:エル_対象:Ａ絶頂 > NOWEX:エル_対象:Ｂ絶頂 && NOWEX:エル_対象:Ａ絶頂 >NOWEX:エル_対象:Ｖ絶頂 && NOWEX:エル_対象:Ａ絶頂 > NOWEX:エル_対象:Ｍ絶頂 && NOWEX:エル_対象:Ａ絶頂 > NOWEX:エル_対象:射精
	エル_表示フラグ = 1
	エル_最大部位称 '= CALL_DIRTY_K7("Ａ")
	;●Ｂ絶頂
ELSEIF NOWEX:エル_対象:Ｂ絶頂 > NOWEX:エル_対象:Ｃ絶頂 && NOWEX:エル_対象:Ｂ絶頂 >NOWEX:エル_対象:Ｖ絶頂 && NOWEX:エル_対象:Ｂ絶頂 > NOWEX:エル_対象:Ａ絶頂 && NOWEX:エル_対象:Ｂ絶頂 > NOWEX:エル_対象:Ｍ絶頂 && NOWEX:エル_対象:Ｂ絶頂 > NOWEX:エル_対象:射精
	エル_表示フラグ = 1
	エル_最大部位称 '= CALL_DIRTY_K7("Ｂ")
	;●Ｍ絶頂
ELSEIF NOWEX:エル_対象:Ｍ絶頂 > NOWEX:エル_対象:Ｃ絶頂 && NOWEX:エル_対象:Ｍ絶頂 > NOWEX:エル_対象:Ｂ絶頂 && NOWEX:エル_対象:Ｍ絶頂 > NOWEX:エル_対象:Ａ絶頂 && NOWEX:エル_対象:Ｍ絶頂 >NOWEX:エル_対象:Ｖ絶頂 && NOWEX:エル_対象:Ｍ絶頂 > NOWEX:エル_対象:射精
	エル_表示フラグ = 1
	エル_最大部位称 '= "口"
ENDIF

;エルに主導権があれば、エル_対象がなんらかの絶頂を得た場合にコメントする（調子に乗って煽る）
IF IS_INITIATIVE(エル) && エル_表示フラグ == 1
	;エル_対象にＰがあり、射精した場合
	IF HAS_PENIS(エル_対象) && NOWEX:エル_対象:射精 > 0
		PRINTDATAL
			DATAFORM 「%CALLNAME_K7(エル_対象)%の%エル_最大部位称%、びくっびくってしているよ❤　よほど気持ちいいのだろうね？」
			DATAFORM 「ふふっ、%エル_最大部位称%でイッちゃったみたいだね❤」
			DATAFORM 「%エル_最大部位称%びくびくって。……すごい❤」
			DATAFORM 「いやらしい%エル_最大部位称%、いっぱい気持ちよくしてあげよう❤」
			DATAFORM 「ん……すごい匂い。いやらしい、むせ返るような匂いだ。たまらないね❤」
			DATAFORM 「そうそう……、好きなだけ出せばいいよ❤　もっといっぱい出したいのだろう❤」
			DATAFORM 「我慢しないでいいよ。好きなだけ出させてあげるから❤」
			DATAFORM 「すごい……。%CALLNAME_K7(エル_対象)%の%エル_最大部位称%どくっどくって脈打っているよ」
			DATAFORM 「ふふっ、いっぱい出たね」
			DATAFORM 「%エル_最大部位称%をこうして……。どう？　気持ちいいだろう？」
			DATAFORM 「よほど溜まっていたようだね。ふふっ、すごい量だ❤」
			DATAFORM 「空っぽになるまで……搾り取ってあげよう❤」
			DATAFORM 「お望みならもっと%CALLNAME_K7(エル_対象)%の%エル_最大部位称%を弄ってあげよう。好きなだけ出したらいいさ」
			DATALIST
				DATAFORM 「ふふっ。すごく気持ちよさそうだね」
				DATAFORM 「でも%CALLNAME_K7(エル_対象)%の%エル_最大部位称%はまだ満足できないのだろう❤？　いいよ、もっと奉仕してあげよう❤」
			ENDLIST
		ENDDATA
		;エル_対象にＰがあり、射精しなかった場合
	ELSEIF HAS_PENIS(エル_対象)
		PRINTDATAL
			DATAFORM 「%エル_最大部位称%、すごく気持ちよさそうだね」
			DATAFORM 「我慢しなくていいんだよ……？　ほらほら、好きなだけ出せばいい」
		ENDDATA
		;エル_対象にＰがない場合
	ELSE
		PRINTDATAL
			DATAFORM 「%CALLNAME_K7(エル_対象)%のとろとろのいやらしい液、いっぱい溢れているね❤」
			DATAFORM 「もっと%SPLIT_RAND("はしたない/かわいい/いやらしい",1)%ところ、見せてよ❤」
			DATAFORM 「ほら、我慢しなくていいんだよ？　%エル_最大部位称%で好きなだけイったらいい」
			DATAFORM 「もっとその%SPLIT_RAND("はしたない/かわいい/いやらしい",1)%%エル_最大部位称%を気持ちよくしてあげよう❤」
			DATAFORM 「とろとろでぐちゃぐちゃの%エル_最大部位称%、とっても%SPLIT_RAND("かわいい/いやらしい",1)%ね……❤」
		ENDDATA
	ENDIF
	エル_表示フラグ = 0
ELSE
	CALL KOJO_K7_MESSAGE_AFTER(エル_対象)
ENDIF

;───────────────────────────────────────
;◆戻る
;───────────────────────────────────────
RETURN 0


code:
;───────────────────────────────────────
;●閨_攻め_実行前_ソース参照　CALL TEASE_K7(エル_対象)
;───────────────────────────────────────
@TEASE_K7(エル_対象)
#DIM エル
#DIM エル_対象
#DIM エル_今回部位値
#DIM エル_最大部位値
#DIM エル_表示フラグ
#DIMS エル_今回部位
#DIMS エル_最大部位
#DIMS エル_今回部位称
#DIMS エル_最大部位称

IF !エル_対象
	エル_対象 = MASTER
ENDIF

;初期化
エル = NAME_TO_CHARA("エル")
エル_今回部位値 = 0
エル_最大部位値 = 0
エル_表示フラグ = 0
エル_今回部位 = ""
エル_最大部位 = ""
エル_今回部位称 = ""
エル_最大部位称 = ""

;───────────────────────────────────────
;○エル_対象の快楽状態をチェック
;───────────────────────────────────────

;▼PALAM
;　PALAMは絶頂までの蓄積＆絶頂により落ち着く（LIMIT9999）
;　最低10ないと刺激とみなさないPALAMには快Ｐがない
IF PALAM:エル_対象:快Ｖ >= 10 && PALAM:エル_対象:快Ｖ >= PALAM:エル_対象:快Ｃ && PALAM:エル_対象:快Ｖ >= PALAM:エル_対象:快Ａ && PALAM:エル_対象:快Ｖ >= PALAM:エル_対象:快Ｂ
	エル_最大部位値 = PALAM:エル_対象:快Ｖ
	エル_最大部位 '= "Ｖ"
	エル_最大部位称 '= CALL_DIRTY_K7("Ｖ")
ELSEIF PALAM:エル_対象:快Ａ >= 10 && PALAM:エル_対象:快Ａ >= PALAM:エル_対象:快Ｃ && PALAM:エル_対象:快Ａ >= PALAM:エル_対象:快Ｖ && PALAM:エル_対象:快Ａ >= PALAM:エル_対象:快Ｂ
	エル_最大部位値 = PALAM:エル_対象:快Ａ
	エル_最大部位 '= "Ａ"
	エル_最大部位称 '= CALL_DIRTY_K7("Ａ")
ELSEIF PALAM:エル_対象:快Ｃ >= 10 && PALAM:エル_対象:快Ｃ >= PALAM:エル_対象:快Ｖ && PALAM:エル_対象:快Ｃ >= PALAM:エル_対象:快Ａ && PALAM:エル_対象:快Ｃ >= PALAM:エル_対象:快Ｂ
	IF HAS_PENIS(エル_対象)
		エル_最大部位値 = PALAM:エル_対象:快Ｃ
		エル_最大部位 '= "Ｐ"
		エル_最大部位称 '= CALL_DIRTY_K7("Ｐ")
	ELSE
		エル_最大部位値 = PALAM:エル_対象:快Ｃ
		エル_最大部位 '= "Ｃ"
		エル_最大部位称 '= CALL_DIRTY_K7("Ｃ")
	ENDIF
ELSEIF PALAM:エル_対象:快Ｂ >= 10 && PALAM:エル_対象:快Ｂ >= PALAM:エル_対象:快Ｃ && PALAM:エル_対象:快Ｂ >= PALAM:エル_対象:快Ｖ && PALAM:エル_対象:快Ｂ >= PALAM:エル_対象:快Ａ
	エル_最大部位値 = PALAM:エル_対象:快Ｂ
	エル_最大部位 '= "Ｂ"
	エル_最大部位称 '= CALL_DIRTY_K7("Ｂ")
ELSE
	エル_最大部位値 = 0
	エル_最大部位 '= ""
	エル_最大部位称 '= ""
ENDIF

;▼SOURCE
;　前文の場合SOURCE・後文ならCUP・値は最大部位値との比較用なのでPALAMで保存
;　最低1ないと刺激とみなさないPALAMには快Ｐがない
IF SOURCE:エル_対象:快Ｖ >= 1 && SOURCE:エル_対象:快Ｖ >= SOURCE:エル_対象:快Ｐ && SOURCE:エル_対象:快Ｖ >= SOURCE:エル_対象:快Ｃ && SOURCE:エル_対象:快Ｖ >= SOURCE:エル_対象:快Ａ && SOURCE:エル_対象:快Ｖ >= SOURCE:エル_対象:快Ｂ
	エル_今回部位値 = PALAM:エル_対象:快Ｖ
	エル_今回部位 '= "Ｖ"
	エル_今回部位称 '= CALL_DIRTY_K7("Ｖ")
ELSEIF SOURCE:エル_対象:快Ａ >= 1 && SOURCE:エル_対象:快Ａ >= SOURCE:エル_対象:快Ｐ && SOURCE:エル_対象:快Ａ >= SOURCE:エル_対象:快Ｃ && SOURCE:エル_対象:快Ａ >= SOURCE:エル_対象:快Ｖ && SOURCE:エル_対象:快Ａ >= SOURCE:エル_対象:快Ｂ
	エル_今回部位値 = PALAM:エル_対象:快Ａ
	エル_今回部位 '= "Ａ"
	エル_今回部位称 '= CALL_DIRTY_K7("Ａ")
ELSEIF SOURCE:エル_対象:快Ｐ >= 1 && SOURCE:エル_対象:快Ｐ >= SOURCE:エル_対象:快Ｖ && SOURCE:エル_対象:快Ｐ >= SOURCE:エル_対象:快Ａ && SOURCE:エル_対象:快Ｐ >= SOURCE:エル_対象:快Ｃ && SOURCE:エル_対象:快Ｐ >= SOURCE:エル_対象:快Ｂ
	エル_今回部位値 = PALAM:エル_対象:快Ｃ
	エル_今回部位 '= "Ｐ"
	エル_今回部位称 '= CALL_DIRTY_K7("Ｐ")
ELSEIF SOURCE:エル_対象:快Ｃ >= 1 && SOURCE:エル_対象:快Ｃ >= SOURCE:エル_対象:快Ｐ && SOURCE:エル_対象:快Ｃ >= SOURCE:エル_対象:快Ｖ && SOURCE:エル_対象:快Ｃ >= SOURCE:エル_対象:快Ａ && SOURCE:エル_対象:快Ｃ >= SOURCE:エル_対象:快Ｂ
	IF HAS_PENIS(エル_対象)
		エル_今回部位値 = PALAM:エル_対象:快Ｃ
		エル_今回部位 '= "Ｐ"
		エル_今回部位称 '= CALL_DIRTY_K7("Ｐ")
		IF  エル_最大部位 == "Ｃ"
			エル_最大部位称 '= ""
		ENDIF
	ELSE
		エル_今回部位値 = PALAM:エル_対象:快Ｃ
		エル_今回部位 '= "Ｃ"
		エル_今回部位称 '= CALL_DIRTY_K7("Ｃ")
		IF  エル_最大部位 == "Ｖ"
			エル_最大部位称 '= ""
		ENDIF
	ENDIF
ELSEIF SOURCE:エル_対象:快Ｂ >= 1 && SOURCE:エル_対象:快Ｂ >= SOURCE:エル_対象:快Ｐ && SOURCE:エル_対象:快Ｂ >= SOURCE:エル_対象:快Ｃ && SOURCE:エル_対象:快Ｂ >= SOURCE:エル_対象:快Ｖ && SOURCE:エル_対象:快Ｂ >= SOURCE:エル_対象:快Ａ
	エル_今回部位値 = PALAM:エル_対象:快Ｂ
	エル_今回部位 '= "Ｂ"
	エル_今回部位称 '= CALL_DIRTY_K7("Ｂ")
ELSE
	エル_今回部位値 = 0
	エル_今回部位 '= ""
	エル_今回部位称 '= ""
ENDIF

;───────────────────────────────────────
;○台詞１_失神・疲労・割込
;───────────────────────────────────────
;▼失神
IF TCVAR:エル_対象:52
	PRINTFORM 「
	PRINTDATA
		DATAFORM おや、%CALLNAME_K7(エル_対象)%、どうしたのかい？
		DATAFORM ……眠ってしまったのかな
		DATAFORM おやおや、果ててしまったのかな
	ENDDATA
	PRINTFORML %BREAK_K7("末", エル_対象)%」
	;エルが割り込んだ
ELSEIF TFLAG:割込コマンド実行 && TFLAG:割込キャラ == エル
	PRINTDATAL
		DATAFORM 「ねぇ……%CALLNAME:(TFLAG:割込まれたキャラ)%ばっかり、ずるいよ……」
		DATAFORM 「ふふっ、%CALLNAME:(TFLAG:割込まれたキャラ)%……いっぱい可愛がってもらってるね」
	ENDDATA
	PRINTDATAL
		DATAFORM 「私のことも……構ってほしいな❤」
		DATAFORM 「私の相手も……忘れないでほしいな❤」
		DATAFORM 「……こっちも、見てよ……❤」
	ENDDATA
	RETURN 0
	;気力が1/3以下
ELSEIF BASE:エル_対象:気力 <= (MAXBASE:エル_対象:気力 / 3)
	PRINTFORM 「
	PRINTFORM %SPLIT_R("たくさん：とっても：いっぱい：すごく")%
	PRINTFORM %SPLIT_R("気持ちよくなってくた：感じてくれた：よろこんでくれた")%
	PRINTFORM %SPLIT_R("ようだね：みたいだね")%
	PRINTFORM %BREAK_K7("中", エル_対象)%
	IF IS_MALE(エル_対象)
		PRINTDATA
			DATAFORM 苦しそうにぜいぜいして
			DATAFORM 汗でからだをぐっしょり濡らして
			DATAFORM 体の筋を浮かせて
			DATAFORM ぐったりして
			DATAFORM ぶるぶる震わせて
			DATAFORM かすれた声で
			DATAFORM 汗だくで
			DATAFORM 顔を真っ赤にして
		ENDDATA
	ELSE
		PRINTDATA
			DATAFORM 苦しそうにはぁはぁして
			DATAFORM 胸を揺らして
			DATAFORM 体の筋を浮かせて
			DATAFORM ぐったりして
			DATAFORM ぷるぷるしちゃって
			DATAFORM ぶるぶる震わせて
			DATAFORM 汗でからだをぐっしょり濡らして
			DATAFORM 顔を真っ赤にして
		ENDDATA
	ENDIF
	PRINTDATA
		DATAFORM ……かわいい
		DATAFORM 。ふふっ、いい子だ
		DATAFORM ……いい顔だね
	ENDDATA
	PRINTFORM %BREAK_K7("末", エル_対象)%
	PRINTFORML 」
ENDIF

;▼疲労
IF TCVAR:エル_対象:51 || BASE:エル_対象:体力 <= (MAXBASE:エル_対象:体力 / 3)
	PRINTFORM 「
	PRINTDATA
		DATAFORM お疲れかな？　無理しなくていいよ
		DATAFORM 疲れちゃったかな？
	ENDDATA
	PRINTFORM %BREAK_K7("末", エル_対象)%
	PRINTFORML 」
ENDIF

;───────────────────────────────────────
;○台詞２_ソースに関して
;　覚書：解消は会話のみ・感応は猥談本屋のみ
;───────────────────────────────────────
エル_表示フラグ = 0
IF SOURCE:エル_対象:苦痛 >= 10
	エル_表示フラグ += 1
	IF エル_表示フラグ == 1
		PRINTFORM 「
	ELSEIF エル_表示フラグ > 3
		PRINTFORML %BREAK_K7("末", エル_対象)%」
		PRINTFORM 「
	ELSE
		PRINTFORM %BREAK_K7("中", エル_対象)%
	ENDIF
	PRINTDATA
		DATAFORM 痛いかな？　少し我慢してよ
		DATAFORM ダメだったら言ってくれよ……？
	ENDDATA
ENDIF

;とりあえずエル_対象が主人公で陥落時のみ
IF CHECK_K7("陥落", エル_対象)
	IF SOURCE:エル_対象:愛情 >= 10 || SOURCE:エル_対象:歓喜 >= 10
		エル_表示フラグ += 1
		IF エル_表示フラグ == 1
			PRINTFORM 「
		ELSEIF エル_表示フラグ > 3
			PRINTFORML %BREAK_K7("末", エル_対象)%」
			PRINTFORM 「
		ELSE
			PRINTFORM %BREAK_K7("中", エル_対象)%
		ENDIF
		PRINTDATA
			DATAFORM %CALLNAME_K7(エル_対象)%のこと、好き
			DATAFORM 大好き
			DATAFORM 好き
		ENDDATA
		PRINTDATA
			DATAFORM だよ
			DATAFORM だ❤　ん、ちゅ
			DATAFORM ❤　んん、ん
		ENDDATA
		PRINTFORM %BREAK_K7("中", エル_対象)%
		PRINTDATA
			DATAFORM もっと私の方を見てよ
			DATAFORM %CALLNAME_K7(エル_対象)%、どうかな
			DATAFORM もっと%CALLNAME_K7(エル_対象)%の声を聴かせてよ
			DATAFORM もっと%CALLNAME_K7(エル_対象)%に触れさせてよ
			DATAFORM ずっと一緒だよ、離さないでね
			DATAFORM 私の知らないこと、教えてよ
		ENDDATA
	ENDIF
ENDIF

IF SOURCE:エル_対象:恐怖 >= 10 || SOURCE:エル_対象:不安 >= 10
	エル_表示フラグ += 1
	IF エル_表示フラグ == 1
		PRINTFORM 「
	ELSEIF エル_表示フラグ > 3
		PRINTFORML %BREAK_K7("末", エル_対象)%」
		PRINTFORM 「
	ELSE
		PRINTFORM %BREAK_K7("中", エル_対象)%
	ENDIF
	PRINTDATA
		DATAFORM 大丈夫。怖がらなくていい
		DATAFORM 安心してよ
	ENDDATA
ENDIF

IF SOURCE:エル_対象:反感 >= 10
	エル_表示フラグ += 1
	IF エル_表示フラグ == 1
		PRINTFORM 「
	ELSEIF エル_表示フラグ > 3
		PRINTFORML %BREAK_K7("末", エル_対象)%」
		PRINTFORM 「
	ELSE
		PRINTFORM %BREAK_K7("中", エル_対象)%
	ENDIF
	PRINTDATA
		DATAFORM 怒らせてしまったかな？　……すまない
	ENDDATA
ENDIF

;頻度が高い気がする・状況が多そうでバリエーション不足
IF CHECK_K7("陥落", エル_対象)
	IF SOURCE:エル_対象:露出 >= 10 || SOURCE:エル_対象:逸脱 >= 10
		エル_表示フラグ += 1
		IF エル_表示フラグ == 1
			PRINTFORM 「
		ELSEIF エル_表示フラグ > 3
			PRINTFORML %BREAK_K7("末", エル_対象)%」
			PRINTFORM 「
		ELSE
			PRINTFORM %BREAK_K7("中", エル_対象)%
		ENDIF
		PRINTDATA
			DATAFORM 恥ずかしがらないで……ちゃんと見せてよ
			DATAFORM もっと……%CALLNAME_K7(エル_対象)%のかわいい姿を見せてよ
			DATAFORM えっち……だね
			DATAFORM ふふっ……すごく、かわいいよ
			DATAFORM ふふっ……いまの%CALLNAME_K7(エル_対象)%、すごくいい顔してるよ
			DATAFORM %CALLNAME_K7(エル_対象)%の恥ずかしいところ、もっと知りたいな
		ENDDATA
	ENDIF
ENDIF

;エル_対象の奉仕
IF SOURCE:エル_対象:不潔 >= 10
	エル_表示フラグ += 1
	IF エル_表示フラグ == 1
		PRINTFORM 「
	ELSEIF エル_表示フラグ > 3
		PRINTFORML %BREAK_K7("末", エル_対象)%」
		PRINTFORM 「
	ELSE
		PRINTFORM %BREAK_K7("中", エル_対象)%
	ENDIF
	PRINTDATA
		DATAFORM 大丈夫？　んっ、あぁ
		DATAFORM その……%CALLNAME_K7(エル_対象)%……不潔だよ
		DATAFORM いいよ……んんっ
	ENDDATA
ENDIF

IF エル_表示フラグ
	PRINTFORML %BREAK_K7("末", エル_対象)%」
ENDIF

;───────────────────────────────────────
;○台詞３_エル_対象の感じ具合に関して
;　攻め側は部位を発言することが多いので低快楽度でも分岐させる
;───────────────────────────────────────
;▽今回部位称か最大部位称がとれていないので部位表現をぼかす
IF 	エル_今回部位称 == "" || エル_最大部位称 == ""
	PRINTFORM 「
	;▼～1500
	IF エル_今回部位値 < 1500
		PRINTDATA
			DATAFORM やさしくしてあげよう
			DATAFORM 気持ちいいかな
			DATAFORM これでいいのかな
			DATAFORM うまく……できているかな
		ENDDATA

		;▼1500～5000
	ELSEIF エル_今回部位値 >= 1500 && エル_今回部位値 < 5000
		PRINTDATA
			DATAFORM だんだん気持ちよくなってきたみたいだね
			DATAFORM ふふっ、気持ちよさそうだね
			DATAFORM %CALLNAME_K7(エル_対象)%、気持ちよさそうだね
		ENDDATA

		;▼5000～9000
	ELSEIF エル_今回部位値 >= 5000 && エル_今回部位値 < 9000
		PRINTDATA
			DATAFORM その調子だよ
			DATAFORM いい表情だ
			DATAFORM ふふっ、気持ちよさそうだね
		ENDDATA

		;▼9000～
	ELSE
		PRINTDATA
			DATAFORM 好きな時にイっていいんだよ
			DATAFORM 限界かな？　顔がもうトロトロだよ
			DATAFORM 我慢しないで。いっぱい気持ちよくなってよ
			DATAFORM 気持ちよくなれたね。かわいい子だ
		ENDDATA
	ENDIF
	PRINTFORML %BREAK_K7("末", エル_対象)%」

	;▽今回部位称と最大部位称がとれている
ELSE
	PRINTFORM 「
	;▼～1500
	IF エル_今回部位値 < 1500
		PRINTDATA
			DATAFORM %エル_今回部位称%、気持ちいいかい
			DATAFORM %エル_今回部位称%、これでいいでいいのかな
			DATAFORM うまく……できているかな
		ENDDATA

		;▼1500～5000
	ELSEIF エル_今回部位値 >= 1500 && エル_今回部位値 < 5000
		IF エル_最大部位 == エル_今回部位
			PRINTDATA
				DATAFORM だんだん%エル_今回部位称%で気持ちよくなってきたみたいだね
				DATAFORM %エル_今回部位称%で気持ちよくなってよ
				DATAFORM ふふっ、%エル_今回部位称%が嬉しそうにしているよ
			ENDDATA
		ELSE
			PRINTDATA
				DATAFORM %エル_最大部位称%ももっと気持ちよくして欲しい？　……もう少し、我慢してよ
				DATAFORM %エル_最大部位称%はまだお預けだよ。ふふっ
				DATAFORM %エル_今回部位称%で……気持ちよくなってよ
			ENDDATA
		ENDIF
		;▼5000～9000
	ELSEIF エル_今回部位値 >= 5000 && エル_今回部位値 < 9000
		IF エル_最大部位 == エル_今回部位
			PRINTDATA
				DATAFORM %エル_今回部位称%、とても気持ちよさそうだね
				DATAFORM %エル_今回部位称%でいっぱい感じてくれたかな
				DATAFORM %エル_今回部位称%ふるふるさせて……かわいい❤
			ENDDATA
		ELSE
			PRINTDATA
				DATAFORM %エル_最大部位称%でも……いきたいのかい？　仕方がないなぁ
				DATAFORM %エル_今回部位称%ふるふるさせて、かわいい
				DATAFORM %エル_最大部位称%も……いっぱい感じてくれているみたいだね
			ENDDATA
		ENDIF
		;▼9000～
	ELSE
		IF エル_最大部位 == エル_今回部位
			PRINTDATA
				DATAFORM いいよ❤　%エル_今回部位称%でイってよ
				DATAFORM %エル_今回部位称%で気持ちよくなってよ
				DATAFORM 気持ちいいかい？　%エル_今回部位称%❤
			ENDDATA
		ELSE
			PRINTDATA
				DATAFORM からだをこんなに振るわせて……。本当にかわいいね
				DATAFORM %エル_最大部位称%も、とってもいやらしく震えているよ❤
				DATAFORM 好きなだけ……気持ちよくなってよ
				DATAFORM 我慢しなくていいんだよ❤　%エル_今回部位称%でイったらいい❤
			ENDDATA
		ENDIF
	ENDIF
	PRINTFORML %BREAK_K7("末", エル_対象)%」
ENDIF

;───────────────────────────────────────
;○台詞４_同一コマンド＆陥落済み＆エル_対象が主人公＆エル_対象が絶頂寸前の場合
;　同一コマンド＆陥落済み＆エル_対象が主人公＆エル_対象が絶頂寸前の場合
;　たまに蛇足的に煽ったりねだったり移入してハイになってる感じを出す
;───────────────────────────────────────
IF SELECTCOM == PREVCOM && CHECK_K7("陥落", エル_対象) && RAND:10 == 0
	IF MAX(PALAM:エル_対象:快Ｃ, PALAM:エル_対象:快Ｖ, PALAM:エル_対象:快Ａ, PALAM:エル_対象:快Ｂ) >= 9000
		;純攻め
		IF IS_INITIATIVE(エル)
			PRINTFORM 「
			IF HAS_PENIS(エル_対象)
				PRINTDATA
					DATAFORM 全部出していいんだよ❤　受け止めてあげるから
					DATAFORM %SPLIT_R("ずっと：いつまででも：何度でも")%イってよ
					DATAFORM 空っぽになるまで出してよ
					DATAFORM ほら、いっぱい注いでください
					DATAFORM %SPLIT_R("いっぱい：真っ白になるまで")%感じてさせてよ
					DATAFORM %CALLNAME_K7(エル_対象)%の%SPLIT_R("精液：ザーメン")%を私に注いでよ
				ENDDATA
			ELSE
				PRINTDATA
					DATAFORM もっと感じさせてあげよう
					DATAFORM %SPLIT_R("ずっと：いつまででも：何度でも")%イってくださいね
					DATAFORM そうやってびくびくて震わせているところ、すごくかわいいよ
					DATAFORM もっともっと気持ちよくさせてあげよう
					DATAFORM %SPLIT_R("いっぱい：真っ白になるまで")%感じて……ね
				ENDDATA
			ENDIF
			PRINTFORML %BREAK_K7("末", エル_対象)%」
			;奉仕攻め
		ELSE
			PRINTFORM 「
			IF HAS_PENIS(エル_対象)
				PRINTDATA
					DATAFORM %CALLNAME_K7(エル_対象)%が気持ちよくなるところがみたいな
					DATAFORM %CALLNAME_K7(エル_対象)%、気持ちいいかい？
					DATAFORM 好きなだけ出していいですよ
					DATAFORM 我慢しないで、気持ちよくなってくださいね
					DATAFORM 上手くできているかな？
					DATAFORM いっぱい出していいんだよ
				ENDDATA
			ELSE
				PRINTDATA
					DATAFORM %CALLNAME_K7(エル_対象)%が気持ちよくなるところがみたいな
					DATAFORM %CALLNAME_K7(エル_対象)%、気持ちいいですか？
					DATAFORM 好きなだけイっていいですよ
					DATAFORM 我慢しないで、気持ちよくなってくださいね
					DATAFORM 上手くできているかな？
				ENDDATA
			ENDIF
			PRINTFORML %BREAK_K7("末", エル_対象)%」
		ENDIF
	ENDIF
ENDIF

;───────────────────────────────────────
;◆戻る
;───────────────────────────────────────
RETURN 0


code:
;───────────────────────────────────────
;●コマンド実行前日常300～
;───────────────────────────────────────
@KOJO_K7_NOON(エル_対象,前後)
#DIM エル
#DIM エル_対象
#DIMS 前後
#DIMS エル口上実対カテゴリ

IF !エル_対象
	エル_対象 = MASTER
ENDIF

;リセット
エル = NAME_TO_CHARA("エル")
エル口上実対カテゴリ '= ""

;───────────────────────────────────────
;●詳細カテゴリ決定
;───────────────────────────────────────
IF IS_MPLY(エル)
	エル口上実対カテゴリ '= "実行"
ELSE
	エル口上実対カテゴリ '= "エル_対象"
ENDIF

;───────────────────────────────────────
;●詳細カテゴリによる分岐
;───────────────────────────────────────
IF エル口上実対カテゴリ == "実行"
	;前文か後文か
	IF 前後 == "前"
		CALL KOJO_K7_NOON_BEFORE_PLAYER(エル_対象)
	ELSEIF 前後 == "後"
		CALL KOJO_K7_NOON_AFTER_PLAYER(エル_対象)
	ENDIF
ELSEIF エル口上実対カテゴリ == "エル_対象"
	;前文か後文か
	IF 前後 == "前"
		CALL KOJO_K7_NOON_BEFORE_TARGET(エル_対象)
	ELSEIF 前後 == "後"
		CALL KOJO_K7_NOON_AFTER_TARGET(エル_対象)
	ENDIF
ENDIF

RESETCOLOR
RETURN RESULT


code:
;───────────────────────────────────────
;■日常_実行_実行前
;───────────────────────────────────────
@KOJO_K7_NOON_BEFORE_PLAYER(エル_対象)
#DIM エル
#DIM エル_対象
#DIMS エル機嫌

IF !エル_対象
	エル_対象 = MASTER
ENDIF

エル = NAME_TO_CHARA("エル")
エル機嫌 '= TOSTR_EMOTION(エル)

;───────────────────────────────────────
;●機嫌が悪ければ通常のコマンド口上は喋らない
;───────────────────────────────────────
SELECTCASE エル機嫌
	CASE "恨", "怒", "憤"
		IF RAND:3 < 1
			PRINTFORMDL %ANAME(エル)%は眉をひそめて様子を伺っている
		ENDIF
		IF PALAM:エル:怒主 <= PALAM:エル:怒外
			PRINTDATAL
				DATAFORM 「……本を読んでいたいのだが……」
				DATAFORM 「今は読書の邪魔をしないでくれないかな」
				DATAFORM 「……」
			ENDDATA
		ELSE
			PRINTDATAL
				DATAFORM 「読書の邪魔をしないでくれないかな」
				DATAFORM 「……」
				DATAFORM 「たった今機嫌が悪くなったから、一人にしてくれないかな」
			ENDDATA
		ENDIF
		RETURN 0

	CASE "鬱", "悲", "憂"
		IF RAND:3 < 1
			PRINTFORMDL %ANAME(エル)%は悲しげな表情で目を背けた
		ENDIF
		IF PALAM:エル:哀主 <= PALAM:エル:哀外
			PRINTDATAL
				DATAFORM 「……」
				DATAFORM 「少し、一人にしてくれないかな……」
			ENDDATA
		ELSE
			PRINTDATAL
				DATAFORM 「…………」
			ENDDATA
		ENDIF
		RETURN 0

	CASE  "狂", "恐", "怯"
		IF RAND:3 < 1
			PRINTFORMDL %ANAME(エル)%は恐怖のあまり震えている
		ENDIF
		IF PALAM:エル:怖主 <= PALAM:エル:怖外
			PRINTDATAL
				DATAFORM 「お願いだ……ひどいこと……しないで」
			ENDDATA
		ELSE
			PRINTDATAL
				DATAFORM 「…………」
				DATAFORM 「ひっ……」
			ENDDATA
		ENDIF
		RETURN 0
	CASEELSE
ENDSELECT

;───────────────────────────────────────
;●スキンシップ・背中を洗う
;───────────────────────────────────────
IF GROUPMATCH(SELECTCOM, 320, 358)
	{
		SELECTCASE IFRAND(
			"1",1,
			"D1,2", エル機嫌 == "良" || エル機嫌 == "悦" || エル機嫌 == "幸",
			"D1,3", (エル機嫌 == "良" || エル機嫌 == "悦" || エル機嫌 == "幸") && TFLAG:17 == 1,
			"D1TO9,10", SELECTCOM == 320 && CHECK_K7("陥落", エル_対象) && PALAM:エル:欲情 >= 9000 && PALAM:エル_対象:欲情 >= 6000 && !IS_EQUIP(エル, 332) && HAS_PENIS(エル_対象)
			)
	}
		CASE 1
			PRINTDATAL
				DATAFORM 「お疲れさま。肩をほぐしてあげよう」
				DATAFORM 「ん……？　こうでいいのかな」
				DATAFORM 「マッサージしてあげよう。多少は楽になるかもしれないよ」
			ENDDATA
		CASE 2
			;エルに主導権なし
			IF !IS_INITIATIVE(エル)
				PRINTDATAL
					DATAFORM 「こう……かな？　ふふっ♪」
					DATAFORM 「はいはい。こうでいいかい？」
					DATAFORM 「こんな感じで……どうかな？」
				ENDDATA
				;エルに主導権あり
			ELSE
				PRINTDATAL
					DATAFORM 「くすぐったい？　ちょっと我慢してよ」
					DATAFORM 「こんな感じで……どうかな？」
					DATAFORM 「ほら、じっとしててよ。そうそう」
					DATAFORM 「たっぷりほぐしてあげよう。ほら、力を抜いて」
				ENDDATA
			ENDIF
		CASE 3
			IF !IS_INITIATIVE(エル)
				PRINTDATAL
					DATAFORM 「%CALLNAME_K7(エル_対象)%の身体は……温かいね」
					DATAFORM 「%CALLNAME_K7(エル_対象)%も大概甘えんぼうだなぁ。　よしよし❤」
					DATAFORM 「ねぇ……、 息が荒いよ？　ん、私も？　……誰のせいだと思ってるんだい？」
				ENDDATA
			ELSE
				PRINTDATAL
					DATAFORM 「ほら、力抜いてよ❤」
					DATAFORM 「ふふっ、目がとろんとしてるよ？　かわいいなぁもう」
					DATAFORM 「%CALLNAME_K7(エル_対象)%の身体は……温かいね」
					DATAFORM 「ふふっ❤　たっぷり甘やかしてあげよう」
					DATAFORM 「ねぇ、今いやらしいこと考えただろう？　ふふっ、ごまかしてもバレバレなんだから……ね？」
				ENDDATA
			ENDIF
		CASE 10
			PRINTFORMDW %ANAME(エル)%は%ANAME(MASTER)%の身体を弄りながら情欲を帯びた笑みを浮かべている……
			PRINTFORML 「ふふっ……❤　ねぇ……ここ、ガチガチだよ？」
			PRINTFORMW 「気持ち良くしてあげよう❤　もう我慢しなくていいようにね」
			PRINTL
			PRINTFORMDL %ANAME(エル)%は%ANAME(MASTER)%の下腹部にそっと顔をうずめ、
			PRINTFORMDW 細く白い指で、固く主張する%ANAME(MASTER)%の肉棒を扱きはじめた……
			CALL SET_EQUIP(10, 1)
			RETURN 1
		CASEELSE
	ENDSELECT

	RETURN 0
ENDIF

;───────────────────────────────────────
;●頭を撫でる
;───────────────────────────────────────
IF GROUPMATCH(SELECTCOM, 321)
	;エルに主導権なし
	IF !IS_INITIATIVE(エル)
		PRINTDATAL
			DATAFORM 「仕方がないなぁ……」
			DATAFORM 「ふふっ♪　よしよし」
		ENDDATA
		;エルに主導権あり
	ELSE
		PRINTDATAL
			DATAFORM 「頭を撫でて欲しい？　頭でもぶつけたのかい？」
			DATAFORM 「……まぁいいよ、おいで」
		ENDDATA
		PRINTL
		PRINTDATAL
			DATAFORM 「%SPLIT_RAND("よしよし♪/いいこ、いいこ",1)%」
			DATAFORM 「ふふっ、私がこうしてあげるのも……たまには悪くないね」
		ENDDATA
	ENDIF
	RETURN 0
ENDIF

;───────────────────────────────────────
;●髪を梳く・櫛で梳かす
;───────────────────────────────────────
IF GROUPMATCH(SELECTCOM, 322, 323)
	RETURN 0
ENDIF

;───────────────────────────────────────
;●見つめる・甘い言葉
;───────────────────────────────────────
IF GROUPMATCH(SELECTCOM, 324, 325)
	PRINTDATAL
		DATAFORM 「頑張っている%CALLNAME_K7(エル_対象)%の姿は嫌いじゃないよ」
		DATAFORM 「…………。ふふっ」
	ENDDATA
	RETURN 0
ENDIF

;───────────────────────────────────────
;●抱きしめる
;───────────────────────────────────────
IF GROUPMATCH(SELECTCOM, 327)
	{
		SELECTCASE IFRAND(
			"1",1,
			"D1,2", エル機嫌 == "良" || エル機嫌 == "悦" || エル機嫌 == "幸",
			"D1,3", (エル機嫌 == "良" || エル機嫌 == "悦" || エル機嫌 == "幸") && CHECK_K7("陥落", エル_対象),
			"D1TO9,10", CHECK_K7("陥落", エル_対象) && PALAM:エル:欲情 >= 9000 && PALAM:エル_対象:欲情 >= 6000 && HAS_PENIS(エル_対象)  && !RAND:3,
			"D1TO10,11", TFLAG:リアクションコマンド実行 && IS_V_HOLD(エル)
			)
	}
		CASE 1
			PRINTDATAL
				DATAFORM 「ふふっ、ちょっと甘えさせてよ」
				DATAFORM 「私だって人肌が恋しい時くらいあるよ」
				DATAFORM 「ほら、こう……ぎゅっ、て」
			ENDDATA
		CASE 2
			;エルに主導権なし
			IF !IS_INITIATIVE(エル)
				PRINTDATAL
					DATAFORM 「ハグして欲しい……？　甘えん坊だなぁ……。　まぁ、いいよ」
					DATAFORM 「はいはい。こうでいいかい？」
					DATAFORM 「これでいいのかい……？　どうかな？」
				ENDDATA
				;エルに主導権あり
			ELSE
				PRINTDATAL
					DATAFORM 「ふふっ、ちょっと甘えさせてよ」
					DATAFORM 「私だって人肌が恋しい時くらいあるよ」
					DATAFORM 「ほら、こう……ぎゅっ、て」
				ENDDATA
			ENDIF
		CASE 3
			IF !IS_INITIATIVE(エル)
				PRINTDATAL
					DATAFORM 「%CALLNAME_K7(エル_対象)%の身体は……温かいね」
					DATAFORM 「%CALLNAME_K7(エル_対象)%も大概甘えんぼうだなぁ。　よしよし❤」
					DATAFORM 「んっ、 ちょっと、痛いよ……。　でもまぁ、少し痛いくらいの方が……いいかな❤」
				ENDDATA
			ELSE
				PRINTDATAL
					DATAFORM 「%CALLNAME_K7(エル_対象)%の胸は温かいなぁ……」
					DATAFORM 「存分に甘えさせてもらうよ❤　ダメとは……言わないだろう？」
					DATAFORM 「%CALLNAME_K7(エル_対象)%は……温かいね」
					DATAFORM 「心臓、凄くドキドキ鳴ってるね。　ふふっ、この距離じゃぁ、何も隠せないよ？」
					DATAFORM 「ねぇ、今いやらしいこと考えただろう？　ふふっ、ごまかしてもバレバレなんだから……ね？」
				ENDDATA
			ENDIF
		CASE 10
			PRINTDATAL
				DATALIST
					DATAFORM 「心臓、凄くドキドキ鳴ってるね。　ふふっ、この距離じゃぁ、何も隠せないよ？」
					DATAFORM 「こんなに固くしたモノを私に押し当てて、このあと一体どうするつもりなのかな……❤」
				ENDLIST
			ENDDATA
		CASE 11
			PRINTDATAL
				DATAFORM 「胸、凄くドキドキ鳴ってるね❤　どう？　気持ちいいかい？」
				DATAFORM 「んんっ❤　はぁ……❤　もっとくっついてよ……❤」
				DATAFORM 「すごい……❤　温かくて、気持ちよくて……%S_R("だめになってしまいそうだ/とろけてしまいそうだ")%❤」
			ENDDATA
			PRINTDATAL
				DATAFORM 「離してって言っても離してあげないからね❤　このままトロトロになるまでずーっと、こうさせてもらうよ❤」
				DATAFORM 「ねぇ、今日はもう……ずっとこうしていようよ❤　一日中……ね❤」
			ENDDATA
		CASEELSE
	ENDSELECT

	RETURN 0
ENDIF

;───────────────────────────────────────
;●訓練系
;───────────────────────────────────────
IF GROUPMATCH(SELECTCOM, 301, 302, 303, 304, 305, 306, 307)
	SELECTCASE SELECTCOM
		CASE 301
			PRINTFORML 「確かに身を守るのは大事だね。戦うのはあまり得意ではないんだけれども……」
			PRINTFORML 「おおっと」
			IF CHECK_K7("陥落",エル_対象)
				PRINTFORML 「　%CALLNAME_K7(エル_対象)%、私の動き、どうだったかな？」
			ENDIF
		CASE 302
			PRINTFORML 「宇宙でやっていくからには艦くらい動かせないとね」
			IF CHECK_K7("陥落",エル_対象)
				PRINTFORML 「これで今までよりももっと%CALLNAME_K7(エル_対象)%の役に立てるはずだ」
			ENDIF
		CASE 303
			PRINTFORML 「実践は大事だけれど……もちろん座学もおろそかにしてはいけないよ」
			IF CHECK_K7("陥落",エル_対象)
				PRINTFORML 「%CALLNAME_K7(エル_対象)%……起きているかい？」
			ENDIF
		CASE 304
			PRINTFORML 「サボってはいけないよ、%CALLNAME_K7(エル_対象)%。まだこんなにたくさん書類が残っているんだ」
			IF CHECK_K7("陥落",エル_対象)
				PRINTFORML 「ふぅ……凄まじい量だね……」
				PRINTFORML 「程よいところで休憩にしようか」
			ENDIF
		CASE 305
			PRINTFORML 「さぁ行こう。警戒を怠ってはいけないよ」
			IF CHECK_K7("陥落",エル_対象)
				PRINTFORML 「%CALLNAME_K7(エル_対象)%と一緒に行けるのだから、ちょっとした役得……かな」
			ENDIF
		CASE 306
			PRINTFORML 「歌の練習？　あまり得意ではないけれど……頑張ってみよう」
			IF CHECK_K7("陥落",エル_対象)
				PRINTFORML 「勿論やるからにはベストを尽くさないとね」
			ENDIF
		CASE 307
			PRINTFORML 「食べるほうが好きなんだけれど……せっかくなら自分で作りたいしね」
			IF CHECK_K7("陥落",エル_対象)
				PRINTFORML 「どうかな？　我ながら結構自信はあるのだけれど……」
			ENDIF
	ENDSELECT
	RETURN 0
ENDIF

;───────────────────────────────────────
;●お腹の音
;───────────────────────────────────────
IF SELECTCOM == 326
	PRINTFORML 「ん？　何か……聞こえるのかな……？」
	RETURN 0

ENDIF

;───────────────────────────────────────
;●日常フェラ
;───────────────────────────────────────
CALL HO_CHECK_USE_MODULE_ELEMENT(MASTER, "机")
LOCAL = RESULT
IF SELECTCOM == 330 || FLAG:調教モード == 調教_居住区 && GROUPMATCH(PREVCOM, 11, 107)
	{
		SELECTCASE IFRAND(
			"1",1,
			"D1,2",GROUPMATCH(PREVCOM, 303, 304, 502, 503) || LOCAL == 1,
			"D1,3",(TFLAG:デート場所 == 1) || PREVCOM == 305,
			"D1TO9,10",CUM_GET_COUNT:(エル):射精部位_口 > 1 && RAND:3,
			"D1TO9,11",(TFLAG:リアクションコマンド実行 == 1 || IS_SERVEAT(エル, "口", "フェラ")) && (CHECK_K7("陥落", エル_対象))
			)
	}
		CASE 1 ;通常
			IF !IS_INITIATIVE(エル)
				PRINTDATAL
					DATAFORM 「口でして欲しい……？　はぁ……全く」
					DATAFORM 「何も今じゃなくてもいいだろうに……」
					DATAFORM 「そういうのは時と場所をわきまえてくれないかな……」
				ENDDATA
				PRINTFORMW 「%SPLIT_RAND("本当にまったく……/仕方がないなぁ……",1)%」
				PRINTL
			ELSE
				PRINTDATAL
					DATAFORM 「……口でして欲しいんだろう？　……仕方がないなぁ」
					DATAFORM 「……溜まっているんだろう？　我慢しなくていいよ」
					DATAFORM 「口で気持ちよくしてあげよう。はぁむ❤」
				ENDDATA
				PRINTFORMW
			ENDIF
		CASE 2 ;机下フェラ
			IF !IS_INITIATIVE(エル)
				PRINTDATAL
					DATAFORM 「口でして欲しい……？　はぁ……全く」
					DATAFORM 「何も今じゃなくてもいいだろうに……」
					DATAFORM 「そういうのは時と場所をわきまえてくれないかな……」
				ENDDATA
				PRINTFORMW 「まぁ……仕方ない」
				PRINTL
			ELSE
				PRINTDATAL
					DATAFORM 「こ、これは%CALLNAME_K7(エル_対象)%が集中できるようにするためでだね……、その、決して……」
					DATAFORM 「……ここでかい？……全く……」
				ENDDATA
				PRINTFORMW
			ENDIF
		CASE 3 ;屋外フェラ　TFLAG:デート場所(市街地)
			IF !IS_INITIATIVE(エル)
				PRINTDATAL
					DATAFORM 「ここで口でして欲しい……？　%CALLNAME_K7(エル_対象)%、本気で言ってるのかな……？」
					DATAFORM 「何も今じゃなくてもいいだろうに……」
					DATAFORM 「そういうのは時と場所をわきまえてくれないかな……」
				ENDDATA
				PRINTFORML 「%SPLIT_RAND("本当にまったく……/仕方がないなぁ……",1)%」
				PRINTL
				PRINTDATAW
					DATAFORM （流石にこんな姿……人には見せられないな）
					DATAFORM （まさか外でこんなことするなんてね……）
				ENDDATA
				PRINTL
			ELSE
				PRINTDATAL
					DATAFORM 「ここなら……ひと目も気にしなくていいだろう？」
					DATAFORM 「%CALLNAME_K7(エル_対象)%がいけないのだよ……？　こんなところで発情して……」
				ENDDATA
				PRINTFORMW
			ENDIF
		CASE 10 ;
			PRINTDATAW
				DATAFORM 「%TOSTR(CUM_GET_COUNT:(エル):射精部位_口)%回も%SPLIT_RAND("口の中に出し/口に射精し/女の子の口を犯し/いたいけな女の子の口を精子まみれにし",1)%てもまだ満足できないんだね」
				DATAFORM 「すごいね❤　%TOSTR(CUM_GET_COUNT:(エル):射精部位_口)%回も%SPLIT_RAND("口の中に出し/口に射精し",1)%てるのにまだまだ元気だ」
				DATAFORM 「ふふっ❤　%TOSTR(CUM_GET_COUNT:(エル):射精部位_口)%回も射精したのに、まだこんなに大きいよ」
				DATAFORM 「口の中……とろとろになってしまったよ。……まだ足りないのかい？」
			ENDDATA
			PRINTDATAW
				DATAFORM 「こんな%SPLIT_RAND("ドスケベ/いやらしい/欲張り",1)%%CALL_DIRTY_K7("Ｐ")%%SPLIT_RAND("は、もっとご奉仕してあげないとね❤/は、もっと気持ち良くしてあげないと❤",1)%」
				DATAFORM 「それじゃあこの%SPLIT_RAND("ドスケベ/いやらしい/欲張り",1)%%CALL_DIRTY_K7("Ｐ")%%SPLIT_RAND("に、沢山ご奉仕してあげないとね❤/が満足するまでたっぷりしてあげよう❤",1)%」
			ENDDATA
			PRINTDATAL
				DATAFORM 「ほら、力を抜いて……」
				DATAFORM 「ふふっ、いただきます❤」
				DATAFORM 「……お望みのままに搾り尽くしてあげるからね❤」
				DATAFORM
			ENDDATA
			PRINTL
		CASE 11 ;リアクションコマンドまたは継続実行
			CALL RAND_WT_INIT()
			CALL RAND_WT_SET(1, 10)
			IF IS_EQUIP_PLAYER(エル, T_N("抱きしめる"))
				CALL RAND_WT_SET(2, 30)
				CALL RAND_WT_SET(3, 30)
			ENDIF
			SELECTCASE RAND_WT_RESULT()
				CASE 1
					PRINTFORMDL %ANAME(エル)%は蠱惑的な目つきで%ANAME(エル_対象)%の様子を伺いながら、%語彙_ペニス()%%S_R("にむしゃぶりついて/に舌を這わせて/を舌で舐め回して/を口でついばんで")%いる
					{
						PRINTFORML %S_R("
							「全く……女の子にこんなことさせて……んぷ……はぁ❤」/
							「れろぅ……んんっ……❤　ここまでしてあげてるんだから……、あとで相応の礼を貰わないと、ね❤❤」/
							「そんなに気持ち良そうにされると……、んぷ❤　困ったなぁ……、止め時がわからないや❤❤」
							")%
					}
					PRINTL
				CASE 2
					PRINTFORMDL %ANAME(エル)%は%ANAME(エル_対象)%の身体をがっちりと抱きかかえて、股間に深く顔を埋めて%語彙_ペニス()%%S_R("にむしゃぶりついて/に舌を這わせて/を舌で舐め回して/を口でついばんで")%いる
					{
						PRINTFORML %S_R("
							「ダメ……❤　離してあげない……❤　んぷ……はぁ❤」/
							「れろぅ……ちゅっ……❤　一滴残らず……、全部舐め取ってあげよう❤❤」/
							「はぁ………❤　んぷ❤　楽にしていていいよ❤❤　じゅるるっ❤」
							")%
					}
					PRINTL
				CASE 3
					{
						CALLF PRINT_RAND(
							@"@C:{カラー_白}@%ANAME(エル)%は%ANAME(MASTER)%にしがみつき、顔を深く股座に沈め、%語彙_ペニス()%を%S_R("貪っている/舐めしゃぶっている/咥えこんでいる")%@/C@"
							,@"@C:{カラー_白}@%ANAME(エル)%は%ANAME(MASTER)%の身体を引き寄せ、喉奥まで深々と%語彙_ペニス()%を咥えこむと、より一層艶めかしく舌を絡めてきた@/C@"
							)
					}
					PRINTL
					{
						CALLF PRINT_RAND(
							@"@C:{エル_口上カラー}@「んっ、じゅるるるぅ、ちゅっ……、ダメ。まだ離してあげない❤　%CALLNAME_K7(エル_対象)%が私を満たしてくれるまで……ね❤」@/C@"
							,@"@C:{エル_口上カラー}@「いいんだよ？腰を動かしても。んっ、じゅるるっ。私を欲望のはけ口にしたいんだろう？　ほら、受け止めてあげるからさ❤」@/C@"
							,@"@C:{エル_口上カラー}@「あぁ……すごい、こんなの……頭くらくらして……何も考えられないや❤　ちゅぷっ、じゅっ、ちゅるるるっ」@/C@"
							,""
							)
					}
					PRINTL
				CASEELSE
			ENDSELECT
		CASEELSE
	ENDSELECT
	;口塞口上につなぐ
	CALL KOJO_K7_CANNOT_TALK(エル_対象)
	RETURN 0
ENDIF

;───────────────────────────────────────
;●その他
;───────────────────────────────────────
; PRINTDATAL
; 	DATAFORM 「さて、どうしたものかな……」
; ENDDATA
RETURN 0

;───────────────────────────────────────
;●戻る
;───────────────────────────────────────
RETURN 0

;───────────────────────────────────────
;■日常_実行_実行後
;───────────────────────────────────────
@KOJO_K7_NOON_AFTER_PLAYER(エル_対象)
#DIM エル
#DIM エル_対象
#DIMS エル機嫌

IF !エル_対象
	エル_対象 = MASTER
ENDIF

エル = NAME_TO_CHARA("エル")
エル機嫌 '= TOSTR_EMOTION(エル)

;───────────────────────────────────────
;●機嫌が悪ければ通常のコマンド口上は喋らない
;───────────────────────────────────────
SELECTCASE エル機嫌
	CASE "恨", "怒", "憤"
		RETURN 0

	CASE "鬱", "悲", "憂"
		RETURN 0

	CASE  "狂", "恐", "怯"
		RETURN 0

	CASEELSE

ENDSELECT

;───────────────────────────────────────
;●髪を梳く・櫛で梳かす
;───────────────────────────────────────
IF GROUPMATCH(SELECTCOM, 322, 323)
	;描写オフ
	RETURN 1
ENDIF

;───────────────────────────────────────
;●Ｍ絶頂
;───────────────────────────────────────
IF NOWEX:エル:Ｍ絶頂 > NOWEX:エル:Ｃ絶頂 && NOWEX:エル:Ｍ絶頂 > NOWEX:エル:Ｂ絶頂 && NOWEX:エル:Ｍ絶頂 > NOWEX:エル:Ａ絶頂 && NOWEX:エル:Ｍ絶頂 > NOWEX:エル:Ｖ絶頂 && NOWEX:エル:Ｍ絶頂 > NOWEX:エル:射精
	IF NOWEX:エル:Ｍ絶頂 > 0
		PRINTFORM 「

		PRINTDATA
			DATAFORM んっ
			DATAFORM んぇれ
			DATAFORM はぁっ
			DATAFORM んぷっ
			DATAFORM んえうっ
			DATAFORM うむぁ、ぷ
		ENDDATA
		PRINTFORM %BREAK_K7("中", エル_対象)%

		PRINTDATA
			DATAFORM んぐ、んくぅっ
			DATAFORM あむっ
			DATAFORM ぷ、んっ
			DATAFORM んうぅ～……っ
			DATAFORM ふぢゅ
			DATAFORM んぐっ
		ENDDATA
		PRINTFORM %BREAK_K7("中", エル_対象)%

		PRINTDATA
			DATAFORM んく
			DATAFORM うふぐっ
			DATAFORM ふっ
			DATAFORM ぢゅっ
			DATAFORM ううっ
			DATAFORM んんんっ
		ENDDATA
		PRINTFORM %BREAK_K7("末", エル_対象)%

		PRINTFORML 」
	ENDIF
ENDIF

;───────────────────────────────────────
;●戻る
;───────────────────────────────────────
RETURN 0