code:
;---------------------------------------------------------------------------------------
;eraTW東風谷早苗口上体験版Ver0.03
;
;※注意　本体バージョン更新の際には
;　　　　『@M_KOJO_UPDATE_K31』の「#DIM CONST 早苗口上ver」の更新を忘れないこと！！
;---------------------------------------------------------------------------------------

;------M_KOJO_K31_イベント.ERB----------------------------------------------------------
;2017/4/26　Ver 0.03.02　UPDATEの処理を他ファイルに分離(今後肥大化が予想されるため)
;2017/4/22　Ver 0.03.01　バージョンアップによる素質の上書きに対処
;2017/4/10　Ver 0.03.00　バージョン管理開始
;---------------------------------------------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。
;現在、主人公男あなたのみに対応
;なりきりは、対応の予定なし(勝手に加筆してもええんやで)
;完成予定は、東京オリンピックまでには…、リニアとどっちが早いだろうか？
;
;本口上の基本方針演説
;一、基本ギャグで始まり、ギャグに終わること
;一、シリアスをあんまり入れない
;(一、あんまりあなたを喋らせない)作者に文章力無いので不可能
;一、全くもって同じ内容の口上をあんまり何度も見せない
;一、一度しか見せない口上は長く、何度も見る口上は短め(4行程度目安)に
;一、独自設定をいっぱい作らない
;一、定期的に進捗を上げる
;一、上の項目達が無理そうなら妥協する
;一、エタらない
;
;
;本口上の構造
;本口上は章立て構成
;特定の条件を満たすとイベント口上が出現します
;そこでの選択肢によって次の章における分岐があります
;…なんでこんな面倒くさい構成にしたのやら
;一応、プレイするごとに内容が変わる口上を目指してます
;
;第1章 関係性:他人(好感度G信頼度G)
;第2章 関係性:知人(好感度E信頼度E)
;第3章 関係性:友人(好感度D信頼度D)
;------------此処から先は、何か適切な単語を見つけて変更する予定---------------
;第4章 関係性:思慕(好感度C信頼度C)
;第5章 関係性:恋慕(好感度B信頼度B)
;第6章 関係性:恋人(好感度A信頼度A)←恋人になれなかった場合は5章止まりにするか検討中
;
;口上作成上のメモ
;守矢神社はあまり大きくない
;あなた、早苗、神奈子、諏訪子、(そして咲夜、レミリア等紅魔組)は外来人
;せっかく音楽Bなので巫女アイドル早苗さんルートを
;食事の用意は守矢神社のメンツの当番制 …なのにみんな技能なし…あっ(察し)
;というか、これ音楽技能と料理技能間違えて設定してるだけなんじゃ…　まあええわ
;(追記)やっぱり気になったので料理技能追加(2)
;
;大まかな流れ
;1章
;　出会い
;2章
;　仕事手伝い（通常）
;　仕事手伝いそっちのけ（レア）
;3章
;　アイドル(A)
;　入信　　(B)
;　妖怪退治(C)
;4章
;　祭り手伝い　　　(A)
;　不適切な関係　　(B)
;　相棒　　　　　　(C)
;5章
;　告白　　(A)
;　告白　　(B)
;　告白　　(C)
;6章
;　恋人になるかならないかで分岐
;
;
;
;本口上のみにおける独自設定
;レズ経験の10に対する扱いは…考え中(うまく使ってみたいなぁ)
;早苗はピアノ経験のみ、ギター、トランペット、ヴァイオリンは聞きかじりの知識
;基本語尾は「っ」、音楽関係の話で盛り上がってくると「♪」、真面目モードだと語尾なし
;
;
;
;基本情報メモ(TW小傘口上より書式を拝借)
;[New!]は本バージョンによって追加される技能・能力(左は追加されたバージョン)
;
;	名前:東風谷早苗, 呼び名:早苗
;	体力:2200, 気力:1500, 酒気:1200
;	素質:
;		[処女][気丈][反抗的][プライド高い][好奇心][貞操観念][解放][魅力][Ｃ敏感][Ｖ敏感][酒に弱い][人気][巫女]
;
;	能力:
;		サドっ気 = F (1)
;		レズっ気 = F (1)
;		    教養 = D (1)
;		話術技能 = D (1)
;		戦闘能力 = B (3)
;		清掃技能 = D (1) → E (0)	(Ver 0.03)[New!]
;		音楽技能 = B (3)
;		料理技能 = E (0) → C (2)	(Ver 0.03)[New!]
;	性技:
;		なし
;	経験
;		自慰経験 =   10
;		レズ経験 =   10
;		清掃経験 =   20 → 4		(Ver 0.03)[New!]
;		会話経験 =   20
;		戦闘経験 =  200
;		学習経験 =   20
;		料理経験 =   50 			(Ver 0.03)[New!]
;		演奏経験 =  200 			(Ver 0.03)[New!]
;	味覚嗜好
;		普通
;
;	活動時間	11時～21時
;	出現時間	8時～1時
;	仕事内容	勧誘活動
;	仕事時間	火・金　12時～16時
;	仕事場所	里の広場
;
;
;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等

