code:
;-------------------------------------------------
; eraTheWorld 4.630proto用 克勞恩皮絲口上
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;TCVAR:111:350	汗フラグ
;TCVAR:111:351	被逆推たフラグ
;TCVAR:111:352	オナバレ分岐
;TCVAR:111:353	约会会話
;TCVAR:111:355	満足フラグ（TCVAR）
;TCVAR:111:356	漢堡食べたい
;TCVAR:111:357	料理アレンジ
;TCVAR:111:358	一日一回挨拶
;TCVAR:111:359	状況会話（bit）
;TCVAR:111:360	最初から心情不快
;CFLAG:111:1001	満足フラグ
;CFLAG:111:1002	最後に会った日
;CFLAG:111:1003	昨日会ってない
;CFLAG:111:1004	日記用
;CFLAG:111:1005	禮物の礼物
;CFLAG:111:1006	圣诞节禮物
;CFLAG:111:1007	贈り物を保存した回数
;CFLAG:111:1010	無自覚出産
;CFLAG:111:1011～1020	兒童の性格
;CFLAG:111:1021～1030	親が分からない
;CFLAG:111:1031～1040	与えた玩具
;CFLAG:111:1041～1050	与えた禮物
;CFLAG:111:1051～1060	手紙イベント進行度
;CFLAG:111:1091	よちよちベビーの番号
;CFLAG:111:1100	バージョン
;******************************************************************************
;■専用関数
;心情不快判定
@M_KOJO_K111_FUKIGEN(ARG)
#FUNCTION
SIF TALENT:ARG:心情 == -1
	RETURNF 1
SIF CFLAG:ARG:ブチギレ
	RETURNF 1
SIF MARK:ARG:反発刻印 >= 3
	RETURNF 1
RETURNF 0

;おうち判定
;1=克勞恩皮絲的房間,2=純狐邸,3=入海口
@M_KOJO_K111_HOUSE(ARG)
#FUNCTION
IF MAIN_MAP == 10
	IF ARG == CFLAG:[[克勞恩皮絲]]:初期位置
		RETURNF 1
	ELSEIF ARG == 1016
		RETURNF 3
	ELSEIF INRANGE(ARG, 1060, 1072)
		RETURNF 2
	ENDIF
ELSE
	SIF ARG == OMANEKIBEYA() || ARG == CFLAG:[[克勞恩皮絲]]:初期位置
		RETURNF 1
ENDIF

;純狐邸に住んでる判定,引数無
@M_KOJO_K111_JUNKO_KURASHI
#FUNCTION
;月じゃないなら×
SIF MAIN_MAP != 10
	RETURNF 0
;一応二段階で設定しておく
SIF INRANGE(CFLAG:MASTER:初期位置, 1060, 1072)
	RETURNF 1
SIF GROUPMATCH(CFLAG:MASTER:初期位置, CFLAG:[[克勞恩皮絲]]:初期位置, CFLAG:[[純狐]]:初期位置, CFLAG:[[赫喀提亞]]:初期位置)
	RETURNF 1

;地上判定
@M_KOJO_K111_EARTH(ARG)
#FUNCTION
;神社～森
IF ARG < 600
	RETURNF 1
;冥界
ELSEIF INRANGE(ARG, 600, 700)
	IF MAIN_MAP == 6
		;中有之道～積石塚
		IF INRANGE(ARG, 601, 603)
			RETURNF 1
		;八雲邸
		ELSEIF INRANGE(ARG, 630, 639)
			RETURNF 1
		ENDIF
	ELSE
		;中有之道、迷途之家
		SIF GROUPMATCH(ARG, 610, 630)
			RETURNF 1
	ENDIF
;山麓
ELSEIF INRANGE(ARG, 700, 800)
	RETURNF 1
;山頂
ELSEIF INRANGE(ARG, 800, 900)
	IF MAIN_MAP == 8
		;入り口～守矢神社
		SIF INRANGE(ARG, 801, 825)
			RETURNF 1
	ELSE
		;九天瀑布～守矢神社本殿
		SIF INRANGE(ARG, 810, 850)
			RETURNF 1
	ENDIF
;地底～月
ELSEIF INRANGE(ARG, 900, 1100)
	RETURNF 0
ENDIF

;你の印象
@M_KOJO_K111_MASTER_IMPRESSION
#FUNCTIONS
VARSET LOCALS
VARSET LOCAL
SIF CFLAG:[[克勞恩皮絲]]:既成事實
	LOCALS:1 = ロリコン
SIF TALENT:MASTER:清掃中毒 || ABL:MASTER:清掃技能 >= 6
	LOCALS:2 = 清掃中毒者
SIF LEARNED_MENU:[[克勞恩皮絲]] >= 100
	LOCALS:3 = 料理人
SIF CFLAG:[[克勞恩皮絲]]:弾幕勝負勝利
	LOCALS:4 = 弾幕強者
SIF CFLAG:[[克勞恩皮絲]]:斗虫直接勝利
	LOCALS:5 = 昆虫王
SIF TALENT:MASTER:恋人 && !GROUPMATCH(TALENT:MASTER:恋人, [[克勞恩皮絲]], [[赫喀提亞]], [[純狐]])
	LOCALS:6 = モテ男
SIF ABL:MASTER:教養 >= 4
	LOCALS:7 = インテリ
SIF ABL:MASTER:話術技能 >= 5
	LOCALS:8 = 饒舌
SIF MONEY >= 1000000
	LOCALS:9 = 金持ち
FOR LOCAL, 1, 10
	IF LOCALS:LOCAL != ""
		LOCAL:1 = 1
		BREAK
	ENDIF
NEXT
;何も特徴が無い
SIF !LOCAL:1
	LOCALS:10 = 平凡

LOCAL = 0
WHILE LOCALS == ""
	LOCAL = RAND:10 + 1
	SIF LOCALS:LOCAL != ""
		LOCALS = %LOCALS:LOCAL%
WEND
RETURNF LOCALS

;随机台詞,ARGS:1は語尾
@M_KOJO_K111_AUTO(ARGS, ARGS:1)
#FUNCTIONS
SELECTCASE ARGS
CASE "喘ぎ：小"
	SELECTCASE RAND:36
	CASE 1
		LOCALS = 啊嗯っ
	CASE 2
		LOCALS = ぁ嗯っ
	CASE 3
		LOCALS = 啊ぁっ
	CASE 4
		LOCALS = 啊啊っ
	CASE 5
		LOCALS = 呀ゃっ
	CASE 6
		LOCALS = 呀嗯っ
	CASE 7
		LOCALS = 呀ゃっ
	CASE 8
		LOCALS = 呀嗯っ
	CASE 9
		LOCALS = 呀哇っ
	CASE 10
		LOCALS = 咿呀っ
	CASE 11
		LOCALS = 噫唔
	CASE 12, 29, 30
		LOCALS = 呀嗯っ
	CASE 13, 31
		LOCALS = ゃ嗯っ
	CASE 14
		LOCALS = 妞っ
	CASE 15
		LOCALS = 喵っ
	CASE 16
		LOCALS = 嗯啊っ
	CASE 17
		LOCALS = 嗯ぁっ
	CASE 18
		LOCALS = 嗯ゅっ
	CASE 19
		LOCALS = 嗯喵っ
	CASE 20
		LOCALS = 嗯喵っ
	CASE 21
		LOCALS = 呼哇っ
	CASE 22, 32, 33
		LOCALS = 呼诶っ
	CASE 23
		LOCALS = 嗯っ
	CASE 24
		LOCALS = 嗯嗯っ
	CASE 25
		LOCALS = 嗯呀っ
	CASE 26
		LOCALS = 嗯哼っ
	CASE 27, 34
		LOCALS = 嗯喵っ
	CASE 28
		LOCALS = 嗯喵っ
	CASEELSE
		LOCALS = 喵っ
	ENDSELECT
ENDSELECT
RETURNF LOCALS + ARGS:1

;### 口上存在判定 ###################################
@M_KOJO_K111(ARG)
;別人版を作成する際はこの貂プレではなく別人版用口上貂プレをご利用ください

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

;### 口上基本フラグ設定 #############################
@M_KOJO_FLAGSETTING_K111
;基本フラグ設定はここで行ってください
;共通の口上フラグは必要な箇所のコメントアウトを外してご利用ください
;口上専用フラグはご自由に
;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:111:口上内抱き寄せ判定_初回 = 1
CFLAG:111:口上内抱き寄せ判定_通常 = 1

;推倒禁止に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_K111
SETCOLOR 0xE86FC7

@M_KOJO_COLOR_K111_HECA
SETCOLOR 0xc83232

@M_KOJO_COLOR_K111_JUNKO
SETCOLOR 0xffe100

@M_KOJO_COLOR_K111_CHILD(ARG)
IF ARG == 1
	;女の子
	SETCOLOR 0xFF6D6D
ELSEIF ARG == 2
	;男の子
	SETCOLOR 0x7E6BFF
ENDIF

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K111
#DIM VERSION
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAGを使用場合、角色番号の指定が必要になります
VERSION = 201
CALL M_KOJO_COLOR_K111
IF !TALENT:111:無接吻経験 || EXP:111:接吻経験
	SIF FIRSTTIME("初吻", 0, 111)
		PRINTFORML 在这次约会中克劳恩皮斯有了KISS经验
ENDIF
IF EXP:111:精飲経験
	SIF FIRSTTIME("精液の味", 0, 111)
		PRINTFORML 在这次约会中克劳恩皮斯了解了精液的味道
ENDIF
RESETCOLOR
IF CFLAG:111:1100 == VERSION
	CALL M_KOJO_COLOR_K111
	PRINTFORML 最最新的版本(ver.{CFLAG:111:1100 / 100}.{CFLAG:111:1100 % 100})
	RESETCOLOR
ELSE
	CFLAG:111:1100 = VERSION
	CALL M_KOJO_COLOR_K111
	PRINTFORML UPDATE完了！(ver.{CFLAG:111:1100 / 100}.{CFLAG:111:1100 % 100})
	RESETCOLOR
ENDIF
SIF !CFLAG:111:1002
	CFLAG:111:1002 = DAY
;FIRSTTIME"招待"は施しようがないので省略　そこまで重要ではないし
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K111
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
PRINTFORMW 「喂——」
PRINTFORMW 「是谁啊你？」
;月に住んでる
IF MAIN_MAP == 10
	;初期位置が純狐邸
	IF M_KOJO_K111_JUNKO_KURASHI()
		;出会った場所が入海口側
		IF M_KOJO_K111_HOUSE(CFLAG:[[克勞恩皮絲]]:現在位置)
			PRINTFORMW 「侵入者吗？」
			PRINTFORMW 「既然是侵入者，那我就客气地下杀手了哦ー」
			PRINTFORML
			PRINTFORMDL %CALLNAME:MASTER%初来乍到、
			PRINTFORMDL 与即将同居的怪异妖精相遇了。
			PRINTFORMDL 　[0] - 名乗る
			INPUT
		ELSE
			PRINTFORMW 「这是月之民的住处，你一个人类到这来干嘛」
			PRINTFORML 「主人倒是和我说过不要乱出手」
			PRINTFORMW 「但你又不是兔子、来到这里免不了让人怀疑。但算了，反正也与我无关ー」
			PRINTFORML
			PRINTFORMDL %CALLNAME:MASTER%来到的月之世界、
			PRINTFORMDL 生活着一只奇异造型的妖精。
			PRINTFORMDL 　[0] - 名乗る
			INPUT
		ENDIF
		PRINTFORMW 「诶！？ 要住到这里来！？」
		PRINTFORMW 「哼、你这人真是异想天開ー……」
		PRINTFORMW 「我是地狱妖精克劳恩皮斯！」
		PRINTFORMW 「%CALLNAME:MASTER%！」
		PRINTFORMW 「你看着也不像有事的人」
		PRINTFORMW 「来陪我玩会儿吧ー♪」
	ELSE
		PRINTFORMW 「这是月之民的住处，你一个人类到这来干嘛」
		PRINTFORML 「主人倒是和我说过不要乱出手」
		PRINTFORMW 「但莫名其妙出现在这儿的人类干掉也没问题不是吗ー」
		PRINTFORML
		PRINTFORMDL %CALLNAME:MASTER%来到的月之世界、
		PRINTFORMDL 生活着一只奇异造型的妖精。
		PRINTFORMDL 　[0] - 名乗る
		INPUT
		PRINTFORML 「诶？ 你是地上的居民吗？」
		PRINTFORMW 「切，还以为是敌人，真没劲」
		PRINTFORMW 「我是地狱妖精克劳恩皮斯！」
		PRINTFORMW 「%CALLNAME:MASTER%！」
		PRINTFORMW 「有办法来到月之国的人一定很有本事吧？」
		PRINTFORMW 「来陪我玩会儿吧ー♪」
	ENDIF
;月
ELSEIF CFLAG:111:現在位置 >= 1000 && CFLAG:111:現在位置 < 1100
	PRINTFORMW 「这是月之民的住处，你一个人类到这来干嘛」
	PRINTFORML 「主人倒是和我说过不要乱出手」
	PRINTFORMW 「但莫名其妙出现在这儿的人类干掉也没问题不是吗ー」
	PRINTFORML
	PRINTFORMDL %CALLNAME:MASTER%来到的月之世界、
	PRINTFORMDL 生活着一只奇异造型的妖精。
	PRINTFORMDL 　[0] - 名乗る
	INPUT
	PRINTFORML 「诶？ 你是地上的居民吗？」
	PRINTFORMW 「切，还以为是敌人，真没劲」
	PRINTFORMW 「我是地狱妖精克劳恩皮斯！」
	PRINTFORMW 「%CALLNAME:MASTER%！」
	PRINTFORMW 「有办法来到月之国的人一定很有本事吧？」
	PRINTFORMW 「来陪我玩会儿吧ー♪」
;それ以外
ELSE
	PRINTFORMDL
	PRINTFORMDL 突然眼前出现了奇装异服的怪异妖精
	PRINTFORMDW 　[0] - 名乗る
	INPUT
	PRINTFORMW 「我是地狱妖精克劳恩皮斯！」
	PRINTFORMW 「现在和主人一起在地上观光」
	PRINTFORMW 「%CALLNAME:MASTER%！」
	PRINTFORMW 「你看着也不像有事的人」
	PRINTFORMW 「来陪我玩会儿吧ー♪」
ENDIF
;最後にあった日
CFLAG:111:1002 = DAY
;一日一回
TCVAR:111:358 = 1
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;约会帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K111_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTL
	PRINTFORMDL 约会归去途中，克劳恩皮斯慢悠悠拿出火把
	PRINTW
	PRINTFORMW 「要是向%CALLNAME:MASTER%使用能力的话到底会怎样、好想试试？」
	PRINTFORML 「准备好的话要開始了哦ー……」
	PRINTL
	PRINTFORMDW 正说着克劳恩皮斯燃起火把，火光闪烁向四周发散一样的光芒
	PRINTFORMDW %CALLNAME:MASTER%不得不将双眼闭上，并且用双手挡在眼前
	PRINTL
	PRINTL
	FORCEWAIT
	SETCOLOR 255, 100, 255
	PRINTFORMW ……啾❤
	CALL M_KOJO_COLOR_K111
	PRINTL
	PRINTFORMW 「欸嘿嘿，中计了哦ー❤」
	IF FIRSTTIME("初吻")
		PRINTFORMW 「怎样？皮斯初吻的味道、完美的品尝到了吧♪」
		IF TALENT:111:恋慕
			PRINTFORMW 「不仅刚才完美的中了皮斯的计谋～、而且……」
			PRINTFORMW 「而且、也成功将初吻献给了%CALLNAME:MASTER%❤」
			CSTR:111:初吻喪失履歴 = %PRINT_DATE_F(DAY)%、%DATENAME_PLACE()%在约会归途、将初吻献给了最爱的%CALLNAME:MASTER%
		ELSEIF TALENT:111:思慕
			PRINTFORMW 「不仅刚才完美的中了皮斯的计谋～、而且……」
			PRINTFORMW 「而且、对象是%CALLNAME:MASTER%也是大胜利❤」
			CSTR:111:初吻喪失履歴 = %PRINT_DATE_F(DAY)%、%DATENAME_PLACE()%在约会归途、将初吻献给了亲密的%CALLNAME:MASTER%
		ELSE
			PRINTFORML 「因为%CALLNAME:MASTER%、浑身上下都是漏洞」
			PRINTFORMW 「下次要是还这么没防备的话还是会被恶作剧的哦～？」
			CSTR:111:初吻喪失履歴 = %PRINT_DATE_F(DAY)%、%DATENAME_PLACE()%在约会归途、为了恶作剧将初吻献给了%CALLNAME:MASTER%
		ENDIF
	ELSE
		PRINTFORML 「因为%CALLNAME:MASTER%、浑身上下都是漏洞」
		PRINTFORMW 「下次要是还这么没防备的话还是会被恶作剧的哦～？」
	ENDIF
	PRINTFORMW 「呀哈哈哈ー♪ 下次也要一起约会哦！」
	;接吻を中止したい場合は以下を開放
	;TCVAR:中止接吻 = 1
ENDIF
RETURN 1

