code:
;屈曲位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME52
IF IS_INSERT_SINGLE(MTAR:0, "Ａ") && GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ａ"), 30) && IS_INSERT_MUTUAL(MPLY:0, MTAR:0) != 1
	LOCALS:0 = 二穴背面駅弁
ELSE
	LOCALS:0 = 背面駅弁
ENDIF
RESULTS:0 = %LOCALS:0%で挿入
RESULTS:1 = %LOCALS:0%で挿入させられる
RESULTS:2 = %LOCALS:0%で挿入させる
RESULTS:3 = %LOCALS:0%で挿入される
RESULTS:4 = %LOCALS:0%で挿入させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE52
;共通部分
CALL COM_ABLE_COMMON(52)
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 !HAS_VAGINA(MTAR:0, 1)
	RETURN 0
SIF IS_V_HOLD(MTAR:0)
	RETURN 0
SIF IS_INSERT_SINGLE(MTAR:0, "Ａ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ａ"), 30)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 52)
	RETURN 0
RETURN 1

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

;既に挿入中なら現在の体位を取得
TFLAG:17 = 0
IF IS_INSERT_MUTUAL(MPLY:0, MTAR:0) == 1
	SELECTCASE GET_SEX_POSITION(MPLY:0, MTAR:0)
		CASE 1
			TFLAG:17 = 1
		CASE 2
			TFLAG:17 = 3
		CASE 3
			TFLAG:17 = 2
		CASE 4
			TFLAG:17 = 3
		CASE 5
			TFLAG:17 = 2
		CASE 6
			TFLAG:17 = 3
		CASE 7
			TFLAG:17 = 3
		CASE 8
			TFLAG:17 = 1
	ENDSELECT
ENDIF
IF TFLAG:17 == 0
	SELECTCASE PREVCOM
		CASE 30
			TFLAG:17 = 1
		CASE 31
			TFLAG:17 = 3
		CASE 32
			TFLAG:17 = 2
		CASE 33
			TFLAG:17 = 3
		CASE 34
			TFLAG:17 = 2
		CASE 35
			TFLAG:17 = 3
		CASE 37
			TFLAG:17 = 3
		CASE 38
			TFLAG:17 = 1
	ENDSELECT
ENDIF

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

;●プレイヤー側の処理
DOWNBASE:(MPLY:0):体力 += 160

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

SOURCE:(MPLY:0):快Ｐ = SENSE_SEX_PLAYER_P(MTAR:0, MPLY:0, 1500)
SOURCE:(MPLY:0):露出 = 100
SOURCE:(MPLY:0):性行動 = 450

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

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

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

;●ターゲット側の処理
DOWNBASE:(MTAR:0):体力 += 120

EXP:(MTAR:0):性技経験値 += 1
EXP:(MTAR:0):性交経験値 += 2

SOURCE:(MTAR:0):快Ｖ = SENSE_SEX_TARGET(MPLY:0, MTAR:0, 1500)
SOURCE:(MTAR:0):露出 = 300
SOURCE:(MTAR:0):性行動 = 450

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

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

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

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

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

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

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

RETURN 1

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

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

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

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

SOURCE:(LOCAL:2):快Ｐ += SENSE_SEX_PLAYER_P(LOCAL:3, LOCAL:2, 750)
SOURCE:(LOCAL:2):露出 += 50
SOURCE:(LOCAL:2):性行動 += 150

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

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

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

DOWNBASE:(LOCAL:3):体力 += 20

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

