code:
;테위 구상을 참고에 만든 구상이 없는 캐릭터로 우후후중 호출하는 자동 신음 함수
;구상 소유에서도 임의로 대사에 끼울 수 있도록(듯이) ARGS 나름으로 괄호생략 할 수 있도록(듯이)해 보았다

@AUTO_AEGI(ARG,ARGS)
#DIM 신음강도
#DIM 신음회수

;제정신이 아니면 안 돼
SIF !SHIRAHU(ARG)
	RETURN 0
SIF !CFLAG:ARG:우후후
	RETURN 0
SIF GROUPMATCH(SELECTCOM, 19, 20, 81, 88, 89)
	RETURN 0

신음강도 = AEGI_LEVEL(ARG)

SIF !신음강도
	RETURN 0

SIF ARGS != "전괄호생략" && ARGS != "괄호생략"
	PRINT 「

SELECTCASE 신음강도
	CASE 1
		신음회수 = 2 + RAND:2
	CASE 2
		신음회수 = 2 + RAND:2 + RAND:3
	CASE 3
		신음회수 = 3 + RAND:2 + RAND:3 + RAND:3
	CASEELSE
		신음회수 = 3 + RAND:신음강도 + RAND:신음강도 + RAND:신음강도
ENDSELECT

FOR LOCAL,0,신음회수
	LOCALS:LOCAL = %AEGI_PATTERN(신음강도, ARG)%
	;전의 것과 함께라면 한 번만 재추첨
	SIF LOCAL > 0 && LOCALS:LOCAL == LOCALS:(LOCAL - 1)
		LOCALS:LOCAL = %AEGI_PATTERN(신음강도, ARG)%
	PRINTFORM %LOCALS:LOCAL%
	SIF !RAND:2 && 신음강도 <= 3
		PRINT …
	SIF 신음강도 >= 4 || (신음강도 == 3 && !RAND:4)
		CALL HEARTMARK(1)
	SIF LOCAL != 신음회수 - 1
		PRINTPLAIN
NEXT

SIF ARGS != "후괄호생략" && ARGS != "괄호생략"
	PRINTL 」

@AEGI_LEVEL(ARG)
#FUNCTION
LOCAL = CUP:ARG:쾌C + CUP:ARG:쾌V + CUP:ARG:쾌A + CUP:ARG:쾌B + CUP:ARG:쾌M

SELECTCASE LOCAL
	CASE 0
		RETURNF 0
	CASE IS < 2500
		RETURNF 1
	CASE IS < 5000
		RETURNF 2
	CASE IS < 10000
		RETURNF 3
	CASE IS < 30000
		RETURNF 4
	CASE IS < 50000
		RETURNF 5
	CASEELSE
		RETURNF 6
ENDSELECT

;바리에이션 및 신음 강도와 대사의 대응 상황은 개선의 여지가 있을 것이다
;
;>우선은 추잡하게 만져지고 있는 장소를 중얼거리도록 하자
;>대상의 CUP를 보기 위해서(때문에) 인수를 확장
@AEGI_PATTERN(신음강도, ARG)
#FUNCTIONS
#DIM 신음강도

;부위 중얼거려, 우선 20%로（부위 그 자체를 중얼거린다고는 말하지 않았다）
;부위마다의 CUP를 합계해 난수를 취해, C로부터 순서에 난수가 합계치 이내인가로 부위를 판정, 히트 하면 그 부위를 중얼거린다（신음 강도와 함락계 소질과 부위 감도를 맞추어 계산해 괜찮지만, 그것은 앞의 이야기）
;부위 함락은 감도 5가 조건인 것을 생각하면 좀 더 나누면서 「감각*30(최대 180)+1 d100」의 결과로 분기 시키는 것으로 바리에이션이 나오면 좋겠다
IF TCVAR:ARG:억지로 && 신음강도 < 3

ELSEIF RAND:100 < 20 && (CUP:ARG:쾌C + CUP:ARG:쾌V + CUP:ARG:쾌A + CUP:ARG:쾌B + CUP:ARG:쾌M)
	SELECTCASE RAND:(CUP:ARG:쾌C + CUP:ARG:쾌V + CUP:ARG:쾌A + CUP:ARG:쾌B + CUP:ARG:쾌M)
	;CUP를 합계해 난수를 취한다. 이것으로 CUP의 값에 응해 줍는 확률에 차이가 생긴다
	CASE IS < CUP:ARG:쾌C
		;클리, 육봉 어떻게 하지…（이후에 성별 판정 넣으면 분기는 가능한 것이긴 하다）
		LOCAL = MIN(ABL:ARG:C감각 * 20, 180) + RAND:100
		SIF CFLAG:ARG:오토신음 != 2
			LOCAL = MIN(LOCAL, 150)
		SELECTCASE LOCAL
		;감각＋난수에 의한 분기, 아래에 가는 만큼 저것입니다
		CASE 0 TO 80
			LOCALS = %TEXTR("앗…/싫엇/햐앙/응/")%
		CASE 81 TO 150
			LOCALS = %TEXTR("클리…/후아아/후앗/콩알/거기잇/")%
		CASE 151 TO 200
			LOCALS = %TEXTR("클리토리스/클리잇/콩알/클리는/콩/클리/")%
		CASEELSE
			LOCALS = %TEXTR("클리이/클리잇/콩/콩알에～/클리토리스/클리…/")%
		ENDSELECT

	CASE IS < CUP:ARG:쾌C + CUP:ARG:쾌V
		LOCAL = MIN(ABL:ARG:V감각 * 20, 180) + RAND:100
		SIF CFLAG:ARG:오토신음 != 2
			LOCAL = MIN(LOCAL, 150)
		;질, 고기 오나홀까지 말하게 하는 것은 조금 다르다고 생각했으므로 삼가했습니다
		SELECTCASE LOCAL
		;감각＋난수에 의한 분기, 아래에 가는 만큼 저것입니다
		CASE 0 TO 80
			LOCALS = %TEXTR("큿…/긋…/안됏/햐앙/거기잇/")%
		CASE 81 TO 150
			LOCALS = %TEXTR("안에…/딱딱해/흐아앙/아앙/그거어/온다/안에/")%
		CASE 151 TO 200
			LOCALS = %TEXTR("보지/보지/빨리/안에에/온닷/후…후아앗")%
		CASEELSE
			LOCALS = %TEXTR("보지이/히이익/딱딱한게/찌걱찌걱/흐아앙～/아네에/")%
		ENDSELECT

	CASE IS < CUP:ARG:쾌C + CUP:ARG:쾌V + CUP:ARG:쾌A
		;구멍, 아마 제일 까불며 떠들 수 있는 장소라고 생각한다（의 것으로 뒤는 맡겼다）
		LOCAL = MIN(ABL:ARG:A감각 * 20, 180) + RAND:100
		SIF CFLAG:ARG:오토신음 != 2
			LOCAL = MIN(LOCAL, 150)
		SELECTCASE LOCAL
		;감각＋난수에 의한 분기, 아래에 가는 만큼 저것입니다
		CASE 0 TO 80
			LOCALS = %TEXTR("응큿…/아긋…/싫엇/햐웃/온닷/거기/")%
		CASE 81 TO 150
			LOCALS = %TEXTR("엉덩이/히잇/거긴/엉덩이/다른/")%
		CASE 151 TO 200
			LOCALS = %TEXTR("엉덩이 구멍/엉덩이/엉덩이/갑자기/아긋/애널/구포구포/")%
		CASEELSE
			LOCALS = %TEXTR("엉덩이 구멍/애널～/엉덩잇/더러운 구멍/엉덩이 구멍/엉덩이잇/아네에/")%
		ENDSELECT

	CASE IS < CUP:ARG:쾌C + CUP:ARG:쾌V + CUP:ARG:쾌A + CUP:ARG:쾌B
		;가슴, 여러 가지 걸친다고 생각하면 않는 사람을 잊고 있었다(피츄)
		LOCAL = MIN(ABL:ARG:B감각 * 20, 180) + RAND:100
		SIF CFLAG:ARG:오토신음 != 2
			LOCAL = MIN(LOCAL, 150)
		SELECTCASE LOCAL
		;감각＋난수에 의한 분기, 아래에 가는 만큼 저것입니다
		CASE 0 TO 80
			LOCALS = %TEXTR("하앗…/잇…/싫엇/햐앙/냐앗/")%
		CASE 81 TO 150
			LOCALS = %TEXTR("가슴/젖꼭지/주물주물/꾸물꾸물/하아앙/")%
		CASE 151 TO 200
			LOCALS = %TEXTR("가슴/젖가슴/젖꼭지/만지작만지작/조물조물/오돌오돌/")%
		CASEELSE
			LOCALS = %TEXTR("가슴/젖가슴/젖꼭지/조물조물/오돌오돌/파삭파삭/주물주물/")%
		ENDSELECT

	CASEELSE
		LOCAL = MIN(ABL:ARG:M감각 * 20, 180) + RAND:100
		SIF CFLAG:ARG:오토신음 != 2
			LOCAL = MIN(LOCAL, 150)
		;썩어 실은 죽어 분기의 가능성이 높다고 한다. 커맨드주세요
		SELECTCASE LOCAL
		;감각＋난수에 의한 분기, 아래에 가는 만큼 저것입니다
		CASE 0 TO 80
			LOCALS = %TEXTR("응…/응후…/응흣/햣/응냣/")%
		CASE 81 TO 150
			LOCALS = %TEXTR("입/입/혀/쥬붓/하웃/츄릅/")%
		CASE 151 TO 200
			LOCALS = %TEXTR("입보지/혀/날름/안/츄/할짝/")%
		CASEELSE
			LOCALS = %TEXTR("입보지/입보지잇/날름날름/입보지/츄릅츄릅/할짝할짝/")%
		ENDSELECT

	ENDSELECT
	RETURNF LOCALS
