code:
;-------------------------------------------------
; eraTheWorld 4.793用 勇儀口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;
;『〇〇かい？』って言わせ過ぎな気がする
;でも便利だからしょうがない
;
;------ ｷﾘﾄﾘ ｶｲｼ -----------
;eraTheWorld proto4.07パッチ取り込み用 Ver1.13
;テンプレートの使い方
;初めに置換コマンド等により K64 を K(キャラNo) に変更して下さい
;キャラNoはCSVフォルダのCharaファイルを参照　例(霧雨 魔理沙の場合)：K64 =置換=> K11
;
;------ ｷﾘﾄﾘ ｵﾜﾘ -----------

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;
;TCVAR:64:350 移動時すれちがい会釈の口上は一日一回だけ表示
;TCVAR:64:351 妊娠時膝枕してもらう妊娠分岐の口上は一日一回だけ表示
;TCVAR:64:352 妊娠時お腹を撫でる妊娠分岐の口上は一日一回だけ表示
;TCVAR:64:353 本気の戦闘訓練は一日一回だけ
;TCVAR:64:354 その日の初回豆まきで使用
;TCVAR:64:355~356 その日二回目以降の部屋に入る・外に出るで使用
;TCVAR:64:357 時間停止でパンツを剥ぎ取ったか
;
;CFLAG:64:1000 UPDATE時の呼び名変更に使用
;
;******************************************************************************

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

;RESULTS = _TEST_

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

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

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

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

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

;CFLAG:X:眠姦口上有 = 0
;CFLAG:X:時間停止口上有 = 0
;CFLAG:X:なりきり口上有 = 0
;CFLAG:X:破瓜キャンセル口上有 = 0
;CFLAG:X:口上内抱き寄せ判定_初回 = 0
;CFLAG:X:口上内抱き寄せ判定_通常 = 0

;CFLAG:押し倒し禁止に1を入れると自分から押し倒してこなくなります
;以下は恋慕かセフレがつくまで押し倒してこなくなる使用例
IF BASE:64:酒気 > 0
	CFLAG:64:押し倒し禁止 = 0
ELSE
	CFLAG:64:押し倒し禁止 = 1
ENDIF

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

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

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

IF CFLAG:64:1000 == 0
	PRINTL
	PRINTFORML 勇儀からの呼び名を変更しますか？
	PRINTL
	CALL ASK_M("はい",1 , "いいえ",1 , "もう変更しない",1)
	SELECTCASE RESULT
		CASE 0
			CALL NAME_SET_K64
			RETURN 1
		CASE 1
			PRINTFORMW 呼び名を変更する際はもう一度[UPDATE]を押してください
			RETURN 1
		CASE 2
			PRINTFORMW 了解しました
			CFLAG:64:1000 = 1
			RETURN 1
	ENDSELECT
