code:
;-------------------------------------------------
; eraTheWorld 4.820用 妖夢口上
;-------------------------------------------------
;本口上文件主要包括事件类/主体说明
[SKIPSTART]
开写(
	-删除-
	妖梦是个非常保守的孩子(嗯)

	;TW妖梦原版的素质:
	;[処女　無接吻経験　自制心　保守的　無知　贞操重视　不怕痛　献身的　接受快感　C敏感　A敏感　貧乳　回復快]
	;性格倾向……

	关于心理：
	思慕前：不能接触的陌生人->普通的存在
	思慕后：试探性接触，开始不自觉地靠近主角
	非恋慕的恋人：只是在履行“在一起”的契约
	恋慕后：对主角有明确的感情，开始试着接受主角对自己做的事
	恋慕后的恋人：逐渐放开，想要主角给予自己更强的名分

	参考口上:
		(文本):
		原来的妖梦口上
			->它的参考:
			霊夢口上　萃香口上　美鈴口上
		eratohoJ的妖梦口上
			;内含一部分根据日文原文翻译(脑补)的文本
		依姬口上
		等

		(程序):
		爱丽丝口上
		等

)停笔

#整型 方法 MAIN()/{
	输出 "本妖梦口上包括以下额外内容："
	追加方法库()
	额外语句包()
	指令扩展集()
	输出 "介绍完毕，与妖梦开启新的人生吧(笑)"
	返回 1;
/}
[SKIPEND]

;**** FlagManagement **********************************************************
;本口上需要使用的CFLAG・TCVAR
;CFLAG:23:1005(初次记忆)
;	主人公对妖梦的初次记忆(扩展)
;	(bit)按位解释为：
;	-- 妖梦侧 --------------------------------------------------------------------
;	 0初见妖梦
;	 1陪同训练许可
;	 2宵禁拜访许可
;	 3协助许可
;	 4能力察觉
;	 5协助的加成
;	 6“结婚”(更进一步的名分，妖梦正式将主角视为家庭的一部分)
;	 7浮气默许
;TCVAR:351
;	额外的指令分支
;TCVAR:352
;	记录哪些话题已经讲过了
;**** MethodManagement ********************************************************
;--	来自：追加方法库 ----------------------------------------------------------
;--	来自：额外语句包 ----------------------------------------------------------
;--	指令扩展详见指令扩展集 -----------------------------------------------------
;******************************************************************************

;### 口上存在判定 ###################################
@M_KOJO_K23_1(ARG)
;別人口上判定ですX2を同キャラ口上の通し番号に置き換えてください（一つ目の別人口上なら1、二つ目の別人口上なら2
;複数の同キャラ口上が同時表示されないために必要です、必ずXXXを変更してください
RESULTS = _审查中
;初期口上とは違う事を明示するため、口上選択時に表示されます、必ずＸＸＸを変更してください
RESULTS:1 = 超保守
;口上存在判定です、けしてコメントアウトしないでください
RETURN 1

;### 口上基本フラグ設定 #############################
@M_KOJO_审查中_FLAGSETTING_K23
;基本フラグ設定はここで行ってください
;共通の口上フラグは必要な箇所のコメントアウトを外してご利用ください
;口上専用フラグはご自由に
;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

;CFLAG:23:眠姦口上有 = 1
;CFLAG:23:時間停止口上有 = 1
;CFLAG:23:扮演口上有 = 0
CFLAG:23:破瓜中止口上有 = 1
CFLAG:23:口上内抱き寄せ判定_初回 = 1
CFLAG:23:口上内抱き寄せ判定_通常 = 1

;CFLAG:押し倒し禁止に1を入れると自分から押し倒してこなくなります
;以下は恋慕かセフレがつくまで押し倒してこなくなる使用例
IF GETBIT(CFLAG:23:K23_记忆,6)
	CFLAG:23:推倒禁止 = 0
ELSE
	CFLAG:23:推倒禁止 = 1
ENDIF

;### 口上色判定 ###################################
@M_KOJO_审查中_COLOR_K23

;ここでSETCOLORすることで口上に色を付けられます
;例：SETCOLOR 0xC07070
SETCOLOR 0x3f7f88
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_审查中_UPDATE_K23
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_审查中_ENCOUNTER_K23
#DIM 信赖修正
;初対面、挨拶のタイミング
CALL M_KOJO_审查中_COLOR_K23
IF 睡眠時間(66) && (INRANGE(CFLAG:MASTER:現在位置, P621庭, P629西行妖) || CFLAG:MASTER:現在位置 == 白玉楼) && CFLAG:MASTER:現在位置 != CFLAG:MASTER:初期位置
	PRINTFORMW 「……」
	PRINTFORMDL %CALLNAME:MASTER%被横在眼前的刀刃挡住了道路
	PRINTFORMDW 大概可以用时停躲——
	PRINTFORMDW 但因为攻击实在是过于出乎意料，最终%CALLNAME:MASTER%还是被打倒在地
	PRINTFORMDW 再没有动作的话就要直接死在死人的世界了……
	PRINTFORMDL 『我……我可是\@CFLAG:66:面識 ? 幽幽子大人 # 白玉楼\@的客人啊……！』
	PRINTFORMW 「现在不接待客人，请你出去」
	PRINTFORMDW 此时，%CALLNAME:MASTER%正面对着守护这里的白发少女
	IF INRANGE(CFLAG:MASTER:初期位置, P620冥界の門, P629西行妖)
		PRINTFORMDL 『但……但我就住在这啊……？』
		PRINTFORMW 「啊？」
		PRINTFORMDW 之后%CALLNAME:MASTER%花了几分钟向少女解释了一切……
		PRINTFORMW 「这样啊……那顺便做下自我介绍吧」
		PRINTFORMW 「我是幽幽子大人的剑术导师兼庭师，魂魄妖梦」
		PRINTFORMW 「既然%CALLNAME:MASTER%成为了白玉楼新的一员，那以后就多多指教了」
		PRINTFORMW 「不过就算这样，%CALLNAME:MASTER%也不能在这个时候出来哦」
		PRINTFORMW 「白天的时候再出来吧」
		PRINTFORMDW 妖梦不顾%CALLNAME:MASTER%的反对，强行把他推到了房间
		CFLAG:MASTER:現在位置 = CFLAG:MASTER:初期位置
	ELSE
		PRINTFORMDW 在%CALLNAME:MASTER%保证立刻离开之后，少女收起了她的剑
		PRINTFORMDL 『在我离开之前……我能知道你的名字吗？』
		PRINTFORML 「为什么？」
		PRINTFORMDW 『……看什么时候……正式道个歉的时候好叫个名字……？』
		PRINTFORML 「魂魄妖梦」
		PRINTFORMW 「你现在可以滚了」
		PRINTFORMDW 被妖梦赶出了白玉楼
		IF CFLAG:MASTER:現在位置 == 白玉楼
			CFLAG:MASTER:現在位置 = 白玉楼庭
		ELSE
			CFLAG:MASTER:現在位置 = P620冥界の門
		ENDIF
		CALL INFO_RENEW_TARGET
	ENDIF
ELSEIF CFLAG:MASTER:同行 && CFLAG:66:同行
	;主人公约会/同行中
	IF CFLAG:66:同行
		;这不幽幽子吗
		PRINTW 「幽幽子大人，这位是谁？」
		RESETCOLOR
		PRINTFORMW 和幽幽子有说有笑的时候碰见了一个穿着深绿色衣服、装备着两把刀的白发少女
		PRINTFORMW 「啊啦，这是在\@ INRANGE(CFLAG:MASTER:初期位置, P621庭, P629西行妖) ? 家里 # 我家白玉楼 \@工作的妖梦哦」
		IF INRANGE(CFLAG:MASTER:初期位置, P620冥界の門, P629西行妖)
			CALL M_KOJO_审查中_COLOR_K23
			PRINTW 「对，请多多指教」
			RESETCOLOR
			PRINTFORMW 妖梦脸上露出了有些稚气的笑容
		ENDIF
		PRINTFORMW 为什么我从来都没见过她？
	ENDIF
ELSEIF CFLAG:23:行動 == 5 && BASE:23:工作量 > 0
	;工作中
	IF BASE:23:工作量 > MAXBASE:23:工作量 / 2
		;工作(买菜)中
		PRINTW 「麻烦给我这个」
		RESETCOLOR
		PRINTL 菜市场里出现了一个奇怪的大车
		PRINTW 旁边站着一个穿着深绿色衣服、手中拿着纸条的白发少女
	ELSE
		;工作(结账)中
		PRINTW 「一共就是这么多了」
		RESETCOLOR
		PRINTL 菜市场里出现了一个奇怪的大车
		PRINTW 旁边站着一个穿着深绿色衣服、正在帮忙装货的白发少女
	ENDIF
	PRINTW 在远处试探性地喊了几句
	PRINTW 少女似乎听到了声音，急匆匆地赶来了
	CALL M_KOJO_审查中_COLOR_K23
	PRINTW 「对不起，因为买的菜太多，所以就把车停在这里了」
	PRINTW 「差点忘了自我介绍了」
	PRINTL 「我是白玉楼的幽幽子大人的剑术导师兼庭师，魂魄妖梦」
	RESETCOLOR
	PRINTFORMW 妖梦脸上带着毫无警戒的笑容，对%CALLNAME:MASTER%没有任何丝毫的怀疑
	PRINTW 这真是一个能仔细打量这位少女的好机会啊
	PRINTW 但再想更靠近她的时候，一个硕大的白色块漂浮过来，隔开了两人
	CALL M_KOJO_审查中_COLOR_K23
	PRINT 「哦，这是我的半灵，你可以看作是
	FONTBOLD
	PRINT 我的一部分
	FONTREGULAR
	PRINTW 」
	RESETCOLOR
	CALL ASK_YN("摸一摸吧","保持沉默")
	IF !RESULT
		PRINTW 手一靠到半灵上面就被一股强烈的灵压推开了
		CALL M_KOJO_审查中_COLOR_K23
		PRINTW 「啊，没事吧？」
		PRINTW 「只是反应过度了……」
		RESETCOLOR
	ENDIF
	PRINTL 妖梦似乎忽然想起自己还有工作要做，匆忙回到了大车旁边
	PRINTW 那块巨大的『半灵』紧随着妖梦，在她的身边走出了类似巡逻的路径
ELSE
	;普通的初见面
	IF INRANGE(CFLAG:MASTER:初期位置, P620冥界の門, P629西行妖)
		;白玉楼直住
		PRINTFORMW 「……所以你就是\@ INRANGE(CFLAG:MASTER:初期位置, P620冥界の門, P629西行妖) ? 这里 # 白玉楼 \@新搬来的那位？」
		PRINTDW 碰见了一个穿着深绿色衣服、装备着两把刀的白发少女
		PRINTW 「我是幽幽子大人的剑术导师兼庭师，魂魄妖梦」
		PRINTW 「既然你成为了白玉楼新的一员，那以后就多多指教了」
	ELSEIF GET_MAPID(CFLAG:MASTER:現在位置) == MAIN_MAP && MAIN_MAP == 6
		;冥界住民
		PRINTFORMW 「真没想到冥界会有活物定居呢」
		RESETCOLOR
		PRINTW 碰见了一个穿着深绿色衣服、装备着两把刀的白发少女
		PRINTW 「我是白玉楼的幽幽子大人的剑术导师兼庭师，魂魄妖梦」
		PRINTW 「冥界毕竟不是活人的地盘，还请谨慎一些」
		PRINTW 「如果有什么不知道的话可以来问我，我会认真回答的」
		PRINTW 「对了，如果要去白玉楼的话要看时间」
		PRINTW 「那里21点之后是不允许拜访的」
		PRINTW 「总而言之就是这样，以后就多多指教了」
	ELSEIF GET_MAPID(CFLAG:MASTER:現在位置) == MAIN_MAP && MAIN_MAP == 2
		;人里住民
		PRINTFORMW 「是人里的居民吗？」
		RESETCOLOR
		PRINTW 碰见了一个穿着深绿色衣服、装备着两把刀的白发少女
		PRINTW 「你好」
		PRINTW 「我是冥界的幽幽子大人的剑术导师兼庭师，魂魄妖梦」
		PRINTW 「我每个水曜日都会来这里采购食物，以后可能会经常见面呢」
		PRINTW 「还请多多关照」
	ELSE
		PRINTFORMW 「没见过的生面孔呢」
		RESETCOLOR
		PRINTW 碰见了一个穿着深绿色衣服、装备着两把刀的白发少女
		PRINTW 「你好」
		PRINTW 「我是冥界的幽幽子大人的剑术导师兼庭师，魂魄妖梦」
		PRINTW 「以后还能再见面的话还请多多关照」
	ENDIF
	RESETCOLOR
	PRINTFORMW 妖梦脸上带着毫无警戒的笑容，对%CALLNAME:MASTER%没有任何丝毫的怀疑
	PRINTW 这真是一个能仔细打量这位少女的好机会啊
	PRINTW 但再想更靠近她的时候，一个硕大的白色块漂浮过来，隔开了两人
	CALL M_KOJO_审查中_COLOR_K23
	PRINT 「哦，这是我的半灵，你可以看作是
	FONTBOLD
	PRINT 我的一部分
	FONTREGULAR
	PRINTW 」
	RESETCOLOR
	CALL ASK_YN("摸一摸吧","保持沉默")
	IF !RESULT
		PRINTW 手一靠到半灵上面就被一股强烈的灵压推开了
		CALL M_KOJO_审查中_COLOR_K23
		PRINTW 「啊，没事吧？」
		PRINTW 「只是反应过度了……」
		RESETCOLOR
	ENDIF
	PRINTW 似乎是觉得该说的话都说完了，妖梦站在原地，思考着下一步的行动
	PRINTW 那块巨大的『半灵』紧随着妖梦，在她的身边走出了类似巡逻的路径
ENDIF
SETBIT CFLAG:23:K23_记忆,0;初见妖梦
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
RETURN 1

