code:
;-------------------------------------------------
; eraTheWorld proto4.23用 マミゾウ口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;以前書いてた命蓮寺マミゾウ口上を移植しようと思ったけれど、色々齟齬が出まくるので、以前のモノを一部利用しつつ新規として、書き直してみた
;-------------------------------------------------
;※※※※※※他者による修正、加筆、改変についての但し書き※※※※※※
;前提としてオリジナル作者以外が手を入れる場合は、オリジナル作者の許可を求めること
;オリジナル作者とコンタクトが取れない場合には以下の但し書きに従ってUPできるかどうか判断してください。

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

;**** Copyright ****************************************************************
;本口上の修正について（許可する行為のみ残してください）
;【誤字・脱字修正】【分岐条件・erb構文に関する修正】【本体Ver・Rev変更対応】【フラグの管理・修正】

;本口上の加筆・改変について（許可する行為のみ残してください）
;

;本口上に対するメンテナンス禁止時限について（設定しない場合、未設定のみ残してください）
;【未設定】

;本口上に対するその他但し書き
;【 】【 】
;******************************************************************************
;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;CFLAG:1690,・bit0初顔合わせが人里だった場合、・bit1初顔あわせが人里以外だった場合、・bit2お招き部屋宿泊時添い寝起床と通常起床が同時発生しないように、・bit3立ち止まり後の遭遇抑制・bit4薬入りお茶がバレた場合
;CFLAG:1691,・bit0カウンターでＡ責めされた事がある
[SKIPSTART]
IF 陥落状態() >= 4
ELSEIF 陥落状態() >= 2
ELSEIF 陥落状態() == 1
ELSE
ENDIF
[SKIPEND]
;
;
;******************************************************************************

;PS 寅の人
;オリジナル作者と連絡が取れない場合、上記Copyrightに従い加筆改変を行って下さい
;また本体処理・他口上処理等に干渉する異常処理がある場合でオリジナル作者による修正が
;行われない・もしくは困難な場合、Copyrightに関わらず有志による修正を許可します
;その際は元処理を削除せずコメントアウトし修正処理を挿入して下さい

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

;RESULTS = _TEST_
SIF FLAG:なりきり
	RETURN 0

;と設定すると、"EVENT"系イベントだと
;M_KOJO_TEST_EVENT_K69_1() とかで呼ばれる…はず。（未テスト機能）
IF 陥落状態() >= 4
	MASTERNAME:69 = おまえ様
ELSEIF !GETBIT(TALENT:MASTER:性別,0)
	IF NAME:MASTER != "あなた"
		MASTERNAME:69 = %NAME:MASTER%どの
	ELSE
		MASTERNAME:69 = おぬし
	ENDIF
;非男で名前が汎用でない場合
ELSEIF NAME:MASTER != "あなた"
	MASTERNAME:69 = %NAME:MASTER%
;非男で名前が汎用の場合
ELSE
	;あなたの体格でも変更
	;小さい時
	IF TALENT:MASTER:体型 < 0
		MASTERNAME:69 = お嬢ちゃん
	;普通の時
	ELSEIF TALENT:MASTER:体型 == 0
		MASTERNAME:69 = 嬢ちゃん
	;大きいとき
	ELSE
		MASTERNAME:69 = お嬢
	ENDIF
ENDIF
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K69

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

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K69
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;マミゾウさんは呼び方が特殊
;男の場合
IF !GETBIT(TALENT:MASTER:性別,0)
	;名前が汎用でない場合
	IF NAME:MASTER != "あなた"
		MASTERNAME:69 = %NAME:MASTER%どの
	;名前が汎用の場合
	ELSE
		MASTERNAME:69 = おぬし
	ENDIF
;非男で名前が汎用でない場合
ELSEIF NAME:MASTER != "あなた"
	MASTERNAME:69 = %NAME:MASTER%
;非男で名前が汎用の場合
ELSE
	;あなたの体格でも変更
	;小さい時
	IF TALENT:MASTER:体型 < 0
		MASTERNAME:69 = 嬢ちゃん
	;普通の時
	ELSEIF TALENT:MASTER:体型 == 0
		MASTERNAME:69 = お嬢ちゃん
	;大きいとき
	ELSE
		MASTERNAME:69 = お嬢
	ENDIF
ENDIF

;メインマップで遭遇
IF GET_MAPID(CFLAG:MASTER:現在位置) == MAIN_MAP
	PRINTFORML 「……ふむ、なにやら面白いモノがおると聞いてきたんじゃが」
	PRINTFORML 不意に背後から掛けられた声に振り返る%CALLNAME:MASTER%
	PRINTFORML 「おぬし何者じゃ？　胡散臭い匂いがぷんぷんするのう」
	IF MAIN_MAP == 2
		PRINTFORMW そう呟くのは丸眼鏡に小さな葉っぱの髪飾りをつけた長髪の女性
		PRINTFORML なんとなく人とは思えない威圧感に、とりあえず頭を下げる
	ELSE
		PRINTFORMW そう呟くのは、丸眼鏡に大きな葉っぱを折った帽子を被る妙齢の女性
		PRINTFORML 一抱えもある巨大な尻尾を揺らすその女性に、とりあえず会釈する
	ENDIF
	PRINTFORML 「ふむ、礼儀は心得ておるようじゃの。儂は二ッ岩マミゾウ」
	PRINTFORM マミゾウの言葉に、
	IF NAME:MASTER != "あなた"
		PRINTFORML 自分も名乗りを返す%CALLNAME:MASTER%
	ELSE
		PRINTFORML 名乗るのは危険に思えて、%CALLNAME:MASTER%は言葉を濁した
	ENDIF
	IF NAME:MASTER != "あなた"
		PRINTFORMW 「む、%MASTERNAME:69%か、覚えておこうかの」
	ELSE
		PRINTFORMW 「なんじゃ名前も名乗らんのか、失礼じゃな、%MASTERNAME:69%は」
	ENDIF
	;神社
	IF MAIN_MAP == 0
		PRINTFORML 「しかしまあ、良く霊夢が居候をおく事に決めたもんじゃ」
		PRINTFORML マミゾウの言葉に、頷きを返して苦笑を向けられた
		SETBIT CFLAG:1690,1
	;命蓮寺
	ELSEIF MAIN_MAP == 1
		PRINTFORML 「よくもまあ、こんな抹香臭いところに住むことにしたもんじゃのう」
		PRINTFORML 白蓮に怒られそうなことを笑いながら言うマミゾウ
		SETBIT CFLAG:1690,1
	;人里
	ELSEIF MAIN_MAP == 2
		PRINTFORML 「ま、余り派手なことはせんようにな」
		PRINTFORML とりあえず、マミゾウの言葉には頷きを返しておいた
		SETBIT CFLAG:1690,0
	;紅魔館
	ELSEIF MAIN_MAP == 3
		PRINTFORML 「洋館に住む気分はどうじゃ？　ココのベッドは寝心地が良さそうじゃの」
		PRINTFORML それだけは言えてると、%CALLNAME:MASTER%はマミゾウの言葉に首肯する
		SETBIT CFLAG:1690,1
	;竹林
	ELSEIF MAIN_MAP == 4
		PRINTFORML 「ココなら筍取り放題じゃのう、今度馳走せい」
		PRINTFORML にこやかな表情に、それもいいかと考える%CALLNAME:MASTER%
		SETBIT CFLAG:1690,1
	;地底
	ELSEIF MAIN_MAP == 9
		PRINTFORML 「こんなところに引きこもらんと、お天道様のあるところに住めば良かろうに」
		PRINTFORML 住めば都と言う言葉を返し、住民に聞かれていないか周囲を確認する
		SETBIT CFLAG:1690,1
	;現状有り得ないけど一応
	ELSE
		PRINTFORML 「ふむ、なかなか面白いところに住んでおるようじゃの」
		PRINTFORML マミゾウの言葉に、苦笑を浮かべて頷きを返す
		SETBIT CFLAG:1690,1
	ENDIF
	PRINTFORMW 「まあ、今後ともよろしくたのむぞい」
