code:
;順番に挿入

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME55
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_ABLE55
;共通部分
CALL COM_ABLE_COMMON(55)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは2人以上
SIF MTAR_NUM < 2
	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
	SIF !CAN_FUCK(MPLY:0, MTAR:(LOCAL:0), 55)
		RETURN 0
NEXT
RETURN 1

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

;挿入関係を一時リセット
CALL CLEAR_INSERT_FLAG(MPLY:0, "Ｐ")

;プレイヤーが行動不能または拘束中なら騎乗位挿入にする
LOCAL:6 = !IS_PLAYABLE(MPLY:0) || IS_BIND(MPLY:0)

;●プレイヤー側の処理
EXP:(MPLY:0):性技経験値 += 2
EXP:(MPLY:0):性交経験値 += 3

LOCAL:5 = 0
FOR LOCAL:0, 0, MTAR_NUM
	IF LOCAL:6
		SOURCE:(MPLY:0):快Ｐ = SENSE_SEX_TARGET_P(MTAR:(LOCAL:0), MPLY:0, 1500)
	ELSE
		SOURCE:(MPLY:0):快Ｐ = SENSE_SEX_PLAYER_P(MTAR:(LOCAL:0), MPLY:0, 1500)
	ENDIF

	CALL DOUTEI_COMMON(MPLY:0, @"%ANAME(MTAR:(LOCAL:0))%たちの膣", "乱交")

	;性交系の共通処理
	CALL COM_COMMON_SEX_P(MPLY:0, MTAR:(LOCAL:0))

	LOCAL:5 += SOURCE:(MPLY:0):快Ｐ
	SOURCE:(MPLY:0):快Ｐ = 0
NEXT
SOURCE:(MPLY:0):快Ｐ = LOCAL:5 / MTAR_NUM
SOURCE:(MPLY:0):露出 = 100
SOURCE:(MPLY:0):性行動 = 450

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

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

;●ターゲット側の処理
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)

	EXP:(LOCAL:2):性技経験値 += 2
	EXP:(LOCAL:2):性交経験値 += 3

	IF LOCAL:6
		SOURCE:(LOCAL:2):快Ｖ = SENSE_SEX_PLAYER(LOCAL:2, MPLY:0, MAX(1200 - MTAR_NUM * 75, 600))
	ELSE
		SOURCE:(LOCAL:2):快Ｖ = SENSE_SEX_TARGET(LOCAL:2, MPLY:0, MAX(1200 - MTAR_NUM * 75, 600))
	ENDIF
	SOURCE:(LOCAL:2):露出 = 400
	SOURCE:(LOCAL:2):性行動 = 450

	;性交系の共通処理
	CALL COM_COMMON_SEX_V(LOCAL:2, MPLY:0)

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

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

;体位フラグのセット
;TCVAR:(MPLY:0):31 = 1
;TCVAR:(MTAR:0):33 = 1

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

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

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

RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP55(ARG:0)

;挿入関係を一時リセット

FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	LOCAL:1 = MEQUIP_PLAYER:(ARG:0):(LOCAL:0)
	DOWNBASE:(LOCAL:1):体力 += 50

	;プレイヤーが行動不能または拘束中なら騎乗位挿入にする
	LOCAL:6 = !IS_PLAYABLE(LOCAL:1) || IS_BIND(LOCAL:1)

	;●プレイヤー側の処理
	EXP:(LOCAL:1):性技経験値 += 2
	EXP:(LOCAL:1):性交経験値 += 2

	LOCAL:5 = 0
	FOR LOCAL:2, 0, MEQUIP_TARGET_NUM:(ARG:0)
		LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:2)
		IF LOCAL:6
			SOURCE:(LOCAL:1):快Ｐ = SENSE_SEX_TARGET_P(LOCAL:3, LOCAL:1, 750)
		ELSE
			SOURCE:(LOCAL:1):快Ｐ = SENSE_SEX_PLAYER_P(LOCAL:3, LOCAL:1, 750)
		ENDIF

		;性交系の共通処理
		CALL COM_COMMON_SEX_P(LOCAL:1, LOCAL:3)

		LOCAL:5 += SOURCE:(LOCAL:1):快Ｐ
		SOURCE:(LOCAL:1):快Ｐ = 0

	NEXT
	SOURCE:(LOCAL:1):快Ｐ = LOCAL:5 / MEQUIP_PLAYER_NUM:(ARG:0)
	SOURCE:(LOCAL:1):露出 += 100
	SOURCE:(LOCAL:1):性行動 += 450

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

	;奉仕経験値を得られるコマンドのフラグ
	TCVAR:(LOCAL:1):奉仕経験取得可能 = 1
NEXT
;体位フラグのセット
;TCVAR:(MPLY:0):31 = 1
;TCVAR:(MTAR:0):33 = 1

;●ターゲット側の処理
FOR LOCAL:1, 0,  MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:2 =  MEQUIP_TARGET:(ARG:0):(LOCAL:1)
	LOCAL:3 = MEQUIP_PLAYER:(ARG:0):(RAND:(MEQUIP_PLAYER_NUM:(ARG:0)))

	EXP:(LOCAL:2):性技経験値 += 2
	EXP:(LOCAL:2):性交経験値 += 2
	EXP:(LOCAL:2):輪姦経験 += MEQUIP_PLAYER_NUM:(ARG:0) / 2

	IF LOCAL:6
		SOURCE:(LOCAL:2):快Ｖ += SENSE_SEX_PLAYER(LOCAL:2, LOCAL:3, MAX(1200 - MEQUIP_TARGET_NUM:(ARG:0) * 75, 600))
	ELSE
		SOURCE:(LOCAL:2):快Ｖ += SENSE_SEX_TARGET(LOCAL:2, LOCAL:3, MAX(1200 - MEQUIP_TARGET_NUM:(ARG:0) * 75, 600))
	ENDIF
	SOURCE:(LOCAL:2):露出 += 400
	SOURCE:(LOCAL:2):性行動 += 450

	;性交系の共通処理
	CALL COM_COMMON_SEX_V(LOCAL:2, LOCAL:3)

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

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

RETURN 1

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

