code:
;-------------------------------------------------
;403휴식
;-------------------------------------------------
@MESSAGE_COM403
IF TARGET > 0
	IF CFLAG:TARGET:수면
		PRINTDATAL
			DATAFORM %조교자는% %CALLNAME:TARGET%의 잠자는 얼굴을 보면서 휴식했다
			DATAFORM %조교자는% 자는 %CALLNAME:TARGET%의 근처에서 쉬기로 했다
		ENDDATA
	ELSE
		PRINTDATAL
			DATAFORM %조교자는% %타겟과% 휴식했다
			DATAFORM %조교자는% %타겟과% 가볍고 쉬기로 했다
		ENDDATA
	ENDIF
ELSE ;KR판 임의수정(오리지날), 일판은 TEXTR로 되어있음.
	PRINTDATAL
		DATAFORM %조교자는% 휴식했다
		DATAFORM %조교자는% 가볍고 쉬기로 했다
		DATAFORM %조교자는% 향후의 예정을 조금 생각해 보았다
		DATAFORM %조교자가% 눈을 감았다가 뜨자 약간 시간이 흘러 있었다

	ENDDATA
ENDIF
;-------------------------------------------------
;404쫓아버린다
;-------------------------------------------------
;@MESSAGE_COM404
;LOCAL = ABS(TFLAG:193)
;IF TFLAG:193 > 0
;	PRINTFORML %조교자는% \@ TARGET ? %타겟과% 협력해 # \@%STR:(200 + LOCAL)%를 쫓아버렸다
;	PRINTFORML   ― %STR:(200 + LOCAL)%는 신령묘로 돌아갔습니다 ―
;ELSE
;	PRINTFORML %조교자는% \@ TARGET ? %타겟과% 협력해 # \@%STR:(200 + LOCAL)%를 쫓아버리려고 했다
;	PRINTFORML %STR:(200 + LOCAL)%는 시치미 뗀 얼굴로 %CALLNAME:PLAYER%\@ TARGET ? 들 #  \@을 응시하고 있다…
;ENDIF

;-------------------------------------------------
;410, 청소
;-------------------------------------------------
@MESSAGE_COM410
IF FLAG:562 == 1
PRINTFORML 대충 청소가 끝나자 %조교자는% 거실에 거주자들을 불러 모아 설교했다.
PRINTFORML 이것으로 당분간은 어지르지 않도록 배려해 준다면 좋겠는데…
FLAG:562 = 0
ELSE
IF FLAG:70
	LOCAL:3 = 0
	FOR LOCAL, 1, CHARANUM
		SIF CFLAG:LOCAL:동실
			LOCAL:3 ++
	NEXT
	IF LOCAL:3 == 1
		LOCALS = %마스터는% 시간을 정지당한 %타겟을% 거들떠보지도 않고
	ELSE
		LOCALS = %마스터는%
	ENDIF
ELSEIF TFLAG:193 && !CFLAG:수면 && !CFLAG:우후후
	LOCALS = %마스터와% %타겟은%
ELSEIF CFLAG:우후후
	LOCALS = %마스터는% %타겟을% 놔두고
ELSE
	LOCALS = %마스터는%
ENDIF
IF OUTROOF(CFLAG:MASTER:현재위치) && DAY:2 == 4
	SELECTCASE TFLAG:194
		CASE 0
			PRINTFORML %LOCALS% 누군가가 미끄러지지 않게 정성스럽게 눈을 치웠다
		CASE 1
			PRINTFORML %LOCALS% 삽으로 깨끗하게 눈을 치웠다
		CASE 2
			PRINTFORML %LOCALS% 제설 덤프를 사용해 일단 통과할 수 있을 정도의 길을 만들었다
			PRINTFORML 주위에는 아직 눈이 남아 있다
		CASE 3
			IF TALENT:MASTER:청소중독
				PRINTFORML %마스터는% 봉긋하게 쌓여있는 눈의 산을 눈앞에 두고 눈을 빛내면서 작업을 계속했다
				PRINTFORML 주위에는 아직 눈이 남아 있다
			ELSE
				PRINTFORML %LOCALS% 봉긋하게 쌓여있는 눈의 산을 눈앞에 두고 싫증이 나면서도 작업을 계속했다
				PRINTFORML 주위에는 아직 눈이 남아 있다
			ENDIF
	ENDSELECT
ELSEIF OUTROOF(CFLAG:MASTER:현재위치)
	SELECTCASE TFLAG:194
		CASE 0
			PRINTFORML %LOCALS% 자잘한 쓰레기를 쓸어 주변을 청결하게 만들었다
		CASE 1
			PRINTFORML %LOCALS% 빗자루로 주위의 쓰레기를 쓸었다
		CASE 2
			PRINTFORML %LOCALS% 쓰레기봉투를 꺼내 떨어지고 있는 쓰레기를 한개씩 정리했다
			PRINTFORML 주위는 아직 지저분하다
		CASE 3
			IF TALENT:MASTER:청소중독
				PRINTFORML %마스터는% 압도적인 양의 쓰레기를 눈앞에 두고 눈을 빛내면서 작업을 계속했다
				PRINTFORML 주위는 아직 지저분하다
			ELSE
				PRINTFORML %LOCALS% 압도적인 양의 쓰레기를 눈앞에 두고 싫증이 나면서도 작업을 계속했다
				PRINTFORML 주위는 아직 지저분하다
			ENDIF
	ENDSELECT
ELSE
	SELECTCASE TFLAG:194
		CASE 0
			IF TALENT:MASTER:악취내성 < 0
				PRINTFORML %LOCALS% 구석구석까지 세심하게 손질했다
			ELSE
				PRINTFORML %LOCALS% 걸레로 주위의 더러움을 닦아냈다
			ENDIF
		CASE 1
			PRINTFORML %LOCALS% 빗자루와 쓰레받기를 들고 주위를 깨끗이 쓸었다
		CASE 2
			IF TALENT:MASTER:악취내성 > 0 && CFLAG:MASTER:현재위치 == 15
				PRINTFORML %LOCALS% 쓰레기를 모아 벽장에 밀어넣었다
				PRINTFORML 주위는 아직 지저분하다
			ELSE
				PRINTFORML %LOCALS% 쓰레기를 정리해 휴지통에 버렸다
				PRINTFORML 주위는 아직 지저분하다
			ENDIF
		CASE 3
			IF TALENT:MASTER:청소중독
				PRINTFORML %마스터는% 압도적인 양의 쓰레기를 눈앞에 두고 눈을 빛내면서 작업을 계속했다
				PRINTFORML 주위는 아직 지저분하다
			ELSE
				PRINTFORML %LOCALS% 압도적인 양의 쓰레기를 눈앞에 두고 싫증이 나면서도 작업을 계속했다
				PRINTFORML 주위는 아직 지저분하다
			ENDIF
	ENDSELECT
ENDIF
IF TALENT:MASTER:청소중독
	PRINTFORML %마스터는% 청소의 쾌락에 얼굴을 새빨갛게 물들여 눈물을 글썽이며 청소를 계속하고 있다
	PRINT 지나친 쾌락에 모든 것을 잊고 녹은 표정으로
	IF CFLAG:MASTER:현재위치 == 3
		PRINTFORMW 내용물을 모아서 휴지통에
		PRINTFORML 위험했다
	;식탁 분기
	ELSEIF CFLAG:MASTER:현재위치 == 9 || CFLAG:MASTER:현재위치 == 27 || CFLAG:MASTER:현재위치 == 41
		PRINTFORML 질퍽질퍽 소리를 내며 행주를 계속 움직이고 있다
		PRINTFORML 내버려두면 계속 언제까지고 계속 할 것 같다
	;창고, 벽장 분기
	ELSEIF CFLAG:MASTER:현재위치 == 6 || CFLAG:MASTER:현재위치 == 18 || CFLAG:MASTER:현재위치 == 35 || CFLAG:MASTER:현재위치 == 51
		PRINTFORML 달그락거리는 소리를 내 정리를 계속하고 있다
		PRINTFORML 내버려두면 계속 언제까지고 계속 할 것 같다
	ELSE
		PRINTFORML 질퍽질퍽하고 소리를 내며 걸레를 계속 움직이고 있다
		PRINTFORML 내버려두면 계속 언제까지고 계속 할 것 같다
	ENDIF
ELSEIF CFLAG:우후후 && SHIRAHU(TARGET)
	PRINTL 등 뒤로부터 차가운 시선을 느끼지만 신경쓰지 않기로 한다
ENDIF
IF STRLENS(TSTR:2)
	WAIT
	PRINTFORML 벗어둔 채로 둔 %TSTR:2%가 떨어져 있었다
	PRINT [0] - 훔친다 [1] - 그만둔다
	INPUT
	IF !RESULT
		PRINTFORML %TSTR:2%를 몰래 훔쳤다
		CALL PANTS_GETTING(FOUND_PANTS_OWNER, FOUND_PANTS_TYPE)
	ELSE
		TSTR:3 =
		PRINTFORML %TSTR:2%를 세탁 바구니에 집어넣었다
	ENDIF
ENDIF

SIF !TFLAG:193 && TARGET > 0 && !CFLAG:수면 && !FLAG:70
	PRINTFORML %타겟은% 감탄하면서 %CALLNAME:MASTER%의 작업을 바라보고 있다
ENDIF
;-------------------------------------------------
;411, 전투훈련
;-------------------------------------------------
@MESSAGE_COM411
PRINTFORM %마스터는%
IF TARGET > 0
	IF ABL:MASTER:전투능력 > ABL:TARGET:전투능력
		PRINTFORM %CALLNAME:TARGET%에 조언하면서
	ELSE
		PRINTFORM %CALLNAME:TARGET%에 조언을 받으면서
	ENDIF
ENDIF
IF !TFLAG:194
	PRINTL 탄막 훈련을 실시했다
ELSE
	SELECTCASE TIME:5
		CASE 4,6
			PRINTL 빗속에서 탄막 훈련을 실시했다
			PRINTL 매우 지쳤다
		CASE 1
			IF TFLAG:194 == 3
				PRINTL 강렬한 직사광선 아래에서 탄막 훈련을 실시했다
				PRINTL 열사병에 걸릴 것 같다…
			ELSE
				PRINTL 구름 한 점 없는 푸른 하늘 아래에서 탄막 훈련을 실시했다
			ENDIF
		CASE 5
			PRINTL 폭우가 쏟아지는 가운데, 어려운 훈련을 강행했다
			PRINTW 죽도록 지쳤다
		CASE 8,10,12,13
			PRINTL 눈 아래에서 탄막 훈련을 실시했다
			PRINTL 매우 지쳤다
		CASE 9
			PRINTL 비바람 속에서 어려운 훈련을 강행했다
			PRINTW 죽도록 지쳤다
		CASEELSE
			PRINTL 탄막 훈련을 실시했다
	ENDSELECT
ENDIF
IF TALENT:MASTER:형상 == 4
	IF ABL:MASTER:전투능력 == 0
		PRINTL 훈련하기 나름으로 고간의 광량을 조정할 수 있겠다는 생각이 든다
	ELSEIF ABL:MASTER:전투능력 == 1
		PRINTL 고간을 순간적으로 발광시켜 반격을 할 수 있게 되었다
	ELSEIF ABL:MASTER:전투능력 == 2
		PRINTL 고간의 빛을 수렴시킬 수 있겠다는 생각이 든다
	ELSEIF ABL:MASTER:전투능력 == 3
		PRINTL 탄막에 수렴시킨 광선을 섞을 수 있게 되었다
	ELSEIF ABL:MASTER:전투능력 == 4
		PRINTL 고간으로부터 발해지는 시각봉쇄와 광선을 혼합한 탄막은 꽤나 괜찮은 물건이다
	ELSEIF ABL:MASTER:전투능력 == 5
		PRINTL 당신의 고간의 광선은 마스터 스파크에 육박하고 있다
	ELSEIF ABL:MASTER:전투능력 >= 6
		PRINTL 당신의 탄막 전투능력은 일선급이다
	ENDIF
ENDIF
SIF ABL:MASTER:전투능력 > 2 && TARGET > 0
	PRINTFORML %타겟은% %CALLNAME:MASTER%의 실력에 감탄하고 있다
SIF ABL:MASTER:전투능력 < ABL:TARGET:전투능력 - 2
	PRINTFORML %CALLNAME:TARGET%의 지도는 매우 도움이 된다
SIF TFLAG:194
	PRINTFORMW %타겟은% 하드한 훈련으로 근성이 다했습니다
IF TFLAG:193
	PRINTW
	PRINTL 훈련 후에 스포츠드링크를 마셨다
	PRINTL 지친 몸에 수분이 스며든다…
	ITEM:스포츠드링크 --
ENDIF
;-------------------------------------------------
;412, 공부
;-------------------------------------------------
@MESSAGE_COM412
PRINTFORM %마스터는%
IF TARGET > 0 && !CFLAG:TARGET:수면 && CFLAG:행동 != 5
	IF ABL:MASTER:교양 > ABL:TARGET:교양
		PRINTFORM %CALLNAME:TARGET%에게 가끔 가르치면서
	ELSE
		PRINTFORM %CALLNAME:TARGET%의 가르침을 받으면서
	ENDIF
ELSEIF TARGET > 0
	PRINTFORM %CALLNAME:TARGET% 옆에서
ENDIF
PRINTL 공부했다
SIF ABL:MASTER:교양 > 2 && TARGET > 0 && !CFLAG:TARGET:수면 && CFLAG:행동 != 5
	PRINTFORML %타겟은% %CALLNAME:MASTER%의 지식에 감탄하고 있다
SIF ABL:MASTER:교양 < ABL:TARGET:교양 - 2 && !CFLAG:TARGET:수면&& CFLAG:행동 != 5
	PRINTFORML %CALLNAME:TARGET%의 지도는 크게 도움이 된다
IF ITEM:214 > 0
	PRINTFORML %마스터는% 숙제를 한 개 정리했다
	ITEM:214 --
ENDIF
;-------------------------------------------------
;413, 요리
;-------------------------------------------------
@MESSAGE_COM413
#DIM 도구력
#DIM 보너스점수
;本当はこれで良かったんだけど、既存の口上に全部手を入れなくちゃいけなくなったのでやめました
도구력 = TFLAG:194 / 100
보너스점수 = TFLAG:194 % 100
;PRINTFORMW \@ DISH_ASSI ? %CALLNAME:DISH_ASSI%と # \@【%DISH_NAME%】を作ります
SELECTCASE DISH_NAME
	CASE "튀김 로터"
		PRINTFORML %마스터는% 로터에 소금과 후추로 간을 한 후 얇게 튀김옷을 입혀 바삭하게 튀겼다
	CASE "살짝 데친 E마사지기풍 로터"
		PRINTFORML %마스터는%  말끔히 손질한 로터를 쓱 데쳐 식힌 그릇에 담고 매실을 곁들였다
	CASE "클리캡용 로터 손잡이"
		PRINTFORML %마스터는% 로터를 회를 떠서 가볍게 굽고 주먹 모양으로 만들어 특제 양념장을 발랐다
	CASE "오나홀로 만든 로터 조림"
		PRINTFORML %마스터는% 다시마 베이스의 심플한 육수에서 야채와 함께 로터를 끓였다
	CASEELSE
;		PRINTFORML ・
;		PRINTFORML ・・・
;		SIF DISH_TIME > 10
;			PRINTFORML ・・・・・・
;		SIF DISH_TIME > 30
;			PRINTFORML ・・・・・・・・・・・・
ENDSELECT
;PRINTFORML 【%EX_DISH_NAME%】
;CALL SHOW_TASTE(DISH_TASTE, "DISH_DATA")
;PRINTFORM 出来栄え：
;CALL 出来栄え(DISH_BASEPOINT)
;IF DISH_ASSI
;	PRINTFORML 　／%CALLNAME:MASTER%の技能({ABL:MASTER:料理技能}) + %CALLNAME:DISH_ASSI%の技能({ABL:DISH_ASSI:料理技能}) + 食材の品質({DISH_RANK})\@ 도구력 ? + 道具の品質({도구력}) # \@\@ 보너스점수 ? + 보너스점수({보너스점수}) # \@
;ELSE
;	PRINTFORML 　／%CALLNAME:MASTER%の技能 x 2({ABL:MASTER:料理技能 * 2}) + 食材の品質({DISH_RANK})\@ 도구력 ? + 道具の品質({도구력}) # \@\@ 보너스점수 ? + 보너스점수({보너스점수}) # \@
;ENDIF
;-------------------------------------------------
;414, 식사한다
;-------------------------------------------------
@MESSAGE_COM414
#DIM DYNAMIC EAT_ALONE
PRINTFORML %조교자는% ＜%EX_DISH_NAME%＞%조사만처리(EX_DISH_NAME,"를")% 먹기로 했다
IF TARGET > 0 && !CFLAG:TARGET:수면
	PRINTFORML %조교자는% %CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ? 들 # \@에게 식사 제의를 했다
;ELSEIF TARGET > 0 && CFLAG:TARGET:쇠약
;	PRINTFORML %조교자는% %CALLNAME:TARGET%에 식사를 받게 했다
ELSE
	PRINTFORML %조교자는% 혼자서 묵묵히 식사를 했다…
	EAT_ALONE = 1
ENDIF
CALL MESSAGE_EAT_DISH(PLAYER, EAT_ALONE)

;-------------------------------------------------
;415, 식사를대접한다
;-------------------------------------------------
@MESSAGE_COM415
#DIM DYNAMIC EAT_ALONE
SIF GET_TARGETNUM() <= 1
	EAT_ALONE = 1
PRINTFORML %조교자는% %CALLNAME:TARGET%\@ EAT_ALONE == 0 ?  들 # \@에게＜%EX_DISH_NAME%＞를 대접했다
IF TFLAG:193 == -2
	PRINTFORML %타겟은% 무엇인가 말하고 싶어 하는 것 같은 표정으로, ＜%EX_DISH_NAME%＞를 되밀었다
	RETURN
