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

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;
;TCVAR:[[琪斯美]]:351	被逆推たフラグ
;TCVAR:[[琪斯美]]:352	一日一回挨拶
;CFLAG:[[琪斯美]]:1001	びっくりさせられた
;CFLAG:[[琪斯美]]:1051～日記用
;CFLAG:[[琪斯美]]:1100	バージョン
;
;******************************************************************************
;■専用関数
;心情不快判定
@M_KOJO_K83_FUKIGEN(ARG)
#FUNCTION
SIF TALENT:ARG:心情 == -1
	RETURNF 1
SIF CFLAG:ARG:ブチギレ
	RETURNF 1
SIF MARK:ARG:反発刻印 >= 3
	RETURNF 1
RETURNF 0

;酔ってる判定
@M_KOJO_K83_YOIDORE(ARG)
#FUNCTION
SIF ALCOHOL_FACE(ARG) == "酔酒"
	RETURNF 1
SIF ALCOHOL_FACE(ARG) == "不省人事"
	RETURNF 1
RETURNF 0

;诶嘿嘿口上判定
@M_KOJO_K83_UFUFU(ARG)
#FUNCTION
SIF FLAG:時間停止
	RETURNF 0
SIF TALENT:ARG:恋人
	RETURNF 1
SIF TALENT:ARG:恋慕
	RETURNF 1
SIF TALENT:ARG:愛欲
	RETURNF 1
SIF TALENT:ARG:炮友 >= 2
	RETURNF 1
RETURNF 0

;随机台詞
@M_KOJO_K83_AUTO(ARGS)
#FUNCTIONS
SELECTCASE ARGS
CASE "単刺激"
	SELECTCASE RAND:17
	CASE 1
		RETURNF "あぁっ！"
	CASE 2
		RETURNF "あぅっ！"
	CASE 3
		RETURNF "あぐっ！"
	CASE 4
		RETURNF "あんっ！"
	CASE 5
		RETURNF "はぅっ！"
	CASE 6
		RETURNF "はぁっ！"
	CASE 7
		RETURNF "ひぁっ！"
	CASE 8
		RETURNF "ひぅっ！"
	CASE 9
		RETURNF "ひゃ…！"
	CASE 10
		RETURNF "ふぁ…！"
	CASE 11
		RETURNF "ふぇっ！"
	CASE 12
		RETURNF "ふゅ…！"
	CASE 13
		RETURNF "ふわぁっ！"
	CASE 14
		RETURNF "んぁっ！"
	CASE 15
		RETURNF "んくっ！"
	CASE 16
		RETURNF "んんっ！"
	CASEELSE
		RETURNF "ん…っ！"
	ENDSELECT
CASE "単刺激…！"
	SELECTCASE RAND:17
	CASE 1
		RETURNF "あぁっ…！"
	CASE 2
		RETURNF "あぅっ…！"
	CASE 3
		RETURNF "あぐっ…！"
	CASE 4
		RETURNF "あんっ…！"
	CASE 5
		RETURNF "はぅっ…！"
	CASE 6
		RETURNF "はぁっ…！"
	CASE 7
		RETURNF "ひぁっ…！"
	CASE 8
		RETURNF "ひぅっ…！"
	CASE 9
		RETURNF "ひゃ…！"
	CASE 10
		RETURNF "ふぁ…！"
	CASE 11
		RETURNF "ふぇっ…！"
	CASE 12
		RETURNF "ふゅ…！"
	CASE 13
		RETURNF "ふわぁっ…！"
	CASE 14
		RETURNF "んぁっ…！"
	CASE 15
		RETURNF "んくっ…！"
	CASE 16
		RETURNF "んんっ…！"
	CASEELSE
		RETURNF "ん…っ！"
	ENDSELECT
CASE "二連刺激"
	SELECTCASE RAND:14
	CASE 1
		RETURNF "あっ、あっ、"
	CASE 2
		RETURNF "あっ、あっ、"
	CASE 3
		RETURNF "あっ、あぁっ、"
	CASE 4
		RETURNF "あっ、いぅ、"
	CASE 5
		RETURNF "あっ、あぅ、"
	CASE 6
		RETURNF "あっ、んっ、"
	CASE 7
		RETURNF "はっ、あっ、"
	CASE 8
		RETURNF "はっ、うっ、"
	CASE 9
		RETURNF "んっ、あっ、"
	CASE 10
		RETURNF "んっ、あっあっ、"
	CASE 11
		RETURNF "んっ、あぁっ、"
	CASE 12
		RETURNF "んっ、んっ、"
	CASE 13
		RETURNF "んっ、んぁっ、"
	CASEELSE
		RETURNF "んっ、ふぇっ、"
	ENDSELECT
CASE "悲鳴：強"
	SELECTCASE RAND:2
	CASE 1
		RETURNF "ひゃぁっ！！"
	CASEELSE
		RETURNF "きゃぁっ！！"
	ENDSELECT
CASE "悲鳴：弱"
	SELECTCASE RAND:5
	CASE 1
		RETURNF "きゃっ！"
	CASE 2
		RETURNF "ひっ！"
	CASE 3
		RETURNF "ひうっ！"
	CASE 4
		RETURNF "んんっ！？"
	CASEELSE
		RETURNF "わっ！"
	ENDSELECT
CASE "被弾"
	SELECTCASE RAND:14
	CASE 1
		RETURNF "ひゃあっ！"
	CASE 2
		RETURNF "うわっ！"
	CASE 3
		RETURNF "いたっ！"
	CASE 4
		RETURNF "きゃっ！"
	CASE 5
		RETURNF "わわっ！"
	CASE 6
		RETURNF "ふぎゅっ！"
	CASE 7
		RETURNF "いてっ！"
	CASE 8
		RETURNF "あたっ！"
	CASE 9
		RETURNF "わっ！"
	CASE 10
		RETURNF "ひうっ！"
	CASE 11
		RETURNF "いてて……"
	CASE 12
		RETURNF "うー……"
	CASE 13
		RETURNF "くっ……"
	CASEELSE
		RETURNF "むむむ……"
	ENDSELECT
ENDSELECT

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

;口上存在判定です、けしてコメントアウトしないでください
RETURN 1

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

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

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

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

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

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

;### 口上色判定 ###################################
@M_KOJO_COLOR_K83
;ライムグリーン
SETCOLOR 0x32cd32

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K83
#DIM VERSION
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等の角色変数を使用場合、角色番号の指定が必要になります
VERSION = 119
CALL M_KOJO_COLOR_K83
IF !TALENT:[[琪斯美]]:無接吻経験 || EXP:[[琪斯美]]:接吻経験
	SIF FIRSTTIME("初吻", 0, [[琪斯美]])
		PRINTFORML ・このデータの琪斯美は接吻を経験済みです
ENDIF
RESETCOLOR
IF CFLAG:[[琪斯美]]:1100 == VERSION
	CALL M_KOJO_COLOR_K83
	PRINTFORML 最新版本(ver.{CFLAG:[[琪斯美]]:1100 / 100}.{CFLAG:[[琪斯美]]:1100 % 100})
	RESETCOLOR
ELSE
	IF TALENT:[[琪斯美]]:開朗／阴郁 != -1
		PRINTFORML 添加[阴郁]素质吗？
		PRINTL [1] - 好呀
		PRINTL [0] - 不行
		INPUT
		IF RESULT
			TALENT:[[琪斯美]]:開朗／阴郁 = -1
			CALL M_KOJO_COLOR_K83
			PRINTFORMW 「有那么阴沉吗……」
			RESETCOLOR
		ELSE
			PRINTFORMW 那就这样吧。
		ENDIF
	ENDIF
	IF TALENT:[[琪斯美]]:汚臭耐性 != 1
		PRINTFORML 添加[汚臭鈍感]素质吗？
		PRINTL [1] - 好呀
		PRINTL [0] - 不行
		INPUT
		IF RESULT
			TALENT:[[琪斯美]]:汚臭耐性 = 1
			CALL M_KOJO_COLOR_K83
			PRINTFORMW 「才、才不脏啊…！」
			RESETCOLOR
		ELSE
			PRINTFORMW 那就这样吧。
		ENDIF
	ENDIF
	IF TALENT:[[琪斯美]]:倒錯的 != 1
		PRINTFORML 添加[倒錯的]素质吗？
		PRINTL [1] - 好呀
		PRINTL [0] - 不行
		INPUT
		IF RESULT
			TALENT:[[琪斯美]]:倒錯的 = 1
			CALL M_KOJO_COLOR_K83
			PRINTFORMW 「那、那种事情……」
			RESETCOLOR
		ELSE
			PRINTFORMW 那就这样吧。
		ENDIF
	ENDIF
	IF RELATION:[[琪斯美]]:[[山女]] < 150
		PRINTFORML 要提高与山女、帕露西、勇仪的相性吗？
		PRINTL [1] - 好呀
		PRINTL [0] - 不行
		INPUT
		IF RESULT
			RELATION:[[琪斯美]]:[[山女]] = 150
			RELATION:[[琪斯美]]:[[帕露西]] = 120
			RELATION:[[琪斯美]]:[[勇儀]] = 120
			PRINTFORMW 上调了相性。
		ELSE
			PRINTFORMW 那就这样吧。
		ENDIF
	ENDIF
	CFLAG:[[琪斯美]]:1100 = VERSION
	CALL M_KOJO_COLOR_K83
	PRINTFORML UPDATE完成！(ver.{CFLAG:[[琪斯美]]:1100 / 100}.{CFLAG:[[琪斯美]]:1100 % 100})
	RESETCOLOR
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K83
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します

CLEARLINE 1
;地底
IF MAIN_MAP == 9 && AT_HOME([[琪斯美]])
	PRINTFORMDW 怎么在这种地方有个桶呢。
	PRINTFORMDW %CALLNAME:MASTER%觉得奇怪，就往里看了看。
	PRINTFORMDW 什…！ 桶里居然有个女孩子！
	PRINTL
	PRINTFORMW 「呀！？ 人、人类……？ 怎、怎么会在这里……？」
	PRINTL
	PRINTFORMDW %CALLNAME:MASTER%自我介绍了一番。
	PRINTL
	PRINTFORMW 「嗯……。这么说你也在地底生活……」
	PRINTFORML 「这、这里虽然比外面阴暗、
	PRINTFORMW 　但是大家都很自由自在……是个好地方……我是这么想的」
	PRINTFORMW 「那个……我、我是琪斯美……。是釣瓶落……」
	PRINTL
	PRINTFORMDL 她窝在桶里嘟嘟囔囔地，有点听不清她在说什么。
	PRINTFORMDW %CALLNAME:MASTER%说以后就是邻居啦，伸出了手。
	PRINTL
	PRINTFORMW 「…………请、请多关照……」
	PRINTL
	PRINTFORMDL 她一直盯着伸出的手，过了一小会，有点扭捏但又很快地伸出了小手来握手。
	PRINTFORMDW 看来是个容易害羞的家伙。
	CFLAG:[[琪斯美]]:1001 = 0
	;日記を書く
	CALL M_KOJO_DIARYSETTING_K83(36)
