code:
;セクハラのある日常

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME331
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_ABLE331
;共通部分
CALL COM_ABLE_COMMON(331)
SIF RESULT == 0
	RETURN 0
;行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
;日常フェラ中は不可
SIF IS_EQUIP(MPLY:0, 330)
	RETURN 0
;主人公以外が実行する場合、実行可能でなければ表示されない
IF MPLY:0 != MASTER
	TCVAR:(MPLY:0):判定値 = 0
	SKIPDISP 1
	CALL COM_ORDER_PLAYER331(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, 1)
	LOCAL:0 += RESULT
	CALL CHECK_COM_KNOWLEDGE(MTAR:0, 1)
	LOCAL:0 += RESULT
ELSE
	CALL CHECK_COM_KNOWLEDGE(FLAG:主導権所有者, 1)
	LOCAL:0 += RESULT
ENDIF
IF !RESULT
	RETURN 0
ENDIF
RETURN 1

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

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

RETURNF LOCAL:5

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

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

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

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

;主導権に応じた優越・受動のソース追加
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):接触 = 60
SOURCE:(MTAR:0):性行動 = 180
;主導権に応じた優越・受動のソース追加
CALL ADD_SOURCE_INITIATIVE_U(MTAR:0, 80, 0)

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

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

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

;胸愛撫の知識がなければ、獲得する
CALL SET_COM_KNOWLEDGE(MPLY:0, 1)
CALL SET_COM_KNOWLEDGE(MTAR:0, 1)
RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP331(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, 60)
SOURCE:(LOCAL:2):接触 += 30
SOURCE:(LOCAL:2):性行動 += 30

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

;●ターゲット側の処理
DOWNBASE:(LOCAL:3):体力 += 10
SOURCE:(LOCAL:3):接触 += 30
SOURCE:(LOCAL:3):性行動 += 60
SOURCE:(LOCAL:3):快Ｂ = SENSE_HOUSHI(LOCAL:2, LOCAL:3, 300 / 3)

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

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE331(ARG:0)
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に胸愛撫中

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

PRINTFORML  %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%の胸を揉みしだいている…

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

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

;共通部分
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 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_TARGET331(ARG:0)
;実行値の設定
TCVAR:(ARG:0):実行値 = 60

;共通部分
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 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_BEFORE331
;SKIPDISPしてから呼び出してRESULTを取ったら、キャラ口上からどのパターンか読める…ハズ
LOCAL:3 = 0
;キス中
IF IS_EQUIP(MPLY:0, 342)
	LOCALS:0 = キスをしながら
	;地の文カット
	LOCAL:0 = SEARCH_EQUIP_IC(342, MPLY:0, MTAR:0)
	IF LOCAL:0 >= 0
		MEQUIP_CUT:(LOCAL:0) = 1
	ENDIF
ELSE
	LOCALS:0 =
ENDIF

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

PRINTL

RETURN LOCAL:3

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

