code:
;遠隔調教

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME98
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_ABLE98
;共通部分
CALL COM_ABLE_COMMON(98)
SIF RESULT == 0
	RETURN 0
;プレイヤーは1人
SIF MPLY_NUM != 1
	RETURN 0
;ターゲットも1人
SIF MTAR_NUM != 1
	RETURN 0
;プレイヤーが行動不能なら不可
SIF !IS_PLAYABLE(MPLY:0)
	RETURN 0

SIF ITEM:スキマ == 0
	RETURN 0

LOCAL:5 = 0
LOCAL:6 = 0
;全てのプレイヤーについて判定
FOR LOCAL:0, 0, MPLY_NUM
	;顔面騎乗されているなら不可
	SIF IS_RIDDEN(MPLY:(LOCAL:0))
		RETURN 0
	;顔面騎乗しているなら不可
	SIF IS_RIDDEN(MPLY:(LOCAL:0))
		RETURN 0
	;キス中、貝合中なら不可
	SIF IS_EQUIP(MPLY:(LOCAL:0), 20, 21)
		RETURN 0
	;手コキ、脚コキ、素股, パイズリ、オナホコキ中なら不可
	SIF IS_EQUIP_PLAYER(MPLY:(LOCAL:0), 10, 12, 14, 13, 17)
		RETURN 0
	;挿入中なら不可
	SIF IS_INSERT_SINGLE(MPLY:(LOCAL:0), "全")
		RETURN 0
	;拘束されているなら不可
	SIF IS_BIND(MPLY:(LOCAL:0))
		RETURN 0
NEXT
;全てのターゲットについて判定
FOR LOCAL:0, 0, MTAR_NUM
	;女のみ
	SIF !IS_FEMALE(MTAR:(LOCAL:0))
		RETURN 0
	;顔面騎乗されているなら不可
	SIF IS_RIDDEN(MTAR:(LOCAL:0))
		RETURN 0
NEXT
RETURN 1

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

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

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

	SOURCE:(LOCAL:2):嗜虐 = 50
	SOURCE:(LOCAL:2):露出 = 30
	SOURCE:(LOCAL:2):逸脱 = 20
	SOURCE:(LOCAL:2):接触 = 30

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

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

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

	SOURCE:(LOCAL:2):露出 = 1200
	SOURCE:(LOCAL:2):逸脱 = 300
	SOURCE:(LOCAL:2):不安 = 300
	SOURCE:(LOCAL:2):性行動 = 240
	SOURCE:(LOCAL:2):快Ｖ = SENSE_HOUSHI(MPLY:0, MTAR:0, 1500)
	SOURCE:(LOCAL:2):快Ａ = SENSE_HOUSHI(MPLY:0, MTAR:0, 1500)

	EXP:(LOCAL:2):精愛経験値 += 1
	EXP:(LOCAL:2):露出経験値 += 3

	CALL RECORD_CREAMPIE(LOCAL:2, -1, CUM_AMOUNT_CORRECTION(-1, LOCAL:2, 射精部位_膣内, RAND(3, 7)), 射精部位_膣内)
	;主導権に応じた優越・屈従のソース追加
	CALL ADD_SOURCE_INITIATIVE_U(LOCAL:2, 160, 80)
NEXT

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

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

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

RETURN 1

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

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

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

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

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

IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
ENDIF
IF TALENT:(ARG:0):汚臭鈍感
	CALL COM_ORDER_ELEMENT(ARG:0, "汚臭鈍感", 1)
ENDIF
IF TALENT:(ARG:0):汚臭敏感
	CALL COM_ORDER_ELEMENT(ARG:0, "汚臭敏感", -4)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 6)
ENDIF

RETURN 1

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE98
#DIMS 場所
#DIMS 内容
#DIMS 相手
#DIMS シチュ
;#DIMS 衣服
LOCALS:0 = %ANAME(MPLY:0)%
LOCALS:1 = %ANAME(MTAR:0)%

;-----------選択肢表示-----------

;PRINTFORML %LOCALS:1%に服を着せて送り出しますか？
;PRINTFORML [0] 服を着せる
;PRINTFORML [1] 服を着せない
;$INPUT_LOOP
;INPUT
;IF RESULT == 0
;	PRINTFORMW 服を着せることにしました
;	衣服 = 着衣
;ELSEIF RESULT == 1
;	PRINTFORMW 服を着せないことにしました
;	衣服 = 全裸
;ELSE
;	GOTO INPUT_LOOP
;ENDIF
;

IF MPLY:0 == MASTER
	PRINTFORML
	PRINTFORML %LOCALS:1%をどこに送り出しますか？
	CALL ASK_MULTI("歓楽街", "スラム", "公衆便所", "森林", "水辺", "温泉", "やめておく")
ELSE
	RESULT = RAND(0, 6)
ENDIF

IF RESULT == 0
	PRINTFORMW 人でごった返す歓楽街へ送り出します
	場所 = 歓楽街
ELSEIF RESULT == 1
	PRINTFORMW 治安の悪いスラムへ送り出します
	場所 = スラム
ELSEIF RESULT == 2
	PRINTFORMW 薄汚い公衆便所に送り出します
	場所 = 公衆便所
ELSEIF RESULT == 3
	PRINTFORMW 静かな森林へ送り出します
	場所 = 森林
ELSEIF RESULT == 4
	場所 = 水辺
	PRINTFORMW 遊泳地として人気の水辺へ送り出します
ELSEIF RESULT == 5
	場所 = 温泉
	PRINTFORMW 隠れ家的スポットの温泉へ送り出します
ELSEIF RESULT == 6
	PRINTFORMW やめておくことにした
	RETURN 0
ENDIF

PRINTFORML
CALL SINGLE_DRAWLINE
PRINTFORML
シチュ = 0
;-----------パターン選出-----------
SELECTCASE 場所
	CASE "歓楽街"
		SELECTCASE RAND:120
			CASE IS < 10
				相手 = チンピラ
			CASE IS < 20
				相手 = やくざ
			CASE IS < 40
				相手 = 老紳士
			CASE IS < 60
				相手 = 痴漢
			CASE IS < 80
				相手 = 子供
			CASE IS < 100
				相手 = 思春期の少年
			CASE IS < 110
				相手 = キモオタ
			CASEELSE
				相手 = 醜い男
		ENDSELECT
	CASE "スラム"
		SELECTCASE RAND:120
			CASE IS < 20
				相手 =
			CASE IS < 40
				相手 = 暴漢
			CASE IS < 60
				相手 = 浮浪者
			CASE IS < 80
				相手 = 変質者
			CASE IS < 100
				相手 = 薬の売人
			CASEELSE
				相手 = 薬物中毒者
		ENDSELECT
	CASE "公衆便所"
		SELECTCASE RAND:100
			CASE IS < 100
				相手 = 見知らぬ男
		ENDSELECT
	CASE "森林"
		SELECTCASE RAND:100
			CASE IS < 20
				相手 = 野盗
			CASE IS < 40
				相手 = 野良妖怪
			CASE IS < 60
				相手 = 子供
			CASE IS < 80
				相手 = 犬
			CASEELSE
				相手 = 猿
		ENDSELECT
	CASE "水辺"
		SELECTCASE RAND:60
			CASE IS < 20
				相手 = チャラ男
			CASE IS < 40
				相手 = 痴漢
			CASE IS < 50
				相手 = 脂ぎった中年
			CASEELSE
				相手 = ハゲた中年
		ENDSELECT
	CASE "温泉"
		SELECTCASE RAND:60
			CASE IS < 20
				相手 = 男性客
			CASE IS < 40
				相手 = 妻帯者
			CASEELSE
				相手 = マッサージ師
		ENDSELECT
ENDSELECT

;-----------テキスト表示-----------

