code:
;バイブ

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME68
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_ABLE68
;共通部分
CALL COM_ABLE_COMMON(68)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;requires strapon
SIF (!ITEM:ペニスバンド && !ITEM:A_ペニスバンド)
	RETURN 0
FOR LOCAL:0, 0, MTAR_NUM
	;ターゲットの口が塞がっているなら不可
	SIF IS_M_HOLD(MTAR:(LOCAL:0))
		RETURN 0
	SIF !CAN_REACH_BODY(MPLY:0, MTAR:0) && !FLAG:RECHECKING
		RETURN 0
	;already equipped
	SIF IS_EQUIP_TARGET(MTAR:(LOCAL:0), 68)
		RETURN 0
NEXT
RETURN 1

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

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

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

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

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

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

FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)
	;●ターゲットについて処理
	DOWNBASE:(LOCAL:2):体力 += 80
	EXP:(LOCAL:2):性技経験値 += 1
	SOURCE:(LOCAL:2):露出 = 50
	SOURCE:(LOCAL:2):逸脱 = 120
	SOURCE:(LOCAL:2):接触 = 10
	SOURCE:(LOCAL:2):性行動 = 300
	IF TALENT:(MPLY:0):技師
		SOURCE:(LOCAL:2):快Ｍ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 900)
	ELSE
		SOURCE:(LOCAL:2):快Ｍ = SENSE_HOUSHI(MPLY:0, LOCAL:2, 600)
	ENDIF

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

	;バイブの共通処理
	CALL COM_COMMON68(LOCAL:2)
NEXT
;主導度変化基準値
TFLAG:主導度変化基準値 = 2

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

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

RETURN 1

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

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

FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:0)
	CALL PUTOUT_SOURCE(LOCAL:3)
	EXP:(LOCAL:2):性技経験値 += 1
	IF TALENT:(LOCAL:2):技師
		SOURCE:(LOCAL:3):快Ｍ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 600)
	ELSE
		SOURCE:(LOCAL:3):快Ｍ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 300)
	ENDIF
	SOURCE:(LOCAL:3):露出 += 20
	SOURCE:(LOCAL:3):逸脱 += 50
	SOURCE:(LOCAL:3):性行動 += 100

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

	;共通処理
	CALL COM_COMMON68(LOCAL:3)

	;退避したソースを加算
	CALL SUM_SOURCE(LOCAL:3)
NEXT
;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE68(ARG:0)
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%
RESULTS += "の口をペニバン責め中"

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP68(ARG:0)
PRINTFORM %EQUIP_TARGET_ANAME(ARG:0)%
PRINTFORML の口内をペニスバンドが責めている

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP68(ARG:0)
PRINTFORM %EQUIP_TARGET_ANAME(ARG:0)%
PRINTFORMW の口からペニスバンドを引き抜いた

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

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

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

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

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

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

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

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

IF CUM_GET_AMOUNT:(MTAR:0):射精部位_口 > 0
	LOCALS:2 = 飲ませた精液を吐き出さないよう
ELSE
	LOCALS:2 =
ENDIF

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の口にペニスバンドのついた口枷を取り付け%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORMW %LOCALS:1%は%ANAME(MPLY:0)%にペニスバンドのついた口枷を握らせると、%LOCALS:2%自身の口に取り付けさせた…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、ペニスバンドのついた口枷で%LOCALS:1%を責めるように命令した
		PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の口にペニスバンドのついた口枷を取り付けた…
ENDSELECT

SIF (MTAR == 1) && CUM_CUR_AMOUNT:(MTAR:0):射精部位_口 > 0
	PRINTFORML %ANAME(MTAR:0)%は口に溜まった精液をもはや吐き出せない…
WAIT

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

;--------------------------------------------------------
;装着時と継続状態での共通処理
;--------------------------------------------------------
@COM_COMMON68(ARG:0)
SELECTCASE ABL:(ARG:0):Ｍ感
	CASE 0
		SOURCE:(ARG:0):苦痛 += 300
	CASE 1
		SOURCE:(ARG:0):苦痛 += 100
	CASE 2
		SOURCE:(ARG:0):苦痛 += 30
ENDSELECT

IF PALAM:(ARG:0):潤滑 < PALAMLV:1
	TIMES SOURCE:(ARG:0):快Ｍ, 0.05
	SOURCE:(ARG:0):苦痛 = SOURCE:(ARG:0):苦痛 * 4 + 1000
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:3
	TIMES SOURCE:(ARG:0):快Ｍ, 0.20
	SOURCE:(ARG:0):苦痛 = SOURCE:(ARG:0):苦痛 * 2 + 300
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:5
	TIMES SOURCE:(ARG:0):快Ｍ, 0.60
	TIMES SOURCE:(ARG:0):苦痛, 1.00
ELSEIF PALAM:(ARG:0):潤滑 < PALAMLV:7
	TIMES SOURCE:(ARG:0):快Ｍ, 0.85
	TIMES SOURCE:(ARG:0):苦痛, 0.70
ELSE
	TIMES SOURCE:(ARG:0):快Ｍ, 1.00
	TIMES SOURCE:(ARG:0):苦痛, 0.50
ENDIF

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

IF TALENT:(ARG:0):処女 == 1
	SOURCE:(ARG:0):苦痛 = SOURCE:(ARG:0):苦痛 * 2 + 500
ENDIF

IF ARG:0 != MASTER
	IF !(TALENT:(ARG:0):恋慕 || TALENT:(ARG:0):親友)
		IF TALENT:(ARG:0):貞操観念
			SOURCE:(ARG:0):反感 = 1000
		ELSEIF TALENT:(ARG:0):貞操無頓着
			SOURCE:(ARG:0):反感 = 300
		ELSE
			SOURCE:(ARG:0):反感 = 2500
		ENDIF
		IF TALENT:(ARG:0):恋人
			TIMES SOURCE:(ARG:0):反感, 0.10
		ENDIF
	ENDIF

	;好感度・従属度・支配度の影響
	LOCAL:0 = MAX(CFLAG:(ARG:0):好感度, CFLAG:(ARG:0):従属度, CFLAG:(ARG:0):支配度)
	IF LOCAL:0 < 100
		TIMES SOURCE:(ARG:0):反感, 1.00
	ELSEIF LOCAL:0 < 300
		TIMES SOURCE:(ARG:0):反感, 0.90
	ELSEIF LOCAL:0 < 500
		TIMES SOURCE:(ARG:0):反感, 0.80
	ELSEIF LOCAL:0 < 800
		TIMES SOURCE:(ARG:0):反感, 0.40
	ELSEIF LOCAL:0 < 1500
		TIMES SOURCE:(ARG:0):反感, 0.15
	ELSE
		SOURCE:(ARG:0):反感 = SOURCE:(ARG:0):反感 / ((LOCAL:0 - 1500) / 50 + 10)
	ENDIF

ENDIF

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

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

@COM_AVAILABLE_WHEN68
RETURN コマンド_ウフフ

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

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


code:
;尻尾挿入

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME6
LOCALS:0 = Tail insertion

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_ABLE6
;共通部分
CALL COM_ABLE_COMMON(6)
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 !TALENT:(MPLY:0):しっぽ
	RETURN 0
;ターゲットにＶが必要
SIF !HAS_VAGINA(MTAR:0, 1)
	RETURN 0
;ターゲットのＶがプレイヤーの尻尾以外で埋まっているなら不可
SIF IS_V_HOLD(MTAR:0)
	RETURN 0
;プレイヤーが尻尾を使用中なら不可
SIF IS_EQUIP_PLAYER(MPLY:0, 6, 7, 17)
	RETURN 0
RETURN 1

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

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

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

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

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

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

IF TALENT:(MTAR:0):処女 == 1
	SOURCE:(MTAR:0):快Ｖ += SENSE_HOUSHI(MPLY:0, MTAR:0, 1050)
ELSE
	SOURCE:(MTAR:0):快Ｖ += SENSE_HOUSHI(MPLY:0, MTAR:0, 1400)
ENDIF

CALL VIRGIN_COMMON(MTAR:0, @"%ANAME(MPLY:0)%の尻尾", GET_SITUATION_BY_TRAIN_MODE())

;対象の膣が緩む
CALL TIGHTNESS_DECREASE_V(MTAR:0, RAND(1, 4))

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

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

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

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

RETURN 1

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

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

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

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

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

;●ターゲットについて処理
SOURCE:(LOCAL:3):快Ｖ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 500)
SOURCE:(LOCAL:3):露出 += 20
SOURCE:(LOCAL:3):接触 += 30
SOURCE:(LOCAL:3):性行動 += 100

CALL VIRGIN_COMMON(LOCAL:3, @"%ANAME(LOCAL:2)%の尻尾", GET_SITUATION_BY_TRAIN_MODE())

