code:
;屈曲位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME38
IF IS_INSERT_SINGLE(MTAR:0, "Ａ") && GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ａ"), 6, 30) && IS_INSERT_MUTUAL(MPLY:0, MTAR:0) != 2
	LOCALS:0 = 二穴屈曲位
ELSE
	LOCALS:0 = 屈曲位
ENDIF

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE38
;共通部分
CALL COM_ABLE_COMMON(38)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;対象にＶが必要
SIF !HAS_VAGINA(MTAR:0, 1)
	RETURN 0
SIF IS_V_HOLD(MTAR:0)
	RETURN 0
;ターゲットのＡが他のキャラの竿で埋まっていて、体位がＡ背面騎乗位以外なら不可
SIF IS_INSERT_SINGLE(MTAR:0, "Ａ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ａ"), 6, 30)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 38)
	RETURN 0
RETURN 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

;射精箇所と対象をセット(ターゲット側)
CALL STACK_SPERM(MTAR:0, MPLY:0, 0)

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

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

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

RETURN 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE38(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%の膣に屈曲位で挿入中

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

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

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

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

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

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

IF TALENT:(MTAR:0):体格 == 体格_小柄
	LOCALS:0 = %LOCALS:0%幼いワレメ
ELSE
	LOCALS:0 = %LOCALS:0%秘裂
ENDIF
IF SEARCH_EQUIP(20, MPLY:0, MTAR:0) != -1 || SEARCH_EQUIP(20, MTAR:0, MPLY:0) != -1
	LOCALS:1 = 口づけを交わしながら
ELSE
	LOCALS:1 =
ENDIF
;ペニスバンド装着中
IF IS_EQUIP_PLAYER((MPLY:0), 50)
	;既に挿入済みの場合
	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)%に求められるまま、%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)%は言われるまま腰の動きを激しくし、%LOCALS:1%上から何度も%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)%に挿入したまま、%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)%に求められるまま、%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)%は言われるまま腰の動きを激しくし、%LOCALS:1%上から何度も%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:0%にペニスを突き入れ%LOCALS:1%腰を動かし%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の下になって、%LOCALS:1%ペニスを自身の%LOCALS:0%へと導いて挿入させた…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、屈曲位で%ANAME(MTAR:0)%を犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を押し倒すと、%LOCALS:1%ペニスを%ANAME(MTAR:0)%の%LOCALS:0%に突き入れて腰を動かした…
		ENDSELECT
	ENDIF
ENDIF

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

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

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

@COM_AVAILABLE_WHEN38
RETURN コマンド_ウフフ

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

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

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


code:
;二人で出掛ける

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME390
RESULTS:0 = 外に誘う
RESULTS:1 = 外に誘われる

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE390
;共通部分
CALL COM_ABLE_COMMON(390)
SIF RESULT == 0
	RETURN 0
;捕虜会話では不可
SIF FLAG:調教モード == 6
	RETURN 0
;主人公がプレイヤーのとき限定
SIF MPLY:0 != MASTER
	RETURN 0
;既にデート中なら選択不可
SIF TFLAG:デート場所
	RETURN 0
;既に出掛けた後なら不可
SIF TFLAG:57 > 0
	RETURN 0
;臨月、育児、怪我なら不可
SIF CFLAG:(MTAR:0):行動不能状態 == 行動不能_臨月 || CFLAG:(MTAR:0):行動不能状態 == 行動不能_育児 || CFLAG:(MTAR:0):行動不能状態 == 3
	RETURN 0
;キス中は不可
SIF IS_EQUIP(MPLY:0, 342)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM390
;実行できるかの判定
CALL COM_ORDER_COMMON
IF RESULT == 0
	RETURN 0
ENDIF

;TFLAG:17にデートの種類を設定
;0=通常、1=パートナーが勝手に決定、2=パートナーの行きたいデート先、3=パートナーが行きたいデート先以外
TFLAG:17 = 0

;相手が行きたいデート先を取得
CALL PARTNER_SELECT_DATE
LOCAL:0 = RESULT

;主導権ポイント計算
LOCAL:2 = GET_INITIATIVE_RATE(MTAR:0)

;相手の主導権ポイントが極端に高い＆パートナーに主導権があると、たまにデートの行き先を勝手に決定される
IF LOCAL:2 >= 40 && MIN(50, LOCAL:2 / 2) > RAND:100 && TFLAG:主導権所有者 == 1
	;相手が握る
	PRINTFORMW %ANAME(MTAR:0)%の行きたいところに連れて行かれた…
	;強制的に大成功になる
	TFLAG:コマンド成否 = 1
	TFLAG:デート場所 = LOCAL:0
	TFLAG:17 = 1

ELSE
	;1/10の確率でパートナーに行きたいデート先あり。選んだデート先が同じ場合ボーナス追加
	IF RAND:10 == 0
		PRINTFORMW %ANAME(MTAR:0)%は%GET_PLACENAME(LOCAL:0)%に行きたいようだ…
	ELSE
		;パートナーに行きたいデート先がない場合LOCAL:0をクリア
		LOCAL:0 = 0
	ENDIF

	;デート先の選択
	CALL SELECT_DATE_PLACE
	IF RESULT == 0
		;キャンセルした場合コマンドを中止
		RETURN 0
	ENDIF
	TFLAG:デート場所 = RESULT

	;相手に行きたい場所の希望がない場合
	IF LOCAL:0 == 0
		;コマンドの成否をTFLAG:コマンド成否にセット
		CALL JUDGE_COM_RESULT(MTAR:0, 5, 5)

		;相手の行きたい場所を選択した場合
	ELSEIF TFLAG:デート場所 == LOCAL:0
		;強制的に大成功になる
		TFLAG:コマンド成否 = 1
		TFLAG:17 = 2

		;相手の行きたい場所と異なる場所を選択した場合
	ELSE
		;コマンドの成否をTFLAG:コマンド成否にセット(通常より厳しい)
		CALL JUDGE_COM_RESULT(MTAR:0, 0, 50)
		TFLAG:17 = 3
	ENDIF
ENDIF

;好感度に応じた歓楽のソース追加
CALL ADD_SOURCE_KANRAKU(MTAR:0, 120)

LOCAL:1 = 0
IF TALENT:(MTAR:0):親愛
	TIMES SOURCE:(MTAR:0):歓楽, 1.20
	SOURCE:(MTAR:0):接触 += 100
	LOCAL:1 += 40
ENDIF

IF TALENT:(MTAR:0):恋慕
	TIMES SOURCE:(MTAR:0):歓楽, 1.20
	SOURCE:(MTAR:0):接触 += 50
	LOCAL:1 += 30
ENDIF

IF TALENT:(MTAR:0):恋人
	TIMES SOURCE:(MTAR:0):歓楽, 1.10
	SOURCE:(MTAR:0):接触 += 100
	LOCAL:1 += 30
