code:
;触手コキ

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME206
LOCALS:0 = 触手コキ

RESULTS:0 = %LOCALS:0%する
RESULTS:1 = %LOCALS:0%させられる
RESULTS:2 = %LOCALS:0%させる
RESULTS:3 = %LOCALS:0%される
RESULTS:4 = %LOCALS:0%させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE206
;共通部分
CALL COM_ABLE_COMMON(206)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0) && !FLAG:RECHECKING
	RETURN 0
;プレイヤーが触手召喚中でないなら不可
SIF !IS_EQUIP_PLAYER(MPLY:0, 200) && !HAS_TENTACLE(MPLY)
	RETURN 0
FOR LOCAL:0, 0, MTAR_NUM
	SIF !HAS_PENIS(MTAR:LOCAL)
		RETURN 0
	SIF !P_STACKABLE(MPLY:0, MTAR:LOCAL, 206)
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM206
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

FOR LOCAL:0, 0, MTAR_NUM
	;ターゲットの触手オナホを解除
	CALL RELEASE_EQUIP(SEARCH_EQUIP(205, -1, MTAR:(LOCAL:0)), 1, 0)
NEXT

;●プレイヤーについて処理
EXP:(MPLY:0):性技経験値 += 1
EXP:(MPLY:0):魔術経験値 += 1
EXP:(MPLY:0):触手経験値 += 1

SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 150)
SOURCE:(MPLY:0):嗜虐 = 30
SOURCE:(MPLY:0):逸脱 = 80
SOURCE:(MPLY:0):触手 = 30
SOURCE:(MPLY:0):性行動 = 210

;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MPLY:0, 130, 30)

;奉仕経験値を得られるコマンドのフラグ
TCVAR:(MPLY:0):奉仕経験取得可能 = 1

;●全てのターゲットについて処理
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)

	EXP:(LOCAL:2):触手経験値 += 1

	SOURCE:(LOCAL:2):快Ｐ = SENSE_HOUSHI_P(MPLY:0, LOCAL:2, 400 + ABL:(MPLY:0):魔術 * 4) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 200)
	SOURCE:(LOCAL:2):逸脱 = 300 - (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 150)
	SOURCE:(LOCAL:2):触手 = 300 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 150)
	SOURCE:(LOCAL:2):性行動 = 180 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 90)

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 60, 70)
NEXT

;主導度変化基準値
TFLAG:主導度変化基準値 = 2

;倒錯度変化基準値
TFLAG:倒錯度変化基準値 = 3

;レズ・ＢＬ経験基準値
TFLAG:レズ・ＢＬ経験基準値 = 1

RETURN 1

;-------------------------------------------------
;継続コマンドかどうかを設定
;-------------------------------------------------
@COM_IS_EQUIP206
RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP206(ARG:0)
LOCAL:2 = MEQUIP_PLAYER:(ARG:0):0

SOURCE:(LOCAL:2):性行動 += 70

;全てのターゲットについて判定
FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:0)

	;ソースを退避
	CALL PUTOUT_SOURCE(LOCAL:3)

	EXP:(LOCAL:3):触手経験値 += 1

	SOURCE:(LOCAL:3):快Ｐ += SENSE_HOUSHI_P(LOCAL:2, LOCAL:3, 300 + ABL:(LOCAL:2):魔術 * 3) + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 150)
	SOURCE:(LOCAL:3):逸脱 += 120 - (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 60)
	SOURCE:(LOCAL:3):触手 += 150 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 750)
	SOURCE:(LOCAL:3):性行動 += 60 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 30)

	;倒錯度変化
	TCVAR:(LOCAL:3):倒錯度変化基準値 += 2

	;退避したソースを加算
	CALL SUM_SOURCE(LOCAL:3)
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE206(ARG:0)
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%に対して%EQUIP_PLAYER_ANAME(ARG:0)%の触手が触手コキ中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP206(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%のペニスに巻き付き弄んでいる…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP206(ARG:0)

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER206(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 120

;共通部分
CALL COM_ORDER(ARG:0)

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"奉仕Lv{ABL:(ARG:0):奉仕}", ABL:(ARG:0):奉仕 * 3)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):触手}", ABL:(ARG:0):触手 * 6)

LOCAL:0 = GET_PALAMLV(PALAM:(ARG:0):欲情)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲情Lv{LOCAL:0}", MIN(LOCAL:0 * 1, 10))

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
ENDIF
IF TALENT:(ARG:0):好奇心
	CALL COM_ORDER_ELEMENT(ARG:0, "好奇心", 2)
ENDIF
IF TALENT:(ARG:0):保守的
	CALL COM_ORDER_ELEMENT(ARG:0, "保守的", -7)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 4)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -2)
ENDIF
IF TALENT:(ARG:0):男嫌い
	CALL COM_ORDER_ELEMENT(ARG:0, "男嫌い", -6)
ENDIF

IF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド) || GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_マゾ) || ABL:(ARG:0):倒錯度 >= 800
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 32)
ELSEIF ABL:(ARG:0):倒錯度 >= 500
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 24)
ELSEIF ABL:(ARG:0):倒錯度 >= 300
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 16)
ELSEIF ABL:(ARG:0):倒錯度 >= 100
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 8)
ELSE
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
ENDIF

IF !TALENT:(ARG:0):合意 && !TALENT:(ARG:0):親友
	CALL COM_ORDER_ELEMENT(ARG:0, "合意なし", -10)
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE206
LOCAL:1 = 1
FOR LOCAL:0, 0, MTAR_NUM
	IF SEARCH_EQUIP(206, MPLY:0, MTAR:(LOCAL:0)) == -1
		LOCAL:1 = 0
	ENDIF
NEXT

;全員が既に触手オナホ中なら分岐
IF LOCAL:1
	;継続中の地の文をカット
	FOR LOCAL:0, 0, MTAR_NUM
		LOCAL:2 = SEARCH_EQUIP(206, MPLY:0, MTAR:(LOCAL:0))
		IF LOCAL:2 >= 0
			MEQUIP_CUT:(LOCAL:2) = 1
		ENDIF
	NEXT

	IF MTAR_NUM >= 3
		LOCALS:1 = %ANAME(MTAR:0)%たち
	ELSEIF MTAR_NUM == 2
		LOCALS:1 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	ELSE
		LOCALS:1 = %ANAME(MTAR:0)%
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%のペニスを、ヌメる触手でさらに激しくシゴき上げ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に、ペニスに巻き付いた触手をさらに動かして奉仕するように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%のペニスをシゴき続ける触手をより激しく前後させ、竿全体を擦り上げた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:1%のペニスに巻き付いた触手をより激しく動かすように命令した
			PRINTFORMW %ANAME(MPLY:0)%は言われた通り、%LOCALS:1%のペニスをヌメる触手でさらに激しくシゴき上げた…
	ENDSELECT

ELSE
	IF MTAR_NUM >= 3
		LOCALS:0 = ペニス
		LOCALS:1 = %ANAME(MTAR:0)%たち
		LOCALS:2 = 同時に
		LOCALS:3 = 全員の
	ELSEIF MTAR_NUM == 2
		LOCALS:0 = ペニス
		LOCALS:1 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
		LOCALS:2 = 同時に
		LOCALS:3 = 二人の
	ELSE
		IF PALAM:(MTAR:0):欲情 >= PALAMLV:7
			LOCALS:0 = 興奮し反り返ったペニス
		ELSE
			LOCALS:0 = ペニス
		ENDIF

		LOCALS:1 = %ANAME(MTAR:0)%
		LOCALS:2 = 激しく
		LOCALS:3 = 自身の
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に触手を巻きつけ、%LOCALS:2%上下にシゴき上げ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に、触手を使ってペニスに奉仕するように命令した
			PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%LOCALS:1%のペニスに触手を巻き付けて竿をシゴき上げた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、触手を使って%LOCALS:1%のペニスを責めるように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に触手を巻きつけ、%LOCALS:2%上下にシゴき上げた…
	ENDSELECT
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST206

;-------------------------------------------------

;コマンド区分
;-------------------------------------------------

@COM_AVAILABLE_WHEN206
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_206()
RETURN POWER(2, 性的嗜好_触手で犯したい) + POWER(2, 性的嗜好_奉仕したい)

@COM_PREFERENCE_TARGET_206()
RETURN POWER(2, 性的嗜好_触手で犯されたい) + POWER(2, 性的嗜好_奉仕されたい)


code:
;触手搾乳

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME207
LOCALS:0 = 触手搾乳

RESULTS:0 = %LOCALS:0%する
RESULTS:1 = %LOCALS:0%させられる
RESULTS:2 = %LOCALS:0%させる
RESULTS:3 = %LOCALS:0%される
RESULTS:4 = %LOCALS:0%させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE207
;共通部分
CALL COM_ABLE_COMMON(207)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0) && !FLAG:RECHECKING
	RETURN 0
;プレイヤーが触手召喚中でないなら不可
SIF !IS_EQUIP_PLAYER(MPLY:0, 200) && !HAS_TENTACLE(MPLY)
	RETURN 0
;全てのターゲットについて判定
FOR LOCAL:0, 0, MTAR_NUM
	;ターゲットに<母乳体質>が必要
	SIF !TALENT:(MTAR:(LOCAL:0)):母乳体質
		RETURN 0
	;nipples occupied
	SIF IS_N_HOLD(MTAR:LOCAL)
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM207
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;●プレイヤーについて処理
EXP:(MPLY:0):性技経験値 += 1
EXP:(MPLY:0):魔術経験値 += 1
EXP:(MPLY:0):触手経験値 += 1

SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 200)
SOURCE:(MPLY:0):嗜虐 = 50
SOURCE:(MPLY:0):逸脱 = 100
SOURCE:(MPLY:0):触手 = 30
SOURCE:(MPLY:0):性行動 = 90

;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MPLY:0, 140, 30)

;奉仕経験値を得られるコマンドのフラグ
TCVAR:(MPLY:0):奉仕経験取得可能 = 1

;●全てのターゲットについて処理
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)

	EXP:(LOCAL:2):触手経験値 += 1

	LOCAL:3 = 1000 + ABL:(MPLY:0):魔術 * 8
	SOURCE:(LOCAL:2):快Ｂ = SENSE_HOUSHI(MPLY:0, LOCAL:2, LOCAL:3 * 3 / 5) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 500)
	SOURCE:(LOCAL:2):搾乳 = SENSE_HOUSHI(MPLY:0, LOCAL:2, LOCAL:3 * 3 / 5) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 500)
	SOURCE:(LOCAL:2):苦痛 = 100
	SOURCE:(LOCAL:2):逸脱 = 500 - (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 250)
	SOURCE:(LOCAL:2):触手 = 400 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 200)
	SOURCE:(LOCAL:2):性行動 = 180 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 90)

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 60, 80)
NEXT

;主導度変化基準値
TFLAG:主導度変化基準値 = 2

;倒錯度変化基準値
TFLAG:倒錯度変化基準値 = 4

;レズ・ＢＬ経験基準値
TFLAG:レズ・ＢＬ経験基準値 = 1

RETURN 1

;-------------------------------------------------
;継続コマンドかどうかを設定
;-------------------------------------------------
@COM_IS_EQUIP207
RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP207(ARG:0)
LOCAL:2 = MEQUIP_PLAYER:(ARG:0):0

SOURCE:(LOCAL:2):性行動 += 30

;全てのターゲットについて判定
FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:0)

	;ソースを退避
	CALL PUTOUT_SOURCE(LOCAL:3)

	EXP:(LOCAL:3):触手経験値 += 1

	LOCAL:4 = 800 + ABL:(LOCAL:2):魔術 * 6
	SOURCE:(LOCAL:3):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, LOCAL:4 * 3 / 5) + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 400)
	SOURCE:(LOCAL:3):搾乳 += SENSE_HOUSHI(LOCAL:2, LOCAL:3, LOCAL:4 * 3 / 5) + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 400)
	SOURCE:(LOCAL:3):苦痛 += 50
	SOURCE:(LOCAL:3):逸脱 += 150 - (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 75)
	SOURCE:(LOCAL:3):触手 += 200 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 100)
	SOURCE:(LOCAL:3):性行動 += 60 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 30)

	;倒錯度変化
	TCVAR:(LOCAL:3):倒錯度変化基準値 += 2

	;退避したソースを加算
	CALL SUM_SOURCE(LOCAL:3)
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE207(ARG:0)
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%に対して%EQUIP_PLAYER_ANAME(ARG:0)%の触手が搾乳中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP207(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%の乳首に吸い付き母乳を搾り出そうとしている…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP207(ARG:0)

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER207(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 120

;共通部分
CALL COM_ORDER(ARG:0)

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"奉仕Lv{ABL:(ARG:0):奉仕}", ABL:(ARG:0):奉仕 * 3)
CALL COM_ORDER_ELEMENT(ARG:0, @"触手Lv{ABL:(ARG:0):触手}", ABL:(ARG:0):触手 * 6)

LOCAL:0 = GET_PALAMLV(PALAM:(ARG:0):欲情)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲情Lv{LOCAL:0}", MIN(LOCAL:0 * 1, 10))

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
ENDIF
IF TALENT:(ARG:0):好奇心
	CALL COM_ORDER_ELEMENT(ARG:0, "好奇心", 2)
ENDIF
IF TALENT:(ARG:0):保守的
	CALL COM_ORDER_ELEMENT(ARG:0, "保守的", -7)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 4)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -2)
ENDIF

IF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド) || GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_マゾ) || ABL:(ARG:0):倒錯度 >= 800
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 32)
ELSEIF ABL:(ARG:0):倒錯度 >= 500
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 24)
ELSEIF ABL:(ARG:0):倒錯度 >= 300
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 16)
ELSEIF ABL:(ARG:0):倒錯度 >= 100
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 8)
ELSE
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
ENDIF

IF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_雌牛)
	CALL COM_ORDER_ELEMENT(ARG:0, "雌牛", 10)
ENDIF

IF !TALENT:(ARG:0):合意 && !TALENT:(ARG:0):親友
	CALL COM_ORDER_ELEMENT(ARG:0, "合意なし", -10)
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE207
;ターゲットが2人以上
IF MTAR_NUM >= 2
	IF MTAR_NUM >= 3
		LOCALS:1 = %ANAME(MTAR:0)%たち
	ELSEIF MTAR_NUM == 2
		LOCALS:1 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は一際太い触手を%LOCALS:1%の胸に吸い付かせると、痛みを感じるほど強く吸引し%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に、触手で母乳を吸い上げるように命令した
			PRINTFORMW %ANAME(MPLY:0)%は一際太い触手を%LOCALS:1%の胸に吸い付かせると、言われるまま乳首を強く吸い上げた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、触手で%LOCALS:1%の母乳を搾るように命令した
			PRINTFORMW %ANAME(MPLY:0)%は一際太い触手を%LOCALS:1%の胸に吸い付かせると、言われるまま乳首を強く吸い上げた…
	ENDSELECT

	;ターゲットが1人
