code:
;-------------------------------------------------
; eraTheWorld 4.576用 幻月口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;※コンセプト
;人間より圧倒的に強い力を持つ悪魔の少女
;最初は興味なさげに対応してくるけど、少しづつデレてくれる。
;そんな王道な展開がきっと似合う。
;
;どう考えても人間より強いわけだし、押し倒されるよりかは押し倒す方が好き。
;でもそういう子に限って相手からぐいぐい来られるとしおらしくなるものだと思う。
;
;きっと照れた時がかわいい。ということでスキンシップとか充実させたい
;
;個人的に時姦が好きなので少しづつ増やして行きたいと思っています。
;
;参考にした口上
;	隠岐奈口上、諏訪子口上、紫口上などなど

;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

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

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;CFLAG:117:1001	UPDATAを見たフラグ
;
;
;******************************************************************************

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

;RESULTS = _TEST_

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

;ここでCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります

;コメントアウトを外して眠姦口上有、時間停止口上有に1を入れると、それぞれ時間停止時、眠姦時、なりきり時にコマンド口上が読み込まれるように
;入れないと時間停止時、眠姦時、なりきり時は一切喋りません

;破瓜キャンセル口上有に1を入れると、@M_KOJO_EVENT_K117_LOST_VIRGIN_STOPでキャンセルの成否を操作できます
;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れるとM_KOJO_EVENT_K117_PERMISSIONで押し倒しの成否を操作できます

;Xにはキャラ番号を入れてください

;CFLAG:X:眠姦口上有 = 0
;CFLAG:X:時間停止口上有 = 0
;CFLAG:X:なりきり口上有 = 0
;CFLAG:X:破瓜キャンセル口上有 = 0
;CFLAG:X:口上内抱き寄せ判定_初回 = 0
;CFLAG:X:口上内抱き寄せ判定_通常 = 0

;CFLAG:押し倒し禁止に1を入れると自分から押し倒してこなくなります
;以下は恋慕かセフレがつくまで押し倒してこなくなる使用例
;IF !TALENT:X:恋慕 && !TALENT:X:セフレ
;	CFLAG:X:押し倒し禁止 = 1
;ELSE
;	CFLAG:X:押し倒し禁止 = 0
;ENDIF

;口上存在判定です、けしてコメントアウトしないでください
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K117

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

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

