code:
;-------------------------------------------------
; eraTheWorld proto4.48用 霧雨魔理沙口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

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

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;
;
;
;******************************************************************************

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

;RESULTS = _TEST_

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

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

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

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

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K11
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
	PRINTFORMW 「お、見ない顔だな」
	PRINTFORMW --話しかけてきた少女は黒白の服を纏い、大きな帽子をかぶり、箒を携えている。おとぎ話にでてくる魔女のような格好だ。
	PRINTFORMW 「あー、お前が噂の外から来た人間か？私は霧雨魔理沙、普通の魔法使いだ。お前の名前も教えてくれ」
	PRINTFORMW あなたは自分の名前を魔理沙に伝えた。
	PRINTFORMW 「%CALLNAME:MASTER%だな？わかったぜ」
	PRINTFORMW 「幻想郷はただの人間には厳しい環境だから気をつけろよ？まあ私みたいなただの人間じゃなければそうでもないが」
	PRINTFORMW あれ？さっき魔法使いと言ってなかったか？魔法使いは人間なのか？と魔理沙に訊くと
	PRINTFORMW 「私は｛普通の｝魔法使いだ。ちゃんと人間だぜ」
	PRINTFORMW という応えが返ってきた。｛普通の｝魔法使いとはどういう意味なのだろう？
	PRINTFORMW 「まあ私にも美学があるってことだ。人間の味方なのは間違いないから安心していいぜ」
	PRINTFORMW 「何か困ったことがあったら私か霊夢に相談しろよ。あと私の店｛霧雨魔法店｝もよろしくな♪」
	PRINTFORMW --自分の魔女に対する暗めなイメージとは真逆の、とても快活で笑顔の似合う少女であった。
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K11_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORMW 「なあ、%CALLNAME:MASTER%？ちょっとこっち向いてくれないか？」
	PRINTFORMW あなたは言われた通り魔理沙の方を向いた。
	PRINTFORMW 「んっ…」
	PRINTFORMW 一瞬のことだったが、なにか柔らかいものが唇に触れた。
	PRINTFORMW そして目の前にあった魔理沙の顔が離れていく…
	PRINTFORMW 「私のファーストキスだ、貰ってくれ」
	PRINTFORMW いつものような笑顔を浮かべているが、頬が紅潮しているのはよくわかった。
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K11_2(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
		PRINTFORMW 「なあ、%CALLNAME:MASTER%、今日は伝えたいことがあるんだ」
		PRINTFORMW 魔理沙がこちらを向く。その顔は真剣で、緊張しているように見える。
		PRINTFORMW これまで魔理沙と過ごしたなかで見たことも、想像したこともない表情を、今の魔理沙はしている。
		PRINTFORMW 「回りくどい言い方は好きじゃないから、単刀直入に言うぜ」
		PRINTFORMW ………
		PRINTFORMW 「%CALLNAME:MASTER%のことが好きだ。私と付き合ってくれないか？」
		PRINTFORMW こんなにも魔理沙は覚悟を決めているのだ。自分も覚悟を決めねば…
		RETURN 1

	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「ほ、本当か？嘘…じゃないよな？いや、私じゃあるまいし嘘なんてつかないよな」
		PRINTFORMW 「あわわ、いくら私が嘘つきでも%CALLNAME:MASTER%のことが好きなのは嘘じゃないからな!!」
		PRINTFORMW 嘘じゃないことなんてさっきの表情をみればわかるのだが…珍しく魔理沙が取り乱している。
		PRINTFORMW そんな魔理沙をあなたはそっと抱きしめる。
		PRINTFORMW 「へへ、%CALLNAME:MASTER%、大好き、だぜ」
		PRINTFORMW そう言って魔理沙はこれまで見たことのない、とびきりの笑顔をあなたに向けるのだった。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「…そうか、わかった」
		PRINTFORMW 魔理沙はがっくりと肩を落としているが…
		PRINTFORMW 「でも、私はあきらめないぜ」
		PRINTFORMW 「いつか必ず%CALLNAME:MASTER%のことを振り向かせてみせるぜ!!」
		PRINTFORMW そう言って調子を戻す魔理沙を見て、あなたはホッとするのだった。
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K11_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 「%CALLNAME:MASTER%に連れられるのもいいけど、いつか私の箒に乗ってふたりで空の旅ってのもしてみたいな」
			PRINTFORMW 「まだ誰も乗せたことない特等席だ、私の恋人の特権だぜ？」
		ELSEIF TALENT:恋慕
			PRINTFORML 「今日は楽しかったぜ」
			PRINTFORML 「また二人きりでどこか行こうな」
			PRINTFORMW と、魔理沙は笑顔で告げた。
		ELSE
			PRINTFORML 「今日は楽しかったぜ」
			PRINTFORML 「機会があったらまた誘ってくれよな」
			PRINTFORMW と、魔理沙は笑顔で告げた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「まあ私は器が大きいからな」
		PRINTFORMW 「このくらいなら許してやるぜ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「ふん、少しは許してやろう」
		PRINTFORMW 「だが、まだ完全に許したわけではないからな」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「……まあ少しは見直したぜ」
		PRINTFORMW 「だが、この程度で私の怒りが収まると思ったら大間違いだ」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K11_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORML
			PRINTFORML 「おう、%CALLNAME:MASTER%」
			PRINTFORML 魔理沙はあなたの隣に寄って来た。
			PRINTFORML 「やっぱり%CALLNAME:MASTER%の隣が落ち着くぜー♪」
			PRINTFORML 「さて、今日は何をしようか？」
			PRINTFORMW 魔理沙はあなたに眩しいくらいの笑顔を向けている。
		ELSEIF TALENT:恋慕
			PRINTFORML
			PRINTFORML 「――あ、%CALLNAME:MASTER%」
			PRINTFORML 魔理沙はあなたに気づいた。
			PRINTFORML 「今日は私に会いに来てくれたのか？嬉しいぜ」
			PRINTFORMW 魔理沙はなんだか照れているように見える。
		ELSEIF TALENT:思慕
			PRINTFORML
			PRINTFORML 「おう、%CALLNAME:MASTER%」
			PRINTFORML 「へへ、私に何か用か？」
			PRINTFORMW 魔理沙は笑顔を浮かべて話しかけてきた。
		ELSE
			PRINTFORML
			PRINTFORML 「お、%CALLNAME:MASTER%か」
			PRINTFORMW 「私に何か用か？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;ハロウィン、ちゃんと動くの？
		IF DAY:2 == 3 && DAY:3 == 30 && !TCVAR:11:今日会ったか
			IF TALENT:恋慕
				PRINTFORML 「トリック ☆ オア ☆ トリート！！」
				PRINTFORML 「お菓子をくれなきゃイタズラしちゃうぜ♪」
				PRINTFORMW 「さあ、どうする%CALLNAME:MASTER%？」
				PRINTFORML [0]-お菓子をあげる
				PRINTFORML [1]-お菓子をあげない
			INPUT
			;何も減らないし何もされないけどね…なんかあった方がいいのかな
				IF !RESULT
					PRINTFORMW 「へへ、それじゃありがたく頂くぜ」
					PRINTFORMW 「さて、お菓子をくれた%CALLNAME:MASTER%には特別にイタズラのプレゼントだ♪」
					PRINTFORMW 「私のイ・タ・ズ・ラ、欲しいだろ？…なーんてな♪」
				ELSE
					PRINTFORMW 「へえ、じゃあイタズラしてもいいってことだよな？」
					PRINTFORMW 「ふふふ、存分に楽しませてもらおうかな♪…って何も考えてなかったぜ…」
				ENDIF
				RETURN
			ELSE
				PRINTFORML 「トリック ☆ オア ☆ トリート！！」
				PRINTFORML 「お菓子をくれなきゃイタズラしちゃうぜ♪」
				PRINTFORMW 「さあ、どうする%CALLNAME:MASTER%？」
				PRINTFORML [0]-お菓子をあげる
				PRINTFORML [1]-お菓子をあげない
			INPUT
				IF !RESULT
					PRINTFORMW 「へへ、それじゃありがたく頂くぜ♪」
				ELSE
					PRINTFORMW 「へえ、じゃあイタズラしてもいいってことだよな？」
					PRINTFORMW 「それじゃ、楽しませてもらおうかな♪…って何も考えてなかったぜ…」
				ENDIF
				RETURN
			ENDIF
			RETURN
		;クリスマス、ネタとしておいしい気がした紅白魔理沙
		ELSEIF DAY:2 == 4 && DAY:3 == 25 && !TCVAR:11:今日会ったか
			IF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%、メリークリスマス！！」
				PRINTFORMW …目の前に黒白でなく紅白の衣装を纏った魔理沙がいる。中々新鮮だ。
				PRINTFORMW 「ふふふ、この日のために特別に作ったんだ、目に焼き付けておけよ？」
				PRINTFORMW 「え、プレゼント？目の前にあるじゃないか」
				PRINTFORMW 「プレゼントはワ・タ・シ…なんてな♪」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%、メリークリスマス！！」
				PRINTFORMW …目の前に黒白でなく紅白の衣装を纏った魔理沙がいる。中々新鮮だ。
				PRINTFORMW 「ふふふ、この日のために特別に作ったんだ、目に焼き付けておけよ？」
				PRINTFORMW 「え、プレゼント？ほら、ちゃんと食べられる美味いキノコだ、安心していいぞ？」
			ENDIF
			RETURN
		;新年あけましておめでとう
		ELSEIF DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1 && !TCVAR:11:今日会ったか
			IF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%、明けましておめでとう！！」
				PRINTFORMW 「今年も、いい一年にしような♪」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%、明けましておめでとう！！」
				PRINTFORMW 「今年もよろしくな♪」
			ENDIF
		;ヴァレンタイン
		ELSEIF DAY:2 == 4 && DAY:3 == 14 && DAY:0 != 1 && !TCVAR:11:今日会ったか
			PRINTFORMW 「よう、%CALLNAME:MASTER%、今日はバレンタインデーだな」
				SELECTCASE CFLAG:好感度
					CASE 1000 TO 3000
						PRINTFORMW 「せっかくだし、ほら、これやるよ」
					CASE 3001 TO 5000
						PRINTFORMW 「%CALLNAME:MASTER%には特別にこれをプレゼントだ♪」
					CASE IS > 5000
						IF EXP:ARG:愛情経験 < 100
							IF TALENT:恋人
								PRINTFORMW 「大好きな%CALLNAME:MASTER%のためにとびっきりの物を用意したぞ、受け取ってくれ」
								PRINTFORMW 「奮発して買ったんだ、楽しんでくれよ♪」
							ELSE
								PRINTFORMW 「%CALLNAME:MASTER%にお世話になってるからな、これを受け取ってくれ」
								PRINTFORMW 「奮発して買ったんだ、楽しんでくれよ♪」
							ENDIF
						ELSE
							IF TALENT:恋人
								PRINTFORMW 「大好きな%CALLNAME:MASTER%のためにとびっきりの物を用意したぞ」
								PRINTFORMW 「お菓子はあまり作ったことないけど、頑張って作ったんだ、私の気持ち、受け取ってくれ」
							ELSE
								PRINTFORMW 「%CALLNAME:MASTER%にお世話になってるからな、これを受け取ってくれ」
								PRINTFORMW 「お菓子はあまり作ったことないけど、頑張って作ったんだ」
							ENDIF
						ENDIF
				ENDSELECT
		;そのほか
		ELSEIF TALENT:恋人
			PRINTFORML
			PRINTFORML 「えーっと%CALLNAME:MASTER%は…あ、いたいた」
			PRINTFORML 魔理沙はあなたの隣に寄って来た。
			PRINTFORML 「やっぱり%CALLNAME:MASTER%の隣が落ち着くぜー」
			PRINTFORML 「さて、今日は何をしようかなー♪」
			PRINTFORMW 魔理沙はあなたに眩しいくらいの笑顔を向けている。
		ELSEIF TALENT:恋慕
			PRINTFORML
			PRINTFORML 「――おーい、%CALLNAME:MASTER%」
			PRINTFORML 魔理沙はあなたの隣に寄って来た。
			PRINTFORML 「今日は私が隣にいても…いいよな…？」
			PRINTFORMW 魔理沙はなんだか照れているように見える。
		ELSEIF TALENT:思慕
			PRINTFORML
			PRINTFORML 「おーい、%CALLNAME:MASTER%」
			PRINTFORML 「ちょっと新作の魔法を見ていかないか？」
			PRINTFORMW 魔理沙は楽しそうにあなたに話しかけてきた。
		ELSE
			PRINTFORML
			PRINTFORML 「お、%CALLNAME:MASTER%か」
			PRINTFORMW 「もう幻想郷には慣れたか？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORML 「おー%CALLNAME:MASTER%、入ってたのか」
			PRINTFORML 風呂の戸が開き、魔理沙が入ってきた。
			PRINTFORML 「せっかくだし、私が背中を流してやろうか」
			PRINTFORML 「いや、こういう時は旦那様とでも呼んだ方がよかったかな？」
			PRINTFORML あなたは魔理沙の発言に硬直してしまっている…
			PRINTFORML 「なんだよ、そんなに緊張しなくてもいいだろ？だ・ん・な・さ・ま？」
			PRINTFORMW 魔理沙は妖しい笑みを浮かべている…
		ELSE
			PRINTFORML 「あー、%CALLNAME:MASTER%、入ってたのか」
			PRINTFORML 「うーん、私もご一緒させてもらおうかな」
			PRINTFORML 魔理沙はあなたの向かいに座っている…
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「あー、すまん、邪魔したな」
		PRINTFORMW 魔理沙は去っていった…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF TALENT:恋人
			PRINTFORML 「おう、%CALLNAME:MASTER%」
			PRINTFORML 魔理沙はあなたの隣に寄って来た。
			PRINTFORML 「やっぱり%CALLNAME:MASTER%の隣が落ち着くぜー」
			PRINTFORML 「さて、今日は何をしようかなー♪」
			PRINTFORMW 魔理沙はあなたに眩しいくらいの笑顔を向けている。
		ELSEIF TALENT:恋慕
			PRINTFORML
			PRINTFORML 「――あ、%CALLNAME:MASTER%」
			PRINTFORML 魔理沙はあなたに気づいた。
			PRINTFORML 「今日は私に会いに来てくれたのか？嬉しいぜ」
			PRINTFORMW 魔理沙はなんだか照れているように見える。
		ELSEIF TALENT:思慕
			PRINTFORML
			PRINTFORML 「おーい、%CALLNAME:MASTER%」
			PRINTFORML 「ちょっと新作の魔法を見ていかないか？」
			PRINTFORMW 魔理沙は楽しげにあなたに話しかけてきた。
		ELSE
			PRINTFORML
			PRINTFORML 「お、%CALLNAME:MASTER%か」
			PRINTFORMW 「私に何か用か？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF TALENT:恋人
			PRINTFORML 「お、なんだ%CALLNAME:MASTER%、私を差し置いてデート中か？」
			PRINTFORML 「ああ、別に止めろって言ってるんじゃないぜ？ただ…」
			PRINTFORML 「%CALLNAME:MASTER%の恋人は、私だけなんだからな？」
			PRINTFORML 「それじゃ、邪魔しちゃ悪いし、私はどこか行ってるぜ、楽しんでこいよ」
			PRINTFORMW …魔理沙にしっかりとクギをさされてしまった。
		ELSEIF TALENT:恋慕
			PRINTFORML
			PRINTFORML 「―あ、%CALLNAME:MASTER%、デート中か…」
			PRINTFORML 「邪魔しちゃ悪いし、私はどこか行ってるぜ」
			PRINTFORMW （はあ…私ももっと頑張らないとな…）
		ELSEIF TALENT:思慕
			PRINTFORML 「…ん、なんだ？デート中か？」
			PRINTFORML 「邪魔しちゃ悪いし、私はどこか行ってるぜ、楽しんでこいよ」
			PRINTFORMW （あれ？なんかもやもやするな…何でだろう？）
		ELSE
			PRINTFORML 「お、なんだ？デート中か？」
			PRINTFORMW 「邪魔しちゃ悪いし、私はどこか行ってるぜ、楽しんでこいよ」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K11_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
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		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 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K11_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 「あ、そうだ%CALLNAME:MASTER%、ちょっとこっち向いてくれ」
			PRINTFORML 言われた通りあなたは魔理沙の方を向いた。
			PRINTFORML 「ん…ちゅっ…」
			PRINTFORMW 「へへ、さよならのキス、だ」
		ELSEIF TALENT:恋慕
			PRINTFORML 「ふあぁ…そろそろ眠くなってきたな…」
			PRINTFORML 「そういうわけだから、今日はもう帰るぜ」
			PRINTFORMW 「もう少し、一緒に居たいけど…な」
		ELSE
			PRINTFORML 「ふあぁ…そろそろ眠くなってきたな…」
			PRINTFORMW 「そういうわけだから、今日はもう帰るぜ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「むにゃ…よ～し…これでも喰らえ～!…」
			PRINTFORMW どうやら魔理沙の夢の中では弾幕が広がっているようだ。
		CASE 1
			PRINTFORML 「むにゃ…くそ～…当たっちまったか～…」
			PRINTFORMW どうやら魔理沙は夢の中で相手の弾に当たってしまったようだ。
		CASE 2
			PRINTFORML 「むにゃ…これで終わりだ～…｛恋符｝マスタースパーク！…」
			PRINTFORMW 夢の中の魔理沙は十八番のスペルで相手にとどめの一撃を放ったようだ。
		ENDSELECT
		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
		PRINTFORML 「お、おい大丈夫か%CALLNAME:MASTER%？」
		PRINTFORML 「仕方ないな、私が部屋まで運んでやるとするか」
		PRINTFORMW 「まったく、体調管理はしっかりしろよなー」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	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
		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_K11_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 TALENT:恋人
			PRINTFORML 「おーい、%CALLNAME:MASTER%、どこか行くのか？」
			PRINTFORML あなたが魔理沙に行き先を告げると、
			PRINTFORML 「ふーん、まあ私は束縛しない女だからな、自由に出掛けていいし他の女に声かけるのも自由だ」
			PRINTFORML 「だが…お前は私のものなんだからな？」
			PRINTFORMW と、魔理沙は笑みを浮かべて言ってきた。
		ELSEIF TALENT:恋慕
			PRINTFORML 「おーい、%CALLNAME:MASTER%」
			PRINTFORML 魔理沙とすれ違った。
			PRINTFORML 「はあ、私のことをもっと見て欲しいものだが…」
			PRINTFORMW と、魔理沙は小さな声でつぶやいた。
		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_K11_5(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1

	ENDIF
	;-------------------------------------------------
	;る～ことが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML 「おっと、誰か来たみたいだな」
	PRINTFORMW 気配を察知した魔理沙はあなたからスッと離れた。

ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K11_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:11:恋人
			;霊夢と
			IF ARG == 1
				PRINTFORML 「よう、%CALLNAME:MASTER%に霊夢、楽しそうだな？」
				PRINTFORML 「まあこれは貸しにしといてやるぜ」
				PRINTFORML
				PRINTFORML （弾幕では若干私が負けているが、この勝負は私が貰っているんだ）
				PRINTFORMW （ここは恋人の余裕ってやつだ、それに%CALLNAME:MASTER%のこと信じてるし）
			ELSE
				PRINTFORML 「ふーん、%CALLNAME:MASTER%には私がいるのになあ…」
				PRINTFORMW 「まあいいか、%CALLNAME:MASTER%のこと、信じてるぜ？」
			ENDIF
		ELSEIF TALENT:11:恋慕
			;霊夢と
			IF ARG == 1
				PRINTFORML 「よ、よう、%CALLNAME:MASTER%に霊夢…」
				PRINTFORML 「………」
				PRINTFORML
				PRINTFORML （この勝負で負けるわけには…まして相手が霊夢じゃなおさら負けられないぜ）
				PRINTFORMW （私ももっと頑張らないとな…）
			ELSE
				PRINTFORML 「あ…」
				PRINTFORMW 「……私ももっと頑張らないとな…」
			ENDIF
		ELSE
			PRINTFORMW 「おいおい、仲睦まじいのは結構だが、人目は気にすることだな」
			;霊夢と
			IF ARG == 1
				PRINTFORML 「ははは、随分と楽しそうだな、霊夢に%CALLNAME:MASTER%」
				PRINTFORML 「そうかー、霊夢にもついにそんな時期が来たのか」
				PRINTFORML 「なんか、こう…感慨深いものがあるな、幼馴染として」
				PRINTFORMW 「それじゃあ私はこれで失礼するぜ」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:恋人
			IF ARG == 1
				PRINTFORML 「よう、%CALLNAME:MASTER%に霊夢、楽しそうだな？」
				PRINTFORML 魔理沙は妖しい笑みを浮かべている…
				PRINTFORML 「霊夢、この勝負は私が貰ったんだ、今からそれを見せてやるぜ」
				PRINTFORMW そう言いながら魔理沙はこちらに近寄ってきた…
			ELSE
				PRINTFORML 「ふふん、随分と楽しそうじゃないか」
				PRINTFORML 魔理沙は妖しい笑みを浮かべている…
				PRINTFORML 「私が%CALLNAME:MASTER%の恋人ってトコを見せてやらなきゃいけないな」
				PRINTFORMW そう言いながら魔理沙はこちらに近寄ってきた…
			ENDIF
		ELSEIF TALENT:恋慕
			IF ARG == 1
				PRINTFORML 「よ、よう、%CALLNAME:MASTER%に霊夢…」
				PRINTFORML 「………」
				PRINTFORML 「この勝負は絶対に譲らないぜ、霊夢」
				PRINTFORMW そう言いながら魔理沙はこちらに近寄ってきた…
			ELSE
				PRINTFORML 「ふふん、随分と楽しそうじゃないか」
				PRINTFORML 魔理沙は妖しい笑みを浮かべている…
				PRINTFORML 「私も負けていられないな…」
				PRINTFORMW そう言いながら魔理沙はこちらに近寄ってきた…
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF TALENT:11:恋人
			;霊夢と
			IF ARG == 1
				PRINTFORML 「よう、%CALLNAME:MASTER%に霊夢、楽しそうだな？」
				PRINTFORML 「まあこれは貸しにしといてやるぜ」
				PRINTFORML
				PRINTFORML （弾幕では若干私が負けているが、この勝負は私が貰っているんだ）
				PRINTFORMW （ここは恋人の余裕ってやつだ、それに%CALLNAME:MASTER%のこと信じてるし）
			ELSE
				PRINTFORML 「ふーん、%CALLNAME:MASTER%には私がいるのになあ…」
				PRINTFORMW 「まあいいか、%CALLNAME:MASTER%のこと、信じてるぜ？」
			ENDIF
		ELSEIF TALENT:11:恋慕
			;霊夢と
			IF ARG == 1
				PRINTFORML 「よ、よう、%CALLNAME:MASTER%に霊夢…」
				PRINTFORML 「………」
				PRINTFORML
				PRINTFORML （この勝負で負けるわけには…まして相手が霊夢じゃなおさら負けられないぜ）
				PRINTFORMW （私ももっと頑張らないとな…）
			ELSE
				PRINTFORML 「あ…」
				PRINTFORMW 「……私ももっと頑張らないとな…」
			ENDIF
		ELSE
			PRINTFORMW 「おいおい、仲睦まじいのは結構だが、人目は気にすることだな」
			;霊夢と
			IF ARG == 1
				PRINTFORML 「ははは、随分と楽しそうだな、霊夢に%CALLNAME:MASTER%」
				PRINTFORML 「そうかー、霊夢にもついにそんな時期が来たのか」
				PRINTFORML 「なんか、こう…感慨深いものがあるな、幼馴染として」
				PRINTFORMW 「それじゃあ私はこれで失礼するぜ」
			ENDIF
		ENDIF
		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_K11_7(ARG,ARG:1)
;口上主はTARGET
;ARGに目撃者
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=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
		PRINTFORML 「えっ？交ざる…のか？」
		PRINTFORML 「まあいいが…負けるつもりはないぜ？」
		PRINTFORMW 魔理沙は不敵な笑みを浮かべている…
		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_K11_8(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERだけ問い詰め
	;記入チェック（=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_K11_9(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;同じ場所に居てパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「おい、%CALLNAME:MASTER%、ちょっと止まってくれ」
		PRINTFORML そう言われてあなたが動きを止めると、魔理沙はパンツをしまってある箇所を的確に調べてきた。
		PRINTFORML 「お前何か隠してるだろ？こういうのには鼻が利くんだ」
		PRINTFORML 「はあ？何だよこれ、没収だ没収」
		PRINTFORMW あなたはパンツを没収されてしまった…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;遠距離移動中にパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML 「おい、%CALLNAME:MASTER%、ちょっと止まってくれ」
		PRINTFORML そう言われてあなたが動きを止めると、魔理沙はパンツをしまってある箇所を的確に調べてきた。
		PRINTFORML 「お前何か隠してるだろ？こういうのには鼻が利くんだ」
		PRINTFORML 「はあ？何だよこれ、没収だ没収」
		PRINTFORMW あなたはパンツを没収されてしまった…
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF TALENT:恋人
			PRINTFORML 「なあ、%CALLNAME:MASTER%」
			PRINTFORML 返事をする間もなく、あなたは魔理沙に押し倒されてしまった。
			PRINTFORML 「ふふふ、ここまで我慢させられてきたんだ、ここからは私のターンだぜ」
			PRINTFORMW 「さあ、%CALLNAME:MASTER%？いっぱい、愛し合おうぜ…」
		ELSEIF TALENT:恋慕
			PRINTFORML 「なあ、%CALLNAME:MASTER%」
			PRINTFORML 返事をする間もなく、あなたは魔理沙に押し倒されてしまった。
			PRINTFORMW 「私、もう我慢できないんだ…いいだろ？%CALLNAME:MASTER%…」
		ELSE
			PRINTFORML 「なあ、%CALLNAME:MASTER%」
			PRINTFORML 返事をする間もなく、あなたは魔理沙に押し倒されてしまった。
			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
		SELECTCASE ARG:1
			CASE 0
			;抜け出した
				PRINTFORML 「ん、もう終わりにするのか？」
				PRINTFORML 「なんだかスッキリしないが、イヤなら仕方ないか」
				PRINTFORMW 少し残念そうにしながらも、魔理沙は折れてくれた。
				RETURN 1
			CASE 1
			;抱き着きモード満足終了
				PRINTFORML
				RETURN 1
			CASE 2
			;抱き着きモード強制終了
				PRINTFORML
				RETURN 1
		ENDSELECT
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE ARG:1
			CASE 1
			;好きにして状態から抜け出せなかった
				RETURN 1
			CASE 2
			;欲求不満が高くて抜け出せなかった
				PRINTFORML 「おおっと、逃がさないぜ？」
				PRINTFORML 「私はまだ満足してないからな、もう少し付き合ってもらうぜ」
				PRINTFORMW 魔理沙はまだあなたを離すことはないようだ…
				RETURN 1
		ENDSELECT
	ENDIF
	;その他
				PRINTFORML 「おおっと、逃がさないぜ？」
				PRINTFORML 「私はまだ満足してないからな、もう少し付き合ってもらうぜ」
				PRINTFORMW 魔理沙はまだあなたを離すことはないようだ…
				RETURN 1
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「んー？%CALLNAME:MASTER%か」
		PRINTFORML …入浴中の魔理沙と目が合った。
		PRINTFORML 「おい、なにつっ立ってるんだ、早く出てけよ」
		PRINTFORMW 魔理沙の怒気に気圧され、あなたはその場を去った…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORML 「なんだ、%CALLNAME:MASTER%か」
			PRINTFORML 入ってきたのがあなただと分かると、魔理沙は警戒を解いた。
			PRINTFORML 「ははーん、私と一緒に風呂に入りたくて来たのか？」
			PRINTFORML 「いいぜ♪ほらこっち来いよ」
			PRINTFORML 魔理沙はあなたが座れるほどのスペースを作った。
			PRINTFORMW あなたがそこに座ると、魔理沙はニヤリとしながら体を摺り寄せてきた。
		ELSEIF TALENT:恋慕
			PRINTFORML 「んー？%CALLNAME:MASTER%か」
			PRINTFORML …入浴中の魔理沙と目が合った。
			PRINTFORML 「せっかくだし、一緒に入るか？」
			PRINTFORML 魔理沙はあなたが座れるほどのスペースを作った。
			PRINTFORMW せっかくのお誘いだ。あなたは魔理沙の誘いを受けることにした。
		ELSE
			PRINTFORML 「ん、%CALLNAME:MASTER%か」
			PRINTFORML …入浴中の魔理沙と目が合った。
			PRINTFORML 「もしかして、一緒に入りたいのか？」
			PRINTFORML 「まあいいが、絶対に変な気を起こすんじゃないぞ？」
			PRINTFORMW あなたは疑惑の眼差しを浴びている…
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K11_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_K11_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「おっと、そろそろ時間か」
		PRINTFORMW 「今日はやりたいことがあるんだ、またな」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	;何やってるんだろこの子
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;物置での発掘？
	;時間で分岐させてるけど仕事量じゃないとダメかも？
		IF TIME:0 >= 780 && TIME:0 < 960
			PRINTFORML 「ごそごそ…ん？これは…」
			SELECTCASE RAND:12
			CASE 0
				PRINTFORML 「霊夢の巫女服か、私も一回着てみようかな？」
				PRINTFORMW 「しかしいつ見てもおかしなデザインだよな、この服」
			CASE 1
				PRINTFORML 「おもちゃの三種の神器もどきか」
				PRINTFORMW 「裏に『ごしんたい』って書いてあるけど結局何なんだ？これ」
			CASE 2
				PRINTFORML 「陰陽玉か、妖怪に当たると痛いらしいな」
				PRINTFORMW 「人間に当たっても痛いんだけどな…」
			CASE 3
				PRINTFORML 「針だな、御札と違って人間にもよく効く」
				PRINTFORMW 「多くの血を吸った針はマジックアイテムみたいなもんだ」
			CASE 4
				PRINTFORML 「御札だな、敵への精神的なダメージが大きい、対妖怪向けだな」
				PRINTFORMW 「これがあれば気軽に妖怪退治が出来るかもな、私には魔法があるが」
			CASE 5
				PRINTFORML 「ケセランパサランだな、幸運を呼ぶらしい、菌類だけどな」
				PRINTFORMW 「持って帰りたいが神に触れられる者にしか触れないんだ、残念だぜ」
			CASE 6
				PRINTFORML 「霊夢のでかいリボンか」
				PRINTFORMW 「そういえばリボンに針妙丸の着物を被せてた時があったな、何だったんだろう？」
			CASE 7
				PRINTFORML 「霊夢の下着か…なんでこんな所に？」
				PRINTFORMW 「…結構派手なもの着てるんだな…」
			CASE 8
				PRINTFORML 「文々。新聞か、文が発行してる新聞だな」
				PRINTFORMW 「…おお、懐かしいな、そういえばこんなこともあったな…っと作業に戻るか」
			CASE 9
				PRINTFORML 「大幣か、神事に使う物らしいな」
				PRINTFORMW 「相手を殴るための物じゃないような気がするが…いいのか？」
			CASE 10
				PRINTFORML 「…私があげたキノコじゃないか」
				PRINTFORMW 「せっかく美味い物見つけたんだから食べてくれよ…」
			CASE 11
				PRINTFORML 「…私と霊夢の小さい頃の写真だ」
				PRINTFORMW 「こうして見ると霊夢との付き合いは随分と長くなったな」
			ENDSELECT
			RETURN 1
	;トレーニング、もうちょっとなんかないか？
		ELSE
			SELECTCASE RAND:6
			CASE 0
				PRINTFORMW 「火力の特訓だ、弾幕はパワーだぜ！」
			CASE 1
				PRINTFORMW 「速さの特訓だ、何事も速いに越したことはない」
			CASE 2
				PRINTFORMW 「美しさを磨くぜ、魅せる弾幕は楽しいからな」
			CASE 3
				PRINTFORMW 「緻密な避け方の特訓だ、集中力の特訓にもなるぜ」
			CASE 4
				PRINTFORMW 「弾幕の軌道を予測する特訓だ、避ける弾を少なくすることが重要だぜ」
			CASE 5
				PRINTFORMW 「新しい魔法を試してみるぜ、どれにしようかな…」
			ENDSELECT
			RETURN 1
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「ふう、今日はここまでにしよう」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;食事系
;==================================================
@M_KOJO_EVENT_K11_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_K11_15(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=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_K11_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_K11_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 （―!?）
		PRINTFORML （な、なんだ？今の感覚…）
		PRINTFORMW 魔理沙は謎の快感に困惑しているようだ…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML （―!?）
		PRINTFORML 魔理沙は突然の絶頂に体を震わせている…
		PRINTFORML （な、なんだ？私、イっちゃってた…のか？）
		PRINTFORML （くそ、いったい何が起こってるんだ？）
		PRINTFORMW 魔理沙は周囲を警戒している…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML （―!?）
		PRINTFORML 魔理沙は下半身の涼しさに驚いているようだ…
		PRINTFORML （くそ、気付かれずに下着を盗むなんて誰の仕業だ？紫か？咲夜か？他には…）
		PRINTFORMW 魔理沙は周囲を警戒している…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;幼稚持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		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 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K11_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「あー、ちょっと待ってくれ」
		PRINTFORMW 「避妊はしてくれ、頼む」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「いや、ダメなものはダメだ」
		PRINTFORMW 「私が子供を育てるなんて…自信ないんだ…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「いい加減にしてくれ！」
		PRINTFORMW 「そんなに簡単なことじゃないだろ、子供を育てるってのは」
		PRINTFORMW 「少しは私のことも考えてものを言ってくれ！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「……そんなに私との子供、欲しいか？」
		PRINTFORMW 「もちろん、本気で言ってるんだよな？」
		PRINTFORMW あなたは真剣な表情で頷いた。
		PRINTFORMW 「………」
		PRINTFORMW 「わかったよ、子供が欲しいほど私のこと好きってことだもんな」
		PRINTFORMW 「それに%CALLNAME:MASTER%と一緒なら頑張れる気がするしな」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「……そんなに私との子供、欲しいか？」
		PRINTFORMW 「もちろん、本気で言ってるんだよな？」
		PRINTFORMW あなたは真剣な表情で頷いた。
		PRINTFORMW 「………」
		PRINTFORMW 「わかったよ、子供が欲しいほど私のこと好きってことだもんな」
		PRINTFORMW 「それに%CALLNAME:MASTER%と一緒なら頑張れる気がするしな」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K11_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「お、いいのか、ありがとな」
		PRINTFORML 「まあ私は霊夢の飯を作ったりもするし、神社の家事は問題ない」
		PRINTFORML 「しかし、神社で魔法の研究をしてもいいんだろうか？」
		PRINTFORMW 「なんにせよ%CALLNAME:MASTER%とひとつ屋根の下か…楽しくなりそうだな」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「えー何だよ、ダメなのか？」
		PRINTFORML 「神社によく顔を出しているんだから私が住んでもそんなに変わらないと思うが…」
		PRINTFORMW 「いや流石にそんなことはないよな…仕方ないか」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K11_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=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 「へへ、さよならのキス、だ」
		ELSEIF TALENT:恋慕
			PRINTFORML 「ふあぁ…そろそろ眠くなってきたな…」
			PRINTFORML 「そういうわけだから、今日はもう帰るぜ」
			PRINTFORMw 「もう少し、一緒に居たいけど…な」
		ELSE
			PRINTFORML 「ふあぁ…そろそろ眠くなってきたな…」
			PRINTFORMw 「そういうわけだから、今日はもう帰るぜ」
		ENDIF
		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_K11_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「うーむ…」
		PRINTFORMW 最近どうもおかしい。魔法の研究に身が入らない。睡眠時間が短くなっている。それもこれも…
		PRINTFORMW 「私、%CALLNAME:MASTER%のことばっかり考えてるからだよな…」
		PRINTFORMW 気付けば%CALLNAME:MASTER%のこと目で追ってるし、少し会わない日が続くだけで会いたくなるし…
		PRINTFORMW 「もしかしなくても、私は%CALLNAME:MASTER%のことが好きってことだよな…」
		PRINTFORMW 恋をする、とはこういうことだったのか。｛恋符｝なんて使ってるくせになんなんだ私は。
		PRINTFORMW 「うじうじ悩む、というのは私らしくないよな」
		PRINTFORMW 「そうと決まれば、やることは一つしかない…か」
		PRINTFORMW 魔理沙は何かを決心したようだ…
	;あなたが魔理沙以外と恋人になっていると追加
		IF TALENT:MASTER:恋人 && TALENT:MASTER:恋人 != 11
			PRINTFORMW …でも、もう%CALLNAME:MASTER%には恋人がいるんだよな…
			PRINTFORMW この気持ち、しまっておけってことなのか？私はどうしたらいいんだ…？
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「いやあ、今日も楽しかったな」
		PRINTFORMW 私は日頃から博麗神社をはじめいろいろな所に顔を出したり、魔法の研究をしたりして毎日の生活を謳歌している。
		PRINTFORMW 最近は、より日常を楽しく感じている。
		PRINTFORMW 「うーむ、何か前から変わったことあったかな…あ、%CALLNAME:MASTER%か」
		PRINTFORMW 確かに%CALLNAME:MASTER%と一緒にいると楽しい。でも霊夢と一緒にいるときの｛楽しい｝とは何かが違う…
		PRINTFORMW 「うーむ、この気持ちはなんて呼べばいいんだろうな…？」
		PRINTFORMW 魔理沙はもやもやした気持ちを抱えるようになった。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「ああ、足りない、足りないんだ…」
		PRINTFORMW 「%CALLNAME:MASTER%のことが、もっと欲しい…っ」
		PRINTFORMW 「はあ…この気持ちは何なんだ？恋なのか？ただの欲望なのか？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「ダメだ、全然この関係から抜けられないぜ…」
		PRINTFORMW 「でも、何だか物足りなくなってきたな…」
		PRINTFORMW 「もっと私のことも見て欲しいな…でも、それが許される関係なのか…？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「はあ、すっかり溺れちゃってるな…」
		PRINTFORMW 「カラダだけの関係なんて、流石に健全とは言えないよなあ…」
		PRINTFORMW 「でも抜け出せないんだよな…うーむ、どうしたものか…」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K11_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_K11_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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORML 「うん？一緒に風呂に入ろうって？わかった、いいぜ」
			PRINTFORML 「そうだ、せっかくだし、私が背中を流してやろうか」
			PRINTFORML 「いや、こういう時は旦那様とでも呼んだ方がよかったかな？」
			PRINTFORML あなたは魔理沙の発言に固まってしまった…
			PRINTFORMW 「なんだよ、そんなに緊張しなくてもいいだろ？だ・ん・な・さ・ま？」
			PRINTFORMW 魔理沙は妖しい笑みを浮かべている…
		ELSEIF TALENT:恋慕
			PRINTFORML 「うん？一緒に風呂に入ろうって？わかった、いいぜ」
			PRINTFORMW 「そうだ、せっかくだし、私が背中を流してやろうか」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K11_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「あー%CALLNAME:MASTER%、どうやらデキちゃったみたいだぜ」
		PRINTFORML 「家出娘に育児なんか出来るのか不安だが、大好きな%CALLNAME:MASTER%との子供だ」
		PRINTFORMW 「頑張って色々と勉強するから、しっかりサポートしてくれよ？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「あー%CALLNAME:MASTER%、どうやらデキちゃったみたいだぜ」
		PRINTFORML 「まさか家出娘に育児を押し付けるほど鬼じゃないよな？」
		PRINTFORMW 「ちゃんと責任は取ってくれよ？」
		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_K11_25(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=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
		PRINTFORML 「よし、元気に産まれてきてくれたな」
		PRINTFORML 「しかし、私が子供を産むことになるとは思わなかったな」
		PRINTFORMW 「これから忙しくなりそうだな…でも楽しくもなりそうだ」
		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_K11_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
				PRINTFORML 「なぁっ！？」
				PRINTFORMW 「%CALLNAME:MASTER%、女性の部屋に入る時はノックくらいしろよ…」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「…なんだよ、手を出してくれてもいいのに…」
				PRINTFORMW 魔理沙はそう呟いた。
			ELSE
				PRINTFORMW 「くそ、一体なんだっていうんだ」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「うわ、シュミ悪いな…%CALLNAME:MASTER%って…」
				PRINTFORML 「そんなに見たいか？仕方ないな」
				PRINTFORMW 「我慢できなくなったら襲ってくれてもいいんだぜ？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 魔理沙は八卦炉を構えてレーザーを放ってきた…
			PRINTFORML レーザーはあなたの顔の真横に着弾した。
			PRINTFORML 「次は当てるぞ？痛い思いしたくなかったら、わかってるよな？」
			PRINTFORMW あなたはその場を去った…
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「へえ、%CALLNAME:MASTER%も溜まってるのか」
			PRINTFORML 「じゃあ私の相手、してくれるよな？」
			PRINTFORML 「私のこといっぱい鳴かせてくれていいんだぜ？」
			PRINTFORMW 魔理沙は妖艶な笑みを浮かべながら言った。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「はぁ…はぁ…よかったぜ%CALLNAME:MASTER%」
				PRINTFORMW 「また私の相手してくれるよな？」
			ELSE
				PRINTFORML 「はぁ…はぁ…まさか%CALLNAME:MASTER%とこんなことしちゃうなんてな」
				PRINTFORMW 「まあいいか、相手してくれてありがとな」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
		IF TALENT:恋慕
				PRINTFORML 「ん、泊まっていくのか？」
				PRINTFORMW 「ふふふ、今夜は離さないぞ？」
			ELSE
				PRINTFORML 「ん、泊まっていくのか？」
				PRINTFORMW 「うーん、寝られるスペースあるかな…ちょっと片付けてくる」
			ENDIF
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K11_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
			PRINTFORMW 「なあ、今日は私に付き合ってくれないか？」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
				PRINTFORML 「へへ、そうこなくっちゃな」
				PRINTFORMW 「それじゃあ行こうぜ♪」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
				PRINTFORML 「ちぇー、つれないなー」
				PRINTFORMW 「次は付き合ってくれよ？」
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K11_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_K11_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_K11_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=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
	;満足して解放
			PRINTFORML 「いやー楽しかった」
			PRINTFORML 「気持ちよかったし、%CALLNAME:MASTER%のカワイイ顔もいっぱい見られたし私は満足だ」
			PRINTFORMW 魔理沙はとても気分が良さそうだ。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
			PRINTFORML 「うわ！？まだするのか？」
			PRINTFORML 「まったく、しょうがないな、付き合ってやるぜ」
			PRINTFORMW 「しかし%CALLNAME:MASTER%ってそんなに体力あったんだな…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
			PRINTFORML 「えっ？もっとシてほしいって？」
			PRINTFORML 「ふふふ…どうなっても知らないぞ？」
			PRINTFORMW 魔理沙は妖しい笑みを浮かべている…
		RETURN 1
	ENDIF
ENDIF
RETURN 1
[SKIPSTART]
;-------------------------------------------------
;オナバレ遭遇時の地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K11_ONABARE_1(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

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

[SKIPSTART]
;-------------------------------------------------
;オナバレなし崩しックスの地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K11_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/口上・メッセージ関連/個人口上/eraTW用霧雨魔理沙口上ver,0.03/M_KOJO_K11_イベント.ERB