code:
;Ａ騎乗位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME44
IF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 3, 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_ABLE44
;共通部分
CALL COM_ABLE_COMMON(44)
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
;fucked vaginally in any position except sitting
SIF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 3, 30)
	RETURN 0
SIF IS_A_HOLD(MTAR:0)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 44)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM44
;実行判定
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 = 1
		CASE 3
			TFLAG:17 = 2
		CASE 4
			TFLAG:17 = 2
		CASE 5
			TFLAG:17 = 3
		CASE 6
			TFLAG:17 = 4
		CASE 7
			TFLAG:17 = 1
		CASE 8
			TFLAG:17 = 1
	ENDSELECT
ENDIF
IF TFLAG:17 == 0
	SELECTCASE PREVCOM
		CASE 40
			TFLAG:17 = 1
		CASE 41
			TFLAG:17 = 1
		CASE 42
			TFLAG:17 = 2
		CASE 43
			TFLAG:17 = 2
		CASE 44
			TFLAG:17 = 3
		CASE 45
			TFLAG:17 = 4
		CASE 47
			TFLAG:17 = 1
		CASE 48
			TFLAG:17 = 1
	ENDSELECT
ENDIF

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

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

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

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

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

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

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

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

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

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

SOURCE:(MTAR:0):快Ａ = SENSE_SEX_PLAYER(MTAR:0, MPLY:0, 1500)
SOURCE:(MTAR:0):性行動 = 240

IF MPLY:0 == MASTER
	CALL ADD_SOURCE_AIZYOU(MTAR:0, 80)
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, 200, 150)

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

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

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP44(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_TARGET_P(LOCAL:3, LOCAL:2, 750)
SOURCE:(LOCAL:2):露出 += 200
SOURCE:(LOCAL:2):性行動 += 80

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

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

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

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

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

SOURCE:(LOCAL:3):快Ａ += SENSE_SEX_PLAYER(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):倒錯度変化基準値 += 4

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE44(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルに騎乗位で挿入中

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

LOCAL:0 = MEQUIP_TARGET:(ARG:0):0
SELECTCASE RAND:2
	CASE 0
			;ターゲットが行動不能
		IF !IS_PLAYABLE(LOCAL:0)
			PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が下から%EQUIP_TARGET_ANAME(ARG:0)%の%LOCALS:0%を突き上げている…
		ELSE
			PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%が%EQUIP_PLAYER_ANAME(ARG:0)%の上に跨がり、尻穴で%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を咥えこんでいる…
		ENDIF
	CASE 1
			;ターゲットが行動不能
		IF !IS_PLAYABLE(LOCAL:0)
			PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は気絶した%EQUIP_TARGET_ANAME(ARG:0)%の%LOCALS:0%を激しく突き上げている…
		ELSE
			SELECTCASE GET_COM_INITIATIVE()
					;プレイヤーに主導権
				CASE 0
					SELECTCASE RAND:2
						CASE 0
							PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は騎乗位の体勢で%LOCALS:0%にソレを咥え込んだたままの%EQUIP_TARGET_ANAME(ARG:0)%に腰を振らせている…
						CASE 1
							PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の腰を掴んだまま腰を突き上げ、%EQUIP_TARGET_ANAME(ARG:0)%の%LOCALS:0%を責め立てている…
					ENDSELECT
					;ターゲットに主導権
				CASE 1
					PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%は%EQUIP_PLAYER_ANAME(ARG:0)%のソレを%LOCALS:0%で締め付けながら、さらに腰を動かして責め立てている…
					;第三者に主導権
				CASEELSE
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%EQUIP_PLAYER_ANAME(ARG:0)%に騎乗位で跨る%EQUIP_TARGET_ANAME(ARG:0)%に対して、もっと激しく腰を振るように命令し
					PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%は%EQUIP_PLAYER_ANAME(ARG:0)%のソレを%LOCALS:0%で締め付けながら、命じられるままにひたすら腰を振っている…
			ENDSELECT
		ENDIF
ENDSELECT

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP44(ARG:0)
LOCAL:0 = MEQUIP_TARGET:(ARG:0):0
IF IS_BIND(LOCAL:0) || !IS_PLAYABLE(LOCAL:0)
	PRINTFORMW %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の体を持ち上げて尻穴から%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を引き抜いた…
ELSE
	PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%は腰を上げて%EQUIP_PLAYER_ANAME(ARG:0)%の%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を尻穴から引き抜いた…
ENDIF

;-------------------------------------------------
;固有の実行判定(ターゲット側)
;-------------------------------------------------
@COM_ORDER_TARGET44(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 120

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE44
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 TALENT:(MTAR:0):美尻
	LOCALS:2 = 尻肉を割り開き、
ELSEIF GET_HIPSIZE(MTAR:0) >= 1
	LOCALS:2 = 尻肉をかきわけ、
ELSE
	LOCALS:2 =
ENDIF

;ペニスバンド装着中
IF IS_EQUIP_PLAYER((MPLY:0), 50)
	;ターゲットが行動不能
	IF !IS_PLAYABLE(MTAR:0)
		;第三者に主導権
		IF !GROUPMATCH(GET_COM_INITIATIVE(), 0, 1)
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%ANAME(MTAR:0)%の尻穴を下から突き上げて犯すように命令した
		ENDIF
		PRINTFORML %ANAME(MPLY:0)%はぐったりとした%ANAME(MTAR:0)%の体を腰の上に乗せ、%LOCALS:1%下から張り型で%ANAME(MTAR:0)%の%LOCALS:0%を突き上げた…

	;既に挿入済みの場合
	ELSEIF TFLAG:17
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				;前回が正常位・後背位・対面座位・背面座位
				IF GROUPMATCH(TFLAG:17, 1, 2)
					PRINTFORML %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を上に跨がらせ、騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振らせた…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の腰を掴むと、%LOCALS:1%さらに腰を突き上げて%ANAME(MTAR:0)%の尻穴を犯し%TARGET_STR("た", "てきた")%…
				;前回が背面騎乗位
				ELSE
					PRINTFORML %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を正面に向かせ、騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振らせた…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が正常位・後背位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(MTAR:0)%は挿入したまま体を入れ替え、騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を動かし始めた…
				;前回が対面座位・背面座位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%を押し倒すと、%LOCALS:2%騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を動かし始めた…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(MTAR:0)%は尻穴で%ANAME(MPLY:0)%の張り型を締め付けながら、%LOCALS:1%さらに腰を動かして快楽を貪っている…
				;前回が背面騎乗位
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は挿入したまま正面に向き直ると、%LOCALS:2%今度は騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を動かし始めた…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が正常位・後背位・対面座位・背面座位
				IF GROUPMATCH(TFLAG:17, 1, 2)
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に対し、%ANAME(MPLY:0)%の上になって騎乗位で腰を振るように命令した
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%を押し倒すと、%LOCALS:1%%ANAME(MPLY:0)%の上に跨って自ら%STR_BODY("尻：長", MTAR:0)%を振った…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に騎乗位で跨る%ANAME(MTAR:0)%に対して、もっと激しく腰を振るように命令した
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の張り型を締め付けながら、%LOCALS:1%命じられるままにひたすら%STR_BODY("尻：長", MTAR:0)%を振った…
				;前回が背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に背を向けて腰を振る%ANAME(MTAR:0)%に対し、正面を向いて騎乗位の体勢になるように命令した
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま体を回して%ANAME(MPLY:0)%の正面に向き直り、%LOCALS:1%尻穴を締めながら再び腰を動かし始めた…
				ENDIF
		ENDSELECT

	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に、騎乗位で尻穴に挿入し腰を振るように要求した
				PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%の腰に跨り、%LOCALS:1%反り立つ張り型を自身の%LOCALS:0%へと挿入した…
			;ターゲットに主導権
			CASE 1
				IF MTAR:0 != MASTER && (GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_淫乱) || TALENT:(MTAR:0):Ｓ気質)
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%を押し倒すと、%LOCALS:1%反り立つ張り型を自身の%LOCALS:0%で咥え込ん%PLAYER_STR("だ", "できた")%…
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の上に跨ると、%LOCALS:1%反り立つ張り型を自身の%LOCALS:0%で咥え込ん%PLAYER_STR("だ", "できた")%…
				ENDIF
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%を%ANAME(MPLY:0)%の腰に跨がらせ、張り型を尻穴で咥え込むように命令した
				PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%の腰に跨り、%LOCALS:1%反り立つ張り型を自身の%LOCALS:0%へと挿入した…
		ENDSELECT

		IF ABL:(MTAR:0):性技 >= 3 && MTAR:0 != MASTER
			PRINTFORM %ANAME(MTAR:0)%は
			IF TALENT:(MTAR:0):体格 == 体格_小柄 || TALENT:(MTAR:0):体格 == 体格_子供
				PRINT 小さな身体で懸命に
			ELSEIF GET_BUSTSIZE(MTAR:0) > 0
				PRINTFORM その%STR_BODY("胸：長", MTAR:0)%を揺らしながら
			ELSE
				PRINT 自ら
			ENDIF
			PRINTL 腰を動かして快楽を貪っている…
		ENDIF
	ENDIF

;ペニスバンド不使用
ELSE
	;ターゲットが行動不能
	IF !IS_PLAYABLE(MTAR:0)
		;第三者に主導権
		IF !GROUPMATCH(GET_COM_INITIATIVE(), 0, 1)
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%ANAME(MTAR:0)%の尻穴を下から突き上げて犯すように命令した
		ENDIF
		PRINTFORML %ANAME(MPLY:0)%はぐったりとした%ANAME(MTAR:0)%の体を腰の上に乗せ、%LOCALS:1%下から%ANAME(MTAR:0)%の%LOCALS:0%を突き上げた…

	;既に挿入済みの場合
	ELSEIF TFLAG:17
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				;前回が正常位・後背位・対面座位・背面座位
				IF GROUPMATCH(TFLAG:17, 1, 2)
					PRINTFORML %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を上に跨がらせ、%LOCALS:2%騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振らせた…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の腰を掴むと、%LOCALS:1%さらに腰を突き上げて%ANAME(MTAR:0)%の尻穴を犯し%TARGET_STR("た", "てきた")%…
				;前回が背面騎乗位
				ELSE
					PRINTFORML %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を正面に向かせ、%LOCALS:2%騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振らせた…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が正常位・後背位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(MTAR:0)%は挿入したまま体を入れ替え、%LOCALS:2%騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を動かし始めた…
				;前回が対面座位・背面座位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%を押し倒すと、%LOCALS:2%騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を動かし始めた…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(MTAR:0)%は尻穴で%ANAME(MPLY:0)%のペニスを締め付けながら、%LOCALS:1%さらに腰を動かして責め立て%PLAYER_STR("た", "てきた")%…
				;前回が背面騎乗位
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は挿入したまま正面に向き直ると、%LOCALS:2%今度は騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を動かし始めた…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が正常位・後背位・対面座位・背面座位
				IF GROUPMATCH(TFLAG:17, 1, 2)
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に対し、%ANAME(MPLY:0)%の上になって騎乗位で腰を振るように命令した
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%を押し倒すと、%LOCALS:2%%ANAME(MPLY:0)%の上に跨って自ら%STR_BODY("尻：長", MTAR:0)%を振った…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に騎乗位で跨る%ANAME(MTAR:0)%に対して、もっと激しく腰を振るように命令した
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%のペニスを締め付けながら、%LOCALS:2%命じられるままにひたすら%STR_BODY("尻：長", MTAR:0)%を振った…
				;前回が背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に背を向けて腰を振る%ANAME(MTAR:0)%に対し、正面を向いて騎乗位の体勢になるように命令した
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま体を回して%ANAME(MPLY:0)%の正面に向き直り、%LOCALS:1%尻穴を締めながら再び腰を動かし始めた…
				ENDIF
		ENDSELECT

	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に、騎乗位で尻穴に挿入し腰を振るように要求した
				PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%の腰に跨り、%LOCALS:1%反り立つペニスを自身の%LOCALS:0%へと挿入した…
			;ターゲットに主導権
			CASE 1
				IF MTAR:0 != MASTER && (GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_淫乱) || TALENT:(MTAR:0):Ｓ気質)
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%を押し倒すと、%LOCALS:1%反り立つペニスを自身の%LOCALS:0%で咥え込ん%PLAYER_STR("だ", "できた")%…
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の上に跨ると、%LOCALS:1%反り立つペニスを自身の%LOCALS:0%で咥え込ん%PLAYER_STR("だ", "できた")%…
				ENDIF
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%を%ANAME(MPLY:0)%の腰に跨がらせ、ペニスを尻穴で咥え込むように命令した
				PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%の腰に跨り、%LOCALS:1%反り立つペニスを自身の%LOCALS:0%へと挿入した…
		ENDSELECT

		IF ABL:(MTAR:0):性技 >= 3 && MTAR:0 != MASTER
			PRINTFORM %ANAME(MTAR:0)%は
			IF TALENT:(MTAR:0):体格 == 体格_小柄 || TALENT:(MTAR:0):体格 == 体格_子供
				PRINT 小さな身体で懸命に
			ELSEIF GET_BUSTSIZE(MTAR:0) > 0
				PRINTFORM その%STR_BODY("胸：長", MTAR:0)%を揺らしながら
			ELSE
				PRINT 自ら
			ENDIF
			PRINT 尻を振って
			SELECTCASE GET_COM_INITIATIVE()
				;主導権がプレイヤー側
				CASE 0
					PRINTFORML %ANAME(MPLY:0)%に奉仕している…
				;主導権がターゲット側
				CASE 1
					PRINTFORML %ANAME(MPLY:0)%を責め立てている…
				;その他
				CASEELSE
					PRINTL いる…
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
SIF GET_HIPSIZE(MTAR:0) >= 1
	PRINTFORML %ANAME(MTAR:0)%の豊かな尻肉は、抽送のたびにふるふると震えている……
WAIT

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

IF MPLY:0 != MASTER
ENDIF

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

	IF TCVAR:(MTAR:0):失神フラグ
		;気絶中
		PRINTFORML %ANAME(MTAR:0)%は尻穴を突き上げられるたびにガクガクと体を震わせ、口端からだらしなく涎を垂らしている
	ELSEIF LOCAL:2 < 300
		PRINTFORML %ANAME(MTAR:0)%は必死に腰を動かすが、まだ快楽を得るには遠いようで、少し苦しそうだ
	ELSEIF LOCAL:2 < 1000
		PRINTFORML %ANAME(MTAR:0)%は苦しそうにしながらもその表情には快楽の兆しが見える
	ELSEIF LOCAL:2 < 3000
		PRINTFORML %ANAME(MTAR:0)%は腰を振りながらこらえきれない快楽に可愛らしい声を漏らしている
	ELSEIF LOCAL:2 < 6000
		PRINTFORML %ANAME(MTAR:0)%は大分慣れてきたのか、快楽に突き上げられながら自ら進んで腰を振っている
	ELSEIF LOCAL:2 < 10000
		PRINTFORM %ANAME(MTAR:0)%は
		IF TALENT:(MTAR:0):抑圧 || TALENT:(MTAR:0):孤高 || TALENT:(MTAR:0):快感の否定
			PRINTFORML 快楽を否定する言葉を吐きつつ、こらえ切れない喘ぎ声を上げ続けている
		ELSE
			IF TALENT:(MTAR:0):体格 == 体格_小柄
				PRINTFORM その小さな身体で
			ENDIF
			PRINTFORML 一生懸命腰を振り背中を反らしながら快楽の喘ぎ声を上げた
		ENDIF
	ELSE
		PRINTFORML %ANAME(MTAR:0)%は腰を振りながら%SPLIT_RAND("緩みきった、だらしない顔で/舌を突き出して涎を垂らしながら/快楽に顔をぐちゃぐちゃに歪めて",1)%快楽を貪っている
	ENDIF
ENDIF

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

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

@COM_AVAILABLE_WHEN44
RETURN コマンド_ウフフ

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

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

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


code:
;Ａ背面騎乗位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME45
IF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 1, 3) && 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_ABLE45
;共通部分
CALL COM_ABLE_COMMON(45)
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, "Ｖ"), 1, 3, 30)
	RETURN 0
