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

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

@M_KOJO_MESSAGE_COM_K64_300_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;憤怒
	IF CFLAG:ブチギレ > 0
		PRINTFORML 「我今天心情非常的不好」
		PRINTFORML 「我自己都不知道自己会做出什么事」
		PRINTFORML 「我都说到这种地步了你明白的吧？」
		PRINTFORMDW 现在还是离她远点比较好……
	;会話失敗
	ELSEIF TCVAR:302 || TFLAG:193 < 0
		PRINTFORML 「%TEXTR("唉—/嗯哼/吼ー/")%……」
		IF !TALENT:妊娠 || !TALENT:育児中
			PRINTFORMDW %CALLNAME:TARGET%一边听着%CALLNAME:MASTER%的话一边喝着酒
			BASE:酒気 += 20
		ELSE
			PRINTFORMDW %CALLNAME:TARGET%看起来对%CALLNAME:MASTER%说的话没什么兴趣……
		ENDIF
	;恋慕
	ELSEIF TALENT:恋慕
		;情緒が高まってる時
		IF BASE:情緒 >= 1000
			SELECTCASE RAND:10
				CASE 0
					PRINTFORML 「啊、喂……太突然了吧」
					PRINTFORML 「……嘛、这份心意我就心怀感激的收下了」
					PRINTFORMDW 试着说了些甜言蜜语、%CALLNAME:TARGET%看起来有点坐立难安的样子
				CASE 1
					PRINTFORML 「――停、先停一下」
					PRINTFORML 「这些话在被窝里继续好了……呐」
					PRINTFORMDW %CALLNAME:TARGET%朝%CALLNAME:MASTER%投去了妖媚的笑容……
				CASE 2
					PRINTFORML 「啊？ 别那么夸奖你？」
					PRINTFORML 「哈哈哈！ 我很喜欢夸你的哟！」
					PRINTFORML 「我夸你感到開心！ 你被夸也感到開心！」
					PRINTFORML 「用人类那边的话该怎么说来着……对！ 双赢的关系来着」
					PRINTFORMW 「没有在拍你马屁啦。我是真心这么觉得的。所以高兴的接受吧？」
				CASE 3
					PRINTFORMDL 是被%CALLNAME:MASTER%的话戳到笑点了吗、%CALLNAME:TARGET%捂着肚子笑翻了过去
					PRINTFORML 「哈～笑够了笑够了！ 上次听到这么好笑的事都忘了是什么时候了」
					PRINTFORML 「好像是最近来着……嘛那种事情无所谓啦」
					PRINTFORML 「快点继续说下去吧！ 还有下文的吧？」
					PRINTFORMDW %CALLNAME:MASTER%继续说了下去、结果%CALLNAME:TARGET%又被戳中笑点笑翻了过去……
				CASE 4
					PRINTFORML 「只在这里说一说、我对那家伙……我很羡慕萃香」
					PRINTFORML 「要是我也能像那家伙一样自由自在的活下去该多好……っ嘛」
					PRINTFORML 「如果我能、把立场也好这也好那也好全部扔一边然后和%MASTERNAME:64%一起……」
					PRINTFORML 「――到处大闹一场的话、一定会很開心的吧」
					PRINTFORMDW %CALLNAME:TARGET%这么说着、朝这边咧嘴一笑
				CASE 5
					PRINTFORMDL %CALLNAME:TARGET%往酒杯住满酒、给%CALLNAME:MASTER%递了过去
					PRINTFORML 「不觉得有点想喝酒了吗」
					PRINTFORML 「――只是我想喝了？ 呼呼呼、真可惜。猜错了呐」
					PRINTFORML 「我呢……是想和『你』一起喝酒哦」
					PRINTFORMDW %CALLNAME:TARGET%大口大口的喝完了酒。不甘示弱的%CALLNAME:MASTER%也一起喝了下去
					BASE:酒気 += 50
					BASE:MASTER:酒気 += 50
				CASE 6
					;あいつ＝華扇
					PRINTFORMDL 在舒适的静寂中、把肩膀靠在%CALLNAME:TARGET%肩上一享用着美酒
					PRINTFORML 「库哈……呼……」
					PRINTFORML 「偶尔这样安静的享受着感觉也不错」
					PRINTFORMW 「……多少也有点懂了那家伙的心情」
					BASE:酒気 += 20
					BASE:MASTER:酒気 += 20
				CASE 7
					PRINTFORML 「如果说酒是生存的水的话、%MASTERNAME:64%就是生存的活力了」
					PRINTFORML 「啊ー……怎么说呢。说这种话不太像我的风格」
					PRINTFORML 「……活久点哟。还想和你更多的一起喝酒呐」
					PRINTFORMDW %CALLNAME:TARGET%为了掩饰发红的脸颊大口的喝光了酒
					BASE:酒気 += 20
				CASE 8
					PRINTFORML 「啊啊、果然%MASTERNAME:64%是个好男人呐」
					PRINTFORML 「你问我是不是喝醉了？ 哈哈っ、谁知道呢！」
					PRINTFORMDW %CALLNAME:TARGET%心情很好的喝着酒……
					BASE:酒気 += 20
				CASE 9
					PRINTFORML 「%TEXTR("真想有一天和你一起去一趟呐……/别、别说了啊。很丢人的啊/你那种做作的台词、不要对别人说哦？/")%」
					PRINTFORMDW %CALLNAME:TARGET%连就都忘了喝了的沉醉于和%CALLNAME:MASTER%的对话
			ENDSELECT
		;それ以外
		ELSE
			SELECTCASE RAND:10
				CASE 0
					PRINTFORML 「我曾对人类很失望」
					PRINTFORML 「我觉得这个判断完全没错、事到如今也不想再多说什么……」
					PRINTFORML 「如果哪个时候、那个时代有%MASTERNAME:64%在的话、我……」
					PRINTFORMW 「……为什么、如果之类的词很不符合我的风格呐」
				CASE 1
					PRINTFORML 「常言道，鬼也折角……」
					PRINTFORML 「…嗯？ 什么意思？ 呵呵、没什么大不了的」
					PRINTFORML 「等我什么时候被你退治掉的时候再说吧」
					PRINTFORMDW 面对愉快的笑着的%CALLNAME:TARGET%、%CALLNAME:MASTER%完全摸不着头脑
				CASE 2
					PRINTFORML 「只要有美酒佳肴和%MASTERNAME:64%的话、其他什么都不重要了」
					PRINTFORML 「……嗯？ 我说了什么奇怪的话了吗？」
					PRINTFORMW 「这是我毫无虚伪的本心、有什么可害臊的」
				CASE 3
					;LIKEとLOVEどっちとも取れる感じで
					PRINTFORML 「前段时间、和萃香喝酒的时候被问了」
					PRINTFORML 「『你是不是喜欢%MASTERNAME:64%』这样」
					PRINTFORML 「我当时就这样说了。那不是废话吗！」
					PRINTFORMDL 是说、不会每个人问这个的时候都是这样回答的吧……
					PRINTFORMDW %CALLNAME:MASTER%感到十分害臊
				CASE 4
					PRINTFORML 「喂、喂%MASTERNAME:64%。你有在听吗」
					PRINTFORML 「――哈？ 没有在听？」
					PRINTFORML 「那我就再说一遍！ 给我竖起耳朵好好听！」
					PRINTFORMDW %CALLNAME:TARGET%非常開心的笑着……
				CASE 5
					PRINTFORML 「喂、再稍微过来点」
					PRINTFORML 「――哈哈、我喜欢坦率的家伙」
					PRINTFORMDW %CALLNAME:MASTER%和%CALLNAME:TARGET%黏在一起交谈起来……
				CASE 6
					PRINTFORML 「啊哈哈哈哈！ 这可真是杰作！」
					PRINTFORML 「这些话、要去找别的家伙一起分享一下啊」
					PRINTFORMW 「肯定都会笑起来的。呼哈哈哈」
				CASE 7
					PRINTFORML 「以前的事情？ 以前的事吗……」
					PRINTFORMDL %CALLNAME:TARGET%一口气喝完酒。将空的酒杯重新注入酒液、朝%CALLNAME:MASTER%递了过去
					PRINTFORML 「都是些无聊的话罢了。一边喝着酒一边随便听听就好了」
					PRINTFORMDW %CALLNAME:MASTER%一边慢慢的喝着酒、一边听着%CALLNAME:TARGET%所谓的「无聊的话」……
					BASE:酒気 += 20
					BASE:MASTER:酒気 += 20
				CASE 8
					;だれを愛そうがどんなに汚れようがかまわぬ
					PRINTFORML 「我对你朝秦暮楚的和女人瞎玩什么的倒是无所谓」
					PRINTFORML 「只要你最后在我的身边的话那就足够了」
					PRINTFORMDW %CALLNAME:TARGET%悠然的喝起了酒……
					BASE:酒気 += 20
				CASE 9
					PRINTFORML 「%TEXTR("哈哈哈。刚刚说的那些还有下文的吧？/嘿唉、这还真是第一次听说。下次试一试好了/哦！ 那可真是了不得！/")%」
					PRINTFORMDW %CALLNAME:TARGET%喝着酒的同时和%CALLNAME:MASTER%闲聊着
					BASE:酒気 += 20
			ENDSELECT
		ENDIF
	;思慕
	ELSEIF TALENT:思慕
		;情緒が高まってる時
		IF BASE:情緒 >= 1000
			SELECTCASE RAND:10
				CASE 0
					PRINTFORML 「对%MASTERNAME:64%是怎么想的？」
					PRINTFORML 「这个嘛……这种话很难用言语表达啊」
					PRINTFORML 「你的话应该说是、自己的可以随意想用的谁也不知道的珍藏的美酒」
					PRINTFORMW 「――我是这么觉得的。满足了吗？」
				CASE 1
					PRINTFORML 「哈？ 想知道我喜欢什么样的男人？」
					PRINTFORML 「哈哈哈！ 还以为你想说什么呢！」
					PRINTFORML 「呼嗯……但是、也是呐……硬要说的话……」
					PRINTFORMW 「像你这样直球冲过来的家伙、吧」
				CASE 2
					PRINTFORML 「像你这样喜欢喝酒的家伙我在地上住的时候也不常见到呐」
					PRINTFORML 「你问怎么回事？ 呵呵呵、我实在夸你哟」
					PRINTFORMW 「嘛、鬼就是种会被人忌讳讨厌的妖怪啊。发生了各种事呐」
				CASE 3
					PRINTFORML 「等哪天%MASTERNAME:64%死掉的话、我可以继续说下去吗？」
					PRINTFORML 「我就在你坟墓边一边喝着酒、一边回忆过去……欸、不行？」
					PRINTFORMW 「嘛、%MASTERNAME:64%都这么说了我会忍着的」
				CASE 4
					PRINTFORML 「之前有个家伙误以为%MASTERNAME:64%是我的情夫之类的……」
					PRINTFORML 「嘛然后我就打了他一顿让他修正过来了、真是个失礼的家伙你不觉得吗？」
					PRINTFORMW 「我和%MASTERNAME:64%明明不是那种关系、对吧？」
				CASE 5
					PRINTFORML 「…嗯？ 怎么了吗、那样看着我」
					PRINTFORML 「有什么话想说的话就说吧。我会给你出出主意的」
					PRINTFORMDL 看%CALLNAME:TARGET%看的入迷了
					PRINTFORMDW ……这种话也说不出口、只能对着%CALLNAME:MASTER%支支吾吾起来
				CASE 6
					PRINTFORML 「哦哦！ 真是豪爽的喝法！ 我也不能输给你呐！」
					PRINTFORML 「咕咚、咕咚、咕咚――ぶ哈啊啊啊！！！」
					PRINTFORML 「好！再来一杯！ 你也还很能喝的吧？」
					PRINTFORMDW 本来只是想和%CALLNAME:TARGET%说说话的、不知何时開始变成了比赛喝酒……
					BASE:酒気 += 50
					BASE:MASTER:酒気 += 50
				CASE 7
					PRINTFORML 「嗯？ 看起来很開心的样子？」
					PRINTFORML 「啊ー、嘛、确实是呐」
					PRINTFORML 「理由？ 理由什么的无所谓的吧？」
					PRINTFORMDW 是因为喝的太多了吗。%CALLNAME:TARGET%的脸颊红了起来
					BASE:酒気 += 20
				CASE 8
					PRINTFORML 「喝太多了……我说过的吧？ 酒就是生命之水」
					PRINTFORML 「……嘛不过、既然你都这么说了我就稍微控制一下吧」
					PRINTFORMW 「总之先把这个喝了……咕咚……好、再来一杯！」
					BASE:酒気 += 20
				CASE 9
					PRINTFORML 「%TEXTR("不愧是、我就猜到会这样/然后呢、一定是一脚把他踹飞了吧？/――哦啊啊、酒差点就撒了。真危险呐/")%」
					PRINTFORMDW %CALLNAME:TARGET%一边喝着酒一边開心的和%CALLNAME:MASTER%说着话
					BASE:酒気 += 20
			ENDSELECT
		;それ以外
		ELSE
			SELECTCASE RAND:10
				CASE 0
					PRINTFORML 「前段时间、跟地底的那群家伙说了关于%MASTERNAME:64%的事情」
					PRINTFORML 「然后那群家伙居然、说我就像个小女生什么的……」
					PRINTFORMW 「真是的、意义不明。所以我就把他们揍了一顿」
				CASE 1
					PRINTFORML 「比起忍耐着慢慢死去、随心所欲的活了之后死掉比才比较好」
					PRINTFORML 「鬼就是这样的种族。所以像洗澡一样的喝酒、像打架的时候就会打架」
					PRINTFORML 「我也知道有很多人对此看不顺眼……但只有这个是死也治不好的」
					PRINTFORML 「嘛我要说什么来着……啊ー、什么来着？ 嘛算了」
					PRINTFORMDW 这么随便也真有鬼的风格。%CALLNAME:MASTER%不由得这么想着
				CASE 2
					PRINTFORML 「%MASTERNAME:64%的话和地底那群家伙大概也能相处的很好吧」
					PRINTFORML 「根据？ 不是这样的话也不能和我相处的这么好」
					PRINTFORMW 「身为鬼的我这么说的、不会有错的」
				CASE 3
					PRINTFORML 「不管是温柔的谎言还是别的什么、我最讨厌说谎的家伙了」
					PRINTFORML 「就算说实话会感到受伤什么的、那也是我自己的事情」
					PRINTFORMW 「所以说、你也绝对不要对我说谎哟？」
				CASE 4
					PRINTFORML 「人类对此好像有些误解、我们鬼只要能尽全力参赛就心满意足了」
					PRINTFORML 「围棋也好将棋之类的也罢……啊对、比谁先喝醉的比赛也是」
					PRINTFORML 「当然、如果有可以拼了命的尽情打架就再好不过了」
					PRINTFORMW 「所以说%MASTERNAME:64%也不用考虑那么多随便来找我挑战吧！ 我既不会逃也不会躲呐！」
				CASE 5
					PRINTFORML 「来旧地狱的温泉街泡温泉的话、就报上我的名字吧」
					PRINTFORML 「会有什么高级服务？ 不不、不是那种东西啦」
					PRINTFORML 「知道你来了的话、就可以一起喝酒泡温泉了不是吗？」
					PRINTFORMDW 和美人的鬼一起喝酒泡温泉……没有比这更高级的服务了吧%CALLNAME:MASTER%不由得想到
				CASE 6
					PRINTFORM 「唔ー嗯…
					CALL COLORMESSAGE(@"（ゴキッ、ゴキッ）",C_RED,0,1)
					PRINTFORML …差不多我也该重新锻炼了吧」
					PRINTFORML 「呐%MASTERNAME:64%。能稍微陪我一下吗？」
					PRINTFORML 「没什么、只是稍微帮个忙而已。虽然不能马虎就是了……」
					PRINTFORMW 「――啊？ 还有别的事？ 什么嘛、真是个无情的家伙」
				CASE 7
					PRINTFORML 「哦、要一起小酌一杯吗？」
					PRINTFORML 「――不错不错、接下来我来给你倒酒」
					PRINTFORML 「给、不要顾虑太多。我们是好朋友不是吗？」
					PRINTFORMDW %CALLNAME:MASTER%和%CALLNAME:TARGET%一边喝着酒一边快乐的交谈着
					BASE:酒気 += 20
					BASE:MASTER:酒気 += 20
				CASE 8
					PRINTFORML 「咕咚……嗯？ 啊啊、我有在听」
					PRINTFORML 「%MASTERNAME:64%说的话题最适合当下酒菜了」
					PRINTFORMW 「咕咚、稍微有点喝过头了」
					BASE:酒気 += 20
				CASE 9
					PRINTFORML 「%TEXTR("这个话题等下次去店里喝酒的时候再说吧/嗯、就得这样！/哈哈、你也真是会玩呐/")%」
					PRINTFORMDW %CALLNAME:TARGET%一边喝着酒一边開心的听着%CALLNAME:MASTER%的话题
					BASE:酒気 += 20
			ENDSELECT
		ENDIF
	;それ以外
	ELSE
		;情緒が高まってる時
		IF BASE:情緒 >= 1000
			SELECTCASE RAND:10
				CASE 0
					;想像にお任せします
					PRINTFORML 「啊哈哈！ 真亏你敢对着鬼这么说话啊！」
					PRINTFORMDL %CALLNAME:TARGET%对着%CALLNAME:MASTER%不经意间的提问从心底感到好笑的样子
					PRINTFORML 「啊啊不是、并没有感到不高兴」
					PRINTFORML 「你就继续这样就好。不、就应该这样！」
					PRINTFORMDW %CALLNAME:MASTER%不知道为什么好像很中意%CALLNAME:TARGET%的样子
				CASE 1
					;でも勇儀も人类之里で呑んでるしお互い様
					PRINTFORML 「那个啊、地上的妖怪不是和地底签了互不侵犯条约之类的东西嘛？」
					PRINTFORML 「最近就有好多对此感到理所当然的地上的妖怪过来观光了」
					PRINTFORML 「然后以那些人为目标開始有不少人去卖地底的土产了所以大家也都差不多就是……」
					PRINTFORMDW %CALLNAME:TARGET%用手托着下巴沉思着
				CASE 2
					PRINTFORML 「去过旧地狱的温泉街了吗？」
					PRINTFORML 「我以前是那里的老大来着」
					PRINTFORMW 「不是我吹，那里是最好的温泉街了。不如我现在就带你去怎样」
				CASE 3
					PRINTFORML 「哈～…偶尔也想拿出全力来打一架呐」
					PRINTFORML 「如何？ 和我来打一场」
					PRINTFORML 「赢了的话？ 当然、我的首级就归你了」
					PRINTFORMDW 才不需要鬼的首级什么的%CALLNAME:MASTER%这么说着拒绝了
				CASE 4
					PRINTFORML 「嘿唉、那可真是有趣」
					PRINTFORML 「这件事、再详细点说给我听」
					PRINTFORMDW %CALLNAME:TARGET%探出头仔细聆听着%CALLNAME:MASTER%的话题
				CASE 5
					PRINTFORML 「嗯哼哼。怎么了突然夸起我来了」
					PRINTFORML 「再怎么夸我我也只能拿出来点酒哦？」
					PRINTFORMDW %CALLNAME:TARGET%看起来很開心的样子……
				CASE 6
					PRINTFORML 「麻麻、先来喝一杯吧」
					PRINTFORML 「喂、可不要洒出来哦？」
					PRINTFORMDL 接过装的满满的酒杯、%CALLNAME:MASTER%一口气将其全部喝光了
					PRINTFORMW 「呼呼呼、不错的喝法呐。就得这么喝才行呐」
					BASE:酒気 += 50
					BASE:MASTER:酒気 += 50
				CASE 7
					PRINTFORML 「喝太多了？ 哈哈哈っ！」
					PRINTFORML 「鬼的肝脏可没那么软弱」
					PRINTFORML 「要我来说的话、是人类那边太弱了哦」
					PRINTFORMDW 这么说着、%CALLNAME:TARGET%不断地喝着酒
					BASE:酒気 += 20
				CASE 8
					PRINTFORML 「之前听谁说的、酒虫可以酿酒来着」
					PRINTFORML 「是个好东西吧？ 只要倒入水睡上一觉就能得到好酒了」
					PRINTFORML 「……说起酒的话题就变得想喝了。你也要来一杯吗？」
					PRINTFORMDW %CALLNAME:TARGET%朝手中的杯子注入酒，一口气喝完了
					BASE:酒気 += 20
				CASE 9
					PRINTFORML 「%TEXTR("你这不也很能干嘛！/什么什么。地上还有这么有趣的东西吗！/――啊、对不住呐。让你来斟酒/")%」
					PRINTFORMDW %CALLNAME:TARGET%一边喝着酒一边参与着%CALLNAME:MASTER%的话题
					BASE:酒気 += 20
			ENDSELECT
		;それ以外
		ELSE
			SELECTCASE RAND:10
				CASE 0
					PRINTFORML 「啊？我的弱点？」
					PRINTFORML 「煎豆。还有柊叶和鱼头吧」
					PRINTFORMDW %CALLNAME:TARGET%很轻易的把弱点说了出来
				CASE 1
					PRINTFORML 「像你这样不害怕鬼的人类……」
					PRINTFORML 「啊ー……最近好像还蛮多的。我看的顺眼的人类也是」
					PRINTFORMW 「如果见到了告诉他们一声。地底的鬼想一起干架」
				CASE 2
					PRINTFORML 「现在还想不想回到地上？」
					PRINTFORML 「怎么会、事到如今也没什么迷恋的了」
					PRINTFORMW 「大家都住在这里。我也很中意这里」
				CASE 3
					PRINTFORML 「想要说话呐……也就是说你现在很闲咯？」
					PRINTFORML 「那来得正好。最近有点运动不足。稍微来和我练练吧」
					PRINTFORML 「啊、喂喂。不用摆出那种架势只是稍微运动一下罢了。嘛多少会受点伤吧……」
					PRINTFORML 「旧地狱有最棒的温泉街。只要到那里不管什么伤一瞬就能治好了」
					PRINTFORMDW 对生命安全感到威胁的%CALLNAME:MASTER%郑重的拒绝了%CALLNAME:TARGET%的邀请
				CASE 4
					PRINTFORML 「嗯？ 对这个杯子很在意？」
					PRINTFORML 「这可是能把装入的酒的质量提高一个层次的好东西啊」
					PRINTFORMW 「也就是说、这是正适合我的宝贝啊」
				CASE 5
					PRINTFORML 「这根角？ 这是鬼的……」
					PRINTFORML 「――哦喂、不要摸哦」
					PRINTFORMW 「能摸这只角的只有我认可的家伙」
				CASE 6
					;るろうに剣心の一コマ
					PRINTFORML 「春观夜樱，夏望繁星，秋赏满月，冬会初雪。」
					PRINTFORML 「此情此景，怎么会有酒不好喝？」
					PRINTFORMW 「在地底不是什么也看不到？ 呼呼呼、就算是地底也是会下雪的哟」
				CASE 7
					PRINTFORML 「如果想要推心置腹的话、就需要先喝上一杯」
					PRINTFORML 「这也是一种礼仪。你要记住呐」
					PRINTFORMDW %CALLNAME:MASTER%陪着%CALLNAME:TARGET%一起喝酒
					BASE:酒気 += 20
					BASE:MASTER:酒気 += 20
				CASE 8
					PRINTFORML 「咕咚、咕咚、咕咚――呼~~啊！」
					PRINTFORML 「嗯？ 啊抱歉抱歉。刚没有听到」
					PRINTFORMW 「所以、是要说什么来着？」
					BASE:酒気 += 20
				CASE 9
					PRINTFORML 「%TEXTR("原来如此……/地上也变了好多呐……/哦。那可真是没有听说过呐/")%」
					PRINTFORMDW %CALLNAME:TARGET%一边喝着酒一边附和着%CALLNAME:MASTER%的话题
					BASE:酒気 += 20
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;301,泡茶
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K64_301
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_301
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_301_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_301_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;恋慕
	IF TALENT:恋慕
		;判定
		SELECTCASE TFLAG:193
			;大成功
			CASE 1
				;ウィスキーボンボン
				PRINTFORML 「这样的话、就拿这东西来当茶点吧」
				PRINTFORMDL %CALLNAME:TARGET%取出一个包裹打開、从中拿出了巧克力
				PRINTFORML 「用巧克力包住酒的奇怪点心、这个着实是很好吃」
				PRINTFORMDW 拿了一个放入嘴中、大人的味道立马染遍了整个口腔
			;成功
			CASE 0
				PRINTFORML 「吸吸……呼……」
				PRINTFORMDL %CALLNAME:TARGET%感到十分美味的喝着%CALLNAME:MASTER%泡的茶
				PRINTFORMW 「嗯、不管什么时候%MASTERNAME:64%泡的茶都很好喝」
			;失敗
			CASE -1
				PRINTFORML 「……嗯、换茶叶了吗？」
				PRINTFORML 「没有换？ ……emmmm」
				PRINTFORML （%MASTERNAME:64%泡茶失败还真是少见）
				PRINTFORMW （……也会有这种事情啊）
		ENDSELECT
	;思慕
	ELSEIF TALENT:思慕
		;判定
		SELECTCASE TFLAG:193
			;大成功
			CASE 1
				PRINTFORML 「哦、茶柱」
				PRINTFORML 「这可真是运气好、今晚要不要去赌场看看呢」
				PRINTFORMDW %CALLNAME:TARGET%比起当客人感觉更适合当摇壶的
			;成功
			CASE 0
				PRINTFORML 「真是机灵啊、我就心怀感激的收下了」
				PRINTFORMDL %CALLNAME:TARGET%一边倒着茶一边细心的享用着
				PRINTFORMW 「酒就算是喝醉了也解不了渴呐……」
			;失敗
			CASE -1
				PRINTFORML 「好苦、水的温度太高了」
				PRINTFORML 「好不容易的好茶叶在哭哦」
				PRINTFORMDL 看起来泡茶的方法有点出错了……
				PRINTFORMDL %CALLNAME:MASTER%想要重新泡、%CALLNAME:TARGET%却一口气把茶全都喝光了
				PRINTFORMW 「咕……嘛、对我来说这种程度的温度正好呐」
		ENDSELECT
	;それ以外
	ELSE
		;判定
		SELECTCASE TFLAG:193
			;大成功
			CASE 1
				PRINTFORML 「你的话肯定能当个好茶侍的」
				PRINTFORML 「所以说、再来一杯热腾腾的吧」
				PRINTFORMDW 看起来很中意的样子
			;成功
			CASE 0
				PRINTFORML 「正好喉咙有点渴了」
				PRINTFORMDW 面对稍微有些烫的茶、%CALLNAME:TARGET%像是在喝水一样一口气喝干了
			;失敗
			CASE -1
				PRINTFORML 「嗯、这不是泡过头了吗」
				PRINTFORML 「酒也好茶也好、太淡了都不好喝的哦」
				PRINTFORMDW %CALLNAME:TARGET%这么说着把茶全部喝光了
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;302,身体接觸
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K64_302
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =1