;==================================================
;约会帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K111_2(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に接受かどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		;初回
		IF FIRSTTIME("告白")
			PRINTL
			PRINTFORMDL 约会归途、克劳恩皮斯好像没什么精神的样子
			PRINTW
			PRINTFORMW 「%CALLNAME:MASTER%……」
			PRINTFORMW 「有点事想……嗯……认真和你说一下……」
			PRINTFORMW 「嗯……！ %CALLNAME:MASTER%！」
			PRINTL
			PRINTFORML 「我喜欢%CALLNAME:MASTER%！！」
			PRINTL
			FORCEWAIT
			PRINTFORMW 「虽然之前已经KISS过了，但最近我发现自己想要的根本不只这些」
			PRINTFORMW 「该说是想要更激烈的吻还是…想KISS想得不得了……」
			PRINTFORMW 「我终于想明白，我想和%CALLNAME:MASTER%成为恋人的关系！」
			PRINTFORMW 「然后就可以尽情KISS，尽情把自己喜欢%CALLNAME:MASTER%的这份心情传递给%CALLNAME:MASTER%……」
			PRINTFORMW 「所以，%CALLNAME:MASTER%会接受我的感情吗……？」
			PRINTL
		;以降
		ELSE
			PRINTL
			PRINTFORMDL 约会归途中，克劳恩皮斯再一次叫住%CALLNAME:MASTER%。目光交汇，克劳恩皮斯直直地望着%CALLNAME:MASTER%
			PRINTW
			PRINTFORMW 「%CALLNAME:MASTER%……」
			PRINTFORMW 「%CALLNAME:MASTER%有喜欢的人了吗……？」
			PRINTL
			PRINTFORMDL %CALLNAME:MASTER%因为自己不坚定地决心而说不出话，只是默默看着克劳恩皮斯。
			PRINTFORMDL 克劳恩皮斯不知是察觉到了什么还是等待并无回应，率先開口了。
			PRINTW
			PRINTFORMW 「自从上次以来，我依旧喜欢着%CALLNAME:MASTER%」
			PRINTFORMW 「所以无论如何…希望今天能得到%CALLNAME:MASTER%地回应……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;初めての返答（お断りしてない）
		IF FIRSTTIME("返答")
			PRINTFORMW 「真的吗！？」
			PRINTFORMW 「那%CALLNAME:MASTER%和我就成为恋人了哦！？」
		ELSE
			PRINTFORMW 「真的吗！？」
			PRINTFORMW 「%CALLNAME:MASTER%接受我的爱了吗！？」
		ENDIF
		PRINTFORMW 「呀吼っ♪ 太棒了～！！」
		PRINTL
		PRINTFORMDL 克劳恩皮斯脸上洋溢着烂漫的笑容，兴奋地忍不住跳起来
		PRINTFORMDL 顺势一头钻入%CALLNAME:MASTER%地怀中。
		PRINTFORMDL %CALLNAME:MASTER%双手将她抱紧、
		PRINTFORMDL 克劳恩皮斯将小小脑袋埋在%CALLNAME:MASTER%胸口。
		PRINTW
		PRINTFORMW 「%CALLNAME:MASTER%地身体好让人安心～❤ 呼呼～♪」
		PRINTFORMW 「想要被%CALLNAME:MASTER%多抱一会儿……」
		PRINTL
		;雪
		IF GROUPMATCH(天候, 8, 9, 10, 11, 12, 13)
			PRINTFORMDW 两人一直一直相拥一块儿，彼此在这雪季分享体温――
		;雨
		ELSEIF GROUPMATCH(天候, 4, 5, 6, 7)
			PRINTFORMDW 两人一直一直相拥一块儿，彼此在雨中分享着幸福的感觉――
		;早朝～昼
		ELSEIF INRANGE(TIME, 240, 899)
			PRINTFORMDL 幸福的二人
			PRINTFORMDW 连太阳也拾取将二人的影子融在一起――
			;地の文に合わせるために勝手に天気を変える,まぁ変わるのほぼ陰天だけなんで
			天候 = 0
		;夕方
		ELSEIF INRANGE(TIME, 900, 1140)
			PRINTFORMDL 夕阳下二人的身影
			PRINTFORMDW 充满着幸福感的融在一起――
			天候 = 0
		;夜
		ELSE
			PRINTFORMDL 两人相拥一块儿，彼此倾诉着幸福
			PRINTFORMDW 静谧的月光下，二人的身影格外宁静――
			天候 = 0
		ENDIF
		PRINTL
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;初めてのお断り
		IF FIRSTTIME("返答")
			PRINTFORMW 「这样啊……、呜呜、没关系」
			PRINTFORMW 「但是，我能意识到自己内心真正的感情……」
			PRINTFORMW 「并且，能将那份感情认认真真传达给%CALLNAME:MASTER%，已经让我心情清爽很多了」
			PRINTL
			PRINTFORMDL 克劳恩皮斯不停擦拭着不争气的眼角滚落的泪水、
			PRINTFORMDL 努力调整着心情将脸别向一旁。
			PRINTW
			PRINTFORMW 「我可是被甩了哦，完全就是超级悲伤的事情……但是……」
			PRINTFORMW 「但是，心情也确实焕然一新了！」
			PRINTFORMW 「而且、%CALLNAME:MASTER%应该还没有别的喜欢的女孩子吧？」
			PRINTFORMW 「所以我之后也会继续将这份心意传达给%CALLNAME:MASTER%！」
			PRINTFORMW 「在%CALLNAME:MASTER%接受我之前，我都不会放弃的哦！」
		;お断り二回目以降
		ELSE
			PRINTFORMW 「这样啊……、呜呜、没关系」
			PRINTFORMW 「但是%CALLNAME:MASTER%的心还是动摇了吧，总觉得看得到希望」
			PRINTFORMW 「只要%CALLNAME:MASTER%还在陪伴我、我就不会放弃%CALLNAME:MASTER%！」
		ENDIF
		PRINTL
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;约会帰り
;==================================================
@M_KOJO_SPEVENT_K111_3(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		;ただいま
		IF CFLAG:[[克勞恩皮絲]]:神社在住
			PRINTFORML 「回来啦～！」
			IF BASE:[[克勞恩皮絲]]:体力 < MAXBASE:[[克勞恩皮絲]]:体力 / 2 || BASE:[[克勞恩皮絲]]:気力 < MAXBASE:[[克勞恩皮絲]]:気力 / 2
				PRINTFORMW 「呼～…、好累人～」
			ELSEIF TIME >= CFLAG:[[克勞恩皮絲]]:就寝時間 + 60
				PRINTFORMW 「呼ぇ～…、都困了……」
			ELSEIF TIME_PROGRESS(TCVAR:[[克勞恩皮絲]]:空腹時刻)
				PRINTFORMW 「唔ー、肚子饿了～」
			ELSE
				PRINTFORMW 「下次再去玩吧♪」
			ENDIF
		ELSEIF TALENT:[[克勞恩皮絲]]:恋慕
			SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「呼～…、好累人～」
				PRINTFORMW 「%CALLNAME:MASTER%との约会は楽しいな♪」
			CASE 2
				PRINTFORML 「啊ー玩得尽兴了！」
				PRINTFORMW 「下次再去约会吧♪」
			CASEELSE
				PRINTFORML 「已经要回去了吗ー？」
				PRINTFORMW 「不再玩会儿了嘛～」
			ENDSELECT
		ELSE
			PRINTFORML 「啊ー玩得尽兴了！」
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「下次再去玩吧～♪」
			CASE 2
				PRINTFORMW 「下次该去哪儿玩呢～？」
			CASEELSE
				PRINTFORMW 「下次再去玩吧♪」
			ENDSELECT
		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_EVENT_K111_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた＆TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG == 1 || ARG == 2) && !TCVAR:111:358
		CALL M_KOJO_EVENT_K111_1_MAINMAP(ARG)
		RETURN 1
	ENDIF
;	;-------------------------------------------------
;	;TARGETが入ってきた
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;
;	;統合しました
;
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	;不知羞恥と大体入ってくる
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「啊！ %CALLNAME:MASTER%在啊！」
		PRINTFORMW 「诶嘿\/\/\/ 要一起来吗\/\/\/」
		CALL M_KOJO_EVENT_K111_1_END(ARG)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「啊！ %CALLNAME:MASTER%在啊！」
		PRINTFORMW 「对不起ー、打扰你洗澡了ー」
		CALL M_KOJO_EVENT_K111_1_END(ARG)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML 「啊！ %CALLNAME:MASTER%在啊！」
		PRINTFORMW 「呼呼ー嗯♪ 我要洗澡所以%CALLNAME:MASTER%出去吧♪」
		CALL M_KOJO_EVENT_K111_1_END(ARG)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6 && !TCVAR:111:358
		;萬聖節
		IF DAY:2 == 3 && DAY:3 == 30
			CALL M_KOJO_EVENT_K111_1_HALLOWEEN
		;元旦（2年目以降）
		ELSEIF DAY:2 == 1 && DAY:3 == 1 && DAY != 1
			CALL M_KOJO_EVENT_K111_1_GANTAN
		;聖誕節イブ
		ELSEIF DAY:2 == 4 && DAY:3 == 24 && !TCVAR:[[克勞恩皮絲]]:今天的礼物
			CALL M_KOJO_EVENT_K111_1_XMAS
		ELSE
			PRINTFORML 「啊！ %CALLNAME:MASTER%！」
			IF TALENT:111:恋慕
				;月
				IF CFLAG:111:現在位置 >= 1000 && CFLAG:111:現在位置 < 1100
					;恋人
					IF TALENT:111:恋人
						PRINTFORMW 「特意为了见我而来的嘛！？」
						PRINTFORMW 「哇啊♪ 爱死你了ー❤」
					ELSE
						PRINTFORMW 「来做什么吗？」
						PRINTFORMW 「好不容易见个面，一起玩一会儿吧ー！」
					ENDIF
				ELSE
					SELECTCASE RAND:5
					CASE 1
						PRINTFORMW 「在这边偶遇真是巧合！」
					CASE 2
						PRINTFORMW 「一起去哪里玩玩吧？」
					CASE 3
						PRINTFORMW 「一个人出来的吗？ 不如和我一起玩玩吧～」
					CASE 4
						PRINTFORMW 「%CALLNAME:MASTER%～！ 你很闲吧，陪我玩嘛ー？」
					CASEELSE
						PRINTFORMW 「来玩吧来玩吧っ♪」
					ENDSELECT
				ENDIF
			ELSE
				PRINTFORMW 「你们在做什么呢ー？」
			ENDIF
			;バレンタイン
			SIF DAY:2 == 4 && DAY:3 == 14
				CALL M_KOJO_EVENT_K111_1_VALENTINE
		ENDIF
		CALL M_KOJO_EVENT_K111_1_END(ARG)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他角色と约会中に遭遇した
	;ARG:1に约会的对象
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7 && !TCVAR:111:358
		;萬聖節
		IF DAY:2 == 3 && DAY:3 == 30
			CALL M_KOJO_EVENT_K111_1_HALLOWEEN
		;元旦（2年目以降）
		ELSEIF DAY:2 == 1 && DAY:3 == 1 && DAY != 1
			CALL M_KOJO_EVENT_K111_1_GANTAN
		;聖誕節イブ
		ELSEIF DAY:2 == 4 && DAY:3 == 24 && !TCVAR:[[克勞恩皮絲]]:今天的礼物
			CALL M_KOJO_EVENT_K111_1_XMAS
		ELSE
			PRINTFORML 「啊！ %CALLNAME:MASTER%！」
			IF TALENT:111:恋慕
				;赫喀提亞と约会
				IF FLAG:约会的对象 == [[赫喀提亞]]
					PRINTFORML 「主人……！」
					PRINTFORMW 「主人……我呆在这里真的好吗……？」
				;純狐と约会
				ELSEIF FLAG:约会的对象 == [[純狐]]
					PRINTFORML 「友人大人…！」
					PRINTFORMW 「主人……我呆在这里真的好吗……？」
				;三月精or琪露諾と约会
				ELSEIF GROUPMATCH(FLAG:约会的对象, [[桑尼]], [[露娜]], [[斯塔]], [[琪露諾]])
					;ここはフルネーム
					PRINTFORML 「库！ %NAME:(FLAG:约会的对象)%！」
					IF TALENT:[[克勞恩皮絲]]:恋人
						PRINTFORMW 「%CALLNAME:MASTER%是我老公欸！ 你们离他远点ー！」
					ELSE
						PRINTFORMW 「%CALLNAME:MASTER%只可以和我玩！ 你们离他远点！」
					ENDIF
				;拉瓦爾と约会,稍微仲良し
				ELSEIF FLAG:约会的对象 == [[拉瓦爾]]
					PRINTFORMW 「在和%CALLNAME:(FLAG:约会的对象)%一起玩吗？」
					IF TALENT:[[克勞恩皮絲]]:恋人
						PRINTFORMW 「话说在前面、%CALLNAME:MASTER%是我老公哦！」
					ELSE
						PRINTFORMW 「真好！ 让我也加入吧！」
					ENDIF
				;妖精と约会
				ELSEIF TALENT:(FLAG:约会的对象):妖精
					PRINTFORMW 「这是哪里来的妖精、你们关系很好吗ー？」
					SIF TALENT:[[克勞恩皮絲]]:恋人
						PRINTFORMW 「%CALLNAME:MASTER%是我老公哦！」
				;それ以外
				ELSE
					PRINTFORMW 「这女的谁啊？」
					SIF TALENT:[[克勞恩皮絲]]:恋人
						PRINTFORMW 「%CALLNAME:MASTER%是我老公哦！」
				ENDIF
			ELSE
				;赫喀提亞と约会
				IF FLAG:约会的对象 == [[赫喀提亞]]
					PRINTFORML 「主人！」
					PRINTFORMW 「你们在这儿做什么呢？」
				;純狐と约会
				ELSEIF FLAG:约会的对象 == [[純狐]]
					PRINTFORML 「友人大人！」
					PRINTFORMW 「你们在这儿做什么呢？」
				;三月精or琪露諾or拉瓦爾と约会
				ELSEIF GROUPMATCH(FLAG:约会的对象, [[桑尼]], [[露娜]], [[斯塔]], [[琪露諾]], [[拉瓦爾]])
					PRINTFORML 「哦っ、%CALLNAME:(FLAG:约会的对象)%也在啊！」
					PRINTFORMW 「你们在干嘛呢？ 让我也加入嘛ー！」
				ELSE
					PRINTFORMW 「你们在做什么呢ー？」
				ENDIF
			ENDIF
			;バレンタイン
			SIF DAY:2 == 4 && DAY:3 == 14
				CALL M_KOJO_EVENT_K111_1_VALENTINE
		ENDIF
		CALL M_KOJO_EVENT_K111_1_END(ARG)
		RETURN 1
	ENDIF
;	;-------------------------------------------------
;	;MAIN_MAP上で一日最初の挨拶
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 8
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;外出先で一日最初の挨拶
;	;ARG:1に约会的对象
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 9
;	ENDIF
ENDIF

@M_KOJO_EVENT_K111_1_MAINMAP(ARG)
;バレンタイン心情補正
SIF DAY:2 == 4 && DAY:3 == 14
	TALENT:111:心情 = MAX(TALENT:111:心情, 0)
;萬聖節
IF DAY:2 == 3 && DAY:3 == 30
	CALL M_KOJO_EVENT_K111_1_HALLOWEEN
;元旦（2年目以降）
ELSEIF DAY:2 == 1 && DAY:3 == 1 && DAY != 1
	CALL M_KOJO_EVENT_K111_1_GANTAN
;聖誕節イブ
ELSEIF DAY:2 == 4 && DAY:3 == 24 && !TCVAR:[[克勞恩皮絲]]:今天的礼物
	CALL M_KOJO_EVENT_K111_1_XMAS
;心情不快
ELSEIF M_KOJO_K111_FUKIGEN([[克勞恩皮絲]])
	PRINTFORMW 「啊、%CALLNAME:MASTER%……」
;20日以上会ってない
ELSEIF DAY - CFLAG:111:1002 >= 20
	PRINTFORML 「啊、%CALLNAME:MASTER%！」
	;恋人
	IF TALENT:111:恋人
		PRINTFORMW 「 你这家伙ー！ 把我放在一边那么久到底是想干嘛呀ー！」
		PRINTFORMW 「真是的，我要寂寞死掉了……」
	;恋慕
	ELSEIF TALENT:111:恋慕
		PRINTFORMW 「最近都没看到你，让我好担心…！」
		PRINTFORMW 「可以抱抱我吗，那么久不见了……？」
	ELSE
		PRINTFORMW 「好久不见，最近好吗？」
	ENDIF
;MASTERが入ってきた or 同じ拠点
ELSEIF ARG == 2 || CFLAG:[[克勞恩皮絲]]:神社在住
	;同じ拠点
	IF CFLAG:[[克勞恩皮絲]]:神社在住
		SELECTCASE TIME
		;4時～10時
		CASE 240 TO 600
			SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「啊、%CALLNAME:MASTER%、早安～」
			CASE 2
				PRINTFORML 「早安、%CALLNAME:MASTER%！」
			CASEELSE
				PRINTFORML 「啊、%CALLNAME:MASTER%、早安♪」
			ENDSELECT
		;10時～18時
		CASE 601 TO 1080
			;遅起き（4時～10時以外）,迷ったけど10時は許す！
			IF !INRANGE(TIME:3, 240, 600)
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「早安～%CALLNAME:MASTER%、中午了哦～」
				CASE 2
					PRINTFORML 「早安、赖床君ー！」
				CASEELSE
					PRINTFORML 「啊、%CALLNAME:MASTER%ー、到底睡到了什么时候啊～？」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「啊、%CALLNAME:MASTER%、%M_KOJO_EVENT_K111_1_HELLO()%」
				CASE 2
					PRINTFORML 「%M_KOJO_EVENT_K111_1_HELLO()%、%CALLNAME:MASTER%！」
				CASEELSE
					PRINTFORML 「啊、%CALLNAME:MASTER%、午安♪」
				ENDSELECT
			ENDIF
		;18時～
		CASEELSE
			;夜型？（4時～18時以外）
			IF !INRANGE(TIME:3, 240, 1080)
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「你好～%CALLNAME:MASTER%、已经晚上了哦～」
				CASE 2
					PRINTFORML 「你好、超级懒虫君！」
				CASEELSE
					PRINTFORML 「啊、%CALLNAME:MASTER%ー、睡过头太多了吧ー」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「啊、%CALLNAME:MASTER%、%M_KOJO_EVENT_K111_1_HELLO()%」
				CASE 2
					PRINTFORML 「%M_KOJO_EVENT_K111_1_HELLO()%、%CALLNAME:MASTER%！」
				CASEELSE
					PRINTFORML 「啊、%CALLNAME:MASTER%、晚上好♪」
				ENDSELECT
			ENDIF
		ENDSELECT
	;来訪
	ELSE
		PRINTFORML 「啊、%CALLNAME:MASTER%！」
	ENDIF
	;▲ここまで挨拶
	;まれにこける
	IF !RAND:200
		PRINTFORML 「找到你啦っ！！」
		PRINTL
		PRINTFORMDW 克劳恩皮斯蹦跳着跑过来然后脚下一滑摔了一跤
	;溜まってるとたまに
	ELSEIF TALENT:[[克勞恩皮絲]]:恋慕 && CFLAG:111:积攒度 >= 750 && !RAND:5
		PRINTFORML 「%CALLNAME:MASTER%～、不玩会儿吗～❤」
		PRINTL
		PRINTFORMDW 克劳恩皮斯撒娇的贴过来。
	ELSE
		SELECTCASE RAND:12
		CASE 1
			PRINTFORMW 「哦？ 脸蛋上沾着饭粒哦！」
		CASE 2
			PRINTFORMW 「今天玩些什么呢～」
		CASE 3
			PRINTFORMW 「闲着嘛？ 闲着吗？？」
		CASE 4
			PRINTFORMW 「有点想玩游戏啦ー！」
		CASE 5
			PRINTFORMW 「不一起玩会儿吗～？」
		CASE 6
			PRINTFORMW 「今天是恶作剧日哦～」
		CASE 7
			PRINTFORMW 「呀哈哈！你睡过头了吧！」
		CASE 8
			PRINTFORMW 「准备来陪我玩会儿了吗？」
		CASE 9
			PRINTFORMW 「嗯～、和%CALLNAME:MASTER%一起恶作剧是享受」
		CASE 10
			PRINTFORMW 「唔ー、明明说好了今天要一起去恶作剧的ー」
		CASE 11
			PRINTFORMW 「闲着吗ー！ 玩会儿嘛～？」
		CASEELSE
			PRINTFORMW 「玩会儿吧ー！」
		ENDSELECT
	ENDIF
;TARGETが入ってきた or それ以外
ELSE
	SELECTCASE RAND:6
	CASE 1
		PRINTFORMW 「%M_KOJO_EVENT_K111_1_HELLO()%、去散步吧！」
	CASE 2
		PRINTFORMW 「%M_KOJO_EVENT_K111_1_HELLO()%、想干嘛呢？」
	CASE 3
		PRINTFORMW 「%M_KOJO_EVENT_K111_1_HELLO()%、打扰到你了吗？」
	CASE 4
		PRINTFORMW 「%M_KOJO_EVENT_K111_1_HELLO()%、来找你玩了哦！」
	CASE 5
		PRINTFORMW 「%M_KOJO_EVENT_K111_1_HELLO()%、今天是恶作剧日哦」
	CASEELSE
		PRINTFORMW 「%M_KOJO_EVENT_K111_1_HELLO()%、我来玩啦」
	ENDSELECT
ENDIF
;バレンタイン巧克力
IF DAY:2 == 4 && DAY:3 == 14
	CALL M_KOJO_EVENT_K111_1_VALENTINE
;心情愉快
ELSEIF TALENT:111:心情 == 1 && TALENT:111:恋慕
	PRINTFORMW 「欸嘿嘿～、今早被主人夸奖了～♪」
ENDIF
CALL M_KOJO_EVENT_K111_1_END(ARG)

;萬聖節挨拶
@M_KOJO_EVENT_K111_1_HALLOWEEN
PRINTFORMW 「捣蛋 ☆ 还是 ☆ 搞鬼！！」
PRINTFORMW 「快快把零食交出来っ♪」
PRINTFORML 「还是说%CALLNAME:MASTER%期待着被我们恶作剧呀～？」
PRINTDL [ 1] 给糖
PRINTDL [ 2] 才不给！
SIF (TALENT:[[克勞恩皮絲]]:恋慕 || TALENT:[[克勞恩皮絲]]:恋人 || TALENT:[[克勞恩皮絲]]:炮友) && !FIRSTTIME("初吻", 1, [[克勞恩皮絲]])
	PRINTDL [ 0] 如果有色色的恶作剧的话……
INPUT
IF RESULT == 1 && ITEM:糖
	PRINTFORMW 「哇ー♪ 太好了ー！ 谢谢～！」
	PRINTFORMW 「嗯～！ 好甜❤」
	CALL LOST_ITEM("糖", 1, 2)
;陥落＋接吻経験済み
ELSEIF RESULT == 0 && (TALENT:[[克勞恩皮絲]]:恋慕 || TALENT:[[克勞恩皮絲]]:恋人 || TALENT:[[克勞恩皮絲]]:炮友) && !FIRSTTIME("初吻", 1, [[克勞恩皮絲]])
	PRINTFORMW 「欸欸っ！？ 色色的恶作剧是闹哪样啊……」
	PRINTFORMW 「……那那那，你眼睛闭起来！」
	PRINTL
	PRINTFORMDL %CALLNAME:MASTER%听话的照做……
	PRINTW
	PRINTL
	FORCEWAIT
	SETCOLOR 255, 100, 255
	PRINTFORMW ……啾❤
	PRINTL
	PRINTFORMDW 与克劳恩皮斯\@ EXP:[[克勞恩皮絲]]:接吻経験 > 10 ? 不知进行过几次的 # 屈指可数的 \@KISS
	PRINTFORMDW 她的嘴唇如此香甜，水润润，还柔软――
	PRINTFORMDW ――或者应该说甜美过头才对！
	PRINTFORMDW 睁開双眼，克劳恩皮斯烂漫小恶魔的脸就在眼前，俏皮的眸子直直望向自己――
	PRINTL
	PRINTFORMW ……啾咕❤
	PRINTL
	PRINTFORMDL ――幼女的舌尖包裹着甜蜜糖果，一同送进口中，甜死人……。
	PRINTW
	CALL M_KOJO_COLOR_K111
	PRINTFORMW 「……恩哼哼♪ 感觉如何❤」
	PRINTFORMW 「哈哈、『感谢招待』？ 够下流的♪」
	EXP:[[克勞恩皮絲]]:接吻経験 ++
	EXP:MASTER:接吻経験 ++
	EXP:[[克勞恩皮絲]]:愛情経験 ++
ELSE
	IF RESULT == 1
		PRINTFORMDL 身上没有带着糖啊……。
		PRINTW
	ENDIF
	PRINTFORMW 「哼哼哼……%CALLNAME:MASTER%、有接受恶作剧的觉悟了吗……」
	PRINTFORMW 「接招吧！ 地狱万圣节爆弹っ！」
	SELECTCASE RAND:8
	CASE 1
		LOCALS:1 = 被诅咒的
	CASE 2
		LOCALS:1 = 诅咒的
	CASE 3
		LOCALS:1 = 地獄的
	CASE 4
		LOCALS:1 = 死的
	CASE 5
		LOCALS:1 = 鲜血的
	CASE 6
		LOCALS:1 = 狂気的
	CASE 7
		LOCALS:1 = 沾满鲜血的
	CASEELSE
		LOCALS:1 = 万圣节的
	ENDSELECT
	SELECTCASE RAND:8
	CASE 1
		LOCALS:2 = 南瓜
	CASE 2
		LOCALS:2 = 刻印
	CASE 3
		LOCALS:2 = 菜刀
	CASE 4
		LOCALS:2 = 十字架
	CASEELSE
		LOCALS:2 = 杰克
	ENDSELECT
	CALL GIFT_ORDER_MADE_FROM_CHARA([[克勞恩皮絲]], LOCALS:1, LOCALS:2)
	PRINTL
	CALL COLORMESSAGE(@"%CALLNAME:MASTER%は【%RESULTS%】を手に入れた！", C_RED, 2)
	PRINTL
	PRINTFORMW 「呀哈哈哈哈ー♪ 受到这种惩罚明年可就别忘记准备糖果了哦♪」
ENDIF
;心情補正
TALENT:111:心情 = MAX(TALENT:111:心情, 0)

;元旦挨拶
@M_KOJO_EVENT_K111_1_GANTAN
PRINTFORMW 「ハッピー ★ ニュー ★ イヤー！！」
;幼稚だと共通お年玉が発生するので
IF !TALENT:[[克勞恩皮絲]]:幼稚
	PRINTFORML 「压岁钱！！！谢谢！！！♪」
	PRINTDL [ 1] 给压岁钱（\3000）
	PRINTDL [ 2] 大方给压岁钱（\10000）
	PRINTDL [ 0] 就不给
	INPUT
	IF (RESULT == 1 && MONEY < 3000) || (RESULT == 2 && MONEY < 10000)
		PRINTFORMDL 没那么多钱诶……。
		PRINTW
		PRINTFORML 「诶……%CALLNAME:MASTER%、难不成很穷吗……」
		PRINTFORMW 「嗯……对不起啦……」
		TALENT:[[克勞恩皮絲]]:心情 = 0
	ELSEIF RESULT == 1
		PRINTFORMW 「哇ー♪ 太好了ー！ 谢谢～！」
		MONEY -= 3000
		TALENT:[[克勞恩皮絲]]:心情 = 1
		CALL CHANGE_CFLAG(4, [[克勞恩皮絲]], ABL:[[克勞恩皮絲]]:親密 * 5)
	ELSEIF RESULT == 2
		PRINTFORML 「诶！？ 这些都给我吗ー！？ 太棒啦ー！」
		PRINTFORMW 「那我收下了哦～♪ 谢谢～！」
		MONEY -= 10000
		TALENT:[[克勞恩皮絲]]:心情 = 1
		CALL CHANGE_CFLAG(4, [[克勞恩皮絲]], ABL:[[克勞恩皮絲]]:親密 * 2)
	ELSE
		PRINTFORMW 「呜哇っ！ 吝啬鬼！！ 小气死了！」
		TALENT:[[克勞恩皮絲]]:心情 = -1
	ENDIF
ENDIF

;聖誕節イブ挨拶
@M_KOJO_EVENT_K111_1_XMAS
PRINTFORMW 「圣诞快乐！！」
PRINTFORML 「快快快，圣诞老人%CALLNAME:MASTER%♪ 礼物呢礼物呢？」
PRINTDL [ 1] 送出圣诞礼物
PRINTDL [ 0] 索要圣诞礼物
INPUT
IF RESULT
	RESETCOLOR
	PRINTFORMW ◆盒子上写着“克劳恩皮斯收”！
	CALL GIFT_ORDER_MADE_FROM_MASTER([[克勞恩皮絲]])
	CALL M_KOJO_COLOR_K111
	;あげるのをやめた
	IF RESULT == -1
		PRINTFORMW 「诶……？」
		PRINTFORMW 「这啥啊！？ 故弄玄虚的东西！ 没劲！」
		TALENT:[[克勞恩皮絲]]:心情 = -1
	;あげた
	ELSE
		PRINTL
		PRINTFORMDL %CALLNAME:MASTER%将%RESULTS%作为圣诞礼物送给了克劳恩皮斯
		PRINTW
		IF RESULT:1 >= 700
			PRINTFORML 「呀ー♪ 真的要把这个送给我吗！？ 太棒棒了ー！！ 」
			PRINTFORMW 「谢谢%CALLNAME:MASTER%！ 爱死你了❤」
			TALENT:[[克勞恩皮絲]]:心情 = 1
		ELSEIF RESULT:1 >= 400
			PRINTFORML 「哇ー♪ 好開心～！！」
			PRINTFORMW 「谢谢%CALLNAME:MASTER%！」
			TALENT:[[克勞恩皮絲]]:心情 = 1
		ELSE
			PRINTFORML 「哇ー……！」
			PRINTFORMW 「好開心ー。 真的哦ー。谢了ー……」
			TALENT:[[克勞恩皮絲]]:心情 = 0
		ENDIF
	ENDIF
ELSE
	IF TALENT:[[克勞恩皮絲]]:恋慕 || TALENT:[[克勞恩皮絲]]:恋人
		PRINTFORML 「诶？ 为什么是我来给你礼物啊ー！」
		PRINTFORMW 「明明我也想要礼物的！」
		;後日くれる
		CFLAG:[[克勞恩皮絲]]:1006 = DAY
	ELSE
		PRINTFORML 「哈？ 为什么反而是我来给你礼物啊？」
		PRINTFORMW 「切，反正我也没想过%CALLNAME:MASTER%会准备礼物～」
	ENDIF
	TALENT:[[克勞恩皮絲]]:心情 = 0
ENDIF

;バレンタイン挨拶（通常挨拶後に追加）
@M_KOJO_EVENT_K111_1_VALENTINE
PRINTFORML 「啊っ、对了！」
SELECTCASE CFLAG:[[克勞恩皮絲]]:好感度
CASE 1000 TO 3000
	;黑雷神巧克力
	PRINTFORMW 「这个给你！」
CASE 3001 TO 5000
	;巧克力
	PRINTFORMW 「这个给你、巧克力！」
CASE IS > 5000
	IF EXP:111:愛情経験 < 100
		;高級巧克力
		PRINTFORMW 「这个给你、情人节礼物……！」
	ELSE
		;手制巧克力
		PRINTFORMW 「这个给你！是我和主人一起做的哦！」
		PRINTFORMW 「情人节礼物……☆」
	ENDIF
ENDSELECT
;心情補正
TALENT:111:心情 = MAX(TALENT:111:心情, 0)

;挨拶口上終了処理
;口上が表示されなくても処理されます
@M_KOJO_EVENT_K111_1_END(ARG)
;最後に会った日
CFLAG:111:1002 = DAY
;一日一回
TCVAR:111:358 = 1
;最初から心情不快かどうか
SIF TALENT:[[克勞恩皮絲]]:心情 < 0
	TCVAR:[[克勞恩皮絲]]:360 = 1
;ここから先は通常遭遇および単独外出先遭遇のみ
SIF !GROUPMATCH(ARG, 1, 2, 6)
	RETURN 1
;恋慕で、心情不快ではなく、约会中ではなく、欲求不満が75%以上
IF TALENT:111:恋慕 && TALENT:111:心情 >= 0 && !FLAG:约会的对象 && CFLAG:111:积攒度 >= 750
	PRINTL
	PRINTFORMDL 克劳恩皮斯脸颊染上可爱地粉红……。
	PRINTW
	SELECTCASE RAND:5
	CASE 1
		PRINTFORMW 「不要瞎想！ 只是……想去厕所了而已……\/\/\/」
	CASE 2
		PRINTFORMW 「别胡思乱想了！ 只是觉得……今天有点热～！」
	CASE 3
		PRINTFORMW 「约会吧ー！ 约会约会❤ 约会❤」
	CASE 4
		PRINTFORMW 「总觉得见到%CALLNAME:MASTER%的话，心就扑通扑通跳……」
	CASE 5
		PRINTFORMW 「让你～…%CALLNAME:MASTER%～人家寂寞了嘛～……」
	CASEELSE
		PRINTFORMW 「唔ぅ～、今天身体有点不舒服～……」
	ENDSELECT
ENDIF
RETURN 1

;やっほーパターン
@M_KOJO_EVENT_K111_1_HELLO
#FUNCTIONS
;SSR
SIF !RAND:1000
	RETURNF "チャオ～"
SELECTCASE RAND:6
CASE 1
	RETURNF "やっほー"
CASE 2
	RETURNF "やっほ～"
CASE 3
	RETURNF "ハロー"
CASE 4
	RETURNF "ハロ～"
CASE 5
	RETURNF "ハーイ"
CASEELSE
	RETURNF "ハ～イ"
ENDSELECT

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K111_2(ARG,ARG:1)
#DIM 分岐
CALL MESSAGE_GOODMONING(ARG,ARG:1)

;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG == 1 || ARG == 2)
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時陪睡中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			PRINTFORMW 「早安！ 昨晚睡得怎么样？」
			分岐 = RAND:10
			IF GROUPMATCH(分岐, 1, 2, 3) || TALENT:111:心情 == 1 || CFLAG:111:1001 == DAY - 1
