code:
;パイズリ

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

IF IS_RIDE(MPLY:0, MTAR:0)
	LOCALS:1 = "顔騎"
ELSE
	LOCALS:1 =
ENDIF

IF IS_FEMALE(MPLY:0)
	IF GET_BUSTSIZE(MPLY:0) >= 0
		LOCALS:1 = Paizuri
	ELSE
		LOCALS:1 = Naizuri
	ENDIF
ELSE
	LOCALS:1 = Chestjob
ENDIF

IF MPLY_NUM == 3
	LOCALS:0 = Ｔ%LOCALS:1%
ELSEIF MPLY_NUM == 2
	LOCALS:0 = Ｗ%LOCALS:1%
ELSEIF SEARCH_EQUIP(107, MPLY:0, MTAR:0) >= 0
	LOCALS:0 = Paizuri+BJ
ELSE
	LOCALS:0 = %LOCALS:1%
ENDIF

RESULTS:0 = Do %LOCALS:0%
RESULTS:1 = Get ordered to %LOCALS:0%
RESULTS:2 = Order %LOCALS:0%
RESULTS:3 = Get %LOCALS:0%
RESULTS:4 = Make do %LOCALS:0%
RESULTS:5 = Show %LOCALS:0% off
;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE12
;共通部分
CALL COM_ABLE_COMMON(12)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で3人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 3
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;ターゲットに竿が必要
SIF !HAS_PENIS(MTAR:0)
	RETURN 0
SIF !P_STACKABLE(MPLY:0, MTAR:0, 12)
	RETURN 0
;grovelling
SIF IS_EQUIP_PLAYER(MTAR:0, 110)
	RETURN 0
FOR LOCAL:0, 0, MPLY_NUM
	;this covers most common problems
	SIF !CAN_REACH_BODY(MPLY:(LOCAL:0), MTAR:0) && !FLAG:RECHECKING
		RETURN 0
	SIF IS_RIDDEN(MPLY:(LOCAL:0), MTAR:0)
		RETURN 0
	SIF IS_INSERT_MUTUAL(MPLY:(LOCAL:0), MTAR:0) > 0
		RETURN 0
	;getting assjob
	SIF SEARCH_EQUIP(15, MTAR:0, MPLY:(LOCAL:0)) >= 0
		RETURN 0
NEXT

RETURN 1

;-------------------------------------------------
;快Ｂソースの倍率を取得する関数 ARG:0=PLAYERのキャラ番号
;-------------------------------------------------
@COM12_RATE_B(ARG:0)
#FUNCTION
LOCAL:5 = 1000
SELECTCASE ABL:(ARG:0):奉仕
	CASE 0
		TIMES LOCAL:5, 0.50
	CASE 1
		TIMES LOCAL:5, 0.80
	CASE 2
		TIMES LOCAL:5, 1.00
	CASE 3
		TIMES LOCAL:5, 1.20
	CASE 4
		TIMES LOCAL:5, 1.40
	CASEELSE
		LOCAL:5 = LOCAL:5 * (150 + (ABL:(LOCAL:2):奉仕 - 5) * 2) / 100
ENDSELECT

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

RETURNF LOCAL:5

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

LOCAL:1 = -1
;フェラ状況を待避
IF MPLY_NUM == 1 && MTAR_NUM == 1
	LOCAL:1 = SEARCH_EQUIP(11, MPLY:0, MTAR:0)
ENDIF

;パイズリ状況を復元
IF LOCAL:1 >= 0
	CALL SET_EQUIP(11, 1)
ENDIF

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

SELECTCASE MPLY_NUM
	CASE 2
		TIMES LOCAL:10, 0.75
	CASE 3
		TIMES LOCAL:10, 0.60
ENDSELECT

SELECTCASE MTAR_NUM
	CASE 2
		TIMES LOCAL:10, 0.75
ENDSELECT

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

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

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

	SOURCE:(LOCAL:2):奉仕 = SERVE_HOUSHI(LOCAL:2, 450)
	SOURCE:(LOCAL:2):接触 = 50
	SOURCE:(LOCAL:2):快Ｂ = 200 * COM12_RATE_B(LOCAL:2) / 1000
	SOURCE:(LOCAL:2):性行動 = 300

	;口枷装着中なら無視
	IF !IS_EQUIP_TARGET(LOCAL:2, 86)
		SOURCE:(LOCAL:2):快Ｍ = 100 * COM11_RATE_M(LOCAL:2) / 1000
	ENDIF

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

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

	;全ターゲットに与える快感系ソースを計算
	FOR LOCAL:1, 0, MTAR_NUM
		LOCAL:3 = MTAR:(LOCAL:1)
		LOCAL:4 = SENSE_HOUSHI_P(LOCAL:2, LOCAL:3, 1600) * LOCAL:10 / 100
		;口枷装着中なら効果低下
		IF !IS_EQUIP_TARGET(LOCAL:2, 86)
			TIMES LOCAL:4, 0.90
		ELSEIF TALENT:(LOCAL:3):舌使い
			TIMES LOCAL:4, 1.20
		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):接触 = 50
	SOURCE:(LOCAL:1):性行動 = 180

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

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

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

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

RETURN 1

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

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

SELECTCASE MEQUIP_PLAYER_NUM:(ARG:0)
	CASE 2
		TIMES LOCAL:10, 0.75
	CASE 3
		TIMES LOCAL:10, 0.60
ENDSELECT

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

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

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

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

	SOURCE:(LOCAL:2):奉仕 += SERVE_HOUSHI(LOCAL:2, 170)
	SOURCE:(LOCAL:2):接触 += 25
	SOURCE:(LOCAL:2):快Ｂ += 75 * COM12_RATE_B(LOCAL:2) / 1000
	SOURCE:(LOCAL:2):快Ｍ += 40 * COM11_RATE_M(LOCAL:2) / 1000
	SOURCE:(LOCAL:2):性行動 += 100

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

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

	NEXT
NEXT

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

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

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE12(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%にパイズリ中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP12(ARG:0)
LOCAL:2 = 0
FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	IF GET_BUSTSIZE(MEQUIP_PLAYER:(ARG:0):(LOCAL:0)) >= 0
		LOCAL:2 = 1
		BREAK
	ENDIF
NEXT
IF LOCAL:2
	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_EQUIP12(ARG:0)

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

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

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

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

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

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -3)
ENDIF
IF TALENT:(ARG:0):汚臭鈍感
	CALL COM_ORDER_ELEMENT(ARG:0, "汚臭鈍感", 1)
ENDIF
IF TALENT:(ARG:0):汚臭敏感
	CALL COM_ORDER_ELEMENT(ARG:0, "汚臭敏感", -3)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 6)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -3)
ENDIF
IF TALENT:(ARG:0):男嫌い
	CALL COM_ORDER_ELEMENT(ARG:0, "男嫌い", -12)
ENDIF

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE12
#DIMS DYNAMIC 性器描写
#DIMS DYNAMIC 胸描写
#DIMS DYNAMIC 衣装名

LOCAL:5 = SEARCH_EQUIP(101, MPLY:0, MTAR:0)
LOCAL:6 = SEARCH_EQUIP(102, MPLY:0, MTAR:0)
LOCAL:7 = SEARCH_EQUIP(11, MTAR:0, MPLY:0)
LOCAL:8 = SEARCH_EQUIP(2, MTAR:0, MPLY:0)

IF IS_PIERCED(MTAR:0, ピアス_ペニス)
	LOCALS:0 = ピアスの取り付けられた
ELSE
	LOCALS:0 =
ENDIF

;プレイヤーが３人
IF MPLY_NUM == 3
	IF IS_PIERCED(MPLY:0, ピアス_乳首) && IS_PIERCED(MPLY:1, ピアス_乳首) && IS_PIERCED(MPLY:2, ピアス_乳首)
		LOCALS:1 = ピアスの取り付けられた
	ELSE
		LOCALS:1 =
	ENDIF
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%、%ANAME(MPLY:1)%、%ANAME(MPLY:2)%の三人は、合わせて６つの%LOCALS:1%乳房を%ANAME(MTAR:0)%の%LOCALS:0%ペニスに押し付け、一斉に擦り上げて責め立て%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%、%ANAME(MPLY:1)%、%ANAME(MPLY:2)%の合わせて６つの%LOCALS:1%乳房を%LOCALS:0%ペニスに押し付けさせ、全員で協力して擦り上げさせた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%、%ANAME(MPLY:1)%、%ANAME(MPLY:2)%の三人に、胸で%ANAME(MTAR:0)%の%LOCALS:0%ペニスを気持ち良くするように命令した
			PRINTFORMW %ANAME(MPLY:0)%たちは、合計で６つの%LOCALS:1%乳房を%ANAME(MTAR:0)%の%LOCALS:0%ペニスに押し付け、全員で一斉に擦り上げた…
	ENDSELECT

	;プレイヤーが２人
ELSEIF MPLY_NUM == 2
	IF IS_PIERCED(MPLY:0, ピアス_乳首) && IS_PIERCED(MPLY:1, ピアス_乳首)
		LOCALS:1 = ピアスの取り付けられた
	ELSE
		LOCALS:1 =
	ENDIF
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			;２人とも胸が薄い
			IF GET_BUSTSIZE(MPLY:0) <= -1 && GET_BUSTSIZE(MPLY:1) <= -1
				PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は、二人で協力して%ANAME(MTAR:0)%の%LOCALS:0%ペニスに%LOCALS:1%薄い胸を擦り付けて責め立て%TARGET_STR("た", "てきた")%…
			ELSE
				PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は左右から%ANAME(MTAR:0)%の%LOCALS:0%ペニスを%LOCALS:1%胸で挟み、包み込むように擦り上げて責め立て%TARGET_STR("た", "てきた")%…
			ENDIF
			;ターゲットに主導権
		CASE 1
			;２人とも胸が薄い
			IF GET_BUSTSIZE(MPLY:0) <= -1 && GET_BUSTSIZE(MPLY:1) <= -1
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%と%ANAME(MPLY:1)%の%LOCALS:1%薄い胸に%LOCALS:0%ペニスを押し当て、二人に竿を擦り上げさせて奉仕させた…
			ELSE
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%と%ANAME(MPLY:1)%の%LOCALS:1%胸の間に%LOCALS:0%ペニスを挟み込むと、二人に竿を擦り上げさせて奉仕させた…
			ENDIF
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%と%ANAME(MPLY:1)%に、%LOCALS:1%胸で%ANAME(MTAR:0)%の%LOCALS:0%ペニスを気持ち良くするように命令した
			;２人とも胸が薄い
			IF GET_BUSTSIZE(MPLY:0) <= -1 && GET_BUSTSIZE(MPLY:1) <= -1
				PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は、二人で協力して%ANAME(MTAR:0)%の%LOCALS:0%ペニスに%LOCALS:1%薄い胸を擦り付けて責め立てた…
			ELSE
				PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は左右から%ANAME(MTAR:0)%の%LOCALS:0%ペニスを%LOCALS:1%胸で挟み、包み込むように擦り上げて責め立てた…
			ENDIF
	ENDSELECT

	;１人(シックスナイン)
ELSEIF LOCAL:5 >= 0 || LOCAL:6 >= 0 || LOCAL:7 >= 0 || LOCAL:8 >= 0
	IF LOCAL:6 >= 0
		LOCALS:5 = アナル
	ELSEIF LOCAL:5 >= 0 && !HAS_VAGINA(MPLY:0)
		LOCALS:5 = 玉
	ELSEIF LOCAL:7 >= 0
		LOCALS:5 = %BAR_NAME(MPLY:0)%
	ELSE
		LOCALS:5 = 秘唇
	ENDIF
	IF IS_PIERCED(MPLY:0, ピアス_乳首)
		LOCALS:2 = ピアスの取り付けられた
	ELSE
		LOCALS:2 =
	ENDIF
	IF IS_PIERCED(MTAR:0, ピアス_ペニス)
		LOCALS:3 = ピアスの取り付けられた
	ELSE
		LOCALS:3 =
	ENDIF
	LOCAL:0 = GET_BUSTSIZE(MPLY:0)
	IF LOCAL:0 <= -1
		LOCALS:0 = その%STR_BODY("胸：長：接触", MPLY:0)%を%ANAME(MTAR:0)%の%LOCALS:3%%BAR_NAME(MTAR:0)%に擦り付け
		LOCALS:1 = その%STR_BODY("胸：長：接触", MPLY:0)%を%LOCALS:3%%BAR_NAME(MTAR:0)%に擦り付けさせて奉仕させた…
	ELSEIF LOCAL:0 == 1
		LOCALS:0 = その%STR_BODY("胸：長：接触", MPLY:0)%で%ANAME(MTAR:0)%の%LOCALS:3%%BAR_NAME(MTAR:0)%を挟み込み擦り上げ
		LOCALS:1 = その%STR_BODY("胸：長：接触", MPLY:0)%で%LOCALS:3%%BAR_NAME(MTAR:0)%を挟ませて奉仕させた…
	ELSEIF LOCAL:0 == 2
		LOCALS:0 = その%STR_BODY("胸：長：接触", MPLY:0)%で%ANAME(MTAR:0)%の%LOCALS:3%%BAR_NAME(MTAR:0)%を包み込み擦り上げ
		LOCALS:1 = その%STR_BODY("胸：長：接触", MPLY:0)%で%LOCALS:3%%BAR_NAME(MTAR:0)%を包み込ませて奉仕させた…
	ELSE
		LOCALS:0 = その%STR_BODY("胸：長：接触", MPLY:0)%で%ANAME(MTAR:0)%の%LOCALS:3%%BAR_NAME(MTAR:0)%を挟み込み擦り上げ
		LOCALS:1 = その%STR_BODY("胸：長：接触", MPLY:0)%で%LOCALS:3%%BAR_NAME(MTAR:0)%を挟ませて奉仕させた…
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に自身の%LOCALS:5%を舐めさせながら、%LOCALS:0%て責め立て%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の%LOCALS:5%を舐めながら、%LOCALS:1%
			;第三者に主導権
		CASEELSE
			PRINTFORMW %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、%ANAME(MTAR:0)%の%BAR_NAME(MTAR:0)%に胸で奉仕するように命令した…
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に自身の%LOCALS:5%を舐めさせながら、%LOCALS:0%た…
	ENDSELECT
	;顔面騎乗・フェラ・クンニの地の文をカット
	IF LOCAL:5 >= 0
		MEQUIP_CUT:(LOCAL:5) = 1
	ENDIF
	IF LOCAL:6 >= 0
		MEQUIP_CUT:(LOCAL:6) = 1
	ENDIF
	IF LOCAL:7 >= 0
		MEQUIP_CUT:(LOCAL:7) = 1
	ENDIF
	IF LOCAL:8 >= 0
		MEQUIP_CUT:(LOCAL:8) = 1
	ENDIF

	;プレイヤーが１人＆拘束中