;メインマップ以外で遭遇
ELSE
	PRINTFORML 「ん？　そこの若いのちょっと待て」
	PRINTFORML 不意に背後から声をかけられて思わず立ち止まる%CALLNAME:MASTER%
	PRINTFORML 「なにやら怪しげな気配をぷんぷんさせておるのう、おぬし何者じゃ？」
	PRINTFORMW そんなことを問いかけてくる、丸眼鏡に\@ GET_MAPID(CFLAG:MASTER:現在位置) == 2 ? 小さな葉っぱの髪飾りをつけた長髪 # 大きな葉っぱを折った帽子を被る尻尾を生やした妙齢 \@の女性にしばし見とれる
	PRINTFORML 時止めで少し遊ぼうかと思った瞬間、女性の眼鏡がきらりと光った気がした
	PRINTFORML 「どういう能力か知らんが、\@ GET_MAPID(CFLAG:MASTER:現在位置) == 2 ? 里の中で # 初対面の相手に \@使うのは感心せんのう」
	PRINTFORML 「怪しい輩がおると、博麗の巫女にでも伝えようか？」
	PRINTFORMW その言葉に、というよりは、その言葉を口にする女性の迫力に、冷や汗が浮かぶ
	PRINTFORML 「ああ、儂の名は二ッ岩のマミゾウじゃ、でおぬしは？」
	PRINTFORM その問いかけに、
	IF NAME:MASTER != "あなた"
		PRINTFORML 自分も名乗りを返す%CALLNAME:MASTER%
	ELSE
		PRINTFORML 名乗るのは危険に思えて、%CALLNAME:MASTER%は言葉を濁した
	ENDIF
	IF NAME:MASTER != "あなた"
		PRINTFORML 「む、%MASTERNAME:69%か、覚えておこうかの」
	ELSE
		PRINTFORML 「なんじゃ名前も名乗らんのか、失礼じゃな、%MASTERNAME:69%は」
	ENDIF
	PRINTFORML 「まあ、よい。あまり怪しいそぶりはせんようにの」
	PRINTFORMW それだけを口にするマミゾウに、頷きを返した
	IF GET_MAPID(CFLAG:MASTER:現在位置) == 2
		SETBIT CFLAG:1690,0
	ELSE
		SETBIT CFLAG:1690,1
	ENDIF
ENDIF

RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K69_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORML 「ほい、いただきじゃ」
	PRINTFORML 不意打ちの口づけに、%CALLNAME:MASTER%は思わず凍り付く
	PRINTFORML 「なんじゃ、その豆鉄砲食らったような顔は」
	PRINTFORML 「ああ、そうか儂なんぞの唇は、気に喰わんかったか」
	PRINTFORML むくれるマミゾウに、慌ててそんな事は無いと告げる
	PRINTFORML 「ふん、驚いて固まっておったくせに」
	PRINTFORML 嬉しすぎて、一瞬動けなかった
	PRINTFORML そう告げた途端、今まで見たことの無い含羞の笑みを浮かべるマミゾウ
	PRINTFORML 「ふ、ふふ、そうか、そう言ってくれると嬉しいのう」
	PRINTFORML 「ふふ、ふふふふ……」
	PRINTFORML 上機嫌になったマミゾウが、こちらの腕に自身のそれをからめてきた
	PRINTFORML
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K69_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
		IF FIRSTTIME("SPEV2",1)
			PRINTFORML 「のう、ちょっとまってくれんか？」
			PRINTFORML デートからの帰りがけ、不意に呼び止められて、%CALLNAME:MASTER%は立ち止まった
			PRINTFORML 「儂の逸話どこまで知っておる？　マミゾウではなく団三郎としてのじゃ」
			PRINTFORMW 唐突な問いかけに、有名な話をいくつか上げてみる
			PRINTFORML 「その話の中での、儂自身の逸話は一つだけなんじゃ。男に捕まって説教されたと言うの」
			PRINTFORML 興味深い話に、ただしばらくマミゾウの話を聞く
			PRINTFORML 「儂はの、佐渡島のタヌキの総領としては三代目なんじゃ」
			PRINTFORMW 「ほとんどの逸話は、初代の親父様と二代目の人間の旦那様が残したものなんじゃ」
			PRINTFORML 「まあ、旦那様が人間じゃという話まで含めると長くなるんで割愛するがの」
			PRINTFORML そう言って懐かしげな表情を浮かべるマミゾウに、少しいらだちが湧く
			PRINTFORML 「とにかく、儂にとっての一番は旦那様で覆ることはない、ないんじゃが」
			PRINTFORMW 珍しく恥ずかしげに頬を朱に染めて見つめてくるマミゾウ
			PRINTFORML 「%MASTERNAME:69%の隣にいたいと思うておるんじゃ」
			PRINTFORML 「儂の中では二番にしか出来ん」
			PRINTFORML 「なのに、それでも傍にいて欲しいなど、たわぶれごとにもほどがあるがの」
			PRINTFORMW 「のう、儂の気持ちは迷惑かの？」
		ELSE
			PRINTFORML 「%MASTERNAME:69%は、儂の気持ちをわかってて、こうして連れ出しておるのか？」
			PRINTFORML ふと足を止めたマミゾウが、不機嫌そうに唇をとがらせながら見つめてくる
			PRINTFORML 「儂は%MASTERNAME:69%が好きじゃ。ずっと隣にいてほしいとおもうとる」
			PRINTFORMW 「前は、そんな相手は望んでおらんと言うておったの」
			PRINTFORML 「なら、どうしてこんな風に連れ出すんじゃ？　儂のことは嫌いじゃないのか」
			PRINTFORML マミゾウの言葉に、そもそも嫌いならデートに誘う筈がないと答える%CALLNAME:MASTER%
			PRINTFORML 「……そうやって、人に期待を持たせて楽しいのかのう」
			PRINTFORMW 「のう、いい加減はっきりさせんか？」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF FIRSTTIME("SPEV2",1)
			PRINTFORML 別に何番目だろうと、自分が生きている間独占できればそれでいいと返す%CALLNAME:MASTER%
			PRINTFORML あっけにとられた表情で見つめてくるマミゾウが、くっくっと喉を鳴らして笑い始める
			PRINTFORML 「くくっ、そう、そうじゃの、ははは、そういう%MASTERNAME:69%じゃからこそ惹かれたんじゃ」
			PRINTFORMW そう言って嬉しそうな表情ですり寄ってくるマミゾウ
		ELSE
			PRINTFORML そうだなと、呟く%CALLNAME:MASTER%に、マミゾウが目の色を変えた
			PRINTFORML 「それは、可ということで良いんじゃな？」
			PRINTFORML 念を押してくるマミゾウに、苦笑と共に頷きを返す%CALLNAME:MASTER%
			PRINTFORMW とたんに、マミゾウが今まで見たことのない柔らかな微笑みを向けてきた
		ENDIF
		PRINTFORML 「ふふ、人生で二人目の旦那様を得られるとは、思ってもみなかったのう」
		MASTERNAME:69 = おまえ様
		PRINTFORML 「これからよろしくの、%MASTERNAME:69%」
		PRINTFORMW 今までと違う呼び方に、本当に恋人になれたのだと実感できて、自然と笑みが浮かんだ
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FIRSTTIME("SPEV2")
			PRINTFORML 迷惑ではないが、受け容れるつもりはない、そう返す%CALLNAME:MASTER%に、マミゾウは口元をゆがめる
			PRINTFORML 「二番煎じなぞ、受け容れられんにきまっておるわの」
			PRINTFORMW そんなマミゾウの勘違いに、%CALLNAME:MASTER%は首を横に振る
			PRINTFORML 不思議そうに見つめてくるマミゾウに、たんにそんな相手を望んでいないだけだと答える
			PRINTFORML 「……そうか、それはすまんかったの」
			PRINTFORMW 唇をとがらせてむくれたマミゾウが、それから深々とため息をついた
		ELSE
			PRINTFORML マミゾウの言葉に、はっきりさせては面白みがないと返す%CALLNAME:MASTER%
			PRINTFORML 「…………この」
			PRINTFORMW 肩を震わせて、何か言いかけるマミゾウの目元に、しずくがたまるのが見えた
			PRINTFORML 「もうよい、……じゃが、儂は諦めんからの」
			PRINTFORMW 「もし、また言われるのがイヤなら、他に女を作るか、儂なんぞ誘うでないわ」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K69_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 陥落状態() >= 4
			PRINTFORML 「ふふ、今日も楽しかったぞい、まったく%MASTERNAME:69%は最高じゃの」
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「ふむ、なかなか面白かったのう、また行きたいもんじゃ」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「ん、100点満点中の65点と言ったところかの、もっと精進せい」
		ELSE
			PRINTFORML 「おつかれさん」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「ふふ、儂も少し大人げなかったかの」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「ふむ、少しは女心というものをわかっているようだの」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「……全く、あんなことをしておいてでえとに誘えるもんかの」
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K69_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF GETBIT(CFLAG:1690,3)
	LOCAL = 0
	SETBIT CFLAG:1690,3