SOURCE:(LOCAL:3):快Ｖ += SENSE_SEX_TARGET(LOCAL:2, LOCAL:3, 750)
SOURCE:(LOCAL:3):露出 += 200
SOURCE:(LOCAL:3):性行動 += 150

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

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

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

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE52(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%の膣に背面駅弁で挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP52(ARG:0)
SELECTCASE RAND:2
	CASE 0
		PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%の膣が%EQUIP_PLAYER_ANAME(ARG:0)%の%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を咥え込んでいる…
	CASE 1
		LOCAL:0 = MEQUIP_TARGET:(ARG:0):0
			;ターゲットが行動不能
		IF !IS_PLAYABLE(LOCAL:0)
			PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%はぐったりとしている%EQUIP_TARGET_ANAME(ARG:0)%を持ち上げ両脚を大きく広げて挿入したまま、さらに激しく腰を動かしている…
		ELSE
			SELECTCASE GET_COM_INITIATIVE()
					;プレイヤーに主導権
				CASE 0
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%に挿入したまま、さらに激しく腰を動かしている…
					;ターゲットに主導権
				CASE 1
					PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%は%EQUIP_PLAYER_ANAME(ARG:0)%に身を委ねながら、さらに激しく腰を動かすように要求し
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%に求められるまま、両脚を大きく広げさせ下から何度も腰を打ち付けている…
					;第三者に主導権
				CASEELSE
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%EQUIP_TARGET_ANAME(ARG:0)%に背面駅弁で挿入している%EQUIP_PLAYER_ANAME(ARG:0)%に対し、もっと激しく腰を動かすように命令し
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は言われるがまま、下から激しく何度も%EQUIP_TARGET_ANAME(ARG:0)%の膣奥を突いている…
			ENDSELECT
		ENDIF
ENDSELECT

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

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

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

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

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

IF TALENT:(MTAR:0):体格 == 体格_小柄
	LOCALS:0 = %LOCALS:0%幼いワレメ
ELSE
	LOCALS:0 = %LOCALS:0%秘裂
ENDIF
IF SEARCH_EQUIP(20, MPLY:0, MTAR:0) != -1 || SEARCH_EQUIP(20, MTAR:0, MPLY:0) != -1
	LOCALS:1 = 口づけを交わしながら
ELSE
	LOCALS:1 =
ENDIF
;ペニスバンド装着中
IF IS_EQUIP_PLAYER((MPLY:0), 50)

	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、大きく脚を開かせ、%LOCALS:1%装着した張り型を%ANAME(MTAR:0)%の%LOCALS:0%に突き入れ%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に自らを持ち上げさせ、%LOCALS:1%自身の%LOCALS:0%へと張り型を導いて挿入させた…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、背面駅弁で%ANAME(MTAR:0)%を犯すように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、大きく脚を開かせ、%LOCALS:1%装着した張り型を%ANAME(MTAR:0)%の%LOCALS:0%に突き入れた…
	ENDSELECT

;ペニスバンド不使用
ELSE
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、大きく脚を開かせ、%ANAME(MTAR:0)%の%LOCALS:0%にペニスを突き入れ%LOCALS:1%腰を動かし%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に自らを持ち上げさせ、%LOCALS:1%ペニスを自身の%LOCALS:0%へと導いて挿入させた…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、背面駅弁で%ANAME(MTAR:0)%を犯すように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、大きく脚を開かせ、%LOCALS:1%ペニスを%ANAME(MTAR:0)%の%LOCALS:0%に突き入れて腰を動かした…
	ENDSELECT
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST52
SIF IS_PIERCED(MPLY:0, ピアス_ペニス)
	PRINTFORML %ANAME(MPLY:0)%のペニスに取り付けられたピアスが、%ANAME(MTAR:0)%の膣内をごりごりと抉っていく……

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

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

@COM_AVAILABLE_WHEN52
RETURN コマンド_ウフフ

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

@COM_PREFERENCE_TARGET_52()
RETURN POWER(2, 性的嗜好_性交されたい)

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


code:
;Ａ屈曲位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME53
IF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 9, 30) && IS_INSERT_MUTUAL(MPLY:0, MTAR:0) != 1
	LOCALS:0 = 二穴Ａ背面駅弁
ELSE
	LOCALS:0 = Ａ背面駅弁
ENDIF
RESULTS:0 = %LOCALS:0%で挿入
RESULTS:1 = %LOCALS:0%で挿入させられる
RESULTS:2 = %LOCALS:0%で挿入させる
RESULTS:3 = %LOCALS:0%で挿入される
RESULTS:4 = %LOCALS:0%で挿入させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE53
;共通部分
CALL COM_ABLE_COMMON(53)
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_INSERT_SINGLE(MTAR:0, "Ｖ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 9, 30)
	RETURN 0
SIF IS_A_HOLD(MTAR:0)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 53)
	RETURN 0
RETURN 1

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

;既に挿入中なら現在の体位を取得
TFLAG:17 = 0
IF IS_INSERT_MUTUAL(MPLY:0, MTAR:0) == 2
	SELECTCASE GET_SEX_POSITION(MPLY:0, MTAR:0)
		CASE 1
			TFLAG:17 = 1
		CASE 2
			TFLAG:17 = 3
		CASE 3
			TFLAG:17 = 2
		CASE 4
			TFLAG:17 = 3
		CASE 5
			TFLAG:17 = 2
		CASE 6
			TFLAG:17 = 3
		CASE 7
			TFLAG:17 = 3
		CASE 8
			TFLAG:17 = 1
	ENDSELECT
ENDIF
IF TFLAG:17 == 0
	SELECTCASE PREVCOM
		CASE 40
			TFLAG:17 = 1
		CASE 41
			TFLAG:17 = 3
		CASE 42
			TFLAG:17 = 2
		CASE 43
			TFLAG:17 = 3
		CASE 44
			TFLAG:17 = 2
		CASE 45
			TFLAG:17 = 3
		CASE 47
			TFLAG:17 = 3
		CASE 48
			TFLAG:17 = 1
	ENDSELECT
ENDIF

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

;●プレイヤー側の処理
DOWNBASE:(MPLY:0):体力 += 160

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

SOURCE:(MPLY:0):快Ｐ = SENSE_SEX_PLAYER_P(MTAR:0, MPLY:0, 1500)
SOURCE:(MPLY:0):露出 = 100
SOURCE:(MPLY:0):性行動 = 240

IF MTAR:0 == MASTER
	CALL ADD_SOURCE_AIZYOU(MPLY:0, 100)
ELSEIF MPLY:0 != MASTER
	SOURCE:(MPLY:0):露出 += 300
ENDIF

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

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

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

;●ターゲット側の処理
DOWNBASE:(MTAR:0):体力 += 140