ELSEIF IS_BIND(MPLY:0)
	LOCAL:0 = GET_BUSTSIZE(MPLY:0)
	IF IS_PIERCED(MPLY:0, ピアス_乳首)
		LOCALS:2 = ピアスの取り付けられた
	ELSE
		LOCALS:2 =
	ENDIF
	IF IS_PIERCED(MTAR:0, ピアス_ペニス)
		LOCALS:3 = ピアスの取り付けられた
	ELSE
		LOCALS:3 =
	ENDIF
	IF LOCAL:0 <= -1
		LOCALS:0 = %STR_BODY("胸：長：接触", MPLY:0)%に%LOCALS:3%ペニスを擦り付けて
		LOCALS:1 = %STR_BODY("胸：長：接触", MPLY:0)%に自身の%LOCALS:3%ペニスを擦りつけた
	ELSEIF LOCAL:0 == 1
		LOCALS:0 = %STR_BODY("胸：長：接触", MPLY:0)%で%LOCALS:3%ペニスを挟み込んで
		LOCALS:1 = %STR_BODY("胸：長：接触", MPLY:0)%に自身の%LOCALS:3%ペニスを挟み込み擦り上げた
	ELSEIF LOCAL:0 == 2
		LOCALS:0 = %STR_BODY("胸：長：接触", MPLY:0)%で%LOCALS:3%ペニスを挟み込んで
		LOCALS:1 = %STR_BODY("胸：長：接触", MPLY:0)%に自身の%LOCALS:3%ペニスを挟み込み擦り上げた
	ELSE
		LOCALS:0 = %STR_BODY("胸：長：接触", MPLY:0)%で%LOCALS:3%ペニスを挟み込んで
		LOCALS:1 = %STR_BODY("胸：長：接触", MPLY:0)%に自身の%LOCALS:3%ペニスを挟み込み擦り上げた
	ENDIF

	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は拘束された状態のまま自身の胸を突き出すと、%ANAME(MTAR:0)%に対してこの%LOCALS:0%オナニーするように命令し%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は身動きの取れない%ANAME(MPLY:0)%の%LOCALS:1%…
			;第三者に主導権
		CASEELSE
			PRINTFORMW %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に対し、%ANAME(MPLY:0)%の胸を犯すように命令した…
			PRINTFORMW %ANAME(MTAR:0)%は身動きの取れない%ANAME(MPLY:0)%の%LOCALS:1%…
	ENDSELECT

	;縄で縛るの地の文をカットする
	LOCAL:0 = SEARCH_EQUIP(85, -1, MPLY:0)
	IF LOCAL:0 >= 0
		MEQUIP_CUT:(LOCAL:0) = 1
	ENDIF
	LOCAL:0 = SEARCH_EQUIP(208, -1, MPLY:0)
	IF LOCAL:0 >= 0
		MEQUIP_CUT:(LOCAL:0) = 1
	ENDIF
	;プレイヤーが１人
ELSE
	LOCAL:0 = GET_BUSTSIZE(MPLY:0)
	IF IS_PIERCED(MPLY:0, ピアス_乳首)
		LOCALS:0 = ピアスの取り付けられた
	ELSE
		LOCALS:0 =
	ENDIF
	IF IS_PIERCED(MTAR:0, ピアス_ペニス)
		LOCALS:1 = ピアスの取り付けられた
	ELSE
		LOCALS:1 =
	ENDIF
	胸描写 '= @"%STR_BODY("胸：長：接触", MPLY:0)%"
	性器描写 '= @"%ANAME(MTAR:0)%の%LOCALS:1%%語彙_ペニス()%"
	衣装名 '= C_COND_MAP_GETS(MPLY, "被覆衣装描写_胸")
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			;着衣パイズリ
			IF 衣装名 != ""
				IF C_COND("衣装属性:胸:ボタン",, MPLY)
					PRINTFORML %ANAME(MPLY)%は%S_R(@"%衣装名%のボタンを外して胸元を広げ、/ボタンが外れた%衣装名%越しに/胸元がはだけた%衣装名%越しに/胸元のボタンが外れて乱れた%衣装名%越しに")%ペニスを迎え挿れると、
				ELSE
					PRINTFORML %ANAME(MPLY)%は%衣装名%%S_R("を捲って/を捲りあげて/越しに胸元に")%ペニスを迎え挿れると、
				ENDIF
			ELSE
				PRINTFORM %ANAME(MPLY:0)%は
			ENDIF
			IF MPLY:0 != MASTER && ABL:(MPLY:0):サド >= 3
				PRINTFORM %ANAME(MTAR:0)%に挑発するような視線を向けながら、
			ENDIF
			{
				CALLF PRINT_RANDC(
					TEXT_CONCATEC(
					@"%胸描写%で懸命に%性器描写%を", 1
					,@"擦りあげて責め立て%TARGET_STR("た", "てきた")%……", 1
					), LOCAL:0 <= 胸_貧乳
					,TEXT_CONCATEC(
					@"%胸描写%で%性器描写%を", 1
					,@"%S_R(@"挟み込み/包み込み/包み上げて")%、", 1
					,@"%S_R("擦りあげて/上下に擦って")%責め立て%TARGET_STR("た", "てきた")%……", 1
					), LOCAL:0 >= 胸_巨乳
					,TEXT_CONCATEC(
					@"%胸描写%で%性器描写%を", 1
					,@"%S_R(@"はさんで")%", 1
					,@"%S_R("擦りあげて/上下に擦って")%責め立て%TARGET_STR("た", "てきた")%……", 1
					), LOCAL:0 == 胸_並乳
					)
			}
			PRINTW
			;ターゲットに主導権
		CASE 1
			;着衣パイズリ
			IF 衣装名 != ""
				IF C_COND("衣装属性:胸:ボタン",, MPLY)
					PRINTFORML %ANAME(MTAR)%が%S_R("ボタンが外れた/胸元がはだけた/胸元のボタンが外れて乱れた")%%衣装名%%S_R("越しにペニスをあてがうと/の中にペニスを挿れると")%、
					PRINTFORM %ANAME(MPLY:0)%は
				ELSE
					PRINTFORML %ANAME(MPLY)%は%衣装名%%S_R("を捲って/を捲りあげて/越しに胸元に")%ペニスを迎え挿れると、
				ENDIF
			ELSE
				PRINTFORM %ANAME(MPLY:0)%は
			ENDIF
			IF MPLY:0 != MASTER && TALENT:(MPLY:0):恋慕
				PRINTFORM うっとりとした表情をしながら、
			ENDIF
			{
				CALLF PRINT_RANDC(
					TEXT_CONCATEC(
					@"%胸描写%で懸命に%性器描写%を", 1
					,@"擦りあげて奉仕している…", 1
					), LOCAL:0 <= 胸_貧乳
					,TEXT_CONCATEC(
					@"%胸描写%で%性器描写%を", 1
					,@"%S_R(@"挟み込み/包み込み/包み上げて")%、", 1
					,@"%S_R("擦りあげて/上下に擦って")%奉仕している…", 1
					), LOCAL:0 >= 胸_巨乳
					,TEXT_CONCATEC(
					@"%胸描写%で%性器描写%を", 1
					,@"%S_R(@"はさんで")%", 1
					,@"%S_R("擦りあげて/上下に擦って")%奉仕している…", 1
					), LOCAL:0 == 胸_並乳
					)
			}
			PRINTW
			;第三者に主導権
		CASEELSE
			PRINTFORMW %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、%ANAME(MTAR:0)%の%LOCALS:1%%BAR_NAME(MTAR:0)%に胸で奉仕するように命令した…
			PRINTFORM %ANAME(MPLY:0)%は
			IF LOCAL:0 <= -1
				PRINTFORM %STR_BODY("胸：長：接触", MPLY:0)%で懸命に%ANAME(MTAR:0)%のペニスを
			ELSEIF LOCAL:0 == 1
				PRINTFORM %STR_BODY("胸：長：接触", MPLY:0)%で%ANAME(MTAR:0)%のペニスを包み込んで
			ELSEIF LOCAL:0 == 2
				PRINTFORM その%STR_BODY("胸：長：接触", MPLY:0)%で%ANAME(MTAR:0)%のペニスを包み込んで
			ELSE
				PRINTFORM %STR_BODY("胸：長：接触", MPLY:0)%で%ANAME(MTAR:0)%のペニスをはさんで
			ENDIF
			PRINTFORMW 擦りあげた……
	ENDSELECT
ENDIF

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

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

@COM_AVAILABLE_WHEN12
RETURN コマンド_ウフフ

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

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

@COM_STACK_SPERM_MTAR_TO_MPLY_12()
RETURN RAND:3 ? 射精部位_胸 # 射精部位_顔


code:
;放尿する

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME130
LOCALS:0 = 放尿

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

LOCAL = GET_INSERT_TARGET(MPLY:0)

SIF LOCAL == -1 || !HAS_PENIS(MPLY:0)
	RETURN 0

SELECTCASE IS_INSERT_MUTUAL(MPLY:0, LOCAL)
	CASE 1
		LOCALS:0 = 膣内放尿
	CASE 2
		LOCALS:0 = 肛内放尿
	CASEELSE
		LOCALS:0 = 放尿
ENDSELECT

IF MTAR:0 == LOCAL
	RESULTS:0 =  %LOCALS:0%する
ELSEIF MTAR:0 != LOCAL
	RESULTS:0 = %LOCALS:0%を見せつける
ENDIF
IF MTAR:0 == MASTER && LOCAL == MASTER
	RESULTS:2 = %LOCALS:0%させる
	RESULTS:3 = %LOCALS:0%される
ELSEIF MTAR:0 == MASTER && LOCAL != MASTER
	RESULTS:2 = %LOCALS:0%させる
	RESULTS:3 = %LOCALS:0%を見せつけられる
ENDIF

RESULTS:1 = %LOCALS:0%させられる
RESULTS:4 = %LOCALS:0%させる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE130
;共通部分
CALL COM_ABLE_COMMON(130)
SIF RESULT == 0
	RETURN 0
;プレイヤーは1人以上
SIF MPLY_NUM <= 0
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;全てのプレイヤーについて判定
FOR LOCAL:0, 0, MPLY_NUM
	;プレイヤーが行動不能なら不可
	SIF !IS_PLAYABLE(MPLY:LOCAL)
		RETURN 0
	;尿残量が十分でないなら不可
	SIF TCVAR:(MPLY:(LOCAL:0)):54 < 1000
		RETURN 0
	;顔面騎乗中は不可
	SIF IS_RIDE(MPLY:(LOCAL:0))
		RETURN 0
	;フェラ・亀頭フェラされているなら不可
	SIF IS_EQUIP_TARGET(MPLY:(LOCAL:0), 11, 107)
		RETURN 0
	;facefucking
	SIF IS_EQUIP_PLAYER(MPLY:(LOCAL:0), 90)
		RETURN 0
	;竿がなく、クンニされているなら不可
	SIF !HAS_PENIS(MPLY:(LOCAL:0)) && IS_EQUIP_TARGET(MPLY:(LOCAL:0), 1)
		RETURN 0
NEXT
RETURN 1

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

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

	EXP:(LOCAL:2):排泄経験値 += 1

	LOCAL:3 = 800
	LOCAL:4 = 300

	SELECTCASE ABL:(LOCAL:2):排泄
		CASE 0
			TIMES LOCAL:3, 0.00
			TIMES LOCAL:4, 1.00
		CASE 1
			TIMES LOCAL:3, 0.10
			TIMES LOCAL:4, 0.60
		CASE 2
			TIMES LOCAL:3, 0.20
			TIMES LOCAL:4, 0.25
		CASE 3
			TIMES LOCAL:3, 0.40
			TIMES LOCAL:4, 0.05
		CASE 4
			TIMES LOCAL:3, 0.70
			TIMES LOCAL:4, 0.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (100 + (ABL:(LOCAL:2):排泄 - 5) * 2) / 100
			LOCAL:4 = 0
	ENDSELECT
	SOURCE:(LOCAL:2):快Ｕ = 200
	SOURCE:(LOCAL:2):露出 = 1200
	SOURCE:(LOCAL:2):逸脱 = 500
	SOURCE:(LOCAL:2):中毒充足 = LOCAL:3
	SOURCE:(LOCAL:2):性行動 = 150
	SOURCE:(LOCAL:2):反感 = LOCAL:4

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

	;尿残量を0にする
	TCVAR:(LOCAL:2):尿残量 = 0
NEXT

;主導権の所在を取得
LOCAL:11 = GET_COM_INITIATIVE()

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

	SOURCE:(LOCAL:1):性行動 = 90

	;ターゲットに主導権
	IF LOCAL:11 == 1 || LOCAL:11 == 2
		SOURCE:(LOCAL:1):嗜虐 = 150
		SOURCE:(LOCAL:1):逸脱 = 250
	;ターゲットに主導権がない
	ELSE
		SOURCE:(LOCAL:1):逸脱 = 500
		SOURCE:(LOCAL:1):恐怖 = MAX(150 - 40 * ABL:(LOCAL:1):欲望, 0)
	ENDIF

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

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

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

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

RETURN 1

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

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"露出Lv{ABL:(ARG:0):露出}", ABL:(ARG:0):露出 * 4)
CALL COM_ORDER_ELEMENT(ARG:0, @"排泄Lv{ABL:(ARG:0):排泄}", ABL:(ARG:0):排泄 * 7)

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

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -12)
ENDIF
IF TALENT:(ARG:0):恥薄い
	CALL COM_ORDER_ELEMENT(ARG:0, "恥薄い", 8)
ENDIF
IF TALENT:(ARG:0):自制心
	CALL COM_ORDER_ELEMENT(ARG:0, "自制心", -6)
ENDIF
IF TALENT:(ARG:0):目立ちたがり
	CALL COM_ORDER_ELEMENT(ARG:0, "目立ちたがり", 6)
ENDIF
IF TALENT:(ARG:0):倒錯的
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯的", 8)
ENDIF

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE130
IF MPLY_NUM == 1
	LOCALS:1 = %ANAME(MPLY:0)%
ELSEIF MPLY_NUM == 2
	LOCALS:1 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%
ELSE
	LOCALS:1 = %ANAME(MPLY:0)%たち
ENDIF

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

LOCAL = GET_INSERT_TARGET(MPLY:0)
IF LOCAL != -1
	LOCAL:1 = IS_INSERT_MUTUAL(MPLY:0, LOCAL)
	LOCALS:3 = %ANAME(LOCAL)%
