code:
;-------------------------------------------------
; eraTheWorld 4.841用 瓔花口上（角色の名前を入れる、下にコンセプトなど一言那个ば入れる）
;長年水子として石を積んでいたゆえの幼さと大人さが共存している少女
;ただの性騷擾程度なら怒るだけだが、性交に至ると失望して諦められてしまう
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;CFLAG:127:1001→胸圍変更
;CFLAG:127:1002→TALENT追加変更
;
;
;******************************************************************************

;### 口上存在判定 ###################################
@M_KOJO_K127(ARG)
;別人版を作成する際はこの貂プレではなく別人版用口上貂プレをご利用ください

;口上存在判定です、けしてコメントアウトしないでください
;他の処理は一切行わないように
RETURN 1

;### 口上基本フラグ設定 #############################
@M_KOJO_FLAGSETTING_K127
;基本フラグ設定はここで行ってください
;共通の口上フラグは必要な箇所のコメントアウトを外してご利用ください
;口上専用フラグはご自由に
;Xには角色番号を入れてください

;眠姦口上有、時間停止口上有、扮演に1を入れると、それぞれ時間停止時、眠姦時、扮演時に指令口上が読み込まれるように
;入れないと時間停止時、眠姦時、扮演時は一切喋りません
;CFLAG:X:眠姦口上有 = 0
;CFLAG:X:時間停止口上有 = 0
;CFLAG:X:扮演口上有 = 0

;破瓜中止口上有に1を入れると、@M_KOJO_EVENT_K127_LOST_VIRGIN_STOPで中止の成否を操作できます
;CFLAG:X:破瓜中止口上有 = 0

;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れると、M_KOJO_EVENT_K127_PERMISSIONで推倒の成否を操作できます
;CFLAG:X:口上内抱き寄せ判定_初回 = 0
;CFLAG:X:口上内抱き寄せ判定_通常 = 0

;推倒禁止に1を入れると、主动推倒てこなくなります
;以下は恋慕か炮友がつくまで推倒てこなくなる使用例
IF !TALENT:127:恋慕 && !TALENT:127:炮友
	CFLAG:127:推倒禁止 = 1
ELSE
	CFLAG:127:推倒禁止 = 0
ENDIF

;来訪不能に1を入れると、来訪してこなくなります
;以下は面識があるまで来訪してこなくなる使用例
;IF !CFLAG:X:面識
;	CFLAG:X:来訪不能 = 1
;ELSE
;	CFLAG:X:来訪不能 = 0
;ENDIF

;### 口上色判定 ###################################
@M_KOJO_COLOR_K127

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

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

IF !CFLAG:127:1001
	;PRINTFORML 瓔花の胸圍を変更できます。
	PRINTFORML 可以変更瓔花的胸围。
	PRINTFORML 要进行変更吗？
	PRINTFORML
	;PRINTFORML [0] する (UPDATE時に再び変更できます)
	;PRINTFORML [1] 保留する
	;PRINTFORML [2] もう変更しない
	PRINTFORML [0] 変更 (可以在UPDATE时重新修改)
	PRINTFORML [1] 保留
	PRINTFORML [2] 不再变更
	$INPUT_LOOP_K127_BS
	INPUT
	IF RESULT == 0
		PRINTFORML
		;PRINTFORML [0] 水子ならそんなに大きくならないでしょ？(TW默认)
		PRINTFORML [0] 如果是水子的话就不会那么大了吧？(TW默认)
		;PRINTFORML [1] 水子のリーダーなんだし、母性溢れる巨乳なはず！
		PRINTFORML [1] 既然是水子的领袖、应该是母性洋溢的巨乳！
		$INPUT_LOOP_K127_ENCOUNTER
		INPUT
		IF RESULT == 0
			;PRINTFORMW 瓔花は[貧乳]でも［巨乳］でもありません。
			PRINTFORMW 瓔花既不是[貧乳]也不是［巨乳］。
			TALENT:127:105 = 0
		ELSEIF RESULT == 1
			;PRINTFORMW 瓔花は[巨乳]です。
			PRINTFORMW 瓔花是[巨乳]。
			TALENT:127:105 = 1
		ELSE
			GOTO INPUT_LOOP_K127_ENCOUNTER
		ENDIF
	ELSEIF RESULT == 1
		;PRINTFORMW 瓔花の胸圍変更を保留します。
		PRINTFORMW 保留瓔花的胸围变更。
	ELSEIF RESULT == 2
		;PRINTFORMW 今後、この選択肢は表示されません。
		PRINTFORMW 今后、这个选项不会被显示。
		CFLAG:127:1001 = 1
	ELSE
		GOTO INPUT_LOOP_K127_BS
	ENDIF
ENDIF

IF CFLAG:127:1002 == 0
			PRINTFORML
			;PRINTFORML 本口上による素質の変更を許可しますか？
			;PRINTFORML 許可した場合、【難以越過的底線】【積み石ランカー】を得ます
			;PRINTFORML また、特定の条件で【不信任人類】を得るようになります(【恋人】【恋慕】を取得すると消えます)
			PRINTFORML 允许根据本口上进行素质的变更吗？
			PRINTFORML 在允许的情况下、获得【難以越過的底線】【积石排名】
			PRINTFORML 另外，在特定的条件下会得到【不信任人類】(取得【恋人】【恋慕】后就会消失)
			PRINTFORML
			;PRINTFORML [0]-許可する
			PRINTFORML [0]-允许
			;PRINTFORML [1]-許可しない
			PRINTFORML [1]-不允许
			INPUT
			SELECTCASE RESULT
			;許可する
			CASE 0
				CFLAG:127:1002 = 1
				;PRINTFORML 変更しました
				PRINTFORML 变更了
				;変更内容はここに記述
				IF !TALENT:127:難以越過的底線 == 1
					TALENT:127:難以越過的底線 = 1
				ENDIF
				IF !TALENT:127:積み石ランカー == 5
					TALENT:127:積み石ランカー = 5
				ENDIF
			PRINTFORMW
			;許可しない
			CASEELSE
				CFLAG:127:1002 = -1
				;PRINTFORML 変更されません
				PRINTFORML 未变更
				PRINTFORMW
			ENDSELECT
ENDIF

RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K127
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します

IF !CFLAG:127:1001
	PRINTFORML 瓔花の胸圍を変更できます。
	PRINTFORML 要进行変更吗？
	PRINTFORML
	PRINTFORML [0] する (UPDATE時に再び変更できます)
	PRINTFORML [1] 保留する
	PRINTFORML [2] もう変更しない
	$INPUT_LOOP_K127_BS
	INPUT
	IF RESULT == 0
		PRINTFORML
		PRINTFORML [0] 水子ならそんなに大きくならないでしょ？(TW默认)
		PRINTFORML [1] 水子のリーダーなんだし、母性溢れる巨乳なはず！
		$INPUT_LOOP_K127_ENCOUNTER
		INPUT
		IF RESULT == 0
			PRINTFORMW 瓔花は[貧乳]でも［巨乳］でもありません。
			TALENT:127:105 = 0
		ELSEIF RESULT == 1
			PRINTFORMW 瓔花は[巨乳]です。
			TALENT:127:105 = 1
		ELSE
			GOTO INPUT_LOOP_K127_ENCOUNTER
		ENDIF
	ELSEIF RESULT == 1
		PRINTFORMW 瓔花の胸圍変更を保留します。
	ELSEIF RESULT == 2
		PRINTFORMW 今後、この選択肢は表示されません。
		CFLAG:127:1001 = 1
	ELSE
		GOTO INPUT_LOOP_K127_BS
	ENDIF
ENDIF
;三途の河～冥界に住んでいて賽の河原で瓔花と会った
IF MAIN_MAP == 6 && CFLAG:MASTER:現在位置 == 602
	PRINTFORMW 「そこのお前！」
	PRINTFORMDL 賽の河原を少々ぼーっと歩いていた%CALLNAME:MASTER%は急に声を礦物碎片れて振り向く
	PRINTFORMDL 振り向いた先には積みあがった石に座る少女が居た
	PRINTFORML
	PRINTFORMW 「酷い、酷いわー……動かずに周りをよく見渡してみなさい！」
	PRINTFORML 少女に言われ、周りを見渡すと沢山の積みあがった石と……おそらくぼーっと歩いていた自分が倒したのであろう石が転がっていた
	PRINTFORML 「お前のせいで積み石が崩れちゃったよ…今日は積石竞赛だったのに」
	PRINTFORMW 不注意でイベントを邪魔してしまったことを%CALLNAME:MASTER%は申し訳なく思い、謝罪した
	PRINTFORML 「まあ倒れたのは幸いにも誰かの作品ってわけじゃない会場を彩るオブジェだったし…次からは気を付けてね…」
	PRINTFORMW %CALLNAME:MASTER%はもう一度深く謝罪するとその場を立ち去る……前に時を止め、倒した積み石を周りの物を参考に苦戦しながらも積み上げ直した
	PRINTFORML
	PRINTFORML そして時は動き出す…！
	PRINTFORML
	PRINTFORML 「えっ！？凄い！凄いわー！この一瞬で你がやったの！？」
	PRINTFORML 「私は水子の霊の戒瓔花、えっ！？この近くに住んでるの！？ならなおのこと好都合ね！この河原でよく積石竞赛やってるから今度来てね！」
	PRINTFORMW %CALLNAME:MASTER%は今のを積むのにとても苦労したので、正直もう積み石なんてしたくはなかったが瓔花の勢いに押され今度来る約束をしてしまった…
;三途の河～冥界に住んでいて積石塚で瓔花と会った
ELSEIF MAIN_MAP == 6 && CFLAG:MASTER:現在位置 == 603
	PRINTFORMW 「そこのお前！」
	PRINTFORMDL 積石塚の周辺を少々ぼーっと歩いていた%CALLNAME:MASTER%は急に声を礦物碎片れて振り向く
	PRINTFORMDL 振り向いた先には積みあがった石に座る少女が居た
	PRINTFORML
	PRINTFORMW 「酷い、酷いわー……動かずに周りをよく見渡してみなさい！」
	PRINTFORMDL 少女に言われ、周りを見渡すと沢山の積みあがった石と……おそらくぼーっと歩いていた自分が倒したのであろう石が転がっていた
	PRINTFORML 「お前のせいで積み石が崩れちゃったよ……今日は積石竞赛だったのに」
	PRINTFORMW 不注意でイベントを邪魔しまったことを%CALLNAME:MASTER%は申し訳なく思い、謝罪した
	PRINTFORML 「まあ倒れたのは幸いにも誰かの作品ってわけじゃない会場を彩るオブジェだったし…次からは気を付けてね……」
	PRINTFORMW %CALLNAME:MASTER%はもう一度深く謝罪するとその場を立ち去る……前に時を止め、倒した積み石を周りの物を参考に苦戦しながらも積み上げ直した
	PRINTFORML
	PRINTFORML そして時は動き出す…！
	PRINTFORML
	PRINTFORML 「えっ！？凄い！凄いわー！この一瞬で你がやったの！？」
	PRINTFORML 「私は水子の霊の戒瓔花、えっ！？この近くに住んでる！？ならなおのこと好都合ね！ここや河原でよく積石竞赛やってるから今度来てね！」
	PRINTFORMW %CALLNAME:MASTER%は今のを積むのにとても苦労したので、正直もう積み石なんてしたくはなかったが瓔花の勢いに押され今度来る約束をしてしまった……
;三途の河～冥界の三途の河まで出掛けて瓔花と出会った場合
ELSEIF MAIN_MAP != 6 && CFLAG:MASTER:現在位置 == 620
	PRINTFORMW 「そこのお前！」
	PRINTFORMDL 三途の河の河原を少々ぼーっと歩いていた%CALLNAME:MASTER%は急に声を礦物碎片れて振り向く
	PRINTFORMDL 振り向いた先には積みあがった石に座る少女が居た
	PRINTFORML
	PRINTFORML 「酷い、酷いわー…動かずに周りをよく見渡してみなさい！」
	PRINTFORMW 少女に言われ、周りを見渡すと沢山の積みあがった石と……おそらくぼーっと歩いていた自分が倒したのであろう石が転がっていた
	PRINTFORML 「お前のせいで積み石が崩れちゃったよ……今日は積石竞赛だったのに」
	PRINTFORMW 不注意でイベントを壊してしまったことを你は申し訳なく思い、謝罪した
	PRINTFORML 「まあ倒れたのは幸いにも誰かの作品ってわけじゃない会場を彩るオブジェだったし…次からは気を付けてね…」
	PRINTFORMW 你はもう一度深く謝罪するとその場を立ち去る……前に時を止め、倒した積み石を周りの物を参考に苦戦しながらも積み上げ直した
	PRINTFORML
	PRINTFORML そして時は動き出す…！
	PRINTFORML
	PRINTFORML 「えっ！？凄い！凄いわー！この一瞬で你がやったの！？」
	PRINTFORML 「私は水子の霊の戒瓔花、この河原でよく積石竞赛やってるから今度来てね！そのスピードなら積み方の粗さを改善すればトップも狙えるわ！」
	PRINTFORMDW %CALLNAME:MASTER%は今のを積むのにとても苦労したので、正直もう積み石なんてしたくはなかったが瓔花の勢いに押され今度来る約束をしてしまった…
;三途の河～冥界に住んでいて瓔花的家で瓔花と出会った場合
ELSEIF MAIN_MAP == 6 && CFLAG:MASTER:現在位置 == 609
	PRINTFORMDL 賽の河原の外れに石を積みあげて作られた家屋を見つけた
	PRINTFORMDL カチカチカチ…となにやら石がぶつかり合う音がするそこになんとなく近づくと、
	PRINTFORMDW そこには積みあがった石に座りながら積み石をしている少女がそこにいた
	PRINTFORML
	PRINTFORML 「そこのお前！」
	PRINTFORMDW こちらの方に気づいた少女は、大きな声で%CALLNAME:MASTER%を糾弾し始めた
	PRINTFORML 「酷い、酷いわー…動かずに周りをよく見渡してみなさい！」
	PRINTFORMDW 少女に言われ、周りを見渡すと沢山の積みあがった石と……おそらくぼーっと歩いていた自分が倒したのであろう石が転がっていた
	PRINTFORML 「お前のせいで私の積み石が崩れちゃったよ……しくしくしく……」
	PRINTFORMW 不注意で倒してしまったことを%CALLNAME:MASTER%は申し訳なく思い、謝罪した
	PRINTFORML 「まあ崩されるのは獄卒にやられて慣れてるから良いけど…次からは気を付けてね……」
	PRINTFORMW %CALLNAME:MASTER%はもう一度深く謝罪するとその場を立ち去る……前に時を止め、倒した積み石を周りの物を参考に苦戦しながらも積み上げ直した
	PRINTFORML
	PRINTFORML そして時は動き出す…！
	PRINTFORML
	PRINTFORML 「えっ！？凄い！凄いわー！この一瞬で你がやったの！？」
	PRINTFORML 「私は水子の霊の戒瓔花、えっ！？この近くに住んでる！？ならなおのこと好都合ね！河原でよく積石竞赛やってるから今度来てね！」
	PRINTFORMW %CALLNAME:MASTER%は今のを積むのにとても苦労したので、正直もう積み石なんてしたくはなかったが瓔花の勢いに押され今度来る約束をしてしまった……
