code:
;-------------------------------------------------
;eraTW4.791用 庭渡久侘歌口上
;-------------------------------------------------
;※コンセプト
;可愛い系神様でカリスマが無いことにちょっと困ってる久侘歌口上
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

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

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

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

;RESULTS = _TEST_

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

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

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

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

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

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K129
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
	PRINTFORMW 「あら？見ない顔ですね」
	PRINTFORMW 金髪に赤色のメッシュの入った髪に背中に大きな羽の生えた女の子が%CALLNAME:MASTER%を呼び止めた。
	PRINTFORMW 「むむむ……こんなところで何をしているのですか？」
	PRINTFORMW それとなく彼女は近寄ってきて、%CALLNAME:MASTER%に詰問してくる。
	PRINTFORMW 「……まあ、いいでしょう、私は庭渡久侘歌、彼岸の関所を見張っています、以後お見知りおきを」
	PRINTFORMW 「普段は妖怪の山に住んでいるのですが……関所などで仕事をしておりますから、」
	PRINTFORMW 「何かあればそのあたりで探してくださればお力になれると思います！」
	PRINTFORMW 「では、今日もいい一日をお過ごしくださいませ！」
	PRINTFORMW そう言って彼女はそそくさと立ち去って行った。
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K129_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 久侘歌はそう言いながら%CALLNAME:MASTER%の前を歩いている。
	PRINTFORMW 「それで、ですね……私……%CALLNAME:MASTER%さんに―――」
	PRINTFORMW おずおずと切り出した久侘歌は%CALLNAME:MASTER%の方に振り返り少し背伸びをして唇を奪った。
	PRINTFORMW 「んんっ……今日の……お礼です……本当に、私の唇なんて、何の価値も無いかもしれませんけど」
	PRINTFORMW 「これが、私の精一杯で……それじゃあ、今日はお別れです」
	PRINTFORMW 彼女はそう言って別れを告げた。
	PRINTFORMW （今度は、キスじゃなくて……）
	PRINTFORMW 胸元に手を当てて彼女は少しだけ勇気を手にしたようだ。
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K129_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
		;初回
		IF FIRSTTIME(1129)
			PRINTFORMW 「%CALLNAME:MASTER%、私のお話聞いてもらえませんか？」
			PRINTFORMW 久侘歌はいつになく緊張した口調で話しかけてきた。
			PRINTFORMW 「私……今、幸せなんです！」
			PRINTFORMW 「%CALLNAME:MASTER%と一緒に過ごしている毎日が、とても楽しいんです！」
			PRINTFORMW 「だから……だからもう一つだけお願いを聞いてもらえませんか……？」
			PRINTFORMW 彼女は胸をぎゅっと抑えながら言葉を振り絞った。
			PRINTFORMW 「私、私は、私を―――」
			PRINTFORMW
			PRINTFORMW 「―――%CALLNAME:MASTER%の恋人にしてもらえませんか」
			PRINTFORMW
			PRINTFORMW 「私、%CALLNAME:MASTER%と、これからも……」
			PRINTFORMW 「これからも一緒に色んな所に行って、デートしてそれから……！」
			PRINTFORMW そう言いながら顔を赤らめて俯いた後、顔を上げると
			PRINTFORMW 「私では、駄目でしょうか？私も%CALLNAME:MASTER%を幸せにしますから！約束します！」
			PRINTFORMW 「ですから……私と、恋人になってください！」
			PRINTFORMW %CALLNAME:MASTER%の胸元に必死に縋り付いてきた。
		;二回目の告白
		ELSE
			PRINTFORMW 「%CALLNAME:MASTER%、もう一度、言います」
			PRINTFORMW 久侘歌は胸に手を当てて覚悟を決めたように言葉を紡いできた。
			PRINTFORMW 「大好きです、愛してます、だから……付き合ってくれませんか？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「……本当に、私と恋人になってくれるのですか……？」
		PRINTFORMW 久侘歌はそう言いながら、%CALLNAME:MASTER%に抱きついてくる。
		PRINTFORMW 「はい！久侘歌は世界一の幸せ者で御座います！」
		PRINTFORMW そして彼女は%CALLNAME:MASTER%の唇に自分の唇を重ね合わせてきた……
		PRINTFORMW 「これは……幸せのお裾分けです%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「……そうですか……迷惑ですよね……」
		PRINTFORMW 久侘歌は悲しそうに俯いた。
		PRINTFORMW 「ごめんなさい……でも……」
		PRINTFORMW 言葉は繋がらず、彼女は%CALLNAME:MASTER%から離れていった。
		PRINTFORMW （私なんて……釣り合わないのかな……）
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K129_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:恋人
			PRINTFORMW 「今日はもうお開きで御座いますね……」
			PRINTFORMW 「明日また……デートしてください……約束ですよ？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「また……デートしてくださいませ」
		ELSEIF TALENT:思慕
			PRINTFORMW 「今日は本当に楽しい日でした！」
		ELSE
			PRINTFORMW 「今日はありがとうございました、またデートしましょうね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K129_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;今日会ってない。
	IF !TCVAR:129:今日会ったか
		;-------------------------------------------------
		;小分岐
		;-------------------------------------------------
		;MASTERが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 1
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:129:今日会ったか
				PRINTFORMW 「こんにちは、何か御用でしょうか？」
			ELSE
				;正月、バレンタイン、ハロウィン、クリスマスの場合
				IF (DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1) || (DAY:2 == 4 && DAY:3 == 14 && CFLAG:2 >= 1000) || (DAY:2 == 3 && DAY:3 == 30) || (DAY:2 == 4 && DAY:3 == 25)
					CALL SPECIALDAY_EVENT_K129
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「……何の用ですか！？来ないでください！」
				;屋外かつ満月
				ELSEIF NAME_MOON(DAY:3) == "十五夜 -中秋の名月- " && OPENPLACE(CFLAG:MASTER:現在位置) >= 2
					PRINTFORMW 「今日はとても、月が奇麗ですね……」
					IF TALENT:恋人
						PRINTFORMW 「%CALLNAME:MASTER%さん、私とこれからも一緒にいてくださいね…………約束ですよ？」
					ELSEIF TALENT:恋慕
						PRINTFORMW 「……今のは聞かなかったことにしてください！絶対ですからね！」
					ENDIF
				;台風
				ELSEIF FLAG:異常気象 == 9
					PRINTFORMW 「%CALLNAME:MASTER%さん！今日は危ないですから……部屋で大人しくしましょう！」
					IF TALENT:恋人
						PRINTFORMW 「……折角ですし……二人っきりで……ね%UNICODE(0x2665) *1%」
					ENDIF
				;猛吹雪
				ELSEIF FLAG:異常気象 == 10
					PRINTFORMW 「%CALLNAME:MASTER%さん！今日は吹雪いていますから……部屋で暖かくしましょう！」
					IF TALENT:恋人
						PRINTFORMW 「私が暖めてあげますから、安心してくださいね%UNICODE(0x2665) *1%」
					ELSEIF TALENT:恋慕
						PRINTFORMW 「自慢ではありませんが私、暖めるのは得意なんです！」
						PRINTFORMW 「だから……その……寒くなったら近くに来てくださいね……♪」
					ENDIF
				ELSE
					;早朝
					IF TIME:2 == 1 || TIME:2 == 2
						PRINTFORMW 「おはようございます！」
					;昼
					ELSEIF TIME:2 == 3 || TIME:2 == 4
						PRINTFORMW 「こんにちは！」
					;夕方・夜
					ELSEIF TIME:2 == 5 || TIME:2 == 6
						PRINTFORMW 「こんばんは！」
					ENDIF
					IF TALENT:恋人
						PRINTFORMW 「%CALLNAME:MASTER%さん、今日も素敵な一日にしましょうね♪」
						PRINTFORMW 久侘歌は小さく手を振りながら%CALLNAME:MASTER%に挨拶をした。
					ELSEIF TALENT:恋慕
						PRINTFORMW 「%CALLNAME:MASTER%さん、今日もいっぱい幸せな一日になるといいですね♪」
						PRINTFORMW 久侘歌は小さく手を振りながら%CALLNAME:MASTER%に挨拶をした。
					ELSEIF TALENT:思慕
						PRINTFORMW 「%CALLNAME:MASTER%さん、こんなところに何か御用ですか？」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%さん、今日も一日頑張りましょう！」
					ENDIF
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 2
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:129:今日会ったか
				PRINTFORMW 「こんにちは、何か御用でしょうか？」
			ELSE
				;正月、バレンタイン、ハロウィン、クリスマスの場合
				IF (DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1) || (DAY:2 == 4 && DAY:3 == 14 && CFLAG:2 >= 1000) || (DAY:2 == 3 && DAY:3 == 30) || (DAY:2 == 4 && DAY:3 == 25)
					CALL SPECIALDAY_EVENT_K129
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「……こんなところにいたのですか、最悪ですね」
				;屋外かつ満月
				ELSEIF NAME_MOON(DAY:3) == "十五夜 -中秋の名月- " && OPENPLACE(CFLAG:MASTER:現在位置) >= 2
					PRINTFORMW 「今日はとても、月が奇麗ですね……」
					IF TALENT:恋人
						PRINTFORMW 「%CALLNAME:MASTER%さん、私とこれからも一緒にいてください……約束ですよ？」
					ELSEIF TALENT:恋慕
						PRINTFORMW 「……今のは聞かなかったことにしてください！絶対ですからね！」
					ENDIF
				;台風
				ELSEIF FLAG:異常気象 == 9
					PRINTFORMW 「%CALLNAME:MASTER%さん！今日は危ないですから……部屋で大人しくしましょう！」
					IF TALENT:恋人
						PRINTFORMW 「……折角ですし……二人っきりで……ね%UNICODE(0x2665) *1%」
					ENDIF
				;猛吹雪
				ELSEIF FLAG:異常気象 == 10
					PRINTFORMW 「%CALLNAME:MASTER%さん！今日は吹雪いていますから……部屋で暖かくしましょう！」
					IF TALENT:恋人
						PRINTFORMW 「私が暖めてあげますから、安心してくださいね%UNICODE(0x2665) *1%」
					ELSEIF TALENT:恋慕
						PRINTFORMW 「自慢ではありませんが私、暖めるのは得意なんです！」
						PRINTFORMW 「だから……その……寒くなったら近くに来てくださいね……♪」
					ENDIF
				ELSE
					;早朝
					IF TIME:2 == 1 || TIME:2 == 2
						PRINTFORMW 「おはようございます！」
					;昼
					ELSEIF TIME:2 == 3 || TIME:2 == 4
						PRINTFORMW 「こんにちは！」
					;夕方・夜
					ELSEIF TIME:2 == 5 || TIME:2 == 6
						PRINTFORMW 「こんばんは！」
					ENDIF
					IF TALENT:恋人
						PRINTFORMW 「%CALLNAME:MASTER%さん、今日も素敵な一日にしましょうね♪」
						PRINTFORMW 久侘歌は小さく手を振りながら%CALLNAME:MASTER%に挨拶をした。
					ELSEIF TALENT:恋慕
						PRINTFORMW 「%CALLNAME:MASTER%さん、今日もいっぱい幸せな一日になるといいですね♪」
						PRINTFORMW 久侘歌は小さく手を振りながら%CALLNAME:MASTER%に挨拶をした。
					ELSEIF TALENT:思慕
						PRINTFORMW 「%CALLNAME:MASTER%さん、今日もいい日になるといいですね♪」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%さん、今日も一日頑張りましょう！」
					ENDIF
				ENDIF
			ENDIF
			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 「あっ%CALLNAME:MASTER%さん、入っていらしたのですね？」
			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 「あっ%CALLNAME:MASTER%さん、できれば一人にしていただきたいのですが……」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;外出先で遭遇した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 6
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:129:今日会ったか
				PRINTFORMW 「こんにちは、何か御用でしょうか？」
			ELSE
				;正月、バレンタイン、ハロウィン、クリスマスの場合
				IF (DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1) || (DAY:2 == 4 && DAY:3 == 14 && CFLAG:2 >= 1000) || (DAY:2 == 3 && DAY:3 == 30) || (DAY:2 == 4 && DAY:3 == 25)
					CALL SPECIALDAY_EVENT_K129
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「……何の用ですか！？来ないでください！」
				;屋外かつ満月
				ELSEIF NAME_MOON(DAY:3) == "十五夜 -中秋の名月- " && OPENPLACE(CFLAG:MASTER:現在位置) >= 2
					PRINTFORMW 「今日はとても、月が奇麗ですね……」
					IF TALENT:恋人
						PRINTFORMW 「%CALLNAME:MASTER%さん、私とこれからも一緒にいてくださいね…………約束ですよ？」
					ELSEIF TALENT:恋慕
						PRINTFORMW 「……今のは聞かなかったことにしてください！絶対ですからね！」
					ENDIF
				ELSE
					;早朝
					IF TIME:2 == 1 || TIME:2 == 2
						PRINTFORMW 「おはようございます！」
					;昼
					ELSEIF TIME:2 == 3 || TIME:2 == 4
						PRINTFORMW 「こんにちは！」
					;夕方・夜
					ELSEIF TIME:2 == 5 || TIME:2 == 6
						PRINTFORMW 「こんばんは！」
					ENDIF
					IF TALENT:恋人
						PRINTFORMW 「%CALLNAME:MASTER%さん、今日も素敵な一日にしましょうね♪」
						PRINTFORMW 久侘歌は小さく手を振りながら%CALLNAME:MASTER%に挨拶をした。
					ELSEIF TALENT:恋慕
						PRINTFORMW 「%CALLNAME:MASTER%さん、今日もいっぱい幸せな一日になるといいですね♪」
						PRINTFORMW 久侘歌は小さく手を振りながら%CALLNAME:MASTER%に挨拶をした。
					ELSEIF TALENT:思慕
						PRINTFORMW 「%CALLNAME:MASTER%さん、こんなところに何か御用ですか？」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%さん、今日も一日頑張りましょう！」
					ENDIF
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとデート中に遭遇した
		;ARG:1にデート相手
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 7
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:129:今日会ったか
				PRINTFORMW 「こんにちは、何か御用でしょうか？」
			ELSE
				IF TALENT:恋人
					PRINTFORMW 「！？」
					PRINTFORMW 「……浮気……ですか……」
					PRINTFORMW 久侘歌はそう言って俯いて泣きそうになっている。
				ELSEIF TALENT:恋慕
					PRINTFORMW 「……！」
					PRINTFORMW 久侘歌はこちらに気づくと近寄ってきた。
					PRINTFORMW 「こ、こんにちは、%CALLNAME:MASTER%さん……」
					PRINTFORMW （何だろう……このもやもやする感じ……）
				ELSE
					PRINTFORMW 「あ、%CALLNAME:MASTER%さん……お邪魔でしたでしょうか……？」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;特別な日イベント用関数