;其他
ELSE
	PRINTFORMDW 怎么在这种地方有个桶呢。
	PRINTFORMDL 要去康康吗？
	PRINTDL [1] - 康康
	PRINTDL [0] - 算了
	INPUT
	;是
	IF RESULT
		PRINTFORMDW 什…！ 桶里居然有个女孩子！
		PRINTL
		PRINTFORMW 「咿呀！？」
		PRINTFORMW 「对、对不起……。这是那个……习惯……」
		PRINTFORMW 「我、我是琪斯美……」
		PRINTFORMW 「那个、是、是釣瓶落、所以……那个……」
		PRINTL
		PRINTFORMDL ――是妖怪但并不是敌人的样子。
		PRINTFORMDW 之后%CALLNAME:MASTER%做了自我介绍。
		CFLAG:[[琪斯美]]:1001 = 0
		;日記を書く
		CALL M_KOJO_DIARYSETTING_K83(37)
	;否
	ELSE
		PRINTFORMDW 没什么好在意的，就这么想的瞬间、
		PRINTL
		PRINTFORMDL Duang！
		PRINTW
		PRINTFORMDW 的一下，背后被什么撞了一下。
		PRINTFORMDW 回头一看，一个女孩子倒在地上。
		PRINTFORMDW 「没事吧？」%CALLNAME:MASTER%俯下身这么问着。
		PRINTL
		PRINTFORMW 「呜……居然有巫女的护符……狡猾……」
		PRINTFORMW 「咿呀！？ 对、对不起……」
		PRINTFORMW 「我、我是琪斯美……」
		PRINTFORMW 「那个、是、是釣瓶落、所以……那个……」
		PRINTL
		PRINTFORMDL ――看来是想飞过来吓人一跳、结果被背后的护符弹開了的样子。
		PRINTFORMDW 虽然好像没见过那种东西……。
		PRINTL
		PRINTFORMW 「不、不会再这样了……」
		PRINTL
		PRINTFORMDW 琪斯美踉踉跄跄地走着，回到了桶里。
		;泣く
		TALENT:[[琪斯美]]:心情 = -1
		CFLAG:[[琪斯美]]:1001 = 1
		;日記を書く
		CALL M_KOJO_DIARYSETTING_K83(38)
	ENDIF
ENDIF
PRINTL

RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;约会帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K83_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTL
	PRINTFORMDW 约会归来的路上，琪斯美像往常一样窝在桶里在后面晃晃悠悠的飘着跟上来。
	IF TALENT:[[琪斯美]]:恋慕
		PRINTFORMDW 快要到达的时候，%CALLNAME:MASTER%的衣摆被轻轻拉了一下。
	ELSE
		PRINTFORMDW 快要到达的时候，%CALLNAME:MASTER%用力地戳了一下。
	ENDIF
	PRINTFORMDL 回头一看，琪斯美扭扭捏捏地笑着。
	PRINTW
	IF TALENT:[[琪斯美]]:恋慕
		PRINTFORMW 「那、那个、%CALLNAME:MASTER%……今天、我很開心……」
		PRINTFORMW 「所以呀、那个……有、有个礼物想给你……」
		PRINTFORMW 「%CALLNAME:MASTER%……闭一下眼睛……」
		PRINTW
		SETCOLOR 255, 100, 255
		PRINTFORML 啾…%UNICODE(0x2764)%
		CALL M_KOJO_COLOR_K83
		PRINTW
		PRINTFORMW 「对、对不起……这么突然……那个、我呀、只是……那个……」
		PRINTL
		PRINTFORMDL 琪斯美满脸通红不知所措，总之还是先摸摸头吧。
		PRINTW
		PRINTFORMW 「谢、谢谢……不过，这样一来……反过来了……\/\/\/」
		;フラグ用
		IF FIRSTTIME("初吻")
			PRINTFORMW （终、终于鼓起勇气了……。在%CALLNAME:MASTER%面前，我也能鼓起勇气了……！）
		ENDIF
		;日記を書く
		CALL M_KOJO_DIARYSETTING_K83(43)
	ELSE
		PRINTFORMW 「那、那个、%CALLNAME:MASTER%……今天、我很開心……」
		PRINTFORMW 「所以，那个……额……」
		PRINTFORMW 「谢、谢谢……下、下次一定会好好感谢你……」
		PRINTL
		PRINTFORMW （呜……。拿不出勇气……）
		TCVAR:[[琪斯美]]:中止接吻 = 1
		;日記を書く
		CALL M_KOJO_DIARYSETTING_K83(42)
	ENDIF
ENDIF
RETURN 1

;==================================================
;约会帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K83_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に接受かどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		;初回
		IF FIRSTTIME("告白")
			PRINTL
			PRINTFORMDW 约会归来的路上，琪斯美像往常一样窝在桶里在后面晃晃悠悠的飘着跟上来。
			PRINTFORMDW 快要到达的时候，%CALLNAME:MASTER%突然就从背后被抱住了。
			PRINTFORMDL 回过头去想问问怎么了，琪斯美把脸埋在背上一动不动。
			PRINTW
			;びっくりさせられた
			IF CFLAG:[[琪斯美]]:1001
				PRINTFORMW 「……第一次见面的时候也是这样呢……」
				PRINTL
				PRINTFORMDL ――那时被偶然贴在背上的护符救下了，并没有这样――
				PRINTW
			ELSE
				PRINTFORMW 「被吓到了吗……？ 嘻嘻，%CALLNAME:MASTER%的背，好温暖……」
			ENDIF
			PRINTFORMW 「我啊、以前就是这样把人类……捕获的」
			PRINTL
			PRINTFORMDL ……虽然话语含糊不清、但「捕获」的意思只有那个了吧。
			PRINTW
			PRINTFORMW 「对，我是妖怪……而且脾气也不好」
			PRINTFORMW 「所以，被封印在地底了……」
			PRINTL
			PRINTFORMDL 现在应该不一样了吧？这样想着，她好像听见了一样摇了摇头。
			PRINTW
			PRINTFORMW 「不，没有改变……妖怪的本质，不会改变」
			PRINTFORMW 「劫取人类的行为……那就是，我是我自己的证明……」
			PRINTFORMW 「……那种冲动是无法抑制的」
			PRINTL
			PRINTFORMDW 琪斯美到底想要说什么呢。
			PRINTFORMDL 难道要把自己――
			PRINTW
			PRINTFORMW 「呐、%CALLNAME:MASTER%……我喜欢你」
			PRINTFORMW 「所以……想和你，成、成为恋人……」
		;以降
		ELSE
			PRINTL
			PRINTFORMDW 约会归来的路上，琪斯美像往常一样窝在桶里在后面晃晃悠悠的飘着跟上来。
			PRINTFORMDW 快要到达的时候，突然被拉住了手臂。
			PRINTFORMDL ――看来琪斯美还没有放弃。
			PRINTW
			PRINTFORMW 「呐，%CALLNAME:MASTER%……为什么要和我一起玩呢……？」
			PRINTFORMW 「%CALLNAME:MASTER%到底是……怎么看待我的……？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;お断りしてない
		IF FIRSTTIME("返答")
			PRINTFORMDL ？？？
			PRINTFORMDL 虽然话题突然来了个180度大转弯让人又惊讶又困惑，%CALLNAME:MASTER%还是答应了她的告白。
			PRINTW
			PRINTFORMW 「真、真的吗？」
			PRINTFORMW 「我可是妖怪哦……就算那样也行吗？」
			PRINTDL [1] - 嗯
			PRINTDL [0] - 还是有点害怕
			INPUT
			;うん
			IF RESULT
				PRINTFORMW 「%CALLNAME:MASTER%真温柔啊……」
				PRINTFORMW 「好開心……。%CALLNAME:MASTER%的、各种各样都喜欢……」
				PRINTFORMW 「没关系，只要在%CALLNAME:MASTER%的身边，我就是为了%CALLNAME:MASTER%而存在的哟……」
			;稍微こわい
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%真是诚实呀……」
				PRINTFORMW 「……实际上，稍微有点害怕的样子，让我觉得很舒服呢……」
				PRINTFORMW 「也许就是%CALLNAME:MASTER%这样子，才让我喜欢得不得了……」
			ENDIF
			PRINTFORMW 「抱歉呀……想让你好好了解我……」
			PRINTFORMW 「不过，鼓起勇气说出来真的太好了……」
			PRINTFORMW 「诶嘿嘿……这么一来，就是恋、恋人了呢……」
		;お断りしたことある
		ELSE
			PRINTFORMW 「真、真的……？」
			PRINTFORMW 「好、好開心……！ 我、我不知道该怎么办了……呜……」
			PRINTFORMW 「一直很害怕……还以为你讨厌我了……」
			PRINTFORMW 「诶嘿嘿……这么一来，就是恋、恋人了呢……」
		ENDIF
		;日記を書く
		CALL M_KOJO_DIARYSETTING_K83(46)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;初めてのお断り
		IF FIRSTTIME("返答")
			PRINTFORMDL ？？？
			PRINTFORMDL 话题突然来了个180度大转弯让人又惊讶又困惑。
			PRINTW
			PRINTFORMW 「说、说的也是……。嗯，没关系。一般来说就是会这样吧……」
			PRINTFORMW 「对不起……我、我的事……想让你…了解……唔……呜……」
			;日記を書く
			CALL M_KOJO_DIARYSETTING_K83(45)
		;お断り二回目以降
		ELSE
			PRINTFORMW 「这样啊……」
			PRINTFORMW 「%CALLNAME:MASTER%……坏心眼……呜……呜呜……」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;约会帰り
