code:
;-------------------------------------------------
;eraTW4.781用 吉弔八千慧口上
;-------------------------------------------------
;※コンセプト
;あなたを地上侵攻への先兵にしようと企むが絆されてってテンプレみたいなやちぇ組長口上
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

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

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

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

;RESULTS = _TEST_

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

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

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

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

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

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K130
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
	PRINTFORMW 「この辺りでは見ない顔ですね、迷子ですか？」
	PRINTFORMW 金髪ショートヘアで角の生えた、そして何よりも背中の甲羅が特徴的な女の子が%CALLNAME:MASTER%に話しかけてきている。
	PRINTFORMW 「生身の人間というのも別段珍しくありませんが、こんなところで何をしているのですか？」
	PRINTFORMW 彼女は吸われてしまいそうなほど魅力的な紅い目でこちらに質問をしてくる。
	PRINTFORMW 「うーん、大したことなさそうな……そうでもないような……」
	PRINTFORMW 「まあ、いいでしょう、私は吉弔八千慧、鬼傑組の組長をしています」
	PRINTFORMW 「普段は畜生界にいますから、何かあれば訪ねてきてください」
	PRINTFORMW 「きっとあなたの助けになりますよ、仲良くしてくださいね」
	CALL ASK_YN("はい","はい")
	IF !RESULT
	ELSE
	ENDIF
	PRINTFORMW 「いい返事です、それではまた、会いましょう」
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K130_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 「ですから、もう一つだけお願いを聞いてもらえますか？」
	CALL ASK_YN("はい","はい")
	IF !RESULT
	ELSE
	ENDIF
	PRINTFORMW 「では、遠慮なく……」
	PRINTFORMW 八千慧は%CALLNAME:MASTER%の首に手を回してそのまま唇を触れ合わせた。
	PRINTFORMW 「んっ……」
	PRINTFORMW 「……これだけですよ、じゃあ、また」
	PRINTFORMW 彼女はそう言って別れを告げその場を後にした。
	PRINTFORMW
	PRINTFORMW （私はなんて狡いんだろうか……どこぞの脳筋馬鹿であれば悩みも後悔もしないのだろうけど）
	PRINTFORMW （使わなければ……%CALLNAME:MASTER%は受け入れてくれたのだろうか……？）
	PRINTFORMW 彼女は俯き泣きそうになりながら苦いキスの味を噛みしめていた。
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K130_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(1130)
			PRINTFORMW 「あ、%CALLNAME:MASTER%、少しお願いがあるのですが」
			PRINTFORMW 別れ際に八千慧はいつになく緊張した口調で話しかけてきた。
			PRINTFORMW 「私と付き合ってもらえないでしょうか？」
			PRINTFORMW 「話が性急過ぎましたかね、順番に話した方がいいでしょう」
			PRINTFORMW 「端的に言えば、%CALLNAME:MASTER%のこと、私は好きです」
			PRINTFORMW 彼女は上手く言葉を紡げない様子で少しずつ話を続けていく。
			PRINTFORMW 「好意を抱いている？それ以上ですよ、愛しているんです」
			PRINTFORMW 「だから、えっと……恋人になってください」
			PRINTFORMW 「……こんな時、もっといい告白の仕方もあるのでしょうけど上手くいきませんね」
			PRINTFORMW そう言いながら顔を%CALLNAME:MASTER%の方へ向け
			PRINTFORMW 「嫌なんですよ、%CALLNAME:MASTER%が誰かのモノになってしまうのが」
			PRINTFORMW 「%CALLNAME:MASTER%が誰かと仲良くしていると胸が痛むんです」
			PRINTFORMW 「ですから一生のお願いです」
			PRINTFORMW 「私だけの%CALLNAME:MASTER%になってくれませんか？」
			PRINTFORMW 少し恥ずかしそうにはにかんで見せた。
		;二回目の告白
		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 「誓いのキスです、裏切らないでくださいね、%CALLNAME:MASTER%」
		PRINTFORMW そう妖艶に微笑んで見せた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「……後悔しますよ、%CALLNAME:MASTER%」
		PRINTFORMW 八千慧は少し陰のある微笑みを浮かべている。
		PRINTFORMW （思い通りにならないから、好きになって興奮するのかな？）
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K130_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 「また明日、デートしましょう、約束ですよ？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「今日はとても楽しかったです、またデートしてくださいね」
			CALL ASK_YN("はい","はい")
			IF !RESULT
			ELSE
			ENDIF
			PRINTFORMW 「……楽しみにしていますよ」
		ELSEIF TALENT:思慕
			PRINTFORMW 「今日はこれでお開きですが、またデートしてくださいね」
			CALL ASK_YN("はい","はい")
			IF !RESULT
			ELSE
			ENDIF
			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_K130_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;今日会ってない。
	IF !TCVAR:130:今日会ったか
		;-------------------------------------------------
		;小分岐
		;-------------------------------------------------
		;MASTERが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 1
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:130:今日会ったか
				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_K130
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「……近寄らないでもらえますか？」
				;屋外かつ満月
				ELSEIF NAME_MOON(DAY:3) == "十五夜 -中秋の名月- " && OPENPLACE(CFLAG:MASTER:現在位置) >= 2
					PRINTFORMW 「ああ、%CALLNAME:MASTER%ですか、今夜は月が奇麗ですね」
					IF TALENT:恋人
						PRINTFORMW 「%CALLNAME:MASTER%とこの月を見ることができるなんて、幸せかもしれませんね」
					ELSEIF TALENT:恋慕
						PRINTFORMW 「……何でもありませんよ」
					ENDIF
				;台風
				ELSEIF FLAG:異常気象 == 9
					PRINTFORMW 「%CALLNAME:MASTER%、台風が来ていて大変ですね」
					IF TALENT:恋人
						PRINTFORMW 「……ですから、ね%UNICODE(0x2665) *1%」
						PRINTFORMW 八千慧は妖艶に微笑んでみせた。
					ENDIF
				;猛吹雪
				ELSEIF FLAG:異常気象 == 10
					PRINTFORMW 「%CALLNAME:MASTER%今日は外へ出ない方がいいですよ」
					IF TALENT:恋人
						PRINTFORMW 「私も寒いのは苦手ですから、暖めあいましょうね%UNICODE(0x2665) *1%」
					ENDIF
				ELSE
					;早朝
					IF TIME:2 == 1 || TIME:2 == 2
						PRINTFORMW 「おはよう、%CALLNAME:MASTER%」
					;昼
					ELSEIF TIME:2 == 3 || TIME:2 == 4
						PRINTFORMW 「こんにちは、%CALLNAME:MASTER%」
					;夕方・夜
					ELSEIF TIME:2 == 5 || TIME:2 == 6
						PRINTFORMW 「こんばんは、%CALLNAME:MASTER%」
					ENDIF
					IF TALENT:恋人
						PRINTFORMW 「今日は何をするのですか？楽しみですね」
					ELSEIF TALENT:恋慕
						PRINTFORMW 「私に会いに来てくれたのですか？嬉しいですね」
					ELSEIF TALENT:思慕
						PRINTFORMW 「暇なら付き合いますよ」
					ENDIF
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 2
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:130:今日会ったか
				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_K130
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「……最悪」
				;屋外かつ満月
				ELSEIF NAME_MOON(DAY:3) == "十五夜 -中秋の名月- " && OPENPLACE(CFLAG:MASTER:現在位置) >= 2
					PRINTFORMW 「ああ、%CALLNAME:MASTER%ですか、今夜は月が奇麗ですね」
					IF TALENT:恋人
						PRINTFORMW 「%CALLNAME:MASTER%とこの月を見ることができるなんて、幸せかもしれませんね」
					ELSEIF TALENT:恋慕
						PRINTFORMW 「……何でもありませんよ」
					ENDIF
				;台風
				ELSEIF FLAG:異常気象 == 9
					PRINTFORMW 「%CALLNAME:MASTER%、台風が来ていて大変ですね」
					IF TALENT:恋人
						PRINTFORMW 「……ですから、ね%UNICODE(0x2665) *1%」
						PRINTFORMW 八千慧は妖艶に微笑んでみせた。
					ENDIF
				;猛吹雪
				ELSEIF FLAG:異常気象 == 10
					PRINTFORMW 「%CALLNAME:MASTER%今日は外へ出ない方がいいですよ」
					IF TALENT:恋人
						PRINTFORMW 「私も寒いのは苦手ですから、暖めあいましょうね%UNICODE(0x2665) *1%」
					ENDIF
				ELSE
					;早朝
					IF TIME:2 == 1 || TIME:2 == 2
						PRINTFORMW 「おはよう、%CALLNAME:MASTER%」
					;昼
					ELSEIF TIME:2 == 3 || TIME:2 == 4
						PRINTFORMW 「こんにちは、%CALLNAME:MASTER%」
					;夕方・夜
					ELSEIF TIME:2 == 5 || TIME:2 == 6
						PRINTFORMW 「こんばんは、%CALLNAME:MASTER%」
					ENDIF
					IF TALENT:恋人
						PRINTFORMW 「今日は何をするのですか？楽しみですね」
					ELSEIF TALENT:恋慕
						PRINTFORMW 「私に会いに来てくれたのですか？嬉しいですね」
					ELSEIF TALENT:思慕
						PRINTFORMW 「暇なら付き合いますよ」
					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 「一人で入りたいのですが、出て行ってもらえますか？」
				CALL ASK_YN("はい","はい")
				IF !RESULT
				ELSE
				ENDIF
				ELSE
				PRINTFORMW 「覗きですか？やめてもらいたいのですが」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;外出先で遭遇した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 6
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:130:今日会ったか
				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_K130
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「……最悪」
				;屋外かつ満月
				ELSEIF NAME_MOON(DAY:3) == "十五夜 -中秋の名月- " && OPENPLACE(CFLAG:MASTER:現在位置) >= 2
					PRINTFORMW 「ああ、%CALLNAME:MASTER%ですか、今夜は月が奇麗ですね」
					IF TALENT:恋人
						PRINTFORMW 「%CALLNAME:MASTER%とこの月を見ることができるなんて、幸せかもしれませんね」
					ELSEIF TALENT:恋慕
						PRINTFORMW 「……何でもありませんよ」
					ENDIF
				ELSE
					;早朝
					IF TIME:2 == 1 || TIME:2 == 2
						PRINTFORMW 「おはよう、%CALLNAME:MASTER%」
					;昼
					ELSEIF TIME:2 == 3 || TIME:2 == 4
						PRINTFORMW 「こんにちは、%CALLNAME:MASTER%」
					;夕方・夜
					ELSEIF TIME:2 == 5 || TIME:2 == 6
						PRINTFORMW 「こんばんは、%CALLNAME:MASTER%」
					ENDIF
					IF TALENT:恋人
						PRINTFORMW 「今日は何をするのですか？楽しみですね」
					ELSEIF TALENT:恋慕
						PRINTFORMW 「私に会いに来てくれたのですか？嬉しいですね」
					ELSEIF TALENT:思慕
						PRINTFORMW 「暇なら付き合いますよ」
					ENDIF
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとデート中に遭遇した
		;ARG:1にデート相手
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 7
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:130:今日会ったか
				PRINTFORMW 「今取り込み中ですが、何か用でしょうか？」
			ELSE
				IF TALENT:恋人
					PRINTFORMW 「……」
					PRINTFORMW 「……馬鹿」
				ELSEIF TALENT:恋慕
					PRINTFORMW 「逢引きですか、%CALLNAME:MASTER%？」
					PRINTFORMW （色男……）
				ELSE
					PRINTFORMW 「%CALLNAME:MASTER%、デートですか？楽しそうですね」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;特別な日イベント用関数