EXP:(MTAR:0):性技経験値 += 1
EXP:(MTAR:0):性交経験値 += 2

SOURCE:(MTAR:0):快Ａ = SENSE_SEX_TARGET(MPLY:0, MTAR:0, 1500)
SOURCE:(MTAR:0):露出 = 300
SOURCE:(MTAR:0):性行動 = 240

IF MPLY:0 == MASTER
	CALL ADD_SOURCE_AIZYOU(MTAR:0, 100)
ELSEIF MTAR:0 != MASTER
	SOURCE:(MTAR:0):露出 += 200
ENDIF

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

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

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

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

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

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

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

RETURN 1

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

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

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

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

SOURCE:(LOCAL:2):快Ｐ += SENSE_SEX_PLAYER_P(LOCAL:3, LOCAL:2, 750)
SOURCE:(LOCAL:2):露出 += 50
SOURCE:(LOCAL:2):性行動 += 80

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

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

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

DOWNBASE:(LOCAL:3):体力 += 30

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

SOURCE:(LOCAL:3):快Ａ += SENSE_SEX_TARGET(LOCAL:2, LOCAL:3, 750)
SOURCE:(LOCAL:3):露出 += 200
SOURCE:(LOCAL:3):性行動 += 80

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

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

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

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE53(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルに背面駅弁で挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP53(ARG:0)
SELECTCASE RAND:2
	CASE 0
		PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%の尻穴が%EQUIP_PLAYER_ANAME(ARG:0)%の%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を咥え込んでいる…
	CASE 1
		LOCAL:0 = MEQUIP_TARGET:(ARG:0):0
		;ターゲットが行動不能
		IF !IS_PLAYABLE(LOCAL:0)
			PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%はぐったりとしている%EQUIP_TARGET_ANAME(ARG:0)%を持ち上げ両脚を大きく広げて挿入したまま、さらに激しく腰を動かし尻穴を突いている…
		ELSE
			SELECTCASE GET_COM_INITIATIVE()
				;プレイヤーに主導権
				CASE 0
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の尻穴に挿入したまま、さらに激しく腰を動かしている…
				;ターゲットに主導権
				CASE 1
					PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%は%EQUIP_PLAYER_ANAME(ARG:0)%に身を委ねながら、さらに激しく腰を動かすように要求し
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%に求められるまま、両脚を大きく広げさせ下から何度も腰を打ち付け尻穴を突いている…
				;第三者に主導権
				CASEELSE
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%EQUIP_TARGET_ANAME(ARG:0)%に背面駅弁で挿入している%EQUIP_PLAYER_ANAME(ARG:0)%に対し、もっと激しく腰を動かすように命令し
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は言われるがまま、下から激しく何度も%EQUIP_TARGET_ANAME(ARG:0)%の尻穴を突いている…
			ENDSELECT
		ENDIF
ENDSELECT

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP53(ARG:0)
PRINTFORMW %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の尻穴から%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を引き抜いた…

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

;アナルセックス共通
CALL COM_ORDER_ASEX_P(ARG:0)
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE53
IF ABL:(MTAR:0):Ａ感 >= 3
	LOCALS:0 = 十分に開発されたアナル
ELSEIF ABL:(MTAR:0):Ａ感 >= 2
	LOCALS:0 = 開発途上のアナル
ELSE
	LOCALS:0 = キツく閉じたアナル
ENDIF

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

IF IS_EQUIP_PLAYER((MPLY:0), 50)

	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、大きく脚を開かせ、%LOCALS:1%装着した張り型を%ANAME(MTAR:0)%の%LOCALS:0%に突き入れ%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に自らを持ち上げさせ、%LOCALS:1%自身の%LOCALS:0%へと張り型を導いて挿入させた…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、背面駅弁で%ANAME(MTAR:0)%を犯すように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、大きく脚を開かせ、%LOCALS:1%装着した張り型を%ANAME(MTAR:0)%の%LOCALS:0%に突き入れた…
	ENDSELECT

;ペニスバンド不使用
ELSE
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、大きく脚を開かせ、%ANAME(MTAR:0)%の%LOCALS:0%にペニスを突き入れ腰を動かし%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に自らを持ち上げさせ、%LOCALS:1%ペニスを自身の%LOCALS:0%へと導いて挿入させた…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、背面駅弁で%ANAME(MTAR:0)%を犯すように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、大きく脚を開かせ、%LOCALS:1%ペニスを%ANAME(MTAR:0)%の%LOCALS:0%に突き入れて腰を動かした…
	ENDSELECT
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST53
SIF IS_PIERCED(MPLY:0, ピアス_ペニス)
	PRINTFORML %ANAME(MPLY:0)%のペニスに取り付けられたピアスが、%ANAME(MTAR:0)%のアヌスをごりごりと抉っていく……

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

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

@COM_AVAILABLE_WHEN53
RETURN コマンド_ウフフ

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

@COM_PREFERENCE_TARGET_53()
RETURN POWER(2, 性的嗜好_性交されたい)

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

repo_name: napo/erafl

license: unknown


code:
;性の知識を教える

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME550
RESULTS:0 = 性の知識を教える
RESULTS:1 = 性の知識を教えさせられる
RESULTS:2 = 性の知識を教えてもらう
RESULTS:3 = 性の知識を教えられる
RESULTS:4 = 性の知識を教えさせる
RESULTS:5 = 性の知識を教える

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE550
;共通部分
CALL COM_ABLE_COMMON(550)
SIF RESULT == 0
	RETURN 0
;子育て中、外来逆調教は不可
SIF !GROUPMATCH(FLAG:調教モード, 0, 1, 2, 5, 6, 調教_居住区)
	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 IS_M_HOLD(MPLY:0)
	RETURN 0
;プレイヤーの性知識がLv1以上かつターゲットの性知識がLv0でないと不可
SIF ABL:(MPLY:0):性知識 < 1 || ABL:(MTAR:0):性知識 != 0
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM550
SOURCE:(MTAR:0):歓楽 = 20

;親密に応じた歓楽のソース追加
CALL ADD_SOURCE_KANRAKU(MTAR:0, 150)

;主導権に応じたソースの追加
CALL ADD_SOURCE_INITIATIVE_N(MTAR:0, 80, 80)

EXP:(MTAR:0):性知識経験値 += 100

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

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

RETURN 1

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

CALL COM_ORDER_BASE(ARG:0)

IF TALENT:(ARG:0):反抗的
	CALL COM_ORDER_ELEMENT(ARG:0, "反抗的", -5)
ENDIF
IF TALENT:(ARG:0):プライド高い
	CALL COM_ORDER_ELEMENT(ARG:0, "プライド高い", -5)
ENDIF
IF TALENT:(ARG:0):自制心
	CALL COM_ORDER_ELEMENT(ARG:0, "自制心", -4)
ENDIF
IF TALENT:(ARG:0):無関心
	CALL COM_ORDER_ELEMENT(ARG:0, "無関心", -4)
ENDIF
IF TALENT:(ARG:0):好奇心
	CALL COM_ORDER_ELEMENT(ARG:0, "好奇心", 7)
ENDIF
IF TALENT:(ARG:0):保守的
	CALL COM_ORDER_ELEMENT(ARG:0, "保守的", -5)
ENDIF
IF TALENT:(ARG:0):孤高
	CALL COM_ORDER_ELEMENT(ARG:0, "孤高", -(10 * KOKOU_RATE(MTAR:0) / 100))
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -10)
ENDIF
IF TALENT:(ARG:0):恥薄い
	CALL COM_ORDER_ELEMENT(ARG:0, "恥薄い", 8)
