code:
;フェラチオ

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME19
	;プレイヤーからターゲットにフェラ中
IF SEARCH_EQUIP(11, MPLY:0, MTAR:0) >= 0
	LOCALS:0 = フェラ玉舐め
	;手コキ中
ELSEIF SEARCH_EQUIP(10, MPLY:0, MTAR:0) >= 0
	LOCALS:0 = 手コキ玉舐め
	;アナル舐め中
ELSEIF SEARCH_EQUIP(8, MPLY:0, MTAR:0) >= 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_ABLE19
;共通部分
CALL COM_ABLE_COMMON(19)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で3人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 3
	RETURN 0
;ターゲットはひとり
SIF MTAR_NUM != 1
	RETURN 0
;おちんちんが必要です
SIF !HAS_PENIS(MTAR:0)
	RETURN 0

FOR LOCAL, 0, MPLY_NUM
	SIF !CAN_LICK_GROIN(MPLY:LOCAL, MTAR)
		RETURN 0
NEXT

;vaginal facesitting
SIF IS_EQUIP_PLAYER(MTAR:0, 101)
	RETURN 0

RETURN 1

;-------------------------------------------------
;快Ｍソースの倍率を取得する関数 ARG:0=PLAYERのキャラ番号
;-------------------------------------------------
@COM19_RATE_M(ARG:0)
#FUNCTION
LOCAL:5 = 1000
SELECTCASE ABL:(ARG:0):奉仕
	CASE 0
		TIMES LOCAL:5, 0.00
		;TIMES SOURCE:(LOCAL:2):不潔, 4.00
	CASE 1
		TIMES LOCAL:5, 0.10
		;TIMES SOURCE:(LOCAL:2):不潔, 2.50
	CASE 2
		TIMES LOCAL:5, 0.30
		;TIMES SOURCE:(LOCAL:2):不潔, 1.50
	CASE 3
		TIMES LOCAL:5, 0.80
		;TIMES SOURCE:(LOCAL:2):不潔, 1.00
	CASE 4
		TIMES LOCAL:5, 1.00
		;TIMES SOURCE:(LOCAL:2):不潔, 0.50
	CASEELSE
		LOCAL:5 = LOCAL:5 * (100 + (ABL:(ARG:0):奉仕 - 5) * 3) / 100
		;TIMES SOURCE:(LOCAL:2):不潔, 0.10
ENDSELECT

SELECTCASE ABL:(ARG:0):性技
	CASE 0
		TIMES LOCAL:5, 1.00
	CASE 1
		TIMES LOCAL:5, 1.10
	CASE 2
		TIMES LOCAL:5, 1.20
	CASE 3
		TIMES LOCAL:5, 1.30
	CASE 4
		TIMES LOCAL:5, 1.40
	CASEELSE
		LOCAL:5 = LOCAL:5 * ((ABL:(ARG:0):性技 - 5) * 2 + 150) / 100
ENDSELECT

RETURNF LOCAL:5

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

TFLAG:16 = 0
;挿入中
FOR LOCAL, 0, MTAR_NUM
	IF IS_INSERT_SINGLE(MTAR:LOCAL, "Ｐ")
		TFLAG:16 = IS_INSERT_SINGLE(MTAR:LOCAL, "Ｐ")
		BREAK
	ENDIF
NEXT

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

SELECTCASE MPLY_NUM
	CASE 2
		TIMES LOCAL:10, 0.75
	CASE 3
		TIMES LOCAL:10, 0.60
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):体力 += 120

	EXP:(LOCAL:2):性技経験値 += MAX(MTAR_NUM / 2 + 1, 1)
	EXP:(LOCAL:2):口淫経験 += 1

	SOURCE:(LOCAL:2):奉仕 = SERVE_HOUSHI(LOCAL:2, 600)
	SOURCE:(LOCAL:2):接触 = 50
	SOURCE:(LOCAL:2):快Ｍ = 300 * COM19_RATE_M(LOCAL:2) / 1000
	SOURCE:(LOCAL:2):性行動 = 300

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

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

	;全ターゲットに与える快感系ソースを計算
	FOR LOCAL:1, 0, MTAR_NUM
		LOCAL:3 = MTAR:(LOCAL:1)
		LOCAL:4 = SENSE_HOUSHI_P(LOCAL:2, LOCAL:3, 1500) * LOCAL:10 / 100
		IF TALENT:(LOCAL:2):舌使い
			TIMES LOCAL:4, 1.50
		ENDIF
		SOURCE:(LOCAL:3):快Ｐ += LOCAL:4
	NEXT
	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
NEXT

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

	;●ソースの計算
	DOWNBASE:(LOCAL:1):体力 += 60

	SOURCE:(LOCAL:1):接触 = 50
	SOURCE:(LOCAL:1):性行動 = 180

	;主導権に応じた優越・受動のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:1, 150, 70)
NEXT

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

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

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

RETURN 1

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

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

SELECTCASE MEQUIP_PLAYER_NUM:(ARG:0)
	CASE 2
		TIMES LOCAL:10, 0.75
	CASE 3
		TIMES LOCAL:10, 0.60
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):体力 += 20

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

	SOURCE:(LOCAL:2):奉仕 += SERVE_HOUSHI(LOCAL:2, 200)
	SOURCE:(LOCAL:2):接触 += 25
	SOURCE:(LOCAL:2):快Ｍ += 150 * COM19_RATE_M(LOCAL:2) / 1000
	SOURCE:(LOCAL:2):性行動 += 100

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

	;全ターゲットに与える快感系ソースを計算
	FOR LOCAL:1, 0, MEQUIP_TARGET_NUM:(ARG:0)
		LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:1)
		LOCAL:4 = SENSE_HOUSHI_P(LOCAL:2, LOCAL:3, 500) * LOCAL:10 / 100
		IF TALENT:(LOCAL:2):舌使い
			TIMES LOCAL:4, 1.50
		ENDIF
		SOURCE:(LOCAL:3):快Ｐ += LOCAL:4

	NEXT
NEXT

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

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

	SOURCE:(LOCAL:1):接触 += 25
	SOURCE:(LOCAL:1):性行動 += 60
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE19(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に玉舐め中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP19(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%の睾丸を舐め回している…

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

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

;共通部分
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):奉仕 * 4)
CALL COM_ORDER_ELEMENT(ARG:0, @"精愛Lv{ABL:(ARG:0):精愛}", ABL:(ARG:0):精愛 * 3)

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

IF TCVAR:(ARG:0):媚薬
	CALL COM_ORDER_ELEMENT(ARG:0, "媚薬", 6)
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, "汚臭敏感", -3)
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 TALENT:(ARG:0):男嫌い
	CALL COM_ORDER_ELEMENT(ARG:0, "男嫌い", -12)
ENDIF
IF TALENT:(ARG:0):キス未経験
	IF TALENT:(ARG:0):一線越えない
		CALL COM_ORDER_ELEMENT(ARG:0, "キス未経験", -15)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "キス未経験", -10)
	ENDIF
ENDIF

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE19
LOCAL:5 = SEARCH_EQUIP(101, MPLY:0, MTAR:0)
LOCAL:6 = SEARCH_EQUIP(102, MPLY:0, MTAR:0)
LOCAL:7 = SEARCH_EQUIP(19, MTAR:0, MPLY:0)
LOCAL:8 = SEARCH_EQUIP(2, MTAR:0, MPLY:0)

IF MTAR_NUM == 1
	LOCALS:6 =
ELSE
	LOCALS:6 = たち
ENDIF
;３人
IF MPLY_NUM == 3
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORML %ANAME(MPLY:(LOCAL:1))%たちは左右から顔を寄せ、三人で%ANAME(MTAR:0)%%LOCALS:6%の玉に舌を這わせて責め立て%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORML %ANAME(MPLY:(LOCAL:1))%たちは左右から顔を寄せ、三人で%ANAME(MTAR:0)%%LOCALS:6%の玉に舌を這わせて奉仕した…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%、%ANAME(MPLY:1)%、%ANAME(MPLY:2)%の三人に、%ANAME(MTAR:0)%%LOCALS:6%の玉を舐めるように命令した
			PRINTFORML %ANAME(MPLY:(LOCAL:1))%たちは左右から顔を寄せ、三人で%ANAME(MTAR:0)%%LOCALS:6%の玉に舌を這わせて責め立て%TARGET_STR("た", "てきた")%…
	ENDSELECT

;２人
ELSEIF MPLY_NUM == 2
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は左右から顔を寄せ、二人で%ANAME(MTAR:0)%%LOCALS:6%の玉に舌を這わせて責め立て%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は左右から顔を寄せ、二人で協力して%ANAME(MTAR:0)%%LOCALS:6%の玉に舌を這わせて奉仕した…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%と%ANAME(MPLY:1)%に、%ANAME(MTAR:0)%%LOCALS:6%の玉を舐めるように命令した
			PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は左右から顔を寄せ、二人で%ANAME(MTAR:0)%%LOCALS:6%の玉に舌を這わせて奉仕した…
	ENDSELECT

;プレイヤーが１人＆拘束中
ELSEIF IS_BIND(MPLY:0)

	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は自身の顔に%ANAME(MTAR:0)%%LOCALS:6%の玉を押しつけさせ、じゅるじゅると音を立ててしゃぶった…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%%LOCALS:6%は身動きの取れない%ANAME(MPLY:0)%の顔に無理やり玉を押しつけ舐めさせた…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%ANAME(MTAR:0)%%LOCALS:6%の玉を口で気持ち良くするように命令した
			PRINTFORMW %ANAME(MPLY:0)%は押しつけられる%ANAME(MTAR:0)%%LOCALS:6%の玉に舌を這わせ、じゅるじゅると音を立ててしゃぶった…
	ENDSELECT

	;縄で縛るの地の文をカットする
	LOCAL:0 = SEARCH_EQUIP(85, -1, MPLY:0)
	IF LOCAL:0 >= 0
		MEQUIP_CUT:(LOCAL:0) = 1
	ENDIF
	LOCAL:0 = SEARCH_EQUIP(208, -1, MPLY:0)
	IF LOCAL:0 >= 0
		MEQUIP_CUT:(LOCAL:0) = 1
	ENDIF