;対象の膣が緩む
CALL TIGHTNESS_DECREASE_V(LOCAL:3, RAND(1, 4))

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE6(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%の膣に尻尾を挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP6(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%の尻尾が%EQUIP_TARGET_ANAME(ARG:0)%の膣壁を擦り上げている…

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

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

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

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

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

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

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE6
IF TALENT:(MTAR:0):処女 == 1
	LOCALS:0 = まだ乙女の
ELSEIF PALAM:(MTAR:0):潤滑 >= PALAMLV:7
	LOCALS:0 = 濡れそぼった
ELSE
	LOCALS:0 =
ENDIF

IF TALENT:(MTAR:0):体格 == 体格_子供
	LOCALS:0 = %LOCALS:0%幼いワレメ
ELSE
	LOCALS:0 = %LOCALS:0%ワレメ
ENDIF

;既に尻尾を挿入中の場合
IF SEARCH_EQUIP(6, MPLY:0, MTAR:0) >= 0
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の膣内に挿入された尻尾を何度も抜き挿し、%ANAME(MTAR:0)%を責め立て%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に促されるまま、%ANAME(MTAR:0)%の膣内に挿入された尻尾を動かして奉仕している…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に%ANAME(MTAR:0)%の膣内に挿入された尻尾をさらに動かすように命令した
			PRINTFORMW %ANAME(MPLY:0)%は尻尾を何度も抜き挿し、%ANAME(MTAR:0)%の膣を責め立てた…
	ENDSELECT

;それ以外
ELSE
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の%LOCALS:0%に尻尾を挿入し、膣内で前後に動かし%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は自身の%LOCALS:0%に%ANAME(MPLY:0)%の尻尾を挿入させ、奉仕するように命令した…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、尻尾で%ANAME(MTAR:0)%の中を責めるように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の%LOCALS:0%に尻尾を挿入し、膣内で前後に動かした…
	ENDSELECT
ENDIF

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

		IF TCVAR:(LOCAL:1):失神フラグ
			;気絶中
			PRINTFORML 膣内を責められると、%ANAME(LOCAL:1)%は意識を失ったまま小さく呻いた
		ELSEIF LOCAL:2 < 300
			PRINTFORML %ANAME(LOCAL:1)%の開発されていないそこはまだキツく、%ANAME(LOCAL:1)%は苦しそうに顔を歪めた
		ELSEIF LOCAL:2 < 1000
			PRINTFORML %ANAME(LOCAL:1)%は苦しそうにしながらもその表情には快楽の兆しが見える
		ELSEIF LOCAL:2 < 3000
			PRINTFORML %ANAME(LOCAL:1)%はこらえきれない快楽に可愛らしい声を漏らしている
		ELSEIF LOCAL:2 < 6000
			PRINTFORML %ANAME(LOCAL:1)%は大分慣れてきたのか、時折自ら快楽を求めるように小さく腰を揺らしている
		ELSEIF LOCAL:2 < 10000
			PRINTFORM %ANAME(LOCAL:1)%は
			IF TALENT:(LOCAL:1):抑圧 || TALENT:(LOCAL:1):孤高 || TALENT:(LOCAL:1):快感の否定
				PRINTFORML 快楽を否定する言葉を吐きつつ、こらえ切れない喘ぎ声を上げ続けている
			ELSE
				PRINTFORML 翻弄する指の動きに合わせて背中を反らしながら快楽の喘ぎ声を上げた
			ENDIF
		ELSE
			PRINTFORML %ANAME(LOCAL:1)%は淫らに腰を揺らしながら、すっかり快楽に溺れて嬌声を上げている
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN6
RETURN コマンド_ウフフ

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

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

repo_name: pervysquirrelz/erafl

license: unknown


code:
;ローション

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME70
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_ABLE70
;共通部分
CALL COM_ABLE_COMMON(70)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットがいること
SIF MTAR_NUM <= 0
	RETURN 0
;ローションが人数分必要
SIF HO_ITEM_STOCK:ITEM_ローション < MTAR_NUM && ITEM:A_ローション < MTAR_NUM
	RETURN 0
FOR LOCAL, 0, MTAR_NUM
	;ターゲットがＶＡ挿入中なら不可
	SIF IS_INSERT_SINGLE(MTAR:(LOCAL:0), "ＶＡ")
		RETURN 0
	SIF !CAN_REACH_BODY(MPLY:0, MTAR:0)
		RETURN 0
NEXT

RETURN 1

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

;ローションを１つ減少させる(追加アイテム使用時は減少させない)
IF ITEM:A_ローション <= 0
	ITEM:ローション = MAX(ITEM:ローション - MTAR_NUM, 0)
	CALL CHANGE_ITEM_STOCK()
ENDIF

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

FOR LOCAL, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)
	IF LOCAL:2 == MASTER
		CALL ADD_SOURCE_AIZYOU(MPLY:0, 50)
	ENDIF

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

	;●ターゲット側の処理
	SOURCE:(LOCAL:2):露出 = 100
	SOURCE:(LOCAL:2):性行動 = 150
	SOURCE:(LOCAL:2):液体追加 = 10000

	IF MPLY:0 == MASTER
		CALL ADD_SOURCE_AIZYOU(LOCAL:2, 50)
	ELSEIF LOCAL:2 != MASTER
		SOURCE:(LOCAL:2):露出 += 50
	ENDIF

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

NEXT

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

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

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

RETURN 1

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

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

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

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

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

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE70
IF MTAR_NUM >= 2
	LOCALS:1 = %ANAME(MTAR:0)%たち
ELSE
	LOCALS:1 = %ANAME(MTAR:0)%
ENDIF
IF !HAS_VAGINA(MTAR:0)
	LOCALS:0 = アナル
ELSE
	LOCALS:0 = 股間
ENDIF

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%LOCALS:0%にローションを塗りつけ%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORML %LOCALS:1%は自身の%LOCALS:0%を指で広げて%ANAME(MPLY:0)%に見せつけると、ローションを塗るように要求した…
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%LOCALS:1%の%LOCALS:0%にローションを塗った…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、%LOCALS:1%の%LOCALS:0%にローションを塗るように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%LOCALS:1%の%LOCALS:0%にローションを塗りつけた…
ENDSELECT

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

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

@COM_AVAILABLE_WHEN70
RETURN コマンド_ウフフ

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

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


code:
;媚薬

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME71
LOCALS:0 = 媚薬

RESULTS:0 '= TR(LOCALS:0,"を飲ませる")
RESULTS:1 '= TR(LOCALS:0,"を飲まさせられる")
RESULTS:2 '= TR(LOCALS:0,"を飲まさせる")
RESULTS:3 '= TR(LOCALS:0,"を飲まされる")
RESULTS:4 '= TR(LOCALS:0,"を飲まさせる")
RESULTS:5 '= TR(LOCALS:0,"使用見せつけ")

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

FOR LOCAL, 0, MTAR_NUM
	;既にターゲットが媚薬を使われているなら不可
	SIF TCVAR:(MTAR:LOCAL):60 > 5 && !FLAG:RECHECKING
		RETURN 0
	;ターゲットの口が塞がっているなら不可
	SIF IS_M_HOLD(MTAR:LOCAL)
		RETURN 0
	SIF !CAN_REACH_BODY(MPLY:0, MTAR:LOCAL)
		RETURN 0
NEXT
RETURN 1

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

;媚薬を減少させる(追加アイテム使用時は減少させない)
IF ITEM:A_媚薬 <= 0 && CFLAG:MPLY:所属 == 所属_プレイヤー
	HO_ITEM_STOCK:ITEM_媚薬 = MAX(HO_ITEM_STOCK:ITEM_媚薬 - MTAR_NUM, 0)
ENDIF

;●プレイヤー側の処理

FOR LOCAL, 0, MTAR_NUM

	;●ターゲット側の処理
	;媚薬使用フラグを立てる
	TCVAR:(MTAR:LOCAL):60 += 1

	SOURCE:(MTAR:LOCAL):逸脱 = 100

	SELECTCASE ABL:(MTAR:LOCAL):欲望
		CASE 0
			SOURCE:(MTAR:LOCAL):反感 = 400
			SOURCE:(MTAR:LOCAL):不安 = 800
		CASE 1
			SOURCE:(MTAR:LOCAL):反感 = 300
			SOURCE:(MTAR:LOCAL):不安 = 600
		CASE 2
			SOURCE:(MTAR:LOCAL):反感 = 250
			SOURCE:(MTAR:LOCAL):不安 = 500
		CASE 3
			SOURCE:(MTAR:LOCAL):反感 = 150
			SOURCE:(MTAR:LOCAL):不安 = 300
		CASE 4
			SOURCE:(MTAR:LOCAL):反感 = 80
			SOURCE:(MTAR:LOCAL):不安 = 160
		CASEELSE
			SOURCE:(MTAR:LOCAL):反感 = MAX(50 - (ABL:(MTAR:LOCAL):欲望 - 5) * 20, 0)
			SOURCE:(MTAR:LOCAL):不安 = MAX(100 - (ABL:(MTAR:LOCAL):欲望 - 5) * 20, 0)
	ENDSELECT

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

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

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

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

;経過時間を無理矢理1減らす
TFLAG:調教経過時間 --

RETURN 1

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

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

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

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

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

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE71
IF MTAR_NUM > 1
	LOCALS:0 = たち
ELSE
	LOCALS:0 =
ENDIF
SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%%LOCALS:0%に媚薬を飲ませ%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORML %ANAME(MTAR:0)%%LOCALS:0%は%ANAME(MPLY:0)%に媚薬を飲ませるように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0)%%LOCALS:0%の口に媚薬を注ぎ込んだ…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%%LOCALS:0%に媚薬を飲ませるように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0)%%LOCALS:0%の口に媚薬を注ぎ、飲み込ませた…
ENDSELECT
;-------------------------------------------------
;地の文(実行後)
;-------------------------------------------------
@COM_TEXT_AFTER71
IF MTAR_NUM > 1
	LOCALS:0 = たち
ELSE
	LOCALS:0 =
ENDIF
IF MTAR:0 != MASTER || CONFIG:441
	IF (TCVAR:(MTAR:0):失神フラグ) || (TCVAR:(MTAR:0):離脱フラグ == 1)
		PRINTFORML 意識を失ったまま飲まされた薬によって、%ANAME(MTAR:0)%%LOCALS:0%の体は熱く火照り始めている
	ELSE
		SIF TCVAR:(MTAR:0):行動不能フラグ
			PRINT 疲れて身動きできぬまま
		SIF TALENT:(MTAR:0):魔術師 || TALENT:(MTAR:0):技師
			PRINT 飲まされた薬の効果に思い当り、
		IF IS_LOVER(MTAR:0) && MPLY:0 == MASTER
			PRINTFORML 火照り始めた肉体を%ANAME(MTAR:0)%%LOCALS:0%は持て余している
			;捕虜調教のメインターゲット
		ELSEIF FLAG:調教モード == 2 && FINDELEMENT(PRISONER_TARGET, MTAR:0) != -1
			PRINTFORML %ANAME(MTAR:0)%%LOCALS:0%は%ANAME(MPLY:0)%に使われた媚薬によって、自分の意思とは無関係に身体が疼き始めている
		ELSE
			PRINTFORML %ANAME(MTAR:0)%%LOCALS:0%の体は媚薬によって、敏感になっている
		ENDIF
	ENDIF
ENDIF

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

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

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

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

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


code:
;排卵誘発剤

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME72
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_ABLE72
;共通部分
CALL COM_ABLE_COMMON(72)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;排卵誘発剤が必要
SIF ITEM:排卵誘発剤 < MTAR_NUM && ITEM:A_排卵誘発剤 < MTAR_NUM
	RETURN 0
FOR LOCAL, 0, MTAR_NUM
	;ターゲットの口が塞がっているなら不可
	SIF IS_M_HOLD(MTAR:LOCAL)
		RETURN 0
	;ターゲットが女でないなら不可（飲んだって意味ねぇだろ）
	SIF !IS_FEMALE(MTAR:LOCAL)
		RETURN 0
	SIF TALENT:(MTAR:LOCAL):妊娠
		RETURN 0
	;既にターゲットが排卵誘発剤を使われているなら不可
	SIF CFLAG:(MTAR:LOCAL):排卵誘発剤 && !FLAG:RECHECKING
		RETURN 0
	SIF !CAN_REACH_BODY(MPLY:0, MTAR:0)
		RETURN 0
NEXT
RETURN 1

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

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

;●プレイヤー側の処理

;●ターゲット側の処理
FOR LOCAL, 0, MTAR_NUM
	;排卵誘発剤使用フラグを立てる
	CFLAG:(MTAR:LOCAL):排卵誘発剤 = 1

	IF TALENT:(MTAR:LOCAL):恋慕
		;主人公がプレイヤーなら愛情のソース追加
		IF IS_MPLY(MASTER)
			CALL ADD_SOURCE_AIZYOU(LOCAL:2, 50)
		ENDIF
	ELSE
		LOCAL:1 = MAX(CFLAG:(MTAR:LOCAL):2, CFLAG:(MTAR:LOCAL):4)

		IF LOCAL:1 < 500
			SOURCE:(MTAR:LOCAL):反感 = 500
			SOURCE:(MTAR:LOCAL):不安 = 800
		ELSEIF LOCAL:1 < 800
			SOURCE:(MTAR:LOCAL):反感 = 250
			SOURCE:(MTAR:LOCAL):不安 = 500
		ELSEIF LOCAL:1 < 1500
			SOURCE:(MTAR:LOCAL):反感 = 150
			SOURCE:(MTAR:LOCAL):不安 = 350
		ELSE
			SOURCE:(MTAR:LOCAL):不安 = 100
		ENDIF

		SELECTCASE ABL:(MTAR:LOCAL):出産
			CASE 0
			CASE 1
				TIMES SOURCE:(MTAR:LOCAL):反感, 0.80
				TIMES SOURCE:(MTAR:LOCAL):不安, 0.80
				SOURCE:(MTAR:LOCAL):中毒充足 = 50
			CASE 2
				TIMES SOURCE:(MTAR:LOCAL):反感, 0.60
				TIMES SOURCE:(MTAR:LOCAL):不安, 0.60
				SOURCE:(MTAR:LOCAL):中毒充足 = 100
			CASE 3
				TIMES SOURCE:(MTAR:LOCAL):反感, 0.40
				TIMES SOURCE:(MTAR:LOCAL):不安, 0.40
				SOURCE:(MTAR:LOCAL):中毒充足 = 200
			CASE 4
				TIMES SOURCE:(MTAR:LOCAL):反感, 0.20
				TIMES SOURCE:(MTAR:LOCAL):不安, 0.20
				SOURCE:(MTAR:LOCAL):中毒充足 = 400
			CASEELSE
				SOURCE:(MTAR:LOCAL):反感 = 0
				SOURCE:(MTAR:LOCAL):不安 = 0
				SOURCE:(MTAR:LOCAL):中毒充足 = 600 + (ABL:(MTAR:LOCAL):出産 - 5) * 3
		ENDSELECT
	ENDIF

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