FOR LOCAL:0, 0, MTAR_NUM
	LOCAL:1 = MTAR:(LOCAL:0)

	IF LOCAL:1 != MASTER
		LOCAL:2 = CUP:(LOCAL:1):快Ｂ

		IF IS_MALE(LOCAL:1)
			IF TCVAR:(LOCAL:1):失神フラグ
				;気絶中
				PRINTFORML  意識を失った%ANAME(LOCAL:1)%は乳首への刺激にビクリと小さく体を震わせた
			ELSEIF LOCAL:2 < 300
				PRINTFORML  %ANAME(LOCAL:1)%はまだ乳首で快楽を感じれるまでには至っていないようだ
			ELSEIF LOCAL:2 < 1000
				PRINTFORML  %ANAME(LOCAL:1)%は少しずつ快感を感じ始めているらしく、むず痒そうに体をよじった
			ELSEIF LOCAL:2 < 3000
				PRINTFORML  %ANAME(LOCAL:1)%は乳首への刺激に感じているのか、熱い吐息を漏らし始めている
			ELSEIF LOCAL:2 < 6000
				PRINTFORML  %ANAME(LOCAL:1)%は乳首への快感に表情を緩ませ、されるがままになっている
			ELSEIF LOCAL:2 < 10000
				PRINTFORML  %ANAME(LOCAL:1)%は感じまくっており、乳首を弾かれるたびに激しく悶えている
			ELSE
				PRINTFORML  %ANAME(LOCAL:1)%はすっかり乳首の快感の虜になり、乳首をこね回されると女のように身体を跳ねさせて悶えた
			ENDIF
		ELSE
			IF TCVAR:(LOCAL:1):失神フラグ
				;気絶中
				PRINTFORML  意識を失った%ANAME(LOCAL:1)%は胸への刺激にビクリと小さく体を震わせた
			ELSEIF LOCAL:2 < 300
				PRINTFORML  %ANAME(LOCAL:1)%はまだ胸で快楽を感じれるまでには至っていないようだ
			ELSEIF LOCAL:2 < 1000
				PRINTFORML  %ANAME(LOCAL:1)%は少しずつ快感を感じ始めているらしく、むず痒そうに体をよじった
			ELSEIF LOCAL:2 < 3000
				PRINTFORML  %ANAME(LOCAL:1)%の胸を揉み続けてやると乳首は固くしこっていき、熱い吐息を漏らし始めている
			ELSEIF LOCAL:2 < 6000
				PRINTFORML  %ANAME(LOCAL:1)%は胸への愛撫にトロンとした表情になってされるがままになっている
			ELSEIF LOCAL:2 < 10000
				PRINTFORML  %ANAME(LOCAL:1)%は感じまくっており、胸への刺激だけで法悦を極めようとしている
			ELSE
				PRINTFORM  %ANAME(LOCAL:1)%の胸を揉み続けてやるとそれだけで感じまくって身体を跳ねさせ、
				IF GET_BUSTSIZE(LOCAL:1) == 1
					PRINTL 目の前でその巨乳を弾ませてこちらの目を楽しませてくれた
				ELSEIF GET_BUSTSIZE(LOCAL:1) >= 2
					PRINTFORML 目の前でその%TOSTR_BUSTSIZE(LOCAL:1)%を大きく弾ませてこちらの目を楽しませてくれた
				ELSE
					PRINTL 緩んだ表情で快楽に身を任せた
				ENDIF
			ENDIF
		ENDIF
	ENDIF
NEXT

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

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

@COM_AVAILABLE_WHEN331
RETURN コマンド_日常


code:
;セクハラのある日常

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME332
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_ABLE332
;共通部分
CALL COM_ABLE_COMMON(332)
SIF RESULT == 0
	RETURN 0
;行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0
;ターゲットに竿が必要
SIF !HAS_PENIS(MTAR:0)
	RETURN 0
;主人公以外が実行する場合、実行可能でなければ表示されない
IF MPLY:0 != MASTER
	TCVAR:(MPLY:0):判定値 = 0
	SKIPDISP 1
	CALL COM_ORDER_PLAYER332(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, 10)
	LOCAL:0 += RESULT
	CALL CHECK_COM_KNOWLEDGE(MTAR:0, 10)
	LOCAL:0 += RESULT
ELSE
	CALL CHECK_COM_KNOWLEDGE(FLAG:主導権所有者, 10)
	LOCAL:0 += RESULT
ENDIF
IF !RESULT
	RETURN 0
ENDIF
RETURN 1

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

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

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

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

SELECTCASE ABL:(MPLY:0):奉仕
	CASE 0
		TIMES SOURCE:(MPLY:0):不潔, 4.00
	CASE 1
		TIMES SOURCE:(MPLY:0):不潔, 2.50
	CASE 2
		TIMES SOURCE:(MPLY:0):不潔, 1.50
	CASE 3
		TIMES SOURCE:(MPLY:0):不潔, 1.00
	CASE 4
		TIMES SOURCE:(MPLY:0):不潔, 0.50
	CASEELSE
		TIMES SOURCE:(MPLY:0):不潔, 0.10
ENDSELECT

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

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

;●ターゲット側の処理
LOCAL:4 = SENSE_HOUSHI_P(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, 120, 50)

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

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

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

;胸愛撫の知識がなければ、獲得する
CALL SET_COM_KNOWLEDGE(MPLY:0, 10)
CALL SET_COM_KNOWLEDGE(MTAR:0, 10)
RETURN 1

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

;-------------------------------------------------
;継続状態の処理
;-------------------------------------------------
@COM_EQUIP332(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):接触 += 50
SOURCE:(LOCAL:2):性行動 += 70

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