;それ以外
;移動節度があるのであまりこれがファーストコンタクトは無いと思う
ELSE
	PRINTFORMW 「こんにちは！」
	PRINTFORMDL 不意に背後から礦物碎片れた声。振り向くとそこには褐色……いや土気色の肌の少女がいた
	PRINTFORML
	PRINTFORML 「私は水子の霊の戒瓔花、賽の河原でよく積石竞赛やっているんだけど你今度参加しない！？」
	PRINTFORMDW 急な勧誘に何も返事が出来ないでいると、瓔花は座りこみ石を積みだした
	PRINTFORML 「もしかして積み石を知らないの？こうやってやる楽しい玩耍なのよ！」
	PRINTFORMDL ハイスピードで石を積み上げていく瓔花を見て%CALLNAME:MASTER%は感嘆した…
	PRINTFORMDW コンテストの日程を瓔花に聞き、你は今度時間があるときにでも参加してみることに決めた
ENDIF
RETURN 1

;@K127_BEFORETRAIN
;一日の開始時、正確には来訪判定時に読み込む関数,使用ときはコメントアウトを外すこと
;ここでCFLAG:XX:翌日来訪を設定して確実に来訪させたりTCVAR:XX:発情で朝っぱらからサカらせることもできる
;ただし「毎朝例外なく読み込まれる」ため、条件を設定しておくことが望ましい

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;约会帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K127_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
;地の文
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
IF LOCAL
	PRINTFORMW 「%CALLNAME:MASTER%、今日はありがとう」
	PRINTFORMW %CALLNAME:MASTER%の前を歩いていた瓔花が振り返ってぺこりと頭を下げる
	PRINTFORML
	PRINTFORMW 「最初の頃は河原からなんて出たくないなあって思ってたけど最近は稍微楽しいんだよね」
	PRINTFORMW そう言いながら瓔花は徐々に%CALLNAME:MASTER%との距離を縮めて…やがて你の目の前に立った
	PRINTFORMW 「それはきっと%CALLNAME:MASTER%と一緒だからだって最近気づいたの」
	PRINTFORML
	PRINTFORMW ちゅっ…
	PRINTFORML
	PRINTFORMW 「今のはその礼物！今度は私たちの王国で積み石しようね！」
	PRINTFORMW そう言ってはにかんだ瓔花の土気色の肌是つもより赤らんでいた
	;接吻を中止したい場合は以下を開放
	;TCVAR:中止接吻 = 1
ENDIF
RETURN 1

;==================================================
;约会帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K127_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("初告白")
			PRINTFORMW 「ねえ%CALLNAME:MASTER%」
			PRINTFORMW 「私は水子の霊だからあんまりよくわからないんだけど」
			PRINTFORML 「生きている人たちは一緒にいて楽しい人と」
			PRINTFORMW 「恋人っていうのになるんでしょ？」
			PRINTFORMW 「私は%CALLNAME:MASTER%といて楽しいよ？」
			PRINTFORMW 「一緒に積み石したいし…それ以外のことも一緒なら楽しいんだ」
			PRINTFORMW 「これきっと恋なんだと思う」
			PRINTFORML
			PRINTFORMW 「だからもし%CALLNAME:MASTER%が私と一緒にいて楽しいなら」
			PRINTFORMW 「どう…かな…？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「やったー！！」
		PRINTFORMDW 瓔花は両手を挙げて喜んだ
		PRINTFORMW 「これでもっといっぱい楽しい思い出を積めるね」
		PRINTFORMW 「水子だから愛とか恋とか分からないけど」
		PRINTFORMW 「今%CALLNAME:MASTER%に感じてるのがきっとそういうことなんだろうから…」
		IF TALENT:127:81 == 3
			TALENT:127:81 = 0
			CALL COLORMESSAGE(@"瓔花は【不信任人類】を失った",C_YELLOW,1)
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「しくしくしく…告白が失敗するなんて…」
		PRINTFORMW 「しょうがない。また一から積み上げていくしかないよね」
		PRINTFORMW 「%CALLNAME:MASTER%……これからも宜しくね」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;约会帰り