SIF IS_A_HOLD(MTAR:0)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 45)
	RETURN 0
SIF REACHING_BODY(MTAR, MPLY)
	RETURN 0
SIF LICKING_BODY(MTAR, MPLY) || LICKING_BODY(MPLY, MTAR)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM45
;実行判定
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 = 1
		CASE 3
			TFLAG:17 = 2
		CASE 4
			TFLAG:17 = 2
		CASE 5
			TFLAG:17 = 3
		CASE 6
			TFLAG:17 = 4
		CASE 7
			TFLAG:17 = 1
		CASE 8
			TFLAG:17 = 1
	ENDSELECT
ENDIF
IF TFLAG:17 == 0
	SELECTCASE PREVCOM
		CASE 40
			TFLAG:17 = 1
		CASE 41
			TFLAG:17 = 1
		CASE 42
			TFLAG:17 = 2
		CASE 43
			TFLAG:17 = 2
		CASE 44
			TFLAG:17 = 3
		CASE 45
			TFLAG:17 = 4
		CASE 47
			TFLAG:17 = 1
		CASE 48
			TFLAG:17 = 1
	ENDSELECT
ENDIF

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

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

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

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

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

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

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

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

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

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

SOURCE:(MTAR:0):快Ａ = SENSE_SEX_PLAYER(MTAR:0, MPLY:0, 1500)
SOURCE:(MTAR:0):性行動 = 240

