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

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

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

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

;RESULTS = _TEST_

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

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

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

;破瓜キャンセル口上有に1を入れると、@M_KOJO_EVENT_KX_LOST_VIRGIN_STOPでキャンセルの成否を操作できます
;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れるとM_KOJO_EVENT_KX_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_101

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

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K101
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
	PRINTFORMW 「あれ？見かけない顔ね」
	PRINTFORMW 声をかけられた方向を見ると、白と青のメッシュの髪の少女が立っていた。
	PRINTFORMW 「ふぅん、%CALLNAME:MASTER%って言うのね。……え、私？」
	PRINTFORMW %CALLNAME:MASTER%の目に一瞬戸惑った様子を見せた少女の朱鷺色の翼が映った。
	PRINTFORMW 「え……朱鷺子？まぁ、名前なんてどうでもいいわ勝手に呼んでくれて。よろしく%CALLNAME:MASTER%」
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K101_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
	PRINTFORMW 「%CALLNAME:MASTER%、今日はありがとう」
	PRINTFORMW 「それで…えっと…その……」
	PRINTFORMW 朱鷺子は急にもじもじし始めた。どうしたのかと声をかけようと口を開いこうとした瞬間―――
	PRINTFORMW %CALLNAME:MASTER%は朱鷺子に唇を奪われた。
	PRINTFORMW 「‥‥じゃあ、また今度ね！」
	PRINTFORMW 突然の出来事に驚く%CALLNAME:MASTER%を置いて朱鷺子は足早に立ち去ってしまった。
	PRINTFORMW %CALLNAME:MASTER%はキスをした直後の朱鷺子の耳まで真っ赤に染まった顔が暫く頭から離れなかった。
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K101_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
		PRINTFORMW 「ちょっと待って%CALLNAME:MASTER%」
		PRINTFORMW 朱鷺子に呼び止められた。その眼は%CALLNAME:MASTER%の顔を真っすぐ捉えていた。
		PRINTFORMW 「最近、時々胸が熱くなるときがあるの。それは面白い本を読んでいる時でも比べられないくらいに」
		PRINTFORMW 「そして、胸が熱くなるときにいつも%CALLNAME:MASTER%の顔が浮かんでくるの」
		PRINTFORMW 「初めは気が付かなかった。でも、会うたびに自覚していったの」
		PRINTFORMW 「%CALLNAME:MASTER%の事が好きなんだ、って」
		PRINTFORMW みるみると、朱鷺子の顔が紅く染まっていく。それでも、眼は逸らすことは無かった。そして小さく呼吸をし、何か決心した表情で再び口を開いた。
		PRINTFORMW
		PRINTFORMW 「私と…私と、付き合ってください……！」
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 一瞬の静寂の後、%CALLNAME:MASTER%は自分の気持ちを朱鷺子に伝えた。
		PRINTFORMW 「え…本当？ほ、本当に付き合ってくれるの……？」
		PRINTFORMW 驚いて固まっている朱鷺子を優しく抱擁した。
		PRINTFORMW 「えへへ…嬉しい」
		PRINTFORMW 朱鷺子は眼に涙を浮かべながら、%CALLNAME:MASTER%の腕の中で微笑んだ。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「……ごめん、急に言われても困るわよね」
		PRINTFORMW 朱鷺子は目線を下にして、今にも消えそうな声で言った。
		PRINTFORMW 「変な空気にして、ごめん。ごめんなさい……」
		PRINTFORMW 朱鷺子はそう言って走り去ってしまった。
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K101_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
			PRINTFORMW 「……じゃあね」
			PRINTFORMW 朱鷺子はそう言って帰っていった。
		ELSEIF TALENT:恋人
			SELECTCASE RAND:5
				CASE 4
					PRINTFORMW 「%CALLNAME:MASTER%、～またデートしましょうね♪」
					PRINTFORMW 「じゃあこれでお開きという事で」
				CASE 3
					PRINTFORMW 「今日も楽しかったわ♪」
					PRINTFORMW 「じゃあ今日はありがとうね」
				CASE 2
					PRINTFORMW 「やっぱり%CALLNAME:MASTER%と遊ぶのは楽しいわ～」
					PRINTFORMW 「次のデート楽しみにしてるわ」
				CASE 1
					PRINTFORMW 「今日はありがとう、本当に楽しかったわ！」
					PRINTFORMW 「また直ぐにデートに行きましょ♪」
				CASE 0
					PRINTFORMW 「あー、楽しかった♪」
					PRINTFORMW 「また何処か行きましょ」
					PRINTFORMW 朱鷺子は楽しそうに手を振った
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「あっ、その………今日はありがとう」
					PRINTFORMW 「楽しかったわ」
				CASE 1
					PRINTFORMW 「ええっとその……楽しかったわ」
					PRINTFORMW 「また誘ってね！」
				CASE 0
					PRINTFORMW 「今度はいつ誘ってくれるの？」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「また誘ってね！」
				CASE 1
					PRINTFORMW 「今日は楽しかったわ！」
				CASE 0
					PRINTFORMW 「楽しかったわ。%CALLNAME:MASTER%」
			ENDSELECT
		ELSE
		SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「今日はありがとう！」
				CASE 1
					PRINTFORMW 「今日は楽しかったわ！」
				CASE 0
					PRINTFORMW 「今日はありがとう、またいつか誘って欲しいわ」
			ENDSELECT

		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW （…ちゃんと反省してるのね。私も考えを改めないと）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW （意外とそういう面もあるのね…）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW （もしかして私が思っているよりは酷いヤツでは無いのかな…？）
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K101_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORMW 「一緒に入って良い？」
			PRINTFORMW 「ほら背中向けて、私が洗ってあげるから」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「その…入って良い？」
			PRINTFORMW 「えーと、背中とか洗って欲しい？」
		ELSEIF TALENT:思慕
			PRINTFORMW 「先に入ってたの？」
			PRINTFORMW 「……こういうのも悪くないわね」
		ELSE
			PRINTFORMW 「%CALLNAME:MASTER%、一緒にお風呂に入っても良い？」
        ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF TALENT:恋人
			PRINTFORMW 「ごめん、邪魔だった……？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「邪魔よね…」
		ELSEIF TALENT:思慕
			PRINTFORMW 「先に入ってたの？ごめん」
		ELSE
			PRINTFORMW 「………邪魔したわね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:恋人
			PRINTFORMW 「うわっ！びっくりした。……えーっと……ごめん、ちょっと今日はそういう気分じゃないの」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「うわっ！びっくりした！……今私が入ってるから後にして」
		ELSEIF TALENT:思慕
			PRINTFORMW 「うわっ！……今は私が入ってるから出て行って」
		ELSE
			PRINTFORMW 「もうちょっと後にしてくれる？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
    	IF TALENT:恋人
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「%CALLNAME:MASTER%、どうしたのこんな所で」
					PRINTFORMW 朱鷺子が嬉しそうにこちらにやって来た。
				CASE 1
					PRINTFORMW 「わぁ！%CALLNAME:MASTER%だ！」
					PRINTFORMW 笑顔の朱鷺子がこちらにやって来た
				CASE 0
					PRINTFORMW 「%CALLNAME:MASTER%…♪」
					PRINTFORMW 朱鷺子は距離を急に詰めてきた。
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「まさか%CALLNAME:MASTER%に会えるなんてねぇ～」
				CASE 1
					PRINTFORMW 「あっ、%CALLNAME:MASTER%………」
					PRINTFORMW 若干朱鷺子の頬が赤くなった気がした
				CASE 0
					PRINTFORMW 「%CALLNAME:MASTER%、どうしたのこんな所で」
					PRINTFORMW 朱鷺子がこちらにやってきた。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「おっ、%CALLNAME:MASTER%～」
				CASE 1
					PRINTFORMW 「あっ、%CALLNAME:MASTER%だ」
				CASE 0
					PRINTFORMW 「%CALLNAME:MASTER%、どうしたのこんな所で」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「えーっと……何か用かしら？」
				CASE 1
					PRINTFORMW （………何処かで会ったことあるのは覚えてるけど名前なんだっけ………？）
				CASE 0
					PRINTFORMW 「どうしたのこんな所で」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF TALENT:恋人
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「%CALLNAME:MASTER%、どうした――」
					PRINTFORMW 嬉しそうに近づいて来た朱鷺子の表情が一瞬で凍り付く。
					PRINTFORMW 「今度は私としないと怒るわよ……」
					PRINTFORMW 朱鷺子は顔を膨らませて%CALLNAME:MASTER%の耳元でそう囁いた。そして
					PRINTFORMW 「それじゃあ、楽しんでねデート」
					PRINTFORMW と笑顔で送り出した。
				CASE 1
					PRINTFORMW 「あれぇ～？ %CALLNAME:MASTER%～？」
					PRINTFORMW 「どうしちゃったのかしら～？ お楽しみみたいだけど」
					PRINTFORMW 朱鷺子が笑顔で近づいて来たが目が笑ってない
					PRINTFORMW 「別に%CALLNAME:MASTER%ってそういう奴だから良いけどね」
					PRINTFORMW 「ただ今ので結構傷ついたいたから今度は私の番よ！」
					PRINTFORMW 朱鷺子は顔を膨らませて帰って行った
				CASE 0
					PRINTFORMW 「もうっ！ %CALLNAME:MASTER%は全く……！」
					PRINTFORMW 「言い訳は聞かないから今度はちゃんと相手してよね！」
					PRINTFORMW 怒り顔の朱鷺子が近づいて来た
					PRINTFORMW 「じゃあお楽しみに！！！」
					PRINTFORMW 朱鷺子は足早に離れて行った
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「%CALLNAME:MASTER%、どうした…の」
					PRINTFORMW 朱鷺子はこちらに近づいて来た。
					PRINTFORMW 「%CALLNAME:MASTER%…その…えーと……何でもない、やっぱり」
					PRINTFORMW （何だろうこの気持ち……焦り？……どうして？…何に対して？）
				CASE 1
					PRINTFORMW 「あっ、%CALLNAME:MASTER%と………」
					PRINTFORMW 朱鷺子の表情が固まった
					PRINTFORMW 「%CALLNAME:MASTER%…………ええっと、その……楽しんで！」
					PRINTFORMW 朱鷺子は引きつった笑顔のまま離れた
				CASE 0
					PRINTFORMW 「%CALLNAME:MASTER%……………」
					PRINTFORMW 「その……なんでもない…………！」
					PRINTFORMW 朱鷺子は足早にどこかへ行ってしまった」
			ENDSELECT
		ELSE
		SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「どうしたの…ってあれ、お邪魔したわね」
				CASE 1
					PRINTFORMW 「あれ……お楽しみの所悪いわね」
				CASE 0
					PRINTFORMW 「私はちょっとお邪魔虫ね……」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;特別な日イベント用関数
