code:
;------------------------------------------------------------------------------
;	SCENARIO_HATSU_MOUDE.ERB　共通イベント「初詣」
;
;	導入対象バリアント：	era_inSchoolA ver0.07
;	バリアント製作者：	inSchool ◆ALP/BZZ2kc 様
;	文責：			不眠症の旅人（271）
;				タブ幅推奨：8　改行文字数推奨：80
;------------------------------------------------------------------------------

;----------イベント本体
@BEFORE_HATSU_MOUDE
CALL HATSU_FLAG_CLEAR		;변수 클리어 처리를 실시
CALL BEFORE_HATSU		;이벤트 실시 가부 확인
IF FLAG:2000 == 0
	CALL HATSU_LAST_PROCESS
	RETURN 0
ENDIF
CALL HATSU_CANDIDATE_CHECK	;대상자의 인원수 체크
CALL HATSU_TAKE_CHOICE		;첫 참배에 가는 경우, 데리고 가는 상대를 선택
IF FLAG:2000 == 0
	CALL HATSU_LAST_PROCESS
	RETURN 0
ENDIF
CALL BEFORE_HATSU_CALL		;대상자에게 전화를 건다

@HATSU_MOUDE
CALL HATSU_FLAG_CLEAR		;변수 클리어 처리를 실시
CALL HATSU_CANDIDATE_CHECK	;대상자의 인원수 체크
CALL HATSU_RANDOM_PROCESS	;함락 노예／교제 상대의 각종 설정
CALL HATSU_START_MESSAGE	;첫 참배 개시 메세지 표시
IF FLAG:2000 == 0
	CALL HATSU_LAST_PROCESS
	RETURN 0
ENDIF
CALL HATSU_REACTION_MESSAGE	;데리고 나간 상대의 반응
CALL HATSU_WORSHIP,RESULT	;참배 실행 국면
CALL HATSU_WORSHIP_AFTER,RESULT	;참배 후의 메세지 표시
IF FLAG:2000 == 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF
CALL HATSU_AFTER_SELECT,RESULT	;첫 참배 후의 즐거움 선택
RETURN RESULT

;----------변수 클리어 처리
@HATSU_FLAG_CLEAR
;CFLAG:199			;CFLAG:199를 대상자 추출에 사용
A:21 = -1			;함께 데리고 가는 교제 상대
A:22 = 0			;랜덤（교제 상대）1
A:23 = 0			;랜덤（교제 상대）2
A:24 = 0			;랜덤（교제 상대）3
A:25 = 0			;랜덤（교제 상대）4
A:26 = 0			;랜덤（교제 상대）5
A:27 = 0			;열매 교제 상대 인원수
A:28 = 0			;랜덤（교제 상대）추출 인원수
D:21 = -1			;함께 데리고 가는 노예
D:22 = 0			;랜덤（노예）1
D:23 = 0			;랜덤（노예）2
D:24 = 0			;랜덤（노예）3
D:25 = 0			;랜덤（노예）4
D:26 = 0			;랜덤（노예）5
D:27 = 0			;미노루 노예 인원수
D:28 = 0			;랜덤（노예）추출 인원수
P = 0				;다양한 파라미터 처리용
P:21 = 0			;노출 외출 플래그
P:22 = 0			;데리고 나가 가부 플래그
P:23 = 0			;소원 플래그
P:24 = 0			;스테이터스 UP대상자
P:25 = 0			;봉납금 플래그
R:21 = 0			;랜덤 변수
;----------함락 대상자의 인원수 확인 처리
@HATSU_CANDIDATE_CHECK
REPEAT CHARANUM
	CFLAG:COUNT:199 = 0
	SIF TALENT:COUNT:교제
		A:27 += 1
	SIF IS_NOTLOVE_ATTACKING(COUNT)
		D:27 += 1
REND

;----------ランダム抽選
@HATSU_RANDOM_PROCESS
REPEAT CHARANUM
	SIF IS_UNCONTACTABLE(COUNT)
		CONTINUE
	R:21 = RAND:2
	IF TALENT:COUNT:교제
		IF A:27 <= 5	;교제相손が5名以下の場合、全員が対象になる
			SIF A:22 == 0
				A:22 = COUNT
			SIF A:23 == 0
				A:23 = COUNT
			SIF A:24 == 0
				A:24 = COUNT
			SIF A:25 == 0
				A:25 = COUNT
			SIF A:26 == 0
				A:26 = COUNT
				;5名以上の場合、ランダムで5名をA:22～A:26に選出
		ELSEIF A:27 > 5
			IF R:21 == 0 && A:22 == 0
				A:22 = COUNT
				A:28 += 1
			ELSEIF R:21 == 0 && A:23 == 0
				A:23 = COUNT
				A:28 += 1
			ELSEIF R:21 == 0 && A:24 == 0
				A:24 = COUNT
				A:28 += 1
			ELSEIF R:21 == 0 && A:25 == 0
				A:25 = COUNT
				A:28 += 1
			ELSEIF R:21 == 0 && A:26 == 0
				A:26 = COUNT
				A:28 += 1
			ENDIF
		ENDIF
	ELSEIF TALENT:COUNT:강간 || TALENT:COUNT:협박
		IF D:27 <= 5	;奴隷が5名以下の場合、全員が対象になる
			SIF D:22 == 0
				D:22 = COUNT
			SIF D:23 == 0
				D:23 = COUNT
			SIF D:24 == 0
				D:24 = COUNT
			SIF D:25 == 0
				D:25 = COUNT
			SIF D:26 == 0
				D:26 = COUNT
				;5名以上の場合、ランダムで5名をD:22～D:26に選出
		ELSEIF D:27 > 5
			IF R:21 == 0 && D:22 == 0
				D:22 = COUNT
				D:28 += 1
			ELSEIF R:21 == 0 && D:23 == 0
				D:23 = COUNT
				D:28 += 1
			ELSEIF R:21 == 0 && D:24 == 0
				D:24 = COUNT
				D:28 += 1
			ELSEIF R:21 == 0 && D:25 == 0
				D:25 = COUNT
				D:28 += 1
			ELSEIF R:21 == 0 && D:26 == 0
				D:26 = COUNT
				D:28 += 1
			ENDIF
		ENDIF
	ENDIF
REND

;----------前日のお誘い
@BEFORE_HATSU
FLAG:2000 = 9
PRINTL 오늘은 연말이다……
IF MONEY:1 > 0			;借金が残っている場合
	PRINTW 대출상환에 쫓기는 신세면서、무사히 해를 넘길 수 있을 것 같으니 다행이라고 생각하자。
ELSE				;完済後の場合
	PRINTW 빚에 쫓기고 있던 기억하고 싶지 않은 사건도 과거가 되어, 즐겁게 연말연시를 즐길 수 있다。
ENDIF
PRINTL
PRINTL 자, 그러면 내일 예정은 어떻게 하지?
DRAWLINE
PRINTFORML [0]   - 첫 참배에 간다
PRINTFORML [100] - 언제나처럼 보낸다
DRAWLINE
PRINTL
$INPUT_LOOP001
INPUT
IF RESULT == 0			;이벤트 계속
	PRINTL 그렇네. 내일은 첫 참배에 가기로 하자.
	PRINTL
	PRINTL 그건 그렇고, 혼자서 첫 참배에 가는 것도 어떨까 생각하지만……
ELSEIF RESULT == 100		;이벤트 종료
	PRINTW 그렇네. 세상은 새해다 명절이다 라고 떠들고 있는 것 같지만, 자신과는 관계없다……
	FLAG:2000 = 0
ELSE
	GOTO INPUT_LOOP001
ENDIF

;----------데리고 가는 여성을 선택한다
@HATSU_TAKE_CHOICE
$LOOP_CHOICE			;교제 상대／노예의 선택
DRAWLINE
SIF A:27 > 0
	PRINTFORML [0]   - 교제상대와 단 둘이 나간다
SIF D:27 > 0
	PRINTFORML [1]   - 노예를 호출해 나간다
PRINTFORML [99]  - 혼자서 첫 참배에 간다
PRINTFORML [100] - 역시 첫 참배에 가지 않는다
DRAWLINE
PRINTL
$INPUT_LOOP002
INPUT
IF A:27 > 0 && RESULT == 0
	FLAG:2000 = 1
ELSEIF D:27 > 0 && RESULT == 1
	FLAG:2000 = 2
ELSEIF RESULT == 99
	FLAG:2000 = 9
ELSEIF RESULT == 100
	PRINTW 역시, 첫 참배에 가는 것은 그만두자……
	FLAG:2000 = 0
ELSE
	GOTO INPUT_LOOP002
ENDIF

IF FLAG:2000 == 1		;실제의 대상（교제 상대）를 호출해
	P = 7
	CALL DISPLAY_COMMON , 16
	SIF RESULT == 999
		GOTO LOOP_CHOICE
	A:21 = RESULT
ELSEIF FLAG:2000 == 2		;실제의 대상（노예）를 호출해
	P = 8
	CALL DISPLAY_COMMON , 16
	SIF RESULT == 999
		GOTO LOOP_CHOICE
	D:21 = RESULT
ENDIF

;----------실제로 전화를 걸어 본다
@BEFORE_HATSU_CALL
IF A:21 >= 0			;상대가 교제 상대의 경우
	P = A:21
	IF TALENT:P:남자 != 1	;여성의 경우의 반응
		PRINTFORM %마스터호칭은%
		SIF TALENT:P:연모 || TALENT:P:친애
			PRINT 연인인
		PRINTFORML %조사처리(NAME:P,"를")% 첫 참배에 데려가기 위해 전화를 걸었다.
		PRINTFORM %조사처리(CALLNAME:P,"는")%,
		IF TALENT:P:연모 || TALENT:P:친애
				;연인의 경우, 100％OK 해 준다
			IF TALENT:P:청초 || TALENT:P:치유계 || TALENT:P:천연
				PRINT 침착하면서도 또렷한 목소리로
			ELSEIF TALENT:P:쾌활 || TALENT:P:보이쉬
				PRINT 두근두근하는 밝은 목소리로
			ELSEIF TALENT:P:색기
				PRINT 어딘가 우수에 찬 것 같은 목소리로
			ELSEIF TALENT:P:어린애같음
				PRINT 까불거리는 것 같은 건강한 목소리로
			ELSEIF TALENT:P:쿨함
				PRINT 무뚝뚝하게
			ELSEIF TALENT:P:무기력
				PRINT 정말로 자신이 좋은 것인지 불안한 듯한 목소리로
			ELSEIF TALENT:P:기가셈
				PRINT 아주 당연하다는 듯한 목소리로
			ELSE
				PRINT 평상시와 다름없는 목소리로
			ENDIF
			PRINTW 알겠다고 대답해 주었다.
			PRINTL
			P:99 = A:21
		ELSE
			IF RAND:2 == 0
				;연인이 아닌 경우, 50％의 확률로 OK 해 준다
				PRINTW 시원스럽게 OK 해 주었다.
				PRINTL
				P:99 = A:21
			ELSE
				;거절당하는 경우
				PRINTW 다른 친구와의 선약을 이유로 거절해 버렸다.
				PRINTL
				PRINTL …………
				PRINTL ……
				PRINTW 어쩔 수 없다. 혼자서 첫 참배에 가자.
				PRINTL
				FLAG:2000 = 9
				P:99 = -1
			ENDIF
		ENDIF

	ELSE			;남성의 경우의 반응
		PRINTFORML %마스터호칭은% %조사처리(NAME:P,"를")% 첫 참배에 데려가려고 전화를 걸었다.
		PRINTFORM %조사처리(CALLNAME:P,"는")%
		IF TALENT:P:연모 || TALENT:P:친애
				;함락 소유라면 100％OK 해 준다
			PRINTW 즉답으로 OK를 냈다.
			PRINTL
			P:99 = A:21
		ELSE
			IF RAND:2 == 0
				;함락 없음이라면
				PRINTW 시원스럽게 OK 했다.
				PRINTL
				P:99 = A:21
			ELSE
				PRINTW 다른 친구와의 선약을 이유로 거절해 버렸다.
				PRINTL
				PRINTL …………
				PRINTL ……
				PRINTW 어쩔 수 없다. 혼자서 첫 참배에 가자.
				PRINTL
				FLAG:2000 = 9
				P:99 = -1
			ENDIF
		ENDIF
	ENDIF
ENDIF

IF D:21 >= 0			;상대가 노예 상대의 경우
	P = D:21
	IF TALENT:P:남자 != 1	;여성의 경우의 반응
		PRINTFORM %마스터호칭은%
		SIF TALENT:P:음란 || TALENT:P:복종 || TALENT:P:창녀 || TALENT:P:예속
			PRINT 노예인
		PRINTFORML %조사처리(NAME:P,"를")% 첫 참배에 데려가기 위해 전화를 걸었다.
		PRINTFORM %조사처리(CALLNAME:P,"는")%,
		IF TALENT:P:음란 || TALENT:P:창녀
			IF TALENT:P:청초 || TALENT:P:치유계 || TALENT:P:천연
				PRINT 차분하면서도 색을 포함한 목소리로
			ELSEIF TALENT:P:쾌활 || TALENT:P:보이쉬
				PRINT 두근두근하는 밝은 목소리로
			ELSEIF TALENT:P:색기
				PRINT 몽롱한 목소리로
			ELSEIF TALENT:P:어린애같음
				PRINT 까불거리는 것 같은 건강한 목소리로
			ELSEIF TALENT:P:쿨함
				PRINT 무뚝뚝하게
			ELSEIF TALENT:P:무기력
				PRINT 정말로 정말로 자신이 좋은 것인지 불안한 듯한 목소리로
			ELSEIF TALENT:P:기가셈
				PRINT 아주 당연하다는 듯한 목소리로
			ELSE
				PRINT 요염함이 묻어나는 목소리로
			ENDIF
			PRINTW 알겠다고 대답했다.
			PRINTL
			P:99 = D:21
		ELSEIF TALENT:P:예속
			IF TALENT:P:청초 || TALENT:P:치유계 || TALENT:P:천연
				PRINT 침착하면서도 분명한 목소리로
			ELSEIF TALENT:P:쾌활 || TALENT:P:보이쉬
				PRINT 두근두근하는 밝은 목소리로
			ELSEIF TALENT:P:색기
				PRINT 어딘가 우려를 포함한 것 같은 목소리로
			ELSEIF TALENT:P:어린애같음
				PRINT 까불거리는 듯한 힘찬 목소리로
			ELSEIF TALENT:P:쿨함
				PRINT 무뚝뚝하게
			ELSEIF TALENT:P:무기력
				PRINT 정말로 자신이 좋은 것인지 불안한 듯한 목소리로
			ELSEIF TALENT:P:기가셈
				PRINT 아주 당연하다는 듯한 목소리로
			ELSE
				PRINT 평상시와 다름없는 목소리로
			ENDIF
			PRINTW 승낙의 대답을 해 온다.
			P:99 = D:21
		ELSEIF TALENT:P:복종
			IF TALENT:P:청초 || TALENT:P:치유계 || TALENT:P:천연
				PRINT 차분하면서도 그늘이 있는 목소리로
			ELSEIF TALENT:P:쾌활 || TALENT:P:보이쉬
				PRINT 초연한 목소리로
			ELSEIF TALENT:P:색기
				PRINT 수심에 잠긴 목소리로
			ELSEIF TALENT:P:어린애같음
				PRINT 가볍게 울먹이는 목소리로
			ELSEIF TALENT:P:쿨함
				PRINT 무뚝뚝하게
			ELSEIF TALENT:P:무기력
				PRINT 울먹이면서
			ELSEIF TALENT:P:기가셈
				PRINT 처음엔 강한척 했지만, 점점 말꼬리가 약해져, 결국은
			ELSE
				PRINT 요염함이 묻어나는 목소리로
			ENDIF
			PRINTW 알겠다고 대답을 해 온다.
			PRINTL
			P:99 = D:21
		ELSE
			IF RAND:4 <= 2
				;함락 하고 있지 않는 경우, 75％의 확률로 OK 해 준다
				PRINTW 마지못해 OK 해 주었다.
				PRINTL
				P:99 = D:21
			ELSE
				;거절당하는 경우
				PRINTW 다른 친구와의 선약을 이유로 거절해 버렸다.
				PRINTL
				PRINTL …………
				PRINTL ……
				PRINTW 어쩔 수 없다. 혼자서 첫 참배에 가자.
				PRINTL
				FLAG:2000 = 9
				P:99 = -1
			ENDIF
		ENDIF

	ELSE			;남성의 경우의 반응
		PRINTFORML %마스터호칭은% %조사처리(NAME:P,"를")% 첫 참배로 이끌려고 전화를 걸었다.
		PRINTFORM %조사처리(CALLNAME:P,"는")%
		IF TALENT:P:음란 || TALENT:P:복종 || TALENT:P:창녀 || TALENT:P:예속
				;함락 소유라면 100％OK 해 준다
			PRINTW 싫어했지만, 최종적으로는 억지로 OK를 하게 했다.
			PRINTL
			P:99 = D:21
		ELSE
			IF RAND:4 <= 2
				;함락 없음이라면 75％의 확률로 OK 해 온다
				PRINTW 마지못해 OK 했다.
				PRINTL
				P:99 = D:21
			ELSE
				PRINTW 다른 친구와의 선약을 이유로 거절해 버렸다.
				PRINTL
				PRINTL …………
				PRINTL ……
				PRINTW 어쩔 수 없다. 혼자서 첫 참배에 가자.
				PRINTL
				FLAG:2000 = 9
				P:99 = -1
			ENDIF
		ENDIF
	ENDIF
ENDIF

;----------도입 메세지부
@HATSU_START_MESSAGE
IF MONEY:1 > 0
	PRINTW 새해를 맞이했다……
ELSE
	PRINTW 근하신년!
ENDIF

SIF FLAG:2000 == 0		;첫 참배에 가지 않는 경우는 이벤트 종료
	RETURN 0
IF FLAG:2000 == 1
	A:21 = P:99
	P = P:99
	P:22 = 1
ELSEIF FLAG:2000 == 2
	D:21 = P:99
	P = P:99
	P:22 = 2
ELSEIF FLAG:2000 == 9
	P:22 = 0
ENDIF

PRINTL
PRINTL ……………………
PRINTL ………………
PRINTL …………
PRINTL ……
PRINTW
IF P:22 > 0
	PRINTFORML 새해가 밝아오는 새벽부터, 어제 약속을 받아낸 %조사처리(NAME:P,"가")% %CALLNAME:MASTER%의 집을 방문했다.
	SIF TALENT:P:영애
		PRINTFORML 명문가의 아가씨인 %CALLNAME:P%에게는, 이런 시간에 집을 빠져나오는 것은 큰 일이었을 것이다.
	SIF TALENT:P:프린세스
		PRINTFORML 프린세스라는 신분을 가지고 있는 %CALLNAME:P%에게, 신년의 공식 행사를 캔슬하는 것은 쉽지 않았을 것이다.
ELSE
	PRINTL 오늘은 혼자서 첫 참배에 가기로 했다.
ENDIF

;----------교제 상대／노예의 반응
@HATSU_REACTION_MESSAGE

				;어떤 모습?
IF P:22 == 1			;상대가 교제 상대의 경우
	IF TALENT:P:남자 != 1	;여성의 경우의 반응
		PRINTFORM %조사처리(CALLNAME:P,"는")%
		IF TALENT:P:청초 || TALENT:P:치유계
			PRINT 꽃무니가 들어간 후리소데 차림으로
		ELSEIF TALENT:P:쾌활 || TALENT:P:보이쉬 || TALENT:P:기가셈
			PRINT 활동적인 미니스커트 차림으로
		ELSEIF TALENT:P:색기 || TALENT:P:무기력
			PRINT 세련된 색상의 원피스 차림으로
		ELSEIF TALENT:P:천연
			PRINT 딱 정해진 블레이저 차림으로
		ELSEIF TALENT:P:어린애같음
			PRINT 소녀 취향의 블라우스 차림으로
		ELSEIF TALENT:P:쿨함
			PRINT 모노톤의 팬츠룩 차림으로
		ELSE
			PRINT 평상시와 다름없는 가디건 차림으로
		ENDIF
		PRINTFORML %CALLNAME:MASTER%의 앞에 나타나,
		IF TALENT:P:연모 || TALENT:P:친애
			PRINT 가볍게 뺨을 물들이며
		ELSE
			PRINTL 한가한 듯 머리카락을 만지작거리면서,
		ENDIF
		PRINTFORMW %CALLNAME:MASTER%의 준비가 끝나기를 기다리고 있다.
		PRINTL

	ELSE			;남의 경우의 반응
		PRINTFORM %조사처리(CALLNAME:P,"는")%
		IF TALENT:P:연모 || TALENT:P:친애
			PRINTFORML %CALLNAME:MASTER%에게, 오늘 예정에 대해 이것저것 이야기하면서,
		ELSE
			PRINTFORML 두리번두리번 %CALLNAME:MASTER%의 방을 둘러보면서,
		ENDIF
		PRINTFORMW 준비가 끝나기를 기다리고 있다.
		PRINTL
	ENDIF
ENDIF

IF P:22 == 2			;상대가 노예의 경우
	IF TALENT:P:남자 != 1	;여성의 경우의 반응
		PRINTFORM %조사처리(CALLNAME:P,"는")%
		IF TALENT:P:청초 || TALENT:P:치유계
			PRINT 깨끗한 하얀 원피스 차림으로
		ELSEIF TALENT:P:쾌활 || TALENT:P:보이쉬 || TALENT:P:기가셈
			PRINT 활동적인 미니스커트 차림으로
		ELSEIF TALENT:P:색기 || TALENT:P:무기력
			PRINT 세련된 색상의 원피스 차림으로
		ELSEIF TALENT:P:천연
			PRINT 딱 정해진 블레이저 차림으로
		ELSEIF TALENT:P:어린애같음
			PRINT 소녀 취향의 블라우스 차림으로
		ELSEIF TALENT:P:쿨함
			PRINT 모노톤의 팬츠룩 차림으로
		ELSE
			PRINT 평상시와 다름없는 가디건 차림으로
		ENDIF
		PRINTFORML %CALLNAME:MASTER%의 앞에 나타나,
		IF TALENT:P:음란 || TALENT:P:창녀
			PRINT 무언가를 기대하는 것 처럼 상기된 표정으로,
		ELSEIF TALENT:P:예속
			PRINT
		ELSEIF TALENT:P:복종
			PRINT 무언가에 겁먹은 것처럼 떨리는 어깨를 양손으로 움켜쥐고,
		ELSE
			PRINT 평정을 가장하면서도 눈을 내리깔면서,
		ENDIF
		PRINTFORMW %CALLNAME:MASTER%의 명령을 기다리고 있다.
		PRINTL

	ELSE			;남의 경우의 반응
		PRINTFORML %조사처리(CALLNAME:P,"는")% 평소대로의 복장으로 %CALLNAME:MASTER%의 앞에 나타나,
		IF TALENT:P:음란 || TALENT:P:창녀
			PRINT 오늘은 어떤 일을 당할지 기대하는 표정으로,
		ELSEIF TALENT:P:예속
			PRINT %CALLNAME:MASTER%에게 창피를 주지 않았는지 불안해 하면서,
		ELSEIF TALENT:P:복종
			PRINT 오늘은 어떤 일을 당할지 겁먹은 것 같은 표정으로,
		ELSE
			PRINT 억지를 부리면서도,
		ENDIF
		PRINTFORMW %CALLNAME:MASTER%의 명령을 기다리고 있다.
		PRINTL
	ENDIF
ENDIF

				;그러면 나가자!