ELSEIF CFLAG:(MTAR:0):好感度 > 800
	SOURCE:(MTAR:0):接触 += 50
ENDIF

;親密に応じた愛情のソース追加
CALL ADD_SOURCE_AIZYOU(MTAR:0, LOCAL:1)

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

;失敗
IF TFLAG:コマンド成否 == -1
	TIMES SOURCE:(MTAR:0):歓楽, 0.20
	TIMES SOURCE:(MTAR:0):愛情, 0.20
	TIMES SOURCE:(MTAR:0):接触, 0.20
	SOURCE:(MTAR:0):不満 += 500
	TFLAG:ムード -= 5
	;成功
ELSEIF TFLAG:コマンド成否 == 0

	;大成功
ELSE
	TIMES SOURCE:(MTAR:0):歓楽, 2.00
	TIMES SOURCE:(MTAR:0):愛情, 2.00
	TIMES SOURCE:(MTAR:0):接触, 2.00
ENDIF

EXP:(MPLY:0):デート経験 += 1
EXP:(MTAR:0):デート経験 += 1

;行き先に応じた処理
CALL DATE_START_BYPLACE

TSTR:COM_SITUATION = %TRAIN_PLACE%
TRAIN_PLACE = %GET_PLACENAME(TFLAG:デート場所)%

SIF CFLAG:(MTAR:0):行動不能状態 != 行動不能_子供 || !TALENT:(MTAR:0):幼児
	TFLAG:調教ターン数 += 3

;経過時間のカウント開始
TFLAG:57 ++

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

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

RETURN 1

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

@COM_ORDER_TARGET390(ARG:0)
CALL COM_ORDER_COMMON390(ARG:0)
RETURN 1

@COM_ORDER_COMMON390(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 20

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

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -5)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 3)
ENDIF
IF TALENT:(ARG:0):サボり魔
	CALL COM_ORDER_ELEMENT(ARG:0, "サボり魔", 10)
ENDIF
IF TALENT:(ARG:0):教導
	CALL COM_ORDER_ELEMENT(ARG:0, "教導", 20)
ENDIF
IF IS_MALE(MASTER)
	IF TALENT:(ARG:0):男嫌い
		CALL COM_ORDER_ELEMENT(ARG:0, "男嫌い", -7)
	ENDIF
ELSE
	IF TALENT:(ARG:0):女嫌い
		CALL COM_ORDER_ELEMENT(ARG:0, "女嫌い", -7)
	ENDIF
ENDIF

IF FLAG:調教モード != 調教_居住区
	;好感度
	LOCAL:0 = 0
	IF CFLAG:(ARG:0):好感度 < 300
		IF CFLAG:(ARG:0):好感度 < 100
			LOCAL:0 = -12
		ELSEIF CFLAG:(ARG:0):好感度 < 200
			LOCAL:0 = -8
		ELSE
			LOCAL:0 = -4
		ENDIF
		CALL COM_ORDER_ELEMENT(ARG:0, @"好感度不足", LOCAL:0)
	ELSE
		LOCAL:0 = CFLAG:(ARG:0):好感度 / 75
		CALL COM_ORDER_ELEMENT(ARG:0, @"好感度", LOCAL:0)
	ENDIF

ENDIF

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE390
;主導権が主人公側
IF IS_INITIATIVE(MASTER)
	PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を連れて%GET_PLACENAME(TFLAG:デート場所)%へと向かいました
ELSE
	PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に先導されるようにして%GET_PLACENAME(TFLAG:デート場所)%へと向かいました
ENDIF

IF TFLAG:コマンド成否 == 1
	PRINTFORML %ANAME(MTAR:0)%は、%ANAME(MPLY:0)%と出掛けるのを楽しみにしているようだ…
ELSEIF TFLAG:コマンド成否 == -1
	PRINTFORML どうやら、%ANAME(MTAR:0)%はあまり乗り気ではないようだ…
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST390
;日常コマンドに共通の地の文
CALL COM_TEXT_LAST_LIFE

;---------------------------------------------------------
;パートナーの行きたいデート先の決定
;---------------------------------------------------------
@PARTNER_SELECT_DATE
;選択可能なデート先のリストを作成
LOCAL:1 = 0
FOR LOCAL:0, 1, 50
	IF GET_PLACENAME(LOCAL:0) != "" && LOCAL:0 != TFLAG:デート場所
		;場所ごとの条件判定
		TRYCCALLFORM DATE_PLACE_ABLE{LOCAL:0}
			IF !RESULT
				CONTINUE
			ENDIF
		CATCH
		ENDCATCH

		LOCAL:(LOCAL:1 + 10) = LOCAL:0
		LOCAL:1 ++
	ENDIF
NEXT

;リストからランダムなものを選んで返す
RETURN LOCAL:(RAND:(LOCAL:1) + 10)

;※最終的には、キャラごとの好きな場所(CSVで設定)を出やすくする

;---------------------------------------------------------
;行き先決定
;---------------------------------------------------------
@SELECT_DATE_PLACE
;表示処理
PRINTL どこに向かいますか？

LOCAL:1 = 0
FOR LOCAL:0, 1, 20
	;場所名が未定義、または現在のデート場所と同じなら表示しない
	IF GET_PLACENAME(LOCAL:0) == "" || TFLAG:デート場所 == LOCAL:0
		CONTINUE
	ENDIF

	;場所ごとの条件判定
	TRYCCALLFORM DATE_PLACE_ABLE{LOCAL:0}
		IF !RESULT
			CONTINUE
		ENDIF
	CATCH
	ENDCATCH

	;改行処理
	IF LOCAL:1 > 0 && LOCAL:1 % 3 == 0
		PRINTL
	ENDIF
	LOCAL:1 += 1

	PRINTFORM [{LOCAL:0, 3}] %GET_PLACENAME(LOCAL:0), 16, LEFT%
NEXT
PRINTL
PRINTL [100] やっぱりやめる

$INPUT_LOOP0
INPUT

IF RESULT == 100
	RETURN 0

ELSEIF RESULT >= 0 && RESULT < 20
	LOCAL:5 = RESULT

	;場所名が空白でなく、現在のデート場所と異なる
	IF GET_PLACENAME(LOCAL:5) != "" && LOCAL:5 != TFLAG:デート場所
		;場所ごとの条件判定
		TRYCCALLFORM DATE_PLACE_ABLE{LOCAL:5}
			IF !RESULT
				GOTO INPUT_LOOP0
			ENDIF
		CATCH
		ENDCATCH

		RETURN LOCAL:5
	ENDIF
ENDIF

GOTO INPUT_LOOP0

;---------------------------------------------------------
;デート中の補正
;---------------------------------------------------------
@EQUIP_DATE(ARG:0)
;好感度に応じた歓楽のソース追加
CALL ADD_SOURCE_KANRAKU(ARG:0, 60)