;==================================================
;-------------------------------------------------
@SPECIALDAY_EVENT_K101
;-------------------------------------------------
	;謹賀新年
		IF DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1
			IF TALENT:恋人
				PRINTFORML 「%CALLNAME:MASTER%～、あけましておめでとう！」
				PRINTFORMW 「新年と言えば……えーっと縁起の初夢ってなんだったけ？」
				PRINTFORMW 「煙草とか扇とかあったような……」
				PRINTFORMW 「いきなりだけど一緒に本で調べてみない？」
			ELSEIF TALENT:恋慕
				PRINTFORML 「あけましておめでとう！%CALLNAME:MASTER%」
				PRINTFORML 「今年も%CALLNAME:MASTER%に会えて嬉しいわ！」
				PRINTFORMW 「折角だし初詣とか行かない？ 駄目かしら…」
			ELSEIF TALENT:思慕
				PRINTFORMW 「あけましておめでとう！」
				PRINTFORML 「年始から%CALLNAME:MASTER%に会うなんてね～」
				PRINTFORMW 「まさか私に気があったり？」
				PRINTFORMW 「あはは、なんてね！ ちょっと揶揄ってみただけよ」
			ELSE
				PRINTFORMW 「あっ、あけましておめでとう」
			ENDIF
		;バレンタインデー
		ELSEIF DAY:2 == 4 && DAY:3 == 14 && CFLAG:2 >= 1000
			IF TALENT:恋人
				PRINTFORMW 「今日はバレンタインデーよ、という事ではいチョコよ」
				PRINTFORMW 「それにしてもチョコなんてねぇ、食べたら無くなっちゃうのにどうして必死になるのかしらねぇ～」
				PRINTFORMW 「まぁそんな感じでパパッと作ったからイマイチかもしれないけど、あまりガッカリしないでね」
				PRINTFORMDW 朱鷺子から明らかにパパッとは作れないような大きさのチョコを渡された
				PRINTFORML 「………………………」
				PRINTFORMDW 朱鷺子と%CALLNAME:MASTER%は暫く無言で顔を見合わせている
				PRINTFORMW 「…………はい、嘘ですー。本当は数日前から料理本を数冊読みこんでチョコ作りの研究してましたー」
				PRINTFORML 「………………………」
				PRINTFORMDW 再び朱鷺子と%CALLNAME:MASTER%は暫く無言で顔を見合わせた
				PRINTFORMW 「………だって、だってバレンタインよ？ 恋人に贈るんなら頑張りたくなっちゃうじゃない！」
				PRINTFORMW 「……ふぅ、とにかく反応が怖いから今じゃなくて後で食べてよ！ って……な、何？ ～～～～～っ！」
				PRINTFORMDW チョコのお返しに%CALLNAME:MASTER%が頭を撫でると朱鷺子は顔を真っ赤にした
			ELSEIF TALENT:恋慕
				PRINTFORMW 「今日は何の日か知ってる？」
				PRINTFORMW 「そう！バレンタインデーよ！ という事でチョコを用意したわよ！」
				PRINTFORMW 「………それで、えーっと…その～……嬉しかったり、するかな？」
				PRINTFORMW 少し恥ずかしそうに目を配る朱鷺子の頭を%CALLNAME:MASTER%は優しく撫でた
			ELSEIF TALENT:思慕
				PRINTFORML 「バレンタイン……？ %CALLNAME:MASTER%まさか期待してるの～？」
				PRINTFORMDW 朱鷺子は%CALLNAME:MASTER%を小突きながらニヤニヤしている
				PRINTFORMW 「まぁちゃんと用意はしてるんだけどね。はいどうぞ」
			ELSEIF CFLAG:2 >= 1000
				PRINTFORMW 「あっ、丁度良い所に」
				PRINTFORMW 「バレンタインでチョコが安売りされてたんだけど、ちょっと買いすぎちゃって……」
				PRINTFORMW 「妖精にも『もう友達から一杯貰ってるから要らない』って突き返されちゃうし……」
				PRINTFORMW 「という事でチョコの貰い手がいてくれて助かったわ～」
				PRINTFORMW 「それにしても自分も買っててアレなんだけど、どうして食べたら無くなるチョコに皆必死なのかしらねぇ」
			ENDIF
		;七夕
		ELSEIF DAY:2 == 2 && DAY:3 == 7
			IF TALENT:恋人
				;夜
				IF TIME:2 == 6
				;天気で分岐
					IF TIME:5 == 0 || TIME:5 == 1
						PRINTFORML 「綺麗な天の川ねぇ～」
						PRINTFORMW 「そうだ短冊を笹に吊るさない？」
						PRINTFORMW %CALLNAME:MASTER%と朱鷺子は星が煌めく夜空の下で短冊に願い事を書いた
					ELSEIF TIME:5 == 2 || TIME:5 == 3
						PRINTFORML 「うーん……曇ってよく見えないわね……」
						PRINTFORMW 「天気ばかりは仕方ないし、七夕を楽しみましょ♪」
						PRINTFORMW 朱鷺子は短冊を取り出した
					ELSEIF TIME:5 == 4 || TIME:5 == 5
						PRINTFORML 「雨、止まないわね……」
						PRINTFORMW 一向に雨は止む気配が無い
						PRINTFORML 「う～ん折角の七夕なのに………こうなったら七夕ゼリー作りよ！」
						PRINTFORMW 今から作っても出来上がるのは翌日だろうとは言わなかった
					ELSE
						PRINTFORMW 「ま、雨が降ってても織姫と彦星はカササギに乗って出会うんだけどね」
						PRINTFORMW 「ただそれはそれとしてやっぱり七夕に天の川が見れなくて残念ね……」
					ENDIF
				;朝・昼
				ELSE
					IF TIME:5 == 0 || TIME:5 == 1
						PRINTFORML 「この天気のまま行ってくれれば天の川も見れそうね♪」
						PRINTFORMW 確かにこれなら夜まで晴れそうだ
					ELSEIF TIME:5 == 2 || TIME:5 == 3
						PRINTFORML 「う～ん曇りねぇ……晴れて欲しいけど……」
						PRINTFORMW 「まぁその時はその時ね」
					ELSEIF TIME:5 == 4 || TIME:5 == 5
						PRINTFORML 「雨ね……七夕って結構降るのよねぇ～」
						PRINTFORMW 朱鷺子は残念そうに言った
					ELSE
						PRINTFORMW 「晴れて欲しいけどね～」
						PRINTFORMW 夜には晴れていることを願おう
					ENDIF
				ENDIF
			ELSEIF TALENT:恋慕
				;夜
				IF TIME:2 == 6
				;天気で分岐
					IF TIME:5 == 0 || TIME:5 == 1
						PRINTFORML 「綺麗な天の川ねぇ～」
						PRINTFORMW 「そうだ短冊を笹に吊るさない？」
						PRINTFORMW %CALLNAME:MASTER%と朱鷺子は星が煌めく夜空の下で短冊に願い事を書いた
					ELSEIF TIME:5 == 2 || TIME:5 == 3
						PRINTFORML 「うーん……曇ってよく見えないわね……」
						PRINTFORMW 「天気ばかりは仕方ないし、七夕を楽しみましょ♪」
						PRINTFORMW 朱鷺子は短冊を取り出した
					ELSEIF TIME:5 == 4 || TIME:5 == 5
						PRINTFORML 「雨、止まないわね……」
						PRINTFORMW 一向に雨は止む気配が無い
						PRINTFORML 「う～ん折角の七夕なのに………こうなったら七夕ゼリー作りよ！」
						PRINTFORMW 今から作っても出来上がるのは翌日だろうとは言わなかった
					ELSE
						PRINTFORMW 「ま、雨が降ってても織姫と彦星はカササギに乗って出会うんだけどね」
						PRINTFORMW 「ただそれはそれとしてやっぱり七夕に天の川が見れなくて残念ね……」
					ENDIF
				;朝・昼
				ELSE
					IF TIME:5 == 0 || TIME:5 == 1
						PRINTFORML 「この天気のまま行ってくれれば天の川も見れそうね♪」
						PRINTFORMW 確かにこれなら夜まで晴れそうだ
					ELSEIF TIME:5 == 2 || TIME:5 == 3
						PRINTFORML 「う～ん曇りねぇ……晴れて欲しいけど……」
						PRINTFORMW 「まぁその時はその時ね」
					ELSEIF TIME:5 == 4 || TIME:5 == 5
						PRINTFORML 「雨ね……七夕って結構降るのよねぇ～」
						PRINTFORMW 朱鷺子は残念そうに言った
					ELSE
						PRINTFORMW 「晴れて欲しいけどね～」
						PRINTFORMW 夜には晴れていることを願おう
					ENDIF
				ENDIF
			ELSEIF TALENT:思慕
				;夜
				IF TIME:2 == 6
				;天気で分岐
					IF TIME:5 == 0 || TIME:5 == 1
						PRINTFORML 「綺麗な天の川ねぇ～」
						PRINTFORMW 「そうだ短冊を笹に吊るさない？」
						PRINTFORMW %CALLNAME:MASTER%と朱鷺子は星が煌めく夜空の下で短冊に願い事を書いた
					ELSEIF TIME:5 == 2 || TIME:5 == 3
						PRINTFORML 「うーん……曇ってよく見えないわね……」
						PRINTFORMW 空には厚い雲がかかっている
					ELSEIF TIME:5 == 4 || TIME:5 == 5
						PRINTFORML 「雨、止まないわね……」
						PRINTFORMW 一向に雨は止む気配が無い
						PRINTFORML 「う～ん残念だけど今年は見れそうにないわね……」
						PRINTFORMW 朱鷺子は肩を落としている
					ELSE
						PRINTFORMW 「ま、雨が降ってても織姫と彦星はカササギに乗って出会うんだけどね」
						PRINTFORMW 「ただそれはそれとしてやっぱり七夕に天の川が見れなくて残念ね……」
					ENDIF
				;朝・昼
				ELSE
					IF TIME:5 == 0 || TIME:5 == 1
						PRINTFORML 「この天気のまま行ってくれれば天の川も見れそうね♪」
						PRINTFORMW 確かにこれなら夜まで晴れそうだ
					ELSEIF TIME:5 == 2 || TIME:5 == 3
						PRINTFORML 「う～ん曇りねぇ……晴れて欲しいけど……」
					ELSEIF TIME:5 == 4 || TIME:5 == 5
						PRINTFORML 「雨ね……七夕って結構降るのよねぇ～」
						PRINTFORMW 朱鷺子は残念そうに言った
					ELSE
						PRINTFORMW 「晴れて欲しいけどね～」
						PRINTFORMW 夜には晴れていることを願おう
					ENDIF
				ENDIF
			ELSE
				;夜
				IF TIME:2 == 6
				;天気で分岐
					IF TIME:5 == 0 || TIME:5 == 1
						PRINTFORML 「綺麗な天の川ねぇ～」
						PRINTFORMW 「そうだ短冊を笹に吊るさない？」
						PRINTFORMW %CALLNAME:MASTER%と朱鷺子は星が煌めく夜空の下で短冊に願い事を書いた
					ELSEIF TIME:5 == 2 || TIME:5 == 3
						PRINTFORML 「うーん……曇ってよく見えないわね……」
						PRINTFORMW 空には厚い雲がかかっている
					ELSEIF TIME:5 == 4 || TIME:5 == 5
						PRINTFORML 「雨、止まないわね……」
						PRINTFORMW 一向に雨は止む気配が無い
						PRINTFORML 「う～ん残念だけど今年は見れそうにないわね……」
						PRINTFORMW 朱鷺子は肩を落としている
					ELSE
						PRINTFORMW 「ま、雨が降ってても織姫と彦星はカササギに乗って出会うんだけどね」
						PRINTFORMW 「ただそれはそれとしてやっぱり七夕に天の川が見れなくて残念ね……」
					ENDIF
				;朝・昼
				ELSE
					IF TIME:5 == 0 || TIME:5 == 1
						PRINTFORML 「この天気のまま行ってくれれば天の川も見れそうね♪」
						PRINTFORMW 確かにこれなら夜まで晴れそうだ
					ELSEIF TIME:5 == 2 || TIME:5 == 3
						PRINTFORML 「う～ん曇りねぇ……晴れて欲しいけど……」
					ELSEIF TIME:5 == 4 || TIME:5 == 5
						PRINTFORML 「雨ね……七夕って結構降るのよねぇ～」
						PRINTFORMW 朱鷺子は残念そうに言った
					ELSE
						PRINTFORMW 「晴れて欲しいけどね～」
						PRINTFORMW 夜には晴れていることを願おう
					ENDIF
				ENDIF
			ENDIF
		;収穫祭
		ELSEIF DAY:2 == 3 && DAY:3 == 27
			PRINTFORML 「今日は収穫祭ねぇ～七面鳥とか食べるんでしょ？」
			PRINTFORML 「まぁ大半は鶏とかで代用するんだけど……まぁ鶏に関係する妖怪とか神様はいるから妖怪の山では食べない方が良いわよ」
			PRINTFORML 「鶏に関係する妖怪じゃなくても鳥妖怪は割と嫌がるしねぇ～」
			PRINTFORML 「だからシンプルに五穀豊穣の感謝をしたらどうかしら？」
		;ハロウィン
		ELSEIF DAY:2 == 3 && DAY:3 == 30
			IF TALENT:恋人
				PRINTFORML 「トリックオアトリート！」
				PRINTFORMDL カボチャの被り物をした朱鷺子が現れた
				PRINTFORML 「という事で何かお菓子、頂戴？ まぁくれても悪戯はするけど」
				PRINTFORMW 「ならあげない？ うーん……それなら言わなければ良かった……」
				PRINTFORMW 「ま、それはそうと悪戯のこちょこちょよ！」
				PRINTFORMDW 朱鷺子は手をわきわきさせながら近づいて来た
			ELSEIF TALENT:恋慕
				PRINTFORML 「トリックオアトリート！」
				PRINTFORMDL 白い布を被った朱鷺子が現れた。が、正直布が薄すぎて正体がバレバレだった
				PRINTFORML 「驚いた？ ……いや、その反応はイマイチね………うーんもっとパンチがいるのかしら、例えば相手の家のドアを蹴破ったり……」
				PRINTFORMDW それはもう悪戯では無くお菓子の取り立てなのでは無いだろうか
			ELSEIF TALENT:思慕
				PRINTFORML 「トリックオアトリート！」
				PRINTFORMDL カボチャの被り物をした朱鷺子が現れた
				PRINTFORMW 「そういえばハロウィンの起源って知ってる？ 私は知らないけど」
				PRINTFORMW 「…………………ま、まぁ気を取り直して……トリックアトリート！」
			ELSE
				PRINTFORML 「あっ、お菓子ちょうだい！さもないと悪戯………あれ、もしかしてあなた今日がハロウィンって知らない感じ？」
				PRINTFORMDW 朱鷺子はきょとんとした顔でこちらを伺っている
				PRINTFORMW 「うーん…なんか調子狂っちゃったわね……悪戯は大目に見てあげるわ」
			ENDIF
		;クリスマス
		ELSEIF DAY:2 == 4 && DAY:3 == 25
			IF TALENT:恋人
				PRINTFORML 「今日はクリスマスね、勿論デートも良いんだけど……」
				PRINTFORML 「折角だし"そういう"事もしたくない？」
				PRINTFORMDW 朱鷺子はニヤニヤしながら%CALLNAME:MASTER%の股間を撫でてそう言ってきた
			ELSEIF TALENT:恋慕
				PRINTFORML 「今日はクリスマスなんだし、その……」
				PRINTFORMW 「デートとか、行きたい……かなぁって……」
			ELSEIF TALENT:思慕
				PRINTFORML 「今日はクリスマスよ！」
				PRINTFORMDL 朱鷺子が手を振りながら近づいて来た
				PRINTFORMW 「まぁそれと言ったプレゼントとかは無いんだけどね」
			ELSE
				PRINTFORML 「クリスマスが今年も来たわねぇ～」
				PRINTFORMW 「サンタクロースってどこからやってくるのかしらね」
			ENDIF
		;大晦日
		ELSEIF DAY:2 == 4 && DAY:3 == 31
			IF TALENT:恋人
				PRINTFORML 「今年も終わりねぇ～」
				PRINTFORMW 「整理整頓はもう終わったの？」
				PRINTFORMW 「まぁ私は手伝わないけど……じゃあまた来年もよろしくね♪」
			ELSEIF TALENT:恋慕
				PRINTFORML 「今年も終わりねぇ～」
				PRINTFORMW 「じゃあまた来年もよろしくね♪」
			ELSEIF TALENT:思慕
				PRINTFORML 「今年も終わりねぇ～」
				PRINTFORMW 「来年も良い年だと良いわね」
			ELSE
				PRINTFORML 「今年も終わりねぇ～」
			ENDIF
		ENDIF

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	ENDIF
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
		IF TALENT:恋人
		SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「あっ%CALLNAME:MASTER%、おはよう！」
						PRINTFORMW 朱鷺子は嬉しそうに%CALLNAME:MASTER%に朝の挨拶をしてきた。
					CASE 1
						PRINTFORML 「おっ、%CALLNAME:MASTER%」
						PRINTFORML 「今日も変わらず元気そうね、おはよ～」
						PRINTFORMDW 朱鷺子は穏やかに微笑んでいる
					CASE 2
						PRINTFORML 「%CALLNAME:MASTER%～おはよう」
						PRINTFORML 「……………寝癖、右耳の後ろ」
						PRINTFORML 「あはは、慌てて出たのかしら？」
						PRINTFORMDW 朱鷺子に笑われてしまった
					ENDSELECT
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%、おはよう！」
			PRINTFORMW 朱鷺子は嬉しそうにそう言って朝の挨拶をしてきた。
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%、おはよう」
			PRINTFORMW 朱鷺子はそう言って朝の挨拶をしてきた。
		ELSE
			PRINTFORMW 「おはよう、%CALLNAME:MASTER%」
			PRINTFORMW 朱鷺子はそう言って朝の挨拶をしてきた。
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
		IF TALENT:恋人
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「あっ%CALLNAME:MASTER%、おはよう！」
						PRINTFORMW 朱鷺子は嬉しそうに%CALLNAME:MASTER%に朝の挨拶をしてきた。
					CASE 1
						PRINTFORML 「おっ、起きてきたわね%CALLNAME:MASTER%」
						PRINTFORMW 「朝ごはんはパンが良い？ 白ご飯が良い？」
					CASE 2
						PRINTFORML 「おはよう%CALLNAME:MASTER%～」
						PRINTFORMDL 朱鷺子があくびをしながら近づいて来た
						PRINTFORML 「う～ん……寝癖が酷いわね………」
						PRINTFORMDW 頭をぽりぽり掻きながら部屋を出て行った
					ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「%CALLNAME:MASTER%、おはよう」
						PRINTFORMW 朱鷺子はそう言って朝の挨拶をしてきた。
					CASE 1
						PRINTFORMW 「寝起きはどうもテンションが上がりにくいわね……」
					CASE 2
						PRINTFORML 「おはよう%CALLNAME:MASTER%～」
						PRINTFORMDL 朱鷺子があくびをしながら近づいて来た
						PRINTFORML 「う～ん……寝癖が酷いわね………少し直してくるわ……」
					ENDSELECT
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%、おはよう」
			PRINTFORMW 朱鷺子はそう言って朝の挨拶をしてきた。
		ELSE
			PRINTFORMW 「おはよう、%CALLNAME:MASTER%」
			PRINTFORMW 朱鷺子はそう言って朝の挨拶をしてきた。
			RETURN 1
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「あっ%CALLNAME:MASTER%、おはよう！」
						PRINTFORMW 朱鷺子は嬉しそうに%CALLNAME:MASTER%に朝の挨拶をしてきた。
					CASE 1
						PRINTFORML 「おっ、起きてきたわね%CALLNAME:MASTER%」
						PRINTFORMW 「朝ごはんはパンが良い？ 白ご飯が良い？」
					CASE 2
						PRINTFORML 「おはよう%CALLNAME:MASTER%～」
						PRINTFORMDL 朱鷺子があくびをしながら近づいて来た
						PRINTFORML 「う～ん……寝癖が酷いわね………」
						PRINTFORMDW 頭をぽりぽり掻きながら部屋を出て行った
					ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「おはよ、%CALLNAME:MASTER%」
						PRINTFORMW 朱鷺子は嬉しそうに%CALLNAME:MASTER%に朝の挨拶をしてきた。
					CASE 1
						PRINTFORML 「おっ、起きてきたわね%CALLNAME:MASTER%」
						PRINTFORMW 「パン焼いておいたわよ～」
					CASE 2
						PRINTFORML 「おはよう%CALLNAME:MASTER%～」
						PRINTFORMDL 朱鷺子があくびをしながら近づいて来た
						PRINTFORMW 「う～ん……寝癖が酷いわね………恥ずかしいし直してくるわね」
					ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「%CALLNAME:MASTER%、おはよう」
						PRINTFORMW 朱鷺子はそう言って朝の挨拶をしてきた。
					CASE 1
						PRINTFORML 「おっ、起きてきたわね%CALLNAME:MASTER%」
						PRINTFORMW 「パンがあるから焼いて食べて良いわよ」
					CASE 2
						PRINTFORML 「おはよう%CALLNAME:MASTER%～」
						PRINTFORMW 寝癖だらけの朱鷺子があくびをしながら近づいて来た
					ENDSELECT
		ELSE
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「おはよう、%CALLNAME:MASTER%」
						PRINTFORMW 朱鷺子はそう言って朝の挨拶をしてきた。
					CASE 1
						PRINTFORML 「おっ、起きてきたわね%CALLNAME:MASTER%」
						PRINTFORMW 「パンとか勝手に焼いて食べて良いわよ」
					CASE 2
						PRINTFORML 「おはよう%CALLNAME:MASTER%～」
						PRINTFORMW 寝癖だらけの朱鷺子があくびをしながら近づいて来た
					ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「ぐぅ…………」
						PRINTFORMW 朱鷺子はぐっすり眠っている
					CASE 1
						PRINTFORMW 「ぐぇぇぇぇ………本棚の群れに押しつぶされぅぅぅ………%CALLNAME:MASTER%……助けてぇぇ………」
						PRINTFORMW 「ぅぅぅ何とか抜け出せたわ………%CALLNAME:MASTER%……助かったわ………」
						PRINTFORMDW 一体どんな夢を見ているというのだろうか
					CASE 2
						PRINTFORMW 「ん……%CALLNAME:MASTER%……好き……もっと抱きしめて……すやぁ」
						PRINTFORMW 朱鷺子は幸せそうな表情で何事か呟いている。一体どんな夢を見ているのだろうか。
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「ぐぅ…………」
						PRINTFORMW 朱鷺子はぐっすり眠っている
					CASE 1
						PRINTFORML 「ぐぇぇぇぇ………本棚の群れに押しつぶされぅぅぅ………%CALLNAME:MASTER%……助けてぇ……」
						PRINTFORMDW 一体どんな夢を見ているというのだろうか
					CASE 2
						PRINTFORMW 「ん……%CALLNAME:MASTER%……」
						PRINTFORMW 朱鷺子は眠ったまま何事か呟いている。
			ENDSELECT

		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「ぐぅ…………」
						PRINTFORMW 朱鷺子はぐっすり眠っている
					CASE 1
						PRINTFORML 「ぐぇぇぇぇ………本棚の群れに押しつぶされぅぅぅ………誰か助けてぇ……」
						PRINTFORMDW 一体どんな夢を見ているというのだろうか
					CASE 2
						PRINTFORMW 「えへへ……遂に取り返したわよ……すぅ」
						PRINTFORMW 朱鷺子はどうやらいい夢を見ているようだ。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「ぐぅ…………」
						PRINTFORMW 朱鷺子はぐっすり眠っている
					CASE 1
						PRINTFORML 「うわぁぁぁ………本の海に溺れるぅぅ………」
						PRINTFORMDW 一体どんな夢を見ているというのだろうか
					CASE 2
						PRINTFORMW 「……紅白と白黒め！今日こそあの本の仇を……むにゃむにゃ」
						PRINTFORMW 朱鷺子は眠ったまま何事か呟いている
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
		IF TALENT:恋人
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「ふわぁ。あ、%CALLNAME:MASTER%、おはよう」
						PRINTFORMW 朱鷺子は嬉しそうに%CALLNAME:MASTER%に朝の挨拶をしてきた。
						PRINTFORMW 「早起きね。うらやましいわ」
					CASE 1
						PRINTFORML 「う～ん良い朝ねぇ～」
						PRINTFORMW 「って、%CALLNAME:MASTER%居たの！？ いつから！？」
						PRINTFORMW 「お蔭で目もバッチリ覚めたけど……」
					CASE 2
						PRINTFORMW 「ん、ぁ………%CALLNAME:MASTER%……おはよう……」
						PRINTFORMW 「モーニングコールって奴かしら？ 実際に来てくれてるから違うけど」
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「ふわぁ。あ、%CALLNAME:MASTER%さん、おはよう」
						PRINTFORMW 朱鷺子は朝の挨拶をしてきた。
						PRINTFORMW 「朝ごはん何が良い？」
					CASE 1
						PRINTFORML 「くぁああ………おはよう……%CALLNAME:MASTER%」
						PRINTFORMW 「……………うーん眠い………」
						PRINTFORMW 「顔洗ってくるわね………」
					CASE 2
						PRINTFORMW 「ふ、ぁぁあ………ん？ わっ、%CALLNAME:MASTER%…………！？」
						PRINTFORMW 「う～なんか寝顔見られて恥ずかしいわ………」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「%CALLNAME:MASTER%、おはよう」
						PRINTFORMW 朱鷺子は朝の挨拶をしてきた。」
					CASE 1
						PRINTFORMW 「……………うーん眠い………」
						PRINTFORMW 「顔洗ってくるわね………」
					CASE 2
						PRINTFORMW 「ふ、ぁぁあ………ん？ わっ、%CALLNAME:MASTER%…………！？」
						PRINTFORMW 「ビックリしたわ………」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「おはよう」
						PRINTFORMW 朱鷺子は朝の挨拶をしてきた。
					CASE 1
						PRINTFORMW 「……………うーん眠い………」
						PRINTFORMW 「顔洗ってくるわね………」
					CASE 2
						PRINTFORMW 「ふ、ぁぁあ………起こしてくれてありがとう………ふぁあああ……」
						PRINTFORMW 朱鷺子は大きなあくびをしている
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「おやすみ、%CALLNAME:MASTER%。また明日」
					CASE 1
						PRINTFORMW 「もうこんな時間ね」
						PRINTFORMW 「また明日ね～」
					CASE 2
						PRINTFORMW 「こんな時間だしそろそろ家に戻るわね」
						PRINTFORMW 「また明日話しましょ♪」
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「%CALLNAME:MASTER%、おやすみ、また今度」
					CASE 1
						PRINTFORMW 「もうこんな時間ね」
						PRINTFORMW 「また今度ね～」
					CASE 2
						PRINTFORMW 「こんな時間だしそろそろ家に戻るわね」
						PRINTFORMW 「また今度話しましょ」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「%CALLNAME:MASTER%、おやすみ」
					CASE 1
						PRINTFORMW 「もうこんな時間……私は帰るわね」
						PRINTFORMW 「%CALLNAME:MASTER%も夜道には気を付けてね」
					CASE 2
						PRINTFORMW 「こんな時間だしそろそろ家に戻るわね」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「あっもうこんな時間、バイバイ」
					CASE 1
						PRINTFORMW 「もうこんな時間……私は帰るわね」
					CASE 2
						PRINTFORMW 「こんな時間だしそろそろ家に戻るわね」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「ふぁぁ……そろそろ寝ようかしら…%CALLNAME:MASTER%、おやすみ」
					CASE 1
						PRINTFORMW 「………………ぁ、今一瞬寝てたわ………」
						PRINTFORMW 「ちゃんと布団で寝ないと………」
					CASE 2
						PRINTFORMW 「ふぁぁ………ねむっ………」
						PRINTFORMW 「そろそろ寝るわね………おやすみ」
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「もうこんな時間ね……」
						PRINTFORMW 朱鷺子は大きなあくびをした
					CASE 1
						PRINTFORMW 「………………………」
						PRINTFORMW 朱鷺子は目を瞑りながら船を漕いでいる
					CASE 2
						PRINTFORMW 「そろそろ寝るわね………おやすみ」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「ふぁぁ………」
					CASE 1
						PRINTFORMW 「もうこんな時間ね……」
						PRINTFORMW 朱鷺子は大きなあくびをした
					CASE 2
						PRINTFORMW 「そろそろ寝るわね………」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 朱鷺子は眠たそうに目を擦っている
					CASE 1
						PRINTFORMW 朱鷺子は大きなあくびをした
					CASE 2
						PRINTFORMW 「ふぁぁ………」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		ENDIF
		RETURN 1
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		ENDIF
		RETURN 1
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW 「えっ大丈夫！？」
		ENDIF
		RETURN 1
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			IF TALENT:恋人
				PRINTFORMW 「おやすみ、%CALLNAME:MASTER%。また明日」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%、おやすみ、また今度」
			ELSEIF TALENT:思慕
				PRINTFORMW 「%CALLNAME:MASTER%、おやすみ」
			ELSE
				PRINTFORMW 「あっもうこんな時間、バイバイ」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:恋人
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「……もう寝るんだけど」
					CASE 1
						PRINTFORMW 「泊める気は無いわよ……」
					CASE 2
						PRINTFORMW 「続きは明日話しましょ」
				ENDSELECT
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「……いつまでいるの？」
					CASE 1
						PRINTFORMW 「もうすぐ寝るんだけど……」
					CASE 2
						PRINTFORMW 「また明日来てくれない？」
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「眠いし、そろそろ帰ってくれない？」
					CASE 1
						PRINTFORMW 「………いつまでいるつもりなの？」
					CASE 2
						PRINTFORMW 「そろそろ帰って欲しいんだけど………」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「眠いし、はやく出て行ってくれない？」
					CASE 1
						PRINTFORMW 「………いつまで居座るつもり？
					CASE 2
						PRINTFORMW 「そろそろ帰って欲しいんだけど………」
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF TALENT:恋人
  				PRINTFORMW 「…………」
				PRINTFORMW 朱鷺子の無言の圧力を受けて%CALLNAME:MASTER%は外に出た。
			ELSEIF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%……出て行ってくれない？」
			ELSEIF TALENT:思慕
				PRINTFORMW 「%CALLNAME:MASTER%………」
			ELSE
				PRINTFORMW 「早くどっか行って！」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW 朱鷺子は難しそうな本を読んでいる。時々首をかしげている為、内容はよくわかっていないようだ。
		ENDIF
		RETURN 1
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF TALENT:恋人
			PRINTFORMW 「おやすみ、%CALLNAME:MASTER%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%、おやすみ」
		ELSEIF TALENT:思慕
			PRINTFORMW 「おやすみ」
		ELSE
			PRINTFORMW 「………変なことしたしないでよ？」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