ELSE
	LOCAL:1 = 0
ENDIF
;プレイヤーがターゲットのＶにペニスを挿入中
IF MTAR:0 == LOCAL && LOCAL:1 == 1 && HAS_PENIS(MPLY:0)
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %LOCALS:1%は%LOCALS:2%の奥深くまでペニスを突き込むと、そのまま膣内で放尿し%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:2%は%LOCALS:1%に、自身の膣内にペニスを突き入れたまま放尿するように命令した
			PRINTFORMW %LOCALS:1%は竿を膣の奥まで入れて腰を止めると、そのまま%LOCALS:2%の中で放尿した…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%の膣内にペニスを突き入れたまま放尿するように命令した
			PRINTFORMW %LOCALS:1%は竿を膣の奥まで入れて腰を止めると、そのまま%LOCALS:2%の中で放尿した…
	ENDSELECT

;プレイヤーがターゲットのＡにペニスを挿入中
ELSEIF MTAR:0 == LOCAL && LOCAL:1 == 2 && HAS_PENIS(MPLY:0)
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %LOCALS:1%は%LOCALS:2%のアナルの奥深くまでペニスを侵入させると、そのまま腸内で放尿し%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:2%は%LOCALS:1%に、自身の尻穴にペニスを突き入れたまま放尿するように命令した
			PRINTFORMW %LOCALS:1%はアナルの奥深くまで竿を突き入れて腰を止めると、そのまま%LOCALS:2%の中で放尿した…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%の尻穴にペニスを突き入れたまま放尿するように命令した
			PRINTFORMW %LOCALS:1%は%LOCALS:2%のペニスをアナルの奥深くまで侵入させると、そのまま%LOCALS:2%の中で放尿した…
	ENDSELECT
;プレイヤーが第三者のＶにペニスを挿入中
ELSEIF MTAR:0 != LOCAL && LOCAL:1 == 1 && HAS_PENIS(MPLY:0)
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %LOCALS:1%は%LOCALS:3%の奥深くまでペニスを突き込むと、そのまま膣内で放尿し%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:2%は%LOCALS:1%に、%LOCALS:3%の膣内にペニスを突き入れたまま放尿するように命令した
			PRINTFORMW %LOCALS:1%は竿を膣の奥まで入れて腰を止めると、そのまま%LOCALS:3%の中で放尿した…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:3%の膣内にペニスを突き入れたまま放尿するように命令した
			PRINTFORMW %LOCALS:1%は竿を膣の奥まで入れて腰を止めると、そのまま%LOCALS:3%の中で放尿した…
	ENDSELECT
;プレイヤーが第三者のＡにペニスを挿入中
ELSEIF MTAR:0 != LOCAL && LOCAL:1 == 2 && HAS_PENIS(MPLY:0)
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %LOCALS:1%は%LOCALS:3%のアナルの奥深くまでペニスを侵入させると、そのまま腸内で放尿し%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORML %LOCALS:2%は%LOCALS:1%に、%LOCALS:3%の尻穴にペニスを突き入れたまま放尿するように命令した
			PRINTFORMW %LOCALS:1%はアナルの奥深くまで竿を突き入れて腰を止めると、そのまま%LOCALS:3%の中で放尿した…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:3%の尻穴にペニスを突き入れたまま放尿するように命令した
			PRINTFORMW %LOCALS:1%は%LOCALS:3%のペニスをアナルの奥深くまで侵入させると、そのまま%LOCALS:3%の中で放尿した…
	ENDSELECT
;ターゲットがプレイヤーのＶにペニスを挿入中
ELSEIF IS_INSERT_MUTUAL(MTAR:0, MPLY:0) == 1 && HAS_PENIS(MTAR:0)
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %LOCALS:1%は%LOCALS:2%と結合したまま放尿した…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %LOCALS:2%は、%LOCALS:1%に膣でペニスを咥え込ませたまま放尿させた…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:1%に対して放尿するように命令した
			PRINTFORMW %LOCALS:1%は%LOCALS:2%と結合したまま放尿した…
	ENDSELECT
;ターゲットがプレイヤーのAにペニスを挿入中
ELSEIF IS_INSERT_MUTUAL(MTAR:0, MPLY:0) == 2 && HAS_PENIS(MTAR:0)
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %LOCALS:1%は%LOCALS:2%と結合したまま放尿した…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %LOCALS:2%は、%LOCALS:1%にアナルでペニスを咥え込ませたまま放尿させた…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:1%に対して放尿するように命令した
			PRINTFORMW %LOCALS:1%は%LOCALS:2%と結合したまま放尿した…
	ENDSELECT
;ターゲットがプレイヤーのＡにペニスを挿入中
ELSEIF MTAR:0 == LOCAL && LOCAL:1 == 4 && HAS_PENIS(MTAR:0)
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %LOCALS:1%は%LOCALS:2%と結合したまま放尿した…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %LOCALS:2%は、%LOCALS:1%にアナルでペニスを咥え込ませたまま放尿させた…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:1%に対して放尿するように命令した
			PRINTFORMW %LOCALS:1%は%LOCALS:2%と結合したま放尿した…
	ENDSELECT
;それ以外
ELSE
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %LOCALS:1%は%LOCALS:2%の目の前で放尿し、その様子を見せつけ%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %LOCALS:2%は自分の目の前で%LOCALS:1%に放尿させた…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:1%に対して、%LOCALS:2%の目の前で放尿するように命令した
			PRINTFORMW %LOCALS:1%は%LOCALS:2%に見せつけるようにしながら、言われた通りに放尿した…
	ENDSELECT
ENDIF

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

LOCAL:4 = GET_INSERT_TARGET(MPLY:0)
IF LOCAL:4 != -1
	LOCAL:3 = IS_INSERT_MUTUAL(MPLY:0, LOCAL:4)
ELSE
	LOCAL:3 = IS_INSERT_MUTUAL(MPLY:0, MTAR:0)
ENDIF

FOR LOCAL:0, 0, MPLY_NUM
	LOCAL:1 = MPLY:(LOCAL:0)
	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF ABL:(LOCAL:1):排泄 >= 2
			IF LOCAL:3 == 1
				PRINTFORMW %ANAME(LOCAL:1)%は膣内に放尿をする感覚に恍惚とした表情を浮かべている
			ELSEIF LOCAL:3 == 2
				PRINTFORMW %ANAME(LOCAL:1)%は腸内に放尿する感覚に恍惚とした表情を浮かべている
			ELSE
				PRINTFORMW %ANAME(LOCAL:1)%は見られながら放尿する解放感に恍惚とした表情を浮かべている
			ENDIF
		ELSEIF ABL:(LOCAL:1):排泄 >= 1
			IF LOCAL:3 == 1
				PRINTFORMW %ANAME(LOCAL:1)%は羞恥に顔を赤らめながらも、膣内に放尿をする感覚にぶるりと震えた
			ELSEIF LOCAL:3 == 2
				PRINTFORMW %ANAME(LOCAL:1)%は羞恥に顔を赤らめながらも、腸内に放尿する感覚にぶるりと震えた
			ELSE
				PRINTFORMW %ANAME(LOCAL:1)%は羞恥に顔を赤らめながらも、排尿の解放感にぶるりと震えた
			ENDIF
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%は放尿しながら顔を赤らめて恥ずかしそうにしている
		ENDIF
	ENDIF
NEXT
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)
	LOCAL:2 = CUP:(LOCAL:1):怒主 + CUP:(LOCAL:1):哀主
	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF LOCAL:2 < 0 && CUP:(LOCAL:1):欲情 >= 500
			IF LOCAL:3 == 1 && LOCAL:4 == MTAR:(LOCAL:0)
				PRINTFORMW %ANAME(LOCAL:1)%は膣内に感じる温かさに快感を覚えている
			ELSEIF LOCAL:3 == 2 && LOCAL:4 == MTAR:(LOCAL:0)
				PRINTFORMW %ANAME(LOCAL:1)%は腸内に感じる温かさに快感を覚えている
			ELSE
				PRINTFORMW %ANAME(LOCAL:1)%は放尿の様子を興奮した様子で見つめている
			ENDIF
		ELSEIF LOCAL:2 < 0
			IF LOCAL:3 == 1 && LOCAL:4 == MTAR:(LOCAL:0)
				PRINTFORMW %ANAME(LOCAL:1)%は膣内に感じる温かさに羞恥を覚えている
			ELSEIF LOCAL:3 == 2 && LOCAL:4 == MTAR:(LOCAL:0)
				PRINTFORMW %ANAME(LOCAL:1)%は腸内に感じる温かさに羞恥を覚えている
			ELSE
				PRINTFORMW %ANAME(LOCAL:1)%は顔を赤らめながら放尿の様子をじっと見つめている
			ENDIF
		ELSE
			IF LOCAL:3 == 1 && LOCAL:4 == MTAR:(LOCAL:0)
				PRINTFORMW %ANAME(LOCAL:1)%は膣内に感じる温かさに不快感を覚えている
			ELSEIF LOCAL:3 == 2 && LOCAL:4 == MTAR:(LOCAL:0)
				PRINTFORMW %ANAME(LOCAL:1)%は腸内に感じる温かさに不快感を覚えている
			ELSE
				PRINTFORMW %ANAME(LOCAL:1)%は恥ずかしさと不快感のあまり目を背けた
			ENDIF
		ENDIF
	ENDIF
NEXT
IF LOCAL:4 != -1 && LOCAL:4 != MTAR:0
	LOCAL:2 = CUP:(LOCAL:4):怒主 + CUP:(LOCAL:4):哀主
	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF LOCAL:2 < 0 && CUP:(LOCAL:4):欲情 >= 500
			IF LOCAL:3 == 1
				PRINTFORMW %ANAME(LOCAL:4)%は膣内に感じる温かさに快感を覚えている
			ELSEIF LOCAL:3 == 2
				PRINTFORMW %ANAME(LOCAL:4)%は腸内に感じる温かさに快感を覚えている
			ENDIF
		ELSEIF LOCAL:2 < 0
			IF LOCAL:3 == 1
				PRINTFORMW %ANAME(LOCAL:4)%は膣内に感じる温かさに羞恥を覚えている
			ELSEIF LOCAL:3 == 2
				PRINTFORMW %ANAME(LOCAL:4)%は腸内に感じる温かさに羞恥を覚えている
			ENDIF
		ELSE
			IF LOCAL:3 == 1
				PRINTFORMW %ANAME(LOCAL:4)%は膣内に感じる温かさに不快感を覚えている
			ELSEIF LOCAL:3 == 2
				PRINTFORMW %ANAME(LOCAL:4)%は腸内に感じる温かさに不快感を覚えている
			ELSE
				PRINTFORMW %ANAME(LOCAL:4)%は恥ずかしさと不快感のあまり目を背けた
			ENDIF
		ENDIF
	ENDIF
ENDIF

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

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

@COM_AVAILABLE_WHEN130
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_130()
RETURN POWER(2, 性的嗜好_辱められたい)

@COM_PREFERENCE_TARGET_130()
RETURN POWER(2, 性的嗜好_辱めたい)

repo_name: pervysquirrelz/erafl

license: unknown


code:
;尿を掛ける

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME131
LOCAL:1 = 1
FOR LOCAL:0, 0, MTAR_NUM
	IF TCVAR:(MTAR:(LOCAL:0)):52 == 0
		LOCAL:1 = 0
	ENDIF
NEXT

IF LOCAL:1
	LOCALS:0 = 気付け放尿

	RESULTS:0 = %LOCALS:0%する
	RESULTS:4 = %LOCALS:0%させる
	RESULTS:5 = %LOCALS:0%見せつけ

ELSEIF IS_RIDE(MPLY:0)
	LOCALS:0 = 顔騎放尿

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

ELSE
	LOCALS:0 = 尿を掛け

	RESULTS:0 = %LOCALS:0%る
	RESULTS:1 = %LOCALS:0%させられる
	RESULTS:2 = %LOCALS:0%させる
	RESULTS:3 = %LOCALS:0%られる
	RESULTS:4 = %LOCALS:0%させる
	RESULTS:5 = 尿掛け見せつけ
ENDIF

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE131
;共通部分
CALL COM_ABLE_COMMON(131)
SIF RESULT == 0
	RETURN 0
;プレイヤーは1人以上
SIF MPLY_NUM <= 0
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0

LOCAL:1 = 0
;全てのプレイヤーについて判定
FOR LOCAL:0, 0, MPLY_NUM
	;尿残量が十分でないなら不可
	SIF TCVAR:(MPLY:(LOCAL:0)):54 < 1000
		RETURN 0
	;顔面騎乗中は1-1かつプレイヤーがターゲットに跨っている必要がある
	IF IS_RIDE(MPLY:(LOCAL:0))
		SIF MPLY_NUM >= 2 || MTAR_NUM >= 2
			RETURN 0
		SIF !IS_RIDE(MPLY:(LOCAL:0), MTAR:0)
			RETURN 0
	ENDIF
	;プレイヤーが挿入中なら不可
	SIF IS_INSERT_SINGLE(MPLY:(LOCAL:0), "全")
		RETURN 0
	;フェラ・亀頭フェラされているなら不可
	SIF IS_EQUIP_TARGET(MPLY:(LOCAL:0), 11, 107)
		RETURN 0
	;facefucking
	SIF IS_EQUIP_PLAYER(MPLY:(LOCAL:0), 90)
		RETURN 0
		;プレイヤーが土下座しているなら不可
	SIF IS_EQUIP_PLAYER(MPLY:(LOCAL:0), 110)
		RETURN 0
NEXT
RETURN 1

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

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

	EXP:(LOCAL:2):排泄経験値 += 1
	EXP:(LOCAL:2):嗜虐経験値 += 1

	LOCAL:3 = 800
	LOCAL:4 = 300

	SELECTCASE ABL:(LOCAL:2):排泄
		CASE 0
			TIMES LOCAL:3, 0.00
			TIMES LOCAL:4, 1.00
		CASE 1
			TIMES LOCAL:3, 0.10
			TIMES LOCAL:4, 0.60
		CASE 2
			TIMES LOCAL:3, 0.20
			TIMES LOCAL:4, 0.25
		CASE 3
			TIMES LOCAL:3, 0.40
			TIMES LOCAL:4, 0.05
		CASE 4
			TIMES LOCAL:3, 0.70
			TIMES LOCAL:4, 0.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (100 + (ABL:(LOCAL:2):排泄 - 5) * 2) / 100
			LOCAL:4 = 0
	ENDSELECT

	SOURCE:(LOCAL:2):露出 = 1200
	SOURCE:(LOCAL:2):逸脱 = 600
	SOURCE:(LOCAL:2):性行動 = 150
	SOURCE:(LOCAL:2):中毒充足 = LOCAL:3
	SOURCE:(LOCAL:2):反感 = LOCAL:4

	;プレイヤーに主導権がある場合
	IF IS_INITIATIVE(LOCAL:2)
		SOURCE:(LOCAL:2):嗜虐 = 200
	ENDIF

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

	;尿残量を0にする
	TCVAR:(LOCAL:2):尿残量 = 0