IF TALENT:(ARG:0):サボり魔
	TIMES SOURCE:(ARG:0):歓楽, 1.15
	TIMES SOURCE:(ARG:0):反感, 0.80
	TIMES SOURCE:(ARG:0):不安, 0.80
ENDIF

LOCAL:1 = 0
IF TALENT:(ARG:0):親愛
	SOURCE:(ARG:0):接触 += 40
	LOCAL:1 += 20
ENDIF

IF TALENT:(ARG:0):恋慕
	SOURCE:(ARG:0):接触 += 20
	LOCAL:1 += 20
ENDIF

IF TALENT:(ARG:0):恋人
	SOURCE:(ARG:0):接触 += 40
	LOCAL:1 += 20
ELSEIF CFLAG:(ARG:0):好感度 > 800
	SOURCE:(ARG:0):接触 += 20
ENDIF

;親密に応じた愛情のソース追加
CALL ADD_SOURCE_AIZYOU(ARG:0, LOCAL:1)

;主導権に応じた優越・受動のソース追加
;CALL ADD_SOURCE_INITIATIVE(ARG:0, 100)

;行き先に応じた補正
CALL DATE_EQUIP_BYPLACE(ARG:0)

EXP:(ARG:0):デート経験 += 1
EXP:(ARG:0):デート経験 += 1

;---------------------------------------------------------
;ARG:0番に対応する場所名の取得
;---------------------------------------------------------
@GET_PLACENAME(ARG:0)
#FUNCTIONS
SELECTCASE ARG:0
	CASE 1
		IF FLAG:ウフフフラグ
			RETURNF "ホテル"
		ELSE
			RETURNF "市街地"
		ENDIF
	CASE 2
		RETURNF "遊泳場"
	CASE 3
		RETURNF "花畑"
	CASE 4
		RETURNF "森林"
	CASE 7
		RETURNF "温泉"
	CASE 8
		RETURNF "野外"
ENDSELECT
RETURNF ""

;---------------------------------------------------------
;ARG:0番に対応する場所の地面の名称を取得(射精時の地の文に使用)
;---------------------------------------------------------
@GET_GROUND_NAME(ARG:0)
#FUNCTIONS
SELECTCASE ARG:0
	CASE 2
		RETURNF "地面"
	CASE 3
		RETURNF "地面"
	CASE 4
		RETURNF "地面"
	CASE 8
		RETURNF "地面"
	CASE 7
		RETURNF "床"
	CASE 50
		RETURNF "床"
	CASEELSE
		RETURNF "寝台"
ENDSELECT

;---------------------------------------------------------
;場所固有のデート開始時の処理
;---------------------------------------------------------
@DATE_START_BYPLACE
;川辺
IF TFLAG:デート場所 == 2
	;温泉
ELSEIF TFLAG:デート場所 == 7
ENDIF

;---------------------------------------------------------
;場所固有のデート中の補正
;---------------------------------------------------------
@DATE_EQUIP_BYPLACE(ARG:0)
;城下町
IF TFLAG:デート場所 == 1
	TIMES SOURCE:(ARG:0):歓楽, 1.20
	;ウフフ中
	IF FLAG:ウフフフラグ
		TIMES SOURCE:(ARG:0):愛情, 1.20
	ENDIF

	;川辺
ELSEIF TFLAG:デート場所 == 2
	TIMES SOURCE:(ARG:0):歓楽, 1.07
	;ウフフ中
	IF FLAG:ウフフフラグ
		TIMES SOURCE:(ARG:0):露出, 1.20
		SOURCE:(ARG:0):露出 += 100
	ELSE
		;同性
		IF IS_SAMESEX(MASTER, ARG:0)
			SOURCE:(ARG:0):露出 += 5
			;異性
		ELSE
			SOURCE:(ARG:0):露出 += 20
		ENDIF
	ENDIF
	;ムードの上昇
	TFLAG:ムード += 1

	;花畑
ELSEIF TFLAG:デート場所 == 3
	;ウフフ中
	IF FLAG:ウフフフラグ
		TIMES SOURCE:(ARG:0):露出, 1.30
		SOURCE:(ARG:0):露出 += 150
	ENDIF
	;ムードの上昇
	TFLAG:ムード += RAND:2 + 2

	;森林
ELSEIF TFLAG:デート場所 == 4
	;ウフフ中
	IF FLAG:ウフフフラグ
		TIMES SOURCE:(ARG:0):露出, 1.10
		SOURCE:(ARG:0):露出 += 80
	ENDIF
	;ムードの上昇
	TFLAG:ムード += 1

	;温泉
ELSEIF TFLAG:デート場所 == 7

	;ウフフ中
	IF FLAG:ウフフフラグ
		TIMES SOURCE:(ARG:0):露出, 1.30
		SOURCE:(ARG:0):露出 += 150
	ELSE
		;同性
		IF IS_SAMESEX(MASTER, ARG:0)
			SOURCE:(ARG:0):露出 += 30
			;異性
		ELSE
			SOURCE:(ARG:0):露出 += 100
		ENDIF
	ENDIF
ENDIF

;---------------------------------------------------------
;デート場所によるパラメータ上昇の補正(快感系)
;SOURCE計算中に呼び出される
;---------------------------------------------------------
@UP_DATE_CHECK1(ARG:0)
;城下町
IF TFLAG:デート場所 == 1
	;川辺
ELSEIF TFLAG:デート場所 == 2
	;花畑
ELSEIF TFLAG:デート場所 == 3
	;森林
ELSEIF TFLAG:デート場所 == 4
	;温泉
ELSEIF TFLAG:デート場所 == 7
ENDIF

;---------------------------------------------------------
;デート場所によるパラメータ上昇の補正(快感系以外)
;SOURCE計算中に呼び出される
;---------------------------------------------------------
@UP_DATE_CHECK2(ARG:0)
;城下町
IF TFLAG:デート場所 == 1
	IF PALAM:(ARG:0):哀主 >= 0
		TIMES PALAM:(ARG:0):哀主, 0.90
	ENDIF

	;川辺
ELSEIF TFLAG:デート場所 == 2
	IF PALAM:(ARG:0):怒主 >= 0
		TIMES PALAM:(ARG:0):怒主, 0.90
	ENDIF
	IF PALAM:(ARG:0):怖主 >= 0
		TIMES PALAM:(ARG:0):怖主, 1.10
	ENDIF

	;花畑
ELSEIF TFLAG:デート場所 == 3
	IF PALAM:(ARG:0):怒主 >= 0
		TIMES PALAM:(ARG:0):怒主, 0.90
	ENDIF
	IF PALAM:(ARG:0):哀主 >= 0
		TIMES PALAM:(ARG:0):哀主, 0.85
	ENDIF

	;森林