ENDIF
CALL MESSAGE_EAT_DISH(TARGET, EAT_ALONE)

;-------------------------------------------------
;414/415, 공통, 각 요리마다의 지문
;-------------------------------------------------
@MESSAGE_EAT_DISH(CHARA, EAT_ALONE)
#DIM CHARA    ;주체가 되는 캐릭터
#DIM EAT_ALONE;먹는 것이 한사람이라면 1
IF TFLAG:194 == 1
	PRINTL 이것은… 노팬티 샤브샤브다!
;ELSEIF STRCOUNT(DISH_TASTE, "로터/")
;	PRINTL
ELSEIF STRCOUNT(DISH_TASTE, "정력/")
	PRINTL 이것은 정력이 붙는다!
ENDIF
SELECTCASE DISH_NAME
CASE "긴기 요리"
	PRINTW 「이것 무슨 요리?」
	PRINTW 「긴기 요리」
	PRINTW 「재료는?」
	PRINTW 「긴기」
CASE "모짜렐라 치즈와 토마토의 샐러드"
	IF STRCOUNT(DISH_TASTE, "야채 빼기/")
		IF CHARA == [[나즈린]] || (CHARA == MASTER && FLAG:역극 == [[나즈린]])
			;는 엉성한 전용 분기! 하모니라는건 뭐야
			PRINTL 므아아았있～어!    ……이, 이것은～! 이 맛은～! 상큼한 치즈에 치즈의 쥬시한 부분이 얽히는 맛이다!
			PRINTL 치즈가 치즈를! 치즈가 치즈를 살리고 있어! “하모니”라고나 할까～“맛의 조화”라고나 할까～!
			PRINTL 예를 들면 사이먼과 가펑클의 듀엣!   웃짱 하면 난짱!   타카모리 아사오 원작에 치바 테츠야의 “내일의 죠”!
		ELSE
			PRINTL 므아아았있～어!    ……이, 이것은～!
			PRINTL ……라고 생각했지만, 뭔가 잘 모르지만, 맛이 그다지 안나지 않아? 이 치즈～
		ENDIF
	ELSE
		PRINTL 므아아았있～어!　 ……이, 이것은～! 이 맛은～! 상큼한 치즈에 토마토의 쥬시한 부분이 얽히는 맛이다!
		PRINTL 치즈가 토마토를! 토마토가 치즈를 살리고 있어! “하모니”라고나 할까～“맛의 조화”라고나 할까～!
		PRINTL 예를 들면 사이먼과 가펑클의 듀엣!   웃짱 하면 난짱!   타카모리 아사오 원작에 치바 테츠야의 “내일의 죠”!
	ENDIF
CASE "도핑 콘소메 수프"
	PRINTL 수없는 식재료·약물을 정밀한 밸런스로 배합해 특수한 양념을 하여 끓이기를 7일 낮 7일 밤!
	PRINTL 혈액이나 소변으로부터는 결코 검출되지 않으며, 게다가 모든 약물의 효과도 몇 배…
	PRINTL 혈관으로부터 주입하는(먹는) 것으로 한층 몇 배 더!
CASE "경단"
	IF NAME_MOON(DAY:3) == "보름 -중추의 명월- "
		PRINTFORML %CALLNAME:CHARA%\@ EAT_ALONE == 0 ? 들은 # %조사만처리(CALLNAME:CHARA,"는")%\@
		IF MOON_WATCH(DAY:3) < 1
			PRINTFORML 달이 안보이는 것을 아쉬워하면서
		ELSE
			PRINTFORML 훌륭한 만월을 바라보면서
		ENDIF
		PRINTFORML 15일에 바치는 경단을 집어 먹었다
	ENDIF
CASE "초밥", "생선회", "활어회"
	PRINTFORML %CALLNAME:CHARA%\@ EAT_ALONE == 0 ? 들은 # %조사만처리(CALLNAME:CHARA,"는")%\@ 물고기의 맛을 살린 심플하면서 안쪽 깊은 묘미에 입맛을 다셨다
CASE "정어리 파이"
	PRINTFORML %CALLNAME:CHARA%\@ EAT_ALONE == 0 ? 들은 # %조사만처리(CALLNAME:CHARA,"는")%\@ 하늘을 노려보는 물고기의 무리에 압도되면서도, 과감하게 도전했다
CASE "고기만두"
	SIF STRCOUNT(DISH_TASTE, "따뜻한/") && STRCOUNT(DISH_TASTE, "旬/")
		PRINTFORML %CALLNAME:CHARA%\@ EAT_ALONE == 0 ? 들은 # %조사만처리(CALLNAME:CHARA,"는")%\@ 김이 나는 후끈후끈한 %조사처리(DISH_NAME,"을")% 덥석 물었다!
CASE "샌드위치", "주먹밥", "스콘"
	PRINTFORML %CALLNAME:CHARA%\@ EAT_ALONE == 0 ? 들은 # %조사만처리(CALLNAME:CHARA,"는")%\@ %조사처리(DISH_NAME,"를")% 집어 먹으면서 휴식했다.
CASE "오세치요리"
	SIF STRCOUNT(DISH_TASTE, "길한물건/")
		PRINTFORML %CALLNAME:CHARA%\@ EAT_ALONE == 0 ? 들은 # %조사만처리(CALLNAME:CHARA,"는")%\@ 화려한 오세치 요리의 찬합을 쿡쿡 찌르면서 신년의 도래를 축하했다
CASE "토시코시 소바"
	IF STRCOUNT(DISH_TASTE, "길한물건/")
		PRINTFORML %CALLNAME:CHARA%\@ EAT_ALONE == 0 ? 들은 # %조사만처리(CALLNAME:CHARA,"는")%\@ 소바를 후루룩거리면서
		IF RAND:10 < 5
			PRINTFORML 다가오는 신년에 대해 생각했다
		ELSE
			PRINTFORML 지나간 작년을 되돌아 보았다
		ENDIF
	ENDIF
CASE "에호마키"
	SIF STRCOUNT(DISH_TASTE, "길한물건/")
		PRINTFORML 근처에는 오물오물 김밥을 베어무는 소리만이 울리고 있다
;야채 빼기
CASE "콩나물 볶음"
	SIF STRCOUNT(DISH_TASTE, "야채 빼기/")
		PRINTL 야채볶음을 만들었을텐데 어쩐지 콩나물만으로 되어 있다……
CASE "나물없음"
	SIF STRCOUNT(DISH_TASTE, "야채 빼기/")
		PRINTL 식초와 가다랑어로 만든 포만 가득하고 중요한 푸른 채소가 없다……
CASE "채소절임 곱빼기밥"
	SIF STRCOUNT(DISH_TASTE, "야채 빼기/")
		PRINTL 채소 절임이 없다! 그게 없다면 밥맛이 없다!
CASEELSE
	SIF STRCOUNT(DISH_TASTE, "야채 빼기/")
		PRINTL 야채가 들어가 있지 않다……
ENDSELECT

IF DISH_DRG
	CALL MESSAGE_EAT_DISH_DRG(TARGET, GET_TARGETNUM() > 1)
ELSEIF TFLAG:193 == 1
	PRINTFORML %타겟은% ＜%EX_DISH_NAME%＞를 먹어치우고 만족한 것 같다…
ELSEIF TFLAG:193 == -1
	PRINTFORML …아무래도 %타겟이% 입맛에 맞지 않았던 것 같다
ELSE
	IF CHARA == MASTER
		SIF TARGET != MASTER
			PRINTFORML %타겟과% %조교자는% ＜%EX_DISH_NAME%＞%조사만처리(EX_DISH_NAME,"를")% 먹으면서 즐거운 한때를 보냈다…
	ELSE
		PRINTFORML %타겟은% ＜%EX_DISH_NAME%＞%조사만처리(EX_DISH_NAME,"를")% 먹으면서 즐거운 한때를 보냈다…
	ENDIF
ENDIF

;-------------------------------------------------
;仕込み料理を食べた時の反応,MASTERには使わない
;-------------------------------------------------
@MESSAGE_EAT_DISH_DRG(CHARA, 복수인)
#DIM CHARA
#DIM 복수인
SIF CHARA == MASTER
	RETURN
PRINTFORML %CALLNAME:CHARA%\@ 복수인 ? 들은 # %조사만처리(CALLNAME:CHARA, "은")%\@ %조사처리(ITEMNAME:DISH_DRG,"가")% 들어간 ＜%EX_DISH_NAME%＞%조사만처리(EX_DISH_NAME,"를")% 먹어치웠다
PRINTFORM %CALLNAME:CHARA%\@ 복수인 ? 들은 # %조사만처리(CALLNAME:CHARA, "은")%\@
SELECTCASE ITEMNAME:DISH_DRG
CASE "미약"
	PRINTFORML 뺨에 홍조를 띠며 묘하게 열띤 한숨을 내쉬고 있다…
CASE "이뇨제"
	PRINTFORML 약간 안짱다리가 되어, 머뭇머뭇 허리를 흔들고 있다…
CASE "춘약"
	PRINTFORML 황홀해 하는 표정으로 가만히 이쪽을 응시하고 있다…
CASE "수면제"
	PRINTFORML 눈꺼풀을 무겁게 하고 꾸벅꾸벅하고 있다…
ENDSELECT

;-------------------------------------------------
;416, 연주한다
;-------------------------------------------------
@MESSAGE_COM416
#DIM DYNAMIC 악기튕겨
#DIM DYNAMIC 가수있고
#DIMS DYNAMIC 악기필두
#DIMS DYNAMIC 노래필두
VARSET LOCAL
LOCAL = -1
WHILE 1
	LOCAL = FINDCHARA(TALENT:음악지식, 1, LOCAL + 1)
	SIF LOCAL < 0
		BREAK
	SIF !LOCAL
		CONTINUE
	IF CFLAG:MASTER:현재위치 == CFLAG:LOCAL:현재위치
		IF !ACCOMPANY_ABLE(LOCAL) || TARGET == LOCAL
			CONTINUE
		ELSE
			IF !악기튕겨
				악기필두 = %CALLNAME:LOCAL%
			ELSEIF !RAND:악기튕겨
				악기필두 = %CALLNAME:LOCAL%
			ENDIF
			악기튕겨 ++
		ENDIF
	ENDIF
WEND
LOCAL:1 = -1
WHILE 1
	LOCAL:1 = FINDCHARA(TALENT:음악지식, 2, LOCAL:1 + 1)
	SIF LOCAL:1 <0
		BREAK
	SIF !LOCAL:1
		CONTINUE
	IF CFLAG:MASTER:현재위치 == CFLAG:(LOCAL:1):현재위치
		IF !ACCOMPANY_ABLE(LOCAL:1) || TARGET == LOCAL:1
			CONTINUE
		ELSE
			IF !가수있고
				노래필두 = %CALLNAME:(LOCAL:1)%
			ELSEIF !RAND:가수있고
				노래필두 = %CALLNAME:(LOCAL:1)%
			ENDIF
			가수있고 ++
		ENDIF
	ENDIF
WEND
SIF 악기튕겨 > 1
	악기필두 += "들"
SIF 가수있고 > 1
	노래필두 += "들"
IF TFLAG:사용악기 != 0
	PRINTFORM %마스터는%
	;악기 소유 캐릭터, 프리리바3 자매와 츠쿠모 자매와 라이코가 TARGET로 그녀들의 음악기능을 웃돌고 있다
	IF TARGET > 0 && (ABL:MASTER:음악기능 >= ABL:TARGET:음악기능) && TALENT:TARGET:음악지식 == 1 && ACCOMPANY_ABLE(TARGET)
		PRINTFORM %타겟과% 함께
	;가창 캐릭터, 미스티아와 쿄코, 엘렌이 TARGET로 그녀들의 음악기능을 웃돌고 있다
	ELSEIF TARGET > 0 && (ABL:MASTER:음악기능 >= ABL:TARGET:음악기능) && TALENT:TARGET:음악지식 == 2 && ACCOMPANY_ABLE(TARGET)
		PRINTFORM %CALLNAME:TARGET%의 노래에 맞추어
	;당신의 음악기능이 TARGET보다 낮은가 TARGET가 음악지식 을 가지고 있는
	ELSEIF TARGET > 0 && (ABL:MASTER:음악기능 <= ABL:TARGET:음악기능 || TALENT:TARGET:음악지식)
		PRINTFORM %CALLNAME:TARGET%에 조언을 받으면서
	ELSEIF 악기튕겨 && 가수있고
		PRINTFORM %악기필두%과 대등해, %노래필두%의 노래에 맞추어
		LOCAL:2 = 3
	ELSEIF 악기튕겨
		PRINTFORM %악기필두%과 함께,
		LOCAL:2 = 2
	ELSEIF 가수있고
		PRINTFORM %노래필두%에 맞추어,
		LOCAL:2 = 1
	ENDIF
	SELECTCASE TFLAG:사용악기
		CASE 1
			PRINTL 키보드를 연주해 보았다
		CASE 2
			PRINTL 피아노를 연주해 보았다
		CASE 3
			PRINTL 기타를 연주해 보았다
		CASE 4
			PRINTL 트럼펫을 불어 보았다
		CASE 5
			PRINTL 바이올린을 연주해 보았다
	ENDSELECT
	IF TFLAG:193 == 1
		IF LOCAL:2
			IF TARGET && !GROUPMATCH(TARGET, 20,21,22,28,44,88,94,95,96)
				PRINTFORM %CALLNAME:TARGET%\@ IN_ROOM_NUMBER(CFLAG:MASTER:현재위치) > 2 ?  들 #  \@은 %마스터와%
				IF LOCAL:2 == 3
					PRINTFORM %악기필두%와 %노래필두%의 즉흥 라이브
				ELSEIF LOCAL:2 == 2
					PRINTFORM %악기필두%의 앙상블
				ELSEIF LOCAL:2 == 1
					PRINTFORM %노래필두%의 공동 출연
				ENDIF
				PRINTFORML 에 넋을 잃고 듣고 있다
			ELSE
				PRINTFORML %타겟은% %마스터와%의 세션에 흥겨워하고 있다
			ENDIF
		ELSE
			IF TARGET
				IF !GROUPMATCH(TARGET, 20,21,22,28,44,88,94,95,96)
					PRINTFORML %CALLNAME:TARGET%\@ IN_ROOM_NUMBER(CFLAG:MASTER:현재위치) > 2 ?  들 #  \@은 황홀한 표정으로 넋을 잃고 듣고 있다
				ELSE
					PRINTFORML %타겟은% %마스터와%의 세션에 흥겨워하고 있다
				ENDIF
			ELSEIF (WITH_MOB() || DATE_HITOGOMI()) && !GROUPMATCH(TIME:2, 1,6,7)
				PRINTFORML \@ (MAIN_MAP !=9 && CFLAG:MASTER:현재위치 == 960) || (IN_HOME(CFLAG:MASTER:현재위치) && !CHK_FOCUS(927, CFLAG:MASTER:현재위치, 948) && (ROOMDATA:(CFLAG:MASTER:현재위치 % 100) & 장소_모브)) ?  %ANIMALNAME()% # %DATE_HITOGOMI_SYUBETU()% \@는 %CALLNAME:MASTER%의 곁에 와 (들)물어 반하고 있다
			ELSE
				PRINTFORML 아무도 듣지 않는 회심의 연주가 흐르고 있다
			ENDIF
		ENDIF
	ELSEIF TFLAG:193 == -1
		IF LOCAL:2
			IF TARGET && !GROUPMATCH(TARGET, 20,21,22,28,44,88,94,95,96)
				PRINTFORM %타겟은% %마스터와%
				IF LOCAL:2 == 3
					PRINTFORM %악기필두%와 %노래필두%의
				ELSEIF LOCAL:2 == 2
					PRINTFORM %악기필두%의
				ELSEIF LOCAL:2 == 1
					PRINTFORM %노래필두%의
				ENDIF
				PRINTFORML 신경쓰이는 불협화음에 얼굴을 찌푸리고 있다
			ELSE
				PRINTFORML %타겟은% %마스터와%의 세션을 끝맺고 허둥지둥 떨어졌다
			ENDIF
		ELSE
			IF TARGET
				PRINTFORML %타겟은% 두 손으로 귀를 막고 있다
			ELSEIF WITH_MOB() || DATE_HITOGOMI()
				PRINTFORML \@ (MAIN_MAP !=9 && CFLAG:MASTER:현재위치 == 960) || (IN_HOME(CFLAG:MASTER:현재위치) && !CHK_FOCUS(927, CFLAG:MASTER:현재위치, 948) && (ROOMDATA:(CFLAG:MASTER:현재위치 % 100) & 장소_모브)) ?  %ANIMALNAME()% # %DATE_HITOGOMI_SYUBETU()% \@는, 당황해 %CALLNAME:MASTER%의 옆으로부터 멀어졌다
			ELSE
				PRINTFORML 듣기 싫은 연주가 주위의 조화를 교란시키고 있다
			ENDIF
		ENDIF
	ELSE
		IF LOCAL:2
			IF TARGET && !GROUPMATCH(TARGET, 20,21,22,28,44,88,94,95,96)
				PRINTFORM %CALLNAME:TARGET%\@ IN_ROOM_NUMBER(CFLAG:MASTER:현재위치) > 2 ?  들 #  \@는 %마스터와%
				IF LOCAL:2 == 3
					PRINTFORM %악기필두%와 %노래필두%의 즉흥 세션
				ELSEIF LOCAL:2 == 2
					PRINTFORM %악기필두%의 앙상블
				ELSEIF LOCAL:2 == 1
					PRINTFORM %노래필두%의 공동 출연
				ENDIF
				PRINTFORML 을 감탄하면서 바라보고 있다
			ELSE
				PRINTFORML %타겟은% %마스터와%의 세션에 즐거운 듯이 힘쓰고 있다
			ENDIF
		ELSE
			IF TARGET
				IF !GROUPMATCH(TARGET, 20,21,22,28,44,88,94,95,96)
					PRINTFORML %CALLNAME:TARGET%\@ IN_ROOM_NUMBER(CFLAG:MASTER:현재위치) > 2 ?  들 #  \@은 감탄한 모습으로 듣고 있다
				ELSE
					PRINTFORML %타겟은% %마스터와%의 세션에 즐거운 듯이 힘쓰고 있다
				ENDIF
			ELSEIF WITH_MOB() || DATE_HITOGOMI()
				PRINTFORML \@ (MAIN_MAP !=9 && CFLAG:MASTER:현재위치 == 960) || (IN_HOME(CFLAG:MASTER:현재위치) && !CHK_FOCUS(927, CFLAG:MASTER:현재위치, 948) && (ROOMDATA:(CFLAG:MASTER:현재위치 % 100) & 장소_모브)) ?  %ANIMALNAME()% # %DATE_HITOGOMI_SYUBETU()% \@는, %CALLNAME:MASTER%의 곁에 모여 왔다
			ELSE
				PRINTFORML 아무도 듣지 않는 연주가 흐르고 있다
			ENDIF
		ENDIF
	ENDIF