ELSE
	IF GET_BUSTSIZE(MTAR:0) < 0
		LOCALS:0 = 平たい胸
	ELSEIF GET_BUSTSIZE(MTAR:0) > 0
		LOCALS:0 = 豊満な胸
	ELSE
		LOCALS:0 = 胸
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は一際太い触手を%LOCALS:1%の胸に吸い付かせると、痛みを感じるほど強く吸引し%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に、触手で母乳を吸い上げるように命令した
			PRINTFORMW %ANAME(MPLY:0)%は一際太い触手を%LOCALS:1%の胸に吸い付かせると、言われるまま乳首を強く吸い上げた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、触手で%LOCALS:1%の母乳を搾るように命令した
			PRINTFORMW %ANAME(MPLY:0)%は一際太い触手を%LOCALS:1%の胸に吸い付かせると、言われるまま乳首を強く吸い上げた…
	ENDSELECT
ENDIF

IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_雌牛)
	PRINTFORML 雌牛に成り下がった%ANAME(MTAR:0)%は、自ら乳房を突き出して搾乳の快楽に酔いしれている…
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST207

;-------------------------------------------------

;コマンド区分
;-------------------------------------------------

@COM_AVAILABLE_WHEN207
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_207()
RETURN POWER(2, 性的嗜好_触手で犯したい) + POWER(2, 性的嗜好_虐げたい)

@COM_PREFERENCE_TARGET_207()
RETURN POWER(2, 性的嗜好_触手で犯されたい) + POWER(2, 性的嗜好_虐げられたい)

repo_name: napo/erafl

license: unknown


code:
;触手緊縛

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME208
LOCALS:0 = 触手緊縛

RESULTS:0 = %LOCALS:0%する
RESULTS:1 = %LOCALS:0%させられる
RESULTS:2 = %LOCALS:0%させる
RESULTS:3 = %LOCALS:0%される
RESULTS:4 = %LOCALS:0%させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE208
;共通部分
CALL COM_ABLE_COMMON(208)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0) && !FLAG:RECHECKING
	RETURN 0
;プレイヤーが触手召喚中でないなら不可
SIF !IS_EQUIP_PLAYER(MPLY:0, 200) && !HAS_TENTACLE(MPLY)
	RETURN 0
;全てのターゲットについて判定
FOR LOCAL:0, 0, MTAR_NUM
	;既に拘束中なら不可
	SIF IS_BIND(MTAR:(LOCAL:0))
		RETURN 0
	;exisiting action requires mobility
	;There is no good way to do this. We just manually list every action that is restricted by bondage.
	SIF IS_EQUIP_PLAYER(MTAR:(LOCAL:0), 0, 1, 3, 4, 5, 9, 10)
		RETURN 0
	SIF IS_EQUIP_PLAYER(MTAR:(LOCAL:0), 12, 14, 15, 16, 18, 23)
		RETURN 0
	SIF IS_EQUIP_PLAYER(MTAR:(LOCAL:0), 87, 88, 90, 94)
		RETURN 0
	SIF IS_EQUIP_PLAYER(MTAR:(LOCAL:0), 100, 101, 102, 103, 105, 106, 116)
		RETURN 0
	;fucking actions. Can't use INSERT_SINGLE because it includes cowgirl etc.
	SIF IS_EQUIP_PLAYER(MTAR:(LOCAL:0), 13, 30, 31, 34, 35, 36, 37, 38, 39, 40, 41, 44, 45)
		RETURN 0
	SIF IS_EQUIP_PLAYER(MTAR:(LOCAL:0), 46, 47, 48, 49, 52, 53, 55, 56, 57, 58, 160, 161)
		RETURN 0
	;giving/receiving tribadism, doubledildo, frotting
	SIF IS_EQUIP(MTAR:(LOCAL:0), 21, 22, 23)
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM208
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;●プレイヤーについて処理
EXP:(MPLY:0):魔術経験値 += 1
EXP:(MPLY:0):触手経験値 += 1
EXP:(MPLY:0):嗜虐経験値 += 1

SOURCE:(MPLY:0):嗜虐 = 400
SOURCE:(MPLY:0):逸脱 = 200
SOURCE:(MPLY:0):触手 = 30

;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MPLY:0, 180, 50)

;●全てのターゲットについて処理
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)

	EXP:(LOCAL:2):緊縛経験 += 1
	EXP:(LOCAL:2):触手経験値 += 1
	EXP:(LOCAL:2):被虐経験値 += 1

	SOURCE:(LOCAL:2):苦痛 = 120 + MIN(ABL:(MPLY:0):魔術, 90) / 2
	SOURCE:(LOCAL:2):露出 = 50 + GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 25
	SOURCE:(LOCAL:2):触手 = 400 + GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 200
	SOURCE:(LOCAL:2):逸脱 = 500 - GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 250

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 0, 180)

	IF GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_サド)
		TIMES SOURCE:(LOCAL:2):苦痛, 1.50
	ENDIF
NEXT

;主導度変化基準値
TFLAG:主導度変化基準値 = 2

;倒錯度変化基準値
TFLAG:倒錯度変化基準値 = 7

;レズ・ＢＬ経験基準値
TFLAG:レズ・ＢＬ経験基準値 = 0

RETURN 1

;-------------------------------------------------
;継続コマンドかどうかを設定
;-------------------------------------------------
@COM_IS_EQUIP208
;継続コマンドかつフィルタリング不可
RETURN 2

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP208(ARG:0)
;全てのターゲットについて処理
FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:0)

	EXP:(LOCAL:3):緊縛経験 += 1
	EXP:(LOCAL:3):触手経験値 += 1

	SOURCE:(LOCAL:3):苦痛 += 60
	SOURCE:(LOCAL:3):触手 += 200 + GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 100
	SOURCE:(LOCAL:3):逸脱 += 150 - GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 75

	;倒錯度変化
	TCVAR:(LOCAL:3):倒錯度変化基準値 += 4
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE208(ARG:0)
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%を触手で緊縛中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP208(ARG:0)
PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%は触手に全身を絡め取られ、身動き出来ないでいる…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP208(ARG:0)
PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%を拘束していた触手を戻した

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER208(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 125

;共通部分
CALL COM_ORDER(ARG:0)

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 1)
CALL COM_ORDER_ELEMENT(ARG:0, @"触手Lv{ABL:(ARG:0):触手}", ABL:(ARG:0):触手 * 5)

LOCAL:0 = GET_PALAMLV(PALAM:(ARG:0):欲情)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲情Lv{LOCAL:0}", MIN(LOCAL:0 * 1, 10))

IF TALENT:(ARG:0):大人しい
	CALL COM_ORDER_ELEMENT(ARG:0, "大人しい", -3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 3)
ENDIF
IF TALENT:(ARG:0):Ｓ気質
	CALL COM_ORDER_ELEMENT(ARG:0, "Ｓ気質", 6)
ENDIF

IF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド)
	CALL COM_ORDER_ELEMENT(ARG:0, "サド", 40)
ELSE
	IF ABL:(ARG:0):主導度Ｕ >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 15)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 10)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 5)
	ELSEIF ABL:(ARG:0):主導度Ｕ > -100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 0)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", -5)
	ENDIF

	IF ABL:(ARG:0):倒錯度 >= 800
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 20)
	ELSEIF ABL:(ARG:0):倒錯度 >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 15)
	ELSEIF ABL:(ARG:0):倒錯度 >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 10)
	ELSEIF ABL:(ARG:0):倒錯度 >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 5)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
	ENDIF
ENDIF

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE208
SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の全身を触手で絡めとり身動きを封じ%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に自分の体を触手で拘束するように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われた通りに、%ANAME(MTAR:0)%の全身を触手で絡めとり身動きを封じた…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、触手で%ANAME(MTAR:0)%の体を拘束するように命令した
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の全身を触手で絡めとり身動きを封じた…
ENDSELECT

;-------------------------------------------------

;コマンド区分
;-------------------------------------------------

@COM_AVAILABLE_WHEN208
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_208()
RETURN POWER(2, 性的嗜好_触手で犯したい) + POWER(2, 性的嗜好_虐げたい)

@COM_PREFERENCE_TARGET_208()
RETURN POWER(2, 性的嗜好_触手で犯されたい) + POWER(2, 性的嗜好_虐げられたい) + POWER(2, 性的嗜好_縛られたい)


code:
;キス

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME20
IF MTAR_NUM >= 2 || MPLY_NUM >= 2
	LOCALS:0 = Ｗキス
ELSE
	LOCALS:0 = キス
ENDIF

RESULTS:0 = %LOCALS:0%する
RESULTS:1 = %LOCALS:0%させられる
RESULTS:2 = %LOCALS:0%させる
RESULTS:3 = %LOCALS:0%される
RESULTS:4 = %LOCALS:0%させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE20
;共通部分
CALL COM_ABLE_COMMON(20)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で2人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 2
	RETURN 0
;ターゲットは最大で2人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 2
	RETURN 0
;2-2は不可
SIF MPLY_NUM == 2 && MTAR_NUM == 2
	RETURN 0
FOR LOCAL:0, 0, MPLY_NUM
	SIF IS_M_HOLD(MPLY:(LOCAL:0))
		RETURN 0
NEXT
FOR LOCAL:0, 0, MTAR_NUM
	SIF IS_M_HOLD(MTAR:(LOCAL:0))
		RETURN 0
NEXT
FOR LOCAL:0, 0, MPLY_NUM
	FOR LOCAL:1, 0, MTAR_NUM
		;unconscious
		SIF !IS_PLAYABLE(MPLY:(LOCAL:0))
			RETURN 0
		;both bound
		SIF (IS_BIND(MPLY:(LOCAL:0)) && IS_BIND(MTAR:(LOCAL:1)))
			RETURN 0
		;giving/receiving tribadism, doubleidlo, trampling, footlicking, footjob)
		SIF SEARCH_EQUIP_IC_M(MPLY:(LOCAL:0), MTAR:(LOCAL:1), 21, 22, 103, 104, 14) >= 0
			RETURN 0
		;one participant grovelling, but not the other
		SIF (IS_EQUIP_PLAYER(MPLY:(LOCAL:0), 110) + IS_EQUIP_PLAYER(MTAR:(LOCAL:1), 110)) == 1
			RETURN 0
		;背面騎乗でキスするのはちょっとアクロバティックすぎると思う
		SIF	GROUPMATCH(GET_SEX_POSITION(MPLY:(LOCAL:0), MTAR:(LOCAL:1)), 6)
			RETURN 0
	NEXT
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM20
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;●人数補正の設定
LOCAL:10 = 100

SELECTCASE MPLY_NUM
	CASE 2
		TIMES LOCAL:10, 0.75
ENDSELECT

SELECTCASE MTAR_NUM
	CASE 2
		TIMES LOCAL:10, 0.75
ENDSELECT

;●全プレイヤーについて処理
FOR LOCAL:0, 0, MPLY_NUM
	LOCAL:2 = MPLY:(LOCAL:0)

	DOWNBASE:(LOCAL:2):体力 += 60

	EXP:(LOCAL:2):性技経験値 += MTAR_NUM / 2 + 1
	EXP:(LOCAL:2):キス経験 += 1

	SOURCE:(LOCAL:2):奉仕 = SERVE_HOUSHI(LOCAL:2, 100)
	SOURCE:(LOCAL:2):接触 = 50
	SOURCE:(LOCAL:2):性行動 = 90

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 50, 30)

	;奉仕経験値を得られるコマンドのフラグ
	TCVAR:(LOCAL:2):奉仕経験取得可能 = 1
	IF MTAR_NUM == 1
		;ペニスへのキス
		CALL KISS_COMMON(LOCAL:2, @"%ANAME(MTAR:0)%の唇", GET_SITUATION_BY_TRAIN_MODE())
	ELSE
		CALL KISS_COMMON(LOCAL:2, @"%ANAME(MTAR:0)%たちの唇", (GET_SITUATION_BY_TRAIN_MODE() == "和姦" ? "乱交" # "輪姦"))
	ENDIF

	;全ターゲットに与える快感系ソースを計算
	FOR LOCAL:1, 0, MTAR_NUM
		LOCAL:3 = MTAR:(LOCAL:1)
		SOURCE:(LOCAL:3):快Ｍ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 1000) * LOCAL:10 / 100
	NEXT
NEXT

;●全ターゲットについて処理
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)

	DOWNBASE:(LOCAL:2):体力 += 60

	EXP:(LOCAL:2):性技経験値 += MPLY_NUM / 2 + 1
	EXP:(LOCAL:2):キス経験 += 1

	SOURCE:(LOCAL:2):奉仕 = SERVE_HOUSHI(LOCAL:2, 100)
	SOURCE:(LOCAL:2):接触 = 50
	SOURCE:(LOCAL:2):性行動 = 90

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 50, 30)

	;奉仕経験値を得られるコマンドのフラグ
	TCVAR:(LOCAL:2):奉仕経験取得可能 = 1

	CALL KISS_COMMON(LOCAL:2, @"%ANAME(MPLY:0)%の唇", GET_SITUATION_BY_TRAIN_MODE())

	;全プレイヤーに与える快感系ソースを計算
	FOR LOCAL:1, 0, MPLY_NUM
		LOCAL:3 = MPLY:(LOCAL:1)
		SOURCE:(LOCAL:3):快Ｍ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 1000) * LOCAL:10 / 100
	NEXT
NEXT

;主導度変化基準値
TFLAG:主導度変化基準値 = 2

;倒錯度変化基準値
TFLAG:倒錯度変化基準値 = -2

;レズ・ＢＬ経験基準値
TFLAG:レズ・ＢＬ経験基準値 = 3

RETURN 1

;-------------------------------------------------
;継続コマンドかどうかを設定
;-------------------------------------------------
@COM_IS_EQUIP20
RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP20(ARG:0)
;●人数補正の設定
LOCAL:10 = 100

SELECTCASE MEQUIP_PLAYER_NUM:(ARG:0)
	CASE 2
		TIMES LOCAL:10, 0.75
ENDSELECT

SELECTCASE MEQUIP_TARGET_NUM:(ARG:0)
	CASE 2
		TIMES LOCAL:10, 0.75
ENDSELECT

;●全プレイヤーについて判定
FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	LOCAL:2 = MEQUIP_PLAYER:(ARG:0):(LOCAL:0)

	DOWNBASE:(LOCAL:2):体力 += 10

	EXP:(LOCAL:2):性技経験値 += MAX(MEQUIP_TARGET_NUM:(ARG:0) / 2 + 1, 1)
	EXP:(LOCAL:2):キス経験 += 1

	SOURCE:(LOCAL:2):奉仕 += SERVE_HOUSHI(LOCAL:2, 40)
	SOURCE:(LOCAL:2):接触 += 25
	SOURCE:(LOCAL:2):性行動 += 30

	;奉仕経験値を得られるコマンドのフラグ
	TCVAR:(LOCAL:2):奉仕経験取得可能 = 1

	;倒錯度変化基準値
	TCVAR:(LOCAL:2):倒錯度変化基準値 -= 2

	;全ターゲットに与える快感系ソースを計算
	FOR LOCAL:1, 0, MEQUIP_TARGET_NUM:(ARG:0)
		LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:1)
		SOURCE:(LOCAL:3):快Ｍ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 600) * LOCAL:10 / 100

	NEXT