;==================================================
;-------------------------------------------------
@SPECIALDAY_EVENT_K129
;-------------------------------------------------
	;謹賀新年
	IF DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1
		IF TALENT:恋人
			PRINTFORMW 「明けましておめでとう御座います、%CALLNAME:MASTER%さん」
			PRINTFORMW 久侘歌はそう言って新年の挨拶をしてきた。
			PRINTFORMW 「今年も幸せ一杯の年になるといいですね♪」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「明けましておめでとう御座います、%CALLNAME:MASTER%さん！」
			PRINTFORMW 久侘歌は新年の挨拶をしてきた。
			PRINTFORMW 「今年もいい年になりますように！」
		ELSEIF TALENT:思慕
			PRINTFORMW 「明けましておめでとう御座います！」
			PRINTFORMW 久侘歌は新年の挨拶をしてきた。
			PRINTFORMW 「今年もいい年になるといいですね！」
		ELSE
			PRINTFORMW 「明けましておめでとう御座います！今年もよろしくお願いいたします！」
		ENDIF
	;バレンタインデー
	ELSEIF DAY:2 == 4 && DAY:3 == 14 && CFLAG:2 >= 1000
		IF TALENT:恋人
			PRINTFORMW 「%CALLNAME:MASTER%さん、」
			PRINTFORMW 久侘歌はおずおずと%CALLNAME:MASTER%に話しかけてきた
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、あの……これ……」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、これ……」
		ELSEIF CFLAG:2 >= 1000
			PRINTFORMW 「%CALLNAME:MASTER%さん、」
		ENDIF
		SELECTCASE CFLAG:好感度
		CASE 1000 TO 3000
			PRINTFORMW 「はい、チョコレートで御座います！」
			PRINTFORMW 久侘歌はチョコレートを渡してきた。
			PRINTFORMW 「いつもお世話になっているのでそのお礼で御座います！」
		CASE 3001 TO 5000
			PRINTFORMW 久侘歌は%CALLNAME:MASTER%にチョコレートを渡してきた。
			PRINTFORMW 「日ごろの感謝の気持ちです……受け取ってください！」
			PRINTFORMW 少し恥ずかしそうに彼女はそそくさと離れて行った。
		CASE IS > 5000
			IF EXP:愛情経験 >= 100
				PRINTFORMW 「これ、手作りなんです……」
				PRINTFORMW そう言いながら久侘歌はチョコレートを渡してきた。
				PRINTFORMW 「一生懸命頑張って作ったんですけど……上手くできたと思うので食べてください！」
			ELSE
				PRINTFORMW 「はい、チョコレートで御座います♪」
				PRINTFORMW そう言いながら久侘歌はチョコレートを渡してきた。
				PRINTFORMW 「一番おいしいのを選んだので味わってくださいね♪」
			ENDIF
		ENDSELECT
	;ハロウィン
	ELSEIF DAY:2 == 3 && DAY:3 == 30
		IF TALENT:恋人
			PRINTFORMW 「%CALLNAME:MASTER%さん、トリックオアトリート！」
			PRINTFORMW 久侘歌は%CALLNAME:MASTER%に話しかけてくる。
			PRINTFORMW 「ふふふ……悪戯いっぱいしちゃいますよー♪」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「トリック・オア・トリートで御座います♪」
			PRINTFORMW 久侘歌はそう言いながら話しかけてきた。
			PRINTFORMW 「%CALLNAME:MASTER%さん、悪戯しちゃいますよー？だからお菓子くださいな♪」
		ELSEIF TALENT:思慕
			PRINTFORMW 「トリック・オア・トリートで御座います♪」
			PRINTFORMW 久侘歌は%CALLNAME:MASTER%の肩に手を回しながら呟いた。
			PRINTFORMW 「%CALLNAME:MASTER%はお菓子をくれないのでございますか？」
		ELSE
			PRINTFORMW 「トリック・オア・トリートで御座います♪」
			PRINTFORMW 久侘歌はそう言って脅かしてきた。
			PRINTFORMW 「お菓子をくださいませ♪でなければ悪戯しちゃいますよー？」
		ENDIF
	;クリスマス
	ELSEIF DAY:2 == 4 && DAY:3 == 25
		IF TALENT:恋人
			PRINTFORMW 「%CALLNAME:MASTER%さん、メリークリスマス%UNICODE(0x2665) *1%」
			PRINTFORMW 久侘歌は嬉しそうに%CALLNAME:MASTER%に話しかけてくる。
			PRINTFORMW 「今日一日、貴方の時間を頂けないでしょうか……？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、メリークリスマスで御座います♪」
			PRINTFORMW 久侘歌はそう言って話しかけてきた。
			PRINTFORMW 「今日はクリスマスですよ！クリスマス！」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、メリークリスマスで御座います♪」
			PRINTFORMW 久侘歌はそう言って話しかけてきた。
			PRINTFORMW 「……クリスマスだからって私を食べてはいけませんよ！絶対です！」
		ELSE
			PRINTFORMW 「メリークリスマス、%CALLNAME:MASTER%さん」
			PRINTFORMW 久侘歌はそう言って話しかけてきた。
			PRINTFORMW 「今日は楽しいクリスマスですよ！楽しみましょう！」
		ENDIF
	ENDIF
