code:
;-------------------------------------------------
; eraTheWorld 4.740用 別人版年齢相応少女長咲夜さん口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;時姦されると本気で喜ぶ、かわりに、時姦返ししてる、ある条件で年齢相応な少女になっちゃう咲夜さん
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
[SKIPSTART]
基礎分岐
;少女恋人モード（強制ため口モード
IF 陥落状態() == 5
;メイド恋人モード（強制敬語モード
ELSEIF 陥落状態() == 4
;恋慕or時姦バレ思慕
ELSEIF 陥落状態() == 3
;思慕or時姦バレ
ELSEIF 陥落状態() == 1
;無陥落
ELSE
ENDIF
CFLAG:1150 BIT,0(咲夜さん非敬語判定、紅魔館住み込みかつおぜうパチェフランの誰とも恋人でなく、咲夜さんと時姦あり恋人でもない場合は非敬語（雇われ扱い、引っ越ししても同じ）)
CFLAG:1151 BIT,0(時姦初回判定)、BIT,1（時姦バレ初回判定）
CFLAG:1152 時姦された際のＡソース記録
CFLAG:1153 時姦された際のＢソース記録
CFLAG:1154 時姦された際のＣソース記録
CFLAG:1155 時姦された際のＶソース記録
CFLAG:1156 時姦された際のＭソース記録

%MASTERNAME:15%
\@ GETBIT(CFLAG:1150,0) ?  #  \@
[SKIPEND]
;
;
;
;******************************************************************************

;### 口上存在判定 ###################################
@M_KOJO_K15_1(ARG)
;別人口上判定ですX2を同キャラ口上の通し番号に置き換えてください（一つ目の別人口上なら1、二つ目の別人口上なら2
;複数の同キャラ口上が同時表示されないために必要です、必ず少女長を変更してください
RESULTS = _少女長
;初期口上とは違う事を明示するため、口上選択時に表示されます、必ずＸＸＸを変更してください
RESULTS:1 = 年齢相応少女長

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

;初期位置が紅魔館初期私室かつ、おぜうパチェフランが恋人でない場合、非敬語モード
IF CFLAG:MASTER:初期位置 == 304 && !GROUPMATCH(TALENT:MASTER:恋人,16,50,54)
	SETBIT CFLAG:15:1150,0
;おぜうパチェフランのうち誰かがが恋人になった場合、敬語モード
ELSEIF GROUPMATCH(TALENT:MASTER:恋人,16,50,54)
	CLEARBIT CFLAG:15:1150,0
ENDIF

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

;破瓜キャンセル口上有に1を入れると、@M_KOJO_少女長_EVENT_K15_LOST_VIRGIN_STOPでキャンセルの成否を操作できます
;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れるとM_KOJO_EVENT_K15_PERMISSIONで押し倒しの成否を操作できます

;Xにはキャラ番号を入れてください

;CFLAG:X:眠姦口上有 = 0
CFLAG:15:時間停止口上有 = 1
;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_K15
SETCOLOR 0xa0d8ef

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_少女長_UPDATE_K15
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります
IF FIRSTTIME("UPDATE0",0, 15)
	;呼び名が汎用でない場合
	IF !TALENT:15:恋人
		IF CALLNAME:MASTER != "あなた"
			MASTERNAME:15 = %NAME:MASTER%
			SIF !GETBIT(CFLAG:15:1150,0)
				MASTERNAME:15 += "様"
		ELSE
			;名前が汎用でない場合
			IF NAME:MASTER != "あなた"
				MASTERNAME:15 = %NAME:MASTER%
				SIF GETBIT(CFLAG:15:1150,0)
					MASTERNAME:15 += "様"
			;名前が汎用の場合
			ELSEIF GETBIT(CFLAG:15:1150,0)
				MASTERNAME:15 = 名無し様
			ELSE
				MASTERNAME:15 = 名無し
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_少女長_ENCOUNTER_K15
IF CALLNAME:MASTER != "あなた"
	IF GETBIT(CFLAG:1150,0)
		MASTERNAME:15 = %CALLNAME:MASTER%様
	ELSEIF !GETBIT(CFLAG:1150,0)
		MASTERNAME:15 = %CALLNAME:MASTER%
	ENDIF
ELSE
	;名前が汎用でない場合
	IF NAME:MASTER != "あなた"
		MASTERNAME:15 = %NAME:MASTER%
	;名前が汎用の場合
	ELSEIF !GETBIT(CFLAG:1150,0)
		MASTERNAME:15 = 名無し様
	ELSE
		MASTERNAME:15 = 名無し
	ENDIF
ENDIF
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
IF FLAG:周回数
	PRINTFORML 「あら、%MASTERNAME:15%？　久しぶり\@ GETBIT(CFLAG:15:1150,0) ?  # ですわ \@ね」
	PRINTFORMDL 思わずそう声をかけられて、凍り付く%CALLNAME:MASTER%
	PRINTFORML 「……って、あら、私、貴方とは初対面\@ GETBIT(CFLAG:15:1150,0) ? だった # でした \@わね？」
	PRINTFORMDL そう問いかけてくる咲夜に、前回のことは覚えていなさそうだと%CALLNAME:MASTER%は内心で安堵する
	PRINTFORMDL この間の博麗神社の宴会で顔を合わせたとつげる%CALLNAME:MASTER%に、そうだったかしらと小首を傾げる咲夜
	PRINTFORML 「とにかく、これからもよろしくお願い\@ GETBIT(CFLAG:15:1150,0) ? ね # します \@」
	PRINTFORMDL 本当に覚えていないのだろうかと、不安を感じつつ頭を下げる%CALLNAME:MASTER%だった