IF P:22 == 1			;데리고 나간 상대가 교제 상대의 경우
	IF TALENT:P:남자 != 1	;녀의 경우의 반응
		IF TALENT:P:연모
			PRINTFORML %마스터호칭은% %조사처리(CALLNAME:P,"를")% 재촉해, 근처에 있는 신사를 향해 걷기 시작했다.
			PRINTFORML %조사처리(CALLNAME:P,"는")% 기쁜 듯이 방긋 웃는 얼굴로 %CALLNAME:MASTER%의 옆에 나란히 붙어왔다.
			PRINTL
			PRINTFORML 『%NAME:P%』경험이 올랐다!
			PRINTL 애정경험＋25
			EXP:P:23 += 25
		ELSEIF TALENT:P:친애
			PRINTFORML %마스터호칭은% %조사처리(CALLNAME:P,"를")% 재촉해, 근처에 있는 신사를 향해 걷기 시작했다.
			PRINTFORML %조사처리(CALLNAME:P,"는")% 매우 기쁜 듯한 미소를 띄우며, %CALLNAME:MASTER%의 팔에 자신의 팔을 감아 팔짱을 끼며 달라붙어 왔다.
			PRINTL
			PRINTFORML 『%NAME:P%』경험이 올랐다!
			PRINTL 애정경험＋50
			EXP:P:23 += 50
		ELSE
			PRINTFORML %마스터호칭은% %조사처리(CALLNAME:P,"를")% 재촉해, 근처에 있는 신사를 향해 걷기 시작했다.
			PRINTFORML %조사처리(CALLNAME:P,"는")% %CALLNAME:MASTER%의 앞을 걸어가면서, 여러가지 이야기를 걸어 왔다.
			PRINTL
			PRINTFORML 『%NAME:P%』경험이 올랐다!
			PRINTL 애정경험＋15
			EXP:P:23 += 15
		ENDIF
		PRINTW

	ELSE			;남의 경우의 반응
		PRINTFORML %마스터호칭은% %조사처리(CALLNAME:P,"를")% 재촉해, 근처에 있는 신사를 향해 걷기 시작했다.
		PRINTFORML %조사처리(CALLNAME:P,"는")% 걸으면서 %CALLNAME:MASTER%에게, 즐거운 듯이 여러가지 이야기를 걸어 왔다.
		PRINTL
		IF TALENT:P:연모
			PRINTFORML 『%NAME:P%』경험이 올랐다!
			PRINTL 애정경험＋25
			EXP:P:23 += 25
		ELSEIF TALENT:P:친애
			PRINTFORML 『%NAME:P%』경험이 올랐다!
			PRINTL 애정경험＋50
			EXP:P:23 += 50
		ELSE
			PRINTFORML 『%NAME:P%』경험이 올랐다!
			PRINTL 애정경험＋15
			EXP:P:23 += 15
		ENDIF
		PRINTW
	ENDIF
ENDIF

IF P:22 == 2		;데리고 나간 상대가 노예의 경우
	IF TALENT:P:음란 || TALENT:P:복종 || TALENT:P:창녀 || TALENT:P:예속 && ABL:P:노출증 >= 4
		PRINTFORML 그러고 보니, %조사처리(CALLNAME:P,"는")% 노출 플레이에 완전히 익숙해진 것 같지만……
		DRAWLINE
		PRINTFORML [0]   - 알몸에 코트만 걸치게 해서 첫 참배에 간다
		SIF TALENT:P:기생
			PRINTFORML [1]   - 촉수 생물을 옷에 동화시킨다
		PRINTFORML [100] - 그런 일은 하지 않는다
		DRAWLINE
		PRINTL
		$INPUT_LOOP005
		INPUT
		IF RESULT == 0
			P:21 = 1
		ELSEIF RESULT == 1
			P:21 = 2
		ELSEIF RESULT == 100
			P:21 = 0
		ELSE
			GOTO INPUT_LOOP005
		ENDIF
	ENDIF

	IF TALENT:P:남자 != 1	;녀의 경우의 반응
		IF P:21 == 1	;노출 플레이의 경우
			IF TALENT:P:음란 || TALENT:P:창녀 || TALENT:P:동화 || TALENT:P:모판
				PRINTFORML %마스터호칭은%、코트의 앞가슴을 약간 풀어헤친 것 만으로 젖가슴이 훤히 드러난 상태의 %조사처리(CALLNAME:P,"를")% 재촉해, 일부러 멀리 떨어진 신사로 향했다.
				PRINTFORML %조사처리(CALLNAME:P,"는")% 수치로 뺨을 물들이면서도, 그 눈동자에서는 욕망의 불꽃이 흔들리고 있는 것을 알 수 있다.
				PRINTL
				IF !IS_UPPER_FALLEN(P)
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋200
					JUEL:P:5 += 200
					PRINTL 욕정의 구슬＋500
					JUEL:P:6 += 500
					PRINTL 굴복의 구슬＋200
					JUEL:P:7 += 200
					PRINTL 恥辱의 구슬＋500
					JUEL:P:9 += 500
					PRINTL 공포의 구슬＋200
					JUEL:P:11 += 200
					PRINTL 부정의 구슬＋500
					JUEL:P:100 += 500
				ELSE
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋400
					JUEL:P:5 += 400
					PRINTL 욕정의 구슬＋1000
					JUEL:P:6 += 1000
					PRINTL 굴복의 구슬＋400
					JUEL:P:7 += 400
					PRINTL 恥辱의 구슬＋1000
					JUEL:P:9 += 1000
					PRINTL 공포의 구슬＋400
					JUEL:P:11 += 400
					PRINTL 부정의 구슬＋300
					JUEL:P:100 += 300
				ENDIF
			ELSEIF TALENT:P:복종 || TALENT:P:예속
				PRINTFORML %마스터호칭은%, 코트의 앞가슴을 약간 풀어헤친 것 만으로 젖가슴이 훤히 드러난 상태의 %조사처리(CALLNAME:P,"를")% 재촉해, 일부러 멀리 떨어진 신사로 향했다.
				PRINTFORML %조사처리(CALLNAME:P,"는")% 수치와 공포로 얼굴을 굳어지게 하면서도, %마스터호칭으로%부터의 명령이기 때문에 도망칠 수 없다.
				PRINTL
				IF TALENT:P:복종
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋500
					JUEL:P:5 += 500
					PRINTL 욕정의 구슬＋100
					JUEL:P:6 += 100
					PRINTL 굴복의 구슬＋500
					JUEL:P:7 += 500
					PRINTL 恥辱의 구슬＋500
					JUEL:P:9 += 500
					PRINTL 공포의 구슬＋400
					JUEL:P:11 += 400
					PRINTL 부정의 구슬＋400
					JUEL:P:100 += 400
				ELSE
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋1000
					JUEL:P:5 += 1000
					PRINTL 욕정의 구슬＋200
					JUEL:P:6 += 200
					PRINTL 굴복의 구슬＋1000
					JUEL:P:7 += 1000
					PRINTL 恥辱의 구슬＋1000
					JUEL:P:9 += 1000
					PRINTL 공포의 구슬＋400
					JUEL:P:11 += 400
					PRINTL 부정의 구슬＋200
					JUEL:P:100 += 200
				ENDIF
			ENDIF
		ELSEIF P:21 == 2
			PRINTFORML %마스터호칭은%、예쁘게 단장한 %CALLNAME:P%의 옷에 촉수 생물을 동화시켰다。
			PRINTFORML %조사처리(CALLNAME:P,"는")% 옷 밑에서 촉수가 기어다닐 때마다 쾌락에 몸을 떨고 있다。
			PRINTL
			PRINTFORML 『%NAME:P%』경험이 올랐다！
			IF !IS_UPPER_FALLEN(P)
				PRINTL 온순의 구슬＋400
				JUEL:P:5 += 400
				PRINTL 욕정의 구슬＋1000
				JUEL:P:6 += 1000
				PRINTL 굴복의 구슬＋400
				JUEL:P:7 += 400
				PRINTL 恥辱의 구슬＋1000
				JUEL:P:9 += 1000
				PRINTL 공포의 구슬＋400
				JUEL:P:11 += 400
				PRINTL 부정의 구슬＋1000
				JUEL:P:100 += 1000
			ELSE
				PRINTL 온순의 구슬＋800
				JUEL:P:5 += 800
				PRINTL 욕정의 구슬＋2000
				JUEL:P:6 += 2000
				PRINTL 굴복의 구슬＋800
				JUEL:P:7 += 800
				PRINTL 恥辱의 구슬＋2000
				JUEL:P:9 += 2000
				PRINTL 공포의 구슬＋800
				JUEL:P:11 += 800
				PRINTL 부정의 구슬＋600
				JUEL:P:100 += 600
			ENDIF
		ELSE	;通常の連れ出し
			IF TALENT:P:음란 || TALENT:P:창녀 || TALENT:P:동화 || TALENT:P:모판
				PRINTFORML %마스터호칭은% %조사처리(CALLNAME:P,"를")% 재촉해, 일부러 멀리 떨어진 신사로 향했다.
				PRINTFORML %조사처리(CALLNAME:P,"는")% 오늘의 플레이를 머릿속에 떠올리고 있는지, 때때로 몸을 움찔움찔 진동시키고 있다.
				PRINTL
				IF !IS_UPPER_FALLEN(P)
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋200
					JUEL:P:5 += 200
				ELSE
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋400
					JUEL:P:5 += 400
				ENDIF
			ELSEIF TALENT:P:복종 || TALENT:P:예속
				PRINTFORML %마스터호칭은% %조사처리(CALLNAME:P,"를")% 재촉해, 일부러 멀리 떨어진 신사로 향했다.
				PRINTFORML %조사처리(CALLNAME:P,"는")% %CALLNAME:MASTER%의 뒤를 쫓아, 때때로 종종걸음이 되면서 따라오고 있다.
				PRINTL
				IF TALENT:P:복종
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋500
					JUEL:P:5 += 500
				ELSE
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋1000
					JUEL:P:5 += 1000
				ENDIF
			ELSE
				PRINTFORML %마스터호칭은% %조사처리(CALLNAME:P,"를")% 재촉해, 일부러 멀리 떨어진 신사로 향했다.
				IF TALENT:P:예속
					PRINTFORML %조사처리(CALLNAME:P,"는")% 기쁜듯이 %CALLNAME:MASTER%의 옆을 걷고 있다.
				ELSE
					PRINTFORML %조사처리(CALLNAME:P,"는")% 우울한 것 같은 표정을 띄우면서, %CALLNAME:MASTER%의 뒤를 걷고 있다.
				ENDIF
				PRINTFORML 『%NAME:P%』경험이 올랐다！
				PRINTL 온순의 구슬＋50
				JUEL:P:5 += 50
			ENDIF
		ENDIF
	ELSE			;男の場合の反応
		IF P:21 == 1	;노출プレイの場合
			IF TALENT:P:음란 || TALENT:P:창녀 || TALENT:P:동화 || TALENT:P:모판
				PRINTFORML %마스터호칭은%, 코트를 조금 연 것 만으로 자지가 보이는 상태의 %조사처리(CALLNAME:P,"를")% 재촉해, 일부러 멀리 떨어진 신사로 향했다.
				PRINTFORML %조사처리(CALLNAME:P,"는")% 수치로 얼굴을 상기 시키면서도, 그 눈동자에서는 욕망의 불꽃이 흔들리고 있는 것을 알 수 있다.
				PRINTL
				IF !IS_UPPER_FALLEN(P)
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋200
					JUEL:P:5 += 200
					PRINTL 욕정의 구슬＋500
					JUEL:P:6 += 500
					PRINTL 굴복의 구슬＋200
					JUEL:P:7 += 200
					PRINTL 恥辱의 구슬＋500
					JUEL:P:9 += 500
					PRINTL 공포의 구슬＋200
					JUEL:P:11 += 200
					PRINTL 부정의 구슬＋500
					JUEL:P:100 += 500
				ELSE
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋400
					JUEL:P:5 += 400
					PRINTL 욕정의 구슬＋1000
					JUEL:P:6 += 1000
					PRINTL 굴복의 구슬＋400
					JUEL:P:7 += 400
					PRINTL 恥辱의 구슬＋1000
					JUEL:P:9 += 1000
					PRINTL 공포의 구슬＋400
					JUEL:P:11 += 400
					PRINTL 부정의 구슬＋300
					JUEL:P:100 += 300
				ENDIF
			ELSEIF TALENT:P:복종 || TALENT:P:예속
				PRINTFORML %마스터호칭은%, 코트를 조금 연 것 만으로 자지가 보이는 상태의 %조사처리(CALLNAME:P,"를")% 재촉해, 일부러 멀리 떨어진 신사로 향했다.
				PRINTFORML %조사처리(CALLNAME:P,"는")% 수치와 공포로 얼굴을 굳어지게 하면서도, %마스터호칭으로%부터의 명령이기 때문에 도망칠 수 없다.
				PRINTL
				IF TALENT:P:복종
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋500
					JUEL:P:5 += 500
					PRINTL 욕정의 구슬＋100
					JUEL:P:6 += 100
					PRINTL 굴복의 구슬＋500
					JUEL:P:7 += 500
					PRINTL 恥辱의 구슬＋500
					JUEL:P:9 += 500
					PRINTL 공포의 구슬＋400
					JUEL:P:11 += 400
					PRINTL 부정의 구슬＋400
					JUEL:P:100 += 400
				ELSE
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋1000
					JUEL:P:5 += 1000
					PRINTL 욕정의 구슬＋200
					JUEL:P:6 += 200
					PRINTL 굴복의 구슬＋1000
					JUEL:P:7 += 1000
					PRINTL 恥辱의 구슬＋1000
					JUEL:P:9 += 1000
					PRINTL 공포의 구슬＋400
					JUEL:P:11 += 400
					PRINTL 부정의 구슬＋200
					JUEL:P:100 += 200
				ENDIF
			ENDIF
		ELSE		;通常の連れ出し
			IF TALENT:P:음란 || TALENT:P:창녀
				PRINTFORML %마스터호칭은% %조사처리(CALLNAME:P,"를")% 재촉해, 일부러 멀리 떨어진 신사로 향했다.
				PRINTFORML %조사처리(CALLNAME:P,"는")% 과거의 플레이를 떠올리고 있는지, 때때로 몸을 진동시키고 있다.
				PRINTL
				IF IS_UPPER_FALLEN(P)
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋200
					JUEL:P:5 += 200
				ELSE
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋400
					JUEL:P:5 += 400
				ENDIF
			ELSEIF TALENT:P:복종 || TALENT:P:예속
				PRINTFORML %마스터호칭은% %조사처리(CALLNAME:P,"를")% 재촉해, 일부러 멀리 떨어진 신사로 향했다.
				IF TALENT:P:예속
					PRINTFORML %조사처리(CALLNAME:P,"는")% 기쁜듯이 %CALLNAME:MASTER%의 옆을 걷고 있다.
				ELSE
					PRINTFORML %조사처리(CALLNAME:P,"는")% 눈을 내려깐 상태로, %CALLNAME:MASTER%의 뒤를 말없이 따라 온다.
				ENDIF
				PRINTL
				IF TALENT:P:복종
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋500
					JUEL:P:5 += 500
				ELSE
					PRINTFORML 『%NAME:P%』경험이 올랐다！
					PRINTL 온순의 구슬＋1000
					JUEL:P:5 += 1000
				ENDIF
			ELSE
				PRINTFORML %마스터호칭은% %조사처리(CALLNAME:P,"를")% 재촉해, 일부러 멀리 떨어진 신사로 향했다.
				PRINTFORML %조사처리(CALLNAME:P,"는")% 악담을 중얼거리면서 따라오고 있지만, %마스터호칭이% 눈을 돌리면 얼른 입을 다문다.
				PRINTFORML 『%NAME:P%』경험이 올랐다！
				PRINTL 온순의 구슬＋50
				JUEL:P:5 += 50
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN P

;----------参拝実行フェーズ
@HATSU_WORSHIP,ARG
PRINTL …………
PRINTL ……
PRINTW
DRAWLINE
PRINTL
IF P:22 > 0
	PRINTFORML %마스터호칭은% %ARG이름을% 데리고, 무사히 신사까지 도착했다.
ELSE
	PRINTFORML %마스터호칭은% 혼자서 신사에 왔다.
ENDIF
PRINTL 신사의 경내에는, 새해를 축하하는 사람이 대거 몰려들고 있다.
PRINTL 참배의 열에 줄은 섰지만, 실제로 참배 할 수 있을 때까지는 꽤 시간이 걸릴 것이다.
PRINTL 이 시간을 사용해, 소원을 빌어 버려도 좋을지도 모른다.
PRINTL
$LOOP_WORSHIP			;소원 선택
DRAWLINE
SIF A:27 > 0
	PRINTFORML [0]  - 그 사람과 좀 더 사이가 좋아지고 싶다
SIF D:27 > 0
	PRINTFORML [1]  - 그 사람을 좀 더 음란하게（복종）시키고 싶다
PRINTFORML [2]  - 공부를 잘하게 되고 싶다
PRINTFORML [3]  - 운동을 잘하고 싶다
PRINTFORML [4]  - 싸움에 강해지고 싶다
PRINTFORML [5]  - 매사에 민감하게 되고 싶다
PRINTFORML [99] - 어쨌든 좋은 일이 있기를
DRAWLINE
PRINTL
$INPUT_LOOP006
INPUT
IF A:27 > 0 && RESULT == 0
	P:23 = 1
ELSEIF D:27 > 0 && RESULT == 1
	P:23 = 2
ELSEIF RESULT == 2
	P:23 = 3
ELSEIF RESULT == 3
	P:23 = 4
ELSEIF RESULT == 4
	P:23 = 5
ELSEIF RESULT == 5
	P:23 = 6
ELSEIF RESULT == 99
	P:23 = 7
ELSE
	GOTO INPUT_LOOP006
ENDIF

CALL HATSU_LAST_PROCESS

IF P:23 == 1			;교제相손のステータスUPを願う
	P = 9
	CALL DISPLAY_COMMON , 16
	IF RESULT == 998
		P = A:28
		R:21 = RAND:P
		IF R:21 == 0
			P:24 = A:22
		ELSEIF R:21 == 1
			P:24 = A:23
		ELSEIF R:21 == 2
			P:24 = A:24
		ELSEIF R:21 == 3
			P:24 = A:25
		ELSEIF R:21 == 4
			P:24 = A:26
		ENDIF
	ELSEIF RESULT == 999
		GOTO LOOP_WORSHIP
	ELSE
		P:24 = RESULT
	ENDIF
ELSEIF P:23 == 2		;奴隷のステータスUPを願う
	P = 10
	CALL DISPLAY_COMMON , 16
	IF RESULT == 998
		P = D:28
		R:21 = RAND:P
		IF R:21 == 0
			P:24 = D:22
		ELSEIF R:21 == 1
			P:24 = D:23
		ELSEIF R:21 == 2
			P:24 = D:24
		ELSEIF R:21 == 3
			P:24 = D:25
		ELSEIF R:21 == 4
			P:24 = D:26
		ENDIF
	ELSEIF RESULT == 999
		GOTO LOOP_WORSHIP
	ELSE
		P:24 = RESULT
	ENDIF
ENDIF

PRINTL …………
PRINTL ……
PRINTW
PRINTL 소원을 생각하고 있는 동안에, 바로 앞의 줄이 본전의 계단을 끝까지 올라갔다.
IF P:22 > 0
	PRINTFORML %마스터호칭은% 꽤나 긴 시간 골똘히 생각하고 있었을 것이다.
	PRINTFORML %ARG는% 약간 재미없는 듯 한 얼굴을 하고 있다.
	IF TALENT:ARG:교제
		PRINTFORM 황급히 %CALLNAME:ARG%에게 사과하면서,
	ELSEIF TALENT:ARG:강간 || TALENT:ARG:협박
		PRINTFORM 그런 %ARG를% 무시하면서,
	ENDIF
	PRINTL 본전 앞으로 걸어갔다.
ENDIF
PRINTW
PRINTL 그런데, 새전은 얼마나 봉납할까……
PRINTL
DRAWLINE
SIF MONEY >= 5
	PRINTFORML [0]   - 인연이 있기를（소지금-5）
SIF MONEY >= 100000
	PRINTFORML [1]   - 거추장스러운「슈레이문 지폐」×50장（소지금-100000）
SIF MONEY >= 200000
	PRINTFORML [2]   - 더 거추장스러운「슈레이문 지폐」×100장（소지금-200000）
PRINTFORML [100] - 마음만 봉납한 기분을（소지금 증감 없음）
DRAWLINE
PRINTL
$INPUT_LOOP009
INPUT
IF RESULT == 0 && MONEY >= 5
	P:25 = 1
	MONEY -= 5
ELSEIF RESULT == 1 && MONEY >= 100000
	P:25 = 2
	MONEY -= 100000
ELSEIF RESULT == 2 && MONEY >= 200000
	P:25 = 3
	MONEY -= 200000
ELSEIF RESULT == 100
	P:25 = 0
ELSE
	GOTO INPUT_LOOP009
ENDIF

PRINTL ……………………
PRINTL ………………
PRINTL …………
PRINTL ……
PRINTW

IF P:23 == 1			;교제 상대의 소원 처리
	P = P:24
	IF P:25 == 1
		PRINTW 어쩐지, 소원이 이루어진 것 같다……
		PRINTL
		PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다!
		PRINTL 애정경험＋50
		EXP:P:23 += 50
		PRINTW
	ELSEIF P:25 == 2
		PRINTW 어쩐지, 소원이 이루어진 것 같다……
		PRINTL
		PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다!
		PRINTL 애정경험＋100
		EXP:P:23 += 100
		PRINTL 온순의 구슬＋3000
		JUEL:P:5 += 3000
		PRINTW
	ELSEIF P:25 == 3
		PRINTW 어쩐지, 자신이 바란대로 될 것 같다……
		PRINTL
		DRAWLINE
		SIF MARK:P:3 >= 1
			PRINTFORML [0] - 반발각인을 1단계 내린다
		SIF ABL:P:12 != 10
			PRINTFORML [1] - 요리기능을 1단계 올린다
		SIF ABL:P:14 != 10
			PRINTFORML [2] - 가창기능을 1단계 올린다
		PRINTFORML [3] - 온순의 구슬을 7000 늘린다
		DRAWLINE
		PRINTL
		$INPUT_LOOP0010
		INPUT
		IF RESULT == 0 && MARK:P:3 >= 1
			PRINTFORML 『%NAME:P%』의 스테이터스가 변했다！
			PRINTL 반발각인－1
			MARK:P:3 -= 1
		ELSEIF RESULT == 1 && ABL:P:12 != 10
			PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
			PRINTL 요리기능＋1
			ABL:P:12 += 1
		ELSEIF RESULT == 2 && ABL:P:14 != 10
			PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
			PRINTL 가창기능＋1
			ABL:P:14 += 1
		ELSEIF RESULT == 3
			PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
			PRINTL 온순의 구슬＋7000
			JUEL:P:5 += 7000
		ELSE
			GOTO INPUT_LOOP0010
		ENDIF
		PRINTW
	ELSEIF P:25 == 0
		PRINTW 何も変わったような気がしない……
	ENDIF
ENDIF