NEXT

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

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

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

;経過時間を無理矢理1減らす
TFLAG:調教経過時間 --

RETURN 1

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

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

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

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

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

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE72
IF MTAR_NUM > 1
	LOCALS:0 = たち
ELSE
	LOCALS:0 =
ENDIF

SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%%LOCALS:0%に排卵誘発剤を飲ませ%TARGET_STR("た", "てきた")%…
	;ターゲットに主導権
	CASE 1
		PRINTFORML %ANAME(MTAR:0)%%LOCALS:0%は%ANAME(MPLY:0)%に排卵誘発剤を飲ませるように命令した
		PRINTFORML %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0)%%LOCALS:0%に排卵誘発剤を飲み込ませた…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%%LOCALS:0%に排卵誘発剤を飲ませるように命令した
		PRINTFORML %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0)%%LOCALS:0%に排卵誘発剤を飲み込ませた…
ENDSELECT
;-------------------------------------------------
;地の文(実行後)
;-------------------------------------------------
@COM_TEXT_AFTER72
IF MTAR_NUM > 1
	LOCALS:0 = たち
ELSE
	LOCALS:0 =
ENDIF
IF MTAR:0 != MASTER || CONFIG:441
	IF (TCVAR:(MTAR:0):失神フラグ) || (TCVAR:(MTAR:0):離脱フラグ == 1)
		SIF TALENT:(MTAR:0):育児中
			PRINT まだ育児中にも関わらず
		PRINTFORML 意識のないまま薬によって%ANAME(MTAR:0)%%LOCALS:0%の体は%ANAME(MPLY:0)%の子を孕もうとしている
	ELSE
		SIF TCVAR:(MTAR:0):行動不能フラグ
			PRINT 疲れて身動きできぬまま
		SIF TALENT:(MTAR:0):魔術師 || TALENT:(MTAR:0):技師
			PRINT 飲まされた薬の効果に思い当り、
		SIF EXP:(MTAR:0):出産経験 >= 1
			PRINT 過去の出産の経験から
		IF IS_LOVER(MTAR:0) && MPLY:0 == MASTER
			SIF TALENT:(MTAR:0):育児中
				PRINT すでに育児中にも関わらず
			PRINTFORML %ANAME(MTAR:0)%%LOCALS:0%は%ANAME(MPLY:0)%の子を孕む期待感に頬を緩ませている
		ELSEIF ABL:(MTAR:0):出産 >= 3
			PRINTFORML %ANAME(MTAR:0)%は子を孕み出産することを想像し、興奮を隠せずにいる
		;捕虜調教のメインターゲット
		ELSEIF FLAG:調教モード == 2 && FINDELEMENT(PRISONER_TARGET, MTAR:0) != -1
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML %ANAME(MTAR:0)%%LOCALS:0%は%ANAME(MPLY:0)%の子を孕むことを想像して恐怖に顔を引きつらせた
				CASE 1
					PRINTFORML %ANAME(MTAR:0)%%LOCALS:0%は望まぬ妊娠の恐怖に顔を青ざめさせている
				CASE 2
					PRINTFORML 妊娠を強制される恐怖に%ANAME(MTAR:0)%%LOCALS:0%は震えている
				CASE 3
					PRINTFORML 薬がもたらそうとする未来を受け入れられず、%ANAME(MTAR:0)%%LOCALS:0%はわめき散らしている
			ENDSELECT
			SIF TALENT:(MTAR:0):子供人質
				PRINTFORML だが、子どもが人質に取られていることを思い出した%ANAME(MTAR:0)%%LOCALS:0%は、%ANAME(MPLY:0)%の思惑に従うしかなかった
		ELSE
			SIF TALENT:(MTAR:0):育児中
				PRINT まだ育児中のため
			PRINTFORML %ANAME(MTAR:0)%%LOCALS:0%は不安そうな表情を浮かべている
		ENDIF
	ENDIF
ENDIF
WAIT

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

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

@COM_AVAILABLE_WHEN72
RETURN コマンド_ウフフ

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

@COM_PREFERENCE_TARGET_72()
RETURN POWER(2, 性的嗜好_道具を使われたい) + POWER(2, 性的嗜好_妊娠したい)


code:
;メイガスの夜

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

;メイガスの夜が必要
SIF CFLAG:MPLY:所属 == 所属_プレイヤー && HO_ITEM_STOCK:ITEM_メイガスの夜 < MTAR_NUM
	RETURN 0
SIF CFLAG:MPLY:所属 != 所属_プレイヤー && ITEM:A_メイガスの夜 < MTAR_NUM
	RETURN 0

FOR LOCAL, 0, MTAR_NUM
	;既にターゲットがメイガスの夜を使われているなら不可
	SIF TCVAR:(MTAR:LOCAL):メイガスの夜 && !FLAG:RECHECKING
		RETURN 0
	;ターゲットの口が塞がっているなら不可
	SIF IS_M_HOLD(MTAR:LOCAL)
		RETURN 0
	SIF !CAN_REACH_BODY(MPLY:0, MTAR:0)
		RETURN 0
NEXT
RETURN 1

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

;メイガスの夜を減少させる(追加アイテム使用時は減少させない)
IF ITEM:A_メイガスの夜 <= 0 && CFLAG:MPLY:所属 == 所属_プレイヤー
	CALL CHANGE_ITEM_STOCK(ITEM_メイガスの夜, MTAR_NUM)
ENDIF

;●プレイヤー側の処理

;●ターゲット側の処理
FOR LOCAL, 0, MTAR_NUM
	;メイガスの夜使用フラグを立てる
	TCVAR:(MTAR:LOCAL):メイガスの夜 = 1

	SELECTCASE ABL:(MTAR:LOCAL):欲望
		CASE 0
			SOURCE:(MTAR:LOCAL):反感 = 150
			SOURCE:(MTAR:LOCAL):不安 = 400
		CASE 1
			SOURCE:(MTAR:LOCAL):反感 = 100
			SOURCE:(MTAR:LOCAL):不安 = 300
		CASE 2
			SOURCE:(MTAR:LOCAL):反感 = 50
			SOURCE:(MTAR:LOCAL):不安 = 150
		CASE 3
			SOURCE:(MTAR:LOCAL):反感 = 20
			SOURCE:(MTAR:LOCAL):不安 = 50
	ENDSELECT

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

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

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

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

RETURN 1

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

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

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

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

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

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE73
IF MTAR_NUM > 1
	LOCALS:0 = たち
ELSE
	LOCALS:0 =
ENDIF

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%%LOCALS:0%にメイガスの夜を飲ませ%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%にメイガスの夜を飲ませるように命令した
		PRINTFORML %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0)%%LOCALS:0%にメイガスの夜を飲み込ませた…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%%LOCALS:0%にメイガスの夜を飲ませるように命令した
		PRINTFORML %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0)%%LOCALS:0%にメイガスの夜を飲み込ませた…
ENDSELECT

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

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

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

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

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


code:
;麻薬

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME74
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_ABLE74
;共通部分
CALL COM_ABLE_COMMON(74)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;麻薬が必要
SIF ITEM:麻薬 < MTAR_NUM && ITEM:A_麻薬 < MTAR_NUM
	RETURN 0

FOR LOCAL, 0, MTAR_NUM
	;既に麻薬が媚薬を使われているなら不可
	SIF TCVAR:(MTAR:LOCAL):麻薬 && !FLAG:RECHECKING
		RETURN 0
	;ターゲットの口が塞がっているなら不可
	SIF IS_M_HOLD(MTAR:LOCAL)
		RETURN 0
	SIF !CAN_REACH_BODY(MPLY:0, MTAR:0)
		RETURN 0
NEXT

RETURN 1

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

;麻薬を減少させる(追加アイテム使用時は減少させない)
IF ITEM:A_麻薬 <= 0
	ITEM:麻薬 = MAX(ITEM:麻薬 - MTAR_NUM, 0)
ENDIF

;●プレイヤー側の処理
FOR LOCAL, 0, MTAR_NUM
	;●ターゲット側の処理
	;麻薬使用フラグを立てる
	TCVAR:(MTAR:LOCAL):麻薬 = 1

	;ソースとCFLAGの増加
	SELECTCASE CFLAG:(MTAR:LOCAL):薬物依存
		CASE IS < 100
			SOURCE:(MTAR:LOCAL):反感 = 300
			SOURCE:(MTAR:LOCAL):不安 = 600
			SOURCE:(MTAR:LOCAL):薬物追加 += 3000
			CFLAG:(MTAR:LOCAL):薬物依存 += RAND(80, 100)
		CASE IS < 200
			SOURCE:(MTAR:LOCAL):反感 = 200
			SOURCE:(MTAR:LOCAL):不安 = 400
			SOURCE:(MTAR:LOCAL):薬物追加 += 2000
			CFLAG:(MTAR:LOCAL):薬物依存 += RAND(60, 100)
		CASE IS < 300
			SOURCE:(MTAR:LOCAL):反感 = 50
			SOURCE:(MTAR:LOCAL):不安 = 150
			SOURCE:(MTAR:LOCAL):薬物追加 += 1000
			CFLAG:(MTAR:LOCAL):薬物依存 += RAND(40, 100)
		CASEELSE
			CFLAG:(MTAR:LOCAL):薬物依存 += 100
			SOURCE:(MTAR:LOCAL):薬物追加 += 1000
	ENDSELECT

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

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

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

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

;経過時間を無理矢理1減らす
TFLAG:調教経過時間 --

RETURN 1

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

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

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

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

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

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE74
IF MTAR_NUM > 1
	LOCALS:0 = たち
ELSE
	LOCALS:0 =
ENDIF

SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%%LOCALS:0%に麻薬を打っ%TARGET_STR("た", "てきた")%…
	;ターゲットに主導権
	CASE 1
		PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%%LOCALS:0%に麻薬を打つように命令した
		PRINTFORML %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0)%%LOCALS:0%に麻薬を打った…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%%LOCALS:0%に麻薬を打つように命令した
		PRINTFORML %ANAME(MPLY:0)%は言われるまま%ANAME(MTAR:0)%%LOCALS:0%に麻薬を打った…
ENDSELECT

;-------------------------------------------------
;地の文(実行後)
;-------------------------------------------------
@COM_TEXT_AFTER74
IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_薬物中毒)
	PRINTFORML %ANAME(MTAR:0)%%LOCALS:0%は、待ち望んでいたものを打ち込まれ、心底幸せそうにえへえへと笑っている…
ELSE
	PRINTFORML 薬が回ってきたのか、%ANAME(MTAR:0)%%LOCALS:0%は虚ろな瞳でえへらえへらと笑っている…
ENDIF

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

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

@COM_AVAILABLE_WHEN74
RETURN コマンド_ウフフ

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

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


code:
;コンドーム

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME75
LOCALS:0 = コンドーム

IF MTAR_NUM > 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
	RESULTS:0 = %LOCALS:0%を装着する
