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

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;
;TCVAR:[[키스메]]:351	押し倒されたフラグ
;CFLAG:[[키스메]]:1001	びっくりさせられた
;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 = 101
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 %마스터는% 희한하게 여기며 안을 들여다봤다.
	PRINTFORMDW 맙소사! 통 속에 소녀가 있다!
	PRINTL
	PRINTFORMW 「꺅!? 이, 인간……? 오, 왜 여길……?」
	PRINTL
	PRINTFORMDW %마스터는% 일단 자기 소개를 했다.
	PRINTL
	PRINTFORMW 「음…… 그럼 너도 지하에 사는구나……」
	PRINTFORML 「여, 여긴, 밖에 비해서 어두울진 몰라도,
	PRINTFORMW 　다들 편하게 지내는…… 좋은 곳이라고… 봐」
	PRINTFORMW 「아…… 나, 난, 키스메…… 츠루베오토시……」
	PRINTL
	PRINTFORMDL 그녀는 통 속에서 중얼거리며 말 끝을 흐렸다.
	PRINTFORMDW %마스터는% 앞으로 이웃이 될 입장으로서, 손을 내밀었다.
	PRINTL
	PRINTFORMW 「…………자, 잘 부탁……」
	PRINTL
	PRINTFORMDL 손을 바라보기만 하던 그녀였지만, 잠시 후 빼꼼히 작은 손을 내밀어 악수했다.
	PRINTFORMDW 수줍음이 많아 보인다.
	CFLAG:[[키스메]]:1001 = 0
;その他
ELSE
	PRINTFORMDW 이런 곳에 통이 있다.
	PRINTFORMDL 들여다봅니까?
	PRINTDL [1] - 네
	PRINTDL [0] - 아니오
	INPUT
	;はい
	IF RESULT
		PRINTFORMDW 맙소사! 통 속에 소녀가 있다!
		PRINTL
		PRINTFORMW 「햐앗!?」
		PRINTFORMW 「미, 미안해…… 이건 그…… 버릇이라서……」
		PRINTFORMW 「나, 난, 키스메……」
		PRINTFORMW 「어, 츠, 츠루베오토시, 라서…… 그게……」
		PRINTL
		PRINTFORMDL ――요괴 같지만 적은 아닌 것 같다.
		PRINTFORMDW %마스터는% 일단 자기 소개를 했다.
		CFLAG:[[키스메]]:1001 = 0
	;いいえ
	ELSE
		PRINTFORMDW 대수롭지 않게 여기고 곁눈질을 한 순간,
		PRINTL
		PRINTFORMDL 쾅!
		PRINTW
		PRINTFORMDW 뒤에서 누군가가 부딪쳤다.
		PRINTFORMDW 돌아보니 한 소녀가 뻗어 있었다.
		PRINTFORMDW %마스터는% 괜찮냐면서 쪼그려 말을 걸었다.
		PRINTL
		PRINTFORMW 「윽…… 무녀의 부적이라니…… 치사해……」
		PRINTFORMW 「햐앗!? 미, 미안해……」
		PRINTFORMW 「나, 난, 키스메……」
		PRINTFORMW 「어, 츠, 츠루베오토시, 라서…… 그게……」
		PRINTL
		PRINTFORMDL ――아무래도 놀라게 하려고 덤벼들었다가, 등에 붙어 있던 부적에 튕겨 나간 것 같다.
		PRINTFORMDW 그런 걸 본 기억은 없는데……
		PRINTL
		PRINTFORMW 「이, 이제 안 할게……」
		PRINTL
		PRINTFORMDW 체면을 구긴 키스메는 터벅터벅 걸어서 통 속으로 돌아갔다.
		;泣く
		TALENT:[[키스메]]:기분 = -1
		CFLAG:[[키스메]]:1001 = 1
	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 곧 도착할 때쯤, %마스터는% 옷 자락을 꾹 잡혔다.
	ELSE
		PRINTFORMDW 곧 도착할 때쯤, %마스터는% 뭔가에 꼭꼭 찔렸다.
	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
	ELSE
		PRINTFORMW 「저, 저기, %CALLNAME:MASTER%…… 오늘, 즐거웠어……」
		PRINTFORMW 「그러니까, 그…… 어……」
		PRINTFORMW 「고, 고마워…… 다, 다음에 꼭 보답을……」
		PRINTL
		PRINTFORMW （으…… 용기가 안 나……）
		TCVAR:[[키스메]]:키스캔슬 = 1
	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 곧 도착할 때쯤, 뒤에서 뭔가가 덥썩 %마스터를% 안았다.
			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 「%마스터는% 날 어떻게 생각해……?」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（연인が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;お断りしてない
		IF FIRSTTIME("返答")
			PRINTFORMDL ???
			PRINTFORMDL 갑자기 얘기가 180도 바뀐 것에 놀라 당황하면서도, %마스터는% 그녀의 고백에 화답했다.
			PRINTW
			PRINTFORMW 「저, 정말이야?」
			PRINTFORMW 「나 요괴인데…… 그래도 괜찮아?」
			PRINTDL [1] - 응
			PRINTDL [0] - 조금 두렵다
			INPUT
			;うん
			IF RESULT
				PRINTFORMW 「%마스터는% 다정하구나……」
				PRINTFORMW 「행복해…… %CALLNAME:MASTER%의, 그런 점이 좋아……」
				PRINTFORMW 「괜찮아, %CALLNAME:MASTER% 곁에 있으면, 난 %마스터를% 위한 존재로 있을 수 있으니까……」
			;ちょっとこわい
			ELSE
				PRINTFORMW 「%마스터는% 솔직하구나……」
				PRINTFORMW 「……사실, 겁을 주는 게, 난 좀 기분이 좋기도 하고……」
				PRINTFORMW 「%CALLNAME:MASTER%의, 그런 면이 좋기도 하고……」
			ENDIF
			PRINTFORMW 「미안해…… 나에 대해서 알아 줬으면 해서……」
			PRINTFORMW 「그래도, 용기 내서 말하길 다행이야……」
			PRINTFORMW 「에헤헤…… 이러면 우리, 애, 애인, 이지……」
		;お断りしたことある
		ELSE
			PRINTFORMW 「지, 진짜……?」
			PRINTFORMW 「조, 좋아……! 나, 어떻게 해야 좋을지 몰라서…… 훌쩍……」
			PRINTFORMW 「계속 두려웠어…… 싫어하는 줄 알고……」
			PRINTFORMW 「에헤헤…… 이러면 우리, 애, 애인, 이지……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;初めてのお断り
		IF FIRSTTIME("返答")
			PRINTFORMDL ???
			PRINTFORMDL 갑자기 얘기가 180도 바뀐 것에 놀라 당황했다.
			PRINTW
			PRINTFORMW 「그, 그래…… 아냐, 괜찮아. 그게 당연한 거니까……」
			PRINTFORMW 「미안해…… 나, 나에 대해서…… 알아 줬으면… 해서…… 으…… 훌쩍……」
		;お断り二回目以降
		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:[[키스메]]:오늘만났는지
		;バレンタイン기분補正（先に処理）
		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([[키스메]])
			PRINTFORMW 「안녕……」