;-------------------------------------------------
;固有の実行判定(プレイヤー側)
;-------------------------------------------------
@COM_ORDER_PLAYER55(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 90

;膣性交共通
CALL COM_ORDER_VSEX_P(ARG:0)
RETURN 1

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE55(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に順番に挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP55(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%を順番に犯している……

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP55(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%から離れた

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE55
IF MTAR_NUM >= 3
	LOCALS:0 = %ANAME(MTAR:0)%たち
	LOCALS:2 = 横一列に
	LOCALS:3 = 順番に
ELSE
	LOCALS:0 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	LOCALS:2 = 左右に
	LOCALS:3 = 交互に
ENDIF

;プレイヤーが行動不能または拘束中の場合(騎乗位)
IF !IS_PLAYABLE(MPLY:0) || IS_BIND(MPLY:0)
	IF TCVAR:(MPLY:0):失神フラグ
		LOCALS:1 = 失神して意識のない
	ELSEIF IS_BIND(MPLY:0)
		LOCALS:1 = 拘束されて身動きの取れない
	ELSEIF TCVAR:(MPLY:0):行動不能フラグ
		LOCALS:1 = 疲労して動けない
	ELSE
		LOCALS:1 =
	ENDIF

	;ペニスバンド装着中
	IF IS_EQUIP_PLAYER((MPLY:0), 50)
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は張り型の上に%LOCALS:0%を%LOCALS:3%跨らせ、下から腰を突き上げて快感を与えていった…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %LOCALS:0%は%LOCALS:1%%ANAME(MPLY:0)%の腰に%LOCALS:3%跨り、張り型の感触を楽しんだ…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:0%に、%LOCALS:1%%ANAME(MPLY:0)%の張り型に%LOCALS:3%跨るように命令した
				PRINTFORMW %LOCALS:0%は%LOCALS:1%%ANAME(MPLY:0)%の腰に%LOCALS:3%跨り、張り型をそれぞれの膣で咥え込んでいった…
		ENDSELECT

	;ペニスバンド不使用
	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%はペニスの上に%LOCALS:0%を%LOCALS:3%跨らせ、下から腰を突き上げて快感を与えていった…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %LOCALS:0%は%LOCALS:1%%ANAME(MPLY:0)%の腰に%LOCALS:3%跨り、ペニスの感触を楽しんだ…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:0%に、%LOCALS:1%%ANAME(MPLY:0)%の竿の上に%LOCALS:3%跨るように命令した
				PRINTFORMW %LOCALS:0%は%LOCALS:1%%ANAME(MPLY:0)%の腰に%LOCALS:3%跨り、ペニスをそれぞれの膣で咥え込んでいった…
		ENDSELECT
	ENDIF

;プレイヤーが行動可能な場合
ELSE
	;ペニスバンド装着中
	IF IS_EQUIP_PLAYER((MPLY:0), 50)
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%を%LOCALS:2%並べると、%LOCALS:3%張り型で膣内を犯していった…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %LOCALS:0%は一斉に%ANAME(MPLY:0)%を押し倒すと、%LOCALS:3%上に跨って張り型をそれぞれの膣で咥え込ん%PLAYER_STR("でいった", "できた")%…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%LOCALS:0%を%LOCALS:3%犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:2%並べられた%LOCALS:0%の雌穴に、%LOCALS:3%張り型を挿入していった…
		ENDSELECT

	;ペニスバンド不使用
	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%を%LOCALS:2%並べると、%LOCALS:3%ペニスを突き入れていった…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %LOCALS:0%は一斉に%ANAME(MPLY:0)%を押し倒すと、%LOCALS:3%上に跨りそれぞれの膣でペニスを咥え込ん%PLAYER_STR("でいった", "できた")%…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%LOCALS:0%を%LOCALS:3%犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:2%並べられた%LOCALS:0%の雌穴に、%LOCALS:3%ペニスを挿入していった…
		ENDSELECT
	ENDIF
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST55
FOR LOCAL:0, 0, MTAR_NUM
	IF NOWEX:(MTAR:LOCAL):Ｖ絶頂 >= 1 && (PALAM:(MTAR:LOCAL):欲情 >= PALAMLV:8 || (PALAM:(MTAR:LOCAL):欲情 >= PALAMLV:7 && TCVAR:(MTAR:LOCAL):60))
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML %ANAME(MTAR:LOCAL)%は%STR_BODY("身体", MTAR:0)%を%SPLIT_RAND("激しい快楽のあまりビクビクと震わせながら/襲う快楽に身をのけ反らせ/さらに深い快楽を得られるようよじらせ",1)%、%ANAME(MPLY:0)%の注挿をうけている…
			CASE 1
				PRINTFORML %ANAME(MTAR:LOCAL)%は%STR_BODY("膣：絶頂", MTAR:0)%を襲う絶頂の波に、%SPLIT_RAND("顔を蕩けさせ/舌をだらりと突き出して/焦点のあわない目つきで",1)%はしたなく喘いでいる…
		ENDSELECT
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN55
RETURN コマンド_ウフフ

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

@COM_PREFERENCE_TARGET_55()
RETURN POWER(2, 性的嗜好_性交されたい) + POWER(2, 性的嗜好_輪姦されたい)

@COM_STACK_SPERM_MPLY_TO_MTAR_55()
RETURN 射精部位_膣内


code:
;順番にＡ挿入

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME56
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_ABLE56
;共通部分
CALL COM_ABLE_COMMON(56)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは2人以上
SIF MTAR_NUM < 2
	RETURN 0
FOR LOCAL:0, 0, MTAR_NUM
	SIF IS_A_HOLD(MTAR:(LOCAL:0))
		RETURN 0
	SIF !CAN_FUCK(MPLY:0, MTAR:(LOCAL:0), 56)
		RETURN 0
NEXT
RETURN 1

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

;挿入関係を一時リセット
CALL CLEAR_INSERT_FLAG(MPLY:0, "Ｐ")

;プレイヤーが行動不能または拘束中なら騎乗位挿入にする
LOCAL:6 = !IS_PLAYABLE(MPLY:0) || IS_BIND(MPLY:0)

;●プレイヤー側の処理
EXP:(MPLY:0):性技経験値 += 2
EXP:(MPLY:0):性交経験値 += 3

LOCAL:5 = 0
FOR LOCAL:0, 0, MTAR_NUM
	IF LOCAL:6
		SOURCE:(MPLY:0):快Ｐ = SENSE_SEX_TARGET_P(MTAR:(LOCAL:0), MPLY:0, 1350)
	ELSE
		SOURCE:(MPLY:0):快Ｐ = SENSE_SEX_PLAYER_P(MTAR:(LOCAL:0), MPLY:0, 1350)
	ENDIF

	CALL DOUTEI_COMMON(MPLY:0, @"%ANAME(MTAR:(LOCAL:0))%たちのアナル", "乱交")

	;Ａ性交系の共通処理
	CALL COM_COMMON_ASEX_P(MPLY:0, MTAR:(LOCAL:0))

	LOCAL:5 += SOURCE:(MPLY:0):快Ｐ
	SOURCE:(MPLY:0):快Ｐ = 0
NEXT
SOURCE:(MPLY:0):快Ｐ = LOCAL:5 / MTAR_NUM
SOURCE:(MPLY:0):露出 = 100
SOURCE:(MPLY:0):性行動 = 240

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

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

;●ターゲット側の処理
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)

	EXP:(LOCAL:2):性技経験値 += 2
	EXP:(LOCAL:2):性交経験値 += 3

	IF LOCAL:6
		SOURCE:(LOCAL:2):快Ａ = SENSE_SEX_PLAYER(LOCAL:2, MPLY:0, MAX(1200 - MTAR_NUM * 75, 600))
	ELSE
		SOURCE:(LOCAL:2):快Ａ = SENSE_SEX_TARGET(LOCAL:2, MPLY:0, MAX(1200 - MTAR_NUM * 75, 600))
	ENDIF
	SOURCE:(LOCAL:2):露出 = 400
	SOURCE:(LOCAL:2):性行動 = 240

	;Ａ性交系の共通処理
	CALL COM_COMMON_ASEX_A(LOCAL:2, MPLY:0)

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

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

;体位フラグのセット
;TCVAR:(MPLY:0):31 = 1
;TCVAR:(MTAR:0):33 = 1

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

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

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

RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP56(ARG:0)
;全プレイヤーに対して処理
FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	LOCAL:1 = MEQUIP_PLAYER:(ARG:0):(LOCAL:0)
	DOWNBASE:(LOCAL:1):体力 += 50

	;プレイヤーが行動不能または拘束中なら騎乗位挿入にする
	LOCAL:6 = !IS_PLAYABLE(LOCAL:1) || IS_BIND(LOCAL:1)

	;●プレイヤー側の処理
	EXP:(LOCAL:1):性技経験値 += 2
	EXP:(LOCAL:1):性交経験値 += 2

	LOCAL:5 = 0
	FOR LOCAL:2, 0, MEQUIP_TARGET_NUM:(ARG:0)
		LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:2)
		IF LOCAL:6
			SOURCE:(LOCAL:1):快Ｐ = SENSE_SEX_TARGET_P(LOCAL:3, LOCAL:1, 750)
		ELSE
			SOURCE:(LOCAL:1):快Ｐ = SENSE_SEX_PLAYER_P(LOCAL:3, LOCAL:1, 750)
		ENDIF

		;性交系の共通処理
		CALL COM_COMMON_ASEX_P(LOCAL:1, LOCAL:3)

		LOCAL:5 += SOURCE:(LOCAL:1):快Ｐ
		SOURCE:(LOCAL:1):快Ｐ = 0

	NEXT
	SOURCE:(LOCAL:1):快Ｐ = LOCAL:5 / MEQUIP_PLAYER_NUM:(ARG:0)
	SOURCE:(LOCAL:1):露出 += 100
	SOURCE:(LOCAL:1):性行動 += 450

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

	;奉仕経験値を得られるコマンドのフラグ
	TCVAR:(LOCAL:1):奉仕経験取得可能 = 1
NEXT
;体位フラグのセット
;TCVAR:(MPLY:0):31 = 1
;TCVAR:(MTAR:0):33 = 1

;●ターゲット側の処理
FOR LOCAL:1, 0,  MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:2 =  MEQUIP_TARGET:(ARG:0):(LOCAL:1)
	LOCAL:3 = MEQUIP_PLAYER:(ARG:0):(RAND:(MEQUIP_PLAYER_NUM:(ARG:0)))

	EXP:(LOCAL:2):性技経験値 += 2
	EXP:(LOCAL:2):性交経験値 += 2
	EXP:(LOCAL:2):輪姦経験 += MEQUIP_PLAYER_NUM:(ARG:0) / 2

	IF LOCAL:6
		SOURCE:(LOCAL:2):快Ａ += SENSE_SEX_PLAYER(LOCAL:2, LOCAL:3, MAX(1200 - MEQUIP_TARGET_NUM:(ARG:0) * 75, 600))
	ELSE
		SOURCE:(LOCAL:2):快Ａ += SENSE_SEX_TARGET(LOCAL:2, LOCAL:3, MAX(1200 - MEQUIP_TARGET_NUM:(ARG:0) * 75, 600))
	ENDIF
	SOURCE:(LOCAL:2):露出 += 400
	SOURCE:(LOCAL:2):性行動 += 450

	;性交系の共通処理
	CALL COM_COMMON_ASEX_A(LOCAL:2, LOCAL:3)

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

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

RETURN 1

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

;-------------------------------------------------
;固有の実行判定(プレイヤー側)
;-------------------------------------------------
@COM_ORDER_PLAYER56(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 90

;膣性交共通
CALL COM_ORDER_ASEX_P(ARG:0)
RETURN 1

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE56(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルに順番に挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP56(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%のアナルを順番に犯している……

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP56(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%から離れた

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE56
IF MTAR_NUM >= 3
	LOCALS:0 = %ANAME(MTAR:0)%たち
	LOCALS:2 = 横一列に
	LOCALS:3 = 順番に
ELSE
	LOCALS:0 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	LOCALS:2 = 左右に
	LOCALS:3 = 交互に
ENDIF

;プレイヤーが行動不能または拘束中の場合(騎乗位)
IF !IS_PLAYABLE(MPLY:0) || IS_BIND(MPLY:0)
	IF TCVAR:(MPLY:0):失神フラグ
		LOCALS:1 = 失神して意識のない
	ELSEIF IS_BIND(MPLY:0)
		LOCALS:1 = 拘束されて身動きの取れない
	ELSEIF TCVAR:(MPLY:0):行動不能フラグ
		LOCALS:1 = 疲労して動けない
	ELSE
		LOCALS:1 =
	ENDIF

	;ペニスバンド装着中
	IF IS_EQUIP_PLAYER((MPLY:0), 50)
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%に%LOCALS:3%尻穴で張り型を咥えさせ、下から腰を突き上げアナルを犯していった…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %LOCALS:0%は%LOCALS:1%%ANAME(MPLY:0)%の張り型を尻穴で%LOCALS:3%咥え込み、腸壁を締め付けながら腰を動かした…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:0%に、%LOCALS:1%%ANAME(MPLY:0)%の張り型をアナルで%LOCALS:3%咥え込むように命令した
				PRINTFORMW %LOCALS:0%は%LOCALS:1%%ANAME(MPLY:0)%の腰に%LOCALS:3%跨り、張り型をそれぞれの尻穴へと挿入していった…
		ENDSELECT

	;ペニスバンド不使用
	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%に%LOCALS:3%尻穴でペニスを咥えさせ、下から腰を突き上げアナルを犯していった…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %LOCALS:0%は%LOCALS:1%%ANAME(MPLY:0)%のペニスを尻穴で%LOCALS:3%咥え込み、腸壁を締め付けながら腰を動かした…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:0%に、%LOCALS:1%%ANAME(MPLY:0)%の竿をアナルで%LOCALS:3%咥え込むように命令した
				PRINTFORMW %LOCALS:0%は%LOCALS:1%%ANAME(MPLY:0)%の腰に%LOCALS:3%跨り、ペニスをそれぞれの尻穴へと挿入していった…
		ENDSELECT
	ENDIF

;プレイヤーが行動可能な場合
ELSE
	;ペニスバンド装着中
	IF IS_EQUIP_PLAYER((MPLY:0), 50)
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%を%LOCALS:2%並べると、%LOCALS:3%張り型で尻穴を犯していった…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %LOCALS:0%は一斉に%ANAME(MPLY:0)%を押し倒すと、%LOCALS:3%上に跨って張り型をそれぞれのアナルで咥え込ん%PLAYER_STR("でいった", "できた")%…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%LOCALS:0%のアナルを%LOCALS:3%犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:2%並べられた%LOCALS:0%の尻穴に、%LOCALS:3%張り型を挿入していった…
		ENDSELECT

	;ペニスバンド不使用
	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%を%LOCALS:2%並べると、%LOCALS:3%尻穴へとペニスを突き入れていった…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %LOCALS:0%は一斉に%ANAME(MPLY:0)%を押し倒すと、%LOCALS:3%上に跨りそれぞれのアナルでペニスを咥え込ん%PLAYER_STR("でいった", "できた")%…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%LOCALS:0%のアナルを%LOCALS:3%犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:2%並べられた%LOCALS:0%の尻穴に、%LOCALS:3%ペニスを挿入していった…
		ENDSELECT
	ENDIF
ENDIF

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

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

@COM_AVAILABLE_WHEN56
RETURN コマンド_ウフフ

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

@COM_PREFERENCE_TARGET_56()
RETURN POWER(2, 性的嗜好_性交されたい) + POWER(2, 性的嗜好_輪姦されたい)

@COM_STACK_SPERM_MPLY_TO_MTAR_56()
RETURN 射精部位_アナル

repo_name: pervysquirrelz/erafl

license: unknown


code:
;代わる代わる挿入する

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME57
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_ABLE57
;共通部分
CALL COM_ABLE_COMMON(57)
SIF RESULT == 0
	RETURN 0
;プレイヤーは2人以上
SIF MPLY_NUM < 2
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM < 1
	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

FOR LOCAL:0, 0, MPLY_NUM
	FOR LOCAL:1, 0, MTAR_NUM
		;could be slow for a large number selected
		SIF !CAN_FUCK(MPLY:(LOCAL:0), MTAR:(LOCAL:1), 57)
			RETURN 0
	NEXT
NEXT
RETURN 1

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

;挿入関係を一時リセット

FOR LOCAL:0, 0, MPLY_NUM
	CALL CLEAR_INSERT_FLAG(MPLY:(LOCAL:0), "Ｐ")

	;プレイヤーが行動不能または拘束中なら騎乗位挿入にする
	LOCAL:6 = !IS_PLAYABLE(MPLY:(LOCAL:0)) || IS_BIND(MPLY:(LOCAL:0))

	;●プレイヤー側の処理
	EXP:(MPLY:(LOCAL:0)):性技経験値 += 2
	EXP:(MPLY:(LOCAL:0)):性交経験値 += 3

	LOCAL:5 = 0
	FOR LOCAL:1, 0, MTAR_NUM
		IF LOCAL:6
			SOURCE:(MPLY:(LOCAL:0)):快Ｐ = SENSE_SEX_TARGET_P(MTAR:(LOCAL:1), MPLY:(LOCAL:0), 1500)
		ELSE
			SOURCE:(MPLY:(LOCAL:0)):快Ｐ = SENSE_SEX_PLAYER_P(MTAR:(LOCAL:1), MPLY:(LOCAL:0), 1500)
		ENDIF

		CALL DOUTEI_COMMON(MPLY:(LOCAL:0), @"%ANAME(MTAR:(LOCAL:1))%たちの膣", "乱交")

		;性交系の共通処理
		CALL COM_COMMON_SEX_P(MPLY:(LOCAL:0), MTAR:(LOCAL:1))

		LOCAL:5 += SOURCE:(MPLY:(LOCAL:0)):快Ｐ
		SOURCE:(MPLY:(LOCAL:0)):快Ｐ = 0
	NEXT
	SOURCE:(MPLY:(LOCAL:0)):快Ｐ = LOCAL:5 / MPLY_NUM
	SOURCE:(MPLY:(LOCAL:0)):露出 = 100
	SOURCE:(MPLY:(LOCAL:0)):性行動 = 450

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

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

NEXT
;体位フラグのセット
;TCVAR:(MPLY:0):31 = 1
;TCVAR:(MTAR:0):33 = 1

;●ターゲット側の処理
FOR LOCAL:1, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:1)
	LOCAL:3 = MPLY:(RAND:MPLY_NUM)

	EXP:(LOCAL:2):性技経験値 += 2
	EXP:(LOCAL:2):性交経験値 += 3
	EXP:(LOCAL:2):輪姦経験 += MPLY_NUM / 2

	IF LOCAL:6
		SOURCE:(LOCAL:2):快Ｖ = SENSE_SEX_PLAYER(LOCAL:2, LOCAL:3, MAX(1200 - MTAR_NUM * 75, 600))
	ELSE
		SOURCE:(LOCAL:2):快Ｖ = SENSE_SEX_TARGET(LOCAL:2, LOCAL:3, MAX(1200 - MTAR_NUM * 75, 600))
	ENDIF
	SOURCE:(LOCAL:2):露出 = 400
	SOURCE:(LOCAL:2):性行動 = 450

	CALL VIRGIN_COMMON(LOCAL:2, @"%ANAME(MPLY:0)%たち", (GET_SITUATION_BY_TRAIN_MODE() == "和姦" ? "乱交" # "輪姦"))

	;性交系の共通処理
	CALL COM_COMMON_SEX_V(LOCAL:2, LOCAL:3)
	CALL TIGHTNESS_DECREASE_V(LOCAL:2, RAND:MAX(MPLY_NUM / 2, 1))
	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 150, 100)

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

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

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

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

RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP57(ARG:0)

;挿入関係を一時リセット

FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	LOCAL:1 = MEQUIP_PLAYER:(ARG:0):(LOCAL:0)
	DOWNBASE:(LOCAL:1):体力 += 50

	;プレイヤーが行動不能または拘束中なら騎乗位挿入にする
	LOCAL:6 = !IS_PLAYABLE(LOCAL:1) || IS_BIND(LOCAL:1)

	;●プレイヤー側の処理
	EXP:(LOCAL:1):性技経験値 += 2
	EXP:(LOCAL:1):性交経験値 += 2

	LOCAL:5 = 0
	FOR LOCAL:2, 0, MEQUIP_TARGET_NUM:(ARG:0)
		LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:2)
		IF LOCAL:6
			SOURCE:(LOCAL:1):快Ｐ = SENSE_SEX_TARGET_P(LOCAL:3, LOCAL:1, 750)
		ELSE
			SOURCE:(LOCAL:1):快Ｐ = SENSE_SEX_PLAYER_P(LOCAL:3, LOCAL:1, 750)
		ENDIF
		;性交系の共通処理
		CALL COM_COMMON_SEX_P(LOCAL:1, LOCAL:3)

		LOCAL:5 += SOURCE:(LOCAL:1):快Ｐ
		SOURCE:(LOCAL:1):快Ｐ = 0
	NEXT
	SOURCE:(LOCAL:1):快Ｐ = LOCAL:5 / MEQUIP_PLAYER_NUM:(ARG:0)
	SOURCE:(LOCAL:1):露出 += 100
	SOURCE:(LOCAL:1):性行動 += 450

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

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

NEXT
;体位フラグのセット
;TCVAR:(MPLY:0):31 = 1
;TCVAR:(MTAR:0):33 = 1

;●ターゲット側の処理
FOR LOCAL:1, 0,  MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:2 =  MEQUIP_TARGET:(ARG:0):(LOCAL:1)
	LOCAL:3 = MEQUIP_PLAYER:(ARG:0):(RAND:(MEQUIP_PLAYER_NUM:(ARG:0)))

	EXP:(LOCAL:2):性技経験値 += 2
	EXP:(LOCAL:2):性交経験値 += 2
	EXP:(LOCAL:2):輪姦経験 += MEQUIP_PLAYER_NUM:(ARG:0) / 2

	IF LOCAL:6
		SOURCE:(LOCAL:2):快Ｖ += SENSE_SEX_PLAYER(LOCAL:2, LOCAL:3, MAX(1200 - MTAR_NUM * 75, 600))
	ELSE
		SOURCE:(LOCAL:2):快Ｖ += SENSE_SEX_TARGET(LOCAL:2, LOCAL:3, MAX(1200 - MTAR_NUM * 75, 600))
	ENDIF
	SOURCE:(LOCAL:2):露出 += 400
	SOURCE:(LOCAL:2):性行動 += 450

	;性交系の共通処理
	CALL COM_COMMON_SEX_V(LOCAL:2, LOCAL:3)
	CALL TIGHTNESS_DECREASE_V(LOCAL:2, RAND:MAX(MEQUIP_PLAYER_NUM / 2, 1))
	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 150, 100)

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

RETURN 1

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE57(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に代わる代わる挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP57(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%を代わる代わる犯している……

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP57(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%から離れた

;-------------------------------------------------
;固有の実行判定(プレイヤー側)
;-------------------------------------------------
@COM_ORDER_PLAYER57(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 90

;膣性交共通
CALL COM_ORDER_VSEX_P(ARG:0)
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE57
IF MTAR_NUM >= 3
	LOCALS:0 = %ANAME(MTAR:0)%たち
	LOCALS:2 = 横一列に並べ
	LOCALS:3 = 順番に
ELSEIF MTAR_NUM == 2
	LOCALS:0 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	LOCALS:2 = 左右に並べ
	LOCALS:3 = 交互に
ELSE
	LOCALS:0 = %ANAME(MTAR:0)%
	LOCALS:2 = こちらに向け
	LOCALS:3 = 乱暴に
ENDIF

IF MPLY_NUM >= 3
	LOCALS:4 = %ANAME(MPLY:0)%たち
ELSE
	LOCALS:4 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%
ENDIF

SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORMW %LOCALS:4%は%LOCALS:0%を%LOCALS:2%ると、%LOCALS:3%自らの竿を突き入れていった…
	;ターゲットに主導権
	CASE 1
		PRINTFORMW %LOCALS:0%は一斉に%LOCALS:4%を押し倒すと、%LOCALS:3%上に跨りそれぞれの膣で竿を咥え込ん%PLAYER_STR("でいった", "できた")%…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:4%に、%LOCALS:0%を%LOCALS:3%犯すように命令した
		PRINTFORMW %LOCALS:4%は%LOCALS:2%られた%LOCALS:0%の雌穴に、%LOCALS:3%竿を挿入していった…
ENDSELECT

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

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

@COM_AVAILABLE_WHEN57
RETURN コマンド_ウフフ

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

@COM_PREFERENCE_TARGET_57()
RETURN POWER(2, 性的嗜好_性交されたい) + POWER(2, 性的嗜好_輪姦されたい)

@COM_STACK_SPERM_MPLY_TO_MTAR_57()
RETURN 射精部位_膣内


code:
;代わる代わるＡ挿入する

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME58
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_ABLE58
;共通部分
CALL COM_ABLE_COMMON(58)
SIF RESULT == 0
	RETURN 0
;プレイヤーは2人以上
SIF MPLY_NUM < 2
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM < 1
	RETURN 0

FOR LOCAL:0, 0, MTAR_NUM
	SIF IS_A_HOLD(MTAR:(LOCAL:0))
		RETURN 0
NEXT

FOR LOCAL:0, 0, MPLY_NUM
	FOR LOCAL:1, 0, MTAR_NUM
		;could be slow for a large number selected
		SIF !CAN_FUCK(MPLY:(LOCAL:0), MTAR:(LOCAL:1), 58)
			RETURN 0
	NEXT
NEXT
RETURN 1

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

;挿入関係を一時リセット

FOR LOCAL:0, 0, MPLY_NUM
	CALL CLEAR_INSERT_FLAG(MPLY:(LOCAL:0), "Ｐ")

	;プレイヤーが行動不能または拘束中なら騎乗位挿入にする
	LOCAL:6 = !IS_PLAYABLE(MPLY:(LOCAL:0)) || IS_BIND(MPLY:(LOCAL:0))

	;●プレイヤー側の処理
	EXP:(MPLY:(LOCAL:0)):性技経験値 += 2
	EXP:(MPLY:(LOCAL:0)):性交経験値 += 3

	LOCAL:5 = 0
	FOR LOCAL:1, 0, MTAR_NUM
		IF LOCAL:6
			SOURCE:(MPLY:(LOCAL:0)):快Ｐ = SENSE_SEX_TARGET_P(MTAR:(LOCAL:1), MPLY:(LOCAL:0), 1500)
		ELSE
			SOURCE:(MPLY:(LOCAL:0)):快Ｐ = SENSE_SEX_PLAYER_P(MTAR:(LOCAL:1), MPLY:(LOCAL:0), 1500)
		ENDIF

		CALL DOUTEI_COMMON(MPLY:(LOCAL:0), @"%ANAME(MTAR:(LOCAL:1))%たちのアナル", "乱交")

		;性交系の共通処理
		CALL COM_COMMON_ASEX_P(MPLY:(LOCAL:0), MTAR:(LOCAL:1))

		LOCAL:5 += SOURCE:(MPLY:(LOCAL:0)):快Ｐ
		SOURCE:(MPLY:(LOCAL:0)):快Ｐ = 0
	NEXT
	SOURCE:(MPLY:(LOCAL:0)):快Ｐ = LOCAL:5 / MPLY_NUM
	SOURCE:(MPLY:(LOCAL:0)):露出 = 100
	SOURCE:(MPLY:(LOCAL:0)):性行動 = 450

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

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

NEXT

;●ターゲット側の処理
FOR LOCAL:1, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:1)
	LOCAL:3 = MPLY:(RAND:MPLY_NUM)

	EXP:(LOCAL:2):性技経験値 += 2
	EXP:(LOCAL:2):性交経験値 += 3
	EXP:(LOCAL:2):輪姦経験 += MPLY_NUM / 2
	IF LOCAL:6
		SOURCE:(LOCAL:2):快Ａ = SENSE_SEX_PLAYER(LOCAL:2, LOCAL:3, MAX(1200 - MTAR_NUM * 75, 600))
	ELSE
		SOURCE:(LOCAL:2):快Ａ = SENSE_SEX_TARGET(LOCAL:2, LOCAL:3, MAX(1200 - MTAR_NUM * 75, 600))
	ENDIF
	SOURCE:(LOCAL:2):露出 = 400
	SOURCE:(LOCAL:2):性行動 = 450

	CALL VIRGIN_COMMON_A(LOCAL:2, @"%ANAME(MPLY:0)%たち", (GET_SITUATION_BY_TRAIN_MODE() == "和姦" ? "乱交" # "輪姦"))

	;性交系の共通処理
	CALL COM_COMMON_ASEX_A(LOCAL:2, LOCAL:3)
	CALL TIGHTNESS_DECREASE_A(LOCAL:2, RAND:MAX(MPLY_NUM / 2, 1))

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

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

;体位フラグのセット
;TCVAR:(MPLY:0):31 = 1
;TCVAR:(MTAR:0):33 = 1

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

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

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

RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP58(ARG:0)
;全プレイヤーに対して処理
FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	LOCAL:1 = MEQUIP_PLAYER:(ARG:0):(LOCAL:0)
	DOWNBASE:(LOCAL:1):体力 += 50

	;プレイヤーが行動不能または拘束中なら騎乗位挿入にする
	LOCAL:6 = !IS_PLAYABLE(LOCAL:1) || IS_BIND(LOCAL:1)

	;●プレイヤー側の処理
	EXP:(LOCAL:1):性技経験値 += 2
	EXP:(LOCAL:1):性交経験値 += 2

	LOCAL:5 = 0
	FOR LOCAL:2, 0, MEQUIP_TARGET_NUM:(ARG:0)
		LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:2)
		IF LOCAL:6
			SOURCE:(LOCAL:1):快Ｐ = SENSE_SEX_TARGET_P(LOCAL:3, LOCAL:1, 750)
		ELSE
			SOURCE:(LOCAL:1):快Ｐ = SENSE_SEX_PLAYER_P(LOCAL:3, LOCAL:1, 750)
		ENDIF

		;性交系の共通処理
		CALL COM_COMMON_ASEX_P(LOCAL:1, LOCAL:3)

		LOCAL:5 += SOURCE:(LOCAL:1):快Ｐ
		SOURCE:(LOCAL:1):快Ｐ = 0
	NEXT
	SOURCE:(LOCAL:1):快Ｐ = LOCAL:5 / MEQUIP_PLAYER_NUM:(ARG:0)
	SOURCE:(LOCAL:1):露出 += 100
	SOURCE:(LOCAL:1):性行動 += 450

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

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

NEXT
;体位フラグのセット
;TCVAR:(MPLY:0):31 = 1
;TCVAR:(MTAR:0):33 = 1

;●ターゲット側の処理
FOR LOCAL:1, 0,  MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:2 =  MEQUIP_TARGET:(ARG:0):(LOCAL:1)
	LOCAL:3 = MEQUIP_PLAYER:(ARG:0):(RAND:(MEQUIP_PLAYER_NUM:(ARG:0)))

	EXP:(LOCAL:2):性技経験値 += 2
	EXP:(LOCAL:2):性交経験値 += 2
	EXP:(LOCAL:2):輪姦経験 += MEQUIP_PLAYER_NUM:(ARG:0) / 2

	IF LOCAL:6
		SOURCE:(LOCAL:2):快Ａ += SENSE_SEX_PLAYER(LOCAL:2, LOCAL:3, MAX(1200 - MTAR_NUM * 75, 600))
	ELSE
		SOURCE:(LOCAL:2):快Ａ += SENSE_SEX_TARGET(LOCAL:2, LOCAL:3, MAX(1200 - MTAR_NUM * 75, 600))
	ENDIF
	SOURCE:(LOCAL:2):露出 += 400
	SOURCE:(LOCAL:2):性行動 += 450

	;性交系の共通処理
	CALL COM_COMMON_ASEX_A(LOCAL:2, LOCAL:3)
	CALL TIGHTNESS_DECREASE_A(LOCAL:2, RAND:MAX(MEQUIP_PLAYER_NUM / 2, 1))

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

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

RETURN 1

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE58(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に代わる代わるアナル挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP58(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%のアナルを代わる代わる犯している……

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP58(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%から離れた

;-------------------------------------------------
;固有の実行判定(プレイヤー側)
;-------------------------------------------------
@COM_ORDER_PLAYER58(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 90

;膣性交共通
CALL COM_ORDER_ASEX_P(ARG:0)
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE58
IF MTAR_NUM >= 3
	LOCALS:0 = %ANAME(MTAR:0)%たち
	LOCALS:2 = 横一列に並べ
	LOCALS:3 = 順番に
ELSEIF MTAR_NUM == 2
	LOCALS:0 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	LOCALS:2 = 左右に並べ
	LOCALS:3 = 交互に
ELSE
	LOCALS:0 = %ANAME(MTAR:0)%
	LOCALS:2 = こちらに向け
	LOCALS:3 = 乱暴に
ENDIF

IF MPLY_NUM >= 3
	LOCALS:4 = %ANAME(MPLY:0)%たち
ELSE
	LOCALS:4 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%
ENDIF

SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORMW %LOCALS:4%は%LOCALS:0%を%LOCALS:2%ると、%LOCALS:3%自らの竿を突き入れていった…
	;ターゲットに主導権
	CASE 1
		PRINTFORMW %LOCALS:0%は一斉に%LOCALS:4%を押し倒すと、%LOCALS:3%上に跨りそれぞれの尻穴で竿を咥え込ん%PLAYER_STR("でいった", "できた")%…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:4%に、%LOCALS:0%を%LOCALS:3%犯すように命令した
		PRINTFORMW %LOCALS:4%は%LOCALS:2%られた%LOCALS:0%の尻穴に、%LOCALS:3%竿を挿入していった…
ENDSELECT

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

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

@COM_AVAILABLE_WHEN58
RETURN コマンド_ウフフ

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

@COM_PREFERENCE_TARGET_58()
RETURN POWER(2, 性的嗜好_性交されたい) + POWER(2, 性的嗜好_輪姦されたい)

@COM_STACK_SPERM_MPLY_TO_MTAR_58()
RETURN 射精部位_アナル


code:
;泡踊り

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME5
IF MPLY_NUM >= 2
	LOCALS:0 = Sandwich Foamjob
ELSE
	LOCALS:0 = Foamjob
ENDIF

IF FLAG:ハウジングモード
	CALL HO_CHECK_USE_MODULE_USAGE(MASTER, "入浴")
	IF RESULT
		IF MPLY_NUM >= 2
			LOCALS:0 = W Soap play
		ELSE
			LOCALS:0 = Soap play
		ENDIF
	ENDIF
ENDIF

RESULTS:0 = Do %LOCALS:0%
RESULTS:1 = Get ordered to %LOCALS:0%
RESULTS:2 = Order %LOCALS:0%
RESULTS:3 = Get %LOCALS:0%
RESULTS:4 = Make do %LOCALS:0%
RESULTS:5 = Show %LOCALS:0% off
;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE5
;共通部分
CALL COM_ABLE_COMMON(5)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で2人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 2
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;ローションが必要
SIF !ITEM:ローション && !ITEM:A_ローション
	RETURN 0
;風呂系設備の利用が前提
IF FLAG:ハウジングモード
	CALL HO_CHECK_USE_MODULE_USAGE(MPLY, "入浴")
	SIF !RESULT
		RETURN 0
ENDIF

IF !FLAG:ウフフフラグ
	FOR LOCAL:0, 0, MTAR_NUM
		;非ウフフの場合、非合意のキャラには実行できない
		SIF !ACCEPT_EACH()
			RETURN 0
	NEXT
ENDIF

FOR LOCAL:0, 0, MPLY_NUM
	SIF !CAN_REACH_BODY(MPLY:(LOCAL:0) , MTAR:0)
		RETURN 0
	;fucking someone other than the target
	SIF IS_INSERT_SINGLE(MPLY:(LOCAL:0)) && IS_INSERT_MUTUAL(MPLY:(LOCAL:0), MTAR:0) == 0
		RETURN 0
	SIF IS_RIDE(MPLY:(LOCAL:0)) || IS_RIDDEN(MPLY:(LOCAL:0))
		RETURN 0
NEXT
SIF IS_RIDE(MTAR:0) || IS_RIDDEN(MTAR:0)
	RETURN 0
RETURN 1

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

IF !FLAG:ハウジングモード
	SIF !ITEM:A_ローション
		ITEM:ローション -= 1
ELSE
	CALL HO_CHECK_USE_MODULE_USAGE(MASTER, "入浴")
	IF !RESULT
		SIF !ITEM:A_ローション
			ITEM:ローション -= 1
	ENDIF
ENDIF

;●人数補正の設定
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)
	CALL HO_UNDRESS(LOCAL:2)
	EXP:(LOCAL:2):性技経験値 += 1

	SOURCE:(LOCAL:2):奉仕 = SERVE_HOUSHI(LOCAL:2, 400)
	SOURCE:(LOCAL:2):露出 = 50
	SOURCE:(LOCAL:2):接触 = 250
	SOURCE:(LOCAL:2):性行動 = 360

	IF HAS_PENIS(LOCAL:2)
		SOURCE:(LOCAL:2):快Ｐ += SENSE_HOUSHI_P(LOCAL:2, LOCAL:2, 600)
	ELSE
		SOURCE:(LOCAL:2):快Ｃ += SENSE_HOUSHI(LOCAL:2, LOCAL:2, 600)
	ENDIF
	SOURCE:(LOCAL:2):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:2, 450)

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

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

;●ターゲットについて処理
CALL HO_UNDRESS(MTAR:0)
SOURCE:(MTAR:0):露出 = 50
SOURCE:(MTAR:0):接触 = 250
SOURCE:(MTAR:0):性行動 = 360

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

FOR LOCAL:0, 0, MPLY_NUM
	LOCAL:1 = MPLY:(LOCAL:0)
	IF HAS_PENIS(MTAR:0)
		SOURCE:(MTAR:0):快Ｐ += SENSE_HOUSHI_P(LOCAL:1, MTAR:0, 1200) * LOCAL:10 / 100
	ELSE
		SOURCE:(MTAR:0):快Ｃ += SENSE_HOUSHI(LOCAL:1, MTAR:0, 1200) * LOCAL:10 / 100
	ENDIF
	SOURCE:(MTAR:0):快Ｂ += SENSE_HOUSHI(LOCAL:1, MTAR:0, 900) * LOCAL:10 / 100

NEXT

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

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

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

RETURN 1

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

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

SELECTCASE MEQUIP_PLAYER_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)

	EXP:(LOCAL:2):性技経験値 += 1

	SOURCE:(LOCAL:2):奉仕 += SERVE_HOUSHI(LOCAL:2, 100)
	SOURCE:(LOCAL:2):露出 += 20
	SOURCE:(LOCAL:2):接触 += 150
	SOURCE:(LOCAL:2):性行動 += 120

	IF HAS_PENIS(LOCAL:2)
		SOURCE:(LOCAL:2):快Ｐ += SENSE_HOUSHI_P(LOCAL:2, LOCAL:2, 200)
	ELSE
		SOURCE:(LOCAL:2):快Ｃ += SENSE_HOUSHI(LOCAL:2, LOCAL:2, 200)
	ENDIF
	SOURCE:(LOCAL:2):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:2, 150)

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

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

SOURCE:(LOCAL:2):露出 += 20
SOURCE:(LOCAL:2):接触 += 150
SOURCE:(LOCAL:2):性行動 += 120

FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	LOCAL:1 = MEQUIP_PLAYER:(ARG:0):(LOCAL:0)

	IF HAS_PENIS(LOCAL:2)
		SOURCE:(LOCAL:2):快Ｐ += SENSE_HOUSHI_P(LOCAL:1, LOCAL:2, 400) * LOCAL:10 / 100
	ELSE
		SOURCE:(LOCAL:2):快Ｃ += SENSE_HOUSHI(LOCAL:1, LOCAL:2, 400) * LOCAL:10 / 100
	ENDIF
	SOURCE:(LOCAL:2):快Ｂ += SENSE_HOUSHI(LOCAL:1, LOCAL:2, 300) * LOCAL:10 / 100
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE5(ARG:0)
IF !FLAG:ハウジングモード
	RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に泡踊り中
ELSE
	CALL HO_CHECK_USE_MODULE_USAGE(MASTER, "入浴")
	IF !RESULT
		RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に泡踊り中
	ELSE
		RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%にソーププレイ中
	ENDIF
ENDIF
;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP5(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に全身を擦りつけている…

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

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

;共通部分
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):奉仕 * 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, "恥じらい", -3)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 6)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -5)
ENDIF

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE5
;プレイヤーが２人
IF MPLY_NUM == 2
	IF GET_INMOU_LEVEL(MPLY:0) >= 1 && GET_INMOU_LEVEL(MPLY:1) >= 1
		LOCALS:1 = 陰毛をたわしのように
	ELSE
		LOCALS:1 = 肌を
	ENDIF
	IF FLAG:ハウジングモード
		CALL HO_CHECK_USE_MODULE_USAGE(MASTER, "入浴")
		LOCAL:0 = RESULT
	ENDIF
	IF !FLAG:ハウジングモード || (FLAG:ハウジングモード && !LOCAL:0)
		SELECTCASE GET_COM_INITIATIVE()
				;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は全身にローションを塗り付けると、%ANAME(MTAR:0)%の体を前後から挟み込み、%LOCALS:1%擦り付けて責め立て%TARGET_STR("た", "てきた")%…
				;ターゲットに主導権
			CASE 1
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%と%ANAME(MPLY:1)%の全身にローションを塗り付けると、二人に前後から%LOCALS:1%擦り付けさせて奉仕させた…
				;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%と%ANAME(MPLY:1)%の全身にローションを塗り付けると、%ANAME(MTAR:0)%に泡踊りするように命令した
				PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は%ANAME(MTAR:0)%の体を前後から挟み込み、ローションでヌメる%LOCALS:1%擦り付けた
		ENDSELECT
	ELSE
		SELECTCASE GET_COM_INITIATIVE()
				;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は全身に石鹸の泡を塗りたくると、%ANAME(MTAR:0)%の体を前後から挟み込み、%LOCALS:1%擦り付けて責め立て%TARGET_STR("た", "てきた")%…
				;ターゲットに主導権
			CASE 1
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%と%ANAME(MPLY:1)%の全身に石鹸の泡を塗りたくらせ、二人に前後から%LOCALS:1%擦り付けさせて奉仕させた…
				;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%と%ANAME(MPLY:1)%の全身に石鹸の泡を塗りたくらせ、%ANAME(MTAR:0)%に身体で奉仕するように命令した
				PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は%ANAME(MTAR:0)%の体を前後から挟み込み、泡でヌメる%LOCALS:1%擦り付けた
		ENDSELECT
	ENDIF
	;プレイヤーが１人
ELSE
	IF GET_INMOU_LEVEL(MPLY:0) >= 1
		LOCALS:1 = 陰毛をたわしのように
	ELSE
		LOCALS:1 = 肌を
	ENDIF
	IF FLAG:ハウジングモード
		CALL HO_CHECK_USE_MODULE_USAGE(MASTER, "入浴")
		LOCAL:0 = RESULT
	ENDIF
	IF !FLAG:ハウジングモード || (FLAG:ハウジングモード && !LOCAL:0)
		SELECTCASE GET_COM_INITIATIVE()
				;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は全身にローションを塗り付けると、%ANAME(MTAR:0)%の体に%LOCALS:1%擦り付けて責め立て%TARGET_STR("た", "てきた")%…
				;ターゲットに主導権
			CASE 1
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の全身にローションを塗り付けると、%LOCALS:1%擦り付けさせ泡踊りで奉仕させた…
				;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%の全身にローションを塗り付けると、%ANAME(MTAR:0)%に泡踊りするように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の体に、ローションでヌメる%LOCALS:1%擦り付けた
		ENDSELECT
	ELSE
		SELECTCASE GET_COM_INITIATIVE()
				;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は全身に石鹸の泡を塗りたくると、%ANAME(MTAR:0)%の体に%LOCALS:1%擦り付けて責め立て%TARGET_STR("た", "てきた")%…
				;ターゲットに主導権
			CASE 1
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の全身に石鹸の泡を塗りたくらせ、%LOCALS:1%擦り付けさせ身体で奉仕させた…
				;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%の全身に石鹸の泡を塗りたくらせ、%ANAME(MTAR:0)%に身体で奉仕するように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の体に、泡でヌメる%LOCALS:1%擦り付けた
		ENDSELECT
	ENDIF
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST5
;FOR LOCAL:0, 0, MTAR_NUM
;	LOCAL:1 = MTAR:(LOCAL:0)
;
;	IF LOCAL:1 != MASTER
;		LOCAL:2 = CUP:(LOCAL:1):快Ｐ + CUP:(LOCAL:1):快Ｃ + CUP:(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 緩んだ表情で快楽に身を任せていた
;		ENDIF
;	ENDIF
;NEXT

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

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

@COM_AVAILABLE_WHEN5
IF FLAG:調教モード != 調教_居住区
	RETURN コマンド_ウフフ
ELSE
	RETURN コマンド_居住区
ENDIF

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

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


code:
;ローター

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME60
IF CSTR:(MPLY:0):モブ識別子 == "Ｃコイン"
	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%に責められる
ELSE
	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%見せつけ
ENDIF

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE60
;共通部分
CALL COM_ABLE_COMMON(60)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;ローターが必要
SIF !HO_ITEM_STOCK:ITEM_ローター && !ITEM:A_ローター
	RETURN 0
FOR LOCAL, 0, MTAR_NUM
	SIF !HAS_VAGINA(MTAR:LOCAL)
		RETURN 0
	SIF !CAN_REACH_GROIN(MPLY:0, MTAR:LOCAL)
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;継続ロック時の強制解除判定
;-------------------------------------------------
@COM_ABLE_AT_EQUIP_LOCKED60
RETURN 1

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

;●プレイヤーについて処理
DOWNBASE:(MPLY:0):体力 += 80

EXP:(MPLY:0):性技経験値 += MTAR_NUM / 2 + 1

SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 200)
SOURCE:(MPLY:0):接触 = 10
SOURCE:(MPLY:0):性行動 = 90

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

;奉仕経験値を得られるコマンドのフラグ
TCVAR:(MPLY:0):奉仕経験取得可能 = 1
FOR LOCAL, 0, MTAR_NUM
	LOCAL:2 = MTAR:LOCAL
	;●ターゲットについて処理
	DOWNBASE:(LOCAL:2):体力 += 80

	SOURCE:(LOCAL:2):露出 = 50
	SOURCE:(LOCAL:2):逸脱 = 80
	SOURCE:(LOCAL:2):接触 = 10
	SOURCE:(LOCAL:2):快Ｃ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 2300)
	SOURCE:(LOCAL:2):性行動 = 180

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

	IF TALENT:(MPLY:0):技師
		TIMES SOURCE:(LOCAL:2):快Ｃ, 1.50
	ENDIF

NEXT

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

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

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

;このコマンドは領内活動の逢瀬終了後も継続される
TFLAG:継続ロックフラグ = 1

RETURN 1

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER60(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 * 1, 10))

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_BEFORE60
IF MTAR_NUM >= 2
	LOCALS:1 = %ANAME(MTAR:0)%たち
ELSE
	LOCALS:1 = %ANAME(MTAR:0)%
ENDIF
IF CSTR:(MPLY:0):モブ識別子 == "Ｃコイン"
	PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の秘唇に取り付くと、身を震わせて敏感な部分を刺激し%TARGET_STR("た", "てきた")%…
ELSE
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の秘唇に震えるローターを押し当て%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %LOCALS:1%は%ANAME(MPLY:0)%の手にローターを持たせると、それを自身のクリトリスに押し当てさせた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、ローターを使って%LOCALS:1%を責めるように命令した
			PRINTFORMW %ANAME(MPLY:0)%は言われるまま%LOCALS:1%の秘唇に震えるローターを押し当てた…
	ENDSELECT

ENDIF

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

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

;ソースを退避
CALL PUTOUT_SOURCE(LOCAL:2)
SOURCE:(LOCAL:2):性行動 += 35
;退避したソースを加算
CALL SUM_SOURCE(LOCAL:2)

FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:0)
	CALL PUTOUT_SOURCE(LOCAL:3)

	IF TALENT:(LOCAL:2):技師
		SOURCE:(LOCAL:3):快Ｃ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 600)
	ELSE
		SOURCE:(LOCAL:3):快Ｃ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 450)
	ENDIF
	SOURCE:(LOCAL:3):露出 += 20
	SOURCE:(LOCAL:3):逸脱 += 35
	SOURCE:(LOCAL:3):性行動 += 80

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

	;退避したソースを加算
	CALL SUM_SOURCE(LOCAL:3)