ENDIF
IF TALENT:(ARG:0):快感に素直
	CALL COM_ORDER_ELEMENT(ARG:0, "快感に素直", 8)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -20)
ENDIF
IF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_淫乱)
	CALL COM_ORDER_ELEMENT(ARG:0, "淫乱", 10)
ENDIF

IF IS_SAMESEX(MPLY:0, ARG:0)
	CALL COM_ORDER_ELEMENT(ARG:0, "同性", 35)
ENDIF

IF TALENT:(ARG:0):親愛
	CALL COM_ORDER_ELEMENT(ARG:0, "親愛", 25)
ELSEIF TALENT:(ARG:0):恋慕
	CALL COM_ORDER_ELEMENT(ARG:0, "恋慕", 10)
ENDIF

IF TALENT:(ARG:0):恋人
	CALL COM_ORDER_ELEMENT(ARG:0, "恋人", 20)
ELSEIF TALENT:(ARG:0):親友
	CALL COM_ORDER_ELEMENT(ARG:0, "親友", 20)
ENDIF

IF TALENT:(ARG:0):隷属
	CALL COM_ORDER_ELEMENT(ARG:0, "隷属", 25)
ELSEIF TALENT:(ARG:0):服従
	CALL COM_ORDER_ELEMENT(ARG:0, "服従", 10)
ENDIF

IF TALENT:(ARG:0):烙印
	CALL COM_ORDER_ELEMENT(ARG:0, "烙印", 20)
ENDIF

IF TALENT:(ARG:0):所有者
	CALL COM_ORDER_ELEMENT(ARG:0, "所有者", 25)
ELSEIF TALENT:(ARG:0):主人
	CALL COM_ORDER_ELEMENT(ARG:0, "主人", 10)
ENDIF

CALL COM_ORDER_ELEMENT(ARG:0, "合意", 15)

IF TALENT:(ARG:0):プライド高い
	LOCAL:0 = 4
ELSEIF TALENT:(ARG:0):プライド低い
	LOCAL:0 = 1
ELSE
	LOCAL:0 = 2
ENDIF
IF MARK:(ARG:0):既成事実 >= 1
	CALL COM_ORDER_ELEMENT(ARG:0, @"既成事実Lv{MARK:(ARG:0):既成事実}", MARK:(ARG:0):既成事実 * 3 * LOCAL:0)
ENDIF

IF TALENT:MASTER:魅惑
	CALL COM_ORDER_ELEMENT(ARG:0, "主人公の魅惑", 6)