NEXT

;主導権の所在を取得
LOCAL:11 = GET_COM_INITIATIVE()

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

	SOURCE:(LOCAL:1):性行動 = 90
	EXP:(LOCAL:2):被虐経験値 += 1
	;ターゲットに主導権
	IF LOCAL:11 == 1 || LOCAL:11 == 2
		SOURCE:(LOCAL:1):嗜虐 = 150
		SOURCE:(LOCAL:1):逸脱 = 500
	;ターゲットに主導権がない
	ELSE
		SOURCE:(LOCAL:1):逸脱 = 700
		SOURCE:(LOCAL:1):恐怖 = MAX(200 - 50 * ABL:(LOCAL:1):欲望, 0)
	ENDIF

	;ターゲットが気絶している場合
	IF TCVAR:(LOCAL:1):失神フラグ
		SOURCE:(LOCAL:1):気絶回復 = 500
	ENDIF

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

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

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

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

RETURN 1

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

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"露出Lv{ABL:(ARG:0):露出}", ABL:(ARG:0):露出 * 4)
CALL COM_ORDER_ELEMENT(ARG:0, @"排泄Lv{ABL:(ARG:0):排泄}", ABL:(ARG:0):排泄 * 7)

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

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -12)
ENDIF
IF TALENT:(ARG:0):恥薄い
	CALL COM_ORDER_ELEMENT(ARG:0, "恥薄い", 8)
ENDIF
IF TALENT:(ARG:0):自制心
	CALL COM_ORDER_ELEMENT(ARG:0, "自制心", -6)
ENDIF
IF TALENT:(ARG:0):目立ちたがり
	CALL COM_ORDER_ELEMENT(ARG:0, "目立ちたがり", 6)
ENDIF
IF TALENT:(ARG:0):倒錯的
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯的", 8)
ENDIF

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE131
IF MPLY_NUM == 1
	LOCALS:1 = %ANAME(MPLY:0)%
ELSEIF MPLY_NUM == 2
	LOCALS:1 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%
ELSE
	LOCALS:1 = %ANAME(MPLY:0)%たち
ENDIF

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

;ターゲットが全員気絶しているならLOCAL:5を1に、それ以外は0にする
LOCAL:5 = 1
FOR LOCAL:0, 0, MTAR_NUM
	IF TCVAR:(MTAR:(LOCAL:0)):52 == 0
		LOCAL:5 = 0
	ENDIF
NEXT

;ターゲットが全員気絶(気付け放尿)
IF LOCAL:5
	PRINTFORMW %LOCALS:1%は気絶してぐったりしている%LOCALS:2%の顔面に尿を浴びせかけた…

;プレイヤーが顔面騎乗中
ELSEIF IS_RIDE(MPLY:0)
	;竿がある場合
	IF HAS_PENIS(MPLY:0)
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %LOCALS:1%は腰を上げると、%LOCALS:2%の顔面にペニスの先端を向け、顔の上に放尿し%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
			CASE 1
				PRINTFORML %LOCALS:2%は顔の上に跨っている%LOCALS:1%のペニスを掴んで自分の方へ向けると、%LOCALS:1%に放尿するように命令した
				PRINTFORMW %LOCALS:1%は言われた通り、%LOCALS:2%の顔に向けて放尿した…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:1%に対して、%LOCALS:2%の顔に向けて放尿するように命令した
				PRINTFORMW %LOCALS:1%は腰を上げると、%LOCALS:2%の顔面にペニスの先端を向け、言われた通り顔の上に放尿した…
		ENDSELECT

	;竿がない場合
	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %LOCALS:1%は%LOCALS:2%の顔にグリグリと秘唇を押し付けながら放尿し%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
			CASE 1
				PRINTFORML %LOCALS:2%は、顔の上に跨っている%LOCALS:1%に放尿するように命令した
				PRINTFORMW %LOCALS:1%は言われた通り、%LOCALS:2%の顔に秘唇を押し付けたまま放尿した…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:1%に対して、%LOCALS:2%の顔に跨ったまま放尿するように命令した
				PRINTFORMW %LOCALS:1%は言われた通り、%LOCALS:2%の顔に秘唇を押し付けたまま放尿した…
		ENDSELECT
	ENDIF

;それ以外
ELSE
	;プレイヤー全員に竿があるならLOCAL:6を1に、全員にないなら-1に、混合なら0にする
	LOCAL:6 = 0
	FOR LOCAL:0, 0, MPLY_NUM
		IF HAS_PENIS(MPLY:(LOCAL:0))
			LOCAL:6 ++
		ELSE
			LOCAL:6 --
		ENDIF
	NEXT
	LOCAL:6 = ABS(LOCAL:6) / MPLY_NUM * SIGN(LOCAL:6)

	IF MPLY_NUM >= 2
		LOCALS:3 = 一斉に
	ENDIF

	;プレイヤー全員に竿がある場合 or ありなし混合の場合
	IF LOCAL:6 == 1 || LOCAL:6 == 0
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %LOCALS:1%は%LOCALS:2%の全身に%LOCALS:3%尿を浴びせかけ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
			CASE 1
				PRINTFORML %LOCALS:2%は自分の体に向けて放尿するように%LOCALS:1%に命令した
				PRINTFORMW %LOCALS:1%は言われた通り、%LOCALS:3%%LOCALS:2%の体に尿を浴びせかけた…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:1%に対して、%LOCALS:2%に向けて放尿するように命令した
				PRINTFORMW %LOCALS:1%は言われた通り、%LOCALS:3%%LOCALS:2%の体に尿を浴びせかけた…
		ENDSELECT

	;プレイヤー全員に竿がない場合
	ELSEIF LOCAL:6 == -1
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %LOCALS:1%は%LOCALS:2%を座らせると、%LOCALS:3%頭から尿を浴びせかけ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
			CASE 1
				PRINTFORML %LOCALS:2%は%LOCALS:1%を前に立たせると、そのまま自分の体に向けて放尿するように命令した
				PRINTFORMW %LOCALS:1%は言われた通り、股を開いて%LOCALS:3%%LOCALS:2%の体に尿を浴びせかけた…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:1%に対して、%LOCALS:2%の体に放尿するように命令した
				PRINTFORMW %LOCALS:1%は%LOCALS:2%を座らせると、%LOCALS:3%頭から尿を浴びせかけた…
		ENDSELECT
	ENDIF
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST131
IF MPLY_NUM == 1
	LOCALS:2 = %ANAME(MPLY:0)%
ELSEIF MPLY_NUM == 2
	LOCALS:2 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%
ELSE
	LOCALS:2 = %ANAME(MPLY:0)%たち
ENDIF

FOR LOCAL:0, 0, MPLY_NUM
	LOCAL:1 = MPLY:(LOCAL:0)

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF ABL:(LOCAL:1):排泄 >= 2
			IF IS_INITIATIVE(LOCAL:1) && ABL:(LOCAL:1):サド >= 3
				PRINTFORMW %ANAME(LOCAL:1)%は排尿の解放感に浸りながら、満足そうに笑みを浮かべた
			ELSE
				PRINTFORMW %ANAME(LOCAL:1)%は見られながら放尿する解放感に恍惚とした表情を浮かべている
			ENDIF
		ELSEIF ABL:(LOCAL:1):排泄 >= 1
			PRINTFORMW %ANAME(LOCAL:1)%は羞恥に顔を赤らめながらも、排尿の解放感にぶるりと震えた
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%は放尿しながら顔を赤らめて恥ずかしそうにしている
		ENDIF
	ENDIF
NEXT
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)
	LOCAL:2 = CUP:(LOCAL:1):怒主 + CUP:(LOCAL:1):哀主

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF LOCAL:2 < 0 && CUP:(LOCAL:1):欲情 >= 500
			PRINTFORMW %ANAME(LOCAL:1)%は尿を掛けられながら興奮した様子で息を荒らげている
		ELSEIF LOCAL:2 < 0
			PRINTFORMW %ANAME(LOCAL:1)%は尿でびしょ濡れになりながら、困惑の表情を浮かべている
		ELSEIF IS_INITIATIVE(LOCAL:1)
			PRINTFORMW %ANAME(LOCAL:1)%は不快感のあまり%LOCALS:2%を睨むように見つめた
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%は尿でびしょ濡れになりながら、屈辱のあまり%LOCALS:2%を睨みつけた
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN131
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_131()
RETURN POWER(2, 性的嗜好_辱めたい)

@COM_PREFERENCE_TARGET_131()
RETURN POWER(2, 性的嗜好_辱められたい) + POWER(2, 性的嗜好_露出したい)


code:
;口内放尿

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME132
IF IS_RIDE(MPLY:0)
	LOCALS:0 = 顔騎口内放尿
ELSE
	LOCALS:0 = 口内放尿
ENDIF

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE132
;共通部分
CALL COM_ABLE_COMMON(132)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
;プレイヤーの尿残量が十分でないなら不可
SIF TCVAR:(MPLY:0):尿残量 < 1000
	RETURN 0
; ;プレイヤーが顔面騎乗中で、プレイヤーに竿があるまたはターゲット以外のキャラに跨ってるなら不可
;SIF IS_RIDE(MPLY:0) && (HAS_PENIS(MPLY:0) || !IS_RIDE(MPLY:0, MTAR:0))
; SIF !IS_RIDE(MPLY:0, MTAR:0)
; 	RETURN 0
;-> プレイヤーがターゲット以外のキャラに跨ってるなら不可
SIF IS_RIDE(MPLY:0) && !IS_RIDE(MPLY:0, MTAR:0)
	RETURN 0
;fucking each other
SIF IS_INSERT_MUTUAL(MPLY:0, MTAR:0)
	RETURN 0
;Player's penis occupied
SIF IS_P_HOLD(MPLY:0)
	RETURN 0
;target's mouth occupied (except by cunni/blowjob/titjob/glans blowjob/facefuck with the target)
SIF IS_M_HOLD(MTAR:0) && ((SEARCH_EQUIP_M(MTAR:0, MPLY:0, 2, 11, 12) < 0) && (SEARCH_EQUIP_M(MPLY:0, MTAR:0, 90, 101) < 0))
	RETURN 0
;プレイヤー以外に顔面騎乗されているなら不可
SIF (IS_RIDDEN(MTAR:0) && !IS_RIDDEN(MTAR:0, MPLY:0))
	RETURN 0
;プレイヤーが土下座しているなら不可
SIF IS_EQUIP_PLAYER(MPLY:0, 110)
	RETURN 0
RETURN 1

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

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

	EXP:(LOCAL:2):排泄経験値 += 1
	EXP:(LOCAL:2):嗜虐経験値 += 1

	LOCAL:3 = 800
	LOCAL:4 = 300

	SELECTCASE ABL:(LOCAL:2):排泄
		CASE 0
			TIMES LOCAL:3, 0.00
			TIMES LOCAL:4, 1.00
		CASE 1
			TIMES LOCAL:3, 0.10
			TIMES LOCAL:4, 0.60
		CASE 2
			TIMES LOCAL:3, 0.20
			TIMES LOCAL:4, 0.25
		CASE 3
			TIMES LOCAL:3, 0.40
			TIMES LOCAL:4, 0.05
		CASE 4
			TIMES LOCAL:3, 0.70
			TIMES LOCAL:4, 0.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (100 + (ABL:(LOCAL:2):排泄 - 5) * 2) / 100
			LOCAL:4 = 0
	ENDSELECT

	SOURCE:(LOCAL:2):快Ｕ = 200
	SOURCE:(LOCAL:2):露出 = 1200
	SOURCE:(LOCAL:2):逸脱 = 800
	SOURCE:(LOCAL:2):性行動 = 150
	SOURCE:(LOCAL:2):中毒充足 = LOCAL:3
	SOURCE:(LOCAL:2):反感 = LOCAL:4

	;プレイヤーに主導権がある場合
	IF IS_INITIATIVE(LOCAL:2)
		SOURCE:(LOCAL:2):嗜虐 = 300
	ENDIF

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

	;尿残量を0にする
	TCVAR:(LOCAL:2):尿残量 = 0
NEXT

;主導権の所在を取得
LOCAL:11 = GET_COM_INITIATIVE()

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

	EXP:(LOCAL:2):被虐経験値 += 1

	SOURCE:(LOCAL:1):性行動 = 90

	;ターゲットに主導権
	IF LOCAL:11 == 1 || LOCAL:11 == 2
		SOURCE:(LOCAL:1):嗜虐 = 150
		SOURCE:(LOCAL:1):逸脱 = 700
		;ターゲットに主導権がない
	ELSE
		SOURCE:(LOCAL:1):逸脱 = 1000
		SOURCE:(LOCAL:1):恐怖 = MAX(200 - 50 * ABL:(LOCAL:1):欲望, 0)
	ENDIF

	;ターゲットが気絶している場合
	IF TCVAR:(LOCAL:1):失神フラグ
		SOURCE:(LOCAL:1):気絶回復 = 500
	ENDIF

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

	IF HAS_PENIS(MPLY:0)
		;ペニスへのキス
		CALL KISS_COMMON(LOCAL:1, @"%ANAME(MPLY:0)%のペニス")
	ENDIF

NEXT

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

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

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

RETURN 1

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

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"露出Lv{ABL:(ARG:0):露出}", ABL:(ARG:0):露出 * 4)
CALL COM_ORDER_ELEMENT(ARG:0, @"排泄Lv{ABL:(ARG:0):排泄}", ABL:(ARG:0):排泄 * 7)

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

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -12)
ENDIF
IF TALENT:(ARG:0):恥薄い
	CALL COM_ORDER_ELEMENT(ARG:0, "恥薄い", 8)
ENDIF
IF TALENT:(ARG:0):自制心
	CALL COM_ORDER_ELEMENT(ARG:0, "自制心", -6)
ENDIF
IF TALENT:(ARG:0):目立ちたがり
	CALL COM_ORDER_ELEMENT(ARG:0, "目立ちたがり", 6)
