code:
;セクハラのある日常。パンツ履いてる前提になってる

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME333
SELECTCASE PREVCOM
	CASE 327
		LOCALS:0 = 膝枕クリ愛撫
	CASEELSE
		LOCALS:0 = クリ愛撫
ENDSELECT

RESULTS:0 = %LOCALS:0%する
RESULTS:1 = %LOCALS:0%させられる
RESULTS:2 = %LOCALS:0%してもらう
RESULTS:3 = %LOCALS:0%される

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE333
;共通部分
CALL COM_ABLE_COMMON(333)
SIF RESULT == 0
	RETURN 0
;行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
;ターゲットに膣が必要
SIF !HAS_VAGINA(MTAR:0)
	RETURN 0
	;フェラ中は不可
SIF IS_EQUIP(MPLY:0, 330)
	RETURN 0
;主人公以外が実行する場合、実行可能でなければ表示されない
IF MPLY:0 != MASTER
	TCVAR:(MPLY:0):判定値 = 0
	SKIPDISP 1
	CALL COM_ORDER_PLAYER333(MPLY:0)
	SKIPDISP 0
	SIF TCVAR:(MPLY:0):判定値 < TCVAR:(MPLY:0):実行値
		RETURN 0
ENDIF
;主導権を握っている側に指挿入れの知識が必要
LOCAL:0 = 0
IF FLAG:主導権所有者 == -1
	CALL CHECK_COM_KNOWLEDGE(MPLY:0, 3)
	LOCAL:0 += RESULT
	CALL CHECK_COM_KNOWLEDGE(MTAR:0, 3)
	LOCAL:0 += RESULT
ELSE
	CALL CHECK_COM_KNOWLEDGE(FLAG:主導権所有者, 3)
	LOCAL:0 += RESULT
ENDIF
IF !RESULT
	RETURN 0
ENDIF
RETURN 1

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

;プレイヤーのフェラを解除
CALL RELEASE_EQUIP(SEARCH_EQUIP(330, MPLY:0, -1), 1, 0)

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

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

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

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

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

;●ターゲット側の処理
LOCAL:4 = SENSE_HOUSHI(MPLY:0, MTAR:0, 1200)
IF TALENT:(MPLY:0):恋人
	TIMES LOCAL:4, 1.05
ENDIF
SOURCE:(MTAR:0):快Ｃ += LOCAL:4

;●ソースの計算
DOWNBASE:(MTAR:0):体力 += 60
SOURCE:(MTAR:0):接触 = 50
SOURCE:(MTAR:0):性行動 = 180
;主導権に応じた優越・受動のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MTAR:0, 100, 0)

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

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

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

RETURN 1

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

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

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

;●プレイヤーの処理
DOWNBASE:(LOCAL:2):体力 += 20
EXP:(MPLY:0):性技経験値 += 1

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

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

;●ターゲット側の処理
DOWNBASE:(LOCAL:3):体力 += 10
SOURCE:(LOCAL:3):接触 += 30
SOURCE:(LOCAL:3):性行動 += 90
SOURCE:(LOCAL:3):快Ｃ = SENSE_HOUSHI(LOCAL:2, LOCAL:3, 300 / 3)
;退避したソースを加算
CALL SUM_SOURCE(LOCAL:2)
CALL SUM_SOURCE(LOCAL:3)

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE333(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%のクリ愛撫中

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

PRINTFORML  %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%のクリトリスを愛撫している…

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

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

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

IF TALENT:(ARG:0):貞操観念
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操観念", -6)
ENDIF
IF TALENT:(ARG:0):貞操無頓着
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操無頓着", 3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -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):快感に素直
	CALL COM_ORDER_ELEMENT(ARG:0, "快感に素直", 1)
ENDIF
IF TALENT:(ARG:0):女嫌い
	CALL COM_ORDER_ELEMENT(ARG:0, "女嫌い", -7)
ENDIF
IF TFLAG:デート場所
	CALL COM_ORDER_ELEMENT(ARG:0, "デート中", 6)
ENDIF

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

RETURN 1

;-------------------------------------------------
;固有の実行判定(ターゲット側)
;-------------------------------------------------
@COM_ORDER_TARGET333(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 * 2, 20))

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

IF TALENT:(ARG:0):貞操観念
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操観念", -6)
ENDIF
IF TALENT:(ARG:0):貞操無頓着
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操無頓着", 3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -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):快感に素直
	CALL COM_ORDER_ELEMENT(ARG:0, "快感に素直", 1)
ENDIF
IF TALENT:(ARG:0):女嫌い
	CALL COM_ORDER_ELEMENT(ARG:0, "女嫌い", -7)
ENDIF
IF TFLAG:デート場所
	CALL COM_ORDER_ELEMENT(ARG:0, "デート中", 6)
ENDIF

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE333
#DIMS PENIS_NAME
;SKIPDISPしてから呼び出してRESULTを取ったら、キャラ口上からどのパターンか読める…ハズ
LOCAL:3 = 0

IF PALAM:(MTAR:0):潤滑 >= PALAMLV:5
	LOCALS:1 = ぐっしょりと濡れそぼった
ELSEIF PALAM:(MTAR:0):潤滑 >= PALAMLV:3
	LOCALS:1 = 愛液に湿った
ELSEIF PALAM:(MTAR:0):潤滑 >= PALAMLV:2
	LOCALS:1 = 薄っすらと湿った
ENDIF

SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORM  %ANAME(MPLY:0)%は
		SELECTCASE PREVCOM
			;仕事中
			CASE 303, 304
				LOCAL:3 = 1
				PRINTDATAL
					DATAFORM 仕事中の%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
					DATAFORM 政務に勤しむ%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
					DATAFORM 書類を捌く%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
				ENDDATA
			;訓練後
			CASE 301, 302
				LOCAL:3 = 2
				PRINTDATAL
					DATAFORM %ANAME(MTAR:0)%の%LOCALS:1%激しい運動で蒸れた下着の上から
					DATAFORM %ANAME(MTAR:0)%の%LOCALS:1%下着の上から
					DATAFORM 息を弾ませる%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
				ENDDATA
			;歌唱
			CASE 306
				LOCAL:3 = 3
				PRINTFORML 歌声を奏でる%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
			;お掃除フェラ
			CASE 310, 311
				LOCAL:3 = 4
				PRINTDATAL
					DATAFORM 酒気で赤らんだ%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
					DATAFORM 酒気に眦を赤く染めた%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
				ENDDATA
			;実地演習
			CASE 550
				LOCAL:3 = 5
				PRINTFORML 早速実践するべく%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
			;路地裏フェラ
			CASE 305
				LOCAL:3 = 6
				PRINTFORML 人気のない路地裏へと連れ込むと、%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
			;猥談
			CASE 309
				LOCAL:3 = 7
				PRINTFORML 猥談に興奮を抑えられなくなり、%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
			CASEELSE
				IF GET_PLACENAME(TFLAG:デート場所) == "市街地"
					LOCAL:3 = 6
					PRINTFORML 人気のない路地裏へと連れ込むと、%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
			;温泉
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "温泉"
					LOCAL:3 = 10
					IF RAND:2 == 0
						PRINTFORML 裸の%ANAME(MTAR:0)%の%LOCALS:1%
					ELSE
						PRINTFORML 湯船の中で%ANAME(MTAR:0)%の%LOCALS:1%
					ENDIF
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "遊泳場"
					LOCAL:3 = 11
					PRINTDATAL
						DATAFORM 泳ぎ疲れ岩に腰掛ける%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
						DATAFORM %ANAME(MTAR:0)%の肌に張り付いた%LOCALS:1%下着の上から
						DATAFORM 岩場の影で%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
					ENDDATA
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "森林"
					PRINTDATAL
						DATAFORM 木陰で体を休める%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
						DATAFORM 静かな森の中で%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
						DATAFORM 森小屋へ連れ込むと%ANAME(MTAR:0)%の%LOCALS:1%下着の上から
					ENDDATA
				ELSE
					PRINTDATA
						DATAFORM %ANAME(MTAR:0)%の%LOCALS:1%下着の上から
					ENDDATA
				ENDIF
		ENDSELECT
		IF HAS_PENIS(MTAR:0)
			PRINTFORMW 竿の付け根から陰唇にかけて指先で弄り回し%TARGET_STR("た", "てきた")%…
		ELSE
			PRINTFORMW 陰唇をゆっくりと撫で回し%TARGET_STR("た", "てきた")%…
		ENDIF
	;ターゲットに主導権
	CASE 1
		PRINTFORM  %ANAME(MTAR:0)%は%LOCALS:0%
		SELECTCASE PREVCOM
			;仕事中
			CASE 303, 304
				LOCAL:3 = 21
				PRINTDATAL
					DATAFORM 仕事中の%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
					DATAFORM 政務に勤しむ%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
					DATAFORM 書類を捌く%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
				ENDDATA
			;訓練後
			CASE 301, 302
				LOCAL:3 = 22
				PRINTDATAL
					DATAFORM 荒い息をつく%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
					DATAFORM 息を整える%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
					DATAFORM 汗を拭う%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
				ENDDATA
			;歌唱
			CASE 306
				LOCAL:3 = 23
				PRINTFORML 歌いながら%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
			;お掃除フェラ
			CASE 310, 311
				LOCAL:3 = 24
				PRINTDATAL
					DATAFORM 酒気で赤らんだ肌を寄せて%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
					DATAFORM 酒気に眦を赤く染めながら%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
				ENDDATA
			;実地演習
			CASE 550
				LOCAL:3 = 25
				PRINTFORML 早速実践だとばかりに%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
			;路地裏フェラ
			CASE 305
				LOCAL:3 = 26
				PRINTFORML 人気のない路地裏へと連れ込むと、%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
			;猥談
			CASE 309
				LOCAL:3 = 27
				PRINTFORML 猥談に興奮した様子で%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
			CASEELSE
				IF GET_PLACENAME(TFLAG:デート場所) == "市街地"
					LOCAL:3 = 26
					PRINTFORML 人気のない路地裏へと連れ込むと、%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
			;温泉
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "温泉"
					LOCAL:3 = 30
					IF RAND:2 == 0
						PRINTFORML 素肌を寄せ%ANAME(MPLY:0)%の手を自身の
					ELSE
						PRINTFORML 湯船の中で%ANAME(MPLY:0)%の手を自身の
					ENDIF
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "遊泳場"
					LOCAL:3 = 31
					PRINTDATAL
						DATAFORM 泳ぎ疲れ岩に腰掛ける%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
						DATAFORM 濡れて肌に張り付いた%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
						DATAFORM 岩陰に連れ込むと%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
					ENDDATA
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "森林"
					PRINTDATAL
						DATAFORM 木陰で体を休める%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
						DATAFORM 静かな森の中で%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
						DATAFORM 森小屋へ連れ込むと%ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
					ENDDATA
				ELSE
					PRINTDATAL
						DATAFORM %ANAME(MPLY:0)%の手を自身の%LOCALS:1%下着へと導くと
					ENDDATA
				ENDIF
		ENDSELECT
		IF HAS_PENIS(MTAR:0)
			PRINTFORMW 竿の付け根から陰唇を触って気持ちよくするよう命令し%TARGET_STR("た", "てきた")%…
		ELSE
			PRINTFORMW 陰唇に押し付け、触って気持ち良くするように命令した…
		ENDIF
ENDSELECT

RETURN LOCAL:3

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

;日常コマンドに共通の地の文
;CALL COM_TEXT_LAST_LIFE

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

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

@COM_AVAILABLE_WHEN333
RETURN コマンド_日常


code:
;自慰

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME334
LOCALS:0 =
IF TFLAG:撮影中 == 1
	LOCALS:0 = 撮影
ELSEIF TFLAG:104 >= 2
	LOCALS:0 = 公開
ELSEIF TFLAG:デート場所 == 8
	LOCALS:0 = 野外
ENDIF

IF IS_EQUIP_TARGET(MPLY:0, 61) && IS_EQUIP_TARGET(MPLY:0, 62)
	LOCALS:0 '= LOCALS:0 + "両穴バイブ"
ELSEIF IS_EQUIP_TARGET(MPLY:0, 61)
	LOCALS:0 '= LOCALS:0 +"バイブ"