;CFLAG
;CFLAG:31:3100～CFLAG:31:3199まで(後に1000番台に引っ越す予定)
;CFLAG:31:3100 各選択肢で何を選択したか(10進数管理)
;000 000 000 000 000
;5章、4章、3章、2章、1章の順、未選択なら0、Aルート選択だと1、Bルート選択だと2
;現状6章がゴールなので選択肢の記録が必要なのは5章まで
;CFLAG:31:3101 本口上の1章のシナリオ(未到達時は-1)
;CFLAG:31:3102 本口上の2章のシナリオ(未到達時は-1)
;CFLAG:31:3103 本口上の3章のシナリオ(未到達時は-1)
;CFLAG:31:3104 本口上の4章のシナリオ(未到達時は-1)
;CFLAG:31:3105 本口上の5章のシナリオ(未到達時は-1)
;CFLAG:31:3106 本口上の6章のシナリオ(未到達時は-1)

;3110番台：口上内アイテム関連（口上内のシナリオ及び選択肢によって所持することがある）
;CFLAG:31:3110 幸せのベッド所持フラグ(1:幸せのベッドを持っている、0:持っていない)
;3120番台：口上システム関連(主にUPDATEにて使用)
;CFLAG:31:3120 本口上のバージョン
;CFLAG:31:3121 早苗さん素質能力変更フラグ(1で変更承諾　-1で変更否定　0で保留)

;TCVAR
;TCVAR:31:350～TCVAR:31:360
;シナリオ用(会話連打の途中にシナリオが入ってこないように)

;TCVAR:31:350  料理を作っているとこを早苗は見たか？(YES:FLAG:料理の値 NO:0)

;TCVAR:31:360 その日会話を既に行ったかどうか？(0：行っていない　1：行っている)
;******************************************************************************

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

;RESULTS = _TEST_

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

;ここでCFLAGやTALENTを利用する場合、キャラ番号が必須です

;眠姦口上有に1を入れると、眠姦時にコマンド口上が読み込まれるように
CFLAG:31:眠姦口上有 = 0
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K31

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K31
;######################
;各変数の初期化
;######################
CALL フラグ初期化_K31()

;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;記述は冗長だがわかりやすさ重視
;「他人」この時点では巫女呼ばわり
;せっかく自分で作った守矢くじデート使わないのはもったいないよね
;ということで、入るのがくっそ難しい裏ルート(誰も入らないだろうし、まあええか)
IF FLAG:守矢くじデート相手 == 31
	;レアルート「第1章　出会って3秒即デート！？」突入
	;頭痛い感じのタイトルはわざと
	CFLAG:31:3101 = 10000
	;----------------------------------------------------------------------------
	;レアルート「第1章　出会って3秒即デート！？」	イベントID:10000
	;第1章第1選択肢(初対面時イベント)
	;			A選択肢	無難なデート				イベントID:10001
	;			B選択肢	初デートは強引に			イベントID:10002
	;----------------------------------------------------------------------------
	CALL M_KOJO_EVENT_K31_シナリオイベント(1,1)
	;守矢くじデートでの出会いの際にはシステム上面識がつかないのでここで強引に付ける
	CFLAG:31:18 = 1
	TCVAR:31:K31_TCVAR_その日初_遭遇 ++