;				;昨晩満足,ズレ修正したけどまだ懸念アリ
				IF CFLAG:111:1001 == DAY - 1
					PRINTFORML 「诶嘿❤ 昨天被疼爱了一整晚呢♪」
					PRINTFORMW 「下次还想继续做那么久♪」
					TALENT:111:心情 = 1
				ELSE
					PRINTFORMW 「呼呼♪ %CALLNAME:MASTER%的睡颜好可爱♪」
				ENDIF
			ELSEIF 分岐 == 0 || TALENT:111:心情 == -1
				PRINTFORML 「你在睡着的时候叫了别的女孩子的名字」
				PRINTFORMW 「到底是怎么回事给我解释清楚」
				TALENT:111:心情 = -1
			ELSEIF GROUPMATCH(分岐, 4, 5, 6)
				PRINTFORML 「呼呼♪ %CALLNAME:MASTER%的睡颜甜蜜的我快吐了」
				PRINTFORMW 「到底做了什么样的梦啊，好奇死我了？」
			ELSE
				PRINTFORML 「呀哈哈哈哈♪」
				PRINTFORMW 「对不起，在你脸上偷偷画画了！」
			ENDIF
			RETURN 1
		ENDIF
;		;-------------------------------------------------
;		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 1
;		;-------------------------------------------------
;
;		よくわからんけど統合しました
;
	ENDIF