IF MPLY:0 == MASTER
	CALL ADD_SOURCE_AIZYOU(MTAR:0, 80)
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, 200, 150)

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

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

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP45(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_TARGET_P(LOCAL:3, LOCAL:2, 750)
SOURCE:(LOCAL:2):露出 += 200
SOURCE:(LOCAL:2):性行動 += 80

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

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

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

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

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

SOURCE:(LOCAL:3):快Ａ += SENSE_SEX_PLAYER(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):倒錯度変化基準値 += 4

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

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

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

LOCAL:0 = MEQUIP_TARGET:(ARG:0):0
SELECTCASE RAND:2
	CASE 0
			;ターゲットが行動不能
		IF !IS_PLAYABLE(LOCAL:0)
			PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が下から%EQUIP_TARGET_ANAME(ARG:0)%のアナルを突き上げている…
		ELSE
			PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%が%EQUIP_PLAYER_ANAME(ARG:0)%に背を向けて跨がり、尻穴で%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を咥えこんでいる…
		ENDIF
	CASE 1
			;ターゲットが行動不能
		IF !IS_PLAYABLE(LOCAL:0)
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は気絶した%EQUIP_TARGET_ANAME(ARG:0)%の%LOCALS:0%を下から激しく突き上げている…
				CASE 1
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%はぐったりとした%ANAME((MEQUIP_TARGET:(ARG:0):0))%の%LOCALS:0%を後ろ向きで腰の上に乗せたまま、下から突き上げている…
			ENDSELECT
		ELSE
			SELECTCASE GET_COM_INITIATIVE()
					;プレイヤーに主導権
				CASE 0
					SELECTCASE RAND:2
						CASE 0
							PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は背面騎乗位の体勢で%LOCALS:0%に挿入したままの%EQUIP_TARGET_ANAME(ARG:0)%に尻を振らせている…
						CASE 1
							PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の尻の動きに合わせて腰を突き上げ、%EQUIP_PLAYER_ANAME(ARG:0)%のソレを%LOCALS:0%の奥深くまで押し込んでいる…
					ENDSELECT
					;ターゲットに主導権
				CASE 1
					PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%は%EQUIP_PLAYER_ANAME(ARG:0)%のソレを%LOCALS:0%で締め付けながら、さらに尻を振って%EQUIP_PLAYER_ANAME(ARG:0)%を責め立てている…
					;第三者に主導権
				CASEELSE
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%EQUIP_PLAYER_ANAME(ARG:0)%に背を向けて跨る%EQUIP_TARGET_ANAME(ARG:0)%に対して、もっと激しく尻を振るように命令し
					PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%は%EQUIP_PLAYER_ANAME(ARG:0)%のソレを%LOCALS:0%で締め付けながら、命じられるままにひたすら腰を振っている…
			ENDSELECT
		ENDIF
ENDSELECT

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP45(ARG:0)
LOCAL:0 = MEQUIP_TARGET:(ARG:0):0
IF IS_BIND(LOCAL:0) || !IS_PLAYABLE(LOCAL:0)
	PRINTFORMW %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の体を持ち上げて尻穴から%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を引き抜いた…
ELSE
	PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%は腰を上げて%EQUIP_PLAYER_ANAME(ARG:0)%の%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を尻穴から引き抜いた…
ENDIF

;-------------------------------------------------
;固有の実行判定(ターゲット側)
;-------------------------------------------------
@COM_ORDER_TARGET45(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 120

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE45
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 TALENT:(MTAR:0):美尻
	LOCALS:2 = 尻肉を割り開き、
ELSEIF GET_HIPSIZE(MTAR:0) >= 1
	LOCALS:2 = 尻肉をかきわけ、
ELSE
	LOCALS:2 =
ENDIF
;ペニスバンド装着中
IF IS_EQUIP_PLAYER((MPLY:0), 50)
	;ターゲットが行動不能
	IF !IS_PLAYABLE(MTAR:0)
		;第三者に主導権
		IF !GROUPMATCH(GET_COM_INITIATIVE(), 0, 1)
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%ANAME(MTAR:0)%の尻穴を背面騎乗位の体勢で犯すように命令した
		ENDIF
		PRINTFORML %ANAME(MPLY:0)%はぐったりとした%ANAME(MTAR:0)%を後ろ向きにして腰の上に乗せ、%LOCALS:1%下から張り型で%ANAME(MTAR:0)%の%LOCALS:0%を突き上げた…

	;既に挿入済みの場合
	ELSEIF TFLAG:17
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				;前回が正常位・後背位・対面座位・背面座位
				IF GROUPMATCH(TFLAG:17, 1, 2)
					PRINTFORML %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を後ろ向きで上に跨がらせ、%LOCALS:2%背面騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振らせた…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%に後ろを向かせ、%LOCALS:2%背面騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振らせた…
				;前回が背面騎乗位
				ELSE
					PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の尻の動きに合わせて腰を突き上げ、%LOCALS:1%張り型をアナルの奥深くまで押し込ん%TARGET_STR("だ", "できた")%…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が正常位・後背位・対面座位・背面座位
				IF GROUPMATCH(TFLAG:17, 1, 2)
					PRINTFORML %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%の上に跨がり、%LOCALS:2%背面騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振り始めた…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(MTAR:0)%は挿入したまま後ろ向きになると、%LOCALS:2%今度は背面騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振り始めた…
				;前回が背面騎乗位
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は尻穴で%ANAME(MPLY:0)%の張り型を締め付けながら、%LOCALS:2%さらに%STR_BODY("尻：長", MTAR:0)%を振って快楽を貪っている…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が正常位・後背位・対面座位・背面座位
				IF GROUPMATCH(TFLAG:17, 1, 2)
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に対し、%ANAME(MPLY:0)%の上になって背面騎乗位で腰を振るように命令した
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の上に背を向けて跨ると、%LOCALS:1%言われるまま尻を振ってアナルに挿入された張り型を出し入れした…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に跨って腰を振る%ANAME(MTAR:0)%に対し、後ろを向いて背面騎乗位の体勢になるように命令した
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%に背を向けると、%LOCALS:2%再び張り型を挿入された%STR_BODY("尻：長", MTAR:0)%を振り始めた…
				;前回が背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に背を向けて跨る%ANAME(MTAR:0)%に対して、もっと激しく尻を振るように命令した
					PRINTFORMW %ANAME(MTAR:0)%は尻穴で%ANAME(MPLY:0)%の張り型を締め付けながら、%LOCALS:2%命じられるままにひたすら%STR_BODY("尻：長", MTAR:0)%を上下に振りたてた…
				ENDIF
		ENDSELECT

	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に、後ろ向きに跨って尻穴で張り型を咥え込むように要求した
				PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%に尻を向け、%LOCALS:1%反り立つ張り型を自身の%LOCALS:0%へと挿入した…
			;ターゲットに主導権
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の上に尻を向けて跨がると、%LOCALS:1%張り型を自身の%LOCALS:0%で咥え込ん%PLAYER_STR("だ", "できた")%…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に、後ろ向きに%ANAME(MPLY:0)%に跨って、尻穴で張り型を咥え込むように命令した
				PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%の上に背を向けて跨り、%LOCALS:1%反り立つ張り型を自身の%LOCALS:0%へと挿入した…
		ENDSELECT

		IF ABL:(MTAR:0):性技 >= 3 && MTAR:0 != MASTER
			PRINTFORM %ANAME(MTAR:0)%は
			IF TALENT:(MTAR:0):体格 == 体格_小柄
				PRINTFORML %ANAME(MPLY:0)%の腰の上で%STR_BODY("尻：長", MTAR:0)%を上下に振り動かしている…
			ELSE
				PRINTFORML 自ら%ANAME(MPLY:0)%の腰に%STR_BODY("尻：長", MTAR:0)%を打ち付けている…
			ENDIF
		ENDIF
	ENDIF

;ペニスバンド不使用
ELSE
	;ターゲットが行動不能
	IF !IS_PLAYABLE(MTAR:0)
		;第三者に主導権
		IF !GROUPMATCH(GET_COM_INITIATIVE(), 0, 1)
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%ANAME(MTAR:0)%の尻穴を背面騎乗位の体勢で犯すように命令した
		ENDIF
		PRINTFORML %ANAME(MPLY:0)%はぐったりとした%ANAME(MTAR:0)%を後ろ向きにして腰の上に乗せ、%LOCALS:1%下から%ANAME(MTAR:0)%の%LOCALS:0%を激しく突き上げた…

	;既に挿入済みの場合
	ELSEIF TFLAG:17
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				;前回が正常位・後背位・対面座位・背面座位
				IF GROUPMATCH(TFLAG:17, 1, 2)
					PRINTFORML %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を後ろ向きで上に跨がらせ、%LOCALS:2%背面騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振らせた…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%に後ろを向かせ、%LOCALS:2%背面騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振らせた…
				;前回が背面騎乗位
				ELSE
					PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の尻の動きに合わせて腰を突き上げ、%LOCALS:1%ペニスをアナルの奥深くまで押し込ん%TARGET_STR("だ", "できた")%…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が正常位・後背位・対面座位・背面座位
				IF GROUPMATCH(TFLAG:17, 1, 2)
					PRINTFORML %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%の上に跨がり、%LOCALS:2%背面騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振り始めた…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(MTAR:0)%は挿入したまま後ろ向きになると、%LOCALS:2%今度は背面騎乗位の体勢で%STR_BODY("尻：長", MTAR:0)%を振り始めた…
				;前回が背面騎乗位
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は尻穴を締めながら、%LOCALS:2%さらに激しく%STR_BODY("尻：長", MTAR:0)%を振って%ANAME(MPLY:0)%のペニスを擦り上げ%PLAYER_STR("た", "てきた")%…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が正常位・後背位・対面座位・背面座位
				IF GROUPMATCH(TFLAG:17, 1, 2)
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に対し、%ANAME(MPLY:0)%の上になって背面騎乗位で腰を振るように命令した
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の上に背を向けて跨ると、%LOCALS:1%言われるまま尻を振ってアナルに挿入されたペニスを擦り上げた…
				;前回が騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に跨って腰を振る%ANAME(MTAR:0)%に対し、後ろを向いて背面騎乗位の体勢になるように命令した
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%に背を向けると、%LOCALS:1%再び尻を振ってペニスを擦り上げた…
				;前回が背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に背を向けて跨る%ANAME(MTAR:0)%に対して、もっと激しく尻を振るように命令した
					PRINTFORMW %ANAME(MTAR:0)%は尻穴で%ANAME(MPLY:0)%のペニスを締め付けながら、%LOCALS:2%命じられるままにひたすら%STR_BODY("尻：長", MTAR:0)%を上下に振りたてた…
				ENDIF
		ENDSELECT

	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に、後ろ向きに跨って尻穴でペニスを咥え込むように要求した
				PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%に尻を向け、%LOCALS:1%反り立つペニスを自身の%LOCALS:0%へと挿入した…
			;ターゲットに主導権
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の上に尻を向けて跨がると、%LOCALS:1%ペニスを自身の%LOCALS:0%で咥え込ん%PLAYER_STR("だ", "できた")%…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に、後ろ向きに%ANAME(MPLY:0)%に跨って、尻穴でペニスを咥え込むように命令した
				PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%の上に背を向けて跨り、%LOCALS:1%反り立つペニスを自身の%LOCALS:0%へと挿入した…
		ENDSELECT

		IF ABL:(MTAR:0):性技 >= 3 && MTAR:0 != MASTER
			PRINTFORM %ANAME(MTAR:0)%は
			IF TALENT:(MTAR:0):体格 == 体格_小柄
				PRINTFORML %ANAME(MPLY:0)%の腰の上で%STR_BODY("尻：長", MTAR:0)%を上下に振り動かしている…
			ELSE
				PRINTFORML 自ら%ANAME(MPLY:0)%の腰に%STR_BODY("尻：長", MTAR:0)%を打ち付けている…
			ENDIF
		ENDIF
	ENDIF
ENDIF
WAIT

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

IF MPLY:0 != MASTER
ENDIF

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

	IF TCVAR:(MTAR:0):失神フラグ
		;気絶中
		PRINTFORML %ANAME(MTAR:0)%は尻穴を突き上げられるたびにガクガクと体を震わせ、口端からだらしなく涎を垂らしている
	ELSEIF LOCAL:2 < 300
		PRINTFORML %ANAME(MTAR:0)%は必死に腰を動かすが、まだ快楽を得るには遠いようで、少し苦しそうだ
	ELSEIF LOCAL:2 < 1000
		PRINTFORML %ANAME(MTAR:0)%は苦しそうにしているが、その声には快楽の喘ぎが混じっている
	ELSEIF LOCAL:2 < 3000
		PRINTFORML %ANAME(MTAR:0)%は腰を振りながらこらえきれない快楽に可愛らしい声を漏らしている
	ELSEIF LOCAL:2 < 6000
		PRINTFORML %ANAME(MTAR:0)%は大分慣れてきたのか、快楽に突き上げられながら自ら進んで腰を振っている
	ELSEIF LOCAL:2 < 10000
		PRINTFORM %ANAME(MTAR:0)%は
		IF TALENT:(MTAR:0):抑圧 || TALENT:(MTAR:0):孤高 || TALENT:(MTAR:0):快感の否定
			PRINTFORML 快楽を否定する言葉を吐きつつ、こらえ切れない喘ぎ声を上げ続けている
		ELSE
			IF TALENT:(MTAR:0):体格 == 体格_小柄
				PRINTFORM その小さな身体で
			ENDIF
			PRINTFORML 一生懸命腰を振り背中を反らしながら快楽の喘ぎ声を上げた
		ENDIF
	ELSE
		PRINTFORML %ANAME(MTAR:0)%はあられもない嬌声を上げながら、激しく腰を振り快楽を貪っている
	ENDIF
ENDIF
SIF GET_HIPSIZE(MTAR:0) >= 1
	PRINTFORML %ANAME(MTAR:0)%の豊かな尻肉は、抽送のたびにふるふると震えている……

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

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

@COM_AVAILABLE_WHEN45
RETURN コマンド_ウフフ

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

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

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

repo_name: napo/erafl

license: unknown


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

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME46
IF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && IS_INSERT_MUTUAL(MPLY, 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_ABLE46
;共通部分
CALL COM_ABLE_COMMON(46)
SIF RESULT == 0
	RETURN 0
;プレイヤーは2人
SIF MPLY_NUM != 2
	RETURN 0
;ターゲットは1人
SIF MTAR_NUM != 1
	RETURN 0

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

;Ａが埋まっているなら不可
SIF IS_A_HOLD(MTAR:0)
	RETURN 0
;todo shouldn't this mostly depend on TALENT:MTAR:Ａ締まり? same with the text
;SIF EXP:(MTAR:0):Ａ拡張経験 <= 5 && ABL:(MTAR:0):Ａ感 < 5
;	RETURN 0

RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM46
;実行判定
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:0, MPLY:(LOCAL:0), 1500)
		ELSE
			SOURCE:(MPLY:(LOCAL:0)):快Ｐ = SENSE_SEX_PLAYER_P(MTAR:0, MPLY:(LOCAL:0), 1500)
		ENDIF

		;性交系の共通処理
		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

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

LOCAL:3 = MPLY:(RAND:MPLY_NUM)

EXP:(MTAR:0):性技経験値 += 2
EXP:(MTAR:0):性交経験値 += 3
EXP:(MTAR:0):Ａ拡張経験 += 1
EXP:(MTAR:0):輪姦経験 += 1

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

;共通処理で呼ばれる前に独自に処女喪失
CALL VIRGIN_COMMON_A(MTAR:0, @"%ANAME(LOCAL:3)%たち", (GET_SITUATION_BY_TRAIN_MODE() == "和姦" ? "乱交" # "輪姦"))

;性交系の共通処理
CALL COM_COMMON_ASEX_A(MTAR:0, LOCAL:3)
	;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MTAR:0, 150, 100)
	;奉仕経験値を得られるコマンドのフラグ
TCVAR:(MTAR:0):奉仕経験取得可能 = 1

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

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

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

RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP46(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
	LOCAL:2 = MEQUIP_TARGET:(ARG:0):0
	IF LOCAL:6
		SOURCE:(LOCAL:1):快Ｐ = SENSE_SEX_TARGET_P(LOCAL:2, LOCAL:1, 1500)
	ELSE
		SOURCE:(LOCAL:1):快Ｐ = SENSE_SEX_PLAYER_P(LOCAL:2, LOCAL:1, 1500)
	ENDIF
		;性交系の共通処理
	CALL COM_COMMON_ASEX_P(LOCAL:1, LOCAL:2)
	LOCAL:5 += SOURCE:(LOCAL:1):快Ｐ
	SOURCE:(LOCAL:1):快Ｐ = 0
	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

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

EXP:(LOCAL:2):性技経験値 += 2
EXP:(LOCAL:2):性交経験値 += 2
EXP:(LOCAL:2):Ａ拡張経験 += 1
EXP:(LOCAL:2):輪姦経験 += 1

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 ADD_SOURCE_INITIATIVE_U(LOCAL:2, 150, 100)

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

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

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

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP46(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の尻穴を同時に犯している……

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP46(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の尻穴からペニスを引き抜いた

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE46
LOCALS:0 = %ANAME(MTAR:0)%

LOCALS:2 = こちらに向け
LOCALS:3 = その尻穴が悲鳴をあげるのも構わず、

LOCALS:4 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%

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

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

SELECTCASE EXP:(MTAR:0):Ａ拡張経験
	CASE IS < 20
		PRINTFORMW 二本ものペニスを咥え込まされ、%LOCALS:0%の尻穴はぎちぎちと嫌な音をたてている……
	CASE IS < 50
		PRINTFORMW いくらか余裕はあるようだが、それでも%LOCALS:0%は苦しそうだ……
	CASE IS < 70
		PRINTFORMW 二本もペニスを突き込まれ、%LOCALS:0%は強い快楽を覚えている……
	CASEELSE
		PRINTFORMW 二本もペニスを突き込まれ、%LOCALS:0%はただ快楽に喘ぐことしかできない……
ENDSELECT

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

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

@COM_AVAILABLE_WHEN46
RETURN コマンド_ウフフ

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

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

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


code:
;Ａ後背位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME47
IF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 5, 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_ABLE47
;共通部分
CALL COM_ABLE_COMMON(47)
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, "Ｖ"), 5, 30)
	RETURN 0
SIF IS_A_HOLD(MTAR:0)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 47)
	RETURN 0
;player and target have to face each other
SIF LICKING_BODY(MPLY:0, MTAR:0) || LICKING_BODY(MTAR:0, MPLY:0)
	RETURN 0
;target has to face player
SIF REACHING_BODY(MTAR:0, MPLY:0)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM47
;実行判定
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 = 3
		CASE 2
			TFLAG:17 = 3
		CASE 3
			TFLAG:17 = 3
		CASE 4
			TFLAG:17 = 2
		CASE 5
			TFLAG:17 = 3
		CASE 6
			TFLAG:17 = 2
		CASE 7
			TFLAG:17 = 1
		CASE 8
			TFLAG:17 = 3
	ENDSELECT
ENDIF
IF TFLAG:17 == 0
	SELECTCASE PREVCOM
		CASE 40
			TFLAG:17 = 3
		CASE 41
			TFLAG:17 = 3
		CASE 42
			TFLAG:17 = 3
		CASE 43
			TFLAG:17 = 2
		CASE 44
			TFLAG:17 = 3
		CASE 45
			TFLAG:17 = 2
		CASE 46
			TFLAG:17 = 1
		CASE 47
			TFLAG:17 = 3
	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):性行動 = 240

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

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

;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MPLY:0, 200, 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):露出 = 400
SOURCE:(MTAR:0):性行動 = 240

IF MPLY:0 == MASTER
	CALL ADD_SOURCE_AIZYOU(MTAR:0, 20)
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, 120, 180)

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

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

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP47(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):性行動 += 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_MESSAGE47(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルに側位で挿入中

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

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)
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は気絶した%EQUIP_TARGET_ANAME(ARG:0)%を横に寝そべらせ、尻穴を後ろから激しく突いている…
				CASE 1
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%はぐったりしている%EQUIP_TARGET_ANAME(ARG:0)%を横に寝そべらせ、%LOCALS:0%に後ろから何度も腰を打ち付けている…
			ENDSELECT
		ELSE
			SELECTCASE GET_COM_INITIATIVE()
					;プレイヤーに主導権
				CASE 0
					SELECTCASE RAND:2
						CASE 0
							PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は横向きに寝そべる%EQUIP_TARGET_ANAME(ARG:0)%の腰を掴み、激しく尻穴を突いている…
						CASE 1
							PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は横向きに寝そべる%EQUIP_TARGET_ANAME(ARG:0)%の%LOCALS:0%に突き入れ、何度も腰を打ち付けている…
					ENDSELECT
					;ターゲットに主導権
				CASE 1
					PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%は%EQUIP_PLAYER_ANAME(ARG:0)%に、もっと激しく腰を動かすように要求し
					SELECTCASE RAND:2
						CASE 0
							PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は横向きに寝そべる%EQUIP_TARGET_ANAME(ARG:0)%の腰を掴みなおすと、何度も腰を打ち付けて%EQUIP_TARGET_ANAME(ARG:0)%の尻穴を突いている…
						CASE 1
							PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は横向きに寝そべる%EQUIP_TARGET_ANAME(ARG:0)%の腰を掴みなおすと、何度も腰を打ち付け%LOCALS:0%に突き入れている…
					ENDSELECT
					;第三者に主導権
				CASEELSE
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%EQUIP_TARGET_ANAME(ARG:0)%に側位で挿入している%EQUIP_PLAYER_ANAME(ARG:0)%に対し、もっと激しく腰を動かすように命令し
					SELECTCASE RAND:2
						CASE 0
							PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は言われるまま腰の動きを激しくし、何度も%EQUIP_TARGET_ANAME(ARG:0)%の尻穴を突いている…
						CASE 1
							PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は言われるまま腰の動きを激しくし、何度も%EQUIP_TARGET_ANAME(ARG:0)%の%LOCALS:0%に突き入れている…
					ENDSELECT
			ENDSELECT
		ENDIF