ELSEIF TFLAG:デート場所 == 4
	IF PALAM:(ARG:0):怒主 >= 0
		TIMES PALAM:(ARG:0):怒主, 0.70
	ENDIF
	IF PALAM:(ARG:0):怖主 >= 0
		TIMES PALAM:(ARG:0):怖主, 1.30
	ENDIF

	;温泉
ELSEIF TFLAG:デート場所 == 7
	IF PALAM:(ARG:0):怒主 >= 0
		TIMES PALAM:(ARG:0):怒主, 0.80
	ENDIF
	IF PALAM:(ARG:0):哀主 >= 0
		TIMES PALAM:(ARG:0):哀主, 0.85
	ENDIF
ENDIF

;---------------------------------------------------------
;デート場所が選択可能かどうかを判定する関数群
;---------------------------------------------------------
;温泉
@DATE_PLACE_ABLE7
;同性で好感度500以上、または合意
IF TALENT:(MTAR:0):合意 || (CFLAG:(MTAR:0):好感度 >= 500 && IS_SAMESEX(MPLY:0, MTAR:0))
	RETURN 1
ENDIF
RETURN 0

;野外
;野外プレイで利用するのみなのでなし
@DATE_PLACE_ABLE8
RETURN 0

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

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

@COM_AVAILABLE_WHEN390
RETURN コマンド_日常

repo_name: napo/erafl

license: unknown


code:
;移動

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME391
RESULTS:0 = 場所を変える
RESULTS:1 = 場所を変える

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE391
;共通部分
CALL COM_ABLE_COMMON(391)
SIF RESULT == 0
	RETURN 0
;主人公がプレイヤーのとき限定
SIF MPLY:0 != MASTER
	RETURN 0
;デート中限定
SIF !TFLAG:デート場所
	RETURN 0
;キス中は不可
SIF IS_EQUIP(MPLY:0, 342)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM391
LOCAL:8 = TFLAG:デート場所

;TFLAG:17にデートの種類を設定
;0=通常、1=パートナーが勝手に決定、2=パートナーの行きたいデート先、3=パートナーが行きたいデート先以外
TFLAG:17 = 0

;相手が行きたいデート先を取得
CALL PARTNER_SELECT_DATE
LOCAL:0 = RESULT

;主導権ポイント計算
LOCAL:2 = GET_INITIATIVE_RATE(MTAR:0)

LOCAL:1 = 0
IF LOCAL:2 >= 50
	LOCAL:1 = MIN(50, LOCAL:2 / 4)
ENDIF

;相手の主導権ポイントが極端に高い＆パートナーに主導権があると、たまにデートの行き先を勝手に決定される
IF LOCAL:1 > RAND:100 && IS_INITIATIVE(MTAR:0) == 1
	PRINTFORMW %ANAME(MTAR:0)%の行きたいところに連れて行かれた…
	TFLAG:デート場所 = LOCAL:0
	TFLAG:17 = 1
ELSE
	;デート先の選択
	CALL SELECT_DATE_PLACE
	IF RESULT == 0
		;キャンセルした場合コマンドを中止
		RETURN 0
	ENDIF
	TFLAG:デート場所 = RESULT
ENDIF

;行き先に応じた処理
CALL DATE_START_BYPLACE

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

TRAIN_PLACE = %GET_PLACENAME(TFLAG:デート場所)%

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

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE391
;主導権が主人公側
IF IS_INITIATIVE(MASTER)
	PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を連れて%GET_PLACENAME(TFLAG:デート場所)%へと向かいました
ELSE
	PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に先導されるようにして%GET_PLACENAME(TFLAG:デート場所)%へと向かいました
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST391
;日常コマンドに共通の地の文
CALL COM_TEXT_LAST_LIFE

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

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

@COM_AVAILABLE_WHEN391
RETURN コマンド_日常


code:
;告白する

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME398
RESULTS:0 = 告白する

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE398
;共通部分
CALL COM_ABLE_COMMON(398)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM != 1
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM != 1
	RETURN 0
;ソロ実行(MPLY == MTARとなるケースは不可)
SIF MTAR:0 == MPLY:0
	RETURN 0
;捕虜調教とかだと駄目
SIF !(FLAG:調教モード == 調教_居住区 || (FLAG:調教モード == 調教_閨))
	RETURN 0
;プレイヤーとターゲットのうちいずれかが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0) || !IS_PLAYABLE(MTAR:0)
	RETURN 0
;主人公がプレイヤーのとき限定
SIF MPLY:0 != MASTER
	RETURN 0
;主人公に主導権があるとき限定
; SIF FLAG:主導権所有者 != MASTER
; 	RETURN 0
SIF TALENT:(MTAR:0):恋人 || IS_SLAVE(MTAR:0) || IS_SLAVED_BY(MTAR:0)
	RETURN 0
;プレイヤーの口が塞がっているなら不可
SIF IS_M_HOLD(MPLY:0)
	RETURN 0
;ターゲットの口が塞がっているなら不可
SIF IS_M_HOLD(MTAR:0)
	RETURN 0
RETURN 1

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

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

CALL COM_ORDER(MTAR:0)

CALL COM_ORDER_ELEMENT(MTAR:0, "好感度", CFLAG:(MTAR:0):好感度 / 50)

IF TALENT:(MTAR:0):恋慕
	CALL COM_ORDER_ELEMENT(MTAR:0, "恋慕", 30)
ENDIF

IF TALENT:(MTAR:0):親友
	CALL COM_ORDER_ELEMENT(MTAR:0, "親友", 15)
ENDIF

IF TALENT:(MTAR:0):親愛
	CALL COM_ORDER_ELEMENT(MTAR:0, "親愛", 30)
ENDIF

IF TALENT:(MTAR:0):キス未経験
	CALL COM_ORDER_ELEMENT(MTAR:0, "キス未経験", -10)
ENDIF

IF TALENT:(MTAR:0):一線越えない
	CALL COM_ORDER_ELEMENT(MTAR:0, "一線越えない", -15)
ENDIF

IF CFLAG:(MTAR:0):捕虜先 == CFLAG:MASTER:所属
	CALL COM_ORDER_ELEMENT(MTAR:0, "捕虜", -40)
ENDIF

;CALL COM_ORDER_ELEMENT(MTAR:0, "閨での告白", -10)

;IF IS_SAMESEX(MASTER, MTAR:0) && !TALENT:(MTAR:0):両刀
IF !IS_SEXUAL(MTAR:0, MASTER)
	CALL COM_ORDER_ELEMENT(MTAR:0, "恋愛対象外", -20)
ENDIF

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