;輝夜口上を参考に作りました
IF !CFLAG:117:1001
	PRINTFORML 口上との齟齬を押さえるため幻月の能力を変更することができます。
	PRINTFORML （戦闘能力A→S 料理技能C→E）
	PRINTFORML この変更はこのタイミングしかできません。ご注意ください。
	PRINTFORML
	CALL ASK_M("する",1 , "しない" ,1)
	SELECTCASE RESULT
		CASE 0
			ABL:117:料理技能 = 0
			ABL:117:戦闘能力 = 5
			EXP:117:料理経験 = 0
			PRINTFORMW 幻月の能力を変更しました。
		CASE 1
			PRINTFORMW 幻月の能力を変更しませんでした。
	ENDSELECT
	CFLAG:117:1001 = 1
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K117
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
PRINTFORML
PRINTFORML とくにするあてもなくふらふらしていると、視界の端に白い翼が映る。
PRINTFORMW 明らかに鳥のそれではない翼に気を取られ、そちらを見ると金髪の少女と目が合う。
PRINTFORML 「翼が気になるの？」
PRINTFORMW 翼の持ち主の少女が首をかしげている。
PRINTFORMW どうやらばれていたようだ。
PRINTFORML 「隠しようのない視線を感じたわ」
PRINTFORMW そんなにしっかり見ていた気はないのだが……
PRINTFORML
PRINTFORML 「ほらまた見てる」
PRINTFORMW それほどに彼女の翼がきれいなのだ。
PRINTFORML 「そんなに気になるなら触って見る？」
PRINTFORMW ややあきれた風に少女が言い、
PRINTFORML
PRINTFORML 「ひゃっ！！！」
PRINTFORMW
PRINTFORMW 触り方が悪かったのか、彼女はかわいらしい声を出す。
PRINTFORML 「ほんとに触るとは思わなかったのよ」
PRINTFORML 「まったく、冗談とか分からないの……？」
PRINTFORMW 驚いたわーと彼女が呟く。
PRINTFORML
PRINTFORMW 「まぁいいわ」
PRINTFORML 「私は幻月。夢幻館に住んでいるわ」
PRINTFORML 「ま、よろしくね」
PRINTFORMW 手短に自己紹介をすると幻月と名乗った彼女はそのままどこかに行ってしまった。
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K117_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
;地の文
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
IF LOCAL
	PRINTFORML  「%CALLNAME:MASTER%、目瞑ってもらえる？」
	PRINTFORMW	幻月の頼みに素直に目を瞑る。
	PRINTFORML
	PRINTFORMW	………………
	PRINTFORML
	PRINTFORMW	…………
	PRINTFORML
	PRINTFORML	……ちゅっ
	PRINTFORML
	PRINTFORMW	しばらくの間があって、%CALLNAME:MASTER%の唇にそっと幻月の唇が触れる。
	PRINTFORML
	PRINTFORML	「もう、いいわよ」
	PRINTFORMW	あなたが目を開くと幻月の後ろ姿と真っ赤な耳が見える。
	PRINTFORMW	「その、初めて、だったんだけど、どう、だった……？」
	PRINTFORML	あなたが口を開こうとすると、
	PRINTFORML	「……あぁぁ、ダメ！　やっぱ止めて！　何も言わないで！！！」
	PRINTFORML	羽をパタパタさせた幻月の静止が入る。
	PRINTFORMW	真っ赤になった彼女を愛おしく思いながら、あなたはキスの感想を話すことにした。
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K117_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
		PRINTFORML
		PRINTFORML 「ねぇ、%CALLNAME:MASTER%」
		PRINTFORMW デートからの帰り道。前を歩いていた幻月が足を止め、振り返る。
		PRINTFORML 「少し、話聞いてくれる？」
		PRINTFORMW %CALLNAME:MASTER%がうなずくと、彼女はいつになく真剣な顔をして1歩こちらに近づく。
		PRINTFORML
		PRINTFORML 「初めて出会ってから随分と時間がたったわね」
		PRINTFORMW 「あの時のこと、覚えてる？」
		PRINTFORML 「私は鮮明に覚えているわ。初対面で羽触ってくるやつなんて初めてだったもの」
		PRINTFORML ほんと驚いたわ、と呟く彼女の姿を見てようやく思い出せた。
		PRINTFORMW %CALLNAME:MASTER%の苦笑いが響いて、それを最後に沈黙が降りる。
		PRINTFORML
		PRINTFORML 「…………」
		PRINTFORMW 耳に痛いくらいの沈黙のなか、幻月の呼吸の音だけが時の流れを教えてくれる。
		PRINTFORMW やけに長く感じられる時間の中、一際大きい深呼吸が聞こえて、
		PRINTFORML
		PRINTFORML
		PRINTFORML 「私はあなたが好き」
		PRINTFORML
		PRINTFORMW
		PRINTFORMW そんなひどく直球でひどく愛おしい告白を受けた。
		PRINTFORML
		PRINTFORMW 「%CALLNAME:MASTER%と共に見た景色が好き」
		PRINTFORMW 「%CALLNAME:MASTER%と共に訪れた場所が好き」
		PRINTFORMW 「%CALLNAME:MASTER%と共に生きた時間が好き」
		PRINTFORML
		PRINTFORMW 「だから、ねぇ」
		PRINTFORMW 「これからも私のそばにいてくれる？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		PRINTFORML %CALLNAME:MASTER%は返事の代わりに幻月を抱きしめた。
		PRINTFORML 「ありがとう……%CALLNAME:MASTER%……」
		PRINTFORML 涙交じりの声と共に、背中に回される両腕を感じた。
		PRINTFORMW 「これからも、ずっと好きよ。%CALLNAME:MASTER%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		PRINTFORML 「そう……」
		PRINTFORML %CALLNAME:MASTER%の返答を聞くと、幻月はうつむいた。
		PRINTFORML 「気を使わなくてもいいわ。大丈夫だから」
		PRINTFORML 「それじゃ、また」
		PRINTFORMW そういうと幻月は足早に去って行ってしまった。
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K117_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 「あなたと行く場所ならどこでも楽しいわ」
			PRINTFORMW 「またよろしくね」
		ELSEIF TALENT:思慕
			PRINTFORML 「今日も楽しかったわ」
			PRINTFORML 「またよろしくね」
		ELSE
			PRINTFORMW 「なかなか楽しかったわ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「今回は特別に許してあげるわ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW （少しは許してもいいかしら）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW （まだ忘れたわけではないわ）
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K117_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;増やしたいかも
		IF (DAY:2 == 1 && DAY:3 == 1) || (DAY:2 == 2 && DAY:3 == 7) || (DAY:2 == 4 && DAY:3 == 14)
			CALL SPECIALDAY_EVENT_K117
		ELSEIF TALENT:恋慕 || TALENT:思慕
			PRINTFORML 「あら、%CALLNAME:MASTER%。私に会いに来てくれたの？」
		ELSE
			PRINTFORML 「私に何か用かしら？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;増やしたいかも
		IF (DAY:2 == 1 && DAY:3 == 1) || (DAY:2 == 2 && DAY:3 == 7) || (DAY:2 == 4 && DAY:3 == 14)
			CALL SPECIALDAY_EVENT_K117
		ELSEIF TALENT:恋慕 || TALENT:思慕
			PRINTFORML 「あら、%CALLNAME:MASTER%。会えてうれしいわ」
		ELSE
			PRINTFORML 「こんにちわ、%CALLNAME:MASTER%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「その、%CALLNAME:MASTER%」
		PRINTFORMW 「私も一緒に入ってもいいかしら……？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		PRINTFORML 「…………」
		PRINTFORMW 「ご、ごめんなさいっ！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
	;口上ノートを見る限りMASTERは弱みを握られているそうなので
		PRINTFORML 「あら、%CALLNAME:MASTER%じゃない」
		PRINTFORMW 「私もお風呂入りたいのよ」
		PRINTFORMW 「だから出てってくれるかしら？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF (DAY:2 == 1 && DAY:3 == 1) || (DAY:2 == 2 && DAY:3 == 7) || (DAY:2 == 4 && DAY:3 == 14)
			CALL SPECIALDAY_EVENT_K117
		ELSE
			PRINTFORMW 「こんにちわ、%CALLNAME:MASTER%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF TALENT:恋慕
			PRINTFORML 「妬けるわね……」
			PRINTFORML 幻月のつぶやきが聞こえた気がした。
			PRINTFORMW 「なんでもないわ」
		ELSE
			PRINTFORML 「あら、%CALLNAME:MASTER%」
			PRINTFORMW 「……ってお楽しみ中みたいね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MAIN_MAP上で一日最初の挨拶
	;注、このあと通常の遭遇口上、ARG==1 OR ARG==2に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で一日最初の挨拶
	;ARG:1にデート相手、ARG:1が0の場合は非デート
	;注、このあと通常の外出先で遭遇した口上、ARG==6 OR ARG==7に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;ARG:1とデート中
		IF ARG:1
		;一人で外出
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;特別な日の遭遇時
;==================================================
@SPECIALDAY_EVENT_K117
;--------------------------------------------------
IF DAY:2 == 1
	;謹賀新年
	SELECTCASE DAY:3
		CASE 1
			PRINTFORML 「あけましておめでとう、%CALLNAME:MASTER%」
			PRINTFORMW 「今年も一年よろしくね」
	ENDSELECT
ELSEIF DAY:2 == 2
	;七夕
	SELECTCASE DAY:3
		CASE 7
    		PRINTFORML 「今日は織姫と彦星が年に一度だけ会える日だそうね」
			SELECTCASE CFLAG:好感度
				CASE 0 TO 1000
					PRINTFORML 「ロマンティックでいいと思うわ」
    				PRINTFORMW 幻月はあまり興味がなさそうだ。
				CASE 1000 TO 2000
				    PRINTFORMW 「人を愛するのは悪いことではないけど、仕事をさぼるのは、ねぇ」
				CASE IS > 2000
					PRINTFORML 「そういえば、%CALLNAME:MASTER%はもう短冊にお願い事は書いたかしら？」
					IF RAND:2 == 0
    					PRINTFORMW 「私？　世界平和を願っておいたわ」
					ELSE
						PRINTFORML 「え？　もうそうな年じゃない？　私から見たらまだまだ子供よ」
    					PRINTFORMW 思わぬところで人と悪魔の価値観の違いを感じてしまった。
					ENDIF
			ENDSELECT
	ENDSELECT
