code:
;==================================================
;오토 신음소리 구상（참치）
;구상 어떻게해도 도저히 생각이 안나서 AUTO_AEGI 개변함수
;입위・감도 등을 무시하고 모순되지 않는 신음소리를 만드는 것을 목표로
@K30_GASPING_MAGURO
;--------------------------------------------------
#DIM 상황
#DIM 심신상실
#DIM 너무해
#DIM TEMP
#DIM TEMP2
심신상실 = 0
너무해 = 0
TEMP = 0
TEMP2 = 0
SIF !CFLAG:30:우후후
	RETURN 0
;노말참치
상황 = 0
;섹프
SIF TALENT:애욕 || TALENT:섹프 || TALENT:걸레
	상황 = 4
;만취참치
IF TCVAR:만취
	상황 = 5
	심신상실 =1
ENDIF
;수면참치
IF CFLAG:수면
	상황 = 9
	심신상실 =1
ENDIF
;키스시
SIF GROUPMATCH(SELECTCOM, 19, 20)
	상황 = 1
;펠라시
SIF GROUPMATCH(SELECTCOM, 81, 88, 89, 140, 501, 505, 508, 509, 512)
	상황 = 2
;개별 처리시(약
SIF GROUPMATCH(SELECTCOM, 50, 51, 180, 181, 182, 192)
	상황 = 6
;SM계(SOURCE 안들어감)시
SIF GROUPMATCH(SELECTCOM, 100, 104, 105, 107)
	상황 = 7
;봉사(츄파 소리 없음)시
SIF GROUPMATCH(SELECTCOM, 80, 82, 83, 84, 85, 510, 511)
	상황 = 8
;A관련
SIF GROUPMATCH(SELECTCOM, 4, 5, 13, 45, 62, 63, 66, 69, 70, 71, 74, 75, 514, 515)
	상황 = 3
PRINTFORM 「
SIF TCVAR:억지로
	PRINTFORM %TEXTR("그만/싫어/안돼/그만해")%! …
;섹프, 심신상실, 약, SM은 반드시 처음에 한마디
IF (RAND:2 == 0 || GROUPMATCH(상황, 4, 6, 7) || 심신상실) && !TCVAR:억지로
	CALL K30_GASPING_RAND(상황)
	;SM는 한마디로 처리 종료
	SIF 상황 == 7
		RETURN 1
	TEMP = 1
ENDIF
;행중의 처리
REPEAT 5 + RAND:2
	SELECTCASE 상황
	;키스・펠라는 츄팟 소리
	;심신상실・억지로시는 빈도 절반
		CASE 1, 2
			IF (RAND:2 == 1 && !(심신상실 || TCVAR:억지로)) || (RAND:4 == 1 && (심신상실 || TCVAR:억지로))
				IF 상황 == 1
					PRINTFORM …%TEXTR("으응읏/할짝/아므읍/츄르릇/응읍")%
				ELSE
					PRINTFORM …%TEXTR("응브읍/쥬브읍/쥬르릇/즈븝/쥬풋")%
				ENDIF
				SIF PALAM:30:욕정 > PALAMLV:7 && !TCVAR:억지로 && RAND:3 != 1
					PRINTFORM ♥
			ELSE
				PRINT …
			ENDIF
	;보통은 거부스러운 목소리, 준강제추행은 잠꼬대 같은 것을・연인 동반은 긍정을 각각 2회까지
		CASE 0, 4, 5, 9
			IF TEMP2 < 3 && !TCVAR:억지로
				IF RAND:3 == 1
					TEMP2 ++
					IF TCVAR:만취
						PRINTFORM ……%TEXTR("응후후/으～응/아응읏/응으으으/히으읏")%
					ELSEIF CFLAG:수면
						PRINTFORM ……%TEXTR("후냐앗/아후으읏/응읏/아앙앗/응으응")%
					ELSEIF 상황 == 4 || TALENT:연모
						PRINTFORM ……%TEXTR("기분 좋은거/거기/아아/조아앗/아앙/시럿")%
						IF (PALAM:30:욕정 > PALAMLV:3 && RAND:3 == 1) || (PALAM:30:욕정 > PALAMLV:5 && RAND:3 != 1)
							PRINTFORM
						ENDIF
						IF PALAM:30:욕정 > PALAMLV:6
							SIF RAND:2 == 1
								CALL HPH_PRINT(@"HPH　")
						ELSEIF PALAM:30:욕정 > PALAMLV:3 && RAND:3 != 1
							PRINTFORM ♥
						ENDIF
					ELSE
						PRINTFORM ……%TEXTR("아니야앗/안대/이상해앳/느낀 적은/시러/이상해")%
						IF (PALAM:30:욕정 > PALAMLV:2 && RAND:3 == 1) || PALAM:30:욕정 > PALAMLV:6
							PRINTFORM
						ENDIF
						IF PALAM:30:욕정 > PALAMLV:9
							SIF RAND:4 == 1
								CALL HPH_PRINT(@"HPH　")
						ELSEIF PALAM:30:욕정 > PALAMLV:5 && RAND:3 == 1
							PRINTFORM ♥
						ENDIF
					ENDIF
				ELSE
					PRINT …
				ENDIF
			ELSE
				PRINT …
			ENDIF
	;다른 것은 무언
		CASEELSE
			PRINT …
	ENDSELECT
REND
IF TEMP == 0
	;억지로・약 먹었을 때는 어미에 한마디만, 나머지는 어느 쪽엔가 한마디만 CFLAG:1600 억지로 구상 반영 플래그
	IF TCVAR:억지로
		CFLAG:1600 = 1
	;억지로 일때는 피임
		SIF (SELECTCOM == 51 || TEQUIP:PLAYER:콘돔) && TCVAR:30:기다리지않다 == 1
			PRINTFORM %TEXTR("뭐가 하고싶은거야…/의미를 모르겠어…/장난 치지마…/무슨 생각하는거야…")%
		PRINTFORM %TEXTR("…정말…그만해앳/…너무해/…이제 됐잖아/…믿고 있었는데/…적당히해앳/…만지지마앗")%
	ELSE
		CALL K30_GASPING_RAND(상황)
	ENDIF
ENDIF
PRINTFORMW 」
PRINTFORML
;MASTER 절정직전
IF NOWEX:MASTER:11 && !심신상실
	;억지로 피임 없이 질싸
	IF TCVAR:억지로 && !TCVAR:30:피임약 && TEQUIP:PLAYER:콘돔 == 0 && TCVAR:PLAYER:2 == 1
		;염마님의 벌은 준비중
		SETBIT CFLAG:1800, 0
		너무해 ++
		PRINTDATA
			DATAFORM 「기다려…부탁이야……
			DATAFORM 「싫어, 싫어……
			DATAFORM 「그만해!! 빼줘어!! ……
			DATAFORM 「안은! 안에는 안돼!! ……
		ENDDATA
		SELECTCASE 너무해
			CASE 1
				PRINTFORM %TEXTR("이제…그만해/생겨버리니까…그만해/정말…그만해")%………
			CASEELSE
				PRINTFORM %TEXTR("이제…용서해줘…/…이제…더 이상 싫어…/부탁이야…그만해…")%………
		ENDSELECT
		PRINTFORML %TEXTR("그만해애애애애/싫어어어어어!!/안돼애애애!!/아아아아아아!")%!」
	ELSEIF 상황 == 2
		SIF EXP:30:정음경험 < 20 && !TALENT:연모
			PRINTFORMW （%TEXTR("나중에 토해내자…/마시기 싫은데…/밖에다 싸줘…")%）
	ENDIF
;절정직전
ELSEIF (NOWEX:C절정 || NOWEX:V절정 || NOWEX:A절정 || NOWEX:B절정 ) && !심신상실 && !GROUPMATCH(상황, 1, 2, 8)
	PRINTFORMDW 에이키는 절정을 참으려는 듯이 %TEXTR("몸을 떨고있다/머리를 흔들고 있다/입을 막고 있다/가슴을 끌어안고 있다/눈을 꼭 감고 있다")%……
	;섹프에겐 어쩐지 분하다(ry한 부추김을 넣는다.
	IF 상황 == 4
		PRINTDATADW
			DATAFORM 하지만 육욕에 빠진 몸은 절정으로 쉽게 떠내려간다……
			DATAFORM 그러나 몸에 아로새겨진 암컷의 기쁨이 약간의 저항을 물리친다……
			DATAFORM 그런 저항을 비웃기라도 하듯 거역할 수 없는 쾌락이 에이키의 안쪽에서 솟아오른다……
			DATAFORM 그러나 절정에 거역함으로써 보다 감미로운 쾌락이 에이키를 불러들인다……
			DATAFORM 하지만 그것도 발버둥에 지나지 않고 억누름으로써 오히려 부풀어오른 쾌감이 에이키를 덮친다……
		ENDDATA
	ENDIF
ENDIF
RETURN 1
;==================================================
;참치 신음 표시
@K30_GASPING_RAND(ARG)
;--------------------------------------------------
#DIM TEMP2
TEMP2 = ARG
SELECTCASE TEMP2
;노멀땐 긍정 부정 반반
	CASE 0
		PRINTFORM %TEXTR("아아/아앙/히잇/시러/싫어/그만")%
		SIF PALAM:30:욕정 > PALAMLV:8 && RAND:2 == 1
			PRINTFORM
		SIF PALAM:30:욕정 > PALAMLV:5 && RAND:2 == 1
			PRINTFORM ♥
;키스・펠라는 츄팟 소리
	CASE 1
		PRINTFORM %TEXTR("츄웃/할짝/아므읍/츄우/응믑")%
		SIF PALAM:30:욕정 > PALAMLV:7 && RAND:2 == 1
			PRINTFORM ♥
	CASE 2
		PRINTFORM %TEXTR("응브읍/쥬브읍/쥬르릇/즈븝/쥬풋")%
		SIF PALAM:30:욕정 > PALAMLV:7 && RAND:2 == 1
			PRINTFORM ♥
;A약점이니 잔뜩
	CASE 3
		PRINTFORM %TEXTR("아앙앗/안대앳/거긴잇/아하앗/시러엇/엉덩이잇")%
		IF PALAM:30:욕정 > PALAMLV:7 && RAND:2 == 1
			CALL HPH_PRINT(@"HPH　")
			SIF PALAM:30:욕정 > PALAMLV:9
				CALL HPH_PRINT(@"HPH　")
		ELSEIF PALAM:30:욕정 > PALAMLV:4 && RAND:2 == 1
			PRINTFORM ♥
		ENDIF
;섹프、만취 시는 긍정만, 하트 잔뜩
	CASE 4, 5
		PRINTFORM %TEXTR("햐아앗/아앙/히아/응아/히으/으응/시러/아아/하아아")%
		SIF PALAM:30:욕정 > PALAMLV:4 && !RAND:3 == 1
			PRINTFORM
		SIF PALAM:30:욕정 > PALAMLV:7 && RAND:2 == 1
			CALL HPH_PRINT(@"HPH　")
		SIF PALAM:30:욕정 > PALAMLV:9
			CALL HPH_PRINT(@"HPH　")
;약 먹음＠여기라든가 개별적인 것이 어떻게 생각해도 좋겠지. 다음에 또 함.
	CASE 6
		IF TCVAR:만취 || CFLAG:수면
		ELSE
			SELECTCASE SELECTCOM
				CASE 50, 51
					IF TCVAR:억지로
					ELSE
						PRINTFORM %TEXTR("감사합니다/안심했어/부탁드려요")%
					ENDIF
				CASEELSE
					PRINTFORM %TEXTR("무슨 짓을 하는거야/이상한 건 쓰지마/뭔가…이상해…")%
			ENDSELECT
		ENDIF
;SM시＠여기도 개별이다. 다음에 또
	CASE 7
		;스팽킹
		IF SELECTCOM == 100
			IF TCVAR:만취
				PRINTFORML %TEXTR("아파…앗…/싫～어～/시러엇…/그만…해…")%……」
			ELSE
				PRINTFORML %TEXTR("아파/싫어/아얏")%! ……%TEXTR("무슨 짓을 하는거야/부탁이야…그만해/그만해…때리지 마")%………」
			ENDIF
		;그 외
		ELSE
			IF TCVAR:만취
				PRINTFORML %TEXTR("으응읏/응～/으～응")%……」
			ELSE
				PRINTFORML %TEXTR("무서워…/무슨 짓을 하는거야/심한 짓은…그만해")%………」
			ENDIF
		ENDIF
;봉사(츄파 소리 없음)시
	CASE 8
		IF TCVAR:만취
			PRINTFORM %TEXTR("응～?/뭐～야～?/딱딱…해? /끈적…끈적?")%
		ELSEIF CFLAG:수면
			PRINTFORM %TEXTR("으응읏/응ー? /으ー응/응읏으으읏")%
		ELSE
			PRINTDATA
				DATAFORM 이걸로 됐나요
				DATAFORM 이걸로 만족했나요
				DATAFORM 이렇게 하면 되나요
				DATAFORM 이렇게 움직이면 되는 건가요
				DATAFORM 이런 느낌인가요
			ENDDATA
		ENDIF
ENDSELECT
RETURN 0
;==================================================
;아침펠라＆아침 우후후
;비록 구문이 지저분해도 바탕글과 맞지 않아도 좋아하는 상황이라서 쓴다
;좋아하는 상황이므로 점점 바리에이션이 증가한다.
@K30_CHECK_MORNING_UFUFU
#DIM S_VAL
#DIM PREG
#DIM BUNKI
#DIM CUM
#DIMS 台詞
#DIMS 표정
LOCAL = 0
;--------------------------------------------------
;조교사가 남자 아니면 후타나리여야 함
SIF !(TALENT:PLAYER:2 & 2)
	RETURN 1
;에이키님의 일하는 시간 전이 아니면 안 돼
SIF TIME > 529
	RETURN 1
;반발각인 소지, 빡침은 안 돼
SIF MARK:30:반발각인 >= 1  || CFLAG:318 == 1
	RETURN 1
;연모가 아니면 안 돼
SIF !TALENT:연모
	RETURN 1
;(만약을 위해)완전히 둘만 아니면 안 돼
SIF K30_BE_SEEN()
	RETURN 1
;우후후 해금이 아니면 안 돼
SIF !GETBIT(CFLAG:기정사실, 1)
	RETURN 1
;어느 정도 경험이 있어야 돼
SIF ABL:정액중독 < 2
	RETURN 1
;임신생활 조건이 갖추어져 있다면 반드시 졸라대러 온다
IF (TALENT:임신소망 || GETBIT(CFLAG:1502, 4)) && ESTRUS_CYCLE(30) >= 100 && TALENT:MASTER:농후정액
	S_VAL = 1000
	GOTO BEG
ENDIF
;전날 같은 방에서 자위 → 일 쉬는 날이면 GO 사인. 업무일이면 판정 없음 종료
IF CFLAG:1603 == 3
	IF DAY % 2 == 1
		S_VAL = 999
		GOTO BEG
	ELSE
		RETURN
	ENDIF
ENDIF
;임신 중의 성교 제한 기간 → 일 쉬는 날이면 기분 안좋이 아니면 반드시 실행. 업무일이면 판정 없음 종료
PREG = TALENT:임신 && !INRANGE(CFLAG:임신경과일수, 31, 70)
IF PREG
	IF DAY % 2 == 1 && TALENT:기분 > -1
		GOTO SUCK
	ELSE
		RETURN
	ENDIF
ENDIF
;욕구불만도와 정액중독을 본다
S_VAL = CFLAG:30:욕구불만도 / 50 + MIN(ABL:30:정액중독, 25) * 2 / 3
;욕구불만도가 30%이면 확률감소
SIF CFLAG:30:욕구불만도 < 300
	S_VAL -= (30 - CFLAG:30:욕구불만도 / 10)
;이런 소질 붙이면 화려하게 보너스
SIF TALENT:30:정애미각
	S_VAL += 33
;쌓여 있으면 맡는다
SIF TALENT:MASTER:농후정액
	S_VAL += 20
;최저 보증 5%
SIF S_VAL < 4
	S_VAL = 4
SIF RAND:100 > S_VAL
	RETURN
$BEG
;여기까지 빠지면 실행. 언짢음 해소
TALENT:기분 = TALENT:기분 >= 0 ? 1 # 0
TCVAR:30:372 = 0
;아침 우후후의 조건 = 일 휴식, 질내사정 OK인 날, 약점이 없음, 정액중독 5이상, 어느 정도 쌓임 or 임신 생활일 or GO 사인이 나왔음
;YM의 잠에서 깨어날 기승위 이런 거 좋지. 근데 TW면 이 뒤에 복장 처리가 들어가니까 직접 들어갈 수는 없다
IF DAY % 2 == 1 && (CFLAG:30:욕구불만도 > 333 || GROUPMATCH(S_VAL, 1000, 999)) && !CFLAG:30:약점잡음&& ABL:30:정액중독 > 4 && !K30_CREAMPIE()
	LOCAL = CFLAG:욕구불만도 / 10
	;임신 활동 최적일(위험일 주변 활 농후정액)
	IF S_VAL == 1000
		BUNKI = 1
	;GO사인(전날 같은 방을 자위하고 있었다)
	ELSEIF S_VAL == 999
		BUNKI = 2
	;임신소망없음
	ELSEIF !(TALENT:임신소망 || GETBIT(CFLAG:1502, 4))
		BUNKI = 3
	;임신소망있고 위험일 주변이면 확률
	ELSEIF ESTRUS_CYCLE(30) >= 100 && S_VAL >= RAND:(MIN(100, 150 - LOCAL))
		BUNKI = 4
	;임신소망뿐이라면 고확률로 기울인다
	ELSEIF S_VAL >= RAND:(MIN(150, 200 - LOCAL))
		BUNKI = 5
	ELSE
		GOTO SUCK
	ENDIF
	;함수 수식어, 다음 번 카운터 달성값을 위해 파라미터를 상향
	BASE:MASTER:발기 = 1500
	PALAM:윤활 = PALAMLV:4
	PALAM:욕정 = PALAMLV:5
	PRINTFORMDW 사타구니가 묘하게 근질근질하다. 이래서는 도저히 누워 있을 수 없다…
	PRINTFORMW
	PRINTFORMDL 눈을 떠보니 왠지 에이키가 %CALLNAME:MASTER%의 위에 올라타고 있다
	PRINTFORMDW %마스터가% 일어난 것을 깨닫고 빙긋 미소를 지어 주었다
	PRINTFORMD ……거기까지는 좋은데, 어째서 에이키는
	PRINTDATADW LOCAL
		DATAFORM %조사처리(EXPR_VAR("CROTCH"),"를")% 아침 발기한 텐트에 비벼대고 있는 것일까
		DATAFORM 팬티 너머로 우뚝 솟은 %조사처리(TEXTR("페니스/음경/육봉/물건/자지/남근/좆대"),"를")% 문지르고 있는 것일까
	ENDDATA
	SIF LOCAL
		PRINTFORMDW 게다가 다른 한 손은 자신의 %조사처리(EXPR_VAR("CROTCH"),"를")% 만지작거리고 있다…
	PRINTFORML 「%K30_GREETING_EIKI()%, %K30_C_NAME(MASTER)%」
	PRINTFORML 「…뭐하는 거냐고, 물으셨나요?」
	PRINTFORML 「후훗, 보시는 대로예요…이제부터 할 일을 준비 중이에요…♥」
	PRINTFORMDW 이쪽으로 미소를 던지는 에이키의 눈에는 벌써 정욕의 불길이 어른거리고 있다…
	PRINTFORML
	IF !LOCAL
		PRINTFORMDW 에이키는 %CALLNAME:MASTER%의 귓가에 입을 대고 뜨거운 숨결과 함께 속삭여 왔다
	ELSE
		PRINTFORMDW 에이키는 일단 %조사처리(TEXTR("페니스/음경/육봉/물건/자지/남근/좆대"),"를")% 가쁜 손길을 멈추고, 거친 숨결과 함께 %CALLNAME:MASTER%에게 속삭여 왔다
	ENDIF
	SELECTCASE BUNKI
		CASE 1
			PRINTFORML 「……계획을 세우고, 당신과 하는 것도 계속 기다리고 있었지만」
			PRINTFORML 「이제 참는 것도 오늘로 끝――아니, 이제 제가 못 참겠어요…」
			PRINTFORMW 「저희들의 아이…지금부터, 지금 당장……만들지 않으실래요♥」
		CASE 2
			PRINTFORML 「……저 알고 있어요. 어젯밤…당신이 잠자코 보고 있었던 것」
			PRINTFORML 「정말 심한 사람이네요… 남겨진 저를 보는게 즐거우셨나요?」
			PRINTFORML 「이쪽은 전혀 즐겁지 않았어……네, 여러 가지로 쌓이고말고요」
			PRINTFORMW 「그러니까 지금부터 하는 건 나의 분풀이. %K30_C_NAME(MASTER)%……이젠 놓치지 않겠어요♥」
		CASE 3
			PRINTFORML 「……있잖아, 언제라도 만날 수 있는 거리에 있는데…내버려 두다니 무슨 생각이야?」
			PRINTFORML 「정말 너무한 사람……당신에게는 달리 믿을 만한 것이 있을지도 모르지만」
			PRINTFORMW 「내게는 %K30_C_NAME(MASTER)%뿐이야……제대로 알고 있는 건가요♥」
		CASE 4
			PRINTFORML 「……날짜를 계산하면, 나……오늘이 마침 가능한 날이야」
			PRINTFORML 「이 염마의 몸으로… 아이를 \@ TALENT:임신소망 ? 가지는 건 솔직히 어려울 # 몇 명이나 가지는 건, 기적이라도 일어나지 않으면 무리일 \@지도 모르지만」
			PRINTFORML 「그래도 잔뜩 당신에게 사랑을 받는다면, 잔뜩 쏟아준다면…」
			PRINTFORMW 「혹시나하고, 그런 생각은 하지 않으셨나요…♥」
		CASE 5
			PRINTFORML 「……미안해요. 사실 날짜를 생각하면 제가 참아야 하지만」
			PRINTFORML 「조금, 이제…무리인 것 같아. 몸이 애절해져서, 이젠 어쩔 수 없어요」
			PRINTFORMW 「제 마음도, 몸도, ……소중한 곳도, 당신을 원해서…어떻게 해서든 갖고 싶어서 참을 수가 없어…♥」
	ENDSELECT
	IF !LOCAL
		PRINTFORMDL 속삭이는 사이에도 에이키의 허리는 외설적인 그라인드를 쉴 새 없이 계속하고 있다
		PRINTFORMDL %SLIT(30, 1)%에서 더욱 더 %TEXTR("보짓물/음란한 즙/애액/")%이 흘러넘쳐, 서로의 옷에 얼룩을 자아냈다…
	ELSE
		PRINTFORMDL 속삭이는 사이에도 에이키는 %조사처리(EXPR_VAR("VULVA"),"를")% 만지작거리는 손만은 전혀 쉬지 않았다
		PRINTFORMDL 이미 서로의 속옷은 쿠퍼액과 %조사처리(TEXTR("보짓물/음란한 즙/애액/"),"으로")% 부끄러운 얼룩을 만들고 있다…
	ENDIF
	PRINTFORMW
	PRINTFORML 「오늘은 일도 쉬는 날입니다. 시간은 많으니까…」
	PRINTFORML 「몇번이나…무슨 일이 있어도 괜찮은 날. 누구에게도 방해받지 않을거야」
	PRINTFORMW 「이대로, 좋을대로 하도록 할게요…♥」
	PRINTFORMDL 에이키는 눈동자에 하트 마크를 띄운 채로 %CALLNAME:MASTER%에게 다가왔다
	PRINTFORMDW 이건 이제 도망갈 수가 없다. 염마님의 말대로 할 수밖에 없을 것 같다…
	;우후후하게 들어가는 처리 패러미터에 게다를 신겨 달래서 종료할 수 없도록 한다
	CFLAG:30:욕구불만도 = MAX(CFLAG:30:욕구불만도, 800)
	CFLAG:MASTER:우후후 = 2
	CFLAG:30:우후후 = 2
	UFUFU_START_TIME = TIME
	UFUFU_START_DAY = DAY
	BASE:30:무드 = 1200
	BASE:30:이성 = 100
	CFLAG:30:동행 = 60
	CFLAG:MASTER:동행 = 60
	CFLAG:30:데일리 = 0
	CFLAG:30:동실 = 1
	;지문과 연결되어 고려하여 다음 번 행동을 고정
	TCVAR:30:차회카운터 = 51
	;아침 우후후 개시 플래그
	TCVAR:30:363 = -2
	;덮쳐질 때 서는 플래그
	TCVAR:30:376 = 2
	RETURN 1
ENDIF
$SUCK
;임신소망있음=참는다
IF TALENT:임신소망 || GETBIT(CFLAG:1502, 4)
	IF S_VAL == 1000
		PRINTFORMDL 사타구니에 묘한 압박감을 느끼고 %마스터는% 잠이 깼다
		PRINTFORMDW …에이키가 가랑이에 얼굴을 묻고 킁킁 냄새를 맡고 있다
		PRINTFORML 「당신도 확실히…금욕해 주고 있구나…」
		PRINTFORML 「후후훗, 이렇게 건강해졌어…이 냄새만으로, 나…♥」
		PRINTFORMDW 염마님이라는 분이 대체 무슨 짓을 하고 있는건가…
		PRINTFORML 「무슨 짓이냐니…뭐 어때, 이 정도 쯤은」
		PRINTFORML 「나도 『미뤄져서』계속 참고 있는거야」
		PRINTFORML 「그래도…그것도 오늘로 끝이네…♥」
		PRINTFORMDW 에이키는 기쁜 듯한, 그러면서도 어딘가 음란한 미소를 지었다
		PRINTFORML 「오늘의 나…\@ ESTRUS_CYCLE(30) == 150 ? 잔뜩 기대되는 # 아마 될 것같은 \@ 날이야」
		IF DAY % 2 == 1
			PRINTFORMW 「……기다리고 있으니까」
		ELSE
			PRINTFORMW 「……일이 끝나면, 알겠지?」
		ENDIF
	ELSE
		PRINTFORMDL %마스터는% 사타구니를 부드럽게 주무르는 감촉에 잠이 깼다
		PRINTFORMDL …에이키가 진지한 얼굴로 음란한 마사지를 계속하고 있다
		PRINTFORMDW 염마님이라는 분이 대체 무슨 짓을 하고 있는건가…
		PRINTFORML 「무슨 짓이냐니…건강해지는, 주문…?」
		PRINTFORML 「건강한 아기를 갖고 싶으니까, 봐…여기가 건강해야 하잖아?」
		PRINTFORMDW …에이키가 진지한 얼굴로 농담을 하면 판단이 어려워서 곤란하다
		IF TALENT:MASTER:농후정액
			PRINTFORML 「잘못해서 나오면 곤란하니까 오늘은 여기까지야」
			SELECTCASE  CFLAG:900
				CASE 2, 3, 4
					PRINTFORML 「앞으로 며칠 동안은 기다려리지 않으면 안되니까요」
					PRINTFORMDW 서로 그렇게까지 참을 수 있을까…
				CASE 5, 6
					PRINTFORML 「…그리고 조금만 더 참으면 되니까」
					PRINTFORMDW 참기 힘들기는 피차일반인 것 같다…
				CASE 1, 9, 10
					PRINTFORMW 「그러니까, 계산하면……ㅇ, 어라?」
					PRINTFORML 「꽤나 간격이 있네요…」
					PRINTFORMW 「……어떻게 하죠, 참을 수 있을까?」
					PRINTFORMW 「………………」
			ENDSELECT
		ELSE
			PRINTFORML 「지금은 이렇게 위로해드릴 테니까…」
			PRINTFORMW 「제 월경에 맞춰서, 아직 참아주세요」
		ENDIF
	ENDIF
	;일하는 날은 좀 자중하도록
	IF DAY % 2 == 0
		LOCAL = 540 - TIME:0
		SIF LOCAL < 30
			LOCAL = 30
		CFLAG:30:데일리 = LOCAL
	ENDIF
	PRINTFORML
	PRINTFORMW 「앗…제대로 인사는 해야죠」
	PRINTFORML 「%K30_GREETING_EIKI()%, %K30_C_NAME(MASTER)%」
	PRINTFORMW 「오늘 하루도 선행에 힘씁시다」
	TCVAR:30:363 = -1
	RETURN 1
ENDIF
;TINKO 함수 수식어 때문에 인상
BASE:MASTER:발기 = 1500
PRINTDATADW
	DATAFORM 비몽사몽한 속에 오싹오싹하는 듯한 쾌감이 %CALLNAME:MASTER%에게 전달된다……
	DATAFORM 왠지 고간이 미지근하다…하지만 몽정과는 다른 것 같다……
	DATAFORM 허리 부근에서 찰싹찰싹 물소리가 들리는 것 같다……
ENDDATA
PRINTFORMW
IF TALENT:30:정애미각 && TALENT:MASTER:농후정액 && !PREG && RAND:2 == 1
	PRINTFORMDL 고개를 들자, 에이키가 %CALLNAME:MASTER%의 그는 얼굴을 사타구니에 파묻고 열심히 펠라치오를 하고 있었다
	PRINTFORMDW 아무래도 막바지에 다다랐던 것 같아 에이키의 입술과 혀는 격렬하게 페니스에 휘감겨 온다…
	PRINTFORMDL 곧 한계가 찾아온 %마스터는% 정음을 고대하는 에이키에게 %조사처리(EXPR_VAR("SPERM"),"를")% 쏟아냈다…
	PRINTFORMW （하아, 푸하앗……맛있어……%CALLNAME:MASTER%의 정액, 너무 좋아……♥）
	PRINTFORMDL 한동안 참고 있던 반동인지 에이키는 황홀한 표정을 지으며 사정 후의 페니스에 달라붙어 있다…
	PRINTFORMDW 한 번 짜낸 진한 정액을 목과 혀로 충분히 즐기고 나서 에이키는 간신히 눈을 마주쳐 인사해 주었다
	PRINTFORML 「%K30_GREETING_EIKI()%, %K30_C_NAME(MASTER)%. 그리고…잘 먹었습니다♥」
	TIME:0 += 5
	CUM = 1
ELSE
;랜덤 구문의 연습
	PRINTFORMD 눈을 뜨자
	IF (TALENT:30:정애미각 || PREG) && RAND:3 == 1
		PRINTFORMDL 에이키가 %조사처리(TINKO(MASTER),"를")% 목구멍 깊숙이 물고 있다
		PRINTFORMDW 이쪽을 눈치챈 에이키는 \@ PREG ? 천천히 # 마지못해 \@ 입을 뗐다…
	ELSE
		PRINTDATADW
			DATAFORM 에이키가 %TINKO(MASTER)% 위에서 끈덕지게 혀를 움직이고 있다. 에이키도 깨닫고 이쪽을 향했다…
			DATAFORM %TINKO(MASTER)%에 물고 늘어지는 에이키와 눈이 딱 마주쳤다…
			DATAFORM 눈을 치켜뜬 에이키와 눈이 마주친다…이쪽 눈치보면서 펠라치오를 하고 있었던 것 같다
		ENDDATA
	ENDIF
	IF PREG
		PRINTFORML 「%K30_GREETING_EIKI()%, %K30_C_NAME(MASTER)%」
		PRINTDATAW
			DATAFORM 「자는 동안에도 당신의 이곳은 매우 건강하군요…이대로 위로해 드릴게요」
			DATAFORM 「당신은 누운 채로 있어도 돼…나에게, 맡겨줘」
			DATAFORM 「이제 잠에서 깨어난 걸까? 이쪽의 뒷바라지하는 건 이제부터예요」
		ENDDATA
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMDL 에이키는 시선을 이쪽으로 돌린 채 구슬과 장대를 부드럽게 자극해 온다
				PRINTFORMDW %마스터가% 시들지 않고 기분 좋아졌으면 하는 마음인 것 같다…
			CASE 1
				PRINTFORMDL 인사를 마치고 나서 에이키는 입에 고인 침을 %TEXTR("페니스/음경/육봉/물건/자지/남근/좆대")%에 늘어뜨린다
				PRINTFORMDW 점액을 더한 %조사처리(TEXTR("페니스/음경/육봉/물건/자지/남근/좆대"),"를")% 손으로 훑으며 사랑스러운 표정을 짓고 있다…
			CASE 2
				PRINTFORMDL 에이키는 이렇게 하는 것이 당연하다는 어조로 말을 걸어 온다
				PRINTFORMDW 얼굴도 심판할 때처럼 진지하다…
		ENDSELECT
		GOTO RESTART
	ELSEIF TALENT:30:정애미각 && RAND:3 == 1
		PRINTFORMW 「안녕하세요. 아직 주무셔도 괜찮아요? 밥부터 먼저……잘 먹을게요♥」
	ELSE
		PRINTDATAW
			DATAFORM 「…좋은 아침입니다…죄송해요. 참을 수가 없어서 저도 모르게…」
			DATAFORM 「그게…너무 건강해 보여서 궁금해져서…아. 그, 좋은 아침입니다…」
			DATAFORM 「좋은 아침입니다. …그냥 장난친다는 게 왠지 즐거워져서…」
		ENDDATA
	ENDIF
	IF TALENT:30:정애미각 && RAND:3 == 1
		PRINTFORMDL 말을 마치자 마자 에이키는 귀두에 키스를 거듭하며 계속 이어가고 싶다고 졸라 왔다
		PRINTFORMDW 에이키의 침이 %CALLNAME:MASTER%의 %조사처리(TEXTR("페니스/음경/육봉/물건/자지/남근/좆대"),"를")% 따라 이불까지 더럽혀져 있다…
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMDL 보아하니 에이키의 입 주위와 %CALLNAME:MASTER%의 %조사처리(TEXTR("페니스/음경/육봉/물건/자지/남근/좆대"),"는")% 침과 쿠퍼액으로
				PRINTFORMDW 반짝반짝 빛나고 있다. 꽤 오랜 시간을 즐기고 있었던 것 같다…
			CASE 1
				PRINTFORMDL 죄송하다는 투로 말하고는 있지만, 에이키의 눈은 기대와 욕망으로 가득차 있다
				PRINTFORMDW 게다가 손은 음경을 훑으며, 행위를 중지할 생각은 없는 것 같다…
			CASE 2
				PRINTFORMDL %CALLNAME:MASTER%의 페니스는 아침 텐트 수준을 넘어서 딱딱하게 발기하고 있다
				PRINTFORMDW 에이키는 꽤 열심히 봉사를 하고 있었던 것 같다…
		ENDSELECT
	ENDIF
	$RESTART
	PRINTFORML
	IF PREG
		PRINTDATAL
			DATAFORM 「당신이 쌓여 있는 것…내가, 나만 전부 받아주고 싶어…」
			DATAFORM 「한동안 격한 건 못 하지만…그래도 당신이 기분 좋아졌으면 하니까…」
			DATAFORM 「\@ CFLAG:임신경과일수 < 31 ? 뱃속의 아이가 가라앉을 # 이 아이가 건강하게 태어날 \@ 때까지이지만, 그래도 당신을 참게 하고 싶지는 않아…」
		ENDDATA
		PRINTFORMW 「그러니까, 이대로…♥」
	ELSEIF TALENT:30:정애미각 && RAND:3 == 1
		PRINTFORMW 「ㄱ, 그치만 이젠 못 참겠어…빨리, 정액…부어줘…♥」
	ELSE
		PRINTDATAW
			DATAFORM 「ㅂ, 봐, 이런건 남자들의 동경이잖아? 그러니까, 됐잖아, 이대로…」
			DATAFORM 「저, 저기, 참는 건 좋지 않아요? 이대로도 풀 수 없잖아, 그러니까…」
			DATAFORM 「ㄱ, 괜찮잖아, 가끔은 이런 것도, 말이야…좀 더, 기분 좋게 해줄 테니까…」
		ENDDATA
	ENDIF
	PRINTDATAW
		DATAFORM 「하아읍…응읏, 쥬브읏…츄르…」
		DATAFORM 「아읍, 쥬릇! …쥬븟, 츄우우웃…」
		DATAFORM 「아아읍…쥬르릇! 쥬릇, 쥬폿…」
	ENDDATA
	IF PREG
		PRINTFORMDL 에이키는 %CALLNAME:MASTER%에게 미소를 지으며 사랑스럽다는 듯이 펠라치오를 재개했다
		PRINTFORMDL \@ CFLAG:임신경과일수 < 31 ? 안정기를 맞을 # 무사히 때어날 \@ 때까지 에이키는 신중을 기해 주었으면 좋겠지만,
		PRINTDATADW
			DATAFORM 아무래도 에이키는 %마스터가% 다른 여자에게 눈을 돌리지나 않을까 걱정하는 눈치다…
			DATAFORM 그 사이에도 에이키는 %마스터를% 자기 혼자서 독점하고 싶은 것 같다…
			DATAFORM 에이키는 언제나 이상으로 봉사함으로써 %마스터를% 꽉 묶어놓고 싶은 모양이다…
		ENDDATA
	ELSE
		PRINTFORMDL 에이키는 %CALLNAME:MASTER%의 대답을 기다리지 않고 다시 펠라치오를 시작한다
		IF TALENT:30:정애미각 && RAND:3 == 1
			PRINTFORMDW 마치 먹이를 구하는 짐승처럼 눈빛을 바꾸고 %TEXTR("페니스/음경/육봉/물건/자지/남근/좆대")%에 달라붙어 왔다…
		ELSE
			PRINTDATADW
				DATAFORM 정성껏 입술은 귀두에 달라붙어, 빈 손으로 자루를 부드럽게 풀어 준다…
				DATAFORM 잠이 확 깬 %마스터는% 더욱 기분 좋은 쾌락에 휩싸인다…
				DATAFORM 거리낌이 없어진 듯 혀와 입이 대담하게 움직이고 물소리와 숨소리가 방을 가득 메운다…
			ENDDATA
		ENDIF
	ENDIF
	PRINTFORML
	IF (PREG || TALENT:연인) && RAND:2 == 1
		PRINTFORMD 에이키의 애정이 듬뿍 담긴 봉사
	ELSEIF TALENT:30:정애미각 && RAND:2 == 1
		PRINTFORMD 정욕에 자극받은 에이키의 봉사
	ELSEIF RAND:2 == 1
		SELECTCASE ABL:혀
			CASE IS < 2
				PRINTFORMD 서투르면서도 열심인 에이키의 봉사
			CASE IS > 4
				PRINTFORMD 배운 보람도 있어서 더할 나위 없이 좋은 에이키의 봉사
			CASEELSE
				PRINTFORMD 에이키의 공손한 봉사
		ENDSELECT
	ELSE
		PRINTFORMD 에이키의 헌신적인 봉사
	ENDIF
	PRINTDATADL
		DATAFORM 는 %마스터를% 계속해서 몰아붙여, 눈 깜짝할 사이에 여유가 없어져 간다
		DATAFORM 는 확실히 %CALLNAME:MASTER%의 약점을 몰아세워, 도저히 참을 수 없을 것 같다
		DATAFORM 는 %CALLNAME:MASTER%의 정복욕과 만족감을 동시에 채워, 금방이라도 사정할 것 같다
	ENDDATA
	PRINTFORMD %마스터는% …
	RESETCOLOR
	PRINTBUTTON "[0:에이키의 얼굴에 뿌린다]", 0
	PRINTFORM
	PRINTBUTTON "[1:에이키의 입에 싼다]", 1
	PRINTFORML
	$LOOP
	INPUT
	IF !GROUPMATCH(RESULT, 0, 1)
		CLEARLINE 1
		REUSELASTLINE
		GOTO LOOP
	ENDIF
	CUM = RESULT
	IF CUM
		CLEARLINE 2
		PRINTFORMDW %마스터는% 이대로 에이키의 입에 내기로 했다
		PRINTFORML
		PRINTFORMDL 에이키도 헤아린 듯이 %조사처리(TEXTR("페니스/음경/육봉/물건/자지/남근/좆대"),"를")% 입에 물고 격렬하게 머리를 상하로 움직인다…
		PRINTDATADL
			DATAFORM %마스터는% 사정 직전에 에이키의 머리를 꽉 잡고 목구멍으로 고정을 하자
			DATAFORM %마스터는% 아슬아슬할 정도로 참고 에이키가 가장 깊은 곳까지 삼킨 순간을 가늠하자
			DATAFORM %마스터는% 원한다는 듯이 눈으로 호소하는 에이키의 입에 %조사처리(TEXTR("페니스/음경/육봉/물건/자지/남근/좆대"),"를")% 밀어넣자
		ENDDATA
		PRINTFORMDW %TEXTR("바라는 대로/잔뜩/거리낌 없이")% 포상의 %조사처리(EXPR_VAR("SPERM"),"를")% %TEXTR("쏟아내 주었다/털어내 주었다/사정해 주었다")%
	ELSE
		CLEARLINE 2
		PRINTFORMDW %마스터는% %조사처리(EXPR_VAR("SPERM"),"로")%에이키의 얼굴을 더럽혀 주기로 했다
		PRINTFORML
		PRINTFORMDL 에이키도 헤아린 듯 %TEXTR("페니스/음경/육봉/물건/자지/남근/좆대")%의 봉사가 한층 더 강해진다…
		PRINTDATADL
			DATAFORM 에이키가 입을 떼고 조금 세게 손으로 문지르자 %조사처리(TEXTR("페니스/음경/육봉/물건/자지/남근/좆대"),"가")% 움찔하고 뛰어올라
			DATAFORM 사정 직전의 %조사처리(TEXTR("페니스/음경/육봉/물건/자지/남근/좆대"),"를")% 에이키의 입에서 뽑아 코앞에 들이밀자
			DATAFORM 마지막 마무리로 에이키가 뒷쪽을 핥아 올리자 한계를 맞이한 %TEXTR("페니스/음경/육봉/물건/자지/남근/좆대")%에서
		ENDDATA
		PRINTFORMDW 포상의 %조사처리(EXPR_VAR("SPERM"),"가")% 얼굴%TEXTR("에 힘차게/을 향해/에 잔뜩")% %TEXTR("뿌려졌다/뒤집어 쓰였다/내뿜어졌다")%
	ENDIF
	PRINTFORML
	CALL M_KOJO_COLOR_K30
	CALL HPH_PRINT, @"「……HPHHPH」", "L"
	IF CUM
		CALL HPH_PRINT, @"「으응읏HPH　"
		PRINTDATA
			DATAFORM 츄……으읍, 츄릇……잔뜩, 나온 것 같네
			DATAFORM 응흐읏……응큿, 응으읍……전부, 마셨어요
			DATAFORM 쥬르……쥬븟, 츄우……전부 내준걸까
		ENDDATA
		CALL HPH_PRINT, @"HPH」", "W"
		CALL HPH_PRINT, @"「……………앗HPH」", "W"
		PRINTDATA
			DATAFORM 「뒷마무리도 제가 잘 해 드릴께요…
			DATAFORM 「아직 조금 남았을지도…
			DATAFORM 「마지막까지 깨끗하게 해드릴게요…
		ENDDATA
		CALL HPH_PRINT, @"HPH　츄웃, 츄르릇…HPH」", "W"
	ELSE
		CALL HPH_PRINT, @"「굉장해…HPH　"
		PRINTDATA
			DATAFORM 오늘 첫번째라…굉장한 양이네
			DATAFORM 얼굴이…끈적끈적…
			DATAFORM 이렇게나, 잔뜩…
		ENDDATA
		CALL HPH_PRINT, @"HPH」", "W"
		PRINTDATA
			DATAFORM 「거기다, 이 냄새…어지러울 정도야…
			DATAFORM 「게다가…굉장히 뜨거워서 데여버릴 것 같아…
		ENDDATA
		CALL HPH_PRINT, @"HPH」", "W"
	ENDIF
	IF CUM
		PRINTFORMD 요도에 남은 %EXPR_VAR("SPERM")%까지 다 뽑아내면서,
	ELSE
		PRINTFORMD 흩날린 %조사처리(EXPR_VAR("SPERM"),"를")% \@ TALENT:30:정애미각 ? 입으로 옮기며 # 들러붙은 채로 \@
	ENDIF
	PRINTFORMDW 에이키는 \@ TALENT:30:정애미각 ? 황홀한 표정을 # 만족스러운 듯한 미소를 \@ 짓고 있다…
ENDIF
CALL K30_D_LINE
TIME:0 += 10
;顔絵 이펙트용 플래그
TCVAR:30:363 = TIME:0
台詞 = 「아침부터 잔뜩 싸줘서…기뻐♥」/
IF PREG
	台詞 = %台詞%「지금은 입으로 밖에 받아줄 수 없지만…」/「조금만 더 참으면, 한 번 더 잔뜩 사랑해 주세요♥」
ELSEIF TALENT:30:정애미각 && !RAND:3 && CUM
	台詞 = %台詞%「이걸로 오늘 하루는 정말 잘 할 수 있을 것 같아」/「고마워…잘 먹었습니다♥」
ELSE
	{
	台詞 = %台詞%%TEXTR("「당신도 봐요, 개운하고 잠에서 깨는 것도 좋잖아요?」
		/「당신이라면 이 정도는 전혀 아무렇지도 않죠?」
		/「당신도 속 시원해져서 오늘은 선행을 열심히 할 것 같나요?」")%
		/「자, 오늘 하루도 분발합시다.」
	}
ENDIF
;일시적으로 확장 顔絵으로 변경
VARSET LOCAL
LOCAL = FLAG:스탠딩종류
FLAG:스탠딩종류 = 1
LOCAL:1 = CFLAG:30:대체적용
CFLAG:30:대체적용 = 1
PRINTFORML
CALL K30_SPTALK, @"%\@ TALENT:30:정애미각 ? LOVE # 笑顔 \@%", 台詞
;원상태로 되돌린다
FLAG:스탠딩종류 = LOCAL
CFLAG:30:대체적용 = LOCAL:1
;사출량은 초적당
LOCAL =(ABL:MASTER:C감각 / 2 + 15) / 2 * (ABL:30:혀 / 3 * 2)
;경험을 더하다
EXP:30:M경험 ++
EXP:30:펠라티오경험 += 3
EXP:30:정음경험 ++
CFLAG:30:누계정음 += LOCAL
IF HETEROSEX(TARGET, PLAYER) == 1
	EXP:30:레즈경험 += 7
	EXP:MASTER:레즈경험 += 7
ELSEIF HETEROSEX(TARGET, PLAYER) == 2
	EXP:30:게이경험 += 7
	EXP:MASTER:게이경험 += 7
ENDIF
EXP:30:애정경험 ++
EXP:MASTER:절정경험 ++
EXP:MASTER:사정경험 ++
;안면 발사시에는 30% 확률로 얼굴에 정액 이펙트 넘김
CUM = (CUM == 0 && RAND:3 == 0) ? 0 # 1
TCVAR:30:363 -= (CUM * 15)
[SKIPSTART]
;정력도 줄인다. TINKO는 맥을 못 춘다
;아침의 회복과 겹치므로 생략
;하루에 한 번 플래그 접는 것도 너무 심해서 보류
SETBIT TFLAG:일일일회,8
BASE:MASTER:정력 -= LOCAL
BASE:MASTER:체력 -= LOCAL / 5
BASE:MASTER:발기 = 700 - (RAND:250 + 1)
[SKIPEND]
RETURN 1
;==================================================
;치마 넘김 콤보치의 글
@K30_LIFT_UP_SKIRT_COMBO
;--------------------------------------------------
#DIM 노출강도
DRAWLINE
RESULT = 1
TCVAR:30:374 = 0
;카운터 받으면 안돼
SIF CFLAG:우후후 != 0
	RETURN 1
;연모가 아니면 안 돼
SIF !TALENT:연모
	RETURN 1
노출강도 = 0
;노팬티라면 노출벽8
IF TEQUIP:0 <= 1
	SIF ABL:노출벽 <= 7
		노출강도 = 2
;팬티를 입고 있어도 노출벽6 필요
ELSEIF ABL:노출벽 <= 5
	노출강도 = 1
ENDIF
RESETCOLOR
PRINTFORM %CALLNAME:TARGET%에게 치마를 들어올린 채로 있어달라고 부탁하고, %조교자는% \@ TEQUIP:0 > 1 ? 속옷에 숨은 # 노출된 \@
SELECTCASE SELECTCOM
	CASE 314
		PRINTL 애널에 손을 뻗었다…
	CASE 315
		PRINTL 클리토리스에 손을 뻗었다…
	CASE 316
		PRINTL 질구로 손을 뻗었다…
ENDSELECT
IF 노출강도 > 0
	SELECTCASE  노출강도
		CASE 1
			PRINTFORML 하지만 남의 이목이 신경쓰이는 %CALLNAME:TARGET%에게 새빨간 얼굴로 거절당하고 말았다
		CASE 2
			PRINTFORML 그러나 %CALLNAME:TARGET%에게 아무리 그래도 그것은 할 수 없다고 거절당하고 말았다
	ENDSELECT
	PRINTFORM %조교자는% 조금 실망했지만 마음을 가다듬고 %CALLNAME:TARGET%의
	SELECTCASE SELECTCOM
		CASE 314
			PRINT 애널에
		CASE 315
			PRINT 클리토리스에
		CASE 316
			PRINT 질구에
	ENDSELECT
	PRINTL 장난을 치기 시작했다
	RETURN 1
ENDIF
TCVAR:30:374 = 1
PRINT 치마를 걷어붙이고 사람들 앞에서
IF TEQUIP:0 > 1
	PRINTFORM %조사처리(SHOW_하반신속옷(TARGET),"를")%
ELSE
	PRINTFORM %조사처리(SLIT(TARGET),"를")%
ENDIF
PRINTFORML 드러낸 에이키는 \@ TEQUIP:0 > 1 ? # 극도의  \@수치로 얼굴이 붉게 물들어 몸을 가늘게 떨고 있다…
PRINTL
PRINTFORM %조교자는%
SELECTCASE SELECTCOM
	CASE 314
		IF TEQUIP:0 > 1
			IF PALAM:윤활 > PALAMLV:4
				PRINT 질척질척해진
			ELSEIF PALAM:윤활 > PALAMLV:2
				PRINT 어렴풋이 축축해진
			ENDIF
			PRINTFORM %SHOW_BOTTOM(TARGET)%의 위에서,
		ELSE
			IF ABL:A감각 <= 1
				PRINT 굳게 침입을 거부하는
			ELSEIF ABL:A감각 <= 3
				PRINT 아직 단단함이 남아있는
			ELSE
				PRINT 탐나는 듯이 달라붙는
			ENDIF
		ENDIF
		PRINT 애널을
		IF ABL:A감각 <= 1
			PRINT 손가락 끝으로 쓰다듬듯이
		ELSEIF ABL:A감각 <= 3
			PRINT 풀어지도록
		ELSE
			PRINT 손가락을 비틀듯이
		ENDIF
		PRINTFORML 애무했다…
		IF TEQUIP:0 > 1
			PRINTFORM 에이키는 수치로 몸을 떨고
		ELSE
			PRINTFORM 에이키는 %SLIT(TARGET)%도 노골적으로 수치로 몸부림치고,
		ENDIF
		IF ABL:A감각 <= 1
			PRINTL 거절하지도 못하고 엉덩이를 희롱당하고 있다…
		ELSEIF ABL:A감각 <= 3
			PRINTL 그러면서도 이물감에 등줄기가 떨리고 있다…
		ELSE
			PRINTL 남의 눈을 피하는 것도 잊고 엉덩이의 쾌락에 빠져있다…
		ENDIF
	CASE 315
		IF TEQUIP:0 > 1
			IF PALAM:윤활 > PALAMLV:4
				PRINT 질척질척하게 젖은
			ELSEIF PALAM:윤활 > PALAMLV:2
				PRINT 어렴풋이 축축해진
			ENDIF
			PRINTFORM %SHOW_BOTTOM(TARGET)%의 위에서, 비밀스러운 곳의
			IF ABL:C감각 <= 3
				PRINTFORML 도끼자국을 쓸어 올렸다……
			ELSEIF ABL:C감각 <= 5
				PRINTFORML 균열의 상부를 중점적으로 괴롭혔다……
			ELSE
				PRINTFORML 클리의 주변을 동글동글 자극했다……
			ENDIF
		ELSE
			IF ABL:C감각 <= 1
				PRINT 가죽을 뒤집어쓴
			ELSEIF  ABL:C감각 <= 3
				PRINT 노출된
			ELSEIF  ABL:C감각 <= 5
				PRINT 뾰족해진
			ELSE
				PRINT 볼록하게 부어오른
			ENDIF
			PRINTFORM 클리토리스를
			IF ABL:C감각 <= 3
				PRINTFORML 살짝 어루만졌다……
			ELSEIF ABL:C감각 <= 5
				PRINTFORML 가볍게 집어 올렸다……
			ELSE
				PRINTFORML %TEXTR("천천히 주물렀다……/집어서 비벼올렸다……/조심히 자극했다……")%
			ENDIF
		ENDIF
		IF TEQUIP:0 > 1
			PRINTFORM 에이키는 수치로 몸을 떨
		ELSE
			PRINTFORM 에이키는 %SLIT(TARGET)%도 노골적으로 수치로 몸부림치
		ENDIF
		IF ABL:C감각 <= 3
			PRINTFORML 면서도 자극을 참고 있다…
		ELSEIF ABL:C감각 <= 5
			PRINTFORML 면서도 애무에 뜨거운 한숨을 내쉬고 있다…
		ELSE
			PRINTFORML 며, %CALLNAME:PLAYER%의 손가락이 움직일 때마다 교성을 지른다…
		ENDIF
	CASE 316
		IF TEQUIP:0 > 1
			IF PALAM:윤활 > PALAMLV:3
				PRINT 질척질척하게 젖은
			ELSEIF PALAM:윤활 > PALAMLV:1
				PRINT 어렴풋이 축축해진
			ENDIF
			PRINTFORM %SHOW_BOTTOM(TARGET)%의 틈새로
		ELSE
			IF TALENT:처녀 == 1
				PRINT 꽉하고 단단하게 닫힌
			ELSEIF ABL:V감각 <= 1
				PRINT 아주 조금 풀어진
			ELSEIF ABL:V감각 <= 4
				PRINT 흥분으로 붉은 기를 띠는
			ELSE
				PRINT 유혹하듯이 어른거리는
			ENDIF
		ENDIF
		PRINTFORML \@ ABL:V감각 > 4 ? %조사처리(SLIT(TARGET),"를")% 세게 휘젓듯이 손가락을 꽂아넣었다  # %SLIT(TARGET)%에 천천히 손가락을 삽입했다 \@…
		IF TEQUIP:0 > 1
			PRINTFORM 에이키는 수치로 몸을 떨고
		ELSE
			PRINTFORM 에이키는 %SLIT(TARGET)%도 노골적으로 수치로 몸부림치
		ENDIF
		IF TALENT:처녀 == 1
			PRINTFORML 면서도, %CALLNAME:PLAYER%의 손가락을 거부하고 허벅지를 꽉 다물고 있다…
		ELSEIF ABL:V감각 <= 1
			PRINTFORML 면서도, 이물감이 강한지 몸이 굳어있다…
		ELSEIF ABL:V감각 <= 4
			PRINTFORML 면서도, 애무에 뜨거운 한숨을 내쉬기 시작했다…
		ELSE
			PRINTFORML 며, 남의 눈을 신경쓰지 않고 희열의 소리를 지르며 쾌락을 탐하고 있다…
		ENDIF
ENDSELECT
PRINTFORML
;주위는 확실히 반응한다
IF K30_BE_SEEN()
	IF GET_TARGETNUM() > 1
		PRINTFORM 가까이 있던
		PRINTDATAW
			DATAFORM %조사처리(CALLNAME:K30_FIND_AROUND(),"는")% 왜인지 눈치채지 못하고 있다…
			DATAFORM %CALLNAME:K30_FIND_AROUND()%에게는 어떻게든 들키지 않았다…
			DATAFORM %CALLNAME:K30_FIND_AROUND()%에게는 마침 보이지 않았던 것 같다…
			DATAFORM %CALLNAME:K30_FIND_AROUND()%의 눈을 속이고 즐겼다…
		ENDDATA
	ENDIF
	SIF DATE_HITOGOMI() || WITH_MOB() == 9
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:현재위치)
ENDIF
CALL K30_COMPENSATE_MESSAGE
RETURN 1

;==================================================
;A섹스용 질내사정, 시오후키 메시지 함수
;--------------------------------------------------
;ARG:상황분기 =1 덮쳐졌을때 =2 배면에키벤 =3 굴곡위 =4 질뒤・S결장 자극 =5 교대삽입(첫 번째일 때만) = 6 카운터 A삽입
;--------------------------------------------------
@K30_PRE_ORG_MES_A(ARG)
#DIM BODY
BODY = TEQUIP:체위
SIF BODY == 0
	BODY = TEQUIP:체위2
;질내사정시에 곁들이는 한마디. 플레이버 체위에서는 스킵
LOCAL:1 = 0
SIF NOWEX:MASTER:11
	LOCAL:1 = 1
IF NOWEX:MASTER:11 && !TEQUIP:MASTER:콘돔
	;개발 진행과 동시뿐이므로 적당히 흩뜨린다
	IF (NOWEX:A절정 > 1 && RAND:4 == 1) || ARG > 1
		GOTO SQUIRTING
	ENDIF
	PRINTFORML
	PRINTDATA
		DATAFORM 「아아앙앗
		DATAFORM 「아핫
		DATAFORM 「아흐읏
		DATAFORM 「응읏
	ENDDATA
	CALL HPH_PRINT(@"HPH　")
	PRINTDATA
		DATAFORM 주는, 거지? 나에게, 뜨거운 거, 쏟아주는거지?
		DATAFORM 참으면 안 돼…갈 것 같잖아…?
		DATAFORM 좋아…이대로, 내 줘…빨리, 내 줘
		DATAFORM 또, 커져서는…곧, 갈 것 같네
		DATAFORM 저는, 기분 좋으신가요? 저로, 만족해 주시는 건가요…
	ENDDATA
	CALL HPH_PRINT, @"HPH」", "L"
	;A동시절정분기. 개발(ry
	IF NOWEX:A절정 > 1 && RAND:2 == 1
		SELECTCASE RAND:3
			CASE 0
				CALL HPH_PRINT, @"「나도, 와버려HPH 그러니까, 같이, 같이잇HPH」", "W"
			CASE 1
				CALL HPH_PRINT, @"「저기, 잔뜩, 내줘HPH　나도, 이제HPH」", "W"
			CASE 2
				CALL HPH_PRINT, @"「나도, 같이, 가버려HPH　이대로옷, 같이HPH」", "W"
		ENDSELECT
	;V질싸가 불가능한 분기
	ELSEIF K30_CREAMPIE()
		PRINTDATA
			DATAFORM 「여기라면 언제든지 싸도…괜찮아요
			DATAFORM 「이쪽이라면, 걱정은, 필요 없으니까…
			DATAFORM 「앞은 \@ K30_CREAMPIE() == 2 ? …보류 # …안 돼… \@니까, 엉덩이로 잔뜩…
		ENDDATA
	CALL HPH_PRINT, @"HPH」", "W"
	ELSE
		PRINTDATA
			DATAFORM 「내, 엉덩이로…나로, 기분 좋아져…
			DATAFORM 「내고 싶은 곳…하고 싶은 곳에, 괜찮아요
			DATAFORM 「엉덩이도… 거기도, 괜찮아요, 원하는 만큼…
		ENDDATA
	CALL HPH_PRINT, @"HPH」", "W"
	ENDIF
	RETURN 1
ENDIF
;A強절정以上で潮吹き。冗長になるので사정時구상とは排他
;表示確率最大30%、同時절정、交互挿入時、カウンターA挿入で+15%
$SQUIRTING
SIF NOWEX:A절정 < 2
	RETURN 1
SIF RAND:100 > MIN(ABL:A감각 * 3, 30) + (LOCAL:1 * 15) + ((ARG == 5) * 15) + ((ARG == 6) * 15)
	RETURN 1
PRINTFORML
CFLAG:1607 ++
IF ARG == 2
	LOCAL = K30_FIND_AROUND()
	CALL HPH_PRINT, @"「안대애HPH　이제… 이제, 안대애애앳HPH」", "L"
	SIF LOCAL
		CALL HPH_PRINT, @"「나앗, 염마인데엣HPH　%K30_C_NAME(LOCAL)%, 있는데에엣HPH」", "W"
	PRINTFORMDL 에이키가 극적인 목소리를 내는 것과 동시에 %SLIT(30)%에서 투명한 액체가 깨끗한 호를 그리며 솟아올랐다
	PRINTFORMDW 이 모습으로 물을 뿜으면, 정말로 오줌을 싸는 것 같은 묘한 기분이 든다…
;ニッチな性癖を攻めすぎだろ
ELSEIF ARG == 3
	CALL HPH_PRINT, @"「아아앗HPH　아아아아아, 안대애HPH」", "L"
	PRINTFORMDW 접힌 자세로 엉덩이 구멍을 찔리고 있는 에이키지만, 갑자기 다급한 소리를 지른다
	PRINTFORMDW 동시에 %SLIT(30)%에서 투명한 액체가 %TEXTR("힘차게 솟구치며/대량으로 뿜어대며/거센 기세로 흩날리며/")%, 전부 에이키에게 덮쳐버렸다
	CALL HPH_PRINT, @"「시러, 시러어HPH　이런거, 이런거어어……HPH」", "L"
	PRINTFORMDW 잔뜩 뒤집어쓴 애액으로 머리카락까지 적시고, 에이키는 굴욕감과 수치로 몸을 떨며 애널 절정에 올랐다…
	RETURN 1
ELSEIF ARG == 6 && BODY == 3
	PRINTFORMDW 스스로 애널에 페니스를 삼킨 것은 좋지만, 에이키에게서는 이미 여유가 없어졌다…
	CALL HPH_PRINT, @"「뭔가앗HPH　이상하게! 이거엇HPH　나와앗HPH　나와버려어어엇HPH」", "L"
	PRINTFORMDW 쾌락으로 느슨해진 %SLIT(30)%에서 투명한 액체가 %TEXTR("힘차게 솟구치며/대량으로 뿜어대며/거센 기세로 흩날리며/")%, 아무 짓도 하지 않은 %마스터를% 끈적끈적하게 만들어 버렸다…
ELSE
	SIF ARG == 5
		LOCAL = MASTER_POSE(7, 1, 1)
	IF BODY == 3
		PRINTFORMD 자신에게서 허리를 돌려 자신의 쾌락을 탐닉하고 있는 에이키가
	ELSE
		PRINTFORMD %CALLNAME:MASTER%
		SELECTCASE BODY
			CASE 1, 4
				IF TFLAG:193
					PRINTFORMD 에게 향하고
				ELSE
					PRINTFORMD 의 정면으로
				ENDIF
			CASE 2, 5
				IF TFLAG:193
					PRINTFORMD 의 배후에서
				ELSE
					PRINTFORMD 의 뒤에서
				ENDIF
		ENDSELECT
		SIF ARG == 5
			PRINTFORMD  %조사처리(CALLNAME:LOCAL,"와")% 둘이 합쳐
		PRINTFORMD 애널을 찔리고 있던 에이키가,
	ENDIF
	IF ABL:노출벽 > 4 && CFLAG:1607 > 4 && K30_FIND_AROUND() == 0
		PRINTDATADL
			DATAFORM 갑자기 몸의 힘을 쭉 뺐다
			DATAFORM 갑자기 몸을 부르르 떨었다
			DATAFORM 꾸욱하고 페니스를 죄어 왔다
		ENDDATA
	ELSE
		PRINTDATADL
			DATAFORM 깜짝 놀라 몸을 경직시켰다
			DATAFORM 화들짝 몸을 튕겼다
			DATAFORM 갑자기 눈을 부릅뜨고 세차게 고개를 흔들었다
		ENDDATA
	ENDIF
	PRINTFORMD 동시에%SLIT(30)%에서 투명한 액체가 %TEXTR("힘차게 솟구치며/대량으로 뿜어대며/거센 기세로 흩날리며/")%、
	SELECTCASE BODY
		CASE 1
			IF TFLAG:193
				PRINTFORMDW %마스터를% 흠뻑 젖게 만들었다…
			ELSE
				PRINTFORMDW 서로의 배를 흠뻑 적신다…
			ENDIF
		CASE 2
			IF TFLAG:193
				PRINTFORMD 에이키의 다리와
				IF BEDROOM(CFLAG:MASTER:현재위치)
					PRINTFORMD 이불
				ELSEIF INROOM(CFLAG:MASTER:현재위치)
					PRINTFORMD \@ INROOM(CFLAG:MASTER:현재위치) == 1 ? 다다미 # 마루 \@
				ELSE
					PRINTFORMD 바닥
				ENDIF
				PRINTFORMDW 를 흠뻑 적셨다…
			ELSE
				PRINTFORMD 흠뻑
				IF BEDROOM(CFLAG:MASTER:현재위치)
					PRINTFORMD 이불
				ELSEIF INROOM(CFLAG:MASTER:현재위치)
					PRINTFORMD \@ INROOM(CFLAG:MASTER:현재위치) == 1 ? 다다미 # 마루 \@
				ELSE
					PRINTFORMD 바닥
				ENDIF
				PRINTFORMDW 를 적셨다…
			ENDIF
		CASE 3
			IF TCVAR:30:397 == 1
				PRINTFORMDW 바로 정면에서 깨끗한 호를 그린다……
			ELSE
				PRINTDATADW
					DATAFORM %CALLNAME:MASTER%의 얼굴에까지 착 걸려버렸다…
					DATAFORM %CALLNAME:MASTER%의 가슴에서 얼굴까지 흠뻑 젖게 만들어 버렸다…
					DATAFORM 아래에 있던 %마스터는% 정통으로 맞아버렸다…
					DATAFORM 아래에 있던 %마스터를% 엉망으로 만들어 버렸다…
				ENDDATA
			ENDIF
		CASE 4
			PRINTFORMDW 서로의 배를 흠뻑 적셨다…
		CASE 5
			PRINTFORMDW 바로 정면에서 깨끗한 호를 그린다……
	ENDSELECT
ENDIF
IF CFLAG:1607 == 1
	IF ARG > 1
		PRINTFORML 「달아앗!! 이거, 정말, 다르니까앗! ……보지마아아…」
		PRINTFORMDW 시오후키의 수치와 쾌락이 뒤섞여 뒤죽박죽이 되어버린 에이키는 애널 절정에 올랐다…
	ELSE
		PRINTFORML 「엣… 에엣!? 나, 무슨 짓을 한거야…?」
		PRINTFORMDW 첫 시오후키에 당황하면서 에이키는 애널로 인한 절정에 올라갔다…
	ENDIF
ELSEIF K30_FIND_AROUND() || ARG == 5
	LOCAL = K30_FIND_AROUND()
	SIF ARG == 5
		LOCAL = MASTER_POSE(7, 1, 1)
	PRINTFORMD %조사처리(CALLNAME:LOCAL,"는")% 염마님의 시오후키
	IF PALAM:LOCAL:욕정 < PALAMLV:8
		PRINTFORMDW %TEXTR("를 보고 당황하고 있다/를 보고 흠칫 놀라고 있다/를 오줌이라고 착각해 얼굴을 붉히고 있다/")%
	ELSE
		PRINTFORMDW %TEXTR("를 호기심의 눈으로 지켜보고 있다/의 물방울을 이상한 듯이 손가락으로 덧그리고 있다/에서 눈을 떼지 못하고 뚫어져라 쳐다보고 있다/")%
	ENDIF
	SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT, @"「보지마앗! %K30_C_NAME(LOCAL)%, 부탁이니까아HPH　보지마아아HPH」", "L"
		CASE 1
			CALL HPH_PRINT, @"「아아아앗HPH　%조사처리(K30_C_NAME(LOCAL),"가")%…%조사처리(K30_C_NAME(LOCAL),"가")%, 보고 있는데에…HPH」", "L"
		CASE 2
			CALL HPH_PRINT, @"「시러, 시러어어HPH　%K30_C_NAME(LOCAL)%…이거, 아니야아HPH　달라아앗HPH」", "L"
	ENDSELECT
	PRINTDATAD
		DATAFORM %CALLNAME:LOCAL%의 눈에서 조금이라도 벗어나기 위해, 에이키는 몸을 뒤틀면서
		DATAFORM 에이키는 %CALLNAME:LOCAL%의 시선에 강렬한 수치\@ ABL:노출벽 > 7 ? 와 흥분을 # 를 \@ 느끼면서
		DATAFORM %CALLNAME:LOCAL%앞에서 멈추지도 못하고 움찔움찍 떨면서, 에이키는
	ENDDATA
	PRINTFORMDW  애널 절정에 올라갔다…
ELSEIF ABL:노출벽 > 4 && CFLAG:1607 > 10
	;ニッチな性癖(ry
	IF BODY == 3 && TCVAR:30:397 == 0
		SELECTCASE RAND:3
			CASE 0
				CALL HPH_PRINT, @"「후훗HPH　뿌려버렸나봐…HPH」", "L"
			CASE 1
				CALL HPH_PRINT, @"「아핫HPH　엉망이네…HPH」", "L"
			CASE 2
				CALL HPH_PRINT, @"「우후후훗HPH　기분 좋게 해준, 포상이네…HPH」", "L"
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				CALL HPH_PRINT, @"「후훗…HPH　잔뜩…나왔어HPH」", "L"
			CASE 1
				CALL HPH_PRINT, @"「아핫HPH　뭔가… 이상한, 기분HPH」", "L"
			CASE 2
				CALL HPH_PRINT, @"「우후후훗HPH　나와버렸다……HPH」", "L"
		ENDSELECT
	ENDIF
	SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT, @"「…아ー아HPH　주변까지… 끈적끈적…HPH」", "L"
		CASE 1
			CALL HPH_PRINT, @"「…무척이나, 기분 좋았어HPH」", "L"
		CASE 2
			CALL HPH_PRINT, @"「…멈추지 않아서, 어쩔 수가 없어HPH」", "L"
	ENDSELECT
	PRINTDATAD
		DATAFORM 에이키는 시오후키를 뿜는 해방감조차 느끼면서,
		DATAFORM 에이키는 배뇨와도 비슷한 신기한 감각에 몸을 맡기고,
		DATAFORM 에이키는 넘쳐흐르는 조수에 만족감마저 느끼고
	ENDDATA
	PRINTFORMDW 애널 절정에 올라갔다…
ELSE
	SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT, @"「아니야, 이거엇, 달라아앗HPH」", "L"
		CASE 1
			CALL HPH_PRINT, @"「멈추질않아앗HPH　멈추지 않아아HPH」", "L"
		CASE 2
			CALL HPH_PRINT, @"「안대애HPH　참을 수, 없어어HPH」", "L"
	ENDSELECT
	PRINTDATAD
		DATAFORM 에이키는 하염없이 쏟아지는 조수에 당황하며,
		DATAFORM 에이키는 시오후키의 수치와 쾌락에 몸부림치면서,
		DATAFORM 에이키는 시오후키의 부끄러움에 뺨을 붉게 물들이며,
	ENDDATA
	PRINTFORMDW 애널을 통한 절정에 올라가기 시작했다…
ENDIF
RETURN 1

;==================================================
;縦割れアナル発覚
;変な電波が降りてきたので勢いで書く
;--------------------------------------------------
@K30_VERTICAL_ANUS
#DIMS BUNKI
;こういう事言うには信頼関係が大事
SIF !TALENT:연모 || SHIRAHU(30) != 2
	RETURN
;何か入っている時はわからない
SIF TEQUIP:애널바이브 || TEQUIP:A접촉부위 == 1
	RETURN
;アナル開帳だと即指摘
SIF SELECTCOM == 13
	GOTO LOOK
;お尻が広がる커맨드と見つける커맨드を無駄に精査
SIF !GROUPMATCH(PREVCOM, 5, 45, 62, 63, 66, 69, 70, 74, 75)
	RETURN
SIF !GROUPMATCH(SELECTCOM, 0, 1, 3, 4, 5, 8, 40, 41, 44, 45, 60, 61)
	RETURN
IF PREVCOM == 45
	BUNKI = 애널바이브로 확 벌어진
ELSEIF MASTER_POSE(7, 1, 1) == 30
	BUNKI = %CALLNAME:MASTER%의 페니스로 넓어진
ELSE
	BUNKI = %CALLNAME:MASTER%의 손가락으로 넓혀진
ENDIF
$LOOK
SETBIT CFLAG:1910, 7
CALL K30_D_LINE
IF SELECTCOM == 13
	PRINTFORMDL 에이키가 \@ ABL:노출벽 >= 5 ? 기뻐하며 # 마지못해하며 \@ 펼쳐보인 애널은 천천히 제자리로 돌아간다
ELSE
	PRINTFORMDL %BUNKI% 에이키의 애널은 천천히 제자리로 되돌아갔다
ENDIF
PRINTFORMDW 잠시 후 원래대로 꼭 닫혔지만 %마스터는% 뭔가 위화감을 느끼고 있다…
IF SELECTCOM == 13
	PRINTFORML 「ㄱ, 그렇게 계속 보여지면 뭔가…곤란해…」
	PRINTFORML 「이것만 보여줬는데 뭔가… 아직 남았어…?」
ELSE
	PRINTFORML 「저기, 왜 자꾸 엉덩이 쪽을 보는거야…」
ENDIF
PRINTFORMW 「저기… 혹시 뭔가…이상해? 내 엉덩이, 어딘가…이상한거야…?」
PRINTFORML
PRINTFORMDL 약간 초조해하는 에이키의 애널을 관찰하고 %마스터는% 겨우 위화감의 정체를 깨달았다
PRINTFORMDL 에이키의 항문은 더 이상 오므라들지 않고 어느 틈엔가 세로로 긴 줄기로 변화하고 있었다
PRINTFORMDW 차분히 개발한 결과, 배설 기관이 쾌락을 받아들이기 위한 제2의 성기로 바뀐 것 같다…
PRINTFORML
PRINTFORML 「알려줘, 정말 왜 그래…? 말할 수 없을 정도로…뭔가, 이상한거야…?」
PRINTFORMDW 불안해하는 에이키에게, %마스터는% 대체 어떻게 되어 있는지를 똑똑히 설명해 주었다
PRINTFORML
PRINTFORML 「엉덩이…구멍이, 세로로…되있어? ……그게, 대체 무슨 뜻이야…?」
PRINTFORMW 「……………」
PRINTFORML 「그러니까, 간단히 말해서…『내 엉덩이가, 당신의 …자지 모양을 확실히 기억했다 』고……??」
PRINTFORMW 「……………」
CALL COLORMESSAGE("「～～～～～＠☆!!」", C_RED,1, 0)
PRINTFORMDL 설명을 마치자 에이키는 새빨개져서 얼굴을 가리고 말았다
PRINTFORMDL 노출된 채로 있는 세로 모양 구멍은 변함없이 유혹하듯이 꿈틀거리고 있다
CALL K30_D_LINE
RESETCOLOR
PRINTFORMW
RETURN

path: ERB/대사_메시지관련/개인대사/030 에이키/追加ファイル/M_KOJO_K30_오토신음・추가상황.ERB


code:
;### 함수 ###################################
;==================================================
;보는 눈이 있는가에 대한 판정 함수＠치마 넘김 판정을 정리했을 뿐
;보는 눈이 있다 =1 없다 =0
;-------------------------------------------------
@K30_BE_SEEN()
#FUNCTION
SIF GET_TARGETNUM() > 1 || DATE_HITOGOMI(CFLAG:PLAYER:현재위치) || WITH_MOB()
	RETURNF 1
RETURNF 0
;==================================================
;인사를 돌려주는 식중함수
;4시～10시 전・10시～18시 전・그 외
;-------------------------------------------------
@K30_GREETING_EIKI()
#FUNCTIONS
SELECTCASE TIME
	CASE 240 TO 599
		SIF TALENT:연인
			RETURNF "좋은 아침"
		RETURNF "좋은 아침입니다"
	CASE 600 TO 1079
		RETURNF "안녕하세요"
	CASEELSE
		RETURNF "좋은 밤 입니다"
ENDSELECT
;==================================================
;MASTER의 연인이 그 자리에 있는지 없는지를 돌려주는 식중함수
;=-1 에이키님이 연인 =0 원래 연인 없음 =1 그 자리에 없음 =2 연인과 동석
;비연인 시절의 에이키님을 귀찮은 여자로 만듦
;-------------------------------------------------
@K30_FIND_LOVER()
#FUNCTION
SIF TALENT:MASTER:연인 == 0
	RETURNF 0
SIF TALENT:30:연인
	RETURNF -1
SIF WITH_연인(MASTER) ;KR판 복수연인 지원용 임의수정 ;CFLAG:(TALENT:MASTER:연인):현재위치 == CFLAG:MASTER:현재위치
	RETURNF 2
RETURNF 1
;==================================================
;술에 취한 정도를 숫자로 반환하는 식중함수
;=0 평범 =1 살짝 취함 =2 많이 취함 =3 곤드레만드레
;-------------------------------------------------
@K30_DRUNK()
#FUNCTION
SIF BASE:30:술기운 <= 2
	RETURNF 0
SELECTCASE BASE:30:술기운
	;곤드레만드레
	CASE IS > (MAXBASE:30:술기운 / 10) * 8
		RETURNF 3
	;많이 취함
	CASE IS > (MAXBASE:30:술기운 / 10) * 5
		RETURNF 2
	;살짝 취함
	CASE IS <= (MAXBASE:30:술기운 / 10) * 5
		RETURNF 1
ENDSELECT
;==================================================
;키스 외의 시선 가미하여 통과시킬지 판단하는 식중함수
;풍미니까 매운맛도 괜찮음
;=0 실패 =1 성공
;-------------------------------------------------
@K30_TRY_HARASS
#FUNCTION
;상태 이상・우후후시・초대 시에는 안내한다
SIF SHIRAHU(30) != 1 || CFLAG:30:우후후 || CFLAG:30:초대
	RETURNF 1
;키스마가 붙으면 키스는 전부 통과
SIF TALENT:키스마 && SELECTCOM == 312
	RETURNF 1
LOCAL = RAND:110
LOCAL:1 = 25 + GET_SUCCESS_RATE() / 8
SIF LOCAL:1 > 109
	LOCAL:1 = 109
;캡을 씌운 다음에 시선이 지나가면 -33%, 아니면 +20%
IF K30_BE_SEEN() == 0
	LOCAL:1 += 20
ELSE
	LOCAL:1 -= 33
ENDIF
;반발각인 1당 -20%
LOCAL:1 -= MARK:30:반발각인 * 20
SIF LOCAL >= LOCAL:1
	RETURNF 0
RETURNF 1
;==================================================
;같은 방의 캐릭터를 줍는 식중함수. 찾는 순위는 [연인]가짐 → 안면 → TARGET내 랜덤
;앨리스 구상의 함수를 빌려서 평문화했습니다. ERH이면 동작이 빠르거나 안정이 되는걸까?
;완전복사는 조금 그러니까 아는 사이 빼고는 랜덤으로 골라서 ID를 돌려주도록. 아무도 없으면 0을 되돌려준다
;-------------------------------------------------
@K30_FIND_AROUND()
#FUNCTION
#DIM 안면,7 = 76, 129, 49, 113, 80, 66, 26
#DIM 총인원
#DIM 추첨
#LOCALSIZE 200
;에이키님의 안면는 7명, 코마치 > 쿠타카 > 사토리 > 헤카티아 > 아큐> 유유코> 유카리순으로 (내 맘대로) 설정
VARSET LOCAL
추첨 = 0
총인원 = GET_TARGETNUM()
;방에 에이키님 혼자면 당연히 0
SIF 총인원 == 1
	RETURNF 0
;[연인]가지고 있는 사람이 있으면 우선해서 ID를 반환한다
SIF K30_FIND_LOVER() == 2
	RETURNF TALENT:MASTER:연인
;아는 사람 우선도 순서대로 현재 위치 알아보고 MASTER와 같다면 ID를 반환한다
FOR COUNT, 0, 7
	SIF CFLAG:(안면:COUNT):현재위치 == CFLAG:MASTER:현재위치
		RETURNF 안면:COUNT
NEXT
;안면이 없으면 같은 방의 TARGET_ID 전부를 가진다
FOR COUNT,1, 총인원 + 1
	;지옥의 단두대 with 제로 소지 상태 막기 위한 구상주는 스킵
	SIF TARGET:COUNT == TARGET:0
		CONTINUE
	;MASTER와 에이키님의 현재위치에 없으면 스킵
	SIF (CFLAG:(TARGET:COUNT):현재위치 != CFLAG:MASTER:현재위치) || (CFLAG:(TARGET:COUNT):현재위치 != CFLAG:30:현재위치)
		CONTINUE
	;배열 카운트는 따로 집으면서 대입
	LOCAL:추첨 = TARGET:COUNT
	추첨 ++
NEXT
;이 조건으로 여기까지 온 것은 무엇 때문일까
;어쨌든 에러를 내지 않기 위해 힘내자!
SIF 추첨 < 1
	RETURNF 0
;추첨해서 ID를 결정
RETURNF LOCAL:(RAND(추첨))
;==================================================
;에이키님이 다른 캐릭터를 부르는 식중함수
;경칭없이 이름만 =코마치 쿠타카：경칭 =헤카티아「님」：나머지는 전부「씨」붙임
;ARG=0로 MASTER 조건부로 호칭을 바꾼다. 수요가 없을 것 같지만 오빠에도 대응
;인수 =1 or 2를 잡으면 지나가는 캐릭터 /MASTER/대상 캐릭터 없음(ARG=0)이 지정되면「누군가」「다른사람」과 부름＠성희롱이 진척됨
;인수 =3로 종족・속성 부름. CSV읽기로 TALENT분 보다 분위기가 나는 것 같지만, 개별적으로 설정하지 않기 때문에 역시 이상한 것은 있어. 日時·설교에 사용할 예정이지만 아직 사용하지 않았다.
;-------------------------------------------------
@K30_C_NAME(ARG, TYPE = 0)
#FUNCTIONS
#DIM TYPE
#DIM VARIANT
#DIMS STR_LIST, 10
VARSET LOCALS
VARSET STR_LIST
VARIANT = 0
SIF TYPE == 3
	GOTO TRIBE
IF TYPE && (ARG == RANDOM_CHARANUM || ARG == 0)
	SIF TYPE == 1
		RETURNF "누군가"
	SIF TYPE == 2
		RETURNF "다른사람"
ENDIF
SELECTCASE ARG
	;MASTER의 호칭
	CASE 0
		;반발가짐, 빡쳤을 때는 서먹서먹한 느낌으로
		SIF CFLAG:30:빡침 || MARK:30:반발각인 > 0
			RETURNF CALLNAME:MASTER + "씨"
		;연모가 없으면 통상형
		SIF !TALENT:30:연모
			RETURNF MASTERNAME:30 + "씨"
		;이름 있는 캐릭터 주변에 없음 + 연모시 설정으로 고유의 호칭
		SIF GET_TARGETNUM() <= 1 && CSTR:30:80 != ""
			RETURNF CSTR:30:80
		;연인은 이름으로
		SIF TALENT:30:연인
			RETURNF MASTERNAME:30
		;우후후중이라 남의 눈이 없을 때도 이름으로 부름
		SIF CFLAG:30:우후후 && K30_BE_SEEN() == 0
			RETURNF MASTERNAME:30
		;그 외에는 통상형
		RETURNF MASTERNAME:30 + "씨"
	;코마치・쿠타카
	CASE 76, 129
		RETURNF CALLNAME:ARG
	;헤카티아
	CASE 113
		RETURNF CALLNAME:ARG + "님"
	;그 외
	CASEELSE
		RETURNF CALLNAME:ARG + "씨"
ENDSELECT
$TRIBE
;치르노만 강렬하게 위화감이 있었으므로 직접 지정
SIF ARG == 14
	RETURNF "얼음요정"
;CSTR:10로부터의 추출은 PRINT_STATE의 유용. 소개글이 없는 '●'로 구분되어 있지 않으면 내쫓는다
LOCALS =  %CSVCSTR(ARG, 10)%
IF STRFIND(LOCALS, "●") > -1
	SPLIT LOCALS, "●", STR_LIST
	FOR LOCAL, 0, RESULT
		IF STRFIND(STR_LIST:LOCAL, "종족：") > -1
			LOCALS:1 = %REPLACE(STR_LIST:LOCAL, "종족：", "")%
			LOCALS:1 = %REPLACE(LOCALS:1, "　", "")%
			BREAK
		ENDIF
	NEXT
ENDIF
;'（'가 대화로 나오면 이상하기 때문에 제외
SIF STRFIND(LOCALS:1, "（") > -1
	LOCALS:1 =
;'인간''요괴'는 TALENT의 쪽에서 더 자세히 본다
IF  LOCALS:1 == "인간"
	VARIANT = 1
	LOCALS:1 =
ELSEIF LOCALS:1 == "요괴"
	VARIANT = 2
	LOCALS:1 =
ENDIF
SIF LOCALS:1 != ""
	RETURNF LOCALS:1
;'인간''요괴'는 추가 종족 → TALENT로 판단
IF VARIANT
	IF TALENT:ARG:GETNUM(TALENT, "추가종족")
		LOCALS:1 = %GET_TRIBENAME(ARG, GETNUM(TALENT, "추가종족"))%
	ELSEIF VARIANT == 1
		LOCALS:1 = %GET_TRIBENAME(ARG, GETNUM(TALENT, "인간"))%
	ELSE
		LOCALS:1 = %GET_TRIBENAME(ARG, GETNUM(TALENT, "요괴"))%
	ENDIF
;그 외에는 이 잡듯이 뒤진다
ELSE
	;조건에 따라 제대로 나누어야 하지만 날림. 사양이 바뀌면 제대로 맞춘다
	FOR LOCAL, 0, 7
		IF TALENT:ARG:(190 + (LOCAL))
			LOCALS:1 = %GET_TRIBENAME(ARG, (190 + LOCAL))%
			BREAK
		ENDIF
	NEXT
	;'인간''요괴'는 추가종족을 우선한다
	SIF TALENT:ARG:GETNUM(TALENT, "추가종족") && (TALENT:ARG:GETNUM(TALENT, "요괴") == 1 || TALENT:ARG:GETNUM(TALENT, "인간") == 1)
		LOCALS:1 = %GET_TRIBENAME(ARG, GETNUM(TALENT, "추가종족"))%
ENDIF
RETURNF LOCALS:1
;==================================================
;질내사정 OK인가 판별하는 식중함수
;성교 관련 구성의 준비（적을 수 있을지는 불명）
;--------------------------------------------------
;=0 질내사정OK =1 임산부라서 안 돼 =2 육아중이라 안 돼 =3 합의가 없음
;--------------------------------------------------
@K30_CREAMPIE()
#FUNCTION
;약만 먹으면 싸는건 안심
SIF TCVAR:30:피임약
	GOTO PREG
;합의 상황을 본다
SIF (CFLAG:30:생해금 == 0 && ESTRUS_CYCLE(30) != 15) || (CFLAG:30:생해금 == 1 && ESTRUS_CYCLE(30) == 150)
	RETURNF 3
;육아 상황을 본다
SIF TALENT:30:육아중 && CFLAG:30:출산경과일 < CHILD_취학
	RETURNF 2
$PREG
;모태의 성장을 본다
SIF TALENT:30:임신 && !INRANGE(CFLAG:임신경과일수, 31, 70)
	RETURNF 1
;여기까지 빠지면 OK
	RETURNF 0
;==================================================
;에이키님이 얼마나 할 기분인가 보는 식중함수
;@ENDURE를 일이나 스킨십 중에 사용하기 위해서 조금 깍아서 가져온 것 뿐임
;본테에서는 이 값이 RAND:300 + 300 보다 크면 밀려나는 쪽으로 이행
;-------------------------------------------------
@K30_PUSH_DOWN()
#FUNCTION
;소질에 따른 판정 변화
LOCAL = CFLAG:30:합의판정
LOCAL += (EX:30:C절정직전 + EX:30:V절정직전 + EX:30:A절정직전 + EX:30:B절정직전 + EX:30:M절정직전) * 20
;안으면 밀려넘어짐 비율 상승
SIF SELECTCOM == 311
	LOCAL += 30
LOCAL += TALENT:30:성적흥미 * 20
SIF TALENT:30:처녀
	LOCAL -= 50
SIF TALENT:30:연모
	LOCAL = LOCAL + 50
SIF TALENT:30:자존심 > 0
	LOCAL -= 20
SIF CFLAG:30:생해금 == 2
	LOCAL = LOCAL + 50
SIF CFLAG:30:억지로질내사정
	LOCAL -= 100
SIF TALENT:30:담력 < 0 || TALENT:30:응답 < 0 || TALENT:30:무관심
	LOCAL = LOCAL - 30
SIF TALENT:30:수치심 > 0
	LOCAL -= 30
SIF TALENT:30:수치심 < 0
	LOCAL = LOCAL + 20
SIF TALENT:30:자제심
	LOCAL = LOCAL - 20
SIF TALENT:30:정조 < 0 || TALENT:30:소악마
	LOCAL = LOCAL + 20
SIF TALENT:30:정조 > 0 || TALENT:30:일선을넘지않음
	LOCAL -= 20
IF !GETBIT(CFLAG:30:기정사실, 1) && TALENT:30:정조 > 0
	LOCAL -= 30
	SIF !TALENT:30:연모 && !TALENT:30:섹프
		LOCAL -= 50
ENDIF
SIF OTOKOGIRAI(30) && !(IsHeat(30) || IsInsenceValid(30))
	LOCAL = LOCAL / 2
SIF TALENT:30:일선을넘지않음 && TALENT:30:연모
	LOCAL = LOCAL * 12 / 5
SIF MARK:30:반발각인 == 3
	LOCAL = 0
SELECTCASE CFLAG:30:욕구불만도
	CASE IS >= 1000
		LOCAL *= 3
	CASE IS >= 800
		LOCAL = LOCAL * 3 / 2
	CASE IS >= 600
		LOCAL = LOCAL * 5 / 4
	CASE IS >= 500
	CASE IS >= 300
		LOCAL /= 2
	CASE IS >= 200
		LOCAL /= 4
	CASE IS >= 100
		LOCAL /= 10
	CASEELSE
		LOCAL = 0
ENDSELECT
;체력에 의존하여 쓰러뜨려짐률 감소
SELECTCASE BASE:30:체력
	CASE IS < 750
		LOCAL = 0
	CASE IS < 1000
		LOCAL /= 2
	CASE IS < 1500
		LOCAL = LOCAL * 3 / 4
	CASEELSE
ENDSELECT
SELECTCASE BASE:30:기력
	CASE 0
		LOCAL = 0
	CASE IS < 500
		LOCAL /= 2
	CASEELSE
ENDSELECT
;이성에 의존하여 쓰러뜨려짐률 감소
IF BASE:30:이성 > 800
	LOCAL = LOCAL / 5
ELSEIF BASE:30:이성 > 600
	LOCAL = LOCAL / 2
ENDIF
SELECTCASE BASE:30:무드
	CASE IS < 200
		LOCAL = 0
	CASE 201 TO 400
		LOCAL /= 4
	CASE 401 TO 600
		LOCAL /= 2
	CASE 601 TO 800
	CASEELSE
		LOCAL = LOCAL * 6 / 5
ENDSELECT
SIF FLAG:생활능력무
	LOCAL = LOCAL * 2
SIF CFLAG:30:빡침
	LOCAL = 0
RETURNF LOCAL
;==================================================
;日時용으로 장소를 문자열로 반환하는 식중함수@월맵 지원
;수치로 남기면 거점 이사로 바뀔 수 있으므로
;-------------------------------------------------
@K30_DIARY_PLACE(ARG)
#FUNCTIONS
#DIM 対象マップ
#DIMS TEMP_NAME
SIF CFLAG:30:초기위치 == ARG
	RETURNF "자기 방"
対象マップ =  GET_MAPID(ARG)
SELECTCASE 対象マップ
;※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
;MAPX_AREANAMEが廃止されたので月マップに倣ってMAP_SEARCH_REPLACEMENTで置換しました
;※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
	CASE 0
		SELECTCASE MAP_SEARCH_REPLACEMENT_0(ARG)
			CASE 요정의큰나무
				TEMP_NAME = 삼요정의집
			CASE 몽환유적
				TEMP_NAME = 몽환유적
			CASEELSE
				TEMP_NAME = 하쿠레이 신사
		ENDSELECT
	CASE 1
		SELECTCASE MAP_SEARCH_REPLACEMENT_1(ARG)
			CASE 신령묘광장, 신령묘도장
				TEMP_NAME = 신령묘
			CASEELSE
				TEMP_NAME = 명련사
		ENDSELECT
	CASE 2
		SELECTCASE MAP_SEARCH_REPLACEMENT_2(ARG)
			CASEELSE
				TEMP_NAME = 인간 마을
		ENDSELECT
	CASE 3
		SELECTCASE MAP_SEARCH_REPLACEMENT_3(ARG)
			CASE 안개의호수, 얼음집
				TEMP_NAME = 안개의 호수
			CASE 폐양관
				TEMP_NAME = 소령의 폐양관
			CASEELSE
				TEMP_NAME = 홍마관
		ENDSELECT
	CASE 4
		SELECTCASE MAP_SEARCH_REPLACEMENT_4(ARG)
			CASE 영원정, 영원정안채
				TEMP_NAME = 영원정
			CASE 무명의언덕
				TEMP_NAME = 무명의 언덕
			CASE 태양의밭
				TEMP_NAME = 태양의 밭
			CASE 몽환관
				TEMP_NAME = 몽환관
			CASEELSE
				TEMP_NAME = 미혹의 죽림
		ENDSELECT
	CASE 5
		SELECTCASE MAP_SEARCH_REPLACEMENT_5(ARG)
			CASE 향림당
				TEMP_NAME = 향림당
			CASE 키리사메마법점
				TEMP_NAME = 키리사메 마법점
			CASE 인형양관
				TEMP_NAME = 인형양관
			CASE 재고의길
				TEMP_NAME = 재고의 길
			CASE 무연총
				TEMP_NAME = 무연총
			CASEELSE
				TEMP_NAME = 마법의 숲
		ENDSELECT
;		SIF TEMP_NAME == "魔理沙の店"
;			TEMP_NAME = 霧雨魔法店
;		SIF TEMP_NAME == "エレンの店"
;			TEMP_NAME = 魔女の店
	CASE 6
		SELECTCASE MAP_SEARCH_REPLACEMENT_6(ARG)
			CASE 마요이가
				TEMP_NAME = 야쿠모가
			CASE 피안
				TEMP_NAME = 시비곡직청
			CASE 백옥루정원, 백옥루
				TEMP_NAME = 백옥루
			CASE 지옥
				TEMP_NAME = 지옥
			CASE 축생계
				TEMP_NAME = 축생계
			CASE 영장원
				TEMP_NAME = 영장원
			CASEELSE
				TEMP_NAME = 삼도천
		ENDSELECT
	CASE 7
		SELECTCASE MAP_SEARCH_REPLACEMENT_7(ARG)
			CASE 세이자은신처앞
				TEMP_NAME = 세이자 은신처 앞
			CASE 선인의저택
				TEMP_NAME = 선인의 저택
			CASEELSE
				TEMP_NAME = 요괴의 산 산록
		ENDSELECT
;		SIF TEMP_NAME == "秋姉妹の家"
;			TEMP_NAME = 秋神様の住まい
;		SIF TEMP_NAME == "正邪の隠れ家前"
;			TEMP_NAME = 天邪鬼の住処
	CASE 8
		SELECTCASE MAP_SEARCH_REPLACEMENT_8(ARG)
			CASE 산의호수, 모리야신사경내, 모리야신사본전
				TEMP_NAME = 모리야 신사
			CASE 홍룡동
				TEMP_NAME = 홍룡동
			CASE 천계
				TEMP_NAME = 천계
			CASEELSE
				TEMP_NAME = 요괴의 산 산정
		ENDSELECT
	CASE 9
		SELECTCASE MAP_SEARCH_REPLACEMENT_9(ARG)
			CASE 옛지옥가도, 옛지옥온천, 러브호텔
				TEMP_NAME = 옛도시
			CASE 지령전
				TEMP_NAME = 지령전
			CASE 작열지옥터
				TEMP_NAME = 옛지옥
			CASEELSE
				TEMP_NAME = 지저
		ENDSELECT
	CASE 10
		SELECTCASE MAP_SEARCH_REPLACEMENT_10(ARG)
			CASE 괴안통로
				TEMP_NAME = 괴안통로
			CASE 달의도시, 와타츠키정, 옥토거리
				TEMP_NAME = 달의 도시
			CASE 복숭아숲～모래사장, 고요의바다
				TEMP_NAME = 달의 도시 교외
			CASEELSE
				TEMP_NAME = 달의 세계
		ENDSELECT
	CASEELSE
		TEMP_NAME = 낯선 장소
ENDSELECT
RETURNF TEMP_NAME
;==================================================
;日時용 데이터를 호출하는 식중함수
;--------------------------------------------------
;ARG: =0 날짜  =1 天気 =2 특기사항
;	  =3 이름  =4 장소 =5 별기사항
;--------------------------------------------------
@K30_DIARY_DATA(キー, 種別)
#FUNCTIONS
#DIM 種別
#DIMS キー
#DIMS 戻り値
#DIMS 取得文字列, 4
#DIMS 仮天気, 5 = "맑음", "쾌청", "약간흐림", "흐림", "비"
VARSET 取得文字列
LOCAL = 0
;불러올 CSTR의 선별
IF 種別 > 2
	LOCAL ++
	種別 -= 3
ENDIF
;日時 ID를 키로서 CSTR을 검색
戻り値 = %DIC_GET(CSTR:30:(81 + LOCAL), キー)%
IF 戻り値 != ""
	;정보 種別마다 분할
	SPLIT 戻り値, "/", 取得文字列
	;취득값 없으면 팔로우로 이동
	SIF 取得文字列:種別 == ""
		GOTO FOLLOW
	;인수에 따라 문자열을 반환한다
	RETURNF 取得文字列:種別
;VerUP,오류 등으로 戻り値이 비어있을 경우의 팔로우
ELSE
	$FOLLOW
	SIF LOCAL
		種別 += 3
	SELECTCASE 種別
		CASE 0
			RETURNF "0"
		CASE 1
			LOCAL = TOINT(キー) % 5
			RETURNF 仮天気:LOCAL
		CASE 2, 5
			RETURNF ""
		CASE 3
			RETURNF MASTERNAME:30
		CASE 4
			RETURNF "그 장소"
	ENDSELECT
ENDIF
;==================================================
;日時에 쓰는 함수. 제2인수를 취하면 미공개日時(DIARY:30:XX = 3)
;동시에 날짜 등을 CSTR:81,CSTR:82에 기록. 日記ID를 키로서 사용하는 @DIC_SET를 빌림
;연상배열이라던가 제대로 의미를 알지는 못하지만, 뭔가 쓸 수 있어서 움직이니까 이걸로 됐어.
;-------------------------------------------------
@K30_WRITE_DIARY(日記ID, ARG = 0)
#DIM 日記ID
#DIMS 日時
#DIMS 場所
#DIMS 天気
#DIMS 名前
#DIMS 特記
#DIMS 別記
#DIMS キー
#DIMS 書き込み値, 2
#DIMS 仮天気, 5 = "맑음", "쾌청", "약간흐림", "흐림", "비"
VARSET LOCALS
特記 =
別記 =
;남기는 기록을 변환
キー = %TOSTR(日記ID)%
日時 = %TOSTR(DAY:0)%
場所 = %K30_DIARY_PLACE(CFLAG:30:현재위치)%
;이상 기상은 일부 바꾸어 말함
SELECTCASE FLAG:이상기상
	CASE 1 TO 6
		天気 = %仮天気:(RAND:4)%　%\@ DAY:2 == 2 ? 후덥지근하다 # 이상하게 따뜻하다 \@%
	CASE 7, 8
		天気 = %仮天気:(RAND:4)%　%\@ FLAG:이상기상 == 7 ? 속옷이 날고있다? # 묘하게 바람이 세다 \@%
	CASEELSE
		天気 = %GET_WEATHER()%
ENDSELECT
;UPDATE 때문이라면 날씨는 랜덤
SIF TFLAG:100 == 0
	天気 = %仮天気:(RAND:5)%
;이름은 MASTERNAME or 연모 후의 애칭. 함락이 없으면「씨」를 붙임. 변천이 있으면 日時감이 나올…지도 모름
名前 = %\@ CSTR:30:80 != "" ? %CSTR:30:80% # %MASTERNAME:30% \@%%\@ TALENT:30:사모 || TALENT:30:연모 ? # 씨 \@%
;페이지마다의 특기사항
SELECTCASE 日記ID
	;키스：여러가지로 선별
	CASE 1
		;「라고 생각하고 있지만, 실은」의 경우 앞 문단만 주워 무자각을 친다
		IF STRFIND(CSTR:30:첫키스상실이력, "\BR") > 0
			SPLIT CSTR:30:첫키스상실이력, "\BR", LOCALS
		ELSE
			LOCALS:0 = %CSTR:30:첫키스상실이력%
		ENDIF
		;억지로 할 경우, 일시를 쓰지 않음
		IF STRCOUNT(LOCALS:0, "억지로")
			SETBIT CFLAG:30:1910, 2
			RETURN
		ELSE
			日時 = %TOSTR(CFLAG:30:첫키스상실기념일)%
			;UPDATE에서라면 장소를 얼버무리기
			SIF TFLAG:100 == 0
				場所 = 소중한 장소
			SIF TALENT:30:연모
				特記 = 恋
			SIF STRCOUNT(LOCALS:0, "바쳤다") || GETBIT(CFLAG:30:1910, 6)
				別記 = 捧
		ENDIF
	;처녀상실：여러가지로 선별
	CASE 2
		;무의식적으로 아나타 이외의 것의 파과는 이후 통과
		IF STRCOUNT(CSTR:30:처녀상실이력, "시간정지중|만취하고 있을 때|자고 있는 동안에|불만을 느끼면서")
			SETBIT CFLAG:30:1910, 3
			RETURN
		ENDIF
		;파과 입구를 준비하지 않은 탓에 상당히 헐렁헐렁하지만 3단계로
		日時 = %TOSTR(CFLAG:30:처녀상실기념일)%
		IF TALENT:30:연모 && !STRCOUNT(CSTR:30:처녀상실이력, "힘으로|바이브로")
			特記 = 恋
		ELSEIF TALENT:30:사모 || TALENT:30:연모
			特記 = 思
		ELSE
			特記 = 無
		ENDIF
	;잔소리 들었다：이유와 설교의 길이
	CASE 5
		特記 = %TOSTR(TFLAG:193)%
	;설교 타임：코마치의 땡땡이 현장
	CASE 8
		場所 = %K30_DIARY_PLACE(CFLAG:MASTER:현재위치)%
		SIF 場所 == "삼도천"
			場所 = 조금 다른 장소
	;얻어맞았다：버텼다 or 쓰러졌다
	CASE 10
		SIF BASE:MASTER:체력 <= 500
			特記 = 倒
	;선물(GOOD)：선물 풀네임, 연모여부
	CASE 12
		CALL GIFTNAME(TCVAR:30:오늘의선물)
		特記 = %RESULTS%
		別記 = %\@ TALENT:연모 ? 사랑 # \@%
	;선물(NORMAL&BAD)：선물 본체 명
	CASE 13, 14
		CALL GIFTDATA_MAIN(GET_GIFTDATA(TCVAR:30:오늘의선물, "정체"))
		特記 = %RESULTS%
	;치마 넘김：입고있는 팬티와 반응
	CASE 15
		特記 = %PANTSNAME(EQUIP:하반신속옷2, 30)%
		SIF 特記 == "노팬티"
			特記 = 입지 않음
		SELECTCASE TFLAG:193
			CASE IS < 0
				別記 = 怒
			CASE IS > 10
				別記 = 喜
			CASEELSE
				別記 = 照
		ENDSELECT
	;설법 10回 종료：MASTER 현 주소
	CASE 16
		場所 = %K30_DIARY_PLACE(CFLAG:MASTER:초기위치)%
	;헤카님에게서의 편지：편지 내용물
	CASE 18
		SIF STRCOUNT(CSTR:30:0, "이상한T지령")
			特記 = 이상한T
	;뭔가 낚였다：낚은 물건
	CASE 22
		SELECTCASE TFLAG:193
			CASE 1 TO 20, 22 TO 31
				特記 = 물고기
				SIF GROUPMATCH(TFLAG:193, 9, 23, 24, 28, 30, 31)
					特記 = 큰 물고기
			CASE 21
				特記 = 저런 이상한 것
			CASE 606, 609, 643
				特記 = 소재
			CASE 131, 610
				特記 = 누군가가 버린 쓰레기
			CASE 706
				特記 = 그냥 개구리
		ENDSELECT
	;연회 소식：개최 요항
	CASE 24
		SELECTCASE FLAG:연회개최플래그
			CASE 2
				場所 = 하쿠레이 신사
				特記 = 망년회
			CASE 3
				場所 = 영원정
				特記 = 달맞이회
			CASE 4
				場所 = 인간마을
				特記 = 수확제
		ENDSELECT
	;얇은 책을 봤다：책의 내용, 흥미 여부
	CASE 25
		特記 = %\@ TFLAG:193 ? 비참함 # \@%
		SIF ABL:욕망 > 6 || DIARY:30:31 != 0
			別記 = 있음
	;연모：호칭을 바꿨는지
	CASE 30
		IF !STRCOUNT(CSTR:30:0, "호칭")
			特記 = 1
		ELSEIF CSTR:30:80 == "" || CSTR:30:80 == MASTERNAME:30
			特記 = 2
		ELSE
			別記 = %MASTERNAME:30%
		ENDIF
	;출산：태어난 아이의 이름
	CASE 34
		特記 = %CHILDNAME:30:(TALENT:30:육아중)%
ENDSELECT
IF ARG == 0
	DIARY:30:日記ID = 2
ELSE
	DIARY:30:日記ID = 3
	CALL CHARA_DIARY_PAGESETTING(30, 日記ID)
ENDIF
書き込み値:0 = %日時%/%天気%/%特記%
書き込み値:1 = %名前%/%場所%/%別記%
CSTR:30:81 = %DIC_SET(CSTR:30:81, キー, 書き込み値:0)%
CSTR:30:82 = %DIC_SET(CSTR:30:82, キー, 書き込み値:1)%
RETURN
;==================================================
;지문 개변시에 짜맞추는 함수
;-------------------------------------------------
@K30_COMPENSATE_MESSAGE
SIF CFLAG:MASTER:우후후 != 2 && SELECTCOM != 461
	CALL 카운터호출처리
CALL M_KOJO_COLOR_K30
RETURN 1
;==================================================
;흰 선을 긋는다. 단지 그뿐인 함수
;-------------------------------------------------
@K30_D_LINE
RESETCOLOR
DRAWLINE
SETCOLOR 0x337D5C
RETURN RESULT
;==================================================
;우후후 들어갈 때의 준비함수
;절정 횟수 등 리셋, 약점 보존,
;또한 의식이 있는 경우 전날 행동 반영을 리셋·우후부 횟수 기록・에이키님 자기 방이라면 묘사용 플래그세움
;-------------------------------------------------
@K30_PRESET_UFUFU
VARSET TCVAR:30:0, 0, 390, 398
TCVAR:30:381 = CFLAG:약점잡음
IF SHIRAHU(30)
	CFLAG:1603 = 0
	TCVAR:30:380 ++
	SIF GROUPMATCH(CFLAG:MASTER:현재위치, CFLAG:30:초기위치, OMANEKIBEYA())
		TCVAR:30:378 = 1
ENDIF
RETURN RESULT
;==================================================
;TARGET이 없는 상태로 복수의 우후후에 들어갔을 경우의 팔로우함수
;한 명령어를 두고 갑자기 말투가 바뀔지도 모르지만, 그대로 두는 것보다는 나을 것이다
;-------------------------------------------------
@K30_FOLLOW_UP
CALL K30_PRESET_UFUFU
SIF CFLAG:1801 == 0
	RETURN
IF !TALENT:연모
	CFLAG:1501 = 1
ELSEIF K30_FIND_LOVER() == 2 && !GROUPMATCH(K30_FIND_AROUND(), 76, 129)
	CFLAG:1501 = 1
	CFLAG:1601 = 1
ENDIF
;==================================================
;화면을 흔드는 함수. 재배포 OK이므로 유용
;여기서 인용
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;「ぱにめーしょん」0527판　By 파.
;Emuera전용 범용, 애니메이션, 비주얼 확장 함수 파일. 거의 바리안트 간 호환됨
;무단 재배포 OK, 그 때 개변·추가 기록은 원래의 기능을 손상시키지 않는 범위에서 부탁드립니다.
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;-------------------------------------------------
;진동 효과 함수@QUAKE
;	인수0：진동수. 생략한다고2
;
;화면을 위아래로 흔듭니다. 흔들림폭은 어느정도 랜덤입니다
;-------------------------------------------------
@K30_QUAKE(ARG = 2)
#LOCALSIZE 3
;표시 제거면 되돌아온다
;SIF !ANIME_CONFIG("QUAKE")
;	RETURN RESULT
REDRAW 0
FOR LOCAL, 0, ARG
	LOCAL:1 = RAND:4+1
	FOR LOCAL:2, 0, LOCAL:1
		PRINTL
	NEXT
	TWAIT 100, 0
	CLEARLINE LOCAL:1
	TWAIT 100, 0
NEXT
REDRAW 3
RETURN RESULT
;인용 여기까지
;==================================================
;주인공의 호칭을 변화하는 함수
;스레에서 화제에 올랐으므로, 한 번 넣어본다
;구문은 命OD勢의 구상에서 거의 그대로 가져왔습니다
@K30_SET_C_NAME(ARG)
#DIMS C_NAM
;--------------------------------------------------
;ARG =0:통상의 첫회 입력 =1:연모호칭입력 =2:발원으로부터의 통상호칭변경 =3:발원으로부터의 연모호칭변경
;--------------------------------------------------
RESETCOLOR
PRINTFORMDL 호칭을 입력해주세요(직접 입력하시거나 버튼으로 선택해주세요)
IF ARG == 1 || ARG == 3
	C_NAM = %MASTERNAME:30%
	SIF ARG == 3 && CSTR:30:80 != ""
		C_NAM = %CSTR:30:80%
	PRINTBUTTON "[주인님이 좋다]", "주인님"
	PRINTL
	PRINTBUTTON "[서방님이 좋다]", "서방님"
	PRINTL
	PRINTBUTTON @"[역시 %C_NAM% 정도로]", @"%C_NAM%"
	PRINTL
ELSE
	C_NAM = %CALLNAME:MASTER%
	PRINTBUTTON @"[%C_NAM%\@ TALENT:30:연인 ? # 씨 \@라고 부르도록 한다]", @"%C_NAM%"
	PRINTL
ENDIF
$INPUT_LOOP
RESETCOLOR
INPUTS
SETCOLOR 0x337D5C
;행 첫머리 행미 공백 문자 삭제
C_NAM = %RESULTS%
REPLACE C_NAM, "\(\^\\s\+\|\\s\+\$)", ""
;2문자 미만
IF STRLENS(C_NAM) < 2
	SIF STRLENS(RESULTS)
		CLEARLINE 1
	REUSELASTLINE 「…양친으로부터 받은 이름, 좀 더 소중히 여겨주세요」
	GOTO INPUT_LOOP
;12문자(전각6문자)넘었다
ELSEIF STRLENS(C_NAM) > 12
	CLEARLINE 1
	REUSELASTLINE 「죄송합니다. 평소에 부르기엔 너무 기네요…」
	GOTO INPUT_LOOP
;이하 그 캐릭터가 전부인 것이 아닐 때
;동성동명
ELSEIF FLAG:역극 != 30 && STRCOUNT(C_NAM, "\(시키\)\*\\s\*에이키")
	CLEARLINE 1
	REUSELASTLINE 「…놀리지 말아주세요」
	GOTO INPUT_LOOP
;코마치 or 쿠타카
ELSEIF (FLAG:역극 != 129 && STRCOUNT(C_NAM, "\(니와타리\)\*\\s\*쿠타카")) || (FLAG:역극 != 76 && STRCOUNT(C_NAM, "\(오노즈카\)\*\\s\*코마치"))
	CLEARLINE 1
	REUSELASTLINE 「…그 호칭은 혼동되니, 다른 것으로 부탁드립니다」
	GOTO INPUT_LOOP
;아큐
ELSEIF (FLAG:역극 != 80 && STRCOUNT(C_NAM, "\(히에다\)\*\\s\*아큐"))
	CLEARLINE 1
	REUSELASTLINE 「…새로운 아레의 자식? 이상한 농담은 그만두세요」
	GOTO INPUT_LOOP
;헤카티아
ELSEIF (FLAG:역극 != 113 && STRCOUNT(C_NAM, "헤카티아"))
	CLEARLINE 1
	REUSELASTLINE 「…실없는 소리는 거기까지 해주실까요? 실례에도 정도가 있습니다」
	GOTO INPUT_LOOP
ENDIF
;바꾼다고 말했으면서 호칭을 바꾸지 않았으면 되돌아간다
SIF (C_NAM == CSTR:30:80 && ARG == 3) || (C_NAM == MASTERNAME:30 && ARG == 2)
	RETURN -1
;직접 입력 대응＠쿄코 구상에서 그대로 빌림. 개조하고 싶지만 정규 표현을 모름
IF MASTERNAME:30 == "" || ARG == 2
	IF STRCOUNT(C_NAM, "\(여\|남\|\)\(동생\)\(짱\|\)\$")
		CLEARLINE 1
		REUSELASTLINE 「그렇다고 해도 헛소리를 들을 마음은 없습니다」
		GOTO INPUT_LOOP
	ELSEIF STRCOUNT(C_NAM, "\(\(오빠\|오라버니\)\|\(언니\)\(야\|님\|\)\)\$")
		CLEARLINE 1
		REUSELASTLINE 「그렇다고 해도 헛소리를 들을 마음은 없습니다」
		GOTO INPUT_LOOP
	ELSEIF STRCOUNT(C_NAM, "\(\(주인\)\(어른\|님\|\)\)$")
		CLEARLINE 1
		IF TALENT:연모
			REUSELASTLINE 「저, 사람들 앞에서 그 호칭은……부끄럽습니다만…」
		ELSE
			REUSELASTLINE 「그렇다고 해도 헛소리를 들을 마음은 없습니다」
		ENDIF
		GOTO INPUT_LOOP
	ELSEIF STRCOUNT(C_NAM, "\(\(서방\|남편\|여보\)\(님\|\)\)\$")
		CLEARLINE 1
		IF TALENT:연모
			REUSELASTLINE 「저, 사람들 앞에서 그 호칭은……부끄럽습니다만…」
		ELSE
			REUSELASTLINE 「그렇다고 해도 헛소리를 들을 마음은 없습니다」
		ENDIF
		GOTO INPUT_LOOP
	ENDIF
ENDIF
IF ARG == 1
	PRINTFORML 「%C_NAM%…이라고, 당신을 부르고 싶은데, 괜찮아?」
ELSEIF ARG == 3
	PRINTFORML 「%C_NAM%…이라고, 당신을 부르면 되는거지?」
ELSE
	PRINTFORML 「%C_NAM%\@ TALENT:30:연인 ? # 씨 \@, 군요」
ENDIF
RESETCOLOR
CALL ASK_YN
IF !RESULT
	IF MASTERNAME:30 == "" || ARG == 2
		MASTERNAME:30 = %C_NAM%
	ELSE
		CSTR:30:80 = %C_NAM%
	ENDIF
ELSE
	PRINTFORMDL 호칭을 입력해 주세요
	GOTO INPUT_LOOP
ENDIF
SETCOLOR 0x337D5C
RETURN 1
;==================================================
;얼굴 그림이 있는 메시지를 효과 포함으로 표시하는 함수
;패치와 경합했으므로 일단 나누어 봄
;-------------------------------------------------
@K30_SPTALK, 表情="", MESSAGE
#DIMS 表情
#DIMS MESSAGE
#DIMS 服装
#DIMS MESSAGE_PRINT,50
服装 =
キャラ画像表示サイズ比 = 100
VARSET MESSAGE_PRINT
IF 顔絵付きメッセージ == 1
	CALL GET_BASE_RESOURCE(30, "顔絵", 服装, 表情)
	SIF !RESULT
		RESULTS = %GET_BASESTYLE(30, "顔絵")%_服_通常_30
	SIF FLAG:멀티사이즈
		デフォルトキャラ画像横幅 = SPRITEHEIGHT(RESULTS)
	CALL 画像セット(RESULTS, 0, 0, キャラ画像表示サイズ比, 0, 1, "100", CALLNAME:30)
	CALL GET_EFFECT_RESOURCE(30)
	FOR LOCAL, 0, RESULT
		CALL 画像セット(RESULTS:LOCAL, 0, 0, キャラ画像表示サイズ比, LOCAL + 1)
	NEXT
	MESSAGE = %SPTALK整形(MESSAGE)%
	SPLIT MESSAGE, "/", MESSAGE_PRINT
	FOR LOCAL, 0, RESULT
		SIF LOCAL != 0
			CALL ダミーセット(0, 0, キャラ画像表示サイズ比, LOCAL)
		TEMP_HTML:LOCAL += @"<font color='#0x337D5C'>%MESSAGE_PRINT:LOCAL%</font>"
	NEXT
	CALL 画像一斉表示(0, 0, 1, -1)
	PRINTL
ELSE
	;顔絵메시지 OFF시는 통상대로 표시하도록 한다
	SPLIT MESSAGE, "/", MESSAGE_PRINT
	FOR LOCAL, 0, RESULT
		SIF MESSAGE_PRINT:LOCAL != ""
			PRINTFORML %MESSAGE_PRINT:LOCAL%
	NEXT
ENDIF

;==================================================
;범용 설교 판정&실행
@K30_LECTURE_CHECK(설교장, 이유)
;--------------------------------------------------
#DIM 설교장
#DIM 이유
#DIM 팬티1
#DIM 팬티2
#DIM 성희롱1
#DIM 성희롱2
#DIM 강제추행
#DIM TEMP
;설교장= 설교의 행수＝분노 상태
;이유= 설교이유（=0 팬티 =1 성희롱커맨드실패시 =2VA강제추행）
;--------------------------------------------------
;가드 저하시 · 기타 상태 이상 · 우후후 시는 판정 없음 무죄
SIF (CFLAG:1801 == 0 || SHIRAHU(30) != 1 || CFLAG:30:우후후) && 이유 != 0
	RETURN 1
;이상한 T로 눈이 죽어 있을 때는 설교가 없음
SIF CFLAG:30:의상일시변경 == 62 && TALENT:기분 > -1
	RETURN 1
;러브호텔과 초대방에 있어도 설교하지 않음
SIF (CFLAG:30:현재위치 == 혼숙여관 || CFLAG:30:현재위치 == 러브호텔 || CFLAG:30:현재위치 == OMANEKIBEYA()) && 이유 != 0
	RETURN 1
SELECTCASE 이유
	;팬티 밀수 적발
	CASE 0
		;설교or후려갈기고 약점은 날림
		CFLAG:약점잡음 -= 5
		CFLAG:1700 -= 5
		CLEARBIT CFLAG:1699, 1
		;2회 째까지는 설교
		IF 팬티1 != DAY
			팬티1 = DAY
			PRINTFORML
			PRINTFORMW 「……그러면, %K30_C_NAME(MASTER)%」
			GOTO LECTURE
		ELSEIF 팬티2 != DAY
			팬티2 = DAY
			PRINTFORML
			PRINTFORMW 「%K30_C_NAME(MASTER)%도 어지간히 질리지 않는 모양이네요…」
			GOTO LECTURE
		;세 번째에서 얻어맞음
		ELSE
			PRINTFORML
			PRINTFORMW 「………%CALLNAME:MASTER%씨」
			PRINTFORMW 「그렇게 말해도 아직도 이해하지 못했나요?」
			TCVAR:30:371 = 1
			CALL K30_DISCIPLINE_HEAD
		ENDIF
	;성희롱 실패시
	CASE 1
		;분노 상태 30 이하 노카운트
		IF 설교장 > 30
			;1일 2회 설교
			IF 성희롱1 != DAY
				성희롱1 = DAY
				PRINTFORML
				PRINTFORMW 「…조금 눈에 거슬리네요」
				GOTO LECTURE
			ELSEIF 성희롱2 != DAY
				성희롱2 = DAY
				PRINTFORML
				PRINTFORMW 「…정말 질리지도 않는 모양이네요」
				GOTO LECTURE
			;3번째에서 얻어맞음
			ELSE
				PRINTFORML
				PRINTFORMW 「…그만하세요」
				PRINTFORMW 「말로 통하지 않는다면」
				TCVAR:30:371 = 1
				CALL K30_DISCIPLINE_HEAD
			ENDIF
		ENDIF
	;통상시 VA커맨드 확률로
	CASE 2
		;최초는 설교
		IF 강제추행 != DAY
			강제추행 = DAY
			PRINTFORML
			PRINTFORMW 「…당신, 너무 심하잖아요」
			GOTO LECTURE
		;我慢は一回だけ
		ELSE
			PRINTFORML
			PRINTFORMW 「…이제 용서 못해요」
			PRINTFORMW 「말로써 소용이 없다면」
			TCVAR:30:371 = 2
			CALL K30_DISCIPLINE_HEAD
		ENDIF
ENDSELECT
RETURN 1
;설교
$LECTURE
PRINTFORML 「우선 거기 앉으세요」
FORCEWAIT
PRINTFORMDW 에이키가 땅을 가리켰다. %마스터는% 얌전히 정좌했다…
PRINTFORMW
SELECTCASE 이유
	CASE 0
		PRINTFORMW 「도대체 얼마나 많은 팬티를 훔친겁니까? 네, 주웠다는 핑계는 전혀 신용하지 않습니다」
		PRINTFORMW 「그렇습니다, 당신은 손버릇이 너무 나쁩니다」
	CASE 1
		PRINTFORMW 「애초에 여성에게 함부로 손을 대고, 자제심이라는 것을 가지고 있지 않는겁니까?」
		PRINTFORMW 「네, 당신은 조금 욕망에 지나치게 충실합니다!」
	CASE 2
		PRINTFORMW 「\@ TALENT:30:연인 ? 비록 연인이라 할지라도 # 아무리 사이가 좋아도 \@ 해도 되는 일에는 정도가 있습니다! 얼마나 남을 욕보이는 겁니까!」
		PRINTFORMW 「네, 당신은 조금 배려가 너무 없습니다!」
	CASEELSE
		PRINTFORMDW 예상 외입니다. 번거로우시겠지만 직전 사용 명령어와 함께 버그리포트 부탁드립니다.
		PRINTFORMW 「K30_LECTURE_CHECK, 당신의 인수는 너무 과합니다! …어라?」
ENDSELECT
PRINTFORML
TEMP = 설교장
WHILE TEMP
	;행 첫머리의 수식. 2행에 1회 확률로 달아둠
	IF  (((설교장 + TEMP) % 2 == 0) && RAND:5 == 0) || (TEMP == 설교장)
		PRINTFORM 「%TEXTR("애초에/생각해 보세요/분명히 말하자면/잘 들으세요/구체적으로 말하자면/아시겠습니까/")%………………
	ELSE
		PRINT 「……
	ENDIF
	;1행의 길이는 적당히
	REPEAT 6 + RAND:4
		;조잡하게 백분율
		SELECTCASE RAND:100
			CASE 0 TO 9
				SELECTCASE 이유
					CASE 0
						PRINTFORM …%TEXTR("팬티/조금은/당신의/선행을/팬티/어디서/팬티/어디에 쓰려고/듣고 있나요…? /무엇을 위해")%…
					CASE 1
						PRINTFORM …%TEXTR("사후에/사양을/기분 나쁘게/싫은데도/당신의/선행을/자기 반성을/타인의 기분을…/부끄러운…/주위의 눈을…/거리낌없이…")%…
					CASE 2
						PRINTFORM …%TEXTR("사후에/의지를/안된다고/싫은데도/당신의/선행을/자기 반성을/타인의 기분을…/부끄러운…/주위의 눈을…/거리낌없이…")%…
					CASEELSE
						PRINTFORM …%TEXTR("반성을/조금은/죄가/선행을/지옥에/애초에 당신은/잘못을/듣고 있나요…? /사후의")%…
				ENDSELECT
			CASE 10 TO 13
				PRINTFORM ………!
			CASEELSE
				PRINTFORM ………
		ENDSELECT
	REND
	PRINTW 」
	TEMP --
WEND
설교장 *=2
TIME += 설교장
TEMP = MAXBASE:MASTER:기력 / 3
SIF TEMP > BASE:MASTER:기력
	TEMP = MAX(BASE:MASTER:기력, 1)
CALL K30_D_LINE
PRINTFORML 「………………………………」
PRINTFORMW 「…라고 하는 것입니다. 그래, 당신이 지금 당장 해야 할 일은」
SELECTCASE 이유
	CASE 0
		PRINTFORMW 「모아 둔 팬티를 제대로 처분할 것. 이것이 지금의 당신이 쌓을 수 있는 선행이야」
	CASE 1
		PRINTFORMW 「욕심을 채우는 대가에 대해 더 생각하고 반성하는 것. 이것이 지금의 당신이 쌓을 수 있는 선행이야」
	CASE 2
		PRINTFORMW 「사람의 기분과 배려에 대해 확실히 배우는 것. 이것이 지금의 당신이 쌓을 수 있는 선행이야」
	CASEELSE
ENDSELECT
FORCEWAIT
PRINTFORML
PRINTFORMDW 드디어 끝났다……
PRINTFORMDL 에이키에게 {설교장}분간이나 설교당해서, 매우 지쳤다……
PRINTFORMDW 정좌하여 다리도 녹초가 되었다…
CALL RECOVER(MASTER, -50, "체력", "발의 저림")
CALL RECOVER(MASTER, -(TEMP), "기력", "지겹도록 긴 설교")
;에이키님이 취미를 만끽
SOURCE:울굴 -= 1000
SIF SOURCE:울굴 < 0
	SOURCE:울굴 = 0
SOURCE:환락 += ABL:30:친밀 * 70
SOURCE:사랑 += 300
TEMP = RAND:5 - 이유
SIF TEMP <= 0
	TEMP = 1
;日時플래그
IF DIARY:30:5 == 0
	;꽤 예의없는 주고받는 방법이지만, 턴 종료 직전의 연극이니까 이것으로 됐어
	TFLAG:193 = 이유 * 1000 + 설교장
	CALL K30_WRITE_DIARY(5)
ENDIF
PRINTFORML
PRINTFORMDL 설교를 얌전하게 들어서 에이키의 신뢰도가 약간 올라갔다
SIF 이유 == 0
	PRINTFORMDL 팬티 건도 이것으로 용서해 주는 모양이다.
CALL CHANGE_CFLAG(4, 30, TEMP)
RETURN 1
;==================================================
;에이키님의 꾸짖음＠거리낌없는 일격
@K30_DISCIPLINE_HEAD
#DIM DAMAGE
;--------------------------------------------------
LOCAL = MIN(1 + 2 * TCVAR:30:371, 7)
DAMAGE = 400 + 400 * TCVAR:30:371
SIF TCVAR:30:371 > 4
	DAMAGE += BASE:MASTER:체력 + 1000 * TCVAR:30:371
IF TCVAR:30:371 < 3
	PRINTFORMW 「당신은 좀 따끔한 맛을 봐야」
	SETCOLOR 206, 8, 21
	PRINTFORML
	PRINTFORML 「자신의 생활을 다시 돌아보는 게 좋아!」
ELSEIF TCVAR:30:371 < 5
	PRINTFORML 「네, 어리광도 자비도 없습니다」
	PRINTFORMW 「자신이 저지른 죄를 확실히」
	SETCOLOR 206, 8, 21
	PRINTFORML
	PRINTFORML 「회개하세요!!」
ELSEIF TCVAR:30:371 == 5
	PRINTFORML 「……네, 결정됐습니다」
	PRINTFORMW 「당신은 오늘 남은 시간」
	SETCOLOR 206, 8, 21
	PRINTFORML
	PRINTFORML 「자신의 방에서 반성하고 있으세요!!」
ELSE
	PRINTFORMDW 내리치는 순간, 분명히 고했다
	SETCOLOR 206, 8, 21
	PRINTFORML
	PRINTFORML 「지옥행입니다!!」
ENDIF
CALL K30_QUAKE(LOCAL)
PRINTFORMW
PRINTFORMDL 회오의 봉으로 힘껏 때려 눕혀졌다…
CALL M_KOJO_COLOR_K30
BASE:MASTER:체력 -= DAMAGE
PRINTFORML
SIF DIARY:30:10 == 0
	CALL K30_WRITE_DIARY(10)
IF BASE:MASTER:체력 <= 500
	IF !TALENT:연모
		IF TCVAR:30:371 == 1
			PRINTFORML 「ㅇ, 어라? 조금 심했을까?」
			PRINTFORMDL 에이키의 당황하는 목소리가… 머리에, 울린다…
		ELSE
			PRINTFORML 「열심히 반성하도록 하세요」
			IF SELECTCOM == 356
				PRINTFORMDL 에이키는 이제 이쪽도 보지 않고 %GET_JOBNAME(30)%의 자리로 돌아왔다…
			ELSE
				PRINTFORMDL 에이키는 자비없이 그 자리를 떠났다…
			ENDIF
		ENDIF
	ENDIF
ELSE
	IF TCVAR:30:371 < 3
		PRINTFORML 「어떻습니까, 몸 속에 스며들었나요?」
		PRINTFORMW 「이것에 넌더리가 났다면 행동을 고쳐야 합니다」
	ELSE
		PRINTFORML 「좀 약하지만 이번에는 여기까지 하겠습니다」
		PRINTFORML 「확실히 반성하고 지금 당장 행동을 고치세요」
		PRINTFORMDW ……에이키의 강한 책임감을 얕보고 있었던 것 같다
		PRINTFORMDW 어쨌든 일을 방해하는 짓은 그만 두자
	ENDIF
ENDIF
RETURN 1
;==================================================
;에이키님의 설법과 징계
;차를 마시면서 이야기를 한가롭게 듣는 이미지
@K30_LECTURE_BENEFIT
#DIM SIN_VAL
#DIM EXC
;--------------------------------------------------
;CFLAG:1701 좋은 말씀의 누계
;--------------------------------------------------
SIN_VAL = 0
EXC = 0
CFLAG:1701 ++
PRINTFORMW
;이야기 6종류밖에 없으므로 누계하여 6으로 나눈 나머지 배분
LOCAL = CFLAG:1701 % 6
SELECTCASE LOCAL
	CASE 0
		PRINTFORMW 「그렇네요… 당신은『욕망』에 대해서 어떻게 생각합니까?」
		PRINTFORML
		PRINTFORML 「이런 옛날이야기가 있습니다」
		PRINTFORML 「옛날, 어느 곳에서 한 선승이 스승 밑에서 수행을 계속하고 있었습니다」
		PRINTFORML 「승려가 자기 방에서 좌선을 하고 있던 중, 낯선 여인이 갑자기 선승에게 기대어」
		PRINTFORML 「『당신은 이러면 어떤 기분일까』하고 물었습니다」
		PRINTFORML 「이 여자는 스승의 가르침으로 그를 일종의 시험으로서 유혹했습니다」
		PRINTFORML 「승려는 얼굴빛 하나 까딱하지 않고,『고목한암에 기대어, 삼동에 난기가 없도다』라고 단언했습니다」
		PRINTFORMW 「『마치 고목이 시린 바위에 기대어 서 있는 것과 같아서 겨울의 한바탕 휘몰아치는 기분이다』라고」
		PRINTFORML
		PRINTFORMW 「당신은 이 승려를 어떻게 생각하십니까? 훌륭하다고 생각합니까?」
		PRINTFORML
		PRINTFORML 「아뇨, 스승은 이 대답에 매우 화가 나서『뜻밖에 속물의 승려였다. 내가 잘못 생각하고 있었다』」
		PRINTFORMW 「하고 승려를 내쫓아버렸습니다. 그 사람 무엇이 잘못됐는지 아시겠나요?」
		PRINTFORML
		PRINTFORML 「실제로, 한 여성에게 사랑받은 남성으로서 취해야 할 태도는 어떠한가, 하는 것이 이 문제 해결의 연구입니다」
		PRINTFORML 「상대는 생면부지의 여성입니다. 비록 저쪽은 이쪽을 잘 알고 그리고 사랑했다고 해도」
		PRINTFORML 「이쪽은 처음보는 여자입니다. 이런 경우에는 어엿한 남성으로서 일단은 거절하든 아니면 영구히 거절하든」
		PRINTFORML 「상대의 여성에게 창피함을 주지 않고, 그렇다고 자신의 품위도 손상되지 않고, 당연한 인정미 있는 처사와 말이 있을 것입니다」
		PRINTFORMW 「고목한암과 같다고 되받아친 승려와 같은 태도, 상대 여성은 평생 원망하거나 반발심으로 자살할 수도 있는 처사입니다」
		PRINTFORML
		PRINTFORML 「같은 거절 방법이라도 그 여성의 기분을 헤아려 가면서 거절하는 방법도 있습니다. 그걸 유혹에 넘어가지 않으려고 열심히 어깨 팔꿈치를 붙이고」
		PRINTFORMW 「몰인정한 행동을 할 필요가 있었을까요, 이 승려의 마음에 약한 곳이 있다고 스승은 간파했습니다」
		PRINTFORML
		PRINTFORML 「유혹을 피하는 것은 최상의 삶이 아니라고 단정합니다」
		PRINTFORML 「오히려 진흙 속의 연꽃처럼 잡다한 야심과 유혹과 애욕이 가득한 가운데 생활하면서도」
		PRINTFORML 「그 더러움에 물들지 않고 오히려 그 욕망, 유혹을」
		PRINTFORML 「잘 소화하고 선용하여 훌륭한 인격을 완성, 무상의 행복이라는 꽃을 피워야 합니다」
		PRINTFORML 「그 승려도 이것을 체득하지 않으면 속물과 다르지 않을 것입니다」
		PRINTFORMW 「속세를 은둔하거나 유혹을 두려워하여 필사적으로 도망치려고 하는 것은 잘못된 것입니다」
		PRINTFORML
		PRINTFORMW 「욕심을 부리는 것은 죄가 아닙니다. 욕심에 빠지거나 욕심을 버렸다고 허세를 부리는 것이 죄인겁니다」
	CASE 1
		PRINTFORMW 「글쎄요, 당신은 『눈물의 가치』에 대해서 어떻게 생각합니까?」
		PRINTFORML
		PRINTFORML 「매사를 적당히 하다보면 눈물은 없습니다. 힘들지 않으니까요」
		PRINTFORML 「매사를 진실하게 생각하고 제대로 대하면 눈물이 있습니다. 고통스럽기 때문입니다」
		PRINTFORMW 「어째서, 대충대충하고 있으면 힘들지 않고, 성실해지면 괴로울까요?」
		PRINTFORML
		PRINTFORML 「적당히 하면, 모순도 모순으로 보이지 않고, 더 나은 것을 볼 수 없기 때문입니다」
		PRINTFORML 「지금 상태에서도 어떻게든 적당히 얼버무릴 수 있기 때문입니다. 그래서 괴롭지 않습니다」
		PRINTFORML 「반대로, 성실하게, 제대로 향하면, 모순이 눈에 띄고, 보다 나은 것을 원하고」
		PRINTFORMW 「현 상황에 심한 불만을 느껴오기 때문입니다. 그로 인해 괴로움을 겪습니다」
		PRINTFORML
		PRINTFORML 「가장 좋은 것을 바라는 마음, 만일 이것을『보리심(菩提心)』이라고 부를까요」
		PRINTFORMW 「『보리심』이란, 자신을 좋게 만들고 남도 좋게 하려는 올곧게 소망하는 마음입니다」
		PRINTFORML
		PRINTFORML 「예를 들면 양심은 시대에 따라 변하며 주위 정세에 따라 변할 수도 있습니다」
		PRINTFORML 「자기 육체의 정조를 팔아도, 남편에게 마음의 정조를 바치는 것을 좋다고 인정한다」
		PRINTFORMW 「봉건시대 여성의 양심은, 이제 오늘날 여성의 양심은 아닙니다」
		PRINTFORML
		PRINTFORML 「하지만『보리심』은 시대에 따라 정세에 따라 달라지는 것은 아닙니다.」
		PRINTFORML 「인간이 있는 한, 그 안에서 그 발전의 방향을 제시하고 이를 정화하고 추진해 나가는 약입니다.」
		PRINTFORML 「병균이 잠입해도 마음속에 있는 약, 즉『보리심』이 그것의 존재를 모른 채, 정화합니다」
		PRINTFORML 「우리들은 『보리심』이 있는 줄도 모르고 마음의 청순함을 유지하고 있는 겁니다」
		PRINTFORMW 「이 경우의 세균이란 『보리심』에 상반되는 유혹・악심이라 할 수 있겠네요」
		PRINTFORML
		PRINTFORML 「하지만 만병통치약이란 이 세상에는 없습니다. 약이 효과가 있을 때에는 원치 않는 것도 생겨납니다」
		PRINTFORML 「악심을 『보리심』이 구축했을 때 나오는 찌꺼기, 잔해가 최초에 저지른 눈물이며 고통입니다」
		PRINTFORML 「인간이 괴로움이나 눈물이 자아낼 때, 그것을 아무렇지도 않게 여기지 않고, 그 원인을 깊이 더듬어 갈 때는」
		PRINTFORMW 「분명히 이 『보리심』의 발로를 만나게 됩니다. 그리고 그 마음의 지시에 따라 새롭고 올바른 삶의 방향을 잡도록 하세요」
		PRINTFORML
		PRINTFORML 「『삶의 고통』라고 하는 것이 있습니다. 오래 전부터 새로운 삶을 만들어 낼 때에는, 반드시 고뇌가 있습니다. 눈물이 있습니다」
		PRINTFORML 「나무가 싹을 틔울 때 나무껍질에 나타나는 것은 우선 흉터입니다. 고뇌입니다. 다음이 수지――」
		PRINTFORMW 「즉, 눈물입니다. 거기에서 드디어 새로운 5월의 신록이 싹트는 것입니다」
	CASE 2
		PRINTFORMW 「음… 당신은 『호불호』에 대해서 어떻게 생각합니까?」
		PRINTFORML
		PRINTFORML 「인간에게 마음이 있고, 마음에 감정이 있는 이상, 누구에게나 호불호가 작용하는 것은 당연합니다」
		PRINTFORML 「그것을 꾸짖지는 않습니다. 벚꽃과 매화와 대나무, 그 백목천초의 변화가 있어 자연의 풍광이 흥미롭듯」
		PRINTFORML 「인간에게 호불호의 마음의 음영이 있어야 오히려 사람들의 변화나 리듬이 있고 흥미롭게」
		PRINTFORMW 「세상이 단조롭게 흐르지 않습니다. 그러니, 호불호는 있는 것이 좋습니다」
		PRINTFORML
		PRINTFORML 「하지만 이후에 특별히 덧붙여 말하지 않으면 안 되는 것은, 부디 그 호불호의 마음에」
		PRINTFORML 「붙들려서는 안된다는 겁니다. 붙잡혀서 그것을 고집으로 관철하려고 할 때, 그 사람은 방자한 사람이 되는 것입니다」
		PRINTFORML 「예를 들면 『나는 저 사람이 싫기 때문에 친구로 삼지 않는다』」
		PRINTFORML 「『그러므로 다른 누구라도 모두 그 사람을 친구로 삼아서는 안된다』와 같은 불호는 분명히 방자합니다」
		PRINTFORML 「『난 소나무 싫어. 세상에서 소나무 같은 건 전부 사라져버려야 해』」
		PRINTFORML 「『나는 대나무를 좋아하니까 대나무만 채워』라고 하는 것과 같습니다」
		PRINTFORMW 「이래서는 환상향도 대나무숲만 늘어나서 정말 재미없는 풍경이 되어버립니다」
		PRINTFORML
		PRINTFORML 「그것과 마찬가지로 인간도」
		PRINTFORML 「『나는 저 사람은 싫지만 누구누구에게는 잘 보이기 때문에 친구가 된 것일테니 그걸로 됐어』」
		PRINTFORML 「하고 마음을 가라앉히고, 자신이 싫어하는 것은 자기 혼자 싫어하면 되는 것입니다. 자신이 싫어하는 마음으로 그 사람을 쫓아가고」
		PRINTFORML 「그 사람의 호감을 사는 곳까지 들어가서 방해를 하는 짓은 억지에 불과합니다」
		PRINTFORML 「그것은 세상의 조화를 해치는 자이며 용서받지 못할 억지입니다」
		PRINTFORMW 「이 폐단에 빠져 버린 사람은 자기 스스로 발악할 수 없는 궁핍한 처지에 이르러야만 합니다」
		PRINTFORML
		PRINTFORML 「저로서는 천지간의 모든 생물 초목에 이르기까지 어느 것 하나 귀한 생명의 씨앗을 갖추고 있지 않은 것이 없습니다」
		PRINTFORML 「그러므로, 사용법에 따라서는 무엇 하나 버릴 것, 쓸데없는 것은 없습니다」
		PRINTFORML 「그러므로 무엇에 대해서도, 그 자체의 가치를 절대로 무시하는 것은 용서되지 않습니다. 그것은 자연에 대한 모독입니다」
		PRINTFORMW 「천지불신에 대한 불경으로 결국 저에게 벌을 받아야 합니다」
		PRINTFORMW
		PRINTFORMW 「제가 벌준다고 하면 어떻게 되는 건지 알고 있죠? 당신도 조심하도록 하세요」
	CASE 3
		PRINTFORMW 「그렇네요… 당신은 『보탑』에 대해서 뭔가 알고 계십니까?」
		PRINTFORML
		PRINTFORML 「…잃어버리거나 떨어뜨리는 물건은 아니에요. 그것에 대해서는 일단 잊어 주세요」
		PRINTFORMW 「그녀도 비사문천의 대리인으로서 조금만 더 정신을 차리면 좋겠는데 말이죠…」
		PRINTFORML
		PRINTFORML 「…이야기가 새버렸습니다만, 계속합시다」
		PRINTFORML 「여기서 제가 말한 『보탑』이란 매우 가치 있는 기물, 도구입니다」
		PRINTFORML 「그리고 『보탑』은 당신도 저도 가지고 있는 것입니다. 떨어뜨리거나 할 수는 없습니다」
		PRINTFORMW 「우리의 유일한 재산, 처음이자 마지막 재산… 즉,『신체』를 의미하는 것입니다」
		PRINTFORML
		PRINTFORML 「좀 과장되게 말하는 것 같나요? 아니요 결코 그렇지 않습니다」
		PRINTFORMW 「그러면, 『신체』의 놀라운 기능에 대해 말해 볼까요?」
		PRINTFORML
		PRINTFORML 「머릿속으로 생각하고 분별하고 가슴속으로는 감정을 솟구치게 하는」
		PRINTFORML 「마음속에 그것을 담아두고, 실제로 손발이 움직여 행동을 일으킨다」
		PRINTFORMW 「그리고 전체적으로 협동작업을 하고 여러 가지 일을 소화합니다」
		PRINTFORML
		PRINTFORML 「더 놀라운 것은, 설령 각각의 조화를 이루지 못하더라도 『신체』는 기능합니다」
		PRINTFORML 「머리로 안 되면 가슴으로, 가슴으로 안 되면 배로, 배로 안 되면 손발로」
		PRINTFORMW 「사고와 감정과 행동이 일치하지 않더라도 어떻게든 『신체』는 움직입니다. 당신에게도 짚이는 것은 없습니까?」
		PRINTFORML
		PRINTFORML 「무릇 세상에 이만한 기능을 갖추고 있는 도구가 또 있을까요」
		PRINTFORMW 「제대로 사용하면 안되는 일은 좀처럼 없죠」
		PRINTFORML
		PRINTFORML 「어느 경문에서는, 보탑 안에 다보여래와 부처가 나란히 앉을 수 있는 장면이 적혀 있습니다」
		PRINTFORML 「이 장면에서 다보여래는 진리를 나타내고 부처는 지혜를 드러냅니다」
		PRINTFORML 「그리고 『보탑』은 우리들의 『신체』를 상징한 것으로 저는 생각하고 있습니다」
		PRINTFORML 「우리들의 이『신체』는 올바르게 사용하면 모든 진리, 모든 지혜를 꺼낼 수 있는……」
		PRINTFORMW 「그만큼 고마운 것을, 우리가 태어날 때부터 받은 것입니다」
		PRINTFORML
		PRINTFORML 「그러니 당신도 탑 속의 보물을 『신체』의 가치를 조금씩이라도 좋으니까 꺼내봅시다」
		PRINTFORML 「특히 당신은 저에게도 헤아릴 수 없는 힘을 가지고 있죠. 그만큼 많은 보물을 가지고 있다는 겁니다」
		PRINTFORMW 「그런데도 당신은…여성의 지체에만 보물을 찾고 있지는 않습니까? 참으로 아까울 따름이네요」
		PRINTFORML
		PRINTFORMW 「자신의 『신체』를 바르게 써야 진짜 값진 보물이 나올 수 있는 겁니다」
	CASE 4
		PRINTFORMW 「그렇군요…당신은 『고생』에 대해서 어떻게 생각하십니까?」
		PRINTFORML
		PRINTFORML 「흔히『젊을 때 고생은 하서도 한다』라던가『고생을 모르는 도련님은 안 된다』와 같은 말을 하지만」
		PRINTFORMW 「사실 고생을 안 하는 사람보다는 고생을 하는 사람이 인간미가 깊은 것은 분명합니다」
		PRINTFORML
		PRINTFORML 「하지만 꼭 그런 건 아닙니다. 고생을 거듭하다 보면 완전히 고생에 지는 사람도 있습니다」
		PRINTFORML 「교활해지고 비굴해지며, 고생하지 않는다고 생각하는 사람을 보면 공격적으로 변한다…」
		PRINTFORMW 「당신도 이런 사람에게 짐작가는 곳은 없나요? 왜 이렇게 되어 버릴까요」
		PRINTFORML
		PRINTFORML 「염마가 봐도 사람에게 고생이란 있는 것보다는 없는 것이 사실은 좋은 것입니다」
		PRINTFORML 「하지만 현세에 고생이 있는 한, 도망치려면 죽음밖에 달리 길이 없습니다」
		PRINTFORML 「그러므로 사람들은 고생에 맞서서 이를 능가하는 힘을 길러야 합니다」
		PRINTFORML 「인내력을 기른다면 고생이 있어도 없는 거나 마찬가지입니다. 신경쓰지 않게 됩니다」
		PRINTFORMW 「즉, 고생을 하는 것은 고생이 목적이 아니라, 고생을 없는 것과 같게 하려는 수단이라고 기억해 주세요」
		PRINTFORML
		PRINTFORML 「아까 말한 고생에 진 사람. 이 사람들은 대체로 고생하는 일의 목적을 잊어버린 사람들입니다」
		PRINTFORML 「괴로운 일에 직면했을 때, 그 원인과 성질을 판별해 제거해 간다. 고생이란 이 견디는 힘을 기르는 시련입니다」
		PRINTFORMW 「이것을 모르고 어려운 일을 미루거나, 단지 숨을 죽이고 견디는 것만으로는 결국 고생에 지고 맙니다」
		PRINTFORML
		PRINTFORML 「예전에 나의 심판을 받은 영혼 중에 이렇게 단언한 사람이 있었습니다」
		PRINTFORML 「세상은 진실로 속세이고, 그것을 스스로는 재빨리 깨달을 수 있었다.그래서 살아 있는 동안 계속 수행에 몰두했다」
		PRINTFORMW 「일부러 누더기를 입고 몸을 불에 그을려 가난에 찌든 채 죽을 수 있었다. 그래서 나는 환생해서 천계에 갈 자격이 있다, 라고」
		PRINTFORML
		PRINTFORML 「정파리 거울에 비춰보니, 확실히 그는 최소한의 의식만을 사람들의 보살핌에 의지하고, 나중에는 심신을 괴롭히는 혹독한 수행을 일삼고 있었습니다」
		PRINTFORML 「언뜻 보기에는 훌륭한 행동으로 보이지만…… 조금 엄하게 말하면, 이렇게도 생각할 수 있지 않을까요?」
		PRINTFORML 「이 영혼은 생전에 베풀어준다는 주위의 선행에 힘입어 살았다. 그런데도 생각하는 것은 자신의 내세에서의 행복뿐이었다, 라고」
		PRINTFORMW 「수행이라는 고생을 수단이 아닌 목적으로 해버렸기 때문에 결국 만족스럽게 선행을 쌓지도 못했네요」
		PRINTFORML
		PRINTFORML 「물론 고생을 피해 편한 곳으로 도망을 가는 것은 안 됩니다. 그것은 단지 타락일 뿐입니다」
		PRINTFORML 「그렇다고 고생에 매달리고, 여기에 병들어 가는 것도 바른 인생을 사는 방법은 아닙니다」
		PRINTFORML 「고생에 찌들지 않고, 고생을 하나의 연구 재료로 삼아, 거기서 인생의 일부분을 보며 따는 노력을 해간다」
		PRINTFORMW 「그렇게 해서 삶의 모습을 더 많이, 더 넓게, 지식하고 경험해야만 고생에 얽매이지 않고 고생한 보람이 있었던 사람이라고 할 수 있겠죠」
	CASE 5
		PRINTFORMW 「그렇군요…당신은 『인과』라는 말을 들으면 어떤 생각이 드십니까?」
		PRINTFORML
		PRINTFORML 「이 말이 사용되는 것은 인생의 불우나 암흑의 상황일 때입니다」
		PRINTFORML 「『부모의 인과가 자식에게는 보상』이라고 해도,『부모의 인과로 자식의 출생』같은 말은 들은 적이 없습니다」
		PRINTFORML 「그리고, 인과응보라는 말도 있지만, 이것도 마찬가지로 생각되네요」
		PRINTFORMW 「과거 혹은 전생의 악행 때문에 나쁜 보답을 받는다는 의미로 쓰이기 쉽습니다」
		PRINTFORML
		PRINTFORML 「이렇게 말하면 나쁜 말 같지만 원래는 이렇게 한정된 의미가 아니었습니다」
		PRINTFORML 「『인과』라는 것은 원인과 결과를 말합니다. 자연의 이치이며, 인간에게 그다지 친절하지도 냉혹하지도 않습니다」
		PRINTFORMW 「어떤 일에도 반드시 원인이 있습니다. 원인없이 일어나는 결과는 만에 하나, 억에 하나도 없습니다」
		PRINTFORML
		PRINTFORML 「그러면, 어떤 원인에 의해 어떤 결과가 만들어지는지 상상이 가시나요?」
		PRINTFORML 「어렵게 생각할 것 없어요. 원인과 결과의 관계는 간단합니다」
		PRINTFORML 「착한 행동에서는 행복이라는 결과가 나옵니다. 이것이 선인선과입니다」
		PRINTFORMW 「나쁜 행실을 보면 불행해지는 결과를 낳습니다. 이것이 악인악과입니다」
		PRINTFORML
		PRINTFORML 「이것은 흔히 파종에 비유됩니다. 밭에 무씨 뿌리면 무씨, 수박씨 뿌리면 수박씨가 나오죠?」
		PRINTFORML 「그것과 똑같습니다. 착한 행위에서는 착한 결과만, 나쁜 행위에서는 나쁜 결과만 반드시 생겨납니다」
		PRINTFORML 「제가 평소에 선행을 쌓도록 가르침을 받는 것도 이것이 이유입니다. 제가 한 일에 대한 보답은 제가 얻기 때문입니다」
		PRINTFORMW 「이것이야말로 바로 자업자득이군요. 좋은 일도 나쁜 일도 모두 자신이 기점이 되고 있죠」
		PRINTFORML
		PRINTFORML 「『인과』를 파종에 비유한 김에 하나 더… 그렇죠, 또 수박이라도 키워볼까요?」
		PRINTFORMW 「밭에 수박씨를 뿌리면 수박이 나온다. 이것은 자연의 이치이자 당연한 것입니다」
		PRINTFORML
		PRINTFORML 「하지만 생각해보세요. 이치를 안다고 해서 누구나 수박을 만들 수 있느냐고 물으면 그건 아니겠죠」
		PRINTFORML 「먹고 난 수박씨를 대충 뿌렸더니 다시 수박이 나오고 다시 먹는… 애초에 그렇게 형편 좋은 일은 없습니다」
		PRINTFORMW 「확실하게 싹을 틔우려면, 올바른 지식으로 제대로 손질하는 것이 필요합니다」
		PRINTFORML
		PRINTFORML 「마찬가지로 선인선과, 선한 행동과 행복이라는 결과에는 올바른 지식과 절차가 요구됩니다」
		PRINTFORML 「지식이 없다면, 좋다고 생각해서 한 일이 실은 나쁜 행동이었다…, 같은 일이 일어나겠죠」
		PRINTFORML 「인연과 결과의 연결고리를 이해하지 못하면, 이렇게 열심히 하는데 결과가 나오지 않으니 불만이 생기겠죠」
		PRINTFORML 「수박씨를 뿌렸는데 무가 자랄 일은 절대로 없지만 그렇게 우기는 사람은 반드시 있습니다」
		PRINTFORMW 「그런 사람은 지식이 없다는 이유로 그런 실수를 해버리는 것이겠죠」
		PRINTFORML
		PRINTFORML 「그러므로 사람은 계속 배워야 합니다.」
		PRINTFORML 「자신에 대한 일, 자신과 관계되는 일, 자신의 소중한 사람으로부터 이해를 깊게 해 나가 주세요」
		PRINTFORMW 「그렇게 하면 비록 미지의 『인과』에 직면해도, 저절로 올바른 행동을 취할 수 있게 됩니다」
ENDSELECT
CALL K30_D_LINE
SIF DIARY:30:16 == 0 && CFLAG:30:1701 > 9
	CALL K30_WRITE_DIARY(16)
RESULT = 0
PRINTFORMW
PRINTFORMW 「어떠셨습니까. 이 이야기가 선행을 쌓는 데 도움이 되었다면 저도 기쁠 텐데요」
IF CFLAG:약점잡음 && !GETBIT(CFLAG:1803, 1)
	FORCEWAIT
	PRINTFORMW 「……………………」
	PRINTFORMW 「그것보다 %K30_C_NAME(MASTER)%」
	PRINTFORMW 「제게 뭔가 사과할 일……없으신가요?」
	$INPUT_LOOP
	RESETCOLOR
	CALL ASK_M("…그 일은 죄송했습니다",1 , "네? 무슨 이야기를", 1, "…알았어, 이 얘기 하지 말자. 자아!! 그만그만", 1, "에? 뭐야, 이 선택지는", 1)
	SETCOLOR 0x337D5C
	SELECTCASE RESULT
		CASE 0
			PRINTFORMDW 짚이는 데가 있어서 우선 사과를 했다
			PRINTFORML 「…성의가 보이지 않네요. 애초에 무엇을 사과하는지 스스로 알고 있는 건가요?」
			PRINTFORML 「하긴, 그런 분을 벌하기 위해 저는 이 봉을 들고 다닙니다만」
			PRINTFORMDW 에이키는 손에 든 회오의 봉을 %CALLNAME:MASTER%에게 들이댄다…
			PRINTFORML
			PRINTFORML 「제대로 거울에 비치지 않는 당신의 죄, 저의 기억 범위에서 재판하게 되지만…」
			PRINTFORML 「물론 그 일에 이의가 없겠죠?」
			RESETCOLOR
			CALL ASK_M("네", 1, "없습니다", 1, "물론입니다", 1)
			SETCOLOR 0x337D5C
			PRINTFORML 「훌륭합니다. 그러면…」
			PRINTFORMDW 에이키는 꺼낸 붓으로 회오의 봉에 써 내려간다…
			IF GETBIT(CFLAG:1699, 1)
				PRINTFORML
				PRINTFORML 「팬티를 훔쳐 가지고 있던 죄」
				PRINTFORMW 「도대체 어디에 쓰는 것인지」
				SIN_VAL ++
			ENDIF
			IF GETBIT(CFLAG:1699, 2)
				PRINTFORML
				PRINTFORML 「공공 장소에서 간음에 빠졌던 죄」
				PRINTFORMW 「자제라는 것을 명심하도록」
				SIN_VAL ++
			ENDIF
			;개인방, 면간 들킴은 구상으로 처리할 수 없기 때문에 이쯤에서 적당히
			;작업장 야리 방화의 문으로 한층 더 대충대충. 일안 본체가 받아들여지면 다시 쓴다.
			IF (CFLAG:약점잡음 - CFLAG:1700 - CFLAG:1698) > 15
				PRINTFORML
				IF CFLAG:MASTER:초기위치 == CFLAG:30:초기위치
					PRINTFORML 「두 사람의 방에서 다른 여인과 간음에 잠긴 죄」
					PRINTFORML 「그래, 우리의 소중한 방에서…」
					PRINTFORMDW 붓을 쥔 손이 바들바들 떨리고 있다…
					SIN_VAL += 100
				ELSE
					PRINTFORML 「나의 방에서 간음에 잠긴 죄」
					SIF TALENT:연인
						PRINTFORML 「게다가 저라는 연인이 있으면서…」
					PRINTFORMW 「정말로 용서할 수 없는 짓입니다」
					SIN_VAL ++
					SIF TALENT:연인
						SIN_VAL += 100
				ENDIF
			ELSEIF (CFLAG:약점잡음 - CFLAG:1700 - CFLAG:1698)
					PRINTFORML
					PRINTFORML 「잠자는 여자에게 장난을 친 죄」
					PRINTFORMW 「매우 비겁하고 수치스러운 행위입니다」
			ELSEIF GETBIT(CFLAG:1699, 3)
				PRINTFORML
				SIF TALENT:연인
					PRINTFORML 「…저라는 애인이 있으면서」
				PRINTFORML 「제 방에서 간음에 잠긴 죄」
				PRINTFORMW 「정말로 용서할 수 없는 짓입니다」
				SIN_VAL ++
				SIF TALENT:연인
					SIN_VAL += 100
			ENDIF
			PRINTFORML
			PRINTFORML 「…이것으로써 당신을 유죄로 선고합니다」
			PRINTFORML 「이 봉의 무게는 당신이 가진 죄의 무게」
			PRINTFORMW 「그 아픔을 맛보고 자신의 죄를 풀도록 하세요」
			PRINTFORML
			PRINTFORMDL 에이키가 다 쓴 회오의 봉을 휘둘렀다…
			IF SIN_VAL < 100
				PRINTFORMDL 두 손으로 잡는 모습만 보아도 꽤 무거워 보인다.
				PRINTFORMDW 어쩌면 각오가 필요할지도 모르겠다
				LOCAL = 4
			ELSE
				PRINTFORMDL 들어올리는 모양으로 보아 보통 무게는 아닌 것 같다
				PRINTFORMDW 이 재판에는 분명히 사적인 감정이 섞여 있다!
				LOCAL = 6
			ENDIF
			PRINTFORML
			PRINTFORMW 「이 제재로써 자신의 죄를…」
			SETCOLOR 206, 8, 21
			PRINTFORML
			PRINTFORML 「회개하세요!!!」
			CALL K30_QUAKE(LOCAL)
			PRINTFORMW
			CALL M_KOJO_COLOR_K30
			PRINTFORMDW 회오의 봉으로 힘껏 때려눕혀졌다…
			IF SIN_VAL > 100
				LOCAL = BASE:MASTER:체력 + 1
				TCVAR:30:371 = 2
			ELSE
				LOCAL = BASE:MASTER:체력 / 4
				TCVAR:30:371 = 1
			ENDIF
			CALL RECOVER(MASTER, -(LOCAL), "체력", "회오의 봉의 강렬한 일격")
			LOCAL = GETBIT(CFLAG:1699, 0) ? 1 # 0
			CFLAG:약점잡음 = 0
			SETCOLOR C_YELLOW
			PRINTFORML 약점이 모두 지워졌다
			CALL M_KOJO_COLOR_K30
			VARSET CFLAG:30:0, 0, 1698, 1701
			SIF LOCAL
				SETBIT CFLAG:1699, 0
			IF BASE:MASTER:체력 <= 500
				IF !TALENT:연모
					PRINTFORMDL 가차없는 일격에 눈앞이 캄캄해지며…
					IF SIN_VAL < 100
						PRINTFORML 「ㅇ, 어라? 조금 심했을까?」
						PRINTFORMDL 에이키의 당황하는 목소리가…머리에서, 쿵쿵하고… 울리고…
					ELSE
						PRINTFORML 「열심히 반성하도록 하세요」
						PRINTFORMDL 에이키는 자비없이 그 자리를 떠났다…
					ENDIF
				ENDIF
			ELSE
				PRINTFORMDL 가차없는 일격을 받았으나 어떻게든 참고 견뎠다…
				PRINTFORMW 「그 아픔을 반성의 양식으로 삼아 앞으로는 선행에 힘쓰는 겁니다」
			ENDIF
			IF DIARY:30:10 == 0
				CALL K30_WRITE_DIARY(10)
				SIF BASE:MASTER:체력 <= 500
					SETBIT CFLAG:1910, 3
			ENDIF
			RETURN 1
		CASE 1
			PRINTFORMDW …회오의 봉이 움찔하고 흔들린다. 에이키는 약간 발끈한 것 같다
			PRINTFORML 「기억나지 않는다고, 말한다면…어쩔 수 없네요」
			PRINTFORML 「텅 빈 것으로 때려도 효과는 미미한 것 같고요」
			PRINTFORMW 「…제대로 생각나면 그때 다시 말씀드리죠」
			GOTO IGNORE
		CASE 2
			PRINTFORML 「……………」
			PRINTFORMDW 회오의 봉을 쥔 손이 바들바들 떨리고 있다. 아무래도 에이키를 너무 부채질 한 것 같다…
			PRINTFORML 「…그렇게 말씀하신다면, 그걸로 괜찮습니다」
			PRINTFORML 「속죄할 기회를 놓쳤을 뿐이에요. 머지않아 그 때가 찾아오겠죠」
			PRINTFORMW 「그때가 되어 후회하지 않도록 제대로 선행을 쌓아 두세요」
			SETBIT CFLAG:1803, 1
			GOTO IGNORE
		CASE 3
			PRINTFORML
			PRINTFORMDL 『약점』을 회오의 봉 한방에 지울지의 선택지입니다
			PRINTFORMDL 위에서부터 허가・보류・이후의 선택 비표시가 됩니다
			PRINTFORMDL 데미지는 최대이고 체력상한 → 당일 행동 불가 코스입니다
			PRINTFORML
			PRINTFORMDL 보류・선택 숨김은 마이너스 같은 대화가 되는데
			PRINTFORMDL 특별히 페널티는 없습니다
			PRINTFORMW
			PRINTFORML 「…왜 그러시죠? 제대로 기억이 나셨나요?」
	ENDSELECT
	GOTO INPUT_LOOP
ELSE
	$IGNORE
	PRINTFORMDW 설법에 말려들어 에이키의 호감도와 신뢰도가 \@ RESULT ? 아주 조금  # \@올랐다
	CALL CHANGE_CFLAG(2, TARGET, RAND:5 + 7 - RESULT)
	CALL CHANGE_CFLAG(4, TARGET, RAND:3 + 3 - RESULT)
	SELECTCASE RAND:3
		CASE 0
			LOCALS = 고맙
		CASE 1
			LOCALS = 도움이 되
		CASE 2
			LOCALS = 속이 깊
	ENDSELECT
	CALL RECOVER(MASTER, -100, "기력", @"%LOCALS%지만 긴 이야기")
	SOURCE:반감 = 0
	SOURCE:울굴 = 0
	SOURCE:환락 += ABL:30:친밀 * 50
	SOURCE:사랑 += 1500
ENDIF
RETURN 1

path: ERB/대사_메시지관련/개인대사/030 에이키/追加ファイル/M_KOJO_K30_함수・설교라이브러리.ERB

license: mit


code:
;--------------------------------------------------------------------------------------------------
;eraTW 코치야 사나에 말UPDATE
;
;※주의 본체버전 갱신 시에는
;　　　　「@M_KOJO_UPDATE_K31」의 「#DIM CONST 사나에말ver」의 갱신을 잊지 않는 것!
;--------------------------------------------------------------------------------------------------

;------M_KOJO_K31_UPDATE.ERB-----------------------------------------------------------------------
;2017/4/26　Ver 0.03. 00　「M_KOJO_K31_이벤트. ERB」보다 분리
;--------------------------------------------------------------------------------------------------
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE 판정"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K31
;말 독자적인 UPDATE용
;ENCOUNTER 전용에 독자 분기 플래그를 가르쳤을 경우등에 부디
;UPDATE 판정으로 CFLAG를 사용하는 경우, 캐릭터 번호의 지정이 필요하게 됩니다

;현재의ver는 ver0. 03입니다
#DIM CONST 사나에말ver = 3

#DIM 현재의ver정수
#DIM 현재의ver소수
#DIM 사나에말ver정수
#DIM 사나에말ver소수

;ver0. 02 이전에는 이 UPDATE CHECK는 없었기 때문에
SIF !CFLAG:31:K31_CFLAG_SYSTEM_VERSION
	CFLAG:31:K31_CFLAG_SYSTEM_VERSION = 2

;PRINTFORM중에%를 등장시켜 이상한 느낌에 시키고 싶지 않기 때문에 여기서 변환
현재의ver정수 = CFLAG:31:K31_CFLAG_SYSTEM_VERSION / 100
현재의ver소수 = CFLAG:31:K31_CFLAG_SYSTEM_VERSION % 100
사나에말ver정수 = 사나에말ver / 100
사나에말ver소수 = 사나에말ver % 100

CALL M_KOJO_COLOR_K31
;업데이트시의 머리의 문장
PRINTL
PRINTL --사나에 말UPDATE CHECK--
RESETCOLOR

;「소질의 변경」을 실시하고 있는 경우 사나에의 청소기능은 0이 되지만
;본체의 UPDATE에 의해 CSV의 값이 읽혀 버리기 (위해)때문에 재수정을 실시한다
;사실은 UPDATE 고쳐 써, 사나에만 무효로 하고 싶지만 버그의 온상이 될 것 같아서 그만둔다
IF CFLAG:31:3121 == 1
	;---청소기능　( D 1 → E 0)---
	;---청소경험　( 20 → 4)---
	;분명히, 요리까지 붙이면(자) 소질 너무 번창하고 상태이므로(기능에 E가 하나도 없다든가 말하는 상태) 청소기능에 하부수정
	;이미 기능, 경험이 자라고 있는 경우는 변경하지 않는다
	IF ABL:31:40 == 1 && EXP:31:70 < 21
		PRINTL
		PRINTL 본체의 UPDATE에 의해, 사나에의 기능이 덧쓰기되었으므로 재수정합니다
		PRINTL
		PRINT 	청소기능(
		CALL PRINT_RANK(ABL:31:40,"MAX_6")
		PRINTFORM  {ABL:31:40} →
		CALL PRINT_RANK(0,"MAX_6")
		RESETCOLOR
		PRINTL  0)

		PRINTFORML 	청소경험( {EXP:31:70} → 4)
		ABL:31:40 = 0
		EXP:31:70 = 4
	ENDIF
ENDIF
;--------------------------------------------------------------------------------------------
;사나에 말의 버전 체크
;--------------------------------------------------------------------------------------------
;같은 버전의 경우
IF 사나에말ver == CFLAG:31:K31_CFLAG_SYSTEM_VERSION
	PRINTL
	PRINTFORML %"현재：Ver " + TOSTR(현재의ver정수) + ". " + TOSTR(현재의ver소수,"D2")%
	PRINTFORML %"적용：Ver " + TOSTR(사나에말ver정수) + ". " + TOSTR(사나에말ver소수,"D2")%
	PRINTL
	PRINTFORML 최신의 버전이 적용되고 있습니다 업데이트의 필요는 없습니다
	RETURN 1
ENDIF

;다운 그레이드 하려고 하고 있다∼
IF 사나에말ver < CFLAG:31:K31_CFLAG_SYSTEM_VERSION
	PRINTL
	SETCOLOR C_RED
	PRINTFORML 【주의!】현재 적용되고 있는 것보다 이전의 버전이 적용되려 하고 있습니다
	RESETCOLOR
	PRINTL
	PRINTFORML %"현재：Ver " + TOSTR(현재의ver정수) + ". " + TOSTR(현재의ver소수,"D2")%
	SETCOLOR C_RED
	PRINTFORML %"적용：Ver " + TOSTR(사나에말ver정수) + ". " + TOSTR(사나에말ver소수,"D2")%
	RESETCOLOR
	PRINTL
	PRINTL 업데이트를 속행합니까?
	PRINTL -YES는 기본적으로 이 분기에 들어가는 원인을 알 수 있고 있는 경우만 사용해 주세요―
	PRINTL *버그가 발생해도 모르는*
	PRINTFORML [0]-YES(강제적으로 적용 버전에의 변경을 실시합니다)
	PRINTFORML [1]-NO
	INPUT
	IF !RESULT
		PRINTL 업데이트를 속행하는 버그의 발생에 조심해 주세요
	ELSE
		PRINTL 업데이트를 중단하는 최신 버전을 취득해 주세요
		RETURN 1
	ENDIF
ENDIF

IF 사나에말ver > CFLAG:31:K31_CFLAG_SYSTEM_VERSION
	PRINTL
	SETCOLOR C_YELLOW
	PRINTFORML 버전의 업데이트를 실시합니다
	RESETCOLOR
	PRINTL
	PRINTFORML %"현재：Ver " + TOSTR(현재의ver정수) + ". " + TOSTR(현재의ver소수,"D2")%
	CALL M_KOJO_COLOR_K31
	PRINTFORML %"적용：Ver " + TOSTR(사나에말ver정수) + ". " + TOSTR(사나에말ver소수,"D2")%
	RESETCOLOR
ENDIF

;####################################################
;여기에서 버전의 업데이트가 시작된다
;####################################################
;----------------------------------------------------
;소질의 변경(Ver 0.03로부터
;----------------------------------------------------

IF CFLAG:31:3121 == 0 && (ABL:31:44 < 2 || EXP:31:79 < 200 || EXP:31:76 < 50 || EXP:31:70 < 50)
	PRINTL
	PRINTL -----소질 기능의 변경-----
	;요컨데, 이대로라면 말의 내용과 기능·소질이 서로 맞물리지 않는 경우가 있으므로 그것이 신경이 쓰이는 사람은 부디
	PRINTL 말내용과의 정합성이기 때문에 사나에 씨의 소질 기능을 변경할 수가 있습니다
	PRINTL 변경해도 하지 않아도, 시스템상에 영향을 미 것은 없습니다
	;PRINTL 「이 아이 메시마즈의 주제에무슨 말하고 있다…」가 신경이 쓰이는 (분)편은 변경을 부디
	PRINTL
	PRINTL ※변경되는 소질·능력

	;---[음악지식]부여(정확하게는, 악기지식)---
	;음악기능이 B인 것에 동반해 추가
	;분명히 -라든지 츠쿠모 자매와 같은 레벨로 아무것도 없다고 하는 것도
	;어쩐지[연주하는]의 지문이 변화하는 것 같기 때문에 코멘트 아웃
	;자력으로 잡히는 것 같기 때문에 힘내자 (연주경험1000+기교 4이상)
	;IF !TALENT:31:음악지식
	;	PRINTL [음악지식]추가
	;	PRINTL
	;ENDIF

	;---연주경험　( 0 → 200)---
	;음악기능이 B인 것에 동반해 추가
	SIF EXP:31:79 < 200
		PRINTFORML 	연주경험( {EXP:31:79} → 200)

	;---요리기능　( E 0 → C 2)---
	;음악기능으로 잘못알 수 있었던 쿠소 불쌍한 아이
	;분명히 불쌍해서 추가
	IF ABL:31:44 < 2
		PRINT 	요리기능(
		CALL PRINT_RANK(ABL:31:44,"MAX_6")
		PRINTFORM  {ABL:31:44} →
		CALL PRINT_RANK(2,"MAX_6")
		RESETCOLOR
		PRINTL  2)
	ENDIF

	;---요리경험　( 0 → 50)---
	;요리기능이 C인 것에 동반해 추가
	;요리기능을 붙이려고 음악기능이 붙어있는 같은 사나에 씨에게 요리기능 및 요리경험을 붙인다
	;3사람 모여 기능 0의 메시마즈 신사 구제 법안
	SIF EXP:31:76 < 50
		PRINTFORML 	요리경험( {EXP:31:76} → 50)

	;---청소기능　( D 1 → E 0)---
	;---청소경험　( 20 → 4)---
	;분명히, 요리까지 붙이면(자) 소질 너무 번창하고 상태이므로(기능에 E가 하나도 없다든가 말하는 상태) 청소기능에 하부수정
	;이미 기능, 경험이 자라고 있는 경우는 변경하지 않는다
	IF ABL:31:40 == 1 && EXP:31:70 < 21
		PRINT 	청소기능(
		CALL PRINT_RANK(ABL:31:40,"MAX_6")
		PRINTFORM  {ABL:31:40} →
		CALL PRINT_RANK(0,"MAX_6")
		RESETCOLOR
		PRINTL  0)

		PRINTFORML 	청소경험( {EXP:31:70} → 4)
	ENDIF

	PRINTL
	PRINTFORML [0]-보류한다		(이 장소에서는 변경하지 않습니다, 이 선택지는 버전 변경 때에 다시 등장합니다)
	PRINTFORML [1]-변경한다		(이 선택지는 다시 등장하지 않습니다)
	PRINTFORML [2]-변경시키지 않다	(이 선택지는 다시 등장하지 않습니다)
	INPUT
	SELECTCASE RESULT
	;보류했습니다
	CASE 0
		CFLAG:31:3121 = 0
		PRINTL 보류했습니다
		PRINTW
	;변경했습니다
	CASE 1
		CFLAG:31:3121 = 1
		PRINTL 변경했습니다

		;변경 내용은 여기에 기술
		;SIF !TALENT:31:음악지식
		;	TALENT:31:음악지식 = 1
		SIF EXP:31:79 < 200
			EXP:31:79 = 200
		SIF ABL:31:44 < 2
			ABL:31:44 = 2
		SIF EXP:31:76 < 50
			EXP:31:76 = 50
		IF ABL:31:40 == 1 && EXP:31:70 < 21
			ABL:31:40 = 0
			EXP:31:70 = 4
		ENDIF
		PRINTW
	;변경시키지 않습니다
	CASEELSE
		CFLAG:31:3121 = -1
		PRINTL 변경시키지 않습니다
		PRINTW
	ENDSELECT
	;============================================================
	;[1],[2]를 선택했지만 아무래도 다시 한 번 선택지를 선택하고 싶을 때
	;1. CFLAG:31:3121 = 0 으로 한다
	;============================================================
ENDIF
;----------------------------------------------------
;안면의 박탈(Ver 0.01로부터
;----------------------------------------------------
;말적으로는 「처음부터」같은 것 버전 업으로 사양이 바뀌었을 경우나, 다른 루트에 가고 싶을 때 라든지 부디
;사실은 플래그등의 리셋는 초대면시에 가고 있다
IF CFLAG:31:18 != 0
	PRINTL
	PRINTL -----안면에 대해―----
	PRINTL 당신은, 이미 사나에 씨와 안면이 있습니다
	PRINTL 「말을 업데이트 했다」또는, 「처음으로 도입했을」경우 안면의 리셋를 강하게 추천 합니다
	PRINTL 또, 말적으로는 「처음부터」와 같은 것으로, 말내에서의 진행 상태·플래그도 모두 초기화됩니다
	PRINTL 버전 업시의 「readme.txt」에서 안면의 리셋가 강하고 추천 되고 있는 경우
	PRINTL 최신 버전에 대해, 진행 상태·플래그에 개변을 실시한 가능성이 있습니다
	PRINTL (따라서, 상기 조건으로 리셋 하지 않았던 경우의 버그는 사양입니다)
	PRINTL
	PRINTFORML [0]-리셋 하군
	PRINTFORML [1]-
	INPUT
	IF !RESULT
		CFLAG:31:18 = 0
		PRINTL -안면을 리셋 했습니다―　사나에 씨와는 초대면이 됩니다
	ELSE
		PRINTL -안면을 리셋 하지 않았습니다―
	ENDIF
ENDIF

CFLAG:31:3120 = 사나에말ver

;PRINTFORM중에%를 등장시켜 이상한 느낌에 시키고 싶지 않기 때문에 여기서 변환
현재의ver정수 = CFLAG:31:K31_CFLAG_SYSTEM_VERSION / 100
현재의ver소수 = CFLAG:31:K31_CFLAG_SYSTEM_VERSION % 100

PRINTL
PRINTL 업데이트를 완료했습니다

CALL M_KOJO_COLOR_K31
PRINTFORML 적용 버전　%"Ver " + TOSTR(현재의ver정수) + ". " + TOSTR(현재의ver소수,"D2")%
RESETCOLOR
PRINTL

RETURN 1


code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;봉사계 커맨드
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;80, 수음
;==================================================
@M_KOJO_MESSAGE_COM_K31_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K31_80_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K31_80_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;소분기
	;-------------------------------------------------
	;처음
	;기입 체크
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTL
		PRINTFORMW 발기도 덜됬고, 한 번 해보고 싶은게 있었다.
		PRINTL
		PRINTFORMW 「아... 만져달라구요...」
		PRINTFORMW 「으음.... 바깥에서 본 AV에서 확실히 그런 장면이 있긴 했지만...」
		PRINTFORMW 「...깨끗하게 씻으셨죠?」
		PRINTL
		PRINTFORMW 사나에는 약하게 서있는 내 자지에 손을 대고, 살며시 쓸어내렸다.
		PRINTFORMW 기둥과 첨단을 천천히 손을 감싸, 점차 강도를 높여간다...
		PRINTL
		PRINTFORMW 「음... 조금 냄새나긴 하네요.」
		PRINTFORMW 「...그래도, 뭔가 끈적끈적한게 나오는데, 이게 쿠퍼액이라는 건가요?」
		PRINTFORMW 「후훙, 기분좋아요?」
		PRINTL
		PRINTFORMW 점차 흘러나오는 쿠퍼액을 손가락에 묻히고, 귀두부분에 넓게 펴바른다.
		PRINTFORMW 처음이라 그런 것인지, 아직은 서툰 손놀림이지만, 그래도 피스톤 운동을 흉내내듯 자지를 손으로 감싼채로 열심히 흔들고 있다.
		PRINTFORMW 귀두와 기둥에 느껴지는 사나에의 부드러운 손의 감촉에, 그만 사정하지 않도록 감각을 집중했다...
		RETURN 1
	ENDIF
	;기본 세트
	;시간중
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	ELSEIF MARK:반발각인 == 3
		IF TALENT:연모
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「어때요...?」
					PRINTFORMW 열심히 손을 놀리며, 사나에는 쿠퍼액이 흘러내리는 자지를 열심히 애무했다...
					RETURN 1
				CASE 1
					PRINTFORMW 「...이렇게 큰게, 제 안에 들어오는건가요...」
					RETURN 1
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「....부러트릴까......」
					RETURN 1
				CASE 1
					PRINTFORMW 「으으...」
					PRINTFORMW 「...냄새나...」
					RETURN 1
				CASE 2
					PRINTFORMW 「...더러운 물건을 만지게하다니.」
					PRINTFORMW 「언젠가, 천벌을 받을거에요.」
					RETURN 1
			ENDSELECT

		ENDIF
	;연모
	ELSEIF TALENT:연모
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「후후, 엄청 뜨겁네요.」
					PRINTFORMW 「손끝만 닿아도 움찔거리는게, 곧 나올 것 같나요?」
					PRINTFORMW 「자자, 언제든지 싸도 된다구요? 제 손에 가득 내주세요♪」
					RETURN 1
				CASE 1
					PRINTFORMW 「쿠퍼액이 엄청 나오고 있어요. 기분 좋아요?」
					PRINTFORMW 「뭔가 아까부터 더 커지고 뜨거워진게, 곧 쌀 것 같네요?」
					RETURN 1
				CASE 2
					PRINTFORMW 「이렇게 큰게 제 안에 들어오는거군요?」
					PRINTFORMW 「어쩐지, 기분 좋더라...」
					RETURN 1
			ENDSELECT
		RETURN 1
	;굴복 3
	ELSEIF MARK:괘씸각인 == 3
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「후훙, 어떤가요?」
					PRINTL
					PRINTFORMW ...그 동안 애태웠던 것을 복수라도 하는 듯, 계속해서 사정 직전에 손놀림을 멈추는 사나에였다...
					RETURN 1
				CASE 1
					PRINTFORMW 「후훙, 쿠퍼액이 나오고 있어요.」
					PRINTFORMW 「자자, 언제든지 싸셔도 좋아요♬」
					RETURN 1
			ENDSELECT
		RETURN 1
	;그 이외
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;81, 펠라치오
;==================================================
@M_KOJO_MESSAGE_COM_K31_81
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K31_81_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K31_81_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;소분기
	;-------------------------------------------------
	;처음
	;기입 체크
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTL
		PRINTFORMW 발기도 덜됬고, 한 번 해보고 싶은게 있었다.
		PRINTL
		PRINTFORMW 「....에? 네...?! 아..... 네........」
		PRINTFORMW 「으음.... 바깥에서 본 AV에서 확실히 그런 장면이 있긴 했지만...」
		PRINTFORMW 「...깨끗하게 씻으셨죠?」
		PRINTL
		PRINTFORMW 사나에는 멈칫거리며 내 분신에 다가가더니, 서있는 물건을 손가락으로 잡고 혀를 가져다대었다.
		PRINTFORMW 끝부분을 살짝씩 햝으면서, 천천히 점차 단계를 높여간다...
		PRINTL
		PRINTFORMW 「...조금 짜네요.」
		PRINTFORMW 「...남성분들의 성기는, 이런 맛이군요...」
		PRINTFORMW 「은은하게 밤꽃향도 나고, 아예 못할건 아닌 것 같아요.」
		PRINTL
		PRINTFORMW 점차 흘러나오는 쿠퍼액을 혀로 쓸어 귀두 전체에 펴바르고, 마침내 입 안에 음경을 머금는다.
		PRINTFORMW 처음이라 그런 것인지, 아직은 앞부분만 머금고 있지만, 그 안에서 느껴지는 혀의 감촉에 견디지 못하고 사정하지 않도록 주의를 기울였다...
		RETURN 1
	ENDIF

	;기본 세트
	;시간중
	IF FLAG:70
		PRINTFORMW 인형과 같이 멈춰있는 사나에의 입술에 자지를 가져다 눌렀다.
		RETURN 1
	ELSEIF MARK:반발각인 == 3
		IF TALENT:연모
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「응... 하응.....」
					PRINTFORMW 「어떄여...?」
					RETURN 1
				CASE 1
					PRINTFORMW 「컥, 우읍...!?.」
					PRINTFORMW 「우윽... 엑....」
					PRINTFORMW 「하아.... 욱... 갑자기, 밀어넣으시면...」
					RETURN 1
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「....깨물어버릴까......」
					RETURN 1
				CASE 1
					PRINTFORMW 「윀...!」
					PRINTFORMW 「..우급, 컥......」
					PRINTFORMW 「...하아... 하아... 이 굴욕, 언젠가는......」
					RETURN 1
				CASE 2
					PRINTFORMW 「...더러운 물건을 물리다니.」
					PRINTFORMW 「언젠가, 천벌을 받을거에요.」
					RETURN 1
			ENDSELECT

		ENDIF
	;연모
	ELSEIF TALENT:연모
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「웅... 하응... 으음....」
					PRINTFORMW 「히훈조아여?」
					PRINTFORMW 「앗, 방금 움찔했어.... 네? 하면서 말하는건 자제...?」
					PRINTFORMW 「....후훙, 그렇단 말이죠?」
					RETURN 1
				CASE 1
					PRINTFORMW 「으응, 하웅, 응... 자꾸 움찔거리네요?」
					PRINTFORMW 「기분좋아요?」
					RETURN 1
				CASE 2
					PRINTFORMW 「후훙, 방금 전부터 쿠퍼액이 나오고 있네요?」
					PRINTFORMW 「그래도, 먹는건 싫으니까, 나올 것 같으면 말해주세요?」
					RETURN 1
			ENDSELECT
		RETURN 1
	;굴복 3
	ELSEIF MARK:괘씸각인 == 3
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「웅... 하응... 으음....」
					PRINTL
					PRINTFORMW ...마치 동물처럼, 살짝씩 깨물어가며 햝는 것이, 불만이 있는 듯 보였다...
					RETURN 1
				CASE 1
					PRINTFORMW 「후훙, 쿠퍼액이 나오고 있어요.」
					PRINTFORMW 「자자, 언제든지 싸셔도 죠야여♬」
					RETURN 1
			ENDSELECT
		RETURN 1
	;그 이외
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;82, 파이즈리
;==================================================
@M_KOJO_MESSAGE_COM_K31_82
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K31_82_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K31_82_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;소분기
	;-------------------------------------------------
	;처음
	;기입 체크
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTL
		PRINTFORMW 한 번 해보고 싶은게 있었다.
		PRINTL
		PRINTFORMW 「....에? 네...?! 아..... 네........」
		PRINTFORMW 「으음....... 변태에요?」
		PRINTFORMW 「...저를 통해 %마스터의% 성적 판타지를 실현시키려 하지 마세요.」
		PRINTFORMW 「아니, 뭐... 해드리긴 할거지만...」
		PRINTL
		PRINTFORMW 사나에는 멈칫거리며 내 분신에 다가가더니, 양 가슴을 손으로 모아 만들어진 가슴골에 기둥을 끼웠다.
		PRINTFORMW 살짝씩 손으로 가슴을 움직이며, 가슴골에 끼인 자지를 문지른다... .
		PRINTL
		PRINTFORMW 「...조금 힘드네요.」
		PRINTFORMW 「...뭐랄까, 땡긴달까... 아파요.」
		PRINTFORMW 「그래도 뭐, %마스터가% 좋다면야...」
		PRINTL
		PRINTFORMW 점차 흘러나오는 쿠퍼액을 윤활제로 삼아, 귀두와 기둥을 가슴으로 문지른다.
		PRINTFORMW 처음이라 그런 것인지, 아직은 서툴렀지만, 부드러운 감각에 빠져 사정하지 않도록 주의를 기울였다...
		RETURN 1
	ENDIF

	;기본 세트
	;시간중
	IF FLAG:70
		PRINTFORMW 인형과 같이 멈춰있는 사나에의 가슴에 자지를 끼워 문질렀다...
		RETURN 1
	ELSEIF MARK:반발각인 == 3
		IF TALENT:연모
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「웃, 므므믓.....」
					PRINTFORMW 「힘들어...」
					RETURN 1
				CASE 1
					PRINTFORMW 「응, 읏, 으.....」
					RETURN 1
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「....부러트릴까......」
					RETURN 1
				CASE 1
					PRINTFORMW 「..끄응.. 이 굴욕, 언젠가는......」
					RETURN 1
				CASE 2
					PRINTFORMW 「...더러운 물건을....」
					PRINTFORMW 「언젠가, 천벌을 받을거에요.」
					RETURN 1
			ENDSELECT

		ENDIF
	;연모
	ELSEIF TALENT:연모
			SELECTCASE RAND:4
				CASE 0
					PRINTFORMW 「응, 으응..」
					PRINTFORMW 「기분좋나요?」
					PRINTFORMW 「앗, 방금 움찔했어.....」
					RETURN 1
				CASE 1
					PRINTFORMW 「읏, 차... 자꾸 움찔거리네요? 가슴에 진동이 느껴진다구요?」
					PRINTFORMW 「기분좋아요?」
					RETURN 1
				CASE 2
					PRINTFORMW 「후훙, 방금 전부터 쿠퍼액이 나오고 있네요?」
					PRINTFORMW 「자자, 제 가슴에 싸도 좋아요♪나올 것 같으면 말해주세요?」
					RETURN 1
				CASE 3
					PRINTFORMW 「앗, 방금 움찔거렸을 때 쿠퍼액에 흰게 섞여나왔어요.」
					PRINTFORMW 「정액이 직전까지 차오른건가요? 후훙, 정말 나올 것 같으면 말해주세요?」
					RETURN 1
			ENDSELECT
		RETURN 1
	;굴복 3
	ELSEIF MARK:괘씸각인 == 3
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「응... 읏, 흐으...」
					PRINTL
					PRINTFORMW ...어쩐지 자지를 문지르는 것 보다는, 가슴으로 자위하고 있는 것 같다...
					RETURN 1
				CASE 1
					PRINTFORMW 「후훙, 쿠퍼액이 나오고 있어요.」
					PRINTFORMW 「자자, 언제든지 제 가슴에 내어도 좋아요♬」
					RETURN 1
			ENDSELECT
		RETURN 1
	;그 이외
	ELSE
		PRINTFORMW 「응... 읏, 흐으...」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;83, 가랑이
;==================================================
@M_KOJO_MESSAGE_COM_K31_83
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K31_83_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K31_83_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;소분기
	;-------------------------------------------------
	;처음
	;기입 체크
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTL
		PRINTFORMW 한 번 해보고 싶은게 있었다.
		PRINTL
		PRINTFORMW 「....에? 아, 스마타요...」
		PRINTFORMW 「으음... 네. 알겠어요.」
		PRINTFORMW 「...그럼, 와주세요?」
		PRINTL
		PRINTFORMW 사나에는 천천히 움직여, 자지의 기둥을 질구에 대고 다리를 붙였다.
		PRINTFORMW 삽입하지 않은채로 느껴지는 허벅지의 압력과, 질구에서 나온 애액의 감촉을 느끼며, %마스터는% 천천히 허리를 움직였다.
		PRINTL
		PRINTFORMW 「...응, 하...」
		PRINTFORMW 「...클리가 쓸리고 있어요...」
		PRINTFORMW 「진짜로 넣은 것 같네요. 기분, 좋아...」
		PRINTL
		PRINTFORMW 삽입하고 싶은 욕구를 참으면서, 흘러나오는 애액을 윤활제삼아, 허벅지와 질구 사이를 자지로 문질렀다.
		PRINTFORMW 삽입하지 않았음에도 불구하고 거의 유사한 감촉에, 견디지 못하고 사정하지 않도록 주의를 기울였다...
		RETURN 1
	ENDIF
	;기본 세트
	;시간중
	IF FLAG:70
		PRINTFORMW 사나에의 다리를 붙이고, 그 허벅지와 질구 사이로 자지를 꿰뚫어 움직였다...
		RETURN 1
	ELSEIF MARK:반발각인 == 3
		IF TALENT:연모
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「웃, 므므믓.....」
					PRINTFORMW 「기분좋아...」
					RETURN 1
				CASE 1
					PRINTFORMW 「응, 읏, 으.....」
					RETURN 1
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「...좀 더 제대로 조이라니, 무슨 말일까요? 저는 모르겠네요.」
					RETURN 1
				CASE 1
					PRINTFORMW 「..끄응.. 이 굴욕, 언젠가는......」
					RETURN 1
				CASE 2
					PRINTFORMW 「...더러운 물건을....」
					PRINTFORMW 「언젠가, 천벌을 받을거에요.」
					RETURN 1
			ENDSELECT

		ENDIF
	;연모
	ELSEIF TALENT:연모
			SELECTCASE RAND:4
				CASE 0
					PRINTFORMW 「응, 으응..」
					PRINTFORMW 「하아... 기분 좋아... 넣고 싶어요...」
					PRINTFORMW 「뭔가 간질간질하면서, 클리가 쓸리는게, 으응...」
					RETURN 1
				CASE 1
					PRINTFORMW 「하아, 하아... 진짜로 넣은 것 같아요...」
					PRINTFORMW 「%마스터는% 어때요? 기분 좋아요?」
					RETURN 1
				CASE 2
					PRINTFORMW 「뭔가, 허벅지라던가, 아랫배에 쿠퍼액이 묻고 있네요?」
					PRINTFORMW 「싸실려고요? 나올 것 같아요? 그럼, 기분 좋게 제 배 위에 싸주세요?」
					RETURN 1
				CASE 3
					PRINTFORMW 「흐응... 핫, 응... 응...? 멈췄네요?」
					PRINTFORMW 「아하... 쌀 것 같아요? 참고있는 건가요? 계속 움찔거리고 있네요?」
					PRINTFORMW 「후후훙, 에잇, 허벅지를 비비는데도 버틸 수 있을까요?」
					PRINTFORMW 「아, 방금 엄청 크게 움찔거렸을 때, 쿠퍼액에 흰게 섞여나왔어요.」
					PRINTFORMW 「정액이 직전까지 차오른건가요? 후훙, 정말 나올 것 같으면 말해주세요?」
					RETURN 1
			ENDSELECT
		RETURN 1
	;굴복 3
	ELSEIF MARK:괘씸각인 == 3
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「응... 읏, 흐으...」
					PRINTFORMW 「클리에, 뜨겁고 단단한게, 기분 좋아...」
					RETURN 1
				CASE 1
					PRINTFORMW 「후훙, 쿠퍼액이 나오고 있어요.」
					PRINTFORMW 「자자, 언제든지 제 허벅지에 내어도 좋아요♬」
					RETURN 1
			ENDSELECT
		RETURN 1
	;그 이외
	ELSE
		PRINTFORMW 「응... 읏, 흐으...」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;84, 거품춤
;==================================================
@M_KOJO_MESSAGE_COM_K31_84
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K31_84_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K31_84_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;소분기
	;-------------------------------------------------
	;처음
	;기입 체크
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;기본 세트
	;연모
	IF TALENT:연모
		PRINTFORMW
		RETURN 1
	;굴복 3
	ELSEIF MARK:괘씸각인 == 3
		PRINTFORMW
		RETURN 1
	;그 이외
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;85, 다리 호된 훈련
;==================================================
@M_KOJO_MESSAGE_COM_K31_85
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K31_85_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K31_85_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;소분기
	;-------------------------------------------------
	;처음
	;기입 체크
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;기본 세트
	;시간중
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;연모
	ELSEIF TALENT:연모
		PRINTFORMW
		RETURN 1
	;굴복 3
	ELSEIF MARK:괘씸각인 == 3
		PRINTFORMW
		RETURN 1
	;그 이외
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;88, 진공펠라
;==================================================
@M_KOJO_MESSAGE_COM_K31_88
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K31_88_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K31_88_1
;-------------------------------------------------
;기입 체크(=0, 비표시, 1, 표시)
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;소분기
	;-------------------------------------------------
	;처음
	;기입 체크
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;기본 세트
	;시간중
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;연모
	ELSEIF TALENT:연모
		PRINTFORMW
		RETURN 1
	;굴복 3
	ELSEIF MARK:괘씸각인 == 3
		PRINTFORMW
		RETURN 1
	;그 이외
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

path: ERB/대사_메시지관련/개인대사/031 사나에/M_KOJO_K31_奉仕系コマンド_t.ERB


path: ERB/대사_메시지관련/개인대사/031 사나에/M_KOJO_K31_性交系コマンド_t.ERB