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_K6_300
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_300
;指令共通メッセージ(TRAIN_MESSAGE)
;削除すると「～说着话。」とかが消えます。また、削除した場合は自動で口上色が付きません。
CALL TRAIN_MESSAGE
;口上メイン呼出
CALL M_KOJO_MESSAGE_COM_K6_300_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_300_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORML 「………」
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:11
				;CASE 9
					;PRINTFORML
					;PRINTFORMW
				;CASE 8
					;PRINTFORML
					;PRINTFORMW
				;CASE 7
					;PRINTFORML
					;PRINTFORMW
				CASE 6
					PRINTFORML 「稍微等一下」
					PRINTFORML 露娜啪的一声打了个响指周围的声音就消失了。
					PRINTFORML 「安静下来说话就会很方便了呢」
					PRINTFORMW 「所以说那个…你想说什么都没问题啦…」
				CASE 5
					PRINTFORML 「那个、%CALLNAME:MASTER%喜欢怎样的女孩子呢？」
					PRINTFORMW 「…果然还是成熟的大姐姐吗…？」
				CASE 4
					PRINTFORML 「我不会停止对%CALLNAME:MASTER%的恶作剧哇」
					PRINTFORMW 「因为想看到%CALLNAME:MASTER%吃惊的样子嘛」
				CASE 3
					PRINTFORML 「那、那个ー我们在旁人看起啦…是、是怎样的关系呢？」
					PRINTFORML 「很好的朋友？………也、也是呢。是会这样看呢」
					PRINTFORMW 「…哈啊」
				CASE 2
					PRINTFORML 「虽然斯塔给了我一朵蔷薇…」
					PRINTFORML 「『在露娜看来这朵蔷薇没有刺吗？』说着这样的话呢」
					PRINTFORMW 「哈啊…偶尔完全不懂斯塔到底在想什么呢」
				CASE 1
					PRINTFORML 「…那个、不觉得我有什么变化吗？」
					PRINTFORML %CALLNAME:MASTER%仔细地观察发现露娜的头发上好像戴着黑丝带。
					PRINTFORMW %CALLNAME:MASTER%说了很适合后露娜的脸完全染成了红色。
				CASE 0
					PRINTFORML 「poー…」
					PRINTFORML 「…啊、抱歉呢。没在听你说话啊」
					PRINTFORMW 「唉ー哆…是在说鲤鱼酱汤和山姥的话题吗？」
				CASEELSE
					PRINTFORML 「最近%CALLNAME:MASTER%在附近的话心就跳个不停但是原因完全不清楚呢…」
					PRINTFORMW 「难道说%CALLNAME:MASTER%的感冒转移到这边了吗…？」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:9
				;CASE 7
					;IF DAY:2 == 3
					;PRINTFORML 「秋天了吗。三个人挥舞着田里晒干的稻草玩耍着」
					;PRINTFORML 「然后秋天的神明突然出现给了我们点心哟。…有点可怕哇」
					;PRINTFORMW 「现在去的话她会给我们点心吗…」
				CASE 6
					PRINTFORML 「因为是男孩子所以必须要好好努力呢」
					PRINTFORMW 「幻想乡的女杰可是很多的呢」
				CASE 5
					PRINTFORML 「那两个人真的是很过分哟。把我丢下来就逃跑了啊」
					PRINTFORMW 「桑尼和斯塔真是太无情了ー！……%CALLNAME:MASTER%不会做那样的事对吧？」
				CASE 4
					PRINTFORML 「这么近距离看的话果然和我们不一样啊」
					PRINTFORMW 「明明是同样的身高却比我更有力气…搬东西的时候能帮我吗」
				CASE 3
					PRINTFORML 「如果尽是消去声音的话、只要声音消失了也就能注意到我在附近了吗？」
					PRINTFORMW 「………这是个盲点呢 」
				CASE 2
					PRINTFORML 「…%CALLNAME:MASTER%。难道说是长高了吗？」
					PRINTFORMW 「因为我们妖精是不会成长的、稍微点羡慕哇」
				CASE 1
					PRINTFORML 「%CALLNAME:MASTER%不怕幽灵吗？」
					PRINTFORML 「我虽然不知道有什么可害怕的但是还是很害怕哟…颤抖颤抖」
					PRINTFORMW 「明明之前还用卒婆塔捕捉过幽灵的啊」
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%总觉得看起来很悠闲呢」
					PRINTFORMW 「这样的话就会被天狗抓走了哟」
				CASEELSE
					PRINTFORML 「有我和桑尼在的话就可以把身影和声音都消去了呢」
					PRINTFORMW 「这么想的话被发现的次数也非常多呢…。哈啊…」
			ENDSELECT
		ELSE
			SELECTCASE RAND:5
				CASE 3
					PRINTFORML 「总觉得今年的降雨比平日要多呢」
					PRINTFORMW 「如果有什么异变的话就可以闹腾了啊」
				CASE 2
					PRINTFORML 「别看我这样我可比%CALLNAME:MASTER%活得更久呢」
					PRINTFORMW 「…等下我可不是老奶奶哟！」
				CASE 1
					PRINTFORML 「不知道你已经习惯幻想乡了吗」
					PRINTFORMW 「要是习惯过头了变成妖怪山巫女那样了也很头疼啊」
				CASE 0
					PRINTFORML 「想看看我以外的妖精？」
					PRINTFORML 「那样的话去迷途竹林或雾之湖就能见到了」
					PRINTFORMW 「只是…如果珍惜生命的话还是不要接近湖上的冰精比较好」
				CASEELSE
					PRINTFORML 「恶作剧正是妖精的使命」
					PRINTFORML 「虽然是这么说但是还是会分场合的」
					PRINTFORMW 「……要是心血来潮的话」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;301,泡茶
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K6_301
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_301
CALL M_KOJO_MESSAGE_COM_K6_301_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_301_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「妖精都讨厌苦味所以%CALLNAME:MASTER%泡的茶都喝不了」
					PRINTFORMW 「也就是说我能够独占了呢」
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%只有泡茶非常的擅长呢」
					PRINTFORMW 「目标是成为茶人吗？」
				CASEELSE
					PRINTFORML 「唔嗯很美呢」
					PRINTFORMW 「下次我来教你咖啡怎么泡吧」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「『露娜、茶尔德？』」
					PRINTFORMW 「…是打算说双关笑话吗？」
				CASE 0
					PRINTFORML 「说到月茶想要喝一次香草茶呀」
					PRINTFORMW 「听说它能有安眠效果什么的」
				CASEELSE
					PRINTFORML 「嗯、最近的泡茶方法好像进步了呢」
					PRINTFORMW
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「我对这种程度的苦涩很喜欢呢。%CALLNAME:MASTER%不喜欢吗？」
					PRINTFORMW
				CASE 0
					PRINTFORML 「虽然我是咖啡党来着…」
					PRINTFORMW 「但是难得你为我泡了茶我就收下啦」
				CASEELSE
					PRINTFORML 「嗯、谢谢你」
					PRINTFORMW
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1
;==================================================
;302,身体接觸
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K6_302
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_302
CALL M_KOJO_MESSAGE_COM_K6_302_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_302_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:4
				CASE 2
					PRINTFORML %CALLNAME:MASTER%温柔地将自己的手与露娜的手重叠在一起。
					PRINTFORMW 「%CALLNAME:MASTER%的手、真的是很暖烘烘的呢…」
				CASE 1
					PRINTFORML %CALLNAME:MASTER%与她的手指交织着凝视着她红色的眼眸。
					PRINTFORML 露娜的脸渐渐地红的如同沸腾了一般…。
					PRINTFORMW 「不、不要那么仔细地盯着呀…好害羞…」
				CASE 0
					PRINTFORML %CALLNAME:MASTER%轻轻地把脸埋在了露娜的胸口里。
					PRINTFORML 「嗯？………嗯」
					PRINTFORML 露娜无言地抱住了%CALLNAME:MASTER%的头。
					PRINTFORML 有一股甘甜而温柔的香味…。
					PRINTFORMW 「这样就像是个大宝宝呢…」
				CASEELSE
					PRINTFORML %CALLNAME:MASTER%对露娜微笑着。
					PRINTFORML 「是要…这样吗？」
					PRINTFORMW 露娜虽然很困惑但还是竭尽全力地以笑容回应着。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML %CALLNAME:MASTER%突然地揉了一下露娜的翅膀、少女扑通一声就跳了起来。
					PRINTFORML 「呼啊…！？」
					PRINTFORMW 「翅、翅膀不可以揉哇…！那里、很敏感的啊！」
				CASE 0
					PRINTFORML %CALLNAME:MASTER%想办法握住了露娜的手。
					PRINTFORMW 「？？怎么了吗？」
				CASEELSE
					PRINTFORML %CALLNAME:MASTER%以壁咚的姿势站在了露娜面前
					PRINTFORML 露娜一副呆呆地表情看着%CALLNAME:MASTER%。
					PRINTFORMW 「……？」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「不要太黏上来哟。都不能好好的动了」
					PRINTFORMW
				CASE 0
					PRINTFORML %CALLNAME:MASTER%和露娜切尔德背靠背比较着身高。
					PRINTFORMW 「%CALLNAME:MASTER%的背稍微高一点呢」
				CASEELSE
					PRINTFORML %CALLNAME:MASTER%对着露娜的钻头般的卷发戳来戳去时露娜感觉很烦似的把手推開了。
					PRINTFORML 「等下、不要擅自碰我的头发啊。会被弄乱的呀」
					PRINTFORMW
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1
;==================================================
;303,道歉
;TFLAG:193(2=菓子折成功 1=大成功 0=成功 -1=失敗 -2=菓子折失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K6_303
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_303
CALL M_KOJO_MESSAGE_COM_K6_303_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_303_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		SELECTCASE TFLAG:193
		CASE 0,1,2
			IF TALENT:恋慕
				PRINTFORML 「明明是那么讨厌的」
				PRINTFORML 「但是我却想要原谅你真的是很奇怪啊…」
				PRINTFORML 露娜低着头之后将%CALLNAME:MASTER%的脸颊抬了起来。
				PRINTFORML 「下次再做了我会哭的呀…」
				PRINTFORMW 露娜一副要哭出来的表情紧紧地抱住了%CALLNAME:MASTER%。
			ELSEIF TALENT:思慕
				PRINTFORML 「你可真是会说好话呢…」
				PRINTFORMW 露娜叹了口气的同时也解開了眉间的皱纹。
			ELSE
				PRINTFORML 「因为我更加得成熟所以我会余裕地原谅你」
				PRINTFORML 「但是这种程度的制裁你还是要吃下的」
				PRINTFORML bixi！
				PRINTFORMW %CALLNAME:MASTER%吃了一发很痛的弹额头。
			ENDIF
		CASEELSE
			IF TALENT:恋慕
				PRINTFORML 「反正只是随便说说敷衍我而已吧…！」
				PRINTFORMW 「我不想听%CALLNAME:MASTER%嘴里说的形式上的道歉！」
			ELSEIF TALENT:思慕
				PRINTFORML 「不管是恶作剧还是玩耍的时候都是这样」
				PRINTFORML 「每次倒霉遭罪的都是我…」
				PRINTFORMW 露娜鼓起了脸完全进入气馁状态了…。
			ELSE
				PRINTFORML 「―――――――」
				PRINTFORML 露娜消除了声音将%CALLNAME:MASTER%的道歉声拒之门外。
			ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;304,幫忙干活
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:350(仕事内容(JOB_仕事内容.ERB参照のこと
;TCVAR:沒法幫忙(=2 手伝っても早くは終わらない、時間停止中不可 永琳の診察等)
;==================================================
@M_KOJO_SUCCESS_COM_K6_304
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_304
CALL M_KOJO_MESSAGE_COM_K6_304_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_304_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		;時間停止中
		IF FLAG:70
		;通常
		PRINTFORML %CALLNAME:MASTER%决定和露娜她们一起玩。
		PRINTFORML
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 和露娜她们玩起了桌游。
					PRINTDATA
						DATAFORM 「多了一个孩子人数超上限了啊…」
						DATAFORM 「你给我等一下！黑白棋1対2的话怎么可能赢得了啊！」
						DATAFORM 「双六为什么要用百面骰啊！」
						DATAFORM 「また私にキングビンボーがついた…」
					ENDDATA
					PRINTFORML
				CASE 0
					PRINTFORML 和露娜她们谈着关于下次探险的地方的话题。
					PRINTDATA
						DATAFORM 「%CALLNAME:MASTER%有钱的吧？溪降只是去看看不玩一下吗？」
						DATAFORM 「妖怪之山可以采集到好吃的水果和稀有的蘑菇、但是天狗好可怕…」
						DATAFORM 「总有一天要去中有之道的店上玩一玩啊。捞死金鱼啊、抓遗书啦之类的，看起来很有意思」
						DATAFORM 「再思之道？……那里的话不行。那里有觊觎外界人类的妖怪」
					ENDDATA
					PRINTFORML
				CASEELSE
					PRINTFORML 决定和露娜她们玩过家家。
					PRINTFORML 「唉、唉ー哆…把香蕉塞进%CALLNAME:MASTER%的口中然后杀害的是…你、是你哟！」
					IF CFLAG:6:現在位置 == CFLAG:5:現在位置 && CFLAG:6:現在位置 == CFLAG:7:現在位置
						SETCOLOR C_AQUA
						PRINTFORML 「绝对不能原谅…。把香蕉插在并非嘴里的地方的%CALLNAME:MASTER%…」
						SETCOLOR 255,230,250
						PRINTFORMW 「最后的一击是痛苦的…」
						RESETCOLOR
					ENDIF
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 决定去博丽神社恶作剧了。
					PRINTFORML 「有%CALLNAME:MASTER%在的话即使被灵梦桑发现了说不定也会手下留情呢」
					PRINTFORMW 「所以打头阵就拜托你了哇。加油吧男孩子」
					PRINTFORML
					PRINTFORMW ………
					PRINTFORML
					PRINTFORMW 全员都被打出了一个大包回来了。
				CASE 0
					PRINTFORML 「今天去狩猎蘑菇如何？」
					PRINTFORML 「珍稀蘑菇的话没办法出现一天以上哟」
					PRINTFORMW 「啊、有很多%CALLNAME:MASTER%碰到就会死的蘑菇所以要小心呢」
				CASEELSE
					PRINTFORML %CALLNAME:MASTER%和露娜决定一起玩弹幕游戏。
					PRINTFORML 「那么、就让我试试你有多强了吧」

			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「每次逃跑的时候桑尼和斯塔都抛下我不管自己跑掉了」
					PRINTFORML 「今天有%CALLNAME:MASTER%在要是没问题就好了」
				CASE 0
					PRINTFORML 露娜正在一个人读着书。
					PRINTFORML 「…现在正读到精彩的地方不要和我搭话」
					PRINTFORMW 戴着眼镜的露娜看起来十分的认真。
				CASEELSE
					PRINTFORML 「你说找不到露娜切尔德了吗？」
					PRINTFORML 「那个叫露娜切尔德…的家伙、是长着这样的脸吗？」
					PRINTFORML 露娜正在带着无脸男的面具正在做着什么…。
					PRINTFORMW 「…果然还是吓不到人呢」
			ENDSELECT
		ENDIF
	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_K6_305
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_305
CALL M_KOJO_MESSAGE_COM_K6_305_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_305_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「要我给你唱歌吗？…」
					PRINTFORML 露娜唱着没有歌词的歌。
					PRINTFORMW %CALLNAME:MASTER%把心和身体托付给了让心平静的歌声中。
				CASEELSE
					PRINTFORML 「想睡了的话直接税也可以哟」
					PRINTFORMW 「直到你醒来为止我都会好好的看着你的」
			ENDSELECT
		ELSEIF ABL:6:親密 > 2
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「瞌睡瞌睡…」
					PRINTFORMW 「啊…抱歉…我睡着了」
				CASEELSE
					PRINTFORML 「如果我有个弟弟会不会就是这种感觉呢」
					PRINTFORMW 露娜眯着眼睛pongpong得拍着%CALLNAME:MASTER%的头。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「总觉得有点冷静不下来哇…」
					PRINTFORMW 露娜心神不定地注视着空中。
				CASE 0
					PRINTFORML 「只可以做一会儿哟…」
					PRINTFORMW 「…等、弄乱头发禁止！闻气味也不行！头乱动也不能做！」
				CASEELSE
					PRINTFORML 「……你把头放在那里的话我就没法读书了啊」
					PRINTFORMW 「啊、但是把%CALLNAME:MASTER%的头当作台子的话就能很方便的读书了呢」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;306,撫摸肚子
;TFLAG:193(1=ABL:親密6以上かつ妊娠時 0=成功 -1=ABL:親密5以下)
;==================================================
@M_KOJO_MESSAGE_COM_K6_306
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_306_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_306_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML %CALLNAME:MASTER%摸着露娜的肚子直到满意为止。
					PRINTFORML 「嗯…」
					PRINTFORML 想要放手时露娜带着炽热的眼神抓住了你的手。
					PRINTFORMW 「…拜托了、请再多抚摸一会儿」
				CASEELSE
					PRINTFORML %CALLNAME:MASTER%温柔地抚摸着露娜的肚子。
					PRINTFORML 「嗯…」
					PRINTFORMW 「不知为何小腹里面变热了呢…」
			ENDSELECT
		ELSEIF ABL:6:親密 > 5
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「我的肚子还不饿来着…」
					PRINTFORMW 「能不能做个富贵味增呢。…讨厌苦的吗？」「富贵味增是日本童话但是目前找不到对应翻译
				CASEELSE
					PRINTFORML 「你摸过来的话我也要摸%CALLNAME:MASTER%的肚子啦」
					PRINTFORMW 「…嗯、稍微比我的肚子硬一点？」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 露娜的肚子又小又柔软。
					PRINTFORML 就这样子抚摸着手被紧紧地抓了起来。
					PRINTFORMW 「唉～咿真烦人啊」
				CASE 0
					PRINTFORML 「Kya…」
					PRINTFORMW 「不要突然摸那里呀！被吓了一跳哇！」
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%的点心？我不知道呀…」
					PRINTFORMW 「先告诉你我的肚子里可什么都没藏哟」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;307,捏臉蛋
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
	;以下は先に書いた条件が優先される
	;TALENT:恋慕(受け入れつつ笑顔でやり返す
	;ABL:親密(6以上=怯生生地やり返す
	;ABL:従順(5以上=されるがまま
;==================================================
@M_KOJO_SUCCESS_COM_K6_307
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗(注、抱住模式中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_307
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_307_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_307_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「无论什么时候都是孩子呢…只可以很戳一会儿呢？」
					PRINTFORMW %CALLNAME:MASTER%充分享受着露娜又软又有弹性的脸颊。
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%的脸颊这么柔软或许会被误认为是美食然后被鬼抓走呢」
					PRINTFORMW 露娜姆尼姆尼得触摸着%CALLNAME:MASTER%的脸颊。
			ENDSELECT
		ELSEIF ABL:6:親密 > 5
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「我的脸颊可不能拿来做团子哟」
					PRINTFORMW 露娜苦笑着任由你戳着脸颊。
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%的脸颊也很柔软呢」
					PRINTFORMW 「跟我们没什么区别。再多摸一摸也可以哟？」
				CASEELSE
					PRINTFORML 「…稍微柔软了一点吗？」
					PRINTFORMW 「最近可能…吃的有点太多了啊。%CALLNAME:MASTER%呢？」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「真是的呜…是想要我理你吗？」
					PRINTFORMW 「我现在稍微有点忙之后再说吧」
				CASE 0
					PRINTFORML 「不要把别人的脸颊当玩具啊」
					PRINTFORML 「你自己也不想被随便捏的对吧」
					PRINTFORMW 露娜温柔地握着%CALLNAME:MASTER%的手将其从脸上拿開了。
				CASEELSE
					PRINTFORML 「啊好疼疼疼太用力了啦！」
					PRINTFORMW 「要抚摸的话要更温柔一点不然对方会生气的哟」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;308,捅臉頰
;陪睡中or睡眠中限定
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K6_308
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗(注、抱住模式中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_308
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_308_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_308_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;通常
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		;睡眠中
		ELSEIF CFLAG:睡眠
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「桑尼等下…那个进不去的啦…」
					PRINTFORMW
				CASE 0
					PRINTFORML 「快停下啦斯塔ー…我知道了啦…」
					PRINTFORMW
				CASEELSE
					PRINTFORML 「唔～嗯唔～嗯…」
					PRINTFORMW
			ENDSELECT
		ELSEIF CFLAG:318 == 1
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「无论什么时候都是孩子呢…只可以很戳一会儿呢？」
					PRINTFORMW %CALLNAME:MASTER%充分地享受了露娜柔软的脸颊。
				CASEELSE
					PRINTFORML 「真是爱撒娇呢。就那么想要我在意你吗？」
					PRINTFORMW 露娜被戳着露出了有点開心的表情。
			ENDSELECT
		ELSEIF ABL:6:親密 > 5
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「不可以太用力地戳哟」
					PRINTFORMW 露娜苦笑着任由你戳着脸颊。
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%的脸颊也很柔软呢」
					PRINTFORMW 「和我们妖精差不多程度的柔软。…戳戳」
				CASEELSE
					PRINTFORML 「我…变得有点柔软了吗？」
					PRINTFORMW 「唔ー嗯最近或许…吃得太多了呢。%CALLNAME:MASTER%呢？」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「…我的脸颊上什么都没有呢」
					PRINTFORMW 「但是戳桑尼的脸的话说不定会出现什么呢」
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%、差不多该剪掉指甲比较好呢」
					PRINTFORMW 「给你指甲剪」
				CASEELSE
					PRINTFORML 「…这是在模仿什么吗？、是在模仿桑尼么」
					PRINTFORMW 「太喜欢恶作剧的话会困扰的啊」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;309,摸頭
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:親密(6以上=通常成功時分岐
;==================================================
@M_KOJO_SUCCESS_COM_K6_309
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗(注、抱住模式中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_309
CALL M_KOJO_MESSAGE_COM_K6_309_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_309_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:6:睡眠
		ELSEIF CFLAG:318 == 1
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「………」purupuru
					PRINTFORMW 露娜小脸染得通红忍着不露出笑容。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「这个意外的很让人害羞呢…」
					PRINTFORMW 露娜脸颊羞红地低下了头。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「好孩子好孩子…等、我可比%CALLNAME:MASTER%年龄要大哟！」
					PRINTFORMW
				CASEELSE
					PRINTFORML 「痛…这可不是摸着头而是把头发弄乱了哟」
					PRINTFORMW 「讨厌头发都被弄得乱糟糟了、不梳理好的话…」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;331,泡茶（下薬）
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K6_331
;成否判定
;TFLAG:192(-2=強制失敗(注、非指令終了）、-1＝強制失敗、0=COM依存、1=強制成功or大成功(注、睡眠薬冰淇淋ティーは眠気を感じていると飲まない)
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_331
CALL M_KOJO_MESSAGE_COM_K6_331_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_331_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TFLAG:193 == 1
		PRINTFORML 「？怎么了那么死盯着这里」
	ELSEIF TFLAG:193 == 0
		PRINTFORML 「好像除了苦味还有其他的味道…是错觉吗？」
		PRINTFORMW
	ELSEIF TFLAG:193 == -1
		PRINTFORML 「唔～嗯总觉得有点奇怪哟…」
		PRINTFORMW 露娜盯着茶的水面一口也没有喝
	ELSE
		PRINTFORML 「泡了茶吗？」
		PRINTFORMW 「虽然我现在还没有那么渴呢…」
	ENDIF
ENDIF
RETURN 1
;==================================================
;332,勸酒
;TFLAG:193(0=不會喝酒成功 -1=不會喝酒失敗 -2=不會喝酒大失敗 -5=不會喝酒あきらめ)
;TFLAG:194(51=濁酒 52=清酒 53=鬼殺酒)
;ALCOHOL_TASTE(TFLAG:194)(15以上=気に入る 9以下=口に合わない)
;自分用メモ…露娜は酒耐性無。清酒は気に入る。濁酒は普通。鬼殺酒は口に合わない
;==================================================
@M_KOJO_MESSAGE_COM_K6_332
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_332_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_332_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF ALCOHOL_TASTE(TFLAG:194) >= 15
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「%CALLNAME:MASTER%拿酒来了我要是拿点下酒菜来就好了哇」
				CASE 0
					PRINTFORML 「好好喝…」
					PRINTFORML 「真亏你能找到这么美味的酒呢」
					PRINTFORMW 「是去人间之里买回来的吗？」
				CASEELSE
					PRINTFORML 「虽然是说要喝酒但是不要被酒喝但是这么美味的话被喝了也可以呀」
					PRINTFORMW
				ENDSELECT
		ELSEIF ALCOHOL_TASTE(TFLAG:194) <= 9
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「这个有点难受哇…」
					PRINTFORMW 露娜只喝了一口就皱起眉头按住了嘴。
				CASE 0
					PRINTFORML 「太烈了…呜唉」
					PRINTFORMW 「头晕乎乎的…。这样就要把妖精杀掉了哟」
				CASEELSE
					PRINTFORML 「如果这样子喝下去的话马上就会酒精中毒呢…」
				ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「唉、%CALLNAME:MASTER%也来喝嘛？」
					PRINTFORMW 「…嘛也行呢。不能喝酒这种美味的东西实在是太可怜了」
				CASE 0
					PRINTFORML 「说起来、之前把酒虫放到肚子里发生了不得了的事情哟」
					PRINTFORMW 「%CALLNAME:MASTER%也要注意呢。如果把它喝了的话即使喝了酒也不会感到美味了」
				CASEELSE
					PRINTFORML 「嗯、还不错的味道呢」
					PRINTFORMW
				ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;333,聽牢騷
;TFLAG:193(6=大成功(酔い) 5=成功(酔い) 4=失敗(酔い) 3=大成功 2=成功 1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K6_333
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_333
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_333_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_333_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 6
		;大成功（酔い）
			PRINTFORML 「能够这么懂的只有%CALLNAME:MASTER%一个…」
			PRINTFORMW 「快点%CALLNAME:MASTER%也来喝吧。发生这种事的话就要痛快地喝酒把烦恼打飞啊」
		CASE 5
		;成功（酔い）
			PRINTFORML 「说得好！不愧是%CALLNAME:MASTER%、可不只是摆摆样子的妖精啊！」
			PRINTFORMW 「是在说不是妖精吗？现在不要在意这些小细节！」
		CASE 4
		;失敗（酔い）
			PRINTFORML 「等下啊%CALLNAME:MASTER%…、话可还没说完哟…！」
			PRINTFORMW 露娜的眼神看着这边…%CALLNAME:MASTER%没办法拒绝、就这样继续听着露娜发牢骚。
		CASE 3
		;大成功
			PRINTFORML 「多亏了把牢骚说出来了感觉身体都变得轻快了」
			PRINTFORMW 「感觉积累了很多呢。帮大忙了啊%CALLNAME:MASTER%。」
		CASE 2
		;成功
			PRINTFORML 「虽然这些事就算给%CALLNAME:MASTER%说也没什么办法、但是我感觉好多了哇」
			PRINTFORMW 「像这样发散烦恼也不错呢」
		CASE 1
		;失敗
			PRINTFORML 「我又不是喜欢才摔倒的…」
			PRINTFORMW 「明明希望那两个人能多帮帮我的说…牢骚牢骚牢骚」
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;334,碰杯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:妊娠自覚状態(1=吃飯)
;TALENT:酒耐性(-2=吃飯)
;==================================================
@M_KOJO_SUCCESS_COM_K6_334
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_334
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_334_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_334_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 1
		;大成功
			PRINTFORMW 「祝愿美味的酒和妖精的繁荣、干杯」
		CASE 0
		;成功
			PRINTFORML 「想要来干杯吗？好好、干杯」
			PRINTFORMW 露娜叮的一声和%CALLNAME:MASTER%的杯子碰撞着把酒喝光了。
		CASE -1
		;失敗
			PRINTFORML 「干杯ー…」咔擦!
			PRINTFORMW 「杯子打碎了啊…」
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;335,照料
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K6_335
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_335
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_335_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_335_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 1
		;大成功
			PRINTFORML 「多亏了%CALLNAME:MASTER%感觉已经变得轻松多了…」
			PRINTFORMW %CALLNAME:MASTER%让露娜侧卧着决定陪在她的身边。
		CASE 0
		;成功
			PRINTFORML 「呜ー嗯呜ー嗯…要是能再稍微控制一下饮酒的势头就好了…」
			PRINTFORMW 露娜喝着从%CALLNAME:MASTER%那里得到的水靠在了附近的墙壁上。
		CASE -1
		;失敗
			PRINTFORML 露娜吐出了闪闪发光的液体…。
			PRINTFORMW 「ororororo……」
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;336,膝枕
;ABL:親密(4以下=居心地悪げ 9以下=恥ずかしげ それ以上=幸せそう
;TIME_PROGRESS(TFLAG:膝枕した)(44以下=失敗
;==================================================
@M_KOJO_SUCCESS_COM_K6_336
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_336
CALL M_KOJO_MESSAGE_COM_K6_336_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_336_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORML
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
			;CASE 0
				;PRINTFORML
			CASEELSE
				PRINTFORML 「唔、唔嗯…感觉很舒服…」
				PRINTFORMW 「但是我想要给%CALLNAME:MASTER%来膝枕…这、这么想的哟」
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
			;CASE 0
				;PRINTFORML
			CASEELSE
				PRINTFORML 「突然想要给我膝枕是怎么了吗？」
				PRINTFORML 「睡得舒服吗？…嘛感觉也不坏呢」
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
			;CASE 0
				;PRINTFORML
			CASEELSE
				PRINTFORML 「………已经可以起来了吧？」
				PRINTFORMW
		ENDSELECT
	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_K6_350
;CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_350_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_350_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORML
	ELSEIF TFLAG:194
		SELECTCASE TFLAG:194
			;0=成功
			CASE 0
				IF TALENT:恋慕
					PRINTFORML
					PRINTFORML
				ELSEIF TALENT:思慕
					PRINTFORML
					PRINTFORML
				ELSE
					PRINTFORML
					PRINTFORML
				ENDIF
			;1=人目がある
			CASE 1
				IF TALENT:恋慕
					PRINTFORML
					PRINTFORML
				ELSEIF TALENT:思慕
					PRINTFORML
					PRINTFORML
				ELSE
					PRINTFORML
					PRINTFORML
				ENDIF
			;2=野外は嫌
			CASE 2
				IF TALENT:恋慕
					PRINTFORML
					PRINTFORML
				ELSEIF TALENT:思慕
					PRINTFORML
					PRINTFORML
				ELSE
					PRINTFORML
					PRINTFORML
				ENDIF
			;3=多人数プレイは勘弁
			CASE 3
				IF TALENT:恋慕
					PRINTFORML
					PRINTFORML
				ELSEIF TALENT:思慕
					PRINTFORML
					PRINTFORML
				ELSE
					PRINTFORML
					PRINTFORML
				ENDIF
			;4=合意があっても情緒が足りぬ
			CASE 4
				IF TALENT:恋慕
					PRINTFORML
					PRINTFORML
				ELSEIF TALENT:思慕
					PRINTFORML
					PRINTFORML
				ELSE
					PRINTFORML
					PRINTFORML
				ENDIF
		ENDSELECT
	ELSEIF TCVAR:初次拥抱
		SELECTCASE TCVAR:初次拥抱
			;1=普通に合意ゲット
			CASE 1
				IF TALENT:恋慕
					PRINTFORML
					PRINTFORML
				ELSEIF TALENT:思慕
					PRINTFORML
					PRINTFORML
				ELSE
					PRINTFORML
					PRINTFORML
				ENDIF
			;2=先に接吻ぐらいしろよ
			CASE 2
				IF TALENT:恋慕
					PRINTFORML
					PRINTFORML
				ELSEIF TALENT:思慕
					PRINTFORML
					PRINTFORML
				ELSE
					PRINTFORML
					PRINTFORML
				ENDIF
			;3=媚薬or発情には勝てなかったよお…
			CASE 3
				IF TALENT:恋慕
					PRINTFORML
					PRINTFORML
				ELSEIF TALENT:思慕
					PRINTFORML
					PRINTFORML
				ELSE
					PRINTFORML
					PRINTFORML
				ENDIF
			;4=悔しい…刻印さえなければﾋﾞｸﾋﾞｸﾝ
			CASE 4
				IF TALENT:恋慕
					PRINTFORML
					PRINTFORML
				ELSEIF TALENT:思慕
					PRINTFORML
					PRINTFORML
				ELSE
					PRINTFORML
					PRINTFORML
				ENDIF
			;6=まんざらでもない
			CASE 6
				IF TALENT:恋慕
					PRINTFORML
					PRINTFORML
				ELSEIF TALENT:思慕
					PRINTFORML
					PRINTFORML
				ELSE
					PRINTFORML
					PRINTFORML
				ENDIF
			;駄目
			CASE 7
				PRINTFORML
			;論外
			CASE 8
				PRINTFORML
				PRINTFORML
		ENDSELECT
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;351,帯出去
;==================================================
@M_KOJO_MESSAGE_COM_K6_351
;連れ出しにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K6_351_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_351_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「难道说只有我们二人…？」
					PRINTFORMW 「对不起、稍微紧张起来了…」
				CASEELSE
					PRINTFORML 「请给我一点点时间！」
					PRINTFORML 数分后、打扮好的露娜回到了%CALLNAME:MASTER%旁边。
					PRINTFORMW 「呼久等了、那么我们走吧」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「如果是去恶作剧的话会很開心的但是、请好好的保护我哟」
					PRINTFORMW
				CASE 0
					PRINTFORMW 「感觉很有趣呢。我们赶紧走吧」
			CASEELSE
					PRINTFORML 「是有想要我帮忙的事情吗？」
					PRINTFORMW
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「为了让%CALLNAME:MASTER%不去奇怪的地方我会好好看着你的」
					PRINTFORMW
				CASE 0
					PRINTFORML 「想要去哪里吗？可以哇、我会跟着你的」
					PRINTFORMW
				CASEELSE
					PRINTFORML 「从现在出发不知道要花多长时间呢」
					PRINTFORMW 「要确保抵达时还不算太晚呢…」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;352,告白
;FLAG:甲斐性無(1=失敗)
;TFLAG:193 (1=成功 0=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K6_352
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_352
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_352_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_352_1
#DIM LCOUNT
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
;告白ループ用
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF TFLAG:193 == 1
			 IF TIME:2 >= 5 && TIME:2 <= 7 && TIME:5 < 2 && ABL:MASTER:教養 > 1
			 ;月が見える夜に告白した場合。教養がないとできない
				PRINTFORML 月色真美呢―――
				PRINTFORML 「………%CALLNAME:MASTER%」
				PRINTFORML 「这句话的意义、你明白吗？」
				PRINTFORMW 「啊…你的脸回答了哇。毕竟你的脸比起苹果还要红呢」
				PRINTFORML
				PRINTFORML
				PRINTFORMW 「……因为我是妖精、没办法和%CALLNAME:MASTER%一起死去」
				PRINTFORMW 「如果这样也可以的话那么我就答应呢」
				PRINTFORML
				PRINTFORML
				PRINTFORMW ―――我、死也甘心
			ELSEIF CFLAG:6:妊娠自覚状態 && !CFLAG:6:無自覚妊娠
			;こいつら交尾したんだ！！
				PRINTFORML 「……哈啊」
				PRINTFORML 「终于做好了觉悟呢。但真的是太慢了…」
				PRINTFORML 「但是、你终于来做出答复了呢…太好了」
				PRINTFORML 「为了这个孩子也、要永远幸福哦。爸爸%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
			;恋慕状態の場合
				PRINTFORML
				PRINTFORML 「……请、请和我结婚！？」
				PRINTFORML 「讨厌、骗人的吧、我不是在做梦吧、…但是」
				PRINTFORML 「很痛的话就说明这不是梦吧…。但是这样的事情…」
				PRINTFORML 「！…难道说%CALLNAME:MASTER%被谁完全凭依了吗…？唉、不是吗？」
				PRINTFORML 「…难道说是现在很流行的恶作剧吗？」
				PRINTFORML 「因为真的难以相信哇！这样的事情…」
				PRINTFORML 「毕竟我平时一直都是很倒霉的…」
				PRINTFORML 「如果这不是真的的话那么我―――」
				PRINTFORML
				PRINTFORMW …露娜的声音切断掉了。
				PRINTFORML 周围被静到可怕的寂静包围、眼看就要哭出来的露娜只是在盯着地面。
				PRINTFORML %CALLNAME:MASTER%的声音无法传达。所以%CALLNAME:MASTER%…
				PRINTFORML
				$LOOP
				PRINTFORML
				PRINTFORML
				PRINTFORML
				PRINTFORML
				SIF TALENT:MASTER:無接吻経験 && TALENT:6:無接吻経験
					PRINTL [0] 献上了初吻
					PRINTL [1] 递出了情书
				SIF MARK:6:不埒刻印 > 1 || MARK:6:時姦刻印 > 1
					PRINTL [2] 展示着肉棒
				INPUT
				;恋慕でお互いに接吻経験がない場合
				IF RESULT == 0 && TALENT:MASTER:無接吻経験 && TALENT:6:無接吻経験
					PRINTFORML %CALLNAME:MASTER%沉默地握住了露娜的手。
					PRINTFORML 「……%CALLNAME:MASTER%？」
					PRINTFORML 虽然很困惑但是露娜依旧用不安的眼神看着%CALLNAME:MASTER%、对她的视线%CALLNAME:MASTER%坚定地凝视着。
					PRINTFORML 「…………」
					PRINTFORML 彼此的心跳激昂强烈地加速了。现在都可以听到彼此扑通扑通的心跳声。
					PRINTFORML 两侧同时闭上了眼睛、二人之间的距离缩短着…
					PRINTFORML 「――嗯…」
					PRINTFORML 二人小小的身体重叠在了一起。
					PRINTFORML
					PRINTFORML 「kiss…做了呢」
					PRINTFORML 「%CALLNAME:MASTER%是第一次嘛？…呼呼、我也是」
					PRINTFORMW 「……%CALLNAME:MASTER%、喜欢呢」
					CALL SET_FIRSTKISS(MASTER, 6, 0)
					CALL SET_FIRSTKISS(6, MASTER, 0,"無音の時の中")
				;恋慕以外特に何もない場合
				ELSEIF RESULT == 1
					PRINTFORML %CALLNAME:MASTER%似乎是想到了会有这种情况、把写好的情书向露娜递出。
					PRINTFORML 「――！？」
					PRINTFORML 露娜因为突然的举动而被惊到了、羞答答地接过了情书。
					PRINTFORML 为了不撕破情书慢慢地剥下新月的贴纸、小心翼翼地打開内容開始读着。
					PRINTFORML 「…………」
					PRINTFORML 写着%CALLNAME:MASTER%对露娜感情的情书。
					PRINTFORML %CALLNAME:MASTER%看不到藏在信后的露娜的表情、仅是等待着她读完信。
					PRINTFORML 「……%CALLNAME:MASTER%」
					PRINTFORML %CALLNAME:MASTER%突然地抬起头时、露娜把%CALLNAME:MASTER%的情书还了回去。
					PRINTFORML 打開着的情书的意义使得%CALLNAME:MASTER%脸上的血色逐渐减退…
					PRINTFORML 「等下、请看下信的结尾呀」
					PRINTFORML 因为她的话语无力的看着信的结尾、可发现上面增加了可爱地文字。那份内容是…
					PRINTFORML 『我也是想和%CALLNAME:MASTER%结婚程度得、最喜欢了』
					PRINTFORMW
				ELSEIF RESULT == 2 && TALENT:MASTER:性別 == 1
				;露娜を調教済みだけど你が女の場合
					PRINTFORMW 你并没有长这个
					GOTO LOOP
				ELSEIF RESULT == 2 && MARK:6:不埒刻印 > 1 || RESULT == 2 && MARK:6:時姦刻印 > 1
				;露娜を調教済みの場合
					PRINTFORML %CALLNAME:MASTER%沉默着脱下了裤子、亮出了自己的刚直。
					PRINTFORML 弥漫着年轻的雄性的呛人味道、脉动着的男根顶着露娜的鼻尖。
					PRINTFORML 「啊……啊啊…%UNICODE(0x2665) *1%」
					PRINTFORML 「呀啊…把这个展示着的话我就…%UNICODE(0x2665) *1%」
					PRINTFORML 浸染身体的雌性本能呼唤着露娜。幼嫩的女性器因为雄性味道而欢喜着、開始滴滴答答地淌着粘稠蜜液。
					PRINTFORML 「喜欢…%CALLNAME:MASTER%…稀饭%UNICODE(0x2665) *1%」
					PRINTFORMW 露出完全出神表情的露娜、通过用脸颊蹭着最爱的人的男根以发誓永远的亲爱与服从%CALLNAME:MASTER%。
				ELSEIF LCOUNT >5
				;早く答えてあげなよ
					PRINTFORMW 露娜现在看起来快要哭了…。
					GOTO LOOP
				ELSE
					PRINTFORML
					LCOUNT ++
					GOTO LOOP
				ENDIF
			ELSE
				;恋慕がない。恋慕がなくても告白はできるハズ？
				PRINTFORML 「……请和我以结婚为前提交往吧？」
				;PRINTFORML 露娜对着向自己献上花束的%CALLNAME:MASTER%、被惊得只能呆呆地张着嘴。
				PRINTFORML 「唉ー哆…%CALLNAME:MASTER%、先冷静下来好好想想哟」
				PRINTFORML 试图让%CALLNAME:MASTER%冷静下来、露娜压住%CALLNAME:MASTER%的肩膀让他坐下了。
				PRINTFORML 露娜用着担忧的眼神看着%CALLNAME:MASTER%、接着坐到了你的旁边。
				PRINTFORML 「我是妖精。和%CALLNAME:MASTER%是不同的种族寿命也不同」
				PRINTFORML 「不可能一直和我在一起哟？」
				PRINTFORML 「为%CALLNAME:MASTER%自身着想我认为和同种族的女孩子结婚是最好…嗯…！」
				PRINTFORML %CALLNAME:MASTER%在她说完之前、就拥抱住了她纤细的身体。
				PRINTFORML 露娜没有抵抗。接受了拥抱、听着%CALLNAME:MASTER%胸中的心跳。
				PRINTFORML 「……就这么的喜欢我…呀。………这样啊」
				PRINTFORML 「我也是不讨厌%CALLNAME:MASTER%呢…」
				PRINTFORML 「你都这么说的话…唔嗯」
				PRINTFORML 「―――我会很高兴地、接受呢」
				PRINTFORML 因微笑着的露娜给予的回复、%CALLNAME:MASTER%高兴得不由自主的跳了起来。
				PRINTFORML 仿佛是为了告戒这幅姿态、露娜紧紧地按住了%CALLNAME:MASTER%的脸颊。
				PRINTFORML 「但是结婚还不行哟。这要等到%CALLNAME:MASTER%好好成为大人之后呢」
				PRINTFORML 「作为代替…」
				PRINTFORML 紧紧的贴在眼前的露娜的脸。…还有%CALLNAME:MASTER%嘴唇感受到的柠檬的味道。
				PRINTFORML 「嗯…」
				PRINTFORML 「虽然这不是誓言之吻、但是预定我已经拿下了呢」
				IF EXP:MASTER:接吻経験 < 0
					PRINTFORMW ………その接吻は%CALLNAME:MASTER%には刺激的過ぎたようだ。
					PRINTFORMW %CALLNAME:MASTER%は目を回してその場に倒れ伏してしまった。
					PRINTFORML 「！？等下%CALLNAME:MASTER%！不要因为kiss而倒下呀！？」
					PRINTFORMW 「哈啊…前途真是不堪设想呢」
				ENDIF
				PRINTFORMW 「今后我也会好地好看着你呢…。加油哟%CALLNAME:MASTER%」
			ENDIF
			PRINTFORML
		ELSE
			PRINTFORML 「%CALLNAME:MASTER%磨磨蹭蹭的怎么了啊？」
			PRINTFORMW
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;353,猥褻
;FLAG:甲斐性無(1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K6_353
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_353_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_353_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
ENDIF
RETURN 1
;==================================================
;354,陪睡（相手は起きて被窝に招く感じ）
;CFLAG:衰弱(1以上=起きない
;CFLAG:招待(0以外=起きない
;==================================================
@M_KOJO_MESSAGE_COM_K6_354
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_354_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_354_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:衰弱 >= 1 || CFLAG:招待 != 0
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「只是睡觉而已…只是一起睡觉而已啦…！」
					PRINTFORMW 「亏心事什么的可、可没有哟…！」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「怎么啦%CALLNAME:MASTER%也睡不着吗？」
					PRINTFORMW 「可以哟、深夜里就稍微陪你一会儿吧」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「姆喵…怎么了%CALLNAME:MASTER%？在这深夜里…」
					PRINTFORMW 「不要摆出那样的表情啊。真是的呜…只有今夜会陪你一起睡呢」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;355,時止め（地の文の改変程度に留めるべき
;==================================================
@M_KOJO_MESSAGE_COM_K6_355
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_355_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_355_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;360,任憑擺佈
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=裙子の中を見せる 53=乳交 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅき大堂ド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_MESSAGE_COM_K6_360
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_360_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_360_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TCVAR:20
		;谷間を見せる
		CASE 27
			PRINTFORML
			PRINTFORMW
		;前から抱きつく
		CASE 32
			PRINTFORML
			PRINTFORMW
		;裙子の中を見せる
		CASE 35
			PRINTFORML
			PRINTFORMW
		;乳交
		CASE 53
			PRINTFORML
			PRINTFORMW
		;ぱふぱふ
		CASE 73
			PRINTFORML
			PRINTFORMW
		;乳を吸わせる
		CASE 77
			PRINTFORML
			PRINTFORMW
		;V挿入する
		CASE 85
			PRINTFORML
			PRINTFORMW
		;だいしゅき大堂ド
		CASE 86
			PRINTFORML
			PRINTFORMW
		;腰振りV
		CASE 88
			PRINTFORML
			PRINTFORMW
		CASEELSE
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;361,抵抗
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=裙子の中を見せる 53=乳交 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅき大堂ド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_MESSAGE_COM_K6_361
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_361_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_361_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TCVAR:20
		;前から抱きつく
		CASE 32
			PRINTFORML
		;裙子の中を見せる
		CASE 35
			PRINTFORML
		;乳交
		CASE 53
			PRINTFORML
		;ぱふぱふ
		CASE 73
			PRINTFORML
		;乳を吸わせる
		CASE 77
			PRINTFORML
		;だいしゅき大堂ド
		CASE 86
			PRINTFORML
		CASEELSE
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;363,朗読（[幼稚]持ち専用）
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;CFLAG:陪睡中(1=被窝orベッドの中で本を読む
;MASTERがTARGETより大柄の場合、膝の上にTARGETを乗せる
;==================================================
@M_KOJO_SUCCESS_COM_K6_363
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_363
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_363_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_363_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;364,撒豆子(萃香、勇儀、斯喀雷特姉妹用
;TFLAG:193(撒豆子に参加してる人数
;==================================================
@M_KOJO_MESSAGE_COM_K6_364
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_364_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_364_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;365,向守矢神社移動(早苗、神奈子、諏訪子用
;==================================================
@M_KOJO_MESSAGE_COM_K6_365
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_365_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_365_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;402,就寝
;TFLAG:193(0=通常 1=兒童と一緒に川の字で寝る)
;==================================================
@M_KOJO_MESSAGE_COM_K6_402
;就寝にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K6_402_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_402_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF CFLAG:318 == 1
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「如果桑尼或者斯塔来恶作剧了就大喊大叫呢」
					PRINTFORML 「然后我也加入…不对会来帮你的呢！」
					PRINTFORMW
				CASE 0
					PRINTFORML 「没想到我竟然会有嫉妒月亮的时候呢」
					PRINTFORML 「……唔嗯什么都没有、晚安呢%CALLNAME:MASTER%」
					PRINTFORMW %CALLNAME:MASTER%歪着头透过窗户眺望着月亮睡着了。
				CASEELSE
					PRINTFORML 露娜把脸转了过去偷瞄着%CALLNAME:MASTER%。
					PRINTFORML 「呐…可以的话来一起、一起…」
					PRINTFORMW 「果、果然还是什么都没有哇。晚安」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「…不再多聊一会儿吗？」
					PRINTFORMW %CALLNAME:MASTER%和露娜聊天后就去睡觉了。
				CASE 0
					PRINTFORML 「想要一起睡觉吗？」
					PRINTFORMW 「好的好的、%CALLNAME:MASTER%可不是那样任性的小孩呢。晚安」
				CASEELSE
					PRINTFORML 「月亮是如此的美丽却已经睡着了什么的…」
					PRINTFORMW 「真可惜呢。晚安啦%CALLNAME:MASTER%」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「如果不早点睡的话鬼怪会来把你抓走了哟」
					PRINTFORMW 「…唔嗯这可不是玩笑啊」
				CASE 0
					PRINTFORML 「我还能在清醒一会呢。晚安」
					PRINTFORMW
				CASEELSE
					PRINTFORML 「已经到了睡觉的时间啦。晚安」
					PRINTFORMW
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;403,休憩
;CFLAG:TARGET:睡眠(1=TARGETが寝てる隣で休憩
;==================================================
@M_KOJO_MESSAGE_COM_K6_403
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_403_1
RETURN RESULT
@M_KOJO_MESSAGE_COM_K6_403_1
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
		ELSEIF CFLAG:6:睡眠
			PRINTFORML 「库唔…库唔…」
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「…………」
					PRINTFORML 「………」
					PRINTFORMW （心脏在不停地跳动着该说什么完全不知道呀！）
				CASE 0
					PRINTFORML 感觉到了视线转过头去露娜红着脸慌张地移開了视线。
					PRINTFORMW 「并、并没有特意在看着%CALLNAME:MASTER%什么的哟」
				CASEELSE
					PRINTFORML 露娜稍微和%CALLNAME:MASTER%拉開了距离休息着。
					PRINTFORMW 「距离很远？心、心理作用哟。肯定是三尺的距离在不知不觉间变长了哟」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「今天还能玩多久呢」
					PRINTFORMW 「%CALLNAME:MASTER%有什么要去的地方吗？？」
				CASE 0
					PRINTFORML 「唔哆…唔哆…」
					PRINTFORMW 露娜睡眼惺忪地靠在%CALLNAME:MASTER%背上。
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%也看新闻吗？…什么嘛没有在看啊」
					PRINTFORMW 「今天天狗的报纸也净写些离奇古怪的内容很有趣哦」
			ENDSELECT
		ELSE
			SELECTCASE RAND:4
				CASE 2
					PRINTFORML 「随时随地随意休息的话可能会被灵梦桑或者住民们赶出去的呢」
					PRINTFORML 「在宿屋或食堂这样可以休息的地方比较安全呢」
				CASE 1
					PRINTFORML 「在寺子屋呀大图书馆之类的地方休息就没问题了哟」
					PRINTFORMW 「因为就算睡着了也能装作看书的样子来蒙混过去呢」
				CASE 0
					PRINTFORML 「休息结束后最好看看鞋带有没有被藏起来哟」
					PRINTFORMW 「休息时候的人可是妖精们绝好的猎物呢」
				CASEELSE
					PRINTFORML 露娜正在读着书。
					PRINTFORMW 是想要静静地读书吗周围一点声音也听不到。
			ENDSELECT
		ENDIF
	ENDIF
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;405,外出(同行時约会
;条件が厄介なので、COMF405 外出.ERBを参照のこと
;==================================================
@M_KOJO_MESSAGE_COM_K6_405
;外出にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K6_405_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_405_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		;TARGETと约会
		IF CFLAG:同行
			IF CFLAG:318 == 1
		 		PRINTFORML
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					CASE 1
						PRINTFORML 「和我一起可以吗？」
						PRINTFORML 「并、并不讨厌哇。好、好啦快点出发吧！」
						PRINTFORMW 慌忙地阻止了向着相反方向拉着%CALLNAME:MASTER%的手前进的露娜。
					CASE 0
						EQUIP:6:2 = 2
						PRINTFORML %CALLNAME:MASTER%正在等待着露娜换衣服。
						PRINTFORML 「久等了。…如、如何哇？」
						PRINTFORML 今天的露娜没戴平时的帽子而是戴着黑色的丝带。
						PRINTFORML %CALLNAME:MASTER%说了很适合很可爱后、露娜的脸完全红透了。
						PRINTFORML 「谢、谢谢你。…………我、我们走吧！」
						PRINTFORMW %CALLNAME:MASTER%被露娜拉着手、为了让她不摔倒比起平时更加小心得開始了约会。
					CASEELSE
						PRINTFORML 「唉、那…那就是约会…？」
						PRINTFORML 「唔、唔嗯现在就去准备、马上就去准备啦！……哇！」
						PRINTFORMW 慌忙地跑着的露娜摔倒了数次開始做着准备。
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					CASE 1
						PRINTFORML 「是呢、为了散心去远行也不错呢」
						PRINTFORMW 「早点出发吧。不那样做的话桑尼和斯塔也会来那样就变得很吵闹了」
					CASE 0
						PRINTFORML 「…嗯、可以哟」
						PRINTFORMW
					CASEELSE
						PRINTFORML 「嘿唉…还有这么有趣的事情啊」
						PRINTFORMW 「稍微有点在意呢。那我马上就准备出发了」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 1
						PRINTFORML 「正时机好呢。我也有想去的地方呢」
						PRINTFORMW 「咖啡豆都快要用光了不去拿点的话」
					CASE 0
						PRINTFORML 「想要出门吗？等一下我也跟着你来」
						PRINTFORMW 「像%CALLNAME:MASTER%这样的小孩子一个人说不到马上就会被妖怪袭击了呢…」
					CASEELSE
						PRINTFORML 「我更喜欢在家里读书呢…」
						PRINTFORMW 「因为担心你所以会跟你来的哇」
				ENDSELECT
			ENDIF
		;TARGET以外と约会
		ELSEIF CFLAG:MASTER:同行
		;お出かけお見送り
			IF TALENT:恋慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
					CASE 0
						PRINTFORML 「………一路走好」
						PRINTFORMW 露娜按着自己的胸口忍耐着刺痛般疼痛目送着%CALLNAME:MASTER%。
					CASEELSE
						PRINTFORMW 「…………要是先邀请的话就好了」(小声)
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
					CASEELSE
						PRINTFORML 「和那个人一起的话就安心了呢。要小心哟」
						PRINTFORMW
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					CASE 0
						PRINTFORML 「夜里不回去的话说不定会被妖怪吃掉呢…什么的」
						PRINTFORMW
					CASEELSE
						PRINTFORML 「不可以跟着不认识的人走哟」
						PRINTFORMW 「已经认识的人？那样的话、大概没问题吧」
				ENDSELECT
			ENDIF
		ELSE
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;410,掃除
;FLAG:70(1=時間停止中
;TFLAG:193(0=見てるだけ 1=一緒に掃除)
;TFLAG:194(3=汚れ高 2=汚れ中 1=汚れ低 0=汚れ最小
;OUTROOF(CFLAG:現在位置)(野外掃除（冬は扫雪
;==================================================
@M_KOJO_MESSAGE_COM_K6_410
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_410_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_410_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:70
		ELSEIF CFLAG:6:睡眠
			PRINTFORML 「呼ー…呼ー…咳咳」
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「哇、让我们快点打扫干净吧！」
					PRINTFORMW （啊啊啊啊啊…只有两个人的话会想到奇怪的东西了！)
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「以往总是那两个人逃走由我来收拾残局」
					PRINTFORMW 「因此就变得擅长打扫了哟。…哈啊」
				CASE 0
					PRINTFORML 「听说在外面的世界有叫『Roomba』的掃除妖精在大活跃着呢」（这个是扫地机器人）
					PRINTFORMW 「如果碰的的话能将她介绍给我吗？」
				CASEELSE
					PRINTFORML 「很高的地方就由我飞着来打扫吧」
					PRINTFORMW 「%CALLNAME:MASTER%就拜托你打扫地板蜡」
			ENDSELECT
		ELSEIF TFLAG:193 == 1
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「红魔馆里有一个人类的女仆桑在对吧？」
					PRINTFORMW 「虽然要花钱但是似乎会有扫除哥布林来清扫干净哟」
				CASE 0
					PRINTFORML 「扫除很重要。如果不每天清扫的话马上就会变得很脏呢」
					PRINTFORMW 「……嘛啊偶尔也会因为我们的恶作剧变得很脏呢」
				CASEELSE
					PRINTFORML 「不管是寒冷还是暑热都必须打扫呢…」
					PRINTFORMW 「不想住在肮脏的房间里对于妖精和人类来说都是一样的哟」
			ENDSELECT
		ELSE
			PRINTFORML
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;411,戦闘訓練
;TFLAG:194(3=夏の昼間 2=ヤバい天気 1=悪天候 0=屋内or通常天気
;==================================================
@M_KOJO_MESSAGE_COM_K6_411
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_411_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_411_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:318 == 1
		PRINTFORMW
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML 「不会手下留情的…」
				PRINTFORML 「夜符『Night Fairies』」
				PRINTFORML  妖精模仿着月亮形状的光球不管%CALLNAME:MASTER%跑到哪里都在进行着追踪！
				PRINTFORMW （……总觉得好像比平时追逐地更起劲了）
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML 和露娜进行全力的弹幕胜负。…努力过头的二人都疲惫不堪了。
				PRINTFORMW 「哈啊哈啊…差不多该稍微休息下了吧？」
			;CASE 0
				PRINTFORML 「要战胜心中的自己！这么想着的时候弹幕胜负中输的时候还是大多数呢」
				PRINTFORMW 「胜负偶尔也要看运气的呢」
			CASEELSE
				PRINTFORML 「我们光之三妖精是三位一体的」
				PRINTFORML 「所以一个人输给%CALLNAME:MASTER%也是没办法的…唔嗯…」
				PRINTFORMW %CALLNAME:MASTER%的弹幕击落的露娜嘟嘟囔囔自言自语着。
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML 听露娜说着弹幕胜负的讲义。
				PRINTFORML 「首先最初是叫命名决斗法呢～」
				PRINTFORML 「然后、SpellCard这个是～」
				PRINTFORML 「那个村里的炖蘑菇呢～～」
				PRINTFORMW 「牛蒡中间的绒毛下面的……啊咧、是在说什么话题来着？」
			CASE 0
				PRINTFORML 「首先是要逃跑。战斗打不过的话躲避是很重要的呢」
				PRINTFORMW 「还有不要摔跤也……」
			CASEELSE
				PRINTFORML 「被妖怪袭击的话就扔出这个装着一升水的瓶子…唉呀！」
				PRINTFORMW 「要是和食人妖怪相遇的话就这样砸过去呢」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;412,学习
;ABL:教養(ABL:MASTER:教養より大=MASTERが教えてもらう ABL:MASTER:教養より小=TARGETが教えてもらう
;==================================================
@M_KOJO_MESSAGE_COM_K6_412
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_412_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_412_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML %CALLNAME:MASTER%瞟了一眼露娜发现她似乎在笔记本的角落里涂鸦着。
					PRINTFORML 从后面看着好像在心形标记里写着什么…。
					PRINTFORML 『……两情相悦后「等、什么时候開始偷看的呀！去那边啦！」
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%对我的事情…那个、学习到什么程度了呢？」
					PRINTFORML %CALLNAME:MASTER%得意地就幻想乡妖精的生态款款而谈。
					PRINTFORML 「唔、唔嗯…我懂了…」
					PRINTFORMW 露娜不知为何垂下了肩膀。
				CASEELSE
					PRINTFORML 「和我一起学习可以吗？人间之里的教师还有擅长教学的人还有很多呢」
					PRINTFORML 「和露娜一起会很開心…你这么说的话那就根本谈不上学习了啦…」
					PRINTFORMW 露娜红着脸低着头沉默了。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「早上起来后很困？这是因为妖怪呢」
					PRINTFORML 「能够吃下讨厌的青椒了？这也是因为妖怪捏他」
					PRINTFORMW
				CASE 0
					PRINTFORML 「…呼呜……呼呜」
					PRINTFORML …………Zzz
					PRINTFORMW %CALLNAME:MASTER%被露娜带着一同进入了梦的世界。
				CASEELSE
					PRINTFORML 「有谁一起陪伴的话学习也会提升效率的对吧？」
					PRINTFORML 「如果是桑尼的话马上就会睡着斯塔的话就会拉着我一起玩哟…」
					PRINTFORMW
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「通过学习来积累教养的话、即使是有违和感和感觉很危险的地方也可以安全地进入了哇」
					PRINTFORMW 「就像我们居住的大树呢。还有附近的梦幻遗迹也是」
					PRINTFORMW 「我想知道要学到什么程度才能够去月亮上呢…」
				CASE 0
					PRINTFORML 「如果说人类的肉体很脆弱那么妖怪就是精神很脆弱了」
					PRINTFORML 「但是不要想着靠说坏话来退治妖怪什么的」
					PRINTFORMW 「……会吃到很痛苦的教训的」
				CASEELSE
					PRINTFORML 「现在的幻想乡是妖怪的贤者们制作的哟」
					PRINTFORMW 「博丽大结界和外面的世界隔离開已经过了数百年…时间过得真快呢」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;413,料理
;TFLAG:194(100以上=禁断のメニュー 3=甜点 2=主食 1=軽食
;==================================================
@M_KOJO_MESSAGE_COM_K6_413
;TFLAG:194が100以上の場合のみ
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_413_1
RETURN RESULT
@M_KOJO_MESSAGE_COM_K6_413_1
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 露娜不知为何消除了声音在调理着食材。…是想要集中吗。
					PRINTFORML 「变得好吃ー吧、变得好吃ー吧」
					PRINTFORML 「难得给%CALLNAME:MASTER%做吃的东西。虽然很害羞但是不这么做的话」
					PRINTFORMW
				CASE 0
					PRINTFORML 「现在组成家庭后男女都必须会做饭才行呢」
					PRINTFORML 「我想给%CALLNAME:MASTER%做料理呐…」
					PRINTFORMW 「…！刚、刚才的没有什么深层的意思啦！」
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%喜欢怎样的料理呢？」
					PRINTFORMW 「我也可以做料理所以下次给你做好了」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 露娜用熟练的手法切着食材。
					PRINTFORML 「我们妖精即使不吃饭也不会死但是也有味觉也会喝醉」
					PRINTFORMW 「难得的机会不想吃好吃的东西然后心情舒畅地喧闹吗？」
				CASE 0
					PRINTFORML 「因为桑尼讨厌野菜所以一不注意就会把料理中的野菜丢掉哟」
					PRINTFORMW 「野菜因为有独特的苦味明明很好吃的…不觉得这很浪费吗？」
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%、来尝尝这个的味道」
					PRINTFORML 「有点淡？那么再加一点盐…」
					PRINTFORMW 和露娜一起分担漂亮地做好了料理。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「要注意不要被烫伤哟…」
					PRINTFORMW 露娜在后面为了%CALLNAME:MASTER%不被烫伤而看守着。
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%做的料理？……没问题吗？」
					PRINTFORMW
				CASEELSE
					PRINTFORML 「一開始还是从小吃開始做比较好」
					PRINTFORML 「积累了经验的话就可以開始做鱼料理和甜点了呢」
					PRINTFORMW 「顺带一提……不能吃的东西不可以做成料理哟」
					;PRINTFORML 「做出了看起来很好吃的东西呢」
					;PRINTFORML 「虽然分量看起来粗糙的地方…」
					;PRINTFORMW 「大家一開始都是这样的呢。不愧是%CALLNAME:MASTER%」
			ENDSELECT
		ENDIF
	ENDIF
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
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_K6_414
;成否判定
;TFLAG:192(-2=指令終了(非TARGET時強制失敗)、-1＝強制失敗、0=COM依存(非TARGET時強制成功)、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_414
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_414_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_414_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	CALL M_KOJO_MESSAGE_COM_K6_415_1
ENDIF
RETURN 1
;==================================================
;415,招待吃飯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TCVAR:MASTER:308(bit0=浓郁 bit1=薄味 bit3=超辣 bit4=超甜 bit5=芥末 bit6=激酸っぱ
;==================================================
@M_KOJO_SUCCESS_COM_K6_415
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_415
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_415_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_415_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORML
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML 露娜羞涩得为%CALLNAME:MASTER%端上了料理。
				PRINTFORML 「%CALLNAME:MASTER%…好、好了～……」
				PRINTFORML 「抱歉！请忘掉刚才的事情！」
				PRINTFORMW 露娜端出的料理转了个头又回到了露娜的嘴里。
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML 「虽然就这样吃也很美味、再调理得浓厚一点的话味道可能会更好呢」
				PRINTFORML 「可以的话下次一起来做料理吧」
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML 「这个是%CALLNAME:MASTER%做的吗？嘿唉ー这不是做的很好嘛」
				PRINTFORML 「味道如何呢？…咀嚼咀嚼」
				PRINTFORML 「唔嗯、不错呢。很能干嘛」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;416,演奏
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TFLAG:使用楽器(1=電子琴 2=鋼琴 3=吉他 4=小號 5=小提琴)
;==================================================
@M_KOJO_SUCCESS_COM_K6_416
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_416
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_416_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_416_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORMW
	ELSEIF TALENT:恋慕
		SELECTCASE TFLAG:193
			CASE 1
				PRINTFORML 「%CALLNAME:MASTER%…不要经常在人们面前弹奏比较好哇…」
				PRINTFORML 「毕竟那么厉害的话%CALLNAME:MASTER%就要很受欢迎了啊！」
				PRINTFORMW
			CASE 0
				PRINTFORML 「我们和%CALLNAME:MASTER%一起的话就能组个四重奏了呢」
				PRINTFORMW 「不过要成为敲锣打鼓为商家宣传的乐队还是圣歌队就看联系程度了呢…」
			CASEELSE
				PRINTFORML 「这声音会让千年的恋情给冷寂下来吗…」
				PRINTFORMW 露娜铁青着脸听着%CALLNAME:MASTER%的演奏。
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE TFLAG:193
			CASE 1
				PRINTFORML 「我要是能像%CALLNAME:MASTER%那样擅长弹奏就好了哪」
				PRINTFORMW 「是在哪里学到的呢？果然是从骚灵那里吗？」
			CASE 0
				PRINTFORML 「%CALLNAME:MASTER%的演奏很喜欢但是也喜欢夜里的演奏呢」
				PRINTFORMW 「虫鸣声以及草木摇曳的声音、还有河川流淌的声音汇聚合而为一成的音乐呢」
			CASEELSE
				PRINTFORML 「最、最開始的话在彼岸练习会比较好吧…？」
				PRINTFORMW 「不这样的话会被灵梦桑当作异变退治了哟」
		ENDSELECT
	ELSE
		SELECTCASE TFLAG:193
			CASE 1
				PRINTFORML 「即使是我也能理解你的演奏很棒哟」
				PRINTFORMW 「%CALLNAME:MASTER%或许有音乐的才能呢」
				PRINTFORMW
			CASE 0
				PRINTFORML 「这个是什么乐器？或许和骚灵使用的乐器很像呢」
				PRINTFORMW 露娜仔细地打量着%CALLNAME:MASTER%拿着的乐器。
			CASEELSE
				PRINTFORML 「今天真的感激自己有消除声音能力…」
				PRINTFORMW
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;417,午睡をする
;TFLAG:193(0=MASTERを抱き枕にして寝ている 1=MASTERの膝を枕にして寝ている 2=寝顔に接吻された 3=寝顔をのぞき込まれた 4=MASTERが膝枕されてる 5=秘処or阴茎揉み
;CFLAG:陪睡中(1=一緒に寝ている
;==================================================
@M_KOJO_MESSAGE_COM_K6_417
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_417_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_417_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕
			SELECTCASE TFLAG:193
			;自分用メモTFLAG:193は亲热度が1以上（性騷擾ができるようになる）時に随机で割り振られる？
				CASE 5
				;阴茎揉まれた
					PRINTFORML 露娜没有注意到自己正被看着继续滚烫着脸揉着%CALLNAME:MASTER%的股间。
					PRINTFORMW 「…姆呼ｰ」搓揉搓揉搓揉搓揉搓揉搓揉
				CASE 4
				;MASTERが露娜に膝枕されてる
					PRINTFORML 「%CALLNAME:MASTER%、最近是不是很累呀？」
					PRINTFORML 「因为我给你膝枕你看起来睡的很舒服啊」
					PRINTFORMW 「我觉得像我们这样随心所欲的话也不会遭报应的哇」
				CASE 3
				;寝顔をのぞき込まれた
					PRINTFORML 「脸、脸上沾着毛玉想把它取下来仅此而已哟！」
					PRINTFORML 「什、什么也没有做啦！一点也没有想做什么啦！……哈呜！」
					PRINTFORMW 露娜红着脸倒退着在台阶上摔了下来扭着身体很痛的样子。
				CASE 2
				;寝顔に接吻された？
					PRINTFORML 露娜以异样的恭敬姿势跪坐着。对%CALLNAME:MASTER%的脸看都不看…。
					PRINTFORML 「早、早上好…%CALLNAME:MASTER%…」
					PRINTFORML 「我的脸很红？……一、一定是因为刚睡醒的缘故吧…！」
					PRINTFORMW （为什么会在这种时间点醒了呀…。明明再过一会儿就能k、kiss的说…）
				CASE 1
				;MASTERの膝を枕にして寝ている
					PRINTFORML %CALLNAME:MASTER%试图摆脱枕着膝盖睡觉的露娜、抓住她的背后但是无法把她拉下来…。
					PRINTFORML 「呼呜…呼呜…」咕ﾞ､咕咕咕咕ﾞ…！
					PRINTFORMW 眺望着看起来睡得很舒服的露娜的睡脸、%CALLNAME:MASTER%决定等着露娜醒过来。
				CASE 0
				;MASTERを抱き枕にして寝ている
					PRINTFORML %CALLNAME:MASTER%虽然想要摆脱把你当成抱枕的露娜、但是露娜比看起来还有力气所以没法摆脱…。
					PRINTFORML 「嘶呀…嘶呀…」咕ﾞ､咕咕咕咕ﾞ…！
					PRINTFORMW 眺望着看起来睡得很舒服的露娜的睡脸、%CALLNAME:MASTER%决定等着露娜醒过来。
				CASEELSE
					PRINTFORMW 「呼ー…呼ー…」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE TFLAG:193
				CASE 5
				;阴茎揉まれた
					PRINTFORML 「呼嗯、这里是会这样子的啊」
					PRINTFORML 「…啊」
					PRINTFORML 「…你什么时候起来的呀？」
					PRINTFORMW 露娜和%CALLNAME:MASTER%之间暂时保持着尴尬的气氛
				CASE 4
				;MASTERが露娜に膝枕されてる
					PRINTFORML 「%CALLNAME:MASTER%的脸颊很柔软呢」
					PRINTFORML 「虽然已经习惯了但是不注意的话还是会发胖的吧？」
					PRINTFORMW
				CASE 3
				;寝顔をのぞき込まれた
					PRINTFORML %CALLNAME:MASTER%从呼吸困难中醒来时、拿着树果的露娜站在眼前。
					PRINTFORML 「啊、起来了」
					PRINTFORML 「果然把树果塞进耳朵里的话%CALLNAME:MASTER%也是会起来的呢」
					PRINTFORML 「等、你想要把拔出的树果拿来戳我吗！？我知道我错了啦！！姆ー！！」
					PRINTFORMW %CALLNAME:MASTER%和露娜在起床后的树果戳刺合战中出了许多汗。
				CASE 2
				;寝顔に接吻された？
					PRINTFORML 「%CALLNAME:MASTER%－该起床了ー」
					PRINTFORML 「呐都说了起来啦ー…真是的呜」
					PRINTFORML 「………」
					PRINTFORMW 「…一直以来都感谢了呢」啾
					PRINTFORML
					PRINTFORML
					PRINTFORML 「终于起来了。要是这样睡下去的话都要到晚上了哟」
					PRINTFORMW %CALLNAME:MASTER%起来时、因为脸上微微的温暖而歪着头。
				CASE 1
				;MASTERの膝を枕にして寝ている
					PRINTFORML 「呼呜…呼呜…啊咧、我睡着了」
					PRINTFORML 「抱歉。因为太舒服柔软了就把你的膝盖当枕头了」
				CASE 0
				;MASTERを抱き枕にして寝ている
					PRINTFORML 「库ー…库ー……。…呼唉…%CALLNAME:MASTER%？」
					PRINTFORML 「刚刚做了个把桑尼当作抱枕的梦哟」
					PRINTFORMW 「%CALLNAME:MASTER%和我们同样的身高所以有当作抱枕的价值呢」
				CASEELSE
					PRINTFORMW 「呼ー…呼ー…」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「呼哇啊…睡了个好觉哇」
					PRINTFORMW 「这样的话之后就可以尽情玩耍了哇」
				CASE 0
					PRINTFORML 「啊呼…可能有点睡不着啊」
					PRINTFORMW 露娜揉着睡眼惺忪的眼睛舒畅地伸展着身体。
				CASEELSE
					PRINTFORML 「呐没有在我的脸上玩涂鸦恶作剧吧？」
					PRINTFORMW 「随便睡午觉的话很可能被谁把脸变成涂鸦帐呢…」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;421,祈願する
;条件が複雑なので、COMF421 祈願.ERBおよび、EVENT_MESSAGE_COM400.ERBの祈願するの項を参照のこと
;==================================================
@M_KOJO_MESSAGE_COM_K6_421
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_421_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_421_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;422～430は、特殊指令なので貂プレでは対応しません
;==================================================

;==================================================
;431,在浴室里放鬆
;自分用メモ自分的家のお風呂でくつろいだ場合？
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;TFLAG:194(1=連続入浴不可(表示しない可能性あり？
;==================================================
@M_KOJO_MESSAGE_COM_K6_431
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_431_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_431_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
				;CASE 0
					;PRINTFORML
				CASEELSE
					PRINTFORML 「…呐、呐」
					PRINTFORML 「身体、我来给你洗吧…」
					PRINTFORML 裹着毛巾的露娜以保守的动作向%CALLNAME:MASTER%走来。
					PRINTFORML 「哟咻哆…嗯、%CALLNAME:MASTER%也是个男孩子呢。身体稍微有点僵硬…」
					PRINTFORML 「…讨厌啊我、为什么感到兴奋了呢」
					PRINTFORMW 「唉、之后就轮到我了吗？…不、不用了！我会自己洗的啦！」
			ENDSELECT
		ELSE
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;432,在浴室里放鬆
;自分用メモ人間之里や地底の銭湯に入った場合？
;表示タイミングは入浴後なので、お風呂上がりでの
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;==================================================
@M_KOJO_MESSAGE_COM_K6_432
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_432_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_432_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TFLAG:209 == 4 || TFLAG:211 == 4
		PRINTFORML 「…店里的人似乎很生气是你做了什么嘛？」
		PRINTFORMW 「即使没有钱也多次进入浴场泡澡？说真的你在做什么呀…」
	ELSEIF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORML
	ELSEIF TFLAG:209 == 1 || TFLAG:211 == 1
		SELECTCASE RAND:4
			CASE 2
				IF TFLAG:209 == 1
					PRINTFORML 露娜坐在冰凉的椅子上舒舒服服地休息着。
					PRINTFORML 「和我们家的浴室不同大浴场很广大且清爽呢」
					PRINTFORML 「如果说欲望的话我想把那个浴场包场后慢慢地在里面放松一下…」
					PRINTFORMW 「一定是只有住在人间之里的有钱人才能享受到的奢侈体验吧」
				ELSE
					PRINTFORML %CALLNAME:MASTER%从男澡堂出来时被拿着甜酒的露娜迎接着。
					PRINTFORML 「来%CALLNAME:MASTER%的份、很冰凉美味哟这个」
					PRINTFORML 「像那边的鬼喝着的冷酒也不错呢。我比较喜欢这个呢」
					PRINTFORML 「说起来…那个鬼喝着的酒很烈呢。那就是那个所谓的鬼杀酒吧」
					PRINTFORMW 「使用这里的水的话似乎都会变成鬼杀酒呢」
				ENDIF
			CASE 1
				PRINTFORML %CALLNAME:MASTER%从男澡堂出来时、露娜正喝着水果牛奶冷却着发热的身体。
				PRINTFORML 「咕咚咕咚」
				PRINTFORMW …………
				PRINTDATA
					DATAFORM %CALLNAME:MASTER%は面包を尻にはさみ右手の指を鼻の穴に入れ左手でボクシングをしながら「いのちをだいじに」と叫んだ。
					DATAFORM %CALLNAME:MASTER%露出了快要被大癞蛤蟆吃掉的琪露诺那样的表情。
					DATAFORM %CALLNAME:MASTER%模仿起了被水獭灵附身的魔理沙。
				ENDDATA
				PRINTFORML
				PRINTFORML 「咕嚯！？」
				PRINTFORML 「咳咳！你在干什么呀%CALLNAME:MASTER%啊啊啊！！」
				PRINTFORMW
			CASE 0
				PRINTFORML 「呼呜真是好舒服啊。翅膀的僵硬感似乎都洗掉了」
				PRINTFORML 「快看呀。感觉就像翅膀通透一般轻盈哇」
				PRINTFORML 露娜展開了艳丽的翅膀拍打着、舒服的轻风吹拂着%CALLNAME:MASTER%…。
				PRINTFORMW 「啊、真是的…不要用我的翅膀乘凉哇」
			CASEELSE
				PRINTFORML 「虽然是很棒的热水但是有点紧张哇」
				PRINTFORML 「\@ TFLAG:209 == 1 ? 人間之里銭湯 # 地底的温泉 \@的客人間之里只有我一个妖精啊」
				PRINTFORML 「机会难得要是和%CALLNAME:MASTER%一起进入男澡堂就好了啊」
				PRINTFORMW
		ENDSELECT
	ELSE
		PRINTFORML
	ENDIF
ENDIF
RETURN 1
;==================================================
;436,読書
;TFLAG:193(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=单薄的高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_MESSAGE_COM_K6_436
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_436_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_436_1
;660,読書を参照
CALL M_KOJO_MESSAGE_COM_K6_660_1
;==================================================
;440,等待
;==================================================
@M_KOJO_MESSAGE_COM_K6_440
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_440_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_440_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORMW
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML
				PRINTFORMW
			CASE 0
				PRINTFORML 露娜在和%CALLNAME:MASTER%有一定距离的地方自言自语着。
				PRINTFORML 「要、要说点什么好我完全不知道…」
				PRINTFORML 「询问喜欢的食物？但是事到如今要说的话…」
				PRINTFORMW
			CASEELSE
				PRINTFORML 「…」
				PRINTFORML 「……」
				PRINTFORML 「………」
				PRINTFORMW 「…………20分竟然是这么漫长的吗」
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「不知道会不会发生些有趣的事情呢…」
				PRINTFORMW
			CASE 0
				PRINTFORML 「石头ー剪刀…」
				PRINTFORML %CALLNAME:MASTER%和露娜一起玩着石头剪刀布消磨着时间。
				PRINTFORMW 「唉？这个剪刀和布的结合体是什么！？」
			CASEELSE
				PRINTFORML %CALLNAME:MASTER%从露娜那里借了一册书開始读了起来。
				PRINTFORMW 「读是可以啦但是不要弄脏呢…」
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 2
				PRINTFORML 「只是等着也意外的很累呢…」
				PRINTFORMW
			CASE 1
				PRINTFORML 「哟唉！？」
				PRINTFORML 露娜在什么也没有的地方摔倒了。
				PRINTFORMW
			CASE 0
				PRINTFORML 「带着的人类是我们绝对的目标呢」
				PRINTFORMW
			CASEELSE
				PRINTFORML 「只是等待着就能看到这地方各种各样的事物很開心哟」
				PRINTFORMW
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;441,聽課(慧音専用
;==================================================
@M_KOJO_MESSAGE_COM_K6_441
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_441_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_441_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;442,伐採（未実装
;==================================================
@M_KOJO_MESSAGE_COM_K6_442
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_442_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_442_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;442以降の指令は、実行しても口上はおそらく表示されないので貂プレでもスルー
;==================================================

;※※※※※※※※※※※※※※※※※※※※※※※※※
;约会系指令
;约会系口上は文字街道外出先で発生
;※※※※※※※※※※※※※※※※※※※※※※※※※
[SKIPSTART]
;現状未実装
;==================================================
;600,约会会話
;==================================================
@M_KOJO_MESSAGE_COM_K6_600
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_600_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_600_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;601,约会身体接觸
;==================================================
@M_KOJO_MESSAGE_COM_K6_601
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_601_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_601_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;602,约会接吻
;==================================================
@M_KOJO_MESSAGE_COM_K6_602
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_602_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_602_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
[SKIPEND]
;==================================================
;603,牽手
;TFLAG:193(1=大成功 0=成功 -1=失敗)(失敗でもふりほどかれたりはしません
;==================================================
@M_KOJO_SUCCESS_COM_K6_603
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_603
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_603_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_603_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			;PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML dokun…dokun…dokun…。
					PRINTFORMW 露娜的心跳变快能通过握着%CALLNAME:MASTER%的手能清晰地感觉到。
				CASEELSE
					PRINTFORML 露娜紧紧的握住了%CALLNAME:MASTER%伸出来的手。
					PRINTFORMW 「最大的幸福…呢。也许真的是这样呢」小声
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「这里往前走脚下好像有点危险」
					PRINTFORML 「嗯…谢谢你」
					PRINTFORMW %CALLNAME:MASTER%她们为了不摔倒握住了相互的手小心得前进着。
				CASEELSE
					PRINTFORML 「这里是捷径哟」
					PRINTFORMW 在%CALLNAME:MASTER%的手伸出来前露娜就握住了%CALLNAME:MASTER%的手前进着。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「啊咧、感觉不安吗？」
					PRINTFORML 露娜在%CALLNAME:MASTER%握住她的手时一点讨厌的表情也没有回握住了%CALLNAME:MASTER%的手。
					PRINTFORML 「没问题哟。就算发生了什么我也对逃跑速度有自信…虽然只有自己的………」
					PRINTFORMW 「发生了什么的话就努力逃跑吧…。如果我摔倒了请帮帮我呢…」
				CASEELSE
					PRINTFORML 「还不习惯走这条路对吧？」
					PRINTFORML 「而且就算我在也可能会被妖精恶作剧然后迷路呢、牵着手一起走吧」
					PRINTFORMW 露娜伸出的手很娇小。但是十分的温暖。
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;604,散步
;约会中の場合、CFLAG:現在位置に移動先の場所が既に入ってる
;==================================================
@M_KOJO_MESSAGE_COM_K6_604
;散步にはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K6_604_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_604_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;605,繞道
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文無し
;==================================================
@M_KOJO_SUCCESS_COM_K6_605
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_605
;繞道にはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K6_605_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_605_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORMW
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			CASE 0
				PRINTFORML %CALLNAME:MASTER%和露娜在看起来很舒服的草原上休息了一会儿。
				PRINTFORMW 「…就现在这样和%CALLNAME:MASTER%一起悠闲地度过也很棒呢」
			CASEELSE
				PRINTFORML 「呐我们快点走吧」
				PRINTFORMW 「因为这样的话约会的时间会变短的呀…」
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML
				PRINTFORML 「总觉得今年的降雨比平日要多呢」
				PRINTFORMW 「果然是异常气象什么的吧？」
			CASE 0
				PRINTFORML 「发现了小蛇的话就告诉我呢。那样的话就可以随便吃东西了」
				PRINTFORMW 「是在说什么吗？是过去的事啦过去的事」
			CASEELSE
				PRINTFORML %CALLNAME:MASTER%试图进入树丛时、被野外妖精的草绳给绊倒了。
				PRINTFORML 「阿啦啦、要注意往旁边观察呢…Kya！」
				PRINTFORMW 和露娜成了摔跤好朋友一同变成了草团子。

		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML %CALLNAME:MASTER%和露娜绕道的时候发现了一个大洞。
				PRINTFORML 「在这种大洞里只会有熊和妖精哟」
				PRINTFORMW 「不管是哪个结果都不会令人满意哇。我们走吧」
			CASE 0
				PRINTFORML 和露娜一起散步着。
				PRINTFORML 「或许这里有长着稀有的蘑菇哇」
				PRINTFORMW 「而且稀有的蘑菇只会出现不超过一天哟」
			CASEELSE
				PRINTFORML ……不知从哪传来了犬的远吠声。
				PRINTFORML 「噫唉！」
				PRINTFORML 露娜紧紧地抱着%CALLNAME:MASTER%的后背惊恐的环顾着四周。
				PRINTFORML 「山狗、山狗不在对吧？」
				PRINTFORMW 「之前有被它追着留下心理阴影了哟…」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;610,請吃飯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K6_610
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_610
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_610_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_610_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORML 露娜对%CALLNAME:MASTER%一点也不在意只是淡然地处理着眼前的料理。
		PRINTFORMW 「フンッ」ﾓｸﾞﾓｸﾞ
	ELSEIF TFLAG:193 == -1
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「…好像成了不妙的事情了啊%CALLNAME:MASTER%。那个坐在里面的人、是之前做了恶作剧的人哟…！」
				PRINTFORML 「如果被找到了就不会被简单放过了啊。请一定不要让他发现我…」
				PRINTFORML %CALLNAME:MASTER%和露娜在不安的气氛中用着餐。
				PRINTFORMW 「明明吃完了饭但是是怎样的味道完全想不起来…」
			CASE 0
				PRINTFORML 「………」gayagayagaya
				PRINTFORML 「………」欢迎光临ｰ
				PRINTFORML 「料理好像还没做好呢…」请在外面稍作等待ｰ
				PRINTFORML 是因为在午饭时间吗、点的料理好像还没有要送来的迹象。
				PRINTFORMW %CALLNAME:MASTER%和露娜只能在拥挤的店里等待着点的菜送上来。
			CASEELSE
				PRINTFORML 「%CALLNAME:MASTER%呀、支着手肘吃饭太没礼貌了」
				PRINTFORML 「发出那么响的声音太不像话了。好好闭上嘴吃饭」
				PRINTFORMW %CALLNAME:MASTER%被露娜提示要注意礼仪開始吃着饭…。
		ENDSELECT
	ELSE
	;自分用メモ。食べ物共通口上後に恋慕等の口上に移行
		SELECTCASE RAND:10
			CASE 8
				PRINTFORML 「偶尔这样的也挺不错呢」
				PRINTFORML 「咀嚼咀嚼…这个关东煮也有好好的入味了」
				PRINTFORMW %CALLNAME:MASTER%和露娜在屋台那里点单了一边散步一边享受着食物。
			CASE 7
				PRINTFORML 「里面放着胡萝卜、土豆、洋葱、还有牛肉呢」
				PRINTFORML 「把这些一起煮成深褐色的料理」
				PRINTFORML 「也就是说这个是炖牛肉吗…？」
				PRINTFORMW 露娜看着眼前的日式土豆炖肉歪着头。
			CASE 6
				PRINTFORML 「唉、说到寿司就是这个吗？」
				PRINTFORML 露娜用惊讶的表情看着%CALLNAME:MASTER%。这之前助六寿司被端上来了。
				PRINTFORMW 「将生鱼放到了上面…吃了这种东西的话肯定会坏肚子呀」
			CASE 5
				PRINTFORML %CALLNAME:MASTER%和露娜友好地分享了日式三明治。
				PRINTFORML 「因为三明治一只手就可以吃所以喜欢」
				PRINTFORMW 「但是边做事边吃食物是不礼貌的不可以做哦」
			CASE 4
				PRINTFORML 「………什么呀」
				PRINTFORMW 露娜感受着%CALLNAME:MASTER%意味深长的视线吃着栗子饭。
			CASE 3
				PRINTFORML 「这道菜好像在外面的世界里已经吃不到了哟」
				PRINTFORML 「明明是这么美味外面的人真的是可惜呢」
				PRINTFORMW %CALLNAME:MASTER%向着神祈祷不要吃坏肚子吃着生拌牛肉。
			CASE 2
				PRINTFORML 「这里的披萨料理可以把喜欢的食材放在上面呢ー。似乎很有趣」
				PRINTFORMW 「那么首先是蘑菇芦笋和火腿…真期待会是什么味道呢」
			CASE 1
				PRINTFORML 「虽然很美味、但是有这么通红的河鱼吗…」
				PRINTFORML 露娜不可思议地看着鲣鱼的Carpaccio（薄切生肉）。
				PRINTFORMW 「这不可能实际上是妖怪鱼吧…？」
			CASE 0
				PRINTFORML 「杂烩饭汉堡包还有日式炸虾、竟然还有布丁什么的」
				PRINTFORML 「这就是外面世界说的法式料理全席呢。呼呼、稍微有点大人的氛围呢」
				PRINTFORMW 露娜看着眼前的儿童套餐得意地笑着。
			CASEELSE
				PRINTFORML 「嗯、这个山菜天妇罗好好吃。是用了不同的油吗？」
				PRINTFORMW 「只要把油带回去就可以再现这个味道…很简单呢」
		ENDSELECT
		PRINTFORML
		PRINTFORML
		IF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「嘴角脏了呀。我来给你擦掉」ﾌｷﾌｷ
					PRINTFORMW 「无论什么时候都想个孩子一样。…所以才这么在意啊」
				CASE 0
					PRINTFORML 「啊、这个好好吃」
					PRINTFORMW 「%CALLNAME:MASTER%也想要嘛？如果不在意吃了一半的话就给…！」
					PRINTFORMW （这不就是间接接吻了嘛…！？）「果、果然不行！」
				CASEELSE
					PRINTFORML （虽然现在才发觉这不就是约会嘛）
					PRINTFORMW （……%CALLNAME:MASTER%对我是怎么看的呢）
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:4
				CASE 2
					PRINTFORML 「来一起分享吧。也请%CALLNAME:MASTER%分我一点」
					PRINTFORMW
				CASE 1
					PRINTFORML 「买了桑尼和斯塔份的特产呢」
					PRINTFORMW 「不这么做的话之后会发生可怕的事啦…」
				CASE 0
					PRINTFORML 「因为我吃不完所以分给%CALLNAME:MASTER%一点哇」
					PRINTFORMW 「来、啊ー昂」
				CASEELSE
					PRINTFORML 「谢谢你。今天也多谢款待了哇」
					PRINTFORMW 「作为回礼下次你来我们家我会亲手做料理给你吃的」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「妖精即使不吃饭也没问题但是知晓了食物的美味就没法停下来了呢」
					PRINTFORMW 「已经到了不吃饭就会精神上饿死的程度了」
				CASE 0
					PRINTFORML 「顺带一提除了这里还有其他可以吃饭的地方哟」
					PRINTFORMW 「在迷途竹林里夜雀開着摊子有兴趣的话就去看看吧」
				CASEELSE
					PRINTFORML 「哈啊好紧张啊」
					PRINTFORML 「在外面吃饭什么的要是放在以前的话怎么也做不到的哇」
					PRINTFORMW 「多亏了%CALLNAME:MASTER%才能够堂堂正正地吃饭真的很感谢呢」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;613,賺錢（オミットされました
;==================================================
@M_KOJO_SUCCESS_COM_K6_613
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_613
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_613_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_613_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;614,採購食材
;TFLAG:193(1=購入＆約會経験UP 0=購入 -1=非購入)
;==================================================
@M_KOJO_MESSAGE_COM_K6_614
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_614_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_614_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORMW
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML （好不容易的约会不来这里买东西也可以的吧…）
				PRINTFORMW
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「这里有这么多的米拿一袋走也没问题吧…」
				PRINTFORMW 「玩、玩笑哟…」
			CASE 0
				PRINTFORML 「%CALLNAME:MASTER%也能做料理呢」
				PRINTFORMW 「要用米做荞麦吗？不是荞麦粉的荞麦就是另一种料理了…」
			CASEELSE
				SIF TFLAG:193 == 0
					PRINTFORML 「看起来很辛苦我也来拿一点吧？…唉、想要一个人努力？这样啊…」
				PRINTFORMW 「那么我们去下个地方吧」
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「唉ー哆『特卖日50％折扣！』…这么写着呢」
				PRINTFORMW 「啊咧？但是没有写什么时候開始有特卖日呢」
			CASE 0
				PRINTFORML 「白米虽然很好吃但是很昂贵呢ー…」
				PRINTFORMW 「所以我们的话经常会去借呢」
			CASEELSE
				PRINTFORML 「不太喜欢杂粮哇。有野趣而且很难吃下去」
				PRINTFORML 「好像其他的女孩子大多也不喜欢哟」
				PRINTFORMW
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;615,吃便當
;実行可能場所　地蔵小路,倒垂的柳樹下,霧之湖,玄武之澤,大蛤蟆之池,絶景之丘,山之湖,天界
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:料理技能(2未満=微妙な出来 4未満=そこそこ美味しい 4以上=絶品)
;==================================================
@M_KOJO_MESSAGE_COM_K6_615
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_615_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_615_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
		RETURN 1
	ELSEIF CFLAG:318 == 1
		RETURN 1
	ELSEIF ABL:料理技能 > 3
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「虽然觉得这样也很好吃但是好好地调理了之后变得更好吃了哇」
				PRINTFORML 「中华风味栗子糯米小豆饭还有嫩煎马勃、也有作为甜点的银杏果冻哦」
				PRINTFORMW

			CASE 0
				PRINTFORML 「今天试着想象着我们光之三妖精的形象做了便当哇」
				PRINTFORML 「首先桑尼是樱花粉和鱼糕的拌饭」
				PRINTFORML 「我露娜则是花椰菜奶酪奶油拌」
				PRINTFORMW 「然后斯塔是烤茄子的凉拌菜。怎么样？」
			CASEELSE
				PRINTFORML 「可能会把食物塞得太紧了…」
				PRINTFORML 露娜放下了重箱发出咚的一声%CALLNAME:MASTER%就知道里面放了相当多量的食物。
				PRINTFORML 第一层的饭团像小山一样堆积着、第二层是多种多样的配菜、然后第三层放着作为甜点的果物光是看着就感觉对吃饱了。
				PRINTFORMW 「%CALLNAME:MASTER%正是能吃的时候这点分量没问题的吧？」
		ENDSELECT
	ELSEIF ABL:料理技能 > 2
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML %CALLNAME:MASTER%用没有生气的眼睛俯视着只有白米的便当。
				PRINTFORML 「不、不要那么失望呀…」
				PRINTFORML 「这可是有个秘密的呢。稍微给我一点白米吧」
				PRINTFORML 按照露娜说的那样把饭挪開一看下面是…咖喱哒！
			CASE 0
				PRINTFORML 「抱歉…今天没太多时间去做便当、所以就把剩下的下酒菜全部打包带过来了」
				PRINTFORML 烤鸡肉和炒蘑菇、还有关东煮的萝卜真的全部都是下酒菜啊。
				PRINTFORMW 「…不知道该不该把喝剩下的酒也带过来呢」
			CASEELSE
				PRINTFORML 「来、这是%CALLNAME:MASTER%的份」
				PRINTFORML 露娜刚把带来的便当盒打開就从中散发出很美味的香味。
				PRINTFORML 里面塞满了味增混着的拌饭和根菜的天妇罗。
				PRINTFORMW 「焙茶也有呢」
		ENDSELECT
	ELSE
	;自分用メモ。お弁当を食べられる場所
	;博麗神社    10:桜花道的鳥居
	;命蓮寺     110:地蔵小路  120:倒垂的柳樹下
	;紅魔館     310:霧之湖
	;妖怪之山   720:玄武之澤    730:大蛤蟆之池
	;妖怪之山頂 820:絶景之丘    830:山之湖	 890:天界
	;迷途竹林 460:無名之丘
	;魔法之森   530:古木的大樹
	;夢之世界   1080:桃林～砂浜
		SELECTCASE CFLAG:6:現在位置
				CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML %CALLNAME:MASTER%和露娜吃着便当悠闲地度过了时间。
					PRINTFORMW
			ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;617,甘味処に誘う
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐は大成功のみ追加
;==================================================
@M_KOJO_SUCCESS_COM_K6_617
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K6_617
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_617_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_617_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORMW
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:8
			CASE 6
				PRINTFORML 「外界的点心？…仿佛就是月亮一样呢。是称作牡丹饼之月吗？」
				PRINTFORMW 「啊、里面有奶油呢。十分的松软可口呢」
			CASE 5
				PRINTFORML 「这个巧克力里面放进了酒呢。唔嗯、很醇厚呢」
				PRINTFORMW 「啊、%CALLNAME:MASTER%不可以吃太多哟。会喝醉的啦」
			CASE 4
				PRINTFORML 「Kya…。这家店突然就拿出了团子呢」
				PRINTFORMW 「唉？点心的名字也突然变成了团子？」
			CASE 2
				PRINTFORML 「月饼…看名字以为是饼没想到是馒头啊」「此处为日式馒头
				PRINTFORMW 「馅填的满满的…稍微有点重呢这个」
			CASE 1
				PRINTFORML 「栗金饨…这就是所谓的优雅的甜蜜吧」
				PRINTFORMW 「…等下%CALLNAME:MASTER%、你在笑个什么呀？」
			CASE 0
				PRINTFORML 「呼呜…团子好好吃。啊」
				PRINTFORML 「最后一根了。……%CALLNAME:MASTER%吃掉也可以哟」
				PRINTFORML %CALLNAME:MASTER%把团子拿到了露娜的嘴边。
				PRINTFORML 「要给我一半吗？等、等下这有点害羞呀…啊～嗯」
				PRINTFORML 「阿姆……谁、谁也没有看见呢」
				PRINTFORMW
			CASEELSE
				PRINTFORML 「啊、是草莓酥饼呀。就是这种酸甜味很棒呢」
				PRINTFORMW 「我们家要是有人会做就好了…我要不要学习呢」
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「甘甜的甜品和苦ー涩的茶很合得来呢～。呼呜…」
				PRINTFORMW 「…%CALLNAME:MASTER%不要强撑着点甜酒就可以了啊」
			CASE 0
				PRINTFORML 「%CALLNAME:MASTER%。脸上沾着馅子了」
				PRINTFORMW 「稍微坐着别动呢。…好多拿下来了」
			CASEELSE
				PRINTFORML 「等下呀%CALLNAME:MASTER%。虽说很好吃但像那样大口吃年糕的话…你看喉咙堵住了吧」
				PRINTFORMW 「真是的…来给你茶。不好好的咀嚼就吃下去不行哟」
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「%CALLNAME:MASTER%…有好好的带着钱吗？」
				PRINTFORMW 「在人間之里堂堂正正的买东西如果没带钱的话就买不了了…」
			CASE 0
				PRINTFORML 「我、我開动了」
				PRINTFORML 露娜提心吊胆地吃起了眼前的甜点。
				PRINTFORML 也许是很紧张她表情认真地咀嚼着…。%CALLNAME:MASTER%用担心的表情看着她。
				PRINTFORMW （啊、这个香甜可口好好吃…）
			CASEELSE
				PRINTFORML 露娜在进入甜味店后仍然一副坐立不安冷静不下来的模样。
				PRINTFORML 「…在人间之里引起骚动的话各种各样的家伙都不会保持沉默的啊？」
				PRINTFORMW 「而且因为是妖精所以会被盯上吧…这样没问题吗」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;618,花屋（口上は表示されない模様？
;==================================================
@M_KOJO_MESSAGE_COM_K6_618
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_618_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_618_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
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_K6_620
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_620_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_620_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「你知道情书要怎样写吗…？」
					PRINTFORMW 露娜似乎正在悄悄地和店主说着什么的样子。
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%借了什么书呢？」
					IF TFLAG:193 == 1
						PRINTFORMW 「借了那本吗？……之后给我读读看可以吗？」
					ELSE
						PRINTFORMW 「没有找到想要的书吗？这样啊、可惜呢…」
					ENDIF
				CASEELSE
					PRINTFORML 露娜正在热情地读着书。
					PRINTFORML 「『～为了实现愿望要在新月之日用粉色的纸』……！！」
					PRINTFORML 「什、什么时候開始看的呀？！……和%CALLNAME:MASTER%没关系的啦！」
					PRINTFORMW 露娜粗暴地把书塞回书架慌慌张张张地离開了。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「虽然书比起红魔馆少、但是不寻常的书有很多呢」
					PRINTFORMW
				CASE 0
					PRINTFORML 露娜凝视着打開的那本书」
					PRINTFORMW 「有好多很难的汉字看不懂…」
				CASEELSE
					PRINTFORML 「听说书里面有着米和钱呢」
					PRINTFORMW 「不、不是骗人的哟ー！…虽然我还没看呢」
			ENDSELECT
		ELSE
			SELECTCASE RAND:4
				CASE 2
					PRINTFORML 「有很难的字想要我帮你读读看？」
					PRINTFORMW 「……抱歉。这个我也不知道」
				CASE 1
					PRINTFORML 「唔ー嗯在盯着这里呢。因为是妖精所以在警戒着呢」
					PRINTFORMW 「但是惹麻烦更多的可是这里的店哟…」
				CASE 0
					PRINTFORML 「如果有什么想做的事情的话在这里借书再做的话也许能掌握一点诀窍呢」
					PRINTFORMW 「因为书可能会被谁先接走所以是先到先得呢」、
				CASEELSE
					PRINTFORML 「…刚、刚才是不是有什么东西在那动了？」
					PRINTFORMW 「啊咧、错觉吗…？」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;621,釣魚
;TFLAG:193(0=釣れない 1～4=魚 11～15=好吃的魚 610=木材 131=守矢之守札 21=跳蛋 609=氷之鱗 606=龍之爪)
;TFLAG:194(1000以上ならTARGETが釣った)
;==================================================
@M_KOJO_MESSAGE_COM_K6_621
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_621_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_621_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕 || TALENT:思慕
			IF TFLAG:194 > 1000
			;露娜が釣った
				SELECTCASE RAND:3
					CASE 1
						PRINTFORML 「鱼对声音很敏感所以这样子消除声音的话……呀！」
						PRINTFORMW 露娜轻轻地钓上了猎物。
					CASE 0
						PRINTFORML 「呜哇…变得黏糊糊的了…」
						PRINTFORML 露娜为了抓住钓上来到处乱窜的猎物而手忙脚乱着。
						PRINTFORML 「%CALLNAME:MASTER%、可以拜托你一下吗…？」
						PRINTFORMW %CALLNAME:MASTER%苦斗恶战着从被钓钩刺伤的猎物嘴里拔出了钓钩。
					CASEELSE
						PRINTFORML 「唉、等下…骗人的吧！钓到了！？」
						PRINTFORML %CALLNAME:MASTER%紧紧抱住被猎物使劲拉着的露娜拼尽全力拉住了鱼竿。。
						PRINTFORML 「哇、哇、哇啊啊啊啊！」
						PRINTFORML 因为钓来猎物的势头%CALLNAME:MASTER%和露娜猛地摔倒在地上。
						PRINTFORML 「做、做到啦……」
						PRINTFORMW 二人就这样躺在地上、沉浸在钓到成果的喜悦中。
				ENDSELECT
			ELSE
				SELECTCASE TFLAG:193
					CASE 0
					;何も釣れない
						SELECTCASE RAND:3
							CASE 1
								PRINTFORML 「听着自然的声音等待着鱼上钩…」
								PRINTFORML 「这或许也是钓鱼的乐趣所在呢」
								PRINTFORMW %CALLNAME:MASTER%和露娜一起呆呆地看着湖面。
							CASE 0
								PRINTFORML 「要是带上斯塔的话就能够查知鱼的气息了呢」
								PRINTFORMW 「……但是她肯定会『我有个很好的想法哇！』这么说然后变成不妙的情况呢」
							CASEELSE
								PRINTFORML 「…完全钓不到呢」
								PRINTFORMW
						ENDSELECT
					CASE 1 TO 4
					;魚が釣れた
						PRINTFORML 「这不是钓到了新鲜的鱼吗。请一定要在今晚做吃这个」
						PRINTFORMW
					CASE 11 TO 15
					;好吃的魚が釣れた
						PRINTFORML 「看起来很好吃的鱼。不愧是%CALLNAME:MASTER%」
						PRINTFORMW 「看起来还挺大的无论是做成烤鱼还是煮鱼都很好吃呢」
					CASE 610
					;木材が釣れた
						PRINTFORML 「木材…？看起来没抽中鱼啊」
						PRINTFORMW 「说起来人间之里好像有个材木屋正在收集这个呢……或许可以在那卖掉呢」
					CASE 131
					;守矢之守札が釣れた
						PRINTFORML 「这个记得可以在妖怪山顶来抽签呢」
						PRINTFORMW 「３人一起收集了去抽奖的时候抽到了外界的巧克力呢。那个真的太好吃了呀」
					CASE 21
					;跳蛋が釣れた
						PRINTFORML 「这个是……」
						PRINTFORML 「这、这个对%CALLNAME:MASTER%来说还太早了哟…！」
						PRINTFORMW 露娜害羞地从震动着的玩具上移開了视线。
					CASE 609
					;氷之鱗が釣れた
						PRINTFORML 「啊、这个是魔理沙桑在收集的东西呀」
						PRINTFORMW 「好像是说这个可以用于调和什么的…。%CALLNAME:MASTER%的话应该能想到这个的用途吧」
					CASE 606
					;龍之爪が釣れた
						PRINTFORML 「非常锋利的爪子…这么大肯定超过了妖兽爪子的大小了哟…」
						PRINTFORMW 「把这个做为调合的材料不知道能做出什么厉害的道具啊…」
					CASEELSE
						PRINTFORMW 「钓到什么了呢？」
				ENDSELECT
			ENDIF
		ELSE
			SELECTCASE RAND:4
				CASE 2
					PRINTFORML 「呜哇ー…经常在触摸作为鱼饵的蚯蚓呢」
					PRINTFORMW 「噫！不要靠近这里！」
				CASE 1
					PRINTFORML 露娜在%CALLNAME:MASTER%身后很有兴致地眺望着。
					PRINTFORMW 「用那样色彩缤纷的模拟饵能钓到鱼吗？」
				CASE 0
					PRINTFORML 「幻想乡里有比%CALLNAME:MASTER%３个人加起来还要大的鱼呢」
					PRINTFORMW 「本想钓它结果自己被钓了之类的事也可能发生！为了不出什么事情一定要小心点哟」
				CASEELSE
					PRINTFORML 「鱼呢…。如果鱼能从三途川的牛鬼那里偷来就能很轻松了」
					PRINTFORMW 「但是%CALLNAME:MASTER%的话还是稳健地交换鱼可能更安全呢」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;660,読書
;TFLAG:193(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=单薄的高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_MESSAGE_COM_K6_660
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_660_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_660_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕
			SELECTCASE TFLAG:193
				CASE 1
				;忍殺
					PRINTFORML 「唉多…aieeeee？忍者？为、为什么？」
					PRINTFORMW 「完全不同？要更加地激情？？」
					PRINTFORMW %CALLNAME:MASTER%暂时和露娜玩着忍者游戏。
				CASE 2
				;文学失敗
					PRINTFORML 「好痛痛痛痛…对于妖精的我来说负荷或许太重了…」
					PRINTFORMW 露娜按着头摇摇晃晃着。
				CASE 3
				;文学成功
					PRINTFORML 「原来如此…」
					PRINTFORMW 「如果是桑尼的话肯定会决定很难把书给踹飞的吧」
				CASE 4
				;実用書失敗
					PRINTFORML 「想要一次记住所有内容反而没有成效呢」
				CASE 5
				;実用書成功
					PRINTFORML 「呼ー嗯…这个可以拿来参考呢」
					PRINTFORMW 露娜似乎也获得了新知识的恩惠。
				CASE 6
				;单薄的高い本
					PRINTFORML 「…没收。这个色鬼！」
					PRINTFORMW %CALLNAME:MASTER%精心收集的小薄本被露娜没收了。
				CASE 7
				;保健体育
					PRINTFORML 「不对、这应该说太早了吗还是说…」
					PRINTFORMW 「虽、虽然不是不好的书…唔唔唔…」
				CASE 8
				;カーマスートラ
					PRINTFORML 「…这本书到底是什么呀\/\/\/」
				CASEELSE
					PRINTFORMW 「呼姆、这上面写了什么完全不明白」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「………………」
					PRINTFORMW 时间静静的流逝着。
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%看的书似乎更有意思呢」
					PRINTFORMW 「之后可以借给我看看吗？」
				CASEELSE
					PRINTFORML 「…扑哧」
					PRINTFORMW 露娜似乎正在看外界的漫画书。
			ENDSELECT
		ELSE
			SELECTCASE RAND:4
				CASE 2
					PRINTFORML 「也想看看其他的书？」
					PRINTFORML 「魔理沙桑雅人間之里的半妖教师的家里虽说有大量的书籍…」
					PRINTFORMW 「如果不打好关系的话不就没法去读书了吗？」
				CASE 1
					PRINTFORML 「偶尔也会有像妖魔圖鑒那样不好的书必须要注意呢」
					PRINTFORMW 「我以前也因此吃了苦头…」
				CASE 0
					PRINTFORML 「实用书呢」
					PRINTFORML 「空手指南书…主流料理献立抄…自然的铅笔…好像还有很多各种各样的」
					PRINTFORMW 「并不是一定能掌握经验所以不彻底地读不是更好吗？」
				CASEELSE
					PRINTFORML 带着眼镜的露娜看起来比以往更加的可爱。
					PRINTFORMW 「…现在正读到高潮部分请不要打扰我」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;698,進入房間
;TARGET的房間に入る場合のみ表示

;==================================================
@M_KOJO_MESSAGE_COM_K6_698
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_698_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_698_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
;どこで表示されるか確認中
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORMW
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「啊、等…请等下现在要打扫下啦！」
			CASE 0
				PRINTFORML 「没事吧？没有受伤吗？没有被谁袭击吧？」
				PRINTFORMW 「能来这里我很高兴哦、但是担心你路上会不会遇到危险…」
			CASEELSE
				PRINTFORML 「啊、%CALLNAME:MASTER%。欢迎」
				PRINTFORMW 「既然来了就给你喝一杯甜饮吧」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;699,外出
;==================================================
@M_KOJO_MESSAGE_COM_K6_699
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K6_699_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K6_699_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;派生指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;60,掏耳朵
;前ターン膝枕後身体接觸指令
;TFLAG:193(1=大成功 0=成功 -1=失敗)(失敗するのはTARGET
;==================================================
@M_KOJO_SUCCESS_SCOM_K6_60
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K6_60
CALL M_KOJO_MESSAGE_SCOM_K6_60_1
;RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K6_60_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORMW
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			CASE 0
				PRINTFORML 「拿、拿不出来…」
				PRINTFORMW
			CASEELSE
				PRINTFORML 「呼、呼吸很慌乱？…只是微风哟！」
				PRINTFORMW 「手在颤抖着？…只、只是地震哟！」
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			CASE 0
				PRINTFORML 「啊！………啊ー」
				PRINTFORMW
			CASEELSE
				PRINTFORML 「唔ー嗯…无法掏掉里面的坚硬的那个…」
				PRINTFORMW
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			CASE 0
				PRINTFORML 「不好好清理的话就要被堵住了哟」
				PRINTFORMW
			CASEELSE
				PRINTFORML 「为什么要我做这个…」
				PRINTFORMW 「啊、等下不要乱动哟。现在正掏得好好的」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;61,抱枕
;(TARGET睡眠時間or衰弱)陪睡中、前ターン抱きつく後就寝指令
;分岐無し
;==================================================
@M_KOJO_MESSAGE_SCOM_K6_61
CALL M_KOJO_MESSAGE_SCOM_K6_61_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K6_61_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORMW
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML （…%CALLNAME:MASTER%呀…的脸在这么近的距离）
				PRINTFORMW 露娜绷紧了身体变成了坚硬的抱枕。
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML 「那么我也把%CALLNAME:MASTER%作为抱枕没问题吧？这样的话」
				PRINTFORMW %CALLNAME:MASTER%和露娜一起玩着直到犯困为止。
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML 「………只有今天哟」
				PRINTFORML 眯着眼睛的露娜说完了这句话就睡着了。
				PRINTFORMW
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;62,亲額頭
;前ターン頭撫で後接吻
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;ABL:欲望(5以上=物足りない
;ABL:親密(5以上=照れる
;==================================================
@M_KOJO_SUCCESS_SCOM_K6_62
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K6_62
;CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K6_62_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K6_62_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORMW 「…何よ」
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
			CASEELSE
				PRINTFORML 「呀呜…！要做的话要事先说呀…\/\/\/」
		ENDSELECT
	ELSEIF ABL:6:親密 >=5
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			CASE 0
				;PRINTFORML
			CASEELSE
				PRINTFORML 「%CALLNAME:MASTER%你在開什么玩笑啊真是的…」
				PRINTFORMW 露娜害羞地按住了自己的额头。
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			CASE 0
				;PRINTFORML
			CASEELSE
				PRINTFORML 露娜感觉很不可思议得歪着头。
				PRINTFORMW 「是哪里打招呼的方式吗…？总觉得感觉不太好哇」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;63,更多的接吻
;前ターン接吻後接吻
;分岐条件はEVENT_MESSAGE_COM500.ERB参照
;==================================================
@M_KOJO_SUCCESS_SCOM_K6_63
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K6_63
;CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K6_63_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K6_63_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	IF FLAG:時間停止
	ELSEIF CFLAG:318 == 1
		PRINTFORMW
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;80,拉手
;约会出発後目的地に着くまでの間
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_SCOM_K6_80
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K6_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K6_80_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K6_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 || CFLAG:6:1001 == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML （%CALLNAME:MASTER%的手、虽然很柔软但是很暖和结实呢…）
					PRINTFORMW （总觉得很可靠…会这么想是我的心理作用吗？）
				CASE 0
					PRINTFORML 露娜反过来牵着%CALLNAME:MASTER%的手走在前面赶路。
					PRINTFORML 是因为喘不过气吗连耳根都红透了。
					PRINTFORMW 「因为走在前面我在害羞的情况暴露了…！）
				CASEELSE
					PRINTFORML 「啊、%CALLNAME:MASTER%的手在…」   Bo…！
					PRINTFORML %CALLNAME:MASTER%刚抓住露娜的手露娜的脸就像水壶一样红得沸腾了。
					PRINTFORMW 「…没、没问题的啦所以不要在意！」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML %CALLNAME:MASTER%拉着手露娜也跟着他加快了脚步。
					PRINTFORMW 「很着急对吧？让我们走吧」
				CASE 0
					PRINTFORML 飞着的露娜被%CALLNAME:MASTER%拉着手。
					PRINTFORMW 「…这样子就像风筝一样呢」
				CASEELSE
					PRINTFORML %CALLNAME:MASTER%为了不让露娜摔倒拉着她的手慎重地加快了步伐。
					PRINTFORML 「虽然很高兴你会为我担心但会不会为我等太久了？？」
					PRINTFORMW 「能让%CALLNAME:MASTER%那么着急到底是要去哪里呢」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「等稍微等下哟！」
					PRINTFORML 「那么急的话会摔倒…哇啊！」
					PRINTFORMW %CALLNAME:MASTER%慌忙的把摔倒的露娜扶了起来。
				CASE 0
					PRINTFORML 「等下不要把我丢下哇―！」
					PRINTFORMW 露娜跑动着总算是想办法追上了%CALLNAME:MASTER%。
				CASEELSE
					PRINTFORML 「哇、哇、哇…！」
					PRINTFORMW
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【6】ルナチャイルド/M_KOJO_K6_日常系コマンド.erb