SELECTCASE 場所
	CASE "歓楽街"
		PRINTFORMW %LOCALS:0%は%LOCALS:1%を歓楽街へ送り出した……
		PRINTFORMW %LOCALS:1%の美しさは、雑踏のなかでも目立ったようだ
		PRINTFORML
		SELECTCASE 相手
			CASE "チンピラ","やくざ"
				SELECTCASE RAND:2
					;ホテル
					CASE 0
						PRINTFORMW %LOCALS:1%は%相手%に声をかけられたようだ
						PRINTFORMW 肩に手を回され、%LOCALS:1%はなし崩し的に宿に連れ込まれた……
						PRINTFORML
						SELECTCASE RAND:4
							CASE 0
								PRINTFORMW %相手%は早速%LOCALS:1%をベッドに押し倒し、激しく交わっている
								PRINTFORMW その立派なモノによる雄々しい抽送は、%LOCALS:1%を雌に仕立て上げていく……
							CASE 1
								PRINTFORMW %相手%は%LOCALS:1%をねっとりとした腰遣いで責めている
								PRINTFORMW その熟練のテクニックは、%LOCALS:1%の本能を綻ばせ、甘い声をあげさせる……
							CASE 2
								PRINTFORMW 一通りの行為が終わったのち、%LOCALS:1%は%相手%のモノを口で清めていった
								PRINTFORMW 清め終わるころには、%相手%のモノはすっかり立派な姿を取り戻していた
								PRINTFORMW 興奮した%相手%は%LOCALS:1%を押し倒し、第二試合を始めた……
							CASE 3
								PRINTFORMW %LOCALS:1%は%相手%に覆い被さられ、激しく突き上げられている
								PRINTFORMW その野性的なピストンに、%LOCALS:1%の子宮はどんどん躾けられていく……
						ENDSELECT
						PRINTFORML
						SELECTCASE RAND:4
							CASE 0
								PRINTFORMW %LOCALS:1%は%相手%と連絡先を交換した
							CASE 1
								PRINTFORMW %LOCALS:1%はシャワーを浴びて帰った
							CASE 2
								PRINTFORMW %LOCALS:1%は%相手%とまた会う約束を交わした
							CASE 3
								PRINTFORMW %相手%はベッドに倒れ込んだ%LOCALS:1%を放置して帰った
						ENDSELECT
					;路地裏
					CASE 1
						PRINTFORMW %LOCALS:1%は%相手%に声をかけられたようだ
						PRINTFORMW 腕をひかれ、%LOCALS:1%は強引に路地裏に連れ込まれた……
						PRINTFORML
						SELECTCASE RAND:4
							CASE 0
								PRINTFORMW %相手%は%LOCALS:1%を、背面立位の姿勢で激しく犯している
								PRINTFORMW 二人の結合部からは、白濁と愛の蜜の混じった汁が滴り、地面を濡らしていく……
							CASE 1
								PRINTFORMW %LOCALS:1%は%相手%の前に跪き、一物を激しくしゃぶりたてている
								PRINTFORMW %相手%が射精すると、%LOCALS:1%は音を立てて白濁を飲み下していった
								PRINTFORMW その後、奉仕の褒美に、%相手%は何度も%LOCALS:1%に種付けを行ったようだ
							CASE 2
								PRINTFORMW %相手%は%LOCALS:1%の口を塞ぎ、激しく犯している
								PRINTFORMW その指の隙間から零れるのは、悲鳴ではなく甘い嬌声だ……
							CASE 3
								PRINTFORMW %LOCALS:1%を散々犯した後、%相手%はこの場で放尿するよう%LOCALS:1%に命じた
								PRINTFORMW %LOCALS:1%は大きく脚を開き、%相手%に見えるよう、雌の臭いを放つ黄金水を放った……
						ENDSELECT
						PRINTFORML
						SELECTCASE RAND:4
							CASE 0
								PRINTFORMW %相手%は股から白濁を垂れ流す%LOCALS:1%を撮影して帰った
							CASE 1
								PRINTFORMW %LOCALS:1%は路地裏のゴミの山に放り捨てられた
							CASE 2
								PRINTFORMW %LOCALS:1%は%相手%に恋人のように抱えられながら、路地裏からふらふらと出てきた
							CASE 3
								PRINTFORMW %相手%は路地裏のゴミの山に倒れ込んだ%LOCALS:1%を放置して帰った
						ENDSELECT
						シチュ = 強姦
				ENDSELECT
			CASE "老紳士"
				PRINTFORMW %LOCALS:1%は%相手%に声をかけられたようだ
				PRINTFORMW 巧みな話術にほだされ、%LOCALS:1%はなし崩し的に宿に連れ込まれた……
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW %相手%は%LOCALS:1%の首を絞めながら、激しく突き上げている
						PRINTFORMW 酸欠による快楽は、%LOCALS:1%を新たな領域へと連れて行く……
					CASE 1
						PRINTFORMW %相手%は%LOCALS:1%を縄で縛り上げ、じっくりと責め立てている
						PRINTFORMW その老獪なテクニックは、%LOCALS:1%のマゾヒズムを目覚めさせていく……
					CASE 2
						PRINTFORMW %相手%は%LOCALS:1%に尻穴を舐めさせている
						PRINTFORMW 清め終わるころには、%相手%のモノはすっかり立派な姿を取り戻していた
						PRINTFORMW 興奮した%相手%は%LOCALS:1%を押し倒し、犯し始めた……
					CASE 3
						PRINTFORMW %LOCALS:1%は%相手%に縛り上げられ、じっくりと焦らされている
						PRINTFORMW 昂ぶりを抑えられなくなった%LOCALS:1%は、とうとう自ら快楽をねだった……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW %LOCALS:1%は%相手%と連絡先を交換した
					CASE 1
						PRINTFORMW %LOCALS:1%はシャワーを浴びて帰った
					CASE 2
						PRINTFORMW %LOCALS:1%は%相手%とまた会う約束を交わした
					CASE 3
						PRINTFORMW %相手%はベッドに倒れ込んだ%LOCALS:1%を放置して帰った
				ENDSELECT
			CASE "痴漢"
				PRINTFORMW 雑踏の中で、%LOCALS:1%は%相手%に襲われたようだ
				PRINTFORMW 身動きもろくに取れない人混みの中で、%LOCALS:1%はいいように弄ばれている……
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW 人混みの中で、%LOCALS:1%は秘部に肉棒をねじ込まれてしまった
						PRINTFORMW そしてそのまま、抵抗もできないまま白濁を注がれてしまった……
					CASE 1
						PRINTFORMW %LOCALS:1%が肉棒を引き抜くと、白濁がとろりとこぼれ落ちた
						PRINTFORMW 大勢の人間のど真ん中で、%LOCALS:1%は%相手%に種付けされてしまった……
					CASE 2
						PRINTFORMW %相手%にたっぷり膣内射精された後、%LOCALS:1%は下着を奪われた
						PRINTFORMW %LOCALS:1%は秘裂から子種を零しながら、歩いて帰った……
					CASE 3
						PRINTFORMW %相手%は%LOCALS:1%の身体を弄り、官能を否応なしに高めていく
						PRINTFORMW 挿れて欲しいんだろう？　と耳元でささやかれ、%LOCALS:1%は恥も外聞もなく挿入をねだった……
				ENDSELECT
				シチュ = 強姦
			CASE "子供"
				PRINTFORMW %LOCALS:1%は迷子の%相手%と出くわした
				PRINTFORMW %LOCALS:0%は%LOCALS:1%に、%相手%を誘惑させた……
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW %LOCALS:1%は%相手%をホテルに連れ込んだようだ
						PRINTFORMW %相手%を優しくリードしながら、%LOCALS:1%は己の膣内で射精させた……
					CASE 1
						PRINTFORMW %LOCALS:1%は%相手%をホテルに連れ込んだようだ
						PRINTFORMW %相手%に未知の快楽を教え込みながら、%LOCALS:1%自身も絶頂に至った……
					CASE 2
						PRINTFORMW %LOCALS:1%は%相手%を路地裏に連れ込んだようだ
						PRINTFORMW 恥ずかしがる%相手%をよそに、%LOCALS:1%はノリノリで行為を終えた……
				ENDSELECT
				シチュ = 和姦
			CASE "思春期の少年"
				PRINTFORMW %LOCALS:1%は穴があれば何でも良さそうな%相手%に声をかけられた
				PRINTFORMW %LOCALS:0%は%LOCALS:1%に、%相手%の幼稚な誘いに乗り、宿へ同伴するよう命じた……
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW %相手%は胸に強い関心を見せ、%LOCALS:1%の胸を弄り、ねぶり、頬ずりをした
						PRINTFORMW %相手%は血走った眼で%LOCALS:1%の下着を脱がせ、生のまま乱暴にイチモツを捻じ込んだ
						PRINTFORMW 妊娠の可能性など顧みず%LOCALS:1%の膣内に思い切り射精すると、%相手%は腰砕けになりその場に崩れた……
					CASE 1
						PRINTFORMW %相手%は息を荒らげて%LOCALS:1%の服を脱がせようとしたが、上手くいかなかった……
						PRINTFORMW 自らの感情を押し殺し、%LOCALS:1%は進んで着衣をほどき、足元に一枚ずつ落としていった
						PRINTFORMW 脱衣を目の当たりにした%相手%は%LOCALS:1%に飛びつき、ビンビンにいきり立った肉棒を押し込んだ……
					CASE 2
						PRINTFORMW %相手%は若さを武器に力一杯%LOCALS:1%を突き続けていた
						PRINTFORMW %LOCALS:1%は痛みの方が強かったが、%LOCALS:0%の命令に従い、感じているフリを続ける
						PRINTFORMW 低い呻き声と共に精液が注ぎ込まれると、%LOCALS:1%は悲鳴を押さえ、膣を絞めつけて最後の一滴まで絞り出した……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW %LOCALS:1%は%相手%と連絡先を交換した
					CASE 1
						PRINTFORMW %LOCALS:1%はシャワーを浴びて帰った
					CASE 2
						PRINTFORMW %LOCALS:1%は%相手%とまた会う約束を交わした
					CASE 3
						PRINTFORMW %LOCALS:1%は%相手%と濃厚な口づけを交わし、自らの下着をお土産に渡して別れた
				ENDSELECT
				シチュ = 和姦
			CASE "キモオタ","醜い男"
				PRINTFORMW %LOCALS:1%は女性と縁を持てなさそうな%相手%を見かけたようだ
				PRINTFORMW %LOCALS:1%は強い嫌悪感を抱きつつも、%LOCALS:0%の命令通り%相手%を誘惑した……
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW %LOCALS:1%は%相手%に近づくと、履いているスカートをまくりあげて下着を露出させた
						PRINTFORMW 驚く%相手%に対し、羞恥に顔を染める%LOCALS:1%は「遊んでほしい」と震える声で言葉を続ける
						PRINTFORMW %相手%は逡巡し、周囲を見回すと、表情を一層醜く歪ませ、%LOCALS:1%の手を取り宿へ向かった……
					CASE 1
						PRINTFORMW %LOCALS:1%は%相手%に声をかけ、おもむろに胸を露出させた
						PRINTFORMW 涙目で紅潮する%LOCALS:1%はギョッとする%相手%の腕を掴み、自らの胸に%相手%の手を押し付けた
						PRINTFORMW この胸のドキドキを止めて欲しい……そう伝えると、%相手%はコクコクと頷き、%LOCALS:1%の肩を抱いて宿へ入っていった……
					CASE 2
						PRINTFORMW %LOCALS:1%は%相手%に暇なら一緒に遊ばないかと声をかけた
						PRINTFORMW 突然の出来事に困惑する%相手%の腕に抱き着き、%LOCALS:1%は耳元で「寂しさを紛らわせてほしい」と吐息たっぷりに囁いた
						PRINTFORMW %相手%は%LOCALS:1%をジロジロと見定め、ニヤリと笑うと%LOCALS:1%の腰に手を回して宿へと歩き始めた……
					CASE 3
						PRINTFORMW %LOCALS:1%が近づくと、逆に%相手%の方から「俺と遊ばない？」と声をかけられた
						PRINTFORMW %LOCALS:1%は泣きそうになるのを堪えながら小さく頷き、%相手%と共に宿へ入った……
				ENDSELECT
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW %相手%は%LOCALS:1%の膣内に何度目になるか分からない射精をした
						PRINTFORMW %LOCALS:1%は自らの体内で肉槍が脈打つのを感じ、目の前の%相手%と1つになっていることを実感させられている
						PRINTFORMW %相手%はイチモツを抜くこともなく、ヌチャ、ヌチャッ、と厭らしい音を立てながら再び腰を振り出した……
					CASE 1
						PRINTFORMW %相手%は%LOCALS:1%に猛然と腰を打ち付けながら、熱烈に唇を吸っていた
						PRINTFORMW 互いの舌の裏を舐め合い、ナメクジのように互いの舌を絡め合わせ、唾液を交換して口内でクチュクチュと混ぜ合わせる
						PRINTFORMW やがて、濃密な口淫の中、%相手%は生臭い溜息と共に%LOCALS:1%の中に精を吐き出していった……
					CASE 2
						PRINTFORMW %相手%は騎乗位で腰を振る%LOCALS:1%との結合部を手持ちのカメラで何度も撮影していた
						PRINTFORMW 我慢の限界を迎えた%相手%は、気兼ねなく存分にザーメンを%LOCALS:1%の膣内にぶちまけた
						PRINTFORMW 膣内射精された証拠と言わんばかりに、%相手%は感情を押し殺した表情の%LOCALS:1%と白く汚れた結合部をフィルムに収めた……
					CASE 3
						PRINTFORMW %LOCALS:1%は%相手%の趣味でアニメキャラのコスプレをさせられている
						PRINTFORMW %相手%は%LOCALS:1%の膣内を行ったり来たりしながら、アニメキャラの名前を何度も呼んでいる
						PRINTFORMW 「自分との子供を産んでくれ」耳元でそう囁かれた%LOCALS:1%は肌が粟立つのを感じながら%相手%の精液をたっぷり注ぎ込まれた……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 帰ってきた%LOCALS:1%は、あまり詳細を語りたがらなかった……
					CASE 1
						PRINTFORMW 体中に白濁を残したまま、%LOCALS:1%はあえて人通りの多い道を通って帰らされた……
					CASE 2
						PRINTFORMW %LOCALS:1%は膣内から零れ出るザーメンを拭き取ることも許されないまま人混みの中で解放された……
				ENDSELECT
				シチュ = 和姦
		ENDSELECT
	CASE "スラム"
		PRINTFORMW %LOCALS:0%は%LOCALS:1%を危険なスラムへ送り出した……
		PRINTFORMW %LOCALS:1%の美しさは、物陰に潜む怪しげな連中の目をひいたようだ
		PRINTFORML
		SELECTCASE 相手
			CASE "暴漢"
				SELECTCASE RAND:2
					CASE 0
						PRINTFORMW %LOCALS:1%は複数の%相手%に襲いかかられた
						PRINTFORMW 路地裏に逃げた%LOCALS:1%だが、袋小路に追い詰められてしまった……
						PRINTFORML
						SELECTCASE RAND:2
							CASE 0
								PRINTFORMW %相手%どもは%LOCALS:1%をレイプしている
								PRINTFORMW 両穴を穿たれて絶頂する%LOCALS:1%を嘲笑いながら、%相手%は何度も白濁を注ぎ込んだ
							CASE 1
								PRINTFORMW %相手%どもは%LOCALS:1%を輪姦している
								PRINTFORMW 膣穴をひたすらに抉る一方、喉奥を亀頭でごりごりと突いている……
						ENDSELECT
						PRINTFORML
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMW あらゆる穴から白濁を垂れ流す%LOCALS:1%を放置し、%相手%は立ち去った……
							CASE 1
								PRINTFORMW ゴミの山に%LOCALS:1%を放り捨て、%相手%たちは立ち去った……
							CASE 2
								PRINTFORMW 激しい陵辱の末に気絶した%LOCALS:1%に唾を吐きかけ、%相手%は立ち去った……
						ENDSELECT
						シチュ = 輪姦
					CASE 1
						PRINTFORMW %LOCALS:1%は背後から%相手%に襲いかかられ、気を失ってしまった
						PRINTFORMW %相手%は%LOCALS:1%を自らのねぐらに連れ込み、犯し始めた……
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMW %相手%は気絶している%LOCALS:1%の雌穴を犯している
								PRINTFORMW %LOCALS:1%は意識のないまま、見知らぬ相手に種付けされてしまった……
							CASE 1
								PRINTFORMW %相手%は気絶している%LOCALS:1%の喉を犯している
								PRINTFORMW 窒息のリスクもおかまいなしに喉奥に精を放つと、次は膣穴、尻穴を陵辱しはじめた……
							CASE 2
								PRINTFORMW 陵辱の途中で目を覚ました%LOCALS:1%だったが、無駄だった
								PRINTFORMW 縄でがんじがらめに縛り上げられた%LOCALS:1%は、そのまま%相手%に犯されるしかなかった……
						ENDSELECT
						PRINTFORML
						SELECTCASE RAND:2
							CASE 0
								PRINTFORMW 満足した%相手%は、道ばたに%LOCALS:1%を放り捨てた……
							CASE 1
								PRINTFORMW 満足した%相手%は、白濁まみれの%LOCALS:1%を路地裏に放置して帰った……
						ENDSELECT
						シチュ = 強姦
				ENDSELECT
			CASE "浮浪者"
				SELECTCASE RAND:2
					CASE 0
						PRINTFORMW %LOCALS:1%は%相手%に目を付けられたようだ
						PRINTFORMW 油断した%LOCALS:1%は、%相手%に強引に物陰へ連れ込まれた……
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMW %相手%は恥垢まみれの汚れたペニスを%LOCALS:1%の秘裂にねじ込んでいる
								PRINTFORMW そして、薄汚い白濁が%LOCALS:1%の膣内にたっぷりと注ぎ込まれた……
							CASE 1
								PRINTFORMW %相手%は悪臭放つ薄汚いペニスを%LOCALS:1%の口にねじ込んでいる
								PRINTFORMW 柔らかな唇の感触を楽しみながら、恥垢をこそげ落としていく……
							CASE 2
								PRINTFORMW %LOCALS:1%を組み敷いた%相手%は、%LOCALS:1%に覆い被さり強烈なピストンを繰り出している
								PRINTFORMW 子宮まで貫くような抽送に、%LOCALS:1%は犯されているというのに圧倒的な快楽を覚えてしまっている……
						ENDSELECT
						PRINTFORML
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMW あらゆる穴から白濁を垂れ流す%LOCALS:1%を放置し、%相手%は立ち去った……
							CASE 1
								PRINTFORMW ゴミの山に%LOCALS:1%を放り捨て、%相手%たちは立ち去った……
							CASE 2
								PRINTFORMW 激しい陵辱の末に気絶した%LOCALS:1%に唾を吐きかけ、%相手%は立ち去った……
						ENDSELECT
						シチュ = 強姦
					CASE 1
						PRINTFORMW %LOCALS:1%は%相手%の溜まり場に迷い込んでしまった
						PRINTFORMW %相手%が%LOCALS:1%のような「上玉」を逃すはずもなく、%LOCALS:1%はあっという間に群がられた……
						PRINTFORML
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMW %LOCALS:1%は悪臭を放つペニスをあらゆる穴にねじ込まれている
								PRINTFORMW その臭いにえづきながらも、性交の快楽に%LOCALS:1%は何度も絶頂し、子種を注がれた……
							CASE 1
								PRINTFORMW %LOCALS:1%は肉棒をその身体のあらゆるところに押しつけられている
								PRINTFORMW 濃厚すぎる雄の臭いが、%LOCALS:1%の肌に染みついていく……
							CASE 2
								PRINTFORMW 一時間もすると、%LOCALS:1%の身体は精液で汚れていないところはないほどにされてしまっていた
								PRINTFORMW それでもなお、女日照りの%相手%どもは満足することはなく、なおも%LOCALS:1%を犯し続ける……
						ENDSELECT
						PRINTFORML
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMW ようやく解放されたころには、%LOCALS:1%はあらゆる穴から白濁を垂れ流していた……
							CASE 1
								PRINTFORMW ようやく解放されたころには、%LOCALS:1%の身体には%相手%と同じような臭いが染みついていた……
							CASE 2
								PRINTFORMW 定期的に自分たちの性処理に来るという約束と引き換えに、%LOCALS:1%はようやく解放してもらった……
						ENDSELECT
						シチュ = 輪姦
				ENDSELECT
			CASE "変質者"
				PRINTFORMW %LOCALS:1%は%相手%に出くわしたようだ
				PRINTFORMW %LOCALS:1%は%相手%の露出プレイに付き合わされたようだ……
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW %LOCALS:1%は%相手%と一緒に路地裏で露出プレイに及んだようだ
						PRINTFORMW 露出の快楽に昂ぶった二人は、興奮のままに青姦に至った……
					CASE 1
						PRINTFORMW %相手%に求められ、%LOCALS:1%は路地裏で自慰に及んだ
						PRINTFORMW 興奮した%相手%に迫られ、%LOCALS:1%はなし崩し的に性交した……
					CASE 2
						PRINTFORMW 身体を縄で縛り、両穴にバイブを埋めた姿で、%LOCALS:1%はそこら中を歩き回った
						PRINTFORMW 興奮した%相手%は、その途中で何度も%LOCALS:1%の穴を使った……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 露出の快感を覚えた%LOCALS:1%は、また会う約束を取り付けたようだ
					CASE 1
						PRINTFORMW 露出の快感のさめやらぬ%LOCALS:1%は、その後もしばらく自慰にふけっていた
					CASE 2
						PRINTFORMW 自分のしていることが異常だと分かってはいても、%LOCALS:1%は行為にハマってしまったようだ
				ENDSELECT
				シチュ = 和姦
			CASE "薬の売人"
				PRINTFORMW %LOCALS:1%は%相手%に出くわしたようだ……
				PRINTFORMW 疲れの取れる薬を処方してもらったようだ
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 薬をさっそく使ってみた%LOCALS:1%は、完全にトリップしてしまった
						PRINTFORMW だらしない雌の顔をさらしてアヘる%LOCALS:1%を、%相手%は好き放題にしている……
					CASE 1
						PRINTFORMW 薬を使った%LOCALS:1%は発情を抑えられなくなり、%相手%に犯してくれるよう頼んだ
						PRINTFORMW 思うつぼになった%相手%は、げたげた笑いながら%LOCALS:1%を何度も犯していった……
					CASE 2
						PRINTFORMW 薬を使った%LOCALS:1%は、たちまち眠り込んでしまった
						PRINTFORMW 意識のない%LOCALS:1%の雌穴を、%相手%は好き放題に犯し始めた……
				ENDSELECT
				CFLAG:(MTAR:0):薬物依存 += RAND(10, 30)
				シチュ = 強姦
			CASE "薬物中毒者"
				PRINTFORMW %LOCALS:1%は心底嫌がっていたが、%LOCALS:0%に命じられ半べそで%相手%に声をかけた
				PRINTFORMW %相手%は焦点の合わない目で呻くばかりだったので、%LOCALS:1%から%相手%を押し倒した……
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW %LOCALS:1%は%相手%の上で腰を振り、その精を子宮で直接受けた
						PRINTFORMW 射精が止まるまでじっくりと腰を動かし続け、ペニスが萎えることを許さなかった
						PRINTFORMW コトが終わった後も、子宮に精子が馴染むよう、しばらく繋がったままでいた……
					CASE 1
						PRINTFORMW %LOCALS:1%は触れたくもない%相手%の男性器を、その全身で受け入れさせられている
						PRINTFORMW パンパンと肉のぶつかる音を響かせながら、%LOCALS:1%は必死に腰を上下させている
						PRINTFORMW ふと、顔を上げると複数の人間が%LOCALS:1%と%相手%の交尾をニヤニヤと眺めていた
						PRINTFORMW 羞恥に染まる%LOCALS:1%は、多くの人に見られながら%相手%の精子を受け入れ、絶頂した……
					CASE 2
						PRINTFORMW %LOCALS:1%が%相手%の男根に跨ると同時に、%相手%は必死の抵抗を始め、%LOCALS:1%を逆に押し倒した
						PRINTFORMW %相手%は興奮した様子で%LOCALS:1%の首を思い切り絞め、言葉にならない言葉を叫んでいる
						PRINTFORMW %LOCALS:1%が死を予感した瞬間、%相手%との結合部に熱が広がり、%相手%は脱力して倒れ込んだ……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW %LOCALS:1%は本当に%相手%の子を宿してしまうかもしれないと想像し、涙目になっていた
					CASE 1
						PRINTFORMW %LOCALS:1%は脱兎のごとくその場から逃げ出した
					CASE 2
						PRINTFORMW %相手%が%LOCALS:1%を掴もうとしてきたので、%LOCALS:1%は悲鳴を上げて走り去った
				ENDSELECT
				シチュ = 和姦
		ENDSELECT
	CASE "公衆便所"
		PRINTFORMW %LOCALS:1%は%場所%で肉便器になってきたようだ……
		SIF GETBIT(TALENT:(MTAR:0):淫乱系, 素質_淫乱_精液便女)
			PRINTFORMW 精液便女である%LOCALS:1%は、使って「いただける」悦びに身を震わせている……
		PRINTFORML
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW %相手%たちは便器に縛り付けられた%LOCALS:1%たちを、好き放題に使っている
				PRINTFORMW 何度目かも分からぬ射精を受け、%LOCALS:1%はまたも絶頂した……
			CASE 1
				PRINTFORMW すえた臭いの漂う便所で、%LOCALS:1%は%相手%どもに好き放題に使われている
				PRINTFORMW 雌穴、尻穴、乳房、口、髪に手に足と、全てペニスの処理に使われている……
			CASE 2
				PRINTFORMW %相手%たちに使われる%LOCALS:1%は、目を垂れ下げ、悦びを感じている
				PRINTFORMW その口に何発目かの白濁が注がれると、%LOCALS:1%は音を立ててそれを啜った……
		ENDSELECT
		PRINTFORML
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「便所」の仕事を終えた%LOCALS:1%は、白濁を垂れ流す雌穴をぐちゅぐちゅと掻き回している……
			CASE 1
				PRINTFORMW %相手%が立ち去った後も、%LOCALS:1%は虚ろな笑みを浮かべながら肉棒をねだっていた……
			CASE 2
				PRINTFORMW 全身白濁まみれになった%LOCALS:1%は、この上なく淫蕩な笑みを浮かべている……
		ENDSELECT
		シチュ = 輪姦
		EXP:(MTAR:0):輪姦経験 += RAND(3, 5)
	CASE "森林"
		PRINTFORMW %LOCALS:0%は%LOCALS:1%を森林に送り出した……
		PRINTFORML
		SELECTCASE 相手
			CASE "野盗", "野良妖怪"
				PRINTFORMW %LOCALS:1%は%相手%どもに出くわしたようだ
				PRINTFORMW 逃げようとした%LOCALS:1%だが、数には敵わず、捕らえられてしまった……
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW 組み伏せられた%LOCALS:1%は、%相手%に好き放題に犯されている
						PRINTFORMW 抵抗もむなしく、その膣に下衆の白濁が注がれてしまった……
					CASE 1
						PRINTFORMW 組み伏せられた%LOCALS:1%は暴れるが、%相手%どもはその手足を押さえつけ、組み敷く
						PRINTFORMW 無駄な抵抗を嘲笑いながら、%相手%どもは%LOCALS:1%の身体を白く汚していく……
					CASE 2
						PRINTFORMW %相手%どものねぐらに連れ込まれた%LOCALS:1%は、%相手%一人一人の相手をさせられている
						PRINTFORMW 激しい抽送のたび、%LOCALS:1%の雌穴からは既に何発と放たれている精液がぶぢゅぶぢゅと溢れ出している……
					CASE 3
						PRINTFORMW %相手%どもは%LOCALS:1%を取り囲み、我先にと犯している
						PRINTFORMW %LOCALS:1%が朦朧とし、気を失おうとも、陵辱は終わることはなかった……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 性処理に使われぼろぼろになった%LOCALS:1%は、そこらに放置された……
					CASE 1
						PRINTFORMW 何度も犯され白濁まみれの%LOCALS:1%は、そこらの茂みに放っておかれた……
					CASE 2
						PRINTFORMW 気を失った%LOCALS:1%に唾を吐き、%相手%は%LOCALS:1%をそこらに捨てていった……
				ENDSELECT
				シチュ = 輪姦
			CASE "子供"
				PRINTFORMW %LOCALS:1%は迷子の%相手%に出会った
				PRINTFORMW %LOCALS:0%は%LOCALS:1%に命じ、%相手%を誘惑させた……
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 茂みの陰で、%LOCALS:1%は%相手%と性交渉に及んでいる
						PRINTFORMW 自ら腰を振りたくり、未熟な精を何度も搾り取った……
					CASE 1
						PRINTFORMW %相手%はその外見から想像もつかない巨根の持ち主だった
						PRINTFORMW 雌穴をごりごりと押し広げられながら、%LOCALS:1%はヨガり狂い、何度も絶頂に導いた……
					CASE 2
						PRINTFORMW %LOCALS:1%は%相手%のモノを口で何度も搾り取っている
						PRINTFORMW 若い精の味を散々堪能したあとで、今度は下の口で堪能した……
				ENDSELECT
				PRINTFORML
				PRINTFORMW その後、%LOCALS:1%は%相手%を家まで送り届けてやった
				シチュ = 和姦
			CASE "犬"
				PRINTFORMW %LOCALS:1%は%相手%に出くわした
				PRINTFORMW 頭でも撫でてやるかと近寄った%LOCALS:1%だが、%相手%は興奮し、押し倒してきた……
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 押し倒した%LOCALS:1%を四つん這いにさせ、%相手%は後ろから犯している
						PRINTFORMW 人のそれとは違う形状をしたペニスに、%LOCALS:1%は目を白黒させて喘いでいる……
					CASE 1
						PRINTFORMW %LOCALS:1%は後ろからがつがつと貫かれている
						PRINTFORMW 畜生に犯されることに屈辱を覚えながらも、野性的なセックスに身体は屈してしまっている……
					CASE 2
						PRINTFORMW %LOCALS:1%は%相手%に膣内射精されている
						PRINTFORMW 畜生の精液に汚されているというのに、女の身体は反応し、%LOCALS:1%はだらしなくヨガってしまう……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 膣穴から白濁を垂れ流す%LOCALS:1%をよそに、%相手%はその場を立ち去った……
					CASE 1
						PRINTFORMW 満足した%相手%が肉穴からペニスを引き抜くと、征服の証がとろりとこぼれ落ちた……
					CASE 2
						PRINTFORMW 満足した%相手%は、呆然と横たわる%LOCALS:1%にマーキング代わりに尿をひっかけ、立ち去った……
				ENDSELECT
				シチュ = 強姦
				EXP:(MTAR:0):獣姦経験 += RAND(3, 8)
			CASE "猿"
				PRINTFORMW %LOCALS:1%は突然%相手%に引き倒された
				PRINTFORMW 野生の強靭な筋力に任せて%相手%は%LOCALS:1%を好き勝手にし始めた……
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW %LOCALS:1%は%相手%に力づくで押さえられたまま正常位でペニスを抜き差しされている
						PRINTFORMW %相手%の生殖器が震え、白い奔流が注がれると同時に%LOCALS:1%は絶頂してしまった
						PRINTFORMW 低知能な生物に好き放題嬲られていることに呆然としたまま、二回戦が始まった……
					CASE 1
						PRINTFORMW %相手%は%LOCALS:1%に覆いかぶさり、腰をヘコヘコと振っている
						PRINTFORMW %LOCALS:1%がチラと視線を余所にやると、そこには偶然人が通りかかっていた
						PRINTFORMW 目線で助けを求めるも、通りがかりの人は軽蔑するような眼差しで遠ざかっていった……
					CASE 2
						PRINTFORMW %相手%の肉棒がチュポン、と音を立てて%LOCALS:1%の膣から抜かれた
						PRINTFORMW %相手%の形を残した陰部からはドロリと白濁が垂れており、たっぷり楽しんだ痕跡が残されていた
						PRINTFORMW %LOCALS:1%は%LOCALS:0%に命じられるまま、%相手%に土下座して「気持ちよくしてくれてありがとうございます」と謝辞を述べた……
					CASE 3
						PRINTFORMW %相手%は女陰からザーメンを垂れ流す%LOCALS:1%を放ると、%LOCALS:1%の衣服を全て持ってどこかへ去った
						PRINTFORMW 残された%LOCALS:1%は手で胸と股間を隠し、フラフラと出口へ向かった
						PRINTFORMW 道中、人が通りかかるたびに見つからないかとドキドキしながら息を潜めていた……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW %LOCALS:1%は涙ながらに%相手%のちんぽがどのような感覚だったかを報告した
					CASE 1
						PRINTFORMW %LOCALS:1%は%相手%に屈した事実を脳内で反芻していたが、やがて事実を受け入れ、シクシクと泣いた
					CASE 2
						PRINTFORMW %LOCALS:1%は%相手%との相の子ができたらどうなってしまうのだろうかと不安を隠しきれない様子だ
				ENDSELECT
				シチュ = 強姦
		ENDSELECT
	CASE "水辺"
		PRINTFORMW %LOCALS:0%は%LOCALS:1%を遊泳場として人気の水辺に送り出した……
		PRINTFORMW %LOCALS:1%の美しさは、周囲の目を否応なしに引きつけたようだ……
		PRINTFORML
		SELECTCASE 相手
			CASE "チャラ男"
				PRINTFORMW %LOCALS:1%は%相手%に声をかけられたようだ
				SELECTCASE RAND:2
					CASE 0
						PRINTFORMW 肩に手を回され、なし崩し的に岩陰に連れ込まれた……
						PRINTFORML
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMW 岩に手をついた%LOCALS:1%は、後ろから%相手%にがつがつと突き上げられている
								PRINTFORMW 冷たい水に半身浸かった中で、肉穴に熱い粘りが注ぎ込まれた……
							CASE 1
								PRINTFORMW %相手%は%LOCALS:1%の口を塞ぎ、激しく犯している
								PRINTFORMW 指の隙間からは、隠しきれない甘い声がこぼれ落ちている……
							CASE 2
								PRINTFORMW 岩に腰掛けた%相手%の前に跪き、%LOCALS:1%はペニスにしゃぶりついている
								PRINTFORMW すっかり硬くなったペニスで、%相手%は%LOCALS:1%を犯し始めた……
						ENDSELECT
						PRINTFORML
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMW 連絡先を交換し、%LOCALS:1%は%相手%と分かれた
							CASE 1
								PRINTFORMW %相手%がペニスを引き抜くと、白濁が雌穴から水面へとこぼれ落ちた……
							CASE 2
								PRINTFORMW 冷たい水で冷えてしまった身体を、二人は再びまぐわって暖めた……
						ENDSELECT
						シチュ = 和姦
					CASE 1
					;ホテル
						PRINTFORMW 肩に手を回され、%LOCALS:1%はなし崩し的に宿に連れ込まれた……
						PRINTFORML
						SELECTCASE RAND:4
							CASE 0
								PRINTFORMW %相手%は早速%LOCALS:1%をベッドに押し倒し、激しく交わっている
								PRINTFORMW その立派なモノによる雄々しい抽送は、%LOCALS:1%を雌に仕立て上げていく……
							CASE 1
								PRINTFORMW %相手%は%LOCALS:1%をねっとりとした腰遣いで責めている
								PRINTFORMW 若者特有の情熱的なテクニックは、%LOCALS:1%の本能を綻ばせ、甘い声をあげさせる……
							CASE 2
								PRINTFORMW 一通りの行為が終わったのち、%LOCALS:1%は%相手%のモノを口で清めていった
								PRINTFORMW 清め終わるころには、%相手%のモノはすっかり立派な姿を取り戻していた
								PRINTFORMW 興奮した%相手%は%LOCALS:1%を押し倒し、第二試合を始めた……
							CASE 3
								PRINTFORMW %LOCALS:1%は%相手%に覆い被さられ、激しく突き上げられている
								PRINTFORMW その野性的なピストンに、%LOCALS:1%の子宮はどんどん躾けられていく……
						ENDSELECT
						PRINTFORML
						SELECTCASE RAND:4
							CASE 0
								PRINTFORMW %LOCALS:1%は%相手%と連絡先を交換した
							CASE 1
								PRINTFORMW %LOCALS:1%はシャワーを浴びて帰った
							CASE 2
								PRINTFORMW %LOCALS:1%は%相手%とまた会う約束を交わした
							CASE 3
								PRINTFORMW %相手%はベッドに倒れ込んだ%LOCALS:1%を放置して帰った
						ENDSELECT
				ENDSELECT
				シチュ = 和姦
			CASE "痴漢"
				PRINTFORMW 水着姿で泳いでいると、%LOCALS:1%は%相手%に襲われたようだ
				PRINTFORMW 身動きもろくに取れない水中で、%LOCALS:1%はいいように弄ばれている……
				PRINTFORML
				SELECTCASE RAND:5
					CASE 0
						PRINTFORMW 水中で、%LOCALS:1%は秘部に肉棒をねじ込まれてしまった
						PRINTFORMW 周囲に気取られないよう平静を装う%LOCALS:1%だが、水面下では肉穴をペニスが激しく犯している……
					CASE 1
						PRINTFORMW %LOCALS:1%が肉棒を引き抜くと、白濁がどろりと水中に流れ出していった
						PRINTFORMW 大勢の人間のど真ん中で、%LOCALS:1%は%相手%に種付けされてしまった……
					CASE 2
						PRINTFORMW %相手%にたっぷり膣内射精された後、%LOCALS:1%は水着を奪われた
						PRINTFORMW %LOCALS:1%は%LOCALS:0%が迎えに来るまで、水からあがることができなかった……
					CASE 3
						PRINTFORMW %相手%は%LOCALS:1%の身体を弄り、官能を否応なしに高めていく
						PRINTFORMW 挿れて欲しいんだろう？　と耳元でささやかれ、%LOCALS:1%は恥も外聞もなく挿入をねだった……
					CASE 4
						PRINTFORMW 突然%相手%が%LOCALS:1%の水着を奪い取り、猛然と逃げ出した
						PRINTFORMW %LOCALS:1%は慌てて後を追おうとするが、周囲の男性たちが%LOCALS:1%をジロジロと見ていることに気が付いた
						PRINTFORMW %LOCALS:1%は2本の細腕で身体を隠し、羞恥に顔を染めながら%相手%を追った
						PRINTFORMW ようやく追いついた%LOCALS:1%は、%相手%に水着と引き換えに身体を求められた……
				ENDSELECT
				シチュ = 強姦
			CASE "脂ぎった中年","ハゲた中年"
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW %LOCALS:1%は真っ裸で肌を焼くよう命令された
						PRINTFORMW 恥ずかしがる%LOCALS:1%は肌を隠すことを許されず、その裸体を無抵抗に晒し続けた
						PRINTFORMW そのうち、%LOCALS:1%は%相手%に声をかけられ、断り切れずに宿へ連れ帰られた……
					CASE 1
						PRINTFORMW %LOCALS:1%は波打ち際で別の水着に着替えるよう命じられた
						PRINTFORMW %LOCALS:1%は自らの四肢に視線が集中するのを感じ、耳まで真っ赤になりながら脱衣を始めた
						PRINTFORMW 着替えの途中、我慢できなくなった%相手%が%LOCALS:1%に抱き着き、そのまま押し倒した……
					CASE 2
						PRINTFORMW %LOCALS:1%はドアを全開にしたままシャワーを浴びるよう指示された
						PRINTFORMW 羞恥に身をよじる度に柔らかな身体がふるふると揺れ、通りがかりのオスを誘惑する
						PRINTFORMW やがて、本人の意に反することなど関係なく、%LOCALS:1%は%相手%にシャワー内で襲われた……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW %LOCALS:1%は%相手%の太いペニスに貫かれ、言葉を発することも出来ないでいる
						PRINTFORMW %LOCALS:1%は%相手%の醜い容貌に強い嫌悪感を覚えていたが、強く突かれるたびに視界が点滅し、硬く閉じた口から喘ぎ声が漏れた
						PRINTFORMW %相手%がスパートをかけると、%LOCALS:1%の身体はその意に反して子宮口を開き、受精の準備を整えた……
					CASE 1
						PRINTFORMW %LOCALS:1%は先ほどまで自らの膣内を暴れまわっていた肉棒にキスをし、舐め清めていった
						PRINTFORMW 再び%相手%のペニスがビンビンにそそり立つと、%LOCALS:1%は腰を振りながら男性器に秘貝を擦り付けて挿入をおねだりした
						PRINTFORMW %相手%は矢も楯もたまらず、勢いよく怒張を%LOCALS:1%の膣内に突き立てた……
					CASE 2
						PRINTFORMW %LOCALS:1%は膣内を%相手%の生殖器にゴリゴリと刺激され、ビクビクと痙攣していた
						PRINTFORMW %LOCALS:1%はこんな%相手%と結ばれることなど心底嫌ではあったが、激烈な悦楽のさなかにあっては思考もままならない
						PRINTFORMW %相手%は鈴口を子宮口にあてがうと、濃厚な精液を%LOCALS:1%の最も大切な部分に直接注入した……
					CASE 3
						PRINTFORMW %相手%は数度目の射精をしながら、なおも腰を振り続けていた
						PRINTFORMW %LOCALS:1%の膣内には精液が充満し、ヒダの隙間にもギッシリと%相手%の子種が擦り込まれていた
						PRINTFORMW %相手%と%LOCALS:1%が接触するたびにニチャ、ニチャと発情した男女の繋がっている音が響く
						PRINTFORMW %LOCALS:1%は無意識に自ら相手に合わせて腰を動かし、%相手%の遺伝子を受け入れるために動いていた……
				ENDSELECT
				シチュ = 和姦
		ENDSELECT
	CASE "温泉"
		PRINTFORMW %LOCALS:0%は%LOCALS:1%を隠れ家的スポットの温泉に送り出した……
		PRINTFORMW %LOCALS:1%の美しさは、周囲のオスを魅了するには十分だったようだ……
		PRINTFORML
		SELECTCASE 相手
			CASE "男性客"
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW %LOCALS:1%はタオル1枚で男湯に入り、手ごろな%相手%の身体を洗ってくるよう命令された
						PRINTFORMW %相手%たちは闖入者にギョッとしていたが、%LOCALS:1%が1人の背中を流し始めると、皆前傾姿勢で眺め始めた
						PRINTFORMW 背中を洗い終えた%LOCALS:1%に対し、%LOCALS:0%はペニスを膣で洗ってやるよう追加発注した
						PRINTFORMW 顔を真っ赤にして%LOCALS:1%がその意を伝えると、%相手%はコクコクと首を振り、%LOCALS:1%の腰に手を回した……
					CASE 1
						PRINTFORMW %LOCALS:1%はバスタオルのみで男湯に入り、何をされても抵抗しないよう命じられた
						PRINTFORMW 男湯の客たちは男湯に入ってきた%LOCALS:1%をジロジロと眺め、股間を盛り上げていた
						PRINTFORMW やがて客の1人が%LOCALS:1%の胸に触ったが、%LOCALS:1%はあくまで無抵抗でいた
						PRINTFORMW %LOCALS:1%はバスタオルを取り上げられても抵抗できず、直に胸や尻を揉みしだかれても何もできない
						PRINTFORMW %相手%は立ち上がると%LOCALS:1%の眼前にペニスを突き付け、奉仕するよう命じた……
					CASE 2
						PRINTFORMW %LOCALS:0%が%LOCALS:1%と共に男湯に浸かっていると、当然ながら強烈な好奇の目で見られることとなった
						PRINTFORMW %LOCALS:0%は適当な客の1人に声をかけ、「金を払えば%LOCALS:1%を好きにしてもいい」と伝えた
						PRINTFORMW %相手%は%LOCALS:1%の肢体を見てゴクリと唾を飲み、交渉は成立した……
					CASE 3
						PRINTFORMW %LOCALS:0%は%LOCALS:1%にタオル1枚で来客と応対するよう命じた
						PRINTFORMW %相手%は%LOCALS:1%の恰好に釘づけであり、%LOCALS:0%は%LOCALS:1%に前かがみになるようさらに命じた
						PRINTFORMW 女性特有のシャープなラインがタオル越しに浮き彫りとなり、%相手%は顔を背けた
						PRINTFORMW %LOCALS:1%はタオルが落ちるのも気にせず%相手%の手を取り、「寂しさを紛らわせてほしい」と頼むと、%相手%は%LOCALS:1%を押し倒してきた……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW %LOCALS:1%は後背位で%相手%と獣のように交わっている
						PRINTFORMW ペニスが抜けるほど腰を引いたかと思うと、次の瞬間にはずっぷりと奥深くまで突き込まれる
						PRINTFORMW 連続して押し寄せる快楽の波に、%LOCALS:1%は子宮が下りてくるのを感じた
						PRINTFORMW %LOCALS:1%が絶頂すると同時に、%相手%の鈴口からドロドロとしたザーメンが注ぎ込まれた……
					CASE 1
						PRINTFORMW %LOCALS:1%は%相手%の男根をペロペロとアイスキャンデーのように舐めていた
						PRINTFORMW 玉の方から先端まで、裏筋を舌でなぞり上げ、鈴口を舌先でチロチロとほじくると、%相手%の腰がビクッと引かれた
						PRINTFORMW %LOCALS:1%は%相手%の竿をねぶり続け、肉棒が震え、ひときわ大きくなったところで口を離した
						PRINTFORMW 息を荒らげる%相手%に股を開き、挿入をねだると、%相手%はガチガチの怒張を%LOCALS:1%に突き入れた……
					CASE 2
						PRINTFORMW %LOCALS:1%は騎乗位で%相手%と繋がっている
						PRINTFORMW 既に膣内に出された精液と%LOCALS:1%の愛液が、ピストンの度にグチュグチュと膣内で混ぜられていく
						PRINTFORMW 性交特有の粘ついた音を響かせ、%LOCALS:1%は%相手%の肉槍を自らの膣をもって磨き続けた……
					CASE 3
						PRINTFORMW %LOCALS:1%は今日初めて会った%相手%と、ゴムもつけずに生でセックスをしている
						PRINTFORMW %相手%の動きが止まると、腰を震わせてビュルビュルと気持ちよさそうに精を%LOCALS:1%の膣内に吐き出していく
						PRINTFORMW %LOCALS:1%はひきつった笑顔を浮かべながら、腰を振って2回戦を要求した……
				ENDSELECT
				シチュ = 和姦
			CASE "妻帯者"
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW %LOCALS:1%は左手の薬指に指輪をしている男性客に声をかけさせられた
						PRINTFORMW 少しでいいから自分と楽しんでくれないか……
						PRINTFORMW %LOCALS:1%がそう頼み込むと、%相手%は周囲を見回し、妻が帰ってくるまで、と前置きして%LOCALS:1%を部屋に連れ込んだ……
					CASE 1
						PRINTFORMW %LOCALS:1%は浴衣の前を肌蹴たまま、適当な部屋のドアをノックさせられた
						PRINTFORMW 出てきた男は%LOCALS:1%の姿に驚いていたが、%LOCALS:1%が「トイレを貸してほしい」と伝えると、顔をしかめて考え出した
						PRINTFORMW 明らかに不審な頼みではあったが、%相手%は性欲に負け、妻が出てる内にな、と%LOCALS:1%を部屋に招き入れた……
					CASE 2
						PRINTFORMW %LOCALS:1%は子連れの男性客を誘惑してくるよう命令された
						PRINTFORMW 遊んでいる子供たちを退屈そうに見守る%相手%を見つけた%LOCALS:1%は、胸を潰れるほど強く%相手%に押し付けながら声をかけた
						PRINTFORMW %相手%は%LOCALS:1%を見定め、子供たちにしばらく2人で遊んでいるよう伝えると、%LOCALS:1%の肩に手を回して部屋に連れ帰った……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW 部屋に入るなり、%相手%は%LOCALS:1%を布団へ乱暴に押し倒した
						PRINTFORMW %LOCALS:1%が抵抗しないので、%相手%は%LOCALS:1%の衣を勢いよく剥ぎ取り、その柔肉に指を沈み込ませた
						PRINTFORMW %相手%の愛撫に吐息を漏らし、%LOCALS:1%も%相手%の股間を撫でまわすと、みるみる硬度を増していった
						PRINTFORMW %LOCALS:1%は%相手%の股間に顔を埋め、口で下着を脱がせると、ペニスに頬ずりをした……
					CASE 1
						PRINTFORMW %相手%は様子を見に来た%相手%の子供とドアの隙間から会話している
						PRINTFORMW もちろん、ドアの陰では%LOCALS:1%と%相手%が腰を打ち付け合っている最中であり、%LOCALS:1%は声を出さないよう必死に我慢していた
						PRINTFORMW ドアが閉まると同時に%相手%は抽送の速度を急速に高め、%LOCALS:1%の膣内にたっぷりと背徳汁を出した……
					CASE 2
						PRINTFORMW ゴムをつけるよう何度も念を押し、%LOCALS:1%は仰向けに寝転んだ
						PRINTFORMW %相手%は了承し、%LOCALS:1%に覆いかぶさると、熱い肉の釘をその膣内にゆっくりと、形を覚え込ませるように挿入した
						PRINTFORMW 徐々に前後運動の速度が上がっていき、%相手%が%LOCALS:1%の一番深いところで動きを止めると、じんわりと熱が広がった
						PRINTFORMW 背筋が凍るような思いで%LOCALS:1%が股間に手をやると、白い粘液がその手のひらにべっとりと付着した
						PRINTFORMW 弁明する%相手%を、%LOCALS:1%は「うそつき……」と目に大粒の涙を溜めながら非難した……
					CASE 3
						PRINTFORMW ひとしきり情欲にふけった後、%相手%は部屋風呂で身についた匂いを落としていた
						PRINTFORMW %LOCALS:1%は%LOCALS:0%に命じられた通り、最後の仕上げに入った
						PRINTFORMW %相手%に気づかれないよう下着を布団の下に隠すと、%LOCALS:1%は%相手%にそろそろ戻ると告げ、別れた
						PRINTFORMW %LOCALS:1%は残された証拠がどのような働きをするのか想像し、%相手%を哀れに思った……
				ENDSELECT
				シチュ = 和姦
			CASE "マッサージ師"
				PRINTFORMW %LOCALS:1%は部屋にマッサージ師を呼ぶよう指示された
				PRINTFORMW %相手%は好色そうな目で%LOCALS:1%を見ていたが、%LOCALS:1%は気づかないフリをした
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW %LOCALS:1%は肌の反応をよくするためと言われ、目隠しをつけさせられた
						PRINTFORMW %相手%は%LOCALS:1%の肢体をもみほぐしながら、さりげなく下着をズラしていった
						PRINTFORMW 見えていないのをいいことに、%相手%は%LOCALS:1%のぬらぬらとした割れ目やピンと立つ乳首を大写しで写真に収めていく
						PRINTFORMW 一通りの撮影が完了すると、%相手%は「少しハードにしますよ～」と言ってペニスを挿入し、ハメ撮りを始めた……
					CASE 1
						PRINTFORMW %LOCALS:1%は胸を揉みしだかれており、明らかにマッサージの範疇を越えていた
						PRINTFORMW 「リンパがここにあるんですよ」と%相手%が%LOCALS:1%の乳首をつまむと、甲高い声を上げて敏感に反応してしまう
						PRINTFORMW 「それでは上半身コースはこれでおしまいですが、下半身コースどうされますか～？」
						PRINTFORMW 焦らされて高揚していた%LOCALS:1%は、何か言うでもなく黙って寝転び、時間の延長を伝えた……
					CASE 2
						PRINTFORMW %相手%は%LOCALS:1%の全身をもみほぐしていき、%LOCALS:1%は気持ちよさから時折短く喘いでしまう
						PRINTFORMW 「濡れちゃいますんで外しますね～」と言いながら、%相手%は慣れた手つきで%LOCALS:1%の下着を取り去る
						PRINTFORMW %LOCALS:1%は抗議しようとしたが、「みなさんやっておられますよ～」と言いくるめられると、強く言い返せなかった
						PRINTFORMW 「指じゃ届かないところほぐしますね～」と言うと、%相手%は%LOCALS:1%の女陰に男性器を押し付けた……
					CASE 3
						PRINTFORMW 「次は道具使っていきますね～」と%相手%が言うや否や、%LOCALS:1%の秘部にマッサージ器が当てられた
						PRINTFORMW %LOCALS:1%は声にならない声を上げて身体を何度も跳ねさせ、潮を吹いて悦んでしまっている
						PRINTFORMW 「少～し脚開きますね～」　そういって%相手%は%LOCALS:1%を大股開きにする
						PRINTFORMW %相手%が%LOCALS:1%の目の前で肉茎を取り出しても、%LOCALS:1%は断り切れなかった……
				ENDSELECT
				PRINTFORML
				SELECTCASE RAND:4
					CASE 0
						PRINTFORMW 玉袋の中身を完全に吐き出した%相手%は男根を抜き去り、肩で息をする%LOCALS:1%を見下ろした
						PRINTFORMW %相手%はおもむろに%LOCALS:1%のクレヴァスに指を抜き差しすると、その手を%LOCALS:1%の眼前に持ってきた
						PRINTFORMW 濃い男汁と%LOCALS:1%の発情した証が%相手%の指の間に白い糸を引いており、濃密な情交を物語っていた
						PRINTFORMW %相手%がその指を%LOCALS:1%の口に突っ込むと、%LOCALS:1%は何も言わず綺麗に舐めとっていった……
					CASE 1
						PRINTFORMW %相手%がペニスを引き抜くと、%LOCALS:1%の陰部はまだ%相手%の形を残していた
						PRINTFORMW 白濁を垂れ流す雌穴はヒクヒクと蠢いており、オスの愛をまだ受けきれていないと主張していた
						PRINTFORMW 少し休んで回復した%相手%は、再び%LOCALS:1%に覆いかぶさり、無遠慮に肉棒を入れた
						PRINTFORMW %LOCALS:1%の頭は限界だと拒んでいたが、身体は男性器の再侵入に悦び、ガクガクと跳ねさせるのみだった……
					CASE 2
						PRINTFORMW %相手%は%LOCALS:1%のしなやかな腰をガッシリと掴み、ガツガツと腰を振り膣内を貪っている
						PRINTFORMW %LOCALS:1%は既に何度も気をやっており、頭の中は桃色の靄でいっぱいだった
						PRINTFORMW %相手%が%LOCALS:1%をガッシリと抱きしめ、生殖器どうしを痛いくらいにくっつけると、ペニスを震わせて子種を吐き出した
						PRINTFORMW %LOCALS:1%は無意識に角度を動かし、%相手%の鈴口と子宮口をぴったりと密着させ、自らの聖域への侵入を許した……
					CASE 3
						PRINTFORMW パンパンと肉と肉がぶつかり合う音が、閉じ忘れていた窓から外へと漏れ出している
						PRINTFORMW ヌチョ、グチャッと一定のリズムで響く粘ついた音は、明らかに2人が性交していることを表していた
						PRINTFORMW 2人の混ざりあった体臭、時折短く漏れる2種類の声、脱ぎ捨てられた2人分の着衣……外気に晒される全てが交尾の痕跡であった
						PRINTFORMW %LOCALS:1%は窓が開いていることなど忘れたかのように、気兼ねなく声を出して絶頂した……
				ENDSELECT
				シチュ = 和姦
		ENDSELECT
