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

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;TCVAR:70:350	フキゲン
;TCVAR:70:351	押し倒されたフラグ
;TCVAR:70:352	デート会話リセット用フラグ
;;TCVAR:70:353	嫉妬フキゲン※廃止
;TCVAR:70:354	今日お誘いしたか
;TCVAR:70:355	満足フラグ(TCVAR)
;TCVAR:70:356	딸딸이들킴分岐
;TCVAR:70:357	連打防止
;TCVAR:70:360	一日一回,bit 0=デート동행会話, 1=仕事手伝いの一回目, 2=今日の来店, 3=遭遇挨拶(小鈴の部屋遭遇時のみ)
;TCVAR:70:361	会話：霊夢(1)
;TCVAR:70:362	会話：魔理沙(11)
;TCVAR:70:363	会話：紫(26)
;TCVAR:70:364	会話：文(29)
;TCVAR:70:365	会話：마미조(69)
;TCVAR:70:366	会話：阿求(80)
;TCVAR:70:371	お茶：霊夢(1)
;TCVAR:70:372	お茶：魔理沙(11)
;TCVAR:70:373	お茶：紫(26)
;TCVAR:70:374	お茶：文(29)
;TCVAR:70:375	お茶：마미조(69)
;TCVAR:70:376	お茶：阿求(80)
;CFLAG:70:1001	満足フラグ
;CFLAG:70:1002	最後に会った日
;CFLAG:70:1003	遭遇イベント
;CFLAG:70:1004	自己紹介
;CFLAG:70:1005	来店経験
;CFLAG:70:1006	우후후口上
;CFLAG:70:1010	無自覚出産
;CFLAG:70:1011～1020	子供の性格
;CFLAG:70:1021～1030	親が分からない
;CFLAG:70:1100	バージョン
;
;******************************************************************************
;■専用関数
;鈴奈庵判定
;1=鈴奈庵,2=自分部屋(引っ越した後も考慮),3=部屋追い出し
@M_KOJO_K70_SUZUNAAN(ARG)
#FUNCTION
IF MAIN_MAP == 2
	IF ARG == 213
		RETURNF 1
	ELSEIF ARG == 226
		;連れ出す関数ができてました＆特定条件で連れ出せるので対応しました
		IF COM_351_CONDITION(70)
			RETURNF 2
		;不法侵入,연모でも사모でもなく阿求と一緒でもなく連れ出すこともできない,要するに時止めて侵入した(一応阿求と一緒に入って阿求が出て行くパターンもある)
		ELSEIF !TALENT:70:연모 && !TALENT:70:사모 && CFLAG:MASTER:현재위치 != CFLAG:80:현재위치 && COM_351_CONDITION(70) == 0
			RETURNF 3
		ELSE
			RETURNF 2
		ENDIF
	ENDIF
ELSE
	IF ARG == 220
		RETURNF 1
	ELSEIF CFLAG:70:현재위치 == OMANEKIBEYA() || CFLAG:70:현재위치 == CFLAG:70:초기위치
		RETURNF 2
	ENDIF
ENDIF

;危ない所判定
@M_KOJO_K70_ABUNAAI(ARG)
#FUNCTION
SIF AT_HOME(70) && GROUPMATCH(MAIN_MAP, 3, 4, 5, 6, 7, 8, 9, 10)
	RETURNF 1

;分岐用のゲストキャラ判定
@M_KOJO_K70_GUEST(ARG)
#DIM CHARA
;ARG	0=会話, 1=お茶
VARSET RESULT
RESULTS =
;阿求(80)は最優先
IF CFLAG:80:현재위치 == CFLAG:70:현재위치 && !TCVAR:70:(M_KOJO_K70_GUEST_TCVAR(80, ARG)) && M_KOJO_K70_GUEST_ABLE(80)
	RESULTS = %CALLNAME:80%
	RESULT:1 = 80
	RETURN M_KOJO_K70_BALANCE(70, 80)
ENDIF
FOR LOCAL, 1, 10
	;霊夢(1),魔理沙(11),紫(26),文(29),마미조(69),阿求(80)
	CHARA = TARGET:LOCAL
	IF GROUPMATCH(CHARA, 1, 11, 26, 29, 69, 80) && !TCVAR:70:(M_KOJO_K70_GUEST_TCVAR(CHARA, ARG)) && M_KOJO_K70_GUEST_ABLE(CHARA)
		RESULTS = %CALLNAME:CHARA%
		RESULT:1 = CHARA
		;台詞を先に考えてたらくわからん分岐になってしまった
		;연모の小鈴と동행中(デート含む)
		IF CFLAG:70:동행 && TALENT:70:연모
			RETURN 4
		;鈴奈庵でゲストと동행中
		ELSEIF CFLAG:CHARA:동행 && M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 1
			RETURN 3
		;ゲストとデート中
		ELSEIF CFLAG:CHARA:동행 && FLAG:데이트상대 == CHARA
			RETURN 2
		;연모のゲストと동행中
		ELSEIF CFLAG:CHARA:동행 && TALENT:CHARA:연모
			RETURN 2
		;小鈴が연모
		ELSEIF TALENT:70:연모
			RETURN 4
		ELSE
			RETURN 1
		ENDIF
	ENDIF
NEXT

;ゲスト可否
@M_KOJO_K70_GUEST_ABLE(ARG)
#FUNCTION
;수면中
SIF CFLAG:ARG:수면
	RETURNF 0
SIF CFLAG:70:수면
	RETURNF 0
;동침중
SIF CFLAG:ARG:동침중
	RETURNF 0
SIF CFLAG:70:동침중
	RETURNF 0
;浴場
SIF BATHCHECK(CFLAG:MASTER:현재위치)
	RETURNF 0
RETURNF 1

;ゲストキャラ変換用
@M_KOJO_K70_GUEST_TCVAR(ARG, ARG:1)
#FUNCTION
VARSET LOCAL
SELECTCASE ARG
;霊夢
CASE 1
	LOCAL = 361
;魔理沙
CASE 11
	LOCAL = 362
;紫
CASE 26
	LOCAL = 363
;文
CASE 29
	LOCAL = 364
;마미조
CASE 69
	LOCAL = 365
;阿求
CASE 80
	LOCAL = 366
ENDSELECT
SIF ARG:1
	LOCAL += 10
RETURNF LOCAL

;関係性比較関数,小鈴と阿求にしか使ってないけど一応汎用できるうに
@M_KOJO_K70_BALANCE(ARG:1, ARG:2)
#FUNCTION
;ARG:1	主対象
;ARG:2	比較対象
;独占
IF TALENT:(ARG:1):연인
	RETURNF 8
;悲恋
ELSEIF TALENT:(ARG:2):연인 && TALENT:(ARG:1):연모
	RETURNF 7
;揶揄
ELSEIF TALENT:(ARG:2):연인
	RETURNF 6
;信頼
ELSEIF TALENT:(ARG:1):연모 && (TALENT:(ARG:2):연모 || TALENT:(ARG:2):사모) && CFLAG:(ARG:1):신뢰도 > 1000
	RETURNF 5
;敵対
ELSEIF TALENT:(ARG:1):연모 && (TALENT:(ARG:2):연모 || TALENT:(ARG:2):사모)
	RETURNF 4
;연모
ELSEIF TALENT:(ARG:1):연모
	RETURNF 3
;応援
ELSEIF TALENT:(ARG:2):연모
	RETURNF 2
;平穏
ELSE
	RETURNF 1
ENDIF

;挨拶
@M_KOJO_K70_AISATSU()
#FUNCTIONS
SELECTCASE TIME
CASE 240 TO 599
	RETURNF "좋은 아침이에요"
CASE 600 TO 1079
	RETURNF "안녕하세요"
CASEELSE
	RETURNF "안녕하세요"
ENDSELECT

;お料理できました, ARG = GOOD or NOT GOOD
@M_KOJO_K70_DEKIMASITA(ARG)
IF ARG
	SELECTCASE RAND:4
	CASE 1
		PRINTFORML 「네,완성입니다♪」
	CASE 2
		PRINTFORML 「이런 물건이었던 걸까요～」
	CASE 3
		PRINTFORML 「해냈습니다～！」
	CASEELSE
		PRINTFORML 「이것으로 완성입니다！」
	ENDSELECT
ELSE
	SELECTCASE RAND:4
	CASE 1
		PRINTFORML 「후우, 피곤하네요……」
	CASE 2
		PRINTFORML 「이런 느낌은 어떨까요」
	CASE 3
		PRINTFORML 「해, 해냈어요～！」
	CASEELSE
		PRINTFORML 「우선은 이것으로 완성입니다……」
	ENDSELECT
ENDIF

;部屋から追い出し
@M_KOJO_K70_KOSUZU_BURST
BASE:70:분노 += MAXBASE:70:분노
CALL M_KOJO_K70_YAMETEKUDASAI(70, 8, 1)
CALL GETOUT(MASTER)

;付き添いゲストキャラ算出,分岐用と似てるけど扱いが異なるので注意,ゲストキャラ以外はゼロ
@M_KOJO_K70_FOLLOWER
#FUNCTION
#DIM CHARA
;阿求(80)は最優先
SIF CFLAG:80:동행
	RETURNF 80
;霊夢(1),魔理沙(11),紫(26),文(29),마미조(69),阿求(80)
FOR LOCAL, 1, 10
	CHARA = TARGET:LOCAL
	SIF GROUPMATCH(CHARA, 1, 11, 26, 29, 69, 80) && CFLAG:CHARA:동행
		RETURNF CHARA
NEXT
RETURNF 0

;반감をPALAMLVごと上げる処理,一応汎用性あり
@M_KOJO_K70_YAMETEKUDASAI(ARG, ARG:1, ARG:2)
;ARG	上げるキャラ
;ARG:1	上げるLV量
;ARG:2	0=CUP, 1=PALAM
;コマンド等の精算前ならCUPにすることでソースに表示されたり刻印取得に関わる,そうできない場合はPALAMを直接上げる
SIF ARG:1 <= 0
	RETURN
LOCAL = PALAMLV:(GETPALAMLV(PALAM:ARG:반감, 15) + ARG:1) - PALAMLV:(GETPALAMLV(PALAM:ARG:반감, 15))
;반감ゼロの時は最低でも+2する
SIF ARG:1 == 1 && GETPALAMLV(PALAM:ARG:반감, 15) == 0
	LOCAL = PALAMLV:2
IF ARG:1
	PALAM:ARG:반감 += LOCAL
ELSE
	CUP:ARG:반감 += LOCAL
ENDIF

;새드끼小鈴ちゃん,一応汎用化
@M_KOJO_K70_SADISTIC(ARG)
#FUNCTION
SIF ABL:ARG:새드끼 >= 3 && ABL:ARG:새드끼 > ABL:ARG:마조끼 + 1
	RETURNF 1

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

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

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

;眠姦口上有、時間停止口上有、なりきりに1を入れると、それぞれ時間停止時、眠姦時、なりきり時にコマンド口上が読み込まれるように
;入れないと時間停止時、眠姦時、なりきり時は一切喋りません
;CFLAG:X:眠姦口上有 = 0
;CFLAG:X:時間停止口上有 = 0
;CFLAG:X:なりきり口上有 = 0

;破瓜キャンセル口上有に1を入れると、@M_KOJO_EVENT_KX_LOST_VIRGIN_STOPでキャンセルの成否を操作できます
;CFLAG:X:破瓜キャンセル口上有 = 0

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

;押し倒し禁止に1を入れると、自分から押し倒してこなくなります
;以下は恋慕かセフレがつくまで押し倒してこなくなる使用例
;IF !TALENT:X:恋慕 && !TALENT:X:セフレ
;	CFLAG:X:押し倒し禁止 = 1
;ELSE
;	CFLAG:X:押し倒し禁止 = 0
;ENDIF

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

;### 口上色判定 ###################################
@M_KOJO_COLOR_K70
;甚三紅(じんざもみ)っていうらしい
SETCOLOR 0xEE827C

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K70
#DIM VERSION
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合,キャラ番号の指定が必要になります
VERSION = 116
SIF TALENT:70:연모 || TALENT:70:애욕 || TALENT:70:섹프 >= 2
	CFLAG:70:1006 = 1
CALL M_KOJO_COLOR_K70
IF !TALENT:70:키스미경험 || EXP:70:키스경험
	SIF FIRSTTIME("ファーストキス", 0, 70)
		PRINTFORML ・이 데이터의 코스즈는 키스를 경험한 적이 있습니다
ENDIF
IF EXP:70:정음경험
	SIF FIRSTTIME("精液の味", 0, 70)
		PRINTFORML ・이 데이터의 코스즈는 정액의 맛을 알고 있습니다
ENDIF
RESETCOLOR
IF CFLAG:70:1100 == VERSION
	CALL M_KOJO_COLOR_K70
	PRINTFORML 최신 버전입니다(ver.{CFLAG:70:1100 / 100}.{CFLAG:70:1100 % 100})
	RESETCOLOR
ELSE
	SIF !CFLAG:70:1002
		CFLAG:70:1002 = DAY
	IF !CFLAG:70:1004 && ABL:70:친밀
		PRINTFORML 코스즈에게 자기소개는 마친 이후로 해둘까요？
		PRINTL [1] - 네
		PRINTL [0] - 아니요
		INPUT
		IF RESULT
			CFLAG:70:1004 = 1
			PRINTFORMW 자기 소개는 이미 마쳤습니다
		ELSE
			PRINTFORMW 조만간 자기 소개를 하게 될 것 같습니다
		ENDIF
	ENDIF
	IF !CFLAG:70:1005 && ABL:70:친밀
		PRINTFORML 코스즈가 있는 스즈나안에 방문하신 것으로 하시겠어요？
		PRINTL [1] - 네
		PRINTL [0] - 아니요
		INPUT
		IF RESULT
			PRINTFORML 어느 정도로 방문하셨던 걸로 하시겠어요？(현재로서는 별 의미가 없습니다)
			PRINTL [5] - 잔뜩 방문했지
			PRINTL [3] - 적당적당하려나
			PRINTL [1] - 적으려나
			PRINTL [0] - 역시 그만둘래
			INPUT
			CFLAG:70:1005 = ABL:70:친밀 * LIMIT(RESULT, 0, 5)
		ENDIF
		PRINTFORMW 현재 당신의 방문경험은 {CFLAG:70:1005} 회입니다
	ENDIF
	IF TALENT:70:술내성 != -1
		PRINTFORML [술에 약함]소질을 붙여도 좋을까요？
		PRINTL [1] - 상관없어
		PRINTL [0] - 안돼
		INPUT
		IF RESULT
			TALENT:70:술내성 = -1
			CALL M_KOJO_COLOR_K70
			PRINTFORMW 「아하♪」
			RESETCOLOR
		ELSE
			PRINTPLAIN [332]술을 대접한다 구상에 부자연스러움이 생깁니다。양해들 부탁드려요
			PRINTW
		ENDIF
	ENDIF
	IF RELATION:70:80 < 200
		PRINTFORML 작품 내에서 연관이 있는 캐릭터와의 궁합을 변경해도 좋을까요？
		PRINTL [1] - 상관없어
		PRINTL [0] - 안돼
		INPUT
		IF RESULT
			;めんどくさいので無駄多いけど80番まで回す
			FOR LOCAL, 1, 81
				IF GROUPMATCH(LOCAL, 1, 11, 26, 29, 69, 80)
					PRINTFORM %CALLNAME:LOCAL, 12, LEFT%{RELATION:70:LOCAL, 3}\% →
					IF LOCAL < 30
						RELATION:70:LOCAL = 120
					ELSEIF LOCAL == 69
						RELATION:70:LOCAL = 150
					ELSEIF LOCAL == 80
						RELATION:70:LOCAL = 200
					ENDIF
					PRINTFORML {RELATION:70:LOCAL, 3}\%
				ENDIF
			NEXT
			PRINTFORMW 이상과 같이 되었습니다
		ELSE
			PRINTFORMW 변경하지 않았습니다
		ENDIF
	ENDIF
	CFLAG:70:1100 = VERSION
	CALL M_KOJO_COLOR_K70
	PRINTFORML UPDATE완료！(ver.{CFLAG:70:1100 / 100}.{CFLAG:70:1100 % 100})
	RESETCOLOR
ENDIF
RETURN 1

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

;小鈴バースト,最低の出会いですが辻褄合わせに……初期のイベントはごっちゃになる
IF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 3
	PRINTFORMW 「에……？ 누구……？」
	PRINTL
	PRINTFORMDL 갑자기 돌아온 방 주인과 마주치고 말았다！
	PRINTW
	PRINTFORMW 「도, 도두ーーーー욱！！！！！」
	CALL M_KOJO_K70_KOSUZU_BURST
;鈴奈庵
ELSEIF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 1
	PRINTFORMW 「어서오세요ー！」
	PRINTFORMW (！　본 적 없는 손님이네요……)
	PRINTFORMW (요괴는… 아닌 것 같지만요……)
	PRINTL
	PRINTFORMW 「저, 저기, 손님, 잠시만 기다려주세요」
	PRINTFORMW 「손님, 처음으로 당점에 방문해주셨네요」
	PRINTFORMW 「혹시 저희 매장의 신상품을 찾으시는 걸까요？」
	PRINTFORMW 「"마을 사람"으로는 보이지 않습니다만"……」
	PRINTL
	PRINTFORMDL %마스터는% 간단한 자기소개를 했다
	PRINTW
	IF MAIN_MAP == 2
		PRINTFORMW 「에엣！ ㄱ, 그 정말로 실례했습니다……」
		PRINTFORMW 「ㅇ, 아뇨, 그게 사실 이 가게에는 "인간"이 아닌 분들도 방문하는 경우가 있어서요……」
		PRINTFORMW 「마을에서 보지 못했던 분은 자연스럽게 경계하게 되어버립니다……」
		PRINTFORML 「사죄의 표현이라고 하기에는 그렇습니다만, 손님에게도 신상품을 대출해드릴테니」
		PRINTFORMW 「아무쪼록 앞으로도 많은 방문을 부탁드릴게요……」
	ELSE
		PRINTFORMW 「아, 그랬던 거네요」
		PRINTFORMW 「환상향에 그런 분이 살고 계신지는 몰랐어요」
		PRINTFORML 「아, 마을 밖에 살고 계시다면, 신상품도 대출해드릴 수 있으니까요ー！」
		PRINTFORMW 「부디 앞으로도 많은 방문을 부탁드려요ー！」
	ENDIF
	;来店経験
	CFLAG:70:1005 ++
	;自己紹介
	CFLAG:70:1004 = 1
;危ない所
ELSEIF M_KOJO_K70_ABUNAAI(CFLAG:70:현재위치)
	PRINTFORMW 「ㅈ, 저기～……　실례합니다ー아……」
	PRINTL
	PRINTFORMDL 부르는 목소리에 뒤돌아보자, 한 소녀가 불안한듯 서 있었다
	PRINTW
	PRINTFORMW 「엣……　그, 인간 분이신거지요…？」
	PRINTFORMW 「마을 밖으로 책을 회수하러 왔지만, 어느샌가 헤매어 버리고 말았습니다……」
	PRINTFORMW 「사람이 있다는 건 이 근처는 안전하다는거네요……　다행입니다～」
	PRINTFORMW 「아！ 저는 모토오리 코스즈라고 해요！」
	PRINTFORMW 「인간 마을에서 대본소(대여점)을 하고 있으니, 괜찮으시다면 한번 들려주세요！」
	;遭遇イベント
	CFLAG:70:1003 = 1