ENDIF
IF TALENT:MASTER:謎の魅力
	CALL COM_ORDER_ELEMENT(ARG:0, "主人公の謎の魅力", 6)
ENDIF

IF PALAM:(ARG:0):酔い >= 150
	CALL COM_ORDER_ELEMENT(ARG:0, "酔い", PALAM:(ARG:0):酔い / 150)
ENDIF

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE550
;プレイヤーが主人公側
IF MPLY:0 == MASTER
	;主導権が主人公側
	IF IS_INITIATIVE(MASTER)
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に性の知識を説いた
		PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の話す内容を興味深そうに聴いている…
		;主導権が相手側
	ELSE
		PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に大人の知識を教えてくれるようにせがんだ
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に聞かれるままに性の知識を教えた…
	ENDIF
	PRINTL
	PRINTFORMW %ANAME(MTAR:0)%は正しい性の知識を身につけたようだ

	;プレイヤーが相手側
ELSE
	;主導権が主人公側
	IF IS_INITIATIVE(MASTER)
		PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に大人の知識を教えてくれるようにせがんだ
		IF TALENT:(MPLY:0):小悪魔 || TALENT:(MPLY:0):恥薄い
			PRINTFORMW %ANAME(MTAR:0)%は得意気に微笑むと、%ANAME(MTAR:0)%にたっぷりと性の知識を教え込んだ…
		ELSEIF TALENT:(MPLY:0):恥じらい
			PRINTFORMW %ANAME(MTAR:0)%は顔を真っ赤にしながらも、%ANAME(MTAR:0)%に性の知識を語り始めた…
		ELSE
			PRINTFORMW %ANAME(MTAR:0)%は困ったような表情を浮かべながらも、%ANAME(MTAR:0)%に性の知識を説いた…
		ENDIF
		;主導権が相手側
	ELSE
		IF FLAG:ウフフフラグ
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に実践も交えてじっくりと性の知識を教えた…
		ELSE
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に性の知識を教え込んだ
		ENDIF
	ENDIF
	PRINTL
	PRINTFORMW %ANAME(MTAR:0)%は正しい性の知識を身につけた
ENDIF

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

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

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


code:
;浮気禁止／浮気許可

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME554
RESULTS:0 = 記憶を断ち切らせる

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE554
;共通部分
CALL COM_ABLE_COMMON(554)
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 MPLY:0 != MASTER
	RETURN 0
;調教モードが会いに行くか通常の閨のとき限定
SIF !GROUPMATCH(FLAG:調教モード, 0, 1)
	RETURN 0
;プレイヤーの口が塞がっているなら不可
SIF IS_M_HOLD(MPLY:0)
	RETURN 0
;特殊勢力に堕ちていること
SIF !IS_FALLEN_TO_SP_COUNTRY(MTAR:0)
	RETURN 0
;所属が特殊勢力でない
SIF IS_SP_COUNTRY(CFLAG:(MTAR:0):所属)
	RETURN 0
;所属が特殊勢力でない
SIF IS_SP_COUNTRY(CFLAG:(MPLY:0):所属)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM554
;●実行値の計算
CVARSET TCVAR, 24, -10000
CVARSET TCVAR, 25, 10000

TCVAR:(MTAR:0):実行値 = 150

CALL COM_ORDER(MTAR:0)

CALL COM_ORDER_ELEMENT(MTAR:0, "依存度", CFLAG:(MTAR:0):依存度 / 30)

IF TALENT:(MTAR:0):服従
	CALL COM_ORDER_ELEMENT(MTAR:0, "服従", 30)
ENDIF

IF TALENT:(MTAR:0):隷属
	CALL COM_ORDER_ELEMENT(MTAR:0, "隷属", 40)
ENDIF

LOCAL = LIMIT(REL_LIKE:(MTAR:0):(MPLY:0) / 75 - REL_HATE:(MTAR:0):(MPLY:0) / 50,  -20, 20)

IF LOCAL != 0
	CALL COM_ORDER_ELEMENT(MTAR:0, "友好度/嫌悪度", LOCAL)
ENDIF

LOCAL:1 = 0
FOR LOCAL, 0, MAX_SP_COUNTRY
	SIF GETBIT(TALENT:(MTAR:0):特殊勢力陥落系, LOCAL)
		LOCAL:1 ++
NEXT

IF LOCAL:1 != 0
	CALL COM_ORDER_ELEMENT(MTAR:0, "特殊勢力への陥落", LOCAL:1 * -10)
ENDIF

;判定結果を表示
PRINTFORMW  = {TCVAR:(MTAR:0):判定値} %TOSTR_COMPARE(TCVAR:(MTAR:0):判定値, TCVAR:(MTAR:0):実行値)% 実行値{TCVAR:(MTAR:0):実行値}

IF TCVAR:(MTAR:0):判定値 >= TCVAR:(MTAR:0):実行値
	PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に、かつての調教の記憶を忘れ目を覚ますよう伝えた
	PRINTFORMW %ANAME(MTAR:0)%は困惑している様子だが、%ANAME(MPLY:0)%がそう言うなら……と納得したようだ
	PRINTFORML
	CALL COLOR_PRINTW(@"%ANAME(MTAR:0)%はかつて調教されていた記憶を断ち切った", カラー_注意)
	TALENT:(MTAR:0):特殊勢力陥落系 = 0