ELSE
	;通常ルート「第1章　はじめまして」突入
	CFLAG:31:3101 = 0
	;----------------------------------------------------------------------------
	;通常ルート「第1章　はじめまして」			イベントID:0
	;第1章第1選択肢(初対面時イベント)
	;			A選択肢	粗茶ですが				イベントID:1
	;			B選択肢	初接触					イベントID:2
	;----------------------------------------------------------------------------
	CALL M_KOJO_EVENT_K31_シナリオイベント(1,1)
	TCVAR:31:K31_TCVAR_その日初_遭遇 ++
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K31_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;第6章解放 関係性:恋人(好感度A信頼度A)
	IF CFLAG:31:3106 != -1
	;第5章解放 関係性:恋慕(好感度B信頼度B)
	ELSEIF CFLAG:31:3105 != -1
	;第4章解放 関係性:思慕(好感度C信頼度C)
	ELSEIF CFLAG:31:3104 != -1
	;第3章解放 関係性:友人(好感度D信頼度D)
	ELSEIF CFLAG:31:3103 != -1
	;第2章解放 関係性:知人(好感度E信頼度E)
	ELSEIF CFLAG:31:3102 != -1
		;通常ルート「第2章　守矢さんちの現人神」
		IF CFLAG:31:3102 == 10
		;通常ルート「第2章　信者獲得大作戦」
		ELSEIF CFLAG:31:3102 == 20
		;レアルート「第2章　くじで繋がる縁」
		ELSEIF CFLAG:31:3102 == 10010
		;レアルート「第2章　奇跡のおこしかた」
		ELSEIF CFLAG:31:3102 == 10020
		ENDIF
	;第1章解放 関係性:他人(好感度G信頼度G)
	;口上の整合性上キスキャンセルするよ！すまんな(誰も入らないだろうし、まあええか)
	;ここ書く必要あるの？こんな関係性のデートでここに持っていける人そのやり方教えてください(切実)
	;追記:物語をずっと進めなかったらここに来るか…それは筆者の想定外なので対応しませんっ　すまんち！
	ELSEIF CFLAG:31:3101 != -1
		;通常ルート「第1章　はじめまして」
		IF CFLAG:31:3101 == 0
			PRINTFORMW 「ここまでで結構です、どうもありがとうございました」
			PRINTL
			PRINTFORMW …まぁ、こんなものだろう
			PRINTFORMW そもそも、知人と呼ぶのも微妙な間柄である
			PRINTFORMW 今日は、デートをしたというよりも彼女に幻想郷の案内をしてもらったという方が正しいだろう…
			PRINTFORMW 後日何かお礼をしないとな、と思う%CALLNAME:MASTER%であった
			;キスをキャンセルしたい場合は以下を開放
			TCVAR:キスキャンセル = 1
			RETURN 1
		;レアルート「第1章　出会って3秒即デート！？」
		ELSEIF CFLAG:31:3101 == 10000
			PRINTFORMW 「今日はどうもご迷惑をおかけしました」
			PRINTL
			PRINTFORMW …まぁ、こんなものだろう
			PRINTFORMW そもそも、初対面である
			PRINTFORMW なるべく彼女が楽しめるように配慮はしたが、そもそもこの幻想郷のどこに何があるのかも知らない自分にはこれが限界だろう…
			PRINTL
			PRINTFORMW 「でも…」
			;楽しかった模様
			PRINTFORMW 「今日は凄く楽しかったです！　ありがとうございましたっ！」
			;キスをキャンセルしたい場合は以下を開放
			TCVAR:キスキャンセル = 1
			RETURN 1
		ENDIF
	;ファッ？
	ELSE
		PRINTFORML ERROR 申し訳ありませんエラーが発生しました
		PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
		PRINTFORML エラーメッセージ01 「デート帰りにファーストKISS」においてELSEが選択
	ENDIF
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;=================================================================
;デート帰りに告白（恋人が付く）
;※注意※
;本口上では「デート帰りに告白」イベントは発生いたしません！！！
;TALENT:恋人は本口上イベントの終盤に様々な形で付与されます
;=================================================================
@M_KOJO_SPEVENT_K31_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
		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_K31_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
		;第6章解放 関係性:恋人(好感度A信頼度A)
		IF CFLAG:31:3106 != -1
		;第5章解放 関係性:恋慕(好感度B信頼度B)
		ELSEIF CFLAG:31:3105 != -1
		;第4章解放 関係性:思慕(好感度C信頼度C)
		ELSEIF CFLAG:31:3104 != -1
		;第3章解放 関係性:友人(好感度D信頼度D)
		ELSEIF CFLAG:31:3103 != -1
		;第2章解放 関係性:知人(好感度E信頼度E)
		ELSEIF CFLAG:31:3102 != -1
			;通常ルート「第2章　守矢さんちの現人神」
			IF CFLAG:31:3102 == 10
			;通常ルート「第2章　信者獲得大作戦」
			ELSEIF CFLAG:31:3102 == 20
			;レアルート「第2章　くじで繋がる縁」
			ELSEIF CFLAG:31:3102 == 10010
			;レアルート「第2章　奇跡のおこしかた」
			ELSEIF CFLAG:31:3102 == 10020
			ENDIF
		;第1章解放 関係性:他人(好感度G信頼度G)
		ELSEIF CFLAG:31:3101 != -1
			;通常ルート「第1章　はじめまして」
			IF CFLAG:31:3101 == 0
			;レアルート「第1章　出会って3秒即デート！？」
			ELSEIF CFLAG:31:3101 == 10000
			ENDIF
		;ファッ？
		ELSE
			PRINTFORML ERROR 申し訳ありませんエラーが発生しました
			PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
			PRINTFORML エラーメッセージ02 「デート帰り 通常帰宅」においてELSEが選択
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;第6章解放 関係性:恋人(好感度A信頼度A)
		IF CFLAG:31:3106 != -1
		;第5章解放 関係性:恋慕(好感度B信頼度B)
		ELSEIF CFLAG:31:3105 != -1
		;第4章解放 関係性:思慕(好感度C信頼度C)
		ELSEIF CFLAG:31:3104 != -1
		;第3章解放 関係性:友人(好感度D信頼度D)
		ELSEIF CFLAG:31:3103 != -1
		;第2章解放 関係性:知人(好感度E信頼度E)
		ELSEIF CFLAG:31:3102 != -1
			;通常ルート「第2章　守矢さんちの現人神」
			IF CFLAG:31:3102 == 10
			;通常ルート「第2章　信者獲得大作戦」
			ELSEIF CFLAG:31:3102 == 20
			;レアルート「第2章　くじで繋がる縁」
			ELSEIF CFLAG:31:3102 == 10010
			;レアルート「第2章　奇跡のおこしかた」
			ELSEIF CFLAG:31:3102 == 10020
			ENDIF
		;第1章解放 関係性:他人(好感度G信頼度G)
		ELSEIF CFLAG:31:3101 != -1
			;通常ルート「第1章　はじめまして」
			IF CFLAG:31:3101 == 0
			;レアルート「第1章　出会って3秒即デート！？」
			ELSEIF CFLAG:31:3101 == 10000
			ENDIF
		;ファッ？
		ELSE
			PRINTFORML ERROR 申し訳ありませんエラーが発生しました
			PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
			PRINTFORML エラーメッセージ03 「デート帰り 反発刻印消去イベント」においてELSEが選択
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;第6章解放 関係性:恋人(好感度A信頼度A)
		IF CFLAG:31:3106 != -1
		;第5章解放 関係性:恋慕(好感度B信頼度B)
		ELSEIF CFLAG:31:3105 != -1
		;第4章解放 関係性:思慕(好感度C信頼度C)
		ELSEIF CFLAG:31:3104 != -1
		;第3章解放 関係性:友人(好感度D信頼度D)
		ELSEIF CFLAG:31:3103 != -1
		;第2章解放 関係性:知人(好感度E信頼度E)
		ELSEIF CFLAG:31:3102 != -1
			;通常ルート「第2章　守矢さんちの現人神」
			IF CFLAG:31:3102 == 10
			;通常ルート「第2章　信者獲得大作戦」
			ELSEIF CFLAG:31:3102 == 20
			;レアルート「第2章　くじで繋がる縁」
			ELSEIF CFLAG:31:3102 == 10010
			;レアルート「第2章　奇跡のおこしかた」
			ELSEIF CFLAG:31:3102 == 10020
			ENDIF
		;第1章解放 関係性:他人(好感度G信頼度G)
		ELSEIF CFLAG:31:3101 != -1
			;通常ルート「第1章　はじめまして」
			IF CFLAG:31:3101 == 0
			;レアルート「第1章　出会って3秒即デート！？」
			ELSEIF CFLAG:31:3101 == 10000
			ENDIF
		;ファッ？
		ELSE
			PRINTFORML ERROR 申し訳ありませんエラーが発生しました
			PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
			PRINTFORML エラーメッセージ04 「デート帰り 反発刻印2>1レベルダウンイベント」においてELSEが選択
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;第6章解放 関係性:恋人(好感度A信頼度A)
		IF CFLAG:31:3106 != -1
		;第5章解放 関係性:恋慕(好感度B信頼度B)
		ELSEIF CFLAG:31:3105 != -1
		;第4章解放 関係性:思慕(好感度C信頼度C)
		ELSEIF CFLAG:31:3104 != -1
		;第3章解放 関係性:友人(好感度D信頼度D)
		ELSEIF CFLAG:31:3103 != -1
		;第2章解放 関係性:知人(好感度E信頼度E)
		ELSEIF CFLAG:31:3102 != -1
			;通常ルート「第2章　守矢さんちの現人神」
			IF CFLAG:31:3102 == 10
			;通常ルート「第2章　信者獲得大作戦」
			ELSEIF CFLAG:31:3102 == 20
			;レアルート「第2章　くじで繋がる縁」
			ELSEIF CFLAG:31:3102 == 10010
			;レアルート「第2章　奇跡のおこしかた」
			ELSEIF CFLAG:31:3102 == 10020
			ENDIF
		;第1章解放 関係性:他人(好感度G信頼度G)
		ELSEIF CFLAG:31:3101 != -1
			;通常ルート「第1章　はじめまして」
			IF CFLAG:31:3101 == 0
			;レアルート「第1章　出会って3秒即デート！？」
			ELSEIF CFLAG:31:3101 == 10000
			ENDIF
		;ファッ？
		ELSE
			PRINTFORML ERROR 申し訳ありませんエラーが発生しました
			PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
			PRINTFORML エラーメッセージ05 「デート帰り 反発刻印3>2レベルダウンイベント」においてELSEが選択
		ENDIF
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K31_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;その日初めて遭遇した場合
	IF !TCVAR:31:K31_TCVAR_その日初_遭遇
		;レアルート「第1章　出会って3秒即デート！？」
		IF CHAPTER_攻略中_K31(10000)
			;-----------------------------------------------------------------------------
			;レアルート「第1章　出会って3秒即デート！？」	イベントNo.10000
			;第2選択肢(非デート中に何処かで会話+その日最初に出会う)
			;			A選択肢	触らぬ現人神に祟りなし		イベントNo.10003
			;			B選択肢	デートのあとで				イベントNo.10004
			;-----------------------------------------------------------------------------
			SIF EVENT_次の選択肢_K31() == 2 && !CFLAG:31:デート中
				CALL M_KOJO_EVENT_K31_シナリオイベント(1,2)
		;「第2章　奇跡のおこしかた」攻略中
		ELSEIF CHAPTER_攻略中_K31(10020)
			;----------------------------------------------------------------------------
			;レアルート「第2章　奇跡のおこしかた」			イベントNo.10020
			;第2章第2選択肢(好感度700以上+その日最初に出会う)
			;			A選択肢	手練による犯行？			イベントID:10023
			;			B選択肢	騙されてますよ！！			イベントID:10024
			;----------------------------------------------------------------------------
			IF EVENT_次の選択肢_K31() == 2 && CFLAG:31:2 >= 700
				CALL M_KOJO_EVENT_K31_シナリオイベント(2,2)
			;----------------------------------------------------------------------------
			;レアルート「第2章　奇跡のおこしかた」			イベントNo.10020
			;第2章第3選択肢(好感度900以上+その日最初に出会う)
			;			A選択肢	興味ありません(嘘)			イベントID:10025
			;			B選択肢	ほっと一息					イベントID:10026
			;----------------------------------------------------------------------------
			ELSEIF EVENT_次の選択肢_K31() == 3 && CFLAG:31:2 >= 900
				CALL M_KOJO_EVENT_K31_シナリオイベント(2,3)
			;----------------------------------------------------------------------------
			;レアルート「第2章　奇跡のおこしかた」			イベントNo.10020
			;第2章第4選択肢(好感度1000信頼度100を満たす+その日最初に出会う)
			;			Aルート	守矢神社の早苗さん			イベントNo.10110
			;			Bルート	妖怪バスターズ				イベントNo.120
			;----------------------------------------------------------------------------
			;ELSEIF EVENT_次の選択肢_K31() == 2 && CFLAG:31:2 >= 1000 && CFLAG:31:4 >= 100
			;	CALL M_KOJO_EVENT_K31_シナリオイベント(2,4)

			;どの分岐にも入らなかった場合
			ELSE
				TCVAR:31:K31_TCVAR_その日初_遭遇 ++
				GOTO 汎用セリフ_EVENT_K31_1
			ENDIF
		ENDIF
		TCVAR:31:K31_TCVAR_その日初_遭遇 ++
		RETURN 1
	ENDIF