ELSEIF IS_EQUIP_TARGET(MPLY:0, 62)
	LOCALS:0 '= LOCALS:0 +"アナルバイブ"
ENDIF

LOCALS:0 '= LOCALS:0 + "オナニー"

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE334
;共通部分
CALL COM_ABLE_COMMON(334)
SIF RESULT == 0
	RETURN 0
;プレイヤーは1人以上
SIF MPLY_NUM <= 0
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
;全てのプレイヤーについて判定
FOR LOCAL:0, 0, MPLY_NUM
	;拘束中なら不可
	SIF IS_BIND(MPLY:(LOCAL:0))
		RETURN 0
	;todo this action really needs to be split into penis masturbation and vaginal masturbation to make sense
	SIF !HAS_VAGINA(MPLY:LOCAL)
		RETURN 0
NEXT
RETURN 1

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

;各プレイヤーの絡む自慰・触手オナニーの継続状態を解除
FOR LOCAL:0, 0, MPLY_NUM
	CALL RELEASE_EQUIP_EX(334, MPLY:(LOCAL:0), -1)
	CALL RELEASE_EQUIP_EX(211, MPLY:(LOCAL:0), -1)
NEXT

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

	EXP:(LOCAL:2):自慰経験値 += 3

	SOURCE:(LOCAL:2):露出 = 1300
	SOURCE:(LOCAL:2):逸脱 = 100
	SOURCE:(LOCAL:2):性行動 = 240

	LOCAL:3 = 500

	SELECTCASE ABL:(LOCAL:2):自慰
		CASE 0
			TIMES LOCAL:3, 1.00
		CASE 1
			TIMES LOCAL:3, 1.20
		CASE 2
			TIMES LOCAL:3, 1.50
		CASE 3
			TIMES LOCAL:3, 1.80
		CASE 4
			TIMES LOCAL:3, 2.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (420 + (ABL:(LOCAL:2):自慰 - 5)) / 200
	ENDSELECT

	SIF GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_自慰狂い)
		TIMES LOCAL:3, 2.0

	SOURCE:(LOCAL:2):快Ｃ = SENSE_HOUSHI(LOCAL:2, LOCAL:2, LOCAL:3)
	SOURCE:(LOCAL:2):快Ｂ = SENSE_HOUSHI(LOCAL:2, LOCAL:2, LOCAL:3 / 2)

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

NEXT

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

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

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

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

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

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP334(ARG:0)
;●全プレイヤーについて処理
FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	LOCAL:2 = MEQUIP_PLAYER:(ARG:0):(LOCAL:0)

	EXP:(LOCAL:2):自慰経験値 += 1

	SIF IS_EQUIP_TARGET(LOCAL:2, 61)
		EXP:(LOCAL:2):自慰経験値 += 1

	SIF IS_EQUIP_TARGET(LOCAL:2, 62)
		EXP:(LOCAL:2):自慰経験値 += 1

	SOURCE:(LOCAL:2):露出 += 600
	SOURCE:(LOCAL:2):逸脱 += 50
	SOURCE:(LOCAL:2):性行動 += 80

	LOCAL:3 = 500

	SELECTCASE ABL:(LOCAL:2):自慰
		CASE 0
			TIMES LOCAL:3, 1.00
		CASE 1
			TIMES LOCAL:3, 1.20
		CASE 2
			TIMES LOCAL:3, 1.50
		CASE 3
			TIMES LOCAL:3, 1.80
		CASE 4
			TIMES LOCAL:3, 2.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (420 + (ABL:(LOCAL:2):自慰 - 5)) / 200
	ENDSELECT

	SIF GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_自慰狂い)
		TIMES LOCAL:3, 2.0

	SOURCE:(LOCAL:2):快Ｃ += SENSE_HOUSHI(LOCAL:2, LOCAL:2, LOCAL:3)
	SOURCE:(LOCAL:2):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:2, LOCAL:3 / 2)
NEXT

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

	SOURCE:(LOCAL:2):性行動 += 40
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE334(ARG:0)

LOCALS:0 =
IF TFLAG:撮影中 == 1
	LOCALS:0 = 撮影
ELSEIF TFLAG:104 >= 2
	LOCALS:0 = 公開
ELSEIF TFLAG:デート場所 == 8
	LOCALS:0 = 野外
ENDIF

IF IS_EQUIP_TARGET(MEQUIP_PLAYER:(ARG:0):0, 61) && IS_EQUIP_TARGET(MEQUIP_PLAYER:(ARG:0):0, 62)
	LOCALS:0 '= LOCALS:0 + "両穴バイブ"
ELSEIF IS_EQUIP_TARGET(MEQUIP_PLAYER:(ARG:0):0, 61)
	LOCALS:0 '= LOCALS:0 +"バイブ"
ELSEIF IS_EQUIP_TARGET(MEQUIP_PLAYER:(ARG:0):0, 62)
	LOCALS:0 '= LOCALS:0 +"アナルバイブ"
ENDIF
LOCALS:0 '= LOCALS:0 + "オナニー"

RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%LOCALS:0%中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP334(ARG:0)
#DIM  DYNAMIC 被覆衣装部位
#DIM  DYNAMIC 被覆衣装ID
#DIMS DYNAMIC 被覆衣装描写

;下着で秘部が覆われているか確認する
CALL IS_COVERED(MEQUIP_PLAYER:(ARG:0):0, 被覆部位_秘部, 1)
被覆衣装部位 = RESULT:0
被覆衣装ID = RESULT:1
IF 被覆衣装部位 == 衣装部位_下着下 || 衣装部位_上下下着
	TRYCCALLFORM CLOTH_DESC_%CLOTH_PART_NAME_ENG:被覆衣装部位%_{被覆衣装ID}
		被覆衣装描写 '= RESULTS
	CATCH
		TRYCCALLFORM CLOTH_NAME_%CLOTH_PART_NAME_ENG:被覆衣装部位%_{被覆衣装ID}
			被覆衣装描写 '= RESULTS
		CATCH
		ENDCATCH
	ENDCATCH
ELSE
	被覆衣装描写 '= ""
ENDIF
SIF 被覆衣装描写 == "なし"
	被覆衣装描写 '= ""

LOCAL:2 = 0
FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	SIF HAS_VAGINA(MEQUIP_PLAYER:(ARG:0):(LOCAL:0))
		LOCAL:2 = 1
NEXT

PRINTFORM %EQUIP_PLAYER_ANAME(ARG:0)%は

IF IS_EQUIP_TARGET(MEQUIP_PLAYER:(ARG:0):0, 61) && IS_EQUIP_TARGET(MEQUIP_PLAYER:(ARG:0):0, 62)
	PRINTFORM 二穴をバイブで弄び、
ELSEIF IS_EQUIP_TARGET(MPLY:0, 61)
	PRINTFORM %STR_BODY("膣", MEQUIP_PLAYER:(ARG:0):0)%をバイブで弄び、
ELSEIF IS_EQUIP_TARGET(MPLY:0, 62)
	PRINTFORM %STR_BODY("アナル", MEQUIP_PLAYER:(ARG:0):0)%をバイブで弄び、
ENDIF
IF 被覆衣装描写 != "" && MEQUIP_PLAYER_NUM:(ARG:0) == 1
	PRINTFORML %被覆衣装描写%%SPLIT_RAND("の中に指を滑り込ませ/の上から/越しに/を指でずらし",1)%%STR_BODY("クリ：欲情", MEQUIP_PLAYER:(ARG:0):0)%を弄っている…
ELSE
	PRINTFORML %STR_BODY("クリ：欲情", MEQUIP_PLAYER:(ARG:0):0)%を弄っている…
ENDIF
;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP334(ARG:0)

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 3)
CALL COM_ORDER_ELEMENT(ARG:0, @"露出Lv{ABL:(ARG:0):露出}", ABL:(ARG:0):露出 * 4)
CALL COM_ORDER_ELEMENT(ARG:0, @"自慰Lv{ABL:(ARG:0):自慰}", ABL:(ARG:0):自慰 * 4)

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

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

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -12)
ENDIF
IF TALENT:(ARG:0):恥薄い
	CALL COM_ORDER_ELEMENT(ARG:0, "恥薄い", 8)
ENDIF
IF TALENT:(ARG:0):自制心
	CALL COM_ORDER_ELEMENT(ARG:0, "自制心", -6)
ENDIF
IF TALENT:(ARG:0):目立ちたがり
	CALL COM_ORDER_ELEMENT(ARG:0, "目立ちたがり", 6)
ENDIF
IF TALENT:(ARG:0):自慰しやすい
	CALL COM_ORDER_ELEMENT(ARG:0, "自慰しやすい", 10)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -2)
ENDIF

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

SIF GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_自慰狂い)
	CALL COM_ORDER_ELEMENT(ARG:0, "自慰狂い", 20)

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE334
#DIM  DYNAMIC 被覆衣装部位
#DIM  DYNAMIC 被覆衣装ID
#DIMS DYNAMIC 被覆衣装描写
#DIMS クリ描写

;下着で秘部が覆われているか確認する
CALL IS_COVERED(MPLY:0, 被覆部位_秘部, 1)
被覆衣装部位 = RESULT:0
被覆衣装ID = RESULT:1
IF (被覆衣装部位 == 衣装部位_下着下) || (被覆衣装部位 == 衣装部位_上下下着)
	TRYCCALLFORM CLOTH_DESC_%CLOTH_PART_NAME_ENG:被覆衣装部位%_{被覆衣装ID}
		被覆衣装描写 '= RESULTS
	CATCH
		TRYCCALLFORM CLOTH_NAME_%CLOTH_PART_NAME_ENG:被覆衣装部位%_{被覆衣装ID}
			被覆衣装描写 '= RESULTS
		CATCH
		ENDCATCH
	ENDCATCH
ELSE
	被覆衣装描写 '= ""
ENDIF

LOCALS:3 =
クリ描写 '= @"%STR_BODY("クリ：欲情", MPLY:0)%"
LOCALS:0 '= @"自身の指で%SPLIT_RAND(@"劣情を慰め/自身を慰め/%クリ描写%を弄り回し")%"

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

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

IF TFLAG:撮影中 == 1
	LOCALS:3 = カメラに見えるように、
ELSEIF TFLAG:104 >= 2
	LOCALS:3 = 皆の見ている前で、
ELSEIF TFLAG:デート場所 == 8
	LOCALS:3 = 誰に見られているとも知らない中で、
ELSE
	LOCALS:3 =
ENDIF

SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		IF (被覆衣装描写 != "") && (MPLY_NUM == 1)
			PRINTFORMW %LOCALS:2%は%被覆衣装描写%%SPLIT_RAND("の上から/越しに/を指でずらし",1)%、%LOCALS:3%%LOCALS:1%に見せつけながら、指で自身の%クリ描写%や胸を弄り回してオナニーした…
		ELSE
			PRINTFORMW %LOCALS:2%は%LOCALS:3%%LOCALS:1%に見せつけながら、指で自身のクリトリスや胸を弄り回してオナニーした…
		ENDIF
	;ターゲットに主導権
	CASE 1
		PRINTFORML %LOCALS:1%は%LOCALS:2%に、その場でオナニーするように命令した
		IF (被覆衣装描写 != "") && (MPLY_NUM == 1)
			PRINTFORMW %LOCALS:2%は言われるまま%被覆衣装描写%%SPLIT_RAND("の上から/越しに/を指でずらし",1)%、%LOCALS:3%%LOCALS:1%の目の前で%LOCALS:0%た…
		ELSE
			PRINTFORMW %LOCALS:2%は言われるまま、%LOCALS:3%%LOCALS:1%の目の前で%LOCALS:0%た…
		ENDIF
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:2%に対して、%LOCALS:1%の前でオナニーするように命令した
		PRINTFORMW %LOCALS:2%は言われるまま、%LOCALS:3%%LOCALS:1%の目の前で見せつけるように%LOCALS:0%た…
