code:
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K103
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
IF TCVAR:350 != 0
	SIF FLAG:口上色
		CALL M_KOJO_COLOR_K103
	SELECTCASE TCVAR:350
	CASE 6
		;何もしてない

		;他のコマンドから呼び出されていない
		SIF !CFLAG:18
			PRINTFORML
		PRINTFORMDL 時を止めた状態で少女の傍に近寄った%CALLNAME:MASTER%は、時を動かし始めた
		PRINTFORMDL その刹那、赤い半袖のメイド服の少女は、その綺麗な金髪を揺らしながら飛び退る
		PRINTFORMD 懐からどこからともなく取り出した短剣を両手に持ち、
		SIF CFLAG:現在位置 == CFLAG:102:現在位置 || CFLAG:現在位置 == CFLAG:17:現在位置
			PRINTFORMD 背後の女性をかばうようにして
		PRINTFORMDW %CALLNAME:MASTER%の前に立ち塞がった
		PRINTFORMDL
		PRINTFORMW 「………あなたどこから出てきたの…？」
		PRINTFORMDL
		PRINTFORMDL 警戒心剥き出しのその少女に、%CALLNAME:MASTER%は驚かせたのなら済まない、と謝り、軽く自己紹介すると、
		PRINTFORMDW 少女は警戒心を解いて手を下に降ろした……短剣は持ったままだが
		PRINTFORMDL
		SIF CFLAG:MASTER:初期位置 == 531;人形の洋館に自室がある場合
			PRINTFORML 「ああ、今度からここに住むことになった人なのね…」
		PRINTFORML 「私は魔界人の夢子。 姓は無いからそのまま夢子で構わないわ」
		PRINTFORML 「あなたの名前は………%CALLNAME:MASTER%ね、覚えておくわ」
		PRINTFORMW 「ここは変な能力を持った奴らがたくさんいるから、%CALLNAME:MASTER%も余計な争いをしたくなければ今みたいに驚かすような真似はしないことね」
		PRINTFORMDL
		PRINTFORMDW そう言うと夢子は、今度こそ短剣を何処かへと仕舞い込んだ
	CASE 7
		;パンツが無い
		PRINTFORMDL 時を止めた状態で少女の傍に近寄った%CALLNAME:MASTER%は、時を動かし始めた
		PRINTFORMDL その刹那、赤い半袖のメイド服の少女は、その綺麗な金髪を揺らしながら飛び退る
		PRINTFORMD 懐からどこからともなく取り出した短剣を両手に持ち、
		SIF CFLAG:現在位置 == CFLAG:102:現在位置 || CFLAG:現在位置 == CFLAG:17:現在位置
			PRINTFORMD 背後の女性をかばうようにして
		PRINTFORMDW %CALLNAME:MASTER%の前に立ち塞がった
		PRINTFORMDL
		PRINTFORMW 「………あなたどこから出てきたの…？」
		PRINTFORMDL
		PRINTFORMDL 警戒心剥き出しのその少女に、%CALLNAME:MASTER%は驚かせたのなら済まない、と謝り、軽く自己紹介すると、
		PRINTFORMDW 少女は警戒心を解いて手を下に降ろし、今度はパンツが無くなったことに気が付いたのか、そわそわし始めた……短剣は持ったままだが
		PRINTFORMDL
		SIF CFLAG:MASTER:初期位置 == 531;人形の洋館に自室がある場合
			PRINTFORML 「ああ、今度からここに住むことになった人なのね…」
		PRINTFORML 「………私は魔界人の夢子。 姓は無いからそのまま夢子で構わないわ」
		PRINTFORML 「あなたの名前は………%CALLNAME:MASTER%ね、覚えておくわ」
		PRINTFORMW 「ここは変な能力を持った奴らがたくさんいるから、%CALLNAME:MASTER%も余計な争いをしたくなければ今みたいに驚かすような真似はしないことね」
		PRINTFORMDL
		PRINTFORMDW そう言うと夢子は、%CALLNAME:MASTER%を訝しんだ目で見つめながら、今度こそ短剣を何処かへと仕舞い込んだ
	CASE 8
		;快感が走ってる
		PRINTFORMDL 時を止めた状態で少女の傍に近寄った%CALLNAME:MASTER%は、時を動かし始めた
		PRINTFORMDL その刹那、赤い半袖のメイド服の少女は、その綺麗な金髪を揺らしながら飛び退る
		PRINTFORMD 懐からどこからともなく取り出した短剣を両手に持ち、
		SIF CFLAG:現在位置 == CFLAG:102:現在位置 || CFLAG:現在位置 == CFLAG:17:現在位置
			PRINTFORMD 背後の女性をかばうようにして
		PRINTFORMDW %CALLNAME:MASTER%の前に立ち塞がったが、その瞬間にガクッと膝を折った
		PRINTFORMDL
		PRINTFORMW 「………あなた…誰………私に何かした……？」
		PRINTFORMDL
		PRINTFORMDL 警戒心剥き出しのその少女に、%CALLNAME:MASTER%は驚かせたのなら済まない、とそ知らぬ振りをして謝り、軽く自己紹介すると、
		PRINTFORMDW 少女は手を下に降ろし、息を整え始めた……短剣は持ったままだが
		PRINTFORMDL
		SIF CFLAG:MASTER:初期位置 == 531;人形の洋館に自室がある場合
			PRINTFORML 「あ…ああ、今度からここに住むことになった人なのね…」
		PRINTFORML 「………私は魔界人の夢子。 …姓は無いからそのまま夢子で構わないわ」
		PRINTFORML 「あなたの名前は………%CALLNAME:MASTER%ね、…覚えておくわ」
		PRINTFORMW 「ここは変な能力を持った奴らがたくさんいるから、%CALLNAME:MASTER%も余計な争いをしたくなければ今みたいに驚かすような真似はしないことね」
		PRINTFORMDL
		PRINTFORMDW そう言うと夢子は、%CALLNAME:MASTER%を訝しんだ目で見つめながら、今度こそ短剣を何処かへと仕舞い込んだ
	CASE 9
		;絶頂した
		PRINTFORMDL 時を止めた状態で少女の傍に近寄った%CALLNAME:MASTER%は、時を動かし始めた
		PRINTFORMDL その刹那、赤い半袖のメイド服の少女は、その綺麗な金髪を揺らしながら飛び退る
		PRINTFORMD 懐からどこからともなく取り出した短剣を両手に持ち、
		SIF CFLAG:現在位置 == CFLAG:102:現在位置 || CFLAG:現在位置 == CFLAG:17:現在位置
			PRINTFORMD 背後の女性をかばうようにして
		PRINTFORMDW %CALLNAME:MASTER%の前に立ち塞がったが、その瞬間にガクッと膝を床についた
		PRINTFORMDL
		PRINTFORMW 「………いっ………ぇ…何……？」
		PRINTFORMDL
		PRINTFORMDL ビクビクと体を揺らしながらも警戒を怠らないその少女に、%CALLNAME:MASTER%はそんなに驚くとは思わなかった、とそ知らぬ振りをして謝り、軽く自己紹介すると、
		PRINTFORMDW 少女は手を下に降ろし、ゆっくりと立ち上がって息を整え始めた……短剣は持ったままだが
		PRINTFORMDL
		SIF CFLAG:MASTER:初期位置 == 531;人形の洋館に自室がある場合
			PRINTFORML 「あ…あなたが今度からここに住むことになった人なのね…」
		PRINTFORMW 「………私は魔界人の夢子。 …姓は無いからそのまま夢子で構わないわ」
		PRINTFORML 「あなたの名前は………%CALLNAME:MASTER%ね、…覚えておくわ」
		PRINTFORML 「ここは変な能力を持った奴らがたくさんいるから、%CALLNAME:MASTER%も余計な争いをしたくなければ今みたいに驚かすような真似はしないことね」
		PRINTFORMDL
		PRINTFORMDW そう言うと夢子は、%CALLNAME:MASTER%を訝しんだ目で見つめながら、今度こそ短剣を何処かへと仕舞い込んだ
	ENDSELECT