ENDSELECT
PRINTFORML
CALL SINGLE_DRAWLINE
CALL VIRGIN_COMMON(MTAR:0, @"%相手%", シチュ)

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

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

@COM_AVAILABLE_WHEN98
RETURN コマンド_ウフフ

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

@COM_PREFERENCE_TARGET_98()
RETURN POWER(2, 性的嗜好_虐げられたい) + POWER(2, 性的嗜好_輪姦されたい)


code:
;首輪

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME99
LOCALS:0 = 首輪

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

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

RETURN 1

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

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

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

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

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

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

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

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

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

;このコマンドは領内活動の逢瀬終了後も継続される
TFLAG:継続ロックフラグ = 1

RETURN 1

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

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

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

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

	SOURCE:(LOCAL:3):恐怖 += 10
	SOURCE:(LOCAL:3):不安 += 45
	SOURCE:(LOCAL:3):逸脱 += 110
	SOURCE:(LOCAL:3):露出 += 50

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE99(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
RESULTS = %EQUIP_TARGET_ANAME(ARG:0)%
RESULTS += "に首輪を装着中"

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP99(ARG:0)
SIF !EQUIP_TARGET_NUM_PARTICIPANTS(ARG:0)
	RETURN 0
PRINTFORML %EQUIP_TARGET_ANAME(ARG:0)%はリード付きの首輪をはめている…

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

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

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

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

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

IF TALENT:(ARG:0):大人しい
	CALL COM_ORDER_ELEMENT(ARG:0, "大人しい", -3)
ENDIF
IF TALENT:(ARG:0):恥じらい
	CALL COM_ORDER_ELEMENT(ARG:0, "恥じらい", -2)
ENDIF
IF TALENT:(ARG:0):献身的
	CALL COM_ORDER_ELEMENT(ARG:0, "献身的", 3)
ENDIF
IF TALENT:(ARG:0):Ｓ気質
	CALL COM_ORDER_ELEMENT(ARG:0, "Ｓ気質", 6)
ENDIF

IF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_サド)
	CALL COM_ORDER_ELEMENT(ARG:0, "サド", 40)