$汎用セリフ_EVENT_K31_1
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;第6章解放 関係性:恋人(好感度A信頼度A)
		IF CFLAG:31:3106 != -1
		;第5章解放 関係性:恋慕(好感度B信頼度B)
		ELSEIF CFLAG:31:3105 != -1
		;第4章解放 関係性:思慕(好感度C信頼度C)
		ELSEIF CFLAG:31:3104 != -1
		;第3章解放 関係性:友人(好感度D信頼度D)
		ELSEIF CFLAG:31:3103 != -1
		;第2章解放 関係性:知人(好感度E信頼度E)
		ELSEIF CFLAG:31:3102 != -1
			;通常ルート「第2章　守矢さんちの現人神」
			IF CFLAG:31:3102 == 10
			;通常ルート「第2章　信者獲得大作戦」
			ELSEIF CFLAG:31:3102 == 20
			;レアルート「第2章　くじで繋がる縁」
			ELSEIF CFLAG:31:3102 == 10010
			;レアルート「第2章　奇跡のおこしかた」
			ELSEIF CFLAG:31:3102 == 10020
			ENDIF
		;第1章解放 関係性:他人(好感度G信頼度G)
		ELSEIF CFLAG:31:3101 != -1
			;通常ルート「第1章　はじめまして」
			IF CFLAG:31:3101 == 0
			;レアルート「第1章　出会って3秒即デート！？」
			ELSEIF CFLAG:31:3101 == 10000
			ENDIF
		;ファッ？
		ELSE
			PRINTFORML ERROR 申し訳ありませんエラーが発生しました
			PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
			PRINTFORML エラーメッセージ06 「部屋で遭遇 MASTERが入ってきた」においてELSEが選択
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;第6章解放 関係性:恋人(好感度A信頼度A)
		IF CFLAG:31:3106 != -1
		;第5章解放 関係性:恋慕(好感度B信頼度B)
		ELSEIF CFLAG:31:3105 != -1
		;第4章解放 関係性:思慕(好感度C信頼度C)
		ELSEIF CFLAG:31:3104 != -1
		;第3章解放 関係性:友人(好感度D信頼度D)
		ELSEIF CFLAG:31:3103 != -1
		;第2章解放 関係性:知人(好感度E信頼度E)
		ELSEIF CFLAG:31:3102 != -1
			;通常ルート「第2章　守矢さんちの現人神」
			IF CFLAG:31:3102 == 10
			;通常ルート「第2章　信者獲得大作戦」
			ELSEIF CFLAG:31:3102 == 20
			;レアルート「第2章　くじで繋がる縁」
			ELSEIF CFLAG:31:3102 == 10010
			;レアルート「第2章　奇跡のおこしかた」
			ELSEIF CFLAG:31:3102 == 10020
			ENDIF
		;第1章解放 関係性:他人(好感度G信頼度G)
		ELSEIF CFLAG:31:3101 != -1
			;通常ルート「第1章　はじめまして」
			IF CFLAG:31:3101 == 0
			;レアルート「第1章　出会って3秒即デート！？」
			ELSEIF CFLAG:31:3101 == 10000
			ENDIF
		;ファッ？
		ELSE
			PRINTFORML ERROR 申し訳ありませんエラーが発生しました
			PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
			PRINTFORML エラーメッセージ07 「部屋で遭遇 TARGETが入ってきた」においてELSEが選択
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;第6章解放 関係性:恋人(好感度A信頼度A)
		IF CFLAG:31:3106 != -1
		;第5章解放 関係性:恋慕(好感度B信頼度B)
		ELSEIF CFLAG:31:3105 != -1
		;第4章解放 関係性:思慕(好感度C信頼度C)
		ELSEIF CFLAG:31:3104 != -1
		;第3章解放 関係性:友人(好感度D信頼度D)
		ELSEIF CFLAG:31:3103 != -1
		;第2章解放 関係性:知人(好感度E信頼度E)
		ELSEIF CFLAG:31:3102 != -1
			;通常ルート「第2章　守矢さんちの現人神」
			IF CFLAG:31:3102 == 10
			;通常ルート「第2章　信者獲得大作戦」
			ELSEIF CFLAG:31:3102 == 20
			;レアルート「第2章　くじで繋がる縁」
			ELSEIF CFLAG:31:3102 == 10010
			;レアルート「第2章　奇跡のおこしかた」
			ELSEIF CFLAG:31:3102 == 10020
			ENDIF
		;第1章解放 関係性:他人(好感度G信頼度G)
		ELSEIF CFLAG:31:3101 != -1
			;通常ルート「第1章　はじめまして」
			IF CFLAG:31:3101 == 0
			;レアルート「第1章　出会って3秒即デート！？」
			ELSEIF CFLAG:31:3101 == 10000
			ENDIF
		;ファッ？
		ELSE
			PRINTFORML ERROR 申し訳ありませんエラーが発生しました
			PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
			PRINTFORML エラーメッセージ08 「部屋で遭遇 TARGETが風呂に入ってきて一緒に入る」においてELSEが選択
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;第6章解放 関係性:恋人(好感度A信頼度A)
		IF CFLAG:31:3106 != -1
		;第5章解放 関係性:恋慕(好感度B信頼度B)
		ELSEIF CFLAG:31:3105 != -1
		;第4章解放 関係性:思慕(好感度C信頼度C)
		ELSEIF CFLAG:31:3104 != -1
		;第3章解放 関係性:友人(好感度D信頼度D)
		ELSEIF CFLAG:31:3103 != -1
		;第2章解放 関係性:知人(好感度E信頼度E)
		ELSEIF CFLAG:31:3102 != -1
			;通常ルート「第2章　守矢さんちの現人神」
			IF CFLAG:31:3102 == 10
			;通常ルート「第2章　信者獲得大作戦」
			ELSEIF CFLAG:31:3102 == 20
			;レアルート「第2章　くじで繋がる縁」
			ELSEIF CFLAG:31:3102 == 10010
			;レアルート「第2章　奇跡のおこしかた」
			ELSEIF CFLAG:31:3102 == 10020
			ENDIF
		;第1章解放 関係性:他人(好感度G信頼度G)
		ELSEIF CFLAG:31:3101 != -1
			;通常ルート「第1章　はじめまして」
			IF CFLAG:31:3101 == 0
			;レアルート「第1章　出会って3秒即デート！？」
			ELSEIF CFLAG:31:3101 == 10000
			ENDIF
		;ファッ？
		ELSE
			PRINTFORML ERROR 申し訳ありませんエラーが発生しました
			PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
			PRINTFORML エラーメッセージ09 「部屋で遭遇 TARGETが風呂に入ってきて出て行った」においてELSEが選択
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;第6章解放 関係性:恋人(好感度A信頼度A)
		IF CFLAG:31:3106 != -1
		;第5章解放 関係性:恋慕(好感度B信頼度B)
		ELSEIF CFLAG:31:3105 != -1
		;第4章解放 関係性:思慕(好感度C信頼度C)
		ELSEIF CFLAG:31:3104 != -1
		;第3章解放 関係性:友人(好感度D信頼度D)
		ELSEIF CFLAG:31:3103 != -1
		;第2章解放 関係性:知人(好感度E信頼度E)
		ELSEIF CFLAG:31:3102 != -1
			;通常ルート「第2章　守矢さんちの現人神」
			IF CFLAG:31:3102 == 10
			;通常ルート「第2章　信者獲得大作戦」
			ELSEIF CFLAG:31:3102 == 20
			;レアルート「第2章　くじで繋がる縁」
			ELSEIF CFLAG:31:3102 == 10010
			;レアルート「第2章　奇跡のおこしかた」
			ELSEIF CFLAG:31:3102 == 10020
			ENDIF
		;第1章解放 関係性:他人(好感度G信頼度G)
		ELSEIF CFLAG:31:3101 != -1
			;通常ルート「第1章　はじめまして」
			IF CFLAG:31:3101 == 0
			;レアルート「第1章　出会って3秒即デート！？」
			ELSEIF CFLAG:31:3101 == 10000
			ENDIF
		;ファッ？
		ELSE
			PRINTFORML ERROR 申し訳ありませんエラーが発生しました
			PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
			PRINTFORML エラーメッセージ10 「部屋で遭遇 TARGETが風呂に入ってきて追い出された」においてELSEが選択
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;第6章解放 関係性:恋人(好感度A信頼度A)
		IF CFLAG:31:3106 != -1
		;第5章解放 関係性:恋慕(好感度B信頼度B)
		ELSEIF CFLAG:31:3105 != -1
		;第4章解放 関係性:思慕(好感度C信頼度C)
		ELSEIF CFLAG:31:3104 != -1
		;第3章解放 関係性:友人(好感度D信頼度D)
		ELSEIF CFLAG:31:3103 != -1
		;第2章解放 関係性:知人(好感度E信頼度E)
		ELSEIF CFLAG:31:3102 != -1
			;通常ルート「第2章　守矢さんちの現人神」
			IF CFLAG:31:3102 == 10
			;通常ルート「第2章　信者獲得大作戦」
			ELSEIF CFLAG:31:3102 == 20
			;レアルート「第2章　くじで繋がる縁」
			ELSEIF CFLAG:31:3102 == 10010
			;レアルート「第2章　奇跡のおこしかた」
			ELSEIF CFLAG:31:3102 == 10020
			ENDIF
		;第1章解放 関係性:他人(好感度G信頼度G)
		ELSEIF CFLAG:31:3101 != -1
			;通常ルート「第1章　はじめまして」
			IF CFLAG:31:3101 == 0
			;レアルート「第1章　出会って3秒即デート！？」
			ELSEIF CFLAG:31:3101 == 10000
			ENDIF
		;ファッ？
		ELSE
			PRINTFORML ERROR 申し訳ありませんエラーが発生しました
			PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
			PRINTFORML エラーメッセージ11 「部屋で遭遇 外出先で遭遇した」においてELSEが選択
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;第6章解放 関係性:恋人(好感度A信頼度A)
		IF CFLAG:31:3106 != -1
		;第5章解放 関係性:恋慕(好感度B信頼度B)
		ELSEIF CFLAG:31:3105 != -1
		;第4章解放 関係性:思慕(好感度C信頼度C)
		ELSEIF CFLAG:31:3104 != -1
		;第3章解放 関係性:友人(好感度D信頼度D)
		ELSEIF CFLAG:31:3103 != -1
		;第2章解放 関係性:知人(好感度E信頼度E)
		ELSEIF CFLAG:31:3102 != -1
			;通常ルート「第2章　守矢さんちの現人神」
			IF CFLAG:31:3102 == 10
			;通常ルート「第2章　信者獲得大作戦」
			ELSEIF CFLAG:31:3102 == 20
			;レアルート「第2章　くじで繋がる縁」
			ELSEIF CFLAG:31:3102 == 10010
			;レアルート「第2章　奇跡のおこしかた」
			ELSEIF CFLAG:31:3102 == 10020
			ENDIF
		;第1章解放 関係性:他人(好感度G信頼度G)
		ELSEIF CFLAG:31:3101 != -1
			;通常ルート「第1章　はじめまして」
			IF CFLAG:31:3101 == 0
			;レアルート「第1章　出会って3秒即デート！？」
			ELSEIF CFLAG:31:3101 == 10000
			ENDIF
		;ファッ？
		ELSE
			PRINTFORML ERROR 申し訳ありませんエラーが発生しました
			PRINTFORML お手数ですが下のメッセージとともに発生状況をスレの方にご報告ください
			PRINTFORML エラーメッセージ12 「部屋で遭遇 他キャラとデート中に遭遇した」においてELSEが選択
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K31_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
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;添い寝起床
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 2
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K31_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
	;-------------------------------------------------
	;衰弱中
	;記入チェック（=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 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;他者介入でムード変化
