code:
;  帝口上
;  作者：さめさぶろう＜作者名・連絡先＞（“XXスレ目>>123” 等でもOKなので、何か他人と被らないものを）
;  ＜改変した場合はここに改変者の名前・連絡先を追加する＞
;
;  ＜この口上について語ったりするスペース＞
;
;  扶她帝ちゃんにめちゃくちゃにされたかったんです
;　初めて口上書くので模索しながらやっていきます
;
;  ライセンス：
;  作者は以下で○をつけた行為について、誰でも無断で行えるものとし、違反しない限り許可を撤回しないものとします。
;    ○：常に許可　△：要相談、上記の作者と改変者全員に連絡が取れない場合は不許可　×：不許可、相談を受けても許可しない
;
;  +----+-----------------------------------+
;  | 口上の再配布                           |
;  +----+-----------------------------------+
;  | ○ | 単体での再UPロード            |
;  | ○ | 本体への同梱・口上まとめへの収録  |
;  +----+-----------------------------------+
;  | 再配布を許可する場合の改変             |
;  +----+-----------------------------------+
;  | ○ | 口上の加筆                        |
;  | ○ | 口上の改変・其他改変            |
;  +----+-----------------------------------+
;  | 其他                                 |
;  +----+-----------------------------------+
;  | ○ | 他の口上での利用                  |
;  | ○ | 他のeraバリアントでの利用         |
;  | ○ | era以外への流用                   |
;  | ○ | 翻訳・他言語版バリアントへの流用  |
;  | × | 商用利用・金銭のやり取りを伴う利用|
;  | ○ | 二次創作                          |
;  +----+-----------------------------------+
;  ・以下の行為に関しては上記と関係なく、無断で行えるものとします。
;    １：バグ・誤字脱字の修正・本体VerUpへの対応のための改変
;  ・以下の行為に関しては上記と関係なく、作者であっても禁止とします。
;    １：以下の例外を除き、この口上からライセンス文・添付文章（ファイル名を除く）の内容を変更・削除すること
;        ・次期バージョンから、ライセンスの○・△を×に変更すること
;        ・次期バージョンから、上記の作者と改変者全員の許可が那个ば、それ以外の変更も
;    ２：この口上が二次創作等の場合に、原作者が禁止を宣言している行為
;  ・改変者は自分の名前を削除することができ、それによりこの口上に関する一切の権利を放棄し、放棄できない権利について行使しないことを宣言したものとします。
;  ・この口上を使用したことによる損害等について、バリアント・口上の作者、改変者は一切の責任を負いません。

path: ERB/口上・メッセージ関連/個人口上/【53】てゐ_別人版_ver0.1.1/ライセンステンプレ.txt


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)
;別人版を作成する際はこの貂プレではなく別人版用口上貂プレをご利用ください

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

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

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

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

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

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

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

;### 口上色判定 ###################################
@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 帕秋莉\@ TALENT:恋慕 ? 一边拉着%CALLNAME:MASTER%的手腕一边朝蕾米莉亚笑着说道 # 从%CALLNAME:MASTER%的身边朝蕾米莉亚的方向走了过去\@
		;それ以外
		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 「\@ 胖次所有 ? 为什么我的内裤会在%CALLNAME:MASTER%的口袋里呢？ # 我不觉得这条是%CALLNAME:MASTER%的内裤就是了 \@」
			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: ERB/口上・メッセージ関連/個人口上/【54】ぱちぇ/M_KOJO_K54_イベント.ERB

license: unknown