NEXT
;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE60(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%
RESULTS += "にローターを使用中"

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP60(ARG:0)
IF IS_PARTICIPATE_TRAIN(MEQUIP_TARGET:(ARG:0):0)
	PRINTFORM %EQUIP_TARGET_ANAME(ARG:0)%
	PRINTFORML の秘所をローターが刺激している…
ENDIF

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP60(ARG:0)
PRINTFORM %EQUIP_TARGET_ANAME(ARG:0)%
PRINTFORMW からローターを外した

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST60
FOR LOCAL:0, 0, MTAR_NUM
	IF (MTAR:LOCAL != MASTER || CONFIG:441)
		LOCAL:2 = CUP:(MTAR:LOCAL):快Ｃ

		IF LOCAL:2 < 300
			PRINTFORML %ANAME(MTAR:LOCAL)%のそこはまだしっとりと閉じたままだ。快楽を感じるにはもう少しかかるかもしれない
		ELSEIF LOCAL:2 < 1000
			PRINTFORML %ANAME(MTAR:LOCAL)%はクリトリスへの刺激にじっと耐えているものの、確実に感じてきているようだ
		ELSEIF LOCAL:2 < 3000
			PRINTFORM 敏感な豆を丹念に弄られると感じるのか、%ANAME(MTAR:LOCAL)%は
			IF TALENT:(MTAR:LOCAL):恥じらい
				PRINTL 羞恥に頬を赤く染め手で自分の口を抑えて声が出るのをこらえている
			ELSEIF TALENT:(MTAR:LOCAL):解放 || TALENT:(MTAR:LOCAL):快感に素直
				PRINTL 熱い吐息を吐きながら快楽に身をゆだねている
			ELSEIF TALENT:(MTAR:LOCAL):抑圧 || TALENT:(MTAR:LOCAL):孤高 || TALENT:(MTAR:LOCAL):快感の否定
				PRINTL 快楽を否定するように首を振って耐えている
			ELSE
				PRINTL 秘所から愛液を垂らしつつわずかに小さく吐息を漏らした
			ENDIF
		ELSEIF LOCAL:2 < 6000
			IF CSTR:(MPLY:0):モブ識別子 == "Ｃコイン"
				PRINTFORML %ANAME(MTAR:LOCAL)%の小さな豆を震えるコインが擦り上げると%ANAME(MTAR:LOCAL)%は甘い声を漏らしながらがくがくと身体を揺らした
			ELSE
				PRINTFORML %ANAME(MTAR:LOCAL)%の小さな豆を震えるローターで擦り上げてやると%ANAME(MTAR:LOCAL)%は可愛らしい声を漏らしながらがくがくと身体を揺らした
			ENDIF
		ELSEIF LOCAL:2 < 10000 && CSTR:(MPLY:0):モブ識別子 != "Ｃコイン"
			PRINTFORML %ANAME(MTAR:LOCAL)%は明らかな快楽の声をあげ、自らローターにその部分を押し付けてきた
		ELSE
			IF TALENT:(MTAR:LOCAL):Ｃ敏感
				PRINTFORML %ANAME(MTAR:LOCAL)%は敏感なクリトリスへの責めに激しく身もだえし、あられも無い声を張り上げ続けた
			ELSE
				PRINTFORML %ANAME(MTAR:LOCAL)%はクリトリスへの刺激に激しい喘ぎ声を上げながら悶え続けた
			ENDIF
		ENDIF
	ENDIF
NEXT

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

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

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

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_60()
RETURN POWER(2, 性的嗜好_道具を使いたい)

@COM_PREFERENCE_TARGET_60()
RETURN POWER(2, 性的嗜好_道具を使われたい)


code:
;バイブ

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME61
LOCALS:0 = バイブ

RESULTS:0 '= TR(LOCALS:0,"で責める")
RESULTS:1 '= TR(LOCALS:0,"で奉仕する")
RESULTS:2 '= TR(LOCALS:0,"で奉仕させる")
RESULTS:3 '= TR(LOCALS:0,"で責められる")
RESULTS:4 '= TR(LOCALS:0,"で責めさせる")
RESULTS:5 '= TR(LOCALS:0,"見せつけ")

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE61
;共通部分
CALL COM_ABLE_COMMON(61)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;バイブが必要
SIF !HO_ITEM_STOCK:ITEM_バイブ && !ITEM:A_バイブ
	RETURN 0
FOR LOCAL:0, 0, MTAR_NUM
	;対象にＶが必要
	SIF !HAS_VAGINA(MTAR:(LOCAL:0), 1)
		RETURN 0
	;V not occupied (Unless by fingering, in Recheck mode)
	SIF IS_V_HOLD(MTAR:(LOCAL:0)) && !(FLAG:RECHECKING && IS_EQUIP_TARGET(MTAR:LOCAL, 3))
		RETURN 0
	SIF !CAN_REACH_GROIN(MPLY:0, MTAR:LOCAL) && FLAG:RECHECKING
		RETURN 0
NEXT

RETURN 1

;-------------------------------------------------
;継続ロック時の強制解除判定
;-------------------------------------------------
@COM_ABLE_AT_EQUIP_LOCKED61
;他の部位挿入系コマンドが実行された場合解除する
SIF IS_V_HOLD(MTAR:(LOCAL:0)) && !(FLAG:RECHECKING && IS_EQUIP_TARGET(MTAR:LOCAL, 3))
	RETURN 0
RETURN 1

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

;●プレイヤーについて処理
DOWNBASE:(MPLY:0):体力 += 80

EXP:(MPLY:0):性技経験値 += MTAR_NUM / 2 + 1

SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 200)
SOURCE:(MPLY:0):接触 = 10
SOURCE:(MPLY:0):性行動 = 150

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

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

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

	SOURCE:(LOCAL:2):露出 = 50
	SOURCE:(LOCAL:2):逸脱 = 120
	SOURCE:(LOCAL:2):接触 = 10
	SOURCE:(LOCAL:2):性行動 = 300
	IF TALENT:(MPLY:0):技師
		SOURCE:(LOCAL:2):快Ｖ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 1500)
	ELSE
		SOURCE:(LOCAL:2):快Ｖ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 1000)
	ENDIF

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

	;バイブの共通処理
	CALL COM_COMMON61(LOCAL:2)

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

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

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