;	;-------------------------------------------------
;	;同棲かつ相手が起きている
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 1
;	;-------------------------------------------------
;
;	統合しました
;
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE RAND:5
		CASE 1
			PRINTFORMW 「嗯～、呜姆呜姆……」
		CASE 2
			PRINTFORMW 「库咔ー……嘶嘶ー……」
		CASE 3
			PRINTFORMW 「呼啊……%CALLNAME:MASTER%……」
		CASE 4
			PRINTFORMW 「喵……姆姆……」
		CASEELSE
			PRINTFORMW 「姆～……嗯嗯～……」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or陪睡中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTL
			PRINTFORML 「早安～～哈啊啊～～ぁ」
			PRINTFORMW 「…………咦？ 为什么%CALLNAME:MASTER%在这里啊？」
			PRINTFORMW 「啊！ 大概是我睡昏头了吧」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTL
			PRINTFORML 「早安～～哈啊啊～～ぁ」
			SELECTCASE RAND:5
			CASE 1
				PRINTFORMW 「愉快的一天又要開始了哦～」
			CASE 2
				PRINTFORMW 「嗯嗯……还是好困……」
			CASE 3
				PRINTFORMW 「啊…？ %CALLNAME:MASTER%……早安啊…」
			CASE 4
				PRINTFORMW 「%CALLNAME:MASTER%起的好早哦……」
			CASEELSE
				PRINTFORMW 「…………可以再睡一会儿嘛？」
			ENDSELECT
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰って寝る（～は【現在地】から【角色の自室】に戻りました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF ARG:1
			;约会中に眠くて帰って寝る（拠点角色のみ）
			IF TALENT:[[克勞恩皮絲]]:恋慕
				PRINTFORML 「哈啊～ぁ……%CALLNAME:MASTER%、好困哦……」
				PRINTFORMW 「明天再一起玩吧～？」
				PRINTL
				PRINTFORMDW %CALLNAME:MASTER%将困倦的克劳恩皮斯送回了家。
			ELSE
				PRINTFORML 「哈啊～ぁ……%CALLNAME:MASTER%、好困哦……」
				PRINTFORMW 「回家吧～？」
				PRINTL
				PRINTFORMDW %CALLNAME:MASTER%带着疲惫的克劳恩皮斯回家了。
			ENDIF
		ELSEIF CFLAG:诶嘿嘿
			;诶嘿嘿中に眠くて自室に帰って寝る（拠点角色のみ）
			PRINTFORMW 「嗯喵～……」
			PRINTFORMW 「对不起%CALLNAME:MASTER%、人家困了……」
			PRINTL
			PRINTFORMDW 很无奈，对着失去反应的克劳恩皮斯再中出了几发后、%CALLNAME:MASTER%将睡梦中的克劳恩皮斯送回了家。
		;月在住
		ELSEIF MAIN_MAP == 10
			SELECTCASE RAND:5
			CASE 1
				PRINTFORMW 「呼哇啊～ぁ……困了啦」
			CASE 2
				PRINTFORMW 「呼哇啊～ぁ……我先睡了～」
			CASE 3
				PRINTFORMW 「呼哇啊～ぁ……今天已经好累了～」
			CASE 4
				PRINTFORMW 「下次玩什么比较好呢……」
				PRINTFORMDL %CALLNAME:MASTER%催促着克劳恩皮斯去睡觉吧。
				PRINTFORML 「哈啊～好啦好啦……」
			CASEELSE
				PRINTFORML 「嗯～…困死了～……」
				PRINTFORMW 「嘶ぅ……嘶ぅ……」
				PRINTFORMDL %CALLNAME:MASTER%催促着克劳恩皮斯回房间睡觉
				PRINTFORML 「哈啊～好啦好啦……」
			ENDSELECT
			;おやすみセット
			CALL M_KOJO_EVENT_K111_3_OYASUMI
		;それ以外
		ELSE
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「呼哇啊～ぁ……困了啦」
			CASE 3
				PRINTFORMW 「噶啊～ぁ……今天已经很累了，回家吧～」
			CASEELSE
				PRINTFORMW 「下次玩什么比较好呢……」
				PRINTFORMDL %CALLNAME:MASTER%催促着克劳恩皮斯回去睡觉吧。
				PRINTFORML 「哈啊～好啦好啦……」
			ENDSELECT
			PRINTFORMW 「哈啊啊啊%CALLNAME:MASTER%、晚安了啦～…」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている（～は眠そうにしている）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:5
		CASE 1
			PRINTFORMW 「哈啊ぁ～ぁ…困死了……」
		CASE 2
			PRINTFORMW 「嗯嗯……嗯～……」
		CASE 3
			PRINTFORMW 「唔嗯……嗯嗯…」
		CASE 4
			PRINTFORMW 「哈啊……困了……」
		CASEELSE
			PRINTFORMW 「嗯～……困了喵……」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（～は沉浸在夢鄉中）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE RAND:7
		CASE 1, 2
			PRINTFORMW 「嗯～…呜姆呜姆……」
		CASE 3, 4
			PRINTFORMW 「嘶ぅ……嘶ぅ……」
		CASE 5, 6
			PRINTFORMW 「嗯嗯……呼ぇ……」
		CASEELSE
			PRINTFORMW 「玩……姆嗯嗯…」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;恶作剧中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱して寝る（体力500以下,诶嘿嘿時は诶嘿嘿強制終了）
	;（角色の自室以外：～を【現在地】から【角色の自室】に運びました）
	;（角色の自室　　：～は疲惫と言って、横成为了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「哈啊哈啊哈啊……」
		PRINTFORMW 「对不起%CALLNAME:MASTER%、累的受不了了…晚安……」
		IF M_KOJO_K111_HOUSE(CFLAG:MASTER:現在位置) != 1
			PRINTL
			PRINTFORMDW %CALLNAME:MASTER%将衰弱的克劳恩皮斯送回房间。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（恋慕のみ,そのまま一日が終了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW 「欸欸欸、%CALLNAME:MASTER%还好吧？」
		IF BASE:MASTER:酒気 >= MAXBASE:MASTER:酒気
			PRINTFORML 「%CALLNAME:MASTER%、酒量不行嘛～♪」
			PRINTFORMW 「…不是想这些的时候……总之先让他睡下去ゃ」
		ELSE
			IF ARG:1
				;自室でダウン,（～が【MASTER】をベッド（被窝）へと運んでくれた…）
				PRINTFORML 「是不是做过头了啊～♪」
				PRINTFORMW 「…不是想这些的时候……总之先让他睡下去ゃ」
			ELSE
				;部屋まで運ばれる,（～が【MASTER】を私室へと運んでくれた…）
				PRINTFORML 「嗯ー怎么办啊……」
				PRINTFORMW 「得把%CALLNAME:MASTER%送回房间才行」
			ENDIF
		ENDIF
		PRINTFORMW 「嗯っ！ 好重欸ー！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで回来了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た（【TARGET】が部屋に回来了→寝間着へと着替え、寝床に潜った）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「啊、%CALLNAME:MASTER%…… ～」
			CASE 2
				PRINTFORMW 「啊、%CALLNAME:MASTER%……我先睡了哦～……」
			CASEELSE
				PRINTFORMW 「啊、%CALLNAME:MASTER%……对不起，我困死了啦～」
			ENDSELECT
			;おやすみセット
			CALL M_KOJO_EVENT_K111_3_OYASUMI
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から逐出て寝た（眠そうな【TARGET】に追い出された…）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF CFLAG:[[克勞恩皮絲]]:前一次的位置 == CFLAG:[[克勞恩皮絲]]:現在位置
				;前のターンまで一緒に部屋にいた
				PRINTFORMW 「呜～ぁ……要睡了啦，都出去都出去……」
			ELSE
				;寝るために部屋に帰ってきたところ
				PRINTFORMW 「姆、%CALLNAME:MASTER%还在我的房间干嘛～？」
				PRINTFORMW 「我要睡觉了你出去吧……」
			ENDIF
			;おやすみセット
			CALL M_KOJO_EVENT_K111_3_OYASUMI
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他角色とのＨを止めさせて寝た（【TARGET】が部屋に回来了→唇をとがらせる【TARGET】に、【MASTER】は渋々【Ｈの相手】から別屋た）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			;寝ぼけてるということにしておく
			PRINTFORMW 「咦？ %CALLNAME:MASTER%在我房间干嘛呢…？」
			PRINTFORMW 「嗯……随意了，我要睡觉了所以请出去吧～」
			;おやすみセット
			CALL M_KOJO_EVENT_K111_3_OYASUMI
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;来訪角色が拠点で休憩（～は疲れ切っている→稍微休んでいきなよ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW 「呼～ぁ…麻烦你啦、谢谢%CALLNAME:MASTER%～……」
		PRINTFORMW 「晚安～……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝室に居る状態でその場で寝る（～は眠気に負け、睡眠についた…）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中に寝る
			PRINTFORMW 「嗯喵～……」
			PRINTFORMW 「对不起%CALLNAME:MASTER%、人家困了……」
			PRINTL
			PRINTFORMDW 对着无反应的肉体再怎么中出也差点意思、%CALLNAME:MASTER%为睡找的克劳恩皮斯盖好了被子
		ELSE
			SELECTCASE RAND:5
			CASE 1
				PRINTFORMW 「哈啊ぁ～ぁ…困死了……」
			CASE 2
				PRINTFORMW 「嗯嗯……嗯～……」
			CASE 3
				PRINTFORMW 「唔嗯……嗯嗯…」
			CASE 4
				PRINTFORMW 「哈啊……困了……」
			CASEELSE
				PRINTFORMW 「下次玩什么比较好呢……」
				PRINTFORMDL %CALLNAME:MASTER%催促着克劳恩皮斯去睡觉吧。
				PRINTFORML 「哈啊～好啦好啦……」
			ENDSELECT
			PRINTFORMW 「晚安%CALLNAME:MASTER%、明天见啦～…」
			SIF TALENT:[[克勞恩皮絲]]:恋慕
				PRINTFORMW 「……还是说到明早再说再见……？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;拠点外で自宅前に居る角色が自室に帰って寝る（眠くなった～は自室に帰って行きました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 10
		SELECTCASE RAND:3
		CASE 1
			PRINTFORMW 「呼哇啊～ぁ……困了啦」
		CASE 2
			PRINTFORMW 「呼哇啊～ぁ……我先睡了～」
		CASEELSE
			PRINTFORMW 「呼哇啊～ぁ……今天已经好累了～」
		ENDSELECT
		PRINTFORMW 「晚安～…明天见啦～……」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;克勞恩皮絲のおやすみセット（拠点用）
@M_KOJO_EVENT_K111_3_OYASUMI
SELECTCASE RAND:4
CASE 1
	PRINTFORMW 「晚安%CALLNAME:MASTER%、明天见啦～…」
CASE 2
	PRINTFORMW 「%CALLNAME:MASTER%、晚安～……」
CASE 3
	PRINTFORMW 「晚安ぃ～……嗯ぅ……」
CASEELSE
	IF TALENT:[[克勞恩皮絲]]:恋慕
		PRINTFORMW 「%CALLNAME:MASTER%一起睡吧～……」
	ELSE
		PRINTFORMW 「晚安～…明天见啦～……」
	ENDIF
ENDSELECT

;;==================================================
;;移動時すれちがい
;;==================================================
;@M_KOJO_EVENT_K111_4(ARG,ARG:1)
;;口上主はTARGET
;;--------------------------------------------------
;;記入チェック（=0, 非表示、1, 表示）
;LOCAL = 0
;;-------------
;
;IF LOCAL
;	;-------------------------------------------------
;	;小分岐
;	;-------------------------------------------------
;	;立ち止まった
;	;この後遭遇口上に接続
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 1
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;轻轻地会釈して街道過ぎた
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 2
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;無視して街道過ぎた
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 3
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;其他
;	PRINTFORML
;ENDIF
;RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;純狐が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == [[純狐]]
		PRINTFORMW 「啊！ 友人大人！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;赫喀提亞が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == [[赫喀提亞]]
		PRINTFORMW 「啊！主人！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;三月精or琪露諾が入ってきた,拉瓦爾に対しては言わない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && GROUPMATCH(ARG, [[桑尼]], [[露娜]], [[斯塔]], [[琪露諾]])
		PRINTFORML 「库！ %NAME:(FLAG:约会的对象)%！」
		IF TALENT:[[克勞恩皮絲]]:恋人
			PRINTFORMW 「我在和老公约会哦ー！」
		ELSE
			PRINTFORMW 「我在和%CALLNAME:MASTER%一起玩哦ー！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;拉瓦爾が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == [[拉瓦爾]]
		PRINTFORMW 「哦、拉尔瓦、%M_KOJO_EVENT_K111_1_HELLO()%」
		RETURN 1
	ENDIF
	;其他
	PRINTFORML 「咦？ %CALLNAME:MASTER%、你怎么离開了？」
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（亲热度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF TALENT:111:恋人
			PRINTFORML 「啊っ！！！」
			;赫喀提亞と
			IF ARG == 113
				PRINTFORMW 「主……主人……！」
				PRINTFORMW 「对不起……打扰你们了……」
				PRINTFORML
				PRINTFORMW 「哈啊哈啊哈啊……」
				PRINTFORMW （没关系……%CALLNAME:MASTER%怎么可能做那种事，应该是误会了……）
			;純狐と
			ELSEIF ARG == 112
				PRINTFORMW 「友人大人……！」
				PRINTFORMW 「对不起……打扰你们了……」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%……」
				PRINTFORMW 「明明说过最喜欢我了……呜呜……」
			ENDIF
		ELSEIF TALENT:111:恋慕
			PRINTFORML 「啊っ！！」
			;赫喀提亞と
			IF ARG == 113
				PRINTFORMW 「主……主人……！」
				PRINTFORMW 「对不起……打扰你们了……」
				PRINTFORML
				PRINTFORMW 「哈啊哈啊哈啊……」
				PRINTFORMW （呜呜……那种事情不要啊……）
			;純狐と
			ELSEIF ARG == 112
				PRINTFORMW 「友人大人……！」
				PRINTFORMW 「对不起……打扰你们了……」
			ELSE
				PRINTFORMW 「呜……」
				PRINTFORMW 「……笨蛋%CALLNAME:MASTER%！」
			ENDIF
		ELSE
			PRINTFORML 「啊ーー！」
			PRINTFORMW 「被我发现了吧ー♪」
			;赫喀提亞と
			IF ARG == 113
				PRINTFORMW 「被我发现了吧……」
				PRINTFORMW 「呀哈哈哈哈哈ー♪」
			;純狐と
			ELSEIF ARG == 112
				PRINTFORMW 「被我发现了吧……」
				PRINTFORMW 「呀哈哈哈哈哈ー♪」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（亲热度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:111:恋人
			PRINTFORML 「啊っ！！！」
			;赫喀提亞と
			IF ARG == 113
				PRINTFORML 「主人、不能这样子ー♪」
				PRINTFORMW 「%CALLNAME:MASTER%是我的，就算是友人大人也可以抢走他哦❤」
			;純狐と
			ELSEIF ARG == 112
				PRINTFORML 「主人、不能这样子ー♪」
				PRINTFORMW 「%CALLNAME:MASTER%是我的，就算是友人大人也可以抢走他哦❤」
			ELSE
				PRINTFORML 「%CALLNAME:MASTER%、你在干什么呢ー？」
				PRINTFORMW 「这样子可不行！ %CALLNAME:MASTER%明明是属于我的！」
			ENDIF
		ELSEIF TALENT:111:恋慕
			;赫喀提亞と
			IF ARG == 113
				PRINTFORML 「主人……！」
				PRINTFORMW 「可不可以，让我也加入……！？」
			;純狐と
			ELSEIF ARG == 112
				PRINTFORML 「友人大人…！」
				PRINTFORMW 「可不可以，让我也加入……！？」
			ELSE
				PRINTFORML 「啊ーー！！」
				PRINTFORMW 「%CALLNAME:MASTER%、让我也加入吧❤」
			ENDIF
		ELSE
			;赫喀提亞と
			IF ARG == 113
				PRINTFORML 「啊！ 主人！」
				PRINTFORMW 「看起来很享受嘛，让我也来试试吧❤」
			;純狐と
			ELSEIF ARG == 112
				PRINTFORML 「啊！ 友人大人！」
				PRINTFORMW 「看起来很享受嘛，让我也来试试吧❤」
			ELSE
				PRINTFORML 「啊ーー！！」
				PRINTFORMW 「%CALLNAME:MASTER%、让我也加入吧❤」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	;掌握把柄と全く同じ,握らないけど
	IF LOCAL:1 && ARG:1 == 3
		IF TALENT:111:恋人
			PRINTFORML 「啊っ！！！」
			;赫喀提亞と
			IF ARG == 113
				PRINTFORMW 「主……主人……！」
				PRINTFORMW 「对不起……打扰你们了……」
				PRINTFORML
				PRINTFORMW 「哈啊哈啊哈啊……」
				PRINTFORMW （没关系……%CALLNAME:MASTER%怎么可能做那种事，应该是误会了……）
			;純狐と
			ELSEIF ARG == 112
				PRINTFORMW 「友人大人……！」
				PRINTFORMW 「对不起……打扰你们了……」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%……」
				PRINTFORMW 「明明说过最喜欢我了……呜呜……」
			ENDIF
		ELSEIF TALENT:111:恋慕
			PRINTFORML 「啊っ！！」
			;赫喀提亞と
			IF ARG == 113
				PRINTFORMW 「主……主人……！」
				PRINTFORMW 「对不起……打扰你们了……」
				PRINTFORML
				PRINTFORMW 「哈啊哈啊哈啊……」
				PRINTFORMW （呜呜……那种事情不要啊……）
			;純狐と
			ELSEIF ARG == 112
				PRINTFORMW 「友人大人……！」
				PRINTFORMW 「对不起……打扰你们了……」
			ELSE
				PRINTFORMW 「呜……」
				PRINTFORMW 「……笨蛋%CALLNAME:MASTER%！」
			ENDIF
		ELSE
			PRINTFORML 「啊ーー！」
			PRINTFORMW 「被我发现了吧ー♪」
			;赫喀提亞と
			IF ARG == 113
				PRINTFORMW 「被我发现了吧……」
				PRINTFORMW 「呀哈哈哈哈哈ー♪」
			;純狐と
			ELSEIF ARG == 112
				PRINTFORMW 「被我发现了吧……」
				PRINTFORMW 「呀哈哈哈哈哈ー♪」
			ENDIF
		ENDIF
		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_K111_7(ARG,ARG:1)
;口上主はTARGET
;ARGに目撃者
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の亲热度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		;赫喀提亞に見られちゃう
		IF ARG == 113
			PRINTFORMW 「诶嘿❤ 对不起喽主人♪」
		;純狐に見られちゃう
		ELSEIF ARG == 112
			PRINTFORMW 「诶嘿❤ 对不起喽友人大人♪」
		ELSE
			PRINTFORMW 「不用在意不用在意♪」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の亲热度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		;赫喀提亞に見られちゃう
		IF ARG == 113
			PRINTFORMW 「主人也要来一起嘛～？ 呀哈哈♪ 来吧来吧♪」
		;純狐に見られちゃう
		ELSEIF ARG == 112
			PRINTFORMW 「友人大人也要来一起嘛～？ 呀哈哈♪ 来吧来吧♪」
		ELSE
			PRINTFORMW 「呜ー、也不是不行啦～♪」
		ENDIF
		PRINTFORMW 「玩3P吗？ 人多的话大概快乐也会加倍吧♪」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	;目撃と同様に握られた時と同じ
	IF LOCAL:1 && ARG:1 == 3
		;赫喀提亞に見られちゃう
		IF ARG == 113
			PRINTFORMW 「诶嘿❤ 对不起喽主人♪」
		;純狐に見られちゃう
		ELSEIF ARG == 112
			PRINTFORMW 「诶嘿❤ 对不起喽友人大人♪」
		ELSE
			PRINTFORMW 「不用在意不用在意♪」
		ENDIF
		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_K111_8(ARG,ARG:1)
;RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF FIRSTTIME("胖次没収")
			PRINTFORMW 「哦？ %CALLNAME:MASTER%、什么东西掉出来了哦」
			PRINTFORML 「呜哇！ 什么啊这是！内裤……」
			PRINTFORMDL %CALLNAME:MASTER%慌乱中捂住克劳恩皮斯的嘴。
			PRINTFORMW 「嗯嗯！ 呜呜！！」
			PRINTFORML
			PRINTFORML 「……哈啊！」
			PRINTFORMW 「为什么要把那种东西带在身上ー？ 好恶心！」
			PRINTFORMW 「要不要告诉其他人呢ー♪」
			PRINTFORML 「呀哈哈哈哈哈ー！ 開玩笑啦ー♪」
			PRINTFORMW 「但就这样白白放过你也是不可能的事情哦，可别想得太美♪」
		ELSE
			PRINTFORML 「啊！ %CALLNAME:MASTER%！ 又是胖次……」
			PRINTFORMDL %CALLNAME:MASTER%慌乱中捂住克劳恩皮斯的嘴。
			PRINTFORMW 「嗯嗯！ 呜呜！！」
			PRINTFORML
			PRINTFORML 「……哈啊！」
			PRINTFORMW 「还在当内裤小偷呢ー？ 我劝你早点住手吧ー？」
			PRINTFORML 「收集内裤到底有什么意义啊？」
			PRINTFORMW 「呀哈哈哈哈哈ー！ 真是KIMO的人啊♪」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERを推倒た（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		SELECTCASE RAND:8
		CASE 1
			PRINTFORML 「呼呼呼……❤」
			PRINTFORML 「有破绽！！！……」
		CASE 2
			PRINTFORML 「%CALLNAME:MASTER%对不起……」
			PRINTFORML 「我已经……忍不住了……❤」
		CASE 3
			PRINTFORML 「真是的……%CALLNAME:MASTER%一直一直挑逗我，已经忍耐不住了啊」
			PRINTFORML 「快点，一起快乐吧～？」
		CASE 4
			PRINTFORML 「呀哈っ❤」
			PRINTFORML 「%CALLNAME:MASTER%居然被这种偷袭得逞～❤」
		CASE 5
			PRINTFORML 「%CALLNAME:MASTER%看起来实在美味，就让我好好享用一番吧～？」
			PRINTFORML 「開动了哦❤」
		CASE 6
			PRINTFORML 「啊，忍不住了！」
			PRINTFORML 「刚才開始就超想和%CALLNAME:MASTER%亲热的！」
		CASE 7
			PRINTFORML 「哈啊哈啊……」
			PRINTFORML 「%CALLNAME:MASTER%的味道……让我的身体都变奇怪了……」
		CASEELSE
			PRINTFORML 「大意了吧%CALLNAME:MASTER%……」
			PRINTFORML 「我可是擅长恶作剧的妖精哦❤」
		ENDSELECT
		IF TALENT:111:恋慕
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「用狂气侵入的势头对待我吧……❤」
			CASE 2
				PRINTFORMW 「让我们融为一体吧❤」
			CASEELSE
				PRINTFORMW 「与我一同坠入地狱吧❤」
			ENDSELECT
		ELSE
			PRINTFORMW 「就这样像地狱堕落也不错哦❤」
		ENDIF
		;妊娠中
		IF TALENT:111:妊娠 && CFLAG:111:妊娠自覚状態 == 1
			PRINTFORML
			PRINTFORMW 「没关系！ 只要温柔点做不会影响肚子里的孩子的♪」
			;そんなこといいつつ好き勝手しちゃいます
		;危険日
		ELSEIF CFLAG:111:生理周期 == 7 && !TALENT:111:妊娠 && CFLAG:111:允许无套 == 2
			PRINTFORML
			PRINTFORMW （嗯哼哼……❤ 让他疯狂地做吧ー♪）
			;稍微ヤンデレかも
		ENDIF
		TCVAR:111:351 = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE ARG:1
		CASE 0
			;抜け出した
			IF TALENT:111:恋慕
				;妊娠中
				IF TALENT:111:妊娠 && CFLAG:111:妊娠自覚状態 == 1
					PRINTFORML 「呼诶……、也是没办法的事啊……」
					PRINTFORMW 「今天就只能这样了……」
					;我慢しません
				;危険日
				ELSEIF CFLAG:111:生理周期 == 7 && !TALENT:111:妊娠 && CFLAG:111:允许无套 == 2
					PRINTFORML 「呼诶……、怎么这样啊……」
					PRINTFORMW 「完全还没满足诶ー！」
					;無限に催促
				ELSE
					SELECTCASE RAND:5
					CASE 0
						PRINTFORML 「呼诶……、怎么这样啊……」
						PRINTFORMW 「%CALLNAME:MASTER%小气死了！小气鬼！」
					CASE 1
						PRINTFORML 「呼诶……、已经结束了吗～？」
						PRINTFORMW 「再做一会儿嘛～～！」
					CASE 2
						PRINTFORML 「呼诶……、已经结束了吗…？」
						PRINTFORMW 「不要嘛！！！再陪人家sex啦ー！」
					CASE 3
						PRINTFORML 「呼诶……、怎么了吗～！」
						PRINTFORMW 「%CALLNAME:MASTER%、不想做了吗…？ 呜呜呜……」
					CASEELSE
						PRINTFORML 「呼诶……、怎么这样啊……」
						PRINTFORMW 「这才刚刚開始吧ー！」
					ENDSELECT
				ENDIF
			ELSE
				PRINTFORML 「呼诶……、怎么这样啊……」
				PRINTFORMW 「再做一会儿嘛，又不会少块肉ー！」
			ENDIF