ENDIF
IF TALENT:(ARG:0):倒錯的
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯的", 8)
ENDIF

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE132
;プレイヤーが顔面騎乗中で竿がない場合
IF !HAS_PENIS(MPLY:0) && IS_RIDE(MPLY:0)
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の顔に跨ったまま口に秘唇を押し付けると、%ANAME(MTAR:0)%の口の中へと放尿し%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は顔の上に跨った%ANAME(MPLY:0)%の秘唇にむしゃぶりつき、そのまま口の中へと放尿させた…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%の口の中に放尿するように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の顔に跨ったまま口に秘唇を押し付けると、%ANAME(MTAR:0)%の口の中へと放尿した…
	ENDSELECT

	;プレイヤーがフェラ・亀頭フェラされている場合
ELSEIF IS_EQUIP_TARGET(MPLY:0, 11, 107)
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%にペニスを咥えさせたまま、%ANAME(MTAR:0)%の口の中へと放尿し%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%のペニスを舐め上げながら、%ANAME(MPLY:0)%に口の中へと放尿するように命令した
			PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%ANAME(MTAR:0)%の口の中へと尿を注ぎ込んだ…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%の口の中に放尿するように命令した
			PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%ANAME(MTAR:0)%の口の中へと尿を注ぎ込んだ…
	ENDSELECT

	;それ以外
ELSE
	;プレイヤーに竿がある場合
	IF HAS_PENIS(MPLY:0)
		SELECTCASE GET_COM_INITIATIVE()
				;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の口にペニスを突き入れると、%ANAME(MTAR:0)%の口の中へと放尿し%TARGET_STR("た", "てきた")%…
				;ターゲットに主導権
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に口の中へと放尿するように命令し、%ANAME(MPLY:0)%のペニスを咥え込んだ
				PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%ANAME(MTAR:0)%の口の中へと尿を注ぎ込んだ…
				;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%の口の中に放尿するように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の口にペニスを突き入れると、%ANAME(MTAR:0)%の口の中へと放尿した…
		ENDSELECT

		;プレイヤーに竿がない場合
	ELSE
		SELECTCASE GET_COM_INITIATIVE()
				;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の口に秘唇を押し付けると、%ANAME(MTAR:0)%の口の中へと放尿し%TARGET_STR("た", "てきた")%…
				;ターゲットに主導権
			CASE 1
				PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に口の中へと放尿するように命令し、%ANAME(MPLY:0)%の秘唇にむしゃぶりついた
				PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%ANAME(MTAR:0)%の口の中へと放尿した…
				;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%の口の中に放尿するように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の口に秘唇を押し付けると、%ANAME(MTAR:0)%の口の中へと放尿した…
		ENDSELECT
	ENDIF
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST132
FOR LOCAL:0, 0, MPLY_NUM
	LOCAL:1 = MPLY:(LOCAL:0)

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF ABL:(LOCAL:1):排泄 >= 2
			IF IS_INITIATIVE(LOCAL:1) && ABL:(LOCAL:1):サド >= 3
				PRINTFORMW %ANAME(LOCAL:1)%は排尿の解放感に浸りながら、満足そうに笑みを浮かべた
			ELSE
				PRINTFORMW %ANAME(LOCAL:1)%は見られながら放尿する解放感に恍惚とした表情を浮かべている
			ENDIF
		ELSEIF ABL:(LOCAL:1):排泄 >= 1
			PRINTFORMW %ANAME(LOCAL:1)%は羞恥に顔を赤らめながらも、排尿の解放感にぶるりと震えた
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%は放尿しながら顔を赤らめて恥ずかしそうにしている
		ENDIF
	ENDIF
NEXT
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)
	LOCAL:2 = CUP:(LOCAL:1):怒主 + CUP:(LOCAL:1):哀主

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF LOCAL:2 < 0 && CUP:(LOCAL:1):欲情 >= 3000
			PRINTFORMW %ANAME(LOCAL:1)%は吐き出された尿を全て飲み込むと、掃除するかのように尿道を強く吸い上げた
		ELSEIF LOCAL:2 < 0 && CUP:(LOCAL:1):欲情 >= 500
			PRINTFORMW %ANAME(LOCAL:1)%は口内に注ぎ込まれた尿をゴクゴクと音を立てて飲み込んだ
		ELSEIF LOCAL:2 < 0
			PRINTFORMW %ANAME(LOCAL:1)%は口内に注ぎ込まれた尿でむせ返りながらも、吐き出すこと無く飲み込んだ
		ELSEIF IS_INITIATIVE(LOCAL:1)
			PRINTFORMW %ANAME(LOCAL:1)%は口内に注ぎ込まれた尿を吐き出し、%ANAME(MPLY:0)%を睨んだ
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%は口内に注ぎ込まれた尿を吐き出そうと、激しくえづいた
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN132
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_132()
RETURN POWER(2, 性的嗜好_辱めたい)

@COM_PREFERENCE_TARGET_132()
RETURN POWER(2, 性的嗜好_奉仕したい) + POWER(2, 性的嗜好_辱められたい) + POWER(2, 性的嗜好_汚されたい)


code:
;素股

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

IF MPLY_NUM == 2
	LOCALS:0 = Ｗ
ELSE
	LOCALS:0 =
ENDIF

IF !HAS_VAGINA(MPLY:0)
	LOCALS:0 += "Ball"
ELSE
	LOCALS:0 += "Intercrural sex"
ENDIF

RESULTS:0 = Do %LOCALS:0%
RESULTS:1 = Get ordered to %LOCALS:0%
RESULTS:2 = Order %LOCALS:0%
RESULTS:3 = Get %LOCALS:0%
RESULTS:4 = Make do %LOCALS:0%
RESULTS:5 = Show %LOCALS:0% off

;-------------------------------------------------
; このコマンドがどのタブに入るか
;-------------------------------------------------
@COM_CATEGORY13
IF FLAG:調教モード != 調教_居住区 && FLAG:調教モード != 調教_クエスト
	RETURN 0
ELSE
	RETURN 10
ENDIF

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE13
;共通部分
CALL COM_ABLE_COMMON(13)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 2
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
FOR LOCAL, 0, MPLY_NUM
	;潤滑が高くないとダメ
	SIF PALAM:(MPLY:LOCAL):潤滑 < 1500
		RETURN 0
	SIF !HAS_PENIS(MTAR:0)
		RETURN 0
	SIF !CAN_FUCK(MTAR:0, MPLY:LOCAL, 13)
		RETURN 0
	SIF !P_STACKABLE(MPLY:LOCAL, MTAR:0, 13)
		RETURN 0
NEXT
RETURN 1

;-------------------------------------------------
;快Ｃソースの倍率を取得する関数 ARG:0=PLAYERのキャラ番号
;-------------------------------------------------
@COM13_RATE_C(ARG:0)
#FUNCTION
LOCAL:5 = 1000
SELECTCASE ABL:(ARG:0):奉仕
	CASE 0
		TIMES LOCAL:5, 0.50
	CASE 1
		TIMES LOCAL:5, 0.80
	CASE 2
		TIMES LOCAL:5, 1.00
	CASE 3
		TIMES LOCAL:5, 1.20
	CASE 4
		TIMES LOCAL:5, 1.40
	CASEELSE
		LOCAL:5 = LOCAL:5 * ((ABL:(MPLY:0):奉仕 - 5) * 2 + 150) / 100
ENDSELECT

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

RETURNF LOCAL:5

;-------------------------------------------------
;素股
;-------------------------------------------------
@COM13
;実行できるかの判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;対Ｐ奉仕系コマンドの継続フラグを解除
CALL RELEASE_SERVE_P

;●プレイヤーの潤滑に応じた快感倍率の設定
IF PALAM:(MPLY:0):潤滑 < PALAMLV:5
	LOCAL:10 = 500
ELSEIF PALAM:(MPLY:0):潤滑 < PALAMLV:6
	LOCAL:10 = 700
ELSEIF PALAM:(MPLY:0):潤滑 < PALAMLV:7
	LOCAL:10 = 800
ELSEIF PALAM:(MPLY:0):潤滑 < PALAMLV:8
	LOCAL:10 = 900
ELSE
	LOCAL:10 = 1000
ENDIF

FOR LOCAL, 0, MPLY_NUM
	;●プレイヤーについて処理
	DOWNBASE:(MPLY:LOCAL):体力 += 120

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

	SOURCE:(MPLY:LOCAL):奉仕 = SERVE_HOUSHI(MPLY:LOCAL, 350)
	SOURCE:(MPLY:LOCAL):露出 = 50
	SOURCE:(MPLY:LOCAL):接触 = 100
	SOURCE:(MPLY:LOCAL):性行動 = 300
	IF HAS_VAGINA(MPLY:LOCAL)
		SOURCE:(MPLY:LOCAL):快Ｃ = 500 * COM13_RATE_C(MPLY:LOCAL) / 1000 * LOCAL:10 / 1000
	ENDIF

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

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

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

SOURCE:(MTAR:0):露出 = 50
SOURCE:(MTAR:0):接触 = 100
SOURCE:(MTAR:0):快Ｐ = SENSE_HOUSHI_P(MPLY:0, MTAR:0, 1400 * LOCAL:10 / 1000)
SOURCE:(MTAR:0):性行動 = 180

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

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

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

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

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

RETURN 1

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

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

LOCAL:3 = MEQUIP_TARGET:(ARG:0):0

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

	;●プレイヤーの潤滑に応じた快感倍率の設定
	IF PALAM:(LOCAL:2):潤滑 < PALAMLV:5
		LOCAL:10 = 500
	ELSEIF PALAM:(LOCAL:2):潤滑 < PALAMLV:6
		LOCAL:10 = 700
	ELSEIF PALAM:(LOCAL:2):潤滑 < PALAMLV:7
		LOCAL:10 = 800
	ELSEIF PALAM:(LOCAL:2):潤滑 < PALAMLV:8
		LOCAL:10 = 900
	ELSE
		LOCAL:10 = 1000
	ENDIF

	;●プレイヤーについて処理
	DOWNBASE:(LOCAL:2):体力 += 20

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

	SOURCE:(LOCAL:2):奉仕 += SERVE_HOUSHI(LOCAL:2, 130)
	SOURCE:(LOCAL:2):露出 += 25
	SOURCE:(LOCAL:2):接触 += 50
	SOURCE:(LOCAL:2):性行動 += 100
	IF HAS_VAGINA(LOCAL:2)
		SOURCE:(LOCAL:2):快Ｃ += 250 * COM13_RATE_C(LOCAL:2) / 1000 * LOCAL:10 / 1000
	ENDIF

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

;●ターゲットについて処理
DOWNBASE:(LOCAL:3):体力 += 10

SOURCE:(LOCAL:3):露出 += 25
SOURCE:(LOCAL:3):接触 += 50
SOURCE:(LOCAL:3):性行動 += 60
SOURCE:(LOCAL:3):快Ｐ += SENSE_HOUSHI_P(LOCAL:2, LOCAL:3, 450 * LOCAL:10 / 1000)

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE13(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に素股中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP13(ARG:0)
LOCAL:0 = MEQUIP_PLAYER:(ARG:0):0
IF IS_PLAYABLE(LOCAL:0)
	PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のペニスを股で挟んで擦り上げている…
ELSE
	PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%が%EQUIP_PLAYER_ANAME(ARG:0)%の股にペニスを挟んで擦り上げている…
ENDIF

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

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

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

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

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

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

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -1)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 6)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -3)
ENDIF
IF TALENT:(ARG:0):男嫌い
	CALL COM_ORDER_ELEMENT(ARG:0, "男嫌い", -12)
ENDIF
IF TCVAR:(ARG:0):媚薬
	CALL COM_ORDER_ELEMENT(ARG:0, "媚薬", 4)
ENDIF
IF TFLAG:桃源香使用中
	CALL COM_ORDER_ELEMENT(ARG:0, "桃源香", 3)
ENDIF

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE13
IF !HAS_VAGINA(MPLY:0)
	LOCALS:0 = 玉袋
ELSE
	LOCALS:0 = ワレメ
ENDIF
IF IS_PIERCED(MPLY:0, ピアス_ラビア)
	LOCALS:1 = ピアスの取り付けられた
ELSE
	LOCALS:1 =
ENDIF
IF IS_PIERCED(MTAR:0, ピアス_ペニス)
	LOCALS:2 = ピアスの取り付けられた
ELSE
	LOCALS:2 =
ENDIF
IF IS_PLAYABLE(MPLY:0)
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORM %ANAME(MPLY:0, MPLY_NUM)%は%ANAME(MTAR:0)%の%LOCALS:2%ペニスを股に挟み込むと、
			IF MPLY:0 != MASTER && TALENT:(MPLY:0):恋慕 && GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_淫乱) && PALAM:(MPLY:0):欲情 > PALAMLV:8
				IF !HAS_VAGINA(MPLY:0)
					PRINTFORMW 欲情で固くなった玉袋を押し付けながら、快楽を貪るように腰を振って竿を擦り上げ%TARGET_STR("た", "てきた")%…
				ELSE
					PRINTFORMW 欲情で熱く濡れた%LOCALS:1%秘唇を押し付けながら、快楽を貪るように腰を振って竿を擦り上げ%TARGET_STR("た", "てきた")%…
				ENDIF
			ELSEIF MPLY:0 != MASTER && (TALENT:(MPLY:0):恋慕 || GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_淫乱))
				PRINTFORMW 肉棒の感触を楽しむように腰を振って%LOCALS:2%竿を擦り上げ%TARGET_STR("た", "てきた")%…
			ELSE
				IF !HAS_VAGINA(MPLY:0)
					PRINTFORMW 玉袋を押し付けながら腰を振って%LOCALS:2%竿を擦り上げ%TARGET_STR("た", "てきた")%…
				ELSE
					PRINTFORMW %LOCALS:1%秘唇を押し付けながら腰を振って%LOCALS:2%竿を擦り上げ%TARGET_STR("た", "てきた")%…
				ENDIF
			ENDIF

			;ターゲットに主導権
		CASE 1
			IF !HAS_VAGINA(MPLY:0)
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0, MPLY_NUM)%の股の間に%LOCALS:2%ペニスを挟みこむと、腰を振って%ANAME(MPLY:0, MPLY_NUM)%の玉袋に肉棒を擦り付けた
			ELSE
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0, MPLY_NUM)%の股の間に%LOCALS:2%ペニスを挟みこむと、腰を振って%ANAME(MPLY:0, MPLY_NUM)%の%LOCALS:1%秘唇に肉棒を擦り付けた
			ENDIF

			;第三者に主導権
		CASEELSE
			PRINTFORMW %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0, MPLY_NUM)%に対し、%ANAME(MTAR:0)%の%BAR_NAME(MTAR:0)%を股で挟んで擦るように命令した…
			PRINTFORM %ANAME(MPLY:0, MPLY_NUM)%は%ANAME(MTAR:0)%の%LOCALS:2%ペニスを股に挟み込み、
			IF !HAS_VAGINA(MPLY:0)
				PRINTFORMW 玉袋を押し付けながら腰を振って竿を擦り上げた…
			ELSE
				PRINTFORMW %LOCALS:1%秘唇を押し付けながら腰を振って竿を擦り上げた…
			ENDIF
	ENDSELECT