ENDIF
IF TCVAR:ARG:억지로 && (신음강도 < 3 || (신음강도 == 3 && RAND:4))
	IF TALENT:ARG:담력 > 0 || TALENT:ARG:응답 > 0 || TALENT:ARG:자존심 > 0
		LOCALS = %TEXTR("그만둬어…/엄청못해/이제 됐잖아…/기분나빠…/손대지맛…/죽엇/젠자앙/구읏…")%
		SIF !RAND:10 && !TALENT:ARG:인간
			LOCALS = 인간 따위에게에
	ELSE
		LOCALS = %TEXTR("우읏…/구훗…/시러어…/그만해에…/싫어…/용서해줘어…/싫어어/히구읏")%
	ENDIF
ELSE
;통상 신음
SELECTCASE 신음강도
	CASE 1
		LOCALS = %TEXTR("앗…/읏…/응…/후웃…/하앗…/")%
	CASE 2
		LOCALS = %TEXTR("야앗/핫/후아아/후앗/후읏/쿠흣/쿠-읏/앗/아-앗/아앗/아앙/하앗/하-읏/히앗/히읏/히응/히얏/으읏/하웃/응핫/응큿")%
	CASEELSE
		IF RAND:신음강도 >= 3 && CFLAG:ARG:오토신음 == 2
			LOCALS = %TEXTR("아″앗/아″아아~~/우″아″앗/우″아″아″앗/으″앗/으″읏/으″으~~읏/으″흣/흐아″앗/흐아″~~앗/으″읏/으″웃/아히이/흐아″/흐에에/가앗/흐가앗/히~~잇/흐″흐읏/")%
		ELSEIF RAND:신음강도 >= 2
			LOCALS = %TEXTR("읏/으읏/히잇/히이잇/아히잇/하힛/굉장햇/갱장해/흐에에/~~읏/히아앗″앙/으응″읏/흐아아앙/")%
		ELSEIF !RAND:3
			LOCALS = %TEXTR("하읏/하흣/쿠응/아앗/햐앗/하앗/앗/")%
		ELSEIF !RAND:2
			LOCALS = %TEXTR("좋앗/좀 더어/히응/히-잇/응하앗/아앙/아아앙/기분 좋앗")%
		ELSE
			LOCALS = %TEXTR("야앗/후아아/후앗/후-읏/앗/아-읏/아앗/아앙/하앗/하-읏/히잇/히얏/응읏/하읏/응큿")%
		ENDIF
ENDSELECT
ENDIF
;랜덤으로 「읏」를 카타카나로 하는 것으로 바리에이션이 증가한 것처럼 착각시키는 고식적인 처리
IF !RAND:4 && 신음강도 >= 3
	LOCALS = %REPLACE(@"%LOCALS%","앗","아앗")%
	LOCALS = %REPLACE(@"%LOCALS%","앙","아앙")%
	LOCALS = %REPLACE(@"%LOCALS%","어","어엇")%
	LOCALS = %REPLACE(@"%LOCALS%","에","에엣")%
	LOCALS = %REPLACE(@"%LOCALS%","잇","이잇")%
	LOCALS = %REPLACE(@"%LOCALS%","읏","으읏")%
	LOCALS = %REPLACE(@"%LOCALS%","응","으응")%
	LOCALS = %REPLACE(@"%LOCALS%","큿","크읏")%
ENDIF
RETURNF LOCALS


code:
@SAMEROOM(ARG, ARG:1)
#FUNCTION
SIF ARG < 0 || ARG >= CHARANUM
	RETURNF 0
SIF ARG:1 < 0 || ARG:1 >= CHARANUM
	RETURNF 0
ARG:1 = ARG:1 ?  ARG:1 # TARGET
SIF CFLAG:ARG:현재위치 == CFLAG:(ARG:1):현재위치
	RETURNF 1

repo_name: purugi/eraTWKR

license: mit


code:
;-------------------------------------------------
;300, 회화
;-------------------------------------------------
;회화
@MESSAGE_COM300
IF TCVAR:회화불능
	RETURN
ENDIF

IF TCVAR:만취
	PRINTFORML %조교자는% %CALLNAME:TARGET%에게 말을 걸어봤지만, %타겟은% 혀가 안 돌아가 무슨 말을 하는지도 알아듣을 수 없었다
	PRINTFORML 거의 회화가 이루어지지 않았다…
ELSE
	PRINTFORM %조교자는% %타겟과%
	IF CFLAG:빡침 > 0
		IF TALENT:연인
			PRINTDATA
				DATAFORM 솔직해지지 못하는 태도로
				DATAFORM 살짝 오기를 내비치면서
				DATAFORM 일부러 사과를 뒷전에 치우고
				DATAFORM 눈치를 살피면서
				DATAFORM 마음속으론 사과하면서
			ENDDATA
		ELSE
			PRINTDATA
				DATAFORM 눈치를 살피면서
				DATAFORM 어색한 분위기로
				DATAFORM 켕기는 기분으로
				DATAFORM 일부러 떳떳하게
				DATAFORM 일방적으로
			ENDDATA
		ENDIF
	ELSEIF CFLAG:TARGET:20 > 0 && CFLAG:TARGET:350 == 49
		IF TALENT:연모
			PRINTDATA
				DATAFORM 서로 잔을 채우면서
				DATAFORM 웃음을 주고받으면서
				DATAFORM 크게 웃으면서
				DATAFORM 편한 분위기로
				DATAFORM 살짝 대담한 화제에 관해
			ENDDATA
		ELSEIF ABL:친밀 >= 5
			PRINTDATA
				DATAFORM 서로 잔을 채우면서
				DATAFORM 상대방을 신경 쓰면서
				DATAFORM 농담을 날리며 같이 웃으면서
				DATAFORM 편한 분위기로
				DATAFORM 일부러 거리를 유지하면서
			ENDDATA
		ELSE
			PRINTDATA
				DATAFORM 홀짝홀짝 마시면서
				DATAFORM 살짝 친근하게
				DATAFORM 교우를 다지고자
				DATAFORM 그 자리 분위기를 타고
				DATAFORM 평소와는 다른 분위기로
			ENDDATA
		ENDIF
	ELSEIF CFLAG:TARGET:동침중
		PRINTDATA
			DATAFORM 손깍지를 끼면서
			DATAFORM 다가붙어서
			DATAFORM 좀 부끄러운 듯이
			DATAFORM 포옹하면서
			DATAFORM 서로 장난치면서
			DATAFORM 뺨에 손을 얹고서
			DATAFORM 이불 속에서
		ENDDATA
	ELSEIF CHK_DATENOW(CFLAG:TARGET:데이트중)
		IF TALENT:연모
			PRINTDATA
				DATAFORM 데이트 장소에에 관해서
				DATAFORM 나란히 걸으면서
				DATAFORM 살짝 수줍음을 띠면서
				DATAFORM 서로 장난치면서
				DATAFORM 미소를 주고받으면서
			ENDDATA
		ELSE
			PRINTDATA
				DATAFORM 세상 사는
				DATAFORM 외출 장소에 관해서
				DATAFORM 실없는
				DATAFORM 대수롭잖은
				DATAFORM 걸으면서
			ENDDATA
		ENDIF
	ELSEIF TALENT:연모
		PRINTDATA
			DATAFORM 손깍지를 끼면서
			DATAFORM 곁에 붙어서
			DATAFORM 살짝 수줍음을 띠면서
			DATAFORM \@ TIME >= 360 && TIME <= 1080 ? 환한 낮에 # 고요한 밤에 \@
			DATAFORM 서로 장난치면서
			DATAFORM 미소를 주고받으면서
		ENDDATA
	ELSE
		PRINTDATA
			DATAFORM 세상 사는
			DATAFORM 두서없이
			DATAFORM 시답잖은
			DATAFORM 실없는
			DATAFORM 대수롭잖은
			DATAFORM 잠시
			DATAFORM 위를 보고
		ENDDATA
	ENDIF
	PRINTFORML 이야기를 나누었다
	IF TFLAG:193 == 1
		PRINTFORML 즐거운 시간이 흘렀다…
	ELSEIF TFLAG:193 == 2
		PRINTDATA
		;		DATAFORM 새로운 이변의
			DATAFORM 호들갑스런
			DATAFORM 비장의
			DATAFORM 생각치 못한
			DATAFORM 신경 쓰이던
		ENDDATA
		PRINTFORML 이야기에 %CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ? 들 # \@은 크게 분위기가 살았다…
	ELSEIF TFLAG:193 == -1
		PRINTFORML 회화가 끊기더니 어색한 분위기가 흘렀다…
	ELSEIF TFLAG:193 == -2
		PRINTFORML 이야기가 서로 맞물리질 않는다…
	ENDIF
ENDIF

;-------------------------------------------------
;301, 차를 탄다
;-------------------------------------------------
@MESSAGE_COM301
PRINTFORML %조교자는% \@ CFLAG:TARGET:행동 == 5 ? 휴식 겸 #  \@차를 타서 %CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ? 들 # \@에게 내었다…
IF TFLAG:193 == 1
	PRINTFORML %타겟과% %조교자는% 차를 마시면서 \@ CFLAG:TARGET:행동 == 5 ? 휴식 시간을 즐겼다 # 즐거운 한때를 보냈다 \@…
ELSEIF TFLAG:193 == -1
	PRINTFORML …아무래도 %CALLNAME:TARGET%의 입맛에 맞지 않았던 모양이다
ENDIF

;-------------------------------------------------
;302, 스킨십
;-------------------------------------------------
@MESSAGE_COM302
;IF CFLAG:MASTER:현재위치 == 13 || CFLAG:MASTER:현재위치 == 24 || CFLAG:MASTER:현재위치 == 30 || CFLAG:MASTER:현재위치 == 39
IF BATHCHECK(CFLAG:MASTER:현재위치) && IN_HOME(CFLAG:MASTER:현재위치)
	IF TALENT:연인 && !RAND:2
		PRINTFORML %조교자는% %CALLNAME:TARGET%에 등을 밀어주었다
	ELSE
		PRINTFORML %조교자는% %CALLNAME:TARGET%의 등을 밀었다
	ENDIF
