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・空、bit4Counterの歌のFIRST制御、bit5・住宿時の制御
CFLAG:1611 時姦経験によるファーストタイム制御
CFLAG:1612 時姦経験によるファーストタイム制御
CFLAG:1613 出産後デイリー怪我させ関連
CFLAG:1614 輝夜弾幕勝負勝利時ご褒美
%MASTERNAME:61%
[SKIPEND]
;
;
;
;******************************************************************************

;### 口上存在判定 ###################################
@M_KOJO_K61(ARG)
;別人版を作成する際はこの貂プレではなく別人版用口上貂プレをご利用ください

;口上存在判定です、けしてコメントアウトしないでください
;他の処理は一切行わないように
RETURN 1

;### 口上基本フラグ設定 #############################
@M_KOJO_FLAGSETTING_K61
;基本フラグ設定はここで行ってください
;共通の口上フラグは必要な箇所のコメントアウトを外してご利用ください
;口上専用フラグはご自由に
;Xには角色番号を入れてください

;眠姦口上有、時間停止口上有、扮演に1を入れると、それぞれ時間停止時、眠姦時、扮演時に指令口上が読み込まれるように
;入れないと時間停止時、眠姦時、扮演時は一切喋りません
;CFLAG:X:眠姦口上有 = 0
;CFLAG:X:時間停止口上有 = 0
;CFLAG:X:扮演口上有 = 0

;破瓜中止口上有に1を入れると、@M_KOJO_EVENT_KX_LOST_VIRGIN_STOPで中止の成否を操作できます
;CFLAG:X:破瓜中止口上有 = 0

;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れると、M_KOJO_EVENT_KX_PERMISSIONで推倒の成否を操作できます
;CFLAG:X:口上内抱き寄せ判定_初回 = 0
;CFLAG:X:口上内抱き寄せ判定_通常 = 0

;推倒禁止に1を入れると、主动推倒てこなくなります
;以下は恋慕か炮友がつくまで推倒てこなくなる使用例
;IF !TALENT:X:恋慕 && !TALENT:X:炮友
;	CFLAG:X:推倒禁止 = 1
;ELSE
;	CFLAG:X:推倒禁止 = 0
;ENDIF

;来訪不能に1を入れると、来訪してこなくなります
;以下は面識があるまで来訪してこなくなる使用例
;IF !CFLAG: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

;### 口上色判定 ###################################
@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 「但是心情好的话也不是不可以和你聊聊」
;竹林以外のメインMapで出会った
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 「无论如何都想和我说话的话、就到竹林或人间之里去找找看吧」
;メインMapが竹林以外かつ、竹林で出会った
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%？　你喜欢女仆Play吗？」
			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 「能不要在我的房间特意和别人做H？？」
				PRINTFORML 「……那么、我要睡觉了、不适可而止的话会生气的」
			ELSEIF 陥落状態() == 3
				PRINTFORML 「……打扰了、……这不是让人心情不快、而是情緒不愉快」
				PRINTFORML 「不要特意和别人H来打扰我」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		IF 陥落状態() >= 4
			PRINTFORML 「谢谢你让我休息%MASTERNAME:61%」
			PRINTFORML 「……但是、到现在为止、做h的事、怎么样？」
			PRINTFORML 「哈哈、開玩笑的。因为%MASTERNAME:61%喜欢H」
		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 「……ZZZ…………Zzz」
		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 「虽然也想做H、但是现在我想这样做」
			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 「如果想H的话、就把我推到就好了」
			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 「Zzz、Zzz、嗯……」
		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 「反正既然是这样的话就H吧、坏心眼！！」
			ELSEIF 陥落状態() == 1
				PRINTFORML 「…………呀、啊啊啊啊啊！！」
			ELSE
				PRINTFORML 「呀啊啊！！」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF 陥落状態() >= 4
				PRINTFORML 「做做做不到的吧！　你这个色狼！」
				PRINTFORML 「……你那么想看吗？……这个H」
				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%色狼……、哈哈……、真的、真是H啊」
				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 「……h的事情、不想要更多吗？」
			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
;-------------------------------------------------

path: ERB/口上・メッセージ関連/個人口上/【61】妹紅/M_KOJO_K61_イベント.ERB