ENDSELECT

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

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !CFLAG:(LOCAL:1):TEXT_LAST非表示 && IS_INITIATIVE(LOCAL:1)
		IF ABL:(LOCAL:1):自慰 >= 5 || GETBIT(TALENT:(LOCAL:1):淫乱系, 素質_淫乱_自慰狂い)
			PRINTFORML %ANAME(LOCAL:1)%はすっかりオナニーに没頭し、激しく指を動かして自ら快感を貪っている
		ELSEIF ABL:(LOCAL:1):露出 >= 5
			PRINTFORML %ANAME(LOCAL:1)%は見られることで興奮しているのか、上気した顔で指を動かしている
		ELSEIF ABL:(LOCAL:1):自慰 >= 2
			;捕虜調教のメインターゲット
			IF FLAG:調教モード == 2 && FINDELEMENT(PRISONER_TARGET, MTAR:0) != -1
				PRINTFORML %ANAME(LOCAL:1)%は屈辱に顔を歪めながらも、自ら快感を求めて指を動かしてしまっている
			ELSE
				PRINTFORML %ANAME(LOCAL:1)%は恥ずかしそうにしているが、無意識に快感を求めるように指を動かしている
			ENDIF
		ELSE
			;捕虜調教のメインターゲット
			IF FLAG:調教モード == 2 && FINDELEMENT(PRISONER_TARGET, MTAR:0) != -1
				PRINTFORML %ANAME(LOCAL:1)%は屈辱に耐えながら、おぼつかない手付きで自分の体に指を這わせた
			ELSE
				PRINTFORML %ANAME(LOCAL:1)%は恥ずかしさのあまり目を逸らしながら、おぼつかない手付きで自分の体に指を這わせた
			ENDIF
		ENDIF
	ENDIF
NEXT

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

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

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

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_334()
RETURN POWER(2, 性的嗜好_辱められたい) + POWER(2, 性的嗜好_露出したい)

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

@COM_STACK_SPERM_MPLY_TO_MPLY_334()
RETURN !RAND:3 ? 射精部位_手 # 射精部位_無駄

@COM_STACK_SPERM_MPLY_TO_MTAR_334()
RETURN IFRAND(@"{射精部位_無駄}", 1, @"{射精部位_顔}", RAND:100 < 50, @"{射精部位_髪}", RAND:100 < 50)

repo_name: pervysquirrelz/erafl

license: unknown


code:
;自慰

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME335
LOCALS:0 =
IF TFLAG:撮影中 == 1
	LOCALS:0 = 撮影
ELSEIF TFLAG:104 >= 2
	LOCALS:0 = 公開
ELSEIF TFLAG:デート場所 == 8
	LOCALS:0 = 野外
ENDIF

LOCALS:0 '= LOCALS:0 + "オナニー"

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE335
;共通部分
CALL COM_ABLE_COMMON(335)
SIF RESULT == 0
	RETURN 0
;プレイヤーは1人以上
SIF MPLY_NUM <= 0
	RETURN 0
;ターゲットは1人以上
SIF MTAR_NUM <= 0
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
;全てのプレイヤーについて判定
FOR LOCAL:0, 0, MPLY_NUM
	;拘束中なら不可
	SIF IS_BIND(MPLY:(LOCAL:0))
		RETURN 0
	;todo this action really needs to be split into penis masturbation and vaginal masturbation to make sense
	SIF !(HAS_PENIS(MPLY:LOCAL) && P_STACKABLE(MPLY:0, MPLY:0, 335))
		RETURN 0
NEXT
RETURN 1

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

;各プレイヤーの絡む自慰・触手オナニーの継続状態を解除
FOR LOCAL:0, 0, MPLY_NUM
	CALL RELEASE_EQUIP_EX(335, MPLY:(LOCAL:0), -1)
	CALL RELEASE_EQUIP_EX(211, MPLY:(LOCAL:0), -1)
NEXT

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

	EXP:(LOCAL:2):自慰経験値 += 3

	SOURCE:(LOCAL:2):露出 = 1300
	SOURCE:(LOCAL:2):逸脱 = 100
	SOURCE:(LOCAL:2):性行動 = 240

	LOCAL:3 = 500

	SELECTCASE ABL:(LOCAL:2):自慰
		CASE 0
			TIMES LOCAL:3, 1.00
		CASE 1
			TIMES LOCAL:3, 1.20
		CASE 2
			TIMES LOCAL:3, 1.50
		CASE 3
			TIMES LOCAL:3, 1.80
		CASE 4
			TIMES LOCAL:3, 2.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (420 + (ABL:(LOCAL:2):自慰 - 5)) / 200
	ENDSELECT

	SIF GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_自慰狂い)
		TIMES LOCAL:3, 2.0

	SOURCE:(LOCAL:2):快Ｐ = SENSE_HOUSHI_P(LOCAL:2, LOCAL:2, LOCAL:3 * 3 / 2)

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

NEXT

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

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

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

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

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

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

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

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

RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP335(ARG:0)
;●全プレイヤーについて処理
FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	LOCAL:2 = MEQUIP_PLAYER:(ARG:0):(LOCAL:0)

	EXP:(LOCAL:2):自慰経験値 += 1

	SIF IS_EQUIP_TARGET(LOCAL:2, 61)
		EXP:(LOCAL:2):自慰経験値 += 1

	SIF IS_EQUIP_TARGET(LOCAL:2, 62)
		EXP:(LOCAL:2):自慰経験値 += 1

	SOURCE:(LOCAL:2):露出 += 600
	SOURCE:(LOCAL:2):逸脱 += 50
	SOURCE:(LOCAL:2):性行動 += 80

	LOCAL:3 = 500

	SELECTCASE ABL:(LOCAL:2):自慰
		CASE 0
			TIMES LOCAL:3, 1.00
		CASE 1
			TIMES LOCAL:3, 1.20
		CASE 2
			TIMES LOCAL:3, 1.50
		CASE 3
			TIMES LOCAL:3, 1.80
		CASE 4
			TIMES LOCAL:3, 2.00
		CASEELSE
			LOCAL:3 = LOCAL:3 * (420 + (ABL:(LOCAL:2):自慰 - 5)) / 200
	ENDSELECT

	SIF GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_自慰狂い)
		TIMES LOCAL:3, 2.0

	SOURCE:(LOCAL:2):快Ｐ += SENSE_HOUSHI_P(LOCAL:2, LOCAL:2, LOCAL:3 * 3 / 2)

NEXT

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

	SOURCE:(LOCAL:2):性行動 += 40
NEXT

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE335(ARG:0)

LOCALS:0 =
IF TFLAG:撮影中 == 1
	LOCALS:0 = 撮影
ELSEIF TFLAG:104 >= 2
	LOCALS:0 = 公開
ELSEIF TFLAG:デート場所 == 8
	LOCALS:0 = 野外
ENDIF

LOCALS:0 '= LOCALS:0 + "自慰"

RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%LOCALS:0%中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP335(ARG:0)
LOCAL:2 = 0
FOR LOCAL:0, 0, MEQUIP_PLAYER_NUM:(ARG:0)
	SIF HAS_VAGINA(MEQUIP_PLAYER:(ARG:0):(LOCAL:0))
		LOCAL:2 = 1
NEXT

PRINTFORM %EQUIP_PLAYER_ANAME(ARG:0)%は%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を自らの指で扱いている…

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

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

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

CALL COM_ORDER_ELEMENT(ARG:0, @"欲望Lv{ABL:(ARG:0):欲望}", ABL:(ARG:0):欲望 * 3)
CALL COM_ORDER_ELEMENT(ARG:0, @"露出Lv{ABL:(ARG:0):露出}", ABL:(ARG:0):露出 * 4)
CALL COM_ORDER_ELEMENT(ARG:0, @"自慰Lv{ABL:(ARG:0):自慰}", ABL:(ARG:0):自慰 * 4)

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

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

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -12)
ENDIF
IF TALENT:(ARG:0):恥薄い
	CALL COM_ORDER_ELEMENT(ARG:0, "恥薄い", 8)
ENDIF
IF TALENT:(ARG:0):自制心
	CALL COM_ORDER_ELEMENT(ARG:0, "自制心", -6)
ENDIF
IF TALENT:(ARG:0):目立ちたがり
	CALL COM_ORDER_ELEMENT(ARG:0, "目立ちたがり", 6)
ENDIF
IF TALENT:(ARG:0):自慰しやすい
	CALL COM_ORDER_ELEMENT(ARG:0, "自慰しやすい", 10)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -2)
ENDIF

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

SIF GETBIT(TALENT:(LOCAL:2):淫乱系, 素質_淫乱_自慰狂い)
	CALL COM_ORDER_ELEMENT(ARG:0, "自慰狂い", 20)

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE335
LOCALS:3 =

LOCALS:0 = 自身の指でペニスを擦り上げ

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

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

IF TFLAG:撮影中 == 1
	LOCALS:3 = カメラに見えるように、
ELSEIF TFLAG:104 >= 2
	LOCALS:3 = 皆の見ている前で、
ELSEIF TFLAG:デート場所 == 8
	LOCALS:3 = 誰に見られているとも知らない中で、
ELSE
	LOCALS:3 =
ENDIF

SELECTCASE GET_COM_INITIATIVE()
	;プレイヤーに主導権
	CASE 0
		PRINTFORMW %LOCALS:2%は%LOCALS:3%%LOCALS:1%に、オカズになってくれと頼んで自身の%BAR_NAME(MPLY:0)%をシゴいた…
	;ターゲットに主導権
	CASE 1
		PRINTFORML %LOCALS:1%は、オカズになってあげるからと%LOCALS:2%にオナニーするように言った
		PRINTFORMW %LOCALS:2%は言われるまま、%LOCALS:3%%LOCALS:1%の目の前で%LOCALS:0%た…
	;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:2%に対して、%LOCALS:1%の前でオナニーするように言った
		PRINTFORMW %LOCALS:2%は言われるまま、%LOCALS:3%%LOCALS:1%の目の前で見せつけるように%LOCALS:0%た…
ENDSELECT

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

	IF ((LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)) && !CFLAG:(LOCAL:1):TEXT_LAST非表示 && IS_INITIATIVE(LOCAL:1)
		IF ABL:(LOCAL:1):自慰 >= 5 || GETBIT(TALENT:(LOCAL:1):淫乱系, 素質_淫乱_自慰狂い)
			PRINTFORML %ANAME(LOCAL:1)%はすっかりオナニーに没頭し、激しく指を動かして自ら快感を貪っている
		ELSEIF ABL:(LOCAL:1):露出 >= 5
			PRINTFORML %ANAME(LOCAL:1)%は見られることで興奮しているのか、上気した顔で指を動かしている
		ELSEIF ABL:(LOCAL:1):自慰 >= 2
			;捕虜調教のメインターゲット
			IF FLAG:調教モード == 2 && FINDELEMENT(PRISONER_TARGET, MTAR:0) != -1
				PRINTFORML %ANAME(LOCAL:1)%は屈辱に顔を歪めながらも、自ら快感を求めて指を動かしてしまっている
			ELSE
				PRINTFORML %ANAME(LOCAL:1)%は恥ずかしそうにしているが、無意識に快感を求めるように指を動かしている
			ENDIF
		ELSE
			;捕虜調教のメインターゲット
			IF FLAG:調教モード == 2 && FINDELEMENT(PRISONER_TARGET, MTAR:0) != -1
				PRINTFORML %ANAME(LOCAL:1)%は屈辱に耐えながら、おぼつかない手付きで自分の体に指を這わせた
			ELSE
				PRINTFORML %ANAME(LOCAL:1)%は恥ずかしさのあまり目を逸らしながら、おぼつかない手付きで自分の体に指を這わせた
			ENDIF
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN335

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

;--------------------
;性嗜好用関数
;--------------------
@COM_PREFERENCE_PLAYER_335()
RETURN POWER(2, 性的嗜好_辱められたい) + POWER(2, 性的嗜好_露出したい)

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

@COM_STACK_SPERM_MPLY_TO_MPLY_335()
RETURN !RAND:3 ? 射精部位_手 # 射精部位_無駄

@COM_STACK_SPERM_MPLY_TO_MTAR_335()
RETURN IFRAND(@"{射精部位_無駄}", 1, @"{射精部位_顔}", RAND:100 < 50, @"{射精部位_髪}", RAND:100 < 50)


