code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;日常系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;300,会話
;TFLAG:193(1=大成功 0=成功 -1=失敗 -2=大失敗（TARGETがMASTERより教養が4以上高い)
;TCVAR:302(0=会話可能 1>=非恋慕時会話不能)
;MARK:反発刻印(3以上=会話不能)(4以上はバグ
;TCVAR:烂醉(1=通常成功or大失敗)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_300
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0
IF CFLAG:面識 == 0
	CALL M_KOJO_审查中_COLOR_K23
	PRINTFORMW 「？」
	TFLAG:192 = -2
	RESETCOLOR
	RETURN
ENDIF
CALL K23_EXTEND_300(0)

@M_KOJO_审查中_MESSAGE_COM_K23_300
;
;CALL TRAIN_MESSAGE
CALL K23_PURETRAIN
;呼出主口上
CALL M_KOJO_审查中_MESSAGE_COM_K23_300_1
RESETCOLOR
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_300_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;ここに口上書いて下さい
	IF CFLAG:面識 == 0
		PRINTFORMW 「你是谁？」
		RETURN
	ENDIF
	IF TCVAR:会話不能
		IF TCVAR:烂醉
			PRINTFORMW 「呜啊……再喝一杯！」
			PRINTFORMW 「……嗯……」
			PRINTFORMDW 看起来不是谈话的时候
			IF TALENT:恋慕
				IF TALENT:恋人
					PRINTFORMDL 突然妖梦抓住了%CALLNAME:MASTER%的手
					PRINTFORMW 「%K23_CALLNAME()%……不要离开我……」
				ELSE
					PRINTFORMDL 突然妖梦向%CALLNAME:MASTER%靠了过来
					PRINTFORML 「请再让我靠近一点……」
				ENDIF
				PRINTFORMDL %CALLNAME:MASTER%只好让靠在自己肩上的妖梦再停留一会……
				PRINTFORMDW 慢慢等的话……也许妖梦就能清醒过来？
				TIME += 10
			ENDIF
		ELSE
			PRINTFORML 「总觉得今天聊到这就差不多了」
			PRINTFORMDW 妖梦拒绝了%CALLNAME:MASTER%进一步谈话的请求
		ENDIF
	ELSE
		CALL K23_EXTEND_300(1)
		PRINTFORMDW …………………………………………………………
		IF TFLAG:193 > 0
			IF TALENT:恋慕
				IF TALENT:恋人
					PRINTFORMD 妖梦说着说着，
					IF CHK_DATENOW(CFLAG:TARGET:约会中)
						PRINTFORMDW 把%CALLNAME:MASTER%的手腕抱在怀里，幸福地笑了
					ELSEIF CFLAG:TARGET:陪睡中
						PRINTFORMDW 挪动着身体，幸福地把头靠在%CALLNAME:MASTER%的手臂上
					ELSEIF CFLAG:TARGET:風呂
						PRINTFORMDW 身体又往%CALLNAME:MASTER%上靠了靠
					ELSE
						PRINTFORMDW 向%CALLNAME:MASTER%投出了热烈的目光
					ENDIF
				ELSE
					PRINTFORMD 妖梦看向%CALLNAME:MASTER%，
					IF CHK_DATENOW(CFLAG:TARGET:约会中)
						PRINTFORMDW 和%CALLNAME:MASTER%十指相扣
					ELSEIF CFLAG:TARGET:陪睡中
						PRINTFORMDW 带着微笑慢慢把身体缩回了被子
					ELSEIF CFLAG:TARGET:風呂
						PRINTFORMDW 脸上泛起了红晕
					ELSE
						PRINTFORMDW 露出了温柔喜悦的笑容
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;301,お茶を淹れる
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_301
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_301
CALL K23_PURETRAIN
IF TFLAG:193 == 1 && ABL:[[美鈴]]:親密 >= 7 && !RAND:5
	PRINTFORML %CALLNAME:PLAYER%模仿美铃泡茶
	CALL COLORMESSAGE("*しゃらん*　ﾄﾄﾄ",C_YELLOW,1)
ELSE
	PRINTFORML %CALLNAME:PLAYER%为\@ CFLAG:TARGET:行動 == 5 ? 正在休息的 #  \@%CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ? 们 # \@沏了壶茶…
ENDIF
CALL M_KOJO_审查中_MESSAGE_COM_K23_301_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_301_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTDATAL
		DATA “谢谢”
		DATA “多谢”
		DATA “那我不客气了”
		DATA “那我开动了”
		DATA “是给我的吗？”
	ENDDATA
	PRINTFORMD 妖梦接过茶杯，
	IF (TALENT:恋慕 || TALENT:恋人) || !RAND:3
		PRINTFORMDW 然后开始慢慢品尝
	ELSE
		PRINTFORMDW 然后将茶一饮而尽
	ENDIF
	CALL DQPRINT("…………………………",0)
	SELECTCASE TFLAG:193
		CASE 1
			IF !RAND:3
				PRINTFORML 「要是我也能给幽幽子大人泡出一样好的茶就好了……」
				PRINTFORMDW 妖梦在称赞的同时小声嘀咕着
			ELSE
				IF TALENT:恋慕 && TALENT:恋人
					IF FIRSTTIME(301)
						PRINTFORMW 「不愧是%K23_CALLNAME()%呢」
					ELSE
						PRINTFORMW 「%K23_CALLNAME()%的手艺还是一如既往的好呢……」
					ENDIF
					PRINTFORMW 妖梦看起来想再喝一杯的样子
				ELSE
					PRINTFORMW 「泡茶的程度的能力……？」
					PRINTFORMW 「欸……真的没什么……！」
				ENDIF
			ENDIF
		CASE 0
			PRINTFORML 「正好解渴呢」
			PRINTFORMW 「非常感谢」
		CASE -1
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「嗯——有点涩……」
				PRINTFORMW 妖梦的神情有点难看
			ELSE
				PRINTFORML 「嗯——啊，不，有点涩……」
				PRINTFORMW 「很抱歉，麻烦你特意泡茶了」
			ENDIF
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;302,身体接觸
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_302
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0
IF !FLAG:70
	CALL K23_EXTEND_302(0)
ENDIF

@M_KOJO_审查中_MESSAGE_COM_K23_302
CALL K23_PURETRAIN
CALL M_KOJO_审查中_COLOR_K23
CALL M_KOJO_审查中_MESSAGE_COM_K23_302_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_302_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSE
		CALL K23_EXTEND_302(1)
		PRINTFORMDL …………………………………………………………
		RESETCOLOR
		TFLAG:400 = RAND:2
		SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
			CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)
	ENDIF
ENDIF
RETURN 1
;==================================================
;303,謝る
;TFLAG:193(2=菓子折成功 1=大成功 0=成功 -1=失敗 -2=菓子折失敗)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_303
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_303
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_303_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_303_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 2
			PRINTFORMW 「怎么，是来忏悔的吗？」
			PRINTFORMDW 妖梦……
			PRINTFORMDW 收下了点心盒
			PRINTFORMDW 正当%CALLNAME:MASTER%觉得总算结束的时候，妖梦的刀突然划了过来
			PRINTFORMDW %CALLNAME:MASTER%的头发稍稍晃了一下
			PRINTFORML 「就当是你带头请罪」
			PRINTFORMW 「下次就是认真的了」
		CASE -2
			PRINTFORMW 「怎么，是来忏悔的吗？」
			PRINTFORMDW 妖梦……
			PRINTFORMDW 的刀突然划了过来
			PRINTFORMDW 点心盒瞬间变成了两半
			PRINTFORMW 「这是我的回礼」
			ITEM:點心盒 --
		CASE 1
			PRINTFORMW 「这样啊……」
			PRINTFORMW 「%K23_CALLNAME()%真是令人头疼啊……」
			PRINTFORMDW 妖梦苦笑着，\@GETBIT(CFLAG:K23_记忆,6) ? 捏了一下%CALLNAME:MASTER%的脸颊 # 用手指戳了一下%CALLNAME:MASTER%的额头\@
			EXP:MASTER:苦痛快楽経験 += 1
			EXP:嗜虐快楽経験 += 1
		CASE 0
			PRINTFORML 「%K23_CALLNAME()%……」
			PRINTFORMW 「你得记住你今天为了道歉所发的一切毒誓……」
			IF TALENT:恋人
				IF TALENT:恋慕
					PRINTFORMW 「真要兑现的话……你可能承受不住」
				ELSE
					PRINTFORMW 「我会一一监督你兑现的」
				ENDIF
				PRINTFORMW 「所以答应我，%K23_CALLNAME()%，别再让我难过了，好嘛？」
			ELSE
				PRINTFORMW 「……真要你兑现的时候可不好受……对吧？」
			ENDIF
			PRINTFORMDW 妖梦虽然仍旧板着脸，但至少放下了剑
		CASE -1
			PRINTFORMDW 『所以妖梦……我错了』
			PRINTFORMW 「……」
			PRINTFORMDW 妖梦仍处于神经绷紧的防御状态
			PRINTFORMDW %CALLNAME:MASTER%感觉他和妖梦的距离已经远超两把剑(长度)了
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;304,仕事を手伝う
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:350(仕事内容(JOB_仕事内容.ERB参照のこと
;TCVAR:手伝えない(=2 手伝っても早くは終わらない、時間停止中不可 永琳の診察等)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_304
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF !GETBIT(CFLAG:23:K23_记忆,3)
	CALL M_KOJO_审查中_COLOR_K23
	PRINTFORMDW 被妖梦婉拒了
	PRINTFORMW 「因为买来的菜不好的话会吃出事」
	PRINTFORMW 「所以不能让外人介入」
	RESETCOLOR
	TFLAG:192 = -2
ELSE
	TFLAG:192 = 0
ENDIF

@M_KOJO_审查中_MESSAGE_COM_K23_304
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_304_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_304_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		PRINTFORMDW 看着还在选购食物的妖梦陷入了沉思——
		PRINTFORMDW 这种情况下帮她拿菜的话算不算用自己的能力偷店家的菜呢？
		PRINTFORMDW 店家发现之后会把罪行安到妖梦身上吗？
		PRINTFORMDW 想到这些，%CALLNAME:MASTER%立刻打消了这个念头
	;通常
	ELSE
		SELECTCASE TFLAG:193
			CASE 1
				PRINTFORMDW 『一百，卖不卖？』
				PRINTFORMDW 「这好东西，没两百出不了」
				PRINTFORMDW 『那我走了』
				PRINTFORMDW 就在%CALLNAME:MASTER%刚要走的时候，老板突然叫住了他
				PRINTFORMDW 「拿走吧」
				PRINTFORMDW 随后%CALLNAME:MASTER%便向妖梦炫耀自己刚砍价买来的“老银手链”
				PRINTFORMW 「算了，你还是搬菜吧……」
			CASE 0
				PRINTFORMDW 「我也不跟你多要」
				PRINTFORMDW 『啊』
				PRINTFORMDW 「八万」
				PRINTFORMW 「啊？」
				PRINTFORMDW 于是%CALLNAME:MASTER%被妖梦分配到了搬菜的任务
			CASE -1
				PRINTFORMDW 『这瓜保熟吗？』
				PRINTFORMDW 「能卖你生瓜蛋子！？」
				PRINTFORMDW 于是%CALLNAME:MASTER%和店家吵了起来
				PRINTFORMW 「抱歉，\@ONCE("生瓜") ? 这人是新来的…… # 这人情绪有点不稳定\@」
				PRINTFORMW 「别给人捣乱了，快来搬这些吧……」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;305,膝枕してもらう
;TFLAG:193(-5=MASTERがTARGETよりも巨体の場合(TALENT:MASTER:体型 > TALENT:体型 + 2) 1=大成功 0=成功 -1=失敗)(-5以外は地の文分岐無し)
;ABL:親密(6以上=顔をのぞき込みながら頭を撫でてくれる 3以上=ただ頭を撫でてくれる 2以下=縮こまっている)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_305
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0
CALL M_KOJO_审查中_COLOR_K23
IF TALENT:MASTER:体型 > TALENT:体型 + 2
	PRINTFORMW 「呃……」
	PRINTFORMDL 妖梦看着对她而言过于巨大的%CALLNAME:MASTER%，陷入了沉思
	PRINTFORMDW 但%CALLNAME:MASTER%仍然躺了下来
	RETURN
ENDIF
IF (TALENT:妊娠 && CFLAG:妊娠自覚状態) && !(TALENT:恋慕 && TALENT:恋人)
	PRINTFORMW 「失陪了」
	PRINTFORMDW 妖梦一对上%CALLNAME:MASTER%的视线就仓惶躲开了
	TFLAG:192 = -2
ENDIF
SIF ABL:親密 <= 2
	TFLAG:192 = -1
RESETCOLOR

@M_KOJO_审查中_MESSAGE_COM_K23_305
;CALL TRAIN_MESSAGE
CALL K23_PURETRAIN
CALL M_KOJO_审查中_COLOR_K23
SELECTCASE TFLAG:193
	CASE -5
		PRINTFORML 「好重……！」
		PRINTFORMDW 妖梦勉强从%CALLNAME:MASTER%身下爬了出来
	CASE -1
		SELECTCASE ABL:親密
			CASE IS > 5
				PRINTFORMDL %CALLNAME:MASTER%想要妖梦的膝枕
				PRINTFORMDW 但是无奈妖梦现在没法坐下，只好作罢
			CASE IS > 2
				PRINTFORMDL %CALLNAME:MASTER%靠近妖梦，暗示着自己的要求
				PRINTFORMDW 但显然妖梦并不能理解%CALLNAME:MASTER%的暗示
			CASEELSE
				PRINTFORMDW %CALLNAME:MASTER%刚要躺下，妖梦便闪到了一旁
		ENDSELECT
	CASEELSE
		PRINTFORMDL %CALLNAME:MASTER%享用了妖梦的膝枕
		SELECTCASE ABL:親密
			CASE IS >= 10
				IF TALENT:妊娠
					PRINTFORMDL %CALLNAME:MASTER%把耳朵贴在怀着自己孩子的妖梦的小腹上
					IF !CFLAG:妊娠自覚状態
						PRINTFORMDL 然而妖梦并不能理解其意图
						PRINTFORMDW 身体也紧绷着等待时间流逝
					ELSEIF GETBIT(CFLAG:23:K23_记忆,6)
						PRINTFORMDW 妖梦看着%CALLNAME:MASTER%，露出了微笑
					ELSE
						PRINTFORMDW 妖梦无奈地看着%CALLNAME:MASTER%
					ENDIF
				ELSE
					IF TALENT:恋人 || TFLAG:193
						PRINTFORMDW 妖梦一边看着%CALLNAME:MASTER%的脸一边温柔的抚摸起来
					ELSE
						PRINTFORMDW 妖梦温柔的抚摸着%CALLNAME:MASTER%的头
					ENDIF
				ENDIF
			CASE IS > 5
				IF TALENT:恋人 || TFLAG:193
					PRINTFORMDW %CALLNAME:MASTER%枕在妖梦的膝上，和妖梦聊起了家常
				ELSE
					PRINTFORMDW 妖梦温柔的抚摸着%CALLNAME:MASTER%的头
				ENDIF
			CASEELSE
				PRINTFORMDW 妖梦紧绷着身体一动不动
		ENDSELECT
ENDSELECT
CALL M_KOJO_审查中_MESSAGE_COM_K23_305_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_305_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMDL …………………………………………………………
	RESETCOLOR
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)
ENDIF
RETURN 1
;==================================================
;306,お腹を撫でる
;TFLAG:193(1=ABL:親密6以上かつ妊娠時 0=成功 -1=ABL:親密5以下)
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_306
;CALL TRAIN_MESSAGE
CALL K23_PURETRAIN
;地文
PRINTFORM %CALLNAME:PLAYER%对
IF TALENT:TARGET:妊娠
	PRINTFORM 孕育着%CALLNAME:PLAYER%孩子的
ELSEIF 充填率(TARGET,1) > 30
	PRINT 被注入大量精子的
ENDIF
PRINTFORML %CALLNAME:TARGET%的小腹抚摸了起来
IF !FLAG:70
	IF TFLAG:193 == 1
		IF !CFLAG:妊娠自覚状態
			PRINTFORML %CALLNAME:TARGET%突然僵住了
		ELSEIF GETBIT(CFLAG:23:K23_记忆,6)
			PRINTFORML %CALLNAME:TARGET%充满爱意地把自己的手叠在了%CALLNAME:MASTER%的手上
		ELSEIF TALENT:恋慕
			PRINTFORML %CALLNAME:TARGET%百般纠结地望向%CALLNAME:MASTER%
		ELSE
			PRINTFORML %CALLNAME:TARGET%拿开了%CALLNAME:MASTER%的手
			SOURCE:歓楽 = 0
			SOURCE:情愛 = 0
			SOURCE:欲情 = 0
		ENDIF
	ELSEIF TFLAG:193 == -1
		PRINTFORML %CALLNAME:TARGET%拿开了%CALLNAME:MASTER%的手
		SOURCE:歓楽 = 0
		SOURCE:情愛 = 0
		SOURCE:欲情 = 0
	ELSE
		IF GETBIT(CFLAG:23:K23_记忆,6)
			IF ABL:Ｖ感覚 >= 10
				PRINTFORML %CALLNAME:TARGET%随着%CALLNAME:MASTER%的动作发出了火热的吐息…
			ELSE
				PRINTFORML %CALLNAME:TARGET%充满爱意地把自己的手叠在了%CALLNAME:MASTER%的手上
			ENDIF
		ELSE
			PRINTFORML %CALLNAME:TARGET%好像很诧异…
		ENDIF
	ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)