ELSEIF DAY:2 == 4
	;バレンタイン
	SELECTCASE DAY:3
		CASE 14
			;ブラックサンダー以外は地の文追加
			IF CFLAG:好感度 > 3000
				PRINTFORMW 少しそわそわした様子の幻月が%CALLNAME:MASTER%の前に一歩踏み出して来た……。
				PRINTFORML
			ENDIF
			SELECTCASE CFLAG:好感度
				;ブラックサンダー
				CASE 1000 TO 3000
					IF TALENT:思慕 || TALENT:恋慕 || TALENT:愛欲
						PRINTFORML 「%CALLNAME:MASTER%、これあげるわ」
						PRINTFORMW 無造作に幻月は%CALLNAME:MASTER%にブラックサンダーを渡してきた。
						PRINTFORMW これだけ？　と視線で問いかけてみる。
						PRINTFORMW 「来年はもっといいものが貰えるよう頑張りなさい」
					ELSE
						PRINTFORML 「はい%CALLNAME:MASTER%、キャッチして」
						PRINTFORML 無造作に投げられたものを両手で包むように受け止める。
						PRINTFORMW ……何を渡されたのだろう？
						PRINTFORMW そっと手を開くとそこにはザクザクととした食感と手ごろな価格で約束された満足感を与えてくれる黒き稲妻の姿が……
						PRINTFORML 「ほら、今日バレンタインデーじゃない？　だから日頃の感謝にと思ってね」
						PRINTFORMW ……もらえないよりましと思うことにした。
					ENDIF

				;チョコレート
				CASE 3001 TO 5000
					PRINTFORML 「%CALLNAME:MASTER%、これあげるわ」
					PRINTFORML 少し頬を赤らめながら幻月はチョコレートを%CALLNAME:MASTER%に手渡してきた。
					PRINTFORML 「外の食べ物を取り寄せるのも簡単じゃないわね」
					PRINTFORMW いろいろ苦労があったようだ。

				CASE IS > 5000
					IF EXP:愛情経験 >= 100
					;手作り
						PRINTFORML 「%CALLNAME:MASTER%、これあげるわ」
						PRINTFORMW 幻月は少し緊張したような面持ちでチョコレートを手渡してきた。
						PRINTFORML 「その、これ手作り、なのよ」
						PRINTFORML 「一応味見してるから大丈夫だとは思うけど……」
						PRINTFORMW しっかり味わって食べよう。
					ELSE
					;高級チョコ
						PRINTFORML 「%CALLNAME:MASTER%、これあげるわ」
						PRINTFORML 少し頬を赤らめながら幻月は丁寧に包装されたチョコレートを手渡してきた。
						PRINTFORML 「割と高かったから味わって食べてね」
						PRINTFORMW そう言われると少し緊張する。
					ENDIF
			ENDSELECT
	ENDSELECT