;==================================================
@M_KOJO_SPEVENT_K127_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 TALENT:127:心情 == -1 || CFLAG:127:ブチギレ || MARK:127:反発刻印 >= 3
			PRINTFORMW 「粪！お前なんて地獄に落ちろー！」
			PRINTFORMW 瓔花は別れる直前も心情が悪かった…
		ELSEIF TALENT:恋慕
			PRINTFORMW 「ふふふ…今日は積み石以上に楽しかったかも」
			PRINTFORMW 瓔花は名残惜しそうに%CALLNAME:MASTER%を一瞥すると、中有之道の方に向かって行った
			PRINTFORMW 「じゃあねー！」
		ELSEIF TALENT:思慕
			PRINTFORMW 「今日は楽しかったよ。また誘ってね！」
			PRINTFORMW 瓔花は%CALLNAME:MASTER%に手を振り的同时、中有之道の方に向かって行った
		ELSE
			PRINTFORMW 「今日は楽しかったよ。今度は積み石でも遊ぼうね！」
			PRINTFORMW 瓔花はそう言うと、中有之道の方に向かって行った
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「しょうがない。許してあげるよ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「しょうがない。少しは許してあげる」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「しょうがない。ほんの少し許してあげる」
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K127_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;仕事中ではなく、今日会ってない。
	IF !TCVAR:127:今天有否见面
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;正月、バレンタイン、萬聖節、聖誕節、兔子之日の場合
		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) || DAY:3 == 29
			CALL SPECIALDAY_EVENT_K127
		ELSE
			;DAY:2で季節を選択
			SELECTCASE DAY:2
			;春
			CASE 1
				;TIME:2で朝昼晩を選択
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよー%CALLNAME:MASTER%」
					PRINTFORMW 「三途の河は季節の変化なんて少ないけど、春は良い積み石日和なんだ」
					PRINTFORMW 「%CALLNAME:MASTER%は積み石した？」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちはー」
					PRINTFORMW 「こんな開朗な日にはやっぱり積み石だよ。やろうよ%CALLNAME:MASTER%」
				;夜
				CASE 5,6,7
					PRINTFORML 「こんばんはー%CALLNAME:MASTER%」
					PRINTFORML 「春の開朗に誘われて…こんな処までよく来たね」
					PRINTFORMW 「早積み対決でもする？」
				ENDSELECT
			;夏
			CASE 2
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよう%CALLNAME:MASTER%」
					PRINTFORMW 「夏は嫌いだから朝から稍微河を渡る亡者の気分…」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちは…」
					PRINTFORMW 「水子としては部屋に引きこもらないと、やってられないよこの暑さ…」
				;夜
				CASE 5,6,7
					PRINTFORML 「こんばんは%CALLNAME:MASTER%」
					PRINTFORMW 「私は暑いの苦手だけど、夜になれば多少はマシね」
					PRINTFORML 「河原に引きこもってた水子霊だから、私は現世の亡霊事情には詳しくないんだけど…」
					PRINTFORMW 「幽霊が夜に出るらしいのって私みたいに暑いのがニガテだからなんじゃない？」
				ENDSELECT
			;秋
			CASE 3
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよー%CALLNAME:MASTER%」
					PRINTFORMW 「秋は良いよね、涼しくて。今日は稍微遠出たくさんしても良いかも」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちはー%CALLNAME:MASTER%」
					PRINTFORMW 「芸術の秋に相応しい積み石を部屋で考えてるんだ」
				;夜
				CASE 5,6,7
					PRINTFORML 「こんばんはー%CALLNAME:MASTER%」
					PRINTFORMW 「部屋を出たときに彼岸花拾ったの。欲しい？」
					PRINTFORMW 「いらない？そう、綺麗なのに…」
				ENDSELECT
			;冬
			CASE 4
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよー%CALLNAME:MASTER%」
					PRINTFORMW 「蜜柑でも積む？」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちはー%CALLNAME:MASTER%」
					PRINTFORML 「私は寒いの結構好きなんだけど。冬は好きじゃないんだ」
					PRINTFORMW 「……水子の多くは冬に死んでるからね」
				;夜
				CASE 5,6,7
					PRINTFORML 「冬の夜は恐ろしいから、外に出ない方が良いよ」
					PRINTFORMW 「冬の夜にやられて、私たちの国来了子を毎年のように見るんだ」
				ENDSELECT
			ENDSELECT
		ENDIF
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;正月、バレンタイン、萬聖節、聖誕節の場合
		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) || DAY:3 == 29
			CALL SPECIALDAY_EVENT_K127
		ELSE
			;DAY:2で季節を選択
			SELECTCASE DAY:2
			;春
			CASE 1
				;TIME:2で朝昼晩を選択
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよー%CALLNAME:MASTER%」
					PRINTFORMW 「三途の河は季節の変化なんて少ないけど、春は良い積み石日和なんだ」
					PRINTFORMW 「%CALLNAME:MASTER%は積み石した？」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちはー」
					PRINTFORMW 「こんな開朗な日にはやっぱり積み石だよ。部屋に籠ってないでやろうよ%CALLNAME:MASTER%」
				;夜
				CASE 5,6,7
					PRINTFORML 「こんばんはー%CALLNAME:MASTER%」
					PRINTFORML 「春の開朗に誘われて…こんな処までやって来ちゃった」
					PRINTFORMW 「早積み対決でもする？」
				ENDSELECT
			;夏
			CASE 2
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよう%CALLNAME:MASTER%」
					PRINTFORMW 「夏は嫌いだから朝から稍微河を渡る亡者の気分…」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちは…」
					PRINTFORMW 「水子としては部屋に入って引きこもらないと、やってられないよこの暑さ…」
				;夜
				CASE 5,6,7
					PRINTFORML 「こんばんは%CALLNAME:MASTER%」
					PRINTFORMW 「私は暑いの苦手だけど、夜になれば多少はマシね」
					PRINTFORML 「河原に引きこもってた水子霊だから、私は現世の亡霊事情には詳しくないんだけど…」
					PRINTFORMW 「幽霊が夜に出るらしいのって私みたいに暑いのがニガテだからなんじゃない？」
				ENDSELECT
			;秋
			CASE 3
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよー%CALLNAME:MASTER%」
					PRINTFORMW 「秋は良いよね、涼しくて。早速稍微外に出てみたんだ」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちはー%CALLNAME:MASTER%」
					PRINTFORMW 「芸術の秋に相応しい積み石を部屋で考えようかなって」
				;夜
				CASE 5,6,7
					PRINTFORML 「こんばんはー%CALLNAME:MASTER%」
					PRINTFORMW 「さっき、彼岸花拾ったの。欲しい？」
					PRINTFORMW 「いらない？そう、綺麗なのに…」
				ENDSELECT
			;冬
			CASE 4
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよー%CALLNAME:MASTER%」
					PRINTFORMW 「外は寒いからなるべく部屋にいた方が良いよ」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちはー%CALLNAME:MASTER%」
					PRINTFORML 「私は寒いの結構好きなんだけど。冬は好きじゃないんだ」
					PRINTFORMW 「……水子の多くは冬に死んでるからね」
				;夜
				CASE 5,6,7
					PRINTFORML 「冬の夜は恐ろしいから、外に出ない方が良いよ」
					PRINTFORMW 「冬の夜にやられて、私たちの国来了子を毎年のように見るんだ」
				ENDSELECT
			ENDSELECT
		ENDIF
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORMW 「あっ%CALLNAME:MASTER%！」
			PRINTFORMW 「ほら、スペースあるから入って入って！」
			PRINTFORMW 「お風呂の中で私のこと抱住てくれると嬉しいな」
		ELSEIF TALENT:愛欲
			PRINTFORMW 「あっ%CALLNAME:MASTER%」
			PRINTFORMW 「……エッチなことしにきたの？」
			PRINTFORMW 「別に良いけど、もう稍微お風呂堪能してからでお願い～」
		ELSEIF TALENT:思慕
			PRINTFORMW 「あっ%CALLNAME:MASTER%！」
			PRINTFORMW 「%CALLNAME:MASTER%もお風呂好きなの？」
			PRINTFORMW 「一緒に入る？」
		ELSE
			PRINTFORMW 「あっ%CALLNAME:MASTER%」
			PRINTFORMW 「許可取らずに勝手に入るのは鬼だけど、今はお風呂で気分が良いから許すよ～」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORMW 「あっ%CALLNAME:MASTER%」
			PRINTFORMW 「……一緒に入りたいけどもう限界～」
			PRINTFORMW 「茹で上がったクラゲになっちゃうから出るね」
		ELSEIF TALENT:愛欲
			PRINTFORMW 「あっ%CALLNAME:MASTER%」
			PRINTFORMW 「……エッチなことしにきたの？」
			PRINTFORMW 「残念だけど、私もう出る…あつぃ…」
		ELSE
			PRINTFORMW 「あっ%CALLNAME:MASTER%」
			PRINTFORMW 「私はもう出るね…」
			PRINTFORMW 「お風呂は好きだけど暑いのは得意じゃない……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORMW 「あっ%CALLNAME:MASTER%」
			PRINTFORMW 「お風呂は神聖で尊いものなの……」
			PRINTFORMW 「だから邪魔しないで出て行ってね」
		ELSE
			PRINTFORMW 「神聖で尊いお風呂の時間を邪魔するのは許されないわ！」
			PRINTFORMW 「さっさと出て行って！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;正月、バレンタイン、萬聖節、聖誕節、兔子之日の場合
		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) || DAY:3 == 29
			CALL SPECIALDAY_EVENT_K127
		ELSE
			;DAY:2で季節を選択
			SELECTCASE DAY:2
			;春
			CASE 1
				;TIME:2で朝昼晩を選択
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよー%CALLNAME:MASTER%」
					PRINTFORMW 「春は暖かくて良い積み石日和なんだよ」
					PRINTFORMW 「%CALLNAME:MASTER%は積み石した？」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちはー」
					PRINTFORMW 「こんな開朗な日にはやっぱり積み石だよ。やろうよ%CALLNAME:MASTER%」
				;夜
				CASE 5,6,7
					PRINTFORML 「こんばんはー%CALLNAME:MASTER%」
					PRINTFORML 「春の開朗に誘われて…こんな時間まで外に出ちゃった」
					PRINTFORMW 「早積み対決でもする？」
				ENDSELECT
			;夏
			CASE 2
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよう%CALLNAME:MASTER%」
					PRINTFORMW 「夏は嫌いだから朝から稍微河を渡る亡者の気分…」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちは…」
					PRINTFORMW 「うう…外は暑いよー涼しくならないかなー」
				;夜
				CASE 5,6,7
					PRINTFORML 「こんばんは%CALLNAME:MASTER%」
					PRINTFORMW 「私は暑いの苦手だけど、夜になれば多少はマシね」
					PRINTFORML 「というわけでお散歩中なんだけど…早積み勝負とかやる？」
				ENDSELECT
			;秋
			CASE 3
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよー%CALLNAME:MASTER%」
					PRINTFORMW 「秋は良いよねー地獄のような夏から涼しくなって
					PRINTFORMW 「それに感謝をして、外で積み石しているんだ」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちはー%CALLNAME:MASTER%」
					PRINTFORMW 「芸術の秋に相応しい積み石のアイデアを集めるために散歩中よ」
				;夜
				CASE 5,6,7
					PRINTFORML 「こんばんはー%CALLNAME:MASTER%」
					PRINTFORMW 「さっきあそこで彼岸花拾ったの。欲しい？」
					PRINTFORMW 「いらない？そう、綺麗なのに…」
				ENDSELECT
			;冬
			CASE 4
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「おはよー%CALLNAME:MASTER%」
					PRINTFORMW 「寒そうな顔してるね。私的にはこれぐらいがちょうど良いんだけどなー」
				;昼
				CASE 3,4
					PRINTFORML 「こんにちはー%CALLNAME:MASTER%」
					PRINTFORML 「私は寒いの結構好きなんだけど。冬は好きじゃないんだ」
					PRINTFORMW 「……水子の多くは冬に死んでるからね」
				;夜
				CASE 5,6,7
					PRINTFORML 「冬の夜は恐ろしいから、さっさと家に帰った方が良いよ」
					PRINTFORMW 「冬の夜にやられて、私たちの国来了子を毎年のように見るんだ」
				ENDSELECT
			ENDSELECT
		ENDIF
	ENDIF
	;-------------------------------------------------
	;他角色と约会中に遭遇した
	;ARG:1に约会的对象
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF TALENT:恋人
			IF FLAG:约会的对象 == 30
				PRINTFORML 「%CALLNAME:MASTER%が私以外の人と约会してるとは噂で聞いてたけど…」
				PRINTFORMW 「よりにもよって、閻魔さまかぁ……」
				PRINTFORMW 隣にいる映姫は後ろめたさを感じているのか、瓔花から少し目を逸らした
				PRINTFORMW 「恩があるし良い人だって知ってるから責めづらい…というわけで%CALLNAME:MASTER%に石を向けるね」
				PRINTFORMW 瓔花は持っていた石を、威嚇するかのように真上に投げた
				PRINTFORML 「後で理由は聞くけど…地獄に落ちないと良いね」
				PRINTFORMW 落ちて来た石をキャッチして瓔花は立ち去った
			;ELSEIF FLAG:约会的对象 ==4,20,21,22,23,66,86,91
				;PRINTFORML 「%CALLNAME:MASTER%が私以外の人と约会してるとは噂で聞いてたけど…」
				;PRINTFORMW 「その相手が幽霊って…もしかして%CALLNAME:MASTER%って私のこと水子だから狙ってたの？」
				;PRINTFORMW そんなことは無いと%CALLNAME:MASTER%は必死に弁明した…
				;PRINTFORML 「……とりあえず一旦納得はするけど。大好きな幽霊の仲間入りしないと良いね？」
				;PRINTFORMW そう言って立ち去った瓔花の背中姿を%CALLNAME:MASTER%は寒気を感じながら見つめた
			ELSEIF FLAG:约会的对象 == 76
				PRINTFORML 「%CALLNAME:MASTER%が私以外の人と约会してるとは噂で聞いてたけど…」
				PRINTFORMW 「小町ちゃんが相手だったんだぁ…」
				PRINTFORMW 隣にいる小町はほんの少し後ろめたさを感じているのか、瓔花から目を逸らした
				PRINTFORMW 「良い人だって知ってるから責めづらい…というわけで%CALLNAME:MASTER%に石を向けるね」
				PRINTFORMW 瓔花は持っていた石を、威嚇するかのように真上に投げた
				PRINTFORML 「後で理由は聞くけど…三途の河を無事に渡れると良いね」
				PRINTFORMW 落ちて来た石をキャッチして瓔花は立ち去った
			ELSEIF FLAG:约会的对象 == 89
				PRINTFORML 「%CALLNAME:MASTER%が私以外の人と约会してるとは噂で聞いてたけど…」
				PRINTFORMW 「その相手が死人って…もしかして%CALLNAME:MASTER%って私のこと水子だから狙ってたの？」
				PRINTFORMW 「前に私の肌の色を褒めてくれたのって……そういうこと？」
				PRINTFORMW そんなことは無いと%CALLNAME:MASTER%は必死に弁明した…
				PRINTFORML 「……とりあえず一旦納得はするけど。大好きな死人の仲間入りしないと良いね？」
				PRINTFORMW そう言って立ち去った瓔花の背中姿を%CALLNAME:MASTER%は寒気を感じながら見つめた
			ELSEIF FLAG:约会的对象 == 121
				PRINTFORML 「%CALLNAME:MASTER%が私以外の人と约会してるとは噂で聞いてたけど…」
				PRINTFORMW 「よりにもよって、成美ちゃんかぁ……」
				PRINTFORMW 隣にいる成美は後ろめたさを感じているのか、瓔花から少し目を逸らした
				PRINTFORMW 「恩があるし良い人だって知ってるから責めづらい…というわけで%CALLNAME:MASTER%に石を向けるね」
				PRINTFORMW 瓔花は持っていた石を、威嚇するかのように真上に投げた
				PRINTFORML 「後で理由は聞くけど…仏の顔も三度までだよ？」
				PRINTFORMW 落ちて来た石をキャッチして瓔花は立ち去った
			ELSEIF FLAG:约会的对象 == 128
				PRINTFORML 「%CALLNAME:MASTER%が私以外の人と约会してるとは噂で聞いてたけど…」
				PRINTFORMW 「潤美ちゃんが相手だったんだぁ…」
				PRINTFORMW 隣にいる潤美はほんの少し後ろめたさを感じているのか、瓔花から目を逸らした
				PRINTFORMW 「良い人だって知ってるから責めづらい…というわけで%CALLNAME:MASTER%に石を向けるね」
				PRINTFORMW 瓔花は持っていた石を、威嚇するかのように真上に投げた
				PRINTFORML 「後で理由は聞くけど…三途の河を無事に渡れると良いね」
				PRINTFORMW 落ちて来た石をキャッチして瓔花は立ち去った
			ELSEIF FLAG:约会的对象 == 129
				PRINTFORML 「%CALLNAME:MASTER%が私以外の人と约会してるとは噂で聞いてたけど…」
				PRINTFORMW 「よりにもよって、久侘歌ちゃんかぁ……」
				PRINTFORMW 隣にいる久侘歌は後ろめたさを感じているのか、瓔花から少し目を逸らした
				PRINTFORMW 「恩があるし良い人だって知ってるから責めづらい…というわけで%CALLNAME:MASTER%に石を向けるね」
				PRINTFORMW 瓔花は持っていた石を、威嚇するかのように真上に投げた
				PRINTFORML 「後で理由は聞くけど…このことをニワトリみたいに忘れたりしないでね？」
				PRINTFORMW 落ちて来た石をキャッチして瓔花は立ち去った
			ELSE
				PRINTFORML 「%CALLNAME:MASTER%が私以外の人と约会してるとは噂で聞いてたけど…」
				PRINTFORMW 「実際に見るとまったく良い気が不会！許さない！」
				PRINTFORMW 「女泣かせ…女泣かせだわー！地獄に落ちろー！」
			ENDIF
		ELSEIF TALENT:恋慕
			IF FLAG:约会的对象 == 30
				PRINTFORML 「%CALLNAME:MASTER%が色んな人と约会してると噂で聞いてたけど…」
				PRINTFORMW 「閻魔さまが约会のお相手…」
				PRINTFORMW 「あんな完璧な人と水子の私なんて比べるまでもないよね」
				PRINTFORMW 「流石に勝ち目がないかも……うう……涙が止まらない」
			;ELSEIF FLAG:约会的对象 ==4,20,21,22,23,66,86,91
				;PRINTFORML 「%CALLNAME:MASTER%が色んな人と约会してるとは噂で聞いてたけど…」
				;PRINTFORMW 「その相手が幽霊って…」
				;PRINTFORMW 「これは私にもチャンスがあるって考えた方が良いのかな？それともその逆？」
			ELSEIF FLAG:约会的对象 == 76
				PRINTFORML 「%CALLNAME:MASTER%が色んな人と约会してると噂で聞いてたけど…」
				PRINTFORMW 「小町ちゃんが约会のお相手…」
				PRINTFORMW 「水子の男の子たちが小町ちゃんが理想とか前言ってたの聞いたことある…」
				PRINTFORMW 「これは勝ち目がないかも…うう……涙が止まらない」
			ELSEIF FLAG:约会的对象 == 89
				PRINTFORML 「%CALLNAME:MASTER%が色んな人と约会してるとは噂で聞いてたけど…」
				PRINTFORMW 「その相手が死体って…」
				PRINTFORMW 「これは私にもチャンスがあるって考えた方が良いのかな？それともその逆？」
			ELSEIF FLAG:约会的对象 == 121
				PRINTFORML 「%CALLNAME:MASTER%が色んな人と约会してると噂で聞いてたけど…」
				PRINTFORMW 「成美ちゃんが约会のお相手…」
				PRINTFORMW 「あんな優しい地蔵さまと水子の私なんて比べるまでもないよね」
				PRINTFORMW 「流石に勝ち目がないかも……うう……涙が止まらない」
			ELSEIF FLAG:约会的对象 == 128
				PRINTFORML 「%CALLNAME:MASTER%が色んな人と约会してると噂で聞いてたけど…」
				PRINTFORMW 「潤美ちゃんが约会のお相手…」
				PRINTFORMW 「水子の男の子たちが潤美ちゃんが理想とか前言ってたの聞いたことある…」
				PRINTFORMW 「これは勝ち目がないかも…うう……涙が止まらない」
			ELSEIF FLAG:约会的对象 == 129
				PRINTFORML 「%CALLNAME:MASTER%が色んな人と约会してると噂で聞いてたけど…」
				PRINTFORMW 「久侘歌ちゃんが约会のお相手…」
				PRINTFORMW 「あんな優しい神様と水子の私なんて比べるまでもないよね」
				PRINTFORMW 「流石に勝ち目がないかも……うう……涙が止まらない」
			ELSE
				PRINTFORML 「%CALLNAME:MASTER%が色んな人と约会してるとは噂で聞いてたけど…」
				PRINTFORMW 「実際見ると凄い嫌な気持ちがする」
				PRINTFORMW 「やっぱり私のこの感情って……」
			ENDIF
		ELSEIF TALENT:127:81 == 3
			PRINTFORML 「ふぅん……」
			PRINTFORMW 「まーそうだよね%CALLNAME:MASTER%はそういう人だもんね」
		ELSE
			IF FLAG:约会的对象 == 30
				PRINTFORML 「%CALLNAME:MASTER%と閻魔さまが约会してる…」
				PRINTFORMW 「%CALLNAME:MASTER%、閻魔さまを泣かしたら水子一同許さないからね！」
			;ELSEIF FLAG:约会的对象 ==4,20,21,22,23,66,86,91
				;PRINTFORML 「%CALLNAME:MASTER%と幽霊が约会してる…」
				;PRINTFORMW 「%CALLNAME:MASTER%、幽霊は色々大変だからちゃんとエスコートしてあげてね！」
			ELSEIF FLAG:约会的对象 == 76
				PRINTFORML 「%CALLNAME:MASTER%と小町ちゃんが约会してる…」
				PRINTFORMW 「%CALLNAME:MASTER%、小町ちゃんを泣かしたら水子一同許さないからね！」
			ELSEIF FLAG:约会的对象 == 89
				PRINTFORML 「%CALLNAME:MASTER%と死体が约会してる…」
				PRINTFORMW 「%CALLNAME:MASTER%、死体は色々大変だからちゃんとエスコートしてあげてね！」
			ELSEIF FLAG:约会的对象 == 121
				PRINTFORML 「%CALLNAME:MASTER%と成美ちゃんが约会してる…」
				PRINTFORMW 「%CALLNAME:MASTER%、成美ちゃんを泣かしたら水子一同許さないからね！」
			ELSEIF FLAG:约会的对象 == 128
				PRINTFORML 「%CALLNAME:MASTER%と潤美ちゃんが约会してる…」
				PRINTFORMW 「%CALLNAME:MASTER%、潤美ちゃんを泣かしたら水子一同許さないからね！」
			ELSEIF FLAG:约会的对象 == 129
				PRINTFORML 「%CALLNAME:MASTER%と久侘歌ちゃんが约会してる…」
				PRINTFORMW 「%CALLNAME:MASTER%、久侘歌ちゃんを泣かしたら水子一同許さないからね！」
			ELSE
				PRINTFORMW 「约会してるの？ってことは…積み石が邪魔だね。稍微待ってねすぐ片付けるよ」
				PRINTFORMW 「えっ積み石を片付けてくれるのが意外？失礼しちゃうわー健全なカップルなら配慮ぐらいするよ」
				PRINTFORMW 「健全じゃないカップルだったら…石でも投げるかもだけど」
			ENDIF
		ENDIF
		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

ENDIF
RETURN 1

;==================================================
;特別な日イベント用関数
;==================================================
;-------------------------------------------------
@SPECIALDAY_EVENT_K127
;-------------------------------------------------
	;謹賀新年
	IF DAY:2 == 1 && DAY:3 == 1 && DAY:0 != 1
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORMW 「新しい年になってから会うのははじめてだね？」
			PRINTFORMW 「今年もいっぱい色んな所で思い出作ろうね！」
		ELSEIF TALENT:愛欲
			PRINTFORMW 「新しい年になってから会うのははじめてだね？」
			PRINTFORMW 「姫はじめ…だっけ？やる？」
		ELSEIF TALENT:思慕
			PRINTFORMW 「あっ！%CALLNAME:MASTER%！」
			PRINTFORMW 「新年を記念した積み石したからぜひ見に来てね！」
		ELSE
			PRINTFORMW 「あっ%CALLNAME:MASTER%だ」
			PRINTFORMW 「新年を記念した積み石をみんなと作ったから見に来てね」
		ENDIF
	;情人節
	ELSEIF DAY:2 == 4 && DAY:3 == 14 && CFLAG:2 >= 1000
		IF TALENT:恋人
			PRINTFORMW 「あっ%CALLNAME:MASTER%%UNICODE(0x2665)%。今日が何の日か知ってるでしょ？」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あっ%CALLNAME:MASTER%。今日が何の日か知ってるでしょ？」
		ELSEIF TALENT:思慕
			PRINTFORMW 「ねぇねぇ%CALLNAME:MASTER%、今日が何の日か知ってる？」
		ELSEIF CFLAG:2 >= 1000
			PRINTFORMW 「今日はそういう日なんでしょ？用意したよー！」
		ENDIF
		SELECTCASE CFLAG:好感度
		CASE 1000 TO 3000
			PRINTFORMW 「巧克力どーぞ」
			PRINTFORMW 「うちの兒童たちにも配ったんだー」
		CASE 3001 TO 5000
			PRINTFORMW 「巧克力どーぞ！」
			PRINTFORMW 「感謝の気持ちを込めて、うちの兒童たちに配ったやつよりもワンランク上だよ」
		CASE IS > 5000
			IF EXP:愛情経験 >= 100
				PRINTFORMW 「是、巧克力%UNICODE(0x2665)%」
				PRINTFORMW 「これね、手作りの巧克力なんだよ」
				PRINTFORMW 「頑張って作ったから、美味しく食べてくれると嬉しいな%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「巧克力どーぞ！」
				PRINTFORMW 「愛を込めて、私が前から食べたいと思っていた高級巧克力なの」
				PRINTFORMW 「ふふふ……先に食べたけど味は保証するよ」
			ENDIF
		ENDSELECT
	;萬聖節
	ELSEIF DAY:2 == 3 && DAY:3 == 30
		PRINTFORMW 「トリック・オア・ストーン！」
		PRINTFORMW 「積み石といたずらどっちが良い？」
	;聖誕節
	ELSEIF DAY:2 == 4 && DAY:3 == 25
		PRINTFORML 「水子的には聖誕節は嫌いだわー」
		PRINTFORMW 「だって、熱に浮かれて望まれずに生まれて捨てられる兒童が多い日だって言うでしょー？」
		PRINTFORMW 「あと知らない誰かの誕生日を祝う日っていうのも好きじゃないな。だって私、誕生日も知らずに死んだし」
		IF TALENT:恋人  || TALENT:恋慕
			PRINTFORMW 「……でも%CALLNAME:MASTER%と一緒に楽しめるから」
			PRINTFORMW 「今はこういうイベント事嫌いじゃないよ」
		ELSE
			PRINTFORMW 「誕生日なんて……知らなくても問題ないもん」
		ENDIF
	ELSEIF DAY:3 == 29
		PRINTFORML 「ぴょんぴょーん！」
		PRINTFORMW 「今日の私はバニーだよっ！」
		PRINTFORMW 「積石竞赛も兔子之日やってるからよろしくね！」
	ENDIF