;==================================================
;-------------------------------------------------
@SPECIALDAY_EVENT_K130
;-------------------------------------------------
	;謹賀新年
	IF DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1
		IF TALENT:恋人
			PRINTFORMW 「明けましておめでとう御座います」
			PRINTFORMW 八千慧はそう言って新年の挨拶をしてきた。
			PRINTFORMW 「いい年にしましょうね、%CALLNAME:MASTER%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「明けましておめでとう御座います、%CALLNAME:MASTER%」
			PRINTFORMW 八千慧は新年の挨拶をしてきた。
			PRINTFORMW 「今年もいい年になるといいですね」
		ELSEIF TALENT:思慕
			PRINTFORMW 「明けましておめでとう御座います」
			PRINTFORMW 八千慧は新年の挨拶をしてきた。
			PRINTFORMW 「今年もよろしくお願いしますよ、%CALLNAME:MASTER%」
			CALL ASK_YN("はい","はい")
			IF !RESULT
			ELSE
			ENDIF
		ELSE
			PRINTFORMW 「明けましておめでとう、%CALLNAME:MASTER%」
		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 「喜んでくれると嬉しいのですが……」
				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 「お菓子をくれないと悪戯しますよ？」
			PRINTFORMW 八千慧の顔は笑っていない……
		ELSEIF TALENT:思慕
			PRINTFORMW 「トリック・オア・トリート♪」
			PRINTFORMW 八千慧は%CALLNAME:MASTER%の肩に手を回しながら呟いた。
			PRINTFORMW 「驚きましたか？ではお菓子を……」
		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_K130_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%、おはようございます」
			PRINTFORMW 八千慧は嬉しそうに%CALLNAME:MASTER%に朝の挨拶をしてきた。
			PRINTFORMW 「早起きですね、私も見習わなければ」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「ん、おはようございます」
			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_K130_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 「もう寝るので……出て行ってください」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%、出て行ってもらえますか？」
				CALL ASK_YN("はい","はい")
				IF !RESULT
				ELSE
				ENDIF
			ELSEIF TALENT:思慕
				PRINTFORMW 「%CALLNAME:MASTER%、一人にしてくれますか？」
				CALL ASK_YN("はい","はい")
				IF !RESULT
				ELSE
				ENDIF
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%、出て行ってもらえますか？」
				CALL ASK_YN("はい","はい")
				IF !RESULT
				ELSE
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF TALENT:恋人
				PRINTFORMW 「……%CALLNAME:MASTER%……消えて頂けますか？」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「貴方達‥…すぐに視界から消えてください」
			ELSEIF TALENT:思慕
				PRINTFORMW 「不愉快極まりないですね……」
			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_K130_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 八千慧は%CALLNAME:MASTER%に軽く手を振って挨拶をした。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%♪」
			PRINTFORMW 八千慧は少し楽し気に会釈を返した。
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%♪」
			PRINTFORMW 八千慧は会釈を返した。
		ELSE
			PRINTFORMW 八千慧は会釈を返した。
		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_K130_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_K130_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 「混ぜてもらいますよ、いいですね？」
				CALL ASK_YN("はい","はい")
				IF !RESULT
				ELSE
				ENDIF
		ELSE
			PRINTFORMW 「私も混ぜてもらえませんか？」
				CALL ASK_YN("はい","はい")
				IF !RESULT
				ELSE
				ENDIF
		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_K130_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_K130_8(ARG,ARG:1)
