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)
;ここでRESULTSを設定すると他の同キャラ口上を突っ込まれても正常動作する。

;RESULTS = _TEST_

;と設定すると、"EVENT"系イベントだと
;M_KOJO_TEST_EVENT_K83_1() とかで呼ばれる…はず。（未テスト機能）

;ここでCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります

;コメントアウトを外して眠姦口上有、時間停止口上有に1を入れると、それぞれ時間停止時、眠姦時、なりきり時にコマンド口上が読み込まれるように
;入れないと時間停止時、眠姦時、なりきり時は一切喋りません

;破瓜キャンセル口上有に1を入れると、@M_KOJO_EVENT_K83_LOST_VIRGIN_STOPでキャンセルの成否を操作できます
;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れるとM_KOJO_EVENT_K83_PERMISSIONで押し倒しの成否を操作できます

;Xにはキャラ番号を入れてください

;CFLAG:면간대사있음 = 0
;CFLAG:시간정지대사있음 = 0
;CFLAG:역극대사있음 = 0
;CFLAG:파과캔슬대사있음 = 0
;CFLAG:대사내껴안기판정_첫회 = 0
;CFLAG:대사내껴안기판정_통상 = 0

;CFLAG:덮침금지に1を入れると自分から押し倒してこなくなります
;以下は恋慕かセフレがつくまで押し倒してこなくなる使用例
;IF !TALENT:연모 && !TALENT:섹프
;	CFLAG:덮침금지 = 1
;ELSE
;	CFLAG:덮침금지 = 0
;ENDIF

;口上存在判定です、けしてコメントアウトしないでください
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K83
;ライムグリーン
SETCOLOR 0x32cd32

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K83
#DIM VERSION
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります
VERSION = 100
CALL M_KOJO_COLOR_K83
IF !TALENT:키스미경험 || EXP:키스경험
	SIF FIRSTTIME("ファーストキス", 0, 83)
		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:84 < 150
		PRINTFORML 야마메·파르스·용의와의 궁합을 상승시켜도 좋다？
		PRINTL [1] - 좋아
		PRINTL [0] - 안돼
		INPUT
		IF RESULT
			RELATION:84 = 150
			RELATION:60 = 120
			RELATION:64 = 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(83)
	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
;その他
ELSE
	PRINTFORMDW 이런 곳에 통이 떨어지고 있다.
	PRINTFORMDL 조사해 봅니까？
	PRINTDL [1] - 네
	PRINTDL [0] - 아니오
	INPUT
	;はい
	IF RESULT
		PRINTFORMDW 무려！ 통안에는 여자 아이가 들어가 있었다！
		PRINTL
		PRINTFORMW 「！？」
		PRINTFORMW 「 , 미안해요……. 이것은 그……버릇으로……」
		PRINTFORMW 「원, 나는 키스메……」
		PRINTFORMW 「어와 개, 두레박 떨어뜨려, 그러니까……그……」
		PRINTL
		PRINTFORMDL ――요괴와 같지만 적은 아닌 것 같다.
		PRINTFORMDW %CALLNAME:MASTER%(은)는 일단 자기 소개를 해 두었다.
		CFLAG:1001 = 0
	;いいえ
	ELSE
		PRINTFORMDW 특히 기분 가짜도 하지 않고 한눈 팔기를 한 순간,
		PRINTL
		PRINTFORMDL 드각！
		PRINTW
		PRINTFORMDW 라고 배후로부터 누군가가 부딪쳐 왔다.
		PRINTFORMDW 뒤돌아 보면(자) 한사람의 여자 아이가 뻗어 있다.
		PRINTFORMDW %CALLNAME:MASTER%(은)는 괜찮은 것으로 구부러져 말을 걸었다.
		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 이제 곧 도착하는가 하는 곳에서,%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
	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 이제 곧 도착하는가 하는 곳에서 돌연,%CALLNAME:MASTER%(은)는 뒤나들 라고 안아 지쳤다.
			PRINTFORMDL 왜일까하고 뒤돌아 보려고 하지만, 키스메는 얼굴을 등에 묻은 채로 동요하지 않는다.
			PRINTW
			;びっくりさせられた
			IF CFLAG:1001
				PRINTFORMW 「……처음으로 만났을 때도 이런이었다……」
				PRINTL
				PRINTFORMDL ――그 때는 우연히 붙여 있던 부적에 도울 수 있어, 경파라면 없었다――
				PRINTW
			ELSE
				PRINTFORMW 「놀랐다……？ 후후,%CALLNAME:MASTER%의 등, 따뜻하다……」
			ENDIF
			PRINTFORMW 「 나, 옛날은 이렇게 인간을……잡았다」
			PRINTL
			PRINTFORMDL ……말꼬리를 흐리고 있지만, 잡고 하는 것으로 하면 1개(살) 밖에 없다.
			PRINTW
			PRINTFORMW 「그렇게, 나는 요괴야……그것도 질이 나쁘다」
			PRINTFORMW 「그러니까, 지저에 봉쇄되었다……」
			PRINTL
			PRINTFORMDL 지금은 이제(벌써) 다를 것이라고 염려하고 있으면(자), 그것이 전해졌는지와 같이 머리를 거절한다.
			PRINTW
			PRINTFORMW 「으응, 다르지 않다……요괴의 본질은, 변함없다」
			PRINTFORMW 「인간을 긴 시간 빌려주는 일……그것이, 내가 나이다고 하는 일……」
			PRINTFORMW 「……그 충동은 억제할 수 없는거야」
			PRINTL
			PRINTFORMDW 키스메는 무엇을 말하고 싶겠지.
			PRINTFORMDL 설마 자신을――
			PRINTW
			PRINTFORMW 「응,%CALLNAME:MASTER%……나,%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
		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:더부살이캐릭터 == 83
			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(83)
			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
	;その他
	PRINTFORML
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
	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 == 84
		PRINTFORMW 「아, 야마메！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パルスィが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 60
		PRINTFORMW 「아, 파르스……개, 이것은 위구라고……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;勇儀が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 64
		PRINTFORMW 「아, 용의씨……안녕하세요」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;さとりが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 49
		PRINTFORMW 「아, 득도함씨……개, 안녕하세요……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;お燐が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 36
		PRINTFORMW 「아, 린, 안녕하세요……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;お空が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 37
		PRINTFORMW 「아, 하늘……안녕하세요」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;こいしが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 38
		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(@"「えっちしよ……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 DISHASSI == 83
			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(83)
			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(83)
					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(83)
					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(83)
					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(83)
					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(83)
					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(83)
				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(83)
				PRINTFORMW 「응……\/\/\/」
			ENDIF
			RETURN 1
		ENDIF
	CASE 2
		;-------------------------------------------------
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF FLAG:시간정지
			ELSEIF M_KOJO_K83_UFUFU(83)
				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(83)
;-------------
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
;;-------------------------------------------------

repo_name: purugi/eraTWKR

path: ERB/대사_메시지관련/개인대사/083 키스메/M_KOJO_K83_01_イベント.ERB

license: mit