ENDIF
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;特殊
	IF (ARG == 1 || ARG == 2 || ARG == 6) && (GETBIT(CFLAG:1690,0) || GETBIT(CFLAG:1690,1))
		;初遭遇が人里かつ、人里以外ではまだあってない
		IF GETBIT(CFLAG:1690,0) && (GET_MAPID(CFLAG:MASTER:現在位置) != 2)
			PRINTFORML 「お、%MASTERNAME:69%ではないか」
			PRINTFORML 気安げに声をかけてきた妖怪に、小首をかしげる%CALLNAME:MASTER%
			PRINTFORML 大きな葉っぱの帽子に太い尻尾を揺らす、丸眼鏡をかけた妙齢の妖怪は初対面の筈
			PRINTFORML 「なんじゃ、その顔は？　……ああ、そういえばこの姿であうのはハジメテかの」
			PRINTFORML 呟くが早いか、不意に煙が立ち上がり、マミゾウが姿を現す
			PRINTFORML 「ま、こういうことじゃ」
			PRINTFORML それだけを口にして、マミゾウがまた先ほどの姿へと戻った
			CLEARBIT CFLAG:1690,0
		;初遭遇が人里以外かつ、人里ではまだあってない
		ELSEIF GETBIT(CFLAG:1690,1) && (GET_MAPID(CFLAG:MASTER:現在位置) == 2)
			PRINTFORML 「お、%MASTERNAME:69%じゃの、こんなところで会うとは奇遇じゃな」
			PRINTFORML 長髪に葉っぱのアクセサリーをつけた、丸眼鏡をかけた妙齢の女性に声をかけられ戸惑う%CALLNAME:MASTER%
			PRINTFORML 「……なんじゃ、その顔は？　ああ、こっちの姿は見せておらなんだの」
			PRINTFORML 呟くと同時、器用に空中前転し、一瞬だけ妖怪姿のマミゾウへと変化した
			PRINTFORML 「とまあ、こういうことじゃよ。ここでは、人に紛れた方が良いのでな」
			PRINTFORML 着地しながら平然と呟くマミゾウに、そう言うものかと受け容れる%CALLNAME:MASTER%だった
			CLEARBIT CFLAG:1690,1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF 陥落状態() >= 4
			;初回
			IF FIRSTTIME("EV1K")
				PRINTFORML 「%MASTERNAME:69%、待っておったぞ」
				PRINTFORML 言うが早いかするすると身を寄せてそのまま、抱きついてくるマミゾウ
				PRINTFORML 「何を照れておる、恋人同士じゃ、これくらい我慢せえ」
				PRINTFORML 嬉しそうに笑うマミゾウに、小さくため息をつく
				PRINTFORML 「なんじゃ、そのため息は？」
				PRINTFORML マミゾウが可愛くて見とれてしまった
				PRINTFORML そう呟いた瞬間、顔を真っ赤にしたマミゾウが、慌ててそっぽを向いた
				PRINTFORML 「恥ずかしいことを言うでない、このバカモンが」
			ELSE
				PRINTFORML 「おお、待っておったぞ、%MASTERNAME:69%」
				PRINTFORML 言うが早いか、隣に来て腕を組んでくるマミゾウ
				PRINTFORML 「ふふん、どうじゃ、恋人の温もりという奴は」
				PRINTFORML 素直に嬉しいと告げると、急に頬を朱に染めてマミゾウが視線を逸らした
			ENDIF
		ELSEIF 陥落状態() >= 2
			;初回
			IF FIRSTTIME("EV1R")
				PRINTFORML 「ふむふむ、全くこまったもんじゃのう」
				PRINTFORML 楽しそうに口元を緩めながら近寄ってきたマミゾウの言葉に首をかしげる
				PRINTFORML 「なに、%MASTERNAME:69%には関係ないことじゃよ」
				PRINTFORML そう言いながら、以前よりもさらに近くに身を寄せてくる
				PRINTFORML 「ふふ、%MASTERNAME:69%は、気にせんでも良いんじゃよ」
				PRINTFORML 楽しそうなマミゾウに、こういうのも良いかと思う%CALLNAME:MASTER%だった
			ELSE
				PRINTFORML 「ふふ、儂に会いに来たか？」
				PRINTFORML すこしだけご機嫌な様子のマミゾウに、笑みを返しながら頷いた
			ENDIF
		ELSEIF 陥落状態() == 1
			;初回
			IF FIRSTTIME("EV1S")
				PRINTFORML 「お、%MASTERNAME:69%ではないか、ほれ、こっちに来い」
				PRINTFORML いつもよりも嬉しげなマミゾウに手招きされ、首をかしげながら近寄る%CALLNAME:MASTER%
				PRINTFORML 「駆け付け三杯と行きたいところじゃが、それはまあ後でも良かろ」
				PRINTFORML 何か良いことでもあったのだろうかと思いつつ、相づちを返した
			ELSE
				PRINTFORML 「ふむ、よくきたの、ほれもっとこっちにこんか」
			ENDIF
		ELSE
			PRINTFORML 「お、ごくろうさんじゃな」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			;初回
			IF FIRSTTIME("EV1K")
				PRINTFORML 「ふふ、おったおった、まったく儂にここまで探させるとはのう」
				PRINTFORML にやにやと笑いながら寄り添ってきたマミゾウが、不意に抱きついてくる
				PRINTFORML 「なんじゃ、そのイヤそうな顔は？　そーかそーか、儂なんぞに抱きつかれたら迷惑か」
				PRINTFORML 唇をとがらせてそっぽを向くマミゾウに、イヤだと言うより恥ずかしいと返す
				PRINTFORML 「ふん、恋人同士じゃというのに、この程度で恥ずかしがってどうするんじゃ」
				PRINTFORML 言うが早いか、こちらの顔を胸元へと強引に引き寄せるマミゾウ
				PRINTFORML 「ほれほれ、きもちいいじゃろう？　ん？」
				PRINTFORML 気持ち良いと応えを返し、なんとかマミゾウの抱擁から抜け出す%CALLNAME:MASTER%だった
			ELSE
				PRINTFORML 「お、こんなところにおったのか」
				PRINTFORML 呟くが早いか、マミゾウがすぐ傍にまできて、抱き付いてきた
				PRINTFORML 「ふふふ、恋人とこういうことをするのは、楽しいのう」
				PRINTFORML そう言いながら、鼻の頭にキスしてきた
			ENDIF
		ELSEIF 陥落状態() >= 2
			;初回
			IF FIRSTTIME("EV1R")
				PRINTFORML 「お、こんなところにおったのか、ふふ、きてやったぞい」
				PRINTFORML どことなく、いつもよりも嬉しそうに呟くマミゾウに、妙な違和感を覚える
				PRINTFORML 「%MASTERNAME:69%よ、そんな難しい顔なぞしてもいいことなどなにもないぞ？」
				PRINTFORML くすくすと笑いながら、いつもよりも傍に寄るマミゾウ
				PRINTFORML 「ほれ、さっさと茶の一つでも馳走せんか」
				PRINTFORML 流し目を向けてきながらのそんなおねだりに、なんとなく親近感が湧いてきた
			ELSE
				PRINTFORML 「ふふ、会いに来てやったぞ」
				PRINTFORML 楽しげに呟くマミゾウに、笑みを向けた
			ENDIF
		ELSEIF 陥落状態() == 1
			;初回
			IF FIRSTTIME("EV1S")
				PRINTFORML 「よ、来てやったぞい」
				PRINTFORML どことなく楽しげなマミゾウがいつもより少し側に来る
				PRINTFORML 「ふむ、酒を所望したいところじゃが、茶の方が良いかのう」
				PRINTFORML どちらでも好きなようにと答えつつ、%CALLNAME:MASTER%はマミゾウをしげしげと眺めた
			ELSE
				PRINTFORML 「お、こんなところにおったか」
			ENDIF
		ELSE
			PRINTFORML 「ん、ああ、お前さんか」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF 陥落状態() >= 4
			PRINTFORML 「……まったくしょうが無いのう。儂なんぞの裸を見ても楽しくなかろうに」
			PRINTFORML とても綺麗だと曰う%CALLNAME:MASTER%に、マミゾウが顔を赤くする
			PRINTFORML 「儂をからかうなんぞ百年早いわ」
			PRINTFORML 文句を言いつつも、マミゾウは裸身を全く隠そうとはしない
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「なんじゃ、儂の裸のどこが面白い？」
			PRINTFORML 面白いと言うよりも綺麗だと答える%CALLNAME:MASTER%に、マミゾウがあきれ顔を向けてくる
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「……お、入っておったかすまんの」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML 「さっさと出ていかんか！」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF 陥落状態() >= 4
			;初回
			IF FIRSTTIME("EV1K")
				PRINTFORML 「ふふ、こんなところで会うとは奇遇じゃのう、%MASTERNAME:69%」
				PRINTFORML 嬉しそうな表情のマミゾウが近づいてきて、ぎゅっと抱きついてきた
				PRINTFORML 「ん？　何を恥ずかしがっておる？　人目が気になるとでも言う気かの？」
				PRINTFORML マミゾウの問いかけに頷きを返し、思い切り深々とため息をつかれてしまった
				PRINTFORML 「のう%MASTERNAME:69%、儂と%MASTERNAME:69%は恋人同時じゃろう」
				PRINTFORML マミゾウの言葉に当然だとうなずく%CALLNAME:MASTER%
				PRINTFORML 「なら、この程度のことで恥ずかしがるでない、バカモン」
				PRINTFORML そう言ったかと思うと、鼻の頭にキスしてきた
			ELSE
				PRINTFORML 「おお、奇遇じゃな、今日は良いことがありそうじゃ」
				PRINTFORML そんなことを呟きながら、近寄ってきたマミゾウがぎゅっと抱きついてくる
				PRINTFORML 「恥ずかしい？　儂は恥ずかしくなぞないしの」
				PRINTFORML そう言いながら、さらに強く抱きしめられた
			ENDIF
		ELSEIF 陥落状態() >= 2
			;初回
			IF FIRSTTIME("EV1R")
				PRINTFORML 「ふむ、今日は会えるとは思えなかったんじゃが、偶然とは恐ろしいのう」
				PRINTFORML いつもよりも嬉しそうに笑ったマミゾウが、そのまま腕を絡めてくる
				PRINTFORML 「ん？　タダの気まぐれじゃよ。どれ、このまま逢い引きといかんか、の？」
				PRINTFORML その誘いは嬉しいが、考えさせて欲しいと返す%CALLNAME:MASTER%
				PRINTFORML 「まったく、%MASTERNAME:69%はヒドいのう、こんな美女の誘いを袖にするとは」
				PRINTFORML 苦笑しながら離れるマミゾウだが、なんとなく寂しそうに見えた
			ELSE
				PRINTFORML 「お、なんじゃ、出掛け先で会うとは奇遇じゃのう。ふふ良いことがありそうじゃ」
				PRINTFORML そうのたまうマミゾウに、どうしてと問いかける気にはなれなかった
			ENDIF
		ELSEIF 陥落状態() == 1
			;初回
			IF FIRSTTIME("EV1S")
				PRINTFORML 「お、こんなところで会えるとはのう」
				PRINTFORML どことなく嬉しげな表情でマミゾウが近づいてきた
			ELSE
				PRINTFORML 「ふふ、奇遇じゃな。どうせだったら逢い引きでもどうじゃ？」
			ENDIF
		ELSE
			PRINTFORML 「お？　おお、%MASTERNAME:69%か」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF ARG:1 == 70
			IF FIRSTTIME("EV1C")
				PRINTFORML 「……よりによって、嬢ちゃんと逢い引きとはのう」
				PRINTFORML 『あ、えと、その、ごめんなさい』
				PRINTFORML 「いやいや、嬢ちゃんには他意は無いんじゃよ」
				PRINTFORML そういいながらこちらを睨んでくるマミゾウ
				PRINTFORML 「……まあ、良い。嬢ちゃんをもてあそぶのは許さんぞい」
				PRINTFORML その言葉に、冷や汗を掻きつつうなずく%CALLNAME:MASTER%だった
			ELSE
				IF 陥落状態() >= 4
					PRINTFORML 「……伴侶であるワシより、嬢ちゃんの方が良いのか？　さすがに腹立たしいのう」
					PRINTFORML 『あ、その、えっと……』
					PRINTFORML 不愉快げに顔を蹙めるマミゾウと、困り顔の小鈴を見比べ、するりとマミゾウに近寄る%CALLNAME:MASTER%
					PRINTFORML 「なんじゃ、この痴れ者、っ！？　ちゅ……れろ……ちゅる、これっ、離せ、っちゅぅ……」
					PRINTFORML 『はぁ……、素敵ですねぇ……』
					PRINTFORML 強引に唇を重ねるマミゾウと%CALLNAME:MASTER%を、なぜか小鈴がうっとりした表情で見つめてくる
				ELSEIF 陥落状態() >= 2
					PRINTFORML 「はぁ……、あまりそやつと一緒におると、バカが移るぞい？」
					PRINTFORML 『なら、一緒に行きませんか？　みんなでいるのは楽しそうですし』
					PRINTFORML 小鈴の物言いに、思わずマミゾウと視線を交わし、苦笑しあった
				ELSEIF 陥落状態() == 1
					PRINTFORML 「……嬢ちゃん、そやつなぞとは仲良くせんほうがいいぞい」
					PRINTFORML 『ふふ、そうですね、考えておきます』
				ELSE
					PRINTFORML 「これはまた、変わった取り合わせじゃのう」
					PRINTFORML 『まあ、お得意さんですし』
				ENDIF
			ENDIF
		ELSEIF 陥落状態() >= 4
			PRINTFORML 「……やれやれ、妾なんぞに構っておるとはのう」
			PRINTFORML 地獄の底から響くような重い声で、マミゾウが言葉を投げてくる
			PRINTFORML 「恋人より妾の方が大事とは見下げ果てた奴じゃな、%MASTERNAME:69%」
			PRINTFORML 唇をとがらせながらも、悲しげな表情に、%CALLNAME:(ARG:1)%と共に頭を下げた
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「……%MASTERNAME:69%は、儂のモノでは無いから、止められんがの」
			PRINTFORML %CALLNAME:(ARG:1)%と共に会釈をして、寂しそうなマミゾウに背中を向けた
		ELSEIF 陥落状態() == 1
			PRINTFORML 「おやおや、逢い引き中とは%MASTERNAME:69%はモテモテじゃな」
		ELSE
			PRINTFORML 「ん？　お、%MASTERNAME:69%か？　と逢い引き中では邪魔しては悪いの」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K69_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
		;マミゾウが後に起きた
		IF CFLAG:MASTER:現在位置 != CFLAG:MASTER:311 || TCVAR:休憩中
			IF 陥落状態() >= 4
				PRINTFORML 「ふにゅぅ、もうすこしねかせてよぉ…………」
				PRINTFORML 「……おはよう、%MASTERNAME:69%……、だいすきぃ」
				PRINTFORML やっと目を覚ましたマミゾウが、うっとりとした表情で呟き抱きついてくる
				PRINTFORML しばらくそのままでいたあと、我に返ったマミゾウに%CALLNAME:MASTER%は投げ飛ばされた
			ELSEIF 陥落状態() >= 2
				PRINTFORML 「ふみゅ、だいしゅきぃ……、っっっ！？　なな、何を見ておるこの痴れ者！」
				PRINTFORML 顔を真っ赤にして怒鳴るマミゾウに、可愛いといった瞬間、尾で張り飛ばされた
			ENDIF
		;マミゾウが先に起きている
		ELSE
			IF 陥落状態() >= 4
				PRINTFORML 「おはよう、%MASTERNAME:69%。じゃが、嫁より遅くまで寝てるのは良くないのう」
				PRINTFORML 恋人であって、嫁ではないだろう、そう答えようとして、マミゾウの笑みに気づく
				PRINTFORML 「ふふん、可愛い寝顔じゃったのう、くふふふふ」
				PRINTFORML そう言いながら自身の唇を撫でるマミゾウに、キスでもしていたのだろうかと思う%CALLNAME:MASTER%だった
			ELSEIF 陥落状態() >= 2
				PRINTFORML 「おはようさん。ほれ、いつまで寝ておる」
				PRINTFORMW にっこり笑うマミゾウに促され、身繕いを整えた
			ELSEIF 陥落状態() == 1
				PRINTFORML 「ん、起きるのが遅いのう。もう少し早く起きんか」
			ELSE
				PRINTFORML 「おはようさん」
			ENDIF
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;添い寝起床
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 2
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:MASTER:現在位置 == GET_ENTRANCE(MAIN_MAP)
			LOCAL:2 = 1
			SIF CFLAG:12
				LOCAL:2 = 2
			CALL M_KOJO_EVENT_K69_20(LOCAL:2,0)
			RETURN 1
		ENDIF
		IF 陥落状態() >= 4
			PRINTFORML 「ふわ……、ふむ、そろそろ儂は寝るとするかの」
			PRINTFORML 不意にぎゅっと抱き締めてくるマミゾウ
			PRINTFORML 「その前に、%MASTERNAME:69%成分を補給じゃ」
			PRINTFORMW 呟きながら鼻先を擦り合わせたマミゾウが、笑顔を浮かべて戻っていった
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「そろそろ、儂は寝るとするかの。%MASTERNAME:69%もあまり無茶するでないぞ」
			PRINTFORMW その言葉に、なんとなく苦笑が浮かんだ
		ELSEIF GETBIT(CFLAG:1,0) || TALENT:思慕
			PRINTFORMW 「ふぁ、そろそろ寝る時間じゃの、%MASTERNAME:69%もいい加減にしとくんじゃな」
		ELSE
			PRINTFORMW 「お休み。儂はそろそろ帰るわ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「……ふわ。楽しいが、眠いのう……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「ふみゅ……、好き……だ……よ」
			CASE 1
				PRINTFORML 「うみゅ……、%MASTERNAME:69%だいすきぃ……」
			CASE 2
				PRINTFORML 「にゅふふ……、%MASTERNAME:69%……、こっちぃ……」
			CASE 3
				PRINTFORML 「んにゅぅ、……おらの……、ふみゅ……だんな……さまぁ」
			CASE 4
				PRINTFORML 「やあ……いっちゃ……やだぁ……ぐすっ……」
		ENDSELECT
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「……無茶、しすぎじゃぁ……。儂は、もう寝る……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF 陥落状態() >= 4
			PRINTFORML 「全く、この程度でへばるとは情けないのう」
			PRINTFORML マミゾウの声がどこか遠くから聞こえてくる
			PRINTFORML 「ほれ、部屋までガマンせんか」
			PRINTFORMW 抱き上げられるような感触に、%CALLNAME:MASTER%はただ身を任せた
		ELSE
			PRINTFORML 「ふむ、情けないやつじゃのう、ほれ、少しは自分で歩かんか」
			PRINTFORMW 肩を貸してくれるマミゾウにお礼を言いつつ、%CALLNAME:MASTER%は意識を失った
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			IF 陥落状態() >= 4
				PRINTFORML 「おや、%MASTERNAME:69%、儂の部屋でなにをしておる？」
				PRINTFORML 欠伸をしながら帰ってきたマミゾウに、特に用は無いと答える%CALLNAME:MASTER%
				PRINTFORML 「ふむ、すまんが儂は今から寝るからの。いらんちょっかいをかけてきたら容赦せんぞ」
				PRINTFORML そんなことを呟きながら着替えて横になるマミゾウに、悪戯心が湧いてきた
			ELSE
				PRINTFORML 「ん、%MASTERNAME:69%？　勝手に人の部屋に入るとは、感心せんのう。おやすみ」
				PRINTFORML 手早く着替えたマミゾウが布団に潜り込んだ
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF GETBIT(CFLAG:1,0) || TALENT:思慕
				PRINTFORML 「……勝手に主の居ない私室に入るでない。今から寝るんじゃ。ほれ、早くでていかんか」
			ELSE
				PRINTFORML 「さっさと出て行け、うつけ者」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		IF 陥落状態() >= 4
			PRINTFORML ……んぅ、まあ、しばらくやすませてもらうとするかのう」
			PRINTFORML そういいながら、マミゾウが寝転がる
			PRINTFORML 「……悪さしたらゆるさんぞい」
			PRINTFORML 頷きを返す%CALLNAME:MASTER%を胡乱げに見つめた後、マミゾウが瞼を閉ざした
		ELSE
			PRINTFORML 「ふむ……、まあ、たまにはよいかもしれんのう」
			PRINTFORML そう呟いて、マミゾウが横になった
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF 陥落状態() >= 4
			PRINTFORML 「ふふ、用事があったのではないのか？」
			PRINTFORML するりと隣に来て、マミゾウが腕を絡ませてくる
			PRINTFORML 「それとも、用事よりも儂の方が大事と言うことでいいのかのう？」
			PRINTFORML その通りと真顔で返すと、僅かに顔を赤らめて、マミゾウが視線を逸らした
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「ん、なんじゃ？　用事があったのじゃろう？」
			PRINTFORML マミゾウと話す方が楽しいからと告げると、笑顔を向けられた
		ELSEIF GETBIT(CFLAG:1,0) || TALENT:思慕
			PRINTFORML 「おや、用事はいいのかの？　儂と話したい？　暇人じゃのう」
		ELSE
			PRINTFORML 「ん、なにかようかい？」
		ENDIF
		SETBIT CFLAG:1690,3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「ふむ、用事があるならば、仕方有るまいのう」
			PRINTFORML そう言いつつ、つつっと近寄ってきたマミゾウが抱き付いてきた
			PRINTFORML 「ふふ、%MASTERNAME:69%成分を補給じゃ。外の世界のかっぷるのまねじゃがな」
			PRINTFORML 言葉遣いに似合わぬ愛らしい表情に、笑みが浮かんだ
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「む、儂より大事な用事でもあるのか？」
			PRINTFORML そうではないと、取り繕い目的地へ向かった
		ELSEIF GETBIT(CFLAG:1,0) || TALENT:思慕
			PRINTFORML 「お、用事かの？　あまり無理するでないぞ」
		ELSE
			PRINTFORML 「ふむ、ごくろうさん」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF 陥落状態() >= 4
			PRINTFORML 「ふ、ふふふ……恋人を無視するとはのう」
			PRINTFORML 「あとでお仕置きじゃ」
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「儂を無視するとは良い度胸じゃのう」
		ELSEIF GETBIT(CFLAG:1,0) || TALENT:思慕
			PRINTFORML 「これ、せめて何か一言……、むぅ、腹が立つのう」
		ELSE
			PRINTFORML 「……ふむ、礼儀も知らんか」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;命蓮寺勢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1
		;ナズ
		IF ARG == 39
			PRINTFORML 「おお、賢将どののお出ましか」
		;一輪
		ELSEIF ARG == 85
			PRINTFORML 「おや、これは一輪どの」
		;ムラサ
		ELSEIF ARG == 86
			PRINTFORML 「船長どののご登場か」
		;星ちゃん
		ELSEIF ARG == 87
			PRINTFORML 「おお、これは毘沙門天どの」
		;ひじりん
		ELSEIF ARG == 55
			PRINTFORML 「おや、白蓮どの」
		;ぬえっちぬえぬえ
		ELSEIF ARG == 41
			PRINTFORML 「ふむ、ぬえか」
		;小傘
		ELSEIF ARG == 40
			PRINTFORML 「なんじゃ付喪神かい」
		;響子
		ELSEIF ARG == 88
			PRINTFORML 「おお、やまびこの嬢ちゃん」
		ENDIF
	ENDIF
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;鈴奈庵（例外あり）で面識ありキャラが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1
		;霊夢
		IF ARG == 1
			PRINTFORML 「お、霊夢かい、ご苦労さんじゃの」
		;魔理沙
		ELSEIF ARG == 11
			PRINTFORML 「おお、魔理沙どの。って、なんじゃそのむずがゆそうな顔は？」
		;華扇
		ELSEIF ARG == 43
			PRINTFORML 「お、今日は何を懐に呑んでおるんじゃ？　御相伴にあずからせてもらいたいのう」
		;にとり
		ELSEIF ARG == 51
			PRINTFORML 「おお、河童の嬢ちゃん、奇遇じゃの」
		;こころ
		ELSEIF ARG == 57
			PRINTFORML 「こころや、元気でやっておるかい？」
		;小鈴
		ELSEIF ARG == 70
			PRINTFORML 「お、本屋の嬢ちゃん」
		;阿求
		ELSEIF ARG == 80
			PRINTFORML 「おお、稗田のお嬢ちゃん。何か面白いものでも見つかったかいの」
		ENDIF
	ENDIF
	PRINTFORML 「人が来たなら、しょうがあるまい」
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「あー、あまり見せつけるもんでは無いぞ？」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML 「丁度良い、儂も退屈しておったんじゃ」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML 「……ま、程ほどにしておくんじゃな」
		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_K69_7(ARG,ARG:1)