ELSE
	PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に、かつての調教の記憶を忘れ目を覚ますよう伝えた
	PRINTFORMW だが、%ANAME(MTAR:0)%は彼らのことを忘れるつもりはないようだ……
ENDIF

RETURN 1

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

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

@COM_AVAILABLE_WHEN554
RETURN コマンド_共通


code:
;拉致

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME555
RESULTS:0 = 拉致

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE555
;共通部分
CALL COM_ABLE_COMMON(555)
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 MPLY:0 != MASTER
	RETURN 0
;自国の仕官は不可
SIF CFLAG:(MTAR:0):所属 == CFLAG:(MPLY:0):所属
	RETURN 0
;夜這い中限定
SIF !FLAG:夜這い
	RETURN 0
;プレイヤーの口が塞がっているなら不可
SIF IS_M_HOLD(MPLY:0)
	RETURN 0
;放浪中なら駄目
SIF !CFLAG:MASTER:所属
	RETURN 0
;相手が君主なら不可
FOR LOCAL:0, 0, MAX_COUNTRY
	SIF COUNTRY_BOSS:(LOCAL:0) == GET_ID(MTAR:0)
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM555
;●実行値の計算
CVARSET TCVAR, 24, -10000
CVARSET TCVAR, 25, 10000

TCVAR:(MTAR:0):実行値 = 120

CALL COM_ORDER_BASE(MTAR:0)

SIF TCVAR:(MTAR:0):行動不能フラグ
	CALL COM_ORDER_ELEMENT(MTAR:0, "疲労", 10)
SIF TCVAR:(MTAR:0):失神フラグ
	CALL COM_ORDER_ELEMENT(MTAR:0, "失神", 10)

IF TALENT:(MTAR:0):反抗的
	CALL COM_ORDER_ELEMENT(MTAR:0, "反抗的", -5)
ENDIF
IF TALENT:(MTAR:0):気丈
	CALL COM_ORDER_ELEMENT(MTAR:0, "気丈", -5)
ENDIF
IF TALENT:(MTAR:0):素直
	CALL COM_ORDER_ELEMENT(MTAR:0, "素直", 5)
ENDIF
IF TALENT:(MTAR:0):プライド高い
	CALL COM_ORDER_ELEMENT(MTAR:0, "プライド高い", -15)
ENDIF
IF TALENT:(MTAR:0):プライド低い
	CALL COM_ORDER_ELEMENT(MTAR:0, "プライド低い", 5)
ENDIF
IF TALENT:(MTAR:0):好奇心
	CALL COM_ORDER_ELEMENT(MTAR:0, "好奇心", 5)
ENDIF
IF TALENT:(MTAR:0):保守的
	CALL COM_ORDER_ELEMENT(MTAR:0, "保守的", -8)
ENDIF
IF TALENT:(MTAR:0):孤高
	CALL COM_ORDER_ELEMENT(MTAR:0, "孤高", -(20 * KOKOU_RATE(MTAR:0) / 100))
ENDIF
IF TALENT:(MTAR:0):一線越えない
	CALL COM_ORDER_ELEMENT(MTAR:0, "一線越えない", -15)
ENDIF
IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_淫乱) && FLAG:ウフフフラグ
	CALL COM_ORDER_ELEMENT(MTAR:0, "淫乱", 5)
ENDIF

IF TALENT:(MTAR:0):親愛
	CALL COM_ORDER_ELEMENT(MTAR:0, "親愛", 50)
ELSEIF TALENT:(MTAR:0):恋慕
	CALL COM_ORDER_ELEMENT(MTAR:0, "恋慕", 20)
ELSEIF TALENT:(MTAR:0):親友
	CALL COM_ORDER_ELEMENT(MTAR:0, "親友", 20)
ENDIF

IF TALENT:(MTAR:0):恋人
	CALL COM_ORDER_ELEMENT(MTAR:0, "恋人", 10)
ENDIF

IF TALENT:(MTAR:0):隷属
	CALL COM_ORDER_ELEMENT(MTAR:0, "隷属", 60)
ELSEIF TALENT:(MTAR:0):服従
	CALL COM_ORDER_ELEMENT(MTAR:0, "服従", 30)
ENDIF

IF TALENT:(MTAR:0):烙印
	CALL COM_ORDER_ELEMENT(MTAR:0, "烙印", 10)
ENDIF

IF TALENT:(MTAR:0):所有者
	CALL COM_ORDER_ELEMENT(MTAR:0, "所有者", 25)
ELSEIF TALENT:(MTAR:0):主人
	CALL COM_ORDER_ELEMENT(MTAR:0, "主人", 10)
ENDIF

SELECTCASE CONFIG:314
	CASE 2
		CALL COM_ORDER_ELEMENT(MTAR:0, "難易度補正", -10)
	CASE 3
		CALL COM_ORDER_ELEMENT(MTAR:0, "難易度補正", -20)
	CASE 4
		CALL COM_ORDER_ELEMENT(MTAR:0, "難易度補正", -50)