ELSE
	IF ABL:(ARG:0):主導度Ｕ >= 500
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 15)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 300
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 10)
	ELSEIF ABL:(ARG:0):主導度Ｕ >= 100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 5)
	ELSEIF ABL:(ARG:0):主導度Ｕ > -100
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", 0)
	ELSE
		CALL COM_ORDER_ELEMENT(ARG:0, "主導度", -5)
	ENDIF

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

RETURN 1

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

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

SELECTCASE GET_COM_INITIATIVE()
		;プレイヤーに主導権
	CASE 0
		PRINTFORMW %ANAME(MPLY:0)%は%LOCALS:1%に首輪をはめ%TARGET_STR("た", "てきた")%…
		;ターゲットに主導権
	CASE 1
		PRINTFORML %LOCALS:1%は%ANAME(MPLY:0)%に首輪を渡すと、それを首につけるように命令した
		PRINTFORML %ANAME(MPLY:0)%は言われるまま、%LOCALS:1%の首に首輪をはめた…
		;第三者に主導権
	CASEELSE
		PRINTFORML %ANAME(TFLAG:主導権所有者)%は%ANAME(MPLY:0)%に対して、%LOCALS:1%に首輪をはめるように命令した
		PRINTFORML %ANAME(MPLY:0)%は言われるまま、%LOCALS:1%の首に首輪をはめた…