NEXT

;●全ターゲットについて判定
FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:2 = MEQUIP_TARGET:(ARG:0):(LOCAL:0)

	DOWNBASE:(LOCAL:2):体力 += 10

	EXP:(LOCAL:2):性技経験値 += MAX(MEQUIP_PLAYER_NUM:(ARG:0) / 2 + 1, 1)
	EXP:(LOCAL:2):キス経験 += 1

	SOURCE:(LOCAL:2):奉仕 += SERVE_HOUSHI(LOCAL:2, 40)
	SOURCE:(LOCAL:2):接触 += 25
	SOURCE:(LOCAL:2):性行動 += 30

	;奉仕経験値を得られるコマンドのフラグ
	TCVAR:(LOCAL:2):奉仕経験取得可能 = 1

	;倒錯度変化基準値
	TCVAR:(LOCAL:2):倒錯度変化基準値 -= 2

	;全プレイヤーに与える快感系ソースを計算
	FOR LOCAL:1, 0, MEQUIP_PLAYER_NUM:(ARG:0)
		LOCAL:3 = MEQUIP_PLAYER:(ARG:0):(LOCAL:1)
		SOURCE:(LOCAL:3):快Ｍ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 600) * LOCAL:10 / 100

	NEXT
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE20(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%とキス中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP20(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%と舌を絡ませてキスをしている…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP20(ARG:0)

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER20(ARG:0)
CALL COM_ORDER_COMMON20(ARG:0)
RETURN 1

@COM_ORDER_TARGET20(ARG:0)
CALL COM_ORDER_COMMON20(ARG:0)
RETURN 1

@COM_ORDER_COMMON20(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 60

;共通部分
CALL COM_ORDER(ARG:0)

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 1)
CALL COM_ORDER_ELEMENT(ARG:0, @"Ｍ感Lv{ABL:(ARG:0):Ｍ感}", ABL:(ARG:0):Ｍ感 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"奉仕Lv{ABL:(ARG:0):奉仕}", ABL:(ARG:0):奉仕 * 4)

LOCAL:0 = GET_PALAMLV(PALAM:(ARG:0):欲情)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲情Lv{LOCAL:0}", MIN(LOCAL:0 * 2, 20))

IF TCVAR:(ARG:0):媚薬
	CALL COM_ORDER_ELEMENT(ARG:0, "媚薬", 6)
ENDIF

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -4)
ENDIF
IF TALENT:(ARG:0):汚臭鈍感
	CALL COM_ORDER_ELEMENT(ARG:0, "汚臭鈍感", 1)
ENDIF
IF TALENT:(ARG:0):汚臭敏感
	CALL COM_ORDER_ELEMENT(ARG:0, "汚臭敏感", -1)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 6)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -1)
ENDIF

IF IS_MPLY(ARG:0)
	IF TALENT:(ARG:0):男嫌い
		FOR LOCAL:0, 0, MTAR_NUM
			IF IS_MALE(MTAR:(LOCAL:0))
				CALL COM_ORDER_ELEMENT(ARG:0, "男嫌い", -7)
				BREAK
			ENDIF
		NEXT
	ENDIF
	IF TALENT:(ARG:0):女嫌い
		FOR LOCAL:0, 0, MTAR_NUM
			IF IS_FEMALE(MTAR:(LOCAL:0))
				CALL COM_ORDER_ELEMENT(ARG:0, "女嫌い", -7)
				BREAK
			ENDIF
		NEXT
	ENDIF
ELSE
	IF TALENT:(ARG:0):男嫌い
		FOR LOCAL:0, 0, MPLY_NUM
			IF IS_MALE(MPLY:(LOCAL:0))
				CALL COM_ORDER_ELEMENT(ARG:0, "男嫌い", -7)
				BREAK
			ENDIF
		NEXT
	ENDIF
	IF TALENT:(ARG:0):女嫌い
		FOR LOCAL:0, 0, MPLY_NUM
			IF IS_FEMALE(MPLY:(LOCAL:0))
				CALL COM_ORDER_ELEMENT(ARG:0, "女嫌い", -7)
				BREAK
			ENDIF
		NEXT
	ENDIF
ENDIF

IF TALENT:(ARG:0):キス未経験
	IF TALENT:(ARG:0):一線越えない
		CALL COM_ORDER_ELEMENT(ARG:0, "キス未経験", -45)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "キス未経験", -30)
	ENDIF
ENDIF

;合意
IF !TALENT:(ARG:0):合意 && !TALENT:(ARG:0):親友
	CALL COM_ORDER_ELEMENT(ARG:0, "合意なし", -10)
ENDIF

;好感度
LOCAL:0 = 0
IF CFLAG:(ARG:0):好感度 < 500
	IF CFLAG:(ARG:0):好感度 < 100
		LOCAL:0 = -30
	ELSEIF CFLAG:(ARG:0):好感度 < 300
		LOCAL:0 = -10
	ELSE
		LOCAL:0 = -5
	ENDIF

	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度不足", LOCAL:0)
ELSE
	LOCAL:0 = CFLAG:(ARG:0):好感度 / 80
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度", LOCAL:0)
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE20
;ターゲットが２人
IF MTAR_NUM == 2
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%、%ANAME(MTAR:1)%の二人を抱き寄せ、交互に舌を絡ませながら唾液を交換し%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORML %ANAME(MTAR:0)%と%ANAME(MTAR:1)%は、%ANAME(MPLY:0)%に対してキスをするように要求した
			PRINTFORMW %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0)%と%ANAME(MTAR:1)%に口付け、交互に舌を絡ませながら唾液を交換した…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%、%ANAME(MTAR:1)%の二人とキスするように命令した
			PRINTFORMW %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0)%と%ANAME(MTAR:1)%に口付け、交互に舌を絡ませながら唾液を交換した…
	ENDSELECT

	;ターゲットが１人
ELSE
	;プレイヤーが２人
	IF MPLY_NUM == 2
		LOCALS:0 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%
		LOCALS:1 = 二人
		;プレイヤーが１人
	ELSE
		LOCALS:0 = %ANAME(MPLY:0)%
		LOCALS:1 = %ANAME(MPLY:0)%
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %LOCALS:0%は%ANAME(MTAR:0)%の口腔を隅々まで舐め回し、ねっとりと舌を絡め合いながら唾液を交換し%TARGET_STR("た", "てきた")%…
			IF MTAR:0 != MASTER && MPLY:0 == MASTER && IS_LOVER(MTAR:0)
				PRINTFORMW %ANAME(MTAR:0)%はうっとりとした表情を浮かべながら、自らも積極的に舌を絡めて%LOCALS:1%を悦ばせた…
			ENDIF
			;ターゲットに主導権
		CASE 1
			PRINTFORML %ANAME(MTAR:0)%は%LOCALS:0%に対してキスをするように要求した
			PRINTFORMW %LOCALS:0%は言われるまま%ANAME(MTAR:0)%に口付け、口腔を舐め回しながら唾液を交換した…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:0%に%ANAME(MTAR:0)%とキスするように命令した
			PRINTFORMW %LOCALS:0%は言われるまま%ANAME(MTAR:0)%に口付け、口腔を舐め回しながら唾液を交換した…
			IF MTAR:0 != MASTER && MPLY:0 == MASTER && IS_LOVER(MTAR:0)
				PRINTFORMW %ANAME(MTAR:0)%はうっとりとした表情を浮かべながら、自らも積極的に舌を絡めて%LOCALS:1%を悦ばせた…
			ENDIF
	ENDSELECT
	;snowballing - restricted for simplicity to the 1-1 case
	IF CUM_CUR_AMOUNT:(MPLY:0):射精部位_口
		IF ABL:(MTAR:0):精愛 >= 6
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の口に溜まった精液を夢中になって舐め取っている…
		ELSEIF ABL:(MTAR:0):精愛 >= 4
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の口に溜まった精液を積極的に舐め取っている…
		ELSE
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の口に溜まった精液を嫌がっている…
		ENDIF
		EXP:(MPLY:0):精愛経験値 += 4
		EXP:(MTAR:0):精愛経験値 += 4
	ELSEIF CUM_CUR_AMOUNT:(MPLY:0):射精部位_口
		IF ABL:(MPLY:0):精愛 >= 6
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の口に溜まった精液を夢中になって舐め取っている…
		ELSEIF ABL:(MPLY:0):精愛 >= 4
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の口に溜まった精液を積極的に舐め取っている…
		ELSE
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の口に溜まった精液を嫌がっている…
		ENDIF

		EXP:(MPLY:0):精愛経験値 += 4
		EXP:(MTAR:0):精愛経験値 += 4
	ENDIF
	;Each partner gets half the total cum
	LOCAL = CUM_CUR_AMOUNT:(MPLY:0):射精部位_口 + CUM_CUR_AMOUNT:(MTAR:0):射精部位_口
	CUM_CUR_AMOUNT:(MPLY:0):射精部位_口 = LOCAL/2
	CUM_CUR_AMOUNT:(MTAR:0):射精部位_口 = LOCAL/2
ENDIF

;-------------------------------------------------

;コマンド区分
;-------------------------------------------------

@COM_AVAILABLE_WHEN20
IF FLAG:調教モード != 調教_居住区 && FLAG:調教モード != 調教_クエスト
	RETURN コマンド_ウフフ
ELSE
	RETURN コマンド_居住区
ENDIF

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_20()
RETURN POWER(2, 性的嗜好_奉仕したい)

@COM_PREFERENCE_TARGET_20()
RETURN POWER(2, 性的嗜好_奉仕されたい)


code:
;触手口辱

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME210
LOCALS:0 = 触手口辱

RESULTS:0 = %LOCALS:0%する
RESULTS:1 = %LOCALS:0%させられる
RESULTS:2 = %LOCALS:0%させる
RESULTS:3 = %LOCALS:0%される
RESULTS:4 = %LOCALS:0%させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE210
;共通部分
CALL COM_ABLE_COMMON(210)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0) && !FLAG:RECHECKING
	RETURN 0
;プレイヤーが触手召喚中でないなら不可
SIF !IS_EQUIP_PLAYER(MPLY:0, 200) && !HAS_TENTACLE(MPLY)
	RETURN 0
FOR LOCAL:0, 0, MTAR_NUM
	SIF IS_M_HOLD(MTAR:(LOCAL:0))
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM210
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;●プレイヤーについて処理
EXP:(MPLY:0):魔術経験値 += 1
EXP:(MPLY:0):触手経験値 += 1

SOURCE:(MPLY:0):嗜虐 = 500
SOURCE:(MPLY:0):逸脱 = 200
SOURCE:(MPLY:0):触手 = 30

;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MPLY:0, 180, 50)

;●全てのターゲットについて処理
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)

	EXP:(LOCAL:2):緊縛経験 += 1
	EXP:(LOCAL:2):触手経験値 += 1

	SOURCE:(LOCAL:2):快Ｍ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 1000 + ABL:(MPLY:0):魔術 * 8) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 500)
	SOURCE:(LOCAL:2):苦痛 = 150 + MIN(ABL:(MPLY:0):魔術, 90) / 2
	SOURCE:(LOCAL:2):触手 = 500  + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 250)
	SOURCE:(LOCAL:2):逸脱 = 500  + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 250)

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 0, 180)

	IF GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_サド)
		TIMES SOURCE:(LOCAL:2):苦痛, 1.50
	ENDIF

	;口の経験履歴
	CALL KISS_COMMON(LOCAL:2, @"触手", GET_SITUATION_BY_TRAIN_MODE())
NEXT

;主導度変化基準値
TFLAG:主導度変化基準値 = 2

;倒錯度変化基準値
TFLAG:倒錯度変化基準値 = 7

;レズ・ＢＬ経験基準値
TFLAG:レズ・ＢＬ経験基準値 = 0

RETURN 1

;-------------------------------------------------
;継続コマンドかどうかを設定
;-------------------------------------------------
@COM_IS_EQUIP210
;継続コマンドかつフィルタリング不可
RETURN 2

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP210(ARG:0)
LOCAL:2 = MEQUIP_PLAYER:(ARG:0):0

SOURCE:(LOCAL:2):性行動 += 30

;全てのターゲットについて処理
FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:0)

	;ソースを退避
	CALL PUTOUT_SOURCE(LOCAL:3)

	EXP:(LOCAL:3):緊縛経験 += 1
	EXP:(LOCAL:3):触手経験値 += 1

	SOURCE:(LOCAL:3):快Ｍ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 800 + ABL:(LOCAL:2):魔術 * 6) + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 400)
	SOURCE:(LOCAL:3):苦痛 += 80
	SOURCE:(LOCAL:3):触手 += 250 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 125)
	SOURCE:(LOCAL:3):逸脱 += 150 - (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 75)
	SOURCE:(LOCAL:3):性行動 += 60 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 30)

	;倒錯度変化
	TCVAR:(LOCAL:3):倒錯度変化基準値 += 4

	;退避したソースを加算
	CALL SUM_SOURCE(LOCAL:3)
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE210(ARG:0)
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%の口に%EQUIP_PLAYER_ANAME(ARG:0)%の触手を挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP210(ARG:0)
PRINTFORM %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手
SELECTCASE RAND:8
	CASE 0
		PRINTFORML が%EQUIP_TARGET_ANAME(ARG:0)%の口を強引に犯している…
	CASE 1
		PRINTFORML が%EQUIP_TARGET_ANAME(ARG:0)%の喉奥を激しく突いている…
	CASE 2
		PRINTFORML が%EQUIP_TARGET_ANAME(ARG:0)%の喉奥へ深く入り込み、粘液を擦り付けている…
	CASE 3
		PRINTFORML は%EQUIP_TARGET_ANAME(ARG:0)%の呼吸のリズムを支配している…
	CASE 4
		PRINTFORML は%EQUIP_TARGET_ANAME(ARG:0)%の口内で触手を波打たせている…
	CASE 5
		PRINTFORML が%EQUIP_TARGET_ANAME(ARG:0)%の口内で舌を絡めとっている…
	CASE 6
		PRINTFORML は%EQUIP_TARGET_ANAME(ARG:0)%の口から一度離れ、間で出来た糸で遊んだ後また突き入れた…
	CASE 7
		PRINTFORML が%EQUIP_TARGET_ANAME(ARG:0)%の口内で、上顎を何度も舐め回している…
ENDSELECT

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP210(ARG:0)
PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%の口から触手を引き抜いた

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER210(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 125

;共通部分
CALL COM_ORDER(ARG:0)

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 1)
CALL COM_ORDER_ELEMENT(ARG:0, @"触手Lv{ABL:(ARG:0):触手}", ABL:(ARG:0):触手 * 5)
CALL COM_ORDER_ELEMENT(ARG:0, @"サドLv{ABL:(ARG:0):サド}", ABL:(ARG:0):サド * 1)

