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

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

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

;### 口上存在判定 ###################################
@M_KOJO_K85(ARG)
;ここでRESULTSを設定すると他の同キャラ口上を突っ込まれても正常動作する。

;RESULTS = _TEST_

;と設定すると、"EVENT"系イベントだと
;M_KOJO_TEST_EVENT_K85_1() とかで呼ばれる…はず。（未テスト機能）

;ここでCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります

;コメントアウトを外して眠姦口上有、時間停止口上有に1を入れると、それぞれ時間停止時、眠姦時、なりきり時にコマンド口上が読み込まれるように
;入れないと時間停止時、眠姦時、なりきり時は一切喋りません

;破瓜キャンセル口上有に1を入れると、@M_KOJO_EVENT_K85_LOST_VIRGIN_STOPでキャンセルの成否を操作できます
;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れるとM_KOJO_EVENT_K85_PERMISSIONで押し倒しの成否を操作できます

;Xにはキャラ番号を入れてください

;CFLAG:X:眠姦口上有 = 0
;CFLAG:X:時間停止口上有 = 0
;CFLAG:X:なりきり口上有 = 0
;CFLAG:X:破瓜キャンセル口上有 = 0
;CFLAG:X:口上内抱き寄せ判定_初回 = 0
;CFLAG:X:口上内抱き寄せ判定_通常 = 0

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

;口上存在判定です、けしてコメントアウトしないでください
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K85

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

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K85
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
;拠点が命蓮寺かどうか
IF MAIN_MAP == 1
	PRINTFORML 「……なるほど、聖様から話は聞いてましたけど」
	PRINTFORML 「あなたが命蓮寺の新しい住人でしたか」
	PRINTFORML 「っとと、失礼。はじめまして」
	PRINTFORML 「どうも。私は命蓮寺で修行をしている 雲居一輪といいます」
	PRINTFORMW 丁寧に一礼した少女は整った顔立ちをしており、
	PRINTFORMW また、たわわに実った大きな胸も、羨望を集めるに足るものだろう
	PRINTL
	PRINTFORMW 「色々大変でしょうが、これから共に暮らす仲です。よろしくお願いしますね」
	PRINTFORMW そう言うと彼女はニッコリと笑う。太陽のような笑顔に%CALLNAME:MASTER%は少し見とれてしまった――
ELSE
	PRINTFORMW 「そういえば最近幻想郷に変な住人が増えたとか聞きましたけど、あなたでしたか」
	PRINTFORMW 「っとと、失礼。はじめまして」
	PRINTFORMW 「どうも。私は命蓮寺で修行をしている 雲居一輪といいます」
	PRINTFORMW 丁寧に一礼した少女は整った顔立ちをしており、
	PRINTFORMW また、たわわに実った大きな胸も、羨望を集めるに足るものだろう
	PRINTL
	PRINTFORMW 「色々大変でしょうが、今後も顔を合わせる機会があると思いますし。よろしくお願いしますね」
	PRINTFORMW そう言うと彼女はニッコリと笑う。太陽のような笑顔に%CALLNAME:MASTER%は少し見とれてしまった――

ENDIF