;１人
ELSE
	IF TALENT:(MPLY:0):体格 == 体格_子供 || TALENT:(MPLY:0):体格 == 体格_小柄
		LOCALS:0 = 小さな口で必死に
	ELSE
		LOCALS:0 = 口で
	ENDIF
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORM %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の玉に舌を這わせ、
			IF ABL:(MPLY:0):性技 >= 3
				PRINTFORMW 巧みな舌使いで舐めしゃぶっ%TARGET_STR("た", "てきた")%…
			ELSE
				PRINTFORMW 不慣れな舌使いで責めたて%TARGET_STR("た", "てきた")%…
			ENDIF
		;ターゲットに主導権
		CASE 1
			PRINTFORM %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の玉に舌を這わせ、
			IF ABL:(MPLY:0):性技 >= 3
				PRINTFORMW 巧みな舌使いで奉仕している…
			ELSE
				PRINTFORMW 不慣れな舌使いで奉仕している…
			ENDIF
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%ANAME(MTAR:0)%の玉を口で気持ち良くするように命令した
			PRINTFORM %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の玉に舌を這わせ、
			IF ABL:(MPLY:0):性技 >= 3
				PRINTFORMW 巧みな舌使いで舐めしゃぶった…
			ELSE
				PRINTFORMW 不慣れな舌使いで舐め回した…
			ENDIF
	ENDSELECT
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST19
FOR LOCAL:0, 0, MPLY_NUM
	IF MPLY:LOCAL != MASTER || CONFIG:441
		IF (PALAM:(MPLY:LOCAL):欲情 >= PALAMLV:7 || (PALAM:(MPLY:LOCAL):欲情 >= PALAMLV:5 && TCVAR:(MPLY:LOCAL):60)) && ((ABL:(MPLY:LOCAL):欲望 >= ランク閾値:ランク_その他:ランク_D) || ABL:(MPLY:LOCAL):精愛 >= ランク閾値:ランク_その他:ランク_C)
			SELECTCASE RAND:2
				CASE 0
					SELECTCASE RAND:2
						CASE 0
							PRINTFORM %ANAME(MPLY:LOCAL)%は%SPLIT_RAND("興奮で鼻息を荒くしながら/情欲に突き動かされるまま", 1)%、
						CASE 1
							PRINTFORM %SPLIT_RAND("興奮しきった様子の/発情しきった様子の", 1)%%ANAME(MPLY:LOCAL)%は、
					ENDSELECT
					PRINTFORML %SPLIT_RAND("じゅるじゅると音を立てて/下品な音を立てて/涎を垂らして/激しく鼻で呼吸しながら/夢中で/必死に", 1)%%ANAME(MTAR:0)%の睾丸%SPLIT_RAND("を舐めまわしている/に吸い付いている", 1)%…
				CASE 1
					PRINTFORM %ANAME(MPLY:LOCAL)%は%SPLIT_RAND("興奮で息を荒げながら/蕩けたような顔をしながら/熱に浮かされたような顔をしながら", 1)%、
					PRINTFORML %SPLIT_RAND("味わうように/形を確かめるように", 1)%%ANAME(MTAR:0)%の睾丸%SPLIT_RAND("をしゃぶっている/を頬張っている/へ舌を這わせている/を舐めまわしている", 1)%…
			ENDSELECT
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN19
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_19()
RETURN POWER(2, 性的嗜好_奉仕したい) + POWER(2, 性的嗜好_汚されたい)

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

@COM_STACK_SPERM_MTAR_TO_MPLY_19()
RETURN RAND:3 ? 射精部位_口 # 射精部位_顔


code:
;胸愛撫

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME1
IF MTAR_NUM > 0 && TALENT:(MTAR:0):母乳体質
	LOCALS:1 = 搾乳
ELSE
	LOCALS:1 = 胸愛撫
ENDIF

IF MTAR_NUM >= 2
	LOCALS:0 = 同時%LOCALS:1%
ELSE
	LOCALS:0 = %LOCALS:1%
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_ABLE1
;共通部分
CALL COM_ABLE_COMMON(1)
SIF RESULT == 0
	RETURN 0
;1+ players
SIF MPLY_NUM <= 0
	RETURN 0
;ターゲットはプレイヤーの倍まで
SIF MTAR_NUM <= 0 || MTAR_NUM > MPLY_NUM * 2
	RETURN 0

FOR LOCAL:0, 0, MPLY_NUM
	FOR LOCAL:1, 0, MTAR_NUM
		SIF !CAN_REACH_BODY(MPLY:(LOCAL:0),MTAR:(LOCAL:1))
			RETURN 0
	NEXT
NEXT

FOR LOCAL:0, 0, MTAR_NUM
	;breasts occupied - tentacle B caress
	SIF IS_EQUIP_TARGET(MTAR:(LOCAL:0), 204)
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM1
;実行判定
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):体力 += 100

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

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

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

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

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

	NEXT
NEXT

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

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

	SOURCE:(LOCAL:1):露出 = 100
	SOURCE:(LOCAL:1):接触 = 60
	SOURCE:(LOCAL:1):性行動 = 180

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

NEXT

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP1(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):体力 += 20

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

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

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

	;全ターゲットに与える快感系ソースを計算
	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, 400) * LOCAL:10 / 100

	NEXT

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

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

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

	SOURCE:(LOCAL:2):露出 += 50
	SOURCE:(LOCAL:2):接触 += 30
	SOURCE:(LOCAL:2):性行動 += 60

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE1(ARG:0)
LOCAL:2 = 0
FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	IF TALENT:(MEQUIP_TARGET:(ARG:0):(LOCAL:0)):母乳体質
		LOCAL:2 = 2
		BREAK
	ELSEIF IS_FEMALE(MEQUIP_TARGET:(ARG:0):(LOCAL:0))
		LOCAL:2 = 1
		BREAK
	ENDIF
NEXT
IF LOCAL:2 == 2
	RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に搾乳中
ELSE
	RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に胸愛撫中
ENDIF

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP1(ARG:0)
LOCAL:2 = 0
FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	IF TALENT:(MEQUIP_TARGET:(ARG:0):(LOCAL:0)):母乳体質
		LOCAL:2 = 2
		BREAK
	ELSEIF IS_FEMALE(MEQUIP_TARGET:(ARG:0):(LOCAL:0))
		LOCAL:2 = 1
		BREAK
	ENDIF
NEXT
IF LOCAL:2 == 2
	PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%の母乳を搾り取っている…
ELSEIF LOCAL:2 == 1
	PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%の胸を揉みしだいている…
ELSE
	PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%の胸を弄っている…
ENDIF

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

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER1(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):奉仕 * 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, "恥じらい", -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 !TALENT:(ARG:0):合意 && !TALENT:(ARG:0):親友
	CALL COM_ORDER_ELEMENT(ARG:0, "合意なし", -10)
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE1
#DIMS DYNAMIC 実行名
#DIMS DYNAMIC 対象名

#DIMS DYNAMIC 胸描写
;プレイヤーが２人
IF MPLY_NUM == 2
	実行名 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%
	;プレイヤーが１人
ELSE
	実行名 = %ANAME(MPLY:0)%
ENDIF

;ターゲットが２人
IF MTAR_NUM == 2
	対象名 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	;ターゲットが１人
ELSE
	対象名 = %ANAME(MTAR:0)%
ENDIF

; IF MTAR_NUM == 2 && IS_PIERCED(MTAR:0, ピアス_乳首) && IS_PIERCED(MTAR:0, ピアス_乳首)
; 	LOCALS:2 = ピアスの取り付けられた
; ELSEIF MTAR_NUM == 1 && IS_PIERCED(MTAR:0, ピアス_乳首)
; 	LOCALS:2 = ピアスの取り付けられた
; ELSE
; 	LOCALS:2 =
; ENDIF

;ターゲットが２人
IF MTAR_NUM == 2
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			;片方が男性
			IF IS_MALE(MTAR:0) || IS_MALE(MTAR:1)
				PRINTFORMW %実行名%は%対象名%の乳房を鷲掴みにし、二人同時に揉みしだい%TARGET_STR("た", "てきた")%…
				;二人とも貧乳以下
			ELSEIF GET_BUSTSIZE(MTAR:0) <= -1 && GET_BUSTSIZE(MTAR:1) <= -1
				PRINTFORMW %実行名%は%対象名%の薄い胸を、それぞれの手でじっくりと撫で回し%TARGET_STR("た", "てきた")%…
			ELSE
				PRINTFORMW %実行名%は%対象名%の、合わせて４つの乳房をじっくりと揉みしだい%TARGET_STR("た", "てきた")%…
			ENDIF
			;ターゲットに主導権
		CASE 1
			;片方が男性
			IF IS_MALE(MTAR:0) || IS_MALE(MTAR:1)
				PRINTFORMW %対象名%はそれぞれの胸をを%実行名%に弄らせて、気持ち良くするように命令した…
				;二人とも貧乳以下
			ELSEIF GET_BUSTSIZE(MTAR:0) <= -1 && GET_BUSTSIZE(MTAR:1) <= -1
				PRINTFORMW %対象名%はそれぞれの薄い胸を%実行名%に触らせて、気持ち良くするように命令した…
			ELSE
				PRINTFORMW %対象名%はそれぞれの乳房を%実行名%の手に押し付けると、揉みしだいて気持ち良くするように命令した…
			ENDIF
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%実行名%に%対象名%の胸を愛撫するように命令した
			;片方が男性
			IF IS_MALE(MTAR:0) || IS_MALE(MTAR:1)
				PRINTFORMW %実行名%は%対象名%の乳房を鷲掴みにし、二人同時に弄り回した…
				;二人とも貧乳以下
			ELSEIF GET_BUSTSIZE(MTAR:0) <= -1 && GET_BUSTSIZE(MTAR:1) <= -1
				PRINTFORMW %実行名%は%対象名%の薄い胸をそれぞれの手で撫で回した…
			ELSE
				PRINTFORMW %実行名%は%対象名%の、合わせて４つの乳房を揉みしだいた…
			ENDIF
	ENDSELECT

	;ターゲットが１人
