code:
;-------------------------------------------------
; eraTheWorld 4.841用 ○○別人口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

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

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;CFLAG:60:1060:素質変更
;CFLAG:60:1061~4:恋人后初次泡茶下药的差分
;CFLAG:60:1065:抓到你先生和别人约会 （恋人目击后：1 思慕和无陷落目击后：2 不开启：0）
;CFLAG:60:1066:抓到你先生和别人sex（暂时不用）
;CFLAG:60:1067:嫉妒值计数
;CFLAG:60:1068:夜袭1事件触发标记
;******************************************************************************

;### 口上存在判定 ###################################
@M_KOJO_K60_1(ARG)

RESULTS = _Axl

RESULTS:1 = Axl

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

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

;眠姦口上有、時間停止口上有、なりきりに1を入れると、それぞれ時間停止時、眠姦時、なりきり時にコマンド口上が読み込まれるように
;入れないと時間停止時、眠姦時、なりきり時は一切喋りません
;CFLAG:X:眠姦口上有 = 0
CFLAG:60:時間停止口上有 = 1
;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:60:恋人
	CFLAG:60:推倒禁止 = 0
ELSE
	CFLAG:60:推倒禁止 = 1
ENDIF

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

;### 口上色判定 ###################################
@M_KOJO_Axl_COLOR_K60

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_Axl_UPDATE_K60
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります
IF !CFLAG:60:1060
	PRINTFORML 要把帕露西变成更符合口上设定的素质吗
	PRINTFORML 总的来说、帕露西会失去【施虐狂】和【容易中毒】，然后获得【保守】、【难以越过的底线】、【压抑】、【自制心】和【容易自慰】
	PRINTFORML 你应该选择变更的理由：
	PRINTFORML 1：增加代入感
	PRINTFORML 2：原来的素质可能会导致某些场合下帕露西的行为比较出戏
	PRINTFORML 3:求你了求你了求你了
	CALL ASK_M("变更",1,"不变",1,"暂时保留（下次update的时候再说）",1)
	SELECTCASE RESULT
		CASE 0
			PRINTFORMW 那么请看着吧，我的变身！

			TALENT:60:自制心 = 1
			TALENT:60:難以越過的底線 = 1
			TALENT:60:施虐狂 = 0
			TALENT:60:容易中毒 = 0
			TALENT:60:容易自慰 = 1
			TALENT:60:性的兴趣 = -1
			TALENT:60:自己愛 = -1
			CFLAG:60:1060 = 1
		CASE 1
			PRINTFORMW 啊...怎会如此
			CFLAG:60:1060 = 1
		CASE 2
			PRINTFORMW 那就暂时保留了呢
	ENDSELECT
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_Axl_ENCOUNTER_K60
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
IF MAIN_MAP == 9 || 拠点_家主 == 60
  	PRINTFORML
   	PRINTFORML  【啊，迷路了吗】
   	PRINTFORMDW  前方传来少女的声音、你抬头看向声音的来源
	PRINTFORMDL   穿着褐色短袍的金发少女正倚在桥头、上下打量着你
	PRINTFORMW 【很面生呢，是最近才搬来的吗】
  	PRINTFORML 【这里可不是你这种人类能来的地方、快点回去吧】
   	PRINTFORML 【出了危险我可不管哦】
   	PRINTFORMDW   少女把头别到一旁、不再搭理你
	ELSE
	PRINTFORML
	PRINTFORMDL  散步的时候，看到前方一位女子的背影
	PRINTFORMDL  金黄色的短发披在脑后、身着褐色短袍
	PRINTFORMDL  只从背影就能感觉到的阴郁气质
	PRINTFORMDW  也许是察觉到了你的视线、少女回过头来打量着你
	PRINTFORML
	PRINTFORMW  【......有什么事吗?】
	PRINTFORMDW  双臂警惕地抱在胸前、脸上的表情散发出生人勿进的气场
	PRINTFORMW 【哈...是最近搬来这里的吗】
	PRINTFORMDL 【想做什么都无所谓、但是不要跟我扯上关系比较好】
	PRINTFORMDW  少女自顾自的走开了、背影有些落寞的样子
 ENDIF
RETURN 1