LOCAL:0 = GET_PALAMLV(PALAM:(ARG:0):欲情)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲情Lv{LOCAL:0}", MIN(LOCAL:0 * 1, 10))

IF TALENT:(ARG:0):大人しい
	CALL COM_ORDER_ELEMENT(ARG:0, "大人しい", -3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 3)
ENDIF
IF TALENT:(ARG:0):Ｓ気質
	CALL COM_ORDER_ELEMENT(ARG:0, "Ｓ気質", 6)
ENDIF

IF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド)
	CALL COM_ORDER_ELEMENT(ARG:0, "サド", 40)
ELSE
	IF ABL:(ARG:0):主導度Ｕ >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 15)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 10)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 5)
	ELSEIF ABL:(ARG:0):主導度Ｕ > -100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 0)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", -5)
	ENDIF

	IF ABL:(ARG:0):倒錯度 >= 800
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 20)
	ELSEIF ABL:(ARG:0):倒錯度 >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 15)
	ELSEIF ABL:(ARG:0):倒錯度 >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 10)
	ELSEIF ABL:(ARG:0):倒錯度 >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 5)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
	ENDIF
ENDIF

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE210
LOCAL:1 = 1
FOR LOCAL:0, 0, MTAR_NUM
	IF SEARCH_EQUIP(210, MPLY:0, MTAR:(LOCAL:0)) == -1
		LOCAL:1 = 0
	ENDIF
NEXT

IF MTAR_NUM >= 3
	LOCALS:0 = %ANAME(MTAR:0)%たち
	LOCALS:1 = 全員
ELSEIF MTAR_NUM == 2
	LOCALS:0 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	LOCALS:1 = 二人
ELSE
	LOCALS:0 = %ANAME(MTAR:0)%
	LOCALS:1 = %ANAME(MTAR:0)%
ENDIF

;ターゲット全員が既に触手口辱中なら分岐
IF LOCAL:1
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%の口に入れられた触手を前後させ、激しく喉奥を突い%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %LOCALS:0%は口に突き入れられた%ANAME(MPLY:0)%の触手に、まるでフェラをするかのようにむしゃぶりついている…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、触手で%LOCALS:0%の口をさらに犯すように命令した
			PRINTFORMW %ANAME(MPLY:0)%は言われるまま%LOCALS:0%の口に入れられた触手を前後させ、激しく喉奥を突いた…
	ENDSELECT

ELSE
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%の口に触手を無理やり押し込み、喉奥を犯し%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:0%は口を開け、%ANAME(MPLY:0)%に触手を口の中に突き込むように命令した
			PRINTFORMW %ANAME(MPLY:0)%は言われるまま%LOCALS:0%の口に触手を押し込み、喉の奥まで突き入れた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、触手で%LOCALS:0%の口を犯すように命令した
			PRINTFORMW %ANAME(MPLY:0)%は言われるまま%LOCALS:0%の口に触手を無理やり押し込み、喉奥を犯した…
	ENDSELECT
ENDIF

;-------------------------------------------------

;コマンド区分
;-------------------------------------------------

@COM_AVAILABLE_WHEN210
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_210()
RETURN POWER(2, 性的嗜好_触手で犯したい) + POWER(2, 性的嗜好_奉仕されたい)

@COM_PREFERENCE_TARGET_210()
RETURN POWER(2, 性的嗜好_触手で犯されたい) + POWER(2, 性的嗜好_奉仕したい)


code:
;触手オナニー

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME211
LOCALS:0 = 触手オナニー

RESULTS:0 = %LOCALS:0%見せつけ
RESULTS:1 = %LOCALS:0%させられる
RESULTS:2 = %LOCALS:0%させる
RESULTS:3 = %LOCALS:0%を見せつけられる
RESULTS:4 = %LOCALS:0%させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE211
;共通部分
CALL COM_ABLE_COMMON(211)
SIF RESULT == 0
	RETURN 0
;プレイヤーは1人以上
SIF MPLY_NUM <= 0
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0) && !FLAG:RECHECKING
	RETURN 0
;多対多は不可
SIF MPLY_NUM >= 2 && MTAR_NUM >= 2
	RETURN 0
;プレイヤーが触手召喚中でないなら不可
SIF !IS_EQUIP_PLAYER(MPLY:0, 200) && !HAS_TENTACLE(MPLY)
	RETURN 0
;todo. Should honestly be split into two actions
;全てのプレイヤーについて判定
FOR LOCAL:0, 0, MPLY_NUM
	;todo this action really needs to be split into penis masturbation and vaginal masturbation to make sense
	SIF !(HAS_VAGINA(MPLY:LOCAL) || (HAS_PENIS(MPLY:LOCAL) && P_STACKABLE(MPLY:0, MPLY:0, 211)))
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM211
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;●全てのプレイヤーについて処理
FOR LOCAL:0, 0, MPLY_NUM
	LOCAL:2 = MPLY:(LOCAL:0)

	EXP:(LOCAL:2):性技経験値 += 1
	EXP:(LOCAL:2):魔術経験値 += 1
	EXP:(LOCAL:2):触手経験値 += 2
	EXP:(LOCAL:2):自慰経験値 += 3

	SOURCE:(LOCAL:2):露出 = 1200 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 600)
	SOURCE:(LOCAL:2):触手 = 300 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 150)
	SOURCE:(LOCAL:2):逸脱 = 300 - (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 150)
	SOURCE:(LOCAL:2):性行動 = 240 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 120)

	LOCAL:3 = 400 + ABL:(LOCAL:2):魔術 * 4

	SELECTCASE ABL:(LOCAL:2):自慰
		CASE 0
			TIMES LOCAL:3, 1.00
		CASE 1
			TIMES LOCAL:3, 1.20
		CASE 2
			TIMES LOCAL:3, 1.50
		CASE 3
			TIMES LOCAL:3, 1.80
		CASE 4
			TIMES LOCAL:3, 2.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (420 + (ABL:(LOCAL:2):自慰 - 5)) / 200
	ENDSELECT

	IF HAS_PENIS(LOCAL:2)
		SOURCE:(LOCAL:2):快Ｐ = SENSE_HOUSHI_P(LOCAL:2, LOCAL:2, LOCAL:3 * 3 / 2) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 200)
	ELSE
		SOURCE:(LOCAL:2):快Ｃ = SENSE_HOUSHI(LOCAL:2, LOCAL:2, LOCAL:3) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 200)
		SOURCE:(LOCAL:2):快Ｂ = SENSE_HOUSHI(LOCAL:2, LOCAL:2, LOCAL:3 / 2) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 200)
	ENDIF

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 80, 120)

NEXT

;主導権の所在を取得
LOCAL:11 = GET_COM_INITIATIVE()

;●全てのターゲットについて処理
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)

	SOURCE:(LOCAL:1):触手 = 50
	SOURCE:(LOCAL:1):性行動 = 120

	;ターゲットに主導権
	IF LOCAL:11 == 1 || LOCAL:11 == 2
		SOURCE:(LOCAL:1):嗜虐 = 60
		;ターゲットに主導権がない
	ELSE
		SOURCE:(LOCAL:1):逸脱 = 150
		SOURCE:(LOCAL:1):恐怖 = MAX(200 - 30 * ABL:(LOCAL:1):欲望 - 60 * ABL:(LOCAL:1):触手, 0)
	ENDIF

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:1, 90, 90)
NEXT

;主導度変化基準値
TFLAG:主導度変化基準値 = 3

;倒錯度変化基準値
TFLAG:倒錯度変化基準値 = 4

;レズ・ＢＬ経験基準値
TFLAG:レズ・ＢＬ経験基準値 = 1

RETURN 1

;-------------------------------------------------
;継続コマンドかどうかを設定
;-------------------------------------------------
@COM_IS_EQUIP211
RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP211(ARG:0)
;●全プレイヤーについて処理
FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	LOCAL:2 = MEQUIP_PLAYER:(ARG:0):(LOCAL:0)

	EXP:(LOCAL:2):自慰経験値 += 1

	SOURCE:(LOCAL:2):露出 += 600 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 300)
	SOURCE:(LOCAL:2):触手 += 100 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 50)
	SOURCE:(LOCAL:2):逸脱 += 100 - (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 50)
	SOURCE:(LOCAL:2):性行動 += 80 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 40)

	LOCAL:3 = 400 + ABL:(LOCAL:2):魔術 * 4

	SELECTCASE ABL:(LOCAL:2):自慰
		CASE 0
			TIMES LOCAL:3, 1.00
		CASE 1
			TIMES LOCAL:3, 1.20
		CASE 2
			TIMES LOCAL:3, 1.50
		CASE 3
			TIMES LOCAL:3, 1.80
		CASE 4
			TIMES LOCAL:3, 2.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (420 + (ABL:(LOCAL:2):自慰 - 5)) / 200
	ENDSELECT

	IF HAS_PENIS(LOCAL:2)
		SOURCE:(LOCAL:2):快Ｐ = SENSE_HOUSHI_P(LOCAL:2, LOCAL:2, LOCAL:3 * 3 / 2)  + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 200)
	ELSE
		SOURCE:(LOCAL:2):快Ｃ = SENSE_HOUSHI(LOCAL:2, LOCAL:2, LOCAL:3) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 200)
		SOURCE:(LOCAL:2):快Ｂ = SENSE_HOUSHI(LOCAL:2, LOCAL:2, LOCAL:3 / 2) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 200)
	ENDIF

NEXT

;●全ターゲットについて処理
FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:2 = MEQUIP_TARGET:(ARG:0):(LOCAL:0)

	SOURCE:(LOCAL:2):性行動 += 40
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE211(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が触手オナニー中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP211(ARG:0)
LOCAL:1 = 1
FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	IF !HAS_PENIS(MEQUIP_PLAYER:(ARG:0):(LOCAL:0))
		LOCAL:1 = 0
	ENDIF
NEXT

;全員にペニスがある
IF LOCAL:1
	PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は自ら触手を操ってペニスを擦り上げている…
ELSE
	PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は自ら触手を操ってオナニーしている…
ENDIF

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP211(ARG:0)

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER211(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 115

;共通部分
CALL COM_ORDER(ARG:0)

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 3)
CALL COM_ORDER_ELEMENT(ARG:0, @"露出Lv{ABL:(ARG:0):露出}", ABL:(ARG:0):露出 * 4)
CALL COM_ORDER_ELEMENT(ARG:0, @"自慰Lv{ABL:(ARG:0):自慰}", ABL:(ARG:0):自慰 * 4)
CALL COM_ORDER_ELEMENT(ARG:0, @"触手Lv{ABL:(ARG:0):触手}", ABL:(ARG:0):触手 * 4)

LOCAL:0 = GET_PALAMLV(PALAM:(ARG:0):欲情)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲情Lv{LOCAL:0}", MIN(LOCAL:0 * 1, 10))

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -12)
ENDIF
IF TALENT:(ARG:0):恥薄い
	CALL COM_ORDER_ELEMENT(ARG:0, "恥薄い", 8)
ENDIF
IF TALENT:(ARG:0):自制心
	CALL COM_ORDER_ELEMENT(ARG:0, "自制心", -6)
ENDIF
IF TALENT:(ARG:0):目立ちたがり
	CALL COM_ORDER_ELEMENT(ARG:0, "目立ちたがり", 6)
ENDIF
IF TALENT:(ARG:0):自慰しやすい
	CALL COM_ORDER_ELEMENT(ARG:0, "自慰しやすい", 10)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -2)
ENDIF

IF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド) || GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_マゾ) || ABL:(ARG:0):倒錯度 >= 800
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 32)
ELSEIF ABL:(ARG:0):倒錯度 >= 500
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 24)
ELSEIF ABL:(ARG:0):倒錯度 >= 300
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 16)
ELSEIF ABL:(ARG:0):倒錯度 >= 100
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 8)
ELSE
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
ENDIF

IF !TALENT:(ARG:0):合意 && !TALENT:(ARG:0):親友
	CALL COM_ORDER_ELEMENT(ARG:0, "合意なし", -10)
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE211
;プレイヤーが竿あり・竿なし混合かどうかを判定
LOCAL:1 = 0
FOR LOCAL:0, 1, MPLY_NUM
	IF HAS_PENIS(MPLY:(LOCAL:0)) != HAS_PENIS(MPLY:0)
		LOCAL:0 = 1
		BREAK
	ENDIF
NEXT

IF MTAR_NUM == 1
	LOCALS:1 = %ANAME(MTAR:0)%
ELSEIF MTAR_NUM == 2
	LOCALS:1 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
ELSE
	LOCALS:1 = %ANAME(MTAR:0)%たち
ENDIF

IF MPLY_NUM == 1
	LOCALS:2 = %ANAME(MPLY:0)%
ELSEIF MPLY_NUM == 2
	LOCALS:2 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%
ELSE
	LOCALS:2 = %ANAME(MPLY:0)%たち
ENDIF

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		IF LOCAL:1
			PRINTFORMW %LOCALS:2%は、自らの触手を操ってオナニーする様子を%LOCALS:1%に見せつけ%TARGET_STR("た", "てきた")%…
		ELSEIF HAS_PENIS(MPLY:0)
			PRINTFORMW %LOCALS:2%は、自らの触手をペニスに巻きつけて擦り上げる様子を%LOCALS:1%に見せつけ%TARGET_STR("た", "てきた")%…
		ELSE
			PRINTFORMW %LOCALS:2%は、自らの触手を自身の体に絡めてオナニーする様子を%LOCALS:1%に見せつけ%TARGET_STR("た", "てきた")%…
		ENDIF
		;ターゲットに主導権
	CASE 1
		PRINTFORML %LOCALS:1%は%LOCALS:2%に、自分の触手でオナニーするように命令した
		IF LOCAL:1
			PRINTFORMW %LOCALS:2%は言われるまま、%LOCALS:1%の目の前で自らの触手を使ってオナニーした…
		ELSEIF HAS_PENIS(MPLY:0)
			PRINTFORMW %LOCALS:2%は言われるまま、%LOCALS:1%の目の前で自らの触手をペニスに巻きつけてシゴき上げた…
		ELSE
			PRINTFORMW %LOCALS:2%は言われるまま、%LOCALS:1%の目の前で自らの触手を自身の体に絡めてオナニーした…
		ENDIF
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:2%に、%LOCALS:1%の目の前で触手オナニーするように命令した
		IF LOCAL:1
			PRINTFORMW %LOCALS:2%は言われるまま、自らの触手を使ってオナニーした…
		ELSEIF HAS_PENIS(MPLY:0)
			PRINTFORMW %LOCALS:2%は言われるまま、自らの触手をペニスに巻きつけてシゴき上げた…
		ELSE
			PRINTFORMW %LOCALS:2%は言われるまま、自らの触手を自身の体に絡めてオナニーした…
		ENDIF
ENDSELECT

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST211

;-------------------------------------------------

;コマンド区分
;-------------------------------------------------

@COM_AVAILABLE_WHEN211
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_211()
RETURN POWER(2, 性的嗜好_触手で犯したい) + POWER(2, 性的嗜好_露出したい)