;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K127_2(ARG,ARG:1)
#DIM 分岐
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
			SELECTCASE RAND:9
			;軽はずみな性交はしないのであくまで処理の範囲まで
				CASE 0
					PRINTFORML 「おはよう%CALLNAME:MASTER%」
					PRINTFORML 「すごいぐっすり寝てたからこのまま起きないんじゃないかって心配になっちゃった」
				CASE 1
					PRINTFORML カチ…カチ…カチ…
					PRINTFORMW %CALLNAME:MASTER%が睁開眼睛と、石同士が轻轻地ぶつかる音が聞こえる
					PRINTFORML 「ごめんね。日課の朝の積み石してたんだ。起こしちゃった？」
					PRINTFORMW %CALLNAME:MASTER%は特に積み石の音は関係ないことを温柔的伝えた…
				CASE 2
					PRINTFORML 「あっ起きた」
					PRINTFORMW 寝顔を覗いていたのか妙に顔が近い瓔花に一日の挨拶をした
				CASE 3
					PRINTFORML 「おはよー、どんな夢見た？」
					PRINTFORMW 「私？……暖かい、暗い、そんな場所でプカプカ漂浮の夢だったよ」
				CASE 4
					PRINTFORML 「おはよー、これどう？起きて早速作ったんだけど」
					PRINTFORMW 視線を横に移すと、中々よさげな石を積み上げたオブジェがそこにあった
				CASE 5
					PRINTFORML 「おはよー、どんな夢見た？」
					PRINTFORML 「私？……何かが怖くて舞蹈の夢」
				;モーニング手コキ
				CASE 6
					PRINTFORMW 下半身が何やら涼しい
					PRINTFORML そう感じて目を覚ました%CALLNAME:MASTER%は、横に座り込んだ瓔花と目が合った
					PRINTFORML
					PRINTFORMW 「朝から元気だったから楽にしてあげようと思って」
					PRINTFORML 瓔花のその言葉を聞いて、目線を下半身に移すと……
					PRINTFORMW 露出した下半身、立ち上がったイチモツ、そしてそれを温柔的握る瓔花の手がそこにはあった
					PRINTFORML 「ここが元気すぎると、計画性無く兒童を作りそうだからこうやって処理しないと」
					PRINTFORMW %CALLNAME:MASTER%を好き勝手出来る状況が愉しいのか、水子の少女は妖美に笑う
					PRINTFORML そうしてひんやりとする土気色の指を竿に絡ませて、徐々に竿を激烈地しごいていった…
					PRINTFORML ………
					PRINTFORML ……
					PRINTFORMW …
					PRINTFORMW 瓔花のおかげで朝勃ちの処理を終えた%CALLNAME:MASTER%、心地よい朝を迎えた
					BASE:MASTER:精力 -= 200
				;モーニング口交
				CASE 7
					PRINTFORMW 何やら身体が重い
					PRINTFORML そう感じて夢から覚めた%CALLNAME:MASTER%の瞳に映ったのは、%CALLNAME:MASTER%の上半身を椅子にして座る瓔花の背中だった
					PRINTFORML 色々な疑問を尋ねる前に、とりあえず目の前の瓔花に一日の挨拶をすると返事が帰って来た
					PRINTFORML
					PRINTFORML 「あっ起きたんだ。おはよう。朝から元気だったから楽にしてあげようと思って」
					PRINTFORMW 「ここが元気すぎると、計画性無く好き勝手兒童を作りそうだからこうやって処理しないと」
					PRINTFORML %CALLNAME:MASTER%の下半身は瓔花の大きな尻のせいで見ることは叶わないが、寝る前に着ていたはずのものの感触が無い
					PRINTFORMW 瓔花の言う楽にするとはそういうことなのだろう
					PRINTFORMW 「んっ%UNICODE(0x2764)%ちゅっ%UNICODE(0x2764)%ちゅっ%UNICODE(0x2764)%じゅっぽ%UNICODE(0x2764)%%UNICODE(0x2764)%」
					PRINTFORML 瓔花はまずは轻轻地%CALLNAME:MASTER%のイチモツに愛おしむような接吻をすると、咥えはじめた…
					PRINTFORML ………
					PRINTFORML ……
					PRINTFORMW …
					PRINTFORMW 瓔花のおかげで朝勃ちの処理を終えた%CALLNAME:MASTER%、心地よい朝を迎えた
					BASE:MASTER:精力 -= 200
				;モーニング乳交
				CASE 8
					IF TALENT:胸圍 > 0
						PRINTFORMW 何やら股間の辺りが重い
						PRINTFORML そう感じて夢から覚めた%CALLNAME:MASTER%の瞳に映ったのは、露出した下半身、立ち上がったイチモツ、そしてそれを自慢の大きな胸で挟む瓔花の姿だった
						PRINTFORML
						PRINTFORML 「…ん、よいしょっと%UNICODE(0x2764)% あっおはよう%UNICODE(0x2764)%」
						PRINTFORML 柔らかな两个巨石に挟まれた阴茎は、瓔花特有の弾力性を持ちながらも少し涼しい肌に包まれ、限界まで大きくなる
						PRINTFORML 「ここが元気すぎると、計画性無く好き勝手兒童を作りそうだからこうやって処理しないとねー」
						PRINTFORMW 瓔花はそういうとその大きな胸を巧みに動かし、中の肉棒に性感を与え始めた…
						PRINTFORML ………
						PRINTFORML ……
						PRINTFORMW …
						PRINTFORMW 瓔花のおかげで朝勃ちの処理を終えた%CALLNAME:MASTER%、心地よい朝を迎えた
						BASE:MASTER:精力 -= 200
					ELSE
						PRINTFORMW 何やら股間の辺りが少し重い
						PRINTFORML そう感じて夢から覚めた%CALLNAME:MASTER%の瞳に映ったのは、露出した下半身、立ち上がったイチモツ、そしてそれを胸で挟む瓔花の姿だった
						PRINTFORML
						PRINTFORML 「…ん、よいしょっと%UNICODE(0x2764)% あっおはよう%UNICODE(0x2764)%」
						PRINTFORML 柔らかな两个胸に挟まれた阴茎は、瓔花特有の弾力性を持ちながらも少し涼しい肌に包まれ、限界まで大きくなる
						PRINTFORML 「ここが元気すぎると、計画性無く好き勝手兒童を作りそうだからこうやって処理しないとねー」
						PRINTFORMW 瓔花はそういうと胸を巧みに動かし、中の肉棒に性感を与え始めた…
						PRINTFORML ………
						PRINTFORML ……
						PRINTFORMW …
						PRINTFORMW 瓔花のおかげで朝勃ちの処理を終えた%CALLNAME:MASTER%、心地よい朝を迎えた
						BASE:MASTER:精力 -= 200
					ENDIF
				ENDSELECT
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORML 「あっ、おはよー」
				PRINTFORML 「何もしてないよ、寝顔眺めてただけ%UNICODE(0x2764)%」
				PRINTFORMW 瓔花はにやりと笑着%CALLNAME:MASTER%から別屋た
			ELSE
				PRINTFORML 「おはよう。お邪魔してるよー」
				PRINTFORMW 何故か部屋に瓔花がいた
			ENDIF
		RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:9
			CASE 0
				PRINTFORML 「おはよう%CALLNAME:MASTER%」
				PRINTFORML 「すごいぐっすり寝てたからこのまま起きないんじゃないかって心配になっちゃった」
			CASE 1
				PRINTFORML カチ…カチ…カチ…
				PRINTFORMW %CALLNAME:MASTER%が睁開眼睛と、石同士が轻轻地ぶつかる音が聞こえる
				PRINTFORML 「ごめんね。日課の朝の積み石してたんだ。起こしちゃった？」
				PRINTFORMW %CALLNAME:MASTER%は特に積み石の音は関係ないことを温柔的伝えた…
			CASE 2
				PRINTFORML 「あっ起きた」
				PRINTFORMW 寝顔を覗いていたのか妙に顔が近い瓔花に一日の挨拶をした
			CASE 3
				PRINTFORML 「おはよー、どんな夢見た？」
				PRINTFORMW 「私？……暖かい、暗い、そんな場所でプカプカ漂浮の夢だったよ」
			CASE 4
				PRINTFORML 「おはよー、これどう？起きて早速作ったんだけど」
				PRINTFORMW 視線を横に移すと、中々よさげな石を積み上げたオブジェがそこにあった
			CASE 5
				PRINTFORML 「おはよー、どんな夢見た？」
				PRINTFORML 「私？……何かが怖くて舞蹈の夢」
			;モーニング手コキ
			CASE 6
				PRINTFORMW 下半身が何やら涼しい
				PRINTFORML そう感じて目を覚ました%CALLNAME:MASTER%は、横に座り込んだ瓔花と目が合った
				PRINTFORML
				PRINTFORMW 「朝から元気だったから楽にしてあげようと思って」
				PRINTFORML 瓔花のその言葉を聞いて、目線を下半身に移すと……
				PRINTFORMW 露出した下半身、立ち上がったイチモツ、そしてそれを温柔的握る瓔花の手がそこにはあった
				PRINTFORML 「ここが元気すぎると、計画性無く兒童を作りそうだからこうやって処理しないと」
				PRINTFORMW %CALLNAME:MASTER%を好き勝手出来る状況が愉しいのか、水子の少女は妖美に笑う
				PRINTFORML そうしてひんやりとする土気色の指を竿に絡ませて、徐々に竿を激烈地しごいていった…
				PRINTFORML ………
				PRINTFORML ……
				PRINTFORMW …
				PRINTFORMW 瓔花のおかげで朝勃ちの処理を終えた%CALLNAME:MASTER%、心地よい朝を迎えた
				BASE:MASTER:精力 -= 200
			;モーニング口交
			CASE 7
				PRINTFORMW 何やら身体が重い
				PRINTFORML そう感じて夢から覚めた%CALLNAME:MASTER%の瞳に映ったのは、%CALLNAME:MASTER%の上半身を椅子にして座る瓔花の背中だった
				PRINTFORML
				PRINTFORML 色々な疑問を尋ねる前に、とりあえず目の前の瓔花に一日の挨拶をすると返事が帰って来た
				PRINTFORML 「あっ起きたんだ。おはよう。朝から元気だったから楽にしてあげようと思って」
				PRINTFORMW 「ここが元気すぎると、計画性無く好き勝手兒童を作りそうだからこうやって処理しないと」
				PRINTFORML %CALLNAME:MASTER%の下半身は瓔花の大きな尻のせいで見ることは叶わないが、寝る前に着ていたはずのものの感触が無い
				PRINTFORMW 瓔花の言う楽にするとはそういうことなのだろう
				PRINTFORMW 「んっ%UNICODE(0x2764)%ちゅっ%UNICODE(0x2764)%ちゅっ%UNICODE(0x2764)%じゅっぽ%UNICODE(0x2764)%%UNICODE(0x2764)%」
				PRINTFORML 瓔花はまずは轻轻地%CALLNAME:MASTER%のイチモツに愛おしむような接吻をすると、咥えはじめた…
				PRINTFORML ………
				PRINTFORML ……
				PRINTFORMW …
				PRINTFORMW 瓔花のおかげで朝勃ちの処理を終えた%CALLNAME:MASTER%、心地よい朝を迎えた
				BASE:MASTER:精力 -= 200
			;モーニング乳交
			CASE 8
				IF TALENT:胸圍 > 0
					PRINTFORMW 何やら股間の辺りが重い
					PRINTFORML そう感じて夢から覚めた%CALLNAME:MASTER%の瞳に映ったのは、露出した下半身、立ち上がったイチモツ、そしてそれを自慢の大きな胸で挟む瓔花の姿だった
					PRINTFORML
					PRINTFORML 「…ん、よいしょっと%UNICODE(0x2764)% あっおはよう%UNICODE(0x2764)%」
					PRINTFORML 柔らかな两个巨石に挟まれた阴茎は、瓔花特有の弾力性を持ちながらも少し涼しい肌に包まれ、限界まで大きくなる
					PRINTFORML 「ここが元気すぎると、計画性無く好き勝手兒童を作りそうだからこうやって処理しないとねー」
					PRINTFORMW 瓔花はそういうとその大きな胸を巧みに動かし、中の肉棒に性感を与え始めた…
					PRINTFORML ………
					PRINTFORML ……
					PRINTFORMW …
					PRINTFORMW 瓔花のおかげで朝勃ちの処理を終えた%CALLNAME:MASTER%、心地よい朝を迎えた
					BASE:MASTER:精力 -= 200
				ELSE
					PRINTFORMW 何やら股間の辺りが少し重い
					PRINTFORML そう感じて夢から覚めた%CALLNAME:MASTER%の瞳に映ったのは、露出した下半身、立ち上がったイチモツ、そしてそれを胸で挟む瓔花の姿だった
					PRINTFORML
					PRINTFORML 「…ん、よいしょっと%UNICODE(0x2764)% あっおはよう%UNICODE(0x2764)%」
					PRINTFORML 柔らかな两个胸に挟まれた阴茎は、瓔花特有の弾力性を持ちながらも少し涼しい肌に包まれ、限界まで大きくなる
					PRINTFORML 「ここが元気すぎると、計画性無く好き勝手兒童を作りそうだからこうやって処理しないとねー」
					PRINTFORMW 瓔花はそういうと胸を巧みに動かし、中の肉棒に性感を与え始めた…
					PRINTFORML ………
					PRINTFORML ……
					PRINTFORMW …
					PRINTFORMW 瓔花のおかげで朝勃ちの処理を終えた%CALLNAME:MASTER%、心地よい朝を迎えた
					BASE:MASTER:精力 -= 200
				ENDIF
		ENDSELECT
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
			PRINTFORML 夢から目覚めると、瓔花が%CALLNAME:MASTER%に抱き着くように眠っていた
			PRINTFORML %CALLNAME:MASTER%はしばらくその寝顔を堪能すると、起こさないように立ち上がった
			PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or陪睡中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTL
			PRINTFORML 「あっ……おはよー」
			PRINTFORMW 「那个……寝ちゃったんだねごめん……」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTL
			PRINTFORML 「あっ……おはよー」
			PRINTFORMW 「ううう…うっかり寝ちゃうなんて…今日はこのまま家で休んだ方が良いかな」
			ENDIF
			RETURN 1
		ENDIF
		;両方
		RETURN 1
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰って寝る（～は【現在地】から【角色の自室】に戻りました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF ARG:1
			;约会中に眠くて帰って寝る（拠点角色のみ）
			PRINTFORML 「ごめん%CALLNAME:MASTER%もう限界…」
			PRINTFORMW 「眠いから今日はもうおしまい…ふぁああ…」
		ELSEIF CFLAG:诶嘿嘿
			;诶嘿嘿中に眠くて自室に帰って寝る（拠点角色のみ）
			PRINTFORML 「ごめん%CALLNAME:MASTER%もう限界…」
			PRINTFORMW 「眠いからエッチはもうおしまい…ふぁああ…」
		ELSE
			PRINTFORML 「ね、眠いから返回……」
			PRINTFORMW 瓔花は眠そうにしながら帰った
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「ね…眠い…」
		PRINTFORMW 瓔花は既に眠気に負けかけて、瞼が半分閉じている…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE RAND:9
			CASE 0
				PRINTFORML 「もう積めないよぉ…zzz」
			CASE 1
				PRINTFORML 「７こ…８こ…９こ…あと一石足りない…zzz」
			CASE 2
				PRINTFORML 「なんで…すてたの…ほねがないから…？」
			CASE 3
				PRINTFORML 「私は……私の名前は……zzz」
			CASE 4
				PRINTFORML 「%CALLNAME:MASTER%……zzz」
			CASE 5
				PRINTFORML 「なんでだめなの…ずっとつみいし……zzz」
			CASE 6
				PRINTFORML 「暖和……zzz」
			CASE 7
				PRINTFORML 「くらげ……zzz」
			CASE 8
				PRINTFORML 「お母さん……お父さん……zzz」
		ENDSELECT
		PRINTFORMW 瓔花は寝言を言っている
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;恶作剧中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4

		RETURN 1
	ENDIF
	;-------------------------------------------------
	;衰弱して寝る（体力500以下,诶嘿嘿時は诶嘿嘿強制終了）
	;（角色の自室以外：～を【現在地】から【角色の自室】に運びました）
	;（角色の自室　　：～は疲惫と言って、横成为了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中にダウン
			PRINTFORML 「つ…疲惫…もうむり…ねたい……」
		ELSE
			PRINTFORML 「つ…疲惫…ねたい……」
		ENDIF
		PRINTFORMW 瓔花は土気色の肌色をさらに悪くしていた…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML 「だ、大丈夫？！死体みたいになってるよ？！」
		PRINTFORML 「あ…これはダメだね。しょうがない。運んであげよう」
		PRINTFORMW 倒れてしまった%CALLNAME:MASTER%は瓔花に部屋まで運ばれた
		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
			PRINTFORML 「おやすみー」
			PRINTFORMDW 瓔花はお気に入りのくらげの睡衣に更衣と、横になって丸まった
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORML 「んーもう稍微玩耍たいけど…ねむ…」
				PRINTFORMW 「おやすみー」
			ELSEIF TALENT:愛欲 || TALENT:炮友
				PRINTFORML 「んーもう稍微エッチしたいけど…ねむ…」
				PRINTFORMW 「おやすみー」
			ELSE
				PRINTFORML 「んーもう稍微玩耍たいけど…ねむ…」
				PRINTFORMW 「というわけで外に出てね、おやすみー」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他角色とのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF TALENT:恋人
				PRINTFORMW 「ねぇ%CALLNAME:MASTER%。何してるの？」
				PRINTFORMW 情事の最中に、聞き覚えのある声が聞こえて振り返るとそこには瓔花がいた
				PRINTFORML 「ねぇ、ここ私的房間なんだけど…恋人的房間に別の子連れてくるって…鬼すぎる」
				PRINTFORML 「……あと、まさか兒童なんて作らないよね？」
				PRINTFORMW 何とか謝ってその場を収めたが、瓔花は不貞腐れて寝てしまった
			ELSEIF TALENT:恋慕
				PRINTFORMW 「ねぇ%CALLNAME:MASTER%。何してるの？」
				PRINTFORMW 情事の最中に、聞き覚えのある声が聞こえて振り返るとそこには瓔花がいた
				PRINTFORML 「ねぇ、ここ私的房間なんだけど…情人用宿屋じゃないよ？」
				PRINTFORMW 何とか謝ってその場を収めたが、瓔花は不貞腐れて寝てしまった
			ELSE
				PRINTFORMW 「ねぇ%CALLNAME:MASTER%。何してるの？」
				PRINTFORMW 情事の最中に、聞き覚えのある声が聞こえて振り返るとそこには瓔花がいた
				PRINTFORML 「ねぇ、ここ私的房間なんだけど…何してるの？」
				PRINTFORML 「人的房間とか気にせず盛るようだと望まない兒童とか出来ちゃいそう」
				PRINTFORMW 「そういう可哀想な子を増やさないためにも自制してね」
				PRINTFORMW 瓔花はこちらを説教した後、疲惫のか睡眠についた
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;来訪角色が拠点で休憩（～は疲れ切っている→稍微休んでいきなよ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝室に居る状態でその場で寝る（～は眠気に負け、睡眠についた…）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF TALENT:愛欲 || TALENT:炮友
			PRINTFORML 「んーもう稍微エッチしたいけど…ねむ…」
			PRINTFORMW 「おやすみー」
		ELSE
			PRINTFORML 「んーもう稍微玩耍たいけど…ねむ…」
			PRINTFORMW 「おやすみー」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;拠点外で自宅前に居る角色が自室に帰って寝る（眠くなった～は自室に帰って行きました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 10
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K127_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 TALENT:愛欲
				PRINTFORM 発情した顔で
			ELSE
				PRINTFORM 慢慢地
			ENDIF
		PRINTFORMW こちらに向かってきた
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;轻轻地会釈して街道過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML カチカチカチ…
		PRINTFORMW 瓔花は積み石をしていたが、街道かかるこちらに気づいて轻轻地会釈した
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して街道過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML カチカチカチ…
		PRINTFORMW 瓔花は積み石に熱中していたのか、街道かかるこちらに気づかなかったようだ
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;青娥が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 90
		PRINTFORML 「ひっ！邪…邪仙…！ヤンシャオグイはやめて…！」
		PRINTFORMW 瓔花は怯えている…
		RETURN 1
	ENDIF
	;其他（角色指定無
	IF TALENT:恋人
		PRINTFORML 「他の人が来ちゃったけど…」
		PRINTFORMW 「別に隣にいても良いよね？恋人ってそういうものなんでしょ？」
		PRINTFORMW 瓔花は%CALLNAME:MASTER%から別屋ずにむしろ近づいてきた
	ELSEIF TALENT:恋慕
		PRINTFORML 「他の人が来ちゃったかー」
		PRINTFORMW 「しょうがない。嵐が来たと思うしかないか」
		PRINTFORMW 瓔花は%CALLNAME:MASTER%から別屋た
	ELSEIF TALENT:思慕
		PRINTFORMW 「んー積み石バトルを今からやろうと思ったんだけどなあ」
		PRINTFORMW 瓔花は%CALLNAME:MASTER%から別屋た
	ELSE
		PRINTFORMW 瓔花は人が来たからか、少し%CALLNAME:MASTER%から遠ざかった
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（亲热度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF TALENT:恋人
			PRINTFORML 「最低！石に当たって死んでしまえ！！」
			PRINTFORMW 憤怒だし、石を投げようとした瓔花を慌てて宥めた…
		ELSEIF TALENT:恋慕
			PRINTFORML 「ぐぐぐ…まさか二人がこんな関係なんて…」
			PRINTFORMW 瓔花は何やら悔しそうな顔をして、こちらを見てきた
		ELSE
			PRINTFORML 「ちゃんと避妊はしなよ？私達みたいな悲しい存在を生み出さないためにね」
			PRINTFORML 瓔花は%CALLNAME:MASTER%の情事を見かけると、こちらに忠告をしてきた…
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（亲热度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:恋人
			PRINTFORMW 「わ、私の恋人を取らないで！！」
			PRINTFORMW 瓔花が混ざってきた！
		ELSEIF TALENT:恋慕
			PRINTFORMW 「ぐぐぐ…ずるい！わ、私も！！」
			PRINTFORMW 瓔花が混ざってきた！
		ELSE
			PRINTFORML 「私も気持ちよくなりたい！」
			PRINTFORMW 瓔花が混ざってきた！
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF TALENT:恋人
			PRINTFORML 「最低！石に当たって死んでしまえ！！」
			PRINTFORMW 憤怒だし、石を投げようとした瓔花を慌てて宥めた…
			PRINTFORMW 「二人とも許さん、死ねい！！」
			PRINTFORMW 瓔花はそう言って、%CALLNAME:MASTER%達の情事の場から立ち去った
		ELSEIF TALENT:恋慕
			PRINTFORML 「ぐぐぐ…まさか二人がこんな関係なんて…」
			PRINTFORMW 瓔花は何やら悔しそうな顔をして、立ち去った
		ELSE
			PRINTFORML 「ちゃんと兒童出来ないようにはしなよ？私達みたいな悲しい存在を生み出さないためにね」
			PRINTFORML 瓔花は%CALLNAME:MASTER%の情事を見かけると、こちらに忠告をして立ち去った
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K127_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_K127_8(ARG,ARG:1)
RETURN 1