ELSEIF CHK_DATENOW(CFLAG:TARGET:데이트중) && CFLAG:MASTER:현재위치 != OMANEKIBEYA()
	PRINTFORML %조교자는% %타겟과% \@ (CFLAG:TARGET:현재위치 % 100) % 10 ? 함께 걸으면서 # 가볍게 \@스킨십을 꾀했다
ELSEIF CFLAG:TARGET:350 == 49
	PRINTFORML %조교자는% 평상시보다 대담하게 %타겟과%의 스킨십을 꾀했다
ELSE
	PRINTFORML %조교자는% %타겟과%의 스킨십을 꾀했다
ENDIF
IF TFLAG:193 == 1
	PRINTFORML %타겟은% 무엇인가 기쁜듯이 하고 있다…
ELSEIF TFLAG:193 == -1
	PRINTFORML …아무래도, 좀 지나치게 허물없이 군 것 같다…
ENDIF
TFLAG:400 = RAND:2
SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
	CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:현재위치)

;-------------------------------------------------
;303, 사과한다
;-------------------------------------------------
@MESSAGE_COM303
IF TFLAG:193 == -2 || TFLAG:193 == 2
	PRINTFORML %조교자는% %CALLNAME:TARGET%에 무례를 사과하며 과자상자를 건네주었다
ELSE
	PRINTFORML %조교자는% %CALLNAME:TARGET%에 무례를 사과했다
ENDIF
IF TFLAG:193 == 1
	PRINTFORML %타겟은% 웃으며 용서해주었다…
ELSEIF TFLAG:193 == 2
	PRINTFORML %타겟은% 지난 일을 없었던 것으로 쳐주었다…
	PRINTFORMW %타겟은% 반발각인 LV1를 잃었다
ELSEIF TFLAG:193 == 0
	PRINTFORML %타겟은% 어쩔 수 없이 %조교자를% 허락했다…
ELSEIF TFLAG:193 == -2
	PRINTFORML %타겟은% 과자상자를 받아주지 않았다…
	PRINTFORML %타겟은% 아직 용서해주진 않을 모양이다…
ELSE
	IF TALENT:담력 < 0
		PRINTFORML 그러나%타겟은% 아직 울고 있다…
	ELSE
		PRINTFORML 그러나%타겟은% 아직 화가 나 있다…
	ENDIF
ENDIF

;-------------------------------------------------
;304, 일심부름
;-------------------------------------------------
@MESSAGE_COM304
IF FLAG:70
	IF CFLAG:TARGET:350 == 46
		PRINTFORML %조교자는% 꿈쩍도 하지 않는 %타겟과% 놀아 보았다
		PRINTL ……자신은 대체 뭘 하는 것일까
	ELSEIF CFLAG:TARGET:350 == 52
		PRINTFORML %조교자는% 멈추었을 때의 안에서 담소하고 있는 %CALLNAME:TARGET%에 『안다』라고 했다
		PRINTL ……자신은 피곤할까
	ELSEIF CFLAG:TARGET:350 == 41 || TCVAR:도울수없다 == 2
		PRINTFORML %조교자는% 시간을 멈춘 사이에 %CALLNAME:TARGET%의 일을 진행시켜두려고 했지만,
		PRINTFORML 잘 생각해보니 시간정지 중에는 할 수 없는 일이었다
	ELSE
		PRINTFORML %조교자는% 시간을 멈춘 사이에 %CALLNAME:TARGET%의 일을 진행시켜두었다
		IF TFLAG:193 == 1
			PRINTFORML 일이 상당히 진행된 것 같다…
		ELSEIF TFLAG:193 == -1
			PRINTFORML 그다지 도움이 된 것 같지가 않다…
		ENDIF
	ENDIF
ELSE
	IF CFLAG:TARGET:350 == 46
		PRINTFORML %조교자는% %CALLNAME:TARGET%의 놀이에 참가했다
	ELSEIF CFLAG:TARGET:350 == 52
		PRINTFORML %마스터는% 담소중의 %CALLNAME:TARGET%의 회화에 끼어들었다
		IF TFLAG:193 == 1
			IF TARGET == 102 && TALENT:17:연모
				PRINTFORML 『알았다』가, %마스터는% 필사적으로 『달라!』라고 부정하고 있다…
			ELSE
				PRINTFORML 아무래도 『알았다』같다…
			ENDIF
		ELSEIF TFLAG:193 == -1
			PRINTFORML 몰랐다…
		ENDIF
	ELSE
		PRINTFORML %조교자는% %CALLNAME:TARGET%의 일을 도왔다
		IF TFLAG:193 == 1
			PRINTFORML 매우 일이 진척된 것 같다…
		ELSEIF TFLAG:193 == -1
			PRINTFORML 그다지 도움이 되지 않은 모양이다…
		ENDIF
	ENDIF
ENDIF

;-------------------------------------------------
;305, 무릎베개받는다
;-------------------------------------------------
@MESSAGE_COM305
PRINTFORML %조교자는% %CALLNAME:TARGET%에 무릎베개받았다
IF TFLAG:193 == -5
	PRINTFORML %CALLNAME:MASTER%의 머리를 실린 %타겟은% 개구리가 밟아 부수어진 것 같은 소리를 높였다
	PRINTFORML %마스터는% 당황해 머리를 치웠다
ELSEIF ABL:TARGET:친밀 > 5
	SIF TALENT:TARGET:임신
		PRINTFORML %마스터는% 우리 아이를 숨어 %CALLNAME:TARGET%의 배에 귀를 맞혔다……
	PRINTFORML %타겟은% %CALLNAME:MASTER%의 얼굴을 들여다 봐 붐비면서 머리를 상냥하고 어루만지고 있는…
ELSEIF ABL:TARGET:친밀 > 2
	PRINTFORML %타겟은% %CALLNAME:MASTER%의 머리를 상냥하고 어루만지고 있는…
ELSE
	PRINTFORML %타겟은% 몸을 움츠려 가만히 하고 있다…
ENDIF
TFLAG:400 = RAND:2
SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
	CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:현재위치)

;-------------------------------------------------
;306, 배를 어루만진다
;-------------------------------------------------
@MESSAGE_COM306
PRINTFORM %조교자는%
IF TALENT:TARGET:임신
	PRINTFORM %CALLNAME:PLAYER%의 아이를 간직한
ELSEIF 충전율(TARGET, 1) > 30
	PRINT 충분히 정자를 심어둔
ENDIF
PRINTFORML %CALLNAME:TARGET%의 배를 어루만졌다
IF !FLAG:70
	IF TFLAG:193 == 1
		PRINTFORML %타겟은% %CALLNAME:MASTER%의 손에 자신의 손을 사랑스럽게 거듭했다
	ELSEIF TFLAG:193 == -1
		PRINTFORML %타겟은% 노골적으로 불쾌한 것 같다
	ELSE
		PRINTFORML %타겟은% 의아한 듯이 하고 있다…
	ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:현재위치)
ENDIF

;-------------------------------------------------
;307, 뺨을 집는다
;-------------------------------------------------
@MESSAGE_COM307
IF FLAG:70 == 1
	PRINTFORML %조교자는% %CALLNAME:TARGET%의 뺨에 손을 뻗었다…
	PRINTFORML 시간이 정지된 %타겟은% 무저항인 채 뺨을 집어지고 있다…
ELSEIF CFLAG:TARGET:수면
	PRINTFORML %조교자는% 자고 있는 %CALLNAME:TARGET%의 뺨을 손가락으로 집었다…
	PRINTFORML %타겟은% 싫은 듯이 얼굴을 돌렸다…
ELSE
	PRINTFORM %조교자는% \@ CFLAG:TARGET:동침중 ? 동침하는 # \@%CALLNAME:TARGET%의 뺨에 손을 뻗어
	IF TARGET == (NO:14)
		PRINTDATA
			DATAFORM 포근포근 했다…
			DATAFORM 말랑말랑 했다…
			DATAFORM 물컹물컹 했다…
			DATAFORM 구불구불 했다…
			DATAFORM 쭈욱쭈욱 했다…
		ENDDATA
	ELSE
		PRINTL 손가락으로 집었다…
	ENDIF
	IF TALENT:연모
		PRINTFORML %타겟은% 쑥스러운 듯한 표정을 띠면서 다시해 왔다…
	ELSEIF ABL:친밀 > 5
		PRINTFORML %CALLNAME:TARGET%도 흠칫흠칫 %CALLNAME:PLAYER%의 뺨에 손을 뻗었다…
	ELSEIF ABL:순종 >= 5
		PRINTFORML %타겟은% 쑥스러운 듯한 표정을 띠면서도 %CALLNAME:PLAYER%로 되는 대로 되어 있다…
	ELSE
		PRINTFORML %타겟은% 뺨을 부풀리더니 %CALLNAME:PLAYER%의 손을 치웠다…
	ENDIF
ENDIF

;-------------------------------------------------
;308, 뺨을 쿡쿡 찌른다
;-------------------------------------------------
@MESSAGE_COM308
IF CFLAG:TARGET:수면
	PRINTFORML %조교자는% 자고 있는 %CALLNAME:TARGET%의 뺨을 손가락으로 쿡쿡 찔렀다
	IF TFLAG:193 == 1
		PRINTFORML %타겟은% 기쁜듯이 미소짓고 있다…
	ELSEIF TFLAG:193 == -1
		PRINTFORML %타겟은% 싫은 듯이 얼굴을 돌렸다…
	ENDIF
ELSE
	PRINTFORML %조교자는% 동침하는 %CALLNAME:TARGET%의 뺨을 손가락으로 쿡쿡 찔렀다
	IF TFLAG:193 == 1
		PRINTFORML %타겟은% 히죽히죽 하면서 복수해왔다…
	ELSEIF TFLAG:193 == -1
		PRINTFORML %타겟은% 뺨을 부풀리더니 %CALLNAME:PLAYER%의 손을 치웠다…
	ENDIF