code:
;囁きかける

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME339
RESULTS:0 = Whisper
RESULTS:1 = Whisper
RESULTS:2 = Be whispered
RESULTS:3 = Be whispered

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

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE339
;共通部分
CALL COM_ABLE_COMMON(339)
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
VARI MEQUIP_IDX
;プレイヤーの口が塞がっているなら不可
IF IS_M_HOLD(MPLY:0)
	;耳舐めだけは口が塞がっていても可能扱いとする
	MEQUIP_IDX = SEARCH_EQUIP(28, MPLY:0, MTAR:0)
	IF !(MEQUIP_IDX != -1 && MEQUIP_OPTION:MEQUIP_IDX == 5)
		RETURN 0
	ENDIF
ENDIF
;プレイヤーが拘束中なら不可
SIF IS_BIND(MPLY:0)
	RETURN 0
;ターゲットが失神中・離脱中なら不可
SIF TCVAR:(MTAR:0):失神フラグ || TCVAR:(MTAR:0):離脱フラグ
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM339
#DIM DYNAMIC CHARA_ID
;実行判定
CALL COM_ORDER_COMMON
SIF RESULT == 0
	RETURN 0

;●プレイヤーについて処理
CHARA_ID = MPLY:0
DOWNBASE:CHARA_ID:体力 += 100
;ソース処理
SOURCE:CHARA_ID:奉仕 = SERVE_HOUSHI(CHARA_ID, 100)
CALL ADD_SOURCE_KANRAKU(CHARA_ID, 50)
CALL ADD_SOURCE_AIZYOU(CHARA_ID, 50)
;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(CHARA_ID, 100, 20)

;●ターゲットについて処理
CHARA_ID = MTAR:0
DOWNBASE:CHARA_ID:体力 += 60
;ソース処理
SOURCE:CHARA_ID:奉仕 = SERVE_HOUSHI(CHARA_ID, 100)
CALL ADD_SOURCE_KANRAKU(CHARA_ID, 50)
CALL ADD_SOURCE_AIZYOU(CHARA_ID, 50)
;主導権に応じた優越・屈従のソース追加
CALL ADD_SOURCE_INITIATIVE_U(CHARA_ID, 100, 20)

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

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

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

RETURN 1

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

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

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

IF IS_SAMESEX(MPLY:0, ARG:0)
	CALL COM_ORDER_ELEMENT(ARG:0, "同性", 50)
ELSE
	IF TALENT:(ARG:0):一線越えない
		CALL COM_ORDER_ELEMENT(ARG:0, "一線越えない", -15)
	ENDIF
ENDIF

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

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

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

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

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

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

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

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

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

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE339
PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の耳元で言葉を紡いだ…

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST339
#DIM  DYNAMIC 快感合計
#DIM  DYNAMIC 不快感情
#DIM  DYNAMIC PLY
#DIM  DYNAMIC TGT
#DIMS DYNAMIC 実行名
#DIMS DYNAMIC 対象名
#DIMS DYNAMIC STRS

PLY = MPLY
TGT = MTAR

実行名 = %ANAME(PLY)%
対象名 = %ANAME(TGT)%

IF MPLY == MASTER
	快感合計 = CUP:TGT:快Ｃ + CUP:TGT:快Ｂ + CUP:TGT:快Ｍ + CUP:TGT:快Ｖ
ELSE
	快感合計 = CUP:TGT:快Ｃ + CUP:TGT:快Ｂ + CUP:TGT:快Ｍ + CUP:TGT:快Ｖ
ENDIF

IF PLY == MASTER
	SELECTCASE TOSTR_EMOTION(TGT)
		CASE "幸", "悦", "良"
			{
				STRS = %S_R(
					@"耳元で紡がれる%実行名%の言葉に%対象名%は表情を綻ばせている" , 1
					,@"正面から抱かれながら耳元で紡がれる%実行名%の言葉に、%対象名%は表情とろんと弛緩させている" , IS_SEXPOS_FRONT(PLY, TGT)
					,@"背面から犯されながら耳元で紡がれる%実行名%の言葉に、%対象名%は表情をとろんと弛緩させている" , IS_SEXPOS_BACK(PLY, TGT)
					)%
			}
		CASE "恨", "怒", "憤"
			STRS '= @"%対象名%は%実行名% frowns without listening to the words"
		CASE "鬱", "悲", "憂"
			STRS '= @"%対象名%は%実行名% look away from your eyes and don't listen to words. "
		CASE "狂", "恐", "怯"
			STRS '= @"精神的に著しく不安定になっている%対象名%に%実行名%の言葉は届かないようだ"
		CASEELSE
	ENDSELECT
ELSE
	SELECTCASE TOSTR_EMOTION(PLY)
		CASE "幸", "悦", "良"
			{
				STRS = %S_R(
					@"正面から深々と抽挿を受ける度に%実行名%は%S_R("艶やかな声色/熱い吐息/嬌声")%の混じった言葉を、%対象名%の耳元に投げかけている" , IS_SEXPOS_FRONT(TGT, PLY)
					)%
			}
		CASE "恨", "怒", "憤"
		CASE "鬱", "悲", "憂"
		CASE "狂", "恐", "怯"
		CASEELSE
	ENDSELECT
ENDIF

IF STRS != ""
	PRINTFORML %STRS%
ENDIF

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


code:
;背面座位

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME33
IF IS_INSERT_SINGLE(MTAR:0, "Ａ") && GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ａ"), 30) && IS_INSERT_MUTUAL(MPLY:0, MTAR:0) != 2
	LOCALS:0 = 二穴背面座位
ELSE
	LOCALS:0 = 背面座位
ENDIF
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_ABLE33
;共通部分
CALL COM_ABLE_COMMON(33)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;対象にＶが必要
SIF !HAS_VAGINA(MTAR:0, 1)
	RETURN 0
SIF IS_V_HOLD(MTAR:0)
	RETURN 0
;being fucked in the ass
SIF IS_INSERT_SINGLE(MTAR:0, "Ａ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ａ"), 30)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 33)
	RETURN 0
SIF REACHING_BODY(MTAR, MPLY)
	RETURN 0
SIF REACHING_GROIN(MTAR, MPLY)
	RETURN 0
SIF LICKING_BODY(MTAR, MPLY) || LICKING_BODY(MPLY, MTAR)
	RETURN 0
RETURN 1

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

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

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

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

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

SOURCE:(MPLY:0):快Ｐ = SENSE_SEX_PLAYER_P(MTAR:0, MPLY:0, 900)
SOURCE:(MPLY:0):性行動 = 450

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

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

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

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

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

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

SOURCE:(MTAR:0):快Ｃ = SENSE_SEX_TARGET(MPLY:0, MTAR:0, 500)
SOURCE:(MTAR:0):快Ｂ = SENSE_SEX_TARGET(MPLY:0, MTAR:0, 500)
SOURCE:(MTAR:0):快Ｖ = SENSE_SEX_TARGET(MPLY:0, MTAR:0, 900)
SOURCE:(MTAR:0):性行動 = 450

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

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

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

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

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

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

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

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

RETURN 1

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

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

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

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

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

SOURCE:(LOCAL:2):快Ｐ += SENSE_SEX_PLAYER_P(LOCAL:3, LOCAL:2, 450)
SOURCE:(LOCAL:2):性行動 += 150

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

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

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

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

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

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

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

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

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

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

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

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP33(ARG:0)
SELECTCASE RAND:2
	CASE 0
		PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%の膣が%EQUIP_PLAYER_ANAME(ARG:0)%の%BAR_NAME(MEQUIP_PLAYER:(ARG:0):0)%を咥え込んでいる…
	CASE 1
		LOCAL:0 = MEQUIP_TARGET:(ARG:0):0
			;ターゲットが行動不能
		IF !IS_PLAYABLE(LOCAL:0)
			PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は意識を失った%EQUIP_TARGET_ANAME(ARG:0)%の膣を下から突き上げている…
		ELSE
			SELECTCASE GET_COM_INITIATIVE()
					;プレイヤーに主導権
				CASE 0
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は背後から%EQUIP_TARGET_ANAME(ARG:0)%の体を愛撫しつつ、激しく腰を突き入れている…
					;ターゲットに主導権
				CASE 1
					PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%は%EQUIP_PLAYER_ANAME(ARG:0)%の愛撫に身を任せながら、自らも快感を貪るように腰を動かしている…
					;第三者に主導権
				CASEELSE
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%EQUIP_TARGET_ANAME(ARG:0)%に背面座位で挿入している%EQUIP_PLAYER_ANAME(ARG:0)%に対し、もっと%EQUIP_TARGET_ANAME(ARG:0)%を責めるように命令し
					PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%への愛撫を激しくしながら、腰を突き上げて%EQUIP_TARGET_ANAME(ARG:0)%の膣壁を擦り上げている…
			ENDSELECT
		ENDIF
ENDSELECT

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

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE33
IF IS_PIERCED(MTAR:0, ピアス_ラビア)
	LOCALS:0 = ピアスの取り付けられた
ELSE
	LOCALS:0 =
ENDIF
IF TALENT:(MTAR:0):処女 == 1
	LOCALS:0 = まだ乙女の
ELSEIF PALAM:(MTAR:0):潤滑 >= PALAMLV:7
	LOCALS:0 = 濡れそぼった
ELSE
	LOCALS:0 =
ENDIF
IF IS_OVULATION(MTAR:0)
	LOCALS:0 = %LOCALS:0%危険日の
ENDIF

IF TALENT:(MTAR:0):体格 == 体格_小柄
	LOCALS:0 = %LOCALS:0%幼いワレメ
ELSE
	LOCALS:0 = %LOCALS:0%秘裂
ENDIF

;ペニスバンド装着中
IF IS_EQUIP_PLAYER(MPLY:0, 50)
	;既に挿入済みの場合
	IF TFLAG:17
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				;前回が背面座位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MPLY:0)%は背後から%ANAME(MTAR:0)%の体を愛撫しつつ、さらに激しく腰を突き入れ%TARGET_STR("た", "てきた")%…
				;後背位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%の体を抱き上げると、背後から%ANAME(MTAR:0)%を抱き締めて再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を後ろ向きにすると、背後から%ANAME(MTAR:0)%を抱き上げて再び腰を動かし始めた…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が背面座位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の愛撫に身を任せながら、自らも快感を貪るように腰を動かし%PLAYER_STR("た", "てきた")%…
				;後背位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に背中を預けて後ろから抱き締めさせると、背面座位の体勢で腰を振らせた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま体をひねって%ANAME(MPLY:0)%に背中を向けると、後ろから抱き締めさせて腰を振らせた…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が背面座位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に背面座位で挿入している%ANAME(MPLY:0)%に対し、もっと%ANAME(MTAR:0)%を責めるように命令した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%への愛撫を激しくしながら、再び腰を突き上げて%ANAME(MTAR:0)%の膣壁を擦り上げた…
				;後背位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を背面座位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%の体を抱き上げると、背後から%ANAME(MTAR:0)%を抱き締めて再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を背面座位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を後ろ向きにすると、背後から%ANAME(MTAR:0)%を抱き上げて再び腰を動かし始めた…
				ENDIF
		ENDSELECT

	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の身体を背後から抱き上げると、%LOCALS:0%を装着した張り型で貫き、愛撫しながら腰を突き上げ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に背中を預けて後ろから抱き締めさせると、背後から%LOCALS:0%に張り型を挿入させて腰を突き上げさせた…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、背面座位で%ANAME(MTAR:0)%を犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の身体を背後から抱き上げると、%LOCALS:0%を装着した張り型で貫き愛撫しながら腰を突き上げた…
		ENDSELECT
	ENDIF