RETURN 1

;==================================================
;パンツ没収された
;==================================================
@M_KOJO_EVENT_K130_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_K130_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%の下半身を弄ってくる。
			ELSE
				PRINTFORMW 「……」
				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%」
				CALL ASK_YN("はい","はい")
				IF !RESULT
				ELSE
				ENDIF
				PRINTFORMW そう言いながら八千慧は唇を奪い%CALLNAME:MASTER%の体を弄ってくる。
				PRINTFORMW 「いい返事です、では遠慮なく%UNICODE(0x2665) *1%」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%CALLNAME:MASTER%」
				PRINTFORMW 八千慧は%CALLNAME:MASTER%の肩をグイッと掴むと押し倒してきた。
				PRINTFORMW 「私に見初められたのですから、%CALLNAME:MASTER%が悪いのです%UNICODE(0x2665) *1%」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%……」
				PRINTFORMW 「なんだか興奮してきました%UNICODE(0x2665) *1%」
				PRINTFORMW 八千慧は%CALLNAME:MASTER%の体を弄びながら妖艶に笑みを浮かべている。
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「%CALLNAME:MASTER%……」
				PRINTFORMW 八千慧はいきなり体を押し付けてくると無言で押し倒してきた。
				PRINTFORMW 「興奮してきました、責任を取りなさい%UNICODE(0x2665) *1%」
				CALL ASK_YN("はい","はい")
				IF !RESULT
				ELSE
				ENDIF
				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_K130_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_K130_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 「出て行ってもらえますか？」
			CALL ASK_YN("はい","はい")
			IF !RESULT
			ELSE
			ENDIF
		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_K130_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;食事系