ELSE
	IF !HAS_VAGINA(MPLY:0)
		PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0, MPLY_NUM)%の股の間に%LOCALS:2%ペニスを挟みこむと、腰を振って%ANAME(MPLY:0, MPLY_NUM)%の玉袋に肉棒を擦り付けた
	ELSE
		PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0, MPLY_NUM)%の股の間に%LOCALS:2%ペニスを挟みこむと、腰を振って%ANAME(MPLY:0, MPLY_NUM)%の%LOCALS:1%秘唇に肉棒を擦り付けた
	ENDIF
ENDIF
;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST13

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

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

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

@COM_STACK_SPERM_MTAR_TO_MPLY_13()
RETURN RAND:3 ? 射精部位_足 # 射精部位_無駄


code:
;利尿剤

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME140
LOCALS:0 = 利尿剤

RESULTS:0 = %LOCALS:0%を飲ませる
RESULTS:1 = %LOCALS:0%を飲まさせられる
RESULTS:2 = %LOCALS:0%を飲まさせる
RESULTS:3 = %LOCALS:0%を飲まされる
RESULTS:4 = %LOCALS:0%を飲まさせる
RESULTS:5 = %LOCALS:0%使用見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE140
;共通部分
CALL COM_ABLE_COMMON(140)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは一人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
;利尿剤が必要
SIF ITEM:利尿剤 <= 0 && ITEM:A_利尿剤 <= 0
	RETURN 0
;既に利尿剤を使用済みなら不可
SIF TCVAR:(MTAR:0):利尿剤
	RETURN 0
;プレイヤーが拘束中なら不可
SIF IS_BIND(MPLY:0)
	RETURN 0
RETURN 1

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

;利尿剤を１つ減少させる(追加アイテム使用時は減少させない)
IF ITEM:A_利尿剤 <= 0
	ITEM:利尿剤 = MAX(ITEM:利尿剤 - 1, 0)
ENDIF

;●プレイヤー側の処理
SOURCE:(MPLY:0):逸脱 = 50

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

;●ターゲット側の処理
LOCAL:4 = 80

FOR LOCAL, 0, MTAR_NUM
	LOCAL:2 = MTAR:LOCAL

	SELECTCASE ABL:(LOCAL:2):排泄
		CASE 0
			TIMES LOCAL:4, 1.00
		CASE 1
			TIMES LOCAL:4, 0.60
		CASE 2
			TIMES LOCAL:4, 0.25
		CASE 3
			TIMES LOCAL:4, 0.05
		CASEELSE
			LOCAL:4 = 0
	ENDSELECT

	SOURCE:(LOCAL:2):逸脱 = 100
	SOURCE:(LOCAL:2):反感 = LOCAL:4

	;利尿剤仕様フラグをON
	TCVAR:(LOCAL:2):利尿剤 = 1

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

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

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

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

RETURN 1

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"露出Lv{ABL:(ARG:0):露出}", ABL:(ARG:0):露出 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"排泄Lv{ABL:(ARG:0):排泄}", ABL:(ARG:0):排泄 * 6)

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

IF TALENT:(ARG:0):倒錯的
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯的", 8)
ENDIF
IF TALENT:(ARG:0):保守的
	CALL COM_ORDER_ELEMENT(ARG:0, "保守的", -8)
ENDIF

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE140
SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0, MTAR_NUM)%に利尿剤を飲ませ%TARGET_STR("た", "てきた")%…
	;ターゲットに主導権
	CASE 1
		PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0, MTAR_NUM)%に利尿剤を飲ませるように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0, MTAR_NUM)%の口に利尿剤を注ぎ込んだ…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0, MTAR_NUM)%に対して、%ANAME(MTAR:0, MTAR_NUM)%に利尿剤を飲ませるように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0, MTAR_NUM)%の口に利尿剤を注ぎ、飲み込ませた…
ENDSELECT

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

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

@COM_AVAILABLE_WHEN140
RETURN コマンド_ウフフ

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

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


code:
;浣腸

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME141
LOCALS:0 = 浣腸

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE141
;共通部分
CALL COM_ABLE_COMMON(141)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
;浣腸が必要
SIF ITEM:浣腸 <= 0 && ITEM:A_浣腸 <= 0
	RETURN 0
;プレイヤーが拘束中なら不可
SIF IS_BIND(MPLY:0)
	RETURN 0
FOR LOCAL, 0, MTAR_NUM
	LOCAL:1 = MTAR:LOCAL
;ケツ塞がってたらダメ
	SIF IS_A_HOLD(LOCAL:1)
		RETURN 0
	SIF !CAN_REACH_GROIN(MPLY:0, LOCAL:1)
		RETURN 0
	RETURN 1
NEXT
;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM141
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;主導権の所在を取得
LOCAL:11 = GET_COM_INITIATIVE()

;●プレイヤー側の処理
SOURCE:(MPLY:0):性行動 = 90

;プレイヤーに主導権
IF LOCAL:11 == 0 || LOCAL:11 == 2
	SOURCE:(MPLY:0):嗜虐 = 200
	SOURCE:(MPLY:0):逸脱 = 300
;プレイヤーに主導権がない
ELSE
	SOURCE:(MPLY:0):逸脱 = 600
	SOURCE:(MPLY:0):恐怖 = MAX(150 - 40 * ABL:(MPLY:0):欲望, 0)
ENDIF

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

FOR LOCAL, 0, MTAR_NUM
	LOCAL:1 = MTAR:LOCAL
;●ターゲット側の処理
	EXP:(LOCAL:1):排泄経験値 += 2

	LOCAL:3 = 1000
	LOCAL:4 = 600

	SELECTCASE ABL:(LOCAL:1):排泄
		CASE 0
			TIMES LOCAL:3, 0.00
			TIMES LOCAL:4, 1.00
		CASE 1
			TIMES LOCAL:3, 0.10
			TIMES LOCAL:4, 0.60
		CASE 2
			TIMES LOCAL:3, 0.20
			TIMES LOCAL:4, 0.25
		CASE 3
			TIMES LOCAL:3, 0.40
			TIMES LOCAL:4, 0.05
		CASE 4
			TIMES LOCAL:3, 0.70
			TIMES LOCAL:4, 0.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (100 + (ABL:(LOCAL:1):排泄 - 5) * 2) / 100
			LOCAL:4 = 0
	ENDSELECT

	SOURCE:(LOCAL:1):露出 = 1400
	SOURCE:(LOCAL:1):逸脱 = 600
	SOURCE:(LOCAL:1):中毒充足 = LOCAL:3
	SOURCE:(LOCAL:1):反感 = LOCAL:4
	SOURCE:(LOCAL:1):性行動 = 150

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

;屁残量をゼロにする
	TCVAR:(LOCAL:1):屁残量 = 0
NEXT

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

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

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

RETURN 1

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"露出Lv{ABL:(ARG:0):露出}", ABL:(ARG:0):露出 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"排泄Lv{ABL:(ARG:0):排泄}", ABL:(ARG:0):排泄 * 6)

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

IF TALENT:(ARG:0):倒錯的
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯的", 8)
ENDIF
IF TALENT:(ARG:0):保守的
	CALL COM_ORDER_ELEMENT(ARG:0, "保守的", -8)
ENDIF

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE141
SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0, MTAR_NUM)%のアナルに浣腸液を注入し%TARGET_STR("た", "てきた")%
		PRINTFORMW %ANAME(MTAR:0, MTAR_NUM)%の尻穴から、下品な音と共に茶色く濁った液体が吐き出された…
	;ターゲットに主導権
	CASE 1
		PRINTFORML %ANAME(MTAR:0, MTAR_NUM)%は%ANAME(MPLY:0)%に尻を向けて、浣腸するように要求した
		PRINTFORMW %ANAME(MPLY:0)%が浣腸液を注入すると、%ANAME(MTAR:0, MTAR_NUM)%の尻穴から下品な音と共に茶色く濁った液体が吐き出された…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0, MTAR_NUM)%に浣腸するように命令した
		PRINTFORMW %ANAME(MPLY:0)%が%ANAME(MTAR:0, MTAR_NUM)%のアナルに浣腸液を注入すると、%ANAME(MTAR:0, MTAR_NUM)%の尻穴から下品な音と共に茶色く濁った液体が吐き出された…
ENDSELECT

IF CUM_CUR_AMOUNT:(MTAR:0):射精部位_アナル
	PRINTFORMW %ANAME(MTAR:0, MTAR_NUM)%の%STR_BODY("アナル", MTAR:0)%が清められた…
	CUM_CUR_AMOUNT:(MTAR:0):射精部位_アナル = 0
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST141
FOR LOCAL:0, 0, MPLY_NUM
	LOCAL:1 = MPLY:(LOCAL:0)
	LOCAL:2 = CUP:(LOCAL:1):怒主 + CUP:(LOCAL:1):哀主

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF LOCAL:2 < 0 && CUP:(LOCAL:1):欲情 >= 500
			PRINTFORMW %ANAME(LOCAL:1)%は排泄物の臭いにうっとりしながら、妖しく笑みを浮かべている
		ELSEIF LOCAL:2 < 0
			PRINTFORMW %ANAME(LOCAL:1)%は顔を赤らめながら排泄の様子をじっと見つめている
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%は排泄物の臭いに顔を歪め、不快感を露わにした
		ENDIF
	ENDIF
NEXT
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF ABL:(LOCAL:1):排泄 >= 2
			PRINTFORMW %ANAME(LOCAL:1)%はあまりの恥ずかしさに興奮したのか、すっかり顔を蕩けさせている
		ELSEIF ABL:(LOCAL:1):排泄 >= 1
			PRINTFORMW %ANAME(LOCAL:1)%は羞恥のあまり顔を伏せているが、どこか興奮した様子で息を荒くしている
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%は羞恥のあまり顔を伏せ、今にも泣き出しそうな様子だ
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN141
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_141()
RETURN POWER(2, 性的嗜好_辱めたい) + POWER(2, 性的嗜好_虐げたい)

@COM_PREFERENCE_TARGET_141()
RETURN POWER(2, 性的嗜好_辱められたい) + POWER(2, 性的嗜好_虐げられたい)


code:
;浣腸＆プラグ

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME142
LOCALS:0 = 浣腸＆プラグ

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE142
;共通部分
CALL COM_ABLE_COMMON(142)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは一人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0) && !FLAG:RECHECKING
	RETURN 0
;浣腸が必要
SIF ITEM:浣腸 <= 0 && ITEM:A_浣腸 <= 0
	RETURN 0
;プレイヤーが拘束中なら不可
SIF IS_BIND(MPLY:0) && !FLAG:RECHECKING
	RETURN 0
FOR LOCAL, 0, MTAR_NUM
	LOCAL:1 = MTAR:LOCAL
	;ケツ塞がってたらダメ
	SIF IS_A_HOLD(LOCAL:1)
		RETURN 0
	SIF IS_EQUIP_TARGET(LOCAL:1, 142)
		RETURN 0
	SIF !CAN_REACH_GROIN(MPLY:0, LOCAL:1) && !FLAG:RECHECKING
		RETURN 0
NEXT
RETURN 1

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

;主導権の所在を取得
LOCAL:11 = GET_COM_INITIATIVE()

;●プレイヤー側の処理
SOURCE:(MPLY:0):性行動 = 90

;プレイヤーに主導権
IF LOCAL:11 == 0 || LOCAL:11 == 2
	SOURCE:(MPLY:0):嗜虐 = 200
	SOURCE:(MPLY:0):逸脱 = 300
;プレイヤーに主導権がない
ELSE
	SOURCE:(MPLY:0):逸脱 = 600
	SOURCE:(MPLY:0):恐怖 = MAX(150 - 40 * ABL:(MPLY:0):欲望, 0)
ENDIF

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

;●ターゲット側の処理
FOR LOCAL, 0, MTAR_NUM
	LOCAL:1 = MTAR:LOCAL
	LOCAL:3 = 1000
	LOCAL:4 = 600

	SELECTCASE ABL:(LOCAL:1):排泄
		CASE 0
			TIMES LOCAL:3, 0.00
			TIMES LOCAL:4, 1.00
		CASE 1
			TIMES LOCAL:3, 0.10
			TIMES LOCAL:4, 0.60
		CASE 2
			TIMES LOCAL:3, 0.20
			TIMES LOCAL:4, 0.25
		CASE 3
			TIMES LOCAL:3, 0.40
			TIMES LOCAL:4, 0.05
		CASE 4
			TIMES LOCAL:3, 0.70
			TIMES LOCAL:4, 0.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (100 + (ABL:(LOCAL:1):排泄 - 5) * 2) / 100
			LOCAL:4 = 0
	ENDSELECT

	SOURCE:(LOCAL:1):露出 = 1400
	SOURCE:(LOCAL:1):逸脱 = 600
	SOURCE:(LOCAL:1):中毒充足 = LOCAL:3
	SOURCE:(LOCAL:1):反感 = LOCAL:4
	SOURCE:(LOCAL:1):性行動 = 150

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

	;屁残量をゼロにする
	TCVAR:(LOCAL:1):屁残量 = 0
NEXT

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

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

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

RETURN 1

;-------------------------------------------------
;継続コマンドかどうかを設定
;-------------------------------------------------
@COM_IS_EQUIP142
;継続コマンドかつフィルタリング不可
RETURN 2

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP142(ARG:0)
FOR LOCAL, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:3 = MEQUIP_TARGET:(ARG:0):LOCAL

	LOCAL:5 = 500
	LOCAL:6 = 300

	SELECTCASE ABL:(LOCAL:3):排泄
		CASE 0
			TIMES LOCAL:5, 0.00
			TIMES LOCAL:6, 1.00
		CASE 1
			TIMES LOCAL:5, 0.10
			TIMES LOCAL:6, 0.60
		CASE 2
			TIMES LOCAL:5, 0.20
			TIMES LOCAL:6, 0.25
		CASE 3
			TIMES LOCAL:5, 0.40
			TIMES LOCAL:6, 0.05
		CASE 4
			TIMES LOCAL:5, 0.70
			TIMES LOCAL:6, 0.00
		CASEELSE
			LOCAL:5 = LOCAL:5 * (100 + (ABL:(MTAR:0):排泄 - 5) * 2) / 100
			LOCAL:6 = 0
	ENDSELECT

	SOURCE:(LOCAL:3):苦痛 += 80
	SOURCE:(LOCAL:3):逸脱 += 200
	SOURCE:(LOCAL:3):中毒充足 += LOCAL:5
	SOURCE:(LOCAL:3):反感 += LOCAL:6

	IF GETBIT(TALENT:(LOCAL:3):淫乱系, 素質_淫乱_マゾ)
		SOURCE:(LOCAL:3):中毒充足 += 300
	ENDIF