ELSE
	胸描写 = %STR_BODY("胸", MTAR:0)%
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORM %実行名%は%対象名%の
			IF IS_MALE(MTAR:0)
				PRINTFORMW %胸描写%を指先で弄り回し%TARGET_STR("た", "てきた")%…
			ELSE
				IF GET_BUSTSIZE(MTAR:0) == -2
					PRINTFORMW %STR_BODY("胸：長：愛撫", MTAR:0)%をゆっくりと撫で回し%TARGET_STR("た", "てきた")%…
				ELSEIF GET_BUSTSIZE(MTAR:0) == -1
					PRINTFORMW %STR_BODY("胸：長：愛撫", MTAR:0)%をじっくりと弄ん%TARGET_STR("だ", "できた")%…
				ELSE
					PRINTFORMW %STR_BODY("胸：長：愛撫", MTAR:0)%をじっくりと揉みしだい%TARGET_STR("た", "てきた")%…
				ENDIF
			ENDIF
			;ターゲットに主導権
		CASE 1
			IF IS_MALE(MTAR:0)
				PRINTFORMW %対象名%は%胸描写%を%実行名%に弄らせて、気持ち良くするように命令した…
			ELSE
				PRINTFORM %対象名%は%実行名%の手に自身の
				IF GET_BUSTSIZE(MTAR:0) == -2
					PRINTFORMW %STR_BODY("胸：長：接触", MTAR:0)%を押し付けると、触って気持ち良くするように命令した…
				ELSEIF GET_BUSTSIZE(MTAR:0) == -1
					PRINTFORMW %STR_BODY("胸：長：接触", MTAR:0)%を押し付けると、触って気持ち良くするように命令した…
				ELSE
					PRINTFORMW %STR_BODY("胸：長：愛撫", MTAR:0)%を押し付けると、揉みしだいて気持ち良くするように命令した…
				ENDIF
			ENDIF
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%実行名%に%対象名%の胸を愛撫するように命令した
			PRINTFORM %実行名%は%対象名%の
			IF IS_MALE(MTAR:0)
				PRINTFORMW %胸描写%を指先で弄り回した…
			ELSE
				IF GET_BUSTSIZE(MTAR:0) == -2
					PRINTFORMW %STR_BODY("胸：長：愛撫", MTAR:0)%をゆっくりと撫で回した…
				ELSEIF GET_BUSTSIZE(MTAR:0) == -1
					PRINTFORMW %STR_BODY("胸：長：愛撫", MTAR:0)%をじっくりと弄んだ…
				ELSE
					PRINTFORMW %STR_BODY("胸：長：愛撫", MTAR:0)%をじっくりと揉みしだいた…
				ENDIF
			ENDIF
	ENDSELECT
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST1
#DIMS DYNAMIC 衣装描写
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)

	IF (LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)
		LOCAL:2 = CUP:(LOCAL:1):快Ｂ

		IF IS_MALE(LOCAL:1)
			IF TCVAR:(LOCAL:1):失神フラグ
				;気絶中
				PRINTFORML 意識を失った%ANAME(LOCAL:1)%は胸への刺激にビクリと小さく体を震わせた
			ELSEIF LOCAL:2 < 300
				PRINTFORML %ANAME(LOCAL:1)%はまだ胸で快楽を感じれるまでには至っていないようだ
			ELSEIF LOCAL:2 < 1000
				PRINTFORML %ANAME(LOCAL:1)%は少しずつ快感を感じ始めているらしく、むず痒そうに体をよじった
			ELSEIF LOCAL:2 < 3000
				PRINTFORML %ANAME(LOCAL:1)%は胸への刺激に感じているのか、熱い吐息を漏らし始めている
			ELSEIF LOCAL:2 < 6000
				PRINTFORML %ANAME(LOCAL:1)%は胸への快感に表情を緩ませ、されるがままになっている
			ELSEIF LOCAL:2 < 10000
				PRINTFORML %ANAME(LOCAL:1)%は感じまくっており、胸を揉まれるたびに激しく悶えている
			ELSE
				PRINTFORML %ANAME(LOCAL:1)%はすっかり乳房の快感の虜になり、胸を揉まれると女のように身体を跳ねさせて悶えた
			ENDIF
		ELSE
			IF TCVAR:(LOCAL:1):失神フラグ
				;気絶中
				PRINTFORML 意識を失った%ANAME(LOCAL:1)%は胸への刺激にビクリと小さく体を震わせた
			ELSEIF LOCAL:2 < 300
				PRINTFORML %ANAME(LOCAL:1)%はまだ胸で快楽を感じれるまでには至っていないようだ
			ELSEIF LOCAL:2 < 1000
				PRINTFORML %ANAME(LOCAL:1)%は少しずつ快感を感じ始めているらしく、むず痒そうに体をよじった
			ELSEIF LOCAL:2 < 3000
				PRINTFORML %ANAME(LOCAL:1)%の胸を揉み続けてやると乳首は固くしこっていき、熱い吐息を漏らし始めている
			ELSEIF LOCAL:2 < 6000
				PRINTFORML %ANAME(LOCAL:1)%は胸への愛撫にトロンとした表情になってされるがままになっている
			ELSEIF LOCAL:2 < 10000
				PRINTFORML %ANAME(LOCAL:1)%は感じまくっており、胸への刺激だけで法悦を極めようとしている
			ELSE
				PRINTFORM %ANAME(LOCAL:1)%の胸を揉み続けてやるとそれだけで感じまくって身体を跳ねさせ、
				IF GET_BUSTSIZE(LOCAL:1) == 1
					PRINTL 目の前でその巨乳を弾ませてこちらの目を楽しませてくれた
				ELSEIF GET_BUSTSIZE(LOCAL:1) >= 2
					PRINTFORML 目の前でその%TOSTR_BUSTSIZE(GET_BUSTSIZE(LOCAL:1))%を大きく弾ませてこちらの目を楽しませてくれた
				ELSE
					PRINTL 緩んだ表情で快楽に身を任せた
				ENDIF
			ENDIF
		ENDIF
		IF C_COND("衣装属性:胸_下着:薄生地",,LOCAL:1)
			衣装描写 = %C_COND_MAP_GETS(LOCAL:1, "被覆衣装描写_胸_下着")%
			IF LOCAL:2 > 6000
				PRINTFORML %ANAME(LOCAL:1)%の乳首は快感ですっかリ熱を帯び、%衣装描写%の薄い生地の下からはっきりわかる程に%S_R("主張してしまっている/ピンと張っている")%
			ENDIF
		ENDIF
	ENDIF
NEXT

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

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

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

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_1()
RETURN POWER(2, 性的嗜好_愛撫したい)

@COM_PREFERENCE_TARGET_1()
RETURN POWER(2, 性的嗜好_愛撫されたい)

repo_name: napo/erafl

license: unknown


code:
;触手挿入

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME201
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_ABLE201
;共通部分
CALL COM_ABLE_COMMON(201)
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))
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM201
;実行判定
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, 150)
SOURCE:(MPLY:0):嗜虐 = 50
SOURCE:(MPLY:0):逸脱 = 100
SOURCE:(MPLY:0):触手 = 30
SOURCE:(MPLY:0):性行動 = 150

;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MPLY:0, 170, 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(MPLY:0, LOCAL:2, 1000 + ABL:(MPLY:0):魔術 * 8) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 500)
	SOURCE:(LOCAL:2):逸脱 = 500 - (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 200)
	SOURCE:(LOCAL:2):触手 = 600 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 300)
	SOURCE:(LOCAL:2):性行動 = 300 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 150)

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

	;共通処理
	CALL COM_COMMON201(LOCAL:2)

	IF TALENT:(LOCAL:2):処女
		IF MPLY:0 == MASTER
			;処女喪失フラグ(主人に性交以外で奪われる)
			TCVAR:(LOCAL:2):処女喪失フラグ = 2
		ELSE
			;処女喪失フラグ(主人以外に性交以外で奪われる)
			TCVAR:(LOCAL:2):処女喪失フラグ = 4
		ENDIF
	ENDIF
	;衣装損壊率の上昇
	CALL IS_COVERED(MTAR:(LOCAL:0), 被覆部位_秘部)
	IF RESULT:1 != 0
		衣装損壊率:(MTAR:(LOCAL:0)):(RESULT:0) += RAND(40, 60)
	ENDIF
NEXT

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

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

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

RETURN 1

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

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

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

;全てのターゲットについて判定
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(LOCAL:2, LOCAL:3, 800 + ABL:(LOCAL:2):魔術 * 6) + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 400)
	SOURCE:(LOCAL:3):逸脱 += 200 - (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 50)
	SOURCE:(LOCAL:3):触手 += 300 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 150)
	SOURCE:(LOCAL:3):性行動 += 100 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 50)

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

	;共通処理
	CALL COM_COMMON201(LOCAL:3)

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

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

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP201(ARG:0)
IF TALENT:(MEQUIP_TARGET:(ARG:0):0):Ｖ敏感
	PRINTFORM %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%の\@ RAND:2 ? 敏感な # 良く締まる \@
ELSE
	PRINTFORM %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%の
ENDIF
SELECTCASE RAND:18
	CASE 0
		PRINTL 膣を欲望のままに突き上げている…
	CASE 1
		PRINTL 膣内を撫で廻している…
	CASE 2
		PRINTL 膣へ入り込み、子宮を擦り続けている…
	CASE 3
		PRINTL 膣口を打ちつけるように突き上げている…
	CASE 4
		PRINTL 膣内をかき混ぜるように突き上げている…
	CASE 5
		PRINTL 膣内をぐりぐり弄んでいる…
	CASE 6
		PRINTL 膣へゆっくりと突き入れている…
	CASE 7
		PRINTL 膣から肉壁を擦るよう突き入れている…
	CASE 8
		PRINTL 膣へ入り込み、子宮内で腹裏を舐め上げている…
	CASE 9
		PRINTL 膣へ角度をつけて、何度も突き入れている…
	CASE 10
		PRINTL 膣へ入り込み、子宮奥を叩くように突き入れている…
	CASE 11
		PRINTL 膣へ進入し、子宮内でキスを降らしている…
	CASE 12
		PRINTL 膣へ入り込み、子宮口を穿り続けている…
	CASE 13
		PRINTL 膣を嬲り犯し、粘液を撒き散らしている…
	CASE 14
		PRINTL 膣を犯し、結合部からは細い糸をが垂れている…
	CASE 15
		PRINTL 膣を犯し、奥で愛液を混ぜ合わせている…
	CASE 16
		PRINTL 膣へ入り込み、子宮を開発しつづけている…
	CASE 17
		PRINTL 膣へ入り込み、愛液を勢い良く吸い上げた…
ENDSELECT

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP201(ARG:0)
PRINTFORMW %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の膣内から触手を引き抜いた…

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

