code:
;-------------------------------------------------
; eraTheWorld proto4.48用 妖夢口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;ためしに自分で書いてみる口上。
;移植程度しか経験ないので、とりあえず素質と合致した口上になるように心がけてみる。
;
;構文の知識は皆無に等しいので、先人の口上を参考にエロ文を必死に貼り付けるだけのものとなります。
;よって、書いたはいいものの機能していない箇所があるかもしれません。
;その辺りに気づいた方は私の代わりに直してくれると感激してむせび泣きます。

;参考　霊夢口上　萃香口上　美鈴口上

;メモ

;素質
;処女　キス未経験　自制心　保守的　無知　貞操観念　痛みに強い　献身的　快感に素直　C敏感　A敏感　貧乳　回復早い

;PRINTL　　　　　……PRINTではできない改行をする
;PRINTFORML　　　……%CALLNAME:MASTER%　のような変数を単語として表示し、なおかつ改行する
;PRINTFORMW　　　……上にWAIT機能を追加したもの
;PRINTFORM　　　 ……PRINTFORMLから改行機能をのけたもの

;ライセンスについて
; ・基本項目(許可する項目を"○"に、許可しない項目を"×"に変更してください。)
; +----+----+-------------------------------+
; |番号|許可|ライセンス内容                 |
; +----+----+-------------------------------+
; | 1　| ○ | 処理上のバグ修正              |
; +----+----+-------------------------------+
; | 2　| ○ | 口上の誤字・脱字の修正        |
; +----+----+-------------------------------+
; | 3　| ○ | 口上まとめへの収録            |
; +----+----+-------------------------------+
; | 4　| ○ | 口上の新規追加                |
; +----+----+-------------------------------+
; | 5　| ○ | 既存口上の改変                |
; +----+----+-------------------------------+
; | 6　| ○ | 改変した口上の自由な再配布    |
; +----+----+-------------------------------+
; | 7　| ○ | 口上内容の転載                |　*ただしera以外での流用は禁止とします
; +----+----+-------------------------------+

;------ ｷﾘﾄﾘ ｶｲｼ -----------
;eraTheWorld proto4.07パッチ取り込み用 Ver1.13
;テンプレートの使い方
;初めに置換コマンド等により K23 を K(キャラNo) に変更して下さい
;キャラNoはCSVフォルダのCharaファイルを参照　例(霧雨 魔理沙の場合)：KX =置換=> K11
;
;------ ｷﾘﾄﾘ ｵﾜﾘ -----------

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;わからんちん
;
;
;******************************************************************************

;### 口上存在判定 ###################################
@M_KOJO_K23(ARG)
;ここでRESULTSを設定すると他の同キャラ口上を突っ込まれても正常動作する。

;RESULTS = _TEST_

;と設定すると、"EVENT"系イベントだと
;M_KOJO_TEST_EVENT_K23_1() とかで呼ばれる…はず。（未テスト機能）

;ここでCFLAGやTALENTを利用する場合、キャラ番号が必須です

;眠姦口上有に1を入れると、眠姦時にコマンド口上が読み込まれるように
;CFLAG:K23:眠姦口上有 = 0
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K23

