code:
;-------------------------------------------------
; eraTheWorld 4.860用 鈴瑚口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

;------ ｷﾘﾄﾘ ｶｲｼ -----------
;eraTheWorld proto4.07パッチ取り込み用 Ver1.13
;テンプレートの使い方
;初めに置換コマンド等により KX を K(キャラNo) に変更して下さい
;キャラNoはCSVフォルダのCharaファイルを参照　例(霧雨 魔理沙の場合)：KX =置換=> K11
;
;------ ｷﾘﾄﾘ ｵﾜﾘ -----------

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;
;
;******************************************************************************

;### 口上存在判定 ###################################
@M_KOJO_K108(ARG)
;別人版を作成する際はこのテンプレではなく別人版用口上テンプレをご利用ください

;口上存在判定です、けしてコメントアウトしないでください
;他の処理は一切行わないように
RETURN 1

;### 口上基本フラグ設定 #############################
@M_KOJO_FLAGSETTING_K108
;基本フラグ設定はここで行ってください
;共通の口上フラグは必要な箇所のコメントアウトを外してご利用ください
;口上専用フラグはご自由に
;Xにはキャラ番号を入れてください

;眠姦口上有、時間停止口上有、なりきりに1を入れると、それぞれ時間停止時、眠姦時、なりきり時にコマンド口上が読み込まれるように
;入れないと時間停止時、眠姦時、なりきり時は一切喋りません
CFLAG:108:眠姦口上有 = 1
CFLAG:108:時間停止口上有 = 1
;CFLAG:X:なりきり口上有 = 0

;破瓜キャンセル口上有に1を入れると、@M_KOJO_EVENT_KX_LOST_VIRGIN_STOPでキャンセルの成否を操作できます
;CFLAG:X:破瓜キャンセル口上有 = 0

;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れると、M_KOJO_EVENT_KX_PERMISSIONで押し倒しの成否を操作できます
;CFLAG:X:口上内抱き寄せ判定_初回 = 0
;CFLAG:X:口上内抱き寄せ判定_通常 = 0

;押し倒し禁止に1を入れると、自分から押し倒してこなくなります
;以下は恋慕かセフレがつくまで押し倒してこなくなる使用例
;IF !TALENT:X:恋慕 && !TALENT:X:セフレ
;	CFLAG:X:押し倒し禁止 = 1
;ELSE
;	CFLAG:X:押し倒し禁止 = 0
;ENDIF

;来訪不能に1を入れると、来訪してこなくなります
;以下は面識があるまで来訪してこなくなる使用例
;IF !CFLAG:X:面識
;	CFLAG:X:来訪不能 = 1
;ELSE
;	CFLAG:X:来訪不能 = 0
;ENDIF

;### 口上色判定 ###################################
@M_KOJO_COLOR_K108

;ここでSETCOLORすることで口上に色を付けられます
;例：SETCOLOR 0xC07070

SETCOLOR 0xEE9900
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K108
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K108
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します

;清蘭と遭遇済かどうかで分岐
IF CFLAG:107:面識 == 1

	PRINTFORMW 「お待ちしておりましたー」
	PRINTFORMDL 突如、%CALLNAME:MASTER%の頭上から聞こえてくる声。見上げると、橘色のシャツを着た少女がいた。
	PRINTFORMDW 少女がゆっくりと空から降りてくると、どこからか取り出した団子を食べながら%CALLNAME:MASTER%を観察し始めた。
	CALL COLORMESSAGE("「ん～……うん、聞いてた特徴通りだね……間違いない」", C_ORANGE, 0, 0)
	SETCOLOR 0xFFFF00
	PRINTFORML MGMG
	SETCOLOR 0xEE9900
	PRINTFORMW 「キミ、"%CALLNAME:MASTER%"でしょ？清蘭から話を聞いたわ。面白い地上人に会ったって」
	PRINTFORMDW 清蘭…以前出会った兎少女の名前だ。目の前にいるこの少女も、月の調査部隊<イーグルラヴィ>の仲間という事だろうか。
	PRINTFORML 「あはは！あの娘、そんな事まで喋っちゃったの？」
	PRINTFORML 「まあいいや。自己紹介の手間が省けて助かるよ」
	PRINTFORMW 「そう、私はイーグルラヴィの鈴瑚。個人的にキミに興味があってさ、キミの事をもっと知りたいな～？」
	PRINTFORMW 「これからよろしくね。%CALLNAME:MASTER%♪」
	PRINTFORMDL 握手をしようと鈴瑚が手を差し出してきた。少なくとも清蘭のような敵意は感じられない。
	PRINTFORMDW ―たわわに実った胸の果実にちらりと目をやりながら―%CALLNAME:MASTER%は鈴瑚と握手を交わした。
	PRINTFORMW
ELSE
	PRINTFORML
	PRINTFORMDL ぐううぅぅぅ～
	PRINTFORMW
	PRINTFORMDL %CALLNAME:MASTER%は腹の虫を鳴らしながら、食事にありつける所を探して辺りを散策している。
	PRINTFORMDW しかし、こういう時に限って食事処が見つからない。もはや歩くのも億劫になってきた……
	PRINTFORMW 「あははは！すっごい大きな音だねぇ～。お腹に妖怪でも飼ってんの？」
	PRINTFORMDL 背後から聞こえてきた声の方に振り向くと、ハンチング帽と橘色のシャツが目を引く少女が立っていた。
	PRINTFORMDW 少女はこちらに近づくと、何かを差し出してきた。白くて丸い物が連なった…団子のような物だ。
	PRINTFORML 「ような、じゃなくて団子だよ」
	CALL COLORMESSAGE("「お腹空いてるんでしょ？いっぱいあるから食べていいよ」", C_ORANGE, 0, 0)
	SETCOLOR 0xFFFF00
	PRINTFORMW MGMG
	SETCOLOR 0xEE9900
	PRINTFORMDL 美味しそうに団子を食べる少女につられて%CALLNAME:MASTER%は団子を受け取り、口へ運んだ。
	PRINTFORMDW 口の中に甘みが広がる…！今までに食べたどの団子よりもおいしい！
	PRINTFORML 「大袈裟だなぁ～！でも、そう言ってもらえると私も作った甲斐があるってもんだよ…♪」
	PRINTFORMDW この少女は団子職人なのだろうか？ "何かお礼がしたい"と%CALLNAME:MASTER%は少女に言った。
	PRINTFORMW 「お礼かー…じゃあ、キミの事が知りたいな～"%CALLNAME:MASTER%"♪」
	PRINTFORMW 「……"何で名前を知ってる"って思った？それはねぇ…仕事柄、私には色々な情報が入ってくるからさ」
	PRINTFORML 「自己紹介がまだだったね……私の名前は鈴瑚。人里で話題の団子屋、"鈴瑚屋"の店主でもあり―」
	PRINTFORMW 「月の調査部隊<イーグルラヴィ>のメンバーさ。以後お見知りおきを」
	PRINTFORMDW 帽子を取り、芝居がかった所作でお辞儀をする鈴瑚。彼女の頭には玉兎の証であるウサ耳が付いていた…
	PRINTFORMW
ENDIF
RETURN 1