ENDSELECT

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

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE47
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 TALENT:(MTAR:0):美尻
	LOCALS:2 = 尻肉を割り開き、
ELSEIF GET_HIPSIZE(MTAR:0) >= 1
	LOCALS:2 = 尻肉をかきわけ、
ELSE
	LOCALS:2 =
ENDIF

;ペニスバンド装着中
IF IS_EQUIP_PLAYER((MPLY:0), 50)
	;既に挿入済みの場合
	IF TFLAG:17
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				;前回が後背位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MPLY:0)%は横向きに寝そべらせた%ANAME(MTAR:0)%の%STR_BODY("腰：外見", MTAR:0)%を掴むと、%LOCALS:2%さらに激しく腰を動かして尻穴を突い%TARGET_STR("た", "てきた")%…
				;背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を横に寝そべらせ後ろからぴったり寄り添うと、側位の体勢で再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を横に寝そべらせ後ろからぴったり寄り添うと、側位の体勢で再び腰を動かし始めた…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が後背位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に見せつけるように%STR_BODY("腰：外見", MTAR:0)%を振りながら、もっと激しく腰を動かすように要求した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の腰を掴みなおすと、%LOCALS:1%側位の姿勢で何度も腰を打ち付けて%ANAME(MTAR:0)%の尻穴を突いた…
				;背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MTAR:0)%は自ら横に寝そべると、%LOCALS:1%%ANAME(MPLY:0)%に側位で腰を振らせた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MTAR:0)%は体をひねって自ら横に寝そべると、%LOCALS:1%今度は%ANAME(MPLY:0)%に側位で腰を振らせた…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が後背位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に側位で挿入している%ANAME(MPLY:0)%に対し、もっと激しく腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は言われるまま腰の動きを激しくし、何度も%ANAME(MTAR:0)%の尻穴を突いた…
				;背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を側位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を横に寝そべらせ後ろからぴったり寄り添うと、%LOCALS:1%再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を側位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を横に寝そべらせ後ろからぴったり寄り添うと、%LOCALS:1%再び腰を動かし始めた…
				ENDIF
		ENDSELECT

	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は張り型を横に寝そべらせた%ANAME(MTAR:0)%の%LOCALS:0%に突き入れ、何度も腰を打ち付け%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に%STR_BODY("腰：外見", MTAR:0)%を向け、側位の姿勢で%LOCALS:0%に張り型を挿入させた…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、側位で%ANAME(MTAR:0)%の尻穴を犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を横向きに寝そべらせると、装着した張り型を%ANAME(MTAR:0)%の%LOCALS:0%に突き入れて腰を振った…
		ENDSELECT
	ENDIF