;判定成功
IF TCVAR:(MTAR:0):判定値 >= TCVAR:(MTAR:0):実行値
	;口上表示
	CALL KOJO_EVENT(MTAR:0, 2)

	;恋人になる処理
	CALL GET_LOVERS(MTAR:0)

	;キスの共通処理
	CALL KISS_COMMON(MPLY:0, @"%ANAME(MTAR:0)%の唇", GET_SITUATION_BY_TRAIN_MODE())
	CALL KISS_COMMON(MTAR:0, @"%ANAME(MPLY:0)%の唇", GET_SITUATION_BY_TRAIN_MODE())
	EXP:(MPLY:0):キス経験 += 1
	EXP:(MTAR:0):キス経験 += 1

	IF TALENT:(MTAR:0):恋慕 || TALENT:(MTAR:0):親友
		SOURCE:(MTAR:0):歓喜 += 3000
	ELSE
		SOURCE:(MTAR:0):歓喜 += 500
	ENDIF

	;判定失敗
ELSE
	;口上表示
	CALL KOJO_EVENT(MTAR:0, 3)
	IF TALENT:(MTAR:0):恋慕 || TALENT:(MTAR:0):親友
		SOURCE:(MTAR:0):反感 += 100
		SOURCE:(MTAR:0):不安 += 200
	ELSE
		SOURCE:(MTAR:0):反感 += 500
	ENDIF
ENDIF

RETURN 1

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

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

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


code:
;告白する

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME399
RESULTS:0 = 告白する

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE399
;共通部分
CALL COM_ABLE_COMMON(399)
SIF RESULT == 0
	RETURN 0
;主人公がプレイヤーのとき限定
SIF MPLY:0 != MASTER
	RETURN 0

SIF TALENT:(MTAR:0):恋人 || IS_SLAVE(MTAR:0) || IS_SLAVED_BY(MTAR:0)
	RETURN 0

;キス中は不可
SIF IS_EQUIP(MPLY:0, 342)
	RETURN 0
RETURN 1

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

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

CALL COM_ORDER(MTAR:0)

CALL COM_ORDER_ELEMENT(MTAR:0, "好感度", CFLAG:(MTAR:0):好感度 / 50)

IF TALENT:(MTAR:0):恋慕
	CALL COM_ORDER_ELEMENT(MTAR:0, "恋慕", 30)
ENDIF

IF TALENT:(MTAR:0):親友
	CALL COM_ORDER_ELEMENT(MTAR:0, "親友", 15)
ENDIF

IF TALENT:(MTAR:0):親愛
	CALL COM_ORDER_ELEMENT(MTAR:0, "親愛", 30)
ENDIF

IF TALENT:(MTAR:0):キス未経験
	CALL COM_ORDER_ELEMENT(MTAR:0, "キス未経験", -10)
ENDIF

IF TALENT:(MTAR:0):一線越えない
	CALL COM_ORDER_ELEMENT(MTAR:0, "一線越えない", -15)
ENDIF

IF CFLAG:(MTAR:0):捕虜先 == CFLAG:MASTER:所属
	CALL COM_ORDER_ELEMENT(MTAR:0, "捕虜", -40)
ENDIF

IF TFLAG:ムード < 10
	LOCAL:0 = -10
ELSEIF TFLAG:ムード < 30
	LOCAL:0 = -5
ELSEIF TFLAG:ムード < 50
	LOCAL:0 = 0
ELSEIF TFLAG:ムード < 100
	LOCAL:0 = (TFLAG:ムード - 50) / 10
ELSE
	LOCAL:0 = MIN(10, (TFLAG:ムード - 100) / 50 + 5)
ENDIF
;CALL COM_ORDER_ELEMENT(MTAR:0, "ムード", LOCAL:0)

IF IS_SAMESEX(MASTER, MTAR:0) && !TALENT:(MTAR:0):両刀
	CALL COM_ORDER_ELEMENT(MTAR:0, "恋愛対象外", -20)
ENDIF

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

;判定成功
IF TCVAR:(MTAR:0):判定値 >= TCVAR:(MTAR:0):実行値
	;口上表示
	CALL KOJO_EVENT(MTAR:0, 2)

	;恋人になる処理
	CALL GET_LOVERS(MTAR:0)

	;キスの共通処理
	CALL KISS_COMMON(MPLY:0, @"%ANAME(MTAR:0)%の唇", GET_SITUATION_BY_TRAIN_MODE())
	CALL KISS_COMMON(MTAR:0, @"%ANAME(MPLY:0)%の唇", GET_SITUATION_BY_TRAIN_MODE())
	EXP:(MPLY:0):キス経験 += 1
	EXP:(MTAR:0):キス経験 += 1

	IF TALENT:(MTAR:0):恋慕 || TALENT:(MTAR:0):親友
		SOURCE:(MTAR:0):歓喜 += 3000
	ELSE
		SOURCE:(MTAR:0):歓喜 += 500
	ENDIF

	;判定失敗
ELSE
	;口上表示
	CALL KOJO_EVENT(MTAR:0, 3)
	IF TALENT:(MTAR:0):恋慕 || TALENT:(MTAR:0):親友
		SOURCE:(MTAR:0):反感 += 100
		SOURCE:(MTAR:0):不安 += 200
	ELSE
		SOURCE:(MTAR:0):反感 += 500
	ENDIF
ENDIF

RETURN 1

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

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

@COM_AVAILABLE_WHEN399
RETURN コマンド_日常


code:
;屈曲位

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE39
;共通部分
CALL COM_ABLE_COMMON(39)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;対象にＶが必要
SIF !HAS_VAGINA(MTAR:0, 1)
	RETURN 0
SIF IS_V_HOLD(MTAR:0)
	RETURN 0
;ターゲットのＡが他のキャラの竿で埋まっていて、体位がＡ背面駅弁以外なら不可
SIF IS_INSERT_SINGLE(MTAR:0, "Ａ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ａ"), 10, 30)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 39)
	RETURN 0
RETURN 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

RETURN 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

IF TALENT:(MTAR:0):体格 == 体格_小柄
	LOCALS:0 = %LOCALS:0%幼いワレメ
ELSE
	LOCALS:0 = %LOCALS:0%秘裂
ENDIF
IF SEARCH_EQUIP(20, MPLY:0, MTAR:0) != -1 || SEARCH_EQUIP(20, MTAR:0, MPLY:0) != -1
	LOCALS:1 = 口づけを交わしながら
ELSE
	LOCALS:1 =
ENDIF
;ペニスバンド装着中
IF IS_EQUIP_PLAYER((MPLY:0), 50)
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、%LOCALS:1%装着した張り型を%ANAME(MTAR:0)%の%LOCALS:0%に突き入れ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に自らを持ち上げさせ、%LOCALS:1%自身の%LOCALS:0%へと張り型を導いて挿入させた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、駅弁で%ANAME(MTAR:0)%を犯すように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、%LOCALS:1%装着した張り型を%ANAME(MTAR:0)%の%LOCALS:0%に突き入れた…
	ENDSELECT