@K60_BEFORETRAIN_Axl
;一日の開始時、正確には来訪判定時に読み込む関数
;ここでCFLAG:XX:翌日来訪を設定して確実に来訪させたりTCVAR:XX:発情で朝っぱらからサカらせることもできる
;ただし「毎朝例外なく読み込まれる」ため、条件を設定しておくことが望ましい

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_Axl_SPEVENT_K60_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	IF TALENT:恋慕
		PRINTFORML
		PRINTFORML 【 %CALLNAME:MASTER% ...】
		PRINTFORMDW  身后的帕露西小声喊着你的名字
		PRINTFORMW 【今天也跟平常一样这么回去了吗】
		PRINTFORMDW  回过头来看着帕露西、少女的眼中好像比往常多了些不一样的感情
		PRINTFORMW 【呐、 %CALLNAME:MASTER% ...】
		PRINTFORMDL  少女向你走近了一步
		PRINTFORMW 【可以把眼睛闭上吗】
		PRINTFORMW 【呵呵...仔细一看还真是张帅气得惹人嫉妒的脸呢】
		PRINTFORMDL  嘴唇传来柔软的触感
		PRINTFORMDL  被这突然的触感夺去了思考
		PRINTFORMDL  仿佛要窒息一样的交缠着舌尖
		PRINTFORMDL  许久之后、少女才慢慢的分开彼此的嘴唇
		PRINTFORMW 【哈啊...哈...】
		PRINTFORMDL  少女胸前起伏着呼吸着空气，湿润的眼睛注视着你
		PRINTFORML 【不是说好了要让我独占你的吗】
		PRINTFORMDW  帕露西双手环在你的背后、头埋进你的胸口
		PRINTFORML 【今天约会的时候看了其他女孩子吧、不行哦】
		PRINTFORML 【我这边可是会嫉妒得发疯的】
		PRINTFORMDW 抱着你的力度又加了几分、 %CALLNAME:MASTER% 有些喘不过气
		PRINTFORML 【请好好的、只注视我一个人吧】
		PRINTFORMW  感受到帕露西强烈的独占欲

	ELSE
		PRINTFORML
		PRINTFORML  【 %CALLNAME:MASTER% ...】
		PRINTFORMDW  身后的帕露西小声喊着你的名字
		PRINTFORML  【今天也跟平常一样这么回去了吗】
		PRINTFORMDL   回过头来看着帕露西、少女的眼中好像比往常多了些不一样的感情
		PRINTFORML 【呐、 %CALLNAME:MASTER% ...】
		PRINTFORMDW   少女轻轻抓着你的袖口
		PRINTFORML 【那个...今天能陪我出去，我很高兴哦】
		PRINTFORML  【谢谢你，%CALLNAME:MASTER%】
		PRINTFORMDW   帕露西看起来有心事的样子...
		TCVAR:中止接吻 = 1
		PRINTFORML
		PRINTFORML
		PRINTFORMDW

	ENDIF
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_Axl_SPEVENT_K60_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		IF FIRSTTIME("告白")
			PRINTFORML
			PRINTFORMDL   跟在你身后的帕露西突然拉住了你的衣袖
			PRINTFORML 【 %CALLNAME:MASTER% 】
			PRINTFORMW 【能听我说一些话吗】
			PRINTFORMDW  帕露西的声音颤抖着、低头看着脚边的杂草
			PRINTFORML 【谢谢你，愿意和我做朋友】
			PRINTFORML 【愿意听我讲话、带着我去各种的地方玩】
			PRINTFORML 【就算态度不好也会笑着原谅我、能和 %CALLNAME:MASTER% 在一起我真的很开心】
			PRINTFORML  【但是...对我来说这样已经不够了】
			PRINTFORMDW   少女抬起头与你对视
			PRINTFORML 【不知道什么时候开始、我的眼中只能容得下%CALLNAME:MASTER%一个人了】
			PRINTFORMW 【独自一人的时候满脑子都是 %CALLNAME:MASTER% 的事情、只有见到 %CALLNAME:MASTER% 我才会安心】
			PRINTFORMW 【看见 %CALLNAME:MASTER% 和其他女孩子交谈嫉妒心就会躁动着让我发疯】
			PRINTFORML 【%CALLNAME:MASTER%、我已经离不开你了】
			PRINTFORMW 【能让我、独占你吗？】
			PRINTFORMDW  少女的身体微微颤抖、强装着镇定向你倾诉着
			PRINTFORML
		ELSE
			PRINTFORML
			PRINTFORMDL   跟在你身后的帕露西突然拉住了你的衣袖
			PRINTFORML 【 %CALLNAME:MASTER% 】
			PRINTFORMW 【关于之前的事情...】
			PRINTFORMDW  帕露西的声音颤抖着、抬起头与你对视着
			PRINTFORMDL  绿宝石般的瞳孔深处映射着你的面孔
			PRINTFORML 【果然我还是没办法放弃】
			PRINTFORML 【就算是现在嫉妒心也躁动着、呐，%CALLNAME:MASTER%能感觉到吗？】
			PRINTFORMDL  帕露西牵起你的手，放到自己的胸前
			PRINTFORMDL  透过衣物感觉到少女的心脏剧烈的跳动着
			PRINTFORML  【我已经没法忍耐了...】
			PRINTFORML 【%CALLNAME:MASTER%...请让我独占你吧】
			PRINTFORMDL 伸出的手被紧紧握着、帕露西的瞳孔深处被蒙上了一层浅绿色的雾气一样
		RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	PRINTFORML
	PRINTFORMDL   回答的同时抱住了帕露西
	PRINTFORMDL   怀中少女的身体还在颤抖着
	PRINTFORMW 【抱歉...太激动了有些说不出话】
	PRINTFORML 【就这样、让我抱一会吧】
	PRINTFORMDW   少女伸手环在你的背后
	PRINTFORML 【可要好好对我负责哦...】
	PRINTFORMDW   作为回答摸了摸她的头
	PRINTFORMDW   感觉被抱住的力量又加大了几分
	PRINTL 帕露西变得坦率了起来
	TALENT:態度 = -1
	TALENT:60:自制心 = 0
	TALENT:60:難以越過的底線 = 0
	TALENT:60:施虐狂 = 0
	TALENT:60:性的兴趣 = 1
	PRINTL 帕露西对你有了依存心理
	TALENT:献身的= 1
	TALENT:60:容易中毒 = 1
	TALENT:60:自己愛 = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	PRINTFORML
	PRINTFORMW 【诶...】
	PRINTFORMDL   帕露西身体僵硬地立在原地
	PRINTFORMW 【骗人吧...之前都...】
	PRINTFORMDL   少女控制不住情绪、眼泪夺眶而出
	PRINTFORMW 【既然不喜欢的话为什么还要这么关心我啊！】
	PRINTFORML 【明明我、已经离不开你了...为什么...】
	PRINTFORMW   ......
	Juel:32 += 30000
	ENDIF
	RETURN 1
ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_Axl_SPEVENT_K60_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		IF TALENT:恋人
			SELECTCASE RAND:4
			CASE 0
				PRINTFORML
				PRINTFORML  【今天也很开心呢】
				PRINTFORMW  【谢谢你， %CALLNAME:MASTER% 】
			CASE 1
				PRINTFORML
				PRINTFORML 【接下来有什么打算吗？不会是要找其他女孩子吧？】
				PRINTFORMDW   感觉到贴在你臂弯的少女散发出了压迫感
			CASE 2
				PRINTFORML
				PRINTFORML 【呐、之后没有要做的事了吧？】
				PRINTFORMDL  少女挽住了你的手臂
				PRINTFORML 【今天得好好的独占你呢】
				PRINTFORMDW  看来没办法拒绝了
			CASE 3
				PRINTFORML 【接下来就回家吧？】
				PRINTFORML 【时间还很长、两个一起度过吧？哼♪~哼♪~】
				PRINTFORMDW  少女的身体贴在你的手臂上、轻轻哼着歌
			ENDSELECT

		ELSEIF TALENT:恋慕
				PRINTFORML
				PRINTFORMDL  回家的路上帕露西一直跟在你身后
				PRINTFORML 【今天就这样回去了吗】
				PRINTFORMDW  帕露西突然站在原地向你询问道
				PRINTFORML 【这样啊...只有你在那边无忧无虑的样子、真嫉妒啊】
				PRINTFORMDL  少女转头走开了
				PRINTFORMW 【咕...木头脑袋...】
		ELSEIF TALENT:思慕
				PRINTFORML
				PRINTFORML 【终于结束了吗】
				PRINTFORML 【我都说过不要跟我扯上关系了】
				PRINTFORML 【看着外面的人只会让我嫉妒罢了】
				PRINTFORMDL  帕露西甩下几句话就和你分开了
				PRINTFORMDW  明明今天玩得挺开心的
				PRINTFORML
		ELSE
				PRINTFORML 【咕...大街上的情侣们真碍眼啊...】
				PRINTFORML 【特意把我拉出去就是为了看这些吗...可恶...】
				PRINTFORMDW  返回的途中帕露西小声地念叨着些什么
		ENDIF
		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_Axl_EVENT_K60_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			SELECTCASE RAND:2
				CASE 0
				PRINTFORML
				PRINTFORMDL 注意到你的帕露西凑了过来
				PRINTFORML 【 %CALLNAME:MASTER% ，今天有事情要做吗】
				PRINTFORML 【没有特别的事的话就陪陪我吧】
				PRINTFORMDW 少女一边说着话一边挽住你的手臂
				PRINTFORML

				CASE 1
				PRINTFORML
				PRINTFORMDL 注意到你的帕露西凑了过来
				PRINTFORML 【 %CALLNAME:MASTER% ，来这种地方做什么】
				PRINTFORML 【该不会是来找其他女孩子？】
				PRINTFORMDW 少女虽然在微笑，但是意外的感觉到了压迫感
				PRINTFORML
			ENDSELECT

		ELSEIF TALENT:恋慕 || TALENT:思慕
				PRINTFORML
				PRINTFORMDL 感觉到了背后有谁的视线
				PRINTFORMDL 但是回头的时候又没人在看自己
				PRINTFORMW 【......】
				PRINTFORML
		ELSE
				PRINTFORML
				PRINTFORML 【...】
				PRINTFORMDW 帕露西瞥了你一眼就不再注意你了
				PRINTFORML
		ENDIF
		RETURN 1
	ENDIF
ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			SELECTCASE RAND:2
				CASE 0
				PRINTFORML
				PRINTFORMDL 注意到你的帕露西凑了过来
				PRINTFORML 【找了你很久了，%CALLNAME:MASTER% 】
				PRINTFORML 【你不在身边的话我会不安的，请不要离开我太久】
				PRINTFORMDW 少女说着话顺势靠在你身边
				PRINTFORML
				CASE 1
				PRINTFORML
				PRINTFORMDL 注意到你的帕露西凑了过来
				PRINTFORML 【发现你了】
				PRINTFORML 【 在干什么呢，不会在和其他女孩子勾勾搭搭吧？】
				PRINTFORMDW 少女虽然在微笑，但是意外的感觉到了压迫感
				PRINTFORML
			ENDSELECT

		ELSEIF TALENT:恋慕 || TALENT:思慕
				PRINTFORML
				PRINTFORMDL 感觉到了背后有谁的视线
				PRINTFORMDL 但是回头的时候又没人在看自己
				PRINTFORMW 【......】
				PRINTFORML
		ELSE
				PRINTFORML
				PRINTFORML 【...】
				PRINTFORMDW 帕露西瞥了你一眼就不再注意你了
				PRINTFORML
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF TALENT:恋人
			SELECTCASE RAND:2
				CASE 0
				PRINTFORML
				PRINTFORML 【整天跑来跑去很辛苦吧？做些其他事情休息一下怎么样】
				PRINTFORMDL 帕露西拉起你的手
				PRINTFORMW 【比如，陪陪我之类的...】
				PRINTFORML
				CASE 1
				PRINTFORML
				PRINTFORML 【到这里来是找我的吗？】
				PRINTFORML 【还是说...是来找别的女孩子？】
				PRINTFORMDW 少女虽然在微笑，但是意外的感觉到了压迫感
				PRINTFORML
			ENDSELECT

		ELSEIF TALENT:恋慕 || TALENT:思慕
				PRINTFORML
				PRINTFORMDL 感觉到了背后有谁的视线
				PRINTFORMDL 但是回头的时候又没人在看自己
				PRINTFORMW 【......】
				PRINTFORML
		ELSE
				PRINTFORML
				PRINTFORML 【...】
				PRINTFORMDW 帕露西瞥了你一眼就不再注意你了
				PRINTFORML
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF TALENT:60:恋人
			PRINTFORMDL 和%CALLNAME:(ARG:1)%并肩走着的时候、感觉背后被冰冷的视线刺得发麻
			PRINTFORMDL %CALLNAME:MASTER%像上锈的机器一样僵硬地转过头、正与帕露西视线相交
			PRINTFORML 【%CALLNAME:MASTER%...?】
			PRINTFORMDL 想要开口辩解、但是少女身上传来的压迫感让%CALLNAME:MASTER%怎么也说不出话
			PRINTFORMDL 时间仿佛凝固了一样，粘稠的空气压得你喘不过气
			PRINTFORML 【不好意思...打扰了...】
			PRINTFORMDL 帕露西看起来想说些什么，但是最后扔下这句话就转头跑开了
			CFLAG:60:1065=1
			CFLAG:60:1067 ++
			CFLAG:60:ブチギレ=1
			CFLAG:60:心情不快=1
			TCVAR:60:発情=0
			TCVAR:60:媚薬=0
		ELSEIF TALENT:恋慕
			PRINTFORMDL 和%CALLNAME:(ARG:1)%并肩走着的时候、背后有被什么人注视着的感觉
			PRINTFORMDL 转过头的时候正与帕露西视线相交，少女的慌乱地与你错开视线
			PRINTFORML 【啊...%CALLNAME:MASTER%...】
			PRINTFORMW 【在这里相遇真巧呢...那个女孩是...?】
			PRINTFORML 【这样啊...要玩的开心啊...】
			PRINTFORMDL 少女微笑着目送你们
		ELSE
			PRINTFORMDL 和%CALLNAME:(ARG:1)%并肩走着的时候、背后感觉到幽怨的视线
			PRINTFORMDL 转过头的时候正与帕露西的视线相交、少女面色阴沉的直勾勾盯着你
			PRINTFORML 【呵...约会啊...真嫉妒啊...】
			PRINTFORMDL %CALLNAME:MASTER%回过头尽力无视着背后传来的压迫感和帕露西的碎碎念，把注意力回到与%CALLNAME:(ARG:1)%的约会上来
			CFLAG:60:1065=2
		RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;MAIN_MAP上で一日最初の挨拶
	;注、このあと通常の遭遇口上、ARG==1 OR ARG==2に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		IF TALENT:恋人
			SELECTCASE RAND:2
				CASE 0
				PRINTFORML
				PRINTFORML 【 %CALLNAME:MASTER% ...】
				PRINTFORML 【终于找到你了，好想见你啊】
				PRINTFORMW  【 %CALLNAME:MASTER% 也会想我吗】
				PRINTFORML
				CASE 1
				PRINTFORML
				PRINTFORMDL 回过神来已经被帕露西从背后抱住了
				PRINTFORML 【早上好， %CALLNAME:MASTER% 】
				PRINTFORML 【没有重要的事情的话就陪陪我吧】
				PRINTFORMW 【见不到 %CALLNAME:MASTER% 的时候，感觉好寂寞啊】
				PRINTFORML
  			ENDSELECT

		ELSEIF TALENT:恋慕 || TALENT:思慕
				PRINTFORML
				PRINTFORMDL 感觉到了背后有谁的视线
				PRINTFORMDL 但是回头的时候又没人在看自己
				PRINTFORMW 【......】
				PRINTFORML
		ELSE
				PRINTFORML
				PRINTFORML 【...】
				PRINTFORMDW 帕露西瞥了你一眼就不再注意你了
				PRINTFORML
		RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;外出先で一日最初の挨拶
	;ARG:1にデート相手、ARG:1が0の場合は非デート
	;注、このあと通常の外出先で遭遇した口上、ARG==6 OR ARG==7に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;ARG:1とデート中
		IF ARG:1
		;一人で外出
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
RETURN 1

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

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰って寝る（～は【現在地】から【キャラの自室】に戻りました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF ARG:1
			;デート中に眠くて帰って寝る（拠点キャラのみ）
			PRINTFORMW
		ELSEIF CFLAG:诶嘿嘿
			;うふふ中に眠くて自室に帰って寝る（拠点キャラのみ）
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている（～は眠そうにしている）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（～は眠っている）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱して寝る（体力500以下,うふふ時はうふふ強制終了）
	;（キャラの自室以外：～を【現在地】から【キャラの自室】に運びました）
	;（キャラの自室　　：～は疲れたと言って、横になりました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF CFLAG:诶嘿嘿
			;うふふ中にダウン
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（恋慕のみ,そのまま一日が終了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;お酒でダウン
		IF BASE:MASTER:酒気 >= MAXBASE:MASTER:酒気
			IF ARG:1
				;自室でダウン,（～が【MASTER】をベッド（布団）へと運んでくれた…）
				PRINTFORMW
			ELSE
				;部屋まで運ばれる,（～が【MASTER】を私室へと運んでくれた…）
				PRINTFORMW
			ENDIF
		;体力切れでダウン
		ELSE
			IF ARG:1
				;自室でダウン,（～が【MASTER】をベッド（布団）へと運んでくれた…）
				PRINTFORMW
			ELSE
				;部屋まで運ばれる,（～が【MASTER】を私室へと運んでくれた…）
				PRINTFORMW
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが寝るために自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た（【TARGET】が部屋に戻ってきた→寝間着へと着替え、寝床に潜った）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出して寝た（眠そうな【TARGET】に追い出された…）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF CFLAG:前一次的位置 == CFLAG:現在位置
				;前のターンまで一緒に部屋にいた
				PRINTFORMW
			ELSE
				;寝るために部屋に帰ってきたところ
				PRINTFORMW
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た（【TARGET】が部屋に戻ってきた→唇をとがらせる【TARGET】に、【MASTER】は渋々【Ｈの相手】から離れた）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;来訪キャラが拠点で休憩（～は疲れ切っている→ちょっと休んでいきなよ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝室に居る状態でその場で寝る（～は眠気に負け、眠りについた…）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF CFLAG:诶嘿嘿
			;うふふ中に寝る
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;拠点外で自宅前に居るキャラが自室に帰って寝る（眠くなった～は自室に帰って行きました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 10
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

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

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

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

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

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

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

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

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

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

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;好きにして状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;誘ってきた（人目につかない場所に行きたがるやつ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;ARG:1=TARGETの欲求不満度（最高1000）
		;必要ならばこれで分岐を作ってください
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_XXX_EVENT_KX_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_XXX_EVENT_KX_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_XXX_EVENT_KX_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_XXX_EVENT_KX_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;TCVAR:盗み食い抑制で持っていた食物を食われるのを回避できる
	;仕様例（薬が入ってたら食わない）
	;IF DISH_DRG
	;	TCVAR:盗み食い抑制 = 1
	;ENDIF

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

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_XXX_EVENT_KX_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
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後のムード
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_XXX_EVENT_KX_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_Axl_EVENT_K60_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
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_Axl_EVENT_K60_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:诶嘿嘿
			;うふふ中に眠くて帰る
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:诶嘿嘿
			IF CFLAG:衰弱
				;うふふ中に疲れて帰る
				PRINTFORMW
			ELSE
				;うふふ中に眠くて帰る
				PRINTFORMW
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り（キャラの自宅位置、またはキャラの部屋でデート終了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート終了時に部屋に来ないかと誘う（～から部屋に来ないかと誘われた）
	;（来訪キャラのみ,自宅が無いキャラでも発生します）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「行く」を選択（～に誘われるまま、【MASTER】は【TARGET】の部屋へと向かった……）
	;（これが発生すると十中八九押し倒されます）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「やめとく」を選択（～は心なしか寂しそうだ……）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくないと言い出す（～は今夜は帰りたくないと言い出した…）
	;（来訪キャラの帰宅時に欲求不満と欲望が高いと発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊める」を選択（～は【MASTERの自室】に泊まっていくことになりました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊めない」を選択、または家主が居る（【MASTER】は丁重に断った）
	;（家主が居る＝MASTERの私室に他のキャラの私室を設定している）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;疲れて帰宅（疲れきった～は帰って行きました）
	;（～は疲れ切っている→（入り口）まで送るよ でも発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 10
		IF CFLAG:诶嘿嘿
			;うふふ中に疲れて帰る
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_Axl_EVENT_K60_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		PRINTFORMDL 深夜躺在床上辗转反侧
		PRINTFORML 【最近是怎么了...】
		PRINTFORMDL 不知名的感觉纠结着笼罩在心头
		PRINTFORMDL 脑海里反复回想着最近的事情
		PRINTFORMDL  挥之不去的身影在眼前若隐若现
		PRINTFORML 【 %CALLNAME:MASTER% ... %CALLNAME:MASTER% ...】
		PRINTFORMW 只是低语着某人的名字，心里的异样感觉就仿佛要爆发出来
		PRINTFORML 自己是被嫉妒心填满的妖怪
		PRINTFORML  阴暗角落的人没有照射到阳光的机会，一直都是这么认为的
		PRINTFORML 人际关系自然不需要，所谓的爱情也是奢求
		PRINTFORML 能做的只有对着行走在阳光下的人们嫉妒而已
		PRINTFORMDW 但是...为什么
		PRINTFORMDL 某个笨蛋突然闯入自己的世界的时候，为什么会感到不知所措
		PRINTFORMDL 即使冷着脸驱赶、就算刻薄的讥讽，那人也毫不在意的凑上来，这是为什么
		PRINTFORMDL 好像在阴暗的地下潜伏大半生的蝉第一次破开地面、照射到阳光一样，少女的内心大概也迷茫着
		PRINTFORMDL 帕露西翻了个身，不自觉的啃起了指甲
		PRINTFORML 心里纠缠着的感觉不只有这么简单
		PRINTFORMW 太阳平等的照射着万物、地下的蝉会想到这些吗
		PRINTFORML 如同太阳一样照耀着自己的他，也会对别人施以那温暖的吧
		PRINTFORML 如果那份温暖对他来说只是随手散发的阳光的话，如果自己之外的其他人也享受到这份温暖的话
		PRINTFORML 嫉妒心膨胀着，好像要冲出胸口一样躁动
		PRINTFORML 但是理性又压抑着这份狂躁的冲动
		PRINTFORML 自己是伏在地下的蝉，是被嫉妒心填满的怪物，这样的自己有权利飞向太阳吗
		PRINTFORMDW 少女蜷在床与墙的夹角，绿宝石般的瞳孔反射着月光
		PRINTFORMW 嫉妒着，悲伤着，自责着，偶尔又被温暖着
		PRINTFORML
		PRINTFORML
		PRINTFORMW 少女一夜未眠...
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		PRINTFORML 【感觉最近经常能见到他呢】
		PRINTFORMDL 少女在看守地底入口的时候自言自语着
		PRINTFORML 【明明讲过很多次了不要靠近，为什么还是要凑过来啊】
		PRINTFORMW 【可恶...这份厚脸皮真是让人嫉妒...姆呜呜...】
		PRINTFORMDL 少女咬起了手帕
		PRINTFORML 【为什么那样散发现充气场的人会找上我啊，我才不需要这种关心啊】
		PRINTFORMDL 孤独什么的，早就应该习惯了
		PRINTFORMDL 少女对着空无一人的景色发着呆
		PRINTFORML 【不过...偶尔有人来聊天大概也不坏吧】
		PRINTFORML 【......】
		PRINTFORMW 【明天，他还会再来吗】
		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
	;-------------------------------------------------
	;キス魔取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰狂い取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;ポルチオ性感取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;おもらし癖取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_Axl_EVENT_K60_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORML  【哈...%CALLNAME:MASTER%...%CALLNAME:MASTER%...❤】
			PRINTFORMDL  忍耐到极限的帕露西在夜色中排解着欲望
			PRINTFORMDL  嗅着衣服上残留的%CALLNAME:MASTER%的气味、帕露西陷入了妄想
			PRINTFORML  【再激烈一些也行、尽情的用我发泄吧、%CALLNAME:MASTER%、%CALLNAME:MASTER%、%CALLNAME:MASTER%————❤】
			PRINTFORMDL 被妄想中的恋人疼爱着的帕露西到达了顶点、困倦地趴在床上
			PRINTFORMDL 【这样的根本不够...】
			PRINTFORMDW 少女小声念叨着进入了梦乡
		ELSEIF TALENT:恋慕
			PRINTFORML  【哈...%CALLNAME:MASTER%...%CALLNAME:MASTER%...❤】
			PRINTFORMDL  忍耐到极限的帕露西在夜色中排解着欲望
			PRINTFORMDL  幻想着%CALLNAME:MASTER%的脸、少女激烈地动着指尖
			PRINTFORML  【%CALLNAME:MASTER%、%CALLNAME:MASTER%————❤】
			PRINTFORMW
			PRINTFORMDL 结束后的帕露西陷入深深的自我厌恶中
			PRINTFORMDW 大概明天没办法直视他的脸了吧、少女这样想着进入了梦乡

		ELSE
			PRINTFORML  【哈啊...嗯...❤】
			PRINTFORMDL  忍耐到极限的帕露西在夜色中排解着欲望
			PRINTFORMDL  就算尽力的压抑着声音，但是随着指尖的动作还是会漏出充斥着欲情的喘息
			PRINTFORML  【————❤】
			PRINTFORMDL  高潮后的少女困倦的躺在床上，进入了梦乡
		RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
			PRINTFORML  【哈...%CALLNAME:MASTER%...%CALLNAME:MASTER%...❤】
			PRINTFORMDL  睡梦中的%CALLNAME:MASTER%被帕露西的声音吵醒
			PRINTFORMDL  本该在身旁安眠的的少女此时抱着%CALLNAME:MASTER%的胳膊，用%CALLNAME:MASTER%的指尖刺激着敏感的部位
			PRINTFORML  【哈啊...%CALLNAME:MASTER%的手指好舒服...跟自己的完全不一样...❤】
			PRINTFORMDL  帕露西沉迷在自慰中，完全没注意到自己的恋人醒了的样子
			PRINTFORMDW 要怎么办呢...
			 CALL ASK_M("自己动手",1,"装睡",1)
				SELECTCASE RESULT
					CASE 0
						PRINTFORML 【呀啊！？%CALLNAME:MASTER%！？】
						PRINTFORMDL 察觉到你的手指自己在腔内揉弄的时候、帕露西惊讶地娇嗔着
						PRINTFORML  【什么时候开始醒着的、呀❤快停下❤】
						PRINTFORMDW 没理会害羞得满脸通红的少女、%CALLNAME:MASTER%加快手指的动作、激烈地刺激着帕露西敏感的地方
						PRINTFORML 【呀啊❤这样粗暴的不行❤不行呀啊啊——❤】
						PRINTFORML 【%CALLNAME:MASTER%、%CALLNAME:MASTER%❤】
						PRINTFORMDW 帕露西挣扎着想脱离你的手指，但在一轮又一轮的快感中失去了力气
						PRINTFORMDL 在你执拗的刺激下少女渐渐放弃了抵抗、声音也不再拘束着，情欲被解放了出来
						PRINTFORML 【已经不行了、要去了❤%CALLNAME:MASTER%、%CALLNAME:MASTER%、%CALLNAME:MASTER%❤❤❤——】
						PRINTFORMDL G点激烈的被进攻数次后，少女终于被推向了高潮，肉壶痉挛着潮吹了、爱液飞溅染湿了床单
						PRINTFORMDL 着抱着你的胳膊、胸口起伏着喘着粗气
						PRINTFORMDL 【哈呜...%CALLNAME:MASTER%真是的...】
						PRINTFORMDW 感觉被情欲冲击得精疲力尽的帕露西也很有魅力，你决定...
						CALL ASK_M("现在开始才是本番",1,"就这样休息吧",1)
							SELECTCASE RESULT
								CASE 0
									PRINTFORML 【诶、%CALLNAME:MASTER%？】
									PRINTFORMDL 看到你站起来口上解下睡裤的帕露西察觉到了你的意图，挣扎着想逃离你
									PRINTFORML  【無理無理無理、我已经没有力气了、而且才刚高潮过——】
									PRINTFORMDW 使不出力的帕露西没等爬起来就被%CALLNAME:MASTER%抓住、早已准备好的蜜穴从后方完全纳入了%CALLNAME:MASTER%的阴茎
									PRINTFORML 【呜哦哦——❤哦啊❤呜哦❤】
									PRINTFORMDW 突然又强烈的快感仿佛让少女的脑内空白了一瞬间、话语只能变成野兽般的娇喘吐出来
									PRINTFORMDL 只顾着释放欲望的%CALLNAME:MASTER%
									PRINTFORMDL 被压在身下的帕露西只能接受着%CALLNAME:MASTER%一次又一次的冲击、在蜜壶内的每一次进出少女的肉体都痉挛着在交合处飞溅着爱液
									PRINTFORMDW 帕露西渐渐放弃了抵抗，坦率的接受着一波又一波快感撞击着大脑
									PRINTFORML 【%CALLNAME:MASTER%、%CALLNAME:MASTER%、%CALLNAME:MASTER%❤❤❤——】
									PRINTFORMDL 不知道是第几次高潮、少女在意识模糊中喊着你的名字，蜜壶的痉挛也把你最后一滴欲望榨了出来
									PRINTFORML 【啾❤啾噜❤】
									PRINTFORMDW 精疲力尽的二人索求着彼此的嘴唇、在疲惫中睡去了
								CASE 1
									PRINTFORML 【呼...%CALLNAME:MASTER%...❤】
									PRINTFORMDL 大概是累了吧，臂弯中的帕露西很快就进入梦乡
									PRINTFORMDW 你欣赏了一会少女尚未完全褪去情欲的睡颜、不知何时也睡去了
							ENDSELECT
					CASE 1

						PRINTFORML 【%CALLNAME:MASTER%...%CALLNAME:MASTER%...❤】
						PRINTFORMDL 没察觉到恋人已经醒了的少女用%CALLNAME:MASTER%的手指在自己的腔内进出着
						PRINTFORMDL 能感觉到自己的中指被温热的腔肉紧紧包裹着、蜜壶内爱液已经泛滥、即使不去凑近也能闻到浓厚情欲的香甜气味
						PRINTFORMDW 好像已经不满足于缓慢的刺激、少女的动作渐渐激烈起来、自己的腰身也配合着用敏感部位蹭着%CALLNAME:MASTER%的手指
						PRINTFORML 【哈啊❤%CALLNAME:MASTER%❤再激烈一些也可以哦❤】
						PRINTFORMDW 好像把恋人可能会醒这件事抛在脑后、帕露西的动作愈发大胆起来，手指也在腔内越来越频繁地抽插着
						PRINTFORMDL 在快感的刺激下少女的情欲渐渐解放着、娇喘也慢慢大声了起来
						PRINTFORMDL 这样无论是谁都会醒的吧、正当你这么想的时候
						PRINTFORML 【已经不行了、要去了❤%CALLNAME:MASTER%、%CALLNAME:MASTER%、%CALLNAME:MASTER%❤❤❤——】
						PRINTFORMDL 少女终于用你的手指到达了高潮、飞溅的爱液撒到了你的小臂上
						PRINTFORMDL 指尖随即又被温热包围
						PRINTFORMDW 帕露西吮吸着%CALLNAME:MASTER%的手指、用舌尖清理着留下的痕迹
						PRINTFORMDL 【啾噜噜❤——嗯...这样就没问题了❤】
						PRINTFORMDW 欲望得到排解的少女亲吻着你的脸颊、倒在你的臂弯中睡去了
						PRINTFORMDW 这下反而是自己这边睡不着了啊
				ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF TALENT:恋人
			PRINTFORML 【呜...至少今天...】
			PRINTFORMDL 帕露西紧紧抱着被子、压抑着下腹传来的燥热
			PRINTFORML 【已经忍耐不住了...明天得去找%CALLNAME:MASTER%才行...】
			PRINTFORMDL 少女心里想着明天的计划，强压住体内的欲望，渐渐睡去了
		ELSEIF TALENT:恋慕
			PRINTFORML 【呜...至少今天...】
			PRINTFORMDL 帕露西紧紧抱着被子、压抑着下腹传来的燥热
			PRINTFORML 【%CALLNAME:MASTER%、什么时候才会察觉到我的心意呢...】
			PRINTFORML 【这样的话干脆...】
			PRINTFORMDL 少女心里想着明天的计划，强压住体内的欲望，渐渐睡去了
		ELSE
			PRINTFORML 【呜...偶尔也要节制...】
			PRINTFORMDL 帕露西紧紧抱着被子、压抑着下腹传来的燥热
			PRINTFORMDL 少女强压着体内的欲望，渐渐睡去了
		RETURN 1
		ENDIF

	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_XXX_EVENT_KX_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_XXX_EVENT_KX_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_XXX_EVENT_KX_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=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_XXX_EVENT_KX_26(ARG,ARG:1)

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