;紅魔館で咲夜と出会った場合
ELSEIF GET_MAPID(CFLAG:MASTER:現在位置) == 3
	;紅魔館住まいで咲夜と出会った場合（立ち位置的に使用人
	IF GET_MAPID(CFLAG:MASTER:現在位置) == MAIN_MAP && CFLAG:MASTER:初期位置 == 304
		;システム的に咲夜さんは紅魔館以外でのENCOUNTERはないはず
		IF CFLAG:MASTER:現在位置 >= 301 && CFLAG:MASTER:現在位置 <= 333
			IF TIME:2 <= 2
				PRINTFORML 「あら、意外に早く起きてきたのね」
			ELSEIF TIME:2 <= 4
				PRINTFORML 「寝坊と言うべきか、早起きと言うべきか、迷うところね」
			ELSE
				PRINTFORML 「お嬢様に合わせているつもりかしら？」
			ENDIF
			PRINTFORMDL 背後からかけられた声に、ぴんと背筋を伸ばして振り返る%CALLNAME:MASTER%
			PRINTFORMDL 背中にイヤな汗が浮いたのを自覚しつつ、目の前にいる少女に挨拶する
			PRINTFORMW 「貴方がお嬢様の言っていた、新しい使用人ね。名前は？」
			IF CALLNAME:MASTER != "あなた" || NAME:MASTER != "あなた"
				PRINTFORMDL 冷ややかな表情に、%CALLNAME:MASTER%は素直に名前を答えた
				PRINTFORML 「%MASTERNAME:15%ね」
				PRINTFORMDW 一つ頷きを見せた咲夜が、ジロリとこちらを睨んでくる
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%は名乗りたくないと答えた
				PRINTFORML 「それじゃ、%MASTERNAME:15%と呼ぶわね」
				PRINTFORMDW 冷めた瞳に反論の余地がないことを、さとる%CALLNAME:MASTER%
			ENDIF
			PRINTFORML 「新しい使用人が増えるのは構わないけれど」
			PRINTFORMDL その言葉にうなずくよりも早く、目の前にナイフがあった
			PRINTFORMDL 即座に時を止めた%CALLNAME:MASTER%は、そのナイフの柄を咲夜が掴んでいることに安堵する
			PRINTFORMDW だから、そのままぴくりとも動かずに時止めを解除した
			PRINTFORML 「あまり粗相の無いようにね。最低でもホフゴブリン並には働いてもらうから」
			PRINTFORMDL その言葉に冷や汗をかきつつうなずく%CALLNAME:MASTER%
			PRINTFORMDL もし咲夜がその気になれば、対応するまもなく確実に殺される
			PRINTFORMDW 其れを理解したからこその冷や汗で
			PRINTFORML 「気のせい、かしら」
			PRINTFORMDW その呟きに感じたうろんな物は、気のせいだと思い込むことにした
			SETBIT CFLAG:1150 ,0
		ENDIF
	;散策マップ
	ELSE
		PRINTFORML 「あら、いらっしゃいませ。紅魔館になにか御用ですか？」
		PRINTFORMDL 適当に紅魔館内をうろついていた%CALLNAME:MASTER%は、イヤな予感を覚えながら振り返る
		PRINTFORMDL そこに立っている瀟洒なメイドの姿に、背中に汗が浮いたのを自覚する
		PRINTFORMDW 十六夜咲夜、自分に取って最も危険な相手だと認識出来たからだ
		PRINTFORML 「まったく、うちの門番は役立たずで困りますわ」
		PRINTFORMDL その言葉が虚空に消えるよりも早く、目の前の咲夜の姿がかき消え、
		PRINTFORMDL のど元にひやりとした物が押し当てられた
		PRINTFORMW 「まずは名前をうかがいましょうか？」
		PRINTFORMD 背後からの問いかけに、
		IF CALLNAME:MASTER != "あなた" || NAME:MASTER != "あなた"
			PRINTFORMDL %CALLNAME:MASTER%は素直に名前を答えた
			PRINTFORML 「%MASTERNAME:15%ですね」
			PRINTFORMDW 耳元で%CALLNAME:MASTER%の名前を確認する咲夜
		ELSE
			PRINTFORMDL %CALLNAME:MASTER%は名乗りたくないと答えた
			PRINTFORML 「それじゃ、%MASTERNAME:15%と呼ばせていただきますわ」
			PRINTFORMDW そう断言され、%CALLNAME:MASTER%は首肯を返した
		ENDIF
		PRINTFORML 「私の名前は十六夜咲夜、この屋敷のメイド長を勤めております」
		PRINTFORMDL 寸毫の間をおかず目の前に現れた咲夜に、知っていると答える%CALLNAME:MASTER%
		PRINTFORML 「そうですか、どこでどういうことを聞いたかはさておき」
		PRINTFORMDW しばし言葉を止めて、無遠慮な視線を向けてくる
		PRINTFORML 「屋敷内で不埒なことをした場合、容赦は致しませんから」
		PRINTFORMDW 全く平然としたその様子に、冷や汗が湧いた
	ENDIF
