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

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;今は使ってないです。
;CFLAG:90:1300
;CFLAG:90:1301
;
;******************************************************************************

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

;RESULTS = _TEST_

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

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

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

;CFLAG:X:眠姦口上有 = 0
;CFLAG:X:時間停止口上有 = 0

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

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

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K90
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
PRINTFORMW 「ハァイ！そこなお兄さん」
PRINTFORMW 突然呼び止められた%CALLNAME:MASTER%は振り返るとショートボブのふんわりした青い髪にノミのようなもので髪を止めた美女がいた。
PRINTFORMW 「あなた、面白い能力をお持ちの人ですわね？」
		$INPUT_LOOP0
		PRINTL [0]はい
		PRINTL [1]いいえ
		INPUT
		SELECTCASE RESULT
		CASE 0
	PRINTFORMW 「やはり私の見立てに間違い無いわね」
	PRINTFORMW 「私は霍、霍青娥と申します」
	PRINTFORMW 「今はそうですね…しがない仙人をやっておりますわ」
	PRINTFORMW 「仙人といえば不老長寿、頭脳明晰、金剛不壊。大体そういう感じです」
	PRINTFORMW 「あなたは―――同じような者ではないけれど、似たような物を持っているようね」
	PRINTFORMW 「使い方次第では不老不死になれるかもしれませんね」
	PRINTFORMW 「まあ今日はお近づきということで以後お見知りおきを」
;		CFLAG:90:1300 = 1
			CASE 1
	PRINTFORMW 「いえいえ、謙遜しなくても、能ある鷹は爪を隠す、というやつですわね」
	PRINTFORMW 「そして私もそういった物を見抜く力を持っておりますの」
	PRINTFORMW 「貴方、普通の人間じゃ無いわね？」
	PRINTFORMW 「そういうの私、興味ありますの、力の強い殿方なんて特に…」
	PRINTFORMW 「惹かれてしまいますわ♪」
	PRINTFORMW 「ああ、私は霍青娥、仙人をやっております」
	PRINTFORMW 「決して怪しい者ではありませんので以後お見知りおきを」
;		CFLAG:90:1301 = 1
		CASEELSE
		GOTO INPUT_LOOP0
		ENDSELECT
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K90_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORMW 「ねえねえ、%CALLNAME:MASTER%」
	PRINTFORMW 青娥はそう言ってノミで%CALLNAME:MASTER%の肩を叩く。
	PRINTFORMW 「あら、そんなに驚かなくてもいいのに…」
	PRINTFORMW 「ってまあいいわ、それよりね、」
	PRINTFORMW
	PRINTFORMW 「んっ…と…」
	PRINTFORMW
	PRINTFORMW 青娥は%CALLNAME:MASTER%の唇を奪った。
	PRINTFORMW 「私、こういうの、初めて」
	PRINTFORMW 「…嘘じゃないわ、本当よ」
	PRINTFORMW %CALLNAME:MASTER%が呆然としていると
	PRINTFORMW 「次は大人のキスをしましょう」
	PRINTFORMW 青娥はそう言って怪しい笑みを浮かべながら去っていった。
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K90_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(1090)
				PRINTFORMW 帰り際、青娥は%CALLNAME:MASTER%の袖を引っ張って歩みを止めさせた。
				PRINTFORMW 「ねえ、%CALLNAME:MASTER%、」
				PRINTFORMW 「私、好きな人がいるの」
				PRINTFORMW 「冗談じゃないわ、嘘でもない」
				PRINTFORMW 「%CALLNAME:MASTER%のこと好きになってしまって―――」
				PRINTFORMW 「…私みたいな女がって思われるかもしれない」
				PRINTFORMW 「でもね、もう、こんな想いはしたくない、人を愛することなんてしたくないって思っても」
				PRINTFORMW 「%CALLNAME:MASTER%にだけは―――」
				PRINTFORMW 「…上手く言えなくてごめんなさい」
				PRINTFORMW 「でも、今日は本当の事言える気がするわ」
				PRINTFORMW 「私、%CALLNAME:MASTER%が好きなの」
				PRINTFORMW 「%CALLNAME:MASTER%が他の誰を好きでもかまわない」