ENDIF

;楽譜入手処理
PRINTL
LOCAL = -1
SIF TFLAG:193 == 1
	LOCAL = 악보입수_연주대성공(TARGET)
SIF (LOCAL == -1) && TARGET && (TFLAG:193 != -1) && (RAND:(100) < 30)
	RESULT = 악보입수_랜덤()

;-------------------------------------------------
;417, 낮잠잔다
;-------------------------------------------------
@MESSAGE_COM417
TFLAG:193 = RAND:6
IF TFLAG:194 == 2
	SELECTCASE TFLAG:193
		CASE 0,2,4
			PRINTFORML %조교자가% 일어나니 몸에서 이불이 미끄러 떨어졌다
			PRINTFORML 누군가가 덮어준 것 같다
			PRINTFORML 배려에 감사하면서 %조교자는% 행동을 개시했다
		CASEELSE
			IF ITEM:오동나무침대
				PRINTFORML 부드러운 침대의 감촉에 다시 잠들고 싶어졌지만, 힘내서 일어나도록 하자…
			ELSEIF ITEM:참나무쇼파
				PRINTFORML 소파 위에서도 그럭저럭 잘 수 있었다
			ELSE
				PRINTL 깨어나자 딱딱한 다다미의 감촉이 전해졌다
			ENDIF
	ENDSELECT
ELSEIF TFLAG:194 == 1
	IF CFLAG:TARGET:동침중
		PRINTFORML %타겟은% %CALLNAME:PLAYER% 근처에서 고른 숨소리를 내고 있다…
	ELSE
		;合意未取得の場合は5に入らないように
		SIF TFLAG:193 == 5 && !(CFLAG:TARGET:기정사실 & 합의_우후후)
			TFLAG:193 = 2
		;キス未経験時は2に入らないように
		SIF TFLAG:193 == 2 && TALENT:TARGET:키스미경험
			TFLAG:193 = 3
		SELECTCASE TFLAG:193
			CASE 0
				PRINTFORML 어쩐지 몸이 무겁다……
				PRINTFORML 꼼짝 못하는 것에 의문을 느끼면서 눈을 뜨자
				PRINTFORM %타겟이% %조교자를% 꼭 껴안으면서 자고 있었다
				IF TARGET == 57 && !TALENT:연모
					PRINTFORML 노인과 횻토코 가면이 흔들리고 있다
				ELSE
					PRINTFORML 그 표정은 온화하다
				ENDIF
				PRINTFORML 이대로는 움직일 수 없기 때문에 쓴웃음 지으며 %타겟을% 흔들었다
			CASE 1
				PRINTFORML 눈을 뜬 %조교자는% 허벅지에 중량감을 느꼈다
				PRINTFORML %타겟이% %CALLNAME:PLAYER%의 몸을 베개 대신에 자고 있었다
				PRINTFORML %조교자가% 머리 밑에서 몸을 빼내면
				SELECTCASE CFLAG:TARGET:성격경향
					CASE 1, 4;弱気、真面目
						PRINTFORML %조사처리(CALLNAME:TARGET, "는")% 매우 놀란 듯이, 몸을 벌떡 일으켰다
					CASE 2, 3;強気、素直
						PRINTFORML %조사처리(CALLNAME:TARGET, "는")% %TEXTR("불만/으응、하고 기지개")%의 소리를 내며 잠에서 깼다
					CASEELSE
						PRINTFORML %조사처리(CALLNAME:TARGET, "는")% 돌연 잠에서 깨어나는 소리에 눈을 끔뻑이고 있었다
				ENDSELECT
			CASE 2
				PRINTFORML 눈을 뜨면 근처에 %타겟이% 앉아 있었다
				PRINTFORM 왠지 입가를 누르고
				IF TARGET == 57 && !TALENT:연모
					PRINTFORML 원숭이 가면으로 얼굴을 숨겼다
				ELSE
					SELECTCASE CFLAG:TARGET:성격경향
						CASE 2;強気
							IF TALENT:TARGET:연모 || TALENT:TARGET:애욕
								PRINTFORML 가늘게 뜬 눈으로 이쪽을 내려다보고 있다… 얼굴이 발그스름하다
							ELSE
								PRINTFORML 외면하고 있다… 얼굴이 발그스름하다
							ENDIF
						CASE 1, 4;弱気、真面目
							PRINTFORM 얼굴을 붉
							IF TALENT:TARGET:연모 || TALENT:TARGET:애욕
								PRINTFORML 히면서、이쪽을 흘끔흘끔 쳐다보고 있다
							ELSE
								PRINTFORML 히고 있다
							ENDIF
						CASEELSE
							PRINTFORML 조금 부끄러운 듯한 표정을 짓고 있다
					ENDSELECT
				ENDIF
				PRINTFORM %조교자가% 인사하자 %조사처리(CALLNAME:TARGET, "는")%
				SELECTCASE CFLAG:TARGET:성격경향
					CASE 1, 4;弱気、真面目
						PRINTFORML 어색하게 대답했다
					CASE 2;強気
						PRINTFORML 아무렇지도 않다는 듯이 대꾸했다……만、말을 좀 더듬고 있었다
					CASEELSE
						PRINTFORML 잠깐 말문이 막힌 후、대답을 했다
				ENDSELECT
				EXP:TARGET:키스경험 ++
				;EXP:MASTER:キス経験 ++
			CASE 3
				PRINTFORML %조교자가% 눈을 뜨자 눈앞에는 %CALLNAME:TARGET%의 얼굴이 있다
				IF TALENT:TARGET:연모 || TALENT:TARGET:애욕
					PRINTFORM %조사처리(CALLNAME:TARGET, "는")%
					SELECTCASE CFLAG:TARGET:성격경향
						CASE 1, 4;弱気、真面目
							PRINTFORML 어딘가 만족스러운 듯한、온화한 표정을 짓고 있다
						CASE 2;強気
							PRINTFORML 어쩐지 즐거운 표정으로 이쪽을 바라보고 있었다
						CASEELSE
							PRINTFORML 두둥실、하며 부드러운 미소를 지었다
					ENDSELECT
					PRINTFORML 아무래도、자는 얼굴을 똑똑히 보고 있었던 것 같다…
				ELSE
					PRINTFORML 얼굴을 들여다보고 있었던 것이라고 눈치채는 것과 %타겟이% 획 비켜서고는 동시였다
					PRINTFORM %타겟은% 아무 일도 없는 것처럼 행동하려 하고 있었지만
					IF TARGET == 57 && !TALENT:연모
						PRINTFORML 원숭이와 시시구치 가면이 난무하고 있다
					ELSE
						PRINTFORML 귀가 새빨갛다
					ENDIF
					PRINTFORML %조교자는% 생각지도 않게 질투해 버렸다
				ENDIF
			CASE 4
				PRINTFORML 눈을 뜬 %조교자는% %CALLNAME:TARGET%에게 무릎베개를 받고 있는 것에을 깨달았다
				PRINTFORML 깨어난 %조교자를% 눈치챈 %타겟은% 미소지으며 %CALLNAME:PLAYER%의 머리를 어루만졌다
				PRINTFORML 잠시 동안, 서로 말을 주고 받지 않고 그대로 보냈다
			CASE 5
				PRINTFORML %조교자는% 고간을 부드럽게 비비어지는 감촉에 눈을 열었다
				PRINTFORML 눈앞에는 %CALLNAME:TARGET%의 얼굴이 있다
				PRINTFORML %조교자가% 반쯤 뜬 눈으로 째려봐도 %타겟은% 모르는 체하는 얼굴로 추잡한 맛사지를 계속했다
		ENDSELECT
	ENDIF
ENDIF
;-------------------------------------------------
;420, 루코토와이야기한다
;-------------------------------------------------
@MESSAGE_COM420
PRINTFORML 루코토 「이상과 같이 되어 있습니다. \@ TFLAG:195 != 0 && TFLAG:195 != 14 ?  그러면, 다녀오십시오 # 그 밖에 질문 등은 있습니까? \@」
;-------------------------------------------------
;421, 발원함
;-------------------------------------------------
@MESSAGE_COM421
SIF FLAG:발원내용 == 0
RETURN 0
IF !TFLAG:193
	PRINTFORML %조교자는% 새전을 넣어 팬티신님께 소원을 빌었다
	IF INRANGE(FLAG:발원내용, 1, CHARANUM)
		IF CFLAG:(FLAG:발원내용):신사거주
			PRINTFORML %CALLNAME:(FLAG:발원내용)%과의 사이가 깊어진 것 같았다…
		ELSE
			PRINTFORML 어쩐지 내일은 %CALLNAME:(FLAG:발원내용)%를 만날 수 있을 것 같은 생각이 든다…
		ENDIF
	ELSEIF FLAG:발원내용 == 200
		PRINTL 어쩐지 갑자기 불끈불끈 해 왔다…
	ELSEIF FLAG:발원내용 == 201
		PRINTL 마음이 평온해지고, 번뇌가 약해진 것을 느꼈다
	ELSEIF FLAG:발원내용 == 202
		PRINTL 지금이라면, 팬티가 몇 장이나 손에 들어 올 것 같다는 생각이 든다…!
	ELSEIF FLAG:발원내용 == 203
		CALL PINK_WIND
	ELSE
		PRINTFORML ……그러나 발원은 이상한 힘에 쓸려 사라졌다…
	ENDIF
ELSEIF TFLAG:193 == 200
	PRINTFORML %CALLNAME:53%에게 천벌이 내렸다!
ELSE
	SELECTCASE TFLAG:193
		CASE 23
			LOCALS = 성에 호기적
		CASE 31
			LOCALS = 해방적
		CASE 41
			LOCALS = 젖기 쉬운 몸
		CASE 70
			LOCALS = 쾌감에 솔직
		CASE 80
			LOCALS = 도착적
		CASE 82
			LOCALS = 가학적
		CASE 83
			LOCALS = 피학적
		CASE 101
			LOCALS = "C감도"
		CASE 102
			LOCALS = "V감도"
		CASE 103
			LOCALS = "A감도"
		CASE 104
			LOCALS = "B감도"
		CASE 106
			LOCALS = "M감도"
	ENDSELECT
	PRINTFORML %타겟은% 어쩐지 안절부절 하고 있다…
	IF TFLAG:193 > 100
		PRINTFORML 일시적으로 %CALLNAME:TARGET%의 %LOCALS%가 올랐습니다.
	ELSE
		PRINTFORML 일시적으로 %타겟은% %LOCALS%가 되었다.
	ENDIF
ENDIF
;-------------------------------------------------
;431, 욕실로느긋하게쉰다
;-------------------------------------------------
@MESSAGE_COM431
;접수대를 화나게 해 버렸을 경우
IF (TFLAG:209 == 4 && CFLAG:MASTER:현재위치 == 250) || (TFLAG:211 == 4 && CFLAG:MASTER:현재위치 == 940)
		PRINTFORML 접수대에서 날카로운 시선이 느껴진다……
		PRINTFORML 또 다른 날 다시 오는 편이 좋을 것 같다……
;이미 입욕하고 있다
ELSEIF TFLAG:194 == 1
	IF (CFLAG:MASTER:현재위치 == 대중목욕탕 && TFLAG:209 == 0) || (CFLAG:MASTER:현재위치 == 940 && TFLAG:211 == 0)
		PRINTFORML 이미 욕실에는 들어갔으므로 당분간은 그만두자
	ELSEIF TFLAG:209 == 1 && MAIN_MAP != 2 && CFLAG:MASTER:현재위치 == 대중목욕탕
		PRINTFORML 「좋았으면 또 와요, 그럼」
	ELSEIF TFLAG:211 == 1 && MAIN_MAP != 9 && CFLAG:MASTER:현재위치 == 940
		PRINTFORML 「あんしゃんがまた来てくれるの待っとるだぎゃ―！」
	ELSE
		PRINTFORML 조금 전에 들어갔던 직후다
	ENDIF
ELSE
	IF CFLAG:MASTER:현재위치 == 대중목욕탕 || CFLAG:MASTER:현재위치 == 940
		PRINTFORML %조교자는% 리프레쉬 했다
;	ELSEIF CFLAG:MASTER:현재위치 == 13 || CFLAG:MASTER:현재위치 == 24 || CFLAG:MASTER:현재위치 == 30 || CFLAG:MASTER:현재위치 == 39
	ELSEIF BATHCHECK(CFLAG:MASTER:현재위치)
		PRINTFORML %조교자는% 목욕탕에서 느긋하게 쉬었다
	ELSE
		PRINTFORML %조교자는% 간이풀장으로 느긋하게 쉬었다
		SIF GETBIT (FLAG:풀장, 2)
			PRINTL 몸도 씻었다
		TFLAG:400 = RAND:2
		IF TFLAG:400 && DATE_HITOGOMI()
			PRINTFORML 주위에 있던 %DATE_HITOGOMI_SYUBETU()%가, 이런 장소에서 이동식 간이풀장에 들어간 채
			PRINTFORML 몸을 씻고있는 %마스터를% 이상한 것을 보는 눈으로 보고 있다……
		ENDIF
	ENDIF

ENDIF
;-------------------------------------------------
;436, 독서
;-------------------------------------------------
@MESSAGE_COM436
IF TARGET == 54 && TFLAG:194 == 1
	IF TFLAG:193 > 5
		IF  CFLAG:TARGET:2 < 500
			PRINTFORML 다행히 파츄리는 %CALLNAME:MASTER% 쪽은 돌아보지도 않는다
		ELSEIF !TALENT:TARGET:연모
				PRINTFORML 일순간, 경멸의 시선을 느꼈다
		ENDIF
	ELSEIF CFLAG:TARGET:2 > 500
		PRINTFORML 독서중, 문득 시선을 느껴 고개를 들자 파츄리가 이쪽을 보고 있었다
		IF CFLAG:TARGET:2 < 1000
			PRINTFORML 하지만, 곧바로 눈을 피했다
		ELSE
			PRINTFORML 파츄리는 %CALLNAME:MASTER%에게 미소를 보냈다
		ENDIF
	ENDIF
ENDIF
SELECTCASE TFLAG:193
	CASE 1
		PRINTFORML %마스터는% 신비한 카라테의 비법을 접했다
	CASE 2
		PRINTFORML 무엇이 재미있는지 모르겠다…
	CASE 3
		PRINTFORML 기대하고 있지 않았지만 상상 이상으로 재미있었다
	CASE 4
		PRINTFORML 딱히 도움이 되는 지식은 얻을 수 없었다
	CASE 5
		PRINTFORML 도움이 되는 지식을 얻을 수가 있었다
	CASE 6
		PRINTFORML %마스터는% 선인들의 예지에 깊은 경의를 표했다
	CASE 7
		PRINTFORML %마스터는% 여체에 대한 이해가 깊어졌다
	CASE 8
		PRINTL 욕망이 솟구쳐 왔다
ENDSELECT