;このコマンドは領内活動の逢瀬終了後も継続される
TFLAG:継続ロックフラグ = 1

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP61(ARG:0)
LOCAL:2 = MEQUIP_PLAYER:(ARG:0):0
;ソースを退避
CALL PUTOUT_SOURCE(LOCAL:2)
SOURCE:(LOCAL:2):性行動 += 50
;退避したソースを加算
CALL SUM_SOURCE(LOCAL:2)

FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:0)
	CALL PUTOUT_SOURCE(LOCAL:3)

	IF TALENT:(LOCAL:2):技師
		SOURCE:(LOCAL:3):快Ｖ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 900)
	ELSE
		SOURCE:(LOCAL:3):快Ｖ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 600)
	ENDIF
	SOURCE:(LOCAL:3):露出 += 20
	SOURCE:(LOCAL:3):逸脱 += 50
	SOURCE:(LOCAL:3):性行動 += 100

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

	;バイブの共通処理
	CALL COM_COMMON61(LOCAL:3)

	;退避したソースを加算
	CALL SUM_SOURCE(LOCAL:3)
NEXT
;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE61(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%
RESULTS += "にバイブを挿入中"

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP61(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
PRINTFORM %EQUIP_TARGET_ANAME(ARG:0)%
PRINTFORML の膣内でバイブが振動している…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP61(ARG:0)
PRINTFORM %EQUIP_TARGET_ANAME(ARG:0)%
PRINTFORMW の膣内からバイブを引き抜いた

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

;共通部分
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 * 1, 10))

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_BEFORE61
IF IS_PIERCED(MTAR:0, ピアス_ラビア)
	LOCALS:0 = ピアスの取り付けられた
