code:
;-------------------------------------------------
; eraTheWorld proto4.520用 椛口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。
;当口上への加筆・改変の際には、同梱の更新情報.txtに変更内容を記載して頂けると助かります。
;
;◇デフォルト能力
;	従順2,教養1,戦闘能力3
;	[処女][キス未経験][気丈][自制心][保守的][貞操観念][痛みに強い][献身的][小柄体型][C敏感][貧乳][酒豪][イヌミミ][居場所察知]
;	自慰経験5
;
;◇キャラコンセプト
;	[発情]ってのは実に良い響きだなァ！
;
;	椛はまじめな下っ端天狗さんだよ
;	でも酒の席で同僚天狗たちからあけすけなエロトークをされまくっていろいろ溜まってるよ（現状特に生かされていない脳内設定）
;
;◇ちょっとした追加要素
;	ENCOUNTERおよびUPDATEの際にバストサイズを変更可能に。
;	もみぱいのサイズは諸説入り乱れておりますゆえ。
;
;	媚薬を飲ませると[発情]します。
;	お茶に一服盛ってもうふふ中に渡してもOKです。

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;
;CFLAG:1001 UPDATE判定時のバストサイズ変更選択肢の有無
;CFLAG:1002 MASTERNAME:65の設定
;CFLAG:1100 椛からの告白回数
;CFLAG:1800 弾幕勝負イベント進行用フラグ
;
;TCVAR:350 MASTERの射精カウンタ　EX:MASTER:射精で参照するとほかの子とシて射精した回数も含まれちゃうからね。
;TCVAR:351 弾幕勝負イベント・ハンデ管理用変数
;TCVAR:352 二人目口上キャンセルフラグ　ダブル系プレイ時、二人目口上を呼び出したくないとき1
;TCVAR:353 一日一回のイベント用フラグ　1:危険日に遭遇したとき(発情おしらせ)
;
;******************************************************************************

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

;RESULTS = _TEST_

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

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

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

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

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

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

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

IF !CFLAG:65:1001
	PRINTFORML 椛のバストサイズを変更できます。
	PRINTFORML 変更しますか？
	PRINTFORML
	PRINTFORML [0] する (UPDATE時に再び変更できます)
	PRINTFORML [1] 保留する
	PRINTFORML [2] もう変更しない
	$INPUT_LOOP_K65_BS
	INPUT
	IF RESULT == 0
		PRINTFORML
		PRINTFORML [0] 小柄貧乳、良いですよね　(TWデフォルト)
		PRINTFORML [1] 普通が良いですよね
		PRINTFORML [2] ロリ巨乳、良いですよね
		$INPUT_LOOP_K65_ENCOUNTER
		INPUT
		IF RESULT == 0
			PRINTFORMW 椛は[貧乳]です。
			TALENT:65:105 = -1
		ELSEIF RESULT == 1
			PRINTFORMW 椛は[貧乳]でも［巨乳］でもありません。
			TALENT:65:105 = 0
		ELSEIF RESULT == 2
			PRINTFORMW 椛は[巨乳]です。
			TALENT:65:105 = 1
		ELSE
			GOTO INPUT_LOOP_K65_ENCOUNTER
		ENDIF
	ELSEIF RESULT == 1
		PRINTFORMW 椛のバストサイズ変更を保留します。
	ELSEIF RESULT == 2
		PRINTFORMW 今後、この選択肢は表示されません。
		CFLAG:65:1001 = 1
	ELSE
		GOTO INPUT_LOOP_K65_BS
	ENDIF
ENDIF

;ITEM:ルナシューター養成ギプス実装にともなう
;既プレイヤーさん用の処理
IF ITEM:ルナシューター養成ギプス < 1 && CFLAG:65:1800 > 2
	PRINTFORML
	PRINTFORMW 拙作TW椛口上で遊んでいただき、誠にありがとうございます。
	PRINTFORML
	PRINTFORML era The World4.750アップデートにおける『ルナシューター養成ギプス』のアイテム化に伴い、
	PRINTFORMW 椛との弾幕勝負時のイベントを一部巻き戻しさせていただきます。
	PRINTFORML
	PRINTFORML この状態で椛と再度弾幕勝負を行っていただければ、
	PRINTFORMW 『ルナシューター養成ギプス』取得イベントが発生するはずです。
	PRINTFORML
	PRINTFORMW 「今後ともよろしくお願いしますね、%CALLNAME:MASTER%さん！！」
	CFLAG:65:1800 = 2
ENDIF
RETURN 1

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

PRINTFORML
PRINTFORML 椛のバストサイズを変更できます。
PRINTFORML （なお、UPDATE時にもバストサイズを変更することができます）
PRINTFORML
PRINTFORML [0] 小柄貧乳、良いですよね　(TWデフォルト)
PRINTFORML [1] 普通が良いですよね
PRINTFORML [2] ロリ巨乳、良いですよね
PRINTFORML [3] 変更なしでいきましょうか
$INPUT_LOOP_K65_ENCOUNTER
INPUT
IF RESULT == 0
	TALENT:65:105 = -1
PRINTFORMW 椛は[貧乳]です。
ELSEIF RESULT == 1
	TALENT:65:105 = 0
	PRINTFORMW 椛は[貧乳]でも[巨乳]でもありません。
ELSEIF RESULT == 2
	TALENT:65:105 = 1
	PRINTFORMW 椛は[巨乳]です。
ELSEIF RESULT == 3
	PRINTFORMW 現状を維持します。
ELSE
	GOTO INPUT_LOOP_K65_ENCOUNTER
ENDIF

;仕事中
IF CFLAG:行動 == 5
	PRINTFORML %CALLNAME:MASTER%が山道を散策していると、小柄な少女が路傍に立っていた。
	PRINTFORML 白銀の髪を風に揺らしながら、頭頂のイヌミミで間断なく周囲を探っている。
	PRINTFORMW どうやら、彼女は哨戒中の白狼天狗であるようだ。
	PRINTFORML
	PRINTFORML %CALLNAME:MASTER%から向けられる好奇の視線に気づいたのか、彼女は不意に緋色の瞳をこちらへ向け、会釈した。
	PRINTFORML あまりにも自然で楚々とした所作に、思わず会釈を返してしまう。
	PRINTFORMW 慣れ切った動きから考えれば、彼女は長らく哨戒任務に就いているのかもしれない。
	PRINTFORML
	PRINTFORML %CALLNAME:MASTER%は白狼天狗の少女に初対面の挨拶をした。
	PRINTFORML 「これはどうも、はじめまして…ご丁寧なあいさつ、ありがとうございます」
	PRINTFORMW 「最近こちらにいらっしゃった方ですね。お噂は聞いていますよ」
	PRINTFORML
	PRINTFORML 「私は犬走 椛。妖怪の山に住まう白狼天狗です」
	PRINTFORML 訓練された所作から一転して、彼女は人懐こそうな笑顔を向けてくる。
	PRINTFORML なかなかオン・オフのはっきりした娘のようだ。
	PRINTFORMW %CALLNAME:MASTER%はよろしくと言って微笑み返した。
	PRINTFORML
	PRINTFORMW