;●ターゲット側の処理
DOWNBASE:(LOCAL:3):体力 += 10
SOURCE:(LOCAL:3):接触 += 25
SOURCE:(LOCAL:3):性行動 += 60
SOURCE:(LOCAL:3):快Ｐ = SENSE_HOUSHI(LOCAL:2, LOCAL:3, 800) * 30 / 100

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

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

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

PRINTFORML  %EQUIP_PLAYER_ANAME(ARG:0)%は%EQUIP_TARGET_ANAME(ARG:0)%のペニスを手で握りシゴき上げている…

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

;-------------------------------------------------
;固有の実行判定(プレイヤー側)
;-------------------------------------------------
@COM_ORDER_PLAYER332(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)
CALL COM_ORDER_ELEMENT(ARG:0, @"精愛Lv{ABL:(ARG:0):精愛}", ABL:(ARG:0):精愛 * 1)

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

;ムード
IF 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, "汚臭鈍感", 1)
ENDIF
IF TALENT:(ARG:0):汚臭敏感
	CALL COM_ORDER_ELEMENT(ARG:0, "汚臭敏感", -3)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 6)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -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_TARGET332(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)
CALL COM_ORDER_ELEMENT(ARG:0, @"精愛Lv{ABL:(ARG:0):精愛}", ABL:(ARG:0):精愛 * 1)

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

;ムード
IF 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, "汚臭鈍感", 1)
ENDIF
IF TALENT:(ARG:0):汚臭敏感
	CALL COM_ORDER_ELEMENT(ARG:0, "汚臭敏感", -3)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 6)