;		;地底
;		ELSEIF INRANGE(CFLAG:[[키스메]]:현재위치, 900, 1000)
		ELSE
			CALL M_KOJO_K83_ENCOUNT("通常")
		ENDIF
		;バレンタインチョコ
		SIF DAY:2 == 4 && DAY:3 == 14
			CALL M_KOJO_K83_ENCOUNT("バレンタイン")
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------

	;統合しました

	;-------------------------------------------------
	;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:[[키스메]]:오늘만났는지
		;ハロウィン
		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
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7 && !TCVAR:[[키스메]]:오늘만났는지
		;ハロウィン優先
		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
		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 「초콜릿…… 마, 만들었어. %마스터가% 먹어 줬으면 해……\/\/\/」
		ENDIF
	ENDSELECT
;通常
CASEELSE
	IF TALENT:[[키스메]]:연인
		PRINTFORMW 「아, %CALLNAME:MASTER%!」
	ELSEIF TALENT:[[키스메]]:연모
		PRINTFORMW 「아, %CALLNAME:MASTER%……!」
	ELSEIF TALENT:[[키스메]]:사모
		PRINTFORMW 「아, %CALLNAME:MASTER%……」
	ELSE
		PRINTFORMW 「앗! 아, 안녕……」
	ENDIF
ENDSELECT

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@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 「아, 안 돼…! %마스터는%, 내 거라고……!!」
		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 「어…… 이, 이런…… 뭐, %마스터가% 그렇게 말하면……」
		ELSEIF TALENT:[[키스메]]:연모
			PRINTFORMW 「어…… 무, 뭐, %마스터가% 그렇게 말하면……」
		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 「%마스터가% 하는 건…… 그, 그냥 범죄…… 같아……」
			ELSEIF TALENT:[[키스메]]:연모
				PRINTFORMW 「%CALLNAME:MASTER%…… 여전히 그 취미구나……」
				PRINTFORMW 「나도 뼈를 모으긴 하는데…… 누구한테 피해는 안 준다고……」
			ELSEIF TALENT:[[키스메]]:사모
				PRINTFORMW 「%CALLNAME:MASTER%…… 여전히 그 취미구나……」
				PRINTFORMW 「분명 사토리 씨한테 들키면…… 죽을 거야」
			ELSE
				PRINTFORMW 「%마스터는%…… 저질스러운 인간이구나」
			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(@"「야해……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(@"「%마스터가% 좋아…… 너무 좋아……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 「미안한데…… 이제 %마스터는% 도망칠 수 없어……」
				CASE 2
					PRINTFORMW 「이미 늦었어…… %마스터는% 내 거야」
				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 「아, 알았어…… %마스터가% 하고 싶다면…… 좋아」
		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 「나, %마스터를%……」
		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
;		;-------------------------------------------------
;		;Ｖ敏感orV감각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 키스메가 그 작은 몸을 떨어서, %마스터는% 부드럽게 안아 줬다.
			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 키스메가 그 작은 몸을 떨어서, %마스터는% 쓰다듬어 줬다.
		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 「오늘은, %마스터가% 와 줬으면 했는데……」
					PRINTFORMW 「정말로 와 줘서, 나…………」
					CALL HPH_PRINT(@"「저기, %CALLNAME:MASTER%…… 더 하자HPH」", "W")
				ELSEIF M_KOJO_K83_UFUFU([[키스메]])
					PRINTFORMW 「무, 묵고 가……? 그, 그래……」
					PRINTFORMW 「사실 방금 전까지, %마스터가% 와 줬으면 했는데……」
					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/대사_메시지관련/개인대사/083 키스메/M_KOJO_K83_01_イベント.ERB

license: mit