;紅魔館以外で出会った
ELSE
	;紅魔館住まいの場合（立ち位置的に使用人（というか、紅魔館住まいで初対面が散策マップなんてそうそう無いと思うけど
	IF CFLAG:MASTER:初期位置 == 304
		PRINTFORML 「待ちなさい」
		PRINTFORMDL 不意に背後から呼び止められた%CALLNAME:MASTER%は、振り返るよりも早く目の前に現れた少女の姿に冷や汗をかく
		PRINTFORML 「貴方、うちの使用人になったくせに、私に挨拶もせず出掛けるとか良い度胸ね」
		PRINTFORMDW そこに立っている十六夜咲夜に、返す言葉が見つからない
		PRINTFORML 「ただの居候だと言い張るつもりならそれでもいいけれど」
		PRINTFORMDL 不意に冷たい感触が喉に触れる
		PRINTFORMDL 同時、時を止めた%CALLNAME:MASTER%は微動だにせず視線をそちらに向けた
		PRINTFORMDW 言うまでも無く、咲夜が手にしたナイフの刃を、こちらの頸動脈に押し当てているのだ
		PRINTFORMDL 一拍おいて、時止めを解除すると同時、
		PRINTFORML 「それでも、せめて住人全員に挨拶してから出歩きなさい」
		PRINTFORMDL 冷たい目で告げる咲夜
		PRINTFORMDW ただ、その表情に、かすかな戸惑いが浮かんだのをみて、%CALLNAME:MASTER%は冷や汗をかいた
		SETBIT CFLAG:1150 ,0
	;紅魔館以外
	ELSE
		PRINTFORML 「あら、落とし物ですよ」
		PRINTFORMDL 背後から声をかけられて、%CALLNAME:MASTER%は振り返る
		PRINTFORML 「はい、どうぞ」
		PRINTFORMDW そう言って差し出された手布巾を受け取り、その相手を眺める
		PRINTFORMDL 銀髪ショートのメイド服を纏った少女
		PRINTFORMDL それが自分にとって一番厄介な相手、十六夜咲夜なのだと気付いた
		PRINTFORMDL 脇の下にじっとりと嫌な汗が湧いてくる
		PRINTFORMW 「……はぁ…………、どうやら私のことを知っているみたいですね」
		PRINTFORML 「私の名前は十六夜咲夜、紅魔館のメイド長を勤めております」
		PRINTFORMDL 柔らかな微笑みを浮かべ、目だけは全く変わらない冷たいまま呟く咲夜
		PRINTFORML 「ところで、そちらのお名前をおうかがいしてもよろしいでしょうか？」
		PRINTFORMD そんな言葉に、
		IF CALLNAME:MASTER != "あなた" || NAME:MASTER != "あなた"
			PRINTFORMDW %CALLNAME:MASTER%は素直に名前を答えた
			PRINTFORML 「%MASTERNAME:15%ですね」
			PRINTFORMDW %CALLNAME:MASTER%の名前を確認する咲夜
		ELSE
			PRINTFORMDW %CALLNAME:MASTER%は名乗りたくないと答えた
			PRINTFORML 「それじゃ、%MASTERNAME:15%と呼ばせていただきますわ」
			PRINTFORMDW そう断言され、%CALLNAME:MASTER%は首肯を返した
		ENDIF
		PRINTFORML 「それでは今後ともよろしくお願いしますね」
		PRINTFORMDW 全く平然とした咲夜に、%CALLNAME:MASTER%は頷きを返した
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_少女長_SPEVENT_K15_1(ARG,ARG:1)
;口上主はTARGET
IF MARK:反発刻印
	TCVAR:キスキャンセル = 1
	RETURN 1
