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

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

@M_KOJO_MESSAGE_COM_K108_300_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;初回会話
	IF FIRSTTIME(SELECTCOM)
		CALL COLORMESSAGE("「ん～っ♪今日の団子も美味しい！幸せだなぁ～…♪」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		CALL COLORMESSAGE("「―何さ？ジロジロ見て……もしかしてキミも食べたい？」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		SETCOLOR 0xEE9900
		PRINTFORMDW 鈴瑚はいつも…と言うより、常に団子を食べている。体を壊さないか心配だ……
		PRINTFORML 「大丈夫大丈夫♪これ位で壊れる程、私はヤワじゃないよ」
		PRINTFORMW 「それに…これが私の"能力"だからね」
		PRINTFORMW 「教えてあげるよ%CALLNAME:MASTER%。私の能力は…"団子を食べる程に強くなる程度の能力"」
		PRINTFORMDW 冗談みたいな能力の内容に、%CALLNAME:MASTER%は思わず噴き出してしまった。
		PRINTFORML 「やれやれ……キミは、私の能力の恐ろしさに気づいて無いようだね」
		PRINTFORMW 「"団子を食べる程"…要するに、この能力に上限は無い…」
		CALL COLORMESSAGE("「いずれ私は、この幻想郷において最強の存在になるという事さ」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 鈴瑚は見てるだけでお腹一杯になりそうな量の団子を新たに取り出し、食べ始めた……
	;怒り
	ELSEIF CFLAG:318 == 1
		CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW こちらを視界に入れたくないのか、鈴瑚は明後日の方向を向きながら団子を食べている……
	;喋りすぎ
	ELSEIF TCVAR:302
		SELECTCASE RAND:3
			CASE 0
				IF TALENT:恋慕 || TALENT:思慕
					CALL COLORMESSAGE("「…ああ、ゴメン。何の話だっけ？」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 今の話には興味が無かったようだ……
				ELSE
					CALL COLORMESSAGE("「静かに。今は団子を味わうのに集中してるの」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚に話を遮られた……
				ENDIF
			CASE 1
				IF TALENT:恋慕 || TALENT:思慕
					PRINTFORML 「……腹ごなしに何処か出掛けようか。気分転換も兼ねて」
					PRINTFORMDW 鈴瑚は、お喋りに飽きたようだ……
				ELSE
					CALL COLORMESSAGE("「そっかそっか。そりゃあ大変だ」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚は適当に相槌を打ちながら団子を食べている……
				ENDIF
			CASE 2
				IF TALENT:恋慕 || TALENT:思慕
					PRINTFORML 「%CALLNAME:MASTER%ちょっと喋りすぎ。これでも食べて落ち着きなよ」
					PRINTFORMDW 口に団子をねじ込まれた……
				ELSE
					CALL COLORMESSAGE("「何で団子って、こんなに美味しいんだろう？」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚は%CALLNAME:MASTER%との話に興味を無くしたようだ……
				ENDIF
		ENDSELECT
	;酔っ払い時会話
	;ぐでぐで
	ELSEIF BASE:酒気 > (MAXBASE:酒気 / 10) * 8
		IF TALENT:恋人 || TALENT:恋慕
			SELECTCASE RAND:5
				CASE 0
					PRINTFORML 「も～……！キミとサシでのむと、いっつものみすぎちゃうんだよなぁ～！」
					PRINTFORMW 「まえはこんなんじゃなかったのに……ほんっと、キミってやつは…！」
					CALL HPH_PRINT,@"「……だいすきだよHPH」","W"
				CASE 1
					CALL COLORMESSAGE("「う～ん…おつまみなくなっちゃった……あ！そうだ」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					SETCOLOR 0xEE9900
					PRINTFORML 「かわりに%CALLNAME:MASTER%つまもう♪…ぐにぃ～……」
					PRINTFORML 「あっははは！よくのびる～♪」
					PRINTFORMDW よくわからないが、%CALLNAME:MASTER%の頬をつまむ鈴瑚はとても楽しそうだ……
				CASE 2
					PRINTFORML 「"ウイスキーボンボン"みたいに、おさけはいったダンゴとかありだとおもうんだよね」
					PRINTFORMDW 鈴瑚は目が据わっている……
				CASE 3
					PRINTFORML 「……%CALLNAME:MASTER%って、よくみたらおいしそうね……」
					PRINTFORML 「ちょっとあじみしてもいい？」
					PRINTFORMDW 鈴瑚は相当酔っているようだ……
				CASE 4
					PRINTFORML 「いへんのときもそうだったけどさー！みんなわたしが、どれだけくろうしてるのかわかってないよ！」
					CALL HPH_PRINT,@"「…%CALLNAME:MASTER%はわかってくれるのね？だからすきHPH」","L"
					PRINTFORMDW 鈴瑚は相当ストレスが溜まっているようだ……
			ENDSELECT
		ELSE
			SELECTCASE RAND:5
				CASE 0
					PRINTFORML 「の、のみすぎたぁ～…！ちょっときゅうけい……」
					PRINTFORMDW 鈴瑚はその場に横になった…
				CASE 1
					PRINTFORML 「…ん？おさけなくなっちゃった…」
					PRINTFORML 「しょうどくようのアルコールあるけど、のむ？」
					PRINTFORMDW それは駄目だろう……
				CASE 2
					PRINTFORML 「ほしがぁ…ぐるぐるしてるぅ……」
					PRINTFORMDW 鈴瑚はかなり酔ってしまったようだ……
				CASE 3
					PRINTFORML 「……Zzz」
					PRINTFORMW 「―はっ！…ねちゃうとこだった…」
				CASE 4
					PRINTFORML 「いや…おかわりはいいや。それよりもみずを…」
					PRINTFORMDW 鈴瑚に水を飲ませると、少し気分が良くなったようだ。
			ENDSELECT
		ENDIF
	;酔いどれ
	ELSEIF BASE:酒気 > (MAXBASE:酒気 / 10) * 5
		IF TALENT:恋人 || TALENT:恋慕
			SELECTCASE RAND:5
				CASE 0
					CALL HPH_PRINT,@"「ふふ…♪ねぇ…今日はキミと朝まで飲みたいな…HPH」","L"
					PRINTFORMDW 鈴瑚が潤んだ瞳で見つめてくる…。
				CASE 1
					PRINTFORML 「んっ―……ふぅ…美味し…♪」
					PRINTFORMDW 酒に濡れた鈴瑚の唇が、妙に艶めかしく見える……
				CASE 2
					PRINTFORML 「%CALLNAME:MASTER%のお酒、美味しいからすぐ無くなっちゃう…♪」
					PRINTFORMDW "お代わりならある"と言うと、鈴瑚は嬉しそうに頷いた。
				CASE 3
					CALL HPH_PRINT,@"「ん？大丈夫……HPHまだ酔ってないよ…HPH」","L"
					PRINTFORMDW 鈴瑚は顔を赤らめている……
				CASE 4
					PRINTFORMDL ふと鈴瑚の方を見ると目が合った。
					PRINTFORML 「…？…ふふ♪な～に%CALLNAME:MASTER%？」
					PRINTFORMDW 頬を上気させながら、鈴瑚はふわりとほほ笑んだ…
			ENDSELECT
		ELSE
			SELECTCASE RAND:5
				CASE 0
					PRINTFORML 「いい感じに……酔いが回ってきたねぇ…♪」
					PRINTFORMDW 鈴瑚はゆらゆら揺れている。
				CASE 1
					PRINTFORML 「このお酒美味しいね。%CALLNAME:MASTER%、お代わりある？」
					PRINTFORMDW 鈴瑚は%CALLNAME:MASTER%の持ってきた酒を気に入ってくれたようだ。
				CASE 2
					PRINTFORML 「酒は飲んでも飲まれるなってね。大丈夫、私はまだいけるよ」
					PRINTFORMDW 鈴瑚は自分の限界をある程度理解しているようだ。
				CASE 3
					CALL COLORMESSAGE("「以外と酒にも合うなぁ」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚は団子をつまみにして酒を飲んでいる…
				CASE 4
					PRINTFORML 「む……%CALLNAME:MASTER%、グラスが減ってないじゃないか」
					PRINTFORML 「―あ！ひょっとして、私を酔わせていやらしい事しようとしてる？」
					PRINTFORMDW 誤解を解く為にも、%CALLNAME:MASTER%はグラスの酒を飲み干した……
			ENDSELECT
		ENDIF
	ELSEIF TALENT:恋人
		IF FLAG:约会的对象 == 108
			SELECTCASE RAND:2
				CASE 0
					CALL RINGO_DATE
				CASE 1
					SELECTCASE RAND:4
						CASE 0
							CALL RINGO_KOIBITO
						CASE 1
							CALL RINGO_OTENKI
						CASE 2
							CALL RINGO_SEASON
						CASE 3
							CALL RINGO_GENSAKU
					ENDSELECT
			ENDSELECT
		ELSE
			SELECTCASE RAND:5
				CASE 0
					CALL RINGO_GENSAKU
				CASE 1
					CALL RINGO_KOIBITO
				CASE 2
					CALL RINGO_SEASON
				CASE 3
					CALL RINGO_OTENKI
				CASE 4
					PRINTFORML 「%CALLNAME:MASTER%…今日は、デートしないの？」
					PRINTFORMDW 鈴瑚を誘って何処か出掛けようか……
			ENDSELECT
		ENDIF
	ELSEIF TALENT:恋慕
		IF FLAG:约会的对象 == 108
			SELECTCASE RAND:2
				CASE 0
					CALL RINGO_DATE
				CASE 1
					SELECTCASE RAND:4
						CASE 0
							CALL RINGO_RENBO
						CASE 1
							CALL RINGO_OTENKI
						CASE 2
							CALL RINGO_SEASON
						CASE 3
							CALL RINGO_GENSAKU
					ENDSELECT
			ENDSELECT
		ELSE
			SELECTCASE CFLAG:現在位置
			;人間の里
				CASE 201,202,203,204,205,206,230,240,210,220,230,240,250,270
					CALL RINGO_ODANGO
				CASEELSE
					SELECTCASE RAND:5
						CASE 0
							CALL RINGO_GENSAKU
						CASE 1
							CALL RINGO_RENBO
						CASE 2
							CALL RINGO_SEASON
						CASE 3
							CALL RINGO_OTENKI
						CASE 4
							PRINTFORML 「%CALLNAME:MASTER%…今日は、デートしないの？」
							PRINTFORMDW 鈴瑚を誘って何処か出掛けようか……
					ENDSELECT
			ENDSELECT
		ENDIF
	ELSEIF TALENT:思慕
		IF FLAG:约会的对象 == 108
			SELECTCASE RAND:2
				CASE 0
					CALL RINGO_DATE
				CASE 1
					SELECTCASE RAND:4
						CASE 0
							CALL RINGO_SHIBO
						CASE 1
							CALL RINGO_OTENKI
						CASE 2
							CALL RINGO_SEASON
						CASE 3
							CALL RINGO_GENSAKU
					ENDSELECT
			ENDSELECT
		ELSE
			SELECTCASE CFLAG:現在位置
			;人間の里
				CASE 201,202,203,204,205,206,230,240,210,220,230,240,250,270
					CALL RINGO_ODANGO
				CASEELSE
					SELECTCASE RAND:5
						CASE 0
							CALL RINGO_GENSAKU
						CASE 1
							CALL RINGO_SHIBO
						CASE 2
							CALL RINGO_SEASON
						CASE 3
							CALL RINGO_OTENKI
						CASE 4
							PRINTFORML 「ねえ…暇だし、何処か出掛けようよ」
							PRINTFORMDW 鈴瑚を誘って何処か出掛けようか……
					ENDSELECT
			ENDSELECT
		ENDIF
	ELSE
		IF FLAG:约会的对象 == 108
			SELECTCASE RAND:2
				CASE 0
					CALL RINGO_NORMAL
				CASE 1
					CALL RINGO_OTENKI
			ENDSELECT
		ELSE
			SELECTCASE CFLAG:現在位置
			;人間の里
				CASE 201,202,203,204,205,206,230,240,210,220,230,240,250,270
					CALL RINGO_ODANGO
				CASEELSE
					SELECTCASE RAND:2
						CASE 0
							CALL RINGO_NORMAL
						CASE 1
							CALL RINGO_OTENKI
					ENDSELECT
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;301,お茶を淹れる
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K108_301
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_301
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_301_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_301_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FIRSTTIME(SELECTCOM)
		PRINTFORML 「……ん？お茶くれるの？…ありがと♪じゃあ遠慮無く…」
		PRINTFORML （とりあえず、毒の類は入って無さそうだな……）
		PRINTFORMDW 少し警戒しながらも、鈴瑚はお茶を飲んでくれた。
	ELSEIF CFLAG:318 == 1
		PRINTFORML 「……どーも」
		PRINTFORMDW 鈴瑚は一言お礼を言うと、お茶を一気に飲み干した…
	ELSEIF TFLAG:193 == 1
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「おっ、茶柱だ！ラッキー！いいことありそう♪」
				PRINTFORMW 「…あぁ、美味しい…♪」
			CASE 1
				CALL COLORMESSAGE("「流石、キミは解ってるね…！やっぱり団子には緑茶が一番だよねぇ♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚はお茶と団子に舌鼓を打っている。
			CASE 2
				CALL COLORMESSAGE("「凄く美味しいお茶だね…！団子にもよく合うし…」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				SETCOLOR 0xEE9900
				PRINTFORML 「…%CALLNAME:MASTER%。このお茶、鈴瑚屋で出してくれないかな？」
				PRINTFORMDW 鈴瑚は%CALLNAME:MASTER%のお茶を気に入ってくれたようだ。
			CASE 3
				PRINTFORML 「美味しいお茶だ…疲れも吹っ飛ぶよ…♪」
				PRINTFORMDW 鈴瑚の顔から、疲労の色が消えた……気がする。
			CASE 4
				IF TALENT:恋慕 || TALENT:思慕
					CALL HPH_PRINT,@"「いつも美味しいお茶ありがとね♪%CALLNAME:MASTER%HPH」","L"
					PRINTFORMDW 鈴瑚の笑顔を見て、%CALLNAME:MASTER%も嬉しくなった。
				ELSE
					PRINTFORML 「美味しかったよ。ご馳走様」
					PRINTFORMDW 鈴瑚はお茶を全部飲んでくれた。
				ENDIF
		ENDSELECT
	ELSEIF TFLAG:193 == 0
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「茶柱は…無し。今日も平凡な一日になりそうだねぇ」
				PRINTFORMW 「ずず……美味しい♪」
			CASE 1
				PRINTFORML 「―んぐッ！？……ぐ…！」
				PRINTFORMDL 鈴瑚は団子を喉に詰まらせたようだ…%CALLNAME:MASTER%の手からお茶をひったくると、一気に飲み干した。
				PRINTFORMW 「%TEXTR("ふぅ～…死ぬかと思った…/ごくっ…ふぅ、今のは危なかったね…/いや～…ありがと、助かったよ/")%」
			CASE 2
				PRINTFORML 「うん、美味しい。結構なお手前で」
				PRINTFORML 「……って言うんだよね？地上の"茶道"ってヤツは」
				PRINTFORMDW 鈴瑚は地上の食文化に詳しいようだ。
			CASE 3
				PRINTFORML 「……！…%CALLNAME:MASTER%、このお茶…」
				PRINTFORML 「―私の店で出してみない？」
				PRINTFORMDW 鈴瑚はいつになく真剣な表情だ……
			CASE 4
				IF TALENT:恋慕 || TALENT:思慕
					PRINTFORML 「…ん？%CALLNAME:MASTER%、お茶っ葉変えたの？」
					PRINTFORML 「いいね、これ。私気に入ったかも」
					PRINTFORMDW 鈴瑚の口に合うお茶だったようだ。
				ELSE
					PRINTFORML 「%CALLNAME:MASTER%…さしずめキミの能力は、"いつでもお茶を淹れられる程度の能力"ってトコかな？」
					PRINTFORMDW 違う。
				ENDIF
		ENDSELECT
	ELSE
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML 「おお、お茶。ありがと―」
				PRINTFORML 「あ゛っつ！！…ふー…ふー…」
				PRINTFORMDW どうやら熱すぎたようだ……
			CASE 1
				CALL COLORMESSAGE("「このお茶…団子には合わないなぁ…」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚は苦々しい顔をしている…
			CASE 2
				PRINTFORML 「%CALLNAME:MASTER%…このお茶、あんまり美味しくないね…」
				PRINTFORML 「悪いけど、これをお客さんにお出しするのは許可できないよ」
				PRINTFORMDW いつの間にそんな話になっていたのだろう……？
			CASE 3
				IF TALENT:恋慕 || TALENT:思慕
					PRINTFORML 「…ん？%CALLNAME:MASTER%、お茶っ葉変えたの？」
					PRINTFORML 「前のお茶好きだったのに…」
					PRINTFORMDW 鈴瑚は少し残念そうだ……
				ELSE
					PRINTFORML 「う～ん…私はもう少し、濃い方が好きかな？」
					PRINTFORMDW このお茶は、鈴瑚の好みに合わなかったようだ…
				ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;302,スキンシップ
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K108_302
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_302
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_302_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_302_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;怒り
	IF CFLAG:318 == 1
		SELECTCASE RAND:2
			CASE 0
				CALL COLORMESSAGE("「団子食べてるんだから邪魔しないで」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚に手を払いのけられた……
			CASE 1
				CALL COLORMESSAGE("「――チッ…！」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 相当機嫌が悪いのか、鈴瑚に舌打ちされた……
		ENDSELECT
	;お風呂
	ELSEIF BATHCHECK(CFLAG:MASTER:現在位置) && IN_HOME(CFLAG:MASTER:現在位置)
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMDW せっかく一緒に入っているので、鈴瑚に背中を洗ってもらう事にした。
				IF TALENT:恋人
					PRINTFORML 「%CALLNAME:MASTER%の背中おっきいね…！洗うの大変だよ……」
					PRINTFORMW 「…"身体を使って洗って欲しい"？はいはい、また今度ね」
				ELSEIF TALENT:恋慕
					PRINTFORML （%CALLNAME:MASTER%のハダカ…！すごく…ドキドキする…！）
					PRINTFORML 「え…えっと、失礼…します…？」
					PRINTFORMDW 鈴瑚がおずおずと背中に触れてきた。…少しくすぐったい……！
				ELSE
					PRINTFORML 「え～…それ位自分でやりなよ」
					PRINTFORMDW あっさりと却下された……
				ENDIF
			CASE 1
				PRINTFORMDW せっかく一緒に入っているので、鈴瑚の背中を洗ってあげる事にした。
				IF TALENT:恋人
					PRINTFORML 「痛い痛いっ！！%CALLNAME:MASTER%！もっと優しく洗ってよ～！」
					CALL HPH_PRINT,@"「…そうそう♪私の身体はデリケートなんだから、優しくね…HPH」","L"
					PRINTFORMDW 以外と難しい……
				ELSEIF TALENT:恋慕
					PRINTFORML 「うう…恥ずかしいから、目閉じてて…！」
					PRINTFORML 「…あっはははは！く、くすぐったい！そこは洗わなくていいから！」
					PRINTFORMDW 結局鈴瑚は、自分で身体を洗うことにしたようだ……
				ELSE
					PRINTFORML 「いや、いいよ。自分でやるから」
					PRINTFORMDW あっさりと却下された……
				ENDIF
		ENDSELECT
	;酔っ払い強
	ELSEIF BASE:酒気 > (MAXBASE:酒気 / 10) * 8
		IF TALENT:恋慕
			PRINTFORMDW 突然、鈴瑚に後ろから抱きしめられた。
			PRINTFORML 「なにもきかないで……ちょっとだけ、このままでいさせて……」
			PRINTFORMDW %CALLNAME:MASTER%は何も言わず、首に回された鈴瑚の手を優しく握った……
		ELSE
			PRINTFORML 「おっと…わたしにふれないほうがいーよ…！」
			PRINTFORML 「くちから…『ダンゴインフリューエンス』が…うっぷ」
			PRINTFORMDW …優しく背中をさすると、少し落ち着いたようだ……
		ENDIF
	;酔っ払い弱
	ELSEIF BASE:酒気 > (MAXBASE:酒気 / 10) * 5
		CALL HPH_PRINT,@"「ふぅ…♪ちょっと、酔っちゃったかも…HPH」","L"
		PRINTFORMDW 鈴瑚が身体を寄せてきた……
	ELSEIF TALENT:恋人
		SELECTCASE RAND:30
			CASE 0
				CALL HPH_PRINT,@"「キミの手…大きくて、あったかいね…HPH」","L"
				PRINTFORMDW 鈴瑚の手を優しく握った。
			CASE 1
				PRINTFORML 「ふふ…♪なあに？%CALLNAME:MASTER%…♪」
				PRINTFORMDW 鈴瑚とのスキンシップを楽しんだ。
			CASE 2
				CALL HPH_PRINT,@"「……ねえ。触るのは腕だけでいいの…？HPH」","L"
				PRINTFORMDW 鈴瑚は熱っぽい視線を向けてきた……！
			CASE 3
				CALL COLORMESSAGE("「…ん？あれ何だろ？ほら、向こうの空に何か……」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMW 鈴瑚と肩を寄せ合いながら、景色を眺めた。
			CASE 4
				CALL HPH_PRINT,@"「……ちょっと、恥ずかしいね…へへ…HPH」","L"
				PRINTFORMW 意味もなく、鈴瑚と指を絡めて見つめ合った。
			CASE 5
				PRINTFORMW 「%CALLNAME:MASTER%……んっ」
				PRINTFORMDW "何か"を期待して唇を突き出してきた鈴瑚の鼻を摘まんでやると、腕を軽くつねられた…
			CASE 6
				PRINTFORML 「あっ。%CALLNAME:MASTER%、ちょっと動かないでね…」
				PRINTFORMW 「……よし、取れた！前髪に何か付いてたよ」
			CASE 7
				PRINTFORMDL 鈴瑚の腕を軽くつまんでみた。凄く柔らかい…
				PRINTFORMDL まるで団子をこねる様に、しばらく感触を楽しんだ。
				CALL COLORMESSAGE("「あの……くすぐったいんだけど」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			CASE 8
				PRINTFORML 「あ゛～～お腹空いたなぁ～……何か食べに行かない？」
				PRINTFORMDW 鈴瑚が後ろから圧し掛かってきた。
			CASE 9
				CALL HPH_PRINT,@"「こうやってキミと触れ合うの、凄く楽しい…HPH」","W"
			CASE 10
				CALL COLORMESSAGE("「ん？……ふふ♪な～に？人肌でも恋しくなった？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			CASE 11
				CALL HPH_PRINT,@"「私に触っていいのは、%CALLNAME:MASTER%だけなんだからね……HPH」","W"
			CASE 12
				CALL HPH_PRINT,@"（%CALLNAME:MASTER%……いい匂いだな…HPH）","L"
				PRINTFORMDW 鈴瑚は%CALLNAME:MASTER%の背中に顔を押し付けて匂いを嗅いでいる。
			CASE 13
				PRINTFORML 「背中のこの辺りを押すとっ……どう？気持ちいいでしょ？」
				PRINTFORMDW 鈴瑚に背中のツボを押してもらった。
			CASE 14
				PRINTFORML 「%CALLNAME:MASTER%……そこじゃなくて、もうちょっと下の方―」
				CALL HPH_PRINT,@" 「んんっHPHそ、そこ…HPHもっと、ぐりぐりってして…HPH」","L"
				PRINTFORMDW 鈴瑚をマッサージしていると、何だか変な気分になってきた……
			CASE 15
				PRINTFORMDL 鈴瑚の隙を突いて脇腹をくすぐった。―が、鈴瑚の反応は薄い…
				PRINTFORML 「残念……私の弱点はそこじゃないんだよねぇ」
				PRINTFORMW 「…さてと。それじゃ覚悟はいいかい？%CALLNAME:MASTER%♪」
				PRINTFORMDL
				PRINTFORMDW 鈴瑚の器用な指によるくすぐりを受け、%CALLNAME:MASTER%はしばらくその場から動けなかった……
			CASE 16
				PRINTFORMDL %CALLNAME:MASTER%は鈴瑚の二の腕を軽く摘まんだ。まるで団子の様な柔らかさだ…
				PRINTFORMW 「……食べてみる？なんてね♪」
			CASE 17
				CALL HPH_PRINT,@"「んんっ…HPH……ふふ♪」","L"
				PRINTFORMDW 鈴瑚は少しくすぐったそうに身を捩っている。
			CASE 18
				CALL COLORMESSAGE("「美味しい？…良かった♪お代わりもあるからね」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚と肩を寄せ合って、一緒に団子を食べた。
			CASE 19
				PRINTFORML 「%CALLNAME:MASTER%、ちょっとソコ座ってくれる？」
				PRINTFORMDW 鈴瑚に言われるがまま、%CALLNAME:MASTER%は腰掛けた。
				SELECTCASE RAND:2
					CASE 0
						CALL COLORMESSAGE("「ふ～…楽ちん楽ちん♪」", C_ORANGE, 0, 0)
						SETCOLOR 0xFFFF00
						PRINTFORML MGMG
						PRINTFORMDW 鈴瑚は%CALLNAME:MASTER%の頭を肘置き代わりにして団子を食べ始めた……
					CASE 1
						CALL HPH_PRINT,@" 「ふ～…楽ちん楽ちん…HPH」","L"
						PRINTFORMDW 鈴瑚は上からゆっくり圧し掛かってきた…頭に何か"柔らかい感触"が当たっている……！
				ENDSELECT
			CASE 20
				CALL HPH_PRINT,@"「あっ…HPH…ふふHPH」","W"
				PRINTFORMDW 鈴瑚の手を握ると、キュッと握り返してきた。
			CASE 21
				CALL HPH_PRINT,@"「…もっと、いっぱい…私に触って…？HPH」","W"
			CASE 22
				PRINTFORML 「――ひうっ！？……何してんの、もう…！」
				PRINTFORMDW 少し悪戯してやろうと、鈴瑚のヘソを指でつついた。
			CASE 23
				CALL HPH_PRINT,@"「……大好きだよ、%CALLNAME:MASTER%HPH」","L"
				PRINTFORMDW 鈴瑚は後ろから抱きつくと、耳元で囁やいてきた。
			CASE 24
				PRINTFORML 「えっ？尻尾触りたいの？いいけど―」
				CALL HPH_PRINT,@" 「んんっHPH…び、敏感だから…もうちょっと優しく……！」","W"
			CASE 25
				PRINTFORMDL 鈴瑚に断りを入れて、耳を触らせてもらった。何度触っても飽きない触り心地だ…
				CALL HPH_PRINT,@"「ふふ…HPH 耳触るの好き？」","W"
			CASE 26
				PRINTFORMDL 鈴瑚はおもむろに%CALLNAME:MASTER%の手を掴むと、自分の胸元に押し当ててきた…！
				CALL HPH_PRINT,@" 「%CALLNAME:MASTER%…HPHわかる？私、すっごくドキドキしてるのよ…HPH」","L"
				PRINTFORMDW 柔らかい感触と共に、鈴瑚の胸の鼓動が伝わってくる……！
			CASE 27
				CALL HPH_PRINT,@"「……ふふ♪ちょっとくすぐったい……HPH」","W"
			CASE 28
				PRINTFORMDL 鈴瑚の頬に手を添え、彼女の真紅の瞳をじっ…と見つめた。
				CALL HPH_PRINT,@" 「……HPH」","W"
			CASE 29
				CALL COLORMESSAGE("「キミの手つきって…何かいやらしいんだよなぁ……♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚はどこか嬉しそうに呟いた……
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:6
			CASE 0
				PRINTFORML 「きゃっ！な、何！？」
				PRINTFORMW 「あぁ…ゴミ取ってくれたの？…ありがと…」
			CASE 1
				CALL COLORMESSAGE("「…うん！今日の団子も美味しいなあー！流石は私！」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDL 鈴瑚はあなたの背中に寄りかかって団子を食べている。
				PRINTFORMDW ……どこか無理しているようにも見える。
			CASE 2
				PRINTFORML 「うぅ…！ち、近いよ…！」
				PRINTFORMDW 鈴瑚の両肩を掴んでジッと見つめると、目を逸らされた。
			CASE 3
				PRINTFORML （よ…よし…思い切って…！）
				PRINTFORMDL 鈴瑚は突然、身体をぴたっとくっつけてきた。
				PRINTFORMW 「えっと…迷惑だったかな…？」
			CASE 4
				PRINTFORML （%CALLNAME:MASTER%って…好きな人とか、いるのかな…）
				PRINTFORML （私の事は…どう思ってるんだろ……？）
				PRINTFORMDL 鈴瑚は考え事をしているのか、身体を揺すっても返事が無い……
			CASE 5
				PRINTFORML （%CALLNAME:MASTER%……肩当たってるんだけど…
				PRINTFORMW 離れたりしたら感じ悪いって思われるかな…？）
		ENDSELECT
	ELSEIF TALENT:思慕 || TALENT:炮友
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「…"耳触りたい"だって？…まあ、いいけど」
				PRINTFORMDL 鈴瑚のウサ耳を触らせてもらった。すべすべしていていい触り心地だ……
				CALL COLORMESSAGE("（耳なんか触って楽しいのかなぁ……？）", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			CASE 1
				PRINTFORMW 「…ん？ゴミ付いてた？取ってくれてありがとね%CALLNAME:MASTER%」
			CASE 2
				CALL HPH_PRINT,@"「あ゛～…HPH気持ちいぃ…HPH」","L"
				PRINTFORML 「いやぁ～助かるよ…♪最近、肩こりが酷くてさぁ……」
				PRINTFORMDW 鈴瑚の肩をマッサージした。
			CASE 3
				;紺珠伝の鈴瑚戦前の会話ネタ
				SELECTCASE RAND:4
					CASE 0
						PRINTFORML 「―で、そん時に博麗の巫女に言ってやったのよ」
						PRINTFORML 「"一回の被弾でも許されない、月の流儀に度肝を抜くが良い！"ってね」
					CASE 1
						PRINTFORML 「霧雨魔理沙って言ったっけ？あの魔法使いは」
						PRINTFORML 「ミスの許されない私達と違って、お構いなしに向かってくるもんだから参ったよ」
					CASE 2
						PRINTFORML 「―で、そん時に守矢の巫女に言ってやったのよ」
						PRINTFORML 「"私達はイーグルラヴィ。穢れた地上の指図など受けないわ"ってね」
					CASE 3
						PRINTFORML 「鈴仙も大変よねぇ？地上でも仕事仕事…私達、兎の労働条件は一向に向上しないし…」
						PRINTFORML 「……っと、キミにこんな話したって仕方ないよね」
				ENDSELECT
				PRINTFORMDW 鈴瑚は%CALLNAME:MASTER%の背中に寄りかかりながら、異変の話をしている。
			CASE 4
				CALL COLORMESSAGE("「…キミ、私に触るの好きだねぇ」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚は%CALLNAME:MASTER%のスキンシップを気にする事なく団子を食べている。
		ENDSELECT
	ELSE
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML 「きゃっ！？」
				PRINTFORML 「びっくりした……急に触んないでよ、もう……！」
				PRINTFORMDW 鈴瑚に睨まれてしまった……
			CASE 1
				CALL COLORMESSAGE("「あ、待って。今団子食べてるから」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW スキンシップを試みたが、鈴瑚に止められた……
			CASE 2
				PRINTFORML 「大して仲良くもない女性をベタベタ触るのって、ちょっとどうかと思うよ」
				PRINTFORMDW 鈴瑚に真顔で窘められた…
			CASE 3
				PRINTFORML 「…成程ね。これが地上のコミニュケーションってわけか……」
				PRINTFORMDW 鈴瑚は一応スキンシップを受け入れてくれている。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;303,謝る
;TFLAG:193(2=菓子折成功 1=大成功 0=成功 -1=失敗 -2=菓子折失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K108_303
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_303
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_303_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_303_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 0,1
			PRINTFORML 「……いいよ。私もカッとなって言い過ぎた。ごめんよ」
			PRINTFORMDW 鈴瑚は許してくれたようだ……
		CASE 2
			PRINTFORMW 「…菓子折り？こんな物で私の怒りが収まるとでも？」
			CALL COLORMESSAGE("「―うまっ！……まあ、特別にコレで勘弁してあげるよ」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 鈴瑚は許してくれたようだ……
		CASE -1
			PRINTFORML 「……本当に悪いと思ってる？とてもそうは見えないね」
			PRINTFORMDW %CALLNAME:MASTER%の誠意は鈴瑚には伝わらなかったようだ…
		CASE -2
			PRINTFORML 「……本当に悪いと思ってる？とてもそうは見えないね」
			PRINTFORML 「―あ。そのお菓子は貰ってくよ」
			PRINTFORMDW 許してくれなかった上に、菓子折りまで持っていかれてしまった……
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;304,仕事を手伝う
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:350(仕事内容(JOB_仕事内容.ERB参照のこと
;TCVAR:手伝えない(=2 手伝っても早くは終わらない、時間停止中不可 永琳の診察等)
;==================================================
@M_KOJO_SUCCESS_COM_K108_304
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_304
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_304_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_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_K108_305
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_305
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_305_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_305_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:恋人 || TALENT:恋慕
		SELECTCASE RAND:6
			CASE 0
				IF TALENT:恋人
					CALL HPH_PRINT,@"「はい、あ～んHPH……ふふっ♪美味しい？」","L"
					PRINTFORMDW 鈴瑚に団子を食べさせてもらった。
				ELSE
					PRINTFORML 「%CALLNAME:MASTER%ってさ…膝枕、好きなの？」
					PRINTFORMDL "鈴瑚の膝枕が好き"
					PRINTFORMW 「……！そ、そっか……♪」
				ENDIF
			CASE 1
				IF TALENT:恋人
					PRINTFORML 「…眠そうだね？%CALLNAME:MASTER%」
					PRINTFORML 「いいよ、寝ちゃっても…起こしてあげるからさ」
					PRINTFORMDW 鈴瑚の言葉に甘え、目を閉じた……
				ELSE
					PRINTFORML 「も、もういいでしょ？%CALLNAME:MASTER%。早く降りて…」
					PRINTFORMW 「"もうちょっとだけ"？…うぅ…！これ、恥ずかしいのに…！」
				ENDIF
			CASE 2
				IF TALENT:恋人
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%、抱きしめてあげる♪ぎゅ～っHPH」","L"
					PRINTFORMDW 胸が顔に押し当てられ、%CALLNAME:MASTER%は息が出来ない……！
				ELSE
					PRINTFORML （……は、恥ずかしい…！）
					PRINTFORMDW 鈴瑚と目が合う。…鈴瑚の顔がみるみる赤く染まっていく。
				ENDIF
			CASE 3
				PRINTFORML 「膝枕ってさ…そんなにいい物なの？」
				PRINTFORMDL "いい物だ"と%CALLNAME:MASTER%は頷いた。
				PRINTFORMW 「ふ～ん…そっか、いい物なんだ……」
			CASE 4
				PRINTFORML 「ちょっ…！ふふっ♪…お腹に息吹きかけちゃ…！んっ…！ふっ…ははは…♪」
				PRINTFORMDW 鈴瑚はくすぐったそうに身をくねらせている。
			CASE 5
				PRINTFORMDL 鈴瑚の膝枕に仰向けで寝転んだ。眼前に大きな果実が飛び込んでくる……！
				CALL HPH_PRINT,@"「んっHPH…ちょっと！触っちゃ…んんっHPH HPH」","L"
				PRINTFORMW 「もう…！キミってやつは…」
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 0
				CALL COLORMESSAGE("「私の膝枕は高いよ～？幾らふんだくってやろうかな…♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚はニヤニヤと意地悪な笑みを浮かべている……
			CASE 1
				PRINTFORMDL 鈴瑚の膝枕に仰向けで寝転んだ。眼前に大きな果実が飛び込んでくる……！
				PRINTFORMW 「……な～にジロジロ見てんの？この助平」
			CASE 2
				PRINTFORML 「私の膝枕はどうかな？%CALLNAME:MASTER%」
				PRINTFORMDW "言い寝心地だ"と言うと、鈴瑚は微笑んだ。
		ENDSELECT
	ELSE
		SELECTCASE RAND:2
			CASE 0
				CALL COLORMESSAGE("「重いなぁ…早く降りてよ」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚は嫌そうな顔をしながら団子を食べている……
			CASE 1
				PRINTFORML 「なんていうか…キミって時々変な事頼んでくるよね」
				PRINTFORMDW 鈴瑚は呆れたような顔で%CALLNAME:MASTER%を見ている…
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;306,お腹を撫でる
;TFLAG:193(1=ABL:親密6以上かつ妊娠時 0=成功 -1=ABL:親密5以下)
;==================================================
@M_KOJO_MESSAGE_COM_K108_306
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_306_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_306_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		IF TALENT:妊娠
			PRINTFORMDL %CALLNAME:MASTER%との愛の結晶が宿っている鈴瑚のお腹を触った。
			PRINTFORMDW これからの生活に思いを馳せながら、しばらくの間お腹を撫で続けた。
		ELSE
			PRINTFORMDL 時の止まった鈴瑚のお腹を触った。
			PRINTFORMDW このお腹の何処に、あれだけ大量の団子が入るのだろう？
		ENDIF
	;怒り
	ELSEIF CFLAG:318 == 1
		CALL COLORMESSAGE("「団子食べてるんだから邪魔しないで」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 鈴瑚に手をはたかれた…
	ELSEIF TALENT:妊娠
		IF TALENT:恋慕 || TALENT:思慕
			SELECTCASE RAND:7
				CASE 0
					PRINTFORML 「ふふ…♪%CALLNAME:MASTER%も撫でてみなよ」
					PRINTFORMDW せっかくなので撫でさせてもらった。ここに新たな命が宿っているのだという事実に感動すら覚えた。
				CASE 1
					PRINTFORMDL 鈴瑚と一緒に、お腹を撫でた。
					PRINTFORMW 「どんな子に育ってくれるんだろう？…早く産まれてきてね…♪」
				CASE 2
					PRINTFORML 「あ！今お腹蹴ったよ！…あ、また！」
					PRINTFORML 「キミに似て元気いっぱいだねぇ…♪」
					PRINTFORMDW 鈴瑚のお腹に手を当てると、微かな胎動を感じた……！
				CASE 3
					PRINTFORML 「男の子かな？女の子かな？きっとどっちでも可愛いんだろうなぁ…」
					PRINTFORML 「…もう名前も考えてあるの！？%CALLNAME:MASTER%ったら、気が早すぎるよ…♪」
					PRINTFORMDW 鈴瑚と産まれてくる子供に思いを馳せた。
				CASE 4
					PRINTFORMDL 鈴瑚との愛の結晶が宿っているお腹を撫でた。
					PRINTFORMW 「%CALLNAME:MASTER%も、ちゃんと子育て手伝ってよ？」
				CASE 5
					CALL COLORMESSAGE("「赤ちゃんにも、たくさん団子食べさせてあげなきゃね」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					SETCOLOR 0xEE9900
					PRINTFORMDW 団子ばかりだと、栄養が偏りそうだ……
					PRINTFORML 「その点はご心配なく。これは私が開発した"完全栄養食ダンゴ"だからね」
					PRINTFORMDW 最早何でもありだ……
				CASE 6
					CALL COLORMESSAGE("「この子と一緒に、鈴瑚屋を盛り上げていきたいな…♪」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					SETCOLOR 0xEE9900
					CALL HPH_PRINT,@"「…もちろん、%CALLNAME:MASTER%も一緒にねHPH」","L"
					PRINTFORMDW …気恥ずかしさをごまかす様に、鈴瑚のお腹をさらに撫でた。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「……はぁ…」
					PRINTFORMDW 鈴瑚はお腹に宿った我が子を撫でながら溜め息をついている…
				CASE 1
					CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚は団子を食べているが、以前のような笑顔は無い……
				CASE 2
					PRINTFORML 「……ごめんよ。君の事は、何があっても私が絶対に守るからね…！」
					PRINTFORMDW 鈴瑚はお腹を撫でながら、自分に言い聞かせる様に言った。
			ENDSELECT
		ENDIF
	ELSEIF EX:膣内精液 >= 1000
		SELECTCASE RAND:3
			CASE 0
				CALL HPH_PRINT,@"「キミの精液でお腹タプタプになっちゃった…HPH」","L"
				PRINTFORMDW 鈴瑚は頬を赤らめている……
			CASE 1
				CALL HPH_PRINT,@"「ふふ…♪満腹満腹…HPH」","L"
				PRINTFORMDW 鈴瑚は満足したようだ……
			CASE 2
				CALL HPH_PRINT,@"「こんなに出されたら、赤ちゃん出来ちゃうかもね…HPH」","L"
				CALL HPH_PRINT,@"「ちゃ～んと責任取ってもらうからね？%CALLNAME:MASTER%っHPH」","W"
		ENDSELECT
	ELSEIF TALENT:恋人
		SELECTCASE RAND:6
			;やりたかっただけ
			CASE 0
				PRINTFORMDL "鈴瑚―いったい何個の団子を、このお腹に吸い取った！？"
				CALL COLORMESSAGE("「キミは今までに食べたパンの枚数を覚えているかい？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW "質問を質問で返すなあーっ"
			CASE 1
				PRINTFORML 「うぐっ！？…何すんのさ！もう……」
				PRINTFORMDW 興味本位で鈴瑚のヘソに指を突っ込むと怒られた……
			CASE 2
				CALL HPH_PRINT,@"「触りたいのはお腹じゃないでしょ？%CALLNAME:MASTER%…HPH」","L"
				PRINTFORMDW 鈴瑚はシャツの襟元を引き下げ、谷間を見せつけてきた……！
			CASE 3
				PRINTFORML 「あっはっははは！く、くすぐったい～！」
				CALL HPH_PRINT,@"「はははは！…はっ！ん…HPHんうっHPH」","L"
				PRINTFORMDW 鈴瑚とじゃれ合っていると変な気分になってきた……
			CASE 4
				PRINTFORML 「……本当、キミお腹触るの好きだよねぇ…」
				CALL COLORMESSAGE("「お腹出してるのが悪いって？うるさいなぁ」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚は唇を尖らせて拗ねてしまった。
			CASE 5
				CALL COLORMESSAGE("「う～ん、キミのお腹の触り心地はイマイチだね」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚にお腹を触られた……
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:4
			CASE 0
				CALL HPH_PRINT,@"「んっHPHちょっと…！お腹はくすぐったいから…！」","L"
				PRINTFORMDW 鈴瑚は恥ずかしそうに身を捩っている。
			CASE 1
				PRINTFORML 「な、何かやらしいよ…その手つき」
				PRINTFORML 「嫌…じゃないけど、その……うぅ…！」
				PRINTFORMDW 鈴瑚は恥ずかしそうに俯いた。
			CASE 2
				PRINTFORMW （…太ってないよね？私……）
			CASE 3
				PRINTFORML 「まだ撫でるの…？…もう、しょうがないなぁ…♪」
				PRINTFORMDW 鈴瑚は少し嬉しそうだ。
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML 「…やらしい手つきだね。何かスケベな事考えてない？」
				PRINTFORMDW 鈴瑚は蔑む様な視線を向けてくる……
			CASE 1
				PRINTFORML 「そ…それ、くすぐった…ふっ…！ふふ……♪」
				PRINTFORMDW お腹を撫でると、鈴瑚はくすぐったそうに身を捩った。
			CASE 2
				PRINTFORMDL 鈴瑚のお腹を撫でた。あれだけ団子を食べてる割にはスッキリしたお腹だ……
				CALL COLORMESSAGE("「ほら、よく言うでしょ？団子は別腹って」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			CASE 3
				PRINTFORML 「そうやって女性のお腹ばっか触ってると、嫌われるよ？」
				CALL COLORMESSAGE("「…私にしかやってないって？ 本当かなぁ？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
		ENDSELECT
	;陥落無し
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「ちょっ…！どこ触ろうとしてんの！」
				PRINTFORMDW 鈴瑚に手を叩かれた……
			CASE 1
				CALL COLORMESSAGE("「……何してんの？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 怪訝そうな顔をしている鈴瑚は気にせず、彼女のお腹を撫でた。
			CASE 2
				PRINTFORML 「私がお腹出してるからって、触っていい理由にはならないでしょ？」
				PRINTFORMDW 鈴瑚のお腹を触ろうとしたが、止められてしまった……
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;307,頬をつまむ
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
	;以下は先に書いた条件が優先される
	;TALENT:恋慕(受け入れつつ笑顔でやり返す
	;ABL:親密(6以上=おずおずとやり返す
	;ABL:従順(5以上=されるがまま
;==================================================
@M_KOJO_SUCCESS_COM_K108_307
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_307
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_307_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_307_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		PRINTFORMDL 静止したままの鈴瑚の頬をつまんだ。
		PRINTFORMDW とても柔らかい…まるで団子のようだ。
	;睡眠中
	ELSEIF CFLAG:睡眠
		IF TALENT:恋慕
			CALL HPH_PRINT,@"「んんぅ～…！も～♪%CALLNAME:MASTER%～やめてってばぁ～HPH」","L"
			PRINTFORMDW 鈴瑚は何故か嬉しそうだ……本当に寝ているのだろうか？
		ELSE
			PRINTFORML 「ん～…！清蘭……何すんのさぁ～…！」
			PRINTFORMDW 夢の中で清蘭に頬をつままれているのだろうか……？
		ENDIF
	;怒り
	ELSEIF CFLAG:318 == 1
		CALL COLORMESSAGE("「邪魔」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 鈴瑚の頬をつまもうとすると、手を払われてしまった…
	;通常
	ELSEIF TALENT:恋人
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「放してよ～団子が食べられないでしょうがぁ～」
				PRINTFORMDW 言葉とは裏腹に、鈴瑚は笑顔を浮かべている。
			CASE 1
				PRINTFORMDW 鈴瑚の頬はとても柔らかい…まるで団子の様な触り心地だ。
				PRINTFORMDL ……！？ つまんでいたのは鈴瑚の頬ではなく、団子そのものだった……！
				CALL COLORMESSAGE("「すり替えておいたのさ」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			CASE 2
				PRINTFORML 「ふふ…♪ちょっと楽しいね、コレ」
				PRINTFORMDW お互いに頬をつまみ合った。
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「まったく、キミってやつは…♪」
				PRINTFORMDW 頬をつままれながら、鈴瑚は呆れる様に笑っている。
			CASE 1
				PRINTFORML 「…もういいでしょ？恥ずかしいから早く放して……」
				PRINTFORMDW 鈴瑚は顔を赤らめて%CALLNAME:MASTER%から目を逸らした。
			CASE 2
				PRINTFORML 「…私も、触りたいな。なんて……」
				PRINTFORMDW ずい、と頬を差し出すと、鈴瑚は少し恥ずかしそうにつまんできた。
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「ちょっと、痛いんだけど」
				PRINTFORMDW 鈴瑚に睨まれた……
			CASE 1
				PRINTFORMDL お返しと言わんばかりに、鈴瑚に頬をつままれた。
				PRINTFORML 「キミのほっぺは固いねぇ…古くなった団子みたいだ」
				PRINTFORMDW 嫌な例えだ……
			CASE 2
				PRINTFORML 「%CALLNAME:MASTER%…かまって欲しいの？しょうがないな～」
				PRINTFORML 「ほれほれ～♪」
				PRINTFORMDW 鈴瑚に両頬をつままれ、ぐにぐにと弄ばれた……
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「…………。」
				PRINTFORMDW "何してんの？"とでも言うような目でこちらを見ている……
			CASE 1
				PRINTFORML 「鈴瑚屋はお触り禁止で～す」
				PRINTFORMDW 鈴瑚に手を抓られた……
			CASE 2
				CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 無言の圧力により、頬をつまもうと伸ばした手を止めた……
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;308,頬をつつく
;陪睡中or睡眠中限定
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K108_308
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_308
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_308_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_308_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		PRINTFORMDL 団子を頬張ったまま時を止められている鈴瑚の頬をつついた。
		PRINTFORMDW 何とも言えない、不思議な感触だ……
	;睡眠中
	ELSEIF CFLAG:睡眠
		IF TALENT:恋慕
			CALL HPH_PRINT,@"「ん～…%CALLNAME:MASTER%ったらもう…しょうがないなぁ…HPH」","L"
			PRINTFORMDW 鈴瑚は何故か嬉しそうだ……どんな夢を見ているのだろう…？
		ELSE
			PRINTFORML 「ん～…！鈴仙…！何すんの～…！」
			PRINTFORMDW 夢の中で鈴仙に頬をつつかれているようだ……
		ENDIF
	;怒り
	ELSEIF CFLAG:318 == 1
		PRINTFORML 「…キミ、空気読めないってよく言われるでしょ？」
		PRINTFORMDW 機嫌の悪そうな鈴瑚の頬をつついた。
	ELSEIF TALENT:恋人
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「明日も早いんだから、遊んでないで早く寝なさい」
				PRINTFORMDW まるで母親のような口調で窘められた……
			CASE 1
				PRINTFORML 「…な～に？人肌でも恋しくなったの？」
				CALL HPH_PRINT,@"「しょうがないなぁ、%CALLNAME:MASTER%は…HPH」","L"
				PRINTFORMDW 向かい合う形で鈴瑚に抱きしめられた。少し息苦しいが、幸せな気分だ……
			CASE 2
				PRINTFORML 「"鈴瑚のやつ、呑気に寝てやがる…悪戯してやるゼ ぐへへ"」
				PRINTFORML 「…みたいな事考えてたでしょ？そんな顔してたよ」
				PRINTFORMDW ……今日のところは大人しく寝るとしよう。
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「――っ！？」
				PRINTFORML 「…はぁ～…夢か……そりゃそうだよね…」
				PRINTFORMDW いい夢を見ていた所を邪魔してしまったようだ……
			CASE 1
				PRINTFORML 「キミってさ―」
				PRINTFORML 「……ううん、何でもない。早く寝なよ？」
				PRINTFORMDW 鈴瑚は何かを言いかけると、布団を被って寝てしまった。
			CASE 2
				PRINTFORML 「%CALLNAME:MASTER%って、私のほっぺ触るのそんなに好き？」
				PRINTFORMDW "当然"と答えると、鈴瑚は呆れたように笑った。
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「わっ、びっくりした」
				PRINTFORMDW ウトウトしていた鈴瑚の頬をつつくと、びくりと跳ねた。
			CASE 1
				PRINTFORML 「甘いね、%CALLNAME:MASTER%。キミの考えはお見通しだよ」
				PRINTFORMDW 鈴瑚の頬をつつこうとしたら、帽子で防がれてしまった。
			CASE 2
				PRINTFORML 「ん～…？…もう…何？」
				PRINTFORML 「子守唄なら歌わないよ……おやすみ～……」
				PRINTFORMDW 少し聞いてみたい気もする……
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「…何さ？もう……」
				PRINTFORMDW "早く寝ろ"とでも言いたそうな顔をしている……
			CASE 1
				PRINTFORML 「%CALLNAME:MASTER%……明日も早いんだから、寝かせて……」
				PRINTFORMDW 鈴瑚は本当に眠そうだ…ちょっかいを出すのはこれ位にしておこう。
			CASE 2
				PRINTFORML 「……ん？何？%CALLNAME:MASTER%」
				PRINTFORMW 「早く寝ないと、明日辛いよ？」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;309,頭を撫でる
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:親密(6以上=通常成功時分岐
;==================================================
@M_KOJO_SUCCESS_COM_K108_309
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_309
;CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_309_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_309_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		PRINTFORMDL 帽子を脱がせ、鈴瑚の頭を直接撫でた。
		PRINTFORMDW ついでにウサ耳もたくさん撫でておいた。
	;睡眠中
	ELSEIF CFLAG:睡眠
		IF TALENT:恋慕
			CALL HPH_PRINT,@"「ん…♪…%CALLNAME:MASTER%…HPH」","L"
			PRINTFORMDW 鈴瑚は気持ちよさそうに眠っている……
		ELSE
			PRINTFORML 「ん～……んぅ……？」
			PRINTFORMDW 鈴瑚は頭に感じる違和感に顔をしかめている……
		ENDIF
	;怒り
	ELSEIF CFLAG:318 == 1
		CALL COLORMESSAGE("「今、団子食べてんの。見てわかんない？」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		SETCOLOR 0xEE9900
		PRINTFORMDW 鈴瑚に手を払われてしまった……
	ELSEIF TALENT:恋人
	SETCOLOR 0xEE9900
		SELECTCASE RAND:8
			CASE 0
				CALL HPH_PRINT,@"「ん…HPH ふふ…♪」","L"
				PRINTFORMDW 鈴瑚は気持ち良さそうに目を細めている。
			CASE 1
				CALL HPH_PRINT,@"「ほらほら…もっと撫でてくれなきゃ…HPH」","L"
				PRINTFORMDW 鈴瑚の頭を、いつもよりたくさん撫でた。
			CASE 2
				CALL HPH_PRINT,@"「……幸せHPH」","L"
				PRINTFORMDW 頭を撫でていると、鈴瑚は身体を預けてきた。
			CASE 3
				CALL COLORMESSAGE("「もう…帽子がシワになっちゃうよ……♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚の帽子の上から頭を撫でた。
			CASE 4
				PRINTFORML 「ふふ…♪%CALLNAME:MASTER%どう？気持ちいい？」
				PRINTFORMDW お返しとばかりに、鈴瑚に頭を撫でられた…以外と悪くない。
			CASE 5
				CALL HPH_PRINT,@"「ちょ…！もう…HPH そんな、犬みたいに…HPH」","L"
				PRINTFORMDW 鈴瑚の左右のウサ耳をわしゃわしゃと撫でた。
			CASE 6
				PRINTFORMW 「……何かいつもより撫で方が雑だね？」
				IF TALENT:107:恋慕 || TALENT:107:思慕
					PRINTFORML 「清蘭の事でも考えてた？…な～んてね♪」
					PRINTFORMDW …とりあえず笑ってごまかしておいた。
				ELSE
					PRINTFORML 「もしかして何か悩んでる？」
					PRINTFORMDW "そんな事は無い"と返し、鈴瑚の頭を撫で続けた。
				ENDIF
			CASE 7
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH ほら、早く…HPH」","L"
				PRINTFORMDW 帽子を脱いで待っている鈴瑚の期待に応え、頭を撫でた。
		ENDSELECT
	ELSEIF TALENT:恋慕
	SETCOLOR 0xEE9900
		SELECTCASE RAND:6
			CASE 0
				CALL HPH_PRINT,@"「……%CALLNAME:MASTER%…もっと撫でて欲しい…HPH」","W"
			CASE 1
				PRINTFORMW （このまま、時間が止まってくれれば…なんて…♪）
			CASE 2
				PRINTFORML 「あっ……！」
				PRINTFORML 「……ううん、何でもないよ…」
				PRINTFORMDW 頭から手を離すと、鈴瑚は一瞬悲しそうな顔をした…
			CASE 3
				CALL COLORMESSAGE("「私、キミに撫でられるの結構好きかも」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚は頭を撫でられながら、嬉しそうに団子を食べている。
			CASE 4
				IF TALENT:107:恋慕 || TALENT:107:思慕
					PRINTFORML 「…清蘭にも、こういう事してるの？」
					PRINTFORML 「―あっ！？な、何でもないよ？独り言…ははは…」
				ELSE
					PRINTFORML 「ねえ、%CALLNAME:MASTER%は……！」
					PRINTFORML 「あ……えっと…団子、好き？…なんて」
				ENDIF
				PRINTFORMDW 頭を撫でられている鈴瑚はどこか落ち着きがない……
			CASE 5
				PRINTFORML 「……早く撫でて…？」
				PRINTFORMDW 帽子を脱いで上目遣いで待っている鈴瑚の期待に応え、優しく頭を撫でた。
		ENDSELECT
	ELSEIF TALENT:思慕 || TALENT:炮友
	SETCOLOR 0xEE9900
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「そんなに私の頭撫でるのっていい物なの？」
				PRINTFORMW 「…ふ～ん、そっか…♪」
			CASE 1
				PRINTFORML 「あ～ちょっと！帽子がシワになっちゃうじゃんか！」
				PRINTFORMDW 鈴瑚の帽子を撫でようとしたら、怒られてしまった…
			CASE 2
				PRINTFORML 「もう…もっと優しく撫でてよね。髪がぐちゃぐちゃじゃない」
				PRINTFORMW 「まあ、帽子被るからいいけど」
			CASE 3
				PRINTFORML 「%CALLNAME:MASTER%！もうちょっと頭撫で続けてくれない！？」
				PRINTFORML 「もう少しで新しい団子のアイデアが降りてきそうなんだよ…！」
				PRINTFORMDW しばらく頭を撫で続けたが、結局いいアイデアは浮かばなかったようだ……
			CASE 4
				PRINTFORML （…こうやって誰かに頭撫でられるの、子供の時以来だなぁ……）
				PRINTFORMDW 鈴瑚は目を閉じ、物思いに耽っているようだ……
		ENDSELECT
	ELSE
	SETCOLOR 0xEE9900
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「……どうしたのさ？急に私の頭撫でたいとか言い出して」
				CALL COLORMESSAGE("「なんとなく、ねぇ……」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			CASE 1
				PRINTFORML 「ん？帽子に何か付いてた？」
				PRINTFORMDW 直接はどうかと思い、鈴瑚の帽子を撫でた。
			CASE 2
				PRINTFORMW 「キミって積極的っていうか、ちょっと気安いよね」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;331,お茶を淹れる（薬入り）
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K108_331
;成否判定
;TFLAG:192(-2=強制失敗(注、非コマンド終了）、-1＝強制失敗、0=COM依存、1=強制成功or大成功(注、睡眠薬アイスティーは眠気を感じていると飲まない)
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_331
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_331_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_331_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TFLAG:193 == -1
		PRINTFORML 「…………。」
		CALL COLORMESSAGE("「…いや、今はいいよ。せっかく淹れてくれたのに悪いね」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 薬を盛った事に気づかれたのだろうか、鈴瑚はお茶に手をつけようとしない…
	ELSE
		IF TCVAR:108:媚薬 == 210
			CALL HPH_PRINT,@" 「はーHPHはーHPHはーHPH HPH %CALLNAME:MASTER%…っ！ さっきのお茶に何を―」","L"
			CALL HPH_PRINT,@" 「んいぃっHPH だ、ダメぇっHPH いま、しっぽこするのダメぇぇHPH HPH」","W"
		ELSEIF TCVAR:108:利尿剤 == 210
			PRINTFORML （う…！お茶飲みすぎたかな……？）
			PRINTFORML 「―え！？いや、まぁ…ちょっとね？ははは……」
			PRINTFORMDW 薬が効いてきたのか、鈴瑚はモジモジしている…
		ELSEIF TCVAR:108:催情薬 == 210
			PRINTFORML 「…………。」
			PRINTFORMW （%CALLNAME:MASTER%って、こうして見ると以外と…）
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;332,お酒をふるまう
;TFLAG:193(0=下戸飲み成功 -1=下戸飲み失敗 -2=下戸飲み大失敗 -5=下戸飲みあきらめ)
;TFLAG:194(51=どぶろく 52=清酒 53=鬼殺し)
;ALCOHOL_TASTE(TFLAG:194)(15以上=気に入る 9以下=口に合わない)
;==================================================
@M_KOJO_SUCCESS_COM_K108_332
;成否判定
;TFLAG:192(-1＝強制失敗、0=COM依存
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_332
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_332_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_332_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FIRSTTIME(SELECTCOM)
		PRINTFORML 「へぇ……このお酒を%CALLNAME:MASTER%が？」
		PRINTFORML 「それじゃあ、お手並み拝見…♪」
		PRINTFORMDW 鈴瑚と乾杯した。
		IF ALCOHOL_TASTE(TFLAG:194) >= 15
			PRINTFORML 「―！…すっごく美味しい！」
			PRINTFORML 「店で売ってるのより美味しいかも……♪」
			PRINTFORMDW 鈴瑚は%CALLNAME:MASTER%の酒を気に入ってくれたようだ。
		ELSEIF ALCOHOL_TASTE(TFLAG:194) < 10
			PRINTFORML 「……まあ、今後に期待って事で…」
			PRINTFORMDW 鈴瑚の口には合わなかったようだ…
		ELSE
			PRINTFORML 「…いけるね、コレ」
			PRINTFORMW 「自家製も案外馬鹿にできないね」
		ENDIF
	;酔ってる強
	ELSEIF BASE:酒気 > (MAXBASE:酒気 / 10) * 6
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「…も～どうでもいいや！いけるとこまでいっちゃお～う♪」
			CASE 1
				PRINTFORML 「…よってないからぁ…だいじょうぶだから～」
				PRINTFORML 「ほら、おかわりいれてよ～…！」
				PRINTFORMDW 言われるがまま、鈴瑚のグラスに酒を注いだ……
			CASE 2
				PRINTFORML 「……？もうないや…あたらしいのいれよ」
				PRINTFORMDW フラフラしながらも、鈴瑚は自分で酒を注いでいる……
		ENDSELECT
		IF ALCOHOL_TASTE(TFLAG:194) >= 15
			PRINTFORMW 「あ～！おいしい～♪さいっこ～♪」
		ELSEIF ALCOHOL_TASTE(TFLAG:194) < 10
			PRINTFORML 「―まっず！」
			PRINTFORMDW 少しだけ酔いが醒めたようだ……
		ELSE
			PRINTFORML 「…………。」
			PRINTFORMDW 鈴瑚は無言で酒を飲んでいる……
		ENDIF
	;酔ってる弱
	ELSEIF BASE:酒気 > (MAXBASE:酒気 / 10) * 3
		SELECTCASE TIME:2
			;朝
			CASE 1,2
				PRINTFORML 「いやぁ～…朝から飲む酒って、罪の味だね…！」
				PRINTFORMDW 再び、二人の手が酒のボトルへと伸びていく……
			;昼
			CASE 3,4
				PRINTFORML 「昼間から飲む酒って、何でこんなに美味しいんだろう……」
				PRINTFORML 「%CALLNAME:MASTER%……も、もう一杯だけ……！」
				PRINTFORMDW 鈴瑚が突き出してきたグラスに酒を注いだ。
			;夜
			CASE 5,6,7
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「%CALLNAME:MASTER%、ペース早くない？」
						PRINTFORML 「ゆっくりいこうよ…夜は長いんだからさ…♪」
						PRINTFORMDW 鈴瑚のグラスに新しい酒を注いだ。
					CASE 1
						PRINTFORML 「―それでさ、その時清蘭が……あれ？もう無くなっちゃった」
						PRINTFORML 「%CALLNAME:MASTER%、お代わり貰っていい？」
						PRINTFORMDW 空になった鈴瑚のグラスに新しい酒を注いだ。
					CASE 2
						PRINTFORML 「私はまだ飲めるけど、キミは？」
						PRINTFORMDW "もちろん"と答え、新しい酒を取り出した。
				ENDSELECT
		ENDSELECT
		IF ALCOHOL_TASTE(TFLAG:194) >= 15
			PRINTFORML 「…ん～♪美味しい♪」
			PRINTFORMDW 鈴瑚は嬉しそうに微笑んでいる。
		ELSEIF ALCOHOL_TASTE(TFLAG:194) < 10
			PRINTFORML 「……イマイチかな」
			PRINTFORMDW 鈴瑚の口には合わなかったようだ…
		ELSE
			PRINTFORML 「普通」
			PRINTFORMDW 鈴瑚は真顔になった……
		ENDIF
	;素面
	ELSE
		SELECTCASE TIME:2
			;朝
			CASE 1,2
				PRINTFORML 「朝から飲むなんて、なかなかのワルだね%CALLNAME:MASTER%」
				PRINTFORML 「依姫様にバレたら、私達怒られちゃうねぇ……乾杯♪」
				PRINTFORMDW 何とも言えない背徳感が、酒の旨味を引き立てる…
			;昼
			CASE 3,4
				PRINTFORML 「え～…ちょっと気が早いんじゃない？まだお昼だよ？」
				PRINTFORML 「仕方ないな…一杯だけ付き合うよ」
				PRINTFORMDW 鈴瑚にグラスを手渡し、酒を注いだ。
			;夜
			CASE 5,6,7
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「今日は私が注いであげるよ。ほらグラス出して」
						PRINTFORMDW お言葉に甘えて、鈴瑚に酒を注いでもらった。
					CASE 1
						PRINTFORML 「…今日、ちょっと嫌な事があってさ……」
						PRINTFORML 「キミにたくさん愚痴っちゃうかも…なんてね♪」
						PRINTFORMDW "いくらでも愚痴ってほしい"と言い、鈴瑚のグラスに酒を注いだ。
					CASE 2
						PRINTFORML 「%CALLNAME:MASTER%。今回の出来はどうなの？」
						PRINTFORMDW "会心の出来だ"と答え、鈴瑚のグラスに酒を注いだ。
				ENDSELECT
				PRINTFORMW 「%TEXTR("今日も一日お疲れ様/よし、それじゃ/今夜は楽しくなりそう/さーて、お味はどうかな")%…乾杯♪」
		ENDSELECT
		IF ALCOHOL_TASTE(TFLAG:194) >= 15
			PRINTFORML 「…ん～♪美味しい♪」
			PRINTFORMDW 鈴瑚は嬉しそうに微笑んでいる。
		ELSEIF ALCOHOL_TASTE(TFLAG:194) < 10
			PRINTFORML 「……イマイチかな」
			PRINTFORMDW 鈴瑚の口には合わなかったようだ…
		ELSE
			PRINTFORML 「普通」
			PRINTFORMDW 鈴瑚は真顔になった……
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;333,愚痴を聞く
;TFLAG:193(6=大成功(酔い) 5=成功(酔い) 4=失敗(酔い) 3=大成功 2=成功 1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K108_333
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_333
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_333_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_333_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 6
		;大成功（酔い）
			PRINTFORML 「わたしだって～…がんばってるの～…！ダンゴ食べてるばっかじゃないの～……」
			PRINTFORML 「%CALLNAME:MASTER%は、ちゃんとわかってくれるよね……？」
			PRINTFORMDW 潤んだ瞳で見つめてくる鈴瑚に頷き返した。
		CASE 5
		;成功（酔い）
			PRINTFORML 「……ったくさ～…みんなこっちの気もしらないでさ～…！わたしだってさ…！」
			PRINTFORML 「……ゴメン、愚痴っちゃって……ちょっと飲みすぎたかな……」
			PRINTFORMDW 少し酔いが醒めたのか、鈴瑚は我に帰ったようだ……
		CASE 4
		;失敗（酔い）
			PRINTFORML 「―だからさ～…！みんな私のくろうを知らないで"団子食ってるだけ"だの"給料多すぎ"だの、かってなことばっか…」
			PRINTFORML 「……%CALLNAME:MASTER%！ひとがマジメな話してるときにどこ見てんの！」
			PRINTFORMDW 酔っているのか、鈴瑚は何度も同じ話をしている……
		CASE 3
		;大成功
			PRINTFORML 「……ふー…何か、色々話したらスッキリしたよ」
			PRINTFORML 「愚痴聞いてくれてありがとね%CALLNAME:MASTER%。これはお礼」
			PRINTFORMDW 鈴瑚に串団子を一本貰った。
		CASE 2
		;成功
			CALL COLORMESSAGE("「…今日は何ダンゴ食べてるのって……はぁ～……」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			SETCOLOR 0xEE9900
			PRINTFORML 「ふふっ…もういいや。キミと話してると、悩んでるのが馬鹿らしくなってきたよ……」
			PRINTFORMDW 鈴瑚は呆れたように笑っている。
		CASE 1
		;失敗
			CALL COLORMESSAGE("「んー？……心配しなくても大丈夫だよ」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			CALL COLORMESSAGE("「こうやって団子をいっぱい食べれば、ストレス発散出来るからさ」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 余程ストレスが溜まってるのだろうか、食べる量は一向に減らない……
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;334,杯を交わす
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:妊娠自覚状態(1=食事)
;TALENT:酒耐性(-2=食事)
;==================================================
@M_KOJO_SUCCESS_COM_K108_334
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_334
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_334_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_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_K108_335
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_335
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_335_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_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_K108_336
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_336
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_336_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_336_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;ねちゃった
	IF TFLAG:193 > 0
		PRINTFORML 「すー…すー…ふふ…♪」
		PRINTFORMDW 鈴瑚に膝枕の寝心地を聞こうとしたら、既に夢の世界へ旅立っていた。
	ELSEIF ABL:親密 > 4
		PRINTFORML 「思ってたより硬いね…キミの膝枕」
		PRINTFORMDW 鈴瑚は苦笑している……
	ELSEIF TALENT:恋人
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML CALL COLORMESSAGE("「いや～…絶景絶景♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚は団子を食べながら、こちらをジッと見つめている。
			CASE 2
				PRINTFORML 「膝枕されるのも、案外悪くないね」
				PRINTFORMDW 鈴瑚は膝枕を気にってくれたようだ。
			CASE 3
				CALL HPH_PRINT,@"「……%CALLNAME:MASTER%HPH」","L"
				PRINTFORMDL 鈴瑚が仰向けのまま、両手をこちらに伸ばしてくる……
				PRINTFORMDW 少し身を屈めて、そのまま鈴瑚に口づけした。
				EXP:108:接吻経験 ++
				EXP:MASTER:接吻経験 ++
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「…な、何さ？……もう…！」
				PRINTFORMDW 鈴瑚を見つめていると、目を逸らされた。
			CASE 2
				PRINTFORML 「…………。」
				PRINTFORMDW 鈴瑚と目が合い、しばらく見つめ合った……
			CASE 2
				PRINTFORML 「…もうちょっと、このままでいてもいい？」
				PRINTFORMDW 鈴瑚の頭を撫でながら頷いた。
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「成程…これが膝枕ってやつか…♪」
				PRINTFORMDW 鈴瑚は楽しそうだ。
			CASE 2
				PRINTFORML 「すー……すー……」
				PRINTFORMDW 鈴瑚は目を閉じ、寝息を立て始めた。
				PRINTFORMW 「―なんてね♪起きてるよ」
			CASE 3
				PRINTFORML 「う～ん…もう少しで、新作団子のアイデアが降りてきそうなんだけどなぁ…」
				PRINTFORMDW 鈴瑚が太股の上をコロコロ転がりながら唸っている……くすぐったい……！
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;350,押し倒す（時姦時イタズラする
;TFLAG:194 (0=成功 1=人目がある　2=野外は嫌でござりまする　3=多人数プレイは勘弁　4=合意があってもムードが足りぬ　100=合意はあるが口上内特殊判定によって失敗）
;TCVAR:初次拥抱　1=普通に合意ゲット　2=先にキスぐらいしろよ　3=媚薬or発情には勝てなかったよお…　4=悔しい…刻印さえなければﾋﾞｸﾋﾞｸﾝ
;5=強引に迫られると断れぬ(素質臆病持ち専用) 6=まんざらでもない　7=駄目　8=論外 98=口上内特殊判定による失敗 99=口上内特殊判定による成功
;口上内特殊判定は該当するCFLAGが0だと無効
;==================================================
@M_KOJO_MESSAGE_COM_K108_350
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_350_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_350_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
SETCOLOR 0xEE9900
	IF FLAG:時間停止
		PRINTFORMDW 時を止め、完全に抵抗力を失った鈴瑚を欲望のままに蹂躙してやることにした。
	ELSEIF TFLAG:194
		SELECTCASE TFLAG:194
			;人目がある
			CASE 1
			IF TALENT:恋人
				PRINTFORML 「……%CALLNAME:MASTER%は、私のハダカを誰かに見られても平気なの？」
				PRINTFORMDW 鈴瑚が悲しそうな目で見つめてくる……
			ELSE
				PRINTFORML 「いや～…こんな公衆の面前で致すのはちょっと……」
				PRINTFORMDW 鈴瑚に断られてしまった…
			ENDIF
			;野外は嫌でござりまする
			CASE 2
			IF TALENT:恋人
				PRINTFORML 「家とかホテルで、他人の目を気にせずシたいなぁ私は」
				PRINTFORMDW "見られるかもしれないスリルがたまらない"と力説したが、結局断られた…
			ELSE
				PRINTFORML 「…ここでするの？誰か来たらヤバいよ……」
				PRINTFORMDW 鈴瑚は乗り気ではないようだ…
			ENDIF
			;多人数プレイは勘弁
			CASE 3
				CALL COLORMESSAGE("「ドン引き。しばらく私に話しかけないでね」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW "乱交してみたい"と言うと、蔑む様な目で睨まれた…
			;合意があってもムードが足りぬ
			CASE 4
			IF TALENT:恋人 || TALENT:恋慕
				CALL COLORMESSAGE("「……もうちょっとムードってのを大切にして欲しいなぁ」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚に押しのけられてしまった……
			ELSE
				CALL COLORMESSAGE("「放してよ。今日は団子食べてたいの」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚は気が乗らないようだ……
			ENDIF
		ENDSELECT
	ELSEIF TCVAR:初次拥抱
		SELECTCASE TCVAR:初次拥抱
			;普通に合意ゲット
			CASE 1
				PRINTFORML 「あっ……！」
				PRINTFORMDW 鈴瑚は一瞬身体を強張らせたが、やがてこちらに身体を預けてきた……
			;先にキスぐらいしろよ
			CASE 2
				PRINTFORML 「……ダメだよ%CALLNAME:MASTER%。こういう事は、本当に愛し合った人と―」
				CALL HPH_PRINT,@"「―んむっ！？……ん…HPH」","L"
				PRINTFORMDW 鈴瑚への愛が本物である事を、%CALLNAME:MASTER%は"行動"で示した。
			;媚薬or発情には勝てなかったよお…
			CASE 3
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH だめ…HPH 駄目だよこんなの…HPH HPH」","L"
				CALL HPH_PRINT,@"「こんな…HPH 無理やりみたいな…HPH あ…だめだってばぁ…HPH」","L"
				PRINTFORMDW 言葉とは裏腹に、鈴瑚の抵抗は弱い……
			;悔しい…刻印さえなければﾋﾞｸﾋﾞｸﾝ
			CASE 4
				PRINTFORML （こんな…無理やりなんて……断らなきゃ…！）
				CALL HPH_PRINT,@"「いいよ…HPH優しくしてね…HPH」","W"
				PRINTFORMW （…あれ？私、何を言って―）
			;強引に迫られると断れぬ(素質臆病持ち専用)
			CASE 5

			;まんざらでもない
			CASE 6
				PRINTFORML 「ごめん。情けない話だけど、まだ怖くてさ……」
				PRINTFORML 「もう少しだけ待って……」
				PRINTFORMDW 無理強いは良くない…%CALLNAME:MASTER%は引き下がることにした。
			;駄目
			CASE 7
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORML 「駄目だよ%CALLNAME:MASTER%……」
				PRINTFORML 「私に手を出したら後悔することになるよ」
				PRINTFORMDW よくわからないが、鈴瑚は抱かれるのが嫌なようだ……
			ELSE
				PRINTFORML 「キミはあくまで調査対象。それ以上の関係になるつもりは無いよ」
				PRINTFORML 「ほら…わかったらさっさと離れて」
				PRINTFORMDW 鈴瑚にキッパリ断られた……
			ENDIF
			;論外
			CASE 8
				PRINTFORML 「―これで確信したよ。キミは私の身体だけが目当てだったんだね」
				PRINTFORML 「キミ、いつも私の胸ばっかり見てるよね？気付いてないとでも思った？」
				PRINTFORMDW 鈴瑚の言葉からは、こちらを拒絶するような意思を感じる……
		ENDSELECT
	ELSEIF TALENT:妊娠
		SELECTCASE RAND:3
			CASE 0
			IF TALENT:恋慕 || TALENT:思慕
				PRINTFORML 「お腹に赤ちゃんいるのに、シたくなったの？」
				CALL HPH_PRINT,@"「まったく…しょうがないお父さんだね…HPH」","W"
			ELSE
				PRINTFORML 「まだちょっと苦しいから…優しくしてね……？」
				PRINTFORMDW 鈴瑚はお腹の子を気づかう様に、優しく撫でながら身体を預けてきた。
			ENDIF
			CASE 1
				PRINTFORML 「その…あんまり激しいのは止めてね……？」
				PRINTFORMDW 鈴瑚を気遣うように、そっと身体を横たえさせた。
			CASE 2
			IF TALENT:恋慕 || TALENT:思慕
				PRINTFORML 「はいはい…どうせ駄目って言ってもするんでしょ……♪」
				CALL HPH_PRINT,@"「…優しくしてねHPH」","W"
			ELSE
				PRINTFORML （…%CALLNAME:MASTER%とシたら、ちょっとは気が紛れるかもね……）
				PRINTFORMW 「わかったよ…優しくしてね……♪」
			ENDIF
		ENDSELECT
	ELSEIF TALENT:恋人
		SELECTCASE RAND:5
			CASE 0
				CALL HPH_PRINT,@"「ふふっHPH団子じゃなくて私を食べるつもりかな？」","L"
				PRINTFORMDW 鈴瑚を美味しくいただくことにした。
			CASE 1
				CALL HPH_PRINT,@"「…………いいよHPH」","L"
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%のザーメンで…お腹いっぱいにしてねHPH」","L"
				PRINTFORMDW 鈴瑚に耳元で囁かれ、興奮を抑えきれない……！
			CASE 2
				CALL HPH_PRINT,@"「ふふっ…HPHねぇ…HPH今日はどんな体位でする？」","L"
				PRINTFORMDW 鈴瑚は頬を上気させながら笑いかけてきた。
			CASE 3
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%っHPHあむHPH ちゅHPHじゅるHPHぢゅるるっHPH」","L"
				PRINTFORMDW 突然押し倒されても、鈴瑚は動じる事無く舌を絡めてきた……！
			CASE 4
				PRINTFORML 「%CALLNAME:MASTER%～…エッチの前にする事があるでしょ？」
				CALL HPH_PRINT,@"「ん…HPH…ちゅHPH んん…HPH HPH」","L"
				PRINTFORMDW 鈴瑚のおねだりに応え、唇を重ねた。
		ENDSELECT
	ELSEIF TALENT:恋慕 || TALENT:炮友
		SELECTCASE RAND:3
			CASE 0
				CALL HPH_PRINT,@"「うん……いいよ…HPH」","L"
				PRINTFORMDW 鈴瑚は頷くと、そっと身体を預けてきた。
			CASE 1
				CALL HPH_PRINT,@"（%CALLNAME:MASTER%が…私を求めてくれてる…HPH）","L"
				CALL HPH_PRINT,@"「優しくしてね……HPH」","W"
			CASE 2
				PRINTFORML （%CALLNAME:MASTER%……今は、私だけを見て……！）
				PRINTFORMDW 押し倒した鈴瑚が、ギュっと抱きついてくる……
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「やれやれ……しょうがないなぁキミは」
				PRINTFORMDW 鈴瑚は呆れながらも、%CALLNAME:MASTER%を受け入れる体勢に入った。
			CASE 1
				PRINTFORML 「……本当は、私の身体だけが目当てなんじゃないの～？」
				PRINTFORMDW 鈴瑚の発言を否定しつつ、ゆっくりと押し倒した。
			CASE 2
				PRINTFORML 「あいたた……お尻打っちゃったじゃんか…！」
				PRINTFORML 「もう…！もっと優しくしてよね……」
				PRINTFORMDW 頬を膨らませている鈴瑚に謝罪し、彼女の身体を優しく抱きしめた。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;351,連れ出す
;==================================================
@M_KOJO_MESSAGE_COM_K108_351
;連れ出しにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K108_351_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_351_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;酔っぱらってる状態で連れ出す
	IF ALCOHOL_FACE(108) == "酔いどれ" || ALCOHOL_FACE(108) == "ぐでぐで"
		PRINTFORML 「%CALLNAME:MASTER%…悪いんだけど、ちょっと肩貸してくれない？」
		PRINTFORML 「情けない話なんだけど、飲み過ぎて上手く歩けなくてさ……はは…」
		PRINTFORMDW 鈴瑚に肩を貸し、連れ出した。
	ELSEIF TALENT:恋人
		SELECTCASE RAND:3
			CASE 0
				CALL COLORMESSAGE("「ん、ちょっと待ってて。これ食べちゃうから……」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				SETCOLOR 0xEE9900
				PRINTFORMW 「お待たせ。行こうか%CALLNAME:MASTER%」
			CASE 1
				PRINTFORML 「さー%CALLNAME:MASTER%♪何処へ遊びに…じゃない、調査に行こうか？」
				PRINTFORMDW 鈴瑚と遊びに…もとい、調査に向かうことにした。
			CASE 2
				PRINTFORMW 「忘れ物は…無し！ 行こうか%CALLNAME:MASTER%♪」
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML （これって、もしかしてデートじゃ…）
				CALL COLORMESSAGE("「……そんなわけ無いよね」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			CASE 1
				PRINTFORML 「あ…うん！一緒に…♪」
				PRINTFORMDW 鈴瑚は嬉しそうについてきた。
			CASE 2
				PRINTFORMW 「キミと美味しい物でも食べに行きたいな…なんて」
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				CALL COLORMESSAGE("「いいよ。ちょうど私も暇してたし」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			CASE 1
				PRINTFORMW 「美味しい物でも食べに行く？」
			CASE 2
				PRINTFORMW 「お？もしかしてデートのお誘い？」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;352,告白する
;FLAG:甲斐性無(1=失敗)
;TFLAG:193 (1=成功 0=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K108_352
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_352
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_352_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_352_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL;はたて口上を参考に、振られたかどうかで会話が一部変化
SETCOLOR 0xEE9900
	IF TFLAG:193 == 1
		IF TALENT:恋慕
			PRINTFORML 「……%CALLNAME:MASTER%、今なんて？」
			PRINTFORMW 「私のこと、"好き"って……？」
			PRINTFORMDW 鈴瑚の目をしっかりと見据えて頷くと、鈴瑚はポロポロと涙を零し始めた……
			PRINTFORML 「あ…ゴメンね…？違うの、これは…嬉しくて……！」
			PRINTFORMW 「本当は私も…キミの事が好きだったの…！」
			IF CFLAG:1007 >= 1
				PRINTFORML 「でも…私じゃきっと釣り合わないって…」
				PRINTFORMW 「私以外の誰かと一緒になった方が、キミも幸せなんじゃないかって思うと…怖かったの……！」
			ELSE
				PRINTFORMW 「でも…"%CALLNAME:MASTER%はそうじゃなかったら""私の勘違いだったら"って思うと…怖かったの……！」
			ENDIF
			PRINTFORMW 「……%CALLNAME:MASTER%…本当に、私なんかで―」
			PRINTFORMW 「―あっ…！」
			PRINTFORMDW 返事をする代わりに、鈴瑚を強く抱きしめながらキスをした……！
			PRINTFORMW 「ん…ありがとう…%CALLNAME:MASTER%…！」
			CALL HPH_PRINT,@"「私も…%CALLNAME:MASTER%が好き…HPH」","W"
		ELSE
			IF CFLAG:1007 >= 1
				PRINTFORML 「…はぁ…キミって奴は本当に諦めが悪いなぁ……」
				PRINTFORMW 「…こんな下っ端ウサギなんかのどこがいいんだか……♪」
				PRINTFORMDW 自嘲気味に笑う鈴瑚に、"恋人になって欲しい"と改めて告白した。
				PRINTFORMW 「うん…わかったよ%CALLNAME:MASTER%……えっと…」
				PRINTFORMW 「す、末永くよろしくね……？」
				PRINTFORML 「…ぷっ！ あっははははは！！」
				PRINTFORMDW 鈴瑚の返事が可笑しくて、二人で笑い合った……
			ELSE
				PRINTFORMW 「え？……%CALLNAME:MASTER%、今なんて？」
				PRINTFORMDW 呆けた顔をしている鈴瑚にもう一度、"恋人になって欲しい"と告白した。
				PRINTFORML 「あ、はははは…その、えっと……」
				PRINTFORMW 「私…産まれてこの方、恋愛なんてした事無くてさ…どう返事したらいいのか分からなくて……」
				PRINTFORMDW "鈴瑚の気持ちを聞かせて欲しい"と言い、%CALLNAME:MASTER%は彼女の答えを待った……
				PRINTFORMW 「…わかったよ%CALLNAME:MASTER%……えっと…」
				PRINTFORMW 「す、末永くよろしくね……？」
				PRINTFORML 「…ぷっ！ あっははははは！！」
				PRINTFORMDW 鈴瑚の返事が可笑しくて、二人で笑い合った……
			ENDIF
		ENDIF
	;振られた
	ELSE
		IF FIRSTTIME(SELECTCOM)
			PRINTFORML 「%CALLNAME:MASTER%…何か勘違いしてるみたいだけど…」
			PRINTFORML 「私は調査対象としてキミに接触してるだけで、恋愛感情とかは無いよ」
			PRINTFORMDW 鈴瑚に振られてしまった……
			CFLAG:1007 += 1
		ELSE
			PRINTFORML 「やれやれ…キミも諦めが悪いなぁ」
			PRINTFORML 「前にも言ったけど、キミはあくまで調査対象。それ以上の感情は無いんだってば」
			PRINTFORML 「…キミには女性の知り合いが沢山いるんだし、他の人にしなよ」
			PRINTFORMDW 鈴瑚は帽子を目深に被ると、それ以上何も言わなかった……
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;353,イタズラする
;FLAG:甲斐性無(1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K108_353
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_353_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_353_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMDL "鈴瑚に悪戯してやろう"
	PRINTFORMDW 浮かんできた下卑た欲望に身を任せ、鈴瑚の肢体へと手を伸ばした……！
ENDIF
RETURN 1
;==================================================
;354,添い寝する（相手は起きて布団に招く感じ）
;CFLAG:衰弱(1以上=起きない
;CFLAG:お招き(0以外=起きない
;==================================================
@M_KOJO_MESSAGE_COM_K108_354
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_354_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_354_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:睡眠 || CFLAG:衰弱
		PRINTFORML 「んん……！んぅ～…」
		PRINTFORMDW よほど疲れているのだろうか…鈴瑚は呻いているが、起きる気配は無い…
	ELSEIF TALENT:恋人
		SELECTCASE RAND:4
			CASE 0
				CALL HPH_PRINT,@"「いいよ%CALLNAME:MASTER%♪おいで～HPH」","L"
				PRINTFORMDW 許可を得たので、鈴瑚の布団にお邪魔した。
			CASE 1
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%おやすみ～HPH」","L"
				PRINTFORMDW 鈴瑚が布団の中で抱きついてきた。
			CASE 2
				PRINTFORML 「ねえ%CALLNAME:MASTER%。"腕枕"って奴やってよ」
				CALL HPH_PRINT,@"「…ははっ♪ちょっと恥ずかしいけど、いい夢見れそうかも…HPH」","L"
				PRINTFORMDW %CALLNAME:MASTER%の腕の中で、鈴瑚は嬉しそうに目を閉じた。
			CASE 3
				PRINTFORML 「…………。」
				PRINTFORML 「%CALLNAME:MASTER%早く寝てよ。寝顔が見れないじゃん」
				PRINTFORMDW もう少しだけ起きていよう……
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「…いいけど、変な事しないでよ…？」
				PRINTFORMDW 鈴瑚から添い寝の許可を貰ったので、布団へ潜り込んだ。
			CASE 1
				PRINTFORML 「……%CALLNAME:MASTER%？もう寝ちゃった？」
				PRINTFORML 「その…寝れないから、ちょっとだけお喋りしたいなって…」
				PRINTFORMDW 鈴瑚が眠くなるまで、会話に付き合うことにした。
			CASE 2
				PRINTFORML 「…………。」
				PRINTFORML （どうしよ……ドキドキして寝れない……！）
				PRINTFORMDW 鈴瑚はこちらに背を向けている……
		ENDSELECT
	;それ以外
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「…な～に？人肌でも恋しくなっちゃった？」
				PRINTFORMDW 鈴瑚はケラケラ笑いながら、布団へ招いてくれた。
			CASE 1
				PRINTFORML 「%CALLNAME:MASTER%～…狭いんだから、もっとそっち行ってよ」
				PRINTFORMDW 鈴瑚と布団の中での攻防を楽しんだ。
			CASE 2
				PRINTFORML 「さて…まさかタダで私の布団で寝れると思ってないよね？」
				PRINTFORML 「いや～明日の団子の売り上げが楽しみだな～♪」
				PRINTFORMDW 明日は鈴瑚屋に行くしかなさそうだ……
		ENDSELECT
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;355,時止め（地の文の改変程度に留めるべき
;==================================================
@M_KOJO_MESSAGE_COM_K108_355
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_355_1
RETURN RESULT

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

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

@M_KOJO_MESSAGE_COM_K108_356
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_356_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_356_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;失敗
	IF !TALENT:無知 && ABL:露出癖 + TALENT:羞恥心 < 3
		PRINTFORML 「え？やだよ」
		PRINTFORMDW 即答で断られた……
	;成功
	ELSE
		PRINTFORML 「え～…本当にここでするの？しょうがないなぁ……」
		CALL HPH_PRINT,@"「…一回だけね…HPH」","L"
		PRINTFORMDW 鈴瑚も乗り気のようだ……！
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;360,身を任せる
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=スカートの中を見せる 53=パイズリ 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅきホールド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_MESSAGE_COM_K108_360
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_360_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_360_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TCVAR:20
		;谷間を見せる
		CASE 27
			SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「キミがいっぱい触るから、大きくなっちゃった…HPH」","W"
				CASE 1
					CALL HPH_PRINT,@"「ほ～ら…HPHキミの大好きなおっぱいだよ…HPH」","W"
			ENDSELECT
		;キス
		CASE 30
			CALL RINGO_KISS
		;前から抱きつく
		CASE 32
			SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH」","L"
					PRINTFORMDW 鈴瑚が抱きついてきた。柔らかい感触が心地良い……
				CASE 1
					CALL HPH_PRINT,@"「聞こえるでしょ？私の心臓の音……HPH」","L"
					PRINTFORMDW 鈴瑚も興奮しているようだ……
			ENDSELECT
		;胸を揉ませる
		CASE 33
			SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH 早く私のおっぱい、触って…HPH」","L"
					CALL HPH_PRINT,@"「あっHPH んん…HPHきもち…いいっ…HPH…もっと…HPH」","W"
				CASE 1
					CALL HPH_PRINT,@"「どう？ちょっと大きくなった？早く確かめて…HPH」","L"
					PRINTFORMDW %CALLNAME:MASTER%は鈴瑚の胸へと手を伸ばし、ゆっくりと揉みしだいた……
				CASE 2
					CALL HPH_PRINT,@"「んっHPHんん…HPHあぅっ…HPHく、くすぐったい…HPH」","L"
					PRINTFORMDW 鈴瑚は胸を揉まれる度に悩ましい声をあげている……！
			ENDSELECT
		;スカートの中を見せる
		CASE 35
			IF TEQUIP:TARGET:50 == MASTER
				CALL HPH_PRINT,@"「んんっHPH ふふ…♪ほら見て…HPH 全部挿入ったよ…HPH」","L"
				PRINTFORMDW 結合部に目をやると、%CALLNAME:MASTER%のペニスは鈴瑚の膣に包まれ見えなくなっている…
			ELSEIF !EQUIP:下半身内衣２
				CALL HPH_PRINT,@"「パンツ…お漏らししたみたいね…HPH」","L"
				PRINTFORMDW 鈴瑚のパンツは陰核の形がはっきりわかる程に、愛液で湿っている……
			ELSE
				CALL HPH_PRINT,@"「どう…？私のおまんこ…HPH もうぐちょぐちょでしょ…HPH」","L"
				CALL HPH_PRINT,@"「キミだから…こんなになっちゃうんだよ…HPH HPH」","L"
				PRINTFORMDW 普段の彼女からは想像もつかない淫らな姿に、%CALLNAME:MASTER%は息を荒げて興奮している…！
			ENDIF
		;挿入おねだり
		CASE 41, 43, 44
			SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「ほらぁ…早く挿入れてよぉ…HPH」","W"
				CASE 1
					CALL HPH_PRINT,@"「もう…HPH %CALLNAME:MASTER%は意地悪なんだから…HPH」","L"
					PRINTFORMW 「あんまり焦らさないで……？」
			ENDSELECT
		;手淫
		CASE 50
			;技巧３以上
			IF ABL:技巧 >= 3
				SELECTCASE RAND:3
					CASE 0
						CALL HPH_PRINT,@"「ふふ…HPH気持ちいいでしょ%CALLNAME:MASTER%…HPH」","L"
						CALL HPH_PRINT,@"「キミのおちんちんの弱点は知り尽くしてるからね…HPH」","L"
						PRINTFORMDW 鈴瑚の器用な指が、%CALLNAME:MASTER%のペニスを的確に刺激してくる…！
					CASE 1
						CALL HPH_PRINT,@"「この裏スジのとこ…引っかかれるの好きでしょHPH」","L"
						CALL HPH_PRINT,@"「ほらほら～HPHイっちゃっていいよ～HPH」","L"
						PRINTFORMDW %CALLNAME:MASTER%は快感のあまり、呻く事しかできない……！
					CASE 2
						CALL HPH_PRINT,@"「こうやって見ると、亀頭って団子っぽいかも…HPH」","L"
						PRINTFORMDW 鈴瑚はペニスの先を、指でこね回す様に触っている……
				ENDSELECT
			;それ以外
			ELSE
				SELECTCASE RAND:3
					CASE 0
						CALL HPH_PRINT,@"「まさか団子を捏ねてきたこの手で、おちんちん扱くことになるなんてね…HPH」","L"
						CALL HPH_PRINT,@"「ほんとに、キミって奴は…HPH」","W"
					CASE 1
						PRINTFORML （えーっと……優しく…上下に扱く、っと……）
						PRINTFORMDW 鈴瑚は慣れない手つきで%CALLNAME:MASTER%の肉棒をしごいている…
					CASE 2
						PRINTFORML 「%CALLNAME:MASTER%…これでいい？気持ちいい？」
						PRINTFORMDW 不安そうな顔で聞いてくる鈴瑚に頷くと、ホッとした様な笑顔になった。
				ENDSELECT
			ENDIF
		;フェラチオ
		CASE 51
			CALL RINGO_FELLATIO
		;素股
		CASE 52
			SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「はぁ…HPH はぁ…HPHこれ…だんだん、エッチな気分に…HPH」","L"
					PRINTFORMDW 鈴瑚は息を荒げながらペニスに女陰を擦りつけている……
				CASE 1
					CALL HPH_PRINT,@"「あHPHふふ…HPH おちんちんびくびくしてる…HPH」","L"
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH私のナカじゃなくても気持ちいいの…？HPH」","W"
				CASE 2
					CALL HPH_PRINT,@"「んんっHPH HPHクリに当たって…HPH気持ちいぃ…HPH」","L"
					CALL HPH_PRINT,@"「ふぁああっHPH HPHそ、それっHPH もっとぉHPH」","W"
			ENDSELECT
		;パイズリ
		CASE 53
			;胸技術２以上
			IF ABL:胸 >= 2
				SELECTCASE RAND:2
					CASE 0
						CALL HPH_PRINT,@"「どう？%CALLNAME:MASTER%？前より上手になったでしょHPH」","L"
						CALL HPH_PRINT,@"「私だって、団子ばっか作ってるだけじゃないんだよ…HPH」","L"
						PRINTFORMDW 巧みな鈴瑚のパイズリに、早くも射精感がこみ上げてくる……！
					CASE 1
						CALL HPH_PRINT,@"「胸で挟むだけじゃなくて…HPH乳首でコリコリって…HPH」","L"
						PRINTFORMDW "柔らかい"と"硬い"…二つの刺激で興奮してきた……！
					CASE 2
						CALL HPH_PRINT,@"「ビクビクしてきたね…HPHもうイっちゃいそうなの？」","L"
						PRINTFORMDL %CALLNAME:MASTER%が何度も頷くと、鈴瑚は突然パイズリを止めてしまった…
						CALL HPH_PRINT,@"「ダメだよ%CALLNAME:MASTER%～HPHイかせて欲しいなら、ちゃあんとお願いしなきゃ…HPH」","L"
						PRINTFORMDW 意地の悪い笑みを浮かべる鈴瑚に、%CALLNAME:MASTER%は自分の欲求を大きな声で伝えた……！
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
					CASE 0
						CALL HPH_PRINT,@"「んっHPH んっHPH…どうかな？%CALLNAME:MASTER%…気持ちいい？」","L"
						PRINTFORMDW 少し不安そうに顔をのぞき込んでくる鈴瑚に、頷き返した。
					CASE 1
						PRINTFORML 「おっぱいで挟むのがいいなんて…キミは変わってるなぁ…♪」
						PRINTFORMDW 鈴瑚はどこか楽しそうにパイズリをしている。
					CASE 2
						CALL HPH_PRINT,@" 「…ん～？刺激が足りないって顔してるね…れるっ…HPH」","L"
						PRINTFORMDL 不意に生暖かい刺激が鈴口を襲う。どうやら鈴瑚に舌で舐められた様だ。
						PRINTFORMW 「ふふっ…♪…もっと舐めて欲しい？ちゃんと言葉にしてくれなきゃわかんないな～？」
				ENDSELECT
			ENDIF
		;足コキ
		CASE 54
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「ん～？なに%CALLNAME:MASTER%？射精させて欲しい？」
					CALL HPH_PRINT,@"「ん～…どうしよっかな～HPH」","L"
					PRINTFORMDW 鈴瑚はわざと足の動きを緩慢にして、%CALLNAME:MASTER%の反応を楽しんでいる…
				CASE 1
					CALL HPH_PRINT,@"「ふふ…HPH どう%CALLNAME:MASTER%？気持ちいい？」","L"
					CALL HPH_PRINT,@"「今のキミの姿をみんなに見られたら…どう思うだろうね…HPH」","L"
					PRINTFORMDW 鈴瑚の巧みな足遣いと言葉責めに、%CALLNAME:MASTER%はただ喘ぎ声を上げるしか出来ない……
				CASE 2
					CALL HPH_PRINT,@"「はぁ…HPH はっHPH んんっHPH ん、は…ぁHPH」","L"
					CALL HPH_PRINT,@"（足で%CALLNAME:MASTER%のちんちん弄りながらするの…凄く興奮する…HPH）","L"
					CALL HPH_PRINT,@"（こんな変態みたいな事…でも…指止まんない…HPH）","L"
					PRINTFORMDW 鈴瑚は%CALLNAME:MASTER%のペニスを足扱きしながら、自らの膣穴を慰めている……
			ENDSELECT
		;アナル愛撫,アナル舐め
		CASE 55, 56
			SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPHお尻気持ちいい？」","L"
					PRINTFORMDW 鈴瑚は%CALLNAME:MASTER%の尻穴を愛撫している…
				CASE 1
					CALL HPH_PRINT,@"「お尻の穴…HPHすっごく綺麗だね…HPH」","L"
					CALL HPH_PRINT,@"「もしかして…こういう事されるの期待してた？HPH」","L"
					PRINTFORMDW 鈴瑚に尻を観察され、%CALLNAME:MASTER%は羞恥で顔が熱くなった……
			ENDSELECT
		;胸愛撫
		CASE 58
			SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「ふふっHPHキミでも乳首感じたりするんだね……HPH」","L"
					PRINTFORMDW 鈴瑚は楽しそうに%CALLNAME:MASTER%の乳首を弄んでいる……
				CASE 1
					CALL HPH_PRINT,@"「こうやってつまんで……えいっ♪ふふ…いい顔HPH」","L"
					PRINTFORMDW %CALLNAME:MASTER%は恥ずかしさのあまり、顔を背けてしまった…
				CASE 2
					CALL HPH_PRINT,@"「ふふ…HPHキミ…いつもこうやって私の乳首弄ってたもんね…HPH」","L"
					CALL HPH_PRINT,@"「ほら…HPHこれは…気持ちいいかな？」","L"
					PRINTFORMDW 鈴瑚にされるがまま、胸を弄ばれている……
			ENDSELECT
		;乳首吸い
		CASE 59
			SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「ん、ちゅーっHPHぢうぅぅHPH」","L"
					CALL HPH_PRINT,@"「……♪ぢゅうぅぅぅっHPH HPH」","L"
					PRINTFORMDW 鈴瑚はこちらにも聞こえる様に、音を立てて乳首を吸っている…
				CASE 1
					CALL HPH_PRINT,@"「ちゅっHPHちゅぅぅHPH……♪―かぷっHPHぢうぅHPH」","L"
					PRINTFORMDW 鈴瑚は乳首を吸うだけでは飽き足らず、甘噛みしてきた…
			ENDSELECT
		;ディープキス
		CASE 60
			SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「んっ…HPH んちゅっHPH じゅるHPH ちゅっ…れる…♪あむHPH んんっHPH じゅるるっHPH」","L"
					CALL HPH_PRINT,@"「―ぷはっ！…はぁHPH はぁHPH はぁHPH …%CALLNAME:MASTER%…HPH ん…あむっ―」","L"
					CALL HPH_PRINT,@"「んんっHPH じゅっHPH じゅるるっHPH ぢうぅっHPH れる…じゅるるぅっHPH HPH」","W"
				CASE 1
					CALL HPH_PRINT,@"「んぁ…HPH あむ、れる…っ、んちゅっ…HPH」","L"
					PRINTFORMDW 鈴瑚と舌を絡めてディープキスをした…
			ENDSELECT
		;クンニ強制
			CASE 70
				SELECTCASE RAND:3
					CASE 0
						CALL HPH_PRINT,@"「ほら…見て%CALLNAME:MASTER%…HPH」","L"
						CALL HPH_PRINT,@"「私のおまんこ…もうぐちょぐちょになってるでしょ…HPH」","L"
						PRINTFORMDW 愛液が滴り落ちる鈴瑚の女陰へ、%CALLNAME:MASTER%は無意識に舌を伸ばしていた…！

					CASE 1
						CALL HPH_PRINT,@"「ああっHPHんうっHPHそ、そうっHPHもっと奥の方も舐めてぇHPHHPH HPH」","L"
						PRINTFORMDW 鈴瑚は%CALLNAME:MASTER%の顔の上で腰を淫らにくねらせ悦んでいる。
					CASE 2
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%、おちんちん大きくなってるよ…HPH」","L"
						CALL HPH_PRINT,@"「おまんこイかせてくれたら、射精させてあげるからね…HPH」","L"
						PRINTFORMDW %CALLNAME:MASTER%は一心不乱に、鈴瑚の雌穴を舐めた……！

				ENDSELECT
		;顔面騎乗アナル
		CASE 72
			SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「うあぁHPHああっ…HPH信じられない…HPHお尻、本当に舐めるなんてぇ…HPH」","L"
					PRINTFORMDL %CALLNAME:MASTER%の顔面に跨った鈴瑚は、口元に尻をぐりぐりと押し付けてきた。
					PRINTFORMDL 自分の中で何かが崩壊した%CALLNAME:MASTER%は、無我夢中で菊門に舌をねじ込んで舐めまわした…
					CALL HPH_PRINT,@"「あうぅっHPHそ、そんなっHPH奥まで舐めるのぉぉっ？HPH HPH」","W"
				CASE 1
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%、何これ？何でおちんちん大きくしてるのさHPH」","L"
					CALL HPH_PRINT,@"「キミは私のお尻を舐めて悦ぶ、変態ってことかなぁ？HPH」","L"
					PRINTFORMDW 抗議したかったが、顔に尻を押し付けられて上手く喋れない……
			ENDSELECT
		;ぱふぱふ
		CASE 73
			SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「ぱふぱふっ…HPH ぱふぱふっ…HPH HPH」","L"
					CALL HPH_PRINT,@"「ホントにキミはおっぱい好きなんだね…HPH」","W"
				CASE 1
					CALL HPH_PRINT,@"「ふふ…HPH%CALLNAME:MASTER%どう？気持ちいい？」","L"
					PRINTFORMDW 鈴瑚の乳房に包まれ、HPH%CALLNAME:MASTER%は夢見心地だ……
				CASE 2
					CALL HPH_PRINT,@" 「挟まれるだけで、気持ちいいなんて…%CALLNAME:MASTER%のエッチHPH」","L"
					PRINTFORMDW %CALLNAME:MASTER%は幸福感で満たされ、幸せそうな顔をしている……
			ENDSELECT
		;乳合わせ
		CASE 74
			SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「んんっHPH 乳首がこすれて…HPH 気持ちいいっ…HPH」","L"
					PRINTFORMDW 鈴瑚とお互いの乳首を擦り合わせて愛撫し合った。
				CASE 1
					CALL HPH_PRINT,@"「んっ…HPH ふふ…HPH %CALLNAME:MASTER%も…乳首、気持ちいいんだね…HPH」","L"
					CALL HPH_PRINT,@"「じゃあ…HPH もっと気持ち良くしてあげるよ…HPHんっHPHんんHPH」","L"
					PRINTFORMDW 鈴瑚と乳首を擦り合わせ、快感を共有し合った…
				CASE 2
					CALL HPH_PRINT,@"「あっははHPH見て？おっぱいつぶれちゃってるHPH」","L"
					PRINTFORMDW 鈴瑚の乳房が平らになる程、%CALLNAME:MASTER%の胸に押し付けられているようだ…
			ENDSELECT
		;強制アソコ愛撫
		CASE 76
			IF TALENT:108:処女
				PRINTFORML 「その…は、初めては…キミの…がいいから…」
				PRINTFORMDW 鈴瑚の処女膜を破かぬよう、慎重に愛撫した……
			ELSE
				SELECTCASE RAND:2
					CASE 0
						CALL HPH_PRINT,@"「はぁ…HPH あぁっHPH いい…HPHその…入口のとこ…もっと…HPH」","L"
						CALL HPH_PRINT,@"「んんっ…HPHあっHPH ね、ねぇ…こっちも…触って…？」","L"
						PRINTFORMDW 鈴瑚はクリトリスも触って欲しいようだ……
					CASE 1
						PRINTFORML 「あぐぅっ！%CALLNAME:MASTER%…！もっと優しく触って…！」
						CALL HPH_PRINT,@"「あっ…HPH んんぅHPHそう…そこはデリケートだから優しくね…♪」","W"
					CASE 2
						CALL HPH_PRINT,@"「んんっHPHあぅぅっHPH そ、そう…！指でナカを軽くなぞる感じで…HPH」","L"
						CALL HPH_PRINT,@"「次は指をゆっくり出し挿れしてみて…？―あっHPH そうっHPHじょうずっHPH」","L"
						PRINTFORMDW 鈴瑚の指示通りに、膣内を愛撫した。
				ENDSELECT
			ENDIF
		;乳を吸わせる
		CASE 77
			SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「ほ～らHPH %CALLNAME:MASTER%の好きなおっぱいだよ…HPH」","L"
					CALL HPH_PRINT,@"「キミの自由にしていいんだよHPHどうする？」","L"
					PRINTFORMDW 生物としての本能だろうか、気づけば乳首へと舌を伸ばしていた…！
				CASE 1
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH私のおっぱい美味しい？HPH」","L"
					CALL HPH_PRINT,@"「ふぁああっHPH HPH ちょっとぉ！乳首噛むのは無しぃぃHPH」","L"
					PRINTFORMDW 無意識のうちに、%CALLNAME:MASTER%は鈴瑚の乳首を甘噛みしていた…
				CASE 2
					CALL HPH_PRINT,@"（ほ～んと…夢中でおっぱい吸っちゃって…HPH赤ちゃんみたいだなぁ…HPH）","L"
					CALL HPH_PRINT,@"「……よしよしHPH おっぱい飲めてえらいでちゅね～HPH」","L"
					PRINTFORMDW 鈴瑚に赤ちゃん言葉で話しかけられながら頭を撫でられた……
			ENDSELECT
		;85=Ｖ挿入する
		CASE 85
			IF TCVAR:破瓜 == 1
				CALL RINGO_SEX
			ELSE
				SELECTCASE RAND:3
					CASE 0
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%…♪もう、我慢できないから…挿入れるよHPH」","L"
						CALL HPH_PRINT,@"「ふ…！んぐっ…―んんぅっHPH HPH HPH」","L"
						PRINTFORMDW 濡れそぼった鈴瑚の膣穴は、%CALLNAME:MASTER%の肉棒をすんなりと飲み込んだ…！
					CASE 1
						CALL HPH_PRINT,@"「あぁっHPHあんっHPHこうやって…！擦ってるだけでも気持ちいい…HPH」","L"
						PRINTFORMDL 鈴瑚がくちゅくちゅと水音を立てながら、女陰をペニスに擦りつけている…
						PRINTFORMDW もどかしい刺激に頭がおかしくなりそうになる…！
						CALL HPH_PRINT,@"「―それっ♪んんっHPH HPH…あ、HPHはは…HPH挿入っちゃったねぇ…HPH」","L"
						PRINTFORMDW 突然の挿入に、%CALLNAME:MASTER%は視界が真っ白になった…！
					CASE 2
						CALL HPH_PRINT,@"「ほら%CALLNAME:MASTER%HPH見て？もう少しで挿入っちゃうよ…？HPH」","L"
						PRINTFORML 「このまま私が腰を落としたら―」
						CALL HPH_PRINT,@"「あ゛あぁぁぁっっ！？HPH HPH HPH…あ…HPHずるいよ…HPHいきなり挿入れるのはぁ…HPH」","L"
						PRINTFORMDW 攻められ続けた分、少しお返ししてやるとしよう……！
				ENDSELECT
			ENDIF
		;だいしゅきホールド
		CASE 86
			SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「ほら%CALLNAME:MASTER%…HPHキミも動いて…HPHいっぱい気持ち良くして…？」","L"
					PRINTFORMDL 鈴瑚が手足を絡めて密着してきた。亀頭に硬い感触を感じながら、腰を激しく打ち付ける…！
					CALL HPH_PRINT,@"「あぁっHPHはっHPHああぁっHPHそれっHPHいいっHPHもうイクHPHイクうぅっHPH HPH」","W"
				CASE 1
					CALL HPH_PRINT,@"「はっHPHあっHPHあぁぁHPH%CALLNAME:MASTER%っHPHお願い…HPHナカに…ナカにぃHPH HPH」","L"
					PRINTFORMDW 鈴瑚はこちらに抱きつきながら、腰を激しく動かしている…！
				CASE 2
					CALL HPH_PRINT,@"「ふふっ…♪%CALLNAME:MASTER%イキそう？…いいよHPH」","L"
					CALL HPH_PRINT,@"「―キミのザーメン…HPH子宮で全部飲んであげるHPH」","L"
					PRINTFORMDW 鈴瑚に耳元で囁かれ、理性の糸が切れた……！
			ENDSELECT
		;87=Ａ挿入する
		CASE 87
			IF TCVAR:Ａ破瓜
				CALL RINGO_SEX
			ELSE
				SELECTCASE RAND:3
					CASE 0
						CALL HPH_PRINT,@"「ん…ぐぅぅっHPH HPH…あははHPHまさか私が、お尻でシたいって思うなんてね…♪」","L"
						CALL HPH_PRINT,@"「私がこんなになったのも、キミのせいなんだから…HPH責任取ってね…？HPH」","L"
						PRINTFORMDW 鈴瑚は尻穴へ%CALLNAME:MASTER%のペニスを挿入すると、ゆっくりと腰を動かし始めた。
					CASE 1
						CALL HPH_PRINT,@"「あはっHPH%CALLNAME:MASTER%、カチカチじゃないHPH」","L"
						CALL HPH_PRINT,@"「お尻はエッチする所じゃないってのに…HPHキミって奴は…ぁぁっHPH」","W"
					CASE 2
						PRINTFORML 「ふ…！んんっ…！もう、ちょっと…で…！」
						CALL HPH_PRINT,@"「―うああぁぁぁっHPH HPH HPH…はは…HPH　ちょっと、イッちゃったぁ…HPH」","L"
						PRINTFORMDW 尻穴に入ったペニスを通じて、鈴瑚の痙攣が伝わってくる…！
				ENDSELECT
			ENDIF
		;88=腰振りＶ 89=腰振りＡ
		CASE 88, 89
			SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「はっHPHはっHPHあぁっHPHんぅっHPHんっHPHあっHPHあぁぁ…HPH」","L"
					PRINTFORMDW 二人の荒い息遣いと、肉のぶつかり合う音が響き渡る……
				CASE 1
					PRINTFORML 「はぁHPHんっHPHんんHPH%CALLNAME:MASTER%…HPH気持ちいい…？」
					CALL HPH_PRINT,@"「よかった…HPH私だけ気持ちよくなってたらどうしようかと思って…HPH」","L"
					PRINTFORMDW 絶頂が近いのか、鈴瑚は更に腰を加速させてきた…！
				CASE 2
					CALL HPH_PRINT,@"「ねぇ…HPHちょっと、趣向を変えてみよっか…HPH」","L"
					CALL HPH_PRINT,@"「こうやって…！腰をくねらせるのはっ…どうかなっHPH」","L"
					PRINTFORMDW 鈴瑚は腰を激しくグラインドさせ、%CALLNAME:MASTER%のペニスを攻め立ててきた…！
			ENDSELECT
		CASEELSE
			SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「はぁーHPHはぁーHPH%CALLNAME:MASTER%ゴメンHPHもう我慢できないっHPH」","L"
					PRINTFORMDW 鈴瑚が息を荒げながら迫ってきた…！
				CASE 1
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH何で抵抗しないの…？HPH」","L"
					CALL HPH_PRINT,@"「ほらほら…HPHぼーっとしてると、襲っちゃうわよ…HPH」","L"
					PRINTFORMDW 情欲に憑りつかれた鈴瑚の目は、まるで炎のように真っ赤になっている…！
			ENDSELECT
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;361,抵抗する
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=スカートの中を見せる 53=パイズリ 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅきホールド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_MESSAGE_COM_K108_361
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_361_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_361_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:恋人
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「ん～？やっぱり、されるがままは性分じゃなかったりする？」
			CASE 1
				CALL HPH_PRINT,@"「ほらほら%CALLNAME:MASTER%…HPH」","L"
				CALL HPH_PRINT,@"「もっと抵抗しなきゃ…HPH」","W"
		ENDSELECT
	ELSE
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「……私とするの、嫌だった…？」
			CASE 1
				PRINTFORMW 「ちょ…！何で抵抗するのさ…！」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

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

@M_KOJO_MESSAGE_COM_K108_363
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_363_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;364,豆まき(萃香、勇儀、スカーレット姉妹用
;TFLAG:193(豆まきに参加してる人数
;==================================================
@M_KOJO_MESSAGE_COM_K108_364
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_364_1
RETURN RESULT

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

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

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

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

@M_KOJO_MESSAGE_COM_K108_368_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE Activity_Type:TARGET
		CASE 0
			;▼考え事［なに考えてるの］
			;TFLAG:193,-1=はぐらかされる
			IF TFLAG:193 == -1
				PRINTFORMW 「ん～？別に何も？」
			ELSE
				SELECTCASE RAND:5
				CASE 0
					PRINTFORML 「新しい団子を考えてるんだけどさ…何も思い浮かばないんだよねぇ…」
					PRINTFORMDW 鈴瑚は溜め息をついた。
				CASE 1
					PRINTFORML 「先週の晩御飯、何食べたか思い出せなくて……」
					PRINTFORMDW 覚えている方が珍しいだろう……
				CASE 2
					IF TALENT:恋人
						CALL HPH_PRINT,@" 「%CALLNAME:MASTER%の事に決まってるでしょHPH」","W"
					ELSEIF TALENT:恋慕
						PRINTFORML 「%CALLNAME:MASTER%の事……」
						PRINTFORMW 「―なんてね♪」
					ELSE
						PRINTFORML 「%CALLNAME:MASTER%はどの部位が一番美味しいのか考えてたんだよ」
						PRINTFORMDW 聞き間違いだろうか？
					ENDIF
				CASE 3
					CALL COLORMESSAGE("「今日は何食べよっかな～って…あ、この団子は別ね」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORMW MGMG
				CASE 4
					PRINTFORML 「何も考えてない。ボーっとしてただけ」
					PRINTFORMDW 本当に何も考えていなかったようだ……
				ENDSELECT
			ENDIF
		CASE 1
			;▼遊ぶ［一緒に遊ぶ］
			;※[幼稚]持ちのみ
			;TFLAG:193,1=大いに盛り上がる,-1=あまり盛り上がらない
			;PRINTFORMW
		CASE 2
			;▼食事［一緒に食事する］
			;TFLAG:193,-1=MASTERはお腹が空いてなかった
			IF TFLAG:193 == -1
				PRINTFORML 「…何か美味しくなさそうな顔してる」
				PRINTFORMW 「"お腹空いてない"？そりゃ悪かったね」
			ELSE
				SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「どう？美味しいでしょ？」
				CASE 1
					PRINTFORMW 「いい食べっぷりだね%CALLNAME:MASTER%」
				ENDSELECT
			ENDIF
		CASE 3
			;▼つまみ食い［一緒につまみ食い］
			;※[妖精]持ちとルーミア、こいし、幽々子、紫苑のみ
			;TFLAG:193,-1=MASTERはお腹が空いてなかった
			;PRINTFORMW
		CASE 4
			;▼掃除［掃除を手伝う］
			;※[掃除係]持ちまたは汚臭耐性-1以下のみ
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「手伝ってくれるの？じゃあ、あっちの方を頼むよ」
				CASE 1
					PRINTFORML （とっとと終わらせて団子食べなきゃ……！）
					PRINTFORMDW 鈴瑚はテキパキと掃除をしている……
				CASE 2
					PRINTFORML 「手伝ってくれて助かるよ%CALLNAME:MASTER%」
					PRINTFORMW 「やっぱりこういう事は複数でやった方が効率良いからね」
			ENDSELECT
		CASE 5
			;▼運動［一緒に運動する］
			;※[音楽知識]持ちは除く（演奏になる）
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「%CALLNAME:MASTER%。うさぎ跳びは膝悪くするから止めといた方がいいよ」
				CASE 1
					PRINTFORML 「こうやって…！運動すれば…！」
					PRINTFORML 「より美味しく…！団子を食べられるってわけさ…！」
					PRINTFORMDW 鈴瑚と身体を動かして腹ごなしをした。
				CASE 2
					PRINTFORML 「ぜー…ぜー…き、休憩……！」
					PRINTFORML 「―あっ！？団子返せ～！」
					PRINTFORMDW 心を鬼にして、運動が終わるまで団子を預かることにした。
			ENDSELECT
		CASE 6
			;▼読書［本の感想を聞く］
			;TFLAG:193,-1=集中していて返事してくれない
			IF TFLAG:193 == -1
				PRINTFORML 「%TEXTR("んー…/うん…/そうね…")%」
				PRINTFORMDW 読書に集中しているのか、鈴瑚は生返事をしている……
			ELSE
				SELECTCASE RAND:2
					CASE 0
						PRINTFORMW 「これ面白かったよ。%CALLNAME:MASTER%も読んでみる？」
					CASE 1
						PRINTFORML 「%CALLNAME:MASTER%、これ読みたいの？」
						PRINTFORMW 「イーグルラヴィで流行ってるやつなんだけど…私はイマイチだったなぁ」
				ENDSELECT
			ENDIF
		CASE 7
			;▼料理［料理を手伝う］→［料理を分けてもらう］
			;TFLAG:193,2=料理を手伝う,0=作った料理を食べる,-1==MASTERはお腹が空いてなかった（食べる時）
			IF TFLAG:193 == 2
				;酔っ払い時
				IF ALCOHOL_FACE(108) == "酔いどれ" || ALCOHOL_FACE(108) == "ぐでぐで"
					PRINTFORML 「うんまいおつまみをご馳走してあげるよ%CALLNAME:MASTER%」
					PRINTFORMDW 酔っぱらったまま料理を始めた鈴瑚を見守る事にした……
				ELSE
					PRINTFORML 「団子を作ってみたいって？じゃあ一緒にやろうか」
					PRINTFORMDW 鈴瑚と団子を作ることにした。
					PRINTFORMDW …………。
					IF ABL:MASTER:料理技能 >= 5
						PRINTFORMDL 鈴瑚と一緒に団子を作った。我ながらいい出来だ…！
						PRINTFORMW 「よし%CALLNAME:MASTER%。明日から鈴瑚屋で働いてくれる？」
						PRINTFORMW 「……ははは！冗談だよ♪本気にした？」
					ELSEIF ABL:MASTER:料理技能 >= 2
						PRINTFORMDL 団子が完成した。鈴瑚程ではないが、上手く出来た。
						PRINTFORML 「%CALLNAME:MASTER%、上手じゃない」
						PRINTFORMW 「今度、鈴瑚屋の団子作るの手伝ってもらおうかな…なんてね♪」
					ELSEIF ABL:MASTER:料理技能 >= 1
						PRINTFORMDL 団子が完成した。…が、鈴瑚と比べると不味そうだ……
						PRINTFORMW 「そうかな？私は美味しそうだと思うよ？」
					ELSEIF ABL:MASTER:料理技能 == 0
						PRINTFORMDL お世辞にも食べたいとは言えない見た目だ……
						PRINTFORMW 「あっはっはっは！大丈夫だよ%CALLNAME:MASTER%♪誰だって最初は初心者さ」
					ENDIF
				ENDIF
			ELSEIF TFLAG:193 == 0
				;酔っ払い時
				IF ALCOHOL_FACE(108) == "酔いどれ" || ALCOHOL_FACE(108) == "ぐでぐで"
					CALL HPH_PRINT,@" 「いいよHPHた～んとお食べ♪」","L"
					PRINTFORMDW 鈴瑚の作ったおつまみを分けて貰った。とても美味しかった。
				ELSE
					SELECTCASE RAND:3
						CASE 0
							PRINTFORMW 「%CALLNAME:MASTER%、そんなにお腹空いてたの？」
						CASE 1
							PRINTFORMW 「仕方ないなぁ…いいよ♪」
						CASE 2
							PRINTFORMW 「いいよ。じゃあ一緒に食べようか」
					ENDSELECT
				ENDIF
			ELSEIF TFLAG:193 == -1;腹いっぱい
				;酔っ払い時
				IF ALCOHOL_FACE(108) == "酔いどれ" || ALCOHOL_FACE(108) == "ぐでぐで"
					PRINTFORML 「…あれ？おいしくなかったかな～？」
					PRINTFORMDW お腹が一杯であまり食べられなかった……
				ELSE
					CALL COLORMESSAGE("「な～んだ、お腹一杯なの？じゃあ残りは私一人で食べるよ」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORMW MGMG
				ENDIF
			ENDIF
		CASE 8
			;▼演奏［セッションする］or［伴奏する］
			;※[音楽知識]持ちのみ（TALENT:音楽知識で変化）
			;TALENT:音楽知識,1=演奏してる,2=歌ってる,3=踊ってる
			;TFLAG:193,1=ノリノリ,0=成功,-1=失敗,-2=楽器がなくて見てるだけ
			;PRINTFORMW
		CASE 9
			;▼採集［採集を手伝う］
			SELECTCASE RAND:5
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%！イチゴ見つけたって！？」
					PRINTFORMDW %CALLNAME:MASTER%が呼ぶと、鈴瑚がこちらに走ってきた。
					SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「…なんだ、ヘビイチゴじゃん……これボソボソしてて美味しくないんだよね」
							PRINTFORMDW まるで食べた事があるかのような口ぶりだ…
						CASE 1
							PRINTFORML 「おお…！立派なキイチゴ！お手柄だね%CALLNAME:MASTER%♪」
							CALL COLORMESSAGE("「……味も申し分なし。ちょっと貰っていこうか♪」", C_ORANGE, 0, 0)
							SETCOLOR 0xFFFF00
							PRINTFORML MGMG
							PRINTFORMDW 鈴瑚とキイチゴを採取した。
						CASE 2
							PRINTFORML 「……どこ？何も無いみたいだけど？」
							PRINTFORMDL 立派なキイチゴが生えていた筈だが、跡形も無くなっていた……
							PRINTFORMW 「%CALLNAME:MASTER%、狸か何かに化かされたんじゃない？」
					ENDSELECT
				CASE 1
					PRINTFORML 「手伝ってくれるの？それじゃ頼むよ」
					PRINTFORML 「～～♪」
					PRINTFORMDW 採取を手伝いつつ、フリフリと揺れる尻を後ろから堪能した。
				CASE 2
					;シレンの忌火起草
					PRINTFORML 「…そういや知り合いの玉兎が、"落ちてる草飲んだら、道具が全部使えなくなった"って言ってたっけ…」
					PRINTFORML 「たしか…"イマビキソウ"？とかいう名前だったかな」
					PRINTFORMDW よくわからないが、気をつけよう……
				CASE 3
					PRINTFORML 「おっ、いいのみっけ」
					PRINTFORMW 「こういう薬の材料は、八意様が買い取ってくれるからね～♪」
				CASE 4
					PRINTFORMDL 茶色で大きい、シイタケに似たキノコが生えている。美味しそうだ……
					PRINTFORMW 「それ、毒キノコだよ」
			ENDSELECT
		CASE 10
			;▼釣り［一緒に釣りをする］
			;TFLAG:193,-1=釣り竿がなくて見てるだけ
			;PRINTFORMW
		CASE 11
			;▼実験［実験を手伝う］
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML 「今ね、%CALLNAME:MASTER%の身体能力を大幅に強化する団子を開発してるんだ」
					PRINTFORML 「完成したら食べさせてあげるからね…ゴリゴリのムキムキになれるよ。きっと」
					PRINTFORMDW 自分はどうなってしまうのだろう……
				CASE 1
					;サクマドロップスのフレーバー
					PRINTFORML 「これ？香料作ってるんだ。嗅いでみる？」
					PRINTFORMDW %TEXTR("イチゴ/パイナップル/オレンジ/レモン/リンゴ/メロン/スモモ/ハッカ/チョコレート/")%のいい香りがした。
				CASE 2
					PRINTFORML 「あちゃ～…失敗しちゃった…」
					PRINTFORML 「やっぱり八意様みたいに上手くはいかないか……」
					PRINTFORMDW 鈴瑚は、ボコボコと泡立つ謎の液体を外へ捨てに行った……
				CASE 3
					PRINTFORML 「…%CALLNAME:MASTER%。新しい団子作ったんだけど…食べる？」
					PRINTFORMDW 鈴瑚の手の中にある白い団子（？）はモゾモゾと動いて鳴き声の様な音を発している…！
			ENDSELECT
		CASE 12
			;▼のんびり［一緒にのんびりする］
			SELECTCASE RAND:3
				CASE 0
					CALL COLORMESSAGE("「…………♪」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 心地よい沈黙の中、鈴瑚と団子を食べた。
				CASE 1
					PRINTFORML 「あ゛～～…いいね～…この時間を無駄にしている感じ…♪」
					PRINTFORMDW 特に何もせず、鈴瑚とダラダラして過ごした。
				CASE 2
					PRINTFORML 「ずず…ふ～…」
					CALL COLORMESSAGE("「やっぱりキミのお茶は、団子によく合うね…♪」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚とお茶を飲みながらすごした。
			ENDSELECT
		CASE 13
			;▼晩酌［晩酌に付き合う］
			;※酒耐性0以上のみ
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「どう？美味しい？」
					PRINTFORMW 「たくさんあるから、どんどん飲んでね～♪」
				CASE 1
					PRINTFORML 「…え？酒が進んでないって？」
					PRINTFORMW 「私はゆっくり飲むのが好きなのよ」
				CASE 2
					PRINTFORML 「%CALLNAME:MASTER%、お代わりいる？」
					PRINTFORMDW 折角なので貰うことにした。
			ENDSELECT
		CASE 14
			;▼買い物［買い物を手伝う］
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「いや～助かったよ%CALLNAME:MASTER%」
					PRINTFORML 「キミのお陰でたくさん買って帰れそうだよ…♪」
					PRINTFORMDW 既に両腕が重いが、まだ何か買うつもりなのだろうか…
				CASE 1
					PRINTFORML 「ん～…人参はこっちの方が新鮮だな…」
					PRINTFORMDW 鈴瑚は熱心に野菜を吟味している。
				CASE 2
					PRINTFORML 「どうだった%CALLNAME:MASTER%？買えた？」
					PRINTFORML 「お～！流石、頼りになるね～♪」
					PRINTFORMDW フラフラになりながら、鈴瑚にタイムセールの戦利品を手渡した…
			ENDSELECT
		CASE 15
			;▼説教［様子をうかがう］
			;※神霊・蓬莱人は除く
			;TFLAG:193,-1
			;PRINTFORMW
		CASE 16
			;▼落とし穴［いたずらに付き合う］or［様子をうかがう］
			;※三月精・チルノ・クラウンピースのみ
			;それ以外は落ちる側
			;PRINTFORMW
		CASE 17
			;▼雪だるま作り［一緒に雪作り］
			;※冬の月のみ
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「ひ～！冷たい！」
					PRINTFORML 「やっぱり素手でやるのは無茶だったかな…？」
					PRINTFORMDW そりゃそうだ…
				CASE 1
					PRINTFORML 「お？%CALLNAME:MASTER%、雪うさぎ作ったんだ」
					PRINTFORML 「その耳が垂れてるの、もしかして私？あはは！そっくり♪」
					PRINTFORMDW 鈴瑚は嬉しそうに笑っている。
				CASE 2
					PRINTFORML 「う～ん……」
					PRINTFORMDL 鈴瑚と雪だるまを作ったが、出来に不満があるのだろうか？
					PRINTFORMW 「どうにかしてもう一個上に乗せて、串団子みたいに出来ないかな？」
			ENDSELECT
		CASE 18
			;▼炬燵でのんびり［炬燵でくつろぐ］
			;※冬の月のみ
			SELECTCASE RAND:3
				CASE 0
					CALL COLORMESSAGE("「やっぱ炬燵と言えば、コレだよね」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚と二人でミカンを食べた。
				CASE 1
					PRINTFORML 「……♪」
					PRINTFORMDW 鈴瑚が足で器用にくすぐってくる……！
				CASE 2
					PRINTFORML 「%CALLNAME:MASTER%…炬燵で寝ちゃダメだよ…風邪ひくよ…」
					PRINTFORMDW 鈴瑚は虚ろな目でウトウトしている…
			ENDSELECT
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;402,就寝
;TFLAG:193(0=通常 1=子供と一緒に川の字で寝る)
;==================================================
@M_KOJO_MESSAGE_COM_K108_402
;就寝にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K108_402_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_402_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SETCOLOR 0xEE9900
	IF CFLAG:睡眠

		PRINTFORML 「%CALLNAME:MASTER%～…食べちゃうぞ～…むにゃむにゃ…」
		PRINTFORMDW …寝ている間に食べられたりしないだろうか？
	ELSEIF CFLAG:MASTER:初期位置 == CFLAG:108:初期位置 && CFLAG:MASTER:現在位置 == CFLAG:108:初期位置
		;川の字で寝る
		IF TFLAG:193 == 1
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「%CHILDNAME:108:(TALENT:108:育児中)%、あんなにグズってたのにもう寝ちゃったよ」
					PRINTFORMDL 鈴瑚の隣で%CHILDNAME:108:(TALENT:108:育児中)%は幸せそうな顔で眠っている。
					CALL HPH_PRINT,@"「ふふ♪可愛いHPH…さて、私たちも寝ようか%CALLNAME:MASTER%」","W"
				CASE 1
					PRINTFORML 「%CHILDNAME:108:(TALENT:108:育児中)%～…おいで～…♪」
					PRINTFORMDL 夢の中で遊んでいるのだろうか…鈴瑚と%CHILDNAME:108:(TALENT:108:育児中)%が幸せそうな顔で眠っている。
					PRINTFORMDW 自分も同じ夢が見たい…そんな思いを抱きながら、目を閉じた。
				CASE 2
					PRINTFORML 「…ふふ♪二人ともよく寝てる…♪」
					CALL HPH_PRINT,@"「おやすみ…HPH…%CHILDNAME:108:(TALENT:108:育児中)%、%CALLNAME:MASTER%HPH」","W"
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				IF TALENT:恋人
					PRINTFORML 「…%CALLNAME:MASTER%…HPH…すぅ…すぅ…」
					PRINTFORMDW %CALLNAME:MASTER%の腕枕で幸せそうな寝顔を浮かべる鈴瑚を眺めながら、眠りについた。
				ELSEIF TALENT:恋慕
					PRINTFORML 「一緒に寝るのって…ちょっとドキドキするかも…」
					PRINTFORML 「―なんてね♪おやすみ、%CALLNAME:MASTER%」
					PRINTFORMDW 清蘭は布団を被って寝てしまった。
				ELSE
					PRINTFORML 「…もし私に悪戯したら…わかってるね、%CALLNAME:MASTER%？」
					PRINTFORMDW 大人しく寝ることにした…
				ENDIF
			CASE 1
				PRINTFORML 「―それでね……あら？%CALLNAME:MASTER%寝ちゃったのか…」
				PRINTFORMW 「ふふ…♪%CALLNAME:MASTER%おやすみ～……」
			CASE 2
				PRINTFORML 「…………。」
				PRINTFORMDW 鈴瑚は寝てしまったようだ。少し悪戯してやろう…
				PRINTFORML 「……%CALLNAME:MASTER%～？この手は何かな～？」
				PRINTFORMDW やっぱり、大人しく寝ることにしよう……
			ENDSELECT
		ENDIF
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「%CALLNAME:MASTER%眠そうだね？無理せず寝た方がいいよ？」
				PRINTFORML 「また明日会えばいいんだからさ…♪」
				PRINTFORMDW 鈴瑚の言葉に甘え、今日は寝ることにした。
			CASE 1
				PRINTFORML 「…%CALLNAME:MASTER%？お～い」
				PRINTFORML 「座ったまま寝てるよ…しょうがないなぁ」
				PRINTFORMW 「え～っと…%CALLNAME:MASTER%の布団は、たしかこっちに……」
			CASE 2
				PRINTFORML 「あ…%CALLNAME:MASTER%、寝るの？じゃあ、おやすみ」
				PRINTFORMDL 少し寂しそうに鈴瑚は帰っていった…
				PRINTFORMDL ―かと思いきや、玄関前で立ち止まって振り返った。
				CALL HPH_PRINT,@"「…明日も会おうね？兎は寂しいと死んじゃうんだから…HPH」","W"
		ENDSELECT
	;それ以外
	ELSE
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「歯磨きしてから寝なよ？おやすみ～」
			CASE 1
				PRINTFORMW 「おやすみ%CALLNAME:MASTER%。また明日」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;403,休憩
;CFLAG:TARGET:睡眠(1=TARGETが寝てる隣で休憩
;==================================================
@M_KOJO_MESSAGE_COM_K108_403
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_403_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_403_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	;睡眠フラグ
	ELSEIF CFLAG:睡眠
		PRINTFORML 「%CALLNAME:MASTER%…」
		PRINTFORML 「…美味しそう…♪」
		PRINTFORMDW 鈴瑚はどんな夢を見ているのだろう……
	;怒り
	ELSEIF CFLAG:318 == 1
		CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 気まずい空気の中、鈴瑚と一緒に休憩した…
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:4
			CASE 0
				CALL COLORMESSAGE("「…………♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚と一緒に団子を食べて休憩した。
			CASE 1
				CALL HPH_PRINT,@"「そうそう…♪そうやって優しく触ってね…HPH」","L"
				PRINTFORMDW 鈴瑚のウサ耳を毛づくろいした。
			CASE 2
				PRINTFORML 「ん？……被ってみる？」
				PRINTFORML 「ふふふっ…♪似合う似合う♪」
				PRINTFORMDW 鈴瑚の帽子を被らせてもらった。
			CASE 3
				PRINTFORML 「こうやってぼーっとしてると……つい…ウトウト…」
				PRINTFORML 「……Zzz」
				PRINTFORMDW 鈴瑚と一緒に少しだけ寝ることにした……
		ENDSELECT
	;それ以外
	ELSE
		SELECTCASE RAND:3
			CASE 0
				CALL COLORMESSAGE("「暇だね～……何か面白い話してよ」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW これは返答に困るタイプの振りだ……
			CASE 1
				CALL COLORMESSAGE("「…団子食べたいって？じゃあ、キミのお茶と交換ね」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚にお茶を淹れてあげる事にした。
			CASE 2
				PRINTFORML 「いいねぇ…この仕事の一切を捨てて、だらける感じ」
				PRINTFORML 「癖になりそうだよ……♪」
				PRINTFORMDW 癖になったらダメだろう……
		ENDSELECT
	ENDIF
ENDIF
;==================================================
;405,出掛ける(同行時デート
;条件が厄介なので、COMF405 出掛ける.ERBを参照のこと
;==================================================
@M_KOJO_MESSAGE_COM_K108_405
;出掛けるにTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K108_405_1
RETURN RESULT

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

@M_KOJO_MESSAGE_COM_K108_410_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:睡眠
		PRINTFORMDL 少しごみが気になったので掃除をすることにした。
		PRINTFORMDW 鈴瑚は疲れているのか、多少物音を立てても起きる気配は無かった。
	ELSEIF FLAG:時間停止
		PRINTFORMDW 静止した時間の中で掃除をした。能力の有効活用というやつだ。
	ELSEIF CFLAG:108:诶嘿嘿
		PRINTFORML （どうせ汚れるんだから、終わってからすればいいのに…）
		PRINTFORMDW 鈴瑚は不満そうな顔をしている……
	;一緒に掃除
	ELSEIF TFLAG:193 == 1
		;ブチギレ
		IF CFLAG:318 == 1
			PRINTFORML 「…………。」
			PRINTFORMDW 鈴瑚と一言も会話せずに掃除をした…
		;汚れ高
		IF TFLAG:194 >= 3
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「うへぇ……汚れすぎでしょ…ホントに私もやらなきゃ駄目？」
					PRINTFORML 「…わかったよ。やればいいんでしょ、やれば」
					PRINTFORMDW 鈴瑚は渋々掃除を手伝ってくれた。
				CASE 1
					PRINTFORML 「これは酷いね。穢れがたっぷり溜まってそうだ」
					PRINTFORML 「…それじゃあ%CALLNAME:MASTER%、頑張っ―」
					PRINTFORMDW 逃げようとする鈴瑚の肩を掴み、掃除を手伝ってもらった。
				CASE 2
					PRINTFORML 「…仕方ない、私も手伝うよ」
					PRINTFORMW 「こんなに汚れてちゃ、団子も不味くなるからね」
				ENDSELECT
			ENDIF
		;汚れ中以下
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%～！もうこれ位でいいんじゃないの？」
					PRINTFORMDW 鈴瑚は早く掃除を切り上げたいようだ…
				CASE 1
					CALL COLORMESSAGE("「…あっ」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					SETCOLOR 0xEE9900
					PRINTFORML 「いやー…休憩してただけだよ？これ食べたら再開するからさ…」
					PRINTFORMDW 目を離した隙に、鈴瑚は団子を食べていた…
				CASE 2
					PRINTFORML 「これも団子を美味しく食べるため…我慢我慢…」
					PRINTFORMDW 鈴瑚に掃除を手伝ってもらった。
			ENDSELECT
		ENDIF
	;見てるだけ
	ELSE
		IF CFLAG:318 == 1
			CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 鈴瑚は団子を食べながら、遠巻きにこちらを見ている…
		;汚れ高
		IF TFLAG:194 >= 3
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「私も手伝うの？いやぁ～…それはちょっと…手が汚れるし…」
					PRINTFORML 「う…！…あーわかったよ！やればいいんでしょ！」
					PRINTFORMDW 鈴瑚は折れたのか、掃除を手伝ってくれるようだ。
				CASE 1
					PRINTFORML 「しっかし…普通ここまで汚れるかね？」
					PRINTFORML 「いつもは清蘭とかが掃除してくれてる筈なんだけど……」
					PRINTFORMDW 鈴瑚は唸りながら考えを巡らせている。できれば手伝って欲しい…
				CASE 2
					PRINTFORML （汚れすぎてて近づくのも嫌になるのに…よくやるよ%CALLNAME:MASTER%…）
					CALL COLORMESSAGE("（終わったら団子でもご馳走してあげよう…）", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚はジッとこちらを見ている。
				ENDSELECT
			ENDIF
		;汚れ中以下
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「何もキミ自ら掃除しなくても…」
					PRINTFORMDW 鈴瑚は掃除をしている%CALLNAME:MASTER%を眺めている。
				CASE 1
					CALL COLORMESSAGE("「団子は食べこぼしが出ないから、安心して食べられるね」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					CALL COLORMESSAGE("「大丈夫。キミの掃除の邪魔はしないよ」", C_ORANGE, 0, 0)
					PRINTFORML MGMG
					PRINTFORMDW どちらかと言えば手伝って欲しい…
				CASE 2
					PRINTFORML 「自分から掃除なんて偉いね、%CALLNAME:MASTER%」
					PRINTFORMW 「…もしかして、掃除が趣味だったりする？」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;411,戦闘訓練
;TFLAG:194(3=夏の昼間 2=ヤバい天気 1=悪天候 0=屋内or通常天気
;==================================================
@M_KOJO_MESSAGE_COM_K108_411
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_411_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_411_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FIRSTTIME(SELECTCOM)
		IF ABL:MASTER:戦闘能力 >= 6
			PRINTFORML 「%CALLNAME:MASTER%…キミの強さは、明らかに人間のそれじゃない…」
			PRINTFORML 「キミは一体何者なんだ…？」
			PRINTFORMDW "普通の人間だ"と返した。
		ELSEIF ABL:MASTER:戦闘能力 >= 3
			PRINTFORML 「訓練に付き合って欲しいって？キミの強さなら訓練なんて必要ないと思うけど…」
			PRINTFORML 「まあ、出来る限り協力するよ」
			PRINTFORMDW 鈴瑚と一緒に訓練をした。
		ELSEIF ABL:MASTER:戦闘能力 <= 2
			PRINTFORML 「訓練に付き合って欲しいって？う～ん…私そういうの、ガラじゃないんだけど…」
			PRINTFORML 「幻想郷は血の気が多いのもいるし、調査対象のキミに死なれても困るからね…わかった。協力するよ」
			PRINTFORMDW 鈴瑚と一緒に訓練をした。
		ENDIF
	ELSEIF TFLAG:194 == 3
		PRINTFORML 「%CALLNAME:MASTER%。そこまで」
		PRINTFORML 「脱水症状起こしかけてる。これ飲んで、向こうで休憩してきなよ」
		PRINTFORMDW 夢中で訓練していて気づかなかったようだ…鈴瑚に礼を言い、少し休憩した。
	ELSEIF TFLAG:194 == 1 || TFLAG:194 == 2
		PRINTFORML 「%CALLNAME:MASTER%の奴…"自分を虐めれば更に強くなる"とか、馬鹿な事考えてなきゃいいけど……」
		PRINTFORMDW 悪天候の中、鈴瑚に見守られながら特訓した。
	ELSE
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「%CALLNAME:MASTER%、あんまり端の方で縮こまってると逃げ場が無くなるよ」
				PRINTFORMW 「視野を広げて、安全地帯を見極めるんだ」
			CASE 1
				PRINTFORML 「私の弾幕、丸くて団子みたいでしょ？」
				PRINTFORMW 「―食べてみる？なんてね♪」
			CASE 2
				PRINTFORML 「たまには高速移動で大きく躱すことも大切だよ」
				PRINTFORMW 「掠って得点を稼ぐよりも、まず勝つことが大事なんだから」
			CASE 3
				PRINTFORML 「"初見で避けるのは無理な弾幕が多すぎる"って？…まあ、気持ちはわかるけど…」
				PRINTFORML 「こればっかりは慣れるしかないよ。それこそ何度も失敗して覚え―」
				PRINTFORML （……ん？そういえばあの時の鈴仙達、まるで"何度も見てきた"かのように攻撃を避けていたような…）
				PRINTFORMDW 鈴瑚は急に黙り込んで考え事をし始めた……
			CASE 4
				IF ABL:MASTER:戦闘能力 >= 3
					PRINTFORML 「%CALLNAME:MASTER%、すっかり強くなったね。もう私のアドバイスは必要なさそうだ」
					PRINTFORMW 「練習相手なら、いくらでも付き合うよ」
				ELSEIF ABL:MASTER:戦闘能力 == 2
					PRINTFORML 「%CALLNAME:MASTER%、結構強くなってきたんじゃない？」
					PRINTFORML 「ちょっと私と手合わせしてみる？」
					PRINTFORMDW 鈴瑚と勝負してみようか……
				ELSE
					PRINTFORML 「%CALLNAME:MASTER%。焦らなくても、キミは着実に強くなってるよ」
					PRINTFORMW 「こういうのは、続けることが大事なんだから」
				ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;412,勉強
;ABL:教養(ABL:MASTER:教養より大=MASTERが教えてもらう ABL:MASTER:教養より小=TARGETが教えてもらう
;==================================================
@M_KOJO_MESSAGE_COM_K108_412
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_412_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_412_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE RAND:5
		CASE 0
			PRINTFORML 「%CALLNAME:MASTER%がサボらないように見ててあげるよ」
			PRINTFORMDW 鈴瑚に見られながら勉強した。
		CASE 1
			PRINTFORML 「%CALLNAME:MASTER%頑張ってるね～。団子食べる？」
			PRINTFORMDW 休憩も兼ねて、鈴瑚の団子をご馳走になった。
		CASE 2
			PRINTFORML 「…サボってないよ。自主的に休憩中」
			CALL COLORMESSAGE("「私の脳が、糖分を摂れって訴えかけてくるからさ……」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 鈴瑚は勉強の手を止め、団子を食べている……
		CASE 3
			PRINTFORML 「自主的に勉強なんて偉いね、%CALLNAME:MASTER%」
			PRINTFORML 「…よし。暇だから私も付き合うよ」
			PRINTFORMDW 鈴瑚と二人で勉強した。
		CASE 4
			IF ABL:MASTER:教養 <= 0
				PRINTFORML 「"わからない所がある"？……ここは、この公式を使って―」
				PRINTFORMDW 鈴瑚に教えてもらいながら勉強した。
			ELSE
				PRINTFORML 「そうそう。そこは公式を応用して……」
				PRINTFORML 「%CALLNAME:MASTER%、勉強の成果出てきたんじゃない？頑張った甲斐あったね」
				PRINTFORMDW 鈴瑚に褒められて、少し嬉しくなった……！
			ENDIF
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;413,料理
;TFLAG:194(100以上=禁断のメニュー 3=デザート 2=主食 1=軽食
;==================================================
@M_KOJO_MESSAGE_COM_K108_413
;TFLAG:194が100以上の場合のみ
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_413_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_413_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
;口上の表示タイミングが料理完成後なので、調理終了後の感想っぽくしました
	;睡眠フラグ
	IF CFLAG:睡眠
	;怒り
	ELSEIF CFLAG:318 == 1
		PRINTFORMDW 今日の鈴瑚は機嫌が悪いようだ…調理中、一度も会話が無かった…
	ELSEIF DISHNAME == "鈴瑚印の団子"
		PRINTFORML 「見た目は…まぁ合格かな。問題は味だ」
		PRINTFORMDW 鈴瑚はとても真剣な表情をしている……
	ELSEIF DISHNAME == "ストロベリーダンゴ"
		PRINTFORML 「兎符『ストロベリーダンゴ』！」
		PRINTFORML 「…に使われてる団子がこちらになります」
		PRINTFORMDW 衝撃の事実を聞いた気がする……
	ELSEIF TALENT:恋人
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「あ～お腹空いた！早く食べよ%CALLNAME:MASTER%♪」
		CASE 1
			CALL HPH_PRINT,@" 「隠し味は愛情HPH…なんてね♪」","W"
		CASE 2
			CALL HPH_PRINT,@" 「冷めないうちに食べよ♪%CALLNAME:MASTER%HPH」","L"
			PRINTFORMDW どこか楽しそうな鈴瑚と一緒に、出来立ての料理をテーブルへ運んだ。
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
		CASE 0
			;ボトムズのOVA
			PRINTFORMDL 特に問題なく料理は完成した。…が、鈴瑚は不満そうな顔をしている。
			PRINTFORMW 「アテにならない食材がざっと50はあるからね」
		CASE 1
			PRINTFORML 「完成～！それじゃ、冷めないうちに食べよっか♪」
			PRINTFORMDW 付け合わせ（？）に添えられた団子が、凄まじい存在感を放っている…
		CASE 2
			PRINTFORML 「どうだい%CALLNAME:MASTER%？私の料理の腕は」
			PRINTFORML 「団子以外も中々の物でしょ？」
			PRINTFORMDW たしかに美味しそうだ。%CALLNAME:MASTER%の腹の虫が鳴った。
		ENDSELECT
	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_K108_414
;成否判定
;TFLAG:192(-2=コマンド終了(非TARGET時強制失敗)、-1＝強制失敗、0=COM依存(非TARGET時強制成功)、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_414
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_414_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_414_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠フラグ
	IF CFLAG:睡眠
		PRINTFORML
		RETURN 1
	;怒り
	ELSEIF CFLAG:318 == 1
		PRINTFORML 「…いただきます」
		PRINTFORMDW 重苦しい空気の中、鈴瑚と食事をした…
	ELSEIF DISHNAME == "鈴瑚印の団子"
		PRINTFORML 「%CALLNAME:MASTER%。わかってるだろうけど、私は団子に対して一切の妥協はしないからね…いただきます」
		PRINTFORMDW 鈴瑚が団子を口へ運ぶ……緊張で喉が渇いてきた…
		;まずい
		IF CFLAG:318 == -1
			PRINTFORML 「…………。」
			PRINTFORMDW 鈴瑚は無言で首を横に振った…
		;うまい
		ELSEIF CFLAG:318 == 0
			PRINTFORML 「…美味しい。合格だよ%CALLNAME:MASTER%」
			PRINTFORMDW %CALLNAME:MASTER%はホッと胸を撫でおろした……
		;超うまい
		ELSEIF CFLAG:318 == 1
			PRINTFORML 「…美味しい！上手く出来たじゃない！%CALLNAME:MASTER%♪」
			PRINTFORMDW 顔を綻ばせる鈴瑚を見て、緊張が一気に解けた……
		ENDIF
	;"||"が使えないので…
	ELSEIF DISHNAME == "ストロベリーダンゴ"
		PRINTFORML 「%CALLNAME:MASTER%。わかってるだろうけど、私は団子に対して一切の妥協はしないからね…いただきます」
		PRINTFORMDW 鈴瑚が団子を口へ運ぶ……緊張で喉が渇いてきた…
		;まずい
		IF CFLAG:318 == -1
			PRINTFORML 「…………。」
			PRINTFORMDW 鈴瑚は無言で首を横に振った…
		;うまい
		ELSEIF CFLAG:318 == 0
			PRINTFORML 「…美味しい。合格だよ%CALLNAME:MASTER%」
			PRINTFORMDW %CALLNAME:MASTER%はホッと胸を撫でおろした……
		;超うまい
		ELSEIF CFLAG:318 == 1
			PRINTFORML 「…美味しい！上手く出来たじゃない！%CALLNAME:MASTER%♪」
			PRINTFORMDW 顔を綻ばせる鈴瑚を見て、緊張が一気に解けた……
		ENDIF
	ELSE
		PRINTFORMW 「よ～しそれじゃ…♪いただきま～す！」
		;まずい
		IF CFLAG:318 == -1
			CALL COLORMESSAGE("（…あれ？なんか思ってた味と違う……）", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 鈴瑚は顔をしかめている……
		;うまい
		ELSEIF CFLAG:318 == 0
			CALL COLORMESSAGE("「…うんうん♪」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 鈴瑚は頷いている。料理は成功のようだ。
		;超うまい
		ELSEIF CFLAG:318 == 1
			CALL COLORMESSAGE("「―うん！美味しい♪私も手伝った甲斐があったよ…♪」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 鈴瑚と楽しい食事の時間をすごした。料理は大成功の様だ。
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;415,食事をふるまう
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TCVAR:MASTER:308(bit0=濃い味 bit1=薄味 bit3=激辛 bit4=激甘 bit5=わさび bit6=激酸っぱ
;==================================================
@M_KOJO_SUCCESS_COM_K108_415
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_415
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_415_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_415_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠フラグ
	IF CFLAG:睡眠
		PRINTFORML
		RETURN 1
	;怒り
	ELSEIF CFLAG:318 == 1
		PRINTFORML 「…いただきます」
		PRINTFORMDW 重苦しい空気の中、鈴瑚と食事をした…
	ELSEIF DISHNAME == "鈴瑚印の団子"
		PRINTFORML 「%CALLNAME:MASTER%。わかってるだろうけど、私は団子に対して一切の妥協はしないからね…いただきます」
		PRINTFORMDW 鈴瑚が団子を口へ運ぶ……緊張で喉が渇いてきた…
		;まずい
		IF CFLAG:318 == -1
			PRINTFORML 「…………。」
			PRINTFORMDW 鈴瑚は無言で首を横に振った…
		;うまい
		ELSEIF CFLAG:318 == 0
			PRINTFORML 「…美味しい。合格だよ%CALLNAME:MASTER%」
			PRINTFORMDW %CALLNAME:MASTER%はホッと胸を撫でおろした……
		;超うまい
		ELSEIF CFLAG:318 == 1
			PRINTFORML 「…美味しい！上手く出来たじゃない！%CALLNAME:MASTER%♪」
			PRINTFORMDW 顔を綻ばせる鈴瑚を見て、緊張が一気に解けた……
		ENDIF
	ELSEIF DISHNAME == "ストロベリーダンゴ"
		PRINTFORML 「%CALLNAME:MASTER%。わかってるだろうけど、私は団子に対して一切の妥協はしないからね…いただきます」
		PRINTFORMDW 鈴瑚が団子を口へ運ぶ……緊張で喉が渇いてきた…
		;まずい
		IF CFLAG:318 == -1
			PRINTFORML 「…………。」
			PRINTFORMDW 鈴瑚は無言で首を横に振った…
		;うまい
		ELSEIF CFLAG:318 == 0
			PRINTFORML 「…美味しい。合格だよ%CALLNAME:MASTER%」
			PRINTFORMDW %CALLNAME:MASTER%はホッと胸を撫でおろした……
		;超うまい
		ELSEIF CFLAG:318 == 1
			PRINTFORML 「…美味しい！上手く出来たじゃない！%CALLNAME:MASTER%♪」
			PRINTFORMDW 顔を綻ばせる鈴瑚を見て、緊張が一気に解けた……
		ENDIF
	ELSE
		CALL HPH_PRINT,@" 「はい%CALLNAME:MASTER%♪あ～ん…HPH」","L"
		PRINTFORML 「―なんてね♪あむっ」
		PRINTFORMDW %CALLNAME:MASTER%の口は、虚しく霞を食べた……
		;まずい
		IF CFLAG:318 == -1
			PRINTFORML 「―ん゛っ！？ゲホッ！ゲホッ…！」
			PRINTFORMDW 鈴瑚は盛大にむせた……
		;うまい
		ELSEIF CFLAG:318 == 0
			CALL COLORMESSAGE("「…うんうん♪」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 鈴瑚は頷いている。料理は成功のようだ。
		;超うまい
		ELSEIF CFLAG:318 == 1
			CALL COLORMESSAGE("「―うん！美味しい♪ほら、キミも！あ～ん♪」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 今度こそ、鈴瑚に料理を食べさせてもらった。とても美味しかった。
		ENDIF
	ENDIF
ENDIF

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

@M_KOJO_MESSAGE_COM_K108_416
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_416_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_416_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TFLAG:193 == 1
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「%CALLNAME:MASTER%上手ね～♪他にも何か聞かせてよ」
				PRINTFORMDW 鈴瑚は演奏を気に入ってくれたようだ。
			CASE 1
				PRINTFORML 「良かったよ%CALLNAME:MASTER%。これはおひねり」
				PRINTFORMDW 鈴瑚に串団子を一本貰った。
		ENDSELECT
	ELSEIF TFLAG:193 == 0
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「%CALLNAME:MASTER%やるじゃん。上手いわね」
				PRINTFORMDW 鈴瑚は軽い拍手をしてくれた。
			CASE 1
				CALL COLORMESSAGE("「……♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚は足でリズムを刻んでいる。
		ENDSELECT
	ELSE
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「う～ん…次はもうちょっと上手くなってから聞かせて欲しいかな…」
				PRINTFORMDW 鈴瑚は苦笑している……
			CASE 1
				PRINTFORML 「ド素人の私に言われたくはないだろうけど…」
				PRINTFORML 「もうちょっと練習した方がいいんじゃないかな？」
				PRINTFORMDW 鈴瑚に駄目出しされてしまった……
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;417,昼寝をする
;TFLAG:193(0=MASTERを抱き枕にして寝ている 1=MASTERの膝を枕にして寝ている 2=寝顔にキスされた 3=寝顔をのぞき込まれた 4=MASTERが膝枕されてる 5=秘処orペニス揉み
;CFLAG:陪睡中(1=一緒に寝ている
;==================================================
@M_KOJO_MESSAGE_COM_K108_417
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_417_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_417_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠フラグ
	IF CFLAG:睡眠
		PRINTFORML
		RETURN 1
	ELSEIF TALENT:恋人
		IF CFLAG:TARGET:陪睡中
			CALL HPH_PRINT,@"「%CALLNAME:MASTER%～HPH食べちゃいたい～…むにゃ…」","L"
			PRINTFORMDW 鈴瑚はどんな夢を見ているのだろう…？
		ELSE
			SELECTCASE TFLAG:193
				CASE 0
					PRINTFORMDL 目を覚ますと、鈴瑚が抱きついたまま寝ていた。
					PRINTFORML 「んん……うん？…おはよ%CALLNAME:MASTER%」
					PRINTFORMW 「いや～…キミ、抱き心地良さそうだったからつい…♪」
				CASE 1
					PRINTFORMDL 足に圧迫感を感じる…どうやら鈴瑚が膝の上で寝ているようだ。
					PRINTFORML 「ん～…%CALLNAME:MASTER%……」
					CALL HPH_PRINT,@"「―好きだよ…HPH」","L"
					PRINTFORMDW …もう少し、このままでいる事にした。
				CASE 2
					PRINTFORMDL 唇に何か柔らかい感触が当たって目を覚ました。
					CALL HPH_PRINT,@" 「ん…HPH…おはよ。%CALLNAME:MASTER%」","L"
					PRINTFORMW 「お姫様が王子をキスで起こすってのも、有りだと思うんだよね。私は」
				CASE 3
					PRINTFORMDL 目を開けると、目の前に鈴瑚がいた。
					PRINTFORML 「…あ、起こしちゃった？」
					PRINTFORMW 「ゴメンゴメン♪キミの寝顔が可愛かったからさ…♪」
				CASE 4
					PRINTFORML 「ん……あ、%CALLNAME:MASTER%……おはよ…」
					PRINTFORML 「ふわあぁぁ…！…私もつられて寝ちゃってたよ…♪」
					PRINTFORMDW 鈴瑚が膝枕をしていてくれたようだ。礼を言って起き上がり、身体を軽く解した。
				CASE 5
					PRINTFORMDL 違和感を感じて目を覚ますと、鈴瑚が股間をまさぐっていた…
					PRINTFORML 「あ、おはよ～%CALLNAME:MASTER%♪なんか寝言で私の名前呼んでたよ？」
					CALL HPH_PRINT,@" 「ねぇ……夢の世界の私と、ナニしてたの？HPH」","L"
					PRINTFORMDW 鈴瑚は股間を触る手を止めようとしない……
			ENDSELECT
		ENDIF
	ELSE
		IF CFLAG:陪睡中
			PRINTFORML 「…だから…枕は買わないっての…！」
			PRINTFORMDW 鈴瑚はうなされている…起こしてあげた方がいいのだろうか…？
		ELSE
			SELECTCASE TFLAG:193
				CASE 0
					PRINTFORMDL 目を覚ますと、鈴瑚が抱きついたまま寝ていた。
					PRINTFORML 「ん……あれ？…寝ちゃってたのか…」
					PRINTFORML 「―あっ！？…あはは…おはよう%CALLNAME:MASTER%…」
					PRINTFORMDW 鈴瑚はそそくさと%CALLNAME:MASTER%から離れた…
				CASE 1
					PRINTFORMDL 足に圧迫感を感じる…どうやら鈴瑚が膝の上で寝ているようだ。
					PRINTFORML 「Zzz……う～ん…」
					PRINTFORML 「―あ痛っ！～～～ッ！！」
					PRINTFORMDW 鈴瑚は膝からずり落ちて頭をぶつけてしまった……
				CASE 2
					PRINTFORMDL 唇に何か柔らかい感触が当たって目を覚ました。
					PRINTFORML 「あ…おはよう%CALLNAME:MASTER%。よく眠れた？」
					PRINTFORML 「ん？…別に？何もなかったよ」
					PRINTFORMDW 素っ気無い返事をする鈴瑚の顔は、少し赤くなっていた…
				CASE 3
					IF TALENT:恋慕
						PRINTFORML （こんな時にするのは卑怯かな…？）
						PRINTFORMW （でも…%CALLNAME:MASTER%寝てるし、きっと気づかない―）
					ELSE
						PRINTFORMW （へぇ…こうやって見ると、%CALLNAME:MASTER%って以外と―）
					ENDIF
					PRINTFORML 「うわっ！？びっくりした～…起きてるなら言ってよ！」
					PRINTFORMDW 何故か鈴瑚に怒られた……
				CASE 4
					IF TALENT:恋慕
						PRINTFORML 「あ…！えっと、その……おはよう…」
						PRINTFORML 「…嫌だった？私の膝枕…」
						PRINTFORMDW 鈴瑚に礼を言うと、はにかむ様にほほ笑んだ。
					ELSE
						PRINTFORML 「%CALLNAME:MASTER%…おはよう…！起きたなら早く降りて…！」
						PRINTFORML 「足が痺れちゃって…膝枕って以外と大変なんだね……」
						PRINTFORMDW 鈴瑚が膝枕をしていてくれたようだ…礼を言い、急いで膝から降りた。
					ENDIF
				CASE 5
					PRINTFORML （うわ…！熱…！寝てる間でも、こんな風になるんだ…）
					PRINTFORMW 「―あっ！やば…！」
					PRINTFORMDW …………。
					PRINTFORML 「%CALLNAME:MASTER%おはよう…！その…よく眠れた？」
					PRINTFORMDW 何か股間に違和感を感じたが、気のせいだったようだ。
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;421,願掛けする
;条件が複雑なので、COMF421 願掛け.ERBおよび、EVENT_MESSAGE_COM400.ERBの願掛けするの項を参照のこと
;==================================================
@M_KOJO_MESSAGE_COM_K108_421
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_421_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_421_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW 「えーっと…二礼二拍手一礼っと……」
ENDIF
RETURN 1

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

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

@M_KOJO_MESSAGE_COM_K108_431_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE RAND:5
		CASE 0
			CALL HPH_PRINT,@"「ふぅ…♪気持ちいい…HPH」","L"
			PRINTFORMDW 鈴瑚と肩までお湯に浸かってくつろいだ。
		CASE 1
			PRINTFORML 「……ん～♪ふんふん♪ふ～ん♪」
			PRINTFORML 「―あっ…！…いいじゃない！偶には……！」
			PRINTFORMDW 鈴瑚は鼻歌を聞かれ、恥ずかしそうだ。
		CASE 2
			PRINTFORML （%CALLNAME:MASTER%……♪隙有りっ！）
			PRINTFORMDW 鈴瑚の手から、%CALLNAME:MASTER%の顔目掛けて勢い良く水鉄砲が放たれた！
			;あなたの戦闘能力で分岐
			IF ABL:MASTER:戦闘能力 >= 5
				PRINTFORMDL しかし%CALLNAME:MASTER%は、目にも止まらぬ速さで水鉄砲を発射して鈴瑚の水鉄砲を相殺した！
				PRINTFORML 「―うえぇっ！？」
				PRINTFORMDW 鈴瑚は目を見開いて驚いている。
			ELSEIF ABL:MASTER:戦闘能力 <= 1
				PRINTFORMDL %CALLNAME:MASTER%の顔に水鉄砲が直撃し、鼻に水が入ってしまった…
				PRINTFORML 「あっはははは！ゴメンゴメン！そんな綺麗に当たるとは思ってなかったよ…♪」
				PRINTFORMDW 鈴瑚は腹を抱えて大笑いしている…
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%はギリギリのところで水鉄砲を回避した。
				PRINTFORML 「ふふ…♪よく躱したね%CALLNAME:MASTER%」
				PRINTFORMDW 鈴瑚は何処か楽しそうだ。
			ENDIF
		CASE 3
			CALL HPH_PRINT,@"「お風呂上りに食べる団子…！これがまた最高なんだよねぇ…HPH」","L"
			PRINTFORMDW 鈴瑚は嬉しそうに顔を綻ばせている。
		CASE 4
			CALL HPH_PRINT,@"「んん～っ…！ふぅ～…お風呂はやっぱり最高だね…HPH」","L"
			PRINTFORMDL 鈴瑚は伸びをしながら入浴を楽しんでいる。
			PRINTFORMDW …水面に浮いている丸い果実を反射的に見てしまい、慌てて目を逸らした。
			IF TALENT:恋人
				PRINTFORML 「…%CALLNAME:MASTER%～♪今どこ見てたのかな～？」
				PRINTFORMDW 鈴瑚はニヤニヤと笑っている。気づかれていたようだ…
			ELSE
				PRINTFORML （%CALLNAME:MASTER%…今、絶対私の胸見てたよね……）
				PRINTFORMDW 意識すればするほど、気まずくなってくる……
			ENDIF
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;432,お風呂でくつろぐ
;表示タイミングは入浴後なので、お風呂上がりでの
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;==================================================
@M_KOJO_MESSAGE_COM_K108_432
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_432_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_432_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TFLAG:209 == 1
		SELECTCASE RAND:3
			CASE 0
				;畳が敷いてあるあのスペース大好き
				PRINTFORML 「%CALLNAME:MASTER%……わかってるだろうけど、寝ちゃ…駄目だよ…」
				PRINTFORML 「"目を…閉じるだけ"…？…なら……いい……」
				PRINTFORMDW 休憩スペースで鈴瑚と並んで寝転んだ……
			CASE 1
				PRINTFORML 「お待たせ～！ふ～、いいお湯だった…♪」
				PRINTFORMDW 鈴瑚が風呂から上がってきた。顔が上気していて、とても魅力的だ。
				IF TALENT:恋人
					CALL HPH_PRINT,@"「ふふ…HPHどう？惚れ直した？」","L"
					PRINTFORMDW 鈴瑚と腕を組み、デートを再開した。
				ELSEIF TALENT:恋慕
					PRINTFORML 「そ、そんなにジッと見られたら恥ずかしいよ…！」
					PRINTFORMDW 鈴瑚は更に顔が赤くなった……
				ELSE
					PRINTFORML 「さ～て…！サッパリしたし、そろそろ行こうか♪」
					PRINTFORMDW 鈴瑚とのデートを再開した。
				ENDIF
			CASE 2
				PRINTFORMW 「…%CALLNAME:MASTER%、用意はいい？…せーのっ！」
				PRINTFORML 「ごくごくっ……っぷはぁ――っ！」
				PRINTFORMDW 鈴瑚と風呂上がりの牛乳を堪能した。
			CASE 3
				PRINTFORML 「%CALLNAME:MASTER%ー♪」
				PRINTFORMDL 先に上がっていたらしい鈴瑚が、ひらひらと手を振っている。どうやら手に何か持っているようだ。
				CALL COLORMESSAGE("「この温泉卵、すっごく美味しいよ！キミもどう？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
		ENDSELECT
	ELSEIF TFLAG:211 == 1
		SELECTCASE RAND:3
			CASE 0
				CALL COLORMESSAGE("（ここ、値段の割にはイマイチな温泉だったな…）", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚はあまり気に入らなかったようだ…
			CASE 1
				PRINTFORML 「ねえ…温泉入ってる時、変な視線感じなかった？」
				PRINTFORMW 「う～ん…私の勘違いかな…？」
			CASE 2
				PRINTFORML 「流石は地底だね…お酒売ってるじゃない」
				PRINTFORML 「…どう？一杯ひっかけてく？」
				PRINTFORMDW 折角なので、一杯だけ付き合うことにした。
				BASE:酒気 += 50
				BASE:MASTER:酒気 += 50
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;436,読書
;TFLAG:193(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=薄い高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_MESSAGE_COM_K108_436
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_436_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_436_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
	;睡眠フラグ
	ELSEIF CFLAG:睡眠
		PRINTFORMDL 疲れていたのか、鈴瑚は先に眠ってしまったようだ。
		PRINTFORMDW 睡魔が訪れるまで%CALLNAME:MASTER%は読書をすることにした。
	;ブチギレ
	ELSEIF CFLAG:318 == 1
		PRINTFORMDW いたたまれなくなった%CALLNAME:MASTER%は読書をして気を紛らわせることにした…
	ELSEIF TFLAG:193
		SELECTCASE TFLAG:193
			CASE 6,7,8;エッチな本
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「よく公共の場で、堂々とそんな本読めるね…」
						PRINTFORMDW エッチな本を読みふけっている所を鈴瑚に見られた…
					CASE 1
						PRINTFORML （%CALLNAME:MASTER%、あんなに熱心に何を読んで―）
						PRINTFORML 「…………。」
						PRINTFORMDW 鈴瑚は何故かこちらから距離を置いている……
					CASE 2
						PRINTFORML 「……キミって、そういう本好きなの？」
						PRINTFORMDW 薄い本を読みふけっていた所をバッチリ見られた……
				ENDSELECT
			CASEELSE
				PRINTFORML 「…………。」
				PRINTFORMDW 鈴瑚は静かに読書をしている。ちらりと横目で本の内容を見た。
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML （この店の料理、美味しそうだな…今度行ってみるか）
						PRINTFORMDW 鈴瑚はグルメ雑誌を読んでいるようだ。
					CASE 1
						PRINTFORML （誰が犯人だ…？一番怪しいのはコイツだけど、露骨すぎるから多分違うだろうし…）
						PRINTFORMDW 鈴瑚は推理小説を読んでいるようだ。
					CASE 2
						;鈴瑚ォ
						PRINTFORML （ようこそ……『団子の世界へ』…………）
						PRINTFORML （な～んて…一度言ってみたいけど、みんな知らないだろうしなぁ……）
						PRINTFORMDW 鈴瑚は漫画を読んでいるようだ。
				ENDSELECT
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;440,待つ
;==================================================
@M_KOJO_MESSAGE_COM_K108_440
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_440_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;441,授業を受ける(慧音専用
;==================================================
@M_KOJO_MESSAGE_COM_K108_441
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_441_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;442,伐採する（未実装
;==================================================
@M_KOJO_MESSAGE_COM_K108_442
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_442_1
RETURN RESULT

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

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

@M_KOJO_MESSAGE_COM_K108_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_K108_448
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_448_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_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_K108_449
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_449_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_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_K108_483
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_483_1
RETURN RESULT

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

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

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

ENDIF
RETURN 1

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

@M_KOJO_MESSAGE_COM_K108_490_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
SETCOLOR 0xEE9900
	IF TFLAG:194 == 0
		PRINTFORMW 「…キミ、よくそんな変な色の薬飲めるね……」
	ELSEIF TFLAG:194 == 1
		PRINTFORML 「ごくっ……」
		PRINTFORMW 「―まっず！　団子で口直ししよ……」
	ENDIF
ENDIF
RETURN 1

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

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

ENDIF
RETURN 1

;==================================================
;601,デートスキンシップ
;==================================================
@M_KOJO_MESSAGE_COM_K108_601
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_601_1
RETURN RESULT

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

ENDIF
RETURN 1

;==================================================
;602,デートキス
;==================================================
@M_KOJO_MESSAGE_COM_K108_602
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_602_1
RETURN RESULT

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

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

@M_KOJO_MESSAGE_COM_K108_603
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_603_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_603_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;怒り
	IF CFLAG:318 == 1
		CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 鈴瑚に冷たい目で睨まれた…
	ELSEIF TALENT:恋人
		SELECTCASE RAND:3
			CASE 0
				CALL HPH_PRINT,@" 「よっ、と…さあ行こうか%CALLNAME:MASTER%HPH」","L"
				PRINTFORMDW 鈴瑚と腕を組んで歩き出した。
			CASE 1
				CALL HPH_PRINT,@" 「ふふっ…HPHこれ、好き…HPH」","L"
				PRINTFORMDW 鈴瑚とお互いの指を絡ませつつ手をつないだ。所謂、"恋人つなぎ"だ。
			CASE 2
				CALL HPH_PRINT,@" 「%CALLNAME:MASTER%…HPH」","L"
				PRINTFORMDW 鈴瑚の手を繋ぐと、キュッと握り返してきてくれた。
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「%CALLNAME:MASTER%…えっと、その…手を…」
				CALL HPH_PRINT,@" 「あっ………HPH」","L"
				PRINTFORMDW 鈴瑚と手を繋いだ。何だか少し嬉しそうだ。
			CASE 1
				PRINTFORML 「―っ！？」
				PRINTFORMDL 鈴瑚と手を繋ぐと、驚いたように飛び上がった……
				PRINTFORMW 「き、急に手繋がないでよ…！びっくりするじゃない…！」
			CASE 2
				PRINTFORML （…私の手、汚れてないよね？…よし、大丈夫）
				PRINTFORML 「あ…！お待たせ%CALLNAME:MASTER%…！はい♪」
				PRINTFORMDW 一瞬何か葛藤があったようだが、鈴瑚と手を繋いだ。
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「ん。ちょっと待ってね…はい♪」
				PRINTFORMDW 鈴瑚は串団子を持っていた手を持ち替え、%CALLNAME:MASTER%と手を繋いだ。
			CASE 1
				PRINTFORML 「ふふっ…♪ちょっと照れくさいね…」
				PRINTFORMDW 鈴瑚は少し恥ずかしそうに手を繋いできた。
			CASE 2
				PRINTFORML 「じゃあ行こうか%CALLNAME:MASTER%♪」
				PRINTFORMDW 鈴瑚の手をしっかりと握った。
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				CALL COLORMESSAGE("「手繋ぎたいの？…まあ、いいけど」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚と手を繋いだ。
			CASE 1
				PRINTFORML 「そんなに手を繋ぎたいの？…しょうがないなぁ」
				PRINTFORMDW 呆れたように差し出してきた鈴瑚の手を握った。
			CASE 2
				PRINTFORML 「ふ～ん…キミの手、結構大きいね」
				PRINTFORMDW 鈴瑚と手を繋いだ。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;604,散策する
;デート中の場合、CFLAG:現在位置に移動先の場所が既に入ってる
;==================================================
@M_KOJO_MESSAGE_COM_K108_604
;散策するにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K108_604_1
RETURN RESULT

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

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

@M_KOJO_MESSAGE_COM_K108_605
;寄り道するにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K108_605_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_605_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;怒り
	SETCOLOR 0xEE9900
	IF CFLAG:318 == 1
		PRINTFORML 「……早く行こうよ」
		PRINTFORMDW 寄り道を提案したが、鈴瑚に断られた…
	ELSE
		SELECTCASE RAND:4
			CASE 0
				CALL COLORMESSAGE("「外で食べる団子は格別だねぇ…♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚と団子を食べて休憩した。
			CASE 1
				PRINTFORML 「テレパシー？私も使えるよ。ちょっとやってみようか？」
				PRINTFORMW 『もしもーし♪清蘭、元気～？』
				IF TALENT:107:恋慕 || TALENT:107:思慕
					PRINTFORML 「…あはは…その、お取込み中だったみたい…」
					PRINTFORMDW 鈴瑚は何故か顔を赤らめている…
				ELSE
					PRINTFORML 「あっははは！すっごいむせてる！食事中だったのかな？」
					PRINTFORMDW 清蘭に悪い事をしただろうか…
				ENDIF
			CASE 2
				PRINTFORML 「……井戸？何でこんな所に…？」
				PRINTFORML 「いや…そんなあからさまに怪しいの、入るわけないでしょ」
				PRINTFORMDW 謎の古井戸を無視して目的地へ急いだ。
			CASE 3
				PRINTFORMW 「うっ…！すごい風……」
				SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「……ふう。帽子が飛ばされなくてよかった」
				CASE 1
					PRINTFORML 「―あっ！帽子が！！」
					PRINTFORMDW …………
					PRINTFORML 「ありがとう%CALLNAME:MASTER%…！」
					PRINTFORML 「大丈夫？怪我は無い？」
					PRINTFORMDW どうにか鈴瑚の帽子を回収する事が出来た。
				ENDSELECT
		ENDSELECT
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;610,食事に誘う
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K108_610
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_610
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_610_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_610_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	;人間の里
	IF CFLAG:MASTER:現在位置 / 100 == 2
		SELECTCASE RAND:4
			CASE 0
				PRINTFORMDL 鈴瑚がよく利用しているという大衆食堂で食事をした。安くてお腹いっぱい食べられるのが売りらしい。
				PRINTFORML 「鈴瑚屋の仕事が終わった後に、清蘭とよく来るんだ」
				PRINTFORMW 「さ～て…今日の日替わり定食は～っと…♪」
			CASE 1
				PRINTFORMDL 美宵が看板娘をしている酒場「鯢呑亭」で食事をすることにした。
				PRINTFORML 「お酒は…この『鯨の息吹』にしようかな」
				PRINTFORML 「後は…とりあえず出汁巻き卵かな。%CALLNAME:MASTER%は何にする？」
				PRINTFORMDW 鈴瑚と同じものを美宵に注文した。
			CASE 2
				;清蘭口上でやりたかったけど、辛味苦手なので…
				PRINTFORMDL 鈴瑚と散策していると、ラーメン屋を見つけた。
				PRINTFORMDW あまりにも引かれる店名だったので、衝動的にその店に入っていた。
				PRINTFORML 「"清蘭ラーメン"か…偶然だと思うけど…」
				PRINTFORML 「お、来たね……赤っ！辛そ～♪いただきまーす！」
				PRINTFORMDW 鈴瑚と汗だくになりながら、"揚げ排骨担々麺"を堪能した。
			CASE 3
				PRINTFORMDL 何も店で食べるだけが外食ではない。今日は趣向を変えて鈴瑚と食べ歩きをすることにした。
				CALL COLORMESSAGE("「う～ん、目移りしちゃうね。次は何食べよっかな～♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚の食欲に驚かされながらも、食べ歩きを楽しんだ。
		ENDSELECT
	;迷いの竹林
	ELSEIF CFLAG:MASTER:現在位置 / 100 == 4
		PRINTFORMDL ミスティアがやっている屋台を見つけたので、鈴瑚と八目鰻を食べることにした。
		PRINTFORML 「%CALLNAME:MASTER%、目を閉じてごらん」
		PRINTFORML 「ほら…香ばしい炭火と、タレのいい匂いがするでしょ？」
		PRINTFORMDW %CALLNAME:MASTER%は目を閉じ、八目鰻の香りを楽しんだ。早く食べたい…！
	;三途の川～冥界
	ELSEIF CFLAG:MASTER:現在位置 / 100 == 6
		PRINTFORMDL 潤美から購入した魚を食べながら、鈴瑚と休憩する事にした。
		PRINTFORML 「折角だし、あの桜を見ながら食べようよ」
		CALL COLORMESSAGE("「冥界で花見ってのも、中々オツだと思わない？」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 待ちきれなかったのか、鈴瑚は既に魚を齧り始めている……
	;地底
	ELSEIF CFLAG:MASTER:現在位置 / 100 == 9
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「う～ん…思ってた通り、居酒屋が多いねぇ…」
				PRINTFORML 「飲むのは構わないんだけど、今はガッツリ食べたい気分なんだよね～……んっ！？」
				PRINTFORMDW "腹ペコなあなたに！ご飯「鬼」盛りキャンペーン中！"と書かれた立て看板が置かれた居酒屋を見つけた。
				PRINTFORML 「―よし！ここだ！！」
				PRINTFORMDW 凄い速さで走っていく鈴瑚を慌てて追いかけた…
			CASE 1
				PRINTFORMDL お互いに今日は飲みたい気分だという事で、勇儀お墨付きの酒場にやってきた。
				PRINTFORML 「あの酒好きの鬼が言うんだ…さぞ美味い酒が飲めるんだろうね…♪」
				PRINTFORMDL 思い思いに頼んだ酒や料理が運ばれてきた。とても美味しそうだ…！
				PRINTFORMW 「よ～し、それじゃ…カンパーイ♪」
			CASE 2
				PRINTFORMDL 何も店で食べるだけが外食ではない。今日は趣向を変えて鈴瑚と食べ歩きをすることにした。
				CALL COLORMESSAGE("「しかしあれだね。まるで祭りか何かに来た気分だよ」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚の手にはイカ焼きやトウモロコシなど、祭りの定番と言えるような食べ物たちが握られている。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;613,お金稼ぎする（オミットされました
;==================================================
@M_KOJO_SUCCESS_COM_K108_613
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_613
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_613_1
RETURN RESULT

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

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

@M_KOJO_MESSAGE_COM_K108_614_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE RAND:2
		CASE 0
			PRINTFORML 「り、"鈴瑚を食べたい"って……！その…ここで！？」
			CALL HPH_PRINT,@"「…うん♪いいよ、%CALLNAME:MASTER%…HPH…こっちに来て？HPH」","W"
			PRINTFORML 「はい、どうぞ」
			PRINTFORMDW 鈴瑚…ではなく、"林檎"を食べた。
		CASE 1
			PRINTFORML 「悪いね、%CALLNAME:MASTER%。私の分まで持ってもらって」
			PRINTFORMDW "これ位なら問題ない"
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;615,お弁当を食べる
;実行可能場所　お地蔵通り,枝垂れ柳の下,霧の湖,玄武の沢,大蝦蟇の池,絶景の丘,山の湖,天界
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:料理技能(2未満=微妙な出来 4未満=そこそこ美味しい 4以上=絶品)
;==================================================
@M_KOJO_MESSAGE_COM_K108_615
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_615_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_615_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;鈴瑚の料理技能A以上で変化
	;恋慕でCASE 1追加
	SELECTCASE RAND:(TALENT:恋慕 ? 2 # 1)
		CASE 0
			IF ABL:料理技能 < 4
				PRINTFORMDL ぐう、と%CALLNAME:MASTER%の腹の虫が鳴った。しかしこの辺りに食事処は無さそうだ…
				PRINTFORMW 「%CALLNAME:MASTER%お腹空いた？じゃあ、お昼にしようか」
				PRINTFORMDL 鈴瑚に包みを手渡された。団子にしては大きすぎる…
				PRINTFORMDL 包みを開けると、大きなおにぎりが姿を現した…美味しそうだ！
				CALL COLORMESSAGE("「仕事が忙しい時は、こういう片手間で食べられる物がいいんだよね。作るのも楽だし」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚の作ったおにぎりを食べ、お腹がいっぱいになった。
			ELSE
				PRINTFORMDL ぐううぅぅ～
				PRINTFORMDL %CALLNAME:MASTER%の空腹が限界に近づいている。しかし、こういう時に限って近くに食事処は見当たらない…
				PRINTFORMW 「フッ…！腹ペコの%CALLNAME:MASTER%に、私がいい物をあげようじゃないか」
				PRINTFORMDL 鈴瑚はニヤリと不敵に笑い、アルミホイルが巻かれているソフトボール大の塊を手渡してきた。
				PRINTFORMDW アルミを取り払うと、砲丸のような黒い球体が姿を現した。これは…"爆弾おにぎり"だ！
				CALL COLORMESSAGE("「デカい方が食べ応えあるでしょ？私もお腹空いたから、一緒に食べよ♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
				PRINTFORMDL もう既に食べているだろう…というツッコミもそこそこに、鈴瑚のおにぎりにかぶりついた。
				PRINTFORMDL 具は辛味噌で和えた野菜のようだ。絶妙な辛さに食欲をそそられ、食べる手が止まらない…！
				PRINTFORMDL かなりのサイズだった筈だが、あっという間に食べ終わってしまった。
				PRINTFORMW 「美味しかった？じゃあ、また作ってきてあげるよ♪」
			ENDIF
		CASE 1
			IF ABL:料理技能 < 4
				PRINTFORMDL ぐう、と%CALLNAME:MASTER%の腹の虫が鳴った。しかしこの辺りに食事処は無さそうだ…
				PRINTFORMW 「%CALLNAME:MASTER%お腹空いた？…お弁当作ってきたんだけど、食べる？」
				PRINTFORMDL %CALLNAME:MASTER%は何度も頷き、鈴瑚から弁当箱を受け取った。
				PRINTFORMDL 蓋を開けると、美味しそうなおかずがたくさん入っていた。手始めに、卵焼きから口に運ぶ……
				PRINTFORML 「……どう？美味しい？」
				PRINTFORMDW 食い入るように感想を聞いてきた鈴瑚に"美味しい"と答えると、安心したのか溜め息をついた。
			ELSE
				PRINTFORMDL ぐううぅぅ～
				PRINTFORMDL %CALLNAME:MASTER%の空腹が限界に近づいている。しかし、こういう時に限って近くに食事処は見当たらない…
				PRINTFORML 「あっははは！すっごい音だ…！相当お腹減ってんのね…♪」
				PRINTFORMW 「…よし！この辺り見晴らし良いし、ここでお弁当食べようか%CALLNAME:MASTER%♪」
				PRINTFORMDL 期待に胸を膨らませながら、鈴瑚に手渡された弁当箱を開けた。
				PRINTFORMDL 野菜をふんだんに使った、色とりどりのおかずが入っていた。
				PRINTFORMDL とても美味しそうな匂いがする…！思わず唾を飲み込んだ。
				PRINTFORMW 「ちゃんと残さず食べてよ？デザートに団子もあるからね～♪」
			ENDIF
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;617,甘味処に誘う
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐は大成功のみ追加
;==================================================
@M_KOJO_SUCCESS_COM_K108_617
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K108_617
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_617_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_617_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	SELECTCASE RAND:5
		CASE 0
			CALL COLORMESSAGE("「私は尻尾から食べる派だよ。美味しいたい焼きは、尻尾まで餡子が詰まってるからね」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW %CALLNAME:MASTER%は%TEXTR("たい焼きに頭からかぶりついた/鈴瑚に倣って尻尾からかぶりついた")%。
		CASE 1
			PRINTFORML 「よっと……お婆ちゃん。団子と緑茶、二つね」
			PRINTFORML 「さ～て、お手並み拝見だ…♪この私を唸らせる団子は出てくるかな？」
			PRINTFORMDW 鈴瑚と茶屋で一服した。
		CASE 2
			CALL COLORMESSAGE("「ん～♪やっぱり王道のイチゴショートだねぇ♪」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			SETCOLOR 0xEE9900
			PRINTFORMDL 鈴瑚とケーキバイキングにやってきた。沢山の一口サイズのケーキが、次々と鈴瑚の口の中へ消えていく…
			PRINTFORMDW 途中から数えるのも億劫になってしまったが、一体いくつ食べたのだろう…？
			PRINTFORML 「ふ～…時間的に次がラストかな？」
			PRINTFORML 「もう一回イチゴショートか…？でもチーズケーキやモンブランも捨て難い……」
			PRINTFORML 「―よし！迷ったら全部だ！行くよ%CALLNAME:MASTER%！」
			PRINTFORMDW もうお腹が一杯だ…再びケーキの海へと漕ぎ出した鈴瑚を、手を振って見送った。
		CASE 3
			CALL COLORMESSAGE("「ん～！冷たくて美味し……♪」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			SETCOLOR 0xEE9900
			PRINTFORMDL 小腹が空いたので、休憩も兼ねてカフェに立ち寄った。鈴瑚が美味しそうにパフェを食べている。
			PRINTFORMDL "普通のパフェで良かったのか？"
			PRINTFORMDW %CALLNAME:MASTER%は<制限時間内に一人で食べきれば無料！>のポップが貼られた期間限定パフェを指差した。
			PRINTFORML 「ああ…それね。別に自信が無い訳じゃないんだけど…」
			PRINTFORML 「時間に追われて食事するのってあんまり好きじゃないんだよね。美味しい物はじっくり味わいたいんだよ」
			PRINTFORMDW どうやら鈴瑚にも拘りがあるようだ。納得した%CALLNAME:MASTER%は、注文したパンケーキを食べ始めた。
		CASE 4
			;季節もの
			;春
			IF DAY:2 == 1
				CALL COLORMESSAGE("「美味しいねぇ～…♪この桜餅…♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				SETCOLOR 0xEE9900
				PRINTFORML 「ずず…うん！お茶にもよく合う…♪」
				PRINTFORMDW 鈴瑚と桜餅を食べた。
			;夏
			ELSEIF DAY:2 == 2
				CALL COLORMESSAGE("「ん～っ！冷たい！やっぱり夏と言えばコレだよね♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				SETCOLOR 0xEE9900
				PRINTFORML 「―痛ッ！しまった、一度に食べ過ぎた…！」
				PRINTFORMDW 鈴瑚とかき氷を食べた。
			;秋＆冬
			ELSE
				CALL COLORMESSAGE("「はふはふ……熱っ…！甘っ…♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				CALL COLORMESSAGE("「こりゃいくらでも食べられそうだね…♪」", C_ORANGE, 0, 0)
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚と焼き芋を食べた。
			ENDIF
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;618,花屋（口上は表示されない模様？
;==================================================
@M_KOJO_MESSAGE_COM_K108_618
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_618_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_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_K108_620
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_620_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_620_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW 「ん？%CALLNAME:MASTER%、何か借りたの？」
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_K108_621
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_621_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_621_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
	;釣れない
	CASE 0
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「%TEXTR("魚影は見えるんだけどね…まあ、見えてる魚は釣れないって言うし…/…何もいないよ？場所変えた方がいいんじゃない？")%」
				PRINTFORMDW 鈴瑚が水中を覗き込んで、魚を探してくれている。
			CASE 1
				PRINTFORML CALL COLORMESSAGE("「焦らない焦らない。果報は寝て待てって言うでしょ？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚はとても落ち着いている…
			CASE 2
				PRINTFORML 「釣れた？……なんだ、違うのか…」
				PRINTFORMDW 鈴瑚はがっくりと肩を落とした……
		ENDSELECT
	;ローター
	CASE 21
		PRINTFORML 「おっ？釣れ―」
		PRINTFORML 「…………。」
		PRINTFORMDW 鈴瑚は目を逸らしている…
	;守矢の守札
	CASE 131
		PRINTFORML 「あ、裏に何か書いてある」
		PRINTFORMW 「なになに…%TEXTR("恋愛運：出会いを大切に/金運：思わぬ支出有り/仕事運：初心を忘れるな")%…だってさ」
	;龍の爪・氷の鱗
	CASE 606,609
		PRINTFORMW 「レア物だね。よかったじゃん%CALLNAME:MASTER%♪」
	;木材
	CASE 610
		PRINTFORML 「ぷっ！」
		PRINTFORML 「…ご、ごめん…！つい…ふ、ふふふっ…♪」
		PRINTFORMDW 鈴瑚に笑われた…もの凄く悔しい…
	;カエル
	CASE 700
		;キング・クリムゾンvs.メタリカ
		PRINTFORML 「そのカエル、地面に置いてごらん。カミソリがドバっと出てくるかもよ」
		PRINTFORMDW そんなわけないだろう…
	;魚多すぎるので統合
	CASEELSE
		SELECTCASE RAND:6
			CASE 0
				PRINTFORML 「おめでとう、%CALLNAME:MASTER%～♪」
				PRINTFORMDW 鈴瑚は拍手をしてくれた。
			CASE 1
				PRINTFORMW 「おっ？釣れたの？%CALLNAME:MASTER%やるじゃん」
			CASE 2
				PRINTFORMW 「食べるなら、しっかりと火通しなよ」
			CASE 3
				PRINTFORMW 「とりあえず、ボウズは回避できたね」
			CASE 4
				PRINTFORML 「…美味しそう…」
				PRINTFORMW 「―っと…何も言ってないよ、うん」
			CASE 5
				PRINTFORMW 「食べ応えが有りそうなサイズねぇ」
		ENDSELECT
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;626,土産屋
;TFLAG:194(行動結果(-2=ひやかし -1=ウィンドウショッピング 1=400点未満（BAD） 2=～699点（NOMAL） 3=700点以上（GOOD）
;CFLAG:性格傾向による地の文分岐あり
;==================================================
@M_KOJO_MESSAGE_COM_K108_626
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_626_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_626_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:194
		;ひやかし
		CASE -2
			PRINTFORMW 「あちゃー…こりゃ、今日は諦めるしかないね」
		;やっぱりやめる（見送り）
		CASE -1
			PRINTFORMW 「土産屋って言う割には、饅頭の一つも売ってないなんて…」
		;400点未満（BAD）
		CASE 1
			PRINTFORML 「はは……ありがとね、%CALLNAME:MASTER%…」
			PRINTFORMDW あまり嬉しくなさそうだ…好みに合わなかったのかもしれない。
		;400点～699点（NOMAL）
		CASE 2
			PRINTFORML 「おー、可愛いじゃん。ありがとね%CALLNAME:MASTER%♪」
			PRINTFORMDW 鈴瑚はプレゼントを気に入ってくれたようだ。
		;700点以上（GOOD）
		CASE 3
			PRINTFORML 「ありがとう%CALLNAME:MASTER%…！」
			PRINTFORML 「これ、大切にするよ…♪」
			PRINTFORMDW 鈴瑚は、%CALLNAME:MASTER%からのプレゼントを両手でギュっと握りしめている。とても気に入ってくれたようだ。
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;660,読書
;TFLAG:193(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=薄い高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_MESSAGE_COM_K108_660
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_660_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;698,部屋に入る
;TARGETの部屋に入る場合のみ表示
;==================================================
@M_KOJO_MESSAGE_COM_K108_698
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_698_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_698_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:恋慕
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「やあ。いらっしゃーい%CALLNAME:MASTER%」
				CALL HPH_PRINT,@"「……今日は何する？HPH」","L"
				PRINTFORMDW 鈴瑚は顔を赤らめながら微笑んでいる。
			CASE 1
				PRINTFORML 「あはは…散らかっててゴメンね？」
				PRINTFORML 「ちょっと新作の団子が煮詰まっててさ……」
				PRINTFORMDW 鈴瑚の部屋の片付けを手伝った。
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「いらっしゃーい%CALLNAME:MASTER%～♪」
				PRINTFORML 「散らかっててゴメンね？」
				PRINTFORMDW 綺麗に片付いている鈴瑚の部屋をじっくりと観察した。
			CASE 1
				PRINTFORML 「お待ちしておりました～」
				PRINTFORML 「お茶請けは団子でいいよね？」
				PRINTFORMDW 鈴瑚に団子をご馳走になった。
		ENDSELECT
	ELSE
		SELECTCASE RAND:2
			CASE 0
				CALL COLORMESSAGE("「―ッ！？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				SETCOLOR 0xEE9900
				PRINTFORML 「ゲホッ！ゲホッ…！な、何でいるの！？」
				PRINTFORMDW 鈴瑚は驚きのあまり、むせてしまったようだ…
			CASE 1
				CALL COLORMESSAGE("「…そんな所に突っ立ってないで、入ったら？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW お言葉に甘えて、お邪魔することにした。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;699,外に出る
;==================================================
@M_KOJO_MESSAGE_COM_K108_699
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K108_699_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K108_699_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠フラグ
	IF CFLAG:睡眠 && CFLAG:107:衰弱
		PRINTFORMDW ぐっすり眠っている鈴瑚を起こさないように外に出た。
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「帰るって…もうそんな時間！？」
				PRINTFORML 「…また遊びに来るよね？」
				PRINTFORMDW "勿論"と頷いて、%CALLNAME:MASTER%は鈴瑚に手を振った。
			CASE 1
				PRINTFORML 「%CALLNAME:MASTER%、ちょっと待って！」
				PRINTFORMDL 帰る直前、鈴瑚に呼び止められた。
				PRINTFORML 「これ試作中の団子！また遊びに来て、感想聞かせてね？」
				PRINTFORMDW そんな物が無くてもまた遊びに来る…とは敢えて言わず、団子を受け取って帰った。
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「じゃあね、%CALLNAME:MASTER%」
				PRINTFORMW 「また面白い話聞かせてね～♪」
			CASE 1
				PRINTFORML 「あら、帰るの？送って行こうか？」
				PRINTFORMDW "心配には及ばない"と、鈴瑚に手を振って家を出た。
		ENDSELECT
	ELSE
		CALL COLORMESSAGE("「じゃあね～」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORMW MGMG
	ENDIF
ENDIF
RESETCOLOR
RETURN 1

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

@M_KOJO_MESSAGE_SCOM_K108_60
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K108_60_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K108_60_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TFLAG:193 == 1
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「…よし、終わり！それじゃ反対向いて」
				PRINTFORMDL ころりと転がって反対側を向くと、鈴瑚のお腹が目に入ってきた。
				PRINTFORMDL …ちょっと悪戯してやろうと、臍へ指を伸ばす―
				PRINTFORMW 「悪戯してもいいけど、手元が狂っちゃうかもよ～？」
			CASE 1
				PRINTFORML 「……ふぅ～～っ…♪」
				PRINTFORML 「あっはははは！ゴメンゴメン！許して～！」
				PRINTFORMDW 耳に息を吹きかけられたお返しに、お腹をくすぐってやった。
			CASE 2

				PRINTFORML 「よ～し、後は仕上げっと……」
				PRINTFORMDL 梵天で耳を掃除してもらった。ふわふわして気持ちいい…
				PRINTFORMW 「それにしても梵天ってさ、兎の尻尾みたいだよね」
		ENDSELECT
	ELSEIF TFLAG:193 == -1
		PRINTFORMW 「ほら、もうちょっとで終わるから大人しくして」
	ENDIF
ENDIF
RETURN 1
;==================================================
;61,抱きまくら
;(TARGET睡眠時間or衰弱)陪睡中、前ターン抱きつく後就寝コマンド
;分岐無し
;==================================================
@M_KOJO_MESSAGE_SCOM_K108_61
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K108_61_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K108_61_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:睡眠
		PRINTFORML 「…ん～…！重いぃ……！…Zzz…」
		PRINTFORMDW なんだか寝苦しそうだ……
	ELSEIF TALENT:恋人
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「ふふっ…♪1/1鈴瑚抱き枕の抱き心地はどうかな？%CALLNAME:MASTER%♪」
				PRINTFORMDL 向かい合った姿勢のまま、鈴瑚を抱きしめて寝転がる。
				PRINTFORMDW "とても良い。最高"と鈴瑚の赤い瞳を見据えて言った。
				CALL HPH_PRINT,@"「そっか♪…それじゃこの間キミの部屋で見つけた、あのスケベな抱き枕はもういらないねHPH」","L"
				PRINTFORMDW ……どうやらバレていたようだ。非常に惜しいが手放すしかない……
				PRINTFORMW 「えっ……カマかけただけのに…本当に持ってたの？」
			CASE 1
				CALL HPH_PRINT,@"「……キミの顔がこんな近くにあるなんて、ドキドキするよ…HPH」","L"
				CALL HPH_PRINT,@" 「ちゅ…HPH…%CALLNAME:MASTER%おやすみ…HPH」","W"
				PRINTFORMDW 抱き合ったまま、鈴瑚とキスをして眠った。
				EXP:108:接吻経験 ++
				EXP:MASTER:接吻経験 ++
			CASE 2
				PRINTFORML 「……%CALLNAME:MASTER%？もう寝ちゃった？」
				PRINTFORMW 「……寝てる、ね…」
				PRINTFORMDW …………。
				CALL HPH_PRINT,@"「んんっ…HPHふーHPHふーHPHん…ぐ…っんんっHPHんーっHPH」","L"
				CALL HPH_PRINT,@"（こ…これヤバい…HPH%CALLNAME:MASTER%がすぐ隣にいるってだけで、こんなに興奮するなんてぇっ…HPH HPH）","L"
				CALL HPH_PRINT,@"（お汁出すぎて凄い音鳴ってるし…HPHこんなの絶対バレる…バレちゃうHPH HPH）","L"
				CALL HPH_PRINT,@"（ど…どうしよ…HPH指、全然止まんないぃ…HPH HPH）","W"
				CALL HPH_PRINT,@"「ふっHPHふっHPHふっHPHんっHPHんんっHPHんーっHPHんんうっっHPH」","L"
				CALL HPH_PRINT,@"（あ…HPHあっHPHこれくるHPHくるHPHもうイクHPHイクHPHイッ―）","W"
				CALL HPH_PRINT,@"「んんんんぅぅぅぅぅっーーーHPH HPH HPH HPH」","W"
				CALL HPH_PRINT,@"「……ぷはっ！はーHPHはーHPHはー…HPH」","L"
				PRINTFORML （あっちゃー、びしょびしょ…これ、このまま寝たら絶対不味いよね…）
				PRINTFORML （パンツだけ替えて寝よ……%CALLNAME:MASTER%、ぐっすり寝てるみたいだし…抜け出してもバレないよね？）
				PRINTFORMW 「……よっ、と…よし」
				PRINTFORMDW "…………。"
				EXP:108:自慰経験 += 1
				EXP:108:絶頂経験 += 1
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「……%CALLNAME:MASTER%？もう寝ちゃった？」
				PRINTFORMW 「……寝てる、ね…」
				PRINTFORMW （私はキミが隣で寝てるってだけでもドキドキして寝れないのに…ずるいよ…！）
				PRINTFORML 「―ははっ…ずるいって、ずるいのはどっちだよ…！」
				PRINTFORML 「関係が壊れるのが嫌だからって、告白も碌に出来ないヘタレのくせに……」
				PRINTFORMW 「……おやすみ%CALLNAME:MASTER%。…また…明日……」
				PRINTFORMDW "…………。"

			CASE 1
				PRINTFORML 「……そ、その…抱き心地は、どうかな…？」
				PRINTFORMDL "とても良い。最高"と鈴瑚の赤い瞳を見据えて言った。みるみる顔が赤くなっていく……
				PRINTFORML 「―じゃあ、明日朝早いから…もう寝るね！おやすみっ」
				PRINTFORMDW 鈴瑚は反対を向いて寝てしまった……仕方が無く、背中を抱いて寝ることにした。
		ENDSELECT
	;それ以外
	ELSE
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML （……"抱いて寝たい"って、まさかそのまんまの意味だったとは…）
				PRINTFORML （…って！それじゃ私が%CALLNAME:MASTER%とそういう事したいみたいじゃない！）
				PRINTFORML （あ～もう馬鹿馬鹿しい…！寝よ寝よ……）
				PRINTFORMDW 鈴瑚は何だかモゾモゾしている。眠れないのだろうか……？
			CASE 1
				PRINTFORML 「…………。」
				PRINTFORML （私は、%CALLNAME:MASTER%に"自分を抱き枕にして寝ても良い"と言った事を後悔している）
				PRINTFORMW 「……この体勢、寝返り打てないな…」
		ENDSELECT
	ENDIF
ENDIF
RESETCOLOR
RETURN 1
;==================================================
;62,デコちゅー
;前ターン頭撫で後キスする
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;ABL:欲望(5以上=物足りない
;ABL:親密(5以上=照れる
;==================================================
@M_KOJO_SUCCESS_SCOM_K108_62
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K108_62
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K108_62_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K108_62_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:睡眠
		PRINTFORML 「んん…？……Zzz…」
		PRINTFORMDW 鈴瑚は一瞬顔をしかめたが、起きる気配はなさそうだ。
	ELSEIF TALENT:恋人
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「…キミって、以外とキザなんだね…♪」
				PRINTFORMDW 鈴瑚は悪戯っぽく笑っている。
			CASE 1
				CALL HPH_PRINT,@"「…おデコだけでいいの…？HPH」","L"
				PRINTFORMDW 鈴瑚の唇に視線が向いてしまう……
		ENDSELECT
	ELSEIF TALENT:恋慕 || TALENT:炮友
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「～～っ……！」
				PRINTFORMDW 鈴瑚は恥ずかしそうに目を背けている。何だかこっちも顔が熱くなってきた……
			CASE 1
				PRINTFORML 「……うぅ～…！」
				PRINTFORMW （そんな事されたら、期待しちゃうじゃん…！）
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「%CALLNAME:MASTER%、その…こういう事は好きな人としなよ…」
				PRINTFORMDW 鈴瑚は気まずそうに目を背けている…
			CASE 1
				PRINTFORMW 「……はは…えっと、これはノーカウントって事で……」
		ENDSELECT
	;陥落無し
	ELSE
		SELECTCASE RAND:2
			CASE 0
				CALL COLORMESSAGE("「キミ、ちょっと調子乗りすぎ」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚にデコピンされた……
			CASE 1
				CALL COLORMESSAGE("「……大声出して、社会的に抹殺してあげようか？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚にジト目で睨まれた…
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;63,もっとキスする
;前ターンキスする後キスする
;分岐条件はEVENT_MESSAGE_COM500.ERB参照
;==================================================
@M_KOJO_SUCCESS_SCOM_K108_63
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K108_63
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K108_63_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K108_63_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		PRINTFORMDL 時が止まったままの鈴瑚にキスをした。
		PRINTFORMDW 団子を食べていたからか、口の中がほのかに甘い…
	ENDIF
	IF TALENT:恋人
		SELECTCASE RAND:5
			CASE 0
				CALL HPH_PRINT,@"「んぁ…HPH あむ、れる…っ、んちゅっ…HPH」","L"
				PRINTFORMDW 鈴瑚と舌を絡めてディープキスをした…
			CASE 1
				CALL HPH_PRINT,@"「んむ…んちゅ…HPH あむ、んちゅ…HPH、%CALLNAME:MASTER%…HPH もっと…HPH」","L"
				CALL HPH_PRINT,@"「じゅるるHPH れる…HPH、んん…んむぅ…HPH ちゅ…HPH」","L"
				PRINTFORMDW 鈴瑚との甘いキスを堪能した…
			CASE 2
				CALL HPH_PRINT,@"「んん…HPH んふ…HPH じゅるるHPH ぢゅるるる…HPH じゅ…ぷはっ」","L"
				PRINTFORML 「はあっ…はー…はー…はー…ちょっと、苦しかったね…♪」
				PRINTFORMDW 息をするのも忘れる程、鈴瑚とキスに没頭した…
			CASE 3
				CALL HPH_PRINT,@"「ん…HPH あむ…HPH れろぉ…HPH じゅるっHPH ぢゅるるHPH ぢゅうううHPH」","L"
				PRINTFORMDW 鈴瑚とお互いの唾液を交換した。聞こえてくる下品な水音が二人の気持ちを昂らせる…
			CASE 4
				CALL HPH_PRINT,@"「あむ…HPH ちゅ…HPH んぅっ…んふ…HPH ちゅっHPH んちゅ…HPH」","L"
				CALL HPH_PRINT,@"「んん…HPH ぢゅうう…HPH、ぷはっ…ふふっ♪…%CALLNAME:MASTER%…好きだよ…HPH」","L"
				PRINTFORMDW キスをしながら、鈴瑚と愛を囁き合った…
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				CALL HPH_PRINT,@"「ちゅ……HPH…ん…はぁ…HPH」","L"
				PRINTFORMDW 鈴瑚は頬を上気させ、潤んだ瞳で%CALLNAME:MASTER%を見つめている…
			CASE 1
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPHん…ちゅ……HPH」","L"
				CALL HPH_PRINT,@"「―んっ！？……ん…HPHぢゅ……HPH…ちゅ、ぷ…HPH」","L"
				PRINTFORMDW 思い切って舌を入れると、控え目にだが受け入れてくれた。
			CASE 2
				CALL HPH_PRINT,@"「んむ…んちゅ…HPH あむ…んんっ…HPH」","L"
				PRINTFORMDW 鈴瑚は懸命にディープキスをしてくれている。
		ENDSELECT
	ELSE
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「―んむっ！？んん…！…ちょっと！何す―んん～！」
				PRINTFORMDW 少し強引に鈴瑚の唇を奪った。
			CASE 1
				PRINTFORML 「んん…！やめ…！んぅっ…んん…！」
				PRINTFORML 「―…ッ！！はー…！はー…！…二度とこんな事しないで…！」
				PRINTFORMDW 鈴瑚に突き飛ばされた…
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;80,手を引く
;デート出発後目的地に着くまでの間
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_SCOM_K108_80
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K108_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K108_80_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K108_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;怒り
	IF CFLAG:318 == 0
		CALL COLORMESSAGE("「…痛いなぁ、放してよ…！」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 手を引こうとすると、鈴瑚に睨まれた……
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「も～…！そんなに急がなくても…」
				PRINTFORML 「…私はキミとのんびり歩きたいのに……」
				PRINTFORMDW 鈴瑚は少し拗ねながらも、歩くペースを早めてくれた。
			CASE 1
				PRINTFORML 「ほら%CALLNAME:MASTER%っ！早く早く♪」
				PRINTFORMDW 珍しく手を引いて急かしてくる。よほどデートが楽しみだったのだろうか。
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「ほら%CALLNAME:MASTER%！急いで急いで！」
				PRINTFORMW 「数量限定のスイーツが売り切れちゃう！」
			CASE 1
				PRINTFORML 「き…今日はまた、随分とハイペースだね……！」
				PRINTFORMDL 鈴瑚が横腹を押さえながらも必死について来ている……
				PRINTFORMDW 早く目的地に着きたかったが、鈴瑚の身を案じて歩くペースを遅くした。
		ENDSELECT
	;それ以外
	ELSE
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「え～……もっとゆっくり行こうよ…」
				PRINTFORMDW 文句を言う鈴瑚の手を引いて、目的地へ急いだ。
			CASE 1
				PRINTFORML 「%CALLNAME:MASTER%…ちょっと待って…！」
				PRINTFORML 「急に動いたら横腹が……あ痛たた……！」
				PRINTFORMDW 鈴瑚は苦しそうだ…鈴瑚の身を案じ、ゆっくり歩くことにした。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【108】鈴瑚/M_KOJO_K108_日常系コマンド.ERB

license: unknown