ENDIF
IF TALENT:(ARG:0):快感の否定
	CALL COM_ORDER_ELEMENT(ARG:0, "快感の否定", -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_BEFORE332
#DIMS PENIS_NAME
;SKIPDISPしてから呼び出してRESULTを取ったら、キャラ口上からどのパターンか読める…ハズ
LOCAL:3 = 0

SELECTCASE RAND:10
	CASE 0 TO 3
		PENIS_NAME = ペニス
	CASE 4 TO 5
		PENIS_NAME = 怒張
	CASE 6 TO 7
		PENIS_NAME = 肉棒
	CASE 8 TO 9
		PENIS_NAME = 男根
;普通は見れない
	CASEELSE
		PENIS_NAME = 勃起チンポ
ENDSELECT

PRINTFORM  %ANAME(MPLY:0)%は

SELECTCASE GET_COM_INITIATIVE()
	;主導権がターゲット側
	CASE 1
		SELECTCASE PREVCOM
			;机下手コキ
			CASE 303, 304, 351
				LOCAL:3 = 1
				PRINTDATA
					DATAFORM %ANAME(MTAR:0)%に命じられると
					DATAFORM %ANAME(MTAR:0)%の目配せだけで意図を察し、
					DATAFORM %ANAME(MTAR:0)%の手招きに従い、
					DATAFORM %ANAME(MTAR:0)%が言ったとおりに
					DATAFORM %ANAME(MTAR:0)%に仕込まれたとおりに
				ENDDATA
				PRINTDATAL
					DATAFORM 机の下に潜り込み、眼前に突きつけられた%PENIS_NAME%を
					DATAFORM 顔にかかったテーブルクロスの端からこちらの様子をうかがいながら%PENIS_NAME%を
					DATAFORM 下肢へと指を伸ばし%PENIS_NAME%を
					DATAFORM 机の下で%PENIS_NAME%を
				ENDDATA
			;蒸れフェラ
			CASE 301, 302
				LOCAL:3 = 2
				PRINTDATA
					DATAFORM 汗でテカリ、
					DATAFORM 訓練の興奮で滾り、
					DATAFORM 激しい運動で蒸れ、
					DATAFORM 訓練の疲労感に勃起し、
				ENDDATA
				PRINTDATAL
					DATAFORM 蒸気の上がっている%ANAME(MTAR:0)%の%PENIS_NAME%を
					DATAFORM 雄の臭いを撒き散らす%ANAME(MTAR:0)%の%PENIS_NAME%を
					DATAFORM 男のフェロモンを立ち上らせる%ANAME(MTAR:0)%の%PENIS_NAME%を
					DATAFORM 激しく反り返っている%ANAME(MTAR:0)%の%PENIS_NAME%を
				ENDDATA
				PRINTFORML
			;歌唱フェラ
			CASE 306
				LOCAL:3 = 3
				PRINTFORML 歌声を奏でる最中に%ANAME(MTAR:0)%の%PENIS_NAME%を突きつけられると、そのまま
			;お掃除フェラ
			CASE 310, 311
				LOCAL:3 = 4
				PRINTDATAL
					DATAFORM %ANAME(MTAR:0)%が杯から垂らした雫に導かれるように%PENIS_NAME%に手を伸ばすと
					DATAFORM 酒で火照った%ANAME(MTAR:0)%の%PENIS_NAME%を
				ENDDATA
			;実地演習
			CASE 550
				LOCAL:3 = 5
				PRINTFORML 早速実践するようにと突きつけられた%ANAME(MTAR:0)%の%PENIS_NAME%を
			;路地裏フェラ
			CASE 305
				LOCAL:3 = 6
				PRINTDATAL
					DATAFORM %ANAME(MTAR:0)%に人気のない路地裏へと連れ込まれ、%PENIS_NAME%を眼前に突きつけられると
					DATAFORM %ANAME(MTAR:0)%に人気のない路地裏で求められ、%PENIS_NAME%を押し付けられると
				ENDDATA
			CASE 352
				LOCAL:3 = 8
				PRINTFORML %ANAME(MTAR:0)%に本棚の陰に連れ込まれ、%PENIS_NAME%を眼前に突きつけられると
			;猥談
			CASE 309
				LOCAL:3 = 9
				PRINTDATAL
					DATAFORM 猥談に興奮した%ANAME(MTAR:0)%に今の話を実演するように求められ、%PENIS_NAME%を眼前に突きつけられると
					DATAFORM 猥談に興奮した%ANAME(MTAR:0)%に押し倒され、%PENIS_NAME%を眼前に突き出されると
					DATAFORM 猥談に興奮した%ANAME(MTAR:0)%に、ちょっと鎮めてくれよと頼まれ、%PENIS_NAME%を露出させると
				ENDDATA
			;膝枕
			CASE 327
				LOCAL:3 = 10
				PRINTDATAL
					DATAFORM 膝枕をしたまま%ANAME(MTAR:0)%の%PENIS_NAME%を
					DATAFORM %ANAME(MPLY:0)%の膝に頭を乗せた%ANAME(MTAR:0)%に頼まれ、%ANAME(MTAR:0)%の%PENIS_NAME%を
					DATAFORM 膝に乗せた%ANAME(MTAR:0)%の頭を撫でつつ、%PENIS_NAME%を
				ENDDATA
			CASEELSE
				IF GET_PLACENAME(TFLAG:デート場所) == "市街地"
					LOCAL:3 = 6
					PRINTDATAL
						DATAFORM %ANAME(MTAR:0)%に人気のない路地裏へと連れ込まれ、%PENIS_NAME%を眼前に突きつけられると
						DATAFORM %ANAME(MTAR:0)%に人気のない路地裏で求められ、%PENIS_NAME%を押し付けられると
					ENDDATA
			;温泉
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "温泉"
					LOCAL:3 = 11
					PRINTDATAL
						DATAFORM 命じられるがまま、%ANAME(MTAR:0)%の腰を支えると水面から屹立した%PENIS_NAME%を
						DATAFORM %ANAME(MTAR:0)%に命じられ、風呂椅子に座る%ANAME(MTAR:0)%の%PENIS_NAME%を
						DATAFORM 手近な岩に腰掛けた%ANAME(MTAR:0)%に頼まれ、お湯の滴る%PENIS_NAME%を
					ENDDATA
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "遊泳場"
					LOCAL:3 = 12
					PRINTDATAL
						DATAFORM 泳ぎ疲れ岩に腰掛ける%ANAME(MTAR:0)%に頼まれ、水の滴る%PENIS_NAME%を
						DATAFORM %ANAME(MTAR:0)%に岩陰へ連れ込まれ、%PENIS_NAME%を押し付けられると
						DATAFORM %ANAME(MTAR:0)%に頼まれ、水中で剥き出しにされた%PENIS_NAME%を
						DATAFORM 泳いで冷えたから暖めてくれと%ANAME(MTAR:0)%に頼まれ、%PENIS_NAME%を
					ENDDATA
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "森林"
					LOCAL:3 = 11
					PRINTDATAL
						DATAFORM 獲物を追うのに飽きた%ANAME(MTAR:0)%に命じられ、跪いて%PENIS_NAME%を露出させると
						DATAFORM %ANAME(MTAR:0)%に木陰に連れ込まれ、眼前に%PENIS_NAME%を突きつけられると
						DATAFORM %ANAME(MTAR:0)%に森小屋へ連れ込まれ、%PENIS_NAME%への奉仕を命じられると
					ENDDATA
				ELSE
					PRINTDATAL
						DATAFORM 唐突に%PENIS_NAME%を露出させる%ANAME(MTAR:0)%の行動に戸惑いつつも、周囲の気配を伺いながら
						DATAFORM %ANAME(MTAR:0)%に、催したから処理してくれと%PENIS_NAME%を突きつけられると
						DATAFORM %ANAME(MTAR:0)%に物陰に連れ込まれ、眼前に%PENIS_NAME%を突きつけられると
						DATAFORM %ANAME(MTAR:0)%に跪かされ、溜まってきたから処理してくれと%PENIS_NAME%を突き出されると
					ENDDATA
				ENDIF
		ENDSELECT
		PRINTFORM
		IF IS_LOVER(MPLY:0)
			PRINTDATA
				DATAFORM うっとりとした表情を浮かべながら、
				DATAFORM 奉仕できる喜びからか目尻を下げ、
				DATAFORM 愛おしそうな表情を浮かべ
				DATAFORM
			ENDDATA
		ENDIF
		IF ABL:(MPLY:0):性技 >= 3
			PRINTDATA
				DATAFORM 巧みな手管で
				DATAFORM 巧みな手付きで
				DATAFORM 丁寧かつきめ細やかな手技で
			ENDDATA
			SIF GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_精液便女)
				PRINTFORM 男を悦ばせるための便女らしく
			PRINTDATAW
				DATAFORM %ANAME(MTAR:0)%を悦ばせた…
				DATAFORM %ANAME(MTAR:0)%をもてなした…
				DATAFORM %ANAME(MTAR:0)%に奉仕した…
				DATAFORM %ANAME(MTAR:0)%の%PENIS_NAME%を激しくシゴき上げた…
			ENDDATA
		ELSE
			PRINTDATA
				DATAFORM 不慣れな手付きで
				DATAFORM ぎこちない動きで
				DATAFORM 慣れない手付きで
				DATAFORM 戸惑うように手を止めながらも
			ENDDATA
			SIF GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_精液便女)
				PRINTFORM 男を悦ばせるための便女らしく
			PRINTDATAW
				DATAFORM %ANAME(MTAR:0)%の%PENIS_NAME%を責めた…
				DATAFORM %ANAME(MTAR:0)%への奉仕を続けた…
				DATAFORM %ANAME(MTAR:0)%の%PENIS_NAME%を激しくシゴき上げた…
			ENDDATA
		ENDIF
	;主導権がプレイヤー側
	CASE 0
		SELECTCASE PREVCOM
			;机下フェラ
			CASE 303, 304, 351
				LOCAL:3 = 21
				PRINTFORML そうっと%ANAME(MTAR:0)%の下肢へと手を伸ばし%PENIS_NAME%を露出させると
			;蒸れフェラ
			CASE 301, 302
				LOCAL:3 = 22
				PRINTFORML 汗で蒸れている%ANAME(MTAR:0)%の下着を剥ぎ取り、蒸気の上がっている%PENIS_NAME%を
			;歌唱フェラ
			CASE 306
				LOCAL:3 = 23
				PRINTFORML 歌を続けながら手を%ANAME(MTAR:0)%の股間に近づけ、取り出した%PENIS_NAME%に歌いかけるように
			;お掃除フェラ
			CASE 310, 311
				LOCAL:3 = 24
				PRINTFORML わざとらしく%ANAME(MTAR:0)%の股間に\@ PREVCOM == 310 ? 酒杯 # エインズの露 \@の残りをこぼすと、濡れた下着ごと%ANAME(MTAR:0)%の%PENIS_NAME%を
			;実地演習
			CASE 550
				LOCAL:3 = 25
				PRINTFORML 早速実践だとばかりに%ANAME(MTAR:0)%の%PENIS_NAME%を取り出すと
			;路地裏フェラ
			CASE 305
				LOCAL:3 = 26
				PRINTFORML 人気のない路地裏へと連れ込むと、%ANAME(MTAR:0)%の下着を剥ぎ取りそのまま%PENIS_NAME%を
			CASE 352
				LOCAL:3 = 28
				PRINTFORML %ANAME(MTAR:0)%を本棚の陰に連れ込み、%ANAME(MTAR:0)%の下着を剥ぎ取りそのまま%PENIS_NAME%を
			;猥談
			CASE 309
				LOCAL:3 = 29
				PRINTFORML 猥談に興奮を抑えられなくなり、%ANAME(MTAR:0)%の下着を剥ぎ取りそのまま%PENIS_NAME%を
			;膝枕
			CASE 327
				LOCAL:3 = 30
				IF GET_BUSTSIZE(MPLY:0) >= 2
					PRINTFORML %STR_BODY("胸：長：愛撫", MPLY:0)%で膝に乗せた%ANAME(MTAR:0)%の顔を圧迫しながら%PENIS_NAME%を取り出すと
				ELSEIF GET_BUSTSIZE(MPLY:0) == 1
					PRINTFORML %STR_BODY("胸：長：愛撫", MPLY:0)%を膝に乗せた%ANAME(MTAR:0)%の顔に押し付けながら%PENIS_NAME%を取り出すと
				ELSE
					PRINTFORML 膝に乗せた%ANAME(MTAR:0)%の頭を撫でながら%PENIS_NAME%を取り出すと
				ENDIF
			CASEELSE
				IF GET_PLACENAME(TFLAG:デート場所) == "市街地"
					LOCAL:3 = 26
					PRINTFORML 人気のない路地裏へと連れ込むと、%ANAME(MTAR:0)%の下着を剥ぎ取りそのまま%PENIS_NAME%を
			;温泉
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "温泉"
					LOCAL:3 = 27
					IF RAND:2 == 0
						PRINTFORML %ANAME(MTAR:0)%の腰を浮かせて%PENIS_NAME%を水面から浮上させると
					ELSE
						PRINTFORML %ANAME(MTAR:0)%を手近な岩に腰掛けさせると、お湯が滴る%PENIS_NAME%を
					ENDIF
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "遊泳場"
					LOCAL:3 = 31
					IF RAND:3 == 0
						PRINTFORML %ANAME(MTAR:0)%の腰を浮かせて%PENIS_NAME%を水面から浮上させると
					ELSEIF RAND:2 == 0
						PRINTFORML %ANAME(MTAR:0)%に絡みつき、水中で%PENIS_NAME%を露出させると
					ELSE
						PRINTFORML %ANAME(MTAR:0)%を手近な岩に腰掛けさせると、水が滴る%PENIS_NAME%を
					ENDIF
				ELSEIF GET_PLACENAME(TFLAG:デート場所) == "森林"
					IF RAND:3 == 0
						PRINTFORML 大きな獲物があったと呟いて、%ANAME(MTAR:0)%の下着を剥ぎ取ると
					ELSE
						PRINTFORML %ANAME(MTAR:0)%を木陰に連れ込むと、%PENIS_NAME%を露出させ
					ENDIF
				ELSE
					LOCAL:3 = 20
					PRINTFORML 周囲に人気がないのを確認すると、%ANAME(MTAR:0)%の%PENIS_NAME%を露出させ
				ENDIF
		ENDSELECT
		PRINTFORM
		IF IS_LOVER(MPLY:0)
			PRINTDATA
				DATAFORM 愛おしそうに微笑みながら
				DATAFORM 愛情のこもった瞳で見つめながら
				DATAFORM 愛おしむように
				DATAFORM 瞳を蕩かして
				DATAFORM うっとりとした表情を浮かべながら
			ENDDATA
		ENDIF
		IF ABL:(MPLY:0):性技 >= 3
			PRINTDATA
				DATAFORM 指を伸ばし、巧みな手管で
				DATAFORM 指を這わし、巧みな手付きで
				DATAFORM 握り込むと、丁寧かつきめ細やかな手技で
			ENDDATA
			SIF GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_精液便女)
				PRINTFORM 男を悦ばせるための便女らしく
			PRINTDATAW
				DATAFORM %ANAME(MTAR:0)%を悦ばせた…
				DATAFORM %ANAME(MTAR:0)%をもてなした…
				DATAFORM %ANAME(MTAR:0)%に奉仕した…
				DATAFORM %ANAME(MTAR:0)%の%PENIS_NAME%を激しくシゴき上げた…
			ENDDATA
		ELSE
			PRINTDATA
				DATAFORM 指を這わし、不慣れな手付きで
				DATAFORM 指を伸ばし、ぎこちない動きで
				DATAFORM 握り込むと、慣れない手付きで
				DATAFORM 指を添えて、戸惑うように手を止めながらも
			ENDDATA
			SIF GETBIT(TALENT:(MPLY:0):淫乱系, 素質_淫乱_精液便女)
				PRINTFORM 男を悦ばせるための便女らしく
			PRINTDATAW
				DATAFORM %ANAME(MTAR:0)%の%PENIS_NAME%を責めた…
				DATAFORM %ANAME(MTAR:0)%の%PENIS_NAME%へ奉仕を続けた…
				DATAFORM %ANAME(MTAR:0)%の%PENIS_NAME%を激しくシゴき上げた…
			ENDDATA
		ENDIF
