code:
;-------------------------------------------------
; eraTheWorld 4.576用 妹紅口上
;外見クール、内面乙女
;超手抜き
;行間を読む程度の能力を必要とします
;……なんでこのコンセプト部分消してたんだっけ？
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

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

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
[SKIPSTART]
基礎分岐
IF 陥落状態() >= 4
ELSEIF 陥落状態() == 3
ELSEIF 陥落状態() == 2
ELSEIF 陥落状態() == 1
ELSE
ENDIF
CFLAG:1610 bit0・立ち止まり時の遭遇口上抑制用、bit1・お風呂時の背中流し主導権判定、bit2～3・空、bit4カウンターの歌のFIRST制御、bit5・住み込み時の制御
CFLAG:1611 時姦経験によるファーストタイム制御
CFLAG:1612 時姦経験によるファーストタイム制御
CFLAG:1613 出産後デイリー怪我させ関連
CFLAG:1614 輝夜弾幕勝負勝利時ご褒美
%MASTERNAME:61%
[SKIPEND]
;
;
;
;******************************************************************************

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

;RESULTS = _TEST_

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

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

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

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

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

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

;CFLAG:押し倒し禁止に1を入れると自分から押し倒してこなくなります
;以下は恋慕かセフレがつくまで押し倒してこなくなる使用例
;IF !TALENT:X:恋慕 && !TALENT:X:セフレ
;	CFLAG:X:押し倒し禁止 = 1
;ELSE
;	CFLAG:X:押し倒し禁止 = 0
;ENDIF
IF CFLAG:61:睡眠 && !CFLAG:61:衰弱
	CFLAG:61:1614 = 0
ELSEIF CHARANUM >= 127 && TCVAR:62:弾幕勝負結果 == 1 && !CFLAG:61:1614 && CFLAG:61:現在位置 != CFLAG:62:現在位置
	SETBIT CFLAG:61:1614,0
ENDIF

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

;### 口上色判定 ###################################
@M_KOJO_COLOR_K61
SETCOLOR 0xFF1493

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K61
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります
IF 陥落状態() >= 4
	CFLAG:61:345 = 1
ELSE
	CFLAG:61:345 = 0
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K61
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
IF GET_MAPID(CFLAG:MASTER:現在位置) == MAIN_MAP && MAIN_MAP == 4
	PRINTFORML 「……最近ココに住み着いた変わり者がいるって聞いたけど、%CALLNAME:MASTER%の事？」
	PRINTFORML 「ああ、私は藤原妹紅、ここに昔から住んでる変わり者だよ」
	PRINTFORML 「わざわざこんなところに住み着くくらいだから、それなりの能力はあるんだろうけど」
	PRINTFORML 「竹林ではあまり出歩かないようにね。それなりに危険なところなんだからさ」
	PRINTFORML 「……可愛いとか、初対面の相手に言う台詞じゃないでしょ」
	PRINTFORML 「まあ、余り関わり合いにならないとは思うけど」
	PRINTFORML 「気が向いたら話し相手くらいにはなるよ」
;竹林以外のメインマップで出会った
ELSEIF GET_MAPID(CFLAG:MASTER:現在位置) == MAIN_MAP && (MAIN_MAP != 4 && MAIN_MAP != 2)
	PRINTFORML 「……%GET_MAPNAME(MAIN_MAP)%に一般人？」
	PRINTFORML 「ああ、私は藤原妹紅、迷いの竹林に住む、一応人間だよ」
	PRINTFORML 「妙な胸騒ぎがしてこっちに来たんだけど、その原因は%CALLNAME:MASTER%だろうね」
	PRINTFORMW 「……って、いきなり可愛いとか言われても困るんだけど」
	PRINTFORML 「さほど親しくもない相手に言われたって、嬉しくも何ともないしね」
	PRINTFORML 「私と仲良くしたい？　はは、ここに住んでるなら、私よりも良い人はいっぱいいるだろうに」
	PRINTFORML 「まあ、今日は偶々こっちに来たけど、基本的にこっちに来る気は無いから」
	PRINTFORMW 「どうしても話がしたいっていうなら、竹林か人里の方に足を運ぶんだね」
;メインマップが竹林以外かつ、竹林で出会った
ELSEIF GET_MAPID(CFLAG:MASTER:現在位置) == 4
	PRINTFORML 「こんな竹林に、一般人が来るもんじゃないよ」
	PRINTFORML 「ほら、里まで送ってあげるから……、って、なにか変な術が掛かってるね」
	IF MAIN_MAP == 0
		PRINTFORML 「博麗神社に住んでる？　あの巫女に拾われた？」
	ELSE
		PRINTFORML 「身を守るすべは身につけてる？」
	ENDIF
	PRINTFORMW 「まあ、それなら心配は要らないかも知れないけど、でもこの辺は危険だからね」
	PRINTFORML 「名も無く姿も定まってない妖怪連中に喰われても知らないよ」
	PRINTFORML 「ん？　あ、私は藤原妹紅。この竹林に住んでるんだけど」
	PRINTFORML 「…………あのさ、初対面相手にいきなり可愛いとか言われると正直引くんだけど」
	PRINTFORMW 「ほら、この辺は本当に危ないんだから早く帰りなよ」
	PRINTFORML 「……って、私と話なんかしても面白くも何ともないんだけどねぇ」
	PRINTFORMW 「でもまあ、どうしてもって言うなら、話し相手になるくらいなら構わないよ」
;竹林以外で出会った
ELSEIF GET_MAPID(CFLAG:MASTER:現在位置) != 4
	PRINTFORML 「……えと、何か用？」
	PRINTFORML 「私を見て戸惑う人間は多いけど、そんな風にじっと見続けてくる人は居ないから気になってね」
	PRINTFORML 「可愛い？　……ナンパならお断りだけど」
	PRINTFORM 「%GET_MAPNAME(MAIN_MAP)%の
	SELECTCASE GET_MAPID(MAIN_MAP)
		CASE 0,2,3
			PRINTFORML 居候？　ふーん、あそこも変なのを拾うもんだね」
		CASEELSE
			PRINTFORML 住人？　ふーん、こんなとこに来るなんてご苦労な事だね」
	ENDSELECT
	PRINTFORML 「あ、私は、藤原妹紅。普段は竹林に居るけど、時々こっちに来る用事があってね」
	PRINTFORML 「……まあ、たまに話し相手になるくらいなら構わないけど」
	PRINTFORML 「私に構いたがるなんて、変な人間がいるもんだ」
ENDIF
PRINTL
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K61_1(ARG,ARG:1)
;口上主はTARGET
IF MARK:反発刻印
	TCVAR:キスキャンセル = 1
	RETURN 1
