code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;일상계 커맨드
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;300, 회화
;TFLAG:193(1=대성공 0=성공 -1=실패 -2=대실패(TARGET가 MASTER보다 교양이 4이상 높다)
;TCVAR:302(0=회화 가능 1>=비연모시 회화불능)
;MARK:반발각인(3이상=회화불능)(4이상은 버그
;TCVAR:만취(1=통상 성공 or대실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_300
;현재지가 목욕탕에서 연모 or애욕으로 제정신 때는 체모 지정 함수를 호출한다
IF BATHROOM() && (TALENT:연모 || TALENT:애욕) && SHIRAHU(TARGET)
	CALL K78_HAIR_TREATMENT
	;체모 관계의 이벤트를 선택했을 경우는 통상의 회화 말없음
	SIF RESULT == 1
		RETURN 1
ENDIF
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_300_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_300_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:빡침
		PRINTFORMDW 화낸 %타겟은% 외면하고 있다.
	ELSEIF TCVAR:만취
		IF TALENT:기분 >= 0
			PRINTFORMDL 기분이 좋은 것인지%CALLNAME:TARGET%브러시등 땅강아지와 웃고 있다.
			PRINTFORMW 「뭐야?  없어요―　괘앤찮아 괘앤찮아」
		ELSE
			PRINTFORML 「조금 , 나의 이야기해 (듣)묻고 있는?  (들)물으세요도 참!」
			PRINTFORMDW 아무래도 좋지 않은 취하는 방법을 하고 있는 것 같다.
		ENDIF
	ELSE
		SELECTCASE TFLAG:193
		CASE 1
			IF ( TALENT:연모 || TALENT:애욕 ) && RAND:3
				SELECTCASE RAND:2
				CASE 1
					CALL K78_HPH_PRINT,@"「밥을 가득 먹을 수 있어, 이렇게 해 당신과 함께 있을 수 있는…… 나는 행운아…HPH」","W"
				CASEELSE
					PRINTFORMDL %마스터는% %CALLNAME:TARGET%의 아름다움을 칭찬했다.
					CALL K78_HPH_PRINT,@"「이제(벌써) 치켜세워도 굳이 나오지 않아요 HPH」","L"
					SIF CFLAG:기정사실 & 2
						CALL K78_HPH_PRINT,@"「그렇지만, 오늘 밤은 조금 서비스 해 주어도 괜찮을까 HPH」","L"
					WAIT
				ENDSELECT
			ELSE
				PRINTFORML 「아하하♪ %마스터는% 정말 재미있네요」
				PRINTFORMDW 매우 받은 것 같다.
			ENDIF
		CASE 0
			;날씨의 화제
			IF GET_MAPNAME(GET_MAPID(CFLAG:MASTER:현재위치)) != "지저" && !RAND:5
				SELECTCASE TIME:5
				;맑음
				CASE 0
					;19시 이후
					IF TIME:0 >= 1140
						PRINTFORMW 「오늘은 별이 매우 예뻐」
					;동
					ELSEIF DAY:2 == 4
						;7~17시
						IF BETWEENTIME(420,1020)
							PRINTFORMW 「날이 나오고 있는 덕분에 보내기 쉬워요」
						ELSE
							PRINTFORMW 「겨울 개이고의 건조하게는 주의야」
						ENDIF
					ELSE
						PRINTFORMW 「응, 좋은 날씨. 작물도 부쩍부쩍 자라면(자) 좋아요」
					ENDIF
				;쾌청
				CASE 1
					;하
					IF DAY:2 == 2
						;기상~7시
						IF BETWEENTIME(CFLAG:기상시간, 420)
							PRINTFORMW 「오늘은 더워질 것 같기 때문에, 시원한 사이에 일을 정리한 (분)편이 좋아요」
						;7~19시
						ELSEIF BETWEENTIME(420,1140)
							PRINTFORMW 「햇빛이 강하네요―. 더위로 당하지 않게 조심하지 않으면 안돼요」
						;19시 이후
						ELSE
							PRINTFORMW 「날이 가라앉아도 아직 덥고 이상하게 되어버린다」
						ENDIF
					;동
					ELSEIF DAY:2 == 4
						PRINTFORMW 「날씨는 매우 좋지만, 서리가 내리지 않아서 걱정이구나」
					ELSE
						PRINTFORMW 「구름 하나 없는 좋은 날씨군요. 기분이 좋아요」
					ENDIF
				;박담, 흐림
				CASE 2,3
					;흐림으로 19시 이후
					IF TIME:5 == 3 && TIME:0 >= 1140
						PRINTFORMW 「오늘은 흐리고 있어 별이 자주(잘) 안보이는 것이 유감…」
					;겨울의 기상~17시
					ELSEIF DAY:2 == 4 && BETWEENTIME(CFLAG:기상시간, 1020)
						PRINTFORMW 「춥네요. 해님을 나올 수 없을까」
					;여름의 기상~17시
					ELSEIF DAY:2 == 2 && BETWEENTIME(CFLAG:기상시간, 1020)
						PRINTFORMW 「구름을 나올 수 있었어요. 농사일에 좋은 히요(리)」
					;흐림
					ELSEIF TIME:5 == 3
						PRINTFORMW 「구름이 진하네요. 비가 내릴지도」
					ELSE
						PRINTFORM 「저 구름,
						SELECTCASE RAND:4
						CASE 1
							PRINTFORM 죽순
						CASE 2
							PRINTFORM 나스비
						CASE 3
							PRINTFORM 주먹밥
						CASEELSE
							PRINTFORM 군고구마
						ENDSELECT
						PRINTFORMW 같고 맛있을 것 같다…」
					ENDIF
				;비, 안개비, 진눈깨비
				CASE 4,6,12
					;하
					IF DAY:2 == 2
						PRINTFORMW 「푹푹쪄 기분 나쁘다…」
					ELSE
						PRINTFORMW 「날씨가 나쁘네요. 집에서 빈둥거리는 것도 좋을지도」
					ENDIF
				;큰 비
				CASE 5
					;태풍
					IF FLAG:이상기상 == 9
						PRINTFORMW 「심한 바람과 비…… 작물은 괜찮은가…」
					ELSE
						PRINTFORMW 「대단한 비. 돌아 다니지 않는 것이 좋아요」
					ENDIF
				;무
				CASE 7
					PRINTFORMW 「안개가 깊어요. 나간다면 조심해」
				;눈, 가루눈, 안개눈
				CASE 8,10,11
					PRINTFORMW 「눈이 내려. 추울 것이예요」
				;눈보라, 싸라기눈
				CASE 9,13
					PRINTFORMW 「심한 날씨군요―. 오늘은 집에 있던 (분)편이 좋아요」
				ENDSELECT
			;계절의 화제
			ELSEIF RAND:2
				SELECTCASE DAY:2
				CASE 1
					SELECTCASE RAND:4
					CASE 1
						PRINTFORMW 「봄이라고 하면 죽순이군요. 죽순 밥♪ 죽순 밥♪」
					CASE 2
						PRINTFORML 「산채의 계절이야. 태엽, 등의 싹, 머위의 새순, 야선」
						PRINTFORMW 「……술이 마시고 싶어져 와 버렸다」
					CASE 3
						PRINTFORMW 「봄이 되면(자) 마음이 두근두근 해 오지 않아?」
					CASEELSE
						PRINTFORMW 「이제 모심기군요. 「묘반작」이라는 정도 이 시기의모종 만들기가 소중해」
					ENDSELECT
				CASE 2
					SELECTCASE RAND:4
					CASE 1
						PRINTFORML 「여름이라고 하면, 토마토, 가지, 오이, 피망은의 맛있는 야채!」
						PRINTFORMW 「건강에도 괜찮으니까 확실히 섭취하지 않으면 안 돼요」
					CASE 2
						PRINTFORML 「여름의 논의 일은 풀 취해, 벌레의 구제, 물의 관리군요」
						PRINTFORMW 「두꺼워서 큰 일이지만, 두꺼움도 냉해보다는 훨씬 좋다 것」
					CASE 3
						PRINTFORMW 「두껍네요―. 빙수에서도 먹고 싶어요」
					CASEELSE
						PRINTFORMW 「여름은 태풍에 주의야. 하루종일 집에 갇히게 되어버리는 야」
					ENDSELECT
				CASE 3
					SELECTCASE RAND:4
					CASE 1
						PRINTFORML 「완전히 가을이군요. 이름에 해 지는, 나의 계절이야」
						PRINTFORMDW %타겟은% 가슴을 붙이며 있다.
					CASE 2
						PRINTFORML 「수확의 시기군요. 올해도 그 해 맏물의 쌀을 가득 먹을 수 있어요」
						PRINTFORMDW %타겟은% 싱글벙글(말랑말랑) 얼굴이다.
					CASE 3
						PRINTFORMW 「황금빛의 이나호 라도 단풍에 뒤떨어지지 않고 아름답다고 생각하지 않아?」
					CASEELSE
						PRINTFORMW 「가을이 순이라고 하면 버섯. 볶아 좋아, 올려 좋아, 익혀 좋아 데이트라고도 편리하게 여겨요」
					ENDSELECT
				CASE 4
					SELECTCASE RAND:4
					CASE 1
						PRINTFORMW 「 겨울은 기분이 우울해. 빨리 봄이 오지 않을까」
					CASE 2
						PRINTFORMW 「추운 겨울에는 군고구마. 달고 좋은 냄새로 너무 좋아♪」
					CASE 3
						PRINTFORMW 「―, 추워요. 코타츠(테이블 이불 난로)에 쭉 들어가 있고 싶다…」
					CASEELSE
						PRINTFORMW 「 겨울은 역시 근채군요. 맛있는 조림으로 해 만난 마리 싶어요」
					ENDSELECT
				ENDSELECT
			;그 외의화제
			ELSE
				IF ( TALENT:연모 || TALENT:애욕 ) && RAND:2
					SELECTCASE RAND:4
					CASE 1
						PRINTFORML 「저기, 당신이 좋아하는 음식 이라고에가 있어?」
						PRINTFORMDL %CALLNAME:TARGET%에 갑작스럽게 질문받았다.
						PRINTFORMW 「흐응, 자 그 재료를 길러 볼까」
					CASE 2
						PRINTFORMW 「응?  이 냄새?  후훗, 풍요의 신특제의 향수야♪」
					CASE 3
						PRINTFORML 「으로로 저기, 일전에 재미있는 일이 있었어요」
						PRINTFORMDW %타겟은% 몸이 접촉하는 만큼 가까운 시일내에에 들러 와 즐거운 듯이 이야기를 계속했다.
					CASEELSE
						PRINTFORMW 「아, 벌써 이런 시간. 당신과 말하고 있으면(자) 시간이 곧 지나요」
					ENDSELECT
				ELSE
					IF FLAG:역극 != 77 && !RAND:4
						PRINTFORML 「단풍는 먹을 수 없지 않다고 언니(누나)에 말하면(자), 단풍의 튀김이 있다 라고 돌려주어졌어」
						PRINTFORMW 「어이 강요하고 일까나?」
					ELSEIF FLAG:역극 != 77 && !RAND:3
						PRINTFORML 「있잖아, 언니(누나)도 참 %TEXTR("대단히/심한/재미있다")%의 것. 일전에라니……」
						PRINTFORMDW %CALLNAME:77%의 이야기를 하는 %타겟은% 매우 즐거운 듯 하다.
					ELSEIF RAND:2
						PRINTFORML 「응%CALLNAME:MASTER%, 어느 계절이 가장 좋아해?」
						PRINTFORMDW 가을이라고 대답하지 않을 수 없는 분위기다.
					ELSE
						;농민이 아니고 원예용품을 갖고 있지 않다
						IF !FLAG:지주 && !ITEM:원예용품일식
							PRINTFORMW 「흙사리는 좋아요―. 당신도 텃밭 해 보면(자)?」
						ELSE
							PRINTFORMW 「밭의 상태는 어때?  풍작에는 나날의 손질 있을 뿐」
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		CASE -1
			PRINTFORML 「흐응…」
			PRINTFORMDW %CALLNAME:TARGET%에는 흥미가 없는 화제였던 것 같다.
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;301, 차를넣는
;TFLAG:193(1=대성공 0=성공 -1=실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_301
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_301_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_301_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		SELECTCASE TFLAG:193
		CASE 1
			PRINTFORMW 「굉장히 맛있어요. 엄분 가르쳐주었으면 좋겠어 정도」
		CASE 0
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「고마워요. 정확히 목이 말랐어」
			CASE 2
				PRINTFORMW 「어이 주위원이군요 이 차. 나도 차를 재배해 볼까」
			CASEELSE
				PRINTFORMW 「차 받아에 군고구마라도 먹고 싶어져요」
			ENDSELECT
		CASE -1
			PRINTFORMW 「……떫다」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;302, 스킨십
;TFLAG:193(1=대성공 0=성공 -1=실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_302
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_302_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_302_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT() && !K78_EXCESSIVE_STATURE_GAP()
		$PHYSICAL_CONTACT_LOOP
		IF TALENT:연모 || TALENT:애욕
			SELECTCASE RAND:3
			CASE 1
				CALL K78_HPH_PRINT,@"「뭐?  응석부리고 싶은거야? HPH」","W"
			CASE 2
				PRINTFORMDL %타겟과% 어깨를 서로 기대면(자), 군고구마와 같이 단 향기가 났다.
				CALL K78_HPH_PRINT,@"「HPH 너무 냄새 맡아요 HPH」","W"
			CASEELSE
				PRINTFORMDL 자주(잘) 밭에 나와 있는데%CALLNAME:TARGET%의 손발은 매끈매끈하며 있어 깨끗하다.
				CALL K78_HPH_PRINT,@"「나라도 여자아이니까, 여러 가지 노력해 HPH」","W"
			ENDSELECT
		ELSE
			SELECTCASE TFLAG:193
			CASE 1
				SELECTCASE RAND:2
				CASE 1
					IF TALENT:사모 || TALENT:섹프
						PRINTFORMDL 깨닫으면(자)%마스터와% %타겟은% 누가 먼저랄 것도 없이 어깨를 서로 기대고 있었다.
						PRINTFORMW 「어느 새인가… 두, 대단히 가깝네요…」
					ELSE
						GOTO PHYSICAL_CONTACT_LOOP
					ENDIF
				CASEELSE
					PRINTFORMDL %CALLNAME:TARGET%에 전신 맛사지를 해 주었다.
					PRINTFORMDL 가녀리게 외관비교적 제대로 여성다운 부드러움을 갖춘 몸이다.
					PRINTFORMW 「응…… 능숙하네요, %CALLNAME:MASTER%. 고마워요」
				ENDSELECT
			CASE 0
				SELECTCASE RAND:3
				CASE 1
					IF ( TALENT:사모 || TALENT:섹프 ) && !TALENT:연인
						PRINTFORMDL %마스터가% %CALLNAME:TARGET%의 손을 잡으면(자), %타겟은%\@ CHK_DATENOW(CFLAG:TARGET:데이트중) ? 뺨을 붉히면서 #조금 놀라는 것 같았다가 \@쥠이나 해 주었다.
						PRINTFORMW 「무, 무엇인가 연인 같구나…」
					ELSE
						GOTO PHYSICAL_CONTACT_LOOP
					ENDIF
				CASE 2
					PRINTFORMDL 어깨를 비빌까하고 %CALLNAME:TARGET%에 신청했다.
					PRINTFORMW 「모처럼이고 부탁할까」
				CASEELSE
					PRINTFORMDL %CALLNAME:TARGET%의 허리를 비비어 주었다.
					PRINTFORMW 「밭일은 엉거 주춤이 되는 것이 많아서 열중해버린다 것이군요」
				ENDSELECT
			CASE -1
				PRINTFORML 「조금!어디 방해가 되어!」
				PRINTFORMDW %CALLNAME:TARGET%에 맛사지를 하려고 했지만, 실패해 버린 것 같다.
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;303, 사과한다
;TFLAG:193(2=과자때성공 1=대성공 0=성공 -1=실패 -2=과자때실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_303
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_303_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_303_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;304, 일을돕는다
;TFLAG:193(1=대성공 0=성공 -1=실패)
;CFLAG:350(일내용(JOB_일내용. ERB 참조
;TCVAR:도울수없다(=2 도와도 빨리는 끝나지 않는, 시간정지중 불가에이린의 진찰등 )
;==================================================
@M_KOJO_MESSAGE_COM_K78_304
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_304_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_304_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;시간정지중
	IF FLAG:70
	;통상
	ELSE
	ENDIF

ENDIF
RETURN 1
;==================================================
;305, 무릎베개받는다
;TFLAG:193(-5=MASTER가 TARGET보다 거체의 경우(TALENT:MASTER:체형 > TALENT:체형 + 2) 1=대성공 0=성공 -1=실패)(-5이외는 지문 분기 없음)
;ABL:친밀(6이상=얼굴을 들여다 보면서 머리를 쓰다듬어주는 3이상=다만 머리를 쓰다듬어주는 2 이하=움츠러들고 있다)
;==================================================
@M_KOJO_MESSAGE_COM_K78_305
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_305_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_305_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT() && TFLAG:193 > -5
		IF TALENT:연모 || TALENT:애욕
			SELECTCASE RAND:3
			CASE 1
				CALL K78_HPH_PRINT,@"「예, 예, 또 무릎베개군요 HPH 수고하셨어요 HPH」","W"
			CASE 2
				CALL K78_HPH_PRINT,@"「지쳐 버렸어?  좋아요. 네, 부디 HPH」","W"
			CASEELSE
				PRINTFORMDL 달콤한 향기에 싸이면서 누우며 있으면(자) 졸려졌다.
				CALL K78_HPH_PRINT,@"「졸려?  당분간 자고 있어 좋아요. 쭉 이렇게 하고 있어 줄 테니까 HPH」","W"
			ENDSELECT
		ELSE
			SELECTCASE TFLAG:193
			CASE IS >= 0
				SELECTCASE ABL:친밀
				CASE IS >= 6
					PRINTFORML 「다시 끈적끈적 해…… 당신은 누구라도 이런 것 해?」
					PRINTFORMDW 입으로는 그렇게 말하지만, %타겟은% 미소를 띠고 있다.
				CASE 3 TO 5
					IF TALENT:MASTER:유치
						PRINTFORML 「아이이고, 어쩔 수 없는가」
					ELSE
						PRINTFORML 「%마스터는% 가끔 아이 같아…」
					ENDIF
					PRINTFORMDW %타겟은% 기가 막히면서도 머리를 어루만져 주었다.
				CASE IS <= 2
					PRINTFORMW 「이, 이것은 과연 너무 부끄러운데…」
				ENDSELECT
			CASE -1
				PRINTFORMW 「…발 아프고 부끄럽고, 이제(벌써) 그만두고」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;306, 배를어루만진다
;TFLAG:193(1=ABL:친밀 6이상 또한 임신시 0=성공 -1=ABL:친밀 5 이하)
;==================================================
@M_KOJO_MESSAGE_COM_K78_306
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_306_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_306_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		SELECTCASE TFLAG:193
		CASE 1

		CASE 0

		CASE -1

		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;307, 뺨을집는다
;TFLAG:193(1=대성공 0=성공 -1=실패)(지문 분기 없음
	;이하는 먼저 쓴 조건이 우선된다
	;TALENT:연모(받아들이면서 웃는 얼굴로 다시한다
	;ABL:친밀(6이상=흠칫흠칫 다시한다
	;ABL:순종(5이상=되는 대로
;==================================================
@M_KOJO_MESSAGE_COM_K78_307
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_307_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_307_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		IF TALENT:연모
			SELECTCASE RAND:2
			CASE 0
				CALL K78_HPH_PRINT,@"「이 안주 맞아 개, 싫지 않을지도 HPH」","W"
			CASEELSE
				PRINTFORMW 「해냈네요. 복수♪」
			ENDSELECT
		ELSEIF ABL:친밀 >= 6 && TFLAG:193 >= 0
			PRINTFORMW 「당신에게도, 이러해요」
		ELSEIF ABL:순종 >= 5 && TFLAG:193 >= 0
			PRINTFORMW 「아프다…」
		ELSE
			PRINTFORMW 「뭐 하는 거야. 아프잖아요」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;308, 뺨을쿡쿡 찌른다
;동침중or수면 중한정
;TFLAG:193(1=대성공 0=성공 -1=실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_308
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_308_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_308_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;수면중
	IF CFLAG:수면
	;통상
	ELSE
	ENDIF

ENDIF
RETURN 1
;==================================================
;309, 머리를어루만진다
;TFLAG:193(1=대성공 0=성공 -1=실패)
;ABL:친밀(6이상=통상 성공 시분기
;==================================================
@M_KOJO_MESSAGE_COM_K78_309
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_309_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_309_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		$HEAD_PATTING_LOOP
		SELECTCASE TFLAG:193
		CASE 1
			IF ( TALENT:연모 || TALENT:애욕 ) && RAND:2
				PRINTFORMDL %마스터가% 머리를 어루만지면(자), %타겟은% 기쁜 듯이 몸을 밀착시켜 왔다.
				CALL K78_HPH_PRINT,@"「응~으응 HPH 좀 더 쓰다듬고 있고 HPH」","W"
			ELSE
				PRINTFORMDL %마스터는% %타겟이% 없는들인가로 윤이 있는 금발에 감탄했다.
				PRINTFORMW 「내 머리카락, 그렇게 괜찮을까?  에헤헤」
			ENDIF
		CASE 0
			IF ABL:친밀 >= 6
				IF TALENT:연모 || TALENT:애욕
					SELECTCASE RAND:3
					CASE 1
						IF TALENT:MASTER:성별 == 2 && TALENT:MASTER:체형 >= 0
							CALL K78_HPH_PRINT,@"「%CALLNAME:MASTER%의 손, 크구나. 역시 남자인걸HPH」","W"
						ELSE
							GOTO HEAD_PATTING_LOOP
						ENDIF
					CASE 2
						PRINTFORML 「도, 벌써 끝나?」
						PRINTFORMDW %타겟은% 물건 충분하고 없음인 표정으로 올려봐 왔다.
					CASEELSE
						PRINTFORML 「당신이 어루만질 수 있고 있으면, 왠지 안심이 되었다…」
						PRINTFORMDW %타겟은% 눈을 이라고 글자라고 온화한 미소를 띠고 있다.
					ENDSELECT
				ELSE
					SELECTCASE RAND:2
					CASE 1
						PRINTFORMW 「나아이도 아니면서…… 뭐…%CALLNAME:MASTER%습관인가」
					CASEELSE
						PRINTFORML 「말하지만 , 나라도 일단 하나님이니까!」
						PRINTFORMDW 그렇게 말해 위엄이 있는 곳(중)을 보이려고 하지만, 어루만질 수 있던 채 그대로다.
					ENDSELECT
				ENDIF
			ELSE
				PRINTFORMW 「자, 잠깐. 창피하잖아의. 이제(벌써)」
			ENDIF
		CASE -1
			PRINTFORMW 「갑자기 카시라를 방해가 되다는 실례군요!」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;331, 차를넣는(약넣은)
;TFLAG:193(1=대성공 0=성공 -1=실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_331
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_331_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_331_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;332, 술을대접한다
;TFLAG:193(0=술을못함 성공 -1=술을못함 실패 -2=술을못함마심대실패 -5=술을못함 아키라 째)
;TFLAG:194(51=탁주 52=청주 53=오니고로시)
;ALCOHOL_TASTE(TFLAG:194)(15이상=마음에 드는 9 이하=입맛에 맞지 않는다)
;==================================================
@M_KOJO_MESSAGE_COM_K78_332
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_332_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_332_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;333, 푸념을듣는다
;TFLAG:193(6=대성공(취기) 5=성공(취기) 4=실패(취기) 3=대성공 2=성공 1=실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_333
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_333_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_333_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 6
		;대성공(취기)
		CASE 5
		;성공(취기)
		CASE 4
		;실패(취기)
		CASE 3
		;대성공
		CASE 2
		;성공
		CASE 1
		;실패
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;334, 잔을주고받는다
;TFLAG:193(1=대성공 0=성공 -1=실패)
;CFLAG:임신자각상태(1=식사)
;TALENT:술내성(-2=식사)
;==================================================
@M_KOJO_MESSAGE_COM_K78_334
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_334_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_334_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 1
		;대성공
		CASE 0
		;성공
		CASE -1
		;실패
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;335, 간호한다
;TFLAG:193(1=대성공 0=성공 -1=실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_335
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_335_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_335_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 1
		;대성공
		CASE 0
		;성공
		CASE -1
		;실패
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;336, 무릎베개한다
;ABL:친밀(4 이하=기분악 9 이하=수치않다 기울어라 10이상=행복 그렇게
;TIME_PROGRESS(TFLAG:무릎베개)(44 이하=실패
;==================================================
@M_KOJO_MESSAGE_COM_K78_336
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_336_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_336_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT() && !K78_EXCESSIVE_STATURE_GAP()
		;자면
		IF TFLAG:193 > 0
			PRINTL
			PRINTFORMDL %타겟이% 눈을 떴다.
			SELECTCASE RAND:2
			CASE 1
				PRINTFORML 「저것……나, 자고 있었던?」
				PRINTFORMW 「미안해. 신경쓰게 했어요」
			CASEELSE
				PRINTFORML 「응…어?  면……지친 것 같다」
				PRINTFORMW 「미안해. 발 괜찮아?」
			ENDSELECT
		;잠을 자지 않다
		ELSE
			SELECTCASE ABL:친밀
			CASE IS <= 4
				PRINTFORMW 「으응~, 어쩐지 초조하다…」
			CASE 5 TO 9
				SELECTCASE RAND:2
				CASE 1
					PRINTFORMW 「역시 부끄럽지만…」
				CASEELSE
					PRINTFORMDL 무릎에 태운 %CALLNAME:TARGET%의 얼굴을 들여다보았다.
					PRINTFORMW 「물끄러미 너무 보고. 창피하잖아」
				ENDSELECT
			CASE IS >= 10
				SELECTCASE RAND:2
				CASE 1
					PRINTFORMW 「이것은 꽤 기분이 좋은 베개…라니♪」
				CASEELSE
					PRINTFORMW 「하아…… %마스터가% 냄새가 난다」
				ENDSELECT
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;350, 밀어넘어뜨린다(시간시 장난한다
;TFLAG:194 (0=성공 1=명째가 있다　2=야외는 싫어 입니다만　3=많은 사람 플레이는 용서　4=합의가 있어도 무드가 충분하지 않다)
;TCVAR:껴안고첫회　1=보통으로 합의Get　2=먼저 키스 정도 해라　3=미약or발정에는 이길 수 없었어요 …　4=분한…각인조차 없으면 히″쿠히″군
;5=억지로 재촉당한다고 거절할 수 없는(소질 겁쟁이 소유 전용) 6=반드시 싫지만은 않다　7=안 돼　8=논외
;==================================================
@M_KOJO_MESSAGE_COM_K78_350
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_350_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_350_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;351, 데리고나간다
;==================================================
@M_KOJO_MESSAGE_COM_K78_351
;데리고 나가에는 TRAIN_MESSAGE가 없다
CALL M_KOJO_MESSAGE_COM_K78_351_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_351_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;TARGET 데리고 나가
	IF CFLAG:동행 == 60
	;TARGET 이외 데리고 나가(TARGET 동행중만
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;352, 고백한다
;FLAG:생활능력무(1=실패)
;TFLAG:193 (1=성공 0=실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_352
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_352_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_352_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;380, 프로포즈
;FLAG:생활능력무(1=실패)
;TFLAG:193 (1=성공 0=실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_380
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_380_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_380_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TFLAG:193 == 1
DRAWLINE
PRINTFORMW ―――단독 엔딩 조건 달성―――
PRINTFORMW …………
PRINTFORMW ………
PRINTFORMW ……
PRINTFORMW

PRINTFORMW 약간의 시간이 흐르고……
PRINTFORMW 환상향에 가을이 찾아왔다.
PRINTFORMW 인간 마을에 가까이 있는, 산기슭의 작은 신사에선 올해도 풍작을 기리는 축제가 벌어졌다
PRINTFORMW 밤이 되자 산길에선, 인간이나 인간과 사귀는 요괴의 긴 포장마차나 떠들석한 활기를 보여주는 중…
PRINTFORMW 조금 먼 신사의 본전에선, 흐릿한 물소리가 울리고 있다
PRINTFORMW
PRINTFORMW 언제부터인지, 거기엔 겹쳐진 두사람의 모습이 있다.
PRINTFORMW 지친 것인지, %CALLNAME:MASTER% 가 그 움직임을 멈추려 하자
PRINTFORMW 위가 된 미노리코가 꾸짖는것 처럼 다시 격렬하게 허리를 움직여 간다
PRINTFORMW
PRINTFORMW 「안 돼, 축제중에는, 나를 계속해서 범하기로 약속했었잖아」
PRINTFORMW 그랬던가, 하고 %CALLNAME:MASTER% 이다시 그 부드러운 비소를 꿰뚫자
PRINTFORMW 미노리코는 기습에 견디지 못하고 교성을 질렀다.
PRINTFORMW 더욱더 격렬하게 꿰뚫어, 양쪽 모두 그 욕망의 흔적을 토해낸 뒤에도
PRINTFORMW 두사람은 위아래로의 움직임을 멈추지 않았다.
PRINTFORMW 그것은 일종의 제사였다.
PRINTFORMW 미노리코는 계속해서 %CALLNAME:MASTER%의 위에 앉아서, 음란한 움직임을 계속하며
PRINTFORMW 반지를 끼고 있던 왼손으로 스스로의 복부를 문질렀다.
PRINTFORMW 계절은 가을. 풍양의 계절. 그리고 그것을 감사하는 축제.
PRINTFORMW 이 날이야 말로, 아이를 만드는데 적격이다.
PRINTFORMW 먼 바깥에 축제의 소란이 퍼지는 와중에, 고요하게, 열기를 잉태한 가을의 밤이 깊어져 간다…
PRINTFORMW
	ELSE
		PRINTFORMW 「아? 무슨 일인가 있는 걸까요?」
	ENDIF
ENDIF
RETURN 1
;==================================================
;353, 장난한다
;FLAG:생활능력무(1=실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_353
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_353_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_353_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;354, 동침한다(상대는 일어나 이불에 부르는 느낌)
;CFLAG:쇠약(1이상=일어나지 않는다
;CFLAG:초대( 0이외=일어나지 않는다
;==================================================
@M_KOJO_MESSAGE_COM_K78_354
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_354_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_354_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;355, 때 멈추고(지문의 개변 정도로 두어야 함
;==================================================
@M_KOJO_MESSAGE_COM_K78_355
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_355_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_355_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;360, 몸을맡긴다
;TCVAR:20(27=골짜기를 보이는 32=앞에서 안겨든 35=치마안을 보이는 53=파이즈리 73= 77=젖을 들이마시게 하는 85=V삽입하는 86=정말좋아 hold 87=A삽입하는 88=허리 모습 V 89=허리 모습 A
;==================================================
@M_KOJO_MESSAGE_COM_K78_360
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_360_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_360_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;363, 읽어들려주고([유치]소유 전용)
;TFLAG:193(1=대성공 0=성공 -1=실패)(지문 분기 없음
;CFLAG:동침중(1=이불 or침대 중(안)에서 책을 읽는다
;MASTER가 TARGET보다 큰 몸집의 경우, 무릎 위로 TARGET를 싣는다
;==================================================
@M_KOJO_MESSAGE_COM_K78_363
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_363_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_363_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;364, 콩장작(스이카, 유기, 스칼렛 자매용
;TFLAG:193(콩 뿌려에 참가하고 있는 인원수
;==================================================
@M_KOJO_MESSAGE_COM_K78_364
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_364_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_364_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;365, 모리야신사에 이동(사나에, 카나코, 스와코용
;==================================================
@M_KOJO_MESSAGE_COM_K78_365
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_365_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_365_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;402, 취침
;TFLAG:193(0=통상 1=아이와 함께 내 천(川)자로 잔다)
;==================================================
@M_KOJO_MESSAGE_COM_K78_402
;취침에 TRAIN_MESSAGE는 없다
CALL M_KOJO_MESSAGE_COM_K78_402_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_402_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;403, 휴식
;CFLAG:TARGET:수면(1=TARGET가 자고 있는 근처에서 휴식
;==================================================
@M_KOJO_MESSAGE_COM_K78_403
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_403_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_403_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;405, 나간다(동행시 데이트
;조건이 귀찮아서, COMF405 나간다. ERB를 참조
;==================================================
@M_KOJO_MESSAGE_COM_K78_405
;나가는에 TRAIN_MESSAGE는 없다
CALL M_KOJO_MESSAGE_COM_K78_405_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_405_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;TARGET와 데이트
	IF CFLAG:동행
	;TARGET 의외로 데이트
	ELSEIF CFLAG:MASTER:동행
	;외출보류
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;410, 청소
;FLAG:70(1=시간정지중
;TFLAG:193(0=보고 있을 뿐 1=함께 청소)
;TFLAG:194(3=더러운고 2=더러운중 1=더러운저 0=더러운 최소
;OUTROOF(CFLAG:현재위치)(야외 청소( 겨울은 눈치우기
;==================================================
@M_KOJO_MESSAGE_COM_K78_410
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_410_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_410_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		IF TFLAG:193 == 1
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「후우. 이런 것일까」
			CASE 2
				PRINTFORMW 「응실마리…응실마리…… 하아, 겨우 더러움이 떨어졌어요」
			CASEELSE
				PRINTFORMW 「곧 더러워져버리는 지요. 되어버린다」
			ENDSELECT
		ELSEIF TFLAG:193 == 0
			PRINTFORMW 「힘내 비쳐요. 수고했습니다」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;411, 전투훈련
;TFLAG:194(3=여름의 낮 2=위험 있고 날씨 1=악천후 0=옥내 or통상 날씨
;==================================================
@M_KOJO_MESSAGE_COM_K78_411
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_411_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_411_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		;조언 한다
		IF ABL:MASTER:전투능력 > ABL:전투능력
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「꽤 하는데… 나는 이제(벌써) 이빨이 설 것 같지 않아요」
			CASE 2
				PRINTFORMW 「아야!…해냈네요, 이 이 」
			CASEELSE
				PRINTFORMW 「하아, 하아 개, 지쳤다…」
			ENDSELECT
		;조언 받는다
		ELSE
			PRINTFORMW 「이 정도 안 돼요」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;412, 공부
;ABL:교양(ABL:MASTER:교양보다 대=MASTER가 가르쳐 주는 ABL:MASTER:교양보다 소=TARGET가 가르쳐 준다
;==================================================
@M_KOJO_MESSAGE_COM_K78_412
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_412_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_412_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		;공부를 가르치는 or 가르쳐 준다
		IF CFLAG:행동 != 5
			;가르친다
			IF ABL:MASTER:교양 > ABL:교양
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「으응~, 어려워서 두개 싶어진다…」
				CASE 2
					PRINTFORMW 「헤에―　%마스터는% 정말 박식이야」
				CASEELSE
					PRINTFORMW 「모르는…… 역시 나는 밭일이 성에 맞고 있는 원」
				ENDSELECT
			;가르쳐 준다
			ELSE
				PRINTFORMW 「아, 이것이라면 알 것 같다. 내가 가르쳐 준다」
			ENDIF
		;곁에 있을 뿐
		ELSE

		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;413, 요리
;TFLAG:194(100이상=금단의 메뉴 3=디저트 2=주식 1=경식
;==================================================
@M_KOJO_MESSAGE_COM_K78_413
;TFLAG:194가 100이상의 경우만
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_413_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_413_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
ENDIF
RETURN 1
;==================================================
;414, 식사한다
;TFLAG:193(1=대성공 0=성공 -1=실패)
;TFLAG:194(1=노팬티 샤브샤브 2=금단의 메뉴 31=도핑 콘소메 수프 30=모짜렐라 치즈와 토마토의 샐러드 34=긴기 요리
;TCVAR:MASTER:308(bit0=진한 맛 bit1=담백한 맛 bit3=엄청 매운 bit4=격감 bit5=고추냉이 bit6=격산
;==================================================
@M_KOJO_MESSAGE_COM_K78_414
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_414_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_414_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;415, 식사를대접한다
;TFLAG:193(1=대성공 0=성공 -1=실패)
;TCVAR:MASTER:308(bit0=진한 맛 bit1=담백한 맛 bit3=엄청 매운 bit4=격감 bit5=고추냉이 bit6=격산
;==================================================
@M_KOJO_MESSAGE_COM_K78_415
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_415_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_415_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;416, 연주한다
;TFLAG:193(1=대성공 0=성공 -1=실패)
;TFLAG:사용악기(1=키보드 2=피아노 3=기타 4=트럼펫 5=바이올린)
;==================================================
@M_KOJO_MESSAGE_COM_K78_416
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_416_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_416_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;417, 낮잠을 한다
;TFLAG:193(0=MASTER를 다키마쿠라로 해 자고 있는 1=MASTER의 무릎을 베개로 해 자고 있는 2=잠자는 얼굴에 키스 된 3=잠자는 얼굴을 들여다 봐진 4=MASTER가 무릎베개되고 있는 5=은밀한 곳 or페니스 비비어
;CFLAG:동침중(1=함께 자고 있다
;==================================================
@M_KOJO_MESSAGE_COM_K78_417
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_417_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_417_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;421, 발원함 한다
;조건이 복잡해서, COMF421 발원함. ERB 및, EVENT_MESSAGE_COM400.ERB의 발원함 하는 것 항을 참조
;==================================================
@M_KOJO_MESSAGE_COM_K78_421
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_421_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_421_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:78:1099 != 0
		LOCAL:1 = GETCOLOR()
		SETCOLOR GETDEFCOLOR()
		CALL ASK_M(@"내친 김에 %CALLNAME:TARGET%의 엉덩이의 손질이나 유두에 대해서도 발원함 하는", 1,"발원함은 이만큼", 1)
		IF RESULT == 0
			PRINTL
			PRINTFORMDL %마스터는% 내친 김에 %CALLNAME:TARGET%의 엉덩이의 손질과 유두에 대해 부탁하기로 했다.

			$PRAYER_LOOP
			VARSET LOCALS

			SELECTCASE CFLAG:78:1001
			CASE 0
				LOCALS:0 = 변화하지 않는다
			CASE 1
				LOCALS:0 = 출산 전후만 변화한다
			CASE 2
				LOCALS:0 = 임신에 관계없이 모유체질에 의해 변화한다
			CASEELSE
				LOCALS:0 = ※CFLAG:78:1001의 값이 부정※
			ENDSELECT

			SELECTCASE CFLAG:78:1002
			CASE 0
				LOCALS:1 = 스카톨로지 없음
			CASE 1
				LOCALS:1 = 스카톨로지 있어
			CASEELSE
				LOCALS:1 = ※CFLAG:78:1002의 값이 부정※
			ENDSELECT

			PRINTL
			PRINTFORMDL 유두 변화의 현재의 설정：%LOCALS:0%　　　스카톨로지 표현의 현재의 설정：%LOCALS:1%
			PRINTL
			CALL ASK_M("유두 변화의 설정을 변경하는", 1,"스카톨로지 표현의 설정을 변경하는", 1,"이것으로 좋은", 1)
			SELECTCASE RESULT
			CASE 0
				IF CFLAG:78:1001 >= 2
					CFLAG:78:1001 = 0
				ELSE
					CFLAG:78:1001 += 1
				ENDIF
				PRINTL
				GOTO PRAYER_LOOP
			CASE 1
				CFLAG:78:1002 = !CFLAG:78:1002
				PRINTL
				GOTO PRAYER_LOOP
			CASE 2
				PRINTFORMDL %CALLNAME:TARGET%의 유두가%LOCALS:0%같게 된 것 같다.
				PRINTFORMD %타겟이%
				IF CFLAG:78:1002 == 0
					PRINTFORMD 엉덩이를 깨끗하게 해 애널 섹스의 준비를 게을리하지 않는다
				ELSE
					PRINTFORMD 애널 섹스의 앞에서도 엉덩이를 그대로 해 둔다
				ENDIF
				PRINTFORMDW 같게 된 것 같다.
				PRINTL
			ENDSELECT
		ENDIF
		SETCOLOR LOCAL:1
	ENDIF
	IF K78_CONSCIOUS_AND_TOLERANT()
		SELECTCASE RAND:9
		CASE 1 TO 4
			PRINTFORMW 「무엇을 부탁했어?」
		CASE 5 TO 8
			PRINTFORMW 「대단히 열심히 기원하고 있었어」
		CASEELSE
			PRINTFORMW 「으응~… 당신이 비고 있는 신님, 어떻게든(어쩐지) 의심스러운 것을 느끼는 것 같은…」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;422~430은, 특수 커맨드이므로 텐프레에서는 대응하지 않습니다
;==================================================

;==================================================
;431, 욕실로느긋하게쉰다
;TFLAG:209(4=마을의 목욕탕에서 접수대 를 화나게 하고 있는 1=목욕탕에 들어갔다
;TFLAG:211(4=지저의 온천에서 접수대 요괴를 화나게 하고 있는 1=온천에 들어갔다
;TFLAG:194(1=연속 입욕 불가(표시하지 않을 가능성 있어?
;==================================================
@M_KOJO_MESSAGE_COM_K78_431
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_431_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_431_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;432, 욕실로느긋하게쉰다
;표시 타이밍은 입욕 후이므로, 목욕 한 후에서의
;TFLAG:209(4=마을의 목욕탕에서 접수대 를 화나게 하고 있는 1=목욕탕에 들어갔다
;TFLAG:211(4=지저의 온천에서 접수대 요괴를 화나게 하고 있는 1=온천에 들어갔다
;==================================================
@M_KOJO_MESSAGE_COM_K78_432
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_432_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_432_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;440, 기다린다
;==================================================
@M_KOJO_MESSAGE_COM_K78_440
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_440_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_440_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;441, 수업을받는다(케이네 전용
;==================================================
@M_KOJO_MESSAGE_COM_K78_441
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_441_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_441_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;442, 벌채한다(미실장
;==================================================
@M_KOJO_MESSAGE_COM_K78_442
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_442_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_442_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;442이후의 커맨드는, 실행해도 말은 아마 표시되지 않기 때문에 텐프레에서도 패스
;==================================================

;※※※※※※※※※※※※※※※※※※※※※※※※※
;데이트계 커맨드
;데이트계 말은 문자 그대로 외출처에서 발생
;※※※※※※※※※※※※※※※※※※※※※※※※※
[SKIPSTART]
;현상미실장
;==================================================
;600, 데이트 회화
;==================================================
@M_KOJO_MESSAGE_COM_K78_600
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_600_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_600_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;601, 데이트 스킨십
;==================================================
@M_KOJO_MESSAGE_COM_K78_601
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_601_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_601_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;602, 데이트 키스
;==================================================
@M_KOJO_MESSAGE_COM_K78_602
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_602_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_602_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
[SKIPEND]
;==================================================
;603, 손을잡는다
;TFLAG:193(1=대성공 0=성공 -1=실패)(실패에서도 거절해 풀어지거나는 하지 않습니다
;==================================================
@M_KOJO_MESSAGE_COM_K78_603
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_603_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_603_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;604, 산책한다
;데이트중의 경우, CFLAG:현재위치에 이동처의 장소가 이미 들어가 있다
;==================================================
@M_KOJO_MESSAGE_COM_K78_604
;산책하려면  TRAIN_MESSAGE가 없다
CALL M_KOJO_MESSAGE_COM_K78_604_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_604_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;605, 지나치는길한다
;TFLAG:193(1=대성공 0=성공 -1=실패)(지문 없음
;==================================================
@M_KOJO_MESSAGE_COM_K78_605
;지나치는 길 하려면  TRAIN_MESSAGE가 없다
CALL M_KOJO_MESSAGE_COM_K78_605_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_605_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;610, 식사제의를한다
;TFLAG:193(1=대성공 0=성공 -1=실패)
;==================================================
@M_KOJO_MESSAGE_COM_K78_610
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_610_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_610_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;613, 돈 벌어 한다(생략 되었습니다
;==================================================
@M_KOJO_MESSAGE_COM_K78_613
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_613_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_613_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;614, 식재료의 시장
;TFLAG:193(1=구입＆데이트경험 업 0=구입 -1=비구입)
;==================================================
@M_KOJO_MESSAGE_COM_K78_614
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_614_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_614_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;615, 도시락을 먹는다
;실행 가능 장소지장길, 수양버들아래, 안개의호수, 현무의늪, 큰두꺼비의연못, 절경의언덕, 산의호수, 천계
;TFLAG:193(1=대성공 0=성공 -1=실패)
;ABL:요리기능(2 미만=미묘한 성과 4 미만=안밖 맛있는 4이상=훌륭한 작품)
;==================================================
@M_KOJO_MESSAGE_COM_K78_615
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_615_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_615_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;617, 아마미 도코로로 이끈다
;TFLAG:193(1=대성공 0=성공 -1=실패)(지문 분기는 대성공만 추가
;==================================================
@M_KOJO_MESSAGE_COM_K78_617
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_617_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_617_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;618, 꽃집(말은 표시되지 않는 모양?
;==================================================
@M_KOJO_MESSAGE_COM_K78_618
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_618_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_618_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;620, 스즈나안
;TFLAG:193(1=대출 OK 0=대출 불가
;ITEM:10X (X=1 전술지도서 X=2 조리지도서 X=3 사전 X=4 단편소설
;==================================================
@M_KOJO_MESSAGE_COM_K78_620
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_620_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_620_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;621, 낚시를 한다
;TFLAG:193(0=잡히지 않는 1~4=물고기 11~15=맛있는물고기 610=목재 131=모리야부적 21=로터 609=얼음의 린 606=용의손톱)
;TFLAG:194(1000이상이라면 TARGET가 낚시했다)
;==================================================
@M_KOJO_MESSAGE_COM_K78_621
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_621_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_621_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;660, 독서
;TFLAG:193(선택지 문학(1=인살(문학? ) 2=실패 3=문학), 선택지 실용서(4=실패 5=실용서), 선택지 엣찌한 책(6=싱거운 높은 본 7=보건 체육 8=카 매스-호랑이))
;==================================================
@M_KOJO_MESSAGE_COM_K78_660
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_660_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_660_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;698, 방에들어간다
;TARGET의 방에 들어가는 경우만 표시
;==================================================
@M_KOJO_MESSAGE_COM_K78_698
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_698_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_698_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;699, 밖으로나온다
;==================================================
@M_KOJO_MESSAGE_COM_K78_699
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_699_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_699_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;파생 커맨드
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;60, 귀이개
;전턴 무릎베개 후 스킨십 커맨드
;TFLAG:193(1=대성공 0=성공 -1=실패)(실패하는 것은 TARGET
;==================================================
@M_KOJO_MESSAGE_SCOM_K78_60
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K78_60_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K78_60_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;61, 다키마쿠라
;(TARGET 수면시간 or쇠약) 동침중, 전턴 안겨든 후 취침 커맨드
;분기 없음
;==================================================
@M_KOJO_MESSAGE_SCOM_K78_61
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K78_61_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K78_61_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;62, 이마 쪽―
;전턴두 어루만지고 후 키스한다
;TFLAG:193(1=대성공 0=성공 -1=실패)(지문 분기 없음
;ABL:욕망(5이상=어딘지 부족하다
;ABL:친밀(5이상=수줍다
;==================================================
@M_KOJO_MESSAGE_SCOM_K78_62
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K78_62_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K78_62_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;63, 좀 더 키스한다
;전턴 키스 하는 후 키스한다
;분기 조건은 EVENT_MESSAGE_COM500.ERB 참조
;==================================================
@M_KOJO_MESSAGE_SCOM_K78_63
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K78_63_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K78_63_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF K78_BASIC_CONDITION_IN_MATING()
		IF BASE:무드 >= 750 && BASE:이성 < 500
			IF TALENT:연모

			ELSEIF ABL:친밀 >= 5

			ELSE

			ENDIF
		ELSE
			IF TALENT:연모

			ELSEIF ABL:친밀 >= 5

			ELSE

			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;80, 손을 잡아 당긴다
;데이트 출발 후 목적지에 도착할 때까지
;TFLAG:193(1=대성공 0=성공 -1=실패)
;==================================================
@M_KOJO_MESSAGE_SCOM_K78_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K78_80_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K78_80_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

path: ERB/대사_메시지관련/개인대사/078 미노리코/M_KOJO_K78_日常系コマンド_t.ERB


path: ERB/대사_메시지관련/개인대사/078 미노리코/M_KOJO_K78_派生コマンド_t.ERB

license: mit


path: ERB/대사_메시지관련/개인대사/078 미노리코/M_KOJO_K78_絶頂_t.ERB


path: ERB/대사_메시지관련/개인대사/078 미노리코/M_KOJO_K78_道具系コマンド_t.ERB


code:
;### 하트만 다른 색으로 PRINT하기 위한 함수 ##################
;ew6님의 코드를 참고로 했습니다
;캐릭터라인중에 포함되는"HPH"를 핫 핑크색의 하트로서 PRINT 해, 그 이외의캐릭터라인은 통상의 색으로 보통으로 PRINT 한다
;ARGS "W"=PRINTSW로 표시. "L"=PRINTSL로 표시. "W"도"L"도 아니면 PRINTS로 표시
@K78_HPH_PRINT, 대상캐릭터라인, ARGS
#DIMS 대상캐릭터라인
#DIM 출력문자수
#DIM HPH인덱스치

DO
	HPH인덱스치 = STRFIND(대상캐릭터라인, "HPH")

	;대상캐릭터라인이 HPH로 시작되지 않지만 뒤로 HPH가 있는 경우
	IF HPH인덱스치 >= 1
		;HPH의 직전까지 문자 표시
		LOCALS = %SUBSTRING(대상캐릭터라인, 0, HPH인덱스치)%
		PRINTS @"%LOCALS%"
		출력문자수 = STRLENS(LOCALS)
	;대상캐릭터라인이 HPH로 시작되는 경우
	ELSEIF HPH인덱스치 == 0
		LOCAL = GETCOLOR()
		SETCOLOR 0xFF69B4
		PRINTFORM %UNICODE(0x2764)%
		SETCOLOR LOCAL
		출력문자수 = 3
	;HPH가 이제 없는 경우
	ELSE
		;여기서 ARGS에 의한 분기
		SELECTCASE ARGS
		CASE "W"
			PRINTSW @"%대상캐릭터라인%"
		CASE "L"
			PRINTSL @"%대상캐릭터라인%"
		CASEELSE
			PRINTS @"%대상캐릭터라인%"
		ENDSELECT
		BREAK
	ENDIF

	;표시 끝난 문자분을 삭제해 대상캐릭터라인을 갱신한다
	대상캐릭터라인 = %SUBSTRING(대상캐릭터라인, 출력문자수, -1)%

LOOP 1

;### 행위를 용인해 줄까 판정용식중함수 ################
;의식이 있는 상태로 행위를 화내지 않고 받아들이고 있으면 1을 돌려준다. 그렇지 않으면 0
;ARG=캐릭터 번호
@K78_CONSCIOUS_AND_TOLERANT(ARG)
#FUNCTION
#DIM 반발계파라미터상승치

SIF ARG == 0
	ARG = TARGET

SIF !SHIRAHU(ARG) || CFLAG:ARG:빡침 || TCVAR:ARG:억지로
	RETURNF 0

반발계파라미터상승치 = CUP:ARG:반감 + CUP:ARG:불쾌

SIF MARK:ARG:반발각인 == 0 && 반발계파라미터상승치 >= 500
	RETURNF 0
SIF MARK:ARG:반발각인 == 1 && 반발계파라미터상승치 >= 1001
	RETURNF 0
SIF MARK:ARG:반발각인 == 2 && 반발계파라미터상승치 >= 2001
	RETURNF 0
SIF MARK:ARG:반발각인 >= 3
	RETURNF 0

RETURNF 1

;### 큰 체격차이의 유무 판정용식중함수 ################
;대상 캐릭터와 주인과의 체형차이에 의해 돌아가 값이 정해진다
;비교해 주인이 너무 크면(자) 1, 주인이 매우 너무 크면(자) 2, 주인이 너무 작으면(자)-1, 주인이 매우 너무 작으면(자)-2
;ARG=캐릭터 번호
@K78_EXCESSIVE_STATURE_GAP(ARG)
#FUNCTION

SIF ARG == 0
	ARG = TARGET

IF TALENT:MASTER:체형 <= -5
	LOCAL = -8
ELSE
	LOCAL = TALENT:MASTER:체형
ENDIF

IF TALENT:ARG:체형 <= -5
	LOCAL:1 = -8
ELSE
	LOCAL:1 = TALENT:ARG:체형
ENDIF

SELECTCASE LOCAL - LOCAL:1
CASE IS > 5
	RETURNF 2
CASE 5
	RETURNF 1
CASE -5
	RETURNF -1
CASE IS < -5
	RETURNF -2
CASEELSE
	RETURNF 0
ENDSELECT

;### 우후후 때 기본 상태 판정용식중함수 ################
;K78_CONSCIOUS_AND_TOLERANT에 무지와 K78_EXCESSIVE_STATURE_GAP의 조건을 더한 것
;ARG=캐릭터 번호
@K78_BASIC_CONDITION_IN_MATING(ARG)
#FUNCTION

SIF ARG == 0
	ARG = TARGET

SIF !K78_CONSCIOUS_AND_TOLERANT(ARG)
	RETURNF 0

SIF TALENT:ARG:무지
	RETURNF 0

SIF K78_EXCESSIVE_STATURE_GAP(ARG)
	RETURNF 0

RETURNF 1

;### 유두 변색 판정용식중함수 ################
;유두가 변색하고 있으면 1, 변색하고 있지 않으면 0을 돌려준다
;ARG=캐릭터 번호
@K78_DARKENED_NIPPLES(ARG)
#FUNCTION

SIF ARG == 0
	ARG = TARGET

IF CFLAG:ARG:1001 == 2 && TALENT:ARG:모유체질 > 0
	RETURNF 2
ELSEIF CFLAG:ARG:1001 && ( CFLAG:ARG:임신경과일수 > 30 || ( CFLAG:ARG:출산경과일 > 0 && CFLAG:ARG:출산경과일 < CHILD_젖떼기 ) )
	RETURNF 2
ELSEIF CFLAG:ARG:1001 && ( CFLAG:ARG:임신경과일수 > 20 || ( CFLAG:ARG:출산경과일 > 0 && CFLAG:ARG:출산경과일 < CHILD_어휘 ) )
	RETURNF 1
ELSE
	RETURNF 0
ENDIF

;### 유두 묘사용식중함수 ################
;ARG=캐릭터 번호
@K78_NIPPLE_MODIFIER(ARG)
#FUNCTIONS

SIF ARG == 0
	ARG = TARGET

IF K78_DARKENED_NIPPLES(ARG) == 2
	LOCALS = %TEXTR("검디검은/색의 진한/거무스름해진/유륜 선이 발달한/큰 투덜투덜이 눈에 띄는/유륜의 비대한/천한(정도)만큼 유륜의 큰/방사상의 핏대에 둘러싸인")%
ELSEIF K78_DARKENED_NIPPLES(ARG) == 1
	LOCALS = %TEXTR("약간 색의 진한/갈색 같은/팥죽색의/임신으로 물이 든/프트프트로 한 유륜 선이 있는/유륜의 대 결정하는거야")%
ELSE
	LOCALS = %TEXTR("연분홍색의/핑크의/색소의 싱거운/희미한 색의/사랑스럽다/＿")%
ENDIF

RETURNF LOCALS

;### 겨드랑이가 노출하고 있을까 판정용식중함수 ################
;현재의 의상으로 겨드랑이가 노출하고 있으면 1을 돌려주어, 노출하고 있지 않으면 0을 돌려준다
;소매 유무 어느 쪽인지 미묘한 의복의 경우는 노출하고 있지 않는 취급
;의복이 추가되면(자) 요점 변경
;ARG:0=캐릭터 번호
;ARG:1 탈의 말용. 0이외에 하면 속옷 모습으로 할 때 용무의 겨드랑이 노출 판정이 된다(반탈는 겨드랑이 노출에 영향 없기 때문에 무시)
@K78_ARMPIT_EXPOSURE(ARG:0, ARG:1)
#FUNCTION

SIF ARG:0 == 0
	ARG:0 = TARGET

;「속옷 모습으로 한다」로 벗는 의복이므로 속옷 모습이 될 때는 판정을 패스한다
IF ARG:1 == 0
	;원피스계는 베이비돌, 목욕타올 이외 불가
	SIF !GROUPMATCH( EQUIP:(ARG:0):원피스, 0, CLOTHES_ID("원피스","베이비돌"), CLOTHES_ID("원피스","목욕타올") )
		RETURNF 0

	;상반신윗도리1은 민소매 윗도리와 하쿠레이의 무녀옷 이외 불가
	SIF !GROUPMATCH( EQUIP:(ARG:0):상반신윗도리1, 0, CLOTHES_ID("상반신윗도리1","민소매 윗도리"), CLOTHES_ID("상반신윗도리1","하쿠레이의 무녀옷") )
		RETURNF 0

	;상반신윗도리2는 민소매 블라우스, 모리야의 무녀옷, 튜브 탑, 탱크 톱, 캐미숄 이외 불가
	SIF !GROUPMATCH( EQUIP:(ARG:0):상반신윗도리2, 0, CLOTHES_ID("상반신윗도리2","민소매 블라우스"), CLOTHES_ID("상반신윗도리2","모리야의 무녀옷"), CLOTHES_ID("상반신윗도리2","튜브 탑"), CLOTHES_ID("상반신윗도리2","탱크 톱"), CLOTHES_ID("상반신윗도리2","캐미숄") )
		RETURNF 0

	;기모노계는 모두 불가
	SIF EQUIP:(ARG:0):기모노
		RETURNF 0

	;외투는 모두 불가
	SIF EQUIP:(ARG:0):외투
		RETURNF 0
ENDIF

;이하는 「속옷 모습으로 한다」로 벗지 않기 때문에 반드시 판정한다

;레오타드계는 레오타드, 하이레그레오타드(적과 흙), 이너 슈트, 사슬갑옷의 어떤 것인가라면 불가
SIF GROUPMATCH( EQUIP:(ARG:0):레오타드, CLOTHES_ID("레오타드","레오타드"), CLOTHES_ID("레오타드","하이레그레오타드(빨강)"), CLOTHES_ID("레오타드","하이레그레오타드(흑)"), CLOTHES_ID("레오타드","이너 슈트"), CLOTHES_ID("레오타드","사슬갑옷") )
	RETURNF 0

;보디슈트계는 보디슈트이외 불가
SIF !GROUPMATCH( EQUIP:(ARG:0):보디슈트, 0, CLOTHES_ID("보디슈트","보디슈트") )
	RETURNF 0

;상반신속옷2는 컬러 셔츠만 불가
SIF EQUIP:(ARG:0):상반신속옷2 == CLOTHES_ID("상반신속옷2","컬러 셔츠")
	RETURNF 0

RETURNF 1

;### 액한판정용식중함수 ################
;ARG=캐릭터 번호
@K78_ARMPIT_SWEAT(ARG)
#FUNCTION

SIF ARG == 0
	ARG = TARGET

IF TCVAR:ARG:미약 > 0 || TCVAR:ARG:발정
	RETURNF 2
ELSEIF CFLAG:ARG:목욕탕 >= 2500 || ( DAY:2 == 2 && CFLAG:ARG:목욕탕 >= 1000 )
	RETURNF 1
ELSE
	RETURNF 0
ENDIF

;### 액한지미 판정용식중함수 ################
;현재의 의상으로 액한지미가 보이지만들 1을 돌려주어, 안보이면 0을 돌려준다
;의복이 추가되면(자) 요점 변경
;ARG=캐릭터 번호
@K78_SWEATY_UNDERARMS(ARG)
#FUNCTION

SIF ARG == 0
	ARG = TARGET

;액한이 없으면 안 돼
SIF !K78_ARMPIT_SWEAT(ARG)
	RETURNF 0

;겨드랑이가 노출하고 있으면(자) 안 돼
SIF K78_ARMPIT_EXPOSURE(ARG)
	RETURNF 0

;외투는 모두 안 돼
SIF EQUIP:ARG:외투
	RETURNF 0

;보디슈트계는 러버 슈트와 라이더 슈트라면 안 돼
SIF GROUPMATCH( EQUIP:ARG:보디슈트, CLOTHES_ID("보디슈트","러버 슈트"), CLOTHES_ID("보디슈트","라이더 슈트") )
	RETURNF 0

;기모노계는 기모노, 치하야, 유카타, 도복, 소복이라면 안 돼
SIF GROUPMATCH( EQUIP:ARG:기모노, CLOTHES_ID("기모노","기모노"), CLOTHES_ID("기모노","치하야"), CLOTHES_ID("기모노","유카타"), CLOTHES_ID("기모노","도복"), CLOTHES_ID("기모노","소복") )
	RETURNF 0

;상반신윗도리1은 윗도리, 블레이저 코트, 관복, 신관복이라면 안 돼
SIF GROUPMATCH( EQUIP:ARG:상반신윗도리1, CLOTHES_ID("상반신윗도리1","윗도리"), CLOTHES_ID("상반신윗도리1","블레이저 코트"), CLOTHES_ID("상반신윗도리1","관복"), CLOTHES_ID("상반신윗도리1","신관복") )
	RETURNF 0

;상반신윗도리2는 운동복 쟈켓, 도복, 코몬, 긴 일본옷, 흰 소매라면 안 돼
SIF GROUPMATCH( EQUIP:ARG:상반신윗도리2, CLOTHES_ID("상반신윗도리2","운동복 쟈켓"), CLOTHES_ID("상반신윗도리2","도복"), CLOTHES_ID("상반신윗도리2","코몬"), CLOTHES_ID("상반신윗도리2","긴 일본옷"), CLOTHES_ID("상반신윗도리2","흰 소매") )
	RETURNF 0

;레오타드계는 사슬갑옷만 안 돼
SIF EQUIP:ARG:레오타드== CLOTHES_ID("레오타드","사슬갑옷")
	RETURNF 0

;원피스계는 법의, 도사옷, 작업복, 인형이라면 안 돼
SIF GROUPMATCH( EQUIP:ARG:원피스, CLOTHES_ID("원피스","법의"), CLOTHES_ID("원피스","도사옷"), CLOTHES_ID("원피스","작업복"), CLOTHES_ID("원피스","인형탈") )
	RETURNF 0

RETURNF 1

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;이하, 체모 관계의 함수

;### 체모 변경용 메인 함수 ################
;제정신 또한 연모 or애욕이 있는 상태로 목욕탕에서 회화하면(자) 불려 간다
@K78_HAIR_TREATMENT
#DIM 음모or겨드랑이털 ;1=음모에 대해 2=겨드랑이 털에 임해서
#DIM CFL번호변환 ;CFLAG 번호용 0=음모 4=겨드랑이 털

$HAIR_TREATMENT_LOOP

CALL ASK_M("음모에 대해 부탁한다", 1, "겨드랑이 털에 임해서 부탁한다", 1, "보통으로 회화한다", 1)
IF RESULT < 2
	음모or겨드랑이털 = RESULT + 1
	CFL번호변환 = (음모or겨드랑이털 - 1) * 4
	;털 상태를 표시
	CALL K78_HAIR_STATUS, 음모or겨드랑이털
	;어느 털로 바꾸어 줄까 선택지
	IF 음모or겨드랑이털 == 1
		CALL ASK_M("반들반들로 하는", CFLAG:1004 != -2, "면도 후를 남기는", CFLAG:1004 != -1, "보통에 정돈하는", CFLAG:1004 != 0, "주렁주렁으로 하는", CFLAG:1004 != 1, "보 보로 하는", CFLAG:1004 != 2, "역시 그만둔다", 1)
		SIF RESULT == 5
			GOTO HAIR_TREATMENT_LOOP
		;어느 음모로 변경할지가 정해진다
		CFLAG:78:1004 = RESULT - 2
	ELSE
		CALL ASK_M("반들반들로 하는", CFLAG:1008 != 0, "면도 후를 남기는", CFLAG:1008 != 1, "주렁주렁으로 하는", CFLAG:1008 != 2, "보 보로 하는", CFLAG:1008 != 3, "역시 그만둔다", 1)
		SIF RESULT == 4
			GOTO HAIR_TREATMENT_LOOP
		;어느 겨드랑이 털로 변경할지가 정해진다
		CFLAG:78:1008 = RESULT
	ENDIF
	;털을 펴는 경우
	IF CFLAG:(1003 + CFL번호변환) < CFLAG:(1004 + CFL번호변환)
		;정경묘사
		CALL K78_HAIR_TREATMENT_DESCRIPTIVE_TEXTS, 음모or겨드랑이털, 1
		;털의 생장의 계산을 위해서(때문에) 현시점의 털 상태와 현시점의 총날짜를 보존
		CFLAG:78:(1005 + CFL번호변환) = CFLAG:(1003 + CFL번호변환)
		CFLAG:78:(1006 + CFL번호변환) = DAY:0
	;늘리는 것을 그만두어 현상 유지로 전환하는 경우
	ELSEIF CFLAG:(1003 + CFL번호변환) == CFLAG:(1004 + CFL번호변환)
		;정경묘사
		CALL K78_HAIR_TREATMENT_DESCRIPTIVE_TEXTS, 음모or겨드랑이털,-1
	;털을 깎는 경우
	ELSE
		;주인이 깎을까 조교 대상으로 깎게 할까 선택
		CALL ASK_YN(@"%마스터가% 깎는",@"%CALLNAME:TARGET%에 깎게 한다")
		;선택에 응해 정경묘사
		CALL K78_HAIR_TREATMENT_DESCRIPTIVE_TEXTS, 음모or겨드랑이털, (RESULT + 2)
		;깎을 때는 늘리는 경우와 달라 변경이 곧바로 반영된다
		CFLAG:78:(1003 + CFL번호변환) = CFLAG:(1004 + CFL번호변환)
	ENDIF
	RETURN 1
ENDIF

;「보통으로 회화한다」를 선택한 경우 돌아가 값을 0으로 해 통상의 회화 말로 이행한다
RETURN 0

;### 체모 상태 표시용 함수 ##################
;ARG 1=음모 2=겨드랑이 털
@K78_HAIR_STATUS, ARG

VARSET LOCALS
VARSET LOCAL

PRINTL
IF ARG == 1
	;음모 상태의 명칭을 설정(현재의 분과 목표의 분의 둘)
	FOR LOCAL, 0,2
		SELECTCASE CFLAG:TARGET:(1003 + LOCAL)
		CASE -2
			LOCALS:LOCAL = 깨끗이 반들반들
		CASE -1
			LOCALS:LOCAL = 면도 후 까끌까끌
		CASE 0
			LOCALS:LOCAL = 보통(Default)
		CASE 1
			LOCALS:LOCAL = 자연스러운 주렁주렁
		CASE 2
			LOCALS:LOCAL = 우둔한 보 보
		CASEELSE
			LOCALS:LOCAL = ※CFLAG:{TARGET}:{1003 + LOCAL}의 값이 부정※
		ENDSELECT
	NEXT
	;현재의 음모 상태를 표시한다. 지금 늘려 주고 있는 곳(중)이라면, 목표의 음모와 나고 올 때까지의 나머지 날짜도 표시한다.
	PRINTFORMDL 현재의 음모：%LOCALS:0%　　\@ CFLAG:1003 == CFLAG:1004 ?  당신의 지정：현재의 음모를 유지하는 # 당신의 지정：%LOCALS:1%　　나고 올 때까지 앞으로{(CFLAG:1004 - CFLAG:1005) * 2 - (DAY:0 - CFLAG:1006)}일 \@
ELSEIF ARG == 2
	;겨드랑이 털 상태의 명칭을 설정(현재의 분과 목표의 분의 둘)
	FOR LOCAL, 0,2
		SELECTCASE CFLAG:TARGET:(1007 + LOCAL)
		CASE 0
			LOCALS:LOCAL = 반들반들(Default)
		CASE 1
			LOCALS:LOCAL = 면도 후 까끌까끌
		CASE 2
			LOCALS:LOCAL = 자연스러운 주렁주렁
		CASE 3
			LOCALS:LOCAL = 우둔한 보 보
		CASEELSE
			LOCALS:LOCAL = ※CFLAG:{TARGET}:{1007 + LOCAL}의 값이 부정※
		ENDSELECT
	NEXT
	;현재의 겨드랑이 털 상태를 표시한다. 지금 늘려 주고 있는 곳(중)이라면, 목표의 겨드랑이 털과 나고 올 때까지의 나머지 날짜도 표시한다.
	PRINTFORMDL 현재의 겨드랑이 털：%LOCALS:0%　　\@ CFLAG:1007 == CFLAG:1008 ?  당신의 지정：현재의 겨드랑이 털을 유지하는 # 당신의 지정：%LOCALS:1%　　나고 올 때까지 앞으로{(CFLAG:1008 - CFLAG:1009) * 2 - (DAY:0 - CFLAG:1010)}일 \@
ENDIF
PRINTL

;### 체모 변경의 정경묘사용 함수 ##################
;ARG:0 1=음모 2=겨드랑이 털
;ARG:1 -1=늘리는 것을 그만두어 현상 유지로 전환하는 1=늘리는 2=주인이 깎는 3=조교 대상이 스스로 깎는다
@K78_HAIR_TREATMENT_DESCRIPTIVE_TEXTS, ARG:0, ARG:1

DRAWLINE

SIF FLAG:구상색
	TRYCALLFORM M_KOJO_COLOR_K{TARGET}

;음모 관계
IF ARG:0 == 1
	SELECTCASE ARG:1
	;현상 유지로 전환하는 경우
	CASE -1
		PRINTFORMDW 지금의 음모인 채로 있으면 좋겠다고 %CALLNAME:TARGET%에 부탁했다.
	;늘리는 경우
	CASE 1
		PRINTFORMD 음모를
		;지정한 음모에 의한 분기
		SELECTCASE CFLAG:1004
		CASE -1
			PRINTFORMD 까끌까끌로 한 감촉이 어느 정도에 길러
		CASE 0
			PRINTFORMD 매우 보통일 정도로 해
		CASE 1
			PRINTFORMD 그다지 손질 하지 않고 진하게 해
		CASE 2
			PRINTFORMD 더부룩이의 정글이 될 때까지 늘려
		ENDSELECT
		PRINTFORMDL 가지고 싶으면%CALLNAME:TARGET%에 부탁했다.
		PRINTW
		;대사 표시(늘리는 부탁)
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT, 1,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMDW 아무래도 나고 올 때까지{(CFLAG:1004 - CFLAG:1003) * 2}일 정도 걸리는 것 같다.
	;주인이 깎는 경우
	CASE 2
		PRINTFORMDL %CALLNAME:TARGET%에, 음모를 깎게 해 주지 않을까 부탁했다.
		PRINTW
		;대사 표시(깎게 해 주는 부탁)
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT, 1,2,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMD %마스터는%
		SELECTCASE RAND:3
		CASE 1
			PRINTFORMD 가에 가랑이가 된%CALLNAME:TARGET%의 가랑이아래에도 꾸물거려 넣으면(자),
		CASE 2
			PRINTFORMD 위를 향해 눕힌 %CALLNAME:TARGET%의 가랑이를 열면(자),
		CASEELSE
			PRINTFORMD 엎드린 자세로 된%CALLNAME:TARGET%의 국부를 들여다본다와
		ENDSELECT
		;체모전의 음모에 의한 분기
		SELECTCASE CFLAG:1003
		CASE -1
			PRINTFORMD 조금 프트프트와 나 있는 음모를
		CASE 0
			PRINTFORMD 깨끗하게 갖추어진 음모를
		CASE 1
			PRINTFORMD 손질 되지 않고 진하게 우거진 음모를
		CASE 2
			PRINTFORMD 항문의 주변까지 빽빽이 난 강모를
		ENDSELECT
		;체모 후의 음모에 의한 분기
		SELECTCASE CFLAG:1004
		CASE -2
			PRINTFORMDL 깎아 아이와 같은 매끌매끌한 고간으로 했다.
		CASE -1
			PRINTFORMDL 자신 취향의 면도 후가 남도록(듯이) 정성스럽게 깎았다.
		CASE 0
			PRINTFORMDL 깨끗이정돈해 주었다.
		CASE 1
			PRINTFORMDL 손질 했지만, 그런데도 아직 은밀한 곳을 가리는 털은 진하다.
		ENDSELECT
		PRINTW
		;대사 표시(MASTER가 깎은 뒤)
		TRYCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT, 1,2,2
	;조교 대상이 스스로 깎는 경우
	CASE 3
		PRINTFORMDL 음모를 깎는 것을 보이면 좋겠다고 %CALLNAME:TARGET%에 부탁했다.
		PRINTW
		;대사 표시(깎는 것을 보는 부탁)
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT, 1,3,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMD 게 둔 손 거울을 넘도록(듯이) 주저앉아 넣어,
		;체모전의 음모에 의한 분기
		SELECTCASE CFLAG:1003
		CASE -1
			PRINTFORMD 피부상에 약간 머리를 드러낸다 딱딱한 털을 깎는다
		CASE 0
			PRINTFORMD 음모를 깎는다
		CASE 1
			PRINTFORMD 음부를 가리는 좀 많은 털을 깎는다
		CASE 2
			PRINTFORMD 밀림과 같은 우울한 털에 손을 넣는다
		ENDSELECT
		PRINTFORMDL %CALLNAME:TARGET%의 모습에, %마스터는% 흥분을 느꼈다.
		PRINTW
		;대사 표시(TARGET가 깎은 뒤)
		TRYCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT, 1,3,2
	ENDSELECT
;겨드랑이 털 관계
ELSEIF ARG:0 == 2
	SELECTCASE ARG:1
	;현상 유지로 전환하는 경우
	CASE -1
		PRINTFORMDW 지금의 겨드랑이 털인 채로 있으면 좋겠다고 %CALLNAME:TARGET%에 부탁했다.
	;늘리는 경우
	CASE 1
		PRINTFORMD 겨드랑이 털을
		;지정한 겨드랑이 털에 의한 분기
		SELECTCASE CFLAG:1008
		CASE 1
			PRINTFORMD 깎아 나중에 어이들 물이 들 정도로로 해
		CASE 2
			PRINTFORMD 길러
		CASE 3
			PRINTFORMD 성장 마음껏으로 해
		ENDSELECT
		PRINTFORMDL 가지고 싶으면%CALLNAME:TARGET%에 부탁했다.
		PRINTW
		;대사 표시(늘리는 부탁)
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT, 2,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMDW 아무래도 나고 올 때까지{(CFLAG:1008 - CFLAG:1007) * 2}일 정도 걸리는 것 같다.
	;주인이 깎는 경우
	CASE 2
		PRINTFORMDL %CALLNAME:TARGET%에, 겨드랑이 털을 깎게 해 주지 않을까 부탁했다.
		PRINTW
		;대사 표시(깎게 해 주는 부탁)
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT, 2,2,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMD %마스터는% %CALLNAME:TARGET%에 팔을 들게 하면(자),
		;체모전의 겨드랑이 털에 의한 분기
		SELECTCASE CFLAG:1007
		CASE 1
			PRINTFORMD 까칠까칠 느껴지는 면도 잔재를
		CASE 2
			PRINTFORMD 겨드랑이 털을
		CASE 3
			PRINTFORMD 야무지지 못하게 성장하고 자른 겨드랑이 털을
		ENDSELECT
		;체모 후의 겨드랑이 털에 의한 분기
		SELECTCASE CFLAG:1008
		CASE 0
			PRINTFORMDL 완전하게 깎았다.
		CASE 1
			PRINTFORMDL 주의 깊게 깎아, 기호의 면도 후를 남겼다.
		CASE 2
			PRINTFORMDL 정돈했다. 그러나 아직 털은 남아 있다.
		ENDSELECT
		PRINTW
		;대사 표시(MASTER가 깎은 뒤)
		TRYCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT, 2,2,2
	;조교 대상이 스스로 깎는 경우
	CASE 3
		PRINTFORMDL 겨드랑이 털을 깎는 것을 보이면 좋겠다고 %CALLNAME:TARGET%에 부탁했다.
		PRINTW
		;대사 표시(깎는 것을 보는 부탁)
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT, 2,3,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMD %마스터는% %타겟이% 한쪽 팔을 들어
		;체모전의 겨드랑이 털에 의한 분기
		SELECTCASE CFLAG:1007
		CASE 1
			PRINTFORMD 겨드랑이의 헛일털을
		CASE 2
			PRINTFORMD 겨드랑이 털을
		CASE 3
			PRINTFORMD 겨드랑이의 강모를
		ENDSELECT
		PRINTFORMDL 깎는 모습을 거울 껴에 차분히 관찰했다.
		PRINTW
		;대사 표시(TARGET가 깎은 뒤)
		TRYCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT, 2,3,2
	ENDSELECT
ENDIF

;### 체모 변경의 대사용 함수 ##################
;ARG:0 1=음모 2=겨드랑이 털
;ARG:1 1=늘리는 2=주인이 깎는 3=조교 대상이 스스로 깎는다
;ARG:2 표시 타이밍 1=체모를 부탁했을 때 2=깎았을 때
@DIALOGUE_K78_HAIR_TREATMENT, ARG:0, ARG:1, ARG:2

;--------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;--------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;음모의 변경
	;기입 체크(=0, 비표시, 1, 표시)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:0 == 1
		;-------------------------------------------------
		;늘리는 부탁
		;기입 체크(=0, 비표시, 1, 표시)
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 1
			SELECTCASE CFLAG:1004
			CASE -1
				PRINTFORML 「주문이 세세하네요……」
			CASE 1
				PRINTFORML 「진한 것이 좋은거야?」
			CASE 2
				IF FIRSTTIME("음모를 보 보로 하는", 0,78)
					PRINTFORMDW %타겟은% 조금 꺼리고 있었지만, %CALLNAME:MASTER%의 끈질긴 부탁에 어떻게든 승낙해 주었다.
					PRINTFORMW 「그렇게 성장 마음껏인 것이 좋은거야…?  뭐, 뭐 나는 풍요의 신이고, 할 수 없지는 않지만……」
					PRINTFORMW 「도, 원래 진하지 않아요 임의 힘으로 기를 수 있는 없지는 않다고 말해」
					RETURN 1
				ENDIF
				PRINTFORML 「다시 망들로 하는 거야?  당신도 좋아하구나 …」
			ENDSELECT
			PRINTFORMW 「알겠어요. 그렇지만 시간이 걸린다고 생각하기 때문에, 기다려줘」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER가 깎는다
		;기입 체크(=0, 비표시, 1, 표시)
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 2
			;-------------------------------------------------
			;깎게 해 주는 부탁
			;기입 체크(=0, 비표시, 1, 표시)
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 1
				IF FIRSTTIME("주인에게 체모 되는(음모)", 0,78)
					PRINTFORMW 「저기의 털의 손질?  별로 상관없지만……. 네, 당신이 지금부터 깎는 거야?」
					PRINTFORMDW %마스터는% 부끄러워하는 %타겟을% 달래고 비워 두어, 체모에 착수했다.
					RETURN 1
				ENDIF
				PRINTFORML 「당신으로 해 주지 않아도, 스스로 할 수 있는데……」
				PRINTFORMDL %마스터는% %CALLNAME:TARGET%의 말을 들은체 만체 해, 음부의 체모에 착수했다.
				RETURN 1
			ENDIF
			;-------------------------------------------------
			;MASTER가 깎은 뒤
			;기입 체크(=0, 비표시, 1, 표시)
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 2
				SELECTCASE CFLAG:1004
				CASE -2
					PRINTFORMW 「깨끗이 우수리하지만, 어쩐지 초조해요」
				CASE -1
					PRINTFORMW 「까끌까끌 하고 있어 이상한 감촉」
				CASE 0
					PRINTFORMW 「응, 좋아요. 깎는 것 능숙하구나」
				CASE 1
					PRINTFORMW 「과연 너무 진했는지」
				ENDSELECT
				RETURN 1
			ENDIF
		ENDIF
		;-------------------------------------------------
		;TARGET가 깎는다
		;기입 체크(=0, 비표시, 1, 표시)
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 3
			;-------------------------------------------------
			;깎는 것을 보는 부탁
			;기입 체크(=0, 비표시, 1, 표시)
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 1
				IF FIRSTTIME("스스로 체모 하는(음모)", 0,78)
					PRINTFORMW 「저기의 털을 깎는 곳(중)을 보고 싶어?  싫어요. 창피하잖아」
					PRINTFORMDW %마스터는% 싫어하는 %타겟을% 필사적으로 설득했다.
					PRINTFORMW 「아, 알겠어요. ……하아, 이런 건 무엇이 재미있는거야?」
					RETURN 1
				ENDIF
				PRINTFORML 「다시 볼 생각?  뭐 좋아요. 빨리 해 치우기 때문에」
				RETURN 1
			ENDIF
			;-------------------------------------------------
			;TARGET가 깎은 뒤
			;기입 체크(=0, 비표시, 1, 표시)
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 2
				PRINTFORML 「예, 깎았어요. 이것으로 좋아?」
				PRINTFORMW 「완전히. 이런 것에는 이상하게 시끄럽기 때문에」
				RETURN 1
			ENDIF
		ENDIF
	ENDIF
	;-------------------------------------------------
	;겨드랑이 털의 변경
	;기입 체크(=0, 비표시, 1, 표시)
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:0 == 2
		;-------------------------------------------------
		;늘리는 부탁
		;기입 체크(=0, 비표시, 1, 표시)
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 1
			IF FIRSTTIME("겨드랑이 털을 기르는", 0,78)
				PRINTFORMW 「겨드랑이 털?  그러한 것이 좋아해?」
				PRINTFORMW 「으응~,\@ FLAG:역극 == 77 ? 다른 아이 #언니(누나)와 인가 \@로 보여지면 부끄러운데…」
				PRINTFORMDW 꺼리는 %CALLNAME:TARGET%에 %마스터는% 물고 늘어져 부탁했다.
				PRINTFORMW 「그, 그런에 기르기를 원하는거야?  %마스터가% 거기까지 말한다면…」
				RETURN 1
			ENDIF
			SELECTCASE CFLAG:1008
			CASE 1
				PRINTFORML 「했던 것이 좋아?  뭐야 그 이상한 조건은……」
			CASE 2
				PRINTFORML 「역시 기르는 것은 부끄럽지만…」
			CASE 3
				PRINTFORML 「망들이 좋다니 바뀌어…」
			ENDSELECT
			PRINTFORMW 「뭐 좋아요. 조금 시간이 걸린다고 생각하기 때문에, 기다려줘」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER가 깎는다
		;기입 체크(=0, 비표시, 1, 표시)
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 2
			;-------------------------------------------------
			;깎게 해 주는 부탁
			;기입 체크(=0, 비표시, 1, 표시)
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 1
				IF FIRSTTIME("주인에게 체모 되는(겨드랑이 털)", 0,78)
					PRINTFORMW 「겨드랑이 털을 깎고 싶다고…… 정말로 이상한 사람」
					PRINTFORMDW %CALLNAME:TARGET%에 기가 막힐 수 있는이면서 겨드랑이의 체모에 착수했다.
					PRINTFORMW 「당신의 얼굴이 가깝고……조금 부끄러울지도…」
					RETURN 1
				ENDIF
				PRINTFORML 「예, 예 또 깎군요」
				PRINTFORMDL %타겟은% 단념한 것 같은 표정으로 겨드랑이를 드러냈다.
				RETURN 1
			ENDIF
			;-------------------------------------------------
			;MASTER가 깎은 뒤
			;기입 체크(=0, 비표시, 1, 표시)
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 2
				SELECTCASE CFLAG:1008
				CASE 0
					PRINTFORMW 「응, 깨끗이」
				CASE 1
					PRINTFORMW 「깎다가 남겨……다른 아이에게 야무지지 못하다고 생각되어버린다」
				CASE 2
					PRINTFORMW 「좀 더 깎아 주어도 좋지만」
				ENDSELECT
				RETURN 1
			ENDIF
		ENDIF
		;-------------------------------------------------
		;TARGET가 깎는다
		;기입 체크(=0, 비표시, 1, 표시)
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 3
			;-------------------------------------------------
			;깎는 것을 보는 부탁
			;기입 체크(=0, 비표시, 1, 표시)
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 1
				IF FIRSTTIME("스스로 체모 하는(겨드랑이 털)", 0,78)
					PRINTFORMW 「다시 이상한 일 말하기 시작하며……」
					PRINTFORMW 「…좋지만 별로 즐거운 것이 아니어요」
					RETURN 1
				ENDIF
				PRINTFORML 「보는 것은 좋지만 방해 하지 말아줘」
				RETURN 1
			ENDIF
			;-------------------------------------------------
			;TARGET가 깎은 뒤
			;기입 체크(=0, 비표시, 1, 표시)
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 2
				PRINTFORML 「예 , 마지막」
				PRINTFORMW 「%CALLNAME:MASTER%, 쭉 봐 보고 싶지만, 자주(잘) 질리지 않네요」
				RETURN 1
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1

;### 체모 생장 처리용 함수 ##################
;만남, 기상, 엇갈림의 말로 불려 간다
;ARG=캐릭터 번호(생략 불가)
@K78_HAIR_GROWTH, ARG

FOR LOCAL, 0,8,4
	;현재의 체모가 목표의 체모에 못 미친 경우, 경과일수에 응한 증가 후의 값을 계산해 현재의 체모에 대입한다
	IF CFLAG:ARG:(1003 + LOCAL) < CFLAG:ARG:(1004 + LOCAL)
		CFLAG:ARG:(1003 + LOCAL) = CFLAG:ARG:(1005 + LOCAL) + (DAY:0 - CFLAG:ARG:(1006 + LOCAL)) / 2
		;목표의 체모를 넘을 것은 없다
		SIF CFLAG:ARG:(1003 + LOCAL) > CFLAG:ARG:(1004 + LOCAL)
			CFLAG:ARG:(1003 + LOCAL) = CFLAG:ARG:(1004 + LOCAL)
	ENDIF
NEXT

;### 음모 묘사용식중함수 ##################
;ARG=캐릭터 번호
@K78_GENITAL_HAIR_MODIFIER(ARG)
#FUNCTIONS

VARSET LOCALS

SIF ARG == 0
	ARG = TARGET

SELECTCASE CFLAG:ARG:1003
CASE -2
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 무모의
	CASE 2
		LOCALS = 아이와 같이 반들반들의
	CASEELSE
		LOCALS = 털이 나지 않았다
	ENDSELECT
CASE -1
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 나고 내기의 털로 투덜투덜의
	CASE 2
		LOCALS = 한 털이 났다
	CASEELSE
		LOCALS = 면도 잔재의 털이 있다
	ENDSELECT
CASE 0
	LOCALS =
CASE 1
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 털의 진하다
	CASE 2
		LOCALS = 털이 좀 많은
	CASEELSE
		LOCALS = 털이 많다
	ENDSELECT
CASE 2
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 밀림아래의
	CASE 2
		LOCALS = 강모에 숨어 거의 안보인다
	CASEELSE
		LOCALS = 모쟈모쟈의 곱슬머리에 덮였다
	ENDSELECT
CASEELSE
	LOCALS = ※CFLAG:{ARG}:1003의 값이 부정※
ENDSELECT

RETURNF LOCALS

;### 겨드랑이 털 묘사용식중함수 ##################
;ARG=캐릭터 번호
@K78_ARMPIT_HAIR_MODIFIER(ARG)
#FUNCTIONS

VARSET LOCALS

SIF ARG == 0
	ARG = TARGET

SELECTCASE CFLAG:ARG:1007
CASE 0
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 매끌매끌한
	CASE 2
		LOCALS = 반들반들의
	CASEELSE
		LOCALS = 매끈매끈한
	ENDSELECT
CASE 1
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 희미하게 털로 물이 든다
	CASE 2
		LOCALS = 손질의 달다
	CASEELSE
		LOCALS = 면도 후가 남는다
	ENDSELECT
CASE 2
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 털이 났다
	CASE 2
		LOCALS = 가볍게 한 털이 있다
	CASEELSE
		LOCALS = 털을 처리하고 있지 않다
	ENDSELECT
CASE 3
	SELECTCASE RAND:4
	CASE 1
		LOCALS = 털이 성장 마음껏의
	CASE 2
		LOCALS = 페로몬을 풀어 놓는 것 같은 털이 많다
	CASE 3
		LOCALS = 풍부한 털에 덮였다
	CASEELSE
		LOCALS = 털이 보 보의
	ENDSELECT
CASEELSE
	LOCALS = ※CFLAG:{ARG}:1007의 값이 부정※
ENDSELECT

RETURNF LOCALS

path: ERB/대사_메시지관련/개인대사/078 미노리코/M_KOJO_K78_고유함수_t.ERB