;口上主はTARGET
;ARGに目撃者
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「……っ！？」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML 「これ、今は儂とこやつの睦み合いの……、むー」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML 「さて、邪魔者は去ったし続きでもしようかの？」
		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_K69_8(ARG,ARG:1)
;口上主はTARGET
;そもそもこれ発生するの？
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERだけ問い詰め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF 陥落状態() >= 4
			PRINTFORML 「……何か言うことは無いかの？」
			PRINTFORML 目尻に僅かに涙を溜めるマミゾウの姿に、思わず絶句してしまう
			PRINTFORML 「儂は、%MASTERNAME:69%の恋人じゃろう。それとも儂では恋人に相応しくないのかの」
			PRINTFORML そんな事は無いと言いながら、%CALLNAME:MASTER%は必死で何度も頭を下げて謝った
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「……儂以外と仲良くするなとは言わん。じゃが、ああして見せつけるのは感心せんぞ」
			PRINTFORML 不愉快そうに唇を歪めるマミゾウに、慌てて頭を下げる%CALLNAME:MASTER%だった
		ELSEIF GETBIT(CFLAG:1,0) || TALENT:思慕
			PRINTFORML 「……ああ、もう腹が立って仕方ないのう。人の来るところで乳繰り合うなバカモン」
		ELSE
			PRINTFORML 「お前さんと誰が仲良くしようが、文句を言える筋合いはないが、ちと盛り過ぎではないかのう？」
		ENDIF
		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_K69_9(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SIF ARG:1
		PRINTFORML 「この、変態めが」
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;同じ場所に居てパンツを回収された
	;記入チェック（=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_K69_10(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERを押し倒した（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF 陥落状態() >= 4
			PRINTFORML 「ふふ、%MASTERNAME:69%がわるいんじゃからな」
			PRINTFORML 押し倒された%CALLNAME:MASTER%の上で、マミゾウが舌なめずりをする
			PRINTFORML 「さて、楽しい宴の始まりじゃ」
			PRINTFORML その言葉に、喜悦を覚えた
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「ふ、ふふ、儂をこんなに燃え上がらせたんじゃ、責任を取れ」
			PRINTFORML そう嘯くマミゾウに、苦笑しながら受け入れた
		ELSEIF GETBIT(CFLAG:1,0) || TALENT:思慕
			PRINTFORML 「ふむ、儂の気まぐれじゃ、最後まで付き合え」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「もうおわりじゃと、そんなの納得できるか」
			PRINTFORML むくれ面を浮かべるマミゾウに、何度も頭を下げる
			PRINTFORML 「……ふん、あとで覚えておれ」
			PRINTFORML 渋々離れるマミゾウの言葉に、背中に汗が浮かんだ
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「儂はまだもの足りんが、そこまで言うならしょうがなかろう」
			PRINTFORML 呟きながら、身を離すマミゾウの口元に、イヤな笑みが浮かんだ
		ELSEIF GETBIT(CFLAG:1,0) || TALENT:思慕
			PRINTFORML 「儂はまだ気がすんどらんぞい、これ逃げるでないわっ！」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「こら、何を入ってきておる。さっさと出て行かんか」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「……まったくしょうが無いのう。儂なんぞの裸を見ても楽しくなかろうに」
			PRINTFORML とても綺麗だと曰う%CALLNAME:MASTER%に、マミゾウが顔を赤くする
			PRINTFORML 「儂をからかうなんぞ百年早いわ」
			PRINTFORML 文句を言いつつも、マミゾウは裸身を全く隠そうとはしない
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「なんじゃ、儂の裸のどこが面白い？」
			PRINTFORML 面白いと言うよりも綺麗だと答える%CALLNAME:MASTER%に、マミゾウがあきれ顔を向けてくる
		ELSEIF GETBIT(CFLAG:1,0) || TALENT:思慕
			PRINTFORML 「まったく、そんなにじろじろ見て、何がおもしろいんじゃ」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「誰が入れてやると言うた？　さっさと消えろ、この痴れ者めがっっ！！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「…………んにゅぅ……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF 陥落状態() >= 4
			PRINTFORML 「……ふわ……ん……%MASTERNAME:69%？」
			PRINTFORML トロンとした瞳で甘い声で呟くマミゾウが手招きしてくる
			PRINTFORML 「ん、ふふふ、好きだよ…………、っ！　あ、な、なんじゃこんな時間に」
			PRINTFORML さっきのが可愛いと言った瞬間、顔を真っ赤にして、小さな弾幕を投げつけてきた
		ELSE
			PRINTFORML 「ふみゅ……%MASTERNAME:69%？　……なんじゃこんな夜更けに？」
			PRINTFORML どうしてもマミゾウに会いたくなったと告げると、苦笑と共に手招きしてくれた
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF 陥落状態() >= 4
			PRINTFORML 「……なんじゃ、%MASTERNAME:69%か……。なら……、安心じゃな……」
			PRINTFORML 身を起こしたマミゾウは、そのままもう一度布団に倒れ込んだ
			PRINTFORML 「すぅ……すぅ……」
			PRINTFORML そのまま、寝付くマミゾウに、少し悪いことをしたかなと思う%CALLNAME:MASTER%だった
		ELSE
			PRINTFORML 「……ふぁ……、儂は、疲れておるんじゃ……、寝かせんか」
			PRINTFORML それだけを呟き、マミゾウが瞼を閉ざした
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML 「10数えるまでに、出て行かんかったら、食う、１、２……ふん、逃げおったか」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML 「今すぐ失せい、”変化「百鬼妖界の門」”」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML 「お、面白そうなものを持っておるの。では頂くとするか、あむあむ」
		PRINTFORML 隠す暇も無い程の速さで、持っていた%DISHNAME%を取り上げられた
		IF TASTE_REACTION("甘い") || TASTE_REACTION("すっぱい")
			PRINTFORML 「……も、貰っておいてなんじゃが、こういうのはちと苦手じゃ」
			PRINTFORML 文句を言いながらも、マミゾウはきちんと完食した
		ELSEIF TASTE_REACTION("辛い") || TASTE_REACTION("わさび")
			PRINTFORML 「うむ、美味い。これは中々良いな」
			PRINTFORML 相好を崩して、マミゾウは全て平らげてしまった
		ELSE
			PRINTFORML 「ふむ、可も無し不可もなし。じゃが、嫌いでは無いぞ」
			PRINTFORML ごちそうさまと呟くマミゾウに、軽く頭を下げた
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_EVENT_K69_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
		IF 陥落状態() >= 4
			PRINTFORML 「むう、もう終わり？　どうせなら気絶するまで貪りあいたい所じゃが」
			PRINTFORML 流石にそれだとしんどいと告げる%CALLNAME:MASTER%に、マミゾウも苦笑を浮かべる
			PRINTFORML 「確かに余韻を楽しめないというのも、損ではあるがのう」
			PRINTFORML その通りと頷き、互いに服を着せあいながら、笑顔を向け合った
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「もう、終わりじゃと？　もう少し良いじゃろう」
			PRINTFORML まとわりつくマミゾウを何とか離して、身繕いをすませた
		ELSEIF 陥落状態() == 1
			PRINTFORML 「これ、誰が止めて良いと言った。……まったくつれない奴じゃ」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K69_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
		IF 陥落状態() >= 4
			IF CFLAG:衰弱
				PRINTFORML 「……ふみゅ、……」
				PRINTFORML 目を覚まさないマミゾウに、これ以上負担をかけないために、布団から抜け出す
				PRINTFORML 「…………ふみゅぅ……」
				PRINTFORML 何かを求めるように差し出されたマミゾウの手を、ぎゅっと握り締めてから離れた
			ELSE
				PRINTFORML 「……むぅ、どうせなら、このまま寝てもよかろうに」
				PRINTFORML マミゾウの言葉に、それはまたの機会にと返す
				PRINTFORML 「全く、お前さんは勝手じゃのう」
				PRINTFORML そう言いながらも、嬉しげな笑みを浮かべて、マミゾウが体を起こした
			ENDIF
		ELSE
			IF CFLAG:衰弱
				PRINTFORML 「……うみゅぅ、……」
				PRINTFORML ぐったりしているマミゾウに、内心で謝りながらそっと布団から抜け出た
			ELSE
				PRINTFORML 「……ふむ、このまま共に眠る気は無いのかの？」
				PRINTFORML マミゾウの露骨なお誘いに、苦笑を浮かべながら、%CALLNAME:MASTER%は布団から抜け出した
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K69_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
		IF 陥落状態() >= 4
			PRINTFORML 「……ちょっと、こっちにこい」
			PRINTFORML 不機嫌そうな表情で呟くマミゾウに、冷や汗を掻きながら近寄る%CALLNAME:MASTER%
			PRINTFORML 「%MASTERNAME:69%、すまん、すまんの」
			PRINTFORML 小さく肩を震わせながらの呟きに、胸の奥がずきりと痛んだ
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「あふ、んくっ、……あやつ以外には触らせとう無いと言うに、許せんのう」
			PRINTFORML ”あやつ”というのが自分の事だと気づいて、%CALLNAME:MASTER%は罪悪感を覚えた
		ELSEIF 陥落状態() == 1
			PRINTFORML 「んっ……、まったく、どういう仕業じゃ」
		ELSE
			PRINTFORML 「っ！？　…………まさぐられた覚えはないんじゃが……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「っっっ！　…………は、はぁ、はっ……くぅ、……腹立たしいの」
			PRINTFORML へたり込んだマミゾウが呟きながら、こちらを手招きする
			PRINTFORML 「みそぎをせんといかんのでな」
			PRINTFORML 呟きながら抱きついてきたマミゾウが、唇を重ね舌を絡めてきた
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「くぅっっ…………んっ、はぁ…………、%MASTERNAME:69%ちょっとこっちにこんか」
			PRINTFORML バレたのかと一瞬思いつつ近寄る%CALLNAME:MASTER%に、マミゾウは何も言わずに抱きついてきた
		ELSEIF 陥落状態() == 1
			PRINTFORML 「んっ……、く……、はぁはぁ……、人の体で遊ぶなぞ、……許せんのう」
		ELSE
			PRINTFORML 「くぅ～～～～……、な、なんじゃ、別になんでもないぞい」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF 陥落状態() >= 4
			PRINTFORML 「……む、まったくどういう手妻じゃ」
			PRINTFORML 不愉快げに呟くマミゾウが、内ももをすりあわせている
			PRINTFORML 「なんじゃ、その目は？　儂に何かおかしいところでもあるかの？」
			PRINTFORML その恥ずかしげな様子に、妙にたぎるモノを覚える%CALLNAME:MASTER%だった
		ELSEIF 陥落状態() >= 2
			PRINTFORML 「……むぅ、どこのどやつの仕業か知らんが、不愉快じゃのう」
			PRINTFORML ぽつりと呟いたマミゾウが、そっと腰のあたりを押さえている
		ELSEIF 陥落状態() == 1
			PRINTFORML 「……ぬ、無いじゃと。どういうことじゃ」
		ELSE
			PRINTFORML 「……ぬぬ？　…………いくら幻想郷とはいえ、まさかこのような事が」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			IF 陥落状態() >= 4
				IF !RAND:2
					PRINTFORML 「……けほ、全く、どんな妖術じゃこれは」
					PRINTFORML 不愉快そうに呟いたマミゾウが、不意にこちらを睨み手招きする
					PRINTFORML 「ちゅっ、れろ……じゅる…………、不味い？　そんなの知らん、口直しじゃ」
					PRINTFORML いきなりディープキスされ、%CALLNAME:MASTER%は自身の精液を味わう羽目になった
				ELSE
					PRINTFORML 「けほっけほっ……、あやつ以外のモノなど不愉快なんじゃがのう」
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
					PRINTFORML 「こほっ、こほっっ…………、うぅ、%MASTERNAME:69%、お茶でもふるまってくれんかの」
					PRINTFORML 不愉快そうに顔をゆがめるマミゾウに、罪悪感がちくちくと刺激される
				ELSE
					PRINTFORML 「うぅ、気持ち悪いのう。%MASTERNAME:69%のなら、文句はないんじゃが」
				ENDIF
			ELSEIF 陥落状態() == 1
				PRINTFORML 「けほっこほっ…………うぅ、喉がイガイガするわい、不愉快じゃのう」
			ELSE
				PRINTFORML 「こほけほ………………、あー二重に胸がムカムカするわい」
			ENDIF
		;精液中毒低吐き出し(濃厚込み)
		ELSEIF ARG:1 == 2 || ARG:1 == 6
			IF 陥落状態() >= 4
				IF !RAND:2
					PRINTFORML 「ぺっぺっ……、ああ、気持ち悪い、気持ち悪いのう」
					PRINTFORML 呟きながら手招きするマミゾウに、内心冷や汗を掻きつつ近づく%CALLNAME:MASTER%
					PRINTFORML 「れろ、ちゅっ、じゅる、ぺちゃ……、ヘンな味？　ふん、儂のせいじゃないわい」
					PRINTFORML マミゾウの言葉に、バレているんだろうかと内心不安になる%CALLNAME:MASTER%だった
				ELSE
					PRINTFORML 「ぺっぺっ、まったくたまったもんじゃないわい」
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
					PRINTFORML 「ぺっ……、ふぅ、不快にもほどがあるのう。%MASTERNAME:69%、お茶を淹れてくれんかの？」
					PRINTFORML 不機嫌そうなマミゾウに、慌ててお茶を差し出した
				ELSE
					PRINTFORML 「ぺっ、……まったく、どこのどいつの仕業じゃ。あやつのなら文句はないんじゃがの」
				ENDIF
			ELSEIF 陥落状態() == 1
				PRINTFORML 「ぺっっ、ああもう、腹が立つのう。あやつのならともかく」
			ELSE
				PRINTFORML 「ぺっぺっ、不愉快じゃ、ああ不愉快じゃ」
			ENDIF
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			IF 陥落状態() >= 4
				IF !RAND:2
					PRINTFORML 「けほけほっ……むぅ、これ、どうしてやろうか」
					PRINTFORML ぽつりと呟いたマミゾウが、きらりと眼鏡を光らせて手招きしてくる
					PRINTFORML 「のう、%MASTERNAME:69%。この怪しい代物、綺麗にしてくれんかの？」
					PRINTFORML その言葉と共に差し出された精液まみれの手を、%CALLNAME:MASTER%は布巾で丁寧にぬぐった
				ELSE
					PRINTFORML 「けほっ、……むう、不愉快じゃのう、懐紙懐紙と」
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
					PRINTFORML 「けほっけほっ……、%MASTERNAME:69%よ、何か拭くモノはもっとらんか？」
					PRINTFORML マミゾウの問いかけに布巾を差し出し、自身の精液で汚れたそれを突き返された
				ELSE
					PRINTFORML 「……けほ…………、腹立つのう」
				ENDIF
			ELSEIF 陥落状態() == 1
				PRINTFORML 「けほっ……、まったくどこのどいつじゃ、ばっちいのう」
			ELSE
				PRINTFORML 「けほこほ……、ああ不愉快じゃ不愉快じゃ」
			ENDIF
		;精液中毒高精飲（濃厚込み）
		ELSEIF ARG:1 == 4 || ARG:1 == 6
			IF 陥落状態() >= 4
				IF !RAND:2
					PRINTFORML 「こくん…………、んっ、不愉快じゃのう」
					PRINTFORML ぽつりと呟いたマミゾウに手招きされ、近寄ると同時抱きしめられた
					PRINTFORML 「ちゅ、れろ、ちゅぱ、じゅる…………、ふふん、お裾分けじゃ」
					PRINTFORML 生臭いディープキスに、%CALLNAME:MASTER%は顔を蹙めた
				ELSE
					PRINTFORML 「こく……、ああ、不味い、不味いのう……」
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
					PRINTFORML 「んくっ…………はぁ、こっちに来い」
					PRINTFORML %CALLNAME:MASTER%を呼び寄せたマミゾウに、がっしりとつかまれディープキスされた
				ELSE
					PRINTFORML 「こくり……、ふぅ、気に食わんのう」
				ENDIF
			ELSEIF 陥落状態() == 1
				PRINTFORML 「んく……はぁ……まったく、どこのどいつの仕業じゃ」
			ELSE
				PRINTFORML 「こくり…………不愉快じゃの」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;幼稚持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			IF 陥落状態() >= 4
				IF !RAND:2
					PRINTFORML 「……ぬぬ、なんでこんなもんが……、お、%MASTERNAME:69%、ちょっとこっちに」
					PRINTFORML 顔を蹙めたマミゾウの呼びかけに近づいた%CALLNAME:MASTER%はぐっと手首を捕まれた
					PRINTFORML 「ん、ふふ、%MASTERNAME:69%が儂の布巾代わりじゃ、嬉しかろう？」
					PRINTFORML そう呟くマミゾウの、顔に残る精液を素手でぬぐい取らされる羽目になった
				ELSE
					PRINTFORML 「ぬぬぅ、あやつのモノならともかく、気持ち悪いのう」
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
					PRINTFORML 「むむぅ……、お、%MASTERNAME:69%、手ぬぐいもっておらんか？」
					PRINTFORML 差し出した手ぬぐいで、マミゾウが顔の精液をぬぐい取っている
				ELSE
					PRINTFORML 「むぅ、気持ち悪いのう、まったく正体さえわかればのう」
				ENDIF
			ELSEIF 陥落状態() == 1
				PRINTFORML 「ぬぅ、なんでこんなもんが、不愉快じゃのう」
			ELSE
				PRINTFORML 「まったく、腹が立つのう……」
			ENDIF
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			IF 陥落状態() >= 4
				IF !RAND:2

				ELSE
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
				ELSE
				ENDIF
			ELSEIF 陥落状態() == 1
			ELSE
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			IF 陥落状態() >= 4
				IF !RAND:2
					PRINTFORML 「……どこのどいつの仕業じゃ、不愉快じゃのう。ああ、%MASTERNAME:69%、ちょっとこっちに」
					PRINTFORML 手招きをするマミゾウに近づいた%CALLNAME:MASTER%は手首をぐっと捕まれた
					PRINTFORML 「布巾代わりじゃ、嬉しかろう？」
					PRINTFORML こちらの手に精液で汚れた手をなすりつけてくるマミゾウに、バレているのかと%CALLNAME:MASTER%は不安になった
				ELSE
					PRINTFORML 「まったく、ばっちいのう、どこのどいつじゃこんなことするのは」
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
					PRINTFORML 「……たまったもんではないのう。%MASTERNAME:69%、何か拭くモノは無いか？」
					PRINTFORML こちらが渋々差し出した布巾で、マミゾウが丁寧に手の汚れをぬぐっている
				ELSE
					PRINTFORML 「困ったもんじゃのう。ああ、まったく」
				ENDIF
			ELSEIF 陥落状態() == 1
				PRINTFORML 「どこのどやつじゃ、こんなことをするのは。正体がわかれば食っちゃるところじゃ」
			ELSE
				PRINTFORML 「……まったく、不愉快じゃのう、ああ不愉快じゃ」
			ENDIF
		;舐めとり
		ELSEIF ARG:1 == 2
			IF 陥落状態() >= 4
				IF !RAND:2
				ELSE
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
				ELSE
				ENDIF
			ELSEIF 陥落状態() == 1
			ELSE
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚0
		IF ARG:1 == 1
			IF 陥落状態() >= 4
				IF !RAND:2
				ELSE
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
				ELSE
				ENDIF
			ELSEIF 陥落状態() == 1
			ELSE
			ENDIF
		;ソレ以外（地の文ではさらにＡ感覚ごとに分岐あり
		ELSEIF ARG:1 == 2
			IF 陥落状態() >= 4
				IF !RAND:2
				ELSE
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
				ELSE
				ENDIF
			ELSEIF 陥落状態() == 1
			ELSE
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
			IF 陥落状態() >= 4
				IF !RAND:2
				ELSE
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
				ELSE
				ENDIF
			ELSEIF 陥落状態() == 1
			ELSE
			ENDIF
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
			IF 陥落状態() >= 4
				IF !RAND:2
				ELSE
				ENDIF
			ELSEIF 陥落状態() >= 2
				IF !RAND:2
				ELSE
				ENDIF
			ELSEIF 陥落状態() == 1
			ELSE
			ENDIF
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K69_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() >= 2
		ELSEIF 陥落状態() == 1
		ELSE
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() >= 2
		ELSEIF 陥落状態() == 1
		ELSE
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() >= 2
		ELSEIF 陥落状態() == 1
		ELSE
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() >= 2
		ELSEIF 陥落状態() == 1
		ELSE
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() >= 2
		ELSEIF 陥落状態() == 1
		ELSE
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K69_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() >= 2
		ELSEIF 陥落状態() == 1
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() >= 2
		ELSEIF 陥落状態() == 1
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K69_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_K69_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K69_22(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K69_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_K69_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_K69_25(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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