;ペニスバンド不使用
ELSE
	;既に挿入済みの場合
	IF TFLAG:17
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				;前回が背面座位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MPLY:0)%は背後から%ANAME(MTAR:0)%の体を愛撫しつつ、さらに激しく腰を突き入れ%TARGET_STR("た", "てきた")%…
				;後背位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%の体を抱き上げると、背後から%ANAME(MTAR:0)%を抱き締めて再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を後ろ向きにすると、背後から%ANAME(MTAR:0)%を抱き上げて再び腰を動かし始めた…
				ENDIF
			;ターゲットに主導権
			CASE 1
				;前回が背面座位
				IF TFLAG:17 == 1
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の愛撫に身を任せながら、お返しするかのように腰をグリグリとひねってペニスを締め付け%PLAYER_STR("た", "てきた")%…
				;後背位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に背中を預けて後ろから抱き締めさせると、背面座位の体勢で腰を振らせた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORMW %ANAME(MTAR:0)%は挿入したまま体をひねって%ANAME(MPLY:0)%に背中を向けると、後ろから抱き締めさせて腰を振らせた…
				ENDIF
			;第三者に主導権
			CASEELSE
				;前回が背面座位
				IF TFLAG:17 == 1
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に背面座位で挿入している%ANAME(MPLY:0)%に対し、もっと%ANAME(MTAR:0)%を責めるように命令した
					PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%への愛撫を激しくしながら、再び腰を突き上げて%ANAME(MTAR:0)%の膣壁を擦り上げた…
				;後背位・背面騎乗位
				ELSEIF TFLAG:17 == 2
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を背面座位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%の体を抱き上げると、背後から%ANAME(MTAR:0)%を抱き締めて再び腰を動かし始めた…
				;正常位・対面座位・騎乗位
				ELSEIF TFLAG:17 == 3
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対し、体位を背面座位に変えて再び腰を動かすように命令した
					PRINTFORMW %ANAME(MPLY:0)%は挿入したまま%ANAME(MTAR:0)%を後ろ向きにすると、背後から%ANAME(MTAR:0)%を抱き上げて再び腰を動かし始めた…
				ENDIF
		ENDSELECT

	ELSE
		SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
			CASE 0
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の身体を背後から抱き上げると、%LOCALS:0%を貫いて愛撫しながら腰を突き上げ%TARGET_STR("た", "てきた")%…
			;ターゲットに主導権
			CASE 1
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%に背中を預けて後ろから抱き締めさせると、背後から%LOCALS:0%に挿入させて腰を突き上げさせた…
			;第三者に主導権
			CASEELSE
				PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に、背面座位で%ANAME(MTAR:0)%を犯すように命令した
				PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の身体を背後から抱き上げると、%LOCALS:0%を貫いて愛撫しながら腰を突き上げた…
		ENDSELECT
	ENDIF
ENDIF

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

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

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

@COM_AVAILABLE_WHEN33
RETURN コマンド_ウフフ

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

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

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


code:
;バードキス

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME340
RESULTS:0 = バードキスする
RESULTS:1 = バードキスをねだられる
RESULTS:2 = バードキスさせる
RESULTS:3 = バードキスされる

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE340
;共通部分
CALL COM_ABLE_COMMON(340)
SIF RESULT == 0
	RETURN 0
;主人公以外が実行する場合、好感度が800以上必要
SIF MPLY:0 != MASTER && CFLAG:(MPLY:0):好感度 < 800
	RETURN 0
;怪我なら不可
SIF CFLAG:(MTAR:0):行動不能状態 == 3
	RETURN 0
;ディープキス中は不可
SIF IS_EQUIP(MPLY:0, 342)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM340
;実行判定
CALL COM_ORDER_COMMON
IF RESULT == 0
	RETURN 0
ENDIF

IF MPLY:0 == MASTER
	;コマンドの成否をTFLAG:コマンド成否にセット
	CALL JUDGE_COM_RESULT(MTAR:0, 5, 10)
	LOCAL:1 = MTAR:0
ELSE
	;コマンドの成否をTFLAG:コマンド成否にセット
	CALL JUDGE_COM_RESULT(MPLY:0, 5, 10)
	LOCAL:1 = MPLY:0
ENDIF

;●プレイヤー側の処理
;固定で獲得するソース
SOURCE:(MPLY:0):歓楽 = -25
SOURCE:(MPLY:0):接触 = 100
SOURCE:(MPLY:0):愛情 = -42

;親密に応じた歓楽のソース追加
CALL ADD_SOURCE_KANRAKU(MPLY:0, 50)
SOURCE:(MPLY:0):歓楽 = MAX(SOURCE:(MPLY:0):歓楽, 0)

;親密に応じた愛情のソース追加
CALL ADD_SOURCE_AIZYOU(MPLY:0, 140)
SOURCE:(MPLY:0):愛情 = MAX(SOURCE:(MPLY:0):愛情, 0)

SOURCE:(MPLY:0):快Ｍ = SENSE_HOUSHI(MTAR:0, MPLY:0, 50)
SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 50)

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

;●ターゲット側の処理
;固定で獲得するソース
SOURCE:(MTAR:0):歓楽 = -25
SOURCE:(MTAR:0):接触 = 100
SOURCE:(MTAR:0):愛情 = -42

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

;親密に応じた愛情のソース追加
CALL ADD_SOURCE_AIZYOU(MTAR:0, 140)
SOURCE:(MTAR:0):愛情 = MAX(SOURCE:(MTAR:0):愛情, 0)

SOURCE:(MTAR:0):快Ｍ = SENSE_HOUSHI(MPLY:0, MTAR:0, 50)
SOURCE:(MTAR:0):奉仕 = SERVE_HOUSHI(MTAR:0, 50)

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

IF CFLAG:(MTAR:0):好感度 < 300
	SOURCE:(MTAR:0):反感 = 300
ELSEIF CFLAG:(MTAR:0):好感度 < 500
	SOURCE:(MTAR:0):反感 = 150
ELSEIF CFLAG:(MTAR:0):好感度 < 800
	SOURCE:(MTAR:0):反感 = 20
ENDIF

IF TALENT:(MTAR:0):キス未経験
	TIMES SOURCE:(MTAR:0):反感, 2.00
	IF TALENT:(MTAR:0):貞操観念
		TIMES SOURCE:(MTAR:0):反感, 3.00
	ENDIF
ENDIF

;●共通処理
IF TFLAG:コマンド成否 == -1
	TIMES SOURCE:(MPLY:0):歓楽, 0.20
	TIMES SOURCE:(MPLY:0):愛情, 0.20
	TIMES SOURCE:(MPLY:0):快Ｍ, 0.20
	TIMES SOURCE:(MTAR:0):歓楽, 0.20
	TIMES SOURCE:(MTAR:0):愛情, 0.20
	TIMES SOURCE:(MTAR:0):快Ｍ, 0.20
	SOURCE:(MPLY:0):不満 += 500
	SOURCE:(MTAR:0):不満 += 500
	TFLAG:ムード -= 5
ELSEIF TFLAG:コマンド成否 == 0

ELSE
	TIMES SOURCE:(MPLY:0):歓楽, 2.00
	TIMES SOURCE:(MPLY:0):愛情, 2.00
	TIMES SOURCE:(MPLY:0):快Ｍ, 2.00
	TIMES SOURCE:(MTAR:0):歓楽, 2.00
	TIMES SOURCE:(MTAR:0):愛情, 2.00
	TIMES SOURCE:(MTAR:0):快Ｍ, 2.00
	TFLAG:ムード += 5
ENDIF

EXP:(MPLY:0):キス経験 += 1
EXP:(MTAR:0):キス経験 += 1

CALL KISS_COMMON(MPLY:0, @"%ANAME(MTAR:0)%の唇", GET_SITUATION_BY_TRAIN_MODE(), MPLY:0 != MASTER)
CALL KISS_COMMON(MTAR:0, @"%ANAME(MPLY:0)%の唇", GET_SITUATION_BY_TRAIN_MODE(), MTAR:0 != MASTER)

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

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

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

RETURN 1

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

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

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

;好感度
IF CFLAG:(ARG:0):好感度 < 500
	IF CFLAG:(ARG:0):好感度 < 100
		LOCAL:0 = -40
	ELSEIF CFLAG:(ARG:0):好感度 < 200
		LOCAL:0 = -20
	ELSEIF CFLAG:(ARG:0):好感度 < 400
		LOCAL:0 = -10
	ELSE
		LOCAL:0 = -5
	ENDIF
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度不足", LOCAL:0)
ELSE
	LOCAL:0 = CFLAG:(ARG:0):好感度 / 75
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度", LOCAL:0)
ENDIF

IF TALENT:(ARG:0):キス未経験
	CALL COM_ORDER_ELEMENT(ARG:0, "キス未経験", -7)
ENDIF
IF TALENT:(ARG:0):貞操観念
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操観念", -6)
ENDIF
IF TALENT:(ARG:0):貞操無頓着
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操無頓着", 3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -3)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 5)
ENDIF
IF TFLAG:デート場所
	CALL COM_ORDER_ELEMENT(ARG:0, "デート中", 6)
ENDIF
RETURN 1

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

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

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

;好感度
IF CFLAG:(ARG:0):好感度 < 500
	IF CFLAG:(ARG:0):好感度 < 100
		LOCAL:0 = -40
	ELSEIF CFLAG:(ARG:0):好感度 < 200
		LOCAL:0 = -20
	ELSEIF CFLAG:(ARG:0):好感度 < 400
		LOCAL:0 = -10
	ELSE
		LOCAL:0 = -5
	ENDIF
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度不足", LOCAL:0)
ELSE
	LOCAL:0 = CFLAG:(ARG:0):好感度 / 75
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度", LOCAL:0)
ENDIF

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

IF TALENT:(ARG:0):キス未経験
	CALL COM_ORDER_ELEMENT(ARG:0, "キス未経験", -7)
ENDIF
IF TALENT:(ARG:0):貞操観念
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操観念", -6)
ENDIF
IF TALENT:(ARG:0):貞操無頓着
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操無頓着", 3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -3)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 5)
ENDIF
IF TFLAG:デート場所
	CALL COM_ORDER_ELEMENT(ARG:0, "デート中", 6)
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE340
;プレイヤーが主人公側
IF MPLY:0 == MASTER
	;主導権が主人公側
	IF IS_INITIATIVE(MASTER)
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に軽く口付けた
	;主導権が相手側
	ELSE
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に促されるまま、そっと口付けた
	ENDIF

	IF TFLAG:コマンド成否 == 1
		PRINTFORML %ANAME(MTAR:0)%は少し照れつつも嬉しそうに微笑んだ…
	ELSEIF TFLAG:コマンド成否 == 0
		PRINTFORML %ANAME(MTAR:0)%は顔を赤くしながら、照れくさそうに笑った…
	ELSEIF TFLAG:コマンド成否 == -1
		PRINTFORML が、誤って額をぶつけてしまった…
	ENDIF
;プレイヤーが相手側
ELSE
	;主導権が主人公側
	IF IS_INITIATIVE(MASTER)
		PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%にお願いして、軽いキスをしてもらった
	;主導権が相手側
	ELSE
		PRINTFORMW %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に顔を寄せると、軽く口付けた
	ENDIF

	IF TFLAG:コマンド成否 == 1
		PRINTFORML %ANAME(MPLY:0)%は一度では満足せず、二度三度と%ANAME(MTAR:0)%の唇を奪った…
	ELSEIF TFLAG:コマンド成否 == 0
		PRINTFORML %ANAME(MPLY:0)%は照れながら、%ANAME(MTAR:0)%の反応を伺った…
	ELSEIF TFLAG:コマンド成否 == -1
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の反応が物足りないのか、少し不機嫌そうだ…
	ENDIF
ENDIF

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

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

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

@COM_AVAILABLE_WHEN340
RETURN コマンド_日常


code:
;ソフトキス

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME341
RESULTS:0 = Soft kiss
RESULTS:1 = I want to be a soft kiss
RESULTS:2 = Soft kiss
RESULTS:3 = Soft kiss

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE341
;共通部分
CALL COM_ABLE_COMMON(341)
SIF RESULT == 0
	RETURN 0
;プレイヤーとターゲットがそれぞれ1人
SIF MPLY_NUM != 1 || MTAR_NUM != 1
	RETURN 0
;主人公以外が実行する場合、好感度が800以上必要
SIF MPLY:0 != MASTER && CFLAG:(MPLY:0):好感度 < 800
	RETURN 0
;怪我なら不可
SIF CFLAG:(MTAR:0):行動不能状態 == 3
	RETURN 0