ENDIF
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORMDL いきなり、目の前に咲夜の顔があった
	PRINTFORMDL 時を止めたのかと思うより早く、そのまま唇を押しつけてくる咲夜
	IF GETBIT(CFLAG:1151,0)
		PRINTFORMDL そのまま唇を割って舌がぬろりと入ってきた
	ELSE
		PRINTFORMDL その感触を味わうように、しばしただ触れあわせた
	ENDIF
	PRINTL
	;恋慕or時姦バレ思慕
	IF 陥落状態() == 3
		IF GETBIT(CFLAG:1151,0)
			PRINTFORML 「ごちそうさま。ふふ、美味しい」
			PRINTFORMDL そう呟いた咲夜が、そのままぎゅっと抱きついてきた
			PRINTFORML 「時止めでやるより、こっちの方が良いと思\@ GETBIT(CFLAG:1150,0) ? わない # いませんか \@？」
			PRINTFORMDW その言葉に、咲夜の方からされるとは思わなかったと返した%CALLNAME:MASTER%はジロリと睨まれた
		ELSE
			PRINTFORML 「……えと、ちょっとした気まぐれ、ええ、タダの気まぐれ\@ GETBIT(CFLAG:15:1150,0) ? よ # ですわ \@」
			PRINTFORMDL どことなく慌てた様子の咲夜に、自然と苦笑が浮かぶ
			PRINTFORML 「……何か言いたいことがあ\@ GETBIT(CFLAG:15:1150,0) ? るのかしら # ります \@？」
			PRINTFORMDW どことなく拗ねた様子に、慌てて何も無いと答える%CALLNAME:MASTER%だった
		ENDIF
	;思慕or時姦バレ
	ELSEIF 陥落状態() == 1
		PRINTFORML 「こういうのもなんとなく良い\@ GETBIT(CFLAG:15:1150,0) ? もの # ですわ \@ね」
		PRINTFORMDW そう呟く咲夜の顔には、珍しく微笑みが浮かんでいる
	ELSE
		PRINTFORML 「ただの気まぐれ\@ GETBIT(CFLAG:15:1150,0) ? よ # ですわ \@、気にしないで\@ GETBIT(CFLAG:15:1150,0) ? ちょうだい # ください \@」
	ENDIF
	PRINTFORML
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_少女長_SPEVENT_K15_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("SPEV2")
			PRINTFORML 「すこし、話を聞いてもらえ\@ GETBIT(CFLAG:1150,0) ? る # ません \@？」
			PRINTFORMDL 不意に呼び止められ、訝りながら振り返る%CALLNAME:MASTER%
			PRINTFORMDL 真剣な表情でこちらを見つめてくる咲夜が、淡々と喋り始める
			PRINTFORMW 「私は、お嬢様に拾われるまで、自分の能力をもてあましていたバケモノ\@ GETBIT(CFLAG:1150,0) ? だっ # でし \@た」
			PRINTFORML 「人間の中にいて、人間の形をしているバケモノ」
			PRINTFORML 「そう思っていたけれど、それでも人間の世界から離れられなかった\@ GETBIT(CFLAG:1150,0) ? の # んです \@」
			PRINTFORMDL そう呟く咲夜の目は、どこか遠い場所を眺めていて
			PRINTFORMW 「だから、私は化け物を狩って、奴らの持ち物や奴らを恨む連中から金を手にして生きてき\@ GETBIT(CFLAG:1150,0) ?  # まし \@た」
			PRINTFORML 「……けれど、たとえ時を止められても、ソレを覆す化け物は確かにいて」
			PRINTFORML 「紅い月の夜、私はお嬢様と出会\@ GETBIT(CFLAG:1150,0) ? っ # いまし \@た」
			PRINTFORMDL 不意に咲夜が目を閉じる
			PRINTFORMW 「あの夜、私は私の力を覆すほどの化け物と対峙して、ここで終わるのだと覚って」
			PRINTFORML 「なのに、死力を尽くして、かろうじて腕一本奪うことしか出来なかった彼女が」
			PRINTFORML 「お嬢様が、私に問いかけた\@ GETBIT(CFLAG:1150,0) ? の # んです \@。共に生きない？　と」
			PRINTFORMDL 瞼を開いた咲夜が、%CALLNAME:MASTER%に笑みを向けてきた
			PRINTFORMW 「皮肉な話\@ GETBIT(CFLAG:1150,0) ? よ # ですわ \@。人間（じんかん）にあるうちは、自身をバケモノと蔑んでいたのに」
			PRINTFORML 「お嬢様に、……あやかしに飼われて、初めて自分がニンゲンなんだと気付かされたん\@ GETBIT(CFLAG:1150,0) ? だ # です \@もの」
			PRINTFORML 「だから、私に取ってお嬢様は身命を賭して仕えるべきヒト」
			PRINTFORMDL その微笑みにしばし見とれる%CALLNAME:MASTER%
			PRINTFORMDW 一拍おいて、今はそう言う場合ではないと頭を振った
			PRINTFORML 「けれど、私は貴方に出会ってしま\@ GETBIT(CFLAG:1150,0) ? っ # いまし \@た」
			PRINTFORML 「そして気付いた\@ GETBIT(CFLAG:1150,0) ? の # んです \@。私がお嬢様に向ける想いは、忠誠親密の念だったと言うことに」
			PRINTFORML 「今貴方に向けるこの想いこそが愛慕の情だと言うこと」
			PRINTFORML 「私は、貴方の隣にいたい。お嬢様と座を争うことになっても、それでも側にいたい」
			PRINTFORMW 「……貴方は、私の想いに、どう答えてくれ\@ GETBIT(CFLAG:1150,0) ? る # ますか \@？」
		ELSE
			PRINTFORML 「私の気持ちは伝えているでしょう。簡潔に聞\@ GETBIT(CFLAG:1150,0) ? く # きます \@わ、私の想いを受け入れてくれる？」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF GETBIT(CFLAG:1151,0)
			PRINTFORMW 「ありがとう、ございます」
			IF GETBIT(CFLAG:1150,0)
				PRINTFORML 普段と違う咲夜の言葉に、戸惑う%CALLNAME:MASTER%
				PRINTFORML 「変、でしょうか？　愛しい人に仕える以上は、これが私に取っては普通なのですが」
				PRINTFORML 「貴方様がどうしても仰るなら、以前の通りに話しても構いませんが……」
				PRINTFORMW その問いかけに、今のままで構わないと%CALLNAME:MASTER%は答える
				PRINTFORML 途端、ほっとした表情で咲夜がこちらを見つめてくる
				PRINTFORM 「よかった……、
			ELSE
				PRINTFORML 今までとはどことなく違う、親近感を感じさせる笑みを浮かべる咲夜
				PRINTFORML 「受け入れてもらえないと覚悟していたのですもの」
				PRINTFORML だから嬉しいと、言葉の続きは口にしない咲夜がすっと身を寄せてくる
				PRINTFORMW 「愛しています、%MASTERNAME:15%様」
				PRINTFORM 「
			ENDIF
			PRINTFORML ところでこうして想いを重ねた以上、少しお聞きしたいのですが」
			PRINTFORML 「貴方様への呼びかけは、今後どうすればよろしいでしょうか？」
			PRINTFORML 「今まで通りというのは、味気ないと思います」
			PRINTFORMW そんなコトを言ってくる咲夜に、%CALLNAME:MASTER%は
			PRINTL [0] 『旦那様』
			PRINTL [1] 『ご主人様』
			PRINTL [2] 『貴方様』
			IF GETBIT(TALENT:MASTER:性別,1)
				PRINTFORML [3] 『お兄様』
				PRINTFORML [4] 『%MASTERNAME:15%\@ !GETBIT(CFLAG:1150,0) ?  # 様 \@』
			ELSE
				PRINTFORML [3] 『お姉様』
				PRINTFORML [4] 『お嬢様』
				PRINTFORML [5] 『%MASTERNAME:15%\@ !GETBIT(CFLAG:1150,0) ?  # 様 \@』
			ENDIF
			PRINTFORML と呼ぶように願った
			$INPUT_咲夜_NAMELOOP
			INPUT
			SELECTCASE RESULT
				CASE 0
					MASTERNAME:15 = 旦那様
				CASE 1
					MASTERNAME:15 = ご主人様
				CASE 2
					MASTERNAME:15 = 貴方様
				CASE 3
					IF GETBIT(TALENT:MASTER:性別,1)
						MASTERNAME:15 = お兄様
					ELSE
						MASTERNAME:15 = お姉様
					ENDIF
				CASE 4
					IF GETBIT(TALENT:MASTER:性別,1)
						SIF GETBIT(CFLAG:15:1150,0)
							MASTERNAME:15 = %MASTERNAME:15%様
					ELSE
						MASTERNAME:15 = お嬢様
					ENDIF
				CASE 5
					SIF GETBIT(CFLAG:15:1150,0)
						MASTERNAME:15 = %MASTERNAME:15%様
				CASEELSE
					GOTO INPUT_咲夜_NAMELOOP
			ENDSELECT
			PRINTFORML 「%MASTERNAME:15%ですね、解りましたわ」
			PRINTFORML 「不束者ですが、これからもよろしくお願いいたしますね」
			PRINTFORML 柔らかな微笑みを浮かべる咲夜に%CALLNAME:MASTER%は頷きを返した
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORML 受け入れると告げた瞬間、頬をほころばせる咲夜が口を開こうとする
			PRINTFORML ソレを制して、%CALLNAME:MASTER%も咲夜に言いたいことがあると口にした
			PRINTFORMW 「言いたいこと\@ GETBIT(CFLAG:1150,0) ?  # ですか \@？」
			PRINTFORML 自分も時が止められる、と告げた瞬間、痛烈な打撃を右頬に受けて%CALLNAME:MASTER%は地面に叩きつけられた
			PRINTFORML 「…………」
			PRINTFORML 激怒と哀切がともる瞳で、こちらを睨んでくる咲夜
			PRINTFORMW そのまま、掴まれた襟元を引っ張られ立ち上がった瞬間、更に左の頬を思い切り叩かれた
			PRINTFORML 「楽しかった？」
			PRINTFORML 「……同類がいると思っていなくて、その力を振り回してる私の姿は面白かった？」
			PRINTFORML 「自分が、異常ではなく特別だと悦に入ってた私を見下げるのはそんなに面白かった！？」
			PRINTFORMW 睨み付けてくる咲夜の目尻に涙が盛り上がる
			PRINTFORML 「いまさら、なんで今更なのよ！　いっそ、時止めで弄られてた方がずっとマシよ！」
			PRINTFORML 「諦めてたのに、それでもヒトを好きになって、好きになれて！　想いを伝えたのに」
			PRINTFORML 「……なんで、なんで、いまさらなのよぉ……」
			PRINTFORMW こちらの胸元に顔を埋めてきた咲夜の声に、嗚咽が混じる
			PRINTFORML ぐすえぐと胸元から聞こえる嗚咽に、無いと思っていた筈の罪悪感がちりちりと疼く
			PRINTFORML そのままそっと抱きしめ、ただ頭を撫でる%CALLNAME:MASTER%
			PRINTFORML …………
			PRINTFORMW ……
			PRINTFORML 「……ぐす」
			PRINTFORML やっと泣き止んだ咲夜が、こちらの襟元でちんっと鼻をかんだ
			PRINTFORML 「…………なによ、なにか文句でもある？」
			PRINTFORMW 襟元が鼻水に塗れるのはさすがに気にくわないと口にする%CALLNAME:MASTER%
			PRINTFORML 「あんたが悪いんじゃない、自業自得よ」
			PRINTFORMW その言葉遣いに、小首を傾げる
			PRINTFORML 「……同類で、恋人なんだもの。お嬢様達や美鈴達とは扱いが違って当然でしょ」
			PRINTFORML 「なんなら、お嬢様に向けるように敬語で話しかけましょうか？」
			PRINTFORML 「それとも美鈴に対するように上司として接して欲しいかしら？」
			PRINTFORMW どちらも遠慮すると答える%CALLNAME:MASTER%に、今まで見たことのないあどけない笑顔を浮かべる咲夜
			PRINTFORML 「ふふ、そーゆーこと。お嬢様達や美鈴達の前での瀟洒な態度は、あくまで造ったもの」
			PRINTFORML 「あんたに向ける今のこれが私の一番自然なもの。って、さすがに恋人にあんたって言うのは不味いかしら？」
			PRINTFORMW くすくすと楽しげに笑う咲夜に、以前通りで良いと答える%CALLNAME:MASTER%
			IF CALLNAME:MASTER != "あなた"
				MASTERNAME:15 = %CALLNAME:MASTER%
			ELSE
				;名前が汎用でない場合
				IF NAME:MASTER != "あなた"
					MASTERNAME:15 = %NAME:MASTER%
				ELSE
					MASTERNAME:15 = 名無し
				ENDIF
			ENDIF
			PRINTFORML 「それじゃ、これからよろしくね、%MASTERNAME:15%」
			PRINTFORML 「あ、そうそう、時止めで玩弄するなとは言わないけど、きっちりやり返してあげるからね」
			PRINTFORML 「覚悟はしておきなさいよ」
			PRINTFORMW そう言って満面の笑みを浮かべる咲夜に、%CALLNAME:MASTER%は頷きを返した
			CFLAG:時間停止バレ = 1
			SETBIT CFLAG:1151,1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「……そう\@ GETBIT(CFLAG:1150,0) ?  # ですか \@」
		PRINTFORML 「仕方\@ GETBIT(CFLAG:1150,0) ? ない # ありません \@わね」
		PRINTFORML 深々とため息をついた咲夜の素っ気ない態度に、妙に胸の奥がざわついた
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_少女長_SPEVENT_K15_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 陥落状態() == 5
			PRINTFORML 「うん、今日も素敵だったわ。ふふ、いつもこうだったら良いんだけどね」
		;メイド恋人モード
		ELSEIF 陥落状態() == 4
			PRINTFORML 「%MASTERNAME:15%、今日は楽しんでいただけましたか？　私は存分に楽しめましたわ」
		;恋慕or時姦バレ思慕
		ELSEIF 陥落状態() == 3
			PRINTFORML 「うふふ、今日も楽しかった\@ GETBIT(CFLAG:1150,0) ? わよ # ですわ \@」
		;思慕or時姦バレ
		ELSEIF 陥落状態() == 1
			PRINTFORML 「まぁ、つまらなくは\@ GETBIT(CFLAG:1150,0) ? なかったわね # ありませんでしたわ \@」
		ELSE
			PRINTFORML 「……楽しかった\@ GETBIT(CFLAG:1150,0) ? かしら # でしょうか \@？」
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「……全く仕方の無い人」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「はぁ……、私の怒りは恐くないということかしら」
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「………………全く」
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_少女長_EVENT_K15_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;時姦バレファーストイベント
		IF GETBIT (CFLAG:1151,0) && !GETBIT (CFLAG:1151,1) && !TALENT:恋人
			CALL 咲夜時姦バレ()
		;少女恋人モード
		ELSEIF 陥落状態() == 5
			PRINTFORML 「あら%MASTERNAME:15%？　何しに来たの？」
			PRINTFORMDL にやにやと笑いながら、咲夜が側に寄ってくる
			PRINTFORMW 「ふふん、愛しの恋人の尻でも追い掛けに来たのかしら？」
			IF !RAND:6
				PRINTFORMDL その通りだと返した瞬間、咲夜の顔が真っ赤に染まった
				PRINTFORML 「……はぁ、負け負け、私の負けよ、もう」
				PRINTFORMDW 両手を軽く挙げて降参の意を露わにしつつ、咲夜が抱きついてきた
			ELSE
				PRINTFORMDL 偶然だと返す%CALLNAME:MASTER%に、咲夜のニヤニヤ笑いが深まる
				PRINTFORML 「ぐ、う、ぜ、ん、ね～～～～～～」
				PRINTFORMDW 揶揄の雰囲気を受け流しつつ、咲夜の隣に身を寄せた
			ENDIF
		;メイド恋人モード
		ELSEIF 陥落状態() == 4
			PRINTFORML 「あ、%MASTERNAME:15%。こんなところに何の御用でしょうか？」
			PRINTFORMD すっと音も無く横に侍る咲夜に、特に用は無いと答える%CALLNAME:MASTER%
			PRINTFORMW 「そうですか、私の事を探してくれたりはしてなかったのですね」
			PRINTFORMDL どことなく寂しげに呟きつつ、咲夜がじっとこちらを見つめてくる
			PRINTFORML 「仕事も大事ですけど、%MASTERNAME:15%と同じ時間を過ごしたいと思っているのですが」
			PRINTFORMDW 仕事の邪魔をする気はないと呟く%CALLNAME:MASTER%に、咲夜はそんなコトを言ってきた
		;恋慕or時姦バレ思慕
		ELSEIF 陥落状態() == 3
			PRINTFORML 「あら、%MASTERNAME:15%。何しに来たの\@ GETBIT(CFLAG:1150,0) ? かしら # ですか \@」
			PRINTFORMDL 柔らかな笑みを浮かべる咲夜に、目的はないと答える%CALLNAME:MASTER%
			PRINTFORML 「\@ GETBIT(CFLAG:1150,0) ? だっ # でし \@たら、しばらく私と\@ GETBIT(CFLAG:1150,0) ?  # お \@話でもし\@ GETBIT(CFLAG:1150,0) ? ない # ません \@？」
			PRINTFORMDW 咲夜のお誘いに、たまには良いかとうなずく%CALLNAME:MASTER%だった
		;思慕or時姦バレ
		ELSEIF 陥落状態() == 1
			PRINTFORML 「%MASTERNAME:15%？　何か用事でもあ\@ GETBIT(CFLAG:1150,0) ? った # りました \@かしら？」
			PRINTFORMDW 特に無いと答えつつ、咲夜の隣に移動した
		ELSE
			PRINTFORMW 「…………何かしら？」
		ENDIF
		;CALL 時姦返し
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;時姦バレファーストイベント
		IF GETBIT (CFLAG:1151,0) && !GETBIT (CFLAG:1151,1) && !TALENT:恋人
			CALL 咲夜時姦バレ()
		;少女恋人モード
		ELSEIF 陥落状態() == 5
			PRINTFORML 「こんなところにいたのね」
			PRINTFORMDL 真後ろから抱きつかれ、%CALLNAME:MASTER%は深々とため息をつく
			PRINTFORMW 「あら、ずいぶんなご挨拶ね」
			IF !RAND:6
				PRINTFORMDL 咲夜の抱擁を振り解いて、振り向いた%CALLNAME:MASTER%は、間髪容れず咲夜を抱きしめた
				PRINTFORML 「きゃんっ！　……%MASTERNAME:15%、いきなりなにするのよ」
				PRINTFORMDW 嬉しそうに頬を緩めつつ咎める口調の咲夜に気まぐれだと答える%CALLNAME:MASTER%だった
			ELSE
				PRINTFORMDL いきなり後ろから抱きつかれるのは心臓にわるいと答える%CALLNAME:MASTER%
				PRINTFORML 「時を止めてエロ行為に走る方がよっぽど心臓にわるいでしょ」
				PRINTFORMDW される相手はそうだろう、そう答えながら咲夜の抱擁から逃れた
			ENDIF
		;メイド恋人モード
		ELSEIF 陥落状態() == 4
			PRINTFORML 「%MASTERNAME:15%、こんなところにいらっしゃったのですか」
			PRINTFORMDL 嬉しそうに笑った咲夜が、ゆっくりと隣まで歩いてくる事に、小首を傾げる
			PRINTFORMW 「ふふ、%MASTERNAME:15%と共にいられる間くらいは時止めはやめておきますわ」
			PRINTFORMDL そう言ったかと思うと、そのまま腕を絡めてきた
			PRINTFORML 「こうすると安心します」
			PRINTFORMDW 含羞の笑みを浮かべる咲夜に、%CALLNAME:MASTER%の口元にも笑みが浮かんだ
		;恋慕or時姦バレ思慕
		ELSEIF 陥落状態() == 3
			PRINTFORML 「あら、%MASTERNAME:15%。どうしてこんなところにいるの\@ GETBIT(CFLAG:1150,0) ? かしら # ですか \@」
			PRINTFORMDL なんとなくと答える%CALLNAME:MASTER%に咲夜が苦笑を浮かべる
			PRINTFORML 「\@ GETBIT(CFLAG:1150,0) ? だっ # でし \@たら、しばらく私と\@ GETBIT(CFLAG:1150,0) ?  # お \@話でもし\@ GETBIT(CFLAG:1150,0) ? ない # ません \@？」
			PRINTFORMDW 咲夜のお誘いに、たまには良いかとうなずく%CALLNAME:MASTER%だった
		;思慕or時姦バレ
		ELSEIF 陥落状態() == 1
			PRINTFORML 「%MASTERNAME:15%？　ふふ、丁度よかった\@ GETBIT(CFLAG:1150,0) ?  # です \@わ」
			PRINTFORMDW そういった咲夜が、どことなく嬉しそうに隣にきた
		ELSE
			PRINTFORMW 「……%MASTERNAME:15%？」
		ENDIF
		;CALL 時姦返し
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;時姦バレファーストイベント
		IF GETBIT (CFLAG:1151,0) && !GETBIT (CFLAG:1151,1) && !TALENT:恋人
			CALL 咲夜時姦バレ()
			PRINTFORMDW 一瞬でナイフをどこかに消した咲夜が裸身をさらして隣に着た
		;少女恋人モード
		ELSEIF 陥落状態() == 5
			PRINTFORML 「%MASTERNAME:15%って、お風呂好きよね」
			PRINTFORMDL しみじみと呟いてじっとこちらを見つめてくる咲夜
			PRINTFORML 「それで、愛しの恋人へかける言葉はないのかしら？」
			IF !RAND:6
				PRINTFORMDL 頬を赤らめつつ、足を開いて秘処を晒す咲夜にエロいと返す
				PRINTFORML 「%MASTERNAME:15%がエロくさせるんじゃない」
				PRINTFORMDL ぺちんと軽く頭を叩かれ、%CALLNAME:MASTER%は苦笑を浮かべた
			ELSE
				PRINTFORMDL 相変わらず綺麗な身体だと呟く%CALLNAME:MASTER%に、咲夜が唇を尖らせる
				PRINTFORML 「身体だけ？」
				PRINTFORMDL %CALLNAME:MASTER%は顔も身体の一部だと答え、咲夜が笑うのを見つめた
			ENDIF
		;メイド恋人モード
		ELSEIF 陥落状態() == 4
			PRINTFORML 「%MASTERNAME:15%、その、ご一緒させてもらってもよろしいでしょうか」
			PRINTFORMDL おずおずと問いかけてくる咲夜に、手招きで呼び寄せる
			PRINTFORML 「ありがとうございます。ふふ、それでは、%MASTERNAME:15%の身体、磨かせていただきますわ」
			PRINTFORMDL それはもう少し後でいいと曰い、強引に咲夜の肩を抱き寄せた
			PRINTFORML 「ふふ、素肌を触れあわせると、安心しますわ」
			PRINTFORMDL うっとりした表情で、咲夜がこちらを見つめてくる
		;恋慕or時姦バレ思慕（恋慕のみだと思う
		ELSEIF 陥落状態() == 3
			PRINTFORML 「あら、入っていたの\@ GETBIT(CFLAG:1150,0) ?  # ですか \@？　隣、失礼\@ GETBIT(CFLAG:1150,0) ? する # します \@わね」
			PRINTFORMDL 裸身を隠しもせずに隣にきた咲夜が、そのまましなだれかかってきた
			PRINTFORML 「ふふ、こういうのも良いもの\@ GETBIT(CFLAG:1150,0) ? だ # ですか \@？わ」
			PRINTFORMDL くすくすと楽しげに笑う咲夜に、返す言葉が出てこない
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MAIN_MAP上で一日最初の挨拶
	;注、このあと通常の遭遇口上、ARG==1 OR ARG==2に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で一日最初の挨拶
	;ARG:1にデート相手、ARG:1が0の場合は非デート
	;注、このあと通常の外出先で遭遇した口上、ARG==6 OR ARG==7に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;ARG:1とデート中
		IF ARG:1
		;一人で外出
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	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
		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
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	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
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_少女長_EVENT_K15_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_K15_5(ARG,ARG:1)
;口上主はTARGET
;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
	;その他（キャラ指定なし
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_少女長_EVENT_K15_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_K15_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_K15_8(ARG,ARG:1)
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		PRINTFORML
		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 = 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
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_少女長_EVENT_K15_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_K15_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_K15_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

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