;ここでSETCOLORすることで口上に色を付けられます
;例：SETCOLOR 0xC07070

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K23
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAGを使う場合、キャラ番号の指定が必要になります
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K23
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。

	PRINTL
	PRINTFORMW 「こんにちは」
	PRINTFORML 不意にかけられた挨拶に振り向くと、そこには銀髪碧眼、深緑と白の洋服を身にまとった美しい少女が佇んでいた。
	PRINTFORMW 可憐な装いとは不釣合いな桜の記章が入った刀と脇差を背中と腰に挿したその少女は、どこか幼さの残る笑顔で頭を下げる。
	PRINTFORML 「あなたが噂になっている外来人の方ですね」
	PRINTFORMW 「私は白玉楼で幽々子様の剣術指南役兼庭師をやらせていただいている魂魄妖夢と申します」
	PRINTFORML そう自己紹介をする彼女のそばにはまるで寄り添うように奇妙な白い塊が浮かんでいた。
	PRINTFORMW 「こちらは私の半霊です。私は半人半霊ですから」
	PRINTFORMW 視線に気づいたのか、ふよふよと浮かんでいる塊がお辞儀をするように上下する。
	PRINTFORMW 「これから顔を合わせる機会もあると思いますが、よろしくお願いします」
	PRINTFORML 銀髪を風に靡かせながらそう言って微笑む妖夢に、あなたは自己紹介も忘れてしばし目を奪われ続けた。
	PRINTL
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K23_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORML 「今日は誘っていただいて有難うございました」
	PRINTFORML 「あの…いつも良くして頂いているお礼に、今日はプレゼントを用意したんです」
	PRINTFORMW 「少し恥ずかしいので、できれば目を閉じていてくれませんか…？」
	PRINTL
	PRINTFORML 「――っ」
	PRINTFORMW
	PRINTFORML 「その…私の初めて…です」
	PRINTFORML 「こんなことじゃ御礼にならないとわかっています。でも、どうしても%CALLNAME:MASTER%にもらって欲しかったんです」
	PRINTFORMW 「また……誘ってもらえますか？」

	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K23_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0

	PRINTFORMW 「――あのっ！」
	PRINTFORML 「いえ、あ、そのっ……こんなことを突然言われても迷惑かも知れませんけど…」
	PRINTFORMW 「でも、やっぱり伝えるべきことはきちんと伝えておかなきゃって思うんです！」
	PRINTFORML 「……きです。――好きです！ 」
	PRINTFORMW 「%CALLNAME:MASTER%のことが好きなんです！」
	PRINTFORML 「胸も小さい、女性らしい魅力の欠片もない、私なんかに思われても嬉しくないかもしれません」
	PRINTFORMW 「でも、この気持ちだけは伝えておかないと、いつか絶対に後悔するって思ったから…」
	PRINTL
	PRINTFORMW 「%CALLNAME:MASTER%の気持ち、私に教えてください」

		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1

	PRINTFORMW 「――っ！」
	PRINTFORML そう答えた瞬間、小さな衝撃が体に走る。
	PRINTFORMW そのまま後ろに倒れそうになる体で必死に踏みとどまると、あなたの胸に顔を埋めながらすすり泣く妖夢の姿がそこにあった。
	PRINTFORML 「……きっと断られると思っていました」
	PRINTFORMW 「私みたいに何もかも未熟な半人があなたに想ってもらえるなんてっ――」
	PRINTL
	PRINTFORML 「好きです……ずっとお慕いしていました」
	PRINTFORMW 胸に埋まる小さな頭を撫でるその手に柔らかい感触を感じながら、%CALLNAME:MASTER%は優しくその半人半霊の少女を抱きしめた。

		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2

	PRINTFORMW 「――っ大丈夫です。分かっていましたから」
	PRINTFORML 「ただ、あなたに知っておいて欲しかったんです」
	PRINTFORMW 「私の気持ちを」
	PRINTFORMW 気丈にも笑顔を浮かべながら、妖夢は感謝の言葉を%CALLNAME:MASTER%に告げるのだった。

		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K23_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		IF TALENT:恋人
		PRINTFORML 「もう時間なんですね…」
		PRINTFORML 「――待ってます%UNICODE(0x2665)%」
		PRINTFORMW 何を、と聞き返そうとした%CALLNAME:MASTER%の口は、妖夢からの長い口吻によって遮られた。
		RETURN 1

		ELSEIF TALENT:恋慕
		PRINTFORML 「もう時間なんですね…」
		PRINTFORML  妖夢は名残惜しそうにそうつぶやく。
		PRINTFORMW 固く結ばれたその手のひらは、帰りたくないという思いを強く語っていた。

		ELSEIF TALENT:思慕
		PRINTFORML 「今日は誘って頂いて有難うございました」
		PRINTFORML 「あ、あのっ…！」
		PRINTFORMW また誘ってください、と続けようとした妖夢は、しかしその続きを口にすることはできなかった。

		ELSE
			SELECTCASE RAND:2
				CASE 1
					PRINTFORMW 「幽々子様のお世話が有りますので、これで失礼します」
				CASE 0
					PRINTFORMW 「今日は楽しかったです。それでは」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORML 「怒っていた私が馬鹿みたいじゃないですか…」
			PRINTFORML 妖夢はむすっとした顔をしていたが、小さくため息をつく
			PRINTFORMW 「あんまりイジメないでくださいね」
			RETURN 1
		ELSE
			PRINTFORML 「――っ！」
			PRINTFORMW
			PRINTFORML 刹那の瞬間に放たれた居合の一閃が、%CALLNAME:MASTER%の髪を揺らす。
			PRINTFORML 「悪いモノは切り捨てました。――諸共に」
			PRINTFORMW 「私もまだまだ修行が足りません」
		RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
			PRINTFORML 「――っ！」
			PRINTFORMW
			PRINTFORML 刹那の瞬間に放たれた居合の一閃が、%CALLNAME:MASTER%の側にあった大木を両断する。
			PRINTFORML 「不覚です。――修行が足りませんでした」
			PRINTFORMW 地響きを立てながら崩れ落ちるその姿に、あなたはどちらを狙ったのだろうと冷や汗を流しながら考えていた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
			PRINTFORML 「――はぁっ！！」
			PRINTFORMW
			PRINTFORML 裂帛の気合の声と共に放たれた居合の一閃は、
			PRINTFORML %CALLNAME:MASTER%の前髪を数本切り飛ばしながらその鼻先で静止していた。
			PRINTFORMW 「――次は切ります」
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K23_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF !CFLAG:TARGET:ブチギレ
			PRINTFORML 「%CALLNAME:MASTER%、何か御用ですか？」
			SIF TALENT:思慕 || TALENT:恋慕
				PRINTFORML 「――あのっ、お暇でしたら少し…」
			IF TALENT:セフレ || TALENT:愛欲

				PRINTFORML 「――あのっ、よかったら…」
			ENDIF
			SIF TALENT:恋人
				PRINTFORML 妖夢は無意識のうちに、%CALLNAME:MASTER%の袖を掴んでいる。
			;時姦刻印があるとき時姦刻印/5で
			IF MARK:時姦刻印 > 0 && RAND:5 < MARK:時姦刻印
				PRINTFORML 本人の意思とは無関係に体に刻み付けられた衝動に、
				SIF MARK:時姦刻印 > 1
					PRINTFORML 体を小さく震わせながら
				SIF MARK:時姦刻印 > 2
					PRINTFORML その秘所を蜜で溢れさせて、
			ENDIF
			PRINTFORMW 妖夢は笑顔を%CALLNAME:MASTER%に向けている。
		ELSE
			PRINTFORMW 妖夢は無言のまま楼観剣を抜き放ち、鋭く素振りを始めている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF !CFLAG:ブチギレ
			PRINTFORM 「%CALLNAME:MASTER%、
			SIF TALENT:思慕 || TALENT:恋慕
				PRINTFORM 隣、失礼しますね。
			PRINTFORML どうしました？」
			SIF TALENT:セフレ || TALENT:愛欲
				PRINTFORML 妖夢は傍によると、%CALLNAME:MASTER%の腕にそっと手を添わせた。
			SIF TALENT:恋人
				PRINTFORML 妖夢は傍によると、さりげなく%CALLNAME:MASTER%の手に指を絡めてきた。
			;時姦刻印があるとき時姦刻印/5の確率で
			IF MARK:時姦刻印 > 0 && RAND:5 < MARK:時姦刻印
				PRINTFORML 本人の意思とは無関係に体に刻み付けられた衝動に、
				SIF MARK:時姦刻印 > 1
					PRINTFORM 期待するかのように体を小さく震わせながら、
				SIF MARK:時姦刻印 > 2
					PRINTFORM 気付かぬうちにその秘所を蜜で溢れさせて、
			ENDIF
			PRINTFORMW 妖夢は%CALLNAME:MASTER%に視線を向けている。
		ELSE
			PRINTFORMW 入ってきた妖夢は目を細めながら剣の柄に手をかけている。
		ENDIF
		RETURN 1

	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;TARGETが恋慕を持っている時のみ ＝ 思慕、愛欲、セフレはない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORML 「背中流しますね」
			PRINTFORML 「洗って欲しい所があれば遠慮しないでください」
			PRINTFORML 妖夢は一糸まとわぬ姿を惜しげもなく晒しながら近寄ってきた。
			SIF MARK:時姦刻印 && RAND:5 < MARK:時姦刻印-1
				PRINTFORMW そして%CALLNAME:MASTER%の背中に、ささやかな膨らみと固くなった乳首を押し付けてくる。
		ELSE
			PRINTFORML 「――っ、失礼します」
			PRINTFORML 妖夢はその体をバスタオルで隠しながら浴室に入ってきた。
			PRINTFORML 「そ、そんなまじまじとこちらを見ないでください！」
			PRINTFORMW 羞恥に顔を赤らめながらも、妖夢は献身的に%CALLNAME:MASTER%の背中を流している。
			SIF MARK:時姦刻印 && RAND:5 < MARK:時姦刻印
				PRINTFORMW 背中越しに感じる妖夢の吐息は熱く、何かに耐えるような声がこぼれている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;通常はこちら
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「み、みょんっ！」
		PRINTFORML 妖夢は%CALLNAME:MASTER%の裸に、自分の身体を隠すことも忘れて固まっている。
		PRINTFORML 「あ、あっ、――ごめんなさい！！」
		PRINTFORMW 正気に戻り、自分が裸を晒している事に気づくと、顔を真赤にして出ていった。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;TARGETが自分の弱みを握る異性のときのみ
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML 「出ていってください！　切りますよ！！」
		PRINTFORMW 裸を隠すより先に刀を探そうとする妖夢に%CALLNAME:MASTER%は慌てて逃げ出した。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF CFLAG:ブチギレ
			PRINTFORML 「――っ！」
			PRINTFORML 不意に感じた殺気に%CALLNAME:MASTER%は振り返ると、
			PRINTFORMW そこには無意識のうちに刀の鯉口をきった妖夢が立っていた。

		ELSEIF TALENT:恋人
			PRINTFORML 「――あっ、%CALLNAME:MASTER%さん！」
			PRINTFORML 妖夢は声を弾ませて近寄ってくる。
			PRINTFORML 「あの、よかったらこれから…」
			PRINTFORMW 嬉しげな表情で会話を続ける妖夢は、離さないと言うようにあなたの腕を掻き抱いている。

		ELSEIF TALENT:恋慕
			PRINTFORML 「――あっ、%CALLNAME:MASTER%さん、奇遇ですね」
			PRINTFORML 妖夢は声を弾ませて近寄ってくる。
			PRINTFORML 「あの、よかったら…」
			PRINTFORMW そのまま口ごもる妖夢だが、無意識の内にあなたの袖口を握っている。

		ELSEIF TALENT:思慕
			PRINTFORML 「――あっ、%CALLNAME:MASTER%さん」
			PRINTFORMW 妖夢は楽しげにあなたに話しかけてくる。

		ELSEIF TALENT:愛欲
			PRINTFORML 「%CALLNAME:MASTER%さん、お暇ですか？」
			PRINTFORML いつの間にか側に来ていた妖夢は身体を無遠慮に押し付けてくる。、
			PRINTFORML 「もし時間があるのなら私と……%UNICODE(0x2665)%」
			PRINTFORML 顔を赤らめ、熱い吐息を放ちながら妖夢はあなたの腕を掻き抱く。
			PRINTFORML 「――お願いしてもいいでしょうか？」
			PRINTFORMW %CALLNAME:MASTER%は妖夢の秘所に押し付けられた手の甲に確かな熱を感じていた。

		ELSEIF TALENT:セフレ
			PRINTFORML 「――あっ、%CALLNAME:MASTER%さん」
			PRINTFORML 妖夢は楽しげにあなたに話しかけてくる。
			PRINTFORMW しかしその熱い眼差しとさり気ないスキンシップは、普段の仕草と一線を画していた。
		ELSE
			PRINTFORMW 妖夢はこちらに気がつくと、小さく会釈をした。

		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;恋人
		IF TALENT:恋人
			PRINTFORML 「……楽しそうですね」
			PRINTFORML 「――ええ、私も楽しみです。この後の事が」
			PRINTFORMW 妖夢は笑顔を向けているが、目は笑っていなかった。
			CFLAG:ARG:不機嫌 = 3
			CFLAG:ARG:ブチギレ = 1
			TALENT:機嫌 = -1
			MARK:反発刻印 +=1
			SIF MARK:反発刻印 > 3
				MARK:反発刻印 = 3
			TFLAG:反発刻印取得 = MARK:反発刻印

		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORML 「こんなところで出会うなんて、奇遇ですね」
			PRINTFORMW 妖夢は平静を装っているようだが、その仕草はぎこちなかった。

		;思慕
		ELSEIF TALENT:思慕
			PRINTFORML 「二人でお出かけですか？」
			PRINTFORML 「――いいなぁ…」
			PRINTFORMW 妖夢は%CALLNAME:(ARG:1)%を一瞥すると、そうひとりごちた。

		;愛欲
		ELSEIF TALENT:愛欲
			PRINTFORMW 「――今度は私も誘ってください%UNICODE(0x2665)%」
			PRINTFORML 妖夢は%CALLNAME:(ARG:1)%を羨ましそうに見つめながら、
			PRINTFORML すれ違いざまに%CALLNAME:MASTER%にだけ聞こえるようにつぶやいた。

		;セフレ
		ELSEIF TALENT:セフレ
			PRINTFORMW 妖夢は%CALLNAME:(ARG:1)%を羨ましそうに見つめている。

		ELSE
			PRINTFORMW 妖夢は%CALLNAME:MASTER%と%CALLNAME:(ARG:1)%に気がつくと、小さく会釈をした。
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K23_2(ARG,ARG:1)
CALL MESSAGE_GOODMONING(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K23_3(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K23_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:ブチギレ
			PRINTFORMW 妖夢は無意識の内に刀に手を伸ばしていた。

		ELSEIF TALENT:恋人
			PRINTFORML 「――あっ！」
			PRINTFORMW 妖夢は%CALLNAME:MASTER%に気がつくと、嬉しそうに顔を綻ばせて会釈を返してきた。

		ELSEIF TALENT:恋慕
			PRINTFORML 「――あっ……」
			PRINTFORMW 妖夢の心境を表すように、半霊が%CALLNAME:MASTER%に擦り寄ってきた。

		ELSEIF TALENT:思慕
			PRINTFORML 「――あっ……」
			PRINTFORMW 妖夢は何か言いたそうな様子で%CALLNAME:MASTER%を見つめている。

		ELSE
			SELECTCASE RAND:2
				CASE 1
					PRINTFORML 「今日の夕ごはんは何が良いでしょうか…」
					PRINTFORMW 妖夢は%CALLNAME:MASTER%に気付かないほど深く考え込んでいる。
				CASE 0
					PRINTFORMW 妖夢は礼儀正しく会釈を返してきた。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;他者介入でムード変化
;==================================================
@M_KOJO_EVENT_K23_5(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;る～ことが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K23_6(ARG,ARG:1)
;口上主はTARGET
;ARGに情事相手
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF TALENT:恋人
			PRINTFORML 「何を、してるんです？」
			PRINTFORML 「…まあいいです。後できちんと『説明』してもらいますから」
			PRINTFORMW 妖夢は素敵な笑顔を浮かべている。
		ELSEIF TALENT:恋慕
			PRINTFORML 「――っ！」
			PRINTFORML 思い人の濡れ場に遭遇した妖夢は、体を固まらせて%CALLNAME:MASTER%の逸物を凝視していたが、
			PRINTFORMW やがて顔を真っ赤にしながらその場から走り去った。
		ELSE
			PRINTFORML 「あ、あの、何も見ていませんから、お気になさらずにどうぞ！」
			PRINTFORMW 妖夢は顔を真っ赤にしながらその場から走り去っていった。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K23_7(ARG,ARG:1)
;口上主はTARGET
;ARGに目撃者
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
	PRINTFORML 「あ、あ、あ、あ――」
	PRINTFORML 「見られた？　見られましたよね！？」
	PRINTFORMW 「ううう、次に会うときに私どんな顔すればいいんですか…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
	PRINTFORML 「――あ、あの私たちはそのっ！」
	PRINTFORML 「え、いやちょっと！　なんで服を脱いでるんですか！？」
	PRINTFORMW 「ああ！　それは私のっ――%CALLNAME:MASTER%も笑ってないで如何にかしてください！！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
	PRINTFORML 「――%CALLNAME:MASTER%、手がとまってます」
	PRINTFORML 「え、誰かに見られた？　大丈夫です、気のせいです、私は何も見てません」
	PRINTFORMW 「%CALLNAME:MASTER%は私だけ見てればいいんです」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて目撃者も参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
	PRINTFORML 「え、あの、その、本気ですか？」
	PRINTFORML 「いえ、嫌というかその、複数でなんて…」
	PRINTFORMW 「ああっ！　駄目です、それは私のです！」
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;目撃した情事を問い詰める
;==================================================
@M_KOJO_EVENT_K23_8(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERだけ問い詰め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1

	PRINTFORML 「大丈夫です、この白楼剣は人間の迷いを断ち斬るツルギ」
	PRINTFORML 「%CALLNAME:MASTER%の迷いを、綺麗さっぱり欠片の未練もなく、断ち切ってあげますから」
	PRINTFORMW 笑顔でそう言う妖夢だが、その目だけは欠片も笑っていなかった。

		RETURN 1
	ENDIF
	;-------------------------------------------------
	;二人とも説教
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2

	PRINTFORML 「二人ともそのままの姿勢で大丈夫です」
	PRINTFORML 「この白楼剣は迷いを断ち斬るツルギ。命の危険は多分ありません」
	PRINTFORMW そう言いながら妖夢は、何故か背負っている楼観剣に手を伸ばしている。

		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;パンツ没収された
;==================================================
@M_KOJO_EVENT_K23_9(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;同じ場所に居てパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;遠距離移動中にパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;押し倒した
;==================================================
@M_KOJO_EVENT_K23_10(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE ARG:1
			CASE 0
			;抜け出した
				PRINTFORML
				RETURN 1
			CASE 1
			;抱き着きモード満足終了
				PRINTFORML
				RETURN 1
			CASE 2
			;抱き着きモード強制終了
				PRINTFORML
				RETURN 1
		ENDSELECT
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE ARG:1
			CASE 1
			;好きにして状態から抜け出せなかった
				PRINTFORML
				RETURN 1
			CASE 2
			;欲求不満が高くて抜け出せなかった
				PRINTFORML
				RETURN 1
		ENDSELECT
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_EVENT_K23_11(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:思慕
			PRINTFORML 「――み、みょんっ？！」
			PRINTFORML 妖夢は裸の%CALLNAME:MASTER%の姿に自身の裸体を隠す事も忘れて固まっている。
			PRINTFORML あなたの顔に定まっていた視線は、やがてゆっくりと下がっていき、その股間で静止した。
			PRINTFORML 「なっ、なっ…何なんですかっ――」
			PRINTFORMW 顔を真赤にして手当たり次第に周囲の物を投げつけてくる妖夢に%CALLNAME:MASTER%は逃げ出した。
		ELSE
			PRINTFORML 「――み、みょんっ？！」
			PRINTFORML 妖夢は裸の%CALLNAME:MASTER%の姿に自身の裸体を隠す事も忘れて固まっている。
			PRINTFORML あなたの顔に定まっていた視線は、やがてゆっくりと下がっていき、その股間で静止した。
			PRINTFORML 「出てってください！　切り棄てますよ！！」
			PRINTFORMW 身体を隠すよりも先に、武器を探そうとする妖夢に、あなたは股間の縮まる思いで逃げ出した。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORML 「――先に入っていたのなら、声をかけてください」
			PRINTFORML 妖夢は一糸まとわぬ姿を惜しげもなく晒しながら近寄ってきた。
			PRINTFORML 「背中流しますね」
		ELSE
			PRINTFORML 「――えっ！？」
			PRINTFORML 妖夢は%CALLNAME:MASTER%の姿に、慌ててその裸体をバスタオルで隠す。
			PRINTFORML 「い、いたのなら声をかけてください！　って、そんなまじまじとこちらを見ないでください！」
			PRINTFORMW 羞恥に顔を赤らめながら、妖夢は湯船の中に顔まで浸かった。
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K23_12(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K23_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「そろそろ買い出しに行かないと…」
		PRINTFORML 「失礼しますね」
		PRINTFORMW 妖夢はどこから用意したのか、大八車を押しながら人里へと向かった。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:3
			CASE 2
				PRINTFORML 「お米は買ったし、後は肉と野菜と…」
				PRINTFORMW 妖夢は大八車を引きながら道を歩いている。
			CASE 1
				PRINTFORML 「そこにある分は荷台に積み込んで下さい」
				PRINTFORMW 「残りはまた後日受取に来ますので…」
			CASE 0
				PRINTFORMW 「はい、支払いの方はいつもと同じように…」

		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORML 「手伝って頂いて、有難うございました」
			PRINTFORML 「あの、お礼というわけではありませんけど…」
			PRINTFORMW 妖夢はもう少し%CALLNAME:MASTER%と一緒に居たいようだ。
		ELSEIF TALENT:恋慕
			PRINTFORML 「手伝って頂いて、有難うございました」
			PRINTFORML 「あの、お礼というわけではありませんけど…」
			PRINTFORMW 妖夢はもう少し%CALLNAME:MASTER%と一緒に居たいようだ。
		ELSE
			PRINTFORML 「手伝って頂いて、有難うございました」
			PRINTFORMW 妖夢は深々と%CALLNAME:MASTER%にお辞儀をした。
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;食事系
;==================================================
@M_KOJO_EVENT_K23_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_EVENT_K23_15(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 1
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
		;PRINTFORML 「んっ、するんですか？」
		;PRINTFORML 「もう…仕方がない人ですね」
		;PRINTFORML 「%CALLNAME:MASTER%の迷いは、全部私の中で受け止めてあげますから」
		;PRINTFORMW そんな言葉とは裏腹に、妖夢の瞳はすでに快楽の期待で潤んでいる。
		;PRINTFORMW あなたの首に両手が絡まり、その口を情熱的な口吻が塞いだ。

		ELSEIF TALENT:恋慕
		;PRINTFORML 「あ、ああ、んっ…　や、やめてください、ひぃんっ」
		;PRINTFORML 「駄目です、お、お願いですっ。このままじゃ私は…んあぁっ」
		;PRINTFORML 妖夢の言葉とは裏腹に、%CALLNAME:MASTER%になすがままにされている。
		;PRINTFORML 彼女の力量からすれば、あなたの拘束などたやすく跳ね除けられるだろうに。
		;PRINTFORMW 嬌声をあげながら、あなたに懇願する妖夢の瞳は、もはや快楽に淀んでいる。

		ELSEIF TALENT:思慕
		;PRINTFORML 「や、やめてください！」
		;PRINTFORML 「駄目です、お、お願いですっ。こんな不埒な関係は、まだっ！」
		;PRINTFORML 妖夢の言葉とは裏腹に、%CALLNAME:MASTER%を押しのけようとする力は弱い。
		;PRINTFORML 彼女の力量からすれば、あなたの拘束などたやすく跳ね除けられるだろうに。
		;PRINTFORMW 涙目になりながら、あなたに懇願する妖夢の姿は、ただ劣情を激しくするだけだった。

		ELSEIF TALENT:愛欲
		;PRINTFORML 「はやく、はやくしてください%UNICODE(0x2665)%」
		;PRINTFORML 「――もう我慢できなくて」
		;PRINTFORML %CALLNAME:MASTER%が妖夢のスカートを捲りあげると、愛液を溢れさせた秘所があらわになる。
		;PRINTFORMW 「私のせいじゃありません！　あなたが私をこんなにしたんじゃないですかっ%UNICODE(0x2665)%」

		ELSEIF TALENT:セフレ
		;PRINTFORML 「あ、ああっ、焦らさないでください…」
		;PRINTFORML 「こんな気持のいいことを教えた責任は、ちゃんと取ってもらわないと駄目です」
		;PRINTFORML 快楽に耐性のなかった妖夢は、もはや教え込まれた行為に抗うすべを持っていないようだ。

		ELSE
		PRINTFORML 「――な、何をするんですか！？」
		PRINTFORML 妖夢はは突然の出来事に驚き戸惑っている。
		PRINTFORML 「ちょ、ひぃん！　変なところを触らないでください！」
		PRINTFORML 「力がっ…、んんっあぁぁっ」
		PRINTFORML 修行で痛みへの耐性は備えていた妖夢も、その方面の知識の薄さが仇になったか、
		PRINTFORMW %CALLNAME:MASTER%の手練手管に抵抗する術を持たないようだ。

		ENDIF
		RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K23_16(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）(存在せず
	;記入チェック
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K23_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感		%CALLNAME:LOCAL%は、謎の快感にびくりと身を強張らせた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;絶頂回数カウント
		LOCAL:4 = 0
		LOCAL:4 += EX:23:50
		LOCAL:4 += EX:23:51
		LOCAL:4 += EX:23:52
		LOCAL:4 += EX:23:53
		;絶頂箇所判定
		LOCAL:5 = 0
		SIF EX:23:50 > 0
			LOCAL:5 += 1
		SIF EX:23:51 > 0
			LOCAL:5 += 1
		SIF EX:23:52 > 0
			LOCAL:5 += 1
		SIF EX:23:53 > 0
			LOCAL:5 += 1
		IF CFLAG:23:1002 == 0
			PRINTFORML 「――みゃんっ！？」
			PRINTFORM 妖夢はかん高い嬌声を響かせながら、
				IF LOCAL:5 > 1
					PRINTFORM 顔を真っ赤に染め
				ELSEIF EX:23:50 > 0 || EX:23:51 > 0
					PRINTFORM 快感に耐えるように股間を押さえつつ
				ELSEIF EX:23:52 > 0
					PRINTFORM 快感に耐えるようにお尻を庇いながら
				ELSEIF EX:23:53 > 0
					PRINTFORM 快感に耐えるように胸をかき抱いて
				ENDIF
			PRINTFORMW 周辺に視線を走らせた。
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:23:350 == 0
					IF CFLAG:23:1001 == 0
						PRINTFORML 「――え？　あれ！？　嘘っ…」
						PRINTFORML 履いていたはずの下着が消え去っている現実に、妖夢は驚愕の表情を浮かべる。
						PRINTFORMW スカートを押さえながら他人に気付かれないように平静を装うものの、その肩は羞恥に震えていた。
					ELSEIF CFLAG:23:1001 < 10
						PRINTFORML 「……くっ、またっ！」
						PRINTFORML 再び履いていた下着が失われた現実に、妖夢は驚愕の表情を浮かべる。
						PRINTFORMW 楼観剣へ手を伸ばしながら油断なく周囲を伺うが、その脚は羞恥で震えていた。
					ELSEIF CFLAG:23:1001 < 20
						PRINTFORML 「……またっ　――卑怯者！！姿を見せなさい！！」
						PRINTFORML 妖夢はそう叫びながら人目も気にせず楼観剣を抜き放つ。
						PRINTFORMW 下着が無くなっている事に羞恥と同時に激しい怒りを覚えているようだ。
					ELSEIF CFLAG:23:1001 == 100
						PRINTFORML 「――っ！」
						PRINTFORML いつものように下着を奪われるたことに気づくと、妖夢は楼観剣と白楼剣を無言で抜き放った。
						PRINTFORML 「何者の仕業かわかりませんが、斬ればすべてわかりますよね……！」
						PRINTFORMW 殺気を隠そうともせずに、完全に戦闘態勢に移行した妖夢の表情は怒りと羞恥で真紅に染まっている。
					ENDIF
					TCVAR:23:350 = 1
					CFLAG:23:1001 += 1
					CFLAG:23:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML 「――っ気配を一切感じさせないなんて」
			PRINTFORMW そう呟く妖夢を様子を、%CALLNAME:MASTER%は遠目に眺めている。
		ELSEIF CFLAG:58:1002 < 350
			PRINTFORML 「――――みゃぁんっ！？」
			PRINTFORM 再び襲ってきた快感に妖夢は頬を紅潮させながらも、
				IF LOCAL:5 > 1
					PRINTFORM どうにか体裁を整えながら
				ELSEIF EX:23:50 > 0 || EX:23:51 > 0
					PRINTFORM 快感に耐えるように股間を押さえつつ
				ELSEIF EX:23:52 > 0
					PRINTFORM 快感に耐えるようにアナルを庇いながら
				ELSEIF EX:23:53 > 0
					PRINTFORM 快感に耐えるように胸をかき抱いて
				ENDIF
			PRINTFORMW 周辺に視線を走らせた。
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:23:350 == 0
					IF CFLAG:23:1001 == 0
						PRINTFORML 「――え？　あれ！？　嘘っ…」
						PRINTFORML 履いていたはずの下着が消え去っている現実に、妖夢は驚愕の表情を浮かべる。
						PRINTFORMW スカートを押さえながら他人に気付かれないように平静を装うものの、その肩は羞恥に震えていた。
					ELSEIF CFLAG:23:1001 < 10
						PRINTFORML 「……くっ、またっ！」
						PRINTFORML 再び履いていた下着が失われた現実に、妖夢は驚愕の表情を浮かべる。
						PRINTFORMW 楼観剣へ手を伸ばしながら油断なく周囲を伺うが、その脚は羞恥で震えていた。
					ELSEIF CFLAG:23:1001 < 20
						PRINTFORML 「……またっ　――卑怯者！！姿を見せなさい！」
						PRINTFORML 妖夢はそう叫びながら人目も気にせず楼観剣を抜き放つ。
						PRINTFORMW 下着が無くなっている事に羞恥と同時に激しい怒りを覚えているようだ。
					ELSEIF CFLAG:23:1001 == 100
						PRINTFORML 「――っ！」
						PRINTFORML いつものように下着を奪われるたことに気づくと、妖夢は楼観剣と白楼剣を無言で抜き放った。
						PRINTFORML 「何者の仕業かわかりませんが、斬ればすべてわかりますよね……！」
						PRINTFORMW 殺気を隠そうともせずに、完全に戦闘態勢に移行した妖夢の表情は怒りと羞恥で真紅に染まっている。
					ENDIF
					TCVAR:23:350 = 1
					CFLAG:23:1001 += 1
					CFLAG:23:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML 「…ふぅ…っ！」
			PRINTFORMW 妖夢は心を落ち着けるように大きく息を吐き出した。
		ELSEIF CFLAG:23:1002 < 500
			PRINTFORML 「――――みゃぁんっ！！？」
			PRINTFORML 体を突き抜けるような快感に、妖夢は嬌声を抑えきれずにいる。
			PRINTFORML その頬は紅潮しており、にじむ汗がその表情を艶のあるものに変えていた。
			PRINTFORM 長く尾を引く快感に
				IF LOCAL:5 > 1
					PRINTFORM 自身の体を抱きしめるようにして
				ELSEIF EX:23:50 > 0 || EX:15:51 > 0
					PRINTFORM 秘所に伸びる手を隠し切れず
				ELSEIF EX:23:52 > 0
					PRINTFORM お尻を半霊で隠すように
				ELSEIF EX:23:53 > 0
					PRINTFORM 自身の胸の突起を覆い隠すように
				ENDIF
			PRINTFORMW その華奢な体を必死に押さえ込んでいる。
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:23:350 == 0
					IF CFLAG:23:1001 == 0
						PRINTFORML 「――くっ！？　そんなっ…」
						PRINTFORML 履いていたはずの下着が消え去っている現実に、妖夢は動揺している。
						PRINTFORMW しかし、快楽に淀む思考は羞恥を感じさせることはなかった。
					ELSEIF CFLAG:23:1001 < 10
						PRINTFORML 「……くっ、また…」
						PRINTFORML 再び履いていた下着が失われた現実に、妖夢は動揺している。
						PRINTFORMW 楼観剣へ手を伸ばしながら油断なく周囲を伺うが、その脚は快楽に震えていた。
					ELSEIF CFLAG:23:1001 < 20
						PRINTFORML 「……また、――卑怯者っ！　姿を見せさえすれば…」
						PRINTFORML 妖夢はそうつぶやきながら、楼観剣へと手を伸ばす。
						PRINTFORMW しかし下着が無くなっている事よりも、与えられる快楽に屈しかけている自分への恐怖のほうが強かった。
					ELSEIF CFLAG:23:1001 == 100
						PRINTFORML 「――っ」
						PRINTFORML いつものようにショーツを奪われるたことに気づくと、妖夢は白楼剣を無言で抜き放った。
						PRINTFORML 「白楼剣で、この迷いを切らなければ、私はっ……！」
						PRINTFORMW 与えられる快楽に翻弄される妖夢は、しかし、その快楽の前にただただ熱い吐息を漏らすだけであった。
					ENDIF
					TCVAR:23:350 = 1
					CFLAG:23:1001 += 1
					CFLAG:23:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML 「……はぁっ、……んっ……くっ！」
			PRINTFORML 姿も知らぬ何者かに体を玩ばれる異常さに、押し殺せぬ怒りをにじませながらも、
			PRINTFORMW それ以上にこの快楽を待ち望んでいる自分自身に、妖夢は自嘲気味に笑みを浮かべた。
		ELSEIF CFLAG:23:1003 == 0
			PRINTFORML 「――――みゃぁんっ%UNICODE(0x2665)%」
			PRINTFORMW 「……ふぅ、ふぅっ、……ふふふ……はぁっ%UNICODE(0x2665)%」
			PRINTFORML 数え切れないほどその身を襲い続けた快楽を、妖夢はついに受け入れるようになっていた。
			PRINTFORML 薄く開いた唇からは熱い吐息とともに、押さえることすら忘れた嬌声がこぼれだし、
			PRINTFORMW 上気したそのあどけない表情には、風貌にそぐわない雌の顔を覗かせている。
				IF CFLAG:291 == 1
					PRINTFORML 奪われた下着の事にさえ気付かないその姿は、
					PRINTFORMW 異性を惑わす蟲惑的な魅力にあふれていた。
					TCVAR:23:350 = 1
					CFLAG:23:1001 += 1
				ENDIF
			PRINTFORML
			PRINTFORMW 妖夢は、以前の自分がもう何処にもいないことに気付きながらも、
			PRINTFORML 「（こんなに気持ち良い事が悪いわけないじゃないですか%UNICODE(0x2665)%……悪いことはなんて何も%UNICODE(0x2665)%）」
			PRINTFORM その事実に疑問をはさむことなく完全に快楽に屈した
				IF LOCAL:5 > 1
					PRINTFORM 開発されきったその肢体は、
				ELSEIF EX:23:50 > 0
					PRINTFORM 痛いほど充血した陰核は、
				ELSEIF EX:23:51 > 0
					PRINTFORM しとどに濡れきった膣肉は、
				ELSEIF EX:23:52 > 0
					PRINTFORM 快感を求めヒクつくアナルは、
				ELSEIF EX:23:53 > 0
					PRINTFORM その突起を痛いほど尖らせたささやかな乳房は、
				ENDIF
			PRINTFORMW 再び犯される瞬間を待ち望んでいる。
			CFLAG:23:1003 = 1
		ELSE
			PRINTFORML 「――――みゃぁぁぁんっ%UNICODE(0x2665)%%UNICODE(0x2665)%」
			PRINTFORML 「はぁ、はぁっぁ%UNICODE(0x2665)%、いい……これぇ%UNICODE(0x2665)%」
			PRINTFORML 妖夢は体中を貫くような快感に、表情を隠すことも忘れて溺れていた
			PRINTFORML 真っ赤に上気したその肌を汗で湿らせながら、
			PRINTFORML 僅かに開いた唇からは、だらしなくよだれが糸を引いている。
			PRINTFORM 堪えきれず
				IF LOCAL:5 > 1
					PRINTFORM 開発されきったその肢体を、
				ELSEIF EX:23:50 > 0
					PRINTFORM 痛いほど充血した陰核を、
				ELSEIF EX:23:51 > 0
					PRINTFORM しとどに濡れきった膣肉を、
				ELSEIF EX:23:52 > 0
					PRINTFORM 快感を求めヒクつくアナルを、
				ELSEIF EX:23:53 > 0
					PRINTFORM その突起を痛いほど尖らせたささやかな乳房を、
				ENDIF
			PRINTFORML 弄ろうとした妖夢は、%CALLNAME:MASTER%の存在に気づく。
			PRINTFORML
				IF CFLAG:291 == 1
					PRINTFORML 秘所から溢れ出した愛液がふとももを伝い落ちるのを気にもせず、
					TCVAR:23:350 = 1
					CFLAG:23:1001 += 1
				ELSE
					PRINTFORML 濡れきった下着に煩わしささえ感じながら、
				ENDIF
			PRINTFORMW 妖夢は誘うような蟲惑的な表情で笑いかけた。
		ENDIF
		CFLAG:23:1002 += LOCAL:4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂	←正式名称：【強烈な快感】絶頂合計３０回以上でこちらに。
	;		突然激しい絶頂に襲われた%CALLNAME:LOCAL%は、甘い嬌声をあげてその場にへたり込んでしまった
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;絶頂回数カウント
		LOCAL:4 = 0
		LOCAL:4 += EX:23:50
		LOCAL:4 += EX:23:51
		LOCAL:4 += EX:23:52
		LOCAL:4 += EX:23:53
		IF CFLAG:23:1002 == 0
			PRINTFORML 「――――みゃぁんっ！！　ぁっああぅ！？」
			PRINTFORML 妖夢は身体を貫くような絶頂に大きく目を見開いて崩れ落ちた。
			PRINTFORML 「……あっ！……、くっ、うぁ……」
			PRINTFORML 捲れあがったスカートから覗く白磁のような太ももは細かく震え、その体を支えることもおぼつかない。
			PRINTFORML 不躾な%CALLNAME:MASTER%の視線に、妖夢はスカートをあわてて直しながら、
			PRINTFORML 「…っ、未熟なところをお見せして申し訳ありませんっ」
			PRINTFORMW なんとか立ち上がるとそう取り繕った。
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:23:350 == 0
					IF CFLAG:23:1001 == 0
						PRINTFORML 「――え？　あれ！？　嘘っ…」
						PRINTFORML 履いていたはずの下着が消え去っている現実に、妖夢は驚愕の表情を浮かべる。
						PRINTFORMW スカートを押さえながら他人に気付かれないように平静を装うものの、その肩は羞恥に震えていた。
					ELSEIF CFLAG:23:1001 < 10
						PRINTFORML 「……くっ、またっ！」
						PRINTFORML 再び履いていた下着が失われた現実に、妖夢は驚愕の表情を浮かべる。
						PRINTFORMW 楼観剣へ手を伸ばしながら油断なく周囲を伺うが、その脚は羞恥で震えていた。
					ELSEIF CFLAG:23:1001 < 20
						PRINTFORML 「……またっ　――卑怯者！！姿を見せなさい！！」
						PRINTFORML 妖夢はそう叫びながら人目も気にせず楼観剣を抜き放つ。
						PRINTFORMW 下着が無くなっている事に羞恥と同時に激しい怒りを覚えているようだ。
					ELSEIF CFLAG:23:1001 == 100
						PRINTFORML 「――っ！」
						PRINTFORML いつものように下着を奪われるたことに気づくと、妖夢は楼観剣と白楼剣を無言で抜き放った。
						PRINTFORML 「何者の仕業かわかりませんが、斬ればすべてわかりますよね……！」
						PRINTFORMW 殺気を隠そうともせずに、完全に戦闘態勢に移行した妖夢の表情は怒りと羞恥で真紅に染まっている。
					ENDIF
					TCVAR:23:350 = 1
					CFLAG:23:1001 += 1
					CFLAG:23:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML 「…くっ…何がどうなってるの！？」
			PRINTFORMW 妖夢は脚の震えを隠しながら気配を窺っている。
		ELSEIF CFLAG:23:1002 < 350
			PRINTFORML 「――――みゃぁんっ！！　ぁっああぅ！？」
			PRINTFORML 「……っ！……はっ、はぁ、あっくっ……そんなっ」
			PRINTFORML 再び襲ってきた強烈な快感に、妖夢は為す術なく崩れ落ちた。
			PRINTFORMW だらしなく開いた口からは絶え間なく吐息が漏れ、捲くれ上がったスカートの裾を直すこともままならない
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:23:350 == 0
					IF CFLAG:23:1001 == 0
						PRINTFORML 「――え？　あれ！？　嘘っ…」
						PRINTFORML 履いていたはずの下着が消え去っている現実に、妖夢は驚愕の表情を浮かべる。
						PRINTFORMW スカートを押さえながら他人に気付かれないように平静を装うものの、その肩は羞恥に震えていた。
					ELSEIF CFLAG:23:1001 < 10
						PRINTFORML 「……くっ、またっ！」
						PRINTFORML 再び履いていた下着が失われた現実に、妖夢は驚愕の表情を浮かべる。
						PRINTFORMW 楼観剣へ手を伸ばしながら油断なく周囲を伺うが、その脚は羞恥で震えていた。
					ELSEIF CFLAG:23:1001 < 20
						PRINTFORML 「……またっ　――卑怯者！！姿を見せなさい！！」
						PRINTFORML 妖夢はそう叫びながら人目も気にせず楼観剣を抜き放つ。
						PRINTFORMW 下着が無くなっている事に羞恥と同時に激しい怒りを覚えているようだ。
					ELSEIF CFLAG:23:1001 == 100
						PRINTFORML 「――っ！」
						PRINTFORML いつものように下着を奪われるたことに気づくと、妖夢は楼観剣と白楼剣を無言で抜き放った。
						PRINTFORML 「何者の仕業かわかりませんが、斬ればすべてわかりますよね……！」
						PRINTFORMW 殺気を隠そうともせずに、完全に戦闘態勢に移行した妖夢の表情は怒りと羞恥で真紅に染まっている。
					ENDIF
					TCVAR:23:350 = 1
					CFLAG:23:1001 += 1
					CFLAG:23:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML 「…はぁ！はぁっ…っ！ふぅ…っ」
			PRINTFORMW 妖夢は快感の余韻が冷めるのを待ちながら、気を抜けば口からこぼれそうな嬌声を必死でかみ殺している
		ELSEIF CFLAG:23:1002 < 500
			PRINTFORML 「――いぃっ！　くっふぁっ%UNICODE(0x2665)%！あっ%UNICODE(0x2665)%！！」
			PRINTFORML 体を芯から痺れさせるような絶頂の感覚に、妖夢は声を抑えきれず体を崩す。
			PRINTFORMW 口から零れ落ちる喜悦の声を必死で抑えようと、上気した顔を手で覆うものの、震える体のせいで上手くいかないようだ。
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:23:350 == 0
					IF CFLAG:23:1001 == 0
						PRINTFORML 「――くっ！？　そんなっ…」
						PRINTFORML 履いていたはずの下着が消え去っている現実に、妖夢は動揺している。
						PRINTFORMW しかし、快楽に淀む思考は羞恥を感じさせることはなかった。
					ELSEIF CFLAG:23:1001 < 10
						PRINTFORML 「……くっ、また…」
						PRINTFORML 再び履いていた下着が失われた現実に、妖夢は動揺している。
						PRINTFORMW 楼観剣へ手を伸ばしながら油断なく周囲を伺うが、その脚は快楽に震えていた。
					ELSEIF CFLAG:23:1001 < 20
						PRINTFORML 「……また、――卑怯者っ！　姿を見せさえすれば…」
						PRINTFORML 妖夢はそうつぶやきながら、楼観剣へと手を伸ばす。
						PRINTFORMW しかし下着が無くなっている事よりも、与えられる快楽に屈しかけている自分への恐怖のほうが強かった。
					ELSEIF CFLAG:23:1001 == 100
						PRINTFORML 「――っ」
						PRINTFORML いつものように下着を奪われるたことに気づくと、妖夢は白楼剣を無言で抜き放った。
						PRINTFORML 「白楼剣で、この迷いを切らなければ、私はっ……！」
						PRINTFORMW 与えられる快楽に翻弄される妖夢は、しかし、その快楽の前にただただ熱い吐息を漏らすだけであった。
					ENDIF
					TCVAR:23:350 = 1
					CFLAG:23:1001 += 1
					CFLAG:23:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML
			PRINTFORML 「……っ、このままじゃ…くっ……駄目、です……んんっ%UNICODE(0x2665)%」
			PRINTFORML 剣士としてのプライドが、彼女を快楽に屈しようとする欲望に耐えさせてはいたが、
			PRINTFORMW このままでは遠からずのうちに堕ちてしまう事も、妖夢はまた自覚していた。
		ELSEIF CFLAG:23:1003 == 0
			PRINTFORML 「――――みゃぁぁんっ%UNICODE(0x2665)%　ぁっああぅ%UNICODE(0x2665)%」
			PRINTFORML 「……あぁっ、あっくぅっ%UNICODE(0x2665)%、……い…いいぃっ%UNICODE(0x2665)%」
			PRINTFORML
			PRINTFORML 津波のように絶え間なく襲い来る絶頂の波に、妖夢はもはやなすすべなく流されていく。
			PRINTFORML 薄く開いた唇からは熱い吐息とともに、押さえることすら忘れた嬌声があふれ出し、
			PRINTFORMW 上気したその表情には剣士とは程遠い貪欲に快楽を求める雌の顔を覗かせている。
				IF CFLAG:291 == 1
					PRINTFORML 奪われた下着の事にさえ気付かないその姿は、
					PRINTFORMW 異性を惑わす蟲惑的な魅力にあふれていた。
					TCVAR:23:350 = 1
					CFLAG:23:1001 += 1
				ENDIF
			PRINTFORML
			PRINTFORML 妖夢は、剣士としての厳格な自分がもう何処にもいないことに気付きながらも、
			PRINTFORML 「（――はぁ%UNICODE(0x2665)%　もっと…もっと…こんなに気持ち良いのだから、悪いことは何も……っ%UNICODE(0x2665)%）」
			PRINTFORMW その事実に疑問をはさむことなく快楽に溺れていた
			CFLAG:23:1003 = 1
		ELSE
			PRINTFORML 「――――みゃぁぁぁんっ%UNICODE(0x2665)%%UNICODE(0x2665)%」
			PRINTFORML 「はぁ、はぁっぁ%UNICODE(0x2665)%、いい……これぇ%UNICODE(0x2665)%」
			PRINTFORML 妖夢は何度も何度も襲い来る快楽の波に完全に屈服していた。
			PRINTFORML 崩れ落ちた身体をそのままに、大きく開いた唇からは、焼けるような吐息とともに艶かしく動く赤い舌が覗く。
			PRINTFORMW 捲れ上がったスカートから突き出された白磁のような太ももは赤く染まり、呆然とした瞳はもはや焦点をなくしている。
				IF CFLAG:291 == 1
					PRINTFORML 捲くれ上がったスカートから覗く秘所を隠すことさえ忘れたようで、
					TCVAR:23:350 = 1
					CFLAG:23:1001 += 1
				ELSE
					PRINTFORML 濡れきった下着に煩わしささ感じながら、
				ENDIF
			PRINTFORMW 生真面目な従者として姿はもはや何処にもなく、妖夢は周囲の視線も気にせずその肢体を怪しく揺らしていた。
		ENDIF
		CFLAG:23:1002 += LOCAL:4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「――え？　あれ！？　嘘っ…」
		PRINTFORML 履いていたはずの下着が消え去っている現実に、妖夢は驚愕の表情を浮かべる。
		PRINTFORMW スカートを押さえながら他人に気付かれないように平静を装うものの、その肩は羞恥に震えていた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			PRINTFORML 「――！？」
			PRINTFORML 妖夢は不意に口内に現れた精液の感触に顔をしかめた
			PRINTFORML 「――っ、んっ……っ」
			PRINTFORML 人前で吐き出すような無様な真似をするわけにもいかず、
			PRINTFORML 妖夢は不快感に耐えながらも、平静を装いつつ誰の物とも知れぬ精液を飲み込む
			PRINTFORML 「っ……どうか、しました？」
			PRINTFORMW 何とか体裁を整える妖夢の姿に%CALLNAME:MASTER%は興奮を抑えられなかった。

		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			PRINTFORML 「――！？」
			PRINTFORML 「んっ、がぁっ！――ぁっ、うぇっ、げほっ、っ！」
			PRINTFORML 妖夢は喉奥まで流し込まれた精液に、それが何かを理解する暇さえなく咳き込んだ。
			PRINTFORML 鼻を突く異臭に耐えながら、喉を押さえて必死に吐き出そうとする。
			PRINTFORML 「――ううっ、見苦しいところを、申し訳……ありませ、んっ」
			PRINTFORMW 涙目になりながらも無作法の謝罪を述べる妖夢の姿に、%CALLNAME:MASTER%は言い様のない興奮を覚えた。

		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			PRINTFORML 「――！？」
			PRINTFORML 妖夢は不意に口内に現れた異常な感触にわずかに顔をしかめた。
			PRINTFORML 鼻を突く異臭に耐えながら、口元を手で抑えながらえづく。
			PRINTFORML 「っ…っ、んっ…けほっ、一体何がっ」

		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			PRINTFORML 「――っ！？　…んっ…ちゅる…んっ」
			PRINTFORML 妖夢は不意に口内に現れた精液を気付くと、ゆっくりと舌の上で味わい始めた
			PRINTFORML 顔を赤らめ、僅かに吐息を荒らげながらもすべて飲み込み終える
			PRINTFORML 「…はぁ、う…んっ%UNICODE(0x2665)%（誰の物とも知れない精液を美味しく感じるなんて……ううっ………）」
			PRINTFORML 無意識のうちに唇の周りを赤い舌でなめながら、妖夢は小さく吐息をこぼした
			PRINTFORML 鼻を突く青臭い性臭を感じながら、いつの間にか湧いてきた唾液を飲み込むその姿は、
			PRINTFORMW 剣士というよりは淫蕩な娼婦のようであった。

		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			PRINTFORML 「――！？」
			PRINTFORML 「んっ、がぁっ！――ぁっ、うぇっ、げほっ、っ！」
			PRINTFORML 妖夢は喉奥まで流し込まれた精液に、それが何かを理解する暇さえなく咳き込んだ。
			PRINTFORML 「がはっ！　んっく、はぁはぁ…かはっ」
			PRINTFORML あまりの量に吐き出しても吐き出しても喉奥から込み上がってくる精液に、
			PRINTFORML 妖夢は顔面を精液まみれにさせながら、喉を押さえて必死に吐き出そうとする。
			PRINTFORML 「――こほっ…っ、ううっ、見苦しいところを、んぁっ、申し訳……ありませ、んっ」
			PRINTFORMW 涙目になりながらも無作法の謝罪を述べる妖夢の姿に、%CALLNAME:MASTER%は言い様のない興奮を覚えた

		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			PRINTFORML 「――っ！？　がぁっ！　んぐっ、んっ」
			PRINTFORML 妖夢は不意に口内に現れた大量の精液に気付くと、口を抑えながらえづくのを抑える。
			PRINTFORML 涙目になりながらも必死に飲み込み終えるが、口から溢れた精液が顔を汚していた。
			PRINTFORML 「…はぁはぁ…、う…んっ%UNICODE(0x2665)%　さすがに量が…多すぎます…こほっ」
			PRINTFORML 鼻を突く青臭い性臭を感じながら、それでも吐き出すより飲み込むことを選択した妖夢の姿に、
			PRINTFORMW %CALLNAME:MASTER%は言い様のない興奮を覚えた。

		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;幼稚持ち＆精液経験100未満
		IF ARG:1 == 1
			PRINTFORML 「――え、何です、これ？」
			PRINTFORML 「ううっ、臭くてネトネトしてて…何の悪戯ですか！」
			PRINTFORMW 妖夢は必死で顔についた精液を拭い取ろうとしている。

		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			PRINTFORML 「――え、何です、これ？」
			PRINTFORML 「ううっ、臭くてネトネトしてて…て、まさか精…液！？」
			PRINTFORML そこまで気づくと、妖夢は憤怒の形相で二振りの剣を抜き放った。
			PRINTFORMW 「誰だか知りませんが、切り捨てられる覚悟は出来ているのでしょうね！！」

		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			PRINTFORML 「――え、何です、これ？」
			PRINTFORML 「臭くてネトネトしてて…て、これ……精…液…！？」
			PRINTFORML しばらく逡巡していたものの、抗いがたい欲求に耐えられなかったのか、恐る恐る指先についた精液を口元へと運んだ。
			PRINTFORML 「駄目…私、何して……んっ、ぴちゃ…ちゅるっ……ん、こく……%UNICODE(0x2665)%」
			PRINTFORML 妖夢は火がついてしまった欲望に流されるように、顔についた精液を指先で拭ってはその舌でなめとっていく
			PRINTFORML 「……んっ…んっ、ぴちゃ…んくっ%UNICODE(0x2665)%」
			PRINTFORMW 息を荒らげ、顔を紅潮させながら精液をすするその姿から%CALLNAME:MASTER%は目を離せなかった

		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			PRINTFORML 「――？　これ…」
			PRINTFORML 妖夢はべっとりと手から肘に至るまで付着した精液を見て顔をしかめた。
			PRINTFORML 「悪戯？　でもいつの間に…」
			PRINTFORML 周囲を警戒するも怪しい人物は見つからない
			PRINTFORMW 妖夢は肘までたれてくる精液を、嫌悪感をあらわにしながら必死で拭い取った。

		;舐めとり
		ELSEIF ARG:1 == 2
			PRINTFORML 「――っ……精液…ですよね？」
			PRINTFORML 妖夢はべっとりと手から肘に至るまで付着した精液を見つめる
			PRINTFORML しばらく逡巡していたものの、抗いがたい欲求に耐えられなかったのか
			PRINTFORML 手のひらについた精液を口元へと運ぶと、恐る恐るその舌を伸ばした
			PRINTFORML 「駄目…私、何して……んっ、ぴちゃ…ちゅるっ……ん、こく……%UNICODE(0x2665)%」
			PRINTFORML 妖夢は火がついてしまった欲望に流されるように、精液を舌で味わい、すすり上げていく
			PRINTFORML そのまま肘から手首にかけてゆっくりと精液を舐めあげる
			PRINTFORML 「……んっ…おいし%UNICODE(0x2665)%、ぴちゃ…これで綺麗に…」
			PRINTFORMW 息を荒らげ、顔を紅潮させながら精液をすするその姿から%CALLNAME:MASTER%は目を離せなかった
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
			PRINTFORML 「――みょんっ！！」
			PRINTFORML 妖夢は突然腸内で感じた違和感におしりを押さえながら仰け反った。
			PRINTFORML 「何、これ！？　何なの！！　うっ…何か…きもちわる…い」
			PRINTFORMW 言いようのない圧迫感と不快感に、妖夢は顔をしかめている。
		;ソレ以外
		ELSEIF ARG:1 == 2
			PRINTFORML 「――みゃぁんっ！！　ひぃあぁぁぁっ%UNICODE(0x2665)%」
			PRINTFORML 妖夢は突然腸内に焼けるような熱さを感じ、おしりを押さえながら仰け反った。
			PRINTFORML 「何、これ！？　何なの！！　いやっ…きもちわる…いっ！　のにっ%UNICODE(0x2665)%」
			PRINTFORML 背筋を貫く快感にその脚をガクガク震わせながら、こらえ様のない快感に声を抑えきれないでいる。
			PRINTFORML 「っ！　駄目…くっうぅ」
			PRINTFORMW 快感の尾が引くのをひたすら待ちながら、気を抜けば垂れそうになる精液に妖夢は身を硬くして耐えた
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML 「――痛っ！？」
		PRINTFORML 妖夢は身を裂くような痛みに悲鳴を上げる。
		PRINTFORML 「何、こんな痛み、しらない…ううぅ」
		PRINTFORMW 剣術の稽古で様々な痛みを経験してきた妖夢は、この知らない痛みに言い様のない不安を覚えた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
			PRINTFORML 「――っ！」
			PRINTFORML 「え……この感覚っ、中でって、えぇ！　嘘…精液！？　なんで！？」
			PRINTFORMW 気がついたときには膣内射精されていたという、理解不能な状況に妖夢は取り乱している。

		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
			PRINTFORML 「――っ！」
			PRINTFORML 「え……この感覚っ、中でって、えぇ！　嘘…精液！？　なんで！？」
			PRINTFORMW 気がついたときには膣内射精されていたという、理解不能な状況に妖夢は取り乱している。

		;処女膣内射精
		ELSEIF ARG:1 == 3
			PRINTFORML 「――っ！」
			PRINTFORML 「え……何、この感覚。うう、熱っ、気持ち悪いっ…　何がどうなってるの！？」
			PRINTFORMW 妖夢は言い様のない感覚に、身を震わせている。
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K23_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K23_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K23_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K23_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K23_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K23_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K23_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K23_25(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K23_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K23_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K23_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;パンツちょうだい
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;怒り口上
;==================================================
@M_KOJO_EVENT_K23_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの度胸で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[臆病]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;相手が押し倒しを解除
;==================================================
@M_KOJO_EVENT_K23_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

[SKIPSTART]
;-------------------------------------------------
;オナバレ遭遇時の地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K23_ONABARE_1(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレでそのまま続けてもらう場合の地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K23_ONABARE_2(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレなし崩しックスの地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K23_ONABARE_3(前戯１,本番はどっちか,回数,注入量)
;-------------------------------------------------
#DIM 前戯１
;1=C 2=B 3=M
#DIM 本番はどっちか
;0でＶ、1でＡ
#DIM 注入量
#DIM 回数

SELECTCASE 前戯１
	CASE 1
		PRINTFORML Ｃ責め
	CASE 2
		PRINTFORML Ｂ責め
	CASE 3
		PRINTFORML Ｍ責め
ENDSELECT

IF 本番はどっちか
	PRINTFORML Aで本番
ELSE
	PRINTFORML Vで本番
ENDIF
;-------------------------------------------------
[SKIPEND]

path: 原版+前人整合等各种readme/パッチ/eraTW4.810用 修正パッチ/ERB/口上・メッセージ関連/個人口上/妖夢/M_KOJO_K23_イベント.ERB