ENDIF

;-------------------------------------------------
;309, 머리를 어루만진다
;-------------------------------------------------
@MESSAGE_COM309
IF FLAG:70 == 1
	PRINTFORML %조교자는% %CALLNAME:TARGET%의 머리에 손을 뻗었다
	PRINTFORML 시간이 정지된 %타겟은% 무저항인 채 머리를 어루만지며 있다…
ELSEIF CHK_DATENOW(CFLAG:TARGET:데이트중) && CFLAG:MASTER:현재위치 != OMANEKIBEYA()
	PRINTFORML %조교자는% \@ DATE_REMAINTIME() ? 근처를 걷는 # 근처에 동행하는 \@%CALLNAME:TARGET%의 머리를 어루만진다
	SELECTCASE TFLAG:193
		CASE 1
			PRINTFORML %타겟은% 릴랙스 한 것 같은 표정을 띠며 눈을 좁혔다…
		CASE 0
			IF ABL:친밀 > 5
				PRINTFORML %타겟은% 쑥스러운 듯한 표정을 띠면서도 가만히 %CALLNAME:PLAYER%에 어루만질 수 있고 있다…
			ELSE
				PRINTFORML %타겟은% 얼굴을 붉히며 %CALLNAME:PLAYER%의 손을 뿌리쳤다…
			ENDIF
		CASE -1
			PRINTFORML …좀 지나치게 허물없이 군 것 같다
	ENDSELECT
ELSEIF CFLAG:TARGET:수면
	PRINTFORML %조교자는% 자고 있는 %CALLNAME:TARGET%의 머리를 상냥하게 어루만졌다
	IF ABL:친밀 > 5
		PRINTFORML %타겟은% 기분 좋은 듯이 웃고 있다…
	ELSE
		PRINTFORML %타겟은% 싫어하는 티도 없이 %CALLNAME:PLAYER%에 어루만질 수 있고 있다…
	ENDIF
ELSE
	PRINTFORML %조교자는% \@ CFLAG:TARGET:동침중 ? 동침하는 # 다정하게 \@ %CALLNAME:TARGET%의 머리를 어루만진다
	SELECTCASE TFLAG:193
		CASE 1
			PRINTFORML %타겟은% 릴랙스한 것 같은 표정을 띠며 눈을 좁혔다…
		CASE 0
			IF ABL:친밀 > 5
				PRINTFORML %타겟은% 쑥스러운 듯한 표정을 띠면서도 가만히 %CALLNAME:PLAYER%에 어루만질 수 있고 있다…
			ELSE
				PRINTFORML %타겟은% 얼굴을 붉히며 %CALLNAME:PLAYER%의 손을 뿌리쳤다…
			ENDIF
		CASE -1
			PRINTFORML …좀 지나치게 허물없이 군 것 같다
	ENDSELECT
ENDIF
;-------------------------------------------------
;331, 차를 넣는(약넣은)
;-------------------------------------------------
@MESSAGE_COM331
#DIM DYNAMIC 인원수A
#DIM DYNAMIC 인원수B
#DIM DYNAMIC 가감상태
VARSET LOCAL
VARSET LOCALS
IF TCVAR:TARGET:미약 == 210
	LOCALS = 미약
ELSEIF TCVAR:TARGET:이뇨제 == 210
	LOCALS = 이뇨제
ELSEIF TCVAR:TARGET:미약 == 210
	LOCALS = 미약
ELSEIF TCVAR:TARGET:수면제강도 == 2
	LOCALS = 수면제
ELSE
	LOCALS = 약
ENDIF
IF !RAND:2
	인원수A = CHARANUM - 1
	인원수B = 0
	가감상태 = -1
ELSE
	인원수A = 1
	인원수B = CHARANUM
	가감상태 = 1
ENDIF

PRINTFORML %조교자는% \@ CFLAG:TARGET:행동 == 5 ? 휴식겸 #  \@%LOCALS%들이 차를 엄라고 %CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ? 들 # \@에게 내밀었다…
FOR LOCAL, 인원수A, 인원수B, 가감상태
	SIF LOCAL == TARGET
		CONTINUE
	IF CFLAG:LOCAL:현재위치 == CFLAG:MASTER:현재위치 && (TCVAR:LOCAL:미약 == 210 || TCVAR:LOCAL:이뇨제 == 210 || TCVAR:LOCAL:춘약 == 210 || (TCVAR:LOCAL:수면제강도 == 2 && TCVAR:LOCAL:수면제차사용))
		PRINTFORML %CALLNAME:LOCAL%는 맛있을 것 같게 차를 마시고 있다
		LOCAL:1 ++
		IF LOCAL:1 > 4 && GET_TARGETNUM() > 5
			PRINTFORML 나눠주는데 힘에 부칠어 다른 사람들이 마시고 있어까지는 간파할 수 없다
			BREAK
		ENDIF
	ENDIF
	IF CFLAG:LOCAL:현재위치 == CFLAG:MASTER:현재위치 && (TCVAR:LOCAL:미약 != 210 && TCVAR:LOCAL:이뇨제 != 210 && TCVAR:LOCAL:춘약 != 210 && (TCVAR:LOCAL:수면제강도 != 2 || !TCVAR:LOCAL:수면제차사용))
		IF TCVAR:LOCAL:수면제강도 >= 2
			PRINTFORML %CALLNAME:LOCAL%는 하품을 하면서 차를 끊었다
		ELSE
			PRINTFORML %CALLNAME:LOCAL%는 고개를 갸웃해 차에 입을 대지 않았다
		ENDIF
		LOCAL:2 ++
		IF LOCAL:2 > 4 && GET_TARGETNUM() > 5
			PRINTFORML 나눠주는데 힘에 부칠어 다른 사람들이 마시고 있어까지는 간파할 수 없다
			BREAK
		ENDIF
	ENDIF
NEXT
PRINTL
IF TFLAG:193 == 1
	PRINTFORML %타겟과% %조교자는% 차를 마시면서\@ CFLAG:TARGET:행동 == 5 ? 휴식 시간 # 즐거운 한 때 \@를 보냈다…
ELSEIF TFLAG:193 == -1
	PRINTFORML %타겟은% 물건 묻고 싶어 하는 시선을 이쪽으로 향해 차에 입을 대지 않았다
ELSE
	PRINTFORML %타겟은% 맛있을 것 같게 차를 마시고 있다
ENDIF
LOCAL:1 = 0
PRINTL
FOR LOCAL, 인원수A, 인원수B, 가감상태
	IF CFLAG:LOCAL:현재위치 == CFLAG:MASTER:현재위치 && (TCVAR:LOCAL:미약 == 210 || TCVAR:LOCAL:이뇨제 == 210 || TCVAR:LOCAL:춘약 == 210)
		LOCAL:1 ++
		IF LOCAL:1 > 4 && GET_TARGETNUM() > 5
			PRINTFORML 다른 사람들의 모습까지는 간파할 수 없다
			BREAK
		ENDIF
		PRINTFORM %CALLNAME:LOCAL%는
		IF TCVAR:LOCAL:미약 == 210
			PRINTFORML 뺨을 홍조 시키고 묘하게 뜨거운 한숨을 흘리고 있다
		ELSEIF TCVAR:LOCAL:이뇨제 == 210
			PRINTFORML 살짝 허벅지에 되어, 머뭇머뭇 허리를 흔들고 있다
		ELSEIF TCVAR:LOCAL:춘약 == 210
			PRINTFORML 황홀해 하는 표정으로 가만히 이쪽을 응시하고 있다
		ELSEIF TCVAR:LOCAL:수면제강도 == 2
			PRINTFORML 졸음을 견디도록(듯이) 하품을 눌러 참고 있다
		ENDIF
	ENDIF
NEXT

;-------------------------------------------------
;333, 푸념을 (듣)묻는다
;-------------------------------------------------
@MESSAGE_COM333
PRINTFORML %CALLNAME:TARGET%의 푸념을 들어 주었다
SELECTCASE TFLAG:193
	CASE 1
		PRINTFORML 말하고 있는 동안에 또 분노 덥석 돌려주어 온 것 같다…
	CASE 2
		PRINTFORML 말하고 싶은 것을 해 침착한 것 같다
	CASE 3
		PRINTFORML 대충 토해낸%타겟은%, 얌전하게 (들)물어 준%CALLNAME:MASTER%에 예의를 말했다
	CASE 4
		PRINTFORML %타겟은% 더욱 더 불합리한 관련되는 방법을 해 왔다…
	CASE 5
		PRINTFORML 스스로 무슨 말을 하고 있을까 알고 있는지도 이상하다…
		PRINTFORML 술주정꾼의 이야기를 성실하게 (들)물어도 쓸데없는 같다
	CASE 6
		PRINTFORML %마스터가% 적당하게 맞장구를 치고 있으면(자), 무엇인가 급소에 빠졌는지%타겟은% 갑자기 웃기 시작했다
		PRINTFORML 자주(잘) 모르지만 즐거운 듯 해서 좋다로 하자
ENDSELECT

;-------------------------------------------------
;334, 잔을 주고 받는다
;-------------------------------------------------
@MESSAGE_COM334
IF CFLAG:TARGET:임신자각상태 == 1
	PRINTFORML %조교자는% 임신중에서 술을 앞에 두고 있는 %CALLNAME:TARGET%의 접시에 요리를 번창하면서, 함께 식사를 즐겼다
ELSEIF TALENT:TARGET:술내성 == -2
	PRINTFORML %조교자는% 술에 약한 %CALLNAME:TARGET%의 접시에 요리를 번창하면서, 함께 식사를 즐겼다
ELSE
	PRINTFORML %조교자는% %CALLNAME:TARGET%의 잔에 술을 따르면서, 함께 술을 마셨다