ENDIF
RETURN 1

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

	PRINTFORMW 「お前が萃香の言っていた人間だな？」
	PRINTFORMDW 快活な声に%CALLNAME:MASTER%が振り返ると、そこに一人の女性が居た
	PRINTFORMDW こちらと同じか、それ以上あるかもしれない長身
	PRINTFORMDW 腰まで届く程の金髪に、衣服を押し上げ存在を主張する豊かな双丘
	PRINTFORMDW そして、怒髪天を衝くように生えた立派な赤い角
	PRINTFORMDW 鬼で間違いないだろう……%CALLNAME:MASTER%は少しだけ身構えた
	PRINTFORMW 「私は星熊勇儀。山の四天王の一人さ」
	PRINTFORMW 「といっても、今は地底暮らしだけど……」
	PRINTFORMW 「まあそんなことはどうでもいい」
	PRINTFORMW 「あいつが一目置くってことは、それなり以上には強いんだろう？」
	PRINTFORMW 「手合わせ願おうと思ってね、こうしてやって来たってわけだ」
	PRINTFORMDW 鬼という種族は勝負事が好きだという
	PRINTFORMDW この星熊勇儀という鬼も、どうやらそうであるらしい
	PRINTFORMW 「どうだい？もちろん受けてくれるだろう？」
	PRINTFORMDW %CALLNAME:MASTER%は……
	CALL ASK_M("受ける", 1, "受けない", 1,)
	SELECTCASE RESULT
		CASE 0
			PRINTFORMW 「そうかッ！受けてくれるかッ！」
			PRINTFORMDW 勇儀はそう言うと、手に持った盃になみなみと酒を注いだ
			PRINTFORMW 「ここから一滴でも零すことができたら、あんたの勝ちってことにしよう」
			PRINTFORMW 「そうでもしないと、駄目になるまでやってしまいそうだからね」
			PRINTFORMDW 向こうからハンデを付けるということは、相当自信があるのだろう
			PRINTFORMDW 今更ながら、本当に受けてよかったのだろうか……
			PRINTFORMW 「準備運動なんてもん必要ないな？」
			PRINTFORMW 「それじゃあいくぞ！」
			PRINTFORMDL ………
			PRINTFORMDL ……
			PRINTFORMDW …
			;あなたの戦闘力２以下
			IF ABL:MASTER:戦闘能力 <= 2
				PRINTFORMDW ボロ負けなんてものじゃなかった
				PRINTFORMDW 勇儀の拳から放たれる拳圧だけで、%CALLNAME:MASTER%は尻もちをついてしまった
				PRINTFORMDW 立ち上がろうとするが、あまりの恐怖に膝が笑ってしまう
				PRINTFORMDW そんな%CALLNAME:MASTER%に、勇儀は嘲笑うことなく手を差し伸べた
				PRINTFORMW 「ほら、いつまでも座ってないで立ちなよ」
				PRINTFORMW 「はは、まさかパンチ一発当たる前に終わるなんてな」
				PRINTFORMW 「正直期待外れだったけど……でも、なんとなく分かったよ」
				PRINTFORMW 「萃香が一目置くわけだ。普通の人間はビビッて挑んで来ようとしないのに」
				PRINTFORMW 「でもあんたは挑んできた。それだけで十分さ」
				PRINTFORMDW さっきまでの威圧感が嘘のように、勇儀はカラカラと笑っている
				PRINTFORMW 「あんた、名は？」
				CALL NAME_SET_K64
				PRINTFORMW 「%MASTERNAME:64%か、覚えておくよ」
				PRINTFORMW 「次に会う時は、喧嘩じゃなくて呑み比べでもしようか」
				PRINTFORMW 「ま、そっちの方は手加減できるかちと分からんけどな！」
				PRINTFORMDW 勇儀に背中をバンバンと叩かれ、%CALLNAME:MASTER%は思わずつんのめってしまう
				PRINTFORMDW 足の震えは、もう止まっていた
				CALL CHANGE_CFLAG(2, 64, 100)
			;あなたの戦闘力５以下
			ELSEIF ABL:MASTER:戦闘能力 <= 5
				PRINTFORMW 「お見事！私に酒を零させるとはね」
				PRINTFORMDW 精も根も尽きた%CALLNAME:MASTER%に対して、勇儀は涼しげに酒を呷っている
				PRINTFORMW 「取り決め通り、私の負けだよ。萃香が一目置くだけのことはある」
				PRINTFORMW 「人間は卑怯者ばかりになったと思ってたけど……」
				PRINTFORMW 「どうやら、まだ見どころのあるやつもいるみたいだ」
				PRINTFORMDW 勇儀は、まるで無くした物をようやく見つけたような…そんな笑みを浮かべている
				PRINTFORMW 「あんた、名は？」
				CALL NAME_SET_K64
				PRINTFORMW 「気に入ったよ。あんたの名前、覚えておこう」
				PRINTFORMW 「それに、あんたなら信頼できそうだ」
				PRINTFORMW 「ほら、腕っぷしの強い奴に悪い奴は居ないって言うだろう？」
				PRINTFORMDW %CALLNAME:MASTER%が『初耳だ』と言うと、勇儀はカラカラと笑った
				PRINTFORMW 「はははっ、あんたもいずれ分かるさ」
				PRINTFORMW 「というわけでよろしく。%MASTERNAME:64%」
				PRINTFORMDW 勇儀が差し出してきた手を、%CALLNAME:MASTER%は恐る恐る握った……
				CALL CHANGE_CFLAG(2, 64, 300)
			;あなたの戦闘力６
			ELSE
				PRINTFORMW 「あーあー……良い酒が台無しじゃないか」
				PRINTFORMDW 勇儀は頭から酒を被り、全身ビショビショに濡れてしまっている
				PRINTFORMDW しかし、その表情はどこか嬉し気だ
				PRINTFORMW 「認めよう、完敗だ」
				PRINTFORMW 「ここまで強いとはね、正直見くびってたよ」
				PRINTFORMW 「……手を抜いてたろって？いやいや」
				PRINTFORMW 「途中からマジになってたさ」
				PRINTFORMW 「それでも負けた…これが事実だよ」
				PRINTFORMW 「自慢でもなんでもするといい」
				PRINTFORMW 「山の四天王の一人、力の勇儀を負かしたんだ。誇りなよ」
				PRINTFORMDW てっきり意地でも負けを認めないと思っていた%CALLNAME:MASTER%は、少し拍子抜けしてしまった
				PRINTFORMW 「あんた、名は？」
				CALL NAME_SET_K64
				PRINTFORMW 「気に入ったよ。あんたの名前、覚えておこう」
				PRINTFORMW 「そうだ、地底の鬼達にあんたの名前を教えても良いかい？」
				PRINTFORMW 「勝負を挑まれるかもしれないけど……まあ、あんたなら余裕だろう？」
				PRINTFORMDW 冗談じゃない……%CALLNAME:MASTER%が拒否すると、勇儀に『謙遜するなって』と背中を叩かれた
				PRINTFORMDW 背骨が折れるんじゃないかというほどの衝撃と痛みに、本当に全力だったのだろうかと疑問を感じざるを得なかった……
				CALL CHANGE_CFLAG(2, 64, 500)
			ENDIF
		CASE 1
			PRINTFORMW 「はぁ……そうかい、がっかりだよ」
			PRINTFORMW 「人間がそういうやつだってこと、すっかり忘れてた」
			PRINTFORMDW どうやら失望されてしまったようだ……
			PRINTFORMW 「どうしてこんなのを気に掛けてるのか……萃香のやつ、ほんと分からないねぇ」
			PRINTFORMW 「……まあ、いいや」
			PRINTFORMW 「あんた、名は？」
			CALL NAME_SET_K64
			PRINTFORMW 「%MASTERNAME:64%…ね。あんたのこと、暫く見極めさせてもらうよ」
			PRINTFORMW 「もしかしたら、力を隠しているのかもしれないからね」
			PRINTFORMDW 勇儀はそう言うと、『よろしく』と背中を叩いてきた
			PRINTFORMDW ……かなり痛かった
	ENDSELECT
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K64_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 「ぷは……」
	PRINTFORMW 「ふふふ、驚かせたか？」
	PRINTFORMW 「酔ってるのかって？ んなわきゃないよ」
	PRINTFORMW 「それとも、私のキス…そんなに酒臭かったかい？」
	PRINTFORMDW 酒ではなく羞恥で頬を紅潮させながら、勇儀は%CALLNAME:MASTER%を見つめている
	PRINTFORMW 「今日の礼……って建前はよくないな」
	PRINTFORMW 「私がしたくなった。それだけさ」
	PRINTFORMDW それだけ言うと、勇儀は前に向き直りズンズンと歩いて行ってしまった
	PRINTFORMW
	PRINTFORMW 「おい、どうしたんだ？ 置いて行くぞ？」
	PRINTFORMDW ハッと我に返った%CALLNAME:MASTER%は、急いで勇儀の後を追った……
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K64_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
		PRINTFORMW 「な、なあ」
		PRINTFORMW 「……その…なんだ」
		PRINTFORMW 「私ら、だいぶ付き合いが長くなってきたと思うんだよ」
		PRINTFORMW 「だから……ぁあもうッ！私らしくない」
		PRINTFORMDW 勇儀はガシガシと頭を掻いている
		PRINTFORMDW そして、覚悟を決めた表情で%CALLNAME:MASTER%を真っ直ぐと見つめた
		PRINTFORMW 「いつからか、私は%MASTERNAME:64%に惹かれてた」
		PRINTFORMW 「朋友としてではなく、一人の女として」
		PRINTFORMW 「嫁でも、恋人でも、カキタレでもなんでもいいさ」
		PRINTFORMW 「私を、%MASTERNAME:64%の女にして欲しい。私だけを見て欲しい……」
		PRINTFORMW 「……これ以上は、言わなくても分かるだろ？」
		PRINTFORMW 「……もし……」
		PRINTFORMW 「もしお前にその気が無くても……私はお前を恨まない」
		PRINTFORMW 「鬼の誇りに誓って、それだけは約束するよ」
		PRINTFORMW 「だから%MASTERNAME:64%。黙ってないで返事を聞かせておくれよ」
		PRINTFORMDW それきり、勇儀は黙ってしまった
		PRINTFORMDW どうやら、%CALLNAME:MASTER%の返事を待っているようだ……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMDW %CALLNAME:MASTER%が告白を受け入れると、勇儀にひしと抱き締められた
		PRINTFORMW 「ぁぁ……」
		PRINTFORMW 「こんな気持ち、いつ以来だろう……」
		PRINTFORMDW 勇儀がギュッと力を込める度に、ミシミシと全身の骨が悲鳴を上げる
		PRINTFORMW 「正直に言って、叶わないと思ってた」
		PRINTFORMW 「腕っぷしと酒呑みくらいしか自信がない私に、女としての魅力なんてあるのかって……」
		PRINTFORMW 「それ以前に鬼と人間だ。告白した日には気味悪がって離れていってしまうんじゃないかって……」
		PRINTFORMW 「……でも、%MASTERNAME:64%は私を受け入れてくれるんだね」
		PRINTFORMW 「それがたまらないくらい嬉しいよ」
		PRINTFORMDW ボキッ！ %CALLNAME:MASTER%の体から鳴ってはいけない音がした
		PRINTFORMW 「%MASTERNAME:64%……これからはずっと一緒に……あれ、%MASTERNAME:64%？」
		PRINTFORMW 「おい、おーい？ %MASTERNAME:64%？」
		PRINTFORMW 「うおお？！ おい！ 腕が変な方向に曲がってるぞ？！」
		PRINTFORMW 「いったいどうしちまったんだ！？ %MASTERNAME:64%！？」
		PRINTFORMW 「死ぬな！ ようやく恋人同士になれたってのに、こんなとこで終わる奴があるか！」
		PRINTFORMW 「とりあえず腕を元に戻してやらないとな……オラッ！」
		PRINTFORMDW バキボキバキィッ！！！
		PRINTFORMDL ………
		PRINTFORMDL ……
		PRINTFORMDW …
		PRINTFORMDW 暫くして目を覚ました%CALLNAME:MASTER%は、平謝りする勇儀を宥めながら一緒に帰路についた……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「ッ……そう、か……」
		PRINTFORMDW %CALLNAME:MASTER%の返事を聞いた勇儀は少し悲し気に視線を落とす
		PRINTFORMDW 拳を握ったり開いたりしながら、頭の中で返事を反芻する
		PRINTFORMDW そして、どこか吹っ切れたように面を上げた
		PRINTFORMW 「……%MASTERNAME:64%の気持ちはよく分かった」
		PRINTFORMW 「だけど……私はまだ諦めないよ」
		PRINTFORMW 「言っただろう？関係は変わらないって」
		PRINTFORMW 「つまりだ、私が%MASTERNAME:64%を好きだという気持ちも変わらないわけだ」
		PRINTFORMW 「どれだけ掛かっても、絶対に振り向かせてみせる」
		PRINTFORMW 「だから、%MASTERNAME:64%も首を洗って待ってろよ？」
		PRINTFORMDW まるで喧嘩の台詞のようだ。%CALLNAME:MASTER%がそう指摘すると勇儀はいつもの調子で大笑いした
		PRINTFORMW 「あははははっ！ご明察！大当たりだよ！」
		PRINTFORMW 「これはね、%MASTERNAME:64%を振り向かせる為の私の戦いなんだ」
		PRINTFORMW 「私が売られた喧嘩は買う性分なのは%MASTERNAME:64%も良く分かってるだろ？」
		PRINTFORMDW いつの間にか、自分は勇儀に喧嘩を売ってしまっていたらしい
		PRINTFORMW 「そういうわけで、これからもデートに誘っとくれよ」
		PRINTFORMW 「%MASTERNAME:64%が受け入れるまで、何度でも想いを伝え続けるからさ！」
		PRINTFORMDW 何事も鬼を敵に回すと面倒臭いことになる
		PRINTFORMDW それが良く分かった一日だった
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K64_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:恋慕
			PRINTFORML 「……ああ、もう着いたのか」
			PRINTFORML 「なんだか物足りないね、このまま呑みにでも行くかい？」
			PRINTFORMDW %CALLNAME:MASTER%がそれは勘弁して欲しいと言うと勇儀は『冗談だよ』と笑った
		ELSEIF TALENT:思慕
			PRINTFORML 「今日は楽しかったよ」
			PRINTFORMW 「また誘ってくれるかい？」
		ELSE
			PRINTFORML 「まあまあ楽しめたよ」
			PRINTFORMW 「偶にはこういうのも良いもんだね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「わかった。これまでの無礼は水に流そうじゃないか」
		PRINTFORMDL 一時はどうなることかと思ったが、どうやら許してもらえたようだ
		PRINTFORML 「なんだい、やけに嬉しそうだね？」
		PRINTFORML 「まあいいが……もし、次また同じようなことをしたら……」
		PRINTFORML 「その時は……言わなくても分かるだろう？」
		PRINTFORMDW 別れ際、ホッと胸を撫で下ろす%CALLNAME:MASTER%に勇儀はきつく釘を刺していった……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「…ほんと、良い根性してるね」
		PRINTFORML 「鬼を怒らせた上に、あまつさえデートに誘うだなんてさ」
		PRINTFORML 「何を企んでるのか、そろそろ教えてもらえるかい？」
		PRINTFORMDL デートの帰り道、呆れた様子で勇儀がそう切り出してきた
		PRINTFORMDL 『仲直りがしたかったから』%CALLNAME:MASTER%がそう説明すると、勇儀はきょとんと目を丸くしてしまった
		PRINTFORML 「ぷっ…あっはっはっ！」
		PRINTFORML 「ほんと…本当に面白いヤツだよ、%MASTERNAME:64%は」
		PRINTFORMDW 勇儀はそう言うと、少しだけ上機嫌に前を歩き出した……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「……はぁ、まったく」
		PRINTFORML 「行掛けに一発ぶん殴ってやろうと思ってたんだけどねぇ……」
		PRINTFORMDL 勇儀は後ろを歩きながら、何やら物騒なことを呟いている……
		PRINTFORMW 「ま、いいか……」
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K64_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF !TCVAR:64:今日会ったか
			IF TALENT:恋慕
				PRINTFORML 「%MASTERNAME:64%！ ほら、こっち来なよ！」
				PRINTFORMDL %CALLNAME:MASTER%が挨拶すると、勇儀が嬉しそうに手招きしてきた
				PRINTFORMW 「今日はどうすんだい？ 私は%MASTERNAME:64%がしたいことならなんでも付き合うよ」
			ELSEIF TALENT:思慕
				PRINTFORML 「お、%MASTERNAME:64%。そっちから会いに来てくれるとはね」
				PRINTFORMW 「そろそろ顔を出しに行こうと思ってたんだが、手間が省けて助かったよ」
			ELSE
				PRINTFORML 「おや、%MASTERNAME:64%じゃないか」
				PRINTFORMW 「私に何か用かい？」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF !TCVAR:64:今日会ったか
			IF ABL:親密 >= 3 && !TALENT:妊娠 && !TALENT:育児中 && !RAND:5
				PRINTFORML 「お、いたいた」
				PRINTFORMDL %CALLNAME:MASTER%を見つけた勇儀が酒瓶を手に近付いてきた
				PRINTFORML 「実は、良い酒が手に入ったんだが……一人で呑むのも寂しくってね」
				PRINTFORMW 「良かったら一緒に呑まないか？」
				CALL GET_ITEM("鬼殺し", 1, 1)
			ELSEIF TALENT:恋慕
				PRINTFORML 「おお！%MASTERNAME:64%！そこに居たか！」
				PRINTFORMW 「姿が見えないから心配したよ！」
			ELSEIF TALENT:思慕
				PRINTFORML 「よっ！%MASTERNAME:64%」
				PRINTFORMW 「暇だからね、遊びに来たよ」
			ELSE
				PRINTFORMW 「おう、%MASTERNAME:64%。邪魔するよ」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「おう、%MASTERNAME:64%。湯加減はどうだい？」
		PRINTFORMDL 勇儀は前を隠そうともせずにズカズカと風呂に入ってきた
		PRINTFORML 「なんだいその顔は？」
		PRINTFORMW 「お互い、もう恥ずかしがるような仲でもないだろ？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「っと、悪いね。入ってるとは思わなかった」
		PRINTFORML 「…あん？ 良かったら一緒に？」
		PRINTFORML 「眠たいこと言ってんじゃないよ」
		PRINTFORMDW 勇儀はピシャッと風呂の戸を閉めてしまった
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML 「なんだ、まだ入ってたのか？」
		PRINTFORMW 「後がつかえてるんだ、さっさと出な」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF !TCVAR:64:今日会ったか
			IF ABL:親密 >= 3 && !TALENT:妊娠 && !TALENT:育児中 && !RAND:5
				PRINTFORML 「ん～？ ああ！%MASTERNAME:64%じゃないか！」
				PRINTFORML 「悪いなあ、さっきまで呑んでてさぁ。一瞬誰か分からなかったわ」
				PRINTFORML 「そうだ、駆けつけ三杯ってわけじゃあないが、これから一緒に呑まないか？」
				PRINTFORMW 「なに、遠慮するなって！酒なら文字通り吐いて捨てるほどあるからさ！」
				BASE:酒気 += 2000
				TALENT:64:機嫌 = 1
			ELSEIF TALENT:恋慕
				PRINTFORML 「おお！%MASTERNAME:64%じゃないか！」
				PRINTFORMW 「どうしたんだいこんな所で」
			ELSEIF TALENT:思慕
				PRINTFORML 「%MASTERNAME:64%、よく来たね」
				PRINTFORMW 「茶は出せないけど、酒ならいくらでも出せるよ」
			ELSE
				PRINTFORML 「ああ、あんたか」
				PRINTFORMW 「こんなところで会うとは奇遇だね」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF !TCVAR:64:今日会ったか
			IF TALENT:恋人
				PRINTFORML 「恋人を差し置いて、随分と楽しんでいるようじゃないか」
				PRINTFORMDL %CALLNAME:MASTER%が振り返ると、勇儀が鬼の形相で佇んでいた！
				PRINTFORML 「残念ながら、今日のデートはこれでお開きだよ！」
				PRINTFORMDL いったいどういう……そう思った時にはもう遅く
				PRINTFORMDL %CALLNAME:MASTER%は勇儀の強烈なパンチを受けて宙にぶっ飛ばされてしまった
				BASE:MASTER:体力 -= 10000
				PRINTFORML 「ふぅ……今日のところはこれで勘弁しておいてやろう」
				PRINTFORML 「私も鬼じゃないんでな……いや、鬼か……まあいいや」
				PRINTFORMW 「さてと…帰って酒でも呑もうかね」
			ELSEIF TALENT:恋慕
				PRINTFORML 「あー、その、なんだ」
				PRINTFORML 「まあ、楽しんできなよ」
				PRINTFORMDW 勇儀はどことなく不満そうだ
			ELSE
				PRINTFORML 「おっ、%MASTERNAME:64%じゃないか。逢引でもしてるのかい？」
				PRINTFORML 「はっはっは！ 何もそんな顔しなくても！」
				PRINTFORML 「お二人さんの仲を邪魔するほど私も野暮じゃないさ」
				PRINTFORMDW 勇儀はそう言うと、ヒラヒラと手を振り離れていった
			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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			GOTO YUGI_OHAYO
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF !TALENT:妊娠 && !TALENT:育児中 && !RAND:5
				PRINTFORML 「おはようさん、よく眠れたかい？」
				PRINTFORML 「%MASTERNAME:64%に用があったんだけど、寝てたからね」
				PRINTFORML 「こうして呑んで待ってたってわけさ」
				PRINTFORMDL 勇儀の周りには酒瓶がいくつか転がっている
				PRINTFORMDW ……後片付けが大変そうだ
				BASE:酒気 += 500
			ELSE
				PRINTFORML 「おはよう！ ようやくお目覚めかい？」
				PRINTFORMW 「……って、まだ寝惚けてるようだね？ ほら、水だよ」
				PRINTFORMDW %CALLNAME:MASTER%は勇儀に礼を言い、水を呷る
				PRINTFORMDW ブーーーッッ！！！ 水だと思っていたそれは、なんと酒だった！
				PRINTFORML 「あっはっはっ！ バッチリ目が覚めたようだね！」
				PRINTFORMW 「人間にはちょっとばかし強い酒だ。良い気付けになったろう？」
				BASE:MASTER:酒気 += 100
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		$YUGI_OHAYO
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「ああ、起きたか」
				PRINTFORMW 「着替えは用意してあるよ。さっさと顔洗ってきな」
			CASE 1
				PRINTFORML 「ん、おはようさん」
				PRINTFORML 「そろそろ起きると思ってた。飯の用意できてるよ」
				PRINTFORMDL %CALLNAME:MASTER%がまるで奥さんみたいだと言うと、勇儀は恥ずかしそうに頬を染めた
				PRINTFORMW 「そう言われると照れるね……けど、悪い気はしないよ」
			CASE 2
				PRINTFORML 「ふふ、ようやくお目覚めかい？」
				PRINTFORMDL %CALLNAME:MASTER%が目を覚ますと、勇儀と目が合った
				PRINTFORML 「それより、さっさと離してくれないか？」
				PRINTFORML 「まあ私は良いんだが……誰かに見られたらマズいだろう？」
				PRINTFORMDL どうやら、いつの間にか勇儀を抱き枕にして寝ていたらしい
				PRINTFORMW 「まったく、鬼を抱き枕にして寝るなんて…古今東西、%MASTERNAME:64%くらいなものだよ」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「ぐぅ……すぴー……」
		PRINTFORMDL 勇儀はまだ寝ているようだ
		PRINTFORMDW %CALLNAME:MASTER%は彼女を起こさないように、そっと布団から這い出た
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		;共通
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「ふあぁ～……良く寝た」
				PRINTFORMDL 勇儀は『うーん』と背伸びをすると、顔をパチンと叩いた
				PRINTFORMW 「よし、起きるか」
			CASE 1
				PRINTFORML 「ぁぁ……%MASTERNAME:64%、起きてたのか……」
				PRINTFORML 「……私はもう少し寝かせてもらうとするよ……」
				PRINTFORMDL %CALLNAME:MASTER%は再び寝息を立て始めた勇儀の角をガシッと掴み、グワングワンと顔を揺すってみた
				PRINTFORMW 「うわ、ちょっ！ 起きる！ 起きるからやめろ！」
			CASE 2
				PRINTFORML 「ふご……ん、ぁぁ……もう朝か……？」
				PRINTFORMDL 大いびきをかいていた勇儀が目を覚ました
				PRINTFORMDL 服は大いに乱れ、%CALLNAME:MASTER%はとても目のやり場に困ってしまった……
				PRINTFORML 「ふあぁ～～……んー、ふぅ……」
				PRINTFORMW 「うっし、そろそろ起きるか」
		ENDSELECT
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「……んー……起きてるよー……」
				PRINTFORMDW 勇儀はとても眠そうだ
			CASE 1
				PRINTFORML 「…ッ、クソ…まぶたが重い……」
				PRINTFORMDW 力自慢の勇儀でもまぶたは鍛えていなかったようだ
			CASE 2
				PRINTFORML 「……ん、あぁ……なんて？」
				PRINTFORMW 「悪いね……ちょっと、眠くてさ……」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「ぐぅ……ぐぅう……」
				PRINTFORMDW 勇儀はオッサンみたいないびきをかいている
			CASE 1
				PRINTFORML 「すぅ……すぅ……」
				PRINTFORMDW 勇儀は大人しく眠っている
			CASE 2
				PRINTFORML 「……%MASTERNAME:64%……zzz」
				PRINTFORMDW 寝言で名前を呼ばれ、%CALLNAME:MASTER%はビクッとしてしまった
			CASE 3
				PRINTFORML 「もっと……さけぇ……」
				PRINTFORML 「……………ぐぅ」
				PRINTFORMDW 夢の中で宴会でもしているのだろうか……
			CASE 4
				PRINTFORML 「ふがっ………」
				PRINTFORMDL 不意に勇儀のいびきが止まった
				PRINTFORMDW ……暫くするとまたいびきをかきはじめた
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF TALENT:恋慕
			PRINTFORML 「おおっと……どこか具合でも悪いのかい？」
			PRINTFORMDL 勇儀は心配そうに%CALLNAME:MASTER%の顔を覗き込んでいる
			PRINTFORML 「ほら、私に掴まりな。部屋まで送るよ」
		ELSE
			PRINTFORML 「っと……大丈夫か？」
			PRINTFORML 「あまり無理をするもんじゃないよ」
			PRINTFORML 「ほら、私に掴まりな」
		ENDIF
		PRINTFORMDW 勇儀に肩を貸してもらいながら、%CALLNAME:MASTER%はなんとか部屋まで帰ることができた……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=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 !TCVAR:64:350
			TCVAR:64:350 = 1
			IF TALENT:恋慕
				PRINTFORML 「%MASTERNAME:64%、随分と忙しそうじゃないか」
				PRINTFORML 「何か私に手伝えることはあるかい？」
				PRINTFORMW 「…大丈夫？ ならいいけどさ」
			ELSEIF TALENT:思慕
				PRINTFORML 「おーい、%MASTERNAME:64%。どこ行くんだい？」
				PRINTFORML 「暇なら一緒に……あん？今忙しい？」
				PRINTFORMW 「ならしょうがないね、また今度一緒に呑もう」
			ELSE
				PRINTFORML 「おう」
				PRINTFORMDW 勇儀は軽く手を上げて%CALLNAME:MASTER%を見送った
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMDL 勇儀はこちらに気付いていないようだ
		PRINTFORMDW わざわざ挨拶するのも面倒なので、%CALLNAME:MASTER%は無視して通り過ぎた……
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;念のため
	IF !CFLAG:うふふ
		;-------------------------------------------------
		;小分岐
		;-------------------------------------------------
		;霊夢が入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 1
			PRINTFORML 「ああ、霊夢殿か」
			PRINTFORMW 「私達に何か用か？」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;萃香が入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 10
			PRINTFORML 「なんだ、萃香じゃないか」
			PRINTFORMW 「相変わらずフラフラしているみたいだね」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;魔理沙が入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 11
			PRINTFORML 「おや、魔理沙殿か」
			PRINTFORMW 「今は少しばかり忙しくてね、相手はできないよ」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;天狗勢が入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && (ARG == 29 || ARG == 42 || ARG == 64)
			PRINTFORML 「おやおや、誰かと思えば……」
			PRINTFORML 「まさか天狗の方から近付いてくるなんてな」
			PRINTFORMW 「我々鬼に出会うのを避けていると思ったが……」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;華扇が入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 43
			PRINTFORML 「おお、華扇か。こんな所で会うとは」
			PRINTFORML 「偶には古い仲間と集まって酒盛りでもしたいねぇ」
			PRINTFORMW 「ま、来ないだろうけどさ」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;さとりが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 49
			PRINTFORML 「んお？ こんな所で会うとは珍しい」
			PRINTFORML 「って、なんだいその顔は？」
			PRINTFORMW 「私がこいつと居ちゃマズいってのかい？」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;にとりが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 51
			PRINTFORML 「ん？ ああ、河童じゃないか」
			PRINTFORMW 「そんなにビクビクしなくても、別に山を取り返そうとか思ってないよ」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;パルスィ・キスメ・ヤマメが入ってきた
		;パルスィが嫉妬オーラをぶつけてきても全く気にしなさそう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && (ARG == 60 || ARG == 83 || ARG == 84)
			PRINTFORML 「おー、お前か」
			PRINTFORML 「悪いけど、今は忙しくてね」
			PRINTFORMW 「埋め合わせはまた今度させてもらうよ」
			RETURN 1
		ENDIF
		;その他（キャラ指定なし
		PRINTFORML 「誰か来たみたいだね」
		PRINTFORMW 「まあ、気にすることはないさ」
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		$YUGI_NOZOKI
		IF TALENT:恋人
			PRINTFORMW 「二人とも、随分と気持ち良さそうじゃないか」
			PRINTFORMDW ビクッとして%CALLNAME:MASTER%が振り返ると、勇儀が腕を組んで立っていた
			PRINTFORML 「私はなんだか胸がムカムカするよ」
			PRINTFORMW 「どうしてだろうね？」
			PRINTFORMDL 勇儀の鋭い眼光が%CALLNAME:MASTER%を射貫く
			PRINTFORMDW 勃起していた一物は、既にしぼんでしまっていた
			PRINTFORMW 「……はぁ」
			PRINTFORML 「まあいいさ、たっぷり楽しみなよ」
			PRINTFORMDW 勇儀はそう言うと、背を向けて去っていった
		ELSEIF TALENT:恋慕
			PRINTFORML 「あんあん聞こえるからまさかと思ったが……」
			PRINTFORML 「お盛んなのは結構だけど、時と場所は選びなよ？」
			PRINTFORML 「私みたいなのに見つかるかもしれないからさ！」
			PRINTFORMDW 勇儀は言うだけ言って、『邪魔したね』と立ち去っていった
		ELSE
			PRINTFORML 「あー、その、悪かったね」
			PRINTFORML 「覗くつもりはなかったんだけどさ」
			PRINTFORMDW 勇儀は頭をポリポリと掻きながら、なんとも気まずそうに立ち去った
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:恋人
			PRINTFORML 「姿が見えないと思ったら、こんなところで……」
			PRINTFORML 「%MASTERNAME:64%は私のモノなんだ。返してもらうよ！」
			PRINTFORMDW 勇儀が%CALLNAME:MASTER%を取り戻そうと割り込んできた！
		ELSE
			PRINTFORML 「なんだ、随分と面白そうなことをやってるじゃないか」
			PRINTFORMW 「私も混ぜなよ！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		GOTO YUGI_NOZOKI
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		$YUGI_MIRARETA
		IF TALENT:恋人
			PRINTFORML 「どうしたんだい？ そんなに慌てて」
			PRINTFORML 「私達は見られても気にしないよ。なぁ？」
			PRINTFORMDW 同意を求められ、%CALLNAME:MASTER%は返答に窮してしまった
		ELSEIF TALENT:恋慕
			PRINTFORML 「覗きとは趣味が悪いじゃないか」
			PRINTFORML 「それとも、混ざりたくて来たのかい？」
			PRINTFORMDL 勇儀がちょいちょいと手招きすると、目撃者はそそくさと立ち去った
			PRINTFORMW 「なんだ、つれないねぇ」
		ELSE
			PRINTFORML 「あー……悪い事したかもねぇ」
			PRINTFORMW 「ま、終わったことは仕様が無いさ。さ、続きをしようか！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:恋人
			PRINTFORML 「…%MASTERNAME:64%は渡さない？ ハッ、言うじゃないか」
			PRINTFORML 「私だって渡す気はないよ」
			PRINTFORMDL 勇儀は闘志を剥き出しにして%CALLNAME:MASTER%の所有権を主張している
			PRINTFORMDW ……これは忙しくなりそうだ
		ELSEIF TALENT:恋慕
			PRINTFORML 「ふふ、これは面白くなりそうだ」
			PRINTFORMW 「%MASTERNAME:64%も覚悟を決めることだね」
		ELSE
			PRINTFORML 「お、いいねぇ」
			PRINTFORMW 「私は大歓迎だよ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		GOTO YUGI_MIRARETA
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORMW 「これ、あんたのかい？」
		PRINTFORMDL %CALLNAME:MASTER%は所持していた下着を奪われてしまった
		PRINTFORMDW なんとかこの場を逃れようと『誤解だ』と弁明すると、勇儀にジロリと睨まれた
		PRINTFORMW 「ゴカイだイソメだ、そんなことは聞いてない」
		PRINTFORMW 「これは、あんたのか？」
		PRINTFORMDW ……………
		PRINTFORMW 「……ま、いいさ」
		PRINTFORMW 「安心しな、どこぞの閻魔様みたいに説教する気はないよ」
		PRINTFORMW 「これは私が持ち主に返しておく。文句ないね？」
		PRINTFORMDW 有無を言わせぬ気迫に、%CALLNAME:MASTER%はただ頷くしかなかった……
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML 「おや、抵抗しないんだね」
			PRINTFORMW 「それならそれでいいさ、好きにやらせてもらうよ」
			PRINTFORMDL 勇儀が%CALLNAME:MASTER%の服を脱がしていく
			PRINTFORMDW その手つきは乱暴で、すぐにでも%CALLNAME:MASTER%とセックスをしたくて堪らないといった様子だ
			PRINTFORML 「ふふ、こんなに大きくして……」
			PRINTFORMW 「こうなること、期待してたのかい？」
			PRINTFORMDL 先程とは打って変わって、繊細な手つきで勇儀が男根を撫で上げる
			PRINTFORMDW ビクンと跳ねた男根から先走りが溢れ出る、それが返事の代わりとなった
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「急だなって？ いいじゃないか、別に」
			PRINTFORMW 「私がこうしたい気分なんだ」
			PRINTFORMDL 勇儀が%CALLNAME:MASTER%の頭をくしゃくしゃと撫で回す
			PRINTFORMDW 酔った勇儀の猫かわいがりに、%CALLNAME:MASTER%は小さく溜息を吐いた……
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML 「そんなに嫌だったのかい？」
			PRINTFORML 「ま、いいけどさ」
			PRINTFORMDW 勇儀は意外にもあっさりと%CALLNAME:MASTER%を解放した
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「ま、これくらいで勘弁してやるか」
			PRINTFORML 「これ以上は私も歯止めが利くか分からないからねぇ」
			PRINTFORMDW 勇儀にもみくちゃにされ乱れた髪と衣服を、%CALLNAME:MASTER%は溜息を吐きながら整えた……
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML 「うーん、私はまだ満足してないんだけどねぇ……」
			PRINTFORMW 「まあ、仕方ないか」
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;好きにして状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「おいおい、好きにしろって言ったのはそっちだろう？」
			PRINTFORML 「一度言ったことなんだ、男なら覚悟決めな」
			PRINTFORMDL 勇儀は%CALLNAME:MASTER%から精を搾り取るつもりらしい
			PRINTFORMDW ……生きて帰れるだろうか
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML 「おっと、私はまだ満足してないよ」
			PRINTFORML 「おら！ 大人しくヤられな！」
			PRINTFORMDW ギラついた目の勇儀に本気で組み伏せられ、%CALLNAME:MASTER%は抜け出すのを諦めた
			RETURN 1
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「はッ！」
		PRINTFORMDL パコーンッ！風呂桶が%CALLNAME:MASTER%の頭に直撃！
		PRINTFORML 「……ん？ なんだ、%MASTERNAME:64%だったのか」
		PRINTFORML 「覗くのは良いが、ほどほどにしておきなよ？」
		PRINTFORMDL 勇儀は堂々と前を晒しながら笑っている
		PRINTFORMDW %CALLNAME:MASTER%はそれをしっかりと目に焼き付けてから、逃げるように退散した……
		BASE:MASTER:体力 -= 100
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「お、%MASTERNAME:64%。一風呂浴びにきたのかい？」
		IF TALENT:恋人
			PRINTFORML 「言ってくれれば一緒に入ったのに、水臭いじゃないか」
			PRINTFORMW 「恋人同士なんだ、背中を流すくらいならお安い御用だよ」
		ELSEIF TALENT:恋慕
			PRINTFORMDL 勇儀はそう言うと、%CALLNAME:MASTER%の為にスペースを空けた
			PRINTFORML 「そうだ、背中でも流してやろうか？」
			PRINTFORMW 「いいって？ ふふ、遠慮するなって！」
		ELSE
			PRINTFORMDL %CALLNAME:MASTER%が入って来たにも関わらず、勇儀は堂々としている
			PRINTFORMDL その豊満なバストはお湯に浮き、プカプカと揺蕩っている……
			PRINTFORMW 「…？ ほら、いつまでも突っ立ってないでさっさと入りなよ」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K64_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_K64_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			PRINTFORML 「さて、そろそろ行こうかねぇ」
			PRINTFORML 「そうだ、これから呑みに行くんだが%MASTERNAME:64%も来るかい？」
			PRINTFORML 「酒盛りをするなら、人数は多ければ多いほど良いからね」
			PRINTFORML 「ま、気が向いたらでいいさ。場所は博麗神社の縁側だよ」
		ELSE
			PRINTFORML 「おっと、そろそろ行かないとな」
			PRINTFORML 「これから呑みに行くんだ。よかったらあんたも来なよ」
			PRINTFORML 「場所は博麗神社の縁側だからね」
		ENDIF
		PRINTFORMDW 勇儀はいつの間にか用意していた酒樽を背負うと、足取り軽やかに神社へと向かっていった
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF !RAND:3
			SELECTCASE RAND:10
				CASE 0
					PRINTFORML 「なんだか私ばかり呑んでる気がするねぇ……」
					PRINTFORML 「せっかくなんだ、じゃんじゃん呑みなよ」
					PRINTFORMDW %CALLNAME:MASTER%は勇儀に半ば無理矢理飲まされてしまった
					BASE:MASTER:酒気 += 200
				CASE 1
					PRINTFORML 「ん、まだまだいけそうだ」
					PRINTFORML 「そこの瓶取ってもらえるかい？」
					PRINTFORMDL 勇儀の酒呑みは止まる所を知らない
					PRINTFORMDW 普通の人間なら倒れてしまうほど量を呑んでも、彼女は平然としていた
				CASE 2
					PRINTFORMDL 勇儀は鬼殺しを一気に飲み干すと、胸やけを堪えるようにバンバンと膝を叩いた
					PRINTFORMW 「くぅ～……これだけ強いと、さすがにキツいな……」
				CASE 3
					PRINTFORML 「んぐっ、んぐっ……」
					PRINTFORML 「ぷはぁ～ッッ！！！」
					PRINTFORMDL 勇儀はまるで水でも飲むかのように酒を流し込んでいる……
					PRINTFORMDW その呑みっぷりに当てられたのか、%CALLNAME:MASTER%も少し酔ってしまった
					BASE:MASTER:酒気 += 50
				CASE 4
					PRINTFORML 「これは……カラか」
					PRINTFORML 「じゃあこれは……クソ、これもか」
					PRINTFORMDW 酒瓶が乱雑に散らかっているせいで勇儀は中身入りのを探すのに難儀している
				CASE 5
					PRINTFORML 「ほら、ボーッとしてないであんたも呑みなよ！」
					PRINTFORMDL 勇儀がなみなみと酒の注がれた盃を差し出してくる
					PRINTFORMDL %CALLNAME:MASTER%は断ることもできず、それを一気に飲み干した
					PRINTFORMW 「はっはっは！ 良い呑みっぷりだ！」
					BASE:MASTER:酒気 += 200
				CASE 6
					PRINTFORML 「お、こりゃ中々イけるじゃないか」
					PRINTFORML 「えーっと……これなんて読むんだ……？」
					PRINTFORMDW 勇儀は洋酒の瓶と睨めっこしている
				CASE 7
					PRINTFORML 「ゆっくりと味わうのも良いが……」
					PRINTFORMDW 勇儀は盃に一升瓶の中身を全て注ぐと、一気に飲み干した
				CASE 8
					PRINTFORML 「旨い酒のお供には、やっぱりこれがないとね」
					PRINTFORMDW 勇儀はうんうんと唸りながらつまみを味わっている
				CASE 9
					PRINTFORML 「ん？ なんだいこれ、メチルアルコール？」
					PRINTFORML 「んくっ……んんッッ！？」
					PRINTFORMW 「カァ～～～ッッ！！！ こいつぁ効くなあ！」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋慕
			PRINTFORML 「ふぃ～……ちょっとばかし呑みすぎたか……？」
			PRINTFORMDL 顔を赤くした勇儀がしなだれかかってきた
			PRINTFORML 「酒臭いって？ はは、そりゃあ今し方酒を呑んでたからねぇ」
			PRINTFORMW 「暫くこうしていれば、酔いも覚めるさ……」
		ELSE
			PRINTFORML 「ぷはぁ～！ 呑んだ呑んだ！」
			PRINTFORMDL 縁側は幾つもの酒瓶や樽で足の踏み場もない程散らかっている
			PRINTFORMDL %CALLNAME:MASTER%とりあえずそれらを一か所に集め片付けた
			PRINTFORML 「お、片付けてくれるとは気が利くじゃないか」
			PRINTFORMW 「あんたみたいなのが居ると、酒呑みとしちゃ助かるよ」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML 「おっ！ 旨そうなもん持ってるじゃないか」
		PRINTFORMDL %CALLNAME:MASTER%が目を離した隙に、勇儀が料理をつまみ食いしていた
		PRINTFORML 「食べちゃダメだって？ こんなにあるんだ、固いこと言うなよ」
		PRINTFORML 「んぐっ、こりゃあ旨い！ もう一口だけ……」
		PRINTFORMDL つまみでも食べるかのようにひょいひょいと口に運ばれていく料理
		PRINTFORMW
		PRINTFORML 「はぁ～……食った食った……」
		PRINTFORMDL 最後の一口を飲み込んだ勇儀が満足そうに腹を擦る
		PRINTFORMDW せっかく用意した料理は、全て鬼の胃袋へと消えてしまった……
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_EVENT_K64_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 CFLAG:睡眠
			;PRINTFORML
			;RETURN 1
		;危険日＆危険日生Ｈ解禁済＆非妊娠＆ピル未使用＆膣内精液１以上
		ELSEIF CFLAG:900 == 7 && CFLAG:生解禁 >= 2 && !TALENT:妊娠 && !TCVAR:ピル && 充填率(TARGET,1) > 0
			PRINTFORML 「%MASTERNAME:64%の子種、しかと受け取ったよ」
			PRINTFORML 「後は待つだけ……っていっても、ほんとに孕んだのかねえ」
			PRINTFORMDL さすがに、この短時間で結果を出せと言われても無理だろう
			PRINTFORML 「ま、気長に待つとするか。これでデキなきゃ、またヤればいい」
			IF TALENT:恋慕
				PRINTFORML 「……だろ？」
				PRINTFORMDW 勇儀は淫靡な表情を浮かべながら、%CALLNAME:MASTER%の一物を衣服越しに撫でた……
			ELSE
				PRINTFORML 「ははッ、これじゃあ私が妊娠を望んでるみたいじゃないか」
				PRINTFORMDW 行為の熱も冷め、勇儀はすっかりいつもの調子に戻っていた
			ENDIF
		;妊娠中
		ELSEIF TALENT:妊娠
			IF TALENT:恋慕
				PRINTFORMDL 事後、%CALLNAME:MASTER%は勇儀を後ろから抱き締めながら我が子の宿るお腹を撫でた
				PRINTFORML 「ふふ、今日は一段と優しかったじゃないか」
				PRINTFORML 「私達の子なんだ、そんな心配しなくても大丈夫だよ」
				PRINTFORMDW 勇儀はそう言い、お腹を撫でる%CALLNAME:MASTER%の手に自らの手を重ねた……
			ELSE
				PRINTFORML 「ふぅ……肩、借りるよ」
				PRINTFORMDL 勇儀が%CALLNAME:MASTER%にもたれ掛かり、肩に頭を乗せる
				PRINTFORMDW そのまま、二人は暫し無言で行為の余韻に浸った……
			ENDIF
		;通常
		ELSE
			IF TALENT:恋慕
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「はぁ…こういう事に関してだけは%MASTERNAME:64%に敵う気がしないよ」
						PRINTFORML 「それを良しとしてる私も私だけどねぇ……」
						PRINTFORMDL 勇儀は乱れた髪を整えながらセックスの余韻に浸っている
						PRINTFORMDW %CALLNAME:MASTER%は髪を撫でてやると、勇儀はうっとりと目を閉じた……
					CASE 1
						PRINTFORMW 「気持ち良かったかい？」
						PRINTFORMW
						PRINTFORMW 「……なら、よかった」
						PRINTFORMDW %CALLNAME:MASTER%の言葉に、勇儀は満足そうに微笑んだ
					CASE 2
						PRINTFORML 「どうしてかねぇ……」
						PRINTFORML 「%MASTERNAME:64%に抱かれると、我を忘れちまうというか……」
						PRINTFORMDW 先程までの情事を思い出しているのか、勇儀はポリポリと頬を掻きながら顔を赤く染めている
						PRINTFORML 「え、可愛かった……って、お前……」
						PRINTFORML 「……ほんと、人間ってやつは卑怯者ばかりだ」
						PRINTFORMDW プイッと顔を背ける勇儀の口元は、嬉しそうに緩んでいた
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「まさか私があんなに乱れるとはね」
						PRINTFORMDW 勇儀は%CALLNAME:MASTER%の隣にドカッと腰を下ろすと、火照った体を冷ますように深く息を吐いた
						PRINTFORML 「ふぅ……ま、偶にはこういうのも悪くないか」
						PRINTFORML 「気が向いたらまた相手してやってもいいよ」
						PRINTFORMDW そう言う勇儀の声色は、どこか期待の色を帯びていた……
					CASE 1
						PRINTFORML 「……なんか照れるね」
						PRINTFORML 「酔った勢いでーってのはままあるけどさ」
						PRINTFORMW 「こう、素面でヤるなんてのはあんたとくらいだから……」
						PRINTFORMW 「……………」
						PRINTFORMW 「あー、今のは聞かなかったことにしてくれ」
						PRINTFORMDW 勇儀は照れくさそうに頭を掻くと、%CALLNAME:MASTER%から顔を背けてしまった
					CASE 2
						PRINTFORML 「あー、その、なんだ」
						PRINTFORML 「コトが終わった事だし、酒でも呑むか？」
						PRINTFORMDL 情事が終わった後の独特の雰囲気に、勇儀は気まずさを感じているようだ
						PRINTFORML 「おい、何を笑ってるんだよ」
						PRINTFORML 「慣れてないんだ、こういうのは」
						PRINTFORMDW 珍しくいじけている勇儀に、%CALLNAME:MASTER%は笑いを堪えながらごめんごめんと謝った
				ENDSELECT
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後のムード
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K64_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_K64_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
		PRINTFORML 「んんっ……？」
		PRINTFORMDL 突如体を走った謎の快感に、勇儀は少しだけ眉をひそめた
		PRINTFORML 「いったいなにが……うわっ」
		PRINTFORMDL そして、いつの間にか自分が股を濡らしていることに気付いた
		PRINTFORML 「いつの間に……」
		PRINTFORML 「漏らし……たわけじゃないみたいだけど」
		PRINTFORMW 「……はぁ、一風呂浴びないとね」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		CALL HPH_PRINT,@"「く、ぁあッ！？HPH」","L"
		PRINTFORMDL 突如体を襲った強烈な快感に、勇儀はおもわずへたり込んでしまう
		CALL HPH_PRINT,@"「ぁ、はぁ…ッHPH ん、ぅふぅ…ッHPH」","L"
		PRINTFORMDL 勇儀は頤を突き出し、荒く、熱っぽい息を吐きながら、哀れな女のように身を震わせている
		PRINTFORMDL 汗で張り付いた服が勃起した乳首を浮き上がらせ、足元では愛液が水溜りのように広がっていた
		CALL HPH_PRINT,@"「ぁ……はぁあ……ッHPH」","L"
		CALL HPH_PRINT,@"「クソ……なんなんだ、一体……ッHPH」","W"
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「あん……？」
		PRINTFORMDL 勇儀は自分が下着を穿いていないことに気付いた
		PRINTFORML 「っかしいね…確かに穿いてきた筈なんだが……」
		PRINTFORMW 「……ま、いいか」
		TCVAR:64:357 = 1
		RETURN 1
	ENDIF
	;------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			PRINTFORML 「んぐっ？」
			PRINTFORML （なんだこりゃ、痰か？ 風邪なんて引いてないってのに）
			PRINTFORMDL 勇儀は口内で舌を動かし、粘性のあるザーメンを弄ぶ
			PRINTFORMDW どうしようか考えた後、それをゴクンと飲み込んだ
		;精液中毒低吐き出し＆濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 2 || ARG:1 == 5
			PRINTFORML 「ぅ、ゲホッゲホッ！……ペッ、風邪でも引いたかねぇ」
			PRINTFORMDL 勇儀が口内に現れたザーメンを無造作に吐き捨てた
			PRINTFORML 「汚いだって？ いいじゃないか別に」
			;メジャーリーガーが噛みタバコを吐き捨てるみたいな
			PRINTFORMW 「最近は掃除好きなやつがいるらしいからね、そいつに仕事を作ってやってるのさ」
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			PRINTFORML 「ゲホッ！ゲホッ！」
			PRINTFORMDL 突如口内に現れた生臭い物体に、勇儀は思わず口を手で覆った
			PRINTFORMDL 咳をした弾みに飛び出した精液が指の隙間から溢れている
			PRINTFORML 「ッ……ああもう、手が汚れちまったよ」
			PRINTFORML 「風邪でも引いたか…？ いや、鬼が病気になんてなるか」
			PRINTFORML 「それにしてもこの臭い、どっかで覚えがあるような……」
			PRINTFORMDW 勇儀は手の平に付着したザーメンをじっと見つめている
		;精液中毒高精飲＆濃厚精液精液中毒高精飲
		ELSEIF ARG:1 == 4 || ARG:1 == 6
			PRINTFORML （この生臭さ、ネバネバとした感触）
			PRINTFORML （さすがの私でも分かる、こいつは……）
			PRINTFORML 「……ゴクッ」
			PRINTFORMDL 勇儀は口内に注がれた精液を、躊躇なく飲み込んだ
			PRINTFORML 「ん、ふぅ……」
			PRINTFORMDL 止めていた息を吐き出すと、鼻腔を濃厚な精液の香りが通り抜ける
			PRINTFORMDW 雌の本能を刺激するその精臭に、勇儀の秘所からジワリと愛液が滲み出した
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			PRINTFORML 「あ……？」
			PRINTFORMDL 顔を伝う『ナニカ』に気付いた勇儀がそれを拭う
			PRINTFORMDL 拭った手には、べったりと精液が付着していた
			PRINTFORML 「クソッ、いつの間に……」
			PRINTFORMW 「いたずらにしちゃあ笑えないよ」
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			PRINTFORML 「うおっ、いつの間に」
			PRINTFORMDL いつの間にか顔に付着していた精液に勇儀は驚いている
			PRINTFORML 「誰か知らないけど、私に対してこんな無体を働くなんてね」
			PRINTFORML 「面白いヤツだ、一度顔を拝んでみたいよ」
			PRINTFORMDW 勇儀は顔を伝う精液を指で拭うと、躊躇なく口に含んだ
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			;書いてから思ったけど温泉街の元締めなら金に不自由とかしてなさそう
			PRINTFORML 「握らすにしても、せめて金目の物にして欲しいもんだ」
			PRINTFORML 「そうすりゃ、吞み代の足しにでもなるってのに」
			PRINTFORMDL 勇儀が手の平に付いた精液を払うように腕を振る
			PRINTFORMDW まるで首を撥ねるようなその所作に、%CALLNAME:MASTER%は少し背筋が寒くなった
		;舐めとり
		ELSEIF ARG:1 == 2
			PRINTFORML 「あー…ったく、派手に引っかけてくれたねぇ」
			PRINTFORML 「……ま、有難く頂いておくよ」
			PRINTFORMDL 勇儀はどこか恍惚とした表情で、ゆっくりと手の平に顔を近付ける
			PRINTFORML 「ぺちゃ……ちゅ……ちゅる……ん……っ」
			PRINTFORMDW そして舌でザーメンを掬い上げ、じっくりと口内で味わった……
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
			PRINTFORML 「う゛ッ！？」
			PRINTFORMDL 時止めを解除した事で、たっぷりと注がれたザーメンが勇儀の肛門から漏れ出す
			PRINTFORMDL 急いで肛門を締めるも、すでに漏れ出した分が勇儀の足をつーっと伝っていった
			PRINTFORML 「ぉ、っく……急に、腹の調子が……ッ」
			PRINTFORML 「ぐッ！ どこかに、厠は……ッ！」
			PRINTFORMDL 勇儀は、まるで一寸法師を丸呑みした鬼のように苦しんでいる
			PRINTFORMDW もっとも、腹の中を刺しているのは針ではなく精子だが……
		;ソレ以外
		ELSEIF ARG:1 == 2
			PRINTFORML 「ぐッ……腹が……ッ」
			PRINTFORMDL 多量の精子が泳ぎ回る精液が勇儀の腸内で存在を主張する
			PRINTFORMDL 腹は排泄の許可を求めるようにギュルルッと鳴り、どんどん勇儀を追い詰めていく……
			PRINTFORML 「……ッはは、こりゃあ参ったね」
			PRINTFORML 「力の勇儀ともあろう者が、便意一つ抑え付けられないなんて、さ……ッ」
			PRINTFORMDL それでも、勇儀は醜態を晒してなるものかと必死で耐える
			PRINTFORMDW その様を、%CALLNAME:MASTER%は内心ほくそ笑みながらしっかりと目に焼き付けた
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精
		IF ARG:1 == 1 || ARG:1 == 2
			PRINTFORML 「ッ…なんだい、こりゃあ……」
			PRINTFORMDL 注がれたばかりの精液が勇儀の秘所から溢れ出てくる
			PRINTFORMDL 散々使われた性器は未だ男根を咥えていたことが忘れられないようで、口をパクパクと開閉させている
			PRINTFORML 「随分と私の体で楽しんでくれたみたいじゃないか……」
			PRINTFORML 「誰がやったにせよ、相応のお礼をしてやらないとね」
			PRINTFORMDW バチンと手の平に拳を打ち付ける勇儀は、まさに鬼の形相をしていた
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K64_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			PRINTFORML 「その……万が一ってこともあるしさ」
			PRINTFORML 「……分かるだろう？」
			PRINTFORMDW 勇儀は恥ずかしそうに顔を背けながら避妊を要求してきた
		ELSE
			PRINTFORML 「待て待て」
			PRINTFORML 「ヤるのはいいが、最低限の礼儀ってもんがあるだろう？」
			PRINTFORMDW 勇儀は言外に避妊を要求している
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕
			PRINTFORML 「いや、ほら、デキたら困るだろ？」
			PRINTFORML 「%MASTERNAME:64%の事が嫌いってわけじゃあないが……まだ自信がなくてね」
			PRINTFORMW 「どうしてもってなら、安全日に……」
		ELSE
			PRINTFORML 「ならダメだ。諦めな」
			PRINTFORMW 「礼儀すら守れない奴の子を孕む気はないよ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋慕
			PRINTFORML 「……馬鹿だね、%MASTERNAME:64%は」
			PRINTFORML 「我が身可愛さに言ってるわけじゃあないんだ」
			PRINTFORML 「少しは生まれてくる子のことを考えたらどうだい？」
			PRINTFORMDW 真剣な表情の勇儀に気圧され、%CALLNAME:MASTER%は渋々身を引いた
		ELSE
			PRINTFORML 「どうしてもってなら……」
			PRINTFORML 「力で言う事を聞かせてみな！」
			PRINTFORMDW ブチギレた勇儀の張り手が%CALLNAME:MASTER%の顔面にクリーンヒットした
			BASE:MASTER:体力 -= 2000
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF TALENT:恋慕
			PRINTFORML 「ぁ、ぐ……」
			PRINTFORML 「わ、分かった分かった。そんな目で見るなって」
			PRINTFORMW 「……ま、今日なら大丈夫だろ」
		ELSE
			PRINTFORML 「そんなに生でシたかったのかい？」
			PRINTFORML （……まあ、鬼と人間ならそうそうデキないか……）
			PRINTFORMW 「そこまで言うのなら……いいよ、来な」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:恋慕
			PRINTFORML 「そ、そんなに私と子作りしたいってのかい？」
			PRINTFORML 「……本気なんだね」
			PRINTFORMW 「それなら……私も腹ぁ括らないとねぇ……」
		ELSE
			PRINTFORML 「はぁ……まさかここまで粘るとはね」
			PRINTFORML 「……私の負けだよ、%MASTERNAME:64%の好きにしな」
			PRINTFORMW 「ただし、子供がデキたら責任取ってもらうからね？」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K64_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「またこうして地上で暮らすことになるなんてねぇ……」
		PRINTFORMW 「一度は見切りを付けて地底に潜った手前、少し恥ずかしいよ」
		PRINTFORMDL 勇儀の言うように、鬼は一度地上を捨てた
		PRINTFORMDL それでもこうして戻って来たのは、どういう心境の変化か
		PRINTFORMDW そこに、%CALLNAME:MASTER%という存在が影響を与えているのは間違いなかった
		PRINTFORML 「さて、こうして一緒に暮らすことになったんだ」
		PRINTFORMW 「その記念に、今夜は二人で呑み明かそうか！」
		PRINTFORMDL 勇儀が%CALLNAME:MASTER%の肩をグッと抱き寄せる
		PRINTFORMDW その表情は、どこまでも明るかった
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「一緒に暮らせば、毎晩酒盛りできると思ったんだけどねぇ……」
		PRINTFORML 「まっ、%MASTERNAME:64%がそう言うなら仕方がない」
		PRINTFORML 「鬼は大人しく地底へ帰ることにするさ」
		PRINTFORMDW 勇儀は気にしていない風を装っているが、少しだけ寂しそうだ
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K64_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			PRINTFORML 「っと、いい加減帰らないとマズいか」
			PRINTFORML 「今度旨い酒を持ってくるよ。忘れてなかったらね」
			PRINTFORMDW 勇儀は%CALLNAME:MASTER%の姿が見えなくなるまで何度も振り返りながら帰っていった
		ELSEIF TALENT:思慕
			PRINTFORML 「ああ、もうこんな時間か」
			PRINTFORML 「また来るよ、%MASTERNAME:64%」
			PRINTFORMDW 勇儀は少しだけ名残惜しそうにしながら帰っていった
		ELSE
			PRINTFORML 「さて、そろそろ帰ろうかね」
			PRINTFORMW 「じゃあまたな、%MASTERNAME:64%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;デート中体力切れを想定
		IF BASE:体力 <= 500
			IF TALENT:恋慕
				PRINTFORML 「はぁ……少しはしゃぎすぎたかねぇ……」
				PRINTFORMDL 勇儀は疲れ切った様子でその場に座り込んでしまった
				PRINTFORMDL 『家まで送ろう』すぐには動けそうにない勇儀を、%CALLNAME:MASTER%は背中におぶった
				PRINTFORML 「はは、こりゃ楽ちんだ」
				PRINTFORML 「……悪いね、心配かけて」
				PRINTFORMDW 『気にしなくていい』そう言うと、勇儀は小さく『うん』とだけ言った……
			ELSE
				PRINTFORML 「っと……」
				PRINTFORMDL 勇儀がふらついたので、%CALLNAME:MASTER%は彼女の体を支えてあげた
				PRINTFORML 「私も焼きが回ったかねぇ……これくらいで体が音を上げるなんて」
				PRINTFORMDL %CALLNAME:MASTER%が体調を心配すると、勇儀が二ッと笑った
				PRINTFORML 「ふふ、忌み嫌われた筈の鬼がまさか人間に心配されるなんてね」
				PRINTFORML 「……礼を言うよ、%MASTERNAME:64%」
				PRINTFORMDW デートは途中でお開きとなってしまったが、勇儀にとっては満足できるものだったようだ……
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORML 「ふあぁ～……なんだか眠くなってきたねぇ」
				PRINTFORML 「ああいや、決してデートがつまらないわけじゃあないんだが……」
				PRINTFORML 「いつもこれくらいの時間に寝てるから、どうしても眠気が…ね」
				PRINTFORMDW %CALLNAME:MASTER%が『お開きにしようか』と提案すると、勇儀は少し悩んだ末それに同意した
			ELSE
				PRINTFORML 「そろそろお開きにしようか」
				PRINTFORMW 「悪いね、また誘っておくれよ」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K64_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMDW ある日の夜
		PRINTFORMDW 勇儀は物思いに耽りながら、チビチビと嘗めるように酒を飲んでいた
		PRINTFORMW 「……%MASTERNAME:64%……」
		PRINTFORMDW ポツリ、と呟かれた人間の名
		PRINTFORMDW それが強い酒のように、ジワリと胸に沁み込んでくる
		PRINTFORMW 「………」
		PRINTFORMW 「いっそ攫ってしまおうか」
		PRINTFORMW 「……なんて、それができたら苦労しないんだけどねぇ……」
		PRINTFORMW 「私も丸くなったもんだ」
		PRINTFORMW 「……………」
		PRINTFORMW 「―――恋、か」
		PRINTFORMW 「私にはちょっと強すぎるかもね」
		PRINTFORMDW 勇儀は自嘲気味に笑うと、盃に残った酒を一気に呷った
		PRINTFORML
		CALL COLORMESSAGE(@"勇儀との関係が[恋慕]になりました 呼び名を変更しますか？",C_YELLOW,1,1)
		CALL ASK_M("はい",1 , "いいえ",1)
		SELECTCASE RESULT
			CASE 0
				CALL NAME_SET_K100
				RETURN 1
			CASE 1
				PRINTFORMW 変更しませんでした
				RETURN 1
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMDW ある日、勇儀は仲間たちと共にいつも通り酒を呑んでいた
		PRINTFORMW 「でさぁ―――」
		PRINTFORMDW 『姐さん』
		PRINTFORMW 「あん？」
		PRINTFORMDW 『さっきから、その人間の話ばかりだぜ』
		PRINTFORMDW 『耳にタコができちまったよなぁ？』
		PRINTFORMDW ワハハハハ！！！
		PRINTFORMW 「いや、面白いだろ？」
		PRINTFORMW 「ああいう人間はいつの時代も中々お目にかかれるもんじゃない」
		PRINTFORMDW 『いや、それだけじゃなくて』
		PRINTFORMDW 『そいつの話をしてるとき……その、なんつーか……』
		PRINTFORMW 「鬼の癖にモゴモゴするな。みっともないったらありゃしない」
		PRINTFORMW 「言いたいことがあるならハッキリ言いな」
		PRINTFORMDW 『姐さん、女の顔をしてるっつーか』
		PRINTFORMDW 『メスの顔ってやつ？』
		PRINTFORMDW 『そうそうそれだよ！』
		PRINTFORMDW ワハハハハ！！！
		PRINTFORMW 「……女の顔？私が？」
		PRINTFORMW 「冗談はよしとくれよ」
		PRINTFORMDW そんなもの、私から一番縁遠いものじゃないか
		PRINTFORMDW ……本当にそうなのだろうか
		PRINTFORMDW 酒の回った頭じゃあ、よく分からない
		PRINTFORMDW こういうときは―――
		PRINTFORMW 「おい！もっと酒持ってこい！一番キッツいやつ！」
		PRINTFORMDW この手に限る
		PRINTFORML
		CALL COLORMESSAGE(@"勇儀との関係が[思慕]になりました 呼び名を変更しますか？",C_YELLOW,1,1)
		CALL ASK_M("はい",1 , "いいえ",1)
		SELECTCASE RESULT
			CASE 0
				CALL NAME_SET_K100
				RETURN 1
			CASE 1
				PRINTFORMW 変更しませんでした
				RETURN 1
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		CALL HPH_PRINT,@"「……ん……ふ……っHPH」","W"
		PRINTFORMDL 酒を吞んでいた鬼達も寝静まった頃
		PRINTFORMDW 勇儀は身体の火照りに耐えかね自らを慰めていた
		CALL HPH_PRINT,@"「…っく……こういう時に限って、%MASTERNAME:64%が居ないなんて……っHPH」","W"
		PRINTFORMDL クチュクチュと蜜穴を指で掻き回しながら、ここに居ない人物の事を想う
		PRINTFORMDL 指を二本、三本と足していっても、%CALLNAME:MASTER%の男根が与える快楽には到底及ばない
		PRINTFORMDW それでも、開発された勇儀の肉体は容易く絶頂に達した
		CALL HPH_PRINT,@"「ぅ、あ……はぁ……っHPH」","W"
		CALL HPH_PRINT,@"「明日は、%MASTERNAME:64%に……っHPH ん、ふぅ……っHPH」","W"
		PRINTFORMDL 穴から溢れ出た愛液を押し戻すように、再び指を膣奥へと挿入する
		PRINTFORMDW 明日こそは抱いて貰おうと考えながら、とりあえずの疼きを抑えるため勇儀は再び自慰へと耽っていった……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ・愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG == 4 || ARG == 5)
		PRINTFORMW 「まさかあんなところに跡が付いてたなんて……」
		PRINTFORMW 「ったく、今日はとんだ恥をかかされたよ」
		PRINTFORMDL 勇儀が酒を呑みながら独り言ちる
		PRINTFORMDW 首筋にキスマークが付いていたことに気付かず、酒の席でそれを揶揄われたのだ
		PRINTFORMW 「それもこれも、あいつと出会ってから……」
		PRINTFORMDL %CALLNAME:MASTER%に抱かれたことを思い出すと、首筋の跡がまるで熱を持っているようにジンジンと疼く
		PRINTFORMDW ズルズルと情事を重ねた結果、いつしか二人の関係は歪んだものへと変わっていた
		PRINTFORMW 「………ぷっ」
		PRINTFORMW 「ははッ！こんなことで悩むなんて、全く私らしくもない」
		PRINTFORMDL 揶揄われたからなんだというのか
		PRINTFORMDW 長く生きてきたんだ、セックスの一つや二つはするだろう
		PRINTFORMW 「はー……ま、%MASTERNAME:64%とヤるのも悪い気はしないし……」
		PRINTFORMW 「暫くは、このままの関係ってのも悪くないかもねぇ……」
		PRINTFORMDL 勇儀はどこか吹っ切れた様子で再び盃に酒を注ぐ
		PRINTFORMDW 次はいつあいつとヤろうか、そんなことを考えながら……
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K64_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「ッん、あぁ……ッHPH」","L"
					PRINTFORMDL 幾度目かの絶頂を迎えた勇儀の蜜穴からトロリと濃厚な蜜が溢れてくる
					PRINTFORMDL 一回で終わらそうと思っていた筈なのに、%CALLNAME:MASTER%のことを想うと指が止まらない
					CALL HPH_PRINT,@"「はぁ……はぁ……ッHPH こんな時、%MASTERNAME:64%が居たら……HPH」","L"
					CALL HPH_PRINT,@"「………んんッHPH」","L"
					PRINTFORMDW 結局その日、勇儀は疲れて寝落ちするまでずっと自慰に耽っていた
				CASE 1
					CALL HPH_PRINT,@"「%MASTERNAME:64%……ッHPH ぁぁ、%MASTERNAME:64%……ッHPH」","L"
					PRINTFORMDL クチュクチュと指で膣穴を掻き回しながら、一人の人間の名を呼び続ける
					PRINTFORMDL 勇儀は%CALLNAME:MASTER%に組み伏せられ乱暴に犯される妄想をしながら、自慰に耽っていた
					CALL HPH_PRINT,@"「ぁ、あんッHPH %MASTERNAME:64%……もっと、私を……ぉッHPH」","L"
					PRINTFORMDL 本能的に降りてきた子宮の入り口に指先が軽く触れる
					PRINTFORMDW その瞬間、勇儀はプシャッと潮を噴きながら盛大にイッた
				CASE 2
					CALL HPH_PRINT,@"「はぁ……ッHPH 素直に抱いてもらいに行けばよかったかねぇ……HPH」","L"
					CALL HPH_PRINT,@"「自分の指じゃ、全然収まりゃしない……ッHPH」","L"
					PRINTFORMDL 勇儀はこの日、もう一時間も自慰をしていた
					PRINTFORMDL いくら%CALLNAME:MASTER%の動きを真似てみても、一向に満足することができない
					CALL HPH_PRINT,@"「ッ、ぁ、んッHPH イッ、く、ぅッHPH」","L"
					PRINTFORMDL プシッ……と秘所から潮が噴き出し、彼女の布団をべったりと汚す
					PRINTFORMDW そしてそのまま、収まるともしれない体の昂ぶりを抑えつけるため再び自慰へと耽っていった……
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「……ッ……ぅッHPH」","L"
					PRINTFORMDL 声を抑え自慰をしていた勇儀が絶頂に達する
					PRINTFORMDL 随分とご無沙汰だった勇儀は、この日自らを慰めていた
					PRINTFORML 「ふぅ……っと、もうこんな時間か」
					PRINTFORML 「風呂は……まあ、起きたらでいいな」
					PRINTFORMDW 思ったよりも時間が経っていたことに気付いた勇儀は、さっさと寝ることを選択した
				CASE 1
					CALL HPH_PRINT,@"「ん、くぅ……ッHPH」","L"
					PRINTFORMDL 行灯が照らす薄暗い部屋の中で、勇儀は己を慰めていた
					PRINTFORMDL ぬるぬるとした愛液を指に纏わりつかせ、執拗に陰核を責め続ける
					CALL HPH_PRINT,@"「もう少し、で……ッHPH ッはぁHPH」","L"
					PRINTFORMDL 絶頂の瞬間、勇儀が甘い嬌声を上げる
					PRINTFORMDW 鬼の四天王の口から出たとは思えないそれは、外の鬼達のどんちゃん騒ぎに搔き消された
				CASE 2
					PRINTFORML 「ふぅ……こんなもんか」
					PRINTFORMDL 自慰を終えた勇儀が気怠そうに息を吐く
					PRINTFORMDL 乱れた服を整えていると、太腿のあたりに湿った感触が伝わってきた
					PRINTFORML 「ってうわ、布団濡れちまってるよ……」
					PRINTFORMW 「はぁ、ったく……めんどくさいねえ……」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		CALL HPH_PRINT,@"「はぁ……ッHPH ぁ、んん……ッHPH」","W"
		PRINTFORMDW クチュクチュと聞こえる水音に何事かと目を覚ますと、なんと勇儀が自慰をしていた
		CALL HPH_PRINT,@"「ったく、酷いじゃないか……HPH」","W"
		CALL HPH_PRINT,@"「こんなに焦らして……自分はさっさと寝るなんて……ぁッHPH」","W"
		PRINTFORMDL 蕩け切った表情で自慰をしている勇儀は、%CALLNAME:MASTER%が起きていることに気付いていないようだ
		PRINTFORMDW 思わず生唾を飲み込みたくなるのを堪えていると、水音の感覚が次第に短くなっていく
		CALL HPH_PRINT,@"「ぁ、イ、くッHPH %MASTERNAME:64%ッHPH ぁぁッHPH」","W"
		CALL HPH_PRINT,@"「はぁ……はぁ……ッHPH」","W"
		PRINTFORMDL ……どうやらイッたようだ
		PRINTFORMDW 勇儀は大きな胸を揺らしながら、乱れた呼吸を整えている
		PRINTFORMDL %CALLNAME:MASTER%の一物は限界まで勃起し、雄の本能は彼女を襲えと訴えているが……
		PRINTFORMDW だがそこはグッと堪え、意地でも眠ることにした。勇儀のプライドを守る為に
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML 「そういえば最近、ご無沙汰だったねぇ……」
		PRINTFORMW 「明日、%MASTERNAME:64%でも声を掛けるか……」
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K64_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「一緒に風呂に入りたいって？」
		PRINTFORML 「はははっ、それなら背中でも流してもらおうか」
		PRINTFORMDL %CALLNAME:MASTER%が勿論と言うと、ピンッと額を指で弾かれてしまった
		PRINTFORML 「馬鹿、冗談だよ」
		PRINTFORML 「ま、あんたくらい正直な方が私は好きだけどね」
		PRINTFORMDW 残念ながら、裸の付き合いはまだ先の話のようだ
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「一日の汗を流すこの瞬間が堪らなく好きなんだ」
				PRINTFORML 「%MASTERNAME:64%も？ ははッ！ 気が合うね！」
				PRINTFORMDW %CALLNAME:MASTER%は勇儀の後に続いて風呂場へと入っていった
			CASE 1
				PRINTFORML 「うっし、ちゃっと入って酒でも呑もうか」
				PRINTFORMDL 勇儀が服を脱ぐと、ブルンッと豊満な胸が飛び出してきた
				PRINTFORML 「あん？ どうしたんだい？じっと見つめて」
				PRINTFORML 「%MASTERNAME:64%もさっさと脱ぎなよ」
				PRINTFORMDL 勇儀が手拭いを片手に堂々と風呂場へと入っていく
				PRINTFORMDW 歩く度に揺れまくる彼女の胸を、%CALLNAME:MASTER%は思わず目で追ってしまった
			CASE 2
				PRINTFORML 「風呂に入るなら忘れちゃならないものがある」
				PRINTFORML 「なにかって？ そりゃ当然、酒だろう？」
				PRINTFORMDL 勇儀はいそいそと酒を用意すると風呂場へと入っていった
				PRINTFORMDW 陶然、酌をするのは%CALLNAME:MASTER%の役目だ
		ENDSELECT
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K64_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:子供人数
			PRINTFORMW 「ふふ、頑張って子作りした甲斐があったってもんだ」
			PRINTFORMW 「弟が妹が出来るって知ったら、あの子もきっと喜ぶよ」
			PRINTFORMDW 再び新しい命が宿ったお腹を、勇儀が優しく撫でている
			PRINTFORMW 「また酒は我慢だなって？ あっはっは！確かにそうだねぇ」
			PRINTFORMW 「この子が無事に独り立ちしたら、とっておきの酒を開けるとしよう」
			PRINTFORMW 「……その時は、%MASTERNAME:64%も一緒に呑もう」
			PRINTFORMDW 二人は寄り添い合いながら、生まれてくる子に思いを馳せた……
		ELSE
			PRINTFORMW 「ほら、撫でておくれよ」
			PRINTFORMDL まだ膨らんでもいない勇儀のお腹をそっと撫でる
			PRINTFORMDW 耳を当てても何も聞こえないが、確かにここに二人の子がいるのだ
			PRINTFORMW 「男か、女か……まあ、どっちでもいいか」
			PRINTFORMW 「丈夫な子に育ってくれれば私は満足だよ」
			PRINTFORMDW %CALLNAME:MASTER%が頷くと、勇儀は満足そうに微笑んだ
			PRINTFORMW 「それにしても……」
			PRINTFORMW 「ああ～ッ！ 酒が飲めないだなんて、耐えられる気がしない！」
			PRINTFORMW 「酒は命なんだ！ それを奪われちゃあ、私はこれから何を支えに……ッ」
			PRINTFORMDW 『お腹の子がいるじゃないか』そう言うと、勇儀はハッとした表情でお腹を見た
			PRINTFORMW 「た、確かに……ッ」
			PRINTFORMW 「………」
			PRINTFORMW 「……クッ……」
			PRINTFORMDL お腹の子の為に酒を断つという決意
			PRINTFORMDW しかし、それは早くも揺らいだ
			PRINTFORMW 「一週間……いや、一ヶ月に一口だけでいい！」
			PRINTFORMW 「………ダメ？」
			PRINTFORMDL %CALLNAME:MASTER%が首を振ると、勇儀はガックリと項垂れた
			PRINTFORMDW それはある日の、日常の出来事だった
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕以下
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG == 2 || ARG == 3)
		IF CFLAG:子供人数
			PRINTFORMW 「ははは、またデキちまったよ」
			PRINTFORMW 「あんたも私も、ほんと懲りないね」
			PRINTFORMDL 再び宿った新しい命
			PRINTFORMDW 勇儀はもう慣れたとばかりに、ポンポンとお腹を叩いている
			PRINTFORMW 「今度はどんな子が生まれてくるのかねぇ」
			PRINTFORMW 「私としちゃあ、丈夫に育ってくれればなんでもいいんだが……」
			PRINTFORMW 「なんにせよ、楽しみで仕方がない！」
			PRINTFORMW 「%MASTERNAME:64%だって、そうだろう？」
			PRINTFORMDL また暫く酒が飲めないというのに、勇儀はそれを気に病むことなくお腹の子のことだけを考えている
			PRINTFORMDW 楽しみで仕方がないという彼女の言葉に、%CALLNAME:MASTER%は同意せざるを得なかった
		ELSE
			PRINTFORMDL ある日、%CALLNAME:MASTER%は酒を持って勇儀の家を訪ねていた
			PRINTFORMDW 戸をノックすると少し遅れて勇儀が出てくる、酒を見せると彼女は気まずそうに目を逸らした
			PRINTFORMW 「あー……酒は暫く止めようと思っててね」
			PRINTFORMW 「ここじゃなんだ、上がりなよ」
			PRINTFORMDL ……………
			PRINTFORMDL ………
			PRINTFORMDW …
			PRINTFORMW 「さて、どこから話したもんか……」
			PRINTFORMW 「………ん」
			PRINTFORMW 「単刀直入に言うとだ」
			PRINTFORMW 「私は妊娠した」
			PRINTFORMW 「父親はあんただよ」
			PRINTFORMDW その一言に、%CALLNAME:MASTER%は思わず動きを止める
			PRINTFORMW 「信じられないって顔だね？ でも、鬼は嘘は付かないよ」
			PRINTFORMW 「はは、まさか私が人間の種で孕むだなんてね」
			PRINTFORMW 「どうやら、%MASTERNAME:64%の子種は相当に強いらしい」
			PRINTFORMDL 場の空気を和まそうと冗談を言う勇儀
			PRINTFORMDW %CALLNAME:MASTER%はとても笑うことはできなかった
			PRINTFORMW 「まあ、正直私もまだ混乱してるが……」
			PRINTFORMW 「デキちまったもんは仕方ないさ、むしろめでたいことじゃないか」
			PRINTFORMW 「…だから、あんたもウジウジしてないで覚悟決めな！」
			PRINTFORMDW 勇儀に背中をバチンと叩かれる、それで%CALLNAME:MASTER%は現実へと引き戻された
			PRINTFORMW 「責任取るって？ それは頼もしい」
			PRINTFORMW 「なら、私もあんたを頼らせてもらうよ」
			PRINTFORMW 「……この子の父親としてね」
			PRINTFORMDL 勇儀が新しい命の宿ったお腹を撫でる
			PRINTFORMDW そこには山の四天王の力強さは無く、ただ母親の優しさのみがあった
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K64_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:子供人数
			PRINTFORMW 「よしよし、たんと飲みな」
			PRINTFORMDL 勇儀が生まれたばかりの我が子に母乳を与えている
			PRINTFORMDW ゴクゴクと元気に飲む姿を見て、%CALLNAME:MASTER%は顔をほころばせた
			IF EXP:出産経験 == 2
				PRINTFORMW 「こういうの、母性って言うのかねぇ……」
				PRINTFORMW 「子供を攫って喰うなんて、今じゃあ考えられないよ」
				PRINTFORMW 「ん？ 怖い事言うなって？ まあまあ、忘れてるかもしれないけど私も鬼なんだ」
				PRINTFORMW 「昔はそういったことも何度か……って、やめだやめ」
				PRINTFORMW 「こんな話、生まれたばかりの子の前でするもんじゃない」
				PRINTFORMDL %CALLNAME:MASTER%は窘められてしまった
				PRINTFORMW 「なんにせよ……」
				PRINTFORMW 「こうして無事に生まれてきてくれたんだ、有難いことだよ」
				PRINTFORMDW そう言い我が子を撫でる勇儀の表情は、母性に満ち溢れていた
			ENDIF
		ELSE
			PRINTFORMW 「ふふ、ぎゃんぎゃん泣いて元気な赤ん坊だ」
			PRINTFORMDL 生まれたばかりの子を勇儀が優しく抱いている
			PRINTFORMDW さすがの彼女も、出産という重労働に疲労困憊の様子だ
			PRINTFORMW 「はは、ほら見てみなよ。早くお乳を飲ませろってさ」
			PRINTFORMW 「こういう自分の欲求に忠実なところ、本当あんたにそっくりだよ」
			PRINTFORMW 「………なんてね」
			PRINTFORMW 「これなら心配はいらなそうだ」
			PRINTFORMW 「少し疲れたし、私は暫く休ませてもらうよ……」
			PRINTFORMDL 勇儀はそう言うと、赤ん坊にお乳を与えたまま眠ってしまった
			PRINTFORMDW %CALLNAME:MASTER%は隣に腰掛けると、勇儀が起きるまで二人をじっと見守り続けた……
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕以下
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG == 2 || ARG == 3)
		IF CFLAG:子供人数
			PRINTFORMW 「おお来たのか、遅かったね」
			PRINTFORMW 「もうとっくに生まれちまったよ」
			PRINTFORMDW 我が子が生まれると聞いて急ぎ駆け付けたが、間に合わなかったようだ
			IF EXP:出産経験 == 2
				PRINTFORMW 「別に見ても面白いもんじゃなかろうに」
				PRINTFORMW 「そんなに立会いたかったのかい？」
				PRINTFORMW 我が子が生まれる瞬間に立会いたいというのが父親の心情だろう
				PRINTFORMW 「そんなに見たいってのなら、次の機会に……」
				PRINTFORMW 「………ん？ どうしたんだいそんな顔して」
				PRINTFORMDL 勇儀の口から出た『次の機会』という言葉
				PRINTFORMDW それはすなわち、もう一度孕ませても良いということだろうか
				PRINTFORMW 「……あー、いや……」
				PRINTFORMW 「…まあ、ここまで来たらあと何人増えようが変わらないかなってね」
				PRINTFORMW 「あんたがそうしたいってのなら、私もやぶさかではないよ」
				PRINTFORMW 「というか、この子が生まれたばかりだってのにもう次の子を仕込む話かい？」
				PRINTFORMDW %CALLNAME:MASTER%は勇儀に呆れられてしまった
			ENDIF
		ELSE
			PRINTFORMDW 子供が生まれたとの知らせを聞いた%CALLNAME:MASTER%は、急いで勇儀の家を訪ねた
			PRINTFORMW 「…ん、来てくれたのかい」
			PRINTFORMW 「ほら、あんたの子だよ」
			PRINTFORMDL 勇儀が%CALLNAME:MASTER%に生まれたばかりの子を渡してくる
			PRINTFORMDW 慌ててそれを受け取ると、先ほどまで大人しかった我が子が急に大きな泣き声を上げた
			PRINTFORMW 「はは、あんたが来る前にも何人か見舞いに来てくれたんだけどね」
			PRINTFORMW 「私以外が抱くと、そうやって大泣きするのさ」
			PRINTFORMDW %CALLNAME:MASTER%が勇儀に我が子を返すと、すぐに泣き止んだ
			PRINTFORMW 「まあせっかく来たんだ、我が子の顔でも見ながらゆっくりしていきな」
			PRINTFORMW 「私は一休みするから、何かあったらよろしく頼むよ……」
			PRINTFORMDL %CALLNAME:MASTER%が来たことで気が緩んだのか、勇儀は気絶するように眠ってしまった
			PRINTFORMDW 出産という大変な作業に居合わせてやれなかったことに、%CALLNAME:MASTER%は少しだけ悔いを感じた……
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K64_26(ARG,ARG:1)

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

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K64_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
			PRINTFORML 「そうだ、もし暇なら付き合ってくれないか？」
			PRINTFORMW 「何にって？ そりゃあ勿論、デートってやつさ」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「うし、それじゃあ行こうか！」
			PRINTFORMDW 勇儀は%CALLNAME:MASTER%の手を取るとズンズンと歩き出した
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「なんだ、つれないねぇ」
			PRINTFORMW 「まあいいさ、また今度付き合っておくれよ」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「そうだ、ウチ上がっていくかい？」
			PRINTFORML 「皆でどんちゃん騒ぎもいいが、偶にはサシで吞むってのも悪くないだろ？」
			PRINTFORML 「……邪魔も入らないしね」
			PRINTFORMDW 勇儀は少しだけ頬を赤らめている
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「本当に呑むだけなのかって？」
			PRINTFORML 「ふふ、それは%MASTERNAME:64%次第だろうね」
			PRINTFORMDW 勇儀は言葉に含みを持たせながら、%CALLNAME:MASTER%を家に招き入れた
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「しょうがない、今日は他のを誘って吞むとするよ」
			PRINTFORMDW 勇儀は大して気にしていないようだ
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

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

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

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

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

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

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

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

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

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

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

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

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