ELSE
	LOCALS:0 =
ENDIF

IF TALENT:(MTAR:0):処女 == 1
	LOCALS:0 = %LOCALS:0%まだ乙女の
ELSEIF PALAM:(MTAR:0):潤滑 >= PALAMLV:7
	LOCALS:0 = %LOCALS:0%濡れそぼった
ELSE
	LOCALS:0 =
ENDIF

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

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

IF CUM_GET_AMOUNT:(MTAR:0):射精部位_膣内 > 0
	LOCALS:2 = 中に出した精液がこぼれないよう
ELSE
	LOCALS:2 =
ENDIF

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に震える張り型を押し当て、%LOCALS:2%奥へと押し込ん%TARGET_STR("だ", "できた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORMW %LOCALS:1%は%ANAME(MPLY:0)%にバイブを握らせると、%LOCALS:2%自身の%LOCALS:0%を貫かせた…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、バイブで%LOCALS:1%を責めるように命令した
		PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に震える張り型を押し当て、%LOCALS:2%奥へと押し込んだ…
ENDSELECT

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

;--------------------------------------------------------
;装着時と継続状態での共通処理
;--------------------------------------------------------
@COM_COMMON61(ARG:0)
SELECTCASE ABL:(ARG:0):Ｖ感
	CASE 0
		SOURCE:(ARG:0):苦痛 += 300
	CASE 1
		SOURCE:(ARG:0):苦痛 += 100
	CASE 2
		SOURCE:(ARG:0):苦痛 += 30
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_WHEN61
IF FLAG:調教モード != 調教_居住区 && FLAG:調教モード != 調教_クエスト
	RETURN コマンド_ウフフ
ELSE
	RETURN コマンド_居住区
ENDIF

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_61()
RETURN POWER(2, 性的嗜好_道具を使いたい)

@COM_PREFERENCE_TARGET_61()
RETURN POWER(2, 性的嗜好_道具を使われたい)


code:
;アナルバイブ

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME62
LOCALS:0 = アナルバイブ

RESULTS:0 '= TR(LOCALS:0,"で責める")
RESULTS:1 '= TR(LOCALS:0,"で奉仕する")
RESULTS:2 '= TR(LOCALS:0,"で奉仕させる")
RESULTS:3 '= TR(LOCALS:0,"で責められる")
RESULTS:4 '= TR(LOCALS:0,"で責めさせる")
RESULTS:5 '= TR(LOCALS:0,"見せつけ")

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE62
;共通部分
CALL COM_ABLE_COMMON(62)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;アナルバイブが必要
SIF !HO_ITEM_STOCK:ITEM_アナルバイブ && !ITEM:A_アナルバイブ
	RETURN 0

FOR LOCAL:0, 0, MTAR_NUM
	;A not occupied (Unless by fingering, in Recheck mode)
	IF IS_A_HOLD(MTAR:(LOCAL:0)) && !(FLAG:RECHECKING && IS_EQUIP_TARGET(MTAR:LOCAL, 4))
		RETURN 0
	ENDIF
	IF !CAN_REACH_GROIN(MPLY:0, MTAR:LOCAL) && !FLAG:RECHECKING
		RETURN 0
	ENDIF

NEXT

RETURN 1

;-------------------------------------------------
;継続ロック時の強制解除判定
;-------------------------------------------------
@COM_ABLE_AT_EQUIP_LOCKED62
;他の部位挿入系コマンドが実行された場合解除する
SIF IS_A_HOLD(MTAR:(LOCAL:0)) && !(FLAG:RECHECKING && IS_EQUIP_TARGET(MTAR:LOCAL, 4))
	RETURN 0
RETURN 1

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

;●プレイヤーについて処理
DOWNBASE:(MPLY:0):体力 += 80

EXP:(MPLY:0):性技経験値 += MTAR_NUM / 2 + 1

SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 200)
SOURCE:(MPLY:0):接触 = 10
SOURCE:(MPLY:0):性行動 = 90

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

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

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

	SOURCE:(LOCAL:2):露出 = 70
	SOURCE:(LOCAL:2):逸脱 = 300
	SOURCE:(LOCAL:2):接触 = 10
	SOURCE:(LOCAL:2):性行動 = 150
	IF TALENT:(MPLY:0):技師
		SOURCE:(LOCAL:2):快Ａ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 1500)
	ELSE
		SOURCE:(LOCAL:2):快Ａ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 1000)
	ENDIF

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

	;Ａバイブの共通処理
	CALL COM_COMMON62(LOCAL:2)