PRINTL
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K85_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
;地の文
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
IF LOCAL
	PRINTFORML
	PRINTFORMW 「はぁ～ 楽しかった。また誘ってよ。%CALLNAME:MASTER%」
	PRINTFORMW 帰り道、歩調を合わせながら、並んで帰路を歩いていく二人
	PRINTFORMW ふと横を見ると、一輪は%CALLNAME:MASTER%の横顔を見つめていた
	PRINTFORMW その穏やかな表情に釣られて微笑みつつ、歩みを止める
	PRINTFORMW なにか顔についてるか、と聞こうとしたその時――
	PRINTFORML
	PRINTFORMW ふわりと、彼女の香りがした
	PRINTFORMW 一輪の顔が目の前にあると気づいた時には
	PRINTFORMW 二人の唇は重なっていた
	PRINTFORMW 「……っん……っはぁ」
	PRINTFORML
	PRINTFORMW 「……えへへ、……デートのお礼、受け取ってね//」
	PRINTFORMW そう言ってはにかむ彼女は、とても可愛らしかった
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K85_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 「初めて挨拶したときは、こんな風に二人きりで遊びに行くとは思わなかったな…」
		PRINTFORMW 帰り道、並んで帰路を歩く中、ポツリと一輪が呟いた。
		PRINTFORMW 「私ね、最初は%CALLNAME:MASTER%のことを男としてみることは絶対に無いなって、思ってた」
		PRINTFORMW 「でも、一緒にいると、本当に楽しくて、嬉しくて…」
		PRINTFORMW 照れくさそうに少し俯き、再び顔を上げ
		PRINTFORMW 薄らと朱色に染まった顔で、その言葉を口にする――
		PRINTFORMW 「私は……」
		PRINTFORMW 「私は、%CALLNAME:MASTER%の事が好き」
		PRINTFORMW 「私と、付き合ってくれませんか？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		PRINTFORMW こちらも同じ想いであることを告げると、一輪は目に薄らと涙を浮かべる
		PRINTFORML
		PRINTFORMW 「本当に……？」
		PRINTFORMW 「本当に、私で良いの？」
		PRINTFORML
		PRINTFORMW まだ信じられないといった顔で聞き返す一輪に、%CALLNAME:MASTER%ははっきりと頷く
		PRINTFORMW 感極まった一輪は、思わず%CALLNAME:MASTER%に抱き着いてきた
		PRINTFORMW しばらくの抱擁の後、%CALLNAME:MASTER%は一輪が常にかぶっている頭巾に手をかけた
		PRINTFORMW 「あっ…//」
		PRINTFORMW 風に触れ、少し乱れた髪を撫でる。腕の中の一輪は、普段とは違って花のようにしおらしい。
		PRINTFORMW 「%CALLNAME:MASTER%、大好きっ…//」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
				PRINTFORML
		PRINTFORMW 「……」
		PRINTFORMW 「……あー、そっか…」
		PRINTFORMW 「私、ちょっと浮かれていたみたいね」
		PRINTFORMW どうにか平静を取り繕う一輪だが、明らかに落胆の様子が見て取れる
		PRINTFORMW 「今日は楽しかったわ、本当に」
		PRINTFORMW 「また、一緒に遊んでくれると嬉しいわ」
		PRINTFORMW 「あと、……その」
		PRINTFORMW 「いつか、絶対に振り向かせて見せるから」
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K85_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
		PRINTFORML
		IF TALENT:恋人
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「……あはは、やりすぎだって♪」
				PRINTFORML 他愛無い会話をする。
				PRINTFORML 手を繋ぎ、共に歩く。それだけで幸せな気持ちが湧いてくる
				PRINTFORML 「えへへ……私今、%CALLNAME:MASTER%と居て幸せ…」
				PRINTFORMW 同じ方向を向き、二人で寄り添いあいながら、ゆっくりと帰路についた
			CASE 1
				PRINTFORML 「うーん、次のデートはどこにしようか？」
				PRINTFORML 「私あそこに行ってみたいなー」
				PRINTFORML 帰路に着く二人は、早速次のデートの相談をしている
				PRINTFORML 「ああでも、あの景色もまた%CALLNAME:MASTER%と一緒に見たいな……なんて」
				PRINTFORMW 二人の帰り道に、話題と想いは尽きることなく続いていった……
			CASEELSE
				PRINTFORML 「ふふっ、やっぱり%CALLNAME:MASTER%と一緒にいるとあっという間ね」
				PRINTFORML 「ただ、楽しい時間は一瞬で過ぎ去っちゃうものだけど」
				PRINTFORML 「その一瞬がずっと続くなら、何も問題ないよね、%CALLNAME:MASTER%♪」
				PRINTFORML そういって一輪はぎゅっ、と%CALLNAME:MASTER%に抱き付いてきた
				PRINTFORML 歩き辛いと抗議しても無駄だと悟った%CALLNAME:MASTER%は、
				PRINTFORMW 一輪のぬくもりを感じながらのんびりと家路に着いた……
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 帰り道を歩くあなたと一輪は、今日のデートを振り返っている
				PRINTFORML 「いやあ、楽しかったねー♪」
				PRINTFORML 「そうだ、今度はあそこ行こうよ、あそこ！」
				PRINTFORML 「私のおススメを紹介してあげるね。ふっふっふ」
				PRINTFORML 抱き寄せられた腕に当たる胸の感触を楽しみつつ、
				PRINTFORMW 談笑しながら帰路へとついた――
			CASE 1
				PRINTFORML 「あ～あ、もうデートは終了か～……」
				PRINTFORML 「……%CALLNAME:MASTER%は楽しかった？」
				PRINTFORML %CALLNAME:MASTER%が頷くと、一輪は嬉しそうに微笑んだ
				PRINTFORML 「良かったぁっ、それじゃあ、また続きをしないと、ね♪」
				PRINTFORMW 次の逢瀬に想いを馳せながら、二人は帰り道を歩いて行った……
			CASEELSE
				PRINTFORML 「私、この帰りの時間ってのも結構好きなんだ～」
				PRINTFORML 「なんというか、そこまで含めてデートだなぁ、って……」
				PRINTFORML そういう一輪の横顔には、穏やかな充足感があった
				PRINTFORMW （%CALLNAME:MASTER%も同じように感じてくれてたら、嬉しいな……）
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「あー、もう帰る時間か……」
				PRINTFORML 「中々楽しい時間でした♪　次もよろしくね～」
				PRINTFORMW そう言って手を振りながら、朗らかに一輪は帰っていった……
			CASEELSE
				PRINTFORML 「いや～、やっぱり誰かと二人で出歩くのも良いもんだねー」
				PRINTFORML 「%CALLNAME:MASTER%、今日はありがとう」
				PRINTFORMW 「では、さようならー♪」
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「じゃあ、そろそろ帰りますか」
				PRINTFORML 「良い気分転換になりました。機会があればまた誘ってください」
				PRINTFORMW 一輪は一礼すると、小さく手を振りながら帰っていった
			CASEELSE
				PRINTFORML 「っと、今日はこれで解散ですか」
				PRINTFORMW 「気を付けて帰ってくださいね。それでは」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K85_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;境内の場合
		IF CFLAG:MASTER:現在位置 == 102
			IF TALENT:恋慕 || TALENT:恋人
				SELECTCASE RAND:5
				CASE 0
					PRINTFORML 「……いつか二人で……えへへ……」
					PRINTFORML 一輪は何やら幸せそうに独り言を呟いている
					PRINTFORML 「えへへ……」
					PRINTFORMW 「んぁ……？あ、こんにちは、%CALLNAME:MASTER%♪」
				CASE 1
					PRINTFORML %CALLNAME:MASTER%が近づくと、一輪は花のような笑顔で迎えてくれた
					PRINTFORML 「やっほー　%CALLNAME:MASTER%♪」
					PRINTFORML 二人の雰囲気を察したのか、雲山は一輪から離れ日向ぼっこに向かった。
					PRINTFORMW 「気を使わせたかなって？大丈夫よ。もともとのんびりするのが好きな奴だし」
				CASE 2 TO 3
					PRINTFORML 「ああ、やっぱり%CALLNAME:MASTER%だったのね♪」
					PRINTFORML 一輪は%CALLNAME:MASTER%が来ることを分かっていたかのように暖かい視線を向ける
					PRINTFORML 「どうしてくるのがわかったかって？修行の成果ってやつよ♪」
					PRINTFORML
					PRINTFORMW ――直前に雲山が耳打ちしてたことは見なかったことにしよう。
				CASEELSE
					SELECTCASE TIME
					;朝８時～夕方５時。実質休日のみ
					CASE 480 TO 1020
						PRINTFORML 一輪は雲山と一緒にで子供達の遊び相手をしている
						PRINTFORML %CALLNAME:MASTER%に気づくと、満開の笑顔を見せ、%CALLNAME:MASTER%に近寄った。
						PRINTFORML その様子を見ていた子供達に誂われてしまったが、一輪はむしろ見せつけるように%CALLNAME:MASTER%に絡んでいった。
						PRINTFORMW 「ふっふっふ、君たちには刺激が強すぎるかな～♪」
					;それ以外
					CASEELSE
						PRINTFORML 一輪は%CALLNAME:MASTER%に気付くと、くいくいっ、と手招きしている
						PRINTFORML 近づいてみると顔を赤らめた一輪がそっと腕を絡めてきた
						PRINTFORML 腕からは柔らかい胸の感触と温かさが伝わっている……
						PRINTFORML
						PRINTFORML 「本当はあまりここでこういうのはマズイんだけどね……%UNICODE(0x2665)%」
						PRINTFORMW 悪戯っぽく笑う一輪の腕が%CALLNAME:MASTER%から離れることはなかった
					ENDSELECT
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:5
				CASE 0
					PRINTFORML 「うーん、むにゃむにゃ……%CALLNAME:MASTER%……」
					PRINTFORMW 壁に寄り掛ったまま、一輪は寝言で%CALLNAME:MASTER%の名を呼んでいる
				CASE 1
					PRINTFORML 一輪が里の子供達と戯れている
					PRINTFORML %CALLNAME:MASTER%に気づくと、満開の花のような笑顔で迎えてくれた。
					PRINTFORML 「%CALLNAME:MASTER%。　こんにちは」
					PRINTFORMW その様子を見ていた子供達に誂われてしまった…
				CASE 2 TO 3
					PRINTFORML 「ああ、やっぱり%CALLNAME:MASTER%でしたか」
					PRINTFORML 「いやあ、なんとなく気配がしたので」
					PRINTFORMW %CALLNAME:MASTER%に気付いた一輪はどこか嬉しそうだ
				CASEELSE
					SELECTCASE TIME
					;朝８時～夕方５時。実質休日のみ
					CASE 480 TO 1020
						PRINTFORML 一輪が里の子供達と戯れている
						PRINTFORML %CALLNAME:MASTER%に気づくと、満開の花のような笑顔で迎えてくれた。
						PRINTFORMW 「%CALLNAME:MASTER%。　こんにちは」
					CASEELSE
						PRINTFORML 「う～～ん、どうしよう」
						PRINTFORML なにやら真剣な顔で一輪が悩んでいた
						PRINTFORML
						PRINTFORML 「…貰ったお酒、どこに隠そうかしら…？」
						PRINTFORML …………聞かない方が良かったかも知れない
						PRINTFORMW 「あ、%CALLNAME:MASTER%！聞いてたでしょ！ここは私を助けると思って！」
					ENDSELECT
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「いち、にぃ　いち、にぃ」
					PRINTFORMW どうやら稽古をしているようだ
				CASE 1
					PRINTFORML 「おや、こんにちは」
					PRINTFORML 気軽に挨拶をしてくる一輪に、%CALLNAME:MASTER%も挨拶を返す
					PRINTFORMW 普通に佇んでいるだけだが、どこか隙の無さを感じる
				CASEELSE
					SELECTCASE TIME
					;朝８時～夕方５時。実質休日のみ
					CASE 480 TO 1020
						PRINTFORML 一輪が子供と話している
						PRINTFORML どうやら近所の里の子のようだ
						PRINTFORMW 「ほらほら、お墓の方で遊ばないのー！」
					CASEELSE
						PRINTFORML 「あれ、どうしましたこんな時間に」
						PRINTFORMW 不思議そうな顔で、一輪は%CALLNAME:MASTER%に挨拶をした
					ENDSELECT
				ENDSELECT
			ENDIF
		;境内以外
		ELSE
			IF TALENT:恋慕 || TALENT:恋人
				SELECTCASE RAND:4
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%。こっちで一緒にお茶でもどう？」
					PRINTFORML 座ってくつろいでいた一輪は%CALLNAME:MASTER%に気付くと、
					PRINTFORML ぽんぽん、と手で自分の隣へ促す
					PRINTFORML
					PRINTFORML 「えへへ、ほら、もっとこっちに♪」
					PRINTFORML %CALLNAME:MASTER%が隣に座ると、一輪が体を摺り寄せてきた
					PRINTFORMW 柔らかい感触と微かに甘い香りが心地良い……
				CASE 1 TO 2
					PRINTFORML 「ああ、やっぱり%CALLNAME:MASTER%だったのね♪」
					PRINTFORML 一輪は%CALLNAME:MASTER%が来ることを分かっていたかのように暖かい視線を向ける
					PRINTFORML 「どうしてくるのがわかったかって？修行の成果ってやつよ♪」
					PRINTFORML
					PRINTFORMW ――直前に雲山が耳打ちしてたことは見なかったことにしよう。
				CASEELSE
					PRINTFORML 「……うへへ、%CALLNAME:MASTER%、そこはダメだって～……うへへ」
					PRINTFORML なにやら一輪が気の抜けきったニヤケ面で眠っている
					PRINTFORML 「んんっ、だから、そこはぁ～っ…………あ。」
					PRINTFORML ……目覚めたと同時に目が合った。
					PRINTFORML
					PRINTFORMW 「…………えと、その……おはようございましゅ……\/\/\/」
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:5
				CASE 0 TO 2
					PRINTFORML 「ああ、やっぱり%CALLNAME:MASTER%でしたか」
					PRINTFORML 「いやあ、なんとなく気配がしたので」
					PRINTFORMW %CALLNAME:MASTER%に気付いた一輪はどこか嬉しそうだ
				CASE 3
					PRINTFORML 「おや、どうも。%CALLNAME:MASTER%」
					PRINTFORML %CALLNAME:MASTER%を見かけた一輪は薄らと微笑んでいる
					PRINTFORML なんとなく理由を聞いてみると、
					PRINTFORML 「へ？笑ってた？……なんでだろ」
					PRINTFORMW 自分でもよく分からないという風に首を傾げている
				CASEELSE
					IF INROOM(CFLAG:現在位置)
						PRINTFORML 「……なんだろ、この気持ち……」
						PRINTFORML 一輪が胸に手を当てて何かを自問している
						PRINTFORML %CALLNAME:MASTER%が挨拶をするとビクリと振り返った
						PRINTFORML 「はひ！？何です！？重カラサワカラサワイザナミイザナミアラキデアラキデ！？」
						PRINTFORMW よほど驚いたのか、謎の言葉を発している。お経の一種だろうか……？
					ELSE
						PRINTFORML 「んっ、んっ、んっ……っと」
						PRINTFORML 声の方を見やると、一輪がストレッチをしていた
						PRINTFORML 時折強調されるとても柔らかい股関節や、
						PRINTFORML 背をそらす度に揺れる胸に健康的な色気を感じる
						PRINTFORMW 「あ、%CALLNAME:MASTER%、もし暇なら一緒にしない？」
					ENDIF
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「おや、%CALLNAME:MASTER%。こんにちは」
					PRINTFORMW 一輪が軽く会釈すると、頭巾に隠れた髪が緩やかに揺れた
				CASEELSE
					PRINTFORM 「おや、こんにちは」
					PRINTFORML 気軽に挨拶をしてくる一輪に、%CALLNAME:MASTER%も挨拶を返す
					PRINTFORMW 普通に佇んでいるだけだが、どこか隙の無さを感じる
				ENDSELECT
			ENDIF
			;時姦刻印があるとき時姦刻印/7で
			IF MARK:時姦刻印 > 0 && RAND:7 < MARK:時姦刻印
				PRINTFORML %CALLNAME:MASTER%が近付いたことで、\@MARK:快楽刻印>0? #時姦によって\@強烈な快楽を刻まれた一輪の肉体は
				PRINTFORMW 無意識に%CALLNAME:MASTER%を求めて疼いている……
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「ちょっと失礼するわね」
			IF TALENT:恋慕
				PRINTFORMW 呑気な中に親しみが込められたような調子で一輪が近寄ってきた
			ELSEIF TALENT:思慕
				PRINTFORMW %CALLNAME:MASTER%と目が合うとちょっぴりそわそわしたような様子で、一輪が近寄ってきた
			ELSE
				PRINTFORMW そういって一輪がこちらへやってきた
			ENDIF

			;時姦刻印があるとき時姦刻印/7で
		IF MARK:時姦刻印 > 0 && RAND:7 < MARK:時姦刻印
			IF MARK:快楽刻印 > 0
				PRINTFORML %CALLNAME:MASTER%の傍にきたことで、一見普通に見える一輪の服の下では
				PRINTFORMW 自然と発情して敏感になっていく性感帯が%CALLNAME:MASTER%に与えられる悦楽を待ち侘びている……
			ELSE
				PRINTFORML どうやら時姦によって抗いようも無く開花させられた牝の本能が、
				PRINTFORMW 無意識に%CALLNAME:MASTER%を求め、その距離をより縮めているようだ……
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			IF MARK:快楽刻印 > 0 && RAND:7 < MARK:快楽刻印
				PRINTFORML 「%CALLNAME:MASTER%発見……よいしょ」
				PRINTFORML 一輪は%CALLNAME:MASTER%を見つけるや否や、するりと湯に入って身を寄せてきた
				PRINTFORML 「はぁ～、温まる温まる……ふぅ……っ」
				PRINTFORML のんびりとした声とともに、湯船の中で一輪の脚が%CALLNAME:MASTER%の脚に絡み付いてくる
				PRINTFORML 「んん～？どうかした、%CALLNAME:MASTER%？」
				PRINTFORML 「……ただのスキンシップだけど？ふふふ」
				PRINTFORML 「くつろぐ場所なのに、まさか発情なんてしないよねー……」
				PRINTFORML 悪戯っぽく笑う一輪は、脚を擦り付け続けることを止めない
				PRINTFORMW 湯気のせいかもしれないが、その瞳はうっとりと濡れているように見えた……
			ELSEIF MARK:時姦刻印 > 0 && RAND:7 < MARK:時姦刻印
				PRINTFORML 「ありゃ、先に入ってたのね」
				PRINTFORML 「……私もすぐいくから待っててね」
				PRINTFORML そう言って一輪は洗い場に向かい、体を洗い始めた
				PRINTFORML ただしその視線は%CALLNAME:MASTER%の身体へと向けられており、様子がおかしい
				PRINTFORML 時姦の記憶に引き摺られて発情したのか、
				PRINTFORML 全身を洗う手はやけに艶めかしく這い回り、特に局部を洗う指先が卑猥な動きをしている
				PRINTFORML 湯をかけて一通り身体を流し終えると、熱い吐息を洩らしながら湯船へと入ってきた
				PRINTFORMW 「はぁああ……ようやく準備完了っと……んふぅっ」
			ELSE
				PRINTFORML 「ほらほら%CALLNAME:MASTER%、隣空けてよー」
				PRINTFORML %CALLNAME:MASTER%の浸かっている横へ一輪が入ってきた
				PRINTFORML 「んん～っ、……はぁ～～、生き返るなぁ～……」
				PRINTFORML しばらく浸かった後、こてん、と一輪が頭を%CALLNAME:MASTER%に預けてくる
				PRINTFORML 「ふぅ……極楽過ぎて眠っちゃいそうなんで、そうなったら溺れる前に起こしてね？」
				PRINTFORMW 触れ合う心地良さを感じながら、上目遣いで問う一輪に%CALLNAME:MASTER%は苦笑して頷いた
			ENDIF
		ELSEIF TALENT:恋慕
			PRINTFORML 「――ありゃ、先に入ってたのね」
			PRINTFORML 一輪は%CALLNAME:MASTER%に近づきながら湯に浸かっていく
			PRINTFORML
			PRINTFORML 「ふふ、お風呂はやっぱり気持ちいい～……んんんっ」

			IF MARK:快楽刻印 > 0 && RAND:7 < MARK:快楽刻印
				PRINTFORML 大きく背を反らせた一輪が、挑発的に微笑んで%CALLNAME:MASTER%にもたれかかる
				PRINTFORML 「ああでも……%CALLNAME:MASTER%は別の『気持ちイイこと』の方が好き、かしら？」
				PRINTFORML 見せつけるように浮かぶ豊満な双丘は入浴して間もないのに桜色に染まり、
				PRINTFORMW 湯の流れ落ちる双丘の先端は%CALLNAME:MASTER%の視線を受けてか既に固くなっている……
			ELSEIF MARK:時姦刻印 > 0 && RAND:7 < MARK:時姦刻印
				PRINTFORML 「……それにしても何でこう……そそるというか……」
				PRINTFORML ぼそりと呟く一輪の視線は%CALLNAME:MASTER%の裸体、特に股間へと注がれていた
				PRINTFORML 「いえ何でも……はぁあ……っ」
				PRINTFORML 気付かれないよう咄嗟に目を逸らすが、時の止まった中で開発された一輪の肉体は
				PRINTFORMW 否応なく%CALLNAME:MASTER%の裸体に反応して熱く疼いている……
			ELSE
				PRINTFORML 目の前で背伸びをする一輪。
				PRINTFORMW その震える胸と綺麗な腋のラインに%CALLNAME:MASTER%は見惚れた
			ENDIF

		ELSE
			PRINTFORML 「――あれっ、%CALLNAME:MASTER%！？」
			PRINTFORML 湯気の中から現れた一輪は、慌ててその豊満な身体を抱きしめるようにして隠した
			PRINTFORML
			PRINTFORML 「入ってたんですか……ははは」
			PRINTFORML 「その……お邪魔します」

			IF MARK:快楽刻印 > 0 && RAND:7 < MARK:快楽刻印
				PRINTFORML 顔を赤らめながらも湯船に浸かる一輪は、
				PRINTFORML どうやらお互いに裸で近付くことで身体が性交の記憶を思い出したらしい
				PRINTFORMW のぼせたように時折ちらりと%CALLNAME:MASTER%の股間へ熱い視線を注いでいる……
			ELSEIF MARK:時姦刻印 > 0 && RAND:7 < MARK:時姦刻印
				PRINTFORML %CALLNAME:MASTER%の裸を認識することで、一輪の肉体が勝手に時姦の悦楽を思い出してしまう
				PRINTFORMW 隠した秘所からは、湯船に入る前だというのに透明な液体が滴り落ちている……
			ELSE
				PRINTFORML %CALLNAME:MASTER%から少し離れたところで、一輪は湯に浸かった
				PRINTFORMW ちらりと見える胸の谷間へと、水滴が吸い込まれていくのが艶めかしい……
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF MARK:快楽刻印 > 0 && RAND:7 < MARK:快楽刻印
			PRINTFORML 「――あ、……おおぉー……、っとと」
			PRINTFORML 「し、失礼しました……ははは」
			PRINTFORML 数秒%CALLNAME:MASTER%の肢体を物欲しそうに眺めていた一輪は我に返ると、
			PRINTFORMW 慌てて丸見えだった秘部を隠して去っていった
		ELSEIF MARK:時姦刻印 > 0 && RAND:7 < MARK:時姦刻印
			PRINTFORML 「うわぁっ、入ってたんですか」
			PRINTFORML 「……んくっ、ご、ごゆっくり……」
			PRINTFORML 一瞬得体の知れない快感が走ったような錯覚を覚え硬直した一輪は、生唾を飲み込みながら踵を返した
			PRINTFORML 去っていく丸見えのお尻の下に目をやると、
			PRINTFORMW 風呂に入ってもいないのに透明な液体が伝っていた……
		ELSE
			PRINTFORML 「うぇ！？し、失礼しました！」
			PRINTFORMW 一輪は気恥ずかしそうに出て行ってしまった……
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML 「こら！入浴時間は決まってるでしょ！」
		PRINTFORMW 「さっさと出ていきなさい！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K85_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 = 0
		;-------------------------------------------------
		;共通。あなたが男かふたなり時、合意ありで奉仕・口淫経験一定以上
		IF GETBIT(TALENT:MASTER:性別,1) && CFLAG:既成事実 & 合意_うふふ && EXP:奉仕快楽経験 >= 10 && EXP:口淫経験 >= 10
			SELECTCASE RAND:4
			CASE 0
				PRINTFORMW 眠りから覚めようとする%CALLNAME:MASTER%は、下半身から何やら心地良い違和感を覚えた
				PRINTFORML
				PRINTFORML 「むぶっ、んっ、んぶっ、んぷはぁっ……んあ？おはよう、%CALLNAME:MASTER%」
				PRINTFORML 見れば、一輪が%CALLNAME:MASTER%の股間に顔を埋めてペニスに熱い口付けをしている
				PRINTFORML 「起き掛けのおちんちんって、なんでこんなにガチガチなんだろうね……じゅるっ」
				PRINTFORML 「美味しふぉ……もふぉい苦しほうふぁっふぁから、っぷあ、鎮めてあげようと思って……っ」
				PRINTFORML 喋る間も熱心に一輪の唇と舌が絡み付き、
				PRINTFORML てらてらと光るペニスと唇が奏でる水音が激しくなっていく
				PRINTFORML 「んふ――っ、はぁ、凄いっ……！はむっ、むじゅるっ、じゅぷっじゅぷっ、ん゛、む゛ぅっ！」
				PRINTFORML やがて限界が来た%CALLNAME:MASTER%は、恍惚とむしゃぶり付く一輪の口内に精液をぶちまけた……
				PRINTFORMW 「んぶっ、んくっ、んっ……っはぁあ、御馳走様でした……えへへっ」
			CASE 1
				PRINTFORMW 悩ましい感覚に%CALLNAME:MASTER%が目を覚ますと、股間からぴちゃぴちゃと音が聞こえている
				PRINTFORML
				PRINTFORML 「おはようございまふ……はあっ、んちゅっ、ぺろぺろっ……」
				PRINTFORML 「こういう、朝フェラっていうの、喜んで貰えるかなって……はあぁっ」
				PRINTFORML %CALLNAME:MASTER%のペニスと一輪の唇との間につぅー、と幾筋もの透明な糸が引き、
				PRINTFORML その口淫の長さと卑猥さを物語っている
				PRINTFORML 「それに……ふふっ、%CALLNAME:MASTER%の寝顔も、ぴくぴくするおちんちんも、可愛いくって♪」
				PRINTFORML 「つい悪戯したくなっちゃうのよね～、ぇろれろっ……じゅるるっ」
				PRINTFORML 「ほらぁ、朝一の濃ゆいの、びゅーびゅーしていいよぉ……はぁむ、んぶ、んっ、んっ」
				PRINTFORML その言葉が引き金になったのか、%CALLNAME:MASTER%ははち切れんばかりに膨らんだ亀頭へ吸い付く
				PRINTFORMW 一輪の口の中へと、熱い迸りを叩き付けた……
			CASE 2
				PRINTFORML 「ほら、%CALLNAME:MASTER%、早く起きて」
				PRINTFORML 「布団の誘惑に負けると後が大変ですよ～」
				PRINTFORMW %CALLNAME:MASTER%は一輪のやけに実感の籠もった台詞と共に揺り起こされた
			CASEELSE
				PRINTFORML 「えぃえぃ……～♪……あ、起きた」
				PRINTFORML %CALLNAME:MASTER%が目を覚ますと、ぷにぷにと頬を突いてくる一輪の姿があった
				PRINTFORMW 「可愛い寝顔をしてたので、つい……さあ、朝ですよー」
			ENDSELECT
		ELSEIF CFLAG:好感度 >= 1500 && CFLAG:信頼度 >= 300
			SELECTCASE RAND:4
			CASE 0
				PRINTFORML 「%CALLNAME:MASTER%－、朝ですよー」
				PRINTFORML 「眠っていたいのは良く分かりますが、起きなさーい……」
				PRINTFORMW %CALLNAME:MASTER%は一輪に優しく起こされ、目を覚ました
			CASE 1
				PRINTFORML 「起床時間ですよ、%CALLNAME:MASTER%」
				PRINTFORML 「%CALLNAME:MASTER%－？……起きないと悪戯しちゃうよ～……？」
				PRINTFORML そう言って一輪がゆっくりと顔を近付けてくる
				PRINTFORML ふわりと漂う柔らかい香りを堪能した%CALLNAME:MASTER%は、目を開けて挨拶をした
				PRINTFORML 「ちょっ、起きてるなら言ってくださいよ……もう」
				PRINTFORMW 悪戯の内容を尋ねても、顔をほんのり赤らめた一輪にはぐらかされてしまった
			CASE 2
				PRINTFORML 「%CALLNAME:MASTER%、起きて下さい」
				PRINTFORML 「布団の誘惑に負けると後が大変ですよ」
				PRINTFORMW %CALLNAME:MASTER%は一輪のやけに実感の籠もった台詞と共に揺り起こされた
			CASEELSE
				PRINTFORML 「えぃえぃ……～♪……あ、起きた」
				PRINTFORML %CALLNAME:MASTER%が目を覚ますと、ぷにぷにと頬を突いてくる一輪の姿があった
				PRINTFORMW 「可愛い寝顔をしてたので、つい……さあ、朝ですよー」
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「ほらほら、朝ですよ%CALLNAME:MASTER%」
				PRINTFORML 「……眠り過ぎると、逆に身体がだるくなりますよ～？」
				PRINTFORMW %CALLNAME:MASTER%は一輪に体を揺すられつつ目を覚ました
			CASEELSE
				PRINTFORML 「%CALLNAME:MASTER%、起きて下さい」
				PRINTFORML 「布団の誘惑に負けると後が大変ですよ」
				PRINTFORMW %CALLNAME:MASTER%は一輪のやけに実感の籠もった台詞と共に揺り起こされた
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		IF TALENT:恋人
				PRINTFORML 「むにゃむにゃ……ねむいー……」
				PRINTFORML 一応起きたようだが、一輪はまだ寝惚け眼のようだ
				PRINTFORML 「%CALLNAME:MASTER%－、チューしてよぅ、チュー……」
				PRINTFORML 「でないと起きられない～……むにゅぅ」
				PRINTFORML ぱたぱたと両手を動かしながら、目をつむったままキスを要求してくる
				PRINTFORML %CALLNAME:MASTER%が仕方なく頬にキスをすると、一輪がだらしなく微笑んだ
				PRINTFORML 「んぅ……♪これで気力ひゃくばい……すぴ～……あいてっ」
				PRINTFORMW 再び寝ようとした恋人に軽くチョップを喰らわせて、ようやく寝坊助は目を覚ました
		ELSEIF TALENT:恋慕 || TALENT:思慕
				PRINTFORML 「ぅおー……ここは私に構わず先へ……むにゃぁ」
				PRINTFORML 寝言を言いながら寝返りを打つ一輪の胸元から、実に柔らかそうな谷間が覗いている
				PRINTFORML %CALLNAME:MASTER%がひとしきりその光景を堪能した頃、一輪が目を覚ました
				PRINTFORMW 「くぉぉお……んお？……ああ、おはようございます」
		ELSE
			PRINTFORML 「ふぁぁ……おはようございます」
			PRINTFORMW 「%CALLNAME:MASTER%も早起きですねえ」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
;ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕 || TALENT:思慕
			PRINTFORML 「っとと、こんな時間」
			PRINTFORML 「……誰かさんのせいで、時が過ぎるのが速くて困っちゃうな」
			PRINTFORML 一輪は名残惜しそうに、眠そうな顔で呟く
			PRINTFORMW 「それでは、また明日」
			PRINTFORML
			PRINTFORMW 「……夜這いなんてしちゃ、駄目だからね？」
		ELSE
			PRINTFORML 「さて、そろそろ寝ませんと」
			PRINTFORML 「%CALLNAME:MASTER%もあんまり夜更かししちゃ駄目ですよー」
			PRINTFORMW 眠そうな目を擦りながら一輪は帰っていった……
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:恋人
			PRINTFORMW 「……っあ゛～っ、はっ、はひっ……」
			PRINTFORMW 「もう……し、死んじゃ、ぅ……」
			PRINTFORMW 汗だくで息も絶え絶えな一輪の姿をちょっぴり楽しんでから、%CALLNAME:MASTER%はお姫様抱っこして寝床へと送ってあげた
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……ぁ、はあ゛っ…はっ…凄過ぎだっ、て」
			PRINTFORMW 「ここまでとは、……っはっ、はぁっ」
			PRINTFORMW 全身が桜色に染まった一輪を、%CALLNAME:MASTER%は背負って部屋に運ぶ。
		ELSE
			PRINTFORMW 「…はぁっっ…もう限界…っ、はっ…」
			PRINTFORMW 肩で息をする一輪をしばらく介抱した後、%CALLNAME:MASTER%は彼女を見送った
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF TALENT:恋人
			PRINTFORML 「わわ！%CALLNAME:MASTER%！%CALLNAME:MASTER%！」
			PRINTFORML 「しっかりして　%CALLNAME:MASTER%！大丈夫……え？疲れただけ？」
			PRINTFORML 落ち着いて%CALLNAME:MASTER%の様子を確認した一輪は、安堵の溜息を吐いた
			PRINTFORML 「もう……びっくりしたぁ」
			PRINTFORML 「あんまり心配させないでよ、もうっ……」
			PRINTFORMW そう言うと一輪は%CALLNAME:MASTER%を優しく抱え上げ、部屋へと運んで行った……
		ELSEIF TALENT:恋慕
			PRINTFORML 「だ、大丈夫！？」
			PRINTFORML 「無茶し過ぎだって……まったく」
			PRINTFORML 「すぐに部屋に運んであげるから、無理しないでね」
			PRINTFORMW そう言うと一輪は%CALLNAME:MASTER%を抱え上げ、部屋へと運んで行った……
		ELSE
			PRINTFORML 「だ、大丈夫ですかー？」
			PRINTFORML 「こりゃ完全に気力が尽きてますね……しょうがない」
			PRINTFORML 一輪は%CALLNAME:MASTER%の身体に手を当てて少量の気を注いだ後、%CALLNAME:MASTER%を担ぎ上げた
			PRINTFORMW 「そんなに疲れるまで無理するからですよ……もう」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