ENDSELECT

PRINTL

RETURN LOCAL:3

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

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

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

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

@COM_AVAILABLE_WHEN332
RETURN コマンド_日常

@COM_STACK_SPERM_MTAR_TO_MPLY_332()
RETURN 射精部位_手

repo_name: napo/erafl

license: unknown


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)


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
SELECTCASE COM_OPTION:339
	CASE 0
		RESULTS:0 = 囁きかける
		RESULTS:1 = 囁きかける
		RESULTS:2 = 囁きかけられる
		RESULTS:3 = 囁きかけられる
	CASE 1
		RESULTS:0 = 快楽を受容させる
	CASE 2
		RESULTS:0 = 快楽を我慢させる
ENDSELECT

;-------------------------------------------------
; このコマンドがどのタブに入るか
;-------------------------------------------------
@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

;-------------------------------------------------
;オプションを持つコマンドの場合オプション数を指定
;-------------------------------------------------
@COM_HAS_OPTION339
RETURN 2

;-------------------------------------------------
;オプションの実行可否判定
;-------------------------------------------------
@COM_OPTION_ABLE339(COMOPTION)
#DIM COMOPTION
SELECTCASE COMOPTION
	CASE 0
		RETURN 1
	CASE 1, 2
		IF MPLY == MASTER
			RETURN 1
		ENDIF