ENDSELECT

LOCAL:0 = GET_PALAMLV(PALAM:(MTAR:0):欲情)
IF LOCAL:0 >= 1
	CALL COM_ORDER_ELEMENT(MTAR:0, @"欲情Lv{LOCAL:0}", MIN(LOCAL:0 * 2, 30))
ENDIF

IF TALENT:(MTAR:0):プライド高い
	LOCAL:0 = 4
ELSEIF TALENT:(MTAR:0):プライド低い
	LOCAL:0 = 1
ELSE
	LOCAL:0 = 2
ENDIF

IF MARK:(MTAR:0):既成事実 >= 1
	CALL COM_ORDER_ELEMENT(MTAR:0, @"既成事実Lv{MARK:(MTAR:0):既成事実}", MARK:(MTAR:0):既成事実 * 3 * LOCAL:0)
ENDIF

IF FLAG:調教モード == 6
	CALL COM_ORDER_ELEMENT(MTAR:0, "捕虜会話", -180)
ELSEIF CFLAG:(MTAR:0):所属 != 0
	;CALL COM_ORDER_ELEMENT(MTAR:0, "仕えている君主がいる", -45)
	;今の君主への好印象-悪印象を10で割ったもの
	LOCAL:0 = (REL_LIKE:(MTAR:0):(GET_COUNTRY_BOSS(CFLAG:(MTAR:0):所属)) - REL_HATE:(MTAR:0):(GET_COUNTRY_BOSS(CFLAG:(MTAR:0):所属))) / 10
	IF LOCAL:0 >= 0
		CALL COM_ORDER_ELEMENT(MTAR:0, @"今の君主の%ANAME(GET_COUNTRY_BOSS(CFLAG:(MTAR:0):所属))%に好印象", -(LOCAL:0))
	ELSEIF LOCAL:0 <= 0
		CALL COM_ORDER_ELEMENT(MTAR:0, @"今の君主の%ANAME(GET_COUNTRY_BOSS(CFLAG:(MTAR:0):所属))%に悪印象", -(LOCAL:0))
	ENDIF
ENDIF

;誘われた勢力の君主への好印象-悪印象を10で割ったもの
LOCAL:0 = (REL_LIKE:(MTAR:0):(GET_COUNTRY_BOSS(CFLAG:MASTER:所属)) - REL_HATE:(MTAR:0):(GET_COUNTRY_BOSS(CFLAG:MASTER:所属))) / 10

SIF LOCAL <= 0 && (IS_SLAVE(MTAR:0) || IS_LOVER(MTAR:0) || IS_SLAVED_BY(MTAR:0))
	LOCAL /= 2
IF !CFLAG:(MTAR:0):所属
	IF LOCAL:0 > 0
		LOCAL /= 2
	ELSE
		LOCAL *= 2
	ENDIF
ENDIF

IF LOCAL:0 >= 0
	CALL COM_ORDER_ELEMENT(MTAR:0, @"君主の%ANAME(GET_COUNTRY_BOSS(CFLAG:MASTER:所属))%に好印象", LOCAL:0)
ELSEIF LOCAL:0 <= 0
	CALL COM_ORDER_ELEMENT(MTAR:0, @"君主の%ANAME(GET_COUNTRY_BOSS(CFLAG:MASTER:所属))%に悪印象", LOCAL:0)
ENDIF

;IF CFLAG:(MTAR:0):好感度 < 300
;	CALL COM_ORDER_ELEMENT(MTAR:0, "好感度不足", -20)
;ELSEIF CFLAG:(MTAR:0):好感度 < 500
;	CALL COM_ORDER_ELEMENT(MTAR:0, "好感度不足", -10)
;ELSEIF CFLAG:(MTAR:0):好感度 < 800
;	CALL COM_ORDER_ELEMENT(MTAR:0, "好感度不足", -5)
;ENDIF

;判定結果を表示
PRINTFORMW  = {TCVAR:(MTAR:0):判定値} %TOSTR_COMPARE(TCVAR:(MTAR:0):判定値, TCVAR:(MTAR:0):実行値)% 実行値{TCVAR:(MTAR:0):実行値}

;判定成功
IF TCVAR:(MTAR:0):判定値 >= TCVAR:(MTAR:0):実行値
	CALL CHANGE_RELATION_C_TO_C(CFLAG:MASTER:所属, CFLAG:(MTAR:0):所属, -300, 300)
	DIPLOMACY_HATE:(CFLAG:MASTER:所属) += 3
	PRINTL
	IF !IS_SLAVE(MTAR:0)
		PRINTFORML %ANAME(MASTER)%はもがく%ANAME(MTAR:0)%を袋に詰め込んで拉致した……
		PRINTFORMW ……%ANAME(MTAR:0)%が我が国の捕虜になりました
		;所属国家の変更
		CALL CAPTURE(MTAR:0, CFLAG:MASTER:所属)
	ELSE
		PRINTFORML %ANAME(MASTER)%は%ANAME(MTAR:0)%に、自分につくよう命令した
		PRINTFORMW ……%ANAME(MTAR:0)%は命令を受け入れました
		CALL CHANGE_COUNTRY(MTAR:0, CFLAG:MASTER:所属, 1)
	ENDIF
	;強制終了フラグを立てる
	TFLAG:調教強制終了フラグ = 1