ENDIF
SELECTCASE TFLAG:193
	CASE 1
		PRINTFORML %타겟은% 매우 즐거운 듯 하다…
	CASE -1
		PRINTFORML 거의 회화가 계속되지 않았다…
ENDSELECT

;-------------------------------------------------
;335, 간호한다
;-------------------------------------------------
@MESSAGE_COM335
PRINTFORML %조교자는% %타겟을% 간호했다
SELECTCASE TFLAG:193
	CASE 1
		PRINTFORML %CALLNAME:TARGET%의 취기를 말해 느낌에 성일이 생긴 것 같다…
	CASE -1
		PRINTFORML 너무%CALLNAME:TARGET%의 도움은 되지 않았던 것 같다…
ENDSELECT

;-------------------------------------------------
;336, 무릎베개한다
;-------------------------------------------------
@MESSAGE_COM336
PRINTFORML %조교자는% %CALLNAME:TARGET%에 무릎베개

SELECTCASE ABL:TARGET:친밀
	CASE IS < 5
		PRINTFORML %타겟은% 기분이 나쁜 듯 하고 있다…
	CASE 5 TO 9
		PRINTFORML %타겟은% 부끄러운 것 같다……
	CASEELSE
		PRINTFORML %타겟은% 행복한 것 같다……
ENDSELECT

IF TFLAG:193 > 0
	PRINTFORML 기분 좋았던 것일까, %타겟은% 그대로 선잠 해 버렸다
	PRINTFORML %마스터는% %타겟이% 일어날 때까지 잠자는 얼굴을 바라보며 보냈다
ENDIF

TFLAG:400 = RAND:2
SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
	CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:현재위치)

;-------------------------------------------------
;352, 고백한다
;-------------------------------------------------
@MESSAGE_COM352
IF TFLAG:193
	PRINTFORML %조교자는% 결심을 굳히며 %CALLNAME:TARGET%에 연정을 전했다…
ELSE
	PRINTFORML %조교자는% %CALLNAME:TARGET%에 고백하려고 했지만 말이 입으로부터 나오지 않는다…
ENDIF

;-------------------------------------------------
;353, 장난 한다
;-------------------------------------------------
@MESSAGE_COM353
PRINTFORML %조교자는% %타겟을% 일으키지 않도록 천천히 가까워졌다…

;-------------------------------------------------
;354, 동침 한다
;-------------------------------------------------
@MESSAGE_COM354
PRINTFORML %조교자는% %CALLNAME:TARGET%의 근처에 누웠다…
IF CFLAG:TARGET:쇠약 || CFLAG:TARGET:초대
	PRINTFORML %타겟은% 작게 몸을 비틀었다…
ELSE
	PRINTFORML %타겟은% 눈을 뜨면(자) 기쁜듯이 %조교자를% 맞아들였다
ENDIF

;-------------------------------------------------
;355, 시간정지
;-------------------------------------------------
@MESSAGE_COM355
PRINTFORML 더 월드! 시간이여 멈춰라!

;-------------------------------------------------
;360, 몸을 맡긴다
;-------------------------------------------------
@MESSAGE_COM360
SELECTCASE TCVAR:20
;	;골짜기를 보인다
;	CASE 27
;		PRINTFORML %조교자는% %CALLNAME:TARGET%의 골짜기를 차분히 시간(視姦) 했다……
	;키스
	CASE 30
		PRINTFORML %조교자는% 웃음을 띠며 살짝 입술을 대어 %CALLNAME:TARGET%에 응했다……
	;앞에서 안겨든다
	CASE 32
		IF TALENT:TARGET:체형 > TALENT:PLAYER:체형
			PRINTFORML %조교자는% %CALLNAME:TARGET%의 골짜기에 얼굴을 파묻고,  달콤한 향기를 들이 마셨다……
		ELSE
			PRINTFORML %조교자는% 기대고 걸리는 %CALLNAME:TARGET%의 체온을 조용하게 감지했다……
		ENDIF
	;가슴을 비비게 한다
	CASE 33
		PRINTFORML %조교자는% %CALLNAME:TARGET%의 팔에 따라서, 이끌리도록(듯이) %OPPAI_DESCRIPTION(TARGET)%를 애무했다……
	;치마 안을 보인다
	CASE 35
;		PRINTFORML %조교자는% %CALLNAME:TARGET%의 형태가 좋은 엉덩이를 차분히 관상했다……
		IF TEQUIP:TARGET:50 == MASTER
			PRINTFORML %조교자는% 생생한 결합부를 보여지며,  한층 뜨겁고 고
		ELSEIF !EQUIP:하반신속옷2
			PRINTFORML %조교자는% 치마의 막으로부터 틈새 보이는 배덕적인 성기에 정부(제대로 고정) 가 되었다……
		ELSE
			PRINTFORML %조교자는% 당당히 과시해진 %PANTSNAME(EQUIP:하반신속옷2, TARGET)%를 차분히 관상했다……
		ENDIF
	;애원
	CASE 40 TO 49
		;실행 불가
;		PRINTFORML
	;수음, 가슴 애무
	CASE 50, 58
		PRINTFORML %조교자는% %타겟과% 서로 응시하면서 쾌락에 몸을 바쳤다……
	;펠라치오, 쿠니, 유두 들이마셔
	CASE 51, 59
		PRINTFORML %조교자는% 열심히 봉사하는 %CALLNAME:TARGET%의 모습을 보면서 쾌락에 몸을 바쳤다……
	;가랑이, 짝 맞추기 놀이, 젖 맞추어 삽입된다
	CASE 52, 74, 80, 83, 84, 90
		PRINTFORML %조교자는% %CALLNAME:TARGET%에 몸을 맡겨 둘이서 쾌락에 탐자리수……
	;파이즈리
	CASE 53
		PRINTFORML %조교자는% 파이즈리 하고 있는 %CALLNAME:TARGET%의 머리를 어루만져 주었다
		IF TALENT:TARGET:연모 || TALENT:TARGET:사모
			PRINTFORML %타겟은% 기쁜듯이 웃음을 띠며 보다 한층 격렬하게 가슴으로 봉사해 왔다……
		ELSEIF TALENT:TARGET:애욕 || TALENT:TARGET:섹프
			PRINTFORML %타겟은% 쓴웃음을 지으며, 보다 한층 격렬하게 가슴으로 괴롭히고라고 왔다……
		ELSE
			PRINTFORML %타겟은% 쑥스러운 듯하게 웃으면서 페니스를 취급이라고 있다……
		ENDIF
	;다리 코키
	CASE 54
		PRINTFORML %조교자는% %CALLNAME:TARGET%에 굴복 해 야무지지 못하게 허덕여소리를 질렀다……
	;애널 애무, 애널 빨고
	CASE 55, 56
		PRINTFORML %조교자는% 뺨을 붉혀 항문에 받는 쾌감을 즐겼다……
	;손가락 삽입
	CASE 57
		IF TALENT:PLAYER:처녀 && TALENT:PLAYER:처녀 != -1
			PRINTFORML %조교자는% 얼굴을 굳어지게 한이면서도 %CALLNAME:TARGET%에 몸을 맡겼다……
		ELSE
			PRINTFORML %조교자는% %타겟과% 서로 응시하면서 쾌락에 몸을 바쳤다……
		ENDIF
	;딥키스
	CASE 60
		PRINTFORML %조교자는% %CALLNAME:TARGET%에 응하도록(듯이) 혀를 얽히게 해라\@ TALENT:TARGET:연모 ? (이)라고, 사랑을 서로 확인한 …… # …… \@
	;쿠니 강제, 애널 봉사
	CASE 70, 72
		PRINTFORML %조교자는% %CALLNAME:TARGET%에 따라, 혀만을 사용해 봉사했다……
	;펠라치오 강제
	CASE 71
		PRINTFORML %조교자는% %CALLNAME:TARGET%에 따라, %TINKO(TARGET)%를 빨아 봉사했다……
	;
	CASE 73
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML %조교자는% %CALLNAME:TARGET%의 유방에 싸여 행복한 한때를 보냈다……
		CASE 1
			PRINTFORML %조교자는% %CALLNAME:TARGET%의 골짜기에 끼워져 달콤한 향기를 즐겼다……
		CASEELSE
			PRINTFORML %조교자는% %CALLNAME:TARGET%에 유방에 얼굴을 칠해 응석부렸다……
		ENDSELECT
	;강제 보지 애무
	CASE 76
		IF TALENT:TARGET:처녀
			PRINTFORML %조교자는% %CALLNAME:TARGET%에 따라, 상냥하고 손가락을 미끄러지게 하는……
		ELSE
			PRINTFORML %조교자는% %CALLNAME:TARGET%에 따라, 만족 갈 때까지 애무 해 주었다……
		ENDIF
	;젖을 들이마시게 한다
	CASE 77
		PRINTFORML %조교자는% %CALLNAME:TARGET%의 %NIPPLE_DESCRIPTION(TARGET)%의 스윽스윽 한 감촉을 맛보았다……
	;85=V삽입하는 87=A삽입하는 88=허리 모습 V 89=허리 모습 A
	CASE 85,87 TO 89
		PRINTFORML %타겟은% 필사적으로 허리를 털어 %CALLNAME:PLAYER%에 봉사하고 있다……
	;매우 수기 hold
	CASE 86
		PRINTFORML %조교자는% %CALLNAME:TARGET%에 안아 지친 채로 질육의 감촉을 즐기는 일로 했다
		PRINTFORML 근처에 물소리와 고기가 서로 부딪치는 소리와%CALLNAME:TARGET%의 허덕여 목소리가 울리고 있다……
	CASEELSE
		PRINTFORML %조교자는% %CALLNAME:TARGET%에 몸을 맡겼다……
ENDSELECT