;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K129_2(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		IF TALENT:恋人
			PRINTFORMW 「あ、%CALLNAME:MASTER%さん、おはようございます%UNICODE(0x2665) *1%」
			PRINTFORMW 久侘歌は嬉しそうに%CALLNAME:MASTER%に朝の挨拶をしてきた。
			PRINTFORMW 「ふふっ、可愛い寝顔でしたよ%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、おはようございます♪」
			PRINTFORMW 久侘歌はそう言って朝の挨拶をしてきた。
			PRINTFORMW 「……意外と寝坊助さんなんですね♪」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、おはようございます♪」
			PRINTFORMW 久侘歌はそう言って朝の挨拶をしてきた。
			PRINTFORMW 「朝ごはん作っておきましたから、一緒に食べましょう！」
		ELSE
			PRINTFORMW 「おはようございます、%CALLNAME:MASTER%さん♪」
			PRINTFORMW 久侘歌はそう言って朝の挨拶をしてきた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「あ、%CALLNAME:MASTER%さん、おはようございます%UNICODE(0x2665) *1%」
			PRINTFORMW 久侘歌は嬉しそうに%CALLNAME:MASTER%に朝の挨拶をしてきた。
			PRINTFORMW 「ふふっ、可愛い寝顔でしたよ%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、おはようございます♪」
			PRINTFORMW 久侘歌はそう言って朝の挨拶をしてきた。
			PRINTFORMW 「……意外と寝坊助さんなんですね♪」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、おはようございます♪」
			PRINTFORMW 久侘歌はそう言って朝の挨拶をしてきた。
			PRINTFORMW 「朝ごはん作っておきましたから、一緒に食べましょう！」
		ELSE
			PRINTFORMW 「おはようございます、%CALLNAME:MASTER%さん♪」
			PRINTFORMW 久侘歌はそう言って朝の挨拶をしてきた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORMW 「くぅ……すやぁ……%CALLNAME:MASTER%……好き……」
			PRINTFORMW 久侘歌は眠ったまま何事か呟いている。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「ん……くぅ……%CALLNAME:MASTER%さん……」
			PRINTFORMW 久侘歌は眠ったまま何事か呟いている。
		ELSEIF TALENT:思慕
			PRINTFORMW 「んん……四季様……無理したらダメですよ……」
			PRINTFORMW 久侘歌は眠ったまま何事か呟いている。
		ELSE
			PRINTFORMW 「……食べたらだめですよぉ～～～」
			PRINTFORMW 久侘歌は眠ったまま何事か呟いている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		IF TALENT:恋人
			PRINTFORMW 「ふわぁ～、%CALLNAME:MASTER%さん、おはようございます%UNICODE(0x2665) *1%」
			PRINTFORMW 久侘歌は嬉しそうに%CALLNAME:MASTER%に朝の挨拶をしてきた。
			PRINTFORMW 「起こされる立場っていうのも素敵ですね%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「ふわぁ～%CALLNAME:MASTER%さん、おはようございます♪」
			PRINTFORMW 久侘歌はそう言って朝の挨拶をしてきた。
			PRINTFORMW 「……あんまり見ないでください……寝坊して恥ずかしいんですから……」
		ELSEIF TALENT:思慕
			PRINTFORMW 「ふわぁ～%CALLNAME:MASTER%さん、おはようございます♪」
			PRINTFORMW 久侘歌はそう言って朝の挨拶をしてきた。
			PRINTFORMW 「えへへ……鶏より早起きなんですね……何だか少し恥ずかしいです……」
		ELSE
			PRINTFORMW 「ふわぁ～あっ、おはようございます、%CALLNAME:MASTER%さん♪」
			PRINTFORMW 久侘歌はそう言って朝の挨拶をしてきた。
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORMW 「ん、おやすみなさい、%CALLNAME:MASTER%さん%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、おやすみなさい、また、会いましょう♪」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、おやすみなさい」
		ELSE
			PRINTFORMW 「%CALLNAME:MASTER%さん、これにて御開きにさせていただきます」
		ENDIF
		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
		IF TALENT:恋人
			PRINTFORMW 「くぅ……すやぁ……%CALLNAME:MASTER%……おやすみなさい……」
			PRINTFORMW 久侘歌は眠ったまま何事か呟いている。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「ん……くぅ……%CALLNAME:MASTER%さん……き……」
			PRINTFORMW 久侘歌は眠ったまま何事か呟いている。
		ELSEIF TALENT:思慕
			PRINTFORMW 「んん……四季様……今日も忙しそうです……」
			PRINTFORMW 久侘歌は眠ったまま何事か呟いている。
		ELSE
			PRINTFORMW 「……食べないで……」
			PRINTFORMW 久侘歌は眠ったまま何事か呟いている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「うう……疲れちゃいました……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW 「だ、大丈夫ですか！？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;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%さん%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%さん、おやすみなさい、また、会いましょう♪」
			ELSEIF TALENT:思慕
				PRINTFORMW 「%CALLNAME:MASTER%さん、おやすみなさい」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%さん、これにて御開きにさせていただきます」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:恋人
				PRINTFORMW 「ん、ごめんなさい、着替えるので……ね%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%さん、もう寝るので出て行ってもらえますか……？」
			ELSEIF TALENT:思慕
				PRINTFORMW 「%CALLNAME:MASTER%さん、夜這いはダメですよ？」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%さん、もう寝ますから出てってください……」
			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 「%CALLNAME:MASTER%さん！こんなところでやめてください！」
			ELSE
				PRINTFORMW 「こ、こんなところで……破廉恥です！！！」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW 「ふー休憩、休憩で御座います♪」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF TALENT:恋人
			PRINTFORMW 「ん、おやすみなさい、%CALLNAME:MASTER%さん%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、おやすみなさい、また、会いましょう♪」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、おやすみなさい」
		ELSE
			PRINTFORMW 「%CALLNAME:MASTER%さん、寝ますけど、変なことした駄目ですよ？」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORM 久侘歌は%CALLNAME:MASTER%のことを
			IF TALENT:恋人
				PRINTFORM にこやかに
			ELSEIF TALENT:恋慕
				PRINTFORM ぼぅっと
			ELSEIF GETBIT(CFLAG:1,0)
				PRINTFORM 物欲しげに
			ENDIF
		PRINTFORMW 見てくる。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「%CALLNAME:MASTER%さん%UNICODE(0x2665) *1%」
			PRINTFORMW 久侘歌はペコリと頭を下げて会釈を返した。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%さん♪」
			PRINTFORMW 久侘歌は少し楽し気に会釈を返した。
		ELSEIF TALENT:思慕
			PRINTFORMW 「あっ%CALLNAME:MASTER%さん！」
			PRINTFORMW 久侘歌は会釈を返した。
		ELSE
			PRINTFORMW 「あっ%CALLNAME:MASTER%さん！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORM 久侘歌は%CALLNAME:MASTER%のことを
			IF TALENT:恋人
				PRINTFORM 何かあるのだろうといった風に
			ELSEIF TALENT:恋慕
				PRINTFORM どうしたのだろうという風に
			ELSEIF GETBIT(CFLAG:1,0)
				PRINTFORM じっと
			ENDIF
		PRINTFORMW 見つめていた。
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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
	;その他（キャラ指定なし
	PRINTFORMW 「んん……どうしますか？なんだかちょっと恥ずかしいですね……」
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K129_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 「……私もムラムラしてきちゃいました%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……わ……私だって！えっちなことぐらいできます！」
		ELSEIF TALENT:思慕
			PRINTFORMW 「……その気にさせた%CALLNAME:MASTER%さん達が悪いんですからね！」
		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_K129_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 「気にせず……続きしましょう%UNICODE(0x2665) *1%」
		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 「……続き……しましょうか%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あ……続けましょうか……♪」
		ELSEIF TALENT:思慕
			PRINTFORMW 「……続けましょう♪」
		ELSE
			PRINTFORMW 「……どうしましょう……見られちゃいました……」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORMW 「……これは……？」
		PRINTFORMW 久侘歌はそう言って%CALLNAME:MASTER%の持っていた下着について問い詰めている。
		PRINTFORMW 「は、破廉恥です、こんなもの！駄目ですよ！」
		PRINTFORMW %CALLNAME:MASTER%が黙っていると
		PRINTFORMW 「……これは没収です！めっです！」
		PRINTFORMW 久侘歌はそう言って下着を懐にしまった。
		IF TALENT:恋人
			PRINTFORMW 「……どうしてもというのなら、私のをあげますから……！」
			PRINTFORMW 久侘歌は顔を真っ赤にしながらそう言った。
		ENDIF
	RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;押し倒した
;==================================================
@M_KOJO_EVENT_K129_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 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		IF TALENT:恋人
			IF RAND:3 == 0
				PRINTFORMW 「……%CALLNAME:MASTER%さん！」
				PRINTFORMW 久侘歌はいきなり%CALLNAME:MASTER%を押し倒してきた。
				PRINTFORMW 「いっぱい……えっちなことしましょう……%UNICODE(0x2665) *1%」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%CALLNAME:MASTER%さん！」
				PRINTFORMW 久侘歌は%CALLNAME:MASTER%の肩を掴むと押し倒してきた。
				PRINTFORMW 「こんな気分にさせた%CALLNAME:MASTER%が悪いんですからね……%UNICODE(0x2665) *1%」
				PRINTFORMW そう言いながら久侘歌は%CALLNAME:MASTER%の下半身を弄ってくる。
				PRINTFORMW 「こっちは準備万端ですね……%CALLNAME:MASTER%……%UNICODE(0x2665) *1%」
			ELSE
				PRINTFORMW 「……えいっ%UNICODE(0x2665) *1%」
				PRINTFORMW 久侘歌は%CALLNAME:MASTER%に体をすり寄せながら押し倒してきた。
				PRINTFORMW 「なんだかとってもえっちな気分です……%UNICODE(0x2665) *1%」
				PRINTFORMW 彼女は%CALLNAME:MASTER%に体を重ねながらほほを染めて行為を求めてくる。
				PRINTFORMW 「今日は私が食べる番なんですからね%UNICODE(0x2665) *1%」
			ENDIF
		ELSEIF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORMW 「……%CALLNAME:MASTER%さん%UNICODE(0x2665) *1%」
				PRINTFORMW 久侘歌はいきなり体を押し付けてくると押し倒してきた。
				PRINTFORMW 「大好きです、だから……%UNICODE(0x2665) *1%」
				PRINTFORMW そう言いながら久侘歌は唇を奪い%CALLNAME:MASTER%の体を弄ってくる。
				PRINTFORMW 「%CALLNAME:MASTER%さんの精、注ぎ込んでください%UNICODE(0x2665) *1%」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%CALLNAME:MASTER%さん！」
				PRINTFORMW 久侘歌は%CALLNAME:MASTER%の肩をグイッと掴むと押し倒してきた。
				PRINTFORMW 「ふふふ……その気になっちゃいました%UNICODE(0x2665) *1%」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%さん！なんだか熱いですね……♪」
				PRINTFORMW 「この火照り、%CALLNAME:MASTER%さんが責任取ってくださいね%UNICODE(0x2665) *1%」
				PRINTFORMW 久侘歌は%CALLNAME:MASTER%の体を弄びながら妖艶に笑みを浮かべている。
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「……%CALLNAME:MASTER%さん……」
				PRINTFORMW 久侘歌はいきなり体を押し付けてくると無言で押し倒してきた。
				PRINTFORMW 「なんだかムラムラしてきちゃいました……%UNICODE(0x2665) *1%」
				PRINTFORMW そう言いながら久侘歌は%CALLNAME:MASTER%の体を弄ってくる。
				PRINTFORMW 「うう……責任取ってください……%UNICODE(0x2665) *1%」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%CALLNAME:MASTER%さん……%UNICODE(0x2665) *1%」
				PRINTFORMW 久侘歌は%CALLNAME:MASTER%の名前を呼びながら押し倒してきた。
				PRINTFORMW 「私、とってもエッチな気分なんです……%UNICODE(0x2665) *1%」
			ELSE
				PRINTFORMW 「……%CALLNAME:MASTER%さん、ごめんなさい！」
				PRINTFORMW 久侘歌は謝りながら%CALLNAME:MASTER%を押し倒してきた。
				PRINTFORMW 「……ムラムラして仕方ないんです……%UNICODE(0x2665) *1%」
			ENDIF
		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 「気持ち……よかった……%UNICODE(0x2665) *1%」
			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 「ダメですよ……逃げちゃうなんて……%UNICODE(0x2665) *1%」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORMW 「まだえっちな気分なんです……%UNICODE(0x2665) *1%」
			RETURN 1
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORMW 「あっごめんなさい……一人で入りたいので……」
			PRINTFORMW 久侘歌に浴場から追い出されてしまった。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「一人でゆっくりしたいので……ごめんなさい……！」
			PRINTFORMW 久侘歌は混浴を拒否している。
		ELSEIF TALENT:思慕
			PRINTFORMW 「混浴はダメですよ～」
			PRINTFORMW 久侘歌はそう言って浴場から追い出してきた。
		ELSE
			PRINTFORMW 久侘歌は浴場への侵入者に気づくと
			PRINTFORMW 「……出てってください！！！」
			PRINTFORMW そう言って追い出してきた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「ふふっ、混浴するのも好きですよ%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「こ、混浴ですか！？いいですけど……」
			PRINTFORMW 久侘歌は少し困惑した様子で湯船に浸かっている。
		ELSEIF TALENT:思慕
			PRINTFORMW 「はぁ……構いませんが……」
		ELSE
			PRINTFORMW 「……別にいいですけど」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K129_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 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 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 「……困ります、疲れているので……」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
			IF RAND:3 == 0
				PRINTFORMW 「不審者はいませんね！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「むむ、怪しい人影です！」
			ELSE
				PRINTFORMW 「今日は平和ですねぇ……」
			ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
			IF RAND:3 == 0
				PRINTFORMW 「お仕事終了です！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「今日はもうあがりです！」
			ELSE
				PRINTFORMW 「ふぅ～疲れました……！」
			ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORMW 「お腹が空きましたでございます……」
		PRINTFORMW 「あっ……%CALLNAME:MASTER%さん……ごめんなさい！」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「ふぅ……結構なお手前で御座います……%UNICODE(0x2665) *1%」
			PRINTFORMW 「また、いっぱいシてくださいね%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あ……もう終わりで御座いますか……？」
			PRINTFORMW 「……また、愛してくださいね……♪」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%さん、また、続きしましょうね♪」
		ELSE
			PRINTFORMW 「責任取ってくださいね、%CALLNAME:MASTER%さん♪」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	;上の終了時と連続表示されるか未確認なので一応埋めておく
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「こんなの……いっぱい孕んじゃいます……%UNICODE(0x2665) *1%」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML （私……まだ興奮してるみたい……）
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後のムード
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML 「……責任……取ってくださいね」
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K129_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_K129_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
		IF TALENT:恋慕
			PRINTFORMW 「……んんん！！？」
			PRINTFORMW 久侘歌は唐突な快感に身悶えしている。
			PRINTFORMW 「なんでも……ない……です……」
			PRINTFORMW （何だったのでしょうか……？）
		ELSE
			PRINTFORMW 「……んん！」
			PRINTFORMW 久侘歌はビクッと体を震わせ
			PRINTFORMW 「……な、何が……？」
			PRINTFORMW 困惑して辺りを見回している。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕
			PRINTFORMW 「んんあっ！？！？！？」
			PRINTFORMW 久侘歌は一瞬でへたり込んでしまい何があったのか理解できないようだ。
			PRINTFORMW 「……やだ……何なんですか……もう……」
			PRINTFORMW 久侘歌は差し出された手を取るとぷるぷると震えながら立ち上がった。
		ELSE
			PRINTFORMW 「んあっ！？」
			PRINTFORMW 「……何ですか……！」
			PRINTFORMW 突然快楽を叩き込まれた久侘歌はうずくまると混乱しながら周囲を見渡している。
			PRINTFORMW 「うう……変な気分です……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「……何だかスース―するような……！？」
		PRINTFORMW 下着を盗まれた久侘歌はその感覚に違和感を覚えている。
		PRINTFORMW 「……ななな……何で！？」
		PRINTFORMW 状況に気づいた久侘歌は忙しなく周囲を見渡しながらスカートを押さえている。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			IF EXP:精液経験 == 0
				PRINTFORMW 「んん！？！！？」
				PRINTFORMW 久侘歌は口の中に流し込まれた子種に驚いている。
				PRINTFORMW 「けほっ……うぇ……何ですか……もう……！」
				PRINTFORMW 久侘歌は状況に対応できず、精液を飲み込んでしまった。
			ELSE
				PRINTFORMW 「うぇ！？」
				PRINTFORMW 久侘歌は突然口を押さえ体を震わせながら崩れ落ちた。
				PRINTFORMW 「んあ……うう……」
				PRINTFORMW 口内に残る子種をどうするか口を押さえながら考えこんだ後
				PRINTFORMW 「ん……んぐ……むっ……」
				PRINTFORMW 飲み込むことにしたようだ。
				PRINTFORMW 「何ですか……もう……！」
			ENDIF
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			PRINTFORMW 「んん！？」
			PRINTFORMW 「うぇぇ……ゲホッ……」
			PRINTFORMW 久侘歌は突然口内に現れた漢汁の臭気に耐えかねている。
			PRINTFORMW その様子を%CALLNAME:MASTER%はじっと見つめていた。
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			PRINTFORMW 「ん！？」
			PRINTFORMW 「んっ……うう……」
			PRINTFORMW 久侘歌は口腔のザーメンに耐えかねて口を押さえている。
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			PRINTFORMW 「……んん！」
			PRINTFORMW 久侘歌は口腔内のザーメンに気づくと
			PRINTFORMW 「ん……結構なお味で……」
			PRINTFORMW 久侘歌は口腔のザーメンを美味しそうに飲み込んだ。
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			PRINTFORMW 「……んぐ！？」
			PRINTFORMW 久侘歌は口腔内の濃厚な漢汁に気づくと
			PRINTFORMW 「ゲホッ……ゴホッ……うえぇ……」
			PRINTFORMW 取り乱しながら吐き出した。
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			PRINTFORMW 「……ん！」
			PRINTFORMW 久侘歌は口腔内の濃厚な漢汁に気づくと
			PRINTFORMW 「ん……ちゅる……結構なお手前で御座いますね……%UNICODE(0x2665) *1%」
			PRINTFORMW 慣れたように飲み下した。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			PRINTFORMW 「……うわっ！」
			PRINTFORMW 久侘歌は顔面にへばりついた漢汁に気がつくと
			PRINTFORMW 「……何ですかこれ！？」
			PRINTFORMW 取り乱しながら拭い取った。
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			PRINTFORMW 「……んんっ！？」
			PRINTFORMW 久侘歌は顔面にへばりついた漢汁に気がつくと
			PRINTFORMW 「……ん……れろ……悪くはないで御座いますね……」
			PRINTFORMW 美味しそうに舐めとった。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			PRINTFORMW 「……これは……！」
			PRINTFORMW 久侘歌は手にへばりついた漢汁に気がつくと
			PRINTFORMW 「……気持ち悪いで御座います……！」
			PRINTFORMW 取り乱しながら拭い取った。
		;舐めとり
		ELSEIF ARG:1 == 2
			PRINTFORMW 「……これは……！」
			PRINTFORMW 久侘歌は手にへばりついた漢汁に気がつくと
			PRINTFORMW 「れろ……ん……」
			PRINTFORMW 妖艶に舐めとった。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
			PRINTFORMW 「……いっ！？」
			PRINTFORMW 久侘歌はアナルに違和感を覚えたが、その正体まではわからないようだ。
		;ソレ以外
		ELSEIF ARG:1 == 2
			PRINTFORMW 「……んん！」
			PRINTFORMW 久侘歌はアナルの違和感に気づくと
			PRINTFORMW 「……何で御座いますか……？」
			PRINTFORMW お尻を押さえながらこちらを睨みつけている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
			PRINTFORMW 「……あっ！？」
			PRINTFORMW 久侘歌は下腹部の鈍痛に顔をしかめると
			PRINTFORMW 「……何でしょうか……？」
			PRINTFORMW 悪寒に冷や汗をかいている。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
			PRINTFORMW 「……んん！」
			PRINTFORMW 久侘歌は膣内の違和感に気づくと
			PRINTFORMW 「何ですかもう……やだなぁ……」
			PRINTFORMW 取り乱しながら下腹部を押さえている。
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
			PRINTFORMW 「……んん！？」
			PRINTFORMW 久侘歌は下半身の違和感に気づくと
			PRINTFORMW 「……これ……飲まないと……」
			PRINTFORMW すぐさま避妊薬を飲み安心している。
		;処女膣内射精
		ELSEIF ARG:1 == 3
			PRINTFORMW 「……んん！」
			PRINTFORMW 久侘歌は下半身の鈍痛と違和感に気づくと
			PRINTFORMW 「やだ……なんですかもう……」
			PRINTFORMW 取り乱しながら半泣きになっている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K129_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:318 == 1
			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 CFLAG:318 == 1
			PRINTFORMW 「……ダメです！」
			PRINTFORMW 久侘歌は必死に断っている。
		ELSEIF 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 「嫌だって言ってるでしょ！」
			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%さんとの赤ちゃん産みますからね！」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……分かりました」
			PRINTFORMW 「私も%CALLNAME:MASTER%さんとの子供……欲しいですから%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORMW 「……分かりました、いいですよ」
			PRINTFORMW （うう……流されてしまいました……）
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K129_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「……えへへへへ……今日はとっても幸せな日で御座います！」
		PRINTFORMW 「あの博麗の巫女に私たちの仲が認められたのですよ！」
		PRINTFORMW 久侘歌は満面の笑みを浮かべて言葉を紡ぐ。
		PRINTFORMW 「今日から新生活の始まりです！」
		PRINTFORMW 「さて……何から始めましょうか？」
		PRINTFORMW 顔を赤らめながら久侘歌はそう言って喜んでいる。
		PRINTFORMW 「……あっそうだ、一つ言い忘れていました！」
		PRINTFORMW 「不束者ですが、どうかよろしくお願いいたします%UNICODE(0x2665) *1%」
		PRINTFORMW こうして久侘歌との新生活が始まった。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「むむむ……博麗の巫女さんはけちんぼです……」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K129_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:恋人
			PRINTFORMW 「むぅ……もう帰る時間で御座います……」
			PRINTFORMW 「……また、明日会いましょうね！」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「おさらばで御座います！」
			PRINTFORMW そう言うと久侘歌は飛び去っていった。
		ELSEIF TALENT:思慕
			PRINTFORMW 「……消灯時間までもう時間が御座いません！」
			PRINTFORMW 久侘歌はそう言って飛び去っていった。
		ELSE
			PRINTFORMW 「……もう帰宅時間で御座います！」
			PRINTFORMW 久侘歌はいつの間にか飛び去っていってしまっていた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「それじゃあ、ここでお別れで御座います」
			PRINTFORMW 「……また、デートしましょうね%UNICODE(0x2665) *1%」
			PRINTFORMW 久侘歌はそう言うと飛び去っていった。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「今日は楽しい一日でした、また、デートしましょうね♪」
			PRINTFORMW そう言うと久侘歌は飛び去っていった。
		ELSEIF TALENT:思慕
			PRINTFORMW 「今日はこのあたりでお開きで御座います……」
			PRINTFORMW 久侘歌はそう言って少し寂しそうに飛び去っていった。
		ELSE
			PRINTFORMW 「あっもう帰宅時間で御座います！それではさようなら！」
			PRINTFORMW 久侘歌はいつの間にか飛び去っていってしまっていた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORMW 「ここでいいですよ、では、またお会いいたしましょう%UNICODE(0x2665) *1%」
			PRINTFORMW 久侘歌はそう言うと飛び去っていった。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「お見送りありがとうございます、では、また会いましょう♪」
			PRINTFORMW そう言うと久侘歌は飛び去っていった。
		ELSEIF TALENT:思慕
			PRINTFORMW 「ここまででいいですよ、では、さようならでございます」
			PRINTFORMW 久侘歌はそう言って飛び去っていった。
		ELSE
			PRINTFORMW 「では、さよならでございます」
			PRINTFORMW 久侘歌はそう言って飛び去って行った。
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K129_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
			PRINTFORMW 久侘歌は帰宅するとそのまま布団に倒れこんだ。
			PRINTFORMW 「……%CALLNAME:MASTER%さん……」
			PRINTFORMW 「……%CALLNAME:MASTER%さんは……私の事」
			PRINTFORMW 「……好きなのかなぁ……」
			PRINTFORMW ふとそんなことを考えたことそのものに顔を赤らめてしまった。
			PRINTFORMW 「私ったら……なんてことを……」
			PRINTFORMW （でも……両想いだったら……）
			PRINTFORMW （うう……でも……）
			PRINTFORMW （……でも……私は……%CALLNAME:MASTER%さんのことが……）
			PRINTFORMW 自分を受け入れてくれないかもしれない。
			PRINTFORMW それは自分を深く傷つけるかと思うと不安に押しつぶされそうになる。
			PRINTFORMW 「……このままなんて……いけません！」
			PRINTFORMW 彼女はちっぽけな勇気を胸に秘め、%CALLNAME:MASTER%に好意を伝える覚悟をした。
			PRINTFORMW （……%CALLNAME:MASTER%さん……大好きですからね……！）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
			PRINTFORMW 久侘歌は帰宅するとそのまま布団に倒れこんだ。
			PRINTFORMW 「……何でしょう……この気持ちは……？」
			PRINTFORMW よくわからないもやもやに包まれながら、久侘歌は微睡に落ちて行った。
			PRINTFORMW （%CALLNAME:MASTER%さん……）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「んんっ……」
		PRINTFORMW 久侘歌は情欲に苛まれながら床についた。
		PRINTFORMW 「……あっ……%CALLNAME:MASTER%さん……%UNICODE(0x2665) *1%」
		PRINTFORMW 彼女はどこか虚ろな目で秘部に手を伸ばしながらぼうっと空を見つめている。
		PRINTFORMW 自分が淫乱であったということを受け入れながら彼女は%CALLNAME:MASTER%の事を脳裏に浮かべていた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「……%CALLNAME:MASTER%さん……」
		PRINTFORMW 久侘歌は情欲に苛まれながら床についた。
		PRINTFORMW 「……もう……こういう関係でもいいです……」
		PRINTFORMW そう言って久侘歌は愛人関係を受け入れた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「……%CALLNAME:MASTER%さん……」
		PRINTFORMW 久侘歌は情欲に苛まれながら床についた。
		PRINTFORMW 「……んっもう……！」
		PRINTFORMW 彼女はそう言いながら下半身に手を伸ばしている。
		PRINTFORMW 肉体関係を築き上げながら久侘歌は性欲に体をふるわせている。
		PRINTFORMW 「……こんな関係でも……好きです……%UNICODE(0x2665) *1%」
		PRINTFORMW 自慰行為に耽りながら久侘歌は淫らに堕ちていった。
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K129_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:恋人
			PRINTFORMW 「ん……ああっ……%UNICODE(0x2665) *1%」
			PRINTFORMW 「%CALLNAME:MASTER%さん……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「んあっ……んん……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「んん……ふぅ……あっ……」
		ELSE
			PRINTFORMW 「あっ……ふぅ……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「んん……%CALLNAME:MASTER%さん……%UNICODE(0x2665) *1%」
			PRINTFORMW 「一人じゃ……んん……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%さん……%CALLNAME:MASTER%さん……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「ん……%CALLNAME:MASTER%さん……%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORMW 「あっ……%CALLNAME:MASTER%さん……%UNICODE(0x2665) *1%……ああっ……%UNICODE(0x2665) *1%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORMW 「いっぱいっ……出されちゃいました……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あっ……まだ残ってる……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「ん……%CALLNAME:MASTER%さんの……いっぱい……%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORMW 「っ……精子……出されちゃった……%UNICODE(0x2665) *1%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 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
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		IF TALENT:恋人
			PRINTFORMW 「んん……ああっ……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あっ……んっ……好き……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「んあ……%CALLNAME:MASTER%さん……%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORMW 「んんっ……あっ……%UNICODE(0x2665) *1%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	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
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		IF TALENT:恋人
			PRINTFORMW 「んっ……%CALLNAME:MASTER%さんの……あっ%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「もっと……もっと……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「ん……%CALLNAME:MASTER%さん……%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORMW 「あっ……まだ……%UNICODE(0x2665) *1%」
		ENDIF
		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_K129_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 「混浴……ですか？」
			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 「いいですよ！しっぽり二人で入りましょう%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「お風呂ですか！ぜひ入りましょう！」
		ELSEIF TALENT:思慕
			PRINTFORMW 「いいですよ！でも変なことしたらめっですよ？」
		ELSE
			PRINTFORMW 「わかりました！では一緒に入りましょう！」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K129_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 「%CALLNAME:MASTER%……責任取ってくださいね……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「……う……ん……？」
		PRINTFORMW 久侘歌は胎内の命の鼓動を感じると優しく腹部を撫でている。
		PRINTFORMW 「もしかして……妊娠してしまったのでは！？」
		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_K129_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%さんとの子供です……%UNICODE(0x2665) *1%」
		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 「……責任取ってくださいね……」
		RETURN 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「……あ……んん……んんんん！！」
		PRINTFORMW 久侘歌は子供を出産すると消耗した体力の中でその子の頭を撫でた。
		PRINTFORMW 「……誰の子供なんだろう……」
		PRINTFORMW 久侘歌は虚ろな目で空を見つめている。
		RETURN 1
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K129_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF CFLAG:318 == 1
				PRINTFORMW 「……へ……変態ー！」
			ELSEIF TALENT:恋人
				PRINTFORMW 「……！？」
				PRINTFORMW 「ちょ……ちょっと待ってください……！」
				PRINTFORMW 久侘歌はあまりの事態に驚き戸惑っている。
			ELSEIF TALENT:恋慕
				PRINTFORMW 「……ふぇっ！？」
				PRINTFORMW 久侘歌は驚きのあまりに変な声が出てしまっている。
				PRINTFORMW 「あ……あの……何の用でしょうか？」
				PRINTFORMW そう言うと久侘歌は何事かとこちらに聞いてきた。
			ELSEIF TALENT:思慕
				PRINTFORMW 「……入ったら駄目です！」
				PRINTFORMW 「駄目って言ったのに……！」
				PRINTFORMW 久侘歌は泣きそうな顔をしている。
			ELSE
				PRINTFORMW 「……ええっ！？」
				PRINTFORMW 「入っちゃだめですよ！？」
				PRINTFORMW 久侘歌は手を止めながら困惑している。
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF CFLAG:318 == 1
				PRINTFORMW 「……何なんですか！もう！」
				PRINTFORMW 久侘歌はそう言ってわめき叫んでいる。
			ELSEIF TALENT:恋人
				PRINTFORMW （……気まずいです……）
			ELSEIF TALENT:恋慕
				PRINTFORMW 「……ふ……普段からこんなことをしているわけではありませんからね！」
				PRINTFORMW 久侘歌はよくわからない言い訳をしている。
			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 「……んっ%UNICODE(0x2665) *1%」
				PRINTFORMW 「……私も貴方も変態ですね……%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「逆に興奮してきたかもしれません……」
			ELSEIF TALENT:思慕
				PRINTFORMW 「……じゃあ……見ててください……」
			ELSE
				PRINTFORMW （うう……なんでこんなことに……）
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF CFLAG:318 == 1
				PRINTFORMW 「……出ていきなさい！%CALLNAME:MASTER%！」
				PRINTFORMW 久侘歌は怒鳴って追い出してきた。
			ELSEIF TALENT:恋人
				PRINTFORMW 「……出てってください！」
				PRINTFORMW 「……私だって恥ずかしいんですから……」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「帰ってください！あと忘れてください！」
			ELSEIF TALENT:思慕
				PRINTFORMW 「帰ってください！」
			ELSE
				PRINTFORMW 「……勝手に入らないでください！」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF CFLAG:318 == 1
				PRINTFORMW 「……とんだ性欲魔人さんでございますね！」
				PRINTFORMW 久侘歌は怒鳴りながら%CALLNAME:MASTER%を受け入れている。
			;処女
			ELSEIF TCVAR:破瓜 == 1
				PRINTFORMW 「……こんな形で……初めてだなんて……」
			ELSEIF TALENT:恋人
				PRINTFORMW 「……じゃあ……滅茶苦茶に犯してください……%UNICODE(0x2665) *1%」
			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:恋人
				PRINTFORMW 「……やっぱり一人より気持ちいいですね……%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「滅茶苦茶に……されてしまいました……%UNICODE(0x2665) *1%」
			ELSEIF TALENT:思慕
				PRINTFORMW 「えっち……%UNICODE(0x2665) *1%」
			ELSE
				PRINTFORMW 「……よかったですよ……今の……」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF CFLAG:318 == 1
				PRINTFORMW 「……この状況で泊まるんですか！？%CALLNAME:MASTER%は……」
			ELSEIF TALENT:恋人
				PRINTFORMW 「……二回戦、しますか……%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「好きにして……%UNICODE(0x2665) *1%」
			ELSEIF TALENT:思慕
				PRINTFORMW 「まだ……するのですか……？」
			ELSE
				PRINTFORMW 「……このまま何を……？」
			ENDIF
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K129_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:恋人
				PRINTFORMW 「%CALLNAME:MASTER%さん！デートしませんか？」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%さん、デートしませんか？」
			ELSEIF TALENT:思慕
				PRINTFORMW 「%CALLNAME:MASTER%さん、お時間を頂けないでしょうか……？」
			ELSE
				PRINTFORMW 「あの……%CALLNAME:MASTER%さん、お暇でしょうか……？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORMW 「今日はどこへ行きましょうか……楽しいデートになるといいですね%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「では、行きたいところがあれば言ってくださいね♪」
			ELSEIF TALENT:思慕
				PRINTFORMW 「では、デートと洒落込みましょう♪」
			ELSE
				PRINTFORMW 「では、デートに参りましょう♪」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORMW 「忙しいのですか？残念です……」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「お邪魔でしたか……残念です……」
			ELSEIF TALENT:思慕
				PRINTFORMW 「では、またの機会にデートしてくださいな」
			ELSE
				PRINTFORMW 「……むぅ……振られてしまいました……」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORMW 「私の部屋でゆっくりお茶しませんか？」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「あの……私の部屋に来ませんか？」
			ELSEIF TALENT:思慕
				PRINTFORMW 「あの……私の部屋に来ていただけないでしょうか……？」
			ELSE
				PRINTFORMW 「……私の部屋、誰もいませんから……」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORMW 「では、のんびりしましょうか%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「何もありませんが寛いで行ってくださいね%UNICODE(0x2665) *1%」
			ELSEIF TALENT:思慕
				PRINTFORMW 「ふふっ、お部屋案内というやつですね」
			ELSE
				PRINTFORMW 「では、ゆっくりしていってくださいませ！」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORMW 「では、また次回、部屋に来てくださいね」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「残念ですね……」
			ELSEIF TALENT:思慕
				PRINTFORMW 「……少し寂しいです……」
			ELSE
				PRINTFORMW 「……今度また、来てくださいね」
			ENDIF
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K129_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
			;通常
			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
			;通常
			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 「いいですよ！その代わり%CALLNAME:MASTER%さんのパンツをください！」
					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 「では、プレゼントです%UNICODE(0x2665) *1%」
					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 「へ、変態ですか！%CALLNAME:MASTER%は！？」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「駄目に決まってます！」
					ELSE
						PRINTFORMW 「気持ち悪いですね……」
					ENDIF
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;怒り口上
;==================================================
@M_KOJO_EVENT_K129_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの度胸で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF RAND:3 == 0
			PRINTFORMW 「私だって怒るんですからね！ふんっ！」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「もう！%CALLNAME:MASTER%さんのことなんて知りません！」
		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_K129_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORMW 「ふぅ……もうくたくたです……%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORMW 「ん……スッキリしました……%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORMW 「あ……もう……スケベなんですから……%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORMW 「壊れちゃっても知りませんよ……%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_EVENT_K129_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 「%CALLNAME:MASTER%さん……会いたいな……」
				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_K129_ONABARE_1(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K129

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

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

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

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

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

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

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

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

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