IF P:23 == 2			;奴隷相손の願い事処理
	P = P:24
	IF P:25 == 1
		PRINTW 아무것도 변하지 않은 것 같은 생각이 든다……
		PRINTL
		PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
		IF TALENT:P:음란 || TALENT:P:창녀 || TALENT:P:동화 || TALENT:P:모판
			PRINTL 온순의 구슬＋250
			JUEL:P:5 += 250
			PRINTL 욕정의 구슬＋250
			JUEL:P:6 += 250
			PRINTL 굴복의 구슬＋250
			JUEL:P:7 += 250
		ELSEIF TALENT:P:복종 || TALENT:P:예속
			PRINTL 온순의 구슬＋250
			JUEL:P:5 += 250
			PRINTL 굴복의 구슬＋250
			JUEL:P:7 += 250
			PRINTL 공포의 구슬＋250
			JUEL:P:11 += 250
		ELSE
			PRINTL 온순의 구슬＋100
			JUEL:P:5 += 100
			PRINTL 욕정의 구슬＋100
			JUEL:P:6 += 100
			PRINTL 굴복의 구슬＋100
			JUEL:P:7 += 100
			PRINTL 공포의 구슬＋100
			JUEL:P:11 += 100
		ENDIF
		PRINTW
	ELSEIF P:25 == 2
		PRINTW 어쩐지, 소원이 이루어진 것 같다……
		PRINTL
		PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
		IF TALENT:P:음란 || TALENT:P:창녀 || TALENT:P:동화 || TALENT:P:모판
			PRINTL 온순의 구슬＋2500
			JUEL:P:5 += 2500
			PRINTL 욕정의 구슬＋2500
			JUEL:P:6 += 2500
			PRINTL 굴복의 구슬＋2500
			JUEL:P:7 += 2500
		ELSEIF TALENT:P:복종 || TALENT:P:예속
			PRINTL 온순의 구슬＋2500
			JUEL:P:5 += 2500
			PRINTL 굴복의 구슬＋2500
			JUEL:P:7 += 2500
			PRINTL 공포의 구슬＋2500
			JUEL:P:11 += 2500
		ELSE
			PRINTL 온순의 구슬＋1000
			JUEL:P:5 += 1000
			PRINTL 욕정의 구슬＋1000
			JUEL:P:6 += 1000
			PRINTL 굴복의 구슬＋1000
			JUEL:P:7 += 1000
			PRINTL 공포의 구슬＋1000
			JUEL:P:11 += 1000
		ENDIF
		PRINTW
	ELSEIF P:25 == 3
		PRINTW 어쩐지, 자신이 바란대로 될 것 같다……
		PRINTL
		DRAWLINE
		SIF MARK:P:3 >= 1
			PRINTFORML [0] - 반발각인을 1단계 내린다
		SIF TALENT:P:음란 || TALENT:P:창녀 && ABL:P:1 != 10
			PRINTFORML [1] - 욕망을 1단계 올린다
		SIF TALENT:P:복종 || TALENT:P:예속 && ABL:P:0 != 10
			PRINTFORML [1] - 순종을 1단계 올린다
		SIF TALENT:P:음란 || TALENT:P:창녀 && ABL:P:18 != 10
			PRINTFORML [2] - 섹스 중독을 1단계 올린다
		SIF TALENT:P:복종 || TALENT:P:예속 && ABL:P:9 != 10
			PRINTFORML [2] - 마조끼를 1단계 올린다
		SIF ABL:P:11 <= 4
			PRINTFORMl [3] - 레즈끼를 1단계 올린다
		PRINTFORML [4] - 온순의 구슬을 7000늘린다
		PRINTFORML [5] - 고통의 구슬을 7000늘린다
		DRAWLINE
		PRINTL
		$INPUT_LOOP0011
		INPUT
		IF RESULT == 0 && MARK:P:3 >= 1
			PRINTFORML 『%NAME:P%』의 스테이터스가 변했다！
			PRINTL 반발각인－1
			MARK:P:3 -= 1
		ELSEIF TALENT:P:음란 || TALENT:P:창녀 && ABL:P:1 != 10 && RESULT == 1
			PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
			PRINTL 욕망＋1
			ABL:P:1 += 1
		ELSEIF TALENT:P:복종 || TALENT:P:예속 && ABL:P:0 != 10 && RESULT == 1
			PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
			PRINTL 순종＋1
			ABL:P:0 += 1
		ELSEIF TALENT:P:음란 || TALENT:P:창녀 && ABL:P:18 != 10 && RESULT == 2
			PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
			PRINTL 섹스중독＋1
			ABL:P:18 += 1
		ELSEIF TALENT:P:복종 || TALENT:P:예속 && ABL:P:9 != 10 && RESULT == 2
			PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
			PRINTL 마조끼＋1
			ABL:P:9 += 1
		ELSEIF ABL:P:11 <= 4 && RESULT == 3
			PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
			PRINTL 레즈끼＋1
			ABL:P:11 += 1
		ELSEIF RESULT == 4
			PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
			PRINTL 온순의 구슬＋7000
			JUEL:P:5 += 7000
		ELSEIF RESULT == 5
			PRINTFORML 『%NAME:P%』의 스테이터스가 올랐다！
			PRINTL 고통의 구슬＋7000
			JUEL:P:10 += 7000
		ELSE
			GOTO INPUT_LOOP0011
		ENDIF
		PRINTW
	ELSEIF P:25 == 0
		PRINTW 아무것도 변하지 않은 것 같은 생각이 든다……
	ENDIF
ENDIF

P = 0
IF P:23 >= 3			;스테이터스 업시의 추첨 판정
	R:21 = RAND:100
	IF P:25 == 1
		SIF R:21 == 0	;5$라면 1％의 확률로 당선
			P = 1
	ELSEIF P:25 == 2
		SIF R:21 < 25	;100000$라면 25％의 확률로 당선
			P = 1
	ELSEIF P:25 == 3
		SIF R:21 < 50	;200000$라면 50％의 확률로 당선
			P = 1
	ELSE
			P = 0
	ENDIF
ENDIF

IF P:23 == 3 && P == 1 && ABL:MASTER:학력 <= 7
				;학력 UP를 바랬다／랜덤으로 학력의 경우
	PRINTL 어쩐지, 머리의 회전이 좋아진 것 같다……
	PRINTL
	PRINTFORML %CALLNAME:MASTER%의 학력이 올랐다!
	PRINTL 학력＋1
	ABL:MASTER:학력 += 1
	PRINTW
ELSEIF P:23 == 3
	PRINTL 누군가로부터 「스스로 어떻게든 해라」라고 말해진 것 같다……
	PRINTW
ENDIF

IF P:23 == 4 && P == 1 && ABL:MASTER:운동능력 <= 7
				;운동능력 UP를 바랬다／랜덤으로 운동능력의 경우
	PRINTL 어쩐지, 몸이 가벼워진 것 같은 생각이 든다……
	PRINTL
	PRINTFORML %CALLNAME:MASTER%의 운동능력이 올랐다!
	PRINTL 운동능력＋1
	ABL:MASTER:운동능력 += 1
	PRINTW
ELSEIF P:23 == 4
	PRINTL 누군가로부터 「조금은 운동해라」라고 말해진 것 같다……
	PRINTW
ENDIF

IF P:23 == 5 && P == 1 && ABL:MASTER:전투능력 <= 7
				;전투능력 UP를 바랬다／랜덤으로 전투능력의 경우
	PRINTL 어쩐지, 몸이 튼튼하게 된 것 같은 생각이 든다……
	PRINTL
	PRINTFORML %CALLNAME:MASTER%의 전투능력이 올랐다!
	PRINTL 전투능력＋1
	ABL:MASTER:전투능력 += 1
	PRINTW
ELSEIF P:23 == 5
	PRINTL 누군가로부터 「조금은 단련해라」라고 말해진 것 같다……
	PRINTW
ENDIF

IF P:23 == 6 && P == 1 && ABL:MASTER:감성 <= 7
				;감성 UP를 바랬다／랜덤으로 감성의 경우
	PRINTL 어쩐지, 매사에 민감하게 된 것 같은 생각이 든다……
	PRINTL
	PRINTFORML %CALLNAME:MASTER%의 감성이 올랐다!
	PRINTL 감성＋1
	ABL:MASTER:감성 += 1
	PRINTW
ELSEIF P:23 == 6
	PRINTL 누군가로부터 「차크라를 열어라」라고 말해진 것 같다……
	PRINTW
ENDIF

IF P:23 == 7			;먼저 랜덤 선택시의 처리를 실시
	R:21 = RAND:4		;학력／운동／전투／감성으로부터 1개를 랜덤 선택
	IF R:21 == 0 && P == 1 && ABL:MASTER:학력 <= 7
				;학력 UP를 바랬다／랜덤으로 학력의 경우
		PRINTL 어쩐지, 머리의 회전이 좋아진 것 같다……
		PRINTL
		PRINTFORML %CALLNAME:MASTER%의 학력이 올랐다!
		PRINTL 학력＋1
		ABL:MASTER:학력 += 1
		PRINTW
	ELSEIF R:21 == 0
		PRINTL 누군가로부터 「스스로 어떻게든 해라」라고 말해진 것 같다……
		PRINTW
	ELSEIF R:21 == 1 && P == 1 && ABL:MASTER:운동능력 <= 7
				;운동능력 UP를 바랬다／랜덤으로 운동능력의 경우
		PRINTL 어쩐지, 몸이 가벼워진 것 같은 생각이 든다……
		PRINTL
		PRINTFORML %CALLNAME:MASTER%의 운동능력이 올랐다!
		PRINTL 운동능력＋1
		ABL:MASTER:운동능력 += 1
		PRINTW
	ELSEIF R:21 == 1
		PRINTL 누군가로부터 「조금은 운동해라」라고 말해진 것 같다……
		PRINTW
	ELSEIF R:21 == 2 && P == 1 && ABL:MASTER:전투능력 <= 7
				;전투능력 UP를 바랬다／랜덤으로 전투능력의 경우
		PRINTL 어쩐지, 몸이 튼튼하게 된 것 같은 생각이 든다……
		PRINTL
		PRINTFORML %CALLNAME:MASTER%의 전투능력이 올랐다!
		PRINTL 전투능력＋1
		ABL:MASTER:전투능력 += 1
		PRINTW
	ELSEIF R:21 == 2
		PRINTL 누군가로부터 「조금은 단련해라」라고 말해진 것 같다……
		PRINTW
	ELSEIF R:21 == 3 && P == 1 && ABL:MASTER:감성 <= 7
				;감성 UP를 바랬다／랜덤으로 감성의 경우
		PRINTL 어쩐지, 매사에 민감하게 된 것 같은 생각이 든다……
		PRINTL
		PRINTFORML %CALLNAME:MASTER%의 감성이 올랐다!
		PRINTL 감성＋1
		ABL:MASTER:감성 += 1
		PRINTW
	ELSEIF R:21 == 3
		PRINTL 누군가로부터 「차크라를 열어라」라고 말해진 것 같다……
		PRINTW
	ENDIF
ENDIF

RETURN ARG

;----------初詣参拝後のメッセージ
@HATSU_WORSHIP_AFTER,ARG
PRINTL ……………………
PRINTL ………………
PRINTL …………
PRINTL ……
PRINTW
PRINTFORM 무사히 참배를 끝마친 %마스터호칭은%
SIF P:22 > 0
	PRINTFORM %ARG와% 함께
PRINTL 돌아가고 있는 길이다.
PRINTL 인파에 온종일 시달렸으므로, 완전히 피곤해져 버렸다.
SIF P:22 > 0
	PRINTFORML %CALLNAME:ARG%도 마찬가지로, 조금 초췌해 보인다.
SIF P:21 == 1
	PRINTL 물론, 가장 큰 이유는 코트를 풀어헤치면 실오라기 하나 걸치지 않은 전라라는 것 때문이겠지만…….
SIF P:21 == 2
	PRINTL 무엇보다도、끊임없이 촉수의 괴롭힘을 받고 절정을 거듭하고 있어서겠지만････。
PRINTW
IF P:22 > 0
	PRINTL 그럼, 이후에는 어떻게 할까…….
ELSE
	PRINTW 이제 남은건 돌아가서 자는 것 뿐이다.
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF
RETURN ARG

;----------お楽しみ選択
@HATSU_AFTER_SELECT,ARG
DRAWLINE
IF TALENT:ARG:남자 != 1
	SIF TALENT:ARG:처녀 == 0
		PRINTFORML [0]   - 자택으로 돌아가 새해 첫 섹스
	SIF TALENT:ARG:처녀 && TALENT:ARG:친애
		PRINTFORML [0]   - 자택으로 돌아가 새해 첫 섹스(첫경험)
	SIF (TALENT:ARG:음란 || TALENT:ARG:복종 || TALENT:ARG:창녀 || TALENT:ARG:예속 || TALENT:P:동화 || TALENT:P:모판) && TALENT:ARG:처녀 == 0
		PRINTFORML [1]   - %CALLNAME:ARG%에게 호텔에서 매춘을 시킨다
	SIF (TALENT:ARG:음란 || TALENT:ARG:복종 || TALENT:ARG:창녀 || TALENT:ARG:예속 || TALENT:P:동화 || TALENT:P:모판)
		PRINTFORML [2]   - %CALLNAME:ARG%에게 호텔에서 매춘（실전 없음）을 시킨다
	SIF (TALENT:ARG:음란 || TALENT:ARG:복종 || TALENT:ARG:창녀 || TALENT:ARG:예속 || TALENT:P:동화 || TALENT:P:모판) && TALENT:ARG:처녀 == 0 && P:21 == 1
		PRINTFORML [3]   - %CALLNAME:ARG%에게 공원에서 매춘을 시킨다
	SIF (TALENT:ARG:창녀 || TALENT:ARG:예속 || TALENT:P:모판) && TALENT:ARG:처녀 == 0
		PRINTFORML [4]   - %CALLNAME:ARG%에게 호텔에서 윤간 매춘을 시킨다
	SIF (TALENT:ARG:창녀 || TALENT:ARG:예속 || TALENT:P:모판) && TALENT:ARG:처녀 == 0 && P:21 == 1
		PRINTFORML [5]   - %CALLNAME:ARG%에게 공원에서 윤간 매춘을 시킨다
ENDIF
SIF MONEY >= 2000
	PRINTFORML [6]   - %ARG와% 함께 식사하러 간다（소지금-2000）
SIF MONEY >= 1500
	PRINTFORML [7]   - %ARG와% 함께 노래방에 간다（소지금-1500）
SIF MONEY >= 1000
	PRINTFORML [8]   - %ARG와% 함께 볼링장에 간다（소지금-1000）
DRAWLINE
PRINTFORML [100] - 역시 지쳤으므로 해산한다
DRAWLINE
PRINTL
$INPUT_LOOP0012
INPUT
IF TALENT:ARG:처녀 == 0 && RESULT == 0
	P = 1
ELSEIF TALENT:ARG:처녀 && TALENT:ARG:친애 && RESULT == 0
	P = 11
ELSEIF TALENT:ARG:음란 || TALENT:ARG:복종 || TALENT:ARG:창녀 || TALENT:ARG:예속 && TALENT:ARG:처녀 == 0 && RESULT == 1
	P = 2
ELSEIF TALENT:ARG:음란 || TALENT:ARG:복종 || TALENT:ARG:창녀 || TALENT:ARG:예속 && RESULT == 2
	P = 3
ELSEIF TALENT:ARG:음란 || TALENT:ARG:복종 || TALENT:ARG:창녀 || TALENT:ARG:예속 && TALENT:ARG:처녀 == 0 && P:21 == 1 && RESULT == 3
	P = 4
ELSEIF TALENT:ARG:창녀 || TALENT:ARG:예속 && TALENT:ARG:처녀 == 0 && RESULT == 4
	P = 5
ELSEIF TALENT:ARG:창녀 || TALENT:ARG:예속 && TALENT:ARG:처녀 == 0 && P:21 == 1 && RESULT == 5
	P = 6
ELSEIF MONEY >= 2000 && RESULT == 6
	P = 7
	MONEY -= 2000
ELSEIF MONEY >= 1500 && RESULT == 7
	P = 8
	MONEY -= 1500
ELSEIF MONEY >= 1000 && RESULT == 8
	P = 9
	MONEY -= 1000
ELSEIF RESULT == 100
	PRINTFORMW 오늘은 지쳤으므로, %ARG와%는 여기서 헤어지기로 했다.
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ELSE
	GOTO INPUT_LOOP0012
ENDIF

PRINTL ……………………
PRINTL ………………
PRINTL …………
PRINTL ……
PRINTW

				;공주 초국면（대상자:여자만）
IF P == 1 && P:22 == 1		;교제 상대
	PRINTFORML %마스터호칭은% %ARG를% 데리고, 자기 방으로 돌아왔다.
	IF TALENT:ARG:교제
		PRINTL 둘이서 새해의 여운에 한동안 잠겼다…….
		IF TALENT:ARG:연모 || TALENT:ARG:친애
		PRINTFORML 갑자기, 촉촉한 눈동자를 한 %ARG가% %CALLNAME:MASTER%에게 다가왔다.
			PRINTW 이윽고, 서로의 입술을 겹쳐 깊게 들이마시며, 그대로 침대에 쓰러지는 두 사람의 모습이 있었다…….
		ELSE
			PRINTFORML 마음을 먹은 %마스터호칭이% %CALLNAME:ARG%의 몸을 요구한다.
			PRINTFORMW 잠깐 망설이는 시간이 있었지만, 이윽고 %ARG는% %CALLNAME:MASTER%의 요구에 따르기로 마음먹은 것이었다.
		ENDIF
		PRINTL
	ENDIF

	PRINTFORML 『%NAME:ARG%』경험이 증가했다！
	PRINTL Ｖ경험＋5
	EXP:ARG:0 += 5
	PRINTL 절정경험＋3
	EXP:ARG:2 += 3
	PRINTL 성교경험＋5
	EXP:ARG:4 += 5
	PRINTL 정액경험＋5
	EXP:ARG:20 += 5
	IF TALENT:ARG:연모
		PRINTL 애정경험＋50
		EXP:ARG:23 += 50
	ELSEIF TALENT:ARG:친애
		PRINTL 애정경험＋75
		EXP:ARG:23 += 75
	ELSE
		PRINTL 애정경험＋25
		EXP:ARG:23 += 25
	ENDIF
	IF BASE:ARG:0 > 500 && BASE:ARG:0 <= 1000
		BASE:ARG:0 = 500
	ELSEIF BASE:ARG:0 > 1000
		BASE:ARG:0 -= 500
	ENDIF
	PRINTW
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF

IF P == 11 && P:22 == 1		;친애+처녀相손
	PRINTFORML %마스터호칭은% %ARG를% 데리고, 자기 방으로 돌아왔다.
	IF TALENT:ARG:교제
		PRINTL 둘이서 새해의 여운에 한동안 잠겼다…….
		PRINTL 시시한 회화를 즐기고 있었지만, 갑자기 두 사람의 사이에 침묵이 방문했다.
		PRINTL 그 침묵은 결코 싫은 것은 아니고, 기대와 수치와 애정으로 가득 차 흘러넘치는 것이었다.
		PRINTFORMW 말을 주고 받는 일 없이 시선만으로 확인과 대답을 실시해, %ARG는% 욕실로 자취를 감추었다.
		PRINTL
		PRINTFORML %ARG와% 교대하듯이 %CALLNAME:MASTER%도 샤워로 몸을 깨끗하게 하고, 그녀가 기다리는 침실로 향한다.
		PRINTL 방에 들어가면, 예쁘게 접힌 의류와 속옷이 한순간만 시야에 들어왔다.
		PRINTFORMW 알몸으로 시트를 감은 것 뿐인, 선정적인 %CALLNAME:ARG%의 모습에 매료되어, %마스터호칭은% 그녀를 소녀에서부터 여자로 재탄생시킬 수 있도록, 뒤덮어 가는 것이었다…….
		PRINTL
	ENDIF
	PRINTFORML 『%NAME:ARG%』%조사만처리(NAME:ARG,"는")% 처녀를 잃었다！
	TALENT:ARG:처녀 = 0
	PRINTFORML %ARG는% 경사스러운 날에 %CALLNAME:MASTER%에게 처녀를 바칠 수 있었다는 사실에, 깊은 행복을 느끼고 있다.
	PRINTL
	PRINTFORML 『%NAME:ARG%』경험이 증가했다！
	PRINTL Ｖ경험＋2
	EXP:ARG:0 += 2
	PRINTL 절정경험＋1
	EXP:ARG:2 += 1
	PRINTL 성교경험＋2
	EXP:ARG:4 += 1
	PRINTL 정액경험＋1
	EXP:ARG:20 += 1
	PRINTL 애정경험＋150
	EXP:ARG:23 += 150
	IF BASE:ARG:0 > 500 && BASE:ARG:0 <= 1200
		BASE:ARG:0 = 500
	ELSEIF BASE:ARG:0 > 1200
		BASE:ARG:0 -= 700
	ENDIF
	PRINTW
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF

IF P == 1 && P:22 == 2		;奴隷相손
	IF TALENT:ARG:강간 || TALENT:ARG:협박 || TALENT:ARG:기생
		PRINTL 한동안 말없는 시간이 지나고…….
		IF TALENT:ARG:음란 || TALENT:ARG:창녀 || TALENT:P:동화 || TALENT:P:모판
			PRINTFORML 정욕을 더이상 억제할 수 없게 된 %ARG는% %마스터호칭을% 침대에 쓰러트렸다.
			PRINTFORML 달라붙듯이 집요하게 %CALLNAME:MASTER%의 입술을 요구하는 %CALLNAME:ARG%의 눈동자는 흐릿하게 빛나고 있다.
			PRINTFORML 시간을 아끼려는 듯이 속옷을 벗어던진 %ARG는%, %CALLNAME:MASTER% 위에 올라타, 씩씩한 남근을 스스로의 꿀단지에 받아들인다.
			SIF TALENT:ARG:빈유 || TALENT:ARG:절벽
				PRINT 다소곳한
			SIF TALENT:ARG:거유 || TALENT:ARG:폭유
				PRINT 풍만한
			PRINTFORML 가슴을 스스로 주무르면서 허리를 쉬지않고 흔들며 쾌락을 탐하는 %CALLNAME:ARG%의 모습을 아래에서부터 보고 있던 %마스터호칭은%,
			PRINTFORML 주도권을 되찾기 위해, 맹렬하게 %ARG를% 밀어올린다.
			PRINTW 광기어린 열기의 연회는 아직도 계속되는 것이었다…….
		ELSEIF TALENT:ARG:복종 || TALENT:ARG:예속
			PRINTFORML %마스터호칭은% 자신의 행동 하나하나에 민감하게 반응하는 %CALLNAME:ARG%의 모습을 즐기고 있었지만, 곧 그것도 질려 왔다.
			PRINTFORML 다음은 %CALLNAME:ARG%의 치태를 즐길 수 있도록, 그녀에게 전라가 되도록 명령한다.
			IF TALENT:ARG:예속
				PRINTFORML %ARG는% 네, 라고 순순히 고개를 끄덕이며, 옷을 벗기 시작했다.
			ELSE
			PRINTFORML %ARG는% 고개를 흔들며 거절했지만, %마스터호칭이% 한 번 더 같은 어조로 명령하면, 이번엔 순순히 따라 의복을 벗기 시작했다.
			ENDIF
			SIF TALENT:ARG:빈유 || TALENT:ARG:절벽
				PRINT 다소곳한
			SIF TALENT:ARG:거유 || TALENT:ARG:폭유
				PRINT 풍만한
			PRINTFORML 가슴과 비부를 필사적으로 숨기며, %CALLNAME:MASTER%의 시선으로부터 도망치려고 하는 것도, 제대로 실현되지 않는다.
			PRINTFORML %마스터호칭은% %ARG를% 침대에 쓰러트리고 아직 제대로 젖지 않아 윤택이 적은 그녀의 비부에 씩씩한 남근을 밀어넣었다.
			PRINTFORML %ARG는% 질을 억지로 벌리며 비집고 들어오는 고통에 신음소리를 흘린다.
			PRINTW 하지만, 이윽고 그것도 쾌락으로 바뀌어, 그 목소리는 기쁨으로 떨리고 있는 것이었다…….
		ELSE
			PRINTFORML %ARG는% 그 침묵에 참을 수 없게 되었는지, 자리에서 일어나 텔레비전의 전원을 넣으려고 리모콘에 손을 뻗었다.
			PRINTFORML %마스터호칭은% 그것을 미리 예상했던 것처럼 %CALLNAME:ARG%의 팔을 잡아, 침대에 쓰러트리고 억지로 의복을 벗기려고 한다.
			PRINTFORML %ARG는% 반항하듯이 %CALLNAME:MASTER%의 손을 밀어내며 저항하지만, 결국 남자의 힘에는 이길 수 없었다.
			PRINTFORM 전라로 한 %ARG를% 깔아누르며, %마스터호칭은% 그
			SIF TALENT:ARG:빈유 || TALENT:ARG:절벽
				PRINT 다소곳한
			SIF TALENT:ARG:거유 || TALENT:ARG:폭유
				PRINT 풍만한
			PRINT 가슴을, 비부를,
			SIF ABL:ARG:5 >= 3
				PRINT 애널을,
			PRINTL 계속 농락했다.
			PRINTFORML %마스터호칭으로%부터 주어지는 고통과 쾌락에 더이상 참지 못하고, %ARG는% 마침내 그의 씩씩한 남근을 보지에 받아들이고 말았다.
			PRINTFORML 한두 번 사용한 게 아님에도 불구하고、%CALLNAME:ARG%의 질은 신품 그 자체다。
			PRINTFORMW %마스터호칭은%%CALLNAME:ARG%의 질내 감촉에 만족하며、지금부터가 진짜라고 그녀를 스퍼트를 개시했다……。
		ENDIF
		PRINTL
	ENDIF
	PRINTFORML 『%NAME:ARG%』경험이 증가했다！
	PRINTL Ｖ경험＋5
	EXP:ARG:0 += 5
	IF ABL:ARG:5 >= 3
		PRINTL Ａ경험＋5
		EXP:ARG:1 += 5
	ENDIF
	PRINTL 절정경험＋3
	EXP:ARG:2 += 3
	IF ABL:ARG:5 >= 3
		PRINTL 성교경험＋10
		EXP:ARG:4 += 10
	ELSE
		PRINTL 성교경험＋5
		EXP:ARG:4 += 5
	ENDIF
	PRINTL 정액경험＋5
	EXP:ARG:20 += 5
	PRINTL 펠라경험＋5
	EXP:ARG:22 += 5
	IF BASE:ARG:0 > 500 && BASE:ARG:0 <= 1000
		BASE:ARG:0 = 500
	ELSEIF BASE:ARG:0 > 1000
		BASE:ARG:0 -= 500
	ENDIF
	PRINTW
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF

				;호텔 매춘 국면