;ディープキス中は不可
IF IS_EQUIP(MPLY:0, 342) && FLAG:調教モード != 調教_居住区
	RETURN 0
	;居住区モードでは口が塞がっている場合不可
ELSEIF IS_M_HOLD(MPLY:0) && FLAG:調教モード == 調教_居住区
	RETURN 0
ENDIF
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM341
;実行判定
CALL COM_ORDER_COMMON
IF RESULT == 0
	RETURN 0
ENDIF

IF MPLY:0 == MASTER
	;コマンドの成否をTFLAG:コマンド成否にセット
	CALL JUDGE_COM_RESULT(MTAR:0, 5, 10)
	LOCAL:1 = MTAR:0
ELSE
	;コマンドの成否をTFLAG:コマンド成否にセット
	CALL JUDGE_COM_RESULT(MPLY:0, 5, 10)
	LOCAL:1 = MPLY:0
ENDIF

;●プレイヤー側の処理
;固定で獲得するソース
SOURCE:(MPLY:0):歓楽 = -25
SOURCE:(MPLY:0):接触 = 150
SOURCE:(MPLY:0):愛情 = -48

;親密に応じた歓楽のソース追加
CALL ADD_SOURCE_KANRAKU(MPLY:0, 50)
SOURCE:(MPLY:0):歓楽 = MAX(SOURCE:(MPLY:0):歓楽, 0)

;親密に応じた愛情のソース追加
CALL ADD_SOURCE_AIZYOU(MPLY:0, 160)
SOURCE:(MPLY:0):愛情 = MAX(SOURCE:(MPLY:0):愛情, 0)

SOURCE:(MPLY:0):快Ｍ = SENSE_HOUSHI(MTAR:0, MPLY:0, 100)
SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 80)

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

;●ターゲット側の処理
;固定で獲得するソース
SOURCE:(MTAR:0):歓楽 = -25
SOURCE:(MTAR:0):接触 = 150
SOURCE:(MTAR:0):愛情 = -48

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

;親密に応じた愛情のソース追加
CALL ADD_SOURCE_AIZYOU(MTAR:0, 160)
SOURCE:(MTAR:0):愛情 = MAX(SOURCE:(MTAR:0):愛情, 0)

SOURCE:(MTAR:0):快Ｍ = SENSE_HOUSHI(MPLY:0, MTAR:0, 100)
SOURCE:(MTAR:0):奉仕 = SERVE_HOUSHI(MTAR:0, 80)

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

IF CFLAG:(MTAR:0):好感度 < 300
	SOURCE:(MTAR:0):反感 = 400
ELSEIF CFLAG:(MTAR:0):好感度 < 500
	SOURCE:(MTAR:0):反感 = 200
ELSEIF CFLAG:(MTAR:0):好感度 < 800
	SOURCE:(MTAR:0):反感 = 30
ENDIF

IF TALENT:(MTAR:0):キス未経験
	TIMES SOURCE:(MTAR:0):反感, 2.00
	IF TALENT:(MTAR:0):貞操観念
		TIMES SOURCE:(MTAR:0):反感, 3.00
	ENDIF
ENDIF

;●共通処理
IF TFLAG:コマンド成否 == -1
	TIMES SOURCE:(MPLY:0):歓楽, 0.20
	TIMES SOURCE:(MPLY:0):愛情, 0.20
	TIMES SOURCE:(MPLY:0):快Ｍ, 0.20
	TIMES SOURCE:(MTAR:0):歓楽, 0.20
	TIMES SOURCE:(MTAR:0):愛情, 0.20
	TIMES SOURCE:(MTAR:0):快Ｍ, 0.20
	SOURCE:(MPLY:0):不満 += 500
	SOURCE:(MTAR:0):不満 += 500
	TFLAG:ムード -= 5
	TCVAR:(MTAR:0):HOムード値 -= 5
ELSEIF TFLAG:コマンド成否 == 0

ELSE
	TIMES SOURCE:(MPLY:0):歓楽, 2.00
	TIMES SOURCE:(MPLY:0):愛情, 2.00
	TIMES SOURCE:(MPLY:0):快Ｍ, 2.00
	TIMES SOURCE:(MTAR:0):歓楽, 2.00
	TIMES SOURCE:(MTAR:0):愛情, 2.00
	TIMES SOURCE:(MTAR:0):快Ｍ, 2.00
	TFLAG:ムード += 5
	TCVAR:(MTAR:0):HOムード値 += 5
ENDIF

EXP:(MPLY:0):キス経験 += 1
EXP:(MTAR:0):キス経験 += 1
CALL KISS_COMMON(MPLY:0, @"%ANAME(MTAR:0)%の唇", GET_SITUATION_BY_TRAIN_MODE(), MPLY:0 != MASTER)
CALL KISS_COMMON(MTAR:0, @"%ANAME(MPLY:0)%の唇", GET_SITUATION_BY_TRAIN_MODE(), MTAR:0 != MASTER)
;主導度変化基準値
TFLAG:主導度変化基準値 = 3

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

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

RETURN 1

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

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

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

;好感度
IF CFLAG:(ARG:0):好感度 < 500
	IF CFLAG:(ARG:0):好感度 < 100
		LOCAL:0 = -40
	ELSEIF CFLAG:(ARG:0):好感度 < 200
		LOCAL:0 = -20
	ELSEIF CFLAG:(ARG:0):好感度 < 400
		LOCAL:0 = -10
	ELSE
		LOCAL:0 = -5
	ENDIF
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度不足", LOCAL:0)
ELSE
	LOCAL:0 = CFLAG:(ARG:0):好感度 / 75
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度", LOCAL:0)
ENDIF

IF TALENT:(ARG:0):キス未経験
	CALL COM_ORDER_ELEMENT(ARG:0, "キス未経験", -7)
ENDIF
IF TALENT:(ARG:0):貞操観念
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操観念", -6)
ENDIF
IF TALENT:(ARG:0):貞操無頓着
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操無頓着", 3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -3)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 5)
ENDIF
IF TFLAG:デート場所
	CALL COM_ORDER_ELEMENT(ARG:0, "デート中", 6)
ENDIF
RETURN 1

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

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

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

;好感度
IF CFLAG:(ARG:0):好感度 < 500
	IF CFLAG:(ARG:0):好感度 < 100
		LOCAL:0 = -40
	ELSEIF CFLAG:(ARG:0):好感度 < 200
		LOCAL:0 = -20
	ELSEIF CFLAG:(ARG:0):好感度 < 400
		LOCAL:0 = -10
	ELSE
		LOCAL:0 = -5
	ENDIF
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度不足", LOCAL:0)
ELSE
	LOCAL:0 = CFLAG:(ARG:0):好感度 / 75
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度", LOCAL:0)
ENDIF

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

IF TALENT:(ARG:0):キス未経験
	CALL COM_ORDER_ELEMENT(ARG:0, "キス未経験", -7)
ENDIF
IF TALENT:(ARG:0):貞操観念
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操観念", -6)
ENDIF
IF TALENT:(ARG:0):貞操無頓着
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操無頓着", 3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -3)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 5)
ENDIF
IF TFLAG:デート場所
	CALL COM_ORDER_ELEMENT(ARG:0, "デート中", 6)
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE341
#DIMS DYNAMIC 実行名
#DIMS DYNAMIC 対象名
#DIMS DYNAMIC 修飾

実行名 = %ANAME(MPLY:0)%
対象名 = %ANAME(MTAR:0)%

;プレイヤーが主人公側
IF MPLY:0 == MASTER
	;主導権が主人公側
	IF IS_INITIATIVE(MASTER)
		IF BODYSIZE_DIFF(MPLY, MTAR) < 0
			修飾 '= "身を屈めて"
		ELSEIF BODYSIZE_DIFF(MPLY, MTAR) > 0 && !C_COND("設備属性:椅子",,MPLY)
			修飾 '= "つま先で立って"
		ENDIF
		PRINTFORMW %実行名%は%修飾%%対象名%の唇を自らの唇で塞いだ
		;主導権が相手側
	ELSE
		PRINTFORMW %実行名%は%対象名%の求めに応じて、少し長めのキスをした
	ENDIF

	IF TFLAG:コマンド成否 == 1
		PRINTFORML %対象名%はうっとりとした瞳でじっと%実行名%を見つめた…
	ELSEIF TFLAG:コマンド成否 == 0
		PRINTFORML %実行名%が唇を離すと、%対象名%は少し名残惜しそうな表情をした…
	ELSEIF TFLAG:コマンド成否 == -1
		PRINTFORM 少し強引すぎたのか、%対象名%
		IF TALENT:(MTAR:0):恥じらい || TALENT:(MTAR:0):臆病 || TALENT:(MTAR:0):大人しい
			PRINTFORML は顔を俯けてしまった…
		ELSE
			PRINTFORML に怒られてしまった…
		ENDIF
	ENDIF
	;プレイヤーが相手側
ELSE
	;主導権が主人公側
	IF IS_INITIATIVE(MASTER)
		PRINTFORMW %対象名%は%実行名%にお願いして、少し長めのキスをしてもらった
		;主導権が相手側
	ELSE
		IF BODYSIZE_DIFF(MPLY, MTAR) < 0
			PRINTFORMW %実行名%は身を屈めて%対象名%の顔を引き寄せ、抱き締めながら口付けた
		ELSEIF BODYSIZE_DIFF(MPLY, MTAR) > 0 && !C_COND("設備属性:椅子",,MPLY)
			PRINTFORMW %実行名%はつま先で立ち上がって%対象名%に顔を寄せ、唇を重ねた
		ELSE
			PRINTFORMW %実行名%は%対象名%の顔を引き寄せ、抱き締めながら口付けた
		ENDIF
	ENDIF

	IF TFLAG:コマンド成否 == 1
		PRINTFORML %実行名%は%対象名%をぎゅっと抱き締め、いつもより長くキスし続けた…
	ELSEIF TFLAG:コマンド成否 == 0
		PRINTFORML %実行名%は少し照れながら%対象名%の顔を見つめた…
	ELSEIF TFLAG:コマンド成否 == -1
		PRINTFORML %実行名%は%対象名%の反応が物足りないのか、少し不機嫌そうだ…
	ENDIF
ENDIF

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

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

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

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


code:
;ディープキス

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME342
RESULTS:0 = ディープキスする
RESULTS:1 = ディープキスをねだられる
RESULTS:2 = ディープキスさせる
RESULTS:3 = ディープキスされる

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE342
;共通部分
CALL COM_ABLE_COMMON(342)
SIF RESULT == 0
	RETURN 0
;主人公以外が実行する場合、好感度が800以上必要
SIF MPLY:0 != MASTER && CFLAG:(MPLY:0):好感度 < 800
	RETURN 0
;怪我なら不可
SIF CFLAG:(MTAR:0):行動不能状態 == 3
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM342
;実行判定
CALL COM_ORDER_COMMON
IF RESULT == 0
	RETURN 0
ENDIF

IF MPLY:0 == MASTER
	;コマンドの成否をTFLAG:コマンド成否にセット
	CALL JUDGE_COM_RESULT(MTAR:0, 5, 10)
	LOCAL:1 = MTAR:0
ELSE
	;コマンドの成否をTFLAG:コマンド成否にセット
	CALL JUDGE_COM_RESULT(MPLY:0, 5, 10)
	LOCAL:1 = MPLY:0
ENDIF

;●プレイヤー側の処理
;固定で獲得するソース
SOURCE:(MPLY:0):歓楽 = -25
SOURCE:(MPLY:0):接触 = 200
SOURCE:(MPLY:0):愛情 = -54
SOURCE:(MPLY:0):性行動 = 90

;親密に応じた歓楽のソース追加
CALL ADD_SOURCE_KANRAKU(MPLY:0, 50)
SOURCE:(MPLY:0):歓楽 = MAX(SOURCE:(MPLY:0):歓楽, 0)

;親密に応じた愛情のソース追加
CALL ADD_SOURCE_AIZYOU(MPLY:0, 180)
SOURCE:(MPLY:0):愛情 = MAX(SOURCE:(MPLY:0):愛情, 0)