;それ以外
ELSE
	SELECTCASE TALENT:65:105
		;ひんにゅー
		CASE IS < 0
			PRINTFORML
		;ふにゅー
		CASE 0

		;きょにゅー
		CASEELSE

	ENDSELECT
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K65_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;下駄の鼻緒が切れちゃいました→顔が近づく、目と目が合う…　この椛はそういうベタベタな感じでいいんだよ…
	PRINTL
	PRINTFORML 「わっ…」
	PRINTFORMW …デートからの帰り道、椛の姿がふっと消えた…
	PRINTL
	PRINTFORML 「あいたた…すみません、転んじゃいました…」
	PRINTFORML %CALLNAME:MASTER%は慌てて椛のもとへ駆け寄り、彼女を気遣った。
	PRINTFORML 「すみません、大丈夫です…少しボーッとしちゃって…」
	PRINTFORMW 「…あっ」
	PRINTFORML 突然、椛が足元へ視線を向ける。
	PRINTFORMW 視線の先を見てみると、下駄の鼻緒が切れてしまっていた。
	PRINTFORML 「…あはは、すみません…なにも、こんな時に切れなくたって…」
	PRINTFORML 申し訳なさそうに笑う椛をなだめながら、%CALLNAME:MASTER%は下駄の様子を見てみた。
	PRINTFORMW 幸いにも、手持ちの道具で間に合わせの修繕はできそうだ。
	PRINTFORML 「あ…」
	PRINTFORMW 椛が声を上げる方が先だったか、%CALLNAME:MASTER%が椛の方を振り返るのが先だったか。
	PRINTFORML
	PRINTFORMW どちらが早かったにせよ、下駄に気をとられていた%CALLNAME:MASTER%の顔は椛の顔のすぐそばにあって。
	PRINTFORML
	CALL HPH_PRINT,@"「ちゅっ…HPH」","L"
	PRINTFORMW 気づいた時には、二人の唇がそっと重なっていた。
	PRINTFORML ……
	PRINTFORMW …
	PRINTFORMW 次の瞬間、ポンッと音を立てて椛の顔が真っ赤に染まる。
	PRINTFORML 「わ、あ…！！ああああああああああああのっっっっっっっ！！！！！！！」
	PRINTFORML 「替えの下駄っ！！！替えの下駄！！家に！！ありますからっっっ！！！」
	PRINTFORML 「私！取りにまいりますねッッッ！！」
	PRINTFORMW 椛の姿が一瞬で山の方へと消えていった…
	PRINTFORMW ………
	PRINTFORMW ……
	PRINTFORMW …
	PRINTFORML しばらく走って冷静になった椛は、細い指先を唇に軽く当てていた…
	PRINTFORMW 「…どうしよう。こんな、気持ち……」
	PRINTFORML
	PRINTFORML そわそわして、今にももう一度走り出したいようでもあり、ここにとどまって静かに鼓動を感じていたいようでもある。
	PRINTFORMW %CALLNAME:MASTER%に抱いた恋のときめきは、椛がいままでに経験したことのない感覚だった…
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K65_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		;初告白
		IF CFLAG:1100 < 2
			CFLAG:1100 = 2
		;2度目以降
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K65_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;特殊イベント以外はワンクリックで終わるように
;==================================================
@M_KOJO_EVENT_K65_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:ブチギレ
			PRINTFORMW 椛は耳をピクリと跳ねさせると、%CALLNAME:MASTER%の方を一瞥することもなく歩き去った。
		;発情おしらせ
		ELSEIF CFLAG:生理周期 == 7 && CFLAG:既成事実 & 合意_うふふ && ABL:欲望 > 3 && !TCVAR:353
			IF !CFLAG:MASTER:同行
				PRINTFORML 「あっ……」
				PRINTFORML 「こんにちは、%CALLNAME:MASTER%さん…」
				PRINTFORMW
				PRINTFORML 「その…私、今日は気持ちが落ち着きづらい日なので…」
				PRINTFORML 「%CALLNAME:MASTER%さんが一緒にいてくれたら、とても心強いんです…」
				PRINTFORML そう言い終えた椛は%CALLNAME:MASTER%の腕に抱き着き、媚びるような視線を向けてきた。
				PRINTFORMW
				PRINTFORML 「……っ」
				PRINTFORML 「すみません、%CALLNAME:MASTER%さん…少し、取り乱してしまいました」
				PRINTFORMW 椛は%CALLNAME:MASTER%から離れると、わずかに汗ばんだ首筋にかかる銀白色の髪をかき上げる。
				PRINTFORML
				PRINTFORMW 「……待ってますから」
				TCVAR:353 = 1
			ELSEIF CFLAG:MASTER:同行 && CFLAG:溜まってる度 >= 700
				PRINTFORML 「あの、%CALLNAME:MASTER%さん」
				PRINTFORML どこか焦ったような様子で、椛が声をかけてくる。
				PRINTFORMW ただならぬ雰囲気を感じた%CALLNAME:MASTER%は、同行者に一言ことわって椛に話しかけた。
				PRINTFORML
				PRINTFORML 「あの、今日は抑えがききづらくなっちゃう日なので…」
				PRINTFORMW 「%CALLNAME:MASTER%さんさえよければ、後で私にも構ってください……」
				PRINTFORML
				PRINTFORML 椛はそう言い終えると、素早く一礼して去っていった。
				PRINTFORMW （これ以上%CALLNAME:MASTER%さんとお話ししたら、本当に抑えがきかなくなっちゃう…）
				TCVAR:353 = 1
			ELSE
				PRINTFORML 「あ……」
				PRINTFORMW 椛はそわそわとしながら、遠巻きに%CALLNAME:MASTER%の様子を伺っている…
			ENDIF
		ELSEIF BASE:MASTER:体力 <= 800
			PRINTFORML 「わっ…」
			PRINTFORMW 「なんだか足元がおぼつかないようですが…%CALLNAME:MASTER%さん、大丈夫ですか…？」
		ELSEIF BASE:MASTER:気力 <= 0
			PRINTFORMW 「お疲れのようですね…早くお休みになったほうがいいですよ？」
		;発情
		ELSEIF TCVAR:発情
			;合意あり
			IF CFLAG:既成事実 & 合意_うふふ && ABL:欲望 > 3
				SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「……あ、%CALLNAME:MASTER%さん…」
						PRINTFORMW 椛は少し熱っぽい表情を浮かべて%CALLNAME:MASTER%を見つめている。
					CASE 1
						PRINTFORML 椛はさりげなく%CALLNAME:MASTER%の傍に体を寄せた…
						IF EYEWITNESS()
							PRINTFORML 「…ね、%CALLNAME:MASTER%さん。よければ、どこか別の場所でおしゃべりしませんか？」
							PRINTFORMW 「……もちろん、二人きりですよ？」
						ELSE
							PRINTFORML 「%CALLNAME:MASTER%さん…\@ OUTROOF(CFLAG:TARGET:現在位置) || (OPENPLACE(CFLAG:TARGET:現在位置) >= 2) ? もう少し静かなところ # ここ \@で、私とゆっくりしていきませんか…？」
							PRINTFORMW 人目がないのをいいことに、椛は柔らかな肢体をに擦り付けるようにしなだれかかってきた…
						ENDIF
				ENDSELECT
			;合意なし
			ELSE
				SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「わ、わっ……」
						PRINTFORML 「え、とっ…こんにちはっ！！」
						PRINTFORMW 椛はなぜか顔を赤らめて%CALLNAME:MASTER%に挨拶した…
					CASE 1
						PRINTFORML 「%CALLNAME:MASTER%さん、どうも…」
						PRINTFORML 椛が挨拶してきた。
						PRINTFORMW ……やたら距離をとって。
				ENDSELECT
			ENDIF
		;仕事中
		ELSEIF CFLAG:行動 == 5
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML 「どうも、おつかれさまです」
					PRINTFORMW 椛はピッと背筋を正して一礼した。
				CASE 1
					PRINTFORMW 椛は凛とした表情のまま、%CALLNAME:MASTER%に会釈した。
				CASE 2
					;荒天
					IF GROUPMATCH(TIME:5,5,9,13) && OUTROOF(CFLAG:MASTER:現在位置)
						PRINTFORMW 「ご覧の通りの天候ですから…あまり、外出しないほうが身のためですよ？」
					ELSE
						PRINTFORML 「どうも、%CALLNAME:MASTER%さん」
						PRINTFORMW 「今日も山は平穏無事ですよ」
					ENDIF
				CASE 3
					PRINTFORML 「私たち天狗が見張っているとはいえ、山は妖怪のテリトリーです」
					PRINTFORM 「あまり妙なところには行かないでくださいね？」
					;親密高い
					IF CFLAG:2 >=1000
						PRINTFORML
						PRINTFORMW 「%CALLNAME:MASTER%さんに何かあったら、私、きっとすごく落ち込んじゃいますから…」
					ELSE
						PRINTFORMW
					ENDIF
			ENDSELECT
		;恋人の時1/2で
		ELSEIF TALENT:恋人 && RAND:2 == 0
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 椛はニコニコと笑みを浮かべて%CALLNAME:MASTER%に手を振った。
				CASE 1
					PRINTFORML 椛は朗らかな表情を浮かべて微笑んでいる。
					PRINTFORMW その背後では尻尾が嬉しそうにぱたぱたと振られていた。
				CASE 2
					PRINTFORML 「あ、%CALLNAME:MASTER%さん。会いたかったです♪」
					PRINTFORMW 椛は耳をピコピコと跳ねさせて近づいてきた。
			ENDSELECT
		;恋慕の時3/5で
		ELSEIF TALENT:恋慕 && RAND:5 < 3
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%さんっ」
					PRINTFORMW %CALLNAME:MASTER%を見かけた椛は、パッと明るい表情を浮かべて近づいてきた。
				CASE 1
					PRINTFORML 「あ、%CALLNAME:MASTER%さん、どうも」
					PRINTFORML 椛はちょっとに照れた様子で手を振っている。
					PRINTFORMW 手の動きにシンクロしてパタパタと揺れる尻尾がかわいらしい。
				CASE 2
					PRINTFORML 「この足音は…ふふ、やっぱり%CALLNAME:MASTER%さんでしたか。」
					PRINTFORMW 椛は楽しげに微笑んで近づいてきた。
			ENDSELECT
		;思慕の時1/2で
		ELSEIF TALENT:思慕 && RAND:2 == 0
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML %CALLNAME:MASTER%を見かけた椛は、やわらかい笑みを浮かべて一礼した。
					PRINTFORMW 出会ったころよりも少し肩の力が抜けたような、打ち解けた雰囲気を感じる…
				CASE 1
					PRINTFORML 「どうも、%CALLNAME:MASTER%さん」
					PRINTFORMW 「よければ、少しお話していきませんか？」
			ENDSELECT
		;愛欲の時1/2で、愛人の時2/3
		ELSEIF TALENT:愛欲 && RAND:(1+TALENT:セフレ) < TALENT:セフレ
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「あ、%CALLNAME:MASTER%さん…」
					IF CFLAG:溜まってる度 >=700
						PRINTFORML 「よければ、その…少し、お話していきませんか？」
						PRINTFORMW 「……二人きりで
					ELSE
						PRINTFORMW 椛は伏し目がちに%CALLNAME:MASTER%を見つめ、一礼した。
					ENDIF
				CASE 1
					PRINTFORMW 椛はどこか熱に浮かされたような視線で%CALLNAME:MASTER%の姿を追っていた…
			ENDSELECT
		;セフレの時1/2、愛人の時2/3で
		ELSEIF TALENT:セフレ && RAND:(1+TALENT:セフレ) < TALENT:セフレ
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「あっ……」
					PRINTFORMW 椛は逡巡するように目を泳がせたあと、会釈した。
				CASE 1
					PRINTFORMW 椛はわずかに頬を染めて%CALLNAME:MASTER%に一礼した。
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
				CASE 0
					;住み込みフラグが立っておらず、妖怪の山でない。または%CALLNAME:MASTER%の自室
					IF (FLAG:住み込みキャラ != 65 && MAIN_MAP != 8) || CFLAG:MASTER:現在位置 == CFLAG:MASTER:初期位置
						PRINTFORML 「あ、お邪魔してます」
						PRINTFORMW 椛はぺこりと頭を下げた。
					ELSE
						PRINTFORMW 椛は楚々としたしぐさで%CALLNAME:MASTER%に会釈した。
					ENDIF
				CASE 1
					PRINTFORMW 「\@ TIME:2 >= 5 && TIME:2 <= 7 ? こんばんは # こんにちは \@、%CALLNAME:MASTER%さん」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;仕事中
		IF CFLAG:行動 == 5

		;山頂
		ELSEIF CFLAG:現在位置/100 == 8
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「\@ TIME:2 >= 5 ? こんばんは # こんにちは \@、%CALLNAME:MASTER%さん」
					PRINTFORMW 「登山にいらしたんですか？」
				CASE 1
					PRINTFORMW 椛は%CALLNAME:MASTER%の姿を認めると、軽く会釈をした。
			ENDSELECT
		ELSE
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;[思慕]以上なら千里眼でMASTERをチラ見するくらいはしてるだろうし
		;MASTERとデート相手がシてるかどうかってくらいなら視ちゃってるんじゃないかな…
		IF (CFLAG:(ARG:1):既成事実 & 合意_うふふ) && 陥落状態() >= 1
			IF TALENT:恋人
				PRINTFORML 「こんにちは、%CALLNAME:MASTER%さん」
				PRINTFORML 「私…いつでもあなたのことを視てますからね？」
				PRINTFORMW 椛は笑顔を浮かべているが、あきらかに目が笑っていない…
				;BASE:怒り +=
			ELSE
				PRINTFORML 「あっ…」
				PRINTFORMW 椛は%CALLNAME:MASTER%と%CALLNAME:(ARG:1)%に会釈をすると、そそくさと立ち去った…
				IF RAND:2
					PRINTFORML （あの二人、そういう関係なんだよね…）
					PRINTFORMW （…事故とはいえ、あんなトコロを視ちゃうなんて、私…）
				ENDIF
			ENDIF
		ELSE
			PRINTFORMW 椛は%CALLNAME:MASTER%と%CALLNAME:(ARG:1)%に会釈をすると、ニコリと微笑んで立ち去った…
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K65_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:ブチギレ
			PRINTFORMW 椛はムスッとした顔で会釈を返した。
		;発情おしらせ
		ELSEIF CFLAG:生理周期 == 7 && CFLAG:既成事実 & 合意_うふふ && ABL:欲望 > 3 && !TCVAR:353
			IF !CFLAG:MASTER:同行
				PRINTFORML 「あっ……」
				PRINTFORML %CALLNAME:MASTER%の姿を見かけた椛は、顔を赤らめて手招きをした。
				PRINTFORMW 呼ばれるままについていくと、物陰で椛がもじもじしている。
				PRINTFORML
				PRINTFORML 「えっと、%CALLNAME:MASTER%さん…」
				PRINTFORML 「その…私、今日は気持ちが昂っちゃう日なので…」
				PRINTFORMW 「……よければ、後で気を静めるお手伝いに来てもらえると嬉しいです」
				PRINTFORML
				PRINTFORMW 椛は%CALLNAME:MASTER%に熱っぽい視線を向けた後、一礼して去っていった。
				TCVAR:353 = 1
			ELSEIF CFLAG:MASTER:同行 && CFLAG:溜まってる度 >= 700
				PRINTFORML 「あの、%CALLNAME:MASTER%さん」
				PRINTFORML どこか焦ったような様子で、椛が声をかけてくる。
				PRINTFORMW ただならぬ雰囲気を感じた%CALLNAME:MASTER%は、同行者に一言ことわって椛に話しかけた。
				PRINTFORML
				PRINTFORML 「あの、今日は抑えがききづらくなっちゃう日なので…」
				PRINTFORMW 「%CALLNAME:MASTER%さんさえよければ、後で私にも構ってください……」
				PRINTFORML
				PRINTFORML 椛はそう言い終えると、素早く一礼して去っていった。
				PRINTFORMW （これ以上%CALLNAME:MASTER%さんとお話ししたら、本当に抑えがきかなくなっちゃう…）
				TCVAR:353 = 1
			ELSE
				PRINTFORML 「あ……」
				PRINTFORMW 椛は少ししょんぼりした様子で会釈を返した。
			ENDIF
		;仕事中
		ELSEIF CFLAG:行動 == 5
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 椛は\@ CFLAG:2 >=1000 && RAND:2 ? わずかに顔をほころばせて # ぴっと姿勢を正して \@会釈を返した。
				CASE 1
					PRINTFORMW 労をねぎらう言葉をかけると、椛は嬉しそうに尻尾を振って一礼した。
				CASE 2
					PRINTFORMW 凛とした表情のまま、椛は恭しく頭を下げた。
			ENDSELECT
		;恋人の時1/2で
		ELSEIF TALENT:恋人 && RAND:2 == 0
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 椛はニコニコと笑みを浮かべて%CALLNAME:MASTER%に手を振った。
				CASE 1
					PRINTFORML 椛は朗らかな表情を浮かべて会釈を返した。
					PRINTFORMW ……背後でしっぽがブンブンと勢いよく振られている。
				CASE 2
					PRINTFORML 「ふふ、後でちゃんと構ってくださいね？」
					PRINTFORMW 椛は%CALLNAME:MASTER%の肩にそっと触れてから去っていった。
			ENDSELECT
		;恋慕の時3/5で
		ELSEIF TALENT:恋慕 && RAND:5 < 3
			SELECTCASE RAND:5
				CASE 0
					PRINTFORMW %CALLNAME:MASTER%を見かけた椛は、パッと明るい表情を浮かべて会釈を返した。
				CASE 1
					PRINTFORMW 椛は少し頬を赤らめて、恭しく%CALLNAME:MASTER%に一礼した。
				CASE 2
					PRINTFORML 「あ、%CALLNAME:MASTER%さん、どうも」
					PRINTFORML 椛はちょっと恥ずかしそうに手を振っている。
					PRINTFORMW 手の動きにシンクロしてパタパタと揺れる尻尾がかわいらしい。
				CASE 3
					PRINTFORML 「この足音は…ふふ、やっぱり%CALLNAME:MASTER%さんでしたか。」
					PRINTFORMW 椛は嬉しそうに微笑んで会釈を返した。
				CASE 4
					PRINTFORML 「あっ……」
					PRINTFORMW 会釈を返した椛は、遠ざかる%CALLNAME:MASTER%の姿を少し寂しそうに見つめていた。
			ENDSELECT
		;思慕の時1/2で
		ELSEIF TALENT:思慕 && RAND:2 == 0
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML %CALLNAME:MASTER%を見かけた椛は、やわらかい笑みを浮かべて一礼した。
					PRINTFORMW 出会ったころよりも少し肩の力が抜けたような、打ち解けた雰囲気を感じる…
				CASE 1
					PRINTFORML 「……ふふ」
					PRINTFORMW 椛は会釈を返し、遠ざかる%CALLNAME:MASTER%の姿をまぶしそうに見つめていた
				CASE 2
					PRINTFORML 「あ、%CALLNAME:MASTER%さん、どちらへ？」
					PRINTFORMW 「……どうやらお急ぎのようですね。すみません」
			ENDSELECT
		;愛欲の時1/2で、愛人の時2/3
		ELSEIF TALENT:愛欲 && RAND:(1+TALENT:セフレ) < TALENT:セフレ
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「あ、%CALLNAME:MASTER%さん…」
					IF CFLAG:溜まってる度 >=700
						PRINTFORMW 「その…後でお会いできませんか？」
					ELSE
						PRINTFORMW 椛は伏し目がちに%CALLNAME:MASTER%を見つめ、一礼した。
					ENDIF
				CASE 1
					PRINTFORMW 椛はどこか熱に浮かされたような視線で%CALLNAME:MASTER%の姿を追っていた…
			ENDSELECT
		;セフレの時1/2、愛人の時2/3で
		ELSEIF TALENT:セフレ && RAND:(1+TALENT:セフレ) < TALENT:セフレ
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「あっ……」
					PRINTFORMW 椛は逡巡するように目を泳がせたあと、会釈を返した。
				CASE 1
					PRINTFORMW 椛はわずかに頬を染めて%CALLNAME:MASTER%に一礼した。
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「こんにちは、%CALLNAME:MASTER%さん」
					PRINTFORMW 椛は恭しく一礼した。
				CASE 1
					PRINTFORMW 椛はイヌミミをピンと立てて会釈を返した。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;る～ことが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他（キャラ指定なし
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

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