IF P == 2
	PRINTFORML %ARG를% 따라 거리를 걷고 있으면, 그녀의 얼굴에 넋을 잃은 듯 바라보고 있는, 한 남자가 %CALLNAME:MASTER%들을 쳐다보고 있었다.
	PRINTFORML %마스터호칭이% %ARG와% 한번 자 보고 싶지 않냐고 말을 걸면, 그는 지갑으로부터 지폐를 2매 꺼내, %CALLNAME:MASTER%의 포켓에 쑤셔 넣는다.
	IF TALENT:ARG:음란 || TALENT:ARG:창녀 || TALENT:P:동화 || TALENT:P:모판
		PRINTFORMW %ARG는% 요염하게 미소지으면서, 남자와 함께 호텔가로 사라져 갔다…….
	ELSEIF TALENT:ARG:복종 || TALENT:ARG:예속
		PRINTFORMW %ARG는% 불안한 듯한 눈동자로 %마스터호칭을% 응시하고 있었지만, 마침내 체념의 표정을 지으며 남자와 함께 호텔가로 자취을 감춘 것이었다…….
	ENDIF
	PRINTL
	PRINTFORML 『%NAME:ARG%』경험이 증가했다！
	IF EXP:ARG:57 == 0
		PRINTL 첫매춘：이상경험＋1
		EXP:ARG:50 += 1
	ENDIF
	PRINTL 매춘경험＋1
	EXP:ARG:57 += 1
	PRINTL Ｖ경험＋5
	EXP:ARG:0 += 5
	IF ABL:ARG:5 >= 3
		PRINTL Ａ경험＋5
		EXP:ARG:1 += 5
	ENDIF
	PRINTL 절정경험＋3
	EXP:ARG:2 += 3
	IF ABL:ARG:5 >= 3
		PRINTL 성교경험＋10
		EXP:ARG:4 += 10
	ELSE
		PRINTL 성교경험＋5
		EXP:ARG:4 += 5
	ENDIF
	PRINTL 정액경험＋5
	EXP:ARG:20 += 5
	PRINTL 펠라경험＋5
	EXP:ARG:22 += 5
	IF TALENT:ARG:음란 || TALENT:P:동화
		PRINTL 恥辱의 구슬＋500
		JUEL:ARG:9 += 500
		PRINTL 공포의 구슬＋500
		JUEL:ARG:11 += 500
		PRINTL 부정의 구슬＋400
		JUEL:ARG:100 += 400
	ENDIF
	IF TALENT:ARG:복종
		PRINTL 恥辱의 구슬＋400
		JUEL:ARG:9 += 400
		PRINTL 공포의 구슬＋800
		JUEL:ARG:11 += 800
		PRINTL 부정의 구슬＋500
		JUEL:ARG:100 += 500
	ENDIF
	IF TALENT:ARG:창녀 || TALENT:P:모판
		PRINTL 恥辱의 구슬＋500
		JUEL:ARG:9 += 500
		PRINTL 공포의 구슬＋500
		JUEL:ARG:11 += 500
		PRINTL 부정의 구슬＋200
		JUEL:ARG:100 += 200
	ENDIF
	IF TALENT:ARG:예속
		PRINTL 恥辱의 구슬＋400
		JUEL:ARG:9 += 400
		PRINTL 공포의 구슬＋800
		JUEL:ARG:11 += 800
		PRINTL 부정의 구슬＋300
		JUEL:ARG:100 += 300
	ENDIF
	PRINTL 소지금＋20000
	MONEY += 20000
	IF BASE:ARG:0 > 500 && BASE:ARG:0 <= 1200
		BASE:ARG:0 = 500
	ELSEIF BASE:ARG:0 > 1200
		BASE:ARG:0 -= 700
	ENDIF
	PRINTW
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF

				;호텔 매춘（실전 없음）국면
IF P == 3
	PRINTFORML %ARG를% 따라 거리를 걷고 있으면, 그녀의 얼굴에 넋을 잃은 듯 바라보고 있는, 한 남자가 %CALLNAME:MASTER%들을 쳐다보고 있었다.
	PRINTFORMW %마스터호칭은% 실전 없는 플레이를 조건으로 %ARG와% 놀아 보지 않겠냐고 말을 걸면, 그는 히죽 웃으며 엄지를 세웠다.
	PRINTL
	IF TALENT:ARG:음란 || TALENT:ARG:창녀 || TALENT:P:동화 || TALENT:P:모판
		PRINTFORML %CALLNAME:MASTER%들은 남자와 함께 호텔가에 향했다.
		PRINTFORML 호텔의 객실으로 들어가자, %CALLNAME:ARG%에게 달라붙어 격렬한 애무를 시도하는 남자를 곁눈질하며, %마스터호칭은% 묵묵히 렌탈한 비디오 카메라의 세팅을 한다.
		PRINTFORMW 그리고, %CALLNAME:MASTER%의 눈과 카메라 렌즈에는 서로 뒤엉켜 흐트러진 %ARG와% 남자의 모습이 끝없이 계속 비치고 있었다…….
	ELSEIF TALENT:ARG:복종 || TALENT:ARG:예속
		PRINTFORML %CALLNAME:MASTER%들은 남자와 함께 호텔가에 향했다.
		PRINTFORML 호텔의 객실으로 들어가자, %CALLNAME:ARG%에게 달라붙어 격렬한 애무를 시도하는 남자를 곁눈질하며, %마스터호칭은% 묵묵히 렌탈한 비디오 카메라의 세팅을 한다.
		PRINTFORML 카메라 렌즈를 침대로 향하면, 싫어하면서도 억지로 남자의 페니스를 물게 된 %CALLNAME:ARG%의 모습이 나타나고 있었다…….
	ENDIF
	PRINTL
	PRINTFORML 『%NAME:ARG%』경험이 증가했다！
	IF EXP:ARG:57 == 0
		PRINTL 첫매춘：이상경험＋1
		EXP:ARG:50 += 1
	ENDIF
	PRINTL 매춘경험＋1
	EXP:ARG:57 += 1
	IF ABL:ARG:5 >= 3
		PRINTL Ａ경험＋5
		EXP:ARG:1 += 5
	ENDIF
	PRINTL 절정경험＋2
	EXP:ARG:2 += 2
	IF ABL:ARG:5 >= 3
		PRINTL 성교경험＋5
		EXP:ARG:4 += 5
	ENDIF
	PRINTL 정액경험＋5
	EXP:ARG:20 += 5
	PRINTL 펠라경험＋10
	EXP:ARG:22 += 10
	PRINTL 피사경험＋5
	EXP:ARG:63 += 5
	IF TALENT:ARG:음란 || TALENT:P:동화
		PRINTL 恥辱의 구슬＋400
		JUEL:ARG:9 += 400
		PRINTL 공포의 구슬＋400
		JUEL:ARG:11 += 400
		PRINTL 부정의 구슬＋600
		JUEL:ARG:100 += 600
	ENDIF
	IF TALENT:ARG:복종
		PRINTL 恥辱의 구슬＋300
		JUEL:ARG:9 += 300
		PRINTL 공포의 구슬＋500
		JUEL:ARG:11 += 500
		PRINTL 부정의 구슬＋500
		JUEL:ARG:100 += 500
	ENDIF
	IF TALENT:ARG:창녀 || TALENT:P:모판
		PRINTL 恥辱의 구슬＋400
		JUEL:ARG:9 += 400
		PRINTL 공포의 구슬＋400
		JUEL:ARG:11 += 400
		PRINTL 부정의 구슬＋400
		JUEL:ARG:100 += 400
	ENDIF
	IF TALENT:ARG:예속
		PRINTL 恥辱의 구슬＋300
		JUEL:ARG:9 += 300
		PRINTL 공포의 구슬＋500
		JUEL:ARG:11 += 500
		PRINTL 부정의 구슬＋300
		JUEL:ARG:100 += 300
	ENDIF
	PRINTL
	PRINTFORML 『%CALLNAME:MASTER%』경험이 증가했다！
	PRINTL 촬영경험＋5
	EXP:MASTER:62 += 5
	PRINTL 소지금＋5000
	MONEY += 5000
	IF BASE:ARG:0 > 500 && BASE:ARG:0 <= 1000
		BASE:ARG:0 = 500
	ELSEIF BASE:ARG:0 > 1000
		BASE:ARG:0 -= 500
	ENDIF
	PRINTW
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF

				;공원 매춘 국면
IF P == 4
	PRINTFORML %ARG를% 데리고 공원을 걷고 있으면, 그녀의 얼굴에 넋을 잃은 듯 바라보고 있는, 한 남자가 %CALLNAME:MASTER%들을 쳐다보고 있었다.
	PRINTFORMW %마스터호칭은% 여기서 %ARG와% 즐겨보고 싶지 않냐고 말을 걸면, 그는 콧김을 거칠게 하며 거기에 응했다.
	PRINTL
	IF TALENT:ARG:음란 || TALENT:ARG:창녀 || TALENT:P:동화 || TALENT:P:모판
		PRINTFORML %ARG는% 남자를 향해 미소지으면서, 코트의 앞을 열어 보인다.
		PRINT 남자가 들여다 보면, 그의 눈에
		IF TALENT:ARG:빈유 || TALENT:ARG:절벽
			PRINT 다소곳한
		ELSEIF TALENT:ARG:거유 || TALENT:ARG:폭유
			PRINT 풍만한
		ELSE
			PRINT 힘차게 위를 향한
		ENDIF
		PRINTL 가슴의 끝에 있는 딱딱하게 일어선 유두와 향긋한 꿀을 가득 채운 비밀스런 장소가 나타났다.
		PRINTFORML %ARG는% 풀숲 속으로 스스로 비집고 들어가며, 남자를 향해 손짓을 한다.
		PRINTFORMW 남자는 꿀에 이끌리는 나비처럼, 휘청휘청 풀숲 속으로 따라 들어갔다…….
	ELSEIF TALENT:ARG:복종 || TALENT:ARG:예속
		PRINTFORML %ARG는% 그 자리에 망연자실하게 서 있었지만, %CALLNAME:MASTER%에 재촉당해 코트의 앞을 열어 보였다.
		PRINT 남자가 들여다 보면, 그의 눈에
		IF TALENT:ARG:빈유 || TALENT:ARG:절벽
			PRINT 다소곳한
		ELSEIF TALENT:ARG:거유 || TALENT:ARG:폭유
			PRINT 풍만한
		ELSE
			PRINT 탄력있는
		ENDIF
		PRINTL 가슴의 끝에 있는 유두와 아직 공포심이 큰 것인지 그렇게 젖지 않은 비부가 나타났다.
		PRINTFORML %CALLNAME:MASTER%에게 명령받아 %ARG가% 간신히 풀숲 속으로 자취을 감추면, 남자도 그 뒤를 쫓아 간다.
		PRINTFORMW 곧, 아무도 없는 공원에 %CALLNAME:ARG%의 고통과 열락이 서로 뒤섞인 음란한 소리가 울려 퍼지기 시작했다…….
	ENDIF
	PRINTL
	PRINTFORML 『%NAME:ARG%』경험이 증가했다！
	IF EXP:ARG:57 == 0
		PRINTL 첫 매춘：이상경험＋1
		EXP:ARG:50 += 1
	ENDIF
	PRINTL 매춘경험＋1
	EXP:ARG:57 += 1
	PRINTL Ｖ경험＋5
	EXP:ARG:0 += 5
	IF ABL:ARG:5 >= 3
		PRINTL Ａ경험＋5
		EXP:ARG:1 += 5
	ENDIF
	PRINTL 절정경험＋3
	EXP:ARG:2 += 3
	IF ABL:ARG:5 >= 3
		PRINTL 성교경험＋10
		EXP:ARG:4 += 10
	ELSE
		PRINTL 성교경험＋5
		EXP:ARG:4 += 5
	ENDIF
	PRINTL 정액경험＋5
	EXP:ARG:20 += 5
	PRINTL 펠라경험＋5
	EXP:ARG:22 += 5
	IF TALENT:ARG:음란 || TALENT:P:동화
		PRINTL 恥辱의 구슬＋800
		JUEL:ARG:9 += 800
		PRINTL 공포의 구슬＋800
		JUEL:ARG:11 += 800
		PRINTL 부정의 구슬＋1000
		JUEL:ARG:100 += 1000
	ENDIF
	IF TALENT:ARG:복종
		PRINTL 恥辱의 구슬＋800
		JUEL:ARG:9 += 800
		PRINTL 공포의 구슬＋1000
		JUEL:ARG:11 += 1000
		PRINTL 부정의 구슬＋1000
		JUEL:ARG:100 += 1000
	ENDIF
	IF TALENT:ARG:창녀 || TALENT:P:모판
		PRINTL 恥辱의 구슬＋800
		JUEL:ARG:9 += 800
		PRINTL 공포의 구슬＋800
		JUEL:ARG:11 += 800
		PRINTL 부정의 구슬＋600
		JUEL:ARG:100 += 600
	ENDIF
	IF TALENT:ARG:예속
		PRINTL 恥辱의 구슬＋800
		JUEL:ARG:9 += 800
		PRINTL 공포의 구슬＋1000
		JUEL:ARG:11 += 1000
		PRINTL 부정의 구슬＋500
		JUEL:ARG:100 += 500
	ENDIF
	PRINTL 소지금＋20000
	MONEY += 20000
	IF BASE:ARG:0 > 500 && BASE:ARG:0 <= 1300
		BASE:ARG:0 = 500
	ELSEIF BASE:ARG:0 > 1300
		BASE:ARG:0 -= 800
	ENDIF
	PRINTW
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF

				;호텔 윤간 매춘 국면
IF P == 5
	PRINTFORML %마스터호칭과% %ARG가% 함께 역 앞을 걷고 있으면, 한가한 것 같은 젊은 남자들이 편의점의 앞에 모여 있었다.
	PRINTFORML 그들 중의 한명이 %CALLNAME:ARG%에게 헌팅을 걸어 왔다.
	PRINTFORML %마스터호칭은%, 5장 내면 마음대로 하게 해 주겠다고 그 남자에게 이야기를 걸었다.
	PRINTW 남자들은 잠깐 서로의 얼굴을 마주 봤지만, 문제 없다고 생각해 그 제안을 받아 왔다.
	PRINTL
	IF TALENT:ARG:창녀 || TALENT:P:모판
		PRINTFORML %ARG는% 그 이야기가 결정되면, 요염한 미소를 남기며, 남자들에게 둘러싸인 채로 호텔가로 사라져 갔다.
		PRINTFORMW 분명히 %CALLNAME:ARG%도 남자들도, 즐거운 시간을 보내고 올 수 있을 것이다…….
	ELSEIF TALENT:ARG:예속
		PRINTFORML %ARG는% 한 남자에게 어깨를 안기면, 체념의 표정으로 그들과 호텔가로 자취을 감추었다.
		PRINTFORMW %CALLNAME:ARG%에 대한 교육은 잘 되어 있다. 그들을 실망 시키지는 않을 것이다…….
	ENDIF
	PRINTL
	PRINTFORML 『%NAME:ARG%』경험이 증가했다！
	IF EXP:ARG:57 == 0
		PRINTL 첫매춘：이상경험＋1
		EXP:ARG:50 += 1
	ENDIF
	PRINTL 매춘경험＋1
	EXP:ARG:57 += 1
	PRINTL Ｖ경험＋25
	EXP:ARG:0 += 25
	IF ABL:ARG:5 >= 3
		PRINTL Ａ경험＋10
		EXP:ARG:1 += 10
	ENDIF
	PRINTL 절정경험＋20
	EXP:ARG:2 += 20
	IF ABL:ARG:5 >= 3
		PRINTL 성교경험＋35
		EXP:ARG:4 += 35
	ELSE
		PRINTL 성교경험＋25
		EXP:ARG:4 += 25
	ENDIF
	PRINTL 질사경험＋25
	EXP:ARG:5 += 25
	PRINTL 정액경험＋40
	EXP:ARG:20 += 40
	PRINTL 펠라경험＋10
	EXP:ARG:22 += 10
	IF EXP:ARG:42 == 0
		PRINTL 첫 윤간：이상경험＋1
		EXP:ARG:50 += 1
	ENDIF
	PRINTFORML 피윤간경험＋1
	EXP:ARG:42 += A
	IF TALENT:ARG:창녀|| TALENT:P:모판
		PRINTL 봉사쾌락경험＋20
		EXP:ARG:21 += 20
		PRINTL 고통쾌락경험＋20
		EXP:ARG:30 += 20
		PRINTL 恥辱의 구슬＋500
		JUEL:ARG:9 += 500
		PRINTL 공포의 구슬＋500
		JUEL:ARG:11 += 500
		PRINTL 부정의 구슬＋200
		JUEL:ARG:100 += 200
	ENDIF
	IF TALENT:ARG:예속
		PRINTL 봉사쾌락경험＋10
		EXP:ARG:21 += 10
		PRINTL 고통쾌락경험＋30
		EXP:ARG:30 += 30
		PRINTL 恥辱의 구슬＋400
		JUEL:ARG:9 += 400
		PRINTL 공포의 구슬＋800
		JUEL:ARG:11 += 800
		PRINTL 부정의 구슬＋300
		JUEL:ARG:100 += 300
	ENDIF
	PRINTL 소지금＋50000
	MONEY += 50000
	BASE:ARG:0 = 500
	PRINTW
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF

				;공원 윤간 매춘 국면
IF P == 6
	PRINTFORML %마스터호칭과% %ARG는% 첫 참배에 의한 피로를 느끼며 약간 큰 듯한 공원의 벤치에 앉아 잠깐 쉬고 있었다.
	PRINTL 거기에 껄렁껄렁한 젊은 남자들이 몇 사람, 접근해 온다.
	PRINTFORML %ARG가% 조금 움찔했지만, 한 남자가 %CALLNAME:ARG%의 코트 속을 타이밍 좋게 훔쳐보고 있었다.
	PRINTL 노출광이다, 라며 떠들썩해지는 남자들의 리더라고 생각되는 한명에게, 돈을 내면 마음대로 해도 된다고 전했다.
	PRINTW 남자들은 한순간 입을 다물었지만, 그 눈에는 호기심과 욕망이 소용돌이치고 있는 것을 알 수 있다.
	PRINTL
	IF TALENT:ARG:창녀 || TALENT:P:모판
		PRINTFORML %ARG는% 남자의 사타구니를 자극하는 것 같은 음란한 소리로 유혹한다.
		PRINTFORML 남자들은 유혹받은 대로 %CALLNAME:ARG% 앞으로 다가왔다.
		PRINTFORML 추운 날씨에도 아랑곳하지 않고, %ARG는% 코트를 벗어 던져 풀숲으로 들어간다.
		PRINTW 그만큼 달아오르고 있으니까, 추위 따위는 느끼지 않을 것이다.
		PRINTL
		PRINTFORML %ARG는% 코트를 등에 깔고 풀숲에 드러누워, 애액으로 가득 채워져 있는 보지를 스스로 남자들에게 벌려 보였다.
		PRINTFORML 남자들은 참지 못하고, 일제히 %CALLNAME:ARG%에게 모여들었다.
		PRINTFORMW %마스터호칭은% 남자들이 가지고 있던 디지털 카메라를 빌려, 전개되는 성의 광연을 빠짐없이 촬영하기 시작했다…….
	ELSEIF TALENT:ARG:예속
		PRINTFORML %ARG는% 겁먹은 것처럼 벤치에 계속 앉아 있지만, 그것이 반대로 남자들의 가학심에 불을 붙인 것 같다.
		PRINTFORML 남자들은 %CALLNAME:ARG%의 팔을 잡고, 풀숲으로 끌어들여, 코트를 풀어헤친다.
		PRINTFORMW %CALLNAME:ARG%의 몸은 추위와 공포로 떨리고 있어 남자를 받아들일 준비 따위는 되어 있지 않았다.
		PRINTL
		PRINTFORML 하지만, 남자들은 그런 %CALLNAME:ARG%의 상태 따위는 신경도 쓰지 않고, 그 보지에, 애널에, 입에, 자신의 자지를 찔러 넣기 시작했다.
		PRINTFORML 입에 자지를 강제로 물려져, 비명조차 지르지 못하는 %ARG는% %CALLNAME:MASTER%에게 시선으로 도움을 청하지만, %마스터호칭은% 남자들의 디지털 카메라를 빌려, 그들의 치태를 사진에 담기 시작했다.
		PRINTFORMW 절망한 %CALLNAME:ARG%의 눈동자로부터 빛이 사라질 때까지, 많은 시간은 필요하지 않았다…….
	ENDIF
	PRINTL
	PRINTFORML 『%NAME:ARG%』경험이 증가했다！
	IF EXP:ARG:57 == 0
		PRINTL 첫매춘：이상경험＋1
		EXP:ARG:50 += 1
	ENDIF
	PRINTL 매춘경험＋1
	EXP:ARG:57 += 1
	PRINTL Ｖ경험＋25
	EXP:ARG:0 += 25
	PRINTL Ａ경험＋10
	EXP:ARG:1 += 10
	PRINTL 절정경험＋20
	EXP:ARG:2 += 20
	PRINTL 성교경험＋35
	EXP:ARG:4 += 35
	PRINTL 질사경험＋25
	EXP:ARG:5 += 25
	PRINTL 정액경험＋40
	EXP:ARG:20 += 40
	PRINTL 펠라경험＋10
	EXP:ARG:22 += 10
	IF EXP:ARG:42 == 0
		PRINTL 첫 윤간：이상경험＋1
		EXP:ARG:50 += 1
	ENDIF
	PRINTFORML 피윤간경험＋1
	EXP:ARG:42 += A

	PRINTL 피사경험＋5
	EXP:ARG:63 += 5
	IF TALENT:ARG:창녀 || TALENT:P:모판
		PRINTL 봉사쾌락경험＋20
		EXP:ARG:21 += 20
		PRINTL 고통쾌락경험＋20
		EXP:ARG:30 += 20
		PRINTL 恥辱의 구슬＋750
		JUEL:ARG:9 += 750
		PRINTL 공포의 구슬＋1000
		JUEL:ARG:11 += 1000
		PRINTL 부정의 구슬＋300
		JUEL:ARG:100 += 300
	ENDIF
	IF TALENT:ARG:예속
		PRINTL 봉사쾌락경험＋10
		EXP:ARG:21 += 10
		PRINTL 고통쾌락경험＋30
		EXP:ARG:30 += 30
		PRINTL 恥辱의 구슬＋1000
		JUEL:ARG:9 += 1000
		PRINTL 공포의 구슬＋2000
		JUEL:ARG:11 += 2000
		PRINTL 부정의 구슬＋600
		JUEL:ARG:100 += 600
	ENDIF
	PRINTL
	PRINTFORML 『%CALLNAME:MASTER%』경험이 증가했다！
	PRINTL 촬영경험＋5
	EXP:MASTER:62 += 5
	PRINTL 소지금＋50000
	MONEY += 50000
	BASE:ARG:0 = 500
	PRINTW
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF

				;레스토랑 국면