@COM_PREFERENCE_TARGET_211()
RETURN POWER(2, 性的嗜好_触手で犯されたい)

@COM_STACK_SPERM_MPLY_TO_MPLY_211()
RETURN 射精部位_触手


code:
;触手産卵

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME212
LOCALS:0 = 触手産卵

RESULTS:0 = %LOCALS:0%する
RESULTS:1 = %LOCALS:0%させられる
RESULTS:2 = %LOCALS:0%させる
RESULTS:3 = %LOCALS:0%される
RESULTS:4 = %LOCALS:0%させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE212
;共通部分
CALL COM_ABLE_COMMON(212)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0) && !FLAG:RECHECKING
	RETURN 0
;プレイヤーが触手召喚中でないなら不可
SIF !IS_EQUIP_PLAYER(MPLY:0, 200) && !HAS_TENTACLE(MPLY)
	RETURN 0
;全てのターゲットについて判定
FOR LOCAL:0, 0, MTAR_NUM
	;Ｖが必要
	SIF !HAS_VAGINA(MTAR:(LOCAL:0), 1)
		RETURN 0
	;ターゲットのＶが塞がっているなら不可(プレイヤーからターゲットへの触手挿入中は可)
	SIF IS_V_HOLD(MTAR:(LOCAL:0)) && SEARCH_EQUIP(201, MPLY:0, MTAR:(LOCAL:0)) == -1
		RETURN 0
	;既に触手妊娠中なら不可
	SIF TALENT:(MTAR:(LOCAL:0)):触手妊娠 && !FLAG:RECHECKING
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM212
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;●プレイヤーについて処理
EXP:(MPLY:0):性技経験値 += 1
EXP:(MPLY:0):魔術経験値 += 1
EXP:(MPLY:0):触手経験値 += 1

SOURCE:(MPLY:0):嗜虐 = 100
SOURCE:(MPLY:0):逸脱 = 150
SOURCE:(MPLY:0):触手 = 200
SOURCE:(MPLY:0):性行動 = 180

;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MPLY:0, 170, 30)

;●全てのターゲットについて処理
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)

	EXP:(LOCAL:2):触手経験値 += 2

	SOURCE:(LOCAL:2):快Ｖ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 500 + ABL:(MPLY:0):魔術 * 6) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 1000)
	SOURCE:(LOCAL:2):逸脱 = 1000 - (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 500)
	SOURCE:(LOCAL:2):触手 = 1500 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 1500)
	SOURCE:(LOCAL:2):性行動 = 450 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 450)

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 60, 120)

	;基本処理
	CALL COM_COMMON212(LOCAL:2)

	TALENT:(LOCAL:2):触手妊娠 = 1

	;触手Ｖ産卵したキャラのIDを記録
	CFLAG:(LOCAL:2):触手産卵実行者 = GET_ID(MPLY:0)

	CALL VIRGIN_COMMON(LOCAL:2, "触手", GET_SITUATION_BY_TRAIN_MODE())

	IF TALENT:(LOCAL:2):処女
		IF MPLY:0 == MASTER
			;処女喪失フラグ(主人に性交以外で奪われる)
			TCVAR:(LOCAL:2):処女喪失フラグ = 2
		ELSE
			;処女喪失フラグ(主人以外に性交以外で奪われる)
			TCVAR:(LOCAL:2):処女喪失フラグ = 4
		ENDIF
	ENDIF
NEXT

;主導度変化基準値
TFLAG:主導度変化基準値 = 2

;倒錯度変化基準値
TFLAG:倒錯度変化基準値 = 10

;レズ・ＢＬ経験基準値
TFLAG:レズ・ＢＬ経験基準値 = 1

RETURN 1

;--------------------------------------------------------
;ターゲットに対する諸々の処理
;--------------------------------------------------------
@COM_COMMON212(ARG:0)
SELECTCASE ABL:(ARG:0):Ｖ感
	CASE 0
		SOURCE:(ARG:0):苦痛 += 450
	CASE 1
		SOURCE:(ARG:0):苦痛 += 150
	CASE 2
		SOURCE:(ARG:0):苦痛 += 45
ENDSELECT

IF PALAM:(ARG:0):潤滑 < PALAMLV:1
	TIMES SOURCE:(ARG:0):快Ｖ, 0.05
	SOURCE:(ARG:0):苦痛 = SOURCE:(ARG:0):苦痛 * 4 + 1000
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:3
	TIMES SOURCE:(ARG:0):快Ｖ, 0.20
	SOURCE:(ARG:0):苦痛 = SOURCE:(ARG:0):苦痛 * 2 + 300
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:5
	TIMES SOURCE:(ARG:0):快Ｖ, 0.60
	TIMES SOURCE:(ARG:0):苦痛, 1.00
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:7
	TIMES SOURCE:(ARG:0):快Ｖ, 0.85
	TIMES SOURCE:(ARG:0):苦痛, 0.70
ELSE
	TIMES SOURCE:(ARG:0):快Ｖ, 1.00
	TIMES SOURCE:(ARG:0):苦痛, 0.50
ENDIF

IF TALENT:(ARG:0):体格 == 体格_小柄
	TIMES SOURCE:(ARG:0):苦痛, 1.50
ENDIF

IF TALENT:(ARG:0):処女 == 1
	SOURCE:(ARG:0):苦痛 = SOURCE:(ARG:0):苦痛 * 2 + 500
ENDIF

IF ARG:0 != MASTER
	IF !(TALENT:(ARG:0):恋慕 || TALENT:(ARG:0):親友)
		IF TALENT:(ARG:0):貞操観念
			IF TALENT:(ARG:0):処女
				SOURCE:(ARG:0):反感 = 5000
			ELSE
				SOURCE:(ARG:0):反感 = 1000
			ENDIF
		ELSEIF TALENT:(ARG:0):貞操無頓着
			IF TALENT:(ARG:0):処女
				SOURCE:(ARG:0):反感 = 300
			ENDIF
		ELSE
			IF TALENT:(ARG:0):処女
				SOURCE:(ARG:0):反感 = 2500
			ENDIF
		ENDIF
		IF TALENT:(ARG:0):恋人
			TIMES SOURCE:(ARG:0):反感, 0.10
		ENDIF
	ENDIF

	;好感度・従属度・支配度の影響
	LOCAL:0 = MAX(CFLAG:(ARG:0):好感度, CFLAG:(ARG:0):従属度, CFLAG:(ARG:0):支配度)
	IF LOCAL:0 < 100
		TIMES SOURCE:(ARG:0):反感, 1.00
	ELSEIF LOCAL:0 < 300
		TIMES SOURCE:(ARG:0):反感, 0.90
	ELSEIF LOCAL:0 < 500
		TIMES SOURCE:(ARG:0):反感, 0.80
	ELSEIF LOCAL:0 < 800
		TIMES SOURCE:(ARG:0):反感, 0.40
	ELSEIF LOCAL:0 < 1500
		TIMES SOURCE:(ARG:0):反感, 0.15
	ELSE
		SOURCE:(ARG:0):反感 = SOURCE:(ARG:0):反感 / ((LOCAL:0 - 1500) / 50 + 10)
	ENDIF
ENDIF

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER212(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 150

;共通部分
CALL COM_ORDER(ARG:0)

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"奉仕Lv{ABL:(ARG:0):奉仕}", ABL:(ARG:0):奉仕 * 3)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):触手}", ABL:(ARG:0):触手 * 6)

LOCAL:0 = GET_PALAMLV(PALAM:(ARG:0):欲情)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲情Lv{LOCAL:0}", MIN(LOCAL:0 * 1, 10))

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
ENDIF
IF TALENT:(ARG:0):好奇心
	CALL COM_ORDER_ELEMENT(ARG:0, "好奇心", 2)
ENDIF
IF TALENT:(ARG:0):保守的
	CALL COM_ORDER_ELEMENT(ARG:0, "保守的", -7)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 4)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -2)
ENDIF

IF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド) || GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_マゾ) || ABL:(ARG:0):倒錯度 >= 800
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 32)
ELSEIF ABL:(ARG:0):倒錯度 >= 500
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 24)
ELSEIF ABL:(ARG:0):倒錯度 >= 300
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 16)
ELSEIF ABL:(ARG:0):倒錯度 >= 100
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 8)
ELSE
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
ENDIF

IF !TALENT:(ARG:0):合意 && !TALENT:(ARG:0):親友
	CALL COM_ORDER_ELEMENT(ARG:0, "合意なし", -10)
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE212
LOCAL:1 = 1
FOR LOCAL:0, 0, MTAR_NUM
	IF SEARCH_EQUIP(201, MPLY:0, MTAR:(LOCAL:0)) == -1
		LOCAL:1 = 0
	ENDIF
NEXT

;全員が既に触手挿入中なら分岐
IF LOCAL:1
	;継続中の地の文をカット
	FOR LOCAL:0, 0, MTAR_NUM
		LOCAL:2 = SEARCH_EQUIP(201, MPLY:0, MTAR:(LOCAL:0))
		IF LOCAL:2 >= 0
			MEQUIP_CUT:(LOCAL:2) = 1
		ENDIF
	NEXT

	IF MTAR_NUM >= 3
		LOCALS:1 = %ANAME(MTAR:0)%たち
		LOCALS:2 = 一斉に
	ELSEIF MTAR_NUM == 2
		LOCALS:1 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
		LOCALS:2 =
	ELSE
		LOCALS:1 = %ANAME(MTAR:0)%
		LOCALS:2 =
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORML %LOCALS:1%の中に挿入された触手が一際大きく震えると、%LOCALS:1%の膣内に卵を吐き出した
			;耐性付いてないと嫌がる
			IF (TCVAR:(MTAR:0):失神フラグ) || (TCVAR:(MTAR:0):離脱フラグ == 1)
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM 触手は意識のない%LOCALS:1%の開発されきった
				ELSE
					PRINTFORM 触手は意識のない%LOCALS:1%の
				ENDIF
			ELSEIF TCVAR:(MTAR:0):行動不能フラグ
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM 触手は疲れて身を任せている%LOCALS:1%の開発されきった
				ELSEIF ABL:(MTAR:0):触手 >= 3
					PRINTFORM 触手は疲れてぐったりとした%LOCALS:1%の
				ELSE
					PRINTFORM 触手は身動きのとれぬまま\@ RAND:2 ? 涙目で抗議 # 必死に首を振って抵抗 \@する%LOCALS:1%の
				ENDIF
			ELSE
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM 触手は%LOCALS:1%の開発されきった
				ELSEIF ABL:(MTAR:0):触手 >= 3
					PRINTFORM 触手は%LOCALS:1%の
				ELSE
					PRINTFORM 触手は\@ RAND:2 ? 涙目で抵抗 # 必死に抵抗 \@する%LOCALS:1%の
				ENDIF
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:13
				CASE 0
					PRINTW 膣内に次々と卵を産みつけていった…
				CASE 1
					PRINTW 胎内に大きな卵を数個産み落とした…
				CASE 2
					PRINTW 膣内に粘着質の膜が張った卵を産み落とした…
				CASE 3
					PRINTW 子宮深くに産卵を行った…
				CASE 4
					PRINTW 膣内に触手の種子を産み付けた…
				CASE 5
					PRINTW 子宮深くに小さな卵核を産み落とした…
				CASE 6
					PRINTW 膣内に触手の種子を一つ一つ押し込んでいった…
				CASE 7
					PRINTW 子宮に粘りつく液体と共に卵を流し込んだ…
				CASE 8
					PRINTW 膣内に無数の白濁した、小さな卵を流し込んだ…
				CASE 9
					PRINTW 膣内に鼓動する卵を流し込んだ…
				CASE 10
					PRINTW 膣内へ生殖液と卵を流し込んだ…
				CASE 11
					PRINTW 白濁した液体と卵を膣内へ押し込んだ…
				CASE 12
					PRINTW 卵の元となる妖力を子宮へ零れ落ちるほど流し込んだ…
			ENDSELECT
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に対して、自身の膣内に挿入された触手に産卵させるように命令した
			;耐性付いてないと嫌がる
			IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
				PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の開発された
			ELSEIF ABL:(MTAR:0):触手 >= 3
				PRINTFORM %ANAME(MPLY:0)%は触手を操って、%LOCALS:1%の
			ELSE
				PRINTFORM %ANAME(MPLY:0)%は触手を操って、嫌がる%LOCALS:1%の
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:13
				CASE 0
					PRINTW 膣内に次々と卵を産みつけていった…
				CASE 1
					PRINTW 胎内に大きな卵を数個産み落とした…
				CASE 2
					PRINTW 膣内に粘着質の膜が張った卵を産み落とした…
				CASE 3
					PRINTW 子宮深くに産卵を行った…
				CASE 4
					PRINTW 膣内に触手の種子を産み付けた…
				CASE 5
					PRINTW 子宮深くに小さな卵核を産み落とした…
				CASE 6
					PRINTW 膣内に触手の種子を一つ一つ押し込んでいった…
				CASE 7
					PRINTW 子宮に粘りつく液体と共に卵を流し込んだ…
				CASE 8
					PRINTW 膣内に無数の白濁した、小さな卵を流し込んだ…
				CASE 9
					PRINTW 膣内に鼓動する卵を流し込んだ…
				CASE 10
					PRINTW 膣内へ生殖液と卵を流し込んだ…
				CASE 11
					PRINTW 白濁した液体と卵を膣内へ押し込んだ…
				CASE 12
					PRINTW 卵の元となる妖力を子宮へ零れ落ちるほど流し込んだ…
			ENDSELECT
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、%LOCALS:1%の膣内に触手の卵を産み付けるように命令した
			;耐性付いてないと嫌がる
			IF (TCVAR:(MTAR:0):失神フラグ) || (TCVAR:(MTAR:0):離脱フラグ == 1)
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM %ANAME(MPLY:0)%は触手を操って、意識のない%LOCALS:1%の開発されきった
				ELSE
					PRINTFORM %ANAME(MPLY:0)%は触手を操って、意識のない%LOCALS:1%の
				ENDIF
			ELSEIF TCVAR:(MTAR:0):行動不能フラグ
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM %ANAME(MPLY:0)%は触手を操って、疲れて身を任せている%LOCALS:1%の開発されきった
				ELSEIF ABL:(MTAR:0):触手 >= 3
					PRINTFORM %ANAME(MPLY:0)%は触手を操って、疲れて身動きのとれぬ%LOCALS:1%の
				ELSE
					PRINTFORM %ANAME(MPLY:0)%は触手を操って、身動きのとれぬまま\@ RAND:2 ? 涙目で抗議 # 必死に首を振って抵抗 \@する%LOCALS:1%の
				ENDIF
			ELSE
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の開発された
				ELSEIF ABL:(MTAR:0):触手 >= 3
					PRINTFORM %ANAME(MPLY:0)%は触手を操って、%LOCALS:1%の
				ELSE
					PRINTFORM %ANAME(MPLY:0)%は触手を操って、\@ RAND:2 ? 涙目で抵抗 # 必死に抵抗 \@する%LOCALS:1%の
				ENDIF
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:13
				CASE 0
					PRINTW 膣内に次々と卵を産みつけていった…
				CASE 1
					PRINTW 胎内に大きな卵を数個産み落とした…
				CASE 2
					PRINTW 膣内に粘着質の膜が張った卵を産み落とした…
				CASE 3
					PRINTW 子宮深くに産卵を行った…
				CASE 4
					PRINTW 膣内に触手の種子を産み付けた…
				CASE 5
					PRINTW 子宮深くに小さな卵核を産み落とした…
				CASE 6
					PRINTW 膣内に触手の種子を一つ一つ押し込んでいった…
				CASE 7
					PRINTW 子宮に粘りつく液体と共に卵を流し込んだ…
				CASE 8
					PRINTW 膣内に無数の白濁した、小さな卵を流し込んだ…
				CASE 9
					PRINTW 膣内に鼓動する卵を流し込んだ…
				CASE 10
					PRINTW 膣内へ生殖液と卵を流し込んだ…
				CASE 11
					PRINTW 白濁した液体と卵を膣内へ押し込んだ…
				CASE 12
					PRINTW 卵の元となる妖力を子宮へ零れ落ちるほど流し込んだ…
			ENDSELECT
	ENDSELECT