ELSE
	;他のコマンドから呼び出されていない
	SIF !CFLAG:18
		PRINTFORML
	PRINTFORMW 「あら、見ない顔ね」
	PRINTFORMDL
	PRINTFORMDL %CALLNAME:MASTER%が話しかける前に、赤い半袖のメイド服のその少女は綺麗な金髪の髪を揺らしながら立ち止まった
	PRINTFORMDW %CALLNAME:MASTER%が軽く自己紹介すると、少女は、これはご丁寧に、とこちらにお辞儀をした
	PRINTFORMDL
	SIF CFLAG:MASTER:初期位置 == 531;人形の洋館に自室がある場合
		PRINTFORML 「ああ、今度からここに住むことになった人ってあなたなのね」
	PRINTFORML 「私は魔界人の夢子。 姓は無いからそのまま夢子で構わないわ」
	PRINTFORML 「あなたの名前は………%CALLNAME:MASTER%ね、覚えておくわ」
	PRINTFORMW 「ここは変な能力を持った奴らがたくさんいるから、%CALLNAME:MASTER%も余計な争いをしたくなければ変な真似はしないことね」
	PRINTFORMDL
	PRINTFORMDW そう言うと夢子は、いつの間にか持っていた短剣を、何処かへと仕舞い込んだ