;==================================================
;胖次没収された
;==================================================
@M_KOJO_EVENT_K127_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_K127_10(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERを推倒た（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「も…もうダメ……我慢できないよ……」
		PRINTFORML 「%CALLNAME:MASTER%が悪いんだから……%UNICODE(0x2764)%」
		;妊娠中
		IF TALENT:127:妊娠 && CFLAG:127:妊娠自覚状態 == 1
			PRINTFORML
			PRINTFORMW 「ほらパパ%UNICODE(0x2764)%お腹の中の赤ちゃんに挨拶しようね%UNICODE(0x2764)%」
		;危険日
		ELSEIF CFLAG:127:生理周期 == 7 && !TALENT:127:妊娠 && CFLAG:127:允许无套 == 2
			PRINTFORML
			PRINTFORMW 「兒童作るって決めたんだし…ちゃんと計画だって立てたし…良いよね？」
			PRINTFORMW 「%CALLNAME:MASTER%の兒童……作りたいな%UNICODE(0x2764)%」
		ENDIF
		TCVAR:127:351 = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE ARG:1
		CASE 0
			;抜け出した
			IF TALENT:恋人 || TALENT:恋慕
				;妊娠中
				IF TALENT:127:妊娠 && CFLAG:127:妊娠自覚状態 == 1
					PRINTFORMW 「うう…よく考えたら確かにお腹の赤ちゃんには負担だよね……」
				;危険日
				ELSEIF CFLAG:127:生理周期 == 7 && !TALENT:127:妊娠 && CFLAG:127:允许无套 == 2
					PRINTFORML 「まだこども出来てないと思うのにー！！」
					PRINTFORMW 「まあ…確かに急ぎ過ぎたとも思うけど…」
				ELSE
					PRINTFORMW 「ううう…稍微自制心が足りなかったよ。ごめんね…」
				ENDIF
			ELSE
				PRINTFORMW 「ううう…稍微自制心が足りなかったよ。ごめんね…」
			ENDIF
		CASE 1
		;抱き着きモード満足終了
			RETURN 1
		CASE 2
		;抱き着きモード強制終了
			RETURN 1
		ENDSELECT
		TCVAR:127:351 = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;摆脱失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「お願い…もう稍微付き合って…」
		PRINTFORMW 「あと少しで崩し切れるから…」
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORMW 「あのね…お風呂ってのはね。とっても尊いものなの」
			PRINTFORMW 「積み石同様、決して邪魔して是けない聖域の時間なの」
			PRINTFORMW 「というわけで出ていってね。ね？」
			PRINTFORMW 瓔花の有無を言わさぬ迫力に気圧され、%CALLNAME:MASTER%は回れ右をした
		ELSE
			PRINTFORMW 「神聖で尊いお風呂の時間を邪魔するのは許されないわ！」
			PRINTFORMW 「さっさと出て行って！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%もお風呂入り来了の？」
			PRINTFORMW 「えへへ…一緒に入ろうよ」
			PRINTFORMW 「私の隣、空いてるよ。どうぞー」
		ELSE
			PRINTFORMW 「お風呂は尊いものだから独り占めじゃなくて共有しないとね」
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K127_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_K127_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_KX_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;TCVAR:盗み食い抑制で持っていた食物を食われるのを回避できる
	;仕様例（薬が入ってたら食わない）
	;IF DISH_DRG
	;	TCVAR:盗み食い抑制 = 1
	;ENDIF

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

;==================================================
;MASTERが推倒た
;==================================================
@M_KOJO_EVENT_K127_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:時間停止

		ELSEIF TALENT:恋人 || TALENT:恋慕
			PRINTFORMW 「うう…疲惫…」
			PRINTFORMW 「でも好き。こうやって愛し合うの」
			PRINTFORMW 瓔花は%CALLNAME:MASTER%に抱き着きながら呟いた
		ELSEIF TALENT:愛欲
			PRINTFORMW 「うう…終わっちゃった」
			PRINTFORMW 「疲惫けれどもう稍微気持ち良くなりたかったなー」
			PRINTFORMW 瓔花は%CALLNAME:MASTER%に抱き着きながら呟いた
		ELSEIF MARK:127:反発刻印 >= 1
			PRINTFORMW 「エッチは終わったけど…私は今、怒ってるよ」
			PRINTFORMW 「簡単には許さないから」
		ELSE
			PRINTFORMW 「…………」
			PRINTFORMW 瓔花はニコリとはしてるが無言だ…
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW 「さっき出された赤ちゃんの素が垂れてきちゃった…%UNICODE(0x2764)%」
		RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後の情緒
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORMW 「…%CALLNAME:MASTER%好きだよ%UNICODE(0x2764)%」
				PRINTFORML 「恋人になったときはまだ気持ちがよく分からないなんて言ったけれど…」
				PRINTFORMW 「今は…もう…とっくにね」
				PRINTFORMW 「もう少し、このままで…体温を感じたいな」
			ELSEIF TALENT:愛欲
				PRINTFORMW 「もう少し、このままで…体温を感じたい気分かも」
			ELSE
				PRINTFORMW 「…………」
				PRINTFORMW 瓔花はニコリとはしてるが目は笑着ないし無言だ…
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML 「うう…水子の身体なのに稍微火照ってる…」
			PRINTFORML 「服着たら稍微暑いかも…」
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;陪睡
;==================================================
@M_KOJO_EVENT_K127_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_K127_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
		PRINTFORMW 「………っ！」
		PRINTFORMW 瓔花は突如自分を襲った不思議な快感に驚き、辺りを見渡す…
		PRINTFORMW 「%CALLNAME:MASTER%も位置的に違うし…今の是ったい…」
		PRINTFORMW 不思議そうに小首をかしげ的同时、自分の身に何が起きたのかを考え込む
		PRINTFORMW …が、何も思いつかなかったのか瓔花は積み石を再開した
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「………っ！？！？！」
		PRINTFORML 瓔花は突如自分を襲った不思議な快感に絶頂した
		PRINTFORMW そんな状況で積み石が出来るわけがない
		PRINTFORMW それまで綺麗に積み上げられていた石は、ガラガラ崩れていく
		PRINTFORMW 「はぁ…%UNICODE(0x2764)%はぁ…%UNICODE(0x2764)%はぁ…%UNICODE(0x2764)%」
		PRINTFORMW 「ううう…何が起こったのよ…」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;胖次紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「…那个？なんか感触が」
		PRINTFORMW 瓔花は立ち上がり、服の上から下半身を触って内衣が無いことを確かめた
		PRINTFORMW 「えええっ！私さっきまで石に座ってたのに？！どうして無くなってるの？！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			PRINTFORMW 「！？！？？」
			PRINTFORMW 瓔花はしゃがみこみ、口の中に溢れ出したものを吐き出そうとした
			PRINTFORMW しかし、目の前には高く積み上げた石。この石を崩したくはない…
			PRINTFORMW 瓔花は、瞳に涙を浮かべながらなんとか飲み込んだ
			IF EXP:精液経験 == 0
				PRINTFORMW 「ぶぇっ何これ…なんで口の中に…？？」
			ELSE
				PRINTFORMW 「うう…不味い…」
			ENDIF
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			PRINTFORMW 「！？！？？」
			PRINTFORMW 瓔花はしゃがみこみ、口の中に溢れ出したものを吐き出した
			PRINTFORMW 自分や積んだ石に飛び散らずに済んだ吐き出した白濁の液体を不思議そうに眺める
			IF EXP:精液経験 == 0
				PRINTFORMW 「ぶぇっ何これ…なんで口の中に…？？」
			ELSE
				PRINTFORMW 「うう…不味い…」
			ENDIF
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			PRINTFORMW 「！？！？？」
			PRINTFORMW 瓔花はしゃがみこみ、口の中に溢れ出したものを吐き出そうとした
			PRINTFORMW しかし、目の前には高く積み上げた石。この石を崩したくはない…
			PRINTFORMW 吐き出しそうになるのを必死に手で抑え込んだ
			IF EXP:精液経験 == 0
				PRINTFORMW 「ぶぇっ何これ…なんで口の中に…？？」
			ELSE
				PRINTFORMW 「うう…不味い…」
			ENDIF
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			PRINTFORMW 「っ！？！？」
			PRINTFORMW 「……あっ%UNICODE(0x2764)%この味…%UNICODE(0x2764)%」
			PRINTFORMW 瓔花は口の中になぜ精液があるのかを疑問に思うことすらせず、味を堪能した
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			PRINTFORMW 「！？！？？」
			PRINTFORMW 瓔花はしゃがみこみ、口の中に溢れ出した濃厚的液体を吐き出した
			PRINTFORML そして瓔花はその味を流すために水場に向かった
			PRINTFORMW その味はなんどうがいをしても、中々消えることはなかった…
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			PRINTFORMW 「っ！？！？」
			PRINTFORMW 「……あっ%UNICODE(0x2764)%この味…%UNICODE(0x2764)%」
			PRINTFORMW 「おいしい…%UNICODE(0x2764)%もっと…%UNICODE(0x2764)%」
			PRINTFORMW 瓔花は口の中になぜ精液があるのかを疑問に思うことすらせず、味を堪能した
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;幼稚持ち＆精液経験100未満
		IF ARG:1 == 1
		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 「…あっこれ…%UNICODE(0x2764)%」
			PRINTFORMW 「ちゅっぱ…じゅぷ…ちゅぷ…%UNICODE(0x2764)%」
			PRINTFORMW 瓔花は手のひらになぜ精液があるのかを疑問に思うことすらせず、味を堪能した
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚肛門射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚0
		IF ARG:1 == 1
			PRINTFORMW 「痛っ！！！！」
			PRINTFORMW 石の上に座っていた瓔花は、尻を貫かれた痛みで立ち上がった
			PRINTFORMW 「石が刺さった？…いや丸っこい良い石なんだけど…」
		;ソレ以外
		ELSEIF ARG:1 == 2
			PRINTFORMW 「…うぇ！？」
			PRINTFORMW 石の上に座っていた瓔花は、尻を貫かれた感触で立ち上がった
			PRINTFORMW 「ううう…何か中に入ってる……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
			PRINTFORMW 「痛っ！！！！！！」
			PRINTFORMW 石の上に座っていた瓔花は、処女を貫かれた痛みで立ち上がった
			PRINTFORMW 「えっえっえっ！？いたいいたいいたい！」
			PRINTFORMW 「獄卒に何度もぶたれたけど今まで体験したことない痛み…」
			PRINTFORMW 「ううう…もう一度死にそうなぐらいの痛みだわ…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精口服避孕薬無
		IF ARG:1 == 1
			PRINTFORMW 「…んんん！？」
			PRINTFORMW 瓔花は膣内の精液に気付いた
			PRINTFORMW 「なっなに？？中に何か…変な感触が…」
		;非処女膣内射精口服避孕薬あり
		ELSEIF ARG:1 == 2
			PRINTFORMW 「…んんん！？」
			PRINTFORMW 瓔花は膣内の精液に気付いた
			PRINTFORMW 「なっなに？？中に何か…変な感触が…」
		;処女膣内射精
		ELSEIF ARG:1 == 3
			PRINTFORMW 「痛っ！！！！！！」
			PRINTFORMW 石の上に座っていた瓔花は、処女を貫かれた痛みで立ち上がった
			PRINTFORMW 「えっえっえっ！？いたいいたいいたい！」
			PRINTFORMW 「獄卒に何度もぶたれたけど今まで体験したことない痛み…」
			PRINTFORMW 「ううう…もう一度死にそうなぐらいの痛みだわ…あと何か変な感触もする…」
		ENDIF
		RETURN 1
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K127_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
;現状死に分岐ですがとりあえず残しておきます
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:318 == 1
			PRINTFORMW 「は？？？……私が誰なのか忘れちゃったの？」
			PRINTFORMW 「私は水子。親に捨てられ見捨てられ、河で延々と崩されるだけの積み石をさせられる存在」
			PRINTFORMW 「そんな水子と兒童を作ろうと！？身分も職業も定かじゃないお前が！？！？」
			PRINTFORMW 「兒童が出来る確率は低い？！そういう男がいるから私たちみたいなのが死んで河原に辿り着くんだ！！」
			PRINTFORMW 「死ね！！！お前なんて石に当たって死んじまえ！！」
		ELSEIF TALENT:恋人
			PRINTFORMW 「ねぇ……恋人なのに私が誰なのか忘れちゃったの？」
			PRINTFORMW 「私は水子。親に捨てられ見捨てられ、河で延々と崩されるだけの積み石をさせられる存在だよ」
			PRINTFORMW 「そんな水子と兒童を作ろうと？身分も職業も定かじゃない%CALLNAME:MASTER%が？」
			PRINTFORMW 「愛はあっても子を作る覚悟が足りない私たちが兒童を作っても、不幸な兒童を一人増やすだけだよ」
			PRINTFORMW 「今なら石を投げずに許してあげる」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「ねぇ……私が誰なのか忘れちゃったの？」
			PRINTFORMW 「私は水子。親に捨てられ見捨てられ、河で延々と崩されるだけの積み石をさせられる存在だよ」
			PRINTFORMW 「そんな水子と兒童を作ろうと？身分も職業も定かじゃない%CALLNAME:MASTER%が？」
			PRINTFORMW 「%CALLNAME:MASTER%のことは嫌いじゃないけど、子を作る覚悟が足りない私たちが兒童を作っても、不幸な兒童を一人増やすだけよ」
			PRINTFORMW 「今なら石を投げずに許してあげる」
		ELSE
			PRINTFORMW 「へぇ……そういう人なんだ……知ってたけど」
			PRINTFORMW 「……私が誰なのか忘れちゃったの？忘れちゃったかー」
			PRINTFORMW 「私は水子。親に捨てられ見捨てられ、河で延々と崩されるだけの積み石をさせられる存在」
			PRINTFORMW 「そんな水子と兒童を作ろうと？身分も職業も定かじゃないお前が？」
			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 「……だめ！だめなの！」
			PRINTFORML 「そもそも杞憂で水子は兒童なんて出来ないかもしれない……」
			PRINTFORMW 「……そして、もしかしたら%CALLNAME:MASTER%は充分覚悟出来てるのかもしれない」
			PRINTFORMW 「でも……私はまだ……」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……だめ！だめなの！」
			PRINTFORML 「%CALLNAME:MASTER%が実際のところどれくらい覚悟出来てるのかは分からないけど」
			PRINTFORMW 「……私がまだ、だから」
			PRINTFORMW 「そもそも杞憂で、水子は兒童なんて出来る心配ないかもしれないけどね」
		ELSE
			PRINTFORMW 「へぇ……そういう人なんだ……まあ知ってたけどねー」
			PRINTFORMW 「そもそも杞憂で、水子は兒童なんて出来る心配ないかもしれないけど」
			PRINTFORMW 「可能性が少しでもあるなら、不幸な兒童を私は作りたくないなー」
			PRINTFORMW 「私、%CALLNAME:MASTER%を信じたことはないし」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
			PRINTFORMW 「許せない！死ね！！！！惨たらしく死んで畜生界に行って更に苦しめ！！」
			PRINTFORMW 瓔花は完全に怒ってしまった…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「はぁ……覚悟は伝わったよ」
		PRINTFORMW 「……ただ、積極的に%CALLNAME:MASTER%と兒童を作るって話じゃないよ」
		PRINTFORMW 「つまり、危険日はまた別の話」
		PRINTFORMW 「まあでも…もし授かったら頑張ろうね。二人」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:恋人
			PRINTFORMW 「%CALLNAME:MASTER%も、そして私も覚悟が出来たみたい！」
			PRINTFORMW 「分かるよ。だって恋人だもん」
			PRINTFORMW 「えへへ…じゃあさっそく兒童を作ろう！」
			PRINTFORMW 「%CALLNAME:MASTER%……大好きな你の兒童…欲しいな」
			PRINTFORMW 「水子だから難しいかもしれないけど…ううんきっと大丈夫！」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%も、そして私も覚悟が出来たみたい！」
			PRINTFORMW 「えへへ…じゃあさっそく兒童を作ろう！」
			PRINTFORMW 「%CALLNAME:MASTER%……好きだよ。你の兒童…欲しいな」
			PRINTFORMW 「水子だから難しいかもしれないけど…ううんきっと大丈夫！」
		ELSE
			PRINTFORMW 「%CALLNAME:MASTER%も、そして私も覚悟が出来たみたい！」
			PRINTFORMW 「大丈夫！シングルマザーでも育てて見せるから！」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K127_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=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
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K127_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF EX:膣内精液 + EX:肛門内精液 >= 100
			PRINTFORMW 「もうそろそろ時間みたい…帰らないと閻魔さまに叱られちゃう」
			PRINTFORMW 「じゃあねー」
			PRINTFORMW
			PRINTFORMW 「うぅ…まだ残ってる…」
			PRINTFORMW 「どうしよ…流石にこの状態で兒童たちには会えないよ…」
		ELSEIF TALENT:恋人
			PRINTFORMW 「そろそろ時間…恋人と一緒だと、積み石してるときよりも時間の進みが早く感じちゃうな」
			PRINTFORMW 「まだまだずっと一緒に居たいけど…門限は守らないと閻魔さまに叱られちゃう」
			PRINTFORMW 「水子の私が外に出られるのは閻魔さまのおかげだからそこは守らないと」
			PRINTFORMW 「じゃあまた会おうね！ばいばい！」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「そろそろ時間…積み石してるときよりも時間の進みが早く感じちゃうな」
			PRINTFORMW 「まだまだずっと一緒に居たいけど…門限は守らないと閻魔さまに叱られちゃう」
			PRINTFORMW 「水子の私が外に出られるのは閻魔さまのおかげだからそこは守らないと」
			PRINTFORMW 「じゃあまた会おうね！ばいばい！」
		ELSEIF TALENT:愛欲
			PRINTFORMW 「名残惜しいけどそろそろ時間…もっとエッチなことしたい…」
			PRINTFORMW 「でも帰らないと……」
			PRINTFORMW 「……また今度、いっぱいお願い」
		ELSEIF TALENT:思慕
			PRINTFORML 「もう稍微%CALLNAME:MASTER%と玩耍たい気持ちもあるけど…」
			PRINTFORMW 「でも、そろそろ兒童たちと積み石したいから返回ね」
		ELSE
			PRINTFORMW 「そろそろ兒童たちと積み石したいから返回ね」
		ENDIF
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;约会中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF EX:膣内精液 + EX:肛門内精液 >= 100
			PRINTFORMW 「もうそろそろ時間みたい…帰らないと閻魔さまに叱られちゃう」
			PRINTFORMW 「じゃあねー」
			PRINTFORMW
			PRINTFORMW 「うぅ…约会中に出されたのがまだ残ってる…」
			PRINTFORMW 「どうしよ…流石にこの状態で兒童たちには会えないよ…」
		ELSEIF TALENT:恋人
			PRINTFORMW 「そろそろ時間…恋人と一緒だと、積み石してるときよりも時間の進みが早く感じちゃうな」
			PRINTFORMW 「まだまだずっと一緒に约会したいけど…門限は守らないと閻魔さまに叱られちゃう」
			PRINTFORMW 「水子の私が外に出られるのは閻魔さまのおかげだからそこは守らないと」
			PRINTFORMW 「じゃあまた会おうね！ばいばい！」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「そろそろ時間…積み石してるときよりも時間の進みが早く感じちゃうな」
			PRINTFORMW 「まだまだずっと一緒に约会したいけど…門限は守らないと閻魔さまに叱られちゃう」
			PRINTFORMW 「水子の私が外に出られるのは閻魔さまのおかげだからそこは守らないと」
			PRINTFORMW 「じゃあまた会おうね！ばいばい！」
		ELSEIF TALENT:愛欲
			PRINTFORMW 「名残惜しいけどそろそろ時間…もっとエッチなことしたい…」
			PRINTFORMW 「ホテルに行きたい…でも帰らないと……」
			PRINTFORMW 「……また今度、いっぱいお願い」
		ELSEIF TALENT:思慕
			PRINTFORML 「もう稍微%CALLNAME:MASTER%と约会したい気持ちもあるけど…」
			PRINTFORMW 「でも、そろそろ兒童たちと積み石したいから返回ね」
		ELSE
			PRINTFORMW 「そろそろ兒童たちと積み石したいから返回ね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K127_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:127:81 == 3
			PRINTFORMW 「あっ…またやっちゃった…」
			PRINTFORML
			PRINTFORMW 最近、積み石の調子が悪い。つい精細を欠いて崩してしまうことが増えた
			PRINTFORMW その原因は、とっくに分かっている
			PRINTFORMW 「%CALLNAME:MASTER%……」
			PRINTFORMW あいつは水子を推倒ようなろくでもないやつである
			PRINTFORML 私ははじめて交わったときに、%CALLNAME:MASTER%も所詮男なのだと"諦めた"
			PRINTFORMW 気軽に性交し、不幸になる兒童を作る男なのだと
			PRINTFORMW
			PRINTFORMW しかし、最近は稍微自分の心の様子がおかしい
			PRINTFORMW あの人のことを考えると、ドキドキしてしまう
			PRINTFORMW さっき、何歳か生きてから死んだ子たちに、このことを相談したらすぐにこれが何なのかを教えてくれた
			PRINTFORMW その感情の名前は恋というらしい。一緒に居て楽しい相手のことをただ愛おしく感じ、適齢の男女で那个ばつがい、兒童を作りたいと思う感情――
			PRINTFORMW 「んー……」
			PRINTFORML しかし、自分は生まれてすぐに死んだ水子。今までそんな経験が無いから恋と言われてもよく分からないのだ
			PRINTFORMW ただ今まで感じたこと無い感情に困惑し、振り回されるばかり…
			PRINTFORMW
			PRINTFORMW 部屋を見渡すと、石しか無い殺風景だった部屋は、随分と石以外のものが増え、彩りを増していっている
			PRINTFORMW これも%CALLNAME:MASTER%の影響だ
			PRINTFORMW 生まれてすぐさま死に、無垢なままで水子としてずっと死に続けていた私を変えた人……
			PRINTFORMW 「ずっと一緒にいたい。ずっと一緒にいると楽しい。嬉しい。元気になる」
			PRINTFORMW 「……これが恋かー」
			PRINTFORMW 恋はよく分からずとも、一緒にいると楽しいから一緒にいたいという気持ちは分かる
			PRINTFORMW ならこれは言われた街道、恋なんだろう
			PRINTFORMW 「惚れた把柄ってやつだね！しょうがない！」
			PRINTFORML
			PRINTFORMW 私の名前は戒瓔花。水子の王国のアイドル。好きなものは積み石と兒童たちとクラゲ。愛しているのは…%CALLNAME:MASTER%
			TALENT:127:81 = 0
			CALL COLORMESSAGE(@"瓔花は【不信任人類】を失った",C_YELLOW,1)
		ELSE
			PRINTFORMW 「あっ…またやっちゃった…」
			PRINTFORML
			PRINTFORMW 最近、積み石の調子が悪い。つい精細を欠いて崩してしまうことが増えた
			PRINTFORMW その原因は、とっくに分かっている
			PRINTFORMW 「%CALLNAME:MASTER%……」
			PRINTFORMW そう、三途の河によく玩耍に来る奇特なあいつが心を乱すのだ
			PRINTFORML 積み石は煩悩無しに、心を凪にしてやるものだ
			PRINTFORMW 今の自分は、ふとした瞬間に%CALLNAME:MASTER%のことが頭によぎり、凪なんて維持できない
			PRINTFORMW
			PRINTFORMW 自分を悩ませるこの感情は自己はよく分かっていない
			PRINTFORMW さっき、何歳か生きてから死んだ子たちに、このことを相談したらすぐにこれが何なのかを教えてくれた
			PRINTFORMW その感情の名前は恋というらしい。一緒に居て楽しい相手のことをただ愛おしく感じ、適齢の男女で那个ばつがい、兒童を作りたいと思う感情――
			PRINTFORMW 「んー……」
			PRINTFORML しかし、自分は生まれてすぐに死んだ水子。今までそんな経験が無いから恋と言われてもよく分からないのだ
			PRINTFORMW ただ今まで感じたこと無い感情に困惑し、振り回されるばかり…
			PRINTFORMW
			PRINTFORMW 部屋を見渡すと、石しか無い殺風景だった部屋は、随分と石以外のものが増え、彩りを増していっている
			PRINTFORMW これも%CALLNAME:MASTER%の影響だ
			PRINTFORMW 生まれてすぐさま死に、無垢なままで水子としてずっと死に続けていた私を変えた人……
			PRINTFORML
			PRINTFORMW 「ずっと一緒にいたい。ずっと一緒にいると楽しい。嬉しい。元気になる」
			PRINTFORMW 「……これが恋かー」
			PRINTFORMW 恋はよく分からずとも、一緒にいると楽しいから一緒にいたいという気持ちは分かる
			PRINTFORMW ならこれは言われた街道、恋なんだろう
			PRINTFORMW 「明日も会えるかな」
			PRINTFORML
			PRINTFORMW 私の名前は戒瓔花。水子の王国のアイドル。好きなものは積み石と兒童たちとクラゲ。愛しているのは…%CALLNAME:MASTER%
		RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「%CALLNAME:MASTER%来ないかなー」
		PRINTFORML
		PRINTFORMW 最近、水子ではない新たな友人が出来た
		PRINTFORMW 水子は賽の河原から出ない。自分は特別に認められているがだからと言ってわざわざ出たりしない
		PRINTFORMW だから新たな交流など中々発生することは無いのだ
		PRINTFORML 死んでないのに地獄にやって来る人类は少ない。大抵は無有の道の屋台まで来て引き返す
		PRINTFORMW 例えこちらの方まで来ても、水子なんて見たくないのだろう。目を逸らす
		PRINTFORMW だから自分に知り合いは少ない。けど問題は無かった。ここは私たち水子の王国で国民たちがいっぱいいる
		PRINTFORMW たまに獄卒や地蔵様や河の妖怪や死神が来たりはするぐらいだけど、まったく不満は無かった。積み石が出来るから
		PRINTFORML
		PRINTFORMW そんな固く積み上げられ、安定はしてるけど動かしようがなかった積み石を崩したのが%CALLNAME:MASTER%だった
		PRINTFORMW %CALLNAME:MASTER%と玩遊戲のは楽しい。今まで外の世界に見向きもしてなかった私は、ほんの少し目を向けるようになった
		PRINTFORML
		PRINTFORMW 「%CALLNAME:MASTER%来ないかなー」
		PRINTFORMW  %CALLNAME:MASTER%のことを考えて積み上げた石は完璧な出来栄えだった
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「はぁ…はぁ…%UNICODE(0x2764)%何やってるんだろ…私…」
		PRINTFORML
		PRINTFORMW 静まり返った三途の河の賽の河原。その端にある自宅で瓔花は息を押し殺して、自慰をしていた
		PRINTFORML 性欲に溺れ、覚悟無く兒童を作ることを嫌っていたはずなのに色欲に溺れている
		PRINTFORMW そんな自分を、自己嫌悪し的同时、それでも指は止められない
		PRINTFORML
		PRINTFORMW 「た…足りないよぉ…助けて%CALLNAME:MASTER%…%UNICODE(0x2764)%」
		PRINTFORMW こんなことになったのは%CALLNAME:MASTER%のせいだ
		PRINTFORMW しかし、元凶である%CALLNAME:MASTER%に憤怒などは無い
		PRINTFORMW ただ媚びて、気持ちよくしてほしいと思うだけ
		PRINTFORML
		PRINTFORMW 「ん～～～！！！！！%UNICODE(0x2764)%%UNICODE(0x2764)%%UNICODE(0x2764)%」
		PRINTFORMW また今度、犯してもらおうと思い、睡眠につく少女は既に愛欲に堕ちきっていた
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「はぁ…はぁ…%UNICODE(0x2764)%何やってるんだろ…私…」
		PRINTFORML
		PRINTFORMW 静まり返った三途の河の賽の河原。その端にある自宅で瓔花は息を押し殺して、自慰をしていた
		PRINTFORML 性欲に溺れ、覚悟無く兒童を作ることを嫌っていたはずなのに色欲に溺れている
		PRINTFORMW そんな自分を、自己嫌悪し的同时、それでも指は止められない
		PRINTFORML
		PRINTFORMW 「はぁ…%UNICODE(0x2764)%はぁ…%UNICODE(0x2764)%%CALLNAME:MASTER%のせいだ…%UNICODE(0x2764)%」
		PRINTFORMW 水子は泳げない、性愛の沼に足を踏み入れた少女はただ溺れてしまうのみだ
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;炮友取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「はぁ…はぁ…%UNICODE(0x2764)%何やってるんだろ…私…」
		PRINTFORML
		PRINTFORMW 静まり返った三途の河の賽の河原。その端にある自宅で瓔花は息を押し殺して、自慰をしていた
		PRINTFORML 性欲に溺れ、覚悟無く兒童を作ることを嫌っていたはずなのに色欲に溺れている
		PRINTFORMW そんな自分を、自己嫌悪し的同时、それでも指は止められない
		PRINTFORML
		PRINTFORMW 「はぁ…%UNICODE(0x2764)%はぁ…%UNICODE(0x2764)%%CALLNAME:MASTER%のせいだ…%UNICODE(0x2764)%」
		PRINTFORMW 水子は泳げない、性愛の沼に足を踏み入れた少女はただ溺れてしまうのみだ
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K127_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
		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 ABL:LOCAL:自慰中毒 >= 5
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF ABL:LOCAL:自慰中毒 == 4
		ELSEIF ABL:LOCAL:自慰中毒 == 3
		ELSEIF ABL:LOCAL:自慰中毒 == 2
		ELSEIF ABL:LOCAL:自慰中毒 == 1
		[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
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			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
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			RETURN 1
		ENDIF
		;其他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K127_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「あのねぇ…お風呂はね。尊いものなんだよ」
		PRINTFORMW 「誰にも邪魔されちゃいけない、穏やかな時間なの」
		IF TALENT:恋人
			PRINTFORML 「当然恋人だろうと、ダメな時はダメ！」
			PRINTFORMW 「また今度は入ってあげるから今日は一人で入ってねー」
		ELSEIF TALENT:恋慕
			PRINTFORML 「当然%CALLNAME:MASTER%だろうと、ダメな時はダメ！」
			PRINTFORMW 「というわけで入るなら一人で入ってねー」
		ELSE
			PRINTFORML 「%CALLNAME:MASTER%には地獄で釜茹でがおすすめだね！！」
			ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K127_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF EXP:127:出産経験 > 0
			PRINTFORMW 寝ようとする直前に、%CALLNAME:MASTER%の目の前に瓔花が現れた
			PRINTFORMW そういえば今日は一日医者にかかると言っていてこちらに来る余裕は無いはずだと思っていたのだが
			PRINTFORML 過去にも似たようなことがあったことを思い出し、彼女に尋ねるとどうやら当たりだったようだ
			PRINTFORML
			PRINTFORMW 「うん…また授かったよ赤ちゃん」
			IF TALENT:妊娠願望
				PRINTFORMW 昔はともかく、瓔花は兒童を作ることに積極的だ
				PRINTFORMW 妊娠願望は兒童を産んでなお、いや産み育て巣立ちまでを経験したからこそ強くなる
				PRINTFORML 瓔花の表情からは喜びしか見えない
				PRINTFORMW %CALLNAME:MASTER%は勿論心の底から兒童を授かったことを喜び、祝福した
			ELSE
				PRINTFORML 瓔花は親になっても、いや親になったからこそ……
				PRINTFORML 安易に兒童を授かることについては複雑な思いを持っていたはず…
				PRINTFORMW それでも好き合って授かったことを悪くは思わないはずだし、瓔花は兒童には深く愛情を注いでいた
				PRINTFORMW また兒童が出来て嫌だとは思っていないはずだ…
				PRINTFORML
				PRINTFORMW %CALLNAME:MASTER%は兒童を授かったことを喜び、祝福した
			ENDIF
			PRINTFORMW 「ふふふ、もう私は既にお母さんとして兒童を巣立ちまで育てた経験者！」
			PRINTFORML 「はじめてのときは弱音を吐いたけど、今回は怖くないよ！」
			PRINTFORMW 「勿論！%CALLNAME:MASTER%も子育て手伝ってね！！パパ！」
			PRINTFORMW 彼女の言葉に合意を示すように、%CALLNAME:MASTER%は温柔的抱きしめた
		ELSE
			PRINTFORMW 寝ようとする直前に、%CALLNAME:MASTER%の目の前に瓔花が現れた
			PRINTFORMW そういえば今日は一日医者にかかると言っていてこちらに来る余裕は無いはずだと思っていたのだが
			PRINTFORML いったい何があったのかと思い、尋ねると瓔花はただ一言呟いた
			PRINTFORML
			PRINTFORMW 「……授かったよ。赤ちゃん」
			PRINTFORMW
			PRINTFORMW 「もちろん…%CALLNAME:MASTER%とのだよ」
			IF TALENT:妊娠願望
				PRINTFORMW 昔はともかく、今の瓔花は兒童を作ることをむしろ望んでいた…
				PRINTFORMW %CALLNAME:MASTER%は心の底から兒童を授かったことを喜び、祝福した
			ELSE
				PRINTFORML 瓔花は兒童を授かることについて複雑な思いを持っていたはず…
				PRINTFORMW それでも好き合って授かったことを悪くは思わないはずだ
				PRINTFORMW %CALLNAME:MASTER%は兒童を授かったことを喜び、祝福した
			ENDIF
			PRINTFORML
			PRINTFORMW 「ううう…良かった…」
			PRINTFORML 「ほんと良かった…私は勿論産んで大切に育てるつもりだったけど…」
			PRINTFORMW 「両親に望まれて健やかに育ってほしいもんね」
			PRINTFORML
			PRINTFORML 彼女がどうして水子になってしまったのか、それを%CALLNAME:MASTER%は断片的にしか知らない
			PRINTFORMW だが、彼女が両親に望まれなかったから死んだのだろうと予想は付けられる
			PRINTFORML 兒童を宿したとは思えない、しかし確かに宿している土気色の肌を伝う涙を%CALLNAME:MASTER%は温柔的指で拭って、
			PRINTFORMW そうして、安心させるように悄悄的抱きしめた
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	;同じ
	IF LOCAL:1 && ARG == 2
		IF EXP:127:出産経験 > 0
			PRINTFORMW 寝ようとする直前に、%CALLNAME:MASTER%の目の前に瓔花が現れた
			PRINTFORMW そういえば今日は一日医者にかかると言っていてこちらに来る余裕は無いはずだと思っていたのだが
			PRINTFORML 過去にも似たようなことがあったことを思い出し、彼女に尋ねるとどうやら当たりだったようだ
			PRINTFORMW 「うん…また出来ちゃった…いや出来ちゃったなんて言い方よくないね」
			PRINTFORML
			PRINTFORMW 「また授かったよ。%CALLNAME:MASTER%との赤ちゃん」
			PRINTFORML 瓔花は親になっても、いや親になったからこそ……
			PRINTFORML 安易に兒童を授かることについては非常に複雑な思いを持っていたはず…
			PRINTFORMW それは出来ちゃったという言葉からも現れている
			PRINTFORMW 兒童をまた生みたくないと思っているのかもしれないし、%CALLNAME:MASTER%のことを恨んでいるかもしれない
			PRINTFORML
			PRINTFORMW 「ふふふ、もう私は既にお母さんとして兒童を巣立ちまで育てた経験者！」
			PRINTFORMW しかし、彼女はそんな泣き言は言わなかった
			PRINTFORML 「はじめてのときは弱音を吐いたけど、今回は怖くないよ！」
			PRINTFORML
			PRINTFORMW 「シングルマザーとしてちゃんとこの子を育てるからね！気にしなくていいよ！」
			PRINTFORMW %CALLNAME:MASTER%に頼る気はやはりないようだ…
		ELSE
			PRINTFORMW 寝ようとする直前に、%CALLNAME:MASTER%の目の前に瓔花が現れた
			PRINTFORMW そういえば今日は一日医者にかかると言っていてこちらに来る余裕は無いはずだと思っていたのだが
			PRINTFORML いったい何があったのかと思い、尋ねると瓔花はただ一言呟いた
			PRINTFORML
			PRINTFORMW 「うう…出来ちゃった…いや出来ちゃったなんて言い方よくないね」
			PRINTFORMW 「授かったよ。%CALLNAME:MASTER%との赤ちゃん」
			PRINTFORML 瓔花は親になっても、いや親になったからこそ……
			PRINTFORML 安易に兒童を授かることについては非常に複雑な思いを持っていたはず…
			PRINTFORMW それは出来ちゃったという言葉からも現れている
			PRINTFORML 兒童を生みたくないと思っているのかもしれないし、%CALLNAME:MASTER%のことを恨んでいるかもしれない
			PRINTFORML
			PRINTFORMW 「ちゃーんと、シングルマザーとしてちゃんとこの子を育てるからね！気にしなくていいよ！」
			PRINTFORMW %CALLNAME:MASTER%に頼る気はないようだ…
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF EXP:127:出産経験 > 0
			PRINTFORMW 寝ようとする直前に、%CALLNAME:MASTER%の目の前に瓔花が現れた
			PRINTFORMW そういえば今日は一日医者にかかると言っていてこちらに来る余裕は無いはずだと思っていたのだが
			PRINTFORML 過去にも似たようなことがあったことを思い出し、彼女に尋ねるとどうやら当たりだったようだ
			PRINTFORMW 「うん…また出来ちゃった…いや出来ちゃったなんて言い方よくないね」
			PRINTFORML
			PRINTFORMW 「また授かったよ。%CALLNAME:MASTER%との赤ちゃん」
			PRINTFORML 瓔花は親になっても、いや親になったからこそ……
			PRINTFORML 安易に兒童を授かることについては非常に複雑な思いを持っていたはず…
			PRINTFORMW それは出来ちゃったという言葉からも現れている
			PRINTFORMW 兒童をまた生みたくないと思っているのかもしれないし、%CALLNAME:MASTER%のことを恨んでいるかもしれない
			PRINTFORML
			PRINTFORMW 「ふふふ、もう私は既にお母さんとして兒童を巣立ちまで育てた経験者！」
			PRINTFORMW しかし、彼女はそんな泣き言は言わなかった
			PRINTFORML 「はじめてのときは弱音を吐いたけど、今回は怖くないよ！」
			PRINTFORMW 「シングルマザーとしてちゃんとこの子を育てるからね！」
			PRINTFORML
			PRINTFORMW 「大丈夫！血縁はともかく心の繋がりでは%CALLNAME:MASTER%のこと父親だと思ってないから！気にしなくていいよ！」
			PRINTFORMW %CALLNAME:MASTER%に頼る気はやはりないようだ…
		ELSE
			PRINTFORMW 寝ようとする直前に、%CALLNAME:MASTER%の目の前に瓔花が現れた
			PRINTFORMW そういえば今日は一日医者にかかると言っていてこちらに来る余裕は無いはずだと思っていたのだが
			PRINTFORML いったい何があったのかと思い、尋ねると瓔花はただ一言呟いた
			PRINTFORML
			PRINTFORMW 「うう…出来ちゃった…いや出来ちゃったなんて言い方よくないね」
			PRINTFORMW 「授かったよ。%CALLNAME:MASTER%との赤ちゃん」
			PRINTFORML
			PRINTFORML 瓔花は親になっても、いや親になったからこそ……
			PRINTFORML 安易に兒童を授かることについては非常に複雑な思いを持っていたはず…
			PRINTFORMW それは出来ちゃったという言葉からも現れている
			PRINTFORML 兒童を生みたくないと思っているのかもしれないし、%CALLNAME:MASTER%のことを恨んでいるかもしれない
			PRINTFORML
			PRINTFORMW 「ちゃーんと、シングルマザーとしてちゃんとこの子を育てるからね！」
			PRINTFORMW 「大丈夫！血縁はともかく心の繋がりでは%CALLNAME:MASTER%のこと父親だと思ってないから！気にしなくていいよ！」
			PRINTFORMW %CALLNAME:MASTER%に頼る気は全くないようだ…
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
			PRINTFORMW 寝ようとする直前に、%CALLNAME:MASTER%の目の前に瓔花が現れた
			PRINTFORMW そういえば今日は一日医者にかかると言っていてこちらに来る余裕は無いはずだと思っていたのだが…
			PRINTFORML いったい何があったのかと思い、尋ねると瓔花はただ一言呟いた
			PRINTFORML
			PRINTFORMW 「うう…出来ちゃった…いや出来ちゃったなんて言い方よくないね」
			PRINTFORMW 「授かったんだ。赤ちゃん。誰の子かは分からないけれど」
			PRINTFORMW 「それを今知り合いに順番に報告中なの」
			PRINTFORMW 「……ちゃんと愛して育てるよ。私達みたいな親に望まれずに生まれて死ぬような子は…作りたくないから」
			PRINTFORML
			PRINTFORMW %CALLNAME:MASTER%はこういうときは助けあいだ。自分も何かあったら手伝うよと白々しいことを言って瓔花を見送った
			;PRINTFORMW
			;PRINTFORMW 「胎児よ胎児よ何故躍る 母親の心がわかっておそろしいのか……」
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K127_25(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「はぁ…はぁ…う…産まれた…」
		IF EXP:127:出産経験 > 0
			PRINTFORML 出産は何度やっても慣れないのだろう
		ELSE
			PRINTFORML 初めての出産ということで酷く消耗したのだろう
		ENDIF
		PRINTFORMW 瓔花は酷く疲惫顔をして、土気色の肌も合わさって死者のようだった
		PRINTFORMW しかし、抱かれた小小的命は、確かに産み落とした生者だ
		PRINTFORML
		PRINTFORMW 「えへへ……%CALLNAME:MASTER%との……赤ちゃん……」
		PRINTFORMW 「ちゃーんと育ててみせるから……死なせたりなんて絶対に不会」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「はぁ…はぁ…う…産まれた…」
		IF EXP:127:出産経験 > 0
			PRINTFORML 出産は何度やっても慣れないのだろう
		ELSE
			PRINTFORML 初めての出産ということで酷く消耗したのだろう
		ENDIF
		PRINTFORMW 瓔花は酷く疲惫顔をして、土気色の肌も合わさって死者のようだった
		PRINTFORMW しかし、抱かれた小小的命は、確かに産み落とした生者だ
		PRINTFORML
		PRINTFORMW 「私と…%CALLNAME:MASTER%との……赤ちゃん……」
		PRINTFORMW 「ちゃーんと育ててみせるから……死なせたりなんて絶対に不会」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「はぁ…はぁ…う…産まれた…」
		IF EXP:127:出産経験 > 0
			PRINTFORML 出産は何度やっても慣れないのだろう
		ELSE
			PRINTFORML 初めての出産ということで酷く消耗したのだろう
		ENDIF
		PRINTFORMW 瓔花は酷く疲惫顔をして、土気色の肌も合わさって死者のようだった
		PRINTFORMW しかし、抱かれた小小的命は、確かに産み落とした生者だ
		PRINTFORML
		PRINTFORMW 「私の……赤ちゃん……私が……お母さん……」
		PRINTFORMW 「ちゃーんと育ててみせるから……死なせたりなんて絶対に不会」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「はぁ…はぁ…う…産まれた…」
		IF EXP:127:出産経験 > 0
			PRINTFORML 出産は何度やっても慣れないのだろう
		ELSE
			PRINTFORML 初めての出産ということで酷く消耗したのだろう
		ENDIF
		PRINTFORMW 瓔花は酷く疲惫顔をして、土気色の肌も合わさって死者のようだった
		PRINTFORMW しかし、抱かれた小小的命は、確かに産み落とした生者だ
		PRINTFORML
		PRINTFORMW 「誰がパパかは分からないけれど…間違いなく…私の赤ちゃん……私がお母さん……」
		PRINTFORMW 「ちゃーんと育ててみせるから……死なせたりなんて絶対に不会」
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K127_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORML 「ひっ…足音…明らかに兒童たちじゃない…誰…？」
				PRINTFORMW 瓔花は足音に気づいて恥ずかしさよりも怖さが勝ったのか顔を青くして辺りを見渡した
				PRINTFORMW
				PRINTFORMW 「ってなーんだ良かった%CALLNAME:MASTER%か……って！」
				PRINTFORMW 「いくら%CALLNAME:MASTER%でも良くないよ！」
			ELSE
				PRINTFORML 「ひっ…足音…兒童たちじゃない…誰…？」
				PRINTFORMW 瓔花は足音に気づいて恥ずかしさよりも怖さが勝ったのか顔を青くして辺りを見渡した
				PRINTFORMW
				PRINTFORMW 「は…？%CALLNAME:MASTER%……ここ私的家…」
				PRINTFORMW 瓔花は瞳に涙を貯めて顔を真っ赤にしている…
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;什麼也不做
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORMW 「まぁ…出てくれるなら許すけど…」
			ELSE
				PRINTFORMW 「許さない！今からここから出ていけ！！」
			ENDIF
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORMW 「はぁ…しょうがないなあ…良いよ見てて」
			ELSE
				PRINTFORMW 「わ、分かった…終わったら帰ってね？んっ%UNICODE(0x2764)%」
				PRINTFORMW (あ？那个？？なんか上手く丸め込まれたような…？)
				PRINTFORMW (まあ襲ってこないから良いか…)
			ENDIF
		ENDIF
		;-------------------------------------------------
		CASE 3
		;逐出
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORMW 「鬼みたいな酷い人は出てってちょうだいねー」
			ELSE
				PRINTFORMW 「許さない！出ていけ！！そして石に当たって死んじゃえ！！」
			ENDIF
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORMW 「はぁ…しょうがないなあ…良いよ%UNICODE(0x2764)%来て%UNICODE(0x2764)%」
			ELSEIF TALENT:127:愛欲
				PRINTFORMW 「はぁ…しょうがないなあ…エッチしたくてたまらないし%UNICODE(0x2764)%」
				PRINTFORMW 「良いよ%UNICODE(0x2764)%来て%UNICODE(0x2764)%」
			ELSE
				PRINTFORMW 「へぇ…そういうことしちゃうんだぁ」
				PRINTFORML
				PRINTFORMW 瓔花に抵抗の意志は無いし、声色は決して暗くない。
				PRINTFORMW まるですでに諦めきって捨て鉢になっているかのようだ
				PRINTFORMW 「勝手に部屋に入り込んで把柄を握って推倒…まあ把柄を握らせた私が悪いわー」
				IF CFLAG:127:1002 == 1 && TALENT:127:81 == 0
					TALENT:127:81 = 3
					CALL COLORMESSAGE(@"瓔花は【不信任人類】を得た",C_YELLOW,1)
				ENDIF
			ENDIF
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人 || TALENT:恋慕 || TALENT:127:愛欲
				PRINTFORMW 「ふぅ…良かった…%UNICODE(0x2764)%」
				PRINTFORMW 「次からはちゃんと事前に言ってよね」
				PRINTFORMW 「事前に言わずに来るのは獄卒と変わらないよ」
			ELSE
				PRINTFORMW 「あー気持ちよかった。後先考えずするヒトが昔からいっぱいいるわけね」
				PRINTFORMW 「その結果私みたいなのが出来るわけなんだけど」
				PRINTFORMW 「なっとくなっとくー」
				PRINTFORMW 「……まだ帰らないの？もう済んだでしょ？さっさと寝て今日のこと忘れたいんだけど」
			ENDIF
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「このまま返回なんてもったい無いよ」
			PRINTFORMW 「一緒に積み石とかしよ！あと……ね%UNICODE(0x2764)%」
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;相手から约会のお誘い
;==================================================
@M_KOJO_EVENT_K127_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
			PRINTFORMW 「ねえねえ！私行きたいところがあるんだ！一緒に行こうよ！」
			PRINTFORMW 普段は三途の河の外に出ない瓔花が珍しく约会に誘ってきた…
			IF TALENT:127:恋人
				PRINTFORMW 「恋人だもん来てくれるよね？」
			ELSEIF TALENT:127:恋慕
				PRINTFORMW 「约会したいんだけど…ダメ？」
			ELSE
				PRINTFORMW 「宴会に参加してみたいんだけど私一人で出かけるのは不安だし……」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW %CALLNAME:MASTER%は瓔花の誘いを接受ことにした
			PRINTFORMW 「やったー！よし早速行こう！」
			IF TALENT:127:恋人
				PRINTFORMW 「ふっふーん、恋人と约会～♪」
			ELSEIF TALENT:127:恋慕
				PRINTFORMW 「ふっふーん、%CALLNAME:MASTER%と约会～♪」
			ELSE
				PRINTFORMW 「よーし！宴会ついでに良い石尋找ぞー！ほら先行っちゃうよー！こっちこっち！」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「ううう…残念」
			PRINTFORMW 「しょうがない…一人で行くしかないか…」
			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 「やったー！じゃあ早速行こう！」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
		 	PRINTFORMW 「ううう…残念」
		 	PRINTFORMW 「昔はともかく今は綺麗になったんだけどな……」
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K127_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 = 1
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「なーんか私だけあげるの不公平だと思うなー」
					PRINTFORMW 「……%CALLNAME:MASTER%のとの交換なら良いよ」
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「もー変態なんだから…」
					PRINTFORMW 「是どうぞ%UNICODE(0x2764)%」
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「ううう……変態だぁ……」
					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_K127_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの胆量で分岐
;--------------------------------------------------
;記入チェック（=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 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;相手が推倒を解除
;==================================================
@M_KOJO_EVENT_K127_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲惫
		PRINTFORML 「つ…疲惫…水子だもの運動なんてしないし…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML 「ありがと！積み石作品が完成したときぐらいスッキリした！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを被逆推た
		PRINTFORML 「わ、私はもう充分なんだけど…」
		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_K127_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_K127_ONABARE_1(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXを角色番号に
;CALL M_KOJO_COLOR_KX

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

[SKIPSTART]
;-------------------------------------------------
;オナバレでそのまま続けてもらう場合の地の文。
;默认のものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K127_ONABARE_2(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXを角色番号に
;CALL M_KOJO_COLOR_KX

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

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

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

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

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_初回がオンになっている場合のみ有効。
;初めて推倒た時、ここでRETURN -1すると推倒を強制的に中止します。
;RETURN 0なら通常の判定を行い、RETURN 1すると無条件に成功させます。
;特定のイベント（约会帰り接吻など）を見るまで诶嘿嘿できないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K127_PERMISSION_1
;-------------------------------------------------
PRINTFORML
;RETURN -1
RETURN 0
;RETURN 1
;-------------------------------------------------

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

path: ERB/口上・メッセージ関連/個人口上/【127】瓔花/M_KOJO_K127_イベント.ERB