;ペニスバンド不使用
ELSE
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、%ANAME(MTAR:0)%の%LOCALS:0%にペニスを突き入れ%LOCALS:1%腰を動かし%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW  %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に自らを持ち上げさせ、%LOCALS:1%ペニスを自身の%LOCALS:0%へと導いて挿入させた…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、駅弁で%ANAME(MTAR:0)%を犯すように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を持ち上げると、%LOCALS:1%ペニスを%ANAME(MTAR:0)%の%LOCALS:0%に突き入れて腰を動かした…
	ENDSELECT
ENDIF

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

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

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

@COM_AVAILABLE_WHEN39
RETURN コマンド_ウフフ

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

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

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


code:
;指挿入れ

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME3
IF MTAR:0 != -1 &&IS_EQUIP_TARGET(MTAR:0, 61)
	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_CATEGORY3
IF FLAG:調教モード != 調教_居住区 && FLAG:調教モード != 調教_クエスト
	RETURN 0
ELSE
	RETURN 10
ENDIF

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE3
;共通部分
CALL COM_ABLE_COMMON(3)
SIF RESULT == 0
	RETURN 0
;1+ players
SIF MPLY_NUM <= 0
	RETURN 0
;ターゲットはプレイヤーの倍まで
SIF MTAR_NUM <= 0 || MTAR_NUM > MPLY_NUM * 2
	RETURN 0

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

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

RETURN 1

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

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

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):性技経験値 += MTAR_NUM / 2 + 1

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

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

	;奉仕経験値を得られるコマンドのフラグ
	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

		;ターゲットが処女なら快感減少
		IF TALENT:(LOCAL:3):処女 == 1
			TIMES LOCAL:4, 0.75
		ENDIF

		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):露出 = 80
	SOURCE:(LOCAL:1):接触 = 60
	SOURCE:(LOCAL:1):性行動 = 300

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

	;無自覚処女なら処女喪失フラグを立てる
	IF TALENT:(LOCAL:1):処女 == 2
		IF IS_MPLY(MASTER)
			;処女喪失フラグ(主人に性交以外で奪われる)
			TCVAR:(LOCAL:1):処女喪失フラグ = 2
		ELSE
			;処女喪失フラグ(主人以外に性交以外で奪われる)
			TCVAR:(LOCAL:1):処女喪失フラグ = 4
		ENDIF
	ENDIF
NEXT

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP3(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):性技経験値 += MAX(MEQUIP_TARGET_NUM:(ARG:0) / 2 + 1, 1)

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

	;奉仕経験値を得られるコマンドのフラグ
	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
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):性行動 += 100

NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE3(ARG:0)
IF IS_EQUIP_TARGET(MEQUIP_TARGET:(ARG:0):0, 61)
	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_EQUIP3(ARG:0)
IF IS_EQUIP_TARGET(MEQUIP_TARGET:(ARG:0):0, 61)
	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_EQUIP3(ARG:0)

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

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

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

LOCAL:0 = GET_PALAMLV(PALAM:(ARG:0):欲情)
CALL COM_ORDER_ELEMENT(ARG:0, @"欲情Lv{LOCAL:0}", MIN(LOCAL:0 * 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_BEFORE3
;ターゲットが２人のとき
IF MTAR_NUM == 2
	LOCALS:0 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	;ターゲットが１人のとき
ELSE
	LOCALS:0 = %ANAME(MTAR:0)%
ENDIF
IF MTAR_NUM == 2 && IS_PIERCED(MTAR:0, ピアス_ラビア) && IS_PIERCED(MTAR:1, ピアス_ラビア)
	LOCALS:1 = ピアスの取り付けられた
ELSEIF MTAR_NUM == 1 && IS_PIERCED(MTAR:0, ピアス_ラビア)
	LOCALS:1 = ピアスの取り付けられた
ELSE
	LOCALS:1 =
ENDIF
SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		IF IS_EQUIP_TARGET(MTAR:0, 61)
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%の%LOCALS:1%秘所で振動するバイブを抜き差しして責め立て%TARGET_STR("た", "てきた")%…
		ELSEIF TALENT:(MTAR:0):処女 == 1
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%の処女膜を指先でなぞるようにして弄ん%TARGET_STR("だ", "できた")%…
		ELSEIF IS_MPLY(MASTER) && MTAR_NUM == 1 && PALAM:(MTAR:0):潤滑 > PALAMLV:5
			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, 61)
			PRINTFORMW %LOCALS:0%は自身の%LOCALS:1%秘所で振動するバイブを%ANAME(MPLY:0)%に握らせ、抜き差しさせた…
		ELSEIF TALENT:(MTAR:0):処女 == 1
			PRINTFORMW %LOCALS:0%は%ANAME(MPLY:0)%の指を自身のまだ乙女の%LOCALS:1%秘唇に押し当て、優しく撫でるように命じた…
		ELSE
			PRINTFORMW %LOCALS:0%は%ANAME(MPLY:0)%の指を自身の%LOCALS:1%秘唇に挿入させ、中を愛撫させた…
		ENDIF
		;第三者に主導権
	CASEELSE
		IF IS_EQUIP_TARGET(MTAR:0, 61)
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:0%の膣に挿れられたバイブを動かすよう命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%の%LOCALS:1%秘所で振動するバイブを抜き差しして責め立てた…
		ELSEIF TALENT:(MTAR:0):処女 == 1
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:0%の%LOCALS:1%膣に指を入れて愛撫するよう命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%の処女膜をなぞるようにして愛撫した…
		ELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:0%の%LOCALS:1%膣に指を入れて愛撫するよう命令した
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%の秘唇に指を挿れて中を弄り回した…
		ENDIF
ENDSELECT

IF !IS_EQUIP_TARGET(MTAR:0, 61) && (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_LAST3
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
	ENDIF
NEXT

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

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

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

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

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


code:
;Ａ正常位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME40
IF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 6, 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_ABLE40
CALL COM_ABLE_COMMON(40)
SIF RESULT == 0
	RETURN 0
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
SIF IS_A_HOLD(MTAR:0)
	RETURN 0
;being fucked vaginally, unless it's reverse cowgirl
SIF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 6, 30)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 40)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM40
;実行判定
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_EQUIP40
RETURN 1

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

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP40(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_EQUIP40(ARG:0)
PRINTFORMW %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の尻穴から%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を引き抜いた…

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

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

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

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

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

@COM_AVAILABLE_WHEN40
RETURN コマンド_ウフフ

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

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

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


code:
;Ａ後背位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME41

IF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 3, 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_ABLE41
;共通部分
CALL COM_ABLE_COMMON(41)
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_A_HOLD(MTAR:0)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 41)
	RETURN 0
;fucked vaginally unless it's cowgirl, sitting in lap
SIF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 3, 5, 30)
	RETURN 0
SIF REACHING_BODY(MTAR, MPLY)
	RETURN 0
SIF REACHING_GROIN(MTAR, MPLY)
	RETURN 0
SIF LICKING_BODY(MTAR, MPLY) || LICKING_BODY(MPLY, MTAR)
	RETURN 0