;判定失敗
ELSE
	PRINTFORML %ANAME(MASTER)%は%ANAME(MTAR:0)%を袋に詰め込んで拉致しようとした……
	PRINTFORMW ……抵抗されてしまった
	IF CFLAG:(MTAR:0):捕虜先 == CFLAG:MASTER:所属
		SOURCE:(MTAR:0):反感 = 300
	ELSE
		SOURCE:(MTAR:0):反感 = 3000
	ENDIF
ENDIF

RETURN 1

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

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

@COM_AVAILABLE_WHEN555
RETURN コマンド_共通


code:
;拉致

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME556
IF MTAR_NUM > 0 && TCVAR:(MTAR:0):催眠中 == 0
	RESULTS:0 = 催眠術をかける
	RESULTS:1 = 催眠術をかける
	RESULTS:2 = 催眠術をかける
	RESULTS:3 = 催眠術をかける
	RESULTS:4 = 催眠術をかける
	RESULTS:5 = 催眠術をかける
ELSE
	RESULTS:0 = 催眠術を解除
	RESULTS:1 = 催眠術を解除
	RESULTS:2 = 催眠術を解除
	RESULTS:3 = 催眠術を解除
	RESULTS:4 = 催眠術を解除
	RESULTS:5 = 催眠術を解除
ENDIF

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE556
;共通部分
CALL COM_ABLE_COMMON(556)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;主人公がプレイヤーのとき限定
SIF MPLY:0 != MASTER
	RETURN 0
;ターゲットが一人は必要
SIF MTAR_NUM <= 0
	RETURN 0
SIF FLAG:主導権所有者 != MASTER && FLAG:主導権所有者 != -1
	RETURN 0
LOCAL:1 = 0

FOR LOCAL, 0, MTAR_NUM
	;解除済みだと駄目
	SIF TCVAR:(MTAR:LOCAL):催眠中 == -1
		RETURN 0
	;解除する場合、まだかけていないやつがいると駄目
	SIF TCVAR:(MTAR:LOCAL):催眠中 > 0
		LOCAL:1 = 1
	SIF LOCAL:1 && TCVAR:(MTAR:LOCAL):催眠中 == 0
		RETURN 0
NEXT

SIF !ITEM:催眠術
	RETURN 0
;プレイヤーの口が塞がっているなら不可
SIF IS_BIND(MPLY:0)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM556
;●実行値の計算
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;●プレイヤー側の処理

;ターゲット側の処理
FOR LOCAL, 0, MTAR_NUM
	IF TCVAR:(MTAR:LOCAL):催眠中 == 0
		TCVAR:(MTAR:LOCAL):催眠実行者 = MPLY:0
		TCVAR:(MTAR:LOCAL):催眠中 = 1
	ELSE
		TCVAR:(MTAR:LOCAL):催眠中 = -1
	ENDIF
NEXT

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

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

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE556
IF MTAR_NUM > 1
	LOCALS:0 = たち
ELSE
	LOCALS:0 =
ENDIF
IF TCVAR:(MTAR:0):催眠中 > 0
	PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%%LOCALS:0%に催眠術をかけ%TARGET_STR("た", "てきた")%…
ELSE
	PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%%LOCALS:0%の催眠術を解除し%TARGET_STR("た", "てきた")%…
ENDIF

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

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

@COM_AVAILABLE_WHEN556
RETURN コマンド_共通


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 射精部位_アナル


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 = サンドイッチ泡踊り
ELSE
	LOCALS:0 = 泡踊り
ENDIF

IF FLAG:ハウジングモード
	CALL HO_CHECK_USE_MODULE_USAGE(MASTER, "入浴")
	IF RESULT
		IF MPLY_NUM >= 2
			LOCALS:0 = Ｗソーププレイ
		ELSE
			LOCALS:0 = ソーププレイ
		ENDIF
	ENDIF
ENDIF
RESULTS:0 = %LOCALS:0%する
RESULTS:1 = %LOCALS:0%させられる
RESULTS:2 = %LOCALS:0%させる
RESULTS:3 = %LOCALS:0%される
RESULTS:4 = %LOCALS:0%させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_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 = %LOCALS:0%で責める
RESULTS:1 = %LOCALS:0%で奉仕する
RESULTS:2 = %LOCALS:0%で奉仕させる
RESULTS:3 = %LOCALS:0%で責められる
RESULTS:4 = %LOCALS:0%で責めさせる
RESULTS:5 = %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 = %LOCALS:0%で責める
RESULTS:1 = %LOCALS:0%で奉仕する
RESULTS:2 = %LOCALS:0%で奉仕させる
RESULTS:3 = %LOCALS:0%で責められる
RESULTS:4 = %LOCALS:0%で責めさせる
RESULTS:5 = %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, 性的嗜好_道具を使われたい)