@M_KOJO_MESSAGE_COM_K64_302
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_COM_K64_302_1
RETURN RESULT

@M_KOJO_EXTRASOURCE_COM_K64_302
;情緒が高まってる時は反感ゼロ
IF BASE:情緒 >= 1000
	SOURCE:反感 = 0
;条件を満たさない場合でも大幅減
ELSE
	SOURCE:反感 = SOURCE:反感 / 10
ENDIF

@M_KOJO_MESSAGE_COM_K64_302_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;お浴室で実行
	IF BATHCHECK(CFLAG:MASTER:現在位置) && IN_HOME(CFLAG:MASTER:現在位置)
		PRINTFORMDL %CALLNAME:MASTER%和%CALLNAME:TARGET%一起互相擦背了
		PRINTFORMDW
		;恋慕
		IF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「很痛？ 我已经注意不去用力了」
					PRINTFORML 「――好、结束！ 那么、接下来该我了哟」
					PRINTFORMDW %CALLNAME:MASTER%绕到%CALLNAME:TARGET%的背后、開始替她擦背……
				CASE 1
					PRINTFORML 「别一直洗欧派啊」
					PRINTFORML 「呐、也来洗一洗这里啊」
					PRINTFORMDL %CALLNAME:TARGET%张開双脚、将隐蔽的花园露出
					PRINTFORMDW %CALLNAME:MASTER%将肥皂打出泡沫、爱抚着清洗着她的私处……
				CASE 2
					PRINTFORML 「嗯？ 怎么了弯着腰……」
					PRINTFORML 「――啊啊、原来如此。是这样啊」
					PRINTFORMDL %CALLNAME:TARGET%朝%CALLNAME:MASTER%股间伸出手
					PRINTFORMDW 好像開始勃起了的%CALLNAME:MASTER%的那里、被%CALLNAME:TARGET%温柔仔细的清洗起来……
					;你の勃起値プラス
					BASE:MASTER:勃起 += 500
			ENDSELECT
		;それ以外
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「好、接下来换我来给你擦背」
					PRINTFORML 「自己来就好？ 喂喂、不要顾虑那么多！」
					PRINTFORMDL 会不会整个背部都被她搓掉……
					PRINTFORMDW %CALLNAME:MASTER%战战兢兢的朝%CALLNAME:TARGET%靠了过去
				CASE 1
					PRINTFORML 「欸、搓的很熟练嘛」
					PRINTFORML 「有当过搓澡工吗？」
					PRINTFORMDW %CALLNAME:MASTER%努力着帮%CALLNAME:TARGET%擦背
				CASE 2
					PRINTFORML 「泡着热水、喝着酒、和朋友互相擦背」
					PRINTFORML 「这正是泡澡的乐趣所在。你也这么觉得的吧？」
					PRINTFORMDW 和%CALLNAME:TARGET%一边洗着身体一边聊了各种事情
			ENDSELECT
		ENDIF
	;通常
	ELSE
		;恋慕
		IF TALENT:恋慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%比平时更加大胆的和%CALLNAME:TARGET%进行着身体接触
				PRINTFORMDL %CALLNAME:TARGET%贴在%CALLNAME:MASTER%身上撒娇起来……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「……偶尔这样一下也没什么不好的吧？」
						PRINTFORML 「我在是鬼之前、也是一个女人」
						PRINTFORML 「……如果你觉得讨厌的话就算了就是了」
						PRINTFORMDW %CALLNAME:MASTER%搂住%CALLNAME:TARGET%的肩膀把她抱在怀里……
					CASE 1
						PRINTFORML 「怎么了、有什么顾虑的吗？」
						PRINTFORML 「你想摸得地方……是这里对吧？」
						PRINTFORMDW %CALLNAME:MASTER%享受着和%CALLNAME:TARGET%略显粘稠的肌肤相亲……
					CASE 2
						PRINTFORML 「和%MASTERNAME:64%一起背靠背喝的酒……」
						PRINTFORML 「为什么会、这么美味呢……」
						PRINTFORMDW %CALLNAME:TARGET%一边慢慢的喝着酒一边享受着现在的时间……
						BASE:酒気 += 20
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%寻求着和%CALLNAME:TARGET%的肌肤相亲
				PRINTFORMDL %CALLNAME:TARGET%享受着和%CALLNAME:MASTER%的亲密接触……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「恩～？不不、没有喝醉哦」
						PRINTFORML 「我想做才这么做的」
						PRINTFORMDW %CALLNAME:TARGET%和%CALLNAME:MASTER%紧紧的抱在一起……
					CASE 1
						PRINTFORML 「再用力一定……对、就是那里」
						PRINTFORML 「哈～……果然还是你揉肩揉的最舒服呐……」
						PRINTFORMDW %CALLNAME:TARGET%放松身体全权交付于%CALLNAME:MASTER%……
					CASE 2
						PRINTFORML 「喂、很痒的好吧」
						PRINTFORML 「啊哈哈哈！ 笨蛋、快住手啊！」
						PRINTFORMDW %CALLNAME:MASTER%和%CALLNAME:TARGET%一起玩着挠痒痒的游戏
				ENDSELECT
			ENDIF
		;思慕
		ELSEIF TALENT:思慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%比平时更加大胆的和%CALLNAME:TARGET%亲密接触起来
				PRINTFORMDL %CALLNAME:TARGET%享受着和%CALLNAME:MASTER%的嘻闹……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「嘿~咻！ 好高好高哒！」
						PRINTFORML 「啊哈哈！ %MASTERNAME:64%的身体太轻啦！」
						PRINTFORMDW %CALLNAME:MASTER%被%CALLNAME:TARGET%拿来玩举高高游戏了……
					CASE 1
						PRINTFORML 「可以碰我吗？」
						PRINTFORML 「现在还说这些干嘛。随便你摸啦」
						PRINTFORMDW %CALLNAME:MASTER%和%CALLNAME:TARGET%亲热起来……
					CASE 2
						PRINTFORML 「哼哼。你在害羞个什么？」
						PRINTFORML 「先来瞎摸的是你的吧？」
						PRINTFORMDW %CALLNAME:TARGET%靠在%CALLNAME:MASTER%身上享用着酒……
						BASE:酒気 += 20
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%寻求着和%CALLNAME:TARGET%的亲密接触
				PRINTFORMDL %CALLNAME:TARGET%看起来满高兴的样子……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMDL %CALLNAME:MASTER%用手梳着%CALLNAME:TARGET%的头发
						PRINTFORML 「啊ー、头发啊……好麻烦不如剪掉吧」
						PRINTFORMW 「――对了、你能来帮我剪一下吗？ 麻烦剪的好看点」
					CASE 1
						PRINTFORML 「最初见到你的时候、就觉得这个人好纤瘦啊什么的」
						PRINTFORML 「……以外的还算有点肌肉嘛。我很中意哦」
						PRINTFORMDW %CALLNAME:TARGET%黏糊糊的抚摸着%CALLNAME:MASTER%身体……
					CASE 2
						PRINTFORML 「来得正好。我现在背正发痒呢」
						PRINTFORML 「手摸不到。帮我挠一下吧」
						PRINTFORML 「――再稍微上边一点……啊ー、对就是这里！」
						PRINTFORMDW %CALLNAME:TARGET%发出感到十分舒服的声音……
				ENDSELECT
			ENDIF
		;それ以外
		ELSE
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%比平时更加大胆的和%CALLNAME:TARGET%进行着身体接触
				PRINTFORMDL %CALLNAME:TARGET%接受了%CALLNAME:MASTER%的行为……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「喂、别捉弄我了」
						PRINTFORML 「这样的话喝不了酒的咯」
						PRINTFORMDW %CALLNAME:TARGET%露出一副真拿你没办法啊的微笑……
					CASE 1
						PRINTFORMDL 一边叫着%CALLNAME:TARGET%的名字一边把手搭在了她的肩上
						PRINTFORMW 「嗯？ 怎么了吗？」
					CASE 2
						PRINTFORML 「想要帮我揉肩？」
						PRINTFORML 「这可真是谢谢了、最近肩膀很酸呐」
						PRINTFORMDL %CALLNAME:MASTER%面对%CALLNAME:TARGET%转过来的背部、认真的開始了揉肩
						PRINTFORMW 「哦、手法真不错。就按这个力度继续下去吧」
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%尝试着和%CALLNAME:TARGET%进行身体接触
				PRINTFORMDL %CALLNAME:TARGET%看起来也不是很讨厌的样子……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMDL %CALLNAME:MASTER%和%CALLNAME:TARGET%比赛着扳手腕
						;你の戦闘力がとても高い
						IF ABL:MASTER:戦闘能力 > 5 && !RAND:2
							PRINTFORMDL ……勉勉强强吗、总算是赢了！
							PRINTFORML 「哈哈哈！ 不是很能干嘛」
							PRINTFORMW 「这么热血的比赛好久没有了」
							;好感度プラス５
							CALL CHANGE_CFLAG(2, 64, 5)
						;それ以外
						ELSE
							PRINTFORMDL ……%CALLNAME:MASTER%被甩了出去
							PRINTFORML 「怎么怎么、就只有这种程度吗？」
							PRINTFORMW 「回去练练再来吧」
						ENDIF
					CASE 1
						PRINTFORMDL %CALLNAME:MASTER%被%CALLNAME:TARGET%拉着摸了摸她的肌肉
						PRINTFORML 「力气的话我还是有点自信的」
						PRINTFORMW 「要不然、在这里试试如何？」
					CASE 2
						PRINTFORML 「敢这么摸我的也就只有你了哦」
						PRINTFORMDW 对着毫不客气的伸手来摸自己的%CALLNAME:MASTER%，%CALLNAME:TARGET%露出了一副惊讶的表情
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;303,道歉
;TFLAG:193(2=菓子折成功 1=大成功 0=成功 -1=失敗 -2=菓子折失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K64_303
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_303
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_303_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_303_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;判定
	SELECTCASE TFLAG:193
		;成功
		CASE 0
			PRINTFORML 「……都这么道歉了还不被原谅的话也太惨了」
			PRINTFORML 「行吧、我就接受你的诚意这次的事就算过去了」
			PRINTFORMW 「但是、只限这次。别以为还会有下次」
		;大成功
		CASE 1
			PRINTFORML 「哼嗯。被这样道歉的话就没办法了」
			PRINTFORML 「行吧、我原谅你了。――但是！」
			PRINTFORMW 「不要觉得还会有下次。从心底记清楚了」
		;菓子折成功
		CASE 2
			PRINTFORML 「――哼嗯？」
			PRINTFORML 「嘛、我就心怀感激的收下了」
			PRINTFORMDW %CALLNAME:TARGET%的态度软了下来……看起来点心作战成功了的样子
		;失敗
		CASE -1
			PRINTFORMDL %CALLNAME:MASTER%想着要谢罪准备開口的瞬间……
			PRINTFORMDL %CALLNAME:TARGET%的拳头陷入了旁边的墙上
			PRINTFORML 「…哦、抱歉呐。有虫子在很烦人呐」
			PRINTFORMDL 把拳头拔出来的%CALLNAME:TARGET%、朝%CALLNAME:MASTER%投去了冰冷的视线
			PRINTFORML 「然后、你想说什么来着？」
			PRINTFORML 「――不是找我有事嘛？」
			PRINTFORMDW ……%CALLNAME:MASTER%退缩了起来、没能对%CALLNAME:TARGET%进行道歉
		;菓子折失敗
		CASE -2
			PRINTFORML 「没什么吃甜食的心情啊……」
			PRINTFORMDL 那就酒的话……%CALLNAME:MASTER%一这么说%CALLNAME:TARGET%就投来了恐怖的视线
			PRINTFORMW 「我可是一直在忍着呐。在受伤之前赶紧滚呐」
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;304,幫忙干活
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:350(仕事内容(JOB_仕事内容.ERB参照のこと
;TCVAR:沒法幫忙(=2 手伝っても早くは終わらない、時間停止中不可 永琳の診察等)
;==================================================
@M_KOJO_SUCCESS_COM_K64_304
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_304
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_304_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_304_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
	;通常
	ELSE
	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_K64_305
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =1

@M_KOJO_MESSAGE_COM_K64_305
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_COM_K64_305_1
RETURN RESULT

@M_KOJO_EXTRASOURCE_COM_K64_305
;情緒が高まってる時は反感ゼロ
IF BASE:情緒 >= 1000
	SOURCE:反感 = 0
;条件を満たさない場合は大幅減
ELSE
	SOURCE:反感 = SOURCE:反感 / 10
ENDIF

@M_KOJO_MESSAGE_COM_K64_305_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;妊娠※一日一回
	IF TALENT:妊娠 && TALENT:恋慕 && !TCVAR:64:351
		PRINTFORMDL %CALLNAME:MASTER%一边枕在%CALLNAME:TARGET%的腿上、
		PRINTFORMDL 一边听着孕育着自己孩子的%CALLNAME:TARGET%的肚子……
		PRINTFORMDW
		IF CFLAG:TARGET:妊娠経過日数 >= 25
			PRINTFORMDL 将耳朵贴在肚子上、能够清楚的听到自己孩子的胎动
			PRINTFORML 「到时候不会破腹而出吧？」
			PRINTFORMW 「我的孩子的话、总感觉会做得出那种豪放的事呐」
		ELSEIF CFLAG:TARGET:妊娠経過日数 >= 20
			PRINTFORMW 「哦、现在在动的样子」
			PRINTFORMDL 将耳朵贴上去仔细倾听、能够听到自己的孩子在动的声音
		ELSE
			PRINTFORMDL %CALLNAME:MASTER%将耳朵贴到肚子上、什么也没有听到
			PRINTFORML 「再怎么说也有点太早了吧？」
			PRINTFORMW 「虽然我也有点等不及了呢」
		ENDIF
		TCVAR:64:351 = 1
	;通常
	ELSE
		;恋慕
		IF TALENT:恋慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%躺在了%CALLNAME:TARGET%腿上享受了膝枕
				PRINTFORMDL %CALLNAME:TARGET%望着%CALLNAME:MASTER%的脸庞，温柔的抚摸着他的头发…
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「哦？ 怎么了、已经足够了？」
						PRINTFORML 「好不容易才来一次、再多放松一下吧」
						PRINTFORMDL %CALLNAME:MASTER%再次躺了回去、被%CALLNAME:TARGET%摸了摸头
						PRINTFORML 「――好乖好乖、就这样睡吧」
						PRINTFORMW 「就让我拿你的睡颜当下酒菜吧」
						BASE:酒気 += 20
					CASE 1
						PRINTFORML 「――呐」
						PRINTFORMDL %CALLNAME:MASTER%睁開一只眼望向%CALLNAME:TARGET%
						PRINTFORML 「……呵呵、什么事也没有哦」
						PRINTFORMDW %CALLNAME:MASTER%再次闭上双眼、被%CALLNAME:TARGET%摸了摸头
					CASE 2
						PRINTFORMDL 睁開双眼看到了正在摸%CALLNAME:MASTER%头的%CALLNAME:TARGET%
						PRINTFORMDL ……不知不觉中好像睡着了
						PRINTFORML 「嗯……醒了吗？」
						PRINTFORMW 「――再多摸摸头？ 呵呵、好的哟」
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%拜托了%CALLNAME:TARGET%想要膝枕
				PRINTFORMDL %CALLNAME:TARGET%很爽快的答应了……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「你问会不会腿麻？ 哼哼、可不要小看鬼啊」
						PRINTFORM 「看！ 就像这样
						CALL COLORMESSAGE(@"（抽）",C_RED,0,1)
						PRINTFORML …啊、抱歉」
						PRINTFORMDW %CALLNAME:TARGET%站了起来、%CALLNAME:MASTER%没准备好头直接撞到了地上
					CASE 1
						PRINTFORMDL 觉得喘不上气被憋醒了……脸上放着什么东西
						PRINTFORMDL 非常的柔软。是%CALLNAME:TARGET%的胸部吗……
						PRINTFORML 「嗯？ 啊啊、因为位置很好呐」
						PRINTFORMW 「我就不客气的放上去了」
					CASE 2
						PRINTFORML 「很轻松？ 已经听你说了好几遍啦」
						PRINTFORMDL 横躺着的%CALLNAME:MASTER%的头被%CALLNAME:TARGET%温柔的抚摸着
						PRINTFORMDW 两人时不时的说着话、悠闲的度过了这段时间……
				ENDSELECT
			ENDIF
		;思慕
		ELSEIF TALENT:思慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%拜托了%CALLNAME:TARGET%做膝枕
				PRINTFORMDL %CALLNAME:TARGET%的头被%CALLNAME:MASTER%温柔的抚摸了…
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「累了？ 这样的话」
						PRINTFORMDL %CALLNAME:TARGET%朝%CALLNAME:MASTER%伸出了膝盖
						PRINTFORML 「虽然不能保证睡得很舒服、但总比没有好吧？」
						PRINTFORMDW %CALLNAME:MASTER%听从着建议躺了上去、闭上了眼睛
					CASE 1
						PRINTFORML 「嗯？ 怎么了、困了吗？」
						PRINTFORMDL %CALLNAME:MASTER%点头确认、%CALLNAME:TARGET%借出了膝盖
						PRINTFORMW 「到时间了就叫醒你、放轻松的睡一下吧」
					CASE 2
						PRINTFORML 「等一下交换着来哦」
						PRINTFORML 「都怪你搞得我也想睡了」
						PRINTFORMDW %CALLNAME:TARGET%打了个大大的哈欠……
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%拜托了%CALLNAME:TARGET%想要膝枕
				PRINTFORMDL %CALLNAME:TARGET%坐了下来挥着手示意%CALLNAME:MASTER%过来
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「这样就好了吗？」
						PRINTFORMDL %CALLNAME:MASTER%表示想要膝枕、%CALLNAME:TARGET%二话不说的答应了
						PRINTFORMW 「请慢慢来。要不然我顺便给你掏下耳朵？」
					CASE 1
						PRINTFORML 「嘿咻……」
						PRINTFORML 「哼嗯、轻松多了」
						PRINTFORMDW %CALLNAME:TARGET%朝枕在自己腿上的%CALLNAME:MASTER%的头放上了自動巨大的胸部……
					CASE 2
						PRINTFORML 「想要睡觉倒是没什么、可别流口水哦？」
						PRINTFORML 「这是我最重要的衣服。这个意思、你懂得吧？」
						PRINTFORMDW 稍微注意一下吧……%CALLNAME:MASTER%咽了口唾沫闭上了眼睛
				ENDSELECT
			ENDIF
		;それ以外
		ELSE
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%枕上了%CALLNAME:TARGET%的膝枕
				PRINTFORMDL %CALLNAME:TARGET%时不时的偷窥着%CALLNAME:MASTER%的睡颜……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「话说回来、真是不可思议的家伙啊」
						PRINTFORML 「居然敢枕着鬼的膝枕睡得这么香……」
						PRINTFORMW 「――嘛、没什么不好的。随便睡吧」
					CASE 1
						PRINTFORML 「说起来很久以前、给喝醉了的萃香膝枕的时候……」
						PRINTFORML 「……啊ー可恶！ 让我想起了被吐了一身的事」
						PRINTFORMDL 如果自己是%CALLNAME:TARGET%的话……
						PRINTFORMDW ――不太想去想那种感觉啊。%CALLNAME:MASTER%这样想着
					CASE 2
						PRINTFORML 「……嗯？喂、喂~？」
						PRINTFORMDL %CALLNAME:MASTER%闭着眼睛、发出安稳的鼾声
						PRINTFORML 「居然敢在鬼的腿上睡的这么熟……胆子真是大啊」
						PRINTFORMDW %CALLNAME:TARGET%朝杯中倒入酒、看着%CALLNAME:MASTER%的睡颜喝了起来……
						BASE:酒気 += 20
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%拜托了%CALLNAME:TARGET%借出了膝枕
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「别乱动、酒都要洒了啊」
						PRINTFORMDL 被%CALLNAME:TARGET%敲了下头。躺着腿上完全冷静不下来……
						PRINTFORMW 「都借给你膝枕了、这种程度就忍忍吧」
					CASE 1
						PRINTFORML 「这么没防备真的好吗？ 说不定会被我悄悄挠脖子哟？」
						PRINTFORML 「你说『鬼才不会做那种事』？ 哈哈哈、你很懂嘛」
						PRINTFORMDW 被%CALLNAME:TARGET%很開心的摸着头。头发被揉的乱糟糟的……
					CASE 2
						PRINTFORML 「鬼的膝枕睡起来也不舒服吧」
						PRINTFORML 「想撒娇的话应该还有更合适的对象吧」
						PRINTFORMDW 虽然这样那样的说着，%CALLNAME:TARGET%还是借出了膝枕
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;306,撫摸肚子
;TFLAG:193(1=ABL:親密6以上かつ妊娠時 0=成功 -1=ABL:親密5以下)
;==================================================
@M_KOJO_MESSAGE_COM_K64_306
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_COM_K64_306_1
RETURN RESULT

@M_KOJO_EXTRASOURCE_COM_K64_306
;情緒が高まってる時は反感ゼロ
IF BASE:情緒 >= 1000
	SOURCE:反感 = 0
;条件を満たさない場合は大幅減
ELSE
	SOURCE:反感 = SOURCE:反感 / 10
ENDIF

@M_KOJO_MESSAGE_COM_K64_306_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;時間停止中
	IF FLAG:時間停止
		PRINTFORMDL %CALLNAME:MASTER%停止着时间抚摸着%CALLNAME:TARGET%的小腹
		PRINTFORMDW %CALLNAME:TARGET%毫无抵抗的被%CALLNAME:MASTER%抚摸着肚子……
	;妊娠※一日一回
	ELSEIF TALENT:妊娠 && TALENT:恋慕 && !TCVAR:64:352
		PRINTFORMDL %CALLNAME:MASTER%摸了摸%CALLNAME:TARGET%的肚子
		PRINTFORMDL %CALLNAME:TARGET%充满爱意的将自己的手和%CALLNAME:MASTER%的重叠在了一起
		PRINTFORMDW
		IF CFLAG:TARGET:妊娠経過日数 >= 25
			PRINTFORML 「哦ー、在动了在动了」
			PRINTFORMDW %CALLNAME:TARGET%腹中的自己的孩子很有精神的乱动着
		ELSEIF CFLAG:TARGET:妊娠経過日数 >= 15
			PRINTFORML 「这孩子将来一定能成为大人物」
			PRINTFORMW 「这可是%MASTERNAME:64%和我的孩子、绝对会的」
		ELSE
			PRINTFORML 「要取什么名字好呢……」
			PRINTFORMDW %CALLNAME:TARGET%轻轻摸着肚子、考虑着尚未出世的孩子的名字
		ENDIF
		TCVAR:64:352 = 1
	;通常
	ELSE
		;恋慕
		IF TALENT:恋慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%摸了摸%CALLNAME:TARGET%的肚子
				PRINTFORMDL %CALLNAME:TARGET%看起来感觉很舒服的样子……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「要摸的话、更下边一点……」
						PRINTFORMDL %CALLNAME:TARGET%拿起%CALLNAME:MASTER%的手、伸向子宫附近……
						PRINTFORMW 「――你有能让这里舒服起来的方法对吧？」
					CASE 1
						PRINTFORML 「来啊、再多摸一摸」
						PRINTFORML 「――对、就是这边……呼」
						PRINTFORMDW %CALLNAME:MASTER%不停的抚摸着%CALLNAME:TARGET%的子宫附近……
					CASE 2
						PRINTFORML 「嗯？ 想问可不可以摸肚子？」
						PRINTFORML 「随便摸吧。不用顾虑想怎么摸就怎么摸吧」
						PRINTFORMDW %CALLNAME:TARGET%将手重叠在了抚摸自己肚子的%CALLNAME:MASTER%的手上
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%摸了摸%CALLNAME:TARGET%的肚子
				PRINTFORMDL %CALLNAME:TARGET%被%CALLNAME:MASTER%摸似乎很開心的样子……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「大概是因为你最近经常摸的缘故吧、最近肚子的状态非常好」
						PRINTFORML 「――两者之间没关系？ 嘛有什么不好的、就当是这样呗」
						PRINTFORMW 「这样的话、你才更能随心所欲的摸我肚子的吧？」
					CASE 1
						PRINTFORML 「喂、等、啊、哈哈哈哈哈哈！」
						PRINTFORML 「等、那、那里是！ 啊哈哈哈哈哈哈！」
						PRINTFORMDW %CALLNAME:MASTER%挠着%CALLNAME:TARGET%的肚子嬉戏起来……
					CASE 2
						PRINTFORML 「我是不懂这有什么好摸的」
						PRINTFORML 「嘛、你開心就好吧」
						PRINTFORMDW %CALLNAME:TARGET%看起来已经习惯被摸肚子了
				ENDSELECT
			ENDIF
		;思慕
		ELSEIF TALENT:思慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%摸了摸%CALLNAME:TARGET%的肚子
				PRINTFORMDL %CALLNAME:TARGET%表现出很痒的样子被玩弄着……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「――你玩够了吗？」
						PRINTFORML 「那么、这次该我了」
						PRINTFORMDW %CALLNAME:MASTER%被%CALLNAME:TARGET%抚摸了肚子……
					CASE 1
						PRINTFORML 「真是的、都说了很痒了」
						PRINTFORML 「――好了好了、是我输了。随你喜欢吧」
						PRINTFORMDW 朝她撒娇之后、%CALLNAME:MASTER%随心所欲的玩弄了%CALLNAME:TARGET%的肚子……
					CASE 2
						PRINTFORML 「嗯、嗯嗯……っ？」
						PRINTFORMDL 慢慢的摸了摸肚子、然后稍微的朝下伸了一些
						PRINTFORMDL 稍微到达子宫附近之后、猛地揉了起来
						PRINTFORML 「啊……你、你在干什么？」
						PRINTFORMDW 一种与痒痒不同的谜之快感让%CALLNAME:TARGET%感到十分困扰的样子……
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%摸了摸%CALLNAME:TARGET%的肚子
				PRINTFORMDL %CALLNAME:TARGET%看起来很痒的样子……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「――嗯？ 有吃过人吗？」
						PRINTFORML 「当然有吃过了啊、我可是鬼啊？」
						PRINTFORML 「以前的时候有很多家伙盯着我的首级呐」
						PRINTFORMW 「用如果我赢了就吃了你的条件和他们进行胜负了」
					CASE 1
						PRINTFORML 「哦都、真是唐突呐」
						PRINTFORML 「说过的吧？ 我不喜欢别人的突然袭击」
						PRINTFORMDW 虽然这么说着但是%CALLNAME:TARGET%还是让继续摸了下去
					CASE 2
						PRINTFORMDL 摸着%CALLNAME:TARGET%的肚子的时候、她的肚子突然咕咕叫了起来
						PRINTFORML 「有点饿了呐……有什么能吃的东西吗？」
						PRINTFORMW 「啊啊、煎豆以外的都可以」
				ENDSELECT
			ENDIF
		;それ以外
		ELSE
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%摸了摸%CALLNAME:TARGET%的肚子
				PRINTFORMDL %CALLNAME:TARGET%安静的呆着……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「嗯っ……喂、这有什么意义吗？」
						PRINTFORMDL %CALLNAME:MASTER%就为什么要摸%CALLNAME:TARGET%的肚子发表了热诚的演讲
						PRINTFORMW 「哦、哦う……反正不会少块肉、随便你吧」
					CASE 1
						PRINTFORML 「那么想摸肚子的话、摸自己的不就好了」
						PRINTFORML 「也犯不着专门来摸我的肚子吧……嗯嗯っ」
						PRINTFORMDW %CALLNAME:TARGET%感到很痒的样子扭动着身体……
					CASE 2
						PRINTFORML 「摸我的肚子摸的很爽吗？」
						PRINTFORML 「――很開心？ 真是个怪人呐」
						PRINTFORMDW %CALLNAME:TARGET%歪着头……
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%抚摸着%CALLNAME:TARGET%的肚子
				PRINTFORMDL %CALLNAME:TARGET%感到很惊讶的样子……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「想摸我的肚子倒是无所谓、你倒是提前说一声啊」
						PRINTFORML 「我不太喜欢别人突然这么搞」
						PRINTFORMDW %CALLNAME:MASTER%一边道歉一边不断抚摸着%CALLNAME:TARGET%的肚子
					CASE 1
						PRINTFORML 「啊ー、抱歉打扰了你的兴致」
						PRINTFORML 「但是很痒的、差不多就行了吧？」
						PRINTFORMDW %CALLNAME:TARGET%一边这么说着一边把手拨開了
					CASE 2
						PRINTFORML 「啊？ 突然怎么了」
						PRINTFORMDL 朝%CALLNAME:TARGET%的肚子伸出手，用手指画了一个圆
						PRINTFORMDW 健康紧实的腹部、隐约的能看到肌肉
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;307,捏臉蛋
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
	;以下は先に書いた条件が優先される
	;TALENT:恋慕(受け入れつつ笑顔でやり返す
	;ABL:親密(6以上=おずおずとやり返す
	;ABL:従順(5以上=されるがまま
;==================================================
@M_KOJO_SUCCESS_COM_K64_307
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗(注、抱住模式中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =1

@M_KOJO_MESSAGE_COM_K64_307
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_COM_K64_307_1
RETURN RESULT

@M_KOJO_EXTRASOURCE_COM_K64_307
;恋慕が無く情緒が低い時は反感激増
SIF !TALENT:恋慕 && BASE:情緒 < 1000
	SOURCE:反感 = SOURCE:反感 * 2

@M_KOJO_MESSAGE_COM_K64_307_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;時間停止中
	IF FLAG:時間停止
		PRINTFORMDL %CALLNAME:MASTER%朝%CALLNAME:TARGET%的脸颊伸出手…
		PRINTFORMDW 在停止的时间中%CALLNAME:TARGET%无抵抗的被捏了捏脸…
	;睡眠中
	ELSEIF CFLAG:睡眠
		PRINTFORMDL %CALLNAME:MASTER%悄悄地捏了捏%CALLNAME:TARGET%的脸颊
		PRINTFORMDW
		PRINTFORML 「%TEXTR("……唔ー嗯……/……咕……/……嗯、ぁ……/")%」
		PRINTFORMDW %CALLNAME:TARGET%看起来很痛苦的样子……
	;通常
	ELSE
		;恋慕
		IF TALENT:恋慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%捏着%CALLNAME:TARGET%的脸玩弄起来
				PRINTFORMDL %CALLNAME:TARGET%開心的朝%CALLNAME:MASTER%捏了回来
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「一直模仿着你好像连我都要染上什么坏习惯了」
						PRINTFORML 「呐、你要怎么赔偿我？ 嗯？」
						PRINTFORMDW 一边这样说着%CALLNAME:TARGET%不断的捏弄着%CALLNAME:MASTER%的脸颊
					CASE 1
						PRINTFORML 「我可以再用些力吗？」
						PRINTFORML 「那么就如您所愿――接招！」
						PRINTFORMDW ……差点就被撕烂了
					CASE 2
						PRINTFORML 「 啊哈哈哈哈哈哈哈！！！」
						PRINTFORML 「能做出这种表情的家伙还是第一次见啊！」
						PRINTFORMDW %CALLNAME:TARGET%看着捏出的%CALLNAME:MASTER%的脸不断大笑着……
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%捏着%CALLNAME:TARGET%的脸玩弄起来
				PRINTFORMDL %CALLNAME:TARGET%脸上浮现出笑容……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「――嗯？ 为什么不捏回来？」
						PRINTFORML 「啊啊、因为我想看你開心的笑脸呐」
						PRINTFORMW 「还是说、你想让我捏回去？」
					CASE 1
						PRINTFORML 「看起来真是開心呐」
						PRINTFORML 「呼呼、已经做好觉悟了吧？」
						PRINTFORMDW %CALLNAME:TARGET%伸出手指不断扭动着跃跃欲试……
					CASE 2
						PRINTFORML 「―啊？ 脸红了？」
						PRINTFORML 「啊ー、不是你拽过头了吗？」
						PRINTFORMDW %CALLNAME:TARGET%揉了揉脸。但是真的是那样吗？
				ENDSELECT
			ENDIF
		;思慕
		ELSEIF TALENT:思慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%捏着%CALLNAME:TARGET%的脸玩弄起来
				PRINTFORMDL 然后、%CALLNAME:TARGET%笑着捏了回来
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「噗哈哈哈哈！ 奇怪的脸！」
						PRINTFORMDL %CALLNAME:MASTER%和%CALLNAME:TARGET%玩了起来
						PRINTFORML 「哈ー……呼、哈、不好、笑岔气了」
						PRINTFORMDW ………
					CASE 1
						PRINTFORML 「总是被%MASTERNAME:64%这么搞都要养成习惯了……」
						PRINTFORML 「看招、这是我的回礼哒！」
						PRINTFORMDW %CALLNAME:MASTER%和%CALLNAME:TARGET%互相玩闹着……
					CASE 2
						PRINTFORML 「有趣、也让我捏捏吧」
						PRINTFORMDW %CALLNAME:TARGET%慢慢的揉捏着%CALLNAME:MASTER%的脸颊
						SETCOLOR C_RED
						FONTBOLD
						PRINTFORML
						PRINTFORML 噶啊啊啊啊啊～～～ッッ
						PRINTFORMW
						FONTREGULAR
						RESETCOLOR
						CALL M_KOJO_COLOR_K64
						PRINTFORMDL 好疼好疼好疼！！！
						PRINTFORML 「这就不行了？ 好戏还在后头的说」
						PRINTFORMDW 明明本来只是肌肤相亲而已、不知何时却变成了忍耐痛苦的比赛
						RESETCOLOR
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%捏着%CALLNAME:TARGET%的脸玩弄起来
				PRINTFORMDL %CALLNAME:TARGET%没有抵抗的被揉捏着……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「如果不是你的话早被我踢飞了」
						PRINTFORMDW %CALLNAME:MASTER%享受了数分钟%CALLNAME:TARGET%脸颊的柔软感……
					CASE 1
						PRINTFORML 「我就喜欢你什么都敢做这点呐」
						PRINTFORML 「不过、也要稍微看看对手是谁。死了可就不值得了」
						PRINTFORMW 「――有好好挑选目标？ 呵呵、是嘛」
					CASE 2
						PRINTFORML 「嗯、这很好玩吗……」
						PRINTFORMDL %CALLNAME:TARGET%也伸出手捏住了%CALLNAME:MASTER%的脸颊
						PRINTFORMDW 两人互相捏着对方的脸无言的对视了一会儿
				ENDSELECT
			ENDIF
		;それ以外
		ELSE
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%伸出手想要捏%CALLNAME:TARGET%的脸颊
				PRINTFORMDL 然后反被%CALLNAME:TARGET%捏住了脸颊……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「真敢这么作啊」
						PRINTFORML 「以眼还眼以牙还牙正是我的人生信条！」
						PRINTFORMDW 两人互相捏着对方的脸玩闹着
					CASE 1
						PRINTFORML 「人类的家伙大多都很脆弱下手的力度很难掌握呐」
						PRINTFORML 「如果不小心捏烂了就抱歉了哦」
						PRINTFORMDW %CALLNAME:TARGET%的话听起来不太像是在開玩笑……
					CASE 2
						PRINTFORML 「我的脸上沾上什么了吗？」
						PRINTFORML 「……只是想捏？ 你这家伙！」
						PRINTFORMDW %CALLNAME:MASTER%的脸颊被%CALLNAME:TARGET%狠狠的拽了……
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%捏着%CALLNAME:TARGET%的脸玩了起来
				PRINTFORMDL %CALLNAME:TARGET%皱起了眉头……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「你这么拽着我的脸不都喝不了酒了吗」
						PRINTFORMDW %CALLNAME:TARGET%嫌麻烦似的挥開了%CALLNAME:MASTER%的手
					CASE 1
						PRINTFORML 「我可真是被小看了啊」
						PRINTFORML 「……稍微、想吃点苦头吗？」
						PRINTFORMDW 被%CALLNAME:TARGET%讨厌了的样子……
					CASE 2
						PRINTFORML 「从刚才開始就在干嘛呢？」
						PRINTFORMDL %CALLNAME:MASTER%沉默着捏着%CALLNAME:TARGET%的脸颊
						PRINTFORMDW 捏起来意外的柔软、一不小心就入迷了
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;308,捅臉頰（恋慕限定？）
;陪睡中or睡眠中限定
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K64_308
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗(注、抱住模式中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_308
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_308_1
RETURN RESULT

@M_KOJO_EXTRASOURCE_COM_K64_308
;情緒が高まってる時は反感ゼロ
IF BASE:情緒 >= 1000
	SOURCE:反感 = 0
;条件を満たさない場合は大幅減
ELSE
	SOURCE:反感 = SOURCE:反感 / 10
ENDIF

@M_KOJO_MESSAGE_COM_K64_308_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
		PRINTFORMDL 为了确认是不是已经醒了，%CALLNAME:MASTER%戳了戳%CALLNAME:TARGET%的脸颊
		PRINTFORML 「%TEXTR("……咕、嗯……/……唔ー嗯……/……嗯嗯……/")%」
		PRINTFORMDW ……看起来睡得很香的样子
	;通常
	ELSE
		SELECTCASE TFLAG:193
			;大成功
			CASE 1
				PRINTFORML 「你这家伙！ 我也要戳！」
				PRINTFORMDW 和%CALLNAME:TARGET%互相戳脸颊嬉戏起来了
			;成功
			CASE 0
				PRINTFORML 「呼呼、满足了吗？」
				PRINTFORMDW %CALLNAME:TARGET%温柔的注视着身边的%CALLNAME:MASTER%
			;失敗
			CASE -1
				PRINTFORML 「差不多停了。我很困的」
				PRINTFORMDW %CALLNAME:MASTER%被%CALLNAME:TARGET%训斥了
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;309,摸頭
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:親密(6以上=通常成功時分岐
;==================================================
@M_KOJO_SUCCESS_COM_K64_309
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗(注、抱住模式中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_309
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_COM_K64_309_1
RETURN RESULT

@M_KOJO_EXTRASOURCE_COM_K64_309
;恋慕が無く情緒が低い時は反感激増
SIF !TALENT:恋慕 && BASE:情緒 < 1000
	SOURCE:反感 = SOURCE:反感 * 2

@M_KOJO_MESSAGE_COM_K64_309_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;時間停止中
	IF FLAG:時間停止
		PRINTFORMDL %CALLNAME:MASTER%朝%CALLNAME:TARGET%的头部伸出手
		PRINTFORMDW 在停止的时间中%CALLNAME:TARGET%无抵抗的被摸着头…
	;睡眠中
	ELSEIF CFLAG:睡眠
		PRINTFORMDL %CALLNAME:MASTER%朝熟睡中的%CALLNAME:TARGET%温柔的摸了摸头
		PRINTFORMDW
		PRINTFORML 「%TEXTR("……zzz/……嗯ー……/……唔……/")%」
		PRINTFORMDW 是梦到什么好事了吗、%CALLNAME:TARGET%稍微舒缓了面容
	;お浴室で実行（頭を洗う）
	ELSEIF BATHCHECK(CFLAG:MASTER:現在位置) && IN_HOME(CFLAG:MASTER:現在位置)
		PRINTFORMDL %CALLNAME:MASTER%和%CALLNAME:TARGET%互相洗了洗头发……
		PRINTFORMDW
		;恋慕
		IF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「――好、结束了哦」
					PRINTFORML 「呼呼、成长为了一个好男人了呐」
					PRINTFORMDW %CALLNAME:TARGET%突然地朝后背拍了拍。稍微有点疼
				CASE 1
					PRINTFORML 「虽然喜欢洗澡、但是每次都要洗头发好麻烦啊」
					PRINTFORML 「这种时候、有你在就轻松多了」
					PRINTFORMDW %CALLNAME:MASTER%仔细的清洗着%CALLNAME:TARGET%的长发……
				CASE 2
					PRINTFORML 「――嗯、終结束了吗？」
					PRINTFORML 「那么、该轮到我来给你洗了」
					PRINTFORMDW 两人交换位置、这次是%CALLNAME:TARGET%来帮忙洗头了
			ENDSELECT
		;それ以外
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「怎么了？ ――泡沫进到眼睛里了吗？」
					PRINTFORML 「你是男的吧？ 这种程度就忍一下咯！」
					PRINTFORMDW 头上被浇了滚烫的热水。差点就被烫伤了……
				CASE 1
					PRINTFORML 「哦、要给我洗头发吗？」
					PRINTFORML 「来的正好。我还在想要不要拜托你呢」
					PRINTFORMDW %CALLNAME:MASTER%帮忙洗了%CALLNAME:TARGET%的头发……
				CASE 2
					PRINTFORML 「――唉、真是迟钝！」
					PRINTFORML 「这么搞下去什么时候也洗不完！ 洗的再快点！」
					PRINTFORMDW 像按摩头皮一样清洗着的时候、被%CALLNAME:TARGET%不耐烦的催促了……
			ENDSELECT
		ENDIF
	;通常
	ELSE
		;恋慕
		IF TALENT:恋慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%温柔了摸了摸%CALLNAME:TARGET%的头
				PRINTFORMDL %CALLNAME:TARGET%同样的摸了摸%CALLNAME:MASTER%的头……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「――不像我的风格？」
						PRINTFORML 「嘛、人也是会变的。鬼也一样」
						PRINTFORMDW %CALLNAME:TARGET%享受着%CALLNAME:MASTER%的头发的触感……
					CASE 1
						PRINTFORML 「这只角……事到如今呐。这可是鬼的……」
						PRINTFORML 「――啊、想要摸倒是没什么问题」
						PRINTFORMW 「……摸的时候温柔一点哦」
					CASE 2
						PRINTFORML 「怎么了、很害羞吗？」
						PRINTFORML 「啊哈哈哈哈！ 那可更得摸一摸了呐」
						PRINTFORMDW %CALLNAME:TARGET%十分乐在其中的样子……
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%温柔的抚摸了%CALLNAME:TARGET%的头
				PRINTFORMDL %CALLNAME:TARGET%露出放松的表情眯着眼睛……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「虽然我不太喜欢有人摸我头」
						PRINTFORML 「但是被你摸的话……嘛、感觉不坏」
						PRINTFORMW 「――虽然这么说。也是最近才有的想法就是了」
					CASE 1
						PRINTFORML 「――啊ー、那个、什么来着」
						PRINTFORML 「之后也记得换我来摸你的头了哦。」
						PRINTFORMDW %CALLNAME:TARGET%很痒似的抓着脸颊……
					CASE 2
						PRINTFORML 「呐、%MASTERNAME:64%。长的和短的、你喜欢哪个？」
						PRINTFORML 「――啊？ 你问再说什么……除了头发还能有什么？」
						PRINTFORMDW 好难回答的问题……%CALLNAME:MASTER%抚摸着%CALLNAME:TARGET%的头发、脑袋中想象起来
				ENDSELECT
			ENDIF
		;思慕
		ELSEIF TALENT:思慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%温柔的摸着%CALLNAME:TARGET%的头
				PRINTFORMDL 于是、%CALLNAME:TARGET%也抓着%CALLNAME:MASTER%的头发玩弄起来
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「――啊？ 快点住手？ 哈哈哈哈っ！」
						PRINTFORML 「你这家伙只要安安静静的被我摸就好了！」
						PRINTFORMDW %CALLNAME:TARGET%很開心的揉着%CALLNAME:MASTER%的头……
					CASE 1
						PRINTFORML 「你好像很喜欢摸我的头啊」
						PRINTFORML 「看你玩的这么開心、我都想摸着玩了」
						PRINTFORMDW %CALLNAME:TARGET%揉起来%CALLNAME:MASTER%的头……
					CASE 2
						PRINTFORML 「好ー乖好乖好乖好乖好乖！」
						PRINTFORMDL %CALLNAME:MASTER%被%CALLNAME:TARGET%猛烈的乱抓着头发……
						PRINTFORMW 「看你抓我抓的那么開心、我也要好好的反击了哟」
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%温柔的抚摸着%CALLNAME:TARGET%的头
				PRINTFORMDL %CALLNAME:TARGET%静静的被%CALLNAME:MASTER%抚摸着头……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「再稍微低点？」
						PRINTFORML 「――这样吗？」
						PRINTFORMDW 降低到正合适的%CALLNAME:TARGET%的头被%CALLNAME:MASTER%摸了个爽
					CASE 1
						PRINTFORML 「不是说了很讨厌被这么摸头吗、呐……」
						PRINTFORML 「你是来找茬故意的吗？」
						PRINTFORMW 「如果不是这样的话、那就堂堂正正的摸吧。我无所谓」
					CASE 2
						PRINTFORMDL %CALLNAME:MASTER%将脸埋入%CALLNAME:TARGET%的头发里、深深的吸了一口
						PRINTFORML 「――很好闻？ 那是当然。我还是很注意的」
						PRINTFORMW 「身为旧地狱温泉街的管理人身上如果有味道的话很不好吧？」
				ENDSELECT
			ENDIF
		;それ以外
		ELSE
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%温柔的摸了摸%CALLNAME:TARGET%的头
				PRINTFORMDL %CALLNAME:TARGET%露出不服气的表情、稍微的朝%CALLNAME:MASTER%揉了回来……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「被这么欺负还没有动手」
						PRINTFORML 「哈……我还真是变得圆滑了呐……」
						PRINTFORMDW %CALLNAME:MASTER%无视着这么说着的%CALLNAME:TARGET%继续摸了下去
					CASE 1
						PRINTFORML 「――我还是难以接受」
						PRINTFORML 「但是、也不至于因为这种小事生气」
						PRINTFORML 「……我是说你可以继续摸」
						PRINTFORMDW %CALLNAME:TARGET%十分大方的允许了……
					CASE 2
						PRINTFORML 「你对谁都这么做的？」
						PRINTFORML 「――啊啊是吗。那就随便你好了」
						PRINTFORMDW %CALLNAME:TARGET%对%CALLNAME:MASTER%有点无语了……
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%温柔的摸了摸%CALLNAME:TARGET%的头
				PRINTFORMDL ……好像有点太过亲昵了
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「喂喂、你挑错人了吧？」
						PRINTFORML 「这种事是对小不点做的吧」
						PRINTFORMDW 是觉得被小看了吗、%CALLNAME:TARGET%不高兴的会開了%CALLNAME:MASTER%的手
					CASE 1
						PRINTFORML 「感觉被小看了有点让人不爽呐……」
						PRINTFORMDW %CALLNAME:TARGET%好像没习惯被人摸头的样子
					CASE 2
						PRINTFORML 「――真让人不爽呐」
						PRINTFORML 「难道说、你是在小瞧我吗？」
						PRINTFORML 「没有那种事？ 那么现在立马给我把手拿開」
						PRINTFORMDW %CALLNAME:MASTER%不情愿的停止了抚摸……
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;331,泡茶（下薬）
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K64_331
;成否判定
;TFLAG:192(-2=強制失敗(注、非指令終了）、-1＝強制失敗、0=COM依存、1=強制成功or大成功(注、睡眠薬冰淇淋ティーは眠気を感じていると飲まない)
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_331
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_331_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_331_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;判定
	SELECTCASE TFLAG:193
		;失敗
		CASE -1
			;一服盛られることに関してトラウマを抱えてそう
			PRINTFORMW 「居然敢给我下毒你可真够胆大的」
			PRINTFORMW 「你问我在说什么？ 装傻也没用」
			PRINTFORMW 「……给我咬紧牙关吧！！！」
			PRINTFORMDW %CALLNAME:MASTER%被%CALLNAME:TARGET%狠狠的揍了一顿……
			BASE:MASTER:体力 -= 5000
			CFLAG:心情不快 = 3
			CFLAG:ブチギレ = 1
			TALENT:心情 = -1
		;成功
		CASEELSE
			;媚薬
			IF TCVAR:媚薬 == 210
				PRINTFORML 「哈……哈……」
				PRINTFORMDL 无警戒的喝下了掺了媚药的茶，%CALLNAME:TARGET%心神不定的扭着身子
				PRINTFORML （啊啊可恶……好难受……）
				PRINTFORML （干脆直接推倒%MASTERNAME:64%……）
				PRINTFORMDW %CALLNAME:TARGET%发出发情的雌性气味、锐利的瞪着%CALLNAME:MASTER%……
				TCVAR:発情 = 1
			;利尿剤
			ELSEIF TCVAR:利尿剤 == 210
				PRINTFORML 「因为味道不错稍微喝多了点的样子」
				PRINTFORMW 「我稍微去个厕所」
				PRINTFORMDL 到此都在计划之中
				PRINTFORMDW %CALLNAME:MASTER%跟上%CALLNAME:TARGET%、悄悄的在厕所进行偷窥
				PRINTFORMW 「呼……差点就要漏出来了」
				PRINTFORMDL 不知道自己被偷窥了、露出安心的表情的%CALLNAME:TARGET%正在上厕所
				PRINTFORMDL 以泄洪之势放出大量散发着臭味的尿液、停留在厕所中……
				PRINTFORMDW %CALLNAME:MASTER%深吸了一口气将臭味吸入肺部、拿出一个东西激烈的用手解决了一下……
				PRINTFORMDW ………
				PRINTFORMDL 过了一会儿、%CALLNAME:TARGET%一副舒畅的表情如厕归来
				PRINTFORMDW 两边都舒服了、真是非常有意义的时间
				BASE:MASTER:精力 -= 100
				TCVAR:利尿剤 = 0
			;催情薬
			ELSEIF TCVAR:催情薬 == 210
				PRINTFORML 「看的入迷、就是指现在这种吧……」
				PRINTFORML 「……这边的事、不要在意」
				PRINTFORMDW 一想到这些都是催情药的作用……%CALLNAME:MASTER%就感到稍微有点遗憾
			;睡眠薬
			ELSEIF TCVAR:睡眠薬強度 == 2
				PRINTFORML 「呼啊～……稍微有点想睡了呐……」
				PRINTFORML 「早知道会这样的话、就带点烈酒出来了……」
				PRINTFORMDW 提神药居然是酒什么的、倒也很符合她的风格，%CALLNAME:MASTER%不由得这么想到
			;それ以外
			ELSE
				CALL M_KOJO_MESSAGE_COM_K64_301_1
			ENDIF
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;332,勸酒
;TFLAG:193(0=不會喝酒成功 -1=不會喝酒失敗 -2=不會喝酒大失敗 -5=不會喝酒あきらめ)
;TFLAG:194(51=濁酒 52=清酒 53=鬼殺酒)
;ALCOHOL_TASTE(TFLAG:194)(15以上=気に入る 9以下=口に合わない)
;==================================================
@M_KOJO_SUCCESS_COM_K64_332
;成否判定
;TFLAG:192(-1＝強制失敗、0=COM依存
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_332
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_COM_K64_332_1
RETURN RESULT

;一応反感が発生不会うに
@M_KOJO_EXTRASOURCE_COM_K64_332
SOURCE:反感 = 0

@M_KOJO_MESSAGE_COM_K64_332_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	PRINTFORMDL %CALLNAME:MASTER%将酒注入杯子中朝%CALLNAME:TARGET%递了过去……
	PRINTFORMDW
	;呑ませた酒の種類で分岐
	SELECTCASE TFLAG:194
		;濁酒
		CASE 51
			PRINTFORML 「嘛、也不是说讨厌吧」
			PRINTFORML 「就是喝起来不过瘾」
			PRINTFORMDW 对喜欢喝酒的鬼来说酒劲似乎太淡了……
		;清酒
		CASE 52
			PRINTFORML 「酒乃生命之水――虽然我也不知道是谁说的」
			PRINTFORML 「但是那家伙一定很会喝酒。真想夸他几下呐」
			PRINTFORMDW %CALLNAME:TARGET%边喝酒边闲聊着
		;鬼殺酒
		CASE 53
			PRINTFORML 「咕咚、咕咚、咕咚………」
			PRINTFORML 「咕哈～ッ！ 果然这才能叫酒呐」
			PRINTFORMDL 虽然应该是非常强力的酒、但还是被%CALLNAME:TARGET%像喝水一样一口气喝掉了
			PRINTFORML 「啊？ 喂喂、你这不是完全没喝吗」
			PRINTFORML 「这么慢吞吞的喝下去酒都要变味啦。快点、一口闷！一口闷！」
			PRINTFORMDW ……找她喝酒可能是个错误的选择……
		;神酒
		CASE 55
			PRINTFORML 「哈哈哈！ 想要送给我这个吗？」
			PRINTFORML 「如果是这样的话、那我就心怀感激的喝下去啦！」
			PRINTFORMDW %CALLNAME:TARGET%将%ITEMNAME:(TFLAG:194)%接了过来、豪爽的喝干净了
		;甜酒
		CASE 56
			PRINTFORML 「嘛、就当换个口味吧……」
			PRINTFORML 「不过对我来说、这种的才能叫酒吧」
			PRINTFORMDW %CALLNAME:TARGET%朝杯中注入清酒，一口气喝了下去
			;追加アルコール
			BASE:酒気 += 30
		;蒸留酒
		CASE 58
			PRINTFORML 「哦、烧酒吗？ 稍微等一下呐」
			PRINTFORMDL %CALLNAME:TARGET%拿出一个小壶。打開盖子里边放着梅干
			PRINTFORML 「烧酒的话和这个很配。给、这是你的份」
			PRINTFORMDW 接过%CALLNAME:TARGET%递过来的梅干扔进嘴里。……非常的美味
		;薬酒
		CASE 59
			PRINTFORML 「%ITEMNAME:(TFLAG:194)%呐……咕っ」
			PRINTFORML 「唔ー嗯……不是很好喝呐……」
			PRINTFORMDW 看起来她并不是很喜欢的样子……
		;一夜奇稻田
		CASE 513
			PRINTFORML 「不管什么家伙喝了这玩意儿都会醉的不省人事？」
			PRINTFORML 「有趣！ 满上、我来试试」
			PRINTFORMDW %CALLNAME:TARGET%一口气饮干了倒的满满的%ITEMNAME:(TFLAG:194)%
	ENDSELECT
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;333,聽牢騷
;TFLAG:193(6=大成功(酔い) 5=成功(酔い) 4=失敗(酔い) 3=大成功 2=成功 1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K64_333
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_333
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_333_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_333_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;判定
	SELECTCASE TFLAG:193
		;成功＆大成功（酔い）
		CASE 5,6
			PRINTFORML 「喂~？ 有在听吗？ 根本没在听吧？」
			PRINTFORML 「嘛～我也忘了我说了啥所以我们两个其实半斤八两吧」
			PRINTFORMW 「啊哈哈哈哈哈哈！！！」
		;失敗（酔い）
		CASE 4
			;鬼声「壊滅の咆哮」
			PRINTFORML 「啊？ 你说什么？」
			PRINTFORML 「腹部用力声音再大点！ 就像这样呐！」
			PRINTFORMDW 耳边响起了%CALLNAME:TARGET%巨大的声音、%CALLNAME:MASTER%差点被震昏过去
			BASE:MASTER:体力 -= 500
		;成功＆大成功
		CASE 2,3
			PRINTFORML 「……哈、真是丢人现眼了呐」
			PRINTFORMW 「让你陪我真是抱歉了、拜你所赐心情舒畅多了」
		;失敗
		CASE 1
			PRINTFORML 「在那里听的心不在焉的……」
			PRINTFORML 「不想听的话直接说不好吗？」
			PRINTFORMW 「那种随随便便的态度我最讨厌了」
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;334,碰杯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:妊娠自覚状態(1=吃飯)
;TALENT:酒耐性(-2=吃飯)
;==================================================
@M_KOJO_SUCCESS_COM_K64_334
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_334
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_334_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_334_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 1
		;大成功
		CASE 0
		;成功
		CASE -1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;335,照料
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K64_335
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_335
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_335_1
RETURN RESULT

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

@M_KOJO_MESSAGE_COM_K64_336
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_COM_K64_336_1
RETURN RESULT

@M_KOJO_EXTRASOURCE_COM_K64_336
;情緒が高まってる時は反感ゼロ
IF BASE:情緒 >= 1000
	SOURCE:反感 = 0
;条件を満たさない場合は大幅減
ELSE
	SOURCE:反感 = SOURCE:反感 / 10
ENDIF

@M_KOJO_MESSAGE_COM_K64_336_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;寝ちゃった
	IF TFLAG:193 > 0
		PRINTFORMDL 是因为很舒服吗、%CALLNAME:TARGET%就这样睡了过去
		PRINTFORMDL %CALLNAME:MASTER%直到%CALLNAME:TARGET%起来之前都在欣赏着她的睡脸
		PRINTFORMDW
		PRINTFORML 「……ｚｚｚ」
		PRINTFORMDW %CALLNAME:MASTER%望着%CALLNAME:TARGET%的睡脸度过了一段安稳祥和的时间
	;通常
	ELSE
		;恋慕
		IF TALENT:恋慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%给%CALLNAME:TARGET%膝枕了
				PRINTFORMDL %CALLNAME:TARGET%看起来很幸福的样子……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMDW %CALLNAME:MASTER%一边给%CALLNAME:TARGET%膝枕着、一边给她的脸做着按摩
						PRINTFORML 「――啊啊、极乐极乐」
						PRINTFORMW 「感觉要变成废人了……」
					CASE 1
						PRINTFORML 「呼……果然还是非你的膝枕不可呐」
						PRINTFORML 「那么、我稍微休息一下」
						PRINTFORMDW %CALLNAME:TARGET%这么说着、闭上了眼睛……
					CASE 2
						PRINTFORML 「买你的膝枕需要多少钱？」
						PRINTFORML 「――什么嘛、意外的很便宜嘛……んっ」
						;本体地の文の流用改変
						PRINTFORMDW %CALLNAME:TARGET%从膝盖上起来、朝%CALLNAME:MASTER%吻了过去……
						EXP:接吻経験 ++
						EXP:MASTER:接吻経験 ++
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%给%CALLNAME:TARGET%膝枕了
				PRINTFORMDL %CALLNAME:TARGET%悠然自得的躺着……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「啊？ 腿麻了？」
						PRINTFORML 「真拿你没办法……来、交换一下」
						PRINTFORMDW %CALLNAME:MASTER%再腿恢复好之前一直享受着%CALLNAME:TARGET%的膝枕……
					CASE 1
						PRINTFORML 「掏耳朵？ 啊ー、说的是呐……」
						PRINTFORML 「那么就拜托了哦。你很会掏来着」
						PRINTFORMDW %CALLNAME:TARGET%稍微变化了下体式、剩下的交给了%CALLNAME:MASTER%
					CASE 2
						PRINTFORML 「那么、在这之后要干什么呢……」
						PRINTFORML 「去洗个澡清爽一下吧……」
						PRINTFORML 「还是说和你来一发呢……」
						PRINTFORML 「亦或者说、两种同时……嘛、总之先喝酒吧」
						PRINTFORMDW %CALLNAME:TARGET%直起身子、朝杯子里倒酒
				ENDSELECT
			ENDIF
		;思慕
		ELSEIF TALENT:思慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%给%CALLNAME:TARGET%膝枕了
				PRINTFORMDL %CALLNAME:TARGET%很放松的样子……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「稍微有点想睡了……%MASTERNAME:64%、膝盖借我用用」
						PRINTFORMDL %CALLNAME:TARGET%横躺着枕在%CALLNAME:MASTER%的膝盖上
						PRINTFORMDW ……稍微过了一会儿、从%CALLNAME:TARGET%发出了安心的鼾声
					CASE 1
						PRINTFORML 「这样枕着人类的膝盖、安稳的睡觉……什么的」
						PRINTFORML 「如果对以前的我这么说的话、一定不会相信的吧……」
						PRINTFORMDW %CALLNAME:TARGET%闭上眼睛、微笑着说到
					CASE 2
						PRINTFORML 「最近如果枕的不是你的膝枕的话、就总觉得脖子不太舒服」
						PRINTFORML 「对了、干脆你就当我专用的枕头吧？」
						PRINTFORML 「只要每天我睡觉的时候借出膝枕的简单工作哦。有工资的哦」
						PRINTFORMDW 那样的话膝盖会很不妙，%CALLNAME:MASTER%郑重的拒绝了%CALLNAME:TARGET%
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%给%CALLNAME:TARGET%膝枕了
				PRINTFORMDL %CALLNAME:TARGET%快乐的享受了这段时间……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「啊、要给我膝枕吗？」
						PRINTFORML 「那么我就不客气了」
						PRINTFORMDW %CALLNAME:TARGET%躺了下来、枕在了%CALLNAME:MASTER%的膝盖上
					CASE 1
						PRINTFORMDL %CALLNAME:TARGET%一边放松着、一边时不时的抬起头喝酒
						PRINTFORML 「――这种时候还要喝酒？ 啊啊、是呐」
						PRINTFORMW 「鬼就是这种种族啦。没对你说过吗？」
					CASE 2
						PRINTFORML 「腿麻了？ 哈哈哈哈っ、是嘛是嘛」
						PRINTFORML 「那么……我就起来吧！」
						PRINTFORMDW %CALLNAME:TARGET%老实的起来了
				ENDSELECT
			ENDIF
		;それ以外
		ELSE
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%给%CALLNAME:TARGET%膝枕了
				PRINTFORMDL %CALLNAME:TARGET%打了个哈欠……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「――躺着怎样？ 嘛还不错」
						PRINTFORML 「你才是不觉得难受吗？」
						PRINTFORMDW %CALLNAME:TARGET%伸了个懒腰……
					CASE 1
						PRINTFORML 「记得也有一觉起来角把枕头刺穿了的事呐……」
						PRINTFORML 「才不是怎么了、你可要小心点哦？」
						PRINTFORMDW %CALLNAME:MASTER%为了防止%CALLNAME:TARGET%翻身，用手固定住了她的头部
					CASE 2
						PRINTFORML 「我的信条就是不欠别人的债呐」
						PRINTFORML 「那么、要不要我来给你膝枕」
						PRINTFORMDW %CALLNAME:TARGET%直起上身、朝自己腿部拍了拍
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%给%CALLNAME:TARGET%膝枕了
				PRINTFORMDL %CALLNAME:TARGET%显得很不自在…
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「稍微休息一下？ 我并没有觉得很累哦？」
						PRINTFORMDL 『挺话』%CALLNAME:MASTER%这么说着强迫%CALLNAME:TARGET%枕在了自己腿上
						PRINTFORMW 「哦、真是个顽固的家伙……嘛、我也不讨厌这样就是了」
					CASE 1
						PRINTFORML 「你要让我枕的话我就心怀感激的枕上去了」
						PRINTFORMDL %CALLNAME:TARGET%横躺着枕了上去……但、很快就又起来了
						PRINTFORML 「唔ー嗯……果然这种事情还是算了吧」
						PRINTFORMW 「啊啊、倒是要感谢一下借给我膝枕这件事呐。谢谢了」
					CASE 2
						PRINTFORML 「好意我是心领了呐……」
						PRINTFORMDW %CALLNAME:TARGET%好像还很不习惯这种事情……
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
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_K64_350
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_350_1
RETURN RESULT

;推倒に失敗したくらいで反発は姐さんらしくないよね
@M_KOJO_EXTRASOURCE_COM_K64_350
	SOURCE:反感 = 0

@M_KOJO_MESSAGE_COM_K64_350_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;推倒失敗
	IF TFLAG:194
		;判定
		SELECTCASE TFLAG:194
			;人目がある
			CASE 1
				PRINTFORML 「在别人面前情緒高涨起来什么的、嘛也没什么不好……」
				PRINTFORML 「但是要做那种事情的话、多少还差点意思」
				PRINTFORMDW %CALLNAME:TARGET%这么说着从%CALLNAME:MASTER%怀中溜了出去
			;野外は嫌でござりまする
			CASE 2
				PRINTFORML 「怎么了、忍耐不住了吗？」
				PRINTFORML 「――再稍微忍耐一下。回去会好好帮你榨出来的」
				PRINTFORMDW 被贴耳说出这样的话让%CALLNAME:MASTER%不由得咽了口唾沫……
			;多人数プレイは勘弁
			CASE 3
				PRINTFORML 「真不巧、现在我没那种心情」
				PRINTFORML 「啊啊、你们想搞的话就无视我继续搞好了」
				PRINTFORMDW %CALLNAME:TARGET%看起来只想两个人独处的时候搞的样子……
			;合意があっても情緒が足りぬ
			CASE 4
				PRINTFORML 「想要做？ 啊啊、稍微等一会儿」
				PRINTFORML 「再稍微喝点酒也不急的咯？」
				PRINTFORMDW %CALLNAME:TARGET%这么说着、往空了的酒杯里住满了酒
		ENDSELECT
	;初次拥抱
	ELSEIF TCVAR:初次拥抱
		;判定
		SELECTCASE TCVAR:初次拥抱
			;まんざらでもない
			CASE 6
				PRINTFORML 「想要抱我？ 抱我？ 哈哈哈哈ッ！」
				PRINTFORML 「想要吃掉我的话、就先和我比力气赢了再说呐！」
				PRINTFORMDW 以为在開玩笑的%CALLNAME:TARGET%笑了出来
			;駄目
			CASE 7
				PRINTFORML 「如果想要找喝酒的对象的话、我随时奉陪」
				PRINTFORML 「但如果想要做的话就去找别的家伙去吧。如你所见、我很忙的」
				PRINTFORMDW %CALLNAME:TARGET%朝%CALLNAME:MASTER%背过身去、重新開始喝了起来
			;論外
			CASE 8
				PRINTFORML 「想要做的话、就去旧地狱温泉街吧」
				PRINTFORML 「搬出我的名字的话、不管多少漂亮姑娘都会给你准备好的哦」
				PRINTFORMDW 表示想要和%CALLNAME:TARGET%sex、但是看起来没被当作对象的样子……
			;成功
			CASEELSE
				;恋慕
				IF TALENT:恋慕
					PRINTFORML 「终于有了那方面的想法了吗」
					PRINTFORML 「我都快要等不及了哦」
					PRINTFORMDW %CALLNAME:TARGET%这么说着、等不及的似的将%CALLNAME:MASTER%的衣服扒了下来……
				;それ以外
				ELSE
					PRINTFORML 「对我来说比起做爱喝酒才更快乐呐」
					PRINTFORML 「……嘛、决定要做的话就让我好好尽兴哟」
					PRINTFORMDW %CALLNAME:TARGET%将酒杯放到了一边、朝%CALLNAME:MASTER%褪下了衣服……
				ENDIF
		ENDSELECT
	;妊娠中
	ELSEIF TALENT:妊娠
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「怎么了、担心肚子里的孩子吗？ 就算不那么担心也没关系哦」
				PRINTFORML 「我们的孩子才不会因为这种小事出什么问题」
				PRINTFORML 「鬼不会说谎。所以你就好好面对自己的欲望吧♪」
				PRINTFORMDW %CALLNAME:TARGET%抓住%CALLNAME:MASTER%的股间温柔的抚摸起来、%CALLNAME:MASTER%立马就不争气的勃起了
			CASE 1
				PRINTFORML 「呼呼呼、就要这样才行」
				PRINTFORML 「不需要装模做样的顾虑那么多」
				PRINTFORMW 「让我们尽情享受吧。呐？」
			CASE 2
				PRINTFORML 「我和肚子里的孩子、要让我们两边都快乐起来哟？」
				PRINTFORMDL %CALLNAME:TARGET%抚摸着膨胀着的肚子、朝%CALLNAME:MASTER%投去了期待的目光
				PRINTFORMDW ――看起来并不用担心什么。%CALLNAME:MASTER%推倒了%CALLNAME:TARGET%、把手放到了她的衣服上……
		ENDSELECT
	;通常
	ELSE
		;恋慕
		IF TALENT:恋慕
			;危険日かつ危険日生Ｈ解禁済
			IF CFLAG:900 == 7 && CFLAG:允许无套 >= 2
				PRINTFORMDL %CALLNAME:MASTER%一边亲吻着%CALLNAME:TARGET%的后颈、一边肆意玩弄着她那丰满的身体
				PRINTFORML 「喂、稍微等一下……先准备一下」
				PRINTFORML 「说起来%MASTERNAME:64%、今天可是『那种日子』……」
				CALL HPH_PRINT,@"「……都这么说了你明白的吧？HPH」","L"
				PRINTFORMDW 是想象到了怀上%CALLNAME:MASTER%的孩子的事情了吗、%CALLNAME:TARGET%看起来比平常积极多了
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「那么、到底是谁会先投降呢……」
						CALL HPH_PRINT,@"「――呼呼呼、我很期待哟HPH」","L"
						PRINTFORMDW 堵上尊严的鬼与人的胜负開始了……！
					CASE 1
						PRINTFORML 「小弟弟已经立起来了啊……就这么等不及了吗？」
						PRINTFORMDL %CALLNAME:MASTER%点了点头、%CALLNAME:TARGET%露出了妖艳的微笑
						CALL HPH_PRINT,@"「啊啊那可真是抱歉了……那么、一直做到它站不起来为止吧HPH」","W"
					CASE 2
						CALL HPH_PRINT,@"「嘶……哈……HPH 我要等不及了啊……HPH」","L"
						CALL HPH_PRINT,@"「快点、快点插进来吧……HPH」","L"
						PRINTFORMDW 被股间的巨物散发的雄性气息所吸引、%CALLNAME:TARGET%发情了的样子……
						SIF !TCVAR:発情
							TCVAR:発情 = 1
				ENDSELECT
			ENDIF
		;それ以外
		ELSE
			;危険日に親密20未満だと避妊薬飲んじゃう
			IF CFLAG:900 == 7 && ABL:親密 < 20 && !TCVAR:口服避孕薬
				PRINTFORML 「是说、在做之前……咕咚」
				PRINTFORMDL %CALLNAME:TARGET%取出一剂药剂、一口气喝了下去
				PRINTFORML 「呼……啊啊这个吗？ 是避妊薬哦」
				PRINTFORML 「怀上的话对我们俩来说都很麻烦的吧？ 」
				PRINTFORMDW 如果再亲密一点的话或许才会允许做小孩吧……
				TCVAR:口服避孕薬 = 1
			;危険日かつ危険日生Ｈ解禁済
			ELSEIF CFLAG:900 == 7 && CFLAG:允许无套 >= 2
				PRINTFORML 「%MASTERNAME:64%、还记得和我的约定吗？」
				PRINTFORMDL 『怀孕的话就好好负起责任』和%CALLNAME:TARGET%这么约定过了
				PRINTFORML 「那就好。那么、開始做吧」
				PRINTFORMW 「――開始做小宝宝吧♪」
			;それ以外
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「稍微等一下呐……咕咚」
						PRINTFORML 「呼……好、来干吧！」
						PRINTFORMDW %CALLNAME:TARGET%一口气喝光了酒杯、扔到了一边
						BASE:酒気 += 20
					CASE 1
						PRINTFORML 「呼呼呼、年轻真好呐。只是看到小穴就已经变成这样了」
						PRINTFORML 「――我也来了兴致了。来、要来揉揉欧派吗」
						PRINTFORMDW %CALLNAME:TARGET%将%CALLNAME:MASTER%已经勃起的根部掏了出来、然后张開了双腿……
					CASE 2
						PRINTFORML 「在我满足之前可不要轻易倒下哦？」
						PRINTFORMW 「我可是很期待你的。各种方面的呐」
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;351,帯出去
;==================================================
@M_KOJO_MESSAGE_COM_K64_351
;連れ出しにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K64_351_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_351_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;TARGET連れ出し
	IF CFLAG:同行 == 60
		;恋慕
		IF TALENT:恋慕
			PRINTFORML 「哦、%MASTERNAME:64%。要去哪里啊？」
			PRINTFORML 「也带我一起去吧！」
			PRINTFORMDW %CALLNAME:TARGET%跟了过来
		;思慕
		ELSEIF TALENT:思慕
			PRINTFORML 「所以、找我有什么事？」
			PRINTFORMW 「保密？ 什么嘛、告诉我又不会少块肉！」
		;それ以外
		ELSE
			PRINTFORML 「找我有什么事？」
			PRINTFORMDW %CALLNAME:MASTER%带上%CALLNAME:TARGET%一起行动了
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;352,告白
;FLAG:甲斐性無(1=失敗)
;TFLAG:193 (1=成功 0=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K64_352
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功

;書き分けが面倒なので恋慕が無い場合は強制失敗するように
IF !TALENT:恋慕
	TFLAG:192 =-1
;恋慕がある場合はCOM依存
ELSE
	TFLAG:192 =0
ENDIF

@M_KOJO_MESSAGE_COM_K64_352
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_352_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_352_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;成功
	IF TFLAG:193 == 1
		PRINTFORMW 「――啊哈哈哈哈哈哈ッ！！！」
		PRINTFORMDW %CALLNAME:TARGET%在%CALLNAME:MASTER%告白的时候一瞬露出了惊呆了的表情、随后便大声笑了出来
		PRINTFORMW 「没想到、居然被抢先了一步呐」
		PRINTFORMW 「早知道会这样的话就早一点先说了！！」
		PRINTFORMDW 这是怎么回事……
		PRINTFORMW 「我也喜欢%MASTERNAME:64%」
		PRINTFORMW 「不是作为朋友、而是作为一个女人的喜欢」
		PRINTFORMW 「虽然被你抢先告白了有点后悔、但这是我真心实意的想法」
		PRINTFORMW 「所以说……唔、那个……啊啊、突然有点不好意思了」
		PRINTFORMW 「嘛、就是那个！ 一边喝着酒一边慢慢来谈吧」
		PRINTFORMW 「――关于我们的未来的事♪」
		PRINTFORMDL %CALLNAME:TARGET%像平常一样拿出了杯子
		PRINTFORMDW 就连%CALLNAME:MASTER%也看得出来，她是在极力掩饰自己的害羞……
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;353,猥褻
;FLAG:甲斐性無(1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K64_353
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_353_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;354,陪睡（相手は起きて被窝に招く感じ）
;CFLAG:衰弱(1以上=起きない
;CFLAG:招待(0以外=起きない
;==================================================
@M_KOJO_MESSAGE_COM_K64_354
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_354_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;355,時止め（地の文の改変程度に留めるべき
;==================================================
@M_KOJO_MESSAGE_COM_K64_355
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_355_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;356,邀请去阴暗处
;ABL:露出癖 + TALENT:羞恥心で判定
;==================================================
@M_KOJO_SUCCESS_COM_K64_356
;成否判定
;TFLAG:192(-1＝強制失敗、0=COM依存、1=強制成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_356
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_356_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_356_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;恋慕
	IF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「在这里的话说不定会被谁看到呐……」
				PRINTFORMW 「嘛、那就到时候再说吧。只要堂堂正正的就好了♪」
			CASE 1
				PRINTFORML 「没关系的、谁都不会来的」
				PRINTFORML 「而且、现在才说不要我可不准哦」
				PRINTFORMDL %CALLNAME:TARGET%抓住%CALLNAME:MASTER%的股间、不断的摩擦起来
				PRINTFORMDW 因为在意别人目光而萎下去的%CALLNAME:MASTER%的小弟、也因为不断地摩擦而取回了完美的硬度
				;你の勃起値プラス
				BASE:MASTER:勃起 += 1000
			CASE 2
				PRINTFORML 「――啊啊、快点開始吧」
				CALL HPH_PRINT,@"「即便隔着衣服我也能闻到你那臭臭的小弟弟的味道呐……HPH」","L"
				PRINTFORMDW 看着因为勃起顶起来的裤子、%CALLNAME:TARGET%舔了舔舌头……
		ENDSELECT
	;それ以外
	ELSE
		;推倒から避妊薬を飲む分岐を読み込む
		IF CFLAG:900 == 7 && ABL:親密 < 20 && !TCVAR:口服避孕薬
			CALL M_KOJO_MESSAGE_COM_K64_350_1
		;それ以外
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「怎么了、这么着急？」
					PRINTFORMW 「那么就、让你好好舒服舒服吧」
				CASE 1
					PRINTFORML 「就算不那么强硬我也不会拒绝的啦」
					PRINTFORMW 「那就、快点把小弟弟逃出来吧。我来做你的对象」
				CASE 2
					PRINTFORMDL %CALLNAME:MASTER%确认了周围没有人之后、抱住了%CALLNAME:TARGET%……
					PRINTFORML 「什么嘛、被人看到的话会很在意吗？」
					PRINTFORMW 「我倒是不怎么在意的说……」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;360,任憑擺佈
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=裙子の中を見せる 53=乳交 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅき礼堂ド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_MESSAGE_COM_K64_360
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_360_1
RETURN RESULT

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

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

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

ENDIF
RETURN 1

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

@M_KOJO_MESSAGE_COM_K64_363
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_363_1
RETURN RESULT

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

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

;勇儀姐さんなら笑着受け止めてくれるはず
@M_KOJO_EXTRASOURCE_COM_K64_364
SOURCE:反感 = 0

@M_KOJO_MESSAGE_COM_K64_364_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;その日の初回
	IF TCVAR:64:354 == 0
		PRINTFORMW 「啊ー、说起来也到这个季节了呐」
		PRINTFORMW 「喂、你也来扔扔看吧」
		PRINTFORMDW %CALLNAME:MASTER%朝%CALLNAME:TARGET%扔出了豆子
		PRINTFORMW 「哼っ！」
		PRINTFORMDW ――豆子被%CALLNAME:TARGET%抓住了
		PRINTFORMDW %CALLNAME:TARGET%张開手掌、里边是被捏的粉碎的豆子
		PRINTFORMW 「哼哼。以为到了节分鬼就会乖乖的被你们扔吗」
		PRINTFORMW 「想朝我扔豆子就拿出决死的气势……啊？！！」
		PRINTFORMDW %CALLNAME:MASTER%又一次投出的豆子。偶然的击中了%CALLNAME:TARGET%的眼睛
		PRINTFORMDW 面对蹲下来捂着眼睛的%CALLNAME:TARGET%、%CALLNAME:MASTER%持续不断的朝她投掷着豆子……
		TCVAR:64:354 = 1
	;二回目以降
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「说起来、萃香好像因为节分到了干劲十足的样子呐」
				PRINTFORML 「如果被那家伙拜托了的话――不需要手下留情。使劲的砸就好了」
				PRINTFORMDW 到时候就那样做吧。但总之%CALLNAME:MASTER%还是先像面前的这只鬼投豆子好了
			CASE 1
				PRINTFORML 「哈哈哈哈！ 今天不用客气！」
				PRINTFORML 「使劲的扔吧！ 这是人类的特权哟！」
				PRINTFORMDW %CALLNAME:MASTER%朝双手抱胸径直矗立的%CALLNAME:TARGET%扔了个爽
			CASE 2
				PRINTFORML 「来啊来啊！要吃掉你了哦！」
				PRINTFORML 「不想死的话、就拼命的朝这边扔豆子吧！」
				PRINTFORMDW %CALLNAME:TARGET%十分乐在其中的样子……
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;365,向守矢神社移動(早苗、神奈子、諏訪子用
;==================================================
@M_KOJO_MESSAGE_COM_K64_365
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_365_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;368,陪同行動
;技能系の行動は技能レベルが1以上なら発生
;==================================================
@M_KOJO_MESSAGE_COM_K64_368
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_368_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_368_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE Activity_Type:TARGET
		CASE 0
			;▼考え事［在思考什麼］
			;TFLAG:193,-1=はぐらかされる
			;PRINTFORMW
		CASE 1
			;▼玩遊戲［一起玩］
			;※[幼稚]持ちのみ
			;TFLAG:193,1=大いに盛り上がる,-1=あまり盛り上がらない
			;PRINTFORMW
		CASE 2
			;▼吃飯［一起吃飯］
			;TFLAG:193,-1=MASTERはお腹が空いてなかった
			;PRINTFORMW
		CASE 3
			;▼つまみ食い［一起吃小零食］
			;※[妖精]持ちと露米亜、恋、幽幽子、紫苑のみ
			;TFLAG:193,-1=MASTERはお腹が空いてなかった
			;PRINTFORMW
		CASE 4
			;▼掃除［幫忙掃除］
			;※[掃除係]持ちまたは汚臭耐性-1以下のみ
			;PRINTFORMW
		CASE 5
			;▼運動［一起做運動］
			;※[音楽知識]持ちは除く（演奏になる）
			;PRINTFORMW
		CASE 6
			;▼読書［詢問閱讀感想］
			;TFLAG:193,-1=集中していて返事してくれない
			;PRINTFORMW
		CASE 7
			;▼料理［幫忙做飯］→［求分點飯菜］
			;TFLAG:193,2=幫忙做飯,0=作った料理を食べる,-1==MASTERはお腹が空いてなかった（食べる時）
			;PRINTFORMW
		CASE 8
			;▼演奏［協同合奏］or［进行伴奏］
			;※[音楽知識]持ちのみ（TALENT:音楽知識で変化）
			;TALENT:音楽知識,1=演奏してる,2=歌ってる,3=踊ってる
			;TFLAG:193,1=ノリノリ,0=成功,-1=失敗,-2=楽器がなくて見てるだけ
			;PRINTFORMW
		CASE 9
			;▼採集［幫忙採集］
			;PRINTFORMW
		CASE 10
			;▼釣魚［一起釣魚］
			;TFLAG:193,-1=釣魚竿がなくて見てるだけ
			;PRINTFORMW
		CASE 11
			;▼実験［帮忙做实验］
			;PRINTFORMW
		CASE 12
			;▼のんびり［一起放鬆］
			;PRINTFORMW
		CASE 13
			;▼晩酌［晩酌に交手］
			;※酒耐性0以上のみ
			;PRINTFORMW
		CASE 14
			;▼買い物［幫忙买東西］
			;PRINTFORMW
		CASE 15
			;▼説教［様子をうかがう］
			;※神霊・蓬莱人は除く
			;TFLAG:193,-1
			;PRINTFORMW
		CASE 16
			;▼落とし穴［いたずらに交手］or［様子をうかがう］
			;※三月精・琪露諾・克勞恩皮絲のみ
			;それ以外は落ちる側
			;PRINTFORMW
		CASE 17
			;▼雪だるま作り［一緒に雪作り］
			;※冬之月のみ
			;PRINTFORMW
		CASE 18
			;▼炬燵でのんびり［炬燵でくつろぐ］
			;※冬之月のみ
			;PRINTFORMW
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;402,就寝
;TFLAG:193(0=通常 1=兒童と一緒に川の字で寝る)
;==================================================
@M_KOJO_MESSAGE_COM_K64_402
;就寝にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K64_402_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_402_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;待客室で勇儀が恋慕じゃないor勇儀が睡眠中・衰弱中・主人公的房間にお泊りの場合はこれ
	IF (!TALENT:恋慕 && CFLAG:MASTER:現在位置 == OMANEKIBEYA()) || (CFLAG:睡眠 || CFLAG:衰弱 || FLAG:一時滞在 == 64)
		PRINTFORML 「唔ぅ……呼ぅ……」
		PRINTFORMDW %CALLNAME:MASTER%躺在了安稳睡下的%CALLNAME:TARGET%的身边、闭上了眼睛……
	;一緒に寝る
	ELSEIF CFLAG:MASTER:現在位置 == CFLAG:初期位置
		;兒童と一緒に川の字で寝る
		IF TFLAG:193 == 1
			PRINTFORML 「小不点……已经睡着了吗」
			PRINTFORML 「那么、我们也開始睡吧」
			PRINTFORMDW 将孩子放在中间、一家人呈川字形睡了起来
		;それ以外
		ELSEIF !CFLAG:陪睡中
			PRINTFORML 「那么、差不多该睡了吧」
			PRINTFORMDL %CALLNAME:TARGET%收拾起了酒瓶、%CALLNAME:MASTER%铺起了被褥
			PRINTFORMDL 一套被子两个枕头。现在已经成了理所当然的情景了
			PRINTFORML 「――好、要关灯了哦」
			PRINTFORMDW 将照亮屋内的灯关掉、%CALLNAME:TARGET%钻入了被窝之中
		ENDIF
		PRINTFORMW 「……晚安、%MASTERNAME:64%」
		PRINTFORMDL ………
		PRINTFORMDL ……
		PRINTFORMDW …
	;通常
	ELSE
		;恋慕かつ３分の１の確率
		IF TALENT:恋慕 && !RAND:3
			PRINTFORML 「今天已经结束了？ 明明现在才是刚刚開始」
			PRINTFORMDW %CALLNAME:TARGET%好像很期待和%CALLNAME:MASTER%一起的晚酌
			CALL ASK_M("陪她喝上一杯", 1, "睡觉", 1,)
			SELECTCASE RESULT
				;交手
				CASE 0
					PRINTFORML 「哼哼、这不是很明白的吗」
					PRINTFORMW 「来、坐这边！ 我来给你倒酒」
					PRINTFORMDW ………
					PRINTFORMDW %CALLNAME:TARGET%一直喝着酒、直到天空開始微微泛白……
					CFLAG:MASTER:徹夜 = 1
					CALL CHANGE_CFLAG(2, 64, 300)
				;寝る
				CASE 1
					PRINTFORML 「哈……明明我还很期待的说呐……」
					PRINTFORMDW %CALLNAME:MASTER%睡下之后、%CALLNAME:TARGET%十分遗憾的从屋子里出去了
			ENDSELECT
		;それ以外
		ELSE
			PRINTFORMW 「哦、晚安！」
			;你の自室で３分の１の確率
			IF CFLAG:MASTER:現在位置 != OMANEKIBEYA() && !RAND:3
				PRINTFORMW
				PRINTFORMDL %CALLNAME:MASTER%刚闭上眼睛就听到了開瓶声
				PRINTFORMDW 该不会、是准备在这里喝酒吧……
				PRINTFORML 「啊？ 还没睡着吗？」
				PRINTFORMW 「给、这个很适合当睡前酒」
				PRINTFORMDL 感激不尽……感激不尽呐……
				PRINTFORMDW %CALLNAME:TARGET%如果愿意回去的话那就更加感激不尽了……
			ENDIF
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;403,休憩
;CFLAG:TARGET:睡眠(1=TARGETが寝てる隣で休憩
;==================================================
@M_KOJO_MESSAGE_COM_K64_403
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_403_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_403_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
		PRINTFORML 「咕……ｚｚｚ……」
		PRINTFORMDW %CALLNAME:TARGET%熟睡中……
	;通常
	ELSE
		;恋慕
		IF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「怎么了、累了吗？」
					PRINTFORML 「那么的话来、我来给你膝枕」
					PRINTFORMDW %CALLNAME:MASTER%枕着%CALLNAME:TARGET%的膝枕好好的休息了
				CASE 1
					PRINTFORML 「嗯？ 为什么不喝酒吗？」
					PRINTFORML 「啊啊、稍微休息一下呐」
					PRINTFORMDW %CALLNAME:TARGET%拍了拍肚子。今天是想让肝休息吗……？
				CASE 2
					PRINTFORML 「这种时候就该慢慢的享用美酒」
					PRINTFORML 「%MASTERNAME:64%也要来一杯吗？」
					PRINTFORMDW %CALLNAME:MASTER%和%CALLNAME:TARGET%一遍喝酒一遍聊了起来……
					BASE:酒気 += 20
					BASE:MASTER:酒気 += 20
			ENDSELECT
		;それ以外
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「――好无聊啊。玩点什么好呢……」
					PRINTFORMDL %CALLNAME:TARGET%看了看四周……看到%CALLNAME:MASTER%突然咧嘴一笑
					PRINTFORML 「正好有个合适的对象呐。要来陪我哦」
					PRINTFORMDW %CALLNAME:MASTER%被强制着陪%CALLNAME:TARGET%解闷了……
				CASE 1
					PRINTFORML 「什么也不做吗？」
					PRINTFORML 「那样的话、我就擅自開始喝酒了哦」
					PRINTFORMDW %CALLNAME:TARGET%做到发呆的%CALLNAME:MASTER%身边開始喝起酒来
					BASE:酒気 += 20
				CASE 2
					PRINTFORML 「好不容易的机会、一边喝酒一边聊天吧」
					PRINTFORML 「和我们相比人类的寿命很短。再多给我说些关于你的事吧」
					PRINTFORMDW %CALLNAME:MASTER%接过了酒杯之后、開始对%CALLNAME:TARGET%说起来关于自己的事……
					BASE:酒気 += 20
					BASE:MASTER:酒気 += 20
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;405,外出(同行時约会
;条件が厄介なので、COMF405 外出.ERBを参照のこと
;==================================================
@M_KOJO_MESSAGE_COM_K64_405
;外出にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K64_405_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_405_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	IF CFLAG:睡眠
		PRINTFORML 「呼……嘶……」
		PRINTFORMDW %CALLNAME:MASTER%用尽量不打扰熟睡中的%CALLNAME:TARGET%的动作起身离開了
	;通常
	ELSE
		;TARGETと约会
		IF CFLAG:同行
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「所以、决定好要去哪里了吗？」
				PRINTFORMDL %CALLNAME:MASTER%给%CALLNAME:TARGET%说了说关于今天行程的话题
				PRINTFORMW 「嗯、听起来很有趣的样子。我很期待哟！」
			;思慕
			ELSEIF TALENT:思慕
				PRINTFORML 「所以、要去哪里喝酒？」
				PRINTFORMDL 根本没说过要去喝酒……
				PRINTFORMW 「有一半是在说笑啦！ 那么、要去哪里呢」
			;それ以外
			ELSE
				PRINTFORML 「正好无聊着呢」
				PRINTFORML 「听起来很有趣、我就跟你一起吧」
				PRINTFORMDW %CALLNAME:TARGET%很轻易的就答应了
			ENDIF
		;お出掛けお見送り
		ELSEIF !CFLAG:MASTER:同行
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「喔、一路小心呐」
				PRINTFORML 「我就去温泉之类的什么地方吧」
				PRINTFORMDW %CALLNAME:TARGET%一路目送着%CALLNAME:MASTER%
			;思慕
			ELSEIF TALENT:思慕
				PRINTFORML 「嗯、要一个人外出吗？」
				PRINTFORML 「……啊啊、原来如此。是这样啊」
				PRINTFORMDW 放下来和%CALLNAME:TARGET%牵着的小指，%CALLNAME:MASTER%离開了
			;それ以外
			ELSE
				PRINTFORML 「是说、仓库里的酒也喝的差不多了……」
				PRINTFORML 「呐、出去的话能顺便去酒屋之类的地方一趟吗？ 会给你钱的」
				PRINTFORMDW 并没有打算当跑腿的。果断的这么说了之后%CALLNAME:TARGET%不知道为什么好像露出了满足的表情
			ENDIF
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;410,掃除
;FLAG:70(1=時間停止中
;TFLAG:193(0=見てるだけ 1=一緒に掃除)
;TFLAG:194(3=汚れ高 2=汚れ中 1=汚れ低 0=汚れ最小
;OUTROOF(CFLAG:現在位置)(野外掃除（冬は扫雪
;==================================================
@M_KOJO_MESSAGE_COM_K64_410
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_410_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_410_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
		PRINTFORML 「呼……ｚｚｚ……」
		PRINTFORMDW %CALLNAME:MASTER%小心的收拾着睡着了的%CALLNAME:TARGET%周围乱扔的酒瓶
	;時間停止中
	ELSEIF FLAG:時間停止
		PRINTFORML
		RETURN 1
	;通常
	ELSE
		;判定
		SELECTCASE TFLAG:193
			;見てるだけ
			CASE 0
				;汚れ高
				IF TFLAG:194 >= 3
					SELECTCASE RAND:3
						CASE 0
							PRINTFORMDL 不管怎么打扫垃圾都不见减少的样子……
							PRINTFORML 「再怎么抱怨活也不会减少」
							PRINTFORML 「决定要做了的话就干净利落的做」
							PRINTFORMDW 这么说着的%CALLNAME:TARGET%似乎只打算旁观的样子……
						CASE 1
							PRINTFORML 「我倒是觉得没那么脏」
							PRINTFORML 「你看、还有地方可以走不是吗」
							PRINTFORMDW 看起来常年呆在地底的%CALLNAME:TARGET%的某些感官已经麻痹了的样子
						CASE 2
							PRINTFORML 「哦、这个东西看起来还能用的样子」
							PRINTFORML 「反正本来也要扔的、我就赏给你好了」
							PRINTFORMDW %CALLNAME:TARGET%在垃圾堆里寻宝中。很闲的话倒是希望能搭把手……
					ENDSELECT
				;汚れ中以下
				ELSE
					SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「反正很快就又脏了不用管也没关系的说」
							PRINTFORMDL 那可不行、%CALLNAME:MASTER%沉默着收拾着垃圾
							PRINTFORMW 「嘛、加油吧。我就在这边喝酒好了」
						CASE 1
							PRINTFORML 「别干了来这边和我一起喝酒好啦」
							PRINTFORMDL 那样的话会增加更多的垃圾的吧……
							PRINTFORMDW %CALLNAME:MASTER%坚决的拒绝了%CALLNAME:TARGET%
						CASE 2
							PRINTFORML 「这种程度的垃圾、放着不管也没人说什么的」
							PRINTFORMDW 堆积起来就会变成垃圾山。%CALLNAME:MASTER%无视着%CALLNAME:TARGET%努力打扫着
					ENDSELECT
				ENDIF
			;一緒に掃除
			CASE 1
				;汚れ高
				IF TFLAG:194 >= 3
					SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「喂~、你那边收拾好了吗ー？」
							PRINTFORMDL 从垃圾山的另一边传来了%CALLNAME:TARGET%的声音
							PRINTFORMW 「我这边马上就好了。需要帮忙的话叫我一下」
						CASE 1
							PRINTFORML 「哦、把这个收拾一下吧」
							PRINTFORMDL 轻松的举起了装满了巨量垃圾的大袋子的%CALLNAME:TARGET%
							PRINTFORMDW 如果能有她那种巨大的力气扫除什么的一定会轻松许多吧……
						CASE 2
							PRINTFORML 「好、来给你放个大招吧！」
							PRINTFORMDL 『你是在说扫除？』%CALLNAME:MASTER%歪过头不解的看着%CALLNAME:TARGET%
							PRINTFORMW 「你在说什么话、那不是当然的吗」
					ENDSELECT
				;汚れ中以下
				ELSE
					SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「不管怎么样我都不擅长打扫呐……」
							PRINTFORML 「有什么不行的地方就不要客气直接说出来哦？」
							PRINTFORMDW %CALLNAME:MASTER%时不时的教导着%CALLNAME:TARGET%扫除
						CASE 1
							PRINTFORML 「扫除扫的很不错嘛」
							PRINTFORML 「真想跟你学学啊」
							PRINTFORMDW %CALLNAME:TARGET%很佩服%CALLNAME:MASTER%的样子
						CASE 2
							PRINTFORML 「明白了、如果那样就能麻利的结束的话」
							PRINTFORML 「那么接下来就是我这边的事了。让你看看山之四天王认真起来的样子吧！」
							PRINTFORMDW %CALLNAME:TARGET%同时拿起来大量的垃圾袋、十分轻松的运送着……
					ENDSELECT
				ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;411,戦闘訓練
;TFLAG:194(3=夏の昼間 2=ヤバい天気 1=悪天候 0=屋内or通常天気
;==================================================
@M_KOJO_MESSAGE_COM_K64_411
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_COM_K64_411_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_411_1

#DIM 正解
#DIM 経験値
#DIM 制限時間
#DIM 倍率
#DIM FEINT
#DIM イカサマ
VARSET LOCAL
イカサマ = 0
制限時間 = 2000 - (ABL:64:戦闘能力 - ABL:MASTER:戦闘能力) * 100

;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;本気の戦闘訓練は一日一回だけ
	IF !TCVAR:64:353
		;特訓デイリーからお借りしました
		CALL M_KOJO_COLOR_K64
		PRINTFORML 「为了变强不吝惜努力、这种心态很不错！」
		PRINTFORML 「就让我山之四天王之一、力之勇仪来帮助你吧！」
		PRINTFORMDW %CALLNAME:TARGET%摩拳擦掌起来、表现出了临战态势
		PRINTFORMW 「那么、准备好了就过来吧！」
		RESETCOLOR
		PRINTFORML
		CALL ASK_YN("訓練開始","果然还是算了")
		IF RESULT
			CALL M_KOJO_COLOR_K64
			PRINTFORML 「怎么了、说想要变强是在说谎吗？」
			PRINTFORMW 「……哈、没心情了。喝酒去了」
			RESETCOLOR
		ELSE
			TCVAR:64:353 = 1
			正解 = RAND:4
			経験値 = MAX(ABL:64:戦闘能力 * 5, 5)
			SELECTCASE RAND:20
				;漢字
				CASE IS <= 11
					LOCALS:0 = 上
					LOCALS:1 = 右
					LOCALS:2 = 左
					LOCALS:3 = 下
					倍率 = 100
				;ひらがな
				CASE 12 TO 15
					LOCALS:0 = 上
					LOCALS:1 = 右
					LOCALS:2 = 左
					LOCALS:3 = 下
					倍率 = 100
				;カタ喀娜
				CASE 16,17,18
					LOCALS:0 = shang
					LOCALS:1 = you
					LOCALS:2 = zuo
					LOCALS:3 = xia
					倍率 = 100
				;スワヒリ語
				CASE 19
					LOCALS:0 = 商
					LOCALS:1 = 有
					LOCALS:2 = 坐
					LOCALS:3 = 瞎
					倍率 = 320
			ENDSELECT
			;你の戦闘能力が高いとフェイントかけてくる
			IF ABL:MASTER:戦闘能力 >= 5 && !RAND:5
				FEINT = 1
				制限時間 += 400
				倍率 += 80
			ELSE
				FEINT = 0
			ENDIF
			CALL FISHER_YATES_SHAFFLE(4)
			PRINTFORMW 躲避%CALLNAME:TARGET%的攻击（点击開始）
			PRINTFORM %CALLNAME:TARGET%の
			SETCOLOR C_YELLOW
			IF FEINT
				PRINTFORM %LOCALS:(RAND:4)%
				RESETCOLOR
				PRINTFORM 的样子但其实是%LOCALS:(3 - 正解)%
			ELSE
				PRINTFORM %LOCALS:(3 - 正解)%
				RESETCOLOR
			ENDIF
			PRINTFORML 而来的攻击！
			$LOOP_IKASAMA
			FOR LOCAL:10,0,4
				LOCAL = SHAFFLE_ARRAY:(LOCAL:10)
				PRINTFORML [{LOCAL}] - 朝%LOCALS:LOCAL%躲避
			NEXT
			SIF !イカサマ && BASE:MASTER:TSP > 500
				PRINTFORML [{4}] - 時間停止
			TINPUT 制限時間, -1, 1
			IF RESULT == 正解
				PRINTFORML %CALLNAME:MASTER%回避了攻击！
				IF !イカサマ
					CALL M_KOJO_COLOR_K64
					PRINTFORMDL 看到攻击被躲開了的%CALLNAME:TARGET%表现出十分惊讶的样子
					PRINTFORMDW %CALLNAME:MASTER%抓住这一瞬间的破绽、用尽全身力气打向%CALLNAME:TARGET%的下颚
					PRINTFORML 「咕――！」
					PRINTFORML 「哈、哈哈ッ！ 这可真是、输了呐」
					PRINTFORMW 「居然能躲过我的认真一击、真是了不起的家伙」
					PRINTFORMDL %CALLNAME:TARGET%的脖子发出卡沙卡沙的响声朝%CALLNAME:MASTER%发出了赞美之词
					PRINTFORMDW %CALLNAME:MASTER%也作为%CALLNAME:TARGET%帮忙训练的回礼、送上了慰劳的话语
					PRINTFORML 「你在隐藏什么、看你的眼睛就知道了」
					PRINTFORMW 「下次就不说训练了、我期待着和你认真的胜负」
					RESETCOLOR
				ELSE
					;二回目以降は２分の１の確率で反撃される
					IF CFLAG:64:1100 && !RAND:2
						CALL M_KOJO_COLOR_K64
						PRINTFORML 「就是这里ッッ！！！」
						PRINTFORMDW %CALLNAME:MASTER%接触时间停止的瞬间、仿佛预料到如此的%CALLNAME:TARGET%的拳头砸了过来
						PRINTFORML 「看你表现的这么游刃有余、我就在想会不会是这样……果然如此呐」
						PRINTFORMW 「说过的吧？『下次就不会这么简单了』」
						PRINTFORMDW ――完全被看穿了。%CALLNAME:MASTER%揉着疼痛的脸颊勉强站了起来
						RESETCOLOR
						BASE:MASTER:体力 -= 1000
						SETCOLOR C_RED
						FONTBOLD
						PRINTFORMW 受到了猛烈的攻击的%CALLNAME:MASTER%的体力大幅度减少了
						FONTREGULAR
						RESETCOLOR
					;通常
					ELSE
						CALL M_KOJO_COLOR_K64
						PRINTFORMDL %CALLNAME:MASTER%停止了时间绕到了%CALLNAME:TARGET%背后、将手放到了她的肩膀
						PRINTFORML 「――原来如此呐。这就是你的能力吗」
						PRINTFORMW 「那么、下次就不会这么简单了」
						RESETCOLOR
						SIF !CFLAG:64:1100
							CFLAG:64:1100 = 1
					ENDIF
				ENDIF
				BASE:MASTER:体力 -= 100 * (1 + ABL:64:戦闘能力)
				BASE:MASTER:気力 -= 100 * (1 + ABL:64:戦闘能力)
				経験値 = 経験値 * 倍率 / 100
				EXP:MASTER:戦闘経験 += 経験値
				EXP:64:戦闘経験 += 経験値 * 2
				CFLAG:64:好感度 += 経験値 * 2
				CFLAG:64:信賴度 += 経験値 * 2
				PRINTFORML 戦闘経験 ＋{経験値}（%CALLNAME:MASTER%）
				PRINTFORML 戦闘経験 ＋{経験値 * 2}（%CALLNAME:TARGET%）
				PRINTFORML 好感度 ＋{経験値 * 2}（%CALLNAME:TARGET%）
				PRINTFORML 信賴度 ＋{経験値 * 2}（%CALLNAME:TARGET%）
			ELSEIF RESULT == 4 && !イカサマ && BASE:MASTER:TSP > 500
				イカサマ = 1
				倍率 /= 5
				PRINTFORMW %CALLNAME:MASTER%发动时间停止看清楚了攻击！
				GOTO LOOP_IKASAMA
			ELSE
				CALL M_KOJO_COLOR_K64
				PRINTFORMDL %CALLNAME:MASTER%的拳头用比%CALLNAME:TARGET%转身更快的速度打到了胸口
				PRINTFORMDW 这一击实在太过沉重、%CALLNAME:MASTER%摔了个跟头直接栽到了地上
				PRINTFORML 「喂~、没事吧ー？ …稍微做的有点过火了呐」
				PRINTFORMW 「嘛、认识失败也是很重要的。这也一定能成为重要的经验吧」
				RESETCOLOR
				BASE:MASTER:体力 -= 400 * (1 + ABL:64:戦闘能力)
				BASE:MASTER:気力 -= 400 * (1 + ABL:64:戦闘能力)
				PRINTFORML 戦闘経験 ＋{経験値}（%CALLNAME:TARGET%）
				EXP:64:戦闘経験 += 経験値
				CFLAG:64:好感度 += 経験値 / 2
				CFLAG:64:信賴度 += 経験値 / 2
				PRINTFORML 好感度 ＋{経験値}（%CALLNAME:TARGET%）
				PRINTFORML 信賴度 ＋{経験値}（%CALLNAME:TARGET%）
			ENDIF
		ENDIF
	ELSE
		PRINTFORMDL 那种训练再来几次的话身体可受不了
		PRINTFORMDW %CALLNAME:MASTER%引诱着%CALLNAME:TARGET%活动了身体
	ENDIF
ENDIF
RETURN 1
;==================================================
;412,学习
;ABL:教養(ABL:MASTER:教養より大=MASTERが教えてもらう ABL:MASTER:教養より小=TARGETが教えてもらう
;==================================================
@M_KOJO_MESSAGE_COM_K64_412
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_412_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_412_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
		PRINTFORML 「嗯、んん……ｚｚｚ……」
		PRINTFORMDW 拿%CALLNAME:TARGET%的睡觉声当背景音乐的%CALLNAME:MASTER%不断学习着
	;通常
	ELSE
		;教養３未満
		IF ABL:教養 < 3
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「――哈？ 从刚刚開始就在说些什么」
					PRINTFORML 「应该更加……有的吧！ 更适合我学的东西」
					PRINTFORMDW %CALLNAME:MASTER%尽量细致的教导了%CALLNAME:TARGET%
				CASE 1
					PRINTFORML 「只是记个帐之类的我还是可以的说……」
					PRINTFORMDL %CALLNAME:TARGET%时不时的挠着头解决着问题
					PRINTFORMDW ……好像进展很慢的样子
				CASE 2
					PRINTFORML 「要来学习啊、虽然我觉得对我来说没什么必要就是了」
					PRINTFORML 「嘛、难得你来教我了。我就尽量学一下吧」
					PRINTFORMDW %CALLNAME:MASTER%坐在%CALLNAME:TARGET%身边開始了教学
			ENDSELECT
		;教養３以上
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「啊啊、这样的话我也能看懂」
					PRINTFORML 「是上次教我的那些东西的应用吧？」
					PRINTFORMDW %CALLNAME:TARGET%快速的解答着题目
				CASE 1
					PRINTFORML 「额着？ 这个要这样、这个的话……要这样吗？」
					PRINTFORMDL %CALLNAME:MASTER%确认了一下%CALLNAME:TARGET%的答案。做的很好
					PRINTFORML 「合格了？ 好耶！ 接下来来点更难的题目吧！」
					PRINTFORMDW %CALLNAME:TARGET%快乐的学习着。这是很好的倾向
				CASE 2
					PRINTFORML 「一直这么用脑的话就会变得想喝酒了啊……」
					PRINTFORML 「啊啊我知道的。喝酒要在学习后、对吧？」
					PRINTFORMDW %CALLNAME:TARGET%把酒杯交给了%CALLNAME:MASTER%之后继续努力学习着
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;413,料理
;TFLAG:194(100以上=禁断のメニュー 3=甜点 2=主食 1=軽食
;==================================================
@M_KOJO_MESSAGE_COM_K64_413
;TFLAG:194が100以上の場合のみ
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_413_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_413_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
		PRINTFORML
		RETURN 1
	;固有料理
	ELSEIF DISHNAME == "牡丹锅"
		;練習
		IF STRCOUNT(DISH_TASTE, "練習")
			PRINTFORML 「吃着很好吃，看着也很好看」
			PRINTFORML 「牡丹锅是我最喜欢吃的了。你也一定会喜欢的」
			PRINTFORMDW %CALLNAME:MASTER%朝%CALLNAME:TARGET%请教了牡丹锅的制作方法
		;ラーニング済
		ELSE
			PRINTFORML 「哦、要做牡丹锅吗？」
			PRINTFORML 「能让我也来帮忙吗。稍微有点饿了啊」
			PRINTFORMDW 在%CALLNAME:TARGET%烧火的期间，%CALLNAME:MASTER%准备好了食材
		ENDIF
	;通常
	ELSE
		;料理技能３未満
		IF ABL:料理技能 < 3
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「哦、料理！ 你要做吗！」
					PRINTFORML 「那可真是期待啊、也让我来帮忙吧！」
					PRINTFORML 「不过说到底、也就只能打打下手的程度就是了」
					PRINTFORMDW %CALLNAME:MASTER%在%CALLNAME:TARGET%的帮助下制作着料理
				CASE 1
					PRINTFORML 「这个一小勺，这个一大勺…然后这样」
					PRINTFORML 「调料的量什么的只要目测就够了」
					PRINTFORMDW %CALLNAME:TARGET%在用着鬼族的豪放调味方式……稍微有点担心啊
				CASE 2
					PRINTFORML 「哦？ 这就做好了吗？」
					PRINTFORML 「比想象的要简单呐。这种程度我一个人也能做出来的样子」
					PRINTFORMDW 脑子懂了手没懂，这正是料理的恐怖之处……
			ENDSELECT
		;料理技能３以上
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「所以、要来做什么？」
					PRINTFORMDL %CALLNAME:MASTER%告诉了%CALLNAME:TARGET%今天的菜单
					PRINTFORML 「%DISHNAME%吗。 好！ 大干一场吧！」
					PRINTFORMDW 多亏了%CALLNAME:TARGET%的活跃，料理制作的很顺利
				CASE 1
					PRINTFORML 「变得熟练了？ 啊啊、最近自己经常有练习」
					PRINTFORML 「嘛、说实话也都是在做那些你教我的罢了」
					PRINTFORMDW %CALLNAME:TARGET%熟练的制作着料理。成长了许多呐
				CASE 2
					PRINTFORML 「看起来很好吃的样子啊」
					PRINTFORMDL %CALLNAME:MASTER%将完成好了的料理盛入器具端了出来
					PRINTFORML 「那么、我去拿点酒过来吧」
					PRINTFORMW 「你问为什么？ 你这家伙、上等的料理就要配上等的酒吧？」
			ENDSELECT
		ENDIF
	ENDIF
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_K64_414
;成否判定
;TFLAG:192(-2=指令終了(非TARGET時強制失敗)、-1＝強制失敗、0=COM依存(非TARGET時強制成功)、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_414
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_414_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_414_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
		PRINTFORML
		RETURN 1
	;通常
	ELSE
		;勇儀と一緒に作った料理を食べる
		IF DISH_ASSI == 64
			;判定
			SELECTCASE TFLAG:193
				;大成功
				CASE 1
					PRINTFORML 「那么、准备干杯吧！」
					PRINTFORML 「乾杯！ 咕咚、咕咚、咕咚」
					PRINTFORML 「――呼啊！ 好喝的酒和好吃的料理！ 真是太棒了！」
					PRINTFORMDW 本来只是想吃点东西、不知何时朝宴会的感觉開始了……
				;成功
				CASE 0
					PRINTFORML 「呼、好吃！ 很适合下酒！」
					PRINTFORML 「嘛这可是你教我的。这么好吃是理所当然的！」
					PRINTFORMDW %CALLNAME:MASTER%和%CALLNAME:TARGET%一边喝酒一边享受了料理
				;失敗
				CASE -1
					PRINTFORML 「真奇怪呐……应该是按顺序做出来的才对啊……」
					PRINTFORML 「嘛、扔掉的话怪可惜的。和酒一起吃下去吧」
					PRINTFORML 「而且、吃多了可能就会觉得好吃了也说不定」
					PRINTFORMDL %CALLNAME:TARGET%喝着酒、一副讨厌的样子慢慢吃着料理
					PRINTFORMDW %CALLNAME:MASTER%坐在她的身边、和她一起吃了起来
			ENDSELECT
			BASE:酒気 += 20
			BASE:MASTER:酒気 += 20
		;それ以外
		ELSE
			;甜点
			IF DISH_TYPE == "点心"
				;判定
				SELECTCASE TFLAG:193
					;大成功
					CASE 1
						PRINTFORML 「啊姆っ……っ！～～っ！」
						PRINTFORMDL 吃下点心的瞬间、%CALLNAME:TARGET%露出了荡漾的表情
						PRINTFORML 「超……好吃！ 这东西超好吃的！」
						PRINTFORML 「居然有这么好吃的点心……为什么不早点告诉我！」
						PRINTFORMDW 因为你没问过……
					;成功
					CASE 0
						PRINTFORML 「在旧都很难见到这种东西。因为那里都是一群只想吃大餐喝美酒的家伙呐」
						PRINTFORMDL 确实、在那里好像只有居酒屋没有点心店的样子……
						PRINTFORML 「只不过……吃了这么多甜食之后、也想吃点咸的东西呐」
						PRINTFORML 「虽然我也很期待那种东西……哦、你很机灵啊♪」
						PRINTFORMDW %CALLNAME:TARGET%美味的享用了%CALLNAME:MASTER%准备好的换口味的煎饼
					;失敗
					CASE -1
						PRINTFORML 「这个……对我来说有点甜过头了啊」
						PRINTFORML 「――唔、胸口甜的发慌……」
						PRINTFORMDW %CALLNAME:TARGET%为了冲掉甜味将茶水一饮而尽
				ENDSELECT
			;それ以外
			ELSE
				;判定
				SELECTCASE TFLAG:193
					;大成功
					CASE 1
						PRINTFORML 「哦哦！ 对对！ 就是这个味道！」
						PRINTFORMW 「专门加入我喜欢的味道、你这不是很懂吗！」
						PRINTFORMDL %CALLNAME:TARGET%以惊人的气势享用着料理
						PRINTFORMDW 仅仅几分钟之后料理就被一扫而光
						PRINTFORML 「哈啊～……吃饱了吃饱了……」
						PRINTFORML 「实在太过好吃了、一不小心连酒都忘了喝了啊」
						PRINTFORMDW 好像很满足的样子。%CALLNAME:MASTER%作为酒的代替冲好了茶递给了%CALLNAME:TARGET%……
					;成功
					CASE 0
						PRINTFORML 「可以吗？ 那么、我就不客气了」
						PRINTFORMDW %CALLNAME:TARGET%搓了搓手、立马就開始享用了起来
						PRINTFORML 「嚼、咕咚……嗯、这可真好吃！」
						PRINTFORML 「调味做的很好的咸梅、也正适合下酒！」
						PRINTFORMDW 不管什么事都以酒为基准真是符合鬼的风格，%CALLNAME:MASTER%不由得这么想到
					;失敗
					CASE -1
						PRINTFORML 「我本来以为就算再怎么离谱也有个程度呐……」
						PRINTFORML 「这种东西完全不能和酒一起吃呐」
						PRINTFORMDL 很遗憾似乎不和%CALLNAME:TARGET%的口味的样子……
						PRINTFORMDW 但是是人好不容易做的、还是把剩下的料理吃完了
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;415,招待吃飯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TCVAR:MASTER:308(bit0=浓郁 bit1=薄味 bit3=超辣 bit4=超甜 bit5=芥末 bit6=激酸っぱ
;==================================================
@M_KOJO_SUCCESS_COM_K64_415
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_415
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_415_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_415_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;吃飯と共通
	CALL M_KOJO_MESSAGE_COM_K64_414_1
ENDIF
RETURN 1
;==================================================
;416,演奏
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TFLAG:使用楽器(1=電子琴 2=鋼琴 3=吉他 4=小號 5=小提琴)
;==================================================
@M_KOJO_SUCCESS_COM_K64_416
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_416
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_416_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_416_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;恋慕
	IF TALENT:恋慕
		SELECTCASE TFLAG:193
			;大成功
			CASE 1
				PRINTFORML 「即兴演出能做到这种地步、真是了不起啊」
				PRINTFORML 「就算是我也没想到会这么厉害！」
				PRINTFORMDW %CALLNAME:TARGET%好像对%CALLNAME:MASTER%的演奏很中意的样子
			;成功
			CASE 0
				PRINTFORML 「%MASTERNAME:64%的演奏和美酒很相配呐……」
				PRINTFORMDW %CALLNAME:TARGET%听%CALLNAME:MASTER%的演奏听的有些入迷了
			;失敗
			CASE -1
				PRINTFORML 「emmmm、这个、咣咣的感觉……ッ」
				PRINTFORML 「就是那个、宿醉卧床不起的时候……对、是一样的感觉……ッ」
				PRINTFORMDW %CALLNAME:TARGET%抱着头表现出很痛苦的样子。%CALLNAME:MASTER%稍微有些受伤
		ENDSELECT
	;それ以外
	ELSE
		SELECTCASE TFLAG:193
			;大成功
			CASE 1
				PRINTFORML 「有这么厉害的音乐才能的话就不用担心吃不饱了呐」
				PRINTFORML 「对了、下次有个宴会来着…要不要去那里演奏一下看看？」
				PRINTFORMW 「说不定还能赚点零花钱哦」
			;成功
			CASE 0
				PRINTFORML 「嗯、不错的音色。很时髦的感觉」
				PRINTFORML 「在外边的世界里、不是有那种演奏音乐来服务客人的居酒屋之类的地方吗？」
				PRINTFORMW 「宴会游戏什么的差不多也腻了。真想去一次看看啊」
			;失敗
			CASE -1
				PRINTFORML 「我是不太讨厌吵闹的声音、但是也该有个度吧」
				PRINTFORML 「想演奏的话去别处演奏吧。你这么搞根本喝不了酒了」
				PRINTFORMDW %CALLNAME:TARGET%对%CALLNAME:MASTER%的演奏很不满的样子……
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;417,午睡をする
;TFLAG:193(0=MASTERを抱き枕にして寝ている 1=MASTERの膝を枕にして寝ている 2=寝顔に接吻された 3=寝顔をのぞき込まれた 4=MASTERが膝枕されてる 5=秘処or阴茎揉み
;CFLAG:陪睡中(1=一緒に寝ている
;==================================================
@M_KOJO_MESSAGE_COM_K64_417
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_COM_K64_417_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_417_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;陪睡中
	IF CFLAG:陪睡中
		PRINTFORML %CALLNAME:TARGET%在%CALLNAME:PLAYER%身边发出了安稳的睡眠声…
	;通常
	ELSE
		;判定
		SELECTCASE TFLAG:193
			;MASTERを抱き枕にして寝ている
			CASE 0
				PRINTFORMDL 被耳边的呼噜声吵醒了……
				PRINTFORMDL 居然是%CALLNAME:TARGET%把%CALLNAME:MASTER%当作抱枕抱住睡着了
				PRINTFORMDL 这样下去的话根本动不了身子、苦笑着摇了摇%CALLNAME:TARGET%
				PRINTFORML 「呼咕ッ、嗯、嗯啊……？ 已经早上了吗……？」
				PRINTFORML 「……啊ー、说起来是在睡午觉来着」
				PRINTFORML 「想着抱着抱枕试试……以外的很舒服嘛。疲劳什么的一扫而光啊」
				PRINTFORMDW 那就太好了、不过差不多该放手了吧……
			;MASTERの膝を枕にして寝ている
			CASE 1
				PRINTFORMDL 醒了的%CALLNAME:MASTER%感觉到了身上有什么重物
				PRINTFORMDL %CALLNAME:TARGET%将%CALLNAME:MASTER%的身体当作枕头睡起来了的样子
				PRINTFORMDL %CALLNAME:MASTER%将身体从%CALLNAME:MASTER%头下面抽了出来……
				PRINTFORML 「………ｚｚｚ」
				PRINTFORMDL 但是勇仪的头居然没有掉下去、保持着这个姿势依旧睡着
				PRINTFORMDW %CALLNAME:MASTER%被这副光景震惊了一会儿、摇了摇%CALLNAME:TARGET%把她叫醒了……
			;寝顔に接吻された
			CASE 2
				PRINTFORMDL 睡醒了之后、正好和%CALLNAME:TARGET%四目相对了
				PRINTFORML 「……啊、起来了吗？」
				PRINTFORML 「虽然本来没有那个打算的……稍微有点心血来潮了」
				PRINTFORMDL %CALLNAME:TARGET%挠着脸颊稍微有点害羞的样子
				PRINTFORMDW 摸了摸自己的嘴唇、还稍微的残存着%CALLNAME:TARGET%的温度……
			;寝顔をのぞき込まれた
			CASE 3
				PRINTFORMDL %CALLNAME:MASTER%一觉醒啦浮现在面前的是%CALLNAME:TARGET%的脸
				PRINTFORMDL 对上了眼之后、%CALLNAME:TARGET%突然笑了出来
				PRINTFORML 「早上好！ 嗯？ 还没睡醒吗？」
				PRINTFORML 「来、打起精神的酒。一口闷了！」
				PRINTFORMDL %CALLNAME:TARGET%将杯子注满酒递了过来
				PRINTFORMDW %CALLNAME:MASTER%将其一饮而尽、喉咙传来的灼烧感将睡意吹的烟消云散
				BASE:MASTER:酒気 += 200
			;MASTERが膝枕されてる
			CASE 4
				PRINTFORMDL 睡醒了的%CALLNAME:MASTER%突然注意到自己躺在了%CALLNAME:TARGET%的膝枕上
				PRINTFORML 「早上好。嗯？ 怎么了、那副深感意外的表情」
				PRINTFORML 「说着想要午睡所以想要膝枕的是%MASTERNAME:64%吧？」
				PRINTFORMDL 说起来好像是有说过这种话
				PRINTFORMDW %CALLNAME:MASTER%朝%CALLNAME:TARGET%表示了感谢、慢慢的直起了身子
			;秘処or阴茎揉み
			CASE 5
				PRINTFORMDL %CALLNAME:MASTER%因为股间柔软的触感睁開了眼睛
				PRINTFORMDL 面前的是%CALLNAME:TARGET%的面容
				PRINTFORML 「嗯？ 怎么了、这就起来了吗」
				PRINTFORML 「你问我在做什么……呼呼、想让你舒服一下」
				PRINTFORMDW 尽管被%CALLNAME:MASTER%盯着%CALLNAME:TARGET%还是一脸无所谓的继续着下流的按摩
		ENDSELECT
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;421,祈願する
;条件が複雑なので、COMF421 祈願.ERBおよび、EVENT_MESSAGE_COM400.ERBの祈願するの項を参照のこと
;==================================================
@M_KOJO_MESSAGE_COM_K64_421
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_421_1
RETURN RESULT

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

ENDIF
RETURN 1

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

;==================================================
;431,在浴室里放鬆
;TFLAG:209(4=人类之里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;TFLAG:194(1=連続入浴不可(表示しない可能性あり？
;==================================================
@M_KOJO_MESSAGE_COM_K64_431
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_431_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_431_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;恋慕
	IF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMDL %CALLNAME:MASTER%拖着因热水而浮上来的%CALLNAME:TARGET%的胸部、不断地摇着游玩起来
				PRINTFORML 「%MASTERNAME:64%真是喜欢胸部呐」
				CALL HPH_PRINT,@"「来、要吸吗？……んッHPH 啊、你还真吸啊……HPH」","L"
				PRINTFORMDW %CALLNAME:TARGET%温柔的抚摸着像小孩一样吸着乳头的%CALLNAME:MASTER%的头……
			CASE 1
				PRINTFORML 「对了、洗完澡要不要喝杯冷酒？」
				PRINTFORML 「燥热的身体猛地流入冰凉的美酒……」
				PRINTFORML 「那可真是……爽翻了」
				PRINTFORMDW 那种东西肯定好喝啦。%CALLNAME:MASTER%更加期待洗完澡之后的事了
			CASE 2
				PRINTFORML 「好～好～好棒的热水」
				PRINTFORMDL %CALLNAME:TARGET%泡在热水里悠闲地哼着歌
				PRINTFORMDW 说不上很好听的歌声、不可思议的留在耳边的歌词……
		ENDSELECT
	;それ以外
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「呼～……極楽極楽……」
				PRINTFORML 「那么就、稍微睡一下吧……」
				PRINTFORMDL %CALLNAME:TARGET%的身体渐渐的朝热水中沉了下去……
				PRINTFORMDW 快要淹没到鼻子的时候、%CALLNAME:MASTER%慌张的叫醒了%CALLNAME:TARGET%
			CASE 1
				PRINTFORML 「好、来比一比看谁更能忍吧！」
				PRINTFORMDL %CALLNAME:TARGET%将肩膀一下沉入热水中、仿佛冥想一般闭上了眼睛
				PRINTFORMDW 难道说、这是一定要陪她的节奏吗……？
			CASE 2
				PRINTFORML 「咕咚、咕咚、咕咚……呼啊～ッ！」
				PRINTFORML 「果然泡澡的时候的酒就是好喝！ 来、再来一杯！」
				PRINTFORMDW 看着%CALLNAME:TARGET%豪爽的喝法、%CALLNAME:MASTER%不由得心生敬佩
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;432,在浴室里放鬆
;表示タイミングは入浴後なので、お浴室上がりでの
;TFLAG:209(4=人类之里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;==================================================
@M_KOJO_MESSAGE_COM_K64_432
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_432_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_432_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;人类之里の銭湯
	IF TFLAG:209 == 1
		;恋慕
		IF TALENT:恋慕
			PRINTFORML 「哦。%MASTERNAME:64%、久等了」
			PRINTFORMDL %CALLNAME:MASTER%出来之后过了十几分钟、带着一副清爽的表情的%CALLNAME:TARGET%走了出来
			PRINTFORML 「呐听我说哟。刚泡澡的时候感觉气氛很好就想喝酒然后跑到前台要酒……」
			PRINTFORML 「但是他们居然说这里钱汤不是居酒屋所以没有酒。那等下我们去哪里的店里喝酒呐？」
			PRINTFORMW 「――啊？回家里喝？ 你不懂啊！ 我看你是完全不懂哦%MASTERNAME:64%！」
		;それ以外
		ELSE
			PRINTFORML 「人类的钱汤还算不坏」
			PRINTFORMW 「不过、我倒是更喜欢水更热点的那种」
		ENDIF
	;地底の温泉
	ELSEIF TFLAG:211 == 1
		;恋慕
		IF TALENT:恋慕
			PRINTFORML 「啊%MASTERNAME:64%、给这个」
			PRINTFORMDL 两人泡完温泉出来之后、从%CALLNAME:TARGET%那边收到了入浴金
			PRINTFORML 「以前可能说过、我是这个温泉街的管理者」
			PRINTFORML 「虽然我是想给%MASTERNAME:64%免费的、但是那样的话会有一群很吵的家伙」
			PRINTFORML 「只是形式上的玩意儿…。看在我的份上收下吧」
			PRINTFORMDW 被这么说了如果再拒绝的话会很失礼。%CALLNAME:MASTER%老实的收下了
			MONEY += 1000
		;それ以外
		ELSE
			PRINTFORML 「终于到了、地底最棒的温泉」
			PRINTFORMDL 虽然有点热了、但是蛮開心的
			PRINTFORMDL %CALLNAME:MASTER%老实的给%CALLNAME:TARGET%传达了自己的感想
			PRINTFORML 「呼呼呼、玩的開心就好」
			PRINTFORMW 「作为旧地狱温泉街的管理人也脸上有光」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;436,読書
;TFLAG:193(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=单薄的高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_MESSAGE_COM_K64_436
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_436_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_436_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;読んだ本の種類で分岐
	SELECTCASE TFLAG:193
		;忍殺
		CASE 1
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「不管什么事都用暴力解决……」
				PRINTFORML 「外边的世界居然还有这种家伙呐……」
				PRINTFORMDW %CALLNAME:TARGET%嗯嗯的点着头阅读着
			;それ以外
			ELSE
				PRINTFORML 「我原本以为忍者之类的都是一些只会偷偷摸摸的胆小鬼」
				PRINTFORML 「但是看着上面的剧情的话好像也不是那样的样子」
				PRINTFORMDW 为什么这漫画会在幻想乡里存在……%CALLNAME:MASTER%有点惊讶
			ENDIF
		;文学
		CASE 3
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「这种纯文字的东西很有趣吗」
				PRINTFORML 「嘛、看之前就嫌弃也不是很好。先看看再说吧」
				PRINTFORMDW %CALLNAME:TARGET%坐在了%CALLNAME:MASTER%的身边開始阅读起来
			;それ以外
			ELSE
				PRINTFORML 「这种有点难懂的书不适合我呐……」
				PRINTFORML 「说起来、这些书看起来很有趣的样子」
				PRINTFORMDW %CALLNAME:TARGET%将书放入书架、从另一个书架中取出了外界的漫画读了起来
			ENDIF
		;実用書
		CASE 5
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「这个来补挖苦？的玩意儿、看起来似乎很好用的样子……」
				PRINTFORML 「但是实际用起来的话怎么样呐……？」
				PRINTFORMDW 记住的话以后说不定会有有用的时候
			;それ以外
			ELSE
				PRINTFORML 「――算来如此、还有这种喝法」
				PRINTFORML 「下次试试好了……哦、这玩意儿看起来很好喝的样子」
				PRINTFORMDW %CALLNAME:TARGET%在阅读着和酒有关的书籍
			ENDIF
		;单薄的高い本
		CASE 6
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「我还以为你要看什么呢这不是春画吗」
				PRINTFORML 「拿来、也让我看看！」
				PRINTFORMDW 因为里边是些很不妙的东西、%CALLNAME:MASTER%拼命的阻止了想要观看的%CALLNAME:TARGET%
			;それ以外
			ELSE
				PRINTFORML 「什么啊这本书、怎么这么薄？」
				PRINTFORMDL 在这本薄薄的书中、蕴含着先人无数的智慧
				PRINTFORMW 「哼嗯？ 虽然不太清楚、不过我明白了这是个很厉害的书」
			ENDIF
		;保健体育
		CASE 7
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「对女人的身体有兴趣的话、我来助你一臂之力吧！」
				PRINTFORMDL %CALLNAME:TARGET%好像真的要脱衣服的样子、%CALLNAME:MASTER%慌张的阻止了她
				PRINTFORML 「怎么了？ 嫌我不行吗？」
				PRINTFORMDW %CALLNAME:TARGET%狠狠的瞪了过来。%CALLNAME:MASTER%瞬间缩了起来
			;それ以外
			ELSE
				PRINTFORML 「身体的構造？ 你看那种书是想去当医生吗？」
				PRINTFORMDW 确实、去当医生也不错的样子……
			ENDIF
		;カーマスートラ
		CASE 8
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「吼吼ぉ、以春画来说真是奇特的画法呐」
				PRINTFORMDL 不止从何时起%CALLNAME:TARGET%就在偷看了的样子……
				PRINTFORML 「不要偷看？哈哈哈、抱歉呐！」
				PRINTFORMW 「一不小心看到了就」
			;それ以外
			ELSE
				;覚は勇儀の思考を読んでたけどあえて答えなかったという感じ
				PRINTFORML 「之前有事去地灵殿的时候、那里的主人好像就在读类似的书来着」
				PRINTFORML 「那个时候没有兴趣就没问、这是本什么样的书？」
				PRINTFORMDW 应不应该回答她……
			ENDIF
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;440,等待
;==================================================
@M_KOJO_MESSAGE_COM_K64_440
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_440_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_440_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;休憩から流用
	CALL M_KOJO_MESSAGE_COM_K64_403_1
ENDIF
RETURN 1
;==================================================
;441,聽課(慧音専用
;==================================================
@M_KOJO_MESSAGE_COM_K64_441
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_441_1
RETURN RESULT

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

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

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

ENDIF
RETURN 1
;==================================================
;445,採集
;TFLAG:193(採集物のID, 0=『何も見つからなかった…』
;TFLAG:194(今回採集した個数
;==================================================
@M_KOJO_MESSAGE_COM_K64_445
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_445_1
RETURN RESULT

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

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

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

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

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

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

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

ENDIF
RETURN 1

;==================================================
;490,道具
;TFLAG:193(使用道具のID
;TFLAG:194(対象 0=MASTER,1=TARGET
;==================================================
@M_KOJO_MESSAGE_COM_K64_490
;道具にTRAIN_MESSAGEはない
CALL M_KOJO_MESSAGE_COM_K30_490_1
RETURN RESULT

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

ENDIF
RETURN 1

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

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

ENDIF
RETURN 1

;==================================================
;601,约会身体接觸
;==================================================
@M_KOJO_MESSAGE_COM_K64_601
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_601_1
RETURN RESULT

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

ENDIF
RETURN 1

;==================================================
;602,约会接吻
;==================================================
@M_KOJO_MESSAGE_COM_K64_602
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_602_1
RETURN RESULT

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

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

@M_KOJO_MESSAGE_COM_K64_603
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_603_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_603_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;恋慕
	IF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「来啊、你在害羞个什么啊？」
				PRINTFORML 「只是牵个手而已堂堂正正的牵上就好了」
				PRINTFORMDW %CALLNAME:TARGET%突然的牵住了手、像恋人一样十指相扣
			CASE 1
				PRINTFORML 「到地方了之后要做什么呢」
				PRINTFORML 「你说一起喝酒？哈哈哈哈！ 那个真是！ 就那样吧！」
				PRINTFORMDW %CALLNAME:MASTER%和%CALLNAME:TARGET%紧紧的牵着手、关于约会地点交谈起来
			CASE 2
				PRINTFORML 「哼哼。别想跑哦？」
				PRINTFORMDW %CALLNAME:TARGET%開心的朝%CALLNAME:MASTER%的手握了过来
		ENDSELECT
	;思慕
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「想要牵手？ 哈哈、这种程度小事一桩」
				PRINTFORMDL 握住了%CALLNAME:TARGET%伸过来的手
				PRINTFORMDW 两人的手紧紧的牵着，朝约会地点进发中
			CASE 1
				PRINTFORML 「可能被当成恋人？ 啊哈哈哈哈！」
				PRINTFORML 「在我看来还像我把你掳走了一样呐！」
				PRINTFORMDW 和%CALLNAME:TARGET%肩并肩走在一起。稍微有点害羞的感觉
			CASE 2
				PRINTFORMDL 握着的%CALLNAME:TARGET%的手好像有点出汗
				PRINTFORML 「出汗了？ 那可真是对不住了。因为太突然了呐」
				PRINTFORML 「――不过、你也有在出手汗不是吗？」
				PRINTFORMDW %CALLNAME:TARGET%突然握的更紧了。暴露了她稍微有些紧张的事实
		ENDSELECT
	;それ以外
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「什么嘛、想握手的话一開始说了不就好了」
				PRINTFORMDW %CALLNAME:MASTER%紧紧的握住了%CALLNAME:TARGET%伸过来的的手
			CASE 1
				PRINTFORML 「都怪你搞得我突然想来玩扳手腕了」
				PRINTFORML 「看、那边也正好有适合的地方」
				PRINTFORMDW 所以到底为什么会变成这样呢……
			CASE 2
				PRINTFORML 「那么、開始走吧」
				PRINTFORMDW 还以为会被甩開、但是看起来%CALLNAME:TARGET%并不在意的样子……
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

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

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

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

@M_KOJO_MESSAGE_COM_K64_605
;繞道にはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K64_605_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_605_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	PRINTFORMDL %CALLNAME:MASTER%和%CALLNAME:TARGET%决定绕个远路
	PRINTFORMDW
	;天気によって分岐
	SELECTCASE TIME:5
		;晴天
		CASE 0,1
			IF TALENT:恋慕
				PRINTFORML 「绕路？ 啊啊、我无所谓」
				PRINTFORML 「天气这么好。蛮适合散步的」
				PRINTFORMDW %CALLNAME:MASTER%和%CALLNAME:TARGET%一起欣赏了风景
			ELSE
				PRINTFORML 「嗯？ 应该从这里走才……啊ー、这样啊」
				PRINTFORML 「我会放风的、快点回来哦」
				PRINTFORMDW 看起来%CALLNAME:TARGET%误以为%CALLNAME:MASTER%是要去解手的样子……
			ENDIF
		;陰天
		CASE 2,3
			IF TALENT:恋慕
				PRINTFORML 「要是下雨了可就麻烦了」
				PRINTFORML 「为了以防万一先准备好伞吧？」
				PRINTFORMDW 天气应该也不会变得那么快吧。%CALLNAME:MASTER%毫不在意的决定绕路而行
			ELSE
				PRINTFORML 「这种半吊子的天气最麻烦了呐」
				PRINTFORML 「在下起来之前……啊、喂ッ！」
				PRINTFORMDL %CALLNAME:MASTER%回过神转过头来、和%CALLNAME:TARGET%已经拉開了不小的距离
				PRINTFORMDW 因为每次看到在意的东西都会停下来、不知不觉间就拉開了不小的距离……
			ENDIF
		;それ以外
		CASEELSE
			IF TALENT:恋慕 && !RAND:4
				PRINTFORML 「雨天饮酒雪天饮酒……天气不好的时候喝一杯也挺好」
				PRINTFORML 「那里正好有个小摊、稍微去休息一下吧」
				PRINTFORMDW 正好脚也有点疼了。%CALLNAME:MASTER%和%CALLNAME:TARGET%在小摊里休息了一下
				BASE:MASTER:体力 += 100
				BASE:MASTER:気力 += 150
				TIME += 60
			ELSE
				PRINTFORML 「这种天气完全玩不起来啊……」
				PRINTFORMDW 拜这恶劣的天气所赐、没能很好的欣赏到风景
			ENDIF
	ENDSELECT
ENDIF
RESETCOLOR
RETURN 1

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

@M_KOJO_MESSAGE_COM_K64_610
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_610_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_610_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;人类之里
	IF CFLAG:MASTER:現在位置 / 100 == 2
		;恋慕
		IF TALENT:恋慕
			;心綺楼人类之里ステージ背景の店で呑んでるイメージ
			PRINTFORML 「之前地上大乱斗的时候、我就是在这里观战来着」
			PRINTFORML 「……只是想起来手就痒了、我要不也引起个什么异变玩玩吧」
			PRINTFORMDL %CALLNAME:TARGET%一副怀念的表情喝着酒
			PRINTFORMDW 人间之里今天也很和平……
		;それ以外
		ELSE
			PRINTFORMDL 找了一家居酒屋点了酒菜
			PRINTFORML 「喂、这里最厉害的酒是什么？」
			PRINTFORML 「鬼殺？那就那个、有多少拿多少」
			PRINTFORMDL 面对%CALLNAME:TARGET%的点单、服务员瞪大眼睛愣住了
			PRINTFORML 「怎么了、没听到吗？ 这不是什么很难的订单吧」
			PRINTFORMDW 带着些许威亚的声音让服务员恢复了些许自我、慌张的接受了……
		ENDIF
	;迷途竹林
	ELSEIF CFLAG:MASTER:現在位置 / 100 == 4
		;恋慕
		IF TALENT:恋慕
			PRINTFORML 「呐、要不要来地底開店啊？」
			PRINTFORML 「麻烦的事我会解决的。呐、拜托了啊！」
			PRINTFORMDW 看起来十分中意这个小摊的样子、%CALLNAME:TARGET%尝试挖角老板娘
		;それ以外
		ELSE
			PRINTFORML 「喂~！ 再来点串！还有酒！」
			PRINTFORMDL %CALLNAME:MASTER%看着老板娘忙碌的身影和%CALLNAME:TARGET%坐在摊位上享用着餐点
			PRINTFORMW 「喂、再多来点酒。虽然也知道你很忙啦」
		ENDIF
	;三途之川～冥界
	ELSEIF CFLAG:MASTER:現在位置 / 100 == 6
		;恋慕
		IF TALENT:恋慕
			PRINTFORML 「哦哦！ 祭典啊！ %MASTERNAME:64%！ 快看是祭典啊！」
			PRINTFORML 「说到祭典就该我出场了！ 来、走咯！」
			PRINTFORMDW 情緒高涨的%CALLNAME:TARGET%拉着%CALLNAME:MASTER%不断的逛着各个摊位
		;それ以外
		ELSE
			PRINTFORML 「真不错啊、这个感觉」
			PRINTFORML 「不管是人类还是妖怪亦或者是幽灵，遇到祭典的时候都会吵闹起来啊」
			PRINTFORMW 「我最喜欢这种了」
		ENDIF
	;地底
	ELSEIF CFLAG:MASTER:現在位置 / 100 == 9
		;恋慕
		IF TALENT:恋慕
			PRINTFORML 「就是这里、我常来的店」
			PRINTFORML 「想静静的喝酒的时候就会来这里。就连萃香都没有告诉过的哦」
			PRINTFORMDL 将门打開、%CALLNAME:TARGET%对着店员说了几句话、马上就被带着进到了里边的屋子
			PRINTFORML 「%MASTERNAME:64%には特別。他言無用だぞ？」
			PRINTFORMDW 在以地底来说十分稀有的安静中、和%CALLNAME:TARGET%一起享受着美食
		;それ以外
		ELSE
			PRINTFORML 「哦、小子们！在喝着吗！」
			PRINTFORMDL 一进到居酒屋、鬼们喧嚣的声音就迎面而来
			PRINTFORML 「啊ー抱歉、今天我有客人。下次再一起喝到天明吧」
			PRINTFORMDL 穿过叽叽喳喳的鬼们、找到了空着的座位坐了下来
			PRINTFORMW 「那么、随便整点什么吧。喂ー欸！」
		ENDIF
	ENDIF
ENDIF
RETURN 1

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

@M_KOJO_MESSAGE_COM_K64_613
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_613_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;614,採購食材
;TFLAG:193(1=購入＆約會経験アップ 0=購入 -1=非購入)
;==================================================
@M_KOJO_MESSAGE_COM_K64_614
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_614_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;615,吃便當
;実行可能場所　地蔵小路,倒垂的柳樹下,霧之湖,玄武之澤,大蛤蟆之池,絶景之丘,山之湖,天界
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:料理技能(2未満=微妙な出来 4未満=そこそこ美味しい 4以上=絶品)
;==================================================
@M_KOJO_MESSAGE_COM_K64_615
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_COM_K64_615_1
RETURN RESULT

;メシマズでも反発が付かないように
@M_KOJO_EXTRASOURCE_COM_K64_615
	SOURCE:反感 = 0

@M_KOJO_MESSAGE_COM_K64_615_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;料理技能３未満
	IF ABL:料理技能 < 3
		;恋慕
		IF TALENT:恋慕
			PRINTFORMDL 開始享用%CALLNAME:TARGET%准备的便当
			PRINTFORML 「我不经常做料理、费了我好大一番功夫」
			PRINTFORMDL %CALLNAME:TARGET%准备的便当……有好多下酒的东西
			PRINTFORMDL 这与其说是便当、不如说是下酒菜的集合体……
			PRINTFORML 「好、那么開喝吧！」
			PRINTFORMDW 果然准备的是下酒菜啊……
		;それ以外
		ELSE
			PRINTFORMDL 准备享用%CALLNAME:TARGET%准备的便当
			PRINTFORML 「我让我常去的居酒屋帮忙做的。味道很有保障」
			PRINTFORMDL ――确实很美味……很美味啊……
			PRINTFORMDW 但是不是%CALLNAME:TARGET%的亲手做的有点遗憾呐
		ENDIF
	;料理技能３以上
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMDL %CALLNAME:MASTER%看着%CALLNAME:TARGET%亲手做的便当不由得啧啧称奇
			PRINTFORML 「来%MASTERNAME:64%、你喜欢吃这个吧？」
			PRINTFORML 「――怎样？我试着稍微改了下调味……」
			PRINTFORMDL %CALLNAME:TARGET%的料理非常好吃。%CALLNAME:MASTER%老实的说出了感想
			PRINTFORMW 「呼呼、是吗♪ 也不枉我早起准备这些了」
		;それ以外
		ELSE
			PRINTFORML 「好不容易才从%MASTERNAME:64%学到的料理手法、总不能一直不用变得生疏吧」
			PRINTFORML 「这次的就是活用那些手法制作的。来、多吃一点！」
			PRINTFORMDL 因为之前修行的成果，%CALLNAME:TARGET%的厨艺已经十分精湛了
			PRINTFORMDW 这份%CALLNAME:TARGET%所做的便当、非常的好吃……
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;617,甘味処に誘う
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐は大成功のみ追加
;==================================================
@M_KOJO_SUCCESS_COM_K64_617
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K64_617
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_617_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_617_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;季節で分岐
	SELECTCASE DAY:2
		;春
		CASE 1
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「御手洗团子很适合下酒哟」
				PRINTFORML 「是真的！ 来、你也试试」
				PRINTFORMDL %CALLNAME:TARGET%的劝说下试了试
				PRINTFORMDW 确实、鲜甜的酱油和日本酒很合得来
			;それ以外
			ELSE
				PRINTFORML 「吃了太多甜食就想吃点别的东西换换口味了」
				PRINTFORML 「喂、那边的！ 拿点什么下酒菜过来！」
				PRINTFORMDW 并非是在故意为难店员
			ENDIF
		;夏
		CASE 2
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「%MASTERNAME:64%的冰镇红豆汤也很好喝的样子」
				PRINTFORML 「呐、就喝一口尝尝」
				PRINTFORMDL %CALLNAME:TARGET%看起来很馋的样子、%CALLNAME:MASTER%稍微分了点给她
				PRINTFORMW 「咕咚……嗯ッ！ 超好喝！」
			;それ以外
			ELSE
				PRINTFORMDL 和%CALLNAME:TARGET%一起去吃刨冰了
				PRINTFORML 「因为地底太热了的缘故、很难吃到这种冰凉的东西」
				PRINTFORMW 「所以在地上的时候不多吃点的话……咕～ッ、冰到脑袋了！」
			ENDIF
		;秋
		CASE 3
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「来、小心烫哦」
				PRINTFORMDL %CALLNAME:MASTER%将掰成两份的烤红薯递了一份给%CALLNAME:TARGET%
				PRINTFORMW 「唔、果然烤红薯就是好吃。再去买点过来吧」
			;それ以外
			ELSE
				PRINTFORML 「枫叶馒头……枫叶呐」
				PRINTFORML 「我记得好像有个叫这个名字的天狗住在山上来着」
				PRINTFORML 「嘛、早就不住在山上了。事到如今也无所谓了」
				PRINTFORMDW %CALLNAME:TARGET%捏了捏馒头、扑哧一声塞进嘴里
			ENDIF
		;冬
		CASE 4
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「虽然叫鲷鱼烧、但是里边并没有真的鲷鱼来着」
				PRINTFORML 「最后吃鲷鱼是什么时候来着……那玩意儿非常适合下酒……」
				PRINTFORML 「……下次拜托一下能随意进出外边的家伙吧」
				PRINTFORMDW %CALLNAME:TARGET%怀念着以前吃着鲷鱼烧
			;それ以外
			ELSE
				PRINTFORMDL 和%CALLNAME:TARGET%在甜味处稍微休息了一下
				PRINTFORML 「呼、在这种寒冷天一万热腾腾的红豆汤总能温暖人心」
				PRINTFORMW 「旧都的话就连冬天也很暖和来着……」
			ENDIF
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;618,花屋（口上は表示されない模様？
;==================================================
@M_KOJO_MESSAGE_COM_K64_618
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_618_1
RETURN RESULT

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

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

@M_KOJO_MESSAGE_COM_K64_620_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「有看上眼的东西吗？」
			PRINTFORML 「那可真是太好了、我也找到了很有趣的东西哦」
			PRINTFORMDW %CALLNAME:TARGET%居然会对书感兴趣……%CALLNAME:MASTER%感到有些意外
		CASE 1
			PRINTFORML 「喂ーい、我把这个借走了哦」
			PRINTFORMDW %CALLNAME:TARGET%拿着的书封面上写着世界名酒100选
		CASE 2
			PRINTFORML 「不知道为什么一来这里就有股想要放把火全烧了的冲动……」
			PRINTFORML 「在大火旁边喝酒的话一定会很爽吧」
			PRINTFORMDW %CALLNAME:TARGET%到底在说什么……
	ENDSELECT
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;621,釣魚
;TFLAG:193(0=釣れない 1～4=魚 11～15=好吃的魚 610=木材 131=守矢之守札 21=跳蛋 609=氷之鱗 606=龍之爪)
;TFLAG:194(1000以上ならTARGETが釣った)
;==================================================
@M_KOJO_MESSAGE_COM_K64_621
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_COM_K64_621_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_621_1

#DIM CHARA

;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
;地の文をカットしてるのでMESSAGE処理を内蔵する
IF LOCAL
	CALL M_KOJO_COLOR_K64
	SELECTCASE TFLAG:193
		;釣れない
		CASE 0
			PRINTFORMDW 什么都没钓上来……
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「嘛、这也是钓鱼的乐趣之一呐」
					PRINTFORMDW %CALLNAME:TARGET%眺望着动也不动的浮标
				CASE 1
					PRINTFORML 「干脆我直接跳到水里抓还更快吧？」
					PRINTFORMDW 又不是熊……
				CASE 2
					PRINTFORML 「时不时鱼饵掉了啊？ 稍微拉上来看看」
					PRINTFORMDL 拉上来看了一下、果然鱼饵不见了
					PRINTFORMW 「哈哈、对面的鱼好像很有经验呐」
			ENDSELECT
			RETURN 1
		;木片
		CASE 610
			IF TFLAG:194 > 1000
				PRINTFORMW 「这是挂住了什么了呐……嘿咻」
				PRINTL
				PRINTFORMDL %CALLNAME:TARGET%钓上来了木片…
				PRINTW
			ELSE
				PRINTFORMDL 钓上来了木片……
				PRINTW
			ENDIF
			PRINTFORMDL 很棒的留木。应该可以高价卖给一些狂热者
			PRINTFORMW 「哦、那样的话或许可以整些喝酒钱」
			RETURN 1
		;紙切れ
		CASE 131
			IF TFLAG:194 > 1000
				PRINTFORML 「啊？ 好像挂住什么了」
			ELSE
				PRINTFORMDL 钓上来了纸片
			ENDIF
			PRINTDW
			PRINTDL ┌─────────────┐
			PRINTDL ｜　　　　　　　　　　　　　｜
			PRINTDL ｜　　守矢之守札　　　　　　｜
			PRINTDL ｜　　　　　　　　　　　　　｜
			PRINTDL ｜　　收集够五个  　　　　　｜
			PRINTDL ｜　　　可以额外免费抽一签　｜
			PRINTDL ｜　　　　　　　　　　　　　｜
			PRINTDL ｜　保证中奖   童叟无欺   　｜
			PRINTDL ｜　　　　　　　　　　　　　｜
			PRINTDL ｜　　　　　　　　守矢神社　｜
			PRINTDL └─────────────┘
			PRINTW
			PRINTFORML 「守矢……守矢……啊啊、最近搬来的山神吗」
			PRINTFORMW 「能用这种方式捡到的话、说明那里的信仰也没什么大不了的吗？」
			RETURN 1
		CASE 1 TO 20, 22 TO 60
			LOCALS = %FISH_NAME(TFLAG:193)%
		CASE 21
			LOCALS = 跳蛋
		CASEELSE
			LOCALS = %ITEMNAME:(TFLAG:193)%
	ENDSELECT
	;勇儀が釣った
	IF TFLAG:194 > 1000
		PRINTFORMW 「哦！ 来了来了……ッ」
		PRINTL
		PRINTFORMDL %CALLNAME:TARGET%钓上了%LOCALS%！
		RESETCOLOR
		;説明を流す
		SELECTCASE TFLAG:193
			CASE 1 TO 20, 22 TO 60
				DRAWLINE
				PRINTFORML %LOCALS%
				CALL FISHING_EXPLANATION(TFLAG:193)
			CASE IS > 61
				DRAWLINE
				PRINTFORML %LOCALS%
				PRINTFORML 　　%ITEM_EXPLANATION(TFLAG:193)%
		ENDSELECT
		PRINTW
		CALL M_KOJO_COLOR_K64
		SELECTCASE LOCALS
			CASE "跳蛋"
				PRINTFORML 「这……这是个啥？」
				PRINTFORMW 「%MASTERNAME:64%知道这个吗？」
			CASE "青蛙"
				PRINTFORML 「青蛙啊……也不是不能吃」
				PRINTFORMW 「好不容易钓到的、要不要用这个来当鱼饵？」
			CASE "氷之鱗", "龍之爪", "龍涎香"
				PRINTFORML 「哈……这玩意儿看起来不能吃啊」
				PRINTFORMDW %CALLNAME:TARGET%看起来想要扔掉的样子，%CALLNAME:MASTER%慌忙的阻止了她
			CASE "皐月鱒", "山女", "岩魚", "虹鱒", "香魚", "姫鱒", "国鱒"
				PRINTFORML 「好！ 今晚的晚饭就决定是它了」
				PRINTFORML 「简单的盐烧掉吗……不、还是用天然的泉水水煮好了……」
				PRINTFORMDW ……总觉得肚子有点饿了
			CASE "雀鳝", "鮭魚", "雷魚", "鲟", "腔棘鱼", "伊富魚", "巨骨舌鱼", "泷太郎", "青鱼"
				PRINTFORML 「哦哦ッ！ 这可真是个大家伙！」
				PRINTFORML 「胖乎乎的、看起来很有食欲！」
				PRINTFORMDW ……你是抓鱼的熊吗……
			CASE "八目鰻"
				PRINTFORML 「好耶！ 不是……鳗鱼？ 这是个啥玩意儿」
				PRINTFORMDL 看这个特徽的话应该是八目鳗吧。%CALLNAME:MASTER%告诉了%CALLNAME:TARGET%
				PRINTFORML 「欸、这玩意儿吗！ 这么一说确实是一副很精致的样子！」
				PRINTFORMDW 八目鳗什么也没说一副面无表情的样子……
			CASEELSE
				PRINTFORML 「怎样、我也蛮厉害的吧？」
				PRINTFORMDW %CALLNAME:TARGET%看着钓上来的鱼看起来很開心的样子
		ENDSELECT
	;MASTERが釣った
	ELSE
		RESETCOLOR
		PRINTFORMDL 调上来了%LOCALS%！
		;跳蛋以降を弾いて尺寸と漁獲数の処理
		IF INRANGE(TFLAG:193, 1, 60) && TFLAG:193 != 21
			;尺寸の出力
			LOCAL:1 = FISHING_SIZE(TFLAG:193)
			PRINTFORML 　尺寸：{LOCAL:1}cm
			;ここまでの最高尺寸と比較して大きければ記録
			IF LOCAL:1 > FISHSIZE_RECORD:(TFLAG:193)
				SETCOLOR C_YELLOW
				SIF FISH_EXP:(TFLAG:193)
					PRINTFORML 　迄今为止钓上来的%LOCALS%最大的体型！
				RESETCOLOR
				FISHSIZE_RECORD:(TFLAG:193) = LOCAL:1
			ENDIF
			;漁獲数の加算
			FISH_EXP:(TFLAG:193) ++
		ENDIF
		;説明を流す
		SELECTCASE TFLAG:193
			CASE 1 TO 20, 22 TO 60
				DRAWLINE
				PRINTFORML %LOCALS%
				CALL FISHING_EXPLANATION(TFLAG:193)
			CASE IS > 61
				DRAWLINE
				PRINTFORML %LOCALS%
				PRINTFORML 　　%ITEM_EXPLANATION(TFLAG:193)%
		ENDSELECT
		PRINTW
		CALL M_KOJO_COLOR_K64
		SELECTCASE LOCALS
			CASE "跳蛋"
				PRINTFORML 「这……这是个啥？」
				PRINTFORMW 「%MASTERNAME:64%知道这是什么吗？」
			CASE "青蛙"
				PRINTFORML 「青蛙啊……也不是不能吃」
				PRINTFORMW 「好不容易钓到的、要不要用这个来当鱼饵？」
			CASE "氷之鱗", "龍之爪", "龍涎香"
				PRINTFORML 「哈……这玩意儿看起来不能吃啊」
				PRINTFORMDW %CALLNAME:TARGET%看起来想要扔掉的样子，%CALLNAME:MASTER%慌忙的阻止了她
			CASE "皐月鱒", "山女", "岩魚", "虹鱒", "香魚", "姫鱒", "国鱒"
				PRINTFORML 「好！ 今晚的晚饭就决定是它了」
				PRINTFORML 「简单的盐烧掉吗……不、还是用天然的泉水水煮好了……」
				PRINTFORMDW ……总觉得肚子有点饿了
			CASE "雀鳝", "鮭魚", "雷魚", "鲟", "腔棘鱼", "伊富魚", "巨骨舌鱼", "泷太郎", "青鱼"
				PRINTFORML 「哦哦ッ！ 这可真是个大家伙！」
				PRINTFORML 「胖乎乎的、看起来很有食欲！」
				PRINTFORMDW ……你是抓鱼的熊吗……
			CASE "八目鰻"
				PRINTFORML 「好耶！ 不是……鳗鱼？ 这是个啥玩意儿」
				PRINTFORMDL 看这个特徽的话应该是八目鳗吧。%CALLNAME:MASTER%告诉了%CALLNAME:TARGET%
				PRINTFORML 「欸、这玩意儿吗！ 这么一说确实是一副很精致的样子！」
				PRINTFORMDW 八目鳗什么也没说一副面无表情的样子……
			CASEELSE
				PRINTFORML 「哦、很能干嘛」
				PRINTFORMW 「我也不会输给你的」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;626,土産屋
;TFLAG:194(行動結果(-2=ひやかし -1=ウィンドウショッピング 1=400点未満（BAD） 2=～699点（NOMAL） 3=700点以上（GOOD）
;CFLAG:性格傾向による地の文分岐あり
;==================================================
@M_KOJO_MESSAGE_COM_K64_626
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_626_1
RETURN RESULT

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

		;果然还是算了（見送り）
		CASE -1

		;400点未満（BAD）
		CASE 1

		;400点～699点（NOMAL）
		CASE 2

		;700点以上（GOOD）
		CASE 3

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

@M_KOJO_MESSAGE_COM_K64_660_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;436,読書と同じ
	CALL M_KOJO_MESSAGE_COM_K64_436_1
ENDIF
RETURN 1
;==================================================
;698,進入房間
;TARGETの進入房間場合のみ表示
;==================================================
@M_KOJO_MESSAGE_COM_K64_698
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_698_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_698_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;その日二回目以降部屋を訪ねた時
	IF TCVAR:64:355 == 1
		PRINTFORML 「怎么了？ 想来喝酒了吗？」
		PRINTFORMW 「那可真是欢迎！ 来、快过来吧！」
		TCVAR:64:356 = 1
	;通常
	ELSE
		PRINTFORMDL 进入到了%CALLNAME:TARGET%的家中、和预想的一样有大量的酒瓶仍在地上
		PRINTFORML 「我去准备点下酒菜你随便坐吧」
		PRINTFORMDL ……就算你这么说也没能坐下的地方
		PRINTFORMDW 没办法，%CALLNAME:MASTER%只好在%CALLNAME:TARGET%回来之前收拾了一下房间
		TCVAR:64:355 = 1
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;699,外出
;==================================================
@M_KOJO_MESSAGE_COM_K64_699
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K64_699_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K64_699_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;睡眠中
	IF CFLAG:睡眠
		PRINTFORMDL %CALLNAME:TARGET%在熟睡着
		PRINTFORMDW %CALLNAME:MASTER%为了不吵醒她蹑手蹑脚的离開了房间
	;その日二回目以降部屋から出るとき
	ELSEIF TCVAR:64:356 == 1
		PRINTFORML 「今天真是尽兴。下次再来喝一杯呐」
		PRINTFORMW 「啊啊、还是说现在去找下家喝酒的地方？ 我陪你一起」
	;通常
	ELSE
		PRINTFORML 「嗯？这就要回去了？ 感觉还没喝够呐……」
		PRINTFORML 「对了、要不要现在就去喝？ 我知道一家不错的店！」
		PRINTFORMDW %CALLNAME:TARGET%好像还想继续和%CALLNAME:MASTER%一起喝的样子。该怎么办……
	ENDIF
ENDIF
RESETCOLOR
RETURN 1

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

@M_KOJO_MESSAGE_SCOM_K64_60
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K64_60_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K64_60_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;恋慕
	IF TALENT:恋慕
		;判定
		SELECTCASE TFLAG:193
			;大成功
			CASE 1
				PRINTFORML 「呼ーっ……来、好了哟」
				PRINTFORMDL 耳朵传来温暖的吐息、被吓醒了
				PRINTFORMDW %CALLNAME:TARGET%的耳朵太舒服了、不知不觉中睡着了的样子……
			;成功
			CASE 0
				PRINTFORML 「好、搞干净了」
				PRINTFORML 「下次还想的话尽管说就好」
				PRINTFORMDW 被%CALLNAME:TARGET%清理过的耳朵很舒服
			;失敗
			CASE -1
				PRINTFORML 「啊、危险」
				PRINTFORML 「差点就捅到你脑子里边去了」
				PRINTFORMDW ……%CALLNAME:MASTER%顿时面无血色
		ENDSELECT
	;それ以外
	ELSE
		;判定
		SELECTCASE TFLAG:193
			;大成功
			CASE 1
				PRINTFORML 「好、搞干净了」
				PRINTFORML 「在囤积之前自己也要好好清理一下啊？」
				PRINTFORMDW 意外的并没有被弄得一团糟
			;成功
			CASE 0
				PRINTFORML 「以前、萃香也有来拜托我掏耳朵来着」
				PRINTFORML 「那个时候一不小心手滑了、把那家伙的鼓膜给捅破了」
				PRINTFORML 「然后萃香就搬到地上去了……啊、真是做了坏事呐」
				PRINTFORMDW 有必要现在提这个话题……？
			;失敗
			CASE -1
				PRINTFORML 「抱歉抱歉、手滑了」
				PRINTFORMDL 痉挛着的%CALLNAME:MASTER%的耳朵、仿佛被某传说中的圣剑刺到了一样
				PRINTFORMW 「我不习惯做这种事啦、原谅我吧」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;61,抱枕
;(TARGET睡眠時間or衰弱)陪睡中、前ターン抱きつく後就寝指令
;分岐無し
;==================================================
@M_KOJO_MESSAGE_SCOM_K64_61
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K64_61_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K64_61_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;62,亲額頭
;前ターン頭撫で後接吻
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;ABL:欲望(5以上=物足りない
;ABL:親密(5以上=照れる
;==================================================
@M_KOJO_SUCCESS_SCOM_K64_62
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K64_62
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_SCOM_K64_62_1
RETURN RESULT

@M_KOJO_EXTRASOURCE_SCOM_K64_62
;恋慕が無く情緒が低い時は反感激増
SIF !TALENT:恋慕 && BASE:情緒 < 1000
	SOURCE:反感 = SOURCE:反感 * 2

@M_KOJO_MESSAGE_SCOM_K64_62_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;睡眠中
	IF CFLAG:睡眠
		PRINTFORMDL %CALLNAME:MASTER%朝睡眠中的%CALLNAME:TARGET%的额头轻轻的吻了一下
		PRINTFORMDW
		PRINTFORML 「%TEXTR("……ｚｚｚ……/……呼唔……/……ん、ぅ……/")%」
		PRINTFORMDW %CALLNAME:TARGET%皱着眉头、挠了挠被%CALLNAME:MASTER%亲过的地方……
	;被逆推
	ELSEIF CFLAG:诶嘿嘿 == 2
		PRINTFORML
		RETURN 1
	;通常
	ELSE
		;恋慕
		IF TALENT:恋慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%温柔的吻了吻%CALLNAME:TARGET%的赤角
				PRINTFORMDL 然后、作为回礼%CALLNAME:TARGET%也亲吻了%CALLNAME:MASTER%的额头
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「如果你是鬼、有角的话――」
						PRINTFORMDL %CALLNAME:TARGET%亲吻了一下%CALLNAME:MASTER%的额头
						PRINTFORML 「嗯……大概这附近吧。嗯、就算你是鬼也会是个好男人的」
						PRINTFORMDW %CALLNAME:TARGET%嗯嗯的点着头。她到底看到了什么呢
					CASE 1
						PRINTFORML 「――你想要这个的吧？」
						PRINTFORML 「你在想什么我就算喝醉了也知道」
						PRINTFORMDW %CALLNAME:TARGET%温柔的摸着%CALLNAME:MASTER%的头……
					CASE 2
						PRINTFORML 「只是这样是满足不了我的……」
						PRINTFORML 「嗯……呵呵、这不是很懂吗」
						PRINTFORMDW 被%CALLNAME:MASTER%亲吻了嘴唇的%CALLNAME:TARGET%開心的微笑着
						EXP:接吻経験 ++
						EXP:MASTER:接吻経験 ++
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%轻轻的吻了吻%CALLNAME:TARGET%的赤角
				PRINTFORMDL %CALLNAME:TARGET%看起来很開心……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「我还以为你会更进一步呢」
						PRINTFORML 「――是我想错了吗？」
						PRINTFORMDW %CALLNAME:TARGET%好像期待着进一步的行为……
					CASE 1
						PRINTFORML 「满足了吗？ 那么――」
						PRINTFORMDL %CALLNAME:TARGET%将手指贴到%CALLNAME:MASTER%的嘴唇上
						PRINTFORMW 「接下来是这里。可不要说不行哟」
					CASE 2
						PRINTFORML 「就那么喜欢我的角吗？」
						PRINTFORML 「――呵呵、你可真是个怪家伙」
						PRINTFORMDW 都现在了还说什么。%CALLNAME:MASTER%抚摸着%CALLNAME:TARGET%的头的同时继续亲吻着她的角
				ENDSELECT
			ENDIF
		;思慕
		ELSEIF TALENT:思慕
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%温柔的亲吻了%CALLNAME:TARGET%的赤角
				PRINTFORMDL %CALLNAME:TARGET%不知为什么看起来蛮高兴的样子……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「这颗星星？ 呼呼、很帅吧？」
						PRINTFORML 「正与我相配……喂」
						PRINTFORMDW %CALLNAME:MASTER%亲吻了一下星形的标志、%CALLNAME:TARGET%很难得的露出了惊慌的样子
					CASE 1
						PRINTFORML 「――还来啊？ 真是不厌烦啊你」
						PRINTFORMDL %CALLNAME:MASTER%并没有回答%CALLNAME:TARGET%的话、只是一味的亲爱着她
						PRINTFORMDW 一边亲吻着一边摸着头、%CALLNAME:TARGET%认命一样闭上了眼睛
					CASE 2
						PRINTFORML 「啊？ 也想让我来？」
						PRINTFORML 「――真是的、这样就可以了吧？」
						PRINTFORMDW %CALLNAME:TARGET%柔软温暖的嘴唇亲吻在了%CALLNAME:MASTER%的额头上
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%轻轻的吻了吻%CALLNAME:TARGET%的赤角
				PRINTFORMDL %CALLNAME:TARGET%并没有抗拒的样子
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「――作为擅自摸头的道歉？ 呼哈哈哈哈哈！」
						PRINTFORML 「太蠢了！ 蠢过头反而生气不起来了！」
						PRINTFORMDW %CALLNAME:TARGET%被%CALLNAME:MASTER%滑稽的台词逗得哈哈大笑……
					CASE 1
						PRINTFORML 「乐在其中啊你」
						PRINTFORML 「你这副表情啊。果然还是来一拳吧……」
						PRINTFORMDW 看着%CALLNAME:TARGET%握住拳头的架势%CALLNAME:MASTER%慌忙离開了
					CASE 2
						PRINTFORML 「（试一试吧）――哈！」
						PRINTFORMDL %CALLNAME:MASTER%华丽的避開了%CALLNAME:TARGET%的头槌
						PRINTFORMW 「哦哦！ 这不是很能干嘛！」
				ENDSELECT
			ENDIF
		;それ以外
		ELSE
			;情緒が高まってる時
			IF BASE:情緒 >= 1000
				PRINTFORMDL %CALLNAME:MASTER%温柔的亲吻了%CALLNAME:TARGET%的赤角
				PRINTFORMDL %CALLNAME:TARGET%一脸呆然的看着%CALLNAME:MASTER%……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMDL %CALLNAME:MASTER%不断亲吻着%CALLNAME:TARGET%帅气的角
						PRINTFORML 「――喂、已经够了吧？」
						PRINTFORMW 「这么搞很痒的」
					CASE 1
						PRINTFORML 「你的那副装模做样的脸、要不要打一拳试试呢」
						PRINTFORML 「――哈哈哈哈！ 要逃吗？ 那我追上去才是礼仪吧！」
						PRINTFORMDW %CALLNAME:MASTER%和%CALLNAME:TARGET%稍微的追逐了起来……
					CASE 2
						PRINTFORML 「呼――」
						PRINTFORMDL %CALLNAME:MASTER%勉强躲開了%CALLNAME:TARGET%朝自己挥出的重拳！
						PRINTFORML 「喂！ 别跑！」
						PRINTFORMW 「这种时候就要给你一拳才是礼仪吧！」
				ENDSELECT
			;それ以外
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%轻轻的吻了吻%CALLNAME:TARGET%的赤角
				PRINTFORMDL 就算是%CALLNAME:TARGET%也被吓到了……
				PRINTFORMDW
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「喂……」
						PRINTFORMDL 在%CALLNAME:TARGET%反应过来之前%CALLNAME:MASTER%就快速的拉開了距离
						PRINTFORML 「――你这家伙、很有胆子啊。不过我可会不放过你」
						PRINTFORMDW 作为报复被弹额头了。很疼
					CASE 1
						PRINTFORML 「――真是被小看了呐」
						PRINTFORML 「那么。你到底是勇者呢？ 还是个愚者呢？」
						PRINTFORMDL %CALLNAME:TARGET%嘎吱嘎吱的捏着手指盯着这边
						PRINTFORMDW %CALLNAME:MASTER%在三道歉之后、她才终于收起了拳头
					CASE 2
						PRINTFORMDW 想着到底是什么味道舔了角、%CALLNAME:TARGET%看起来真的生气了
						PRINTFORML 「被这么搞还沉默的话、我鬼的名号都要受伤了」
						PRINTFORMW 「――给我要紧牙关吧。说不定会有那么亿丢丢的疼呐！」
						PRINTFORMDW ……总算被揍了一拳就被原谅了。看着脸上巨大的肿块、%CALLNAME:TARGET%的怒气好像也多少消散了一些
						;１００ダメージ
						BASE:MASTER:体力 -= 100
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;63,更多的接吻
;前ターン接吻後接吻
;分岐条件はEVENT_MESSAGE_COM500.ERB参照
;==================================================
@M_KOJO_SUCCESS_SCOM_K64_63
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K64_63
;CALL TRAIN_MESSAGE
DRAWLINE
CALL M_KOJO_MESSAGE_SCOM_K64_63_1
RETURN RESULT

@M_KOJO_EXTRASOURCE_SCOM_K64_63
;情緒が高まってる時は反感ゼロ
IF BASE:情緒 >= 1000
	SOURCE:反感 = 0
;条件を満たさない場合は大幅減
ELSE
	SOURCE:反感 = SOURCE:反感 / 10
ENDIF

@M_KOJO_MESSAGE_SCOM_K64_63_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
CALL M_KOJO_COLOR_K64
	;時間停止中
	IF FLAG:70
		PRINTFORML
		RETURN 1
	;被逆推
	ELSEIF CFLAG:诶嘿嘿 == 2
		CALL AUTO_AEGI
		RETURN 1
	;通常
	ELSE
		PRINTFORMDL %CALLNAME:MASTER%朝\@ CFLAG:TARGET:陪睡中 ? 陪睡的 # \@%CALLNAME:TARGET%的嘴唇深深的吻了过去…
		PRINTFORMDW
		;恋慕
		IF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMDL %CALLNAME:MASTER%贪婪的亲吻着%CALLNAME:TARGET%、用舌头在对方口中不断索取着
					CALL HPH_PRINT,@"「啾……啾啾……っHPH ん、ふぅ……HPH」","L"
					CALL HPH_PRINT,@"「哈……HPH 呐、继续……HPH」","L"
					PRINTFORMDW %CALLNAME:TARGET%兴奋着、用期待的眼光望着%CALLNAME:MASTER%……
				CASE 1
					CALL HPH_PRINT,@"「嗯……更多？ 真拿你没办法呢……HPH」","L"
					CALL HPH_PRINT,@"「来……HPH ん……啾啾……ッHPH」","L"
					PRINTFORMDW %CALLNAME:MASTER%和%CALLNAME:TARGET%激情的深吻起来……
				CASE 2
					CALL HPH_PRINT,@"「来……啾啾……っHPH んる……っHPH」","L"
					PRINTFORMDL %CALLNAME:MASTER%和%CALLNAME:TARGET%激烈的深吻着互相交换着唾液……
					CALL HPH_PRINT,@"「呼ぅ……HPH 很好吃哟、%MASTERNAME:64%……HPH」","W"
			ENDSELECT
		;それ以外
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「――再来一次可以吗？」
					PRINTFORML 「那种事都不用问的吧……嗯っ」
					PRINTFORMDW %CALLNAME:MASTER%贴了过来和%CALLNAME:TARGET%的嘴唇重叠起来……
				CASE 1
					PRINTFORML 「ん……啾……哈……む……っ」
					PRINTFORMDL 朝嘴唇重合着的%CALLNAME:TARGET%背后伸出手不断的抚摸起来
					PRINTFORMDW 稍微咬了咬她的下唇、%CALLNAME:TARGET%发出甘美的气息望向%CALLNAME:MASTER%
				CASE 2
					PRINTFORML 「呼……む……啾……ん……っ」
					PRINTFORML 「哈……你的嘴唇可真是美味啊」
					PRINTFORMDW %CALLNAME:TARGET%舔了舔沾满%CALLNAME:MASTER%唾液的嘴唇
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;80,拉手
;约会出発後目的地に着くまでの間
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_SCOM_K64_80
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =1

@M_KOJO_MESSAGE_SCOM_K64_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K64_80_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K64_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「就算不那么急目的地也不会逃的」
			PRINTFORML 「好不容易出来一趟。一边欣赏景色一边走吧」
			PRINTFORMDL ――确实有点急了
			PRINTFORMDW %CALLNAME:MASTER%松缓脚步、和%CALLNAME:TARGET%并肩而行
		CASE 1
			PRINTFORML 「赶时间？ 啊啊、是嘛」
			PRINTFORML 「我正好也这么觉得的！」
			PRINTFORMDL %CALLNAME:TARGET%笑了一下、甩開%CALLNAME:MASTER%的手開心的跑了起来！
			PRINTFORMDW 赛跑啦！ 朝着越来越小的%CALLNAME:TARGET%的背影、%CALLNAME:MASTER%全速追了上去
		CASE 2
			PRINTFORML 「既然那么急的话就来赛跑吧」
			PRINTFORML 「先到那边的%TEXTR("树/岩/壁/")%边的人就算赢」
			PRINTFORML 「准备好了哦？ 准备――跑！！！」
			PRINTFORMDL 一歩、二歩、三歩。充满鬼之力的大腿没踏出一步都地动山摇
			PRINTFORMDW %CALLNAME:MASTER%才刚刚踏出一步、%CALLNAME:TARGET%就已经遥遥领先了……
	ENDSELECT
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【64】勇儀汉化已过字典/M_KOJO_K64_日常系コマンド.ERB