ENDSELECT

;-------------------------------------------------
;メイン処理
;-------------------------------------------------
@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)

IF COM_OPTION:339 == 1
	TCVAR:(CHARA_ID):絶頂抑制補正値 += -5
ELSEIF COM_OPTION:339 == 2
	TCVAR:(CHARA_ID):絶頂抑制補正値 += 5
ENDIF

;主導度変化基準値
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
SELECTCASE COM_OPTION:339
	CASE 0
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の耳元で言葉を紡いだ…
	CASE 1
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の耳元で快楽を受け入れるよう囁いた…
	CASE 2
		PRINTFORML %ANAME(MPLY:0)%は%ANAME(MTAR:0)%の耳元で快楽をこらえるよう囁いた…
ENDSELECT

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@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 '= @"%対象名%は%実行名%の言葉に一切耳を貸さず、顔をしかめている"
		CASE "鬱", "悲", "憂"
			STRS '= @"%対象名%は%実行名%から目を背け、言葉に耳を貸そうとしない"
		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 = %LOCALS:0%で挿入
RESULTS:1 = %LOCALS:0%で挿入させられる
RESULTS:2 = %LOCALS:0%で挿入させる
RESULTS:3 = %LOCALS:0%で挿入される
RESULTS:4 = %LOCALS:0%で挿入させる
RESULTS:5 = %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 = ソフトキスする
RESULTS:1 = ソフトキスをねだられる
RESULTS:2 = ソフトキスさせる
RESULTS:3 = ソフトキスされる

;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@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