code:
;-------------------------------------------------
;eraTW4.782用 TWの八雲紫口上
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

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

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

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

;RESULTS = _TEST_

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

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

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

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

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

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K26
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
	;システム上周回すると紫側の記憶はリセットされるけどちょっとだけ何かしら残ってたり残ってなかったりする感じ。
	;なので周回時には矛盾した発言をしている。前週時に恋慕をつけてると好きかもしれないわの意味が変わってくる形。
	;それはそれはとても残酷な話ですわ。
	IF FLAG:周回数 > 1 && DAY:0 >= 8
		PRINTFORMW 「全く…探したわよ、%CALLNAME:MASTER%」
		PRINTFORMW 突然呼び止められると背後から空間の裂け目としか言いようがない何かから上半身を覗かせている女性がいた。
		PRINTFORMW 本紫色の導師服に金髪ロング、白手袋をした妖艶な美女―――
		PRINTFORMW 「一週間以上も遅刻なんて私はとても悲しいわ…」
		PRINTFORMW そう言いながら彼女は%CALLNAME:MASTER%の頬に手を触れまじまじと顔を見つめてくる。
		PRINTFORMW 「ああなんて奇麗で薄気味悪い眼なんでしょう、%CALLNAME:MASTER%のこと、好きかもしれませんわ」
		PRINTFORMW 「ま、挨拶はここまでにして、%CALLNAME:MASTER%は何をシに来たのかしら？私を口説きに？」
		PRINTFORMW 「ふふっ、冗談よ、それじゃあ、私も忙しい身ですから、また会いましょう」
		PRINTFORMW そう言った彼女はいつの間にか空間の裂け目から体を出して何処かへ立ち去った。
	ELSEIF FLAG:周回数 > 1
		PRINTFORMW 「ねえ―――%CALLNAME:MASTER%」
		PRINTFORMW どこからかぎこちなく呼び止められると背後から空間の裂け目としか言いようがない何かから上半身を覗かせている女性がいた。
		PRINTFORMW 本紫色の導師服に金髪ロング、白手袋をした妖艶な美女―――
		PRINTFORMW 「久しぶりね、会ったこと、あったかしら？」
		PRINTFORMW そう言いながら彼女は%CALLNAME:MASTER%の頬に手を触れまじまじと顔を見つめてくる。
		PRINTFORMW 「ああなんて奇麗で薄気味悪い眼なんでしょう、%CALLNAME:MASTER%のこと、好きかもしれませんわ」
		PRINTFORMW 「ま、挨拶はここまでにして、%CALLNAME:MASTER%は何をシに来たのかしら？私を口説きに？」
		PRINTFORMW 「ふふっ、冗談よ、それじゃあ、私も忙しい身ですから、また会いましょう」
		PRINTFORMW そう言った彼女はいつの間にか空間の裂け目から体を出して何処かへ立ち去った。
	ELSEIF DAY:0 >= 8
		PRINTFORMW 「全く…探したわよ、%CALLNAME:MASTER%」
		PRINTFORMW 突然呼び止められると背後から空間の裂け目としか言いようがない何かから上半身を覗かせている女性がいた。
		PRINTFORMW 本紫色の導師服に金髪ロング、白手袋をした妖艶な美女―――
		PRINTFORMW 「一週間以上も顔を見せてくださらないなんてとても悲しいですわ…」
		PRINTFORMW 「っと、挨拶がまだでしたわね、私は八雲紫、この世界の管理人です」
		PRINTFORMW そう言いながら彼女は%CALLNAME:MASTER%の頬に手を触れまじまじと顔を見つめてくる。
		PRINTFORMW 「ああなんて奇麗で薄気味悪い眼なんでしょう、%CALLNAME:MASTER%のこと、好きかもしれませんわ」
		PRINTFORMW 「ま、挨拶はここまでにして、%CALLNAME:MASTER%は何をシに来たのかしら？私を口説きに？」
		PRINTFORMW 「ふふっ、冗談よ、それじゃあ、私も忙しい身ですから、また会いましょう」
		PRINTFORMW そう言った彼女はいつの間にか空間の裂け目から体を出して何処かへ立ち去ろうとして何かを思い出したように、振り返った。
		PRINTFORMW 「あ、そうそう、一つ言い忘れていましたわ」
		PRINTFORMW
		PRINTFORMW 「幻想郷へようこそ、楽しんでいってね」
		PRINTFORMW
	ELSEIF DAY:0 >= 2
		PRINTFORMW 「ねえ、そこの貴方」
		PRINTFORMW 突然呼び止められると背後から空間の裂け目としか言いようがない何かから上半身を覗かせている女性がいた。
		PRINTFORMW 本紫色の導師服に金髪ロング、白手袋をした妖艶な美女―――
		PRINTFORMW 「全く、初日に私に顔を通さないなんていい度胸してますわね、%CALLNAME:MASTER%」
		PRINTFORMW 「あら、ごめんなさい、挨拶がまだでしたわね、私は八雲紫、この世界の管理人です」
		PRINTFORMW そう言いながら彼女は%CALLNAME:MASTER%の頬に手を触れまじまじと顔を見つめてくる。
		PRINTFORMW 「ああなんて奇麗で薄気味悪い眼なんでしょう、%CALLNAME:MASTER%のこと、好きかもしれませんわ」
		PRINTFORMW 「ま、挨拶はここまでにして、%CALLNAME:MASTER%は何をシに来たのかしら？私を口説きに？」
		PRINTFORMW 「ふふっ、冗談よ、それじゃあ、私も忙しい身ですから、また会いましょう」
		PRINTFORMW そう言った彼女はいつの間にか空間の裂け目から体を出して何処かへ立ち去ろうとして何かを思い出したように、振り返った。
		PRINTFORMW 「あ、そうそう、一つ言い忘れていましたわ」
		PRINTFORMW
		PRINTFORMW 「幻想郷へようこそ、楽しんでいってね」
		PRINTFORMW
	ELSE
		PRINTFORMW 「ねえ、そこの貴方」
		PRINTFORMW 突然呼び止められると背後から空間の裂け目としか言いようがない何かから上半身を覗かせている女性がいた。
		PRINTFORMW 本紫色の導師服に金髪ロング、白手袋をした妖艶な美女―――
		PRINTFORMW 「%CALLNAME:MASTER%って言うの、素敵な名前ね。それで、今日から幻想郷にやって来たと」
		PRINTFORMW 「あら、ごめんなさい、挨拶がまだでしたわね、私は八雲紫、この世界の管理人です」
		PRINTFORMW そう言いながら彼女は%CALLNAME:MASTER%の頬に手を触れまじまじと顔を見つめてくる。
		PRINTFORMW 「ああなんて奇麗で薄気味悪い眼なんでしょう、%CALLNAME:MASTER%のこと、好きかもしれませんわ」
		PRINTFORMW 「ま、挨拶はここまでにして、%CALLNAME:MASTER%は何をシに来たのかしら？私を口説きに？」
		PRINTFORMW 「ふふっ、冗談よ、それじゃあ、私も忙しい身ですから、また会いましょう」
		PRINTFORMW そう言った彼女はいつの間にか空間の裂け目から体を出して何処かへ立ち去ろうとして何かを思い出したように、振り返った。
		PRINTFORMW 「あ、そうそう、一つ言い忘れていましたわ」
		PRINTFORMW
		PRINTFORMW 「幻想郷へようこそ、楽しんでいってね」
		PRINTFORMW
	ENDIF
	RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K26_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 「んっ…いつものお礼よ、いつだって%CALLNAME:MASTER%は私を楽しませてくれるんだもの」
	PRINTFORMW 彼女はそう言ってスキマの中に消えていった。
	PRINTFORMW
	PRINTFORMW （馬鹿な事、したかもしれないわね…）
	PRINTFORMW そう思いながらもどこか紅潮させた自分の頬を撫で、彼女は帰路に着くのだった。
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K26_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(1026)
			PRINTFORMW 「%CALLNAME:MASTER%、」
			PRINTFORMW 紫はいつになく砕けた口調で話しかけてきた。
			PRINTFORMW 「そんなに身構えなくても…捕って食ったりしないわよ？」
			PRINTFORMW 「でも、そうね、囚われたのは私の方かもしれないわ」
			PRINTFORMW 「恋の病なんてのがあるでしょう？酷い言い方をすれば不治の病、精神病」
			PRINTFORMW 「サナトリウムだなんて懐かしいけれど、生憎とこの幻想郷ではね」
			PRINTFORMW 「もう友達だって死んでるのに、今更恋だなんて笑われてしまうかもしれないけど―――」
			PRINTFORMW そう言って紫は%CALLNAME:MASTER%の顔に手を伸ばし
			PRINTFORMW
			PRINTFORMW 「―――%CALLNAME:MASTER%、好きよ」
			PRINTFORMW
			PRINTFORMW 「だから、私と付き合ってもらえませんか？」
			PRINTFORMW 真剣な表情の賢者の表情はどこか泣き崩れそうで儚げであった。
			PRINTFORMW 「%CALLNAME:MASTER%と一緒にいる時間がとても楽しくて」
			PRINTFORMW 「%CALLNAME:MASTER%と一緒にいることがとても嬉しくて」
			PRINTFORMW 「でも、いつかオワリが来てしまうかと思うととても悲しくて」
			PRINTFORMW 「たとえ全てが硝子の中の幻想だったとしても」
			PRINTFORMW 「今、%CALLNAME:MASTER%のことを好きなのは変わりないから」
			PRINTFORMW 「私と、恋人に、なってくれませんか」
			PRINTFORMW 俯いた少女は少し震えながらそう訴えてきた。
		;二回目の告白
		ELSE
			PRINTFORMW 「%CALLNAME:MASTER%、」
			PRINTFORMW 紫は悲しそうに言葉を紡いできた。
			PRINTFORMW 「やっぱり私を、受け入れてはくれないかしら？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;『胡蝶の夢』
		;そもそも荘子の言う所の胡蝶の夢は夢の中で蝶になっていること自体になんら意味はなく、蝶は蝶で荘子は荘子として励めばいいという所、つまりどちらが夢でどちらが現実かというのは文字通りの問題外とかなんとか。
		PRINTFORMW 「…ありがと」
		PRINTFORMW そう言いながら彼女は身を翻し―――
		PRINTFORMW どこまでも有限なこの世界で何故永遠の愛など求めるのでしょうか
		PRINTFORMW 無為自然に他者を貴び愛し、それは確かに生物としての本能なのかもしれない
		PRINTFORMW でも、その過程を楽しむことができるのが、恋路の楽しさなのか
		PRINTFORMW あるいは紛い物でも邯鄲の枕でも一切斉同であるのなら総てに価値が無く、総てに価値があるのかもしれない
		PRINTFORMW 「これからも、この世界で面白おかしく楽しみましょう、」
		PRINTFORMW 「だってまだまだ変化していくのですから、嬉しいことも、悲しいことも、それはそれはとても幸せなことだから」
		PRINTFORMW 「どんな未来になってもきっと私は%CALLNAME:MASTER%の事を好きだと思うわ」
		PRINTFORMW ―――精一杯の笑顔でそう言葉を絞り出した。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		PRINTFORMW 結局一人きりの幻想郷か……
		PRINTFORMW
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K26_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 紫は既に消え去った後だった。
		ELSEIF TALENT:恋人
			PRINTFORMW 「いつまでも、%CALLNAME:MASTER%と一緒になら…」
			PRINTFORMW 紫は名残惜し気に別れて行った。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「ねえ、このまま―――」
			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_K26_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;今日会ってない。
	IF !TCVAR:26:今日会ったか
		;-------------------------------------------------
		;小分岐
		;-------------------------------------------------
		;MASTERが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 1
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:26:今日会ったか
				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_K26
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「…貴方には興味ないからさっさと去れ」
				;屋外かつ満月
				ELSEIF NAME_MOON(DAY:3) == "十五夜 -中秋の名月- " && OPENPLACE(CFLAG:MASTER:現在位置) >= 2
					PRINTFORMW 「あら？%CALLNAME:MASTER%」
					PRINTFORMW 「何をしているのかって？」
					PRINTFORMW 「―――月が奇麗だから、見ていたのよ」
				ELSEIF TALENT:恋人
					IF RAND:3 == 0
						PRINTFORMW 「あら？%CALLNAME:MASTER%、今日は何をしましょうか」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、探したわよ、今日はどこへ行くのかしら？」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%、私に会いに来てくれたの？」
						PRINTFORMW 紫は小さく手を振りながら%CALLNAME:MASTER%に挨拶をした。
						PRINTFORMW 「私の眼はなんでもお見通しですからね、%CALLNAME:MASTER%%UNICODE(0x2665) *1%」
					ENDIF
				ELSEIF TALENT:恋慕
					IF RAND:3 == 0
						PRINTFORMW 「逢えて嬉しいわ、%CALLNAME:MASTER%」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、また会えたわね、嬉しいわ」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%、元気にしてた？」
						PRINTFORMW 紫は%CALLNAME:MASTER%に気づくと元気に挨拶をしてきた。
						PRINTFORMW 「私は元気だけど、何かしたいことってある？」
					ENDIF
				ELSEIF TALENT:思慕
					IF RAND:3 == 0
						PRINTFORMW 「何をしているのかしら、%CALLNAME:MASTER%」
						PRINTFORMW 「探し物なら他に専門家がいるわよ」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、どうしたの？」
					ELSE
						PRINTFORMW 「あら？珍しくはないけど面白い人がやってきたわ、何用かしら？」
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「あら、%CALLNAME:MASTER%、五体満足のようね」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、ご機嫌いかがかしら？」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%、奇遇ね」
						PRINTFORMW 「偶然かしら？それとも必然？」
					ENDIF
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 2
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:26:今日会ったか
				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_K26
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「…貴方には興味ないからさっさと去れ」
				;屋外かつ満月
				ELSEIF NAME_MOON(DAY:3) == "十五夜 -中秋の名月- " && OPENPLACE(CFLAG:MASTER:現在位置) >= 2
					PRINTFORMW 「あら？%CALLNAME:MASTER%、月が奇麗ですわね」
				ELSEIF TALENT:恋人
					IF RAND:3 == 0
						PRINTFORMW 「何をしているのかしら、%CALLNAME:MASTER%」
						PRINTFORMW 「仲間はずれは寂しいわ」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、今日は何をしたいの？」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%、来たわ」
						PRINTFORMW 紫は小さく手を振りながら%CALLNAME:MASTER%に挨拶をした。
						PRINTFORMW 「%CALLNAME:MASTER%の居場所なんてお見通しなんですから%UNICODE(0x2665) *1%」
					ENDIF
				ELSEIF TALENT:恋慕
					IF RAND:3 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、こんなところで何をしていたの？」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「私はどこにでもいますけど、%CALLNAME:MASTER%はこんなところにいたのね」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%」
						PRINTFORMW いつの間にか来ていた紫は%CALLNAME:MASTER%に話しかけてきた。
						PRINTFORMW 「ねえ、%CALLNAME:MASTER%には何が視えているの？」
					ENDIF
				ELSEIF TALENT:思慕
					IF RAND:3 == 0
						PRINTFORMW 「あら？奇遇ね、%CALLNAME:MASTER%」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、悪い妖怪に会わなかったかしら？」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%、何をしていたのかしら？」
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「元気そうで何よりですわ」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「この辺りに何か用でもあったのかしら？」
					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 そう言うと紫は浴場へ入ってきた。
				PRINTFORMW 「いいわよね、私達知らない仲じゃないもの」
			ELSEIF TALENT:思慕
				PRINTFORMW 「あらあら？もしかして私が入ると知ってて先回りしたのかしら？」
				PRINTFORMW 「モテるのよね、私も」
			ELSE
				PRINTFORMW 「気にすることないわ、一緒に入りましょう」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが風呂に入ってきて出て行った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 4
			IF TALENT:恋人
				PRINTFORMW 「邪魔したわね、ごめんなさいな」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「先客の邪魔をするつもりはないわ、またの機会にね」
			ELSEIF TALENT:思慕
				PRINTFORMW 「…失礼するわ」
			ELSE
				PRINTFORMW 「あら？役得かしら？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが風呂に入ってきて追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 5
			IF TALENT:恋人
				PRINTFORMW 「混浴はまたの機会にね♪」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「たまには一人でゆっくりしたいのよ、私は働き者の妖怪ですからね♪」
			ELSEIF TALENT:思慕
				PRINTFORMW 「…悪いけど、一人にしてもらうわ」
			ELSE
				PRINTFORMW 「レディファーストと言うでしょう？ごめんなさいね」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;外出先で遭遇した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 6
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:26:今日会ったか
				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_K26
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「…貴方には興味ないからさっさと去れ」
				;屋外かつ満月
				ELSEIF NAME_MOON(DAY:3) == "十五夜 -中秋の名月- " && OPENPLACE(CFLAG:MASTER:現在位置) >= 2
					PRINTFORMW 「あら？%CALLNAME:MASTER%」
					PRINTFORMW 「何をしているのかって？」
					PRINTFORMW 「―――月が奇麗だから、見ていたのよ」
				ELSEIF TALENT:恋人
					IF RAND:3 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、暇なら付き合ってもらえないかしら？」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、探したわよ、今日はどこへ行くのかしら？」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%、私に会いに来てくれたの？」
						PRINTFORMW 紫は小さく手を振りながら%CALLNAME:MASTER%に挨拶をした。
						PRINTFORMW 「私の眼はなんでもお見通しですからね、%CALLNAME:MASTER%%UNICODE(0x2665) *1%」
					ENDIF
				ELSEIF TALENT:恋慕
					IF RAND:3 == 0
						PRINTFORMW 「何をしているのかしら、%CALLNAME:MASTER%」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、また会えたわね、嬉しいわ」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%、元気にしてた？」
						PRINTFORMW 紫は%CALLNAME:MASTER%に気づくと元気に挨拶をしてきた。
						PRINTFORMW 「私は元気だけど、何かしたいことってある？」
					ENDIF
				ELSEIF TALENT:思慕
					IF RAND:3 == 0
						PRINTFORMW 「逢えて嬉しいわ、%CALLNAME:MASTER%」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、こんなところで何を？」
					ELSE
						PRINTFORMW 「わっ！」
						PRINTFORMW 紫はそう声を上げながらクスクスと笑いつつ声をかけてきた。
						PRINTFORMW 「驚かせてみたかっただけよ、驚かないでね」
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「あら、%CALLNAME:MASTER%、五体満足のようね」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「%CALLNAME:MASTER%、ご機嫌いかがかしら？」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%、奇遇ね」
						PRINTFORMW 「偶然かしら？それとも必然？」
					ENDIF
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとデート中に遭遇した
		;ARG:1にデート相手
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 7
			;仕事中、今日会ってない。
			IF CFLAG:行動 == 5 && !TCVAR:26:今日会ったか
				PRINTFORMW 「今、仕事中だから、邪魔しないでね」
			ELSE
				;怒り
				IF CFLAG:318 == 1
					PRINTFORMW 「……ああ、怒っているのね、私」
				ELSEIF CFLAG:318 == 1 && TALENT:恋慕 && ARG:1 == 1
				;怒り 恋慕時 デート相手が霊夢
					PRINTFORMW 「……霊夢とデートだなんて、当てつけかしら？」
				;怒り 恋慕時 デート相手が妖夢
				ELSEIF CFLAG:318 == 1 && TALENT:恋慕 && ARG:1 == 23
					PRINTFORMW 「……妖夢も趣味が悪いわね」
				;怒り 恋慕時 デート相手が橙
				ELSEIF CFLAG:318 == 1 && TALENT:恋慕 && ARG:1 == 24
					PRINTFORMW 「……ロリコンめ」
				;怒り 恋慕時 デート相手が藍
				ELSEIF CFLAG:318 == 1 && TALENT:恋慕 && ARG:1 == 25
					PRINTFORMW 「……藍、いつからそんなに趣味が悪くなったのかしら？」
				;怒り 恋慕時 デート相手が天子
				ELSEIF CFLAG:318 == 1 && TALENT:恋慕 && ARG:1 == 34
					PRINTFORMW 「……本当に、趣味が悪いのね」
				;怒り 恋慕時 デート相手が華扇
				ELSEIF CFLAG:318 == 1 && TALENT:恋慕 && ARG:1 == 43
					PRINTFORMW 「……こちら側ではなかったか」
				;怒り 恋慕時 デート相手が幽々子
				ELSEIF CFLAG:318 == 1 && TALENT:恋慕 && ARG:1 == 66
					PRINTFORMW 「……幽々子、友人としての忠告だけど、やめた方がいいわよそいつ」
				;怒り 恋慕時 デート相手が隠岐奈
				ELSEIF CFLAG:318 == 1 && TALENT:恋慕 && ARG:1 == 124
					PRINTFORMW 「……外堀から埋めるってやつ？」
				ELSEIF TALENT:恋慕 && ARG:1 == 1
				;恋慕時 デート相手が霊夢
					PRINTFORMW 「あら？私より霊夢の方がいいのかしら？」
				;恋慕時 デート相手が妖夢
				ELSEIF TALENT:恋慕 && ARG:1 == 23
					PRINTFORMW 「妖夢も男を知ったのね」
				;恋慕時 デート相手が橙
				ELSEIF TALENT:恋慕 && ARG:1 == 24
					PRINTFORMW 「ふふっ、橙に嫉妬してしまうなんてね」
				;恋慕時 デート相手が藍
				ELSEIF TALENT:恋慕 && ARG:1 == 25
					PRINTFORMW 「藍、貴方も隅に置けないわねぇ」
				;恋慕時 デート相手が天子
				ELSEIF TALENT:恋慕 && ARG:1 == 34
					PRINTFORMW 「相も変わらず忌々しい…そうまでして私から奪いたいか…！」
				;恋慕時 デート相手が華扇
				ELSEIF TALENT:恋慕 && ARG:1 == 43
					PRINTFORMW 「仙人ともあろうものが色欲に感けていいの？」
				;恋慕時 デート相手が幽々子
				ELSEIF TALENT:恋慕 && ARG:1 == 66
					PRINTFORMW 「幽々子、よき友人で、ライバルね」
				;恋慕時 デート相手が隠岐奈
				ELSEIF TALENT:恋慕 && ARG:1 == 124
					PRINTFORMW 「お互いいい趣味ねぇ…」
				ELSEIF TALENT:恋人
					PRINTFORMW 「色欲に塗れるのも構わないけど、私のことも忘れないでね」
				ELSEIF TALENT:恋慕
					PRINTFORMW 「…そう、私ではないのね」
				ELSEIF TALENT:思慕
					PRINTFORMW 「邪魔者は退散した方がいいかしら？」
				ELSE
					PRINTFORMW 「あら？お邪魔だったかしら？」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;特別な日イベント用関数