; 개인 임의수정, 660번 독서 커맨드의 무지상실 이벤트 복구
;---- EDIT START ---------------------------------
IF TFLAG:194 == 2
	PRINTFORML 지금까지 신기한 듯이 남녀가 사지를 얽는 책을 보고 있던 %타겟이% 갸웃거렸다
	;성적 경험 있는 경우(귀찮아서로부터, 자위도 무자각도 수간도 전부 포함할 수 있는 챠루(원래, 교양 2이상 또한 MASTER의 교양 3이상의 시점에서 그 나름대로 시간 지나있는 괄(라고인가 교양 Lv1로 무지 잡혀도 좋지?　(이)라고는 생각하지 않는 것도 아니지만, 학습경험 5로 잡히는 시점에서, (성적) 무지는 잡히지 않아도 어쩔 수 없지요라고 생각하기도
	FOR LOCAL, 0,66
		SIF CSVEXP(TARGET, LOCAL) != EXP:TARGET:LOCAL
			LOCAL:1 ++
	NEXT
	IF LOCAL:1
		PRINTFORM 확실히 이렇게 하는 것은 기분이 좋지만, 뭐가 유익한건지 새삼스러운 의문을 말한다
	ELSE
		PRINTFORM 뭐가 즐거워서 이런 일을 하느냐며, 이상한 듯 입을 연다
	ENDIF
	PRINTFORML %CALLNAME:TARGET%
	IF LOCAL:1 && (EXP:조교자위경험 || EXP:자위경험 < (EXP:C경험 + EXP:V경험 + EXP:A경험 + EXP:B경험 + EXP:M경험))
		PRINTFORML %마스터는% 다소의 죄악감을 느끼면서, 성행위의 의미와 목적을 제대로 %CALLNAME:TARGET%에게 철저히 가르쳤다
		IF !TALENT:사모 && !TALENT:연모 && !TALENT:연인 && !TALENT:섹프 && !TALENT:애욕
			PRINTFORML %타겟은% 기가 막힌듯한 경멸하는 것 같은 표정으로 %마스터를% 응시하고 있다
			CFLAG:호감도 -= 100
			SIF CFLAG:호감도 < 0
				CFLAG:호감도 = 0
			CFLAG:신뢰도 -= 100
			SIF CFLAG:신뢰도 < 0
				CFLAG:신뢰도 = 0
		ELSE
			PRINTFORML %타겟은%, 기가 막힌 것처럼 한숨을 쉰 후, 그렇지만 기분이 좋다면 자신도 좋다며 웃는 얼굴을 띄웠다
		ENDIF
	ELSEIF LOCAL:1
		PRINTFORML %마스터는% 가능한 한 정확하게, 성행위의 의미와 목적을 제대로 %CALLNAME:TARGET%에 철저히 가르쳤다
		IF !TALENT:사모 && !TALENT:연모 && !TALENT:연인 && !TALENT:섹프 && !TALENT:애욕
			PRINTFORML 왠지, %타겟은% 얼굴을 새빨갛게 하고 있다
		ELSE
			PRINTFORML %타겟은% 얼굴을 붉게 물들이면서, 자위는 아이 만들기가 아니기 때문에 안 되는 건가, 하고 한숨을 쉬었다
		ENDIF
	ELSE
		PRINTFORML %마스터는% 정확하게, 성행위의 의미와 목적을 제대로 %CALLNAME:TARGET%에 철저히 가르쳤다
		PRINTFORML %타겟은% 감탄한 표정으로, 제대로 이야기를 듣고 있다
	ENDIF
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORML %타겟은%[무지]를 잃었다
	TALENT:무지 = 0
ENDIF
;---- EDIT END -----------------------------------

;-------------------------------------------------
;440, 기다린다
;-------------------------------------------------
@MESSAGE_COM440
PRINTFORM %CALLNAME:MASTER%
IF ((!IN_HOME(CFLAG:MASTER:현재위치) && !NOSAMES(CFLAG:MASTER:현재위치, 10, 지장길, 광장, 안개의호수, 죽림입구, 숲의입구, 중유의길, 산록의수해, 구천의폭포, 환상풍혈)) || (IN_HOME(CFLAG:MASTER:현재위치) && CHK_ENTRANCE(CFLAG:MASTER:현재위치, MAIN_MAP))) && !RAND:3
	PRINT 는
	;장소 분기, 장소별로 복수 패턴을
	SELECTCASE CFLAG:MASTER:현재위치
		CASE 벚꽃길토리이, P22참배길
			PRINTDATAL
				DATAFORM 참배길 저편을 바라보면서 시간을 보냈다…
				DATAFORM 참배길의 돌계단에 앉아, 시간을 흘려 보냈다…
				DATAFORM 신사에서 들려오는 소란을 들으면서 시간이 흐르는 것을 느끼고 있었다…
				DATAFORM 지금 참배길을 지나간 생물이 왜 그러는 걸까 골똘히 생각하고 있었다…
				DATAFORM 몇 번 세어도 수가 다른 돌계단의 단수를 세고 있었다…
			ENDDATA
		CASE 지장길, P140지장길
			PRINTDATAL
				DATAFORM 몇개의 지장보살에게 참배하며 시간을 보냈다…
				DATAFORM 지장보살의 주변에 놓여진 많은 풍차를 바라보고 있는 사이에 시간이 지나갔다…
				DATAFORM 지장보살에 참배하러 온 노파와 쓸데없는 잡담을 하며 보냈다…
				DATAFORM 명련사 쪽을 바라보면서 시간이 흐르는 것을 즐겼다…
				DATAFORM 지금 이 대로를 통과했던 것이 누군지 회상하기 위해 생각에 잠겼다…
			ENDDATA
		CASE 광장, P201인간마을문
			PRINTDATAL
				DATAFORM 광장에서 들려오는 소란을 들으면서 시간을 보냈다…
				DATAFORM 거리를 오가는 사람들을 곁눈질하며 시간을 보냈다…
				DATAFORM 인파 속인데도 혼자 있는 고독을 느끼고 있었다…
				DATAFORM 광장에 누군가 오는 것을 기대하면서 조용히 혼자 기다리고 있었다…
				DATAFORM 조금 전 얘기해 왔던 것이 누구였는지를 다시 생각해내지 못하고, 고민했던 시간이 흘렀다…
			ENDDATA
		CASE 안개의호수, P343호숫가
			PRINTDATAL
				DATAFORM 문 너머에 서있는 홍마관을 바라보면서 시간을 보냈다…
				DATAFORM 호수면을 바라보면서 조용한 한 때를 보냈다…
				DATAFORM 우뚝 솟아있는 요괴의 산을 바라보고 있는 동안에 시간이 지나 있었다…
				DATAFORM 수면에 사람의 그림자 같은 것을 알아차렸지만, 흔한 일이니까 신경쓰지 않기로 했다…
				DATAFORM 안개의 저편에서 울리는 기억에 없는 목소리를 들은 것 같은 생각이 들었지만 기분 탓이었다…
			ENDDATA
		CASE 죽림입구, P447죽림입구
			PRINTDATAL
				DATAFORM 죽순을 캐면서 시간을 보냈다…\@DAY:2 == 1 ?  # 응, 죽순?  \@
				DATAFORM 울창하게 우거진 대나무가 울리는 잎사귀 소리를 들으면서 잠시 시간을 보냈다…
				DATAFORM 안쪽에서 들려오는 토끼들의 소란을 즐겼다…
				DATAFORM 죽림안을 감도는 안개를 관찰하며 잠시 시간을 보냈다…
				DATAFORM 버섯을 쪼개 자라는 죽순이나 죽순으로부터 자라는 버섯을 관찰하기로 했다. 이런 곳에까지 전화(戦火)가…
			ENDDATA
		CASE 숲의입구, P501마법의숲입구
			PRINTDATAL
				DATAFORM 향림당 안을 멀리서 바라보면서 시간을 보냈다…
				DATAFORM 숲속에 우뚝 솟은 큰 나무를 올려보면서 천천히 시간이 흐르는 것을 느끼고 있었다…
				DATAFORM 시간을 때우기 위해 요기 넘치는 숲의 모습을 관찰하기로 했다…
				DATAFORM 길가에 난 이상한 버섯을 먹을 수 있을지 고민하가, 눈치채보니 시간이 흘러가 버렸다…
				DATAFORM 버섯을 쪼개 자라는 죽순이나 죽순으로부터 자라는 버섯을 관찰하기로 했다. 이런 곳에까지 전화(戦火)가…
			ENDDATA
		CASE 중유의길, P601중유의길
			PRINTDATAL
				DATAFORM 강의 건너편에 세워진 백옥루를 바라보며 시간을 보내기로 했다…
				DATAFORM 삼도천의 나룻배를 보면서 천천히 했을 때를 보냈다…
				DATAFORM 강의 흐름을 들으면서, 당분간 시간을 보냈다…
				DATAFORM 강을 건너는 유령의 수를 세고 있는 동안에, 눈치채보니 상당한 시간이 지난 것 같다…
				DATAFORM 유령이 함께 강을 건너자고 했지만 거절하는 사이에 시간이 지났다…
			ENDDATA
		CASE 산록의수해, P701수해도입구
			PRINTDATAL
				DATAFORM 나무들의 사이로 보이는 산정을 바라보며 시간을 보냈다…
				DATAFORM 근처의 나무들을 관찰하고 있는 동안에 시간이 흘렀다…
				DATAFORM 고요 속에 울리는 나무들의 웅성거림을 들으면서 시간을 보냈다…
				DATAFORM 아무렇지도 않게 귀를 기울이면, 안쪽의 연못으로부터 들려오는지, 개구리의 노래가…들려와?!(놀란 나머지 잠깐 멍때렸다)
				DATAFORM 수해의 깊이보다 불가사의한 신음이 들려 오지만 신경쓰지 않도록 했다.
			ENDDATA
		CASE 구천의폭포, P801산정입구
			PRINTDATAL
				DATAFORM 폭포의 소리를 들으면서 잠깐 쯤의 경치를 바라보았다…
				DATAFORM 산정에 우뚝 솟는 모리야신사를 바라보며 시간을 보냈다…
				DATAFORM 산 위에서 산기슭의 경치를 바라보고 있는 동안에 시간이 지난 것 같다…
				DATAFORM 산정의 아득한 위쪽에 바라보이는 천계를 (뚝)… 목이 아파져 잠깐 그 자리에 웅크리고 있었다…
				DATAFORM 롱호로 물보라를 올리는 물을 보며 잠시 시간을 보냈다…
			ENDDATA
		CASE 환상풍혈, P948수혈의바닥
			PRINTDATAL
				DATAFORM 광대한 지하세계를 바라보며 시간을 보냈다…
				DATAFORM 근처에서 왕래하는 오니들의 모습을 관찰하고 있는 동안에 시간이 흘렀다…
				DATAFORM 멀리 보이는 지령전을 바라보면서 시간을 보냈다…
				DATAFORM 오니에게 쫓기는 원령에 쫓겨 잘 도망쳤을 때에는 시간이 지나가 버렸다…
				DATAFORM 종유동에 자라는 돌들을 보며 잠시 시간을 보냈다.
			ENDDATA
		CASEELSE
			PRINTL 뭐해도 아니게 시간을 보냈다…
			;PRINTL 깨달으면(자) 시간이 지나고 있었다…
	ENDSELECT
ELSE
	;분기 포함으로 조금 추가, 일부 맞지 않은 것도 있을 지도 모릅니다만 승낙을.
	SELECTCASE RAND:3
		CASE 0,1
			;계절 분기
			IF DAY:2 == 1
				PRINT 는
				;춘
				PRINTDATAL
					DATAFORM 시간을 떄우기 위해 나비를 쫒아다녔다…
					DATAFORM 길가에 피어난 꽃을 바라보고 있는 동안에 시간이 흘러갔다…
					DATAFORM 화창한 날씨에 무심코 졸아버렸다…
					DATAFORM 이 땅을 떠나는 철새들을 바라보면서 몇 마리 날아갔는지 세어 보았다…
				ENDDATA
			ELSEIF DAY:2 == 2
				;하
				PRINTDATAL
					DATAFORM 매미 잡기에 시간을 소비했다…
					DATAFORM 그늘에서 땀을 닦으면서 잔잔한 시간이 흘러 가는 것을 느꼈다…
					DATAFORM 파랑새나 소쩍새, 두견의 울음소리를 들으면서 시간을 보냈다…
					DATAFORM 정신을 차리자, 갑자기 주위가 어두워지면서 억수같이 비가 쏟아지다, 순식간에 비는 그쳐 내리기 전과 다름없는 날씨가 되었다…
				ENDDATA
			ELSEIF DAY:2 == 3
				;추
				PRINTDATAL
					DATAFORM 잠자리를 잡다가 동안에 시간이 지나 갔다…
					DATAFORM 단풍물이 든 저쪽의 산을 바라보며 시간을 보냈다…
					DATAFORM 바람에 휘날리며 떨어지는 낙엽을 보고 있는 동안에 시간이 흐른 것 같다…
					DATAFORM 조금 떨어진 강가에서 곰이 연어를 잡고 있던 것을 바라보았다…
				ENDDATA
			ELSEIF DAY:2 == 4
				PRINT 는
				;동
				PRINTDATAL
					DATAFORM 추위에 언 손을 한숨으로 녹이면서 시간이 흐르기를 기다렸다…
					DATAFORM 서릿발을 밟아보며 시간을 보냈다…
					DATAFORM 주변을 걸어 돌아다니다가 얼음에 미끄러져 넘어져버렸다…
					DATAFORM 동물의 발자국이 없나 찾아보았다…
				ENDDATA
			ENDIF
		CASE 2
			PRINT 는
			;그 외의분기
			;운/우/설의 어느 쪽인가의 플래그 있어
			IF GETBIT(TIME:5, 3) || GETBIT(TIME:5, 2) || GETBIT(TIME:5, 1)
				PRINTL 시를 지으면서 시간을 보냈다…
			;가을 한정
			ELSEIF TIME:2 >= 5 && TIME:2 <= 7
				PRINTL 별님을 바라보면서 시간을 보냈다…
			ELSE
				PRINTL 구름을 바라보면서 시간을 보냈다…
			ENDIF
		CASEELSE
			;보험
			PRINTL 는 뭐해도 아니게 시간을 보냈다…
			;PRINTL 깨달으면(자) 시간이 지나고 있었다…
	ENDSELECT
ENDIF
;-------------------------------------------------
;441, 수업을받는다
;-------------------------------------------------
@MESSAGE_COM441
PRINTFORM %마스터는%
IF TARGET > 0

ENDIF
IF TARGET > 0
	IF ABL:MASTER:교양 > ABL:TARGET:교양
		PRINTFORM %CALLNAME:TARGET%에게 가끔 가르치면서
	ELSE
		PRINTFORM %CALLNAME:TARGET%의 가르침을 받으면서
	ENDIF
ENDIF
PRINTL 수업을 받고 있다
SIF ABL:MASTER:교양 > 2 && TARGET > 0
	PRINTFORM %타겟은% %CALLNAME:MASTER%의 지식에 감탄하고 있다
SIF ABL:MASTER:교양 < ABL:TARGET:교양 - 2
	PRINTFORM %CALLNAME:TARGET%의 지도는 매우 도움이 된다

;-------------------------------------------------
;442,벌채한다
;-------------------------------------------------
@MESSAGE_COM442

;-------------------------------------------------
;445, 채집한다
;-------------------------------------------------
@MESSAGE_COM445

SELECTCASE TFLAG:193
	CASE 0
		PRINTFORML 아무것도 발견되지 않았다……
	CASEELSE
		SETCOLOR 0x00FF00
		PRINTFORM %조사처리(ITEMNAME:(TFLAG:193),"가")% {TFLAG:194}\@ GROUPMATCH(TFLAG:193, 706)? 마리# 개\@
		PRINTFORML 발견되었다! ({ITEM:(TFLAG:193) - TFLAG:194} → {ITEM:(TFLAG:193)})
		RESETCOLOR
		DRAWLINE
		PRINTFORM
		CALL ITEM_DESCRIPTION(TFLAG:193)
ENDSELECT

;-------------------------------------------------
;445, 조제한다
;-------------------------------------------------
@MESSAGE_COM446

SELECTCASE TFLAG:193
	CASE 0

	CASEELSE
		SETCOLOR 0x00FF00
		PRINTFORM %조사처리(ITEMNAME:(TFLAG:193),"를")%
		IF TFLAG:194 > 1
			PRINTFORM {TFLAG:194}
		ELSE
			PRINTFORM 1
		ENDIF
		PRINTFORML 개 조제했다
		RESETCOLOR
		DRAWLINE
ENDSELECT
;-------------------------------------------------
;447,露店を開く
;-------------------------------------------------
@MESSAGE_COM447

SELECTCASE TFLAG:193
	CASE 0

	CASEELSE
		PRINTFORML 소지금 %금액표시(MONEY - TFLAG:194)% → %금액표시(MONEY)%
ENDSELECT

;-------------------------------------------------
;448,덫을 놓는다
;FLAG:194 는 CRITTER_DATA 참조
;벌레 트랩의 벌레 이름은 MUSHI_NAME에 들어있습니다.
;-------------------------------------------------
@MESSAGE_COM448

SELECTCASE TFLAG:193
	;덫을 놓았다
	CASE 0
		IF !TRAP_POINT:1 && !TRAP_POINT:2 && !TRAP_POINT:3

		ELSE
			PRINTFORML ◇지금 설치한 덫 목록◇
			FOR LOCAL, 1, 4
				IF TRAP_POINT:LOCAL
					PRINTFORML 　덫{LOCAL}의 설치 장소：%猟場名(TRAP_POINT:LOCAL)%
					PRINTFORML 　　 　　설치일：%PRINT_DATE_F(TRAP_SETUPDATA:LOCAL)%
				ENDIF
			NEXT
		ENDIF
	;사냥감을 얻을 수 있었다
	CASE 1
		SELECTCASE TFLAG:194
			;이른바 멀쩡한 고기
			CASE 1 TO 12, 14, 18, 21, 22, 24
				PRINTFORML 오늘 밤은 숯불구이다！ 라며 들떠오른 %CALLNAME:MASTER%였다
			;토끼와 거물
			CASE 13, 15, 16, 17, 19, 27, 28
				PRINTFORML 냄비 요리가 좋을까, 아니면 구이로 할까… 하고 행복한 고민을 하는 %CALLNAME:MASTER%였다
			CASE 20, 23, 25
				PRINTFORML 형용할 수 없는 감촉의 고기？를 어떻게 처리해야 할 지 고민하는 %CALLNAME:MASTER%였다
			CASE 26;마탕고
				PRINTFORML 위험할 것 같으니 이 버섯은 먹지 말자…
		ENDSELECT
	;올가미가 부서져 있었다
	CASE -1
		PRINTFORML %마스터는% 흩어진 덫 부품을 회수했다…
	;벌레 트랩을 장치했다.
	CASE 10
		PRINTFORML 장치한 미끼：%ITEMNAME:(GET_MUSHIDATA(MUSHI_TRAP, "エサ番号"))%
		PRINTFORML 　미끼의 질：%"☆" * MUSHI_ESA_DATA(GET_MUSHIDATA(MUSHI_TRAP, "エサ番号"))%
		PRINTFORML 　미끼 타입：%RESULTS:10%
		DRAWLINE
		PRINTFORML %NAME_FROM_PLACE((GET_MUSHIDATA(MUSHI_TRAP, "場所")))% 에 벌레 트랩을 장치했다
		PRINTFORML 내일이 되면 보러 와 보자
	;벌레 트랩을 파기했다
	CASE 11
		PRINTFORML %NAME_FROM_PLACE(CFLAG:MASTER:현재위치)%에 장치한 벌레 트랩을 파기했다
	;虫トラップで捕まえた
	CASE 12
		PRINTFORML %마스터는% 벌레 트랩을 치웠다
ENDSELECT

;-------------------------------------------------
;449,곤충채집
;~를 잡았다! 의 메시지는 커맨드 함수 내에서 이루어지고 있습니다.
;여기서 보여드리는 것은 추가 메세지입니다.
;-------------------------------------------------
@MESSAGE_COM449
#DIM CHARA
CHARA = TFLAG:194
;죽여서라도 빼앗다
IF TFLAG:193 == -2
	PRINTL
	PRINTFORML 뭐　뭐하는거야　이 녀석ー！
	PRINTW
	PRINTFORML 드잡이하고 있는 사이에 %조사처리(MUSHI_NAME,"이")% 도망쳐 버렸다…
;양보해줘 → 거부당했다
ELSEIF TFLAG:193 == -1
	PRINTFORML %조사처리(CALLNAME:CHARA,"는")% 붙잡은 것은 자신이라며 거절했다…
;포획 실패
ELSEIF TFLAG:193 == 0
	PRINTFORML 아무것도 잡지 못했다……
;MASTER가 잡은, 추가 메세지 없음
ELSEIF TFLAG:193 == 1
;제법인데?
ELSEIF TFLAG:193 == 2
	PRINTFORML %마스터가% 칭찬하자 %조사처리(CALLNAME:CHARA,"는")% 쑥스러워하면서도 득의양양한 표정을 지었다
;양보해줘 → 마지못해 오케이
ELSEIF TFLAG:193 == 3
	PRINTFORML %조사처리(CALLNAME:CHARA,"는")% %마스터가% 그렇게 원한다면 이라며 어이없다는 듯이 %조사처리(MUSHI_NAME,"를")% 양보했다
;양보해줘 → 올 오케이
ELSEIF TFLAG:193 == 4
	PRINTFORML %조사처리(CALLNAME:CHARA,"는")% 득의양양한 얼굴로 %마스터가% 원하는 %조사처리(MUSHI_NAME,"를")% 양보했다
ENDIF
;벌레 바구니에 넣는 처리, 입에서 바탕의 무늬를 지울 때는 이 처리를 잊지 말도록
SIF GROUPMATCH(TFLAG:193, 1, 3, 4)
	CALL MUSHI_CAPTURE(MUSHI_CAGE)

;-------------------------------------------------
;460, 망상 자위
;-------------------------------------------------
@MESSAGE_COM460

SELECTCASE TCVAR:194
CASE 1
	PRINTFORML 시간을 멈춘 채로는 정신에 걸리는 부담이 너무 크다……
CASE 2
	PRINTFORML 사람들 앞에서 자위를 해서는 안됩니다
CASE 3
	PRINTFORML %마스터는% 정신을 집중시켜, 망상으로 마음에 둔 사람과 성교하는 일로 했다
CASE 4
	PRINTFORML 지금은 아직 자위할 때가 아니다…… %마스터는% 그렇게 생각해, 자위를 멈추었다……
ENDSELECT

;-------------------------------------------------
;461, 제 정신을 차린다
;-------------------------------------------------
@MESSAGE_COM461
;IF (MAXBASE:MASTER:기력 / BASE:MASTER:기력) >= 10
;일할 이하
IF BASE:MASTER:기력 <= (MAXBASE:MASTER:기력 / 10)
	PRINTFORML 지치고 자른 %마스터는% 자위를 멈추었다
	SIF TALENT:MASTER:2 == 2
		PRINTFORML %CALLNAME:MASTER%의 손과 페니스에는 정액이 묻어, 주변에 수상하고 비릿한 냄새가 충만하고 있다……
	SIF TALENT:MASTER:2 == 1
		PRINTFORML %CALLNAME:MASTER%의 몸은 애액 투성이가 되어 주변에 암컷의 냄새가 충만하고 있다……
	SIF TALENT:MASTER:2 == 3
		PRINTFORML %마스터는% 전신에 애액과 정액이 묻은 보기만 해도 끔찍한 몰골이다……
;ELSEIF (MAXBASE:MASTER:기력 / BASE:MASTER:기력) >= 2
;반이하
ELSEIF BASE:MASTER:기력 <= (MAXBASE:MASTER:기력 / 2)
	PRINTFORML %마스터는% 적당한 시점에서 자위를 멈추었다
	SIF TALENT:MASTER:2 == 2
		PRINTFORML %CALLNAME:MASTER%의 손과 페니스에는 정액이 묻어, 주변에 수상하고 비릿한 냄새가 감돌고 있다……
	SIF TALENT:MASTER:2 == 1
		PRINTFORML %CALLNAME:MASTER%의 몸은 애액 투성이가 되어 주변에 암컷의 냄새가 감돌고 있다……
	SIF TALENT:MASTER:2 == 3
		PRINTFORML %마스터는% 몸 이곳저곳에 정액과 애액이 달라붙어 있다……
ELSE
	PRINTFORML %마스터는% 아직 여유가 있지만 몸을 신경써 자위를 멈추었다
	SIF TALENT:MASTER:2 == 2
		PRINTFORML %CALLNAME:MASTER%의 손과 페니스에는 적은양의 쿠퍼액이 묻어 있다……
	SIF TALENT:MASTER:2 == 1
		PRINTFORML %CALLNAME:MASTER%의 몸에는 적은양의 애액이 묻어 있다……
	SIF TALENT:MASTER:2 == 3
		PRINTFORML %CALLNAME:MASTER%의 몸에는 적은양의 쿠퍼액과 애액이 묻어 있다……
ENDIF
PRINTFORML %마스터는% 조금 슬퍼졌다

;-------------------------------------------------
;483,ムシバトル
;-------------------------------------------------
@MESSAGE_COM483
PRINTFORML %CALLNAME:MASTER%들은 동심으로 돌아가 벌레 배틀에 열중했고
SELECTCASE TFLAG:193
;タイマン
CASE 1
	;勝った
	IF TFLAG:194 == 1
		PRINTFORML %마스터는% %타겟과%의 싸움을 제압하고 승리의 여운에 잠겼다…
	ELSE
		PRINTFORML %CALLNAME:TARGET%의 벌레들 앞에 패한 %마스터는% 상상 이상의 굴욕을 맛보았다…
	ENDIF
;バトルロイヤル
CASE 2
	;勝った
	IF TFLAG:194 == 1
		PRINTFORML %마스터는% 승리를 거둔 벌레들에게 상을 주었다…
	ELSE
		PRINTFORML %마스터는% 패해 버린 벌레들을 위로해 주었다…
	ENDIF
;チーム戦
CASE 3
	;勝った
	IF TFLAG:194 == 1
		PRINTFORML 전우인 %타겟과% 승리의 기쁨을 나누었다…
	ELSE
		PRINTFORML 전우인 %타겟과% 서로를 칭찬했다…
	ENDIF
ENDSELECT
;-------------------------------------------------
;484,スイカ割り
;-------------------------------------------------
@MESSAGE_COM484
CLEARLINE 1
PRINTL
IF TFLAG:193 == 2
	PRINTFORML …………
	PRINTFORMW %CALLNAME:MASTER%が刀を振るうと、数刻、時が止まったかのような静寂が訪れた…
	PRINTFORML 緊迫した空気の中、%CALLNAME:MASTER%がおもむろに刀を納める動作を取ると、
	PRINTFORML 次の瞬間、パカッと花開くようにスイカが割れ、美しいまでに等分に切り分けられていた！
ELSEIF TFLAG:193 == 1
	PRINTFORML %CALLNAME:MASTER%の振るった一撃はスイカの極点を正確に突き、
	PRINTFORML アイマスクを外した%CALLNAME:MASTER%の前には綺麗に割れたスイカの姿があった！
ELSEIF TFLAG:193 == 0
	PRINTFORML %CALLNAME:MASTER%の振るった一撃は辛うじて命中し、
	PRINTFORML アイマスクを外した%CALLNAME:MASTER%の前には不格好ながらも割れたスイカの姿があった！
ELSEIF TFLAG:193 < 0
	PRINTFORMW …………
	PRINTDATAL
		DATAFORM どこからともなく妖精が現れ、割れなかったスイカを奪って去っていった…
		DATAFORM 突如謎のスキマが出現し、割れなかったスイカが吸い込まれていった…
		DATAFORM 割れなかったスイカは突然転がりだすと、何処かへと消えた…
	ENDDATA
ENDIF
IF TFLAG:193 >= 0
	PRINTL
	CALL COLORMESSAGE("【カットスイカ】ができあがりました。", C_AQUA, 1)
ENDIF
;-------------------------------------------------
;495,空を眺める
;-------------------------------------------------
@MESSAGE_COM495
#DIM 지저
#DIMS 저기압위치
#DIMS 적란운위치

지저 = 0
IF CFLAG:MASTER:데이트중 == 9
	지저 = 1
ELSEIF CFLAG:MASTER:현재위치 == OMANEKIBEYA() && GROUPMATCH(CFLAG:MASTER:초대, 36, 37, 38, 49, 60, 64, 83, 84)
	지저 = 1
ENDIF

저기압위치 = %GET_LOCATION_LOW()%
적란운위치 = %GET_LOCATION_CUMULUS()%

[IF_DEBUG]
	DEBUGPRINTFORML %GET_MONTH()% {DAY:3}일 第{GET_TERM()}ターム %시각표시(TIME)% %GET_NAME_WEATHER_TIMEZOME()%
	IF IS_RAINY_SEASON1:0 == 1 && IS_RAINY_SEASON1:1 == 1
		DEBUGPRINTFORML 장마말기
	ELSEIF IS_RAINY_SEASON1:0 == 1
		DEBUGPRINTFORML 장마
	ELSEIF IS_RAINY_SEASON2 == 1
		DEBUGPRINTFORML 가을비
	ENDIF
	SELECTCASE YEAR_WEATHER_CONTROL
		CASE 4
			DEBUGPRINTFORML 장기날씨경향［4 確定通常］
		CASE 3
			DEBUGPRINTFORML 장기날씨경향［3 ラニーニャ現象］
		CASE 2
			DEBUGPRINTFORML 장기날씨경향［2 エルニーニョ現象］
		CASE 1
			DEBUGPRINTFORML 장기날씨경향［1 通常］
		CASE 0
			DEBUGPRINTFORML 장기날씨경향［0 未設定］
		CASEELSE
			DEBUGPRINTFORML 장기날씨경향［{YEAR_WEATHER_CONTROL} エラー］
	ENDSELECT
	DEBUGPRINTFORML 한기의강도 {POWER_COLD_AIR}
	DEBUGPRINTFORML 온기의강도 {POWER_WARM_AIR}
	DEBUGPRINTFORML 大気安定度 {ATMOSPHERIC_INSTABILITY}

	SELECTCASE NOW_WEATHER_CONTROL
		CASE 1
			DEBUGPRINTFORML 현재날씨경향 [1 春・秋の天気(基本)]
		CASE 2
			DEBUGPRINTFORML 현재날씨경향 [2 春・秋の天気(温暖前線接近時)]
		CASE 3
			DEBUGPRINTFORML 현재날씨경향 [3 春・秋の天気(暖域時)]
		CASE 4
			DEBUGPRINTFORML 현재날씨경향 [4 春・秋の天気(寒冷前線通過時)]
		CASE 5
			DEBUGPRINTFORML 현재날씨경향 [5 春・秋の天気(寒冷渦接近時)]
		CASE 6
			DEBUGPRINTFORML 현재날씨경향 [6 夏の天気(基本)]
		CASE 7
			DEBUGPRINTFORML 현재날씨경향 [7 夏の天気(夕立接近時)]
		CASE 8
			DEBUGPRINTFORML 현재날씨경향 [8 夏の天気(夕立通過後)]
		CASE 9
			DEBUGPRINTFORML 현재날씨경향 [9 冬の天気(基本)]
		CASE 10
			DEBUGPRINTFORML 현재날씨경향 [10 冬の天気(日本海低気圧接近時)]
		CASE 11
			DEBUGPRINTFORML 현재날씨경향 [11 冬の天気(日本海低気圧通過時)]
		CASE 12
			DEBUGPRINTFORML 현재날씨경향 [12 冬の天気(南岸低気圧接近時)]
		CASE 13
			DEBUGPRINTFORML 현재날씨경향 [13 冬の天気(寒冷渦接近時)]
		CASE 14
			DEBUGPRINTFORML 현재날씨경향 [14 梅雨・秋雨の天気(基本)]
		CASE 15
			DEBUGPRINTFORML 현재날씨경향 [15 梅雨・秋雨(梅雨末期・秋雨+台風接近)・先駆降雨帯発生時の天気]
		CASE 16
			DEBUGPRINTFORML 현재날씨경향 [16 台風接近時の天気(強風域)]
		CASE 17
			DEBUGPRINTFORML 현재날씨경향 [17 台風接近時の天気(台風の目)]
		CASE 18
			DEBUGPRINTFORML 현재날씨경향 [18 霧の天気]
		CASE 19
			DEBUGPRINTFORML 현재날씨경향 [19 疑似好天]
		CASE 20
			DEBUGPRINTFORML 현재날씨경향 [20 集中豪雨時の天気]
		CASE 21
			DEBUGPRINTFORML 현재날씨경향 [21 台風接近時の天気(暴風域・最接近)]
		CASEELSE
			DEBUGPRINTFORML 현재날씨경향 [에러]
	ENDSELECT

	DEBUGPRINTFORML 현재날씨 %GET_WEATHER()%
	DEBUGPRINTFORML 현재풍속 {WIND_VELOCITY}

	SIF FORBIDDEN_CHANGE_WEATHER == 1
		DEBUGPRINTFORML 날씨변경금지

	DEBUGPRINTFORML 저기압의현황：%GET_LOCATION_LOW()%

	IF IS_COLD_LOW
		DEBUGPRINTFORML 寒冷渦発生
		DEBUGPRINTFORML 　　勢力圏突入 %GET_MONTH(TIME_ENTER_TERRITORY_COLD_LOW:0)% {TIME_ENTER_TERRITORY_COLD_LOW:1}日 %시각표시(TIME_ENTER_TERRITORY_COLD_LOW:2)%
		DEBUGPRINTFORML 　　勢力圏通過 %GET_MONTH(TIME_PASSAGE_TERRITORY_COLD_LOW:0)% {TIME_PASSAGE_TERRITORY_COLD_LOW:1}日 %시각표시(TIME_PASSAGE_TERRITORY_COLD_LOW:2)%
	ENDIF

	IF IS_TYPHOON:0
		DEBUGPRINTFORML 台風発生 勢力{IS_TYPHOON:1} 通過位置{IS_TYPHOON:2}
		IF IS_TYPHOON:1 >= 3
			DEBUGPRINTFORML 　　勢力圏突入 　%GET_MONTH(TIME_ENTER_TERRITORY_TYPHOON:0)% {TIME_ENTER_TERRITORY_TYPHOON:1}日 %시각표시(TIME_ENTER_TERRITORY_TYPHOON:2)%
			DEBUGPRINTFORML 　　強風域突入　 %GET_MONTH(TIME_ENTER_WIND_ZONE_TYPHOON:0)% {TIME_ENTER_WIND_ZONE_TYPHOON:1}日 %시각표시(TIME_ENTER_WIND_ZONE_TYPHOON:2)%
			DEBUGPRINTFORML 　　暴風域突入 　%GET_MONTH(TIME_ENTER_STORM_AREA_TYPHOON:0)% {TIME_ENTER_STORM_AREA_TYPHOON:1}日 %시각표시(TIME_ENTER_STORM_AREA_TYPHOON:2)%
			DEBUGPRINTFORML 　　最接近     　%GET_MONTH(TIME_CLOSEST_TYPHOON:0)% {TIME_CLOSEST_TYPHOON:1}日 %시각표시(TIME_CLOSEST_TYPHOON:2)%
			DEBUGPRINTFORML 　　台風の目通過 %GET_MONTH(TIME_PASSAGE_EYE_TYPHOON:0)% {TIME_PASSAGE_EYE_TYPHOON:1}日 %시각표시(TIME_PASSAGE_EYE_TYPHOON:2)%
			DEBUGPRINTFORML 　　暴風域通過 　%GET_MONTH(TIME_PASSAGE_STORM_AREA_TYPHOON:0)% {TIME_PASSAGE_STORM_AREA_TYPHOON:1}日 %시각표시(TIME_PASSAGE_STORM_AREA_TYPHOON:2)%
			DEBUGPRINTFORML 　　強風域通過 　%GET_MONTH(TIME_PASSAGE_WIND_ZONE_TYPHOON:0)% {TIME_PASSAGE_WIND_ZONE_TYPHOON:1}日 %시각표시(TIME_PASSAGE_WIND_ZONE_TYPHOON:2)%
		ELSE
			DEBUGPRINTFORML 　　勢力圏突入 　%GET_MONTH(TIME_ENTER_TERRITORY_TYPHOON:0)% {TIME_ENTER_TERRITORY_TYPHOON:1}日 %시각표시(TIME_ENTER_TERRITORY_TYPHOON:2)%
			DEBUGPRINTFORML 　　強風域突入 　%GET_MONTH(TIME_ENTER_WIND_ZONE_TYPHOON:0)% {TIME_ENTER_WIND_ZONE_TYPHOON:1}日 %시각표시(TIME_ENTER_WIND_ZONE_TYPHOON:2)%
			DEBUGPRINTFORML 　　最接近     　%GET_MONTH(TIME_CLOSEST_TYPHOON:0)% {TIME_CLOSEST_TYPHOON:1}日 %시각표시(TIME_CLOSEST_TYPHOON:2)%
			DEBUGPRINTFORML 　　台風の目通過 %GET_MONTH(TIME_PASSAGE_EYE_TYPHOON:0)% {TIME_PASSAGE_EYE_TYPHOON:1}日 %시각표시(TIME_PASSAGE_EYE_TYPHOON:2)%
			DEBUGPRINTFORML 　　強風域通過 　%GET_MONTH(TIME_PASSAGE_WIND_ZONE_TYPHOON:0)% {TIME_PASSAGE_WIND_ZONE_TYPHOON:1}日 %시각표시(TIME_PASSAGE_WIND_ZONE_TYPHOON:2)%
		ENDIF
		SIF IS_TYPHOON:0 && IS_COLD_LOW
			DEBUGPRINTFORML 　　備考:迷走台風
		SIF IS_TYPHOON:3 == 1
			DEBUGPRINTFORML 　　備考:先駆降雨帯発生
		SIF IS_TYPHOON:1 >= 5 && POWER_COLD_AIR == 1 && POWER_WARM_AIR >= 5 && GET_LOCATION_AREA_TYPHOON() == 1
			DEBUGPRINTFORML 　　備考:颶風フラグオン
	ENDIF

	IF IS_LINER_RAINBAND:0
		DEBUGPRINTFORML 線状降水帯発生 継続時間{IS_LINER_RAINBAND:1}

		DEBUGPRINTFORML 　　勢力圏突入 　%GET_MONTH(TIME_ENTER_TERRITORY_LINER_RAINBAND:0)% {TIME_ENTER_TERRITORY_LINER_RAINBAND:1}日 %시각표시(TIME_ENTER_TERRITORY_LINER_RAINBAND:2)%
		DEBUGPRINTFORML 　　勢力圏通過 　%GET_MONTH(TIME_PASSAGE_LINER_RAINBAND:0)% {TIME_PASSAGE_LINER_RAINBAND:1}日 %시각표시(TIME_PASSAGE_LINER_RAINBAND:2)%
	ENDIF

	IF IS_SoJ_LOW == 2
		DEBUGPRINTFORML 二つ玉低気圧発生
		DEBUGPRINTFORML 　　勢力圏突入 　%GET_MONTH(TIME_ENTER_TERRITORY_SoJ_LOW:0)% {TIME_ENTER_TERRITORY_SoJ_LOW:1}日 %시각표시(TIME_ENTER_TERRITORY_SoJ_LOW:2)%
		DEBUGPRINTFORML 　　最接近 　　　%GET_MONTH(TIME_CLOSEST_SoJ_LOW:0)% {TIME_CLOSEST_SoJ_LOW:1}日 %시각표시(TIME_CLOSEST_SoJ_LOW:2)%
		DEBUGPRINTFORML 　　疑似好天終了 %GET_MONTH(TIME_PASSAGE_FAKE_FINE:0)% {TIME_PASSAGE_FAKE_FINE:1}日 %시각표시(TIME_PASSAGE_FAKE_FINE:2)%
		DEBUGPRINTFORML 　　通過 　　　　%GET_MONTH(TIME_PASSAGE_SoJ_LOW:0)% {TIME_PASSAGE_SoJ_LOW:1}日 %시각표시(TIME_PASSAGE_SoJ_LOW:2)%
	ELSEIF IS_SoJ_LOW == 1
		DEBUGPRINTFORML 日本海低気圧発生
		DEBUGPRINTFORML 　　勢力圏突入 %GET_MONTH(TIME_ENTER_TERRITORY_SoJ_LOW:0)% {TIME_ENTER_TERRITORY_SoJ_LOW:1}日 %시각표시(TIME_ENTER_TERRITORY_SoJ_LOW:2)%
		DEBUGPRINTFORML 　　最接近 　　%GET_MONTH(TIME_CLOSEST_SoJ_LOW:0)% {TIME_CLOSEST_SoJ_LOW:1}日 %시각표시(TIME_CLOSEST_SoJ_LOW:2)%
		DEBUGPRINTFORML 　　通過 　　　%GET_MONTH(TIME_PASSAGE_SoJ_LOW:0)% {TIME_PASSAGE_SoJ_LOW:1}日 %시각표시(TIME_PASSAGE_SoJ_LOW:2)%
	ENDIF
	IF IS_SOUTHERN_LOW
		DEBUGPRINTFORML 南岸低気圧発生
		DEBUGPRINTFORML 　　勢力圏突入 %GET_MONTH(TIME_ENTER_TERRITORY_SOUTHERN_LOW:0)% {TIME_ENTER_TERRITORY_SOUTHERN_LOW:1}日 %시각표시(TIME_ENTER_TERRITORY_SOUTHERN_LOW:2)%
		DEBUGPRINTFORML 　　通過 　　　%GET_MONTH(TIME_PASSAGE_SOUTHERN_LOW:0)% {TIME_PASSAGE_SOUTHERN_LOW:1}日 %시각표시(TIME_PASSAGE_SOUTHERN_LOW:2)%
	ENDIF
	;「TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:0」が0でないとき温暖低気圧発生中
	IF TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:0 > 0
		DEBUGPRINTFORML 温暖低気圧発生
		DEBUGPRINTFORML 　　勢力圏突入 　%GET_MONTH(TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:0)% {TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:1}日 %시각표시(TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:2)%
		DEBUGPRINTFORML 　　温暖前線通過 %GET_MONTH(TIME_PASSAGE_WARM_FRONT:0)% {TIME_PASSAGE_WARM_FRONT:1}日 %시각표시(TIME_PASSAGE_WARM_FRONT:2)%
		DEBUGPRINTFORML 　　寒冷前線通過 %GET_MONTH(TIME_PASSAGE_COLD_FRONT:0)% {TIME_PASSAGE_COLD_FRONT:1}日 %시각표시(TIME_PASSAGE_COLD_FRONT:2)%
		DEBUGPRINTFORML 　　通過 　　　　%GET_MONTH(TIME_PASSAGE_EXTRATROPICAL_LOW:0)% {TIME_PASSAGE_EXTRATROPICAL_LOW:1}日 %시각표시(TIME_PASSAGE_EXTRATROPICAL_LOW:2)%
	ENDIF
	SIF CAN_STRATUS
		DEBUGPRINTFORML 霧予報
	SELECTCASE CAN_CUMULUS:0
		CASE 0
			DEBUGPRINTFORML 積雲未発生
		CASE 1
			IF CAN_CUMULUS:1 == 0
				DEBUGPRINTFORML 積雲遠方
			ELSE
				DEBUGPRINTFORML 積雲直撃
				DEBUGPRINTFORML 　　勢力圏突入 %시각표시(TIME_ENTER_TERRITORY_CUMULUS)%
				DEBUGPRINTFORML 　　最接近 　　%시각표시(TIME_CLOSEST_CUMULUS)%
				DEBUGPRINTFORML 　　通過 　　　%시각표시(TIME_PASSAGE_CUMULUS)%
			ENDIF
		CASE 2
			IF CAN_CUMULUS:1 == 0
				DEBUGPRINTFORML 雄大積雲遠方

			ELSE
				DEBUGPRINTFORML 雄大積雲直撃
				DEBUGPRINTFORML 　　勢力圏突入 %시각표시(TIME_ENTER_TERRITORY_CUMULUS)%
				DEBUGPRINTFORML 　　最接近 　　%시각표시(TIME_CLOSEST_CUMULUS)%
				DEBUGPRINTFORML 　　通過 　　　%시각표시(TIME_PASSAGE_CUMULUS)%
			ENDIF
		CASE 3
			IF CAN_CUMULUS:1 == 0
				DEBUGPRINTFORML 積乱雲(적란운)遠方

			ELSE
				DEBUGPRINTFORML 積乱雲(적란운)直撃
				DEBUGPRINTFORML 　　勢力圏突入 %시각표시(TIME_ENTER_TERRITORY_CUMULUS)%
				DEBUGPRINTFORML 　　最接近 　　%시각표시(TIME_CLOSEST_CUMULUS)%
				DEBUGPRINTFORML 　　通過 　　　%시각표시(TIME_PASSAGE_CUMULUS)%
			ENDIF
		CASE 4
			IF CAN_CUMULUS:1 == 0
				DEBUGPRINTFORML 積乱雲(かなとこ雲)遠方

			ELSE
				DEBUGPRINTFORML 積乱雲(かなとこ雲)直撃
				DEBUGPRINTFORML 　　勢力圏突入 %시각표시(TIME_ENTER_TERRITORY_CUMULUS)%
				DEBUGPRINTFORML 　　最接近 　　%시각표시(TIME_CLOSEST_CUMULUS)%
				DEBUGPRINTFORML 　　通過 　　　%시각표시(TIME_PASSAGE_CUMULUS)%
			ENDIF
		CASE 5
			IF CAN_CUMULUS:1 == 0
				DEBUGPRINTFORML 積乱雲(スーパーセル)遠方

			ELSE
				DEBUGPRINTFORML 積乱雲(スーパーセル)直撃
				DEBUGPRINTFORML 　　勢力圏突入 %시각표시(TIME_ENTER_TERRITORY_CUMULUS)%
				DEBUGPRINTFORML 　　最接近 　　%시각표시(TIME_CLOSEST_CUMULUS)%
				DEBUGPRINTFORML 　　通過 　　　%시각표시(TIME_PASSAGE_CUMULUS)%
			ENDIF
	ENDSELECT
	DEBUGPRINTFORML 連続降水カウンター　 {CONTINUOUS_RAINFALL}
	DEBUGPRINTFORML 寒気による作物被害量 {AMOUNT_COLD_CROP_DAMAGE}
	SIF IS_COLD_CROP_DAMAGE >= 1
		DEBUGPRINTFORML 冷害発生 {IS_COLD_CROP_DAMAGE}
	SIF IS_STORM_CROP_DAMAGE >= 1
		DEBUGPRINTFORML 風害発生 {IS_STORM_CROP_DAMAGE}
	SIF IS_FLOOD_CROP_DAMAGE >= 1
		DEBUGPRINTFORML 水害発生 {IS_FLOOD_CROP_DAMAGE}
	DEBUGPRINTFORML 連続降雪カウンター　 {CONTINUOUS_SNOWFALL}
	DEBUGPRINTFORML 積雪量　　　　　　　 {SNOW_COVERAGE}
	SELECTCASE POSSIBLITY_AVALANCHE
		CASE 1
			DEBUGPRINTFORML 　　雪崩発生フラグ：表層雪崩
		CASE 2
			DEBUGPRINTFORML 　　雪崩発生フラグ：全層雪崩
	ENDSELECT
	SIF GET_HEAT_THUNDERSTORM() == 1
		DEBUGPRINTFORML 熱雷発生フラグ
	SIF GET_FRONTAL_THUNDERSTORM() == 1
		DEBUGPRINTFORML 界雷発生フラグ
[ENDIF]

IF 지저 == 1
	PRINTW 하늘을 바라보았다
	PRINTL ……
	PRINTW 여기서 하늘이 보일리 없다！
	PRINTL
	RETURN
ELSEIF CFLAG:MASTER:현재위치 == 천계
	PRINTW 하늘을 바라보았다
	PRINTL ……
	PRINTW 어디까지나 푸른 하늘이 펼쳐져 있다
	PRINTL
	RETURN
ENDIF

IF OUTROOF(CFLAG:MASTER:현재위치)
	PRINTW 하늘을 바라보았다
ELSE
	PRINTW 창밖을 내다보았다
ENDIF
PRINTL ……

SELECTCASE TIME:0
	;AM4~6　早朝
	CASE 240 TO 359
		SELECTCASE TIME:5
			CASE IS <= 3
				IF 저기압위치 == "台風最接近"
					PRINTW 구름이 주위를 고속으로 떠다니고 있다
					PRINTL
					CALL ASK_DIARY("태풍의 눈에 들어왔다")
				ELSE
					PRINTW 하늘이 밝아왔다
					PRINTL
				ENDIF
			CASE 6, 7, 11
				PRINTW 온통 안개로 새하얗다
				PRINTL
			CASEELSE
				IF GET_LOCATION_AREA_TYPHOON() == 1 || 저기압위치 == "寒冷渦接近"
					PRINTW 구름의 흐름이 빠르다
					PRINTL
				ELSE
					PRINTW 하늘은 온통 구름으로 덮여 있다
					PRINTL
				ENDIF
		ENDSELECT
	;AM6~8　正午前
	CASE 360 TO 479
		SELECTCASE TIME:5
			CASE IS <= 3
				IF 저기압위치 == "台風勢力圏"
					PRINTW 평소보다 붉고 선명한 아침노을이다
					PRINTL
				ELSEIF (저기압위치 == "寒冷渦遠方" && TIME_ENTER_TERRITORY_COLD_LOW:1 == DAY:3 && TIME_ENTER_TERRITORY_COLD_LOW:2 <= TIME:0 + 300) || 저기압위치 == "疑似好天" || 저기압위치 == "暖域"
					PRINTW 밝아오는 하늘 저편에는 벽처럼 이어진 구름이 보인다
					PRINTL
				ELSEIF 저기압위치 == "寒冷渦接近" || IS_COLD_LOW || 저기압위치 == "二つ玉低気圧接近" || 저기압위치 == "日本海低気圧接近" || 저기압위치 == "南岸低気圧接近" || 저기압위치 == "温暖前線接近"
					PRINTW 새빨간 아침노을이다
					PRINTL
				ELSEIF 저기압위치 == "台風最接近"
					PRINTW 구름이 주위를 고속으로 떠다니고 있다
					PRINTL
					CALL ASK_DIARY("태풍의 눈에 들어왔다")
				ELSE
					PRINTW 완전히 날이 밝았다
					PRINTL
				ENDIF
			CASE 6, 7, 11
				PRINTW 온통 안개로 새하얗다
				PRINTL
			CASEELSE
				IF GET_LOCATION_AREA_TYPHOON() == 1 || 저기압위치 == "寒冷渦接近"
					PRINTW 구름의 흐름이 빠르다
					PRINTL
				ELSE
					PRINTW 하늘은 온통 구름으로 덮여 있다
					PRINTL
				ENDIF
		ENDSELECT
	;AM8~12　正午前
	CASE 480 TO 719
		SELECTCASE TIME:5
			CASE IS <= 3
				IF DAY:2 == 2
					IF IS_COLD_LOW || 저기압위치 == "台風勢力圏"
						PRINTW 저쪽에 많은 적란운이 보인다
						PRINTL
					ELSEIF 저기압위치 == "台風最接近"
						PRINTW 구름이 주위를 고속으로 떠다니고 있다
						PRINTL
						CALL ASK_DIARY("태풍의 눈에 들어왔다")
					ELSEIF POWER_WARM_AIR >= 4
						PRINTW 저쪽에 적운이 많이 떠 있다
						PRINTL
					ELSEIF POWER_WARM_AIR <= 1
						PRINTW 개운치 않은 날씨다
						PRINTL
					ELSE
						PRINTW 푸른 하늘이다！오늘도 더워질 것 같다
						PRINTL
					ENDIF
				ELSE
					IF 저기압위치 == "寒冷渦遠方" || 저기압위치 == "疑似好天" || 저기압위치 == "暖域"
						PRINTW 하늘 저편에는 벽처럼 이어진 구름이 보인다
						PRINTL
					ELSEIF 저기압위치 == "台風最接近"
						PRINTW 구름이 주위를 고속으로 떠다니고 있다
						PRINTL
						CALL ASK_DIARY("태풍의 눈에 들어왔다")
					ELSEIF 저기압위치 == "二つ玉低気圧接近" || 저기압위치 == "日本海低気圧接近" || 저기압위치 == "南岸低気圧接近" || 저기압위치 == "温暖前線接近"
						IF TIME:5 == 3
							PRINTW 고층운이 펼쳐져 있다
							PRINTL
						ELSE
							PRINTW 권적운이 펼쳐져 있다
							PRINTL
						ENDIF
					ELSE
						PRINTW 평온한 하늘이다
						PRINTL
					ENDIF
				ENDIF
			CASE 6, 7, 11
				PRINTW 온통 안개로 새하얗다
				PRINTL
			CASEELSE
				IF GET_LOCATION_AREA_TYPHOON() == 1 || 저기압위치 == "寒冷渦接近"
					PRINTW 구름의 흐름이 빠르다
					PRINTL
				ELSE
					PRINTW 하늘은 온통 구름으로 덮여 있다
					PRINTL
				ENDIF
		ENDSELECT
	;PM12~6　昼
	CASE 720 TO 1079
		SELECTCASE TIME:5
			CASE IS < 4
				IF 적란운위치 == "台風最接近"
					PRINTW 구름이 주위를 고속으로 떠다니고 있다
					PRINTL
					CALL ASK_DIARY("태풍의 눈에 들어왔다")
				ELSEIF DAY:2 == 2
					SELECTCASE 적란운위치
						CASE "積乱雲遠方", "積乱雲未発生"
							IF IS_COLD_LOW || 저기압위치 == "台風勢力圏"
								PRINTW 저쪽에 수많은 뭉게구름이 보인다
								PRINTL
							ELSEIF POWER_WARM_AIR <= 1
								PRINTW 개운치 않은 날씨다
								PRINTL
							ELSE
								SELECTCASE CAN_CUMULUS:0
									CASE 0
										PRINTW 활짝 갠 여름 하늘이다
										PRINTL
									CASE 1
										PRINTW 저쪽에는 적운이 떠 있다
										PRINTL
									CASE 2, 3
										PRINTW 저쪽에는 적란운이 떠 있다
										PRINTL
									CASE 4
										PRINTW 저쪽에는 모루구름이 떠 있다
										PRINTL
									CASE 5
										PRINTW 저쪽에서는 구름이 소용돌이치고 있다
										PRINTL
								ENDSELECT
							ENDIF
						CASE "積乱雲視認"
							SELECTCASE CAN_CUMULUS:0
								CASE 1
									PRINTW 적운이 나왔다
									PRINTL
								CASE 2, 3
									PRINTW 적란운이 뭉게뭉게 성장하고 있다
									PRINTL
								CASE 4
									PRINTW 적란운의 정상이 평평하다 모루구름이다！
									PRINTL
								CASE 5
									PRINTW 멀리서 구름덩어리가 소용돌이치고 있다……
									PRINTL
								CASEELSE
									PRINTW 활짝 갠 여름 하늘이다
									PRINTL
							ENDSELECT
						CASE "積乱雲接近"
							SELECTCASE CAN_CUMULUS:0
								CASE 1
									PRINTW 적운이 둥실둥실 떠 있다
									PRINTL
								CASE 2
									PRINTW 구름 밑이 어둑어둑하다
									PRINTL
								CASE 3
									PRINTW 길게 늘어선 구름이 다가오고 있다
									PRINTL
								CASE 4
									PRINTW 검은 길게 늘어선 구름이 다가오고 있다
									PRINTL
									IF CAN_CUMULUS:2 == 1
										PRINTW ……자세히 보니 구름에 젖이 달려 있다！
										PRINTL
										CALL ASK_DIARY("구름에 젖이 달려 있었다")
									ELSEIF CAN_CUMULUS:2 == 2
										PRINTW ……자세히 보니 구름에 자지가 나 있다！
										PRINTL
										CALL ASK_DIARY("구름에 자지가 나 있었다")
									ENDIF
								CASE 5
									PRINTW 아치형 구름이 다가오고 있다
									PRINTL
									IF CAN_CUMULUS:2 == 1
										PRINTW ……자세히 보니 구름에 젖이 달려 있다！
										PRINTL
										CALL ASK_DIARY("구름에 젖이 달려 있었다")
									ELSEIF CAN_CUMULUS:2 == 2
										PRINTW ……자세히 보니 구름에 자지가 나 있다！
										PRINTL
										CALL ASK_DIARY("구름에 자지가 나 있었다")
									ENDIF
								CASEELSE
									PRINTW 활짝 갠 여름 하늘이다
									PRINTL
							ENDSELECT
						CASEELSE
							PRINTW 적운이 둥실둥실 떠 있다
							PRINTL
					ENDSELECT
				ELSE
					IF (저기압위치 == "寒冷渦遠方" && TIME_ENTER_TERRITORY_COLD_LOW:1 == DAY:3 && TIME_ENTER_TERRITORY_COLD_LOW:2 <= TIME:0 + 300) || 저기압위치 == "疑似好天" || 저기압위치 == "暖域"
						PRINTW 하늘 저편에는 벽처럼 이어진 구름이 보인다
						PRINTL
					ELSEIF 저기압위치 == "台風最接近"
						PRINTW 구름이 주위를 고속으로 떠다니고 있다
						PRINTL
						CALL ASK_DIARY("태풍의 눈에 들어왔다")
					ELSEIF 저기압위치 == "二つ玉低気圧接近" || 저기압위치 == "日本海低気圧接近" || 저기압위치 == "南岸低気圧接近" || 저기압위치 == "温暖前線接近"
						IF TIME:5 == 3
							PRINTW 고층운이 펼쳐져 있다
							PRINTL
						ELSE
							PRINTW 권적운이 펼쳐져 있다
							PRINTL
						ENDIF
					ELSE
						PRINTW 평온한 하늘이다
						PRINTL
					ENDIF
				ENDIF
			CASE 6, 7, 11
				PRINTW 온통 안개로 새하얗다
				PRINTL
			CASEELSE
				IF 적란운위치 == "積乱雲直下"
					 SELECTCASE CAN_CUMULUS:0
					 	CASE IS < 4
					 		PRINTW 하늘은 어둑어둑하다
					 		PRINTL
					 	CASE 4
					 		PRINTW 하늘은 캄캄하다
					 		PRINTL
							IF CAN_CUMULUS:2 == 1
								PRINTW ……자세히 보니 구름에 젖이 달려 있다！
								PRINTL
								CALL ASK_DIARY("구름에 젖이 달려 있었다")
							ELSEIF CAN_CUMULUS:2 == 2
								PRINTW ……자세히 보니 구름에 자지가 나 있다！
								PRINTL
								CALL ASK_DIARY("구름에 자지가 나 있었다")
							ENDIF
					 	CASE 5
					 		PRINTW 시커먼 구름이 소용돌이치고 있다
					 		PRINTL
							IF CAN_CUMULUS:2 == 1
								PRINTW ……자세히 보니 구름에 젖이 달려 있다！
								PRINTL
								CALL ASK_DIARY("구름에 젖이 달려 있었다")
							ELSEIF CAN_CUMULUS:2 == 2
								PRINTW ……자세히 보니 구름에 자지가 나 있다！
								PRINTL
								CALL ASK_DIARY("구름에 자지가 나 있었다")
							ENDIF
					 ENDSELECT
				ELSEIF GET_LOCATION_AREA_TYPHOON() == 1 || 저기압위치 == "寒冷渦接近"
					PRINTW 구름의 흐름이 빠르다
					PRINTL
				ELSE
					PRINTW 하늘은 온통 구름으로 덮여 있다
					PRINTL
				ENDIF
		ENDSELECT
	;PM6~8　夕
	CASE 1080 TO 1199
		SELECTCASE TIME:5
			CASE IS < 3
				IF 저기압위치 == "台風勢力圏"
					PRINTW 평소보다 붉고 선명한 노을이다
					PRINTL
				ELSEIF (저기압위치 == "寒冷渦遠方" && TIME_ENTER_TERRITORY_COLD_LOW:1 == DAY:3 && TIME_ENTER_TERRITORY_COLD_LOW:2 <= TIME:0 + 300) || 저기압위치 == "疑似好天" || 저기압위치 == "暖域"
					PRINTW 노을 하늘 저편에는 벽처럼 이어진 구름이 보인다
					PRINTL
				ELSEIF 저기압위치 == "台風遠方" || 저기압위치 == "台風一過" || 저기압위치 == "二つ玉低気圧通過" || 저기압위치 == "日本海低気圧通過" || 저기압위치 == "南岸低気圧通過" || 저기압위치 == "温帯低気圧通過" || 저기압위치 == "低気圧未発生"
					PRINTW 노을이 아름답다
					PRINTL
				ELSEIF 저기압위치 == "台風最接近"
					PRINTW 구름이 주위를 고속으로 떠다니고 있다
					PRINTL
					CALL ASK_DIARY("태풍의 눈에 들어왔다")
				ELSE
					PRINTW 해가 저물기 시작했다
					PRINTL
				ENDIF
			CASE 6, 7, 11
				PRINTW 온통 안개로 새하얗다
				PRINTL
			CASEELSE
				IF GET_LOCATION_AREA_TYPHOON() == 1 || 저기압위치 == "寒冷渦接近"
					PRINTW 구름의 흐름이 빠르다
					PRINTL
				ELSE
					PRINTW 하늘은 온통 구름으로 덮여 있다
					PRINTL
				ENDIF
		ENDSELECT
	;PM8~AM4　夜・深夜
	CASE 0 TO 239, IS >= 1200
		SELECTCASE TIME:5
			CASE IS < 3
				IF IS_COLD_LOW || 저기압위치 == "台風勢力圏" || 저기압위치 == "疑似好天" || WIND_VELOCITY >= 1 || 저기압위치 == "暖域"
					PRINTW 별이 깜빡이고 있다
					PRINTL
				ELSEIF 저기압위치 == "台風最接近"
					PRINTW 구름이 주위를 고속으로 떠다니고 있다
					PRINTL
					CALL ASK_DIARY("태풍의 눈에 들어왔다")
				ELSEIF 저기압위치 == "二つ玉低気圧接近" || 저기압위치 == "日本海低気圧接近" || 저기압위치 == "南岸低気圧接近" || 저기압위치 == "温暖前線接近"
					IF TIME:5 == 2 && MOON_WATCH(DAY:3)
						PRINTW 달무리가 졌다
						PRINTL
					ELSEIF TIME:5 == 2
						PRINTW 옅은 구름으로 별에 안개가 끼어 있다
						PRINTL
					ENDIF
				ELSE
					PRINTW 별이 예쁘다
					PRINTL
				ENDIF
			CASE 6, 7, 11
				PRINTW 온통 안개로 새하얗다
				PRINTL
			CASEELSE
				IF GET_LOCATION_AREA_TYPHOON() == 1 || 저기압위치 == "寒冷渦接近"
					PRINTW 구름의 흐름이 빠르다
					PRINTL
				ELSEIF 저기압위치 == "二つ玉低気圧接近" || 저기압위치 == "日本海低気圧接近" || 저기압위치 == "南岸低気圧接近" || 저기압위치 == "温暖前線接近"
					IF TIME:5 == 3
						PRINTW 낮은 구름이 별을 가리고 있다
						PRINTL
					ENDIF
				ELSE
					PRINTW 하늘은 온통 구름으로 덮여 있다
					PRINTL
				ENDIF
		ENDSELECT
ENDSELECT

license: mit


code:
;500이후는 여기에
;-------------------------------------------------
;60, 귀이개
;-------------------------------------------------
@MESSAGE_SCOM60
PRINTFORML %조교자는% %CALLNAME:TARGET%에게 귀청소를 받았다
IF TFLAG:193 == 1
	PRINTFORML %타겟은% 상냥한 손놀림으로 %CALLNAME:PLAYER%의 귀를 청소 하고 있다…
ELSEIF TFLAG:193 == -1
	PRINTFORML %타겟은% 손이 미끄러지자 당황하고 있다…
ENDIF

;-------------------------------------------------
;61, 다키마쿠라
;-------------------------------------------------
@MESSAGE_SCOM61
PRINTFORML %조교자는% %CALLNAME:TARGET%\@ TALENT:105 > 0 ?  의 가슴에 얼굴을 묻으며 # 를 꼭 껴안으며 \@잤다…
;IF TFLAG:193 == 1
;	PRINTFORML %타겟은% %조교자를% 꼭 껴안아 휴업(휴가)를 고했다…
;ELSEIF TFLAG:193 == -1
;	PRINTFORML %타겟은% 괴로운 듯%조교자가% 자는 것을 기다렸다…
;ENDIF

;-------------------------------------------------
;62, 이마 쪽―
;-------------------------------------------------
@MESSAGE_SCOM62
PRINTFORML %조교자는% %CALLNAME:TARGET%의 이마에 가볍게 키스 했다…
IF !CFLAG:TARGET:수면
	IF ABL:욕망 >= 5
		PRINTFORML %타겟은% 어딘지 부족한 듯이 %조교자를% 응시하고 있다…
	ELSEIF ABL:친밀 >= 5
		PRINTFORM %타겟은%
		IF TARGET == 57 && !TALENT:연모
			PRINTFORM 무표정인 채
		ENDIF
		PRINTFORML 얼굴이 새빨개져서 수줍어하고 있다…
	ELSE
		PRINTFORML %타겟은% 갑작스러운 일에 놀라고 있는 것 같다…
	ENDIF
ENDIF

;-------------------------------------------------
;63, 좀 더 키스한다
;-------------------------------------------------
@MESSAGE_SCOM63
IF FLAG:70 == 1
	PRINTFORML %조교자는% %CALLNAME:TARGET%의 입에 자신의 입술을 겹쳤다…
	PRINTL 좀 더 겹쳤다…
	PRINTL 겹쳤다…
	PRINTFORML 시간을 정지당한 %타겟은% 무저항인 채 입맞춤을 당하고 있다…
ELSEIF CFLAG:TARGET:수면
	PRINTFORML %조교자는% 자고 있는 %CALLNAME:TARGET%의 입에 자신의 입술 더욱 겹쳤다…
	IF ABL:친밀 >= 8
		PRINTFORM 입술을 떼자 %타겟은%
		IF TARGET == 57 && !TALENT:연모
			PRINTFORML 노인 가면 띄우고 있다…
		ELSE
			PRINTFORML 살짝 미소짓고 있다…
		ENDIF
	ELSEIF ABL:친밀 >= 5
		PRINTFORM %타겟은% 조금 괴로운 듯
		IF TARGET == 57 && !TALENT:연모
			PRINTFORML 시시구치 가면을 띄웠다…
		ELSE
			PRINTFORML 눈살을 찌푸렸다…
		ENDIF
	ELSE
		PRINTFORM %타겟은%
		IF TARGET == 57 && !TALENT:연모
			PRINTFORM 한냐 가면을 띄우며
		ELSE
			PRINTFORM 얼굴을 찡그리며
		ENDIF
		PRINTFORML 무의식적으로 고개를 돌렸다…
	ENDIF
ELSE
	PRINTFORML %조교자는%\@ CFLAG:TARGET:동침중 ?  동침 하는 # \@%CALLNAME:TARGET%의 입을 자신의 입으로 더욱 막았다…
	IF TALENT:연모
		PRINTFORML %타겟은% 얼굴이 새빨개지면서도 입술을 꽉 눌러 왔다…
	ELSEIF ABL:친밀 >= 5
		PRINTFORML %타겟은% %CALLNAME:MASTER%의 어깨를 조심스럽게 톡톡 두드리고 있다…
	ELSE
		PRINTFORML %타겟은% 숨을 흐트러뜨리고 있다…
	ENDIF
ENDIF

;-------------------------------------------------
;80, 손을 잡아 당긴다
;-------------------------------------------------
@MESSAGE_SCOM80
PRINTFORML %조교자는% %CALLNAME:TARGET%의 손을 잡아 당겨 앞길을 서둘렀다
IF TFLAG:193 == 1
	PRINTFORM %타겟은% %CALLNAME:PLAYER%의 옆에 서서
	IF TARGET == 57 && !TALENT:연모
		PRINTFORM 노인 가면을 띄우고
	ELSE
		PRINTFORM 기쁜듯이
	ENDIF
	PRINTFORML 빠른 걸음으로 걷고 있다…
ELSEIF TFLAG:193 == -1
	PRINTFORM %타겟은% 손을 잡아 당겨지는 대로
	IF TARGET == 57 && !TALENT:연모
		PRINTFORM 원숭이 가면을 띄우고
	ELSE
		PRINTFORM 곤란한 얼굴로
	ENDIF
	PRINTFORML 빠른 걸음으로 걷고 있다…
ENDIF

;-------------------------------------------------
;603, 손을잡는다
;-------------------------------------------------
@MESSAGE_COM603
PRINTFORML %조교자는% %CALLNAME:TARGET%의 손을 잡았다
IF TFLAG:193 == 1
	PRINTFORM %타겟은%
	IF TARGET == 57 && !TALENT:연모
		PRINTFORM 무표정으로
	ENDIF
	PRINTFORML 뺨을 붉히고 기쁜듯이 손을 맞잡아주었다…
ELSEIF TFLAG:193 == -1
	PRINTFORML …%타겟은% 조금 망설이면서 손을 맞잡았다…
ENDIF

;-------------------------------------------------
;610, 식사제의를한다
;-------------------------------------------------
@MESSAGE_COM610
PRINTFORML %조교자는% %타겟을% 권해 %DATENAME_SPOT()%에서 식사를 했다
[SKIPSTART]
IF DATE_PARTY(CFLAG:MASTER:현재위치) == 2
	PRINTFORML %DATENAME_SPOT()%의 연회에 참가했다
ELSEIF DATE_PARTY(CFLAG:MASTER:현재위치) == 1
	PRINTFORML %DATENAME_SPOT()%로 식사를 배달시켰다
ELSE
	SELECTCASE CFLAG:MASTER:현재위치
		;술집소로
		CASE 230
			PRINTDATA
				DATAFORM 소멋부린 바로 술을 마셨다
				DATAFORM 소란스러운 대중 술집에서 술을 마셨다
				DATAFORM 평판의 포장마차에서 술을 마셨다
			ENDDATA
			PRINTL
		;하쿠레이 신사
		CASE 340
			PRINTFORML 하쿠레이 신사의 연회에 참가했다
		;요정의 큰 나무
		CASE 350
			PRINTFORML 요정들의 차회에 참가했다
		CASE 410
			PRINTFORML 미스티아의 포장마차에서 8번째뱀장어를 먹었다
	ENDSELECT
ENDIF
[SKIPEND]
IF TFLAG:193 == 1
	PRINTFORML %타겟은% 마음껏 즐겨 준 것 같다
ELSEIF TFLAG:193 == -1
	PRINTFORML ……%타겟은% 어딘지 모르게 불만스러운 것 같다…
;\@ DATE_PARTTIME(CFLAG:MASTER:현재위치) == 1 ?  그다지 밥이 진행되지 않았던 것 같다… # 만취해 버렸다…\@
ENDIF

;-------------------------------------------------
;613, 돈 벌어 한다
;-------------------------------------------------
@MESSAGE_COM613
PRINTFORM %CALLNAME:PLAYER%\@ TARGET ?  들 #  \@은
IF DATE_PARTTIME(CFLAG:MASTER:현재위치) == 2
	PRINTFORM %DATENAME_PLACE()%로 아르바이트 해
ELSEIF DATE_PARTTIME(CFLAG:MASTER:현재위치) == 1
	PRINTFORM %DATENAME_PLACE()%로 식재료 수집을 해
ELSE
	SELECTCASE CFLAG:MASTER:현재위치
		;서당
		CASE 240
			PRINTDATA
				DATAFORM 서당에서 임시 교사를 해
				DATAFORM 케이네의 심부름을 해
				DATAFORM 서당의 서류 정리를 해
			ENDDATA
		;영원정
		CASE 450
			PRINTDATA
				DATAFORM 영원정에서 조제 심부름을 해
				DATAFORM 신약의 시험 아르바이트를 해
				DATAFORM 토끼들을 돌봐
			ENDDATA
		;향림당
		CASE 520
			PRINTDATA
				DATAFORM 향림당에서 아르바이트 해
				DATAFORM 잡동사니 줍기를 해
				DATAFORM 향림당의 재고 조사 심부름을 해
			ENDDATA
		;키리사메마법점
		CASE 540
			PRINTDATA
				DATAFORM 마법점에서 아르바이트 해
				DATAFORM 마법 도구의 정리를 도와줘
				DATAFORM 마리사의 실험을 도와줘
			ENDDATA
		;홍마관
		CASE 650
			PRINTDATA
				DATAFORM 홍마관에서 아르바이트 해
				DATAFORM 사쿠야의 일을 도와줘
				DATAFORM 도서관의 정리를 도와줘
			ENDDATA
		;모리야신사
		CASE 830
			PRINTFORM 모리야신사에서 아르바이트 해
	ENDSELECT
ENDIF
PRINTFORML \\{TFLAG:200}의 수입을 얻었다
TFLAG:200 = 0
;-------------------------------------------------
;615, 도시락을 먹는다
;-------------------------------------------------
@MESSAGE_COM615
PRINTFORML %타겟이% 싸온 도시락을 먹기로 했다
IF 	TFLAG:193 == -1
	PRINTL 코멘트가 곤란한 맛이다…
ELSE
	IF ABL:요리기능 < 2
		PRINTFORML 솔직히 미묘한 맛이었지만, %마스터는% 그런 말은 꺼내지 않고 도시락을 깨끗이 먹어치웠다
	ELSEIF ABL:요리기능 < 4
		PRINTFORML 꽤 맛있었다
	ELSE
		PRINTFORML %CALLNAME:TARGET%의 요리는 매우 맛있다
	ENDIF
ENDIF
SIF TFLAG:193 == 1
	PRINTFORML %마스터는% %타겟과% 담소하면서 즐거운 시간을 보냈다
;-------------------------------------------------
;616, 진찰을 받는다
;-------------------------------------------------
@MESSAGE_COM616
IF 	TFLAG:193 == 1
		PRINTL 돈이 부족했기 때문에, 대신에 약의 소재를 수집했다…
ELSE
	PRINTL 「몸조리를 잘하세요」
ENDIF

;-------------------------------------------------
;617, 아마미 도코로로 이끈다
;-------------------------------------------------
@MESSAGE_COM617
PRINTFORML %조교자는% %타겟을%에게 권해 소문의 과자가게에 갔다
SIF TFLAG:193 == 1
	PRINTFORML %타겟은% 만족하여 기뻐하고 있는 것 같다

;-------------------------------------------------
;620, 스즈나안
;COMF와 통합했습니다
;-------------------------------------------------
@MESSAGE_COM620
[SKIPSTART]
IF TFLAG:193 == 1
	PRINTL 「감사합니다」
	PRINTL 「대출 기간은 일주일간입니다」
ENDIF
[SKIPEND]

;-------------------------------------------------
;621, 낚시를 한다
;-------------------------------------------------
@MESSAGE_COM621
#DIM CHARA
CHARA = TFLAG:194 % 1000
SELECTCASE TFLAG:193
	CASE 0
		PRINTFORML 아무것도 잡히지 않았다……
		RETURN
	CASE 610
		IF TFLAG:194 > 1000
			PRINTFORML %CALLNAME:CHARA%가 나무조각을 낚시했다…
		ELSE
			PRINTFORML 나무조각이 잡혔다……
		ENDIF
		RETURN
	CASE 131
		IF TFLAG:194 > 1000
			PRINTFORMW %CALLNAME:CHARA%가 종잇조각을 낚시했다
		ELSE
			PRINTFORMW 종잇조각이 잡혔다
		ENDIF
		PRINTL
		PRINTL ┌─────────────┐
		PRINTL ｜　　　　　　　　　　　　　｜
		PRINTL ｜　　모리야부적　　　　　　｜
		PRINTL ｜　　　　　　　　　　　　　｜
		PRINTL ｜　　5장 모으면　　　　　　｜
		PRINTL ｜　　 뽑기 1회 가능합니다　｜
		PRINTL ｜　　　　　　　　　　　　　｜
		PRINTL ｜이익은 보증하기 어렵습니다｜
		PRINTL ｜　　　　　　　　　　　　　｜
		PRINTL ｜　　　　　　　모리야신사　｜
		PRINTL └─────────────┘
		RETURN
	CASE 1 TO 20, 22 TO 60
		LOCALS = %FISH_NAME(TFLAG:193)%
	CASE 21
		LOCALS = 로터
	CASEELSE
		LOCALS = %ITEMNAME:(TFLAG:193)%
ENDSELECT

IF TFLAG:194 > 1000
	PRINTFORML %조사처리(CALLNAME:CHARA,"가")% %조사처리(LOCALS,"를")% 낚았다!
ELSE
	PRINTFORML %조사처리(LOCALS,"가")% 잡혔다!
	;로터 이후를 연주하여 크기와 어획수 처리 (원문은 ローター以降を弾いてサイズと漁獲数の処理)
	IF INRANGE(TFLAG:193, 1, 60) && TFLAG:193 != 21
		;사이즈의 출력
		LOCAL:1 = FISHING_SIZE(TFLAG:193)
		PRINTFORML 　사이즈:{LOCAL:1}cm
		;지금까지의 최고 사이즈와 비교하여 크면 기록
		IF LOCAL:1 > FISHSIZE_RECORD:(TFLAG:193)
			SETCOLOR C_YELLOW
			SIF FISH_EXP:(TFLAG:193)
				PRINTFORML 　지금까지 잡은 %LOCALS% 중에서 가장 큰 사이즈다!
			RESETCOLOR
			FISHSIZE_RECORD:(TFLAG:193) = LOCAL:1
		ENDIF
		;어흭수의 가산
		FISH_EXP:(TFLAG:193) ++
	ENDIF
ENDIF
;설명을 얼버무리다
SELECTCASE TFLAG:193
	CASE 1 TO 20, 22 TO 60
		DRAWLINE
		PRINTFORML %LOCALS%
		CALL FISHING_EXPLANATION(TFLAG:193)
	CASE IS > 61, 21
		DRAWLINE
		PRINTFORML %LOCALS%
		PRINTFORML 　　%ITEM_EXPLANATION(TFLAG:193)%
ENDSELECT

;-------------------------------------------------
;626,기념품점
;-------------------------------------------------
@MESSAGE_COM626
CALL GIFTNAME(TCVAR:TARGET:오늘의선물)
SIF TFLAG:194 > 0
	PRINTFORML %마스터는% %CALLNAME:TARGET%에게 %조사처리(RESULTS,"를")% 사주었다。

SELECTCASE TFLAG:194
; 눈요기
CASE -2
	;지역마다 대사를 바꾸는 경우
	LOCAL = GET_MAPID(CFLAG:MASTER:현재위치) + ((GET_MAPID(CFLAG:MASTER:현재위치) == 5 && GIFTSHOP_NAME(5) == "향림당") * 94)
	CALL SPTALK, 0, "怒り", LOCAL, @"「눈요기%\@ LOCAL == 99 ? 라면 돌아가 주지 않겠나？ # 는 사절이야！ \@%」", 1
	PRINTL
	PRINTFORMW 아무래도 너무 오래 둘러보기만 한 것 같다…
; 역시 그만두었다（전송）
CASE -1
	PRINTFORML %CALLNAME:MASTER% 일행은 소소한 윈도우쇼핑을 즐겼다。
; 400점 미만（BAD）
CASE 1
	SELECTCASE CFLAG:TARGET:성격경향
	;심약계
	CASE 1
		PRINTFORML %타겟은% 혼란스러움에 말문이 막히고 있다…
	;강세계
	CASE 2
		PRINTFORML %타겟은% 흥미가 없는듯이 선물을 집었다…
	;순수계
	CASE 3
		PRINTFORML %타겟은% 어안이 벙벙한 채로 서있다…
	;성실계
	CASE 4
		PRINTFORML %타겟은% 동요한 모습으로 감사를 표했다…
	;그외
	CASEELSE
		PRINTFORML %타겟은% 쓴웃음을 짓고 있다…
	ENDSELECT
; 400점～699점（NOMAL）
CASE 2
	SELECTCASE CFLAG:TARGET:성격경향
	;심약계
	CASE 1
		PRINTFORML %타겟은% 수줍어 하면서 선물을 꼭 움켜쥐었다…
	;강세계
	CASE 2
		PRINTFORML %타겟은% 히죽거리는 모습으로 음미하고 있다…
	;순수계
	CASE 3
		PRINTFORML %타겟은% 기쁜듯이 하고 있다…
	;성실계
	CASE 4
		PRINTFORML %타겟은% 공손히 받고 감사의 말을 건넸다…
	;그외
	CASEELSE
		PRINTFORML %타겟은% 웃으며 받았다…
	ENDSELECT
; 700점 이상（GOOD）
CASE 3
	SELECTCASE CFLAG:TARGET:성격경향
	;심약계
	CASE 1
		PRINTFORML %타겟은% 얼굴을 붉히며 물끄러미 선물을 바라보았다…
	;강세계
	CASE 2
		PRINTFORML %타겟은% 만족한 듯이 머리를 쓰다듬어 주었다…
	;순수계
	CASE 3
		PRINTFORML %타겟은% 기쁜 나머지 부둥켜안아 왔다…
	;성실계
	CASE 4
		PRINTFORML %타겟은% 빰을 붉히며 감사의 마음을 전했다…
	;그외
	CASEELSE
		PRINTFORML %타겟은% 밝은 미소로 받아 주었다…
	ENDSELECT
ENDSELECT

;-------------------------------------------------
;660, 독서
;-------------------------------------------------
@MESSAGE_COM660
IF TARGET == 54 && CFLAG:TARGET:현재위치 == 340 && TFLAG:194 == 1
	IF TFLAG:193 > 5
		IF  CFLAG:TARGET:2 < 500
			PRINTFORML 다행히 파츄리는 %CALLNAME:MASTER% 쪽은 돌아보지도 않는다
		ELSEIF !TALENT:TARGET:연모
				PRINTFORML 일순간, 경멸의 시선을 느꼈다
		ENDIF
	ELSEIF CFLAG:TARGET:2 > 500
		PRINTFORML 독서중, 문득 시선을 느껴 고개를 들자 파츄리가 이쪽을 보고 있었다
		IF CFLAG:TARGET:2 < 1000
			PRINTFORML 하지만, 곧바로 눈을 피했다
		ELSE
			PRINTFORML 파츄리는 %CALLNAME:MASTER%에게 미소를 보냈다
		ENDIF
	ENDIF
ENDIF
SELECTCASE TFLAG:193
	CASE 1
		PRINTFORML %마스터는% 신비한 카라테의 비법을 접했다
	CASE 2
		PRINTFORML 무엇이 재미있는지 모르겠다…
	CASE 3
		PRINTFORML 기대하고 있지 않았지만 상상 이상으로 재미있었다
	CASE 4
		PRINTFORML 딱히 도움이 되는 지식은 얻을 수 없었다
	CASE 5
		PRINTFORML 도움이 되는 지식을 얻을 수가 있었다
	CASE 6
		PRINTFORML %마스터는% 선인들의 예지에 깊은 경의를 표했다
	CASE 7
		PRINTFORML %마스터는% 여체에 대한 이해가 깊어졌다
	CASE 8
		PRINTL 욕망이 솟구쳐 왔다
ENDSELECT

IF TFLAG:194 == 2
	PRINTFORML 지금까지 신기한 듯이 남녀가 사지를 얽는 책을 보고 있던 %타겟이% 갸웃거렸다
	;성적 경험 있는 경우(귀찮아서로부터, 자위도 무자각도 수간도 전부 포함할 수 있는 챠루(원래, 교양 2이상 또한 MASTER의 교양 3이상의 시점에서 그 나름대로 시간 지나있는 괄(라고인가 교양 Lv1로 무지 잡혀도 좋지?　(이)라고는 생각하지 않는 것도 아니지만, 학습경험 5로 잡히는 시점에서, (성적) 무지는 잡히지 않아도 어쩔 수 없지요라고 생각하기도
	FOR LOCAL, 0,66
		SIF CSVEXP(TARGET, LOCAL) != EXP:TARGET:LOCAL
			LOCAL:1 ++
	NEXT
	IF LOCAL:1
		PRINTFORM 확실히 이렇게 하는 것은 기분이 좋지만, 뭐가 유익한건지 새삼스러운 의문을 말한다
	ELSE
		PRINTFORM 뭐가 즐거워서 이런 일을 하느냐며, 이상한 듯 입을 연다
	ENDIF
	PRINTFORML %CALLNAME:TARGET%
	IF LOCAL:1 && (EXP:조교자위경험 || EXP:자위경험 < (EXP:C경험 + EXP:V경험 + EXP:A경험 + EXP:B경험 + EXP:M경험))
		PRINTFORML %마스터는% 다소의 죄악감을 느끼면서, 성행위의 의미와 목적을 제대로 %CALLNAME:TARGET%에게 철저히 가르쳤다
		IF !TALENT:사모 && !TALENT:연모 && !TALENT:연인 && !TALENT:섹프 && !TALENT:애욕
			PRINTFORML %타겟은% 기가 막힌듯한 경멸하는 것 같은 표정으로 %마스터를% 응시하고 있다
			CFLAG:호감도 -= 100
			SIF CFLAG:호감도 < 0
				CFLAG:호감도 = 0
			CFLAG:신뢰도 -= 100
			SIF CFLAG:신뢰도 < 0
				CFLAG:신뢰도 = 0
		ELSE
			PRINTFORML %타겟은%, 기가 막힌 것처럼 한숨을 쉰 후, 그렇지만 기분이 좋다면 자신도 좋다며 웃는 얼굴을 띄웠다
		ENDIF
	ELSEIF LOCAL:1
		PRINTFORML %마스터는% 가능한 한 정확하게, 성행위의 의미와 목적을 제대로 %CALLNAME:TARGET%에 철저히 가르쳤다
		IF !TALENT:사모 && !TALENT:연모 && !TALENT:연인 && !TALENT:섹프 && !TALENT:애욕
			PRINTFORML 왠지, %타겟은% 얼굴을 새빨갛게 하고 있다
		ELSE
			PRINTFORML %타겟은% 얼굴을 붉게 물들이면서, 자위는 아이 만들기가 아니기 때문에 안 되는 건가, 하고 한숨을 쉬었다
		ENDIF
	ELSE
		PRINTFORML %마스터는% 정확하게, 성행위의 의미와 목적을 제대로 %CALLNAME:TARGET%에 철저히 가르쳤다
		PRINTFORML %타겟은% 감탄한 표정으로, 제대로 이야기를 듣고 있다
	ENDIF
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORML %타겟은%[무지]를 잃었다
	TALENT:무지 = 0
ENDIF

;-------------------------------------------------
;697, 방을방문한다
;-------------------------------------------------
@MESSAGE_COM697
;-------------------------------------------------
;698, 방에들어간다
;-------------------------------------------------
@MESSAGE_COM698
PRINTFORML %타겟이% 방에 안내해 주었다
;-------------------------------------------------
;699, 밖으로나온다
;-------------------------------------------------
@MESSAGE_COM699
IF !TARGET
	PRINTL 밖으로 나왔다
ELSEIF CFLAG:TARGET:수면
	PRINTFORML 자고 있는 %타겟을% 깨우지 않도록 몰래 밖으로 나왔다
;조건은 MOVEMENT 참조
ELSEIF !수면시간(TARGET) && !CFLAG:TARGET:수면
	PRINTFORML %타겟을% 따라 밖으로 나왔다
ELSE
	PRINTFORML %CALLNAME:TARGET%에게 배웅을 받으며 밖으로 나왔다
ENDIF

;-------------------------------------------------
;Sub_Taste, 맛내기 반응
;EVENT_MESSAGE_COM400로 이동
;-------------------------------------------------
[SKIPSTART]
@MESSAGE_REACTION_TASTE
SELECTCASE DISH_MIXTURE()
CASE DISH_RADICAL_엄청매운
	IF TASTE_GIVEUP(TARGET, DISH_RADICAL_엄청매운)
		PRINTFORML %타겟은% 강렬한 괴로움에 입을 누르면(자) 물을 배달시키러 부엌에 달렸다…
	ELSE
		PRINTFORML 엄청 매운의%DISHNAME%를 %타겟은% 시치미 뗀 얼굴로 밥 하고 있다…
	ENDIF

CASE DISH_RADICAL_격감
	IF TASTE_GIVEUP(TARGET, DISH_RADICAL_격감)
		PRINTFORML 외형달콤함의%DISHNAME%를 앞에 두고 %타겟은%
		IF TARGET == [[코코로]] && !TALENT:연모
			PRINTFORM 무표정하게
		ENDIF
		PRINTFORML 머리를 움켜 쥐고 있다…
	ELSE
;		IF TARGET == [[쇼]]
;			PRINTFORML %타겟은% 무엇인가 기쁜듯이%DISHNAME%를 먹고 있어…
;		ELSE
			PRINTFORML 달콤한%DISHNAME%를 %타겟은% 시치미 뗀 얼굴로 밥 하고 있다…
;		ENDIF
	ENDIF
CASE DISH_RADICAL_고추냉이
	IF TASTE_GIVEUP(TARGET, DISH_RADICAL_고추냉이)
		PRINTFORM %타겟은% 수북함의 고추냉이에 무심코
		IF TARGET == [[코코로]] && !TALENT:연모
			PRINTFORM 무표정하게
		ENDIF
		PRINTFORML 눈물을 흘리고 있다…
	ELSE
		PRINTFORML 고추냉이 수북함의%DISHNAME%를 %타겟은% 시치미 뗀 얼굴로 밥 하고 있다…
	ENDIF
CASE DISH_RADICAL_레몬
	IF TASTE_GIVEUP(TARGET, DISH_RADICAL_레몬)
		PRINTFORM %타겟은% 입을 움츠리면(자)
		IF TARGET == [[코코로]] && !TALENT:연모
			PRINTFORML 모의 면을 띄워 응시해 온다
		ELSE
			PRINTFORML 시큼한 듯이 눈을 좁혔다…
		ENDIF
	ELSE
		PRINTFORML 레몬의 시큼함을 마음에 두지 않고 %타겟은% %DISHNAME%를 밥 하고 있다…
	ENDIF
CASE DISH_DRAG_미약
	PRINTFORML %CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ?  들 # \@은 미약이 들어간%DISHNAME%를 평정했다
	PRINTFORML 뺨을 홍조 시키고 묘하게 뜨거운 한숨을 흘리고 있다…
CASE DISH_DRAG_이뇨제
	PRINTFORML %CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ?  들 # \@은 이뇨제가 들어간%DISHNAME%를 평정했다
	PRINTFORML 살짝 허벅지를 조이며, 머뭇머뭇 허리를 흔들고있다…
CASE DISH_DRAG_춘약
	PRINTFORML %CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ?  들 # \@은 춘약이 들어간%DISHNAME%를 평정했다
	PRINTFORML 황홀해 하는 표정으로 가만히 이쪽을 응시하고 있다…
CASE DISH_DRAG_수면제
	PRINTFORML %CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ?  들 # \@은 수면제가 들어간%DISHNAME%를 평정했다
ENDSELECT
[SKIPEND]