ENDIF
;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE75
;装着済のコンドームは干渉しない
SIF FLAG:RECHECKING
	RETURN 1

;共通部分
CALL COM_ABLE_COMMON(75)
SIF RESULT == 0
	RETURN 0
;プレイヤーは1人以上
SIF MPLY_NUM <= 0
	RETURN 0

FOR LOCAL, 0, MPLY_NUM
	;プレイヤーが行動不能なら不可
	SIF !IS_PLAYABLE(MPLY:(LOCAL:0))
		RETURN 0
	;プレイヤーが拘束中なら不可
	SIF IS_BIND(MPLY:(LOCAL:0))
		RETURN 0
NEXT

;ターゲットなし(自分自身に装着)
IF MTAR_NUM == 0
	FOR LOCAL, 0, MPLY_NUM
		;プレイヤーにチンポが必要
		SIF !HAS_PENIS(MPLY:(LOCAL:0))
			RETURN 0
		;プレイヤーがＰ挿入中なら不可
		SIF IS_INSERT_SINGLE(MPLY:(LOCAL:0), "Ｐ")
			RETURN 0
		;既にゴムつけてるなら駄目
		SIF IS_EQUIP_PLAYER(MPLY:(LOCAL:0), 75)
			RETURN 0
	NEXT
	;コンドームが人数分必要
	SIF HO_ITEM_STOCK:ITEM_コンドーム < MPLY_NUM && ITEM:A_コンドーム < MPLY_NUM
		RETURN 0
;ターゲットあり(ターゲットに装着)
ELSE
	FOR LOCAL, 0, MTAR_NUM
		;ターゲットにチンポが必要
		SIF !HAS_PENIS(MTAR:(LOCAL:0))
			RETURN 0
		;ターゲットがＰ挿入中なら不可
		SIF IS_INSERT_SINGLE(MTAR:(LOCAL:0), "Ｐ")
			RETURN 0
		;既にゴムつけてるなら駄目
		SIF IS_EQUIP_PLAYER(MTAR:(LOCAL:0), 75)
			RETURN 0
	NEXT
	;コンドームが人数分必要
	SIF HO_ITEM_STOCK:ITEM_コンドーム < MTAR_NUM && ITEM:A_コンドーム < MTAR_NUM
		RETURN 0
ENDIF

RETURN 1

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

;プレイヤー自身に装着(ターゲットなし)
IF MTAR_NUM == 0
	;コンドームを人数分減少させる(追加アイテム使用時は減少させない)
	IF ITEM:A_コンドーム <= 0
		CALL CHANGE_ITEM_STOCK(ITEM_コンドーム, MPLY_NUM * -1)
	ENDIF
;ターゲットに装着
ELSE
	;コンドームを人数分減少させる(追加アイテム使用時は減少させない)
	IF ITEM:A_コンドーム <= 0
		CALL CHANGE_ITEM_STOCK(ITEM_コンドーム, MTAR_NUM * -1)
	ENDIF
ENDIF

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

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

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

;経過時間を無理矢理1減らす
TFLAG:調教経過時間 --

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE75
#DIMS DYNAMIC IS_BIND

SIF IS_BIND(MPLY:0)
	IS_BIND = "動けない"

;プレイヤー自身に装着(ターゲットなし)
IF MTAR_NUM == 0
	SELECTCASE GET_COM_INITIATIVE()
		;主導権はプレイヤー
		CASE 0
			PRINTFORMW %ANAME(MPLY:0,MPLY_NUM)%はコンドームを取り出して自身のペニスに被せた
		;主導権がターゲットのパターンは存在しない
		;CASE 1
		;主導権は第三者
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0,MPLY_NUM)%にコンドームを手渡してペニスに取り付けるよう伝えた
			PRINTFORMW %ANAME(MPLY:0,MPLY_NUM)%はコンドームを受け取り自身のペニスに被せた…
	ENDSELECT
;ターゲットに装着
ELSE
	IF MTAR_NUM >= 2
		LOCALS = %ANAME(MTAR:0)%たち
	ELSE
		LOCALS = %ANAME(MTAR:0)%
	ENDIF
	SELECTCASE GET_COM_INITIATIVE()
		;主導権はプレイヤー
		CASE 0
			PRINTFORMW %ANAME(MPLY:0,MPLY_NUM)%はコンドームを取り出して%IS_BIND%%ANAME(MTAR:0,MTAR_NUM)%のペニスに被せた……
		;主導権はターゲット
		CASE 1
			PRINTFORMW %ANAME(MTAR:0,MTAR_NUM)%はコンドームを取り出して%ANAME(MPLY:0,MPLY_NUM)%に手渡し、自身のペニスに装着するように伝えた
		;主導権は第三者
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0,MPLY_NUM)%にコンドームを手渡して%ANAME(MTAR:0,MTAR_NUM)%に取り付けるように伝えた
			PRINTFORMW %ANAME(MPLY:0,MPLY_NUM)%はコンドームを受け取り%ANAME(MTAR:0,MTAR_NUM)%のペニスに被せた…
	ENDSELECT
ENDIF

;-------------------------------------------------
;地の文(実行後)
;-------------------------------------------------
@COM_TEXT_AFTER75
#DIM DYNAMIC REACTION_CHARA_ID

;自身に装着した場合でない
SIF MTAR_NUM == 0
	RETURN

;ターゲットが主導権を持つ
IF GET_COM_INITIATIVE() == 1 || CONFIG:441
	IF IS_LOVER(MPLY:0) && MTAR:0 == MASTER
		IF GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_孕みたがり)　|| GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_生ハメ依存)
			PRINTFORML %ANAME(MPLY:0)%は生のほうが絶対気持ちいいのにとつぶやきながら、%ANAME(MTAR:0,MPLY_NUM)%のペニスにつけられたコンドームを眺め%TARGET_STR("た", "てきた")%…
		ELSE
			SIF TALENT:(MPLY:0):育児中
				PRINT 育児の最中の
			IF TALENT:(MPLY:0):妊娠
				PRINTFORML %ANAME(MPLY:0)%はお腹が大きくなったことを心配してくれることに幸福感を感じながら、%ANAME(MTAR:0,MPLY_NUM)%のペニスにつけられたコンドームを眺め%TARGET_STR("た", "てきた")%…
			ELSE
				PRINTFORML %ANAME(MPLY:0)%は体を心配してくれることを喜びながら%ANAME(MTAR:0,MPLY_NUM)%のペニスにつけられたコンドームを眺め%TARGET_STR("た", "てきた")%…
			ENDIF
		ENDIF
	;捕虜調教のメインターゲット
	ELSEIF FLAG:調教モード == 2 && FINDELEMENT(PRISONER_TARGET, MPLY:0) != -1
		IF TALENT:(MPLY:0):妊娠
			PRINTFORML %ANAME(MPLY:0)%は既に妊娠しているのに無意味だと思いながら、%ANAME(MTAR:0,MPLY_NUM)%のペニスにつけられたコンドームを眺め%TARGET_STR("た", "てきた")%…
		ELSE
			IF GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_孕みたがり)　|| GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_生ハメ依存)
				PRINTFORML %ANAME(MPLY:0)%はどこか残念そうにしながらも、%ANAME(MTAR:0,MPLY_NUM)%のペニスにつけられたコンドームを眺め%TARGET_STR("た", "てきた")%…
			ELSE
				IF TALENT:(MPLY:0):男嫌い && IS_MALE(MPLY:0)
					PRINT 男に犯されるのだということに嫌悪感をいだきつつも、
				ELSEIF TALENT:(MPLY:0):プライド高い
					PRINT 屈辱に渋面を作りながらも
				ELSEIF TALENT:(MPLY:0):貞操観念
					PRINT これから犯されることを想像して嫌悪感をいだきつつも、
				ENDIF
				PRINTFORML 生でされるよりマシだと考え、%ANAME(MPLY:0)%は%ANAME(MTAR:0,MPLY_NUM)%のペニスにつけられたコンドームを眺め%TARGET_STR("た", "てきた")%…
			ENDIF
		ENDIF
	;主人公以外が装着
	ELSE
		IF GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_孕みたがり)　|| GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_生ハメ依存)
			PRINTFORML %ANAME(MPLY:0)%は生のほうが絶対気持ちいいのにとつぶやきつつ、%ANAME(MTAR:0,MPLY_NUM)%のペニスにつけられたコンドームを眺め%TARGET_STR("た", "てきた")%…
		ELSE
			SIF TALENT:(MPLY:0):育児中
				PRINT まだ育児中の
			IF TALENT:(MPLY:0):妊娠
				PRINTFORML お腹の子のことも考え、%ANAME(MPLY:0)%は避妊を肯定的に考え%TARGET_STR("た", "てきた")%…
			ELSE
				PRINTFORML 妊娠を避けるためだからと、%ANAME(MPLY:0)%は避妊を肯定的に考え%TARGET_STR("た", "てきた")%…
			ENDIF
		ENDIF
	ENDIF
ENDIF
;-------------------------------------------------
;継続コマンドかどうかを設定
;-------------------------------------------------
@COM_IS_EQUIP75
;継続コマンドかつ単発実行不可
RETURN 2

;-------------------------------------------------
;継続/装着状態開始の固有処理
;-------------------------------------------------
@SET_EQUIP75
;プレイヤー自身に装着(ターゲットなし)
IF MTAR_NUM == 0
	FOR LOCAL, 0, MPLY_NUM
		;ターゲットをプレイヤー自身として装着
		CALL SET_EQUIP_EX(T_N("コンドーム"), MPLY:LOCAL, MPLY:LOCAL)
	NEXT
;ターゲットに装着
ELSE
	FOR LOCAL, 0, MTAR_NUM
		;プレイヤーとターゲットと反転させて装着
		CALL SET_EQUIP_EX(T_N("コンドーム"), MTAR:LOCAL, MPLY:0)
	NEXT
ENDIF

RETURN 1

;-------------------------------------------------
;継続/装着中コマンドと同一条件でのコマンド実行判定の固有処理
;  RETURN:
;    0 = 同一条件の継続/装着中コマンドなし
;    1 = 同一条件の継続/装着中コマンドあり
;-------------------------------------------------
@COM_ALREADY_HAPPENING75
#DIM MEQUIP_IDX

;継続コマンドの全実行者について確認
FOR MEQUIP_IDX, 0, MEQUIP_NUM
	;コンドーム以外の装着物はスキップ
	IF MEQUIP:MEQUIP_IDX != T_N("コンドーム")
		CONTINUE
	ENDIF
	;現在選択中の対象者がいない場合
	IF MTAR_NUM == 0
		;現在選択中の全実行者について確認
		FOR LOCAL, 0, MPLY_NUM
			;コンドームの装着者が現在選択中のプレイヤーと同一の場合
			SIF MEQUIP_PLAYER:MEQUIP_IDX:0 == MPLY:LOCAL
				RETURN 1
		NEXT
	;現在選択中の対象者がいる場合
	ELSE
		;現在選択中の全対象者について確認
		FOR LOCAL, 0, MTAR_NUM
			;コンドームの装着者が現在選択中のターゲットと同一の場合
			SIF MEQUIP_PLAYER:MEQUIP_IDX:0 == MTAR:LOCAL
				RETURN 1
		NEXT
	ENDIF
NEXT