NEXT

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

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

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

;このコマンドは領内活動の逢瀬終了後も継続される
TFLAG:継続ロックフラグ = 1

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP62(ARG:0)
LOCAL:2 = MEQUIP_PLAYER:(ARG:0):0
;ソースを退避
CALL PUTOUT_SOURCE(LOCAL:2)
SOURCE:(LOCAL:2):性行動 += 30
;退避したソースを加算
CALL SUM_SOURCE(LOCAL:2)

FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:0)
	CALL PUTOUT_SOURCE(LOCAL:3)

	IF TALENT:(LOCAL:2):技師
		SOURCE:(LOCAL:3):快Ａ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 900)
	ELSE
		SOURCE:(LOCAL:3):快Ａ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 600)
	ENDIF
	SOURCE:(LOCAL:3):露出 += 20
	SOURCE:(LOCAL:3):逸脱 += 200
	SOURCE:(LOCAL:3):性行動 += 50

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

	;バイブの共通処理
	CALL COM_COMMON62(LOCAL:3)

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE62(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%
RESULTS += "にアナルバイブを挿入中"

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP62(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
PRINTFORM %EQUIP_TARGET_ANAME(ARG:0)%
PRINTFORML の尻穴でバイブが振動している…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP62(ARG:0)
PRINTFORM %EQUIP_TARGET_ANAME(ARG:0)%
PRINTFORMW の尻穴からバイブを引き抜いた
;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER62(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 75

;共通部分
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 * 1, 10))

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_BEFORE62
IF ABL:(MTAR:0):Ａ感 >= 3
	LOCALS:0 = 十分に開発されたアナル
ELSEIF ABL:(MTAR:0):Ａ感 >= 2
	LOCALS:0 = 開発途上のアナル
ELSE
	LOCALS:0 = キツく閉じたアナル
ENDIF

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

IF TALENT:(MTAR:0):美尻
	LOCALS:2 = %STR_BODY("尻：尻肉：長：愛撫：感触", MTAR:0)%を割り開き、
ELSEIF GET_HIPSIZE(MTAR:0) >= 1
	LOCALS:2 = %STR_BODY("尻肉：長", MTAR:0)%をかきわけ、
ELSE
	LOCALS:2 =
ENDIF

IF CUM_GET_AMOUNT:(MTAR:0):射精部位_アナル > 0
	LOCALS:3 = 肛内に出した精液がこぼれないよう
ELSE
	LOCALS:3 =
ENDIF

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:2%%LOCALS:0%に震える張り型を押し当て、%LOCALS:3%奥へと押し込ん%TARGET_STR("だ", "できた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORMW %LOCALS:1%は%ANAME(MPLY:0)%にアナルバイブを握らせると、%LOCALS:3%自身の%LOCALS:0%を貫かせた…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、バイブで%LOCALS:1%の尻穴を責めるように命令した
		PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:2%%LOCALS:0%に震える張り型を押し当て、%LOCALS:3%奥へと押し込んだ…
ENDSELECT

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

;--------------------------------------------------------
;装着時と継続状態での共通処理
;--------------------------------------------------------
@COM_COMMON62(ARG:0)
SELECTCASE ABL:(ARG:0):Ａ感
	CASE 0
		SOURCE:(ARG:0):苦痛 += 1200
	CASE 1
		SOURCE:(ARG:0):苦痛 += 500
	CASE 2
		SOURCE:(ARG:0):苦痛 += 200
	CASE 3
		SOURCE:(ARG:0):苦痛 += 80
	CASE 4
		SOURCE:(ARG:0):苦痛 += 30
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_WHEN62
IF FLAG:調教モード != 調教_居住区 && FLAG:調教モード != 調教_クエスト
	RETURN コマンド_ウフフ
ELSE
	RETURN コマンド_居住区
ENDIF

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_62()
RETURN POWER(2, 性的嗜好_道具を使いたい)

@COM_PREFERENCE_TARGET_62()
RETURN POWER(2, 性的嗜好_道具を使われたい)


code:
;クリキャップ

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME63
IF CSTR:(MPLY:0):モブ識別子 == "Ｃコイン"
	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%にクリトリスを責められる
ELSE
	LOCALS:0 '= "クリキャップ"
	RESULTS:0 '= TR(LOCALS:0,"で責める")
	RESULTS:1 '= TR(LOCALS:0,"で奉仕する")
	RESULTS:2 '= TR(LOCALS:0,"で奉仕させる")
	RESULTS:3 '= TR(LOCALS:0,"で責められる")
	RESULTS:4 '= TR(LOCALS:0,"で責めさせる")
	RESULTS:5 '= TR(LOCALS:0,"見せつけ")
ENDIF

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE63
;共通部分
CALL COM_ABLE_COMMON(63)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;クリキャップが必要
SIF !HO_ITEM_STOCK:ITEM_クリキャップ && !ITEM:A_クリキャップ
	RETURN 0
FOR LOCAL, 0, MTAR_NUM
	SIF !HAS_VAGINA(MTAR:LOCAL)
		RETURN 0
	;tentacle C rub
	SIF IS_EQUIP_TARGET(MTAR:LOCAL, 203)
		RETURN 0
	SIF !CAN_REACH_GROIN(MPLY:0, MTAR:LOCAL) && !FLAG:RECHECKING
		RETURN 0
NEXT

RETURN 1

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

;●プレイヤーについて処理
DOWNBASE:(MPLY:0):体力 += 60

EXP:(MPLY:0):性技経験値 += MTAR_NUM / 2 + 1

SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 200)
SOURCE:(MPLY:0):接触 = 10
SOURCE:(MPLY:0):性行動 = 90

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

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

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

	SOURCE:(LOCAL:2):露出 = 50
	SOURCE:(LOCAL:2):逸脱 = 120
	SOURCE:(LOCAL:2):接触 = 10
	SOURCE:(LOCAL:2):性行動 = 180
	IF TALENT:(MPLY:0):技師
		SOURCE:(LOCAL:2):快Ｃ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 900)
	ELSE
		SOURCE:(LOCAL:2):快Ｃ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 600)
	ENDIF

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 50, 20)
NEXT
;主導度変化基準値
TFLAG:主導度変化基準値 = 2

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

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

