code:
;-------------------------------------------------
; eraTheWorld proto4.23用 ○○口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;※※※※※※他者による修正、加筆、改変についての但し書き※※※※※※
;前提としてオリジナル作者以外が手を入れる場合は、オリジナル作者の許可を求めること
;オリジナル作者とコンタクトが取れない場合には以下の但し書きに従ってUPできるかどうか判断してください。

;------ ｷﾘﾄﾘ ｶｲｼ -----------
;eraTheWorld proto4.07パッチ取り込み用 Ver1.13
;テンプレートの使い方
;初めに置換コマンド等により K54 を K(キャラNo) に変更して下さい
;キャラNoはCSVフォルダのCharaファイルを参照　例(霧雨 魔理沙の場合)：K54 =置換=> K11
;
;------ ｷﾘﾄﾘ ｵﾜﾘ -----------

;**** Copyright ****************************************************************
;本口上の修正について（許可する行為のみ残してください）
;【誤字・脱字修正】【分岐条件・erb構文に関する修正】【本体Ver・Rev変更対応】【フラグの管理・修正】

;本口上の加筆・改変について（許可する行為のみ残してください）
;【未記入部位加筆】【ランダム分岐加筆】【記入済部位加筆】【記入済部位削除】【記入済部位コメントアウト】

;本口上に対するメンテナンス禁止時限について（設定しない場合、未設定のみ残してください）
;【未設定】【設定：期間 YY-MM-DDからYY-MM-DDまでオリジナル作者のみ修正可】【期限延長 有】

;本口上に対するその他但し書き
;【 】【 】
;******************************************************************************
;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
[SKIPSTART]
-------------------------------------------------
パチュリー口上
-------------------------------------------------
パチュラブな人なら何してもいいのよ

無関心なんて関係ないほど崩れてるかも
可能な限り短く、簡潔に表したい故に3行以上にならないことも多いです

今後の課題
残念なことに他の誰かが一緒にいたときとかはあまり想定してない
それ故に寝ているパチュリーの部屋に連れ込んだときとかその逆とかは無い
コマンドの方を優先で埋めていくつもりなので当分先になりそう

一通りは試したのでバグは出ないはず……はず
何か問題が出たらスレかIRCまでお願いします

2011/07/26
-------------------------------------------------
使用フラグ一覧
CFLAG
1001:遭遇口上
1002:おのれー？フランドール入室
1003:会話したか
1004:パチュリーとお茶を飲んだ回数
1005:私室変更

TCVAR
350:その日会った回数
351:眠り口上
352:何に使おうと思ったのか忘れたけど押し倒されたときに加算
353:怒らせたときの会話
354:お茶は淹れたけど会話をしたことが無い

以上
[SKIPEND]
;******************************************************************************

;PS 寅の人
;オリジナル作者と連絡が取れない場合、上記Copyrightに従い加筆改変を行って下さい
;また本体処理・他口上処理等に干渉する異常処理がある場合でオリジナル作者による修正が
;行われない・もしくは困難な場合、Copyrightに関わらず有志による修正を許可します
;その際は元処理を削除せずコメントアウトし修正処理を挿入して下さい

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

;RESULTS = _TEST_