RETURN 0

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP75(ARG:0)
;特になし

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE75(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%がコンドームを装着中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP75(ARG:0)

;-------------------------------------------------
;継続を解除したときの処理
;-------------------------------------------------
@COM_RELEASE_EQUIP75(ARG:0)
#DIM DYNAMIC CNT_ITEM
#DIM DYNAMIC CHARA_ID
FOR LOCAL, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	CHARA_ID = MEQUIP_PLAYER:(ARG:0):LOCAL
	IF (FLAG:ハウジングモード == 1 || CFLAG:CHARA_ID:所属 == 所属_プレイヤー) && CUM_TO_AMOUNT:CHARA_ID:射精部位_ゴム > 0
		CUM_TO_AMOUNT:CHARA_ID:射精部位_ゴム = 0
		CUM_TO_COUNT:CHARA_ID:射精部位_ゴム = 0
		CNT_ITEM ++
	ENDIF
NEXT
SIF CNT_ITEM
	CALL QST_CHANGE_ITEM(@"{ITEM_使用済みコンドーム},{CNT_ITEM},",0 , 1)

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP75(ARG:0)
;搾精中
IF LIST_GET(FL_TRAIN_RESERVED_COM_NAME_LIST,0) == "搾精する"
	SELECTCASE GET_COM_INITIATIVE()
		;主導権はプレイヤー
		CASE 0
			PRINTFORMW %ANAME(MPLY:0,MPLY_NUM)%は%EQUIP_PLAYER_ANAME(ARG:0)%の精液が溜まったコンドームを外した…
		;主導権はターゲット
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0,MPLY_NUM)%に精液が溜まったコンドームを外させた…
		;主導権は第三者
		CASEELSE
			PRINTFORMW %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0,MPLY_NUM)%に精液が溜まったコンドームを外させた…
		;主導権はターゲット
	ENDSELECT
;それ以外
ELSE
	PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%のコンドームを外した
ENDIF

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

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

@COM_AVAILABLE_WHEN75
RETURN コマンド_ウフフ

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

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


code:
;桃源香

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME76
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_ABLE76
;共通部分
CALL COM_ABLE_COMMON(76)
SIF RESULT == 0
	RETURN 0
	;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
	;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
	;桃源香が必要
SIF ITEM:桃源香 <= 0 && ITEM:A_桃源香 <= 0
	RETURN 0
	;既にターゲットが桃源香を使われているなら不可
SIF TFLAG:桃源香使用中
	RETURN 0
	;プレイヤーが拘束中なら不可
SIF IS_BIND(MPLY:0)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM76
#DIM 対象

;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

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

;桃源香使用フラグを立てる
TFLAG:桃源香使用中 = 1

;●プレイヤー側の処理

SOURCE:(MPLY:0):逸脱 = 50

IF MTAR_NUM > 0
	;●ターゲット側の処理

	SOURCE:(MTAR:0):逸脱 = 100

	SELECTCASE ABL:(MTAR:0):欲望
		CASE 0
			SOURCE:(MTAR:0):反感 = 200
			SOURCE:(MTAR:0):不安 = 400
		CASE 1
			SOURCE:(MTAR:0):反感 = 150
			SOURCE:(MTAR:0):不安 = 300
		CASE 2
			SOURCE:(MTAR:0):反感 = 80
			SOURCE:(MTAR:0):不安 = 150
		CASE 3
			SOURCE:(MTAR:0):反感 = 50
			SOURCE:(MTAR:0):不安 = 100
		CASEELSE
			SOURCE:(MTAR:0):反感 = MAX(30 - (ABL:(MTAR:0):欲望 - 5) * 20, 0)
			SOURCE:(MTAR:0):不安 = MAX(50 - (ABL:(MTAR:0):欲望 - 5) * 20, 0)
	ENDSELECT

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

ENDIF

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

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

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

;経過時間を無理矢理1減らす
TFLAG:調教経過時間 --

RETURN 1

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

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

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

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

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

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE76
IF MTAR_NUM <= 0
	PRINTFORMW %ANAME(MPLY:0)%は桃源香の封を解い%TARGET_STR("た", "てきた")%…
	RETURN
ENDIF
SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は桃源香の封を解い%TARGET_STR("た", "てきた")%…
	;ターゲットに主導権
	CASE 1
		PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に桃源香を使うように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま香炉の封を解いた…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、桃源香を使うように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま香炉の封を解いた…
ENDSELECT

;-------------------------------------------------
;地の文(実行後)
;-------------------------------------------------
@COM_TEXT_AFTER76
IF MTAR_NUM <= 0
	PRINTFORML 辺りに充満する妖艶な香りが、その場に居る者の肉体と思考を桃色に染め上げていく…
	RETURN
ENDIF

IF MTAR:0 != MASTER || CONFIG:441
	IF (TCVAR:(MTAR:0):失神フラグ) || (TCVAR:(MTAR:0):離脱フラグ == 1)
		PRINTFORML 意識を失っているか否かに関わらず、充満する桃色の香りが%ANAME(MTAR:0)%たちの体を熱く火照らせていく…
	ELSE
		SIF TCVAR:(MTAR:0):行動不能フラグ
			PRINT 疲れて否が応でも吸ってしまう
		IF TALENT:(MTAR:0):魔術師 || TALENT:(MTAR:0):技師
			PRINTFORML 周囲を漂う甘い香りに%ANAME(MTAR:0)%が気付いた時には、既に身体の疼きを止められる者は誰一人居なかった…
		ELSE
			PRINTFORML 辺りに充満する妖艶な香りが、その場に居る者の肉体と思考を桃色に染め上げていく…
		ENDIF
	ENDIF
ENDIF

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

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

@COM_AVAILABLE_WHEN76
RETURN コマンド_ウフフ

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

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


code:
;浣腸

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME77
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_ABLE77
;共通部分
CALL COM_ABLE_COMMON(77)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
;注射器が必要
SIF ITEM:おもちゃの注射器 <= 0 && ITEM:A_おもちゃの注射器 <= 0
	RETURN 0
;プレイヤーが拘束中なら不可
SIF IS_BIND(MPLY:0)
	RETURN 0
;まんこ塞がってたらダメ
SIF IS_V_HOLD(MTAR:0)
	RETURN 0
;まんこないとだめ
SIF !HAS_VAGINA(MTAR:0)
	RETURN 0
;コンドームにぶちまけてないと駄目
SIF CUM_TO_AMOUNT:(MTAR:0):射精部位_ゴム == 0
	RETURN 0
SIF !CAN_REACH_GROIN(MPLY:0, MTAR:0)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM77
;実行判定
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)

;●ターゲット側の処理
EXP:(MTAR:0):膣内射精経験 += 1

LOCAL:3 = 1000
LOCAL:4 = 600

SELECTCASE ABL:(MTAR:0):出産
	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:(MTAR:0):精愛 - 5) * 2) / 100
		LOCAL:4 = 0
ENDSELECT

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

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

CALL RECORD_CREAMPIE(MTAR:0, GET_ID(MTAR:0), CUM_TO_AMOUNT:(MTAR:0):射精部位_ゴム)

;射精量を変換
CUM_GET_AMOUNT:(MTAR:0):射精部位_膣内 += CUM_TO_AMOUNT:(MTAR:0):射精部位_ゴム
CUM_GET_COUNT:(MTAR:0):射精部位_膣内 ++
;modded in
CUM_CUR_AMOUNT:(MTAR:0):射精部位_膣内 = CUM_TO_AMOUNT:(MTAR:0):射精部位_ゴム
CUM_TO_AMOUNT:(MTAR:0):射精部位_ゴム = 0
CUM_TO_COUNT:(MTAR:0):射精部位_ゴム = 0

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

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

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

RETURN 1

;-------------------------------------------------
;固有の実行判定(プレイヤー側)
;-------------------------------------------------
@COM_ORDER_PLAYER77(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)

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_BEFORE77
SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%がゴムに射精した精液を注射器で吸い取り、%ANAME(MTAR:0)%自身の%STR_BODY("膣：感度", MTAR:0)%に注入し%TARGET_STR("た", "てきた")%
		PRINTFORMW %ANAME(MTAR:0)%の膣穴から、%ANAME(MTAR:0)%自身の精液がとろりとこぼれ落ちた…
	;ターゲットに主導権
	CASE 1
		PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の前で%STR_BODY("膣：感度", MTAR:0)%を割り開き、%ANAME(MTAR:0)%自身がゴムに射精した精液を注入するよう命じた
		PRINTFORMW %ANAME(MPLY:0)%が精液を注入すると、%ANAME(MTAR:0)%の膣穴から%ANAME(MTAR:0)%自身の精液がとろりとこぼれ落ちた…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%ANAME(MTAR:0)%がゴムに射精した精液を注射器で吸い取り、%ANAME(MTAR:0)%自身の%STR_BODY("膣：感度", MTAR:0)%に注入するよう命じた
		PRINTFORMW %ANAME(MPLY:0)%が%ANAME(MTAR:0)%の膣穴に精液を注入すると、%ANAME(MTAR:0)%の膣穴から%ANAME(MTAR:0)%自身の精液がとろりとこぼれ落ちた…
ENDSELECT

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

	IF LOCAL:1 != MASTER && !TCVAR:(MTAR:0):失神フラグ
		IF ABL:(LOCAL:1):出産 >= 4
			PRINTFORMW %ANAME(LOCAL:1)%は自身の子を孕むかもしれない興奮に震えながら、妖しく笑みを浮かべている
		ELSEIF ABL:(LOCAL:1):出産 >= 2
			PRINTFORMW %ANAME(LOCAL:1)%は顔を赤らめながら自身の膣をしきりに気にしている
		ELSE
			PRINTFORMW %ANAME(LOCAL:1)%は異常な行為に顔を青くした
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN77
RETURN コマンド_ウフフ

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

@COM_PREFERENCE_TARGET_77()
RETURN POWER(2, 性的嗜好_道具を使われたい) + POWER(2, 性的嗜好_妊娠したい) + POWER(2, 性的嗜好_汚されたい)


code:
;ローション

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME78
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_ABLE78

;共通部分
CALL COM_ABLE_COMMON(78)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットがいること
SIF MTAR_NUM <= 0
	RETURN 0
;ペニスリボンが必要
SIF !ITEM:ペニスリボン
	RETURN 0

;ターゲットが既に目隠し装着中なら不可
FOR LOCAL, 0, MTAR_NUM
	SIF !HAS_PENIS(MTAR:LOCAL)
		RETURN 0
	SIF IS_EQUIP_TARGET(MTAR:LOCAL, 78)
		RETURN 0
	SIF !CAN_REACH_BODY(MPLY:0, MTAR:LOCAL)
		RETURN 0
NEXT

RETURN 1

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

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

FOR LOCAL, 0, MTAR_NUM
	LOCAL:2 = MTAR:(LOCAL:0)
	IF LOCAL:2 == MASTER
		CALL ADD_SOURCE_AIZYOU(MPLY:0, 50)
	ENDIF

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

	;●ターゲット側の処理
	SOURCE:(LOCAL:2):性行動 = 150
	SOURCE:(LOCAL:2):苦痛 = 80
	SOURCE:(LOCAL:2):逸脱 = 250

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

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

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

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

RETURN 1

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

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

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

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

	EXP:(LOCAL:3):緊縛経験 += 1
	EXP:(LOCAL:3):被虐経験値 += 1

	SOURCE:(LOCAL:3):苦痛 += 30
	SOURCE:(LOCAL:3):逸脱 += 150

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE78(ARG:0)
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%の射精を禁止中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP78(ARG:0)
PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%のペニスはリボンで戒められている……

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP78(ARG:0)
PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%のペニスを戒めるリボンを解いた

CALL CREATE_STACK_SPERM_MAP()