;		CASE 1
;		;抱き着きモード満足終了
;			RETURN 1
;		CASE 2
;		;抱き着きモード強制終了
;			RETURN 1
		ENDSELECT
		TCVAR:111:351 = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;摆脱失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE ARG:1
		CASE 1
		;随便状態から抜け出せなかった
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「不要做无谓的抵抗了」
				PRINTFORMW 「我的芒果已经死死咬住%CALLNAME:MASTER%的金果了哦…❤」
			CASE 1
				PRINTFORML 「呀哈❤」
				PRINTFORMW 「%CALLNAME:MASTER%的反应好激烈，可爱死了❤」
			CASEELSE
				PRINTFORML 「乖一点啦，%CALLNAME:MASTER%可是我的重要玩具哦、这样子不乖可不行捏」
				PRINTFORMW 「玩具就该想玩具一样可爱地叫出声来！」
			ENDSELECT
			RETURN 1
		CASE 2
		;欲求不満が高くて抜け出せなかった
			SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「不行！❤ 这还完全没開始呢♪」
			CASE 1
				PRINTFORML 「不要乱动！」
				PRINTFORMW 「再让我享受一会儿可以吗❤」
			CASE 2
				PRINTFORMW 「木大木大～♪ %CALLNAME:MASTER%的身体已经完全归我所有了❤」
			CASE 3
				PRINTFORML 「呀哈っ❤」
				PRINTFORMW 「对不起啦%CALLNAME:MASTER%♪ 我太想多看几次%CALLNAME:MASTER%可爱的反抗了，再激烈一点吧❤」
			CASEELSE
				PRINTFORMW 「诶ー！ 再做一会儿再做一会儿！ 不准拔出去！再做三百个回合嘛ー！！！！！」
			ENDSELECT
			RETURN 1
		ENDSELECT
	ENDIF
	;-------------------------------------------------
	;誘ってきた（人目につかない場所に行きたがるやつ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		SELECTCASE ARG:1
		CASE IS < 600
			PRINTFORML 「%CALLNAME:MASTER%……找个不会被打扰的地方做爱吧……♪」
		CASE IS < 800
			PRINTFORML 「%CALLNAME:MASTER%……紧身裤袜已经湿透了啦……♪」
		CASEELSE
			PRINTFORML 「%CALLNAME:MASTER%……已经忍不住了啊…❤」
		ENDSELECT
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	;不知羞恥と大抵入れるが
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「哇ー！！ 你这色狼！ 变态！」
		PRINTFORMW 「滚出去！ 堕入地狱去吧！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;赫喀提亞も一緒
		IF CFLAG:113:同行
			PRINTFORML 「啊！ 主人！」
			PRINTFORMW 「大家一起来洗澡吧♪」
		;純狐も一緒
		ELSEIF CFLAG:112:同行
			PRINTFORML 「啊！ 友人大人！」
			PRINTFORMW 「大家一起来洗澡吧♪」
		ELSE
			PRINTFORML 「啊！ %CALLNAME:MASTER%だ！」
			PRINTFORMW 「一起来洗澡吧ー♪」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K111_12(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（憤怒）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「姆ッ！ 讨厌%CALLNAME:MASTER%！ 给我滚出去っ！！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		SELECTCASE RAND:3
		CASE 1
			PRINTFORMW 「呼哈啊ー…………」
		CASE 2
			PRINTFORMW 「嗯……呜喵呜喵……」
		CASEELSE
			PRINTFORMW 「Zzz……」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG:1 == 2 || ARG:1 == 3)
		PRINTFORML 「嗯～…？」
		SELECTCASE RAND:3
		CASE 1
			PRINTFORMW 「%CALLNAME:MASTER%……有什么事吗…？」
		CASE 2
			PRINTFORMW 「啊、%CALLNAME:MASTER%……姆呜……」
		CASEELSE
			PRINTFORMW 「哈啊啊～ぁ……%CALLNAME:MASTER%、有什么事吗～…？」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------

	;統合しました

	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG:1 == 4 || ARG:1 == 5)
		PRINTFORML 「嗯～…！？」
		SELECTCASE RAND:3
		CASE 1
			PRINTFORMW 「唔姆姆……侵入者gunaぇ～…！」
		CASE 2
			PRINTFORMW 「嗯嗯…！我还在睡觉啊～！ 滚出去～！」
		CASEELSE
			PRINTFORMW 「侵入者啊！滚滚滚！」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------

	;統合しました

ENDIF
RETURN 1

;;==================================================
;;お仕事中
;;==================================================
;@M_KOJO_EVENT_K111_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_K111_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;TCVAR:盗み食い抑制で持っていた食物を食われるのを回避できる
	IF STRCOUNT(DISH_TASTE, "野菜/")
		TCVAR:盗み食い抑制 = 1
	ENDIF
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		;一緒に作った
		IF DISH_ASSI == 111
			PRINTFORML 「不吃吗？那我来吃好了！」
		;作ってない
		ELSE
			PRINTFORML 「哦？ 你拿着什么好吃的！ 给我尝尝！」
		ENDIF
		TCVAR:111:356 = 0
		TCVAR:111:357 = 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
;	;-------------------------------------------------
;	;小分岐
;	;-------------------------------------------------
;	;未実装（推倒指令に統合？
;	;MASTERが推倒た（ウフフ開始時）
;	;記入チェック（=0, 非表示、1, 表示）
;	;LOCAL:1 = 0
;	;-------------------------------------------------
;	;IF LOCAL:1 && ARG == 1
;		;PRINTFORML
;		;RETURN 1
;	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FLAG:時間停止
			RETURN 1
		ELSEIF TALENT:恋慕
			;満足
			IF TCVAR:111:355
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「哈啊哈啊……❤」
					PRINTFORMW 「%CALLNAME:MASTER%、差点把人家玩坏了♪ 下次还要继续做哦っ❤」
				CASE 2
					PRINTFORML 「嗯哼哼❤」
					PRINTFORMW 「SEX超棒的♪ 托%CALLNAME:MASTER%的福玩得很開心哦❤ 啾❤」
				CASEELSE
					;ちんこ使わなくても言う
					PRINTFORML 「哈啊哈啊……❤ %CALLNAME:MASTER%……差点被你玩坏了……！」
					SIF HAS_PENIS(MASTER)
						PRINTFORMW 「下次%ONEDARI_MASTER_TINKO()%绝对不会输给你的……！」
				ENDSELECT
			ELSEIF CFLAG:111:积攒度 < 200
				PRINTFORML 「呜ぅ……」
				PRINTFORMW 「诶嘿❤ 下次再一起做吧❤」
			ELSEIF CFLAG:111:积攒度 < 500
				PRINTFORML 「已经结束了吗？」
				PRINTFORMW 「再做一会儿不好吗❤」
			ELSEIF CFLAG:111:积攒度 < 800
				PRINTFORML 「呼……已经结束了？」
				PRINTFORMW 「明明再多做一会儿也没事的……❤」
			ELSE
				PRINTFORML 「诶っ、结束了……？」
				PRINTFORMW 「呜ぅ～～、还不满足啦～！」
			ENDIF
		ELSE
			PRINTFORMW 「呼ぇ……已经结束了……？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「恩哼哼…❤ 看这里ぇ……」
			SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「黏糊糊的精液在一个劲往外流呢～❤
				PRINTFORMW 「要被大家知道皮斯是个色情的妖精了～❤」
			CASE 2
				PRINTFORMW 「皮斯也可以射精喽～♪ biubiuー♪」
			CASEELSE
				PRINTFORMW 「%CALLNAME:MASTER%让我怀孕的汁液在满溢出来❤」
			ENDSELECT
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORMW 「哈啊❤ 人家的妖精蜜汁喷的一塌糊涂了～❤」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後の情緒
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			IF TALENT:[[克勞恩皮絲]]:恋人
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「呼呼、今天尽情做爱了，好開心♪」
					PRINTFORMW 「总觉得好像变得更喜欢%CALLNAME:MASTER%了、超级超级喜欢❤」
				CASE 2
					PRINTFORML 「这样一来我的身体完全记住了%CALLNAME:MASTER%的形状」
					PRINTFORMW 「看来已经一辈子都忘记不了了♪」
				CASEELSE
					PRINTFORML 「和%CALLNAME:MASTER%SEX让我成为了世上最幸福的妖精」
					PRINTFORMW 「以后也要一直一直让我幸福哦，%CALLNAME:MASTER%❤」
				ENDSELECT
			ELSEIF TALENT:MASTER:恋人 && !GROUPMATCH(TALENT:MASTER:恋人, [[純狐]], [[赫喀提亞]]) && CFLAG:(TALENT:MASTER:恋人):現在位置 != CFLAG:[[克勞恩皮絲]]:現在位置
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「呼呼呼……%CALLNAME:MASTER%有女朋友的吧？」
					PRINTFORMW 「沉默吗，到底怎样我也不去管，你自己心里清楚就好～」
				CASE 2
					PRINTFORML 「呼呼呼……这可是出轨哦♪」
					PRINTFORMW 「呀哈哈，是不是感觉爽翻了～♪？」
				CASEELSE
					PRINTFORML 「哈哈っ♪ %CALLNAME:MASTER%明明有女朋友还是和我做爱了，真是渣男♪」
					PRINTFORMW 「安心啦，不会告诉她的，毕竟我们是共犯捏❤」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「呼呼、果然没有比和%CALLNAME:MASTER%SEX更爽的事了～❤」
					PRINTFORMW 「还想做的话，随时来找我哦～♪」
				CASE 2
					PRINTFORML 「♪～～～♪～～～」
					PRINTFORMW 「果然做爱才是最爽的事～♪」
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%和我做爱感觉舒服吗？」
					PRINTFORMW 「我的话，大概是这辈子最爽的一件事了～❤」
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
;		;-------------------------------------------------
;		;服を着る
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 4
;			PRINTFORML
;			RETURN 1
;		ENDIF
	ENDIF
ENDIF
RETURN 1

;;==================================================
;;陪睡
;;==================================================
;@M_KOJO_EVENT_K111_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
;ENDIF
;RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K111_17(ARG,ARG:1)
#DIM 表示済み
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
表示済み = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「嗯！？」
		PRINTFORML （好奇怪……）
		PRINTFORMW （有种……想去的感觉……）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「咿呀ッッ！！」
		PRINTFORMW 克劳恩皮斯目含泪光羞红了脸
		PRINTFORMW 「怎么回事……诶？……怎么突然……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;胖次紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「咦っ？」
		PRINTFORMW 「我的内裤……」
		;胖次のことは知らない
		IF FIRSTTIME("胖次没収", 1)
			PRINTFORMW （好奇怪……是忘记穿了吗……）
		;胖次を没収したことがある
		ELSE
			PRINTFORML （难不成是被%CALLNAME:MASTER%……？）
			PRINTFORMW （……可恶，到底怎么做到的？？）
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			;味を知らない
			IF FIRSTTIME("精液の味", 1)
				PRINTFORML 「嗯咕ッ！？ 咕噜咕噜！」
				PRINTFORMW 「奇怪、突然、呜っ！」
				PRINTFORMW 「咕ぇー、虽然不知道是什么，但咽下去了……」
			;味を知っている
			ELSE
				PRINTFORML 「嗯咕ッ！？ 咕噜咕噜！」
				PRINTFORMW 「咦！？ 刚才、呜っ！」
				PRINTFORMW 「嗯……好恶心的感觉……」
			ENDIF
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			;味を知らない
			IF FIRSTTIME("精液の味", 1)
				PRINTFORML 「嗯咕ッ！？ 咕噜咕噜！」
				PRINTFORMW 「奇怪、突然、呜っ！」
				PRINTFORMW 「咕ー……呜哇……什么东西啊……好恶心……」
			;味を知っている
			ELSE
				PRINTFORML 「嗯咕ッ！？ 咕噜咕噜！」
				PRINTFORMW 「咦！？ 刚才、呜っ！」
				PRINTFORMW 「咕ー……啊啊っ、果然是那个……呕っ」
			ENDIF
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			;味を知らない
			IF FIRSTTIME("精液の味", 1)
				PRINTFORML 「嗯咕ッ！？ 咕噜咕噜！」
				PRINTFORMW 「奇怪、突然、呜っ！」
				PRINTFORMW 「姆咕……什么东西啊、好苦好恶心的味道……」
			;味を知っている
			ELSE
				PRINTFORML 「嗯咕ッ！？ 咕噜咕噜！」
				PRINTFORMW 「咦！？ 刚才、呜っ！」
				PRINTFORMW 「姆咕……姆咕咕……为什么会突然出现在嘴里……」
			ENDIF
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			PRINTFORML 「嗯咕ッ！？ 咕噜！」
			PRINTFORMW 「呜……怎么做到的……？」
			PRINTFORMW 「嗯……但是，味道好好……♪」
		;濃厚でも同じ
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			;味を知らない
			IF FIRSTTIME("精液の味", 1)
				PRINTFORML 「嗯咕ッ！？ 咕噜咕噜！」
				PRINTFORMW 「奇怪、突然、呜っ！」
				PRINTFORMW 「咕ー……呜哇……什么东西啊……好恶心……」
			;味を知っている
			ELSE
				PRINTFORML 「嗯咕ッ！？ 咕噜咕噜！」
				PRINTFORMW 「咦！？ 刚才、呜っ！」
				PRINTFORMW 「咕ー……啊啊っ、果然是那个……呕っ」
			ENDIF
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			PRINTFORML 「嗯咕ッ！？ 咕噜！」
			PRINTFORMW 「呜……怎么做到的……？」
			PRINTFORMW 「嗯……但是，味道好好……♪」
		ENDIF
		表示済み = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;幼稚持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			IF 表示済み
				PRINTFORMW 「唔欸……脸上占到了……」
			ELSE
				PRINTFORML 「咦っ……这什么啊……」
				PRINTFORMW 「怎么弄到脸上的……好恶心……」
			ENDIF
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			IF 表示済み
				PRINTFORMW 「啊、脸上也沾到了啊……舔舔」
			ELSE
				PRINTFORML 「咦っ……这什么啊……」
				PRINTFORMW 「嗯……舔舔」
			ENDIF
		ENDIF
		表示済み = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			IF 表示済み
				PRINTFORMW 「怎么哪里都是……」
			ELSE
				PRINTFORML 「唔欸……这什么啊……」
				PRINTFORMW 「怎么办……身上都是……」
			ENDIF
		;舐めとり
		ELSEIF ARG:1 == 2
			IF 表示済み
				PRINTFORMW 「啊、手上也有……舔舔」
			ELSE
				PRINTFORML 「唔欸……怎么弄到的……」
				PRINTFORMW 「嗯……舔舔」
			ENDIF
		ENDIF
		表示済み = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚肛門射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚0
		IF ARG:1 == 1
			PRINTFORML 「咿呀呀！！」
			PRINTFORMW 「呜……突然、屁股、好痛……」
		;ソレ以外
		ELSEIF ARG:1 == 2
			PRINTFORML 「咿呀呀！！」
			PRINTFORMW 「呜……突然、屁股、好痛……」
		ENDIF
		表示済み = 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		IF 表示済み == 2
			PRINTFORML 「啊咕ッ……！！」
			PRINTFORMW 「好痛……真的……好痛……」
		ELSE
			PRINTFORML 「咿呀呀！！」
			PRINTFORMW 「咕……痛痛痛……好痛……怎么回事……」
		ENDIF
		表示済み = 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精口服避孕薬無
		IF ARG:1 == 1
			PRINTFORML 「嗯……！？」
			PRINTFORMW 「怎么感觉……咦？……奇怪」
		;非処女膣内射精口服避孕薬あり
		ELSEIF ARG:1 == 2
			PRINTFORML 「嗯……！？」
			PRINTFORMW 「怎么感觉……咦？……奇怪」
		;処女膣内射精
		ELSEIF ARG:1 == 3
			PRINTFORML 「嗯……！？」
			PRINTFORMW 「怎么回事啊、这种感觉……？」
		ENDIF
		表示済み = 2
		RETURN 1
	ENDIF