;==================================================
;-------------------------------------------------
@SPECIALDAY_EVENT_K26
;-------------------------------------------------
	;謹賀新年
	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_K26_2(ARG,ARG:1)
CALL MESSAGE_GOODMONING(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 「もう少し寝ていても良かったのよ？可愛らしくね♪」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%、起きたのね」
			PRINTFORMW 紫はそう言って朝の挨拶をしてきた。
			PRINTFORMW 「このままゆっくり寝顔を見ていても良かったのだけれどね」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%、おはよう♪」
			PRINTFORMW 紫はそう言って朝の挨拶をしてきた。
			PRINTFORMW 「もう昼かしら？時間の感覚が鈍ると困るのよね」
		ELSE
			PRINTFORMW 「裸エプロンでご飯でも作っていた方が良かったかしら？」
			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 「もう少し寝ていても良かったのよ？可愛らしくね♪」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%、起きたのね」
			PRINTFORMW 紫はそう言って朝の挨拶をしてきた。
			PRINTFORMW 「このままゆっくり寝顔を見ていても良かったのだけれどね」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%、おはよう♪」
			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 紫は幸せそうに眠りこけている。
			PRINTFORMW 「こっちは相変わらずね――」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「くぅ…すぅ…」
			PRINTFORMW 紫は眠りこけている。
			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 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		IF TALENT:恋人
			PRINTFORMW 「ふわぁ～、あら？寝坊しちゃったかしら？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「ふわぁ～%CALLNAME:MASTER%、おはよう♪」
		ELSEIF TALENT:思慕
			PRINTFORMW 「ふわぁ～%CALLNAME:MASTER%、おはよう」
		ELSE
			PRINTFORMW 「ふわぁ～あら？早起きなのね」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	;PRINTFORMW 「あら、おはよう、%CALLNAME:MASTER%」
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORMW 「それじゃあ、おやすみなさい」
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;他者介入でムード変化
;==================================================
@M_KOJO_EVENT_K26_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_K26_6(ARG,ARG:1)
;口上主はTARGET
;ARGに情事相手
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=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
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=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
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORMW 「私のスキマもあるというのになぁんでこんなもの持ち歩いているんだか」
		PRINTFORMW 「もしかしてそういう趣味？」
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;押し倒した
;==================================================
@M_KOJO_EVENT_K26_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
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		IF TALENT:恋人
			PRINTFORMW 「%CALLNAME:MASTER%」
			PRINTFORMW %CALLNAME:MASTER%の名を呼びながら紫は%CALLNAME:MASTER%を押し倒した。
			PRINTFORMW 「好き」
			PRINTFORMW そう言いながら紫は%CALLNAME:MASTER%の服を脱がし、肌を密着させてくる。
			PRINTFORMW 「ねえ、溶け合いましょう、身も心も総て一つに」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%…」
			PRINTFORMW 紫は笑みを浮かべながら%CALLNAME:MASTER%に密着してくる。
			PRINTFORMW 「私では…ダメ…？」
			PRINTFORMW そう言いながら彼女は%CALLNAME:MASTER%の首筋に甘噛みをしてきた。
		ELSE
			PRINTFORMW 「…ねえ…」
			PRINTFORMW 紫は%CALLNAME:MASTER%を組み敷くと
			PRINTFORMW 「…悪い妖怪に食べられてしまうって思ったこと、無い？」
			PRINTFORMW 紫は弱々しく%CALLNAME:MASTER%を愛撫しながら情欲を誘っている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;好きにして状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW 「私に好きにさせる貴方が悪いわ」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORMW 「まだ…ダメ…」
			RETURN 1
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF (DAY:2 == 4 && DAY:3 == 30)
			IF RAND:3 == 0
				PRINTFORMW 「ああ…忙しい」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「藍にばかり任せられないもの」
			ELSE
				PRINTFORMW 「私は一体何をしているのでしょうか？」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF (DAY:2 == 4 && DAY:3 == 30)
			IF RAND:3 == 0
				PRINTFORMW 「こんなことをしているのよ、私、合理的ではないわね」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「階層が入り組んでるわね、まるで中身が見えない箱にスパゲッティをぶち込んだみたいな」
			ELSE
				PRINTFORMW 「異物は排除しないと」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF (DAY:2 == 4 && DAY:3 == 30)
			IF RAND:3 == 0
				PRINTFORMW 「はー終わった、寝ましょう」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「疲れたわね、賽の河原ではないけど」
			ELSE
				PRINTFORMW 「修正が必要だったわね」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

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

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 「もっと…繋がっていたいわ…」
			PRINTFORMW 「ずっとずっと…」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…%CALLNAME:MASTER%の温もり…もっと感じていたいのに…」
			PRINTFORMW 紫は名残惜しげに体を離していった。
		ELSEIF TALENT:思慕
			PRINTFORMW 「…もう少し…いえ、なんでもありませんわ」
		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
			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_K26_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_K26_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K26_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K26_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 彼女はそう言いながら%CALLNAME:MASTER%の手を取り
		PRINTFORMW 「それがここの役割なんですもの、帳が降り、また上がってもステージはステージでしかないもの」
		PRINTFORMW 踊るように%CALLNAME:MASTER%の首に手を回し―――
		PRINTFORMW 「代わるのは演者、ではあなたは？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「ま、霊夢も明け渡しはしないでしょうねぇ」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K26_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF CFLAG:318 == 1
			PRINTFORMW 「…」
			PRINTFORMW 紫はいつの間にか消え去っていった。
		ELSEIF TALENT:恋人
			PRINTFORMW 「見送りだなんて、嬉しいわ」
			PRINTFORMW 「…そういうところ、好きよ%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「わざわざ玄関から帰る意味もあるわね」
		ELSEIF TALENT:思慕
			PRINTFORMW 「この辺りでいいわ、じゃあね」
		ELSE
			PRINTFORMW 「あんまりスキマに入るところを見られたくはないわね…」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K26_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K26_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K26_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K26_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K26_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K26_26(ARG,ARG:1)

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

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K26_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 「楽しい夜になるといいわね、%CALLNAME:MASTER%」
			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 「今日は一日、%CALLNAME:MASTER%と過ごせるわね♪」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「ふふっ後悔してもだめよ？」
			ELSEIF TALENT:思慕
				PRINTFORMW 「%CALLNAME:MASTER%、怖いもの知らずねぇ」
			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_K26_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
				PRINTFORMW 「あら？興奮した？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
				PRINTFORMW 「あんまり男の人の好みの下着ではないかもしれないけど…」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
				PRINTFORMW 「こっちのプレイの方が興奮するの？」
			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
					PRINTFORMW 「%CALLNAME:MASTER%のも頂きたいですわね、神様への供物にしたら面白いかもしれませんし」
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「これでオナニーでもするの？それはそれで興奮するかもしれないわ」
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「まあ…いいですけど…」
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「ええー嫌よ、変態さん」
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

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

;==================================================
;相手が押し倒しを解除
;==================================================
@M_KOJO_EVENT_K26_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_K26_31(ARG,ARG:1)
;口上主はTARGET
;ARGは会ってない日数
;何日以上会ってなかったら愚痴を言うとかできます
;CFLAG:オナバレで分岐入れてもよさそう
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;今日会っていない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今日会っている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

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

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

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

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

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

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

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

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

repo_name: akadiya/eratw

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

license: unknown