;倒錯度変化
	TCVAR:(LOCAL:3):倒錯度変化基準値 += 4
NEXT
;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE142(ARG:0)
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%のアナルにプラグを挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP142(ARG:0)
PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%はプラグで肛門をせき止められ、苦しそうにしている…

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

LOCAL:2 = MEQUIP_TURN:(ARG:0) / 2 + 2

PRINTFORMW %ANAME(MEQUIP_TARGET:(ARG:0):0, MEQUIP_TARGET_NUM:(ARG:0))%の肛門からプラグを引き抜いた

;イベント口上の表示
CALL KOJO_EVENT(LOCAL:0, 151)

PRINTL
FOR LOCAL, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:1 = MEQUIP_TARGET:(ARG:0):LOCAL
	PRINTFORML %ANAME(LOCAL:1), 8%:排泄経験値+{LOCAL:2}

	IF CUM_CUR_AMOUNT:(LOCAL:1):射精部位_アナル
		PRINTFORML %ANAME(LOCAL:1)%の%STR_BODY("アナル", LOCAL:1)%が清められた
		CUM_CUR_AMOUNT:(LOCAL:1):射精部位_アナル = 0
	ENDIF

	EXP:(LOCAL:1):排泄経験値 += LOCAL:2
	CALL TRAIN_AUTO_ABLUP(LOCAL:1)
NEXT
WAIT

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"露出Lv{ABL:(ARG:0):露出}", ABL:(ARG:0):露出 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"排泄Lv{ABL:(ARG:0):排泄}", ABL:(ARG:0):排泄 * 6)

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

IF TALENT:(ARG:0):倒錯的
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯的", 8)
ENDIF
IF TALENT:(ARG:0):保守的
	CALL COM_ORDER_ELEMENT(ARG:0, "保守的", -8)
ENDIF

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE142
SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0, MTAR_NUM)%のアナルに浣腸液を注入し%TARGET_STR("た", "てきた")%
		PRINTFORMW さらに%ANAME(MPLY:0)%は%ANAME(MTAR:0, MTAR_NUM)%の尻穴にプラグで栓をした…
	;ターゲットに主導権
	CASE 1
		PRINTFORML %ANAME(MTAR:0, MTAR_NUM)%は%ANAME(MPLY:0)%に%STR_BODY("尻：外見：長", MTAR:0)%を向けて、浣腸するように要求した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま浣腸液を%ANAME(MTAR:0, MTAR_NUM)%のアナルに注入し、肛門にプラグで栓をした…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0, MTAR_NUM)%に浣腸してプラグを差すように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま浣腸液を%ANAME(MTAR:0, MTAR_NUM)%のアナルに注入し、肛門にプラグで栓をした…
ENDSELECT

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST142
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)
	LOCAL:2 = CUP:(LOCAL:1):怒主

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF ABL:(LOCAL:1):排泄 >= 2
			PRINTFORMW %ANAME(LOCAL:1)%は排泄の解放感を求めて、媚びるような視線で%ANAME(MPLY:0)%を見つめている
		ELSEIF LOCAL:2 < 100
			PRINTFORMW %ANAME(LOCAL:1)%はプラグで肛門をせき止められ、苦悶の表情を浮かべている
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%は苦しそうに腹を押さえながら、恨めしそうに%ANAME(MPLY:0)%を睨んでいる
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN142
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_142()
RETURN POWER(2, 性的嗜好_辱めたい) + POWER(2, 性的嗜好_虐げたい)

@COM_PREFERENCE_TARGET_142()
RETURN POWER(2, 性的嗜好_辱められたい) + POWER(2, 性的嗜好_虐げられたい)


code:
;足コキ

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME14
LOCALS:1 =
IF FLAG:調教モード == 調教_居住区
	CALL HO_CHECK_USE_MODULE_ELEMENT(MASTER, "卓")
	IF RESULT == 1
		LOCALS:1 = Unrestrained
	ENDIF
ENDIF
IF MTAR_NUM == 2
	LOCALS:0 = Simultanious Footjob
ELSEIF MPLY_NUM == 3
	LOCALS:0 = Ｔ Footjob
ELSEIF MPLY_NUM == 2
	LOCALS:0 = W Footjob
ELSE
	LOCALS:0 = Footjob
ENDIF

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE14
;共通部分
CALL COM_ABLE_COMMON(14)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で3人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 3
	RETURN 0
;ターゲットは最大で2人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 2
	RETURN 0
;複数-複数は不可
SIF MPLY_NUM >= 2 && MTAR_NUM >= 2
	RETURN 0
;全プレイヤーについて判定
FOR LOCAL:0, 0, MPLY_NUM
	;行動不能なら不可
	SIF !IS_PLAYABLE(MPLY:(LOCAL:0))
		RETURN 0
	;拘束中なら不可
	SIF IS_BIND(MPLY:(LOCAL:0))
		RETURN 0
	SIF IS_RIDDEN(MPLY:(LOCAL:0), MTAR:0)
		RETURN 0
	;プレイヤーが土下座しているなら不可
	SIF IS_EQUIP_PLAYER(MPLY:(LOCAL:0), 110)
		RETURN 0
	;ターゲットからプレイヤーに足舐め中なら不可
	SIF SEARCH_EQUIP(104, MTAR:0, MPLY:(LOCAL:0)) >= 0
		RETURN 0
NEXT
;全ターゲットについて判定
FOR LOCAL:0, 0, MTAR_NUM
	;竿が必要
	SIF !HAS_PENIS(MTAR:(LOCAL:0))
		RETURN 0
	SIF !P_STACKABLE(MPLY:0, MTAR:(LOCAL:0), 14)
		RETURN 0
	;ターゲットのＶが他のキャラの竿で埋まっていて、体位が後背位・背面座位・騎乗位・背面騎乗位以外なら不可
	SIF IS_INSERT_SINGLE(MTAR:0, "Ｖ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ｖ"), 2, 4, 5, 6)
		RETURN 0
	;ターゲットのＡが他のキャラの竿で埋まっていて、体位がＡ後背位・Ａ背面座位・Ａ騎乗位・Ａ背面騎乗位以外なら不可
	SIF IS_INSERT_SINGLE(MTAR:0, "Ａ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ａ"), 2, 4, 5, 6)
		RETURN 0
	;土下座しているなら不可
	SIF IS_EQUIP_PLAYER(MTAR:(LOCAL:0), 110)
		RETURN 0
NEXT

FOR LOCAL:0, 0, MPLY_NUM
	FOR LOCAL:1, 0, MTAR_NUM
		SIF IS_INSERT_MUTUAL(MPLY:(LOCAL:0), MTAR:(LOCAL:1))
			RETURN 0
		SIF REACHING_BODY(MPLY:(LOCAL:0), MTAR:(LOCAL:1)) || REACHING_BODY(MTAR:(LOCAL:1), MPLY:(LOCAL:0))
			RETURN 0
		SIF REACHING_GROIN(MPLY:(LOCAL:0), MTAR:(LOCAL:1)) || REACHING_GROIN(MTAR:(LOCAL:1), MPLY:(LOCAL:0))
			RETURN 0
		SIF LICKING_GROIN(MPLY:(LOCAL:0), MTAR:(LOCAL:1)) || LICKING_GROIN(MTAR:(LOCAL:1), MPLY:(LOCAL:0))
			RETURN 0
		SIF LICKING_BODY(MPLY:(LOCAL:0), MTAR:(LOCAL:1)) || LICKING_BODY(MTAR:(LOCAL:1), MPLY:(LOCAL:0))
			RETURN 0
		;buttjob (giving or receiving)
		SIF SEARCH_EQUIP_IC(15, MPLY:(LOCAL:0), MTAR:(LOCAL:1)) >= 0
			RETURN 0
	NEXT
NEXT

RETURN 1

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

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

SELECTCASE MPLY_NUM
	CASE 2
		TIMES LOCAL:10, 0.75
	CASE 3
		TIMES LOCAL:10, 0.60
ENDSELECT

SELECTCASE MTAR_NUM
	CASE 2
		TIMES LOCAL:10, 0.75
ENDSELECT

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

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

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

	SOURCE:(LOCAL:2):奉仕 = SERVE_HOUSHI(LOCAL:2, 200)
	SOURCE:(LOCAL:2):接触 = 50
	SOURCE:(LOCAL:2):逸脱 = 30
	SOURCE:(LOCAL:2):性行動 = 210

	;プレイヤー主導の場合
	IF GET_COM_INITIATIVE() == 0
		SOURCE:(LOCAL:2):嗜虐 = 80
	ENDIF

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

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

	;全ターゲットに与える快感系ソースを計算
	FOR LOCAL:1, 0, MTAR_NUM
		LOCAL:3 = MTAR:(LOCAL:1)
		SOURCE:(LOCAL:3):快Ｐ += SENSE_HOUSHI_P(LOCAL:2, LOCAL:3, 1100 + TALENT:(LOCAL:2):美脚 * 300) * LOCAL:10 / 100

	NEXT
NEXT

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

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

	SOURCE:(LOCAL:1):接触 = 50
	SOURCE:(LOCAL:1):逸脱 = 30
	SOURCE:(LOCAL:1):苦痛 = 20
	SOURCE:(LOCAL:1):性行動 = 180

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

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

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

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

RETURN 1

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

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

SELECTCASE MEQUIP_PLAYER_NUM:(ARG:0)
	CASE 2
		TIMES LOCAL:10, 0.75
	CASE 3
		TIMES LOCAL:10, 0.60
ENDSELECT

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

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

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

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

	SOURCE:(LOCAL:2):奉仕 += SERVE_HOUSHI(LOCAL:2, 60)
	SOURCE:(LOCAL:2):接触 += 25
	SOURCE:(LOCAL:2):逸脱 += 15
	SOURCE:(LOCAL:2):性行動 += 70

	;プレイヤー主導の場合
	IF IS_INITIATIVE(LOCAL:2)
		SOURCE:(LOCAL:2):嗜虐 = 80
	ENDIF

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

	;倒錯度変化基準値
	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_P(LOCAL:2, LOCAL:3, 370 + TALENT:(LOCAL:2):美脚 * 100) * LOCAL:10 / 100

	NEXT
NEXT

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

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

	SOURCE:(LOCAL:1):接触 += 25
	SOURCE:(LOCAL:1):逸脱 += 15
	SOURCE:(LOCAL:1):苦痛 += 10
	SOURCE:(LOCAL:1):性行動 += 60

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE14(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に足コキ中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP14(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のペニスを足でシゴき上げている…

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

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

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

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

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, "恥じらい", -2)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 6)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -1)
ENDIF
IF TALENT:(ARG:0):男嫌い
	CALL COM_ORDER_ELEMENT(ARG:0, "男嫌い", -7)
ENDIF

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------

@COM_TEXT_BEFORE14
#DIMS DYNAMIC 性器描写
#DIMS DYNAMIC 淫乱描写
#DIMS DYNAMIC 衣装名
#DIMS DYNAMIC 実行名
#DIMS DYNAMIC 対象名
#DIMS DYNAMIC 状況
;ターゲットが２人
IF TALENT:(MPLY:0):美脚
	LOCALS:1 = すらりとした美しい脚を見せつけつつ、
ELSE
	LOCALS:1 =
ENDIF
IF MTAR_NUM == 2
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORM %ANAME(MPLY:0)%は
			IF MPLY:0 != MASTER && ABL:(MPLY:0):サド >= 3
				PRINT サディスティックな笑みを浮かべながら、
			ELSE
				PRINT 戸惑うようにしながら、
			ENDIF
			PRINTFORML %LOCALS:1%
			PRINTFORMW %ANAME(MTAR:0)%と%ANAME(MTAR:1)%のペニスを左右の足で踏みつけ擦りあげ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MPLY:0)%は足を開き、%LOCALS:1%%ANAME(MTAR:0)%と%ANAME(MTAR:1)%のペニスを左右の足で擦りあげて奉仕した…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%ANAME(MTAR:0)%と%ANAME(MTAR:1)%のペニスを足でシゴくように命令した
			PRINTFORMW %ANAME(MPLY:0)%は足を開き、%LOCALS:1%%ANAME(MTAR:0)%と%ANAME(MTAR:1)%のペニスを左右の足で擦りあげた…
	ENDSELECT

	;プレイヤーが３人
ELSEIF MPLY_NUM == 3
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%、%ANAME(MPLY:1)%、%ANAME(MPLY:2)%の三人は、%LOCALS:1%一斉に%ANAME(MTAR:0)%のペニスを踏みつけ擦り上げ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MPLY:0)%、%ANAME(MPLY:1)%、%ANAME(MPLY:2)%の三人は、%LOCALS:1%協力しながら%ANAME(MTAR:0)%のペニスを足で擦り上げて奉仕した…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%、%ANAME(MPLY:1)%、%ANAME(MPLY:2)%の三人に、%ANAME(MTAR:0)%のペニスを足でシゴくように命令した
			PRINTFORMW 三人は言われた通り、%LOCALS:1%一斉に%ANAME(MTAR:0)%のペニスを足で擦り上げた…
	ENDSELECT

	;プレイヤーが２人
ELSEIF MPLY_NUM == 2
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は、%LOCALS:1%二人で%ANAME(MTAR:0)%のペニスを踏みつけ擦り上げ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は、%LOCALS:1%二人で協力しながら%ANAME(MTAR:0)%のペニスを足で擦り上げて奉仕した…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%と%ANAME(MPLY:1)%に、%ANAME(MTAR:0)%のペニスを足でシゴくように命令した
			PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MPLY:1)%は、%LOCALS:1%二人で%ANAME(MTAR:0)%のペニスを足で擦り上げた…
	ENDSELECT

	;プレイヤーが１人