;共通部分
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_BEFORE201
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)%たち
	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
			SELECTCASE RAND:15
				CASE 0
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手をさらに激しく突き上げ%TARGET_STR("た", "てきた")%…
				CASE 1
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を動かし、膣内を撫で廻し%TARGET_STR("た", "てきた")%…
				CASE 2
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を動かし、より奥に突き入れ子宮を弄ん%TARGET_STR("だ", "てきた")%…
				CASE 3
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を一度抜き、大きな音が鳴る様に突き入れ%TARGET_STR("た", "てきた")%…
				CASE 4
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を動かし、かき混ぜるように弄ん%TARGET_STR("だ", "てきた")%…
				CASE 5
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を奥まで到達させ、押し付けてぐりぐりと回転させ%TARGET_STR("た", "てきた")%…
				CASE 6
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手をゆっくり、焦らすようにスライドさせ%TARGET_STR("た", "てきた")%…
				CASE 7
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を動かし、肉壁を擦りながら叩い%TARGET_STR("た", "てきた")%…
				CASE 8
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手をしならせ、腹裏をなぞるように突き上げ%TARGET_STR("た", "てきた")%…
				CASE 9
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を動かし、腰が曲がるようにして嵌め犯し%TARGET_STR("た", "てきた")%…
				CASE 10
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を加速させ、奥を叩くように突き上げ%TARGET_STR("た", "てきた")%…
				CASE 11
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を動かし、膣内を舐め解すように責め立て%TARGET_STR("た", "てきた")%…
				CASE 12
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を細かく動かし弱い部分を責め立て%TARGET_STR("た", "てきた")%…
				CASE 13
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を動かし、膣内へキスをするように刺激し%TARGET_STR("た", "てきた")%…
				CASE 14
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の膣に挿入された触手を動かし、子宮壁を撫で回してを開発し%TARGET_STR("た", "てきた")%…
			ENDSELECT
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %LOCALS:1%は挿入された%ANAME(MPLY:0)%の触手を膣内で締め付け、快楽を貪るように激しく腰を動かした…
			;第三者に主導権
		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 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:12
				CASE 0
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、激しく突き上げ%TARGET_STR("た", "てきた")%…
				CASE 1
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、何度も膣内を撫で廻し%TARGET_STR("た", "てきた")%…
				CASE 2
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、子宮へ届くほどに突き入れ%TARGET_STR("た", "てきた")%…
				CASE 3
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、大きな音が鳴る様に突き入れ%TARGET_STR("た", "てきた")%…
				CASE 4
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、かき混ぜるように突き入れ%TARGET_STR("た", "てきた")%…
				CASE 5
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入させ、ぐりぐりと回転させながら突き入れ%TARGET_STR("た", "てきた")%…
				CASE 6
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、ゆっくりと突き入れ%TARGET_STR("た", "てきた")%…
				CASE 7
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入させ、肉壁に擦るよう突き入れ%TARGET_STR("た", "てきた")%…
				CASE 8
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、腹裏をなぞるように突き上げ%TARGET_STR("た", "てきた")%…
				CASE 9
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、腰が曲がるように突き入れ%TARGET_STR("た", "てきた")%…
				CASE 10
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、奥を叩くように突き入れた%TARGET_STR("た", "てきた")%…
				CASE 11
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、膣内を舐め解すように突き入れ%TARGET_STR("た", "てきた")%…
				CASE 12
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、子宮壁を撫で回してを開発し%TARGET_STR("た", "てきた")%…
			ENDSELECT
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%の触手で%LOCALS:3%膣を犯すように命令した
			PRINTFORMW %ANAME(MPLY:0)%は言われた通り%LOCALS:1%の%LOCALS:0%に触手を挿入し、膣内を突き上げた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、触手で%LOCALS:1%の膣を犯すように命令した
			PRINTFORMW %ANAME(MPLY:0)%は言われた通り%LOCALS:1%の%LOCALS:0%に触手を挿入し、膣内を突き上げた…
	ENDSELECT
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST201
#DIMS 実行名
#DIMS 対象名
#DIMS 衣装描写

IF MTAR:0 != MASTER || CONFIG:441
	LOCAL:2 = CUP:(MTAR:0):快Ｖ

	LOCALS:3 = %TOSTR_EMOTION(MTAR:0)%

	IF TCVAR:(MTAR:0):失神フラグ
		;気絶中
		PRINTFORML %ANAME(MTAR:0)%は触手に犯される度に大きく体を揺らし、気を失いながらも悶えている
	ELSEIF LOCAL:2 > 10000
		実行名 = %ANAME(MPLY)%
		対象名 = %ANAME(MTAR)%
		IF HAS_TENTACLE(MPLY)
			{
				CALLF PRINT_RANDC(
					@"%対象名%は異形の触手によってもたらされる背徳的な快楽を甘受し、%S_R("弛緩した笑みを浮かべている/淫らに喘いでいる/唾液を垂れ流して喘いでいる")%", CHECK_EMOTION(MTAR, "GOOD")
					,@"%対象名%は異形の触手がもたらす快楽の虜になり、%語彙_秘部()%を突き上げられる度に%S_R("嬌声を響かせている/舌を突き出して喘いでいる/口から唾液を垂れ流して喘いでいる")%", CHECK_EMOTION(MTAR, "GOOD")
					)
			}
			PRINTL
		ENDIF
		;最大の時は感情によって反応が違う
		SELECTCASE RAND:5
			CASE 0
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は触手と一体化したかのようにリズミカルに腰を跳ねさせ、触手の寵愛を受け入れている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は触手の動きに合わせて腰を撃ちつけ、触手を乗りこなしている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は自ら動いて触手のペースを調整し、触手を乗りこなしている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は触手と一体化したかのようにリズミカルに腰を跳ねさせ、触手の寵愛を受け入れている
				ENDIF
			CASE 1
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は触手を導くように姿勢を動かし、更なる快楽をねだっている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は身体を動かして姿勢を整えると、腰に力を込めて膣で触手を締め付けた
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は触手に抱かれる姿勢をとり、より奥に触手を受け入れようとしている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は触手を導くように姿勢を動かし、更なる快楽をねだっている
				ENDIF
			CASE 2
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は蕩けた目をしながら触手と自らの体が産み出す淫音を聞き続けている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は口では恨み言をいいながらも触手と自らの体が産み出す淫音を聞き続けている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%はぎゅっと目を瞑りながら触手と自らの体が産み出す淫音を聞き続けている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%はぎゅっと目を瞑りながら触手と自らの体が産み出す淫音を聞き続けている
				ENDIF
			CASE 3
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は恋をしたような目をしながら、触手の責めに甘えている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は口では責められる事を否定しながらも、触手の責めに甘えている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は悲鳴を上げながらも、更なる行為を求めて触手の責めに甘えている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は声にならない声を出し、更なる行為を求めて触手の責めに甘えている
				ENDIF
			CASE 4
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は赤子のように触手に抱えられ、幸福そうに触手に犯されている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は赤子のように触手に抱えられ、オーガズムに震えながら触手に犯されている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は赤子のように触手に抱えられ、あやされる様に触手に犯されている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は赤子のように触手に抱えられ、深々と触手に犯されている
				ENDIF
		ENDSELECT
	ELSEIF LOCAL:2 > 6000
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%は自ら腰を振り、触手との性交を求めている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%は火照った顔で腰を動かし、触手との交尾を受け入れている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%は自分を犯す音に合わせて腰を動かし、触手との性交を続けている
			CASE 3
				PRINTFORML %ANAME(MTAR:0)%は目を閉じて触手のなすがままになって犯されている
			CASE 4
				PRINTFORML %ANAME(MTAR:0)%は触手に自分の身体を預け、無抵抗に犯されている
		ENDSELECT
	ELSEIF LOCAL:2 > 3000 && ABL:(MTAR:0):触手 >= 1|| LOCAL:2 > 300 && ABL:(MTAR:0):触手 >= 5
		IF TALENT:(LOCAL:1):恥じらい || TALENT:(MTAR:0):抑圧 || TALENT:(MTAR:0):孤高 || TALENT:(MTAR:0):快感の否定
			SELECTCASE RAND:5
				CASE 0
					PRINTFORML %ANAME(MTAR:0)%は触手によって滑らかに腹の裏を撫で犯される快感に抗おうとしている
				CASE 1
					PRINTFORML %ANAME(MTAR:0)%は異形と交わりながらも感じ始めてしまっている自分を必死に否定している
				CASE 2
					PRINTFORML %ANAME(MTAR:0)%は体は触手からもたらされる快楽から逃れようともがいている
				CASE 3
					PRINTFORML %ANAME(MTAR:0)%は赤面しながらも触手の責めにどうにか耐えようと奥歯をかみ締めている
				CASE 4
					PRINTFORML %ANAME(MTAR:0)%はつま先立ちになり、絶頂を必死に耐えようとしながら触手に犯されている
			ENDSELECT
		ELSE
			SELECTCASE RAND:5
				CASE 0
					PRINTFORML %ANAME(MTAR:0)%は触手によって滑らかに腹の裏を撫で犯される快楽に喘いでいる
				CASE 1
					PRINTFORML %ANAME(MTAR:0)%は異形と理解しながらも触手に交わりを求め始めている
				CASE 2
					PRINTFORML %ANAME(MTAR:0)%は触手からもたらされる快楽に流されそうになっている
				CASE 3
					PRINTFORML %ANAME(MTAR:0)%は触手の責めに耐えられず赤面しながら喘いでいる
				CASE 4
					PRINTFORML %ANAME(MTAR:0)%はつま先立ちになり、今にも崩壊しそうな顔で触手に犯されている
			ENDSELECT
		ENDIF
	ELSEIF LOCAL:2 > 300|| ABL:(MTAR:0):触手 >= 3
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%は触手から与えられる慣れない感覚に悲鳴を上げている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%はくちゅくちゅと触手が膣で蠢く度に震えながら首を振っている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%は巧みに胎内を犯される感覚に目を見開いて震えている
			CASE 3
				PRINTFORML %ANAME(MTAR:0)%は異形に身体を穢される感覚に涙をこぼしながら悲鳴を上げている
		ENDSELECT
	ELSE
		;触手に慣れたらここの下は表示されない
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%は体に入り込んでくる異形から逃れるべく暴れている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%は逃げようとするも、触手を抜く事が出来ず犯され続けている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%はねじ込まれた触手を止めようと涙目で必死に抗っている
			CASE 3
				PRINTFORML %ANAME(MTAR:0)%は強引に触手に犯されて嫌がっている
		ENDSELECT
	ENDIF
ENDIF

;特殊描写
実行名 = %ANAME(MPLY)%
対象名 = %ANAME(MTAR)%
IF HAS_TENTACLE(MPLY)
	{
		CALLF PRINT_RANDC(
			@"%実行名%が%対象名%を激しく犯す度に、%対象名%の異形を孕んで膨張した腹が、艶かしく揺れた…", C_COND("素質:触手妊娠",, MTAR)
			,@"%実行名%が%対象名%を下から突き上げて蹂躙する度に、触手の幼体で満たされて膨れ上がった%対象名%の腹が上下に揺れる…", C_COND("素質:触手妊娠",, MTAR)
			,@"触手の母体として%対象名%の子宮は既に異形の子を孕んで膨れ上がっている。しかし%実行名%はお構いなしにより深く、深く触手を突き入れ蹂躙している…", C_COND("素質:触手妊娠",, MTAR)
			)
	}
	PRINTL
ENDIF

;--------------------------------------------------------
;選択時と継続状態での共通処理
;--------------------------------------------------------
@COM_COMMON201(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

CALL TIGHTNESS_DECREASE_V(ARG:0, RAND(1, 4))
CALL VIRGIN_COMMON(ARG:0, "触手", GET_SITUATION_BY_TRAIN_MODE())

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

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

@COM_AVAILABLE_WHEN201
RETURN コマンド_ウフフ

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

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


code:
;触手Ａ挿入

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME202
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_ABLE202
;共通部分
CALL COM_ABLE_COMMON(202)
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))
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM202
;実行判定
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, 150)
SOURCE:(MPLY:0):嗜虐 = 70
SOURCE:(MPLY:0):逸脱 = 120
SOURCE:(MPLY:0):触手 = 30
SOURCE:(MPLY:0):性行動 = 90