RETURN 1

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

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

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP41(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_EQUIP41(ARG:0)
PRINTFORMW %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の尻穴から%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を引き抜いた…

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE41
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)%を押し倒して後ろから覆い被さると、%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)%に見せつけるように%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)%は%LOCALS:1%張り型を後ろから%ANAME(MTAR:0)%の%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)%を四つん這いにすると、%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)%の%STR_BODY("尻：腰：長", MTAR:0)%を掴むと、%LOCALS:2%さらに激しく腰を動かして尻穴を突い%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)%に見せつけるように%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: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)%を四つん這いにすると、%LOCALS:1%%ANAME(MTAR:0)%の%LOCALS:0%にペニスを突き入れて腰を振った…
		ENDSELECT
	ENDIF
ENDIF
SIF GET_HIPSIZE(MTAR:0) >= 1
	PRINTFORML %ANAME(MTAR:0)%の豊かな尻肉は、抽送のたびにふるふると震えている……
;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST41
SIF IS_PIERCED(MPLY:0, ピアス_ペニス)
	PRINTFORML %ANAME(MPLY:0)%のペニスに取り付けられたピアスが、%ANAME(MTAR:0)%のアヌスをごりごりと抉っていく……

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

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

@COM_AVAILABLE_WHEN41
RETURN コマンド_ウフフ

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

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

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


code:
;Ａ対面座位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME42
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_ABLE42
;共通部分
CALL COM_ABLE_COMMON(42)
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_A_HOLD(MTAR:0)
	RETURN 0
;being fucked in the vagina
SIF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 30)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 42)
	RETURN 0
;receiving cunnilingus, BJ, rimjob, glans blowjob
SIF IS_EQUIP_TARGET(MPLY:0, 2, 11, 8, 107) || IS_EQUIP_TARGET(MTAR:0, 2, 11, 8, 107)
	RETURN 0
;giving facefuck
SIF IS_EQUIP_PLAYER(MPLY:0, 90) || IS_EQUIP_PLAYER(MTAR:0, 90)
	RETURN 0
RETURN 1

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

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

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

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

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

IF MTAR:0 == MASTER
	CALL ADD_SOURCE_AIZYOU(MPLY:0, 130)
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):体力 += 120

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

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

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

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

;快Ｃの補正
IF PALAM:(MTAR:0):潤滑 < PALAMLV:1
	TIMES SOURCE:(MTAR:0):快Ｃ, 0.30
ELSEIF PALAM:(MTAR:0):潤滑 < PALAMLV:3
	TIMES SOURCE:(MTAR:0):快Ｃ, 0.70
ELSEIF PALAM:(MTAR:0):潤滑 < PALAMLV:5
	TIMES SOURCE:(MTAR:0):快Ｃ, 1.00
ELSEIF PALAM:(MTAR:0):潤滑 < PALAMLV:7
	TIMES SOURCE:(MTAR:0):快Ｃ, 1.20
ELSEIF PALAM:(MTAR:0):潤滑 >= PALAMLV:7
	TIMES SOURCE:(MTAR:0):快Ｃ, 1.40
ENDIF

IF MPLY:0 == MASTER
	IF CFLAG:(MTAR:0):好感度 <= 100
		TIMES SOURCE:(MTAR:0):快Ｃ, 0.50
	ELSEIF CFLAG:(MTAR:0):好感度 <= 300
		TIMES SOURCE:(MTAR:0):快Ｃ, 0.70
	ELSEIF CFLAG:(MTAR:0):好感度 <= 500
		TIMES SOURCE:(MTAR:0):快Ｃ, 0.80
	ELSEIF CFLAG:(MTAR:0):好感度 <= 800
		TIMES SOURCE:(MTAR:0):快Ｃ, 1.00
	ELSEIF CFLAG:(MTAR:0):好感度 <= 1500
		TIMES SOURCE:(MTAR:0):快Ｃ, 1.30
	ELSE
		SOURCE:(MTAR:0):快Ｃ = SOURCE:(MTAR:0):快Ｃ * ((CFLAG:(MTAR:0):好感度 - 1500) / 200 + 150) / 100
	ENDIF
ENDIF

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

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

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

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP42(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, 450)
SOURCE:(LOCAL:2):露出 += 25
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, 450)
SOURCE:(LOCAL:3):露出 += 100
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_MESSAGE42(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルに対面座位で挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP42(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)%を抱きしめる腕に力を入れると、自ら快感を貪るように激しく尻を上下させている…
					;第三者に主導権
				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)%の体を抱きしめ直すと、さらに力を込めて%EQUIP_TARGET_ANAME(ARG:0)%の尻穴を突き上げている…
			ENDSELECT
		ENDIF
ENDSELECT

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

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE42
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)%を抱きしめたまま、%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%%ANAME(MTAR:0)%を抱きしめて腰を突き上げ%TARGET_STR("た", "てきた")%…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が対面座位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%を抱きしめる腕に力を入れると、%LOCALS:1%自ら快感を貪るように激しく尻を上下させ%PLAYER_STR("た", "てきた")%…
				;正常位・騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%の体を抱きしめると、%LOCALS:1%密着したまま自ら快感を貪るように尻を動かし始めた…
				;後背位・背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の正面に向き直りその体を抱きしめると、%LOCALS:1%密着したまま自ら快感を貪るように尻を動かし始めた…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が対面座位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に対面座位で挿入する%ANAME(MPLY:0)%に対し、もっと激しく腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の体を抱きしめ直すと、%LOCALS:1%さらに力を込めて%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%%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)%を抱きしめながら%LOCALS:1%張り型を自らの%LOCALS:0%で咥え込み、腰を動かした…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、対面座位で%ANAME(MTAR:0)%の尻穴に挿入するように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を抱きしめながら%LOCALS:1%張り型を%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)%を抱きしめたまま、%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%%ANAME(MTAR:0)%を抱きしめて腰を突き上げ%TARGET_STR("た", "てきた")%…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が対面座位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%を抱きしめる腕に力を入れると、%LOCALS:1%尻穴を締め付けながら腰を振り%ANAME(MPLY:0)%のペニスを擦り上げ%PLAYER_STR("た", "てきた")%…
				;正常位・騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%の体を抱きしめると、%LOCALS:1%密着したまま尻を振って%ANAME(MPLY:0)%のペニスを擦り上げ%PLAYER_STR("た", "てきた")%…
				;後背位・背面座位・背面騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の正面に向き直りその体を抱きしめると、%LOCALS:1%密着したまま尻を振って%ANAME(MPLY:0)%のペニスを擦り上げ%PLAYER_STR("た", "てきた")%…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が対面座位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に対面座位で挿入する%ANAME(MPLY:0)%に対し、もっと激しく腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の体を抱きしめ直すと、%LOCALS:1%さらに力を込めて%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%%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)%を抱きしめながら腰を降ろして、%LOCALS:1%%LOCALS:0%で%ANAME(MPLY:0)%のペニスを飲み込ん%TARGET_STR("だ", "できた")%…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、対面座位で%ANAME(MTAR:0)%の尻穴を犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を抱きしめながら%LOCALS:1%%LOCALS:0%へと挿入し、腰を突き上げた…
		ENDSELECT
	ENDIF