IF P == 7
	PRINTFORML %마스터호칭은% %ARG와% 이야기한 결과, 철야로 영업하는 패밀리 레스토랑에 가기로 했다.
	SIF P:21 == 1
		PRINTFORML 과연 레스토랑 안에서 코트를 벗지 않는 것은 위화감이 너무 심하므로, 한 번 방으로 돌아가, %ARG를% 평상복으로 갈아입게 한 후에 레스토랑으로 향했다.

	PRINTFORM 레스토랑은 손님들로 북적이고 있었지만, 어떻게든 칸막이석을 확보하고, 웨이트리스에게, 배가 고프지 않은 %마스터호칭은% 커피를, %CALLNAME:ARG%
	IF TALENT:ARG:남자 != 1
		IF TALENT:ARG:청초 || TALENT:ARG:치유계 || TALENT:ARG:영애 || TALENT:ARG:프린세스
			PRINTFORMW %조사만처리(CALLNAME:ARG,"는")% 홍차를 주문했다.
		ELSEIF TALENT:ARG:쾌활 || TALENT:ARG:보이쉬 || TALENT:ARG:기가셈
			PRINTFORMW %조사만처리(CALLNAME:ARG,"는")% 파스타를 주문했다.
		ELSEIF TALENT:ARG:색기 || TALENT:ARG:무기력
			PRINTFORMW %조사만처리(CALLNAME:ARG,"는")% 오렌지 쥬스를 주문했다.
		ELSEIF TALENT:ARG:천연
			PRINTFORMW %조사만처리(CALLNAME:ARG,"는")% 아무것도 주문하지 않았다.
		ELSEIF TALENT:ARG:어린애같음
			PRINTFORMW %조사만처리(CALLNAME:ARG,"는")% 오믈렛을 주문했다.
		ELSEIF TALENT:ARG:쿨함
			PRINTW 도 같은 것을 주문했다.
		ELSE
			PRINTFORMW %조사만처리(CALLNAME:ARG,"는")% 파르페를 주문했다.
		ENDIF
	ELSE
		PRINTFORMW %조사만처리(CALLNAME:ARG,"는")% 햄버거 라이스를 주문했다.
	ENDIF
	PRINTL
	IF TALENT:ARG:교제 && TALENT:ARG:남자 != 1
		PRINTFORML 바로 정면에 앉은 %ARG와% 즐거운 대화가 계속된다.
		PRINTL 공부의 일, 클럽의 일, 친구의 일…….
		PRINTW 이쪽도 지지 않으려고 다양한 화제를 제공해, 눈치채면 밤이 밝아오고 있는 것이었다…….
	ELSEIF (TALENT:ARG:음란 || TALENT:ARG:창녀 || TALENT:P:동화 || TALENT:P:모판) && TALENT:ARG:남자 != 1
		PRINTFORML %ARG는% %CALLNAME:MASTER%의 옆에 앉아, 다른 사람에게 보여지지 않게 주의하면서 %CALLNAME:MASTER%의 사타구니를 만지작거리고 있다.
		PRINTFORM %CALLNAME:MASTER%도 질세라 %CALLNAME:ARG%의 스커트 속에 손을 넣거나 물건을 집는 척을 하면서
		SIF TALENT:ARG:빈유 || TALENT:ARG:절벽
			PRINT 다소곳한
		SIF TALENT:ARG:거유 || TALENT:ARG:폭유
			PRINT 풍만한
		PRINTFORML %CALLNAME:ARG%의 가슴에 닿거나 하고 있다.
		PRINTL 밤도 깊어지고 있지만 정월이기 때문에 가족 동반도 많아, 대담한 행위는 할 수 없다.
		PRINTW 하지만, 그 나름대로 즐거운 시간을 보냈던 것이었다…….
	ELSEIF TALENT:ARG:예속 && TALENT:ARG:남자 != 1
		PRINTFORML 4인용의 칸막이석에 있음에도 불구하고, %ARG는% %CALLNAME:MASTER%의 옆에 앉아, 마치 연인처럼 신체를 기대 왔다.
		PRINTFORML 왜 그러냐고 물으면, 주인님의 곁에서 시중들 수 있어, 행복합니다, 라고 돌려주었다.
		PRINTFORML 그 애타는 모습에 무심코 머리를 어루만져 준다. 그러자 한순간 몸을 움츠렸지만, 곧바로 황홀한 표정으로 넋을 잃고 행복하게 미소지었다.
		PRINTFORMW 그대로 시시한 이야기를 하면서, 둘이서 저녁식사를 취했다.
	ELSEIF TALENT:ARG:복종 && TALENT:ARG:남자 != 1
		PRINTFORML 4인용의 칸막이석에 있음에도 불구하고, %ARG는% %마스터호칭과%는 대각선상에 앉아, 얼굴을 푹 숙이고 있다.
		PRINTFORML 두 사람의 사이에 대화는 없지만, %마스터호칭은% 그 침묵 자체가 %CALLNAME:ARG%의 수치심과 공포심을 부추기고 있다는 것을 잘 알고 있었다.
		PRINTFORML %마스터호칭과% 함께 있는 것을 다른 사람에게 알려지는 것이 싫은지, 다른 손님이 우연히 옆을 지나갈 때마다 얼굴을 숙여 버린다.
		PRINTFORMW %마스터호칭은% 빙긋 웃으면서, 밤이 끝날 때까지 %CALLNAME:ARG%의 모습을 계속 가만히 응시하고 있는 것이었다…….
	ELSEIF TALENT:ARG:남자 != 1
		PRINTFORML %ARG는% 재미없다는 듯이 시선을 창 밖에 보내고 있다.
		PRINTFORML %마스터호칭으로%부터는 특별히 분위기를 살리는 화제가 나올 이유도 없고, 그냥 의미없이 시간이 지나 간다.
		PRINTL 용무가 있으면 돌아가도 괜찮다고 말해 주었지만, 그런 일을 하면, 나중에 어떤 처사가 기다리고 있을지 불안할 것이다.
		PRINTFORML %마스터호칭은% 몇 잔째인가의 커피를 다 마셔, 웨이트리스에게 추가 주문을 부탁한다.
		PRINTW 그런 상태가, 밤이 끝날 때까지 계속된 것이었다…….
	ELSEIF TALENT:ARG:남자 == 1
		PRINTFORML %마스터호칭과% %ARG는%, 묵묵히 나온 요리를 먹고 있었다.
		PRINTFORMW 예상 외로 %ARG는% 대식가인것 같다…….
	ENDIF
	PRINTL
	PRINTFORML 『%NAME:ARG%』경험이 증가했다！
	IF TALENT:ARG:교제
		IF TALENT:ARG:연모
			PRINTL 애정경험＋50
			EXP:ARG:23 += 50
		ELSEIF TALENT:ARG:친애
			PRINTL 애정경험＋75
			EXP:ARG:23 += 75
		ELSE
			PRINTL 애정경험＋25
			EXP:ARG:23 += 25
		ENDIF
	ENDIF
	IF TALENT:ARG:강간 || TALENT:ARG:협박
		IF TALENT:ARG:음란 || TALENT:P:동화
			PRINTL 온순의 구슬＋500
			JUEL:ARG:5 += 500
		ELSEIF TALENT:ARG:창녀 || TALENT:P:모판
			PRINTL 온순의 구슬＋750
			JUEL:ARG:5 += 750
		ELSEIF TALENT:ARG:복종
			PRINTL 굴복의 구슬＋500
			JUEL:ARG:7 += 500
		ELSEIF TALENT:ARG:예속
			PRINTL 굴복의 구슬＋750
			JUEL:ARG:7 += 750
		ELSE
			PRINTL 온순의 구슬＋200
			JUEL:ARG:5 += 200
			PRINTL 굴복의 구슬＋200
			JUEL:ARG:7 += 200
		ENDIF
	ENDIF
	PRINTW
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF

				;カラオケフェーズ
IF P == 8
	PRINTFORML %마스터호칭은% %ARG와% 이야기한 결과, 노래방에 가기로 했다.
	PRINTFORML 종일 축제라도 적당히 비어 있는 24시간 영업하는 가게를 찾아내, %ARG와% 둘이서 함께 입점했다.
	PRINTL 2인용의 방을 이용하도록 점원으로부터 지시받아 지정된 방으로 향한다.
	PRINTW 도중, 주변의 모습을 둘러 보았지만, 좌우의 방 세개 정도는 아무도 사용하지 않는 것 같다.
	PRINTL
	IF TALENT:ARG:교제 && TALENT:ARG:남자 != 1
		PRINTFORML 작은 방의 소파에 엉덩이를 붙인 %ARG는%, 간신히 제정신으로 돌아온 것 같다.
		PRINTFORMW 이쪽도, 오랜만의 노래방이다. 오늘은 천천히 즐기기로 하자.
		PRINTL
		PRINTFORM %마스터호칭이% %CALLNAME:ARG%에게 마이크를 넘기면, 그녀는
		SIF TALENT:ARG:청초
			PRINTL 순애를 강조한 발라드를 애절하게 노래했다.
		SIF TALENT:ARG:쾌활
			PRINTL 최근 유행하고 있는 팝송을 힘차게 불렀다.
		SIF TALENT:ARG:색기
			PRINTL 비련을 소재로 한 세레나데를 그리워하는 마음을 가득 담아 노래했다.
		SIF TALENT:ARG:보이쉬
			PRINTL 남성아이돌의 흉내를 내면서 팝송을 불렀다.
		SIF TALENT:ARG:천연
			PRINTL 합창곡을 음정을 벗어나지 않게 노래했다.
		SIF TALENT:ARG:어린애같음
			PRINTL 예전에 유행한 마법소녀 애니메이션의 주제가를 불렀다.
		SIF TALENT:ARG:치유계
			PRINTL 마음에 스며드는 것 같은 노래를 불렀다.
		SIF TALENT:ARG:쿨함
			PRINTL 영어 노래를 유창하게 불렀다.
		SIF TALENT:ARG:무기력
			PRINTFORML %마스터호칭이% 좋아하는 노래를 찾아 그것을 불렀다.
		SIF TALENT:ARG:기가셈
			PRINTL 여자는 강하다는 의미가 강한 팝송을 불렀다.
		IF ABL:ARG:14 < 3
			PRINTL 그 노래는 빈말로도 잘 부른다고는 말할 수 없었지만, 그녀는 충분히 즐기고 있는 것 같다.
		ELSEIF ABL:ARG:14 == 3 || ABL:ARG:14 == 4
			PRINTL 때때로 음정이 빗나가는 일은 있지만, 충분히 잘 부르는 노래였다.
		ELSEIF ABL:ARG:14 == 5 || ABL:ARG:14 == 6 || ABL:ARG:14 == 7
			PRINTFORML %마스터호칭이% 놀랄 정도의 노래이며, 그 깜짝 놀란 표정을 본 %ARG는% 작게 미소지었다.
		ELSEIF ABL:ARG:14 == 8
			PRINTL 충분히 프로로서 해 나갈 수 있을 것 같을 정도의 가성이었다.
		ELSEIF ABL:ARG:14 == 9 || ABL:ARG:14 == 10
			PRINTFORML 천사의 목소리라고 해도 과언이 아닐 정도의 미성이어서, %마스터호칭은% 감동의 눈물을 흘릴 것 같게 되었다.
		ENDIF
		PRINTW 두 사람의 노랫소리는 초봄의 햇살이 주위를 밝게 할 때까지, 쭉 계속된 것이었다…….
	ELSEIF (TALENT:ARG:음란 || TALENT:ARG:창녀 || TALENT:P:동화 || TALENT:P:모판) && TALENT:ARG:남자 != 1
		IF P:21 == 1
			PRINTFORML %ARG는% 방으로 들어가자마자, 코트를 벗어던지고 전라의 모습으로 소파에 엎드렸다.
			PRINTFORMW 매끈한 엉덩이를 살랑살랑 흔들며 그 매혹적인 지체를 과시하는 것으로, %CALLNAME:MASTER%의 기분을 끌어 그대로 행위에 이를 생각인 것 같다.
		ELSE
			PRINTFORML %ARG는% 방의 문이 확실히 닫힌 것을 확인하고, 먼저 소파에 앉은 %CALLNAME:MASTER%에게 딱 달라붙었다.
			PRINTFORMW %CALLNAME:MASTER%의 귓가에 달콤하게 속삭이거나 일부러 노골적으로 부풀어 오른 가슴을 밀착하거나 하면서 그럴 기분이 들도록 대해 온다.
		ENDIF
		PRINTL
		PRINTL 하지만, 가끔씩은 안아주지 않는 것으로 욕구불만을 더해 조교의 효과를 올리는 일도 필요할 것이다.
		PRINTFORMW 작게 헐떡이면서 끊임없이 유혹을 걸어오는 %ARG를% 완전히 무시해, 오랜만의 노래방을 즐기는 %마스터호칭이었%다…….
	ELSEIF TALENT:ARG:복종 || TALENT:ARG:예속 && TALENT:ARG:남자 != 1
		IF P:21 == 1
			PRINTFORML 작은 방에 간신히 도착한 %ARG는%, 겨우 지금까지의 긴장으로부터 해방되었는지, 소파에 털썩 주저앉았다.
			PRINTL 그 때, 유방과 비부가 한순간 눈에 들어왔지만, 그것은 굳이 신경쓰지 말자.
			PRINTFORMW 여기서 이대로 행위에 이르러 버리면, 그녀의 정신이 완전히 망가져 버릴 우려가 있다.
		ELSE
			PRINTFORML %ARG는% 작은 방 앞에 서서 움직이지 못하고 있다.
			PRINTFORML 아무래도, 밀폐된 공간에 %마스터호칭과% 단 둘이 되면, 어떤 행위를 당하게 될지 불안해진 것 같다.
			PRINTL 뭉실뭉실 가학심이 솟아 오르지만, 오늘은 행위는 둘째다.
			PRINTFORMW 매회 하드한 조교가 계속되다가는, %CALLNAME:ARG%의 마음이 완전히 망가져 버릴 것이다.
		ENDIF
		PRINTL
		PRINTFORML 오늘은 아무것도 하지 않겠다고 선언하고, %CALLNAME:ARG%에게 마이크를 갖게했다.
		PRINTFORMW %ARG는% 반신반의 하면서도, 노래를 열창하는 %CALLNAME:MASTER%의 모습을 계속 쳐다보는 것이었다…….
	ELSEIF TALENT:ARG:남자 != 1
		PRINTFORML %ARG는% 작은 방에 들어오자마자, 네비게이션을 끌어안고 거기에 시선을 떨어뜨린다.
		PRINTL 아무래도, 이쪽의 말에는 귀를 기울이지 않을 생각인 것 같다.
		PRINTFORMW %마스터호칭은% 한숨을 내쉬며, 오늘 밤은 노래방만으로, 음란한 행위는 하지 않겠다고 선언했다.
		PRINTL
		PRINTFORML %ARG는% 몇 번이나 거듭해 다짐을 받은 뒤, 간신히 네비게이션을 %CALLNAME:MASTER%에 돌려주어 온다.
		PRINTW 그 선언대로, 노래에 몰두하는 두 사람의 모습이 거기에 있었다…….
	ELSEIF TALENT:ARG:남자 == 1
		PRINTFORML %마스터호칭과% %ARG는% 둘이서, 지정된 작은 방에 들어왔다.
		PRINTL 두 사람은, 노래하고 있던가 네비게이션을 손대고 있던가의 어느 쪽인가가 되어, 회화다운 회화는 진행되지 않는다.
		PRINTFORMW 올해의 정월은, 그런 아침을 맞이한 것이었다…….
	ENDIF
	PRINTL
	PRINTFORML 『%NAME:ARG%』경험이 증가했다！
	IF TALENT:ARG:교제
		IF TALENT:ARG:연모
			PRINTL 애정경험＋40
			EXP:ARG:23 += 40
			PRINTL 가창경험＋5
			EXP:ARG:64 += 5
		ELSEIF TALENT:ARG:친애
			PRINTL 애정경험＋60
			EXP:ARG:23 += 60
			PRINTL 가창경험＋5
			EXP:ARG:64 += 5
		ELSE
			PRINTL 애정경험＋20
			EXP:ARG:23 += 20
			PRINTL 가창경험＋5
			EXP:ARG:64 += 5
		ENDIF
	ENDIF
	IF TALENT:ARG:강간 || TALENT:ARG:협박
		IF TALENT:ARG:음란
			PRINTL 가창경험＋5
			EXP:ARG:64 += 5
			PRINTL 온순의 구슬＋400
			JUEL:ARG:5 += 400
		ELSEIF TALENT:ARG:창녀
			PRINTL 가창경험＋5
			EXP:ARG:64 += 5
			PRINTL 온순의 구슬＋600
			JUEL:ARG:5 += 600
		ELSEIF TALENT:ARG:복종
			PRINTL 가창경험＋5
			EXP:ARG:64 += 5
			PRINTL 굴복의 구슬＋400
			JUEL:ARG:7 += 400
		ELSEIF TALENT:ARG:예속
			PRINTL 가창경험＋5
			EXP:ARG:64 += 5
			PRINTL 굴복의 구슬＋600
			JUEL:ARG:7 += 600
		ELSE
			PRINTL 가창경험＋5
			EXP:ARG:64 += 5
			PRINTL 온순의 구슬＋150
			JUEL:ARG:5 += 150
			PRINTL 굴복의 구슬＋150
			JUEL:ARG:7 += 150
		ENDIF
	ENDIF
	PRINTFORML 『%CALLNAME:MASTER%』경험이 증가했다！
	PRINTL 가창경험＋5
	EXP:MASTER:64 += 5
	PRINTW
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF

				;볼링 국면
IF P == 9
	PRINTFORML %마스터호칭은% %ARG와% 이야기한 결과, 볼링장에 가기로 했다.
	IF P:21 == 1
		PRINTFORML 과연 거의 전라상태인 %ARG를% 그대로 데리고 갈 수는 없다.
		PRINTL 한 번 자기 방으로 돌아가, 갈아입게 하고 나서 볼링장으로 향했다
	ENDIF
	PRINTL
	PRINTL 과연 정월답게, 볼링장은 비교적 비어 있었다.
	PRINTW 구두를 빌려 지정된 레인에 짐을 두고, 서로 사용하기 쉬울 것 같은 공을 찾기로 했다.
	PRINTL
	IF TALENT:ARG:교제 && TALENT:ARG:남자 != 1
		PRINTFORML %ARG는% 심사숙고한 끝에, 제일 가벼운 온스의 공을 선택해 왔다.
		PRINTFORML 좀처럼 잘 할 수 없는 %CALLNAME:ARG%에게, %마스터호칭은% 손을 잡고 던지는 방법을 가르쳐 준다.
		PRINTL 배운대로 던져 본 그녀의 일투는, 보기좋게 모든 핀을 쓰러트리고 있었다.
		PRINTFORML 활짝 웃은 그녀는, %마스터호칭과% 하이 터치를 주고 받는다.
		PRINTW 이렇게 해, 한해의 첫날이 지나가 버리는 것이었다…….
	ELSEIF TALENT:ARG:음란 || TALENT:ARG:창녀 && TALENT:ARG:남자 != 1
		PRINTFORML %ARG가% 재빨리 사용할 공을 선택한 것과 달리, %마스터호칭은% 손가락의 위치가 맞지 않는 것이 많아, 공 찾기에 시간이 걸리고 있었다.
		PRINTFORMW 꽤나 시간이 걸려, 간신히 레인으로 돌아온 %CALLNAME:MASTER%의 눈에, %CALLNAME:ARG%의 모습은 이상해 보였다.
		PRINTL
		PRINTL 얼핏, 앞으로 구부정한 자세로 자리에 앉아 있을 뿐으로 보이지만, 부자연스럽게 몸이 떨리고 있거나 한다.
		PRINTL 자세히 보면, 팬티 속에 손을 넣고 자신을 위로하고 있는 것 같다.
		PRINTW 아무래도 할 일이 없어 심심해진 순간에 자위를 시작해 버린 것 같다.
		PRINTL
		PRINTFORML %마스터호칭은% 한숨을 쉬면서, 이 장소에서는 그런 기분이 될 수 없다는 것을 그녀에게 전한다.
		PRINTFORMW %ARG는% 불만이 가득한 표정을 띄우면서도, 마지못해 목을 세로로 끄덕이며, 화장실에서 처리를 하고 오겠다고 말을 남기고 한 번 자리에서 일어났다.
		PRINTFORMW 결국, 그녀가 돌아오기까지는 상당한 시간이 걸려 버려, 볼링장에서 나왔을 때는, 완전히 밝아지고 있던 것이었다…….
	ELSEIF TALENT:ARG:동화 || TALENT:ARG:모판 && TALENT:ARG:남자 != 1
		PRINTFORML %마스터호칭이% 얼른 공을 골랐던 것에 비해、%ARG는% 상당히 시간이 걸리고 있었다。
		PRINTFORML 원인은 틀림없이 옷 밑에서 꿈틀거리고 있는 촉수 때문이리라。
		PRINTFORMW 힘들겠다고는 생각하지만 이 자리에서 해제할 수도 없다････。
		PRINTL
		PRINTFORML 그 뒤로 몇 게임을 해봤는데、%ARG는% 쾌락에 몸을 가누지 못해서、참혹한 점수를 얻었다。
		PRINTFORML 너무 낮은 점수면 사람들이 수상하게 봐서 들킬지도。
		PRINTFORMW 그렇게 속삭이면 %ARG는% 그것만으로 볼을 물들이며 절정에 달해、몸을 떨었다････。
	ELSEIF TALENT:ARG:복종 || TALENT:ARG:예속 && TALENT:ARG:남자 != 1
		PRINTFORML %CALLNAME:ARG%의 스트레스나 울분을 풀어주기 위해, 볼링장에 온 것이지만…….
		PRINTFORML 호쾌한 폼으로 공을 처넣는 %CALLNAME:ARG%의 모습에, %마스터호칭은% 조금 오싹한 기분이 되었다.
		PRINTL 상당히 스트레스를 쌓아두게 해 버리고 있었을 것이다.
		PRINTW 조교 자체는 느슨하게 할 생각은 없지만, 그 이외의 시간은 약간 상냥하게 대하는 편이 좋은 것 같다…….
	ELSEIF TALENT:ARG:남자 != 1
		PRINTFORML 미리, 오늘은 평범한 친구로서 대한다고 말했기 때문에, %CALLNAME:ARG%의 표정은 밝다.
		PRINTL 웃거나 찌푸린 얼굴이 되어 보거나……. 조교중에는 볼 수 없는 표정을 보여 준다.
		PRINTL 자신이 처한 상황이 다르면, 좀 더 다른 관계가 되고 있었을지도 모르지만, 그것도 이제 의미없는 가정이다…….
		PRINTW 일단 오늘 밤은, 친구로서 교제해 가자…….
	ELSEIF TALENT:ARG:남자 == 1
		PRINTFORML %마스터호칭과% %ARG는%, 손님이 적은 것을 핑계로, 1인 1레인을 사용해 플레이를 시작했다.
		PRINTFORML %ARG는% 상상 이상으로 파워 플레이어같아, 제일 무거운 온스의 공을 힘껏 처넣고 있다.
		PRINTFORMW 실력적으로는 대등에 가까운, 최고조에 달한 플레이에 두 사람은 열중했다…….
	ENDIF
	PRINTL
	PRINTFORML 『%NAME:ARG%』경험이 증가했다！
	IF TALENT:ARG:교제
		IF TALENT:ARG:연모
			PRINTL 애정경험＋20
			EXP:ARG:23 += 20
		ELSEIF TALENT:ARG:친애
			PRINTL 애정경험＋30
			EXP:ARG:23 += 30
		ELSE
			PRINTL 애정경험＋10
			EXP:ARG:23 += 10
		ENDIF
	ENDIF
	IF TALENT:ARG:강간 || TALENT:ARG:협박
		IF TALENT:ARG:음란 || TALENT:P:동화
			PRINTL 자위경험＋2
			EXP:ARG:10 += 2
			PRINTL 온순의 구슬＋300
			JUEL:ARG:5 += 300
		ELSEIF TALENT:ARG:창녀 || TALENT:P:모판
			PRINTL 자위경험＋2
			EXP:ARG:10 += 2
			PRINTL 온순의 구슬＋500
			JUEL:ARG:5 += 500
		ELSEIF TALENT:ARG:복종
			IF CFLAG:ARG:10 >= 5
				PRINTL 스트레스－5
				CFLAG:ARG:10 -= 5
			ENDIF
			PRINTL 굴복의 구슬＋300
			JUEL:ARG:7 += 300
		ELSEIF TALENT:ARG:예속
			IF CFLAG:ARG:10 >= 5
				PRINTL 스트레스－5
				CFLAG:ARG:10 -= 5
			ENDIF
			PRINTL 굴복의 구슬＋500
			JUEL:ARG:7 += 500
		ELSE
			PRINTL 온순의 구슬＋100
			JUEL:ARG:5 += 100
			PRINTL 굴복의 구슬＋100
			JUEL:ARG:7 += 100
		ENDIF
	ENDIF
	PRINTW
	FLAG:2000 = 0
	CALL HATSU_LAST_PROCESS
	RETURN 1
ENDIF

;----------終了時処理
@HATSU_LAST_PROCESS
REPEAT CHARANUM
	CFLAG:COUNT:199 = 0	;使用した全登録キャラのCFLAG:199をクリア
REND