;@K108_BEFORETRAIN
;一日の開始時、正確には来訪判定時に読み込む関数,使うときはコメントアウトを外すこと
;ここでCFLAG:XX:翌日来訪を設定して確実に来訪させたりTCVAR:XX:発情で朝っぱらからサカらせることもできる
;ただし「毎朝例外なく読み込まれる」
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K108_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORML
	PRINTFORML 「%CALLNAME:MASTER%どう？美味しい？」
	PRINTFORMDL 帰路につく途中、鈴瑚に団子の試食を頼まれたので快く引き受けることにした。
	PRINTFORMDW きな粉がまぶされている為、綺麗に食べるのが少し難しいが…甘くてとても美味しい団子だ。
	PRINTFORML 「う～ん…ちょっときな粉の量減らした方がいいのかな～……」
	PRINTFORML 「―あ。%CALLNAME:MASTER%、頬っぺたにきな粉ついてるよ。取ってあげる」
	PRINTFORMDW お言葉に甘え、鈴瑚に取ってもらおうと顔を近づけた。
	CALL HPH_PRINT,@"「―ちゅHPH …はい、取れた♪」","W"
	PRINTFORML 「…どうしたの%CALLNAME:MASTER%？ほら…早く帰らないと暗くなっちゃうよ♪」
	PRINTFORMDW 今、何が起こったのか…理解が追い付かないまま鈴瑚に手を引かれて再び歩き始めた……
	PRINTFORMW （……キスって、こんなにドキドキするんだ……！）

	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K108_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		PRINTFORMDL 帰路につく途中、不意に鈴瑚が足を止めた。
		PRINTFORML 「…ねえ%CALLNAME:MASTER%。まだ時間あるし、ちょっとそこで休憩しない？」
		PRINTFORMDL 鈴瑚が指差した先には、丁度二人が並んで腰掛けられる大きさの岩があった。
		PRINTFORMDW
		CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		SETCOLOR 0xEE9900
		PRINTFORMDL ……鈴瑚は一言も会話せず、黙々と団子を食べている。
		PRINTFORMDW 埒が明かないので"何か話したい事があるんじゃないのか"と切り出した。
		PRINTFORML 「―！…ははっ…♪キミには敵わないや……」
		PRINTFORML 「……その…キミを地上人のサンプルとして調査をしてきたわけだけど……」
		PRINTFORMW 「%CALLNAME:MASTER%の事…もっと知りたい、というか……えっと…」
		PRINTFORMW 「―%CALLNAME:MASTER%！私、キミの事が好きっ！恋人に……！…なっても…いい…？」
		PRINTFORMDL 最後の方は消え入りそうな声だった…鈴瑚なりに勇気を出したのだろう。
		PRINTFORMDW 鈴瑚の告白に、%CALLNAME:MASTER%は―
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「―っ！…ホントに？嘘じゃ…ない…？」
		PRINTFORMDW 力強く頷き、"自分の恋人になって欲しい"とハッキリと言葉で伝えた。
		PRINTFORML 「……うんっ！」
		PRINTFORMDW 胸に飛び込んできた鈴瑚を何とか支え、力いっぱい抱きしめた…！
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「…っ！…そうだよね……私は玉兎、キミは地上人だ。種族が違うものね……」
		PRINTFORMW 「…ありがとう%CALLNAME:MASTER%♪何だかスッキリしたよ…！」
		PRINTFORML 「―あ、そうだ！私ちょっと用事あるんだ。悪いけど、先に帰ってて！じゃ！」
		PRINTFORMDW 一方的に捲し立てると、鈴瑚は空を飛んで行ってしまった。%CALLNAME:MASTER%は一人で帰路についた…
		PRINTFORMDW
		CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORMW MGMG
		CALL COLORMESSAGE("「……。」", C_ORANGE, 0, 0)
		PRINTFORMW MGMG
		CALL COLORMESSAGE("「―ぐすっ…！……う…うぅっ……！ひっ、く…！…うぅぅ…！」", C_ORANGE, 0, 0)
		PRINTFORMW MGMG
		;レイセン口上からお借りしました告白禁止フラグ
		SETBIT CFLAG:[[鈴瑚]]:约会後イベントフラグ , 1
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K108_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		IF CFLAG:318 == 1
			CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 鈴瑚と一言も会話しないまま帰ってきた……
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:5
				CASE 0
					PRINTFORML 「今日は楽しかったよ%CALLNAME:MASTER%」
					PRINTFORML 「また遊びに来ようね…♪」
					PRINTFORMDW 鈴瑚は今日のデートを楽しんでくれたようだ。
				CASE 1
					PRINTFORML 「あ～あ……そろそろ帰らなきゃね……」
					PRINTFORMDW "また遊びに来よう"と言うと、鈴瑚は微笑みながら頷いた。
				CASE 2
					PRINTFORML 「%CALLNAME:MASTER%…手、繋いで帰ろ♪」
					PRINTFORMDW 家に着くまでの間、鈴瑚と手を繋いで帰った。
				CASE 3
					PRINTFORMDL 鈴瑚とデート先から帰ってきた。楽しい時間が過ぎるのはあっという間だ。
					CALL HPH_PRINT,@"「…じゃあまたね%CALLNAME:MASTER%♪…ちゅHPH」","L"
					PRINTFORMDW 別れ際、頬に鈴瑚の口づけを貰った。
				CASE 4
					PRINTFORML 「―あ、そうだ%CALLNAME:MASTER%」
					PRINTFORML 「新しい団子作ったんだけど、食べてくれる？」
					PRINTFORMDW 鈴瑚が団子を食べさせてくれるようだ。%CALLNAME:MASTER%は口を開けた。
					IF TALENT:恋人
						CALL HPH_PRINT,@"「―あむっHPH…んぢゅっHPH…ちゅ…HPH…ぢゅうぅぅHPH」","L"
						CALL HPH_PRINT,@"「……ぷはっHPH…ふふっHPH…美味しかった…？HPH」","L"
						PRINTFORMDW 鈴瑚からの突然のディープキスに%CALLNAME:MASTER%は放心してしまった…
					ELSE
						PRINTFORMDL 目を閉じ、しっかりと団子を味わった……とても美味しい団子だった。
						PRINTFORMW 「本当？よかったよかった♪」
					ENDIF
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「こっから帰るのか～……時間かかるなぁ……」
					PRINTFORML 「―という事で%CALLNAME:MASTER%♪向こうに着くまで、キミの事を色々教えてもらおうかな？」
					PRINTFORMDW 鈴瑚と話をしながら帰路についた。
				CASE 1
					PRINTFORMDL ぐうぅぅ～～
					CALL COLORMESSAGE("「お～、凄い腹の虫だ。もうすぐ着くんだから我慢我慢」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					SETCOLOR 0xEE9900
					PRINTFORMDL "…………。"
					PRINTFORML 「……もう、わかったよ～…はい、どうぞ…！」
					PRINTFORMDW 鈴瑚に分けてもらった団子を食べながら帰路についた。
				CASE 2
					PRINTFORML 「ふ～……やっと着いたね。疲れた～…」
					PRINTFORML 「―じゃあまたね、%CALLNAME:MASTER%♪」
					PRINTFORMDW デート先から無事帰宅し、鈴瑚に手を振って別れた。
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMDL ぐうぅぅ～～
		PRINTFORMDW とてもお腹が空いた……もう何日も鈴瑚の団子を食べていない気がする……
		PRINTFORMW 「…ふぅ……はい、%CALLNAME:MASTER%。食べていいよ」
		PRINTFORMDL %CALLNAME:MASTER%は鈴瑚に礼を言い、団子へと手を伸ばした。
		PRINTFORMDW …が、手に触れる寸前で団子を取り上げられてしまった。
		PRINTFORML 「…私に言わなきゃいけない言葉は、"ありがとう"じゃないでしょ？」
		PRINTFORMDL "悪かった。もう二度とあんな事はしないから許してほしい"と%CALLNAME:MASTER%は謝罪した。
		PRINTFORML 「―いいよ♪はい、どうぞ！」
		PRINTFORMDW 久しぶりに食べた鈴瑚の団子は、とても甘くて美味しかった…！
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW …気まずい空気に耐え切れず、%CALLNAME:MASTER%は鈴瑚に以前の行いを詫びた。
		CALL COLORMESSAGE("「…何それ？そんな誠意の籠ってない謝罪なんていらないよ」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		SETCOLOR 0xEE9900
		PRINTFORMDW 鈴瑚の怒りはまだ収まっていないようだ…すたすたと先へ歩いていく鈴瑚を慌てて追いかけた…
		PRINTFORMW 「……謝るくらいなら、最初からあんな事するなっての……！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMDL ぐうぅぅ～～
		CALL COLORMESSAGE("「…凄い音だね。お腹空いてんの？」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		CALL COLORMESSAGE("「言っとくけど団子はあげないよ。たとえキミが餓死寸前でも絶対あげない」", C_ORANGE, 0, 0)
		PRINTFORML MGMG
		PRINTFORMDW 鈴瑚に相当嫌われてしまったようだ……
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※

;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K108_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;正月、バレンタイン、ハロウィン、クリスマスの場合
		IF (DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1) || (DAY:2 == 4 && DAY:3 == 14 && CFLAG:2 >= 1000) || (DAY:2 == 3 && DAY:3 == 30) || (DAY:2 == 4 && DAY:3 == 25)
			CALL SPECIALDAY_EVENT_K108
		ELSEIF CFLAG:318 == 1
			PRINTFORML 「ん…？……ああ、%CALLNAME:MASTER%か……」
			PRINTFORMDW 鈴瑚は何だか機嫌が悪そうだ…
		;仕事中ではなく、今日会ってない。
		ELSEIF !TCVAR:108:今天有否见面
			SELECTCASE TIME:2
				;朝
				CASE 1,2
					IF TALENT:恋慕
						PRINTFORML 「やあ、おはよう%CALLNAME:MASTER%！朝ご飯食べた？」
						PRINTFORMW 「まだなら作ってあげようか？なんて…♪」
					ELSE
						PRINTFORMW 「おはよう%CALLNAME:MASTER%。ちゃんと朝ご飯食べた？」
					ENDIF
				;昼
				CASE 3,4
					IF TALENT:恋慕
						PRINTFORML 「あ、%CALLNAME:MASTER%。今朝は一体何処に―」
						PRINTFORML 「…！…くんくん……この匂い、私に内緒で美味しい物食べてきたな～？」
						PRINTFORMDW まるで犬だ……
					ELSE
						PRINTFORML 「こんにちは%CALLNAME:MASTER%～…」
						PRINTFORML 「ふあぁ……！お昼食べた後って、どうしても眠くなるんだよね～……」
					ENDIF
				;夜
				CASE 5,6,7
					IF TALENT:恋慕
						PRINTFORML 「こんばんは%CALLNAME:MASTER%」
						PRINTFORMW 「……今日、寂しかったよ…？」
					ELSE
						PRINTFORML 「ん？こんばんは%CALLNAME:MASTER%ー。今帰ってきたの？」
						CALL COLORMESSAGE("「私はディナー後のデザートを堪能してるところさ」", C_ORANGE, 0, 0)
						SETCOLOR 0xFFFF00
						PRINTFORMW MGMG
					ENDIF
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
				CASE 0
					CALL COLORMESSAGE("「やあ。さっきぶり」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORMW MGMG
				CASE 1
					CALL COLORMESSAGE("「今日はよく会うね」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORMW MGMG
			ENDSELECT
		ENDIF
		RETURN 1
		;-------------------------------------------------
		;TARGETが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 2
			;正月、バレンタイン、ハロウィン、クリスマスの場合
			IF (DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1) || (DAY:2 == 4 && DAY:3 == 14 && CFLAG:2 >= 1000) || (DAY:2 == 3 && DAY:3 == 30) || (DAY:2 == 4 && DAY:3 == 25)
				CALL SPECIALDAY_EVENT_K108
			ELSEIF CFLAG:318 == 1
				PRINTFORML 「…………。」
				PRINTFORMDW 鈴瑚は部屋に入ってきても、こちらと目を合わせようとしない…
			IF TALENT:恋人
				PRINTFORML 「来たよ%CALLNAME:MASTER%。はい、これお土産」
				CALL COLORMESSAGE("「よっと……お腹空いた～…団子団子♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 当前の様に、鈴瑚は隣に座って寛ぎ始めた。
			ELSEIF TALENT:恋慕
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPHお、お邪魔します…HPH」","L"
				PRINTFORMDW 鈴瑚はおずおずと部屋に入ってきた。
			ELSEIF TALENT:思慕
				PRINTFORML 「お邪魔しま～す」
				PRINTFORML 「―では早速、キミが隠しているであろう"ナニか"の調査を……♪」
				PRINTFORMDW 追い返した方がいいだろうか……
			ELSE
				PRINTFORML 「やあ%CALLNAME:MASTER%、遊びに来たよ」
				PRINTFORML 「手ぶらじゃ何だと思って、団子作ってきたよ。どうぞ♪」
				PRINTFORMDW 鈴瑚に団子を貰った。後で一緒に食べるとしよう。
			ENDIF
		ENDIF
		RETURN 1
		;-------------------------------------------------
		;TARGETが風呂に入ってきて一緒に入る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 3
			IF TALENT:恋人
				PRINTFORMW 「あら？%CALLNAME:MASTER%、お風呂入ってたんだ」
				PRINTFORML 「丁度いいや♪私も入るから背中流してよ。いいでしょ？」
				PRINTFORMDW 鈴瑚と一緒に風呂に入ることになった。
			ELSEIF TALENT:恋慕
				PRINTFORML 「―ッ！？%CALLNAME:MASTER%！？」
				PRINTFORML 「……えっと、その……！」
				PRINTFORML 「い、一緒に……入ってもいい…かな…？」
				PRINTFORMDW 鈴瑚はおずおずと風呂に入ってきた…
			ELSE
				PRINTFORML 「―ッ！？%CALLNAME:MASTER%！？」
				PRINTFORML 「……あはは…い、いいよそのまま入ってて…！」
				PRINTFORML 「身体洗ったら、すぐ出るからさ……」
				PRINTFORMDW 鈴瑚と一緒に風呂に入ることになった……
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
		;-------------------------------------------------
		;TARGETが風呂に入ってきて出て行った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 4
			PRINTFORML 「―っ！？…ゴ、ゴメン！すぐに出るから…！」
			PRINTFORMDW こちらが呼び止める前に、鈴瑚はいそいそと引き返していった……
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが風呂に入ってきて追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 5
			PRINTFORML 「…えっ！？%CALLNAME:MASTER%―」
			PRINTFORMDL 咄嗟に時を止め、%CALLNAME:MASTER%は風呂場から脱出した……！
			PRINTFORML 「ゴ、ゴメン！すぐに―」
			PRINTFORMW 「…あれ？%CALLNAME:MASTER%は……？」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;外出先で遭遇した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 6
			;正月、バレンタイン、ハロウィン、クリスマスの場合
			IF (DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1) || (DAY:2 == 4 && DAY:3 == 14 && CFLAG:2 >= 1000) || (DAY:2 == 3 && DAY:3 == 30) || (DAY:2 == 4 && DAY:3 == 25)
				CALL SPECIALDAY_EVENT_K108
			ELSEIF CFLAG:318 == 1
				PRINTFORML 「……何でここにいるのさ」
				PRINTFORMDW 鈴瑚に睨まれてしまった…
			ELSE
				SELECTCASE CFLAG:現在位置
					;人間の里
					CASE 201,202,203,204,205,206,230,240,210,220,230,240,250,270
						SELECTCASE RAND:3
							CASE 0
								PRINTFORML 「いらっしゃ～い♪鈴瑚屋にようこそ～！」
								PRINTFORMDW 今日の鈴瑚は団子屋の仕事をしているようだ。
							CASE 1
								PRINTFORML 「はい！毎度♪」
								PRINTFORMDW 折角なので、団子を一本購入した。
							CASE 2
								PRINTFORML 「いらっしゃ―あら、%CALLNAME:MASTER%」
								PRINTFORMW 「今日は何にする？」
						ENDSELECT
					CASEELSE
						PRINTFORML 「あれ？%CALLNAME:MASTER%？」
						IF TALENT:恋人
							CALL COLORMESSAGE("「私がキミに捨てられて傷心してるって時に、ここで何してんのさ？」", C_ORANGE, 0, 0)
							SETCOLOR 0xFFFF00
							PRINTFORML MGMG
							PRINTFORMDW 人聞きの悪い……
						ELSEIF TALENT:恋慕
							PRINTFORMW 「こんな所で会えるなんて、嬉しいなぁ…♪」
						ELSE
							CALL COLORMESSAGE("「こんな所で何してんの？」", C_ORANGE, 0, 0)
							SETCOLOR 0xFFFF00
							PRINTFORMW MGMG
						ENDIF
				ENDSELECT
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとデート中に遭遇した
		;ARG:1に约会的对象
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 7
			IF FLAG:约会的对象 == 52;鈴仙
				IF TALENT:108:恋人
					PRINTFORMW 「楽しそうだね～？%CALLNAME:MASTER%に鈴仙♪」
					PRINTFORMDL よく知る人物の声に思わず反応してしまう鈴仙と%CALLNAME:MASTER%。
					PRINTFORMDW 振り向くと、鈴瑚が満面の笑顔で団子を食べていた…
					CALL COLORMESSAGE("「あー、いいよいいよお構いなく♪存分に二人でイチャイチャしててよ…♪」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 言葉が上手く出ず、口をパクパクとする二人の脇を、鈴瑚は気にもせず通り過ぎて行く…
					PRINTFORML （今夜、私の部屋で"じっくり"お話ししようね%CALLNAME:MASTER%…♪）
					PRINTFORMDW すれ違いざま、鈴瑚は凍り付くような笑顔で耳打ちしてきた……
				ELSEIF TALENT:52:恋人
					CALL COLORMESSAGE("「やあ二人とも。相変わらず仲いいねぇ」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					SETCOLOR 0xEE9900
					PRINTFORMW 「―はいはい。言われなくてもお邪魔虫は退散しますよ～っと…」
					PRINTFORML （鈴仙を泣かせたら承知しないからね）
					PRINTFORMDW すれ違いざま、鈴瑚が%CALLNAME:MASTER%に耳打ちしてきた…
				ELSEIF TALENT:108:恋慕
					PRINTFORML （%CALLNAME:MASTER%と鈴仙……楽しそうだなぁ…）
					PRINTFORML （そうだよね…鈴仙は綺麗だし優しいし、%CALLNAME:MASTER%もきっと私より鈴仙の方が……）
					PRINTFORMDW …鈴瑚が物陰からジッとこちらを見ている。
				ELSE
					PRINTFORML 「おっ？%CALLNAME:MASTER%と…鈴仙？」
					CALL COLORMESSAGE("「……もしかしてお邪魔だったかな？」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚はちょっと気まずそうだ。
				ENDIF
			ELSEIF FLAG:约会的对象 == 62;輝夜
				PRINTFORML （……この人……もしかして姫様？）
				PRINTFORMW （%CALLNAME:MASTER%やるなぁ…）
			ELSEIF FLAG:约会的对象 == 72;永琳
				PRINTFORML （%CALLNAME:MASTER%と八意様…二人でどこ行くんだろ…？）
				PRINTFORMW （―臨床実験？…いや、まさかね…）
			ELSEIF FLAG:约会的对象 == 98;依姫
				PRINTFORML （%CALLNAME:MASTER%と…依姫様！？）
				PRINTFORML （%CALLNAME:MASTER%…一体何やらかしたんだ…？）
				PRINTFORMDW 鈴瑚は心配そうな顔をしている……
			ELSEIF FLAG:约会的对象 == 99;豊姫
				PRINTFORML （豊姫様と%CALLNAME:MASTER%…二人で何してるんだろ？）
				PRINTFORML （あの方は、何考えてるのかよく分からないからなぁ……）
				PRINTFORMDW 鈴瑚はジッとこちらを見ている……
			ELSEIF FLAG:约会的对象 == 100;レイセン
				PRINTFORML 「…君って依姫様の直属だし、すっごい真面目な玉兎だと思ってたけど…」
				PRINTFORML 「以外とやることやってんだね～？」
				PRINTFORMDW 鈴瑚は悪戯っぽく笑いながらレイセンを見ている…
			ELSEIF FLAG:约会的对象 == 107;清蘭
				IF TALENT:108:恋人
					PRINTFORML 『清蘭、ダメじゃない。私から%CALLNAME:MASTER%取っちゃ』
					SETCOLOR 0x00A9D4
					PRINTFORML 「―えっ！？り、鈴瑚！？何処にいるの！？」
					PRINTFORMDW 突然清蘭がビクッと身体を震わせた。察するに、鈴瑚からのテレパシーを受け取ったようだ。
					IF TALENT:107:恋慕
						SETCOLOR 0x00A9D4
						PRINTFORML 『ご、ごめん……だって！私も%CALLNAME:MASTER%とデートしたかったんだもん！』
						SETCOLOR 0xEE9900
						PRINTFORMW 『今日は私の番って約束だったでしょ？…しょうがないなぁ、清蘭は…♪』
					ELSE
						SETCOLOR 0x00A9D4
						PRINTFORML 『ち、違うの！たまたま%CALLNAME:MASTER%と会ったってだけで…！別に取るとかそう言うんじゃ…！』
						SETCOLOR 0xEE9900
						PRINTFORMW 『ホントに～？…まあ、そういう事にしとくか』
					ENDIF
					SETCOLOR 0xEE9900
					PRINTFORML 「―じゃあ今度は、キミの言い分を聞かせて貰おうか%CALLNAME:MASTER%♪」
					PRINTFORMDW 後ろから鈴瑚の声が聞こえてきたのと同時に、肩に手が置かれた……
				ELSEIF TALENT:107:恋人
					PRINTFORMW 「うんうん、ちゃんと清蘭と仲良くしてるね%CALLNAME:MASTER%」
					IF TALENT:108:恋慕
						CALL HPH_PRINT,@"（でも…たまには私の事もかまって欲しいな…HPH）","L"
						PRINTFORMDW 鈴瑚に耳元で囁かれた……
						SETCOLOR 0x00A9D4
						PRINTFORML 「はい、そこまでー。堂々と誘惑しないでくださーい」
						SETCOLOR 0xEE9900
						PRINTFORMW 「はは、バレたか」
					ELSE
						PRINTFORML 「わかってると思うけど、浮気なんかしたら私が絶対に許さないからね」
						SETCOLOR 0x00A9D4
						PRINTFORMW 「…心配してくれるのは嬉しいけど、今はデート中なんですけど～？」
					ENDIF
				ELSEIF TALENT:恋慕
					PRINTFORML （清蘭…あんなに楽しそうに%CALLNAME:MASTER%と遊んでる…）
					PRINTFORML （%CALLNAME:MASTER%も、清蘭みたいな明るい子の方がいいに決まってるよね……）
					PRINTFORMDW 鈴瑚は物陰からジッと%CALLNAME:MASTER%たちを見ている。
				ELSE
					CALL COLORMESSAGE("「いや～お似合いですなぁ、お二人さん♪」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					SETCOLOR 0x00A9D4
					PRINTFORML 「あ～！また団子食べてる！そんなに食べてばっかだと太るわよ？」
					SETCOLOR 0xEE9900
					PRINTFORMW 「大丈夫だよ～♪私は清蘭と違って、栄養が胸に行くタイプだから」
					SETCOLOR 0x00A9D4
					PRINTFORML 『こちら清蘭。これより鈴瑚を浄化する』
					PRINTFORMDW 鈴瑚と清蘭はとても仲が良いようだ。
				ENDIF
			ELSEIF FLAG:约会的对象 == 109;ドレミー
				IF TALENT:108:恋慕
					PRINTFORML 「……これが君の見せる悪夢ってわけ？」
					PRINTFORML 「はは…！だとしたら、本当に悪趣味だな…！」
					PRINTFORMDW 鈴瑚はドレミーに敵意を向けているようだ……
				ELSE
					CALL COLORMESSAGE("「バクって確か草食の筈だけど…君は違うみたいだね」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW ドレミーは隣で笑みを浮かべている。
				ENDIF
			ELSEIF FLAG:约会的对象 == 110;サグメ
				IF TALENT:108:恋慕
					PRINTFORML （%CALLNAME:MASTER%と一緒にいるサグメ様…楽しそうだな…）
					CALL COLORMESSAGE("「はぁ～…いいなぁ……」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚は遠巻きにこちらを見ながら団子を食べている…
				ELSE
					PRINTFORML （サグメ様だ。粗相の無いようにっと……）
					PRINTFORMDW 鈴瑚は頭を垂れている…
				ENDIF
			ELSEIF FLAG:约会的对象 == 111;クラウンピース
				IF TALENT:108:恋慕
					PRINTFORML 「…%CALLNAME:MASTER%。その妖精は危険だから、あまり関わらない方がいいよ」
					PRINTFORMDW クラウンピースは鈴瑚に"べー"と舌を出している…
				ELSE
					PRINTFORML 「君は確か…前に月を襲撃しに来た妖精だね」
					PRINTFORML 「先に言っとくけど、その松明は私達玉兎には効かないよ」
					PRINTFORMDW 何だか険悪な雰囲気だ……
				ENDIF
			ELSEIF FLAG:约会的对象 == 112;純狐
				IF TALENT:108:恋慕
					PRINTFORML 「…%CALLNAME:MASTER%。キミはその女が何者か、わかってて一緒にいるの？」
					PRINTFORML 「私はキミを信じてるからね……」
					PRINTFORMDW 鈴瑚は悲しそうな表情で%CALLNAME:MASTER%を見つめている…
				ELSE
					PRINTFORML （この女が…嫦娥様をつけ狙ってる奴か…！）
					PRINTFORML 「…我々と貴女方は休戦中の筈ですが…こんな所で何をしておられるので？」
					PRINTFORMDW 警戒している鈴瑚を、純狐は無言で見つめている…
				ENDIF
			ELSEIF FLAG:约会的对象 == 113;ヘカーティア
				IF TALENT:108:恋慕
					PRINTFORML 「…えっと…大丈夫だよ、%CALLNAME:MASTER%……」
					PRINTFORML 「私はキミがどんな格好をしても、嫌いになったりしないから……」
					PRINTFORMDW ペアルックでも想像しているのだろうか、鈴瑚はヘカーティアのTシャツをチラチラと見ている…
				ELSE
					PRINTFORML （"ウェルカム・ヘル"…？ 何だ？あの変なTシャツ……）
					CALL COLORMESSAGE("（…関わらないようにしよっと……）", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚は遠巻きにこちらを見ている……
				ENDIF
			ELSEIF TALENT:108:恋人
				PRINTFORML 「あれ～？%CALLNAME:MASTER%、その人はお友達かな～？」
				PRINTFORMDL 他の女性とのデートを鈴瑚に見られてしまった…声色は明るいが、その目は全く笑っていない…
				PRINTFORMDW 必ず埋め合わせはするから、と逃げるようにその場を後にした…
			ELSEIF TALENT:恋慕
				CALL COLORMESSAGE("（……私といる時より、ずっと楽しそう…）", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW …鈴瑚の視線をどこかから感じる。
			ELSE
				SELECTCASE CFLAG:現在位置
					;人間の里
					CASE 201,202,203,204,205,206,230,240,210,220,230,240,250,270
						SELECTCASE RAND:2
							CASE 0
								PRINTFORML 「いらっしゃ～い♪鈴瑚屋にようこそ～！」
								PRINTFORML 「そこのお二方♪デートのお供に団子はいかが？」
								PRINTFORMDW せっかくなので、一本購入した。
							CASE 1
								PRINTFORML 「お～い！%CALLNAME:MASTER%～♪」
								PRINTFORML （彼女に団子買ってあげて、いい所見せてやりなよ♪）
								PRINTFORMDW 仕方なく団子を購入し、二人で食べた。
						ENDSELECT
					CASEELSE
						CALL COLORMESSAGE("（お邪魔虫は退散っと……）", C_ORANGE, 0, 0)
						SETCOLOR 0xFFFF00
						PRINTFORML MGMG
						PRINTFORMDW 何かを察したのか、鈴瑚は近づいてこなかった。
				ENDSELECT
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K108_2(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1

		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			SELECTCASE TIME:2
				;朝
				CASE 1,2
					SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「%CALLNAME:MASTER%おはよう…って、まだ眠そうだね」
							PRINTFORML 「顔洗ってきなよ。スッキリするよ」
							PRINTFORMDW お言葉に甘え、洗面所を使わせて貰う事にした。
						CASE 1
							PRINTFORMW 「あ、%CALLNAME:MASTER%おはよ……」
								IF TALENT:恋人
									CALL HPH_PRINT,@" 「…ホント、朝から元気だね…HPH」","L"
									PRINTFORMDW 鈴瑚が朝勃ちした息子を手で擦ってくる……
								ELSE
									PRINTFORML 「…目のやり場に困るから…"それ"を何とかして欲しいな？」
									PRINTFORMDW 鈴瑚に朝の生理現象を見られてしまった…
								ENDIF
						CASE 2
							PRINTFORMDL 何だか美味しそうな匂いがする……%CALLNAME:MASTER%は目を覚ました。
							CALL COLORMESSAGE("「おはよ。惜しかったね～もうちょっと早く起きてたら、私の朝ご飯食べれたのに」", C_ORANGE, 0, 0)
							SETCOLOR 0xFFFF00
							PRINTFORML MGMG
							PRINTFORMDW 少し残念な気持ちになりながら、%CALLNAME:MASTER%は身体を起こした。
					ENDSELECT
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%おはよう」
					PRINTFORML 「…いや、おそよう…かな？」
					PRINTFORMDW どうやら寝すぎてしまったようだ……
			ENDSELECT
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			SELECTCASE TIME:2
				;朝
				CASE 1,2
					SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「あ、%CALLNAME:MASTER%起き―」
							PRINTFORML 「ぷっ！あっはははは！すっごい寝ぐせ！」
							PRINTFORMDW 鈴瑚に笑われ、恥ずかしい気持ちになりながら洗面台へ向かった……
						CASE 1
							PRINTFORMW 「あ、%CALLNAME:MASTER%おはよ……」
							IF TALENT:恋人
								CALL HPH_PRINT,@" 「…ホント、朝から元気だね…HPH」","L"
								PRINTFORMDW 鈴瑚が朝勃ちした息子を手で擦ってくる……
							ELSE
								PRINTFORML 「…目のやり場に困るから…"それ"を何とかして欲しいな？」
								PRINTFORMDW 鈴瑚に朝の生理現象を見られてしまった…
							ENDIF
						CASE 2
							PRINTFORMDL 何だか美味しそうな匂いがする……%CALLNAME:MASTER%は目を覚ました。
							CALL COLORMESSAGE("「おはよ。惜しかったね～もうちょっと早く起きてたら、私の朝ご飯食べれたのに」", C_ORANGE, 0, 0)
							SETCOLOR 0xFFFF00
							PRINTFORML MGMG
							PRINTFORMDW 少し残念な気持ちになりながら、%CALLNAME:MASTER%は身体を起こした。
					ENDSELECT
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%おはよう」
					PRINTFORML 「…いや、おそよう…かな？」
					PRINTFORMDW どうやら寝すぎてしまったようだ……
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE TIME:2
		;朝
		CASE 1,2
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%ー！おーい、起きろー！」
					PRINTFORMDL ゆさゆさと%CALLNAME:MASTER%の体を揺さぶるが起きる気配は無い。
					PRINTFORML 「う～ん…布団片付けたいから、早く起きて欲しいんだけどな……」
					PRINTFORMW 「……よーし、"アレ"やっちゃいますか…♪」
					PRINTFORMW
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMDW 股間に柔らかい感触を感じて目を覚ますと…鈴瑚が曝け出した乳房を巧みに使い、朝勃ちしたペニスを擦り上げていた。
							PRINTFORML 「おー、やっと起きたね%CALLNAME:MASTER%。おはよう♪」
							CALL HPH_PRINT,@"「こうすればっ…寝坊助のキミでも目を覚ますとっ…思ってさ…HPH」","W"
							PRINTFORMDL %CALLNAME:MASTER%と話している最中も、鈴瑚は胸で肉棒を擦り続けている……
							PRINTFORMDW 長時間の愛撫のせいか、懸命に奉仕してくれる姿に興奮したのか…射精感が込み上げてきた…！
							CALL HPH_PRINT,@"「…ん～？もう射精そう？……わかったHPH」","L"
							CALL HPH_PRINT,@"「―はぷっHPHぢゅうううぅぅ――HPH HPH」","L"
							PRINTFORMDW 亀頭を吸い上げられ、%CALLNAME:MASTER%は視界が真っ白になった―
							CALL HPH_PRINT,@"「んん゛っ…！ ん…HPH ぷあっHPH」","L"
							CALL HPH_PRINT,@"「ははっ…HPH すっごい勢い…HPH ちょっと顔にかかっちゃったHPH」","L"
							CALL HPH_PRINT,@"「ん…HPH れるっ…HPH ちゅ…HPH」","W"
							PRINTFORML 「…ふふっ♪どう？目、覚めた？」
							PRINTFORMDW %CALLNAME:MASTER%は頷き、よろよろと身体を起こした…
							BASE:MASTER:精力 -= 200
						CASE 1
							CALL HPH_PRINT,@"「んっHPH じゅぽっHPH じゅぽっ……HPH」","L"
							CALL HPH_PRINT,@"「……ん？…おふぁよ…HPH%CALLNAME:MASTER%…♪」","L"
							PRINTFORMDL %CALLNAME:MASTER%が目を覚ますと、鈴瑚が口にペニスを咥えていた……
							CALL HPH_PRINT,@"「ぷはっ！…いや～…キミ起こしても全然起きないし……こ～んなおっきいのが目の前にあれば……ねぇ？HPH」","L"
							PRINTFORMW 「―さて！それじゃあ早く布団片づけて、朝ご飯食べよっか♪」
							PRINTFORMDL %CALLNAME:MASTER%は無意識のうちに、踵を返そうとする鈴瑚の腕を掴んでいた…！
							CALL HPH_PRINT,@"「…な～に%CALLNAME:MASTER%？シて欲しい事があるなら、ちゃんと言わなきゃ…HPH」","W"
							PRINTFORMDL 鈴瑚はニヤニヤと意地の悪い笑みを浮かべている。間違いなく分かってやっているのだろう…
							PRINTFORMDW %CALLNAME:MASTER%は欲望には勝てず、"射精させてほしい"と鈴瑚に頼んだ……
							CALL HPH_PRINT,@"「……ッHPH HPH…仕方ないなぁ～…HPH %CALLNAME:MASTER%がそこまで言うなら、イかせてあげるよHPH」","L"
							CALL HPH_PRINT,@"「あむっ…HPH じゅるるうぅっHPH じゅぽっHPH じゅぼっHPH じゅるううぅっHPH HPH 」","W"
							PRINTFORMDL 鈴瑚は激しく頭を前後させ、ペニスを刺激してきた…！
							PRINTFORMDW %CALLNAME:MASTER%は思わず鈴瑚の後頭部を掴んで、ペニスを喉奥に捻じ込んだ―
							CALL HPH_PRINT,@"「んぐっ！？ん゛ぶっ…！ん゛ん……HPH……ごく…HPH…ごくっ…HPH」","L"
							CALL HPH_PRINT,@"「―ぷはっ！…はぁ…HPHはぁ…HPH ふぅ…苦しかった…HPH」","W"
							CALL HPH_PRINT,@"「…も～、ああいう事する時はちゃんと言ってよね…HPH」","L"
							PRINTFORMDW 口調は少し怒っているが、鈴瑚は何処か嬉しそうに微笑んだ。
							BASE:MASTER:精力 -= 200
					ENDSELECT
				CASE 1
					PRINTFORML 「あ、%CALLNAME:MASTER%起き―」
					PRINTFORML 「ぷっ！あっはははは！すっごい寝ぐせ！」
					PRINTFORMDW 鈴瑚に笑われ、恥ずかしい気持ちになりながら洗面台へ向かった……
				CASE 2
					PRINTFORMW 「あ、%CALLNAME:MASTER%おはよ……」
					IF TALENT:恋人
						CALL HPH_PRINT,@" 「…ホント、朝から元気だね…HPH」","L"
						PRINTFORMDW 鈴瑚が朝勃ちした息子を手で擦ってくる……
					ELSE
						PRINTFORML 「…目のやり場に困るから…"それ"を何とかして欲しいな？」
						PRINTFORMDW 鈴瑚に朝の生理現象を見られてしまった…
					ENDIF
				CASE 3
					PRINTFORMDL 何だか美味しそうな匂いがする……%CALLNAME:MASTER%は目を覚ました。
					CALL COLORMESSAGE("「おはよ。惜しかったね～もうちょっと早く起きてたら、私の朝ご飯食べれたのに」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 少し残念な気持ちになりながら、%CALLNAME:MASTER%は身体を起こした。
				ENDSELECT
		CASEELSE
				PRINTFORML 「%CALLNAME:MASTER%おはよう」
				PRINTFORML 「…いや、おそよう…かな？」
				PRINTFORMDW どうやら寝すぎてしまったようだ……
		ENDSELECT
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		CALL HPH_PRINT,@"「ん……へへ…%CALLNAME:MASTER%…HPH」","L"
		PRINTFORMDW 鈴瑚を起こさないよう、優しく頭を撫でた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML 「おはよ、%CALLNAME:MASTER%……」
			PRINTFORML 「いや～…昨日はみっともない所見せちゃって悪かったね…」
			PRINTFORMDW 鈴瑚は、ばつが悪そうに頭を掻いている。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML 「…おはよ～…ねむっ……」
					PRINTFORMDW 鈴瑚はまだ眠そうだ…
				CASE 1
					PRINTFORML 「帽子～…あれ？帽子何処いった…？」
					PRINTFORMDW 鈴瑚は帽子を被ったまま、帽子を探している……
				CASE 2
					CALL COLORMESSAGE("「おはよ～…今日の朝ご飯なに？」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚は団子を食べながら、朝ご飯を要求してきた……
				CASE 3
					PRINTFORML 「%CALLNAME:MASTER%おはよ～」
					CALL HPH_PRINT,@"「んっ…HPH 今日もよろしくね♪」","L"
					PRINTFORMDW 鈴瑚は軽く口づけをすると、着替えを取りに行った。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰って寝る（～は【現在地】から【キャラの自室】に戻りました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF ARG:1
			;デート中に眠くて帰って寝る（拠点キャラのみ）
			PRINTFORML 「%CALLNAME:MASTER%～悪いけど、明日早いから今日は帰るね～…」
			PRINTFORML 「また誘ってね～おやすみ～……」
			PRINTFORMDW 鈴瑚はふらつく足取りで家に帰っていった…
		ELSEIF CFLAG:诶嘿嘿
			;诶嘿嘿中に眠くて自室に帰って寝る（拠点キャラのみ）
			PRINTFORML 「も、もう帰らなきゃ！じゃあね%CALLNAME:MASTER%っ」
			PRINTFORMDW 鈴瑚は慌ただしく服を着て、急いで帰っていった…
		ELSE
			PRINTFORML 「おやすみ%CALLNAME:MASTER%～…また明日～……」
			PRINTFORMDW 鈴瑚はひらひらと手を振って帰っていった。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている（～は眠そうにしている）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「…………。」
				PRINTFORMDW 鈴瑚は目を開けたまま寝ている……
			CASE 1
				PRINTFORML 「%CALLNAME:MASTER%～…夜更かしすると…明日が辛いよ……」
				PRINTFORMDW 鈴瑚はとても眠そうだ……
			CASE 2
				PRINTFORML 「……ごめん……聞いて…なかった……団子、食べるの……？」
				PRINTFORMDW 鈴瑚は今にも寝てしまいそうだ…
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（～は眠っている）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE RAND:10
			CASE 0
				PRINTFORML 「すぅ……すぅ……」
				PRINTFORMDW 鈴瑚は規則正しい寝息を立てている。
			CASE 1
				PRINTFORML 「……枕…？…何か怪しいからいらない……」
				PRINTFORMDW よくわからない寝言を言っている……
			CASE 2
				CALL COLORMESSAGE("「…清蘭の団子…美味しい…♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 清蘭の夢を見ているようだ。
			CASE 3
				PRINTFORML 「…鈴仙のしっぽ…ふふ…♪」
				PRINTFORMDW 鈴仙の夢を見ているのだろうか…？
			CASE 4
				PRINTFORML 「…%CALLNAME:MASTER%は…まず塩コショウで下味を付けて…」
				PRINTFORMDW 鈴瑚はどんな夢を見ているのだろう…？
			CASE 5
				PRINTFORML 「…限定スイーツが売り切れ…？…うぅぅ…！」
				PRINTFORMW 鈴瑚はうなされている…
			CASE 6
				PRINTFORML 「…地上の調査は…順調…です…」
				PRINTFORMDW 鈴瑚は夢の中でも働いている。
			CASE 7
				PRINTFORML 「……んぅ……%CALLNAME:MASTER%…♪」
				PRINTFORMDW 寝返りを打ってずれた布団をかけ直しておいた。
			CASE 8
				CALL COLORMESSAGE("「…んまい…♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 夢の中で何か食べてるのか、口をもごもご動かしている。
			CASE 9
				IF TALENT:恋慕
					PRINTFORMDL "鈴瑚、好きだよ"と、寝ている鈴瑚に囁いた。
					CALL HPH_PRINT,@"「……私も…HPH」","W"
				ELSE
					PRINTFORMDL 鈴瑚の枕元に置かれた帽子が目に留まったので、被ってみた。
					PRINTFORMDW "は～い♪私は鈴瑚！"
					PRINTFORML 「―ぷっ！…あっ…Zzz～……」
					PRINTFORMDW …帽子を脱いで、元の位置に戻しておいた。
				ENDIF
		ENDSELECT
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「……ん…んう…っ」
			CASE 1
				PRINTFORMW 「ん……ふぁ…ぁっ」
			CASE 2
				PRINTFORMW （え…？%CALLNAME:MASTER%…！？…何してっ…！）
			ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;衰弱して寝る（体力500以下,诶嘿嘿時は诶嘿嘿強制終了）
	;（キャラの自室以外：～を【現在地】から【キャラの自室】に運びました）
	;（キャラの自室　　：～は疲れたと言って、横になりました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中にダウン
			PRINTFORML 「ちょっと…きゅうけい……」
			PRINTFORMDW 鈴瑚は気絶するように寝てしまった…
		ELSE
			PRINTFORMW 「%CALLNAME:MASTER%ゴメン…ちょっと横になるね…」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（恋慕のみ,そのまま一日が終了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;お酒でダウン
		IF BASE:MASTER:酒気 >= MAXBASE:MASTER:酒気
			IF ARG:1
				;自室でダウン,（～が【MASTER】をベッド（布団）へと運んでくれた…）
				PRINTFORML 「…%CALLNAME:MASTER%～？お～い！」
				PRINTFORML 「もう…"酒は飲んでも飲まれるな"ってあれほど言ったのに…」
				PRINTFORML 「え～っと……たしか横向きに寝かせればいいんだっけ……？」
				PRINTFORMDW 鈴瑚に布団を用意してもらい、眠りについた……
			ELSE
				;部屋まで運ばれる,（～が【MASTER】を私室へと運んでくれた…）
				PRINTFORML 「…%CALLNAME:MASTER%～？お～い！」
				PRINTFORML 「もう…"酒は飲んでも飲まれるな"ってあれほど言ったのに…」
				PRINTFORML 「ほら、肩貸してあげるから―うっ！酒くさっ！どんだけ飲んだのよ…！」
				PRINTFORMDW %CALLNAME:MASTER%は何とか帰宅したが、鈴瑚にこっぴどく叱られた…
			ENDIF
		;体力切れでダウン
		ELSE
			IF ARG:1
				;自室でダウン,（～が【MASTER】をベッド（布団）へと運んでくれた…）
				PRINTFORML 「…%CALLNAME:MASTER%、なんか顔色悪いよ？今日はもう休んだら？」
				PRINTFORML 「"添い寝して"？…冗談言える余裕はあるみたいね……」
				PRINTFORMDW 鈴瑚に布団を用意してもらい、そのまま眠った……
			ELSE
				;部屋まで運ばれる,（～が【MASTER】を私室へと運んでくれた…）
				PRINTFORMDL  …………。
				PRINTFORML 「…ん？目覚めた？%CALLNAME:MASTER%。覚えてないかもだけど、キミ急にぶっ倒れたんだよ」
				PRINTFORML 「多分疲れてたんだろうね…お粥作っといたから、元気になったら食べて」
				PRINTFORMDW 鈴瑚に礼を言い、再び眠りに落ちた……
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが寝るために自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た（【TARGET】が部屋に戻ってきた→寝間着へと着替え、寝床に潜った）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			PRINTFORML 「%CALLNAME:MASTER%いたの…」
			PRINTFORML 「悪いけど、今日はもう寝るね…おやすみ～…」
			PRINTFORMDW 余程疲れていたのか、鈴瑚はすぐに寝息を立て始めた…
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出して寝た（眠そうな【TARGET】に追い出された…）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「…一緒に寝たいって？寝言は寝て言えっての……」
			PRINTFORMDW 余程眠いのか、鈴瑚は機嫌が悪い…今日は大人しく帰ることにした。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た（【TARGET】が部屋に戻ってきた→唇をとがらせる【TARGET】に、【MASTER】は渋々【Ｈの相手】から離れた）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML 「…色々言いたい事はあるけど、眠いから勘弁してあげるよ……」
			IF TALENT:恋人
				PRINTFORML 「とりあえず%CALLNAME:MASTER%は明日死刑ね……」
				PRINTFORMDW 明日が怖い……
			ELSE
				PRINTFORML 「気が変わらない内にさっさと帰って……」
				PRINTFORMDW 鈴瑚は不機嫌そうな顔をしながら、布団に潜り込んだ……
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;来訪キャラが拠点で休憩（～は疲れ切っている→ちょっと休んでいきなよ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW 「悪いね…そうさせてもらうよ…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝室に居る状態でその場で寝る（～は眠気に負け、眠りについた…）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中に寝る
			PRINTFORML 「ちょっと…きゅうけい……」
			PRINTFORMDW 鈴瑚は気絶するように寝てしまった…
		ELSE
			PRINTFORML 「悪いけど、今日はもう寝るね…おやすみ～…」
			PRINTFORMDW 余程疲れていたのか、鈴瑚はすぐに寝息を立て始めた…
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;拠点外で自宅前に居るキャラが自室に帰って寝る（眠くなった～は自室に帰って行きました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 10
		PRINTFORMW 「それじゃ、今日は帰るね。おやすみ%CALLNAME:MASTER%」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF FLAG:時間停止
			PRINTFORMDW 鈴瑚がいた。時が止まっているため、話しかけても返事は無い。
		ELSE
			IF TALENT:恋人
				CALL COLORMESSAGE("「お待ちしておりました～…なんてね♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚が団子を食べながら近づいてきた。
			ELSEIF TALENT:恋慕
				CALL HPH_PRINT,@"「あ……HPH」","L"
				PRINTFORMDW 鈴瑚はこちらに気付くと、嬉しそうに駆け寄ってきた。
			ELSEIF 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
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FLAG:時間停止
			PRINTFORMDW 鈴瑚がいたが、話しかけても無駄なのでそのまま通り過ぎた。
		ELSE
			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 %CALLNAME:MASTER%に気付くと、鈴瑚は軽く手を振ってきた。
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF FLAG:時間停止
			PRINTFORMDW 鈴瑚がいたが、話しかけても無駄なのでそのまま通り過ぎた。
		ELSE
			CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 鈴瑚は団子を食べるのに夢中で、こちらに気付いていないようだ。
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

;-------------
;2面ボス繋がり等で色々書いた。各口上作者様に反応書いて欲しい（無茶振り）
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「あ！君って香霖堂の店主と仲良いんでしょ？」
		PRINTFORML 「店に私の団子を置いてもらえるように口添えしてくれないかな？お礼はするから頼むよ～」
		PRINTFORMDW 霊夢は面倒くさそうな顔をしている……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;魔理沙が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 11
		PRINTFORML 「あ！君って香霖堂の店主と仲良いんでしょ？」
		PRINTFORML 「店に私の団子を置いてもらえるように口添えしてくれないかな？お礼はするから頼むよ～」
		PRINTFORMDW 魔理沙は呆れたように頭を掻いている……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;大妖精が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 13
		CALL COLORMESSAGE("「…あれ？今日はあの氷精と一緒じゃないんだね」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORMW MGMG
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;チルノが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 14
		PRINTFORML 「おー…君はいつも元気いっぱいだねぇ」
		PRINTFORMW 「悪いけど、今日は団子を売りに来たわけじゃないんだ。また今度ね」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;咲夜が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 15
		PRINTFORML 「……あれ？あんた見た事ある気が…」
		PRINTFORMW 「そうだ思い出した。昔、魔法使い達と月に来たメイド」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;レミリアが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 16
		PRINTFORML 「……あれ？あんた見た事ある気が…」
		PRINTFORMW 「そうだ思い出した。昔、博麗の巫女達と月に来た吸血鬼」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;橙が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 24
		PRINTFORML 「は～い、お食べ～♪…あの狐さんには内緒ね？」
		PRINTFORMDW 鈴瑚は橙に団子をあげている……餌付けにしか見えない。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;ミスティアが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 28
		PRINTFORML 「やあ。また今度、鰻食べに行くよ」
		PRINTFORML 「…ライブ？ああ、うん…そっちもまた今度行くよ……」
		PRINTFORMDW ライブに行くのは乗り気ではないようだ…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;文が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 29
		PRINTFORML 「お？もしかして鈴瑚屋の取材？悪いけど、また今度に―」
		CALL COLORMESSAGE("「…違う？あっそ」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 鈴瑚は文への興味を無くしたようだ……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;早苗が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 31
		PRINTFORML 「基地を引き払う気は無いよ。前にも言ったけど、穢れた地上の指図など受けないわ」
		PRINTFORML 「それに…勝手に来たのは、君達も同じでしょ？」
		PRINTFORMDW 険悪な雰囲気になってきたので、仲裁に入った……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;小傘が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 40
		CALL COLORMESSAGE("「わ～びっくりした～。こわかった～」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 鈴瑚の反応を見て、小傘はがっくりと肩を落とした……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;鈴仙が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 52
		SELECTCASE CFLAG:現在位置
			;人間の里
			CASE 201,202,203,204,205,206,230,240,210,220,230,240,250,270
				IF TALENT:52:恋人
					PRINTFORML 「うわっ！鈴仙！？今日、仕事の日だったの！？」
					PRINTFORML 「あはは…よ、夜にはちゃんと%CALLNAME:MASTER%は返すよ…」
					PRINTFORMDW 鈴瑚共々、鈴仙に睨まれた…
				ELSEIF TALENT:108:恋人
					PRINTFORML 「あ、鈴仙。今日は薬売ってんの？」
					PRINTFORML 「%CALLNAME:MASTER%が何でも言う事聞くようになる薬って無い？」
					PRINTFORMDW そんな物をどうするつもりなのだろう……
				ELSEIF TALENT:108:恋慕
					PRINTFORML 「あ、鈴仙だ」
					PRINTFORMW 「"何してんの？"って……その…デ、デート…%CALLNAME:MASTER%と…♪」
				ELSE
					PRINTFORML 「あ、鈴仙。今日は仕事？」
					CALL COLORMESSAGE("「じゃ、頑張ってね～」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴仙と手を振って別れた。
				ENDIF
			;それ以外
			CASEELSE
				IF TALENT:52:恋人
					PRINTFORML 「れ、鈴仙！？…え～っと、これは…その……」
					PRINTFORML （ほら%CALLNAME:MASTER%！なんとか誤魔化して！）
					PRINTFORMDW 鈴仙に苦しい言い訳をして、何とか切り抜けた……
				ELSEIF TALENT:108:恋人
					PRINTFORML 「あ、鈴仙。何してんの？」
					PRINTFORML 「私は…%CALLNAME:MASTER%と……ね♪」
					PRINTFORMDW 鈴瑚が腕を組んで密着してくる……！
				ELSEIF TALENT:108:恋慕
					PRINTFORML 「あ、鈴仙だ」
					PRINTFORMW 「"何してんの？"って……その…デ、デート…%CALLNAME:MASTER%と…♪」
				ELSE
					PRINTFORML 「あ、鈴仙だ」
					CALL COLORMESSAGE("「姫様達は元気？」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚と鈴仙は雑談をしている。
				ENDIF
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;てゐが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 53
		PRINTFORML 「その耳…君は地上の兎だね」
		CALL COLORMESSAGE("「来る途中で落とし穴見つけたんだけど、あれは君が掘ったの？」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW てゐは目を逸らしながら口笛を吹いている…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パルスィが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 60
		CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		SETCOLOR 0xEE9900
		PRINTFORML 「あのー……団子、食べます…？」
		PRINTFORMDW ずっとこちらを見てくるパルスィを見かねてか、鈴瑚は団子を手渡した…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;輝夜が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 62
		PRINTFORML 「姫様、息災で何より」
		PRINTFORMDW 鈴瑚は帽子を脱いで、うやうやしくお辞儀をした。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;永琳が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 72
		PRINTFORML 「お久しぶりです、八意様」
		PRINTFORMDW 鈴瑚は帽子を脱いで、うやうやしくお辞儀をした。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;赤蛮奇が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 73
		PRINTFORML （…そう言えば前に人里で、"赤マントのろくろ首を見た"ってお客さんが言ってったっけ…）
		PRINTFORML （……ひょっとしてこの人…いや、まさかね…）
		PRINTFORMDW 鈴瑚は赤蛮奇を観察している……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;雛が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 79
		PRINTFORML 「あ、厄神さま。丁度いい所に」
		PRINTFORML 「最近肩こりが酷くて…厄払いをお願いしたいんだよ」
		PRINTFORMDW 厄払いでどうにかなる問題なのだろうか……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;響子が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 88
		PRINTFORML 「おはよー。君はいつも元気だね」
		PRINTFORML 「…ライブ？…行くよ…行けたら……」
		PRINTFORMDW ライブに行くのは乗り気ではないようだ…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;依姫が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 98
		PRINTFORML 「依姫様。地上の調査は順調であります」
		PRINTFORML （定期的に報告しとかないと、サボってるって思われるからね……）
		PRINTFORMDW 鈴瑚はビッと敬礼をしている。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;豊姫が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 99
		PRINTFORML 「豊姫様。地上の調査は順調であります」
		PRINTFORML （桃の匂いがする…多分、さっきまで食べてたな……）
		PRINTFORMDW 鈴瑚はビッと敬礼をしている。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;レイセンが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 100
		PRINTFORML 「君は……っと、今は"レイセン"だったね」
		PRINTFORMW 「依姫様たちによろしくね」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;菫子が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 106
		PRINTFORML 「あ、丁度いい所に」
		PRINTFORML 「前から気になってたんだけど、君が団子食べる前に写真撮るのって何でなの？」
		PRINTFORML 「……ふ～ん。そのSNS？で"イイっすね！"ってのがたくさん貰えるといいんだ？」
		PRINTFORMDW 鈴瑚は外の世界の文化に興味があるようだ。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;清蘭が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 107
		IF TALENT:108:恋人
			IF TALENT:107:恋慕
				SETCOLOR 0x00A9D4
				CALL HPH_PRINT,@"「む～…！鈴瑚ばっかりズルい！ 私も…HPH」","L"
				SETCOLOR 0xEE9900
				PRINTFORML 「清蘭～？%CALLNAME:MASTER%は"私の"恋人なんですけど～？」
				SETCOLOR 0x00A9D4
				PRINTFORML 「ちょっとぐらい良いでしょ～！」
				PRINTFORMDW 清蘭と鈴瑚に左右から引っ張られている……
			ELSE
				SETCOLOR 0x00A9D4
				PRINTFORML 「ひゅーひゅー♪やーい、バカップル～♪」
				CALL COLORMESSAGE("「止めてよ、恥ずかしい……」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 清蘭に冷やかされたが、鈴瑚は満更でもなさそうだ。
			ENDIF
		ELSEIF TALENT:107:恋人
			SETCOLOR 0x00A9D4
			PRINTFORML 「"裏切り者は排除しろ"」
			PRINTFORML 「玉兎の就業規則にも書いてあるわよね～？二人とも♪」
			PRINTFORMDW 杵を持った清蘭が、冷たい笑顔を貼り付けて立っている…
			IF TALENT:108:恋慕
				SETCOLOR 0xEE9900
				PRINTFORML 「あはは…書いてあったかな～？そんな事…ねえ？%CALLNAME:MASTER%？」
				SETCOLOR 0x00A9D4
				PRINTFORML 「あら、忘れちゃった？じゃあコレでぶん殴って思い出させてあげる♪」
				SETCOLOR 0xEE9900
				PRINTFORML 「ごめんなさい…」
				PRINTFORMDW 鈴瑚と二人で必死に謝り、なんとか許してもらえた……
			ELSE
				SETCOLOR 0xEE9900
				PRINTFORML 「これは裏切りじゃないよ清蘭」
				PRINTFORML 「%CALLNAME:MASTER%が美味しい物をご馳走してくれるって言うからついて来ただけさ」
				SETCOLOR 0x00A9D4
				PRINTFORML 「…そう。じゃあ私もご馳走してもらおうかな%CALLNAME:MASTER%～？」
				PRINTFORMDW 清蘭が腕を組んでギリギリと締め上げてくる……！
			ENDIF
		ELSEIF TALENT:108:恋慕 && TALENT:107:恋慕
			SETCOLOR 0x00A9D4
			PRINTFORML 「……！……～！」
			PRINTFORML （ちょっと鈴瑚！なに抜け駆けしてんのよ～！）
			SETCOLOR 0xEE9900
			PRINTFORML 「…、………！」
			PRINTFORML （こ、こういうのは早い者勝ちでしょ…！）
			PRINTFORMDW 二人が小声で何か話している…テレパシーだろうか？
		ELSE
			SETCOLOR 0xEE9900
			PRINTFORML 「やっほ～！清蘭♪」
			SETCOLOR 0x00A9D4
			PRINTFORML 「あら、鈴瑚と%CALLNAME:MASTER%」
			IF TALENT:108:恋慕
				SETCOLOR 0x00A9D4
				PRINTFORML 「な～に～？もしかしてデート？」
				CALL COLORMESSAGE("「まあね～♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			ELSEIF TALENT:108:思慕
				SETCOLOR 0x00A9D4
				PRINTFORML 「最近よく一緒にいるわね？付き合ってんの？」
				CALL COLORMESSAGE("「いや、別に？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 即答され、%CALLNAME:MASTER%は少し傷ついた…
			ELSE
				SETCOLOR 0x00A9D4
				PRINTFORML 「二人で何してんの？」
				CALL COLORMESSAGE("「ちょっとお出掛け。清蘭は？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚と清蘭は仲良く談笑している。
			ENDIF
		ENDIF
	ENDIF
	;-------------------------------------------------
	;ドレミーが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 109
		PRINTFORML 「…ねえ。この世界は夢？それとも―」
		PRINTFORML 「…やっぱりいいや。その顔…どうせ真面目に答える気無いでしょ？」
		PRINTFORMDW ドレミーはニヤニヤ笑っている……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;サグメが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 110
		PRINTFORML 「サグメ様。地上の調査は順調であります」
		PRINTFORML （相変わらず威圧感ある方だな……）
		PRINTFORMDW 鈴瑚はビッと敬礼をしている。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;クラウンピースが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 111
		CALL COLORMESSAGE("「…何？もしかして団子食べたいの？」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		SETCOLOR 0xEE9900
		PRINTFORML 「君のご主人様たちの情報を教えてくれたらあげるよ」
		PRINTFORMDL クラウンピースはプイッとそっぽを向いた。
		CALL COLORMESSAGE("（流石に乗ってこないか……）", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORMW MGMG
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;純狐が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 112
		PRINTFORML 「……また月を襲いに来たんですか？」
		PRINTFORMDW 純狐は無言で鈴瑚を見つめている…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;ヘカーティアが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 113
		CALL COLORMESSAGE("（…Tシャツも変だけど、よく見たらスカートも変な色だな……）", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 鈴瑚はヘカーティアの服装をまじまじと見ている…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;ネムノが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 119
		PRINTFORML 「お茶…？いえ、お構いなく」
		PRINTFORML 「…とりあえず、その物騒な物を仕舞ってもらえませんかね？」
		PRINTFORMDW 鈴瑚の目線は、ネムノの出刃包丁に向いている…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;潤美が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 128
		PRINTFORML （……デカい…！…私よりも…！）
		PRINTFORMDW 鈴瑚は潤美の胸をジッと見ている……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;たかねが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 136
		PRINTFORMDL たかねは"山童的買い物術"のカードを取り出した。全てのカードの値段を半額にする効果があるらしい。
		PRINTFORML 「残念だけど、そのカードは無効だ」
		PRINTFORML 「私の"鈴瑚印の団子"のカードは金0！君のカードをもってしても、値段は変わらない！」
		PRINTFORMDW たかねは膝から崩れ落ちた…よくわからないが、鈴瑚が勝ったようだ……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;その他（キャラ指定なし
	IF TALENT:恋人
		CALL COLORMESSAGE("「…………♪」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW まるで周りに見せつけるように、鈴瑚は腕を組んで密着してきた。
	ELSEIF TALENT:恋慕
		PRINTFORML 「%CALLNAME:MASTER%…二人っきりになりたい……」
		PRINTFORMDW 鈴瑚は人目が気になるようだ……
	ELSEIF TALENT:思慕
		CALL COLORMESSAGE("「もうちょっと静かな所に行こうよ」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORMW MGMG
	ELSE
		CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW いつの間にか鈴瑚は少し離れた位置にいた…
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF TALENT:108:恋人
			;鈴仙
			IF ARG == 52
				PRINTFORML 「へ～…鈴仙って、エッチの時はそんな顔するんだ…♪」
				PRINTFORMDW 最悪のタイミングで、鈴瑚に見つかってしまった……！
			;清蘭
			ELSEIF ARG == 107
				PRINTFORML 「清蘭、%CALLNAME:MASTER%とのセックス気持ちいい？」
				SETCOLOR 0x00A9D4
				CALL HPH_PRINT,@"「うん…HPH すっごく気持ちいい…HPH」","L"
				PRINTFORML 「―えっ？」
				PRINTFORMDW 最悪のタイミングで、鈴瑚に見つかってしまった……！
			;上記以外
			ELSE
				PRINTFORML 「%CALLNAME:MASTER%、私とどっちが気持ちいい？」
				PRINTFORMDW 最悪のタイミングで、鈴瑚に見つかってしまった……！
			ENDIF
		ELSE
			;鈴仙
			IF ARG == 52
				PRINTFORML 「鈴仙…？…%CALLNAME:MASTER%…？何、して…？」
				PRINTFORMDW 鈴瑚はショックのあまり固まっている……
			;清蘭
			ELSEIF ARG == 107
				PRINTFORML 「清蘭…？…%CALLNAME:MASTER%…？何、して…？」
				IF TALENT:108:恋人
					SETCOLOR 0x00A9D4
					CALL HPH_PRINT,@"「何って…ねぇ？%CALLNAME:MASTER%…HPH」","L"
					PRINTFORMDW 清蘭は悪戯っぽく微笑んでいる……
				ELSE
					SETCOLOR 0x00A9D4
					PRINTFORML 「鈴瑚！？…こ、これは…その…！」
					PRINTFORMDW 鈴瑚はショックのあまり固まっている……
				ENDIF
			;上記以外
			ELSE
				PRINTFORML 「――えっ」
				PRINTFORMDW 鈴瑚は驚きのあまり固まっている……
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:108:恋人
			;鈴仙
			IF ARG == 52
				PRINTFORML 「さて…じゃあ私もシてもらおうかなっと…♪」
				CALL HPH_PRINT,@"「鈴仙より気持ちいいって言わせてあげるよ%CALLNAME:MASTER%…HPH」","L"
				PRINTFORMDW 鈴瑚は服を脱ぎ捨て、情事に混ざってきた…！
			;清蘭
			ELSEIF ARG == 107
				SETCOLOR 0x00A9D4
				PRINTFORML 「あの……鈴瑚？何で服脱いでるの…？」
				SETCOLOR 0xEE9900
				PRINTFORML 「そりゃあ私もするからに決まってるでしょ」
				CALL HPH_PRINT,@"「まさか…嫌だなんて言わないよね？二人とも…HPH」","L"
				PRINTFORMDW 鈴瑚は服を脱ぎ捨て、情事に混ざってきた…！
			;上記以外
			ELSE
				PRINTFORML 「さて…じゃあ私もシてもらおうかなっと…♪」
				CALL HPH_PRINT,@"「まさか…嫌だなんて言わないよね？%CALLNAME:MASTER%…HPH」","L"
				PRINTFORMDW 鈴瑚は服を脱ぎ捨て、情事に混ざってきた…！
			ENDIF
		ELSE
			;鈴仙
			IF ARG == 52
				PRINTFORML 「%CALLNAME:MASTER%……私にも、鈴仙と同じ事して…？」
				PRINTFORMDW 鈴瑚は服を脱ぎ捨て、情事に混ざってきた…！
			;清蘭
			ELSEIF ARG == 107
				SETCOLOR 0x00A9D4
				PRINTFORML 「あの……鈴瑚？何で服脱いでるの…？」
				SETCOLOR 0xEE9900
				PRINTFORML 「私だって…%CALLNAME:MASTER%とシたい……！」
				PRINTFORML 「……いいでしょ？二人とも…」
				PRINTFORMDW 鈴瑚は服を脱ぎ捨て、情事に混ざってきた…！
			;上記以外
			ELSE
				PRINTFORML 「%CALLNAME:MASTER%……私にも、シて欲しい…」
				PRINTFORML 「……だめ…？」
				PRINTFORMDW 上目遣いで懇願してくる鈴瑚を、優しく抱きしめた…！
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF TALENT:108:恋人
			;鈴仙
			IF ARG == 52
				PRINTFORML 「じゃあね鈴仙♪ごゆっくり～」
				PRINTFORMDW 去り際、鈴瑚に穢れた物を見るような目で睨まれた…
			;清蘭
			ELSEIF ARG == 107
				PRINTFORML 「清蘭♪今度、感想聞かせてね～♪」
				SETCOLOR 0x00A9D4
				CALL HPH_PRINT,@"「うん…♪ わかった～…HPH」","L"
				PRINTFORML 「―ちょっと待って！？ 今の鈴瑚！？もしかして見られてたの！？」
				PRINTFORMDW 去り際、鈴瑚に穢れた物を見るような目で睨まれた…
			;上記以外
			ELSE
				PRINTFORML 「じゃあ二人とも、ごゆっくり～」
				PRINTFORMDW 去り際、鈴瑚に穢れた物を見るような目で睨まれた…
			ENDIF
		ELSE
			;鈴仙
			IF ARG == 52
				PRINTFORML 「鈴仙と…%CALLNAME:MASTER%が…はは…は…」
				PRINTFORMDW 鈴瑚はふらふらと去っていった……
			;清蘭
			ELSEIF ARG == 107
				IF TALENT:108:恋人
					PRINTFORML 「清蘭と…%CALLNAME:MASTER%が…はは…は…」
					PRINTFORMDL 鈴瑚はふらふらと去っていった……
					CALL HPH_PRINT,@"「…鈴瑚行っちゃったし、続きシよっ♪%CALLNAME:MASTER%HPH」","W"
				ELSE
					PRINTFORML 「清蘭と…%CALLNAME:MASTER%が…はは…は…」
					SETCOLOR 0x00A9D4
					PRINTFORML 「鈴瑚！？…ちょっと待って！…これは…その…！」
					PRINTFORMDW 鈴瑚はふらふらと去っていった……
				ENDIF
			;上記以外
			ELSE
				PRINTFORML 「ごちそうさま」
				PRINTFORMDW 意味深な一言を残して、鈴瑚は去っていった……
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF TALENT:108:恋人
			;鈴仙　鈴仙口上を踏まえた反応にしました
			IF ARG == 52
				PRINTFORML 「あっははは！鈴仙ったら、なに恥ずかしがってんだか…♪」
				PRINTFORMDW 鈴瑚は鈴仙に見られても、気にすること無く腰を動かしている…！
			;清蘭　個人的に気に入ってるので、使い回した
			ELSEIF ARG == 107
				SETCOLOR 0x00A9D4
				PRINTFORML 「み、見てない！私何も見てないからああぁぁー！！」
				PRINTFORMDL 文字通り脱兎のごとく、清蘭は走り去っていった…
				SETCOLOR 0xEE9900
				PRINTFORMW 「清蘭…♪良かったら一緒に…って、もう行っちゃったのか」
			;上記以外
			ELSE
				CALL HPH_PRINT,@"「ふふ…HPH%CALLNAME:MASTER%なら二人を相手する位、訳ないのにねHPH」","L"
				PRINTFORMDW 鈴瑚は情事を見られても、全く気にしていないようだ…
			ENDIF
		ELSE
			;鈴仙
			IF ARG == 52
				CALL HPH_PRINT,@"「はぁ…HPH はぁ…HPH…？…%CALLNAME:MASTER%、どうしたの―」","L"
				PRINTFORML 「れ、鈴仙！？…いつからいたの…！？」
				PRINTFORMDW 鈴仙に鈴瑚との情事をバッチリ見られてしまった……
			;清蘭
			ELSEIF ARG == 107
				PRINTFORML 「せ、清蘭！？…いつからいたの…！？」
				SETCOLOR 0x00A9D4
				PRINTFORML 「み、見てない！私何も見てないからああぁぁー！！」
				PRINTFORMDL 文字通り脱兎のごとく、清蘭は走り去っていった…
				SETCOLOR 0xEE9900
				PRINTFORMW 「はは……見られちゃった…よりによって清蘭に…」
			;上記以外
			ELSE
				CALL HPH_PRINT,@"「はぁ…HPH はぁ…HPH…？…%CALLNAME:MASTER%、どうしたの―」","L"
				PRINTFORML 「えっ！？…あ……ああっ……！」
				PRINTFORMDW 見られた事による羞恥からか、鈴瑚は顔が真っ赤になっていく……
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:108:恋人
			;鈴仙
			IF ARG == 52
				PRINTFORML 「…ほら、鈴仙もおいでよ♪気持ちいいよ～？」
				PRINTFORMDW 鈴瑚に促され、鈴仙は情事に参加する気になったようだ……
			;清蘭
			ELSEIF ARG == 107
				PRINTFORML 「な～んだ、清蘭も結構乗り気じゃん♪」
				SETCOLOR 0x00A9D4
				CALL HPH_PRINT,@"「う、うるさい！ %CALLNAME:MASTER%…私も、いい…？HPH」","L"
				PRINTFORMDW 服を脱ぎ、上目遣いでこちらを見てくる清蘭……断る理由は無かった。
			;上記以外
			ELSE
				PRINTFORML 「おー…混ざるんだ…意外……」
				CALL HPH_PRINT,@"「こりゃあ気合入れなきゃね～？%CALLNAME:MASTER%HPH」","L"
				PRINTFORMDW 鈴瑚が挑発するような笑みでこちらを覗き込んでくる……
			ENDIF
		ELSE
			;鈴仙
			IF ARG == 52
				PRINTFORML 「その…鈴仙も…する？」
				PRINTFORMDW 鈴瑚に促され、鈴仙は情事に参加する気になったようだ……
			;清蘭
			ELSEIF ARG == 107
				PRINTFORML 「せ、清蘭？何で服脱いで…まさか、一緒にするの？」
				SETCOLOR 0x00A9D4
				IF TALENT:107:恋人
					PRINTFORML 「当たり前でしょ？鈴瑚ばっかり独り占めなんて許さないわよ！」
					PRINTFORMDW 清蘭も情事に参加してきた……
				ELSE
					PRINTFORML 「だって…あんな激しいの見せられたら、私だって…！」
					PRINTFORMDW 清蘭も情事に参加してきた……
				ENDIF
			;上記以外
			ELSE
				PRINTFORML 「え……混ざるの…？…混ざるんだ……」
				PRINTFORMDW %CALLNAME:ARG%も情事に参加してきた……
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF TALENT:恋人
			;鈴仙
			IF ARG == 52
				PRINTFORML 「あっははは！鈴仙ったら、なに恥ずかしがってんだか…♪」
				PRINTFORMDW 鈴瑚は鈴仙に見られても、気にすること無く腰を動かしている…！
			;清蘭
			ELSEIF ARG == 107
				SETCOLOR 0x00A9D4
				PRINTFORML 「み、見てない！私何も見てないからああぁぁー！！」
				PRINTFORMDL 文字通り脱兎のごとく、清蘭は走り去っていった…
				SETCOLOR 0xEE9900
				PRINTFORMW 「清蘭…♪良かったら一緒に…って、もう行っちゃったのか」
			;上記以外
			ELSE
				CALL HPH_PRINT,@"「ふふ…HPH%CALLNAME:MASTER%なら二人を相手する位、訳ないのにねHPH」","L"
				PRINTFORMDW 鈴瑚は情事を見られても、全く気にしていないようだ…
			ENDIF
		ELSE
			;鈴仙
			IF ARG == 52
				CALL HPH_PRINT,@"「はぁ…HPH はぁ…HPH…？…%CALLNAME:MASTER%、どうしたの―」","L"
				PRINTFORML 「れ、鈴仙！？…いつからいたの…！？」
				PRINTFORMDW 鈴仙に鈴瑚との情事をバッチリ見られてしまった……
			;清蘭
			ELSEIF ARG == 107
				PRINTFORML 「せ、清蘭！？…いつからいたの…！？」
				SETCOLOR 0x00A9D4
				PRINTFORML 「み、見てない！私何も見てないからああぁぁー！！」
				PRINTFORMDL 文字通り脱兎のごとく、清蘭は走り去っていった…
				SETCOLOR 0xEE9900
				PRINTFORMW 「はは……見られちゃった…よりによって清蘭に…」
			;上記以外
			ELSE
				CALL HPH_PRINT,@"「はぁ…HPH はぁ…HPH…？…%CALLNAME:MASTER%、どうしたの―」","L"
				PRINTFORML 「えっ！？…あ……ああっ……！」
				PRINTFORMDW 見られた事による羞恥からか、鈴瑚は顔が真っ赤になっていく……
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「いやー驚いたよ。最近、"履いてた下着が盗まれる"って噂をよく聞くけど…」
		PRINTFORML 「まさか、こんな近くに犯人がいたなんて……ねぇ？」
		PRINTFORMDW パンツを盗んだ事が鈴瑚にバレてしまった……
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;押し倒した
;==================================================
@M_KOJO_EVENT_K108_10(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;诶嘿嘿==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）CALL HPH_PRINT,@"「」","L"
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			SELECTCASE RAND:5
				CASE 0
					PRINTFORML 「ごめん%CALLNAME:MASTER%…痛かった？」
					CALL HPH_PRINT,@"「お詫びってわけじゃないけど…気持ち良くしてあげるから…HPH」","L"
					PRINTFORMDW 鈴瑚の瞳が、まるで炎の様に真っ赤になっている……
				CASE 1
					IF TALENT:恋人
						PRINTFORML 「ん～？何でこんな事するのかって？」
						CALL HPH_PRINT,@"「分かってるくせに……HPH」","L"
						PRINTFORMDW 鈴瑚の熱っぽい表情でこちらもドキドキしてきた…！
					ELSE
						PRINTFORML 「……限界…！…もう待てないよ、%CALLNAME:MASTER%…！」
						PRINTFORMDW 鈴瑚が切なそうな声を上げながら覆いかぶさってきた……！
					ENDIF
				CASE 2
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH 私、もうお腹ペコペコなの…HPH」","L"
					CALL HPH_PRINT,@"「だから…キミを食べちゃうね…HPH HPH」","L"
					PRINTFORMDW 鈴瑚を押し退けようとしたが、身体に力が入らない。さっき食べた団子に何か入っていたのだろうか……

				CASE 3
					CALL HPH_PRINT,@"「んちゅっHPH れるHPHん～…HPH じゅるる…HPH…ぷはっ」","L"
					CALL HPH_PRINT,@"「あはは…HPH %CALLNAME:MASTER%～…HPHキスだけで、もうこんなになってるよ…HPH」","L"
					PRINTFORMDW 鈴瑚の手が、%CALLNAME:MASTER%の硬くなったペニスを擦っている…！
				CASE 4
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH %CALLNAME:MASTER%、%CALLNAME:MASTER%…HPH」","L"
					PRINTFORMDW 鈴瑚がうわ言の様に、何度も自分の名を呼びながら迫ってくる……！
			ENDSELECT
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			CALL HPH_PRINT,@"「%CALLNAME:MASTER%…いい？いいよね…HPH」","L"
			PRINTFORMDW 鈴瑚に抱きしめられた。胸が当たる感触と甘い香りでクラクラしてくる…
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMDL これ以上続けたら体力がもたない…"もう解放してほしい"と鈴瑚に頼んだ。
			PRINTFORMW 「もう…しょうがないなぁ…♪」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			CALL HPH_PRINT,@"「ふふ…♪…ごちそうさまHPH」","L"
			PRINTFORMDW 鈴瑚は満足したようだ。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORMW （……もの足りない…）
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;好きにして状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			CALL HPH_PRINT,@"「え～？キミのおちんちんは、もっとシて欲しいみたいだけど？HPH」","L"
			PRINTFORMDW 鈴瑚はまだ満足していないようだ……
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			CALL HPH_PRINT,@"「だーめHPH 兎の性欲はこんな物じゃ収まらないよ…HPH」","L"
			PRINTFORMDW 鈴瑚はまだ満足していないようだ……
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;誘ってきた（人目につかない場所に行きたがるやつ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;ARG:1=TARGETの欲求不満度（最高1000）
		;必要ならばこれで分岐を作ってください
		PRINTFORML 「%CALLNAME:MASTER%…お願い…！…シよ…？」
		CALL HPH_PRINT,@"「ちゃんと声抑えるから…ね…？HPH」","W"
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORML 「～♪～♪」
			PRINTFORML 「…%CALLNAME:MASTER%、覗き見なんて趣味悪いよ？」
			PRINTFORMDW 気付かれていたようだ…%CALLNAME:MASTER%は、すごすごと浴場から出た…
		ELSEIF TALENT:恋慕
			;鼻歌は、湖は浄めの月光を映してのフレーズ…のつもり
			PRINTFORML 「ふ～ん♪ふんふんふん♪ふ～んふ～ん……ん？」
			PRINTFORML 「うわっ！な、なに覗いてんの！？早く出てって！」
			PRINTFORMDW 鈴瑚に追い出されてしまった……
		ELSE
			PRINTFORML 「…%CALLNAME:MASTER%、私が今ここで大声を出せばどうなるか…わかるよね？」
			PRINTFORMDW %CALLNAME:MASTER%は、すごすごと浴場から出た…
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			CALL HPH_PRINT,@"「ふぃ～…♪気持ちいい…HPH」","L"
			PRINTFORML 「…そんなとこで見てないで、%CALLNAME:MASTER%もおいでよ♪」
			PRINTFORMDW 気付かれていたようだ…鈴瑚のお言葉に甘えて、一緒に入浴する事にした。
		ELSEIF TALENT:恋慕
			PRINTFORML 「―%CALLNAME:MASTER%っ！？」
			PRINTFORML 「えっと……入る？…一緒に……」
			PRINTFORMDW 鈴瑚と一緒に入浴する事にした。
		ELSE
			PRINTFORML 「あ……！…えっと…入る？」
			PRINTFORML 「じゃあ、私はこっちの方にいるから……！」
			PRINTFORMDW 鈴瑚は隅の方に寄って、場所を開けてくれた。
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「……何しに来たの？」
		PRINTFORMDW 眠いのか、鈴瑚はとても不機嫌そうだ。大人しく帰ることにした…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「…何さ？こんな時間に……」
		PRINTFORMDW 鈴瑚は眠そうに身体を起こした。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		CALL COLORMESSAGE("「―ッ！？」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORML 「あはは……その…小腹が空いちゃって、つい……♪」
		PRINTFORMDW 鈴瑚は夜食を堪能していた……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML 「あ……%CALLNAME:MASTER%…♪」
		CALL HPH_PRINT,@"「会いに、来てくれたんだね……嬉しい…HPH」","L"
		PRINTFORMDW 鈴瑚は笑顔を見せてくれたが、とても辛そうだ……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML 「%CALLNAME:MASTER%……悪いけど、用事なら明日にして……」
		PRINTFORMDW 鈴瑚は本当に眠そうなので、大人しく帰ることにした…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		IF TALENT:恋慕
			PRINTFORML 「…%CALLNAME:MASTER%…！…%CALLNAME:MASTER%…！」
			PRINTFORMDL うなされているのか、うわ言で何度も自分の名前を呼んでいる…
			PRINTFORMDW %CALLNAME:MASTER%が手を握ると、落ち着いたのか安らかな寝息を立て始めた…
		ELSE
			PRINTFORML 「…もうこれ以上…食べられない…！」
			PRINTFORMDW 鈴瑚はうなされている……今日は大人しく帰ることにした…
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K108_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
;はたて口上みたく実装してみたいけど、やり方がわかんないや！
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;食事系
;==================================================
@M_KOJO_EVENT_K108_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
;抑制済み
IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;TCVAR:盗み食い抑制で持っていた食物を食われるのを回避できる
	;仕様例（薬が入ってたら食わない）
	;IF DISH_DRG
		TCVAR:盗み食い抑制 = 1
	;ENDIF

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FLAG:時間停止
			PRINTFORMDL 無抵抗の鈴瑚を欲望のままに犯しつくした。
			PRINTFORMDW 再び時が動き出した時、鈴瑚の澄ました顔が崩れるのを想像するだけで心が躍る…！
		ELSEIF CFLAG:睡眠
			CALL HPH_PRINT,@"「んん…HPH ん…？んぅ……！」","W"
			RETURN 1
		ELSEIF TALENT:恋人 || TALENT:恋慕
			SELECTCASE RAND:6
				CASE 0
					CALL HPH_PRINT,@"「はーっHPHはーっHPH は、あっ…HPHあぁ…HPH」","L"
					PRINTFORMDW 快感の波が収まらないのか、鈴瑚は小刻みに痙攣を繰り返している…
				CASE 1
					CALL HPH_PRINT,@"「はは…♪腰抜けちゃって、立てないや…HPH」","L"
					PRINTFORMDW 鈴瑚が落ち着くまで、一緒に寝そべって休憩した。
				CASE 2
					CALL COLORMESSAGE("「エッチの後って、お腹空いちゃうよね」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 情事を終えた後、鈴瑚と団子を食べながら少し休憩した。
				CASE 3
					PRINTFORML 「%CALLNAME:MASTER%…最後に…もう一回、キスして…？」
					CALL HPH_PRINT,@"「ん……HPH」","L"
					PRINTFORMDW 鈴瑚と唇を触れ合わせた……
				CASE 4
					CALL HPH_PRINT,@"「ふぅ…HPH…気持ち良かったよ…♪%CALLNAME:MASTER%…HPH」","L"
					PRINTFORMDW 汗ばんだ顔で微笑む鈴瑚が、とても扇情的に見えた……
				CASE 5
					CALL HPH_PRINT,@"「はー…はー…%CALLNAME:MASTER%…気持ち良かった…？HPH」","L"
					PRINTFORMDW %CALLNAME:MASTER%が頷くと、鈴瑚は嬉しそうに微笑んだ……
			ENDSELECT
		ELSEIF CFLAG:108:积攒度 < 800
			PRINTFORML 「えっ……終わり……？」
			PRINTFORMDW 鈴瑚は物足りなさそうだ……
		ELSE
			PRINTFORMW 「はあ…はあ………ふぅ…♪」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「んんっ…！あ…HPH」","L"
					PRINTFORMDW 鈴瑚が一瞬身体を震わせると、秘裂から精液がトロリと垂れてきた…
				CASE 1
					CALL HPH_PRINT,@"「んっ…HPHあ、垂れてきた…」","L"
					IF TALENT:恋人
						CALL HPH_PRINT,@"「こんなに射精されたら、デキちゃうかもね…HPH」","L"
					ELSE
						CALL HPH_PRINT,@"「ふふ…HPH%CALLNAME:MASTER%、射精しすぎ…HPH」","L"
					ENDIF
					PRINTFORMDW 鈴瑚の性器から垂れる精液をティッシュで念入りに拭いた。
				CASE 2
					CALL HPH_PRINT,@"「じゅるる…HPH…美味し…♪」","L"
					PRINTFORMDW 鈴瑚は自身の性器から垂れる%CALLNAME:MASTER%の精液を、恍惚とした表情で啜っている……
			ENDSELECT
		RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
		RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後のムード
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
		RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
		RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）(存在せず
	;記入チェック
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:睡眠
			PRINTFORMDL 鈴瑚を起こさないように、そっと布団から出た。
			PRINTFORMDW ぐっすり眠っていて起きる気配は無かった。
		ELSEIF CFLAG:衰弱
			PRINTFORMDL 鈴瑚を起こさないように、そっと布団から出た。
			PRINTFORMDW よほど疲れているのか起きる気配は無かった。
		ELSEIF TALENT:恋人
			PRINTFORMW 「寒っ！もう、目覚めちゃったじゃん…」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あっ……ううん、何でもない…」
		ELSE
			PRINTFORMW 「あれ？もういいの？」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K108_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		CALL HPH_PRINT,@"「ンンッHPH HPH」","L"
		PRINTFORML 「……んっ…ごほごほ……風邪かな～…？」
		PRINTFORMDW 鈴瑚は咳払いをして誤魔化した…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		CALL HPH_PRINT,@"「―ぅああ゛ああぁっHPH HPH HPH」","L"
		PRINTFORMDL 絶頂した鈴瑚は、大きな嬌声を上げてその場にへたり込んだ。
		PRINTFORMDW
		IF TALENT:恋慕
			PRINTFORML 「……ぅ……！…ひぅ……！」
			PRINTFORMDL 失禁でもしたのだろうか…ズボンをぐしょぐしょに濡らした鈴瑚は、今にも泣き出しそうな顔をしている…
			PRINTFORMDW …罪悪感を覚えた%CALLNAME:MASTER%は、上着で鈴瑚の身体を隠しながらその場を離れた……
		ELSE
			PRINTFORML （みんなこっち見てる…うぅ…！何でこんな事に……？）
			PRINTFORMDW 愛液でぐっしょり濡れたズボンを必死に隠しながら、鈴瑚は後ろをついて来ている…
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF FIRSTTIME("パンツ没収")
			PRINTFORML （ん…？なんかズボンがスースーする…）
			PRINTFORML 「―ええっ！？…あ、いや…！ 何でもないよ…♪」
			PRINTFORMW （な…何これ！？パンツが無くなってる！？）
		ELSE
			PRINTFORML 「―ッ！？ あぅ…！…ぅ…！」
			PRINTFORMW （またパンツが無くなってる…一体誰がこんな…！）
			IF TALENT:恋慕
				PRINTFORML （―%CALLNAME:MASTER%だったら、普通に"ちょうだい"って言うだろうし…）
				PRINTFORMDW 鈴瑚は恥ずかしそうに股間を押さえてモジモジしている……
			ELSE
				PRINTFORML （―そういえば前の時も、%CALLNAME:MASTER%が近くにいたような…）
				PRINTFORMDW 鈴瑚はモジモジしながら、こちらを見ている…気付かれたのだろうか？
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			IF EXP:精液経験 == 0
				CALL COLORMESSAGE("「―んっ？…ごく……んんっ！？」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				SETCOLOR 0xEE9900
				PRINTFORML （気持ち悪い…！…何だこれ？喉に絡みつく…！）
				PRINTFORML （まさか、団子が痛んでたのか…？）
				PRINTFORMDW 不快そうな顔をしている鈴瑚にお茶を差し出すと、一気に飲み干した。
			ELSE
				PRINTFORML 「―んぐっ！？ん…ぐっ……ごくっ…！」
				PRINTFORML 「うぅ…！…飲んじゃった…気持ち悪い……」
				PRINTFORMW 「…%CALLNAME:MASTER%、お茶淹れてくれない？うんと濃い奴がいい…」
			ENDIF
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「―んんっ！？…ん…ぐっ…！？」
					PRINTFORML （こ、この臭い…！もしかして、精液―）
					PRINTFORML 「…う゛ぇぇっ…！げぇぇっ！ゲホッ！ゲホッ…！」
					PRINTFORMDW 鈴瑚は堪らず、精液を吐き出した…
				CASE 1
					CALL COLORMESSAGE("「―んっ？…むぐ……んんっ！？」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					SETCOLOR 0xEE9900
					PRINTFORML 「―う゛えぇっ…！ゲホッ！ゲホッ…！…ご、ごめん%CALLNAME:MASTER%…汚い物見せて」
					PRINTFORML （団子が痛んでたのか…？…いや、昨日作った物がすぐ痛むわけないし…）
					PRINTFORMDW 団子と精液が混ざった物を吐き出し、鈴瑚は顔色が悪くなった……
			ENDSELECT
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORML 「んぶっ…！ん…ぐっ…！……う…！」
				PRINTFORML （こ、これ……まさか精液！？）
				PRINTFORML （嫌だ…！%CALLNAME:MASTER%以外の精液なんて…！）
				PRINTFORMDW 鈴瑚は口を押えながら、物陰へ走っていった…
			ELSE
				PRINTFORML 「んぶっ…！…うぅっ…！……ぺっ！」
				PRINTFORML （うっ…！臭っ！何だこれ…！？）
				PRINTFORMDW 鈴瑚は手に吐き出した精液を、汚物を見るような目で睨みつけながら処分した……
			ENDIF
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「んんっ…んくっ…HPH ごくHPH ごくっHPH ごくっHPH」","L"
					CALL HPH_PRINT,@"「ん…はぁ…HPH 美味し…HPH」","L"
					PRINTFORMDW 精液を飲み干した鈴瑚は、恍惚とした表情をしている……
				CASE 1
					CALL HPH_PRINT,@"「んぐ…！ん…HPH ごくっ…HPH ごく…HPH」","L"
					CALL COLORMESSAGE("「……ん～…意外とイケるかも…♪」", C_ORANGE, 0, 0)
					SETCOLOR 0xFFFF00
					PRINTFORML MGMG
					PRINTFORMDW 鈴瑚は、精液と団子を一緒に味わっている……
			ENDSELECT
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			PRINTFORML 「―ッ！？…うっ…！お゛えぇぇっ…！ゲホッ…ゲホッ…！」
			PRINTFORML （何だこれ…！？…臭くて…喉に絡みつく……！）
			PRINTFORMDW 鈴瑚が吐き出した濃厚な精液は、むせかえる程の雄臭を撒き散らしている……
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			CALL HPH_PRINT,@"「んっ…！んぶっ…HPH ごく…HPH ごく…HPH」","L"
			PRINTFORMDL 突如口内に出現した、ゼリーのように濃厚な精液を鈴瑚は恍惚とした表情で飲み下していく…
			CALL HPH_PRINT,@"「ごくん…HPH …んはぁぁHPH HPH」","W"
			IF TALENT:恋人
				;バレてるっぽいけどバレてない。多分
				CALL HPH_PRINT,@"「……%CALLNAME:MASTER%…HPH…もっと、ちょうだい…HPH」","L"
				PRINTFORMDW 鈴瑚が瞳を爛々と輝かせながら迫ってきた……！
				TCVAR:107:発情 = 1
			ELSE
				CALL HPH_PRINT,@"「おいしい……HPH」","W"
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			CALL COLORMESSAGE("「ッ！？…何かが顔に―」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			SETCOLOR 0xEE9900
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORML 「…これって……精液……？」
				PRINTFORML （しかもこの匂い、%CALLNAME:MASTER%の……どういう事…？）
				PRINTFORMDW 鈴瑚は指で拭った精液をじっと見つめている…
			ELSE
				PRINTFORML 「う゛っ！？酷い臭い……！」
				PRINTFORMDW 鈴瑚は念入りにハンカチで顔を拭っている……
			ENDIF
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			CALL COLORMESSAGE("「…………！」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			SETCOLOR 0xEE9900
			IF TALENT:恋人 || TALENT:恋慕
				CALL HPH_PRINT,@"「ん…HPH…ちゅうぅ…HPH %CALLNAME:MASTER%の味がする…HPH美味し…♪」","L"
				PRINTFORMDW 鈴瑚は顔に放たれた精液を美味しそうに舐めている…！
			ELSE
				PRINTFORML 「…これって…精液…？」
				PRINTFORML 「……ぁ…あむ…んちゅ……うっ…！…すごい味……」
				PRINTFORMDW 鈴瑚は顔に付着した精液を指で拭って舐めた…
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			PRINTFORML （……？手に何か付いて―）
			PRINTFORML 「ッ！？何だこれ！？気持ち悪い…！」
			PRINTFORMDW 鈴瑚は不快そうな顔をしながら手を拭いている…
		;舐めとり
		ELSEIF ARG:1 == 2
			PRINTFORML 「…これって……」
			PRINTFORMW 「ん……ぺろっ…♪」
			IF TALENT:恋人
				CALL HPH_PRINT,@"（やっぱり……%CALLNAME:MASTER%の精液…HPH）","L"
				CALL HPH_PRINT,@"（もっと…もっと欲しいHPH）","L"
				PRINTFORML 「あむ…ちゅ…れる…ぺろ……♪」
				PRINTFORMDW 鈴瑚は夢中で手に付着した精液を舐めている…
			ELSE
				PRINTFORML （やっぱり…精液……！）
				PRINTFORML （不味いのに…何で舐めたくなっちゃうんだろ…？）
				PRINTFORMDW 鈴瑚は手に付着した精液を夢中で舐めている…
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
			PRINTFORML 「あぐぅっ……！へ、平気…大丈夫―」
			PRINTFORML （えっ……何…！？…お尻から何か垂れてる！？）
			PRINTFORMDW 鈴瑚は青ざめた顔で尻を押さえている……
		;ソレ以外
		ELSEIF ARG:1 == 2
			CALL HPH_PRINT,@"「ふぁあ゛あっHPH あ゛あああーーーっHPH HPH HPH」","L"
			PRINTFORMDL 鈴瑚は身体をブルブルと震わせ、嬌声を上げてその場にへたり込んだ。
			PRINTFORMDW 彼女のズボンは、尻から垂れる精液や愛液でびしょびしょに濡れている……！
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML 「―痛ッ！」
		PRINTFORMDL 突然下腹部に痛みが走り、鈴瑚は思わずしゃがみ込んでしまった。
		PRINTFORMDW 気取られないよう"大丈夫か"と心配そうな顔をしながら、鈴瑚に手を差し伸べた。
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORML 「……うん、平気。ありがとね%CALLNAME:MASTER%」
			PRINTFORMDL 鈴瑚は%CALLNAME:MASTER%の手を掴んで立ち上がり、再び歩き出した。
			PRINTFORML （…"初めて"…あげられなくて、ごめんね……っ…！）
			PRINTFORMDW 鈴瑚は小さい声で何か呟いたが、聞き取れなかった……
		ELSE
			PRINTFORML 「……いいや、大丈夫。ありがとね…」
			PRINTFORMDL 鈴瑚は自ら立ち上がると、再び歩き出した。
			PRINTFORML （多分だけど、これ…膜までいっちゃってるよね……）
			PRINTFORMW （…これが、私の"初めて"かぁ……）
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF FIRSTTIME("無自覚膣内射精")
			CALL HPH_PRINT,@"「んんっHPH な、何…？お腹が熱い……！」","L"
			PRINTFORMDL 突如やって来た身が震える程の快感に戸惑いつつも、鈴瑚は股間に指を這わせた。
			PRINTFORMDL 自身の股から垂れる"それ"の正体に気づいたのか、鈴瑚の顔色が青ざめていく……
			PRINTFORMW 「嘘……これって……！…何で……！？」
		;非処女膣内射精ピルなし
		ELSEIF ARG:1 == 1
			CALL HPH_PRINT,@"「んうぅっHPH …この感じ、前にも……」","L"
			PRINTFORMDL 鈴瑚が股間に指を這わせると、愛液とは違う白濁とした液体が付いていた。
			PRINTFORML 「……悪戯にしては、ちょっと度が過ぎてるんじゃない…？」
			PRINTFORMDW 誰に向けての言葉なのか、鈴瑚は怒気を込めてそう呟いた……
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
			CALL HPH_PRINT,@"「んうぅっHPH …この感じ、前にも……」","L"
			PRINTFORMDL 鈴瑚が股間に指を這わせると、愛液とは違う白濁とした液体が付いていた。
			PRINTFORML （鈴仙に貰った薬があるから、大丈夫だとは思うけど―）
			PRINTFORML 「……悪戯にしては、ちょっと度が過ぎてるんじゃない…？」
			PRINTFORMDW 誰に向けての言葉なのか、鈴瑚は怒気を込めてそう呟いた……
		;処女膣内射精
		;非処女でも出る？のでピル無しと同じにした
		ELSEIF ARG:1 == 3
			CALL HPH_PRINT,@"「んうぅっHPH …この感じ、前にも……」","L"
			PRINTFORMDL 鈴瑚が股間に指を這わせると、愛液とは違う白濁とした液体が付いていた。
			PRINTFORML 「……悪戯にしては、ちょっと度が過ぎてるんじゃない…？」
			PRINTFORMDW 誰に向けての言葉なのか、鈴瑚は怒気を込めてそう呟いた……
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K108_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORMW 「鈴瑚屋の仕事もあるし、避妊はちゃんとしてほしいかな」
		ELSE
			PRINTFORMW 「生はダメだよ…！私達、恋人でもないのに……」
		ENDIF
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORML 「う～ん…悪いけど、やっぱりダメ」
			PRINTFORMW 「万が一、って事もあるしね」
		ELSE
			PRINTFORML 「ちゃんと避妊してってば…！出来ちゃったら、キミ責任取れないでしょ？」
			PRINTFORMDW もう少し説得してみようか……？
		ENDIF
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORML 「……痛い目見なきゃ、分かんないかな？」
			PRINTFORMDW 鈴瑚が尖った串の先端をこちらに向け、睨んできた…
		ELSE
			PRINTFORML 「だからダメだってば……！ はい！この話はもうお終い！」
			PRINTFORMDW 鈴瑚はそっぽを向いてしまった……
		ENDIF
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMDL "もし出来てしまったら責任を取る"と鈴瑚を説得した。
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORMW 「…はぁ……全く、キミって奴は…♪」
			CALL HPH_PRINT,@"「優しくシてね……HPH」","W"
		ELSE
			PRINTFORML 「…もう、わかったよ…仕方ないなぁ……」
			CALL HPH_PRINT,@"「…えっと…優しくシてね……HPH」","W"
		ENDIF
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:恋人
			PRINTFORML 「ハァ～……」
			PRINTFORMDW 大きなため息をついて暫く考え込んだ後、鈴瑚は再び口を開いた。
			PRINTFORML 「…もし子供が出来たら、ちゃんと二人で育てる。……約束よ？」
			PRINTFORMDW "勿論"と力強く頷くと、鈴瑚は呆れつつも何処か嬉しそうに笑った。
		ELSE
			PRINTFORML 「…ホントに責任取ってくれるんだよね？約束してよ？」
			PRINTFORMDL %CALLNAME:MASTER%は頷くと、鈴瑚を優しく押し倒した。
			IF TALENT:恋慕
				CALL HPH_PRINT,@"（…私、本当にシちゃうんだ…HPH）","L"
				CALL HPH_PRINT,@"（危ない日なのに…%CALLNAME:MASTER%と生で…HPH）","W"
			ELSE
				PRINTFORMW （私も甘いなぁ……まぁ、%CALLNAME:MASTER%となら嫌じゃないし……いっか…♪）
			ENDIF
		ENDIF
	RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K108_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		CALL COLORMESSAGE("「よく考えたら…私の仕事柄、月よりも地上に居た方が都合いいよね」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		SETCOLOR 0xEE9900
		CALL HPH_PRINT,@"「それに…%CALLNAME:MASTER%と一緒に居られるしねHPH」","L"
		PRINTFORMDW 鈴瑚は地上で暮らす事に抵抗は無いようだ。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		CALL COLORMESSAGE("「ちぇ～、残念」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 以外にもあっさり引き下がった……
		RETURN 1
	ENDIF
	;-------------------------------------------------
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K108_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中に眠くて帰る
			PRINTFORML 「そ、それじゃあ私はこの辺で……」
			PRINTFORMDW 鈴瑚はいそいそと服を着て帰っていった…
		ELSEIF TALENT:恋人
			PRINTFORML 「いっそキミも月に住んじゃえばいいのに……」
			PRINTFORML 「なんてね…♪ またね、%CALLNAME:MASTER%♪」
			PRINTFORMDW 鈴瑚と手を振って別れた。
		ELSEIF TALENT:恋慕
			PRINTFORML 「%CALLNAME:MASTER%これ、新作の団子。良かったら食べて」
			PRINTFORML 「また明日、感想聞かせてね！バイバイ♪」
			PRINTFORMDW 鈴瑚とまた会う口実が出来た。
		ELSEIF TALENT:思慕
			PRINTFORML 「…さて、私はそろそろ帰るかな」
			PRINTFORML 「バイバイ、%CALLNAME:MASTER%。また面白い話聞かせてね」
			PRINTFORMDW 鈴瑚と手を振って別れた。
		ELSE
			PRINTFORML 「…さて、いい時間だし私はそろそろ帰るかな」
			PRINTFORML 「またね、%CALLNAME:MASTER%」
			PRINTFORMDW 鈴瑚は帰っていった。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:诶嘿嘿
			PRINTFORML 「そ、それじゃあ私はこの辺で……」
			PRINTFORMDW 鈴瑚はいそいそと服を着て帰っていった…
		ELSEIF TALENT:恋人
			PRINTFORML 「キミさえ良ければだけど…この後、私の家で……」
			PRINTFORML 「なんてね…♪ バイバイ、%CALLNAME:MASTER%♪」
			PRINTFORMDW 鈴瑚と手を振って別れた。
		ELSEIF TALENT:恋慕
			PRINTFORML 「ねえ、%CALLNAME:MASTER%……」
			PRINTFORML 「…何でもない！また明日ね」
			PRINTFORMDW 鈴瑚は帰っていった。
		ELSEIF TALENT:思慕
			PRINTFORML 「…さて、私はそろそろ帰るかな」
			PRINTFORML 「バイバイ、%CALLNAME:MASTER%。また面白い話聞かせてね」
			PRINTFORMDW 鈴瑚と手を振って別れた。
		ELSE
			PRINTFORML 「…さて、いい時間だし私はそろそろ帰るかな」
			PRINTFORML 「またね、%CALLNAME:MASTER%」
			PRINTFORMDW 鈴瑚は帰っていった。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り（キャラの自宅位置、またはキャラの部屋でデート終了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋慕
			PRINTFORML 「ねえ、%CALLNAME:MASTER%……」
			PRINTFORML 「…何でもない！また明日ね」
			PRINTFORMDW 鈴瑚と手を振って別れた。
		ELSE
			PRINTFORML 「%CALLNAME:MASTER%、帰り道分かる？」
			PRINTFORMW 「……そっか。じゃあまたね♪」
		ENDIF
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート終了時に部屋に来ないかと誘う（～から部屋に来ないかと誘われた）
	;（来訪キャラのみ,自宅が無いキャラでも発生します）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「家に新作の団子があるんだけど、良かったら食べに来ない？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「行く」を選択（～に誘われるまま、【MASTER】は【TARGET】の部屋へと向かった……）
	;（これが発生すると十中八九押し倒されます）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「そう来なくちゃ！ とびっきりのをご馳走してあげるよ♪」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「やめとく」を選択（～は心なしか寂しそうだ……）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMDL 嬉しい誘いだが、今日はもう遅いので断ることにした。
		PRINTFORML 「あ～あ勿体無いな～、こんな機会もう無いかもよ？」
		PRINTFORMDW 尚も続く鈴瑚からの誘惑を、なんとか振り切って帰路についた……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくないと言い出す（～は今夜は帰りたくないと言い出した…）
	;（来訪キャラの帰宅時に欲求不満と欲望が高いと発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH 今日はまだまだキミと一緒に居たいな…HPH」","L"
		PRINTFORMDW 鈴瑚が熱の籠った視線を向けてきた……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊める」を選択（～は【MASTERの自室】に泊まっていくことになりました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		CALL HPH_PRINT,@"「ありがと%CALLNAME:MASTER%HPHじゃあ早速行こっか♪」","W"

		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊めない」を選択、または家主が居る（【MASTER】は丁重に断った）
	;（家主が居る＝MASTERの私室に他のキャラの私室を設定している）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMDL 流石に朝帰りは鈴瑚も色々と不味いだろう…大人しく帰るよう鈴瑚を説得した。
		CALL COLORMESSAGE("「あーあーそうですか。私には女としての魅力なんか無いって言いたいんだ？」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 鈴瑚は不貞腐れた様に団子をヤケ食いしながら帰っていった……
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;疲れて帰宅（疲れきった～は帰って行きました）
	;（～は疲れ切っている→（入り口）まで送るよ でも発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 10
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中に疲れて帰る
			PRINTFORML 「そ、それじゃあ私はこの辺で……」
			PRINTFORMDW 鈴瑚はいそいそと服を着て帰っていった…
		ELSE
			PRINTFORML 「今日は楽しかったよ%CALLNAME:MASTER%～…また明日～…」
			PRINTFORMDW 余程疲れたのか、鈴瑚はふらつく足取りで帰っていった…
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K108_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;清蘭は長かったのでなるべく短めに
		IF TALENT:恋人
			PRINTFORML
			CALL COLORMESSAGE("「……うん。美味い！」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			SETCOLOR 0xEE9900
			PRINTFORMDL 「完成～♪名付けて"フルーツ四色ダンゴ"！」
			CALL HPH_PRINT,@" 「ふふっ♪%CALLNAME:MASTER%、美味しいって言ってくれるかな……HPH」","W"
		ELSE
			PRINTFORML
			PRINTFORML 「"地上の調査報告が、%CALLNAME:MASTER%の事に偏り過ぎてる"……か」
			PRINTFORML 「あんまり意識してなかったけど、ちょっと気をつけるか……」
			PRINTFORML 「え～っと……"地上の調査、滞りなく進行中"っと……」
			PRINTFORML 「はい、終わり～…さ～て寝よ寝よ……」
			CALL HPH_PRINT,@" （明日は%CALLNAME:MASTER%とデート～HPH…ふふっ♪楽しみだなぁ……♪）","W"
			PRINTFORMW 「ふふふ……♪」
			PRINTFORMW 「…………。」
			PRINTFORMW 「…テレパシーで、"好きだ"って伝えられたら楽なのにな……」
		ENDIF
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		PRINTFORML 「……よし。%CALLNAME:MASTER%に関する調査報告は、こんな所かな」
		PRINTFORML 「ふぁあ～……明日も早いし、早く寝よっと……」
		PRINTFORMW （さ～て…明日は%CALLNAME:MASTER%と何処行こうかな～♪）
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		PRINTFORML 「ん……んぅ…ふっ……んん…！」
		PRINTFORML 「…はぁ～……イケない……」
		PRINTFORML （そういえば、"好きな人を思い浮かべながらするといい"って聞いた事あるな……）
		PRINTFORMW （…好き、って訳じゃないけど……）
		PRINTFORMW 「―%CALLNAME:MASTER%……」
		CALL HPH_PRINT,@"「んんぅっHPH HPH…あHPH ああっHPH」","L"
		CALL HPH_PRINT,@"「すごっ……HPH HPH…%CALLNAME:MASTER%の事思い浮かべるだけで、こんなに…HPH」","L"
		CALL HPH_PRINT,@"「ふぁあっHPH イクHPHイクうぅぅぅっHPH HPH HPH」","W"
		PRINTFORML
		PRINTFORML 「はぁ～……」
		PRINTFORMW （友達をオカズにするなんて……何やってんだ私は……）
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		CALL HPH_PRINT,@"「んんっHPH あっHPHああっHPH%CALLNAME:MASTER%っHPHわたし、もうっHPHイキそうっHPH」","L"
		CALL HPH_PRINT,@"「%CALLNAME:MASTER%もきてっHPH ナカにっHPHナカにいっぱい射精してっHPH」","L"
		CALL HPH_PRINT,@"「ああああぁぁーーっHPH HPH HPH」","W"
		PRINTFORML
		CALL HPH_PRINT,@"「はーっHPH はーっHPH…だ、ダメだ……指じゃ全然足りない…！」","L"
		CALL HPH_PRINT,@"「%CALLNAME:MASTER%のおちんちん欲しい…HPH おっきいので、私のをかき回して欲しいぃ…HPH」","L"
		CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH %CALLNAME:MASTER%っHPH %CALLNAME:MASTER%っHPH HPH」","W"
		PRINTFORMW 「シたい…シたいよぉ…%CALLNAME:MASTER%……！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		CALL HPH_PRINT,@"「んんっHPH あっHPHああっHPH%CALLNAME:MASTER%っHPHそこっHPHもっとこすってぇぇHPH HPH」","L"
		CALL HPH_PRINT,@"「あああぁぁっHPH HPH それイイっHPH すきぃHPH イクHPHイクぅっHPH」","L"
		CALL HPH_PRINT,@"「%CALLNAME:MASTER%きてっHPH ナカにっHPHナカにいっぱい射精してっHPH」","L"
		CALL HPH_PRINT,@"「あ゛あああぁぁーーっHPH HPH HPH」","W"
		PRINTFORML
		PRINTFORMW 「Zzz……%CALLNAME:MASTER%……好き……♪」
		PRINTFORMDL 激しい情事を終えて疲れたのか、鈴瑚は横になるとすぐに寝息を立て始めた。
		PRINTFORMDL 起こさないよう彼女の頭を優しく撫で、%CALLNAME:MASTER%も眠りについた。
		PRINTFORMDW ……今しがた寝言で囁かれた愛の告白は、聞かなかった事にした。
	RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K108_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人 || TALENT:恋慕
			SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「はぁ…HPH あんっHPH %CALLNAME:MASTER%っHPH はげしいっHPH」","L"
					CALL HPH_PRINT,@"「もっとっHPH キミのおちんちんでHPH ゴリゴリってしてぇHPH」","L"
					CALL HPH_PRINT,@"「あぁHPH あ…HPH イクHPH おっきいのくるっHPH HPH","L"
					CALL HPH_PRINT,@"「ああ…HPHああぁぁぁぁHPH HPH HPH」","L"
					CALL HPH_PRINT,@"「はぁーHPH はーHPH はー……HPH ……もう一回してから寝よっと…」","W"
				CASE 1
					CALL HPH_PRINT,@"「んんっ…HPH ああっHPH は、あああっHPH」","L"
					CALL HPH_PRINT,@"「イクっHPH イッ―んんんうぅぅっHPH HPH HPH」","L"
					PRINTFORML
					PRINTFORMW 「はぁ～……やっぱり、%CALLNAME:MASTER%の方がいい……」
				CASE 2
				PRINTFORML （%CALLNAME:MASTER%と最後にシたの、いつだったかな……）
				CALL HPH_PRINT,@"「…んっ……んぅ…HPH ふっ…HPH うぅっ…HPH う…！んんぅ……！」","L"
				PRINTFORMW （%CALLNAME:MASTER%……今すぐシたいよ…！…切ないよぉ……っ…！）
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「はぁ…HPHはぁ…HPHああぅっHPH…んん…HPH んっHPH」","L"
					CALL HPH_PRINT,@"「あっ…んんっ…HPH んん…んぅ―」","L"
					CALL HPH_PRINT,@"「んんんぅぅぅっHPH HPH HPH」","L"
					CALL HPH_PRINT,@"「はあぁ…HPH はぁ…はぁ…HPH」","W"
				CASE 1
					PRINTFORML （寝れないなぁ……よし、こういう時は……！）
					CALL HPH_PRINT,@"「んん…HPH んっ…！ …あっ…はぁっHPH…あああっHPH」","W"
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:3
			CASE 0
				CALL HPH_PRINT,@"「んんっHPH ん…ふぅっHPH んうっHPH んんんっHPH HPH」","L"
				CALL HPH_PRINT,@"（%CALLNAME:MASTER%が隣で寝てるのに…私、オナニーしちゃってる…HPH）","L"
				CALL HPH_PRINT,@"（バレたらヤバいって考えるだけで…すっごく興奮するぅ…HPH）","L"
				CALL HPH_PRINT,@"（あ…HPHこれ、くるHPH おっきいのくるHPH）","L"
				CALL HPH_PRINT,@"「あぁっ―HPH んぐぅっんんんー～～～ッHPH HPH HPH」","L"
				CALL HPH_PRINT,@"「はーHPH はーHPH はー…HPH」","L"
				CALL HPH_PRINT,@"（ちょっとだけ…声出ちゃった…HPH バレてないよね…？）","W"
			CASE 1
				PRINTFORML （%CALLNAME:MASTER%、最近すぐ寝ちゃうんだよね……）
				PRINTFORML （前はいっぱいエッチしてくれてたのに……最後にシたの、いつだったかな……）
				CALL HPH_PRINT,@"「…んっ……んぅ…HPH ふっ…HPH うぅっ…HPH う…！んんぅ……！」","L"
				PRINTFORMW （%CALLNAME:MASTER%……今すぐシたいよ…！…切ないよぉ……っ…！）
			CASE 2
				CALL HPH_PRINT,@"「ん…HPH んぅ…HPH んん…HPH」","L"
				CALL HPH_PRINT,@"（気持ちいい筈がないのに…%CALLNAME:MASTER%に触られてるってだけで興奮する…HPH）","L"
				PRINTFORMDL 鈴瑚は寝ている%CALLNAME:MASTER%の手を掴んで秘所に擦りつけている……
				CALL HPH_PRINT,@" 「はあっHPHはあっHPH これ…もうちょっとでイケそうかも…HPH」","W"
				CALL HPH_PRINT,@" 「あああっ！？HPH HPH」","L"
				PRINTFORML 「なっ何で指が動いて……%CALLNAME:MASTER%、まさか起き―」
				CALL HPH_PRINT,@"「いいっHPHあ゛あああっHPH HPH HPHゆびっHPH そんなに激しくしちゃダメえぇっHPH HPH」","L"
				CALL HPH_PRINT,@"「ご…ごめんなさいっHPH%CALLNAME:MASTER%のゆびでHPH 勝手にオナニーして、ごめんなさいぃぃHPH HPH」","W"
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		CALL HPH_PRINT,@"「はあ……はあ…HPH あっ……HPH 精液、垂れてきちゃった……HPH」","L"
		PRINTFORML （こんなに射精されたら、ホントに赤ちゃんできちゃうかも……）
		IF TALENT:恋人 || TALENT:恋慕
			CALL HPH_PRINT,@"「%CALLNAME:MASTER%の赤ちゃん……ふふっHPH」","W"
		ELSE
			PRINTFORMW 「……安全日だし、大丈夫だよね？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:恋人 || TALENT:恋慕
				CALL HPH_PRINT,@"「あっHPHんあぁっHPH %CALLNAME:MASTER%っHPH もっとクリいじってぇHPH」","L"
				CALL HPH_PRINT,@"「あっHPHふぁあHPH ああぁぁっHPH HPH HPH」","L"
				CALL HPH_PRINT,@"「はーHPHはーHPH はあ……HPH ふぅぅ……♪」","W"
			ELSE
				CALL HPH_PRINT,@"「んぅHPH ぃぃっHPH あぁっHPH HPH」","L"
				PRINTFORMW 「ク、クリって…こんなに気持ち良かったっけ……？」
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF TALENT:恋人 || TALENT:恋慕
				CALL HPH_PRINT,@"「はっHPHあっHPH あぁっ…HPH %CALLNAME:MASTER%…！」","L"
				CALL HPH_PRINT,@"「おちんちん欲しいHPH %CALLNAME:MASTER%のおちんちん欲しいよぉ……！」","L"
				PRINTFORMDW 鈴瑚は指を%CALLNAME:MASTER%のペニスに見立てて抽挿しているが、快楽はさほど得られていないようだ……
			ELSEIF TALENT:108:処女
				CALL HPH_PRINT,@"「んん…HPH んっHPH ふうっHPH んあぁっ…HPH HPH」","L"
				PRINTFORML （おちんちんって……やっぱり、気持ちいいのかな……？）
				PRINTFORMDW 鈴瑚は指をまっすぐ立て、入り口付近を抽挿している……
			ELSE
				CALL HPH_PRINT,@"「はっHPH はっHPH あっHPH あぁっ…HPH HPH」","L"
				PRINTFORMDW 鈴瑚は指をまっすぐ立てて膣穴を抽挿している……
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			IF TALENT:恋人 || TALENT:恋慕
				CALL HPH_PRINT,@"「あっHPH はあっHPH おしりいじるのHPH きもちいぃHPH HPH」","L"
				CALL HPH_PRINT,@"「こんなの…HPH クセになっちゃったら絶対ヤバい、のにぃHPH」","L"
				CALL HPH_PRINT,@"「ふぁああHPH ああっHPH イクっHPH おひりでっHPH イクうぅっHPH HPH」","W"
			ELSE
				CALL HPH_PRINT,@"「あHPH あっHPH んうぅHPH あぁっHPH」","L"
				CALL HPH_PRINT,@"「知らなかった……！おしりがっHPH こんなに気持ちいいなんてぇHPH」","W"
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			IF TALENT:恋慕
				CALL HPH_PRINT,@"「んんっHPH んむHPH ちゅっHPH じゅうぅっHPH ぢゅうぅHPH」","L"
				PRINTFORML （%CALLNAME:MASTER%がいっぱい触るから、おっぱい大きくなっちゃった……♪）
				PRINTFORMDW 鈴瑚は器用に自分の乳首を吸い上げて自慰をしている……
			ELSE
				CALL HPH_PRINT,@"「んん…HPH んあぁっHPH 乳首っHPH 気持ちいい……HPH」","L"
				CALL HPH_PRINT,@"「あぁっHPH こ、こんなに気持ちいいなんて…HPH 知らな…ああっHPH」","W"
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			IF TALENT:恋慕
				CALL HPH_PRINT,@"「んんっHPH あっHPH ああHPH %CALLNAME:MASTER%……HPH んっHPH うぅっHPH」","L"
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%っHPH もっと…HPH そこ、いじってぇ…HPH」","L"
				CALL HPH_PRINT,@"「ああっHPH HPH あああぁぁぁっHPH HPH HPH」","L"
				CALL HPH_PRINT,@"「はぁーHPH はぁ…HPH はぁー…HPH」","W"
			ELSE
				CALL HPH_PRINT,@"「んぅHPH あぁっHPH はっ…HPH んんっ…HPH」","L"
				CALL HPH_PRINT,@"「はっ…HPH んっHPH あ……HPH きそう……♪」","L"
				CALL HPH_PRINT,@"「んんぅぅっHPH HPH HPH」","L"
				CALL HPH_PRINT,@"「…はぁー…はぁ…HPH はぁー…♪」","W"
			ENDIF
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			CALL HPH_PRINT,@"「おまんことお尻…HPH 同時なんて…HPH こんな…HPH」","L"
			CALL HPH_PRINT,@"「ああぁぁ…HPH HPH こ、これっHPH きもちよすぎるぅっHPH HPH」","L"
			CALL HPH_PRINT,@"「あ゛ああぁぁぁっHPH HPH HPH」","L"
			PRINTFORML
			PRINTFORMW （…これは本当に溜まりすぎた時だけにしよう……クセになったら絶対にヤバいし…）
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			CALL HPH_PRINT,@"「あっHPH あんっHPH あ゛あっHPH あああぁっHPH」","L"
			CALL HPH_PRINT,@"「ああぁぁーーっHPH HPH HPH」","L"
			CALL HPH_PRINT,@"「はぁHPH はあっHPH もっと…HPH 全然足りない……HPH」","L"
			CALL HPH_PRINT,@"「はああ…HPH んあっHPH あぁHPH んんぅぅっHPH」","W"
		RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORML （今日は止めとこ……明日に差し支えるかもだし……）
			PRINTFORML 「…………。」
			CALL HPH_PRINT,@"（ああ…HPHどうしよ…%CALLNAME:MASTER%のおちんちんの事ばっか考えちゃう……HPH）","W"
		ELSE
			PRINTFORMW （う～ん……シようと思ってたけど、眠いからいいや……）
		ENDIF
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K108_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			PRINTFORML 「えぇ…？それはちょっと…恥ずかしいっていうか……」
			PRINTFORMDW 今更何を恥ずかしがる事が…と思ったが、大人しく引き下がることにした。
		ELSEIF TALENT:思慕
			PRINTFORML 「ん？%CALLNAME:MASTER%、お風呂入るの？」
			CALL COLORMESSAGE("「私はいいや。ここで団子食べてるから、入ってきなよ」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 一緒に入浴しようとしたが、断られた……
		ELSE
			CALL COLORMESSAGE("「なに？キミお風呂入るの？先帰っていい？」", C_ORANGE, 0, 0)
			SETCOLOR 0xFFFF00
			PRINTFORML MGMG
			PRINTFORMDW 一緒に入る気は全くない様だ……
		ENDIF
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORML 「%CALLNAME:MASTER%、後で背中洗ってあげよっか？」
			CALL HPH_PRINT,@"「私の身体で……HPH」","L"
			PRINTFORML 「…なんてね！じゃ、お先～♪」
			PRINTFORML ……%CALLNAME:MASTER%は急いで服を脱ぎ、鈴瑚の後を追った。
		ELSEIF TALENT:恋慕
			PRINTFORMDL "先に入ってて"と言われたので、%CALLNAME:MASTER%は湯船に浸かりながら鈴瑚を待つことにした。
			PRINTFORML 「%CALLNAME:MASTER%…お、お待たせ……」
			PRINTFORMDL 振り向くと、一糸纏わぬ姿の鈴瑚が立っていた……
			PRINTFORMW 「あ、あんまり見ないでよ…！恥ずかしいじゃん……」
		ELSE
			PRINTFORML 「…珍しく真剣な顔して何処に行くのかと思えば、お風呂？」
			PRINTFORML 「本当にキミって奴は、欲望に忠実というか……」
			PRINTFORMDW 呆れながらも、鈴瑚は一緒に入浴してくれるようだ。
		ENDIF
	RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K108_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMDL
		PRINTFORML 「やあ%CALLNAME:MASTER%。元気？」
		PRINTFORMDW 今日の鈴瑚はいつもと違う服装だ。お腹が出ておらず、ゆったりとしたデザインの服を着ている。
		CALL HPH_PRINT,@"「まあね……もう、私だけの体じゃないからさ……HPH」","W"
		PRINTFORMDL 鈴瑚は愛おしそうに自分のお腹を撫でている……
		PRINTFORMDW もしやと思い、%CALLNAME:MASTER%は鈴瑚に尋ねた。
		CALL HPH_PRINT,@"「そうだよ……HPHこの子は、私とキミの赤ちゃん……HPH」","L"
		CALL HPH_PRINT,@"「そういう事だからよろしくね？―お父さんHPH」","W"
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMDL
		CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		SETCOLOR 0xEE9900
		PRINTFORML 「―ッ！？ うっ…！うぇぇっ…げぇっ！ぇぇっ……！ゲホッ！ゲホッ…！」
		PRINTFORML 「はぁ…はぁ…！ うぅ…気持ち悪い……」
		PRINTFORMW 「今日は仕事休んで、八意様に診てもらおう……病気じゃなきゃいいけど」
		PRINTFORMDW …………。
		PRINTFORML 「―"妊娠してる"…ねぇ……心当たりがあるとすれば……」
		PRINTFORMW 「こうなった以上、%CALLNAME:MASTER%にも責任取って貰わなきゃね」
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し　思慕と同じ
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMDL
		CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		SETCOLOR 0xEE9900
		PRINTFORML 「―ッ！？ うっ…！うぇぇっ…げぇっ！ぇぇっ……！ゲホッ！ゲホッ…！」
		PRINTFORML 「はぁ…はぁ…！ うぅ…気持ち悪い……」
		PRINTFORMW 「今日は仕事休んで、八意様に診てもらおう……病気じゃなきゃいいけど」
		PRINTFORMDW …………。
		PRINTFORML 「―"妊娠してる"…ねぇ……心当たりがあるとすれば……」
		PRINTFORMW 「…こうなった以上、%CALLNAME:MASTER%にも責任取って貰わなきゃね」
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMDL
		CALL COLORMESSAGE("「…………。」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		SETCOLOR 0xEE9900
		PRINTFORML 「―ッ！？ うっ…！うぇぇっ…げぇっ！ぇぇっ……！ゲホッ！ゲホッ…！」
		PRINTFORML 「はぁ…はぁ…！ うぅ…気持ち悪い……」
		PRINTFORMW 「今日は仕事休んで、八意様に診てもらおう……病気じゃなきゃいいけど」
		PRINTFORMDW …………。
		PRINTFORML 「……妊娠？私が？何で……？」
		PRINTFORML 「"もう育ちすぎてるから堕ろせない"なんて言われても、私どうしたら……」
		PRINTFORMDL ぐうぅぅ～……
		PRINTFORMW 「…ははっ。こんな時でも、お腹って空くんだな……」
		RETURN 1
	ENDIF
	RETURN 1
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K108_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;初回と2回目以降で変化
		IF ARG:1 == 1
			;偶にはこういう時止めもいいと思うの
			PRINTFORML
			PRINTFORML 「ぎっ…！あ……！いっ、痛い……！」
			PRINTFORML 「%CALLNAME:MASTER%……！もう、産まれるみたい…！」
			PRINTFORMDW どうやら破水が始まったようだ。鈴瑚は苦痛に顔を歪め、うずくまっている……
			PRINTFORML 「な…何とかして、八意様に連絡を……！」
			PRINTFORMDW 仮に連絡が着いたとして、永琳がここに来るまでにどれほどの時間がかかるのだろう……
			PRINTFORMDL "そんなのは待ってられない……！"
			PRINTFORMDW %CALLNAME:MASTER%は時間を止めると、鈴瑚を抱きかかえたまま永遠亭へと急いだ……！
			PRINTFORMDW …………。
			PRINTFORML 「あ…！%CALLNAME:MASTER%……♪」
			CALL HPH_PRINT,@"「へへ…♪ちゃんと産まれたよ……HPH」","W"
			PRINTFORMDL 元気な産声を上げている赤ん坊を抱きかかえながら、鈴瑚は笑顔を向けてきた。
			PRINTFORMDW 産後で消耗しているだろうに…自分に心配をかけまいとする鈴瑚が愛おしくなり、彼女をギュッと抱きしめた。
		ELSE
			PRINTFORML
			PRINTFORML （痛っ…！…この感じ、もう産まれそうだな……）
			PRINTFORML 「%CALLNAME:MASTER%。私は永遠亭に行くから、キミに頼みたい事が―」
			PRINTFORMDW …………。
			PRINTFORML 「%CALLNAME:MASTER%おかえり～♪ちゃんと買ってきてくれた？」
			PRINTFORMDL 病室に入ると、新たに産まれた我が子をあやしている鈴瑚がいた。最初の時とは違い、幾分か余裕があるようだ。
			PRINTFORMDW "勿論"と頷き、鈴瑚に<清蘭屋>と書かれた団子の包みを手渡した。
			CALL HPH_PRINT,@"「あぁ～これこれ！産んだ直後って疲れるからお腹空くんだよね～HPH」","W"
			PRINTFORMDL 鈴瑚が団子を食べようとしたその時、赤ん坊が大声で泣き始めた。
			PRINTFORML 「おおっと、ゴメンゴメン！君もお腹ペコペコだよね！よしよ～し♪」
			PRINTFORMDL 慣れた手つきで乳房を曝け出し、赤ん坊に母乳を与える鈴瑚と目が合った。
			PRINTFORMDW "また忙しくなりそうだ"……同じ事を考えているのか、二人して笑い合った。
		ENDIF
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕　恋慕と同じ
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF ARG:1 == 1
			PRINTFORML
			PRINTFORML 「ぎっ…！あ……！いっ、痛い……！」
			PRINTFORML 「%CALLNAME:MASTER%……！もう、産まれるみたい…！」
			PRINTFORMDW どうやら破水が始まったようだ。鈴瑚は苦痛に顔を歪め、うずくまっている……
			PRINTFORML 「な…何とかして、八意様に連絡を……！」
			PRINTFORMDW 仮に連絡が着いたとして、永琳がここに来るまでにどれほどの時間がかかるのだろう……
			PRINTFORMDL "そんなのは待ってられない……！"
			PRINTFORMDW %CALLNAME:MASTER%は時間を止めると、鈴瑚を抱きかかえたまま永遠亭へと急いだ……！
			PRINTFORMDW …………。
			PRINTFORML 「あ…！%CALLNAME:MASTER%……♪」
			CALL HPH_PRINT,@"「へへ…♪ちゃんと産まれたよ……HPH」","W"
			PRINTFORMDL 元気な産声を上げている赤ん坊を抱きかかえながら、鈴瑚は笑顔を向けてきた。
			PRINTFORMDW 産後で消耗しているだろうに…自分に心配かけまいとする鈴瑚が愛おしくなり、彼女をギュッと抱きしめた。
		ELSE
			PRINTFORML
			PRINTFORML （痛っ…！…この感じ、もう産まれそうだな……）
			PRINTFORML 「%CALLNAME:MASTER%。私は永遠亭に行くから、キミに頼みたい事が―」
			PRINTFORMDW …………。
			PRINTFORML 「%CALLNAME:MASTER%おかえり～♪ちゃんと買ってきてくれた？」
			PRINTFORMDL 病室に入ると、新たに産まれた我が子をあやしている鈴瑚がいた。最初の時とは違い、幾分か余裕があるようだ。
			PRINTFORMDW "勿論"と頷き、鈴瑚に<清蘭屋>と書かれた団子の包みを手渡した。
			CALL HPH_PRINT,@"「あぁ～これこれ！産んだ直後って疲れるからお腹空くんだよね～HPH」","W"
			PRINTFORMDL 鈴瑚が団子を食べようとしたその時、赤ん坊が大声で泣き始めた。
			PRINTFORML 「おおっと、ゴメンゴメン！君もお腹ペコペコだよね！よしよ～し♪」
			PRINTFORMDL 慣れた手つきで乳房を曝け出し、赤ん坊に母乳を与える鈴瑚と目が合った。
			PRINTFORMDW "また忙しくなりそうだ"……同じ事を考えているのか、二人して笑い合った。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		PRINTFORML 「ん？……なんだ%CALLNAME:MASTER%か」
		PRINTFORMDL 病室に入ると、赤ん坊をあやしている鈴瑚がいた。
		PRINTFORMW 「……前にも言ったけど、こうなった以上はキミにも責任を取ってもらうからね」
		PRINTFORMDL 有無を言わせぬような鋭い眼光に、%CALLNAME:MASTER%は頷くことしかできなかった……
		PRINTFORMW （……報告。%CALLNAME:MASTER%は女性なら誰にでも襲い掛かる危険人物……と）
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		PRINTFORML （お、お腹痛い…！けど…耐えなきゃ…！）
		PRINTFORML 「大丈夫だよ……だから、もう少しだけ待ってて…！」
		PRINTFORMDW 鈴瑚は一人、永遠亭へと向かった……
		PRINTFORMDW …………。
		PRINTFORMW 「はー…！はー…！ 良かった…！無事に産まれてくれて……♪」
		PRINTFORML （…この子の遺伝子を調べれば、きっと父親を捜し出せる……）
		PRINTFORMW （でも…産まれた子の顔すら見に来ないなんて、絶対碌な奴じゃない…！たとえ判っても、この子には会わせてやるもんか）
		PRINTFORML 「君は私が……お母さんが守ってあげるからね……！」
		PRINTFORMDW 無邪気に笑っている自分そっくりな我が子を、鈴瑚は力強く抱きしめた……
	RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K108_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				CALL HPH_PRINT,@"「はぁ…HPH あぁっHPH あーHPH HPH %CALLNAME:MASTER%っHPH %CALLNAME:MASTER%HPH」","L"
				CALL HPH_PRINT,@"「……♪　%CALLNAME:MASTER%っHPH そこ…もっとこすってぇ…HPH」","L"
				PRINTFORMDW 一瞬目が合ったが、鈴瑚は気にせず自慰を続けている……
			ELSEIF TALENT:恋慕
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH そのまま、奥まできてぇ……HPH」","L"
				CALL HPH_PRINT,@"「んっ…HPH…あぁ…HPH %CALLNAME:MASTER%のが、入ってき―」","L"
				PRINTFORMDW 部屋に入ると、鈴瑚が自分の名を呼びながら自慰をしていた……
			ELSE
				CALL HPH_PRINT,@"「はぁ…HPH んんっHPH あ…HPHこれ、きそう…HPH」","L"
				CALL HPH_PRINT,@"「もうイクHPHイッ―えっ」","L"
				PRINTFORMDW お取込み中の鈴瑚と目が合ってしまった……
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMDW 見なかった事にして、%CALLNAME:MASTER%はそそくさとその場を離れた……
				IF TALENT:恋人
					PRINTFORML （%CALLNAME:MASTER%ったら、あんなにおちんちん膨らませちゃって…♪）
					CALL HPH_PRINT,@"（私、後でオカズにされちゃったり……HPH）","L"
					CALL HPH_PRINT,@"「あ…HPH 想像したら、また疼いてきちゃった…HPH」","W"
				ELSEIF TALENT:恋慕
					PRINTFORML 「はは…シてるとこ、%CALLNAME:MASTER%に見られちゃった……」
					PRINTFORMW 「これは夢……そう、悪い夢だよ…きっと……」
				ELSE
					PRINTFORML 「…私とした事が、鍵かけ忘れてたなんて……」
					PRINTFORMW 「はぁ～……もう寝よ……」
				ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				CALL HPH_PRINT,@"「あぁっHPHこれHPHすごいHPH見られながらするのっHPH気持ちいいHPH HPH」","L"
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%っHPH私がイクとこHPH 見ててぇっHPH HPH」","L"
			ELSEIF TALENT:恋慕
				CALL HPH_PRINT,@"「うぅ…！あぁっHPH%CALLNAME:MASTER%っHPH見ないで…！お願いだから見ないでぇっHPH」","L"
			ELSE
				PRINTFORML 「はぁっ！？つ、続き見たいとか……このっ…変態……！」
				CALL HPH_PRINT,@"「んんっHPHあHPHああっHPH な…何これ…HPH気持ちいいっHPH」","L"
			ENDIF
			PRINTFORMDW %CALLNAME:MASTER%は食い入るように、鈴瑚の痴態を目に焼き付けている……！
		RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				CALL HPH_PRINT,@"「あぁっHPHイクっHPHイクうぅぅぅっHPH HPH HPH」","L"
				CALL HPH_PRINT,@"「はーHPH はーHPH ふうぅぅ～…HPHすっきりした…♪」","L"
				PRINTFORML 「じゃ、%CALLNAME:MASTER%。もう寝るから出てって」
				PRINTFORMDW 鈴瑚に部屋を追い出された……
			ELSE
				PRINTFORML 「で……出てってーーーっ！！」
				PRINTFORMDL 大声を上げた鈴瑚に驚き、%CALLNAME:MASTER%は慌てて部屋を出た……
				PRINTFORMW （ああ、もう！何で鍵かけてないんだよ私……！）
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				CALL HPH_PRINT,@"「あHPHイクHPHイッ―んんんぅーーーっHPH HPH HPH」","L"
				CALL HPH_PRINT,@"「はーっHPHはーっHPHはーっHPH ………HPH」","L"
				PRINTFORMDW 鈴瑚が膣穴を大きく広げ、挑発するような笑顔を向けてきた……！
			ELSEIF TALENT:恋慕
				PRINTFORML 「…%CALLNAME:MASTER%…きて……？」
				PRINTFORMDW 鈴瑚が切なそうな声を上げながら誘惑してきた……！
			ELSE
				PRINTFORML 「そ…それ、私のせいで……？」
				PRINTFORML 「わかった……い、一回だけなら……！」
				PRINTFORMDW 鈴瑚は恥ずかしそうな顔をしながらも、膣穴を大きく広げて誘惑してきた……！
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				CALL HPH_PRINT,@"「はぁHPHはぁHPHはぁ…HPHふぅぅ…HPH」","L"
				CALL HPH_PRINT,@"（やっぱり、%CALLNAME:MASTER%とする方が気持ちいい……HPH）","W"
			ELSEIF TALENT:恋慕
				CALL HPH_PRINT,@"「はー…HPHはー…HPH　%CALLNAME:MASTER%、その……」","L"
				CALL HPH_PRINT,@"「…気持ち良かった……HPH」","W"
			ELSE
				CALL HPH_PRINT,@"「はぁ…HPHはぁ…HPH　ふぅぅ……」","L"
				CALL HPH_PRINT,@"「―えっ？……うん、気持ち良かった……HPH」","W"
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			CALL HPH_PRINT,@"「はぁHPHはぁHPH―%CALLNAME:MASTER%っ」","L"
			PRINTFORMDL 突然鈴瑚に唇を奪われ、口移しで何かを飲まされた…！
			CALL HPH_PRINT,@"「ふふっ…HPH美味しかった？私の特製ダンゴ…HPH」","L"
			PRINTFORMDW 瞬間―%CALLNAME:MASTER%の身体が燃える様な熱さを帯び、萎れていた肉棒が再び硬さを取り戻した…！
			PRINTFORML 「よしよし効いてきたね…♪半分こしたから、私も―」
			CALL HPH_PRINT,@"「ああぁっHPHき、きたあぁHPH%CALLNAME:MASTER%っHPHもっとシよHPH」","L"
			PRINTFORMDW 鈴瑚が蜜壺を広げると同時に、%CALLNAME:MASTER%は痛いほどに勃起した肉棒を挿入していた…！
			CALL HPH_PRINT,@"「ああああぁぁっHPH HPH HPHい、挿入れただけで…HPHイッちゃ―」","L"
			CALL HPH_PRINT,@"「あ゛あっHPH%CALLNAME:MASTER%、はげしっHPHまって―ふぁあ゛ああっっHPH」","W"
			PRINTFORMDW …………。
			CALL HPH_PRINT,@"「はひっHPHはっHPHは、ひゅっHPHはひゅっHPH」","L"
			PRINTFORMDL 鈴瑚は真っ赤に充血した膣穴から、夥しい量の精液を垂れ流して失神している……
			PRINTFORMDW 何があったのか思い出そうとしたが、猛烈な倦怠感に襲われて%CALLNAME:MASTER%は意識を手放した……
		RETURN 1
		ENDIF
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K108_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORML 「%CALLNAME:MASTER%～♪今日、デートしない？」
				PRINTFORMDW 鈴瑚からデートの誘いを受けた。
			ELSEIF TALENT:恋慕
				PRINTFORML 「%CALLNAME:MASTER%！ えっと……デー…」
				PRINTFORML 「…ち、地上の調査を手伝ってくれないかな？」
				PRINTFORMDW 鈴瑚は一緒に出掛けたいようだ。
			ELSE
				PRINTFORML 「%CALLNAME:MASTER%。ちょっと地上の調査を手伝ってくれないかな？」
				PRINTFORMDW 鈴瑚は一緒に出掛けたいようだ。
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				SETCOLOR 0xEE9900
				CALL COLORMESSAGE("「よし！そうと決まれば、早速出発しようか」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			ELSEIF TALENT:恋慕
				SETCOLOR 0xEE9900
				PRINTFORML 「ホントに！？ありがと%CALLNAME:MASTER%…♪」
				PRINTFORMW 「…え？いや、デートじゃなくて調査だよ！調査！」
			ELSE
				SETCOLOR 0xEE9900
				CALL COLORMESSAGE("「助かるよ。一人じゃ面倒…いや、大変だからねぇ…♪」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORML 「ふ～ん…今日は忙しいんだ？じゃあまた今度ね」
				CALL COLORMESSAGE("（怪しいな……ちょっと調査してみるか）", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚は疑いの目でこちらを見ている……
			ELSEIF TALENT:恋慕
				PRINTFORML 「あ…うん……こっちこそ、無理言ってゴメン……」
				PRINTFORMDW 鈴瑚は寂しそうだ……
			ELSE
				CALL COLORMESSAGE("「ちぇ～。じゃあいいや」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH今日は私の家でさ…HPH」","L"
				CALL HPH_PRINT,@"「朝まで一緒に…HPH……どう？HPH」","L"
			ELSEIF TALENT:恋慕
				PRINTFORML 「ねえ%CALLNAME:MASTER%…！キミがいいなら、その……」
				PRINTFORML 「わ、私の家で……なんて……」
			ELSE
				PRINTFORML 「ねえ、%CALLNAME:MASTER%。偶には私の家においでよ」
				PRINTFORML 「美味しい団子をご馳走してあげるよ～？」
			ENDIF
			PRINTFORMDW 今日は鈴瑚の家で過ごそうか……
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORML 「よっし♪じゃあ早速、買い出しに行こうか！」
				PRINTFORML 「何の？って、決まってるでしょ？"オールナイト・ダンゴパーティー"のだよ」
				PRINTFORMDW %CALLNAME:MASTER%は自分の選択を少し後悔した……
			ELSEIF TALENT:恋慕
				CALL HPH_PRINT,@"「…！ありがとね…%CALLNAME:MASTER%…HPH」","L"
				PRINTFORMDW 鈴瑚はとても嬉しそうだ。
			ELSE
				PRINTFORML 「は～い、では早速ご案内～♪」
				PRINTFORMW （折角だし、地上の事を色々と聞かせてもらいましょうかね…♪）
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORML 「ふ～ん…今日は忙しいんだ？じゃあまた今度ね」
				CALL COLORMESSAGE("（怪しいな……ちょっと調査してみるか）", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORML MGMG
				PRINTFORMDW 鈴瑚は疑いの目でこちらを見ている……
			ELSEIF TALENT:恋慕
				PRINTFORML 「あ…うん……こっちこそ、無理言ってゴメン……」
				PRINTFORMDW 鈴瑚は寂しそうだ……
			ELSE
				CALL COLORMESSAGE("「ちぇ～。じゃあいいや」", C_ORANGE, 0, 0)
				SETCOLOR 0xFFFF00
				PRINTFORMW MGMG
			ENDIF
		RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K108_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
				PRINTFORMDL 鈴瑚の衣服を全て取り払い、産まれたままの姿にした。
				PRINTFORMDW "いただきます"　%CALLNAME:MASTER%は両手を合わせ、鈴瑚の肢体を堪能することにした。
			;通常
			ELSEIF TALENT:恋人
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「ねえ……口と手…どっちがいい？」
						CALL HPH_PRINT,@"「いや……キミはこっちだよね…HPH」","L"
						PRINTFORMDW 鈴瑚が股間に胸を押し当ててくる……！
					CASE 1
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%…HPH　早くシようよ…HPH」","L"
						PRINTFORMDL 鈴瑚が熱っぽい視線を向けてくる……
					CASE 2
						CALL HPH_PRINT,@"「あっはは♪キミも、もう待ちきれないって感じだね…HPH」","L"
						PRINTFORMDW 鈴瑚に勃起したペニスを見られた……
				ENDSELECT
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					CASE 0
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%っ……HPH」","L"
						PRINTFORMDW 鈴瑚の潤んだ赤い瞳に、全裸になった自分が映っている……！
					CASE 1
						PRINTFORML 「%CALLNAME:MASTER%……私の身体、変じゃない？」
						PRINTFORML 「こ、興奮…する…？」
						PRINTFORMDW %CALLNAME:MASTER%は何も言わず、ただ頷いた……
					CASE 2
						CALL HPH_PRINT,@"「あ……HPH」","L"
						PRINTFORMDW 鈴瑚に勃起したペニスを見られた……
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「は…恥ずかしいから、あんまり見ないで……！」
						PRINTFORMDW 鈴瑚は胸と秘所を手で隠している……
					CASE 1
						PRINTFORML 「……けだもの」
						PRINTFORMDW 鈴瑚に蔑むような視線を向けられた……
					CASE 2
						PRINTFORML （うぅ…！本当に"あれ"が私のナカに……？）
						PRINTFORMDW 鈴瑚に勃起したペニスを見られた……
				ENDSELECT
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
				PRINTFORMDL 鈴瑚の服を脱がせ、下着姿にした。
				PRINTFORMDW …やはり、大きい……！
			;通常
			ELSEIF TALENT:恋人
				SELECTCASE RAND:2
					CASE 0
						PRINTFORMDL 初めて見る下着だ。新しく買ったのだろうか？
						CALL HPH_PRINT,@"「そうだよ～♪誰かさんがいっぱい触るから、大きくなっちゃってさ…HPH」","W"
					CASE 1
						PRINTFORMDL 鈴瑚を下着姿にした。よく見ると、パンツが少し湿っている……
						CALL HPH_PRINT,@"「…キミと一緒にいると、どうしても…ねHPH」","W"
				ENDSELECT
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「%CALLNAME:MASTER%……どう？変じゃない、よね…？」
						PRINTFORMW 「……な、何か言ってよ…！」
					CASE 1
						PRINTFORML （%CALLNAME:MASTER%…すっごい見てる…！は、恥ずかしい……っ！）
						PRINTFORMDW 下着姿の鈴瑚を目に焼き付けた……！
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「…何、その目？下着がダサいって言いたいの？」
						PRINTFORML 「サイズが大きいと、こういうのしか無いんだよ……」
						PRINTFORMDW 良く似合っていると思うが、鈴瑚はあまり気に入っていないようだ……
					CASE 1
						PRINTFORML 「……いつまで見てるのさ？…スケベ」
						PRINTFORMDW 下着姿の鈴瑚を目に焼き付けた……！
				ENDSELECT
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
				PRINTFORMDL 鈴瑚の服をあえて半分だけ脱がせた。
				PRINTFORMDW …いかにも襲っている感じがして、興奮する……！
			;通常
			ELSEIF TALENT:恋人
				SELECTCASE RAND:2
					CASE 0
						CALL HPH_PRINT,@"「ふふっ…♪どうぞ…HPH」","L"
						CALL HPH_PRINT,@"「キミ専用のおっぱい……味わってね…HPH」","L"
						PRINTFORMDW 曝け出された果実を見て、%CALLNAME:MASTER%はごくりと唾を飲み込んだ……！
					CASE 1
						CALL HPH_PRINT,@"「服着たままするのって、すっごくドキドキするよね……HPH」","L"
						PRINTFORMDW 鈴瑚も興奮してくれているようだ……！
				ENDSELECT
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「服……着たまま、するの……？」
						CALL HPH_PRINT,@"「うん……HPH いいよ……HPH」","W"
					CASE 1
						CALL HPH_PRINT,@"「ああっ…HPH」","L"
						PRINTFORMDW 橘色のシャツを捲り上げると、ぶるんっと双房があらわになった……！
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「服……着たまま、するの……？」
						PRINTFORMW 「……裸よりは…まあ……」
					CASE 1
						PRINTFORML 「……今、大声出したらどうなるかな？」
						PRINTFORMW 「しないよ。冗談冗談」
				ENDSELECT
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;パンツちょうだい
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORML 「おお…これが、%CALLNAME:MASTER%のパンツ……！」
					PRINTFORMDW 鈴瑚は、%CALLNAME:MASTER%に貰ったパンツをまじまじと観察している……
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					IF TALENT:恋人
						CALL HPH_PRINT,@"「いいよHPH　その代わり…♪」","L"
						CALL HPH_PRINT,@"（今度、そのパンツでオナニーしてるとこ見せてHPH）","W"
					ELSEIF TALENT:恋慕
						CALL HPH_PRINT,@"「はい、どうぞ…HPH」","L"
					ELSE
						PRINTFORML 「はいはい……もう、キミって奴は……♪」
					ENDIF
					PRINTFORMDW 団子のように丸められた鈴瑚のパンツを受け取った。
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					IF TALENT:恋人
						PRINTFORML 「もー…それお気に入りなんだから、大切にしてよ…♪」
					ELSEIF TALENT:恋慕
						PRINTFORML 「えぇ……？は、はい……」
					ELSE
						PRINTFORML 「……変態」
					ENDIF
					PRINTFORMDW 団子のように丸められた鈴瑚のパンツを受け取った。
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORML 「前から思ってたけど…人が履いてたパンツ集めるなんて、絶対変だよ……」
					PRINTFORMDW 鈴瑚に可哀想な物を見るような目で見られたので、パンツは諦めた……
					RETURN 1
				ENDIF
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;怒り口上
;==================================================
@M_KOJO_EVENT_K108_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの度胸で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		CALL COLORMESSAGE("「キミがそういう態度とるなら、こっちにも考えがあるよ」", C_ORANGE, 0, 0)
		SETCOLOR 0xFFFF00
		PRINTFORML MGMG
		PRINTFORMDW 鈴瑚の視線からは敵意を感じる……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[臆病]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		CALL HPH_PRINT,@"「ふぅ……HPH…ちょっと休憩……♪」","L"
		PRINTFORMDW 疲れたからか、鈴瑚の拘束が緩んだ……
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		CALL HPH_PRINT,@"「は……HPH ふぅ…HPH %CALLNAME:MASTER%…ごちそうさまHPH」","L"
		PRINTFORMDW 鈴瑚はようやく満足したようだ。蜜壺からは大量の精液が流れ出ている……
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORML 「…じゃあそろそろ寝よ―」
		PRINTFORML 「あっ…%CALLNAME:MASTER%…♪」
		CALL HPH_PRINT,@"「ホント、元気だねぇキミは…HPH」","W"
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		CALL HPH_PRINT,@"「はははっ♪…こりゃ、明日の鈴瑚屋は臨時休業だね……HPH」","L"
		PRINTFORMDW その後、朝まで鈴瑚と激しく愛し合った……
	RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_EVENT_K108_31(ARG,ARG:1)
;口上主はTARGET
;ARGは会ってない日数
;何日以上会ってなかったら愚痴を言うとかできます
;CFLAG:オナバレで分岐入れてもよさそう
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;今日会っていない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今日会っている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

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

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

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

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

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

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

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

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

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

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

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

SELECTCASE 前戯１
	CASE 1
		PRINTFORML Ｃ責め
	CASE 2
		PRINTFORML Ｂ責め
	CASE 3
		PRINTFORML Ｍ責め
ENDSELECT

IF 本番はどっちか
	PRINTFORML Aで本番
ELSE
	PRINTFORML Vで本番
ENDIF
;-------------------------------------------------
[SKIPEND]

;-------------------------------------------------
;処女・無自覚非処女に挿入する直前の口上
;RETURN 1するとコマンドをキャンセルします
;RETURN 0なら通します
;CFLAG:破瓜キャンセル口上有がオンになってないと読み込まれないので注意
;-------------------------------------------------
@M_KOJO_EVENT_K108_LOST_VIRGIN_STOP
;-------------------------------------------------
PRINTFORML
RETURN 1

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_初回がオンになっている場合のみ有効。
;初めて押し倒した時、ここでRETURN -1すると押し倒しを強制的にキャンセルします。
;RETURN 0なら通常の判定を行い、RETURN 1すると無条件に成功させます。
;特定のイベント（デート帰りキスなど）を見るまで诶嘿嘿できないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K108_PERMISSION_1
;-------------------------------------------------
PRINTFORML
;RETURN -1
RETURN 0
;RETURN 1
;-------------------------------------------------

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_通常がオンになっている場合のみ有効。
;合意付きで押し倒した時、ここでRETURN -1すると押し倒しを強制的にキャンセルします。
;RETURN 0なら通常通り成功させます。
;合意があっても何らかの理由で诶嘿嘿できないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K108_PERMISSION_2
;-------------------------------------------------
PRINTFORML
RETURN 0
;RETURN -1
;-------------------------------------------------

;-------------------------------------------------
;部屋描写用関数
;口上キャラのOMANEKIBEYAか拠点の描写に使います
;記入する際はコメントアウトを外してください
;-------------------------------------------------
;@K108_ROOM_DESCRIPTION
;PRINTFORML 例）生活感のない殺風景な部屋だ
;-------------------------------------------------

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

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

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

SIF 0
	TCVAR:引力点 = 0

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

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

path: ERB/口上・メッセージ関連/個人口上/【108】鈴瑚/M_KOJO_K108_イベント.ERB