;-------------------------------------------------
;361, 저항한다
;-------------------------------------------------
@MESSAGE_COM361
SELECTCASE TCVAR:20
	;키스
	CASE 30
		PRINTFORML %조교자는% 눈을 감아서 아무렇지도 않게 턱을 당겼다……
	;뒤로부터 안겨든, 앞에서 안겨든다
	CASE 31, 32
		PRINTFORML %조교자는% %타겟을% 풀어 버리려고 조 긁었다……
	;가슴을 비비게 한다
	CASE 33
		PRINTFORML %조교자는% 얼굴을 붉히며 팔을 당기는 (분)편에 힘을 썼다……
	;고간뒤지는, 수음
	CASE 34, 50
		PRINTFORML %조교자는% 쾌감을 참았다……
	;치마 안을 보인다
	CASE 35
		PRINTFORML %조교자는% 지루함 같은 것이 시선을 피했다……
	;뒤로부터 가슴 만지작 만지작, 가슴 애무, 유두 들이마셔
	CASE 36, 58, 59
		PRINTFORML %조교자는% 몸을 구군요들 키라고 저항했다……
	;애원
	CASE 40 TO 49
		IF BASE:PLAYER:기력 <= MAXBASE:PLAYER:기력 / 3 || BASE:PLAYER:정력 <= MAXBASE:PLAYER:정력 / 3
			PRINTFORML %조교자는% 지친 모습으로 몸을 당겼다……
		ELSEIF CFLAG:MASTER:성격경향 == 2
			PRINTFORML %조교자는% 그런 응은 안돼라고 맡겼다 ……
		ELSE
			PRINTFORML %조교자는% 참아 줘와 맡겼다 ……
		ENDIF
	;펠라치오, 쿠니
	CASE 51
		IF TALENT:MASTER:악취내성 < 0
			PRINTFORML %조교자는% 더럽기 때문에 그만두는 편이 좋으면 저항했다……
		ELSE
			PRINTFORML %조교자는% 필사적으로 쾌감을 참았다……
		ENDIF
	;가랑이, 짝 맞추기 놀이, 젖 맞추어 삽입되는, 삽입한다
	CASE 52, 74, 80, 83, 84, 85, 87 TO 89, 90
		PRINTFORML %조교자는% 필사적으로 쾌감을 참았다……
	;파이즈리
	CASE 53
		IF TALENT:TARGET:가슴사이즈 < 0 || ABL:TARGET:가슴 < 2
			PRINTFORML %조교자는% 노력해 파이즈리 하고 있는 %타겟을% 응시하면서 무리하지 않아 좋아와 쓴웃음 하면(자),
			PRINTFORM %타겟은%
			IF CFLAG:TARGET:성격경향 == 1 || CFLAG:TARGET:성격경향 == 3
				PRINTFORML 슬픈 듯이 눈물을 머금었다……
			ELSEIF CFLAG:TARGET:성격경향 == 2
				PRINTFORML 분한 듯이 봉사를 계속했다……
			ELSE
				PRINTFORML 미안한 듯 낙담했다……
			ENDIF
		ELSE
			PRINTFORML %조교자는% 얼굴을 뒤로 젖혀 쾌감을 참았다……
		ENDIF
	;다리 코키
	CASE 54
		PRINTFORML %조교자는% 이를 악물어 %CALLNAME:TARGET%에 저항의 시선을 향했다……
	;애널 애무, 애널 빨고
	CASE 55, 56
		IF TALENT:MASTER:악취내성 < 0
			PRINTFORML %조교자는% 더럽기 때문에 그만두는 편이 좋으면 저항했다……
		ELSEIF TALENT:MASTER:통각 > 0
			PRINTFORML %조교자는% 아픈 아프다고 아우성쳤다……
		ELSE
			PRINTFORML %조교자는% 필사적으로 쾌감을 참았다……
		ENDIF
	;손가락 삽입
	CASE 57
		IF TALENT:PLAYER:처녀 && TALENT:PLAYER:처녀 != -1
			PRINTFORML %조교자는% 손으로 비소를 숨기려고 필사적으로 저항했다……
		ELSE
			PRINTFORML %조교자는% 쾌감을 참았다……
		ENDIF
	;딥키스
	CASE 60
		IF TALENT:MASTER:악취내성 < 0
			PRINTFORML %조교자는% 보내져 오는 타액에 혐오감을 느끼고 씁쓸한 얼굴을 띄웠다……
		ELSE
			PRINTFORML %조교자는% 혀에 힘을 써 작게 저항했다……
		ENDIF
	;쿠니 강제
	CASE 70
		IF TALENT:MASTER:악취내성 < 0
			PRINTFORML %조교자는% 꽉 눌린%CALLNAME:TARGET%의 비소로부터 돌리려고 했다……
		ELSE
			PRINTFORML %조교자는% 기분이 타지 않고 더듬거리게 봉사했다……
		ENDIF
	;펠라치오 강제, 애널 봉사
	CASE 71, 72
		IF TALENT:MASTER:악취내성 < 0
			PRINTFORML %조교자는% 얼굴을 비뚤어지게 해 게웠다……
		ELSE
			PRINTFORML %조교자는% 기분이 타지 않고 더듬거리게 봉사했다……
		ENDIF
	;
	CASE 73
		IF TALENT:TARGET:가슴사이즈 < 0
			PRINTFORML %조교자는% 무리하지 않아 좋아와 쓴웃음 하면(자),
			PRINTFORM %타겟은%
			IF CFLAG:TARGET:성격경향 == 1 || CFLAG:TARGET:성격경향 == 3
				PRINTFORML 슬픈 듯이 눈물을 머금었다……
			ELSEIF CFLAG:TARGET:성격경향 == 2
				PRINTFORML 분한 듯이 가슴을 꽉 눌렀다……
			ELSE
				PRINTFORML 미안한 듯 낙담했다……
			ENDIF
		ELSE
			PRINTFORML %조교자는% 부들부들 얼굴을 기발한……
		ENDIF
	;타와시 세탁
	CASE 75
		PRINTFORML %조교자는% 지루함 같은 것이 했다……
	;강제 보지 애무
	CASE 76
		IF TALENT:TARGET:처녀
			PRINTFORML %조교자는% 소중히 하는 편이 좋으면 소극적으로 애무했다……
		ELSEIF TALENT:MASTER:악취내성 < 0
			PRINTFORML %조교자는% 애액이 붙는 것에 저항을 느껴 아무렇지도 않게 손가락을 벗어났다……
		ELSE
			PRINTFORML %조교자는% 기분이 타지 않고 더듬거리게 애무했다……
		ENDIF
	;젖을 들이마시게 한다
	CASE 77
		PRINTFORML %조교자는% 기분이 타지 않고 유두를 빠는 만큼 머물었다……
	;엉덩이 즈리
	CASE 78
		IF TALENT:MASTER:악취내성 < 0
			PRINTFORML %조교자는% 그쪽은 다르면(자) 저항했다……
		ELSE
			PRINTFORML %조교자는% 그쪽은 다르지 않을까 투덜대었다……
		ENDIF
	;매우 수기 hold
	CASE 86
		PRINTFORML 이키 그렇게 된%조교자는% 당황해 몸을 풀려고 하지만, 단단히잡아져 있어
		PRINTFORML 저항도 허무하고 「미안해요」라고 사과하면서 %CALLNAME:TARGET%에 정령이 착취되었다……
	CASEELSE
		PRINTFORML %조교자는% 저항했다……
ENDSELECT

;-------------------------------------------------
;363, 읽어 들려주고
;-------------------------------------------------
@MESSAGE_COM363
IF CFLAG:TARGET:동침중
	PRINTFORML %조교자는% \@ INROOM(CFLAG:MASTER:현재위치) == 2 ? 침대 # 이부자리 \@ 속에서 책을 읽어주었다…
;		SIF CFLAG:TARGET:수면
;			PRINTFORML %타겟은% 숨소리를 세우고 있다…
;ELSEIF CFLAG:MASTER:현재위치 == 9
ELSEIF TALENT:MASTER:체형 > TALENT:TARGET:체형 && INROOM(CFLAG:MASTER:현재위치)
	PRINTFORML %조교자는% %타겟을% 무릎 위로 실으면서 책을 읽어 주었다…
ELSE
	PRINTFORML %조교자는% %CALLNAME:TARGET%에 책을 읽어 주었다
ENDIF

;-------------------------------------------------
;364, 콩장작
;-------------------------------------------------
@MESSAGE_COM364
SIF TFLAG:193 > 1
	PRINT 모두
PRINTFORML %CALLNAME:TARGET%에 콩을 부딪쳤다
PRINTW …
PRINTW ……
PRINTW ………복이 온 것 같다!

;-------------------------------------------------
;368, 프로포즈한다
;-------------------------------------------------
@MESSAGE_COM368
IF TFLAG:193
	PRINTFORML %조교자는% 결심을 굳히며 %CALLNAME:TARGET%에 프로포즈했다.
ELSE
	PRINTFORML %조교자는% %CALLNAME:TARGET%에 프로포즈하려고 했지만 말이 입으로부터 나오지 않는다…
ENDIF


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
	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
IF TFLAG:194 >= 100
	LOCALS = %ITEMNAME:(TFLAG:194 - 100)%
	PRINTFORM %마스터는%
	SELECTCASE DAY:2
		CASE 1
			PRINTFORML %LOCALS%에 소금 후추로 밑간하고 나서 싱거운에 옷을 입어 까랑 하고 올렸다
		CASE 2
			PRINTFORML 깨끗이 내린 %LOCALS%를 확 뜨거운 물 긁어 차게 한 그릇에 담아, 매 고기를 곁들였다
		CASE 3
			PRINTFORML %LOCALS%를 생선회로 하고 나서 가볍게 쬐어, 쥠으로 해 특제의 소스를 발랐다
		CASE 4
			PRINTFORML 다시마 베이스의 심플한 국물로 야채와 함께%LOCALS%를 삶었다
	ENDSELECT