ENDIF
;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K101_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「%CALLNAME:MASTER%、何か用かしら？」
			CASE 1
				PRINTFORMW 「どうしたの？ 私に会いたくなっちゃった？」
			CASE 2
				PRINTFORMW 「丁度良い所に！ 何となく会いたい気分だったのよねぇ～」
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「%CALLNAME:MASTER%……どうしたの？」
			CASE 1
				PRINTFORMW 「あっ、%CALLNAME:MASTER%。何か用？」
			CASE 2
				PRINTFORMW 「どうせだしお話しない……？」
			ENDSELECT
		ELSEIF TALENT:思慕
			PRINTFORMW 「あれ、%CALLNAME:MASTER%じゃん」
		ELSE
			PRINTFORMW 「何か用かしら？」
		RETURN 1
		ENDIF
	ENDIF
ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「おっ、%CALLNAME:MASTER%！」
				PRINTFORMDW %CALLNAME:MASTER%が手をあげて会釈すると朱鷺子は手を振ってそれに応えた
			CASE 1
				PRINTFORMDW %CALLNAME:MASTER%が挨拶をすると、朱鷺子は笑顔でそれを返した
			CASE 2
				PRINTFORMW 「へい！ %CALLNAME:MASTER%、ちゃんとキャッチしてね！」
				PRINTFORMDW 朱鷺子は%CALLNAME:MASTER%の顔を見るなり本を投げてきた。読めという事なのだろうか……
				PRINTFORMDW しかし渡された本は既に読んでいたものだった
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「%CALLNAME:MASTER%～」
			CASE 1
				PRINTFORMW 「あっ、%CALLNAME:MASTER%」
			CASE 2
				PRINTFORMW 「あれ？ こっちに何か用があるの？」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「あっ、%CALLNAME:MASTER%だ！」
			CASE 1
				PRINTFORMW 「お～い」
				PRINTFORMW 朱鷺子が手を振って来た
			CASE 2
				PRINTFORMW 「あれは……%CALLNAME:MASTER%かな？」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「お～い」
				PRINTFORMW 朱鷺子が手を振って来た
			CASE 1
				PRINTFORMW 「え～っと……あっ、%CALLNAME:MASTER%だ！」
			CASE 2
				PRINTFORMW 「おっ、また会ったわね～」
			ENDSELECT
		RETURN 1
	ENDIF
ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			SELECTCASE RAND:4
			CASE 0
				PRINTFORMW 「あれ？ 急ぎの用事でもあるのかしら……？」
			CASE 1
				PRINTFORMW 「%CALLNAME:MASTER%～って、どっか行っちゃった……」
			CASE 2
				PRINTFORMW 「今、%CALLNAME:MASTER%見かけたような……？」
			CASE 3
				PRINTFORMW 「あれ、いっちゃった」
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「%CALLNAME:MASTER%……？」
			CASE 1
				PRINTFORMW 「そんなに急いでどこに行くのかしら……」
			CASE 2
				PRINTFORMW 「%CALLNAME:MASTER%～……あれ？ %CALLNAME:MASTER%～？」
			ENDSELECT

		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「うーん気付かれなかったのかな…？」
			CASE 1
				PRINTFORMW 「あ、あれ～？ 行っちゃった」
			CASE 2
				PRINTFORMW 「%CALLNAME:MASTER%～？」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「わわっ、急いでるのかな？」
			CASE 1
				PRINTFORMW 「あれ何処かで見たことあるような……」
			CASE 2
				PRINTFORMW 「何だか忙しそうね……」
			ENDSELECT
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW （赤いのめ、いい雰囲気だったのに台無しじゃない）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;魔理沙が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 11
		PRINTFORMW （白黒め、いい雰囲気だったのに台無しじゃない）
		RETURN 1
	ENDIF
	;その他（キャラ指定なし
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K101_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:恋人
			PRINTFORMW 「えっ…え？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「じゃ、邪魔したわね……えっと、ごめん！」
		ELSEIF TALENT:思慕
			PRINTFORMW 「えっと……お取込み中…のようね……」
		ELSE
			PRINTFORMW 「ご、ごめん！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:恋人
			PRINTFORMW 「わ、私も混ぜなさい！」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「負けないわよ！」
		ELSEIF TALENT:思慕
			PRINTFORMW 「……その、私も混じってもいいかしら？」
		ELSE
			PRINTFORMW 「私も……混ぜてくれない？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF TALENT:恋人
			PRINTFORMW 「え……？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あ……ごめん……」
		ELSEIF TALENT:思慕
			PRINTFORMW 「……お邪魔だったわね……」
		ELSE
			PRINTFORMW 「……お、お邪魔しました……」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K101_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:恋人
			PRINTFORMW 「%CALLNAME:MASTER%。気にせず続きをしましょ」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「えっと…まぁいっか」
		ELSEIF TALENT:思慕
			PRINTFORMW 「……変な感じになっちゃったわ…もう」
		ELSE
			PRINTFORMW （き、気まずい…）
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:恋人
			PRINTFORMW 「な、何よ！…まぁ%CALLNAME:MASTER%が良いなら私も良いけど……」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……%CALLNAME:MASTER%が良いなら」
		ELSEIF TALENT:思慕
			PRINTFORMW 「ええっ！？」
		ELSE
			PRINTFORMW 「貴女も混じるの……？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF TALENT:恋人
			PRINTFORMW 「……早く、続きをしましょ」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「えーと……再開する？」
		ELSEIF TALENT:思慕
			PRINTFORMW 「……どうする？」
		ELSE
			PRINTFORMW 「ううう……バレた………」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF TALENT:恋人
			PRINTFORMW 「まったく……どこぞの巫女や魔法使いなんじゃないんだから他人のものは奪っちゃだめよ」
			PRINTFORMW 朱鷺子に怒られて%CALLNAME:MASTER%がしゅんとしているのを見て
			PRINTFORMW 「まぁ…その、直接私に言えば私のはあげない事も無いからさ…」
			PRINTFORMW と、顔を赤くしながら付け加えた。
		ELSE
			PRINTFORMW 「……？なにこれ」
			PRINTFORMW 朱鷺子はそう言って%CALLNAME:MASTER%の持っていた下着について問い詰めている。
			PRINTFORMW 「うわぁ…これってまさか……」
			PRINTFORMW %CALLNAME:MASTER%が黙っていると
			PRINTFORMW 「……取り敢えずこれは没収よ。やめてよねこういうの」
			PRINTFORMW 朱鷺子はそう言って下着を懐にしまった。
		ENDIF
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;押し倒した
;==================================================
@M_KOJO_EVENT_K101_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:恋人
			IF TCVAR:媚薬 || TCVAR:発情 || CFLAG:TARGET:溜まってる度 > 850
				SELECTCASE RAND:3
					CASE 0
						IF GETBIT(TALENT:性別,1) && !GETBIT(TALENT:MASTER:性別,1)
							PRINTFORMW 「うふふ……%UNICODE(0x2764)% 今すぐ私のコレをぶち込んであげるわ……%UNICODE(0x2764)%」
							PRINTFORMW 「私をえっちな気分にさせた%CALLNAME:MASTER%が悪いのよ………%UNICODE(0x2764)%」
							PRINTFORMW 色欲に歪んだ朱鷺子に強い力で抑え込まれて身動きが取れない！
						ELSE
							PRINTFORMW 「もう我慢の限界……%UNICODE(0x2764)% 良いよね……%UNICODE(0x2764)% 身を委ねて……%UNICODE(0x2764)%」
							PRINTFORMW 色欲に歪んだ朱鷺子に強い力で抑え込まれて身動きが取れない！
						ENDIF
					CASE 1
						PRINTFORMW 「ふーっ%UNICODE(0x2764)% ふーっ%UNICODE(0x2764)% %CALLNAME:MASTER%……%UNICODE(0x2764)%」
						PRINTFORMW 朱鷺子は欲望のまま%CALLNAME:MASTER%に掴みかかった！
					CASE 2
						PRINTFORMW 「少しだけで良いから……%UNICODE(0x2764)% 少しだけ……%UNICODE(0x2764)% だから少し身体貸してぇ……%UNICODE(0x2764)%」
						PRINTFORMW どうやら簡単に解放されそうにない
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 朱鷺子はいきなり%CALLNAME:MASTER%を押し倒してきた。
						PRINTFORMW 「もう我慢出来ないの……%CALLNAME:MASTER%……好き」
						PRINTFORMW %CALLNAME:MASTER%は仰向けで身動きが取れないながら、朱鷺子の目線がゆっくりと自分の顔から下半身に移っていくのが分かった。
					CASE 1
						PRINTFORMW 朱鷺子は%CALLNAME:MASTER%の肩を掴むと押し倒してきた。
						PRINTFORMW 「%CALLNAME:MASTER%のせいよ……%CALLNAME:MASTER%が悪いんだから……私をこんな気分にさせたのは」
						PRINTFORMW そう言いながら朱鷺子は%CALLNAME:MASTER%に身体を更に密着させてきた。
						PRINTFORMW 「いい匂い……もっとそういう気分になっちゃう…」
						PRINTFORMW なされるがままになってしまったが、どうしようか。
					CASE 2
						PRINTFORMW 朱鷺子は%CALLNAME:MASTER%に体をすり寄せながら押し倒してきた。
						PRINTFORMW 「%CALLNAME:MASTER%……」
						PRINTFORMW %CALLNAME:MASTER%は仰向けで朱鷺子を見上げている。その表情はいつもの少女の顔ではなく、性を求める雌の表情だった。
						PRINTFORMW 「%CALLNAME:MASTER%……いいよね……」
						PRINTFORMW 朱鷺子が覆いかぶさってきた。彼女の鼓動が伝わり、次第に%CALLNAME:MASTER%の鼓動も速くなっていった。
					ENDSELECT
			ENDIF
		ELSEIF TALENT:恋慕
			IF TCVAR:媚薬 || TCVAR:発情 || CFLAG:TARGET:溜まってる度 > 850
				SELECTCASE RAND:3
					CASE 0
						IF GETBIT(TALENT:性別,1) && !GETBIT(TALENT:MASTER:性別,1)
							PRINTFORMW 「ごめん……もう我慢出来ないの……%UNICODE(0x2764)% 謝るから許してぇ……%UNICODE(0x2764)%」
							PRINTFORMW 色欲に歪んだ朱鷺子は強い力で%CALLNAME:MASTER%を抑え込みながらペニスをあてがった
						ELSE
							PRINTFORMW 「もう我慢の限界……%UNICODE(0x2764)% 良いよね……%UNICODE(0x2764)% 身を委ねて……%UNICODE(0x2764)%」
							PRINTFORMW 色欲に歪んだ朱鷺子に強い力で抑え込まれて身動きが取れない！
						ENDIF
					CASE 1
						PRINTFORMW 「ふーっ%UNICODE(0x2764)% ふーっ%UNICODE(0x2764)% %CALLNAME:MASTER%……%UNICODE(0x2764)%」
						PRINTFORMW 朱鷺子は欲望のまま%CALLNAME:MASTER%に掴みかかった！
					CASE 2
						PRINTFORMW 「少しだけで良いから……%UNICODE(0x2764)% 少しだけ……%UNICODE(0x2764)% だから少し身体貸してぇ……%UNICODE(0x2764)%」
						PRINTFORMW どうやら簡単に解放されそうにない
				ENDSELECT
			ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 朱鷺子はいきなり体を押し付けてくると押し倒してきた。
					PRINTFORMW 「ごめん。もう我慢出来ないの……」
					PRINTFORMW そう言いながら朱鷺子は唇を奪い%CALLNAME:MASTER%の体を弄ってくる。
					PRINTFORMW 「だから%CALLNAME:MASTER%も我慢しなくていいのよ…？」
				CASE 1
					PRINTFORMW 朱鷺子は%CALLNAME:MASTER%の肩をグイッと掴むと押し倒してきた。
					PRINTFORMW 「%CALLNAME:MASTER%がそういう気分にさせたのよ…責任とってくれるかしら」
					PRINTFORMW 朱鷺子は荒い息遣いで言った。
				CASE 2
					PRINTFORMW 朱鷺子にいきなり押し倒された。
					PRINTFORMW 「%CALLNAME:MASTER%……」
					PRINTFORMW 「身体が火照って……もう、どうしようもないの…」
					PRINTFORMW 朱鷺子は%CALLNAME:MASTER%の体を弄びながら妖艶に笑みを浮かべている。
			ENDSELECT
			ENDIF
		ELSE
			IF TCVAR:媚薬 || TCVAR:発情 || CFLAG:TARGET:溜まってる度 > 850
				SELECTCASE RAND:3
					CASE 0
						IF GETBIT(TALENT:性別,1) && !GETBIT(TALENT:MASTER:性別,1)
							PRINTFORMW 「少し身体貸してぇ……%UNICODE(0x2764)% もう何にも考えられない……%UNICODE(0x2764)%」
							PRINTFORMW 突き付けられた男根に恐怖を抱きながらも色欲に歪んだ朱鷺子に強い力で抑え込まれて身動きが取れない！
						ELSE
							PRINTFORMW 「もう我慢の限界……%UNICODE(0x2764)% 良いよね……%UNICODE(0x2764)% 身を委ねて……%UNICODE(0x2764)%」
							PRINTFORMW 色欲に歪んだ朱鷺子に強い力で抑え込まれて身動きが取れない！
						ENDIF
					CASE 1
						PRINTFORMW 「ふーっ%UNICODE(0x2764)% ふーっ%UNICODE(0x2764)% %CALLNAME:MASTER%……%UNICODE(0x2764)%」
						PRINTFORMW 朱鷺子は欲望のまま%CALLNAME:MASTER%に掴みかかった！
					CASE 2
						PRINTFORMW 「何も考えないで……%UNICODE(0x2764)% ただ私の好きなようなさせて……%UNICODE(0x2764)%」
						PRINTFORMW 朱鷺子の瞳の奥で怪しい光が灯る
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 朱鷺子はいきなり体を押し付けてくると無言で押し倒してきた。
						PRINTFORMW 「ごめん、自分でもなんでこんな事してるか分からないの。でも、胸がドキドキして…」
						PRINTFORMW そう言いながら朱鷺子は%CALLNAME:MASTER%にすり寄ってきた。
					CASE 1
						PRINTFORMW 朱鷺子は%CALLNAME:MASTER%をいきなり押し倒した。
						PRINTFORMW 「私、今、いやらしい事しか考えられないの。暫く好きにさせて…」
					CASE 2
						PRINTFORMW 「……%CALLNAME:MASTER%、ごめん！」
						PRINTFORMW 朱鷺子は謝りながらで%CALLNAME:MASTER%を押し倒してきた。
						PRINTFORMW 「仕方が無いのよ……ムラムラしてどうしようもないの…」
					ENDSELECT
			ENDIF
		ENDIF
		ENDIF
	ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
		IF TALENT:恋人
			IF TCVAR:媚薬 || TCVAR:発情 || CFLAG:TARGET:溜まってる度 > 850
				SELECTCASE RAND:3
					CASE 0
						IF GETBIT(TALENT:性別,1) && !GETBIT(TALENT:MASTER:性別,1)
							PRINTFORMW 「うふふ……%UNICODE(0x2764)% 今すぐ私のコレをぶち込んであげるわ……%UNICODE(0x2764)%」
							PRINTFORMW 「私をえっちな気分にさせた%CALLNAME:MASTER%が悪いのよ………%UNICODE(0x2764)%」
							PRINTFORMW 色欲に歪んだ朱鷺子に強い力で抑え込まれて身動きが取れない！
						ELSE
							PRINTFORMW 「もう我慢の限界……%UNICODE(0x2764)% 良いよね……%UNICODE(0x2764)% 身を委ねて……%UNICODE(0x2764)%」
							PRINTFORMW 色欲に歪んだ朱鷺子に強い力で抑え込まれて身動きが取れない！
						ENDIF
					CASE 1
						PRINTFORMW 「ふーっ%UNICODE(0x2764)% ふーっ%UNICODE(0x2764)% %CALLNAME:MASTER%……%UNICODE(0x2764)%」
						PRINTFORMW 朱鷺子は欲望のまま%CALLNAME:MASTER%に掴みかかった！
					CASE 2
						PRINTFORMW 「少しだけで良いから……%UNICODE(0x2764)% 少しだけ……%UNICODE(0x2764)% だから少し身体貸してぇ……%UNICODE(0x2764)%」
						PRINTFORMW どうやら簡単に解放されそうにない
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 朱鷺子はいきなり%CALLNAME:MASTER%を押し倒してきた。
						PRINTFORMW 「もう我慢出来ないの……%CALLNAME:MASTER%……好き」
						PRINTFORMW %CALLNAME:MASTER%は仰向けで身動きが取れないながら、朱鷺子の目線がゆっくりと自分の顔から下半身に移っていくのが分かった。
					CASE 1
						PRINTFORMW 朱鷺子は%CALLNAME:MASTER%の肩を掴むと押し倒してきた。
						PRINTFORMW 「%CALLNAME:MASTER%のせいよ……%CALLNAME:MASTER%が悪いんだから……私をこんな気分にさせたのは」
						PRINTFORMW そう言いながら朱鷺子は%CALLNAME:MASTER%に身体を更に密着させてきた。
						PRINTFORMW 「いい匂い……もっとそういう気分になっちゃう…」
						PRINTFORMW なされるがままになってしまったが、どうしようか。
					CASE 2
						PRINTFORMW 朱鷺子は%CALLNAME:MASTER%に体をすり寄せながら押し倒してきた。
						PRINTFORMW 「%CALLNAME:MASTER%……」
						PRINTFORMW %CALLNAME:MASTER%は仰向けで朱鷺子を見上げている。その表情はいつもの少女の顔ではなく、性を求める雌の表情だった。
						PRINTFORMW 「%CALLNAME:MASTER%……いいよね……」
						PRINTFORMW 朱鷺子が抱き着いてきた。彼女の鼓動が伝わり、次第に%CALLNAME:MASTER%の鼓動も速くなっていった。
				ENDSELECT
			ENDIF
		ELSEIF TALENT:恋慕
			IF TCVAR:媚薬 || TCVAR:発情 || CFLAG:TARGET:溜まってる度 > 850
				SELECTCASE RAND:3
					CASE 0
						IF GETBIT(TALENT:性別,1) && !GETBIT(TALENT:MASTER:性別,1)
							PRINTFORMW 「ごめん……もう我慢出来ないの……%UNICODE(0x2764)% 謝るから許してぇ……%UNICODE(0x2764)%」
							PRINTFORMW 色欲に歪んだ朱鷺子は強い力で%CALLNAME:MASTER%を抑え込みながらペニスをあてがった
						ELSE
							PRINTFORMW 「もう我慢の限界……%UNICODE(0x2764)% 良いよね……%UNICODE(0x2764)% 身を委ねて……%UNICODE(0x2764)%」
							PRINTFORMW 色欲に歪んだ朱鷺子に強い力で抑え込まれて身動きが取れない！
						ENDIF
					CASE 1
						PRINTFORMW 「ふーっ%UNICODE(0x2764)% ふーっ%UNICODE(0x2764)% %CALLNAME:MASTER%……%UNICODE(0x2764)%」
						PRINTFORMW 朱鷺子は欲望のまま%CALLNAME:MASTER%に掴みかかった！
					CASE 2
						PRINTFORMW 「少しだけで良いから……%UNICODE(0x2764)% 少しだけ……%UNICODE(0x2764)% だから少し身体貸してぇ……%UNICODE(0x2764)%」
						PRINTFORMW どうやら簡単に解放されそうにない
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 朱鷺子はいきなり体を押し付けてくると押し倒してきた。
						PRINTFORMW 「ごめん。もう我慢出来ないの……」
						PRINTFORMW そう言いながら朱鷺子は唇を奪い%CALLNAME:MASTER%の体を弄ってくる。
						PRINTFORMW 「だから%CALLNAME:MASTER%も我慢しなくていいのよ…？」
					CASE 1
						PRINTFORMW 朱鷺子は%CALLNAME:MASTER%の肩をグイッと掴むと押し倒してきた。
						PRINTFORMW 「%CALLNAME:MASTER%がそういう気分にさせたのよ…責任とってくれるかしら」
						PRINTFORMW 朱鷺子は荒い息遣いで言った。
					CASE 2
						PRINTFORMW 朱鷺子にいきなり押し倒された。
						PRINTFORMW 「%CALLNAME:MASTER%……」
						PRINTFORMW 「身体が火照って……もう、どうしようもないの…」
						PRINTFORMW 朱鷺子は%CALLNAME:MASTER%の体を弄びながら妖艶に笑みを浮かべている。
				ENDSELECT
			ENDIF
		ELSE
			IF TCVAR:媚薬 || TCVAR:発情 || CFLAG:TARGET:溜まってる度 > 850
				SELECTCASE RAND:3
					CASE 0
						IF GETBIT(TALENT:性別,1) && !GETBIT(TALENT:MASTER:性別,1)
							PRINTFORMW 「少し身体貸してぇ……%UNICODE(0x2764)% もう何にも考えられない……%UNICODE(0x2764)%」
							PRINTFORMW 突き付けられた男根に恐怖を抱きながらも色欲に歪んだ朱鷺子に強い力で抑え込まれて身動きが取れない！
						ELSE
							PRINTFORMW 「もう我慢の限界……%UNICODE(0x2764)% 良いよね……%UNICODE(0x2764)% 身を委ねて……%UNICODE(0x2764)%」
							PRINTFORMW 色欲に歪んだ朱鷺子に強い力で抑え込まれて身動きが取れない！
						ENDIF
					CASE 1
						PRINTFORMW 「ふーっ%UNICODE(0x2764)% ふーっ%UNICODE(0x2764)% %CALLNAME:MASTER%……%UNICODE(0x2764)%」
						PRINTFORMW 朱鷺子は欲望のまま%CALLNAME:MASTER%に掴みかかった！
					CASE 2
						PRINTFORMW 「何も考えないで……%UNICODE(0x2764)% ただ私の好きなようなさせて……%UNICODE(0x2764)%」
						PRINTFORMW 朱鷺子の瞳の奥で怪しい光が灯る
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 朱鷺子はいきなり体を押し付けてくると無言で押し倒してきた。
						PRINTFORMW 「ごめん、自分でもなんでこんな事してるか分からないの。でも、胸がドキドキして…」
						PRINTFORMW そう言いながら朱鷺子は%CALLNAME:MASTER%にすり寄ってきた。
					CASE 1
						PRINTFORMW 朱鷺子は%CALLNAME:MASTER%をいきなり押し倒した。
						PRINTFORMW 「私、今、いやらしい事しか考えられないの。暫く好きにさせて…」
					CASE 2
						PRINTFORMW 「……%CALLNAME:MASTER%、ごめん！」
						PRINTFORMW 朱鷺子は謝りながらで%CALLNAME:MASTER%を押し倒してきた。
						PRINTFORMW 「仕方が無いのよ……ムラムラしてどうしようもないの…」
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW 「あっ、ちょっと！待ちなさい！」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW 「……ありがとう、気持ちよかったわ。%CALLNAME:MASTER%」
			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
			PRINTFORMW 「何逃げようとしてるの？そうはいかないわよ！」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORMW 「まだまだ物足りないわ」
			RETURN 1
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORMW 「うわっ！びっくりした。……えーっと……ごめん、ちょっと今日はそういう気分じゃないの」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「うわっ！びっくりした！……今私が入ってるから後にして」
		ELSEIF TALENT:思慕
			PRINTFORMW 「うわっ！……今は私が入ってるから出て行って」
		ELSE
			PRINTFORMW 「何入って来てるのよ！？変態！！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「一緒に入りたいの？勿論いいわよ。…早く入らないの？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「仕方ないわね…いいわよ……」
			PRINTFORMW 朱鷺子は少し困惑した様子で湯船に浸かっている。
		ELSEIF TALENT:思慕
			PRINTFORMW 「え……別にいいけど……」
		ELSE
			PRINTFORMW 「……好きにしたら？」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