code:
@HOLIDAY_DATE
;장기 휴일이라든지라고, 매일 나와 짜증나다고 생각하므로 일요일만
PRINTFORML 오늘은 일요일이다.
PRINTFORML
PRINTFORML %CALLNAME:MASTER%에게 데이트 신청의 메일이 들어와 있다.
PRINTFORML （데이트에는 $8000 듭니다）
$HOLIDAY_DATE_LOOP0
PRINTL 누군가와 데이트 합니까?
PRINTL  [0] - 네($8000소비)
PRINTL  [1] - 아니오

INPUT
IF RESULT == 1
	RETURN 1
ELSEIF RESULT == 0
	PRINTL
ELSE
	GOTO HOLIDAY_DATE_LOOP0
ENDIF

P = 15
CALL DISPLAY_COMMON , 16
SIF RESULT == 999
	RETURN 1

TARGET = RESULT
;조수였던 경우, 조수로부터 제외한다
SIF ASSI == TARGET
	ASSI = -1

PRINTFORMW %타겟호칭과% 휴일을 보냅니다.
MONEY -= 8000
CUSTOMDRAWLINE ‥

SELECTCASE RAND:2
	CASE 0
		SELECTCASE RAND:2
			CASE 0
				;동아리라든지 학생회등으로 예정이 무너져, 제복으로 데이트 한다든가 좋지요.
				IF CFLAG:MASTER:1001 == CFLAG:TARGET:1001 && CFLAG:MASTER:1002 == CFLAG:TARGET:1002 && CFLAG:MASTER:1002 != 0
					IF TALENT:TARGET:체육부 || TALENT:TARGET:문화부 || TALENT:TARGET:격투기부
						PRINTFORML 오늘은 %타겟호칭과% 데이트 할 예정이었지만, 갑자기 동아리의 용무로 모이게 되었다.
					ELSEIF TALENT:TARGET:위원회
						PRINTFORML 오늘은 %타겟호칭과% 데이트 할 예정이었지만, 갑자기 학생회의 용무로 모이게 되었다.
					ELSE
						PRINTFORML 오늘은 %타겟호칭과% 데이트 할 예정이었지만, 갑자기 학교의 용무로 모이게 되었다.
					ENDIF
					PRINTFORML %마스터호칭과%의 데이트가 무산되어 버려, 불만스러운 듯한 %CALLNAME:TARGET%에게 끝나면 이대로 데이트에 가자고 권한다.
					PRINTFORML 용무가 끝난 후, %마스터호칭과% %타겟호칭은% 제복차림인 채 데이트 하기로 했다.
				ELSE
					PRINT 약속 시간에
					SELECTCASE RAND:4
						CASE 0
							PRINT 역 앞
						CASE 1
							PRINT 버스정류장
						CASE 2
							PRINT 교문 앞
						CASEELSE
							PRINT 약속한 장소
					ENDSELECT
					PRINTL 에서
					PRINTFORML %마스터호칭은% %타겟호칭과% 만났다.
					IF TALENT:TARGET:연예인
						PRINTFORML %타겟호칭은% 연예인이라고 눈치채지 못하도록 변장하고 있다.
					ELSEIF TALENT:TARGET:남편있음
						PRINTFORML %타겟호칭은% 아는 사람을 만나지 않도록 주위를 신경쓰고 있다.
					ELSEIF TALENT:TARGET:교사
						PRINTFORML %타겟호칭은% 동료나 제자에게 발견되지 않도록, 평상시와는 인상이 다른 복장을 하고 있다.
					ENDIF
					PRINTFORML %타겟호칭은% %마스터호칭과%의 데이트답게, 힘껏 멋부리기를 하고 있다.
				ENDIF
			CASEELSE
				PRINT 약속 시간에
				SELECTCASE RAND:4
					CASE 0
						PRINT 역 앞
					CASE 1
						PRINT 버스정류장
					CASE 2
						PRINT 교문 앞
					CASEELSE
						PRINT 약속한 장소
				ENDSELECT
				PRINTL 에서
				PRINTFORML %마스터호칭은% %타겟호칭과% 만났다.
				IF TALENT:TARGET:연예인
					PRINTFORML %타겟호칭은% 연예인이라고 눈치채지 못하도록 변장하고 있다.
				ELSEIF TALENT:TARGET:남편있음
					PRINTFORML %타겟호칭은% 아는 사람을 만나지 않도록 주위를 신경쓰고 있다.
				ELSEIF TALENT:TARGET:교사
					PRINTFORML %타겟호칭은% 동료나 제자에게 발견되지 않도록, 평상시와는 인상이 다른 복장을 하고 있다.
				ENDIF
				PRINTFORML %타겟호칭은% %마스터호칭과%의 데이트답게, 힘껏 멋부리기를 하고 있다.
		ENDSELECT
	CASEELSE
		PRINT 약속 시간에
		SELECTCASE RAND:4
			CASE 0
				PRINT 역 앞
			CASE 1
				PRINT 버스정류장
			CASE 2
				PRINT 교문 앞
			CASEELSE
				PRINT 약속한 장소
		ENDSELECT
		PRINTL 에서
		PRINTFORML %마스터호칭은% %타겟호칭과% 만났다.
		IF TALENT:TARGET:연예인
			PRINTFORML %타겟호칭은% 연예인이라고 눈치채지 못하도록 변장하고 있다.
		ELSEIF TALENT:TARGET:남편있음
			PRINTFORML %타겟호칭은% 아는 사람을 만나지 않도록 주위를 신경쓰고 있다.
		ELSEIF TALENT:TARGET:교사
			PRINTFORML %타겟호칭은% 동료나 제자에게 발견되지 않도록, 평상시와는 인상이 다른 복장을 하고 있다.
		ENDIF
		PRINTFORML %타겟호칭은% %마스터호칭과%의 데이트답게, 힘껏 멋부리기를 하고 있다.
ENDSELECT

SIF M == 4
	PRINTFORML 훈훈하고 따스한 봄날이다.
SIF M == 5
	PRINTFORML 신록 향기가 상쾌한 5월의 맑은 날씨다.
SIF M == 6
	PRINTFORML 장마철의 습한 공기가, 화단의 자양화의 꽃을 선명하게 물들인다.
SIF M == 7
	PRINTFORML 초여름의 햇살이 길 가는 사람들에게 쏟아지고 있다.
SIF M == 8
	PRINTFORML 거리는 여름 방학의 학생들로 넘치고 있다.
SIF M == 9
	PRINTFORML 더위도 지나, 가을의 기색이 가까워지고 있다..
SIF M == 10
	PRINTFORML 단풍이 든 가로수가 마을을 붉게 물들이고 있다.
SIF M == 11
	PRINTFORML 가로수의 잎도 떨어졌다. 슬슬 겨울이 가깝다.
SIF M == 12
	PRINTFORML 거리는 슬슬 크리스마스 분위기 일색이다.
SIF M == 1
	PRINTFORML 한겨울의 매서운 추위가, 사람들의 발길을 재촉한다.
SIF M == 2
	PRINTFORML 매서운 추위가 계속되지만, 겨울도 서서히 가고 있다.
SIF M == 3
	PRINTFORML 추위도 누그러져, 나무들도 초목들도 싹트고 있다. 봄이 가깝다.

;낮의 부. 우선 늘어놓아 시간 경과 같게 해 본다. 2014/8/2최초의 데이트 먼저 변경

PRINTFORML 당신들은 거리에 나와, 여러가지 가게를 둘러봤다.
PRINTFORML
SELECTCASE RAND:2
	CASE 0
		IF TALENT:TARGET:임신
			IF TALENT:TARGET:초등학생
				IF CFLAG:TARGET:102 == 1
					PRINTFORML %타겟호칭은% %마스터호칭과% 임산부 용품을 취급하는 가게를 찾아왔다.
					PRINTFORML %타겟호칭은% %마스터호칭과% 태어날 갓난아기를 위한 배냇저고리 등을 선택하고 있다.
					PRINTFORML 점원은 당신들을 특이한 손님이라고 생각하면서도, 축하의 선물로 환영받을 것 같은 것을 추천했다.
				ELSE
					PRINTFORML
				ENDIF
			ELSEIF TALENT:TARGET:중학생
				IF CFLAG:TARGET:102 == 1
					PRINTFORML %타겟호칭은% %마스터호칭과% 임산부 용품을 취급하는 가게를 찾아왔다.
					PRINTFORML 점원은 당신들에 대해 복잡한 표정을 하고 있지만, %타겟호칭은% 전혀 신경쓰지 않는 것 같다.
				ELSE
					PRINTFORML
				ENDIF
			ELSE
				IF CFLAG:TARGET:102 == 1
					PRINTFORML %타겟호칭은% %마스터호칭과% 임산부 용품을 취급하는 가게를 찾아왔다.
					PRINTFORML 점원은 당신들에게 축복의 말을 전하면서, 추천 상품을 보여 왔다.
				ELSE
					PRINTFORML
				ENDIF
			ENDIF
		ELSEIF P:95 == 19
			PRINTFORML %타겟호칭과% 함께 수영복을 보러 갔다.
			IF (TALENT:TARGET:눈에띄고싶어함 || TALENT:TARGET:수치심없음 || TALENT:TARGET:소악마)
				PRINTFORML 탈의실에서 수영복으로 갈아입은 %타겟호칭은% %CALLNAME:MASTER%의 앞에서 도발적인 포즈를 취하고 있다.
			ELSEIF (TALENT:TARGET:겁쟁이 || TALENT:TARGET:보수적 || TALENT:TARGET:부끄럼쟁이)
				PRINTFORML 탈의실에서 수영복으로 갈아입은 %타겟호칭은%, %CALLNAME:MASTER%에게 보여지는 것이 부끄러운 것인지 그 몸을 손으로 가리고 있다.
			ELSE
				PRINTFORML %타겟호칭은% 몇 장의 수영복을 몸에 대고, %CALLNAME:MASTER%에게 감상을 물어 보았다.
			ENDIF
		ELSEIF TALENT:TARGET:연예인
			PRINTFORML %타겟호칭은% 대담하게도, %마스터호칭과% 팔짱을 끼고 거리를 돌아봤다.
			PRINTFORML 이런 장면을 누군가에게 보여진다면 큰 일이지만, %타겟호칭은% 신경쓰는 모습도 없다.
		ELSEIF TALENT:TARGET:체육부 || TALENT:TARGET:격투기부
			PRINTFORML %타겟호칭은% %마스터호칭과% 스포츠 용품을 취급하는 가게를 찾아왔다.
			PRINTFORML 장비를 선택하는 %CALLNAME:TARGET%의 눈은 진지함 그 자체다.
		ELSE
			PRINTFORML %타겟호칭은% %마스터호칭과% 윈도우 쇼핑을 즐겼다.
		ENDIF
	CASEELSE
		PRINTFORML %타겟호칭은% %마스터호칭과% 윈도우 쇼핑을 즐겼다.
ENDSELECT

;식사. 뭐, 데이트중이고, 학생인 것으로 경식 정도가 아닐까.
SELECTCASE RAND:2
	CASE 0
		IF TALENT:TARGET:정보통
			PRINTFORML 사전에 정보를 조사했는지, %타겟호칭은% 좋은 가게를 알고 있다고 하며, %CALLNAME:MASTER%의 손을 잡아 당겨 걸어간다.
			PRINTFORML %타겟호칭이% 소개해 준 가게에서 한동안 식사를 즐겼다.
		ELSEIF TALENT:TARGET:친구많음
			PRINTFORML 전에 친구에게 소개받았다고 하며, %타겟호칭은% %CALLNAME:MASTER%의 손을 잡아 당겨 걸어간다.
			PRINTFORML %타겟호칭이% 소개해 준 가게에서 한동안 식사를 즐겼다.
		ELSEIF TALENT:TARGET:영애
			PRINTFORML %CALLNAME:TARGET%에게 이끌려 온 가게는, 아무래도 %타겟호칭이% 익숙한 가게인 듯, 차분한 분위기의 가게였다.
			PRINTFORML %마스터호칭은% %CALLNAME:TARGET% 추천 메뉴를 주문하고, 한동안 회화를 즐겼다.
		ELSE
			PRINTFORML 배가 비어온 %마스터호칭은% %타겟호칭과% 함께 가까운 카페에서 가벼운 식사를 하기로 했다.
			PRINTFORML 식사를 하면서도, %타겟호칭은% 앞으로의 데이트 일로 머리가 가득한 같다.
		ENDIF
	CASEELSE
		PRINTFORML 배가 비어온 %마스터호칭은% %타겟호칭과% 함께 가까운 카페에서 가벼운 식사를 하기로 했다.
		PRINTFORML 식사를 하면서도, %타겟호칭은% 앞으로의 데이트 일로 머리가 가득한 같다.
ENDSELECT

;오후의 부. 그렇다는 것보다 휴식 후의 이동 먼저 한 (분)편이 테두리가 퍼질까
SELECTCASE RAND:2
	CASE 0
		IF TALENT:TARGET:연예인 && !(TALENT:TARGET:임신)
			PRINTFORML %타겟호칭은% 이벤트에 출연하게 되어, %마스터호칭을% 그 이벤트에 초대했다.
			PRINTFORML
			PRINTFORML 스테이지 위에서 출연하고 있는 %타겟호칭은% 평상시 미디어에 보이는 모습보다, 훨씬 빛나 보인다.
			PRINTFORML
			PRINTFORML 이벤트가 끝나, %타겟호칭이% %CALLNAME:MASTER% 앞으로 돌아왔다.
			PRINTFORML 훌륭했다고 전하면, %타겟호칭은% 얼굴 가득히 웃음을 터뜨렸다.
		ELSE
			SELECTCASE RAND:6
				CASE 0
					PRINTFORML 둘이서 영화를 보러 갔다.
					PRINTFORML 상영 중에 %CALLNAME:TARGET%의 손을 잡으면, %CALLNAME:TARGET%도 마주 잡아 왔다.
				CASE 1
					PRINTFORML 둘이서 유원지로 향했다.
					PRINTFORML %타겟호칭은% %마스터호칭과% 함께 여러가지 어트렉션을 즐기고 있다.
				CASE 2
					PRINTFORML 둘이서 수족관으로 향했다.
					PRINTFORML %타겟호칭은% 거대한 수조 속을 헤엄치는 물고기보다, %CALLNAME:MASTER%의 시선이 신경쓰이는 것 같다.
				CASE 3
					PRINTFORML 둘이서 공원으로 향했다.
					PRINTFORML %타겟호칭과% %마스터호칭은% 공원의 벤치에서 손을 잡고, 잠시동안 쉬고 있었다.
				CASE 4
					PRINTFORML 둘이서 게임센터로 향했다.
					PRINTFORML %타겟호칭은% %마스터호칭과% 잠시동안, 게임을 즐겼다.
				CASEELSE
					PRINTFORML %타겟호칭과% 둘이서 노래방에 가기로 했다.
					PRINTFORML %타겟호칭은% %마스터호칭과% 실내에서 단 둘이라는 것에, 텐션이 오르고 있는 것 같다.
			ENDSELECT
		ENDIF
	CASEELSE
		IF P:95 == 19
			PRINTFORML 둘이서 수영장에 놀러 갔다.
			PRINTFORML %타겟호칭은% %마스터호칭과% 함께 수영을 즐겼다.
		ELSEIF M == 12 || M == 1 || M == 2
			PRINTFORML 둘이서 스케이트장에 놀러 갔다.
			PRINTFORML %타겟호칭과% %마스터호칭은% 잠깐동안, 스케이트를 즐겼다.
		ELSE
			SELECTCASE RAND:6
				CASE 0
					PRINTFORML 둘이서 영화를 보러 갔다.
					PRINTFORML 상영 중에 %CALLNAME:TARGET%의 손을 잡으면, %CALLNAME:TARGET%도 마주 잡아 왔다.
				CASE 1
					PRINTFORML 둘이서 유원지로 향했다.
					PRINTFORML %타겟호칭은% %마스터호칭과% 함께 여러가지 어트렉션을 즐기고 있다.
				CASE 2
					PRINTFORML 둘이서 수족관으로 향했다.
					PRINTFORML %타겟호칭은% 거대한 수조 속을 헤엄치는 물고기보다, %CALLNAME:MASTER%의 시선이 신경쓰이는 것 같다.
				CASE 3
					PRINTFORML 둘이서 공원으로 향했다.
					PRINTFORML %타겟호칭과% %마스터호칭은% 공원의 벤치에서 손을 잡고, 잠시동안 쉬고 있었다.
				CASE 4
					PRINTFORML 둘이서 게임센터로 향했다.
					PRINTFORML %타겟호칭은% %마스터호칭과% 잠시동안, 게임을 즐겼다.
				CASEELSE
					PRINTFORML %타겟호칭과% 둘이서 노래방에 가기로 했다.
					PRINTFORML %타겟호칭은% %마스터호칭과% 실내에서 단 둘이라는 것에, 텐션이 오르고 있는 것 같다.
			ENDSELECT
		ENDIF
ENDSELECT

;궁합 상승
PRINTFORML %타겟이름과% 조금 친밀하게 된 것 같은 생각이 든다.
;궁합의 기본치를 100에 고정
SIF RELATION:TARGET:0 <= 20
	RELATION:TARGET:0 = 100

IF RELATION:TARGET:0 <= 299
	RELATION:TARGET:0 += 10
PRINTFORML 궁합+10
ENDIF

;플레이어와의 궁합을 상한 300％로 설정
SIF RELATION:TARGET:0 >= 299
	RELATION:TARGET:0 = 300
;플레이어와의 궁합을 하한 60％로 설정
SIF RELATION:TARGET:0 <= 59
	RELATION:TARGET:0 = 60

;체력 회복
BASE:TARGET:0 += 300
SIF BASE:TARGET:0 > MAXBASE:TARGET:0
	BASE:TARGET:0 = MAXBASE:TARGET:0
PRINTFORML %NAME:TARGET%의 체력이 회복했다.

;호감도의 상승
PRINTFORML %NAME:TARGET%의 호감도가 올랐다.
CFLAG:TARGET:2 += 100
PRINTFORML 의존도+100

;애정경험
EXP:TARGET:23 += 10
PRINTFORML 애정경험 + 10

;스트레스치의 저하
CFLAG:TARGET:10 -= 10
PRINTFORML 스트레스가 10저하했다.

PRINTFORMW 휴일을 %타겟호칭과% 둘이서 즐겁게 보냈다. 슬슬 밤이 된다.

SELECTCASE RAND:3
	CASE 0
		PRINTFORMW 밤의 장막이 내려올 무렵, %타겟호칭과% %마스터호칭은%, 문득 눈치채면 호텔가를 걷고 있었다.
		PRINTFORMW 침착하지 못한 모습의 %CALLNAME:TARGET%에게, 잠깐 쉬다 가자고 하는 %CALLNAME:MASTER%의 제안을 %타겟호칭은% 거절하지 않았다.
	CASE 1
		PRINTFORMW 오늘은 즐거운 하루였다. %타겟호칭은% 만족한 듯 하고 있지만, 조금 피곤한 것 같다. 어딘가에서 휴식할까…
	CASEELSE
		PRINTFORMW 날도 저물어, 즐거운 데이트도 슬슬 끝일까하고 %마스터호칭이% 생각하고 있으면, %타겟호칭은% 물기를 띤 눈동자로 %CALLNAME:MASTER%의 눈을 가만히 바라보았다
		PRINTFORMW %마스터호칭은% 그 의도를 헤아려, 살그머니 %CALLNAME:TARGET%의 등을 떠밀듯이 해, 호텔가로 향했다.
ENDSELECT
FLAG:2000 = 1
FLAG:10 = 3
SIF IS_DAYTIME()
	TIME = 1
RETURN 2

repo_name: Catalyst/B

license: unknown


code:
@SUMMER_VACATION
;각종 로컬 변수의 선언
#DIM SWIMSUIT_RECOMMEND_FLAG
#DIM SWIMSUIT_RANDAM_SELECT_VALUE
#DIMS SWIMSUIT_NAME
#DIMS SWIMSUIT_EXPRESS

;플래그 변수 초기화. 일단
SWIMSUIT_RECOMMEND_FLAG = 0

PRINTFORML 오늘은 날씨도 맑은, 딱 좋은 해수욕 날씨다.
PRINTFORML
$SUMMER_VACATION_LOOP
PRINTL 누군가와 바다에 갑니까?
PRINTL  [0] - 네(돈 5000 소비)
PRINTL  [1] - 아니오

INPUT
IF RESULT == 1
	RETURN 1
ELSEIF RESULT == 0
	PRINTL
ELSE
	GOTO SUMMER_VACATION_LOOP
ENDIF

P = 4
CALL DISPLAY_COMMON , 16
SIF RESULT == 999
	RETURN 1

TARGET = RESULT
SIF ASSI == TARGET
	ASSI = -1

PRINTFORMW %타겟이름과% 바다에 놀러 갑니다.
MONEY -= 5000
CUSTOMDRAWLINE ‥

;NTL시는 남자친구로부터의 권유를 거절하게 하는 한마디 추가
IF (TALENT:TARGET:ＮＴＬ)
	PRINTFORM 오늘은
	CALL PARTNER_NAME
	PRINTFORML 에게 권해지고 있다고 %타겟호칭은% 꺼렸지만, 거절하듯이 일방적으로 말하고 %마스터호칭은% 전화를 끊었다.
ENDIF

;강간・협박시는 억지로 HENTAI 수영복 입히거나 할 수 있도록(듯이)
IF IS_NOTLOVE_ATTACKING(TARGET)
	$SWIMSUIT_RECOMMEND_LOOP
	PRINTFORML %NAME:TARGET%에게 노출이 많은 수영복을 입도록 명령합니까?
	PRINTL  [0] - 네
	PRINTL  [1] - 아니오

	INPUT
	IF RESULT == 1
		SWIMSUIT_RECOMMEND_FLAG = 0
	ELSEIF RESULT == 0
		SWIMSUIT_RECOMMEND_FLAG = 1
	ELSE
		GOTO SWIMSUIT_RECOMMEND_LOOP
	ENDIF
ENDIF

;수영복의 랜덤 선택
;명령했을 경우 or교제로 노출증이 일정치 이상의 경우는 HENTAI 수영복
;교제로 노출증이 일정치 미만 or명령하지 않을 때는 소극적 수영복
;장래의 확장이나 변경을 위해 변수 분할
SWIMSUIT_RANDAM_SELECT_VALUE = RAND:4

PRINTFORML
PRINTFORML %타겟호칭을% 데리고 바다에 왔다.

IF ((TALENT:TARGET:교제) || (!(SWIMSUIT_RECOMMEND_FLAG) && (ABL:TARGET:노출증 < 5)))
;소극적시
	SELECTCASE SWIMSUIT_RANDAM_SELECT_VALUE
		CASE 0
			SWIMSUIT_NAME = 리본이 달린 원피스
			SWIMSUIT_EXPRESS = 허리와 가슴에 리본이 달린、귀여운
		CASE 1
			SWIMSUIT_NAME = 스포티한 세퍼레이트
			SWIMSUIT_EXPRESS = 깔끔한 투톤 칼라의
		CASE 2
			SWIMSUIT_NAME = 파레오가 달린 품위있는 비키니
			SWIMSUIT_EXPRESS = 전통적인 디자인으로、피부를 많이 노출하지 않는
		CASEELSE
			SWIMSUIT_NAME = 학교수영복
			SWIMSUIT_EXPRESS = 무려 학교에서 착용하고 있는、그대로의
	ENDSELECT

	;해에서의 상태 표현문
	PRINTFORML %SWIMSUIT_EXPRESS% %SWIMSUIT_NAME%에 몸을 감싼 %타겟호칭을% 응시하고 있으면,
	;부끄럼쟁이나 정조관념이 있으면 분기
	IF (TALENT:TARGET:부끄럼쟁이)||(TALENT:TARGET:정조관념)
		PRINTFORM %타겟호칭은% 얼굴을 붉히며, 양손으로 신체를 숨기듯이 몸을 비틀었다.
	ENDIF
	PRINTFORML 평상시와 다른 장소이기 때문인지, 그것만으로 신선한 인상을 받는다.