FOR LOCAL, 0, MEQUIP_TARGET_NUM:(ARG:0)
	LOCAL:1 = MEQUIP_TARGET:(ARG:0):LOCAL
	CUP:(LOCAL:1):射精 += TCVAR:(LOCAL:1):76
	SOURCE:(LOCAL:1):快Ｐ += 1
	TCVAR:(LOCAL:1):77 = 1
	CALL SOURCE_ORGASM(LOCAL:1)
	TCVAR:(LOCAL:1):76 = 0
	TCVAR:(LOCAL:1):77 = 0
	CALL TRAIN_AUTO_ABLUP(LOCAL:1)
NEXT
WAIT

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 1)
CALL COM_ORDER_ELEMENT(ARG:0, @"サドLv{ABL:(ARG:0):サド}", ABL:(ARG:0):サド * 3)

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, "大人しい", -3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
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 GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド)
	CALL COM_ORDER_ELEMENT(ARG:0, "サド", 40)
ELSE
	IF ABL:(ARG:0):主導度Ｕ >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 15)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 10)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 5)
	ELSEIF ABL:(ARG:0):主導度Ｕ > -100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 0)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", -5)
	ENDIF

	IF ABL:(ARG:0):倒錯度 >= 800
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 20)
	ELSEIF ABL:(ARG:0):倒錯度 >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 15)
	ELSEIF ABL:(ARG:0):倒錯度 >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 10)
	ELSEIF ABL:(ARG:0):倒錯度 >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 5)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
	ENDIF
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE78
IF MTAR_NUM >= 2
	LOCALS:1 = %ANAME(MTAR:0)%たち
ELSE
	LOCALS:1 = %ANAME(MTAR:0)%
ENDIF

SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の%BAR_NAME(MTAR:0)%にリボンを巻き付けた……
	;ターゲットに主導権
	CASE 1
		PRINTFORML %LOCALS:1%は自身の%BAR_NAME(MTAR:0)%にリボンを巻くよう、%ANAME(MPLY:0)%に要求した…
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%LOCALS:1%の%BAR_NAME(MTAR:0)%にリボンを巻き付けた……
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%の%BAR_NAME(MTAR:0)%にリボンを巻くよう、%ANAME(MPLY:0)%に要求した…
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%LOCALS:1%の%BAR_NAME(MTAR:0)%にリボンを巻き付けた……
ENDSELECT

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

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

@COM_AVAILABLE_WHEN78
RETURN コマンド_ウフフ

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

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


code:
;尻尾Ａ挿入

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME7
LOCALS:0 = A Tail insert

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_ABLE7
;共通部分
CALL COM_ABLE_COMMON(7)
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 !TALENT:(MPLY:0):しっぽ
	RETURN 0
;プレイヤーが尻尾を使用中なら不可
SIF IS_EQUIP_PLAYER(MPLY:0, 6, 7, 17)
	RETURN 0
;ターゲットのＶがプレイヤーの尻尾以外で埋まっているなら不可
SIF IS_A_HOLD(MTAR:0)
	RETURN 0
RETURN 1

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

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

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

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

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

;●ターゲットについて処理
SOURCE:(MTAR:0):露出 = 50
SOURCE:(MTAR:0):接触 = 60
SOURCE:(MTAR:0):性行動 = 150
SOURCE:(MTAR:0):快Ａ += SENSE_HOUSHI(MPLY:0, MTAR:0, 1400)

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

CALL VIRGIN_COMMON_A(MTAR:0, @"%ANAME(MPLY:0)%の尻尾", GET_SITUATION_BY_TRAIN_MODE())

;対象の膣が緩む
CALL TIGHTNESS_DECREASE_A(MTAR:0, RAND(1, 4))

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

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

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

RETURN 1

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

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

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

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

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

;●ターゲットについて処理
SOURCE:(LOCAL:3):快Ａ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 500)
SOURCE:(LOCAL:3):露出 += 20
SOURCE:(LOCAL:3):接触 += 30
SOURCE:(LOCAL:3):性行動 += 50

CALL VIRGIN_COMMON_A(LOCAL:3, @"%ANAME(LOCAL:2)%の尻尾", GET_SITUATION_BY_TRAIN_MODE())

;対象の膣が緩む
CALL TIGHTNESS_DECREASE_A(LOCAL:3, RAND(1, 4))

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE7(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のアナルに尻尾を挿入中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP7(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%の尻尾が%EQUIP_TARGET_ANAME(ARG:0)%のアナルを抉っている…

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

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

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

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

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

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

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

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

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

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

;既に尻尾を挿入中の場合
IF SEARCH_EQUIP(7, MPLY:0, MTAR:0) >= 0
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の%LOCALS:1%アナルに挿入された尻尾を何度も抜き挿し、%ANAME(MTAR:0)%を責め立て%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に促されるまま、%ANAME(MTAR:0)%の%LOCALS:1%アナルに挿入された尻尾を動かして奉仕している…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に%ANAME(MTAR:0)%の%LOCALS:1%尻穴に挿入された尻尾をさらに動かすように命令した
			PRINTFORMW %ANAME(MPLY:0)%は尻尾を何度も抜き挿し、%ANAME(MTAR:0)%のアナルを責め立てた…
	ENDSELECT

;それ以外
ELSE
	SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
		CASE 0
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の%LOCALS:1%%LOCALS:0%に尻尾を挿入し、前後に動かして責め立て%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
		CASE 1
			PRINTFORMW %ANAME(MTAR:0)%は%LOCALS:1%自身のアナルに%ANAME(MPLY:0)%の尻尾を挿入させ、奉仕するように命令した…
		;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、尻尾で%ANAME(MTAR:0)%の尻穴を責めるように命令した
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の%LOCALS:1%%LOCALS:0%に尻尾を挿入し、前後に動かした…
	ENDSELECT
ENDIF

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

		IF TCVAR:(LOCAL:1):失神フラグ
			;気絶中
			PRINTFORML アナルへの刺激に、%ANAME(LOCAL:1)%は意識を失ったまま小さく呻いた
		ELSEIF LOCAL:2 < 300
			PRINTFORML %ANAME(LOCAL:1)%の開発されていないそこはまだ異物を受け入れる場所ではなく、%ANAME(LOCAL:1)%は痛そうに顔を歪めた
		ELSEIF LOCAL:2 < 1000
			PRINTFORML %ANAME(LOCAL:1)%は苦しそうにしながらもその表情にはわずかな快楽と戸惑いが見える
		ELSEIF LOCAL:2 < 3000
			PRINTFORML %ANAME(LOCAL:1)%はこらえきれない快楽に恥ずかしそうな声を漏らしている
		ELSEIF LOCAL:2 < 6000
			PRINTFORML %ANAME(LOCAL:1)%は大分こなれてきた肛門の感覚に、時折自ら快楽を求めるように小さく腰を揺らしている
		ELSEIF LOCAL:2 < 10000
			PRINTFORM %ANAME(LOCAL:1)%は
			IF TALENT:(LOCAL:1):抑圧 || TALENT:(LOCAL:1):孤高 || TALENT:(LOCAL:1):快感の否定
				PRINTFORML あらがえない快楽に、涙目になりながら喘ぎ声を上げている
			ELSE
				PRINTFORML 翻弄する指の動きに合わせて背中を反らし、直腸の刺激に快楽の喘ぎ声を上げた
			ENDIF
		ELSE
			PRINTFORML %ANAME(LOCAL:1)%は淫らに腰を揺らしながら、すっかり菊穴の快楽に溺れて嬌声を上げている
		ENDIF
		IF TALENT:(LOCAL:1):美尻
			PRINTFORML %STR_BODY("尻肉：長：外見", MTAR:0)%がふるふると震えている……
		ELSEIF GET_HIPSIZE(LOCAL:1) >= 1
			PRINTFORML %STR_BODY("尻肉：長：外見", MTAR:0)%がふるふると震えている……
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN7
RETURN コマンド_ウフフ

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

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


code:
;脅す

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME80
RESULTS:0 = 脅す
RESULTS:3 = 脅される

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE80
;共通部分
CALL COM_ABLE_COMMON(80)
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 IS_M_HOLD(MPLY:0)
	RETURN 0
;プレイヤーが拘束中なら不可
SIF IS_BIND(MPLY:0)
	RETURN 0
;ターゲットが失神中・離脱中なら不可
SIF TCVAR:(MTAR:0):失神フラグ || TCVAR:(MTAR:0):離脱フラグ
	RETURN 0
;プレイヤーに主導権がないなら不可
SIF IS_INITIATIVE_SETTING(MPLY:0) == 0
	RETURN 0
RETURN 1

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

;●プレイヤーについて処理
SOURCE:(MPLY:0):嗜虐 = 100
SOURCE:(MPLY:0):逸脱 = 50
EXP:(MPLY:0):嗜虐経験値 += RAND:2 + 1
;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MPLY:0, 130, 0)

;●ターゲットについて処理
LOCAL:0 = EXP:(MTAR:0):トラウマ経験
IF LOCAL:0 < 5
	TFLAG:17 = 0
	SOURCE:(MTAR:0):恐怖 = 50
	SOURCE:(MTAR:0):不安 = 50
	SOURCE:(MTAR:0):反感 = 500
ELSEIF LOCAL:0 < 15
	TFLAG:17 = 1
	SOURCE:(MTAR:0):恐怖 = 200
	SOURCE:(MTAR:0):不安 = 100
	SOURCE:(MTAR:0):反感 = 250
ELSEIF LOCAL:0 < 50
	TFLAG:17 = 2
	SOURCE:(MTAR:0):恐怖 = 400
	SOURCE:(MTAR:0):不安 = 150
	SOURCE:(MTAR:0):反感 = 100
ELSE
	TFLAG:17 = 3
	SOURCE:(MTAR:0):恐怖 = 500
	SOURCE:(MTAR:0):不安 = 200
	SOURCE:(MTAR:0):反感 = 50
ENDIF
IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_マゾ)
	SOURCE:(MTAR:0):反感 = 0
ENDIF

SOURCE:(MTAR:0):逸脱 = 150
EXP:(MTAR:0):被虐経験値 += RAND:2 + 1

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

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

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

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

RETURN 1

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 1)
CALL COM_ORDER_ELEMENT(ARG:0, @"サドLv{ABL:(ARG:0):サド}", ABL:(ARG:0):サド * 3)

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, "大人しい", -3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
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 GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド)
	CALL COM_ORDER_ELEMENT(ARG:0, "サド", 40)
ELSE
	IF ABL:(ARG:0):主導度Ｕ >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 15)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 10)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 5)
	ELSEIF ABL:(ARG:0):主導度Ｕ > -100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 0)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", -5)
	ENDIF

	IF ABL:(ARG:0):倒錯度 >= 800
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 20)
	ELSEIF ABL:(ARG:0):倒錯度 >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 15)
	ELSEIF ABL:(ARG:0):倒錯度 >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 10)
	ELSEIF ABL:(ARG:0):倒錯度 >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 5)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
	ENDIF