;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MPLY:0, 180, 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(MPLY:0, LOCAL:2, 1000 + ABL:(MPLY:0):魔術 * 8) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 500)
	SOURCE:(LOCAL:2):逸脱 = 600 - (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 300)
	SOURCE:(LOCAL:2):触手 = 600 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 300)
	SOURCE:(LOCAL:2):性行動 = 150 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 75)

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

	;共通処理
	CALL COM_COMMON202(LOCAL:2)

	;衣装損壊率の上昇
	CALL IS_COVERED(MTAR:(LOCAL:0), 被覆部位_尻)
	IF RESULT:1 != 0
		衣装損壊率:(MTAR:(LOCAL:0)):(RESULT:0) += RAND(40, 60)
	ENDIF
NEXT

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP202(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

	SOURCE:(LOCAL:3):快Ａ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 800 + ABL:(LOCAL:2):魔術 * 6) + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 400)
	SOURCE:(LOCAL:3):逸脱 += 250 - (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 50)
	SOURCE:(LOCAL:3):触手 += 300 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 150)
	SOURCE:(LOCAL:3):性行動 += 50 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 50)

	SOURCE:(LOCAL:3):逸脱 += 250
	SOURCE:(LOCAL:3):触手 += 300
	SOURCE:(LOCAL:3):性行動 += 50

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

	;共通処理
	CALL COM_COMMON202(LOCAL:3)

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

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

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP202(ARG:0)
IF TALENT:(MEQUIP_TARGET:(ARG:0):0):Ａ敏感
	PRINTFORM %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%の\@ RAND:2 ? 敏感な # ヒクつく \@アナル
ELSE
	PRINTFORM %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%のアナル
ENDIF
SELECTCASE RAND:5
	CASE 0
		PRINTL を激しく突き上げている…
	CASE 1
		PRINTL を何度も責め続けている…
	CASE 2
		PRINTL をぐりぐりと刺激している…
	CASE 3
		PRINTL にゆっくりと突き入れている…
	CASE 4
		PRINTL を刺激するよう動き続けている…
ENDSELECT

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP202(ARG:0)
PRINTFORMW %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%のアナルから触手を引き抜いた…

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

;共通部分
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_BEFORE202
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)%たち
	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
			SELECTCASE RAND:5
				CASE 0
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%のアナルに挿入された触手をさらに激しく突き上げ%TARGET_STR("た", "てきた")%…
				CASE 1
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%のアナルに挿入された触手を動かして何度も出入りを繰り返し%TARGET_STR("た", "てきた")%…
				CASE 2
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%のアナルに挿入された触手をぐりぐりと回転させ%TARGET_STR("た", "てきた")%…
				CASE 3
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%のアナルに挿入された触手を肉壁をなぞるようにゆっくりと突き入れ%TARGET_STR("た", "てきた")%…
				CASE 4
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%のアナルに挿入された触手を細かく動かし、刺激するよう責め立て%TARGET_STR("た", "てきた")%…
			ENDSELECT
			;ターゲットに主導権
		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 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:5
				CASE 0
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、内部をかき混ぜるように蠢かせ%TARGET_STR("た", "てきた")%…
				CASE 1
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入させ、何度も出入りを繰り返し%TARGET_STR("た", "てきた")%…
				CASE 2
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入させ、ぐりぐりと回転させ%TARGET_STR("た", "てきた")%…
				CASE 3
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入し、ゆっくりと突き入れ%TARGET_STR("た", "てきた")%…
				CASE 4
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に%LOCALS:2%触手を挿入させ、刺激するよう責め立て%TARGET_STR("た", "てきた")%…
			ENDSELECT
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に対し、触手を%LOCALS:3%アナルに挿入するように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%を触手で貫き、求められるまま前後に動かした…
			;第三者に主導権
		CASEELSE
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に対し、触手を%LOCALS:1%のアナルに挿入するように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%を触手で貫き、言われるまま前後に動かした…
	ENDSELECT
ENDIF

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

IF MTAR:0 != MASTER || CONFIG:441
	LOCAL:2 = CUP:(MTAR:0):快Ａ

	LOCALS:3 = %TOSTR_EMOTION(MTAR:0)%

	IF TCVAR:(MTAR:0):失神フラグ
		;気絶中
		PRINTFORML %ANAME(MTAR:0)%は触手に犯される度に大きく体を揺らし、アナルを穿つ度に小さく声を上げている
	ELSEIF LOCAL:2 > 10000
		;最大の時は感情によって反応が違う
		SELECTCASE RAND:4
			CASE 0
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は菊穴を貪られる度に色っぽい淫声を上げている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は菊穴を貪られる度に甲高い淫声を上げている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は菊穴を貪られる度にくぐもった淫声を上げている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は菊穴を貪られる度に甲高い淫声を上げている
				ENDIF
			CASE 1
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は気持ち良さそうな顔をして触手のアナル責めを受け入れている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は眉間を険しくしながらも触手のアナル責めを受け入れている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は黙って俯きながら触手のアナル責めを受け入れている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は黙って俯きながら触手のアナル責めを受け入れている
				ENDIF
			CASE 2
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は更なる快楽をねだって触手を手で擦り上げている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は乱暴する触手に仕返しをするように、強く手で擦り上げている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は衝動に突き動かされ、無意識に触手を手で擦り上げている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は何度も触手を手で擦り上げている
				ENDIF
			CASE 3
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は背筋を伸ばしながら、気持ち良さそうに触手に犯されている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は背筋を伸ばしながら、何かを叫びつつ触手に犯されている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は背筋を伸ばしながら、快楽で涙を零しつつ触手に犯されている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は背筋を伸ばしながら、深々と触手に犯されている
				ENDIF
		ENDSELECT
	ELSEIF LOCAL:2 > 6000
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%は自ら身体を動かし、触手に菊穴を犯されている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%は力を抜いて触手のさせたいように身体を犯させている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%は抵抗する事も無く触手に犯されている
			CASE 3
				PRINTFORML %ANAME(MTAR:0)%は触手がアナルで動く度に深い吐息を漏らしている
		ENDSELECT
	ELSEIF LOCAL:2 > 3000 && ABL:(MTAR:0):触手 >= 1 || LOCAL:2 > 300 && ABL:(MTAR:0):触手 >= 5
		IF TALENT:(LOCAL:1):恥じらい || TALENT:(MTAR:0):抑圧 || TALENT:(MTAR:0):孤高 || TALENT:(MTAR:0):快感の否定
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML %ANAME(MTAR:0)%の顔は赤く染まっており、必死に声を噛み殺して責めから耐えている
				CASE 1
					PRINTFORML %ANAME(MTAR:0)%はアナルを犯される感覚に快楽を感じてしまっている自分を必死に否定している
				CASE 2
					PRINTFORML %ANAME(MTAR:0)%は震えながら触手のアナル責めを耐えようとしている
				CASE 3
					PRINTFORML %ANAME(MTAR:0)%は触手のアナル責めを涙目で耐えている
			ENDSELECT
		ELSE
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML %ANAME(MTAR:0)%の顔は赤く染まっており、喉奥から切ない声が度々漏れている
				CASE 1
					PRINTFORML %ANAME(MTAR:0)%はアナルを犯される感覚に快楽を見出し始めている
				CASE 2
					PRINTFORML %ANAME(MTAR:0)%は震えながら触手にアナルを犯されている
				CASE 3
					PRINTFORML %ANAME(MTAR:0)%は触手のアナル責めに耐えられず涙目で喘いでいる
			ENDSELECT
		ENDIF
	ELSEIF LOCAL:2 > 300|| ABL:(MTAR:0):触手 >= 3
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%は触手の蠢く感覚に震えて声を上げている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%はきつい菊門を犯されて目に涙を浮かべている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%は触手にアナルを穿たれて濁音の篭った悲鳴を上げている
			CASE 3
				PRINTFORML %ANAME(MTAR:0)%は尻穴から侵食してくる触手に対して思わず声を上げた
		ENDSELECT
	ELSE
		;触手に慣れたらここの下は表示されない
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%はアナルに突き入れられた触手から逃れようと暴れている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%はアナルに入り込んでくる触手を止めようと涙目で必死に抗っている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%は触手を尻穴に突き入れられ、耐えられず奇声を上げた
			CASE 3
				PRINTFORML %ANAME(MTAR:0)%はアナルに入り込んだ触手をどうにかしようと抵抗している
		ENDSELECT
	ENDIF
ENDIF

;--------------------------------------------------------
;選択時と継続状態での共通処理
;--------------------------------------------------------
@COM_COMMON202(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

CALL TIGHTNESS_DECREASE_A(ARG:0, RAND(1, 4))
CALL VIRGIN_COMMON_A(ARG:0, "触手", GET_SITUATION_BY_TRAIN_MODE())

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

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

@COM_AVAILABLE_WHEN202
RETURN コマンド_ウフフ

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

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


code:
;触手クリ責め

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME203
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_ABLE203
;共通部分
CALL COM_ABLE_COMMON(203)
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))
		RETURN 0
	;using clit cap
	SIF IS_EQUIP_TARGET(MTAR:(LOCAL:0), 63)
		RETURN 0
	;ターゲットが顔面騎乗中なら不可
	SIF IS_RIDE(MTAR:(LOCAL:0))
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM203
;実行判定
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, 150)
SOURCE:(MPLY:0):嗜虐 = 30
SOURCE:(MPLY:0):逸脱 = 80
SOURCE:(MPLY:0):触手 = 30
SOURCE:(MPLY:0):性行動 = 90

;主導権に応じた優越・屈従のソース追加
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(MPLY:0, LOCAL:2, 1000 + ABL:(MPLY:0):魔術 * 8) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 500)
	SOURCE:(LOCAL:2):逸脱 = 300 - (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 150)
	SOURCE:(LOCAL:2):触手 = 300 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 300)
	SOURCE:(LOCAL:2):性行動 = 180 + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 90)

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

	;共通処理
	CALL COM_COMMON203(LOCAL:2)

	;衣装損壊率の上昇
	CALL IS_COVERED(MTAR:(LOCAL:0), 被覆部位_秘部)
	IF RESULT:1 != 0
		衣装損壊率:(MTAR:(LOCAL:0)):(RESULT:0) += RAND(40, 60)
	ENDIF