ENDIF
;時止めフラグ初期化
CALL M_KOJO_K103_RESETTW
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K103_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SIF FLAG:口上色
		CALL M_KOJO_COLOR_K103
	PRINTFORMDL
	PRINTFORMDW …デートからの帰り道、夢子はふと立ち止まり、俯いた
	PRINTFORMDW どうした、と声を掛けようとしたところで、夢子の身体がブレて見えることに気が付いた
	PRINTFORMDW それどころか、見回すといつの間にか周りの風景も歪んでいた
	PRINTFORMDW %CALLNAME:MASTER%は頭に疑問符を浮かべつつ、彼女のいたはずの場所をもう一度見るが、そこに彼女の姿は無かった
	PRINTFORMDW これは彼女の能力のはず……と、考えを巡らせようとしたところで、今度は後ろから肩を叩かれる
	PRINTFORMDW 振り向こうとしたその時、いきなり顔を掴まれて、突如唇に柔らかいものが押し付けられた
	PRINTFORMDL
	PRINTFORMW 「ん…ちゅ…………」
	PRINTFORMDL
	PRINTFORMDW 展開が目まぐるしく変わる現状に混乱が隠せないまま、唐突な接吻は終わりを迎える
	PRINTFORMDW それと共に、周りの風景も次第にはっきりとしてきた
	PRINTFORMDL
	PRINTFORMW 「あの、私ね……%CALLNAME:MASTER%なら、あげてもいいかなって…思ったのよ………その…………キス…」
	PRINTFORMDL
	PRINTFORMDW それは一体どういう意味かと言葉を紡ごうとして、またもや遮るように突然手をぎゅっと握られた
	PRINTFORMDL %CALLNAME:MASTER%の手を握る夢子は耳を真っ赤にして俯いていて、仕方なく、%CALLNAME:MASTER%は言葉の代わりにと、繋いでいない方の手で
	PRINTFORMDW 不器用な夢子の頭を撫でてあげることにした…
	PRINTFORMDL
	PRINTFORMDW …
	PRINTFORMDW ……
	PRINTFORMDW ………

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

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K103_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
		PRINTFORMW 「私達ってさ、今、デートしてたのよね」
		PRINTFORMDL
		PRINTFORMDL 帰り際唐突に夢子が発した言葉に、%CALLNAME:MASTER%は多少なりとも面食らったが、そうだよ、と答えると、夢子はズンズンという
		PRINTFORMDW 擬音が似合う感じで間近まで近づいてきて、顔を突き合わせた
		PRINTFORMDL
		PRINTFORMW 「私ね、%CALLNAME:MASTER%のことが好き、大好き、気がついたらいつもあなたのこと考えてる」
		PRINTFORMDL
		PRINTFORMDW 金の瞳でこちらの目を覗き込みながら、畳み掛けるように夢子は告げる
		PRINTFORMDL
		PRINTFORMW 「そろそろ、はっきりさせたいの。 私は、あなたの一番になれるかって…こと」
		PRINTFORMW 「私、不器用で、負けず嫌いだから、こういうのって雰囲気とかわかんないの」
		PRINTFORMW 「でも、本当に好きなんだって気持ち、知っていてほしかったから…」
		PRINTFORMW 「だから…その………私と、付き合ってくれませんかっ！！！」
		PRINTFORMDL
		PRINTFORMDW 言って、彼女は唇を引き結ぶ
		PRINTFORMDW 自分の…答えは………
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		PRINTFORMW 「………よかったぁ……」
		PRINTFORML
		PRINTFORMDW 言いながら、夢子はその場にへたり込んでしまった
		PRINTFORMDW そんなに緊張したのかと苦笑いしながら、%CALLNAME:MASTER%は座り込んでいる夢子に手を差し伸べた
		PRINTFORMDL
		PRINTFORMW 「その………これから、よろしくお願いします…」
		PRINTFORML
		PRINTFORMDW こちらこそ、と%CALLNAME:MASTER%は微笑んで、夢子の手を取る
		PRINTFORMDW 立ち上がった夢子は、エプロンについた土を払うと、そのまま繋いでいた方の腕にしがみ付いてきた
		PRINTFORMDL
		PRINTFORML 「…このくらいはいいでしょ？ …だって、%CALLNAME:MASTER%の一番になれたんだもの」
		PRINTFORML
		PRINTFORMDW 上目遣いに、夢子はわずかに微笑んで、そう言う
		PRINTFORMDW 心を鷲掴みにされる、とはこういうことを言うのかもしれない、と%CALLNAME:MASTER%は思いながら、二人で仲良く帰路につくことにした…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		PRINTFORMW 「………そう……」
		PRINTFORML
		PRINTFORMDW 落胆した声で言うが、夢子は目をそのまま逸らさない
		PRINTFORMDL
		PRINTFORMW 「……私、諦めないから。 こう見えてもしつこいのよ？」
		PRINTFORML
		PRINTFORMDW そう言うと夢子は一度離れて横に来た後、大きく息を吸いながら伸びをして、もう一度こちらに振り向いた
		PRINTFORMDL
		PRINTFORMW 「…%CALLNAME:MASTER%に好きだって逆に言わせてやるんだから」
		PRINTFORML
		PRINTFORMDW 気が付けば、%CALLNAME:MASTER%の手がしっかりと握られていた
		PRINTFORMDW これは今後が恐ろしいな、と%CALLNAME:MASTER%は苦笑いを浮かべながら、そのまま二人で帰路につくことにした…
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K103_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
		PRINTFORML
		SELECTCASE M_KOJO_K103_KANKEI()
		CASE 1 TO 24
			;普通の関係
			PRINTFORML 「んー、帰ってきたわねぇ」
			PRINTFORML 「なかなか面白かったわよ、%CALLNAME:MASTER%」
		CASE 30 TO 34,60 TO 64
			;思慕
			PRINTFORML 「んー、長かったような短かったような…」
			PRINTFORML 「ま、とにかく面白かったわよ、%CALLNAME:MASTER%」
		CASE 40 TO 44,70 TO 74
			;恋慕
			PRINTFORML 「あー、もう帰ってきちゃったかー…」
			PRINTFORML 「また今度誘ってね？ 約束よ？ %CALLNAME:MASTER%」
		CASE 50 TO 44
			;恋人
			PRINTFORML 「ん、帰ってきたわね…」
			PRINTFORML 「いつでも会えるからって、デートはこまめにしてよね？ 約束よ？ %CALLNAME:MASTER%」
		ENDSELECT
		RETURN 1
	ENDIF
	;これは後回し　見たことが無いので
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K103_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;1行空けたい
		PRINTFORML
		IF CFLAG:神社在住 && 520 < CFLAG:MASTER:初期位置 && CFLAG:MASTER:初期位置 <= 531
			;魔法の森が拠点かつ人形の洋館にあなた部屋がある場合
			IF CFLAG:現在位置 == 523
				;人形の洋館夢子の部屋で遭遇
				SELECTCASE M_KOJO_K103_KANKEI()
				CASE 11,12,21,22
					;関係普通
					PRINTFORMW 「あら、いらっしゃい」
				CASE 13,14,23,24
					;関係普通:不機嫌か怒ってる
					PRINTFORML 「ちょっと今立て込んでるの」
					PRINTFORML 「出て行ってくれないかしら？」
					PRINTFORMDL
					PRINTFORMDW 部屋を追い出されてしまった…
					CALL GETOUT(MASTER)
				CASE 31,32,61,62
					;関係思慕
					PRINTFORMW 「あら、いらっしゃい。 何か用かしら？」
				CASE 33,63
					;関係思慕:不機嫌
					PRINTFORML 「あら、いらっしゃい」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされている…
				CASE 34,64
					;関係思慕:怒ってる
					PRINTFORML 「何しに来たのかしら」
					PRINTFORML 「出て行ってくれない？」
					PRINTFORMDL
					PRINTFORMDW 部屋を追い出されてしまった…
					CALL GETOUT(MASTER)
				CASE 41,42,71,72,51,52
					;関係恋慕以上
					PRINTFORML 「あら%CALLNAME:MASTER%、いらっしゃい」
					PRINTFORML 「ゆっくりしていって」
					PRINTFORMDL
					PRINTFORMDW 夢子に椅子を勧められたので、座ることにした…
				CASE 43,73,53
					;関係恋慕以上:不機嫌
					PRINTFORML 「あら%CALLNAME:MASTER%、いらっしゃい」
					PRINTFORML 「ゆっくりしていって」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされているように見える…
				CASE 44,74,54
					;関係恋慕以上:怒ってる
					PRINTFORML 「あら%CALLNAME:MASTER%」
					PRINTFORMW 「謝りに来てくれたのかしら？」
				ENDSELECT
			ELSEIF CFLAG:現在位置 == 522
				;人形の洋館神綺の部屋で遭遇
				SELECTCASE M_KOJO_K103_KANKEI()
				CASE 11,12,21,22
					;関係普通
					PRINTFORMW 「あら、…神綺様に何か用？」
					SIF CFLAG:現在位置 == CFLAG:102:現在位置
						PRINTFORML 「申し訳ないけど、神綺様はいらっしゃらないわ」
				CASE 13,14,23,24
					;関係普通:不機嫌か怒ってる
					IF CFLAG:現在位置 == CFLAG:102:現在位置
						PRINTFORML 「あらどうも」
						PRINTFORMDL
						PRINTFORMDW 夢子は苛立ちを隠しきれていない…
					ELSE
						PRINTFORML 「悪いけど神綺様は今お部屋に居ないわ」
						PRINTFORML 「出て行きなさい」
						PRINTFORMDL
						PRINTFORMDW 部屋を追い出されてしまった…
						CALL GETOUT(MASTER)
					ENDIF
				CASE 31,32,61,62
					;関係思慕
					PRINTFORMW 「あら、いらっしゃい。 神綺様に何か用かしら？」
					SIF CFLAG:現在位置 == CFLAG:102:現在位置
						PRINTFORML 「神綺様は今いらっしゃらないのだけど、何か言伝はある？」
				CASE 33,63
					;関係思慕:不機嫌
					PRINTFORML 「あら、いらっしゃい。 神綺様に何か用？」
					SIF CFLAG:現在位置 == CFLAG:102:現在位置
						PRINTFORML 「神綺様は今いらっしゃらないわよ…」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされている…
				CASE 34,64
					;関係思慕:怒ってる
					PRINTFORML 「あら、いらっしゃい」
					IF CFLAG:現在位置 == CFLAG:102:現在位置
						PRINTFORML 「神綺様に用事？」
						PRINTFORMDL
						PRINTFORMDW 夢子は苛立ちを隠しきれていない…
					ELSE
						PRINTFORML 「悪いけど神綺様は今お部屋に居ないわ」
						PRINTFORML 「出て行って」
						PRINTFORMDL
						PRINTFORMDW 部屋を追い出されてしまった…
						CALL GETOUT(MASTER)
					ENDIF
				CASE 41,42,71,72,51,52
					;関係恋慕以上
					PRINTFORML 「あら%CALLNAME:MASTER%、神綺様に何か御用事？」
					SIF CFLAG:現在位置 == CFLAG:102:現在位置
						PRINTFORML 「神綺様は今いらっしゃらないのだけど、何か言伝はあるかしら？」
					PRINTFORMDL
					PRINTFORMDW 夢子に椅子を勧められたので、座ることにした…
				CASE 43,73,53
					;関係恋慕以上:不機嫌
					PRINTFORML 「あら%CALLNAME:MASTER%、いらっしゃい」
					SIF CFLAG:現在位置 == CFLAG:102:現在位置
						PRINTFORML 「神綺様は今いらっしゃらないのだけど、何か言伝はあるかしら」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされているように見える…
				CASE 44,74,54
					;関係恋慕以上:怒ってる
					PRINTFORML 「あら%CALLNAME:MASTER%」
					SIF CFLAG:現在位置 == CFLAG:102:現在位置
						PRINTFORML 「神綺様は今いらっしゃらないのだけど、何の用？」
					PRINTFORMDL
					PRINTFORMDW 夢子は苛立ちを隠しきれていない…
				ENDSELECT
			ELSEIF CFLAG:現在位置 == 521
				;人形の洋館アリスの部屋で遭遇
				SELECTCASE M_KOJO_K103_KANKEI()
				CASE 11,12,21,22
					;関係普通
					PRINTFORMW 「あら、…アリスに何か用？」
					SIF CFLAG:現在位置 == CFLAG:17:現在位置
						PRINTFORML 「申し訳ないけど、アリスはいないわ」
				CASE 13,14,23,24
					;関係普通:不機嫌か怒ってる
					IF CFLAG:現在位置 == CFLAG:17:現在位置
						PRINTFORML 「あらどうも」
						PRINTFORMDL
						PRINTFORMDW 夢子は苛立ちを隠しきれていない…
					ELSE
						PRINTFORML 「悪いけどアリスは今お部屋に居ないみたいだから」
						PRINTFORML 「出て行きなさい」
						PRINTFORMDL
						PRINTFORMDW 部屋を追い出されてしまった…
						CALL GETOUT(MASTER)
					ENDIF
				CASE 31,32,61,62
					;関係思慕
					PRINTFORMW 「あら、いらっしゃい。 アリスに何か用かしら？」
					SIF CFLAG:現在位置 == CFLAG:17:現在位置
						PRINTFORML 「アリスは今いないのだけど、何か言伝はある？」
				CASE 33,63
					;関係思慕:不機嫌
					PRINTFORML 「あら、いらっしゃい。 アリスに何か用？」
					SIF CFLAG:現在位置 == CFLAG:17:現在位置
						PRINTFORML 「アリスは今いないわよ」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされている…
				CASE 34,64
					;関係思慕:怒ってる
					PRINTFORML 「あら、いらっしゃい」
					IF CFLAG:現在位置 == CFLAG:17:現在位置
						PRINTFORML 「アリスに用事？」
						PRINTFORMDL
						PRINTFORMDW 夢子は苛立ちを隠しきれていない…
					ELSE
						PRINTFORML 「悪いけどアリスは今部屋に居ないわ」
						PRINTFORML 「出て行って」
						PRINTFORMDL
						PRINTFORMDW 部屋を追い出されてしまった…
						CALL GETOUT(MASTER)
					ENDIF
				CASE 41,42,71,72,51,52
					;関係恋慕以上
					PRINTFORML 「あら%CALLNAME:MASTER%、アリスに何か御用事？」
					SIF CFLAG:現在位置 == CFLAG:17:現在位置
						PRINTFORML 「アリスは今いないのだけど、何か言伝はあるかしら？」
				CASE 43,73,53
					;関係恋慕以上:不機嫌
					PRINTFORML 「あら%CALLNAME:MASTER%、いらっしゃい」
					SIF CFLAG:現在位置 == CFLAG:17:現在位置
						PRINTFORML 「アリスは今いないのだけど、何か言伝はあるかしら」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされているように見える…
				CASE 44,74,54
					;関係恋慕以上:怒ってる
					PRINTFORML 「あら%CALLNAME:MASTER%」
					SIF CFLAG:現在位置 == CFLAG:17:現在位置
						PRINTFORML 「アリスは今いないのだけど、何の用？」
					PRINTFORMDL
					PRINTFORMDW 夢子は苛立ちを隠しきれていない…
				ENDSELECT
			ELSEIF CFLAG:現在位置 == 531
				;住み込み部屋で遭遇（TARGETがあなたの部屋にいた）
				SELECTCASE M_KOJO_K103_KANKEI()
				CASE 11,12,21,22,13,14,23,24
					;関係普通
					PRINTFORMW 「あらごめんなさい、掃除してたのよ」
				CASE 31,32,61,62
					;関係思慕
					PRINTFORMW 「あら、%CALLNAME:MASTER%、お邪魔してるわ」
				CASE 33,63
					;関係思慕:不機嫌
					PRINTFORML 「あら、%CALLNAME:MASTER%」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされている…
				CASE 34,64
					;関係思慕:怒ってる
					PRINTFORML 「%CALLNAME:MASTER%」
					PRINTFORMW 「なんでここに私が来たかわかるかしら」
				CASE 41,42,71,72,51,52
					;関係恋慕以上
					PRINTFORML 「あら%CALLNAME:MASTER%、お邪魔させてもらってるわ」
					PRINTFORML 「ベッドの下に変なものも隠してなかったわね…残念」
					PRINTFORMDL
					PRINTFORMDW 夢子に椅子を勧められたので、座ることにした…
					PRINTFORMDW いや、ここは自分の部屋なのだが…
				CASE 43,73,53
					;関係恋慕以上:不機嫌
					PRINTFORML 「あら%CALLNAME:MASTER%、お邪魔させてもらってるわ」
					PRINTFORML 「別に、居てもいいでしょ？」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされているように見える…
				CASE 44,74,54
					;関係恋慕以上:怒ってる
					PRINTFORML 「あら%CALLNAME:MASTER%」
					PRINTFORMW 「私がここに来た理由わかるかしら？」
				ENDSELECT
			ELSEIF CFLAG:現在位置 >= 520 && CFLAG:現在位置 <= 530
				;人形の洋館内部で遭遇
				SELECTCASE M_KOJO_K103_KANKEI()
				CASE 11,12,21,22
					;関係普通
					PRINTFORMW 「あら、%M_KOJO_K103_AISATSU()%」
				CASE 13,14,23,24
					;関係普通:不機嫌か怒ってる
					PRINTFORMW 「……%M_KOJO_K103_AISATSU()%」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされている…
				CASE 31,32,61,62
					;関係思慕
					PRINTFORMW 「あら、%M_KOJO_K103_AISATSU()%」
				CASE 33,63
					;関係思慕:不機嫌
					PRINTFORML 「あら…、%M_KOJO_K103_AISATSU()%」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされている…
				CASE 34,64
					;関係思慕:怒ってる
					PRINTFORML 「………%M_KOJO_K103_AISATSU()%」
					PRINTFORMDL
					PRINTFORMDW なんだかピリピリしている…
					CALL GETOUT(MASTER)
				CASE 41,42,71,72,51,52
					;関係恋慕以上
					PRINTFORML 「あら%CALLNAME:MASTER%、%M_KOJO_K103_AISATSU()%。 今お茶を入れたところよ」
					PRINTFORML 「ゆっくりしていって」
				CASE 43,73,53
					;関係恋慕以上:不機嫌
					PRINTFORML 「あら%CALLNAME:MASTER%、%M_KOJO_K103_AISATSU()%」
					PRINTFORML 「ゆっくりしていって」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされているように見える…
				CASE 44,74,54
					;関係恋慕以上:怒ってる
					PRINTFORML 「あら%CALLNAME:MASTER%」
					PRINTFORMW 「謝りに来てくれたのかしら？」
				ENDSELECT
			ELSE
				;それ以外
				SELECTCASE M_KOJO_K103_KANKEI()
				CASE 11,12,21,22
					;関係普通
					PRINTFORMW 「あら、いらっしゃい」
				CASE 13,14,23,24
					;関係普通:不機嫌か怒ってる
					PRINTFORML 「ごめんなさい、ちょっと今立て込んでるの」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされている…
				CASE 31,32,61,62
					;関係思慕
					PRINTFORMW 「あら、いらっしゃい。 何か用かしら？」
				CASE 33,63
					;関係思慕:不機嫌
					PRINTFORML 「あら、いらっしゃい」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされている…
				CASE 34,64
					;関係思慕:怒ってる
					PRINTFORML 「何しに来たのかしら？」
					PRINTFORMDL
					PRINTFORMDW 夢子は目に見えて怒っている…
					CALL GETOUT(MASTER)
				CASE 41,42,71,72,51,52
					;関係恋慕以上
					PRINTFORML 「あら%CALLNAME:MASTER%、いらっしゃい」
				CASE 43,73,53
					;関係恋慕以上:不機嫌
					PRINTFORML 「…あら%CALLNAME:MASTER%、いらっしゃい」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされているように見える…
				CASE 44,74,54
					;関係恋慕以上:怒ってる
					PRINTFORML 「あら%CALLNAME:MASTER%」
					PRINTFORMW 「謝りに来てくれたのかしら？」
				ENDSELECT
			ENDIF
		ELSEIF CFLAG:神社在住
			;魔法の森が拠点だが人形の館に住んでいない場合
				SELECTCASE M_KOJO_K103_KANKEI()
				CASE 11,12,21,22
					;関係普通
					PRINTFORMW 「あら、いらっしゃい」
				CASE 13,14,23,24
					;関係普通:不機嫌か怒ってる
					PRINTFORML 「ちょっと今立て込んでるの」
					PRINTFORML 「出て行ってくれないかしら？」
					PRINTFORMDL
					PRINTFORMDW 部屋を追い出されてしまった…
					CALL GETOUT(MASTER)
				CASE 31,32,61,62
					;関係思慕
					PRINTFORMW 「あら、いらっしゃい。 何か用かしら？」
				CASE 33,63
					;関係思慕:不機嫌
					PRINTFORML 「あら、いらっしゃい」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされている…
				CASE 34,64
					;関係思慕:怒ってる
					PRINTFORML 「何しに来たのかしら」
					PRINTFORML 「出て行ってくれない？」
					PRINTFORMDL
					PRINTFORMDW 部屋を追い出されてしまった…
					CALL GETOUT(MASTER)
				CASE 41,42,71,72,51,52
					;関係恋慕以上
					PRINTFORML 「あら%CALLNAME:MASTER%、いらっしゃい」
					PRINTFORML 「ゆっくりしていって」
					PRINTFORMDL
					PRINTFORMDW 夢子に椅子を勧められたので、座ることにした…
				CASE 43,73,53
					;関係恋慕以上:不機嫌
					PRINTFORML 「あら%CALLNAME:MASTER%、いらっしゃい」
					PRINTFORML 「ゆっくりしていって」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされているように見える…
				CASE 44,74,54
					;関係恋慕以上:怒ってる
					PRINTFORML 「あら%CALLNAME:MASTER%」
					PRINTFORMW 「謝りに来てくれたのかしら？」
				ENDSELECT
		ELSEIF CFLAG:現在位置 == 550
			;魔法の森が拠点ではなく、人形の洋館で遭遇した場合
				SELECTCASE M_KOJO_K103_KANKEI()
				CASE 11,12,21,22
					;関係普通
					PRINTFORMW 「あら、どうも」
				CASE 13,14,23,24
					;関係普通:不機嫌か怒ってる
					PRINTFORML 「ちょっと今立て込んでるの」
					PRINTFORML 「満足なご用意もできず申し訳ありません」
				CASE 31,32,61,62
					;関係思慕
					PRINTFORMW 「あら、いらっしゃい。 何か用かしら？」
				CASE 33,63
					;関係思慕:不機嫌
					PRINTFORML 「あら、いらっしゃい」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされている…
				CASE 34,64
					;関係思慕:怒ってる
					PRINTFORML 「何しに来たのかしら」
					PRINTFORML 「出て行ってくれない？」
					PRINTFORMDL
					PRINTFORMDW 部屋を追い出されてしまった…
					CALL GETOUT(MASTER)
				CASE 41,42,71,72,51,52
					;関係恋慕以上
					PRINTFORML 「あら%CALLNAME:MASTER%、いらっしゃい」
					PRINTFORML 「ゆっくりしていって」
					PRINTFORMDL
					PRINTFORMDW 夢子に椅子を勧められたので、座ることにした…
				CASE 43,73,53
					;関係恋慕以上:不機嫌
					PRINTFORML 「あら%CALLNAME:MASTER%、いらっしゃい」
					PRINTFORML 「ゆっくりしていって」
					PRINTFORMDL
					PRINTFORMDW 夢子はなんだかふてくされているように見える…
				CASE 44,74,54
					;関係恋慕以上:怒ってる
					PRINTFORML 「あら%CALLNAME:MASTER%」
					PRINTFORMW 「謝りに来てくれたのかしら？」
				ENDSELECT
		ELSE
			;それ以外の部屋
			PRINTFORML 「あら%CALLNAME:MASTER%、%M_KOJO_K103_AISATSU()%\@ TALENT:恋慕 ? %M_KOJO_K103_HEART(1)% # \@」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
			SELECTCASE M_KOJO_K103_KANKEI()
			CASE 11,12,21,22
				;関係普通
				PRINTFORMW 「あら、どうも」
			CASE 13,14,23,24
				;関係普通:不機嫌か怒ってる
				PRINTFORMW 「ちょっと今立て込んでるの」
			CASE 31,32,61,62
				;関係思慕
				PRINTFORMW 「あら、どうも。 何か用があるかしら？」
			CASE 33,63
				;関係思慕:不機嫌
				PRINTFORML 「あら、どうも」
				PRINTFORMDL
				PRINTFORMDW 夢子はなんだかふてくされている…
			CASE 34,64
				;関係思慕:怒ってる
				PRINTFORML 「何しに来たのかしら」
				PRINTFORMDL
				PRINTFORMDW 夢子は怒っている…
			CASE 41,42,71,72,51,52
				;関係恋慕以上
				PRINTFORML 「あら%CALLNAME:MASTER%」
				PRINTFORMW 「どこに行くの？」
			CASE 43,73,53
				;関係恋慕以上:不機嫌
				PRINTFORML 「あら%CALLNAME:MASTER%」
				PRINTFORMDL
				PRINTFORMDW 夢子はなんだかふてくされているように見える…
			CASE 44,74,54
				;関係恋慕以上:怒ってる
				PRINTFORML 「あら%CALLNAME:MASTER%」
				PRINTFORMW 「謝りに来てくれたのかしら？」
			ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		SELECTCASE M_KOJO_K103_KANKEI()
		CASE 11,12,21,22
			;関係普通　女あなたのみ…？
			PRINTFORMW 「良いお風呂ねぇ…」
		CASE 13,14,23,24
			;関係普通:不機嫌か怒ってる　女あなたのみ…？
			PRINTFORMW 「ちょっと、そっちつめなさいよ」
		CASE 31,32,61,62
			;関係思慕　女あなたのみ…？
			PRINTFORMW 「あら、どうも……」
		CASE 33,63
			;関係思慕:不機嫌　女あなたのみ…？
			PRINTFORML 「あら、どうも」
			PRINTFORMDL
			PRINTFORMDW 夢子はなんだかふてくされている…
		CASE 34,64
			;関係思慕:怒ってる　女あなたのみ…？
			PRINTFORML 「あらどうも」
			PRINTFORMDL
			PRINTFORMDW 夢子は怒っている…
		CASE 41,42,71,72,51,52
			;関係恋慕以上
			PRINTFORML 「あら%CALLNAME:MASTER%」
			PRINTFORMW 「ご一緒してもいいかしら？」
		CASE 43,73,53
			;関係恋慕以上:不機嫌
			PRINTFORML 「あら%CALLNAME:MASTER%」
			PRINTFORMW 「ご一緒してもいいかしら」
		CASE 44,74,54
			;関係恋慕以上:怒ってる
			PRINTFORMW 「あら%CALLNAME:MASTER%」
			PRINTFORMDL
			PRINTFORMDW 夢子はそのあとは何も言わず、そのまま入ってきた…
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		SELECTCASE M_KOJO_K103_KANKEI()
		CASE 11,12,21,22
			;関係普通　女あなたのみ…？
			PRINTFORMW 「あ、ごめんなさい先客がいたのね…」
		CASE 13,14,23,24
			;関係普通:不機嫌か怒ってる　女あなたのみ…？
			PRINTFORMW 「む、タイミングわるいわね」
		CASE 31,32,61,62
			;関係思慕　女あなたのみ…？
			PRINTFORMW 「あ、あの、ごめんなさい……」
		CASE 33,63
			;関係思慕:不機嫌　女あなたのみ…？
			PRINTFORMW 「あら、その、ごめんなさい」
		CASE 34,64
			;関係思慕:怒ってる　女あなたのみ…？
			PRINTFORMW 「あらどうもごめんなさい」
		CASE 41,42,71,72,51,52
			;関係恋慕以上
			PRINTFORMW 「あ、ええと、ごめんなさい%CALLNAME:MASTER%」
		CASE 43,73,53
			;関係恋慕以上:不機嫌
			PRINTFORMW 「あら、その、ごめんなさい」
		CASE 44,74,54
			;関係恋慕以上:怒ってる
			PRINTFORMW 「あら、その、ごめんなさい」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		SELECTCASE M_KOJO_K103_KANKEI()
		CASE 11,12,21,22
			;関係普通　女あなたのみ…？
			PRINTFORMW 「ちょっとちょっと、何入ってきてるのよ！」
		CASE 13,14,23,24
			;関係普通:不機嫌か怒ってる　女あなたのみ…？
			PRINTFORMW 「しれっと入ってきてんじゃないわよ！」
		CASE 31,32,61,62
			;関係思慕　女あなたのみ…？
			PRINTFORMW 「ちょっと、入ってこないで！」
		CASE 33,63
			;関係思慕:不機嫌　女あなたのみ…？
			PRINTFORMW 「なんで入ってこようとしてるの！」
		CASE 34,64
			;関係思慕:怒ってる　女あなたのみ…？
			PRINTFORMW 「でてけーーーー！！！」
		CASE 41,42,71,72,51,52
			;関係恋慕以上
			PRINTFORMW 「あ、%CALLNAME:MASTER%！？ あ、その、じゃ、なくって、出てって！」
		CASE 43,73,53
			;関係恋慕以上:不機嫌
			PRINTFORMW 「あ、%CALLNAME:MASTER%！？ 出て行ってよ、もう！」
		CASE 44,74,54
			;関係恋慕以上:怒ってる
			PRINTFORMW 「あ、%CALLNAME:MASTER%！？ は、早く出ていきなさいよ！！」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		PRINTFORM 「あら
		SIF ABL:親密 >= 5
			PRINTFORM %CALLNAME:MASTER%
		PRINTFORMW 、%M_KOJO_K103_AISATSU()%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		IF ARG:1 == 102
			PRINTFORMW 「あ、神綺様、それと%CALLNAME:MASTER%、%M_KOJO_K103_AISATSU()%\@ TIME <= CLOCK_TO_TIME(10, 0) ? "ございます" # \@」
		ELSEIF ARG:1 == 17
			PRINTFORMW 「あ、アリスと%CALLNAME:MASTER%、%M_KOJO_K103_AISATSU()%」
		ELSE
			PRINTFORMW 「あ、%CALLNAME:MASTER%と…%CALLNAME:(ARG:1)%？ …%M_KOJO_K103_AISATSU()%」
		ENDIF
		RETURN 1
	ENDIF
	;普通に遭遇した場合は時止め後処理をリセットする
	CALL M_KOJO_K103_RESETTW
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K103_2(ARG,ARG:1)
CALL MESSAGE_GOODMONING(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
			PRINTFORML
			PRINTFORML 「あら、おはよう%CALLNAME:MASTER%」
			PRINTFORM 「今日
			SELECTCASE TIME:5
			CASE 0,1
				PRINTFORMW はいい天気ね。 洗濯物がよく乾きそうだわ」
			CASE 2,3
				PRINTFORMW は曇ってるみたい。 雨が降らなければいいけど」
			CASE 4,5,6
				PRINTFORMW は雨ね。 読書でもしようかしら」
			CASE 7
				PRINTFORMW は霧が出てるみたい。 キノコがよく育ちそうね」
			CASE 8,9,10,11,12,13
				PRINTFORMW は雪みたいね…。 ちょっと寒いわ」
			ENDSELECT
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:恋慕
				PRINTFORML
				PRINTFORML 「あら、おはよう%CALLNAME:MASTER%%M_KOJO_K103_HEART()%」
				PRINTFORMW 「お邪魔させてもらってるわ」
				PRINTFORMW 「はいこれ、お洋服ね」
				PRINTFORMW 「今日もどこかに出かけるの？」
			ELSEIF TALENT:思慕
				PRINTFORML
				PRINTFORML 「あら、おはよう%CALLNAME:MASTER%」
				PRINTFORMW 「お邪魔させてもらってるわ」
			ELSE
				PRINTFORML
				PRINTFORML 「あら、おはよう%CALLNAME:MASTER%」
				PRINTFORMW 「掃除しようかと思ったのだけど」
			ENDIF
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		PRINTFORML 「あら、おはよう%CALLNAME:MASTER%%M_KOJO_K103_HEART(1)%」
		PRINTFORM 「今日
		SELECTCASE TIME:5
		CASE 0,1
			PRINTFORMW はいい天気ね。 洗濯物がよく乾きそうだわ」
		CASE 2,3
			PRINTFORMW は曇ってるみたい。 雨が降らなければいいけど」
		CASE 4,5,6
			PRINTFORMW は雨ね。 家でできることをしましょ」
		CASE 7
			PRINTFORMW は霧が出てるみたい。 キノコがよく育ちそうね」
		CASE 8,9,10,11,12,13
			PRINTFORMW は雪みたいね…。 ちょっと寒いわ」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		PRINTFORMW 「…すぅ……んぅ………すぅ……」
		PRINTFORMDL
		PRINTFORMDW 夢子は幸せそうな顔で寝息を立てている…
		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
			PRINTFORML
			PRINTFORMW 「…すぅ……んん……」
			PRINTFORMDL
			PRINTFORMDL 夢子は幸せそうな顔で寝息を立てている…
			PRINTFORMDW そっと頭を撫でてやると、夢子の目がぱちりと開いた
			PRINTFORML
			PRINTFORMW 「…あ、私寝ちゃったのね……」
			PRINTFORMW 「…おはよう、%CALLNAME:MASTER%」
			;寝起きに精液零れてくるのっていいよね
			IF EX:膣内精液 > 1000
				PRINTFORML
				PRINTFORMW そう言って夢子が起き上がろうとすると、膣から精液がごぽりと溢れ出てきた
				PRINTFORML
				PRINTFORMW 「やだ、もう…出し過ぎよ%CALLNAME:MASTER%ってば…」
			ELSEIF EX:膣内精液 > 500
				PRINTFORML
				PRINTFORMW そう言って夢子が起き上がろうとすると、膣から精液がとろりと出てきた
				PRINTFORML
				PRINTFORMW 「やだ、出てきちゃった…」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			PRINTFORMW 「…すぅ……んん……」
			PRINTFORMDL
			PRINTFORMDL 夢子は幸せそうな顔で寝息を立てている…
			PRINTFORMDW そっと頭を撫でてやると、夢子の目がぱちりと開いた
			PRINTFORML
			PRINTFORMW 「…あ、私寝ちゃったのね……」
			PRINTFORMW 「…おはよう、%CALLNAME:MASTER%」
			;寝起きに精液零れてくるのっていいよね
			IF EX:膣内精液 > 1000
				PRINTFORML
				PRINTFORMW そう言って夢子が起き上がろうとすると、膣から精液がごぽりと溢れ出てきた
				PRINTFORML
				PRINTFORMW 「やだ、もう…出し過ぎよ%CALLNAME:MASTER%ってば…」
			ELSEIF EX:膣内精液 > 500
				PRINTFORML
				PRINTFORMW そう言って夢子が起き上がろうとすると、膣から精液がとろりと出てきた
				PRINTFORML
				PRINTFORMW 「やだ、出てきちゃった…」
			ENDIF
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K103_3(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 「あふ……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		SELECTCASE M_KOJO_K103_RANDNR(10, 901)
		CASE 1
			PRINTFORML 「んー…えへへ………」
		CASE 2
			PRINTFORML 「すぅ………すぅ…」
		CASE 3
			PRINTFORML 「すぅ………むに……」
		CASE 4
			PRINTFORML 「すぅ……あ、それはだめ……」
		CASE 5
			PRINTFORML 「すぅ……ん…………すぅ…」
		CASE 6
			PRINTFORML 「すぅ……ん…ふふ……」
		CASE 7
			PRINTFORML 「すぅ……なぁにするのよ……すぅ…」
		CASE 8
			PRINTFORML 「すぅ………神綺様……」
		CASE 9
			PRINTFORML 「すぅ………むぐ……ふすー……」
		CASE 10
			PRINTFORML 「すぅ…………」
		ENDSELECT
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		PRINTFORML 「ん…もうダメ…げんか…い……」
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		PRINTFORMW 「…あら、%CALLNAME:MASTER%、%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
			PRINTFORML
			PRINTFORMW 「…あ、%CALLNAME:MASTER%ってばエッチな目で見てる」
			PRINTFORMW 「でも今日は眠いからだーめ、また明日ね%M_KOJO_K103_HEART(1)%」
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			PRINTFORMW 「…あら、%CALLNAME:MASTER%、何か用事？」
			PRINTFORMW 「ごめんなさいね、眠いからまた明日にしてもらえるかしら」
			PRINTFORMW
			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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORML
		PRINTFORML 「うー……もうダメ…げんかいー……」
		PRINTFORML 「ねむ……」
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		;その他関係なく会釈する。メイドなので。
		PRINTFORML 「あら、%CALLNAME:MASTER%、%M_KOJO_K103_AISATSU()%」
		PRINTFORMDL
		PRINTFORMDL 夢子はこちらにお辞儀した
	PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		;その他関係なく会釈する。メイドなので。
		PRINTFORML 「あら、%M_KOJO_K103_AISATSU()%」
		PRINTFORMDL
		PRINTFORMDL 夢子はこちらにお辞儀した
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他関係なく会釈する。メイドなので。
	PRINTFORML 「あら、%M_KOJO_K103_AISATSU()%…？」
	PRINTFORMDL
	PRINTFORMDL 夢子がこちらにお辞儀したような気がする
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;他者介入でムード変化
;==================================================
@M_KOJO_EVENT_K103_5(ARG,ARG:1)
;口上主はTARGET
;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
	;その他（キャラ指定なし
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		IF ARG == 102
			IF FIRSTTIME("神綺様の情事")
				PRINTFORML 「神綺様こちらにいらっしゃいまひゃぁ…！！？」
			ELSE
				PRINTFORML 「神綺様あのっ……！！？
			ENDIF
			RETURN 1
		ENDIF
		IF ARG == 17
			IF FIRSTTIME("アリスの情事")
				PRINTFORML 「アリスここにいっ…！！？」
			ELSE
				PRINTFORML 「アリスー……！！？」
			ENDIF
			RETURN 1
		ENDIF
		PRINTFORML 「あ、…え…？」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		IF ARG == 102
			;神綺の情事
			PRINTFORML 「わ、私も失礼しますっ……！！」
			RETURN 1
		ENDIF
		IF ARG == 17
			;アリスの情事
			PRINTFORML 「わ、私だってっ……！！」
			RETURN 1
		ENDIF
		PRINTFORML 「わ、私も混ぜなさいよ…！！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		IF ARG == 102
			;神綺の情事
			PRINTFORML 「し、失礼しましたっ……！！！」
			RETURN 1
		ENDIF
		IF ARG == 17
			;アリスの情事
			PRINTFORML 「ご、ごめんなさいねっ……！！？」
			RETURN 1
		ENDIF
		PRINTFORML 「お、お邪魔しましたっ……！！！」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		IF ARG == 102
			;神綺に見られた
			PRINTFORML 「し、神綺様っ……！！？」
			RETURN 1
		ENDIF
		IF ARG == 17
			;アリスに見られた
			PRINTFORML 「あ、アリスっ……！！？」
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		SIF ARG != 102 && ARG != 17
			PRINTFORML 「あっ…あんっ……いっ…今誰かいなかった…？ そう…？」
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 =1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		PRINTFORMW 「%CALLNAME:MASTER%…これはいったい何かしら」
		PRINTFORMDL
		PRINTFORMDL 目の前でパンツを広げられ、%CALLNAME:MASTER%は言い訳のしようも無かった
		PRINTFORMDL
		PRINTFORMW 「こんな布を集めてどうする気なのよ…」
		PRINTFORMDL
		PRINTFORMDW 神棚に捧げます、とはとても言えない…
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;押し倒した
;==================================================
@M_KOJO_EVENT_K103_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
			PRINTFORML
			IF !GETBIT(CFLAG:既成事実,1)
				;襲っちゃった(合意が無い)
				IF TCVAR:媚薬 || TCVAR:発情
					;興奮状態
					PRINTFORMDL ドンっ、という衝撃と共に、%CALLNAME:MASTER%は気が付けば夢子に組み敷かれていた
					PRINTFORMDL 夢子の息は荒く、顔は紅潮しており、何を考えているのか、情欲に揺れる瞳でこちらを見ている
					PRINTFORMDL
					PRINTFORMW 「…美味しそうなの」
					PRINTFORMDL
					PRINTFORMDW やっと夢子の口から出た言葉はそれだった。
					PRINTFORMDL
					PRINTFORML 「…ねぇ、%CALLNAME:MASTER%、私もう耐えられないの、気持ちよくなりたくて仕方ないの」
					PRINTFORMW 「…%CALLNAME:MASTER%も、私の事そういう目で見てたわよね……？」
				ELSE
					PRINTFORMDL 夢子がこちらにのしかかってきたと思うや否や、%CALLNAME:MASTER%は気が付けば夢子に組み敷かれていた
					PRINTFORMDL 夢子は何を考えているのか、揺れる瞳でこちらを見ている
					PRINTFORMDL
					PRINTFORMW 「…なんで、手を出してくれないの？」
					PRINTFORMDL
					PRINTFORMDW やっと夢子の口から出た言葉はそれだった。
					PRINTFORMDL
					PRINTFORMW 「…私って、そんなに魅力が無い？」
					PRINTFORMDL
					PRINTFORMDW そんなことは無い、と答えると、夢子は胸元を緩めて見せつけるように谷間を露出する。
					PRINTFORMDL
					PRINTFORML 「…%CALLNAME:MASTER%、私不器用だからこういうのの誘い方ってわからないの」
					PRINTFORMW 「……ねぇ…しましょ…？%M_KOJO_K103_HEART(1)%」
				ENDIF
			ELSE
				;合意有り
				IF TCVAR:媚薬 || TCVAR:発情
					;興奮状態
					PRINTFORMDL ドンっ、という衝撃と共に、%CALLNAME:MASTER%は気が付けば夢子に組み敷かれていた
					PRINTFORMDL 夢子の息は荒く、顔は紅潮しており、何を考えているのか、情欲に揺れる瞳でこちらを見ている
					PRINTFORMDL
					PRINTFORMW 「…ねぇ、%CALLNAME:MASTER%、頂戴…！！%M_KOJO_K103_HEART(1)%」
				ELSE
					PRINTFORMDL 夢子がゆっくりとこちらにのしかかってきて、%CALLNAME:MASTER%は夢子の下に組み敷かれる体勢になった
					PRINTFORMDL
					PRINTFORMW 「……もう我慢できないの………ねぇ…しましょ…？%M_KOJO_K103_HEART(1)%」
				ENDIF
			ENDIF
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			IF !GETBIT(CFLAG:既成事実,1)
				;襲っちゃった(合意が無い)
				IF TCVAR:媚薬 || TCVAR:発情
					;興奮状態
					PRINTFORMDL ドンっ、という衝撃と共に、%CALLNAME:MASTER%は気が付けば夢子に組み敷かれていた
					PRINTFORMDL 夢子の息は荒く、顔は紅潮しており、何を考えているのか、情欲に揺れる瞳でこちらを見ている
					PRINTFORMDL
					PRINTFORMW 「…美味しそうなの」
					PRINTFORMDL
					PRINTFORMDW やっと夢子の口から出た言葉はそれだった。
					PRINTFORMDL
					PRINTFORML 「…ねぇ、%CALLNAME:MASTER%、私もう耐えられないの、気持ちよくなりたくて仕方ないの」
					PRINTFORML 「…%CALLNAME:MASTER%のここ、とっても美味しそう……%M_KOJO_K103_HEART(1)%」
					PRINTFORMDL
					PRINTFORMDW 夢子は%CALLNAME:MASTER%の張り詰めた股間を触りながら、舌舐めずりをする
					PRINTFORMDL
					PRINTFORMW 「…%CALLNAME:MASTER%も、私の事そういう目で見てたわよね……？%M_KOJO_K103_HEART(1)%」
				ELSE
					PRINTFORMDL 夢子がこちらにのしかかってきたと思うや否や、%CALLNAME:MASTER%は気が付けば夢子に組み敷かれていた
					PRINTFORMDL 夢子は何を考えているのか、揺れる瞳でこちらを見ている
					PRINTFORMDL
					PRINTFORMW 「…なんで、手を出してくれないの？」
					PRINTFORMDL
					PRINTFORMDW やっと夢子の口から出た言葉はそれだった。
					PRINTFORMDL
					PRINTFORMW 「…私って、そんなに魅力が無い？」
					PRINTFORMDL
					PRINTFORMDW そんなことは無い、と答えると、夢子は胸元を緩めて見せつけるように谷間を露出する。
					PRINTFORMDL
					PRINTFORML 「…%CALLNAME:MASTER%、私不器用だからこういうのの誘い方ってわからないの」
					PRINTFORMW 「……ねぇ…しましょ…？%M_KOJO_K103_HEART(1)%」
				ENDIF
			ELSE
				;合意有り
				IF TCVAR:媚薬 || TCVAR:発情
					;興奮状態
					PRINTFORMDL ドンっ、という衝撃と共に、%CALLNAME:MASTER%は気が付けば夢子に組み敷かれていた
					PRINTFORMDL 夢子の息は荒く、顔は紅潮しており、何を考えているのか、情欲に揺れる瞳でこちらを見ている
					PRINTFORMDL
					PRINTFORMW 「…ねぇ、%CALLNAME:MASTER%、頂戴…！！%M_KOJO_K103_HEART(1)%」
				ELSE
					PRINTFORMDL 夢子がゆっくりとこちらにのしかかってきて、%CALLNAME:MASTER%は夢子の下に組み敷かれる体勢になった
					PRINTFORMDL
					PRINTFORMW 「……もう我慢できないの………ねぇ…しましょ…？%M_KOJO_K103_HEART(1)%」
				ENDIF
			ENDIF
			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
			PRINTFORML
			IF !TALENT:恋慕
				PRINTFORMW 「そ、…そうよね、こんなの良くないわよね、…うん……」
			ELSE
				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
			PRINTFORMW 「だぁーめ%M_KOJO_K103_HEART(1)% まだ、まだまだ足りないわ%M_KOJO_K103_HEART(1)%」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			IF TCVAR:媚薬 || TCVAR:発情
				PRINTFORMW 「だぁーめ%M_KOJO_K103_HEART(1)% 逃がさないんだから%M_KOJO_K103_HEART(1)%」
			ELSE
				PRINTFORMW 「だぁーめ%M_KOJO_K103_HEART(1)% 私まだ満足してないの%M_KOJO_K103_HEART(1)%」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		SELECTCASE M_KOJO_K103_KANKEI()
		CASE 11,12,21,22
			;関係普通
			PRINTFORMW 「ちょっとちょっと、何入ってきてるのよ！」
		CASE 13,14,23,24
			;関係普通:不機嫌か怒ってる
			PRINTFORMW 「しれっと入ってきてんじゃないわよ！」
		CASE 31,32,61,62
			;関係思慕
			PRINTFORMW 「ちょっと、入ってこないで！」
		CASE 33,63
			;関係思慕:不機嫌
			PRINTFORMW 「なんで入ってこようとしてるの！」
		CASE 34,64
			;関係思慕:怒ってる
			PRINTFORMW 「でてけーーーー！！！」
		CASE 41,42,71,72,51,52
			;関係恋慕以上
			PRINTFORMW 「あ、%CALLNAME:MASTER%！？ あ、その、じゃ、なくって、出てって！」
		CASE 43,73,53
			;関係恋慕以上:不機嫌
			PRINTFORMW 「あ、%CALLNAME:MASTER%！？ 出て行ってよ、もう！」
		CASE 44,74,54
			;関係恋慕以上:怒ってる
			PRINTFORMW 「あ、%CALLNAME:MASTER%！？ は、早く出ていきなさいよ！！」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		SELECTCASE M_KOJO_K103_KANKEI()
		CASE 11,12,21,22
			;関係普通
			PRINTFORMW 「ちょ…ちょっとちょっと、何入ってきてるのよ…」
		CASE 13,14,23,24
			;関係普通:不機嫌か怒ってる
			PRINTFORMW 「しれっと入ってきてんじゃないわよ…」
		CASE 31,32,61,62
			;関係思慕
			PRINTFORMW 「……………」
		CASE 33,63
			;関係思慕:不機嫌
			PRINTFORMW 「…………………」
		CASE 34,64
			;関係思慕:怒ってる
			PRINTFORMW 「…………なんで私が入ってる時に来るのよぅ…」
		CASE 41,42,71,72,51,52
			;関係恋慕以上
			PRINTFORMW 「……%CALLNAME:MASTER%？ その…まぁ、うん……」
		CASE 43,73,53
			;関係恋慕以上:不機嫌
			PRINTFORMW 「…あ…%CALLNAME:MASTER%？ その…まぁ、うん……」
		CASE 44,74,54
			;関係恋慕以上:怒ってる
			PRINTFORMW 「あ、%CALLNAME:MASTER%！？ ちょ……もう………」
		ENDSELECT
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K103_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_K103_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
		PRINTFORML
		SELECTCASE M_KOJO_K103_RANDNR(5, 902)
		CASE 1
			PRINTFORMW 「さぁ人形たち、こっちにいらっしゃい！」
		CASE 2
			PRINTFORMW 「掃除してると、自分がメイドだって自覚できるわね」
		CASE 3
			PRINTFORMW 「あ、あれも片付けなくちゃ」
		CASE 4
			PRINTFORMW 「ゴミはこっちにまとめて………っと」
		CASE 5
			PRINTFORMW 「ふぅ、ここはこんなもんかしらね」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		PRINTFORMW 「はい、今日のお掃除はおしまい！ 紅茶でも用意しましょ」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML
		PRINTFORMW 「あむっ……むぐむぐ……うん、美味しいじゃない」
		PRINTFORMW 「あ、食べちゃダメだった？」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_EVENT_K103_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
		PRINTFORML
		IF TALENT:恋慕
			PRINTFORMW 「…%CALLNAME:MASTER%……%CALLNAME:MASTER%%M_KOJO_K103_HEART(1)%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「そ…その……気持ちよかったわよ、%CALLNAME:MASTER%%M_KOJO_K103_HEART(1)%」
		ELSEIF TALENT:愛欲
			PRINTFORMW 「…%CALLNAME:MASTER%とのエッチがどんどん癖になってる気がするわ…%M_KOJO_K103_HEART(1)%」
		ELSEIF TALENT:セフレ
			PRINTFORMW 「…はぁ……ぁ…気持ちよかった…%M_KOJO_K103_HEART(1)%」
		ELSE
			PRINTFORMW 「…ええと、その、…ね？ 気持ちよかった…？」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			PRINTFORMW 「あ、溢れてきちゃった…もう…たくさん出すんだから…」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			PRINTFORMW 「あ、やだ私こんなに……」
			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
		CALL M_KOJO_K103_BONYU_SET ;母乳体質取得判定
	ENDIF
ENDIF
RETURN 1

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

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

IF LOCAL
	PRINTFORML
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		時止め後状態 = 1
		PRINTFORMW 「きゃ…………ぇ、なんなの…？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		時止め後状態 = 2
		PRINTFORMW 「んっ…ふ……ぐっ………？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		時止め後状態 = 3
		PRINTFORMW 「………ん………？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			PRINTFORMW 「んぐっ……げほっ…けほっ…………ぇ…なぁに、一体…何か飲んじゃった…」
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			PRINTFORMW 「んぶっ……べぇ…………これって…もしかして…うえ……ぺっ……」
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			PRINTFORMW 「んぶっ………うえ…………」
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			PRINTFORMW 「んぐっ……けほっ…けほっ………なぁに、何か飲んじゃった…この味って…まさかね…」
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			PRINTFORMW 「んぶっ……げほっ…げほっ………べぇ…………これって……うぇ………ぺっ……」
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			PRINTFORMW 「んぐっ……けほっ…けほっ………なぁに、何か飲んじゃった…喉に引っかかる…この味って…まさかね…」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			PRINTFORMW 「やだ、ちょっと何、顔…べとべと……」
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			PRINTFORMW 「やだ、ちょっと何、顔…べとべと…………ぺろ……でも、これ…どこかで…」
		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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW 「痛っ……た…………何……？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
			PRINTFORMW 「うそ、これって……いや、そんなはずないわ…そんなはず…」
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
			PRINTFORMW 「うそ、これって……いや、そんなはずないわ…そんなはず……でも、もしそうだとしても、今日はピルを飲んだはずよね…」
		;処女膣内射精
		ELSEIF ARG:1 == 3
			PRINTFORMW 「え……なぁに…これ………べとべとしてる…」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		;時止め邂逅判定
		TCVAR:103:352 = CFLAG:MASTER:現在位置
		CALL M_KOJO_K103_PREVTW(時止め後状態)
		時止め後状態 = 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K103_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORML
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「ま、まだ子供作ろうとか、そんな話してないでしょ…ね…？」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「だ、だめよ、やっぱりだめ」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「だめって言ってるじゃない！！」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「じゃあ…その………あ、危なくない日だったら…いいわよ？」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「わかった……全部、全部膣内に出していいわ。 私も、%CALLNAME:MASTER%の全部が欲しいの…%M_KOJO_K103_HEART(1)%」
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K103_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		PRINTFORML 「ほんと！？ 善は急げね！ 神綺様のことはアリスに任せて、それから…」
		PRINTFORML
		PRINTFORMDW いつでもこちらに来れるように荷造りの準備は既に済ませてあったのか、夢子がこちらに来たのは本当に早かった。
		PRINTFORML
		PRINTFORMW 「じゃあ%CALLNAME:MASTER%！ これからもよろしくね！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		PRINTFORMW 「それは…残念……あ、でもでも、住み込んでもいいって許可が出したくなったら言ってね！！」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K103_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K103_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「はぁ……私、どうしちゃったのかしら…」
		PRINTFORML
		PRINTFORMDL 夢子は嘆息する。 それというのも、最近の自分が何やらおかしいことに気が付いてしまったからなのだ
		PRINTFORML
		PRINTFORML （%CALLNAME:MASTER%に会って、一緒にご飯食べて、あ、お買い物もいいかも……ああ、お弁当作ってあげるためにも料理を学ばないとなぁ…）
		PRINTFORML
		PRINTFORMDL そう、自分の思考の中に、必ずと言っていいほどの頻度で%CALLNAME:MASTER%が出てくるのだ
		PRINTFORML
		PRINTFORML （はぁ………これはもう、そういうことよね…）
		PRINTFORML （……魔界人の私がこっちで病気に罹ることなんてないと思っていたけど、これはまた厄介な病に罹っちゃたわねぇ…）
		PRINTFORML
		PRINTFORMDL 会いたい。 話がしたい。 傍にいたい。 触れていたい。 …私を見てもらいたい
		PRINTFORMDL 悶々としながらも、明日からの自分は今日とはまた違った自分なのだろうという確証を、夢子は得ていた…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		PRINTFORMDL カチャカチャと夕飯の食器を洗いながら、夢子はふと、明日%CALLNAME:MASTER%に会ったら何をしようかとぼんやり考えている自分に気が付いた
		PRINTFORML
		PRINTFORMW （いやね、全く…あの人のこと考えたって、明日会えるのかもわかんないのに…）
		PRINTFORML
		PRINTFORMDW そう考えてから、自分が『会えるといいな』を前提に考えていることに気が付いて、手が止まる
		PRINTFORML
		PRINTFORMW （………思えば、随分親しくなったものだわ……%CALLNAME:MASTER%の何がそうさせるのかしらね…）
		PRINTFORML
		PRINTFORMDL 再び食器を洗う手を動かし、夢子は鼻歌を歌い始める
		PRINTFORMDW 彼女は上機嫌に、残りの家事を片付け始めた…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K103_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_K103_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K103_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_K103_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_K103_26(ARG,ARG:1)

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

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K103_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 「ねえ%CALLNAME:MASTER%、今、暇してる？ もしよかったらデートでも…どうかなー…って…」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「ほんと！？ どこに行きましょうかっ%M_KOJO_K103_HEART(1)%」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「あ、…そ、そう？ じゃあ仕方ないわね…あはは…」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「ねえ%CALLNAME:MASTER%、部屋に来ない？」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「ん、じゃあ入って入ってっ%M_KOJO_K103_HEART(1)%」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「えー…？ ……だめ？%M_KOJO_K103_HEART(1)% ………だめかー…」
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K103_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_K103_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの度胸で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		PRINTFORML 「もうっ！ あり得ない！！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[臆病]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORML
		PRINTFORML 「はぁ……ぁ……ごめん、もう疲れちゃった…%CALLNAME:MASTER%は満足できた？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML
		PRINTFORML 「ん……とっても気持ちよかったわ…%CALLNAME:MASTER%%M_KOJO_K103_HEART(1)%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORML
		PRINTFORML 「あ、ちょっと……もう…%M_KOJO_K103_HEART(1)%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML
		PRINTFORML 「ん、まだまだしてあげるね…もっと…もっと……%M_KOJO_K103_HEART(1)%」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;今日会っていない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG
		;時止めフラグ初期化
		CALL M_KOJO_K103_RESETTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今日会っている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		;時止めフラグ初期化
		CALL M_KOJO_K103_RESETTW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

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

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

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

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

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

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_K103_LOST_VIRGIN_STOP
;-------------------------------------------------
PRINTFORML
RETURN 1

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

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

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