;ENDIF
;RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=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 TALENT:恋人
			PRINTFORML 「へいへーい。%CALLNAME:MASTER%－、どこ行くの」
			PRINTFORML 「……そっか。じゃあ、いってらっしゃい」
			PRINTFORML そう言うと、一輪は笑顔で小さく手を振った
		ELSEIF TALENT:恋慕
			PRINTFORML 「へいへーい。%CALLNAME:MASTER%－、どこ行くの」
			PRINTFORML 「……そっか。じゃあ、いってらっしゃい」
			PRINTFORML そう言うと、一輪は笑顔で小さく手を振った
		ELSEIF TALENT:思慕
			PRINTFORML 「はーい、それではー」
			PRINTFORML 一輪は朗らかに手を振って返してきた
		ELSE
			PRINTFORML 「あ、どうも」
			PRINTFORML 一輪は礼儀正しく会釈を返してきた
		ENDIF
		;快楽or時姦刻印がある時
		IF MARK:快楽刻印 > 0 && RAND:7 < MARK:快楽刻印
			PRINTFORML 遠ざかっていく一輪は一見普通に見えるが、%CALLNAME:MASTER%とすれ違う際に
			PRINTFORML 脳裏に刻まれた快楽の記憶が自然と一輪の蜜壺をひくついたぬかるみに変えてしまっていた……
		ELSEIF MARK:時姦刻印 > 0 && RAND:7 < MARK:時姦刻印
			PRINTFORML しかし衣服の下では、突然の快感に備えて性感帯が勝手にじんわりとした疼きを放ち
			PRINTFORML 一輪本人も気付かない内に%CALLNAME:MASTER%を目で追ってしまっている……
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;聖が入ってきた キャラ番号55
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 15
		IF TALENT:恋人
			PRINTFORML 「聖様、お勤めご苦労さまです」
			PRINTFORML 一輪は%CALLNAME:MASTER%へ寄せていた身体を離し、白蓮に挨拶をする
			PRINTFORMW 会話を眺めていると、一輪は話の合間にこちらへ熱っぽい視線を送ってきた…
		ELSEIF TALENT:恋慕
			PRINTFORML 「聖様、お勤めご苦労さまです」
			PRINTFORML 一輪は%CALLNAME:MASTER%へ寄せていた身体を離し、白蓮に挨拶をする
			PRINTFORMW 会話を眺めていると、一輪は話の合間にこちらへ熱っぽい視線を送ってきた…
		ELSEIF TALENT:思慕
			PRINTFORML 「……っと、シャンとしませんと怒られちゃいますね」
			PRINTFORMW 白蓮が来たことを悟った一輪は、慌てて身を整えた
		ELSE
			PRINTFORML 「あ、多分聖様ですね」
			PRINTFORMW 気配を察知した一輪は、そちらへ向き直った
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;聖以外
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG
		IF TALENT:恋人
			PRINTFORML 「……ん、人が来ちゃったか」
			PRINTFORML 一輪は%CALLNAME:MASTER%と少し距離を置いたものの、
			PRINTFORMW その手は見えないようにあなたの体に触れている
		ELSEIF TALENT:恋慕
			PRINTFORML 「……っとと、誰か来たみたいね」
			PRINTFORML 気配に気づくと一輪は名残惜しそうに距離を取った
			PRINTFORMW 「……もう」
		ELSEIF TALENT:思慕
			PRINTFORML 「……おや、誰でしょう」
			PRINTFORMW 一輪は少し残念そうに、居住まいを直した
		ELSE
			PRINTFORML 「あ、誰か来ましたね」
			PRINTFORMW 気配を察知した一輪は、そちらへ向き直った
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		;相手がひじりん
		IF ARG == 55
			PRINTFORML 「っ、聖様……！？」
			PRINTFORML 「――っ……」
			PRINTFORML %CALLNAME:MASTER%たちの情事を目撃した一輪は少し躊躇った後、こちらへ近付いてきた
			PRINTFORML
			PRINTFORML 「せっかくですし、私も混ぜて下さい！」
			PRINTFORML
			PRINTFORMW 何がせっかくなのかはわからないが発情した雌の顔をして近寄ってくる一輪に断りきれず
			PRINTFORMW %CALLNAME:MASTER%は肌をなする白蓮と一輪を抱き寄せ、唇を貪りあった。
		;相手が布都ちゃん
		ELSEIF ARG == 92
			PRINTFORMW 「――ぁ」
			PRINTFORML 「へ、へいへーい。随分と、お楽しみのご様子で――」
			PRINTFORML %CALLNAME:MASTER%たちの情事を目撃した一輪は少し躊躇った後、こちらへ近付いてきた
			PRINTFORML 「そういう事なら、私も混ぜてよ」
			PRINTFORML 「これでも……身体はコイツよりは自信があるのよ？」
		ELSEIF TALENT:恋慕 || TALENT:思慕
			PRINTFORMW 「――ぁ」
			PRINTFORML 「随分と、お楽しみのご様子で――」
			PRINTFORML %CALLNAME:MASTER%たちの情事を目撃した一輪は少し躊躇った後、こちらへ近付いてきた
			PRINTFORML 「そういう事なら、私も混ぜてよ」
			PRINTFORML 「これでも……身体だけは自信があるのよ？」
			PRINTFORMW 挑戦的な表情で、一輪が%CALLNAME:MASTER%にしなだれかかってきた
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
;RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		;相手がひじりん
		IF ARG == 55
			PRINTFORML 「……、え、嘘っ、聖様……！？」
			PRINTFORML 慌てた様子を見せる一輪だが、その気配を感じ取るとぐちゅりと秘所の愛液が増し、
			PRINTFORML 視線が交錯した瞬間まるで子宮を掴まれたかのようにきゅっ、と膣内が収縮した
			PRINTFORML 「はぁっ、これっは、あの、その……っ」
			PRINTFORMW 言葉を探す一輪の鼓動は、驚くほど速くなっている……
		ELSEIF ABL:露出癖 >= 3
			PRINTFORMW 「あっ――……あぁぁ……」
			PRINTFORML %CALLNAME:ARG%に性交中の姿を見られた――
			PRINTFORML 痴情に悦びを感じるようになっていた一輪の肉体は、
			PRINTFORML その事実だけで総身を淫猥に震わせている
			PRINTFORMW 新たに愛液を垂れ流しながら、一輪は%CALLNAME:ARG%の視線をじっと受け止めていた
		ELSEIF ABL:露出癖 >= 1
			PRINTFORMW 「ぇ……っ」
			PRINTFORML 重なり合った%CALLNAME:MASTER%と一輪に、%CALLNAME:ARG%の視線が突き刺さる
			PRINTFORML 見られてしまった――
			PRINTFORML そう思った瞬間、一輪は何か下腹部に熱いものを感じた
			PRINTFORML 「あれ……私、なんで……？」
			PRINTFORMW 戸惑う一輪の秘所は、湿り気が少し増しているように思えた
		ELSE
			PRINTFORMW 「ひゃっ！？」
			PRINTFORML 「――あ」
			PRINTFORML 一輪は%CALLNAME:ARG%にあられもない姿を見られてしまった
			PRINTFORML 「うぅ……恥ずかしい」
			PRINTFORMW 耳を真っ赤に染めて両手で顔を覆い隠している
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		;相手がひじりん
		IF ARG == 55
			PRINTFORML 「ああ、聖様も我慢出来なくなっちゃったんですね……」
			PRINTFORML 「%CALLNAME:MASTER%って、本当にエロいですもんねぇ……特に、コ、コ%UNICODE(0x2665)%」
			PRINTFORML 一輪はゆっくりと%CALLNAME:MASTER%の股間に指を這わせている
			PRINTFORMW 「仕方ありません、しっかり責任取ってあげましょう……？」
		;相手が布都ちゃん
		ELSEIF ARG == 92
			PRINTFORML 「え？ちょ、え？何でこっちに来て……」
			PRINTFORML 「いやいや、そこは空気を読んでよ、え？空気を読んで参加する？」
			PRINTFORML %CALLNAME:ARG%が頷く様子を見て、一輪は色々察したようだった
			PRINTFORML 「……%CALLNAME:MASTER%の助兵衛」
			PRINTFORML そして一輪は服を脱ぎ始めた布都にも威嚇した。
			PRINTFORMW 「…アンタには絶対負けないんだから。どっちが%CALLNAME:MASTER%をいっぱいイカせるか、勝負よ！」
			PRINTFORMW …少し覚悟を決めたほうが良いかもしれない
		ELSEIF PALAM:欲情 >= PALAMLV:7
			PRINTFORML 「ああ、%CALLNAME:ARG%さんも我慢出来なくなっちゃったんですね……」
			PRINTFORML 「%CALLNAME:MASTER%って、本当にエロいですもんねぇ……特に、コ、コ%UNICODE(0x2665)%」
			PRINTFORML 一輪はゆっくりと%CALLNAME:MASTER%の股間に指を這わせている
			PRINTFORMW 「仕方ありません、しっかり責任取ってあげましょう……？」
		ELSE
			PRINTFORML 「え？ちょ、え？何でこっちに来て……」
			PRINTFORML 「いやいや、そこは空気を読んでよ、え？空気を読んで参加する？」
			PRINTFORML %CALLNAME:ARG%が頷く様子を見て、一輪は色々察したようだった
			PRINTFORMW 「……%CALLNAME:MASTER%の助兵衛」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