NEXT

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP203(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

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

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

	;共通処理
	CALL COM_COMMON203(LOCAL:3)

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE203(ARG:0)
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%に対して%EQUIP_PLAYER_ANAME(ARG:0)%の触手がクリ責め中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP203(ARG:0)
#DIM PLAYER_ID
#DIM TARGET_ID
#DIMS 実行名
#DIMS 対象名
#DIMS 衣装描写
#DIMS 潤滑描写

PLAYER_ID = MEQUIP_PLAYER:(ARG:0):0
TARGET_ID = MEQUIP_TARGET:(ARG:0):0
実行名 = %EQUIP_PLAYER_ANAME(ARG)%
対象名 = %EQUIP_TARGET_ANAME(ARG)%

IF IS_ESTRUS(TARGET_ID, 8) && IS_WET(TARGET_ID)
	潤滑描写 = %S_R(@"%語彙_愛液()%と体液でまみれた/%語彙_潤滑()%")%
ENDIF
衣装描写 = %C_COND_MAP_GETS(TARGET_ID, "被覆衣装描写_秘部_下着")%

IF HAS_TENTACLE(MPLY)
	{
		CALLF PRINT_RANDC(
			@"%実行名%の無数の突起が%対象名%の%語彙_陰核()%を激しく前後に擦りあげている…", 1
			,@"%実行名%は%対象名%をぬめりを帯びた触手に跨がらせ、%語彙_陰核()%を前後に激しく擦って刺激している…", 1
			,@"%実行名%は%対象名%を開脚させ、無防備になった%語彙_陰核()%を激しく舐め回すように弄り回している…", 1
			,@"%実行名%の無数の突起が%対象名%の%語彙_陰核()%を激しく前後に擦りあげている…", 1
			,@"%実行名%が%対象名%の%衣装描写%の上から、%語彙_陰核()%にねっとりと粘液を塗りたくりながら擦り回している…", 衣装描写 != ""
			,@"%対象名%の%潤滑描写%%衣装描写%の上から、%実行名%が%語彙_陰核()%を%S_R("淫猥な/ぐしょぐしょと/にちゃにちゃと")%音を立てて擦り回している…", 衣装描写 != "" && 潤滑描写 != ""
			,@"%実行名%は%対象名%の%潤滑描写%%衣装描写%の中に触手を滑り込ませ、%語彙_陰核()%を%S_R("淫猥な/ぐしょぐしょと/にちゃにちゃと")%音を響かせて弄り回している…", 衣装描写 != ""
			)
	}
	PRINTL
ELSE
	IF TALENT:(MEQUIP_TARGET:(ARG:0):0):Ｃ敏感
		PRINTFORM %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%の\@ RAND:2 ? 敏感な # 過敏な \@クリトリス
	ELSE
		PRINTFORM %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%のクリトリス
	ENDIF
	{
		CALLF PRINT_RAND(
			@"を擦り上げている…"
			,@"を弄んでいる…"
			,@"を撫で回している…"
			,@"をキュッとつまみ上げている…"
			,@"をピンッと弾いている…"
			,@"を突っついて刺激し続けている…"
			,@"をぐりぐりと摩擦している…"
			,@"を取り囲んでこね上げている…"
			,@"を器用に挟み込んでいる…"
			,@"を下から押し上げて弄んでいる…"
			)
	}
	PRINTL
ENDIF
;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP203(ARG:0)

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER203(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_BEFORE203
LOCAL:1 = 1
FOR LOCAL:0, 0, MTAR_NUM
	IF SEARCH_EQUIP(203, MPLY:0, MTAR:(LOCAL:0)) == -1
		LOCAL:1 = 0
	ENDIF
NEXT

;全員が既に触手クリ責め中なら分岐
IF LOCAL:1
	;継続中の地の文をカット
	FOR LOCAL:0, 0, MTAR_NUM
		LOCAL:2 = SEARCH_EQUIP(203, 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
			{
				CALLF PRINT_RANDC(
					@"%ANAME(MPLY:0)%は%LOCALS:1%のクリトリスを、ヌメる触手のイボでさらに激しく擦り上げ%TARGET_STR("た", "てきた")%…", 1
					,@"%ANAME(MPLY:0)%は細い触手で%LOCALS:1%のクリトリスを挟んで、もっと激しく擦り上げ%TARGET_STR("た", "てきた")%…", 1
					,@"%ANAME(MPLY:0)%はブラシのような触手で%LOCALS:1%のクリトリスを、さらに撫で回し%TARGET_STR("た", "てきた")%…", 1
					,@"%ANAME(MPLY:0)%は%LOCALS:1%のクリトリスを、さらに触手でつまみ上げて弄ん%TARGET_STR("だ", "てきた")%…", 1
					,@"%ANAME(MPLY:0)%は%LOCALS:1%のクリトリスを、ピンと立てた触手の先端で何度も弾い%TARGET_STR("た", "てきた")%…", 1
					,@"%ANAME(MPLY:0)%は密集した触手で%LOCALS:1%のクリトリスを押さえ込み、ねっとりと撫で回して刺激し続け%TARGET_STR("た", "てきた")%…", 1
					,@"%ANAME(MPLY:0)%は%LOCALS:1%のクリトリスに、つるりとした触手で押しつぶすとぐりぐりと摩擦し%TARGET_STR("た", "てきた")%…", 1
					,@"%ANAME(MPLY:0)%は無数の突起を持つ触手で%LOCALS:1%のクリトリスに粘性の液体塗りつけながら、激しく擦り回し%TARGET_STR("だ", "てきた")%…", 1
					,@"%ANAME(MPLY:0)%は%LOCALS:1%のクリトリスに当てた触手をより大きく動かし、陰核を強く擦り上げ%TARGET_STR("だ", "てきた")%…", 1
					,@"%ANAME(MPLY:0)%は%LOCALS:1%を触手に跨がらせると、無数の突起を陰核にあてがい激しく前後に擦り上げ%TARGET_STR("た", "てきた")%…", 1
					,@"%ANAME(MPLY:0)%は%LOCALS:1%のクリトリスの下から触手を押し上げ、くりくりと弄繰り回し%TARGET_STR("た", "てきた")%…", 1
					)
			}
			;ターゲットに主導権
		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 IS_PIERCED(MTAR:0, ピアス_クリトリス)
			LOCALS:0 = ピアスの取り付けられた
		ELSE
			LOCALS:0 =
		ENDIF

		IF PALAM:(MTAR:0):潤滑 >= PALAMLV:7
			LOCALS:0 = %LOCALS:0%てらてらと濡れる
		ENDIF

		IF TALENT:(MTAR:0):体格 == 体格_小柄
			LOCALS:0 = %LOCALS:0%包皮に包まれた
		ELSEIF PALAM:(MTAR:0):欲情 >= PALAMLV:7
			LOCALS:0 = %LOCALS:0%欲情してすっかり膨らんだ
		ENDIF

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

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			SELECTCASE RAND:11
				CASE 0
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に触手のイボを押し当て、%LOCALS:2%擦り上げ%TARGET_STR("た", "てきた")%…
				CASE 1
					PRINTFORMW %ANAME(MPLY:0)%は細い触手で%LOCALS:1%の%LOCALS:0%を挟んで、優しくスリスリと撫上げ%TARGET_STR("た", "てきた")%…
				CASE 2
					PRINTFORMW %ANAME(MPLY:0)%はブラシのような触手で%LOCALS:1%の%LOCALS:0%をひたすら撫で回し%TARGET_STR("た", "てきた")%…
				CASE 3
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%を触手でつまみ上げ、コリコリと何度も弄ん%TARGET_STR("だ", "てきた")%…
				CASE 4
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の股へと吸盤のような触手を吸い付かせ、%LOCALS:0%を吸い上げて刺激し%TARGET_STR("た", "てきた")%…
				CASE 5
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%を、ピンと立てた触手の先端で何度も弾い%TARGET_STR("た", "てきた")%…
				CASE 6
					PRINTFORMW %ANAME(MPLY:0)%は密集した触手で%LOCALS:1%の%LOCALS:0%を押さえ込み、わしゃわしゃ刺激し続け%TARGET_STR("た", "てきた")%…
				CASE 7
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%を、つるりとした触手で押しつぶすとぐりぐりと摩擦し%TARGET_STR("た", "てきた")%…
				CASE 8
					PRINTFORMW %ANAME(MPLY:0)%は尖った触手で%LOCALS:1%の%LOCALS:0%を、リズミカルに弾いて弄ん%TARGET_STR("だ", "てきた")%…
				CASE 9
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に触手を当て、大きく動かし陰核を強く擦り上げ%TARGET_STR("た", "てきた")%…
				CASE 10
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%の周りの溝に触手の先端を沿わせ、磨くようにして刺激し%TARGET_STR("た", "てきた")%…
				CASE 10
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%の下から触手を押し上げ、くりくりと弄繰り回し%TARGET_STR("た", "てきた")%…
			ENDSELECT
			;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に対し、触手でクリトリスを擦って気持ち良くするように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に触手のイボを押し当て、言われるままに陰核を擦り上げた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:1%のクリトリスを触手で弄るように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に触手のイボを押し当て、言われるままに陰核を擦り上げた…
	ENDSELECT
ENDIF

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

IF MTAR:0 != MASTER || CONFIG:441
	LOCAL:2 = CUP:(MTAR:0):快Ｃ

	LOCALS:3 = %TOSTR_EMOTION(MTAR:0)%

	IF TCVAR:(MTAR:0):失神フラグ
		;気絶中
		PRINTFORML 気絶している%ANAME(MTAR:0)%は触手が蠢く度に声を漏らしている
	ELSEIF LOCAL:2 > 10000
		;最大の時は感情によって反応が違う
		SELECTCASE RAND:4
			CASE 0
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は艶やかに悶えながら官能的な声を上げ、触手の溺愛を受け入れている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は激しく悶えながら官能的な声を上げ、触手の溺愛を受け入れている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は切なく悶えながら官能的な声を上げ、触手の溺愛を受け入れている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は艶やかに悶えながら官能的な声を上げ、触手の溺愛を受け入れている
				ENDIF
			CASE 1
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%はトロけた目つきで湧き上がり続ける快感に身を震わせている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は耳まで顔を真っ赤に染め上げながら、湧き上がり続ける快感に身を震わせている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は気持ちよさで涙を零しながらも、湧き上がり続ける快感に身を震わせている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%はトロけた目つきで湧き上がり続ける快感に身を震わせている
				ENDIF
			CASE 2
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は触手に更なる責め立てを求めて、より犯されやすい姿勢をとろうとしている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は形だけは抵抗する素振りをしつつも、より犯されやすい姿勢をとろうとしている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は目を伏せてオーガズムを感じつつ、より犯されやすい姿勢をとろうとしている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は触手に更なる責め立てを求めて、より犯されやすい姿勢をとろうとしている
				ENDIF
			CASE 3
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は恋をしたような目をしながら、触手の責めに甘えている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は口では責められる事を否定しながらも、触手の責めに甘えている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は悲鳴を上げながらも、更なる行為を求めて触手の責めに甘えている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は声にならない声を出し、更なる行為を求めて触手の責めに甘えている
				ENDIF
		ENDSELECT
	ELSEIF LOCAL:2 > 6000
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%は顔を真っ赤に染め上げ、触手の責め立てを受け入れている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%は響き渡る淫音に操られるかのように身をくねり動かしている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%は触手の動きに合わせて身を震わせ、艶めかしい嬌声を上げ続けている
			CASE 3
				PRINTFORML %ANAME(MTAR:0)%は触手に組み敷かれて、偶にビクンッと跳ねながらなすがままになっている
		ENDSELECT
	ELSEIF LOCAL:2 > 3000 && ABL:(MTAR:0):触手 >= 1|| LOCAL:2 > 300 && ABL:(MTAR:0):触手 >= 5
		IF TALENT:(MTAR:0):恥じらい || TALENT:(MTAR:0):抑圧 || TALENT:(MTAR:0):孤高 || TALENT:(MTAR:0):快感の否定
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML %ANAME(MTAR:0)%は小さな声を洩らしながら、襲い掛かってくる快楽を必死に否定している
				CASE 1
					PRINTFORML %ANAME(MTAR:0)%は触手と自分の体が擦れ合って産まれるいやらしい音を否定しながら触手に責め続けられている
				CASE 2
					PRINTFORML %ANAME(MTAR:0)%は襲い掛かる快楽に、甘い声とうめき声を交互に上げながら抗っている
				CASE 3
					PRINTFORML %ANAME(MTAR:0)%は振り払おうととするも、触手からは逃れられず追い討ちを受けている
			ENDSELECT
		ELSE
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML %ANAME(MTAR:0)%は小さな声を洩らしながら、襲い掛かってくる快楽に身を委ねている
				CASE 1
					PRINTFORML %ANAME(MTAR:0)%は触手と自分の体が擦れ合って産まれるいやらしい音を聞きながら触手に責め続けられている
				CASE 2
					PRINTFORML %ANAME(MTAR:0)%は襲い掛かる快楽に、甘い声とうめき声を交互に上げながら身を委ねている
				CASE 3
					PRINTFORML %ANAME(MTAR:0)%は触手に抱えこまれ、荒い息をしながら触手に弄ばれている
			ENDSELECT
		ENDIF
	ELSEIF LOCAL:2 > 300 || ABL:(MTAR:0):触手 >= 3
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%は触手のもたらす快感に声なき声を上げている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%は触手が動くたびに体を抱きしめ快楽から耐えている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%は秘部を襲う触手の感覚に目を見開いて呻いている
			CASE 3
				PRINTFORML %ANAME(MTAR:0)%は恥部を襲う感覚に対し体をくの字に曲げて耐えている
		ENDSELECT
	ELSE
		;触手に慣れたらここの下は表示されない
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%は蠢く触手から逃れるべく必死に体をもがいている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%はどうにか責めから逃げようと無駄な抵抗をしている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%はなんとか触手を止めようと必死に体を動かしている
			CASE 3
				PRINTFORML %ANAME(MTAR:0)%は体を捻って触手を振りほどこうと暴れている
		ENDSELECT
	ENDIF
ENDIF

;--------------------------------------------------------
;選択時と継続状態での共通処理
;--------------------------------------------------------
@COM_COMMON203(ARG:0)
IF PALAM:(ARG:0):潤滑 < PALAMLV:1
	TIMES SOURCE:(ARG:0):快Ｃ, 0.60
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:3
	TIMES SOURCE:(ARG:0):快Ｃ, 0.75
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:5
	TIMES SOURCE:(ARG:0):快Ｃ, 0.90
ELSE
	TIMES SOURCE:(ARG:0):快Ｃ, 1.00
ENDIF

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

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

@COM_AVAILABLE_WHEN203
RETURN コマンド_ウフフ

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

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


code:
;触手胸愛撫

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME204
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_ABLE204
;共通部分
CALL COM_ABLE_COMMON(204)
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_EQUIP_TARGET(MTAR:(LOCAL:0), 1)
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM204
;実行判定
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, 150)
SOURCE:(MPLY:0):嗜虐 = 30
SOURCE:(MPLY:0):逸脱 = 80
SOURCE:(MPLY:0):触手 = 30
SOURCE:(MPLY:0):性行動 = 90

;主導権に応じた優越・屈従のソース追加
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

	LOCAL:3 = 1000 + ABL:(MPLY:0):魔術 * 8
	SOURCE:(LOCAL:2):快Ｂ = SENSE_HOUSHI(MPLY:0, LOCAL:2, LOCAL:3 * 4 / 5) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 500)
	SOURCE:(LOCAL:2):搾乳 = SENSE_HOUSHI(MPLY:0, LOCAL:2, LOCAL:3 * 1 / 5) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 500)
	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, 60)

	;衣装損壊率の上昇
	CALL IS_COVERED(MTAR:(LOCAL:0), 被覆部位_乳首)
	IF RESULT:1 != 0
		衣装損壊率:(MTAR:(LOCAL:0)):(RESULT:0) += RAND(40, 60)
	ENDIF