ENDIF
SIF GET_HIPSIZE(MTAR:0) >= 1
	PRINTFORML %ANAME(MTAR:0)%の豊かな尻肉は、抽送のたびにふるふると震えている……
;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST42
SIF IS_PIERCED(MPLY:0, ピアス_ペニス)
	PRINTFORML %ANAME(MPLY:0)%のペニスに取り付けられたピアスが、%ANAME(MTAR:0)%のアヌスをごりごりと抉っていく……

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

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

@COM_AVAILABLE_WHEN42
RETURN コマンド_ウフフ

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

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

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


code:
;Ａ背面座位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME43
IF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 1, 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_ABLE43
;共通部分
CALL COM_ABLE_COMMON(43)
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_A_HOLD(MTAR:0)
	RETURN 0
;being fucked in the vagina, unless it's sitting or missionary
SIF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 1, 3, 30)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 43)
	RETURN 0
SIF REACHING_BODY(MTAR, MPLY)
	RETURN 0
SIF REACHING_GROIN(MTAR, MPLY)
	RETURN 0
SIF LICKING_BODY(MTAR, MPLY) || LICKING_BODY(MPLY, MTAR)
	RETURN 0
RETURN 1

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

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

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

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

SOURCE:(MPLY:0):快Ｐ = SENSE_SEX_PLAYER_P(MTAR:0, MPLY:0, 900)
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):体力 += 160

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

SOURCE:(MTAR:0):快Ｃ = SENSE_SEX_TARGET(MPLY:0, MTAR:0, 500)
SOURCE:(MTAR:0):快Ｂ = SENSE_SEX_TARGET(MPLY:0, MTAR:0, 500)
SOURCE:(MTAR:0):快Ａ = SENSE_SEX_TARGET(MPLY:0, MTAR:0, 900)
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 = 4
TCVAR:(MTAR:0):35 = 4

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP43(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, 450)
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, 250)
SOURCE:(LOCAL:3):快Ｂ += SENSE_SEX_TARGET(LOCAL:2, LOCAL:3, 250)
SOURCE:(LOCAL:3):快Ａ += SENSE_SEX_TARGET(LOCAL:2, LOCAL:3, 450)
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_MESSAGE43(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルに背面座位で挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP43(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)%の愛撫に身を任せながら、自らも快感を貪るように尻を振っている…
					;第三者に主導権
				CASEELSE
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%EQUIP_TARGET_ANAME(ARG:0)%に背面座位で挿入している%EQUIP_PLAYER_ANAME(ARG:0)%に対し、もっと%EQUIP_TARGET_ANAME(ARG:0)%を責めるように命令し
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%へ愛撫しながら、腰を突き上げて%EQUIP_TARGET_ANAME(ARG:0)%の尻穴を激しく犯している…
			ENDSELECT
		ENDIF
ENDSELECT

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

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE43
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%背後から%ANAME(MTAR:0)%を抱き締めて再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を後ろ向きにすると、%LOCALS:1%背後から%ANAME(MTAR:0)%を抱き上げて再び腰を動かし始めた…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が背面座位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の愛撫に身を任せながら、%LOCALS:1%自らも快感を貪るように尻を振っ%PLAYER_STR("た", "てきた")%…
				;後背位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に背中を預けて後ろから抱き締めさせると、%LOCALS:1%背面座位の体勢で尻穴を突き上げさせた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%に背中を預けると、%LOCALS:1%自ら快感を貪るように尻を振っ%PLAYER_STR("た", "てきた")%…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が背面座位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に背面座位で挿入している%ANAME(MPLY:0)%に対し、もっと%ANAME(MTAR:0)%を責めるように命令した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%への愛撫を激しくしながら、%LOCALS:1%再び腰を突き上げて%ANAME(MTAR:0)%の尻穴を犯していった…
				;後背位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を背面座位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%の体を抱き上げると、%LOCALS:1%背後から%ANAME(MTAR:0)%を抱き締めて再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を背面座位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を後ろ向きにすると、%LOCALS:1%背後から%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)%に背中を預けて後ろから抱き締めさせると、%LOCALS:1%背後から%LOCALS:0%に張り型を挿入させて腰を突き上げさせた…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、背面座位で%ANAME(MTAR:0)%の尻穴を犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の身体を背後から抱き上げると、%LOCALS:1%%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)%の体を愛撫しつつ、%LOCALS:1%さらに激しく尻穴を突き上げ%TARGET_STR("た", "てきた")%…
				;後背位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%の体を抱き上げると、%LOCALS:1%背後から%ANAME(MTAR:0)%を抱き締めて再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を後ろ向きにすると、%LOCALS:1%背後から%ANAME(MTAR:0)%を抱き上げて再び腰を動かし始めた…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が背面座位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の愛撫に身を任せながら、%LOCALS:1%自ら尻を振ってペニスを擦り上げ%PLAYER_STR("た", "てきた")%…
				;後背位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に背中を預けて後ろから抱き締めさせると、%LOCALS:1%自ら尻を振ってペニスを擦り上げ%PLAYER_STR("た", "てきた")%…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま%ANAME(MPLY:0)%に背中を預けると、%LOCALS:1%自ら尻を振ってペニスを擦り上げ%PLAYER_STR("た", "てきた")%…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が背面座位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に背面座位で挿入している%ANAME(MPLY:0)%に対し、もっと%ANAME(MTAR:0)%を責めるように命令した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%への愛撫を激しくしながら、%LOCALS:1%再び腰を突き上げて%ANAME(MTAR:0)%の尻穴を突き上げた…
				;後背位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を背面座位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%の体を抱き上げると、%LOCALS:1%背後から%ANAME(MTAR:0)%を抱き締めて再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を背面座位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を後ろ向きにすると、%LOCALS:1%背後から%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)%に背中を預けて後ろから抱き締めさせると、%LOCALS:1%背後から%LOCALS:0%に挿入させて腰を突き上げさせた…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、背面座位で%ANAME(MTAR:0)%の尻穴を犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の身体を背後から抱き上げると、%LOCALS:1%%LOCALS:0%を貫いて愛撫しながら腰を突き上げた…
		ENDSELECT
	ENDIF
ENDIF
;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST43
SIF IS_PIERCED(MPLY:0, ピアス_ペニス)
	PRINTFORML %ANAME(MPLY:0)%のペニスに取り付けられたピアスが、%ANAME(MTAR:0)%のアヌスをごりごりと抉っていく……

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

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

@COM_AVAILABLE_WHEN43
RETURN コマンド_ウフフ

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

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

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