;==================================================
@M_KOJO_EVENT_K130_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%、持っているものをくれませんか？」
		CALL ASK_YN("はい","はい")
		IF !RESULT
		ELSE
		ENDIF
		PRINTFORMW 「では、遠慮なく頂きます♪」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_EVENT_K130_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%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……もう……好きですよ……♪」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%、またしてくださいね」
		ELSE
			PRINTFORMW 「……馬鹿……♪」
		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 「責任は取ってもらいますからね%UNICODE(0x2665) *1%」
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K130_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_K130_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 （何……？）
		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 突然快楽を叩き込まれた八千慧はうずくまると混乱しながら周囲を見渡している。
		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 八千慧は口腔のザーメンに耐えかねて口を押さえている。
		;精液中毒高精飲
		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_K130_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 「生はやめて欲しいのですが」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「避妊して欲しいのですが……」
		ELSE
			PRINTFORMW 「ちゃんと避妊してもらえますか？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:318 == 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
			PRINTFORMW 「くたばって頂けますか？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF TALENT:恋人
			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 「いいでしょう、責任取ってもらいますよ%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……子供、作りましょうか」
		ELSE
			PRINTFORMW 「……いいですよ、仕方ありませんね」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K130_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 「今夜は寝かせませんよ？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「厄介なものです、あの巫女も」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K130_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 「今日はもう帰ります、それでは」
		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 「今日はもう時間も遅いですし、お開きですね」
			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_K130_21(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 （ああ……何をすれば受け入れてくれるのか……）
			PRINTFORMW 「……馬鹿になるしかないみたいですね……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
			PRINTFORMW 八千慧は帰宅するとそのまま布団に倒れこんだ。
			PRINTFORMW 「……そんなことは……ないのに」
			PRINTFORMW よくわからないもやもやに包まれながら、八千慧は微睡に落ちて行った。
			PRINTFORMW （私が人を……）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「んっ……」
		PRINTFORMW 八千慧は情欲に苛まれながら床についた。
		PRINTFORMW 「……%CALLNAME:MASTER%っ……%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_K130_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%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「ん……%CALLNAME:MASTER%……%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORMW 「っ……%CALLNAME:MASTER%……%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 「ん……あっ……%CALLNAME:MASTER%%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あっ……んんっ……好き……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「ん……%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_K130_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_K130_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%……%UNICODE(0x2665) *1%」
		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_K130_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 「ふふっ……頑張りましたよ、%CALLNAME:MASTER%」
		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_K130_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 「面白いこと考えますね……あん%UNICODE(0x2665) *1%」
			ELSEIF TALENT:思慕
				PRINTFORMW 「……じゃあ……見ればいいんじゃないですか？」
			ELSE
				PRINTFORMW 「……好きにさせてもらいますからね」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF CFLAG:318 == 1
				PRINTFORMW 「……出て行ってもらえませんかね！」
				PRINTFORMW 八千慧は怒鳴って追い出してきた。
			ELSEIF TALENT:恋人
				PRINTFORMW 「……今は一人にしてくれませんかね」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「今のは忘れて！忘れろ！」
			ELSEIF TALENT:思慕
				PRINTFORMW 「帰りなさい！」
				CALL ASK_YN("はい","はい")
				IF !RESULT
				ELSE
				ENDIF
			ELSE
				PRINTFORMW 「……帰ってください！」
				CALL ASK_YN("はい","はい")
				IF !RESULT
				ELSE
				ENDIF
			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 「ではよろしくお願いします%UNICODE(0x2665) *1%」
			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 「……馬鹿ですか……」
			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_K130_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 「ふふっ、楽しいデートになりそうですね」
			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_K130_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%のパンツを代わりにくれるのなら構いませんよ？」
						CALL ASK_YN("はい","はい")
						IF !RESULT
						ELSE
						ENDIF
						PRINTFORMW 「では交換しましょう」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「……では交換といきましょう」
						CALL ASK_YN("はい","はい")
						IF !RESULT
						ELSE
						ENDIF
					ELSE
						PRINTFORMW 「あげるだけというのは嫌ですね、交換しましょうか」
					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_K130_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 「馬鹿！もう知りません！」
		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_K130_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_K130_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 「……馬鹿……」
				PRINTFORML 八千慧は一人でそう呟いた。
			ELSE
				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_K130_ONABARE_1(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K130

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

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

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

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

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

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

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

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

repo_name: akadiya/eratw

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

license: unknown