;==================================================
;押し倒した
;==================================================
@M_KOJO_EVENT_K65_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
			IF TCVAR:発情
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「…なんですか、もう」
						PRINTFORML 「私がうずうずしてるのわかってるくせに、あちこち撫でまわしたりつついたり…」
						CALL HPH_PRINT,@"「ちゃんと責任、取ってくださいね…HPH」", "W"
					CASE 1
						CALL HPH_PRINT,@"「はーっ、はーっ…%CALLNAME:MASTER%さん…HPH」", "L"
						PRINTFORML 小柄な体からは想像もつかないほどの力で押さえつけられ、%CALLNAME:MASTER%は身動きが取れなくなる。
						CALL HPH_PRINT,@"「しましょ…？ね…HPH」", "L"
						PRINTFORML 可愛らしい猫なで声で情愛を求めてくる椛。だが、その目は完全に据わっている。
						PRINTFORMW …%CALLNAME:MASTER%に拒否権はないようだ。
					CASE 2
						PRINTFORML 「……ひょっとして、こんなふうに私に押し倒されちゃうの期待してました？」
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%さんのえっち……HPH」", "W"
				ENDSELECT
			ELSE
				;IF GROUPMATCH(PREVCOM, 310, 313, 314, 315,316)
				;	PRINTFORML 「%CALLNAME:MASTER%さんはひどい人です」
				SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「…なんですか、もう」
						PRINTFORML 「あちこち撫でまわしたりつついたり…」
						PRINTFORMW 「私だって、いつまでも我慢できるわけじゃないんですからね…」
					CASE 1
						PRINTFORML 「…うう」
						PRINTFORML 「こんなふうに盛り上げられたままじゃ、収まりつかないです…」
						PRINTFORMW 「%CALLNAME:MASTER%さん、しばらく付き合ってください…」
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;好きにして状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			IF TCVAR:発情
				PRINTFORML 「もう。逃げ出そうとしちゃ、めっ、ですよっ」
				CALL HPH_PRINT,@"「言い出したのは%CALLNAME:MASTER%さんなんですから、おちんちんバカになっちゃうまで許してあげませんHPH」", "W"
			ELSE
				PRINTFORML 「もう…今更怖気づいちゃったんですか…？」
				CALL HPH_PRINT,@"「駄目です。えっちな%CALLNAME:MASTER%さんが反省するまで、たっぷり懲らしめちゃうんですから…」", "W"
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			IF TCVAR:発情
				PRINTFORML 「もう。逃げ出そうとしたって、だ～め、ですよっ」
				CALL HPH_PRINT,@"「もっとい～っぱいイカせてもらって、もっとた～くさん射精してもらわなきゃ、満足できませんよぉ…HPH」", "W"
			ELSE
				PRINTFORML 「うう…こんなに興奮したままじゃ、どこにも行けません…」
				PRINTFORMW 「もう少し…もう少しだけ、付き合ってくれませんか…」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「…………」
				PRINTFORML 「……！？！？！？」
				PRINTFORMW 椛は目を白黒させ、訳の分からないことを叫んで%CALLNAME:MASTER%を追い出した…
			CASE 1
				PRINTFORML 「……っ！！！」
				PRINTFORML 「即刻ここから立ち去ってください！さもないと……」
				PRINTFORMW 椛の指先から淡い光が立ち上る。早々に去ったほうがよさそうだ。
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「……%CALLNAME:MASTER%さんですか」
				PRINTFORML 「…ここ、空いてますから」
				PRINTFORMW ほのかに肌を上気させた椛がぽつりと言った。
			CASE 1
				PRINTFORML 「……っ！！！」
				PRINTFORML 「ああ、%CALLNAME:MASTER%さんですか。びっくりしたぁ…」
				PRINTFORMW 椛は肩を撫でおろし、湯船に再び浸かった。追い出す気はないようだ。
		ENDSELECT
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF EX:膣内精液 + EX:アナル内精液 >= 100
			;MASTERが山頂にいる
			IF CFLAG:MASTER:現在位置/100 == 8
				SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「えっと、ご苦労様…」
						PRINTFORML 椛の後輩らしき白狼天狗はオス臭い臭気に少し顔をしかめたが、
						PRINTFORML その発生源を察すると顔を真っ赤にして、挨拶もそこそこに去っていった…
						PRINTFORMW 「…うぅ」
					CASE 1
						PRINTFORML 「あの、お疲れ様です…」
						PRINTFORML おずおずとやってきた椛を見ると、同僚らしき白狼天狗はスンスンと鼻を鳴らした。
						PRINTFORML 仕事前くらい我慢しなさいよね、と軽くたしなめるように言うと、
						PRINTFORML 天狗はニヤニヤと笑みを浮かべながら椛の頭を小突いて去っていった…
						PRINTFORMW 「……はぁ」
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
					CASE 0
						PRINTFORML （こんなに一杯になって…絶対同僚に気づかれちゃうよぉ…）
					CASE 1
						PRINTFORML （うう…あんまり歩くと、こぼれてきちゃいそう…）
				ENDSELECT
			ENDIF
		ELSE
			SELECTCASE RAND:3
				CASE 0
				PRINTFORML 「あ、もうこんな時間…」
				CASE 1
				PRINTFORML 「今日はどんなものが見つかりますかね…」
				CASE 2
				PRINTFORML 「さあ、頑張って見回りといきましょう！」
			ENDSELECT
		ENDIF
		PRINTFORML
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF EX:膣内精液 + EX:アナル内精液 >= 100
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML （気づかれて…ない、よね？）
					PRINTFORML 椛はそわそわしながら周囲を見回している。
				CASE 1
					PRINTFORML （う…あんまり歩くと、こぼれてきちゃいそう…）
				CASE 2
					PRINTFORML \@ EX:膣内精液 >0 ? 胎 # 肛 \@内の精液が気になるのか、椛は仕事に身が入っていないようだ…
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML 椛は凛とした表情で周囲を見回している。
				CASE 1
					PRINTFORML 刀を背負い、ぴんと背筋を伸ばした椛の姿は小柄ながらに威圧感を感じさせる。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE RAND:3
			CASE 0
			PRINTFORML 「今日はここまでですね」
			CASE 1
			PRINTFORML 「交代の時間ですね」
			CASE 2
			PRINTFORML 「今日も無事、お勤め終了ですっ」
		ENDSELECT
	RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML （お腹すいたなあ…）
		PRINTFORML （%CALLNAME:MASTER%さんの方から美味しそうな匂いがするなあ…）
		PRINTFORMW （でも、『少しもらえませんか？』なんて聞いたら意地汚い娘だと思われちゃうかもしれないし…）
		PRINTFORML
		PRINTFORMW ぐぎゅるるるぅぅ～～～っ……
		PRINTFORML
		PRINTFORMW 椛のお腹の音が、周囲に響き渡った…
		PRINTFORML
		PRINTFORMW なんだか居たたまれなくなった%CALLNAME:MASTER%は、何も言わずに食べ物を差し出してあげた…
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_EVENT_K65_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
		PRINTFORML
		;イキすぎ口上の表示条件が満たされていた
		IF EX:Ｖ絶頂 > 15 && BASE:体力 < MAXBASE:体力/2 && BASE:気力 <= 0
			;おなかたぷたぷ
			IF 充填率(65,1) >= 50
				PRINTFORML 「はー…はー…はーっ……」
				CALL HPH_PRINT,@"「うあ、ぁっ……HPH」", "W"
				PRINTFORML
				PRINTFORML 疲弊しきった椛が身体を弛緩させると、再三にわたって注ぎ込まれた濃汁が
				PRINTFORMW ひくひくと蠢く膣口から溢れ出し、地面に向かい流れ落ちていった…
			;MASTERが10回以上射精
			;技巧がアップするとだいたい条件を満たしてしまうので表示頻度は1/3か1/4くらいでもいいかもしれないなーと。
			ELSEIF TCVAR:350 > 3 && RAND:3 == 0
				;IF TCVAR:発情
				;
				;ELSE
					PRINTFORML 「はぁっ…も、もう駄目です…」
					PRINTFORMW 体力の限界に達した椛は、ぐったりと\@ OUTROOF(CFLAG:現在位置) ? %CALLNAME:MASTER%にもたれかかった。 # 横になってしまった。 \@
					PRINTFORML
					PRINTFORML 「うう…どうしてそんなに何回も出せるんですか…」
					PRINTFORML 「……私が可愛すぎるから、って……」
					PRINTFORMW 「…そういうの、ずるいです」
				;ENDIF
			ELSEIF TALENT:恋慕
				IF TCVAR:発情
					PRINTFORMW 「」
				ELSE
					PRINTFORMW 「」
				ENDIF
			ELSE

			ENDIF
		ELSEIF TALENT:恋慕
		ELSE
		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_K65_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_K65_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;幼稚持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K65_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TCVAR:発情
			PRINTFORML 「あぅ…その、うぅ～」
			PRINTFORML 「今ナマでしちゃったら、本当に赤ちゃんできちゃいますから…」
			PRINTFORMW 「どうか、避妊だけは…ちゃんと、してください…」
		ELSE
			PRINTFORML 「あの…えっと…」
			PRINTFORML 「ちゃんと、避妊はしてくださいね…」
			PRINTFORMW 椛は%CALLNAME:MASTER%の目をじっと見つめている…
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「う…」
		PRINTFORMW 「%CALLNAME:MASTER%さんのえっち」
		PRINTFORML
		PRINTFORML 「わかりました…」
		PRINTFORMW 「今日は…ナマでしても、いいですよ」
		PRINTFORML
		PRINTFORML 「でも、本当に危ない日はダメですからね？約束ですよ？」
		PRINTFORMW 椛はピッと指を立てて、諭すように%CALLNAME:MASTER%にいった。
		PRINTFORML
		PRINTFORMW その背後では、何かを期待するようにふさふさと尻尾が揺れていた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;必然的に発情中なのでは。
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML 「はぁ…」
		PRINTFORML 「%CALLNAME:MASTER%さんは大胆すぎます」
		PRINTFORMW 「御山の天狗を身籠らせたなんて噂が立ったら、大変ですよ」
		PRINTFORML
		PRINTFORML 情欲に濡れた瞳のまなじりを吊り上げ、椛が威圧してみせる。
		PRINTFORML 「……ん」
		PRINTFORMW だが%CALLNAME:MASTER%が彼女の手を握ると、椛もきゅっと握り返してきた。
		PRINTFORML
		PRINTFORMW 「どうしたって退く気がないなら…わかりました、私もお付き合いします」
		PRINTFORML
		PRINTFORMW 「いいですよ…きて、ください…」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K65_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;--------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「…ありがとうございます！！じゃあ、さっそく荷物をまとめてきますね！」
		PRINTFORML 椛はぱぁっと笑みを浮かべて妖怪の山へ駆けて行った。
		PRINTFORMW 彼女の背後で元気にはためく尻尾が、その喜びをわかりやすく表している。
		PRINTFORML
		PRINTFORML 「山を離れるのは、少しドキドキしますが…」
		PRINTFORML 「%CALLNAME:MASTER%さんと一緒の場所に住めることに、何よりも一番ドキドキしますね」
		PRINTFORMW 少しはにかむと、椛はきゅっと%CALLNAME:MASTER%の手を握った。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K65_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K65_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW ふと気づくと、%GET_MAPNAME(MAIN_MAP)%の方に目が行ってしまう。
		PRINTFORML
		PRINTFORMW 仕事をしていても。
		PRINTFORMW 友達と語らう時も。
		PRINTFORMW こうして、寝床に入っていても。
		PRINTFORMW どこか視線の端に、\@ TALENT:MASTER:性別 == 2 ? 彼 # 彼女 \@の姿を探してしまう。
		PRINTFORML
		PRINTFORMW そうして、\@ TALENT:MASTER:性別 == 2 ? 彼 # 彼女 \@と楽しく話せた日には、その会話を何度も反芻したり。
		PRINTFORMW \@ TALENT:MASTER:性別 == 2 ? 彼 # 彼女 \@が他のだれかと楽しそうに話しているのを視た日には、少し不機嫌になってしまったり。
		PRINTFORMW 知れず知れず%CALLNAME:MASTER%を意識している自分がもどかしくて、やるせなくて。
		PRINTFORML
		PRINTFORMW ……でも。
		PRINTFORMW そんなもどかしい、やるせない気持ちを楽しんでいる自分がいて。
		PRINTFORMW 寝床でまどろみながらも%CALLNAME:MASTER%の姿を探して、心を弾ませていて。
		PRINTFORML
		PRINTFORMW 「……好き」
		PRINTFORML
		PRINTFORMW 「%CALLNAME:MASTER%さんが、好き」
		PRINTFORMW 口にしてみると、この言葉が驚くほどに心の底へストンと落ちて、温かい気持ちになる。
		CALL HPH_PRINT,@"「……ふふ、%CALLNAME:MASTER%さんが好き……HPH」","W"
		PRINTFORMW 椛はその夜、自らの中に育っていた恋心を自覚しながら、幸せな眠りについた。
		PRINTFORML
		PRINTFORMW 最近よそ見が多すぎると上司に苦言を呈されたのは、また別のお話。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		PRINTFORMW 雑事を終えて床に就いた椛は、まどろみながら一日の出来事を反芻していた。
		PRINTFORML （今日も%CALLNAME:MASTER%さんのお話は面白かったなぁ…）
		PRINTFORMW （明日もまた、会えるかな…）
		PRINTFORML
		PRINTFORML ふと気づくと、%CALLNAME:MASTER%について考えている。
		PRINTFORMW そんな瞬間が最近増えていると椛は感じていた。
		PRINTFORMW （私…\@ TALENT:MASTER:性別 == 2 ? 彼 # 彼女 \@のこと、好きなのかな…）
		PRINTFORML
		PRINTFORMW ざわざわ。
		PRINTFORML いつもと変わらない木々の葉擦れの音が、今夜は妙に耳につくような気がして。
		PRINTFORMW 椛は寝付くこともできないまま、ただただ堂々巡りの思考に陥るのだった。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K65_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 ABL:欲望 >= 7 && RAND:3
			PRINTFORML 「ふ、くぅっ……」
			PRINTFORML 「………」
			PRINTFORMW 少女はふと指を止め、おもむろに枕へ跨ると、しっとりと濡れた秘所を布地へ押しつけた。
			PRINTFORML
			CALL HPH_PRINT,@"「ん……HPHん、んっ……HPHはぁ、んんっ……HPHHPH」","L"
			PRINTFORML 素股奉仕をするかのように陰唇を擦りあげて、椛は摩擦性感を得ようとしはじめる。
			PRINTFORMW …自分で腰を振ったほうが興奮する。そんな快楽の回路が、彼女の脳内に形成されてしまったらしい。
			PRINTFORML
			PRINTFORML (どうしよう……私、あの人と会ってから、どんどんえっちになって…)
			PRINTFORML わずかな背徳感。それがむしろ、少女の身体をより熱く火照らせ、漏れ出る声に艶を与えていく。
			CALL HPH_PRINT,@"「は、はぁっ……んん、きもち、いい……HPH…%CALLNAME:MASTER%、さん……」","W"
		ELSEIF (TALENT:恋慕 || TALENT:思慕 || TALENT:愛欲 || TALENT:セフレ) && RAND:2
			CALL HPH_PRINT,@"「%TEXTR("ん、ぁっ……ふぅっ…/ん…ぅん……ぁ…/")%HPH」","L"
			PRINTFORML 可憐な指先が、白い肌をツツッと這い回る。
			PRINTFORML （あのひとは、こんなふうに……）
			PRINTFORML 思い人に触れられた記憶をたどりながら、椛は切なげに身体をよじっていた…
			PRINTFORMW 「%TEXTR("く、んんっ……ぅぁ/ふぁ、……ぁっ…！/")%……%CALLNAME:MASTER%、さんっ……」
		ELSE
			PRINTFORML 「%TEXTR("はぁ、あ…ん…/ふっ…ぅん……/")%」
			PRINTFORML %TEXTR("椛は下着越しの陰核に指を立て、かりかりと軽く引っ掻くように往復させる。/細くしなやかな指先が、裂け目の形を確かめるようにじっくりと秘所をなぞり上げる。/")%
			PRINTFORML 「%TEXTR("あ、くぅ…んっ…！/…ひ、は……んんっ……！/")%」
			PRINTFORMW %TEXTR("ひときわ大きく切なげな声を上げると、椛はくったりと脱力した…/クチュクチュという静かな水音と断続的に漏れる吐息が、夜陰の中へ儚く吸い込まれていった…/")%
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	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
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		CALL HPH_PRINT,@"「はっ、ゃ……！ぁHPHああッ……！！～～～っHPHHPH」","L"
		PRINTFORML 幾度目かの絶頂を迎えたなめらかな肢体がびくん、びくんと波打ち、
		PRINTFORMW こときれるように、くったりと弛緩する。
		PRINTFORML
		CALL HPH_PRINT,@"「はぁっ……はぅ…HPH」","L"
		PRINTFORMW 椛は汗に濡れた寝床に横たわって息を弾ませながら、
		PRINTFORML
		PRINTFORML 「%CALLNAME:MASTER%さん…」
		PRINTFORMW 震える肩を抱きとめてくれるひとが居ないことを寂しく思った。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	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
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML
				PRINTFORML ……ジョークグッズ。
				PRINTFORMW これまでの椛にとっては、存在を知ってはいても縁遠かったもの。
				PRINTFORML
				CALL HPH_PRINT,@"「ひ、ぅ……あぐっHPH」","L"
				PRINTFORML いまやそれは、彼女のすぐ身近…をゆうに通り越し、柔肌にぴたりとくっついていた…
				CALL HPH_PRINT,@"「あ、うぅっHPHこれ、ブルブルって震えて……きゃ、ぅ…HPH」","W"
			;[ヤリマン]プレイの人にはすまない…
			CASE 1
				PRINTFORML 河童の機械独特の奇妙で猥褻な動きは、どんな生物にも似通っていない。
				PRINTFORMW その動きに本能的な恐怖を感じたのか、椛はソレを挿入することはしなかった。
				PRINTFORML
				CALL HPH_PRINT,@"「うぁ……HPH…なに、これ、ぇ…！？」","L"
				PRINTFORMW あるいは、押し付けるだけで十分愉しんだのかもしれない。
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「明日は、%CALLNAME:MASTER%さんに会えるかな…」
				PRINTFORMW 椛はぽつりと呟いた。
			CASE 1
				PRINTFORML 布団の端がもぞもぞと動き、指先が物寂しそうに襦袢の裾を弄り回す。
				PRINTFORML 「………」
				PRINTFORMW しかし椛は弱弱しく首を横に振って、両腕を枕に静かな寝息を立て始めた…
		ENDSELECT
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K65_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K65_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K65_25(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K65_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_K65_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1

			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K65_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_K65_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_K65_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORML
		IF TCVAR:発情
			PRINTFORML 「はぁーっ…はぁーっ……うぅ……」
			PRINTFORML 椛は頬を上気させたまま、荒い息をついて%CALLNAME:MASTER%の胸元に倒れ込んだ。
			PRINTFORMW 彼女の身体はいまだ獣欲に燃え上がっているものの、すでに体力が残っていないようだ…
		ELSE
			PRINTFORML 「あの…自分から始めておいてこんなことを言うのは失礼かもしれませんが…」
			PRINTFORMW 「ちょっと、疲れちゃいました……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML
		IF TCVAR:発情
			PRINTFORML 「はぁ…はぁっ……えへ、満足です……」
			PRINTFORML 「…また、しましょうね？」
			PRINTFORML 椛は頬を上気させたまま、にっこりと微笑んで見せる。
			PRINTFORMW ……やはり、こちらに拒否権はないようだ。
		ELSE
			PRINTFORML 「ふぅーっ……」
			PRINTFORM 「……っ！！ごめんなさいごめんなさい！！私、なんてことを……
			SIF ABL:欲望 > 3
				PRINTFORM でも、またしてくれますよね……？
			PRINTFORMW 」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORML
		IF TCVAR:発情
			PRINTFORML 「きゃっ……！？」
			PRINTFORML 突然の出来事に驚きの表情を浮かべていた椛だが、状況を理解すると困ったように微笑んだ。
			PRINTFORML 「あれだけしたのに、まだ足りないんですか…？」
			CALL HPH_PRINT,@"「…もう。%CALLNAME:MASTER%さんのケダモノ……HPH」", "L"
			PRINTFORMW 発情に蕩めく瞳に、蠱惑的な光が宿った…
		ELSE
			PRINTFORML %CALLNAME:MASTER%は満足げに息をついていた椛を押し倒した！
			PRINTFORML 「きゃっ……！？」
			PRINTFORML 突然の出来事に驚愕を隠せなかった椛だが、状況を理解すると困ったように微笑んだ。
			PRINTFORML 「あれだけしたのに、まだ足りないんですか…？」
			CALL HPH_PRINT,@"（うぅ、%CALLNAME:MASTER%さんってやっぱり凄いなぁ…HPH）", "W"
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML
		IF TCVAR:発情
			PRINTFORML 「えっ…まだ、したいんですか？」
			PRINTFORML %CALLNAME:MASTER%を見下ろす椛の瞳に嗜虐的な光が宿る。
			PRINTFORML 「もう、%CALLNAME:MASTER%さんのえっち…」
			PRINTFORML 「わかりました。%CALLNAME:MASTER%さんがカラッポになっておちんちんダメになっちゃうまで、
			CALL HPH_PRINT,@"　ぜーんぶ搾り取っちゃいますね……HPH」", "W"
		ELSE
			PRINTFORML 「えっ…まだ、したいんですか？」
			PRINTFORML %CALLNAME:MASTER%を見下ろす椛は驚きに目を見開く。
			PRINTFORML 「…そんなに気持ちよかったんですか？」
			PRINTFORML %CALLNAME:MASTER%が頷くと、上気した椛の頬がさらに赤く染まる。
			PRINTFORML 「もう、%CALLNAME:MASTER%さんのえっち…」
			PRINTFORMW （なんだか、すごく嬉しいな…）
		ENDIF

		RETURN 1
	ENDIF
ENDIF
RETURN 1

[SKIPSTART]
;-------------------------------------------------
;オナバレ遭遇時の地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K65_ONABARE_1(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレでそのまま続けてもらう場合の地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K65_ONABARE_2(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレなし崩しックスの地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K65_ONABARE_3(前戯１,本番はどっちか,回数,注入量)
;-------------------------------------------------
#DIM 前戯１
;1=C 2=B 3=M
#DIM 本番はどっちか
;0でＶ、1でＡ
#DIM 注入量
#DIM 回数

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

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

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