;==================================================
@M_KOJO_SPEVENT_K83_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		;住宿
		IF MAIN_MAP == 9 || FLAG:住宿人物 == [[琪斯美]]
			IF TALENT:[[琪斯美]]:恋人
				PRINTFORML 「回来啦……」
				PRINTFORMW 「下次，还要一起出去玩哦……♪」
			ELSEIF TALENT:[[琪斯美]]:恋慕
				PRINTFORML 「回来啦……」
				PRINTFORMW 「下、下次，再一起去玩……哦……」
			ELSEIF TALENT:[[琪斯美]]:思慕
				;思慕で外部住宿は無いはず……！
				PRINTFORMW 「还是不习惯地面……」
			ELSE
				PRINTFORMW 「好、好累啊……」
			ENDIF
		ELSE
			IF TALENT:[[琪斯美]]:恋人
				PRINTFORMW 「下次，还要一起出去玩哦……♪」
			ELSEIF TALENT:[[琪斯美]]:恋慕
				PRINTFORMW 「下、下次，再一起去玩……哦……」
			ELSEIF TALENT:[[琪斯美]]:思慕
				PRINTFORMW 「跑来跑去的……不习惯啊……」
			ELSE
				PRINTFORMW 「好、好累啊……」
			ENDIF
		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_K83_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG == 1 || ARG == 2) && !TCVAR:[[琪斯美]]:352
		;バレンタイン心情補正（先に処理）
		SIF DAY:2 == 4 && DAY:3 == 14
			TALENT:[[琪斯美]]:心情 = MAX(TALENT:[[琪斯美]]:心情, 0)
		;萬聖節
		IF DAY:2 == 3 && DAY:3 == 30
			CALL M_KOJO_K83_ENCOUNT("萬聖節")
		;心情不快
		ELSEIF M_KOJO_K83_FUKIGEN([[琪斯美]])
			SIF !TCVAR:[[琪斯美]]:352
				PRINTFORMW 「你好……」
		ELSE
			CALL M_KOJO_K83_ENCOUNT("通常")
		ENDIF
		;バレンタイン巧克力
		SIF DAY:2 == 4 && DAY:3 == 14
			CALL M_KOJO_K83_ENCOUNT("バレンタイン")
		CALL M_KOJO_EVENT_K83_1_END
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------

	;統合しました

	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「咿呀！！ %CALLNAME:MASTER%……！」
		PRINTFORMW 「那个……这、这是……那个……」
		PRINTFORMW 「诶…？ 一、一起、洗……唔……」
		PRINTFORMW 「那、那么……不客气了……\/\/\/」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「%M_KOJO_K83_AUTO("悲鳴：強")% 对、对不起！！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「%M_KOJO_K83_AUTO("悲鳴：強")% 快、快出去！！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6 && !TCVAR:[[琪斯美]]:352
		;萬聖節
		IF DAY:2 == 3 && DAY:3 == 30
			CALL M_KOJO_K83_ENCOUNT("萬聖節")
		ELSE
			CALL M_KOJO_K83_ENCOUNT("通常")
			;バレンタイン
			SIF DAY:2 == 4 && DAY:3 == 14
				CALL M_KOJO_K83_ENCOUNT("バレンタイン")
		ENDIF
		CALL M_KOJO_EVENT_K83_1_END
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他角色と约会中に遭遇した
	;ARG:1に约会的对象
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7 && !TCVAR:[[琪斯美]]:352
		;萬聖節優先
		IF DAY:2 == 3 && DAY:3 == 30
			CALL M_KOJO_K83_ENCOUNT("萬聖節")
		ELSE
			IF TALENT:[[琪斯美]]:恋人
				PRINTFORMW 「诶？%CALLNAME:MASTER%……那个人是……」
				;泣く
				TALENT:[[琪斯美]]:心情 = -1
			ELSEIF TALENT:[[琪斯美]]:恋慕
				PRINTFORMW 「啊、%CALLNAME:MASTER%……你、你好……」
				;良くならない
				TALENT:[[琪斯美]]:心情 = MIN(TALENT:[[琪斯美]]:心情, 0)
			ELSEIF TALENT:[[琪斯美]]:思慕
				PRINTFORMW 「啊，%CALLNAME:MASTER%……」
				;良くならない
				TALENT:[[琪斯美]]:心情 = MIN(TALENT:[[琪斯美]]:心情, 0)
			ELSE
				PRINTFORMW 「啊！ 你、你好……」
			ENDIF
			;バレンタイン
			SIF DAY:2 == 4 && DAY:3 == 14
				CALL M_KOJO_K83_ENCOUNT("バレンタイン")
		ENDIF
		CALL M_KOJO_EVENT_K83_1_END
		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
;		;约会的对象無
;		IF !ARG:1
;			;萬聖節
;			IF DAY:2 == 3 && DAY:3 == 30
;				CALL M_KOJO_K83_ENCOUNT("萬聖節")
;			ELSE
;				CALL M_KOJO_K83_ENCOUNT("通常")
;				;バレンタイン
;				SIF DAY:2 == 4 && DAY:3 == 14
;					CALL M_KOJO_K83_ENCOUNT("バレンタイン")
;			ENDIF
;		;约会的对象あり
;		ELSE
;			;萬聖節優先
;			IF DAY:2 == 3 && DAY:3 == 30
;				CALL M_KOJO_K83_ENCOUNT("萬聖節")
;			ELSE
;				IF TALENT:[[琪斯美]]:恋人
;					PRINTFORMW 「诶？%CALLNAME:MASTER%……那个人是……」
;					;泣く
;					TALENT:[[琪斯美]]:心情 = -1
;				ELSEIF TALENT:[[琪斯美]]:恋慕
;					PRINTFORMW 「啊、%CALLNAME:MASTER%……你、你好……」
;					;良くならない
;					TALENT:[[琪斯美]]:心情 = MIN(TALENT:[[琪斯美]]:心情, 0)
;				ELSEIF TALENT:[[琪斯美]]:思慕
;					PRINTFORMW 「啊，%CALLNAME:MASTER%……」
;					;良くならない
;					TALENT:[[琪斯美]]:心情 = MIN(TALENT:[[琪斯美]]:心情, 0)
;				ELSE
;					PRINTFORMW 「啊！ 你、你好……」
;				ENDIF
;				;バレンタイン
;				SIF DAY:2 == 4 && DAY:3 == 14
;					CALL M_KOJO_K83_ENCOUNT("バレンタイン")
;			ENDIF
;		ENDIF
;		CALL M_KOJO_EVENT_K83_1_END
;		RETURN 1
;	ENDIF
ENDIF
RETURN 1
;==================================================
;遭遇挨拶
;==================================================
@M_KOJO_K83_ENCOUNT(ARGS)
SELECTCASE ARGS
CASE "萬聖節"
	;心情補正
	TALENT:[[琪斯美]]:心情 = MAX(TALENT:[[琪斯美]]:心情, 0)
	IF TALENT:[[琪斯美]]:恋慕
		PRINTFORMDW 怎么在这种地方有个杰克南瓜灯呢。
		PRINTFORMDL と思ったら中には琪斯美が！！
		PRINTW
		PRINTFORMW 「诶嘿嘿……吓一大跳了吧？」
		PRINTFORMW 「是拜托山女酱做的呢……♪」
	ELSE
		PRINTFORMDW 怎么在这种地方有个桶呢。
		PRINTFORMDL と思ったら中には琪斯美が！！
		PRINTW
		PRINTFORMW 「吓、吓了一跳吗……？」
		PRINTFORMW 「今天是恶作剧也没问题的节日呢……」
	ENDIF
CASE "バレンタイン"
	;心情補正
	TALENT:[[琪斯美]]:心情 = MAX(TALENT:[[琪斯美]]:心情, 0)
	SELECTCASE CFLAG:[[琪斯美]]:好感度
	CASE 1000 TO 3000
		;黑雷神巧克力
		PRINTFORMW 「这个……山女酱说要送给男人……」
	CASE 3001 TO 5000
		;巧克力
		PRINTFORMW 「这、这个……给你……」
	CASE IS > 5000
		IF EXP:[[琪斯美]]:愛情経験 < 100
			;高級巧克力
			PRINTFORMW 「这、这个……请收下……」
		ELSE
			;手制巧克力
			PRINTFORMW 「今、今天是情人节……那个……」
			PRINTFORMW 「我做了……巧、巧克力，希望%CALLNAME:MASTER%能尝尝……\/\/\/」
		ENDIF
	ENDSELECT
;通常
CASEELSE
	;地底 or 同じ拠点
	IF INRANGE(CFLAG:[[琪斯美]]:現在位置, 900, 1000) || CFLAG:MASTER:初期位置 / 100 == CFLAG:[[琪斯美]]:初期位置 / 100
		IF TALENT:[[琪斯美]]:恋人 || TALENT:[[琪斯美]]:恋慕
			PRINTFORML 「啊，%CALLNAME:MASTER%\@ TALENT:[[琪斯美]]:恋人 ? ！ # …… \@！」
			SELECTCASE RAND:6
			CASE 0
				PRINTFORMW 「一直想见到你呢……\/\/\/」
			CASE 1
				PRINTFORMW 「现在有空吗……？」
			CASE 2
				PRINTFORMW 「最、最近好像有点忙呢……」
			CASE 3
				PRINTFORMW 「……要来桶占卜吗？」
			CASE 4
				PRINTFORMW 「刚才和山女酱讨论了%CALLNAME:MASTER%的事呢……」
			CASEELSE
				PRINTFORMW 「那个……地底的天气一直很好呢……！」
			ENDSELECT
		ELSEIF TALENT:[[琪斯美]]:思慕
			PRINTFORMW 「啊，%CALLNAME:MASTER%……」
			PRINTFORMW 「那个，你、你好……」
		ELSE
			PRINTFORMW 「啊！ 你、你好……」
		ENDIF
	ELSE
		IF TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「啊，%CALLNAME:MASTER%っ！」
		ELSEIF TALENT:[[琪斯美]]:恋慕
			PRINTFORMW 「啊，%CALLNAME:MASTER%……！」
		ELSEIF TALENT:[[琪斯美]]:思慕
			PRINTFORMW 「啊，%CALLNAME:MASTER%……」
		ELSE
			PRINTFORMW 「啊！ 你、你好……」
		ENDIF
	ENDIF