ELSE
	IF MTAR_NUM >= 3
		LOCALS:0 = 秘唇
		LOCALS:1 = %ANAME(MTAR:0)%たち
		LOCALS:2 = 一斉に
		LOCALS:3 = 全員の
	ELSEIF MTAR_NUM == 2
		LOCALS:0 = 秘唇
		LOCALS:1 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
		LOCALS:2 =
		LOCALS:3 = 二人の
	ELSE
		IF IS_PIERCED(MTAR:0, ピアス_ラビア)
			LOCALS:0 = ピアスの取り付けられた
		ELSE
			LOCALS:0 =
		ENDIF

		IF TALENT:(MTAR:0):処女 == 1
			LOCALS:0 = %LOCALS:0%まだ乙女の
		ENDIF

		IF PALAM:(MTAR:0):潤滑 >= PALAMLV:7
			LOCALS:0 = %LOCALS:0%すっかり濡れて光る
		ENDIF
		IF IS_OVULATION(MTAR:0)
			LOCALS:0 = %LOCALS:0%危険日の
		ENDIF

		IF TALENT:(MTAR:0):体格 == 体格_小柄
			LOCALS:0 = %LOCALS:0%小さなワレメ
		ELSE
			LOCALS:0 = %LOCALS:0%秘裂
		ENDIF

		LOCALS:1 = %ANAME(MTAR:0)%
		LOCALS:2 =
		LOCALS:3 = 自身の
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			;先に差し込んでない時は適当に犯す
			SELECTCASE RAND:13
				CASE 0
					PRINTFORML %ANAME(MPLY:0)%の触手を操って、%LOCALS:1%の%LOCALS:0%に%LOCALS:2%挿入した
				CASE 1
					PRINTFORML %ANAME(MPLY:0)%の触手で%LOCALS:1%を\@ RAND:2 ? 逆さ吊り # 宙吊り \@にし、%LOCALS:0%に触手を%LOCALS:2%挿入させた
				CASE 2
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%の体を宙に固定し、%LOCALS:0%に触手を%LOCALS:2%挿入した
				CASE 3
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%を仰向けにすると、生殖用の触手を%LOCALS:0%に%LOCALS:2%挿入させた
				CASE 4
					PRINTFORML %ANAME(MPLY:0)%の触手で%LOCALS:1%の股を開かせると、突き上げるように%LOCALS:0%に触手を%LOCALS:2%挿入させた
				CASE 5
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%を壁に追い詰め、%LOCALS:0%に触手を%LOCALS:2%挿入した
				CASE 6
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%の股間を何度も撫上げると、そのままするりと%LOCALS:0%に触手を%LOCALS:2%挿入させた
				CASE 7
					PRINTFORML %ANAME(MPLY:0)%は触手を%LOCALS:1%の股に擦りつけ、ねっとりと%LOCALS:0%に触手を%LOCALS:2%挿入させた
				CASE 8
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%を組み伏せると、%LOCALS:0%に\@ RAND:2 ? 無理やり # 優しく \@触手を%LOCALS:2%挿入させた
				CASE 9
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%の自由を奪うと、強引に産卵管を%LOCALS:0%に%LOCALS:2%挿入させた
				CASE 10
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%を抱き上げると、産卵管を%LOCALS:0%に%LOCALS:2%挿入した
				CASE 11
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%の四肢を固定すると、太い触手を%LOCALS:0%に%LOCALS:2%挿入した
				CASE 12
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%の%LOCALS:0%を何度も弄んだあと、先端を%LOCALS:2%挿入した
			ENDSELECT
			;耐性付いてないと嫌がる
			IF (TCVAR:(MTAR:0):失神フラグ) || (TCVAR:(MTAR:0):離脱フラグ == 1)
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM さらに触手は意識のない%LOCALS:1%の開発されきった
				ELSE
					PRINTFORM さらに触手は意識のない%LOCALS:1%の
				ENDIF
			ELSEIF TCVAR:(MTAR:0):行動不能フラグ
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM 触手は疲れて身を任せている%LOCALS:1%の開発されきった
				ELSEIF ABL:(MTAR:0):触手 >= 3
					PRINTFORM 触手は疲れてぐったりとした%LOCALS:1%の
				ELSE
					PRINTFORM 触手は身動きのとれぬまま\@ RAND:2 ? 涙目で抗議 # 必死に首を振って抵抗 \@する%LOCALS:1%の
				ENDIF
			ELSE
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM さらに触手は大人しくしている%LOCALS:1%の
				ELSEIF ABL:(MTAR:0):触手 >= 3
					PRINTFORM さらに触手は%LOCALS:1%の
				ELSE
					PRINTFORM 触手は\@ RAND:2 ? 涙目で抵抗 # 必死に抵抗 \@する%LOCALS:1%を押さえつけると、無理やり
				ENDIF
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:13
				CASE 0
					PRINTW 膣内に次々と卵を産みつけていった…
				CASE 1
					PRINTW 胎内に大きな卵を数個産み落とした…
				CASE 2
					PRINTW 膣内に粘着質の膜が張った卵を産み落とした…
				CASE 3
					PRINTW 子宮深くに産卵を行った…
				CASE 4
					PRINTW 膣内に触手の種子を産み付けた…
				CASE 5
					PRINTW 子宮深くに小さな卵核を産み落とした…
				CASE 6
					PRINTW 膣内に触手の種子を一つ一つ押し込んでいった…
				CASE 7
					PRINTW 子宮に粘りつく液体と共に卵を流し込んだ…
				CASE 8
					PRINTW 膣内に無数の白濁した、小さな卵を流し込んだ…
				CASE 9
					PRINTW 膣内に鼓動する卵を流し込んだ…
				CASE 10
					PRINTW 膣内で生殖液を混ぜて卵を作り出した…
				CASE 11
					PRINTW 白濁した液体と卵を膣内へ押し込んだ…
				CASE 12
					PRINTW 卵の元となる妖力を子宮へ零れ落ちるほど流し込んだ…
			ENDSELECT
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に対して、自身の膣内に触手の卵を産み付けるように命令した
			;耐性付いてないと嫌がる
			IF ABL:(MTAR:0):触手 >= 3
				PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の膣に%LOCALS:2%挿入すると、%LOCALS:1%の胎内
			ELSE
				PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の膣に%LOCALS:2%挿入すると、嫌がる%LOCALS:1%の胎内
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:13
				CASE 0
					PRINTW に大量の卵を産みつけさせた…
				CASE 1
					PRINTW に大きな卵を数個産み落とさせた…
				CASE 2
					PRINTW に粘着質の膜が張った卵を産み落とさせた…
				CASE 3
					PRINTW 深くに産卵を行わせた…
				CASE 4
					PRINTW に触手の種子を産み付けさせた…
				CASE 5
					PRINTW 深くに小さな卵核を産み落とさせた…
				CASE 6
					PRINTW に触手の種子を一つ一つ押し込ませた…
				CASE 7
					PRINTW に粘りつく液体と共に卵を流し込ませた…
				CASE 8
					PRINTW に無数の白濁した、小さな卵を流し込ませた…
				CASE 9
					PRINTW に鼓動する卵を流し込ませた…
				CASE 10
					PRINTW で生殖液を混ぜて卵を作り出させた…
				CASE 11
					PRINTW 白濁した液体と卵を膣内へ押し込んだ…
				CASE 12
					PRINTW 卵の元となる妖力を子宮へ零れ落ちるほど流し込んだ…
			ENDSELECT
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、%LOCALS:1%の膣内に触手の卵を産み付けるように命令した
			;耐性付いてないと嫌がる
			IF (TCVAR:(MTAR:0):失神フラグ) || (TCVAR:(MTAR:0):離脱フラグ == 1)
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM %ANAME(MPLY:0)%は触手を意識のない%LOCALS:1%の膣に%LOCALS:2%挿入すると、%LOCALS:1%の開発された胎内
				ELSE
					PRINTFORM %ANAME(MPLY:0)%は触手を意識のない%LOCALS:1%の膣に%LOCALS:2%挿入すると、%LOCALS:1%の胎内
				ENDIF
			ELSEIF TCVAR:(MTAR:0):行動不能フラグ
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM %ANAME(MPLY:0)%は触手を疲れて身を任せている%LOCALS:1%の開発されきった膣に%LOCALS:2%挿入すると、%LOCALS:1%の胎内
				ELSEIF ABL:(MTAR:0):触手 >= 3
					PRINTFORM %ANAME(MPLY:0)%は触手を疲れて身動きのとれぬ%LOCALS:1%の膣に%LOCALS:2%挿入すると、%LOCALS:1%の胎内
				ELSE
					PRINTFORM %ANAME(MPLY:0)%は触手を身動きのとれぬまま\@ RAND:2 ? 涙目で抗議 # 必死に首を振って抵抗 \@する%LOCALS:1%の膣に%LOCALS:2%挿入すると、%LOCALS:1%の胎内
				ENDIF
			ELSE
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
					PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の開発された
				ELSEIF ABL:(MTAR:0):触手 >= 3
					PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の膣に%LOCALS:2%挿入すると、%LOCALS:1%の
				ELSE
					PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の膣に%LOCALS:2%挿入すると、\@ RAND:2 ? 涙目で抵抗 # 必死に抵抗 \@する%LOCALS:1%の
				ENDIF
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:13
				CASE 0
					PRINTW に大量の卵を産みつけさせた…
				CASE 1
					PRINTW に大きな卵を数個産み落とさせた…
				CASE 2
					PRINTW に粘着質の膜が張った卵を産み落とさせた…
				CASE 3
					PRINTW 深くに産卵を行わせた…
				CASE 4
					PRINTW に触手の種子を産み付けさせた…
				CASE 5
					PRINTW 深くに小さな卵核を産み落とさせた…
				CASE 6
					PRINTW に触手の種子を一つ一つ押し込ませた…
				CASE 7
					PRINTW に粘りつく液体と共に卵を流し込ませた…
				CASE 8
					PRINTW に無数の白濁した、小さな卵を流し込ませた…
				CASE 9
					PRINTW に鼓動する卵を流し込ませた…
				CASE 10
					PRINTW で生殖液を混ぜて卵を作り出させた…
				CASE 11
					PRINTW 白濁した液体と卵を膣内へ押し込んだ…
				CASE 12
					PRINTW 卵の元となる妖力を子宮へ零れ落ちるほど流し込んだ…
			ENDSELECT
	ENDSELECT
ENDIF

SETCOLOR カラー_注意
FOR LOCAL:0, 0, MTAR_NUM
	PRINTFORML %ANAME(MTAR:(LOCAL:0))%は触手の子を胎内に宿しました
NEXT
RESETCOLOR

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST212
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)

	IF (LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)
		IF (TCVAR:(MTAR:0):失神フラグ) || (TCVAR:(MTAR:0):離脱フラグ == 1)
			IF GETBIT(TALENT:(LOCAL:1):淫乱系, 素質_淫乱_苗床)
				PRINTFORMW %ANAME(LOCAL:1)%は意識が無いにも拘らず、熱っぽい吐息を漏らして恍惚とした表情で触手の産卵を受け入れている
			ELSEIF ABL:(LOCAL:1):触手 >= 3
				PRINTFORMW 徐々に異形の子供を孕むことに慣れてきた%ANAME(LOCAL:1)%は、意識のないままゾクゾクと体を震わせている
			ELSE
				PRINTFORMW 意識のないままの%ANAME(LOCAL:1)%の身体は、子宮に産み付けられた異形の子の蠢く感触に身震いしている
			ENDIF
		ELSE
			IF GETBIT(TALENT:(LOCAL:1):淫乱系, 素質_淫乱_苗床)
				PRINTFORMW %ANAME(LOCAL:1)%はすっかり陶酔しきった表情で、触手の産卵を受け入れている
			ELSEIF ABL:(LOCAL:1):触手 >= 3
				PRINTFORMW %ANAME(LOCAL:1)%は異形に孕まされる倒錯感に、ゾクゾクと体を震わせている
			ELSE
				PRINTFORMW %ANAME(LOCAL:1)%は異形の子を産み付けられた恐怖とショックで青ざめている
			ENDIF
		ENDIF
	ENDIF
NEXT

IF (LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)
	PRINTFORM 膣から粘液にまみれた触手を引き抜くと%ANAME(LOCAL:1)%

	LOCALS:3 = %TOSTR_EMOTION(LOCAL:1)%

	SELECTCASE RAND:7
		CASE 0
			IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
				PRINTW はフーフーと呼吸を繰り返している…
			ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂", "鬱", "恐", "怯")
				PRINTW は荒い呼吸を繰り返している…
			ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂")
				PRINTW は呆然と虚空を見続けている…
			ELSE
				PRINTW は荒い呼吸を繰り返している…
			ENDIF
		CASE 1
			PRINTW と触手の間には半透明な糸の橋が出来上がった…
		CASE 2
			PRINTW のお腹は大きく膨れ上がっていた…
		CASE 3
			PRINTW の膣口からはごぽりと雫が漏れ落ちた…
		CASE 4
			PRINTW の膣からはずるりと卑猥な水音が響いた…
		CASE 5
			PRINTW はくたりと地面に倒れ付した…
		CASE 6
			IF ABL:(LOCAL:1):触手 >= 3
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTW は柔らかい表情で自分のお腹を撫でている…
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTW は黙って自分のお腹を撫でている…
				ELSEIF GROUPMATCH(LOCALS:3, "鬱", "悲", "憂", "恐", "怯")
					PRINTW は複雑な表情で自分のお腹を撫でている…
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚")
					PRINTW は呆然として自分のお腹を摩っている…
				ELSE
					PRINTW は呆然として自分のお腹を摩っている…
				ENDIF
			ELSE
				PRINTW は呆然と自分のお腹を摩っている…
			ENDIF
	ENDSELECT