NEXT

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP204(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:(MPLY:0):魔術 * 6
	SOURCE:(LOCAL:3):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, LOCAL:4 * 4 / 5) + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 400)
	SOURCE:(LOCAL:3):搾乳 += SENSE_HOUSHI(LOCAL:2, LOCAL:3, LOCAL:4 * 1 / 5) + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 400)
	SOURCE:(LOCAL:3):逸脱 += 120 - (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 60)
	SOURCE:(LOCAL:3):触手 += 150 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 75)
	SOURCE:(LOCAL:3):性行動 += 60 + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 30)

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

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE204(ARG:0)
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%に対して%EQUIP_PLAYER_ANAME(ARG:0)%の触手が胸愛撫中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP204(ARG:0)
IF TALENT:(MEQUIP_TARGET:(ARG:0):0):Ｂ敏感
	PRINTFORM %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%の\@ RAND:2 ? 敏感な # 形の良い \@
ELSE
	PRINTFORM %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%の
ENDIF
SELECTCASE RAND:9
	CASE 0
		PRINTL 胸を弄び、乳首に吸い付いている…
	CASE 1
		PRINTL 胸を弄び、乳首を刺激し続けている…
	CASE 2
		PRINTL 胸を弄び、胸へ粘液を擦り付けている…
	CASE 3
		PRINTL 胸を持ち上げるようし、乳首をなぞっている…
	CASE 4
		PRINTL 胸を擦り、弾いて弄んでいる…
	CASE 5
		PRINTL 胸を掴み、自由に動かしている…
	CASE 6
		PRINTL 乳首を掴み、引っ張り上げている…
	CASE 7
		PRINTL 乳首を潰し、こね回している…
	CASE 8
		PRINTL 胸へ粘液をこすり付けている…