;	;-------------------------------------------------
;	;時間停止解除共通
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 0
;		RETURN 1
;	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K111_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「唔……会怀上小宝宝的……」
		PRINTFORMW 「对我们来说，有点太早了吧……？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「不行……」
		PRINTFORMW 「对%CALLNAME:MASTER%或许不是什么大不了的事、但我还是……感到害怕……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「不要——！！」
		PRINTFORMW 「%CALLNAME:MASTER%真是大白痴！堕下地狱去吧！」
		CALL COLORMESSAGE(@"ﾊﾞﾁｺｰﾝ!!", C_RED, 1)
		PRINTFORMDW 克劳恩皮斯毫不客气地一巴掌甩了上来！！
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「好吧……就这样射进来也可以」
		PRINTFORMW 「毕竟%CALLNAME:MASTER%都这样子恳求了❤」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「嗯ー……来造孩子吧！」
		PRINTFORMW 「快把让人家怀孕的牛奶biubiu射进子宫里来❤」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K111_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「太好啦ー！」
		PRINTFORMW 「我去和主人说一声就搬过来！」
		PRINTL
		PRINTFORMDL 克劳恩皮斯很快与赫卡提亚谈妥。
		PRINTFORMDL 总觉得在此之前已经有次此考虑。
		PRINTW
		PRINTFORML 「等把地狱的事务先完成♪」
		PRINTFORML 「虽说可能主人会感觉寂寞……」
		PRINTFORMW 「但在%CALLNAME:MASTER%的身边总觉得会成长的更快！」
		PRINTL
		PRINTFORMDL 克劳恩皮斯干劲十足地筹备着。
		PRINTFORMDW 反倒是%CALLNAME:MASTER%总觉得还有些没准备好。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「唔ー！ 小气ー！」
		PRINTFORMW 「怎么！ 因为我是妖精所以不可以吗！？」
		PRINTFORMW 「我和那些没头脑的妖精可完全不同哦！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;你の私室変更により同居
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;色々考えたけど坦率が一番
		PRINTFORMW 「真好❤ 晚上又可以做爱了ー！」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K111_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:[[克勞恩皮絲]]:诶嘿嘿
			PRINTFORML 「嗯唔～……」
			PRINTFORMW 「对不起%CALLNAME:MASTER%、人家困了……」
			PRINTL
			PRINTFORMDW 因为不可抗力、%CALLNAME:MASTER%送走了被睡意吞噬地克劳恩皮斯。
		ELSEIF TALENT:[[克勞恩皮絲]]:恋慕
			SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「啊啊、已经到得回家的时间了……」
				PRINTFORML 「明明还想多和%CALLNAME:MASTER%玩一会儿的～」
			CASE 2
				PRINTFORML 「呼啊～ぁ……困起来了……」
				PRINTFORML 「今天就回家睡觉吧」
			CASEELSE
				PRINTFORML 「唔～、再不回去要被主人骂了啦～」
				PRINTFORML 「虽说很不舍，但今天只能到此为止了哦」
			ENDSELECT
			IF TALENT:[[克勞恩皮絲]]:恋人
				IF DAY % 2 == 0
					PRINTFORML 「%CALLNAME:MASTER%！ 想想下次一起玩什么哦！」
				ELSE
					PRINTFORML 「%CALLNAME:MASTER%！ 想想下次一起玩什么哦！」
				ENDIF
				;接吻経験済みで3分の1
				IF !FIRSTTIME("初吻", 1, [[克勞恩皮絲]]) && !RAND:3
					;さらに4分の1
					IF !RAND:4
						PRINTFORMW 「拜拜っ♪ 啾❤」
						PRINTFORMDW 趁着%CALLNAME:MASTER%不注意，克劳恩皮斯轻轻在脸颊留下一个吻
					ELSE
						PRINTFORMW 「拜拜っ♪ 啾❤」
						PRINTFORMDW 临别之际，克劳恩皮斯恶作剧般抛下飞吻后离開了。
					ENDIF
				ELSE
					PRINTFORMW 「拜拜～っ♪」
				ENDIF
			ELSE
				PRINTFORML 「下次再一起玩哦%CALLNAME:MASTER%！可别忘了！」
				PRINTFORMW 「拜拜～っ♪」
			ENDIF
		ELSE
			SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「虽然还想多玩一会儿、但已经是不得不回去的时间了」
			CASE 2
				PRINTFORML 「呼哇哇……困了啦，回去了」
			CASEELSE
				PRINTFORML 「已经这个时间了吗，回去睡觉了」
			ENDSELECT
			IF TALENT:[[克勞恩皮絲]]:思慕
				PRINTFORMW 「哈哈，%CALLNAME:MASTER%下次再一起玩哦～♪」
			ELSE
				PRINTFORMW 「拜拜，%CALLNAME:MASTER%下次再见～」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;约会中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:诶嘿嘿
			IF CFLAG:衰弱
				;诶嘿嘿中に疲れて返回
				PRINTFORML 「哈啊哈哈……」
				PRINTFORMW 「对不起%CALLNAME:MASTER%、我已经困得想睡了……」
				PRINTL
				PRINTFORMDW 克劳恩皮斯受不了无休止的抽插与高潮先行告退。
			ELSE
				;诶嘿嘿中に眠くて返回
				PRINTFORML 「嗯唔～……」
				PRINTFORMW 「对不起%CALLNAME:MASTER%、人家困了……」
				PRINTL
				PRINTFORMDW 虽说%CALLNAME:MASTER%很卖力，但克劳恩皮斯还是忍受不了困意。
			ENDIF
		ELSE
			IF TALENT:[[克勞恩皮絲]]:恋慕
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「啊啊、已经到得回家的时间了……」
					PRINTFORML 「明明还想多和%CALLNAME:MASTER%玩一会儿的～」
				CASE 2
					PRINTFORML 「呼啊～ぁ……困起来了……」
					PRINTFORML 「今天就回家睡觉吧」
				CASEELSE
					PRINTFORML 「唔～、再不回去要被主人骂了啦～」
					PRINTFORML 「虽说很不舍，但今天只能到此为止了哦」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「虽然还想多玩一会儿、但已经是不得不回去的时间了」
				CASE 2
					PRINTFORML 「呼哇哇……困了啦，回去了」
				CASEELSE
					PRINTFORML 「已经这个时间了吗，回去睡觉了」
				ENDSELECT
			ENDIF
			IF TALENT:[[克勞恩皮絲]]:恋人 && !FIRSTTIME("初吻", 1, [[克勞恩皮絲]])
				IF !RAND:4
					PRINTFORMW 「拜拜っ♪ 啾❤」
					PRINTL
					PRINTFORMDW 趁着%CALLNAME:MASTER%不注意，克劳恩皮斯轻轻在脸颊留下一个吻
				ELSE
					PRINTFORMW 「拜拜っ♪ 啾❤」
					PRINTL
					PRINTFORMDW 临别之际，克劳恩皮斯恶作剧般抛下飞吻后离開了。
				ENDIF
			ELSE
				PRINTFORMW 「今天玩的很高兴哦，再见啦%CALLNAME:MASTER%再见啦～」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り（角色の自宅位置、または角色的房間で约会終了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;待客室
		IF CFLAG:111:現在位置 == OMANEKIBEYA()
			PRINTFORMW 「哈啊啊……已经这个时间了吗……」
			PRINTFORMW 「再见啦%CALLNAME:MASTER%…………」
			;泊まれる
			SIF !TCVAR:(CFLAG:MASTER:招待):连住禁止 && NEMUKE() < 720
				PRINTFORMW 「……还是说到明早再说再见……？」
		ELSE
			PRINTFORMW 「谢谢你来送我！」
			PRINTFORMW 「今天玩的很高兴哦，再见啦%CALLNAME:MASTER%再见啦～」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;约会終了時に部屋に来ないかと誘う（～から部屋に来ないかと誘われた）
	;（来訪角色のみ,自宅が無い角色でも発生します）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF TALENT:[[克勞恩皮絲]]:恋人
			PRINTFORML 「%CALLNAME:MASTER%、到床上继续约会吧？」
		ELSE
			PRINTFORML 「%CALLNAME:MASTER%、去我家玩会儿吧？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「行く」を選択（～に誘われるまま、【MASTER】は【TARGET】的房間へと向かった……）
	;（これが発生すると十中八九被逆推ます）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「嗯哼❤ 出发出发ー！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「やめとく」を選択（～は心無か寂しそうだ……）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW 「这样啊……那下次再见了哦、%CALLNAME:MASTER%！ 拜拜っ♪」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくないと言い出す（～は今夜は帰りたくないと言い出した…）
	;（来訪角色の帰宅時に欲求不満と欲望が高いと発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF TALENT:[[克勞恩皮絲]]:恋人
			PRINTFORML 「%CALLNAME:MASTER%……、今天我可以住在%CALLNAME:MASTER%家里吗…？」
			PRINTFORMW 「我一个人回去很寂寞嘛……求你了啦！」
		ELSE
			PRINTFORML 「不要回家嘛ー！ 不想回家啦～！」
			PRINTFORMW 「还想继续和%CALLNAME:MASTER%玩啦～！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊める」を選択（～は【MASTERの自室】に泊まっていくこと成为了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML 「真的吗！？ 太好啦ー！」
		IF CFLAG:[[克勞恩皮絲]]:現在位置 == CFLAG:MASTER:初期位置
			PRINTFORMW 「事不宜迟，上床吧！」
		ELSE
			PRINTFORMW 「事不宜迟，我去你的房间了哦❤」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊めない」を選択、または家主が居る（【MASTER】は丁重に断った）
	;（家主が居る＝MASTERの私室に他の角色の私室を設定している）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF TALENT:[[克勞恩皮絲]]:恋人
			PRINTFORML 「唔……知道了啦……」
			PRINTFORMW 「那只能再见了哦、%CALLNAME:MASTER%……拜拜」
			PRINTL
			PRINTFORMDW 克劳恩皮斯有些失落的回去了……。
		ELSE
			PRINTFORML 「唔……知道了啦……」
			PRINTFORMW 「那只能再见了哦、%CALLNAME:MASTER%……拜拜♪」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;疲れて帰宅（疲れきった～は帰って行きました）
	;（～は疲れ切っている→（入り口）まで送るよ でも発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 10
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中に疲れて返回
			PRINTFORML 「哈啊哈哈……」
			PRINTFORMW 「对不起%CALLNAME:MASTER%、我已经困得想睡了……」
			PRINTL
			PRINTFORMDW %CALLNAME:MASTER%将困倦的克劳恩皮斯送回了家。
		ELSE
			PRINTFORML 「哈啊哈哈……」
			PRINTFORMW 「我已经困得想睡了……」
			PRINTFORMW 「再见了哦%CALLNAME:MASTER%、拜拜……」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K111_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW （%CALLNAME:MASTER%…………）
		PRINTFORMW （………………）
		PRINTFORMW 「…………完全睡不着」
		PRINTFORML
		PRINTFORMW 克劳恩皮斯在被窝里胡思乱想着
		PRINTFORML
		PRINTFORMW （每天脑海里都忍不住去想%CALLNAME:MASTER%的事情）
		PRINTFORMW （是我变了吗……、变得奇怪了？）
		PRINTFORMW （要不要问问主人是为什么呢……）
		PRINTFORML
		;赫喀提亞の親密が6以上
		IF ABL:113:親密 >= 6
			PRINTFORMW （%CALLNAME:MASTER%和主人到底是什么关系呢……）
			PRINTFORMW （………………）
			PRINTFORMW （……好讨厌的问题，完全不想往这方面思考）
			PRINTFORMW （如果和主人很亲密的话，总觉得心中不爽……）
			PRINTFORMW （如果讨厌主人……只会让我的心情更加复杂……）
		ELSE
			PRINTFORMW （主人会怎么看待%CALLNAME:MASTER%呢……）
			PRINTFORMW （想和主人、%CALLNAME:MASTER%一起玩耍）
			PRINTFORMW （肯定会是超级有趣的景象、玩些什么感觉都有意思）
			PRINTFORMW （再加上友人大人吧ー……）
			PRINTFORMW （………………）
			PRINTFORMW （但想想两个人独处也超棒的）
			PRINTFORMW （和%CALLNAME:MASTER%的关系还是与主人保密比较好吧……）
		ENDIF
		PRINTFORML
		PRINTFORMW （该怎么办呢……、对这种事情完全没头绪……）
		PRINTFORMW 「唔唔……好痛苦、这种无法理解的事情……%CALLNAME:MASTER%」
		PRINTFORMW 「能告诉我答案吗……%CALLNAME:MASTER%……」
		IF M_KOJO_K111_JUNKO_KURASHI()
			PRINTFORMW 「陪在我身边……」
			PRINTFORMW 「为我指明道路……」
		ELSE
			PRINTFORMW 「想要见到你……」
			PRINTFORMW 「陪在我身边……」
		ENDIF
		PRINTFORML
		PRINTFORMW ――克劳恩皮斯的无眠之夜还在继续
		PRINTL
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;純狐邸に住んでる
		IF M_KOJO_K111_JUNKO_KURASHI()
			PRINTFORMW （与%CALLNAME:MASTER%同一屋檐下相处……）
			PRINTFORMW （习惯之后每天好像都有无穷的乐趣）
			PRINTFORMW （明天该去哪里玩呢，又去玩什么呢）
		ELSE
			PRINTFORMW （哼哼、%CALLNAME:MASTER%）
			PRINTFORMW （最近和他一起到处玩耍）
			PRINTFORMW （好像永远不会觉得腻一样，好神奇）
		ENDIF
		PRINTFORMW 「呼呼呼……♪ 光是想想就忍不住笑出来♪」
		RETURN 1
	ENDIF
;	;-------------------------------------------------
;	;愛欲取得
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 3
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;愛人取得
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 4
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;炮友取得
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 5
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;接吻魔取得
;	;記入チェック（=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_EVENT_K111_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=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
;	;-------------------------------------------------
;	;無知持ち（自慰中毒による分岐あり
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 4
;		;無知消去イベントあり（表示は一度だけ
;		IF ABL:LOCAL:自慰中毒 >= 5
;		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
;		[SKIPSTART]
;		ELSEIF ABL:LOCAL:自慰中毒 == 4
;		ELSEIF ABL:LOCAL:自慰中毒 == 3
;		ELSEIF ABL:LOCAL:自慰中毒 == 2
;		ELSEIF ABL:LOCAL:自慰中毒 == 1
;		[SKIPEND]
;		ELSE
;		ENDIF
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;陥落素質あり自慰中毒高め
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 5
;		;-------------------------------------------------
;		;Ｂ敏感orＢ感覚10以上
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 1
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;Ａ敏感orＡ感覚10以上
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 2
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;Ｃ敏感orＣ感覚10以上
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 3
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;Ｖ敏感orＶ感覚10以上
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 4
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;部位指定無し
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 5
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;其他
;		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;自慰中毒高め
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 6
;		;-------------------------------------------------
;		;尻穴膣腔同時
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 1
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;膣腔のみ
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 2
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;其他
;		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
;		PRINTFORML
;		RETURN 1
;	ENDIF
	;其他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	;我慢
	IF ARG == 7
		PRINTFORML 「呜呜、该怎么办……好想自慰……」
		PRINTFORML 「果然还是想要%CALLNAME:MASTER%的肉棒来满足我……❤」
	;通常
	ELSE
		PRINTFORML 「哈啊哈啊哈啊……嗯っ\/\/\/」
		IF TALENT:111:恋慕
			PRINTFORML 「不行……已经忍不住了啦……」
			PRINTFORML 「啊啊っ……%CALLNAME:MASTER%❤ 嗯……用力……嗯ぁ❤」
		ENDIF
		SIF TALENT:111:恋慕 || TALENT:111:思慕
			PRINTFORML 「嗯嗯っ%CALLNAME:MASTER%っ……❤」
	ENDIF
	PRINTL
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K111_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「诶？ 想一起洗澡？」
		PRINTFORMW 「脑袋被门夹了吗？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「哇哇♪ 可以一起洗哦ー♪」
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K111_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「啊っ！ 难道……！」
		PRINTFORML
		PRINTFORMDL 克劳恩皮斯注意到了身体的异常、
		PRINTFORMDW 内心急切却又不敢加快步伐，朝着%CALLNAME:MASTER%的方向慢慢走去。
		PRINTFORML
		PRINTFORMW 「 %CALLNAME:MASTER%！ 快看快看，有小宝宝了哦！」
		PRINTFORMW 「是我和%CALLNAME:MASTER%的小宝宝哦！」
		PRINTFORML 「不至于兴奋到那么夸张吧……」
		PRINTFORMW 「%CALLNAME:MASTER%不要一个劲蹭上来啦，会对宝宝不好的！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	;同じ
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「啊っ！ 难道……！」
		PRINTFORML
		PRINTFORMDL 克劳恩皮斯注意到了身体的异常、
		PRINTFORMDW 内心急切却又不敢加快步伐，朝着%CALLNAME:MASTER%的方向慢慢走去。
		PRINTFORML
		PRINTFORMW 「 %CALLNAME:MASTER%！ 快看快看，有小宝宝了哦！」
		PRINTFORMW 「是我和%CALLNAME:MASTER%的小宝宝哦！」
		PRINTFORML 「不至于兴奋到那么夸张吧……」
		PRINTFORMW 「%CALLNAME:MASTER%不要一个劲蹭上来啦，会对宝宝不好的！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	;同じ,好きでなくともとりあえず喜ぶ純粋さが可愛的（言い訳）
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「啊っ！ 难道……！」
		PRINTFORML
		PRINTFORMDL 克劳恩皮斯注意到了身体的异常、
		PRINTFORMDW 内心急切却又不敢加快步伐，朝着%CALLNAME:MASTER%的方向慢慢走去。
		PRINTFORML
		PRINTFORMW 「 %CALLNAME:MASTER%！ 快看快看，有小宝宝了哦！」
		PRINTFORMW 「是我和%CALLNAME:MASTER%的小宝宝哦！」
		PRINTFORML 「不至于兴奋到那么夸张吧……」
		PRINTFORMW 「%CALLNAME:MASTER%不要一个劲蹭上来啦，会对宝宝不好的！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「诶っ！？ 难道……」
		PRINTFORMW 「可是……为什么……？？ 不要啊……怎么会这样……」
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K111_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の兒童か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;兒童の性格設定（まだ）
;	CALL M_KOJO_K111_CHILD_TYPE_SETTING(ARG:1)
	;無自覚リセット
	CFLAG:111:1010 = 0
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「哈啊哈啊哈啊……」
		PRINTFORMW 「终于，生下来了……！！」
		PRINTFORML
		PRINTFORMW 「是我们的孩子……%CALLNAME:MASTER%和我的孩子……\/\/\/」
		PRINTFORMW 「看吧，多么可爱\/\/\/」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「哈啊哈啊哈啊……」
		PRINTFORMW 「终于，生下来了……！！」
		PRINTFORML
		PRINTFORMW 「是我们的孩子……%CALLNAME:MASTER%和我的孩子……\/\/\/」
		PRINTFORMW 「看吧，多么可爱\/\/\/」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「哈啊哈啊哈啊……」
		PRINTFORMW 「终于，生下来了……！！」
		PRINTFORML
		PRINTFORMW 「是我们的孩子……%CALLNAME:MASTER%和我的孩子……\/\/\/」
		PRINTFORMW 「看吧，多么可爱\/\/\/」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「哈啊哈啊哈啊……」
		PRINTFORMW 「终于，生下来了……！！」
		PRINTFORML
		PRINTFORMW 「是谁的孩子呢……对不起，妈妈不知道你的爸爸是谁……\/\/\/」
		PRINTFORMW 「多可爱的宝宝啊\/\/\/」
		;無自覚出産,親が分からない
		CFLAG:111:1010 = 1
		CFLAG:111:(1020 + ARG:1) = 1
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K111_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF FIRSTTIME("オナバレ")
				PRINTFORMW 「哇…%CALLNAME:MASTER%……你怎么来了……」
				PRINTFORML 「干嘛！ 又不是什么奇怪的事情！ 女孩子也会有那方面需求啊！」
				PRINTFORML 「擅自进别人房间还有理了！」
				TCVAR:111:352 = 1
			ELSEIF TALENT:111:恋慕 && GETBIT(CFLAG:111:既成事實, 1)
				;20日以上会ってない
				IF DAY - CFLAG:111:1002 >= 20
					PRINTFORML 「啊…%CALLNAME:MASTER%……！」
					PRINTFORMW 「对不起…因为、好久没见面的缘故、觉得有些寂寞所以……」
					PRINTFORML 「不知不觉就忍耐不住……所以……唔……」
					TCVAR:111:352 = 4
				ELSE
					PRINTFORML 「是%CALLNAME:MASTER%啊～、想要一起睡的话进来不就好了～～」
					PRINTL
					PRINTFORMDL 克劳恩皮斯裸着淫液横流的下半身出门迎接。
					PRINTFORMDW 房间中弥漫着刚出炉糕点般诱人的克劳恩皮斯的淫荡味道……。
					PRINTL
					PRINTFORML 「特意来见我的吗～？ 好高兴～♪」
					PRINTFORML 「特意来见我的话又是为了什么呢～？ 约会？ 留宿？ 还是想美餐一顿～」
					TCVAR:111:352 = 3
				ENDIF
			ELSE
				PRINTFORMW 「唔…%CALLNAME:MASTER%……明明我都要进行到激烈的部分了……」
				PRINTFORML 「不对！ 想盯着人家看到什么时候！？ 变态！」
				TCVAR:111:352 = 2
			ENDIF