;オナバレックス判定用関数
;RETURN -1で強制失敗、RETURN 1で強制成功
@M_KOJO_XXX_EVENT_KX_26_1(ARGS)
#DIM 補正値
IF ARGS == "どうぞそのまま"

ELSEIF ARGS == "二人で"

ENDIF

;使用例
;IF !TALENT:XX:恋慕
;	PRINTFORMW %CALLNAME:XX%はガードが堅いぞ！
;	RETURN -1
;ENDIF
;IF TALENT:MASTER:濃厚精液
;	PRINTFORMW %CALLNAME:XX%はちんぽに弱いぞ！
;	RETURN 1
;ENDIF
;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_XXX_EVENT_KX_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		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
RETURN 1

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

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

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

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

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_Axl_EVENT_K60_31(ARG,ARG:1)
;口上主はTARGET
;ARGは会ってない日数
;何日以上会ってなかったら愚痴を言うとかできます
;CFLAG:オナバレで分岐入れてもよさそう
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;今日会っていない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今日会っている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		IF CFLAG:60:1065==2
			CALL K60_CHOUSHICANBAI
		ELSEIF CFLAG:60:1067 > 5 && CFLAG:60:1068==0
			CALL K60_YEXI1
		ELSEIF CFLAG:60:1065==1
			CALL K60_RENNAI
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;自由行動中
;ARG:1      0=行動中,1=完了時
;技能系の行動は技能レベルが1以上なら発生
;==================================================
@M_KOJO_Axl_EVENT_K60_32(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
	CASE 0
		;▼考え事,（～は考えに耽っている。）
		IF !ARG:1
			;行動中
			PRINTFORML
			PRINTFORML 【真嫉妒啊...真嫉妒啊...】
			PRINTFORMW 帕露西在思考时突然咬起了手帕
		ELSE
			;完了時
			PRINTFORML
			PRINTFORML 【姆唔唔...】
			PRINTFORMW 帕露西面色阴沉的结束了思考
		ENDIF
	CASE 1
		;▼遊ぶ,（～は走り回っている。）
		;※[幼稚]持ちのみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 2
		;▼食事,（～は食事を摂っている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 3
		;▼つまみ食い（～はこっそりつまみ食いをしている。）
		;※[妖精]持ちとルーミア、こいし、幽々子、紫苑のみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 4
		;▼掃除,（～はテキパキと部屋の掃除をしている。）
		;※[掃除係]持ちまたは汚臭耐性-1以下のみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 5
		;▼運動,（～は張り切って運動している。）
		;※[音楽知識]持ちは除く（演奏になる）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 6
		;▼読書,（～は黙々と本を読んでいる。）
		IF !ARG:1
			;行動中
				PRINTFORML 【...】
				PRINTFORML 凑上去想看看帕露西在读什么
				PRINTFORML 封皮上写着“奥赛罗”

		ELSE
			;完了時
			PRINTFORML 【呼呼...能感觉到满满的嫉妒呢...】
			PRINTFORMDL 帕露西小声念叨着
		ENDIF
	CASE 7
		;▼料理,
		IF !ARG:1
			;行動中
			IF Activity_Duration:TARGET > 30
				;料理中（～は軽快に料理をしている。）
				PRINTFORML
			ELSE
				;食事中（～は作った料理を食べている。）
				PRINTFORML
			ENDIF
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 8
		;▼演奏
		;※[音楽知識]持ちのみ（TALENT:音楽知識で変化）
		;1,～は小気味よく演奏している。
		;2,～は気ままに歌っている。
		;3,～は華麗に踊っている。
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 9
		;▼採集,（～使える素材を探している。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 10
		;▼釣り,（～はのんびり釣りをしている。）
		IF !ARG:1
			;行動中
			PRINTFORML 【...】
			PRINTFORMDL 少女一言不发的看着钓竿
		ELSE
			;完了時
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML 【钓不到鱼...好嫉妒啊...好嫉妒啊...】
					PRINTFORMDL 少女对着空空如也的桶咬起了手指
				CASE 1
					PRINTFORML 【姆呜呜...为什么他的鱼就这么大...】
					PRINTFORMDL 少女看着别人的桶里的鱼咬起了手指
			ENDSELECT
		ENDIF
	CASE 11
		;▼実験,（～は怪しい実験をしている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 12
		;▼のんびり,（～はのんびりしている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 13
		;▼晩酌,（～はまったりとお酒を飲んでいる。）
		;※酒耐性0以上のみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 14
		;▼買い物,（～は気ままに買い物している。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 15
		;▼説教,（～はじっと聞いている…）
		;※神霊・蓬莱人は除く
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 16
		;▼落とし穴,（～は落とし穴を増やしている）
		;※三月精・チルノ・クラウンピースのみ
		;それ以外は落ちる側
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時,
			;（仕掛け人（失敗時）,誰も引っかからないので～は飽きてしまったようだ…）
			;（落ちた側（戦闘能力2～4）,～はすぐに穴から飛び出して周りをキョロキョロ見回している…）
			PRINTFORML
		ENDIF
	CASE 17
		;▼雪だるま作り（～は雪を集めている）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 18
		;▼炬燵でのんびり（～は炬燵に入って温まっている）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;ハッピーニューイヤー
;年越しの瞬間に同じ部屋に居ると発生
;==================================================
@M_KOJO_XXX_EVENT_KX_33(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORMW
ENDIF
RETURN 1

;==================================================
;技能レベルアップ
;各ABL値はレベルアップ後の値になってます
;==================================================
@M_KOJO_Axl_EVENT_K60_34(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
	CASE 1
		;戦闘技能
		PRINTFORMW
	CASE 2
		;話術技能
		PRINTFORMW
	CASE 3
		;清掃技能
		PRINTFORMW
	CASE 4
		;教養
		PRINTFORMW
	CASE 5
		;料理技能
		PRINTFORMW
	CASE 6
		;採集Lv
		PRINTFORMW
	CASE 7
		IF ARG:1 == 0
			;音楽技能
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【音楽知識】取得
			PRINTFORMW
		ELSEIF ARG:1 == 2
			;【相対音感】取得
			PRINTFORMW
		ENDIF
	CASE 8
		;釣りLv
		PRINTFORMW
	CASE 9
		IF ARG:1 == 0
			;調合Lv
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【調合知識】取得
			PRINTFORMW
		ENDIF
	CASE 10
		;伐採Lv
		PRINTFORMW
	CASE 11
		IF ARG:1 == 0
			;指
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【器用な指】取得
			PRINTFORMW
		ENDIF
	CASE 12
		IF ARG:1 == 0
			;舌
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【舌使い】取得
			PRINTFORMW
		ENDIF
	CASE 13
		IF ARG:1 == 0
			;胸
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【淫乳】取得
			PRINTFORMW
		ENDIF
	CASE 14
		;腰
		PRINTFORMW
	CASE 15
		IF ARG:1 == 0
			;膣
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【淫壺】取得
			PRINTFORMW
		ENDIF
	CASE 16
		IF ARG:1 == 0
			;アナル
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【尻穴狂い】取得
			PRINTFORMW
		ENDIF
	ENDSELECT
	PRINTL
ENDIF
RETURN 1

;==================================================
;デイリーイベント2,夢精
;濃厚精液状態で発生
;▼地の文--------------------------------------------------
;【MASTER】が夢精で汚した下着を洗っていると【TARGET】が飛んできた！
;【TARGET】はそんなもの他の洗濯物と一緒に洗わないでと抗議すると、【MASTER】の手に収まった下着をふんだくり戻っていった…
;【TARGET】　欲情の珠＋1000
;==================================================
@M_KOJO_XXX_DAILY_EVENT_KX_2(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
;※コメントアウトすると欲情の珠＋1000（JUEL:11 += 1000）もカットされるので注意
CALL DAILY_MESSAGE_2(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORMW
ENDIF
RETURN 1

;==================================================
;デイリーイベント4,物思い
;親密5以上で発生（来訪キャラのみ）
;▼地の文--------------------------------------------------
;とりとめもない思考に耽っていた【TARGET】は、いつの間にか【MASTER】のことを考えていたことに気づいた
;【TARGET】は明日【MASTER】に会いに行くことにしたようだ
;==================================================
@M_KOJO_XXX_DAILY_EVENT_KX_4(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
CALL DAILY_MESSAGE_4(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORMW
ENDIF
RETURN 1

;==================================================
;デイリーイベント12,特訓
;信頼100以上で発生（拠点キャラのみ）
;==================================================
@M_KOJO_XXX_DAILY_EVENT_KX_12(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
;コメントアウトできるのはARG:1=1,2のみです
CALL DAILY_MESSAGE_12(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG:1
	CASE 1
		;特訓を頼まれる
		;～から新技の訓練に付き合って欲しいと言われた
		PRINTFORML
	CASE 2
		;断る
		;～は残念そうだ
		PRINTFORML
	CASE 3
		;～の攻撃！
		;※ここはWAITしないでください
		PRINTFORML
	CASE 4
		IF ARG:2
			;時間停止して回避
			PRINTFORML
		ELSE
			;回避成功
			PRINTFORML
		ENDIF
	CASE 5
		;回避失敗
		PRINTFORML
	ENDSELECT
ENDIF
RETURN 1

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

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

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

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

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

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

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

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

;-------------------------------------------------
;処女・無自覚非処女に挿入する直前の口上
;RETURN 1するとコマンドをキャンセルします
;RETURN 0なら通します
;CFLAG:破瓜キャンセル口上有がオンになってないと読み込まれないので注意
;-------------------------------------------------
@M_KOJO_XXX_EVENT_KX_LOST_VIRGIN_STOP
;-------------------------------------------------
PRINTFORML
RETURN 1

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

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

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

;==================================================
;贈り物イベント
;==================================================
@M_KOJO_XXX_EVENT_KX_GIFT(ARG, GIFT_ID, 評価点, GIFT_NAME, SENSE)
#DIM GIFT_ID
#DIM 評価点
#DIMS GIFT_NAME
#DIMS SENSE
;---------------------------------------------------------------------------------------------------
;評価点       贈り物の評価点（1～999）,口上主があげた場合でも口上主の評価点
;GIFT_NAME    贈り物の名称
;SENSE        贈り物に設定された属性。STRCOUNT(SENSE, "ほげほげ/")を使うと特定の属性を判定できます。
;GIFT_ID      これ単体では使いません。以下の式内関数を使うとデータを抽出できます（こだわりたい人用）
;　GET_GIFTDATA(GIFT_ID, "回数")    貰った（あげた）回数
;　GET_GIFTDATA(GIFT_ID, "得点")    得点（1～999）,口上テンプレ内では用意されてます。
;　GET_GIFTDATA(GIFT_ID, "日付")    貰った（あげた）日付（1～9999）
;　GET_GIFTDATA(GIFT_ID, "場所")    買った場所（デートの行き先）
;　GET_GIFTDATA(GIFT_ID, "形容詞")  形容詞番号（贈り物_形容詞.erb参照）
;　GET_GIFTDATA(GIFT_ID, "本体")    本体番号（贈り物_本体.erb参照）
;--------------------------------------------------------------------------------------------------
;デート帰りに口上主があなたに贈り物を渡す（陥落や好感度に関わらず親密5以上から発生）
;評価点は701～999（渡すキャラ本人の評価）
;--------------------------------------------------------------------------------------------------
IF ARG == 1
	;PRINTFORMW 「%GIFT_NAME%をあげるから大事に使って」
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物を大事にする（700点以上）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 2
	;IF STRCOUNT(SENSE, "かわいい/")
	;	PRINTFORMW 「かわいいプレゼントを貰っちゃった」
	;ELSEIF 評価点 >= 800
	;	PRINTFORMW 「とっても素敵なプレゼントを貰っちゃった」
	;ELSE
	;	PRINTFORMW 「素敵なプレゼントを貰っちゃった」
	;ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をお気に入りにする（↑の大事にするから続き）（700点以上かつ最高得点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 3
	;IF STRCOUNT(SENSE, "身につける/")
	;	PRINTFORMW 「明日からこれを付けて行こうっと」
	;ELSE
	;	PRINTFORMW 「明日からこれを持って行こうっと」
	;ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をとりあえず保管する（400～699点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 4
	;PRINTFORMW 「とりあえず飾っておこう」
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をこっそり質に入れる（400点未満）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 5
	;PRINTFORMW 「私これ嫌いなのよね～」
	RETURN 1
ENDIF
RETURN 1

;==================================================
;ムシバトル
;ムシバトルの口上は少し特殊で、PRINTを使うのではなく、
;台詞一行のみをRESULTSに入れてください
;ムシの名前は %MUSHI_NAME% で表示できます
;ムシの名前の最長はアレキサンドラトリバネアゲハの全角14文字です
;文字数制限があります。はみ出ないように気をつけてください
;ARGは残りムシ数か順位です
;==================================================
@M_KOJO_XXX_MESSAGE_COM_KX_MUSHI_BATTLE(ARGS, ARG)
#DIM 残りムシ数
#DIM 順位
SELECTCASE ARGS
CASE "試合前"
	;-------------------------------------------------
	;キャラセレクト時,ARGは使えません
	;全角50文字くらいまで
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「ぶっとばしてさしあげますわ！」
	ENDIF
CASE "戦場に出した"
	;-------------------------------------------------
	;"【（キャラ）】は《（ムシ）》を戦場に出した！」"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「%MUSHI_NAME%！キミにきめた！」
	ENDIF
CASE "攻撃時"
	;-------------------------------------------------
	;"【（キャラ）】《（ムシ）》の『（攻撃名）』！」"の直前
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「ぶっとばせ！%MUSHI_NAME%！」
	ENDIF
CASE "倒れた時"
	;-------------------------------------------------
	;"【（キャラ）】《（ムシ）》は倒れた！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「ああっ！私の%MUSHI_NAME%がっ！」
	ENDIF
CASE "敗退時"
	;-------------------------------------------------
	;"【（キャラ）】敗退！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「私のムシが全滅めつめつ……」
	ENDIF
CASE "タイマン：勝ち"
	;-------------------------------------------------
	;順位は1位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「%CALLNAME:MASTER%よわーい！」
	ENDIF
CASE "タイマン：負け"
	;-------------------------------------------------
	;順位は2位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「%CALLNAME:MASTER%つよーい！」
	ENDIF
CASE "バトルロイヤル：優勝"
	;-------------------------------------------------
	;順位は1位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「やったー！」
	ENDIF
CASE "バトルロイヤル：２位以下"
	;-------------------------------------------------
	;順位は2～4位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「くやし～！」
	ENDIF
CASE "チーム戦：勝ち"
	;-------------------------------------------------
	;順位は1位（やられていても）
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「私のおかげね！」
	ENDIF
CASE "チーム戦：負け"
	;-------------------------------------------------
	;順位は2位
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「味方が弱い！！」
	ENDIF
ENDSELECT
SIF RESULTS != ""
	RETURN 1

;==================================================
;引力操作
;TCVAR:引力点に場所IDを入れるとその地点に引っ張られていきます
;場所IDと同じ拠点マップでしか効果はありません（博麗神社の境内なら拠点が博麗神社のときだけ）
;条件を付けないと永久に引っ張られ続けるので注意
;RANDは基本的に使えません。CFLAG:今日の運勢にその日のランダム数値（0～999）が入っているのでこれを使うと良いです
;==================================================
@M_KOJO_XXX_EVENT_KX_GRAVITY(ARG)

SIF 0
	TCVAR:引力点 = 0

;▼共通設定で使われているサンプル
[SKIPSTART]
	;平日の昼間はランダムで遊びに行く
	IF YOUBI_MATCH(DAY, "月火水木金") && INRANGE(TIME, 600, 960)
		SELECTCASE CFLAG:今日の運勢 % 5
		CASE 1
			TCVAR:引力点 = P2境内
		CASE 2
			TCVAR:引力点 = P10縁側
		CASE 3
			TCVAR:引力点 = P11庭
		CASE 4
			TCVAR:引力点 = P25鎮守の森
		CASEELSE
			TCVAR:引力点 = 0
		ENDSELECT
	ENDIF
	;水木曜日に2分の1の確率で遊びに行く
	SIF YOUBI_MATCH(DAY, "水木") && INRANGE(TIME, 720, 1020) && CFLAG:今日の運勢 % 2 == 0
		TCVAR:引力点 = P213鈴奈庵
	;特定の人物が特定の場所にいるとそこへ引っ張られる
	SIF CFLAG:[[白蓮]]:現在位置 == P103本堂 && !CFLAG:[[白蓮]]:うふふ && SHIRAHU([[白蓮]])
		TCVAR:引力点 = P103本堂
	;土日に10分の1の確率で特定の人物にくっついてまわる
	SIF YOUBI_MATCH(DAY, "土日") && CFLAG:今日の運勢 % 10 == 0 && !CFLAG:[[さとり]]:うふふ && SHIRAHU([[さとり]])
		TCVAR:引力点 = CFLAG:[[さとり]]:現在位置
[SKIPEND]

;==================================================
;スイカ割り
;スイカ割りの口上はムシバトル同様、PRINTを使うのではなく、
;台詞一行のみをRESULTSに入れてください
;カギ括弧は自動で付きます
;"衝突","結果"のみ、口上色が自動で付きます
;"衝突","結果"以外は半角26文字（全角13文字）までの文字数制限があります。はみ出ないように気をつけてください
;数パターンあると雰囲気が出ます（%TEXTR( / )%を使うと良い）
;==================================================
@M_KOJO_XXX_MESSAGE_COM_KX_SUIKA(ARGS)
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL:1 = 0
;-------------------------------------------------
IF LOCAL:1
	SELECTCASE ARGS
	CASE "衝突"
		;-------------------------------------------------
		;場外に出てあなたがキャラと衝突した際の台詞
		;文字数制限はありません,汎用台詞もありません
		;-------------------------------------------------
		RESULTS = いたっ！ ちょっと、危ないじゃないのよ！
	CASE "そこだ！"
		RESULTS = %TEXTR("そこ！/今！")%
	CASE "近い"
		RESULTS = %TEXTR("近い！近いよ！/近づいてるよ！/あとちょっと！")%
	CASE "遠い"
		RESULTS = %TEXTR("まだ遠いよ/まだまだ～")%
	CASE "かなり遠い"
		RESULTS = %TEXTR("全然遠いよー/まだまだずっと遠いー")%
	CASE "前"
		RESULTS = %TEXTR("前にあるよ/そのまま、そのまま/そっちそっち")%
	CASE "少し前"
		RESULTS = %TEXTR("ちょっとだけ前！/すこーし前/あと一歩！")%
	CASE "後ろ"
		RESULTS = %TEXTR("後ろ向いてる！/逆、逆！/そっちじゃないよー")%
	CASE "少し後ろ"
		RESULTS = %TEXTR("すぐ後ろだよ！/すこーし後ろ/一歩後ろ！")%
	CASE "右"
		RESULTS = %TEXTR("右だよ/右、右/もっと右")%
	CASE "少し右"
		RESULTS = %TEXTR("ちょっとだけ右/まだ右かな")%
	CASE "左"
		RESULTS = %TEXTR("左だよ/左、左/もっと左")%
	CASE "少し左"
		RESULTS = %TEXTR("ちょっとだけ左/まだ左かな")%
	CASE "結果"
		;-------------------------------------------------
		;終了後の一言
		;文字数制限はありません,汎用台詞もありません
		;TFLAG:193,
		;   -1=失敗
		;    0=成功
		;    1=大成功
		;    2=木刀で大成功（ボーナス点）
		;ARG
		;    0=正直者
		;    1=ウソつき
		;-------------------------------------------------
		SELECTCASE TFLAG:193
		CASE -1
			RESULTS = ざんね～ん
		CASE 0
			RESULTS = やったね！
		CASE 1
			RESULTS = すごーい！
		CASE 2
			RESULTS = すごい綺麗に割れた！
		ENDSELECT
	ENDSELECT
ENDIF

;外出先特殊遭遇イベント
@RUN_INTO_XXX_KX(MAP_ID)
#DIM MAP_ID
;KXをキャラ番号に置換
;最後に必ずRETURN 1すること
;面識がない場合発生させないなど、あえて不発にさせたい場合RETURN -1すること
;	SIF !CFLAG:XX:面識
;		RETURN -1
;	PRINTFORML %CALLNAME:XX%がいた
;	PRINTFORML 「どうも」
;	CFLAG:XX:好感度 += 5
;	RETURN 1

;セフレ契約用
;"補正"でRETURNした数値が理性判定に加算されるので、
;簡単にセフレにしたいならマイナス、難易度を上げたかったり実質不可能にしたいならプラスすべし
@KOJO_XXX_SF_CONTRACT_KX(ARGS)
SELECTCASE ARGS
	CASE "導入"
		;PRINTFORML 「セフレって、ええー」
	CASE "補正"
		;PRINTFORML （サクッとヤりたいなあ）
		;RETURN -1000
	CASE "成功"
		;PRINTFORML 「いいよー」
	CASE "失敗"
		;PRINTFORML 「おことわりだー」
ENDSELECT

path: ERB/口上・メッセージ関連/個人口上/【60】帕露帕露/M_KOJO_K60_1_イベント.ERB