;==================================================
;食事系
;==================================================
@M_KOJO_少女長_EVENT_K15_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_K15_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 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		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_K15_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_K15_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_K15_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_K15_19(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
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_少女長_EVENT_K15_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=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
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_少女長_EVENT_K15_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_K15_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_K15_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_K15_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_K15_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_K15_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_K15_27(ARG,ARG:1)
;口上主はLOCAL
;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
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_少女長_EVENT_K15_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;パンツちょうだい
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;怒り口上
;==================================================
@M_KOJO_少女長_EVENT_K15_29(ARG,ARG:1)
;口上主はTARGET
;ARGは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
ENDIF
RETURN 1

;==================================================
;相手が押し倒しを解除
;==================================================
@M_KOJO_少女長_EVENT_K15_30(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
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_少女長_EVENT_K15_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_K15_ONABARE_1(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K15

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

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

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

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

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

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

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

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

;時姦バレファーストイベント
@咲夜時姦バレ()
PRINTFORML 「弁明の余地をあげ\@ GETBIT(CFLAG:1150,0) ? る # ます \@わ」
PRINTFORMDL その声と同時に、首筋にぴたりとナイフの刃を当てられた%CALLNAME:MASTER%は動くに動けない
PRINTFORML 「%MASTERNAME:15%だというのは解ってい\@ GETBIT(CFLAG:1150,0) ? るのよ # ますわ \@、時を止めて私の身体を弄んだのは」
PRINTFORMDW 時を止めて逃げだそうかと思った瞬間、目の前に咲夜の顔があった
PRINTFORMDL 否、咲夜に唇を押しつけられていた
PRINTFORMDL 思わぬ咲夜の行為に戸惑う%CALLNAME:MASTER%
PRINTFORMDL ぬろりと、唇を割って舌が入り込んできた
PRINTFORMDW じゅるぺちゃと耳朶と口腔に響く音と、うっとりとした表情で見つめてくる咲夜
PRINTFORMDL その心地よさに、逃げることが出来ない
PRINTFORML 「ぷはっ……、ふふ、殺されるとでもおも\@ GETBIT(CFLAG:1150,0) ? ったかしら # いました \@？」
PRINTFORML 「やっと見つけた同類\@ GETBIT(CFLAG:1150,0) ? だ # です \@もの、そんなことする筈\@ GETBIT(CFLAG:1150,0) ? ない # ありません \@わ」
PRINTFORML 「これからよろしくね」
PRINTFORMDW そう言って笑う咲夜にしばし見とれる%CALLNAME:MASTER%だった
IF !GETBIT(CFLAG:既成事実 , 1)
	IF !GETBIT(CFLAG:既成事実 , 0)
		CALL SET_FIRSTKISS(15)
		;最後が奪われたになるのを抑制するのに、わざわざ書き直してみる
		CSTR:ファーストキス喪失履歴 = %PRINT_DATE_F(DAY)%、同類である%CALLNAME:MASTER%に%CSTR:ファーストキス位置%で時姦に対する宣戦布告としてファーストキスを押しつけた
	ENDIF
	SETBIT CFLAG:既成事実 , 1
	CALL COLORMESSAGE("咲夜の合意を得た",C_YELLOW,2)
ENDIF
SETBIT CFLAG:1151,1
RETURN 1

@時姦返し()
;時姦された際のＡソースのお返し
SIF CFLAG:1152
	SOURCE:MASTER:快Ａ += CFLAG:1152
;時姦された際のＢソースお返し（MASTERが♂ならＣに振り分け
IF CFLAG:1153
	IF GETBIT(TALENT:MASTER:性別,1)
		SOURCE:MASTER:快Ｂ += CFLAG:1153
	ELSE
		SOURCE:MASTER:快Ｃ += CFLAG:1153
	ENDIF
ENDIF
;時姦された際のＣソースお返し
SIF CFLAG:1154
	SOURCE:MASTER:快Ｃ += CFLAG:1154
;時姦された際のＶソースお返し（MASTERが♂ならＡに振り分け
IF CFLAG:1155
	IF GETBIT(TALENT:MASTER:性別,1)
		SOURCE:MASTER:快Ｖ += CFLAG:1154
	ELSE
		SOURCE:MASTER:快Ａ += CFLAG:1154
	ENDIF
ENDIF
;時姦された際のＭソースお返し
SIF CFLAG:1156
	SOURCE:MASTER:快Ｍ += CFLAG:1156

FOR LOCAL,1152,1157
	CFLAG:LOCAL = 0
NEXT
RETURN 1

@時姦反応()
;咲夜さんに時姦した場合のあれこれ
;ただし手加減する模様
SIF !GETBIT (CFLAG:1151,0)
	SETBIT CFLAG:1151,0
SIF !CFLAG:時間停止バレ
	CFLAG:時間停止バレ = 1
SIF SOURCE:快Ａ
	CFLAG:1152 += SOURCE:快Ａ / 5
SIF SOURCE:快Ｂ
	CFLAG:1153 += SOURCE:快Ｂ / 5
SIF SOURCE:快Ｃ
	CFLAG:1154 += SOURCE:快Ｃ / 5
SIF SOURCE:快Ｖ
	CFLAG:1155 += SOURCE:快Ｖ / 5
SIF SOURCE:快Ｍ
	CFLAG:1156 += SOURCE:快Ｍ / 5

SIF !GETBIT(CFLAG:1151,0)
	SETBIT CFLAG:1151,0
SIF GROUPMATCH(SELECTCOM,21,50,51,104)
	RETURN 1
IF GROUPMATCH(SELECTCOM,312,313,314,315,316)
	PRINTFORML 凍り付いた時間の中、%CALLNAME:MASTER%は咲夜の身体を堪能した
ELSEIF !GETBIT(CFLAG:1151,1)
	PRINTFORML 時が止まっている中、時折、咲夜の身体が快感に震えているような気がする
	PRINTFORML 気のせいだと思いつつ、%CALLNAME:MASTER%は咲夜の身体を貪り続けた
ELSE
	PRINTFORML ぴくんぴくんと、身体をかすかに震わせる咲夜
	PRINTFORML それが咲夜の限界なのだろう、凍刻の中、咲夜の微細な反応に%CALLNAME:MASTER%は笑みを浮かべた
ENDIF
RETURN 1

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