;			PRINTFORMW 「あーっっ！！ だめっ！ イくッ❤」
;			PRINTFORML ……どうやら見られたことに興奮して絶頂してしまったようだ
;			PRINTFORMW しかし克勞恩皮絲は平然と開き直っている
;			PRINTFORML 「なによ！ 別にいいでしょ！」
;			PRINTFORMW 「それより勝手に入ってこないでよ！」
			GOTO FINISH
		ENDIF
		;-------------------------------------------------
		CASE 1
		;什麼也不做
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			;初回,恋慕無or合意まだ
			IF TCVAR:111:352 == 1 || TCVAR:111:352 == 2
				PRINTFORMW 「笨蛋！ 滚出去！」
			;恋慕＋合意
			ELSEIF TCVAR:111:352 == 3
				PRINTFORMW 「诶嘿～？ 是在玩弄人家嘛～？」
			;久しぶり
			ELSEIF TCVAR:111:352 == 4
				PRINTFORMW 「啊っ！ 等一下…ぁ……」
			ENDIF
			GOTO FINISH
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			;初回,恋慕無or合意まだ
			IF TCVAR:111:352 == 1 || TCVAR:111:352 == 2
				PRINTFORML 「诶、想继续看……？」
				PRINTFORMW 「哼哼，当然可以♪」
			;恋慕＋合意
			ELSEIF TCVAR:111:352 == 3
				PRINTFORML 「诶、让我……继续吗……？」
				PRINTFORMW 「真是过分的人啊，明明%CALLNAME:MASTER%都来了却还让我一个人ぃ……」
				PRINTFORMW 「但既然你要求了，那就好好看着吧！」
			;久しぶり
			ELSEIF TCVAR:111:352 == 4
				PRINTFORML 「诶、让我……继续吗……？」
				PRINTFORMW 「呜呜…好过分……好羞耻……」
				PRINTFORMW 「但既然你都要求了，就好好看我做下去吧……」
			ENDIF
;			PRINTFORMW 「え……继続の……？」
;			PRINTFORMW 「哼哼，当然可以♪」
;			PRINTFORMW 「……はあっ❤ んっ❤」
;			PRINTFORMW 「やぁ❤ %CALLNAME:MASTER%に見られてるのイイかも……❤」
			GOTO FINISH
		ENDIF
		;-------------------------------------------------
		CASE 3
		;逐出
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			PRINTFORMW 「笨蛋！！ 下地狱去吧！」
			GOTO FINISH
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			PRINTFORML 「诶？%CALLNAME:MASTER%想要一起舒服吗❤」
			PRINTFORMW 「那就快来吧❤」
			GOTO FINISH
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			PRINTFORML 「哈啊哈啊哈啊……好棒……❤」
			PRINTFORMW 「果然比起一个人，还是肉棒更舒服！」
			GOTO FINISH
		ENDIF
;		;-------------------------------------------------
;		CASE 6
;		;事後お泊り
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1
;			PRINTL
;			PRINTFORML 「」
;			PRINTFORMW 「」
;			RETURN 1
;		ENDIF
	ENDSELECT
ENDIF
$FINISH
;最後に会った日
CFLAG:111:1002 = DAY
TCVAR:111:今天有否见面 = 1
RETURN 1

;;オナバレックス判定用関数
;;RETURN -1で強制失敗、RETURN 1で強制成功
;@M_KOJO_EVENT_K111_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

;遠いので持ってきた
;-------------------------------------------------
;オナバレ遭遇時の地の文。
;默认のものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K111_ONABARE_1(ARG)
;-------------------------------------------------
SELECTCASE RAND:5
CASE 0
	PRINTFORMW 「啊…好舒服哦……」
CASE 1
	PRINTFORMW 「主人、不可以、不要这样啊…」
CASE 2
	PRINTFORMW 「主人…那里……更用力一点……」
CASE 3
	PRINTFORMW 「呼ぇ～…在这种地方……会被发现的……」
CASEELSE
	IF TALENT:111:恋慕
		PRINTFORMW 「嗯…%CALLNAME:MASTER%……请…温柔一点……啊…❤」
	ELSE
		PRINTFORMW 「嗯…啊嗯……」
	ENDIF
ENDSELECT
PRINTL
PRINTFORMDW 悄无声息进入克劳恩皮斯的房间，还没意识到被发觉的少女忘情地自慰着。
SELECTCASE RAND:3
CASE 0
	PRINTFORMDL 克劳恩皮斯紧紧贴在一只巨大玩偶身上，甜美的呻吟在房中回荡着。
CASE 1
	PRINTFORMDL 克劳恩皮斯羞耻的分開着双腿，从床头滚到床尾、
	PRINTFORMDL 柔软的身体尽可能弯曲的同时，玩弄着敏感处。
CASEELSE
	PRINTFORMDL 克劳恩皮斯用舒服的姿势陷入沙发、
	PRINTFORMDL 随着手指的抚弄发出甜美的娇声。
ENDSELECT
SELECTCASE RAND:2
CASE 0
	PRINTFORMD 踏入房间就闻到一股甜蜜的少女淫香
CASEELSE
	PRINTFORMD 房间内被发狂的火把照得透亮
ENDSELECT
PRINTFORMDW 、这样下去脑袋一定会变不正常的。
PRINTFORMDL 但只有在这才能享受到的少女浪叫与美味香气
PRINTFORMDW %CALLNAME:MASTER%无法移动已经被迷住的脚步，视奸着忘我发情的少女……。
PRINTL
PRINTFORMW 「！！ ……谁在哪儿！？」
;＞26-1へ
;-------------------------------------------------

[SKIPSTART]
;;-------------------------------------------------
;;オナバレでそのまま続けてもらう場合の地の文。
;;默认のものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;;置き換える気がないならスルー。
;;-------------------------------------------------
;@M_KOJO_EVENT_K111_ONABARE_2(ARG)
;;-------------------------------------------------
;;初回,恋慕無＋合意まだ
;IF TCVAR:111:352 == 1 || TCVAR:111:352 == 2
;	PRINTFORMW
;;恋慕＋合意,久しぶり
;ELSEIF TCVAR:111:352 == 3 || TCVAR:111:352 == 4
;	PRINTFORMW
;ENDIF
;;-------------------------------------------------
;
;
;;-------------------------------------------------
;;オナバレ無崩しックスの地の文。
;;默认のものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;;置き換える気がないならスルー。
;;-------------------------------------------------
;@M_KOJO_EVENT_K111_ONABARE_3(前戯１,本番はどっちか,回数,注入量)
;;-------------------------------------------------
;#DIM 前戯１
;;1=C 2=B 3=M
;#DIM 本番はどっちか
;;0でＶ、1でＡ
;#DIM 注入量
;#DIM 回数
;
;SELECTCASE 前戯１
;	CASE 1
;		PRINTFORML Ｃ責め
;	CASE 2
;		PRINTFORML Ｂ責め
;	CASE 3
;		PRINTFORML Ｍ責め
;ENDSELECT
;
;IF 本番はどっちか
;	PRINTFORML Aで本番
;ELSE
;	PRINTFORML Vで本番
;ENDIF
;;-------------------------------------------------
[SKIPEND]
;==================================================
;相手から约会のお誘い
;==================================================
@M_KOJO_EVENT_K111_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
	CASE 0
		;-------------------------------------------------
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「ねえねえ%CALLNAME:MASTER%、おでかけしよ♪」
			SELECTCASE STR:(5000 + ARG:1)
			CASE "博麗神社"
				PRINTFORMW 「去博丽神社玩吧～♪」
			CASE "命蓮寺"
				PRINTFORMW 「去命莲寺吗～♪」
			CASE "人間之里"
				PRINTFORMW 「里で约会しよっ！ 约会！」
			CASE "霧之湖～紅魔館"
				PRINTFORMW 「想去雾之湖～♪」
			CASE "迷途竹林"
				PRINTFORMW 「想去竹林玩～♪」
			CASE "魔法之森"
				PRINTFORMW 「魔法之森好像很有趣～♪」
			CASE "三途之川～冥界"
				PRINTFORML 「一起渡过三途川吧！」
				PRINTFORMW 「没关系的啦～%CALLNAME:MASTER%可以和我一起去地狱逛一圈～」
			CASE "妖怪之山 (山麓)"
				PRINTFORMW 「想去妖怪山ぁ～♪」
			CASE "妖怪之山 (山頂)"
				PRINTFORMW 「去妖怪山顶看看吧～♪」
			CASE "地底"
				PRINTFORMW 「想去地底世界玩玩～♪」
			CASE "夢之世界～月"
				PRINTFORMW 「去月亮上玩吧！」
			ENDSELECT
			RETURN 1
		ENDIF
	CASE 1
		;-------------------------------------------------
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「耶耶♪ %CALLNAME:MASTER%真好ー♪」
			RETURN 1
		ENDIF
	CASE 2
		;-------------------------------------------------
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「哼ー、小气死了」
			PRINTFORMW 「算了，那下次再一起去吧♪」
			RETURN 1
		ENDIF
	CASE 3
		;-------------------------------------------------
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「今天去我家里玩吗？」
			IF FIRSTTIME("招待", 1, 111)
				PRINTFORML 「今天家里刚好没人！」
				PRINTFORMW 「……虽然平时也不在」
			ELSE
				SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「有些想要给%CALLNAME:MASTER%看的东西♪」
				CASE 1
					PRINTFORMW 「想要%CALLNAME:MASTER%做饭给我吃」
				CASEELSE
					PRINTFORMW 「就是，想两人单独相处一会儿……」
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
	CASE 4
		;-------------------------------------------------
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF FIRSTTIME("招待", 0, 111)
				PRINTFORML 「同意了！太棒啦♪」
				PRINTFORMW 「虽说可能有些散乱、但%CALLNAME:MASTER%肯定会喜欢的♪」
			ELSE
				;晴天
				IF TIME:5 <= 1
					PRINTFORML 「太好啦ー！」
					PRINTFORML 「来拉着我！ 一起飞过去吧ー！」
					;TIME += -1 * TIME_REQUIRED(GET_MAPID(CFLAG:MASTER:現在位置), 10) / 2
					;遠いから時間短縮してあげようと思ったけど直後に出る地の文の表示と齟齬が出るのでやめ。-X分ってのは変だよね…
				ELSE
					PRINTFORML 「太好了！」
					PRINTFORMW 「我已经提前收拾好房间了哦♪」
					;とか言ってるけど部屋的污垢は変化しません（ここではできない）
					;本人は精一杯部屋を片付けたつもりでいるのです！
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	CASE 5
		;-------------------------------------------------
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「这样啊……」
			PRINTFORMW 「果然月亮离这里还是太远了吧……」
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K111_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:時間停止
				IF TCVAR:111:350
					PRINTFORMDL 克劳恩皮斯褪下的贴身衣物散发着有幼女香味的温热气息。
					PRINTFORMDW %CALLNAME:MASTER%贪婪享受着这种甜蜜妖艳的味道。
				ENDIF
			;通常
			ELSE
				IF TCVAR:111:350
					PRINTFORMDL 克劳恩皮斯褪下的贴身衣物散发着有幼女香味的温热气息。
					PRINTFORMW 「不要对着布料兴奋到这种地步啊！ 好恶心！」
				ELSE
					PRINTFORML 「那%CALLNAME:MASTER%也脱掉吧❤」
					PRINTFORMW 「都要脱光哦♪」
				ENDIF
			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 = 1
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「交换胖次吧！！♪」
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					IF TCVAR:111:350
						PRINTFORML 「诶ー……今天的不太行啊……」
						PRINTFORMW 「因为……出了很多汗……」
						PRINTFORMW 「所以为什么听我这么说反而露出更加期待的表情啊！？ 变态！」
					ELSE
						PRINTFORML 「诶？ 内裤？」
						PRINTFORMW 「给你的话我一会儿穿什么嘛？」
						PRINTFORMW 「算了、%CALLNAME:MASTER%想要的话给你好了❤」
					ENDIF
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					IF TCVAR:111:350
						PRINTFORML 「诶ー……今天的不太行啊……」
						PRINTFORMW 「因为……出了很多汗……」
						PRINTFORMW 「所以为什么听我这么说反而露出更加期待的表情啊！？ 变态！」
					ELSE
						PRINTFORML 「诶？ 内裤？」
						PRINTFORMW 「给你的话我一会儿穿什么嘛？」
						PRINTFORMW 「算了、%CALLNAME:MASTER%想要的话给你好了❤」
					ENDIF
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORML 「诶？ 内裤？」
					PRINTFORMW 「才不给！ KIMO！！」
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;憤怒口上
;==================================================
@M_KOJO_EVENT_K111_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの胆量で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「讨厌%CALLNAME:MASTER%！ 下地狱去吧！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[膽怯]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;相手が推倒を解除
;==================================================
@M_KOJO_EVENT_K111_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲惫
		PRINTFORML 「呼……居然做爱做累了♪」
		PRINTFORMW 「对不起%CALLNAME:MASTER%❤、是在太猛啦♪」
		TCVAR:111:351 = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML 「呼ぅ……❤」
		PRINTFORMW 「谢谢%CALLNAME:MASTER%哦❤、终于做爽了♪」
		TCVAR:111:351 = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを被逆推た
		PRINTFORML 「呀っ❤」
		PRINTFORMW 「哼，这次放过你好了❤」
		TCVAR:111:351 = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML 「哼哼……不用你说我也会这么做的❤」
		PRINTFORMW 「直到我们中一方倒下为止，否则不会停下哦%UNICODE(0x2764) * 2%」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_EVENT_K111_31(ARG,ARG:1)