ENDSELECT

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

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER204(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_BEFORE204
#DIMS DYNAMIC 特殊テキスト
LOCAL:1 = 1
FOR LOCAL:0, 0, MTAR_NUM
	IF SEARCH_EQUIP(204, MPLY:0, MTAR:(LOCAL:0)) == -1
		LOCAL:1 = 0
	ENDIF
NEXT

;特殊な地の文
FOR LOCAL, 0, MPLY_NUM
	IF CSTR:(MPLY:LOCAL):モブ識別子 == "スライム"
		特殊テキスト '= "スライム"
	ELSE
		特殊テキスト '= ""
	ENDIF
NEXT

IF 特殊テキスト == "スライム"
	{
		PRINTFORMW %S_R(@"
			%ANAME(MPLY:0)%は%ANAME(MTAR:0)%の%STR_BODY("胸", MTAR:0)%をゲル状の身体ですっぽりと覆い、緩急をつけて乳首を刺激し%TARGET_STR("た", "てきた")%…
			/%ANAME(MPLY:0)%はゲル状の身体を蠕動させ、%ANAME(MTAR:0)%の%STR_BODY("胸", MTAR:0)%をニュルニュルと弄びながら乳首を刺激し%TARGET_STR("た", "てきた")%…
			/%ANAME(MPLY:0)%はゲル状の身体を蠕動させ、%ANAME(MTAR:0)%の%STR_BODY("胸", MTAR:0)%をニュルニュルと弄びながら乳首を刺激し%TARGET_STR("た", "てきた")%…
			/%ANAME(MTAR:0)%の%STR_BODY("胸", MTAR:0)%に取り付いた%ANAME(MPLY:0)%はゲル状の身体をニュルニュルと蠕動させ、執拗に乳首を舐っ%TARGET_STR("た", "てきた")%…
			")%
	}
	RETURN
ENDIF
;全員が既に触手乳首責め中なら分岐
IF LOCAL:1
	;継続中の地の文をカット
	FOR LOCAL:0, 0, MTAR_NUM
		LOCAL:2 = SEARCH_EQUIP(204, 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
			SELECTCASE RAND:8
				CASE 0
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸に巻きつかせた触手をニュルニュルと蠢かせながら、触手の先端の口で乳首を甘咬みし%TARGET_STR("た", "てきた")%…
				CASE 1
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸に巻きつかせた触手をニュルニュルと蠢かせながら、触手の先端の乳首を刺激し%TARGET_STR("た", "てきた")%…
				CASE 2
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸を掴んだ触手で刺激し続けながら、触手の先端のから出る粘液を胸へ擦り付け%TARGET_STR("た", "てきた")%…
				CASE 3
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸を掴んだ触手で刺激し続けながら、胸を持ち上げるようし、乳首をなぞっ%TARGET_STR("た", "てきた")%…
				CASE 4
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸に掴んだ触手で刺激し続けながら、触手の先端で乳首を擦り、弾いて弄ん%TARGET_STR("だ", "てきた")%…
				CASE 5
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸に巻きつかせた触手をニュルニュルと蠢かせながら、ぐりぐりと自由に動かし%TARGET_STR("た", "てきた")%…
				CASE 6
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸に巻きつかせた触手をニュルニュルと蠢かせながら、乳首を掴み引っ張り上げ%TARGET_STR("た", "てきた")%…
				CASE 7
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸に巻きつかせた触手をニュルニュルと蠢かせながら、乳首を潰しこね回し%TARGET_STR("た", "てきた")%…
			ENDSELECT
			;ターゲットに主導権
		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

ELSEIF 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
			SELECTCASE RAND:8
				CASE 0
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸を触手で愛撫しながら、さらに先端に付いた口で乳首を吸引し%TARGET_STR("た", "てきた")%
				CASE 1
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸を触手で愛撫しながら、触手の先端の乳首を刺激し%TARGET_STR("た", "てきた")%…
				CASE 2
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸を左右から触手で鷲づかみにし、触手の先端のから出る粘液を胸へ擦り付け%TARGET_STR("た", "てきた")%…
				CASE 3
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸を左右から触手で鷲づかみにし、胸を持ち上げるようし、乳首をなぞっ%TARGET_STR("た", "てきた")%…
				CASE 4
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸に対して触手を向けると、触手の先端で乳首を擦り、弾いて弄ん%TARGET_STR("だ", "てきた")%…
				CASE 5
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸を左右から触手で鷲づかみにし、ぐりぐりと自由に動かし%TARGET_STR("た", "てきた")%…
				CASE 6
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸を周りを四方から触手で取り囲んで押し出すと、乳首を掴み引っ張り上げ%TARGET_STR("た", "てきた")%…
				CASE 7
					PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の胸を周りを四方から触手で取り囲んで押し出すと、乳首を潰しこね回し%TARGET_STR("た", "てきた")%…
			ENDSELECT
			;ターゲットに主導権
		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
	LOCAL:5 = GET_BUSTSIZE(MTAR:0)

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			IF LOCAL:5 <= -1
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の胸を触手で撫で回し、さらに先端に付いた口で乳首を吸引し%TARGET_STR("た", "てきた")%…
			ELSEIF LOCAL:5 >= 1
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の豊満な胸を触手で絞り上げ、さらに先端に付いた口で乳首を吸引し%TARGET_STR("た", "てきた")%…
			ELSE
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の胸を触手で絞り上げ、さらに先端に付いた口で乳首を吸引し%TARGET_STR("た", "てきた")%…
			ENDIF
			;ターゲットに主導権
		CASE 1
			PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に、触手を使って胸に奉仕するように命令した
			IF LOCAL:5 <= -1
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の胸を触手で撫で回し、先端に付いた口で乳首を吸い上げた…
			ELSEIF LOCAL:5 >= 1
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の豊満な胸を触手で絞り上げ、先端に付いた口で乳首を吸い上げた…
			ELSE
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の胸を触手で絞り上げ、先端に付いた口で乳首を吸い上げた…
			ENDIF
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、触手を使い%ANAME(MTAR:0)%の胸を責めるように命令した
			IF LOCAL:5 <= -1
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の胸を触手で撫で回し、さらに先端に付いた口で乳首を吸引した…
			ELSEIF LOCAL:5 >= 1
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の豊満な胸を触手で絞り上げ、さらに先端に付いた口で乳首を吸引した…
			ELSE
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の胸を触手で絞り上げ、さらに先端に付いた口で乳首を吸引した…
			ENDIF
	ENDSELECT
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST204
#DIMS DYNAMIC 特殊テキスト
#DIMS DYNAMIC 異種名
;特殊な地の文
FOR LOCAL, 0, MPLY_NUM
	IF CSTR:(MPLY:LOCAL):モブ識別子 == "スライム"
		特殊テキスト '= "スライム"
	ELSE
		特殊テキスト '= ""
	ENDIF
NEXT

IF 特殊テキスト == "スライム"
	異種名 '= "スライム"
ELSE
	異種名 '= "触手"
ENDIF

IF MTAR:0 != MASTER || CONFIG:441
	LOCAL:2 = CUP:(MTAR:0):快Ｂ

	LOCALS:3 = %TOSTR_EMOTION(MTAR:0)%

	IF TCVAR:(MTAR:0):失神フラグ
		;気絶中
		PRINTFORML 気絶している%ANAME(MTAR:0)%は%異種名%が蠢く度に声を漏らしている
	ELSEIF LOCAL:2 > 10000
		SELECTCASE RAND:4
				;最大の時は感情によって反応が違う
			CASE 0
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は艶やかに悶えながら官能的な声を上げ、%異種名%の溺愛を受け入れている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は激しく悶えながら官能的な声を上げ、%異種名%の溺愛を受け入れている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は切なく悶えながら官能的な声を上げ、%異種名%の溺愛を受け入れている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は艶やかに悶えながら官能的な声を上げ、%異種名%の溺愛を受け入れている
				ENDIF
			CASE 1
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%はトロけた目つきで湧き上がり続ける快感に身を震わせている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は耳まで顔を真っ赤に染め上げながら、湧き上がり続ける快感に身を震わせている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は気持ちよさで涙を零しながらも、湧き上がり続ける快感に身を震わせている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%はトロけた目つきで湧き上がり続ける快感に身を震わせている
				ENDIF
			CASE 2
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は%異種名%に更なる責め立てを求めて、より犯されやすい姿勢をとろうとしている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は形だけは抵抗する素振りをしつつも、より犯されやすい姿勢をとろうとしている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は目を伏せてオーガズムを感じつつ、より犯されやすい姿勢をとろうとしている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は%異種名%に更なる責め立てを求めて、より犯されやすい姿勢をとろうとしている
				ENDIF
			CASE 3
				IF GROUPMATCH(LOCALS:3, "幸", "悦", "良", "平", "普")
					PRINTFORML %ANAME(MTAR:0)%は恋をしたような目をしながら、%異種名%の責めに甘えている
				ELSEIF GROUPMATCH(LOCALS:3, "恨", "怒", "憤", "狂")
					PRINTFORML %ANAME(MTAR:0)%は口では責められる事を否定しながらも、%異種名%の責めに甘えている
				ELSEIF GROUPMATCH(LOCALS:3, "壊", "虚", "悲", "憂", "鬱", "恐", "怯")
					PRINTFORML %ANAME(MTAR:0)%は悲鳴を上げながらも、更なる行為を求めて%異種名%の責めに甘えている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%はだらしない顔をしながら、更なる行為を求めて%異種名%の責めに甘えている
				ENDIF
		ENDSELECT
	ELSEIF LOCAL:2 > 6000
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%は顔を真っ赤に染め上げ、%異種名%の責め立てを受け入れている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%は響き渡る淫音に操られるかのように身をくねり動かしている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%は%異種名%の動きに合わせて身を震わせ、艶めかしい嬌声を上げ続けている
			CASE 3
				PRINTFORML %ANAME(MTAR:0)%は%異種名%に組み敷かれて、偶にビクンッと跳ねながらなすがままになっている
		ENDSELECT
	ELSEIF LOCAL:2 > 3000 && ABL:(MTAR:0):触手 >= 1 || LOCAL:2 > 300 && ABL:(MTAR:0):触手 >= 5
		IF TALENT:(MTAR:0):恥じらい || TALENT:(MTAR:0):抑圧 || TALENT:(MTAR:0):孤高 || TALENT:(MTAR:0):快感の否定
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML %ANAME(MTAR:0)%は小さな声を洩らしながら、襲い掛かってくる必死に快楽を否定している
				CASE 1
					PRINTFORML %ANAME(MTAR:0)%は%異種名%と自分の体が擦れ合って産まれるいやらしい音を否定しながら%異種名%に責め続けられている
				CASE 2
					PRINTFORML %ANAME(MTAR:0)%は襲い掛かる快楽に、甘い声とうめき声を交互に上げながら抗っている
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML %ANAME(MTAR:0)%は小さな声を洩らしながら、襲い掛かってくる快楽に身を委ねている
				CASE 1
					PRINTFORML %ANAME(MTAR:0)%は%異種名%と自分の体が擦れ合って産まれるいやらしい音を聞きながら%異種名%に責め続けられている
				CASE 2
					PRINTFORML %ANAME(MTAR:0)%は襲い掛かる快楽に、甘い声とうめき声を交互に上げながら身を委ねている
			ENDSELECT
		ENDIF
	ELSEIF LOCAL:2 > 300 || ABL:(MTAR:0):触手 >= 3
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%は%異種名%のもたらす快感に声なき声を上げている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%は%異種名%が動くたびに体を抱きしめ快楽から耐えている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%は%異種名%に抱えこまれ、荒い息をしながら%異種名%に弄ばれている
		ENDSELECT
	ELSE
		;触手に慣れたらここの下は表示されない
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML %ANAME(MTAR:0)%は蠢く%異種名%から逃れるべく必死に体をもがいている
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%はなんとか%異種名%を止めようと必死に体を動かしている
			CASE 2
				PRINTFORML %ANAME(MTAR:0)%は体を捻って%異種名%を振りほどこうと暴れている
		ENDSELECT
	ENDIF
ENDIF

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

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

@COM_AVAILABLE_WHEN204
RETURN コマンド_ウフフ

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

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


code:
;触手オナホ

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME205
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_ABLE205
;共通部分
CALL COM_ABLE_COMMON(205)
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:0))
		RETURN 0
	SIF !P_STACKABLE(MPLY:0, MTAR:LOCAL, 205)
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM205
;実行判定
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, 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, 600 + ABL:(MPLY:0):魔術 * 6) + (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 300)
	SOURCE:(LOCAL:2):逸脱 = 350 - (GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_苗床) * 175)
	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, 70)

NEXT

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP205(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, 400 + ABL:(LOCAL:2):魔術 * 4) + (GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_苗床) * 200)
	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_MESSAGE205(ARG:0)
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%に対して%EQUIP_PLAYER_ANAME(ARG:0)%の触手が触手オナホ中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP205(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%の操る触手が%EQUIP_TARGET_ANAME(ARG:0)%のペニスを咥え込んでシゴいている…

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

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

;共通部分
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_BEFORE205
LOCAL:1 = 1
FOR LOCAL:0, 0, MTAR_NUM
	IF SEARCH_EQUIP(205, MPLY:0, MTAR:(LOCAL:0)) == -1
		LOCAL:1 = 0
	ENDIF
NEXT

;全員が既に触手オナホ中なら分岐
IF LOCAL:1
	;継続中の地の文をカット
	FOR LOCAL:0, 0, MTAR_NUM
		LOCAL:2 = SEARCH_EQUIP(205, 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 MTAR:0 != MASTER && 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%を触手先端の搾精口で咥え込み、グチュグチュと音を立てながら内部を蠢かせ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %LOCALS:1%は%ANAME(MPLY:0)%の触手の先端に付いた搾精口に%LOCALS:3%ペニスをねじ込み、%ANAME(MPLY:0)%に奉仕するように命令した…
			PRINTFORMW %ANAME(MPLY:0)%は言われた通り、搾精口の内部を激しく蠢かせて%LOCALS:1%の%LOCALS:0%をシゴき上げた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、触手を使って%LOCALS:1%のペニスを責めるように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%を触手先端の搾精口で咥え込み、内部を蠢かせて竿をシゴき上げた…
	ENDSELECT
ENDIF

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

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

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

@COM_AVAILABLE_WHEN205
RETURN コマンド_ウフフ

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

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

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