;それ以外,人里・寺・神社(外出先は神社と人里のみ)
ELSE
	PRINTFORMW 「%M_KOJO_K70_AISATSU()%ー」
	PRINTFORMW 「에또, 보지 못했던 것 같은데, 처음 뵙겠습니다, 일까요？」
	PRINTL
	PRINTFORMDL %마스터는% 간단히 자기 소개를 했다
	PRINTW
	PRINTFORMW 「아하,그랬던거네요」
	PRINTFORMW 「아, 저는 모토오리 코스즈라고 해요」
	PRINTFORMW 「인간 마을에서 대본소(대여점)을 하고 있으니, 괜찮으시다면 한번 들려주세요！」
	;自己紹介
	CFLAG:70:1004 = 1
ENDIF
;最後にあった日
CFLAG:70:1002 = DAY
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS(合意も付く)
;==================================================
@M_KOJO_SPEVENT_K70_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
IF LOCAL
	PRINTL
	PRINTFORMDL 데이트를 끝내고 돌아오는 길, 코스즈의 발걸음이 불안해보이기에 어떻게 된 일인지 뒤돌아보자 발걸음이 멈추었다
	PRINTW
	IF TALENT:70:연모
		PRINTFORMW 「%CALLNAME:MASTER%씨, 오늘은 \@ TCVAR:70:354 ? 같이 어울려주셔서 # 데이트를 신청해주셔서 \@ 감사했어요」
		IF EXP:70:데이트경험 < 30
			PRINTFORMW 「저, 평소에는 일을 제외하면 외출하는 경우가 없어서, 무척이나 신선하고 즐거운 기분이었어요」
			PRINTFORMW 「하지만, %CALLNAME:MASTER%씨에게 리드만 받았으니까, 거치적거린다고 여겨진것이 아닐까 해서……」
		ELSE
			PRINTFORMW 「저는 즐길 수 있었지만, 리드해주시기만 하셔서, 거치적거렸겠지요……」
		ENDIF
		PRINTFORMW 「그러니까, 오늘은 그, 답례를 하고 싶어서…… 그것을 생각하고 있다가……」
		PRINTL
		PRINTFORMDL 그렇게 말을 하면서 코스즈는 바로 앞으로 다가와, %CALLNAME:MASTER%의 목덜미를 끌어안아 잡아당겼다
		PRINTW
		PRINTW
		SETCOLOR 255, 100, 255
		PRINTFORML 츄우…%UNICODE(0x2764)%
		CALL M_KOJO_COLOR_K70
		PRINTW
		PRINTFORMW 「에헤헤,겨우 사례해드릴 수 있었네요……%UNICODE(0x2764)%」
		IF FIRSTTIME("ファーストキス")
			PRINTFORML (아아아… 키스해버렸어…… 내 처음이었는데…… %CALLNAME:MASTER%씨에게……)
			PRINTFORMW (키스는 이렇게나…… 달콤한 거였구나…… %UNICODE(0x2764)%)
			CSTR:70:첫키스상실이력 = %PRINT_DATE_F(DAY)%, %DATENAME_PLACE()%에서 처음으로 사랑을 하게 되어버렸고, 그래서 데이트에서 돌아오는 길에 용기를 내어 %CALLNAME:MASTER%에게 첫 키스를 바쳤다
        ENDIF
	ELSE
		PRINTFORMW 「%CALLNAME:MASTER%씨, 오늘은 \@ TCVAR:70:354 ? 어울려주셔서 # 권유해주셔서 \@ 감사했어요」
		IF EXP:70:데이트경험 < 30
			PRINTFORMW 「저, 평소에는 일을 제외하면 외출하는 경우가 없어서, 무척이나 신선하고 즐거운 기분이었어요」
			PRINTFORMW 「하지만, %CALLNAME:MASTER%씨에게 리드만 받았으니까, 거치적거린다고 여겨진것이 아닐까 해서……」
		ELSE
			PRINTFORMW 「저는 즐길 수 있었지만, 리드해주시기만 하셔서, 거치적거렸겠지요……」
		ENDIF
		PRINTFORMW 「제가 할 수 있는 일 같은 건 아무것도 없고…… 그……」
		PRINTFORMW 「ㅇ, 아무것도 아니에요！ 그러니까, 저기, 이번에, 뭔가 사례를 하고 싶어서요…… 아하하」
		TCVAR:70:키스캔슬 = 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;デート帰りに告白(연인が付く)