ENDIF
CALL M_KOJO_审查中_COLOR_K23
CALL M_KOJO_审查中_MESSAGE_COM_K23_306_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_306_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
	;通常
	ELSE
		SELECTCASE TFLAG:193
			CASE -1
				PRINTFORMW 「你在干嘛？」
				PRINTFORMDW 妖梦愤怒地瞪大了眼睛
			CASE 1
				IF !CFLAG:妊娠自覚状態
					PRINTFORMW 「……」
					PRINTFORMW 「这是……？」
				ELSEIF GETBIT(CFLAG:23:K23_记忆,6)
					IF CFLAG:妊娠経過日数 >= 25
						PRINTFORMW 「孩子马上就要见到自己的父亲了呢」
						PRINTFORMW 「%K23_CALLNAME()%也等不及了吗？」
					ELSEIF CFLAG:妊娠経過日数 >= 10
						PRINTFORMW 「已经安定下来了呢……」
						PRINTFORMW 「%K23_CALLNAME()%想要的话……？」
					ELSE
						PRINTFORMW 「这是我们两个的……爱的结晶哦」
						PRINTFORMW 「要好好负责呢」
						PRINTFORMDW 说着说着，妖梦强行把%CALLNAME:MASTER%拉到身边
					ENDIF
				ELSEIF TALENT:恋慕 && TALENT:恋人
					IF CFLAG:妊娠経過日数 >= 25
						PRINTFORML 「没想到已经到这地步了……」
						PRINTFORML 「我们已经瞒不住了啊啊啊……」
						PRINTFORMDW 妖梦抓住%CALLNAME:MASTER%的手腕来回晃动着
						PRINTFORML 「%K23_CALLNAME()%你开口啊……都是你害的啊……」
						PRINTFORML 「再不做点什么的话我们两个人都会被人耻笑的……」
						PRINTFORMDW 妖梦差点就哭出来了
					ELSEIF CFLAG:妊娠経過日数 >= 10
						PRINTFORML 「事到如今怎么解释都晚了……」
						PRINTFORML 「你就说怎么办啊啊啊……」
						PRINTFORMDW 妖梦抓住%CALLNAME:MASTER%的手腕来回晃动着
						PRINTFORML 「%K23_CALLNAME()%你开口啊……都是你害的啊……」
						PRINTFORML 「再不做点什么的话我们两个人都会被人耻笑的……」
						PRINTFORMDW 妖梦差点就哭出来了
					ELSE
						PRINTFORMW 「你说到底该怎么办啊……」
						PRINTFORMW 「看我干什么，都是你的错……」
						PRINTFORML 「不想要也没办法，你惹出来的你要负责啊……」
					ENDIF
				ELSE
					PRINTFORMW 「……」
					PRINTFORMW 「我不想看见你」
					PRINTFORMDW 妖梦背过脸去，根本不理睬%CALLNAME:MASTER%
				ENDIF
			CASE 0
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORMW 「嗯……」
					IF ABL:Ｖ感覚 >= 10
						PRINTFORMW 「再这样的话……啊！」
						SIF NOWEX:Ｖ絶頂
							PRINTFORMW 「只是被%K23_CALLNAME()%摸一下就……%UNICODE(0x2665)%」
					ELSE
						PRINTFORMW 「%K23_CALLNAME()%想摸的不只是我的肚子吧……%UNICODE(0x2665)%」
					ENDIF
				ELSE
					PRINTFORML 「唔……好痒」
				ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;307,頬をつまむ
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
	;以下は先に書いた条件が優先される
	;TALENT:恋慕(受け入れつつ笑顔でやり返す
	;ABL:親密(6以上=おずおずとやり返す
	;ABL:従順(5以上=されるがまま
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_307
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_307
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_307_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_307_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
	;睡眠中
	ELSEIF CFLAG:睡眠 && !TALENT:恋慕
		PRINTFORMW 「呃……！」
		PRINTFORMDW 妖梦把脸转过去了
	;通常
	ELSE
		IF TALENT:恋慕
			PRINTFORMW 「唔……」
			PRINTFORMW 「看我的……！」
		ELSEIF ABL:親密 > 5
			PRINTFORMW 「别搞了……！」
			PRINTFORMDW 妖梦伸出手，轻轻弹了下%CALLNAME:PLAYER%的脑门
		ELSEIF ABL:従順 >= 5
			PRINTFORMW 「啊啊啊啊……」
			PRINTFORMDW 妖梦不快地发起了牢骚
		ELSE
			PRINTFORMW 「去去去……！」
		ENDIF
	ENDIF

ENDIF
RETURN 1
;==================================================
;308,頬をつつく
;添い寝中or睡眠中限定
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_308
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_审查中_MESSAGE_COM_K23_308
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_308_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_308_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
	;通常
	ELSE
	ENDIF

ENDIF
RETURN 1
;==================================================
;309,頭を撫でる
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:親密(6以上=通常成功時分岐
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_309
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_309
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_309_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_309_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
	;睡眠中
	ELSEIF CFLAG:睡眠
	;通常
	ELSE
	ENDIF

ENDIF
RETURN 1
;==================================================
;331,お茶を淹れる（薬入り）
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_331
;成否判定
;TFLAG:192(-2=強制失敗(注、非コマンド終了）、-1＝強制失敗、0=COM依存、1=強制成功or大成功(注、睡眠薬アイスティーは眠気を感じていると飲まない)
CALL M_KOJO_审查中_COLOR_K23
TFLAG:192 = 0
RESETCOLOR

@M_KOJO_审查中_MESSAGE_COM_K23_331
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_331_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_331_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TFLAG:193 == -1
		IF TALENT:恋慕 || TALENT:恋人
			PRINTFORML 「……」
			PRINTFORMW 「别看了，刚才倒掉了」
		ELSE
			PRINTFORML 「好恶心……」
			PRINTFORMDW 妖梦把茶吐掉了
		ENDIF
	ELSE
		PRINTDATAW
			DATA “谢谢”
			DATA “多谢”
			DATA “那我不客气了”
			DATA “那我开动了”
			DATA “是给我的吗？”
		ENDDATA
		CALL DQPRINT("…………………………",0)
		IF TFLAG:193 == 1
			IF !RAND:3
				PRINTFORML 「要是我也能给幽幽子大人泡出一样好的茶就好了……」
				PRINTFORMDW 妖梦在称赞的同时小声嘀咕着
			ELSE
				IF TALENT:恋慕 && TALENT:恋人
					IF FIRSTTIME(301)
						PRINTFORMW 「不愧是%K23_CALLNAME()%呢」
					ELSE
						PRINTFORMW 「%K23_CALLNAME()%的手艺还是一如既往的好呢……」
					ENDIF
					PRINTFORMW 妖梦看起来想再喝一杯的样子
				ELSE
					PRINTFORMW 「泡茶的程度的能力……？」
					PRINTFORMW 「欸……真的没什么……！」
				ENDIF
			ENDIF
		ELSE
			PRINTFORMW 「非常感谢」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;332,お酒をふるまう
;TFLAG:193(0=下戸飲み成功 -1=下戸飲み失敗 -2=下戸飲み大失敗 -5=下戸飲みあきらめ)
;TFLAG:194(51=どぶろく 52=清酒 53=鬼殺し)
;ALCOHOL_TASTE(TFLAG:194)(15以上=気に入る 9以下=口に合わない)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_332
;成否判定
;TFLAG:192(-1＝強制失敗、0=COM依存
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_332
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_332_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_332_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;333,愚痴を聞く
;TFLAG:193(6=大成功(酔い) 5=成功(酔い) 4=失敗(酔い) 3=大成功 2=成功 1=失敗)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_333
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_审查中_MESSAGE_COM_K23_333
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_333_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_333_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 6
		;大成功（酔い）
		CASE 5
		;成功（酔い）
		CASE 4
		;失敗（酔い）
		CASE 3
		;大成功
		CASE 2
		;成功
		CASE 1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;334,杯を交わす
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:妊娠自覚状態(1=食事)
;TALENT:酒耐性(-2=食事)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_334
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_334
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_334_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_334_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 1
		;大成功
		CASE 0
		;成功
		CASE -1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;335,介抱する
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_335
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_335
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_335_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_335_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 1
		;大成功
		CASE 0
		;成功
		CASE -1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;336,膝枕する
;ABL:親密(4以下=居心地悪げ 9以下=恥ずかしげ それ以上=幸せそう
;TIME_PROGRESS(TFLAG:膝枕した)(44以下=失敗
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_336
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_336
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_336_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_336_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF TFLAG:193 > 0
	;寝ちゃった
	ELSE
	;それ以外
	ENDIF
ENDIF
RETURN 1
;==================================================
;350,押し倒す（時姦時イタズラする
;TFLAG:194 (0=成功 1=人目がある　2=野外は嫌でござりまする　3=多人数プレイは勘弁　4=合意があってもムードが足りぬ　100=合意はあるが口上内特殊判定によって失敗）
;TCVAR:抱き寄せ初回　1=普通に合意ゲット　2=先にキスぐらいしろよ　3=媚薬or発情には勝てなかったよお…　4=悔しい…刻印さえなければﾋﾞｸﾋﾞｸﾝ
;5=強引に迫られると断れぬ(素質臆病持ち専用) 6=まんざらでもない　7=駄目　8=論外 98=口上内特殊判定による失敗 99=口上内特殊判定による成功
;口上内特殊判定は該当するCFLAGが0だと無効
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_350
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_350_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_350_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:194
		CASE 1
			PRINTFORMW 「喂……有人呢……」
		CASE 2
			PRINTFORMW 「」
		CASE 3

		CASE 4

		CASE 100

	ENDSELECT
	IF FIRSTTIME(SELECTCOM)
		IF GETBIT(CFLAG:23:K23_记忆,6)
		ELSEIF TALENT:恋慕 && TALENT:恋人
		ELSE
		ENDIF
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;351,連れ出す
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_351
;連れ出しにはTRAIN_MESSAGEが無い
CALL M_KOJO_审查中_MESSAGE_COM_K23_351_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_351_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;TARGET連れ出し
	IF CFLAG:同行 == 60
	;TARGET以外連れ出し(TARGET同行中のみ
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;352,告白する
;FLAG:甲斐性無(1=失敗)
;TFLAG:193 (1=成功 0=失敗)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_352
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_352
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_352_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_352_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;353,イタズラする
;FLAG:甲斐性無(1=失敗)
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_353
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_353_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_353_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;354,添い寝する（相手は起きて布団に招く感じ）
;CFLAG:衰弱(1以上=起きない
;CFLAG:お招き(0以外=起きない
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_354
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_354_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_354_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;355,時止め（地の文の改変程度に留めるべき
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_355
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_355_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_355_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;356,物陰に誘う
;ABL:露出癖 + TALENT:羞恥心で判定
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_356
;成否判定
;TFLAG:192(-1＝強制失敗、0=COM依存、1=強制成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_356
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_356_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_356_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;360,身を任せる
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=スカートの中を見せる 53=パイズリ 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅきホールド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_360
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_360_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_360_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;361,抵抗する
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=スカートの中を見せる 53=パイズリ 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅきホールド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_361
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_361_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_361_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN
;==================================================
;368,自由行動に付き合う
;技能系の行動は技能レベルが1以上なら発生
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_368
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_368_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_368_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE Activity_Type:TARGET
		CASE 0
			;▼考え事［なに考えてるの］
			;TFLAG:193,-1=はぐらかされる
			;PRINTFORMW
		CASE 1
			;▼遊ぶ［一緒に遊ぶ］
			;※[幼稚]持ちのみ
			;TFLAG:193,1=大いに盛り上がる,-1=あまり盛り上がらない
			;PRINTFORMW
		CASE 2
			;▼食事［一緒に食事する］
			;TFLAG:193,-1=MASTERはお腹が空いてなかった
			;PRINTFORMW
		CASE 3
			;▼つまみ食い［一緒につまみ食い］
			;※[妖精]持ちとルーミア、こいし、幽々子、紫苑のみ
			;TFLAG:193,-1=MASTERはお腹が空いてなかった
			;PRINTFORMW
		CASE 4
			;▼掃除［掃除を手伝う］
			;※[掃除係]持ちまたは汚臭耐性-1以下のみ
			;PRINTFORMW
		CASE 5
			;▼運動［一緒に運動する］
			;※[音楽知識]持ちは除く（演奏になる）
			;PRINTFORMW
		CASE 6
			;▼読書［本の感想を聞く］
			;TFLAG:193,-1=集中していて返事してくれない
			;PRINTFORMW
		CASE 7
			;▼料理［料理を手伝う］→［料理を分けてもらう］
			;TFLAG:193,2=料理を手伝う,0=作った料理を食べる,-1==MASTERはお腹が空いてなかった（食べる時）
			;PRINTFORMW
		CASE 8
			;▼演奏［セッションする］or［伴奏する］
			;※[音楽知識]持ちのみ（TALENT:音楽知識で変化）
			;TALENT:音楽知識,1=演奏してる,2=歌ってる,3=踊ってる
			;TFLAG:193,1=ノリノリ,0=成功,-1=失敗,-2=楽器がなくて見てるだけ
			;PRINTFORMW
		CASE 9
			;▼採集［採集を手伝う］
			;PRINTFORMW
		CASE 10
			;▼釣り［一緒に釣りをする］
			;TFLAG:193,-1=釣り竿がなくて見てるだけ
			;PRINTFORMW
		CASE 11
			;▼実験［実験を手伝う］
			;PRINTFORMW
		CASE 12
			;▼のんびり［一緒にのんびりする］
			;PRINTFORMW
		CASE 13
			;▼晩酌［晩酌に付き合う］
			;※酒耐性0以上のみ
			;PRINTFORMW
		CASE 14
			;▼買い物［買い物を手伝う］
			;PRINTFORMW
		CASE 15
			;▼説教［様子をうかがう］
			;※神霊・蓬莱人は除く
			;TFLAG:193,-1
			;PRINTFORMW
		CASE 16
			;▼落とし穴［いたずらに付き合う］or［様子をうかがう］
			;※三月精・チルノ・クラウンピースのみ
			;それ以外は落ちる側
			;PRINTFORMW
		CASE 17
			;▼雪だるま作り［一緒に雪作り］
			;※冬の月のみ
			;PRINTFORMW
		CASE 18
			;▼炬燵でのんびり［炬燵でくつろぐ］
			;※冬の月のみ
			;PRINTFORMW
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;402,就寝
;TFLAG:193(0=通常 1=子供と一緒に川の字で寝る)
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_402
;就寝にTRAIN_MESSAGEは無い
CALL M_KOJO_审查中_MESSAGE_COM_K23_402_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_402_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;403,休憩
;CFLAG:TARGET:睡眠(1=TARGETが寝てる隣で休憩
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_403
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_403_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_403_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;405,出掛ける(同行時デート
;条件が厄介なので、COMF405 出掛ける.ERBを参照のこと
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_405
;出掛けるにTRAIN_MESSAGEは無い
CALL M_KOJO_审查中_MESSAGE_COM_K23_405_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_405_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;TARGETとデート
	IF CFLAG:同行
	;TARGET以外とデート
	ELSEIF CFLAG:MASTER:同行
	;お出かけお見送り
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;410,掃除
;FLAG:70(1=時間停止中
;TFLAG:193(0=見てるだけ 1=一緒に掃除)
;TFLAG:194(3=汚れ高 2=汚れ中 1=汚れ低 0=汚れ最小
;OUTROOF(CFLAG:現在位置)(野外掃除（冬は雪かき
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_410
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_410_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_410_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;411,戦闘訓練
;TFLAG:194(3=夏の昼間 2=ヤバい天気 1=悪天候 0=屋内or通常天気
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_411
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_411_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_411_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;412,勉強
;ABL:教養(ABL:MASTER:教養より大=MASTERが教えてもらう ABL:MASTER:教養より小=TARGETが教えてもらう
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_412
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_412_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_412_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;413,料理
;TFLAG:194(100以上=禁断のメニュー 3=デザート 2=主食 1=軽食
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_413
;TFLAG:194が100以上の場合のみ
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_413_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_413_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
ENDIF
RETURN 1
;==================================================
;414,食事を取る
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TFLAG:194(1=ノーパンしゃぶしゃぶ 2=禁断のメニュー 31=ドーピングコンソメスープ 30=モッツァレラチーズとトマトのサラダ 34=ギンギー料理
;TCVAR:MASTER:308(bit0=濃い味 bit1=薄味 bit3=激辛 bit4=激甘 bit5=わさび bit6=激酸っぱ
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_414
;成否判定
;TFLAG:192(-2=コマンド終了(非TARGET時強制失敗)、-1＝強制失敗、0=COM依存(非TARGET時強制成功)、1=強制成功or大成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_414
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_414_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_414_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;415,食事をふるまう
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TCVAR:MASTER:308(bit0=濃い味 bit1=薄味 bit3=激辛 bit4=激甘 bit5=わさび bit6=激酸っぱ
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_415
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_415
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_415_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_415_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;416,演奏する
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TFLAG:使用楽器(1=キーボード 2=ピアノ 3=ギター 4=トランペット 5=ヴァイオリン)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_416
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 = 0

@M_KOJO_审查中_MESSAGE_COM_K23_416
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_416_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_416_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;417,昼寝をする
;TFLAG:193(0=MASTERを抱き枕にして寝ている 1=MASTERの膝を枕にして寝ている 2=寝顔にキスされた 3=寝顔をのぞき込まれた 4=MASTERが膝枕されてる 5=秘処orペニス揉み
;CFLAG:添い寝中(1=一緒に寝ている
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_417
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_417_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_417_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;421,願掛けする
;条件が複雑なので、COMF421 願掛け.ERBおよび、EVENT_MESSAGE_COM400.ERBの願掛けするの項を参照のこと
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_421
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_421_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_421_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;422～430は、特殊コマンドなのでテンプレでは対応しません
;==================================================

;==================================================
;431,お風呂でくつろぐ
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;TFLAG:194(1=連続入浴不可(表示しない可能性あり？
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_431
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_431_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_431_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;432,お風呂でくつろぐ
;表示タイミングは入浴後なので、お風呂上がりでの
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_432
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_432_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_432_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;436,読書
;TFLAG:193(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=薄い高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_436
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_436_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_436_1
;==================================================
;440,待つ
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_440
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_440_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_440_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;441,授業を受ける(慧音専用
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_441
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_441_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_441_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;442,伐採する（未実装
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_442
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_442_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_442_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;445,採集する
;TFLAG:193(採集物のID, 0=『何も見つからなかった…』
;TFLAG:194(今回採集した個数
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_445
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_445_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_445_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;448,罠を仕掛ける／虫トラップ
;TFLAG:193,
;   -1=罠が壊れた
;    0=罠を仕掛けた
;    1=獲物が得られた
;   10=虫トラップを仕掛けた
;   11=虫トラップを破棄した
;   12=ムシを捕まえた
;FLAG:194,獲物の番号
;ムシの名前は MUSHI_NAME で表示したり判別したりできます
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_448
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_448_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_448_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;449,虫捕り
;TFLAG:193,
;   -2=殺してでもうばいとる（取っ組み合いの末逃がす）
;   -1=ゆずってくれ！→拒否
;    0=捕獲失敗
;    1=MASTERが捕まえた
;    2=キャラが捕まえたのをMASTERが褒めた
;    3=ゆずってくれ！→渋々オッケー
;    4=ゆずってくれ！→オールオッケー
;TRAINMESSAGEを省略する場合は虫カゴに入れる処理を忘れないように
;ムシの名前は MUSHI_NAME で表示したり判別したりできます
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_449
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_449_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_449_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;483,ムシバトル
;TFLAG:193,
;    1=１対１の対戦
;    2=３～４人戦
;    3=２対２のチーム戦
;TFLAG:194にMASTERの順位が入っています（MASTERが1ならキャラ負け）
;バトル中の口上はイベント口上ファイルに入っています
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_483
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_483_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_483_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;484,スイカ割り
;TFLAG:193,
;   -1=失敗
;    0=成功
;    1=大成功
;    2=木刀で大成功（ボーナス点）
;TFLAG:194
;    0=正直者
;    1=ウソつき
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_484
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_484_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_484_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF !TFLAG:194
		SELECTCASE TFLAG:193
			CASE -1
			CASE 0
			CASE 1
			CASE 2
		ENDSELECT
	ELSE
		SELECTCASE TFLAG:193
			CASE -1
			CASE 0
			CASE 1
			CASE 2
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;490,アイテム
;TFLAG:193(使用アイテムのID
;TFLAG:194(対象 0=MASTER,1=TARGET
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_490
;アイテムにTRAIN_MESSAGEはない
CALL M_KOJO_审查中_MESSAGE_COM_K23_490_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_490_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;デート系コマンド
;デート系口上は文字通り外出先で発生
;※※※※※※※※※※※※※※※※※※※※※※※※※
[SKIPSTART]
;現状未実装
;==================================================
;600,デート会話
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_600
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_600_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_600_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;601,デートスキンシップ
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_601
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_601_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_601_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;602,デートキス
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_602
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_602_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_602_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
[SKIPEND]
;==================================================
;603,手を繋ぐ
;TFLAG:193(1=大成功 0=成功 -1=失敗)(失敗でもふりほどかれたりはしません
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_603
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_审查中_MESSAGE_COM_K23_603
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_603_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_603_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;604,散策する
;デート中の場合、CFLAG:現在位置に移動先の場所が既に入ってる
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_604
;散策するにはTRAIN_MESSAGEが無い
CALL M_KOJO_审查中_MESSAGE_COM_K23_604_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_604_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;605,寄り道する
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文無し
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_605
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_审查中_MESSAGE_COM_K23_605
;寄り道するにはTRAIN_MESSAGEが無い
CALL M_KOJO_审查中_MESSAGE_COM_K23_605_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_605_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;610,食事に誘う
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_610
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_审查中_MESSAGE_COM_K23_610
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_610_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_610_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;613,お金稼ぎする（オミットされました
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_613
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_审查中_MESSAGE_COM_K23_613
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_613_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_613_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;614,食材の買い出し
;TFLAG:193(1=購入＆デート経験アップ 0=購入 -1=非購入)
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_614
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_614_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_614_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;615,お弁当を食べる
;実行可能場所　お地蔵通り,枝垂れ柳の下,霧の湖,玄武の沢,大蝦蟇の池,絶景の丘,山の湖,天界
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:料理技能(2未満=微妙な出来 4未満=そこそこ美味しい 4以上=絶品)
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_615
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_615_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_615_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;617,甘味処に誘う
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐は大成功のみ追加
;==================================================
@M_KOJO_审查中_SUCCESS_COM_K23_617
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_审查中_MESSAGE_COM_K23_617
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_617_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_617_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;618,花屋（口上は表示されない模様？
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_618
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_618_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_618_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;620,鈴奈庵
;TFLAG:193(1=貸し出しOK 0=貸し出し不可
;ITEM:10X (X=1戦術指南書 X=2調理指南書 X=3字引 X=4御伽草子
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_620
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_620_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_620_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;621,釣りをする
;TFLAG:193(0=釣れない 1～4=魚 11～15=うまい魚 610=木材 131=守矢の守札 21=ローター 609=氷の鱗 606=龍の爪)
;TFLAG:194(1000以上ならTARGETが釣った)
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_621
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_621_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_621_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;626,土産屋
;TFLAG:194(行動結果(-2=ひやかし -1=ウィンドウショッピング 1=400点未満（BAD） 2=～699点（NOMAL） 3=700点以上（GOOD）
;CFLAG:性格傾向による地の文分岐あり
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_626
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_626_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_626_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:194
		;ひやかし
		CASE -2

		;やっぱりやめる（見送り）
		CASE -1

		;400点未満（BAD）
		CASE 1

		;400点～699点（NOMAL）
		CASE 2

		;700点以上（GOOD）
		CASE 3

	ENDSELECT
ENDIF
RETURN 1
;==================================================
;660,読書
;TFLAG:193(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=薄い高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_660
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_660_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_660_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;698,部屋に入る
;TARGETの部屋に入る場合のみ表示
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_698
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_698_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_698_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;699,外に出る
;==================================================
@M_KOJO_审查中_MESSAGE_COM_K23_699
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_COM_K23_699_1
RETURN RESULT

@M_KOJO_审查中_MESSAGE_COM_K23_699_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;派生コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;60,耳かき
;前ターン膝枕後スキンシップコマンド
;TFLAG:193(1=大成功 0=成功 -1=失敗)(失敗するのはTARGET
;==================================================
@M_KOJO_审查中_SUCCESS_SCOM_K23_60
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_审查中_MESSAGE_SCOM_K23_60
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_SCOM_K23_60_1
RETURN RESULT
@M_KOJO_审查中_MESSAGE_SCOM_K23_60_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;61,抱きまくら
;(TARGET睡眠時間or衰弱)添い寝中、前ターン抱きつく後就寝コマンド
;分岐無し
;==================================================
@M_KOJO_审查中_MESSAGE_SCOM_K23_61
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_SCOM_K23_61_1
RETURN RESULT
@M_KOJO_审查中_MESSAGE_SCOM_K23_61_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;62,デコちゅー
;前ターン頭撫で後キスする
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;ABL:欲望(5以上=物足りない
;ABL:親密(5以上=照れる
;==================================================
@M_KOJO_审查中_SUCCESS_SCOM_K23_62
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_审查中_MESSAGE_SCOM_K23_62
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_SCOM_K23_62_1
RETURN RESULT
@M_KOJO_审查中_MESSAGE_SCOM_K23_62_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;63,もっとキスする
;前ターンキスする後キスする
;分岐条件はEVENT_MESSAGE_COM500.ERB参照
;==================================================
@M_KOJO_审查中_SUCCESS_SCOM_K23_63
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_审查中_MESSAGE_SCOM_K23_63
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_SCOM_K23_63_1
RETURN RESULT
@M_KOJO_审查中_MESSAGE_SCOM_K23_63_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;80,手を引く
;デート出発後目的地に着くまでの間
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_审查中_SUCCESS_SCOM_K23_80
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_审查中_MESSAGE_SCOM_K23_80
CALL TRAIN_MESSAGE
CALL M_KOJO_审查中_MESSAGE_SCOM_K23_80_1
RETURN RESULT
@M_KOJO_审查中_MESSAGE_SCOM_K23_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【23】妖梦口上0.004α/妖梦，保守，但是不保守/M_KOJO_K23_1_日常系コマンド.ERB


code:
[SKIPSTART]
;额外语句包
#字符 名字 = 指令扩展集
#字符 声明 = "为指令制作的扩展集"
#数组 在录ID = /[
	300,;会话
	302,;身体接觸
/]
格式为：
	K23_EXTEND_在录ID

;主方法
#整型 方法 指令扩展集()/{
	输出(名字 + "\n)"
    输出(声明 + "\n以下是存在扩展的指令：")
    每(在录ID 内 一)/{
        输出 在录ID[一] & 指令ID(在录ID[一]) & "\n"
    /}
    返回 1
/}
[SKIPEND]

;会话
@K23_EXTEND_300(ARG)
;指令选择用
#DIM DYNAMIC 可用分支,50
#DIM DYNAMIC 指令数 = 0
#DIM DYNAMIC 真指令数 = 0
#DIM DYNAMIC 临时数组,50
#DIM DYNAMIC 实际选项,3
#DIM CONST 实际指令数 = 3
{
	#DIMS CONST 分支文字 =
		"闲聊",
		"打招呼","天气","称赞","环境介绍",
		"工作","料理","锻炼",
		"白玉楼的生活","幽幽子大人","半灵",
		"恋爱","婚礼","调情","家庭","今后的打算","我们的关系……",
		"诱惑","想要孩子","想H半灵",
		"孕情","取名",
		"孩子"
}
IF ARG == 0
;选择部分
	VARSET 可用分支 , 0
	VARSET 临时数组 , 0
	指令数 = VARSIZE("分支文字")
	FOR LOCAL,1,指令数
	;录入指令
		SELECTCASE 分支文字:LOCAL
			CASE "天气"
				IF !(CFLAG:MASTER:约会中 == 9 || (CFLAG:MASTER:現在位置 == OMANEKIBEYA() && GROUPMATCH(CFLAG:MASTER:招待, 36, 37, 38, 49, 60, 64, 83, 84)))
					可用分支:真指令数 = LOCAL
					真指令数 ++
				ENDIF
			CASE "工作","料理","锻炼"
				IF ABL:親密 >= 3 && CFLAG:信賴度 >= 300
					可用分支:真指令数 = LOCAL
					真指令数 ++
				ENDIF
			CASE "白玉楼的生活"
				IF TALENT:思慕 && !INRANGE(CFLAG:MASTER:初期位置, P621庭, P629西行妖)
					可用分支:真指令数 = LOCAL
					真指令数 ++
				ENDIF
			CASE "幽幽子大人","半灵"
				IF TALENT:思慕
					可用分支:真指令数 = LOCAL
					真指令数 ++
				ENDIF
			CASE "恋爱","家庭","调情"
				IF TALENT:恋慕 || (TALENT:恋人 && TALENT:思慕)
					可用分支:真指令数 = LOCAL
					真指令数 ++
				ENDIF
			CASE "婚礼","今后的打算"
				IF TALENT:恋慕 && TALENT:恋人
					可用分支:真指令数 = LOCAL
					真指令数 ++
				ENDIF
			CASE "我们的关系……"
				IF K23_CANMARRY() && !GETBIT(CFLAG:23:K23_记忆,6) && CFLAG:MASTER:現在位置 == P629西行妖 && INRANGE(TIME,600,840)
					可用分支:真指令数 = LOCAL
					真指令数 ++
				ENDIF
			CASE "诱惑","想H半灵"
				IF CFLAG:既成事實 & 合意_诶嘿嘿
					可用分支:真指令数 = LOCAL
					真指令数 ++
				ENDIF
			CASE "想要孩子"
				IF (TALENT:恋慕 && TALENT:恋人) && (CFLAG:LOCAL:既成事實 & 合意_恋人)
					可用分支:真指令数 = LOCAL
					真指令数 ++
				ENDIF
			CASE "孕情","取名"
				IF TALENT:妊娠 && GETBIT(CFLAG:23:K23_记忆,6)
					可用分支:真指令数 = LOCAL
					真指令数 ++
				ENDIF
			CASE "孩子"
				IF (TALENT:育児中 && TFLAG:描写中の兒童 == 23) && GETBIT(CFLAG:23:K23_记忆,6)
					可用分支:真指令数 = LOCAL
					真指令数 ++
				ENDIF
			CASEELSE
				可用分支:真指令数 = LOCAL
				真指令数 ++
		ENDSELECT
	NEXT
	LOCAL:1 = 0
	PRINTFORMDL 所以要聊什么呢……？
	WHILE 1
		LOCAL:2 = RAND:真指令数
		IF FINDELEMENT(实际选项,LOCAL:2) == -1
			实际选项:(LOCAL:1) = LOCAL:2
			LOCAL:1++
		ENDIF
		SIF LOCAL:1 == 实际指令数
			BREAK
	WEND
	FOR LOCAL:1,0,实际指令数
		IF GETBIT(2 * TCVAR:K23_会话记录,实际选项:(LOCAL:1))
			SETCOLOR C_GRAY
			PRINTPLAINFORM [%分支文字:(实际选项:(LOCAL:1))%]
			RESETCOLOR
		ELSE
			PRINTBUTTON @"[%分支文字:(实际选项:(LOCAL:1))%]",实际选项:(LOCAL:1)
		ENDIF
		PRINTL
	NEXT
	PRINTBUTTON "[闲聊]",999
	DO
		INPUT
		IF FINDELEMENT(实际选项,RESULT) != -1
			TCVAR:K23_选择分支 = RESULT
			BREAK
		ELSEIF RESULT == 999
			TCVAR:K23_选择分支 = 0
			BREAK
		ENDIF
		CLEARLINE 1
	LOOP 1
	;额外影响部分
	;备用资料：
	;-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
	TFLAG:192 = 0
	SELECTCASE 分支文字:(TCVAR:K23_选择分支)
		CASE "想要孩子"
			SIF TALENT:育児中;硬性要求
				TFLAG:192 = -1
			IF !GETBIT(CFLAG:23:K23_记忆,6) ;“想要个名分……”
				TFLAG:192 = -1
			ELSEIF CFLAG:积攒度 >= 665
				TFLAG:192 = 1
			ENDIF
	ENDSELECT
ELSEIF ARG == 1
;地文部分
	CALL M_KOJO_审查中_COLOR_K23
	IF TFLAG:193 < 0
		IF TCVAR:烂醉
			PRINTFORML 「……嗯……」
			PRINTFORMW 「咕噜咕噜……」
			PRINTFORMDW 完全听不懂妖梦在说什么……
			IF TALENT:恋慕
				IF TALENT:恋人
					PRINTFORMDL 与此同时，妖梦把%CALLNAME:MASTER%的手腕抱在怀里
				ELSE
					PRINTFORMDL 突然妖梦向%CALLNAME:MASTER%靠了过来
					PRINTFORMW 「请允许我……再靠近一点……」
				ENDIF
			ENDIF
		ELSE
			PRINTFORML 「……不知所云……」
			PRINTFORML 「要不你再说一遍？」
			PRINTFORMDW 妖梦面无表情地看着%CALLNAME:MASTER%
		ENDIF
	ELSE
		SELECTCASE 分支文字:(TCVAR:K23_选择分支)
			CASE "打招呼"
				PRINTFORMDW %CALLNAME:MASTER%向妖梦打了招呼
				PRINTFORMDW 妖梦也做出了回礼
			CASE "天气"
				PRINTFORMDW %CALLNAME:MASTER%和妖梦聊了下天气
				IF TFLAG:193
					PRINTFORMDW 看到了妖梦活力四射的一面
					PRINTFORMDW 看来天气话题并不像想象般的枯燥呢
				ELSE
					PRINTFORMDW 总感觉妖梦对天气忧心忡忡的样子
				ENDIF
			CASE "称赞"
				IF TALENT:恋人
					PRINTFORMDW 『妖梦是世界第一可爱！』
				ELSE
					PRINTFORMDW 『妖梦真是可爱啊』
				ENDIF
				IF TFLAG:193
					IF TALENT:恋人
						PRINTFORMW 「%K23_CALLNAME()%也是世界第一可爱！」
						TIMES SOURCE:歓楽 , 1.5
						TIMES SOURCE:征服 , 1.5
					ELSE
						TIMES SOURCE:歓楽 , 1.2
						TIMES SOURCE:征服 , 1.2
					ENDIF
					PRINTFORMDW 妖梦看起来很高兴的样子
					TIMES SOURCE:受動 , 1.2
				ELSE
					PRINTFORMDW 被妖梦教导了乱拍马屁的坏处
					TIMES SOURCE:歓楽 , 0.8
					TIMES SOURCE:征服 , 0.5
					TIMES SOURCE:受動 , 0.8
				ENDIF
			CASE "环境介绍"
				PRINTFORMDW 和妖梦一起欣赏了风景
				IF TFLAG:约会道中
					PRINTFORMW 「比起风景，我更喜欢和%K23_CALLNAME()%一起散步的过程呢」
				ELSEIF CHK_DATENOW(CFLAG:MASTER:约会中) && CFLAG:MASTER:現在位置 != OMANEKIBEYA()
					PRINTFORMDW 希望明天还能来这里，这么和妖梦说了
					PRINTFORMDW 妖梦点了点头
				ELSE
					IF TALENT:思慕 || TALENT:恋慕
						PRINTFORMDW 妖梦交谈的时候把头靠在了%CALLNAME:MASTER%的肩上
					ENDIF
					PRINTFORMDW 和妖梦互相交换了知识
				ENDIF
				SIF TFLAG:193
					PRINTFORMDW 事后因为认真介绍风景的态度获得了妖梦的认可
			CASE "工作"
				PRINTFORMDW 问了下妖梦她的工作的细节
				IF TFLAG:193
					IF GETBIT(CFLAG:23:K23_记忆,3)
						PRINTFORMDW 被妖梦邀请帮忙了
					ELSE
						SELECTCASE RAND:3
							CASE 1
								PRINTFORMDW 获得了协助妖梦工作的许可
								SETBIT CFLAG:23:K23_记忆,3;协助许可
								PRINTFORMW 「对……每星期都要买一大堆菜呢」
								PRINTFORMW 「因为数量对于一般家庭来说太多了，所以也会招来一些质疑」
								PRINTFORMW 「什么？你要帮忙？」
								PRINTFORMW 「%K23_CALLNAME()%的话也不是不行……」
								PRINTFORMW 「很轻松的，只需要帮我把菜放到车上就可以了」
							CASEELSE
								PRINTFORMDW 原来妖梦的工作不止买菜啊
						ENDSELECT
					ENDIF
				ELSE
					PRINTFORMDW 学到了怎么挑选蔬菜
				ENDIF
			CASE "料理"
				IF ABL:MASTER:料理技能 >= ABL:料理技能
					PRINTFORMDW 和妖梦互相交流了料理心得
					IF ABL:MASTER:料理技能 > ABL:料理技能 + 2
						PRINTFORMDW 妖梦不时投下了羡慕的眼神
						TIMES SOURCE:征服 , 1.1
						TIMES SOURCE:受動 , 1.1
					ENDIF
					IF TFLAG:193
						PRINTFORMDW 结果最后话题变成了『喜欢吃什么』
					ELSE
						PRINTFORMDW 妖梦的问题已经不是厨艺能解决的问题了……
					ENDIF
				ELSE
					PRINTFORMDW 向妖梦请教了料理的技巧
					IF TFLAG:193
						PRINTFORMDW 变得想吃妖梦的手艺了
					ELSE
						PRINTFORMDW 果然还得多学习呢
					ENDIF
				ENDIF
			CASE "锻炼"
				PRINTFORMDW 试着问了下妖梦平时锻炼都是怎么样的
				IF TFLAG:193
					IF ABL:MASTER:戦闘能力 >= ABL:戦闘能力
						PRINTFORMDW 被妖梦邀请一起训练了
						TIMES SOURCE:征服 , 1.1
						TIMES SOURCE:受動 , 1.1
					ELSE
						PRINTFORMDW 在工作之余也不忘锻炼啊……
					ENDIF
				ELSE
					PRINTFORMDW 光是听着就很辛苦
				ENDIF
			CASE "白玉楼的生活"
				PRINTFORMDW 试探性的问了下妖梦白玉楼的生活是怎么样的
				IF TFLAG:193
					PRINTFORMDW 比起听的话更想亲眼看看呢
				ELSE
					PRINTFORMDW 感觉还行的样子？
				ENDIF
			CASE "幽幽子大人"
				PRINTFORMDW 『想听一下妖梦对幽幽子的看法』
				PRINTFORMDW 这么和妖梦说了
				IF TFLAG:193
					PRINTFORMDW 妖梦的评价意外的好呢
				ELSEIF TALENT:恋人
					PRINTFORMDW 妖梦用冷酷的眼神看着%CALLNAME:MASTER%
				ELSE
					PRINTFORMDW 结果和普通的大小姐没啥区别……
				ENDIF
			CASE "半灵"
				PRINTFORMDW 『想听妖梦讲一下半灵的事情』
				PRINTFORMDW 这么和妖梦说了
				IF TFLAG:193
					PRINTFORMDW 一旁的半灵窜到了%CALLNAME:MASTER%怀里
				ELSE
					PRINTFORMDL 妖梦看起来心情不好的样子
					PRINTFORMDW 总觉得妖梦有什么误解
					TIMES SOURCE:歓楽 , 0.75
					TIMES SOURCE:受動 , 0.75
				ENDIF
			CASE "恋爱"
				IF TALENT:恋人
					PRINTFORMDW 试图给妖梦讲了几句\@ABL:MASTER:話術技能 < 3 ? 刚学来的 # \@情话
					IF TFLAG:193
						PRINTFORMDW 妖梦的脸红了起来
					ELSE
						PRINTFORMDW 被妖梦锤了几下胸口
						TIMES SOURCE:歓楽 , 0.75
						TIMES SOURCE:征服 , 0.75
						TIMES SOURCE:受動 , 0.75
					ENDIF
				ELSE
					PRINTFORMDL 『妖梦觉得你的恋人应该是什么样子呢？』
					PRINTFORMDW 半开玩笑地向妖梦发出了疑问
					IF TFLAG:193
						PRINTFORMDW 妖梦用水汪汪的眼睛看着%CALLNAME:MASTER%
						TIMES SOURCE:征服 , 1.2
					ELSE
						PRINTFORMDW 妖梦保持微笑，一言不发
					ENDIF
				ENDIF
			CASE "家庭"
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORMDW 就家务相关的话题和妖梦交谈着……
					EXP:TARGET:愛情経験 ++
					IF TFLAG:193
						PRINTFORMDL 最后被分到了洗碗的工作……
						SIF FLAG:掃除中毒
							PRINTFORMDL 为什么不是扫地啊……
						WAIT
					ELSE
						PRINTFORMDW 双方都被幽幽子的大胃口难住了
					ENDIF
				ELSE
					PRINTFORMDW 想问一下妖梦一家的状况
					IF TFLAG:193
						IF TALENT:恋人
							PRINTFORMDW 已经感受到来自妖梦的压力了
						ELSE
							PRINTFORMDW 家规很严厉
						ENDIF
					ELSE
						PRINTFORMDW 但妖梦并不想回答的样子
						TIMES SOURCE:歓楽 , 0.5
						TIMES SOURCE:征服 , 0.5
						TIMES SOURCE:受動 , 0.5
					ENDIF
				ENDIF
			CASE "调情"
				SIF TALENT:恋人
					PRINTFORMDW 『最喜欢妖梦了』
				PRINTFORMDW 在妖梦耳边悄悄说起甜言蜜语
				IF TFLAG:193
					IF !TALENT:恋人
						PRINTFORMW 「怎么在这种时候说这种话……！」
						PRINTFORMDW 妖梦的脸变得通红
					ELSE
						EXP:TARGET:愛情経験 ++
						PRINTFORMDW 妖梦含情脉脉地望向%CALLNAME:MASTER%
					ENDIF
				ELSE
					PRINTFORMDW 没有反应的样子……
				ENDIF
			CASE "婚礼"
				EXP:TARGET:愛情経験 ++
				IF GETBIT(CFLAG:23:K23_记忆,6)
					PRINTFORMDW 试着和妖梦一起回想婚礼时那一幕……
					IF TFLAG:193
						PRINTFORMDW 就像刚刚结束那样……
						TIMES SOURCE:歓楽 , 2
					ELSE
						PRINTFORMDW 记忆有些模糊了呢
					ENDIF
				ELSE
					PRINTFORMDW 试着和妖梦一起想象梦想中的婚礼
					IF TFLAG:193
						PRINTFORMDW 已经迫不及待了
						SELECTCASE RAND:4
							CASE 0
								PRINTFORMW 「用樱花点缀的婚礼……」
								PRINTFORMW 「一定很浪漫」
								PRINTFORMW 「决定了，到时候就做樱花糕吧」
							CASE 1
								PRINTFORMW 「这样的话太滑稽了」
								PRINTFORMW 「会被宾客笑话的……」
								PRINTFORMDW 话音未落，妖梦自己先笑了起来
							CASE 2
								PRINTFORMW 「这样幸福的场合，恐怕一生只有一次呢……」
								PRINTFORMDW 『绝对不止一次的』
								PRINTFORMDW %CALLNAME:MASTER%抱着妖梦温柔的说道
								PRINTFORMW 「这么说%K23_CALLNAME()%是想多结几次婚咯？」
								PRINTFORMDW %CALLNAME:MASTER%正想解释，妖梦却掩口失笑
							CASE 3
								PRINTFORMW 「夫妻对拜～」
								PRINTFORMW 「太早了……吗？」
						ENDSELECT
						TIMES SOURCE:歓楽 , 1.2
					ELSE
						PRINTFORMDW 妖梦想到了什么呢……？
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMW 「其实我对婚礼没什么要求的……」
								PRINTFORMW 「但是……这么郑重的场合……总得挑一个合适的地点才行」
							CASE 1
								PRINTFORMW 「到时候请幽幽子大人来主持婚礼好不好？」
								PRINTFORMDW 『幽幽子大人一闻到婚宴的菜肴就会自己过来的』
							CASE 2
								PRINTFORMDW 『可惜我在这里没几个亲人……』
								PRINTFORMW 「其实……有你我二人就够了……」
								PRINTFORMDW 妖梦趴在%CALLNAME:MASTER%身上，用迷离的眼神看着他
						ENDSELECT
					ENDIF
				ENDIF
			CASE "今后的打算"
				PRINTFORMDW 偶然问起了妖梦今后的人生规划
				IF GETBIT(CFLAG:23:K23_记忆,6)
					EXP:TARGET:愛情経験 ++
					IF TFLAG:193
						PRINTFORMW 「今后也要和%K23_CALLNAME()%在一起……！」
						PRINTFORMDW 是啊……
						TIMES SOURCE:歓楽 , 1.5
						TIMES SOURCE:征服 , 1.5
						TIMES SOURCE:受動 , 1.5
					ELSE
						PRINTFORMW 「今后和%K23_CALLNAME()%一起……做什么呢……？」
						PRINTFORMDW 没仔细规划过吗……？
					ENDIF
				ELSE
					IF TFLAG:193
						PRINTFORMDW 有些意料之外呢
						TIMES SOURCE:歓楽 , 1.2
					ELSE
						PRINTFORMDW 和昨天一样，千篇一律呢……
					ENDIF
				ENDIF
			CASE "我们的关系……"
				PRINTFORMDL 『妖梦』
				PRINTFORMW 「？」
				PRINTFORMDW 在确认一切良好之后，终于鼓起勇气向妖梦说出了那句话——
				PRINTFORMDW 『我想和你结婚……！』
				PRINTFORML 「……！」
				PRINTFORML 「……嗯，呃……」
				PRINTFORMW 面前的妖梦先是一脸惊讶，然后便发出了哽咽着的声音
				PRINTFORMDW 『……没事吧？』
				PRINTFORMDW 『如果吓到你了的话那……』
				PRINTFORMW 「不是……」
				PRINTFORMW 「自从我……接下师匠的工作成为幽幽子大人的庭师之后」
				PRINTFORMW 「和幽幽子大人的日常连同工作和修行便成为了我生活的全部」
				PRINTFORMW 「彼时，你的出现并没有造成多大的波澜」
				PRINTFORMW 「但随着一天天的与你相遇，我的心里开始滋生出了不一样的情感」
				PRINTFORMW 「我开始隐隐约约的想去追求什么，但我连追求什么都不清楚……」
				PRINTFORMW 「直到我们交往后的那一刻我才明白……」
				PRINTFORMW 「那是记忆中从未有过的，同龄人之间的‘爱’……」
				PRINTFORMW 「……是想要和他待在一起；是想要靠的离他更近……」
				PRINTFORMDW 妖梦一边说着，一边向%CALLNAME:MASTER%靠近
				PRINTFORMW 「……是想要和他组建家庭；是想要和他养育家族……」
				PRINTFORMW 「……是想要和他一起生活；是想要和他一起老去……」
				PRINTFORMDW 最终，妖梦和%CALLNAME:MASTER%的距离近到快要贴在一起了
				PRINTFORMW 「我曾经以为那是我要斩断的执念……」
				PRINTFORMW 「但我终究也无法下手……」
				PRINTFORMDW 妖梦闭上眼睛，仿佛在期待着什么
				PRINTFORMW 「因为……那是只有你可以解开的结……」
				PRINTFORMDW 像是在回应期待一样，%CALLNAME:MASTER%悄悄地吻了上去
				PRINTFORMDW 浅浅的亲吻渐渐变得激烈起来，最后变成了交换对彼此的爱意一样的舌吻
				PRINTFORMW 「是的，我也想和你结婚……」
				PRINTFORMDW 二人分开嘴唇之后，互相拥抱着……慢慢感受着时间的流逝……
				PRINTFORMW 「小女子不才，以后就请多多关照了……」
				PRINTFORMW 「我的……夫君%UNICODE(0x2665)%」
				SETBIT CFLAG:23:K23_记忆,6;“结婚”
				TIMES SOURCE:歓楽 , 10
				TIMES SOURCE:征服 , 10
				TIMES SOURCE:受動 , 10
				IF TALENT:23:無接吻経験
					IF TALENT:MASTER:無接吻経験
						CALL K23_MFIRSTKISS(@"和%CALLNAME:MASTER%幸福地献出了彼此的初吻",1)
						CALL K23_MFIRSTKISS("和妖梦幸福地献出了彼此的初吻",1,1)
						EXP:ARG:愛情経験 += 40
					ELSE
						CALL K23_MFIRSTKISS(@"幸福地向%CALLNAME:MASTER%献出了初吻",1)
						EXP:ARG:愛情経験 += 20
					ENDIF
				ENDIF
				EXP:23:接吻経験 ++
				EXP:MASTER:接吻経験 ++
			CASE "诱惑"
				PRINTFORMDW 在妖梦的耳边说起H的话题
				SIF TALENT:恋人
					EXP:愛情経験 ++
				IF TFLAG:193
					CFLAG:积攒度 += 50
					IF CFLAG:积攒度 >= 665
						PRINTFORMDL 妖梦突然抱住了%CALLNAME:MASTER%
						PRINTFORMDW 感觉有什么不得了的事要发生了
					ELSE
						PRINTFORMDW 妖梦的脸泛起了潮红
					ENDIF
				ELSE
					CFLAG:积攒度 -= 50
					PRINTFORMDW 被妖梦用冷酷的眼神盯住了……
					TIMES SOURCE:歓楽 , 0.5
					TIMES SOURCE:受動 , 0.5
				ENDIF
			CASE "想要孩子"
				IF CFLAG:允许无套 >= 2
					PRINTFORMDW 试着和妖梦说『来一起造小孩吧』
				ELSE
					PRINTFORMDW 试着问妖梦『可以一起造小孩吗？』
				ENDIF
				IF TFLAG:193
					IF K23_OGAMITAOSHI() > 0
						PRINTFORMDW 妖梦点了点头
						PRINTFORMW 「如果%K23_CALLNAME()%想要的话……」
						IF CFLAG:允许无套 >= 2
							PRINTFORMW 「我也会为此努力的」
						ELSE
							PRINTFORMW 「我会接受%K23_CALLNAME()%的全部呢」
						ENDIF
						PRINTFORMW 「不过……%K23_CALLNAME()%要记得负起责任哦」
					ELSE
						TIMES SOURCE:歓楽 , 0.5
						TIMES SOURCE:受動 , 0.5
						PRINTFORMDL 被妖梦婉拒了
						PRINTFORMDW 但是似乎再努力一点妖梦就会同意的样子
						PRINTFORMW 「抱歉……」
						PRINTFORML 「我……还是没准备好怀上孩子」
						PRINTFORMW 「不不不……绝对不是讨厌%K23_CALLNAME()%……！」
						PRINTFORML 「只是……能给我一些时间准备一下吗？」
					ENDIF
				ELSE
					PRINTFORMDW 被妖梦婉拒了
					TIMES SOURCE:歓楽 , 0.5
					TIMES SOURCE:受動 , 0.5
					IF TALENT:育児中
						PRINTFORMW 「能不能先专心养好我们现在的孩子……」
						PRINTFORMW 「至少……等孩子学会自立之后再谈这些？」
					ELSE
						PRINTFORMW 「抱歉……」
						PRINTFORML 「且不说工作太忙什么的」
						IF GETBIT(CFLAG:23:K23_记忆,6)
							PRINTFORMW 「而且我……对这些东西完全没有心理准备」
							PRINTFORMW 「所以……再等一会？」
						ELSE
							PRINTFORML 「而且……总觉得未婚生子这种事不太好」
							PRINTFORMW 「想要……%K23_CALLNAME()%至少给我和孩子一个名分而已」
							CALL ASK_YN("好吧","没必要吧")
							IF RESULT
								PRINTFORML 「什么没必要……？」
								PRINTFORML 「到时候你可是那个要认真的担起责任的人啊！」
								SOURCE:歓楽 = 0
								SOURCE:受動 = 0
								SOURCE:反感 += 200
							ELSE
								PRINTFORML 「很高兴%K23_CALLNAME()%能理解……」
								SIF K23_CANMARRY()
									PRINTFORM 「那……什么时候呢？」
								WAIT
							ENDIF
						ENDIF
					ENDIF
				ENDIF
			CASE "想H半灵"
				PRINTFORMD 偶然开玩笑般的说出了
				PRINTDATAD
					DATA 『想要摸摸半灵』
					DATA 『想要和半灵H』
					DATA 『想要插进半灵里面』
					DATA 『想要一边摸摸半灵一边看妖梦的反应』
					DATA 『想要一边插入半灵一边看妖梦的反应』
				ENDDATA
				PRINTFORMDW 这样的话
				IF TFLAG:193
					PRINTFORMW 「能不能想点正常的东西啊……」
					PRINTFORMDW 妖梦摆出了无言以对的表情，但她的脸上已经显出了红晕
					EXP:TARGET:愛情経験 ++
					SOURCE:情愛 += 100 + ((ABL:親密 - 20) * 5)
				ELSE
					PRINTFORMDW 半灵慢慢缩到了后面
					PRINTFORML 「别太过分了……」
					PRINTFORMDW 接下来妖梦板着脸，对%CALLNAME:MASTER%进行了漫长的礼仪教导……
					TIMES SOURCE:歓楽 , 0.5
					TIMES SOURCE:受動 , 0.5
				ENDIF
			CASE "孕情"
				EXP:TARGET:愛情経験 ++
				PRINTFORMDW %CALLNAME:MASTER%靠在\@CFLAG:TARGET:妊娠経過日数 >= 25 ? 快要临产的 # 孕育着%CALLNAME:MASTER%孩子的\@妖梦旁边，享受着三(?)人的快乐时光……
				IF TFLAG:193
					PRINTFORMW 「是我和%K23_CALLNAME()%的爱的结晶哦」
					EXP:TARGET:愛情経験 ++
				ELSE
					PRINTFORMW 「要好好注意身体呢……」
					PRINTFORMW 「你也是」
				ENDIF
			CASE "取名"
				EXP:TARGET:愛情経験 ++
				PRINTFORMDW %CALLNAME:MASTER%一边摸着\@CFLAG:TARGET:妊娠経過日数 >= 25 ? 快要临产的 # 孕育着%CALLNAME:MASTER%孩子的\@妖梦的肚子，一边问妖梦将来的孩子取什么名字合适
				IF TFLAG:193
					PRINTFORMDW 结果还是决定等孩子出生之后再结合性别取名……
				ELSE
					PRINTFORMDW 还没想好啊……
				ENDIF
			CASE "孩子"
				EXP:TARGET:愛情経験 ++
				PRINTFORMDW %CALLNAME:MASTER%和妖梦一起讨论着%SHOW_CHILDNAME(23)%的事情
				IF TFLAG:193
					PRINTFORMW 「希望孩子能快快长大呢」
				ELSE
					PRINTFORMW 「嗯……煮什么菜给孩子吃呢……？」
				ENDIF
			CASEELSE ;默认闲聊
				RESETCOLOR
				CALL MESSAGE_COM300
				CALL M_KOJO_审查中_COLOR_K23
				IF CFLAG:23:態度 >= 1 && TFLAG:193
					SELECTCASE RAND:5
						CASE 0
							PRINTFORMW 「%K23_CALLNAME()%，你知道吗？」
							IF GETBIT(CFLAG:23:K23_记忆,6) && CFLAG:23:初期位置 == CFLAG:MASTER:初期位置
								PRINTFORMW 「……从那时候开始，我满脑子想的都是%K23_CALLNAME()%的事情」
								PRINTFORMW 「一刻都停不下来，就连睡觉的时候都在做和你在一起的梦」
								PRINTFORMW 「然后又会因为醒来发现自己仍然是孤身一人而默默哭泣……」
								PRINTFORMW 「不过现在嘛……我们已经是彼此的全部了呢」
								PRINTFORMW 「再也不用分开了……」
								PRINTFORMDW 说完这段话的妖梦看着%CALLNAME:MASTER%，露出了幸福的笑容
							ELSEIF TALENT:恋慕
								PRINTFORMW 「……每当靠近你的时候，我都会突然变得想要呆在你的身旁」
								PRINTFORMW 「……每当你离开的时候，我也会突然感到失落……」
								PRINTFORMW 「可能……我真的对你有了莫名的感觉吧……」
							ELSEIF TALENT:思慕
								PRINTFORMW 「……最近一段时间，每到晚上我似乎无法停止去想那些奇怪的事情」
								PRINTFORMW 「很多时候这些事情……好像都和你有关……」
							ELSE
								PRINTFORMW 「精神的修行也是我的修行的一部分呢」
								PRINTFORMW 「因为杂乱的欲望容易影响挥剑的力度」
								PRINTFORMW 「太过心烦意乱的话会变得全身无力的」
							ENDIF
						CASE 1

						CASE 2

						CASE 3

						CASE 4

					ENDSELECT
				ENDIF
		ENDSELECT
	ENDIF
	RESETCOLOR
	SIF TCVAR:351 != 0
		SETBIT TCVAR:352,TCVAR:351-1
ENDIF

;身体接触
@K23_EXTEND_302(ARG)
#DIM 被动
IF ARG == 0
;选择部分
	PRINTFORMW 要怎样和妖梦接触呢？
	DEBUGPRINTL 正常以外的功能属于未完成内容，暂不清楚副作用，慎用
	CALL ASK_M("正常",1,"有点H",TALENT:恋慕,"潜伏PLAY",K23_CANSEX())
	TCVAR:K23_选择分支 = RESULT
	CALL M_KOJO_审查中_COLOR_K23
	TFLAG:192 = 0
	IF BATHROOM()
		SIF !TALENT:恋慕 && !(CFLAG:LOCAL:既成事實 & 合意_诶嘿嘿) && RAND:(10 - 5*(TALENT:思慕))
			TFLAG:192 = -1
	ENDIF
	SELECTCASE TCVAR:K23_选择分支
		CASE 1
			IF CFLAG:行動 == 5 && BASE:工作量 > 0
				PRINTFORMW 「别玩了」
				PRINTFORMW 「还忙着呢……」
				TFLAG:192 = -2
			ELSE
			ENDIF
				;施工中
				;PRINTFORMW 「？」
			TFLAG:192 = -2
			IF !TALENT:処女
				PRINTFORMW 「想要吗……？」
				PRINTFORMW 「好吧……」
				PRINTFORMDW 这之后把妖梦艹了个爽
				CALL K23_AUTOSEX(TARGET,0b111,0,MAX(MIN(ABL:TARGET:欲望 / 2, ABL:MASTER:欲望 / 2) + CFLAG:TARGET:积攒度 / 200,1),"10/10/20/20/20",-10)
				TFLAG:192 = 1
			ENDIF
		CASE 2
			IF CFLAG:行動 == 5 && BASE:工作量 > 0
				PRINTFORMW 「别玩了」
				PRINTFORMW 「还忙着呢……」
				TFLAG:192 = -2
			ELSE
			ENDIF
				;施工中
				;PRINTFORMW 「？」
			PRINTFORMW 「想要吗……？」
			PRINTFORMW 「好吧……」
			PRINTFORMDW 这之后把妖梦艹了个爽
			CALL K23_AUTOSEX(TARGET,0b111,0,MAX(MIN(ABL:TARGET:欲望 / 2, ABL:MASTER:欲望 / 2) + CFLAG:TARGET:积攒度 / 200,1),"10/10/20/20/20",-10)
			TFLAG:192 = 1
	ENDSELECT
	IF TFLAG:192 == -2
		RESETCOLOR
		RETURN
	ELSEIF ABL:23:親密 < 3
		TFLAG:192 = -1
	ENDIF
	RESETCOLOR
ELSEIF ARG == 1
;地文部分
	SELECTCASE TCVAR:K23_选择分支
		CASE 0 ;正常
			IF BATHROOM();浴室
				IF IN_HOME()
					IF TALENT:恋人 && !RAND:2
						PRINTFORMDL %CALLNAME:MASTER%让妖梦为自己搓背
						被动 = 1
					ELSE
						PRINTFORMDL %CALLNAME:MASTER%为妖梦搓着背
						被动 = 0
					ENDIF
				ELSE
					IF TALENT:恋人 && !RAND:2
						被动 = 1
						PRINTFORMDL %CALLNAME:MASTER%和妖梦在水池里嬉戏着
					ELSE
						PRINTFORMDL %CALLNAME:MASTER%在水池里慢慢靠近妖梦
						PRINTFORMDL 图谋着与妖梦的肌肤直接接触
						被动 = 0
					ENDIF
				ENDIF
				IF TFLAG:193 == -1
					PRINTFORMDW 被赤红着脸的妖梦扇了一巴掌

					PRINTFORMW 「你在干什么呢！？」
					PRINTFORMDW 在试图摸摸妖梦的时候被她推开了
					PRINTFORMW 「女孩子的身体可不是随便让人摸的啊……」
					PRINTFORMDW 然后妖梦\@ TALENT:恋慕 ? 用手遮住胸部 # 气汹汹地裹着浴巾 \@的同时开始了说教……
				ELSE
					SIF TFLAG:193 == 1
						PRINTFORMDW 妖梦看起来很开心的样子

					IF IN_HOME()
						IF TALENT:恋人 && TALENT:恋慕
							IF 被动
								SELECTCASE RAND:5
									CASE 0,1,2,3
										PRINTFORML 「%K23_CALLNAME()%……」
										PRINTFORMW 「可不可以不要动了？」
										PRINTFORMDW 妖梦从背后死死抱住了不安分的%CALLNAME:MASTER%
										PRINTFORMDW 『抱的太紧了……』
									CASE 4
										PRINTFORMW 「%K23_CALLNAME()%喜欢这样吗……？」
										PRINTFORMDW 妖梦把前胸压在了%CALLNAME:MASTER%的后背上
										PRINTFORMDW 过了一段时间，妖梦并没有做出%CALLNAME:MASTER%期待的动作
										PRINTFORMW 「只是这样抱住%K23_CALLNAME()%就够了呢」
										PRINTFORMDW 妖梦把头搭在%CALLNAME:MASTER%的肩膀上，笑了笑
								ENDSELECT
							ELSE
								SELECTCASE RAND:5
									CASE 0,1,2,3
										PRINTFORMW 「要搓背吗？」
										PRINTFORMW 「别动」
										PRINTFORMDW 妖梦拿出一个毛巾开始为%CALLNAME:MASTER%搓背
									CASE 4
										PRINTFORML 「再不老实点的话我不干了」
										PRINTFORMDW 妖梦突然停了下来
										PRINTFORMDW 此时，%CALLNAME:MASTER%正想着怎样可以让妖梦做出更色情的举动
										PRINTFORMDW 然后妖梦的拳头就落到了%CALLNAME:MASTER%的头顶
										PRINTFORMW 「老实点……！」
								ENDSELECT
							ENDIF
						ELSEIF TALENT:恋慕
							SELECTCASE RAND:5
								CASE 0,1,2,3
									PRINTFORMW 「不要乱摸……」
									PRINTFORMDW 妖梦小声抗议着
									PRINTFORMDW 不过她的身体并没有任何抗拒%CALLNAME:MASTER%的抚摸的意思
								CASE 4
									PRINTFORMW 「……按摩？」
									PRINTFORMW 「你最好别趁机乱摸……」
									PRINTFORMDW 获得了妖梦的应允之后，%CALLNAME:MASTER%的动作愈发大胆了起来
									IF ABL:MASTER:指 >= 5 || (TFLAG:193 > 0 && RAND:(MAX((9 - ABL:MASTER:指),5)) == 0)
										CALLF FIRSTTIME("H按摩")
										PRINTFORML 「嗯……唔……」
										PRINTFORMDW 妖梦醉心于%CALLNAME:MASTER%的『按摩』中
										PRINTFORML 「唔……已经超过按摩的范围了……」
										PRINTFORMDW 嘴上是这么说，但是妖梦连抵抗的动作都没有
										PRINTFORMDL 不过正当%CALLNAME:MASTER%准备把手伸到大腿之间的时候……
										PRINTFORMDW 妖梦突然清醒过来，抓住了%CALLNAME:MASTER%的手
										PRINTFORMW 「不 可 以 碰 这 里」
										PRINTFORMDW 这之后直到听完%CALLNAME:MASTER%的道歉与解释，妖梦总算松开了手
										TIMES SOURCE:歓楽 , 1.2
										TIMES SOURCE:情愛 , 1.2
										TIMES SOURCE:反感 , 1.2
									ELSE
										PRINTFORMDW 结果%CALLNAME:MASTER%的手法愣是没有让妖梦有哪怕一点感觉
									ENDIF
							ENDSELECT
						ELSE
							SELECTCASE RAND:5
								CASE 0,1,2,3
									PRINTFORML 「敢乱摸的话……」
									PRINTFORMW 「我就有理由动刀了」
									PRINTFORMDW 妖梦勉强答应了%CALLNAME:MASTER%为自己搓背的请求
									PRINTFORMDW %CALLNAME:MASTER%正疑惑妖梦这种情况下从哪里拿刀
									PRINTFORMDW 突然发现头顶上悬浮着一个很锋利的东西
								CASE 4
									IF CFLAG:23:態度 >= 2
										PRINTFORMDW 妖梦的浴巾突然掉了下来
										PRINTFORMDW 可惜还没看到妖梦的裸体就被妖梦一拳打倒在地
										PRINTFORMDW 再次睁开眼睛的时候发现自己躺在地板上，后脑勺被妖梦的手托住了
										PRINTFORMW 「没……没事吧？」
										PRINTFORMDW 比起妖梦接下来说的话，更在意……
										PRINTFORMDW 妖梦那赤裸的身体完全暴露在了自己面前
										PRINTFORMDW 平时被遮住的%OPPAI_DESCRIPTION(TARGET,1)%现在完全的显露在眼前
										PRINTFORMW 「……喂」
										PRINTFORMDL 好像被察觉到了刚刚那有些下流的视线
										PRINTFORMDW 妖梦生气的哼了一声，随即抽回了刚才还托着自己后脑勺的手
										PRINTFORMDW ……
										PRINTFORMDW 头好痛……
										TIME += 50
										CALL RECOVER(MASTER,-200,"体力","拳击")
										CALL RECOVER(MASTER,-100,"気力","拳击")
										TIMES SOURCE:反感 , 1.5
										TIMES SOURCE:歓楽 , 0.8
										TIMES SOURCE:情愛 , 0.8
										TIMES SOURCE:露出 , 1.5
									ELSE
										IF TFLAG:193 > 0
											PRINTFORMDW 妖梦的浴巾突然掉了下来
											PRINTFORMDW 但是半灵随即冲到妖梦前面挡住了视野
											PRINTFORMDW 等到能再次看到妖梦的时候，妖梦仍旧好好的裹着浴巾
										ELSE
											PRINTFORMDW 不小心把妖梦的浴巾拉下来了
											PRINTFORMDW 可惜还没看到妖梦的裸体就被妖梦一拳打倒在地
											PRINTFORMDW 等到能睁开眼睛的时候，妖梦仍旧好好的裹着浴巾
											TIME += 50
											CALL RECOVER(MASTER,-200,"体力","拳击")
											CALL RECOVER(MASTER,-100,"気力","拳击")
											TIMES SOURCE:反感 , 1.5
											TIMES SOURCE:歓楽 , 0.6
											TIMES SOURCE:情愛 , 0.5
											TIMES SOURCE:露出 , 1.25
										ENDIF
									ENDIF
							ENDSELECT
						ENDIF
					ELSE
					ENDIF
				ENDIF
			; ELSEIF Activity_Duration:TARGET && INRANGE(Activity_Type:TARGET,0,17)
			; 	SELECTCASE Activity_Type:TARGET
			; 		CASE 0;思考
			; 		;CASE 1;一起玩
			; 			;考虑到妖梦不[幼稚]，不考虑
			; 		CASE 2, 3;吃饭, 吃零食
			; 		CASE 4	;扫除
			; 		CASE 5	;运动
			; 		CASE 6	;读书
			; 		CASE 7	;做饭
			; 		CASE 8	;演奏
			; 		CASE 9	;采集
			; 		CASE 10	;钓鱼
			; 		CASE 11	;实验
			; 		CASE 12	;休息
			; 		CASE 13	;喝酒
			; 		CASE 14	;买东西
			; 		CASE 15	;说教
			; 		CASE 16	;落穴
			; 		CASE 17	;堆雪人
			; 	ENDSELECT
			ELSE ;通常
				IF CHK_DATENOW(CFLAG:约会中) && CFLAG:MASTER:現在位置 != OMANEKIBEYA()
					PRINTFORML %CALLNAME:MASTER%\@ (CFLAG:TARGET:現在位置 % 100) % 10 ? 在同行的同时 #  \@图谋着与%CALLNAME:TARGET%\@ (CFLAG:TARGET:現在位置 % 100) % 10 ?  # 轻微的 \@身体接触
				ELSEIF CFLAG:TARGET:350 == 49
					PRINTFORML %CALLNAME:MASTER%图谋着与%CALLNAME:TARGET%更过激的身体接触
				ELSE
					PRINTFORML %CALLNAME:MASTER%图谋着与%CALLNAME:TARGET%的身体接触
				ENDIF
				IF TFLAG:193 == -1
					PRINTFORML …是不是太过火了…

					PRINTFORMDW 刚把手伸出去就被妖梦抓住了手
					PRINTFORMW 「乱动别人的身体是很不好的行为……！」
					SIF TALENT:恋慕
						PRINTFORMW 「再这样得意忘形下去的话我就要惩罚你了」
					PRINTFORMDW 后来花了一些时间才成功被妖梦原谅了
				ELSE
					SIF TFLAG:193 == 1
						PRINTFORML %CALLNAME:TARGET%看起来挺开心的样子…
					IF TALENT:恋慕
						IF TALENT:恋人
							SELECTCASE RAND:5
								CASE 0,1,2,3
									PRINTFORML 「%K23_CALLNAME()%真是粘人呢……」
									PRINTFORMDW 妖梦靠在%CALLNAME:MASTER%的身旁说到
									PRINTFORMDW %CALLNAME:MASTER%趁机把妖梦抱在怀里
									PRINTFORMW 「……被%K23_CALLNAME()%粘住了呢」
								CASE 4
									PRINTFORMDW 试图抱住妖梦的半灵
									PRINTFORMDW 好冷……
									PRINTFORMW 「%K23_CALLNAME()%也来抱抱我嘛」
									PRINTFORMDL 妖梦撒娇似地依偎在旁边
									PRINTFORMDW 终于暖和一点了
							ENDSELECT
						ELSE
							SELECTCASE RAND:5
								CASE 0,1,2
									PRINTFORMW 「%K23_CALLNAME()%……」
									PRINTFORMDW %CALLNAME:MASTER%试图望向声音的来源，发现妖梦正抱住他的手
								CASE 3
									PRINTFORMW 「因为经常握着剑的缘故……」
									PRINTFORMW 「手可能会有些粗糙」
									PRINTFORMDW %CALLNAME:MASTER%捧着妖梦的手仔细观察着
									CALL ASK_YN("真可爱","如果……")
									IF RESULT
										PRINTFORMW 「如果……？」
										PRINTFORMDW 妖梦盯着%CALLNAME:MASTER%
										IF !FIRSTTIME(80,1)
											PRINTFORMDW 片刻之后，妖梦的脸瞬间变得通红
										ENDIF
										PRINTFORMDL 但还没等%CALLNAME:MASTER%开口，
										PRINTFORMDW 妖梦的拳头就落向了%CALLNAME:MASTER%的头顶
										PRINTFORMW 「别乱想了……！」
									ELSE
										PRINTFORMDW 『勤劳的双手即使很粗糙也没关系』
										PRINTFORMW 「是吗……第一次听到这种观点呢」
									ENDIF
								CASE 4
									PRINTFORMW 「你的话……倒是可以摸一下」
									PRINTFORMDW 获得许可的%CALLNAME:MASTER%开始抚摸着半灵
									PRINTFORMDW 片刻后，妖梦带着恍惚的神情挪开了%CALLNAME:MASTER%的手
							ENDSELECT
						ENDIF
					ELSEIF TALENT:思慕
						SELECTCASE RAND:5
							CASE 0,1,2,3
								PRINTFORMW 「……嗯」
								PRINTFORMDW 稍微缩短了与妖梦之间的距离(物理)
							CASE 4
								PRINTFORMW 「你觉得半灵摸起来手感很好？」
								PRINTFORMDW 妖梦把半灵抱在怀里，凝视着%CALLNAME:MASTER%
								PRINTFORMW 「那也不可以」
						ENDSELECT
					ELSEIF TFLAG:193 == 1
						SELECTCASE RAND:5
							CASE 0,1,2
								PRINTFORMDW 『可以靠近一些吗……？』
								PRINTFORMW 「……也不是不可以……」
								PRINTFORMW 「不要乱动……！」
							CASE 3
								PRINTFORMDW 突然摸了一下妖梦旁边漂浮着的半灵
								PRINTFORMW 「啊！」
								PRINTFORMDW 然后就被妖梦推开了
								PRINTFORMW 「那个半灵是不能乱碰的……」
								PRINTFORMDW 妖梦红着脸，生气地望向别处
							CASE 4
								PRINTFORMW 「乱动别人的身体是很不好的行为」
								PRINTFORMW 「……这次就不计较了」
						ENDSELECT
					ELSE
						SELECTCASE RAND:5
							CASE 0,1,2
								PRINTFORMW 「拿开你的手」
								PRINTFORMDW 妖梦把%CALLNAME:MASTER%推开了
							CASE 3
								PRINTDATAL
									DATA 「不可以」
									DATA 「别闹了」
									DATA 「我会生气的」
									DATA 「不要……」
									DATA 「别乱摸」
								ENDDATA
								PRINTFORMDW 妖梦把半灵抱在怀里，凝视着%CALLNAME:MASTER%
							CASE 4
								PRINTFORMW 「乱动别人的身体是很不好的行为」
								PRINTFORMW 「……下次不要再干了」
						ENDSELECT
					ENDIF
				ENDIF
			ENDIF
		CASE 1 ;有点H
			IF BATHROOM();浴室
			; ELSEIF Activity_Duration:TARGET && INRANGE(Activity_Type:TARGET,0,17)
			; 	SELECTCASE Activity_Type:TARGET
			; 		CASE 0;思考
			; 		;CASE 1;一起玩
			; 			;考虑到妖梦不[幼稚]，不考虑
			; 		CASE 2, 3;吃饭, 吃零食
			; 		CASE 4	;扫除
			; 		CASE 5	;运动
			; 		CASE 6	;读书
			; 		CASE 7	;做饭
			; 		CASE 8	;演奏
			; 		CASE 9	;采集
			; 		CASE 10	;钓鱼
			; 		CASE 11	;实验
			; 		CASE 12	;休息
			; 		CASE 13	;喝酒
			; 		CASE 14	;买东西
			; 		CASE 15	;说教
			; 		CASE 16	;落穴
			; 		CASE 17	;堆雪人
			; 	ENDSELECT
			ELSE ;通常
			ENDIF
		CASE 2 ;潜伏play
			IF BATHROOM();浴室
			; ELSEIF Activity_Duration:TARGET && INRANGE(Activity_Type:TARGET,0,17)
			; 	SELECTCASE Activity_Type:TARGET
			; 		CASE 0;思考
			; 		;CASE 1;一起玩
			; 			;考虑到妖梦不[幼稚]，不考虑
			; 		CASE 2, 3;吃饭, 吃零食
			; 		CASE 4	;扫除
			; 		CASE 5	;运动
			; 		CASE 6	;读书
			; 		CASE 7	;做饭
			; 		CASE 8	;演奏
			; 		CASE 9	;采集
			; 		CASE 10	;钓鱼
			; 		CASE 11	;实验
			; 		CASE 12	;休息
			; 		CASE 13	;喝酒
			; 		CASE 14	;买东西
			; 		CASE 15	;说教
			; 		CASE 16	;落穴
			; 		CASE 17	;堆雪人
			; 	ENDSELECT
			ELSE ;通常
			ENDIF
	ENDSELECT
ENDIF

repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【23】妖梦口上0.004α/妖梦，保守，但是不保守/追加/M_KOJO_K23_1_指令扩展集.ERB

license: unknown


code:
[SKIPSTART]
;追加方法库
#字符 名字 = 追加方法库
#字符 声明 = "方法的汇总库"
#群 方法库 = /{
	#整型 方法 K23_PURETRAIN
		;去掉呼叫地文的@TRAIN_MESSAGE
	#整型 函数 K23_CANMARRY
		;判断是否可以“结婚”
	#整型 函数 K23_OGAMITAOSHI
		;直接返回危险日判定的结果
	#整型 函数 K23_CANSEX(ARG)
		;@变量 ARG: 0:通常 1:尤指危险日 2:尤指非危险日
		;“可以做吗”函数版
/}

;主方法
#整型 方法 追加方法库()/{
	输出(名字 + "\n)"
    输出(声明 + "\n以下是库内方法：")
    每(方法库 内 一)/{
        如(一.存在 && (一.类 == 方法 || 一.类 == 函数))/{
            输出((((一.返回值.类 == 整型) ? "整型" : "字符") + (一.类 == 方法) ? "方法" : "函数") + 一.名 + "存在\n")
        /}
    /}
    返回 1
/}
[SKIPEND]

@K23_PURETRAIN
#DIM 二重表示
;防止呼叫两次指令地文
IF FLAG:時間停止
	IF 二重表示 == BASE:MASTER:TSP
		RETURN
	ELSE
		二重表示 = BASE:MASTER:TSP
	ENDIF
ELSE
	IF 二重表示 == TIME
		RETURN
	ELSE
		二重表示 = TIME
	ENDIF
ENDIF
DRAWLINE
RESULT = 1
;counter脱衣处理
FOR LOCAL, 0, CHARANUM
	IF TCVAR:LOCAL:22
		CALL DATUI_BOTTOM_LATE(PLAYER, TCVAR:LOCAL:22)
	ELSEIF TCVAR:LOCAL:23
		CALL DATUI_BOTTOM_LATE(LOCAL, TCVAR:LOCAL:23)
	ELSEIF TCVAR:LOCAL:24
		CALL DATUI_TOP_LATE(PLAYER, TCVAR:LOCAL:24)
	ELSEIF TCVAR:LOCAL:25
		CALL DATUI_TOP_T_LATE(LOCAL, TCVAR:LOCAL:25)
	ENDIF
NEXT
;TEQUIP显示处理
IF TEQUIP:吸乳头 && !GROUPMATCH(SELECTCOM,7,11,21,22)
	CALL MESSAGE_EQUIP_COM11
ELSEIF TEQUIP:揉胸 && !GROUPMATCH(SELECTCOM,12,21,22)
	CALL MESSAGE_EQUIP_COM12
ENDIF
;counter呼出处理
IF CFLAG:MASTER:诶嘿嘿 != 2 && SELECTCOM != 461
	CALL Counter呼び出し処理
ENDIF

@K23_CANMARRY
#FUNCTION
IF TALENT:23:恋人 && TALENT:恋慕
	;先决条件：恋慕&恋人
	IF ABL:23:親密 >= 20 && ABL:23:従順 >= 20
		;親密20(A)+従順20(A)
		SIF CFLAG:23:好感度 >= 5000 && CFLAG:23:信賴度 >= 1000 && EXP:23:愛情経験 >= 200
			;好感度5000(A)+信賴度1000(A)+愛情経験200
			RETURNF 1
	ENDIF
ENDIF
RETURNF 0

@K23_OGAMITAOSHI
#FUNCTION
#DIM 理性判定値
#DIM 好意判定値
好意判定値 = CHK_HININ_LOVE(23)
理性判定値 = CHK_HININ_REASON(23)
SIF TALENT:MASTER:謎之魅力
	理性判定値 = 理性判定値 * 9 / 10
IF TALENT:23:自尊心 == -1
	理性判定値  = 理性判定値 * 9 / 10
ELSEIF TALENT:23:自尊心 == 1
	理性判定値 = 理性判定値 * 6 / 5
ENDIF
SIF TALENT:23:貞操 == 1
	理性判定値 = 理性判定値 * 6 / 5
SIF OTOKOGIRAI(23)
	理性判定値 = 理性判定値 * 3 / 2
SIF TALENT:23:倒錯的
	理性判定値 = 理性判定値 * 9 / 10
IF TALENT:23:難以越過的底線
	SELECTCASE EXP:23:愛情経験
		CASE IS >= 500
			理性判定値 = 理性判定値 / 2
		CASE IS >= 300
			理性判定値 = 理性判定値 * 6 / 5
		CASE IS >= 100
			理性判定値 = 理性判定値 * 3 / 2
		CASEELSE
			理性判定値 *= 2
	ENDSELECT
ENDIF
IF TALENT:23:傲嬌
	IF TALENT:23:恋慕
		理性判定値 = 理性判定値 * 2 / 3
	ELSE
		理性判定値 = 理性判定値 * 3 / 2
	ENDIF
ENDIF
RETURNF (理性判定値 - 好意判定値)

@K23_CANSEX(ARG,ARG:1)
;@变量 (ARG:1): 0:通常 1:尤指危险日 2:尤指安全日
#FUNCTION
SIF !ARG
	ARG = TARGET
SIF !CFLAG:ARG:既成事實 & 合意_诶嘿嘿
	RETURNF 0
SIF TCVAR:ARG:挿入拒絶
	RETURNF 0
SIF !HAS_PENIS(MASTER)
	RETURNF 0
SIF TALENT:ARG:処女 || EXP:ARG:Ｖ性交経験 == 0
	RETURNF 0
SIF TALENT:ARG:妊娠 && (CFLAG:23:妊娠経過日数 <= 5 || CFLAG:ARG:妊娠経過日数 > 25)
	RETURNF 0
SIF EQUIP:ARG:下半身内衣２ == 27 || EQUIP:ARG:下半身内衣２ == 28 || EQUIP:ARG:下半身内衣２ == 29 || EQUIP:ARG:下半身内衣２ == 30
	RETURNF 0
SIF TALENT:ARG:育児中 && (CFLAG:ARG:出産経過日 < CHILD_就学)
	RETURNF TCVAR:23:口服避孕薬
SIF CFLAG:ARG:允许无套 == 2
	RETURNF 1
SIF ESTRUS_CYCLE(ARG) == 15 || ARG:1 == 2
	RETURNF 1
IF !CFLAG:ARG:允许无套
	RETURNF TCVAR:ARG:口服避孕薬
ELSEIF ESTRUS_CYCLE(ARG) == 150 || ARG:1 == 1
	RETURNF TCVAR:ARG:口服避孕薬
ENDIF
RETURNF 0

@K23_ALLOUT(ARG)
;@变量 ARG: 0
FOR LOCAL, LIMIT(0,ARG,1), CHARANUM
	SIF CFLAG:LOCAL:現在位置 != CFLAG:23:現在位置
		CONTINUE
	SIF LOCAL != 23 || LOCAL != 66
		CALL GETOUT(LOCAL)
NEXT

@K23_ENDDAY(ARG)
FLAG:70 = 0
IF CFLAG:MASTER:约会中 != MAIN_MAP
	IF ARG
	;设置代入flag
		CFLAG:ARG:招待 = ARG
		CFLAG:MASTER:招待 = ARG
	;初期位置改为OMANEKIBEYA()
		CFLAG:ARG:初期位置 = OMANEKIBEYA()
	;移动
		CFLAG:ARG:現在位置 = OMANEKIBEYA()
	ENDIF
	CFLAG:MASTER:現在位置 = OMANEKIBEYA()
ELSE
	CFLAG:MASTER:現在位置 = CFLAG:MASTER:初期位置
ENDIF
DOTRAIN 402
RETURN

@K23_AUTOSEX(ARG,前戏,Ｖ／Ａ,回数,字符倍率,经过时间,是否显示 = 0)
#DIM 前戏;bit:CBM
#DIM Ｖ／Ａ
#DIM 回数
#DIM 注入量
#DIM 基本注入量
#DIM 经验量,58
#DIMS 字符倍率 ;C, B, V, A, M
#DIMS 倍率, 5
#DIM 经过时间 ;为0时不经过时间；为正数时经过时间；为负数时额外减去经过时间
#DIM 时间
#DIM 是否显示
SPLIT 字符倍率, "/", 倍率
注入量 = 0
IF 前戏 & 1p0;C
	经验量:0 += RAND:(回数 * 2)
	经验量:5 += 经验量:0 / 2
	经验量:10 += 经验量:0 / 2
	CALL JUEL_UP_SPECIAL(TARGET,"快Ｃ","Ｃ感覚",TOINT(倍率:0),是否显示)
	时间 += RAND:(回数 * 2) * (60 / ABL:ARG:Ｃ感覚)
ENDIF
IF 前戏 & 1p1;B
	经验量:3 += RAND:(回数 * 2)
	经验量:8 += 经验量:3 / 2
	经验量:10 += 经验量:0 / 2
	CALL JUEL_UP_SPECIAL(TARGET,"快Ｂ","Ｂ感覚",TOINT(倍率:1),是否显示)
	时间 += RAND:(回数 * 2) * (60 / ABL:ARG:Ｂ感覚)
ENDIF
IF 前戏 & 1p2;M
	经验量:4 += 3 + ABL:ARG:Ｍ感覚 * 2
	经验量:25 = 经验量:4
	经验量:27 = 经验量:4
	EXP:MASTER:Ｍ経験 += 经验量:4
	EXP:MASTER:接吻経験 += 经验量:4
	EXP:MASTER:口淫経験 += 经验量:4
	CALL JUEL_UP_SPECIAL(TARGET,"快Ｍ","Ｍ感覚",TOINT(倍率:4),是否显示)
	时间 += RAND:(回数 * 2) * (60 / ABL:ARG:Ｍ感覚)
ENDIF

IF !Ｖ／Ａ
	基本注入量 = (ABL:ARG:膣 + 1) * 20 + BASE:MASTER:精力 / 25
	经验量:20 += 回数
	经验量:16 += 回数
	经验量:10 += 2 * 回数
	经验量:6 += 2 * 回数
	经验量:1 += 2 * 回数
	CALL JUEL_UP_SPECIAL(TARGET,"快Ｖ","Ｖ感覚",TOINT(倍率:2),是否显示)
	时间 += RAND:(回数 * 2) * (60 / ABL:ARG:Ｖ感覚)
ELSE
	基本注入量 = (ABL:ARG:肛門 + 1) * 20 + BASE:MASTER:精力 / 25
	经验量:21 += 回数
	经验量:17 += 回数
	经验量:10 += 回数
	经验量:7 += 2 * 回数
	经验量:2 += 回数 * 2
	CALL JUEL_UP_SPECIAL(TARGET,"快Ａ","Ａ感覚",TOINT(倍率:3),是否显示)
	时间 += RAND:(回数 * 2) * (60 / ABL:ARG:Ａ感覚)
ENDIF
EXP:MASTER:挿入経験 += 回数
EXP:MASTER:射精経験 += 回数
EXP:MASTER:絶頂経験 += 回数

FOR LOCAL,1,回数
	SIF 注入量 <= BASE:MASTER:精力
		注入量 += 基本注入量
	注入量 += RAND:(基本注入量)
NEXT

SIF !HAS_PENIS(MASTER)
	注入量 = 0
IF !Ｖ／Ａ
	CALL ADD_SAMEN_V(ARG, 注入量)
ELSE
	CALL ADD_SAMEN_A(ARG, 注入量)
ENDIF
FOR LOCAL,0,58
	IF 经验量:LOCAL
		SIF 是否显示
			PRINTFORML %EXPNAME:LOCAL% ＋{经验量:LOCAL}
		EXP:ARG:LOCAL += 经验量:LOCAL
	ENDIF
NEXT
SIF 经过时间
	TIME += MAX(时间 + MAX(经过时间, 0), 0)

path: ERB/口上・メッセージ関連/個人口上/【23】妖梦口上0.004α/妖梦，保守，但是不保守/追加/M_KOJO_K23_1_追加方法库.ERB


path: ERB/口上・メッセージ関連/個人口上/【23】妖梦口上0.004α/妖梦，保守，但是不保守/追加/M_KOJO_K23_1_预定义.ERH


code:
[SKIPSTART]
;额外语句包
#字符 名字 = 额外语句包
#字符 声明 = "为了添加更多的场景互动而做出的语句包"
#群 语句包 = /{
	#整型 方法 K23_EVAL(躲避时间, ARG)
		;@变量 躲避时间:基础的躲避时间 ARG:时停可用?
		;仿弹幕特训事件的躲避小游戏，返回战斗结果(0:失败 1:成功 2:时停下成功)
	#整型 方法 K23_EVAL_WITHCHARA(躲避时间, ARG, ARG:1)
		;@变量 躲避时间:基础的躲避时间 ARG:发起角色 (ARG:1):时停可用?
		;仿弹幕特训事件的躲避小游戏，额外添加了攻击角色的设定；返回战斗结果
	#整型 方法 K23_PRINTPER(ARGS,颜色,表示形式,字体类型,时间 = 500)
		;@变量 ARGS:文字 颜色:文字颜色
		;表示形式:0=通常 1=L 2=W
		;字体类型:bit二进制输入
		;1p0 = 粗体 1p1 = 斜体 1p2 = 删除线 1p3 = 下划线
		;时间:输出文字的间隔(毫秒)
		;逐字输出字符
	#字符 函数 K23_CALLNAME
		;输出对主角的称呼
		;唯一的分歧是婚后
	#整型 方法 K23_MFIRSTKISS(ARGS,ARG,REV)
		;@变量 ARGS:字符串 ARG:决定是否附带修改经验 REV:反向初吻
		;自定义初吻描写
	#整型 方法 K23_CHKREASON(ARG)
		;@变量 ARG:角色
		;单体理智之壁
	#整型 方法 K23_SE_TEACHING
		;喜闻乐见的性教育环节(实则给妖梦打气)
		;返回结果(0 = 保持, 1 = 成功)
/}

;主方法
#整型 方法 额外语句包()/{
	输出(名字 + "\n)"
    输出(声明 + "\n以下是库内方法：")
    每(语句包 内 一)/{
        如(一.存在 && (一.类 == 方法 || 一.类 == 函数))/{
            输出((((一.返回值.类 == 整型) ? "整型" : "字符") + (一.类 == 方法) ? "方法" : "函数") + 一.名 + "存在\n")
        /}
    /}
    返回 1
/}
[SKIPEND]
@K23_EVAL(躲避时间, ARG)
;@变量 躲避时间:基础的躲避时间 ARG:时停可用?
#DIM 躲避时间
#DIM 正解
#DIM 已时停
#DIM FEINT
正解 = RAND:4
;四向
LOCALS:0 = 上
LOCALS:1 = 右
LOCALS:2 = 左
LOCALS:3 = 下
CALL FISHER_YATES_SHAFFLE(4)
PRINTFORMW 回避突然的攻击！
PRINTFORM 攻击从
SETCOLOR C_YELLOW
PRINTFORM %LOCALS:(3 - 正解)%
RESETCOLOR
PRINTFORML 方袭来！
WHILE 1
	FOR LOCAL:10,0,4
		LOCAL = SHAFFLE_ARRAY:(LOCAL:10)
		PRINTFORML [{LOCAL}] - 向%LOCALS:LOCAL%躲避
	NEXT
	SIF !已时停 && ARG && BASE:MASTER:TSP > 50
		PRINTFORML [{4}] - 时间停止
	TINPUT 躲避时间, -1, 1
	IF RESULT == 正解
		PRINTFORML %CALLNAME:MASTER%躲开了攻击！
		RETURN 已时停 ? 2 # 1
	ELSEIF RESULT == 4 && !已时停 && ARG && BASE:MASTER:TSP > 50
		已时停 = 1
		PRINTFORMW %CALLNAME:MASTER%用时间停止能力看穿了攻击！
		BASE:MASTER:TSP -= 50
	ELSE
		PRINTFORML 没能躲开！
		RETURN 0
	ENDIF
WEND

@K23_EVAL_WITHCHARA(躲避时间, ARG, ARG:1)
;@变量 躲避时间:基础的躲避时间 ARG:发起角色 (ARG:1):时停可用?
#DIM 躲避时间
#DIM 正解
#DIM 已时停
#DIM FEINT
正解 = RAND:4
;四向
LOCALS:0 = 上
LOCALS:1 = 右
LOCALS:2 = 左
LOCALS:3 = 下
	;戦闘能力高的话会有佯攻
IF ABL:ARG:戦闘能力 > 3 && !RAND:3
	FEINT = 1
	躲避时间 += 400
ELSE
	FEINT = 0
ENDIF
CALL FISHER_YATES_SHAFFLE(4)
PRINTFORMW 回避%CALLNAME:ARG%的攻击！
PRINTFORM %CALLNAME:ARG%从
SETCOLOR C_YELLOW
IF FEINT
	PRINTFORM %LOCALS:(RAND:4)%
	RESETCOLOR
	PRINTFORM 方佯攻后突然向%LOCALS:(3 - 正解)%
ELSE
	PRINTFORM %LOCALS:(3 - 正解)%
	RESETCOLOR
ENDIF
PRINTFORML 方发起了攻击！
WHILE 1
	FOR LOCAL:10,0,4
		LOCAL = SHAFFLE_ARRAY:(LOCAL:10)
		PRINTFORML [{LOCAL}] - 向%LOCALS:LOCAL%躲避
	NEXT
	SIF ARG:1 && !已时停 && BASE:MASTER:TSP > 50
		PRINTFORML [{4}] - 时间停止
	TINPUT 躲避时间, -1, 1
	IF RESULT == 正解
		PRINTFORML %CALLNAME:MASTER%躲开了攻击！
		RETURN 已时停 ? 2 # 1
	ELSEIF RESULT == 4 && !已时停 && ARG:1 && BASE:MASTER:TSP > 50
		已时停 = 1
		PRINTFORMW %CALLNAME:MASTER%用时间停止能力看穿了攻击！
		BASE:MASTER:TSP -= 50
	ELSE
		PRINTFORML 没能躲开！
		RETURN 0
	ENDIF
WEND

@K23_PRINTPER(ARGS,颜色,表示形式,字体类型,时间)
;表示形式:0=通常 1=L 2=W
;字体类型:bit二进制输入
;1p0 = 粗体 1p1 = 斜体 1p2 = 删除线 1p3 = 下划线
;时间(毫秒)
#DIM 颜色
#DIM 表示形式
#DIM 字体类型
#DIM 时间
#DIM 现在输出 = 1
PRINTL
WHILE 现在输出 <= STRLENSU(ARGS)
	;每次取出1个字
	SUBSTRINGU ARGS, 0, 现在输出
	CLEARLINE 1
	CALL COLORMESSAGE(RESULTS,颜色,0,字体类型)
	TWAIT 时间,1
	现在输出 ++
WEND
SELECTCASE 表示形式
	CASE 1
		PRINTL
	CASE 2
		WAIT
ENDSELECT

@K23_CALLNAME(ARGS)
#FUNCTIONS
RETURNF (GETBIT(CFLAG:23:K23_记忆,6) ? "夫君" # CALLNAME:MASTER) + ARGS

@K23_MFIRSTKISS(ARGS,ARG,REV)
#DIM REV
;ARGS:形如“被%CALLNAME:MASTER%XXXXXXXX”的字符串
;ARG:决定是否附带修改经验
;REV:反向初吻
IF REV
	IF ARG
		CFLAG:MASTER:初吻喪失記念日 = DAY
		TALENT:MASTER:無接吻経験 = 0
		CFLAG:MASTER:初吻喪失对手 = 23
	ENDIF
	IF CFLAG:MASTER:現在位置 == CFLAG:MASTER:初期位置 && CFLAG:MASTER:初期位置 != 99
		CSTR:MASTER:初吻喪失履歴 = %PRINT_DATE_F(DAY)%、在自室里%ARGS%
	ELSEIF FLAG:约会的对象 == 23
		CSTR:MASTER:初吻喪失履歴 = %PRINT_DATE_F(DAY)%、在%DATENAME_PLACE()%的%DATENAME_SPOT()%%ARGS%
	ELSE
		CSTR:MASTER:初吻喪失履歴 = %PRINT_DATE_F(DAY)%、在%NAME_FROM_PLACE(CFLAG:MASTER:現在位置)%%ARGS%
	ENDIF
ELSE
	IF ARG
		CFLAG:23:初吻喪失記念日 = DAY
		TALENT:23:無接吻経験 = 0
		CFLAG:23:初吻喪失对手 = MASTER
	ENDIF
	IF CFLAG:23:現在位置 == CFLAG:23:初期位置 && CFLAG:23:初期位置 != 99
		CSTR:23:初吻喪失履歴 = %PRINT_DATE_F(DAY)%、在自室里%ARGS%
	ELSEIF FLAG:约会的对象 == 23
		CSTR:23:初吻喪失履歴 = %PRINT_DATE_F(DAY)%、在%DATENAME_PLACE()%的%DATENAME_SPOT()%%ARGS%
	ELSE
		CSTR:23:初吻喪失履歴 = %PRINT_DATE_F(DAY)%、在%NAME_FROM_PLACE(CFLAG:23:現在位置)%%ARGS%
	ENDIF
ENDIF

@K23_CHKREASON(ARG)
#DIM 理性判定値
#DIM 好意判定値
#DIM 好意表示
VARSET LOCAL
SIF !ARG
	ARG = TARGET

PRINTFORMDW %CALLNAME:ARG%的心中

好意判定値 = CHK_HININ_LOVE(ARG)
CALL SHOW_LOVEPOWER(好意判定値)

WAIT
理性判定値 = CHK_HININ_REASON(ARG)

CALL SHOW_REASONWALL(理性判定値)
IF TALENT:MASTER:謎之魅力
	CALL COLORMESSAGE(@"%CALLNAME:ARG%、因%CALLNAME:MASTER%的謎之魅力感覺理性有些蒸発……",C_PINK,1,1)
	理性判定値 = 理性判定値 * 9 / 10
	CALL SHOW_REASONWALL(理性判定値)
ENDIF
IF TALENT:ARG:自尊心 == -1
	理性判定値  = 理性判定値 * 9 / 10
ELSEIF TALENT:ARG:自尊心 == 1
	理性判定値 = 理性判定値 * 6 / 5
	CALL COLORMESSAGE(@"架子很大的%CALLNAME:ARG%、不想讓自己表現的太過廉價",C_PINK,1,1)
	CALL SHOW_REASONWALL(理性判定値)
ENDIF
IF TALENT:ARG:貞操 == 1
	理性判定値 = 理性判定値 * 6 / 5
	CALL COLORMESSAGE(@"非常重視贞操的%CALLNAME:ARG%、在改変觀念之前沒那麼容易就接受的……",C_PINK,1,1)
	CALL SHOW_REASONWALL(理性判定値)
ENDIF
IF OTOKOGIRAI(ARG)
	理性判定値 = 理性判定値 * 3 / 2
	IF TALENT:ARG:性別嗜好 == 3
		CALL COLORMESSAGE(@"%CALLNAME:ARG%対他人抱有同樣的忌避感情……",C_PINK,1,1)
	ELSEIF TALENT:ARG:性別嗜好 == 1
		CALL COLORMESSAGE(@"%CALLNAME:ARG%対男性抱有同樣的忌避感情……",C_PINK,1,1)
	ENDIF
	CALL SHOW_REASONWALL(理性判定値)
ENDIF
IF TALENT:ARG:倒錯的
	CALL COLORMESSAGE(@"%CALLNAME:ARG%、対真正的性交感到了倒錯的魅力……",C_PINK,1,1)
	理性判定値 = 理性判定値 * 9 / 10
	CALL SHOW_REASONWALL(理性判定値)
ENDIF
IF TALENT:ARG:難以越過的底線
	SELECTCASE EXP:ARG:愛情経験
		CASE IS >= 500
			CALL COLORMESSAGE(@"%CALLNAME:ARG%、已經就快要完全接受%CALLNAME:MASTER%了……！",C_PINK,1,1)
			理性判定値 = 理性判定値 / 2
		CASE IS >= 300
			CALL COLORMESSAGE(@"%CALLNAME:ARG%、雖然是面対%CALLNAME:MASTER%但還是有些抵抗……",C_PINK,1,1)
			理性判定値 = 理性判定値 * 6 / 5
		CASE IS >= 100
			CALL COLORMESSAGE(@"%CALLNAME:ARG%、即使是和親密的対象也保持著一定距離……",C_PINK,1,1)
			理性判定値 = 理性判定値 * 3 / 2
		CASEELSE
			CALL COLORMESSAGE(@"%CALLNAME:ARG%、不願意接受其他人……",C_PINK,1,1)
			理性判定値 *= 2
	ENDSELECT
	CALL SHOW_REASONWALL(理性判定値)
ENDIF
IF TALENT:ARG:傲嬌
	IF TALENT:ARG:恋慕
		理性判定値 = 理性判定値 * 2 / 3
		CALL COLORMESSAGE(@"%CALLNAME:ARG%撒嬌求歡！",C_PINK,1,1)
	ELSE
		理性判定値 = 理性判定値 * 3 / 2
		CALL COLORMESSAGE(@"%CALLNAME:ARG%抱有了反感……",C_PINK,1,1)
	ENDIF
	CALL SHOW_REASONWALL(理性判定値)
ENDIF
RETURN 好意判定値, 理性判定値

@K23_SE_TEACHING
PRINTFORMDW 要告诉妖梦『那些事』吗？
CALL ASK_YN()
IF RESULT
	PRINTFORMDW 这种东西还是不说……比较好？
	RETURN 0
ELSE
	PRINTFORMDW 『其实只要温柔地做的话是不会很痛的……』
	PRINTFORMDW %CALLNAME:MASTER%好好地教导着妖梦性行为的具体以及\@GETBIT(CFLAG:23:K23_记忆,6) ? 其对夫妻的意义 # 其目的和更多意义\@
	IF GETBIT(CFLAG:23:K23_记忆,6)
		PRINTFORMW 「这样的话……那不管%K23_CALLNAME()%怎么做……我都会接受的%UNICODE(0x2665)%」
	ELSEIF TALENT:23:恋慕 || TALENT:23:恋人
		PRINTFORMW 「如果是%K23_CALLNAME()%的话……那我也可以原谅你……」
		PRINTFORMW 「不过……你要负起责任啊！」
	ENDIF
	CALL COLORMESSAGE(@"妖梦失去了[無知]", C_YELLOW, 2, 1)
	TALENT:23:無知 = 0
	RETURN 1
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【23】妖梦口上0.004α/妖梦，保守，但是不保守/追加/M_KOJO_K23_1_额外语句包.ERB