;-------------------------------------------------
;部屋描写用関数
;口上キャラのOMANEKIBEYAか拠点の描写に使います
;記入する際はコメントアウトを外してください
;-------------------------------------------------
;@K64_ROOM_DESCRIPTION
;PRINTFORML 例）生活感のない殺風景な部屋だ
;-------------------------------------------------

;-------------------------------------------------
;名前を教えるイベント（関数）
;ナズーリン口上からお借りしました
;-------------------------------------------------
@NAME_SET_K64
PRINTL 名前を入力してください
IF NAME:MASTER != "あなた"
	LOCALS = %CALLNAME:MASTER%
ELSE
	LOCALS = %NAME:MASTER%
ENDIF
PRINTBUTTON @"[%LOCALS%と名乗る]", @"%LOCALS%"
PRINTL
;名前を入力するループ
$INPUT_LOOP_ONAMAE
INPUTS
; 行頭行尾の空白文字削除
LOCALS = %RESULTS%
REPLACE LOCALS, "\(\^\\s\+\|\\s\+\$)", ""
;10文字以上は受け付けない
IF STRLENS(LOCALS) > 10
	CLEARLINE 1
	REUSELASTLINE 名前が長すぎます
	GOTO INPUT_LOOP_ONAMAE
;空白は受け付けない
ELSEIF RESULTS == ""
	PRINTL 名前を入力してください
	GOTO INPUT_LOOP_ONAMAE
ELSE
	PRINTFORML %RESULTS%で決定しますか？
	PRINTL [0] はい
	PRINTL [1] いいえ
	;入力した名前を確定するループ
	$INPUT_LOOP_KAKUTEI_1
	INPUT
	IF RESULT == 0
		;あなたの名前を%MASTERNAME:64%に格納
		MASTERNAME:64 = %RESULTS%
		PRINTFORML
	ELSEIF RESULT == 1
		PRINTL 名前を入力してください
		GOTO INPUT_LOOP_ONAMAE
	ELSE
		PRINTL 名前を入力してください
		GOTO INPUT_LOOP_ONAMAE
	ENDIF
ENDIF

repo_name: akadiya/eratw

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

license: unknown