;ペニスバンド不使用
ELSE
	;既に挿入済みの場合
	IF TFLAG:17
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				;前回が後背位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MPLY:0)%は横向きに寝そべらせた%ANAME(MTAR:0)%の%STR_BODY("腰：外見", MTAR:0)%を掴むと、%LOCALS:2%さらに激しく腰を動かして尻穴を突い%TARGET_STR("た", "てきた")%…
				;背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を横に寝そべらせ後ろからぴったり寄り添うと、側位の体勢で再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MTAR:0)%を横に寝そべらせ後ろからぴったり寄り添うと、側位の体勢で再び腰を動かし始めた…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が後背位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に見せつけるように%STR_BODY("腰：外見", MTAR:0)%を振りながら、もっと激しく腰を動かすように要求した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を掴みなおすと、側位の姿勢で何度も腰を打ち付けて%ANAME(MTAR:0)%の尻穴を突いた…
				;背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MTAR:0)%は自ら横に寝そべると、%LOCALS:1%%ANAME(MPLY:0)%に後背位で腰を振らせた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MTAR:0)%は体をひねって自ら横に寝そべると、%LOCALS:1%今度は%ANAME(MPLY:0)%に側位で腰を振らせた…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が後背位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に側位で挿入している%ANAME(MPLY:0)%に対し、もっと激しく腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は言われるまま腰の動きを激しくし、何度も%ANAME(MTAR:0)%の尻穴を突いた…
				;背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を側位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を横に寝そべらせ後ろからぴったり寄り添うと、再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を側位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を横に寝そべらせ後ろからぴったり寄り添うと、再び腰を動かし始めた…
				ENDIF
		ENDSELECT

	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は横向きに寝そべらせた%ANAME(MTAR:0)%の%LOCALS:1%%LOCALS:0%にペニスを突き入れ、何度も腰を打ち付け%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に%STR_BODY("腰：外見", MTAR:0)%を向け、%LOCALS:1%後ろから%LOCALS:0%にペニスを挿入させた…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、側位で%ANAME(MTAR:0)%の尻穴を犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を横向きに寝そべらせると、装着した張り型を%ANAME(MTAR:0)%の%LOCALS:0%にペニス突き入れて腰を振った…
		ENDSELECT
	ENDIF
ENDIF
SIF GET_HIPSIZE(MTAR:0) >= 1
	PRINTFORML %ANAME(MTAR:0)%の豊かな尻肉は、抽送のたびにふるふると震えている……
;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST47
SIF IS_PIERCED(MPLY:0, ピアス_ペニス)
	PRINTFORML %ANAME(MPLY:0)%のペニスに取り付けられたピアスが、%ANAME(MTAR:0)%のアヌスをごりごりと抉っていく……

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

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

@COM_AVAILABLE_WHEN47
RETURN コマンド_ウフフ

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

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

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


code:
;Ａ屈曲位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME48
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_ABLE48
;共通部分
CALL COM_ABLE_COMMON(48)
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, "Ｖ"), 30)
	RETURN 0
SIF IS_A_HOLD(MTAR:0)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 48)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM48
;実行判定
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):露出 += 200
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):露出 = 200
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_EQUIP48
RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP48(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_MESSAGE48(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルに屈曲位で挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP48(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)%に求められるまま、何度も腰を打ち付けて%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_EQUIP48(ARG:0)
PRINTFORMW %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の尻穴から%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を引き抜いた…

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE48
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)
	;既に挿入済みの場合
	IF TFLAG:17
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				;前回が屈曲位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の%LOCALS:1%尻穴に挿入したまま、さらに激しく腰を動かし%TARGET_STR("た", "てきた")%…
				;対面座位・騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を押し倒し、%LOCALS:1%上から覆い被さって再び腰を動かし始めた…
				;後背位・背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%の体を正面に向けると、%LOCALS:1%上から覆い被さって再び腰を動かし始めた…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が屈曲位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の腰に足を絡めながら、さらに激しく腰を動かすように要求した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に求められるまま、何度も腰を打ち付けて%ANAME(MTAR:0)%の尻穴を突いた…
				;対面座位・騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MTAR:0)%は自ら後ろに倒れ込んで下になり、%LOCALS:1%%ANAME(MPLY:0)%に屈曲位で腰を振らせた…
				;後背位・背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の正面に向き直ると、%LOCALS:1%自ら下になって再び%ANAME(MPLY:0)%に腰を振らせた…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が屈曲位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に屈曲位で挿入している%ANAME(MPLY:0)%に対し、もっと激しく腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は言われるまま腰の動きを激しくし、何度も%ANAME(MTAR:0)%の尻穴を突いた…
				;対面座位・騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を屈曲位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を押し倒し、%LOCALS:1%上から覆い被さって再び腰を動かし始めた…
				;後背位・背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を屈曲位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%の体を正面に向けると、%LOCALS:1%上から覆い被さって再び腰を動かし始めた…
				ENDIF
		ENDSELECT

	ELSE
		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
	ENDIF

;ペニスバンド不使用
ELSE
	;既に挿入済みの場合
	IF TFLAG:17
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				;前回が屈曲位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の尻穴に挿入したまま、さらに激しく腰を動かし%TARGET_STR("た", "てきた")%…
				;対面座位・騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を押し倒し%LOCALS:1%、上から覆い被さって再び腰を動かし始めた…
				;後背位・背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%の体を正面に向けると、%LOCALS:1%上から覆い被さって再び腰を動かし始めた…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が屈曲位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の腰に足を絡めながら、さらに激しく腰を動かすように要求した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に求められるまま、%LOCALS:1%何度も腰を打ち付けて%ANAME(MTAR:0)%の尻穴を突いた…
				;対面座位・騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MTAR:0)%は自ら後ろに倒れ込んで下になり、%LOCALS:1%%ANAME(MPLY:0)%に屈曲位で腰を振らせた…
				;後背位・背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の正面に向き直ると、%LOCALS:1%自ら下になって再び%ANAME(MPLY:0)%に腰を振らせた…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が屈曲位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に屈曲位で挿入している%ANAME(MPLY:0)%に対し、もっと激しく腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は言われるまま腰の動きを激しくし、何度も%ANAME(MTAR:0)%の尻穴を突いた…
				;対面座位・騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を屈曲位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を押し倒し、%LOCALS:1%上から覆い被さって再び腰を動かし始めた…
				;後背位・背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を屈曲位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%の体を正面に向けると、%LOCALS:1%上から覆い被さって再び腰を動かし始めた…
				ENDIF
		ENDSELECT

	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を押し倒すと、%ANAME(MTAR:0)%の%LOCALS:1%%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
ENDIF

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

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

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

@COM_AVAILABLE_WHEN48
RETURN コマンド_ウフフ

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

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

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


code:
;Ａ屈曲位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME49
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_ABLE49
;共通部分
CALL COM_ABLE_COMMON(49)
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, "Ｖ"), 30)
	RETURN 0