ENDSELECT
;==================================================
;挨拶口上終了処理
;口上が表示されなくても処理されます
;==================================================
@M_KOJO_EVENT_K83_1_END
;一日一回
TCVAR:[[琪斯美]]:352 = 1
;恋慕で、心情不快ではなく、约会中ではなく、欲求不満が75%以上
IF TALENT:[[琪斯美]]:恋慕 && TALENT:[[琪斯美]]:心情 >= 0 && !FLAG:约会的对象 && CFLAG:[[琪斯美]]:积攒度 >= 750
	PRINTFORMDW 琪斯美脸颊绯红，扭扭捏捏的……
	SELECTCASE RAND:4
	CASE 1
		PRINTFORMW 「呐，%CALLNAME:MASTER%……今、今天一起那个……」
	CASE 2
		PRINTFORMW 「呐，%CALLNAME:MASTER%……两、两个人到哪里……」
	CASE 3
		PRINTFORMW 「那、那个，%CALLNAME:MASTER%……想要抱紧点……\/\/\/」
	CASEELSE
		PRINTFORMW 「呜……%CALLNAME:MASTER%……我、我……\/\/\/」
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K83_2(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時陪睡中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTL
			PRINTFORMW 「啊，%CALLNAME:MASTER%，早上好……」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTL
		PRINTFORMW 「啊，%CALLNAME:MASTER%，早上好……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or陪睡中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTL
			PRINTFORMW 「唔呜……姆呼……嗯……」
			PRINTFORMW 「早、早上好……%CALLNAME:MASTER%……」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTL
			PRINTFORMW 「唔呜……姆呼……嗯……」
			PRINTFORMW 「早、早上好……%CALLNAME:MASTER%……」
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K83_3(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に返回（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1 && CFLAG:[[琪斯美]]:诶嘿嘿
		;自室
		IF CFLAG:[[琪斯美]]:現在位置 == OMANEKIBEYA() || CFLAG:[[琪斯美]]:現在位置 == CFLAG:[[琪斯美]]:初期位置
			IF TALENT:[[琪斯美]]:恋慕
				PRINTFORML 「呼哇～……好困……」
				PRINTFORMW 「%CALLNAME:MASTER%，晚安……」
			ELSE
				PRINTFORMW 「呼哇～啊……困了……」
			ENDIF
		;それ以外
		ELSE
			PRINTFORML 「呼哇～……好困……」
			;同棲
			IF CFLAG:MASTER:初期位置 == CFLAG:[[琪斯美]]:初期位置
				PRINTFORMW 「我先睡了……晚安……」
			;地底
			ELSEIF MAIN_MAP == 9 || INRANGE(CFLAG:[[琪斯美]]:現在位置, 900, 1000)
				IF TALENT:[[琪斯美]]:恋慕
					PRINTFORMW 「%CALLNAME:MASTER%，晚安～…」
				ELSE
					PRINTFORMW 「晚安……」
				ENDIF
			ELSE
				IF TALENT:[[琪斯美]]:恋慕
					PRINTFORMW 「要回家了呢。%CALLNAME:MASTER%，晚安～…」
				ELSEIF TALENT:[[琪斯美]]:思慕
					PRINTFORMW 「该回去了。晚安……」
				ELSE
					PRINTFORMW 「要回去睡觉了……」
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「呼啊～…好困……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE RAND:3
		CASE 1
			PRINTFORMW 「呼……呼……」
		CASE 2
			PRINTFORMW 「嗯……呼……」
		CASEELSE
			PRINTFORMW 「呼啊……呼嘿嘿……」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;恶作剧中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
;	;-------------------------------------------------
;	;衰弱中（恋慕付き拠点内角色がMAIN_MAPで衰弱状態になった場合か、待客室で相手が衰弱した場合に発生
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 5
;		PRINTFORMW
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;MASTERがダウン（部屋まで運ばれる）
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 6
;		PRINTFORMW
;		RETURN 1
;	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで回来了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			PRINTFORMW 「要睡觉了……晚安……」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW 「要、要睡了……请出去……」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他角色とのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORMW 「…………出去」
			RETURN 1
		ENDIF
	ENDIF
;	;-------------------------------------------------
;	;非在住TARGETがMAIN_MAPで休憩
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 8
;		PRINTFORMW
;		RETURN 1
;	ENDIF
	;-------------------------------------------------
	;前のターンから一緒的房間にいる状態で相手が寝る（待客室含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF TALENT:[[琪斯美]]:恋慕
			PRINTFORML 「呼哇～……好困……」
			PRINTFORMW 「%CALLNAME:MASTER%，晚安……」
		ELSE
			PRINTFORMW 「呼哇～啊……睡了……」
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;
;;==================================================
;;移動時すれちがい
;;==================================================
;@M_KOJO_EVENT_K83_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_K83_5(ARG,ARG:1)
;口上主はTARGET
;ARGに入ってきた角色（人数が膨大なので、自己把握自己責任で
;--------------------------------------------------
;記入チェック（=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
	;-------------------------------------------------
	;勇儀が入ってきた
	;記入チェック（=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
	;-------------------------------------------------
	;阿燐が入ってきた
	;記入チェック（=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
	;-------------------------------------------------
	;恋が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == [[恋]]
		PRINTFORMW 「啊，恋恋……你、你好……」
		RETURN 1
	ENDIF
	;其他（角色指定無
	PRINTFORML 「啊……有人来了……」
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K83_6(ARG,ARG:1)
;口上主はTARGET
;ARGに情事相手
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（亲热度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「%M_KOJO_K83_AUTO("悲鳴：強")%！」
		IF TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「%CALLNAME:MASTER%……好过分……呜……呜呜……」
			;泣く
			TALENT:[[琪斯美]]:心情 = -1
		ELSEIF TALENT:[[琪斯美]]:恋慕
			PRINTFORMW 「怎么这样……%CALLNAME:MASTER%……呜……呜呜……」
			;泣く
			TALENT:[[琪斯美]]:心情 = -1
		ELSE
			PRINTFORMW 「对……对、对对对不起……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（亲热度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML 「啊……！」
		IF TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「不、不行…！ %CALLNAME:MASTER%是属于我的……！！」
		ELSEIF TALENT:[[琪斯美]]:恋慕
			PRINTFORMW 「%CALLNAME:MASTER%……我也……拜托了……」
		ELSE
			PRINTFORMW 「%CALLNAME:MASTER%……真狡猾……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML 「%M_KOJO_K83_AUTO("悲鳴：強")%！」
		IF TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「%CALLNAME:MASTER%……好过分……呜……呜呜……」
			;泣く
			TALENT:[[琪斯美]]:心情 = -1
		ELSEIF TALENT:[[琪斯美]]:恋慕
			PRINTFORMW 「怎么这样……%CALLNAME:MASTER%……呜……呜呜……」
			;泣く
			TALENT:[[琪斯美]]:心情 = -1
		ELSE
			PRINTFORMW 「对……对、对对对不起……」
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K83_7(ARG,ARG:1)
;口上主はTARGET
;ARGに目撃者
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の亲热度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「被、被看见了呢……\/\/\/」
		ELSEIF TALENT:[[琪斯美]]:恋慕
			PRINTFORMW 「怎、怎么办啊……被看到了……」
		ELSE
			PRINTFORMW 「怎、怎么办啊……被看到了……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の亲热度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「诶……怎、怎么这样……既、既然%CALLNAME:MASTER%都这么说了……」
		ELSEIF TALENT:[[琪斯美]]:恋慕
			PRINTFORMW 「诶……这、既、既然%CALLNAME:MASTER%都这么说了……」
		ELSE
			PRINTFORMW 「诶……嗯……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「被、被看见了呢……\/\/\/」
		ELSEIF TALENT:[[琪斯美]]:恋慕
			PRINTFORMW 「怎、怎么办啊……被看到了……」
		ELSE
			PRINTFORMW 「怎、怎么办啊……被看到了……」
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;
;;==================================================
;;目撃した情事を問い詰める（現在無し
;;==================================================
;@M_KOJO_EVENT_K83_8(ARG,ARG:1)
;RETURN 1

;==================================================
;胖次没収された
;==================================================
@M_KOJO_EVENT_K83_9(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		;初回
		IF FIRSTTIME("胖次没収")
			IF TALENT:[[琪斯美]]:恋人
				PRINTFORMW 「%CALLNAME:MASTER%，这是遗失物哟……」
				PRINTFORML 「那、那个……虽然我这么说……」
				PRINTFORMW 「我认为奇怪的癖好戒掉比较好……」
				PRINTFORMW 「如、如果是我的的话……那、那个……\/\/\/」
			ELSEIF TALENT:[[琪斯美]]:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%，遗失物……」
				PRINTFORMW 「那、那个……%CALLNAME:MASTER%は……有这种癖好吗……？」
			ELSEIF TALENT:[[琪斯美]]:思慕
				PRINTFORMW 「%CALLNAME:MASTER%，遗失物……」
				PRINTFORMW 「那、那个……做、做这种事的话……可能会受惩罚哦……」
			ELSE
				PRINTFORMW 「啊，遗失物……噫！！」
				PRINTFORMW 「…………变态」
			ENDIF
		ELSE
			IF TALENT:[[琪斯美]]:恋人
				PRINTFORMW 「%CALLNAME:MASTER%……还没戒掉奇怪的癖好啊……」
				PRINTFORMW 「我也有收集骨头什么的……但并不是别人的财产……」
				PRINTFORMW 「我认为%CALLNAME:MASTER%做的事……是、是犯罪……」
			ELSEIF TALENT:[[琪斯美]]:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%……果然有奇怪的癖好啊……」
				PRINTFORMW 「我也有收集骨头什么的……但不会对别人造成困扰……」
			ELSEIF TALENT:[[琪斯美]]:思慕
				PRINTFORMW 「%CALLNAME:MASTER%……果然有奇怪的癖好啊……」
				PRINTFORMW 「觉桑知道的话……大概……会杀了你」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%真是……恶俗的人」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;推倒た
;==================================================
@M_KOJO_EVENT_K83_10(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;诶嘿嘿==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを推倒た（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF TALENT:[[琪斯美]]:恋人
				SELECTCASE RAND:5
				CASE 1
					PRINTFORML 「呵呵……%CALLNAME:MASTER%……」
					CALL HPH_PRINT(@"「来H吧……HPH」", "W")
				CASE 2
					PRINTFORML 「%CALLNAME:MASTER%……喜欢……」
					CALL HPH_PRINT(@"「来一起舒舒服服的吧……HPH」", "W")
				CASE 3
					PRINTFORML 「%CALLNAME:MASTER%……已经不行了……」
					CALL HPH_PRINT(@"「拜托了，抱抱我……HPH」", "W")
				CASE 4
					PRINTFORML 「哈、哈……%CALLNAME:MASTER%……」
					CALL HPH_PRINT(@"「%CALLNAME:MASTER%……超喜欢你……HPH」", "W")
				CASEELSE
					PRINTFORML 「抱歉，%CALLNAME:MASTER%……」
					CALL HPH_PRINT(@"「再也忍耐不了了……HPH」", "W")
				ENDSELECT
			ELSEIF TALENT:[[琪斯美]]:恋慕
				SELECTCASE RAND:5
				CASE 1
					PRINTFORML 「呵呵……%CALLNAME:MASTER%……」
					CALL HPH_PRINT(@"「此时此刻，你属于我……HPH」", "W")
				CASE 2
					PRINTFORML 「%CALLNAME:MASTER%……喜欢……」
					CALL HPH_PRINT(@"「放轻松，会让你舒舒服服的……HPH」", "W")
				CASE 3
					PRINTFORML 「%CALLNAME:MASTER%……已经不行了……」
					CALL HPH_PRINT(@"「身体再靠过来一点……HPH」", "W")
				CASE 4
					PRINTFORML 「哈、哈……%CALLNAME:MASTER%……」
					CALL HPH_PRINT(@"「都是%CALLNAME:MASTER%不好哟……HPH」", "W")
				CASEELSE
					PRINTFORML 「抱歉，%CALLNAME:MASTER%……」
					CALL HPH_PRINT(@"「已经忍不住了……HPH」", "W")
				ENDSELECT
			ELSE
				PRINTFORML 「抱歉，%CALLNAME:MASTER%……」
				PRINTFORMW 「已经忍不住了……！」
			ENDIF
			TCVAR:[[琪斯美]]:351 = 1
			RETURN 1
		ENDIF
;		;-------------------------------------------------
;		;MASTERに抱きついた（開始時）
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 1
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		PRINTFORML
;		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF TALENT:[[琪斯美]]:恋人
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「唔……可惜……」
				CASE 2
					PRINTFORMW 「嗯……知道了……我会忍耐的……」
				CASEELSE
					PRINTFORMW 「唔——……那下次吧……」
				ENDSELECT
			ELSEIF TALENT:[[琪斯美]]:恋慕
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「唔……知、知道了……抱歉……」
				CASE 2
					PRINTFORMW 「抱、抱歉……有点过头了……」
				CASEELSE
					PRINTFORMW 「姆……还、还想再抱一会……」
				ENDSELECT
			ELSE
				PRINTFORMW 「对、对不起……」
			ENDIF
			TCVAR:[[琪斯美]]:351 = 0
			RETURN 1
		ENDIF
		;-------------------------------------------------
;		;抱き着きモード満足終了
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 1
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;抱き着きモード強制終了
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 2
;			PRINTFORML
;			RETURN 1
;		ENDIF
	ENDIF
	;-------------------------------------------------
	;摆脱失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;随便状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:[[琪斯美]]:恋人
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「可惜……不会让%CALLNAME:MASTER%逃掉的哦……」
				CASE 2
					PRINTFORMW 「现在太晚了哦……%CALLNAME:MASTER%已经是我的了」
				CASEELSE
					PRINTFORMW 「已经说过要随心所欲了……」
				ENDSELECT
			ELSEIF TALENT:[[琪斯美]]:恋慕
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「%CALLNAME:MASTER%……放弃吧……」
				CASE 2
					PRINTFORMW 「没用的哦……%CALLNAME:MASTER%……」
				CASEELSE
					PRINTFORMW 「嗯姆，不能逃……」
				ENDSELECT
			ELSE
				PRINTFORMW 「呵呵，放弃吧……」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF TALENT:[[琪斯美]]:恋人
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「还没完！」
				CASE 2
					PRINTFORMW 「别跑……来继续……」
				CASEELSE
					PRINTFORMW 「可惜……现在是我比较强……」
				ENDSELECT
			ELSEIF TALENT:[[琪斯美]]:恋慕
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「不行……！ 不能逃……」
				CASE 2
					PRINTFORMW 「就一小会儿……拜托了…！」
				CASEELSE
					PRINTFORMW 「就再做一会儿…！」
				ENDSELECT
			ELSE
				PRINTFORMW 「不行……」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_EVENT_K83_11(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「%M_KOJO_K83_AUTO("悲鳴：強")%！！」
		PRINTFORMW 「快出去！！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「咿呀？！」
		PRINTFORMW 「唔……%CALLNAME:MASTER%……要、要一起吗？」
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K83_12(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（憤怒）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「唔呜……快出去……！」
		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 「呼……呼……」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG:1 == 2 || ARG:1 == 3)
		PRINTFORMW 「唔呜……！」
		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 = 1
	;-------------------------------------------------

	;統合しました

	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG:1 == 4 || ARG:1 == 5)
		PRINTFORMW 「唔呜……！」
		SELECTCASE RAND:3
		CASE 1
			PRINTFORMW 「是、是谁……！？」
		CASE 2
			PRINTFORMW 「什、什么……！？」
		CASEELSE
			PRINTFORMW 「等下……！ 快、快出去……」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------

	;統合しました

	;其他
	PRINTFORML
ENDIF
RETURN 1
;
;;==================================================
;;お仕事中
;;==================================================
;@M_KOJO_EVENT_K83_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_K83_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		;一緒に作った
		IF DISH_ASSI == [[琪斯美]]
			PRINTFORML 「你不吃的话我就不客气啦……！」
		;作ってない
		ELSE
			PRINTFORML 「肚、肚子饿了……！」
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;MASTERが推倒た
;==================================================
@M_KOJO_EVENT_K83_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:時間停止
		ELSEIF M_KOJO_K83_UFUFU([[琪斯美]])
			IF CFLAG:[[琪斯美]]:积攒度 < 200
				PRINTFORMW 「哈、哈……有点累……」
			ELSEIF CFLAG:[[琪斯美]]:积攒度 < 500
				PRINTFORMW 「哈、哈、已、已经结束了吗……？」
			ELSEIF CFLAG:[[琪斯美]]:积攒度 < 800
				PRINTFORMW 「哈、哈、还、还没……满足呢……」
			ELSE
				PRINTFORMW 「结、结束了……？ 没、没满足……呜」
			ENDIF
		ELSE
			IF CFLAG:[[琪斯美]]:积攒度 < 200
				PRINTFORMW 「哈、哈、呼…………」
			ELSEIF CFLAG:[[琪斯美]]:积攒度 < 500
				PRINTFORMW 「哈、哈、哈、哈…………」
			ELSEIF CFLAG:[[琪斯美]]:积攒度 < 800
				PRINTFORMW 「哈、哈、还、还没……唔……」
			ELSE
				PRINTFORMW 「结……结束了吗……唔……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
;	;-------------------------------------------------
;	;事後描写
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 3
;		;-------------------------------------------------
;		;精液が垂れてきた
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 1
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;愛液が垂れてきた
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 2
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;事後の情緒
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 3
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;服を着る
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 4
;			PRINTFORML
;			RETURN 1
;		ENDIF
;	ENDIF
ENDIF
RETURN 1
;
;;==================================================
;;陪睡
;;==================================================
;@M_KOJO_EVENT_K83_16(ARG,ARG:1)
;;口上主はTARGET
;;--------------------------------------------------
;;記入チェック（=0, 非表示、1, 表示）
;LOCAL = 0
;;-------------
;
;IF LOCAL
;	;-------------------------------------------------
;	;小分岐
;	;-------------------------------------------------
;	;添い寝を始めた（開始時）(存在せず
;	;記入チェック
;	;LOCAL:1 = 0
;	;-------------------------------------------------
;	;IF LOCAL:1 && ARG == 1
;		;PRINTFORML
;		;RETURN 1
;	;ENDIF
;	;-------------------------------------------------
;	;添い寝を終了した（終了時）
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 2
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;其他
;	PRINTFORML
;ENDIF
;RETURN 1
;;==================================================
;;時止め終了時
;;==================================================
;@M_KOJO_EVENT_K83_17(ARG,ARG:1)
;;口上主はTARGET
;;排他と明記されていないモノは状況によっては連続で表示されるので注意
;;ARGに射精状況
;;ARG:1に射精状態
;;--------------------------------------------------
;;記入チェック（=0, 非表示、1, 表示）
;LOCAL = 0
;;-------------
;
;IF LOCAL
;	;-------------------------------------------------
;	;小分岐
;	;-------------------------------------------------
;	;ARG=1～3は排他
;	;謎の快感
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 1
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;絶頂
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 2
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;胖次紛失
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 3
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;【無自覚口内射精】
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 4
;		;精液中毒低精飲
;		IF ARG:1 == 1
;		;精液中毒低吐き出し
;		ELSEIF ARG:1 == 2
;		;精液中毒低手で覆う
;		ELSEIF ARG:1 == 3
;		;精液中毒高精飲
;		ELSEIF ARG:1 == 4
;		;濃厚精液＆精液中毒低吐き出し
;		ELSEIF ARG:1 == 5
;		;濃厚精液＆精液中毒高精飲
;		ELSEIF ARG:1 == 6
;		ENDIF
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;【無自覚顔面射精】
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 5
;		;無知持ち＆精液経験100未満
;		IF ARG:1 == 1
;		;通常ぬぐい取り
;		ELSEIF ARG:1 == 2
;		;顔射精液舐めとり
;		ELSEIF ARG:1 == 3
;		ENDIF
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;【無自覚手淫射精】
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 6
;		;ぬぐい取り
;		IF ARG:1 == 1
;		;舐めとり
;		ELSEIF ARG:1 == 2
;		ENDIF
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;【無自覚肛門射精】
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 7
;		;Ａ感覚2以下
;		IF ARG:1 == 1
;		;ソレ以外
;		ELSEIF ARG:1 == 2
;		ENDIF
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;【無自覚処女喪失】
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 8
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;【無自覚膣内射精】
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 9
;		;非処女膣内射精口服避孕薬無
;		IF ARG:1 == 1
;		;非処女膣内射精口服避孕薬あり
;		ELSEIF ARG:1 == 2
;		;処女膣内射精
;		ELSEIF ARG:1 == 3
;		ENDIF
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;時間停止解除共通
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 0
;		RETURN 1
;	ENDIF
;ENDIF
;RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K83_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:[[琪斯美]]:恋慕 || TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「抱、抱歉……还是……害怕……」
		ELSE
			PRINTFORMW 「诶……那、那个……还、还没……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:[[琪斯美]]:恋慕 || TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「对不起……抱歉……」
		ELSE
			PRINTFORMW 「抱、抱歉……谢谢你……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:[[琪斯美]]:恋慕 || TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「不、不要……拜托了……唔……」
		ELSE
			PRINTFORMW 「不行……！ 不可以……唔……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF TALENT:[[琪斯美]]:恋慕 || TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「既、既然都那么说了……」
		ELSE
			PRINTFORMW 「好、好吧……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:[[琪斯美]]:恋慕 || TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「明、明白了……既然%CALLNAME:MASTER%想这样的话……可以哦」
		ELSE
			PRINTFORMW 「唔……好、好吧…………」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;;==================================================
;;神社暮らしを承認して貰う
;;==================================================
;@M_KOJO_EVENT_K83_19(ARG,ARG:1)
;;口上主はARG
;;--------------------------------------------------
;;記入チェック（=0, 非表示、1, 表示）
;LOCAL = 0
;IF LOCAL
;	;-------------------------------------------------
;	;小分岐
;	;-------------------------------------------------
;	;認められる
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 1
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;認められない
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 2
;		PRINTFORML
;		RETURN 1
;	ENDIF
;ENDIF
;RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K83_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:[[琪斯美]]:恋人
			PRINTFORMW 「啊……已经很晚了……回见哦，%CALLNAME:MASTER%……」
		ELSEIF TALENT:[[琪斯美]]:恋慕
			PRINTFORMW 「已经很晚了……再见，%CALLNAME:MASTER%」
		ELSEIF TALENT:[[琪斯美]]:思慕
			PRINTFORMW 「呜哇……再见」
		ELSE
			PRINTFORMW 「困了……先回去了……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;约会中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;自室诶嘿嘿中
		IF CFLAG:[[琪斯美]]:現在位置 == OMANEKIBEYA()
			IF TALENT:[[琪斯美]]:恋人
				PRINTFORMW 「唔啊……抱、抱歉，%CALLNAME:MASTER%……我……」
			ELSEIF TALENT:[[琪斯美]]:恋慕
				PRINTFORMW 「唔啊……%CALLNAME:MASTER%……我……要……」
			;普通恋慕じゃないと入れないけど
			ELSE
				PRINTFORMW 「呼哇……困……困了……」
			ENDIF
		;以外
		ELSE
			IF TALENT:[[琪斯美]]:恋人
				PRINTFORMW 「抱歉，要回家了……回见哦，%CALLNAME:MASTER%……」
			ELSEIF TALENT:[[琪斯美]]:恋慕
				PRINTFORMW 「啊，要回家了……回见哦，%CALLNAME:MASTER%……」
			ELSEIF TALENT:[[琪斯美]]:思慕
				PRINTFORMW 「呼哇……差不多要回去了……」
			ELSE
				PRINTFORMW 「困得要睡着了……先回去了……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;自室
		IF CFLAG:[[琪斯美]]:現在位置 == OMANEKIBEYA()
			IF TALENT:[[琪斯美]]:恋人
				PRINTFORMW 「唔啊……抱、抱歉，%CALLNAME:MASTER%……我……」
			ELSEIF TALENT:[[琪斯美]]:恋慕
				PRINTFORMW 「%CALLNAME:MASTER%……我要……」
			;普通恋慕じゃないと入れないけど
			ELSE
				PRINTFORMW 「啊……这个点了……」
			ENDIF
		ELSE
			IF TALENT:[[琪斯美]]:恋人
				PRINTFORMW 「今天很開心……下次再约会吧…♪」
			ELSEIF TALENT:[[琪斯美]]:恋慕
				PRINTFORMW 「今天很開心……下、下次再一起玩吧……」
			ELSEIF TALENT:[[琪斯美]]:思慕
				PRINTFORMW 「今天很開心……再见哦……」
			ELSE
				PRINTFORMW 「要目送我吗……？ 谢、谢谢……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K83_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「终、终于注意到了……」
		PRINTFORMW 「我，对%CALLNAME:MASTER%……」
		PRINTL
		PRINTFORMDL 琪斯美满脸通红地窝在桶里。
		PRINTW
		PRINTFORMW 「这、这就是恋爱的感觉啊……」
		PRINTFORMW 「怎么办啊……这样不就没办法好好看着他的脸了吗……」
		PRINTFORMW 「会被认为是奇怪的孩子吧……呜哇……」
		PRINTL
		PRINTFORMDW 桶嘎啦嘎啦地晃着，那份动摇就算在外面也看得一目了然。
		PRINTFORMDW 恋爱了也是釣瓶落。
		PRINTFORMDL 幽暗的地底，琪斯美挂在井中沉思着――
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「%CALLNAME:MASTER%……为什么要搭理我这样的家伙呢……」
		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
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K83_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
;		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
;		;無知消去イベントあり（表示は一度だけ
;		IF LOCAL:1 >= 25
;		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
;		[SKIPSTART]
;		ELSEIF LOCAL:1 >= 20
;		ELSEIF LOCAL:1 >= 15
;		ELSEIF LOCAL:1 >= 10
;		ELSEIF LOCAL:1 >= 5
;		[SKIPEND]
;		ELSE
;		ENDIF
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;陥落素質あり自慰中毒高め
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 5
;		;-------------------------------------------------
;		;Ｃ敏感orＣ感覚10以上
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 1
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;Ｖ敏感orＶ感覚10以上
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 2
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;Ａ敏感orＡ感覚10以上
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 3
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;Ｂ敏感orＢ感覚10以上
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 4
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;部位指定無し
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 5
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;其他
;		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;自慰中毒高め
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 6
;		;-------------------------------------------------
;		;尻穴膣腔同時
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 1
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;-------------------------------------------------
;		;膣腔のみ
;		;記入チェック（=0, 非表示、1, 表示）
;		LOCAL:1 = 0
;		;-------------------------------------------------
;		IF LOCAL:1 && ARG:1 == 2
;			PRINTFORML
;			RETURN 1
;		ENDIF
;		;其他
;		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
;		PRINTFORML
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;我慢
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 7
;		PRINTFORML
;		RETURN 1
;	ENDIF
	;其他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	;我慢
	IF ARG == 7
		PRINTFORML 「哈、哈……身体好热……」
		CALL HPH_PRINT(@"「%CALLNAME:MASTER%……再等等吧……HPH」", "L")
	;同室
	ELSEIF ARG == 2
		PRINTFORML 「%CALLNAME:MASTER%，睡着了吗……？」
		PRINTFORML 「………………」
		PRINTL
		PRINTFORML 「%M_KOJO_K83_AUTO("単刺激…！")% ……哈啊……」
		PRINTFORML 「%CALLNAME:MASTER%……%CALLNAME:MASTER%……%M_KOJO_K83_AUTO("単刺激…！")%」
	;恋慕
	ELSEIF TALENT:[[琪斯美]]:恋慕
		PRINTFORML 「哈、啊……%CALLNAME:MASTER%……%M_KOJO_K83_AUTO("単刺激…！")%」
		IF TALENT:[[琪斯美]]:恋人 && !RAND:5
			PRINTFORML 「今天要舒舒服服的……%M_KOJO_K83_AUTO("単刺激…！")%」
			PRINTFORML 「啊、不行、%M_KOJO_K83_AUTO("二連刺激")%%M_KOJO_K83_AUTO("単刺激…！")%」
			PRINTFORML 「呼……再来……%M_KOJO_K83_AUTO("単刺激…！")%」
		ELSE
			SELECTCASE RAND:5
			CASE 1
				PRINTFORML 「很、很温柔呢……%M_KOJO_K83_AUTO("単刺激…！")%」
				PRINTFORML 「%CALLNAME:MASTER%……喜欢……%M_KOJO_K83_AUTO("単刺激")% %M_KOJO_K83_AUTO("二連刺激")%%M_KOJO_K83_AUTO("単刺激…！")%」
			CASE 2
				PRINTFORML 「啊啊、不行、不要！ %M_KOJO_K83_AUTO("二連刺激")%%M_KOJO_K83_AUTO("単刺激…！")%」
			CASE 3
				PRINTFORML 「%CALLNAME:MASTER%……想要……%M_KOJO_K83_AUTO("単刺激…！")%」
				PRINTFORML 「不行、再来……%M_KOJO_K83_AUTO("二連刺激")%%M_KOJO_K83_AUTO("単刺激…！")%」
			CASE 4
				PRINTFORML 「要……舒舒服服……%M_KOJO_K83_AUTO("単刺激…！")%」
				PRINTFORML 「哈、哈啊……啊！ %M_KOJO_K83_AUTO("単刺激…！")%」
			CASEELSE
				PRINTFORML 「啊嗯……%CALLNAME:MASTER%……%M_KOJO_K83_AUTO("単刺激…！")%」
				PRINTFORML 「%CALLNAME:MASTER%……呜……」
			ENDSELECT
		ENDIF
	;思慕
	ELSEIF TALENT:[[琪斯美]]:思慕
		PRINTFORML 「啊嗯……%CALLNAME:MASTER%……%M_KOJO_K83_AUTO("単刺激…！")%」
		PRINTFORML 「讨、讨厌……我居然……」
	;通常
	ELSE
		PRINTFORML 「…%M_KOJO_K83_AUTO("単刺激…！")%」
	ENDIF
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K83_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		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_K83_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:[[琪斯美]]:兒童人数
			PRINTFORMW 「唔……为什么身、身体……」
			PRINTFORMW 「啊，这一定是……！」
			PRINTL
			PRINTFORMDL 琪斯美去了%CALLNAME:MASTER%那里――
			PRINTW
			PRINTFORMW 「%CALLNAME:MASTER%，那个……」
			CALL HPH_PRINT(@"「我……又怀上了……HPH」", "W")
			PRINTFORMW 「诶嘿嘿……再来一起带孩子吧……！」
		ELSE
			PRINTFORMW 「唔……为什么身、身体……」
			PRINTFORMW 「这、这难道……！」
			PRINTL
			PRINTFORMDL 琪斯美去了%CALLNAME:MASTER%那里――
			PRINTW
			PRINTFORMW 「%CALLNAME:MASTER%，那、那个啊……那个……」
			CALL HPH_PRINT(@"「我、我怀上了……HPH」", "W")
			PRINTL
			PRINTFORMDL 琪斯美娇小的身躯微微颤抖，%CALLNAME:MASTER%温柔的抱住了她。
			PRINTW
			PRINTFORMW 「诶嘿嘿……没问题，我……会加油的……！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「唔……为什么身、身体……」
		PRINTFORMW 「这、这难道……！」
		PRINTL
		PRINTFORMDL 琪斯美去了%CALLNAME:MASTER%那里――
		PRINTW
		PRINTFORMW 「%CALLNAME:MASTER%，那、那个……那个……」
		PRINTFORMW 「这、这个……怀、怀上了……」
		PRINTL
		PRINTFORMDL 琪斯美娇小的身躯微微颤抖，%CALLNAME:MASTER%摸了摸她的头。
		PRINTW
		PRINTFORMW 「%CALLNAME:MASTER%…………我、我会加油的……！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「唔……为什么身、身体……」
		PRINTFORMW 「这、这难道……！」
		PRINTL
		PRINTFORMDL 琪斯美去了%CALLNAME:MASTER%那里――
		PRINTW
		PRINTFORMW 「那、那个……那个……」
		PRINTFORMW 「这、这里……」
		PRINTL
		PRINTFORMDL 琪斯美指了指自己微微隆起的肚子。
		PRINTW
		PRINTFORMW 「我会……养的……再见……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「唔……为什么身、身体……」
		PRINTFORMW 「这、这是怎么回事……！ 为、为什么……！」
		PRINTFORMW 「呜哇啊啊啊啊啊！！！」
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K83_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の兒童か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「哈、哈啊……哈啊啊……」
		PRINTFORMW 「唔嗯……嗯嗯……咕呃！！」
		PRINTL
		PRINTFORMW 「哈……哈啊……生、生出来了……！！」
		PRINTFORMW 「小宝宝……%CALLNAME:MASTER%和我的……！」
		PRINTFORMW 「喔喔，乖呀乖……呵呵，要倾注满满的爱，好好地养育呢……！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「哈、哈啊……哈啊啊……」
		PRINTFORMW 「唔嗯……嗯嗯……咕呃！！」
		PRINTL
		PRINTFORMW 「哈……哈啊……生、生出来了……！」
		PRINTFORMW 「乖呀乖……要好好养育这孩子呢……！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「哈、哈啊……哈啊啊……」
		PRINTFORMW 「唔嗯……嗯嗯……咕呃！！」
		PRINTL
		PRINTFORMW 「哈……哈啊……生、生出来了……！」
		PRINTFORMW 「乖呀乖……你要坚强的活下去啊……！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「哈、哈啊……哈啊啊……」
		PRINTFORMW 「唔嗯……嗯嗯……咕呃！！」
		PRINTL
		PRINTFORMW 「哈……哈啊……出、出来了……！」
		PRINTFORMW 「到、到底怎么回事……这孩子……呜……呜呃……」
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K83_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		CASE 0
			;-------------------------------------------------
			;見られた瞬間
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 1
			;-------------------------------------------------
			IF LOCAL:1
				;好きだとあんまり驚かない
				IF TALENT:[[琪斯美]]:恋人
					PRINTFORMW 「啊……\/\/\/ %CALLNAME:MASTER%……什么时候来到这了……？」
				ELSEIF TALENT:[[琪斯美]]:恋慕
					PRINTFORMW 「啊……\/\/\/ %CALLNAME:MASTER%……为、为什么……\/\/\/」
				ELSEIF TALENT:[[琪斯美]]:思慕
					PRINTFORMW 「%M_KOJO_K83_AUTO("悲鳴：強")% %CALLNAME:MASTER%……这、这个是……\/\/\/」
				ELSE
					PRINTFORMW 「%M_KOJO_K83_AUTO("悲鳴：強")% 对、对对对对不起……」
				ENDIF
				RETURN 1
			ENDIF
		CASE 1
			;-------------------------------------------------
			;什麼也不做
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 1
			;-------------------------------------------------
			IF LOCAL:1
				PRINTL
				IF TALENT:[[琪斯美]]:恋人
					PRINTFORMW 「诶？要回去了吗……？ 这样啊……」
				ELSEIF M_KOJO_K83_UFUFU([[琪斯美]])
					PRINTFORMW 「诶？要回去了吗……？」
				ELSEIF TALENT:[[琪斯美]]:思慕
					PRINTFORMW 「再、再见……\/\/\/」
				ELSE
					PRINTFORMDL 琪斯美就这样呆住了
					PRINTL
					PRINTFORMW 「…………\/\/\/」
				ENDIF
				RETURN 1
			ENDIF
		CASE 2
			;-------------------------------------------------
			;そのまま続行
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 1
			;-------------------------------------------------
			IF LOCAL:1
				PRINTL
				IF TALENT:[[琪斯美]]:恋人
					PRINTFORMW 「诶……怎么这样……」
					SELECTCASE RAND:2
					CASE 1
						PRINTFORMW 「%M_KOJO_K83_AUTO("二連刺激")%%M_KOJO_K83_AUTO("単刺激…！")%……%CALLNAME:MASTER%……」
						PRINTFORMW 「呜……好寂寞哦……%M_KOJO_K83_AUTO("単刺激…！")%」
					CASEELSE
						PRINTFORMW 「%CALLNAME:MASTER%……%CALLNAME:MASTER%……%M_KOJO_K83_AUTO("単刺激…！")%」
						PRINTFORMW 「只是看着吗……呜……%M_KOJO_K83_AUTO("単刺激…！")%」
					ENDSELECT
				ELSEIF M_KOJO_K83_UFUFU([[琪斯美]])
					PRINTFORMW 「欸……好、好吧……」
					SELECTCASE RAND:2
					CASE 1
						PRINTFORMW 「%CALLNAME:MASTER%……在看着……%M_KOJO_K83_AUTO("単刺激…！")%」
					CASEELSE
						PRINTFORMW 「%M_KOJO_K83_AUTO("二連刺激")%%M_KOJO_K83_AUTO("単刺激…！")%……%CALLNAME:MASTER%……」
					ENDSELECT
				ELSEIF TALENT:[[琪斯美]]:思慕
					PRINTFORMW 「诶诶～～？\/\/\/」
				ELSE
					PRINTFORMDL 琪斯美就这样呆住了
					PRINTL
					PRINTFORMW 「…………\/\/\/」
				ENDIF
				RETURN 1
			ENDIF
		CASE 3
			;-------------------------------------------------
			;逐出
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 1
			;-------------------------------------------------
			IF LOCAL:1
				PRINTL
				PRINTFORMW 「快、快出去——————！！」
				RETURN 1
			ENDIF
		CASE 4
			;-------------------------------------------------
			;やっちゃう
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 1
			;-------------------------------------------------
			IF LOCAL:1
				PRINTL
				IF TALENT:[[琪斯美]]:恋人
					CALL HPH_PRINT(@"「诶嘿嘿……太好了HPH 进来吧……！」", "W")
				ELSEIF M_KOJO_K83_UFUFU([[琪斯美]])
					PRINTFORMW 「诶……那、那样也许……说的也是呢\/\/\/」
				ELSEIF TALENT:[[琪斯美]]:思慕
					PRINTFORMW 「诶……那、那样子……呜、嗯……\/\/\/」
				ELSE
					PRINTFORMDL 琪斯美就这样呆住了
					PRINTL
					PRINTFORMW 「…………\/\/\/」
				ENDIF
				RETURN 1
			ENDIF
		CASE 5
			;-------------------------------------------------
			;事後
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 1
			;-------------------------------------------------
			IF LOCAL:1
				PRINTL
				IF TALENT:[[琪斯美]]:恋人
					CALL HPH_PRINT(@"「呵呵……下、下次再来哦……HPH」", "W")
				ELSEIF M_KOJO_K83_UFUFU([[琪斯美]])
					CALL HPH_PRINT(@"「哈啊……舒、舒舒服服的……HPH」", "W")
				ELSEIF TALENT:[[琪斯美]]:思慕
					CALL HPH_PRINT(@"「……HPH」", "W")
				ELSE
					;あるのか？？？
					PRINTFORMW 「…………\/\/\/」
				ENDIF
				RETURN 1
			ENDIF
		CASE 6
			;-------------------------------------------------
			;事後お泊り
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:1 = 1
			;-------------------------------------------------
			IF LOCAL:1
				PRINTL
				IF TALENT:[[琪斯美]]:恋人
					PRINTFORMW 「要、要在这过夜吗……？ 真的？ 好耶……！」
					PRINTFORMW 「今天一直在想%CALLNAME:MASTER%会不会来呢……」
					PRINTFORMW 「结果真的来了，我真的…………」
					CALL HPH_PRINT(@"「呐，%CALLNAME:MASTER%……来继续吧HPH」", "W")
				ELSEIF M_KOJO_K83_UFUFU([[琪斯美]])
					PRINTFORMW 「要、要过夜吗……？ 可、可以哦……」
					PRINTFORMW 「刚才还在想着%CALLNAME:MASTER%会不会来呢……」
					PRINTFORMW 「结果真的来了，我真的…………」
					PRINTFORMW 「呐，%CALLNAME:MASTER%……那个――」
				;死に分岐な気がして手抜き。
				ELSEIF TALENT:[[琪斯美]]:思慕
					CALL HPH_PRINT(@"「……HPH」", "W")
				ELSE
					PRINTFORMW 「…………\/\/\/」
				ENDIF
				RETURN 1
			ENDIF
	ENDSELECT
ENDIF

;==================================================
;相手から约会のお誘い
;==================================================
@M_KOJO_EVENT_K83_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
			SELECTCASE STR:(5000 + ARG:1)
			CASE "博麗神社"
				PRINTFORMW 「呐，%CALLNAME:MASTER%……一起去神社吗？」
			CASE "命蓮寺"
				PRINTFORMW 「呐，%CALLNAME:MASTER%……一起去寺里吗？」
			CASE "人間之里"
				PRINTFORMW 「呐，%CALLNAME:MASTER%……一起去村子吗？」
			CASE "霧之湖～紅魔館"
				PRINTFORMW 「呐，%CALLNAME:MASTER%……一起去湖边吗？」
			CASE "迷途竹林"
				PRINTFORMW 「呐，%CALLNAME:MASTER%……一起去竹林吗？」
			CASE "魔法之森"
				PRINTFORMW 「呐，%CALLNAME:MASTER%……一起去森林吗？」
			CASE "三途之川～冥界"
				PRINTFORMW 「呐，%CALLNAME:MASTER%……一起去三途川吗？」
			CASE "妖怪之山 (山麓)"
				PRINTFORMW 「呐，%CALLNAME:MASTER%……一起去妖怪山吗？」
			CASE "妖怪之山 (山頂)"
				PRINTFORMW 「呐，%CALLNAME:MASTER%……一起去登山吗？」
			CASE "地底"
				PRINTFORMW 「呐，%CALLNAME:MASTER%……要来地底玩吗？」
			CASE "夢之世界～月"
				PRINTFORMW 「呐，%CALLNAME:MASTER%……想去月亮上看看……」
			ENDSELECT
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「真的？ 好耶……！」
			TALENT:[[琪斯美]]:心情 = 1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「这样啊……」
			TALENT:[[琪斯美]]:心情 = MIN(TALENT:[[琪斯美]]:心情, 0)
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「呐，%CALLNAME:MASTER%……来、来我家吗……？」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「真的？ 那、那快点……！」
			TALENT:[[琪斯美]]:心情 = 1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「这样啊……」
			TALENT:[[琪斯美]]:心情 = MIN(TALENT:[[琪斯美]]:心情, 0)
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K83_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:時間停止
			ELSEIF TALENT:[[琪斯美]]:恋人
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「那、那我……脱了……\/\/\/」
				CASE 2
					PRINTFORMW 「别、别盯着看呜……\/\/\/」
				CASEELSE
					PRINTFORMW 「呼呜……\/\/\/」
				ENDSELECT
			ELSEIF M_KOJO_K83_UFUFU([[琪斯美]])
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「啊……\/\/\/」
				CASE 2
					PRINTFORMW 「好、好害羞……\/\/\/」
				CASEELSE
					PRINTFORMW 「唔呜……！」
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
	CASE 1
		;-------------------------------------------------
		;变成只穿内衣的样子
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF FLAG:時間停止
			ELSEIF M_KOJO_K83_UFUFU([[琪斯美]])
				PRINTFORMW 「嗯……\/\/\/」
			ENDIF
			RETURN 1
		ENDIF
	CASE 2
		;-------------------------------------------------
		;半脱
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF FLAG:時間停止
			ELSEIF M_KOJO_K83_UFUFU([[琪斯美]])
				PRINTFORMW 「啊嗯……\/\/\/」
			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 「呐……%CALLNAME:MASTER%的……和我的交换……\/\/\/」
					RETURN 1
				ENDIF
			CASE 1
				;-------------------------------------------------
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「可、可以哦……\/\/\/」
					RETURN 1
				ENDIF
			CASE 2
				;-------------------------------------------------
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「诶……也不是不可以……」
					RETURN 1
				ENDIF
			CASE 3
				;-------------------------------------------------
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「诶……虽、虽然不是很想……」
					RETURN 1
				ENDIF
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;憤怒口上
;==================================================
@M_KOJO_EVENT_K83_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの胆量で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
;	;-------------------------------------------------
;	;小分岐
;	;-------------------------------------------------
;	;怒らせてしまった
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 1
;		RETURN 1
;	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[膽怯]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:[[琪斯美]]:恋慕
			PRINTFORML 「%CALLNAME:MASTER%……好过分啊……呜……呜呜……」
		ELSEIF TALENT:[[琪斯美]]:思慕
			PRINTFORML 「%CALLNAME:MASTER%……好过分……呜……呜呜……」
		ELSE
			PRINTFORML 「好过分……呜……呜呜……」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;相手が推倒を解除
;==================================================
@M_KOJO_EVENT_K83_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = M_KOJO_K83_UFUFU([[琪斯美]])
;-------------
IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲惫
		PRINTFORML 「哈、哈啊……累、累了……」
		PRINTFORMW 「抱、抱歉哦……%CALLNAME:MASTER%……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORMW 「哈、哈啊……舒、舒服了……」
		PRINTFORMW 「%CALLNAME:MASTER%……非、非常感谢……」
		TCVAR:[[琪斯美]]:351 = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを被逆推た
		PRINTFORMW 「咿啊！！」
		IF TALENT:[[琪斯美]]:恋人
			SELECTCASE RAND:2
			CASE 1
				CALL HPH_PRINT(@"「嗯……请惩罚我吧……HPH」", "W")
			CASEELSE
				CALL HPH_PRINT(@"「嗯……角色逆转了呢……HPH」", "W")
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
			CASE 1
				PRINTFORMW 「呜……十、十分抱歉……！」
			CASEELSE
				PRINTFORMW 「呜……请、请原谅我……！」
			ENDSELECT
		ENDIF
		TCVAR:[[琪斯美]]:351 = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		IF TALENT:[[琪斯美]]:恋人
			SELECTCASE RAND:2
			CASE 1
				CALL HPH_PRINT(@"「%CALLNAME:MASTER%……很喜欢这样呢……HPH」", "W")
			CASEELSE
				CALL HPH_PRINT(@"「那么，来一起舒服个够吧……HPH」", "W")
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
			CASE 1
				CALL HPH_PRINT(@"「现在后悔的话太迟了哦……HPH」", "W")
			CASEELSE
				CALL HPH_PRINT(@"「呵呵……那么我就不客气了……HPH」", "W")
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;
;;==================================================
;;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;;==================================================
;@M_KOJO_EVENT_K83_31(ARG,ARG:1)
;;口上主はTARGET
;;ARGは会ってない日数
;;何日以上会ってなかったら愚痴を言うとかできます
;;CFLAG:オナバレで分岐入れてもよさそう
;;--------------------------------------------------
;;記入チェック（=0, 非表示、1, 表示）
;LOCAL = 0
;;-------------
;IF LOCAL
;	;-------------------------------------------------
;	;小分岐
;	;-------------------------------------------------
;	;今日会っていない
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG
;		RETURN 1
;	ENDIF
;	;-------------------------------------------------
;	;今日会っている
;	;記入チェック（=0, 非表示、1, 表示）
;	LOCAL:1 = 0
;	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 0
;		RETURN 1
;	ENDIF
;ENDIF
;RETURN 1
;
;[SKIPSTART]
;;-------------------------------------------------
;;オナバレ遭遇時の地の文を默认のものから変更したい場合用。
;;その場合は上下のSKIPSTART~SKIPENDを外してください。
;;CFLAG等の角色変数を使用場合、角色番号の指定が必要になります。
;;-------------------------------------------------
;@M_KOJO_EVENT_K83_ONABARE_1(ARG)
;;-------------------------------------------------
;:口上色を付けるならコメントアウトを外しXを角色番号に
;;CALL M_KOJO_COLOR_K83
;
;IF ARG
;	PRINTFORML A弄ってる場合
;ELSE
;	PRINTFORML V弄ってる場合
;ENDIF
;;-------------------------------------------------
;[SKIPEND]
;
;
;[SKIPSTART]
;;-------------------------------------------------
;;オナバレでそのまま続けてもらう場合の地の文を默认のものから変更したい場合用。
;;その場合は上下のSKIPSTART~SKIPENDを外してください。
;;CFLAG等の角色変数を使用場合、角色番号の指定が必要になります。
;;-------------------------------------------------
;@M_KOJO_EVENT_K83_ONABARE_2(ARG)
;;-------------------------------------------------
;:口上色を付けるならコメントアウトを外しXを角色番号に
;;CALL M_KOJO_COLOR_K83
;
;IF ARG
;	PRINTFORML A弄ってる場合
;ELSE
;	PRINTFORML V弄ってる場合
;ENDIF
;;-------------------------------------------------
;[SKIPEND]
;
;
;[SKIPSTART]
;;-------------------------------------------------
;;オナバレ無崩しックスの地の文を默认のものから変更したい場合用。
;;その場合は上下のSKIPSTART~SKIPENDを外してください。
;;CFLAG等の角色変数を使用場合、角色番号の指定が必要になります。
;;-------------------------------------------------
;@M_KOJO_EVENT_K83_ONABARE_3(前戯１,本番はどっちか,回数,注入量)
;;-------------------------------------------------
;#DIM 前戯１
;;1=C 2=B 3=M
;#DIM 本番はどっちか
;;0でＶ、1でＡ
;#DIM 注入量
;#DIM 回数
;
;:口上色を付けるならコメントアウトを外しXを角色番号に
;;CALL M_KOJO_COLOR_K83
;
;SELECTCASE 前戯１
;	CASE 1
;		PRINTFORML Ｃ責め
;	CASE 2
;		PRINTFORML Ｂ責め
;	CASE 3
;		PRINTFORML Ｍ責め
;ENDSELECT
;
;IF 本番はどっちか
;	PRINTFORML Aで本番
;ELSE
;	PRINTFORML Vで本番
;ENDIF
;;-------------------------------------------------
;[SKIPEND]

;
;;-------------------------------------------------
;;処女・無自覚非処女に挿入する直前の口上
;;RETURN 1すると指令を中止します
;;RETURN 0なら通します
;;CFLAG:破瓜中止口上有がオンになってないと読み込まれないので注意
;;-------------------------------------------------
;@M_KOJO_EVENT_K83_LOST_VIRGIN_STOP
;;-------------------------------------------------
;PRINTFORML
;RETURN 1
;
;;-------------------------------------------------
;;CFLAG:口上内抱き寄せ判定_初回がオンになっている場合のみ有効。
;;初めて推倒た時、ここでRETURN -1すると推倒を強制的に中止します。
;;RETURN 0なら通常の判定を行い、RETURN 1すると無条件に成功させます。
;;特定のイベント（约会帰り接吻など）を見るまで诶嘿嘿できないようにしたいときなどにどうぞ。
;;-------------------------------------------------
;@M_KOJO_EVENT_K83_PERMISSION_1
;;-------------------------------------------------
;PRINTFORML
;;RETURN -1
;RETURN 0
;;RETURN 1
;;-------------------------------------------------
;
;
;;-------------------------------------------------
;;CFLAG:口上内抱き寄せ判定_通常がオンになっている場合のみ有効。
;;合意付きで推倒た時、ここでRETURN -1すると推倒を強制的に中止します。
;;RETURN 0なら通常街道成功させます。
;;合意があっても何らかの理由で诶嘿嘿できないようにしたいときなどにどうぞ。
;;-------------------------------------------------
;@M_KOJO_EVENT_K83_PERMISSION_2
;;-------------------------------------------------
;PRINTFORML
;RETURN 0
;;RETURN -1
;;-------------------------------------------------

path: ERB/口上・メッセージ関連/個人口上/【83】キスメ/M_KOJO_K83_01_イベント.ERB