;==================================================
@M_KOJO_SPEVENT_K70_2(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		;初回
		IF FIRSTTIME("告白")
			PRINTL
			PRINTFORMDW 데이트를 끝내고 돌아오는 길, 코스즈의 발걸음이 불안해 보이기에 어떻게 된 일인지 뒤돌아보자 발걸음이 멈추었다
			PRINTFORMDL 이럴 때의 그녀는 무언가를 고민하고 있는 중인 것이다
			PRINTFORMDL 그렇게 생각한 %마스터는% 걱정을 하면서 코스즈를 정면에 두는 자세로, 천천히 마주보았다
			PRINTW
			PRINTFORMW 「%CALLNAME:MASTER%씨…… ㅈ, 저기……」
			PRINTFORMW 「저기…… 저…… 아……」
			PRINTFORMW 「ㅈ, 좋아해요！ 저, %CALLNAME:MASTER%씨를 좋아해요！！」
			PRINTFORMW 「지, 진심입니다！ 누구에게도 지고 싶지 않아요, 누구에게도 빼앗기고 싶지 않아요！」
			PRINTFORMW 「%CALLNAME:MASTER%씨가 없을 때도…… %CALLNAME:MASTER%씨가 다른 여자들과 대화하고 있을 때도……」
			PRINTFORMW 「가슴이 조여드는 것만 같아서…… 괴로워요…… 그러니까……」
			PRINTFORMW 「그러니까 %CALLNAME:MASTER%씨！ 저의…… 저만의 애인이 되어주세요！」
		ELSE
			PRINTL
			PRINTFORMDW 데이트에서 돌아오는 길, 코스즈의 발걸음이 불안해보인다
			PRINTFORMDL 짐작 가는 것은 있다.　그녀는 아직 단념하지 못한 것이겠지
			PRINTW
			PRINTFORMW 「%CALLNAME:MASTER%씨…… 저로서는 안되는 건가요……？」
			PRINTFORMW 「언제나 이렇게 데이트를 해주시는데도……」
			PRINTFORMW 「기뻐요…… 기쁘지만…… 역시 괴로워요……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー(연인が付く)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;お断りしてない
		IF FIRSTTIME("返答")
			PRINTFORMW 「저…… 정말인가요……？」
			PRINTFORMW 「우, 기뻐요…… 다행이야……」
			PRINTFORMW 「저, 거절당해버리면 어떻게 하지…… 계속 무서워서……」
			PRINTFORMW 「그래도, 제대로 말할 수 있어서 다행이었어요…… %CALLNAME:MASTER%씨가 받아들여주셔서…… 정말로 다행이에요……」
		;お断りしたことある
		ELSE
			PRINTFORMW 「엣…… 지금…… 뭐라고……」
			PRINTFORMW 「저, 정말인가요……？ 괘, 괜찮은건가요……？」
			PRINTFORMW 「웃, 기뻐요…… 다행이야……」
			PRINTFORMW 「저, 미움을 받아버린 건 아닐까…… 계속 무서워서……」
			PRINTFORMW 「그래도, 희망을 버리지 않아서 다행이었습니다…… %CALLNAME:MASTER%씨가 받아들여주셔서…… 정말로 다행이에요……」
		ENDIF
		PRINTFORML 「후후……%UNICODE(0x2764)% 앞으로,무슨 일들이 있을지는 모르겠지만요」
		PRINTFORMW 「계속 함께하도록 해요♪ %CALLNAME:MASTER%씨%UNICODE(0x2764)%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;初めてのお断り
		IF FIRSTTIME("返答")
			PRINTFORMW 「그런…… 가요……」
			PRINTFORMW 「으응…… 좋습니다…… %CALLNAME:MASTER%씨가 그렇게 말하신다면……」
			PRINTFORMW 「그래도 저, 포기하지 않으니까요……！」
			PRINTFORMW 「언젠가 %CALLNAME:MASTER%씨에게 어울리는 여자가 되어보이겠어요……！」
			PRINTFORMW 「그러니까…… 우읏…… 우으……」
		;お断り二回目以降
		ELSE
			PRINTFORMW 「…………아니요…… 저야말로…… 죄송해요……」
			PRINTFORMW 「끈질긴 여자는 미움을 받는 거니까요……」
			PRINTFORMW 「그렇지만 %CALLNAME:MASTER%씨와 시간을 보내고 있으면…… 괴로워져서……」
			PRINTFORMW 「%CALLNAME:MASTER%씨의…… 상냥함이 괴로워요……」
			PRINTFORMW 「그러니까…… 우읏…… 큭……」
		ENDIF
		;泣かせんな
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K70_3(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		IF MAIN_MAP == 2 || FLAG:더부살이캐릭터 == 70
			PRINTFORML 「후우, 다녀왔습니다」
		ELSE
			PRINTFORML 「후우, 수고하세요」
		ENDIF
		;お誘いした
		IF TCVAR:70:354
			PRINTFORMW 「오늘은 어울려주셔서 감사했어요！ 또 같이 외출하도록 해요♪」
		ELSE
			PRINTFORMW 「오늘은 정말 즐거웠어요！ 또 연락해 주세요♪」
		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_K70_1(ARG,ARG:1)
#DIM フキゲン
#DIM 嫉妬フキゲン
フキゲン = 0
嫉妬フキゲン = 0
;口上主はTARGET
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
IF LOCAL
	;やたら分岐あるけど全部正常に動くか確認できてない
	;まぁ変なの表示されたりしてなければ多少の死に分岐くらいは気にしない
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた＆TARGETが入ってきた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG == 1 || ARG == 2) && !GETBIT(TCVAR:70:360, 3)
		CALL M_KOJO_EVENT_K70_1_MAINMAP(ARG)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 0
	;-------------------------------------------------

		;統合しました

	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「앗！！ %CALLNAME:MASTER%씨잇！ 죄, ㅈㅈ죄, 죄송합니다앗！！」
		PRINTFORMW 「엣…… 같이 있어도 되는 건가요……？」
		PRINTFORMW 「ㄱ, 그러면 호의를 감사히 여겨서……\/\/\/」
		CALL M_KOJO_EVENT_K70_1_END
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「앗！！ %CALLNAME:MASTER%씨！ 죄, ㅈㅈ죄, 죄송합니다앗！！」
		PRINTFORMW 「아, 아무것도 보지 못했어요！ ㅅ, 실례했습니다ーー앗！！」
		CALL M_KOJO_EVENT_K70_1_END
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;謎の設定
		PRINTFORML 「앗！！ %CALLNAME:MASTER%씨잇！」
		PRINTFORMW 「지금은 여성이 사용하는 시간이에요! 빨리 나와주세요！！」
		CALL M_KOJO_EVENT_K70_1_END
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6 && !GETBIT(TCVAR:70:360, 3)
		;ハロウィン優先
		IF DAY:2 == 3 && DAY:3 == 30
			CALL M_KOJO_EVENT_K70_1_HALLOWEEN
		;鈴奈庵
		ELSEIF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 1
			CALL M_KOJO_EVENT_K70_1_ENTER_SUZUNAAN(M_KOJO_K70_FOLLOWER())
		ELSE
			PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%\@ TALENT:70:연모 ? ！ # \@」
		ENDIF
		;バレンタイン
		SIF DAY:2 == 4 && DAY:3 == 14
			CALL M_KOJO_EVENT_K70_1_VALENTINE
		CALL M_KOJO_EVENT_K70_1_END
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1에 데이트상대
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7 && !GETBIT(TCVAR:70:360, 3)
		;ハロウィン優先
		IF DAY:2 == 3 && DAY:3 == 30
			CALL M_KOJO_EVENT_K70_1_HALLOWEEN
		;鈴奈庵
		ELSEIF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 1
			CALL M_KOJO_EVENT_K70_1_ENTER_SUZUNAAN(M_KOJO_K70_FOLLOWER())
		ELSE
			;霊夢(1),魔理沙(11),紫(26),文(29),마미조(69),阿求(80)
			IF FLAG:데이트상대 == 80
				;5の扱いが鈴奈庵で遭う時と異なってるのは仕様
				PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%\@ TALENT:70:연모 ? ！ # \@」
				SELECTCASE M_KOJO_K70_BALANCE(70, 80)
				CASE 8, 5
					PRINTFORML 「어라, 오늘은 아큐와 데이트인가요～？」
					PRINTFORMW 「후ー응, %CALLNAME:MASTER%씨라면 틀림없이 보람이 있겠지요」
					PRINTFORMW 「뭐, 저도 그 정도로 일일이 눈을 흘기거나 하지는 않을 테니까요ー」
					PRINTFORMW 「그리고 아큐는 소중한 친구니까요. 다소 허튼짓을 하는 정도는 신경쓰지 않아요♪」
				CASE 7
					嫉妬フキゲン = 1
					フキゲン = 2
					PRINTFORMW 「오늘도 아큐와 함께이신 거네요」
					PRINTFORMW 「아하하, 방해는 하지 않을테니까요……」
				CASE 6
					PRINTFORML 「어라, 아큐 아냐」
					PRINTFORMW 「오늘도 데이트？ 뜨거워라～」
					PRINTFORMW 「무슨 일이 있으면 우리 쪽에 왔었던 걸로 해줄테니까♪」
				CASE 4, 3
					嫉妬フキゲン = 1
					フキゲン = M_KOJO_K70_BALANCE(70, 80) - 2
					PRINTFORMW 「라고나 할까, 어째서 아큐까지 있는거야」
				CASE 2
					PRINTFORMW 「어라, 아큐도 함께인거네」
					PRINTFORMW 「혹시 오늘은 데이트인 걸까～？」
				CASE 1
					PRINTFORMW 「어라, 아큐도 함께인거네」
				ENDSELECT
			ELSEIF TALENT:70:연모
				PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%……」
				IF FLAG:데이트상대 == 1
					PRINTFORML 「오늘은 레이무 씨도 함께시네요」
					PRINTFORMW 「왜 두 분이 무슨 일이신가요？」
				ELSEIF FLAG:데이트상대 == 11
					PRINTFORML 「오늘은 마리사 씨도 함께인 건가요」
					PRINTFORMW 「두 분은 무슨 일이신가요？」
				ELSEIF FLAG:데이트상대 == 26
					PRINTFORML 「ㅇ, 유카리 씨와도 함께인 건가요… %M_KOJO_K70_AISATSU()%……」
					PRINTFORMW (유괴 같지는 않아……라고 할까 어떻게 봐도 이건…… 읏～！)
				ELSEIF FLAG:데이트상대 == 29
					PRINTFORML 「아야 씨도 함께인 건가요… %M_KOJO_K70_AISATSU()%……」
					PRINTFORMW (취재라고 보기에는 너무 밀착 상태네요…… 이건 역시…… 읏～！)
				ELSEIF FLAG:데이트상대 == 69
					PRINTFORML 「마, 마미조 씨도 함께 온 건가요… %M_KOJO_K70_AISATSU()%……」
					PRINTFORMW (%CALLNAME:MASTER%씨 괜찮으신 걸까나…… 손을 잡고 있고…… 읏～！)
				ELSE
					TALENT:70:기분 = MIN(TALENT:70:기분, 0)
					PRINTFORMW （우～……누구인가요 그\@ TALENT:(FLAG:데이트상대):체형 >= 0 ? 사람 # 여자아이 \@～！）
;					SIF TALENT:(FLAG:데이트 상대):종족
;						PRINTFORMW (요괴는 아닌걸까… %CALLNAME:MASTER%씨가 걱정이네……)
				ENDIF
			ELSE
				PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%」
				IF FLAG:데이트상대 == 1
					PRINTFORMW 「어라, 레이무 씨도 함께네요」
				ELSEIF FLAG:데이트상대 == 11
					PRINTFORMW 「어라, 마리사 씨와도 함께네요」
				ELSEIF FLAG:데이트상대 == 26
					PRINTFORMW 「엣, 유, 유카리 씨와도 함께인 건가요……」
				ELSEIF FLAG:데이트상대 == 29
					PRINTFORMW 「어라, 아야 씨와도 함께인가요?」
				ELSEIF FLAG:데이트상대 == 69
					PRINTFORMW 「엣, 마미조 씨와도 함께인가요……」
				ELSE
					;とくになし
				ENDIF
			ENDIF
		ENDIF
		;バレンタイン
		SIF DAY:2 == 4 && DAY:3 == 14
			CALL M_KOJO_EVENT_K70_1_VALENTINE
		CALL M_KOJO_EVENT_K70_1_END
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MAIN_MAP上で一日最初の挨拶
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		;▼とりあえず封印
;		CALL M_KOJO_EVENT_K70_1_MAINMAP
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で一日最初の挨拶
	;ARG:1に데이트상대
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 0
	;-------------------------------------------------
;일시 동결
;	IF LOCAL:1 && ARG == 9
;		;데이트상대なし
;		IF !ARG:1
;			;ハロウィン優先
;			IF DAY:2 == 3 && DAY:3 == 30
;				CALL M_KOJO_EVENT_K70_1_HALLOWEEN
;			;鈴奈庵
;			ELSEIF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 1
;				CALL M_KOJO_EVENT_K70_1_ENTER_SUZUNAAN(M_KOJO_K70_FOLLOWER())
;			ELSE
;				PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%\@ TALENT:70:연모 ? ！ # \@」
;				;バレンタイン
;				SIF DAY:2 == 4 && DAY:3 == 14
;					CALL M_KOJO_EVENT_K70_1_VALENTINE
;			ENDIF
;		;데이트상대あり
;		ELSE
;			;ハロウィン優先
;			IF DAY:2 == 3 && DAY:3 == 30
;				CALL M_KOJO_EVENT_K70_1_HALLOWEEN
;			;鈴奈庵
;			ELSEIF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 1
;				CALL M_KOJO_EVENT_K70_1_ENTER_SUZUNAAN(M_KOJO_K70_FOLLOWER())
;			ELSE
;				;霊夢(1),魔理沙(11),紫(26),文(29),마미조(69),阿求(80)
;				IF FLAG:데이트상대 == 80
;					;5の扱いが鈴奈庵で遭う時と異なってるのは仕様
;					PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%\@ TALENT:70:연모 ? ！ # \@」
;					SELECTCASE M_KOJO_K70_BALANCE(70, 80)
;					CASE 8, 5
;						PRINTFORML 「あら,今日は阿求とデートですかぁ～？」
;						PRINTFORMW 「ふーん,%CALLNAME:MASTER%씨てば,さぞ甲斐性があるんでしょうね」
;						PRINTFORMW 「ま,私だってそれくらいでいちいち目くじら立てたりしませんからー」
;						PRINTFORMW 「それに阿求は大切な友達ですからね,多少の徒事は気にしません♪」
;					CASE 7
;						嫉妬フキゲン = 1
;						フキゲン = 2
;						PRINTFORMW 「今日も阿求と一緒なんですね」
;						PRINTFORMW 「あはは,邪魔にならないうにしてますね……」
;					CASE 6
;						PRINTFORML 「あら,阿求じゃない」
;						PRINTFORMW 「今日もデート？ お熱いねぇ～」
;						PRINTFORMW 「なにか앗たらウチに来てたことにしてあげるわ♪」
;					CASE 4, 3
;						嫉妬フキゲン = 1
;						フキゲン = M_KOJO_K70_BALANCE(70, 80) - 2
;						PRINTFORMW 「って,なんで阿求までいるの」
;					CASE 2
;						PRINTFORMW 「あら,阿求も一緒なのね」
;						PRINTFORMW 「ひょっとして今日はデート～？」
;					CASE 1
;						PRINTFORMW 「あら,阿求も一緒なのね」
;					ENDSELECT
;				ELSEIF TALENT:70:연모
;					PRINTFORMW 「あ,%CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%……」
;					IF FLAG:데이트상대 == 1
;						PRINTFORML 「今日は霊夢씨もご一緒ですか」
;						PRINTFORMW 「お二人でどうされたんですか？」
;					ELSEIF FLAG:데이트상대 == 11
;						PRINTFORML 「今日は魔理沙씨もご一緒ですか」
;						PRINTFORMW 「お二人でどうされたんですか？」
;					ELSEIF FLAG:데이트상대 == 26
;						PRINTFORML 「ゆ,紫씨도 같이 계셨던 건가요…%M_KOJO_K70_AISATSU()%……」
;						PRINTFORMW (人攫いじゃないわね……というかどうみてもこれって……う～！)
;					ELSEIF FLAG:데이트상대 == 29
;						PRINTFORML 「文씨도 같이 계셨던 건가요…%M_KOJO_K70_AISATSU()%……」
;						PRINTFORMW (取材にしては密着しすぎね……これってやっぱり……う～！)
;					ELSEIF FLAG:데이트상대 == 69
;						PRINTFORML 「マ,마미조씨도 같이 계셨던 건가요…%M_KOJO_K70_AISATSU()%……」
;						PRINTFORMW (%CALLNAME:MASTER%씨大丈夫かな……手繋いでるし……う～！)
;					ELSE
;						TALENT:70:기분 = MIN(TALENT:70:기분, 0)
;						PRINTFORMW （う～……誰あの\@ TALENT:(FLAG:데이트상대):체형 >= 0 ? 人 # 娘 \@～！）
;	;					SIF TALENT:(FLAG:데이트상대):종족
;	;						PRINTFORMW (妖怪じゃないかしら…%CALLNAME:MASTER%씨が心配だわ……)
;					ENDIF
;				ELSE
;					PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%」
;					IF FLAG:데이트상대 == 1
;						PRINTFORMW 「あら,霊夢씨とご一緒でしたか」
;					ELSEIF FLAG:데이트상대 == 11
;						PRINTFORMW 「あら,魔理沙씨とご一緒でしたか」
;					ELSEIF FLAG:데이트상대 == 26
;						PRINTFORMW 「えっ,ゆ,紫씨もご一緒ですか……」
;					ELSEIF FLAG:데이트상대 == 29
;						PRINTFORMW 「あら,文씨도 같이 계셨던 건가요」
;					ELSEIF FLAG:데이트상대 == 69
;						PRINTFORMW 「えっ,마미조씨もご一緒ですか……」
;					ELSE
;						;とくになし
;					ENDIF
;				ENDIF
;				;バレンタイン
;				SIF DAY:2 == 4 && DAY:3 == 14
;					CALL M_KOJO_EVENT_K70_1_VALENTINE
;			ENDIF
;		ENDIF
;		CALL M_KOJO_EVENT_K70_1_END
;		RETURN 1
;	ENDIF
ENDIF

@M_KOJO_EVENT_K70_1_MAINMAP(ARG)
;不法侵入(친밀ではなく時止めで入った)
IF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 3
	PRINTFORMW 「엣！？」
	PRINTFORMW 「도, 도두ーーーー우우욱！！！」
	CALL M_KOJO_K70_KOSUZU_BURST
	CALL M_KOJO_EVENT_K70_1_END
	RETURN 1
ENDIF
;バレンタイン기분補正
SIF DAY:2 == 4 && DAY:3 == 14
	TALENT:70:기분 = MAX(TALENT:70:기분, 0)
;遭遇イベント
IF CFLAG:70:1003 == 0 && M_KOJO_K70_ABUNAAI(CFLAG:70:현재위치)
	;あまり親しくない場合は初期遭遇
	IF ABL:70:친밀 <= 4
		PRINTFORMW 「저, 저기이～……　죄송합니다……」
		PRINTL
		PRINTFORMDL 불린 목소리에 뒤돌아보니, 스즈나안의 아가씨가 불안한듯 서있었다
		PRINTW
		;自己紹介まだ
		IF CFLAG:70:1004 == 0
			PRINTFORMW 「엣또……　ㅇ, 인간의 편이신가요…？」
			PRINTFORMW 「마을 밖의 책을 회수하러 왔는데, 어느새 길을 잃어버리고 있어서요……」
			PRINTFORMW 「사람이 있다는 것은 이 근처는 안전하다는 것이군요……　다행이다～」
			PRINTFORMW 「아！ 저는, 모리오토 코스즈라고 해요！」
			PRINTFORM 「마을에서 대본소(대여점)을 하고 있습니다！
			IF CFLAG:70:1005 == 0
				PRINTFORMW 괜찮으시다면 한번 방문해주세요！」
			ELSEIF CFLAG:70:1005 == 1
				PRINTFORMW 한 번 와주셨던 분이시네요！ 잘 부탁드립니다！」
			ELSEIF CFLAG:70:1005 <= 4
				PRINTFORMW 몇 번 와주셨던 분이시네요！ 언제나 감사합니다！」
			ELSE
				PRINTFORMW 항상 와주시는 분이시네요！ 언제나 감사합니다！」
			ENDIF
			CFLAG:70:1004 = 1
		ELSE
			PRINTFORMW 「아！ %CALLNAME:MASTER%씨！？ 다행이에요～」
			PRINTFORMW 「실은 마을 밖으로 책을 회수하러 왔더니 어느새 길을 헤매고 있어서요……」
			PRINTFORMW 「어떻게 해야 하나 불안했어요～！ 살았습니다……」
		ENDIF
	;親しい場合は自発的に来訪
	ELSE
		PRINTFORMW 「아！ %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%ー！」
		PRINTFORMW 「에헤헤…… 위험한 곳이라는건 알지만, 놀러와버렸습니다」
		PRINTFORMW 「괜찮아요～！ 무슨 일이 있으면 %CALLNAME:MASTER%씨가 있으니까요, 그렇지요♪」
	ENDIF
	CFLAG:70:1003 = 1
;ハロウィン
ELSEIF DAY:2 == 3 && DAY:3 == 30
	CALL M_KOJO_EVENT_K70_1_HALLOWEEN
;딸딸이들킴
ELSEIF CFLAG:70:딸딸이들킴
	SELECTCASE CFLAG:70:딸딸이들킴
	;えっちした
	CASE 2
		IF TALENT:70:연모
			PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%……\/\/\/」
			;기분補正
			TALENT:70:기분 = 1
		ELSE
			PRINTFORMW 「아, %CALLNAME:MASTER%씨, ㅇ, 아아, 안녕하세요……」
		ENDIF
	;観賞された
	CASE 3
		IF TALENT:70:연모
			PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%……\/\/\/」
		ELSE
			PRINTFORMW 「아, %CALLNAME:MASTER%씨, ㅇ, 아아, 안녕하세요……」
		ENDIF
	;目撃
	CASEELSE
		IF TALENT:70:연모
			PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%……」
			;기분補正
			TALENT:70:기분 = -1
		ELSE
			PRINTFORMW 「아, %CALLNAME:MASTER%씨, ㅇ, 아아, 안녕하세요……」
		ENDIF
	ENDSELECT
;鈴奈庵
ELSEIF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 1
	CALL M_KOJO_EVENT_K70_1_ENTER_SUZUNAAN(M_KOJO_K70_FOLLOWER())
;小鈴の部屋(拠点が人里)
ELSEIF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 2
	;MASTERが入ってきた
	;このパターンは小鈴が사모以上か阿求と一緒に入った時,って阿求以外は사모以上と判定
	IF ARG == 1
		;阿求と一緒に入った,多分条件同じだけど一応
		IF CFLAG:MASTER:현재위치 == CFLAG:80:현재위치 || M_KOJO_K70_FOLLOWER() == 80
			SELECTCASE M_KOJO_K70_BALANCE(70, 80)
			CASE 8, 5, 3
				PRINTFORML 「어라, \@ CFLAG:MASTER:초기위치 == CFLAG:70:초기위치 ? 어서오세요♪ # %CALLNAME:MASTER%씨！ 어서오세요！ \@」
				PRINTFORMW 「그건 그렇고, 아큐도 함께인 건가요」
			CASE 7, 4
;				嫉妬フキゲン = 1
;				フキゲン = 1
				PRINTFORML 「어라, \@ CFLAG:MASTER:초기위치 == CFLAG:70:초기위치 ? 어서오세요♪ # %CALLNAME:MASTER%씨！ 어서오세요！ \@」
				PRINTFORMW 「아…… 아큐도 함께인거네… 요……」
			CASE 6, 3, 1
				IF TALENT:70:연모
					PRINTFORML 「어라, \@ CFLAG:MASTER:초기위치 == CFLAG:70:초기위치 ? 어서오세요♪ # %CALLNAME:MASTER%씨！ 어서오세요！ \@」
					PRINTFORMW 「어라, 뭔가요, 아큐도 함께인 건가요」
				ELSE
					PRINTFORML 「어라, 아큐잖아. 왜 그래？」
					PRINTFORMW 「앗, %CALLNAME:MASTER%씨도 어서오세요」
				ENDIF
			ENDSELECT
		;誰かと一緒に入った(연모)
		ELSEIF CFLAG:MASTER:동행 && TALENT:70:연모
			PRINTFORML 「어라, \@ CFLAG:MASTER:초기위치 == CFLAG:70:초기위치 ? 어서오세요♪ # %CALLNAME:MASTER%씨！ 어서오세요！ \@」
			;霊夢(1),魔理沙(11),紫(26),文(29),마미조(69),阿求(80)
			SELECTCASE M_KOJO_K70_FOLLOWER()
			CASE 1
				PRINTFORML 「라고나 할까, 레이무 씨도 함께인가요」
				PRINTFORMW 「엣또, 무슨 일이신가요？」
			CASE 11
				PRINTFORML 「라고나 할까, 마리사 씨도 함께인가요」
				PRINTFORMW 「엣또, 무슨 일이신가요？」
			CASE 26
				PRINTFORML 「라고나 할까, 에엣！ ㅇ, 유카리씨… %M_KOJO_K70_AISATSU()%……」
				PRINTFORMW 「에ー에또……무슨 일이신가요…？」
			CASE 29
				PRINTFORML 「라고나 할까, 아야씨도 함께인가요……」
				PRINTFORMW 「엣또…… 무슨 일이신가요…？」
			CASE 69
				PRINTFORML 「라고나 할까, 마미조 씨도 함께네요……」
				PRINTFORMW 「에ー라고 할까…… 무슨 일이신가요…？」
			CASEELSE
				PRINTFORMW 「라고나 할까, 일행분과 함께 모시겠습니다… %M_KOJO_K70_AISATSU()%……」
			ENDSELECT
		;誰かと一緒に入った(사모以上)
		ELSEIF CFLAG:MASTER:동행
			SELECTCASE M_KOJO_K70_FOLLOWER()
			CASE 1
				PRINTFORML 「어라,레이무씨,무슨 일이신가요？」
				PRINTFORMW 「앗, %CALLNAME:MASTER%씨도 같이 계셨던 건가요　%M_KOJO_K70_AISATSU()%」
			CASE 11
				PRINTFORML 「어라, 마리사씨,무슨 일이신가요？」
				PRINTFORMW 「앗, %CALLNAME:MASTER%씨도 같이 계셨던 건가요　%M_KOJO_K70_AISATSU()%」
			CASE 26
				PRINTFORML 「히얏！유, 유카리씨…무슨 일이신가요……？」
				PRINTFORMW 「어라, %CALLNAME:MASTER%씨도 함께셨던 건가요…… %M_KOJO_K70_AISATSU()%」
			CASE 29
				PRINTFORML 「와앗！ 아야씨인가요……무슨 일이신가요？」
				PRINTFORMW 「어라, %CALLNAME:MASTER%씨도 같이 계셨던 건가요　%M_KOJO_K70_AISATSU()%」
			CASE 69
				PRINTFORML 「와앗！ 마미조씨…무슨 일이신가요……？」
				PRINTFORMW 「어라, %CALLNAME:MASTER%씨도 같이 계셨던 건가요　%M_KOJO_K70_AISATSU()%」
			CASEELSE
				PRINTFORML 「어라, %CALLNAME:MASTER%씨,무슨 일이신가요？」
				PRINTFORMW 「에-또, 그쪽 분은……？」
			ENDSELECT
		;一人で入った(同居)
		ELSEIF CFLAG:MASTER:초기위치 == CFLAG:70:초기위치
			PRINTFORMW 「어라, %CALLNAME:MASTER%씨, 어서오세요♪」
		;一人で入った(연인)
		ELSEIF TALENT:70:연인
			PRINTFORML 「어머！ %CALLNAME:MASTER%씨, 어서오세요！」
			PRINTFORMW 「에헤헤, 일부러 찾아와주신 거네요～！ 기뻐요～♪」
		;一人で入った(연모)
		ELSEIF TALENT:70:연모
			PRINTFORML 「어머！ %CALLNAME:MASTER%씨, 어서오세요！」
			PRINTFORMW 「에또, 무슨 일이신가요？」
		;一人で入った(사모以上)
		ELSE
			PRINTFORMW 「어머, %CALLNAME:MASTER%씨, 무슨 일이신가요？」
		ENDIF
	;TARGETが入ってきた
	;このパターンは基本的に小鈴が연모か阿求と一緒に入った後,って阿求以外は연모と判定
	;一応時止めで入っていた場合は사모もありうる(사모未満は多分追い出される)
	ELSEIF ARG == 2
		;誰かと二人,小鈴と阿求が同時に入室してくるパターンもあるけど流石にめんどくさいので省略
		IF GET_TARGETNUM() == 2
			PRINTFORML 「어머！ %CALLNAME:MASTER%씨, \@ CFLAG:MASTER:초기위치 == CFLAG:70:초기위치 ? 돌아오셨네요 # 와계셨네요 \@」
			SELECTCASE M_KOJO_K70_FOLLOWER()
			CASE 1
				PRINTFORML 「라고나 할까, 레이무씨도 같이 계셨던 건가요」
				PRINTFORMW 「에또, 무슨 일이신가요？」
			CASE 11
				PRINTFORML 「라고나 할까, 마리사씨도 같이 계셨던 건가요」
				PRINTFORMW 「에또, 무슨 일이신가요？」
			CASE 26
				PRINTFORML 「라고나 할까, 에엣！ 유, 유카리씨… %M_KOJO_K70_AISATSU()%……」
				PRINTFORMW 「엣 또…… 무슨 일이신가요…？」
			CASE 29
				PRINTFORML 「엣, 아야 씨도 함께셨나요……」
				PRINTFORMW 「에 또…… 무슨 일이신가요…？」
			CASE 69
				PRINTFORML 「라고나 할까, 마미조 씨도 함께였나요……」
				PRINTFORMW 「에 또…… 무슨 일이신가요…？」
			CASE 80
				SELECTCASE M_KOJO_K70_BALANCE(70, 80)
				CASE 8, 5, 3, 1
					PRINTFORMW 「라고나 할까, 뭔가요, 아큐도 함께였군요」
				CASE 7, 4
;					嫉妬フキゲン = 1
;					フキゲン = 2
					PRINTFORMW 「아…… 아큐도 함께였던 거네…요……」
				CASE 6
;					嫉妬フキゲン = 1
;					フキゲン = 1
					PRINTFORML 「라고나 할까, 뭔가요, 아큐도 함께였나요」
					PRINTFORMW 「다른 사람의 방을 뭐에 사용하고 있는 건가요……」
				ENDSELECT
			CASEELSE
;				嫉妬フキゲン = 1
;				フキゲン = 1
				PRINTFORMW 「랄까, 같이 오신 분과 계셨던 건가요… %M_KOJO_K70_AISATSU()%……」
			ENDSELECT
		;三人以上
		ELSEIF GET_TARGETNUM() >= 3
			SIF CFLAG:MASTER:초기위치 != CFLAG:70:초기위치
;				フキゲン = 2
			PRINTFORML 「어머, %CALLNAME:MASTER%씨, \@ CFLAG:MASTER:초기위치 == CFLAG:70:초기위치 ? 돌아오셨네요 # 오셨던 거네요 \@」
			PRINTFORMW 「에ー또…… 이 정도로 많은 이들은 도대체……？」
		;一人
		ELSE
			IF CFLAG:MASTER:초기위치 == CFLAG:70:초기위치
				PRINTFORMW 「어머, %CALLNAME:MASTER%씨, 돌아오셨네요」
			ELSEIF TALENT:70:연인
				PRINTFORML 「어머, %CALLNAME:MASTER%씨, 오셨네요」
				PRINTFORMW 「에헤,일부러 와주셨습니까～！ 기쁘네요～♪」
			ELSE
				PRINTFORML 「어머, %CALLNAME:MASTER%씨, 오셨네요」
				PRINTFORMW 「엣,무슨 일이신가요？」
			ENDIF
		ENDIF
	ENDIF
;不기분
ELSEIF TALENT:70:기분 == -1 || CFLAG:70:빡침
	PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%……」
;人里 pr 同じ拠点
ELSEIF INRANGE(CFLAG:70:현재위치, 200, 300) || CFLAG:MASTER:초기위치 / 100 == CFLAG:70:초기위치 / 100
	;自己紹介まだ
	IF CFLAG:70:1004 == 0
		PRINTFORMW 「%M_KOJO_K70_AISATSU()%ー」
	ELSEIF TALENT:70:연인 || TALENT:70:연모
		PRINTFORML 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%ー\@ TALENT:70:연인 ? ♪ # ！ \@」
		SELECTCASE RAND:6
		CASE 0
			PRINTFORMW 「아하하, 잠버릇이 있어요ー」
		CASE 1
			PRINTFORMW 「잠깐 %CALLNAME:MASTER%씨에게 물어보고 싶은 것이 있어서요――」
		CASE 2
			PRINTFORMW 「맞아맞아, 어제 새로운 책이 입고되어서요――」
		CASE 3
			;特に何も変わらないけど
			PRINTFORMW 「에헤헤, 오늘은 조금 인상에 변화를 줘봤습니다！」
		CASE 4
			IF BASE:MASTER:기력 <= MAXBASE:MASTER:기력 / 2
				PRINTFORMW 「……많이 피곤해보이시는데, 괜찮겠어요？」
			ELSE
				PRINTFORMW 「오늘도 건강해보이시네요～！」
			ENDIF
		CASEELSE
			;ちょっと会話と被ってるけど
			;夏
			IF DAY:2 == 2
				PRINTFORMW 「오늘은 한층 더 찌는 날이네요……」
			;冬
			ELSEIF DAY:2 == 4
				PRINTFORMW 「오늘은 한층 더 추운 날이네요……」
			ELSE
				PRINTFORMW 「오늘은 생활하기 좋은 날씨이네요ー」
			ENDIF
		ENDSELECT
	ELSE
		PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%」
	ENDIF
;危ない所
ELSEIF M_KOJO_K70_ABUNAAI(CFLAG:70:현재위치)
	IF TALENT:70:연모
		PRINTFORML 「아, %CALLNAME:MASTER%씨,\@ TALENT:70:연인 ? 만나러 와버렸어요♪ # 놀러왔습니다～！ \@」
		SELECTCASE RAND:4
		CASE 1
			PRINTFORMW 「여전히 이곳의 요기는 오싹오싹 하네요♪」
		CASE 2
			PRINTFORMW 「오늘도 보디가드 역할, 부탁드려요♪」
		CASE 3
			PRINTFORMW 「에헤, 여기도 이제 많이 익숙해졌네요♪」
		CASEELSE
			PRINTFORMW 「후후, %CALLNAME:MASTER%씨가 있으면 무섭지 않아요♪」
		ENDSELECT
	ELSE
		PRINTFORMW 「아, %CALLNAME:MASTER%씨, 놀러와버렸어요～」
	ENDIF
ELSE
	;自己紹介まだ
	IF CFLAG:70:1004 == 0
		PRINTFORMW 「%M_KOJO_K70_AISATSU()%ー」
	ELSEIF TALENT:70:연인
		PRINTFORMW 「아, %CALLNAME:MASTER%씨, 만나러 와버렸습니다♪」
	ELSEIF TALENT:70:연모
		PRINTFORMW 「아, %CALLNAME:MASTER%씨, 놀러와버렸어요～！」
	ELSE
		PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%」
	ENDIF
ENDIF
;バレンタインチョコ
SIF DAY:2 == 4 && DAY:3 == 14
	CALL M_KOJO_EVENT_K70_1_VALENTINE
CALL M_KOJO_EVENT_K70_1_END

;鈴奈庵に来店
@M_KOJO_EVENT_K70_1_ENTER_SUZUNAAN(付き添い)
#DIM 付き添い
;霊夢(1),魔理沙(11),紫(26),文(29),마미조(69),阿求(80)
IF 付き添い == 80
	PRINTFORML 「어서 오세요……」
	SELECTCASE M_KOJO_K70_BALANCE(70, 80)
	CASE 8, 5
		PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%！」
		PRINTFORML 「아큐도 어서와」
		PRINTFORMW 「일부러 %CALLNAME:MASTER%씨를 데려온거야？ 에헤헤, 너의 그런 점, 좋아하는걸」
		TALENT:70:기분 = 1
	CASE 7
		PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%！」
		PRINTFORML 「……오늘도 아큐와 함께인 거네요」
		PRINTFORMW 「와주시는 것은 기쁘지만, 데이트라면 이런 곳보다 좋은 곳들이 있어요?」
	CASE 6
		PRINTFORMW 「어머, 아큐 아니야」
		PRINTFORMW 「오늘도 데이트? 뜨거운걸～」
	CASE 4, 3
		PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%！」
		PRINTFORMW 「랄까, 어째서 아큐까지 있는거야」
	CASE 2
		PRINTFORMW 「어라, 아큐 아니야」
		PRINTFORML 「오늘은 %CALLNAME:MASTER%씨와 데이트？」
		PRINTFORMW 「후후, 천천히 있다가 가도록 해」
	CASE 1
		PRINTFORMW 「뭐야, 아큐잖아」
		PRINTFORMW 「앗, %CALLNAME:MASTER%씨도 어서오세요！」
	ENDSELECT
ELSEIF TALENT:70:연모
	PRINTFORML 「어서오세요……」
	IF 付き添い == 1
		PRINTFORML 「아… %CALLNAME:MASTER%씨와, 레이무 씨인가요……」
		PRINTFORMW 「두 분, 오늘은 무슨 일로 오셨나요？」
	ELSEIF 付き添い == 11
		PRINTFORML 「아… %CALLNAME:MASTER%씨와, 마리사 씨인가요……」
		PRINTFORMW 「두 분은 오늘은 무슨 일로 오셨나요？」
	ELSEIF 付き添い == 26
		PRINTFORML 「어머,%CALLNAME:MASTER%씨와, 유카리씨…？」
		PRINTFORMW (%CALLNAME:MASTER%씨, 한가하게 웃고는 있지만 괜찮은 걸까……)
	ELSEIF 付き添い == 29
		PRINTFORML 「아… %CALLNAME:MASTER%씨와, 아야씨……」
		PRINTFORMW (으으음…왠지 두 사람의 거리, 가깝지 않아？ %CALLNAME:MASTER%씨가 걱정이네……)
	ELSEIF 付き添い == 69
		PRINTFORML 「아… %CALLNAME:MASTER%씨와, 마미조씨……」
		PRINTFORMW (으으음…왠지 두 사람의 거리, 가깝지 않아？ %CALLNAME:MASTER%씨가 걱정이네……)
	ELSEIF CFLAG:MASTER:동행
		TALENT:70:기분 = MIN(TALENT:70:기분, 0)
		PRINTFORML 「아… %CALLNAME:MASTER%씨, 오늘은 혼자가 아니시네요……」
		PRINTFORMW （우～……누구야 저 \@ TALENT:(付き添い):체형 >= 0 ? 사람 # 아가씨 \@～！）
;					SIF TALENT:(付き添い):종족, 未実装ゆえ
;						PRINTFORMW (妖怪じゃないかしら… %CALLNAME:MASTER%씨が心配だわ……)
	ELSE
		PRINTFORMW 「아, %CALLNAME:MASTER%씨, %M_KOJO_K70_AISATSU()%！」
	ENDIF
ELSE
	IF 付き添い == 1
		PRINTFORML 「어서오세요ー！」
		PRINTFORMW 「어라, 레이무씨와 %CALLNAME:MASTER%씨, 오늘은 무슨 일이신가요？」
	ELSEIF 付き添い == 11
		PRINTFORML 「어서오세요ー！」
		PRINTFORMW 「어머, 마리사씨하고 %CALLNAME:MASTER%씨, 오늘은 무슨 일이신가요？」
	ELSEIF 付き添い == 26
		PRINTFORML 「어서오세요……」
		PRINTFORML 「엣, 앗, %CALLNAME:MASTER%씨하고 ㅇ, 유카리씨…？」
		PRINTFORMW (어, 어째서 %CALLNAME:MASTER%씨가 유카리씨와……)
	ELSEIF 付き添い == 29
		PRINTFORML 「어서오세요ー！」
		PRINTFORML 「어머, 아야씨, 오늘 %CALLNAME:MASTER%씨와 함께시네요」
		PRINTFORMW (%CALLNAME:MASTER%씨, 혹시 뭔가에 이용되고 있는 걸까요, 안됐네요……)
	ELSEIF 付き添い == 69
		PRINTFORML 「어서오세……」
		PRINTFORML 「웃, ㅁ, 마미조씨, 오늘은 %CALLNAME:MASTER%씨와 함께시네요……」
		PRINTFORMW (%CALLNAME:MASTER%씨, 한가하게 웃고 있지만 괜찮은 걸까나……)
	ELSEIF TALENT:70:기분 == -1 || CFLAG:70:빡침
		PRINTFORMW 「어서오세요ー」
	ELSE
		PRINTFORMW 「어서오세요ー！」
	ENDIF
ENDIF

;ハロウィン挨拶
@M_KOJO_EVENT_K70_1_HALLOWEEN
IF TALENT:70:연모
	PRINTFORMW 「트릭 ★ 오아 ★ 트릿♪」
	PRINTFORMW 「후후후…… %CALLNAME:MASTER%씨, 과자를 주지 않으신다면 이『발푸르기스의 서』에 감춰져 있는 옛 악마를――」
	PRINTFORMW 「아앗！ 잠깐만요！ 빼앗지 말아주세요！ 농담이라구요ー！」
	PRINTFORMW 「정말！ 오늘은 할로윈이니까 그 정도는 이해해주세요」
	PRINTFORMW 「아, 물론 과자는 먹고 갈거지만요♪」
ELSE
	PRINTFORMW 「아, %CALLNAME:MASTER%씨, 트릭・오아・트릿♪」
	PRINTFORMW 「오늘은 할로윈이라는 외국의 축제래요」
	PRINTFORMW 「뭐라던가 명계의 문이 열려 죽은자가 온다던가요」
	PRINTFORMW 「으음, 환상향에는 오봉이 있으니까 그다지 재미있을 것 같지는 않네요」
ENDIF

;バレンタイン挨拶(通常挨拶後に追加)
@M_KOJO_EVENT_K70_1_VALENTINE
SIF CFLAG:70:호감도 <= 5000 || EXP:70:애정경험 < 100
	PRINTFORML 「앗！ 오늘은 발렌타인데이여서, 초콜릿을 나눠드리고 있었어요」
SELECTCASE CFLAG:70:호감도
CASE 1000 TO 3000
	;ブラックサンダー
	PRINTFORMW 「%CALLNAME:MASTER%씨도 하나 드세요！」
CASE 3001 TO 5000
	;チョコレート
	PRINTFORMW 「%CALLNAME:MASTER%씨도 하나 드세요♪」
CASE IS > 5000
	IF EXP:70:애정경험 < 100
		;高級チョコ
		PRINTFORMW 「항상 신세를 지고 있는 %CALLNAME:MASTER%씨에게는 특별한 것을 준비했어요♪」
	ELSE
		;手作りチョコ
		PRINTFORML 「저, 오늘은 발렌타인데이니까……」
		PRINTFORMW 「%CALLNAME:MASTER%씨를 위해서 초콜릿을 만들어 와봤어요……\/\/\/」
		PRINTFORMW 「부끄러운 솜씨지만……부디, 받아주셨으면 해요\/\/\/」
;					＞＜*
	ENDIF
ENDSELECT
;기분補正
TALENT:70:기분 = MAX(TALENT:70:기분, 0)

;挨拶口上終了処理
;口上が表示されなくても処理されます
@M_KOJO_EVENT_K70_1_END
;最後に会った日
CFLAG:70:1002 = DAY
;一日一回
SETBIT TCVAR:70:360, 3
;来店経験
IF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 1 && !GETBIT(TCVAR:70:360, 2)
	CFLAG:70:1005 ++
	SETBIT TCVAR:70:360, 2
ENDIF
;기분が悪くなる
;IF フキゲン || 嫉妬フキゲン
;	;嫉妬フキゲン＋フキゲン
;	TCVAR:70:353 = 嫉妬フキゲン
;	TCVAR:70:350 += フキゲン
;	TALENT:70:기분 = -1
;	BASE:70:분노 += MAXBASE:70:분노 / 7 - フキゲン
;ENDIF
;연모で,不기분ではなく,デート中ではなく,欲求不満が75%以上
IF TALENT:70:연모 && TALENT:70:기분 >= 0 && !FLAG:데이트상대 && CFLAG:70:욕구불만도 >= 750
	PRINTFORMDW 코스즈는 볼을 붉게 물들이며 머뭇거리고 있다……
	SELECTCASE RAND:4
	CASE 1
		PRINTFORMW 「……저기, 이 이후에 예정이라던지 있나요……？」
	CASE 2
		PRINTFORMW 「……저기, 괜찮으시다면 둘이서 어딘가 가지 않을래요?……？」
	CASE 3
		PRINTFORMW 「……저, 괜찮다면…… 함께……」
	CASEELSE
		PRINTFORMW 「에？ 아, 아뇨…… 만나고 싶었다고 생각했었으니까요……\/\/\/」
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;朝起きたとき(おはう口上)
;==================================================
@M_KOJO_EVENT_K70_2(ARG,ARG:1)
#DIM 分岐
CALL MESSAGE_GOODMONING(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている(연모時동침중就寝時のみ？
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			$OHAYOU
			分岐 = RAND:7
			PRINTL
			IF 分岐 == 0 || TALENT:70:기분 == -1
				PRINTFORMW 「아, %CALLNAME:MASTER%씨, 안녕히 주무셨어요……」
				PRINTL
				PRINTFORMDL 코스즈는 짜증이 나있는 것 같다……
				PRINTFORMDL 어쩌면 어제 뭔가 실수를 저지른것이 있을지도……
				PRINTW
				SELECTCASE TIME
				CASE 240 TO 599
					PRINTFORMW 「……뭔가요？ 이제 아침이에요」
				CASE 600 TO 1079
					PRINTFORMW 「……뭔가요？ 벌써 점심 시간인데요？」
				CASEELSE
					PRINTFORMW 「……뭔가요？ 이제 밤이 다 됐어요……」
				ENDSELECT
				TALENT:70:기분 = -1
			ELSEIF 分岐 == 1 || 分岐 == 2 || TALENT:70:기분 == 1
;				;昨晩満足,ズレ修正したけどまだ懸念アリ
				PRINTFORMW 「아, %CALLNAME:MASTER%씨, 안녕하세ー요♪」
				IF CFLAG:70:1001 == DAY - 1
					PRINTFORML 「에헤헤%UNICODE(0x2764)% 어제는 굉장히 좋았어요♪」
					PRINTFORMW 「다음에 또 해요♪」
					TALENT:70:기분 = 1
				ELSE
					PRINTFORMW 「아하♪ %CALLNAME:MASTER%씨의 자고 있는 얼굴을 실컷 즐겨버렸어요♪」
				ENDIF
			ELSEIF 分岐 == 3 || 分岐 == 4
				PRINTFORMW 「아, %CALLNAME:MASTER%씨, 좋은 아침이에요！」
				PRINTFORML 「후후♪ 꽤 즐거운 듯한 잠든 얼굴이었지요」
				PRINTFORMW 「도대체 무슨 꿈을 꾸고 계셨던 걸까요？」
			ELSE
				PRINTFORMW 「아, %CALLNAME:MASTER%씨, 좋은 아침이에요！」
				IF DAY:2 == 1
					PRINTFORML 「많이 날이 따뜻해졌네요」
					PRINTFORMW 「하지만 늦잠은 안돼요ー」
				ELSEIF DAY:2 == 2
					PRINTFORML 「오늘도 덥네요ー……」
					PRINTFORMW 「괜찮으시다면 땀, 닦아드릴까요？」
				ELSEIF DAY:2 == 3
					PRINTFORML 「꽤나 쌀쌀해졌네요」
					PRINTFORMW 「ㅈ, 저로 따뜻해져도…… 된다구요……\/\/\/」
				ELSEIF DAY:2 == 4
					PRINTFORML 「오늘은 한층 추워졌네요……」
					PRINTFORMW 「그렇지만 언제까지나 이불 안에만 있으면 안된다구요ー」
				ENDIF
			ENDIF
			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
		;非同棲時と同じ
		GOTO OHAYOU
		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
			$OHAOHAYOU
			分岐 = RAND:10
			PRINTL
			PRINTFORML 「응…… 무냐아……핫」
			IF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 2
				IF GROUPMATCH(分岐, 1, 2, 3) || TALENT:70:기분 == 1
					PRINTFORMW 「아, %CALLNAME:MASTER%씨, 좋은 아침이에요～♪」
					IF CFLAG:70:1001 == DAY - 1
						PRINTFORML 「에헤헤%UNICODE(0x2764)% 어제는 정말로 좋았어요♪」
						PRINTFORMW 「다음에 또 하도록 해요♪」
						TALENT:70:기분 = 1
					ELSE
						PRINTFORMW 「후후♪ 꿈속에 %CALLNAME:MASTER%씨가 나왔습니다…%UNICODE(0x2764)%」
					ENDIF
				ELSEIF 分岐 == 0 || TALENT:70:기분 == -1
					PRINTFORMW 「아, %CALLNAME:MASTER%씨, 좋은 아침이에요……」
					PRINTL
					PRINTFORMDL 코스즈는 짜증이 나있는 것 같다……
					PRINTFORMDL 어쩌면 어제 뭔가 실수를 해버렸을지도 모른다……
					PRINTW
					PRINTFORMW 「뭔가요……？ 얼굴에 뭐라도 묻어 있어요ー？」
					TALENT:70:기분 = -1
				ELSEIF GROUPMATCH(分岐, 4, 5, 6)
					PRINTFORMW 「아, %CALLNAME:MASTER%씨, 좋은 아침이에요ー」
					PRINTFORMW 「응, 헤헤에……♪ 일어났는데 %CALLNAME:MASTER%씨의 얼굴이 있다는건 왠지 멋진 일이네요～」
				ELSE
					PRINTFORMW 「아, %CALLNAME:MASTER%씨, 좋은 아침이에요ー」
					IF DAY:2 == 1
						PRINTFORML 「많이 따뜻해졌네요」
						PRINTFORMW 「조금 더 자고 싶어질 정도로요……」
					ELSEIF DAY:2 == 2
						PRINTFORML 「오늘도 덥네요ー……」
						PRINTFORMW 「%CALLNAME:MASTER%씨는 땀, 흘리지 않으셨나요？」
					ELSEIF DAY:2 == 3
						PRINTFORML 「많이 추워졌네요」
						PRINTFORMW 「%CALLNAME:MASTER%씨, 따뜻하게 데워주세요……\/\/\/」
						;＞＜*
					ELSEIF DAY:2 == 4
						PRINTFORML 「오늘은 한층 더 춥네요……」
						PRINTFORMW 「으우우…… 이불에서 나오고 싶지 않아요……」
					ENDIF
				ENDIF
			ELSE
				PRINTFORMW 「……어라？ %CALLNAME:MASTER%씨？ 여기는……」
				PRINTFORMW 「앗, 그랬나요 저…… ㅈ, 죄송했어요……\/\/\/」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			;非同棲時と同じ
			GOTO OHAOHAYOU
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る(定時になって寝る)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1 && !CFLAG:70:우후후
		$OYASUMI
		;小鈴の部屋
		IF M_KOJO_K70_SUZUNAAN(CFLAG:MASTER:현재위치) == 2
			PRINTFORMW 「후아아… 졸려오기 시작했어요…」
			PRINTFORMW 「%CALLNAME:MASTER%씨, 안녕히 주무세요……」
			;泊まれる
			IF CFLAG:70:현재위치 == OMANEKIBEYA()
				SIF !TCVAR:(CFLAG:MASTER:초대):연속숙박금지 && NEMUKE() < 720
					PRINTFORMW 「……아침까지 옆에 계셔 주실래요……？」
			ELSEIF TALENT:70:연모
				PRINTFORMW 「……아침까지 옆에 있어줄래요……？」
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「후와아…… 졸려오기 시작했어요……」
			IF CFLAG:MASTER:초기위치 == CFLAG:MASTER:초기위치
				PRINTFORMW 「먼저 잘게요…… %CALLNAME:MASTER%씨, 안녕히 주무세요……」
			ELSEIF MAIN_MAP == 2 && M_KOJO_K70_SUZUNAAN(CFLAG:MASTER:현재위치) == 1
				PRINTFORMW 「%CALLNAME:MASTER%씨, 안녕히 주무세요……」
			ELSE
				PRINTFORMW 「이제 잘게요…… 안녕히 주무세요……」
			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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「하아…… 하아……」
		PRINTFORMW 「죄송해요 %CALLNAME:MASTER%씨, 왠지 피곤해져서…… 구웃……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン(部屋まで運ばれる)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW 「아앗！！ %CALLNAME:MASTER%씨, 괜찮으신가요！？」
		PRINTFORML 「엣또오…… 어, 어쩌지……」
		PRINTFORMW 「%CALLNAME:MASTER%씨의 방은……」
		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 「응ー…… 책을 읽으려고 생각했는데 졸리네요……」
			PRINTFORMW 「안녕히 주무세요…… 쿠울……」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW 「ㅁ, 뭘 하고 있는 건가요！」
			PRINTFORMW 「나가주세요！！」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORMW 「정말！！ 다른 사람의 방을 뭐라고 생각하는거에요！！」
			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
		;くわからんので안녕히 주무세요
		GOTO OYASUMI
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K70_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_K70_5(ARG,ARG:1)
;口上主はTARGET
;ARGに入ってきたキャラ(人数が膨大なので,自己把握自己責任で
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「아, 레이무씨, %M_KOJO_K70_AISATSU()%～」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;魔理沙が入ってきた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 11
		PRINTFORMW 「아, 마리사씨, %M_KOJO_K70_AISATSU()%～」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;紫が入ってきた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 26
		PRINTFORMW 「앗！ 유, 유카리씨…… %M_KOJO_K70_AISATSU()%……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;文が入ってきた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 29
		PRINTFORMW 「앗！ 아야씨！ 이건, 그게엣……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;마미조が入ってきた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 69
		PRINTFORMW 「앗！ 마미조씨！ 이건, 그게엣……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;阿求が入ってきた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 80
		;8=独占,7=悲恋,6=揶揄,5=信頼,4=敵対,3=연모,2=応援,1=平穏
		SELECTCASE M_KOJO_K70_BALANCE(70, 80)
		CASE 8, 5
			PRINTFORMW 「아앗 아큐！이제, 막 좋으려던 참이었으니까 방해하지 마！」
		CASE 7, 6
			;阿求と연인なのにあるのか……？
			PRINTFORMW 「어라, 아큐！ ㅁ, 미안해…… 아하하」
		CASE 4, 3
			PRINTFORMW 「아큐！ 이제, 막 좋으려던 참이었으니까 어딘가 가줘！」
		CASE 2, 1
			PRINTFORMW 「뭐야, 아큐구나, 분위기 좀 읽어줘」
		ENDSELECT
		RETURN 1
	ENDIF
	;その他(キャラ指定なし
	PRINTFORML 「어라, 누군가 왔네요……」
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した(馴れ合い度:低)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		$MOKUGEKI
		IF TALENT:70:연인
			PRINTFORML 「앗！！！」
			;霊夢と
			IF ARG == 1
				PRINTFORMW 「레……레이무씨……？」
				PRINTFORMW 「그랬……나요…… 실례했습니다」
			;魔理沙と
			ELSEIF ARG == 11
				PRINTFORMW 「마……마리사씨……？」
				PRINTFORMW 「그랬……나요…… 실례했습니다」
			;紫と
			ELSEIF ARG == 26
				PRINTFORMW 「유……유카리씨잇……！？ ㅇ, 안녕힛！」
				PRINTFORMW (%CALLNAME:MASTER%씨…… 괜찮으실까……)
			;文と
			ELSEIF ARG == 29
				PRINTFORMW 「아……아야씨……？」
				PRINTFORMW 「그런…………」
			;마미조と
			ELSEIF ARG == 69
				PRINTFORMW 「ㅁ……마미조씨이……！？ 아, 안녕힛！」
				PRINTFORMW (%CALLNAME:MASTER%씨…… 괜찮으실까……)
			;阿求と
			ELSEIF ARG == 80
				PRINTFORMW 「ㅇ……아큐！？」
				PRINTFORMW 「%CALLNAME:MASTER%씨는 바보ーーー오오옷！！」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%씨…… 너무해요……크흥……」
			ENDIF
		ELSEIF TALENT:70:연모
			PRINTFORML 「앗！！」
			;霊夢と
			IF ARG == 1
				PRINTFORMW 「레…레이무씨……？」
				PRINTFORMW 「아, 안녕히 계세요…………」
			;魔理沙と
			ELSEIF ARG == 11
				PRINTFORMW 「마……마리사씨……？」
				PRINTFORMW 「아, 안녕히 계세요…………」
			;紫と
			ELSEIF ARG == 26
				PRINTFORMW 「유……유카리씨……！？ 아, 안녕히잇！」
				PRINTFORMW (%CALLNAME:MASTER%씨…… 괜찮으실까……)
			;文と
			ELSEIF ARG == 29
				PRINTFORMW 「아……아야씨……？」
				PRINTFORMW 「설마…………」
			;마미조と
			ELSEIF ARG == 69
				PRINTFORMW 「마……마미조씨……！？ 아,안녕히 계세욧！」
				PRINTFORMW (%CALLNAME:MASTER%씨…… 괜찮으실까……)
			;阿求と
			ELSEIF ARG == 80
				;8=独占,7=悲恋,6=揶揄,5=信頼,4=敵対,3=연모,2=応援,1=平穏
				SELECTCASE M_KOJO_K70_BALANCE(70, 80)
				CASE 5
					PRINTFORMW 「아……아큐！？」
					PRINTFORMW 「미, 미안！ 푹 쉬어ー…♪」
				CASE 7, 4, 3
					PRINTFORMW 「아……아큐！？」
					PRINTFORMW 「우우……아…… %CALLNAME:MASTER%씨는 바보오……！」
				ENDSELECT
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%씨…… 바보……」
			ENDIF
		ELSE
			PRINTFORML 「앗！」
			;霊夢と
			IF ARG == 1
				PRINTFORMW 「레…레이무씨……？」
				PRINTFORMW 「앗, 그게, ㅊ, 천천히 즐겨주세요……」
			;魔理沙と
			ELSEIF ARG == 11
				PRINTFORMW 「마……마리사씨……？」
				PRINTFORMW 「앗, 그게, ㅊ, 천천히 즐겨주세요……」
			;紫と
			ELSEIF ARG == 26
				PRINTFORMW 「유……유카리씨……！？ ㅅ, 실례했습니닷！」
				PRINTFORMW (%CALLNAME:MASTER%씨…… 괜찮으실까……)
			;文と
			ELSEIF ARG == 29
				PRINTFORMW 「아……아야씨……？」
				PRINTFORMW 「엣또, 그게, 잘 지네세요……」
			;마미조と
			ELSEIF ARG == 69
				PRINTFORMW 「ㅁ……마미조씨……！？ 시, 실례했습니닷！」
				PRINTFORMW (%CALLNAME:MASTER%씨…… 괜찮으실까……)
			;阿求と
			ELSEIF ARG == 80
				;8=独占,7=悲恋,6=揶揄,5=信頼,4=敵対,3=연모,2=応援,1=平穏
				SELECTCASE M_KOJO_K70_BALANCE(70, 80)
				CASE 6, 2
					PRINTFORMW 「아……아큐！？」
					PRINTFORMW 「미, 미안！ 편하게 있어ー…♪」
				CASE 1
					PRINTFORMW 「아……아큐！？」
					PRINTFORMW 「에또, 그런, 그랬던, 거, 네……아하하」
				ENDSELECT
			ELSE
				PRINTFORMW 「앗, 저기, ㅍ, 편하게 있으세요……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加(馴れ合い度:高)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		;かわいい
		IF TALENT:70:연인
			PRINTFORML 「앗！！」
			;霊夢と
			IF ARG == 1
				PRINTFORMW 「ㄹ,레이무씨잇！！안돼요옷！」
				PRINTFORMW 「%CALLNAME:MASTER%씨는 제 것이니까요옷！」
			;魔理沙と
			ELSEIF ARG == 11
				PRINTFORMW 「마,마리사씨잇！！안돼요옷！」
				PRINTFORMW 「%CALLNAME:MASTER%씨는 제 것이니까요옷！」
			;紫と
			ELSEIF ARG == 26
				PRINTFORMW 「유,유카리씨잇！！ 안, 안돼옷！」
				PRINTFORMW 「%CALLNAME:MASTER%씨는 제가 지켜드릴 테니까요！」
			;文と
			ELSEIF ARG == 29
				PRINTFORMW 「아, 아야 씨잇！！안돼요옷！」
				PRINTFORMW 「%CALLNAME:MASTER%씨는 제 것이니까요！」
			;마미조と
			ELSEIF ARG == 69
				PRINTFORMW 「마, 마미조씨잇！！ 안, 안돼욧！」
				PRINTFORMW 「%CALLNAME:MASTER%씨은 제가 지켜드릴 테니까요！」
			;阿求と
			ELSEIF ARG == 80
				PRINTFORMW 「아, 아큐！！ 안돼엣！！」
				PRINTFORMW 「%CALLNAME:MASTER%씨는 내 것이니까！！」
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%씨！ 너무해요！」
				PRINTFORMW 「저도 끼워주세요！！」
			ENDIF
		;연모と非연모では分けません,非연모でも十分仲良くなってると想定しているので
		ELSE
			PRINTFORML 「앗！！」
			;霊夢と
			IF ARG == 1
				PRINTFORMW 「레,레이무씨……！」
				PRINTFORMW 「후후……%UNICODE(0x2764)% 저도 끼워주세요♪」
			;魔理沙と
			ELSEIF ARG == 11
				PRINTFORMW 「마 ,마리사씨……！」
				PRINTFORMW 「후후……%UNICODE(0x2764)% 저도 끼워주세요♪」
			;紫と
			ELSEIF ARG == 26
				PRINTFORMW 「유, 유카리씨！？」
				PRINTFORMW 「아, 안됩니다！ 저, 저도 함께……！」
			;文と
			ELSEIF ARG == 29
				PRINTFORMW 「아, 아야씨……！」
				PRINTFORMW 「후후……%UNICODE(0x2764)% 저도 끼워주세요♪」
			;마미조と
			ELSEIF ARG == 69
				PRINTFORMW 「마, 마미조 씨！？」
				PRINTFORMW 「아, 안돼요！ 저,저도 함께……！」
			;阿求と
			ELSEIF ARG == 80
				PRINTFORMW 「아,아큐！？」
				;8=独占,7=悲恋,6=揶揄,5=信頼,4=敵対,3=연모,2=応援,1=平穏
				SELECTCASE M_KOJO_K70_BALANCE(70, 80)
				CASE 7
					PRINTFORMW 「……괜찮아요, 저는 아큐 다음이라도……！」
					PRINTFORMW 「그러니까 부탁이에요, 따돌리지 말아주세요……！」
				CASE 5
					PRINTFORMW 「이잇！ 독점은 하지 않기로 했잖아！」
					PRINTFORMW 「함께 %CALLNAME:MASTER%씨를 기분 좋게 해드리는거야」
				CASE 4, 3
					PRINTFORMW 「안돼ー앳！ %CALLNAME:MASTER%씨는 건네주지 않으니까！！」
				CASE 6
					PRINTFORMW 「정말！ 아큐만 치사하게！」
					PRINTFORMW 「%CALLNAME:MASTER%씨는 아큐만의 것이 아니야！」
					;自分の時は自分だけのものです,女の子はそういうものです
				CASE 2, 1
					PRINTFORMW 「엣또,실례지만……♪ 괘, 괜찮다면 저도 끼어들어도……%UNICODE(0x2764)%」
				ENDSELECT
			ELSE
				PRINTFORMW 「그러언, %CALLNAME:MASTER%씨……！」
				PRINTFORMW 「저를 따돌리지 말아주세요～옷！」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		;目撃と同じ
		GOTO MOKUGEKI
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた(目撃者の馴れ合い度:低)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		$MIRARETA
		;霊夢に見られちゃう
		IF ARG == 1
			PRINTFORMW 「아하하…… 레이무씨, 당황하고 있었네요……♪」
		;魔理沙に見られちゃう
		ELSEIF ARG == 11
			PRINTFORMW 「아하하…… 마리사씨, 당황하고 있었네요……♪」
		;紫に見られちゃう
		ELSEIF ARG == 26
			PRINTFORMW 「아와와…… 저희 괜찮은 거겠지요……？」
		;文に見られちゃう
		ELSEIF ARG == 29
			PRINTFORMW 「아하하…… 특종이 되어버리겠네요……」
		;마미조に見られちゃう
		ELSEIF ARG == 69
			PRINTFORMW 「아와와…… 저희 괜찮은 거겠지요……？」
		;阿求に見られちゃう
		ELSEIF ARG == 80
			;8=独占,7=悲恋,6=揶揄,5=信頼,4=敵対,3=연모,2=応援,1=平穏
			SELECTCASE M_KOJO_K70_BALANCE(70, 80)
			CASE 8, 5, 1
				PRINTFORMW 「정마알…… 아큐하고라면 저는 별로 상관없어요……」
			CASE 7, 4, 3
				PRINTFORMW 「으흥%UNICODE(0x2764)% 기분 좋아요♪」
			CASE 6, 2
				PRINTFORMW 「아아…… 미안 아큐…… 그러려는 의도는……」
			ENDSELECT
		ELSE
			PRINTFORMW 「아하하…… 신경, 쓰지 말도록 해요……♪」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加(目撃者の馴れ合い度:高)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		;霊夢に参戦
		IF ARG == 1
			PRINTFORMW 「후훗%UNICODE(0x2764)% 레이무 씨와 함께라니……♪」
		;魔理沙に参戦
		ELSEIF ARG == 11
			PRINTFORMW 「후훗%UNICODE(0x2764)% 마리사 씨와 함께라니……♪」
		;紫に参戦
		ELSEIF ARG == 26
			PRINTFORMW 「하와와…… 유, 유카리씨도 함께 하시는건가요～～」
		;文に参戦
		ELSEIF ARG == 29
			PRINTFORMW 「어라♪ 아야 씨도 좋으신 거네요～%UNICODE(0x2764)%」
		;마미조に参戦
		ELSEIF ARG == 69
			PRINTFORMW 「하와와…… 마, 마미조 씨도 함께 하시는건가요～～」
		;阿求に参戦
		ELSEIF ARG == 80
			;8=独占,7=悲恋,6=揶揄,5=信頼,4=敵対,3=연모,2=応援,1=平穏
			SELECTCASE M_KOJO_K70_BALANCE(70, 80)
			CASE 8, 5, 1
				PRINTFORMW 「자아, 아큐！ 함께 %CALLNAME:MASTER%씨를 기분좋게 해주는거야♪」
			CASE 7
				PRINTFORMW 「으응, 어쩔수 없네요」
			CASE 4, 3
				PRINTFORMW 「쿳……！좋아, 승부야 아큐！！」
			CASE 6, 2
				PRINTFORMW 「미안 아큐♪ %CALLNAME:MASTER%씨, 잔뜩 사랑해주세요%UNICODE(0x2764)%」
			ENDSELECT
		ELSE
			PRINTFORMW 「후후…%UNICODE(0x2764)% 전 괜찮다구요%UNICODE(0x2764)%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		;見られたのと同じ
		GOTO MIRARETA
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF FIRSTTIME("パンツ没収")
			PRINTFORMW 「어？ %CALLNAME:MASTER%씨, 떨어뜨리셨어요」
			PRINTFORMW 「뭘까요……」
			PRINTL
			PRINTFORMDL %마스터는% 황급히 자신의 사냥감(팬티)을 되찾았다！
			PRINTW
			PRINTFORMW 「에……%CALLNAME:MASTER%씨…… ㄷ, 당신……！」
			PRINTFORMW 「하아…… 최저에요…… 기분 나빠요…… 가까이 있지 말아주세요……」
		ELSE
			PRINTFORMW 「어라？ %CALLNAME:MASTER%씨……」
			PRINTFORMW 「%CALLNAME:MASTER%씨！？ 당신 또……！！」
			PRINTL
			PRINTFORMDL %마스터는% 무서울 정도로 빠른 손놀림으로 사냥감(팬티)를 되찾았다！
			PRINTW
			PRINTFORMW 「설마 모으고 있는건가요……？」
			PRINTFORMW 「최저에요…… 밑바닥에도 정도라는게 있어요…… 언젠가 팬티의 요괴에 홀리기라도 했으면 좋겠네요……」
			PRINTFORMW 「그렇게 된다면 레이무 씨에게 전해서 사양하지 않고 정화해 드리도록 할테니까요……」
		ENDIF
		TCVAR:70:350 = 3
		TALENT:70:기분 = -1
		CALL M_KOJO_K70_YAMETEKUDASAI(70, 3, 1)
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;押し倒した
;==================================================
@M_KOJO_EVENT_K70_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
			;こすずちゃん妖気モード
			SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「아하……%UNICODE(0x2764)%」
				PRINTFORML 「%CALLNAME:MASTER%씨, 뭔가 무방비하시네요……%UNICODE(0x2764)%」
			CASE 2
				PRINTFORML 「죄송해요 %CALLNAME:MASTER%씨……」
				PRINTFORML 「저, 더 이상은 못참겠어요……%UNICODE(0x2764)%」
			CASEELSE
				PRINTFORML 「어라, %CALLNAME:MASTER%씨도 정말」
				PRINTFORML 「제 힘으로 덮쳐져서 쓰러져주실 거라곤, 혹시 원하셨던 건가요～？」
			ENDSELECT
			IF TALENT:70:연모
				IF M_KOJO_K70_SADISTIC(70)
					SELECTCASE RAND:5
					CASE 1
						PRINTFORMW 「……괜찮아요…… 아프지 않게 할테니까……%UNICODE(0x2764)%」
					CASE 2
						PRINTFORMW 「……잔뜩 괴롭혀드리는거네요……%UNICODE(0x2764)%」
					CASE 3
						PRINTFORMW 「……기대하고 계셨던 거네요♪ 알고 있었어요……%UNICODE(0x2764)%」
					CASE 4
						PRINTFORMW 「……후후♪ 꼬셔오는 것이 능숙하시네요……%UNICODE(0x2764)%」
					CASEELSE
						PRINTFORMW 「……오늘은 어떤식으로 할까나요%UNICODE(0x2764)%」
					ENDSELECT
				ELSE
					SELECTCASE RAND:5
					CASE 1
						PRINTFORMW 「……괜찮아요…… 부드럽게 해드릴테니까요……%UNICODE(0x2764)%」
					CASE 2
						PRINTFORMW 「……잔뜩 응석, 부려주세요……%UNICODE(0x2764)%」
					CASE 3
						PRINTFORMW 「……벌써, 꼬신거잖아요……%UNICODE(0x2764)%」
					CASE 4
						PRINTFORMW 「……%CALLNAME:MASTER%씨가 그런 눈을 하니까……%UNICODE(0x2764)%」
					CASEELSE
						PRINTFORMW 「……%CALLNAME:MASTER%씨…… 좋아…%UNICODE(0x2764)%」
					ENDSELECT
				ENDIF
			ELSE
				PRINTFORMW 「오늘은 잔뜩 봉사해드릴테니까……%UNICODE(0x2764)%」
			ENDIF
			;임신中
			IF TALENT:70:임신 && CFLAG:70:임신자각상태 == 1
				PRINTFORML
				PRINTFORMW 「앗…！뱃속에는 아이가 있으니까, 조심해서 해주셔야 해요？」
			;危険日
			ELSEIF CFLAG:70:생리주기 == 7 && !TALENT:70:임신 && CFLAG:70:생해금 == 2
				PRINTFORML
				PRINTFORMW (후후……%UNICODE(0x2764)% 코스즈 찬스～♪)
				;使い方ちがくないですかぁ？
			ENDIF
			TCVAR:70: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
		SELECTCASE ARG:1
		CASE 0
			;抜け出した
			IF TALENT:70:연모
				;임신中
				IF TALENT:70:임신 && CFLAG:70:임신자각상태 == 1
					PRINTFORML 「아아……, 뭐어, 어쩔 수 없네요……」
					PRINTFORMW 「아기는 소중히 하지 않으면……」
				;危険日
				ELSEIF CFLAG:70:생리주기 == 7 && !TALENT:70:임신 && CFLAG:70:생해금 == 2
					PRINTFORML 「아아……, 그러언……」
					PRINTFORMW 「이런 걸로는 부족하다구요ー！」
				ELSE
					SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「아아……」
						PRINTFORMW 「%CALLNAME:MASTER%씨는 구두쇠……」
					CASE 1
						PRINTFORML 「ㅈ, 죄송해요……」
						PRINTFORMW 「%CALLNAME:MASTER%씨, 이런거 싫어하셨지요……」
					CASEELSE
						PRINTFORML 「그, 그러언……」
						PRINTFORMW 「이제부터 좋은 곳이었는데에～！」
					ENDSELECT
				ENDIF
			ELSE
				PRINTFORML 「아아……」
				PRINTFORMW 「죄, 죄송해요, 저, 그만……！」
			ENDIF
		CASE 1
		;抱き着きモード満足終了
			RETURN 1
		CASE 2
		;抱き着きモード強制終了
			RETURN 1
		ENDSELECT
		TCVAR:70:351 = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE ARG:1
		CASE 1
		;好きにして状態から抜け出せなかった
			PRINTFORML 「도망치려고 하면 안된다고요～%UNICODE(0x2764)% %CALLNAME:MASTER%씨~이！」
			PRINTFORMW 「오늘의 %CALLNAME:MASTER%씨는 제 애완동물이니까요～♪」
			RETURN 1
		CASE 2
		;欲求不満が高くて抜け出せなかった
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「안돼요～！ 아직 부족하다구요～！」
			CASE 2
				PRINTFORML 「죄송해요！ 좀 더 부탁드려요！」
				PRINTFORMW 「저도 하고 싶은게 있으니까요～！」
			CASEELSE
				PRINTFORML 「앗！ 기다려주세요！」
				PRINTFORMW 「조금만 더, 조금만 더니까요！」
			ENDSELECT
			RETURN 1
		ENDSELECT
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「꺄ーーー아앗！！」
		PRINTFORMW 「ㅇ, 알겠어요ーーー읏！！\/\/\/」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った(追い出されない)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;阿求も一緒
		IF CFLAG:80:동행
			PRINTFORML 「꺄앗！ %CALLNAME:MASTER%씨는…… 아, 아큐……」
			PRINTFORMW 「후후 %UNICODE(0x2764)% 함께 가자♪」
		;霊夢も一緒
		ELSEIF CFLAG:1:동행
			PRINTFORML 「꺄앗！ %CALLNAME:MASTER%씨는…… 레, 레이무씨……」
			PRINTFORMW 「아…… ㄱ, 같이 가시죠……」
		;魔理沙も一緒
		ELSEIF CFLAG:11:동행
			PRINTFORML 「꺄앗！ %CALLNAME:MASTER%씨는…… 마,마리사씨……」
			PRINTFORMW 「아…… 가, 같이 가시죠……」
		;紫も一緒
		ELSEIF CFLAG:26:동행
			PRINTFORML 「꺄앗！ %CALLNAME:MASTER%씨는…… ㅇ,유카리씨……」
			PRINTFORMW 「아…… 가, 같이 가시죠……」
		;文も一緒
		ELSEIF CFLAG:29:동행
			PRINTFORML 「꺄앗！ %CALLNAME:MASTER%씨는…… 아, 아야씨……」
			PRINTFORMW 「아…… 가, 같이 가시죠……」
		;마미조も一緒
		ELSEIF CFLAG:69:동행
			PRINTFORML 「꺄앗！ %CALLNAME:MASTER%씨는…… 마,마미조씨……」
			PRINTFORMW 「아…… 가, 같이 가시죠……」
		ELSE
			PRINTFORML 「꺄앗！ %CALLNAME:MASTER%씨……！」
			PRINTFORMW 「가, 같이 가시겠어요……%UNICODE(0x2764)%」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K70_12(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される(분노)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:2
		CASE 1
			PRINTFORML 「……응！」
		CASEELSE
			PRINTFORML 「……으응！」
		ENDSELECT
		SELECTCASE RAND:2
		CASE 1
			PRINTFORMW 「ㄴ, 나가주세요! ！！」
		CASEELSE
			PRINTFORMW 「혼자서 있게 해주세요！！」
		ENDSELECT
		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
		$MADOROMI
		SELECTCASE RAND:3
		CASE 1
			PRINTFORMW 「쿠후……후우……응！」
		CASE 2
			PRINTFORMW 「으응…… 음냐음냐……으읏！」
		CASEELSE
			PRINTFORMW 「새액……새액……으읏！」
		ENDSELECT
		;いらん分岐かも
		IF CFLAG:MASTER:초기위치 == CFLAG:70:초기위치
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「%CALLNAME:MASTER%씨…… 일어나신 건가요……」
			CASE 2
				PRINTFORMW 「응아…… %CALLNAME:MASTER%씨…… 안녕히 주무세요……」
			CASEELSE
				PRINTFORMW 「그…… %CALLNAME:MASTER%씨…… 혼자는 외로워요～……」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「뭐야…… %CALLNAME:MASTER%씨였나요…… 놀랐었어요……」
			CASE 2
				PRINTFORMW 「응아…… %CALLNAME:MASTER%씨……？ 무슨 일인가요……？」
			CASEELSE
				PRINTFORMW 「그…… %CALLNAME:MASTER%씨…… 같이……」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入(相手が연모・衰弱)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		;非衰弱と同じ
		GOTO MADOROMI
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		$WARNING
		SELECTCASE RAND:2
		CASE 1
			PRINTFORML 「……읏！」
		CASEELSE
			PRINTFORML 「……으읏！」
		ENDSELECT
		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 == 5
		;非衰弱と同じ
		GOTO WARNING
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K70_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
;通常の仕事以外(宴会)では発生しない
IF LOCAL && TCVAR:70:357 != TIME && GROUPMATCH(CFLAG:70:직종, 40, 41)
	;連打防止
	TCVAR:70:357 = TIME
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始(職場へ移動する)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;小鈴の部屋
		IF M_KOJO_K70_SUZUNAAN(CFLAG:MASTER:현재위치) == 2
			PRINTFORMW 「죄송해요 %CALLNAME:MASTER%씨, 저는 일이 있어서 이쯤에서……」
			SIF TALENT:70:연모 && PALAM:70:욕정
				PRINTFORMW 「나중에 계속 이어서 하도록 해요……%UNICODE(0x2764)%」
		ELSE
			IF TALENT:70:연모
				PRINTFORML 「저, 일이 있어서 돌아가볼게요」
				PRINTFORMW (하아, 더 같이 있고 싶었는데)
			ELSE
				PRINTFORMW 「앗, 이런 시간이네요, 방으로 돌아가지 않으면」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;店番
		IF CFLAG:70:직종 == 41
			SELECTCASE RAND:10
			CASE 1
				PRINTFORML 「%M_KOJO_K70_AISATSU()%～」
			CASE 2
				PRINTFORML 「에ー또, 이 책은 말이에요――」
			CASE 3
				PRINTFORML 「어서오세요ー！」
			CASE 4
				PRINTFORML 「반납해주셔서 감사합니다～」
			;半分はまったり
			CASEELSE
				PRINTFORML 「♪～～」
			ENDSELECT
		;蔵書整理
		ELSEIF CFLAG:70:직종 == 40
			;特に要らない気がした
			;WAIT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	;小鈴の仕事って活動時間外に終わるからデート誘えないのねー
	IF LOCAL:1 && ARG == 3
		;店番
		IF CFLAG:70:직종 == 41
			;仕事手伝った
			IF GETBIT(TCVAR:70:360, 1)
				IF TALENT:70:연모
					PRINTFORML 「후우, 수고 많으셨습니다～」
					IF CFLAG:MASTER:초기위치 == CFLAG:70:초기위치
						SELECTCASE RAND:3
						CASE 1
							PRINTFORMW 「%CALLNAME:MASTER%씨와 일할수 있다니 행복해요♪」
							PRINTFORMW 「%CALLNAME:MASTER%씨가 좋다면…… ㅇ, 이대로, 아무것도 아니에요\/\/\/」
						CASE 2
							;お父씨登場するのか？
							PRINTFORMW 「%CALLNAME:MASTER%씨의 덕분인지, 요즘 매출이 늘어나고 있어요！」
							PRINTFORMW 「아빠도 항상 도움이 되어준다고 감사를 말하셨어요～」
						CASEELSE
							PRINTFORMW 「%CALLNAME:MASTER%씨가 있어주셔서 정말 고마워요～」
							PRINTFORMW 「이 다음에는 식사 먼저 하실래요？ 목욕부터 하실래요？ 아니면……%UNICODE(0x2764)%」
						ENDSELECT
					ELSE
						PRINTFORMW 「오늘은 도와주셔서 감사했어요！」
						SELECTCASE RAND:5
						CASE 1
							;特にイベントというわけではなく引っ越しを促してるだけ
							PRINTFORML 「%CALLNAME:MASTER%씨만 괜찮으시다면 저희 가게에서 정식으로 일해도 되니까요ー」
							PRINTFORMW 「그러면 저희 집에서 살아도 괜찮고, 뭣하면 제 방에서…ㄷ, 동거라던지……%UNICODE(0x2764)%」
						CASEELSE
							PRINTFORMW 「후후, %CALLNAME:MASTER%씨와 일하고 있으면 무척 즐거워요♪」
						ENDSELECT
					ENDIF
				ELSE
					PRINTFORML 「휴우, 수고하셨어요」
					PRINTFORMW 「보수는 나중에 드리도록 할게요」
				ENDIF
			ELSE
				IF TALENT:70:연모
					PRINTFORML 「휴, 피곤해라～」
					PRINTFORMW 「%CALLNAME:MASTER%씨도 도와주시면 고맙겠는데요ー, 이거ー」
				ELSE
					PRINTFORMW 「휴, 피곤해라～」
				ENDIF
			ENDIF
		;蔵書整理
		ELSEIF CFLAG:70:직종 == 40
			;仕事手伝った
			IF GETBIT(TCVAR:70:360, 1)
				IF TALENT:70:연모
					PRINTFORML 「휴우, 수고하셨어요～」
					PRINTFORMW 「%CALLNAME:MASTER%씨가 도와주신다면 빨리 끝나서 고맙겠습니다♪」
				ELSE
					PRINTFORML 「휴우, 수고하셨어요」
					PRINTFORML 「도와주셔서 빨리 끝났어요～」
					PRINTFORMW 「감사합니다ー！」
				ENDIF
			ELSE
				PRINTFORMW 「휴우, 드디어 끝났네～」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;食事系
;==================================================
@M_KOJO_EVENT_K70_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		;一緒に作った
		IF DISH_ASSI == 70
			PRINTFORML 「드시지 않는건가요？ 그럼 제가 먹을게요」
		;作ってない
		ELSE
			PRINTFORML 「어라, 맛있겠다♪ 잘먹겠습니닷！」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装(押し倒しコマンドに統合？
	;MASTERが押し倒した(ウフフ開始時)
	;記入チェック(=0, 非表示,1, 表示)
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了(ウフフ終了時)
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FLAG:시간정지
			RETURN 1
		ELSEIF GET_TARGETNUM() >= 3
			PRINTFORMW 「하아하아……\/\/\/ 수고 많으셨어요……」
		ELSEIF CFLAG:70:1006
			;満足
			IF TCVAR:70:355 && TALENT:70:연모
				SELECTCASE RAND:4
				CASE 1
					PRINTFORML 「아하아……%UNICODE(0x2764)% 응흐읏%UNICODE(0x2764)%」
				CASE 2
					PRINTFORML 「하아……하아……응흣%UNICODE(0x2764)%」
				CASE 4
					PRINTFORML 「하아……%UNICODE(0x2764)% 아하아……%UNICODE(0x2764)%」
				CASEELSE
					PRINTFORML 「응흣……%UNICODE(0x2764)% 에헤헤엣%UNICODE(0x2764)%」
				ENDSELECT
				SELECTCASE RAND:4
				CASE 1
					PRINTFORMW 「너무 기분 좋았습니다～%UNICODE(0x2764)% 다시 한번 야한일 합시다%UNICODE(0x2764)%」
				CASE 2
					PRINTFORMW 「최고입니다～%UNICODE(0x2764)% 야한일 너무 좋아요～%UNICODE(0x2764)%」
				CASE 3
					PRINTFORMW 「잔뜩 사랑받았습니다아%UNICODE(0x2764)% 무척 행복하네요～%UNICODE(0x2764)%%UNICODE(0x2764)%」
				CASEELSE
					PRINTFORMW 「%CALLNAME:MASTER%씨 조아해여어%UNICODE(0x2764)%%UNICODE(0x2764)%」
				ENDSELECT
				IF EX:70:질내정액
					IF TALENT:70:임신
						PRINTFORMW 「아기에게도 듬뿍 우유 부어져버렸습니다……%UNICODE(0x2764)%」
					ELSEIF CFLAG:70:생리주기 == 7
						PRINTFORMW 「아하아%UNICODE(0x2764)% 이거라면 아기, 가능할까나요%UNICODE(0x2764)%%UNICODE(0x2764)%」
					ELSEIF EX:70:질내정액 < 500
						PRINTFORMW 「아하%UNICODE(0x2764)% 자궁이 목말라있다구요～%UNICODE(0x2764)%」
					ELSEIF EX:70:질내정액 < 1000
						PRINTFORMW 「아앙%UNICODE(0x2764)% 넘쳐흐르고 있어요～%UNICODE(0x2764)%」
					ELSE
						PRINTFORMW 「제 질내에 이렇게나 당신의 것이%UNICODE(0x2764)% 전부 제거에요～%UNICODE(0x2764)%」
					ENDIF
				ENDIF
			ELSEIF CFLAG:70:욕구불만도 < 200
				PRINTFORML 「하아하아……\/\/\/」
				PRINTFORMW 「에헤헤%UNICODE(0x2764)% 또 해요%UNICODE(0x2764)%」
			ELSEIF CFLAG:70:욕구불만도 < 500
				PRINTFORML 「이제 끝난 건가요？」
				PRINTFORMW 「조,조금 더 하고 싶었습니다…%UNICODE(0x2764)%」
			ELSEIF CFLAG:70:욕구불만도 < 800
				PRINTFORML 「에엣……끝난다구요？」
				PRINTFORMW 「좀 더 해도 좋다구요……%UNICODE(0x2764)%」
			ELSE
				PRINTFORML 「엣, 끝인가요……？」
				PRINTFORMW 「므으…… 부족해요～！」
			ENDIF
			SELECTCASE M_KOJO_K70_BALANCE(70, 80)
			CASE 7, 6, 2
				PRINTFORMW (아하…%UNICODE(0x2764)% 미안해 아큐……♪)
			CASE 4
				PRINTFORMW (후후…%UNICODE(0x2764)% 아큐에게는 질 수 없어……！)
			ENDSELECT
		ELSE
			PRINTFORMW 「앗……끝인가요……？」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K70_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_K70_17(ARG,ARG:1)
#DIM 表示済み
;口上主はTARGET
;排他と明記されていないモノは状況にっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
表示済み = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「으응……읏！？」
		PRINTFORMW (지금……왠지……)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「아아앗！！」
		PRINTFORMDW 코스즈는 울상이 되어 볼을 붉게 물들이고 있다
		PRINTFORMW 「에…？ 에？ ㅁ……뭔가요……이거……？？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「어랏！？」
		PRINTFORMW (왠지 사타구니가……)
		;パンツのことは知らない
		IF FIRSTTIME("パンツ没収", 1)
			PRINTFORMW (어라……없어！？ 그런……거짓말……！)
		;パンツを没収したことがある
		ELSE
			PRINTFORML (ㅅ……설마……！？)
			PRINTFORMW (아니……불가능하겠지……)
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			;味を知らない
			IF FIRSTTIME("精液の味", 1)
				PRINTFORML 「응굿！？ 켈록켈록！」
				PRINTFORMW 「무, 뭐, 뭐얏, 켈록！」
				PRINTFORMW 「힛…… 조금 마셔버렸어……」
			;味を知っている
			ELSE
				PRINTFORML 「응굿！？ 켈록켈록！」
				PRINTFORMW 「무, 뭐, 뭐얏, 켈록！」
				PRINTFORMW 「오엑…… 기, 기분 나빠……」
			ENDIF
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			$GEROGERO
			;味を知らない
			IF FIRSTTIME("精液の味", 1)
				PRINTFORML 「응긋！？ 켈록켈록！」
				PRINTFORMW 「무, 뭐, 뭐얏, 켈록！」
				PRINTFORMW 「오엑……뭐야, 이거…… 기분 나빠……」
			;味を知っている
			ELSE
				PRINTFORML 「응긋！？ 켈록켈록！」
				PRINTFORMW 「뭐, 뭐야 이거, 설마, 켈록！」
				PRINTFORMW 「오엑…… 뭐야…… 우엣……」
			ENDIF
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			;味を知らない
			IF FIRSTTIME("精液の味", 1)
				PRINTFORML 「응긋！？ 켈록켈록！」
				PRINTFORMW 「어, 어째서, 여기엣, 켈록！」
				PRINTFORMW 「무긋…… 왜 갑자기…… 쓰고 기분 나빠……」
			;味を知っている
			ELSE
				PRINTFORML 「응긋！？ 켈록켈록！」
				PRINTFORMW 「이, 이것, 설마, 켈록！
				PRINTFORMW 「무긋…… 왜 갑자기…… 우푸읏……」
			ENDIF
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			$GOKKUN
			PRINTFORML 「응긋！？ 꿀꺽！」
			PRINTFORMW 「우에에…… 뭐야, 지금……」
			PRINTFORMW 「ㅁ, 마셔버렸어……」
		;濃厚でも同じ
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			GOTO GEROGERO
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			GOTO GOKKUN
		ENDIF
		表示済み = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;幼稚持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			IF 表示済み
				PRINTFORMW 「우에…… 얼굴에도 묻어버렸어……」
			ELSE
				PRINTFORML 「힛…… 이게 뭐야……」
				PRINTFORMW 「왜 이런거야…… 기분 나빠……」
			ENDIF
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			IF 表示済み
				PRINTFORMW 「아…… 얼굴에도 묻어있어…… 핥짝……」
			ELSE
				PRINTFORML 「힛…… 왜 여기에……」
				PRINTFORMW 「응…… 핥짝……」
			ENDIF
		ENDIF
		表示済み = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			IF 表示済み
				PRINTFORMW 「이런 곳에도……」
			ELSE
				PRINTFORML 「으엣…… 이게 뭐야……」
				PRINTFORMW 「어, 어쩌지……」
			ENDIF
		;舐めとり
		ELSEIF ARG:1 == 2
			IF 表示済み
				PRINTFORMW 「아아…… 손에도…… 핥짝……」
			ELSE
				PRINTFORML 「으엣…… 어째서……」
				PRINTFORMW 「응…… 핥짝……」
			ENDIF
		ENDIF
		表示済み = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚0
		IF ARG:1 == 1
			PRINTFORML 「히깃！！」
			PRINTFORMW 「우…… 뭔, 가……, 엉덩이가, 갑자기…… 아파……」
		;ソレ以外
		ELSEIF ARG:1 == 2
			PRINTFORML 「히깃！！」
			PRINTFORMW 「우…… 뭔, 가……, 엉덩이가, 갑자기…… 아파……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		IF 表示済み == 2
			PRINTFORML 「아긋……！！」
			PRINTFORMW 「뭔, 가…… 아, 아파… 누군가… 도와줘……」
		ELSE
			PRINTFORML 「히깃！！」
			PRINTFORMW 「뭐, 야…… 아, 아파… 누군가… 도와줘……」
		ENDIF
		表示済み = 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORML 「우우…… 뭐, 뭐인거야……」
		PRINTFORMW 「엄마…… 도와줘요…… \@ TALENT:70:연모 ? %CALLNAME:MASTER% # 레이무 \@씨……으에엥……」
		表示済み = 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;시간정지解除共通
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		;小鈴の部屋追い出し
		IF M_KOJO_K70_SUZUNAAN(CFLAG:70:현재위치) == 3
			PRINTFORMW 「도, 도두ーーーー우욱！！！」
			CALL M_KOJO_K70_KOSUZU_BURST
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K70_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「엣…… 그, 그건……！」
		PRINTFORMW 「아, 아직 빠르다고 생각합니다……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「죄, 죄송해요……」
		PRINTFORMW 「저, 무서워서……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「그건…… 안된다구욧！」
		PRINTFORMW 「아무리 %CALLNAME:MASTER%씨라도 안돼욧！！」
		PRINTFORMW 「조금은 제 기분도 생각해주세욧！」
		TCVAR:70:350 = 3
		TALENT:70:기분 = -1
		BASE:70:분노 += MAXBASE:70:분노
		CALL M_KOJO_K70_YAMETEKUDASAI(70, 3, 1)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「우ー응…… 알겠어요……」
		PRINTFORMW 「%CALLNAME:MASTER%씨를 위해서라면……%UNICODE(0x2764)%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「응……알겠어요　겨, 결심했으니까요……！」
		PRINTFORMW 「책임, 져주셔야 해요%UNICODE(0x2764)%」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K70_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;本当にこうなるとしたら完全に霊夢と同類になるわけだからきっとすごく喜ぶと思う
		;でも大切な鈴奈庵があるから一概には言えない
		;つまるところあなたへの愛情が鈴奈庵を勝ったということです
		PRINTFORMW 「해냈다！！」
		PRINTFORMW 「그럼 빨리 엄마와 아빠에게 말씀드리러 갈게요！」
		PRINTL
		PRINTFORMDL 코스즈는 이미 양친과 이야기가 되어 있던 것 같다
		PRINTFORMDL 아무래도 이전부터 계획하고 있던 것 같다
		PRINTW
		PRINTFORML 「스즈나안으로부터 멀어져버리는 것은 쓸쓸하지만」
		PRINTFORMW 「향후는 여기에서 하쿠레이 신사 지점을 경영하는 거네요♪」
		PRINTFORMW 「%CALLNAME:MASTER%씨와 함께라면 괜찮습니다！」
		PRINTFORMW 「아아……드디어 제 새로운 생활이 시작되는 거네요……！」
		PRINTL
		PRINTFORMDW 과연 사람이 오지 않는 신사에서 대여점이 유지될 수 있을까
		PRINTFORMDW 그러나 인간 대신에 요괴가 오는 이 신사에서는, 요마서에 관해서는 오히려 번창할 것이다
		PRINTFORMDW 설령 신변에 위기가 닥쳐오더라도 신사 안이라면 안심이다
		PRINTFORMDW 틀림없이 잘 될 것이다――
		PRINTFORMDL %마스터는% 그런 생각을 하면서, 코스즈와의 새로운 생활에 대한 기대에 가슴을 부풀렸다……
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「우우…… 그렇습니까……」
		PRINTFORMW 「어, 어쩔 수 없네요……하아」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K70_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
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
		;自室우후후中
		IF M_KOJO_K70_SUZUNAAN(CFLAG:MASTER:현재위치) == 2
			PRINTFORML 「안돼！ 벌써 이런 시간이에요！」
			PRINTFORMW 「죄송해요 %CALLNAME:MASTER%씨잇！ 저 돌아가봐야 해요！」
			RETURN 1
		ELSE
			PRINTFORML 「안돼！ 벌써 시간이 이렇게 됐어요！ 저 돌아가볼게요」
			PRINTFORMW 「오늘은 즐거웠어요♪ 안녕히 계세요 %CALLNAME:MASTER%씨, \@ TCVAR:70:354 ? 또 권하러 올게요 # 또 권해주세요 \@」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;自室
		IF CFLAG:70:현재위치 == OMANEKIBEYA()
			PRINTFORMW 「후와아…… 잠이 오고 있어요……」
			PRINTFORMW 「%CALLNAME:MASTER%씨, 안녕히 주무세요……」
			IF !TCVAR:(CFLAG:MASTER:초대):연속숙박금지 && NEMUKE() < 720
				PRINTFORMW 「……아니면, 아침까지 옆에 계셔주실래요……？」
			ELSEIF TALENT:70:연모
				PRINTFORMW 「……아니면, 아침까지 옆에 계셔주실래요……？」
			ENDIF
		ELSE
			PRINTFORML 「아, 통금 시간이라 저는 이만 실례할게요」
			PRINTFORMW 「오늘은 즐거웠어요♪ 안녕히 계세요 %CALLNAME:MASTER%씨, \@ TCVAR:70:354 ? 또 권하러 올게요 # 또 권해주세요 \@」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K70_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;연모取得
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「%CALLNAME:MASTER%씨…………」
		PRINTL
		PRINTFORMDL 코스즈는 나날의 생활 속에서 피어난, 작지만 격렬하게 타오르는 것 같은 감정을 깨달았다
		PRINTW
		;阿求の호감도
		IF TALENT:80:연인
			PRINTFORMW 「어떡하지…… 나, %CALLNAME:MASTER%씨의 일……」
			PRINTFORMW 「ㅇ…아큐의 연인인데… 그런……」
			PRINTFORMW 「그런…… 이런건…… 괴로워…… 너무 괴로워……」
			PRINTFORMW 「비록 제일이 되지 못한다고 해도…… 하지만 그러면 아큐는……」
			PRINTFORMW 「어쩌지…… 아큐… 미안해……」
			PRINTFORMW 「이제 나, 어떻게 하면 좋지…… 누군가… %CALLNAME:MASTER%씨… 아큐…… 우우……」
			PRINTL
			PRINTFORMDL 일전에 없던 강렬한 감정의 소용돌이에 감싸여, 코스즈의 마음은 깊은 어둠 속으로 잠겨들어갔다
			PRINTW
		ELSE
			;ヤンデレ感あるけど恋する乙女ってこういうものだと思うんです
			PRINTFORMW 「%CALLNAME:MASTER%씨…… 좋아… 좋아좋아좋아좋아……」
			PRINTFORMW 「만나고 싶어…… 껴안아지고 싶어…… 계속 함께하고 싶어……」
			IF TALENT:80:연모
				PRINTFORMW 「아큐, 미안해…… 나, 너에 대해서 응원할 생각으로 있었지만 ……」
				PRINTFORMW 「나도 좋아하게 되어버렸으니까, 어쩔 수 없는걸……」
				PRINTFORMW 「그녀석에게만은 질 수 없으니까…… 아큐보다 더 앞서나가지 않으면……！」
				PRINTFORMW 「그러기 위해서 약간의 우정 정도는……！」
				PRINTFORMW 「하아…… %CALLNAME:MASTER%씨…… 저, 노력할게요……」
				PRINTL
				PRINTFORMDL ――푸르게 타오르는 감정의 불길에 휩싸여, 코스즈의 가슴은 힘차게 뛰었다
				PRINTW
			ELSEIF TALENT:80:사모
				PRINTFORMW 「아큐에 상담해볼까…… 우스운 일이겠지만……」
				PRINTFORMW 「그녀석도 %CALLNAME:MASTER%씨와 사이가 좋고, 방치하면 뒤처져 버릴지도 몰라」
				PRINTFORMW 「연, 연애는 빠른 사람이 승자라고 책에도 쓰여있었고……　좋아……！」
				PRINTFORMW 「하아…… %CALLNAME:MASTER%씨…… 좋아아……」
				PRINTL
				PRINTFORMDL ――밀려오는것 같은 감정의 물결에 흔들리면서, 코스즈의 마음은 그 물결에 천천히 떠내려갔다
				PRINTW
			ELSE
				PRINTFORMW 「아, 연애편지라도 써볼까…… 이번에 책을 건네줄 때 몰래 끼워넣어서……」
				PRINTFORMW 「안돼겠지… 나에게 그런 문학적 재능은 없고…… 아큐에게 말이라도 한다면… 웃어버리겠지……」
				PRINTFORMW 「하아…… %CALLNAME:MASTER%씨…… 좋아합니다……」
				PRINTL
				PRINTFORMDL ――살랑거리며 불어오는 감정의 바람을 맞으며, 코스즈의 마음은 희미한 빛 속으로 녹아들어 갔다
				PRINTW
			ENDIF
		ENDIF
		CFLAG:70:1006 = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;사모取得
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「당신을 위해서라면 이 몸과 이 영혼을 요마에게 바치는 것도 마다하지 않겠습니다」
		PRINTL
		PRINTFORMW 「아아… 애달파라…… 어째서 그렇게까지 하는 걸까……」
		PRINTFORMW 「하아…… 언젠가 나도 이런 식으로 달콤하고도 불타는 것 같은 사랑을 해보고 싶네」
		PRINTFORMW 「그래도 내 주위 사람들은 모두――」
		PRINTFORMW 「아ー, %CALLNAME:MASTER%씨가 있었구나」
		PRINTFORMW 「우ー응, %CALLNAME:MASTER%씨라……」
		;阿求の호감도
		IF TALENT:80:연인
			PRINTFORMW 「……라니, 안돼안돼……」
			PRINTFORMW 「아큐의 소중한 사람이니까…… 나에게도 그런 속성은 없고……」
			PRINTFORMW 「우-응, 누군가 좋은 사람 없을까나……」
		ELSEIF TALENT:80:연모
			PRINTFORMW 「싫네ー, 그러면 너무 미안하니까」
			IF !TALENT:MASTER:연인
				PRINTFORMW 「그녀석, 빨리 들이대기라도 하면 좋을텐데」
				PRINTFORML 「우물쭈물 거리고 있으면 내가 훔쳐버릴거야, 정ㅡ말♪」
				PRINTFORMW 「후후……♪」
			ELSE
				PRINTFORMW 「아잇, 왜 적극적으로 다가가지 않는거지」
				PRINTFORMW 「역시 %CALLNAME:MASTER%씨에게 애인이라도 있는걸까」
				PRINTFORMW 「그러면 설령 이대로 사랑하게 되어버려도 비극인거네……」
			ENDIF
		ELSEIF TALENT:80:사모
			PRINTFORMW 「그 사람 애인 있는건가…… 언제나 주변에 여자아이들이 있는 것 같고ー……」
			PRINTFORMW 「그리고 보니 아큐와도 사이가 좋았던가」
			PRINTFORML 「아큐는 어떻게 생각하고 있는걸까」
			PRINTFORMW 「그녀석, 염문에 대해서는 생소할 것 같지만…… 기억은 분명 있는거였지」
			PRINTFORMW 「다음에 만나면 물어봐야지」
			PRINTFORMW 「아, %CALLNAME:MASTER%씨에게도 아큐를 어떻게 생각하는지 물어보는 것도 재미있겠네……」
		ELSE
			PRINTFORMW 「그 사람 애인 있는 건가…… 언제나 주변에 여자아이들이 있는 것 같고ー……」
			PRINTFORMW 「뭐, 함께 있어서 즐겁고 의지할 수 있는 남자라는 느낌은 나쁘지 않으니까……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;애욕取得
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;フラグだけ
		CFLAG:70:1006 = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;フラグだけ
		CFLAG:70:1006 = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;섹프取得
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K70_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 「하아하아…… 오늘은 왠지 흥분이 되네……」
		PRINTFORML 「그래, 내일 %CALLNAME:MASTER%씨에게 위로받아야지～……%UNICODE(0x2764)%」
	;同室
	ELSEIF ARG == 2
		PRINTFORML 「%CALLNAME:MASTER%씨, 잠들어 버리신건가요……？」
		PRINTFORML 「………………」
		PRINTL
		PRINTFORML 「%CALLNAME:MASTER%씨, 이렇게 바로 옆에 누군가가 있는데도……」
		PRINTFORML 「응……읏%UNICODE(0x2764)% 아……읏%UNICODE(0x2764)% %CALLNAME:MASTER%씨……읏%UNICODE(0x2764)%」
		PRINTFORML 「지금……일어나지 않……읏！ 아앗……%UNICODE(0x2764)%」
	;orz
	ELSEIF TALENT:70:연모 && (ABL:70:레즈끼 >= 3 || EXP:70:레즈경험 >= 100) && ABL:70:레즈끼 > RAND:15
		PRINTFORML 「아아……아큐……읏！」
		IF !RAND:2
			PRINTFORML 「후후…%UNICODE(0x2764)% 좋잖아, 가끔 정도는……%UNICODE(0x2764)%」
			PRINTFORML 「아큐,좋아해……%UNICODE(0x2764)% 읏%UNICODE(0x2764)%」
			PRINTFORML 「그래……읏%UNICODE(0x2764)% 우……읏%UNICODE(0x2764)% 함께 가버리잣……아으읏%UNICODE(0x2764)%」
		ELSE
			PRINTFORML 「그런…읏！ 아큐…우리……\/\/\/」
			PRINTFORML 「응…읏%UNICODE(0x2764)% 좋앗……%UNICODE(0x2764)% 괜찮아……%UNICODE(0x2764)%」
			PRINTFORML 「앗%UNICODE(0x2764)% 야앗%UNICODE(0x2764)% 응읏응%UNICODE(0x2764)% 안됏%UNICODE(0x2764)% 가……%UNICODE(0x2764)%」
		ENDIF
	;연모
	ELSEIF TALENT:70:연모
		PRINTFORML 「아아……%CALLNAME:MASTER%씨이……응！」
		IF TALENT:70:연인 && !RAND:3
			PRINTFORML 「오늘은 특별히에요…%UNICODE(0x2764)% 아아앙%UNICODE(0x2764)%」
			PRINTFORML 「아, 안돼요……손님에게 들려버리게 되니까……응앗%UNICODE(0x2764)%」
			PRINTFORML 「앗, 격렬해…%UNICODE(0x2764)% 가, 가버렸어요……%UNICODE(0x2764)%」
		ELSEIF TALENT:80:연인 && !RAND:3
			PRINTFORML 「안돼요 %CALLNAME:MASTER%씨… 아큐가 있는데……앗！」
			PRINTFORML 「아, 안돼요…… 드, 들려버릴거에요……응앗%UNICODE(0x2764)%」
			PRINTFORML 「아큐… 미안, 미안해……응, 가앗…%UNICODE(0x2764)%」
		ELSEIF !GROUPMATCH(TALENT:MASTER:연인, 0, 70, 80) && !RAND:3
			PRINTFORML 「안돼요 %CALLNAME:MASTER%씨… 여자친구가 있으시면서…앗！」
			PRINTFORML 「아, 안돼요…… 드, 들려버리니까……응앗%UNICODE(0x2764)%」
			PRINTFORML 「앗, 격렬해…%UNICODE(0x2764)% 가, 가버렸어요……%UNICODE(0x2764)%」
		ELSE
			SELECTCASE RAND:5
			CASE 1
				PRINTFORML 「오늘은 상냥하시네요……읏！」
				PRINTFORML 「네……물론이에요……아읏%UNICODE(0x2764)% 부탁드려요……읏%UNICODE(0x2764)%」
				PRINTFORML 「으응%UNICODE(0x2764)% 앗%UNICODE(0x2764)% 아앙,앗%UNICODE(0x2764)% 가앗%UNICODE(0x2764)% 가버려엇%UNICODE(0x2764)%」
			CASE 2
				PRINTFORML 「기분 좋아요……앗！」
				PRINTFORML 「ㅇ응%UNICODE(0x2764)% 좀 더…%UNICODE(0x2764)% 겨,격렬하게……응앗%UNICODE(0x2764)%」
				PRINTFORML 「아앗……가버려요…%UNICODE(0x2764)% 가버려%UNICODE(0x2764)% 응……%UNICODE(0x2764)%」
			CASE 3
				PRINTFORML 「괜찮아요,무섭지 않으니까……%UNICODE(0x2764)% 가만히 있어주세요%UNICODE(0x2764)%」
				PRINTFORML 「아하아%UNICODE(0x2764)% 날뛰고 있어서 귀여워%UNICODE(0x2764)% 응핫%UNICODE(0x2764)%」
				PRINTFORML 「그럼, 자 이대로 함께 가버리죠……%UNICODE(0x2764)% 응%UNICODE(0x2764)% 아아……%UNICODE(0x2764)% 후아앗%UNICODE(0x2764)%」
			CASE 4
				PRINTFORML 「후아아……%UNICODE(0x2764)% 더어……%UNICODE(0x2764)% 더어 해주세요……%UNICODE(0x2764)%」
				PRINTFORML 「아아……%UNICODE(0x2764)% 그거……%UNICODE(0x2764)% 응%UNICODE(0x2764)% %CALLNAME:MASTER%씨 좋아요……%UNICODE(0x2764)%」
				PRINTFORML 「가버리게 해주세요……%UNICODE(0x2764)% 엉망진창으로 해주세요……읏%UNICODE(0x2764)% 응%UNICODE(0x2764)% 하아,응%UNICODE(0x2764)%」
			CASEELSE
				PRINTFORML 「따뜻해……%UNICODE(0x2764)% 이대로 함께……\/\/\/」
				PRINTFORML 「응ー……읏, 아아……%UNICODE(0x2764)%」
				PRINTFORML 「앗…그런……%UNICODE(0x2764)% 안됏…%UNICODE(0x2764)%가게 해주세요……읏%UNICODE(0x2764)%」
			ENDSELECT
		ENDIF
		PRINTFORML 「…………후우\/\/\/」
	;사모
	ELSEIF TALENT:70:사모 && ABL:70:친밀 > RAND:10
		PRINTFORML 「아아……%CALLNAME:MASTER%씨……응\/\/\/」
		PRINTFORML 「…………후우\/\/\/」
	;通常
	ELSE
		PRINTFORML 「응\/\/\/」
		PRINTFORML 「…………후우」
	ENDIF
	PRINTL
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K70_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「엣, 아니, 저기……」
		PRINTFORMW 「무, 무슨 생각을 하고 계신거에요！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「엣, ㅁ, 목욕인가요……？」
		PRINTFORMW 「ㄴ, 네……\/\/\/ 너무 보지는 말아주세요……\/\/\/」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K70_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;연모
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:70:아이인원수
			PRINTFORMW 「읏！ 이,이건 꼭……！」
			PRINTFORML
			PRINTFORMDL 코스즈는 몸이 이상하다는 것을 깨닫고, %CALLNAME:MASTER%의 아랫도리로 향했다
			PRINTFORMW
			PRINTFORMW 「%CALLNAME:MASTER%씨…… 저기…… ㄸ, 또 생겨버렸어요……\/\/\/」
			PRINTFORMW 「꺄ー！ 그런 저, 벌써 아이가 여럿이라니……%UNICODE(0x2764)%」
			PRINTFORML 「그것도 이것도 %CALLNAME:MASTER%씨의 덕분이에요！」
			PRINTFORMW 「또 함께 아이를 기르도록 해요！」
		ELSE
			PRINTFORMW 「읏！ 이, 이거 혹시……！」
			PRINTFORML
			PRINTFORMDL 코스즈는 신체의 이변을 깨닫고는
			PRINTFORMDL 급히 %CALLNAME:MASTER%의 도움을 받으려 했지만, 주춤하며 그 발걸음을 늦추었다
			PRINTFORMW
			PRINTFORMW 「%CALLNAME:MASTER%씨…… 저기…… ㅅ, 생겨버렸습니다……\/\/\/」
			PRINTFORMW 「%CALLNAME:MASTER%씨가 사랑을 쏟아부어준 덕분이에요……%UNICODE(0x2764)%」
			PRINTFORML 「저, 엄마가 되는거네요……！」
			PRINTFORMW 「절대로 이 아이, 행복하게 해 보이겠어요……！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;사모
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「어！ 이, 이거 혹시……！」
		PRINTFORML
		PRINTFORMDL 코스즈는 자신의 몸에 생겨난 변화를 깨닫고는
		PRINTFORMDL 급히 %CALLNAME:MASTER%의 도움을 받으려 했지만, 문득 그 발걸음을 늦추었다
		PRINTFORMW
		PRINTFORMW 「%CALLNAME:MASTER%씨…… 저기…… 새, 생겨버렸습니다……\/\/\/」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;状況がむずい,辛辣だと思う
		PRINTFORMW 「읏！ 이,이거 혹시……！」
		PRINTFORML
		PRINTFORMDL 코스즈는 자신의 몸에 생겨난 이변을 깨닫고
		PRINTFORMDL 급히 %CALLNAME:MASTER%의 도움을 받으려 했지만, 문득 그 발걸음을 늦추었다
		PRINTFORMW
		PRINTFORMW 「%CALLNAME:MASTER%씨…… 저기…… ㅅ, 생겨버렸어요……」
		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_K70_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
IF LOCAL
	;子供の性格設定(まだ)
;	CALL M_KOJO_K70_CHILD_TYPE_SETTING(ARG:1)
	;無自覚リセット
	CFLAG:70:1010 = 0
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;연모
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「하아하아…… 하아하아……」
		PRINTFORMW 「우…… 으읏…… 으으읏！！」
		PRINTL
		PRINTFORMW 「하아…… 하아…… 아아…… 저와 %CALLNAME:MASTER%씨의 아이……\/\/\/」
		PRINTFORMW 「귀, 귀여워……\/\/\/ 후후…… 제가 엄마에요%UNICODE(0x2764)%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;사모
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「하아하아…… 하아하아……」
		PRINTFORMW 「우…… 으읏…… 으으읏！！」
		PRINTL
		PRINTFORMW 「하아…… 하아…… 아아…… 저와 %CALLNAME:MASTER%씨의 아이……\/\/\/」
		PRINTFORMW 「귀, 귀여워……\/\/\/ 후후…… 제가 엄마에요%UNICODE(0x2764)%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「하아하아…… 하아하아……」
		PRINTFORMW 「우…… 으읏…… 으으읏！！」
		PRINTL
		PRINTFORMW 「하아…… 하아…… %CALLNAME:MASTER%씨와의 아이……」
		PRINTFORMW 「귀, 귀여워……\/\/\/ 후후…… 제가 엄마에요%UNICODE(0x2764)%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「하아하아…… 하아하아……」
		PRINTFORMW 「우…… 으읏…… 으으읏！！」
		PRINTL
		PRINTFORMW 「하아…… 하아…… 아기…… 어째서……」
		PRINTFORMW 「우읏……, 우읏……, 우아～～～앙…………」
		;無自覚出産,親が分からない
		CFLAG:70:1010 = 1
		CFLAG:70:(1020 + ARG:1) = 1
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;딸딸이들킴
;==================================================
@M_KOJO_EVENT_K70_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
	CASE 0
		;-------------------------------------------------
		;見られた瞬間
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF FIRSTTIME("딸딸이들킴")
				PRINTFORMW 「아……%CALLNAME:MASTER%씨…… 어, 언제부터 거기에……」
				PRINTFORMW 「ㅇ…… 아니ーーーー으읏！！\/\/\/\/\/ 시집 못가게 되어버려어ーーーー요！！\/\/\/\/\/」
				TCVAR:70:350 += 1
				TALENT:70:기분 = -1
				TCVAR:70:356 = 1
			ELSEIF TALENT:70:연모 && GETBIT(CFLAG:70:기정사실, 1)
				;10日以上会ってない
				IF DAY - CFLAG:70:1002 >= 10
					PRINTFORML 「아…… %CALLNAME:MASTER%씨……！」
					PRINTFORMW 「이건…… 그, 왜냐면……」
					PRINTFORMW 「왜냐면～…… 최근에 만날 수 없어서 쓸쓸했었고～……」
					PRINTFORMW 「%CALLNAME:MASTER%씨가 나쁘다구요～……우에엥……」
					TCVAR:70:356 = 4
				ELSE
					PRINTFORML 「아…… %CALLNAME:MASTER%씨……！」
					PRINTFORMW 「이건…… 저기, 그게…… 책을 읽고 있자면…… 조금… 그런 내용이라서……」
					PRINTFORMW 「%CALLNAME:MASTER%씨의 일을 생각하고 있었더니…… 참을 수 없게 되어버렸어요……\/\/\/\/\/
					TCVAR:70:356 = 3
				ENDIF
			ELSE
				PRINTFORML 「아…… %CALLNAME:MASTER%씨……！」
				PRINTFORMW 「왜, 왜 있는건가요ㅡㅡ오！！\/\/\/\/\/ 바보ーーー오옷！！\/\/\/\/\/」
				TCVAR:70:356 = 2
			ENDIF
			RETURN 1
		ENDIF
	CASE 1
		;-------------------------------------------------
		;何もしない
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			;初回,연모なしor合意まだ
			IF TCVAR:70:356 == 1 || TCVAR:70:356 == 2
				PRINTFORMW 「ㄴ, 나, 나가주세요ーーーー오오！！\/\/\/\/\/」
			;연모＋合意
			ELSEIF TCVAR:70:356 == 3
				PRINTFORMW 「앗！ 기다려… 아……」
			;久しぶり
			ELSEIF TCVAR:70:356 == 4
				PRINTFORMW 「앗！ 그런…… 히끅……」
			ENDIF
			RETURN 1
		ENDIF
	CASE 2
		;-------------------------------------------------
		;そのまま続行
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			;初回,연모なしor合意まだ
			IF TCVAR:70:356 == 1 || TCVAR:70:356 == 2
				PRINTFORMW 「싫어……\/\/\/ 보지 말아주세요～～\/\/\/\/\/」
			;연모＋合意,久しぶり
			ELSEIF TCVAR:70:356 == 3 || TCVAR:70:356 == 4
				;自慰口上を表示
				IF EXP:70:조교자위경험 >= 30
					SELECTCASE RAND:3
					CASE 1
						PRINTFORMW 「아……\/\/\/ 응\/\/\/ 기분 좋아……앗…%UNICODE(0x2764)%」
						PRINTFORMW 「좀 더 봐주세요……%UNICODE(0x2764)% 봐요……%CALLNAME:MASTER%씨의 일을 생각하고 있으니 이렇게……\/\/\/」
					CASE 2
						PRINTFORMW 「하아～앗%UNICODE(0x2764)% %CALLNAME:MASTER%씨에게 보여지면서 하는거어%UNICODE(0x2764)% 버릇이 되어버려요%UNICODE(0x2764)%」
						PRINTFORMW 「ㅇ……\/\/\/ 멈출 수가 없어요……응아\/\/\/」
					CASEELSE
						PRINTFORMW 「%CALLNAME:MASTER%씨이……\/\/\/ 으응%UNICODE(0x2764)% 앗%UNICODE(0x2764)%」
						PRINTFORMW 「마,만져주세요……\/\/\/ 흥……」
					ENDSELECT
				ELSE
					SELECTCASE RAND:2
					CASE 1
						PRINTFORMW 「%CALLNAME:MASTER%씨, 외로워요……\/\/\/ 아앙%UNICODE(0x2764)%」
						PRINTFORMW 「왜냐하면 이거언……\/\/\/ 저 혼자서만……응%UNICODE(0x2764)%」
					CASEELSE
						PRINTFORMW 「어,언제나……%CALLNAME:MASTER%씨의 일을 생각하면……\/\/\/」
						PRINTFORMW 「읏\/\/\/ 앗\/\/\/ 하아……ㅅ！」
					ENDSELECT
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	CASE 3
		;-------------------------------------------------
		;追い出し
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			PRINTFORMW 「%CALLNAME:MASTER%씨는 바보오ーーー옷！！\/\/\/\/\/」
			TCVAR:70:350 = 3
			TALENT:70:기분 = -1
			BASE:70:분노 += MAXBASE:70:분노
			CALL M_KOJO_K70_YAMETEKUDASAI(70, 3, 1)
			RETURN 1
		ENDIF
	CASE 4
		;-------------------------------------------------
		;やっちゃう
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = CFLAG:70:1006
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			PRINTFORMW 「에에……%UNICODE(0x2764)% 그런……%UNICODE(0x2764)% 그치만……%UNICODE(0x2764)%」
			PRINTFORMW 「아응%UNICODE(0x2764)% 하힛%UNICODE(0x2764)% 기대하고 있었는걸요%UNICODE(0x2764)%%UNICODE(0x2764)%」
			PRINTFORMW 「부탁드려요%UNICODE(0x2764)% 잔뜩 귀여워해주세요……%UNICODE(0x2764)%」
			RETURN 1
		ENDIF
	CASE 5
		;-------------------------------------------------
		;事後
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = CFLAG:70:1006
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			PRINTFORML 「하아하아하아…… 기분 좋았어요……%UNICODE(0x2764)%」
			PRINTFORMW 「ㄱ, 그치만 노크에는…… 조심해주세요……」
			RETURN 1
		ENDIF
	CASE 6
		;-------------------------------------------------
		;事後お泊り
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = CFLAG:70:1006
		;-------------------------------------------------
		IF LOCAL:1
			PRINTL
			PRINTFORMW 「아, 묵고 가실 건가요？ 후후, 물론 좋다구요♪」
			PRINTFORMW 「마침 읽어줬으면 하는 책도 있었구요」
			PRINTFORMW 「괜찮다면 함께, 그 다음은 또――」
			PRINTFORMW 「……%UNICODE(0x2764)%」
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K70_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 "하쿠레이 신사"
				PRINTFORML 「저기, 괜찮다면 같이 하쿠레이 신사에 가지 않으실래요？」
				PRINTFORMW 「요전날에 레이무씨에게 대출해드린 책이 어떻게 되었는지 궁금해서요♪」
			CASE "명련사"
				PRINTFORML 「저기, 괜찮다면 같이 명련사에 가보시지 않으실래요？」
				PRINTFORMW 「후후, 저, 배우지 않았어도 경을 읽을줄 알거든요♪」
			CASE "인간마을"
				PRINTFORML 「저기, 괜찮으시다면 같이 마을에 가보실래요？」
				PRINTFORMW 「그……데이트를 하고 싶어서요……\/\/\/」
			CASE "안개의호수~홍마관"
				PRINTFORML 「저기, 괜찮으시다면 안개의 호수로 같이 가보실래요？」
				PRINTFORMW 「가끔은 한가롭게 산책을 해보고 싶어서요♪」
			CASE "미혹의 죽림"
				PRINTFORML 「저, 괜찮으시다면 같이 미혹의 죽림에 가보시지 않을래요？」
				PRINTFORMW 「족림의 고객분, 언제나 헤매서 좀처럼 만날수가 없거든요～」
			CASE "마법의 숲"
				PRINTFORML 「저기, 괜찮으시다면 같이 마법의 숲으로 가실래요？」
				PRINTFORMW 「요전에 마리사씨에게 대출해드린 책이 어떻게 되었는지 궁금해서요♪」
			CASE "삼도천~명계"
				PRINTFORML 「저기, 괜찮으시면 같이 중우의 길로 가보실래요？」
				PRINTFORMW 「주, 죽으러 가는게 아니에요！ 손님이 기다리고 계시다구요！」
			CASE "요괴의 산(산록)"
				PRINTFORML 「저기, 괜찮으시다면 같이 산기슭(산록)까지 가보지 않으실래요？」
				PRINTFORMW 「캇파분들이 궁금해하던 책을 빌려가셨거든요」
			CASE "요괴의 산(산정)"
				PRINTFORML 「저기, 괜찮으시다면 산의 정상까지 같이 가주시지 않을래요？」
				PRINTFORMW 「그곳의 신사에서는 자주 책을 빌리는데, 회수하러 가기가 힘드네요」
			CASE "지저"
				PRINTFORML 「저기, 저, 지하세계(지저)에 가보고 싶어요！」
				PRINTFORMW 「조금 무섭긴 하지만, %CALLNAME:MASTER%씨가 와주신다면……」
			CASE "꿈의 세계~달"
				PRINTFORML 「저기, 저, 달여행을 가보고 싶어요！」
				PRINTFORMW 「괴, 굉장히 로맨틱해서 좋을까 하고요……！」
			ENDSELECT
			RETURN 1
		ENDIF
	CASE 1
		;-------------------------------------------------
		;受けた
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「해냈다! 괜찮아요, 준비는 빈틈없으니까요♪」
			TCVAR:70:354 = 1
			TALENT:70:기분 = 1
			RETURN 1
		ENDIF
	CASE 2
		;-------------------------------------------------
		;断った
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「그런가요　아, 신경쓰지 말아주세요」
			PRINTFORMW 「그러면 다음 기회에」
			RETURN 1
		ENDIF
	CASE 3
		;-------------------------------------------------
		;部屋に誘われた
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「저, 오늘은 저희 집에 오지 않으시겠어요……？」
			IF FIRSTTIME("초대", 1, 70)
				;どんな事情だ,店番しなくていいんか
				PRINTFORMW 「오늘은 부모님이 모두 외출하셨기 때문에……그……」
			ELSE
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「%CALLNAME:MASTER%씨에게 꼭 읽어주셨으면 하는 책이 있어서……」
				CASE 2
					PRINTFORMW 「가르쳐주셨으면 하는 것이 있어요……」
				CASEELSE
					PRINTFORMW 「오늘은 부모님이 모두 외출하셔서……」
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
	CASE 4
		;-------------------------------------------------
		;部屋に誘われたのを受けた
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF FIRSTTIME("초대", 0, 70)
				PRINTFORML 「정말인가요！？ 해냈다！」
				PRINTFORMW (방을 깨끗하게 해두길 잘했어……)
			ELSE
				PRINTFORML 「와ー아♪」
				PRINTFORMW 「그럼 빨리 가도록 해요！」
			ENDIF
			TALENT:70:기분 = 1
			TCVAR:70:354 = 1
			RETURN 1
		ENDIF
	CASE 5
		;-------------------------------------------------
		;部屋に誘われたのを断った
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「그런가요……　아, 신경쓰지 말아주세요」
			PRINTFORMW 「다음 기회에는 꼭……！」
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K70_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:시간정지
			ELSE
				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:시간정지
			ELSE
				PRINTFORMW 「아아……\/\/\/」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック(=0, 非表示,1, 表示)
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF FLAG:시간정지
			ELSE
				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
					PRINTFORML 「에…… ㅁ, 무슨……」
					PRINTFORMW 「ㅂ, 변태인가요…… 당신은……」
					RETURN 1
				ENDIF
			CASE 3
				;-------------------------------------------------
				;嫌です
				;記入チェック(=0, 非表示,1, 表示)
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORML 「에…… 응, 무슨 말을 하신건가요……」
					PRINTFORMW 「%CALLNAME:MASTER%씨, 기분 나빠요……」
					RETURN 1
				ENDIF
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;분노口上
;==================================================
@M_KOJO_EVENT_K70_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの度胸で分岐
;--------------------------------------------------
;記入チェック(=0, 非表示,1, 表示)
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:70:연모
			PRINTFORMW 「이제 %CALLNAME:MASTER%씨같은건 모르니까！」
		ELSE
			PRINTFORMW 「…………！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[臆病]持ち
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORML 「후우…… 피곤해져버렸어요」
		PRINTFORMW 「%CALLNAME:MASTER%씨, 죄송해요%UNICODE(0x2764)%」
		TCVAR:70:351 = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML 「후우……%UNICODE(0x2764)%」
		PRINTFORMW 「%CALLNAME:MASTER%씨, 감사했어요%UNICODE(0x2764)%」
		TCVAR:70:351 = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORML 「꺄앗%UNICODE(0x2764)%」
		SELECTCASE RAND:2
		CASE 1
			PRINTFORMW 「아앙%UNICODE(0x2764)% 용서해주세～요！」
		CASEELSE
			PRINTFORMW 「아앙%UNICODE(0x2764)% 죄송해～요！」
		ENDSELECT
		TCVAR:70:351 = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック(=0, 非表示,1, 表示)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		;ダーク小鈴ちゃん
		PRINTFORML 「후후후……%UNICODE(0x2764)% %CALLNAME:MASTER%씨, 좋네요……%UNICODE(0x2764)%」
		PRINTFORMW 「드디어 이『서큐버스 동산』의 힘을 쓸 때가 찾아왔어요……%UNICODE(0x2764)%」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

[SKIPSTART]
;-------------------------------------------------
;딸딸이들킴遭遇時の地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K70_ONABARE_1(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;딸딸이들킴でそのまま続けてもらう場合の地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K70_ONABARE_2(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;딸딸이들킴なし崩しックスの地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K70_ONABARE_3(前戯１,本番はどっちか,回数,注入量)
;-------------------------------------------------
#DIM 前戯１
;1=C 2=B 3=M
#DIM 本番はどっちか
;0でＶ,1でＡ
#DIM 注入量
#DIM 回数

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

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

path: ERB/대사_메시지관련/개인대사/070 코스즈/M_KOJO_K70_01_イベント.ERB