ENDIF
;-------------------------------------------------
;414, 식사를배달시킨다
;-------------------------------------------------
@MESSAGE_COM414
#DIM DYNAMIC EAT_ALONE
PRINTFORML %조사처리(CALLNAME:PLAYER,"는")% ＜%EX_DISHNAME()%＞%조사만처리(EX_DISHNAME(),"를")% 먹기로 했다
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)
IF !DISH_RADICAL()
	IF TARGET > 0
		SIF CFLAG:TARGET:미각기호 & TCVAR:MASTER:308
			PRINTFORML %타겟은% 이 맛내기를 마음에 든 것 같다
		IF TFLAG:193 == 1
			PRINTFORML %타겟과% %조교자는%＜%EX_DISHNAME()%＞를 먹으면서 즐거운 한 때를 보냈다…
		ELSEIF TFLAG:193 == -1
			PRINTFORML …아무래도 %타겟이% 입맛에 맞지 않았던 것 같다
		ENDIF
		RETURN
	ENDIF
ELSE
	IF TARGET > 0
		CALL MESSAGE_REACTION_TASTE
		RETURN
	ENDIF
	SELECTCASE DISH_RADICAL()
	CASE DISH_RADICAL_엄청매운
		PRINTFORML 강요해 오는 강렬한 매운맛에 %조교자가% 젓가락 장미구기절 했다…
	CASE DISH_RADICAL_격감
		PRINTFORML 지나친 달콤함에 %조교자는% 젓가락이 진행되지 않는다…
	CASE DISH_RADICAL_고추냉이
		PRINTFORML %조교자는% 코를 찔러 빠져요 녹의 향기를 즐겼다
	CASE DISH_RADICAL_레몬
		PRINTFORML 입 안에 퍼지는 시큼함에 %조교자는% 입을 다문다…
	ENDSELECT
ENDIF
;-------------------------------------------------
;415, 식사를대접한다
;-------------------------------------------------
@MESSAGE_COM415
#DIM DYNAMIC EAT_ALONE
SIF GET_TARGETNUM() <= 1
	EAT_ALONE = 1
PRINTFORML %조교자는% %CALLNAME:TARGET%\@ EAT_ALONE == 0 ?  들 # \@에게＜%EX_DISHNAME()%＞를 대접했다
IF TFLAG:193 == -2
	PRINTFORML %타겟은% 무엇인가 말하고 싶어 하는 것 같은 표정으로, ＜%EX_DISHNAME()%＞를 되물렸다
	RETURN
ENDIF

CALL MESSAGE_EAT_DISH(TARGET, EAT_ALONE)
IF !DISH_RADICAL()
	SIF CFLAG:TARGET:미각기호 & TCVAR:MASTER:308
		PRINTFORML %타겟은% 이 맛내기를 마음에 든 것 같다
	IF TFLAG:193 == 1
		PRINTFORML %타겟은% ＜%EX_DISHNAME()%＞를 평정해 만족한 것 같다…
	ELSEIF TFLAG:193 == -1
		PRINTFORML …아무래도 %타겟이% 입맛에 맞지 않았던 것 같다
	ENDIF
ELSE
	CALL MESSAGE_REACTION_TASTE
ENDIF

;-------------------------------------------------
;414/415, 공통, 각 요리마다의 지문
;-------------------------------------------------
@MESSAGE_EAT_DISH(CHARA, EAT_ALONE)
#DIM CHARA    ;주체가 되는 캐릭터
#DIM EAT_ALONE;먹는 것이 한사람이라면 1
SELECTCASE TFLAG:194
CASE 1
	PRINTL 이것은… 노팬티 샤브샤브다!
CASE 2
	PRINTL 이것은 정력이 붙는다!
CASEELSE
	SELECTCASE DISHNAME
	CASE "긴기 요리"
		PRINTW 「이것 무슨 요리?」
		PRINTW 「긴기 요리」
		PRINTW 「재료는?」
		PRINTW 「긴기」
	CASE "모짜렐라 치즈와 토마토의 샐러드"
		PRINTL 운 뭐 예~!　 ……이, 이것은~!이 맛원아~!전혀로 한 치즈에 토마토의 쥬시 부분이 얽혀 붙는 능숙함이다!
		PRINTL 치즈가 토마토를!토마토가 치즈를 닫는!“하모니”개-응입니까∼“맛의 조화”개-응입니까~!
		PRINTL 예를 들면 사이먼과 가판크루의 듀엣!　웃체에 대한 낭 장!　타카모리조웅의 원작에 대테츠야의“내일의 죠”!
	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 DISHSPOIL < 1 && DAY:2 == 4
			PRINTFORML %CALLNAME:CHARA%\@ EAT_ALONE == 0 ? 들은 # %조사만처리(CALLNAME:CHARA,"는")%\@ 김이 나는 후끈후끈한 %조사처리(DISHNAME,"을")% 덥석 물었다!
	CASE "샌드위치", "주먹밥", "스콘"
		PRINTFORML %CALLNAME:CHARA%\@ EAT_ALONE == 0 ? 들은 # %조사만처리(CALLNAME:CHARA,"는")%\@ %조사처리(DISHNAME,"를")% 집으면서 휴식했다.

	CASE "오세치요리"
		PRINTFORML %CALLNAME:CHARA%\@ EAT_ALONE == 0 ? 들은 # %조사만처리(CALLNAME:CHARA,"는")%\@ 화려더 처세의 재능 요리의 찬합을 쿡쿡 찌르면서 신년의 도래를 축하했다
	CASE "토시코시 소바"
		PRINTFORML %CALLNAME:CHARA%\@ EAT_ALONE == 0 ? 들은 # %조사만처리(CALLNAME:CHARA,"는")%\@ 소바를 훌쩍거리면서
		IF RAND:10 < 5
			PRINTFORML 오는 신년에 생각을 달렸다
		ELSE
			PRINTFORML 지나고 가는 작년을 되돌아 보았다
		ENDIF
	CASE "에호마키"
		PRINTFORML 근처에는 꼼질꼼질 김밥을 베어무는 소리만이 울리고 있다
	;야채 빼기
	CASE "콩나물 볶음"
		PRINTL 야채볶음을 만들었을 것이 콩나물만으로 되어 있다……
	CASE "나물없음"
		PRINTL 식초와 가다랑어로 만든 포만으로 중요한 푸른 채소가 없다……
	CASE "곱빼기밥"
		PRINTL 채소 절임이 없다! 저것이 없다고 밥이 진행되지 않는다!
	CASE "모짜렐라 치즈만의 샐러드"
		IF CHARA == [[나즈린]] || (CHARA == MASTER && FLAG:역극 == [[나즈린]])
			;는 엉성한 전용 분기! 하모니라는건 뭐야
			PRINTL 운 뭐아～있고!    ……이, 이것은～! 이 맛원아～! 시원시원한 치즈에 치즈의 쥬시 부분이 얽혀 붙는 능숙함이다!
			PRINTL 치즈가 치즈를! 치즈가 치즈를 닫는닷! “하모니”개-응입니까～“미의 조화”개-응입니까～!
			PRINTL 예를 들면 사이먼과 가판크루의 듀엣!   웃체에 대한 낭 장!   타카모리조웅의 원작에 대테츠야의“내일의 죠”!
		ELSE
			PRINTL 운 뭐아～있고!    ……이, 이것은～!
			PRINTL ……라고 생각했지만, 뭔가 잘 모르지만, 맛이 그다지 하지 않아? 이 치즈～
		ENDIF
	CASEELSE
		SIF STRFIND(DISHTASTE, "야채 빼기/") >= 0
			PRINTL 야채가 들어가 있지 않다……
	ENDSELECT
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
;-------------------------------------------------
;417, 낮잠잔다
;-------------------------------------------------
@MESSAGE_COM417
TFLAG:193 = RAND:6
IF TFLAG:194 == 2
	SELECTCASE TFLAG:193
		CASE 0,2,4
			PRINTFORML %조교자가% 일어나니 몸에서 이불이 미끄러져 떨어졌다
			PRINTFORML 누군가가 덮어준 것 같다
			PRINTFORML 배려에 감사하면서 %조교자는% 행동을 개시했다
		CASEELSE
			PRINTL 깨어나자 딱딱한 다다미의 감촉이 전해졌다
	ENDSELECT
ELSEIF TFLAG:194 == 1
	IF CFLAG:TARGET:동침중
		PRINTFORML %타겟은% %CALLNAME:PLAYER% 근처에서 고른 숨소리를 내고 있다…
	ELSE
		SELECTCASE TFLAG:193
			CASE 0
				PRINTFORML 어쩐지 몸이 무겁다……
				PRINTFORML 꼼짝 못하는 것에 의문을 느끼면서 눈을 뜨자
				PRINTFORM %타겟이% %조교자를% 꼭 껴안으면서 자고 있었다
				IF TARGET == 57 && !TALENT:연모
					PRINTFORML 노인과 불쑥 이 면이 흔들리고 있다
				ELSE
					PRINTFORML 그 표정은 온화하다
				ENDIF
				PRINTFORML 이대로는 동작을 할 수 없기 때문에 쓴웃음 하면서 %타겟을% 동요시켰다
			CASE 1
				PRINTFORML 눈을 뜬 %조교자는% 허벅지에 중량감을 느꼈다
				PRINTFORML %타겟이% %CALLNAME:PLAYER%의 몸을 베개 대신에 자고 있었다
				PRINTFORML %조교자가% 머리아래로부터 몸을 뽑아 내면(자)
				PRINTFORML 베개의 사용해 주인은 불만의 소리를 흘려 눈을 떴다
			CASE 2
				PRINTFORML 눈을 뜨면(자) 근처에 %타겟이% 앉아 있었다
				PRINTFORM 왠지 입술 가장자리를 누름
				IF TARGET == 57 && !TALENT:연모
					PRINTFORML 원숭이의 면에서 얼굴을 숨겼다
				ELSE
					PRINTFORML 얼굴을 붉히고 있다
				ENDIF
				PRINTFORML %조교자가% 인사하자 %CALLNAME:TARGET%벗겨 여기 없게 대답했다
			CASE 3
				PRINTFORML %조교자가% 눈을 뜨자 눈앞에는 %CALLNAME:TARGET%의 얼굴이 있다
				PRINTFORML 얼굴을 들여다보고 있었던 것이라고 눈치채는 것과 %타겟이% 획 비켜서고는 동시였다
				PRINTFORM %타겟은% 아무 일도 없는 것처럼 행동하려 하고 있었지만
				IF TARGET == 57 && !TALENT:연모
					PRINTFORML 원숭이와 시시구치 가면이 난무 하고 있다
				ELSE
					PRINTFORML 귀가 새빨갛다
				ENDIF
				PRINTFORML %조교자는% 생각지도 않게 질투나 버렸다
			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 %조교자는% 새전을 넣어 팬티님이 소원을 했다
	SIF FLAG:발원내용 <= 10 || FLAG:발원내용 == 57 || FLAG:발원내용 == 71 || FLAG:발원내용 == FLAG:더부살이캐릭터
		PRINTFORML %CALLNAME:(FLAG:발원내용)%과의 사이가 깊어진 것 같았다…
	SIF FLAG:발원내용 >= 11 && FLAG:발원내용 <= CHARANUM && FLAG:발원내용 != 57 && FLAG:발원내용 != 71 && FLAG:발원내용 != FLAG:더부살이캐릭터
		PRINTFORML 어쩐지 내일은 %CALLNAME:(FLAG:발원내용)%를 만날 수 있을 것 같은 생각이 든다…
	SIF FLAG:발원내용 == 200
		PRINTL 어쩐지 갑자기 불끈불끈 해 왔다…
	SIF FLAG:발원내용 == 201
		PRINTL 심 온화하게 되어, 번뇌가 약해진 것을 느꼈다
	SIF FLAG:발원내용 == 202
		PRINTL 지금이라면, 팬티가 몇 장이나 손에 들어 올 생각이 든다…!
	SIF FLAG:발원내용 == 203
		CALL PINK_WIND
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