ENDIF

;-------------------------------------------------

;コマンド区分
;-------------------------------------------------

@COM_AVAILABLE_WHEN212
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_212()
RETURN POWER(2, 性的嗜好_触手で犯したい) + POWER(2, 性的嗜好_虐げたい)

@COM_PREFERENCE_TARGET_212()
RETURN POWER(2, 性的嗜好_触手で犯されたい) + POWER(2, 性的嗜好_虐げられたい) + POWER(2, 性的嗜好_妊娠したい)


code:
;触手Ａ産卵

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME213
LOCALS:0 = 触手Ａ産卵

RESULTS:0 = %LOCALS:0%する
RESULTS:1 = %LOCALS:0%させられる
RESULTS:2 = %LOCALS:0%させる
RESULTS:3 = %LOCALS:0%される
RESULTS:4 = %LOCALS:0%させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE213
;共通部分
CALL COM_ABLE_COMMON(213)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0) && !FLAG:RECHECKING
	RETURN 0
;プレイヤーが触手召喚中でないなら不可
SIF !IS_EQUIP_PLAYER(MPLY:0, 200) && !HAS_TENTACLE(MPLY)
	RETURN 0
;全てのターゲットについて判定
FOR LOCAL:0, 0, MTAR_NUM
	;ターゲットのＡが塞がっているなら不可(プレイヤーからターゲットへの触手Ａ挿入中は可)
	SIF IS_A_HOLD(MTAR:(LOCAL:0)) && SEARCH_EQUIP(202, MPLY:0, MTAR:(LOCAL:0)) == -1
		RETURN 0
	;既にＡ触手妊娠中なら不可
	SIF TALENT:(MTAR:(LOCAL:0)):Ａ触手妊娠 && !FLAG:RECHECKING
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM213
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;●プレイヤーについて処理
EXP:(MPLY:0):性技経験値 += 1
EXP:(MPLY:0):魔術経験値 += 1
EXP:(MPLY:0):触手経験値 += 1

SOURCE:(MPLY:0):嗜虐 = 150
SOURCE:(MPLY:0):逸脱 = 200
SOURCE:(MPLY:0):触手 = 200
SOURCE:(MPLY:0):性行動 = 180

;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MPLY:0, 170, 30)

;●全てのターゲットについて処理
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)

	EXP:(LOCAL:2):触手経験値 += 2

	SOURCE:(LOCAL:2):快Ａ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 500 + ABL:(MPLY:0):魔術 * 6) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 1000)
	SOURCE:(LOCAL:2):逸脱 = 1100 - (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 550)
	SOURCE:(LOCAL:2):触手 = 1500 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 1500)
	SOURCE:(LOCAL:2):性行動 = 240 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 240)

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 60, 140)

	;基本処理
	CALL COM_COMMON213(LOCAL:2)

	TALENT:(LOCAL:2):Ａ触手妊娠 = 1

	;触手Ａ産卵したキャラのIDを記録
	CFLAG:(LOCAL:2):触手Ａ産卵実行者 = GET_ID(MPLY:0)
	CALL VIRGIN_COMMON_A(LOCAL:2, "触手", GET_SITUATION_BY_TRAIN_MODE())

NEXT

;主導度変化基準値
TFLAG:主導度変化基準値 = 2

;倒錯度変化基準値
TFLAG:倒錯度変化基準値 = 10

;レズ・ＢＬ経験基準値
TFLAG:レズ・ＢＬ経験基準値 = 1

RETURN 1

;--------------------------------------------------------
;ターゲットに対する諸々の処理
;--------------------------------------------------------
@COM_COMMON213(ARG:0)
SELECTCASE ABL:(ARG:0):Ａ感
	CASE 0
		SOURCE:(ARG:0):苦痛 += 1800
	CASE 1
		SOURCE:(ARG:0):苦痛 += 750
	CASE 2
		SOURCE:(ARG:0):苦痛 += 300
	CASE 3
		SOURCE:(ARG:0):苦痛 += 120
	CASE 4
		SOURCE:(ARG:0):苦痛 += 45
ENDSELECT

IF PALAM:(ARG:0):潤滑 < PALAMLV:1
	TIMES SOURCE:(ARG:0):快Ａ, 0.05
	SOURCE:(ARG:0):苦痛 = SOURCE:(ARG:0):苦痛 * 3 + 1000
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:3
	TIMES SOURCE:(ARG:0):快Ａ, 0.20
	SOURCE:(ARG:0):苦痛 = SOURCE:(ARG:0):苦痛 * 3 / 2 + 300
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:5
	TIMES SOURCE:(ARG:0):快Ａ, 0.60
	TIMES SOURCE:(ARG:0):苦痛, 1.00
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:7
	TIMES SOURCE:(ARG:0):快Ａ, 0.85
	TIMES SOURCE:(ARG:0):苦痛, 0.70
ELSE
	TIMES SOURCE:(ARG:0):快Ａ, 1.00
	TIMES SOURCE:(ARG:0):苦痛, 0.50
ENDIF

IF TALENT:(ARG:0):体格 == 体格_小柄
	TIMES SOURCE:(ARG:0):苦痛, 1.50
ENDIF

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER213(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 150

;共通部分
CALL COM_ORDER(ARG:0)

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"奉仕Lv{ABL:(ARG:0):奉仕}", ABL:(ARG:0):奉仕 * 3)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):触手}", ABL:(ARG:0):触手 * 6)

LOCAL:0 = GET_PALAMLV(PALAM:(ARG:0):欲情)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲情Lv{LOCAL:0}", MIN(LOCAL:0 * 1, 10))

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
ENDIF
IF TALENT:(ARG:0):好奇心
	CALL COM_ORDER_ELEMENT(ARG:0, "好奇心", 2)
ENDIF
IF TALENT:(ARG:0):保守的
	CALL COM_ORDER_ELEMENT(ARG:0, "保守的", -7)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 4)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -2)
ENDIF

IF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド) || GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_マゾ) || ABL:(ARG:0):倒錯度 >= 800
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 32)
ELSEIF ABL:(ARG:0):倒錯度 >= 500
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 24)
ELSEIF ABL:(ARG:0):倒錯度 >= 300
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 16)
ELSEIF ABL:(ARG:0):倒錯度 >= 100
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 8)
ELSE
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
ENDIF

IF !TALENT:(ARG:0):合意 && !TALENT:(ARG:0):親友
	CALL COM_ORDER_ELEMENT(ARG:0, "合意なし", -10)
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE213
LOCAL:1 = 1
FOR LOCAL:0, 0, MTAR_NUM
	IF SEARCH_EQUIP(202, MPLY:0, MTAR:(LOCAL:0)) == -1
		LOCAL:1 = 0
	ENDIF
NEXT

;全員が既に触手Ａ挿入中なら分岐
IF LOCAL:1
	;継続中の地の文をカット
	FOR LOCAL:0, 0, MTAR_NUM
		LOCAL:2 = SEARCH_EQUIP(202, MPLY:0, MTAR:(LOCAL:0))
		IF LOCAL:2 >= 0
			MEQUIP_CUT:(LOCAL:2) = 1
		ENDIF
	NEXT

	IF MTAR_NUM >= 3
		LOCALS:1 = %ANAME(MTAR:0)%たち
		LOCALS:2 = 一斉に
	ELSEIF MTAR_NUM == 2
		LOCALS:1 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
		LOCALS:2 =
	ELSE
		LOCALS:1 = %ANAME(MTAR:0)%
		LOCALS:2 =
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORML %LOCALS:1%のアナルに挿入された触手が一際大きく震えると、%LOCALS:1%の腸内に卵を吐き出した
			;耐性付いてないと嫌がる
			IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
				PRINTFORM 触手は%LOCALS:1%の開発されたアナル
			ELSEIF ABL:(MTAR:0):触手 >= 3
				PRINTFORM 触手はそのまま%LOCALS:1%のアナル
			ELSE
				PRINTFORM 触手は嫌がる%LOCALS:1%のアナル
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:10
				CASE 0
					PRINTW に次々と卵を産みつけていった…
				CASE 1
					PRINTW に柔らかい卵を産み落とした…
				CASE 2
					PRINTW に粘着質の膜が張った卵を産み落とした…
				CASE 3
					PRINTW の奥深くに産卵を行った…
				CASE 4
					PRINTW に触手の種子を産み付けた…
				CASE 5
					PRINTW の奥深くに小さな卵核を産み落とした…
				CASE 6
					PRINTW に触手の種子を一つ一つ押し込んでいった…
				CASE 7
					PRINTW に粘りつく液体と共に卵を流し込んだ…
				CASE 8
					PRINTW に無数の白濁した、小さな卵を流し込んだ…
				CASE 9
					PRINTW に鼓動する卵を流し込んだ…
			ENDSELECT
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に対して、自身のアナルに挿入された触手に産卵させるように命令した
			;耐性付いてないと嫌がる
			IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
				PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の開発された腸内
			ELSEIF ABL:(MTAR:0):触手 >= 3
				PRINTFORM %ANAME(MPLY:0)%は触手を操って、%LOCALS:1%の腸内
			ELSE
				PRINTFORM %ANAME(MPLY:0)%は触手を操って、嫌がる%LOCALS:1%の腸内
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:10
				CASE 0
					PRINTW に次々と卵を産みつけていった…
				CASE 1
					PRINTW に柔らかい卵を産み落とした…
				CASE 2
					PRINTW に粘着質の膜が張った卵を産み落とした…
				CASE 3
					PRINTW の奥深くに産卵を行った…
				CASE 4
					PRINTW に触手の種子を産み付けた…
				CASE 5
					PRINTW の奥深くに小さな卵核を産み落とした…
				CASE 6
					PRINTW に触手の種子を一つ一つ押し込んでいった…
				CASE 7
					PRINTW に粘りつく液体と共に卵を流し込んだ…
				CASE 8
					PRINTW に無数の白濁した、小さな卵を流し込んだ…
				CASE 9
					PRINTW に鼓動する卵を流し込んだ…
			ENDSELECT
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、%LOCALS:1%のアナルに触手の卵を産み付けるように命令した
			;耐性付いてないと嫌がる
			IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_苗床)
				PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の開発された腸内
			ELSEIF ABL:(MTAR:0):触手 >= 3
				PRINTFORM %ANAME(MPLY:0)%は触手を操って、%LOCALS:1%の腸内
			ELSE
				PRINTFORM %ANAME(MPLY:0)%は触手を操って、嫌がる%LOCALS:1%の腸内
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:10
				CASE 0
					PRINTW に次々と卵を産みつけていった…
				CASE 1
					PRINTW に柔らかい卵を産み落とした…
				CASE 2
					PRINTW に粘着質の膜が張った卵を産み落とした…
				CASE 3
					PRINTW の奥深くに産卵を行った…
				CASE 4
					PRINTW に触手の種子を産み付けた…
				CASE 5
					PRINTW の奥深くに小さな卵核を産み落とした…
				CASE 6
					PRINTW に触手の種子を一つ一つ押し込んでいった…
				CASE 7
					PRINTW に粘りつく液体と共に卵を流し込んだ…
				CASE 8
					PRINTW に無数の白濁した、小さな卵を流し込んだ…
				CASE 9
					PRINTW に鼓動する卵を流し込んだ…
			ENDSELECT
	ENDSELECT

ELSE
	IF MTAR_NUM >= 3
		LOCALS:0 = 尻穴
		LOCALS:1 = %ANAME(MTAR:0)%たち
		LOCALS:2 = 一斉に
		LOCALS:3 = 全員の
	ELSEIF MTAR_NUM == 2
		LOCALS:0 = 尻穴
		LOCALS:1 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
		LOCALS:2 =
		LOCALS:3 = 二人の
	ELSE
		IF ABL:(MTAR:0):Ａ感 >= 2
			LOCALS:0 = ヒクつく
		ELSE
			LOCALS:0 = 未開発な
		ENDIF
		IF TALENT:(MTAR:0):体格 == 体格_小柄
			LOCALS:0 = %LOCALS:0%可愛らしい尻穴
		ELSE
			LOCALS:0 = %LOCALS:0%尻穴
		ENDIF

		LOCALS:1 = %ANAME(MTAR:0)%
		LOCALS:2 =
		LOCALS:3 = 自身の
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			;先に差し込んでない時は適当に犯す
			SELECTCASE RAND:11
				CASE 0
					PRINTFORML %ANAME(MPLY:0)%の触手を操って、%LOCALS:1%の%LOCALS:0%に%LOCALS:2%挿入した
				CASE 1
					PRINTFORML %ANAME(MPLY:0)%の触手で%LOCALS:1%を\@ RAND:2 ? 逆さ吊り # 宙吊り \@にし、%LOCALS:0%に触手を%LOCALS:2%挿入させた
				CASE 2
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%の体を宙に固定し、%LOCALS:0%に触手を%LOCALS:2%挿入した
				CASE 3
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%を仰向けにすると、生殖用の触手を%LOCALS:0%に%LOCALS:2%挿入させた
				CASE 4
					PRINTFORML %ANAME(MPLY:0)%の触手で%LOCALS:1%の股を開かせると、突き上げるように%LOCALS:0%に触手を%LOCALS:2%挿入させた
				CASE 5
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%を壁に追い詰め、%LOCALS:0%に触手を%LOCALS:2%挿入した
				CASE 6
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%の股間を何度も撫上げると、そのままするりと%LOCALS:0%に触手を%LOCALS:2%挿入させた
				CASE 7
					PRINTFORML %ANAME(MPLY:0)%は触手を%LOCALS:1%の股に擦りつけ、ねっとりと%LOCALS:0%に触手を%LOCALS:2%挿入させた
				CASE 8
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%を組み伏せると、%LOCALS:0%に\@ RAND:2 ? 無理やり # 優しく \@触手を%LOCALS:2%挿入させた
				CASE 9
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%の自由を奪うと、強引に産卵管を%LOCALS:0%に%LOCALS:2%挿入させた
				CASE 10
					PRINTFORML %ANAME(MPLY:0)%は触手で%LOCALS:1%を抱き上げると、産卵管を%LOCALS:0%に%LOCALS:2%挿入した
			ENDSELECT
			;耐性付いてないと嫌がる
			IF ABL:(MTAR:0):触手 >= 5
				PRINTFORM さらに触手は大人しくしている%LOCALS:1%の
			ELSEIF ABL:(MTAR:0):触手 >= 3
				PRINTFORM さらに触手は%LOCALS:1%の
			ELSE
				PRINTFORM 触手は\@ RAND:2 ? 涙目で # 必死に \@抵抗する%LOCALS:1%を押さえつけると、無理やり
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:10
				CASE 0
					PRINTW アナルに次々と卵を産みつけていった…
				CASE 1
					PRINTW アナルに柔らかい卵を産み落とした…
				CASE 2
					PRINTW アナルに粘着質の膜が張った卵を産み落とした…
				CASE 3
					PRINTW アナルの奥深くに産卵を行った…
				CASE 4
					PRINTW アナルに触手の種子を産み付けた…
				CASE 5
					PRINTW アナルの奥深くに小さな卵核を産み落とした…
				CASE 6
					PRINTW アナルに触手の種子を一つ一つ押し込んでいった…
				CASE 7
					PRINTW アナルに粘りつく液体と共に卵を流し込んだ…
				CASE 8
					PRINTW アナルに無数の白濁した、小さな卵を流し込んだ…
				CASE 9
					PRINTW アナルに鼓動する卵を流し込んだ…
			ENDSELECT
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に対して、自身のアナルに触手の卵を産み付けるように命令した
			;耐性付いてないと嫌がる
			IF ABL:(MTAR:0):触手 >= 3
				PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の尻穴に%LOCALS:2%挿入すると、%LOCALS:1%の腸内
			ELSE
				PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の尻穴に%LOCALS:2%挿入すると、嫌がる%LOCALS:1%の腸内
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:10
				CASE 0
					PRINTW に大量の卵を産みつけさせた…
				CASE 1
					PRINTW に大きな卵を数個産み落とさせた…
				CASE 2
					PRINTW に粘着質の膜が張った卵を産み落とさせた…
				CASE 3
					PRINTW 深くに産卵を行わせた…
				CASE 4
					PRINTW に触手の種子を産み付けさせた…
				CASE 5
					PRINTW 深くに小さな卵核を産み落とさせた…
				CASE 6
					PRINTW に触手の種子を一つ一つ押し込ませた…
				CASE 7
					PRINTW に粘りつく液体と共に卵を流し込ませた…
				CASE 8
					PRINTW に無数の白濁した、小さな卵を流し込ませた…
				CASE 9
					PRINTW に鼓動する卵を流し込ませた…
			ENDSELECT
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、%LOCALS:1%のアナルに触手の卵を産み付けるように命令した
			;耐性付いてないと嫌がる
			IF ABL:(MTAR:0):触手 >= 3
				PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の尻穴に%LOCALS:2%挿入すると、%LOCALS:1%の腸内
			ELSE
				PRINTFORM %ANAME(MPLY:0)%は触手を%LOCALS:1%の尻穴に%LOCALS:2%挿入すると、嫌がる%LOCALS:1%の腸内
			ENDIF
			;卵の形状分岐
			SELECTCASE RAND:10
				CASE 0
					PRINTW に大量の卵を産みつけさせた…
				CASE 1
					PRINTW に大きな卵を数個産み落とさせた…
				CASE 2
					PRINTW に粘着質の膜が張った卵を産み落とさせた…
				CASE 3
					PRINTW 深くに産卵を行わせた…
				CASE 4
					PRINTW に触手の種子を産み付けさせた…
				CASE 5
					PRINTW 深くに小さな卵核を産み落とさせた…
				CASE 6
					PRINTW に触手の種子を一つ一つ押し込ませた…
				CASE 7
					PRINTW に粘りつく液体と共に卵を流し込ませた…
				CASE 8
					PRINTW に無数の白濁した、小さな卵を流し込ませた…
				CASE 9
					PRINTW に鼓動する卵を流し込ませた…
			ENDSELECT
	ENDSELECT