;==================================================
@M_KOJO_EVENT_K31_5(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

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

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K31_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
	;-------------------------------------------------
	;MASTERに誘われて参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K31_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
	;-------------------------------------------------
	;MASTERに誘われて目撃者も参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;目撃した情事を問い詰める
;==================================================
@M_KOJO_EVENT_K31_8(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERだけ問い詰め
	;記入チェック（=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
ENDIF
RETURN 1

;==================================================
;パンツ没収された
;==================================================
@M_KOJO_EVENT_K31_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
	;-------------------------------------------------
	;遠距離移動中にパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERを押し倒した（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE ARG:1
			CASE 0
			;抜け出した
				PRINTFORML
				RETURN 1
			CASE 1
			;抱き着きモード満足終了
				PRINTFORML
				RETURN 1
			CASE 2
			;抱き着きモード強制終了
				PRINTFORML
				RETURN 1
		ENDSELECT
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE ARG:1
			CASE 1
			;好きにして状態から抜け出せなかった
				PRINTFORML
				RETURN 1
			CASE 2
			;欲求不満が高くて抜け出せなかった
				PRINTFORML
				RETURN 1
		ENDSELECT
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

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

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K31_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_K31_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
		;Ａ感覚0
		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_K31_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K31_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K31_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_K31_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K31_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同居時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰中毒による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;無知消去イベントあり（表示は一度だけ
		IF ABL:LOCAL:自慰中毒 >= 5
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF ABL:LOCAL:自慰中毒 == 4
		ELSEIF ABL:LOCAL:自慰中毒 == 3
		ELSEIF ABL:LOCAL:自慰中毒 == 2
		ELSEIF ABL:LOCAL:自慰中毒 == 1
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			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
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K31_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_K31_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_K31_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_K31_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_K31_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_K31_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_K31_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_K31_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

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

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

[SKIPSTART]
;-------------------------------------------------
;オナバレなし崩しックスの地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K31_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_K31_イベント.ERB