;このコマンドは領内活動の逢瀬終了後も継続される
TFLAG:継続ロックフラグ = 1

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP63(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)
	IF TALENT:(LOCAL:2):技師
		SOURCE:(LOCAL:3):快Ｃ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 600)
	ELSE
		SOURCE:(LOCAL:3):快Ｃ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 400)
	ENDIF
	SOURCE:(LOCAL:3):露出 += 20
	SOURCE:(LOCAL:3):逸脱 += 50
	SOURCE:(LOCAL:3):性行動 += 60
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE63(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
IF CSTR:(MEQUIP_PLAYER:(ARG:0):0):モブ識別子 == "Ｃコイン"
	RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%の秘部にクリーピングコインが取り付いている
ELSE
	RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%にクリキャップを装着中
ENDIF

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP63(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
IF CSTR:(MEQUIP_PLAYER:(ARG:0):0):モブ識別子 == "Ｃコイン"
	PRINTFORML 震えるコインが%EQUIP_TARGET_ANAME(ARG:0)%のクリトリスを責め続けている…
ELSE
	PRINTFORML 振動するキャップが%EQUIP_TARGET_ANAME(ARG:0)%のクリトリスを責め続けている…
ENDIF
;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP63(ARG:0)
IF CSTR:(MEQUIP_PLAYER:(ARG:0):0):モブ識別子 == "Ｃコイン"
	PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%のクリトリスからクリーピングコインが離れた
ELSE
	PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%のクリトリスを責め立てるキャップを外した
ENDIF

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

;共通部分
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 * 1, 10))

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_BEFORE63
IF IS_PIERCED(MTAR:0, ピアス_クリトリス)
	LOCALS:0 = ピアスの取り付けられた
ELSE
	LOCALS:0 =
ENDIF

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

IF TALENT:(MTAR:0):体格 == 体格_小柄
	LOCALS:0 = %LOCALS:0%包皮に包まれた淫豆
ELSE
	LOCALS:0 = %LOCALS:0%ぷくりと膨れた秘豆
ENDIF

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

IF CSTR:(MPLY:0):モブ識別子 == "Ｃコイン"
	PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%のクリトリスに角を当てると、身を震わせて敏感な部分を刺激し%TARGET_STR("た", "てきた")%…
ELSE
	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:0%に取り付けるよう命じた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、%LOCALS:1%のクリトリスにキャップを付けるように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に震えるキャップを取り付けた…
	ENDSELECT
ENDIF

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

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

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

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

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_63()
RETURN POWER(2, 性的嗜好_道具を使いたい)

@COM_PREFERENCE_TARGET_63()
RETURN POWER(2, 性的嗜好_道具を使われたい)


code:
;ニプルキャップ

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME64
IF CSTR:(MPLY:0):モブ識別子 == "Ｃコイン"
	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%に乳首を責められる
ELSE
	LOCALS:0 = ニプルキャップ
	RESULTS:0 '= TR(LOCALS:0,"で責める")
	RESULTS:1 '= TR(LOCALS:0,"で奉仕する")
	RESULTS:2 '= TR(LOCALS:0,"で奉仕させる")
	RESULTS:3 '= TR(LOCALS:0,"で責められる")
	RESULTS:4 '= TR(LOCALS:0,"で責めさせる")
	RESULTS:5 '= TR(LOCALS:0,"見せつけ")
ENDIF
;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE64
;共通部分
CALL COM_ABLE_COMMON(64)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;ニプルキャップが必要
SIF !HO_ITEM_STOCK:ITEM_ニプルキャップ && !ITEM:A_ニプルキャップ
	RETURN 0
FOR LOCAL, 0, MTAR_NUM
	SIF IS_N_HOLD(MTAR:0)
		RETURN 0
	SIF !CAN_REACH_BODY(MPLY:0, MTAR:LOCAL) && !FLAG:RECHECKING
		RETURN 0
NEXT

RETURN 1

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

;●プレイヤーについて処理
DOWNBASE:(MPLY:0):体力 += 60

EXP:(MPLY:0):性技経験値 += MTAR_NUM / 2 + 1

SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 200)
SOURCE:(MPLY:0):接触 = 10
SOURCE:(MPLY:0):性行動 = 90

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

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

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

	SOURCE:(LOCAL:2):露出 = 50
	SOURCE:(LOCAL:2):逸脱 = 120
	SOURCE:(LOCAL:2):接触 = 10
	SOURCE:(LOCAL:2):性行動 = 180
	IF TALENT:(MPLY:0):技師
		SOURCE:(LOCAL:2):快Ｂ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 900)
	ELSE
		SOURCE:(LOCAL:2):快Ｂ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 600)
	ENDIF

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

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

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

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

;このコマンドは領内活動の逢瀬終了後も継続される
TFLAG:継続ロックフラグ = 1

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP64(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)
	IF TALENT:(LOCAL:2):技師
		SOURCE:(LOCAL:3):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 600)
	ELSE
		SOURCE:(LOCAL:3):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 400)
	ENDIF
	SOURCE:(LOCAL:3):露出 += 20
	SOURCE:(LOCAL:3):逸脱 += 50
	SOURCE:(LOCAL:3):性行動 += 60
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE64(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
IF CSTR:(MEQUIP_PLAYER:(ARG:0):0):モブ識別子 == "Ｃコイン"
	RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%の乳首にクリーピングコインが取り付いている
ELSE
	RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%にニプルキャップを装着中
ENDIF
;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP64(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
IF CSTR:(MEQUIP_PLAYER:(ARG:0):0):モブ識別子 == "Ｃコイン"
	PRINTFORML 震えるコインが%EQUIP_TARGET_ANAME(ARG:0)%の乳首を責め続けている…
ELSE
	PRINTFORML 振動するキャップが%EQUIP_TARGET_ANAME(ARG:0)%の乳首を責め続けている…
ENDIF
;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP64(ARG:0)
IF CSTR:(MEQUIP_PLAYER:(ARG:0):0):モブ識別子 == "Ｃコイン"
	PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%の乳首からクリーピングコインが離れた
ELSE
	PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%の乳首を責め立てるキャップを外した
ENDIF
;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER64(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 65

;共通部分
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 * 1, 10))

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_BEFORE64
IF IS_PIERCED(MTAR:0, ピアス_乳首)
	LOCALS:0 = ピアスの取り付けられた
ELSE
	LOCALS:0 =
ENDIF

IF TALENT:(MTAR:0):体格 == 体格_小柄
	LOCALS:0 = %LOCALS:0%可愛らしい乳首
ELSEIF PALAM:(MTAR:0):欲情 >= PALAMLV:5
	LOCALS:0 = %LOCALS:0%欲情してツンと立ち上がった乳首
ELSE
	LOCALS:0 = %LOCALS:0%乳首
ENDIF

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

IF CSTR:(MPLY:0):モブ識別子 == "Ｃコイン"
	PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の乳首に取り付くと、身を震わせて敏感な部分を刺激し%TARGET_STR("た", "てきた")%…
ELSE
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に震えるキャップを取り付け%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %LOCALS:1%は%ANAME(MPLY:0)%にキャップを握らせ、自身の乳首に取り付けさせた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:1%にニプルキャップを取り付けるように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に震えるキャップを取り付けた…
	ENDSELECT
ENDIF

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

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

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

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

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_64()
RETURN POWER(2, 性的嗜好_道具を使いたい)

@COM_PREFERENCE_TARGET_64()
RETURN POWER(2, 性的嗜好_道具を使われたい)


code:
;Ｖ拡張バルーン

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME65
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_ABLE65
;共通部分
CALL COM_ABLE_COMMON(65)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;拡張バルーンが必要
SIF !ITEM:拡張バルーン && !ITEM:A_拡張バルーン
	RETURN 0
;対象にＶが必要
SIF !HAS_VAGINA(MTAR:0, 1)
	RETURN 0
;ターゲットのＶが塞がっていれば不可
SIF IS_V_HOLD(MTAR:0)
	RETURN 0
SIF !CAN_REACH_GROIN(MPLY:0, MTAR:0) && !FLAG:RECHECKING
	RETURN 0
RETURN 1

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

;ターゲットのＶ拡張経験による諸々の倍率
LOCAL:10 = MIN(100 + EXP:(MTAR:0):Ｖ拡張経験 * 10 + MIN(ABL:(MTAR:0):Ｖ感, 6) * 40, 600)

;●プレイヤーについて処理
EXP:(MPLY:0):性技経験値 += MTAR_NUM / 2 + 1

SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 200)
SOURCE:(MPLY:0):接触 = 10
SOURCE:(MPLY:0):逸脱 = 100
SOURCE:(MPLY:0):性行動 = 150

IF IS_INITIATIVE(MPLY:0)
	SOURCE:(MPLY:0):嗜虐 = 120
ENDIF

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

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

;●ターゲットについて処理
EXP:(MTAR:0):Ｖ拡張経験 += 1

SOURCE:(MTAR:0):露出 = 70
SOURCE:(MTAR:0):逸脱 = 300
SOURCE:(MTAR:0):接触 = 10
SOURCE:(MTAR:0):性行動 = 300

IF TALENT:(MPLY:0):技師
	SOURCE:(MTAR:0):快Ｖ += SENSE_HOUSHI(MPLY:0, MTAR:0, 400) * (LOCAL:10 + 50) / 150
	SOURCE:(MTAR:0):苦痛 = 1200 * 100 / LOCAL:10
ELSE
	SOURCE:(MTAR:0):快Ｖ += SENSE_HOUSHI(MPLY:0, MTAR:0, 300) * (LOCAL:10 + 50) / 150
	SOURCE:(MTAR:0):苦痛 = 1600 * 100 / LOCAL:10
ENDIF

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

;Ｖ拡張バルーンの共通処理
CALL COM_COMMON65(MTAR:0)

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

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

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

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

RETURN 1

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

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

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

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

;ターゲットのＶ拡張経験による諸々の倍率
LOCAL:10 = MIN(100 + EXP:(LOCAL:3):Ｖ拡張経験 * 10 + MIN(ABL:(LOCAL:3):Ｖ感, 6) * 40, 600)

EXP:(LOCAL:3):Ｖ拡張経験 += 1

SOURCE:(LOCAL:3):露出 += 30
SOURCE:(LOCAL:3):逸脱 += 120
SOURCE:(LOCAL:3):性行動 += 100

IF TALENT:(LOCAL:2):技師
	SOURCE:(LOCAL:3):快Ｖ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 200) * (LOCAL:10 + 50) / 150
	SOURCE:(LOCAL:3):苦痛 = 600 * 100 / LOCAL:10
ELSE
	SOURCE:(LOCAL:3):快Ｖ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 150) * (LOCAL:10 + 50) / 150
	SOURCE:(LOCAL:3):苦痛 = 800 * 100 / LOCAL:10
ENDIF

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

;Ｖ拡張バルーンの共通処理
CALL COM_COMMON65(LOCAL:3)

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE65(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%の膣内に拡張バルーンを挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP65(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%の膣は拡張バルーンで押し広げられている…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP65(ARG:0)
PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%の膣内から拡張バルーンを取り出した

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

;共通部分
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 * 1, 10))

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_BEFORE65
IF IS_PIERCED(MTAR:0, ピアス_ラビア)
	LOCALS:0 = ピアスの取り付けられた
ELSE
	LOCALS:0 =
ENDIF

IF TALENT:(MTAR:0):処女 == 1
	LOCALS:0 = %LOCALS:0%まだ乙女の
	LOCALS:1 = 無理やり
ELSE
	LOCALS:0 = %LOCALS:0%
	LOCALS:1 =
ENDIF

IF PALAM:(MTAR:0):潤滑 >= PALAMLV:7
	LOCALS:0 = %LOCALS:0%濡れそぼった
	LOCALS:1 = %LOCALS:1%
ENDIF

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

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の%LOCALS:0%に拡張バルーンを挿入し、空気を送って%LOCALS:1%内部を押し広げ%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に拡張バルーンを持たせると、それを自身の%LOCALS:0%へと挿入させて%LOCALS:1%内部を拡張させた…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%の膣をバルーンで拡張するように命令した
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の%LOCALS:0%に拡張バルーンを挿入し、空気を送って%LOCALS:1%内部を押し広げた…
ENDSELECT

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