SIF IS_A_HOLD(MTAR:0)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 49)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM49
;実行判定
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):露出 += 200
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):露出 = 200
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_EQUIP49
RETURN 1

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP49(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_MESSAGE49(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルに駅弁で挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP49(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)%に求められるまま、下から何度も腰を打ち付けて%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_EQUIP49(ARG:0)
PRINTFORMW %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の尻穴から%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を引き抜いた…

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE49
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_LAST49
SIF IS_PIERCED(MPLY:0, ピアス_ペニス)
	PRINTFORML %ANAME(MPLY:0)%のペニスに取り付けられたピアスが、%ANAME(MTAR:0)%のアヌスをごりごりと抉っていく……

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

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

@COM_AVAILABLE_WHEN49
RETURN コマンド_ウフフ

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

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


code:
;アナル愛撫

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME4
IF IS_EQUIP_TARGET(MTAR:0, 62)
	IF MTAR_NUM >= 2
		LOCALS:0 = 同時Ａバイブ責め
	ELSE
		LOCALS:0 = Ａバイブ責め
	ENDIF
ELSE
	IF MTAR_NUM >= 2
		LOCALS:0 = 同時アナル愛撫
	ELSE
		LOCALS:0 = アナル愛撫
	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_ABLE4
;共通部分
CALL COM_ABLE_COMMON(4)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で5人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 5
	RETURN 0
;ターゲットはプレイヤーの倍まで
SIF MTAR_NUM <= 0 || MTAR_NUM > MPLY_NUM * 2
	RETURN 0

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

FOR LOCAL:0, 0, MTAR_NUM
	;a occupied except by a vibrator
	SIF IS_A_HOLD(MTAR:(LOCAL:0)) && !IS_EQUIP_TARGET(MTAR:(LOCAL:0), 62)
		RETURN 0
	;If any target has a vibe inserted, then they all must
	SIF IS_EQUIP_TARGET(MTAR:0, 62) != IS_EQUIP_TARGET(MTAR:(LOCAL:0), 62)
		RETURN 0
NEXT

RETURN 1

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

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

SELECTCASE MPLY_NUM
	CASE 2
		TIMES LOCAL:10, 0.75
	CASE 3
		TIMES LOCAL:10, 0.60
	CASE 4
		TIMES LOCAL:10, 0.50
	CASE 5
		TIMES LOCAL:10, 0.45
ENDSELECT

SELECTCASE MTAR_NUM
	CASE 2
		TIMES LOCAL:10, 0.75
ENDSELECT

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

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

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

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

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

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

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

		SOURCE:(LOCAL:3):快Ａ += LOCAL:4

	NEXT
NEXT

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

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

	SOURCE:(LOCAL:1):露出 = 120
	SOURCE:(LOCAL:1):接触 = 60
	SOURCE:(LOCAL:1):性行動 = 90

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

NEXT

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

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

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

RETURN 1

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

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

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

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

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

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

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

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

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

	NEXT

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

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

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

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

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE4(ARG:0)
IF IS_EQUIP_TARGET(MEQUIP_TARGET:(ARG:0):0, 62)
	RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%をＡバイブ責め中
ELSE
	RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルに指を挿入中
ENDIF

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP4(ARG:0)
IF IS_EQUIP_TARGET(MEQUIP_TARGET:(ARG:0):0, 62)
	PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルに挿入されたバイブを前後させている…
ELSE
	PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルを指でかき回している…
ENDIF

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

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER4(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 * 2, 20))

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

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE4
;ターゲットが２人のとき
IF MTAR_NUM == 2
	LOCALS:0 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
;ターゲットが１人のとき
ELSE
	LOCALS:0 = %ANAME(MTAR: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

SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		IF IS_EQUIP_TARGET(MTAR:0, 62)
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%の%LOCALS:1%アナルで振動するバイブを抜き差しして責め立て%TARGET_STR("た", "てきた")%…
		ELSE
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%の%LOCALS:1%アナルに指を挿れて中をかき回し%TARGET_STR("た", "てきた")%…
		ENDIF
	;ターゲットに主導権
	CASE 1
		IF IS_EQUIP_TARGET(MTAR:0, 62)
			PRINTFORMW %LOCALS:0%は%LOCALS:1%自身のアナルで振動するバイブを%ANAME(MPLY:0)%に握らせ、抜き差しさせた…
		ELSE
			PRINTFORMW %LOCALS:0%は%LOCALS:1%%ANAME(MPLY:0)%の指を自身のアナルに挿入させ、中を愛撫させた…
		ENDIF
	;第三者に主導権
	CASEELSE
		IF IS_EQUIP_TARGET(MTAR:0, 62)
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:0%のアナルに挿れられたバイブを動かすよう命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%の%LOCALS:1%尻穴で振動するバイブを抜き差しして責め立てた…
		ELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:0%のアナルに指を入れて愛撫するよう命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%の%LOCALS:1%尻穴に指を挿れて中を弄り回した…
		ENDIF
ENDSELECT

IF !IS_EQUIP_TARGET(MTAR:0, 62) && (MTAR_NUM == 1) && CUM_CUR_AMOUNT:(MTAR:0):射精部位_アナル
	PRINTFORML %SPLIT_RAND("熱い/粘つく/濃厚な/新鮮な", 1)%精液が%ANAME(MTAR:0)%から溢れ出る

	IF ABL:(MPLY:0):精愛 >= 4
		PRINTFORML %ANAME(MPLY:0)%は指に付着した白濁を自ら舐め取った…
		EXP:(MPLY:0):精愛経験値 += 2
	ELSE
		PRINTFORML %ANAME(MPLY:0)%は嫌がりつつも、指が汚れることは避けられなかった…
	ENDIF
	WAIT
ENDIF

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

		IF TCVAR:(LOCAL:1):失神フラグ
			;気絶中
			PRINTFORML アナルへの刺激に、%ANAME(LOCAL:1)%は意識を失ったまま小さく呻いた
		ELSEIF LOCAL:2 < 300
			PRINTFORML %ANAME(LOCAL:1)%の開発されていないそこはまだ異物を受け入れる場所ではなく、%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
			PRINTFORM %ANAME(LOCAL:1)%は
			IF TALENT:(LOCAL:1):抑圧 || TALENT:(LOCAL:1):孤高 || TALENT:(LOCAL:1):快感の否定
				PRINTFORML あらがえない快楽に、涙目になりながら喘ぎ声を上げている
			ELSE
				PRINTFORML 翻弄する指の動きに合わせて背中を反らし、直腸の刺激に快楽の喘ぎ声を上げた
			ENDIF
		ELSE
			PRINTFORML %ANAME(LOCAL:1)%は淫らに腰を揺らしながら、すっかり菊穴の快楽に溺れて嬌声を上げている
		ENDIF
		IF TALENT:(LOCAL:1):美尻
			PRINTFORML %STR_BODY("尻肉：短：外見", MTAR:0)%がふるふると震えている……
		ELSEIF GET_HIPSIZE(LOCAL:1) >= 1
			PRINTFORML %STR_BODY("尻肉：短：外見", MTAR:0)%がふるふると震えている……
		ENDIF
	ENDIF
NEXT

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

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

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

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

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


code:
;酒恥肉倫

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME51
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_ABLE51
#DIM COUNTER
COUNTER = 0
;共通部分
CALL COM_ABLE_COMMON(51)
SIF RESULT == 0
	RETURN 0
;プレイヤーは1人, MASTER
SIF MPLY:0 != MASTER || MPLY_NUM != 1
	RETURN 0

;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0

;全てのプレイヤーについて判定
FOR LOCAL:0, 0, MPLY_NUM
	;口が塞がってたらだめ
	SIF IS_M_HOLD(MPLY:(LOCAL:0))
		RETURN 0
	;拘束されているなら不可
	SIF IS_BIND(MPLY:(LOCAL:0))
		RETURN 0
NEXT

LOCAL:1 = 0
;女性役と男性役両方ないと駄目
FOR LOCAL:0, 0, CHARANUM
	SIF IS_PARTICIPATE_TRAIN(LOCAL) && (IS_FEMALE(LOCAL) || HAS_VAGINA(LOCAL, 1))
		SETBIT LOCAL:1, 1
	SIF IS_PARTICIPATE_TRAIN(LOCAL) && (IS_MALE(LOCAL) || HAS_PENIS(LOCAL, 1))
		SETBIT LOCAL:1, 2
	SIF IS_PARTICIPATE_TRAIN(LOCAL)
		COUNTER ++
NEXT

;4人以上いないと不可
SIF COUNTER < 4
	RETURN 0

RETURN GETBIT(LOCAL:1, 1) && GETBIT(LOCAL:1, 2)

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

PRINTFORML %ANAME(MPLY:0)%は、集まったメンバーで乱交を行うことにした……
PRINTFORMW 誰も彼もが好き放題に交わっては相手を変え、乱痴気騒ぎが始まった……
PRINTFORMW ・
PRINTFORMW ・
PRINTFORMW ・

VARI TARGET_ID
VARI PLAYER_ID
VARI PATICIPANTS_COUNT_FEMALE
VARI CHARA_ID
PATICIPANTS_COUNT_FEMALE = 0
FOR CHARA_ID, 0, CHARANUM
	SIF IS_PARTICIPATE_TRAIN(CHARA_ID) && IS_FEMALE(CHARA_ID)
		PATICIPANTS_COUNT_FEMALE ++
NEXT

;総当たりでFUCKする
FOR TARGET_ID, 0, CHARANUM
	SIF !IS_FEMALE(TARGET_ID)
		CONTINUE
	SIF !IS_PARTICIPATE_TRAIN(TARGET_ID)
		CONTINUE
	SIF GROUPMATCH(TCVAR:TARGET_ID:離脱フラグ, 5, 6)
		CONTINUE
	FOR PLAYER_ID, 0, CHARANUM
		SIF !IS_PARTICIPATE_TRAIN(PLAYER_ID)
			CONTINUE
		SIF TARGET_ID == PLAYER_ID
			CONTINUE
		SIF GROUPMATCH(TCVAR:(PLAYER_ID):離脱フラグ, 5, 6)
			CONTINUE
		;文章表示は確率
		SIF RAND:MAX(PATICIPANTS_COUNT_FEMALE / 2, 1) == 0
			CALL COM51_ORGY(TARGET_ID, PLAYER_ID)
		;表示されなかった場合も、膣内射精とかはされたことにする
		IF HAS_PENIS(PLAYER_ID, 1) && IS_FEMALE(TARGET_ID)
			FOR LOCAL:2, 0, 5
				;modded code to be simpler
				SIF HAS_VAGINA(TARGET_ID, 1)
					CALL RECORD_CREAMPIE(TARGET_ID, GET_ID(PLAYER_ID), CUM_AMOUNT_CORRECTION(GET_ID(PLAYER_ID), TARGET_ID, 射精部位_膣内, RAND(3, 7)), 射精部位_膣内)
				CALL RECORD_CREAMPIE(TARGET_ID, GET_ID(PLAYER_ID), CUM_AMOUNT_CORRECTION(GET_ID(PLAYER_ID), TARGET_ID, 射精部位_アナル, RAND(3, 7)), 射精部位_アナル)
				CALL RECORD_CREAMPIE(TARGET_ID, GET_ID(PLAYER_ID), CUM_AMOUNT_CORRECTION(GET_ID(PLAYER_ID), TARGET_ID, 射精部位_口, RAND(3, 7)), 射精部位_口)
				VARI 射精部位
				FOR 射精部位, 0, 11
					SIF 射精部位 == 射精部位_膣内 && !HAS_VAGINA(TARGET_ID, 1)
						CONTINUE
					IF GROUPMATCH(射精部位, 射精部位_膣内, 射精部位_アナル, 射精部位_手, 射精部位_口, 射精部位_胸, 射精部位_足, 射精部位_髪, 射精部位_尻)
						CUM_GET_COUNT:TARGET_ID:(射精部位) ++
						CUM_GET_AMOUNT:TARGET_ID:(射精部位) += RAND(3, 7)
						CUM_CUR_AMOUNT:TARGET_ID:(射精部位) += RAND(3, 7)
						CUM_TO_AMOUNT:(PLAYER_ID):(射精部位) += RAND(3, 7)
						CUM_TO_COUNT:(PLAYER_ID):(射精部位) ++
					ENDIF
				NEXT
			NEXT
		ENDIF
		CALL COM51_ADD_SOURCE(TARGET_ID)
		CALL COM51_ADD_SOURCE(PLAYER_ID)
	NEXT
NEXT

PRINTFORMW ・
PRINTFORMW ・
PRINTFORMW ・
PRINTFORMW 乱痴気騒ぎはようやく終わったようだ

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

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

TFLAG:調教経過時間 = TFLAG:調教ターン数

;後のコマンドの実行を阻止する
CALL INIT_EQUIP

RETURN 1

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

;共通部分
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, "恥じらい", -2)
ENDIF
IF TALENT:(ARG:0):恥薄い
	CALL COM_ORDER_ELEMENT(ARG:0, "恥薄い", 5)
ENDIF

RETURN 1

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

@COM_AVAILABLE_WHEN51
RETURN コマンド_ウフフ

;-------------------------------------------------
;乱交パート　よい表現が思いつかず受け攻めってしてるけど受け側のキャラが攻める分岐もあり
;男は受け側に入らない前提
;受けは関数COM51のIS_FEMALEでTRUEになっているので、男の娘が受けに含まれるかはコンフィグ設定による
;-------------------------------------------------
@COM51_ORGY(受け, 攻め)
#DIM 受け
#DIM 攻め
#DIMS 同性

;同性かどうかを先にチェック
IF IS_SAMESEX_M(攻め, 受け)
	同性 = ＢＬ
ELSEIF IS_SAMESEX_F(攻め, 受け)
	同性 = レズ
ELSE
	同性 = ""
ENDIF

;まずヴァギナのあるなしで分岐する
;受けでヴァギナがあるパターンは女、ふた女、ふた男の娘
IF HAS_VAGINA(受け, 1)
	;攻めが男、または攻めがペニス持ち（２０％）
	IF (IS_MALE(攻め) && HAS_PENIS(攻め, 1)) || (HAS_PENIS(攻め, 1) && RAND:100 < 20)
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(受け)%の%STR_BODY("膣：欲情", 受け)%を、%ANAME(攻め)%が猛然と貫いている
				PRINTFORML %ANAME(受け)%はたまらないという声をあげながらよがっている……
			CASE 1
				PRINTFORML 既に何発も種を受け止めた%ANAME(受け)%は、恍惚の表情を浮かべ%ANAME(攻め)%の肉棒を咥え込んでいる
				PRINTFORML じゅるじゅると亀頭を舐め回され、%ANAME(攻め)%は思わず精を解き放った……
			CASE 2
				PRINTFORML %ANAME(受け)%の両穴を%ANAME(攻め)%が執拗に突いている
				PRINTFORML 肉棒をねじ込まれるたび、%ANAME(受け)%はたまらないという声をあげてよがる……
			CASE 3
				PRINTFORML %ANAME(攻め)%は寝転び、%ANAME(受け)%に騎乗位で腰を振らせている
				PRINTFORML %STR_BODY("膣：感度", 受け)%でペニスを咥え込んだ%ANAME(受け)%は、腰を振るたび艶やかな声をあげている……
			CASE 4
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%を組み敷いて、乱暴に突きまくっている
				PRINTFORML 両穴を抉られ、%ANAME(受け)%は獣じみた声をあげてよがっている……
		ENDSELECT
		CALL FUCK(攻め, @"欲望, 性交, 性技, 射精, Ｃ, Ｍ, Ｖ挿入, Ａ挿入, キス, %同性%", "童貞喪失, キス喪失", -1, @"%ANAME(受け)%の唇", "", @"%ANAME(受け)%の膣", "乱交")
		{
			CALL FUCK(受け, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交, %同性%",
				"キス喪失, 処女喪失, Ａ処女喪失, 膣内射精, 腸内射精, 口内射精",
				GET_ID(攻め),
				@"%ANAME(攻め)%のペニス",
				@"%ANAME(攻め)%",
				"",
				"乱交")
		}
		;ふた女/ふた男の娘→ふた女/ふた男の娘
	ELSEIF HAS_FUTANARI(攻め) && HAS_PENIS(受け, 1)
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(攻め)%と%ANAME(受け)%はお互いのペニスをしゃぶりあっている
				PRINTFORML お互いの口にたっぷり射精した後、すぐさま「二回戦」が始まった……
			CASE 1
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%の%STR_BODY("膣：欲情", 受け)%を貫いている
				PRINTFORML たっぷり種をつけた後、今度は%ANAME(受け)%が%ANAME(攻め)%を貫いた……
			CASE 2
				PRINTFORML %ANAME(攻め)%と%ANAME(受け)%はお互いに口づけながら、ペニスを擦り合わせている
				PRINTFORML 次第に我慢できなくなったか、%ANAME(攻め)%が%ANAME(受け)%を押し倒した……
			CASE 3
				PRINTFORML 白濁にまみれた%ANAME(攻め)%と%ANAME(受け)%がお互いを貫きあっている
				PRINTFORML 射精しては射精される様は、性欲が無限になったかのようだ……
			CASE 4
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%を貫きながら、%ANAME(受け)%の肉棒を扱き上げている
				PRINTFORML %ANAME(攻め)%が膣内射精すると同時に、%ANAME(受け)%も精を解き放った……
		ENDSELECT
		{
			CALL FUCK(受け, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交, Ｖ挿入, Ａ挿入, %同性%",
				"キス喪失, 処女喪失, Ａ処女喪失, 童貞喪失, 膣内射精, 腸内射精, 口内射精",
				GET_ID(攻め),
				@"%ANAME(攻め)%のペニス",
				@"%ANAME(攻め)%",
				@"%ANAME(攻め)%の膣",
				"乱交")
		}
		{
			CALL FUCK(攻め, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交, Ｖ挿入, Ａ挿入, %同性%",
				"キス喪失, 処女喪失, Ａ処女喪失, 童貞喪失, 膣内射精, 腸内射精, 口内射精",
				GET_ID(受け),
				@"%ANAME(受け)%のペニス",
				@"%ANAME(受け)%",
				@"%ANAME(受け)%の膣",
				"乱交")
		}
		;ふた男の娘→女
	ELSEIF TALENT:攻め:性別 == 5 && !HAS_PENIS(受け, 1)
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%を貫いている
				PRINTFORML 自身もヴァギナを持っているからこその的確な責めに、%ANAME(受け)%は涙を流しながらよがる……
			CASE 1
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%に口で奉仕させている
				PRINTFORML 口に射精した後、%ANAME(攻め)%は%ANAME(受け)%を押し倒した……
			CASE 2
				PRINTFORML %ANAME(受け)%が%ANAME(攻め)%のペニスをお掃除フェラしている
				PRINTFORML 丁寧に肉棒を清めた後、二回戦が始まった……
			CASE 3
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%の両穴を抉っている
				PRINTFORML 自身もヴァギナを持っているからこその的確な責めに、%ANAME(受け)%は涙を流しながらよがる……
			CASE 4
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%と口づけを交わしている
				PRINTFORML 次第に我慢できなくなったか、%ANAME(攻め)%が%ANAME(受け)%を押し倒した……
		ENDSELECT
		CALL FUCK(攻め, @"欲望, 性交, 性技, 射精, Ｃ, Ｖ, Ｂ, Ａ, Ｍ, Ｖ挿入, Ａ挿入, キス, %同性%", "童貞喪失, キス喪失", -1, @"%ANAME(受け)%の唇", "", @"%ANAME(受け)%の膣", "乱交")
		{
			CALL FUCK(受け, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交, %同性%",
				"キス喪失, 処女喪失, Ａ処女喪失, 膣内射精, 腸内射精, 口内射精",
				GET_ID(攻め),
				@"%ANAME(攻め)%のペニス",
				@"%ANAME(攻め)%",
				"",
				"乱交")
		}
		;男の娘→ふた女/ふた男の娘
	ELSEIF TALENT:攻め:性別 == 4 && HAS_PENIS(受け, 1)
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(攻め)%と%ANAME(受け)%はお互いのペニスをしゃぶりあっている
				PRINTFORML お互いの口にたっぷり射精した後、すぐさま「二回戦」が始まった……
			CASE 1
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%の%STR_BODY("膣：欲情", 受け)%を貫いている
				PRINTFORML たっぷり種をつけた後、今度は%ANAME(受け)%が%ANAME(攻め)%を貫いた……
			CASE 2
				PRINTFORML %ANAME(攻め)%と%ANAME(受け)%はお互いに口づけながら、ペニスを擦り合わせている
				PRINTFORML 次第に我慢できなくなったか、%ANAME(攻め)%が%ANAME(受け)%を押し倒した……
			CASE 3
				PRINTFORML 白濁にまみれた%ANAME(攻め)%と%ANAME(受け)%が達するたびに交代してお互いを貫きあっている
				PRINTFORML 射精しては射精される様は、性欲が無限になったかのようだ……
			CASE 4
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%を貫きながら、%ANAME(受け)%の肉棒を扱き上げている
				PRINTFORML %ANAME(攻め)%が膣内射精すると同時に、%ANAME(受け)%も精を解き放った……
		ENDSELECT
		{
			CALL FUCK(受け, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交, Ａ挿入, %同性%",
				"キス喪失, 処女喪失, Ａ処女喪失, 童貞喪失, 膣内射精, 腸内射精, 口内射精",
				GET_ID(攻め),
				@"%ANAME(攻め)%のペニス",
				@"%ANAME(攻め)%",
				@"%ANAME(攻め)%のアナル",
				"乱交")
		}
		{
			CALL FUCK(攻め, @"欲望, 性技, Ｃ, Ａ, Ｂ, Ｍ, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ａ性交, Ｖ挿入, Ａ挿入, %同性%",
				"キス喪失, Ａ処女喪失, 童貞喪失, 腸内射精, 口内射精",
				GET_ID(受け),
				@"%ANAME(受け)%のペニス",
				@"%ANAME(受け)%",
				@"%ANAME(受け)%の膣",
				"乱交")
		}
		;男の娘→女
	ELSEIF TALENT:攻め:性別 == 4 && !HAS_PENIS(受け, 1)
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%を貫いている
				PRINTFORML 外見に反して荒々しい責めに、%ANAME(受け)%は涙を流しながらよがる……
			CASE 1
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%に口で奉仕させている
				PRINTFORML 口に射精した後、%ANAME(攻め)%は%ANAME(受け)%を押し倒した……
			CASE 2
				PRINTFORML %ANAME(受け)%が%ANAME(攻め)%のペニスをお掃除フェラしている
				PRINTFORML 丁寧に肉棒を清めた後、二回戦が始まった……
			CASE 3
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%の両穴を抉っている
				PRINTFORML 外見に反して荒々しい責めに、%ANAME(受け)%は涙を流しながらよがる……
			CASE 4
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%と口づけを交わしている
				PRINTFORML 次第に我慢できなくなったか、%ANAME(攻め)%が%ANAME(受け)%を押し倒した……
		ENDSELECT
		CALL FUCK(攻め, @"欲望, 性交, 性技, 射精, Ｃ, Ｂ, Ａ, Ｍ, Ｖ挿入, Ａ挿入, キス, %同性%", "童貞喪失, キス喪失", -1, @"%ANAME(受け)%の唇", "", @"%ANAME(受け)%の膣", "乱交")
		{
			CALL FUCK(受け, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交, %同性%",
				"キス喪失, 処女喪失, Ａ処女喪失, 膣内射精, 腸内射精, 口内射精",
				GET_ID(攻め),
				@"%ANAME(攻め)%のペニス",
				@"%ANAME(攻め)%",
				"",
				"乱交")
		}
		;ふた女→女
	ELSEIF HAS_PENIS(攻め, 1) && !HAS_PENIS(受け, 1)
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%を貫いている
				PRINTFORML 同じ女だからこその的確な責めに、%ANAME(受け)%は涙を流しながらよがる……
			CASE 1
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%に口で奉仕させている
				PRINTFORML 口に射精した後、%ANAME(攻め)%は%ANAME(受け)%を押し倒した……
			CASE 2
				PRINTFORML %ANAME(受け)%が%ANAME(攻め)%のペニスをお掃除フェラしている
				PRINTFORML 丁寧に肉棒を清めた後、二回戦が始まった……
			CASE 3
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%の両穴を抉っている
				PRINTFORML 同じ女だからこその的確な責めに、%ANAME(受け)%は涙を流しながらよがる……
			CASE 4
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%と口づけを交わしている
				PRINTFORML 次第に我慢できなくなったか、%ANAME(攻め)%が%ANAME(受け)%を押し倒した……
		ENDSELECT
		CALL FUCK(攻め, @"欲望, 性交, 性技, 射精, Ｃ, Ｖ, Ｂ, Ａ, Ｍ, Ｖ挿入, Ａ挿入, キス, %同性%", "童貞喪失, キス喪失", -1, @"%ANAME(受け)%の唇", "", @"%ANAME(受け)%の膣", "乱交")
		{
			CALL FUCK(受け, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交, %同性%",
				"キス喪失, 処女喪失, Ａ処女喪失, 膣内射精, 腸内射精, 口内射精",
				GET_ID(攻め),
				@"%ANAME(攻め)%のペニス",
				@"%ANAME(攻め)%",
				"",
				"乱交")
		}
		;その他
		;女→女,または女→ふた女
	ELSE
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%と絡み合っている
				PRINTFORML お互いにお互いの身体にキスの雨を降らせている……
			CASE 1
				PRINTFORML 白濁にまみれた%ANAME(攻め)%と%ANAME(受け)%が絡み合っている
				PRINTFORML 互いの身体に付着した精液を舐めあっている……
			CASE 2
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%と貝合わせしている
				PRINTFORML 次第に行為は激しくなり、高い声をあげて絶頂した……
			CASE 3
				PRINTFORML %ANAME(攻め)%と%ANAME(受け)%が互いの%STR_BODY("膣", 攻め)%を愛撫しあっている
				PRINTFORML 互いに高めあい、やがって二人同時に絶頂を迎えた……
			CASE 4
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%を組み敷き、愛撫している
				PRINTFORML そのうちに攻守が入れ替わり、%ANAME(受け)%が%ANAME(攻め)%を喘がせ始める……
		ENDSELECT
		IF HAS_PENIS(受け, 1)
			{
				CALL FUCK(攻め, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交, %同性%",
					"キス喪失, 処女喪失, Ａ処女喪失, 膣内射精, 腸内射精, 口内射精",
					GET_ID(受け),
					@"%ANAME(受け)%のペニス",
					@"%ANAME(受け)%",
					"",
					"乱交")
			}
			CALL FUCK(受け, @"欲望, 性交, 性技, 射精, Ｃ, Ｖ, Ｂ, Ａ, Ｍ, Ｖ挿入, Ａ挿入, キス, %同性%", "童貞喪失, キス喪失", -1, @"%ANAME(攻め)%の唇", "", @"%ANAME(攻め)%の膣", "乱交")
		ELSE
			CALL FUCK(攻め, @"欲望, 性交, 性技, Ｃ, Ｖ, Ｂ, Ａ, Ｍ, キス, %同性%", "キス喪失", -1, @"%ANAME(受け)%の唇", "", @"%ANAME(受け)%の膣", "乱交")
			CALL FUCK(受け, @"欲望, 性交, 性技, Ｃ, Ｖ, Ｂ, Ａ, Ｍ, キス, %同性%", "キス喪失", -1, @"%ANAME(攻め)%の唇", "", @"%ANAME(攻め)%の膣", "乱交")
		ENDIF
	ENDIF
	;受けが男の娘の場合
ELSE
	;攻めが男、または攻めがペニス持ち（２０％）
	IF (IS_MALE(攻め) && HAS_PENIS(攻め, 1)) || (HAS_PENIS(攻め, 1) && RAND:100 < 20)
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(受け)%の%STR_BODY("アナル：欲情", 受け)%を、%ANAME(攻め)%が猛然と貫いている
				PRINTFORML %ANAME(受け)%はたまらないという声をあげながらよがっている……
			CASE 1
				PRINTFORML 既に何発も種を受け止めた%ANAME(受け)%は、恍惚の表情を浮かべ%ANAME(攻め)%の肉棒を咥え込んでいる
				PRINTFORML じゅるじゅると亀頭を舐め回され、%ANAME(攻め)%は思わず精を解き放った……
			CASE 2
				PRINTFORML %ANAME(受け)%の%STR_BODY("尻：感触", 受け)%へ%ANAME(攻め)%が執拗に腰をぶつけている
				PRINTFORML 勢い良く肉棒をねじ込まれるたび、%ANAME(受け)%はたまらないという声をあげてよがる……
			CASE 3
				PRINTFORML %ANAME(攻め)%は寝転び、%ANAME(受け)%に騎乗位で腰を振らせている
				PRINTFORML %STR_BODY("アナル：感度", 受け)%でペニスを咥え込んだ%ANAME(受け)%は、腰を振るたび艶やかな声をあげている……
			CASE 4
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%を組み敷いて、乱暴に突きまくっている
				PRINTFORML 尻孔を抉られ、%ANAME(受け)%は獣じみた声をあげてよがっている……
		ENDSELECT
		CALL FUCK(攻め, @"欲望, 性交, 性技, 射精, Ｃ, Ｍ, Ａ挿入, キス, %同性%", "童貞喪失, キス喪失", -1, @"%ANAME(受け)%の唇", "", @"%ANAME(受け)%のアナル", "乱交")
		{
			CALL FUCK(受け, @"欲望, 性技, Ｃ, Ａ, Ｂ, Ｍ, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ａ性交, %同性%",
				"キス喪失, Ａ処女喪失, 腸内射精, 口内射精",
				GET_ID(攻め),
				@"%ANAME(攻め)%のペニス",
				@"%ANAME(攻め)%",
				"",
				"乱交")
		}
		;ふた女/ふた男の娘→男の娘
	ELSEIF HAS_FUTANARI(攻め)
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(攻め)%と%ANAME(受け)%はお互いのペニスをしゃぶりあっている
				PRINTFORML お互いの口にたっぷり射精した後、すぐさま「二回戦」が始まった……
			CASE 1
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%の%STR_BODY("アナル：欲情", 受け)%を貫いている
				PRINTFORML たっぷり種をつけた後、今度は%ANAME(受け)%が%ANAME(攻め)%を貫いた……
			CASE 2
				PRINTFORML %ANAME(攻め)%と%ANAME(受け)%はお互いに口づけながら、ペニスを擦り合わせている
				PRINTFORML 次第に我慢できなくなったか、%ANAME(攻め)%が%ANAME(受け)%を押し倒した……
			CASE 3
				PRINTFORML 白濁にまみれた%ANAME(攻め)%と%ANAME(受け)%が達するたびに交代してお互いを貫きあっている
				PRINTFORML 射精しては射精される様は、性欲が無限になったかのようだ……
			CASE 4
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%を貫きながら、%ANAME(受け)%の肉棒を扱き上げている
				PRINTFORML %ANAME(攻め)%が腸内射精すると同時に、%ANAME(受け)%も精を解き放った……
		ENDSELECT
		{
			CALL FUCK(受け, @"欲望, 性技, Ｃ, Ａ, Ｂ, Ｍ, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ａ性交, Ｖ挿入, Ａ挿入, %同性%",
				"キス喪失, Ａ処女喪失, 童貞喪失, 腸内射精, 口内射精",
				GET_ID(攻め),
				@"%ANAME(攻め)%のペニス",
				@"%ANAME(攻め)%",
				@"%ANAME(攻め)%の膣",
				"乱交")
		}
		{
			CALL FUCK(攻め, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交, Ａ挿入, %同性%",
				"キス喪失, 処女喪失, Ａ処女喪失, 童貞喪失, 膣内射精, 腸内射精, 口内射精",
				GET_ID(受け),
				@"%ANAME(受け)%のペニス",
				@"%ANAME(受け)%",
				@"%ANAME(受け)%のアナル",
				"乱交")
		}
		;男の娘→男の娘
	ELSEIF HAS_PENIS(攻め, 1)
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%を貫いている
				PRINTFORML 同性だからこその的確な責めに、%ANAME(受け)%は涙を流しながらよがる……
			CASE 1
				PRINTFORML %ANAME(攻め)%は%ANAME(受け)%に口で奉仕させている
				PRINTFORML 口に射精した後、%ANAME(攻め)%は%ANAME(受け)%を押し倒した……
			CASE 2
				PRINTFORML %ANAME(受け)%が%ANAME(攻め)%のペニスをお掃除フェラしている
				PRINTFORML 丁寧に肉棒を清めた後、二回戦が始まった……
			CASE 3
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%と兜合わせしている
				PRINTFORML 次第に行為は激しくなり、高い声をあげて絶頂した……
			CASE 4
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%と口づけを交わしている
				PRINTFORML 次第に我慢できなくなったか、%ANAME(攻め)%が%ANAME(受け)%を押し倒した……
		ENDSELECT
		CALL FUCK(攻め, @"欲望, 性交, 性技, 射精, Ｃ, Ｂ, Ａ, Ｍ, Ａ挿入, キス, %同性%", "童貞喪失, キス喪失", -1, @"%ANAME(受け)%の唇", "", @"%ANAME(受け)%のアナル", "乱交")
		{
			CALL FUCK(受け, @"欲望, 性技, Ｃ, Ａ, Ｂ, Ｍ, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ａ性交, %同性%",
				"キス喪失, Ａ処女喪失, 腸内射精, 口内射精",
				GET_ID(攻め),
				@"%ANAME(攻め)%のペニス",
				@"%ANAME(攻め)%",
				"",
				"乱交")
		}
		;その他
		;女→男の娘
	ELSE
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%と絡み合っている
				PRINTFORML お互いにお互いの身体にキスの雨を降らせている……
			CASE 1
				PRINTFORML 白濁にまみれた%ANAME(攻め)%と%ANAME(受け)%が絡み合っている
				PRINTFORML 互いの身体に付着した精液を舐めあっている……
			CASE 2
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%と貝合わせしている
				PRINTFORML 次第に行為は激しくなり、高い声をあげて絶頂した……
			CASE 3
				PRINTFORML %ANAME(攻め)%と%ANAME(受け)%が互いの%STR_BODY("乳首", 受け)%を愛撫しあっている
				PRINTFORML 互いに高めあい、やがって二人同時に絶頂を迎えた……
			CASE 4
				PRINTFORML %ANAME(攻め)%が%ANAME(受け)%を組み敷き、愛撫している
				PRINTFORML そのうちに攻守が入れ替わり、%ANAME(受け)%が%ANAME(攻め)%を喘がせ始める……
		ENDSELECT
		{
			CALL FUCK(攻め, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交, %同性%",
				"キス喪失, 処女喪失, Ａ処女喪失, 膣内射精, 腸内射精, 口内射精",
				GET_ID(受け),
				@"%ANAME(受け)%のペニス",
				@"%ANAME(受け)%",
				"",
				"乱交")
		}
		CALL FUCK(受け, @"欲望, 性交, 性技, 射精, Ｃ, Ｂ, Ａ, Ｍ, Ｖ挿入, Ａ挿入, キス, %同性%", "童貞喪失, キス喪失", -1, @"%ANAME(攻め)%の唇", "", @"%ANAME(攻め)%の膣", "乱交")
	ENDIF
ENDIF
PRINTFORMW

;-------------------------------------------------
;絶頂したことにする
;-------------------------------------------------
@COM51_ADD_SOURCE(対象)
#DIM 対象
SIF HAS_PENIS(対象, 1)
	SOURCE:対象:快Ｐ += 500
SIF HAS_VAGINA(対象, 1)
	SOURCE:対象:快Ｖ += 500

SOURCE:対象:快Ａ += 500
SOURCE:対象:快Ｂ += 500
SOURCE:対象:快Ｍ += 500
SOURCE:対象:快Ｃ += 500

SOURCE:対象:露出 += 200
SOURCE:対象:奉仕 += 30
SOURCE:対象:接触 += 30
SOURCE:対象:性行動 += 200
SOURCE:対象:逸脱 += 30
SOURCE:対象:苦痛 += 50

EX:対象:Ｃ絶頂 += MIN(MIN(ABL:対象:Ｃ感, RAND:10), RAND(100, 120))
SIF HAS_VAGINA(対象, 1)
	EX:対象:Ｖ絶頂 += MIN(MIN(ABL:対象:Ｖ感, RAND:10), RAND(100, 120))
EX:対象:Ａ絶頂 += MIN(MIN(ABL:対象:Ａ感, RAND:10), RAND(100, 120))
EX:対象:Ｂ絶頂 += MIN(MIN(ABL:対象:Ｂ感, RAND:10), RAND(100, 120))
EX:対象:Ｍ絶頂 += MIN(MIN(ABL:対象:Ｍ感, RAND:10), RAND(100, 120))

SIF HAS_PENIS(対象, 1)
	EX:対象:射精 += MIN(MIN(ABL:対象:射精, RAND:10), RAND(100, 120))
SIF TALENT:対象:母乳体質
	EX:対象:噴乳 += MIN(MIN(ABL:対象:噴乳, RAND:10), RAND(100, 120))

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

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