@K23_BEFORETRAIN_审查中
;一日の開始時、正確には来訪判定時に読み込む関数
;ここでCFLAG:XX:翌日来訪を設定して確実に来訪させたりTCVAR:XX:発情で朝っぱらからサカらせることもできる
;ただし「毎朝例外なく読み込まれる」ため、条件を設定しておくことが望ましい
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_审查中_SPEVENT_K23_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
;如果不想被夺走初吻的话勾上这个
;TCVAR:中止接吻 = 1
IF LOCAL
	IF TALENT:TARGET:恋慕
	ELSE
	ENDIF
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_审查中_SPEVENT_K23_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=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

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_审查中_SPEVENT_K23_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_审查中_EVENT_K23_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF !GETBIT(CFLAG:23:K23_记忆,2) && 睡眠時間(66) && INRANGE(CFLAG:MASTER:現在位置, P621庭, P629西行妖)
			CALL M_KOJO_审查中_COLOR_K23
			IF INRANGE(CFLAG:MASTER:初期位置, P620冥界の門, P629西行妖) && CFLAG:MASTER:現在位置 != CFLAG:MASTER:初期位置
				IF !CFLAG:ブチギレ && !CFLAG:オナバレ
					PRINTFORMW 「%CALLNAME:MASTER%，现在是睡觉的时间哦，快回去」
					SIF TALENT:恋人 || TALENT:恋慕
						PRINTFORMW 「不，即使是你也不例外，现在快点给我回去……」
					PRINTFORMDW 妖梦把你推回了房间
				ELSE
					PRINTFORMW 「……」
					PRINTFORMDW 妖梦看到%CALLNAME:MASTER%后迟疑了一下，之后她的剑砍了下来
					PRINTFORMDW 你只好回到了房间
				ENDIF
				CFLAG:MASTER:現在位置 = CFLAG:MASTER:初期位置
				CALL INFO_RENEW_TARGET
				RETURN 1
			ELSE
				IF !CFLAG:ブチギレ && !CFLAG:オナバレ
					PRINTFORMW 「%K23_CALLNAME()%，现在不可以访问白玉楼呢」
					IF TALENT:恋人 || TALENT:恋慕
						PRINTFORMW 「不，即使是你也不例外，现在快点给我出去……」
					ELSE
						PRINTFORMDW 妖梦把你推出了白玉楼
					ENDIF
				ELSE
					PRINTFORMW 「给我滚！」
					PRINTFORMDW 妖梦的剑砍了下来
				ENDIF
				PRINTFORMDW 你只好回到了白玉楼门前
				RESETCOLOR
				CFLAG:MASTER:現在位置 = P620冥界の門
				CALL INFO_RENEW_TARGET
				RETURN 1
			ENDIF
		ELSE
			CALL M_KOJO_审查中_COLOR_K23
			IF !CFLAG:ブチギレ
				PRINTFORMW 「啊，%K23_CALLNAME()%」
				IF TALENT:恋人
					IF TALENT:恋慕
						PRINTFORMW 「那个……能多停留一会儿吗？」
					ELSEIF TALENT:思慕
						PRINTFORMW 「今天也是在一起的日子呢」
					ELSE
						PRINTFORMW 「好歹也是做了那种诺言的……」
						PRINTFORMW 「认真点啊」
					ENDIF
					RESETCOLOR
					PRINTFORMW 妖梦无意中慢慢向%CALLNAME:MASTER%靠近
				ELSE
					IF TALENT:恋慕
						PRINTFORMW 「终于来了……」
						PRINTFORMW 「今天一整天都会在这里的」
					ELSEIF TALENT:思慕
						PRINTFORMW 「今天……要做什么呢？」
					ELSE
						PRINTFORMW 「有什么事吗？」
					ENDIF
					RESETCOLOR
					PRINTFORMW 妖梦微笑着看向了%CALLNAME:MASTER%
				ENDIF
			ELSE
				PRINTFORMW 「你还想干什么？！」
				RESETCOLOR
				PRINTFORMW 妖梦抓紧了楼观剑，在%CALLNAME:MASTER%面前架起了防御姿态
			ENDIF
		ENDIF
		RESETCOLOR
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF !GETBIT(CFLAG:23:K23_记忆,2) && 睡眠時間(66) && INRANGE(CFLAG:MASTER:現在位置, P621庭, P629西行妖) && CFLAG:MASTER:現在位置 != CFLAG:MASTER:初期位置
			CALL M_KOJO_审查中_COLOR_K23
			IF INRANGE(CFLAG:MASTER:初期位置, P620冥界の門, P629西行妖)
				IF !CFLAG:ブチギレ && !CFLAG:オナバレ
					PRINTFORMW 「%K23_CALLNAME()%，现在是睡觉的时间哦，快回去」
					SIF TALENT:恋人 || TALENT:恋慕
						PRINTFORMW 「不，即使是你也不例外，现在快点给我回去……」
					RESETCOLOR
					PRINTFORMW 妖梦把你推回了房间
				ELSE
					PRINTFORMW 「……」
					RESETCOLOR
					PRINTFORMW 妖梦看到%CALLNAME:MASTER%后迟疑了一下，之后她的剑砍了下来
					PRINTFORMW 你只好回到了房间
				ENDIF
				CFLAG:MASTER:現在位置 = CFLAG:MASTER:初期位置
				CALL INFO_RENEW_TARGET
				RETURN 1
			ELSE
				IF !CFLAG:ブチギレ && !CFLAG:オナバレ
					PRINTFORMW 「%K23_CALLNAME()%，现在不可以访问白玉楼呢」
					IF TALENT:恋人 || TALENT:恋慕
						PRINTFORMW 「不，即使是你也不例外，现在快点给我出去……」
					ELSE
						RESETCOLOR
						PRINTFORMW 妖梦把你推出了白玉楼
					ENDIF
				ELSE
					PRINTFORMW 「给我滚！」
					RESETCOLOR
					PRINTFORMW 妖梦的剑砍了下来
				ENDIF
				RESETCOLOR
				PRINTFORMW 你只好回到了白玉楼门前
				CFLAG:MASTER:現在位置 = P620冥界の門
				CALL INFO_RENEW_TARGET
				RETURN 1
			ENDIF
		ELSE
			CALL M_KOJO_审查中_COLOR_K23
			IF !CFLAG:ブチギレ
				PRINTFORMW 「你在这啊，%K23_CALLNAME()%」
				IF TALENT:恋人
					IF TALENT:恋慕
						PRINTFORMW 「总算找到你了」
						PRINTFORMW 「今天也在一起吧」
						RESETCOLOR
						PRINTFORMW 妖梦说完之后，露出了灿烂的笑容
					ELSEIF TALENT:思慕
						PRINTFORMW 「今天也……多多关照了」
					ELSE
						PRINTFORMW 「好歹也是做了那种诺言的……」
						PRINTFORMW 「认真点啊」
					ENDIF
					PRINTFORMW 妖梦不自觉地慢慢靠近%CALLNAME:MASTER%
				ELSE
					IF TALENT:恋慕
						PRINTFORMW 「终于找到你了呢……」
						PRINTFORMW 「不，绝对不是碰巧！」
					ELSEIF TALENT:思慕
						PRINTFORMW 「今天……要做什么呢？」
					ELSE
						PRINTFORMW 「你站在这里是要干什么吗？」
					ENDIF
					PRINTFORMW 妖梦停了下来，注视着%CALLNAME:MASTER%
				ENDIF
			ELSE
				PRINTFORMW 「你？！」
				RESETCOLOR
				PRINTFORMW 妖梦放慢了步伐，在离%CALLNAME:MASTER%较远的地方架起了防御姿态
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋慕
			CALL M_KOJO_审查中_COLOR_K23
			PRINTFORML 「要搓澡吗?」
			PRINTFORML 「如果你想要的话，请不要拘谨」
			PRINTFORMDL 妖梦一丝不挂的走过来，毫不吝惜地展露着身体
			IF TALENT:恋人
				PRINTFORML 「待会能不能请你……帮我搓一下背呢？」
				PRINTFORML 「作为交换，会努力侍奉你的」
			ENDIF
			SIF MARK:快楽刻印 && RAND:5 < MARK:快楽刻印-1
				PRINTFORMDW 偶尔会感觉到妖梦那柔软的乳头压到了背上
		ELSE
			CALL M_KOJO_审查中_COLOR_K23
			PRINTFORML 「啊，失礼了。」
			PRINTFORMDL 妖梦抓紧遮住自己的身体的浴衣，走进了浴室
			PRINTFORML 「请，请不要往这里看了！」
			PRINTFORMW 虽然因为羞耻脸色都红了，但妖梦全无把视线移开在泡澡的%CALLNAME:MASTER%的想法
			SIF MARK:快楽刻印 && RAND:5 < MARK:快楽刻印
				PRINTFORMDW 背后感受到了妖梦温暖的吐息，不时带着一丝微弱的娇喘声
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		CALL M_KOJO_审查中_COLOR_K23
		PRINTFORMW 「有人啊？」
		PRINTFORMW 「那我在外面等吧」
		PRINTFORMDW 妖梦看到%CALLNAME:MASTER%之后就把门关上了
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMDL 妖梦的半灵突然飞了出来
		PRINTFORMDW 把%CALLNAME:MASTER%撞飞了
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF !GETBIT(CFLAG:23:K23_记忆,2) && 睡眠時間(66) && CFLAG:MASTER:現在位置 == 白玉楼
			CALL M_KOJO_审查中_COLOR_K23
			IF !CFLAG:ブチギレ && !CFLAG:オナバレ
				PRINTFORMW 「%K23_CALLNAME()%，现在不可以访问白玉楼呢」
				IF TALENT:恋人 || TALENT:恋慕
					PRINTFORMW 「不，即使是你也不例外，现在快点给我出去……」
				ELSE
					PRINTFORMDW 妖梦把你推出了白玉楼
				ENDIF
			ELSE
				PRINTFORMW 「给我滚！」
				PRINTFORMDW 妖梦的剑砍了下来
			ENDIF
			PRINTFORMDW 你只好回到了白玉楼庭
			CFLAG:MASTER:現在位置 = 白玉楼庭
			CALL INFO_RENEW_TARGET
			RETURN 1
		ELSE
			CALL M_KOJO_审查中_COLOR_K23
			IF !CFLAG:ブチギレ
				PRINTFORMW 「啊，是%K23_CALLNAME()%」
				IF TALENT:恋人
					PRINTFORMW 「这样的话我就不用特意来找你了」
					IF TALENT:恋慕
						PRINTFORMW 「待会……能一起回去吗？」
					ELSEIF TALENT:思慕
						PRINTFORMW 「那个……能多停留一会儿吗？」
					ELSE
						PRINTFORMW 「好歹也是做了那种诺言的……」
						PRINTFORMW 「认真点啊」
					ENDIF
					RESETCOLOR
					PRINTFORMW 妖梦无意识地抱住了%CALLNAME:MASTER%的胳膊
				ELSE
					IF TALENT:恋慕
						PRINTFORMW 「没想到能在这里碰到你呢……」
						PRINTFORMW 「还以为找不到你了」
					ELSEIF TALENT:思慕
						PRINTFORMW 「又见面了呢……」
					ELSE
						PRINTFORMW 「这么巧啊？」
					ENDIF
					RESETCOLOR
					PRINTFORMW 妖梦微笑着看向了%CALLNAME:MASTER%
				ENDIF
			ELSE
				PRINTFORMW 「今天走大霉运了……」
				RESETCOLOR
				PRINTFORMW 妖梦放慢了步伐，在%CALLNAME:MASTER%面前架起了防御姿态
			ENDIF
		ENDIF
		RESETCOLOR
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF !GETBIT(CFLAG:23:K23_记忆,7)
			IF TALENT:恋人
				IF ARG:1 == 66;幽幽子
					IF TALENT:恋慕
						PRINTFORMW 「%K23_CALLNAME()%……！」
						PRINTFORMW 「我果然……还是比不上幽幽子大人吗……」
						PRINTFORMDW 妖梦想要抓背后的楼观剑，但是最后放下了手
						PALAM:抑鬱 += 1000
					ELSEIF TALENT:思慕
						PRINTFORMW 「我果然还是比不上幽幽子大人吗……」
						PRINTFORMW 「不，不是你的问题……」
						PALAM:抑鬱 += 500
					ELSE
						PRINTFORMW 「幽幽子大人……」
						PRINTFORMW 「算了……」
						PALAM:抑鬱 += 200
					ENDIF
				ELSE
					IF TALENT:恋慕
						PRINTFORMW 「%CALLNAME:MASTER%……！」
						PRINTFORMW 「我……呜啊啊啊啊啊！」
						PRINTFORMDW 妖梦突然抽出楼观剑向二人砍去
						PRINTFORMDW 还好妖梦连续几刀都砍空了，没造成什么伤害
						PALAM:抑鬱 += 1000
						PALAM:反感 += 1000
						CALL GET_ANGRY(23,GETBIT(CFLAG:23:K23_记忆,6))
					ELSEIF TALENT:思慕
						PRINTFORML 「两个人一起出去吗？」
						PRINTFORML 「那没事了……」
						PRINTFORMDW 妖梦看了一眼%CALLNAME:(ARG:1)%，心里有些失落
						PALAM:抑鬱 += 500
					ELSE
						PRINTFORML 「你就这么对待我吗？」
						PRINTFORML 「我知道了」
						PRINTFORMDW 妖梦看见%CALLNAME:MASTER%和%CALLNAME:(ARG:1)%后，摇了摇头
						PALAM:抑鬱 += 200
						PALAM:反感 += 200
					ENDIF
				ENDIF
			ELSE
				IF ARG:1 == 66;幽幽子
					IF TALENT:恋慕
						PRINTFORMW 「幽幽子大人？哦……」
						PRINTFORMDW 妖梦转过身，低下了头
						PALAM:抑鬱 += 500
					ELSEIF TALENT:思慕
						IF INRANGE(CFLAG:MASTER:現在位置,621, 629)
							PRINTFORMW 「%K23_CALLNAME()%？你怎么来了？」
						ELSE
							PRINTFORMW 「幽幽子大人！？随便出现的话会吓坏别人的」
						ENDIF
						PRINTFORMDW 妖梦一看到幽幽子%CALLNAME:MASTER%在一起，瞬间变得不知所措起来
					ELSE
						PRINTFORMW 「没想到幽幽子大人和%K23_CALLNAME()%有那种关系呢」
						PRINTFORMW 「恭喜了」
					ENDIF
				ELSE
					IF TALENT:恋慕
						PRINTFORMW 「%K23_CALLNAME()%……」
						PRINTFORMW 「很高兴你能找到自己的归属呢」
						PRINTFORMW 「……」
						TWAIT 5000,1
						PRINTFORMW 「……不像我……」
						PALAM:抑鬱 += 500
					ELSEIF TALENT:思慕
						PRINTFORML 「这么亲热，是约会吗？」
						PRINTFORML 「那好好玩吧……」
						PRINTFORMDW 妖梦看了一眼%CALLNAME:(ARG:1)%，原先扬起的嘴角有些下垂
					ELSE
						PRINTFORMDW 妖梦看见%CALLNAME:MASTER%和%CALLNAME:(ARG:1)%后，微微点了点头。
					ENDIF
				ENDIF
			ENDIF
		ELSE
			PRINTFORMW 「就知道能提出那种请求的你是这样的人……」
			PRINTFORMW 「唉……」
			PRINTFORMDW 妖梦看着%CALLNAME:MASTER%和%CALLNAME:(ARG:1)%，强忍着内心的不适感
			PRINTFORMDW 但最终妖梦的脸上还是没有笑容
			SOURCE:鬱屈 += 1000
		ENDIF
		RESETCOLOR
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MAIN_MAP上で一日最初の挨拶
	;注、このあと通常の遭遇口上、ARG==1 OR ARG==2に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		SIF CFLAG:ブチギレ || CFLAG:オナバレ || !GETBIT(CFLAG:23:K23_记忆,2) && 睡眠時間(66)
			RETURN 1
		CALL M_KOJO_审查中_COLOR_K23
		IF TALENT:恋人
			IF TALENT:恋慕
				PRINTFORMW 「想要每天都能像今天一样看得见%K23_CALLNAME()%的身影……」
			ELSE
				PRINTFORMW 「还以为见不到了呢……」
			ENDIF
		ELSEIF TALENT:恋慕
			PRINTFORMW 「今天也看到了%K23_CALLNAME()%呢」
		ENDIF
		RESETCOLOR
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で一日最初の挨拶
	;ARG:1にデート相手、ARG:1が0の場合は非デート
	;注、このあと通常の外出先で遭遇した口上、ARG==6 OR ARG==7に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		SIF CFLAG:ブチギレ || CFLAG:オナバレ || !GETBIT(CFLAG:23:K23_记忆,2) && 睡眠時間(66)
			RETURN 1
		;ARG:1とデート中
		IF ARG:1
		;一人で外出
		ELSE
			IF TALENT:恋人
				IF TALENT:恋慕
					IF MAIN_MAP != 6
					;不在冥界住
						PRINTFORMW 「%K23_CALLNAME()%一直跑来跑去不觉得麻烦吗？」
						PRINTFORMW 「可以搬来和我一起住呢」
					ELSE
						PRINTFORMW 「居然在这里和%K23_CALLNAME()%相遇了呢」
						PRINTFORMW 「可以和我一起回去吗？」
					ENDIF
				ELSE
					IF MAIN_MAP != 6
					;不在冥界住
						PRINTFORMW 「在这里也能碰见%K23_CALLNAME()%呢」
						PRINTFORMW 「这样就不用特意过去你那了……」
					ELSE
						PRINTFORMW 「%K23_CALLNAME()%在这里啊」
						PRINTFORMW 「待会一起回去？」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
		RESETCOLOR
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
TCVAR:352 &= 1p0
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_审查中_EVENT_K23_2(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
			PRINTFORMW 「……」
			PRINTFORMW 「早上好」
			IF GETBIT(CFLAG:23:K23_记忆,6)
				PRINTFORMW 「%K23_CALLNAME()%觉得被窝舒服吗？」
			ELSEIF TALENT:23:恋慕
				IF TALENT:23:恋人
					PRINTFORMW 「能被%K23_CALLNAME()%抱着入眠真是……太好了」
				ELSE
					PRINTFORMW 「%K23_CALLNAME()%……该起床了」
				ENDIF
				PRINTFORMDW 妖梦满脸通红的看着%CALLNAME:MASTER%
			ELSE
				PRINTFORMW 「我们的关系……还没到一起睡这种程度吧……？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:23:恋慕
				PRINTFORMW 「%K23_CALLNAME()%……」
				IF !TALENT:23:恋人 || RAND:5 == 0
					PRINTFORMW 「%K23_CALLNAME()%想睡的话可以多睡一会呢」
					PRINTFORMDW %CALLNAME:MASTER%一睁开眼，便看见自己正在被妖梦蹲在一旁观察着
				ELSE
					PRINTFORMW 「再不起床我就要挠你啦～」
					PRINTFORMDW %CALLNAME:MASTER%一睁开眼，便看见妖梦不知为何钻到了自己的被窝里
				ENDIF
			ELSE
				IF TALENT:23:恋人
					PRINTFORMW 「快起床……」
				ELSE
					PRINTFORMW 「终于醒了吗？」
				ENDIF
				PRINTFORMDW %CALLNAME:MASTER%一睁开眼，便看见妖梦双手叉腰站在旁边
			ENDIF
			RETURN 1
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「%K23_CALLNAME()%……」
		IF TALENT:23:恋人
			PRINTFORMW 「该起床啦～」
			PRINTFORMDW 妖梦依偎在刚起床的%CALLNAME:MASTER%身旁
		ELSEIF TALENT:23:恋慕
			PRINTFORMW 「该起床了」
			PRINTFORMDW 妖梦在%CALLNAME:MASTER%的耳边小声催着
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「%K23_CALLNAME()%……」
		IF TALENT:23:恋人
			PRINTFORMDW %CALLNAME:MASTER%被睡梦中的妖梦抱住了
			PRINTFORMDW %CALLNAME:MASTER%一边抚慰着妖梦一边挪出了被窝
		ELSEIF TALENT:23:恋慕
			SIF CFLAG:23:合意判定 >= 300
				PRINTFORMW 「%K23_CALLNAME()%……喜欢……」
			PRINTFORMDW 睡梦中的妖梦突然把手放到了%CALLNAME:MASTER%的上面
			PRINTFORMDW %CALLNAME:MASTER%溜出被窝，整理好妖梦的被子之后便开始思考起今天的行动
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「呜啊啊啊啊啊～」
		SIF TALENT:23:恋慕
			PRINTFORMW 「是%K23_CALLNAME()%在叫我吗？」
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF TALENT:23:恋慕
				PRINTFORMW 「抱歉，我现在才刚醒过来……」
				IF (TALENT:23:恋人 && RAND:3 == 0) || RAND:5 == 0
					PRINTFORMW 「一起睡什么的……也可以就是了……」
				ELSEIF K23_CANSEX() && RAND:3 == 0
					PRINTFORMW 「等我休息完再一起……吧%UNICODE(0x2665)%」
				ELSE
					PRINTFORMW 「就这样一起聊天也可以的」
				ENDIF
			ELSE
				PRINTFORMW 「%K23_CALLNAME()%……？」
				PRINTFORMW 「没什么事就快走吧」
				PRINTFORMW 「别在女孩子的房间里呆太久……」
			ENDIF
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:23:恋慕
				IF TALENT:23:恋人
					PRINTFORMW 「嗯……」
					PRINTFORMDW 妖梦刚站起来，就瞬间瘫在了%CALLNAME:MASTER%的怀里
					PRINTFORMW 「就让我在你的怀里再休息一会吧……」
					PRINTFORMDW 过了一会之后妖梦才缓过神来
				ELSE
					PRINTFORMW 「抱歉，刚刚才醒过来呢……」
				ENDIF
			ENDIF
		ENDIF
		IF 睡眠時間(23)
			PRINTFORMW 「这么晚了……」
			PRINTFORMW 「这下我真的真的真的要睡了……」
		ELSEIF 睡眠時間(66) && BETWEENTIME(CFLAG:66:就寝時間 + CFLAG:66:清醒劑, CFLAG:23:起床時間)
			PRINTFORMW 「这么晚了……」
			PRINTFORMW 「待会巡逻之后就要去睡了……」
		ENDIF
		IF NEMUKE() > 960 && GETBIT(CFLAG:23:K23_记忆,6)
			PRINTFORMW 「%K23_CALLNAME()%也该睡了」
			PRINTFORMW 「这么硬撑的话对身体不好」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰って寝る（～は【現在地】から【キャラの自室】に戻りました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「这么晚了……」
		IF ARG:1
			;デート中に眠くて帰って寝る（拠点キャラのみ）
			PRINTFORMW 「今天就到这里吧……」
		ELSEIF CFLAG:诶嘿嘿
			;うふふ中に眠くて自室に帰って寝る（拠点キャラのみ）
			IF TALENT:恋慕
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORML 「虽然%K23_CALLNAME()%搞得我太舒服了……%UNICODE(0x2665)%」
					PRINTFORMW 「但我真的要去睡了……」
					PRINTFORML 「%K23_CALLNAME()%也应该早点睡……」
					PRINTFORMW 「反正也可以等睡醒之后再继续嘛……%UNICODE(0x2665)%」
				ELSE
					PRINTFORMW 「好了好了好了好了好了……」
					PRINTFORMW 「该去睡了……」
					PRINTFORMW 「明天攒够精力才能好好继续不是吗……」
				ENDIF
			ENDIF
		ELSE
			PRINTFORML 「呜啊啊啊啊啊～」
			PRINTFORMW 「我要去睡了」
			IF TALENT:恋慕
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORMW 「%K23_CALLNAME()%要来陪我睡嘛？」
				ELSE
					PRINTFORMW 「明天再来吧……」
				ENDIF
			ELSE
				PRINTFORMW 「这段时间还请……不要打扰我……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている（～は眠そうにしている）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:延迟
			IF CFLAG:陪睡中
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORMW 「%K23_CALLNAME()%的气息……」
					PRINTFORMW 「再近一些……」
					PRINTFORMDW 妖梦往%CALLNAME:MASTER%的怀里再靠了靠
				ELSEIF TALENT:恋人
					PRINTFORMW 「%K23_CALLNAME()%的气息……」
					PRINTFORMW 「是不是……靠的……太近了……？」
				ELSE
					PRINTFORMW 「总觉得有点……」
				ENDIF
			ELSE
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORMW 「%K23_CALLNAME()%……」
					PRINTFORMW 「不早啦……」
					PRINTFORMW 「要不今晚……」
					PRINTFORMDW 妖梦虽然昏昏欲睡，但仍然抱住了%CALLNAME:MASTER%的手腕
				ELSEIF TALENT:恋慕
					PRINTFORMW 「%K23_CALLNAME()%？」
					PRINTFORMW 「还有……什么事要说吗？」
					PRINTFORMW 「有空的话……要不……多陪我一会？」
					PRINTFORMDW 妖梦面露娇羞的望向%CALLNAME:MASTER%
				ELSEIF TALENT:恋人
					PRINTFORMW 「%K23_CALLNAME()%……？」
					PRINTFORMW 「虽然我们是那种关系，但……」
					PRINTFORMW 「你还是早点回去吧……」
				ELSE
					PRINTFORMW 「呜啊啊啊啊啊～」
					PRINTFORMDW 看样子妖梦已经要睡了
				ENDIF
			ENDIF
		ELSE
			PRINTFORMW 「%K23_CALLNAME()%……」
			PRINTFORMW 「干嘛啊……」
			PRINTFORMW 「让我好好睡一觉行不行……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（～は眠っている）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋慕
			PRINTFORMW 「%K23_CALLNAME()%……」
			IF TALENT:恋人
				SELECTCASE LIMIT(0, 3 - RAND:3, 1) * CFLAG:23:积攒度
					CASE IS >= 665
						PRINTDATAW
							DATAFORM 「原谅你了……」
							DATAFORM 「可以哦……」
							DATAFORM 「好舒服……」
							DATAFORM 「喜欢……%UNICODE(0x2665)%」
							DATAFORM 「唔……」
							DATAFORM 「嘿嘿……」
							DATAFORM 「轮到我了……」
							DATAFORM 「想要……」
							DATAFORM 「没事的……」
						ENDDATA
					CASEELSE
						PRINTDATAW
							DATAFORM 「抱抱我嘛……」
							DATAFORM 「好暖和……」
							DATAFORM 「喜欢……」
							DATAFORM 「唔……」
							DATAFORM 「这里……」
							DATAFORM 「太好了……」
							DATAFORM 「就这样度过吧……」
						ENDDATA
				ENDSELECT
			ELSE
				SELECTCASE LIMIT(0, 3 - RAND:3, 1) * CFLAG:23:积攒度
					CASE IS >= 665
						PRINTDATAW
							DATAFORM 「太早了……」
							DATAFORM 「是你的话……」
							DATAFORM 「原谅你了……」
							DATAFORM 「可以哦……」
							DATAFORM 「好舒服……」
							DATAFORM 「喜欢……%UNICODE(0x2665)%」
							DATAFORM 「唔……」
							DATAFORM 「嘿嘿……」
							DATAFORM 「轮到我了……」
						ENDDATA
					CASEELSE
						PRINTDATAW
							DATAFORM 「其实……我……」
							DATAFORM 「请接受吧……」
							DATAFORM 「好暖和……」
							DATAFORM 「喜欢……」
							DATAFORM 「唔……」
							DATAFORM 「太好了……」
							DATAFORM 「就这样度过吧……」
						ENDDATA
				ENDSELECT
			ENDIF
		ELSE
			;[暂不考虑]
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱して寝る（体力500以下,うふふ時はうふふ強制終了）
	;（キャラの自室以外：～を【現在地】から【キャラの自室】に運びました）
	;（キャラの自室　　：～は疲れたと言って、横になりました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF CFLAG:诶嘿嘿
			;うふふ中にダウン
			IF GETBIT(CFLAG:23:K23_记忆,6)
				PRINTFORMW 「唔……虽然还想要和%K23_CALLNAME()%一起」
				PRINTFORMW 「但我实在是撑不住了啊……」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「唔……实在是太累了」
				PRINTFORMW 「让我休息一下吧……」
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORMW 「哈…………啊啊啊啊啊……」
				PRINTFORMW 「就到这里吧……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（恋慕のみ,そのまま一日が終了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;お酒でダウン
		IF BASE:MASTER:酒気 >= MAXBASE:MASTER:酒気
			IF ARG:1
				;自室でダウン,（～が【MASTER】をベッド（布団）へと運んでくれた…）
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORMW 「喝那么多对身体不好的……」
				ELSE
					PRINTFORMW 「果然喝酒就只会误事……」
				ENDIF
			ELSE
				;部屋まで運ばれる,（～が【MASTER】を私室へと運んでくれた…）
				PRINTFORMW 「真是让人不省心……」
				PRINTFORMDW 妖梦把醉醺醺的%CALLNAME:MASTER%拖回了房间
				PRINTFORMW
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORMW 「好了……我们到了……」
				ELSE
					PRINTFORMW 「嘿……呀……！」
					PRINTFORMW 「好重……」
				ENDIF
			ENDIF
			PRINTFORMW 「下次别喝那么多了……」
		;体力切れでダウン
		ELSE
			IF ARG:1
				;自室でダウン,（～が【MASTER】をベッド（布団）へと運んでくれた…）
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORMW 「%K23_CALLNAME()%……？」
					PRINTFORMW 「%K23_CALLNAME()%……？」
					PRINTFORMW 「……%CALLNAME:MASTER%……？」
				ELSE
					PRINTFORMW 「啊？」
				ENDIF
				PRINTFORMW 「没事吧……？」
				PRINTFORMW 「是太累了吗……？」
				PRINTFORMW 「那你好好休息吧……」
			ELSE
				;部屋まで運ばれる,（～が【MASTER】を私室へと運んでくれた…）
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORMW 「%K23_CALLNAME()%……？」
					PRINTFORMW 「%K23_CALLNAME()%……？」
					PRINTFORMW 「……%CALLNAME:MASTER%……？」
					PRINTFORMW 「没事吧……？」
					PRINTFORMW
					PRINTFORMW 「好了……我们到了……」
					IF CFLAG:23:初期位置 == CFLAG:MASTER:初期位置
						PRINTFORMW 「下次别又把自己累倒了……」
					ELSE
						PRINTFORMW 「%K23_CALLNAME()%真不会注意身体……」
						PRINTFORMW 「实在控制不住自己的话就让我监督你吧」
					ENDIF
				ELSE
					PRINTFORMW 「啊？」
					PRINTFORMW 「没事吧……？」
					PRINTFORMW 「等等等等……别在这倒下啊……」
					PRINTFORMW
					PRINTFORMW 「嘿……呀……！」
					PRINTFORMW 「好重……」
					IF CFLAG:23:初期位置 == CFLAG:MASTER:初期位置
						PRINTFORMW 「下次别又把自己累倒了……」
					ELSE
						IF INRANGE(CFLAG:MASTER:初期位置,620, 629)
							PRINTFORMW 「好想带回自己的房间啊……」
							PRINTFORMW 「但……」
							PRINTFORMW 「不行！」
							PRINTFORMW 「等明天的时候再开口吧……」
							PRINTFORMW
							PRINTFORMW 「现在先把你放回房间里吧……」
						ELSE
							PRINTFORMW 「好想带回家啊……」
							PRINTFORMW 「但……」
							PRINTFORMW 「不行！」
							PRINTFORMW 「等明天的时候再邀请吧……」
							PRINTFORMW
							PRINTFORMW 「你就住这里吗？」
							PRINTFORMW 「好吧，就这样慢慢放下……」
						ENDIF
						PRINTFORMW 「……然后是被子……」
						PRINTFORMW 「……晚安」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが寝るために自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た（【TARGET】が部屋に戻ってきた→寝間着へと着替え、寝床に潜った）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			IF TALENT:恋慕
				PRINTFORMW 「我现在要睡了呢」
				PRINTFORMW 「干什么？」
				IF CFLAG:睡衣指定 != 302
					IF GETBIT(CFLAG:23:K23_记忆,6)
						CALL ASK_M("想看妖梦换睡衣",1,"想帮妖梦换睡衣",K23_CANSEX())
						IF RESULT == 1
							LOCALS =
							PRINTFORMW 「……要亲手帮我换上睡衣吗？」
							PRINTFORMW 「唔～」

							PRINTFORMDW 妖梦背靠着坐在前面，静静等待着接下来的动作
							PRINTFORMDW 手指在妖梦的胸前游走，缓缓解开背心的纽扣
							PRINTFORMDW 脱掉背心之后，下一件便是妖梦身上那洁白的衬衫
							PRINTFORMDW 每解开一颗纽扣，妖梦光滑的肌肤便多暴露一分
							PRINTFORMDW 越过妖梦的后背向下看去，敞开的衬衫内\@ TEQUIP:上半身裸露状態 & 1p1 ? 的%SHOW_上半身内衣(TARGET)%# 若隐若现的%OPPAI_DESCRIPTION(TARGET)%\@比平常更显色气
							PRINTFORMDW 等解开最后一颗纽扣的时候，理智早已被那魅惑的姿态溶解……
							PRINTFORMDW 试图解开纽扣的手也逐渐的停止了动作

							PRINTFORMW 「怎么……不继续了……？」
							PRINTFORMDW 『啊，不……只是觉得现在的妖梦比平时还要可爱……』
							PRINTFORMDW 妖梦明显愣住了，脸颊充满了红晕
							PRINTFORMW 「你在说什么……呀！」
							PRINTFORMDW 看见妖梦可爱的反应之后，内心的欲望已经难以抑制……
							PRINTFORMDW 于是趁妖梦毫无防备的时候，右手将她紧紧搂入怀中，而左手便伸进了衬衫的缝隙
							;B
							PRINTFORMDW \@ TEQUIP:上半身裸露状態 & 1p1 ? 拉开%SHOW_上半身内衣(TARGET)%# 挪开衬衫\@，妖梦那%OPPAI_DESCRIPTION(TARGET,1)%已然暴露了出来
							IF TALENT:胸圍 == -2
								PRINTFORMDW 一边用手指挑逗着%NIPPLE_DESCRIPTION(TARGET,1)%，一边开玩笑地在耳边说着『孩子的奶水该怎么办啊～』
								PRINTFORMDW 见妖梦转过头来想要责骂，干脆在她开口的瞬间堵住了她的双唇
								PRINTFORMDW 一开始妖梦还在奋力反抗，但渐渐的，反抗的力度越变越小
								PRINTFORMDW 不仅如此，还主动伸出了舌头
								PRINTFORMDW 就这样一边性骚扰着妖梦一边和她继续持久的舌吻
							ELSEIF TALENT:胸圍 >= 1
								PRINTFORMDW 手掌从下面托住%OPPAI_DESCRIPTION(TARGET,1)%，用拇指和食指捏住%NIPPLE_DESCRIPTION(TARGET,1)%
								PRINTFORMDW 单是这样妖梦就已经发出了阵阵喘息
								PRINTFORMDW 趁机问到『可以一直摸下去吗？』之后，妖梦红着脸，点了点头
								PRINTFORMDW 获得许可后，手部的动作也越发大胆起来
								PRINTFORMDW 用连手指都陷进去的力度揉搓着%OPPAI_DESCRIPTION(TARGET,1)%，一边听着妖梦下流的喘息一边享受着触感
								PRINTFORMDW 之后更是干脆放开右手，两只手一起爱抚着妖梦的双乳
							ELSE
								PRINTFORMDW 左手感受着%OPPAI_DESCRIPTION(TARGET)%的柔软的同时，手指也不时挑逗着%NIPPLE_DESCRIPTION(TARGET)%
								PRINTFORMDW 时而不断地揉捏%OPPAI_DESCRIPTION(TARGET,1)%，时而用手指揉搓着%NIPPLE_DESCRIPTION(TARGET,1)%
								PRINTFORMDW 一旦稍微用力捏一下%NIPPLE_DESCRIPTION(TARGET)%，妖梦便会突然发出一声可爱的喘息
								PRINTFORMDW 等到妖梦转过头来的时候，发现她已经满脸通红
							ENDIF
							PRINTFORMW 「哈……哈……」
							PALAM:潤滑 += 2000
							;C
							PRINTFORMD 见妖梦已经没有了抵抗的意愿，
							IF EQUIP:TARGET:裤子
								PRINTFORMDW 干脆顺势把她的裤子脱了下来
							ELSE
								PRINTFORMDW 右手干脆直接伸进了裙内
							ENDIF
							IF !CFLAG:ARG:没穿内裤 && (EQUIP:下半身内衣１ || EQUIP:下半身内衣２)
								IF PALAM:潤滑 > PALAMLV:4
									LOCALS = 湿的一塌糊涂的
								ELSEIF PALAM:潤滑 > PALAMLV:2
									LOCALS = 有点湿润的
								ENDIF
								PRINTFORMDW 隔着%LOCALS%\@ EQUIP:下半身内衣２ ? %PANTS_DESCRIPTION(EQUIP:下半身内衣２, TARGET)%%PANTSNAME(EQUIP:下半身内衣２, TARGET)% # %PANTSNAME(EQUIP:下半身内衣１, TARGET)%\@轻轻抚摸%SLIT(TARGET)%
								PRINTFORMDW 不时在耳边调戏般的问『感觉舒服嘛？』
								PRINTFORMDW 此前已经压制不住欲望的妖梦已经沦陷在阴蒂传来的快感中
								PRINTFORMDW 发出快乐的娇喘的同时也迎来了绝顶
								PRINTFORMDW \@ EQUIP:下半身内衣２ ? %PANTS_DESCRIPTION(EQUIP:下半身内衣２, TARGET)%%PANTSNAME(EQUIP:下半身内衣２, TARGET)% # %PANTSNAME(EQUIP:下半身内衣１, TARGET)%\@也被%SLIT(TARGET)%喷出的爱液完全打湿了
								PRINTFORMDW 突如其来的冲击让妖梦的身体直接瘫软了下来
								PRINTFORMDW 不过在脱\@ EQUIP:下半身内衣２ ? %PANTS_DESCRIPTION(EQUIP:下半身内衣２, TARGET)%%PANTSNAME(EQUIP:下半身内衣２, TARGET)% # %PANTSNAME(EQUIP:下半身内衣１, TARGET)%\@的时候也不忘顺从的抬起腿
								PRINTFORMDW \@ EQUIP:下半身内衣２ ? 把脱下来的%PANTSNAME(EQUIP:下半身内衣２, TARGET)%挂在一条腿上 # 脱下%PANTSNAME(EQUIP:下半身内衣１, TARGET)%\@，轻轻张开她的双腿
								PRINTFORMDW 一开始试探性的用手指插入已经湿透了的膣内
								PRINTFORMDW 见妖梦不自觉的迎合着扭起腰，直接把手指伸进到了更深处
								PRINTFORMDW 手指在内部时而不停的搅动，时而专心刺激G点
								PRINTFORMDW 就这样妖梦再次被手指弄去了
								PRINTFORMDW 妖梦突然紧闭双腿，无意中把本来要抽出的手指又给推了回去
								PRINTFORMDW 这一下妖梦直接喊出了平时都很难听到的极为淫乱的叫声
								PRINTFORMDW 直到她高潮过后放松双腿，才终于把手指抽了出来
							ELSE
								PRINTFORMDW 手指温柔的揉搓着暴露在外的%SLIT(TARGET,1)%
								PRINTFORMDW 仅仅是这样妖梦就已经无法忍受到吐出了急促的喘息
								PRINTFORMDW 慢慢加快手指的速度，每次来回都让手指前端进入膣内一起抚摸着内壁
								PRINTFORMDW 随着手指的动作越来越放肆，妖梦的喘息也变得越来越剧烈
								PRINTFORMDW 没过多久妖梦两腿紧闭，高潮了
								PRINTFORMDW 这一下直接就把手夹在了妖梦的两腿之间，动弹不得
								PRINTFORMDW 本着哪能放过这个机会的想法，顺势把手指伸进了阴道之内
								PRINTFORMDW 在搅动着已经充满爱液的膣内的同时，另一只手也在玩弄着裸露的%OPPAI_DESCRIPTION(TARGET)%和%NIPPLE_DESCRIPTION(TARGET)%
								PRINTFORMDW 就这样在上下快感夹击之下，妖梦这次迎来了比先前更加猛烈的绝顶
								PRINTFORMDW 喊出的话语直接变成了口齿不清的淫乱的叫声
								PRINTFORMDW 本来还能好好坐着的身体也瞬间失去力气瘫倒在地
								PRINTFORMDW 不得不调整姿势才能勉强让妖梦以半躺的姿态依靠在胸前
							ENDIF
							PRINTFORMDW 把手指从妖梦那一塌糊涂的小穴中抽出来，向她展示着已经拉出丝的自己的爱液
							PRINTFORMDW 但因刚刚的高潮而变得恍惚的妖梦此时已经说不出任何话了
							PRINTFORMDW 将手指凑到妖梦半开的双唇边上，恍惚中的妖梦却直接把手抓过来开始吮吸沾满自己喷出的爱液的手指
							PRINTFORMDW 看到此情此景，内心的欲望彻底压倒了最后一丝理性……
							PALAM:潤滑 += 4000
							BASE:MASTER:勃起 = MAXBASE:MASTER:勃起
							;V
							SELECTCASE RAND:4
								CASE 0
								;正常位
									PRINTFORMDW 一见到突然出现在面前的%TINKO()%，妖梦的脸上便露出了惊讶中伴随着一丝渴望的表情
									PRINTFORMDW 但很快妖梦就意识到接下来要发生什么
									PRINTFORMDW 被内心的欲望彻底支配，像野兽狩猎一样扑倒妖梦，粗暴地贯穿了她的%SLIT(TARGET,1)%
									PRINTFORMW 「喂喂喂……突然这样%UNICODE(0x2665)%……啊%UNICODE(0x2665)%%UNICODE(0x2665)%%UNICODE(0x2665)%」
									PRINTFORMDW 虽然整个过程非常的粗鲁，但因为此前蜜穴已经充满了爱液，妖梦反而没感受到哪怕一丝痛感
									PRINTFORMDW 相反，自己的身体被妖梦紧紧抱住，二人的胸脯紧紧地贴在了一起
									PRINTFORMDW 就这样一边抽插，一边向妖梦倾诉着自己的爱意
									PRINTFORMW 「啊%UNICODE(0x2665)%……要来了%UNICODE(0x2665)%……唔%UNICODE(0x2665)%」
									PRINTFORMDW 最后向最深处一番冲刺，在子宫口注入了%SAMEN_DESCRIPTION(MASTER,1)%
									PRINTFORMDW 倾泻欲望的一瞬间，妖梦也全身颤抖地达到了绝顶
									PRINTFORMDW 膣壁随之收缩，引导着精液向更深处推进
									PRINTFORMDW 即使妖梦的理性随着子宫被充满回复了一点，但她仍旧不肯松手，仿佛在渴望更多
									PRINTFORMDW 抱住妖梦的双腿，把身体压上去便开始了又一轮运动
									PRINTFORMDW 腰部和臀部的每一次相撞都会响起爱液和精液振动形成的水声
									PRINTFORMDW 之后，腰部的动作随着快感的加深而越来越激烈，那%TINKO()%也频繁的撞击着花心
									PRINTFORMW 「唔%UNICODE(0x2665)%……还要%UNICODE(0x2665)%……嗯啊%UNICODE(0x2665)%」
									PRINTFORMDW 直到精关大开之际，将%TINKO()%固定在子宫口处，再次往里面倾注着%SAMEN_DESCRIPTION(MASTER,1)%
									PRINTFORMDW 此时的妖梦已经处于一被中出就会剧烈高潮的状态了
									PRINTFORMDW 颤抖的肉壁也在一如既往的催促着更彻底的射精
									PRINTFORMDW 之后又抽插了几轮，直到把精囊里的精液都射空为止
								CASE 1
								;后背位
									PRINTFORMDW 在毫无预警的情况下扑倒妖梦，把%TINKO()%捅进了%SLIT(TARGET,1)%
									PRINTFORMW 「你到底要干什么……%UNICODE(0x2665)%……呀%UNICODE(0x2665)%%UNICODE(0x2665)%%UNICODE(0x2665)%」
									PRINTFORMDW 一开始被突然插入的妖梦还在挣扎抗拒着
									PRINTFORMDW 但几次抽插之后，妖梦便已经屈服了
									PRINTFORMDW 把妖梦压在身下，让她的屁股翘起来接受腰部的撞击
									PRINTFORMDW 结果向妖梦要亲亲的时候，妖梦却赌气似的把头扭了过去
									PRINTFORMW 「才……才不认识你%UNICODE(0x2665)%……这种……只会强奸别人的人呢……」
									PRINTFORMW 「唔啊%UNICODE(0x2665)%」
									PRINTFORMDW 见妖梦还没陷落，便使腰部用力一顶，让龟头向深处进攻
									PRINTFORMDW 这一招立竿见影，直接让妖梦发出了甜美又淫乱的娇喘声
									PRINTFORMDW 接下来再向妖梦要亲亲的时候妖梦终于顺从的转过头来，还主动伸出了舌头
									PRINTFORMDW 就这样持续在妖梦那湿漉漉的膣内进出，用这种交尾般的姿势在里面射出了%SAMEN_DESCRIPTION(MASTER,1)%
									PRINTFORMDW 胯下的妖梦随着精液向子宫内冲击也迎来了绝顶
									PRINTFORMDW 痉挛的内壁紧紧缠住%TINKO()%，仿佛要挤出最后一滴精液才肯罢休
									PRINTFORMDW 但是过了一会，妖梦便发出了断断续续的喘息与抽泣声
									PRINTFORMDW ……伤害这么大吗？
									PRINTFORMDW 不过不想就这么结束啊
									PRINTFORMDW 温柔的抚摸着妖梦的额头当作安慰，在她耳边向自己刚才的鲁莽行为道歉
									PRINTFORMW 「你……要做的话……直接说就可以了啊……%UNICODE(0x2665)%」
									PRINTFORMDW 幸好被妖梦原谅了
									PRINTFORMDW 既然这么说的话那做什么都没问题吧？
									PRINTFORMDW 至此，内心的色胆再次壮大了起来
									PRINTFORMDW 像老鹰捕食那样抓住妖梦那%OPPAI_DESCRIPTION(TARGET,1)%，以此为施力点把妖梦抱起来变成跪坐的姿态
									PRINTFORMDW 然后再次扭动着腰部，展开了又一轮抽插
									PRINTFORMDW 这回妖梦直接招架不住，发出了一阵阵淫秽的喘息
									PRINTFORMDW 在剧烈的腰部运动同时，手上的动作也从未停止
									PRINTFORMDW 爱抚着妖梦的%OPPAI_DESCRIPTION(TARGET)%同时舌头也忙碌于和妖梦缠绵
									PRINTFORMDW 让妖梦把手从后面环抱住脖子，这样下来就能专心去刺激妖梦的敏感地带
									PRINTFORMW 「啊%UNICODE(0x2665)%……要来了%UNICODE(0x2665)%……嗯啊%UNICODE(0x2665)%%UNICODE(0x2665)%%UNICODE(0x2665)%」
									PRINTFORMDW 在对妖梦的性感带四处出击之后，和妖梦同时达到了高潮
									PRINTFORMDW 这一次，妖梦的膣穴同步配合着肉棒射精的节奏颤抖着，把更多%SAMEN_DESCRIPTION(MASTER,1)%源源不断送进了子宫
									PRINTFORMDW 在子宫内的精液刺激之下，妖梦的身体比上一次颤抖的更剧烈，仿佛就要全身无力瘫倒在地
									PRINTFORMDW 见有些不妙，用两只手托住妖梦的双乳，慢慢把她放倒在床上
									PRINTFORMDW 每当手指划过妖梦那%NIPPLE_DESCRIPTION(TARGET,1)%的时候，妖梦那已经变得敏感的身体便会更剧烈的颤抖着
									PRINTFORMDW 但即使妖梦已经瘫倒在床上，未曾拔出的那个%TINKO()%仍在不断射精
								CASE 2
								;骑乘位
									PRINTFORMDW 把那%TINKO()%伸到妖梦面前，调戏似的说『要含就含住这个嘛～』
									PRINTFORMDW 想不到妖梦居然真的乖乖含住了，还用舌头舔弄着龟头
									PRINTFORMDW 要说这么射进妖梦嘴中的话还行，但还是想要更刺激的
									PRINTFORMDW 于是拔出了肉棒，躺在床上，用甜言蜜语让妖梦自己骑在上面
									PRINTFORMW 「唔%UNICODE(0x2665)%……那我下来了%UNICODE(0x2665)%……嗯呀%UNICODE(0x2665)%」
									PRINTFORMDW 看着妖梦慢慢沉下腰将那%TINKO()%纳入%SLIT(TARGET,1)%中，顿时血脉偾张
									PRINTFORMDW 光是看着妖梦在其上扭动着腰部就已经足够催促着射精了
									PRINTFORMDW 示意让妖梦俯卧下来，一边接吻，一边轻轻抚摸她的头发
									PRINTFORMDW 就这样抱住妖梦，和妖梦温柔的缠绵起来
									PRINTFORMDW 但突然，妖梦的腰部动作变得越来越快
									PRINTFORMDW 自己也快撑不住这样的奉仕了……
									PRINTFORMDW 之后妖梦沉下腰，让龟头抵住子宫口射出了%SAMEN_DESCRIPTION(MASTER,1)%
									PRINTFORMDW 拥抱着她的手也默默感受着她那高潮的身体传来的颤抖感
									PRINTFORMW 「哈%UNICODE(0x2665)%……哈%UNICODE(0x2665)%……不行了%UNICODE(0x2665)%……」
									PRINTFORMDW 看起来妖梦已经虚弱到不能主动再做了……？
									PRINTFORMDW 不过看到趴在身上的妖梦那香艳的姿态，突然想到了一个两全其美的好办法
									PRINTFORMDW 不从膣内拔出，让妖梦转过身，躺在身上
									PRINTFORMDW 双手揉搓着妖梦的双乳同时，那%TINKO()%也在妖梦的穴内缓缓的移动
									PRINTFORMDW 为了让妖梦休息而特意放慢了动作
									PRINTFORMW 「嗯%UNICODE(0x2665)%……%K23_CALLNAME()%的按摩%UNICODE(0x2665)%……好舒服%UNICODE(0x2665)%」
									PRINTFORMDW 随着在妖梦的膣穴收获越来越多的快感，双手也渐渐变得不安分了起来
									PRINTFORMDW 有时刺激着%NIPPLE_DESCRIPTION(TARGET,1)%，有时从胸部沿着性感带一路滑到了结合部
									PRINTFORMDW 有时甚至同时捏住乳头和阴蒂揉搓起来
									PRINTFORMDW 妖梦的表情因为突如其来的快感也从原先的安心变的满脸潮红
									PRINTFORMW 「啊%UNICODE(0x2665)%……不行了%UNICODE(0x2665)%……就这样%UNICODE(0x2665)%算了吧……」
									PRINTFORMDW 妖梦突然坐起来，试图脱离%TINKO()%
									PRINTFORMDW 一时上头，双手直接抓住了妖梦的腰部，往下重重一按
									PRINTFORMDW 原本快要从妖梦那%SLIT(TARGET,1)%中拔出%TINKO()%的龟头刚要离开入口，突然就被逼近到直接与妖梦的子宫口亲密接触
									PRINTFORMW 「呀%UNICODE(0x2665)%……不要啊%UNICODE(0x2665)%%UNICODE(0x2665)%%UNICODE(0x2665)%……会%UNICODE(0x2665)%……坏掉的%UNICODE(0x2665)%……」
									PRINTFORMDW 已经顾不上这么多了……就这样抓住妖梦的腰部上下运动
									PRINTFORMDW 龟头也借此像啄木鸟一样连续亲吻着已经微微张开的子宫口
									PRINTFORMDW 终于在最后一刻，撞击着妖梦膣内最敏感的位置，让妖梦由内而外地迎来了又一次高潮
									PRINTFORMDW 此时被进攻地松垮垮的子宫口，让那在前面连续撞击的%TINKO()%直接进入了孩子的房间，在里面尽情释放着%SAMEN_DESCRIPTION(MASTER,1)%
									PRINTFORMDW 受到如此刺激的妖梦全身剧烈的颤抖着，无意间促进了更多%SAMEN_DESCRIPTION(MASTER)%在子宫内射出
									PRINTFORMDW 最终妖梦全身无力，瘫在了身上
									PRINTFORMDW 双手趁机重新揉搓起妖梦的双乳的同时，腰部又像刚才一样为了妖梦的『休息』而缓慢的运动着
									PRINTFORMDW 妖梦那已经淫水四溅的%SLIT(TARGET)%里的%TINKO()%就像塞子一样，射出更多%SAMEN_DESCRIPTION(MASTER)%的同时堵住子宫口，不让里面的精液和爱液的混合物溢出
									SIF !TALENT:妊娠
										PRINTFORMDW 妖梦的腹部也因此高高隆起，就像妊娠了一样
								CASE 3
								;对面座位
									PRINTFORMDW 望着妖梦那桃红的双唇，一时性急直接亲了上去
									PRINTFORMDW 一边接吻，一边掏出%TINKO()%在她的%SLIT(TARGET)%外围摩擦
									PRINTFORMDW 似乎察觉到意图的妖梦扶住肩膀，让%SLIT(TARGET,1)%对准%TINKO()%，缓缓坐了下去
									PRINTFORMW 「唔……进来了%UNICODE(0x2665)%……啊%UNICODE(0x2665)%」
									PRINTFORMDW 从后面搂住妖梦，边接吻边托住妖梦小小的屁股上下抽插着
									PRINTFORMDW 没过多久，主导权便被妖梦夺走了
									PRINTFORMDW 妖梦用手环抱脖子，努力的扭动着腰肢
									PRINTFORMDW 享受着妖梦里面的触感的同时，这边的腰部也顺从着妖梦的动作扭动起来
									PRINTFORMDW 终于，眼前的妖梦再也忍受不住快感，身体猛地向后一倾，迎来了又一轮绝顶
									PRINTFORMDW 抱紧妖梦，顺着上涌的冲动在她的里面注入了%SAMEN_DESCRIPTION(MASTER)%
									PRINTFORMW 「嗯%UNICODE(0x2665)%……唔%UNICODE(0x2665)%……」
									PRINTFORMDW 高潮后的妖梦依偎在怀里，默默接受着源源不断输入子宫的精液
									PRINTFORMDW 一边慢慢抚摸妖梦的后背，一边重新开始了运动
									PRINTFORMDW 这回妖梦已经筋疲力尽，任由摆布
									PRINTFORMDW 搂住她的腰的同时，腰部不断向上顶起
									PRINTFORMDW 最后用达到极限的%TINKO()%顶住子宫口，又一次向已经被内射过的子宫里注入%SAMEN_DESCRIPTION(MASTER)%
									PRINTFORMW 「呀啊……嗯%UNICODE(0x2665)%%UNICODE(0x2665)%%UNICODE(0x2665)%」
									PRINTFORMDW 这一下直接惊醒了妖梦，里面的肉壁也猛地一下夹紧
									PRINTFORMDW 轻轻抚摸妖梦那柔软的头发，再用甜言蜜语安抚着妖梦
									PRINTFORMDW 不过妖梦看起来好像……生气了？
									PRINTFORMW 「都几点了……就让人睡一觉嘛……%UNICODE(0x2665)%」
									PRINTFORMDW 望向妖梦，却见她丝毫没有怨气
									PRINTFORMDW 反而一对上视线妖梦就羞红了脸，显得慌张但又尽显渴求之情
									PRINTFORMDW 这样的话岂能早早睡下？
									PRINTFORMDW 一时心急，不等妖梦开口便强吻上去，把她推倒……
								CASE 4
								;背面座位
									PRINTFORMDW 从背后突然抱起妖梦，把那%TINKO()%置于她的%SLIT(TARGET)%之下
									PRINTFORMDW 妖梦见状连忙挣扎，但是经过一阵甜言蜜语的安抚之后默默接受了一切
									PRINTFORMDW 一边爱抚妖梦的性感带，一边让那%TINKO()%撑开阴唇插入进去
									PRINTFORMDW 顶到最深处的那一刻，妖梦那被挑逗到极度敏感的身体就已经开始颤抖了
									PRINTFORMDW 每抽插一下，妖梦都像经历了一次小高潮那样发出了色情的喘息
									PRINTFORMW 「嗯%UNICODE(0x2665)%……嗯%UNICODE(0x2665)%……啊%UNICODE(0x2665)%……不行了%UNICODE(0x2665)%」
									PRINTFORMDW 随着射精感的逼近，腰部的动作也更加卖力起来
									PRINTFORMDW 每一次撞击花心都能听到妖梦那已经语无伦次的叫声
									PRINTFORMDW 最后随着妖梦更剧烈的绝顶，积攒已久的%SAMEN_DESCRIPTION(MASTER)%源源不断的射进最深处
									PRINTFORMW 「不行了%UNICODE(0x2665)%……早点睡吧……%UNICODE(0x2665)%」
									PRINTFORMDW 绝顶过后的妖梦已经疲惫不堪了
									PRINTFORMDW 不过这边的腰部早就如本能一般的继续运动了
									PRINTFORMDW 这次一改刚才的猛烈攻势，准备真的温柔对待妖梦一次
									PRINTFORMDW ——一边和妖梦尽情舌吻，一边放慢了抽插的速度
									PRINTFORMDW 当然，双手仍然在妖梦身上上下其手
									PRINTFORMDW 与此同时，小穴里面分泌出更多爱液与残留的精液混合在一起，让里面的%TINKO()%一次次顺滑的直达花心
									PRINTFORMDW 在烈度不大却长时间持续着的爱抚之下，妖梦的子宫口也微微张开，迎接不断在外面冲撞的%TINKO()%入内
									PRINTFORMDW 但在龟头侵入子宫的一瞬间，所有的快感都同时爆发，让妖梦达到了前所未有的高潮
									PRINTFORMW 「嗯%UNICODE(0x2665)%……嗯%UNICODE(0x2665)%……嗯啊啊%UNICODE(0x2665)%%UNICODE(0x2665)%%UNICODE(0x2665)%」
									PRINTFORMDW 伴随着剧烈的高潮的，是那%TINKO()%直接在子宫内释放了极大量的%SAMEN_DESCRIPTION(MASTER)%
									PRINTFORMDW 妖梦的肉壁把肉棒卡的死死的，所有的%SAMEN_DESCRIPTION(MASTER)%都被一滴不漏的堵在子宫内
									PRINTFORMDW 等到和妖梦双唇分离的时候，妖梦那疲惫的脸庞已经变成了火辣辣的赤红色……
							ENDSELECT
							PRINTFORMDW ……
							PRINTFORMDW 即使精力已经几乎耗光，但下面仍然坚挺着
							PRINTFORMDW 就这样抱住妖梦，用还在她体内的%TINKO()%对快要溢出精液的子宫再次发起了攻势……
							PRINTFORMDW 直到彻底精疲力尽之后，内心才被理智重新支配
							;事后
							BASE:MASTER:精力 = 0
							BASE:MASTER:勃起 = 0
							CFLAG:TARGET:积攒度 = 0
							PRINTFORMDW 理智回归之后，才想起还得给妖梦换睡衣
							IF !CFLAG:没穿内裤 && PANTSNAME(EQUIP:下半身内衣２, TARGET) != "没穿内裤"
								PRINTFORMDW 趁妖梦还处在被内射到恍惚的状态的时候，把仍然挂在腿上的%PANTS_DESCRIPTION(EQUIP:下半身内衣２, TARGET)%%PANTSNAME(EQUIP:下半身内衣２, TARGET)%拿走藏了起来
								CALL PANTS_GET(TARGET)
							ENDIF
							PRINTFORMDW 不过妖梦的小穴仍然没有松开的意思
							PRINTFORMW 「说好的……换衣服呢……？」
							PRINTFORMDW 正想着要不要偷懒就这样睡了的时候，虚弱中的妖梦突然发出了呻吟
							PRINTFORMW 「也不看看……是谁……把人家弄成这样的……」
							PRINTFORMDW 毕竟真的是自己的不好……还是不要偷懒了
							IF !CFLAG:(240 + 11) && !CFLAG:(240 + 5)
								PRINTFORMDW 虽说现在还处在和妖梦连接在一起的状态，但好在妖梦的睡衣并不包括裤子啥的
								PRINTFORMDW 于是保持插入，慢慢除去妖梦身上的衣服
								PRINTFORMDW 然后再把睡衣披上去穿好
								PRINTFORMDW 期间不时调戏般的往上一顶，妖梦的身体就会触电一般的颤抖着
								PRINTFORMDW 完整的帮妖梦换好睡衣过后，发现她已经睡着了
								PRINTFORMDW 即使在睡眠中也不肯放开啊
								PRINTFORMDW 在扭动腰部试图借此惊醒妖梦之后，确认妖梦已经累得不行，一时半会醒不来
								PRINTFORMDW 虽然睡前说的话听起来有点抱怨的感觉，但是妖梦的脸上依然挂着笑容
								PRINTFORMDW 不时还能听到被下面的快感刺激而发出的娇喘声
								PRINTFORMDW 这样的影响下，妖梦一定在做春梦吧
								PRINTFORMDW 今天也从妖梦身上获得了身体与心灵上的双重满足呢
								PRINTFORMDW 侧卧着身体，盖上被子，抱着妖梦双双进入了梦乡
								PRINTFORMW 「晚安……%UNICODE(0x2665)%」
							ELSE
								PRINTFORMDW 于是勉强将阴茎从妖梦的膣内拔了出来
								PRINTFORMDW 拔出来的瞬间，深处的精液和爱液的混合物随即流出，在床单上形成了一个个水泊
								PRINTFORMDW 就这样彻底脱光妖梦的衣服，然后顶住诱惑，慢慢披上睡衣
								PRINTFORMDW 衣服与%NIPPLE_DESCRIPTION(TARGET)%摩擦的时候，妖梦的身体就像触电一样颤抖了起来
								PRINTFORMDW 完整的帮妖梦换好睡衣过后，发现她已经睡着了
								PRINTFORMDW 虽然睡前说的话听起来有点抱怨的感觉，但是妖梦的脸上依然挂着笑容
								PRINTFORMDW 今天也从妖梦身上获得了身体与心灵上的双重满足呢
								PRINTFORMDW 安心的钻进被窝，抱着妖梦双双进入了梦乡
								PRINTFORMW 「晚安……」
							ENDIF
							CALL K23_AUTOSEX(TARGET,0b111,0,(MAX(MIN(ABL:TARGET:欲望 / 2, ABL:MASTER:欲望 / 2) + CFLAG:TARGET:积攒度 / 200,1) + 2),"10/10/20/20/20",1)
							CALL JUEL_UP_SPECIAL(TARGET,"欲情","欲望",25,1)
							CALL JUEL_UP_SPECIAL(TARGET,"屈服","膣射中毒",20,1)
							CALL JUEL_UP_SPECIAL(TARGET,"恭順","従順",20,1)
							CALL K23_ENDDAY(23)
							RETURN 1
						ELSE
							PRINTFORMW 「%K23_CALLNAME()%想看那个啊……」
							PRINTFORMW 「话说%K23_CALLNAME()%在这方面真是坚定不移呢～」
							PRINTFORMDW 妖梦显露出了比平常稍微多些魅力的微笑
							PRINTFORMDW 一边缓缓脱下衣服，直接展露着%UNDER_SKIRT_DESCRIPTION(TARGET)%
							PRINTFORMW 「%K23_CALLNAME()%的眼睛在看哪里啊～」
							PRINTFORMDW 之后妖梦慢慢换上睡衣，之前看的清清楚楚的%OPPAI_DESCRIPTION(TARGET,1)%也逐渐被睡衣完全遮挡
							PRINTFORMW 「想什么呢？」
							PRINTFORMW 「明天还要起床工作呢～」
							PRINTFORMDW 之后就被妖梦强行拉到被窝里了
							CALL SET_TOGETHER(1,TARGET,1)
						ENDIF
					ELSEIF TALENT:恋人
						PRINTFORMW 「也不是不能给你看……」
						PRINTFORMW 「但别动手动脚啊……」
						PRINTFORMDW 妖梦慢慢脱下衣服，期间试图用手遮住%UNDER_SKIRT_DESCRIPTION(TARGET)%
						PRINTFORMW 「呜～」
						PRINTFORMDW 直到换上睡衣，妖梦脸上的潮红仍然没有褪去
					ELSE
						PRINTFORMW 「我知道你想看什么」
						PRINTFORMW 「但不要这样盯着人家换衣服啊……」
						PRINTFORMDW 妖梦背对着%CALLNAME:MASTER%，换上睡衣之后便躺下了
					ENDIF
				ELSE
					IF GETBIT(CFLAG:23:K23_记忆,6)
						IF TALENT:処女
							PRINTFORMW 「别……别乱摸啊……」
							PRINTFORMDW 妖梦满面潮红地褪下衣服，不时把头扭向旁边，试图隐藏自己的脸
							PRINTFORMDW 趁机抚摸着已经暴露在视线内的%OPPAI_DESCRIPTION(TARGET)%和%SLIT(TARGET)%
							PRINTFORMDW 同时在妖梦耳边夸赞着她的裸体
							PRINTFORMW 「想做的话……要等我醒着的时候再说嘛%UNICODE(0x2665)%」
							PRINTFORMDW 假装听不见妖梦说话，继续玩弄着妖梦的敏感地带
							PRINTFORMW 「都说了现在不可以啦……！」
							PRINTFORMDW 妖梦突然发出了尖叫
							PRINTFORMDW 再这样下去妖梦真的会生气的……
							PRINTFORMDW 于是放开了双手，哄着妖梦让她别生气
							PRINTFORMDW 最后给消去怒火的妖梦一个晚安吻才总算被原谅了
							PRINTFORMDW 『下次……别乱搞了』
							PRINTFORMDW 即使有被子遮体，妖梦仍然面红耳赤着
						ELSE
							PRINTFORMW 「变态……」
							PRINTFORMDW 妖梦缓缓褪下衣物，然后趴下把脱下来的衣物叠成一块
							PRINTFORMDW 目不转睛地看着此刻正朝向自己的%SLIT(TARGET,1)%，不禁咽了一口口水
							PRINTFORMDW 突然，妖梦猛的一下回过头
							PRINTFORMDW 不会是因为刚才的事被发现了吧……？
							PRINTFORMDW 不过与妖梦面对面的时候，妖梦的脸上仍然挂着稚气的微笑
							PRINTFORMDW 知道妖梦没有不高兴之后，总算松了一口气
							PRINTFORMDW 最后妖梦盖上被子，但是眼睛仍然望向这边
							PRINTFORMW 「……想做什么的话……不要太过分了……」
							PRINTFORMDW 权衡利弊之下，给了妖梦一个晚安吻
						ENDIF
					ELSEIF TALENT:恋人
						PRINTFORMW 「也不是不能给你看……」
						PRINTFORMW 「但别动手动脚啊……」
						PRINTFORMDW 妖梦慢慢脱下衣服，期间试图用手遮住已经裸露在外的%SLIT(TARGET,1)%
						PRINTFORMW 「呜……」
						PRINTFORMDW 直到钻进被窝，妖梦脸上的潮红仍然没有褪去
					ELSE
						PRINTFORMW 「连人家裸睡也要盯着看吗……」
						PRINTFORMDW 妖梦脱下了衣服
						PRINTFORMDW 但就在转身的一瞬间，被她拿脱下来的衣服遮住了视线
						PRINTFORMDW 拿下挡视线的衣服之后，妖梦已经面红耳赤的窝在被窝里了
						PRINTFORMDW 即使到了已经可以看裸体的关系还在拘谨着啊
					ENDIF
				ENDIF
				IF NEMUKE() > 960
					PRINTFORMW 「%K23_CALLNAME()%也该睡了」
					PRINTFORMW 「这么硬撑的话对身体不好」
					PRINTFORMW 「那么……」
				ENDIF
				PRINTFORMW 「晚安～」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出して寝た（眠そうな【TARGET】に追い出された…）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF CFLAG:前一次的位置 == CFLAG:現在位置
				;前のターンまで一緒に部屋にいた
				IF !CFLAG:ブチギレ
				ELSE
					SIF TALENT:思慕 || TALENT:恋慕
						PRINTFORMW 「不好意思」
					PRINTFORMW 「我要去睡了」
					PRINTFORMW 「还请回去吧」
				ENDIF
			ELSE
				;寝るために部屋に帰ってきたところ
				SIF TALENT:思慕
					PRINTFORMW 「%K23_CALLNAME()%？」
				PRINTFORMW 「你怎么在这？」
				PRINTFORMW 「快给我出去」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た（【TARGET】が部屋に戻ってきた→唇をとがらせる【TARGET】に、【MASTER】は渋々【Ｈの相手】から離れた）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF GETBIT(CFLAG:23:K23_记忆,6)
				PRINTFORMW 「%K23_CALLNAME()%……」
				IF GETBIT(CFLAG:23:K23_记忆,7)
					PRINTFORMW 「大坏蛋……」
					PRINTFORMW 「滚开」
					PALAM:抑鬱 += 1000
				ELSE
					PRINTFORMW 「%CALLNAME:MASTER%！！」
					PRINTFORMW 「你是当我不存在吗！？」
					PRINTFORMW 「我有哪点对不起你？？」
					PRINTFORMW 「居然还带别的女人回家做……！？」
					PRINTFORMW 「%CALLNAME:MASTER%……你还有什么借口！？」
					PRINTFORMW 「呜啊啊啊啊啊啊啊……」
					SETCOLOR C_RED
					PRINTFORMW 「从现在开始别出现在我眼前！」
					RESETCOLOR
					CALL GET_ANGRY(23,3)
				ENDIF
			ELSEIF TALENT:恋人 && TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%……」
				PRINTFORMDL 一见到在自己的房间里和别的女人尽情交欢的%CALLNAME:MASTER%
				PRINTFORMDW 妖梦此前的睡意瞬间就被一扫而空
				PRINTFORMW 「亏我那么相信你，你就给我这个‘惊喜’！？」
				PRINTFORMW 「都给我滚！！」
				SETCOLOR C_YELLOW
				PRINTFORMW 妖梦看起来很生气的样子……
				RESETCOLOR
				CALL GET_ANGRY(23,1)
				PALAM:抑鬱 += 500
			ELSEIF TALENT:恋慕 || TALENT:恋人
				PRINTFORMW 「%CALLNAME:MASTER%……」
				PRINTFORMW 「你们是在……？」
				PRINTFORMDW 妖梦面无表情的看着正在自己的房间里和别的女人交欢中的%CALLNAME:MASTER%
				PRINTFORMW 「%CALLNAME:MASTER%你……」
				PRINTFORMDW 但还未等%CALLNAME:MASTER%开始解释妖梦便怒发冲冠
				IF CFLAG:23:初期位置 == CFLAG:MASTER:初期位置
					PRINTFORMW 「你以为住在我的房间里就代表你也可以随意处置我的房间吗！？」
					PRINTFORMW 「甚至还要在我的房间行如此……之事！？」
				ELSE
					PRINTFORMW 「你是来恶心我的吗！？」
				ENDIF
				PRINTFORMW 「现在请所有人都出去」
				PRINTFORMW 「我要一个人冷静一下」
			ELSE
				PRINTFORMW 「你你你你你你你……们在干什么！？」
				PRINTFORMW 「快给我滚出去！！」
				CALL GETOUT(MASTER)
			ENDIF
			IF !GETBIT(CFLAG:23:K23_记忆,7) && (TALENT:恋慕 || TALENT:恋人)
				PALAM:不快 += 500
				PALAM:反感 += 500
				PRINTFORMDL 妖梦把所有人都赶了出去
				PRINTFORMDW 之后房间里便传出了哭声……
				PRINTFORMDW 过了一段时间之后哭声才逐渐消失
				CALL K23_ALLOUT
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;来訪キャラが拠点で休憩（～は疲れ切っている→ちょっと休んでいきなよ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW 「呼……好累啊……」
		IF TALENT:恋人
			PRINTFORMW 「要不就让%K23_CALLNAME()%带路去能休息的地方吧～」
			PRINTFORMDW 话音刚落，妖梦整个人就靠在了%CALLNAME:MASTER%身上
			PRINTFORMW 「不快点去的话会晕倒的」
		ELSE
			PRINTFORMW 「你带我去能休息的地方吧……」
			PRINTFORMW 「没……没事，我能自己走」
			PRINTFORMDW 两人走着走着，妖梦便不自觉地抱紧了%CALLNAME:MASTER%的手腕
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝室に居る状態でその場で寝る（～は眠気に負け、眠りについた…）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW 「已经这么晚了……」
		IF CFLAG:诶嘿嘿
			;うふふ中に寝る
			IF TALENT:恋慕
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORML 「虽然%K23_CALLNAME()%搞得我太舒服了……%UNICODE(0x2665)%」
					PRINTFORMW 「但我真的要睡了……」
					PRINTFORML 「%K23_CALLNAME()%也应该早点睡……」
					PRINTFORMW 「反正也可以等睡醒之后再继续嘛……%UNICODE(0x2665)%」
				ELSE
					PRINTFORMW 「好了好了好了好了好了……」
					PRINTFORMW 「该睡了……」
					PRINTFORMW 「明天早点起床才能好好继续不是吗……」
				ENDIF
			ENDIF
		ELSE
			PRINTFORML 「呜啊啊啊啊啊～」
			PRINTFORMW 「我要睡了」
			IF TALENT:恋慕
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORMW 「%K23_CALLNAME()%要一起睡嘛？」
				ELSE
					PRINTFORMW 「明天再聊吧……」
				ENDIF
			ELSE
				PRINTFORMW 「这段时间还请……不要打扰我……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;拠点外で自宅前に居るキャラが自室に帰って寝る（眠くなった～は自室に帰って行きました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 10
		PRINTFORML 「呜啊啊啊啊啊～」
		PRINTFORMW 「我要睡了」
		IF TALENT:恋慕
			PRINTFORMW 「晚安～」
		ELSE
			PRINTFORMW 「%K23_CALLNAME()%还请回去吧」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;る～ことが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他（キャラ指定なし
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;押し倒した
;==================================================
@M_KOJO_审查中_EVENT_K23_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
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;好きにして状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;誘ってきた（人目につかない場所に行きたがるやつ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;ARG:1=TARGETの欲求不満度（最高1000）
		;必要ならばこれで分岐を作ってください
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

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

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;TCVAR:盗み食い抑制で持っていた食物を食われるのを回避できる
	;仕様例（薬が入ってたら食わない）
	;IF DISH_DRG
	;	TCVAR:盗み食い抑制 = 1
	;ENDIF
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後のムード
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORMW 「？」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_审查中_EVENT_K23_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_审查中_EVENT_K23_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;あなたの私室変更により同居
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_审查中_EVENT_K23_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:诶嘿嘿
			;うふふ中に眠くて帰る
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:诶嘿嘿
			IF CFLAG:衰弱
				;うふふ中に疲れて帰る
				PRINTFORMW
			ELSE
				;うふふ中に眠くて帰る
				PRINTFORMW
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り（キャラの自宅位置、またはキャラの部屋でデート終了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート終了時に部屋に来ないかと誘う（～から部屋に来ないかと誘われた）
	;（来訪キャラのみ,自宅が無いキャラでも発生します）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「行く」を選択（～に誘われるまま、【MASTER】は【TARGET】の部屋へと向かった……）
	;（これが発生すると十中八九押し倒されます）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「やめとく」を選択（～は心なしか寂しそうだ……）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくないと言い出す（～は今夜は帰りたくないと言い出した…）
	;（来訪キャラの帰宅時に欲求不満と欲望が高いと発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊める」を選択（～は【MASTERの自室】に泊まっていくことになりました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊めない」を選択、または家主が居る（【MASTER】は丁重に断った）
	;（家主が居る＝MASTERの私室に他のキャラの私室を設定している）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;疲れて帰宅（疲れきった～は帰って行きました）
	;（～は疲れ切っている→（入り口）まで送るよ でも発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 10
		IF CFLAG:诶嘿嘿
			;うふふ中に疲れて帰る
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_审查中_EVENT_K23_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「怎么回事……」
		PRINTFORMDW 妖梦在训练的时候突然停下了动作
		PRINTFORMW 「集中不了精力啊……」
		IF TALENT:23:恋人
			PRINTFORMW 「%CALLNAME:MASTER%啊，你究竟想要干什么……」
			PRINTFORMW 「明明都让我这么期待了……」
			PRINTFORMW 「你就是这样当恋人的吗……？」
		ELSE
			PRINTFORMDW %CALLNAME:MASTER%又没影了……
			PRINTFORMDW 说实话这人就是这样来无影去无踪的……
		ENDIF
		PRINTFORMW 「为什么这个时候还要想着他啊……」
		PRINTFORMW 「但……最近只要他不在就会……」
		PRINTFORMW 「这种感觉，已经压制不住了……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「怎么回事……」
		PRINTFORMDL 某天修行的时候，妖梦突然愣在原地，一动不动
		PRINTFORMW 「他……」
		PRINTFORMDL 平常这个点妖梦总是会被%CALLNAME:MASTER%纠缠着
		PRINTFORMDW 但今天是个例外……
		PRINTFORMDW 大概%CALLNAME:MASTER%在忙着什么吧……？
		PRINTFORMDW 可是妖梦却并不觉得轻松了多少……
		PRINTFORMW 「他真的……不来了吗？」
		PRINTFORMDW 突然，%CALLNAME:MASTER%在背后冷不丁抱住了妖梦
		PRINTFORMDW 『妖梦大人怎么不训练了？』
		PRINTFORMDW 那被%CALLNAME:MASTER%纠缠的日常又回来了——
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;キス魔取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰狂い取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;ポルチオ性感取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;おもらし癖取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_审查中_EVENT_K23_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_审查中_EVENT_K23_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_审查中_EVENT_K23_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
CALL M_KOJO_审查中_COLOR_K23
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_审查中_EVENT_K23_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_审查中_EVENT_K23_26(ARG,ARG:1)

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

;オナバレックス判定用関数
;RETURN -1で強制失敗、RETURN 1で強制成功
@M_KOJO_审查中_EVENT_K23_26_1(ARGS)
#DIM 補正値
IF ARGS == "どうぞそのまま"

ELSEIF ARGS == "二人"

ENDIF

;使用例
;IF !TALENT:XX:恋慕
;	PRINTFORMW %CALLNAME:XX%はガードが堅いぞ！
;	RETURN -1
;ENDIF
;IF TALENT:MASTER:濃厚精液
;	PRINTFORMW %CALLNAME:XX%はちんぽに弱いぞ！
;	RETURN 1
;ENDIF
;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_审查中_EVENT_K23_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 0
		;-------------------------------------------------
			IF LOCAL:1
				RETURN 1
			ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 0
		;-------------------------------------------------
			IF LOCAL:1
				RETURN 1
			ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 0
		;-------------------------------------------------
			IF LOCAL:1
				RETURN 1
			ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 0
		;-------------------------------------------------
			IF LOCAL:1
				RETURN 1
			ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 0
		;-------------------------------------------------
			IF LOCAL:1
				RETURN 1
			ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 0
		;-------------------------------------------------
			IF LOCAL:1
				RETURN 1
			ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_审查中_EVENT_K23_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 0
		;-------------------------------------------------
			IF LOCAL:1
			;時間停止時
				IF FLAG:70
			;通常
				ELSE
				ENDIF
				RETURN 1
			ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 0
		;-------------------------------------------------
			IF LOCAL:1
			;時間停止時
				IF FLAG:70
			;通常
				ELSE
				ENDIF
				RETURN 1
			ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 0
		;-------------------------------------------------
			IF LOCAL:1
			;時間停止時
				IF FLAG:70
			;通常
				ELSE
				ENDIF
				RETURN 1
			ENDIF
		;-------------------------------------------------
		CASE 3
		;パンツちょうだい
		;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 0
		;-------------------------------------------------
			IF LOCAL:1
				SELECTCASE ARG:1
				;-------------------------------------------------
					CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
						LOCAL:1 = 0
				;-------------------------------------------------
						IF LOCAL:1
							RETURN 1
						ENDIF
				;-------------------------------------------------
					CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
						LOCAL:1 = 0
				;-------------------------------------------------
						IF LOCAL:1
							RETURN 1
						ENDIF
				;-------------------------------------------------
					CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
						LOCAL:1 = 0
				;-------------------------------------------------
						IF LOCAL:1
							RETURN 1
						ENDIF
				;-------------------------------------------------
					CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
						LOCAL:1 = 0
				;-------------------------------------------------
						IF LOCAL:1
							RETURN 1
						ENDIF
						RETURN 1
				ENDSELECT
			ENDIF
	ENDSELECT
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_审查中_EVENT_K23_31(ARG,ARG:1)
;口上主はTARGET
;ARGは会ってない日数
;何日以上会ってなかったら愚痴を言うとかできます
;CFLAG:オナバレで分岐入れてもよさそう
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;今日会っていない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今日会っている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
	;楼溜子许可证(
	IF CFLAG:23:信賴度 >= 200 && CFLAG:66:信賴度 >= 200 && !GETBIT(CFLAG:23:K23_记忆,2)
		PRINTFORML 「啊对了，%K23_CALLNAME()%」
		PRINTFORMDW 被妖梦叫住了
		PRINTFORMW 「刚刚幽幽子大人和我说了一下」
		PRINTFORMW 「从现在开始你就把白玉楼当作自己家就可以了」
		PRINTFORMW 「是的，宵禁的时候也不会阻拦阁下的」
		PRINTFORMW 「那么以后还请多多指教～」
		PRINTFORMDW 说完，妖梦轻轻鞠了个躬
		PRINTFORMDW 看来今后有更多的时间能和妖梦相处了呢
		SETBIT CFLAG:23:K23_记忆,2;宵禁拜访许可
	ENDIF
	;禁欲中~
	IF !TALENT:23:恋慕
		CFLAG:23:积攒度 /= 3
	ENDIF
ENDIF
RETURN 1

;==================================================
;自由行動中
;ARG:1      0=行動中,1=完了時
;技能系の行動は技能レベルが1以上なら発生
;==================================================
@M_KOJO_审查中_EVENT_K23_32(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		CASE 0
		;▼考え事,（～は考えに耽っている。）
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 1
		;▼遊ぶ,（～は走り回っている。）
		;※[幼稚]持ちのみ
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 2
		;▼食事,（～は食事を摂っている。）
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 3
		;▼つまみ食い（～はこっそりつまみ食いをしている。）
		;※[妖精]持ちとルーミア、こいし、幽々子、紫苑のみ
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 4
		;▼掃除,（～はテキパキと部屋の掃除をしている。）
		;※[掃除係]持ちまたは汚臭耐性-1以下のみ
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 5
		;▼運動,（～は張り切って運動している。）
		;※[音楽知識]持ちは除く（演奏になる）
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 6
		;▼読書,（～は黙々と本を読んでいる。）
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 7
		;▼料理,
			IF !ARG:1
			;行動中
				IF Activity_Duration:TARGET > 30
				;料理中（～は軽快に料理をしている。）
					PRINTFORML
				ELSE
				;食事中（～は作った料理を食べている。）
					PRINTFORML
				ENDIF
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 8
		;▼演奏
		;※[音楽知識]持ちのみ（TALENT:音楽知識で変化）
		;1,～は小気味よく演奏している。
		;2,～は気ままに歌っている。
		;3,～は華麗に踊っている。
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 9
		;▼採集,（～使える素材を探している。）
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 10
		;▼釣り,（～はのんびり釣りをしている。）
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 11
		;▼実験,（～は怪しい実験をしている。）
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 12
		;▼のんびり,（～はのんびりしている。）
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 13
		;▼晩酌,（～はまったりとお酒を飲んでいる。）
		;※酒耐性0以上のみ
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 14
		;▼買い物,（～は気ままに買い物している。）
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 15
		;▼説教,（～はじっと聞いている…）
		;※神霊・蓬莱人は除く
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
		CASE 16
		;▼落とし穴,（～は落とし穴を増やしている）
		;※三月精・チルノ・クラウンピースのみ
		;それ以外は落ちる側
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時,
			;（仕掛け人（失敗時）,誰も引っかからないので～は飽きてしまったようだ…）
			;（落ちた側（戦闘能力2～4）,～はすぐに穴から飛び出して周りをキョロキョロ見回している…）
				PRINTFORML
			ENDIF
		CASE 17
		;▼雪だるま作り
			IF !ARG:1
			;行動中
				PRINTFORML
			ELSE
			;完了時
				PRINTFORML
			ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;ハッピーニューイヤー
;年越しの瞬間に同じ部屋に居ると発生
;==================================================
@M_KOJO_审查中_EVENT_K23_33(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORMW
ENDIF
RETURN 1

;==================================================
;技能レベルアップ
;各ABL値はレベルアップ後の値になってます
;==================================================
@M_KOJO_审查中_EVENT_K23_34(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		CASE 1
		;戦闘技能
			PRINTFORMW
		CASE 2
		;話術技能
			PRINTFORMW
		CASE 3
		;清掃技能
			PRINTFORMW
		CASE 4
		;教養
			PRINTFORMW
		CASE 5
		;料理技能
			PRINTFORMW
		CASE 6
		;採集Lv
			PRINTFORMW
		CASE 7
			IF ARG:1 == 0
			;音楽技能
				PRINTFORMW
			ELSEIF ARG:1 == 1
			;【音楽知識】取得
				PRINTFORMW
			ELSEIF ARG:1 == 2
			;【相対音感】取得
				PRINTFORMW
			ENDIF
		CASE 8
		;釣りLv
			PRINTFORMW
		CASE 9
			IF ARG:1 == 0
			;調合Lv
				PRINTFORMW
			ELSEIF ARG:1 == 1
			;【調合知識】取得
				PRINTFORMW
			ENDIF
		CASE 10
		;伐採Lv
			PRINTFORMW
		CASE 11
			IF ARG:1 == 0
			;指
				PRINTFORMW
			ELSEIF ARG:1 == 1
			;【器用な指】取得
				PRINTFORMW
			ENDIF
		CASE 12
			IF ARG:1 == 0
			;舌
				PRINTFORMW
			ELSEIF ARG:1 == 1
			;【舌使い】取得
				PRINTFORMW
			ENDIF
		CASE 13
			IF ARG:1 == 0
			;胸
				PRINTFORMW
			ELSEIF ARG:1 == 1
			;【淫乳】取得
				PRINTFORMW
			ENDIF
		CASE 14
		;腰
			PRINTFORMW
		CASE 15
			IF ARG:1 == 0
			;膣
				PRINTFORMW
			ELSEIF ARG:1 == 1
			;【淫壺】取得
				PRINTFORMW
			ENDIF
		CASE 16
			IF ARG:1 == 0
			;アナル
				PRINTFORMW
			ELSEIF ARG:1 == 1
			;【尻穴狂い】取得
				PRINTFORMW
			ENDIF
	ENDSELECT
	PRINTL
ENDIF
RETURN 1

;==================================================
;デイリーイベント2,夢精
;濃厚精液状態で発生
;▼地の文--------------------------------------------------
;【MASTER】が夢精で汚した下着を洗っていると【TARGET】が飛んできた！
;【TARGET】はそんなもの他の洗濯物と一緒に洗わないでと抗議すると、【MASTER】の手に収まった下着をふんだくり戻っていった…
;【TARGET】　欲情の珠＋1000
;==================================================
@M_KOJO_审查中_DAILY_EVENT_K23_2(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
;※コメントアウトすると欲情の珠＋1000（JUEL:11 += 1000）もカットされるので注意
CALL DAILY_MESSAGE_2(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORMW
ENDIF
RETURN 1

;==================================================
;デイリーイベント4,物思い
;親密5以上で発生（来訪キャラのみ）
;▼地の文--------------------------------------------------
;とりとめもない思考に耽っていた【TARGET】は、いつの間にか【MASTER】のことを考えていたことに気づいた
;【TARGET】は明日【MASTER】に会いに行くことにしたようだ
;==================================================
@M_KOJO_审查中_DAILY_EVENT_K23_4(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
CALL DAILY_MESSAGE_4(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORMW
ENDIF
RETURN 1

;==================================================
;デイリーイベント12,特訓
;信頼100以上で発生（拠点キャラのみ）
;==================================================
@M_KOJO_审查中_DAILY_EVENT_K23_12(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
;コメントアウトできるのはARG:1=1,2のみです
CALL DAILY_MESSAGE_12(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG:1
		CASE 1
		;特訓を頼まれる
		;～から新技の訓練に付き合って欲しいと言われた
			PRINTFORML
		CASE 2
		;断る
		;～は残念そうだ
			PRINTFORML
		CASE 3
		;～の攻撃！
		;※ここはWAITしないでください
			PRINTFORML
		CASE 4
			IF ARG:2
			;時間停止して回避
				PRINTFORML
			ELSE
			;回避成功
				PRINTFORML
			ENDIF
		CASE 5
		;回避失敗
			PRINTFORML
	ENDSELECT
ENDIF
RETURN 1

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

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

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

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

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

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

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_K23_LOST_VIRGIN_STOP
;-------------------------------------------------
IF GETBIT(CFLAG:23:K23_记忆,6)
	IF TALENT:無知
		PRINTFORMW 「啊……那个……会很痛的……」
		CALL K23_SE_TEACHING
		IF !RESULT
			CALL K23_CHKREASON
			WAIT
			IF RESULT:0 > RESULT:1
				PRINTFORMW 「但只要是%K23_CALLNAME()%你的话……」
				PRINTFORMW 「我一定能忍住的……」
				RETURN 0
			ELSE
				PRINTFORMW 「不是……真的会很痛的……」
				PRINTFORMW 「不要啊……」
				RETURN 1
			ENDIF
		ELSE
			PRINTFORMW 「%K23_CALLNAME()%都这么说了……」
			PRINTFORMW 「那作为%K23_CALLNAME()%的新娘子的我就一定要尽全力……」
			PRINTFORMW 「所以……来吧……%K23_CALLNAME()%%UNICODE(0x2665)%」
			RETURN 0
		ENDIF
	ELSE
		PRINTFORMW 「我已经做好觉悟了……」
		PRINTFORMW 「只要是%K23_CALLNAME()%你的话……」
		PRINTFORMW 「作为%K23_CALLNAME()%的新娘子的我就一定要尽全力……」
		PRINTFORMW 「所以……来吧……%K23_CALLNAME()%%UNICODE(0x2665)%」
		RETURN 0
	ENDIF
ELSEIF TALENT:恋慕
	PRINTFORMW 「%K23_CALLNAME()%……」
	PRINTFORMW 「你这是……？」
	IF TALENT:恋人 && TALENT:無知
		PRINTFORMW 「等等……你要……干什么？？？」
		PRINTFORMW 「会……很温柔的？」
		PRINTFORMW 「我只知道下面被碰到的话会特别痛……」
		CALL K23_SE_TEACHING
		IF RESULT
			PRINTFORMW 「%K23_CALLNAME()%这么说的话……」
			CALL K23_CHKREASON
			WAIT
			IF RESULT:0 > RESULT:1
				PRINTFORMW 「那我……原谅你了……」
				PRINTFORMW 「不过……你要负起责任哦……」
				RETURN 0
			ELSE
				PRINTFORMW 「不行不行不行不行不行……！」
				PRINTFORMW 「我们又不是那种关系……」
				RETURN 1
			ENDIF
		ELSE
			PRINTFORMW 「不是……真的会很痛的……！」
			RETURN 1
		ENDIF
	ELSE
		PRINTFORMW 「啊啊啊啊啊啊啊啊！」
	ENDIF
ELSE
	PRINTFORMW 「那玩意……你想要干什么！？」
	PRINTFORMW 「快滚开！！！」
	PRINTFORMDW 不知道什么东西强行拽开了%CALLNAME:MASTER%
ENDIF
PRINTFORML
RETURN 1

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_初回がオンになっている場合のみ有効。
;初めて押し倒した時、ここでRETURN -1すると押し倒しを強制的にキャンセルします。
;RETURN 0なら通常の判定を行い、RETURN 1すると無条件に成功させます。
;特定のイベント（デート帰りキスなど）を見るまでうふふできないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_审查中_EVENT_K23_PERMISSION_1
;-------------------------------------------------
IF CFLAG:ブチギレ || MARK:反発刻印
	PRINTFORMW 「？」
	PRINTFORMW 「你想干嘛！？」
	RETURN -1
ELSEIF TCVAR:烂醉
	SELECTCASE RAND:100
	;1%的几率会把MASTER置入蒸炉
		CASE 0
			PRINTDATAW
				DATAFORM 「犯冥界疆土者，梦必击而破之！」
				DATAFORM 「若敢来犯，必叫你大败而归！」
				DATAFORM 「以攻为守，破敌卫疆！」
				DATAFORM 「这千级阶梯后，便是幽冥铁壁！」
				DATAFORM 「破军剑舞，正在此时！」
				DATAFORM 「幽冥铁壁，御敌于千里之外！」
			ENDDATA
		CASEELSE
			IF GETBIT(CFLAG:23:K23_记忆,6) && MARK:反発取得履歴
				PRINTDATAW
					DATAFORM 「呜呜呜……」
					DATAFORM 「别碰我……」
					DATAFORM 「负心汉……」
					DATAFORM 「大坏蛋……」
					DATAFORM 「滚开……！」
				ENDDATA
			ENDIF
			PRINTDATAW
				DATAFORM 「呜啊……！」
				DATAFORM 「吃我一刀！」
				DATAFORM 「看招……！」
				DATAFORM 「人鬼剑……！」
				DATAFORM 「斩……！」
			ENDDATA
	ENDSELECT
	PRINTFORMDW 这种状态下的妖梦太危险了……
	RETURN -1
ELSEIF FINDELEMENT(TARGET, 0) > 1 && !GETBIT(CFLAG:23:K23_记忆,7)
	SIF GETBIT(CFLAG:23:K23_记忆,6)
		PRINTFORMW 「既然是%K23_CALLNAME()%的话……」
	PRINTFORMW 「等等」
	PRINTFORMW 「怎么她也一起脱衣服了？？？」
	PRINTFORMW 「你们要干什么啊！！？」
	CALL GET_ANGRY(23)
	RETURN -1
ELSEIF GETBIT(CFLAG:23:K23_记忆,6)
	PRINTFORMW 「既然是%K23_CALLNAME()%的话……」
	PRINTFORMW 「那……也不是不可以……」
	RETURN 1
ELSEIF TALENT:恋慕
	IF TALENT:恋人
		PRINTFORMW 「等等等等等等等等……！」
		PRINTFORMW 「我们还没到那种关系呢……！」
		PRINTFORMW 「不要……！」
		CALL ASK_YN("尊重她的意志","作最后的努力")
		IF RESULT == 0
			RETURN -1
		ELSE
			CALL K23_CHKREASON
			WAIT
			IF RESULT:0 > RESULT:1
				PRINTFORMDW 用三寸不烂之舌把妖梦哄过去了
				RETURN 1
			ELSE
				PRINTFORMW 「不行不行不行不行不行……！」
				PRINTFORMW 「我们又不是那种关系……」
				RETURN -1
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW 「%K23_CALLNAME()%，你这是……？」
		PRINTFORMW 「等等……你要干什么！？」
		PRINTFORMW 「放开我！」
		RETURN -1
	ENDIF
ELSE
	IF TALENT:恋人
		PRINTFORMW 「你在想什么啊！？」
		PRINTFORMW 「即使是恋人也不能这样……！」
	ELSE
		PRINTFORML 「你要干什么！？」
		PRINTFORMDW 妖梦直接拔出了刀对峙着
	ENDIF
	RETURN -1
ENDIF
RETURN 0
;-------------------------------------------------

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_通常がオンになっている場合のみ有効。
;合意付きで押し倒した時、ここでRETURN -1すると押し倒しを強制的にキャンセルします。
;RETURN 0なら通常通り成功させます。
;合意があっても何らかの理由でうふふできないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_审查中_EVENT_K23_PERMISSION_2
;-------------------------------------------------
IF CFLAG:ブチギレ || MARK:反発刻印
	PRINTFORMW 「？」
	PRINTFORMW 「你想干嘛！？」
	RETURN -1
ELSEIF TCVAR:烂醉
	SELECTCASE RAND:100
	;1%的几率会把MASTER置入蒸炉
		CASE 0
			PRINTDATAW
				DATAFORM 「犯冥界疆土者，梦必击而破之！」
				DATAFORM 「若敢来犯，必叫你大败而归！」
				DATAFORM 「以攻为守，破敌卫疆！」
				DATAFORM 「这千级阶梯后，便是幽冥铁壁！」
				DATAFORM 「破军剑舞，正在此时！」
				DATAFORM 「幽冥铁壁，御敌于千里之外！」
			ENDDATA
		CASEELSE
			IF GETBIT(CFLAG:23:K23_记忆,6) && MARK:反発取得履歴
				PRINTDATAW
					DATAFORM 「呜呜呜……」
					DATAFORM 「别碰我……」
					DATAFORM 「负心汉……」
					DATAFORM 「大坏蛋……」
					DATAFORM 「滚开……！」
				ENDDATA
			ENDIF
			PRINTDATAW
				DATAFORM 「呜啊……！」
				DATAFORM 「吃我一刀！」
				DATAFORM 「看招……！」
				DATAFORM 「人鬼剑……！」
				DATAFORM 「斩……！」
			ENDDATA
	ENDSELECT
	PRINTFORMDW 这种状态下的妖梦太危险了……
	RETURN -1
ELSEIF FINDELEMENT(TARGET, 0) > 1 && !GETBIT(CFLAG:23:K23_记忆,7)
	SIF GETBIT(CFLAG:23:K23_记忆,6)
		PRINTFORMW 「%K23_CALLNAME()%的话……」
	PRINTFORMW 「等等」
	PRINTFORMW 「怎么她也一起脱衣服了？？？」
	PRINTFORMW 「你们要干什么啊！！？」
	CALL GET_ANGRY(23)
	RETURN -1
ELSEIF GETBIT(CFLAG:23:K23_记忆,6)
	PRINTFORMW 「%K23_CALLNAME()%还想要的话……」
	PRINTFORMW 「嗯……」
	RETURN 1
ELSEIF TALENT:恋慕 && TALENT:恋人
	PRINTFORMW 「等等等等等等等等……！」
	PRINTFORMW 「我们还没到那种关系呢……！」
	PRINTFORMW 「不要……！」
	CALL ASK_YN("尊重她的意志","作最后的努力")
	IF RESULT == 0
		RETURN -1
	ELSE
		CALL K23_CHKREASON
		WAIT
		IF RESULT:0 > RESULT:1
			PRINTFORMDW 用三寸不烂之舌把妖梦哄过去了
			RETURN 1
		ELSE
			PRINTFORMW 「不行不行不行不行不行……！」
			PRINTFORMW 「之前不就已经让你胡作非为一次了吗……」
			RETURN -1
		ENDIF
	ENDIF
ELSE
	PRINTFORML 「嗯！？」
	PRINTFORMDW 妖梦直接拔出了刀对峙着
	RETURN -1
ENDIF
RETURN 0
;-------------------------------------------------

;-------------------------------------------------
;部屋描写用関数
;口上キャラのOMANEKIBEYAか拠点の描写に使います
;記入する際はコメントアウトを外してください
;-------------------------------------------------
@K23_ROOM_DESCRIPTION
PRINTFORM 简朴的和室
IF YOGORE:(GET_CHARAHOME(TARGET)) < 2000
	IF TALENT:育児中
		PRINTFORM ，摆着一些儿童用品
	ELSEIF GETBIT(CFLAG:23:K23_记忆,6)
		PRINTFORM ，摆上了充满爱意的装饰品
	ELSEIF TALENT:恋慕
		PRINTFORM ，看起来有事先打扫过
	ELSEIF CFLAG:ブチギレ || MARK:反発刻印
		PRINTFORM ，门对面就供着一副刀剑
	ENDIF
ENDIF
PRINTL
;-------------------------------------------------

;==================================================
;贈り物イベント
;==================================================
@M_KOJO_审查中_EVENT_K23_GIFT(ARG, GIFT_ID, 評価点, GIFT_NAME, SENSE)
#DIM GIFT_ID
#DIM 評価点
#DIMS GIFT_NAME
#DIMS SENSE
;---------------------------------------------------------------------------------------------------
;評価点       贈り物の評価点（1～999）,口上主があげた場合でも口上主の評価点
;GIFT_NAME    贈り物の名称
;SENSE        贈り物に設定された属性。STRCOUNT(SENSE, "ほげほげ/")を使うと特定の属性を判定できます。
;GIFT_ID      これ単体では使いません。以下の式内関数を使うとデータを抽出できます（こだわりたい人用）
;　GET_GIFTDATA(GIFT_ID, "回数")    貰った（あげた）回数
;　GET_GIFTDATA(GIFT_ID, "得点")    得点（1～999）,口上テンプレ内では用意されてます。
;　GET_GIFTDATA(GIFT_ID, "日付")    貰った（あげた）日付（1～9999）
;　GET_GIFTDATA(GIFT_ID, "場所")    買った場所（デートの行き先）
;　GET_GIFTDATA(GIFT_ID, "形容詞")  形容詞番号（贈り物_形容詞.erb参照）
;　GET_GIFTDATA(GIFT_ID, "本体")    本体番号（贈り物_本体.erb参照）
;--------------------------------------------------------------------------------------------------
;デート帰りに口上主があなたに贈り物を渡す（陥落や好感度に関わらず親密5以上から発生）
;評価点は701～999（渡すキャラ本人の評価）
;--------------------------------------------------------------------------------------------------
IF ARG == 1
	;PRINTFORMW 「%GIFT_NAME%をあげるから大事に使って」
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物を大事にする（700点以上）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 2
	;IF STRCOUNT(SENSE, "かわいい/")
	;	PRINTFORMW 「かわいいプレゼントを貰っちゃった」
	;ELSEIF 評価点 >= 800
	;	PRINTFORMW 「とっても素敵なプレゼントを貰っちゃった」
	;ELSE
	;	PRINTFORMW 「素敵なプレゼントを貰っちゃった」
	;ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をお気に入りにする（↑の大事にするから続き）（700点以上かつ最高得点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 3
	;IF STRCOUNT(SENSE, "身につける/")
	;	PRINTFORMW 「明日からこれを付けて行こうっと」
	;ELSE
	;	PRINTFORMW 「明日からこれを持って行こうっと」
	;ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をとりあえず保管する（400～699点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 4
	;PRINTFORMW 「とりあえず飾っておこう」
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をこっそり質に入れる（400点未満）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 5
	;PRINTFORMW 「私これ嫌いなのよね～」
	RETURN 1
ENDIF
RETURN 1

;==================================================
;ムシバトル
;ムシバトルの口上は少し特殊で、PRINTを使うのではなく、
;台詞一行のみをRESULTSに入れてください
;ムシの名前は %MUSHI_NAME% で表示できます
;ムシの名前の最長はアレキサンドラトリバネアゲハの全角14文字です
;文字数制限があります。はみ出ないように気をつけてください
;ARGは残りムシ数か順位です
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_MUSHI_BATTLE(ARGS, ARG)
#DIM 残りムシ数
#DIM 順位
SELECTCASE ARGS
	CASE "試合前"
	;-------------------------------------------------
	;キャラセレクト時,ARGは使えません
	;全角50文字くらいまで
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
	;-------------------------------------------------
		IF LOCAL:1
;		RESULTS = 「ぶっとばしてさしあげますわ！」
		ENDIF
	CASE "戦場に出した"
	;-------------------------------------------------
	;"【（キャラ）】は《（ムシ）》を戦場に出した！」"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		残りムシ数 = ARG
	;-------------------------------------------------
		IF LOCAL:1
;		RESULTS = 「%MUSHI_NAME%！キミにきめた！」
		ENDIF
	CASE "攻撃時"
	;-------------------------------------------------
	;"【（キャラ）】《（ムシ）》の『（攻撃名）』！」"の直前
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		残りムシ数 = ARG
	;-------------------------------------------------
		IF LOCAL:1
;		RESULTS = 「ぶっとばせ！%MUSHI_NAME%！」
		ENDIF
	CASE "倒れた時"
	;-------------------------------------------------
	;"【（キャラ）】《（ムシ）》は倒れた！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		残りムシ数 = ARG
	;-------------------------------------------------
		IF LOCAL:1
;		RESULTS = 「ああっ！私の%MUSHI_NAME%がっ！」
		ENDIF
	CASE "敗退時"
	;-------------------------------------------------
	;"【（キャラ）】敗退！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		残りムシ数 = ARG
	;-------------------------------------------------
		IF LOCAL:1
;		RESULTS = 「私のムシが全滅めつめつ……」
		ENDIF
	CASE "タイマン：勝ち"
	;-------------------------------------------------
	;順位は1位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		順位 = ARG
	;-------------------------------------------------
		IF LOCAL:1
;		RESULTS = 「%CALLNAME:MASTER%よわーい！」
		ENDIF
	CASE "タイマン：負け"
	;-------------------------------------------------
	;順位は2位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		順位 = ARG
	;-------------------------------------------------
		IF LOCAL:1
;		RESULTS = 「%CALLNAME:MASTER%つよーい！」
		ENDIF
	CASE "バトルロイヤル：優勝"
	;-------------------------------------------------
	;順位は1位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		順位 = ARG
	;-------------------------------------------------
		IF LOCAL:1
;		RESULTS = 「やったー！」
		ENDIF
	CASE "バトルロイヤル：２位以下"
	;-------------------------------------------------
	;順位は2～4位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		順位 = ARG
	;-------------------------------------------------
		IF LOCAL:1
;		RESULTS = 「くやし～！」
		ENDIF
	CASE "チーム戦：勝ち"
	;-------------------------------------------------
	;順位は1位（やられていても）
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		順位 = ARG
	;-------------------------------------------------
		IF LOCAL:1
;		RESULTS = 「私のおかげね！」
		ENDIF
	CASE "チーム戦：負け"
	;-------------------------------------------------
	;順位は2位
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		順位 = ARG
	;-------------------------------------------------
		IF LOCAL:1
;		RESULTS = 「味方が弱い！！」
		ENDIF
ENDSELECT
SIF RESULTS != ""
	RETURN 1

;==================================================
;引力操作
;TCVAR:引力点に場所IDを入れるとその地点に引っ張られていきます
;場所IDと同じ拠点マップでしか効果はありません（博麗神社の境内なら拠点が博麗神社のときだけ）
;条件を付けないと永久に引っ張られ続けるので注意
;RANDは基本的に使えません。CFLAG:今日の運勢にその日のランダム数値（0～999）が入っているのでこれを使うと良いです
;==================================================
@M_KOJO_审查中_EVENT_K23_GRAVITY(ARG)

IF 睡眠時間(66) && !CFLAG:66:神社在住
	TCVAR:引力点 = P622廊下
ELSE
	TCVAR:引力点 = 0
ENDIF

;▼共通設定で使われているサンプル
[SKIPSTART]
	;平日の昼間はランダムで遊びに行く
	IF YOUBI_MATCH(DAY, "月火水木金") && INRANGE(TIME, 600, 960)
		SELECTCASE CFLAG:今日の運勢 % 5
		CASE 1
			TCVAR:引力点 = P2境内
		CASE 2
			TCVAR:引力点 = P10縁側
		CASE 3
			TCVAR:引力点 = P11庭
		CASE 4
			TCVAR:引力点 = P25鎮守の森
		CASEELSE
			TCVAR:引力点 = 0
		ENDSELECT
	ENDIF
	;水木曜日に2分の1の確率で遊びに行く
	SIF YOUBI_MATCH(DAY, "水木") && INRANGE(TIME, 720, 1020) && CFLAG:今日の運勢 % 2 == 0
		TCVAR:引力点 = P213鈴奈庵
	;特定の人物が特定の場所にいるとそこへ引っ張られる
	SIF CFLAG:[[白蓮]]:現在位置 == P103本堂 && !CFLAG:[[白蓮]]:うふふ && SHIRAHU([[白蓮]])
		TCVAR:引力点 = P103本堂
	;土日に10分の1の確率で特定の人物にくっついてまわる
	SIF YOUBI_MATCH(DAY, "土日") && CFLAG:今日の運勢 % 10 == 0 && !CFLAG:[[さとり]]:うふふ && SHIRAHU([[さとり]])
		TCVAR:引力点 = CFLAG:[[さとり]]:現在位置
[SKIPEND]

;==================================================
;スイカ割り
;スイカ割りの口上はムシバトル同様、PRINTを使うのではなく、
;台詞一行のみをRESULTSに入れてください
;カギ括弧は自動で付きます
;"衝突","結果"のみ、口上色が自動で付きます
;"衝突","結果"以外は半角26文字（全角13文字）までの文字数制限があります。はみ出ないように気をつけてください
;数パターンあると雰囲気が出ます（%TEXTR( / )%を使うと良い）
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_SUIKA(ARGS)
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL:1 = 0
;-------------------------------------------------
IF LOCAL:1
	SELECTCASE ARGS
		CASE "衝突"
		;-------------------------------------------------
		;場外に出てあなたがキャラと衝突した際の台詞
		;文字数制限はありません,汎用台詞もありません
		;-------------------------------------------------
			RESULTS = いたっ！ ちょっと、危ないじゃないのよ！
		CASE "そこだ！"
			RESULTS = %TEXTR("そこ！/今！")%
		CASE "近い"
			RESULTS = %TEXTR("近い！近いよ！/近づいてるよ！/あとちょっと！")%
		CASE "遠い"
			RESULTS = %TEXTR("まだ遠いよ/まだまだ～")%
		CASE "かなり遠い"
			RESULTS = %TEXTR("全然遠いよー/まだまだずっと遠いー")%
		CASE "前"
			RESULTS = %TEXTR("前にあるよ/そのまま、そのまま/そっちそっち")%
		CASE "少し前"
			RESULTS = %TEXTR("ちょっとだけ前！/すこーし前/あと一歩！")%
		CASE "後ろ"
			RESULTS = %TEXTR("後ろ向いてる！/逆、逆！/そっちじゃないよー")%
		CASE "少し後ろ"
			RESULTS = %TEXTR("すぐ後ろだよ！/すこーし後ろ/一歩後ろ！")%
		CASE "右"
			RESULTS = %TEXTR("右だよ/右、右/もっと右")%
		CASE "少し右"
			RESULTS = %TEXTR("ちょっとだけ右/まだ右かな")%
		CASE "左"
			RESULTS = %TEXTR("左だよ/左、左/もっと左")%
		CASE "少し左"
			RESULTS = %TEXTR("ちょっとだけ左/まだ左かな")%
		CASE "結果"
		;-------------------------------------------------
		;終了後の一言
		;文字数制限はありません,汎用台詞もありません
		;TFLAG:193,
		;   -1=失敗
		;    0=成功
		;    1=大成功
		;    2=木刀で大成功（ボーナス点）
		;ARG
		;    0=正直者
		;    1=ウソつき
		;-------------------------------------------------
			SELECTCASE TFLAG:193
				CASE -1
					RESULTS = ざんね～ん
				CASE 0
					RESULTS = やったね！
				CASE 1
					RESULTS = すごーい！
				CASE 2
					RESULTS = すごい綺麗に割れた！
			ENDSELECT
	ENDSELECT
ENDIF

;外出先特殊遭遇イベント
@RUN_INTO_审查中_K23(MAP_ID)
#DIM MAP_ID
;KXをキャラ番号に置換
;最後に必ずRETURN 1すること
;面識がない場合発生させないなど、あえて不発にさせたい場合RETURN -1すること
;	SIF !CFLAG:XX:面識
;		RETURN -1
;	PRINTFORML %CALLNAME:XX%がいた
;	PRINTFORML 「どうも」
;	CFLAG:XX:好感度 += 5
;	RETURN 1

;セフレ契約用
;"補正"でRETURNした数値が理性判定に加算されるので、
;簡単にセフレにしたいならマイナス、難易度を上げたかったり実質不可能にしたいならプラスすべし
@KOJO_审查中_SF_CONTRACT_K23(ARGS)
SELECTCASE ARGS
	CASE "導入"
		PRINTFORML 「你你你你你你你……你在说什么啊……？？？」
	CASE "補正"
		PRINTFORML （绝对不行）
		RETURN -17000308
	CASE "成功"
		PRINTFORML 「这——你——真的要……？」
	CASE "失敗"
		PRINTFORML 「这是恶作剧吗？？？」
ENDSELECT

path: ERB/口上・メッセージ関連/個人口上/【23】妖梦口上0.004α/妖梦，保守，但是不保守/M_KOJO_K23_1_イベント.ERB