;--------------------------------------------------------
;装着時と継続状態での共通処理
;--------------------------------------------------------
@COM_COMMON65(ARG:0)

IF PALAM:(ARG:0):潤滑 < PALAMLV:1
	TIMES SOURCE:(ARG:0):快Ｖ, 0.05
	TIMES SOURCE:(ARG:0):苦痛, 3.00
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:3
	TIMES SOURCE:(ARG:0):快Ｖ, 0.20
	TIMES SOURCE:(ARG:0):苦痛, 2.20
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:5
	TIMES SOURCE:(ARG:0):快Ｖ, 0.60
	TIMES SOURCE:(ARG:0):苦痛, 1.50
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:7
	TIMES SOURCE:(ARG:0):快Ｖ, 0.85
	TIMES SOURCE:(ARG:0):苦痛, 1.20
ELSE
	TIMES SOURCE:(ARG:0):快Ｖ, 1.00
	TIMES SOURCE:(ARG:0):苦痛, 1.00
ENDIF

IF TALENT:(ARG:0):体格 == 体格_小柄
	TIMES SOURCE:(ARG:0):苦痛, 1.30
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(5, 8))
CALL VIRGIN_COMMON(ARG:0, "拡張バルーン", GET_SITUATION_BY_TRAIN_MODE())

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

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

@COM_AVAILABLE_WHEN65
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_65()
RETURN POWER(2, 性的嗜好_道具を使いたい) + POWER(2, 性的嗜好_虐げたい)

@COM_PREFERENCE_TARGET_65()
RETURN POWER(2, 性的嗜好_道具を使われたい) + POWER(2, 性的嗜好_虐げられたい)


code:
;Ａ拡張バルーン

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME66
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_ABLE66
;共通部分
CALL COM_ABLE_COMMON(66)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
;拡張バルーンが必要
SIF !ITEM:拡張バルーン && !ITEM:A_拡張バルーン
	RETURN 0
SIF IS_A_HOLD(MTAR:0)
	RETURN 0
SIF !CAN_REACH_GROIN(MPLY:0, MTAR:0) && !FLAG:RECHECKING
	RETURN 0
RETURN 1

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

;ターゲットのＡ拡張経験による諸々の倍率
LOCAL:10 = MIN(100 + EXP:(MTAR:0):Ａ拡張経験 * 10 + MIN(ABL:(MTAR:0):Ａ感, 6) * 40, 600)

;●プレイヤーについて処理
EXP:(MPLY:0):性技経験値 += MTAR_NUM / 2 + 1

SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 200)
SOURCE:(MPLY:0):接触 = 10
SOURCE:(MPLY:0):逸脱 = 150
SOURCE:(MPLY:0):性行動 = 90

IF IS_INITIATIVE(MPLY:0)
	SOURCE:(MPLY:0):嗜虐 = 150
ENDIF

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

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

;●ターゲットについて処理
EXP:(MTAR:0):Ａ拡張経験 += 1

SOURCE:(MTAR:0):露出 = 90
SOURCE:(MTAR:0):逸脱 = 400
SOURCE:(MTAR:0):接触 = 10
SOURCE:(MTAR:0):性行動 = 150

IF TALENT:(MPLY:0):技師
	SOURCE:(MTAR:0):快Ａ += SENSE_HOUSHI(MPLY:0, MTAR:0, 400) * (LOCAL:10 + 50) / 150
	SOURCE:(MTAR:0):苦痛 = 1500 * 100 / LOCAL:10
ELSE
	SOURCE:(MTAR:0):快Ａ += SENSE_HOUSHI(MPLY:0, MTAR:0, 300) * (LOCAL:10 + 50) / 150
	SOURCE:(MTAR:0):苦痛 = 2000 * 100 / LOCAL:10
ENDIF

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

;Ａ拡張バルーンの共通処理
CALL COM_COMMON66(MTAR:0)

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

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

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

RETURN 1

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

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

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

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

;ターゲットのＡ拡張経験による諸々の倍率
LOCAL:10 = MIN(100 + EXP:(LOCAL:3):Ａ拡張経験 * 10 + MIN(ABL:(LOCAL:3):Ａ感, 6) * 40, 600)

EXP:(LOCAL:3):Ａ拡張経験 += 1

SOURCE:(LOCAL:3):露出 += 40
SOURCE:(LOCAL:3):逸脱 += 140
SOURCE:(LOCAL:3):性行動 += 50

IF TALENT:(LOCAL:2):技師
	SOURCE:(LOCAL:3):快Ａ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 200) * (LOCAL:10 + 50) / 150
	SOURCE:(LOCAL:3):苦痛 = 750 * 100 / LOCAL:10
ELSE
	SOURCE:(LOCAL:3):快Ａ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 150) * (LOCAL:10 + 50) / 150
	SOURCE:(LOCAL:3):苦痛 = 1000 * 100 / LOCAL:10
ENDIF

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

;Ａ拡張バルーンの共通処理
CALL COM_COMMON66(LOCAL:3)

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE66(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%のアナルに拡張バルーンを挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP66(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%のアナルは拡張バルーンで押し広げられている…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP66(ARG:0)
PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%のアナルから拡張バルーンを取り出した

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

;共通部分
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 * 1, 10))

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_BEFORE66
IF ABL:(MTAR:0):Ａ感 >= 3
	LOCALS:0 = 十分に開発されたアナル
ELSEIF ABL:(MTAR:0):Ａ感 >= 2
	LOCALS:0 = 開発途上のアナル
ELSE
	LOCALS:0 = キツく閉じたアナル
ENDIF

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の%LOCALS:0%に拡張バルーンを挿入し、空気を送って内部を押し広げ%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に拡張バルーンを持たせると、それを自身の%LOCALS:0%へと挿入させて内部を拡張させた…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%の尻穴をバルーンで拡張するように命令した
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の%LOCALS:0%に拡張バルーンを挿入し、空気を送って内部を押し広げた…
ENDSELECT

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

;--------------------------------------------------------
;装着時と継続状態での共通処理
;--------------------------------------------------------
@COM_COMMON66(ARG:0)
IF PALAM:(ARG:0):潤滑 < PALAMLV:1
	TIMES SOURCE:(ARG:0):快Ａ, 0.05
	TIMES SOURCE:(ARG:0):苦痛, 3.00
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:3
	TIMES SOURCE:(ARG:0):快Ａ, 0.20
	TIMES SOURCE:(ARG:0):苦痛, 2.20
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:5
	TIMES SOURCE:(ARG:0):快Ａ, 0.60
	TIMES SOURCE:(ARG:0):苦痛, 1.50
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:7
	TIMES SOURCE:(ARG:0):快Ａ, 0.85
	TIMES SOURCE:(ARG:0):苦痛, 1.20
ELSE
	TIMES SOURCE:(ARG:0):快Ａ, 1.00
	TIMES SOURCE:(ARG:0):苦痛, 1.00
ENDIF

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

CALL TIGHTNESS_DECREASE_A(ARG:0, RAND(5, 8))
CALL VIRGIN_COMMON_A(ARG:0, "アナル拡張バルーン", GET_SITUATION_BY_TRAIN_MODE())

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

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

@COM_AVAILABLE_WHEN66
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_66()
RETURN POWER(2, 性的嗜好_道具を使いたい) + POWER(2, 性的嗜好_虐げたい)

@COM_PREFERENCE_TARGET_66()
RETURN POWER(2, 性的嗜好_道具を使われたい) + POWER(2, 性的嗜好_虐げられたい)


code:
;搾乳機

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME67
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_ABLE67
;共通部分
CALL COM_ABLE_COMMON(67)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;搾乳機が必要、搾乳機が備え付けられている設備なら可
SIF (!ITEM:搾乳機 && !ITEM:A_搾乳機) && !C_COND("設備用途:搾乳",, MPLY)
	RETURN 0

FOR LOCAL, 0, MTAR_NUM
	;母乳体質が必要
	SIF !TALENT:(MTAR:LOCAL):母乳体質
		RETURN 0
	SIF IS_N_HOLD(MTAR:LOCAL)
		RETURN 0
	SIF !CAN_REACH_BODY(MPLY:0, MTAR:0) && !FLAG:RECHECKING
		RETURN 0
NEXT

RETURN 1

;-------------------------------------------------
;継続ロック時の強制解除判定
;-------------------------------------------------
@COM_ABLE_AT_EQUIP_LOCKED67
RETURN 1

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

;●プレイヤーについて処理
DOWNBASE:(MPLY:0):体力 += 60

EXP:(MPLY:0):性技経験値 += MTAR_NUM / 2 + 1

SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 200)
SOURCE:(MPLY:0):接触 = 10
SOURCE:(MPLY:0):性行動 = 90

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

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

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

	SOURCE:(LOCAL:2):露出 = 50
	SOURCE:(LOCAL:2):逸脱 = 120
	SOURCE:(LOCAL:2):接触 = 10
	SOURCE:(LOCAL:2):性行動 = 180
	IF TALENT:(MPLY:0):技師
		SOURCE:(LOCAL:2):快Ｂ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 900)
		SOURCE:(LOCAL:2):搾乳 = SENSE_HOUSHI(MPLY:0, LOCAL:2, 1000)
	ELSE
		SOURCE:(LOCAL:2):快Ｂ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 600)
		SOURCE:(LOCAL:2):搾乳 = SENSE_HOUSHI(MPLY:0, LOCAL:2, 700)
	ENDIF

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

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP67(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)
	IF TALENT:(LOCAL:2):技師
		SOURCE:(LOCAL:3):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 600)
		SOURCE:(LOCAL:3):搾乳 += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 600)
	ELSE
		SOURCE:(LOCAL:3):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 400)
		SOURCE:(LOCAL:3):搾乳 += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 400)
	ENDIF
	SOURCE:(LOCAL:3):露出 += 20
	SOURCE:(LOCAL:3):逸脱 += 50
	SOURCE:(LOCAL:3):性行動 += 60
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE67(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%に搾乳機を装着中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP67(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
PRINTFORML 搾乳機が%EQUIP_TARGET_ANAME(ARG:0)%から母乳を吸い上げている…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP67(ARG:0)
PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%の母乳を搾り取る搾乳機を外した

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

;共通部分
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 * 1, 10))

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

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE67
IF IS_PIERCED(MTAR:0, ピアス_乳首)
	LOCALS:0 = ピアスの取り付けられた
ELSE
	LOCALS:0 =
ENDIF

SELECTCASE GET_BUSTSIZE(MTAR:0)
	CASE -2, -1
		LOCALS:0 = 小ぶりながらもミルクを蓄えた乳房
	CASE 0
		LOCALS:0 = 程よいサイズのミルクを蓄えた乳房
	CASE 1
		LOCALS:0 = たわわに実るミルクを蓄えた乳房
	CASE 2 TO 4
		LOCALS:0 = はち切れんばかりのミルクを蓄えた乳房
ENDSELECT

IF MTAR_NUM >= 2
	LOCALS:1 = %ANAME(MTAR:0)%たち
ELSE
	LOCALS:1 = %ANAME(MTAR:0)%
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:0%に取り付けさせた…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:1%に搾乳機を取り付けるように命令した
		PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%に搾乳機を取り付けた…
ENDSELECT

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

FOR LOCAL:0, 0, MPLY_NUM
	LOCAL:1 = MTAR:(LOCAL:0)
	SIF LOCAL:1 == MASTER && !CONFIG:441
		CONTINUE
	IF GETBIT(TALENT:(LOCAL:1):淫乱系, 素質_淫乱_雌牛)
		PRINTFORML  雌牛に成り下がった%ANAME(LOCAL:1)%は、搾乳機を取り付けられただけで乳首から母乳を垂らしている…
	ENDIF
NEXT

;-------------------------------------------------
;コマンド区分
;-------------------------------------------------
@COM_AVAILABLE_WHEN67
IF FLAG:調教モード != 調教_居住区
	RETURN コマンド_ウフフ
ELSE
	RETURN コマンド_居住区
ENDIF

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_67()
RETURN POWER(2, 性的嗜好_道具を使いたい) + POWER(2, 性的嗜好_虐げたい)

@COM_PREFERENCE_TARGET_67()
RETURN POWER(2, 性的嗜好_道具を使われたい) + POWER(2, 性的嗜好_虐げられたい)