;と設定すると、"EVENT"系イベントだと
;M_KOJO_TEST_EVENT_K54_1() とかで呼ばれる…はず。（未テスト機能）
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K54

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

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K54
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K54_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORML
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K54_2(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=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_K54_3(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=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_K54_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;PRINTWにしない方がいいでしょう
		;初めて会った
		IF CFLAG:1001 < 1
			PRINT 「初めて見る顔ね……
			;図書館
			IF CFLAG:現在位置 == 310
				PRINTL まぁいいわ。ようこそ、私の大図書館へ」
			;パチュリー私室
			ELSEIF CFLAG:現在位置 == CFLAG:初期位置
				PRINTL ここは私の書斎よ。何か用かしら？」
			;それ以外
			ELSE
				PRINTL で、あんた、誰？」
			ENDIF
			CFLAG:1001 = 1
		;妊娠時
	;	ELSEIF CFLAG:6
			;bad妊娠
	;		IF なにがいいのかな？
	;			PRINTL 「いやあぁあああああああ近づかないで」
	;			PRINTFORML パチュリーは%CALLNAME:MASTER%が現れたのを見て恐怖している
			;good妊娠
	;		ELSE
	;			PRINTFORML 「%CALLNAME:MASTER%」
	;			PRINTFORML パチュリーは%CALLNAME:MASTER%の姿を見ると嬉しそうに声をかけてきた
	;		ENDIF
		;恋慕時
		ELSEIF TALENT:恋慕
			;部屋を同じにした
			IF CFLAG:MASTER:初期位置 == CFLAG:初期位置 && !CFLAG:1005
				PRINTFORML %CALLNAME:MASTER%は挨拶もそこそこにパチュリーと一緒に暮らしたいことを伝えた
				PRINTL 「えっあっうん……よろしくお願いします」
				CFLAG:1005 = 1
				SIF CFLAG:1001 < 2
					CFLAG:1001 = 2
			;部屋を変えた
			ELSEIF CFLAG:MASTER:初期位置 != CFLAG:初期位置 && CFLAG:1005 == 1
				PRINTFORML %CALLNAME:MASTER%は言いにくそうにパチュリーと部屋を別にすることを告げた
				PRINTL 「そう……それは……残念だわ」
				CFLAG:1005 = 2
			;部屋をまた同じにした
			ELSEIF CFLAG:MASTER:初期位置 == CFLAG:初期位置 && CFLAG:1005 == 2
				PRINTFORML %CALLNAME:MASTER%は言いにくそうにまたパチュリーと一緒に暮らしたいことを伝えた
				PRINTL 「そう……今度はずっと一緒に暮らせるといいわね」
				CFLAG:1005 = 1
			;恋慕初回のみ
			ELSEIF CFLAG:1001 < 2
				PRINTFORML パチュリーは%CALLNAME:MASTER%の姿を見ると手招きをした
				PRINTFORML %CALLNAME:MASTER%が近づくと顔を引き寄せ耳打ちする
				PRINTL 「あの鍵はいつでも使っていいわ……でも、あまりいたずらはしないように」
				CFLAG:1001 = 2
			;恋慕通常
			ELSE
				;図書館
				IF CFLAG:現在位置 == 310
					PRINTFORML 「%CALLNAME:MASTER%、いらっしゃい」
					SIF CFLAG:1001 < 3
						PRINTL 「ここにあるものはある程度好きに使っていいわ……私を含めて、ね」
					PRINTFORML そう言うとパチュリーは自分の隣の席を軽く叩き、読みかけの本に目を落とした
				;パチュリー私室
				ELSEIF CFLAG:現在位置 == CFLAG:初期位置
					;MASTERの開始位置がパチュリー私室以外
					IF CFLAG:MASTER:初期位置 != CFLAG:初期位置
						PRINTFORML 「私の書斎へようこそ。\@ YOGORE:311 >= 500 ? 掃除に来てくれたのかしら？それとも私に会いに来てくれたの？ # お茶でも飲みながら話しましょうか\@」
					ELSE
						PRINT 「おかえりなさい。
						;他に誰かいる
						IF GET_TARGETNUM() > 2
							PRINTL お茶でも飲みましょう」
						ELSE
							;条件はINFO.ERBから拝借
							PRINTFORML \@ NEMUKE() >= 720 ? ……眠いのかしら？膝くらい貸すわ # ただの休憩かしら？それともご休憩？ \@」
						ENDIF
					ENDIF
				;大浴場
				ELSEIF CFLAG:現在位置 == 333
					PRINTFORML 「いきなり入って来られると少し照れるわ……%CALLNAME:MASTER%」
					;浴場が汚れていると台詞を追加
					PRINTFORML 「そうだわ、こういうときこそこの台詞よね。お風呂にする？\@ YOGORE:333 >= 500 ? 掃除にする？ # \@それとも、わ　た　し？」
				;それ以外
				ELSE
					PRINTFORML パチュリーは%CALLNAME:MASTER%に気付くとゆっくりと近づいた
				ENDIF
				CFLAG:1001 = 3
			ENDIF
		;それ以外
		ELSE
			;会った回数による口上
			IF TCVAR:350 > 5
				;馴れ合い強度で台詞の変更
				PRINTFORML \@ TCVAR:130 > 0 ? パチュリーは何かを思いついた顔で%CALLNAME:MASTER%に近づいてきた # 「……。……」 \@
			ELSEIF TCVAR:350 == 5
				;馴れ合い強度で台詞の変更
				PRINTFORML 「\@ TCVAR:130 > 0 ? 本当によく会うわね、まあいいわ # あんた、ストーカー？偶然にしては多すぎる！ \@」
			ELSEIF TCVAR:350 == 4
				PRINTL 「……ふぅ、今日はよく会うわね」
			;図書館
			ELSEIF CFLAG:現在位置 == 310 && RAND:2
				PRINTFORML 「掃除かしら？ついでに\@ TCVAR:130 > 0 ? 私と話をしない？ # その辺の本も片付けておいて\@」
			;パチュリー私室
			ELSEIF CFLAG:現在位置 == CFLAG:初期位置 && RAND:2
				PRINTL 「いつもご苦労なことね……あと、あの棚は触らないように」
			;大浴場
			ELSEIF CFLAG:現在位置 == 333
				PRINTFORML 「……掃除？それとも\@ GET_TARGETNUM() == 1 ? 私 # 誰かさん \@の裸が目当てかしら」
			;それ以外
			ELSEIF RAND:2
				PRINTL 「ちょうどよかったわ、お茶を淹れて頂戴」
			ELSE
				PRINTL 「いいところに来たわね。なにか面白い話は無いかしら」
			ENDIF
		ENDIF
		TCVAR:350 ++
		RETURN 0
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:1001 < 1
			;図書館
			IF CFLAG:現在位置 == 310
				PRINTL 「そこで何をしているのかしら？ここは紅魔館の大図書館よ」
			;パチュリー私室
			ELSEIF CFLAG:現在位置 == CFLAG:初期位置
				PRINTL 「私の部屋に勝手に入ってきてうろちょろしてるなんて、まるでネズミね」
			;それ以外
			ELSE
				PRINT 「あら、この館に
				;吸血鬼
				IF TALENT:MASTER:132
					PRINT レミィ達以外の吸血鬼が
				;狐とか動物耳
				ELSEIF TALENT:MASTER:90 || TALENT:MASTER:91 || TALENT:MASTER:143
					PRINT けだものが紛れ込んで
				;小人か巨躯
				ELSEIF  TALENT:MASTER:100 == -3 || TALENT:MASTER:100 == 3
					PRINT 人間……人間？まあいいわ、人間が
				;それ以外
				ELSE
					PRINT 人間が
				ENDIF
				PRINTL いるなんて珍しいわね」
			ENDIF
			CFLAG:1001 = 1
		;恋慕
		ELSEIF TALENT:恋慕
			;部屋を同じにした
			IF CFLAG:MASTER:初期位置 == CFLAG:初期位置 && !CFLAG:1005
				PRINTFORML %CALLNAME:MASTER%は挨拶もそこそこにパチュリーと一緒に暮らしたいことを伝えた
				PRINTL 「えっあっうん……よろしくお願いします」
				CFLAG:1005 = 1
				SIF CFLAG:1001 < 2
					CFLAG:1001 = 2
			;部屋を変えた
			ELSEIF CFLAG:MASTER:初期位置 != CFLAG:初期位置 && CFLAG:1005 == 1
				PRINTFORML %CALLNAME:MASTER%は言いにくそうにパチュリーと部屋を別にすることを告げた
				PRINTL 「そう……それは……残念だわ」
				CFLAG:1005 = 2
			;部屋をまた同じにした
			ELSEIF CFLAG:MASTER:初期位置 == CFLAG:初期位置 && CFLAG:1005 == 2
				PRINTFORML %CALLNAME:MASTER%は言いにくそうにまたパチュリーと一緒に暮らしたいことを伝えた
				PRINTL 「そう……今度はずっと一緒に暮らせるといいわね」
				CFLAG:1005 = 1
			;恋慕初回のみ
			ELSEIF CFLAG:1001 < 2
				PRINTFORML パチュリーは%CALLNAME:MASTER%の姿を見ると手招きをした
				PRINTFORML %CALLNAME:MASTER%が近づくと顔を引き寄せ耳打ちする
				PRINTL 「あの鍵はいつでも使っていいわ……でも、あまりいたずらはしないように」
				CFLAG:1001 = 2
			;恋慕通常
			ELSE
				;図書館
				IF CFLAG:現在位置 == 310
					PRINTFORML 「%CALLNAME:MASTER%、来てたのね」
					SIF CFLAG:1001 < 3
						PRINTL 「ここにあるものはある程度好きに使っていいわ……私を含めて、ね」
					PRINTL にこりと笑うとパチュリーはお気に入りの場所へと腰を落ち着けた
				;パチュリー私室
				ELSEIF CFLAG:現在位置 == CFLAG:初期位置
					;MASTERの開始位置がパチュリー私室以外
					IF CFLAG:MASTER:初期位置 != CFLAG:初期位置
						PRINTFORML 「私の書斎へようこそ。\@ YOGORE:311 >= 500 ? 掃除に来てくれたのかしら？それとも私に会いに来てくれたの？ # お茶でも飲みながら話しましょうか\@」
					ELSE
						PRINT 「帰ってたのね。
						;他に誰かいる
						IF GET_TARGETNUM() > 2
							PRINTL お茶、淹れて頂戴」
						ELSE
							;パチュリーが眠い場合(就寝時間は2時だから余裕を見て前後1時間ずつ)
							PRINTFORML \@ TIME >= 60 && TIME <= 180 ? ふぁ……膝を貸してもらえるかしら？ # 休憩中？わたしとご休憩にしない？ \@」
						ENDIF
					ENDIF
				;それ以外
				ELSE
					PRINTFORML パチュリーは%CALLNAME:MASTER%がいるのに気が付くとチェシャ猫のように笑い近づいてきた
				ENDIF
			ENDIF
		;それ以外
		ELSE
			;会った回数による口上
			IF TCVAR:350 > 5
				;セクハラ強度で台詞の変更
				PRINTFORML \@ TCVAR:130 > 0 ? パチュリーは何かを思いついた顔で%CALLNAME:MASTER%に近づいてきた # 「……。……」 \@
			ELSEIF TCVAR:350 == 5
				PRINTFORML 「\@ TCVAR:130 > 0 ? 本当によく会うわね、まあいいわ # はぁ…… \@」
			ELSEIF TCVAR:350 == 4
				PRINTL 「……ふぅ、今日はよく会うわね」
			;図書館
			ELSEIF CFLAG:現在位置 == 310 && RAND:2
				PRINTL 「掃除をしてくれたのかしら？あ、その辺の本を下手に読むと呑まれるわよ」
			;パチュリー私室
			ELSEIF CFLAG:現在位置 == CFLAG:初期位置 && RAND:2
				PRINTL 「私がいないときにはあまり入らないようにしてちょうだい」
			;それ以外
			ELSEIF RAND:2
				PRINTL 「ちょうどよかったわ、お茶を淹れて頂戴」
			ELSE
				PRINTL 「いいところに居るわね。なにか面白い話は無いかしら」
			ENDIF
		ENDIF
		TCVAR:350 ++
		RETURN 0
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋慕
			PRINTL 「掃除中だったのかしら？それは残念ね……これから私達で汚すのに」
		ELSE
			PRINTFORML 「\@ TRAINNAME:PREVCOM == "掃除" ? 掃除中？まぁいいわ、 # くつろいでたのかしら？私も \@入らせてもらうわよ」
		ENDIF
		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
		PRINTFORML 「そこに居るの？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML 「そこに居るの？」
		RETURN 1
	ENDIF
;	;その他
;	PRINTFORML 「そこに居るの？」
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常起床（定時になって起きる等）
	;非神社在住キャラで恋慕未満の場合は、勝手に部屋に入り込んできてる状態
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TIME == 600
			PRINTFORMW 「おはよう、目が覚めて一番に%CALLNAME:MASTER%の顔を見られて幸せだわ」
		ELSE
			PRINTW 「寝顔、可愛かったわ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;添い寝起床
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 2
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「\@ BASE:体力 > 500 ? ふわぁ～……貴方も早く寝たほうがいいわ # もうダメ……休ませてもらうわ \@」
		PRINTW そう言い残してパチュリーは自分の私室へと戻っていった
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		$PACHE_SLEEP
		;毎日初回のみ
		SIF !TCVAR:351 && CFLAG:MASTER:301 != CFLAG:初期位置
			PRINTFORML %CALLNAME:MASTER%が部屋に入るとパチュリーは静かに眠っていた
		IF !RAND:4
			PRINTFORML %CALLNAME:MASTER%はパチュリーに忍び寄ると髪を一掬い手に取り、毛先の方へと指を抜いた
			PRINTW パチュリーの寝顔はどこか満足そうに見えた
		ELSEIF !RAND:3
			PRINTFORML %CALLNAME:MASTER%はパチュリーの頬を軽くつついた
			PRINTL パチュリーは嫌がるように首を動かすとその指をくわえ込んだ
			PRINTFORMW %CALLNAME:MASTER%は予想外の事態に慌てふためいた
		ELSEIF !RAND:2
			PRINTL 「んぅ…………」
			PRINTFORMW パチュリー\@ RAND:2 ? は布団を抱き込むように寝返りを打った # が寝返りを打つとスカートも捲れ上がり、ふとももまでが露わになった \@
		ELSE
			PRINTFORML %CALLNAME:MASTER%はおもむろにパチュリーの胸をふにゅふにゅとさわった
			PRINT 「あっ…………ん
			SETCOLOR 0xff1493
			FONTITALIC
			PRINTFORM %UNICODE(0x2665)%
			FONTREGULAR
			RESETCOLOR
			TRYCALL SET_KOJOCOLOR(TARGET)
			PRINTL 」
			PRINTW パチュリーは色っぽい声を出すがまだ起きる気配は無かった
		ENDIF
		TCVAR:351 ++
	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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML 「%CALLNAME:MASTER%……？ 寝ちゃったのね」
		PRINTFORMW そう言うとパチュリーは魔法を使い%CALLNAME:MASTER%の体を浮き上がらせ、部屋へと運んでいった
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			;時間によって変化
			PRINTFORML 「\@ BASE:体力 > 500 ? もうおやすみの時間よ # 疲れたから出て行って \@」
			PRINTFORMW そう言うとパチュリーは%CALLNAME:MASTER%を部屋の外に出すと鍵を掛けた
		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_K54_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			IF !RAND:2
				PRINTFORMW パチュリーはまだ入ってきた%CALLNAME:MASTER%に気付いていないようだ
			ELSE
				PRINTFORMW %CALLNAME:MASTER%が入ってきたことに気が付いたパチュリーは頬を緩めた
			ENDIF
		ELSE
			IF !CFLAG:1001
				PRINTFORMW 紫色の髪をした少女は%CALLNAME:MASTER%の存在を見とめると訝しげに眉を寄せた
			ELSEIF !RAND:2
				PRINTFORMW パチュリーは入ってきた%CALLNAME:MASTER%を見ると\@ TCVAR:130 ? 一度 # どうでも良さそうに \@本に目を落とした
			ELSE
				PRINTFORMW %CALLNAME:MASTER%はパチュリーに気が付くと話をすべく近寄った
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕
			;気付いてたり気付いてなかったり
			IF !RAND:4
				PRINTFORML パチュリーは本を黙々と読んでいて%CALLNAME:MASTER%\@ CMATCH(CFLAG:320,0,1,CHARANUM) < 6 ? 達 # \@に気付いていないようだ
				PRINTFORMW %CALLNAME:MASTER%\@ CMATCH(CFLAG:320,0,1,CHARANUM) < 6 ? 達 # \@はパチュリーの読書を邪魔しないように静かに通り過ぎた
			ELSEIF !RAND:3
				PRINTFORML パチュリーは物音に気付き顔を上げると%CALLNAME:MASTER%と目が会った
				PRINTFORMW %CALLNAME:MASTER%が苦笑気味に微笑むとパチュリーはその意味を理解して頷き、本に目を落とした
			ELSEIF !RAND:2
				PRINTFORML %CALLNAME:MASTER%は本を見ながら真剣に何かを書きとめているパチュリーに気が付いた
				PRINTW 何かぶつぶつ言いながらメモを取るパチュリーの邪魔をしないように通り過ぎた
			ELSE
				PRINTFORML %CALLNAME:MASTER%が入ってきたことに気が付いたパチュリーは微笑んだ
				PRINTFORMW そんなパチュリーの横髪を一度梳き、%CALLNAME:MASTER%は通り過ぎていった
			ENDIF
		ELSE
			;その他
			PRINTL ぺこり
			PRINTW 読書を続けながらも軽く会釈をしてくれた
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;まともに挨拶をしていない
		IF !CFLAG:1001
			PRINTFORMW 紫色の髪をした少女は%CALLNAME:MASTER%に気付き、一瞥するが止まる様子が無いのを見取るとすぐに本に目を落とした
		ELSEIF !RAND:5
			PRINTFORML 「小悪魔\@ CFLAG:2:300 == CFLAG:3:300 ? 、お茶を淹れて頂戴 # いないのー？ \@」
			PRINTFORMW パチュリーは%CALLNAME:MASTER%に気付きもせず小悪魔\@ CFLAG:2:300 == CFLAG:3:300 ? にお茶の催促をした # を探していた \@
		ELSEIF !RAND:4
			PRINTFORMW パチュリーは%CALLNAME:MASTER%が忙しそうに通り過ぎていくのをただ眺めていた
		ELSEIF !RAND:3
			PRINTFORML パチュリーはうつらうつらとしていて%CALLNAME:MASTER%に気付いた様子は無かった
			PRINTFORMW %CALLNAME:MASTER%はそれを横目で見ながら通り過ぎた
		ELSEIF !RAND:2
			PRINTFORML %CALLNAME:MASTER%はパチュリーが見ているのに気が付くと立ち止まり一礼をした
			PRINTFORMW パチュリーは何も気にした様子はなく読書を再開した
		ELSE
			PRINTL 「…………」
			PRINTW パチュリーは読書に集中していてこちらに気付かなかったようだ
		ENDIF
		RETURN 1
	ENDIF
ENDIF

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

IF LOCAL
	;うふふ中だったらあっさり
	IF CFLAG:317
		PRINTW 「……っ！？」
	;美鈴
	ELSEIF ARG == [[美鈴]]
		;守衛小屋
		IF CFLAG:現在位置 == CFLAG:ARG:初期位置
			PRINTL 「美鈴、部屋を借りてるわよ」
			PRINTFORMW パチュリーはさりげなく%CALLNAME:MASTER%から距離をとると美鈴に笑顔を向けた
		;図書室
		ELSEIF CFLAG:現在位置 == 310
			PRINTFORML 「こんなところに珍しいわね\@ TIME >= 720 && TIME <= 1020 ? 、また昼寝かしら # …… \@」
			PRINTFORMW パチュリーは美鈴に声をかけるがテーブルの下\@ TALENT:恋慕 ? で繋いだ%CALLNAME:MASTER%の手を離すことは無かった # では%CALLNAME:MASTER%の袖を軽く引いていた \@
		;庭
		ELSEIF CFLAG:現在位置 == 302 || CFLAG:現在位置 == 306
			PRINTFORMW 「\@ TALENT:恋慕 ? こんなところで会うとは奇遇ね……ん、私たち？……運動をしにきたのよ # ちょうどよかったわ……美鈴、%CALLNAME:MASTER%に稽古を付けてあげて \@」
		;大浴場
		ELSEIF CFLAG:現在位置 == 333
			PRINTFORMW 「\@ TALENT:恋慕 ? あら美鈴、入らないの？……とっても気持ちがいいわよ # お風呂、お先にいただいてるわよ \@」
		;それ以外
		ELSE
			PRINTFORML 「はぁ……%CALLNAME:MASTER%、悪いけどお茶を淹れて」
			PRINTL パチュリーはそう言うと美鈴を手招きした
			PRINTW 「美鈴もそんなところに突っ立ってないで一緒にお茶にしましょう」
		ENDIF
	;小悪魔
	ELSEIF ARG == [[小悪魔]]
		;小悪魔私室
		IF CFLAG:現在位置 == CFLAG:ARG:初期位置
			PRINTL 「部屋を借りてるわよ、小悪魔」
			PRINTFORMW パチュリーは%CALLNAME:MASTER%から離れる様子も無く小悪魔に言った
		;図書館
		ELSEIF CFLAG:現在位置 == 310
			PRINTFORML 「\@ TALENT:恋慕 ? ある意味タイミングがいいわね…… # 小悪魔、そっちの本棚の整理をお願い \@」
			PRINTFORMW パチュリーは\@ TALENT:恋慕 ? 小悪魔の登場に少し不機嫌になったが、すぐに落ち着き『仕方ないわね』と目で合図をしてきた # 入ってきた小悪魔に仕事の指示を出し始めた \@
		;庭
		ELSEIF CFLAG:現在位置 == 302 || CFLAG:現在位置 == 306
			PRINTL 「なに？私がここにいるのがそんなに珍しいかしら？」
			PRINTW パチュリーは目を見開いて驚く小悪魔を軽く窘めた
		;大浴場
		ELSEIF CFLAG:現在位置 == 333
			PRINTFORML 「小悪魔\@ TALENT:恋慕 ? も%CALLNAME:MASTER%に背中を流してもらったら？気持ちいいわよ # 、遠慮せずに入ってきなさい \@」
			PRINTFORMW パチュリーは\@ TALENT:恋慕 ? 上機嫌に主人の余裕を見せながら # ドアを開けた状態で立ち尽くしている \@小悪魔を誘った
		;パチュリー私室
		ELSEIF CFLAG:現在位置 == CFLAG:初期位置
			PRINTL 「小悪魔、どうかしたの？」
			PRINTFORMW パチュリーは小悪魔\@ TALENT:恋慕 ? の来訪を%CALLNAME:MASTER%と共に # を優しく \@迎え入れた
		;それ以外
		ELSE
			PRINTFORML 「%CALLNAME:MASTER%、お茶を淹れてくれる？……小悪魔、入ってらっしゃいな」
			PRINTW パチュリーは小悪魔の気配に気が付くと一つ息をついてから優しく呼び寄せた
		ENDIF
	;咲夜
	ELSEIF ARG == [[咲夜]]
		;咲夜私室
		IF CFLAG:現在位置 == CFLAG:ARG:初期位置
			PRINTL 「ちょうど良かった、咲夜、たまには貴女の淹れたお茶が飲みたいわ」
			PRINTW 部屋の主が入ってきたのにもかかわらずパチュリーはその主に向かってお茶を注文した
		;図書館
		ELSEIF CFLAG:現在位置 == 310
			PRINTL 「あら、咲夜……掃除かしら？」
			PRINTFORMW パチュリーは少し残念そうに%CALLNAME:MASTER%に視線を送った
		;庭
		ELSEIF CFLAG:現在位置 == 302 || CFLAG:現在位置 == 306
			PRINTL 「私が外に出たくらいでそこまで驚く必要はないと思うんだけど……」
			PRINTW パチュリーは咲夜が驚いたことに少しだけショックを受けたようだ
		;大浴場
		ELSEIF CFLAG:現在位置 == 333
			PRINTFORML 「\@ TALENT:恋慕 ? 咲夜、少し熱いけど気持ちがいいわよ # 瀟洒なメイドも汗は掻くのね \@」
			PRINTFORMW \@ TALENT:恋慕 ? タオルでがっちりとガードした咲夜を見てパチュリーは申し訳程度に隠した # パチュリーは少し感心したように人間としてはごく当たり前のことを言った \@
		;パチュリー私室
		ELSEIF CFLAG:現在位置 == CFLAG:初期位置
			PRINTFORML 「咲夜？掃除\@ TALENT:恋慕 ? なら%CALLNAME:MASTER%に任せてあるから大丈夫よ？ # は今は必要ないわよ \@」
			PRINTW 突然の咲夜の訪問にパチュリーは少し慌てたようだ
		;それ以外
		ELSE
			PRINTFORML 「相変わらず忙しそうね……%CALLNAME:MASTER%、お茶を淹れてあげて」
			PRINTW パチュリーは空気が変わったことをあまり気にした風も無く咲夜にお茶を勧めた
		ENDIF
	;レミリア
	ELSEIF ARG == [[レミリア]]
		;レミリア私室
		IF CFLAG:現在位置 == CFLAG:ARG:初期位置
			PRINTL 「部屋を借りてるわ、レミィ」
			PRINTW レミリアに碌でも無いと言われ苦笑しているパチュリーの横で%CALLNAME:MASTER%はお茶の準備を始めた
		;図書館
		ELSEIF CFLAG:現在位置 == 310
			PRINTL 「レミィ、図書室に来てももう海は無いわよ」
			PRINTW 色っぽいことをするような空気ではないことを察したパチュリーはレミリアに少しの皮肉を言った
		;パチュリー私室
		ELSEIF CFLAG:現在位置 == CFLAG:初期位置
			PRINTL ノックもなしにいきなり快音を響かせ開いたドアにパチュリー達は飛び上がるように驚いた
			PRINTW 快音を響かせた犯人であるレミリアは声を上げて笑い、始めは呆然としていたパチュリー達も釣られて笑った
		;大浴場
		ELSEIF CFLAG:現在位置 == 333
			PRINTFORML 「\@ TALENT:恋慕 ? レミィ、そんなに私達と一緒に入りたかったの？ # 体を洗うのに流れ水を使うけど大丈夫なの？ \@」
			PRINTFORMW パチュリーは%CALLNAME:MASTER%\@ TALENT:恋慕 ? の腕を取りながらレミリアに笑いかけた # から離れレミリアの方へと寄っていった\@
		;それ以外
		ELSE
			PRINTL 「館の当主は自由気ままね」
			PRINTFORMW パチュリーは%CALLNAME:MASTER%と微笑を交わすとレミリアのために場所を開けた
		ENDIF
	;恋慕で幽閉解除なので死に分岐が多いフランドール
	ELSEIF ARG == [[フラン]]
		;地下室(いい雰囲気で地下室に連れ出せば見れる？)
		IF CFLAG:現在位置 == CFLAG:ARG:初期位置
			PRINTL 「あら妹様、ここは図書館みたいで居心地は案外悪くないわね……でも息が詰まりそう」
			PRINTFORMW 「……ここに閉じ込めている私達の台詞でもないわね」と少し後悔を秘めた顔でパチュリーは続けた
		;図書館
		ELSEIF CFLAG:現在位置 == 310
			PRINTL 「妹様、いらっしゃい……本は読んでもいいけど壊さないように気を付けて」
			PRINTFORMW パチュリーはフランドール\@ TALENT:恋慕 ? に母親のような笑顔を向けた # の方を見て優しく言った\@
		;パチュリー私室
		ELSEIF CFLAG:現在位置 == CFLAG:初期位置
			PRINTFORML 「\@ CFLAG:1002 ? いらっしゃい、妹様 # 私が地下室に行くことはあっても妹様がここに来るのは初めてね \@」
			PRINTW パチュリーはフランドールがここに来たことを喜んでいるようだ
			CFLAG:1002 = 1
		;大浴場
		ELSEIF CFLAG:現在位置 == 333
			PRINTFORML 「妹様、\@ TALENT:恋慕 ? 髪を洗ってあげるわ。こっちへどうぞ # 体を洗ってから湯船につかるようにお願いね\@」
			PRINTFORMW パチュリーはそう言うと%CALLNAME:MASTER%から離れた
		;それ以外
		ELSE
			PRINTL 「なんだかんだで妹様もレミィにそっくりね……」
			PRINTFORMW %CALLNAME:MASTER%と顔をあわせて微笑むとフランドールを手招きした
		ENDIF
	;それ以外(パチュリーとか？)
	ELSE
		IF ARG == 54
			PRINTW 「私は何で分身してるのかしら」
		ELSE
			PRINTW 「空気を読まないネズミね」
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K54_6(ARG,ARG:1)
;口上主はTARGET
;ARGに情事相手
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTW 「残念だけど、そこまでよ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORM 「あら、
		IF ARG == [[レミリア]]
			PRINT レミィ、
		ELSEIF ARG == [[フラン]]
			PRINT 妹様、
		ENDIF
		PRINTW 楽しそうなことをしてるわね。私も混ざらせてもらうわ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF CFLAG:PLAYER:うふふ == 2
			PRINTW 「えーっと……これはどういう状況かしら……」
		ENDIF
		RETURN 1
		;-------------------------------------------------
		;まぐわってた(MASTERが挿入中)
		;-------------------------------------------------
		IF MASTER_POSE(SET_V,SET_P,1)
			PRINTW 「……いいところだったみたいね」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;まぐわってた(MASTERに挿入中)
		;記入チェック
		;-------------------------------------------------
		IF MASTER_POSE(SET_P,6,1)
			PRINTW 「挿入中？悪かったわ」
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		;咲夜
		IF ARG == [[咲夜]]
			IF MASTER_POSE(SET_V,SET_P,1)
				PRINTL 「意外と人目に付くか……場所が悪かったか」
			ELSEIF MASTER_POSE(SET_P,6,1)
				PRINTFORML 意外と気持ちいいのよ？とパチュリーは咲夜に言いながら%CALLNAME:MASTER%から離れた
			ELSE
				PRINTL 「仕様が無い……そろそろ止めるわ」
			ENDIF
		;パチュリー私室
		ELSEIF CFLAG:現在位置 == CFLAG:初期位置
			;小悪魔に見られた
			SIF ARG == [[小悪魔]]
				PRINTL 「主人の部屋に入るのに返事を待たずに入ってくるとは……どういう了見かしら」
			PRINTFORML パチュリーは慌てるでもなく\@ EQUIP:0 ? 乱れた服を調え # 自分のベッドの周りに散乱した服を着込み \@始めた
		;大浴場
		ELSEIF CFLAG:現在位置 == 333
			PRINTFORML パチュリーは落ち着いた様子で%CALLNAME:MASTER%から離れ\@ TALENT:恋慕 ? ることなく、%CALLNAME:MASTER%の隣に腰を落ち着けた # 、タオルで体を隠した \@
		;ベッドのあるところ
		ELSEIF BEDROOM()
			PRINTFORML パチュリーは慌てることなく\@ EQUIP:0 ? 乱れた服を調え # ベッドの周りに散乱した服を着込み \@始めた
		;それ以外
		ELSE
			PRINTFORML パチュリーは「場所が悪かったかしら……」などと呟きつつ%CALLNAME:MASTER%から離れた
		ENDIF
		PRINTFORMW 「まぁ見られたなら仕方ないわね……\@ TALENT:恋慕 ? 続きはまたしましょう # 仕方ないわね \@」
		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_K54_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_K54_9(ARG,ARG:1)
#DIM 種類
#DIM パンツ所有
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
パンツ所有 = 0
FOR 種類,0,MAXPANTS
	IF PANTS_TEMP:54:種類
		パンツ所有 = 1
		BREAK
	ENDIF
NEXT
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;同じ場所に居てパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		;恋慕
		$BOSSYU
		IF TALENT:恋慕
			;理不尽
			PRINTFORML 「\@ パンツ所有 ? 私よりもパンティの方がいいの！？ # なんで私のパンティじゃないの！！ \@」
			PRINTL パチュリーはぷんすかと怒っている
			PRINTW 「もう！没収！！」
		ELSE
			;何パターンかあったほうがいいかな？
			PRINTFORML 「\@ パンツ所有 ? どうして私のパンティがあなたのポケットから出てくるのかしら？ # これはあなたのパンティだとは到底思えないんだけれど \@」
			PRINTFORML %CALLNAME:MASTER%はパチュリーから目を逸らし何も答えられなかった
			PRINTL 「はぁ……これは洗濯籠に入れておくわ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;遠距離移動中にパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		GOTO BOSSYU
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERを押し倒した（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			PRINTW 「抵抗してもいいわ……離す気はないけど」
		ELSE
			PRINTW 「ちょっと私の実験に付き合いなさい」
			TCVAR:352 = 1
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;満足してないけどおしまい。たぶんすぐ押し倒される
		IF CFLAG:溜まってる度 > 300
			PRINTL 「あ……もう、おしまいなの？」
			PRINTFORMW パチュリーは%CALLNAME:MASTER%が離れ、服を整えるのを恨めしそうに見ていた
		ELSEIF TALENT:恋慕
			PRINTL 「大満足だわ……またしましょう」
			PRINTFORMW パチュリーはそう言うと%CALLNAME:MASTER%の頬にキスをした
		ELSEIF TCVAR:352
			PRINTFORML %CALLNAME:MASTER%がもがき脱け出そうとするとパチュリーはあっさりと離れた
			PRINTW 「ん、もういいわ……また実験に付き合ってね」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;IF TALENT:恋慕
;	PRINTW 「ダメよ、私は満足してないわ」
;ELSEIF TCVAR:352
;	PRINTW 「こら、まだ実験は終わってない」
;ENDIF
RETURN 0
;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_EVENT_K54_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_K54_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_K54_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_K54_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_K54_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_K54_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_K54_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
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;精液経験ありぬぐい取り
		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_K54_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_K54_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_K54_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_K54_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_K54_22(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K54_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_K54_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_K54_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_K54_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
	ENDSELECT
ENDIF

@PATCHOULI_GASPING_VOICE(ARG,ARG:1)
;感覚によって変わる
;ARGが喘ぎ度、ARG:1が喘ぎ声、ARG:2があまり感じてない
;ループ回数の調節
SIF ARG:1 > ARG
	ARG:1 = ARG
ARG:2 = ARG - ARG:1
PRINT 「
WHILE ARG
	IF ARG:2 && RAND:2
		PRINTDATA
			DATA ……
			DATA っ……
			DATA …ん
			DATA んー
			DATA あー
			DATA ぅく
		ENDDATA
		ARG --
		ARG:2 --
	ENDIF
	SIF !ARG
		BREAK
	IF ARG:1 && RAND:2
		PRINTDATA
			DATA あっ
			DATA …っん
			DATA ひぅっ
			DATA だ、だめっ！
			DATA やぁぁあ
			DATA …そこっ
			DATA んんーー…
			DATA …あぅ
			DATA そこは！
			DATA そんなにしたら
			DATA きもちが……いいの…
			DATA っ！？
			DATA …んぅ～
			DATA ひゃんっ…
			DATA …もっと
			DATA いい、いいのっ！
			DATA っかぁ……はぁぁ…
			DATA …きゃっ…
		ENDDATA
		ARG --
		ARG:1 --
	ENDIF
WEND
IF TALENT:恋慕 && !RAND:4
	SETCOLOR 0xff1493
	FONTITALIC
	PRINTFORM %UNICODE(0x2665) * 2%
	FONTREGULAR
	RESETCOLOR
	TRYCALL SET_KOJOCOLOR(TARGET)
ENDIF
PRINTW 」

repo_name: akadiya/eratw

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

license: unknown