ENDIF

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE80
PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%を言葉で脅した…

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST80
IF MTAR:0 != MASTER || CONFIG:441
	LOCAL:2 = CUP:(MTAR:0):怖主
	LOCAL:3 = CUP:(MTAR:0):怒主

	SELECTCASE TFLAG:17
		CASE 0
			;捕虜調教のメインターゲット
			IF FLAG:調教モード == 2 && FINDELEMENT(PRISONER_TARGET, MTAR:0) != -1
				IF LOCAL:2 >= 500
					PRINTFORML %ANAME(MTAR:0)%は反抗的な態度を取っているが、その体は微かに震えている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は不快感を露わにして%ANAME(MPLY:0)%を睨み返した
				ENDIF
			ELSE
				PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の態度に戸惑っているようだ
			ENDIF
		CASE 1
			;捕虜調教のメインターゲット
			IF FLAG:調教モード == 2 && FINDELEMENT(PRISONER_TARGET, MTAR:0) != -1
				IF LOCAL:2 >= 500
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の言葉に、不安げに瞳を彷徨わせている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は気丈な瞳で%ANAME(MPLY:0)%を睨み返した
				ENDIF
			ELSE
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_マゾ)
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の言葉に興奮を覚えているようだ
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の態度に戸惑っているようだ
				ENDIF
			ENDIF
		CASE 2
			;捕虜調教のメインターゲット
			IF FLAG:調教モード == 2 && FINDELEMENT(PRISONER_TARGET, MTAR:0) != -1
				IF LOCAL:2 >= 500
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%にされた行為を思い出し、ビクリと体を震わせた
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は微かに震えながらも、気丈に%ANAME(MPLY:0)%を睨み返した
				ENDIF
			ELSE
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_マゾ)
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の言葉に興奮を覚えているようだ
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の言葉に、思わずビクリと体を震わせた
				ENDIF
			ENDIF
		CASE 3
			;捕虜調教のメインターゲット
			IF FLAG:調教モード == 2 && FINDELEMENT(PRISONER_TARGET, MTAR:0) != -1
				IF LOCAL:2 >= 1500
					PRINTFORML %ANAME(MTAR:0)%はガタガタと震えながら、なりふり構わず%ANAME(MPLY:0)%に許しを乞うている
				ELSEIF LOCAL:2 >= 500
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%にされた行為を思い出し、ガタガタと体を震わせている
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は微かに震えながらも、あくまでも気丈な態度で%ANAME(MPLY:0)%を睨んだ
				ENDIF
			ELSE
				IF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_マゾ)
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の言葉に興奮を覚えているようだ
				ELSE
					PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の言葉に、思わずビクリと体を震わせた
				ENDIF
			ENDIF
	ENDSELECT
ENDIF

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

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

@COM_AVAILABLE_WHEN80
RETURN コマンド_ウフフ

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

@COM_PREFERENCE_TARGET_80()
RETURN POWER(2, 性的嗜好_虐げられたい)


code:
;スパンキング

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME81
LOCALS:0 = 尻を叩

RESULTS:0 '= TR(LOCALS:0,"く")
RESULTS:1 '= TR(LOCALS:0,"かされる")
RESULTS:2 '= TR(LOCALS:0,"かせる")
RESULTS:3 '= TR(LOCALS:0,"かれる")
RESULTS:4 '= TR(LOCALS:0,"かさせる")
RESULTS:5 '= TR(LOCALS:0,"く様を見せつける")

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE81
;共通部分
CALL COM_ABLE_COMMON(81)
SIF RESULT == 0
	RETURN 0
;プレイヤーが必要
SIF MPLY_NUM <= 0
	RETURN 0
;ターゲットは最大でプレイヤー*2人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > MPLY_NUM * 2
	RETURN 0

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

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

;●プレイヤーについて処理
FOR LOCAL:0, 0, MPLY_NUM
	LOCAL:1 = MPLY:(LOCAL:0)
	DOWNBASE:(LOCAL:1):体力 += 100
	EXP:(LOCAL:1):嗜虐経験値 += RAND:3 + 1

	SOURCE:(LOCAL:1):嗜虐 = 150
	SOURCE:(LOCAL:1):逸脱 = 50
	SOURCE:(LOCAL:1):接触 = 30
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:1, 150, 50)
NEXT

;主導権に応じた優越・屈従のソース追加

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

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

	IF TALENT:(LOCAL:1):美尻 || GET_HIPSIZE(LOCAL:1) >= 1
		FOR LOCAL:2, 0, MPLY_NUM
			SOURCE:(MPLY:(LOCAL:2)):嗜虐 += 30
		NEXT
	ENDIF

	SOURCE:(LOCAL:1):苦痛 = 50 + MIN(ABL:(MPLY:0):身体, 90) * 3
	SOURCE:(LOCAL:1):露出 = 100
	SOURCE:(LOCAL:1):逸脱 = 50
	SOURCE:(LOCAL:1):接触 = 30

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

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

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

	FOR LOCAL:2, 0, MPLY_NUM
		IF GETBIT(TALENT:(MPLY:(LOCAL:2)):淫乱系, 素質_淫乱_サド)
			TIMES SOURCE:(LOCAL:1):苦痛, 1.50
		ENDIF
	NEXT
NEXT

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

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

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

CALL FL_PLAYSE("Snap_0.mp3")

RETURN 1

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 1)
CALL COM_ORDER_ELEMENT(ARG:0, @"サドLv{ABL:(ARG:0):サド}", ABL:(ARG:0):サド * 3)

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, "大人しい", -3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
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 GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド)
	CALL COM_ORDER_ELEMENT(ARG:0, "サド", 40)
ELSE
	IF ABL:(ARG:0):主導度Ｕ >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 15)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 10)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 5)
	ELSEIF ABL:(ARG:0):主導度Ｕ > -100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 0)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", -5)
	ENDIF

	IF ABL:(ARG:0):倒錯度 >= 800
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 20)
	ELSEIF ABL:(ARG:0):倒錯度 >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 15)
	ELSEIF ABL:(ARG:0):倒錯度 >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 10)
	ELSEIF ABL:(ARG:0):倒錯度 >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 5)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
	ENDIF
ENDIF

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE81
;ターゲットの数で分岐
IF MTAR_NUM > 3
	LOCALS:0 = %ANAME(MTAR:0)%たち
	LOCALS:1 = 順番に
	LOCALS:2 = 尻

ELSEIF MTAR_NUM == 2
	LOCALS:0 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	LOCALS:1 = 交互に
	LOCALS:2 = 尻

ELSE
	LOCALS:0 = %ANAME(MTAR:0)%
	LOCALS:1 =
	LOCALS:2  = %STR_BODY("尻：長", MTAR:0)%
ENDIF

;ターゲットの数で分岐
IF MPLY_NUM > 3
	LOCALS:3 = %ANAME(MPLY:0)%たち

ELSEIF MPLY_NUM == 2
	LOCALS:3 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%

ELSE
	LOCALS:3 = %ANAME(MPLY:0)%

ENDIF

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORMW %LOCALS:3%は%LOCALS:0%の%LOCALS:2%を%LOCALS:1%、赤く腫れ上がるほどに何度も叩い%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORML %LOCALS:0%は%ANAME(MPLY:0)%に自身の%LOCALS:2%を向け、それを手で叩くように命令した
		PRINTFORMW %LOCALS:3%は言われるまま、%LOCALS:0%の尻を%LOCALS:1%何度も叩いた…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:3%に対して、%LOCALS:0%の尻を叩くように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%LOCALS:0%の%LOCALS:2%を%LOCALS:1%何度も叩いた…
ENDSELECT

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

		IF ABL:(LOCAL:1):マゾ >= 5 && IS_PLAYABLE(LOCAL:1)
			PRINTFORML %ANAME(LOCAL:1)%は痛みを感じているにもかかわらず嬉しそうに甘い声を上げている
		ELSEIF ABL:(LOCAL:1):マゾ >= 3
			PRINTFORML %ANAME(LOCAL:1)%は悲鳴を上げるが、その声には甘い色が混じっている
		ELSEIF LOCAL:2 >= 3000
			PRINTFORML %ANAME(LOCAL:1)%はあまりの痛みと恐怖に恥も外聞もなく泣き叫んでいる
		ELSEIF LOCAL:2 >= 1500
			PRINTFORML %ANAME(LOCAL:1)%は痛みに耐えきれず、何度も悲鳴を上げながら悶え狂っている
		ELSEIF LOCAL:2 >= 500
			PRINTFORML %ANAME(LOCAL:1)%は痛みのあまり口から呻きを漏らしている
		ELSE
			IF LOCAL:3 >= 200 && !IS_INITIATIVE(MTAR:(LOCAL:0))
				PRINTFORML %ANAME(LOCAL:1)%は痛みに耐えながら、%ANAME(MPLY:0)%を睨みつけた
			ELSE
				PRINTFORML %ANAME(LOCAL:1)%は歯を食いしばって痛みに耐えている
			ENDIF
		ENDIF
	ENDIF
	SIF GET_HIPSIZE(LOCAL:1) >= 1
		PRINTFORML 叩かれるたび、%ANAME(LOCAL:1)%の%STR_BODY("尻肉：短", MTAR:0)%はふるふると震えている
NEXT

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

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

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

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

@COM_PREFERENCE_TARGET_81()
RETURN POWER(2, 性的嗜好_虐げられたい)


code:
;鞭

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME82
LOCALS:0 = 鞭

RESULTS:0 '= TR(LOCALS:0,"で打つ")
RESULTS:1 '= TR(LOCALS:0,"で打たされる")
RESULTS:2 '= TR(LOCALS:0,"で打たせる")
RESULTS:3 '= TR(LOCALS:0,"で打たれる")
RESULTS:4 '= TR(LOCALS:0,"で打たせる")
RESULTS:5 '= TR(LOCALS:0,"打ち見せつけ")

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

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

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

;●プレイヤーについて処理
DOWNBASE:(MPLY:0):体力 += 100
EXP:(MPLY:0):嗜虐経験値 += RAND:3 + 1

SOURCE:(MPLY:0):嗜虐 = 400
SOURCE:(MPLY:0):逸脱 = 150

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

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

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

	SOURCE:(LOCAL:1):苦痛 = 400 + MIN(ABL:(MPLY:0):身体, 90) * 3
	SOURCE:(LOCAL:1):露出 = 50
	SOURCE:(LOCAL:1):逸脱 = 150

	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:1, 0, 170)
	EXP:(LOCAL:1):被虐経験値 += RAND:3 + 1

	IF GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_サド)
		TIMES SOURCE:(LOCAL:1):苦痛, 1.50
	ENDIF
	;鞭打ちによる衣装損壊率の上昇
	IF RAND:2
		CALL IS_COVERED(MTAR:(LOCAL:0), 被覆部位_乳首)
		IF RESULT:1 != 0
			衣装損壊率:(MTAR:(LOCAL:0)):(RESULT:0) += RAND(40, 60)
		ENDIF
	ELSE
		CALL IS_COVERED(MTAR:(LOCAL:0), 被覆部位_秘部)
		IF RESULT:1 != 0
			衣装損壊率:(MTAR:(LOCAL:0)):(RESULT:0) += RAND(40, 60)
		ENDIF
	ENDIF
NEXT

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

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

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

CALL FL_PLAYSE(S_R("Whip_0.mp3/Whip_1.mp3/Whip_2.mp3"))

RETURN 1

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

;共通部分
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):サド * 3)

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, "大人しい", -3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
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 GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド)
	CALL COM_ORDER_ELEMENT(ARG:0, "サド", 40)
ELSE
	IF ABL:(ARG:0):主導度Ｕ >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 15)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 10)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 5)
	ELSEIF ABL:(ARG:0):主導度Ｕ > -100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 0)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", -5)
	ENDIF

	IF ABL:(ARG:0):倒錯度 >= 800
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 20)
	ELSEIF ABL:(ARG:0):倒錯度 >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 15)
	ELSEIF ABL:(ARG:0):倒錯度 >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 10)
	ELSEIF ABL:(ARG:0):倒錯度 >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 5)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
	ENDIF
ENDIF

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE82
;ターゲットが２人
IF MTAR_NUM == 2
	LOCALS:0 = %ANAME(MTAR:0)%と%ANAME(MTAR:1)%
	LOCALS:1 = 交互に

	;ターゲットが１人
ELSE
	LOCALS:0 = %ANAME(MTAR:0)%
	LOCALS:1 =