ENDSELECT

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

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

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

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

repo_name: pervysquirrelz/erafl

license: unknown


code:
;乳首吸い

;-------------------------------------------------
;コマンド名称
;-------------------------------------------------
@COM_NAME9
LOCALS:1 = Nipple sucking

IF MTAR_NUM >= 2
	LOCALS:0 = %LOCALS:1% (>2)
ELSE
	LOCALS:0 = %LOCALS:1%
ENDIF

RESULTS:0 = Do %LOCALS:0%
RESULTS:1 = Get ordered to %LOCALS:0%
RESULTS:2 = Order %LOCALS:0%
RESULTS:3 = Get %LOCALS:0%
RESULTS:4 = Make do %LOCALS:0%
RESULTS:5 = Show %LOCALS:0% off
;-------------------------------------------------
;選択可否判定
;-------------------------------------------------
@COM_ABLE9
;共通部分
CALL COM_ABLE_COMMON(9)
SIF RESULT == 0
	RETURN 0
;プレイヤーは最大で2人まで
SIF MPLY_NUM <= 0 || MPLY_NUM > 2
	RETURN 0
;ターゲットは最大で2人まで
SIF MTAR_NUM <= 0 || MTAR_NUM > 2
	RETURN 0
;2-2は不可
SIF MPLY_NUM == 2 && MTAR_NUM == 2
	RETURN 0

FOR LOCAL:0, 0, MPLY_NUM
	FOR LOCAL:1, 0, MTAR_NUM
		SIF !CAN_LICK_BODY(MPLY:(LOCAL:0), MTAR:(LOCAL:1))
			RETURN 0
		SIF IS_RIDE(MPLY:(LOCAL:0), MTAR:(LOCAL:0))
			RETURN 0
	NEXT
NEXT
;全てのターゲットについて判定
FOR LOCAL:0, 0, MTAR_NUM
	;giving titjob
	SIF IS_EQUIP_PLAYER(MTAR:(LOCAL:0), 12)
		RETURN 0
	;nipples occupied
	SIF IS_N_HOLD(MTAR:(LOCAL:0))
		RETURN 0
NEXT

RETURN 1

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

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

SELECTCASE MPLY_NUM
	CASE 2
		TIMES LOCAL:10, 0.75
ENDSELECT

SELECTCASE MTAR_NUM
	CASE 2
		TIMES LOCAL:10, 0.75
ENDSELECT

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

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

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

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

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

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

	;全ターゲットに与える快感系ソースを計算
	FOR LOCAL:1, 0, MTAR_NUM
		LOCAL:3 = MTAR:(LOCAL:1)
		SOURCE:(LOCAL:3):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 1800) * LOCAL:10 / 100

	NEXT
NEXT

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

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

	SOURCE:(LOCAL:1):露出 = 100
	SOURCE:(LOCAL:1):接触 = 60
	SOURCE:(LOCAL:1):性行動 = 240

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

NEXT

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

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

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

RETURN 1

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

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

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

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

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

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

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

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

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

	;全ターゲットに与える快感系ソースを計算
	FOR LOCAL:1, 0, MEQUIP_TARGET_NUM:(ARG:0)
		LOCAL:3 = MEQUIP_TARGET:(ARG:0):(LOCAL:1)
		SOURCE:(LOCAL:3):快Ｂ += SENSE_HOUSHI(LOCAL:2, LOCAL:3, 600) * LOCAL:10 / 100

	NEXT

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

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

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

	SOURCE:(LOCAL:2):露出 += 50
	SOURCE:(LOCAL:2):接触 += 30
	SOURCE:(LOCAL:2):性行動 += 90

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

;-------------------------------------------------
;継続中の表示
;-------------------------------------------------
@EQUIP_MESSAGE9(ARG:0)
LOCAL:2 = 0
FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	IF IS_FEMALE(MEQUIP_TARGET:(ARG:0):(LOCAL:0))
		LOCAL:2 = 1
	ENDIF
NEXT
RESULTS = %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%に乳首吸い中

;-------------------------------------------------
;継続中の地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE_EQUIP9(ARG:0)
LOCAL:2 = 0
FOR LOCAL:0, 0, MEQUIP_TARGET_NUM:(ARG:0)
	IF IS_FEMALE(MEQUIP_TARGET:(ARG:0):(LOCAL:0))
		LOCAL:2 = 1
	ENDIF
NEXT

PRINTFORML %EQUIP_PLAYER_ANAME(ARG:0)%が%EQUIP_TARGET_ANAME(ARG:0)%の乳首に吸い付いている…

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