ENDIF
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORML 「…………勝手にこんなことしてゴメン」
	PRINTFORML 「私には、こんなことは似合わないよね」
	PRINTFORML 「……%CALLNAME:MASTER%も所詮は私を置いて、去って行くのに」
	PRINTFORML 「でも、ほんの一時でも良い。私は%CALLNAME:MASTER%に想いを懸けてしまったから」
	PRINTFORML 「だから、だから……、ん」
	PRINTFORML 「ありがとう……、そっちからもしてくれて、嬉しい……っ……あ、あれ？」
	PRINTFORML 「うれしい、のに、……っく……なんで、……涙が」
	PRINTFORML
	PRINTFORML
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K61_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML 「私は、ずっと一人だった」
		PRINTFORML 「父上が母上の元に来なくなって、母上が亡くなったときでさえ文すら寄こさなくて」
		PRINTFORML 「……あげく、私とさほど年も離れてない見た目の、あいつに入れ込んでると聞いて」
		PRINTFORML 「私は一人になった」
		PRINTFORML 「蓬莱の薬を手にするためにあくどいこともしたし、手に入れた後は人を忌避した」
		PRINTFORML 「輝夜と再会して、殺し合うことで、生きてることに実感が持てるようになったけど」
		PRINTFORML 「それでも、人と深く触れ合うのは怖かった」
		PRINTFORML 「……でも、でも、今は%CALLNAME:MASTER%と触れ合えるのが嬉しい」
		PRINTFORML 「%CALLNAME:MASTER%の隣で笑えるのが嬉しい」
		PRINTFORML 「私は%CALLNAME:MASTER%を見送ることしか、看取ることしか出来ない」
		PRINTFORML 「それでも、%CALLNAME:MASTER%と恋仲になりたい。%CALLNAME:MASTER%を独占したい」
		PRINTFORML 「……私を、恋人にして、くれる？」
		PRINTFORML
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「……本当に、いいの？　……ありがとう」
		PRINTFORML 「%CALLNAME:MASTER%も私に言いたいことがあるって？」
		PRINTFORML 「時間を、止める？」
		SIF EXP:60 || EXP:61 || EXP:62 || EXP:63
			PRINTFORML 「時々感じてた違和感は、それでなんだ」
		PRINTFORML 「どうして、その事をわざわざ口に？」
		PRINTFORML 「……そうだね、恋人に隠し事はしたくないし、してほしくない」
		PRINTFORML 「ただ一つだけお願いしても良いかな」
		PRINTFORML 「その力で私を弄るのも構わないし、他の女に手を出すなとも言わない」
		PRINTFORMW 「でも、時間を止めていない時は、ちゃんと私の事を愛してほしい」
		PRINTFORML 「え？　恋人なんだし、特別な呼び方をしてほしい？」
		PRINTFORML 「っ……、は、恥ずかしいけど、%CALLNAME:MASTER%が望むなら」
		PRINTFORMW 「それで、なんて呼べば？」
		PRINTL
		PRINTL [0] 『旦那様』
		PRINTL [1] 『ご主人様』
		PRINTL [2] 『吾主様』
		PRINTL [3] 『背の君』
		IF GETBIT(TALENT:MASTER:性別,1)
			PRINTFORML [4] 『兄（あに）様』
		ELSE
			PRINTFORML [4] 『姉（あね）様』
		ENDIF
		PRINTL [5] 『やっぱりそのまま』
		$INPUT_NAMELOOP
		INPUT
		SELECTCASE RESULT
			CASE 0
				MASTERNAME:61 = 旦那様
				PRINTFORML 「%MASTERNAME:61%か……、これじゃまるで夫婦だよね」
			CASE 1
				MASTERNAME:61 = ご主人様
				PRINTFORML 「%MASTERNAME:61%？　メイドプレイでもお望みなの？」
			CASE 2
				MASTERNAME:61 = 吾主様
				PRINTFORML 「%MASTERNAME:61%？　変な言葉だけど、これはこれでいいかも」
			CASE 3
				MASTERNAME:61 = 背の君
				PRINTFORML 「%MASTERNAME:61%か……、まさかそう言える相手が出来るなんてね」
			CASE 4
				IF GETBIT(TALENT:MASTER:性別,1)
					MASTERNAME:61 = 兄様
				ELSE
					MASTERNAME:61 = 姉様
				ENDIF
				PRINTFORML 「%MASTERNAME:61%？　そんな風に呼ばせたいって、シスコン？」
			CASE 5
				MASTERNAME:61 = %CALLNAME:MASTER%
				PRINTFORML 「%MASTERNAME:61%って、特別な呼び方が欲しかったんじゃ？」
				PRINTFORML 「……そ、そうだね、特別過ぎても恥ずかしい」
			CASEELSE
				GOTO INPUT_NAMELOOP
		ENDSELECT
		PRINTFORML 「それじゃ、改めて、これからもよろしく」
		PRINTFORMW
		CFLAG:345 = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「そうだよね。私なんかよりも素敵な人が、%CALLNAME:MASTER%の周りには沢山居るし」
		PRINTFORML 「いいよ、そんなにかしこまったりしなくても」
		PRINTFORML 「人の心は誰にも縛れない、自分自身にさえ縛ることが出来ないんだもの」
		PRINTFORML 「誰よりも私が一番よく知ってることだから」
		PRINTFORML 「……ふふ、しょうがないことだね。……泣いてなんか、っく」
		PRINTFORML 「っっ……くぅっ…………ぅぁ……っぅ……」
		PRINTFORML 「そんな、くっ……やさしく、……あぅ……しないでよぉ…………」
		PRINTFORML
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K61_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 「恋人と時間を過ごすのが楽しいなんて、思いもよらなかったよ」
			PRINTFORML 「ふふっ、大好きだよ、%MASTERNAME:61%。って、なんでそこで恥ずかしがるかな」
			PRINTFORML 「置いて行かれるなら、せめて自分の気持ちに素直で居たいだけなんだからさ」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「今日もありがと、%CALLNAME:MASTER%と一緒に居られる時間は本当に楽しいね」
			PRINTFORML 「でも、あっという間に過ぎ去ってしまうのがちょっと勿体ないけど」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「楽しかったよ、ふふ、これはお礼……ちゅっ」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「ん、こう言うのもたまには良いね」
		ELSE
			PRINTFORML 「……私なんか誘って、楽しかった？」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「はぁ、反省してる様だし、許してあげても良いか」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「全く、こんなことで許したなんて思わないでよね」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「……して良いことと悪いことの区別くらいちゃんとつけておきなさいよ、ほんとにもう」
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K61_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
IF GETBIT (CFLAG:1610,0)
	LOCAL = 0
	CLEARBIT CFLAG:1610,0