;				PRINTFORMW 「もしかしたら私は%CALLNAME:MASTER%を捨てるかもしれない」
;				PRINTFORMW 「%CALLNAME:MASTER%を玩具にするかもしれない」
				PRINTFORMW 「でも…」
				PRINTFORMW 「ずっとそばにいるよって」
				PRINTFORMW 「囁いてくれないかしら、私、それだけでいいの…」
				PRINTFORMW 「…それだけで…」
				PRINTFORMW 青娥は袖から手を離し胸を押さえてそう告白した。
			;二回目の告白
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%、あのね」
				PRINTFORMW 帰路に着くと青娥は恐る恐る口を開いた。
				PRINTFORMW 「諦める度に諦めきれなくて」
				PRINTFORMW 「もう一度告白するわ」
				PRINTFORMW 「%CALLNAME:MASTER%のことが好きです」
				PRINTFORMW 「私と付き合ってもらえませんか…？」
				PRINTFORMW 「%CALLNAME:MASTER%のためならなんだってする」
				PRINTFORMW 「…お願いよ」
			ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「…私は」
		PRINTFORMW 青娥はそのまま%CALLNAME:MASTER%の胸に飛び込み
		PRINTFORMW 「%CALLNAME:MASTER%を…何があっても愛します…」
		PRINTFORMW 暫くの間そのまま%CALLNAME:MASTER%の胸を掴み抱かれていた。
		PRINTFORMW 「例え…死に別れたとしても…」
		PRINTFORMW %CALLNAME:MASTER%は少し寒気を感じながらも彼女を抱きとめていた。
		PRINTFORMW 「一度―――」
		;PRINTFORMW 「死体になってしまえば、もう死なないもの」
		PRINTFORMW 彼女は何か言ったようだが%CALLNAME:MASTER%は聞きそびれてしまった。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「…そう、わかったわ…」
		PRINTFORMW 青娥は涙を見せないようにしながら後ろを向いた。
		PRINTFORMW （道化ね、私）
		PRINTFORMW 拍手の無い星空で彼女はしばらく立ち尽くしていた。
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K90_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(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 「今日は楽しかったですわ%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥はそう言って無邪気に微笑んだ。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…じゃあこれでお開きね…」
			PRINTFORMW 「また、こういうことしましょう」
		ELSEIF TALENT:思慕
			PRINTFORMW 「今日は良い日ね」
			PRINTFORMW 「またデートしましょう」
		ELSE
			PRINTFORMW 「ふぅ…疲れたわね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORMW 「別にもう怒ってないわ」
			PRINTFORMW 「%CALLNAME:MASTER%のこと、私も意地になって…」
			PRINTFORMW 「ごめんなさい」
		ELSE
			PRINTFORMW 「もう怒ってないから気にしなくていいわ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「…」
			PRINTFORMW 「まだ私怒ってるから…」
			PRINTFORMW 青娥はにこやかにそう言い放った。
		ELSE
			PRINTFORMW 「少しだけ許してあげるけど、まだ怒ってるからね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORMW 「…そう簡単に赦すわけには行かないけど」
			PRINTFORMW 「ほんのすこしだけ許してあげるわ」
			PRINTFORMW 青娥は%CALLNAME:MASTER%の胸を指で突きながらそう言った。
		ELSE
			PRINTFORMW 「…まあ勘弁してやらないでもないわ」
		ENDIF
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K90_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;今日会ってない。
	IF !TCVAR:90:今日会ったか
		;-------------------------------------------------
		;小分岐
		;-------------------------------------------------
		;MASTERが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 1
			;仕事中、今日会ってない。
			IF !CFLAG:行動 == 5 && !TCVAR:90:今日会ったか
				PRINTFORMW 「あら？%CALLNAME:MASTER%、生憎と今手が離せなくて…」
			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_K90
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「…あら、%CALLNAME:MASTER%さんではありませんか」
					PRINTFORMW 「あまりこちらを見ないでくださいな、気持ち悪いですから」
				ELSEIF TALENT:恋人
					PRINTFORMW 「あら？%CALLNAME:MASTER%じゃないですか%UNICODE(0x2665) *1%」
					PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと小さく手を振って元気に挨拶をしてきた。
					PRINTFORMW 「今日はなにをしているのかしら…%UNICODE(0x2665) *1%」
				ELSEIF TALENT:恋慕
					PRINTFORMW 「あらあら%CALLNAME:MASTER%さん？」
					PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと近づいてきた。
					PRINTFORMW 「今日は何をしていまして…？」
					PRINTFORMW 吐息が当たるような距離で%CALLNAME:MASTER%の隣で腕を取ってきている。
				ELSEIF TALENT:思慕
					PRINTFORMW 「ハーイ！%CALLNAME:MASTER%さん♪」
					PRINTFORMW 「今お暇でしょうか？是非お茶でも…」
					PRINTFORMW 青娥は怪しい笑みを浮かべながら取り入ってきている。
				ELSE
					PRINTFORMW 「あら、%CALLNAME:MASTER%さん、お元気そうで」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 2
			;仕事中、今日会ってない。
			IF !CFLAG:行動 == 5 && !TCVAR:90:今日会ったか
				PRINTFORMW 「あら？%CALLNAME:MASTER%、生憎と今手が離せなくて…」
			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_K90
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「…あら、%CALLNAME:MASTER%さん」
					PRINTFORMW 「相変わらず薄気味悪いですわね」
				ELSEIF TALENT:恋人
					PRINTFORMW 「%CALLNAME:MASTER%、こんなところにいたのね」
					PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと小さく手を振って挨拶をしてきた。
					PRINTFORMW 「今日は何をして頂けるのかしら%UNICODE(0x2665) *1%」
				ELSEIF TALENT:恋慕
					PRINTFORMW 「あらあら%CALLNAME:MASTER%さんではありませんか」
					PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと近づいてきた。
					PRINTFORMW 「ねえ、今何をなさっているの？」
					PRINTFORMW 吐息が当たるような距離で%CALLNAME:MASTER%の隣で腕を取ってきている。
				ELSEIF TALENT:思慕
					PRINTFORMW 「YEAH！%CALLNAME:MASTER%さん！」
					PRINTFORMW 「相変わらず暇そうですわね」
					PRINTFORMW 青娥は怪しい笑みを浮かべながら挨拶をしてきた。
				ELSE
					PRINTFORMW 「あら、%CALLNAME:MASTER%さん、こんなところに」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが風呂に入ってきて一緒に入る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 3
			IF CFLAG:318 == 1
				PRINTFORMW 「…こちらを見ないでくださいまし」
			ELSEIF TALENT:恋人
				PRINTFORMW 「%CALLNAME:MASTER%、お風呂に入っていたのね」
				PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと体を腕で隠しながら一緒に入ってきた。
				PRINTFORMW 「…背中…流してあげますわ%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「あらあら%CALLNAME:MASTER%さん、入っていらしたの」
				PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと風呂に入ってきた。
				PRINTFORMW 「…あんまり見ないでくださいな…興奮してしまいますわ…%UNICODE(0x2665) *1%」
				PRINTFORMW 青娥は顔を赤らめながら体をくねくねと揺らしている。
			ELSEIF TALENT:思慕
				PRINTFORMW 「%CALLNAME:MASTER%さん、こんなところで出会うなんて意外ですわ」
				PRINTFORMW 「それにしても…以外と大きいのですね…%UNICODE(0x2665) *1%」
				PRINTFORMW 青娥は顔を赤らめながら%CALLNAME:MASTER%の体を横目に見ている。
			ELSE
				PRINTFORMW 「あらあら、先に入られていましたか」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが風呂に入ってきて出て行った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 4
			IF CFLAG:318 == 1
				PRINTFORMW 「…あら、失礼」
			ELSEIF TALENT:恋人
				PRINTFORMW 「%CALLNAME:MASTER%、先に入ってたのね」
				PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと扉を閉めて出ていこうとした。
				PRINTFORMW 「失礼、ごゆっくりどうぞ%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%さん、ここでしたのね」
				PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと風呂から出ていった。
				PRINTFORMW 「あまり視姦される趣味はありませんので…%UNICODE(0x2665) *1%」
				PRINTFORMW 青娥は顔を赤らめながら扉を閉めた。
			ELSEIF TALENT:思慕
				PRINTFORMW 「%CALLNAME:MASTER%さん、入っていらしたのね…」
				PRINTFORMW 「あまり邪魔をしたくありませんので…%UNICODE(0x2665) *1%」
				PRINTFORMW 青娥は顔を赤らめながら風呂を出ていった。
			ELSE
				PRINTFORMW 「あら、失礼」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが風呂に入ってきて追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 5
			IF CFLAG:318 == 1
				PRINTFORMW 「…申し訳ないけど、出ていってもらえませんこと？」
			ELSEIF TALENT:恋人
				PRINTFORMW 「%CALLNAME:MASTER%、ごめんなさい…一人で入りたいのだけれど…」
				PRINTFORMW 青娥は申し訳なさそうに%CALLNAME:MASTER%を追い出した。
				PRINTFORMW 「この埋め合わせは、絶対にしますから…ね%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%さん、入っていらしたのね」
				PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと%CALLNAME:MASTER%を追い出そうとしてきた。
				PRINTFORMW 「今日は一人で入りたい気分なのよ…ね♪」
				PRINTFORMW ね♪じゃねーよと思いながら%CALLNAME:MASTER%は風呂場から追い出された。
			ELSEIF TALENT:思慕
				PRINTFORMW 「あら、先客が…」
				PRINTFORMW 「出来たら…私めに譲っていただけませんか？」
				PRINTFORMW 青娥は全裸の%CALLNAME:MASTER%に体を押し付けながら風呂場から追い出した。
			ELSE
				PRINTFORMW 「私に湯船を譲っていただけませんこと？」
				PRINTFORMW 青娥はそう言って%CALLNAME:MASTER%を追い出した。
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;外出先で遭遇した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 6
			;仕事中、今日会ってない。
			IF !CFLAG:行動 == 5 && !TCVAR:90:今日会ったか
				PRINTFORMW 「あら？%CALLNAME:MASTER%、生憎と今手が離せなくて…」
			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_K90
				ELSEIF CFLAG:318 == 1
					PRINTFORMW 「…あら、奇遇ですわね」
					PRINTFORMW 青娥はこちらを睨みつけながら挨拶してきた。
				ELSEIF TALENT:恋人
					PRINTFORMW 「%CALLNAME:MASTER%、元気そうね」
					PRINTFORMW 青娥は小さく手を振りながら%CALLNAME:MASTER%に挨拶をした。
					PRINTFORMW 「ねえ、今日は…何をしますの%UNICODE(0x2665) *1%」
				ELSEIF TALENT:恋慕
					PRINTFORMW 「%CALLNAME:MASTER%さん、お元気？」
					PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと元気に挨拶をしてきた。
					PRINTFORMW 「今日は私…時間がありますの、デートでもしていただけないかしら…」
				ELSEIF TALENT:思慕
					PRINTFORMW 「あら、%CALLNAME:MASTER%さん、元気そうでなにより」
					PRINTFORMW 「暇でしたら付き合ってくださらない？%CALLNAME:MASTER%といると退屈しませんのでね」
				ELSE
					PRINTFORMW 「YEAH！元気そうですわね」
					PRINTFORMW 青娥はそう言って%CALLNAME:MASTER%の耳に息を吹きかけた。
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとデート中に遭遇した
		;ARG:1にデート相手
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 7
			;仕事中、今日会ってない。
			IF !CFLAG:行動 == 5 && !TCVAR:90:今日会ったか
				PRINTFORMW 「あら？%CALLNAME:MASTER%、生憎と今手が離せなくて…」
			ELSE
				IF CFLAG:318 == 1
					PRINTFORMW 「…ふん、モテるのね」
					PRINTFORMW 青娥はこちらを睨みつけながら嫌味を言った。
				ELSEIF TALENT:恋人
					PRINTFORMW 「%CALLNAME:MASTER%、浮気かしら？」
					PRINTFORMW 青娥は悲しそうな顔をしながら握り拳を作っている。
					PRINTFORMW 「まあ、英雄色を好むとも言いますし…私が不甲斐ないというのは悲しいですわ…」
				ELSEIF TALENT:恋慕
					PRINTFORMW 「%CALLNAME:MASTER%…デートの最中ですの？」
					PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと少し笑みを崩しながら微笑んだ。
					PRINTFORMW 「羨ましいですわね」
				ELSEIF TALENT:思慕
					PRINTFORMW 「あら、お邪魔ですわね」
					PRINTFORMW 青娥はそう言いながらも怪しい笑みを浮かべている。
				ELSE
					PRINTFORMW 「YEAH！熱々ですわね♪」
					PRINTFORMW 青娥はそう言って%CALLNAME:MASTER%の腕に絡みついてくる。
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;特別な日イベント用関数
;==================================================
;-------------------------------------------------
@SPECIALDAY_EVENT_K90
;-------------------------------------------------
	;謹賀新年
	IF DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1
		IF TALENT:恋人
			PRINTFORMW 「明けましておめでとうございます%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥はそう言って新年の挨拶をしてきた。
			PRINTFORMW 「今年も楽しい一年になるといいですわね%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「明けましておめでとうございます%UNICODE(0x2665) *1%」
			PRINTFORMW 突然現れた青娥は新年の挨拶をしてきた。
		ELSEIF TALENT:思慕
			PRINTFORMW 「明けましておめでとうございます♪」
			PRINTFORMW 青娥は新年の挨拶をしてきた。
		ELSE
			PRINTFORMW 青娥は軽く新年の挨拶をしてきた。
			PRINTFORMW 「明けましておめでとう、今年は何をするのかしら？」
		ENDIF
	;バレンタインデー
	ELSEIF DAY:2 == 4 && DAY:3 == 14 && CFLAG:2 >= 1000
		IF TALENT:恋人
			PRINTFORMW 「%CALLNAME:MASTER%、今日は何の日か知ってる？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%、渡したいものがありますの」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%、プレゼントがあるの」
		ELSEIF CFLAG:2 >= 1000
			PRINTFORMW 「%CALLNAME:MASTER%、」
			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 「…大丈夫、何も入っていませんわ♪強いて言えば私の愛が入っていますけど…%UNICODE(0x2665) *1%」
			ELSE
				PRINTFORMW 「はい、バレンタインのチョコレート」
				PRINTFORMW そう言いながら青娥はチョコレートを渡してきた。
				PRINTFORMW 「奮発したのよ？美味しく食べてね♪」
			ENDIF
		ENDSELECT
	;ハロウィン
	ELSEIF DAY:2 == 3 && DAY:3 == 30
		IF TALENT:恋人
			PRINTFORMW 「トリックオアトリート%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥は%CALLNAME:MASTER%のいきなり目の前に飛び出して勢いよく話しかけてきた。
			PRINTFORMW 「%CALLNAME:MASTER%、悪戯するのとされるのはどちらが好きかしら%UNICODE(0x2665) *1%」
			PRINTFORMW 「私はどちらも好きですわ%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「トリック・オア・トリート！ですわ%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥は%CALLNAME:MASTER%のいきなり目の前に飛び出して勢いよく話しかけてきた。
			PRINTFORMW 「ねえ、%CALLNAME:MASTER%はどんな悪戯をしてくださるのかしら？」
			PRINTFORMW 悪戯っぽい笑みを浮かべながら青娥は%CALLNAME:MASTER%の身体に触れてくる。
			PRINTFORMW
		ELSEIF TALENT:思慕
			PRINTFORMW 「トリック・オア・トリート！」
			PRINTFORMW 青娥はそう言って後ろから脅かしてきた。
			PRINTFORMW 「ああん%UNICODE(0x2665) *1%持ち合わせがなくて悪戯されてしまいますわ…♪」
			PRINTFORMW …よくわからないがノリノリである。
		ELSE
			PRINTFORMW 「トリック・オア・トリート！」
			PRINTFORMW 青娥は後ろから挨拶をかましてきた。
			PRINTFORMW 「今日は色んな人に悪戯する日ですわ！腕が鳴りますわね！」
			PRINTFORMW どうも彼女は何か勘違いをしているようだ…
		ENDIF
	;クリスマス
	ELSEIF DAY:2 == 4 && DAY:3 == 25
		IF TALENT:恋人
			PRINTFORMW 「メリークリスマス！」
			PRINTFORMW 青娥は意気揚々と%CALLNAME:MASTER%に話しかけてくる。
			PRINTFORMW 「ねえ…クリスマスデートってどうかしら？」
			PRINTFORMW そう言いながらデートに誘ってきた。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%、今日は暇かしら？」
			PRINTFORMW 青娥はそう言って話しかけてきた。
			PRINTFORMW 「…クリスマスですもの、好きな人と一緒に居たいわ♪」
		ELSEIF TALENT:思慕
			PRINTFORMW 「%CALLNAME:MASTER%、暇かしら？」
			PRINTFORMW 青娥はそう言いながら話しかけてきた。
			PRINTFORMW 「私は大忙しですの、なんてったってクリスマスですからね！」
		ELSE
			PRINTFORMW 「メリークリスマス！」
			PRINTFORMW 青娥はそう言って話しかけてきた。
			PRINTFORMW 「はいこれ木彫りの見猿聞か猿言わ猿、その代わり何を貰おうかしら？」
		ENDIF
	ENDIF
;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K90_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 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW 「あら、お目覚めですか？」
			PRINTFORMW 「ん…もう少し寝顔、見せてもらいたかったですわね」
			PRINTFORMW 青娥はそう言って%CALLNAME:MASTER%の顔をマジマジと見つめている。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW 「あら、もう起きてしまいましたの？」
			PRINTFORMW 「もう少しこの部屋、片付けておこうと思いましたのに…」
			PRINTFORMW 青娥はそう言いながら%CALLNAME:MASTER%の部屋を見渡している。
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
			PRINTFORMW 「あら、朝ごはんの支度をしている最中だから、もう少し寝ていても良かったのに」
			PRINTFORMW 青娥はそう言いながら%CALLNAME:MASTER%にキスをしてきた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「くぅ…すぅ…」
		PRINTFORMW 青娥は未だ無防備に寝ている。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		IF CFLAG:318 == 1
			PRINTFORMW 「…おはよ！」
			PRINTFORMW 青娥はこちらを睨みつけながら朝の挨拶をしてきた。
		ELSEIF TALENT:恋人
			PRINTFORMW 「%CALLNAME:MASTER%、早起きですのね…」
			PRINTFORMW 青娥は少し情けない表情で服を着替えている。
			PRINTFORMW 「…こういうプレイもいいかもしれないですわね%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%…早いですわね」
			PRINTFORMW 青娥は%CALLNAME:MASTER%に気づくと少し笑みを崩しながら微笑んだ。
			PRINTFORMW 「あんまり着替えを見ないでくださいまし…恥ずかしいですから…」
		ELSEIF TALENT:思慕
			PRINTFORMW 「うーん…朝、早いのですわね…」
			PRINTFORMW 青娥はそう言いながら服を着替え初めた。
		ELSE
			PRINTFORMW 「おはよう、早いのね」
			PRINTFORMW 青娥はそう言いながら%CALLNAME:MASTER%の目の前で着替え始めた。
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K90_3(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 「…じゃあね！」
			PRINTFORMW 青娥はこちらを睨みつけながら帰っていった。
		ELSEIF TALENT:恋人
			PRINTFORMW 「%CALLNAME:MASTER%、おやすみなさい」
			PRINTFORMW 青娥は%CALLNAME:MASTER%の頬にキスをしながら帰っていった。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%…おやすみなさい」
			PRINTFORMW 青娥は%CALLNAME:MASTER%に挨拶をして帰っていった。
		ELSEIF TALENT:思慕
			PRINTFORMW 「では、私はそろそろ帰りますわ…」
			PRINTFORMW 青娥はそう言いながら帰っていった。
		ELSE
			PRINTFORMW 「おやすみなさい」
			PRINTFORMW 青娥はそう言って帰っていった。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「ん…まだ…大丈夫よ…」
			PRINTFORMW 青娥はそう言いながらも眠そうにしている。
		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 「ん…%CALLNAME:MASTER%…」
			PRINTFORMW 青娥は%CALLNAME:MASTER%の名前を呼びながら眠っている。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%…」
			PRINTFORMW 青娥は%CALLNAME:MASTER%の名前を呼びながら眠っている。
		ELSEIF TALENT:思慕
			PRINTFORMW 「…くぅ…すぅ…お父様…」
		ELSE
			PRINTFORMW 「…ん…すぅ…んっ」
			PRINTFORMW 青娥はすやすや眠っている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF CFLAG:318 == 1
			PRINTFORMW 「…疲れましたわ」
		ELSEIF TALENT:恋人
			PRINTFORMW 「%CALLNAME:MASTER%、体力ありますわね…%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥はつかれた様子で横になっている。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%…疲れたわ」
		ELSEIF TALENT:思慕
			PRINTFORMW 「ん…疲れた…」
		ELSE
			PRINTFORMW 「もう…激しいんだから…%UNICODE(0x2665) *1%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF CFLAG:318 == 1
			PRINTFORMW 「…全く世話の焼ける…！」
		ELSEIF TALENT:恋人
			PRINTFORMW 「%CALLNAME:MASTER%、もう…」
			PRINTFORMW 「こういうところは可愛気と言っても良いのかしらね%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%…起きなさい」
			PRINTFORMW 「もう…大きいのですから…自分で部屋まで…」
			PRINTFORMW 青娥はそう言いながらも満更でもなさそうに%CALLNAME:MASTER%を運んでいる。
		ELSEIF TALENT:思慕
			PRINTFORMW 「ん…大丈夫…ではないわね、これ」
		ELSE
			PRINTFORMW 「もう…男がへばってどうするのよ」
		ENDIF
		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 CFLAG:318 == 1
				PRINTFORMW 「…」
				PRINTFORMW 青娥は部屋に戻ってそのまま横になってしまった。
			ELSEIF TALENT:恋人
				PRINTFORMW 「%CALLNAME:MASTER%、一緒に寝てもらえない？」
				PRINTFORMW 「独りは…寂しいのですわ…%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%…」
				PRINTFORMW 「今日は…一緒に寝てくださらないかしら？」
			ELSEIF TALENT:思慕
				PRINTFORMW 「…やっぱり一緒に寝ましょう」
			ELSE
				PRINTFORMW 「今日はここで寝るのは…ダメ？」
				PRINTFORMW 青娥は微妙にしおらしく尋ねてきた。
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF CFLAG:318 == 1
				PRINTFORMW 「…出ていきなさい」
			ELSEIF TALENT:恋人
				PRINTFORMW 「%CALLNAME:MASTER%…」
				PRINTFORMW 青娥は%CALLNAME:MASTER%を追い出した。
				PRINTFORMW 余程眠かったのだろう。
			ELSEIF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%…出ていってもらえないかしら」
			ELSEIF TALENT:思慕
				PRINTFORMW 「あら、%CALLNAME:MASTER%と寝る趣味は無くてよ」
			ELSE
				PRINTFORMW 「もう寝るので出ていってくださる？」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K90_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 CFLAG:318 == 1
			PRINTFORMW 「………」
			PRINTFORMW 青娥は%CALLNAME:MASTER%のことをまるで無視している。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「何をしているのかしら…？」
		ELSEIF TALENT:思慕
			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_K90_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
	;その他（キャラ指定なし
	IF TALENT:恋人
		PRINTFORMW 「…あらあら…」
		PRINTFORMW 「でも安心して、まだ私はムラムラしていますわ%UNICODE(0x2665) *1%%UNICODE(0x2665) *1%%UNICODE(0x2665) *1%」
		PRINTFORMW 「…続き、どこでしよっか%UNICODE(0x2665) *1%」
	ELSEIF TALENT:恋慕
		PRINTFORMW 「あらあら…お邪魔虫ですわね」
	ELSEIF TALENT:思慕
		PRINTFORMW 「…こういう経験はあまりありませんことよ」
		PRINTFORMW 青娥はそう言いながら名残惜しげに体を離していった。
	ELSE
		PRINTFORMW 「…残念…ですわね…」
		PRINTFORMW 青娥はゆっくりと体を離した。
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF CFLAG:318 == 1
			PRINTFORMW 「…まるで猿ですわね」
		ELSEIF TALENT:恋人
			PRINTFORMW 「…あらあら…」
			PRINTFORMW 「私だけじゃご不満だったのですね…」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…あらあら、こんなところで…」
		ELSEIF TALENT:思慕
			PRINTFORMW 「雄と雌のまぐわう臭いが漂ってると想ったらまぁこんなところで」
		ELSE
			PRINTFORMW 「…あら？あらららら？」
			PRINTFORMW 青娥は面白いものを見てしまったという怪しい笑みを浮かべている。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:恋人
			PRINTFORMW 「私も…混ぜてもらえないかしら…」
			PRINTFORMW 「その女よりも気持ちよくしてあげますわ%UNICODE(0x2665) *1%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…なんだかムラムラしてきましたわ」
			PRINTFORMW 「私も混ぜてもらえませんこと？」
		ELSEIF TALENT:思慕
			PRINTFORMW 「なんだか私も混ぜてもらいたくなってしまいましたわ…」
		ELSE
			PRINTFORMW 「…乱交…というのも悪くはないかもしれませんわね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF CFLAG:318 == 1
			PRINTFORMW 「…馬鹿な人…」
		ELSEIF TALENT:恋人
			PRINTFORMW 「…悔しいですわね」
			PRINTFORMW 「私の女としての魅力が…そんな女に…」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…私、帰りますわ…」
		ELSEIF TALENT:思慕
			PRINTFORMW 「お幸せに、私は退散いたしますわ」
		ELSE
			PRINTFORMW 「…ふふーん、じゃあごゆるりと」
			PRINTFORMW 青娥は小さく手を振って帰っていった。
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K90_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 「…あら？」
			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 「…私だけでは満足できないの？」
			PRINTFORMW 「%CALLNAME:MASTER%の性欲はコントロールできそうに無いわね…%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 == 3
		IF TALENT:恋人
			PRINTFORMW 「…よかった…」
			PRINTFORMW 「…いや…噂になるのはあまりよくはないかも…」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…%CALLNAME:MASTER%は私だけのものですわ…」
		ELSEIF TALENT:思慕
			PRINTFORMW 「あんなののことは放って置いて続きをしませんこと？」
		ELSE
			PRINTFORMW 「さぁ、お邪魔虫はいなくなりましたし続きをしましょう♪」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

;==================================================
;パンツ没収された
;==================================================
@M_KOJO_EVENT_K90_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 「可愛らしい下着ですこと、どなたの下着かしら？」
		PRINTFORMW 「まあ、いいですわ」
		PRINTFORMW 「これは没収しておきますが次はバレないようにしなさい」
		PRINTFORMW 「次に見つけたらブン屋に垂れ込みますわよ？」
		PRINTFORMW 「それとも…わかってますわね？」
		PRINTFORMW 青娥は怪しい笑みを浮かべながらノミでつんつんと%CALLNAME:MASTER%の胸を突いてくる。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;遠距離移動中にパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORMW 「あら？」
		PRINTFORMW 青娥は%CALLNAME:MASTER%の隠し持っていたパンツをどこからか奪い取った。
		PRINTFORMW 「…こういった物を持ち歩く趣味があったのね…」
		PRINTFORMW 「可愛らしい下着ですこと、どなたの下着かしら？」
		PRINTFORMW 「まあ、いいですわ」
		PRINTFORMW 「これは没収しておきますが次はバレないようにしなさい」
		PRINTFORMW 「次に見つけたらブン屋に垂れ込みますわよ？」
		PRINTFORMW 「それとも…わかってますわね？」
		PRINTFORMW 青娥は怪しい笑みを浮かべながらノミでつんつんと%CALLNAME:MASTER%の胸を突いてくる。
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF TALENT:恋人
				PRINTFORMW 「ねえ%CALLNAME:MASTER%」
				PRINTFORMW 青娥は%CALLNAME:MASTER%を押し倒した！
				PRINTFORMW 「セックスしましょう%UNICODE(0x2665) *1%」
				PRINTFORMW 青娥は%CALLNAME:MASTER%の服を脱がせながら丁寧に全身を愛撫してく。
				PRINTFORMW 「抱きとめて、私を愛して…%UNICODE(0x2665) *1%」
				PRINTFORMW 「あなたの全てをくださいな…%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「ふふふっ%UNICODE(0x2665) *1%」
				PRINTFORMW 青娥は怪しい笑みを浮かべながら%CALLNAME:MASTER%を押し倒した。
				PRINTFORMW 「ねえ…エッチなこと…いっぱいしましょう…♪」
				PRINTFORMW 「いいでしょう別に減るもんじゃないですし…」
				PRINTFORMW 「それに適度な性行為は体にも良いのですわ♪」
				PRINTFORMW 青娥は%CALLNAME:MASTER%の胸板に頬ずりしながら妖艶に微笑んだ。
			ELSE
				PRINTFORMW 「…ねえ%CALLNAME:MASTER%…」
				PRINTFORMW 青娥は%CALLNAME:MASTER%を押し倒してきた。
				PRINTFORMW 「…%CALLNAME:MASTER%といるととってもエッチな気分になりますの」
				PRINTFORMW 青娥は%CALLNAME:MASTER%の下半身を弄りながら上にまたがっている。
				PRINTFORMW 「ふふっヨダレ垂らしちゃうぐらい気持ちいいのかしら？」
				IF TALENT:PLAYER:性別 & 2
					PRINTFORMW 「悪ーいおちんぽはこのまま食べちゃいましょう…%UNICODE(0x2665) *1%」
				ENDIF
				PRINTFORMW 青娥はそう言いながら%CALLNAME:MASTER%を思うがままにしようとしている…
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW 「…あらあら、もうお終い？」
			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 「…まだ私、欲求不満ですの%UNICODE(0x2665) *1%」
			RETURN 1
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_EVENT_K90_11(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 「…たまには一人でゆっくりとしたい時もあるのですわ%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥は少し申し訳なさそうに%CALLNAME:MASTER%を追い出した。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…今日は一人で風呂に入りたいのだけれど…」
			PRINTFORMW 青娥は申し訳なさそうに%CALLNAME:MASTER%を浴場から追い出した。
		ELSEIF TALENT:思慕
			PRINTFORMW 「ごめんなさい」
			PRINTFORMW 「すぐに上がると思うから、ね」
			PRINTFORMW 青娥は少し申し訳なさそうに%CALLNAME:MASTER%を追い出した。
		ELSE
			PRINTFORMW 「…私、裸を見せる趣味はありませんわ」
			PRINTFORMW 「出ていってくださらないかしら？」
			PRINTFORMW 青娥は顔を赤らめながら%CALLNAME:MASTER%を浴場から追い出した。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:318 == 1
			PRINTFORMW 「…こっち見ないでくださいまし！」
			PRINTFORMW 青娥はそう怒ったように怒鳴った。
		ELSEIF TALENT:恋人
			PRINTFORMW 「お風呂場で…というのも悪くないかしらね%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥は少し恥ずかしそうに%CALLNAME:MASTER%を見つめている。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…背中ぐらい流して差し上げますわ」
			PRINTFORMW 「それとも前の方も…洗ったほうがよろしくて？」
		ELSEIF TALENT:思慕
			PRINTFORMW 「…まあいいですけど」
			PRINTFORMW 「排水口が詰まるような真似は謹んでくださいまし」
		ELSE
			PRINTFORMW 「…あら、私と混浴したいって顔ですわね」
			PRINTFORMW 「構いませんわ、しっぽりと楽しみましょう」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K90_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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:恋人
			PRINTFORMW 「何？%CALLNAME:MASTER%、どうしたの？」
			PRINTFORMW 「入ってもいいわよ」
			PRINTFORMW 青娥は%CALLNAME:MASTER%を招き入れた。
		ELSE
			PRINTFORMW 青娥は寝床への侵入者に気づくと
			PRINTFORMW 「…入っていいですわよ」
			PRINTFORMW 妖艶に招き入れた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORMW 青娥は寝床への侵入者に気づくと
		PRINTFORMW 「今…疲れているのだけれど…まあいいわ」
		PRINTFORMW よろめきながらに招き入れた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		IF TALENT:恋人
			PRINTFORMW 「ごめんなさい、一人にしてもらえないかしら…」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「今日はダメなの…ごめんね」
		ELSEIF TALENT:思慕
			PRINTFORMW 「一人にしてもらえないかしら？」
		ELSE
			PRINTFORMW 「…一人にして頂戴な」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		IF TALENT:恋人
			PRINTFORMW 「疲れてるから…ごめんなさい」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「今日はもう疲れたから…帰ってもらえないかしら？」
		ELSEIF TALENT:思慕
			PRINTFORMW 「私、疲れてるから申し訳ないけど帰ってもらえる？」
		ELSE
			PRINTFORMW 「…帰ってちょうだい」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF RAND:3 == 0
			PRINTFORMW 「はーいじゃあ芳香ちゃんは裸になってね―♪」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「それじゃあ月一のメンテナンスを始めるわね」
		ELSE
			PRINTFORMW 「芳香ちゃん痛いところはないかしらー？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF RAND:3 == 0
			PRINTFORMW 「動かないでねー色々漏れちゃうわよー」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「お肌も綺麗にしてあげるからね」
		ELSE
			PRINTFORMW 「はーい、お口アーンしてねー」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF RAND:3 == 0
			PRINTFORMW 「点検終わり、もう動いてもいいわよ」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「これでもう大丈夫よ」
		ELSE
			PRINTFORMW 「芳香、動いても大丈夫よ」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;食事系
;==================================================
@M_KOJO_EVENT_K90_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_K90_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 FLAG:時間停止
			PRINTFORMW 凍てついた時の中で青娥を犯し終えた。
			PRINTFORMW 次は何をしてやろうか、妖艶な肉体を見ながらその場を離れていった。
		ELSEIF TALENT:恋人
			PRINTFORMW 「…ふぅ…%UNICODE(0x2665) *1%」
			PRINTFORMW 「激しいんだから…好きよ、そういうところ…%UNICODE(0x2665) *1%」
			PRINTFORMW 「…また、続き…しましょう…%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥は首筋にキスをしながら名残惜しげに体を離していった。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…もう終わりですの…？」
			PRINTFORMW 青娥は名残惜しげに体を離していった。
			PRINTFORMW 「ん…好きですわ…%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「…もう少し…このままではいけませんこと？」
			PRINTFORMW 青娥はそう言いながら名残惜しげに体を離していった。
		ELSE
			PRINTFORMW 「…これで…お終いですわね」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K90_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_K90_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 「んんっ%UNICODE(0x2665) *1%っ%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥は唐突な快感に身悶えしている。
			PRINTFORMW 「%CALLNAME:MASTER%が近くにいるから…%UNICODE(0x2665) *1%…感じてしまったのかもしれませんわ…%UNICODE(0x2665) *1%」
			PRINTFORMW 寒気のすることを言いながら青娥は顔を真っ赤にしている。
			PRINTFORMW （よくわからないけど…気持ちよかった…%UNICODE(0x2665) *1%）
		ELSE
			PRINTFORMW 「んん～%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥はビクッと体を震わせ
			PRINTFORMW 「何でも…ありませんわ♪」
			PRINTFORMW 必死に快楽に耐えている。
			PRINTFORMW （今のはなんですの…？）
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕
			PRINTFORMW 「んあっ%UNICODE(0x2665) *1%ダメっ%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥は唐突な絶頂にへたり込んでしまった。
			PRINTFORMW 「～%UNICODE(0x2665) *1%～%UNICODE(0x2665) *1%」
			PRINTFORMW そのまま顔を真っ赤に上気させぼうっとしている。
		ELSE
			PRINTFORMW 「っ%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥は快楽に体を震わせ
			PRINTFORMW 「あっ%UNICODE(0x2665) *1%んあっ%UNICODE(0x2665) *1%」
			PRINTFORMW 暫くの間へたり込んでいた。
			PRINTFORMW （何が…起きましたの？）
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「…あら？」
		PRINTFORMW 青娥は急にスカートの橋を手で抑えた。
		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 「…気持ちの悪い…」
				PRINTFORMW 青娥は至極不快そうな顔をしながらゆっくりと精液を飲み下した。
			ELSE
				PRINTFORMW 「…ん…うぇ…」
				PRINTFORMW 青娥は口の中に流し込まれた子種汁に慌てている。
				PRINTFORMW 「…んっ」
				PRINTFORMW 口内に残る子種を飲み下すと
				PRINTFORMW 「…まずいですわね」
				PRINTFORMW そう子種の味を評価した。
			ENDIF
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			PRINTFORMW 「！？」
			PRINTFORMW 「んっ…」
			PRINTFORMW 青娥は突然口内に現れたザーメンの臭いと苦味に顔をしかめながらも%CALLNAME:MASTER%に見えないように吐き出した。
			PRINTFORMW 「何でも…ありませんわ♪」
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			PRINTFORMW 「ん！？」
			PRINTFORMW 「…っ…っ…」
			PRINTFORMW 青娥は子種汁を流し込まれた口を押さえている…
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			PRINTFORMW 「…ん…んくっ…」
			PRINTFORMW 青娥は突然口の中に流し込まれたザーメンを飲み下した。
			PRINTFORMW 「…美味し…%UNICODE(0x2665) *1%…もっと飲みたいですわね%UNICODE(0x2665) *1%」
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			PRINTFORMW 「…ん！？」
			PRINTFORMW 青娥は突然口の中に流し込まれた濃厚な精液を吐き出した。
			PRINTFORMW 「…うぇ…もう！」
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			PRINTFORMW 「…！？」
			PRINTFORMW 青娥は突然口の中に流し込まれた濃厚なザーメンを恐る恐る飲み下した。
			PRINTFORMW 「…んっ…濃厚な雄の香り…%UNICODE(0x2665) *1%…もっと…%UNICODE(0x2665) *1%」
		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 「…ん…誰のかしら…%UNICODE(0x2665) *1%」
			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 「ん…ちゅ…悪くはない味ですわ…%UNICODE(0x2665) *1%」
			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 青娥は下半身から漏れ出る精液に取り乱しながら半泣きになっている。
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K90_18(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%の子供を産む心の準備が出来てないから…」
			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 「お願いだから、ね？」
			PRINTFORMW 青娥はそう言って避妊を要求してきた。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…ダメって言っているのだけれど」
			PRINTFORMW 「聞こえなかったかしら？」
		ELSE
			PRINTFORMW 「…避妊してほしいのだけれど」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORMW 「駄目って言ってるの！」
			PRINTFORMW 「馬鹿…」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…馬鹿ね」
			PRINTFORMW 「言ってることが分からないの？」
		ELSE
			PRINTFORMW 「いい加減にしないと殺すわよ」
		ENDIF
		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 「いいわ、子供作りましょう」
			PRINTFORMW 「何人作りたい？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「…馬鹿な人」
			PRINTFORMW 「まあでも満更でもありませんわ」
		ELSE
			PRINTFORMW 「責任は取ってもらいますわよ？」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K90_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 「%CALLNAME:MASTER%が来た時に散らかっていては申し訳ありませんもの…」
		PRINTFORMW 彼女はそう言いながら%CALLNAME:MASTER%の手を取った。
		PRINTFORMW 「…しばらくしたら…部屋に来てくださいまし…」
		PRINTFORMW 「お暇な時で構いませんから…」
		PRINTFORMW 青娥はそう言って嘆願した。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「むぅ…ケチくさいですわね…」
		PRINTFORMW 青娥は少し表情を崩しながら
		PRINTFORMW 「まぁ…%CALLNAME:MASTER%が言うのなら仕方ありませんわ…」
		PRINTFORMW 落胆したようにそう口にした。
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K90_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 「私、そろそろ帰りますわ%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 == 2
		IF CFLAG:318 == 1
			PRINTFORMW 「…さようなら」
			PRINTFORMW 青娥は怒気を含めた声を出しながら帰路についた。
		ELSEIF TALENT:恋人
			PRINTFORMW 「じゃあ、今日はこのへんで」
			PRINTFORMW 「…このままずっと付きっきりというのも悪くはないかもしれないけど」
			PRINTFORMW 青娥はそう言うと飛び去っていった。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「この辺りでお開きですわね、それじゃ」
			PRINTFORMW そう言うと青娥は飛び去っていった。
		ELSEIF TALENT:思慕
			PRINTFORMW 「この辺りでデートは終わりですわね、楽しかったわ」
			PRINTFORMW 青娥はそう言って飛び去っていった。
		ELSE
			PRINTFORMW 「今日は楽しかったわ、それじゃ」
			PRINTFORMW 青娥はいつの間にか飛び去っていってしまっていた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF CFLAG:318 == 1
			PRINTFORMW 「…見送りとかいらないんだけど」
			PRINTFORMW 青娥は怒気を含めた声を出しながら帰路についた。
		ELSEIF TALENT:恋人
			PRINTFORMW 「あら？見送り？」
			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_K90_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 青娥は夜の帳が下りる中、物思いに耽っていた。
		PRINTFORMW 「…面白い人…ですわね」
		PRINTFORMW 「%CALLNAME:MASTER%…あなたは…」
		PRINTFORMW 色々なことがあった。
		PRINTFORMW お互いに気にかけるような機会があり、ますます興味深くなっている。
		PRINTFORMW 少なくとも最初に出会った時は面白そうな力を感じて近づいたにすぎない。
		PRINTFORMW しかし、もっと%CALLNAME:MASTER%のことを知りたい。
		PRINTFORMW そう言った想いが芽生えてどの位になるだろうか。
		PRINTFORMW 「恋、というやつかしらね」
		PRINTFORMW 青娥はどこか他人事のように自身の感情をそう整理した。
		PRINTFORMW 達観していると言えばそうだが実際は少し違う。
		PRINTFORMW （怖い…）
		PRINTFORMW 恐怖だ。
		PRINTFORML
		PRINTFORMW かつて…恋をしたことがあった。
		PRINTFORMW 父親に会いたかったのか、それとも純粋に何仙姑に憧れてのものだったか―――
		PRINTFORMW 何れにせよ蝶よ花よと愛でられながら、家を出た父の後を追うがごとく仙人になるための勉学を重ねていった。
		PRINTFORMW そんな自分の心に穴を空けられた、いじましいほどに純粋で恐ろしいまでに思い上がったケダモノに。
		PRINTFORMW その後の生活に愛があったかは―――もう覚えていない。
		PRINTFORMW 何れにせよすべてを捨てた自分は幻想郷に来た。
		PRINTFORMW 自分の人生を自分の物にして、やりたいことをし、仙人としては堕ち、享楽的に生きた。
		PRINTFORMW それが今他人に心をかき乱されている。
		PRINTFORMW それ自体は良い、むしろ好意を覚えているというのは心地いい。
		PRINTFORMW ―――裏切るのが怖い。
		PRINTFORMW ――自分が真に人を愛することができるのかという疑問。
		PRINTFORMW ―感情に惑わされて獣になってしまいそうな自分。
		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 「…%CALLNAME:MASTER%…」
		PRINTFORMW %CALLNAME:MASTER%の名前を呟くとあら？っといった表情で口に手を当てた。
		PRINTFORMW （私今…）
		PRINTFORMW 少し顔を紅潮させ彼女は夜空を見上げていた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 青娥は火照った体を慰めながら床にへたり込んでいた。
		PRINTFORMW 「…%CALLNAME:MASTER%…%UNICODE(0x2665) *1%」
		PRINTFORMW %CALLNAME:MASTER%の名前を呟きながら情欲混じりの汗を流している。
		PRINTFORMW （また…あの人の…）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 青娥は火照った体を慰めながら床にへたり込んでいた。
		PRINTFORMW 「…%CALLNAME:MASTER%…%UNICODE(0x2665) *1%」
		PRINTFORMW %CALLNAME:MASTER%の名前を呟きながらその行為を思い出していた。
		PRINTFORMW （もう、なんでも良い…%CALLNAME:MASTER%にグチャグチャにされたいわ…%UNICODE(0x2665) *1%）
		PRINTFORMW 妖艶な表情を浮かべながら彼女は床についた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 青娥は火照った体を慰めながら床にへたり込んでいた。
		PRINTFORMW 「…%CALLNAME:MASTER%…%UNICODE(0x2665) *1%…%CALLNAME:MASTER%…%UNICODE(0x2665) *1%」
		PRINTFORMW %CALLNAME:MASTER%の名前を呟きながらその行為を思い出していた。
		PRINTFORMW （気持ちよかったわ…%UNICODE(0x2665) *1%）
		PRINTFORMW 次はいつ会えるのか…そう思いながら彼女は床についた。
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K90_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_K90_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 「…私、そんなに安い女ではなくてよ」
		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%」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「一緒にお風呂？」
			PRINTFORMW 「…いいわ、隅々まで洗ってあ・げ・る%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「混浴？別に構いませんわ」
		ELSE
			PRINTFORMW 「ふふふ…いいですわよ、背中、流してあげますわ%UNICODE(0x2665) *1%」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K90_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「二人の愛の結晶…ね」
		PRINTFORMW 「大切に育てましょう…♪」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「…孕まされてしまったみたいですわね」
		PRINTFORMW 「責任、取ってもらいますわ♪」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「全く…こんなことに…」
		PRINTFORMW 「でもまあ子供に罪はありませんわ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「うっ…」
		PRINTFORMW 「嫌ですわね…何かしら…？」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K90_25(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「はぁ…ふっ…ん…」
		PRINTFORMW 「産まれたわね…私達の赤ちゃん…%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「はぁっ…ん…」
		PRINTFORMW 「ふふっ…私の可愛い赤ちゃん…♪」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「はぁ…はぁっ…ん…」
		PRINTFORMW 「…私がしっかり育てないと…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「はぁ…ああっ…んっ…」
		PRINTFORMW 「どこの馬の骨に孕まされたのかしら、私…」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K90_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「………！」
			PRINTFORMW 青娥はあられもない姿で硬直している。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「…待って！待ちなさい！馬鹿！」
			PRINTFORMW 青娥は全裸で玄関先まで追いかけてきた。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「…これはこれで興奮しますわ%UNICODE(0x2665) *1%」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「…出ていきなさい…！」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「あーん%UNICODE(0x2665) *1%覗き魔に犯されてしまいますわ%UNICODE(0x2665) *1%」
			PRINTFORMW 青娥はノリノリで誘っている。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「…あっ%UNICODE(0x2665) *1%…ふぅ%UNICODE(0x2665) *1%」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K90_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%、今お暇でしたら…」
				PRINTFORMW 「ちょっと付き合ってほしいのだけれど…決して怪しいことをするわけではありませんわ」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%、ちょっと付き合ってくださらない」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORMW 「ありがとう、さぁ、行きましょう%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「ふふっ…ありがと」
			ELSEIF TALENT:思慕
				PRINTFORMW 「では参りましょう」
			ELSE
				PRINTFORMW 「お礼になにか奢ってあげますわ」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORMW 「残念、また誘うからその時はお願いしますわ%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「残念ですわね…」
			ELSEIF TALENT:思慕
				PRINTFORMW 「むぅ…残念ですわ」
			ELSE
				PRINTFORMW 「ケチ臭いですわねー」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORMW 「%CALLNAME:MASTER%、私の家に来ないかしら？」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%、私の家に来ませんこと？」
			ELSEIF TALENT:思慕
				PRINTFORMW 「%CALLNAME:MASTER%、お暇でしたら私の家に来ません？」
			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 「あまりじろじろ見ないでくださいまし…変なものがありますので」
			ELSEIF TALENT:思慕
				PRINTFORMW 「…面白いものが見れるといいですわね♪」
			ELSE
				PRINTFORMW 「ふふっ後悔しても遅いですわよ%UNICODE(0x2665) *1%」
			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 「あら？意外と身持ちが固いのですわね%UNICODE(0x2665) *1%」
			ENDIF
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K90_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 「あーん%UNICODE(0x2665) *1%いけませんわ%UNICODE(0x2665) *1%」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「あ～れ～♪」
				ELSE
					PRINTFORMW 「力づくでひん剥かれてしまいましたわ%UNICODE(0x2665) *1%一体何をされてしまうのかしら%UNICODE(0x2665) *1%」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「いや～ん%UNICODE(0x2665) *1%下着だけにされてしまいましたわ%UNICODE(0x2665) *1%」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「あ～れ～♪」
				ELSE
					PRINTFORMW 「あらあら%UNICODE(0x2665) *1%こういうのがお好みですのね%UNICODE(0x2665) *1%」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「いや～ん%UNICODE(0x2665) *1%こんなあられもない姿にされてしまいましたわ%UNICODE(0x2665) *1%」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「あ～れ～♪」
				ELSE
					PRINTFORMW 「あーん%UNICODE(0x2665) *1%恥ずかしいですわ%UNICODE(0x2665) *1%」
				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
					PRINTFORMW 「いいですわ、その代わり%CALLNAME:MASTER%のパンツをくださいませんこと？」
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「いいですわ、それで私のことを思い出してくださいまし%UNICODE(0x2665) *1%」
					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_K90_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの度胸で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「もう知りませんわ！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[臆病]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;相手が押し倒しを解除
;==================================================
@M_KOJO_EVENT_K90_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%また犯されてしまいますわ%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORMW 「ん…本当に壊れてしまいそう…%UNICODE(0x2665) *1%」
		PRINTFORMW そういいながら青娥は%CALLNAME:MASTER%を妖艶に愛撫し始めた。
		RETURN 1
	ENDIF
ENDIF
RETURN 1

[SKIPSTART]
;-------------------------------------------------
;オナバレ遭遇時の地の文。口上色はここで付けてください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K90_ONABARE_1(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレでそのまま続けてもらう場合の地の文。口上色はここで付けてください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K90_ONABARE_2(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

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

SELECTCASE 前戯１
	CASE 1
		PRINTFORML Ｃ責め
	CASE 2
		PRINTFORML Ｂ責め
	CASE 3
		PRINTFORML Ｍ責め
ENDSELECT

IF 本番はどっちか
	PRINTFORML Aで本番
ELSE
	PRINTFORML Vで本番
ENDIF
;-------------------------------------------------
[SKIPEND]

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