;RETURN 1

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

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

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORML 「あ――。ゴメン、%CALLNAME:MASTER%」
			PRINTFORML 突然一輪が謝るので、%CALLNAME:MASTER%は一輪のほうに向く。
			PRINTFORML 刹那、%CALLNAME:MASTER%は一輪に押し倒された。
			PRINTFORML 「ちょっと、我慢できなくてさ…」
			PRINTFORML %CALLNAME:MASTER%は身動きが取れない。
			PRINTFORML 「私は好きにするからさ…%CALLNAME:MASTER%も私のこと…好きにして%UNICODE(0x2665)%」
			PRINTFORMW その質問に答える間もなく、一輪は豊満な胸を押し付けてきた。
		ELSEIF TALENT:恋慕
			PRINTFORML 「あ――。ゴメン、%CALLNAME:MASTER%」
			PRINTFORML 突然一輪が謝るので、%CALLNAME:MASTER%は一輪のほうに向く。
			PRINTFORML 刹那、%CALLNAME:MASTER%は一輪に押し倒された。
			PRINTFORML 「ちょっと、我慢できなくてさ…」
			PRINTFORML %CALLNAME:MASTER%は身動きが取れない。
			PRINTFORML 「私は好きにするからさ…%CALLNAME:MASTER%も私のこと…好きにして%UNICODE(0x2665)%」
			PRINTFORMW その質問に答える間もなく、一輪は豊満な胸を押し付けてきた。
		ELSE
			PRINTFORML 「――ねえ、%CALLNAME:MASTER%」
			PRINTFORML 一輪が%CALLNAME:MASTER%の名を呼ぶ。
			PRINTFORML 「押し倒していい？」
			PRINTFORML 唐突に、一輪が聞いてくる。
			PRINTFORML 雰囲気も何もかもをぶち壊すような発言だ。
			PRINTFORML %CALLNAME:MASTER%が冗談めかして、別にいいよ、と言うと、
			PRINTFORML 「本当？じゃあ……えいっ」
			PRINTFORML と、一輪が本当に押し倒してきた。
			PRINTFORMW どうやら、一輪は本気で%CALLNAME:MASTER%との行為に及ぶつもりだそうだ。
		ENDIF
		RETURN 0
	ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;好きにして状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_EVENT_K85_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%の姿を見た一輪は、しばしの間呆然と硬直していた
			PRINTFORML 「………………っ？！」
			PRINTFORML ようやくあられもない姿が丸見えであることに気付き、慌てて声を上げた
			PRINTFORML 「出て行って！」
			PRINTFORMW テンパったせいで変な発音になった一輪に%CALLNAME:MASTER%は追い出されてしまった
		ELSE
			PRINTFORML 「――っ！」
			PRINTFORML 一輪は声を出す間もなく桶を手に取り、%CALLNAME:MASTER%めがけて投げつけた。
			PRINTFORMW 暫らくすると桶を壊した事で怒られている様子が聞こえてきた
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORML 「――何だ、%CALLNAME:MASTER%か」
			PRINTFORML 「一緒に入るの？いいわよ」
			PRINTFORML
			PRINTFORML 手招きする一輪に呼ばれ湯船に浸かると、火照った身体をこちらへ預けてきた
			PRINTFORML 髪を纏め上げ、うなじを露出させた一輪は普段とは違う印象を受ける
			PRINTFORML すぐ近くのうなじからは鼻孔をくすぐる柔らかい女性の香りが漂い、
			PRINTFORMW 更に視線を落とすと豊かな谷間が%CALLNAME:MASTER%を誘っている
		ELSEIF TALENT:恋慕
			PRINTFORMW 「――あれ、%CALLNAME:MASTER%」
			PRINTFORML 「一緒に入るの？いいわよ」
			PRINTFORML %CALLNAME:MASTER%はお言葉に甘えて一輪の傍へ向かっていった
			;刻印があるとき一定確率で
			IF MARK:快楽刻印 > 0 && RAND:7 < MARK:快楽刻印
				PRINTFORML 「……ああそうだ、その前に身体を洗ってあげる」
				PRINTFORML 無防備に身体を寄せてくる一輪はやけに色っぽく、
				PRINTFORML 擦り付けてくる柔らかい胸の先端は硬く尖っている
				PRINTFORML 「ほらほら、遠慮せずに……」
				PRINTFORMW 発情した淫の気でも込められているのか、一輪の指先が触れる部分がやけに熱い……
			ELSEIF MARK:時姦刻印 > 0 && RAND:7 < MARK:時姦刻印
				PRINTFORML 裸の%CALLNAME:MASTER%が近付くことで火照りだした一輪の身体は、
				PRINTFORML %CALLNAME:MASTER%を求めて風呂場の熱気よりも熱く疼きだしている……
				PRINTFORML 「な、なんか熱いわね、このお風呂……」
				PRINTFORMW 「まぁ、二人で入ってたらね、はは、はぁ、はぁ……っ」
			ELSE
				PRINTFORML 湯から覗く一輪の身体は均整のとれた美しいものだ
				PRINTFORML 特に目を奪われる大きな二つの胸は、桜色に染まってお湯と戯れている
				PRINTFORMW 「……その、あまり私の体を舐めるように見つめないでくれない？」
			ENDIF
		ELSE
			PRINTFORMW 「……一緒に入るの？」
			PRINTFORML しばらく逡巡した後、一輪は%CALLNAME:MASTER%に訪ねてきた
			PRINTFORML 一応一緒に入っても良いようだが、恥ずかしそうに自身を抱きしめている
			PRINTFORMW 「別にいいけれど、変なことしたらどうなるかはわかってるわよね？」
			;刻印があるとき一定確率で
			IF MARK:快楽刻印 > 0 && RAND:7 < MARK:快楽刻印
				PRINTFORML ただ、%CALLNAME:MASTER%が近付くに連れて一輪の頬は紅潮し、
				PRINTFORMW のぼせたように時折ちらりと%CALLNAME:MASTER%の股間へ熱い視線を注いでいる……
			ELSEIF MARK:時姦刻印 > 0 && RAND:7 < MARK:時姦刻印
				PRINTFORML %CALLNAME:MASTER%が隣に来ると、一輪の肉体がピクリと震えた
				PRINTFORML 「はあぁ……ふうぅ……っ」
				PRINTFORML 覚えていないはずの快楽の記憶が、風呂場の熱気とは別の形で
				PRINTFORMW 一輪の体の芯をじわじわと熱くしている……
			ELSE
				PRINTFORMW その美しい肢体を眺めるべく、%CALLNAME:MASTER%は少しずつ近寄っていった
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
				PRINTFORML 「う～ん、むにゃむにゃ……」
				PRINTFORML 寝室に入ると、一輪は穏やかな笑顔で眠っていた
				PRINTFORML 「ふふふ……どうだぁ……まいったかぁ……」
				PRINTFORML 誰かを倒す夢でも見ているのか、時折大きく寝返りを打っている
				PRINTFORMW その度に寝間着と布団がはだけて、胸元や太ももが露わになっていた……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「あ、……%CALLNAME:MASTER%……」
				PRINTFORML %CALLNAME:MASTER%の顔を確認した一輪は安堵の表情を見せる
				PRINTFORML 「……なにか、用かしら……？」
				PRINTFORMW 最後まで言い終わらぬ内に、一輪はまた眠りへと落ちて行った
			CASEELSE
				PRINTFORML 「んぅ……おはようござすみなしゃい……」
				PRINTFORML %CALLNAME:MASTER%なら問題無いと起床と就寝の挨拶を同時に済ませ、
				PRINTFORML 衰弱した一輪は即座に眠りへと落ちていった
				PRINTFORMW 「…………すやぁ…………」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K85_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;吹雪、霧雪、みぞれ、あられ。あるいは台風、猛吹雪の場合
			IF GROUPMATCH(TIME:5, 9, 11, 12, 13) || GROUPMATCH(FLAG:異常気象, 9, 10)
				PRINTFORML 「さ、流石にちょっとキツいなぁ……うぅ」
				PRINTFORMW 弱音を吐きながらも、一輪はこの天候の中仕事を全うしている……
				RETURN 1
			;スカート、パンツ、桃色の風の場合
			ELSEIF GROUPMATCH(FLAG:異常気象, 6, 7, 8)
				PRINTFORML 「何かの異変なのかな、この滅茶苦茶な天気？　は……」
				PRINTFORML 「変な奴が来なけりゃいいけど……はぁ」
				PRINTFORMW 何とも言えない表情で、一輪は少し頬を赤くしながら掃除を続けている……
				RETURN 1
			ENDIF
				IF TALENT:恋慕 || TALENT:恋人
							PRINTFORML 「――あら、%CALLNAME:MASTER%」
							PRINTFORML 「どうしたの？何か用？」
							PRINTFORMW 「できれば手伝ってくれると、うれしいんだけど……」
				ELSEIF TALENT:思慕
							PRINTFORML 「――あ、%CALLNAME:MASTER%」
							PRINTFORML 「ちょっと今手が離せないの」
							PRINTFORML 「ごめんね、ちょっと待ってて」
							PRINTFORMW そう言って一輪は、箒を持つ手を速めた。
				ELSE
							PRINTFORML 「んしょ、っと」
							PRINTFORMW 小さく背を曲げた一輪が、ちり取りと箒で近くの掃除をしている
				ENDIF

		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;吹雪、霧雪、みぞれ、あられ。あるいは台風、猛吹雪の場合
			IF GROUPMATCH(TIME:5, 9, 11, 12, 13) || GROUPMATCH(FLAG:異常気象, 9, 10)
				PRINTFORML 「うぅ……下着の中までグッショリ…」
				PRINTFORMW 弱音を吐きながらも、一輪はこの天候の中仕事を全うしている……
				RETURN 1
			;スカート、パンツ、桃色の風の場合
			ELSEIF GROUPMATCH(FLAG:異常気象, 6, 7, 8)
				PRINTFORML 「はぁ…変な天気ねぇ…」
				PRINTFORML （…なんか、体の奥が疼いちゃう…イケナイことなのに…）
				PRINTFORMW 何とも言えない表情で、一輪は少し頬を赤くしながら掃除を続けている……
				RETURN 1
			ENDIF
				IF TALENT:恋慕 || TALENT:恋人
							PRINTFORML 一輪は掃除の合間に%CALLNAME:MASTER%へ視線を向けてくる
							PRINTFORML %CALLNAME:MASTER%がさり気なく側に寄ると一輪は嬉しそうに腕を擦り合わせた
							PRINTFORMW 「%CALLNAME:MASTER%に見てもらえるだけで嬉しいわ」
				ELSEIF TALENT:思慕
							PRINTFORML 一輪は掃除の合間に%CALLNAME:MASTER%へ視線を向けてくる
							PRINTFORMW %CALLNAME:MASTER%が視線に気づくと一輪は慌てて目をそらした
				ELSE
							PRINTFORML 「んしょ、っと」
							PRINTFORMW 小さく背を曲げた一輪が、ちり取りと箒で近くの掃除をしている
				ENDIF

		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORML 「――ふぅ、やっと終わった」
			PRINTFORML 「これで、ようやく%CALLNAME:MASTER%と過ごせるわね」
			PRINTFORMW 一輪は笑みを浮かべて言った。
		ELSEIF TALENT:恋慕
			PRINTFORML 「――ふぅ、やっと終わったわね」
			PRINTFORML 「それで……今日は、何する？」
			PRINTFORMW 一輪は何故か頬を少し紅くして、そう聞いてきた。
		ELSE
			PRINTFORML 「――ふぅ、やっと終わったわ」
			PRINTFORML 一輪は息を吐いた。
			PRINTFORMW 「……ところで、何の用でしょう？」
		ENDIF
		RETURN 0
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;食事系
;==================================================
@M_KOJO_EVENT_K85_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_EVENT_K85_15(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORML 「――あの、%CALLNAME:MASTER%」
			PRINTFORML 「その……ちょっと強引過ぎないかしら？」
			PRINTFORML 駄目か、と%CALLNAME:MASTER%が聞くと、
			PRINTFORML 「……いや、大丈夫よ。さ、始めましょう？」
			PRINTFORMW そう言って一輪は、全身の力を抜いた。
		ELSEIF TALENT:恋慕
			PRINTFORML 「――きゃっ！？」
			PRINTFORML 一輪はかわいらしい悲鳴を上げた。
			PRINTFORML 「……もう……あまり乱暴にしないでね？」
			PRINTFORMW 応、と%CALLNAME:MASTER%が頷くと、一輪は体から力を抜いた。
		ELSEIF TALENT:思慕
			PRINTFORML 「――っ！？ちょっと！」
			PRINTFORML 一輪は突然の出来事に驚いている。
			PRINTFORML 「……するの……？」
			PRINTFORML 駄目か、と%CALLNAME:MASTER%が聞くと、
			PRINTFORML 「……その、あの……私は、大丈夫……」
			PRINTFORMW と、一輪はだんだんと顔を紅くしながら答えた。
		ELSE
			PRINTFORML 「――っ！？」
			PRINTFORML 一輪は突然の出来事に驚いている。
			PRINTFORML 「――ちょっと、%CALLNAME:MASTER%」
			PRINTFORML 一輪は無表情でこちらを見ている。
			PRINTFORML 「……何でもないわ……」
			PRINTFORMW 一輪は諦めたかのような、冷たい目をこちらに向けてきている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FLAG:時間停止
			PRINTFORML
			PRINTFORML %CALLNAME:MASTER%は服装を整え、一輪から離れた。
			PRINTFORML 何故こうにもこの能力は便利なのだろうか。
			PRINTFORMW %CALLNAME:MASTER%はにや、と笑った。
		ELSEIF PALAM:欲情 >= PALAMLV:15
			PRINTFORML
			PRINTFORML 「はぁっ、はぁっ……もう……む、り……」
			PRINTFORML 一輪はぐったりと脱力して、荒く息を吐いている。
			PRINTFORML その姿は何処か扇情的だ。
			PRINTFORMW しかしこれほどに疲れている一輪を襲うことはできず、%CALLNAME:MASTER%は一輪を唯見つめているだけであった。
		ELSEIF TALENT:恋人
			IF PALAM:欲情 >= PALAMLV:10
				PRINTFORML
				PRINTFORML 「はあっ、はあっ、や、やっと、終わるの？」
				PRINTFORML 一輪は肩で息をしながら訊ねてくる。
				PRINTFORML まだしたいか、と聞くと、
				PRINTFORML 「いやっ、もうだめ、腰、立たなくなるから、だめ」
				PRINTFORMW と、一輪は可愛らしい理由を述べるのであった。
			ELSE
				PRINTFORML 「――あ……もう、終わり？」
				PRINTFORML 足りないか、と聞くと、
				PRINTFORML 「いや、そんなことはないわ」
				PRINTFORML 「それに、%CALLNAME:MASTER%が倒れても困るから」
				PRINTFORMW 心配してくれてありがとう、%CALLNAME:MASTER%は礼を言った。
			ENDIF
		ELSEIF TALENT:恋慕
			IF PALAM:欲情 >= PALAMLV:10
				PRINTFORML
				PRINTFORML 「はぁっ、はぁっ、はっ……お、終わり？」
				PRINTFORML 一輪は熱い吐息を吐きながら訊ねてくる。
				PRINTFORML そうだな、まだ続けようか、と聞くと、
				PRINTFORML 「いやっ、だめ、だめだから、もう、疲れたわ」
				PRINTFORMW と、一輪は上気した顔でそう答えた。
			ELSE
				PRINTFORML 「――え、もう終わりなの？」
				PRINTFORML 物足りないのか、と%CALLNAME:MASTER%が笑みを浮かべながら問うと、
				PRINTFORML 「い、いや、そんなことはないわよ！？」
				PRINTFORML と、一輪は随分と慌てた様子で取り繕った。
				PRINTFORMW 一輪の反応を見ていると面白い、そう思うのであった。
			ENDIF
		ELSEIF TALENT:思慕
			IF PALAM:欲情 >= PALAMLV:10
				PRINTFORML
				PRINTFORML 「はぁっ、はぁ、んっ、はぁっ……やっと、終わり？」
				PRINTFORML 一輪は息を荒くして尋ねてくる。
				PRINTFORML 少し疲れた、と答えると、
				PRINTFORML 「そ、そう、私も、疲れたわ」
				PRINTFORMW と、一輪は言った。
			ELSE
				PRINTFORML 「――あら、もう、終わるの？」
				PRINTFORML 疲れた、と%CALLNAME:MASTER%が言うと、
				PRINTFORML 「そう……じゃあしょうがない、か」
				PRINTFORMW と、一輪は諦めたかのように言った。
			ENDIF
		ELSE
			IF PALAM:欲情 >= PALAMLV:10
				PRINTFORML
				PRINTFORML 「はぁっ……はぁっ……ようやく、終わるの、ね？」
				PRINTFORMW 一輪は無表情で、だが頬を紅くしてそう言った。
			ELSE
				PRINTFORML 「――やっと終わるの？」
				PRINTFORMW 一輪はぶっきらぼうに言った。
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
;ENDIF
RETURN 1
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後のムード
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
;ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）(存在せず
	;記入チェック
	;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
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K85_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K85_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K85_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=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
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K85_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=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
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K85_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=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
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K85_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;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
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=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 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K85_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
			PRINTFORMW 「……だめよ、そんな間柄でもないじゃない」
			PRINTFORMW 一輪はため息を吐いている。
			PRINTFORMW 「あんまりしつこいと雲山をけしかけるわよ！」
			PRINTFORMW 一輪はきっぱりと断った。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕
			PRINTFORML
			PRINTFORMW 「お風呂、一緒に入る？」
			PRINTFORMW 「ふふっ…背中流してあげるわ%UNICODE(0x2665)%」
			PRINTFORMW 一輪の快諾に小躍りしたい衝動を抑え、平静を装って脱衣所に入った
			PRINTFORML 「…先、入っててくれる？」
			PRINTFORMW 一輪の言葉通りにサッと服を脱ぎ、浴場へ入る
			PRINTFORML 「…おまたせ」
			PRINTFORMW %CALLNAME:MASTER%が振り返ると、一輪は頬を羞恥に赤らめつつも、大事なところを隠さず入ってきた
			PRINTFORML 「……見てばっかいないで、早く入りましょ？」
			PRINTFORMW お互いの背中にお湯をかけ、やや広めの浴槽に寄り添って浸かった
			;刻印があるとき一定確率で
			IF MARK:快楽刻印 > 0 && RAND:7 < MARK:快楽刻印
				PRINTFORML 「ふぅ…気持ちいい…」
				PRINTFORMW 一輪は%CALLNAME:MASTER%の腕に抱かれ、リラックスしながら湯を楽しんでいる
				PRINTFORMW その柔らかく、密着する体に%CALLNAME:MASTER%の股間は痛いほど硬くなってしまう
				PRINTFORMW 勃起したソレに気づいた一輪は、%CALLNAME:MASTER%の手を取ると自分の乳房に導いた
				PRINTFORMW 「ふふっ…柔らかいでしょ？　体には…自信あるのよ%UNICODE(0x2665)%」
				PRINTFORMW 乳越しに伝わる一輪の心音は早く、%CALLNAME:MASTER%の理性は湯船の中に溶けていく…
			ENDIF
		ELSE
			PRINTFORML
			PRINTFORMW 「お風呂、一緒に入らないかって？」
			PRINTFORMW 「…まぁ……良いけど」
			PRINTFORMW 一輪の快諾に小躍りしたい衝動を抑え、平静を装って脱衣所に入った
			PRINTFORML 「…先、入っててくれる？」
			PRINTFORMW 一輪の言葉通りにサッと服を脱ぎ、浴場へ入る
			PRINTFORML %CALLNAME:MASTER%が振り返ると、一輪は手ぬぐいで前部分を隠していた。
			PRINTFORMW 「……そんなにじろじろ見てると、張り倒すわよ？」
			PRINTFORMW 一輪は頬を羞恥に赤らめてそう言ってきた。
			;刻印があるとき一定確率で
			IF MARK:快楽刻印 > 0 && RAND:7 < MARK:快楽刻印
				PRINTFORML ただ、%CALLNAME:MASTER%が近付くに連れて一輪の頬は紅潮し、
				PRINTFORMW のぼせたように時折ちらりと%CALLNAME:MASTER%の股間へ熱い視線を注いでいる……
			ENDIF
		ENDIF
		RETURN 0
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K85_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K85_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K85_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K85_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K85_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;パンツちょうだい
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;怒り口上
;==================================================
@M_KOJO_EVENT_K85_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの度胸で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[臆病]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;相手が押し倒しを解除
;==================================================
@M_KOJO_EVENT_K85_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=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
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_EVENT_K85_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

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

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

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

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

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

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

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_K85_LOST_VIRGIN_STOP
;-------------------------------------------------
PRINTFORML
RETURN 1

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

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

repo_name: akadiya/eratw

path: 原版+前人整合等各种readme/パッチ/eraTW4.810用 修正パッチ/ERB/口上・メッセージ関連/個人口上/一輪試作/M_KOJO_K85_イベント.ERB

license: unknown