ENDIF

SETCOLOR カラー_注意
FOR LOCAL:0, 0, MTAR_NUM
	PRINTFORML %ANAME(MTAR:(LOCAL:0))%は触手の子を腸内に宿しました
NEXT
RESETCOLOR

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST213
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)

	IF (LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)
		IF ABL:(LOCAL:1):触手 >= 5
			PRINTFORMW %ANAME(LOCAL:1)%はすっかり陶酔しきった表情で、触手の産卵を受け入れている
		ELSEIF ABL:(LOCAL:1):触手 >= 3
			PRINTFORMW %ANAME(LOCAL:1)%は異形に孕まされる倒錯感に、ゾクゾクと体を震わせている
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%は異形の子を産み付けられた恐怖とショックで青ざめている
		ENDIF
	ENDIF
NEXT

IF LOCAL:1 != MASTER
	PRINTFORM アナルから粘液にまみれた触手を引き抜くと%ANAME(LOCAL:1)%

	LOCALS:3 = %TOSTR_EMOTION(LOCAL:1)%

	SELECTCASE RAND:4
		CASE 0
			IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
				PRINTW はフーフーと呼吸を繰り返している…
			ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂", "鬱", "恐", "怯")
				PRINTW は荒い呼吸を繰り返している…
			ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂")
				PRINTW は呆然と虚空を見続けている…
			ELSE
				PRINTW は荒い呼吸を繰り返している…
			ENDIF
		CASE 1
			PRINTW と触手の間には半透明な糸の橋が出来上がった…
		CASE 2
			PRINTW の尻穴からはごぽりと雫が漏れ落ちた…
		CASE 3
			PRINTW の尻穴からはずるりと卑猥な水音が響いた…
		CASE 4
			PRINTW はくたりと地面に倒れ付した…
	ENDSELECT
ENDIF

;-------------------------------------------------

;コマンド区分
;-------------------------------------------------

@COM_AVAILABLE_WHEN213
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_213()
RETURN POWER(2, 性的嗜好_触手で犯したい) + POWER(2, 性的嗜好_虐げたい)

@COM_PREFERENCE_TARGET_213()
RETURN POWER(2, 性的嗜好_触手で犯されたい) + POWER(2, 性的嗜好_虐げられたい) + POWER(2, 性的嗜好_妊娠したい)


code:
;触手搾乳

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME214
IF MTAR_NUM > 0 && TALENT:(MTAR:(LOCAL:0)):母乳体質
	LOCALS:0 = 触手乳腺責め
ELSE
	LOCALS:0 = 触手乳腺開発
ENDIF
RESULTS:0 = %LOCALS:0%する
RESULTS:1 = %LOCALS:0%させられる
RESULTS:2 = %LOCALS:0%させる
RESULTS:3 = %LOCALS:0%される
RESULTS:4 = %LOCALS:0%させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE214
;共通部分
CALL COM_ABLE_COMMON(214)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0) && !FLAG:RECHECKING
	RETURN 0
;プレイヤーが触手召喚中でないなら不可
SIF !IS_EQUIP_PLAYER(MPLY:0, 200) && !HAS_TENTACLE(MPLY)
	RETURN 0
;全てのターゲットについて判定
FOR LOCAL:0, 0, MTAR_NUM
	;nipples occupied
	SIF IS_N_HOLD(MTAR:(LOCAL:0))
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM214
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;触手胸愛撫を解除
;FOR LOCAL:0, 0, MTAR_NUM
;	CALL RELEASE_EQUIP_EX(204, MPLY:0, MTAR:(LOCAL:0))
;NEXT

;●プレイヤーについて処理
EXP:(MPLY:0):性技経験値 += 1
EXP:(MPLY:0):魔術経験値 += 1
EXP:(MPLY:0):触手経験値 += 1

SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 200)
SOURCE:(MPLY:0):嗜虐 = 50
SOURCE:(MPLY:0):逸脱 = 100
SOURCE:(MPLY:0):触手 = 30
SOURCE:(MPLY:0):性行動 = 90

;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MPLY:0, 140, 30)

;奉仕経験値を得られるコマンドのフラグ
TCVAR:(MPLY:0):奉仕経験取得可能 = 1

;●全てのターゲットについて処理
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)

	EXP:(LOCAL:2):触手経験値 += 1
	EXP:(LOCAL:2):搾乳経験値 += !RAND:3

	LOCAL:3 = 1000 + ABL:(MPLY:0):魔術 * 8
	SOURCE:(LOCAL:2):快Ｂ = SENSE_HOUSHI(MPLY:0, LOCAL:2, LOCAL:3 * 3 / 5) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 500)
	SIF TALENT:(LOCAL:2):母乳体質
		SOURCE:(LOCAL:2):搾乳 = SENSE_HOUSHI(MPLY:0, LOCAL:2, LOCAL:3 * 3 / 5) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 500)
	SOURCE:(LOCAL:2):苦痛 = 1000
	SOURCE:(LOCAL:2):逸脱 = 500 - (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 250)
	SOURCE:(LOCAL:2):触手 = 400 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 200)
	SOURCE:(LOCAL:2):性行動 = 180 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 90)

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 60, 80)
NEXT

;主導度変化基準値
TFLAG:主導度変化基準値 = 2

;倒錯度変化基準値
TFLAG:倒錯度変化基準値 = 4

;レズ・ＢＬ経験基準値
TFLAG:レズ・ＢＬ経験基準値 = 1

RETURN 1

;-------------------------------------------------
;継続コマンドかどうかを設定
;-------------------------------------------------
@COM_IS_EQUIP214
RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP214(ARG:0)
LOCAL:2 = MEQUIP_PLAYER:(ARG:0):0

SOURCE:(LOCAL:2):性行動 += 30

;全てのターゲットについて判定
FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:0)

	;ソースを退避
	CALL PUTOUT_SOURCE(LOCAL:3)

	EXP:(LOCAL:3):触手経験値 += 1
	EXP:(LOCAL:3):搾乳経験値 += 1
	LOCAL:4 = 800 + ABL:(LOCAL:2):魔術 * 6
	SOURCE:(LOCAL:3):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, LOCAL:4 * 3 / 5) + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 400)
	SIF TALENT:(LOCAL:3):母乳体質
		SOURCE:(LOCAL:3):搾乳 += SENSE_HOUSHI(LOCAL:2, LOCAL:3, LOCAL:4 * 3 / 5) + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 400)
	SOURCE:(LOCAL:3):苦痛 += 500
	SOURCE:(LOCAL:3):逸脱 += 150 - (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 75)
	SOURCE:(LOCAL:3):触手 += 200 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 100)
	SOURCE:(LOCAL:3):性行動 += 60 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 30)

	;倒錯度変化
	TCVAR:(LOCAL:3):倒錯度変化基準値 += 2

	;退避したソースを加算
	CALL SUM_SOURCE(LOCAL:3)
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE214(ARG:0)
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%に対して%EQUIP_PLAYER_ANAME(ARG:0)%の触手が乳腺開発中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP214(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%の乳首に潜り込み乳腺を責め立てている…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP214(ARG:0)

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER214(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 120

;共通部分
CALL COM_ORDER(ARG:0)

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"奉仕Lv{ABL:(ARG:0):奉仕}", ABL:(ARG:0):奉仕 * 3)
CALL COM_ORDER_ELEMENT(ARG:0, @"触手Lv{ABL:(ARG:0):触手}", ABL:(ARG:0):触手 * 6)

LOCAL:0 = GET_PALAMLV(PALAM:(ARG:0):欲情)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲情Lv{LOCAL:0}", MIN(LOCAL:0 * 1, 10))

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
ENDIF
IF TALENT:(ARG:0):好奇心
	CALL COM_ORDER_ELEMENT(ARG:0, "好奇心", 2)
ENDIF
IF TALENT:(ARG:0):保守的
	CALL COM_ORDER_ELEMENT(ARG:0, "保守的", -7)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 4)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -2)
ENDIF

IF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド) || GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_マゾ) || ABL:(ARG:0):倒錯度 >= 800
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 32)
ELSEIF ABL:(ARG:0):倒錯度 >= 500
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 24)
ELSEIF ABL:(ARG:0):倒錯度 >= 300
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 16)
ELSEIF ABL:(ARG:0):倒錯度 >= 100
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 8)
ELSE
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
ENDIF

IF !TALENT:(ARG:0):合意 && !TALENT:(ARG:0):親友
	CALL COM_ORDER_ELEMENT(ARG:0, "合意なし", -10)
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE214
;ターゲットが2人以上
IF MTAR_NUM >= 2
	IF MTAR_NUM >= 3
		LOCALS:1 = %ANAME(MTAR:0)%たち
	ELSEIF MTAR_NUM == 2
		LOCALS:1 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	ELSE
		LOCALS:1 = %ANAME(MTAR:0)%
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は髪の毛より細い触手を%LOCALS:1%の乳首に突き立て、乳腺へと入り込ませ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に、触手で乳腺を\@ TALENT:(MTAR:0):母乳体質 ? 開発する # 責める \@よう命じた
			PRINTFORMW %ANAME(MPLY:0)%は髪の毛より細い触手を%LOCALS:1%の乳首に突き立て、乳腺へと入り込ませた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、触手で%LOCALS:1%の乳腺を\@ TALENT:(MTAR:0):母乳体質 ? 開発する # 責める \@よう命じた
			PRINTFORMW %ANAME(MPLY:0)%は髪の毛より細い触手を%LOCALS:1%の乳首に突き立て、乳腺へと入り込ませた…
	ENDSELECT

	;ターゲットが1人
ELSE
	IF GET_BUSTSIZE(MTAR:0) < 0
		LOCALS:0 = 平たい胸
	ELSEIF GET_BUSTSIZE(MTAR:0) > 0
		LOCALS:0 = 豊満な胸
	ELSE
		LOCALS:0 = 胸
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は一際太い触手を%LOCALS:1%の乳首に突き立て、乳腺へと入り込ませ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に、触手で乳腺を\@ TALENT:(MTAR:0):母乳体質 ? 開発する # 責める \@よう命じた
			PRINTFORMW %ANAME(MPLY:0)%は髪の毛より細い触手を%LOCALS:1%の乳首に突き立て、乳腺へと入り込ませた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、触手で%LOCALS:1%の母乳を搾るように命令した
			PRINTFORMW %ANAME(MPLY:0)%は髪の毛より細い触手を%LOCALS:1%の乳首に突き立て、乳腺へと入り込ませた…
	ENDSELECT
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST214
FOR LOCAL, 0, MTAR_NUM
	LOCAL:1 = MTAR:LOCAL
	SIF RAND:50 >= EXP:(LOCAL:1):搾乳経験値 + ABL:(LOCAL:1):Ｂ感 + ABL:(LOCAL:1):触手
		CONTINUE
	SETCOLOR カラー_ピンク
	IF CFLAG:(LOCAL:1):一時的母乳体質
		PRINTFORML %ANAME(LOCAL:1)%の乳房は触手の改造によって作り替えられたようだ……
		PRINTFORML 一時的なものだった%ANAME(LOCAL:1)%の母乳体質が定着した
		CFLAG:(LOCAL:1):一時的母乳体質 = 0
		TALENT:(LOCAL:1):母乳体質 = 1
	ELSEIF !TALENT:(LOCAL:1):母乳体質
		PRINTFORML %ANAME(LOCAL:1)%の乳房は触手の改造によって作り替えられたようだ……
		PRINTFORML %ANAME(LOCAL:1)%は孕んでもいないのに＜母乳体質＞になった
		TALENT:(LOCAL:1):母乳体質 = 1
	ENDIF
NEXT

;-------------------------------------------------

;コマンド区分
;-------------------------------------------------

@COM_AVAILABLE_WHEN214
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_214()
RETURN POWER(2, 性的嗜好_触手で犯したい) + POWER(2, 性的嗜好_虐げたい)

@COM_PREFERENCE_TARGET_214()
RETURN POWER(2, 性的嗜好_触手で犯されたい) + POWER(2, 性的嗜好_虐げられたい)