ELSE
;HENTAI시
	SELECTCASE SWIMSUIT_RANDAM_SELECT_VALUE
		CASE 0
			SWIMSUIT_NAME = 등의 크게 벌어진 모노키니
			SWIMSUIT_EXPRESS = 목 아래부터 엉덩이 위까지 훤히 들여다 보이는
		CASE 1
			SWIMSUIT_NAME = Ｖ자 모양의 슬링샷
			SWIMSUIT_EXPRESS = 가슴과 허리의 측면이 전부 드러난
		CASE 2
			SWIMSUIT_NAME = 극단적으로 천의 면적이 적은 마이크로 비키니
			SWIMSUIT_EXPRESS = 유두와 음부를 겨우 숨기고 있을 뿐인
		CASEELSE
			SWIMSUIT_NAME = 매우 얇은 하이레그 원피스
			SWIMSUIT_EXPRESS = 자세히 보면 비쳐보이는 것을 알 수 있는
	ENDSELECT

	;해에서의 상태 표현문
	PRINTFORML %SWIMSUIT_EXPRESS%, %SWIMSUIT_NAME%에 몸을 감싼 %타겟호칭은%, 어쩔 수 없이 바닷가의 주목을 끌고 있었다.

	;노출증으로 분기
	;명령에서도 노출증이 높은 경우는, 기뻐한다.
	IF (ABL:TARGET:노출증 >= 5)
		PRINTFORML 호색한 눈으로 보여지고 있다는 사실에 흥분하고 있는, %타겟호칭은% 피부를 붉게 물들이며 숨을 거칠게 하고 있다.
	ELSE
		PRINTFORML 주위로부터 향하는 시선에 겁먹고 움직일 수 없게 된 %타겟호칭은%, %CALLNAME:MASTER%에게 이끌려 걸어가며, 어렴풋이 눈물을 머금고 있다.
		PRINTFORML 적당히 체념하고 %타겟호칭이% 혼자서 걸을 수 있게 될 때까지, 상당한 시간이 걸렸다.
	ENDIF
ENDIF

PRINTFORML

IF (TALENT:TARGET:교제)
	PRINTFORML 한 여름의 태양 아래에서, %타겟호칭과% 천천히 물놀이를 즐겼다.
	PRINTFORML %NAME:TARGET%의 호감도가 올랐다.
;호감도의 상승
	CFLAG:TARGET:2 += 500
;애정경험
	PRINTFORML 애정경험 + 50
	EXP:TARGET:23 += 50
ELSE
	;2단계 함락 하고 있으면 조금 바꾼다
	IF (TALENT:TARGET:예속)||(TALENT:TARGET:창녀)||(TALENT:TARGET:모판)
		PRINTFORML 대충 %타겟호칭을% 데리고 돌아다닌 후에 한숨 돌리고 있으면, %타겟호칭이% 음료를 사러 간다고 말하고 떨어져 갔다.
		PRINTFORML
		PRINTFORML 몇분 후, 좀처럼 돌아오지 않는 %타겟호칭을% 찾으러 가면, 몇명의 젊은 남자가 %CALLNAME:TARGET%에게 말을 걸고 있는 것을 발견했다.

		;에로 수영복 입고 있는 미인이 있으면 봐 버리지요 하고 말한다
		IF ((ABL:TARGET:노출증 >= 5) || SWIMSUIT_RECOMMEND_FLAG)
			PRINTFORML 그들의 시선은, %조사처리(SWIMSUIT_NAME,"로")%부터 들여다 보이는 %CALLNAME:TARGET%의 신체에 노골적으로 쏠리고 있다.
		ENDIF
		IF (TALENT:TARGET:예속)
			PRINTFORML 귀찮은 것 같은 얼굴을 하고 있던 %타겟호칭이% 이쪽을 발견하고, 도움을 청하는 것 같은 시선을 보내왔지만……
		ELSE
			PRINTFORML 거절하는 말과는 정반대로 갖고 싶어하는 것처럼 남자들을 보고 있던 %타겟호칭이% 이쪽을 발견하고, 시선을 보내왔지만……
		ENDIF
	ELSE
		PRINTFORML %타겟호칭은%, %마스터호칭을% 신경써 모처럼의 바다를 제대로 즐기지 못하는 것 같다.
		PRINTFORML 그런 미묘한 거리감을 느꼈는지, 몇명의 젊은 남자가 %CALLNAME:TARGET%에게 말을 걸고 있는 것 같지만……
	ENDIF
	PRINTFORML
	PRINTL  [0] - 헌팅에 응하게 한다
	PRINTL  [1] - 거절하게 한다
	$SUMMER_VACATION_LOOP3
	INPUT
	IF RESULT == 0
		FLAG:2000 = 2
		LOCAL = 0
		IF TALENT:TARGET:음란 == 1 || TALENT:TARGET:창녀 == 1
			PRINTFORML %타겟호칭은%, 오히려 기쁜듯이 남자들을 뒤따라 갔다.
			PRINTFORML ………………
			PRINTFORML …………
			PRINTFORML ……
			IF ABL:MASTER:2 < RAND:4
				PRINTFORML %타겟호칭은%, 그 날 늦은 시간이 되서야 돌아왔다.
				PRINTFORML 꽤나 즐길 수 있었는지, 만족한 것 같은 얼굴을 하고 있었다…….
				LOCAL = 8
			ELSE
				PRINTFORML %타겟호칭은%, 그 날 늦은 시간이 되서야 돌아왔다.
				PRINTFORML 그러나, 헌팅남들의 기교에 만족할 수 없었던 것 같아, 조금 불만인 표정을 하고 있다
				LOCAL = 4
			ENDIF
		ELSE
			PRINTFORML %타겟호칭은%, 그다지 내켜하는 마음은 안보이지만, 마지못해 남자들을 뒤따라 갔다.
			PRINTFORML ………………
			PRINTFORML …………
			PRINTFORML ……
			PRINTFORML %타겟호칭은%, 그 날 늦은 시간이 되서야 돌아왔다.
			PRINTFORML 하지만, 별로 헌팅남들과의 일에 대해서는, 말하고 싶어하지 않았다.
			LOCAL = 2
		ENDIF
		IF TALENT:TARGET:처녀 == 1
			IF ABL:TARGET:5 >= 2
				PRINTFORML A경험＋{LOCAL}
				EXP:1 += LOCAL
				IF ABL:TARGET:5 > 8
					LOCAL /= 1
				ELSEIF ABL:TARGET:5 > 5
					LOCAL /= 2
				ELSE
					LOCAL /= 4
				ENDIF
				IF LOCAL >= 1
					PRINTFORML 절정경험＋{LOCAL}
					EXP:2 += LOCAL
				ENDIF
			ELSE
				LOCAL /= 5
				IF LOCAL >= 1
					PRINTFORML 봉사쾌락경험＋{LOCAL}
					EXP:21 += LOCAL
				ENDIF
			ENDIF
		ELSE
			PRINTFORML V경험＋{LOCAL}
			EXP:0 += LOCAL
			IF ABL:TARGET:4 > 8
				LOCAL /= 1
			ELSEIF ABL:TARGET:4 > 5
				LOCAL /= 2
			ELSEIF ABL:TARGET:4 > 2
				LOCAL /= 4
			ELSE
				LOCAL /= 8
			ENDIF
			IF LOCAL >= 1
				PRINTFORML 절정경험＋{LOCAL}
				EXP:2 += LOCAL
			ENDIF
		ENDIF
	ELSEIF RESULT == 1
		PRINTFORML %CALLNAME:TARGET%에게 거절당한 헌팅남들은, 잠시 머뭇거리고 있었지만 이윽고 단념했다.
	ELSE
		GOTO SUMMER_VACATION_LOOP3
	ENDIF
ENDIF
IF FLAG:2000 == 0
	FLAG:2000 = 1
	FLAG:10 = 3
ENDIF
RETURN 2


code:
;------------------------------------------------------------------------------
;	SCENARIO_HATSU_MOUDE.ERB　共通イベント「夏祭り」
;
;	導入対象バリアント：	era_inSchool_org ver0.02
;	バリアント製作者：	inSchool ◆ALP/BZZ2kc 様
;	文責：			eraRLえくすぱっちの人
;				タブ幅推奨：8　改行文字数推奨：80
;------------------------------------------------------------------------------

;----------イベント本体
@SUMMER_FESTIVAL
#DIM DYNAMIC targetList,5
#DIM DYNAMIC charaCount
#DIM DYNAMIC index
#DIM DYNAMIC index2
#DIM DYNAMIC targets,2 = -1,-1
#DIM DYNAMIC mode
#DIM DYNAMIC checkResult
#DIM DYNAMIC equipedItem,2 = -1,-1
#DIM DYNAMIC itemMap = 0,2,4,5,10,16,93
#DIMS DYNAMIC itemRule = "1","1","!TALENT:index:처녀 && !TALENT:index:남자","ABL:index:Ａ감각 >= 2","1","ABL:index:마조끼 >= 2","ITEM:촉수사역술 > 0 && ABL:index:촉수중독 >= 3"
#DIMS DYNAMIC getJuelName,2 = "",""
#DIM DYNAMIC friendCSVIndex
#DIMS DYNAMIC tempString
ITEM:촉수옷 = ITEM:촉수사역술

;-----------------------------------------------------------------페이즈 0:사전 준비
PRINTFORML 그러고 보니, 오늘은 근처에서 여름축제가 열리는 것 같다….
PRINTFORML 누군가와 가 볼까?
WHILE 1
	SIF COUNT_RULED_CHARAS("(TALENT:index:연모 || TALENT:index:친애)  && !IS_UNCONTACTABLE(index)") > 0
		PRINTFORML [0] - 연인을 유혹한다
	SIF COUNT_RULED_CHARAS("IS_NOTLOVE_FALLEN(index) && !IS_UNCONTACTABLE(index)") > 0
		PRINTFORML [1] - 노예를 데리고 즐긴다
	PRINTFORML [2] - 혼자서 가 본다
	PRINTFORML [3] - 가지 않는다
	INPUT
	mode = RESULT
	SELECTCASE mode
		CASE 0
			CALL GET_RANDOM_CHARAS("TALENT:index:연모 || TALENT:index:친애",targetList)
			SIF RESULT != 0
				break
		CASE 1
			CALL GET_RANDOM_CHARAS("IS_NOTLOVE_FALLEN(index)",targetList)
			SIF RESULT != 0
				break
		CASE 2
			PRINTFORMW 혼자서 구경하는 것도 나쁘지 않은가.
			RETURN 1
		CASE 3
			PRINTFORMW 뭐, 관계없는 이야기다.
			RETURN 0
		CASEELSE
			;아무것도안한다
	ENDSELECT
WEND
charaCount = RESULT
PRINTFORML 누구와 갈까?
WHILE 1
	FOR index,0,charaCount
		PRINTFORML [{index}] - %NAME:(targetList:index)%
	NEXT
	INPUT
	IF INRANGE(RESULT,0,charaCount)
		targets:0 = targetList:RESULT
		break
	ENDIF
WEND

IF COUNT_CONTACTABLE_FRIEND(targets:0) > 0
	DO
		;友人選択
		DO
			friendCSVIndex = CFLAG:(targets:0):(RAND:5 + 1005)
		LOOP friendCSVIndex == 0
		targets:1 = GETCHARA(friendCSVIndex)
	LOOP !IS_TAKEABLE_PART_SUMMER_FESTIVAL(targets:0,NO:(targets:1))
ELSE
	targets:1 = -1
ENDIF

PRINTFORML \@ mode == 0 ? 연인 # 노예 \@인 %조사처리(CALLNAME:(targets:0),"를")% 여름축제에 \@ mode == 0 ? 권했다 # 불러냈다 \@….
IF mode == 0
	IF TALENT:ＮＴＲ >= 2
		PRINTFORML 하지만, 지금은 바쁘다며 시원스럽게 거절당해 버렸다….
		PRINTFORML %마스터호칭은%, 홀로 외롭게 축제를 구경했다.
		RETURN 1
	ENDIF
	IF (!TALENT:(targets:0):친애 && targets:1 > 0 && RAND:2 < 1)
		PRINTFORML 하지만, 아무래도 %조사처리(CSVCALLNAME(friendCSVIndex),"와")% 선약이 있었던 것 같다.
		PRINTFORML 계속 사과하는 %CALLNAME:(targets:0)%에게, 신경쓰지 않는다고 말해 전화를 끊었다.
		RETURN 0
	ENDIF
	PRINTFORML 그러자, 마침 예정이 비어 있었던 것 같아, OK의 대답이 왔다.
	PRINTFORMW 그렇게 정해졌으니, 기합을 넣어 준비하지 않으면.
	targets:1 = -1
ELSE
	SELECTCASE 1
		CASE TALENT:(targets:0):예속
			checkResult = (RAND:2 < 1)
		CASE TALENT:(targets:0):창녀
			checkResult = (RAND:4 < 3)
		CASE TALENT:(targets:0):복종
			checkResult = (RAND:3 < 2)
		CASE TALENT:(targets:0):음란
			checkResult = (RAND:2 < 1)
		CASE TALENT:(targets:0):동화
			checkResult = (RAND:4 < 1)
		CASE TALENT:(targets:0):모판
			checkResult = (RAND:3 < 1)
	ENDSELECT
	IF checkResult && targets:1 > 0
		WHILE 1
			PRINTFORML 하지만 아무래도, %조사처리(CSVCALLNAME(friendCSVIndex),"와")% 선약이 있는 것 같다.
			PRINTFORML 어떻게 하지….
			PRINTFORML [0] - 그렇다면 어쩔 수 없다.
			SIF IS_NOTLOVE_FALLEN(targets:1)
				PRINTFORML [1] - 딱 좋다. 함께 귀여워해 주자.
			INPUT
			IF RESULT == 1 && IS_NOTLOVE_FALLEN(targets:1)
				PRINTFORMW 딱 좋다. 두 사람 모두 귀여워해 준다.
				SELECTCASE 1
					CASE TALENT:(targets:0):예속 || TALENT:(targets:0):복종
						PRINTFORMW 그렇게 전하면, %조사처리(CALLNAME:(targets:0),"는")% 한순간 숨을 죽여, 그리고 떨리는 목소리로 알겠습니다, 라고 돌려주었다.
					CASE TALENT:(targets:0):창녀 || TALENT:(targets:0):음란 || TALENT:(targets:0):동화 || TALENT:(targets:0):모판
						PRINTFORMW 그렇게 전하면, %조사처리(CALLNAME:(targets:0),"는")% 꿀꺽 침을 삼켜, 그리고 요염한 목소리로 알겠습니다, 라고 돌려주었다.
				ENDSELECT
				break
			ELSEIF RESULT == 0
				PRINTFORML 어쩔 수 없다. 운이 나뻤던 것이다.
				PRINTFORMW %마스터호칭은% 포기하고, 평상시대로 보내기로 했다.
				RETURN 0
			ENDIF
		WEND
	ELSE
		targets:1 = -1
		SELECTCASE 1
			CASE TALENT:(targets:0):예속
				PRINTFORMW 전화를 받은 %CALLNAME:(targets:0)%에게 여름축제에 오라고 말하면, 기쁜듯이 알겠습니다, 라고 돌려주었다.
			CASE TALENT:(targets:0):복종
				PRINTFORMW 전화를 받은 %CALLNAME:(targets:0)%에게 여름축제에 오라고 말하면, 울먹이는 소리가 되면서 알겠습니다, 라고 돌려주었다.
			CASE TALENT:(targets:0):창녀 || TALENT:(targets:0):음란 || TALENT:(targets:0):동화 || TALENT:(targets:0):모판
				PRINTFORMW 전화를 받은 %CALLNAME:(targets:0)%에게 여름축제에 오라고 말하면, 남자에게 교태를 부리는 목소리로 알겠습니다, 라고 돌려주었다.
		ENDSELECT
	ENDIF
	PRINTL
	PRINTFORML 그런데, 축제까지는 아직 시간이 있다. 조금 사전 준비를 해도 재미있을지도 모른다….
	FOR index,0,2
		WHILE targets:index > 0
			PRINTFORML %조사처리(CALLNAME:(targets:index),"를")% 축제가 시작되기 전에 호출할까?
			PRINTFORML [0] - 호출한다
			PRINTFORML [1] - 호출하지 않는다
			INPUT
			SELECTCASE RESULT
				CASE 0
					WHILE 1
						PRINTFORMW 무엇을 지시할까?
						FOR index2,0,varsize("itemMap")
							SIF ITEM:(itemMap:index2) > 0 && equipedItem:0 != itemMap:index2 && EVALUATE(itemRule:index2,targets:index)
								PRINTFORML [{index2}] - %ITEMNAME:(itemMap:index2)%
						NEXT
						INPUT
						IF INRANGE(RESULT,0,varsize("itemMap"))
							equipedItem:index = itemMap:RESULT
							PRINTFORMW %CALLNAME:(targets:index)%에게 %조사처리(ITEMNAME:(equipedItem:index),"를")% 착용할 것을 지시했다….
							SELECTCASE equipedItem:index
								CASE GETNUM(ITEM, "로터"),GETNUM(ITEM, "클리캡")
									PRINTFORMW %조사처리(CALLNAME:(targets:index),"는")%, 클리토리스로부터 전해지는 자극에 때때로 흠칫 신체를 진동시키고 있다.
									getJuelName:index = 쾌Ｃ
								CASE GETNUM(ITEM, "바이브")
									PRINTFORMW %조사처리(CALLNAME:(targets:index),"는")%, 질로부터 전해지는 자극에 서 있는 것만으로 한계다.
									getJuelName:index = 쾌Ｖ
								CASE GETNUM(ITEM, "애널바이브")
									PRINTFORMW %조사처리(CALLNAME:(targets:index),"는")%, 애널로부터 전해지는 자극에 당장 넘어질 것 같다.
									getJuelName:index = 쾌Ａ
								CASE GETNUM(ITEM, "유두캡")
									PRINTFORMW %조사처리(CALLNAME:(targets:index),"는")%, 가슴으로부터 전해지는 자극에 뺨을 붉게 물들이고 있다.
									getJuelName:index = 쾌Ｂ
								CASE GETNUM(ITEM, "밧줄")
									PRINTFORMW %조사처리(CALLNAME:(targets:index),"는")%, 밧줄이 먹혀드는 감촉에 한숨을 토했다.
									getJuelName:index = 고통
								CASE GETNUM(ITEM, "촉수옷")
									PRINTFORMW %조사처리(CALLNAME:(targets:index),"는")%, 촉수옷이 꿈틀거릴 때마다 괴로운 듯이 허리를 움찔움찔거리고 있다.
									getJuelName:index = 공포
							ENDSELECT
							break
						ENDIF
					WEND
					PRINTL
					CALL GET_JUEL(targets:index,getJuelName:index,100)
					CALL GET_JUEL(targets:index,"치정",100)
					IF (getJuelName:index=="고통" && ABL:(targets:index):마조끼 >= 3) || (getJuelName:index!="고통" && ABL:(targets:index):노출증 >= 3)
						CALL GET_JUEL(targets:index,"욕정",100)
					ELSE
						CALL GET_JUEL(targets:index,"굴복",100)
					ENDIF
					PRINTW
					break
				CASE 1
					break
				CASEELSE
					;아무것도안한다。
			ENDSELECT
			PRINTL
		WEND
	NEXT
	PRINTL
	PRINTFORMW 그럼, 남은건 축제의 시간을 기다리는 것 뿐이다….
ENDIF

	PRINTL
PRINTFORML 잠시 후, %CALLNAME:(targets:0)%\@ targets:1 < 0 ? %조사만처리(CALLNAME:(targets:0),"가")% # 와 %조사처리(CALLNAME:(targets:1),"가")% 함께,  \@ %CALLNAME:MASTER% 앞으로 왔다.
FOR index,0,2
	IF targets:index > 0
		SELECTCASE 1 ;とりあえずCuCoPa揃ってればいいや
			CASE TALENT:(targets:index):색기 || TALENT:(targets:index):치유계 || TALENT:(targets:index):애교
				tempString = 사랑스러운 핑크
			CASE TALENT:(targets:index):청초 || TALENT:(targets:index):보이쉬 || TALENT:(targets:index):쿨함
				tempString = 상쾌한 파랑
			CASE TALENT:(targets:index):천연 || TALENT:(targets:index):쾌활 || TALENT:(targets:index):어린애같음
				tempString = 활기찬 느낌을 주는 오렌지
			CASEELSE
				tempString = 눈이 번쩍 뜨이는 듯한 녹색
		ENDSELECT
		PRINTFORM %조사처리(CALLNAME:(targets:index),"는")% %tempString%\@ index == 0 && targets:1 > 0 ? , # 의 \@
	ENDIF
NEXT
PRINTFORMW 세련된 유카타를 몸에 걸쳐, 아름답게 꾸미고 있다.
PRINTFORM 무심코 예쁘다, 라고 중얼거리면,
FOR index,0,2
	IF targets:index > 0
		SELECTCASE 1
			CASE TALENT:(targets:index):연모 || TALENT:(targets:index):친애 || TALENT:(targets:index):예속
				tempString = 기쁜듯이 미소지어
			CASEELSE
				tempString = 부끄러운 듯이 눈을 숙여
		ENDSELECT
		PRINTFORM %조사처리(CALLNAME:(targets:index),"는")% %tempString%,
	ENDIF
NEXT
PRINTL 고마워요, 라고 중얼거렸다.

PRINTL
IF equipedItem:0 >= 0 || equipedItem:1 >= 0
	PRINTFORMW 그건 그렇고, 출발 전에 내린 명령을 제대로 이행하고 있는지, 확인하지 않으면.
	FOR index,0,2
		IF equipedItem:index >= 0
			SELECTCASE equipedItem:index
				CASE GETNUM(ITEM, "밧줄")
					PRINTFORML 아주 살짝 유카타를 풀어헤치게 하면, %CALLNAME:(targets:index)%의 부드러운 살갗에 빡빡하게 먹혀드는 밧줄이 보인다.
				CASE GETNUM(ITEM, "촉수옷")
					PRINTFORML 귀를 기울이면, 질척질척거리는 뭔가 젖은 장소를 후비는 것 같은 물기어린 소리가 들려 온다.
				CASEELSE
					PRINTFORML 은밀하게 손안의 스위치를 조작하면, %조사처리(CALLNAME:(targets:index),"는")% 흠칫 몸을 떨며, 꼬옥 하고 눈을 감아 참고 있다.
			ENDSELECT
		ENDIF
	NEXT
	PRINTFORMW 아무래도, 제대로 명령대로 한 것 같다.
	PRINTFORMW 자, 신나고 즐거운 여름축제의 시작이다….
ENDIF

;-----------------------------------------------------------------페이즈 1:출점 순회

PRINTL
PRINTFORML 우선은, 포장마차를 돌아 보자.
PRINTFORML 축제답게 비교적 비싼 것들 뿐이지만, %GET_TARGETS_CALLS(targets)%의 즐거워하는 미소를 보고 있으면, 그런 일은 아무래도 좋다고 생각된다.
tempString = %GET_ONE_TARGET_CALL(targets)%
PRINTFORM 정신을 차리면, %조사처리(tempString,"가")% 답례라면서,
PRINTDATA
	DATA 타코야끼를
	DATA 오코노미야키를
	DATA 오징어 구이를
	DATA 초콜렛 바나나를
	DATA 붕어빵을
ENDDATA
PRINTFORML 내밀고 있다.
PRINTFORMW 한입 물고 맛있네, 라고 말하면, %조사처리(tempString,"는")% 기쁜듯이 미소지었다.
PRINTFORMW 떠들썩하고 즐거운 시간이 흘러 간다….