ENDIF

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW 「おはよう%CALLNAME:MASTER%。よく眠れたかしら？」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:恋慕
				PRINTFORMW 「おはよう%CALLNAME:MASTER%。かわいい寝顔だったわよ」
			ELSE
				PRINTFORMW 「おはよう%CALLNAME:MASTER%」
			ENDIF
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:3
			CASE 2
				PRINTFORMW 「おはよう%CALLNAME:MASTER%。今日もいい一日にしましょう」
			CASE 1
				PRINTFORML 「おはよう%CALLNAME:MASTER%。かわいい寝顔だったわよ」
			CASE 0
				PRINTFORMW 「おはよう%CALLNAME:MASTER%。よく眠れたみたいね」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	;自然な寝言が思いつかない民
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF TALENT:恋慕
				SELECTCASE RAND:3
					CASE 2
						PRINTFORMW 「あなたの隣だからかよく眠れたわ」
					CASE 1
						PRINTFORMW 「変な寝言、言ってなかった？」
					CASE 0
						PRINTFORMW 「寝ぐせ、ついてないわよね？」
				ENDSELECT
			ELSE
				PRINTFORMW 「おはよう%CALLNAME:MASTER%」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「あなたの隣だからかよく眠れたわ」
				CASE 1
					PRINTFORMW 「変な寝言、言ってなかった？」
				CASE 0
					PRINTFORMW 「寝ぐせ、ついてないわよね？」
			ENDSELECT
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			PRINTFORML 「ふぁぁ……」
			PRINTFORML 「私はもう帰るわ」
			PRINTFORMW 「また明日。%CALLNAME:MASTER%」
		ELSE
			PRINTFORMW 「そろそろ帰るわ。おやすみ、%CALLNAME:MASTER%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「ふぁぁ……」
		PRINTFORMW 「眠くなってきたわ……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋慕
			PRINTFORML 「%CALLNAME:MASTER%……」
			PRINTFORMW 幻月の夢には%CALLNAME:MASTER%が出てきているようだ。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW 「ちょっ、大丈夫！?　%CALLNAME:MASTER%！」
		PRINTFORMW …………
		PRINTFORMW 「まったく……なんで倒れるまで無茶するのよ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			;同棲中
			IF CFLAG:MASTER:初期位置 == CFLAG:117:初期位置
				PRINTFORML 「私は先に寝るわね」
			ENDIF
			PRINTFORMW 「おやすみ、%CALLNAME:MASTER%」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「ひとりでゆっくり眠りたいの」
			IF TALENT:恋慕 || TALENT:思慕
				PRINTFORMW 「ごめんなさいね、%CALLNAME:MASTER%」
			ELSE
				PRINTFORMW 「出て行ってもらえるかしら？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			;同棲中
			IF CFLAG:MASTER:初期位置 == CFLAG:117:初期位置
				PRINTFORMW 「ねぇ……」
				PRINTFORMW 「そーゆー事するならもっと場所があると思うのよ」
				PRINTFORMW 「とりあえず寝たいから止めてもらえるかしら？」
			ELSE
				PRINTFORML 「人の部屋でするとか……」
				PRINTFORMW 「どういう心理なのよ……」
				PRINTFORMW 「とりあえず止めてもらえる？」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			PRINTFORML 「……」
			PRINTFORMW 目が会うと幻月は微笑みを浮かべた。
		ELSEIF TALENT:思慕
			PRINTFORML 「……」
			PRINTFORMW こちらをじっと見つめてくる幻月と目が会った。
		ELSE
			;思い浮かばない
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕
			PRINTFORML 「あら%CALLNAME:MASTER%」
			PRINTFORMW 微笑みながら幻月は会釈を返してくれた。
		ELSEIF TALENT:思慕
			PRINTFORML 「あら？　%CALLNAME:MASTER%じゃない」
			PRINTFORMW 幻月は会釈を返してくれた。
		ELSE
			PRINTFORML 「いい心構えね」
			PRINTFORMW 幻月はそれだけ言い残して通り過ぎて行った。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋慕
			PRINTFORML （急いでるのかしら）
			PRINTFORMW 幻月は少し不満そうに%CALLNAME:MASTER%を見送った。
		ELSEIF TALENT:思慕
			PRINTFORML 「む……」
			PRINTFORMW 幻月は少し不満そうにした。
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;他者介入でムード変化
;==================================================
@M_KOJO_EVENT_K117_5(ARG,ARG:1)
;口上主はTARGET
;ARGに入ってきたキャラ（人数が膨大なので、自己把握自己責任で
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;そのうちキャラごとのもいくつか……
	IF ARG == 116
	;夢月
		IF TALENT:恋慕 || TALENT:思慕
			PRINTFORML 「あら、夢月じゃない。なにか用かしら？」
    	 	PRINTFORMW 「……特にない？　もう少し空気読みなさいよ……」
		ELSE
			PRINTFORML 「あら夢月。どうしたの？」
			PRINTFORMW 幻月はそっと%CALLNAME:MASTER%から離れた。
		ENDIF
		RETURN 1
	ENDIF
	;その他（キャラ指定なし
	IF TALENT:恋慕
		PRINTFORML 「まったく……空気を読んでほしいわ」
		PRINTFORMW 幻月は文句を言いながら%CALLNAME:MASTER%から身を離した。
	ELSEIF TALENT:思慕
		PRINTFORML 「いい所だったのに」
		PRINTFORMW 幻月は名残惜しそうに%CALLNAME:MASTER%から身を離した。
	ELSE
		PRINTFORML 「あら、誰か来たみたいね」
		PRINTFORMW 幻月はそっと%CALLNAME:MASTER%から離れた。
	ENDIF
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K117_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 「……%CALLNAME:MASTER%、あとでお話しましょ」
			PRINTFORMW そう言う幻月の微笑みが怖い。
		ELSEIF TALENT:恋慕
			PRINTFORML 「わ、私も……」
			PRINTFORMW 「……やっぱりなんでもないわ！」
		ELSEIF TALENT:愛欲
			PRINTFORML 「あら、お楽しみ中だったみたいね」
			PRINTFORMW 「今度はわたしも頼むわね」
		ELSE
			PRINTFORML 「ふーん」
			PRINTFORMW 幻月は面白いものを見たと言いたげだ。
		ENDIF
		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
		IF TALENT:恋慕
			PRINTFORML 「わ、私も……」
			PRINTFORMW なんだか声が聞こえた気がする。
			PRINTFORMW 「やっぱりなんでもないわ！　ごめんなさい！」
		ELSE
			PRINTFORMW 「あら？　邪魔しちゃったかしら？　ごめんなさいね」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K117_7(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 「えぇと、これは……」
			PRINTFORMW 幻月は%CALLNAME:MASTER%に目くばせをして助けを求めてきた。
		;ELSEIF TALENT:思慕
			;思いつかない
		ELSE
			PRINTFORML 「えぇと、これは……」
			PRINTFORMW 突然のことに幻月は慌てている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
	;幻月はたぶん自分だけ愛してほしいとおもってるよ
		PRINTFORMW 「え、一緒に……」
		PRINTFORML 「まぁ%CALLNAME:MASTER%がいいならいいけど……」
		PRINTFORMW 幻月は少し不満そうだ。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「続き、しないの？」
			PRINTFORMW 幻月は物足りなそうに%CALLNAME:MASTER%を見ている。
		;ELSEIF TALENT:思慕
			;思いつかない
		ELSE
			PRINTFORMW 「え……」
			PRINTFORML 「まって、これは違うの……！」
			PRINTFORMW しかしながらすでに目撃は去ってしまった。
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;目撃した情事を問い詰める（現在無し
;==================================================
@M_KOJO_EVENT_K117_8(ARG,ARG:1)
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「ふーん」
		IF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%はこういうのが好きなのね……」
		ELSE
			PRINTFORMW 「%CALLNAME:MASTER%、こういう趣味あるのね……」
		ENDIF
		PRINTFORMW 「ま、これは私が預かっておくわ」
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
		;もっと書けそうかも
			IF TALENT:恋慕
				SELECTCASE RAND:3
					CASE 2
						PRINTFORML 「%CALLNAME:MASTER%」
						PRINTFORML 「ねぇ、私、今結構溜まってるのよ」
						PRINTFORMW 幻月はそんなことを不意に言ってくる。
						PRINTFORML 「誰の責任だと思う？」
						PRINTFORMW 怪しく目を光らせながら、ゆっくりと幻月が%CALLNAME:MASTER%に覆いかぶさってくる。
						PRINTFORMW この流れから察するに、きっと%CALLNAME:MASTER%自身の責任なのだろう。
						PRINTFORMW 「ふふ、よくわかってるじゃない」
					CASE 1
						PRINTFORMW 「そこよ！」
						PRINTFORMW そんな声が聞こえたと思ったら、視界が回る。
						PRINTFORML 「ふふ、こんなに隙だらけで……押し倒して欲しかったの？」
						PRINTFORMW 日常生活の中で常に気を張っている方がおかしいだろう。
						PRINTFORML 「ま、それはそうかもしれないけど……」
						PRINTFORMW 「そんなことより……ね、シましょ？」
					CASE 0
						PRINTFORML 「ねぇ、%CALLNAME:MASTER%」
						PRINTFORML 「ふふ、今からシてもいいわよね？」
						PRINTFORMW 止めてもどうせするのだろう？　と聞いてみる。
						PRINTFORML 「ま、それはそうだけどね」
						PRINTFORMW 幻月はそっと唇を重ねると、%CALLNAME:MASTER%を押し倒した。
					ENDSELECT
			ELSEIF TALENT:思慕 || TALENT:愛欲 || TALENT:セフレ
				PRINTFORML 「%CALLNAME:MASTER%」
				PRINTFORMW 幻月に呼ばれて振り向くと、抵抗する間もなく押し倒されてしまった。
				PRINTFORML 「今からあなたを\@ RAND:2 ? 犯す # 襲う\@わ」
				PRINTFORML 「もちろん拒否権はないから」
				PRINTFORMW そう言うと幻月はそっと唇を重ねてきた。
			ELSE
				PRINTFORML 「%CALLNAME:MASTER%」
				PRINTFORMW 幻月に呼ばれて振り向くと、抵抗する間もなく押し倒されてしまった。
				PRINTFORML 「ごめんなさい……その、火照って抑えられなくて」
				PRINTFORMW 彼女は謝りながら%CALLNAME:MASTER%の服を脱がしてきた。
				PRINTFORMW どうやら本当に%CALLNAME:MASTER%と行為に及ぶようだ。
			ENDIF
			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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF CFLAG:溜まってる度 >= 40
				PRINTFORML 「もう終わり？」
				PRINTFORMW 不満そうな幻月は「むー」と唸っている。
			ELSE
				PRINTFORML 「わかったわ」
				PRINTFORML 終わりにしたい旨を伝えると幻月は意外にも簡単に開放してくれた。
				PRINTFORMW どうやら満足してもらえたようだ。
			ENDIF
			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
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;好きにして状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「だめよ」
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「%CALLNAME:MASTER%もまだいけるでしょ」
				CASE 1
					PRINTFORML 「まだまだお楽しみはこれからよ」
				CASE 0
					PRINTFORML 「まだ逃がしてあげないわ」
			ENDSELECT
			PRINTFORMW 幻月は%CALLNAME:MASTER%を逃がすまいとぎゅっと抱きしめてきた。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORML 「だめよ」
				PRINTFORML 「私まだ満足してないもの」
				PRINTFORMW 幻月の目が怪しく光ったような気がする……。
				PRINTFORML 「もっと気持ちよくしてくれるわよね？　%CALLNAME:MASTER%」
				PRINTFORMW 幻月さんはまだまだ満足してないようです。
			ELSEIF TALENT:思慕
				PRINTFORML 「だめよ」
				PRINTFORML 「私まだ満足してないもの」
				PRINTFORMW 幻月の目が怪しく光ったような気がする……。
			ELSE
				PRINTFORML 「え、私まだ満足してないんだけど……」
				PRINTFORMW 「まだいけるでしょ、%CALLNAME:MASTER%」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「へ…………」
		PRINTFORMW 予想外の乱入者に幻月が固まる。
		PRINTFORMW 数秒の間があって、幻月が動き出す。
		PRINTFORML 「ちょっ、何見てるのよ！」
		PRINTFORML 「早く出てきなさい！」
		PRINTFORMW 手桶の代わりに弾幕が展開される前に%CALLNAME:MASTER%は風呂場から出て行った。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕
			PRINTFORML 「ん、いいわ。入って」
			PRINTFORML %CALLNAME:MASTER%が風呂に入ると幻月はそっと体を寄せてきた。
			PRINTFORML 「こうすればもっと温まれるでしょ？」
			PRINTFORML そう言う幻月の顔はほんのりと赤くなっていた。
			PRINTFORMW %CALLNAME:MASTER%はそんな幻月をのぼせているのかとからかうことにした……。
		ELSEIF TALENT:思慕
			PRINTFORML 「あら、%CALLNAME:MASTER%もお風呂？」
			PRINTFORML 「ゆっくり休んでいくといいわ」
			PRINTFORMW そう言う幻月の顔はほんのりと赤くなっていた。
		ELSE
			PRINTFORMW 幻月は一瞬こちらを見ると、そっと端によりスペースを空けた。
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORMW 「なんだ、%CALLNAME:MASTER%か……」
        PRINTFORML 「まったく……こんな遅い時間に来るなら事前に連絡して欲しいわ」
        PRINTFORMW 文句を言いつつも幻月は嬉しそうにしている。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORMW 「なんだ、%CALLNAME:MASTER%か……」
        PRINTFORML 「警戒して損したわ」
        PRINTFORML ふぁぁ、とあくびをしながら布団に戻った幻月は、すぐに寝息を立て始めた。
        PRINTFORMW どうやら会話するだけの元気もないようだ。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML 「寝てる少女の部屋に入ってくるだなんて……」
        PRINTFORML 「%CALLNAME:MASTER%、何考えてるのよ」
        PRINTFORMW 幻月はじとーっとした目でこちらを見てきた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML 「私は今眠いの。早く出ってて」
        PRINTFORMW 幻月はあくびをしながら%CALLNAME:MASTER%を部屋から押し出した……。
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K117_13(ARG,ARG:1)
;口上主はTARGET
;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
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML 「なんだかいい匂いがするわね」
		PRINTFORMW %CALLNAME:MASTER%はそっと持っている食べ物を隠した。
		PRINTFORML 「隠しても無駄よ。わかってるんだから」
		PRINTFORMW しかし抵抗も空しく幻月に没収されてしまう。
		PRINTFORML 「あら思ったよりおいしそうじゃない」
		PRINTFORML 「じゃ、いただくわね」
		PRINTFORMW 一言も上げるとは言ってないのだが……。
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;体力700以下は疲れた分岐を作る
		IF BASE:体力 <= 700
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORML 「はぁ……はぁ……」
				PRINTFORMW 幻月は余韻で全身を小さく震わせながら、呼吸を整えている。
				PRINTFORMW 少しやりすぎてしまったかもしれない。
				PRINTFORML 「もう少し手加減してくれてもいいのよ……？」
				PRINTFORMW %CALLNAME:MASTER%の視線に気づいた幻月は、微笑みを浮かべながら小さく抗議の声を上げる。
				PRINTFORMW 「でも、まぁ気持ち良かったわ%CALLNAME:MASTER%」
			ELSE
				PRINTFORML 「はぁ……はぁ……」
				PRINTFORMW 「もう少し……手加減とかしてくれてもいいのよ……？」
				PRINTFORMW 荒い息をつく幻月は確かに少し疲れているようだ。
			ENDIF
		;もっとーしてー
		ELSEIF CFLAG:溜まってる度 >= 500
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORML 「え、もう終わりにするの……？」
				PRINTFORML 「私まだ満足出来てないんだけど……」
				PRINTFORMW 不満そうにむくれる幻月。
				PRINTFORMW 「誰のせいでこんな溜め込んでるのか分かってるのかしら？」
			ELSE
				PRINTFORML 「あら、もう終わり？」
				PRINTFORML 「そ、あなたが満足できたならいいわ」
				PRINTFORMW そう言う幻月は少し不満そうにも見える。
			ENDIF
		ELSE
			;通常
			IF TALENT:恋慕
				PRINTFORML 「ふふ、気持ちよかったわよ、%CALLNAME:MASTER%」
				PRINTFORMW 幻月は幸せそうな顔であなたに体を寄せている。
				PRINTFORML 「どうしたの？」
				PRINTFORMW なんでもない。そう答えながら彼女の頭を撫でてあげた。
			ELSEIF TALENT:愛欲
				PRINTFORML
				PRINTFORML 「……」
				PRINTFORML 幻月は少し頬を赤らめながら%CALLNAME:MASTER%に体を預けている。
				PRINTFORML 「また今度……よろしくね」
				PRINTFORMW そっと彼女は囁いた。
			ELSEIF TALENT:思慕
				PRINTFORML 「ん、終わり、ね」
				PRINTFORMW そう言うと幻月はさっそく服を着ていく。
				PRINTFORMW なんだか反応が冷たい。満足していたただけなかったのだろうか？
				PRINTFORML 「まぁ、その……よかったわよ」
				PRINTFORMW どうやら%CALLNAME:MASTER%の考え違いだったようだ。
			ELSE
			;恋慕系陥落素質ないんだしセフレでしょ（暴論）
				PRINTFORML 「終わり、ね」
				PRINTFORMW そう言うと幻月はあなたに背を向けて服を着始めた……。
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=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
	ENDIF
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K117_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_K117_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「んっ！」
		PRINTFORMW （なに、なにが起こったの？）
		PRINTFORMW 幻月は突然の快感に戸惑っているようだ。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「いっッ――――！」
		PRINTFORMW 止まった時の中で弄られ続けた幻月の体は、時が動き出すのと同時に絶頂を迎える。
		PRINTFORML （誰が、こんな）
		PRINTFORML 崩れ落ちそうになる体を気力だけで立たせて、あたりをうかがう。
		PRINTFORMW その目には明らかな殺気が浮かんでいた。
		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 （気持ち悪い……でも、吐き出せる状況じゃないし……）
			PRINTFORMW 幻月は不快そうな顔で突然口内に現れた精液をゆっくり飲みこんだ。
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			PRINTFORMW 「っ！　けほ、けほっ…………」
			PRINTFORML （突然なんなのよ……気持ち悪い）
			PRINTFORMW 幻月は突然現れた精液を%CALLNAME:MASTER%に見えないように吐き出した。
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			PRINTFORML 「うぇ……」
			PRINTFORML 幻月は突然精液が現れた口を反射的に抑えた。
			PRINTFORMW 慣れない感覚に幻月は不快そうにしている。
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			PRINTFORML 「ん……」
			PRINTFORMW 幻月は突如口内に現れた精液を躊躇なく飲み下した。
			PRINTFORML 「なんで突然」
			PRINTFORMW 口の中を空にしてから改めて考え始めた。
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			PRINTFORML 「んっ！　げほ、げほっ！」
			PRINTFORML 幻月は突然口内に現れた精液を吐き出そうとせき込んでいる。
			PRINTFORMW が、喉にへばりつくそれに、彼女はだいぶ苦戦しているようだ。
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			PRINTFORML 「ん……」
			PRINTFORMW 幻月は突如口内に現れた精液を躊躇なく飲み下した。
			PRINTFORML 「……おいしい」
			PRINTFORMW 無意識にだろうか。ぽつりと呟く感想が聞こえた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		;無知ないので
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			PRINTFORML 「？　……え、なにこれ？！」
			PRINTFORML いつの間にか顔に付着していた精液を幻月は慌てて拭いていく。
			PRINTFORMW （なんなのよ……ハンカチ汚れちゃったじゃない）
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			PRINTFORML 「？　……え、なんで？！」
			PRINTFORML （突然で気持ち悪いわ）
			PRINTFORMW 幻月は不快そうな顔をしながら手で拭った精液を舐めとっていく。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			PRINTFORML 「？！　なんでこんなのが」
			PRINTFORMW 幻月は突然現れた精液を誰にも見られぬよう拭いとった。
		;舐めとり
		ELSEIF ARG:1 == 2
			PRINTFORML 「なんで突然」
			PRINTFORML 幻月は突然現れた精液を不快そうな顔をしながら舐めとっていく。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML 「いっッ……！」
		PRINTFORMW 突如として下腹部を襲う鈍痛に幻月はおなかを押さえる。
		PRINTFORML （なに、なにが起こったの……？）
		PRINTFORMW 感じたことのない痛みに幻月は助けを求めるように冷や汗を浮かべながら周囲を見渡している。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
			PRINTFORML 「ん……?」
			PRINTFORML 「この感覚……もしかして……」
			PRINTFORMW 自分の体に起こったことに思い当たり、幻月の顔が青白くなっていく。
			PRINTFORML 「いや……だわ」
			PRINTFORMW 幻月の額を冷や汗が伝っていった。
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
			PRINTFORML 「ん……?」
			PRINTFORML 「この感覚……もしかして……」
			PRINTFORML 「……ピル飲んでるし、大丈夫、よ」
			PRINTFORMW 幻月は自分に言い聞かせるようにそっと呟いた。
		;処女膣内射精
		ELSEIF ARG:1 == 3
			PRINTFORML 「やだ、なによこの感覚……」
			PRINTFORMW 未知の体験に幻月はおなかを押さえている。
			PRINTFORMW 「うぅ、気持ち悪い……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K117_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			PRINTFORML 「え、ナマ……？」
			PRINTFORMW 「いくら%CALLNAME:MASTER%とでもそれはまだ……」
		ELSE
			PRINTFORML 「ナマでやりたい？」
			PRINTFORMW 「私たちってまだそんな関係ではないと思うのよ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕 || TALENT:思慕
			PRINTFORML 「…………」
			PRINTFORML 幻月はしばらく考えたあと、
			PRINTFORMW 「ごめんなさい。まだ私たちには早いと思うのよ」
		ELSE
			PRINTFORML 「……いやよ」
			PRINTFORMW むげもなく断られてしまった。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋慕
		;切れるというより、分かってもらえなくて悲しいみたいなイメージ
			PRINTFORML 「だから、いやだって言ってるじゃない！」
			PRINTFORMW 「なんで分かってくれないのよ……」
		ELSE
		;静かに切れるタイプだと思う
			PRINTFORML 「だから、だめだと言ってるじゃない」
			PRINTFORMW 「覚えておきなさい。%CALLNAME:MASTER%にそこまで許す気はないわ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「%CALLNAME:MASTER%がそこまで言うなら……」
		PRINTFORMW 「あ、でも危ない日はダメよ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「%CALLNAME:MASTER%……私との子供、欲しいのね？」
		PRINTFORMW 「…………分かったわ」
		PRINTFORMW 「私も、%CALLNAME:MASTER%との子供なら欲しいと思えるわ」
		PRINTFORMW 幻月は覚悟を決めたように静かに微笑み、
		PRINTFORMW 「子作り、しましょ」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K117_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_K117_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;怒り
		IF CFLAG:318
			PRINTFORMW 幻月はこちらを見もせずに飛び去ってしまった。
		ELSEIF TALENT:恋慕
			PRINTFORML 「じゃあね、%CALLNAME:MASTER%。また明日」
			PRINTFORMW 幻月はこちらに手を振って帰っていった。
		ELSEIF TALENT:思慕
			PRINTFORML 「私はそろそろ帰るわ。%CALLNAME:MASTER%」
			PRINTFORMW 幻月はそう言うと飛び去って行った。
		ELSE
			PRINTFORML 「私はもう帰るわ」
			PRINTFORMW 幻月はそう言うと飛び去ってしまった。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:318
			PRINTFORML 「まぁ悪くはなかったわ」
			PRINTFORMW 幻月は%CALLNAME:MASTER%の方を見ずに帰っていった。
		ELSEIF TALENT:恋慕 || TALENT:思慕
			PRINTFORML 「今日はここでお開きかしら？」
			IF RAND:2 == 0
				PRINTFORML 「ふふ、楽しかったわよ」
			ELSE
				PRINTFORML 「また、お願いね」
			ENDIF
			PRINTFORMW 幻月はこちらに手を振って帰っていった。
		ELSEIF TALENT:思慕
			PRINTFORML 「楽しかったわ。また誘ってね」
			PRINTFORMW 幻月は控えめに手を振って帰っていった。
		ELSE
			PRINTFORML 「なかなか楽しめたわ」
			PRINTFORMW またね、と短く別れの挨拶をすると幻月は帰っていった。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋慕
			PRINTFORML 「今日もありがとね」
			PRINTFORMW 幸せそうな笑顔を浮かべながら幻月はドアの向こうへ消えていった。
		ELSEIF TALENT:思慕
			PRINTFORML 「紳士的ね」
			PRINTFORMW 嬉しそうに微笑みながら幻月はドアの向こうへ消えていった。
		ELSE
			PRINTFORML 「あら、ご丁寧にどうも」
			PRINTFORMW 幻月は少し意外そうだ。
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K117_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 夜遅く、幻月は眠れない夜を過ごしていた。
		PRINTFORML 「%CALLNAME:MASTER%……今なにしてるんだろ」
		PRINTFORMW そんなつぶやきをここ数日で何度も繰り返した。
		PRINTFORMW %CALLNAME:MASTER%のことを何度も考えた。
		PRINTFORMW そして、その度に胸に痛みが走った。
		PRINTFORML
		PRINTFORML 今日も、いつもと同じ。胸が痛む。
		PRINTFORML 「ほんと、なんだろうこの感じ」
		PRINTFORMW 何回も同じことを考えて、同じことを口にする。分からない、と。
		PRINTFORML
		PRINTFORMW ――――嘘だ。
		PRINTFORMW 本当はわかっていた。その答えに気づいていた。
		PRINTFORMW でも、口にできなかった。
		PRINTFORMW 言ってしまったら、認めてしまったら、自分が自分ではなくなってしまう気がしたから。
		PRINTFORML
		PRINTFORMW 「だめ、ね」
		PRINTFORML
		PRINTFORML 悲しむのは自分だけ。
		PRINTFORML どうあがいても先立たれるだけ。
		PRINTFORMW 人と悪魔の間には埋めようのない隙間がある。
		PRINTFORML
		PRINTFORMW それでも、押さえることなんてできそうにもなかった。
		PRINTFORML
		PRINTFORMW 「私は、恋をしているのね」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 夜遅く、幻月は眠れない夜を過ごしていた。
		PRINTFORMW することもないから、ベットの上でゴロゴロしてみたりする。
		PRINTFORML
		PRINTFORML 「%CALLNAME:MASTER%は今何してるのかしら」
		PRINTFORMW 不意にそんなつぶやきが漏れて、自分で驚いて口元に手をあてる。
		PRINTFORML いつの間にか%CALLNAME:MASTER%のことを考えていた。
		PRINTFORMW 「なんだろう、この感じ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「……あっ……んっ！」
		PRINTFORMW 幻月はベッドの上で自慰にふけっている。
		PRINTFORML 「ねぇ、%CALLNAME:MASTER%……。%CALLNAME:MASTER%の動きを真似ても全然満足できないの……」
		PRINTFORMW 自分の弱点を執拗に弄る指は徐々に激しさを増していく。
		PRINTFORML 「ねぇ、%CALLNAME:MASTER%のせいで、こんな体になったのよ……」
		PRINTFORMW 絶頂を迎え、幻月は大きく背をそらして潮を吹く。
		PRINTFORML
		PRINTFORML しかし、欲望は治まる気配を見せない。
		PRINTFORML
		PRINTFORMW 「もっと……気持ちよくしてよ……%CALLNAME:MASTER%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;少しヤンデレっぽいね
		PRINTFORML 「……んっ！」
		PRINTFORML 幻月はベッドの上で自慰にふけっている。
		PRINTFORMW すでに何度か絶頂を迎えているがそれは終わる気配を見せない。
		PRINTFORML
		PRINTFORML 「ダメ、足りない……」
		PRINTFORMW 体を弄る手は激しさを増していく。
		PRINTFORML 「もっと、もっと…………」
		PRINTFORMW 喘ぎ声に混じってうわ言のようにつぶやきながら、
		PRINTFORML 「%CALLNAME:MASTER%…………！」
		PRINTFORMW 絶頂する。
		PRINTFORML
		PRINTFORMW 「私を愛して……%CALLNAME:MASTER%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML 「はぁ、はぁ……体が、熱い」
		PRINTFORML 火照ってしかたがなかった。
		PRINTFORMW 自分で慰めても治まらない。
		PRINTFORML
		PRINTFORMW 「%CALLNAME:MASTER%……」
		PRINTFORMW %CALLNAME:MASTER%に会いたい。
		PRINTFORMW %CALLNAME:MASTER%に弄ってもらいたい。
		PRINTFORMW %CALLNAME:MASTER%が、足りない。
		PRINTFORML
		PRINTFORMW 「もっと…………」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K117_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML 「はぁ……」
		PRINTFORML 「結構、溜め込んじゃってるわね……」
		PRINTFORMW 「責任取ってもらおうかしら」
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	IF TALENT:恋慕 || TALENT:思慕 || TALENT:愛欲 || TALENT:セフレ
		PRINTFORML 「んっ、%CALLNAME:MASTER%……」
	ELSE
		PRINTFORML 「んっ……」
	ENDIF
	PRINTFORML 寝付けぬ夜。幻月は声を殺して自身を慰める。
	PRINTFORML 「…………ッくぅう」
	PRINTFORMW 絶頂に達し、あふれそうになる声を手で押さえて体を震わせる。
	PRINTFORML
	PRINTFORML 「はぁ……早く寝よ」
	IF TALENT:恋慕 || TALENT:思慕 || TALENT:愛欲 || TALENT:セフレ
		PRINTFORMW %CALLNAME:MASTER%への思いを押し殺すように幻月は眠りに落ちていった。
	ELSE
		PRINTFORMW 一通りの事を終え、幻月は何の感慨もなく寝支度を始めた。
	ENDIF
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K117_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			PRINTFORML 「一緒にお風呂？　ごめんなさい、一人でゆっくり入りたいの」
			PRINTFORMW 幻月はなんだか申し訳なさそうに断った。
		ELSEIF TALENT:思慕
			PRINTFORML 「一緒にお風呂？　……ダメよ」
			PRINTFORMW 幻月は少し悩むようなそぶりを見せたが、%CALLNAME:MASTER%の頼みをはっきり断った。
		ELSE
			PRINTFORML 「一緒にお風呂？　ダメに決まってるじゃない」
			PRINTFORMW あっけなく断られてしまった。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕
			PRINTFORML 「いいわ。一緒に入りましょう」
			PRINTFORMW 幻月は少し楽しげに言った。
		ELSE
			PRINTFORML 「一緒にお風呂？　まぁいいけど……」
			PRINTFORMW 幻月は頬を赤らめながら許可してくれた。
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K117_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_K117_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=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_K117_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「はぁ……ん、あッ…………え？」
			PRINTFORMW 予想外のタイミングでの訪問者に完全に固まってしまった。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「ちょ、もぉ、なんなのよ！」
			PRINTFORMW 幻月の弾幕を背中に感じながら%CALLNAME:MASTER%は部屋から出て行った……。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「このまま続けてって……趣味悪すぎよ……」
			PRINTFORMW %CALLNAME:MASTER%の頼みに幻月はあからさまにいやそうな顔をした。
			PRINTFORMW が、ため息をつくと一度秘所から離した手を再び動かしだした。
			PRINTFORML 「こんなの…………ほんと変態よ……」
			PRINTFORMW 視線が気になるのか快楽に没頭できない様子の幻月を見守った。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「――――っ！」
			PRINTFORMW 幻月は声にならない声を上げながら%CALLNAME:MASTER%を追い出した。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「ちょ、なに……んっ」
			PRINTFORMW 状況に思考が追いつかない様子の幻月の唇をキスでふさぐ。
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORML 「ん……れろ」
				PRINTFORMW %CALLNAME:MASTER%のしようとする事を察したのか幻月の側から舌を絡めてくる。
				PRINTFORMW しばらくの後、唇を離すと%CALLNAME:MASTER%は幻月の蕩けた瞳で見つめられる。
				PRINTFORMW 「……私も……一人じゃ寂しかったわ……」
				PRINTFORML %CALLNAME:MASTER%を誘うように、幻月は濡れそぼった秘所を開いてみせてきた。
				PRINTFORMW 「ほら、来て。%CALLNAME:MASTER%」
			ELSE
				PRINTFORML 「ん、ふ……」
				PRINTFORMW 口内に入り込む舌を拒むように瞬時に口が閉ざされるが、やがて諦めたかのように隙間ができる。
				PRINTFORMW しばらくたって唇を離してやる。
				PRINTFORML 「%CALLNAME:MASTER%……」
				PRINTFORMW 上気した顔でこちらを見る幻月には、もはや抵抗の意思はないように見えた。
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORMW 「%CALLNAME:MASTER%が求めてくれるのはうれしいけど……」
				PRINTFORMW 「その、今度はもう少し普通に……」
			ELSE
				PRINTFORMW 「突然入ってきて……こんなこと……」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K117_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%。デート、行きましょ？」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%、少し付き合ってくれない？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「そう言ってくれると思ったわ。さ、行きましょ」
			ELSE
				PRINTFORML 「じゃあ、さっそく行きましょ」
			ENDIF
			PRINTFORMW 幻月は羽をパタパタさせながら、%CALLNAME:MASTER%の手を取った。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「そう……また今度、よろしくね」
			ELSE
				PRINTFORML 「まぁ、%CALLNAME:MASTER%にも予定とかあるわよね」
			ENDIF
			PRINTFORMW 幻月は羽をしょんぼりと落としている。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		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
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K117_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_K117_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの度胸で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「私、悪魔なのよ？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[臆病]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORML 「さすがに……疲れたわ……」
		IF BASE:MASTER:体力 < 700
			PRINTFORMW 「ふふ、%CALLNAME:MASTER%もお疲れみたいね」
		ELSE
			PRINTFORMW 「%CALLNAME:MASTER%は……まだ余裕ありそうね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML 「ふぅ、よかったわよ、%CALLNAME:MASTER%」
		PRINTFORMW 幻月はどこかスッキリしたような顔で%CALLNAME:MASTER%の上から降りた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORMW 「きゃっ！」
		PRINTFORML 「ふふ、%CALLNAME:MASTER%はまだ満足できてなかったのね……」
		PRINTFORMW 「いいわ。私の体で気持ちよくなって」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML 「ふふ、%CALLNAME:MASTER%がそんなに欲しがるなら……」
		PRINTFORMW 「いいわ。お望み通り限界までイかせてあげる……」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_EVENT_K117_31(ARG,ARG:1)
;口上主はTARGET
;ARGは会ってない日数
;何日以上会ってなかったら愚痴を言うとかできます
;CFLAG:オナバレで分岐入れてもよさそう
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;今日会っていない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今日会っている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1

[SKIPSTART]
;-------------------------------------------------
;オナバレ遭遇時の地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART~SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_EVENT_K117_ONABARE_1(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K117

IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレでそのまま続けてもらう場合の地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART~SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_EVENT_K117_ONABARE_2(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K117

IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレなし崩しックスの地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART~SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_EVENT_K117_ONABARE_3(前戯１,本番はどっちか,回数,注入量)
;-------------------------------------------------
#DIM 前戯１
;1=C 2=B 3=M
#DIM 本番はどっちか
;0でＶ、1でＡ
#DIM 注入量
#DIM 回数

:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K117

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

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

;-------------------------------------------------
;処女・無自覚非処女に挿入する直前の口上
;RETURN 1するとコマンドをキャンセルします
;RETURN 0なら通します
;CFLAG:破瓜キャンセル口上有がオンになってないと読み込まれないので注意
;-------------------------------------------------
@M_KOJO_EVENT_K117_LOST_VIRGIN_STOP
;-------------------------------------------------
PRINTFORML
RETURN 1

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_初回がオンになっている場合のみ有効。
;初めて押し倒した時、ここでRETURN -1すると押し倒しを強制的にキャンセルします。
;RETURN 0なら通常の判定を行い、RETURN 1すると無条件に成功させます。
;特定のイベント（デート帰りキスなど）を見るまでうふふできないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K117_PERMISSION_1
;-------------------------------------------------
PRINTFORML
;RETURN -1
RETURN 0
;RETURN 1
;-------------------------------------------------

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_通常がオンになっている場合のみ有効。
;合意付きで押し倒した時、ここでRETURN -1すると押し倒しを強制的にキャンセルします。
;RETURN 0なら通常通り成功させます。
;合意があっても何らかの理由でうふふできないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K117_PERMISSION_2
;-------------------------------------------------
PRINTFORML
RETURN 0
;RETURN -1
;-------------------------------------------------

;-------------------------------------------------
;部屋描写用関数
;口上キャラのOMANEKIBEYAか拠点の描写に使います
;記入する際はコメントアウトを外してください
;-------------------------------------------------
;@K117_ROOM_DESCRIPTION
;PRINTFORML 例）生活感のない殺風景な部屋だ
;-------------------------------------------------

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