ENDIF

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		IF MPLY:0 == MASTER
			PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:0%を%LOCALS:1%鞭で何度も打ち据えた…
		ELSEIF ABL:(MPLY:0):サド >= 3
			PRINTFORMW %ANAME(MPLY:0)%は嗜虐的な表情を浮かべると、%LOCALS:0%を鞭で%LOCALS:1%激しく打ち据えた…
		ELSE
			PRINTFORMW %ANAME(MPLY:0)%はやや緊張するように鞭を構えると、%LOCALS:0%の体に振り下ろした…
		ENDIF
		;ターゲットに主導権
	CASE 1
		PRINTFORML %LOCALS:0%は%ANAME(MPLY:0)%に鞭を持たせると、それで叩くように命令した
		IF MPLY:0 == MASTER
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に言われるまま、%LOCALS:0%を%LOCALS:1%何度も鞭で打った…
		ELSEIF ABL:(MPLY:0):サド >= 3
			PRINTFORMW %ANAME(MPLY:0)%は呆れたように苦笑すると、遠慮無く%LOCALS:0%の体に%LOCALS:1%鞭を振り下ろし%TARGET_STR("た", "てきた")%…
		ELSE
			PRINTFORMW %ANAME(MPLY:0)%は困惑しながらも、言われた通りに%LOCALS:0%の体に%LOCALS:1%鞭を振るった…
		ENDIF
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:0%の体を鞭で叩くように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%LOCALS:0%の体に鞭を%LOCALS:1%振り下ろした…
ENDSELECT

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

		IF ABL:(LOCAL:1):マゾ >= 5
			PRINTFORML %ANAME(LOCAL:1)%は痛みを感じているにもかかわらず嬉しそうに甘い声を上げている
		ELSEIF ABL:(LOCAL:1):マゾ >= 3
			PRINTFORML %ANAME(LOCAL:1)%は悲鳴を上げるが、その声には甘い色が混じっている
		ELSEIF LOCAL:2 >= 3000
			PRINTFORML %ANAME(LOCAL:1)%はあまりの痛みと恐怖に恥も外聞もなく泣き叫んでいる
		ELSEIF LOCAL:2 >= 1500
			PRINTFORML %ANAME(LOCAL:1)%は痛みに耐えきれず、何度も悲鳴を上げながら悶え狂っている
		ELSEIF LOCAL:2 >= 500
			PRINTFORML %ANAME(LOCAL:1)%は痛みのあまり口から呻きを漏らしている
		ELSE
			IF LOCAL:3 >= 200 && !IS_INITIATIVE(MTAR:(LOCAL:0))
				PRINTFORML %ANAME(LOCAL:1)%は痛みに耐えながら、%ANAME(MPLY:0)%を睨みつけた
			ELSE
				PRINTFORML %ANAME(LOCAL:1)%は歯を食いしばって痛みに耐えている
			ENDIF
		ENDIF
	ENDIF
NEXT

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

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

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

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

@COM_PREFERENCE_TARGET_82()
RETURN POWER(2, 性的嗜好_虐げられたい)


code:
;針

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME83
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_ABLE83
;共通部分
CALL COM_ABLE_COMMON(83)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;針が必要
SIF !ITEM:針 && !ITEM:A_針
	RETURN 0
SIF !CAN_REACH_BODY(MPLY:0, MTAR:0)
	RETURN 0
RETURN 1

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

;●プレイヤーについて処理
DOWNBASE:(MPLY:0):体力 += 100
EXP:(MPLY:0):嗜虐経験値 += RAND:3 + 1

SOURCE:(MPLY:0):嗜虐 = 700
SOURCE:(MPLY:0):逸脱 = 400

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

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

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

	SOURCE:(LOCAL:1):苦痛 = 900 + MIN(ABL:(MPLY:0):身体, 90) * 3
	SOURCE:(LOCAL:1):露出 = 50
	SOURCE:(LOCAL:1):逸脱 = 400
	EXP:(LOCAL:1):被虐経験値 += RAND:3 + 1

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

	IF GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_サド)
		TIMES SOURCE:(LOCAL:1):苦痛, 1.50
	ENDIF
NEXT

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

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

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

RETURN 1

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

;共通部分
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):サド * 3)

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, "大人しい", -3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
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 GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド)
	CALL COM_ORDER_ELEMENT(ARG:0, "サド", 40)
ELSE
	IF ABL:(ARG:0):主導度Ｕ >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 15)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 10)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 5)
	ELSEIF ABL:(ARG:0):主導度Ｕ > -100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 0)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", -5)
	ENDIF

	IF ABL:(ARG:0):倒錯度 >= 800
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 20)
	ELSEIF ABL:(ARG:0):倒錯度 >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 15)
	ELSEIF ABL:(ARG:0):倒錯度 >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 10)
	ELSEIF ABL:(ARG:0):倒錯度 >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 5)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
	ENDIF
ENDIF

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE83
SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		IF MPLY:0 == MASTER
			PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の肢体に次々と針を突き刺し%TARGET_STR("た", "てきた")%…
		ELSEIF ABL:(MPLY:0):サド >= 3
			PRINTFORMW %ANAME(MPLY:0)%は嗜虐的な表情を浮かべると、%ANAME(MTAR:0)%の肢体に次々と針を突き刺し%TARGET_STR("た", "てきた")%…
		ELSE
			PRINTFORMW %ANAME(MPLY:0)%は恐る恐る針を構えると、ゆっくりと%ANAME(MTAR:0)%の体に突き刺し%TARGET_STR("た", "てきた")%…
		ENDIF
	;ターゲットに主導権
	CASE 1
		PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に針を持たせると、それを%ANAME(MTAR:0)%自身の体に刺すように命令した
		IF MPLY:0 == MASTER
			PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%ANAME(MTAR:0)%の肢体に針を突き刺した…
		ELSEIF ABL:(MPLY:0):サド >= 3
			PRINTFORMW %ANAME(MPLY:0)%は呆れたように%ANAME(MTAR:0)%を見ながら、%ANAME(MTAR:0)%の肢体に容赦なく針を突き刺し%TARGET_STR("た", "てきた")%…
		ELSE
			PRINTFORMW %ANAME(MPLY:0)%は困惑しながらも、恐る恐る%ANAME(MTAR:0)%の体に針を突き立てた…
		ENDIF
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:0%の体に針を突き刺すように命令した
		PRINTFORMW %ANAME(MPLY:0)%は言われるまま、%ANAME(MTAR:0)%の肢体に針を突き刺していった…
ENDSELECT

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

		IF ABL:(LOCAL:1):マゾ >= 5
			PRINTFORML %ANAME(LOCAL:1)%は痛みを感じているにもかかわらず嬉しそうに甘い声を上げている
		ELSEIF ABL:(LOCAL:1):マゾ >= 3
			PRINTFORML %ANAME(LOCAL:1)%は悲鳴を上げるが、その声には甘い色が混じっている
		ELSEIF LOCAL:2 >= 3000
			PRINTFORML %ANAME(LOCAL:1)%はあまりの痛みと恐怖に恥も外聞もなく泣き叫んでいる
		ELSEIF LOCAL:2 >= 1500
			PRINTFORML %ANAME(LOCAL:1)%は痛みに耐えきれず、何度も悲鳴を上げながら悶え狂っている
		ELSEIF LOCAL:2 >= 500
			PRINTFORML %ANAME(LOCAL:1)%は痛みのあまり口から呻きを漏らしている
		ELSE
			IF LOCAL:3 >= 200 && !IS_INITIATIVE(MTAR:(LOCAL:0))
				PRINTFORML %ANAME(LOCAL:1)%は痛みに耐えながら、%ANAME(MPLY:0)%を睨みつけた
			ELSE
				PRINTFORML %ANAME(LOCAL:1)%は歯を食いしばって痛みに耐えている
			ENDIF
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN83
RETURN コマンド_ウフフ

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

@COM_PREFERENCE_TARGET_83()
RETURN POWER(2, 性的嗜好_虐げられたい)


code:
;目隠し

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME84
LOCALS:0 = 目隠し

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE84
;共通部分
CALL COM_ABLE_COMMON(84)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF (MPLY_NUM <= 0 || MPLY_NUM > 1) && !FLAG:RECHECKING
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;目隠しが必要
SIF !HO_ITEM_STOCK:ITEM_目隠し && !ITEM:A_目隠し
	RETURN 0
FOR LOCAL, 0, MTAR_NUM
	;手が使えない場合は不可
	SIF !CAN_USE_HAND(MPLY:0) && !FLAG:RECHECKING
		RETURN 0
NEXT

RETURN 1

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

;●プレイヤーについて処理
SOURCE:(MPLY:0):嗜虐 = 200
SOURCE:(MPLY:0):逸脱 = 80
SOURCE:(MPLY:0):接触 = 20
EXP:(MPLY:0):嗜虐経験値 += 1

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

;●ターゲットについて処理
FOR LOCAL, 0, MTAR_NUM
	EXP:(MTAR:(LOCAL:0)):緊縛経験 += 1
	EXP:(MTAR:(LOCAL:0)):被虐経験値 += 1

	SOURCE:(MTAR:(LOCAL:0)):恐怖 = 100
	SOURCE:(MTAR:(LOCAL:0)):不安 = 100
	SOURCE:(MTAR:(LOCAL:0)):逸脱 = 150
	SOURCE:(MTAR:(LOCAL:0)):接触 = 20
NEXT

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

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

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

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

RETURN 1

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

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

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

	EXP:(LOCAL:3):緊縛経験 += 1
	EXP:(LOCAL:3):被虐経験値 += 1

	SOURCE:(LOCAL:3):恐怖 += 50
	SOURCE:(LOCAL:3):不安 += 50
	SOURCE:(LOCAL:3):逸脱 += 100

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE84(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%に目隠し中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP84(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%は布で視界を塞がれている…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP84(ARG:0)
PRINTFORMW %EQUIP_TARGET_ANAME(ARG:0)%の目隠しを外した

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

;共通部分
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):サド * 3)

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, "大人しい", -3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
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 GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド)
	CALL COM_ORDER_ELEMENT(ARG:0, "サド", 40)
ELSE
	IF ABL:(ARG:0):主導度Ｕ >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 15)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 10)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 5)
	ELSEIF ABL:(ARG:0):主導度Ｕ > -100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 0)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", -5)
	ENDIF

	IF ABL:(ARG:0):倒錯度 >= 800
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 20)
	ELSEIF ABL:(ARG:0):倒錯度 >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 15)
	ELSEIF ABL:(ARG:0):倒錯度 >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 10)
	ELSEIF ABL:(ARG:0):倒錯度 >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 5)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "倒錯度", 0)
	ENDIF
ENDIF

RETURN 1

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

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

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%の目の周りに布を巻き付けて視界を奪っ%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に布を渡すと、それで目隠しするように命令した
		PRINTFORML %ANAME(MPLY:0)%は言われるまま、%LOCALS:1%の目の周りに布を巻き付けて目隠しした…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:1%に目隠しするように命令した
		PRINTFORML %ANAME(MPLY:0)%は言われるまま、%LOCALS:1%の目の周りに布を巻き付けて目隠しした…
ENDSELECT

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

;目隠し
@COM_CATEGORY84
IF FLAG:調教モード != 調教_居住区 && FLAG:調教モード != 調教_クエスト
	RETURN 3
ELSE
	RETURN 12
ENDIF

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

@COM_PREFERENCE_TARGET_84()
RETURN POWER(2, 性的嗜好_虐げられたい) + POWER(2, 性的嗜好_縛られたい)