PRINTL
IF equipedItem:0 >= 0 || equipedItem:1 >= 0
	PRINTFORML …하지만.
	FOR index,0,2
		SELECTCASE equipedItem:index
			CASE -1
				;아무것도안한다
			CASE GETNUM(ITEM, "밧줄")
				PRINTFORML %조사처리(CALLNAME:(targets:index),"는")% 가끔, 괴로운 듯이 걸음을 멈춰 버린다.
				PRINTFORML 밧줄이 피부에 먹혀들어, 스칠 때마다 아픔을 느끼고 있을 것이다.
				IF ABL:(targets:index):마조끼 >= 4
					PRINTFORML 그리고, 그 아픔이 견딜 수 없다는 듯, 안타까운 듯이 허벅지를 비비적대고 있다.
				ELSE
					PRINTFORML 용서를 구하듯이 응시해 오지만, 그렇게 무를 리가 없다….
				ENDIF
			CASE GETNUM(ITEM, "촉수옷")
				PRINTFORML %조사처리(CALLNAME:(targets:index),"는")% 가끔, 뺨을 새빨갛게 물들이고 등줄기를 진동시키며 걸음을 멈춰 버린다.
				PRINTFORML 유카타 아래에서 촉수가 꿈틀거릴 때마다, 밀어닥쳐 오는 쾌락. 그것을 받아 들이는 것만으로, 힘껏이 되어 있다.
				IF ABL:(targets:index):촉수중독 >= 4
					PRINTFORML 그리고, 여러 사람들에 둘러싸여 보여지는 가운데 촉수에게 희롱해지는 이상한 광경을 상상해, 하악하악 호흡을 거칠게 하고 있다.
				ELSE
					PRINTFORML 용서를 구하듯이 응시해 오지만, 글쎄, 그렇게 무른 주인이라고 생각하는 걸까….
				ENDIF
			CASEELSE
				PRINTFORML %조사처리(CALLNAME:(targets:index),"는")% 가끔 흠칫 떨며, 새빨갛게 되어 주저앉아 버린다.
				SELECTCASE equipedItem:index
					CASE GETNUM(ITEM, "로터"),GETNUM(ITEM, "클리캡")
						tempString = 사타구니
					CASE GETNUM(ITEM, "바이브")
						tempString = 질
					CASE GETNUM(ITEM, "애널바이브")
						tempString = 애널
					CASE GETNUM(ITEM, "유두캡")
						tempString = 가슴
				ENDSELECT
				PRINTFORML %tempString%에서부터 강제적으로 전해져 오는 쾌감에 저항하지 못하고, 새빨갛게 되어 하아하아 신음소리를 흘린다.
				PRINTFORML 그렇게 상스러운 소리를 내면, 주위의 모두에게 %조사처리(ITEMNAME:(equipedItem:index),"를")% 댄 채로 이런 곳에서 즐기는 변태라고 들켜 버리겠어?
				PRINTFORM 그렇게 귓가에 속삭여 주면,
				IF ABL:(targets:index):노출증 >= 4
					PRINTFORML 주위로부터 변태라고 멸시되는 자신을 상상했는지. 움찔, 움찔 몸을 진동시키며, 가벼운 절정에 이르렀다.
				ELSE
					PRINTFORML 눈물고인 눈으로 올려봐 오지만, 거기서 용서해 줄만큼 무르진 않다….
				ENDIF
		ENDSELECT
		IF targets:0 > 0 && targets:1 > 0
			IF TALENT:(targets:(1-index)):음란 || TALENT:(targets:(1-index)):창녀 || TALENT:(targets:(1-index)):동화 || TALENT:(targets:(1-index)):모판
				PRINTFORMW 그런 %조사처리(CALLNAME:(targets:index),"를")%, %조사처리(CALLNAME:(targets:(1-index)),"는")% 부러운 듯이 응시하고 있다….
			ELSE
				PRINTFORMW 그런 %CALLNAME:(targets:index)%의 손을, %조사처리(CALLNAME:(targets:(1-index)),"는")% 격려하듯이 꼬옥 잡고 있다….
			ENDIF
		ENDIF
		PRINTL
	NEXT
	FOR index,0,2
		IF targets:index > 0
			CALL GET_JUEL(targets:index,getJuelName:index,800)
			CALL GET_JUEL(targets:index,"치정",targets:0 > 0 && targets:1 > 0 ? 1200 # 800)
			IF (getJuelName:index=="고통" && ABL:(targets:index):마조끼 >= 2) || (getJuelName:index!="고통" && ABL:(targets:index):노출증 >= 2)
				CALL GET_JUEL(targets:index,"욕정",400)
			ELSE
				CALL GET_JUEL(targets:index,"굴복",400)
			ENDIF
		ENDIF
		PRINTW
	NEXT
	PRINTFORML
ENDIF
PRINTL

;-----------------------------------------------------------------페이즈 2:불꽃놀이 구경

PRINTFORMW 그렇게 즐기고 있는 동안에, 불꽃놀이의 시간이 되었다.
PRINTFORMW 하지만, 사람이 너무 많아서 제대로 불꽃놀이를 볼 수 없을 것 같다….
WHILE 1
	PRINTFORML [0] - 뭐, 어쩔 수 없구나.
	SIF ABL:MASTER:학력 + ABL:MASTER:운동능력 + ABL:MASTER:감성 > 20
		PRINTFORML [1] - 그러고 보니…
	INPUT
	SELECTCASE RESULT
		CASE 0
			PRINTFORML 뭐, 이런 일도 있을 것이다.
			IF equipedItem:0 >= 0 || equipedItem:1 >= 0
				PRINTFORML 거기에, 그렇다면 이것대로 즐길 방법은 있다.
				PRINTFORML %마스터호칭은% 불꽃놀이도 보는 둥 마는 둥, %조사처리(GET_TARGETS_CALLS(targets),"를")% 건물의 뒤쪽으로 데리고 들어갔다.
			ELSE
				PRINTFORML %마스터호칭은% %조사처리(GET_TARGETS_CALLS(targets),"와")% 북적이는 인파에 치이면서 불꽃놀이를 감상하고 돌아갔다….
				if mode == 0
					PRINTL
					CALL GET_EXP(targets:0,"애정경험",10)
				ENDIF
				RETURN 1
			ENDIF
			mode = 4
			break
		CASE 1
			IF ABL:MASTER:학력 + ABL:MASTER:운동능력 + ABL:MASTER:감성 > 20
				PRINTFORML 그러고 보니, 이 근처에는 전망이 좋은 언덕이 있었을 것이다.
				PRINTFORMW 거기에 가면, 혼잡에 시달리지 않아도 되지 않을까?
				PRINTFORMW ............
				PRINTFORMW ........
				PRINTFORMW ....
				PRINTFORMW 생각한 대로, 주위에는 사람의 그림자도 거의 없다. 불꽃놀이에는 오히려 가까워질 정도로, 여기에서라면 염려 없이 즐길 수 있을 것 같다.
				SELECTCASE 1 ;우선 CuCoPa 갖추어져 있으면 좋아
					CASE TALENT:(targets:0):색기 || TALENT:(targets:0):치유계 || TALENT:(targets:0):애교
						tempString = 넋을 잃고 웃음을 띄우고 있다。
					CASE TALENT:(targets:0):청초 || TALENT:(targets:0):보이쉬 || TALENT:(targets:0):쿨함
						tempString = 즐거운 듯이 눈으로 쫓고 있다。
					CASE TALENT:(targets:0):천연 || TALENT:(targets:0):쾌활 || TALENT:(targets:0):어린애같음
						tempString = 흥분해 소란을 피우고 있다。
					CASEELSE
						tempString = 미소지어 응시하고 있다。
				ENDSELECT
				PRINTFORMW %CALLNAME:(targets:0)%도 이런 곳에서 보는 것은 처음 같아, 불꽃이 쏘아질 때마다 %tempString%
				PRINTFORMW 그런 %조사처리(CALLNAME:(targets:0),"를")% 예쁘다, 라고 칭찬하면, 이번엔 새빨갛게 되어 수줍어하고 있다….
				PRINTFORML
				PRINTFORMW …이윽고, 마지막 불꽃놀이도 끝나, 사람의 물결이 흩어지기 시작했다.
				IF mode == 0
					PRINTFORMW 슬슬 빠질 때일 것이다.
					PRINTFORMW 돌아갈 채비를 하면서 %CALLNAME:(targets:0)%에게 감상을 물어보면, 매우 즐거웠다는 대답이 돌아왔다.
					PRINTL
					CALL GET_EXP(targets:0,"애정경험",25)
					RETURN 1

				ELSE
					PRINTFORMW %GET_TARGETS_CALLS(targets)%도 돌아갈 채비를 시작했지만, 글쎄, 그렇게 무른 주인이라고 생각하는 걸까.
					PRINTFORM 손을 멈추고 유카타를 풀어헤치라고 말하면, %조사처리(CALLNAME:(targets:0),"는")%
					SELECTCASE 1
						CASE ABL:(targets:0):노출증 > 3
							PRINTFORMW 흥분에 넋을 잃고 눈동자를 물기를 띠며, 네, 라고 대답했다.
						CASE TALENT:(targets:0):음란 || TALENT:(targets:0):창녀 || TALENT:(targets:0):동화 || TALENT:(targets:0):모판
							PRINTFORMW 기대에 눈을 빛내며, 네, 라고 대답했다.
						CASE TALENT:(targets:0):예속
							PRINTFORMW 조금 놀란 것처럼 눈을 크게 뜨지만, 솔직하게 네, 라고 대답했다.
						CASEELSE
							PRINTFORMW 새파랗게 되어 고개를 숙이고, 작게 네, 라고 대답했다.
					ENDSELECT
				ENDIF
				break
			ENDIF
			;조건을 채우지 않는 경우는 아무것도 하지 않는다
		CASEELSE
			;아무것도안한다
	ENDSELECT
WEND
PRINTL

;-----------------------------------------------------------------페이즈 3:야외플레이

IF mode == 4
	PRINTFORML 그늘이긴 하지만, 구경꾼들이 모여 있는 장소의 바로 근처.
ELSE
	PRINTFORML 어두워서 잘 보이지는 않지만, 전망이 좋아 어디에서도 보여져 버리는 언덕위.
ENDIF
PRINTFORMW 거기서 유카타를 풀어헤치라고 말하면, %조사처리(GET_TARGETS_CALLS(targets),"는")% 한동안 머뭇머뭇 하고 있었지만, 곧 \@TALENT:(targets:0):복종 || TALENT:(targets:0):예속 ? 체념한 것처럼 # 열중한 얼굴로 \@ 스스로 띠를 풀기 시작했다.
FOR index,0,2
	IF targets:index > 0
		SELECTCASE equipedItem:index
			CASE -1
				;아무것도안한다
			CASE GETNUM(ITEM, "밧줄")
				PRINTFORM 부드러운 살갗에 밧줄을 먹혀든
			CASE GETNUM(ITEM, "로터"),GETNUM(ITEM, "클리캡")
				PRINTFORM 클리토리스의 진동에 흠뻑 젖은
			CASE GETNUM(ITEM, "바이브")
				PRINTFORM 꿈틀거리는 바이브를 제대로 삼킨
			CASE GETNUM(ITEM, "애널바이브")
				PRINTFORM 애널로 바이브를 단단히 조인
			CASE GETNUM(ITEM, "유두캡")
				PRINTFORM 유두를 잔뜩 발기시킨
			CASE GETNUM(ITEM, "촉수옷")
				PRINTFORM 촉수에게 마구잡이로 괴롭혀진
		ENDSELECT

		PRINTFORM %CALLNAME:(targets:index)%\@ index==0 && targets:1>0 ? %조사만처리(CALLNAME:(targets:index),"와")% # 의 아름다운 나신이, 밤에 떠오른다….\@
	ENDIF
NEXT
FOR index,0,2
	IF targets:index > 0
		PRINTL
		CALL GET_JUEL(targets:index,getJuelName:index,1000)
		CALL GET_JUEL(targets:index,"치정",1000)
		CALL GET_JUEL(targets:index,"욕정",1000)
		CALL GET_JUEL(targets:index,"굴복",1000)
		PRINTW
	ENDIF
NEXT

FOR index,0,2
	IF targets:index > 0
		IF targets:1 > 0
			PRINTFORML \@ index == 0 ? 우선은, # 다음은, \@ %CALLNAME:(targets:index)%의 차례다.
		ELSE
			PRINTFORM %CALLNAME:(targets:index)%에게
		ENDIF
		PRINTFORML \@ mode == 4 ? 건물의 벽 # 나무 \@에 손을 붙이고 엉덩이를 높게 들어올리도록 명령한다.
		PRINTFORML 말해진 대로 %조사처리(CALLNAME:(targets:index),"가")% 엉덩이를 들어올리자,%CALLNAME:(targets:index)%의 부끄러운 장소가 공공연하게 노출되었다.
		SELECTCASE equipedItem:index
			CASE GETNUM(ITEM, "바이브")
				PRINTFORML 그리고, 그 질에서 꿈틀거리는 바이브는 1초도 쉬는 일 없이, %CALLNAME:(targets:index)%에게 계속해서 쾌락을 보내고 있다.
			CASE GETNUM(ITEM, "애널바이브")
				PRINTFORML 그리고, 그 애널에 깊게 박힌 애널바이브는 질척이는 소리와 함께 꿈틀거리며, %조사처리(CALLNAME:(targets:index),"를")% 몰아세우고 있다.
		ENDSELECT
		IF ABL:(targets:index):노출증 >= 3
			PRINTFORM 전희의 필요도 없을만큼 흠뻑 젖은
		ELSE
			PRINTFORM 공포에 떨리는
		ENDIF
		IF equipedItem:index != GETNUM(ITEM, "애널바이브") && !TALENT:(targets:index):처녀 && !TALENT:(targets:index):남자
			PRINTFORM 질
		ELSE
			PRINTFORM 애널
		ENDIF
		IF equipedItem:index == GETNUM(ITEM, "바이브") || equipedItem:index == GETNUM(ITEM, "애널바이브")
			PRINTFORM 로부터 바이브를 뽑아 내, 즉시 그곳
		ENDIF
		PRINTFORML 에 삽입해 주면, 필사적으로 신음소리를 참으면서 움찔움찔 페니스를 단단히 조여 왔다.
		PRINTFORMW %조사처리(CALLNAME:(targets:index),"는")% 손으로 입을 누르면서, 눈 깜짝할 사이에 절정에 이르렀다.
		PRINTL

		IF !TALENT:(targets:index):처녀 && !TALENT:(targets:index):남자
			CALL GET_JUEL(targets:index,"쾌Ｖ",1500)
		ELSE
			CALL GET_JUEL(targets:index,"쾌Ａ",1500)
		ENDIF
		CALL GET_JUEL(targets:index,"치정",1500)
		CALL GET_JUEL(targets:index,"욕정",1500)
		CALL GET_JUEL(targets:index,"굴복",500)
		PRINTW
	ENDIF
NEXT

IF (targets:0 > 0 && ABL:(targets:0):봉사정신 >= 3) || (targets:1 > 0 && ABL:(targets:1):봉사정신 >= 3)
	PRINTFORML 이번엔 %마스터호칭이% 지면에 드러누워, 우뚝 솟은 페니스를 물게 했다.
	FOR index,0,2
		IF targets:index > 0
			IF !TALENT:(targets:index):처녀 && !TALENT:(targets:index):남자
				PRINTFORML 흠뻑 젖은 질에 페니스를 맞아들인 것 만으로, 무심코 목소리를 높일 것 같게 된 %CALLNAME:(targets:index)%。
				PRINTFORML 입을 억누르며, 소리를 흘리지 않게 계속 참으면서, 견디지 못할 정도로 엉덩이를 격렬하게 쳐박는다.
			ELSEIF ABL:(targets:index):Ａ감각 >= 3
				PRINTFORML 애널로 페니스를 단단히 조이며, 표정을 녹아내리게 하는 %CALLNAME:(targets:index)%。
				PRINTFORML 부정의 구멍에서 느껴지는 금단의 쾌락에, 침을 흘리며 엉덩이를 계속 흔든다.
			ELSE
				PRINTFORML 츄릅츄릅 상스러운 소리를 내면서 페니스를 빠는 %CALLNAME:(targets:index)%。
				PRINTFORML 황홀한 그 표정은, 음란한 창녀 그 자체다.
			ENDIF
		ENDIF
	NEXT
	PRINTL
	PRINTFORM \@ targets:1 > 0 ? 두 사람에 걸친 격렬한 # 격렬한 \@ 공격에, %CALLNAME:MASTER%도 길게 참지 못하고, %CALLNAME:(targets:0)%의
	IF !TALENT:(targets:0):처녀 && !TALENT:(targets:0):남자
		PRINTFORM 질내
	ELSEIF ABL:(targets:0):Ａ감각 >= 3
		PRINTFORM 애널
	ELSE
		PRINTFORM 질내
	ENDIF
	PRINTFORMW 에 대량의 정액을 토해냈다….
	FOR index,0,2
		IF targets:index > 0
			PRINTL
			IF !TALENT:(targets:index):처녀 && !TALENT:(targets:index):남자
				CALL GET_JUEL(targets:index,"쾌Ｖ",1000)
			ELSEIF ABL:(targets:0):Ａ감각 >= 3
				CALL GET_JUEL(targets:index,"쾌Ａ",1000)
			ENDIF
			CALL GET_JUEL(targets:index,"치정",2000)
			CALL GET_JUEL(targets:index,"욕정",500)
			CALL GET_JUEL(targets:index,"온순",2000)
			CALL GET_JUEL(targets:index,"습득",2000)
			PRINTW
		ENDIF
	NEXT
ENDIF
PRINTW

IF (targets:0 > 0 && ABL:(targets:0):순종 >= 3) || (targets:1 > 0 && ABL:(targets:1):순종 >= 3)
	PRINTFORML 이번엔 %GET_TARGETS_CALLS(targets)%에게 \@ mode == 4 ? 벽을 # 나무를 \@ 등지고 앉게 해 스스로의 부끄러운 장소를 드러내게 한다.
	PRINTFORML %CALLNAME:MASTER%의 시선이 소중한 곳을 어루만지는 것만으로, %조사처리(GET_TARGETS_CALLS(targets),"는")% 신체를 진동시켰다….
	FOR index,0,2
		IF targets:index > 0
			PRINTFORM %CALLNAME:(targets:index)%의
			IF !TALENT:(targets:0):처녀 && !TALENT:(targets:index):남자
				PRINTFORM 질
			ELSEIF ABL:(targets:0):Ａ감각 >= 3
				PRINTFORM 애널
			ELSE
				PRINTFORM 입
			ENDIF
			PRINTFORMW 에 천천히 페니스를 삽입하면, %조사처리(CALLNAME:(targets:index),"는")% 도망칠 길이 없는 쾌락에 표정을 녹아내리게 한다….
		ENDIF
	NEXT
	FOR index,0,2
		IF targets:index > 0
			PRINTL
			IF !TALENT:(targets:index):처녀 && !TALENT:(targets:index):남자
				CALL GET_JUEL(targets:index,"쾌Ｖ",1500)
			ELSEIF ABL:(targets:0):Ａ감각 >= 3
				CALL GET_JUEL(targets:index,"쾌Ａ",1500)
			ENDIF
			CALL GET_JUEL(targets:index,"치정",2500)
			CALL GET_JUEL(targets:index,"욕정",1000)
			CALL GET_JUEL(targets:index,"굴복",2000)
			PRINTW
		ENDIF
	NEXT
ENDIF
PRINTL

IF (targets:0 > 0 && ABL:(targets:0):욕망 >= 3) || (targets:1 > 0 && ABL:(targets:1):욕망 >= 3)
	IF mode == 4
		PRINTFORML 바로 옆에 많은 사람이 있는 장소에서 범해지고 있다는 사실.
	ELSE
		PRINTFORML 어딘가에서 보여지고 있을지도 모르는 장소에서 범해진다는 사실.
	ENDIF
	PRINTFORMW 그 이상함에 머릿속이 완전히 녹아내린 %조사처리(GET_TARGETS_CALLS(targets),"는")%, 그러고도 발정해 버린 암컷의 얼굴로 %마스터호칭을% 계속 요구했다….

	FOR index,0,2
		IF targets:index > 0
			PRINTL
			CALL GET_JUEL(targets:index,"치정",2500)
			CALL GET_JUEL(targets:index,"욕정",1000)
			CALL GET_JUEL(targets:index,"굴복",2000)
			CALL GET_JUEL(targets:index,"온순",2000)
			PRINTW
		ENDIF
	NEXT
ENDIF
PRINTL

PRINTFORMW 그대로, 한밤중이 되어 주위의 인기척이 없어질 때까지, %마스터호칭과% %조사처리(GET_TARGETS_CALLS(targets),"는")% 서로의 신체를 계속 탐냈다….
RETURN 1

@COUNT_CONTACTABLE_FRIEND(targetChara)
#FUNCTION
#DIM index
#DIM targetChara
#DIM charaNo
#DIM DYNAMIC answer
FOR index,0,5
	charaNo = 1005 + index
	SIF CFLAG:targetChara:charaNo <= 0
		CONTINUE
	SIF IS_TAKEABLE_PART_SUMMER_FESTIVAL(targetChara,CFLAG:targetChara:charaNo)
		answer++
NEXT
RETURNF answer

@IS_TAKEABLE_PART_SUMMER_FESTIVAL(targetCharaIndex,friendCharaNo)
#FUNCTION
#DIM targetCharaIndex
#DIM friendCharaNo
#DIM friendCharaIndex
friendCharaIndex = GETCHARA(friendCharaNo)
RETURNF RELATION:targetCharaIndex:friendCharaNo > 100 && (friendCharaIndex > 0 && CFLAG:friendCharaIndex:51 == 0 && CFLAG:friendCharaIndex:53 == 0 && !IS_UNCONTACTABLE(friendCharaIndex))


code:
@BEFORE_TAIKUSAI
;기말 시험전의 여러 가지
PRINTFORML ……이번 주말은 체육제다.
A = 0
FLAG:2000 = 1
REPEAT CHARANUM
	IF TALENT:COUNT:교제 && IS_GO_SAMESCHOOL(COUNT) && !IS_UNCONTACTABLE(COUNT)
		A += 1
	ENDIF
REND
IF A > 0
	PRINTFORML %CALLNAME:MASTER%의 휴대폰에 메일이 도착해 있다……
	REPEAT CHARANUM
		IF TALENT:COUNT:교제 == 1 && IS_GO_SAMESCHOOL(COUNT) && !IS_UNCONTACTABLE(COUNT)
			PRINTFORML %COUNT이름으로%부터, 체육제의 준비를 부탁받았으므로 도와 주지 않겠냐는 메일이다.
			PRINTFORML 유혹에 넘어간다면, 체육제 개시까지의 시간을 사용하게 되겠지만……
		ENDIF
	REND
	P = 3
	CALL DISPLAY_COMMON , 16
	IF RESULT == 999
		PRINTFORML ……1주일이나 이런 일을 하고 있을 수는 없다.
		CALL GET_CALENDER
		RETURN 0
	ENDIF

	PRINTFORML %NAME:RESULT%의 부탁을 들어줘, 체육제의 준비를 돕기로 했다.
	PRINTFORML %NAME:RESULT%의 호감도가 올랐다.
;호감도의 상승
	CFLAG:RESULT:2 += 200
	IF TALENT:RESULT:연모 == 1 || TALENT:RESULT:친애 == 1
;애정경험
		PRINTFORML 애정경험 + 20
		EXP:RESULT:23 += 20
		IF (ABL:RESULT:운동능력 > ABL:MASTER:운동능력) && ABL:MASTER:운동능력 < 7
			PRINTFORML %조사처리(NAME:RESULT,"와")% 함께 일해, 조금은 신체를 단련할 수 있었을까.
			PRINTFORMW ―%CALLNAME:MASTER%의 운동능력이 올랐다―
			ABL:MASTER:운동능력 += 1
		ENDIF
	ENDIF
	FLAG:2000 = 2
ELSE
	PRINTFORML ……뭐, %CALLNAME:MASTER%에겐 관계 없는 일이다……
ENDIF
CALL GET_CALENDER

@TAIKUSAI,ARG
IF ARG == 2
;체육제당일
	PRINTFORML ……체육제 당일, 오늘은 맑게 개였다.
	PRINTFORML %CALLNAME:MASTER%의 조력도 있어, 준비는 만전이다.
	PRINTFORML 뒤에서 일하고 있던 %CALLNAME:MASTER%의 모습을 보는 사람은 봐 주고 있는 것 같아, 말을 걸어 주는 사람도 있다.
	REPEAT CHARANUM
		IF IS_GO_SAMESCHOOL(COUNT) && !IS_UNCONTACTABLE(COUNT)
;같은 학교
			IF CFLAG:COUNT:1000 == 7
;설득하고 있는 상대
				PRINTFORML %NAME:COUNT%의 호감도가 조금 올랐다.
				CFLAG:COUNT:1010 += 5
			ENDIF
			IF TALENT:COUNT:교제 == 1
				PRINTFORML %NAME:COUNT%의 호감도가 조금 올랐다.
;호감도의 상승
				CFLAG:COUNT:2 += 50
				IF TALENT:COUNT:연모 == 1 || TALENT:COUNT:친애 == 1
	;애정경험
					PRINTFORML 애정경험 + 5
					EXP:COUNT:23 += 5
				ENDIF
			ENDIF
		ENDIF
	REND
ELSE
	PRINTFORML ……체육제 당일, 오늘은 맑게 개였다.
ENDIF
PRINTFORML -체육제로 1일 경과했습니다―
CALL GET_CALENDER