SOURCE:(MPLY:0):快Ｍ = SENSE_HOUSHI(MTAR:0, MPLY:0, 300)
SOURCE:(MPLY:0):奉仕 = SERVE_HOUSHI(MPLY:0, 120)

IF TALENT:(MTAR:0):舌使い
	TIMES SOURCE:(MPLY:0):快Ｍ, 2.00
	TIMES SOURCE:(MPLY:0):愛情, 1.20
ENDIF

IF MPLY:0 != MASTER && !TALENT:(MPLY:0):恋人
	SOURCE:(MPLY:0):逸脱 = 200
	IF TALENT:(MPLY:0):キス未経験
		SOURCE:(MPLY:0):逸脱 += 800
	ENDIF
ENDIF

IF MPLY:0 != MASTER
	IF CFLAG:(MPLY:0):好感度 < 300
		SOURCE:(MPLY:0):反感 = 500
	ELSEIF CFLAG:(MPLY:0):好感度 < 500
		SOURCE:(MPLY:0):反感 = 300
	ELSEIF CFLAG:(MPLY:0):好感度 < 800
		SOURCE:(MPLY:0):反感 = 50
	ENDIF
ENDIF

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

;●ターゲット側の処理
;固定で獲得するソース
SOURCE:(MTAR:0):歓楽 = -25
SOURCE:(MTAR:0):接触 = 200
SOURCE:(MTAR:0):愛情 = -54
SOURCE:(MTAR:0):性行動 = 90

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

;親密に応じた愛情のソース追加
CALL ADD_SOURCE_AIZYOU(MTAR:0, 180)
SOURCE:(MTAR:0):愛情 = MAX(SOURCE:(MTAR:0):愛情, 0)

SOURCE:(MTAR:0):快Ｍ = SENSE_HOUSHI(MPLY:0, MTAR:0, 300)
SOURCE:(MTAR:0):奉仕 = SERVE_HOUSHI(MTAR:0, 120)

IF TALENT:(MPLY:0):舌使い
	TIMES SOURCE:(MTAR:0):快Ｍ, 2.00
	TIMES SOURCE:(MTAR:0):愛情, 1.20
ENDIF

IF MTAR:0 != MASTER && !TALENT:(MTAR:0):恋人
	SOURCE:(MTAR:0):逸脱 = 200
	IF TALENT:(MTAR:0):キス未経験
		SOURCE:(MTAR:0):逸脱 += 800
	ENDIF
ENDIF

IF MTAR:0 != MASTER
	IF CFLAG:(MTAR:0):好感度 < 300
		SOURCE:(MTAR:0):反感 = 500
	ELSEIF CFLAG:(MTAR:0):好感度 < 500
		SOURCE:(MTAR:0):反感 = 300
	ELSEIF CFLAG:(MTAR:0):好感度 < 800
		SOURCE:(MTAR:0):反感 = 50
	ENDIF
ENDIF

IF TALENT:(MTAR:0):キス未経験
	TIMES SOURCE:(MTAR:0):反感, 2.00
	IF TALENT:(MTAR:0):貞操観念
		TIMES SOURCE:(MTAR:0):反感, 3.00
	ENDIF
ENDIF

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

;●共通処理
IF TFLAG:コマンド成否 == -1
	TIMES SOURCE:(MPLY:0):歓楽, 0.20
	TIMES SOURCE:(MPLY:0):愛情, 0.20
	TIMES SOURCE:(MPLY:0):快Ｍ, 0.20
	TIMES SOURCE:(MTAR:0):歓楽, 0.20
	TIMES SOURCE:(MTAR:0):愛情, 0.20
	TIMES SOURCE:(MTAR:0):快Ｍ, 0.20
	SOURCE:(MPLY:0):不満 += 500
	SOURCE:(MTAR:0):不満 += 500
	TFLAG:ムード -= 5
ELSEIF TFLAG:コマンド成否 == 0

ELSE
	TIMES SOURCE:(MPLY:0):歓楽, 2.00
	TIMES SOURCE:(MPLY:0):愛情, 2.00
	TIMES SOURCE:(MPLY:0):快Ｍ, 2.00
	TIMES SOURCE:(MTAR:0):歓楽, 2.00
	TIMES SOURCE:(MTAR:0):愛情, 2.00
	TIMES SOURCE:(MTAR:0):快Ｍ, 2.00
	TFLAG:ムード += 5
ENDIF

EXP:(MPLY:0):キス経験 += 1
EXP:(MTAR:0):キス経験 += 1

CALL KISS_COMMON(MPLY:0, @"%ANAME(MTAR:0)%の唇", GET_SITUATION_BY_TRAIN_MODE(), MPLY:0 != MASTER)
CALL KISS_COMMON(MTAR:0, @"%ANAME(MPLY:0)%の唇", GET_SITUATION_BY_TRAIN_MODE(), MTAR:0 != MASTER)

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

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

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

RETURN 1

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

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

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

;●プレイヤーの処理
SOURCE:(LOCAL:2):歓楽 = -25 / 3
SOURCE:(LOCAL:2):接触 = 200 / 3
SOURCE:(LOCAL:2):愛情 = -54 / 3
SOURCE:(LOCAL:2):性行動 = 30

;親密に応じた歓楽のソース追加
CALL ADD_SOURCE_KANRAKU(LOCAL:2, 50 / 3)
SOURCE:(LOCAL:2):歓楽 = MAX(SOURCE:(LOCAL:2):歓楽, 0)

;親密に応じた愛情のソース追加
CALL ADD_SOURCE_AIZYOU(LOCAL:2, 180 / 3)
SOURCE:(LOCAL:2):愛情 = MAX(SOURCE:(LOCAL:2):愛情, 0)

SOURCE:(LOCAL:2):快Ｍ = SENSE_HOUSHI(LOCAL:3, LOCAL:2, 300 / 3)
SOURCE:(LOCAL:2):奉仕 = SERVE_HOUSHI(LOCAL:2, 120 / 3)

IF TALENT:(LOCAL:3):舌使い
	TIMES SOURCE:(LOCAL:2):快Ｍ, 2.00
	TIMES SOURCE:(LOCAL:2):愛情, 1.20
ENDIF

IF LOCAL:2 != MASTER && !TALENT:(LOCAL:2):恋人
	SOURCE:(LOCAL:2):逸脱 = 200 / 3
ENDIF

IF LOCAL:2 != MASTER
	IF CFLAG:(LOCAL:2):好感度 < 300
		SOURCE:(LOCAL:2):反感 = 250
	ELSEIF CFLAG:(LOCAL:2):好感度 < 500
		SOURCE:(LOCAL:2):反感 = 150
	ELSEIF CFLAG:(LOCAL:2):好感度 < 800
		SOURCE:(LOCAL:2):反感 = 25
	ENDIF
ENDIF

;主導権に応じたソースの追加
CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 20, 20)

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

;●ターゲットの処理
SOURCE:(LOCAL:3):歓楽 = -25 / 3
SOURCE:(LOCAL:3):接触 = 200 / 3
SOURCE:(LOCAL:3):愛情 = -54 / 3
SOURCE:(LOCAL:3):性行動 = 30

;親密に応じた歓楽のソース追加
CALL ADD_SOURCE_KANRAKU(LOCAL:3, 50 / 3)
SOURCE:(LOCAL:3):歓楽 = MAX(SOURCE:(LOCAL:3):歓楽, 0)

;親密に応じた愛情のソース追加
CALL ADD_SOURCE_AIZYOU(LOCAL:3, 180 / 3)
SOURCE:(LOCAL:3):愛情 = MAX(SOURCE:(LOCAL:3):愛情, 0)

SOURCE:(LOCAL:3):快Ｍ = SENSE_HOUSHI(LOCAL:2, LOCAL:3, 300 / 3)
SOURCE:(LOCAL:3):奉仕 = SERVE_HOUSHI(LOCAL:3, 120 / 3)

IF TALENT:(LOCAL:2):舌使い
	TIMES SOURCE:(LOCAL:3):快Ｍ, 2.00
	TIMES SOURCE:(LOCAL:3):愛情, 1.20
ENDIF

IF LOCAL:3 != MASTER && !TALENT:(LOCAL:3):恋人
	SOURCE:(LOCAL:3):逸脱 = 200 / 3
ENDIF

IF LOCAL:3 != MASTER
	IF CFLAG:(LOCAL:3):好感度 < 300
		SOURCE:(LOCAL:3):反感 = 250
	ELSEIF CFLAG:(LOCAL:3):好感度 < 500
		SOURCE:(LOCAL:3):反感 = 150
	ELSEIF CFLAG:(LOCAL:3):好感度 < 800
		SOURCE:(LOCAL:3):反感 = 25
	ENDIF
ENDIF

EXP:(MEQUIP_PLAYER:(ARG:0):0):キス経験 += 1
EXP:(MEQUIP_TARGET:(ARG:0):0):キス経験 += 1

;主導権に応じたソースの追加
CALL ADD_SOURCE_INITIATIVE_U(LOCAL:3, 20, 20)

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

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE342(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%と%EQUIP_TARGET_ANAME(ARG:0)%がディープキス中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP342(ARG:0)
PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%と%EQUIP_TARGET_ANAME(ARG:0)%は舌を絡めながらキスをしている…

;-------------------------------------------------
;継続を解除したときの地の文
;-------------------------------------------------
@COM_TEXT_RELEASE_EQUIP342(ARG:0)
PRINTFORMW %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の唇から口を離した…

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

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

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

;好感度
IF CFLAG:(ARG:0):好感度 < 500
	IF CFLAG:(ARG:0):好感度 < 100
		LOCAL:0 = -40
	ELSEIF CFLAG:(ARG:0):好感度 < 200
		LOCAL:0 = -20
	ELSEIF CFLAG:(ARG:0):好感度 < 400
		LOCAL:0 = -10
	ELSE
		LOCAL:0 = -5
	ENDIF
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度不足", LOCAL:0)
ELSE
	LOCAL:0 = CFLAG:(ARG:0):好感度 / 75
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度", LOCAL:0)
ENDIF

IF TALENT:(ARG:0):キス未経験
	CALL COM_ORDER_ELEMENT(ARG:0, "キス未経験", -7)
ENDIF
IF TALENT:(ARG:0):貞操観念
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操観念", -6)
ENDIF
IF TALENT:(ARG:0):貞操無頓着
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操無頓着", 3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -3)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 5)
ENDIF
IF TFLAG:デート場所
	CALL COM_ORDER_ELEMENT(ARG:0, "デート中", 6)
ENDIF
RETURN 1

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

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

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

;好感度
IF CFLAG:(ARG:0):好感度 < 500
	IF CFLAG:(ARG:0):好感度 < 100
		LOCAL:0 = -40
	ELSEIF CFLAG:(ARG:0):好感度 < 200
		LOCAL:0 = -20
	ELSEIF CFLAG:(ARG:0):好感度 < 400
		LOCAL:0 = -10
	ELSE
		LOCAL:0 = -5
	ENDIF
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度不足", LOCAL:0)
ELSE
	LOCAL:0 = CFLAG:(ARG:0):好感度 / 75
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度", LOCAL:0)
ENDIF

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

IF TALENT:(ARG:0):キス未経験
	CALL COM_ORDER_ELEMENT(ARG:0, "キス未経験", -7)
ENDIF
IF TALENT:(ARG:0):貞操観念
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操観念", -6)
ENDIF
IF TALENT:(ARG:0):貞操無頓着
	CALL COM_ORDER_ELEMENT(ARG:0, "貞操無頓着", 3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -3)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 5)
ENDIF
IF TFLAG:デート場所
	CALL COM_ORDER_ELEMENT(ARG:0, "デート中", 6)