;-------------------------------------------------
;固有の実行判定
;-------------------------------------------------
@COM_ORDER_PLAYER9(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 TCVAR:(ARG:0):媚薬
	CALL COM_ORDER_ELEMENT(ARG:0, "媚薬", 6)
ENDIF

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

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

;-------------------------------------------------
;地の文(前文)
;-------------------------------------------------
@COM_TEXT_BEFORE9
;プレイヤーが２人
IF MPLY_NUM == 2
	LOCALS:0 = %ANAME(MPLY:0)%と%ANAME(MPLY:1)%
	;プレイヤーが１人
ELSE
	LOCALS:0 = %ANAME(MPLY:0)%
ENDIF

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

IF MTAR_NUM == 2 && IS_PIERCED(MTAR:0, ピアス_乳首) && IS_PIERCED(MTAR:0, ピアス_乳首)
	LOCALS:2 = ピアスの取り付けられた
ELSEIF MTAR_NUM == 1 && IS_PIERCED(MTAR:0, ピアス_乳首)
	LOCALS:2 = ピアスの取り付けられた
ELSE
	LOCALS:2 =
ENDIF

;ターゲットが２人
IF MTAR_NUM == 2
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			;片方が男性
			IF IS_MALE(MTAR:0) || IS_MALE(MTAR:1)
				PRINTFORMW %LOCALS:0%は%LOCALS:2%%LOCALS:1%の乳首を口に含み、二人同時に舌先でねぶり回し%TARGET_STR("た", "てきた")%…
				;二人とも貧乳以下
			ELSEIF GET_BUSTSIZE(MTAR:0) <= -1 && GET_BUSTSIZE(MTAR:1) <= -1
				PRINTFORMW %LOCALS:0%は%LOCALS:1%の薄い胸の突起を、まとめてじっくりと吸い上げ%TARGET_STR("た", "てきた")%…
			ELSE
				PRINTFORMW %LOCALS:0%は%LOCALS:1%の、合わせて４つの%LOCALS:2%乳房を音を立てて吸引し%TARGET_STR("た", "てきた")%…
			ENDIF
			;ターゲットに主導権
		CASE 1
			;片方が男性
			IF IS_MALE(MTAR:0) || IS_MALE(MTAR:1)
				PRINTFORMW %LOCALS:1%は%LOCALS:2%それぞれの乳首を%LOCALS:0%に吸わせて、気持ち良くするように命令した…
				;二人とも貧乳以下
			ELSEIF GET_BUSTSIZE(MTAR:0) <= -1 && GET_BUSTSIZE(MTAR:1) <= -1
				PRINTFORMW %LOCALS:1%は%LOCALS:2%それぞれの薄い胸を%LOCALS:0%に吸わせて、気持ち良くするように命令した…
			ELSE
				PRINTFORMW %LOCALS:1%は%LOCALS:2%それぞれの乳房を%LOCALS:0%の口に押し付けると、乳首を吸って気持ち良くするように命令した…
			ENDIF
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:0%に%LOCALS:2%%LOCALS:1%の胸を吸うように命令した
			;片方が男性
			IF IS_MALE(MTAR:0) || IS_MALE(MTAR:1)
				PRINTFORMW %LOCALS:0%は%LOCALS:2%%LOCALS:1%の乳首を吸い上げ、二人同時に舌先でねぶり回した…
				;二人とも貧乳以下
			ELSEIF GET_BUSTSIZE(MTAR:0) <= -1 && GET_BUSTSIZE(MTAR:1) <= -1
				PRINTFORMW %LOCALS:0%は%LOCALS:2%%LOCALS:1%の薄い胸をまとめて吸い上げた…
			ELSE
				PRINTFORMW %LOCALS:0%は%LOCALS:1%の、合わせて４つの%LOCALS:2%乳房を音を立てて吸引した…
			ENDIF
	ENDSELECT

	;ターゲットが１人
ELSE
	SELECTCASE GET_COM_INITIATIVE()
			;プレイヤーに主導権
		CASE 0
			PRINTFORM %LOCALS:0%は%LOCALS:1%の%LOCALS:2%
			IF IS_MALE(MTAR:0)
				PRINTFORMW ぷっくりと膨らんだ乳首を口内で吸引し%TARGET_STR("た", "てきた")%…
			ELSE
				SELECTCASE GET_BUSTSIZE(MTAR:0)
					CASE -2
						PRINTFORMW まっ平らな胸をゆっくりと吸い上げ%TARGET_STR("た", "てきた")%…
					CASE -1
						PRINTFORMW 小さな胸をじっくりと吸い上げ%TARGET_STR("だ", "できた")%…
					CASE 0
						PRINTFORMW 適度な大きさの胸をじっくりと吸い上げ%TARGET_STR("た", "てきた")%…
					CASE 1
						PRINTFORMW 巨乳をじっくりと吸い上げ%TARGET_STR("た", "てきた")%…
					CASE 2
						PRINTFORMW 手から溢れるほど大きな胸をじっくりと吸い上げ%TARGET_STR("た", "てきた")%…
					CASE 3
						PRINTFORMW 手から溢れるほど大きな胸をじっくりと吸い上げ%TARGET_STR("た", "てきた")%…
					CASE 4
						PRINTFORMW 手から溢れるほど大きな胸をじっくりと吸い上げ%TARGET_STR("た", "てきた")%…
				ENDSELECT
			ENDIF
			;ターゲットに主導権
		CASE 1
			IF IS_MALE(MTAR:0)
				PRINTFORMW %LOCALS:1%は%LOCALS:2%乳首を%LOCALS:0%に吸わせて、気持ち良くするように命令した…
			ELSE
				PRINTFORM %LOCALS:1%は%LOCALS:0%の手に自身の%LOCALS:2%
				SELECTCASE GET_BUSTSIZE(MTAR:0)
					CASE -2
						PRINTFORMW まっ平らな胸を押し付けると、吸って気持ち良くするように命令した…
					CASE -1
						PRINTFORMW 小さな胸を押し付けると、吸って気持ち良くするように命令した…
					CASE 0
						PRINTFORMW 胸を押し付けると、吸って気持ち良くするように命令した…
					CASE 1
						PRINTFORMW 大きな胸を押し付けると、吸って気持ち良くするように命令した…
					CASE 2
						PRINTFORMW 手から溢れるほど大きな胸を押し付けると、吸って気持ち良くするように命令した…
					CASE 3
						PRINTFORMW 手から溢れるほど大きな胸を押し付けると、吸って気持ち良くするように命令した…
					CASE 4
						PRINTFORMW 手から溢れるほど大きな胸を押し付けると、吸って気持ち良くするように命令した…
				ENDSELECT
			ENDIF
			;第三者に主導権
		CASEELSE
			PRINTFORML %ANAME(TFLAG:主導権所有者)%は%LOCALS:0%に%LOCALS:1%の胸を愛撫するように命令した
			PRINTFORM %LOCALS:0%は%LOCALS:1%の%LOCALS:2%
			IF IS_MALE(MTAR:0)
				PRINTFORMW ぷっくりと膨らんだ乳首を口内で吸引した…
			ELSE
				SELECTCASE GET_BUSTSIZE(MTAR:0)
					CASE -2
						PRINTFORMW まっ平らな胸をゆっくり吸い上げた…
					CASE -1
						PRINTFORMW 小さな胸をじっくりと吸い上げだ…
					CASE 0
						PRINTFORMW 適度な大きさの胸をじっくりと吸い上げた…
					CASE 1
						PRINTFORMW 巨乳をじっくりと吸い上げた…
					CASE 2
						PRINTFORMW 手から溢れるほど大きな胸をじっくりと吸い上げた…
					CASE 3
						PRINTFORMW 手から溢れるほど大きな胸をじっくりと吸い上げた…
					CASE 4
						PRINTFORMW 手から溢れるほど大きな胸をじっくりと吸い上げた…
				ENDSELECT
			ENDIF
	ENDSELECT
ENDIF

;--------------------------------------------------------
;地の文(パラメータ・刻印変動後)
;--------------------------------------------------------
@COM_TEXT_LAST9
#DIMS プレイヤー名
IF MPLY_NUM == 2
	プレイヤー名 '= @"%ANAME(MPLY:0)%と%ANAME(MPLY:1)%"
	;プレイヤーが１人
ELSE
	プレイヤー名 '= @"%ANAME(MPLY:0)%"
ENDIF

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

	IF (LOCAL:1 != MASTER || CONFIG:441) && !IS_ANIMAL(LOCAL:1)
		LOCAL:2 = CUP:(LOCAL:1):快Ｂ

		IF 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(GET_BUSTSIZE(LOCAL:1))%を大きく弾ませてこちらの目を楽しませてくれた
				ELSE
					PRINTL 緩んだ表情で快楽に身を任せた
				ENDIF
			ENDIF
		ENDIF
		IF NOWEX:(LOCAL:1):噴乳 > 0
			PRINTFORML %プレイヤー名%は%ANAME(LOCAL:1)%の胸に深く顔をうずめて、%SPLIT_RAND("じゅるじゅると音を立て/無心に乳首にしゃぶりついて/乳首を舌でねぶりながら",1)%吹き出した母乳をすすっている……
		ENDIF
	ENDIF
NEXT

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

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

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

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

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


code:
;-------------------------------------------------
;# コマンドの自動実行の処理
;	「おまかせ」や「なすがまま」
;	１．コマンドのカテゴリを設定
;		各コマンドがどのカテゴリにあてはまるかの分類を行う
;		登録できていないコマンドがないかチェックを行う
;	２．実行・対象キャラを設定
;		実行者（MAIN_PLAYER）と対象者（MAIN_TARGET）を設定
;		ここでの実行者・対象者は「される」系コマンドが選択されたとき入れ替わる
;		実行者は主導度Ｕが高いキャラの優先度が高い
;		対象者は手動々Ｕが低いキャラの優先度が高い
;		対象者は捕虜ターゲットかどうかと
;		実行者と比較して陥落素質や処女性や性別組等も見る
;		慰安の場合、慰安モブ・慰安参加者実行者は同種の対象者を避ける
;	３．カテゴリの優先度を設定
;		実行者の性的嗜好に合うものを高評価にして各カテゴリの優先度を設定していく
;		コンフィグで禁止設定されているものは優先度を-1にする
;		優先度設定が0のカテゴリがないかチェックを行う
;	４．コマンドの優先度を設定
;		実行者の性的嗜好に合うものを高評価にして各コマンドの優先度を設定していく
;		ただしカテゴリごと禁止されている場合は優先度を-1にする
;		優先度設定が0のコマンドがないかチェックを行う
;	５．実行するコマンドを決定
;		これまで設定した優先度を元に乱択を行う
;		コマンドが決まったら、手伝う第三者キャラを選択したり
;		実行が第三者に命令して行動させる可能性などをチェックする
;	６．複数チェック
;		順番に挿入や代わる代わる挿入は実行者１対象者１でのチェックだと
;		必ず失敗するため、判定を回避してここまでの処理を進めている
;		そのため最後のCOM_ABLEチェックを行い、決定したコマンドが不可なら
;		そのコマンドの優先度は0にして５に戻る
;
;# 戻り値
; RETURN:0 = 最終的に決定した調教コマンド番号(FINAL_COM)
; RETURN:1 = 最終的に決定した調教コマンドのオプション番号(FINAL_COM_OPTION)
;-------------------------------------------------
@COM_AUTOSELECT(MAIN_PLAYER = -1, MAIN_TARGET = -1, AUTOSELECT_CATEGORY = 1)
#DIM TEMP_COM			;一時的な決定コマンド
#DIM TEMP_COM_OPTION	;一時的な決定コマンドのオプション
#DIM FINAL_COM			;最終的な決定コマンド
#DIM FINAL_COM_OPTION	;最終的な決定コマンドのオプション
#DIM RAND_NUM			;任意値代入用
#DIM CHECK_RANDOMIZED	;乱択用
#DIM L_COUNTER			;FOR文用のカウンタ
#DIM LOOP_CNT			;無限ループ回避用カウンタ
#DIM MAIN_PLAYER		;選択権を持つキャラ
#DIM MAIN_TARGET		;選択権を持つキャラに対象として選ばれたキャラ
#DIM AUTOSELECT_CATEGORY ;調教カテゴリを自動設定する(1以外の値を指定すると、COM_AUTOSELECT_SET_CATEGORY_PRIORITY関数の呼び出しをスキップする)

[IF_DEBUG]
;GROUPMATCH(FLAG:調教モード, 調教_会う, 調教_閨, 調教_捕虜調教, 調教_子育て, 調教_逆調教特殊, 調教_逆調教通常, 調教_捕虜会話, 調教_慰安)
DEBUGPRINTFORML
DEBUGPRINTFORML #### 自動行動_閨_開始
DEBUGPRINTFORML      現在の調教モードは {FLAG:調教モード}.%COM_AUTO_MODE_NAME()%
[ENDIF]

;-------------------------------------------------
;## コマンドのカテゴリ設定
;-------------------------------------------------
CALL COM_AUTOSELECT_SET_COM_CATEGORY

;-------------------------------------------------
;## キャラ設定
;-------------------------------------------------
IF MAIN_PLAYER == -1
	;実行者取得
	CALL COM_AUTOSELECT_DECIDE_PLAYER
	IF RESULT == -1
		PRINTFORML ※選択可能な実行者が存在しなかったため、なにもしないが選択されます
		CALL CLEAR_MTAR()
		CALL CLEAR_MPLY()
		FOR LOCAL, 0, CHARANUM
			IF IS_PARTICIPATE_TRAIN(LOCAL)
				CALL ADD_MPLY(LOCAL)
				BREAK
			ENDIF
		NEXT
		FINAL_COM = GET_TRAINNUM("なにもしない")
		GOTO SKIPPED
	ENDIF
	MAIN_PLAYER = RESULT
	FLAG:主導権所有者 = MAIN_PLAYER
ENDIF

;対象者取得（実行者を渡して除外する）
IF MAIN_TARGET == -1
	CALL COM_AUTOSELECT_DECIDE_TARGET(MAIN_PLAYER)
	IF RESULT == -1
		PRINTFORML ※選択可能な対象者が存在しなかったため、なにもしないが選択されます
		CALL CLEAR_MTAR()
		CALL CLEAR_MPLY()
		FOR LOCAL, 0, CHARANUM
			IF IS_PARTICIPATE_TRAIN(LOCAL)
				CALL ADD_MPLY(LOCAL)
				BREAK
			ENDIF
		NEXT
		FINAL_COM = GET_TRAINNUM("なにもしない")
		GOTO SKIPPED
	ENDIF
	MAIN_TARGET = RESULT
ENDIF

;-------------------------------------------------
;## デバッグ キャラ設定
;-------------------------------------------------
[IF_DEBUG]
DEBUGPRINTFORML
DEBUGPRINTFORML #### DEBUG キャラ設定
DEBUGPRINTFORML      MAIN_PLAYER : %ANAME(MAIN_PLAYER), MAX_CHARANAME_LENGTH, LEFT%  %TOSTR_SEX(TALENT:MAIN_PLAYER:性別), 6%
DEBUGPRINTFORML                    体力 {BASE:MAIN_PLAYER:体力}/{MAXBASE:MAIN_PLAYER:体力}  気力 {BASE:MAIN_PLAYER:気力}/{MAXBASE:MAIN_PLAYER:気力}
DEBUGPRINTFORML      MAIN_TARGET : %ANAME(MAIN_TARGET), MAX_CHARANAME_LENGTH, LEFT%  %TOSTR_SEX(TALENT:MAIN_TARGET:性別), 6%
DEBUGPRINTFORML                    体力 {BASE:MAIN_TARGET:体力}/{MAXBASE:MAIN_TARGET:体力}  気力 {BASE:MAIN_TARGET:気力}/{MAXBASE:MAIN_TARGET:気力}
[ENDIF]

$CHOOSE_END

;-------------------------------------------------
;## カテゴリ優先度
;-------------------------------------------------
SIF AUTOSELECT_CATEGORY == 1
	CALL COM_AUTOSELECT_SET_CATEGORY_PRIORITY(MAIN_PLAYER, MAIN_TARGET)

;-------------------------------------------------
;## コマンド優先度
;-------------------------------------------------
CALL COM_AUTOSELECT_SET_COM_PRIORITY(MAIN_PLAYER, MAIN_TARGET)

;-------------------------------------------------
;## 実行するコマンドを決定
;	実行しようとしてCOM_ABLE判定に失敗したら
;	失敗したコマンドは候補から外して
;	$RESTARTEDに飛んでくる
;-------------------------------------------------
VARSET LOOP_CNT

$RESTARTED

[IF_DEBUG]
SIF LOOP_CNT
	DEBUGPRINTFORML ※最後のCOM_ABLE判定に失敗して戻った。LOOP_CNT.{LOOP_CNT}回目
[ENDIF]

;リセット
CALL COM_AUTO_RANDOMIZED_WEIGHTED_START

;候補設定
VARSET CHECK_RANDOMIZED
FOR L_COUNTER, 0, ADD_NUM_対象が実行 + 1000
	SIF COM_AUTO_COM_PRIORITY:L_COUNTER < 1
		CONTINUE
	CALL COM_AUTO_RANDOMIZED_WEIGHTED_VALUE(L_COUNTER, COM_AUTO_COM_PRIORITY:L_COUNTER)
	CHECK_RANDOMIZED ++
NEXT

;ひとつも候補がないとき最低値確保
IF CHECK_RANDOMIZED < 1
	IF COM_AUTO_COM_PRIORITY:GET_TRAINNUM("なにもしない") < 100
		COM_AUTO_COM_PRIORITY:GET_TRAINNUM("なにもしない") = 100
	ENDIF
	CALL COM_AUTO_RANDOMIZED_WEIGHTED_VALUE(GET_TRAINNUM("なにもしない"), COM_AUTO_COM_PRIORITY:GET_TRAINNUM("なにもしない"))
ENDIF

;結果取得
TEMP_COM = COM_AUTO_RANDOMIZED_WEIGHTED_RESULT()
IF FLAG:逆調教コマンド強制 >= 0
	TEMP_COM = FLAG:逆調教コマンド強制
ENDIF

IF TEMP_COM < 0 || TEMP_COM >= ADD_NUM_対象が実行 + 1000
	DEBUGPRINTFORML ※可能な行動が見つかりませんでした。なにもしないを代入します
	DEBUGPRINTFORML ※普通に制限されていて起きる可能性があるので、ここではエラーメッセージを表示していません
	DEBUGPRINTFORML ※@COM_AUTOSELECT_DECIDE_TARGET @COM_AUTO_RANDOMIZED_WEIGHTED_RESULT
	CALL CLEAR_MTAR()
	CALL CLEAR_MPLY()
	CALL ADD_MPLY(MAIN_PLAYER)
	FINAL_COM = GET_TRAINNUM("なにもしない")
	GOTO SKIPPED
ENDIF

;-------------------------------------------------
;## デバッグ 決定したコマンド
;-------------------------------------------------
[IF_DEBUG]
DEBUGPRINTFORML
DEBUGPRINTFORML #### DEBUG 決定したコマンド
IF TEMP_COM >= ADD_NUM_対象が実行
	DEBUGPRINTFORML {TEMP_COM, 4}.%TRAINNAME:(TEMP_COM - ADD_NUM_対象が実行), 20, LEFT%される %NUM_FORMAT(COM_AUTO_COM_PRIORITY:TEMP_COM), 10, RIGHT%
ELSE
	DEBUGPRINTFORML {TEMP_COM, 4}.%TRAINNAME:(TEMP_COM), 20, LEFT%する %NUM_FORMAT(COM_AUTO_COM_PRIORITY:TEMP_COM), 10, RIGHT%
ENDIF
[ENDIF]

;メインのプレイヤー・ターゲットの設定
CALL CLEAR_MPLY()
CALL CLEAR_MTAR()
IF TEMP_COM < ADD_NUM_対象が実行
	CALL ADD_MPLY(MAIN_PLAYER)
	CALL ADD_MTAR(MAIN_TARGET)
ELSEIF TEMP_COM < ADD_NUM_第三者に実行
	CALL ADD_MPLY(MAIN_TARGET)
	CALL ADD_MTAR(MAIN_PLAYER)
ENDIF

;第三者に手伝ってもらうパターン
CALL AUTO_SET_THIRD_PERSON(MAIN_PLAYER, MAIN_TARGET, TEMP_COM)

;第三者に命令するパターン 動物は命令しない
IF !GROUPMATCH(TALENT:MAIN_PLAYER:慰安モブ, 慰安_キャラ_犬, 慰安_キャラ_豚, 慰安_キャラ_馬, 慰安_キャラ_猿) || !TALENT:MAIN_PLAYER:動物
	CALL AUTO_SET_REMOVE_MAIN(MAIN_PLAYER, MAIN_TARGET, TEMP_COM)
ENDIF

;-------------------------------------------------
; コマンドオプションの決定
;-------------------------------------------------
VARI OPTION_NUM
TRYCCALLFORM COM_HAS_OPTION{TEMP_COM}()
	OPTION_NUM = RESULT
	;リセット
	CALL COM_AUTO_RANDOMIZED_WEIGHTED_START
	;候補設定
	VARSET CHECK_RANDOMIZED
	FOR L_COUNTER, 0, COM_OPTION_NUM
		SIF COM_AUTO_COM_OPTION_PRIORITY:TEMP_COM:L_COUNTER < 1
			CONTINUE
		CALL COM_AUTO_RANDOMIZED_WEIGHTED_VALUE(L_COUNTER, COM_AUTO_COM_OPTION_PRIORITY:TEMP_COM:L_COUNTER)
		CHECK_RANDOMIZED ++
	NEXT

	;結果取得
	;ひとつも候補がないときときはデフォルト値
	IF CHECK_RANDOMIZED > 0
		TEMP_COM_OPTION = COM_AUTO_RANDOMIZED_WEIGHTED_RESULT()
	ELSE
		TEMP_COM_OPTION = 0
	ENDIF
CATCH
ENDCATCH

;-------------------------------------------------
;## 複数チェック
;	キャラが揃ったのでずっとチェック回避してた複数プレイを最終チェック
;	ダメだったらそのコマンドは優先度０にして戻る
;-------------------------------------------------
VARI COM_OPTION_ENABLE = 1
COM_ENABLE = 1
TRYCCALLFORM COM_OPTIONABLE{TEMP_COM}(TEMP_COM_OPTION)
	COM_OPTION_ENABLE = RESULT
CATCH
ENDCATCH

RESULT = 0
CALL CHECK_COMABLE(TEMP_COM % ADD_NUM_対象が実行)
IF !RESULT || !COM_OPTION_ENABLE
	;失敗したコマンドは優先度を０にする
	IF TEMP_COM < ADD_NUM_対象が実行
		COM_AUTO_COM_PRIORITY:TEMP_COM = 0
	ELSEIF TEMP_COM < ADD_NUM_第三者に実行
		COM_AUTO_COM_PRIORITY:(ADD_NUM_対象が実行 + TEMP_COM) = 0
	ENDIF
	LOOP_CNT ++
	IF LOOP_CNT < 10
		DEBUGPRINTFORML ※選択したコマンド{TEMP_COM}が実行不可能だったので戻ります
		GOTO RESTARTED
	ELSE
		DEBUGPRINTFORML ※10回選択したコマンドの判定に失敗したので状況を無視し、
		DEBUGPRINTFORML 　強制的に『なにもしない』を選択します
		;MTAR = -1 の状態で継続中のコマンドがあると『なにもしない』時にエラーとなるのでコメントアウト
		; CALL CLEAR_MTAR()
		CALL CLEAR_MPLY()
		CALL ADD_MPLY(MAIN_PLAYER)
		FINAL_COM = GET_TRAINNUM("なにもしない")
		COM_ENABLE = 0
		LOOP_CNT = 0
		GOTO SKIPPED
	ENDIF
ENDIF

;COM_ABLEチェック時にオンにするフラグリセット
COM_ENABLE = 0

;やり直し用カウンタリセット
LOOP_CNT = 0

;-------------------------------------------------
;## 次回カテゴリ予約
;	特定のコマンドを行った場合は次回選択するカテゴリを予約しておく
;-------------------------------------------------
TFLAG:30 = 0
SELECTCASE TEMP_COM
	CASE GET_TRAINNUM("ローション")
		TFLAG:30 = COM_AUTO_CATEGORY_NUM_性交する
	CASE GET_TRAINNUM("コンドーム")
		TFLAG:30 = COM_AUTO_CATEGORY_NUM_性交する
	CASE ADD_NUM_対象が実行 + GET_TRAINNUM("ローション")
		TFLAG:30 = COM_AUTO_CATEGORY_NUM_性交させる
	CASE ADD_NUM_対象が実行 + GET_TRAINNUM("コンドーム")
		TFLAG:30 = COM_AUTO_CATEGORY_NUM_性交させる
	CASE GET_TRAINNUM("ペニバン装着")
		TFLAG:30 = COM_AUTO_CATEGORY_NUM_性交する
	CASE ADD_NUM_対象が実行 + GET_TRAINNUM("ペニバン装着")
		TFLAG:30 = COM_AUTO_CATEGORY_NUM_性交させる
	CASE GET_TRAINNUM("触手召喚")
		TFLAG:30 = COM_AUTO_CATEGORY_NUM_触手を扱う
	CASE ADD_NUM_対象が実行 + GET_TRAINNUM("触手召喚")
		TFLAG:30 = COM_AUTO_CATEGORY_NUM_触手を扱わせる
ENDSELECT

FINAL_COM = TEMP_COM % ADD_NUM_対象が実行
FINAL_COM_OPTION = TEMP_COM_OPTION

;-------------------------------------------------
;## 継続状態の設定
;-------------------------------------------------
CALL COM_AUTO_GET_EQUIP_MODE(FINAL_COM, MAIN_PLAYER)
TFLAG:非継続フラグ = RESULT

;-------------------------------------------------
;## 実行
;-------------------------------------------------
$SKIPPED

;CALL FL_DOTRAIN(FINAL_COM, FINAL_COM_OPTION)
;最終的に決定した調教コマンド番号とオプション番号
RESULT:0 = FINAL_COM
RESULT:1 = FINAL_COM_OPTION

RETURN RESULT:0


code:
;-------------------------------------------------
;# COM_AUTO 全体
;	_COM_AUTOSELECTと_COM_AUTOSELECT_Nで共有
;-------------------------------------------------
;コマンドひとつひとつにカテゴリを割り当てる
#DIM COM_AUTO_COM_CATEGORY, 3000

;各カテゴリ内のコマンド数（要素数はカテゴリ種数以上）
#DIM COM_AUTO_COM_CATEGORY_COM_NUM, 30

;コマンド実行優先度の計算に使う一時変数（要素数はカテゴリ種数以上）
#DIM COM_AUTO_COM_PRIORITY_SUM, 30

;カテゴリごとに選択優先度を割り当てる（要素数はカテゴリ種数以上）
;この値に比例した確率でコマンドの傾向が決まる
#DIM COM_AUTO_CATEGORY_PRIORITY, 30

;コマンドごとに実行優先度を割り当てる(この値に比例した確率でコマンドが選ばれる)
;0～999はMAIN_PLAYERが実行、1000～1999はMAIN_TARGETが実行、2000～2999は第三者
#DIM COM_AUTO_COM_PRIORITY, 3000
#DIM COM_AUTO_COM_OPTION_PRIORITY, 3000, 10

;オートモードは「される」などの逆転行動や第三者同士の行為等
;通常コマンド番号に以下の数値を足して架空コマンド番号として選択肢に加えている
#DIM CONST ADD_NUM_対象が実行 = 1000
#DIM CONST ADD_NUM_第三者に実行 = 2000

;-------------------------------------------------
;# COM_AUTOSELECT_3_カテゴリの優先度設定
;-------------------------------------------------
;性交カテゴリで操作する潤滑追加カテゴリの可否フラグ
#DIM COM_AUTO_CHECK_FLAG_IS_WET_ENOUGH

;-------------------------------------------------
;# COM_AUTOSELECT_4_コマンドの優先度設定
;-------------------------------------------------
;各コマンドに持たせる基本値
#DIM CONST COM_AUTO_AI_REFERENCE_VALUE = 30

;-------------------------------------------------
;# COM_AUTOSELECT_2_実行対象キャラ設定
;-------------------------------------------------
#DIM COM_AUTO_RANDOMIZED_COUNTER = 0	;乱択用カウンタ
#DIM COM_AUTO_RANDOMIZED_NUM, 1000		;乱択用番号
#DIM COM_AUTO_RANDOMIZED_WEIGHTED, 1000	;乱択用重み

;-------------------------------------------------
;# COM_AUTO_CATEGORY 閨オートカテゴリ
;-------------------------------------------------
#DIM CONST COM_AUTO_CATEGORY_NUM_愛撫する = 1
#DIM CONST COM_AUTO_CATEGORY_NUM_性交する = 2
#DIM CONST COM_AUTO_CATEGORY_NUM_避妊する = 3
#DIM CONST COM_AUTO_CATEGORY_NUM_潤滑追加する = 4
#DIM CONST COM_AUTO_CATEGORY_NUM_道具使う = 5
#DIM CONST COM_AUTO_CATEGORY_NUM_加虐する = 6
#DIM CONST COM_AUTO_CATEGORY_NUM_酷く加虐する = 7
#DIM CONST COM_AUTO_CATEGORY_NUM_露出する = 8
#DIM CONST COM_AUTO_CATEGORY_NUM_小排泄する = 9
#DIM CONST COM_AUTO_CATEGORY_NUM_大排泄する = 10
#DIM CONST COM_AUTO_CATEGORY_NUM_触手を扱う = 11
#DIM CONST COM_AUTO_CATEGORY_NUM_愛撫させる = 12
#DIM CONST COM_AUTO_CATEGORY_NUM_性交させる = 13
#DIM CONST COM_AUTO_CATEGORY_NUM_避妊させる = 14
#DIM CONST COM_AUTO_CATEGORY_NUM_潤滑追加させる = 15
#DIM CONST COM_AUTO_CATEGORY_NUM_道具使わせる = 16
#DIM CONST COM_AUTO_CATEGORY_NUM_被虐する = 17
#DIM CONST COM_AUTO_CATEGORY_NUM_酷く被虐する = 18
#DIM CONST COM_AUTO_CATEGORY_NUM_露出させる = 19
#DIM CONST COM_AUTO_CATEGORY_NUM_小排泄させる = 20
#DIM CONST COM_AUTO_CATEGORY_NUM_大排泄させる = 21
#DIM CONST COM_AUTO_CATEGORY_NUM_触手を扱わせる = 22
#DIM CONST COM_AUTO_CATEGORY_NUM_説得 = 23
#DIM CONST COM_AUTO_CATEGORY_NUM_奉仕する = 24
#DIM CONST COM_AUTO_CATEGORY_NUM_奉仕させる = 25
#DIM CONST COM_AUTO_CATEGORY_NUM_MAX = 25

;-------------------------------------------------
;# COM_AUTO_CATEGORY_LIKE 日常オートカテゴリ
;-------------------------------------------------
#DIM CONST COM_AUTO_CATEGORY_LIKE_0 = 1
#DIM CONST COM_AUTO_CATEGORY_LIKE_300 = 2
#DIM CONST COM_AUTO_CATEGORY_LIKE_500 = 3
#DIM CONST COM_AUTO_CATEGORY_LIKE_800 = 4
#DIM CONST COM_AUTO_CATEGORY_LIKE_1500 = 5
#DIM CONST COM_AUTO_CATEGORY_LIKE_MAX = 5

;-------------------------------------------------
;# COM_AUTO_FILTER おまかせ時専用のワンボタンフィルタ
;	CONFIG:11を使用してCONFIG.ERBで設定する
;-------------------------------------------------
#DIM CONST COM_AUTO_FILTER_MAX = 5
#DIM CONST COM_AUTO_FILTER_男性のＡを狙う行為を許可 = 1
#DIM CONST COM_AUTO_FILTER_過激な暴力を禁止 = 2
#DIM CONST COM_AUTO_FILTER_ＳＭを禁止 = 3
#DIM CONST COM_AUTO_FILTER_大スカを禁止 = 4
#DIM CONST COM_AUTO_FILTER_小スカを禁止 = 5


code:
;-------------------------------------------------
;# COM_AUTOSELECT_1_コマンドのカテゴリ設定
;-------------------------------------------------
@COM_AUTOSELECT_SET_COM_CATEGORY
#DIM L_COUNTER

;-------------------------------------------------
;## リセット
;-------------------------------------------------
VARSET COM_AUTO_COM_CATEGORY, 0

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_愛撫する
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("見つめあう"), COM_AUTO_CATEGORY_NUM_愛撫する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("愛撫"), COM_AUTO_CATEGORY_NUM_愛撫する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("胸愛撫"), COM_AUTO_CATEGORY_NUM_愛撫する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("指挿入れ"), COM_AUTO_CATEGORY_NUM_愛撫する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("アナル愛撫"), COM_AUTO_CATEGORY_NUM_愛撫する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("乳首吸い"), COM_AUTO_CATEGORY_NUM_愛撫する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("キス"), COM_AUTO_CATEGORY_NUM_愛撫する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("性の知識を教える"), COM_AUTO_CATEGORY_NUM_愛撫する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("なにもしない"), COM_AUTO_CATEGORY_NUM_愛撫する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("囁きかける"), COM_AUTO_CATEGORY_NUM_愛撫する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("舌を這わす"), COM_AUTO_CATEGORY_NUM_愛撫する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("服を脱ぐ"), COM_AUTO_CATEGORY_NUM_愛撫する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_奉仕する
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("泡踊り"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("手コキ"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("フェラチオ"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("パイズリ"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("素股"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("尻コキ"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("玉舐め"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("尻尾コキ"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("亀頭責め手コキ"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("足を舐める"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("亀頭責めフェラ"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("指フェラ"), COM_AUTO_CATEGORY_NUM_奉仕する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("玉揉み"), COM_AUTO_CATEGORY_NUM_奉仕する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_潤滑追加する
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("ローション"), COM_AUTO_CATEGORY_NUM_潤滑追加する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("クンニ"), COM_AUTO_CATEGORY_NUM_潤滑追加する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("アナル舐め"), COM_AUTO_CATEGORY_NUM_潤滑追加する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_避妊する
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("コンドーム"), COM_AUTO_CATEGORY_NUM_避妊する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_性交する
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("尻尾挿入"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("尻尾Ａ挿入"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("貝合わせ"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("兜合わせ"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("ペニバン装着"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("正常位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("後背位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("対面座位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("背面座位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("騎乗位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("背面騎乗位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("側位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("屈曲位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("駅弁"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("背面駅弁"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("立ちバック"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("二本挿入"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("順番に挿入"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("代わる代わる挿入"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ正常位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ後背位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ対面座位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ背面座位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ騎乗位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ背面騎乗位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ側位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ屈曲位"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ駅弁"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ背面駅弁"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ立ちバック"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ二本挿入"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("順番にＡ挿入"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("代わる代わるＡ挿入"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("尿道挿入"), COM_AUTO_CATEGORY_NUM_性交する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("服を脱ぐ"), COM_AUTO_CATEGORY_NUM_性交する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_道具使う
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("オナホコキ"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("双頭バイブ"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("ローター"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("バイブ"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("アナルバイブ"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("クリキャップ"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("ニプルキャップ"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("媚薬"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("排卵誘発剤"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("メイガスの夜"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("桃源香"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("搾乳機"), COM_AUTO_CATEGORY_NUM_道具使う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("尿道ブジー"), COM_AUTO_CATEGORY_NUM_道具使う)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_加虐する
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("顔面騎乗"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ顔面騎乗"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ｗ顔面騎乗"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("イラマチオ"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("髪コキ"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("足コキ"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("脅す"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("平手打ち"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("スパンキング"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("目隠し"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("鞭"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("針"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("縄"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("口枷"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("ペニバン口枷"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ｖ拡張バルーン"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ａ拡張バルーン"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("鼻フック"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("フィストファック"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("アナルフィスト"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("ニプルファック"), COM_AUTO_CATEGORY_NUM_加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("服を破る"), COM_AUTO_CATEGORY_NUM_加虐する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_酷く加虐する
;	後遺症を残すもの、命を保証できないもの
;	九条鞭とかピアスとか綿ロープとか、道具次第で加減できるものは含めない
;	腹パンはターゲットの妊娠期間を確認できない位置なので一応こっち
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("麻薬"), COM_AUTO_CATEGORY_NUM_酷く加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("首絞め"), COM_AUTO_CATEGORY_NUM_酷く加虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("腹パン"), COM_AUTO_CATEGORY_NUM_酷く加虐する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_露出する
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("電気按摩"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("露出プレイ"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("体毛管理"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("身体に落書き"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("遠隔調教"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("ビデオ撮影"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ｃ自慰"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("Ｐ自慰"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("セルフ挿入"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("セルフＡ挿入"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("セルフフェラ"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("土下座"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("おねだり"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("オナホ自慰"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("秘貝開帳"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("アナル開帳"), COM_AUTO_CATEGORY_NUM_露出する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_小排泄する
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("放尿する"), COM_AUTO_CATEGORY_NUM_小排泄する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("尿を掛ける"), COM_AUTO_CATEGORY_NUM_小排泄する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("口内放尿"), COM_AUTO_CATEGORY_NUM_小排泄する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("利尿剤"), COM_AUTO_CATEGORY_NUM_小排泄する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_大排泄する
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("顔騎放屁"), COM_AUTO_CATEGORY_NUM_大排泄する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("放屁する"), COM_AUTO_CATEGORY_NUM_大排泄する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("浣腸"), COM_AUTO_CATEGORY_NUM_大排泄する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("浣腸＆プラグ"), COM_AUTO_CATEGORY_NUM_大排泄する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_触手を扱う
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手召喚"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手挿入"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手Ａ挿入"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手クリ責め"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手胸愛撫"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手オナホ"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手コキ"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手搾乳"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手緊縛"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手口辱"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手産卵"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手Ａ産卵"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手オナニー"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手乳腺開発"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手尿道挿入"), COM_AUTO_CATEGORY_NUM_触手を扱う)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手Ｕ産卵"), COM_AUTO_CATEGORY_NUM_触手を扱う)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_愛撫させる
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("愛撫"), COM_AUTO_CATEGORY_NUM_愛撫させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("胸愛撫"), COM_AUTO_CATEGORY_NUM_愛撫させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("指挿入れ"), COM_AUTO_CATEGORY_NUM_愛撫させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("アナル愛撫"), COM_AUTO_CATEGORY_NUM_愛撫させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("キス"), COM_AUTO_CATEGORY_NUM_愛撫させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("尿道指挿入れ"), COM_AUTO_CATEGORY_NUM_愛撫させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("囁きかける"), COM_AUTO_CATEGORY_NUM_愛撫させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("舌を這わす"), COM_AUTO_CATEGORY_NUM_愛撫させる)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_奉仕させる
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("泡踊り"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("手コキ"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("フェラチオ"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("パイズリ"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("素股"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("尻コキ"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("玉舐め"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("尻尾コキ"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("亀頭責め手コキ"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("足を舐める"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("亀頭責めフェラ"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("指フェラ"), COM_AUTO_CATEGORY_NUM_奉仕させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("玉揉み"), COM_AUTO_CATEGORY_NUM_奉仕させる)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_潤滑追加させる
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("ローション"), COM_AUTO_CATEGORY_NUM_潤滑追加させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("クンニ"), COM_AUTO_CATEGORY_NUM_潤滑追加させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("アナル舐め"), COM_AUTO_CATEGORY_NUM_潤滑追加させる)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_避妊させる
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("コンドーム"), COM_AUTO_CATEGORY_NUM_避妊させる)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_性交させる
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("尻尾挿入"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("尻尾Ａ挿入"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("貝合わせ"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("兜合わせ"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("ペニバン装着"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("正常位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("後背位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("対面座位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("背面座位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("騎乗位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("背面騎乗位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("側位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("屈曲位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("駅弁"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("背面駅弁"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("立ちバック"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("二本挿入"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("順番に挿入"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("代わる代わる挿入"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ正常位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ後背位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ対面座位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ背面座位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ騎乗位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ背面騎乗位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ側位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ屈曲位"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ駅弁"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ背面駅弁"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ立ちバック"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ二本挿入"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("順番にＡ挿入"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("代わる代わるＡ挿入"), COM_AUTO_CATEGORY_NUM_性交させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("尿道挿入"), COM_AUTO_CATEGORY_NUM_性交させる)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_道具使わせる
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("オナホコキ"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("双頭バイブ"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("ローター"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("バイブ"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("アナルバイブ"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("クリキャップ"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("ニプルキャップ"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("媚薬"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("排卵誘発剤"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("メイガスの夜"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("桃源香"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("搾乳機"), COM_AUTO_CATEGORY_NUM_道具使わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("尿道ブジー"), COM_AUTO_CATEGORY_NUM_道具使わせる)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_被虐する
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("顔面騎乗"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ顔面騎乗"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ｗ顔面騎乗"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("髪コキ"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("イラマチオ"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("足コキ"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("脅す"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("スパンキング"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("鞭"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("針"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("目隠し"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("縄"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("口枷"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("ペニバン口枷"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ｖ拡張バルーン"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ａ拡張バルーン"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("フィストファック"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("アナルフィスト"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("平手打ち"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("鼻フック"), COM_AUTO_CATEGORY_NUM_被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("ニプルファック"), COM_AUTO_CATEGORY_NUM_被虐する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_酷く被虐する
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("麻薬"), COM_AUTO_CATEGORY_NUM_酷く被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("首絞め"), COM_AUTO_CATEGORY_NUM_酷く被虐する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("腹パン"), COM_AUTO_CATEGORY_NUM_酷く被虐する)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_露出させる
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("見つめあう"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("電気按摩"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("身体に落書き"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("露出プレイ"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("体毛管理"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("遠隔調教"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("ビデオ撮影"), COM_AUTO_CATEGORY_NUM_露出する)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ｃ自慰"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("Ｐ自慰"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("セルフ挿入"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("セルフＡ挿入"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("セルフフェラ"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("土下座"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("おねだり"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("オナホ自慰"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("秘貝開帳"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("アナル開帳"), COM_AUTO_CATEGORY_NUM_露出させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("服を脱ぐ"), COM_AUTO_CATEGORY_NUM_露出させる)
;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_小排泄させる
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("放尿する"), COM_AUTO_CATEGORY_NUM_小排泄させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("尿を掛ける"), COM_AUTO_CATEGORY_NUM_小排泄させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("口内放尿"), COM_AUTO_CATEGORY_NUM_小排泄させる)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("利尿剤"), COM_AUTO_CATEGORY_NUM_小排泄させる)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_大排泄させる
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("顔騎放屁"), COM_AUTO_CATEGORY_NUM_大排泄させる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("放屁する"), COM_AUTO_CATEGORY_NUM_大排泄させる)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("浣腸"), COM_AUTO_CATEGORY_NUM_大排泄させる)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("浣腸＆プラグ"), COM_AUTO_CATEGORY_NUM_大排泄させる)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_触手を扱わせる
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手召喚"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手挿入"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手Ａ挿入"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手クリ責め"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手胸愛撫"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手オナホ"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手コキ"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手搾乳"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手緊縛"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手口辱"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手産卵"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手Ａ産卵"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("触手オナニー"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手乳腺開発"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手尿道挿入"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)
CALL SET_COM_AUTO_COM_CATEGORY(ADD_NUM_対象が実行 + GET_TRAINNUM("触手Ｕ産卵"), COM_AUTO_CATEGORY_NUM_触手を扱わせる)

;-------------------------------------------------
;## COM_AUTO_CATEGORY_NUM_説得
;-------------------------------------------------
CALL SET_COM_AUTO_COM_CATEGORY(GET_TRAINNUM("忠誠を誓わせる(逆調教)"), COM_AUTO_CATEGORY_NUM_説得)

;-------------------------------------------------
;## デバッグ登録漏れ確認
;-------------------------------------------------
[IF_DEBUG]
;DEBUGPRINTFORML
;DEBUGPRINTFORML #### DEBUG カテゴリ設定 登録漏れ確認
FOR L_COUNTER, 0, 1000
	SIF TRAINNAME:L_COUNTER == ""
		CONTINUE
	;処理が特殊なので設定していないコマンド
	SIF GROUPMATCH(L_COUNTER, GET_TRAINNUM("酒恥肉倫"), GET_TRAINNUM("ピアシング"), GET_TRAINNUM("タトゥー"), GET_TRAINNUM("おまかせする"), GET_TRAINNUM("忠誠を誓わせる"))
		CONTINUE
	IF COM_AUTO_COM_CATEGORY:L_COUNTER == 0
		;DEBUGPRINTFORML {L_COUNTER, 4}.%TRAINNAME:L_COUNTER, 26, LEFT% %NUM_FORMAT(COM_AUTO_COM_PRIORITY:L_COUNTER), 10, RIGHT% カテゴリなし
	ENDIF
NEXT

[ENDIF]

RETURN 0