;口上主はTARGET
;ARGは会ってない日数
;何日以上会ってなかったら愚痴を言うとかできます
;CFLAG:オナバレで分岐入れてもよさそう
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;※口上はないけどフラグの管理だけする
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;今日会っていない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG
		CFLAG:111:1003 = ARG
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今日会っている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		CFLAG:111:1003 = 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;自由行動中
;ARG:1      0=行動中,1=完了時
;技能系の行動は技能レベルが1以上なら発生
;==================================================
@M_KOJO_EVENT_K111_32(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
	CASE 0
		;▼考え事,（～は考えに耽っている。）
		IF !ARG:1
			;行動中
			PRINTFORML 「嗯……」
		ELSE
			;完了時
			PRINTFORML 「决定了っ！」
		ENDIF
	CASE 1
;		;▼玩遊戲,（～は走り回っている。）
;		;※[幼稚]持ちのみ
;		IF !ARG:1
;			;行動中
;			PRINTFORML
;;		ELSE
;			;完了時
;			PRINTFORML
;		ENDIF
	CASE 2
		;▼吃飯,（～は吃飯を摂っている。）
		IF !ARG:1
			;行動中
			SELECTCASE RAND:4
			CASE 1
				PRINTFORML 「咬咬……」
			CASE 2
				PRINTFORML 「嚼嚼……」
			CASE 3
				PRINTFORML 「咕噜咕噜……」
			CASEELSE
				PRINTFORML 「嚼嚼……」
			ENDSELECT
		ELSE
			;完了時
			PRINTFORML 「我吃饱了～♪」
		ENDIF
	CASE 3
		;▼つまみ食い（～はこっそりつまみ食いをしている。）
		;※[妖精]持ちと露米亜、恋、幽幽子、紫苑のみ
		IF !ARG:1
			;行動中
			SELECTCASE RAND:4
			CASE 1
				PRINTFORML 「找到了好东西♪」
			CASE 2
				PRINTFORML 「一定在这里……！」
			CASE 3
				PRINTFORML 「千万别暴露了……」
			CASEELSE
				PRINTFORML 「嚼嚼……」
			ENDSELECT
		ELSE
			;完了時
			PRINTFORML 「我吃饱了～♪」
		ENDIF
	CASE 4
;		;▼掃除,（～はテキパキと部屋の掃除をしている。）
;		;※[掃除係]持ちまたは汚臭耐性-1以下のみ
;		IF !ARG:1
;			;行動中
;			PRINTFORML
;		ELSE
;			;完了時
;			PRINTFORML
;		ENDIF
	CASE 5
		;▼運動,（～は張り切って運動している。）
		;※[音楽知識]持ちは除く（演奏になる）
		IF !ARG:1
			;行動中
			SELECTCASE RAND:4
			CASE 1
				PRINTFORML 「嘿、嘿っ、运动」
			CASE 2
				PRINTFORML 「诶 嘿っ、诶っ嘿っ」
			CASE 3
				PRINTFORML 「哼恩っ、呼っ、好！」
			CASEELSE
				PRINTFORML 「ワン・ツー、ワン・ツー！」
			ENDSELECT
		ELSE
			;完了時
			PRINTFORML 「啊ー、累死人了～」
		ENDIF
	CASE 6
;		;▼読書,（～は黙々と本を読んでいる。）
;		IF !ARG:1
;			;行動中
;			PRINTFORML
;		ELSE
;			;完了時
;			PRINTFORML
;		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
			;行動中
			SELECTCASE RAND:4
			CASE 1
				PRINTFORML 「别落下有用的东西哦～？」
			CASE 2
				PRINTFORML 「哦？ 这是什么啊？」
			CASE 3
				PRINTFORML 「哼哼…这边一定有什么！」
			CASEELSE
				PRINTFORML 「姆！ 发现有趣的石头了！」
			ENDSELECT
		ELSE
			;完了時
			PRINTFORML 「好了，就先这些吧」
		ENDIF
	CASE 10
;		;▼釣魚,（～はのんびり釣魚をしている。）
		IF !ARG:1
			;行動中
			SELECTCASE RAND:4
			CASE 1
				PRINTFORML 「♪～～」
			CASE 2
				PRINTFORML 「……………钓到啦……」
			CASE 3
				PRINTFORML 「鱼呢♪」
			CASEELSE
				;ここポケモン
				PRINTFORML 「上钩了上钩了！」
			ENDSELECT
		ELSE
			;完了時
			PRINTFORML 「啊ー…………玩腻了！！」
		ENDIF
	CASE 11
;		;▼実験,（～は可疑実験をしている。）
;		IF !ARG:1
;			;行動中
;			PRINTFORML
;		ELSE
;			;完了時
;			PRINTFORML
;		ENDIF
	CASE 12
		;▼のんびり,（～はのんびりしている。）
		IF !ARG:1
			;行動中
			SELECTCASE RAND:4
			CASE 1
				PRINTFORML 「♪～～♪～～」
			CASE 2
				PRINTFORML 「呼啊啊～ぁ……」
			CASE 3
				PRINTFORML 「哼♪哼哼♪ フ～ン♪」
			CASEELSE
				PRINTFORML 「嗯～♪ 哼哼～」
			ENDSELECT
		ELSE
;			;完了時
;			PRINTFORML
		ENDIF
	CASE 13
		;▼晩酌,（～はまったりと酒を飲んでいる。）
		;※酒耐性0以上のみ
		IF !ARG:1
			;行動中
			SELECTCASE RAND:4
			CASE 1
				PRINTFORML 「好暖～～～♪」
			CASE 2
				PRINTFORML 「再来点酒♪」
			CASE 3
				PRINTFORML 「%CALLNAME:MASTER%也喝嘛～？」
			CASEELSE
				PRINTFORML 「欸嘿嘿嘿～♪」
			ENDSELECT
		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
			;行動中
			SELECTCASE RAND:4
			CASE 1
				PRINTFORML 「诶 嘿っ、诶っ嘿っ」
			CASE 2
				PRINTFORML 「库库库……」
			CASE 3
				PRINTFORML 「嗯～、こ这样做刚好～？」
			CASEELSE
				PRINTFORML 「看着吧～」
			ENDSELECT
		ELSE
			;完了時,
			;（仕掛け人（失敗時）,誰も引っかからないので～は飽きてしまったようだ…）
			;（落ちた側（戦闘能力2～4）,～はすぐに穴から飛び出して周りをキョロキョロ見回している…）
			;PRINTFORML
		ENDIF
	CASE 17
		;▼雪だるま作り（～は雪を集めている）
		IF !ARG:1
			;行動中
			SELECTCASE RAND:4
			CASE 1
				PRINTFORML 「加油、加油」
			CASE 2
				PRINTFORML 「咕噜咕噜～♪」
			CASE 3
				PRINTFORML 「呀ー、好冷！」
			CASEELSE
				PRINTFORML 「用力、用力ょ」
			ENDSELECT
		ELSE
			;完了時
			PRINTFORML 「完成啦」
		ENDIF
	CASE 18
		;▼炬燵でのんびり（～は炬燵に入って温まっている）
		IF !ARG:1
			;行動中
			SELECTCASE RAND:4
			CASE 1
				PRINTFORML 「呜～嗯、乱动乱动♪」
			CASE 2
				PRINTFORML 「呼啊啊～ぁ……」
			CASE 3
				PRINTFORML 「嗯～好暖哦♪」
			CASEELSE
				PRINTFORML 「趴ー……」
			ENDSELECT
		ELSE
;			;完了時
;			PRINTFORML
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

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

;==================================================
;技能レベルUP
;各ABL値はレベルUP後の値になってます
;==================================================
@M_KOJO_EVENT_K111_34(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORML 「LEVEL UP！」
;	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_DAILY_EVENT_K111_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_DAILY_EVENT_K111_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 = 1
;-------------
IF LOCAL
	PRINTFORMW 「呜……明天去%CALLNAME:MASTER%那里看一眼吧！」
ENDIF
RETURN 1

;==================================================
;デイリーイベント12,特訓
;信頼100以上で発生（拠点角色のみ）
;==================================================
@M_KOJO_DAILY_EVENT_K111_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 = 1
;-------------
IF LOCAL
	SELECTCASE ARG:1
	CASE 1
		;特訓を頼まれる
		;～から新技の訓練に付き合って欲しいと言われた
		PRINTFORML 「%CALLNAME:MASTER%」
		PRINTFORML 「来试试我的新技能」
	CASE 2
		;拒绝
		;～は残念そうだ
		PRINTFORML 「切ー！ 可惜ー！」
	CASE 3
		;～の攻撃！
		;※ここはWAITしないでください
		PRINTFORML 「接招吧っ！！」
	CASE 4
		IF ARG:2
			;時間停止して回避
			PRINTFORML 「姆姆っ！？ 刚才突然用我看不懂的方式移动了？」
		ELSE
			;回避成功
			PRINTFORML 「姆姆っ！ 干得不错嘛！」
		ENDIF
	CASE 5
		;回避失敗
		PRINTFORML 「呀哈哈♪接的好～！」
	ENDSELECT
ENDIF
RETURN 1

;;-------------------------------------------------
;;処女・無自覚非処女に挿入する直前の口上
;;RETURN 1すると指令を中止します
;;RETURN 0なら通します
;;CFLAG:破瓜中止口上有がオンになってないと読み込まれないので注意
;;-------------------------------------------------
;@M_KOJO_EVENT_K111_LOST_VIRGIN_STOP
;;-------------------------------------------------
;PRINTFORML
;RETURN 1

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_初回がオンになっている場合のみ有効。
;初めて推倒た時、ここでRETURN -1すると推倒を強制的に中止します。
;RETURN 0なら通常の判定を行い、RETURN 1すると無条件に成功させます。
;特定のイベント（约会帰り接吻など）を見るまで诶嘿嘿できないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K111_PERMISSION_1
;-------------------------------------------------
IF M_KOJO_K111_FUKIGEN([[克勞恩皮絲]])
	;口上本体は推倒側で
	RETURN -1
ELSE
	RETURN 0
ENDIF
;-------------------------------------------------

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_通常がオンになっている場合のみ有効。
;合意付きで推倒た時、ここでRETURN -1すると推倒を強制的に中止します。
;RETURN 0なら通常街道成功させます。
;合意があっても何らかの理由で诶嘿嘿できないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K111_PERMISSION_2
;-------------------------------------------------
IF M_KOJO_K111_FUKIGEN([[克勞恩皮絲]])
	;口上本体は推倒側で
	RETURN -1
ELSE
	RETURN 0
ENDIF
;-------------------------------------------------

;-------------------------------------------------
;部屋描写用関数
;口上角色のOMANEKIBEYAか拠点の描写に使います
;記入する際はコメントアウトを外してください
;-------------------------------------------------
@K111_ROOM_DESCRIPTION
;贈り物を3回以上保存しているとき
IF CFLAG:[[克勞恩皮絲]]:1007 >= 3 && !RAND:3
	PRINTFORML 架子上放着%CALLNAME:MASTER%送的礼物
ELSE
	SELECTCASE RAND:5
	CASE 1
		PRINTFORML 房间里似乎有刑具混杂在玩具之间
	CASE 2
		PRINTFORML 设计诡异的壁纸让人头脑发昏……
	CASE 3
		PRINTFORML 谜样的霓虹灯迷乱人眼……
	CASE 4
		PRINTFORML 像是孩子的房间，却弥漫着令人毛骨悚然的气氛……
	CASEELSE
		PRINTFORML 简直像另一个世界一样，让人坐立不安……
	ENDSELECT
ENDIF
;-------------------------------------------------

;==================================================
;贈り物イベント
;==================================================
@M_KOJO_EVENT_K111_GIFT(ARG, GIFT_ID, 評価点, GIFT_NAME, SENSE)
#DIM GIFT_ID
#DIM 評価点
#DIMS GIFT_NAME
#DIMS SENSE
;---------------------------------------------------------------------------------------------------
;評価点       贈り物の評価点（1～999）,口上主があげた場合でも口上主の評価点
;GIFT_NAME    贈り物の名称
;SENSE        贈り物に設定された属性。STRCOUNT(DISH_TASTE, "ほげほげ/")を使用と特定の属性を判定できます。
;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
	SELECTCASE RAND:3
	CASE 1
		PRINTFORMW 「啊、稍等一下！ %CALLNAME:MASTER%！」
		PRINTFORMW 「今天准备了重要的礼物给%CALLNAME:MASTER%哦！」
	CASE 2
		PRINTFORMW 「今天准备了礼物给%CALLNAME:MASTER%哦！」
		PRINTFORMW 「登登登！」
	CASEELSE
		PRINTFORMW 「想起来了！ 今天还给%CALLNAME:MASTER%准备了礼物哦！」
		PRINTFORMW 「这个给你哦！」
	ENDSELECT
	PRINTL
	PRINTFORMDL 克劳恩皮斯将%GIFT_NAME%递到面前。
	PRINTW
	IF STRCOUNT(SENSE, "(疯狂な|地獄の|狂気の)")
		PRINTFORML 「怎样？ 是你喜欢的类型吧～！」
		PRINTFORMW 「因为对我来说是珍贵的物品哦っ❤」
	ELSEIF STRCOUNT(SENSE, "(可愛的|可怕的)")
		PRINTFORML 「怎样？ 很可爱吧～！」
		PRINTFORMW 「应该很适合%CALLNAME:MASTER%的哦ー」
	ELSE
		PRINTFORML 「怎样？不错的礼物吧～！」
		PRINTFORMW 「和%CALLNAME:MASTER%应该很搭哦～」
	ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日获得的礼物を大事にする（700点以上）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 2
	IF STRCOUNT(SENSE, "(地獄の|狂気の|疯狂な|骨|妖術)")
		CALL M_KOJO_COLOR_K111_HECA
		PRINTFORML 「皮斯、这是哪儿来的，超好看」
		PRINTW
		CALL M_KOJO_COLOR_K111
		PRINTFORML 「欸嘿嘿～♪ 是%CALLNAME:MASTER%为我买的～♪」
		PRINTW
		CALL M_KOJO_COLOR_K111_HECA
		IF TALENT:[[赫喀提亞]]:恋慕
			PRINTFORML 「哈啊～！ 不愧是%CALLNAME:MASTER%、品味不错哦♪」
		ELSEIF TALENT:[[赫喀提亞]]:思慕
			PRINTFORML 「嘿～、很棒的礼物诶，对他刮目相看了」
		ELSE
			PRINTFORML 「哼——、礼物还真是不错」
		ENDIF
	ELSEIF STRCOUNT(SENSE, "(活潑|洛麗塔|可愛的)")
		CALL M_KOJO_COLOR_K111
		PRINTFORML 「主人主人！快看这个！」
		PRINTW
		CALL M_KOJO_COLOR_K111_HECA
		PRINTFORML 「很棒啊这个，与皮斯很配哦♪」
		PRINTW
		CALL M_KOJO_COLOR_K111
		PRINTFORML 「欸嘿嘿～！ %CALLNAME:MASTER%帮我买的～♪」
		PRINTW
		CALL M_KOJO_COLOR_K111_HECA
		IF TALENT:[[赫喀提亞]]:恋慕
			PRINTFORML 「果然%CALLNAME:MASTER%还是非常重视与皮斯的感情的」
		ELSEIF TALENT:[[赫喀提亞]]:思慕
			PRINTFORML 「原来如此～。看来%CALLNAME:MASTER%把皮斯拿捏的很准嘛」
		ELSE
			PRINTFORML 「呼——能送这种礼物看来也并非乱七八糟的人ぇ」
		ENDIF
	ELSE
		CALL M_KOJO_COLOR_K111_HECA
		PRINTFORML 「咦，皮斯这是哪儿来的？」
		PRINTW
		CALL M_KOJO_COLOR_K111
		PRINTFORML 「呼呼呼，好东西哦、%CALLNAME:MASTER%为我买的♪」
		PRINTFORML 「啊っ！ 不让给主人哦！」
		PRINTW
		CALL M_KOJO_COLOR_K111_HECA
		IF TALENT:[[赫喀提亞]]:恋慕
			IF CFLAG:[[赫喀提亞]]:获得的礼物
				PRINTFORML 「呼呼ン♪ 我才不稀罕呢❤」
			ELSEIF CFLAG:[[赫喀提亞]]:礼物保管库
				PRINTFORML 「哼哼——我自己也有好东西捏」
				SIF GET_GIFTDATA(CFLAG:[[赫喀提亞]]:礼物保管库, "得点") < 400
					PRINTFORML （虽然是自己买的……）
			ELSE
				PRINTFORML 「呜呜…从来就不给我什么东西……我好可怜」
			ENDIF
		ELSEIF TALENT:[[赫喀提亞]]:思慕
			PRINTFORML 「还真是不客气啊」
		ELSE
			PRINTFORML 「我才不要你东西呢」
		ENDIF
	ENDIF
	PRINTFORML 「可别弄丢了哦，怪好看的这个」
	PRINTW
	CALL M_KOJO_COLOR_K111
	PRINTFORMW 「嗯！ 这可是我的宝物哦ー❤」
	CFLAG:[[克勞恩皮絲]]:1007 ++
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日获得的礼物をお気に入りにする（↑の大事にするから続き）（700点以上かつ最高得点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 3
	IF TALENT:[[克勞恩皮絲]]:恋人
		PRINTFORML 「想要不弄丢，果然还是应该一直一直带在身上吧――」
		PRINTFORMW 「就好像，%CALLNAME:MASTER%一直守护在我身边一样……」
	ELSEIF TALENT:[[克勞恩皮絲]]:恋慕
		PRINTFORML 「想要不弄丢，果然还是应该一直一直带在身上吧――」
		PRINTFORMW 「就好像，%CALLNAME:MASTER%一直陪在我身边一样……」
	ELSE
		PRINTFORML 「想要不弄丢，果然还是应该一直一直带在身上吧――」
	ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日获得的礼物をとりあえず保管する（400～699点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 4
	;たまに介入してくる
	IF !RAND:3
		CALL M_KOJO_COLOR_K111_JUNKO
		PRINTFORML 「诶，这是哪儿来的？」
		PRINTW
		CALL M_KOJO_COLOR_K111
		PRINTFORML 「啊！友人大人！、这是%CALLNAME:MASTER%给我买的哟ー！」
		PRINTW
		CALL M_KOJO_COLOR_K111_JUNKO
		IF TALENT:[[純狐]]:恋慕
			IF CFLAG:[[純狐]]:获得的礼物
				PRINTFORML 「诶……和我的比起来……」
			ELSEIF CFLAG:[[純狐]]:礼物保管库
				PRINTFORML 「哼……不止给我一个人送礼物啊……」
			ELSE
				;漢字で書くと誤解されそうなので平仮名で……
				PRINTFORML 「我倒也挺像要的……」
			ENDIF
		ELSEIF TALENT:[[純狐]]:思慕
			PRINTFORML 「%CALLNAME:MASTER%……原来如此」
		ELSE
			PRINTFORML 「挺不错的嘛」
		ENDIF
		PRINTFORML 「那你打算怎样呢？」
		PRINTW
		CALL M_KOJO_COLOR_K111
		PRINTFORMW 「总之先用来做装饰吧」
		PRINTL …
		PRINTL ………
		PRINTL ……………
		PRINTW
	ENDIF
	CALL M_KOJO_COLOR_K111
	SELECTCASE CFLAG:[[克勞恩皮絲]]:1007 % 5
	CASE 1
		PRINTFORMW 「就放这里吧」
	CASE 2
		PRINTFORMW 「就在这附近装饰一下吧」
	CASE 3
		PRINTFORMW 「就用来装饰这一块吧～」
	CASE 4
		PRINTFORMW 「嗯———放在哪里比较好呢……」
	CASEELSE
		PRINTFORML 「啊！ 之前买的都不知去哪儿了！」
		PRINTFORMW 「还是应该找个固定的地方存放这些」
	ENDSELECT
	IF CFLAG:[[克勞恩皮絲]]:1007 >= 3
		SELECTCASE CFLAG:[[克勞恩皮絲]]:1007 % 4
		CASE 1
			PRINTFORMW 「回过神来才发现已经买了那么多」
		CASE 2
			PRINTFORMW 「再放下去可能就不知道该放哪里了……」
		CASE 3
			PRINTFORMW 「嗯嗯，充实起来了♪」
		CASEELSE
			PRINTFORMW 「感觉很棒诶～♪」
		ENDSELECT
	ENDIF
	CFLAG:[[克勞恩皮絲]]:1007 ++
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日获得的礼物をこっそり質に入れる（400点未満）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 5
	CALL M_KOJO_COLOR_K111_HECA
	PRINTFORML 「皮斯、这东西哪儿来的？」
	PRINTW
	CALL M_KOJO_COLOR_K111
	PRINTFORML 「那个啊，%CALLNAME:MASTER%给我买的……」
	PRINTW
	CALL M_KOJO_COLOR_K111_HECA
	IF TALENT:[[赫喀提亞]]:恋慕
		IF CFLAG:[[赫喀提亞]]:礼物保管库
			PRINTFORML 「诶……よ、挺好的嘛……」
			PRINTFORML （幸亏不是给我买的～）
		ELSE
			PRINTFORML 「嘿ぇ……总觉得有点羡慕，但又不是非常羡慕的感觉……」
		ENDIF
	ELSEIF TALENT:[[赫喀提亞]]:思慕
		PRINTFORML 「阿拉拉……是怎样没趣的男人啊……」
	ELSE
		PRINTFORML 「阿拉拉…真是没品的男人……」
	ENDIF
	PRINTFORML 「既然给你买了，那就多珍视有些哦」
	PRINTW
	CALL M_KOJO_COLOR_K111
	PRINTFORML 「诶ー！？ 才不要！」
	PRINTFORMW 「对我来说根本没意义吧！」
	;地獄界の大手フリマサービス『シニガミ』は、処分品を効率よく、かつ迅速に市場に流せる便利なサービスなのだ。
	RETURN 1
ENDIF
RETURN 1

;==================================================
;斗虫
;斗虫の口上は少し特殊で、PRINTを使用のではなく、
;台詞一行のみをRESULTSに入れてください
;ムシの名前は %MUSHI_NAME% で表示できます
;ムシの名前の最長は亞歷珊卓皇后鳥翼蝶の全角14文字です
;文字数制限があります。はみ出ないように気をつけてください
;ARGは残りムシ数か順位です
;==================================================
@M_KOJO_MESSAGE_COM_K111_MUSHI_BATTLE(ARGS, ARG)
#DIM 残りムシ数
#DIM 順位
SELECTCASE ARGS
CASE "試合前"
	;-------------------------------------------------
	;角色セレクト時,ARGは使えません
	;全角50文字くらいまで
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「呼呼呼……会让你见识到地狱的哦」
	ENDIF
CASE "戦場に出した"
	;-------------------------------------------------
	;"【（角色）】は《（ムシ）》を戦場に出した！」"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「去吧っ！ %MUSHI_NAME%！」
	ENDIF
CASE "攻撃時"
	;-------------------------------------------------
	;"【（角色）】《（ムシ）》の『（攻撃名）』！」"の直前
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「干掉它ー！%MUSHI_NAME%！」
	ENDIF
CASE "倒れた時"
	;-------------------------------------------------
	;"【（角色）】《（ムシ）》は倒れた！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「啊っ！ 怎么会这样～」
	ENDIF
CASE "敗退時"
	;-------------------------------------------------
	;"【（角色）】敗退！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「呜呜，大家都已经无法再战斗下去了吗……可恶っ」
	ENDIF
CASE "タイマン：勝ち"
	;-------------------------------------------------
	;順位は1位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「想打败我还早了一百年呢！」
	ENDIF
CASE "タイマン：負け"
	;-------------------------------------------------
	;順位は2位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「没想到居然输了……」
	ENDIF
CASE "バトルロイヤル：優勝"
	;-------------------------------------------------
	;順位は1位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「弱过头了啦♪」
	ENDIF
CASE "バトルロイヤル：２位以下"
	;-------------------------------------------------
	;順位は2～4位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「可恶ー……」
	ENDIF
CASE "チーム戦：勝ち"
	;-------------------------------------------------
	;順位は1位（やられていても）
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「理所当然罢了！」
	ENDIF
CASE "チーム戦：負け"
	;-------------------------------------------------
	;順位は2位
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「诶ー！？ 为什么ー！？」
	ENDIF
ENDSELECT
SIF RESULTS != ""
	RETURN 1

;==================================================
;引力操作
;TCVAR:引力点に場所IDを入れるとその地点に引っ張られていきます
;場所IDと同じ拠点Mapでしか効果はありません（博麗神社の境内なら拠点が博麗神社のときだけ）
;条件を付けないと永久に引っ張られ继続ので注意
;RANDは基本的に使えません。CFLAG:今日の運勢にその日の随机数値（0～999）が入っているのでこれを使用と良いです
;==================================================
@M_KOJO_EVENT_K111_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]

path: ERB/口上・メッセージ関連/個人口上/【111】クラウンピース/M_KOJO_K111_イベント.ERB