ENDIF
RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE342
;プレイヤーが主人公側
IF MPLY:0 == MASTER
	;主導権が主人公側
	IF IS_INITIATIVE(MASTER)
		PRINTFORM %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の口腔を隅々まで舐め回
		IF TALENT:(MTAR:0):恋慕 || TALENT:(MTAR:0):恋人
			IF RAND:2
				PRINTFORMW し、ねっとりと舌を絡め合いながら唾液を交換した…
			ELSE
				PRINTFORMW すと、%ANAME(MTAR:0)%も積極的に舌を絡めてきた…
			ENDIF
		ELSE
			PRINTFORMW した…
		ENDIF
	;主導権が相手側
	ELSE
		PRINTFORM %ANAME(MPLY:0)%が%ANAME(MTAR:0)%の求めに応じて舌を入れると、
		IF TALENT:(MTAR:0):恋慕 || TALENT:(MTAR:0):恋人
			IF RAND:2
				PRINTFORMW %ANAME(MTAR:0)%も舌を絡めて%ANAME(MPLY:0)%の口腔を隅々まで舐め回してきた…
			ELSE
				PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%を責めるように積極的に舌を絡めてきた…
			ENDIF
		ELSE
			PRINTFORMW %ANAME(MTAR:0)%は%ANAME(MPLY:0)%を責めるように舌を絡めてきた…
		ENDIF
	ENDIF

	IF TFLAG:コマンド成否 == 1
		PRINTFORML %ANAME(MPLY:0)%が唇を離すと、%ANAME(MTAR:0)%はすっかり呆けた表情で余韻に浸っていた…
	ELSEIF TFLAG:コマンド成否 == 0
		PRINTFORML %ANAME(MPLY:0)%が唇を離すと、%ANAME(MTAR:0)%との間に唾液が糸を引いた…
	ELSEIF TFLAG:コマンド成否 == -1
		PRINTFORML %ANAME(MPLY:0)%は誤って舌を少し噛んでしまった…
	ENDIF
;プレイヤーが相手側
ELSE
	;主導権が主人公側
	IF IS_INITIATIVE(MASTER)
		PRINTFORM %ANAME(MTAR:0)%が%ANAME(MPLY:0)%にキスをせがむと、%ANAME(MPLY:0)%は
		IF TALENT:(MPLY:0):恋慕 || TALENT:(MPLY:0):恋人
			IF RAND:2
				PRINTFORMW 舌を入れ、%ANAME(MTAR:0)%の口内を慈しむように丁寧に舐め回してきた…
			ELSE
				PRINTFORMW 積極的な舌使いで%ANAME(MTAR:0)%を悦ばせた…
			ENDIF
		ELSE
			PRINTFORMW おずおずと舌を絡めてきた…
		ENDIF
	;主導権が相手側
	ELSE
		PRINTFORM %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の口腔を隅々まで舐め回
		IF TALENT:(MPLY:0):恋慕 || TALENT:(MPLY:0):恋人
			IF RAND:2
				PRINTFORMW し、ねっとりと舌を絡め合いながら唾液を交換してきた…
			ELSE
				PRINTFORMW し、情熱的な舌使いで%ANAME(MTAR:0)%を翻弄した…
			ENDIF
		ELSE
			PRINTFORMW し舌を絡めてきた…
		ENDIF
	ENDIF

	IF TFLAG:コマンド成否 == 1
		PRINTFORML 唇を離した後も、二人とも上気した顔でお互いを見つめ合った…
	ELSEIF TFLAG:コマンド成否 == 0
		PRINTFORML %ANAME(MPLY:0)%が唇を離すと、%ANAME(MTAR:0)%との間に唾液が糸を引いた…
	ELSEIF TFLAG:コマンド成否 == -1
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の舌使いに満足できなかったらしく、不満顔だ…
	ENDIF
ENDIF

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

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

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

@COM_AVAILABLE_WHEN342
RETURN コマンド_日常


code:
;騎乗位

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

RESULTS:0 = %LOCALS:0%で奉仕させる
RESULTS:1 = %LOCALS:0%で責められる
RESULTS:2 = %LOCALS:0%で跨る
RESULTS:3 = %LOCALS:0%で奉仕させられる
RESULTS:4 = %LOCALS:0%で突き上げさせる
RESULTS:5 = %LOCALS:0%見せつけ

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE34
;共通部分
CALL COM_ABLE_COMMON(34)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で1人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 1
	RETURN 0
;ターゲットは最大で1人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 1
	RETURN 0
;対象にＶが必要
SIF !HAS_VAGINA(MTAR:0, 1)
	RETURN 0
SIF IS_V_HOLD(MTAR:0)
	RETURN 0
;assucked except anal doggy or sitting backwards
SIF IS_INSERT_SINGLE(MTAR:0, "Ａ") && !GROUPMATCH(GET_SEX_POSITION_SINGLE(MTAR:0, "Ａ"), 2, 4, 30)
	RETURN 0
SIF !CAN_FUCK(MPLY:0, MTAR:0, 34)
	RETURN 0
RETURN 1

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

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

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

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

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

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

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

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

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

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

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

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

SOURCE:(MTAR:0):快Ｖ = SENSE_SEX_PLAYER(MTAR:0, MPLY:0, 1500)
SOURCE:(MTAR:0):性行動 = 450

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

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

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

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

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

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

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

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

RETURN 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE34
#DIMS 実行名
#DIMS 対象名
#DIMS 衣装描写
実行名 = %ANAME(MPLY)%
対象名 = %ANAME(MTAR)%
衣装描写 = C_COND_MAP_GETS(MTAR, "衣装描写:胸")

IF IS_PIERCED(MTAR:0, ピアス_ラビア)
	LOCALS:0 = ピアスの取り付けられた
ELSE
	LOCALS:0 =
ENDIF
IF TALENT:(MTAR:0):処女 == 1
	LOCALS:0 = まだ乙女の
ELSEIF IS_WET(MTAR)
	LOCALS:0 = %語彙_潤滑()%
ELSE
	LOCALS:0 =
ENDIF
IF IS_OVULATION(MTAR:0)
	LOCALS:0 = %LOCALS:0%危険日の
ENDIF

IF TALENT:(MTAR:0):体格 == 体格_小柄
	LOCALS:0 = %LOCALS:0%幼い秘貝
ELSE
	LOCALS:0 = %LOCALS:0%秘裂
ENDIF

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

	ELSE
		IF TALENT:(MTAR:0):処女
			SELECTCASE GET_COM_INITIATIVE()
					;プレイヤーに主導権
				CASE 0
					PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に、騎乗位で処女を捧げるように要求した
					PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%の腰に跨り、反り立つ張り型を自身の%LOCALS:0%へと挿入した…
					;ターゲットに主導権
				CASE 1
					IF MTAR:0 == MASTER
						PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の上に跨り、反り立つ張り型を自身の%LOCALS:0%へと挿入し%PLAYER_STR("た", "てきた")%…
					ELSE
						PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の上に跨ると、ゆっくりと自身の%LOCALS:0%に張り型を挿入し%PLAYER_STR("た", "てきた")%…
					ENDIF
					;第三者に主導権
				CASEELSE
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に、騎乗位で%ANAME(MPLY:0)%に跨るように命令した
					PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%の腰に跨り、反り立つ張り型を自身の%LOCALS:0%へと挿入した…
			ENDSELECT

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

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

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

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

	ELSE
		IF TALENT:(MTAR:0):処女
			SELECTCASE GET_COM_INITIATIVE()
					;プレイヤーに主導権
				CASE 0
					PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%に、騎乗位で処女を捧げるように要求した
					PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%の上に跨り、ゆっくりと腰を下ろした…
					;ターゲットに主導権
				CASE 1
					IF MTAR:0 == MASTER
						PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の上に跨り、反り立つペニスを自身の%LOCALS:0%へと挿入し%PLAYER_STR("た", "てきた")%…
					ELSE
						PRINTFORML %ANAME(MTAR:0)%は%ANAME(MPLY:0)%の上に跨ると、少し緊張した様子でペニスを自身の%LOCALS:0%へと挿入し%PLAYER_STR("た", "てきた")%…
					ENDIF
					;第三者に主導権
				CASEELSE
					PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MTAR:0)%に、騎乗位で%ANAME(MPLY:0)%に跨るように命令した
					PRINTFORML %ANAME(MTAR:0)%は言われるまま%ANAME(MPLY:0)%の腰に跨り、反り立つペニスを自身の%LOCALS:0%へと挿入した…
			ENDSELECT

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

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

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

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

SIF IS_PIERCED(MPLY:0, ピアス_ペニス)
	PRINTFORML %ANAME(MPLY:0)%のペニスに取り付けられたピアスが、%ANAME(MTAR:0)%の膣内をごりごりと抉っていく……

IF MPLY:0 != MASTER
ENDIF

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

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

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

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

@COM_AVAILABLE_WHEN34
RETURN コマンド_ウフフ

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

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

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


code:
;服屋に入る

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME350
RESULTS:0 = 服屋に誘う
RESULTS:1 = 服屋に付き合う

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE350
;共通部分
CALL COM_ABLE_COMMON(350)
SIF RESULT == 0
	RETURN 0
;主人公がプレイヤーのとき限定
SIF MPLY:0 != MASTER
	RETURN 0
;城下町でのデート中限定
SIF GET_PLACENAME(TFLAG:デート場所) != "市街地"
	RETURN 0
;怪我なら不可
SIF CFLAG:(MTAR:0):行動不能状態 == 3
	RETURN 0
;キス中は不可
SIF IS_EQUIP(MPLY:0, 342)
	RETURN 0
RETURN 1

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@COM350
;実行判定
CALL COM_ORDER_COMMON
IF RESULT == 0
	RETURN 0
ENDIF

;成否の判定なし
TFLAG:コマンド成否 = 0

PRINTFORMW %ANAME(MPLY:0)%と%ANAME(MTAR:0)%は服屋に入った…

$SELECT_LOOP

CALL SINGLE_DRAWLINE
PRINTFORML ●服の購入(所持金:{MONEY})
PRINTL   [0] チャイナ服    ( 5000)
PRINTL   [1] メイド服      (20000)
PRINTL   [2] セーラー服    (20000)
PRINTL   [3] ボンデージ    (20000)
PRINTL   [4] ゴシックドレス(40000)
PRINTL   [5] ホワイトドレス(80000)
PRINTL   [6] 和服          (40000)
CALL SINGLE_DRAWLINE
PRINTL   [9] 見るだけ

REDRAW 0

$INPUT_LOOP
INPUT

LOCAL:4 = RESULT

SELECTCASE LOCAL:4
	CASE 0
		IF MONEY < 5000
			PRINTW お金が足りません
			CLEARLINE 2
			GOTO INPUT_LOOP
		ENDIF

		MONEY -= 5000

		;素質によるボーナス
		LOCAL:5 = 100
		LOCAL:5 += (TALENT:(MTAR:0):好奇心 != 0) * 20
		LOCAL:5 += (TALENT:(MTAR:0):大人しい != 0) * 20
		LOCAL:5 += (TALENT:(MTAR:0):幼稚 != 0) * 50
		LOCAL:5 += (TALENT:(MTAR:0):プライド高い != 0) * -40
		LOCAL:5 += (TALENT:(MTAR:0):無関心 != 0) * -30
		LOCAL:5 += (TALENT:(MTAR:0):感情乏しい != 0) * -20
		LOCAL:5 = LIMIT(LOCAL:5, 0, 200)

		SOURCE:(MTAR:0):歓楽 = 150 * LOCAL:5 / 100
		;親密に応じた歓楽のソース追加
		CALL ADD_SOURCE_KANRAKU(MTAR:0, 220 * LOCAL:5 / 100)
		SOURCE:(MTAR:0):歓楽 = MAX(SOURCE:(MTAR:0):歓楽, 0)

	CASEELSE
		CLEARLINE 1
		GOTO INPUT_LOOP
ENDSELECT

REDRAW 1

TFLAG:17 = LOCAL:4

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

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

RETURN 1

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

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

;好感度
IF CFLAG:(ARG:0):好感度 < 300
	IF CFLAG:(ARG:0):好感度 < 50
		LOCAL:0 = -12
	ELSEIF CFLAG:(ARG:0):好感度 < 150
		LOCAL:0 = -8
	ELSE
		LOCAL:0 = -4
	ENDIF
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度不足", LOCAL:0)
ELSE
	LOCAL:0 = CFLAG:(ARG:0):好感度 / 75
	CALL COM_ORDER_ELEMENT(ARG:0, @"好感度", LOCAL:0)
ENDIF

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
RETURN 1

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

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

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

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

@COM_AVAILABLE_WHEN350
RETURN コマンド_日常