;-------------------------------------------------
;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 참배길, 10
			PRINTDATAL
				DATAFORM 참배길저편을 바라보면서 시간을 보냈다…
				DATAFORM 참배길의 돌계단에 앉아, 흐르고 갈 시간을 보냈다…
				DATAFORM 신사로부터 들리는 소란을 들으면서 시간이 흐르는 것을 느끼고 있었다…
				DATAFORM 지금 참배길을 횡단한 생물이 왜 그러는 걸까 골똘히 생각하고 있었다…
				DATAFORM 몇 번 세어도 수가 다른 돌계단의 단수를 세고 있었다…
			ENDDATA
		CASE 지장길, 101
			PRINTDATAL
				DATAFORM 몇개의 지장에 참배 해 시간을 보냈다…
				DATAFORM 지장의 주위에 올릴 수 있던 많은 풍차를 바라보고 있는 동안에 시간이 지나 갔다…
				DATAFORM 지장에 가러 온 노파와 다른사랑도 아닌 잡담을 하며 보냈다…
				DATAFORM 명련사 쪽을 바라보면서 시간이 흐르는 것을 즐겼다…
				DATAFORM 지금 이 대로를 통과했던 것이 누군가 다시 생각하기 위해서(때문에) 골똘히 생각했다…
			ENDDATA
		CASE 광장, 201
			PRINTDATAL
				DATAFORM 광장으로부터 들리는 소란을 (들)물으면서 시간을 보냈다…
				DATAFORM 대로를 왕래하는 사람들을 곁눈질에 시간을 보냈다…
				DATAFORM 혼잡안인데 혼자서 있는 고독을 느끼고 있었다…
				DATAFORM 광장에 누군가 오는 것을 기대하면서 조용하게 한사람 기다리고 있었다…
				DATAFORM 조금 전 얘기해 왔던 것이 누구였는지를 다시 생각하지 못하고, 괴로워한 시간이 흘렀다…
			ENDDATA
		CASE 안개의호수, 301
			PRINTDATAL
				DATAFORM 문의 저 편에 세워지는 홍마관을 바라보면서 시간을 보냈다…
				DATAFORM 호면을 바라보면서 조용한 한 때를 보냈다…
				DATAFORM 우뚝 솟는 요괴의 산을 바라보고 있는 동안에 시간이 지나 있었다…
				DATAFORM 수면에 사람의 그림자 같은 것을 인정했지만, 드물지 않기 때문에 신경쓰지 않기로 했다…
				DATAFORM 안개의 저쪽에서 영향을 주는 기억에 없는 소리를 들은 것 같은 생각이 들었지만 기분의 소위였다…
			ENDDATA
		CASE 죽림입구, 447
			PRINTDATAL
				DATAFORM 죽순을 캐면서 시간을 보낸다…\@DAY:2 == 1 ?  # 응, 죽순?  \@
				DATAFORM 울창하게 우거지는 대나무가 울리는 엽 소리를 들으면서 잠깐때를 보냈다…
				DATAFORM 안쪽으로부터 들리는 토끼들의 소란을 즐겼다…
				DATAFORM 죽림안을 감도는 안개를 관찰해 잠깐때를 보냈다…
				DATAFORM 버섯을 나누어 나는 죽순이나 죽순으로부터 성장하는 버섯을 관찰하기로 했다. 이런 곳에까지 전화가…
			ENDDATA
		CASE 숲의입구, 501
			PRINTDATAL
				DATAFORM 향림당 안을 멀리서 바라보면서 시간을 보냈다…
				DATAFORM 숲속에 우뚝 솟는 큰 나무를 올려보면서 천천히 시간이 흐르는 것을 느끼고 있었다…
				DATAFORM 시간보내기에 요기 넘치는 숲의 모습을 관찰을 하기로 했다…
				DATAFORM 길가에 난 이상한 버섯을 먹을 수 있는지 고민해, 눈치채면 때가 흘러 버렸다…
				DATAFORM 버섯을 나누어 나는 죽순이나 죽순으로부터 성장하는 버섯을 관찰하기로 했다. 이런 곳에까지 전화가…
			ENDDATA
		CASE 중유의길
			PRINTDATAL
				DATAFORM 강의 건너편에 세워지는 백옥루를 바라봐 시간을 보내기로 했다…
				DATAFORM 삼도천의 인도배를 보면서 천천히 했을 때를 보냈다…
				DATAFORM 강의 흐름을 (들)물으면서, 당분간 시간을 보냈다…
				DATAFORM 강을 건너는 유령의 수를 세고 있는 동안에, 눈치채면 상당한 시간이 지난 것 같다…
				DATAFORM 유령에 함께 강을 건너도록(듯이) 권해졌지만 거절하고 있는 동안에 시간이 지났다…
			ENDDATA
		CASE 산록의수해, 701
			PRINTDATAL
				DATAFORM 나무들의 틈새로부터 보이는 산정을 바라봐 시간을 보냈다…
				DATAFORM 근처의 나무들을 관찰하고 있는 동안에 시간이 흘렀다…
				DATAFORM 정적안에 영향을 주는 나무들의 웅성거림을 들으면서 시간을 보냈다…
				DATAFORM 아무렇지도 않고 귀를 끝내면(자), 안쪽의 연못으로부터 들려 오는지, 개구리의 노래가…들려 와!(놀란 나머지 잠깐 어이없다)
				DATAFORM 수해의 깊은 곳보다 불가사의한 신음 목소리가 들려 오지만 신경쓰지 않게 했다.
			ENDDATA
		CASE 구천의폭포
			PRINTDATAL
				DATAFORM 폭포의 소리를 들으면서 잠깐 쯤의 경치를 바라보고 있었다…
				DATAFORM 산정에 우뚝 솟는 모리야신사를 바라봐 시간을 보냈다…
				DATAFORM 산 위에서 산기슭의 경치를 바라보고 있는 동안에 시간이 지난 것 같다…
				DATAFORM 산정의 머나먼 위에 바라보는 천계를(그킥)…목이 아파져 잠깐 그 자리에 웅크리고 있었다…
				DATAFORM 롱호로 물보라를 올리는 물을 보고 있으면서  잠깐시를 보냈다…
			ENDDATA
		CASE 환상풍혈, 948
			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%의 지도는 매우 도움이 된다

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

SELECTCASE TFLAG:193
	CASE 0
		PRINTFORML 아무것도 발견되지 않았다……
	CASEELSE
		SETCOLOR 0x00FF00
		PRINTFORM %조사처리(ITEMNAME:(TFLAG:193),"가")%
		IF TFLAG:194 > 1
			PRINTFORM {TFLAG:194}
		ELSE
			PRINTFORM 1
		ENDIF
		IF GROUPMATCH(TFLAG:193, 706)
			PRINTFORM 마리
		ELSE
			PRINTFORM 개
		ENDIF
		PRINTFORML 발견되었다!
		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

;-------------------------------------------------
;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 %마스터는% 조금 슬퍼졌다


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, 스즈나안
;-------------------------------------------------
@MESSAGE_COM620
IF TFLAG:193 == 1
	PRINTL 「고마워요 있었습니다」
	PRINTL 「대출 기간은 일주일간입니다」
ENDIF

;-------------------------------------------------
;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
	LOCALS = 우그이
CASE 2
	LOCALS = 아마고
CASE 3
	LOCALS = 산천어
CASE 4
	LOCALS = 이와나
CASE 11
	LOCALS = 술
CASE 12
	LOCALS = 빙어
CASE 13
	LOCALS = 니지마스
CASE 14
	LOCALS = 칠성장어
CASE 15
	LOCALS = 캄르치
CASE 21
	LOCALS = 로터
CASEELSE
	LOCALS = %ITEMNAME:(TFLAG:193)%
ENDSELECT

IF TFLAG:194 > 1000
	PRINTFORML %CALLNAME:CHARA%가%LOCALS%를 낚시했다!
ELSE
	PRINTFORML %LOCALS%가 잡혔다!
ENDIF
;-------------------------------------------------
;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, 맛내기 반응
;-------------------------------------------------
@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