ELSE
	LOCALS:1 = %S_R("すらりとした美しい脚/艶めかしい脚線美")%を見せつけつつ、
	IF C_COND_MAP_GET(MPLY, "衣装状態_靴下") == 衣装状態_着
		衣装名 = %C_COND_MAP_GETS(MPLY, "衣装描写_靴下")%
	ENDIF
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			{
				CALLF PRINT_RANDC(
					TEXT_CONCATEC(
					@"%ANAME(MPLY)%は", 1
					,@"%LOCALS:1%", 1
					,@"%S_R("サディスティックな笑みを浮かべながら/嗜虐的な笑みを浮かべながら")%", 1
					,@"%S_R("足裏で挟み込んで/両足で激しく/片足で嬲るように/親指の腹を押し当てて")%、", 1
					,@"%ANAME(MTAR)%のペニスをシゴきあげ", 1
					,@"%TARGET_STR("た", "てきた")%…", 1
					), MPLY != MASTER && ABL:MPLY:サド >= 3
					,TEXT_CONCATEC(
					@"%ANAME(MPLY)%は", 1
					,@"%LOCALS:1%", 1
					,@"%S_R("遠慮がちに/おずおずと")%", 1
					,@"%S_R("足裏で/両足で/片足を這わせて/親指の腹を押し当てて")%", 1
					,@"%ANAME(MTAR)%のペニスをすりあげて", 1
					,@"%TARGET_STR("た", "てきた")%…", 1
					), 1
					)
			}
			PRINTL
			;ターゲットに主導権
		CASE 1
			PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の前で足を開き、%LOCALS:1%ペニスを両足で擦りあげて奉仕した…
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%ANAME(MTAR:0)%のペニスを足でシゴくように命令した
			PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の前で足を開き、%LOCALS:1%ペニスを両足で擦り上げた…
	ENDSELECT
	;着衣手コキ
	IF 衣装名 != "" && C_COND("衣装属性:靴下:滑らか",, MPLY)
		{
			CALLF PRINT_RANDC(
				TEXT_CONCATE(
				@"%S_R("足裏が亀頭に触れる度に/親指が鈴口をなぞり上げる度に/足先が亀頭を撫で回す度に")%、"
				,@"%ANAME(MPLY)%の"
				,@"%衣装名%の"
				,@"%S_R("艶めかしい感触が/感触が/生地の感触が")%、"
				,@"%ANAME(MTAR)%の"
				,@"%S_R("ペニスを刺激する/性感を刺激する/劣情を煽り立てる")%…"
				), 1
				)
		}
		PRINTL
	ENDIF
	WAIT
ENDIF

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

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

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

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

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

@COM_STACK_SPERM_MTAR_TO_MPLY_14()
RETURN 射精部位_足


code:
;放屁する

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME150
LOCALS:0 = 放屁

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE150
;共通部分
CALL COM_ABLE_COMMON(150)
SIF RESULT == 0
	RETURN 0
;プレイヤーは1人以上
SIF MPLY_NUM <= 0
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
;多対多は不可
SIF MPLY_NUM >= 2 && MTAR_NUM >= 2
	RETURN 0

LOCAL:1 = -1
;全てのプレイヤーについて判定
FOR LOCAL:0, 0, MPLY_NUM
	;屁残量が十分でないなら不可
	SIF TCVAR:(MPLY:(LOCAL:0)):55 < 1000
		RETURN 0
	;Ａが埋まっているなら不可
	SIF IS_A_HOLD(MPLY:(LOCAL:0))
		RETURN 0
	;顔面騎乗中なら不可
	SIF IS_RIDE(MPLY:(LOCAL:0))
		RETURN 0
NEXT
RETURN 1

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

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

	EXP:(LOCAL:2):排泄経験値 += 1

	LOCAL:3 = 300
	LOCAL:4 = 250

	SELECTCASE ABL:(LOCAL:2):排泄
		CASE 0
			TIMES LOCAL:3, 0.00
			TIMES LOCAL:4, 1.00
		CASE 1
			TIMES LOCAL:3, 0.10
			TIMES LOCAL:4, 0.60
		CASE 2
			TIMES LOCAL:3, 0.20
			TIMES LOCAL:4, 0.25
		CASE 3
			TIMES LOCAL:3, 0.40
			TIMES LOCAL:4, 0.05
		CASE 4
			TIMES LOCAL:3, 0.70
			TIMES LOCAL:4, 0.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (100 + (ABL:(LOCAL:2):排泄 - 5) * 2) / 100
			LOCAL:4 = 0
	ENDSELECT

	SOURCE:(LOCAL:2):露出 = 1000
	SOURCE:(LOCAL:2):逸脱 = 400
	SOURCE:(LOCAL:2):中毒充足 = LOCAL:3
	SOURCE:(LOCAL:2):反感 = LOCAL:4

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

	;屁残量を0にする
	TCVAR:(LOCAL:2):屁残量 = 0
NEXT

;主導権の所在を取得
LOCAL:11 = GET_COM_INITIATIVE()

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

	;ターゲットに主導権
	IF LOCAL:11 == 1 || LOCAL:11 == 2
		SOURCE:(LOCAL:1):嗜虐 = 200
		SOURCE:(LOCAL:1):逸脱 = 200
	;ターゲットに主導権がない
	ELSE
		SOURCE:(LOCAL:1):逸脱 = 400
		SOURCE:(LOCAL:1):恐怖 = MAX(100 - 30 * ABL:(LOCAL:1):欲望, 0)
	ENDIF

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

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

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

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

RETURN 1

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

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"露出Lv{ABL:(ARG:0):露出}", ABL:(ARG:0):露出 * 4)
CALL COM_ORDER_ELEMENT(ARG:0, @"排泄Lv{ABL:(ARG:0):排泄}", ABL:(ARG:0):排泄 * 7)

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

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -12)
ENDIF
IF TALENT:(ARG:0):恥薄い
	CALL COM_ORDER_ELEMENT(ARG:0, "恥薄い", 8)
ENDIF
IF TALENT:(ARG:0):自制心
	CALL COM_ORDER_ELEMENT(ARG:0, "自制心", -6)
ENDIF
IF TALENT:(ARG:0):目立ちたがり
	CALL COM_ORDER_ELEMENT(ARG:0, "目立ちたがり", 6)
ENDIF
IF TALENT:(ARG:0):倒錯的
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯的", 8)
ENDIF

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE150
IF MPLY_NUM == 1
	LOCALS:1 = %ANAME(MPLY:0)%
ELSEIF MPLY_NUM == 2
	LOCALS:1 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%
ELSE
	LOCALS:1 = %ANAME(MPLY:0)%たち
ENDIF

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

SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORMW %LOCALS:1%は%LOCALS:2%に尻を向けてオナラをし%TARGET_STR("た", "てきた")%…
	;ターゲットに主導権
	CASE 1
		PRINTFORMW %LOCALS:2%は自分の目の前で%LOCALS:1%にオナラをさせた…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:1%に対して、%LOCALS:2%に向けてオナラをするように命令した
		PRINTFORMW %LOCALS:1%は言われるまま%LOCALS:2%に尻を向けてオナラをした…
ENDSELECT

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST150
FOR LOCAL:0, 0, MPLY_NUM
	LOCAL:1 = MPLY:(LOCAL:0)

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF ABL:(LOCAL:1):排泄 >= 2
			PRINTFORMW %ANAME(LOCAL:1)%は恥ずかしさと解放感に、興奮した表情を浮かべている
		ELSEIF ABL:(LOCAL:1):排泄 >= 1
			PRINTFORMW %ANAME(LOCAL:1)%はまだ緊張した様子だが、放屁の解放感に思わず顔を緩めた
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%はあまりの恥ずかしさに顔を真っ赤にしている
		ENDIF
	ENDIF
NEXT
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)
	LOCAL:2 = CUP:(LOCAL:1):怒主 + CUP:(LOCAL:1):哀主

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF LOCAL:2 < 0 && CUP:(LOCAL:1):欲情 >= 500
			PRINTFORMW %ANAME(LOCAL:1)%は息を荒げ、興奮した様子でオナラの臭いを嗅いでいる
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%は漂ってくる臭気に思わず顔をしかめた
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN150
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_150()
RETURN POWER(2, 性的嗜好_辱めたい)

@COM_PREFERENCE_TARGET_150()
RETURN POWER(2, 性的嗜好_辱められたい)


code:
;顔騎放屁

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME151
LOCALS:0 = 顔騎放屁

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE151
;共通部分
CALL COM_ABLE_COMMON(151)
SIF RESULT == 0
	RETURN 0
;プレイヤーは1人以上
SIF MPLY_NUM <= 0
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0

;全てのプレイヤーについて判定
FOR LOCAL:0, 0, MPLY_NUM
	;屁残量が十分でないなら不可
	SIF TCVAR:(MPLY:(LOCAL:0)):55 < 1000
		RETURN 0
	;Ａが埋まっているなら不可
	SIF IS_A_HOLD(MPLY:(LOCAL:0))
		RETURN 0
	;全員がターゲットに跨っていないと不可
	SIF !IS_RIDE(MPLY:(LOCAL:0), MTAR:0)
		RETURN 0
NEXT
RETURN 1

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

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

	EXP:(LOCAL:2):排泄経験値 += 1

	LOCAL:3 = 300
	LOCAL:4 = 250

	SELECTCASE ABL:(LOCAL:2):排泄
		CASE 0
			TIMES LOCAL:3, 0.00
			TIMES LOCAL:4, 1.00
		CASE 1
			TIMES LOCAL:3, 0.10
			TIMES LOCAL:4, 0.60
		CASE 2
			TIMES LOCAL:3, 0.20
			TIMES LOCAL:4, 0.25
		CASE 3
			TIMES LOCAL:3, 0.40
			TIMES LOCAL:4, 0.05
		CASE 4
			TIMES LOCAL:3, 0.70
			TIMES LOCAL:4, 0.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (100 + (ABL:(LOCAL:2):排泄 - 5) * 2) / 100
			LOCAL:4 = 0
	ENDSELECT

	SOURCE:(LOCAL:2):露出 = 1000
	SOURCE:(LOCAL:2):逸脱 = 400
	SOURCE:(LOCAL:2):中毒充足 = LOCAL:3
	SOURCE:(LOCAL:2):反感 = LOCAL:4

	IF IS_INITIATIVE(LOCAL:2)
		SOURCE:(LOCAL:2):嗜虐 = 250
	ENDIF

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

	;屁残量を0にする
	TCVAR:(LOCAL:2):屁残量 = 0
NEXT

;主導権の所在を取得
LOCAL:11 = GET_COM_INITIATIVE()

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

	;ターゲットに主導権
	IF LOCAL:11 == 1 || LOCAL:11 == 2
		SOURCE:(LOCAL:1):嗜虐 = 200
		SOURCE:(LOCAL:1):逸脱 = 300
	;ターゲットに主導権がない
	ELSE
		SOURCE:(LOCAL:1):逸脱 = 600
		SOURCE:(LOCAL:1):恐怖 = MAX(200 - 50 * ABL:(LOCAL:1):欲望, 0)
	ENDIF

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

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

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

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

RETURN 1

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

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 2)
CALL COM_ORDER_ELEMENT(ARG:0, @"露出Lv{ABL:(ARG:0):露出}", ABL:(ARG:0):露出 * 4)
CALL COM_ORDER_ELEMENT(ARG:0, @"排泄Lv{ABL:(ARG:0):排泄}", ABL:(ARG:0):排泄 * 7)

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

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -12)
ENDIF
IF TALENT:(ARG:0):恥薄い
	CALL COM_ORDER_ELEMENT(ARG:0, "恥薄い", 8)
ENDIF
IF TALENT:(ARG:0):自制心
	CALL COM_ORDER_ELEMENT(ARG:0, "自制心", -6)
ENDIF
IF TALENT:(ARG:0):目立ちたがり
	CALL COM_ORDER_ELEMENT(ARG:0, "目立ちたがり", 6)
ENDIF
IF TALENT:(ARG:0):倒錯的
	CALL COM_ORDER_ELEMENT(ARG:0, "倒錯的", 8)
ENDIF

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE151
IF MPLY_NUM == 1
	LOCALS:1 = %ANAME(MPLY:0)%
ELSEIF MPLY_NUM == 2
	LOCALS:1 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%
ELSE
	LOCALS:1 = %ANAME(MPLY:0)%たち
ENDIF

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

SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		IF MPLY_NUM == 1 && (MPLY:0 != MASTER || CONFIG:441) && ABL:(MPLY:0):サド >= 3
			PRINTFORMW %LOCALS:1%は%LOCALS:2%の鼻にお尻をグリグリと押し付けながらオナラをし%TARGET_STR("た", "てきた")%…
		ELSE
			PRINTFORMW %LOCALS:1%は%LOCALS:2%の顔の上に跨ったままオナラをし%TARGET_STR("た", "てきた")%…
		ENDIF
	;ターゲットに主導権
	CASE 1
		PRINTFORMW %LOCALS:2%は自分の顔の上に%LOCALS:2%を跨がらせたままでオナラをさせた…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:1%に対して、%LOCALS:2%の顔に跨ったままオナラをするように命令した
		PRINTFORMW %LOCALS:1%は言われた通り、%LOCALS:2%の顔にお尻を押し付けながらオナラをした…
ENDSELECT

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST151
FOR LOCAL:0, 0, MPLY_NUM
	LOCAL:1 = MPLY:(LOCAL:0)

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF ABL:(LOCAL:1):排泄 >= 2
			IF IS_INITIATIVE(LOCAL:1) && ABL:(LOCAL:1):サド >= 3
				PRINTFORMW %ANAME(LOCAL:1)%は%ANAME(MTAR:0)%にオナラを嗅がせる優越感に浸っている
			ELSE
				PRINTFORMW %ANAME(LOCAL:1)%は恥ずかしさと解放感に、興奮した表情を浮かべている
			ENDIF
		ELSEIF ABL:(LOCAL:1):排泄 >= 1
			PRINTFORMW %ANAME(LOCAL:1)%はまだ緊張した様子だが、放屁の解放感に思わず顔を緩めた
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%はあまりの恥ずかしさに顔を真っ赤にしている
		ENDIF
	ENDIF
NEXT
FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)
	LOCAL:2 = CUP:(LOCAL:1):怒主 + CUP:(LOCAL:1):哀主

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !TCVAR:(MTAR:0):失神フラグ
		IF LOCAL:2 < 0 && CUP:(LOCAL:1):欲情 >= 500
			PRINTFORMW %ANAME(LOCAL:1)%はオナラの臭いを嗅ぎながら、興奮した様子で体を震わせている
		ELSEIF LOCAL:2 < 0 && CUP:(LOCAL:1):欲情 < 500
			PRINTFORMW %ANAME(LOCAL:1)%はあまりの臭いに、足をバタつかせて苦しそうにしている
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%はあまりの臭いに、尻の下から逃れようと抵抗した
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN151
RETURN コマンド_ウフフ

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_151()
RETURN POWER(2, 性的嗜好_辱められたい) + POWER(2, 性的嗜好_汚されたい)

@COM_PREFERENCE_TARGET_151()
RETURN POWER(2, 性的嗜好_辱めたい)