ENDIF
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF GETBIT(CFLAG:61:1614,0) && !GETBIT(CFLAG:61:1614,1)
			PRINTFORML 「輝夜に勝ったんだって？　私も見てみたかったな」
			PRINTFORML 「ま、なにはともあれ」
			SETBIT CFLAG:61:1614,1
		ENDIF
		IF 陥落状態() >= 4
			PRINTFORML 「いらっしゃい、%MASTERNAME:61%」
			PRINTFORML 「近すぎないかって？　愛しの君の側に近寄るのは当然のことだよね」
			PRINTFORML 「ちゅっ、これでいい？　良いなら、頭撫でてほしいなぁ」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「ねえ、することは解ってるよね？」
			PRINTFORML 「ん……、他人の体温って凄く安心するね」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「ああ、いらっしゃい。さあ、ナニをしようかな」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「良く来たね、暇だったら話でもしようか」
		ELSE
			PRINTFORML 「ああ、%CALLNAME:MASTER%か。どうも」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF GETBIT(CFLAG:61:1614,0) && !GETBIT(CFLAG:61:1614,1)
			PRINTFORML 「輝夜に勝ったんだって？　私も見てみたかったな」
			PRINTFORML 「ま、なにはともあれ」
			SETBIT CFLAG:61:1614,1
		ENDIF
		IF 陥落状態() >= 4
			PRINTFORML 「%MASTERNAME:61%、こっちにきて」
			PRINTFORML 「ちゅっ、ちゅっ……ん、美味しい、ごちそうさま」
			PRINTFORML 「%MASTERNAME:61%の顔をみたらガマンできなくなったんだもの」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「あ、%CALLNAME:MASTER%。……ぎゅっ」
			PRINTFORML 「苦しい？　別にいいじゃない、抱き付くくらい」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「押し倒したい？　押し倒されたい？　私はどちらでも良いよ」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「あ、丁度%CALLNAME:MASTER%のところにいくつもりだったんだよね」
		ELSE
			PRINTFORML 「あ、ん、どうも」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF 陥落状態() >= 4
			PRINTFORML 「あ、%MASTERNAME:61%……、うふふ、そうやって見られるの、凄く嬉しい」
			PRINTFORML 「どうせだったら、このまま洗いっこしたいなぁ」
			PRINTFORML 「そのあとも、ね？」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「ねえ、こうやってお互いの裸身を見せ合えるのって良いよね」
			PRINTFORML 「お触り禁止、なんてね。そうなったら%CALLNAME:MASTER%には辛いだろうけど」
		ENDIF
		IF GETBIT(CFLAG:61:1614,0) && !GETBIT(CFLAG:61:1614,1)
			PRINTFORML 「ところで、輝夜に勝ったって聞いたけど、本当？」
			PRINTFORML 「へぇ、ホントなんだ。なにはともあれ、お疲れさま」
			SETBIT CFLAG:61:1614,1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF 陥落状態() == 2
			PRINTFORML 「……あ、ちょっと見取れてただけだから、また後でね」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「っ！　あ、ご、ごめん、すぐ出て行くから」
		ELSE
			PRINTFORML 「……」
		ENDIF
		IF GETBIT(CFLAG:61:1614,0) && !GETBIT(CFLAG:61:1614,1)
			PRINTFORML 「あ、一つ聞きたいんだけど、輝夜に勝ったって本当？」
			PRINTFORML 「よく勝てたね」
			SETBIT CFLAG:61:1614,1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF 陥落状態() == 2
			PRINTFORML 「%CALLNAME:MASTER%のことは嫌いじゃないけど、出て行ってくれるよね？」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「……ん、ごめん。一人で入りたいから」
		ELSE
			PRINTFORML 「……出て行ってくれるかな」
		ENDIF
		IF GETBIT(CFLAG:61:1614,0) && !GETBIT(CFLAG:61:1614,1)
			PRINTFORML 「……輝夜に勝ったのはすごいと思うけど、ね」
			SETBIT CFLAG:61:1614,1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF 陥落状態() >= 4
			PRINTFORML 「%MASTERNAME:61%、一人で出掛けるのは危ないってば」
			PRINTFORML 「……そりゃ、私だって%MASTERNAME:61%と会いたいけどさ」
			PRINTFORML 「あんまり心配させないでほしいな」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「あ、%CALLNAME:MASTER%。わざわざ来てくれたの？」
			PRINTFORML 「会いに来てくれた？　それは嬉しいけど、この辺は危ないんだからね」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「わざわざ来てくれたんだ？　危ないことはしないでほしいけど、うれしいな」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「一人でこんなところまで来るのは危ないよ」
		ELSE
			PRINTFORML 「危ないって言ってるのに」
		ENDIF
		IF GETBIT(CFLAG:61:1614,0) && !GETBIT(CFLAG:61:1614,1)
			PRINTFORML 「……あ、そうそう、輝夜に勝ったんだって？」
			PRINTFORML 「それだけは褒めてあげるよ」
			SETBIT CFLAG:61:1614,1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF ARG:1 == 62
			IF GETBIT(CFLAG:61:1614,0) && !GETBIT(CFLAG:61:1614,1)
				PRINTFORML 「……ふーん、負け犬」
				HTML_PRINT "「うるさいわね」"
				PRINTFORML 「弾幕ごっこで負けたあげくに連れ回されて、恥さらして楽しい」
				HTML_PRINT "「あれは、たまたま……」"
				PRINTFORML 「はいはい、負け犬の遠吠えは結構」
				SETBIT CFLAG:61:1614,1
			ELSE
				PRINTFORML 「……そんな性悪といたいなんて、頭大丈夫？」
				HTML_PRINT "「あなたにそう言われる筋合いはないわね」"
				PRINTFORML 「……ふん、今日は見逃してやるよ」
				HTML_PRINT "「それはこちらのセリフ」"
				PRINTFORMDL 『ふふ、ふふふふふふ』
			ENDIF
		ELSEIF 陥落状態() >= 4
			PRINTFORML 「へぇ、ほかの人とデート？　良い身分だね」
			PRINTFORML 「恋人放っておいて、お妾さんといちゃつきたいんだ？」
			PRINTFORML 「まあ、好きにすればいいよ。私が一番だってことに変わりは無いしね」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「ふーん、%CALLNAME:MASTER%も好きだねぇ」
			PRINTFORML 「……ま、いいよ、好きにすれば」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「好き者って、%CALLNAME:MASTER%のための言葉だね、私だけじゃ全然足らないんだ？」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「あ、ほかの子と一緒なんだ。仲がよくて良いね」
		ELSE
			PRINTFORML 「デート中なんだね、邪魔しちゃ悪いか」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K61_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
			IF !RAND:2
				IF 陥落状態() >= 4
					PRINTFORML 「おはよう、%MASTERNAME:61%」
					PRINTFORML 「可愛い寝顔だね。もっと見ていたかったかも」
					PRINTFORML 「あはは、なんで照れるかな。もっと可愛い顔も見てるのに」
				ELSEIF 陥落状態() == 3
					PRINTFORML 「おはよう、%CALLNAME:MASTER%」
					PRINTFORML 「気持ち良さそうに寝てるんだね」
				ENDIF
			ELSE
				IF 陥落状態() >= 4
					PRINTFORML 「おはよう、%MASTERNAME:61%」
					PRINTFORML 「ふふ、可愛い寝顔だったよ。もっと見ていたかったなぁ」
					PRINTFORML 「ハズカシい？　ふふ、いつも私のハズカシいところを見てるんだからお互い様」
				ELSEIF 陥落状態() == 3
					PRINTFORML 「おはよう、%CALLNAME:MASTER%」
					PRINTFORML 「ふふ、こういうのも良いもんだね」
				ENDIF
			ENDIF
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF 陥落状態() >= 4
				PRINTFORML 「おはよう、%MASTERNAME:61%」
				PRINTFORML 「けど、こんな簡単に他人が入れるようなのはどうかと思うよ？」
				PRINTFORML 「いくら時を止められても、寝てる最中には無理でしょ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「おはよう、%CALLNAME:MASTER%」
				PRINTFORML 「相変わらず良い寝顔だよね。……バカにしてるんじゃなくて、褒めてるんだけど」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「おはよう%CALLNAME:MASTER%、……ふふ、朝からシタい？　私はいいよ」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「おはよう%CALLNAME:MASTER%、戸締まりくらいはちゃんとしないとダメだよ」
			ELSE
				PRINTFORML 「おはよう」
			ENDIF
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「うふふ、おはよう、%MASTERNAME:61%」
			PRINTFORML 「可愛い顔してるね。ほんといくら見てても見飽きない」
			PRINTFORML 「……もう、悪い意味じゃなくて、良い意味で言ってるんだけど」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「おはよう、%CALLNAME:MASTER%」
			PRINTFORML 「ほら、身支度整えて、\@ TALENT:MASTER:性別 == 2 ? 格好い # 可愛 \@いところ見せて」
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF 陥落状態() >= 4
			PRINTFORML 「……ん……やぁ……いっ……ちゃ、やぁ……」
			PRINTFORML 「んっ……すー……すー、えへへ……%MASTERNAME:61%すきぃ」
			PRINTFORML 「おてて……にぎ…………て…………えへへ……」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「くー……すー……ゆるし……て……ゆる……」
			PRINTFORML 「……ん、……ゆる、し……てくれ……るの？」
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF 陥落状態() >= 4
				PRINTFORML 「…………おはよう、%MASTERNAME:61%」
				PRINTFORML 「……恋人だし、文句は言う気はないけど」
				PRINTFORML 「ずっと寝顔見られてたかと思うと、ハズカシい」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「……おはよう、%CALLNAME:MASTER%」
				PRINTFORML 「なんで、勝手に家に入り込んできてるかなぁ」
			ENDIF
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF 陥落状態() >= 4
				PRINTFORML 「……おはよう、%MASTERNAME:61%」
				PRINTFORML 「ああ、目が醒めた時に、愛しの君がいるなんて、なんて素敵なんだろう」
				PRINTFORML 「……幸せすぎて、すこし怖い」
			ELSE
				PRINTFORML 「……%CALLNAME:MASTER%、おはよう」
				PRINTFORML 「起きたときに見知った顔がすぐ側にあるって、なんだかくすぐったいね」
			ENDIF
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:MASTER:現在位置 != CFLAG:311
			IF CFLAG:MASTER:311 != CFLAG:311
				IF 陥落状態() >= 4
					PRINTFORML 「それじゃ、私はそろそろ自分の部屋に戻るね」
					PRINTFORML 「本当は同じ部屋で寝起きしたいんだけど」
					PRINTFORML 「気が変わったら、私は何時でもいいよ。お休み、%MASTERNAME:61%。ちゅっ」
				ELSE
					PRINTFORML 「おやすみ、%CALLNAME:MASTER%」
					PRINTFORML 「あ、これを忘れるところだったね。ちゅっ」
				ENDIF
			ELSE
				IF 陥落状態() >= 4
					PRINTFORML 「それじゃ、私は先に帰るけど、早く帰ってきて欲しいなぁ」
					PRINTFORML 「ふふ、%MASTERNAME:61%がいたら、胸がドキドキして眠れなくなりそうだけど」
					PRINTFORML 「お休み、%MASTERNAME:61%」
				ELSE
					PRINTFORML 「私は先に帰るから」
					PRINTFORML 「%CALLNAME:MASTER%も早く帰ってきてね」
				ENDIF
			ENDIF
		ELSEIF CFLAG:MASTER:現在位置 == CFLAG:311
			IF 陥落状態() >= 4
				PRINTFORML 「お休みなさい」
				PRINTFORML 「横になるときに、%MASTERNAME:61%が居てくれて、凄く嬉しい」
				PRINTFORML 「ちゅっ、だから、これはお礼」
			ELSE
				PRINTFORML 「おやすみ%CALLNAME:MASTER%」
				PRINTFORML 「以前はこうして横になることも無かったんだけどね、ちゅっ」
			ENDIF
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「ふぁ……ん、%MASTERNAME:61%と、喋るのも楽しい、けど、眠らせてほしい」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「ん……、悪いけど眠らせてくれないかな」
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF CFLAG:添い寝中
			PRINTDATA
				DATAFORM 「……、\@ 陥落状態() >= 4 ? %MASTERNAME:61% # %CALLNAME:MASTER% \@…………すき……」
				DATAFORM 「……いかな……い…………で……」
				DATAFORM 「……はな……さな……で……」
				DATAFORM 「……おね……がい…………しな……」
				DATAFORM 「ん……すー……くー…………」
				DATAFORM 「くー……すー……だめ……くー……もっとぉ……」
			ENDDATA
		ELSE
			PRINTDATA
				DATAFORM 「……ゆる、……して、…………ゆる……」
				DATAFORM 「……ははう……え…………ごめ……」
				DATAFORM 「……こない……で、だ、め……こんな……」
				DATAFORM 「……みない、で……ちがう…………人間なの……」
				DATAFORM 「ごめ……んな……さい…………ごめ……」
				DATAFORM 「ちち……うえ……どう……し……」
			ENDDATA
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF 陥落状態() >= 4
			PRINTFORML 「……ごめん……なさい、もう無理……」
			PRINTFORML 「%MASTERNAME:61%に、送って……欲しい……」
			PRINTFORML 「ありがと、……ふふ、だっこされるの……嬉、し……い……くぅすぅ……」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「……ふぁ……もう、無理……」
			PRINTFORML 「送って……くれる、……よね？　……ありがと……」
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF 陥落状態() >= 4
			PRINTFORML 「もう無理？　……ん……、少ししんどいけど」
			PRINTFORML 「安心して、ちゃんと、へやまで、おくって」
			PRINTFORML 「ふぅふぅ……、だ、だいじょうぶ、だから、だまって」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「せめて……、自分の足で歩いて……」
			PRINTFORML 「はぁ、はぁ……、しんどい」
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			IF 陥落状態() >= 4
				PRINTFORML 「……ん、ふふ……、%MASTERNAME:61%も一緒に寝る？」
				PRINTFORML 「みせつけ、てるん、だけどねぇ」
				PRINTFORML 「それじゃ、おやすみ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「ふぁ……、なんで、ウチにいるん、だか」
				PRINTFORML 「それじゃ、おやすみ……」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF 陥落状態() == 2
				PRINTFORML 「今日はそういう気分じゃないの、帰ってくれるかな」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「……勝手に入らないでくれる？」
			ELSE
				PRINTFORML 「…………出てって」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF 陥落状態() >= 4
				PRINTFORML 「…………あのさ、%MASTERNAME:61%」
				PRINTFORML 「わざわざ私の部屋で他の人とＨなんてしないでくれる？」
				PRINTFORML 「……それじゃ、私は寝るけど、いい加減にしないと怒るからね」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「……邪魔、……不機嫌そうに見えるんじゃなくて、不機嫌なの」
				PRINTFORML 「わざわざ他人のウチでＨなんかしないで」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		IF 陥落状態() >= 4
			PRINTFORML 「休ませてくれるんだ、ありがとう%MASTERNAME:61%」
			PRINTFORML 「……でも、ここまで、Ｈなことするのも、どうかとおもう」
			PRINTFORML 「ふふ、冗談だよ。%MASTERNAME:61%とＨするのも好きだからさ」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「ん……、それじゃ、%CALLNAME:MASTER%の言葉に甘えるね」
			PRINTFORML 「他の人に迷惑かもしれないけどさ」
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF 陥落状態() >= 4
			PRINTFORML 「もう、げんかい…………」
			PRINTFORML 「%MASTERNAME:61%……、そばに……いて……」
			PRINTFORML 「おやす、み…………くーすー」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「……あふ……、おや、すみ……」
			PRINTFORML 「……すー…………すー」
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続（この口上では接続させない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF 陥落状態() >= 4
			PRINTFORML 「あれ、%MASTERNAME:61%、用事があったんじゃ？」
			PRINTFORML 「……ふふ、私の方が大事なんて言って、後で怒られるんじゃない？」
			PRINTFORML 「でも、嬉しい。ありがとう%MASTERNAME:61%」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「あ、%CALLNAME:MASTER%。わざわざ立ち止まらなくても」
			PRINTFORML 「え？　私と話がしたい？　ありがとう、嬉しい」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「わざわざ立ち止まるって、ナニがしたいのかな？」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「ん、何か用？　付き合ってあげても良いけど」
		ELSE
			PRINTFORML 「……ん？　用事？」
		ENDIF
		PRINTFORML
		SETBIT CFLAG:1610,0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「%MASTERNAME:61%、どこに行くの？」
			PRINTFORML 「へぇ、それは恋人をおいていくほど大事？」
			PRINTFORML 「ふふ、ただの冗談。%MASTERNAME:61%の邪魔をする気は無いから」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「行ってらっしゃい、%CALLNAME:MASTER%」
			PRINTFORML 「あとでちゃんと埋め合わせはして貰うけどね」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「え？　シテいかないの、勿体ないなぁ」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「あ……、お疲れ様、気を付けてね」
		ELSE
			PRINTFORML 「ん、お疲れ様」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF 陥落状態() >= 4
			PRINTFORML 「恋人無視してまで行かないといけないんだ？」
			PRINTFORML 「今度は私が無視しても良いよね」
			PRINTFORML 「……なんてね」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「ちょっと、%CALLNAME:MASTER%」
			PRINTFORML 「……私、怒らせるようなこと、したかな」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「むー、シタいシタくない以前に無視されるのはなんか腹立つ」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「あ……、私には興味ない、か」
		ELSE
			PRINTFORML 「……ふーん」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;輝夜が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 62
		IF 陥落状態() >= 4
			PRINTFORML 「ふふ、%MASTERNAME:61%と居られるのはほんと素敵」
			PRINTFORML 「しっし、あっち行け。だから、こっち来るなってば」
			PRINTFORML 「……ちぇっ、輝夜、後で覚えてろ」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「%CALLNAME:MASTER%、もっと、って輝夜」
			PRINTFORML 「……うるさい、こっち来るなバカ」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「ねえ、次はナニをシヨうか……、げ、輝夜」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「はぁ……、輝夜、邪魔」
		ELSE
			PRINTFORML 「輝夜か……」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;慧音が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 67
		IF 陥落状態() >= 4
			PRINTFORML 「ふふ、%MASTERNAME:61%と居られるのはほんと素敵」
			PRINTFORML 「あ、け、慧音。え、えと、その……」
			PRINTFORML 「……そのあの、こ、恋人同士だから、でも、その」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「%CALLNAME:MASTER%といられるのって、ステキだよね……、あ、慧音」
			PRINTFORML 「あ、いや、その、うん……」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「もっと、良いことしようよ、け、慧音」
			PRINTFORML 「……えと、その遠慮するような表情、やめてってば」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「慧音、あ、その」
		ELSE
			PRINTFORML 「あ、慧音」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他のキャラが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1
		PRINTFORML 「今はここまでかな」
		RETURN 1
	ENDIF
	;その他（キャラ指定なし
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF 陥落状態() == 2
			PRINTFORML 「あ、ヒドい、私もシテほしいのに」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「ん……、みせつけないでよ」
		ELSE
			PRINTFORML 「……っ……な、なにしてるんだか」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF 陥落状態() >= 4
			PRINTFORML 「はぁ……、私だけって訳にいかないのは解ってるけど」
			PRINTFORML 「流石に不愉快だし、混ざっても良いよね」
			PRINTFORML 「%MASTERNAME:61%の返事は『はい』以外、無いけどね」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「楽しそうだね、私も混ざっても良いかな？」
			IF ARG == 62
				PRINTFORML 「輝夜のだらしない顔は見物だろうし」
			ELSEIF ARG == 67
				PRINTFORML 「慧音のステキな表情を見てみたいし」
			ELSE
				PRINTFORML 「すこし、うら……しぃ、あ、何でも無いから」
			ENDIF
		ELSE
			PRINTFORML 「……楽しそうだね、混ぜて貰おうかな」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF 陥落状態() == 1
			PRINTFORML 「ご、ごめん、……はぁ」
		ELSE
			PRINTFORML 「……人目のあるところではどうかと思うけど」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF 陥落状態() >= 4
			PRINTFORML 「……ふふ、%MASTERNAME:61%、もっと、って、あれ？」
			PRINTFORML 「……えーと、流石に見られたままする趣味はないよ」
			PRINTFORML 「ほら、早く着替えて」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「ん、ふぁ……、良いよ、んくっ……って」
			PRINTFORML 「こここここれでおしまいっ！」
		ELSE
			PRINTFORML 「気持ち、良い……、って人が来たね。これでおしまいだね残念」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF 陥落状態() == 3
			PRINTFORML 「……ん、まあ、しょうがないよね」
			PRINTFORML 「%CALLNAME:MASTER%が魅力的なのは事実だし」
		ELSE
			PRINTFORM 「はい、どうぞ。
			IF ARG == 62
				PRINTFORML 場所を分けてあげるんだから、拝み倒しなさい」
			ELSEIF ARG == 67
				PRINTFORML 慧音と一緒にって、なんか恥ずかしいけど」
			ELSE
				PRINTFORML まあ、私だけのモノって訳じゃないしね」
			ENDIF
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF 陥落状態() >= 4
			PRINTFORML 「ふふ、邪魔者はいなくなったし、もっとつづきしよ？」
			PRINTFORML 「%MASTERNAME:61%は、あの子ともしたかった？」
			PRINTFORML 「なら、私が居ないときにすればいいんじゃないかな」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「それじゃ、続きだね」
			PRINTFORML 「……私だけじゃ不満？」
		ELSE
			PRINTFORML 「続き、しよ？」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF 陥落状態() >= 4
			PRINTFORML 「ん？　動かないで……、これはなに？」
			PRINTFORML 「まったく、中身よりパンツの方がいいなんて」
			PRINTFORML 「中身はいつでも触れるからこっちがいい？　変態」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「はい、動かないで……、まったくこんなのどうして持ってるのよ」
			PRINTFORML 「まったく、変態なんだから」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「どうしてこんなモノを……、中身の方が大事じゃない？」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「あー、うん、流石にこんなのを持ち歩くのはどうかと思うよ」
		ELSE
			PRINTFORML 「うわ……、とりあえず没収」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF 陥落状態() >= 4
				PRINTFORML 「大好きだよ、%MASTERNAME:61%。だからいいでしょ」
				PRINTFORML 「%MASTERNAME:61%が魅力的なのがいけないんだし」
				PRINTFORML 「ふふ、美味しそう……、きもちよくなろ？」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「%CALLNAME:MASTER%が魅力的すぎるのがいけない」
				PRINTFORML 「それじゃ、いただきます」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「ふふ、気持ち良く、シテあげるよ」
			ELSEIF CFLAG:弱み握り
				PRINTFORML 「動かないでよ、私が気持ち良くなりたいんだから」
			ENDIF
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF 陥落状態() >= 4
				PRINTFORML 「動いちゃダメだからね」
				PRINTFORML 「うふふ、%MASTERNAME:61%は温かいね」
				PRINTFORML 「それじゃ、しばらくこのまま」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「ぎゅっ、と。……いや？」
				PRINTFORML 「女の子同士だし、これくらい良いでしょ」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「Ｈもしたいけど、今はこうしたい気分なんだよね」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「……他意は無いよ。でも、すこしだけこうさせて欲しい」
			ELSE
				PRINTFORML 「……ん、特に、意味は無いよ」
			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
			IF 陥落状態() >= 4
				PRINTFORML 「もう終わり？　いや、もっとしたいよ」
				PRINTFORML 「私じゃダメ？　%MASTERNAME:61%は満足出来ない？」
				PRINTFORML 「…………ん、どうしてもダメっていうなら、ガマンする」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「もっと、しようよ。こんなに気持ちいいのに」
				PRINTFORML 「……解った。どうしてもって言うなら仕方ないね」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「え、やめる？　ふーん、私の体はお気に召さないんだ？」
			ELSEIF CFLAG:弱み握り
				PRINTFORML 「誰も止めて良いなんて言ってないけど……、しょうがないね、許してあげる」
			ENDIF
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF 陥落状態() >= 4
				PRINTFORML 「はー、たまにはこういうのもないといけないよね」
				PRINTFORML 「……%MASTERNAME:61%、その不満そうな顔は何？」
				PRINTFORML 「Ｈしたかったなら、そっちから押し倒してくれば良かったのに」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「んー、こういうのもほんと良いもんだよね」
				PRINTFORML 「%CALLNAME:MASTER%は満足できた？」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「はふ……、これはこれで素敵だね、シタくはなったけどね」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「……ん？　離れるのはダメ？　でも、もう満足したから」
			ELSE
				PRINTFORML 「ん、ありがと」
			ENDIF
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF 陥落状態() >= 4
				PRINTFORML 「……欲求不満たまりそう」
				PRINTFORML 「%MASTERNAME:61%のぬくもりをもっと感じていたいのに」
				PRINTFORML 「…………まあ、しょうがないけど」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「あ、離れたらダメ…………」
				PRINTFORML 「はぁ……、あとで埋め合わせしてもらうから」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「あ、離れないで……、あとでシテよね」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「……ちぇっ。じゃ、あとで」
			ELSE
				PRINTFORML 「………………はぁ……」
			ENDIF
			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 「……自分で言った言葉には、きっちり責任取ってもらわないとね」
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML 「……ダメだよ、私が満足するまで、離さないから」
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF 陥落状態() == 1
			PRINTFORML 「……えと、ゴメン、入ってこないで欲しい」
			PRINTFORML 「早く出て行ってくれないかな」
		ELSE
			PRINTFORML 「……さっさと出て行って」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「いらっしゃい。ふふ、このまま一緒に洗いっこする？」
			PRINTFORML 「%MASTERNAME:61%の好きにして良いんだよ」
			PRINTFORML 「ふふ、こんな時間も良いものだね」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「あ、いらっしゃい。なにそんなまじまじと見て？」
			PRINTFORML 「どうせ貧相だよ、私は……、見取れてた？　お世辞はいいから」
		ELSE
			PRINTFORML 「ふふ、ナニシに来たのかな？」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「……だれも、入って良いなんて言ってないけど」
			PRINTFORML 「恋人でも怒ることはあるんだからね」
			PRINTFORML 「さあ、さっさと向こうに行って」
		ELSE
			PRINTFORML 「……あのさ。あんな風に人を怒らせておいて、なにがしたいの？」
			PRINTFORML 「夜這いなんて言ったら、本気で怒るよ」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF 陥落状態() >= 4
			PRINTFORML 「くーすー……、%MASTERNAME:61%……、すき……」
		ELSE
			PRINTFORML 「すー、すー、ん……」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF 陥落状態() >= 4
			PRINTFORML 「ふぁ……、あ、%MASTERNAME:61%。何か用かな？」
			PRINTFORML 「もしかして夜這い？　寝てる最中にイタズラされるのは勘弁して欲しいけど」
			PRINTFORML 「ふふ、でも、来てくれて嬉しい」
		ELSE
			PRINTFORML 「ん、ああ、%CALLNAME:MASTER%か。何の用？」
			PRINTFORML 「夜這い、とか言ったら怒るよ。なんてね」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF 陥落状態() >= 4
			PRINTFORML 「……ん、……%MASTERNAME:61%？　……おやすみ」
			PRINTFORML 「……なに？　私は、ねむい、から……」
			PRINTFORML 「おやす、み…………くー……すー……」
		ELSE
			PRINTFORML 「……あふ……、ん？　%CALLNAME:MASTER%？」
			PRINTFORML 「じゃあ、いいか……、おやすみ……」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		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_K61_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック（=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
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		IF 陥落状態() >= 4
			PRINTFORML 「%MASTERNAME:61%って、意外に料理上手だね」
			PRINTFORML 「ふふ、それじゃいただきます」
			PRINTFORML 「ん、やっぱり美味しい」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「んー、中々美味しそう」
			PRINTFORML 「当然貰うよ、ダメだって言ってもダメだからね」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「美味しそうだね。シテも良いから貰っても良いよね」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「……美味しそう。貰っても良い？　ありがとう」
		ELSE
			PRINTFORML 「美味しそうだね、いただくよ」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「えー、もう終わりー？」
			PRINTFORML 「もっとしたいな。こんなに素敵なことなんだし」
			PRINTFORML 「…………ハマりすぎても問題あるって言うのは解ってるけど」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「もう終わり？　もっとしようよ」
			PRINTFORML 「気力体力の限界までやるからいいのに……」
		ELSE
			PRINTFORML 「終わり？　ほんとに？　こんなに気持ちいいのに？」
		ENDIF
		PRINTFORML
		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
			IF EXP:出産経験
				PRINTFORML 「あ、だめ出ちゃだめ、赤ちゃんの元でちゃダメなのに」
				PRINTFORML 「……ねぇ、もっと注いでくれない？　赤ちゃん欲しいから」
				PRINTFORML 「…………イヂワル」
			ELSEIF 陥落状態() >= 4
				PRINTFORML 「勿体ない……、れろちゅる」
				PRINTFORML 「美味しいとか美味しくないとか、味は関係ないよ」
				PRINTFORML 「%MASTERNAME:61%の精液、私の中にとどまってほしいだけだから」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「ん、垂れてきてる」
				PRINTFORML 「そんなにじっと見て愉しい？　あ、そう」
			ELSE
				PRINTFORML 「……よくコレだけ出せるもんだね」
			ENDIF
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF EXP:出産経験
				PRINTFORML 「やり直しを要求する。なんでちゃんと中に出してくれないのさ」
				PRINTFORML 「ん、おつゆばっかり垂れてくるのに、肝心の子種が足りないよ」
				PRINTFORML 「…………子供が欲しいのは事実だよ、でも、物足りないって言うのも事実なんだけど」
			ELSEIF 陥落状態() >= 4
				PRINTFORML 「はぁ……、%MASTERNAME:61%、物足りないんだけど？」
				PRINTFORML 「そりゃ、私も気持ち良くはなったけど、そっちは足りてないんじゃない」
				PRINTFORML 「ちゃんと精液オマンコに飲ませて欲しかったなぁ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「中だししないなんて、勿体ないね」
				PRINTFORML 「それとも、私の身体は気持ち良くなかった？　……そうじゃないなら良いけど」
			ELSE
				PRINTFORML 「…………ん、みないでくれる」
			ENDIF
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後のムード
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			IF 陥落状態() >= 4
				PRINTFORML 「んー、できればもっとしたかったなー」
				PRINTFORML 「いっそ気を失うくらいまで激しくさ」
				PRINTFORML 「その方が%MASTERNAME:61%に愛されてるって実感が湧くし」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「ふふ、ちょっと物足りないけど、これはこれで良いかな」
				PRINTFORML 「いつも気持ち良くしてくれてありがとう」
			ELSE
				PRINTFORML 「…………ん、お疲れ」
			ENDIF
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML 「……色気のない衣装で悪いね」
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:睡眠
			PRINTFORML 「……やぁ……いかな…………い……で」
		ELSEIF 陥落状態() >= 4
			PRINTFORML 「こうして、だらだらするのも良いけど」
			PRINTFORML 「他のことしたいなぁ」
			PRINTFORML 「ほら、%MASTERNAME:61%も体を起こして」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「大好きな%CALLNAME:MASTER%の顔を間近で見れるのは嬉しいけど」
			PRINTFORML 「そればかりじゃ飽きるしね」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K61_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 「……ねぇ、%MASTERNAME:61%。私にもさせて欲しいな」
			PRINTFORML 「こんな、やりかたじゃなくて、さ」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「んっ！？　っっ！？」
			PRINTFORML 「な、なな、なんでもないよ、なんでも」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「んぅ……、大丈夫、なんだか気持ち良かっただけ」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「あふ……、だ、大丈夫」
		ELSE
			PRINTFORML 「っっ！？　はっ……ん…………大丈夫」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「ひぁん、んきゅぅっっっ！！」
			PRINTFORML 「はっはっ……はぁ……%MASTERNAME:61%」
			PRINTFORML 「ちゃんと、愛させて欲しいよ。一方的な快楽じゃなくてさ」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「ひぅんっっ！？　ふぁぁぁんっっ！！」
			PRINTFORML 「だ、だいじょうぶ、だいじょう、んくぅっ、ふぁっっ」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「んっんっんぅぅっっっっ！！　は、はぁ、んぅ、きにしない、で、ふぁっ」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「ひっっ！　んくぅぅぅうううっっっっ！！　……はっ、はっ、んぅ……」
		ELSE
			PRINTFORML 「ひぁぁああああっっっ！？　んぅっっ！！　ひぅっ、くぅ……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF 陥落状態() >= 4
			PRINTFORML 「……%MASTERNAME:61%、欲しいならちゃんと言って欲しいな」
			PRINTFORML 「恥ずかしいけど、%MASTERNAME:61%になら、いくらでもプレゼントするのに」
			PRINTFORML 「こっそり取るのが良い？　変態」
		ELSE
			PRINTFORML 「……ん、なんで……あ、な、何でも無い」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			IF 陥落状態() >= 4
				PRINTFORML 「けほっけほっ、んくっ、けほっ……」
				PRINTFORML 「……こほ、ん、美味しくない……」
				PRINTFORML 「なんで、こういうことするかな、%MASTERNAME:61%は」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「んくっ！？　けほっけほっ、っ……けほっ」
				PRINTFORML 「……気持ち悪、何これ」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「けほっこほっっ、っくんっ、こほっ……、なんでこんなのが」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「こくんっ！　こほっこほっっ！　……なに、これ？」
			ELSE
				PRINTFORML 「こほこほっ、こく、けほっこほっ」
			ENDIF
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2 || ARG:1 == 5
			IF 陥落状態() >= 4
				PRINTFORML 「けほっけほっっ……、はぁはぁ」
				PRINTFORML 「%MASTERNAME:61%、ヒドいんじゃない？」
				PRINTFORML 「口の中に出すなんてさ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「こほっこほっ、……ん、けほっ」
				PRINTFORML 「気持ち悪……」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「けほっこほっっ……、なんでこんなのが」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「こほっこほっっ！　……なに、これ？」
			ELSE
				PRINTFORML 「こほこほっ、けほっこほっ……、けほっ……」
			ENDIF
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			IF 陥落状態() >= 4
				PRINTFORML 「けほっけほっ……もう、いい加減にしてほしいな」
				PRINTFORML 「%MASTERNAME:61%の精液で手がべとべとだよ」
				PRINTFORML 「舐めて綺麗にして。……出来ない？　なら、こんなことさせないで」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「けほっこほっ……、ん、なんでこんなものが」
				PRINTFORML 「にちゃにちゃしてるし青臭いし、好きになれない」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「こほっこほっ、ん、なんで精液が？　ぬるぬるしてる」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「こほっこほっっ！　……なに、これ？」
			ELSE
				PRINTFORML 「こほこほっ、けほっこほっ……、手にへんなのが」
			ENDIF
		;精液中毒高精飲
		ELSEIF ARG:1 == 4 || ARG:1 == 6
			IF 陥落状態() >= 4
				PRINTFORML 「こくん……美味し……、って、%MASTERNAME:61%？」
				PRINTFORML 「こう言うのはやめてくれないかな」
				PRINTFORML 「ちゃんと自分の意志で、%MASTERNAME:61%を気持ち良くさせたいんだからさ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「こく、ん……はぁ……、これ、せーえき？　……ん」
				PRINTFORML 「はぁ、ん、からだ、あつくなる……んぅ」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「こくり……、なんでこれ……、%CALLNAME:MASTER%の味がする」
			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
				PRINTFORML 「……はぁ、%MASTERNAME:61%も、ほんと好きだね」
				PRINTFORML 「マーキングされてる、って思うとイヤじゃないけど」
				PRINTFORML 「でも、やっぱり、私からさせて欲しいな」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「……っ！　なんでこんなの」
				PRINTFORML 「なんで、なんでこんな……」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「っ！？　せーえき……、だよ、ね」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「ひっ！　気持ち悪……」
			ELSE
				PRINTFORML 「ひぅっ！？　な、なな」
			ENDIF
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			IF 陥落状態() >= 4
				PRINTFORML 「……ん、%MASTERNAME:61%のせーえき」
				PRINTFORML 「ん、美味しい……、はぁ」
				PRINTFORML 「でも、出来ればちゃんとお口で、私に搾り取らせて欲しいなぁ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「ん……、美味しい……、や、だめなのに」
				PRINTFORML 「なんで、こんなに……」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「っ……、すこしだけ、れろ、ちゅぱ……ん」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「…………んっ、……ちゅる……」
			ELSE
				PRINTFORML 「……はぁ、ん、れろ……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			IF 陥落状態() >= 4
				PRINTFORML 「%MASTERNAME:61%。私の手は気持ち良かった？」
				PRINTFORML 「でも、私の意志がないのに、本当に気持ちいい？」
				PRINTFORML 「スるよりも、シて貰う方が気持ちいいと思うけどね」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「……また、これ。なんでこんなことに」
				PRINTFORML 「はぁ、ぬるぬるしてるし変な匂いだし、気持ち悪い」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「せーえき？　……はぁ、誰のイタズラなんだか」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「な、なにこれ、なんでこんなものが」
			ELSE
				PRINTFORML 「……うわ、気持ち悪い……」
			ENDIF
		;舐めとり
		ELSEIF ARG:1 == 2
			IF 陥落状態() >= 4
				PRINTFORML 「……ん、%MASTERNAME:61%のせーえき」
				PRINTFORML 「ん、美味しい……、はぁ」
				PRINTFORML 「でも、出来ればちゃんとお口で、私に搾り取らせて欲しいなぁ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「ん……、美味しい……、や、だめなのに」
				PRINTFORML 「なんで、こんなに……」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「っ……、すこしだけ、れろ、ちゅぱ……ん」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「…………んっ、……ちゅる……」
			ELSE
				PRINTFORML 「……はぁ、ん、れろ……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
			IF 陥落状態() >= 4
				PRINTFORML 「ひうっ！　お、お尻、痛い……」
				PRINTFORML 「%MASTERNAME:61%のバカ、いくらなんでもここはその」
				PRINTFORML 「……あの、……その、できるだけ、やめて、ほしいか、な」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「あぅ……く、おしり、いたい……」
				PRINTFORML 「なんで、急に……」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「んぅ、いたたたた……、なんで、ここがいたく」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「んくっ！　痛ぅ……、どうして急に、くぅ……」
			ELSE
				PRINTFORML 「ひっ！　や、痛、なんでこんなに」
			ENDIF
		;ソレ以外
		ELSEIF ARG:1 == 2
			IF 陥落状態() >= 4
				PRINTFORML 「ふぁっ、んっ……、%MASTERNAME:61%のばかぁ」
				PRINTFORML 「ここはだめだってばぁ……、きもち良すぎて、ばかになっちゃう、んだからさ」
				PRINTFORML 「……せめて、意識があるときに、してほしいな」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「んぅっ！！　…………あ、これ……」
				PRINTFORML 「あふ、んくっ……、やぁ、どうして」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「んっ！　……は、っ、はぁっ……お尻、おかしくなりそう」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「んぅっっ！？　や、なんで、ここ、……っ」
			ELSE
				PRINTFORML 「ひんっ！！　んっっ！　くぅっ……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		IF 陥落状態() >= 4
			PRINTFORML 「%MASTERNAME:61%のバカ、やるならちゃんとした形でしてよ」
			PRINTFORML 「%MASTERNAME:61%の能力のこともあるし、しょうが無いかもとは思ってたけど」
			PRINTFORML 「でも、やっぱり初めてがこう言う形ってのは、不愉快」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「……ん、痛ぅ。どこかにぶつけた記憶は、ないんだけど」
			PRINTFORML 「でも、ココが痛むなんて、無かったのに」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「痛っ！　……あれ、なんでこんなところが？」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「くっ……、なんだろ、この痛み……、こんなの初めてだ」
		ELSE
			PRINTFORML 「痛ぅ……、なんで、こんな痛むんだろ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
			IF EXP:出産経験
				PRINTFORML 「……あ、せーえき来てる」
				PRINTFORML 「あかちゃん、出来ると良いなぁ」
				PRINTFORML 「あかちゃん、もう一度、わたしの赤ちゃん」
			ELSE
				IF 陥落状態() >= 4
					PRINTFORML 「……はぁ、%MASTERNAME:61%。どうせ出来ないのに出して楽しい？」
					PRINTFORML 「そりゃ、%MASTERNAME:61%の精液、中に出されること自体は好きだけど」
					PRINTFORML 「ちゃんとお互いの気持ちが通じてるって感じが好きなだけだし」
				ELSEIF 陥落状態() == 3
					PRINTFORML 「…………はぁ、なんで中に入ってるんだろ」
					PRINTFORML 「出された覚えはないんだけどなぁ」
				ELSEIF 陥落状態() == 2
					PRINTFORML 「むー、なんでこれが……、どうやってるんだろ、一体」
				ELSE
					PRINTFORML 「……中に出されてないのに」
				ENDIF
			ENDIF
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
			IF 陥落状態() >= 4
				PRINTFORML 「……ん、なにか、違和感が」
				PRINTFORML 「……%MASTERNAME:61%何かしたでしょ？」
				PRINTFORML 「何をしたか解らないけど、恋人なんだから、ちゃんとした形でしてほしいよ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「……ん、なに？　なにか変な感じが」
				PRINTFORML 「濡れてる、のかな？　そんな気分じゃない筈だけど」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「んっ……、なんで、中に何か」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「……んく、……なに、何が」
			ELSE
				PRINTFORML 「んぅ……、なんかぬるぬるする……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML 「……？」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K61_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K61_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF GETBIT(1610,5)
			IF 陥落状態() >= 4
				PRINTFORML 「いいの？　ほんとに？」
				PRINTFORML 「は、はは、自分からお願いに来てるのに、何言ってるんだろ」
				PRINTFORML 「……あれ、嬉しいだけ、なのに、また」
				PRINTFORML 「あ、う、……はは、%MASTERNAME:61%と知り合ってから、泣いてばかりだ」
				PRINTFORMW 「ぐす、ひくっ……、嬉しくても、すん……泣けるんだね」
			ELSE
				PRINTFORML 「ありがと、嬉しいよ」
				PRINTFORML 「はは、人と触れ合えるのが嬉しいなんて、思える様になるなんてね」
				PRINTFORML 「ははは、…………あれ、なんでだろ？　……涙が」
				PRINTFORMW 「…………っ、はぁ……もう、枯れきってた筈なのに、ね」
			ENDIF
		ELSE
			IF 陥落状態() >= 4
				PRINTFORML 「本当に%MASTERNAME:61%は身勝手だね」
				PRINTFORML 「私をここにおいたと思ったら、別の場所に引っ越すんだから」
				PRINTFORML 「どうせだったら、私の家に来れば良いのにさ」
				PRINTFORMW 「……でも、毎日%MASTERNAME:61%と顔を合わせられるんだから、文句を言っちゃいけないよね」
			ELSE
				PRINTFORML 「はぁ、どうして、そう%CALLNAME:MASTER%はふらふらしてるんだか」
				PRINTFORMW 「どうせだったら、私のところに住みに来れば良いのに」
			ENDIF
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「そうだよね。私なんかよりもふさわしい相手がいるだろうし」
		PRINTFORML 「でも、これからも応（おとな）うことくらいは、許してくれるよね？」
		PRINTFORML 「我が侭言ってゴメン」
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K61_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF 陥落状態() >= 4
			PRINTFORML 「それじゃ、そろそろ帰ろうかな」
			PRINTFORML 「%MASTERNAME:61%が、住み込むのを許してくれないししょうがないよね」
			PRINTFORML 「出来たら、一緒に居たいけどさ」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「ふぅ、それじゃそろそろ帰るかな」
			PRINTFORML 「出来ればもっと一緒に居たいところだけどね」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「もう、終わりか。ちぇっ、もっとシたかったなぁ」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「ん、もう帰る時間だ、それじゃまた」
		ELSE
			PRINTFORML 「帰る時間だし、失礼する」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「さて、そろそろ時間だし、帰ってもらおうかな」
			PRINTFORML 「本当は、ずっと一緒に居たいんだけどね」
			PRINTFORML 「それじゃ気を付けて帰ってね、%MASTERNAME:61%」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「ん、そろそろ時間だね」
			PRINTFORML 「帰るときは気を付けた方が良いよ」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「ほんとはもっとシたいけど、時間だしね。気を付けて帰りなよ」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「夜道には気を付けるんだよ」
		ELSE
			PRINTFORML 「危険だから、帰路につくなら用心を怠るんじゃないよ」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K61_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「……はは、参ったね」
		PRINTFORML 「まさか、私がこんな気持ちになるなんて」
		PRINTFORML 「人を好きになる、か……」
		PRINTFORML 「私には許されることじゃない」
		PRINTFORML 「けど、……けど、抑えきれないや」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「ふふ、なかなか面白いな、あいつ」
		PRINTFORML 「輝夜とやり合うのと、同じくらい楽しいかも」
		PRINTFORML 「……ふふ、ふふふ」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K61_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		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 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF 陥落状態() >= 4
			PRINTFORML 「%MASTERNAME:61%……、してほしいよぉ」
		ELSE
			PRINTFORML 「身体熱い……、けど、我慢」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
		;暫定
		IF 陥落状態() >= 4
			PRINTFORML 「はぁ、はぁ、んっ！　%MASTERNAME:61%、ほし、いっ」
			PRINTFORML 「あんっ、くぅっ！　ふぁんっ！！」
			PRINTFORML 「%MASTERNAME:61%、もっと、もっとっふぁあああっっっ！！」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「んくぅっ、ふぁんっ！！　ひぁ、あふんっ！」
			PRINTFORML 「はぁはぁ、熱い、あついよ、あんっ！」
		ELSEIF 陥落状態() == 2
			PRINTFORML 「ふあっ、あふっ！　もっと、ほしい、のにぃっ！」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「んっ、んっ、んぅ……、だめ……っ、んっ」
		ENDIF
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K61_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF 陥落状態() == 2
			PRINTFORML 「せめて、一緒に入りたいって思わせる程度のことはしてほしいな」
		ELSEIF 陥落状態() == 1
			PRINTFORML 「だ、だめだから、いくら何でもまだそんな」
		ELSE
			PRINTFORML 「……はぁ、もっと仲が良い相手と入れば？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF 陥落状態() >= 4
			PRINTFORML 「ふふ、%MASTERNAME:61%とお風呂か、良いね」
			PRINTFORML 「あ、そうそう、Ｈなお触りはなしだからね」
			PRINTFORML 「どうしてもガマンが出来ないって言うなら、仕方ないけど」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「%CALLNAME:MASTER%も好きだねぇ。ま、私も嫌いじゃないけど」
			PRINTFORML 「で、私の裸、綺麗？　貧相とか言ったら、怒るけどね」
		ELSE
			PRINTFORML 「うん、良いよ。私の裸なんて面白くもないだろうけど」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K61_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF 陥落状態() >= 4
			IF EXP:出産経験
				PRINTFORML 「ねえ、%MASTERNAME:61%、また赤ちゃんが来てくれたよ」
				PRINTFORML 「ありがとう、%MASTERNAME:61%じゃなきゃ、きっときてくれなかったよ」
				PRINTFORML 「そんなことない？　うぅん、そんなことあるよ」
				PRINTFORML 「%MASTERNAME:61%じゃなければ、きっと性行為を求めたりなんてしなかったもの」
			ELSE
				PRINTFORML 「あ……、ねぇ、%MASTERNAME:61%。ふふ、ありがとうね」
				PRINTFORML 「急にどうしたって、赤ちゃんが、来てくれたからね」
				PRINTFORML 「ふふ、うふふふ、嬉しい。すごく嬉しいよ」
				PRINTFORML 「赤ちゃん、私の赤ちゃん、ふふ、うふふふふふ」
			ENDIF
		ELSE
			IF EXP:出産経験
				PRINTFORML 「ふふ、嬉しい。また来てくれんだ。ありがとう」
				PRINTFORML 「あ、%CALLNAME:MASTER%もありがとね」
				PRINTFORML 「おまけみたいに言われたくない？　ごめん、でも、この子が来てくれて嬉しいから」
				PRINTFORML 「……こんなに幸せになって良いのかなぁ」
			ELSE
				PRINTFORML 「ふふ、赤ちゃんだ、赤ちゃんが来てくれた」
				PRINTFORML 「%CALLNAME:MASTER%はどうかしらないけど、私にとっては奇跡だもの」
				PRINTFORML 「「蓬莱の薬」を飲んでから、ずっと忘れてた、うぅん、諦めてたことだもの」
				PRINTFORML 「あはは、嬉しい。嬉しいよ、……ぐす…………、なんで、嬉しいのに、涙が」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF EXP:出産経験
			PRINTFORML 「ふふ、まただ。また来てくれた」
			PRINTFORML 「……ん？　何か面白いものでも？　お腹を撫でる仕草が優しい？」
			PRINTFORML 「当然じゃない。私なんかのところに、それでも来てくれたんだもの」
		ELSE
			PRINTFORML 「ありがとう、%CALLNAME:MASTER%。おかげで、子供が出来たみたい」
			PRINTFORML 「あ、別に、何もしなくて良いよ。ふふ、赤ちゃん、私の赤ちゃん」
			PRINTFORML 「嬉しそう？　ふふ、嬉しいよ。だって有り得ないって思ってたもの」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF EXP:出産経験
			PRINTFORML 「……私を孕ませるなんて、ある意味凄いね」
			PRINTFORML 「お姉ちゃんと一緒でこの子も蓬莱人じゃないけど、幸せになって欲しいな」
		ELSE
			PRINTFORML 「……自分でもまだ信じられないけど、赤ちゃんが出来たみたい」
			PRINTFORML 「ふふ、ありがとう%CALLNAME:MASTER%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF EXP:出産経験
			PRINTFORML 「……あ、ふふ、あかちゃんだ、ふふ、うふふふふふ」
		ELSE
			PRINTFORML 「……なんだろ、なんか妙な違和感が」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K61_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF 陥落状態() >= 4
			PRINTFORML 「ふぅ、ふー、はぁ……、死ぬほど、疲れた……」
			PRINTFORML 「%MASTERNAME:61%も生んでみればわかるんじゃないかな」
			PRINTFORML 「ふふ、でもいいや。生まれてくれてありがとうね」
			PRINTFORML 「こんな私のところに来てくれて、本当にありがとう」
		ELSE
			PRINTFORML 「……はーはー…………、うまれてくれて、ありがとう」
			PRINTFORML 「……あ、%CALLNAME:MASTER%。ほら、おとーさんですよー」
			PRINTFORML 「なんで、そこで照れるかな。らしくない」
			PRINTFORML 「ふふ、赤ちゃん、私の、大事な大事な、あかちゃん」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「はぁはぁ、ふぅ…………、死ぬより、苦しい、かも」
		PRINTFORML 「でも、嬉しい。生まれてくれてありがとう、私の赤ちゃん、ちゅっ」
		PRINTFORML 「……ふふ、%CALLNAME:MASTER%も欲しい？　でもだめだからね」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「……疲れた。けど、凄く嬉しい」
		PRINTFORML 「ふふ、こんにちは、赤ちゃん。うふふ、名前どうしよっか？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「はぁ、はぁ……、んぅ……、ふふ、来てくれて、ありがとう、私の赤ちゃん」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K61_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「………………え゛？」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「ななななな何を考えてるのよ%MASTERNAME:61%！！」
				PRINTFORML 「って、逃げるなばかぁっっ！！」
				PRINTFORML 「…………はぁ……ばか」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「見るだけ見てにげるな！！」
				PRINTFORML 「……ほんとバカなんだから」
			ELSEIF 陥落状態() == 2
				PRINTFORML 「どうせだったらそのままＨしてよ、意地悪っ！！」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「…………っ、きゃぁああっっっっ！！」
			ELSE
				PRINTFORML 「きゃぁっっ！！」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「ででで、できるわけないでしょ！　このスケベっ！」
				PRINTFORML 「…………そんなに見たい？　……このＨ」
				PRINTFORML 「んっ、はぁ……、や、そんな見ないで、ってばぁ%MASTERNAME:61%のばかぁ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「む、むちゃいわないでよ、ヘンタイ」
				PRINTFORML 「……でも、そんなに、言うなら……、んっんぅ、は、はふ、んくぅ」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「さっさと出て行かないと、燃やすからねっっ！！」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「え、えと、冗談、だよね？　ね？」
				PRINTFORML 「……えと、その、……%MASTERNAME:61%にされたいと思ってたけど……」
				PRINTFORML 「でも、こんなのは、その……、ん……いい、よ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「か、帰ってってば……、って何するつもり？」
				PRINTFORML 「……そりゃ、その、この流れならそうなるかもしれないけど、でも、そんな……」
			ELSE
				PRINTFORML 「……Ｈ、スケベ、ヘンタイ、ばかぁ」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「%MASTERNAME:61%のすけべ……、はぁはぁ……、ほんとに、ん、Ｈなんだ、からぁ」
				PRINTFORML 「私がかわいいから悪い、って……、……%MASTERNAME:61%に可愛いって言われるのは、嬉しい、けど」
				PRINTFORML 「こういうのは、どうかと思うんだ、けど……、はぁ、ふぅ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「ふぅ、ふぅ……、もう、限界。ほんと、すけべ、なんだからぁ」
				PRINTFORML 「貧相な私なんかより……、あ、ごめん、しつれい、だったね……」
			ELSE
				PRINTFORML 「あ、ん…………はぁ…………は……ふ……」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「……すけべ、ばか、へんたい……、いぢわる」
				PRINTFORML 「どうせだったら、泊まっていってよ」
				PRINTFORML 「……Ｈなこと、もっとしたいんじゃないの」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「はぁ、はぁ……、ん、良かったら、泊まっていって」
				PRINTFORML 「……まだ、%CALLNAME:MASTER%と離れたくない……」
			ENDIF
		ENDIF
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K61_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「あ、%MASTERNAME:61%。良かったら、デートしない？」
				PRINTFORML 「ふふ、%MASTERNAME:61%とお出かけしたい気分なんだ」
				PRINTFORML 「どう？」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「あ、%CALLNAME:MASTER%……」
				PRINTFORML 「ねぇ、よかったら、一緒に出掛けない？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「……良かった、断られるかと思ってた」
				PRINTFORML 「%MASTERNAME:61%は気まぐれだもの、そう思われてもおかしくないでしょ」
				PRINTFORML 「それじゃ行こうか、ふふ、デートデート、すごく楽しみだよ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「ふふ、ありがと。それじゃ行こうか」
				PRINTFORML 「……嬉しいから笑顔になってるだけ」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「……ちぇっ、いぢわるなんだからさ」
				PRINTFORML 「それとも、私のこと飽きた？　嫌いになった？」
				PRINTFORML 「%MASTERNAME:61%に限って、それはないって解ってるけどね」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「はぁ、まあ、%CALLNAME:MASTER%のことだから、只の気まぐれなんだろうけど」
				PRINTFORML 「せっかくの誘いを断られるのは、あんまり良い気分じゃないね」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「ねえ%MASTERNAME:61%、立ち話もなんだし私の家で話しない？」
				PRINTFORML 「やっぱり、人目があるところってのは、ちょっと苦手だしさ」
				PRINTFORML 「%MASTERNAME:61%が嫌ならここでも良いけど」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「立ったままってのは、なんとなく疲れるね」
				PRINTFORML 「良かったら私の家に行かない？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「ありがと、%MASTERNAME:61%」
				PRINTFORML 「ふふ、これで安心してゆっくり出来るね」
				PRINTFORML 「笑顔が恐い？　ふふ、気のせいだよ」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「それじゃ、行こうか」
				PRINTFORML 「ああ、それから、お楽しみは家に着いてからだからね」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「じゃ、しょうが無いか」
				PRINTFORML 「%MASTERNAME:61%にべたべた甘えたかったのになぁ」
				PRINTFORML 「ここでなんて出来ないからね」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「疲れないの、大丈夫？」
				PRINTFORML 「まあ、%CALLNAME:MASTER%が良いなら構わないけど」
			ENDIF
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K61_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
				IF 陥落状態() >= 4
					PRINTFORML 「相変わらず、%MASTERNAME:61%の体は\@ TALENT:性別 == 2 ? 格好いい # 綺麗 \@だね」
					PRINTFORML 「……私の方は相も変わらず貧相だけどさ」
					PRINTFORML 「…………こんな貧相な体でも、喜んでくれて、嬉しい」
				ELSEIF 陥落状態() == 3
					PRINTFORML 「貧相な体でごめんね」
					PRINTFORML 「それでも綺麗なんて、言ってくれるの、%CALLNAME:MASTER%くらいだね」
				ELSEIF 陥落状態() == 2
					PRINTFORML 「……ん、見られるの、ハズカシいね。貧相だもの」
				ELSEIF 陥落状態() == 1
					PRINTFORML 「…………こんな貧相な体見て、楽しい？」
				ELSE
					PRINTFORML 「………………はぁ」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
				IF 陥落状態() >= 4
					PRINTFORML 「えーと、ブラはつけたまま、下は裸って、ハズカシいんだけど」
					PRINTFORML 「……おっぱい小さいからオマンコだけ見たいってわけ？」
					PRINTFORML 「そうじゃないならどうしてこんな……」
				ELSEIF 陥落状態() == 3
					PRINTFORML 「……ま、胸には自信ないから、こういうのも有りだとは思うけど」
					PRINTFORML 「……でも、ブラはつけて下は脱げって、すごいヘンタイっぽいね」
				ELSEIF 陥落状態() == 2
					PRINTFORML 「貧相な胸よりは、こっちの方を堪能したい？　スケベだね」
				ELSE
					PRINTFORML 「……ヘンタイ」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
				IF 陥落状態() >= 4
					PRINTFORML 「……おっぱいみたいの？」
					PRINTFORML 「そんなに自信ないから、これあんまり好きじゃないんだけど」
					PRINTFORML 「なんか、すごくスケベな格好してる気がするし」
				ELSEIF 陥落状態() == 3
					PRINTFORML 「裸Ｙシャツはいいものだ？」
					PRINTFORML 「……相変わらず、ヘンタイだね。ま、付き合う私も大概だけどさ」
				ELSEIF 陥落状態() == 2
					PRINTFORML 「ふふ、こんな格好が良いなんて、変な人だね」
				ELSE
					PRINTFORML 「……バカ？」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;パンツちょうだい
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

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

;==================================================
;相手が押し倒しを解除
;==================================================
@M_KOJO_EVENT_K61_30(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
	;満足して解放
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

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

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

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

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

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

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

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

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

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

repo_name: akadiya/eratw

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

license: unknown