ENDIF
;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K101_12(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「駄目に決まってるでしょ！」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……これ以上近づかないで」
		ELSEIF TALENT:思慕
			PRINTFORMW 「来ないで！」
		ELSE
			PRINTFORMW 「やめて！！！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORMW 「……はぁ、好きにすれば…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORMW 「………もう、仕方ないわね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORMW 「………一緒にいて」
		ENDIF
		RETURN 1
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		IF TALENT:恋人
			PRINTFORMW 「やめてくれない？その…恥ずかしいから」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「急には駄目……！」
		ELSEIF TALENT:思慕
			PRINTFORMW 「勝手に入っちゃ駄目よ？」
		ELSE
			PRINTFORMW 「あの…そういうのは困るんだけど……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		IF TALENT:恋人
			PRINTFORMW 「疲れてるから……ごめん。また今度ね」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「疲れてるから……ごめん」
		ELSEIF TALENT:思慕
			PRINTFORMW 「今日は疲れてるから……」
		ELSE
			PRINTFORMW 「今日は疲れてるから……やめて」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K101_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_K101_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORMW 「美味しそうなもの持ってるわね」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 1
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FLAG:時間停止
				PRINTFORMDL 朱鷺子を犯し抜いた%CALLNAME:MASTER%は服を着る
				PRINTFORMDW この便利な能力をもっと有効活用してやろう
			ELSEIF TALENT:恋慕
				TCVAR:109:発情 = 0
				IF PALAM:欲情 >= PALAMLV:15
					SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「ぉ……お゛お゛っ%UNICODE(0x2764)%%UNICODE(0x2764)% ………ッ%UNICODE(0x2764)%%UNICODE(0x2764)%」
							PRINTFORMDL 朱鷺子は激しい行為の末、ひっくり返ったカエルの様な体勢でピクピクしている
						CASE 1
							PRINTFORML 「へっ%UNICODE(0x2764)% へっ%UNICODE(0x2764)% ………%UNICODE(0x2764)%%UNICODE(0x2764)%」
							PRINTFORMDL 朱鷺子は激しい行為の余韻で軽く絶頂を繰り返している
						CASE 2
							PRINTFORML 「は、はひっ%UNICODE(0x2764)% ……っ%UNICODE(0x2764)% んへぇ%UNICODE(0x2764)%%UNICODE(0x2764)%」
							PRINTFORMDL 朱鷺子はアへ顔のまま突っ伏している
					ENDSELECT
				ELSEIF PALAM:欲情 >= PALAMLV:10
					SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「ぁ、あひっ%UNICODE(0x2764)% しあわせぇ……%UNICODE(0x2764)%%UNICODE(0x2764)%」
							PRINTFORMDL 朱鷺子は夢み心地でだらしない顔を晒してしまっている
							PRINTFORMW 「ふ、ぅ………へ？ うひっ%UNICODE(0x2764)%%UNICODE(0x2764)%」
							PRINTFORMDW 耳元でまた同じように楽しませてやると囁くと朱鷺子は嬉しそうに身体を跳ねさせた
						CASE 1
							PRINTFORML 「も、もうだめぇ……%UNICODE(0x2764)% うっ%UNICODE(0x2764)% んんっ%UNICODE(0x2764)%」
							PRINTFORMDL 朱鷺子はぐったりしながらも時々身体を跳ねさせている
							PRINTFORMW 「ちょっと……休ませてぇ……んんっ%UNICODE(0x2764)%%UNICODE(0x2764)%」
							PRINTFORMDW 火照り切った朱鷺子は顔に手を置いて呼吸を整えている
						CASE 2
							PRINTFORML 「こんなに滅茶苦茶にされたらぁ%UNICODE(0x2764)% クセになっちゃう……%UNICODE(0x2764)%」
							PRINTFORMDL 朱鷺子は甘い息を漏らしながら言ってきた
							PRINTFORMW 「だからぁ……%UNICODE(0x2764)% 次もお願いね……%UNICODE(0x2764)%」
							PRINTFORMDW 次回もどうやら楽しませる必要があるようだ
					ENDSELECT
				ELSEIF PALAM:欲情 >= PALAMLV:5
					SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「ひ、ぁあ……%UNICODE(0x2764)% 今回も良かったわよ……%UNICODE(0x2764)%」
							PRINTFORMDL 朱鷺子は頬を薄く染めながら抱き着いて来た
							PRINTFORMDW それに対して%CALLNAME:MASTER%は優しく頭を撫でると、朱鷺子はビクッと身体を震わせた
						CASE 1
							PRINTFORML 「はぁ……%UNICODE(0x2764)%　はぁ……%UNICODE(0x2764)%」
							PRINTFORMDL 息を切らしている朱鷺子の頭を優しく撫でる
							PRINTFORML 「ありがとう、良かったわ%UNICODE(0x2764)%　また次もヤりましょ%UNICODE(0x2764)%」
							PRINTFORMDW 朱鷺子は%CALLNAME:MASTER%に向かってウインクした
						CASE 0
							PRINTFORML 「ふ、ぁ……%UNICODE(0x2764)% ちょっと疲れちゃった%UNICODE(0x2764)%」
							PRINTFORMDL 朱鷺子はどこかスッキリした表情で言った
							PRINTFORMW 「汗もかいちゃったしお風呂入ろうかな～」
					ENDSELECT
				ELSE
					SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「これで終わり？ うー…ならせめてもう少しお話しない？」
							PRINTFORMDW 朱鷺子は%CALLNAME:MASTER%に寄り添ってきた
						CASE 1
							PRINTFORML 「ええ～もう？ むぅ、もっとしたかったのに……」
						CASE 2
							PRINTFORML 「うう～、なら次は今回の分も合わせてシてよね！」
							PRINTFORMDW 朱鷺子は少し不満そうだ
					ENDSELECT
				ENDIF
			ELSE
				TCVAR:109:発情 = 0
				IF PALAM:屈服 >= PALAMLV:15
					PRINTFORML 「あ……あふぅ……%UNICODE(0x2764)%」
					PRINTFORMDL 朱鷺子は時々身体を痙攣させながら余韻に浸っている
					PRINTFORML 「はぁ…はぁ…これ以上は……むりぃ…%UNICODE(0x2764)%」
					PRINTFORMDL %CALLNAME:MASTER%は夢み心地の朱鷺子に声を掛ける
					PRINTFORMW 「……全く、私を%CALLNAME:MASTER%無しじゃ生きられない身体にする気……？」
				ELSEIF PALAM:屈服 >= PALAMLV:10
					PRINTFORML 「ん、ぁぁ……%UNICODE(0x2764)% お、終わり……？」
					PRINTFORMDW 朱鷺子は甘い息を漏らしながら起き上がった
				ELSEIF PALAM:屈服 >= PALAMLV:5
					PRINTFORML 「ふぅ……結構、良かったわよ%UNICODE(0x2764)%」
					PRINTFORMDW 朱鷺子は満足げに%CALLNAME:MASTER%の顔を覗き込んだ
				ELSE
					PRINTFORML 「ん、ぁれ……もう終わり？」
					PRINTFORMDW 朱鷺子はまだ物足り無いようだ
				ENDIF
			ENDIF
		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
			PRINTFORMW （もう、こんなに出して……%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%）
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORMW （まだまだイケたわね、私）
			ENDIF
			RETURN 1
		;-------------------------------------------------
		;事後のムード
		;記入チェック（=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
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K101_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_K101_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
		;時姦3
		IF MARK:時姦刻印 == 3
			SELECTCASE RAND:4
				CASE 3
					PRINTFORMW 「………あ、またっ%UNICODE(0x2764)%」
					PRINTFORMW 「なんなのよぉ………んひっ%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は何処か嬉しそうにしている
				CASE 2
					PRINTFORMW 「………あ、ふ……%UNICODE(0x2764)%」
					PRINTFORMW 「なに、よ………んんんっ%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は駆け巡る快感に耐え切れずその場にへたり込んでしまった
				CASE 1
					PRINTFORMW 「ん………んんんっ%UNICODE(0x2764)%」
					PRINTFORMW 「ぁ……や、ぁ……%UNICODE(0x2764)% なんでも……な、ぃ………んんっ%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は快感を隠しきれていない
				CASE 0
					PRINTFORMW 「んひっ！？ ………っ%UNICODE(0x2764)%」
					PRINTFORMW 「ふ、ぁ……気持ち良い……%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は小さく震えながらポツリと漏らした
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:5
				CASE 0
					PRINTFORMW 「～～～んっ！？」
					PRINTFORMW 朱鷺子は唐突な快感に身悶えしている。
					PRINTFORMW 「だ、大丈夫。心配しないで」
					PRINTFORMW （何、今の？）
				CASE 1
					PRINTFORMW 「ひゃんっ！？ え……何、今の………」
					PRINTFORMW 朱鷺子は辺りを見渡すが怪しい人物はいない
					PRINTFORMW 「ううう……何なのよ」
					PRINTFORMW %CALLNAME:MASTER%は表面上だけ朱鷺子を心配する素振りを見せた
				CASE 2
					PRINTFORMW 「………っ！？」
					PRINTFORMW 朱鷺子は身体の疼きを感じて身体を咄嗟に抑えた
					PRINTFORMW 「何よこれ………気のせい……？」
				CASE 3
					PRINTFORMW 「～～～んっ！？」
					PRINTFORMW 朱鷺子はビクッと体を震わせ
					PRINTFORMW 「……え？何？」
					PRINTFORMW 困惑して辺りを見回している。
				CASE 4
					PRINTFORMW 「ひぁっ！？」
					PRINTFORMW 朱鷺子は突然の快感に戸惑っている
					PRINTFORMW 「……ううう、なにこれ……」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「～～～んっ！？」
					PRINTFORMW 朱鷺子はビクッと体を震わせ
					PRINTFORMW 「……え？何？」
					PRINTFORMW 困惑して辺りを見回している。
				CASE 1
					PRINTFORMW 「ひぁっ！？」
					PRINTFORMW 朱鷺子は突然の快感に戸惑っている
					PRINTFORMW 「……ううう、なにこれ……」
				CASE 2
					PRINTFORMW 「………っ！？」
					PRINTFORMW 朱鷺子は身体の疼きを感じて身体を咄嗟に抑えた
					PRINTFORMW 「何よこれ………気のせい……？」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF MARK:時姦刻印 == 3
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「ぃ、ひっ………～～～～～～っ%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 「あっ………%UNICODE(0x2764)% ま、またぁ……？ ………っ%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は突然の絶頂にも関わらずどこか笑みを浮かべている
				CASE 1
					PRINTFORMW 「…………っ！？ ひうっ%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW （こ、これ……好き………%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%）
					PRINTFORMW 朱鷺子は時姦の快感を悦んでいる
				CASE 0
					PRINTFORMW 「ん、んんんんっ%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 「ぁ、これ………だめぇ……%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子はビクビクと身体を跳ねさせている
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:6
				CASE 0
					PRINTFORMW 「～～～んんん%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は突然の快感に思わず声が出てしまったようだ。
					PRINTFORMW 「な、なんなのよ…もう……え？いや何でもないわ。んっ%UNICODE(0x2764)% 本当に」
					PRINTFORMW 朱鷺子は自分が密かに絶頂してしまったのを%CALLNAME:MASTER%にバレていないか気にしているようだ。
				CASE 1
					PRINTFORMW 「～～～んんん%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 「…な、何？」
					PRINTFORMW 突然の快楽に朱鷺子は思わずうずくまってしまった。
					PRINTFORMW 「うう……なんなのよ……」
				CASE 2
					PRINTFORMW 「～～～っ%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 「ひ……ぁ%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は思わず蹲ってしまった
				CASE 3
					PRINTFORMW 「～～～ッ%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 「なっ、なにこれぇ……%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は突然の絶頂に戸惑っている
				CASE 4
					PRINTFORMW 「………へ？ なっ%UNICODE(0x2764)% なにこれっ%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 「んんんっ%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は絶頂してしまい声を我慢できない
				CASE 5
					PRINTFORMW 「ひ、ぁ………%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は絶頂の快感を必死で抑えている
			ENDSELECT
		ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「～～～ッ%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
				PRINTFORMW 「なっ、なにこれぇ……%UNICODE(0x2764)%」
				PRINTFORMW 朱鷺子は突然の絶頂に戸惑っている
			CASE 1
				PRINTFORMW 「………へ？ なっ%UNICODE(0x2764)% なにこれっ%UNICODE(0x2764)%%UNICODE(0x2764)%」
				PRINTFORMW 「んんんっ%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
				PRINTFORMW 朱鷺子は絶頂してしまい声を我慢できない
			CASE 2
				PRINTFORMW 「ひ、ぁ………%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
				PRINTFORMW 朱鷺子は絶頂の快感を必死で抑えている
		ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	IF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「………っ！？ う、うそ……なんで！？」
					PRINTFORMW 朱鷺子は思わず声を出してしまった
					PRINTFORMW 「いや……何でもないわ……」
					PRINTFORMW %CALLNAME:MASTER%が事情を尋ねたが朱鷺子は下を向いて黙ってしまった
				CASE 1
					PRINTFORMW 「……え？ もしかして%CALLNAME:MASTER%………いや何でも無いわ……」
					PRINTFORMW 朱鷺子は%CALLNAME:MASTER%を疑ったものの、少し考えて一瞬で脱がすなんて出来ないと思って言葉を留めた
					PRINTFORMW （うう……誰が盗ったのよ………）
					PRINTFORMW 朱鷺子はスカートを抑えながら歩いている
				CASE 2
					PRINTFORMW 下着が盗まれた為、普段は風の当らないところに風が届いている。朱鷺子は直ぐに違和を感じスカートの上から確認している。
					PRINTFORMW 「……え？嘘、どういう事……？」
					PRINTFORMW 下着が盗まれた事に困惑しているようだ。耳を赤くさせながら、辺りを見渡して落ち着かないようだ。
			ENDSELECT
		ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「………えっ！？ どうして………うそ………」
				PRINTFORMW 朱鷺子は下着を盗られて明らかに動揺している
				PRINTFORMW %CALLNAME:MASTER%は悟られないように出来るだけ表情を出さないように朱鷺子の反応を楽しんだ
			CASE 1
				PRINTFORMW 「………へ？ ～～～～～～っ！？」
				PRINTFORMW 「なんで？ なんで？ なんでいきなり無くなってるの……！？」
				PRINTFORMW 朱鷺子は小声で何度も呟いて小走りになっている
			CASE 2
				PRINTFORMW 下着が盗まれた為、普段は風の当らないところに風が届いている。朱鷺子は直ぐに違和を感じスカートの上から確認している。
				PRINTFORMW 「……え？嘘、どういう事……？」
				PRINTFORMW 下着が盗まれた事に困惑しているようだ。耳を赤くさせながら、辺りを見渡して落ち着かないようだ。
		ENDSELECT
		ENDIF
		RETURN 1
	ENDIF

	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			IF EXP:精液経験 == 0
				PRINTFORMW 「うっ！？」
				PRINTFORMW 朱鷺子は突然口を押さえて立ち止まった。
				PRINTFORMW 「あにおれぇ……ううう………」
				PRINTFORMW 口内の白濁汁を吐き出すか飲み込むか一瞬迷った後、
				PRINTFORMW 「んぐ……うっ…んぐ………」
				PRINTFORMW 飲み込むことにしたようだ。
				PRINTFORMW 「……私が何をしたって言うの！？」
			ELSE
				PRINTFORMW 「うぇ！？」
				PRINTFORMW 朱鷺子は突然口を押さえ体を震わせながら崩れ落ちた。
				PRINTFORMW 「んあ……うう……」
				PRINTFORMW 口内に残る子種をどうするか口を押さえながら考えこんだ後
				PRINTFORMW 「ん……んぐ……むっ……」
				PRINTFORMW 飲み込むことにしたようだ。
				PRINTFORMW 「何なのよ…もう……」
			ENDIF
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
             PRINTFORMW 「んぐっ！？……おぇっ」
             PRINTFORMW 朱鷺子は口内に現れた白濁汁を直ぐさま吐き出したが、暫くえずいていた。
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			PRINTFORMW 「うっ！？」
			PRINTFORMW 「おぇっ……うっ……何よこれぇ」
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			PRINTFORMW 「うっ！？…んっ、ごくん」
			PRINTFORMW 朱鷺子は突然口内に現れた白濁汁に驚いたが、直ぐに飲み込んでしまった。
			PRINTFORMW 「もう…！びっくりしたわ……」
			PRINTFORMW 朱鷺子は言葉とは裏腹に満更でもない顔をしている。
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			PRINTFORMW 「んぐっ！？……げほっげほっげほっ」
			PRINTFORMW 朱鷺子は濃厚な白濁汁に驚き、思わず吐き出してしまった。
			PRINTFORMW 「この白いのってもしかして……」
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			PRINTFORMW 「うっ！？……んっ、ごくんっ！」
			PRINTFORMW 朱鷺子は口内に現れた白濁汁を躊躇なく飲み込んだ。
			PRINTFORMW （…今の凄く美味しかった。また何処かで飲めないかな……）
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
			PRINTFORMW 「何よこれ……後で顔拭かないと……」
			PRINTFORMW 朱鷺子は顔を拭きながら顔に付いた精液を手に取って観察している
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			PRINTFORMW 「うわっ！何これ……臭いし、べたべたするし……」
			PRINTFORMW 朱鷺子は顔に付いた精液を急いでふき取っている。
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			PRINTFORMW 「うわっ！」
			PRINTFORMW 朱鷺子は顔に付いた精液に一瞬驚いたが、
			PRINTFORMW （あっ%UNICODE(0x2764)%この匂い……頭がボーっとしてきちゃう……）
			PRINTFORMW とろんとした表情で人目も憚らずペロペロと顔に付いた精液を舐めとっていく…
			PRINTFORMW ふき取り切った後も暫く朱鷺子は夢心地でふらふらしていた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			PRINTFORMW 「……え？うわぁ………」
			PRINTFORMW 朱鷺子は手にこびりついた精液に気付くと、直ぐに気持ち悪そうにそれをふき取った。
		;舐めとり
		ELSEIF ARG:1 == 2
			PRINTFORMW 「…え？」
			PRINTFORMW 朱鷺子は手にこびりついた精液に気付くと、直ぐに後ろを向いてしまった。
			PRINTFORMW 「……ど、どうしたの？」
			PRINTFORMW 朱鷺子の口元には精液が付いていた。どうやら後ろを向いたときに舐めとったのだろう。%CALLNAME:MASTER%は暫くその口元を見つめていた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF MARK:時姦刻印 == 3
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「ふぐっ%UNICODE(0x2764)%」
					PRINTFORMW 「お、おしりっ%UNICODE(0x2764)% 急に……っ%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は確かに感じながら尻をさすっている
				CASE 1
					PRINTFORMW 「んんっ%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 突然やって来た尻穴の感覚に朱鷺子は声を漏らしてしまう
				CASE 0
					PRINTFORMW 「はうっ%UNICODE(0x2764)%%UNICODE(0x2764)% んぁ……%UNICODE(0x2764)%」
					PRINTFORMW 「ぁ、これだめぇ……%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子はビクビクと身体を跳ねさせている
			ENDSELECT
		;Ａ感覚2以下
		ELSEIF ARG:1 == 1
			PRINTFORMW 「いぎっ！？」
			PRINTFORMW 「何よ……もう…」
			PRINTFORMW 朱鷺子はお尻を撫でながら周りを見渡している。
		;ソレ以外
		ELSEIF ARG:1 == 2
			PRINTFORMW 「んっ！？」
			PRINTFORMW 「ど…どうして？」
			PRINTFORMW 朱鷺子はお尻を撫でながら周りを見渡している。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
			PRINTFORMW 「いっ……！」
			PRINTFORMW 朱鷺子は突然の痛みに驚いた。
			PRINTFORMW （何だろう……凄く大切な“何か”を失ったような…）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF MARK:時姦刻印 == 3
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「んんんっ%UNICODE(0x2764)%」
					PRINTFORMW 「ひ、ぁっ%UNICODE(0x2764)% なんでぇ%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は小刻みに震えている
				CASE 1
					PRINTFORMW 「………ッ%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は快感を前に身体を仰け反らせている
				CASE 0
					PRINTFORMW 「はうっ%UNICODE(0x2764)%%UNICODE(0x2764)% ま、またぁ……%UNICODE(0x2764)%」
					PRINTFORMW 「や、ぁぁ……%UNICODE(0x2764)%」
					PRINTFORMW 朱鷺子は何処か嬉しそうに声を漏らしている
			ENDSELECT
		;非処女膣内射精ピルなし
		ELSEIF ARG:1 == 1
 			PRINTFORMW 「何……もう…」
			PRINTFORMW 朱鷺子は下半身の違和感に戸惑っている。
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
			PRINTFORMW 「何…？……取り敢えずこれ飲んだ方が良い気がするわ……」
			PRINTFORMW 朱鷺子は下半身の違和を感じるとすぐさま避妊薬を飲んだ。
		;処女膣内射精
		ELSEIF ARG:1 == 3
			PRINTFORMW 「いっ……！ううっ何なのよ！もう…！」
			PRINTFORMW 朱鷺子は突然の痛みと下半身の未知の感覚を受けて、泣き出しそうな顔になっている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K101_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORMW 「え？生で……？」
			PRINTFORMW 「ええっと……もう少し考えさせて欲しいというか……心の準備というか…」
			PRINTFORMW 朱鷺子は避妊を要求してきた。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……生はちょっと」
			PRINTFORMW 「一時の快楽に身を任せると、後で後悔すると思うわ」
			PRINTFORMW 「私にとっても%CALLNAME:MASTER%にとっても」
		ELSE
			PRINTFORMW 「生はちょっと……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「だから……まだ心の準備が……」
			PRINTFORMW 朱鷺子はなおも拒否してきた。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「お互いに後悔はしたくないでしょ？」
			PRINTFORMW 朱鷺子はなおも拒否してきた。
		ELSE
			PRINTFORMW 「……駄目なものは駄目！」
			PRINTFORMW 朱鷺子は必死に避妊を要求してきた。
			ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
			PRINTFORMW 「これ以上は私も本気で怒るわよ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF TALENT:恋人
			PRINTFORMW 「分かったわ」
			PRINTFORMW 「危険日以外なら…いいわ。どうせ押し切るんだろうし」
			PRINTFORMW 朱鷺子は妥協した。
			PRINTFORMW 「でも危険日は駄目って約束は絶対守ってよ」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……しかたないわね」
			PRINTFORMW 「でも危険日は絶対駄目よ？」
		ELSE
			PRINTFORMW 「……危険日は駄目って約束は守ってよね！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:恋人
			PRINTFORMW 「……分かったわ。私も心の準備が出来たわ」
			PRINTFORMW 「%CALLNAME:MASTER%、よろしくね%UNICODE(0x2764)%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……分かったわ」
			PRINTFORMW 「そこまで言うなら、私も覚悟を持ってするわ」
		ELSE
			PRINTFORMW 「……分かったわ」
			PRINTFORMW （結局……流されてしまった……）
		ENDIF
		RETURN 1
	ENDIF
RETURN 1
ENDIF
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K101_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「やったわね！%CALLNAME:MASTER%」
		PRINTFORMW 「あの極悪非道の巫女も案外物分かりが良いのね！」
		PRINTFORMW 朱鷺子は%CALLNAME:MASTER%の周りを飛び回りながら笑顔で話しかけてくる。
		PRINTFORMW 「初めて会ったときにはこんな事になるなんて思っても見なかったわ……」
		PRINTFORMW 朱鷺子は%CALLNAME:MASTER%と初めて出会った時を思い出しているようだ。
		PRINTFORMW 「あっ！そうだ」
		PRINTFORMW 突然そう呟いて、朱鷺子は鳥居の前で立ち止まり%CALLNAME:MASTER%の顔を真っすぐ見た。
		PRINTFORMW 「そういえば%CALLNAME:MASTER%ってずっと私の事“朱鷺子”って呼んでるけど……」
		PRINTFORMW 「元からそうなんじゃ無いかって？いやいや、%CALLNAME:MASTER%が私の翼を見て言い始めただけじゃない。まぁ私もその呼び方は気に入ってるからいいんだけど」
		PRINTFORMW 「でも流石にこんな仲なんだし、一応本来の名前も言っといた方が良いかなって。それにこのタイミング逃すと永遠に言いそびれそうだし」
		PRINTFORMW 「でも、自分の名前を言うだけなのに、改まって言うとなると少し恥ずかしいわね……」
		PRINTFORMW ほのかに顔を赤くした朱鷺子は小さく深呼吸をしてから口を開いた。
		PRINTFORMW 「私の名前は―――――――――――――」
		PRINTFORMW そのとき二人を祝福するかのように、強い風が音を鳴らせながら%CALLNAME:MASTER%と朱鷺子の前を通り過ぎた。
		PRINTFORMW 「………でも私は%CALLNAME:MASTER%に“朱鷺子”って呼ばれる方が好きかな。結局名前なんて適当でいいのよね。自分が呼んで欲しいように呼んでくれればそれで」
		PRINTFORMW 「じゃあ、改めてよろしく。%CALLNAME:MASTER%」
		PRINTFORMW “朱鷺子”は笑顔で%CALLNAME:MASTER%の手を取り、一緒に鳥居をくぐった。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「何よ！あの赤いの！私達に恨みでもあるの！？逆に私は恨みがどんどん増えてくけど……！」
		PRINTFORMW 朱鷺子は怒りで顔を赤くしている。暫くして落ち着いたのか改まって%CALLNAME:MASTER%の方を向いた。
		PRINTFORMW 「%CALLNAME:MASTER%。いつかあいつに私達の仲を認めてもらうわよ！」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K101_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			SELECTCASE RAND:4
				CASE 3
					PRINTFORMW 「そろそろ帰るわ！」
					PRINTFORMW 「じゃあまた明日！」
				CASE 2
					PRINTFORMW 「もうこんな時間ね……もっと居たいんだけど……」
					PRINTFORMW 「……また、明日ね！」
				CASE 1
					PRINTFORML 「そろそろ時間だし帰るわね………んっ」
					PRINTFORMDW 朱鷺子は%CALLNAME:MASTER%の頬に軽くキスをした
					PRINTFORMW 「じゃあまた明日！」
				CASE 0
					PRINTFORMW 「そろそろ帰るわね～」
					PRINTFORMW 「本当はずっと居たいんだけどねぇ」
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「もうこんな時間ね……また、今度ね！」
					PRINTFORMW そう言うと朱鷺子は飛び去っていった。
				CASE 1
					PRINTFORML 「一日ってなんでこんなに短いのかしら………」
					PRINTFORMDW %CALLNAME:MASTER%は少し落ち込んでいる朱鷺子の頭を撫でた
					PRINTFORMW 「あっ……ありがとう………じゃあ帰るわね」
				CASE 0
					PRINTFORMW 「もう帰らないと……」
					PRINTFORMW 「また今度ね！」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「夜は目が効かないから帰るわね」
					PRINTFORMW 朱鷺子はそう言って飛び去っていった。
				CASE 1
					PRINTFORML 「これ以上いると危ないし帰るわね」
					PRINTFORMW 「また来るわね～」
				CASE 0
					PRINTFORMW 「あっ、もうこんな時間！」
					PRINTFORMW 「それじゃあ帰るわね」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「もうこんな時間ね」
					PRINTFORMW 朱鷺子はいつの間にか飛び去っていってしまっていた。
				CASE 1
					PRINTFORML 「じゃあまたね」
				CASE 0
					PRINTFORMW 「あっ、もうこんな時間！」
					PRINTFORMW 「それじゃあ帰るわね」
			ENDSELECT

		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「楽しい時間は早く過ぎてしまうものね…」
					PRINTFORMW 「また、デートしましょう」
					PRINTFORMW 朱鷺子はそう言うと飛び去っていった。
				CASE 1
					PRINTFORML 「今日のデートももうすぐ終わりねぇ……」
					PRINTFORMDW %CALLNAME:MASTER%はしんみりとしている朱鷺子の頭を撫でた
					PRINTFORMW 「ふふ、ありがとう。こういう所好きよ♪」
				CASE 0
					PRINTFORMW 「もうこんな時間かぁ……そろそろ終わりねぇ……」
					PRINTFORMW 「またデート行きましょ♪」
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「また……また、デート行きましょ！」
					PRINTFORMW %CALLNAME:MASTER%は返事の代わりに頭を撫でた
				CASE 1
					PRINTFORML 「%CALLNAME:MASTER%、今日はありがとう。楽しかったわ」
					PRINTFORMW 「その……また時間があればデートして欲しいなって……」
					PRINTFORMDW 朱鷺子は少し恥ずかしそうに尋ねてきた
				CASE 0
					PRINTFORMW 「今日は楽しかったわ、またデートしましょう」
					PRINTFORMW そう言うと朱鷺子は飛び去っていった。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「もうこんな時間ね」
					PRINTFORMW 「今日はありがとう」
				CASE 1
					PRINTFORML 「今日は楽しかったわ」
					PRINTFORMW 「また機会があったら誘ってね」
				CASE 0
					PRINTFORMW 「それじゃ、そろそろ帰るわね」
					PRINTFORMW そう言うと朱鷺子は飛び去っていった。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「楽しかったわ♪」
				CASE 1
					PRINTFORMW 「もうこんな時間ね。じゃあね」
					PRINTFORMW 朱鷺子はいつの間にか飛び去っていってしまっていた。
				CASE 0
					PRINTFORMW 「それじゃ、そろそろ帰るわね」
					PRINTFORMW そう言うと朱鷺子は飛び去っていった。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「ここでいいわ。じゃあまたね」
					PRINTFORMW 朱鷺子はそう言うと飛び去っていった。
				CASE 1
					PRINTFORML 「ここまで来たんだし別に泊まって行っても良いんだけどね」
					PRINTFORMW 「あはは、まぁ半分冗談よ」
				CASE 0
					PRINTFORMW 「送ってくれてありがとう」
					PRINTFORMW 「またデート行きましょ♪」
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「ここでいいわ。ありがとう」
					PRINTFORMW そう言うと朱鷺子は飛び去っていった。
				CASE 1
					PRINTFORML 「今日は楽しかったわ♪」
					PRINTFORMW 「その……またデートしましょ？」
				CASE 0
					PRINTFORMW 「ここまで送ってくれてありがとう」
					PRINTFORMW 「気を付けて帰るのよ」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「今日はありがとう！」
				CASE 1
					PRINTFORML 「今日は楽しかったわ♪」
				CASE 0
					PRINTFORMW 「ここでいいわ」
					PRINTFORMW 朱鷺子はそう言って飛び去っていった。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「じゃあね」
					PRINTFORMW 「また今度ね」
				CASE 1
					PRINTFORMW 「また時間があれば行きましょ」
				CASE 0
					PRINTFORMW 「ここでいいわ」
					PRINTFORMW 朱鷺子はそう言って飛び去っていった。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K101_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「やっぱりそうだ…この気持ち」
		PRINTFORMW 朱鷺子は寝床で自分の胸に手を当てて呟いた。
		PRINTFORMW (やっぱり私は%CALLNAME:MASTER%の事が……好き)
		PRINTFORMW 朱鷺子は自分の鼓動が速くなるのを感じた。
		PRINTFORMW 「……でも%CALLNAME:MASTER%は私の事どう思ってるのかな……もし、片思いだったら……」
		PRINTFORMW 途端に不安になり、それをかき消すために眠ろうと目を閉じた。それでも寝るまでの間、鼓動は常に速く鳴り続けていた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「どうしたのかしら……最近胸が熱くなるときがある……」
		PRINTFORMW 朱鷺子は寝床で自分の胸に手を当てて呟いた。
		PRINTFORMW （%CALLNAME:MASTER%……）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「んっ……はぁ、はぁ、はぁ。%CALLNAME:MASTER%…」
		PRINTFORMW 朱鷺子は身体を捩らせながら呟いている。
		PRINTFORMW 「……もう、%CALLNAME:MASTER%の所為だわ…私がこうなっちゃったのは。責任は取ってもらわないと……ね」
		PRINTFORMW 朱鷺子は寝るまでの間、%CALLNAME:MASTER%の事を考えながら甘い快楽に包まれていた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「こんな関係はやっぱり……でも……」
		PRINTFORMW こんな関係は間違っているとは頭では理解出来ている。しかし、朱鷺子は%CALLNAME:MASTER%に対する気持ちは日に日に大きくなっていく。
		PRINTFORMW 「もう……いいよね…」
		PRINTFORMW 朱鷺子は自分の理性を捨てて、%CALLNAME:MASTER%と不純な関係を続けていく事を決めたようだ。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「%CALLNAME:MASTER%……んんっ」
		PRINTFORMW 朱鷺子は%CALLNAME:MASTER%との行為を思い出して身体を捩らせた。
		PRINTFORMW 「もう…%CALLNAME:MASTER%の身体が無いと……うう、もっと%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
		PRINTFORMW 朱鷺子はもう%CALLNAME:MASTER%との身体無しでは生きられない身体になってしまったようだ。
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K101_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:恋人
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「んっ……%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%……%CALLNAME:MASTER%……」
				CASE 1
					PRINTFORMW 「んっ……%UNICODE(0x2764)% ひぁ……%UNICODE(0x2764)% ふ、ぁ%UNICODE(0x2764)%」
				CASE 2
					PRINTFORMW 「%CALLNAME:MASTER%っ%UNICODE(0x2764)% %CALLNAME:MASTER%っ%UNICODE(0x2764)% %CALLNAME:MASTER%っ%UNICODE(0x2764)%…………」
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「あっ%UNICODE(0x2764)%%UNICODE(0x2764)%……んんっ……%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
				CASE 1
					PRINTFORMW 「んんっ%UNICODE(0x2764)%%UNICODE(0x2764)%……あんっ%UNICODE(0x2764)% んんっ%UNICODE(0x2764)%%UNICODE(0x2764)%」
				CASE 2
					PRINTFORMW 「んぁ%UNICODE(0x2764)% ………っ%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
				ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「んんっ%UNICODE(0x2764)%%UNICODE(0x2764)%……ふぅ…」
				CASE 1
					PRINTFORMW 「あっ%UNICODE(0x2764)% ふ、ぁ%UNICODE(0x2764)%」
				CASE 2
					PRINTFORMW 「んぅ……%UNICODE(0x2764)% あんっ%UNICODE(0x2764)%」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「あっ%UNICODE(0x2764)%……ふぅ……」
				CASE 1
					PRINTFORMW 「んん………んっ%UNICODE(0x2764)%」
				CASE 2
					PRINTFORMW 「ふぁ………っ%UNICODE(0x2764)%…………んんっ」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「んっ……%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%……%CALLNAME:MASTER%……」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あっ%UNICODE(0x2764)%%UNICODE(0x2764)%……んんっ……%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「んんっ%UNICODE(0x2764)%%UNICODE(0x2764)%……ふぅ…」
		ELSE
			PRINTFORMW 「あっ%UNICODE(0x2764)%……ふぅ……」
		ENDIF
		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_K101_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:318 == 1
			PRINTFORMW 「……嫌よ」
		ELSEIF TALENT:恋人
			PRINTFORMW 「今はそういう気分じゃないの。また今度誘ってくれない？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……お風呂？」
			PRINTFORMW そう言うと朱鷺子は少し考えた後
			PRINTFORMW 「……そういうのちょっと」
			PRINTFORMW 断ることにしたようだ
		ELSEIF TALENT:思慕
			PRINTFORMW 「……何考えてるの？」
			PRINTFORMW 朱鷺子はそう言って拒否した。
		ELSE
			PRINTFORMW 「え…嫌よ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「お風呂？」
			PRINTFORMW 「もちろんいいわよ。早く行きましょう」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「お風呂？別にいいわよ」
		ELSEIF TALENT:思慕
			PRINTFORMW 「仕方ないわね。私も丁度行きたかったし」
		ELSE
			PRINTFORMW 「仕方ないわね。行きましょう」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K101_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「……？これは……」
		PRINTFORMW 朱鷺子は胎内の命の鼓動を感じると優しく腹部を撫でた。
		PRINTFORMW 「%CALLNAME:MASTER%……嬉しい……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「……？」
		PRINTFORMW 朱鷺子は胎内の命の鼓動を感じると優しく腹部を撫でた。
		PRINTFORMW 「もう、責任はとってよね……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「……まさか」
		PRINTFORMW 朱鷺子は胎内の命の鼓動を感じると優しく腹部を撫でた。
		PRINTFORMW 「%CALLNAME:MASTER%、やってくれたわね。……でもそれを許したのは私だし……うーん」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「…………？」
		PRINTFORMW 朱鷺子は下腹部の違和感に首をかしげている。
		PRINTFORMW 「どうしたのかしら？私の身体」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K101_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「はぁ…はぁ…はぁ…」
		PRINTFORMW 朱鷺子は消耗しながらも出産した子供の頭を撫でた。
		PRINTFORMW 「私と%CALLNAME:MASTER%の子供……大切に育てるからね」
		PRINTFORMW 自分の子を見つめる少女の目は母親の眼差しだった。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「んん……はぁ…はぁ」
		PRINTFORMW 朱鷺子は消耗しながらも出産した子供の頭を撫でた。
		PRINTFORMW 「元気に育ってね」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「はぁ…はぁ…はぁ…」
		PRINTFORMW 朱鷺子は消耗しながらも出産した子供の頭を撫でた。
		PRINTFORMW 「もう…%CALLNAME:MASTER%は……でもちゃんと育てていかないとね」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「んん……はぁ…はぁ…はぁ…」
		PRINTFORMW 朱鷺子は消耗しながらも出産した子供の頭を撫でた。
		PRINTFORMW 「……この子は誰との子供なの……全く分からない。うう……」
		PRINTFORMW 朱鷺子は虚ろな目で空を見つめている。
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K101_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
		IF TALENT:恋人
			IF RAND:3 == 0
				PRINTFORMW 「%CALLNAME:MASTER%っ%UNICODE(0x2764)%…%CALLNAME:MASTER%っ%UNICODE(0x2764)%………え？」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「んんっ%UNICODE(0x2764)%……いいっ%UNICODE(0x2764)%………もっと…%CALLNAME:MASTER%っ%UNICODE(0x2764)%」
				PRINTFORMW 「……………えっ、なんでここに……？」
			ELSE
				PRINTFORMW 「んっ%UNICODE(0x2764)%……気持ちいいっ%UNICODE(0x2764)%………え？」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「んっ%UNICODE(0x2764)%…はぁ、はぁ、そこ…気持ちいい………え？」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「あっ%UNICODE(0x2764)%………んんんっ%UNICODE(0x2764)%」
				PRINTFORMW 「………………えっ？」
			ELSE
				PRINTFORMW 「あんっ%UNICODE(0x2764)%……止まらなっ%UNICODE(0x2764)%………んんんっ%UNICODE(0x2764)%…………だ、誰！？」
			ENDIF
			RETURN 1
		ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF CFLAG:318 == 1
				PRINTFORMW 「何なのよ！……もうっ！！！」
			ELSEIF TALENT:恋人
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「な、何もしないならそもそも覗くな！！！」
					PRINTFORMW （ううう……私何言ってるのよ、もう！）
				CASE 1
					PRINTFORMW 「ちょ、はぁ！？ 待ちなさい！！！」
				CASE 0
					PRINTFORMW 「ちょ、逃げるなッ！！！」
					PRINTFORMW 追いかけようとした朱鷺子だったが、自分の恰好を見てすぐさま部屋に戻った
			ENDSELECT
			ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「た、たまたまよ！いつもそんな事している訳じゃ無いのよ！」
					PRINTFORMW 朱鷺子はよくわからない言い訳をしている。
				CASE 1
					PRINTFORMW 「ちょっと待って……！ そんな事してた訳じゃないの……！」
				CASE 0
					PRINTFORMW 「ちょ、待ってッ！！！」
					PRINTFORMW 追いかけようとした朱鷺子だったが、自分の恰好を見てすぐさま部屋に戻った
			ENDSELECT
			ELSEIF TALENT:思慕
				PRINTFORMW 「み、見られた……」
				PRINTFORMW 朱鷺子は手で顔を隠してへたり込んでいる。
			ELSE
				PRINTFORMW 「そ、その……このことは忘れて！！！」
				PRINTFORMW 朱鷺子から無茶なお願いをされてしまった
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF CFLAG:318 == 1
				PRINTFORMW 「ば、馬鹿じゃないの……！？」
				PRINTFORMW そうは言っているものの結局、昂った心は抑えられずに朱鷺子はそのまま続けてしまった。
			ELSEIF TALENT:恋人
				PRINTFORMW 「何考えてるのよ……もう！」
				PRINTFORMW 朱鷺子の口調は確かに怒っているのだが、下半身は先ほどよりも大きくぐちゅぐちゅと水音を出している。
			ELSEIF TALENT:恋慕
				PRINTFORMW 「そ、そんなに見たいの……？」
			ELSEIF TALENT:思慕
				PRINTFORMW 「んんっ%UNICODE(0x2764)%……どうしてこんなことに…」
			ELSE
				PRINTFORMW （なんでこんなことに……？）
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
		SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「馬鹿！早く出ていけ！！！」
					PRINTFORMW 突然出現した弾幕が%CALLNAME:MASTER%を襲った。全力で走って、何とか逃げ切る事が出来た。
				CASE 1
					PRINTFORMW 「で、で、で、出てけええええッ！！！」
					PRINTFORMW 悲鳴と共に弾幕が飛んできた
				CASE 0
					PRINTFORMW 「ううう………よくも………」
					PRINTFORMW 朱鷺子は真っ赤な顔で涙ぐんでいる。早く出ないと自分の身が危ない
			ENDSELECT
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			IF CFLAG:318 == 1
				PRINTFORMW 「この下半身脳みそめ！」
				PRINTFORMW 朱鷺子はそう罵りながらも%CALLNAME:MASTER%に身体を任せている。
			;処女
			ELSEIF TCVAR:破瓜 == 1
				PRINTFORMW 「こんなのが初めてだなんて……」
			ELSEIF TALENT:恋人
				PRINTFORMW 「…もういっそのこと……滅茶苦茶にして……%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「……もういいわ。ヤるだけヤりましょう」
			ELSEIF TALENT:思慕
				PRINTFORMW 「本当に言わないって約束よ！」
			ELSE
				PRINTFORMW 「絶対に他の人に言っちゃ駄目よ！」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF CFLAG:318 == 1
				PRINTFORMW 「……うう…流れでやってしまった……」
			ELSEIF TALENT:恋人
				SELECTCASE RAND:2
					CASE 0
						PRINTFORMW 「はぁ…はぁ…もう、私から言い出したとは言え、いくら何でもやりすぎよ！」
						PRINTFORMW 「……クセになっちゃうじゃない%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
					CASE 1
						PRINTFORMW 「はひーっ%UNICODE(0x2764)% はひーっ%UNICODE(0x2764)% ………%UNICODE(0x2764)%」
						PRINTFORMW 朱鷺子は時々身体を痙攣させながらぐったりしている
				ENDSELECT
			ELSEIF TALENT:恋慕
				PRINTFORMW 「良かったけど、これっきりよ！こんな形でするのは」
			ELSEIF TALENT:思慕
				PRINTFORMW 「もう……やりたい放題なんだから……」
			ELSE
				PRINTFORMW 「……悪くは無かったわ……」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF CFLAG:318 == 1
				PRINTFORMW 「……逆に関心するわ」
			ELSEIF TALENT:恋人
				PRINTFORMW 「完全にスイッチ入っちゃったじゃない……%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
				PRINTFORMW 「%CALLNAME:MASTER%……もっと、私を滅茶苦茶にして…%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
				PRINTFORMW 朱鷺子は目をハートにして全てをさらけ出して誘っている。
				PRINTFORMW どうやら今日は夜が長くなりそうだ。
			ELSEIF TALENT:恋慕
				PRINTFORMW 「……まだ物足りないみたいね」
			ELSEIF TALENT:思慕
				PRINTFORMW 「……まだ続けるの？」
			ELSE
				PRINTFORMW 「……え？に、二回戦？」
			ENDIF
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K101_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:恋人
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「%CALLNAME:MASTER%！今日付き合ってもらってもいい？」
				CASE 1
					PRINTFORML 「今日って時間空いてる？」
					PRINTFORMW 「あれば一緒に何処か行かない？」
				CASE 0
					PRINTFORMW 「%CALLNAME:MASTER%～、今ヒマ～？」
					PRINTFORMW 「良ければデートしましょ！ デート！」
					PRINTFORMDW 朱鷺子は%CALLNAME:MASTER%の袖をぐいぐい引っ張っている
			ENDSELECT
			ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「%CALLNAME:MASTER%…その…今日一緒に何処か行かない？」
				CASE 1
					PRINTFORML 「ええっと……その、今日デートとか……良いかしら？」
				CASE 0
					PRINTFORMW 「%CALLNAME:MASTER%……ええっと時間空いてる？」
					PRINTFORMW 「一緒に何処か歩いてみない？」
			ENDSELECT
			ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「%CALLNAME:MASTER%、えーと…今日、暇？」
				CASE 1
					PRINTFORML 「うーん暇ねぇ……あっそうだ！」
					PRINTFORMW 「一緒に散歩とか行かない？ %CALLNAME:MASTER%」
				CASE 0
					PRINTFORMW 「一緒に何処か歩いてみない？」
			ENDSELECT
			ELSE
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「その…えーと…今日開いてる？」
				CASE 1
					PRINTFORML 「うーん暇ねぇ……どこか歩かない？」
				CASE 0
					PRINTFORMW 「どっか行かない？」
			ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「何処に行く？行きたい場所があったら言って」
					PRINTFORMW 朱鷺子が腕に抱き着きながら言った。
				CASE 1
					PRINTFORML 「やったー！ どこ行く？ どこ行く？」
					PRINTFORMW 朱鷺子は笑顔を弾けさせた
				CASE 0
					PRINTFORMW 「じゃあどこ行きたいか決めて良いわよ%CALLNAME:MASTER%！」
			ENDSELECT
			ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「じゃあ、行くわよ！」
				CASE 1
					PRINTFORMW 「えーっと……じゃあどこ行こうかな………」
				CASE 0
					PRINTFORMW 「えっ、本当？ ありがとう！」
			ENDSELECT
			ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「あっ、本当に付き合ってくれるの？」
					PRINTFORMW 「%CALLNAME:MASTER%って案外ヒマなのね～」
					PRINTFORMDW 朱鷺子はいたずらっぽく笑った
				CASE 1
					PRINTFORMW 「おっ！ 付き合ってくれるのね！」
				CASE 0
					PRINTFORMW 「一緒に行ってくれるのね、ラッキー♪」
			ENDSELECT
			ELSE
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「あっ、本当に付き合ってくれるの？」
				CASE 1
					PRINTFORMW 「何処に行く？」
				CASE 0
					PRINTFORMW 「じゃあ今日はよろしくね～」
			ENDSELECT

			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「あっそうなの……」
					PRINTFORMDW %CALLNAME:MASTER%は謝りながら落ち込んでいる朱鷺子の頭を優しく撫でた
					PRINTFORMW 「えへへ、優しいのね」
				CASE 1
					PRINTFORMW 「む～、まぁ無理なら仕方ないわね……」
				CASE 0
					PRINTFORMW 「仕方ないわね……じゃあ時間がある日に誘ってね」
			ENDSELECT
			ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「あっ、そうなの……」
					PRINTFORMDW %CALLNAME:MASTER%は謝りながら落ち込んでいる朱鷺子の頭を優しく撫でた
				CASE 1
					PRINTFORMW 「無理なら仕方ないわね……」
				CASE 0
					PRINTFORMW 「残念…またいつか誘うわ」
			ENDSELECT
			ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「む～、なら一人で散歩するしかないか……」
				CASE 1
					PRINTFORMW 「う～ん、なら仕方ないわね……」
				CASE 0
					PRINTFORMW 「あらそうなの？」
					PRINTFORMW 「案外暇じゃないのね～」
			ENDSELECT
			ELSE
				SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「む～、なら一人で散歩するしかないか……」
				CASE 1
					PRINTFORMW 「それなら仕方ないわね……」
				CASE 0
					PRINTFORMW 「……忙しいなら仕方ないわね」
			ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「私の部屋とか来ない？」
				CASE 1
					PRINTFORMW 「あっ、そうだ！ 私の部屋来る？」
				CASE 0
					PRINTFORMW 「私の部屋に来ない？」
			ENDSELECT
			ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「えーと…今日、暇？私の部屋来ない？」
				CASE 1
					PRINTFORMW 「その……私の部屋とか来て欲しいなって……」
				CASE 0
					PRINTFORMW 「時間があればで良いんだけど、私の部屋来て欲しいなぁ……って」
			ENDSELECT
			ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「その……私の部屋に来てくれると嬉しいのだけれど」
				CASE 1
					PRINTFORMW 「私の部屋で本読まない？」
				CASE 0
					PRINTFORMW 「そうだ！ 時間あればで良いんだけど、私の部屋来ない？」
			ENDSELECT
			ELSE
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「私の部屋で本とか読まない？」
				CASE 1
					PRINTFORMW 「私の部屋来る？」
				CASE 0
					PRINTFORMW 「私の部屋来たい？」
			ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「じゃあ、お茶淹れて来るわね～」
				CASE 1
					PRINTFORMW 「ゆっくりくつろいでいってね！」
					PRINTFORMW 「あっ、でも下着とか盗まないでよね」
				CASE 0
					PRINTFORMW 「勝手にのんびりしていっていいわよ」
			ENDSELECT
			ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「何だか少し緊張と言うか恥ずかしいわね……」
					PRINTFORMW 「いやまぁ全然良いんだけどね」
				CASE 1
					PRINTFORMW 「本とか沢山あるわよ！ 意味が分からないのも結構あるけど……」
				CASE 0
					PRINTFORMW 「あっ、好きな場所に座って良いわよ」
			ENDSELECT
			ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「くつろいでいってね」
				CASE 1
					PRINTFORMW 「本とか沢山あるわよ！ 意味が分からないのも結構あるけど……」
				CASE 0
					PRINTFORMW 「あっ、ここに座ってね」
			ENDSELECT
			ELSE
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「ゆっくりしていってね」
				CASE 1
					PRINTFORMW 「本とか沢山あるわよ！ 意味が分からないのも結構あるけど……」
				CASE 0
					PRINTFORMW 「あっ、ここに座ってね」
			ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
		IF TALENT:恋人
			SELECTCASE RAND:3
			CASE 2
				PRINTFORMW 「あっそうなの……」
				PRINTFORMDW %CALLNAME:MASTER%は謝りながら落ち込んでいる朱鷺子の頭を優しく撫でた
				PRINTFORMW 「えへへ、優しいのね」
			CASE 1
				PRINTFORMW 「む～、まぁ無理なら仕方ないわね……」
			CASE 0
				PRINTFORMW 「じゃあ、また次回、部屋に来てね」
			ENDSELECT
			ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「あっ、そうなの……」
					PRINTFORMDW %CALLNAME:MASTER%は謝りながら落ち込んでいる朱鷺子の頭を優しく撫でた
				CASE 1
					PRINTFORMW 「無理なら仕方ないわね……」
				CASE 0
					PRINTFORMW 「残念…またいつか誘うわ」
			ENDSELECT
			ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「……少し寂しいけど仕方ないわね……」
				CASE 1
					PRINTFORMW 「う～ん、なら仕方ないわね……」
				CASE 0
					PRINTFORMW 「あらそうなの？」
					PRINTFORMW 「案外暇じゃないのね～」
			ENDSELECT
			ELSE
			SELECTCASE RAND:3
				CASE 2
					PRINTFORMW 「……今度また、来てね」
				CASE 1
					PRINTFORMW 「それなら仕方ないわね……」
				CASE 0
					PRINTFORMW 「……忙しいなら仕方ないわね」
			ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K101_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
			PRINTFORMW %CALLNAME:MASTER%は朱鷺子の服を脱がしていく……
			PRINTFORMW 時間が止まった彼女は全裸にされてもその小振りの胸も秘所も隠すことは出来ない
			;通常
			ELSE
			IF RAND:3 == 0
					PRINTFORMW 「……これでいい？」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「ううう…やっぱり恥ずかしいわ…」
				ELSE
					PRINTFORMW 「ちょっと……あんまりジロジロ見ないでくれる……！」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			PRINTFORMW %CALLNAME:MASTER%は朱鷺子を下着姿にした
			PRINTFORMW 抵抗の出来ない彼女の下着姿をじっくりと視姦した
			;通常
			ELSE
			IF RAND:3 == 0
					PRINTFORMW 「ど、どう！？」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「やっぱり恥ずかしい……」
				ELSE
					PRINTFORMW 「こういうのは…恥ずかしいわ……」
			    ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			IF RAND:3 == 0
					PRINTFORMW 「不思議な感覚ね……」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「なんだろう……逆に全部脱ぐよりも恥ずかしい気が……」
				ELSE
					PRINTFORMW 「半分だけ……？」
				ENDIF
			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
					IF RAND:3 == 0
						PRINTFORMW 「いいわよ。でもその代わり交換してくれる？」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「……交換なら……え？ナニに使うのか？ば、馬鹿！ななな、何でもいいでしょ！」
					ELSE
						PRINTFORMW 「替えの下着に%CALLNAME:MASTER%のパンツをくれない？」
					ENDIF
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					IF RAND:3 == 0
						PRINTFORMW 「いいわよ。はい、どうぞ」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「これでいいかしら？」
					ELSE
						PRINTFORMW 「ナニに使うか分からないけど、いいわよ」
					ENDIF
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					IF RAND:3 == 0
						PRINTFORMW 「何に使うの……？」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「ええっと……うーん……まぁ、いいか」
					ELSE
						PRINTFORMW 「……変なことには使わないでよ」
					ENDIF
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					IF RAND:3 == 0
						PRINTFORMW 「へ、変態！変態！変態！何考えてるのよ！」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「駄目に決まってるでしょ！？」
					ELSE
						PRINTFORMW 「うわぁ……」
					ENDIF
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;怒り口上
;==================================================
@M_KOJO_EVENT_K101_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの度胸で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF RAND:3 == 0
			PRINTFORMW 「もう許さないわ！話しかけないで！」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「やめて！」
		ELSE
			PRINTFORMW 「そういうのは……嫌いよ！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[臆病]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORMW 「ちょっと疲れたわ…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORMW 「ふぅ…スッキリしたわ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORMW 「もう…仕方ないわね」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORMW 「壊れるまでしてあげるわ…」
		PRINTFORMW 朱鷺子は目をハートにしている。最早理性を失った発情期の獣のようだ。
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_EVENT_K101_31(ARG,ARG:1)
;口上主はTARGET
;ARGは会ってない日数
;何日以上会ってなかったら愚痴を言うとかできます
;CFLAG:オナバレで分岐入れてもよさそう
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;今日会っていない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG
		IF TALENT:恋人 || TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORML 「明日は会えるかな……」
				PRINTFORML 朱鷺子は一人でそう呟いた。
			ELSEIF RAND:2 == 0
				PRINTFORML 「%CALLNAME:MASTER%……今日は会えなかったな……」
				PRINTFORML 朱鷺子は一人でそう呟いた。
			ELSE
				PRINTFORML 「何処にいたんだろう…？」
				PRINTFORML 朱鷺子は一人でそう呟いた。
			ENDIF
		ENDIF
		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_K101_ONABARE_1(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_KX

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

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

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

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

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

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

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

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

repo_name: akadiya/eratw

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

license: unknown