code:
@CHRISMAS
PRINTFORML 今日はクリスマスイブだ。
LOCAL = 0
REPEAT CHARANUM
	;主人公は排除
	SIF COUNT == 0
		CONTINUE
	;【연모】【친애】持ちでないキャラは排除
	SIF TALENT:COUNT:연모 == 0 && TALENT:COUNT:친애 == 0
		CONTINUE
	SIF IS_UNCONTACTABLE(COUNT)
		CONTINUE
	LOCAL += 1
REND
IF LOCAL > 0
	PRINTFORML %CALLNAME:MASTER%의 메일로 크리스마스 데이트 권유가 와 있다。
	P = 5
	CALL DISPLAY_COMMON , 16
	SIF RESULT == 999
		GOTO CHRISMAS_LOOP3

	TARGET = RESULT
	PRINTFORMW %타겟이름과% 크리스마스를 보냅니다。
	CUSTOMDRAWLINE ‥
	PRINTFORML 그 날 밤、일루미네이션이 비추는 광장에서 %타겟이름과% 만나기로 했다。
	PRINTFORML %마스터호칭이% 광장을 찾았을 때、%타겟이름은% 장식된 크리스마스트리 아래에서 안절부절 못하고 있다。
	PRINTFORML 조금 일찍 와서 기다린듯이、차가워진 몸은 가늘게 떨리고 있다。
	PRINTFORML %NAME:TARGET%의 손에 쥐어져 있는 건 선물일까？
	$CHRISMAS_LOOP2
	PRINTFORML (그녀를 위해 선물을 준비했습니까？）
	SIF MONEY >= 1000
		PRINTFORML  [0] - 1000엔어치 과자
	SIF MONEY >= 5000
		PRINTFORML  [1] - 5000엔어치 일용품
	SIF MONEY >= 10000
		PRINTFORML  [2] - 10000엔짜리 악세서리
	PRINTFORML  [100] - 건네줄 물건은 없다
	INPUT
	LOCAL = 0
	IF RESULT == 0 && MONEY >= 1000
		PRINTFORML %마스터호칭은% %NAME:TARGET%에게、고급 양과자 세트를 건넸다。
		MONEY -= 1000
		LOCAL = 1
	ELSEIF RESULT == 1 && MONEY >= 5000
		PRINTFORML %마스터호칭은% %NAME:TARGET%에게、눈여겨본 일용품을 건넸다。
		MONEY -= 5000
		LOCAL = 2
	ELSEIF RESULT == 2 && MONEY >= 10000
		PRINTFORML %마스터호칭은% %NAME:TARGET%에게、액세서리를 건넸다。
		MONEY -= 10000
		LOCAL = 3
	ELSEIF RESULT != 100
		GOTO CHRISMAS_LOOP2
	ENDIF
	IF LOCAL > 0
;선물を送った結果
		PRINTFORML %타겟이름은% 기쁜 듯이 선물을 받았다。
;ストレス半減、체력、기력向上
		LOCAL *= 50
		MAXBASE:TARGET:0 += LOCAL
		BASE:TARGET:0 += LOCAL
		MAXBASE:TARGET:1 += LOCAL
		BASE:TARGET:1 += LOCAL
		PRINTFORML %NAME:TARGET%의 체력、기력이 향상됐다。
;애정경험
		PRINTFORML 애정경험 + {LOCAL}
		EXP:TARGET:23 += LOCAL
;스트레스치の低下
		CFLAG:TARGET:10 /= 2
		PRINTFORML 스트레스가 저하되었다。
	ENDIF
	PRINTFORMW 한동안 두 사람의 달콤한 시간이 흘렀다。그리고 밤이 온다。
	FLAG:2000 = 1
	FLAG:10 = 3
ELSE
;연모持ちがいない = 誰からも誘いが来ない or 断った
	$CHRISMAS_LOOP3
	LOCAL = 0
	REPEAT CHARANUM
		;主人公は排除
		SIF COUNT == 0
			CONTINUE
		;【음란】【복종】持ちでないキャラは排除
		SIF !IS_NOTLOVE_FALLEN(COUNT)
			CONTINUE
		LOCAL += 1
	REND
	IF LOCAL > 0
		P = 6
		CALL DISPLAY_COMMON , 16
		IF RESULT == 999
			FLAG:2000 = 2
			CALL GET_CALENDER
			RETURN 1
		ENDIF

		TARGET = RESULT
;助손を外す
		ASSI = -1

		PRINTFORMW %타겟이름을% 크리스마스에 불러낸다。
		CUSTOMDRAWLINE ‥
		PRINTFORML 그 날 밤、일루미네이션이 비추는 광장에서 %타겟이름과% 만나기로 했다。
		PRINTFORML 일부러 늦은 %마스터호칭이% 광장을 방문했을 때、%타겟이름은% 장식된 크리스마스트리 아래에서 불안해하고 있다。
		PRINTFORML 차갑게 식은 몸이 추위에 떨리고 있다。
		$CHRISMAS_LOOP5
		PRINTFORML (그녀를 위해 선물을 준비했습니까？）
		IF TALENT:음란 == 1 || TALENT:창녀 == 1
			SIF MONEY >= 1000
				PRINTFORML  [0] - 1000엔어치 로터류
			SIF MONEY >= 5000
				PRINTFORML  [1] - 5000엔어치 각종 바이브 세트
			SIF MONEY >= 10000
				PRINTFORML  [2] - 10000엔짜리 야한 옷
		ELSE
			SIF MONEY >= 1000
				PRINTFORML  [0] - 1000엔자리 볼 개그
			SIF MONEY >= 5000
				PRINTFORML  [1] - 5000엔짜리 눈가리개와 본디지
			SIF MONEY >= 10000
				PRINTFORML  [2] - 10000엔짜리 구속복
		ENDIF
		PRINTFORML  [100] - 건네줄 물건은 없다
		INPUT
		LOCAL = 0
		IF (RESULT == 0 && MONEY >= 1000) || (RESULT == 1 && MONEY >= 5000) || (RESULT == 2 && MONEY >= 10000)
			PRINTFORML %마스터호칭은% %NAME:TARGET%에게、눈여겨본 선물을 건넸다。
			SIF RESULT== 0
				MONEY -= 1000
			SIF RESULT== 1
				MONEY -= 5000
			SIF RESULT== 2
				MONEY -= 10000
			LOCAL = RESULT
		ELSEIF RESULT != 100
			GOTO CHRISMAS_LOOP5
		ENDIF
		IF LOCAL > 0
	;ストレス半減、체력、기력向上
			LOCAL *= 100
			IF TALENT:음란 == 1 || TALENT:창녀 == 1
				MAXBASE:TARGET:1 += LOCAL
				BASE:TARGET:1 += LOCAL
				PRINTFORML %NAME:TARGET%의 기력이 향상됐다。
			ELSE
				MAXBASE:TARGET:0 += LOCAL
				BASE:TARGET:0 += LOCAL
				PRINTFORML %NAME:TARGET%의 체력이 향상됐다。
			ENDIF
;스트레스치の低下
			CFLAG:TARGET:10 *= 2
			CFLAG:TARGET:10 /= 3
			PRINTFORML 스트레스가 저하되었다。
		ENDIF
		PRINTFORMW 한동안 두 사람의 시간이 흘렀다。그리고 밤이 왔다。
		CALL DIARY_SET,@"%타겟이름과% 크리스마스를 함께 보냈다。"
		FLAG:2000 = 1
		FLAG:10 = 3
	ENDIF
ENDIF


code:
@CLUB_GASHUKU(dayCount = 5)
#DIM dayCount
#DIM index
#DIM memberList,100
#DIM anotherSchoolMemberList,100
#DIM memberCount
#DIM favorLevel
#DIM ret
SIF CFLAG:MASTER:1002 == 0 || TALENT:MASTER:귀가부
	RETURN 0
SIF CFLAG:MASTER:1002 == 9999 ;適当なクラブ
	RETURN 0
PRINTFORML 오늘부터 \@ CFLAG:MASTER:1002 ? %STR:(CFLAG:MASTER:1002)% # 클럽 \@ 의 합숙 예정이 잡혀 있다。
PRINTFORML {dayCount}일간 계속 묵을 예정인데……
;同じ学校・부활동・課外活動への関心がある程度あるキャラを抽出し、memberCountになるまで削る。(いれば)最低二人保証。
memberCount = GET_RULED_CHARAS("index != MASTER && IS_SAME_CLUB(index) && IS_GO_SAMESCHOOL(index) && ABL:index:관심：과외활동 > (RAND:6 + 1) && !IS_UNCONTACTABLE(index)",memberList)
IF memberCount > 0
	memberCount = MIN(memberCount,RAND:memberCount + 2)
	WHILE GET_LIST_LAST_ELEMENT(memberList) + 1 > memberCount
		ret = LIST_DELETE(memberList,RAND:(GET_LIST_LAST_ELEMENT(memberList) + 1))
	WEND
	;「らしい」と不確定情報にすることにより合宿期間中でも会えて問題ない
	PRINTFORM 같은 부활동의
	FOR index,0,memberCount
		PRINTFORM %NAME:(memberList:index)%
		SIF index != memberCount - 1
			PRINT 、
	NEXT
	PRINTFORML 도 참가하는 것 같다････
ENDIF
PRINTL
;こっちは溢れてもいいや
ret = GET_RULED_CHARAS("index != MASTER && IS_SAME_CLUB(index) && !IS_GO_SAMESCHOOL(index) && ABL:index:관심：과외활동 > (RAND:4 + 1) && !IS_UNCONTACTABLE(index)",anotherSchoolmemberList)

PRINTL 어떻게 하시겠습니까？
PRINTL  [2] - 한다면 진지하게
PRINTL  [1] - 기분 전환하는 김에
PRINTL  [0] - 게으름 피우자
WHILE 1
	INPUT
	favorLevel = RESULT
	SELECTCASE favorLevel
		CASE 0
			PRINTFORML %마스터호칭은% 게으름 피우기로 결심했다。
			PRINTFORMW 기껏、변명거리나 생각해 두자。
			RETURN 0
		CASE 1,2
			CALLFORM CLUB_EVENT_FAVOR{favorLevel}(memberList,anotherSchoolMemberList,dayCount)
			SIF RESULT == 1
				RETURN 1
			CALL CLUB_EVENT_STATUS_UP(memberList,dayCount,favorLevel)
			BREAK
		CASEELSE
			;아무것도안한다
	ENDSELECT
WEND
RETURN 1

@CLUB_EVENT_FAVOR1(memberList,anotherSchoolMemberList,dayCount)
#DIM REF memberList
#DIM REF anotherSchoolMemberList
#DIM dayCount
#DIM index
#DIM targetChara
#DIM subChara
#DIM sexCount
#DIM masterValue
#DIM targetValue
PRINTFORML 방학동안의 예정을 생각하고 있던 참에、잠깐 여행간다고 생각하면 딱 알맞다。
PRINTFORMW %조교자호칭은% 기분 전환으로 합숙에 참가하기로 했다。
PRINTL
DRAWLINE
IF GET_LIST_LAST_ELEMENT(memberList) != -1
	;別の参加者がいる場合
	PRINTFORML 빡빡한 스케줄을 마친、밤。
	PRINTFORML 합숙소의 큰 방에서 부원들이 화기애애하다。
	PRINTFORMW 로비나 다른 곳을 배회하고 있는 부원도 있기 때문에、지금이라면 이 자리를 슬쩍 빠져나와도 들키지 않을 것 같다……
	PRINTL
	WHILE 1
		PRINTFORML 누구에게 말을 걸까？
		FOR index,0,GET_LIST_LAST_ELEMENT(memberList) + 1
			PRINTFORML [{index,3,RIGHT}] - %NAME:(memberList:index)%
		NEXT
		PRINTFORML [100] - 역시 그만둔다
		INPUT
		SELECTCASE RESULT
			CASE 100
				PRINTFORML 그렇다고는 해도 역시 한낮의 피로가 남아 있다。
				PRINTFORMW 적당히 담소를 계속한 뒤、%마스터호칭은% 내일을 대비해 일찌감치 잤다。
				PRINTL
				PRINTFORML {dayCount}일간、그런대로 클럽 활동에 몰두했다。
				RETURN 0
			CASE 0 TO GET_LIST_LAST_ELEMENT(memberList) + 1
				targetChara = memberList:RESULT
				BREAK
			CASEELSE
				;아무것도안한다
		ENDSELECT
	WEND

	IF IS_ROUTE_IN(targetChara)
		;調教可能キャラの場合
		PRINTFORML %조사처리(NAME:targetChara,"을")% 합숙소 화장실에 데리고 들어가서、문을 잠근다。
		PRINTL
		IF TALENT:targetChara:교제 || IS_LOVING(targetChara)
			PRINTFORM 혹시나 하고 %CALLNAME:MASTER%의 의도를 눈치채고 볼을 붉히면서 쓴웃음을 짓는
		ELSEIF (TALENT:targetChara:강간 || TALENT:targetChara:협박) && !IS_FALLEN(targetChara)
			PRINTFORM 어차피 몸이 목적이겠지 하고 지긋지긋하다는 표정으로 외면한
		ELSE
			PRINTFORM 단 둘이 되고 나서는 완전히 암컷의 얼굴을 띄운
		ENDIF
		PRINTFORML  %타겟호칭을%、%마스터호칭은% 그대로 꽉 껴안았다。
		PRINTFORM 방금 목욕을 끝낸 참인
		CALL HAIRCOLOR, targetChara
		PRINTFORM 에 코를 묻고、샴푸의 잔향을 맡으면서 %CALLNAME:targetChara%의
		IF TALENT:targetChara:거유 || TALENT:targetChara:폭유
			PRINT 풍만한 젖가슴을 쥐고、
		ELSEIF TALENT:targetChara:빈유 || TALENT:targetChara:절벽
			PRINT 얇은 젖가슴 끝을 집고、
		ELSE
			PRINT 가슴을 주물러、
		ENDIF
		PRINTFORML 천천히 애무하며 성감을 높여간다。
		IF TALENT:targetChara:교제 || IS_LOVING(targetChara)
			PRINTFORML 가슴을 정성껏 주물러 주며 사랑의 말을 속삭이면、%타겟캐릭은% 기쁜 듯이 눈을 가늘게 뜨고 몸을 비벼온다。
		ELSEIF TALENT:TARGET:강간 || TALENT:TARGET:협박 && !IS_FALLEN(targetChara)
			PRINTFORML 그런 짓은 됐으니까 빨리 끝내 달라고 %타겟캐릭은% 싫어하지만、목소리는 이미 욕정한 듯 달아올라 있다。
		ELSE
			PRINTFORML %타겟캐릭은% 달콤한 소리를 내며 몸을 비비 꼬고 있다。
		ENDIF
		PRINTFORMW 그 모습에 저도 모르게 참을 수 없게 된 %마스터호칭은% \@ TALENT:MASTER:남자 || TALENT:MASTER:후타나리 ? 페니스를 꺼내었 # 페니스밴드를 장착했 \@다。
		PRINTFORML 속옷째로 학교 지정 저지를 벗기고、%CALLNAME:targetChara%의 뜨겁게 적신 비소에 페니스 \@ !TALENT:MASTER:남자 && TALENT:MASTER:후타나리 ? # 밴드 \@를 문지른다。
		PRINTFORML 누츄누츄、소리가 나며 성기 사이에 실이 그어졌다。
		IF TALENT:targetChara:처녀 || EXP:targetChara:Ｖ경험 < 20
			PRINTFORM %타겟캐릭은% 설마 이런 곳에서라
			SIF TALENT:targetChara:처녀
				PRINTFORM 처녀를 빼앗긴다
			SIF EXP:targetChara:0 < 20
				PRINTFORM 실전 행위를 한다
			PRINTFORM 고 순간 긴장하지만 삽입할 생각은 없다는 것을 알게 되자
			IF TALENT:targetChara:교제 || IS_LOVING(targetChara) || ((TALENT:targetChara:강간 || TALENT:targetChara:협박) && !IS_FALLEN(targetChara))
				PRINTFORMW 가슴을 쓸어 내리며 가랑이에서 힘을 뺐다。
			ELSE
				PRINTFORMW 별로 상관없었는데、라며 애처로운 입술을 곤두세웠다。
			ENDIF
			PRINTL
			PRINTFORMW 페팅은 사정할 때까지 계속되며、%마스터호칭은% %CALLNAME:targetChara%의 녹아내린 질구를 마음껏 즐겼다……
		ELSE
			PRINTFORML 녹아내린 질구가 페니스를 부드럽게 물고、피임구를 사용하지 않았기에 %타겟캐릭은% 혈색이 바뀌지만、쑤컹쑤컹 완급을 조절하며 질벽을 문질러 올리면 곧바로 턱을 젖히고 쾌락에 져버렸다。
			PRINTFORML 대면입위로 %CALLNAME:targetChara%의 맨엉덩이를 움켜쥐고 정면에서 힘껏 허리를 부딪쳤다。
			PRINTFORML 화장실 밖에서는 부원들과 다른 학교 학생들의 말소리가 들린다。
			PRINTFORMW %타겟캐릭은% 소리를 지르지 않으려고 두 손으로 입을 막고 있지만、추삽질하는 외설스러운 물소리는 어쩔 수 없다。
			PRINTFORML 제발 아무도 눈치채지 못 하기를 %타겟캐릭은% 빌면서도、사정과 동시에 %마스터호칭이% 질속 깊은 곳을 찔러올리면、
			PRINTFORML 푸슛、하고 화려한 소리를 내면서 물을 뿜고 짐승같은 신음소리를 흘렸다。
			PRINTW 몇몇 은 귀에 거슬리는 비명에 눈살을 찌푸린 것 같던데、다행히도 목소리가 나온 곳까지는 눈치채지 못했다。

			PRINTL
			PRINTFORML 뒷수습을 마친 후 시치미를 떼고 큰방으로 향하는 도중、부원들이 잠들어 누운 뒤에 이어서 하고 싶다고 %마스터호칭이% 말하자、
			PRINTFORM %타겟캐릭은%
			IF TALENT:targetChara:교제 || IS_LOVING(targetChara)
				PRINTFORMW 믿을 수 없다며 격렬하게 거부하지만、결국에는 %CALLNAME:MASTER%의 설득에 넘어가 얼굴을 새빨갛게 물들이면서 고개를 끄덕였다。
			ELSEIF (TALENT:targetChara:강간 || TALENT:targetChara:협박) && !IS_FALLEN(targetChara)
				PRINTFORMW 날카롭게 %조교자호칭을%  째려보지만、거부할 수 없는 입장에 있다는 것은 자각하고 있다。
			ELSEIF ABL:targetChara:노출증 >= 4
				PRINTFORMW 모두가 있는 옆에서 창피를 당할 것을 기대하며、황홀한 표정을 짓는다。
			ELSE
				PRINTFORMW 어느 정도 기대를 하고 있었는지、깨끗이 정사의 약속을 받았다。
			ENDIF
			PRINTL
			IF ABL:targetChara:노출증 < 4
				PRINTFORMW 수 시간 후 %마스터호칭은% 같은 화장실에서 %타겟호칭과% 합류하고、남몰래 섹스를 즐겼다……
			ELSE
				PRINTFORMW 수 시간 후 %마스터호칭은%%CALLNAME:targetChara%의 안내로 여자 방에 들어가、그녀의 이불 안에서 슬로우 섹스를 하기로 작정했다。
				PRINTL
				PRINTFORMW ……팡、팡、팡、팡、팡、팡……
				PRINTFORML 얇은 이불 아래에서는 땀에 젖은 신체가 밀착하며、주위에 난폭한 숨결과 고기가 부딪치는 소리를 가늘고 길게 전달한다。
				PRINTFORM %타겟캐릭은% 페니스를 꽂히리면서、설마 정말로 다른 아이의 근처에서 할 거라고는 생각 못 했다고

				IF TALENT:targetChara:청초 || TALENT:targetChara:무기력 || TALENT:targetChara:보이쉬
					PRINTFORM 수치심 때문에 당장 울기 시작할 것 같지만、
				ELSEIF TALENT:targetChara:천연 || TALENT:targetChara:고결
					PRINTFORM 변태적인 교접에 저항감을 드러내고 있지만、
				ELSEIF TALENT:targetChara:전파계 || TALENT:targetChara:기가셈
					PRINTFORM 귓가에 얼굴을 가져가 %마스터호칭을% 비난하지만、
				ELSEIF TALENT:targetChara:색기 || TALENT:targetChara:치유계
					PRINTFORM 이제 와서 타이르듯이 작은 소리로 말하지만、
				ELSEIF TALENT:targetChara:쿨함
					PRINTFORM 평상시의 냉정함을 잃고 흐트러지고 있지만、
				ELSEIF TALENT:targetChara:어린애같음
					PRINTFORM 떼쓰듯이 신체를 비틀지만、
				ELSE
					PRINTFORM 눈을 치켜뜨고 작은 목소리로 %마스터호칭을% 나무라지만、
				ENDIF

				PRINTFORMW 추삽질마다 물방울을 흩뜨리는 비소의 젖은 상태로 보아、색다른 지금 상황에 그녀가 흥분하고 있다는 사실은 명확했다。
				IF EXP:Ｖ경험 > 50
					PRINTFORM 잔뜩 사용된
				ELSE
					PRINTFORM 아직 새것 같은
				ENDIF
				PRINTFORML 질벽을 밀어 헤쳐 치근치근 Ｇ스팟을 몰아세워주면 질름거리는、여러 번에 걸쳐 조금씩 오는 %CALLNAME:targetChara%의 경련이 밀어붙인 허리에 전해진다。
				PRINTFORML %타겟호칭은% 필사적으로 소리를 억누르고 있는 모양이지만、기습적으로 자궁구를 쿡 찌르면 간단히 절정했다。
				PRINTFORMW 이불을 밀어젖히듯이 지체를 휘며 한순간에 울려퍼지는、%CALLNAME:targetChara%의 날카로운 교성。
				PRINTFORML 성행위의 기색은 이미 숨길 방도도 없지만、여자 부원은 모두 한결같이 자는 척하며 비난하는 사람이 없다。
				PRINTL
				PRINTFORMW 열대야의 정사는 아직 계속된다……
			ENDIF
		ENDIF

		PRINTL
		PRINTFORMW ････････････
		PRINTFORMW ････････
		PRINTFORMW ････
		IF TALENT:TARGET:처녀
			PRINTFORML 이후에도 매일 밤 행해진 %타겟호칭과%의 밀회 때문에、두 사람 모두 낮의 부활동에는 그다지 열중하지 않았던 것 같다。
		ELSE
			PRINTFORML 이후에도 매일 밤 %타겟호칭과% 발정난 원숭이처럼 섹스했기 때문에、두 사람 모두 낮의 부활동에는 그다지 열중하지 않았던 것 같다。
		ENDIF
		PRINTFORMW 육욕을 채운 것 말고는 합숙의 수확은 적다……
		DRAWLINE
		IF TALENT:targetChara:교제
			CFLAG:COUNT:의존도 += 400
				IF TALENT:TARGET:연모 || TALENT:TARGET:친애
				PRINTFORML 애정경험 + 20
				EXP:COUNT:23 += 20
			ENDIF
		ENDIF
		sexCount = dayCount * 3 + RAND:dayCount
		IF !TALENT:targetChara:처녀
			EXP:targetChara:Ｖ경험 += sexCount
			JUEL:targetChara:쾌Ｖ += sexCount * 100
		ENDIF
		JUEL:targetChara:온순 += sexCount * 20
		JUEL:targetChara:욕정 += sexCount * 50
		JUEL:targetChara:굴복 += sexCount * 50
		JUEL:targetChara:치정 += sexCount * (ABL:targetChara:노출증 < 4 ? 20 # 50)
		RETURN 1
	ELSE
		;調教可能キャラ以外の場合
		PRINTFORML %조사처리(NAME:targetChara,"과")% 같은 부활동 동료로서 이야기할 기회를 얻었다････。
		;？？？「腹を割って話そう」
		IF CFLAG:targetChara:1000 < 3
			PRINTFORML %NAME:targetChara%의 정보를 얻었다
			CFLAG:targetChara:1000 = 3 ;RESEARCH_BASIC内で+1されるので3でよい。
			CALL RESEARCH_BASIC(targetChara,1)
		ELSEIF CFLAG:targetChara:1000 == 4
			IF TALENT:targetChara:경계 > 0
				PRINTFORML %타겟캐릭은%、조금도 의심하지 않고 이야기를 계속하고 있다。
				subChara = GET_RULED_SINGLE_CHARA("IS_FRIEND(" + TOSTR(targetChara) + ",index) && RELATION:" + TOSTR(targetChara) + ":(NO:index) > 110  && !IS_UNCONTACTABLE(index)")
				IF subChara > 0
					IF TALENT:subChara:교제
						PRINTFORML %타겟캐릭은%、%GET_RELATIONSHIP_TEXT(targetChara,subChara)%인 %조사처리(NAME:subChara,"과")% %마스터호칭과%의 관계에 흥미진진한 것 같다。
					ELSEIF IS_FALLEN(subChara)
						PRINTFORML %타겟캐릭은%、최근 %GET_RELATIONSHIP_TEXT(targetChara,subChara)%인 %NAME:subChara%의 모습이 이상한 것을 걱정하고 있는 것 같다。
					ELSEIF IS_NOTLOVE_ATTACKING(subChara)
						PRINTFORML %타겟캐릭은%、%GET_RELATIONSHIP_TEXT(targetChara,subChara)%인 %조사처리(NAME:subChara,"가")% 어두운 표정을 짓고 있는 것이 걱정스러운 모양이다。
					ELSEIF CFLAG:subChara:1000 < 3
						PRINTFORML %타겟캐릭은%、%GET_RELATIONSHIP_TEXT(targetChara,subChara)%인 %NAME:subChara%의 이야기를 하고 있다。
						PRINTFORML %NAME:subChara%의 정보를 얻었다
						CFLAG:subChara:1000 = MAX(CFLAG:subChara:1000 + (dayCount + 1) / 2,4)
						IF CFLAG:subChara:1000 == 4
							CFLAG:subChara:1000--
							CALL RESEARCH_BASIC(subChara,1)
						ENDIF
					ELSEIF CFLAG:subChara:1000 == 4
						PRINTFORML %타겟캐릭은%、%GET_RELATIONSHIP_TEXT(targetChara,subChara)%인 %NAME:subChara%의 이야기를 하고 있지만、특별히 새로운 정보는 없는 것 같다。
					ELSEIF CFLAG:subChara:1000 == 6 || CFLAG:subChara:1000 == 7
						PRINTFORML %타겟캐릭은%、%GET_RELATIONSHIP_TEXT(targetChara,subChara)%인 %NAME:subChara%의 이야기를 하고 있다。
						PRINTFORML 이건、향후의 \@ CFLAG:subChara:1000 == 6 ? 조사 # 교제 \@에 써먹을 수 있다････。
						CFLAG:subChara:1010 += dayCount / 2
					ENDIF
				ENDIF
			ELSE
				PRINTFORML %타겟캐릭은% 처음에는 경계했는지 입이 무거웠지만、점차 마음을 터놓는 모양이다。
				TALENT:targetChara:경계 = MAX(TALENT:targetChara:경계 - RAND:(dayCount / 2 + 1) - 1,0)
			ENDIF
		ELSEIF CFLAG:targetChara:1000 == 6
			;약점探し中
			masterValue = RAND:5 - 2 + ABL:MASTER:학력
			targetValue = MAX(10 + (masterValue > ABL:targetChara:학력) - (masterValue < ABL:targetChara:학력) + CALC_CHARA_SINGLE_DATA("TALENT",targetChara,"눈에띄고싶어함,인기,고고함*-1,친구많음"),1)
			PRINTFORML %NAME:targetChara%의 조사가 진행되었다。
			CFLAG:targetChara:1010 += (targetValue * (dayCount + 1) / 2)
			SIF PROTECT_VALUE_WEEKPOINT(MASTER,targetChara) < 0
				CALL FOUND_WEEKPOINT(targetChara)
		ELSEIF CFLAG:targetChara:1000 == 7
			PRINTFORML %조사처리(NAME:targetChara,"과")% 이야기할 기회를 얻었다。
			;입説き中
			masterValue = RAND:5 - 2 + GET_CLUB_USE_PALAM(MASTER)
			;流石に長すぎるので分割
			targetValue = 12 + (masterValue > GET_CLUB_USE_PALAM(targetChara)) * (2 + TALENT:targetChara:영애) - (masterValue > GET_CLUB_USE_PALAM(targetChara)) * (1 + TALENT:targetChara:영애 * 2)
			targetValue = MIN(targetValue + CALC_CHARA_SINGLE_DATA_RULED("TALENT",targetChara,"반항적*-1,RAND:3==0|솔직,RAND:3==0|츤데레*-1,RAND:3==0 && CFLAG:index:1010<50|감정부족*-1,RAND:3==0|호기심,RAND:3==0|보수적*-1,RAND:3==0|낙관적,RAND:3==0|비관적*-1,RAND:3==0|정조관념*-1,RAND:3==0 && CFLAG:index:1010<50|반하기쉬움*2,RAND:3==0|철벽*-2,RAND:3==0|남성혐오*-2,RAND:2==0 && TALENT:MASTER:남자|반항적*-1,RAND:3==0|청초*-1,RAND:2==0|쾌활,RAND:2==0|보이쉬,RAND:2==0|어린애같음,RAND:2==0|치유계,RAND:2==0|쿨함*-1,RAND:2==0|고고함*-1,CFLAG:index:1010<30|친구많음,CFLAG:index:1010>50|영애,RAND:2==0"),1)
			CFLAG:targetChara:1010 += (targetValue * (dayCount + 1) / 2)
		ENDIF
		RETURN 1
	ENDIF
ELSE
	PRINTFORMW 그렇게는 말해도 고문의 눈이 빛나고 있어 대충 때울 수 없다。
	PRINTL
	PRINTFORML {dayCount}일간、기껏 클럽 활동에 힘쓰기로 했다。
ENDIF
RETURN 0

@CLUB_EVENT_FAVOR2(memberList,anotherSchoolMemberList,daysCount)
#DIM REF memberList
#DIM REF anotherSchoolMemberList
#DIM daysCount
DRAWLINE
PRINTFORMW 불참가하는 것도 보기 안 좋다。%마스터호칭은% 기합을 넣고 합숙에 임하기로 했다。
PRINTL
PRINTFORML {daysCount}일간、착실히 클럽 활동에 힘썼다。
RETURN 0

@CLUB_EVENT_STATUS_UP(memberList,daysCount,favorLevel)
#DIM REF memberList
#DIM daysCount
#DIM favorLevel
#DIM index
#DIMS abilityName
#DIM ret
#DIM masterValue
#DIM targetValue
IF GET_CLUB_USE_PALAM(MASTER) < 8
	abilityName = %GET_CLUB_USE_PALAM_NAME(GET_CLUB_CATEGORY(CFLAG:MASTER:1002))%
	PRINTFORML 동아리 활동을 열심히 한 결과、%조사처리(abilityName,"가")% 올랐다。
	;부활동で加算される分も含めて11まで。
	ret = EVALUATE_SET("ABL:index:" + abilityName,MIN(GET_CLUB_USE_PALAM(MASTER) + favorLevel,11),MASTER)
ENDIF
;index,0 だとあなたが引っかかってしまう
FOR index,1,GET_LIST_LAST_ELEMENT(memberList) + 1
	PRINTFORML %조사처리(NAME:index,"와")% 같은 부활동 동료로서 접할 기회를 얻었다････。
	IF CFLAG:index:1000 < 3
		PRINTFORML %NAME:index%의 정보를 얻었다
		CFLAG:index:1000 = 3 ;RESEARCH_BASIC内で+1されるので3でよい。
		CALL RESEARCH_BASIC(index,1)
	ELSEIF CFLAG:index:1000 == 4
		PRINTFORML %조사처리(CALLNAME:index,"는"%)、아무것도 눈치채지 못하고 동아리에 열중하고 있는 것 같다。
	ELSEIF CFLAG:index:1000 == 5
		;H可能
		IF TALENT:index:교제
			PRINTFORML %CALLNAME:index%의 호감도가 올랐다。
			CFLAG:index:의존도 += 300
			IF TALENT:index:연모 || TALENT:index:친애
				PRINTFORML 애정경험 + 10
				EXP:index:23 += 10
			ENDIF
		ELSE
			PRINTFORML %조사처리(CALLNAME:index,"는"%)、%마스터호칭과% 우리가 만날 때마다 미묘한 표정을 짓고 있었다。
		ENDIF
	ELSEIF CFLAG:index:1000 == 6
		;약점探し中
		masterValue = RAND:5 - 2 + ABL:MASTER:학력
		targetValue = MAX(10 + (masterValue > ABL:index:학력) - (masterValue < ABL:index:학력) + CALC_CHARA_SINGLE_DATA("TALENT",index,"눈에띄고싶어함,인기,고고함*-1,친구많음"),1)
		PRINTFORML %NAME:index%의 조사가 진행되었다。
		CFLAG:index:1010 += (targetValue * (daysCount + 1) / 2)
		SIF PROTECT_VALUE_WEEKPOINT(MASTER,index) < 0
		CALL FOUND_WEEKPOINT(index)
	ELSEIF CFLAG:index:1000 == 7
		PRINTFORML %조사처리(NAME:index,"와")% 이야기할 기회를 얻었다。
		;입説き中
		masterValue = RAND:5 - 2 + GET_CLUB_USE_PALAM(MASTER)
		;流石に長すぎるので分割
		targetValue = 10 + favorLevel + (masterValue > GET_CLUB_USE_PALAM(index)) * (2 + TALENT:index:영애) - (masterValue > GET_CLUB_USE_PALAM(index)) * (1 + TALENT:index:영애 * 2)
		targetValue = MIN(targetValue + CALC_CHARA_SINGLE_DATA_RULED("TALENT",index,"반항적*-1,RAND:3==0|솔직,RAND:3==0|츤데레*-1,RAND:3==0 && CFLAG:index:1010<50|감정부족*-1,RAND:3==0|호기심,RAND:3==0|보수적*-1,RAND:3==0|낙관적,RAND:3==0|비관적*-1,RAND:3==0|정조관념*-1,RAND:3==0 && CFLAG:index:1010<50|반하기쉬움*2,RAND:3==0|철벽*-2,RAND:3==0|남성혐오*-2,RAND:2==0 && TALENT:MASTER:남자|반항적*-1,RAND:3==0|청초*-1,RAND:2==0|쾌활,RAND:2==0|보이쉬,RAND:2==0|어린애같음,RAND:2==0|치유계,RAND:2==0|쿨함*-1,RAND:2==0|고고함*-1,CFLAG:index:1010<30|친구많음,CFLAG:index:1010>50|영애,RAND:2==0"),1)
		CFLAG:index:1010 += (targetValue * (daysCount + 1) / 2)
	ENDIF
NEXT

repo_name: Catalyst/B

license: unknown


code:
;프레임워크 화로、이 파일은 사용되지 않습니다
@SCENARIO_EVENT0,ARG
;キャラクターとの初遭遇のシーンを行う為の機能。
;拘らないなら、適当にCALL SCENARIO_GET_CHARACTER関数を読んでおけばOK.
;再発生しない様にFLAG:1000～を利用する。
;1000使用　衛良
;発生条件 昼間
	IF FLAG:1000 == 0 && CFLAG:MASTER:1001 == 100 && IS_DAYTIME() && !IS_HOLIDAY()
	;内容
		PRINTL -모리히사고교初登校-
		PRINTFORML %마스터호칭은%転校後初めて、모리히사고교へと登校した。
		PRINTL 모리히사고교は사립で、この周辺ではかなりの進学校と見られている。
		PRINTL 当然生徒は学業成績が優れているのが普通だが、スポーツなどで高い成績を上げた人間をスカウトするような事もしているようだ。
		PRINTL 블레이저で身を包んだ学生たちとすれ違いながら、教室に案内してもらう。
		PRINTFORML %마스터호칭은%2年1組に入る事となった。 교사に促されて、適当に自己紹介を進め、指定された席に座る。
		PRINTL 隣の席には、숏컷の元気そうな美少女が座っていた。
		PRINTFORML 『%NAME:MASTER%君で良いんだよね、あたしは皆木 香っ。よろしく！』
		PRINTFORML 『聞きたいことがあったら何でも聞いてね』
		PRINTL おせっかいなのか面倒見がいいのか。　適当に返事をしておこう……
		PRINTL ………………
		PRINTL …………
		PRINTL ……
		PRINTL 転校生の休み時間は、暇なクラスメートに質問攻めにされたり、부활동動の勧誘を受けたりで忙しい。
		PRINTL それをさばきながら、周りを観察する。
		PRINTL このクラスで気になるのは、先ほどの「皆木 香」と……、もう一人흑발장발の和風美人が目に留まった。
		PRINTL 彼女……「相良 紗代」は転校生の事にはさして興味もないらしく、こちらに声をかけてきた中には入っていなかった。
		PRINTL しかし、クラスメートなのだから、声をかける機会は幾らでも作れるだろう。
		PRINTW クラスの中だけではこんな所か。　後は学内で色々見繕って見るよりないだろう。
		FLAG:1000 = DAY + 1
		CALL SCENARIO_GET_CHARACTER, 2
		CALL SCENARIO_GET_CHARACTER, 5
	ELSEIF DAY >= FLAG:1000 && TALENT:MASTER:체육부 == 0 && TALENT:MASTER:문화부 == 0 && TALENT:MASTER:격투기부 == 0 && TALENT:MASTER:위원회 == 0 && TALENT:MASTER:귀가부 == 0 && IS_DAYTIME()
		PRINTFORML 転校生である為、クラブに入っていない%CALLNAME:MASTER%의 為に幾つかのクラブが紹介される事になった。
		PRINTFORML [0]체육부に入りたい(運動+1)
		PRINTFORML [1]문화부に入りたい(감성+1)
		PRINTFORML [2]格闘系クラブに入りたい(戦闘+1)
		PRINTFORML [3]위원회に入りたい(학력+1)
		PRINTFORML [4]だが、断る。
		$INPUT_LOOP
		INPUT
		IF RESULT == 0
			PRINTFORML %마스터호칭은%체육부に入りました。
			TALENT:MASTER:체육부 = 1
			ABL:MASTER:운동능력 += 1
;衛良所属　수영부
				CALL GET_CHARANUM,1
		;水城渚が未登場、
				IF RESULT == -1
					PRINTL 체육부を見て回っている間に、수영부の、「水城 渚」と知りあう事が出来た。
					CALL SCENARIO_GET_CHARACTER, 1
				ENDIF
				PRINTL 체육부としては、수영부に「水城 渚」がいる。
				PRINTL 수영부に入れば、接触を取る機会も増えるかもしれない。
				PRINTFORML [0]수영부に入りたい
				PRINTFORML [2]その他のクラブに入りたい
				$INPUT_LOOP3
				INPUT
				IF RESULT == 0
					PRINTFORML %마스터호칭은%수영부に入った。
					CFLAG:MASTER:1002 = 1204
				ELSEIF RESULT == 2
					PRINTFORML %마스터호칭은%適当な運動部に入った。
					CFLAG:MASTER:1002 = 0
				ELSE
					GOTO INPUT_LOOP3
				ENDIF
		ELSEIF RESULT == 1
			PRINTFORML %마스터호칭은%문화부に入りました。
			TALENT:MASTER:문화부 = 1
			ABL:MASTER:감성 += 1

;취주악부 王寺 律花
				CALL GET_CHARANUM,4
		;王寺 律花が未登場、
				IF RESULT == -1
					PRINTL 문화부を見て回っている間に、취주악부の、「王寺 律花」と知りあう事が出来た。
					CALL SCENARIO_GET_CHARACTER, 4
				ENDIF
		;マリア 沢渡が未登場、
				CALL GET_CHARANUM,12
				IF RESULT == -1
					PRINTL 문화부を見て回っている間に、취주악부顧問の、「マリア 沢渡」と知りあう事が出来た。
					CALL SCENARIO_GET_CHARACTER, 12
				ENDIF
		;妹尾 美咲が未登場、
				CALL GET_CHARANUM,6
				IF RESULT == -1
					PRINTL 문화부を見て回っている間に、천문부の、「妹尾 美咲」と知りあう事が出来た。
					CALL SCENARIO_GET_CHARACTER, 6
				ENDIF
				PRINTL 문화부としては、취주악부の、「王寺 律花」「マリア 沢渡」がいる。 천문부に入れば「妹尾 美咲」が、화도부には「相良 紗代」がいる。
				PRINTL これらに入れば、接触を取る機会も増えるかもしれない。
				PRINTFORML [0]취주악부に入りたい
				PRINTFORML [1]천문부に入りたい
				PRINTFORML [2]화도부に入りたい
				PRINTFORML [3]その他のクラブに入りたい
				$INPUT_LOOP4
				INPUT
				IF RESULT == 0
					PRINTFORML %마스터호칭은%취주악부に入った。
					CFLAG:MASTER:1002 = 1301
				ELSEIF RESULT == 1
					PRINTFORML %마스터호칭은%천문부に入った。
					CFLAG:MASTER:1002 = 1315
				ELSEIF RESULT == 2
					PRINTFORML %마스터호칭은%화도부に入った。
					CFLAG:MASTER:1002 = 1310
				ELSEIF RESULT == 3
					PRINTFORML %마스터호칭은%適当な文化部に入った。
					CFLAG:MASTER:1002 = 0
				ELSE
					GOTO INPUT_LOOP4
				ENDIF
		ELSEIF RESULT == 2
			PRINTFORML %마스터호칭은%격투기부に入りました。
			TALENT:MASTER:격투기부 = 1
			ABL:MASTER:전투능력 += 1
				CALL GET_CHARANUM,7
		;沖島 操が未登場、
				IF RESULT == -1
					PRINTL クラブを見て回っている間に、검도부の、「沖島 操」と知りあう事が出来た。
					CALL SCENARIO_GET_CHARACTER, 7
				ENDIF
		;如月 真琴、
				CALL GET_CHARANUM,8
				IF RESULT == -1
					PRINTL クラブを見て回っている間に、합기도부の、「如月 真琴」と知りあう事が出来た。
					CALL SCENARIO_GET_CHARACTER, 8
				ENDIF
		;エレノア カウフフェルトが未登場、
				CALL GET_CHARANUM,9
				IF RESULT == -1
					PRINTL クラブを見て回っている間に、펜싱부の、「エレノア カウフフェルト」と知りあう事が出来た。
					CALL SCENARIO_GET_CHARACTER,9
				ENDIF
				PRINTL 격투기부としては、검도부に「沖島 操」がいる。 천문부に入れば「如月 真琴」が、펜싱부には「エレノア カウフフェルト」がいる。
				PRINTL これらに入れば、接触を取る機会も増えるかもしれない。
				PRINTFORML [0]검도부に入りたい
				PRINTFORML [1]합기도부に入りたい
				PRINTFORML [2]펜싱부に入りたい
				PRINTFORML [3]その他のクラブに入りたい
				$INPUT_LOOP5
				INPUT
				IF RESULT == 0
					PRINTFORML %마스터호칭은%검도부に入った。
					CFLAG:MASTER:1002 = 1401
				ELSEIF RESULT == 1
					PRINTFORML %마스터호칭은%합기도부に入った。
					CFLAG:MASTER:1002 = 1407
				ELSEIF RESULT == 2
					PRINTFORML %마스터호칭은%펜싱부に入った。
					CFLAG:MASTER:1002 = 1404
				ELSEIF RESULT == 3
					PRINTFORML %마스터호칭은%適当な격투기부に入った。
					CFLAG:MASTER:1002 = 0
				ELSE
					GOTO INPUT_LOOP5
				ENDIF
		ELSEIF RESULT == 3
			PRINTFORML %마스터호칭은%위원회に入りました。
			TALENT:MASTER:위원회 = 1
			ABL:MASTER:학력 += 1
		ELSEIF RESULT == 4
			PRINTFORML %마스터호칭은%귀가부になりました。
			TALENT:MASTER:귀가부 = 1
		ELSE
			GOTO INPUT_LOOP
		ENDIF
	ELSEIF DAY > FLAG:1000 + 30 && IS_DAYTIME() && !IS_HOLIDAY()
;ルイーザ カウフフェルトが未登場、転校後1月経過、エレノアを知っている。
		CALL GET_CHARANUM,80009
		IF RESULT == -1
			CALL GET_CHARANUM,9
			IF RESULT > 0
				PRINTW 이벤트 발생！
				PRINTFORML 登校中に一人の女と出会った。
				PRINTL 銀の장발と、上品な美貌。　年のころは分かりにくいが、30には達してない様に見える。
				PRINTL 知らない顔だが、何処かで見たような……？
				PRINTL 女はこちらと目が合うと、軽く礼をして입を開いた。
				PRINTFORMW 『ルイーザ カウフフェルト。　エレノアの母親です。　娘がお世話になっております』
				PRINTL 成程、印象は違うが顔立ちがエレノアに似ていたのだ。　……子供がいるような年には見えなかったが。
				PRINTL こちらからも礼を返し、遅刻しない程度に話をしていると、視界の隅にエレノアが走っていくのが見えた。
				PRINTL エレノアがこちらに(自分の母に)気が付かなかったとは思えないし、ルイーザと名乗った女も娘に気が付いたはずだ。
				PRINTL なのに、どちらも何の反応もしなかったのはどういう事だろうか……？
				CALL SCENARIO_GET_CHARACTER,80009
			ENDIF
		ENDIF
	ENDIF
	PRINTW


code:
;프레임워크 화로、이 파일은 사용되지 않습니다
@SCENARIO_EVENT1,ARG
;キャラクターとの初遭遇のシーンを行う為の機能。
;拘らないなら、適当にCALL SCENARIO_GET_CHARACTER関数を読んでおけばOK.
;再発生しない様にFLAG:1000～を利用する。
;1000使用　나나츠시마학원
;発生条件 昼間
	IF FLAG:1001 == 0 && CFLAG:MASTER:1001 == 101 && IS_DAYTIME() && !IS_HOLIDAY()
	;内容
		PRINTL -나나츠시마학원初登校-
		PRINTFORML %마스터호칭은%転校後初めて、나나츠시마학원へと登校した。
		PRINTL 七ヶ島は瀬戸内海に浮かぶ島で、そもそもは漁民が住む村があっただけだったらしい。
		PRINTL バブル期に観光を見込んでホテルやリゾート施設を誘致したりした時期もあったようだが、結局今一つ上손く行かず。
		PRINTL この나나츠시마학원も学生数の不足で小学校から高校まで一纏めという無茶な学校になっている。
		PRINTL 부활동動もメジャーで、特に道具や設備を使わないようなものしかないようだ。
		PRINTL 登校初日は、養護교사の「雛見 鮎子」が迎えに来てくれた。
		PRINTFORML 『%NAME:MASTER%君ですね、私は雛見 鮎子。　担任と言う訳ではありませんが、よろしくお願いします』
		PRINTL 適当に挨拶をして、でっち上げのこの島に移ってきた理由を滔々と説明しておいた。
		PRINTL ………………
		PRINTL …………
		PRINTL ……
		PRINTL 転校生の休み時間は、暇なクラスメートに質問攻めにされたりで忙しい。
		PRINTL ここは、小学校から高校まで一纏めなので、초등학생くらいの子供までまとわりついてくる。
		PRINTL さてクラスで気になるのは、先ほどの「雛見 鮎子」と……、もう一人적발で더블포니の美人が目に留まった。
		PRINTL 彼女……「大島 朱美」は、数少ない고등학생として周囲から頼りにされているようだ。
		PRINTW クラスの中だけだとはこんな所か。　後は学内で色々見繕って見るよりないだろう。
		FLAG:1001 = DAY + 1
		CALL SCENARIO_GET_CHARACTER, 104
		CALL SCENARIO_GET_CHARACTER, 103
	ELSEIF DAY >= FLAG:1001 && TALENT:MASTER:체육부 == 0 && TALENT:MASTER:문화부 == 0 && TALENT:MASTER:격투기부 == 0 && TALENT:MASTER:위원회 == 0 && TALENT:MASTER:귀가부 == 0 && IS_DAYTIME()
		PRINTFORML 転校生である為、クラブに入っていない%CALLNAME:MASTER%의 為に幾つかのクラブが紹介される事になった。
		PRINTFORML [0]체육부に入りたい(運動+1)
		PRINTFORML [1]문화부に入りたい(감성+1)
		PRINTFORML [2]格闘系クラブに入りたい(戦闘+1)
		PRINTFORML [3]위원회に入りたい(학력+1)
		PRINTFORML [4]だが、断る。
		$INPUT_LOOP
		INPUT
		IF RESULT == 0
			PRINTFORML %마스터호칭은%체육부に入りました。
			TALENT:MASTER:체육부 = 1
			ABL:MASTER:운동능력 += 1
		ELSEIF RESULT == 1
			PRINTFORML %마스터호칭은%문화부に入りました。
			TALENT:MASTER:문화부 = 1
			ABL:MASTER:감성 += 1
		ELSEIF RESULT == 2
			PRINTFORML %마스터호칭은%격투기부に入りました。
			TALENT:MASTER:격투기부 = 1
			ABL:MASTER:전투능력 += 1
		ELSEIF RESULT == 3
			PRINTFORML %마스터호칭은%위원회に入りました。
			TALENT:MASTER:위원회 = 1
			ABL:MASTER:학력 += 1
		ELSEIF RESULT == 4
			PRINTFORML %마스터호칭은%귀가부になりました。
			TALENT:MASTER:귀가부 = 1
		ELSE
			GOTO INPUT_LOOP
		ENDIF
	ENDIF
	PRINTW


code:
;프레임워크 화로、이 파일은 사용되지 않습니다
@SCENARIO_EVENT2,ARG
;キャラクターとの初遭遇のシーンを行う為の機能。
;拘らないなら、適当にCALL SCENARIO_GET_CHARACTER関数を読んでおけばOK.
;再発生しない様にFLAG:1000～を利用する。
;1000使用　케나가레야마고교
;発生条件 昼間
	IF FLAG:1002 == 0 && CFLAG:MASTER:1001 == 102 && IS_DAYTIME() && !IS_HOLIDAY()
	;内容
		PRINTL -케나가레야마고교初登校-
		PRINTFORML %마스터호칭은%転校後初めて、케나가레야마고교へと登校した。
		PRINTL やばい学校だと言う話は、すでに何度か聞かされていたが、学校につく前から周囲の雰囲気は尋常ではなかった。
		PRINTL 落書きだらけの壁に、朝っぱらから道の隅で寝ている酔っぱらいだかホームレスだか分からない連中。
		PRINTL 漂う異臭は吐瀉物のそれか、日常的に行われる立小便か。　こんな所に本当に学校が有るのだろうか？
		PRINTL ……結論から言うと確かにあった。　尤も、周辺以上に大量の落書きに飾られた壁と、割れたガラスをガムテープで補習した窓と……
		PRINTL ここは本当に日本なのだろうか？　ここの学生がナイフ程度隠し持っていてもきっと驚く事はないだろう……
		PRINTL 出迎えなどと言う物は当然ないので、自分で교무실を探してみた。
		PRINTL ………………
		PRINTL …………
		PRINTL ……
		PRINTL 死んだ魚のような眼をした初老の교사に案内されて教室に向かう。　しかし、교사が教室に入っても、注目する生徒すらいない……
		PRINTL そもそも、席の数からして出席率は半分行っているのだろうか？
		PRINTL もっとも、さすがに転校生は珍しかったらしく、その顔を見ようと後から生徒たちは（恐らくクラスとか関係なしに）顔を出し始めはしたが。
		PRINTL さてその中で気になるのは、「田井中 音美」はこんな学校にいるとは思えないほど雰囲気は普通に見える。
		PRINTL 後は、いかにも遊んでいますと言わんばかりの「井黒 心中」もこの学校らしい生徒としてチェックしておこう。
		PRINTW 今のところはこんな所か。　後は学内で色々見繕って見るよりないだろう。
		FLAG:1002 = DAY + 1
		CALL SCENARIO_GET_CHARACTER, 201
		CALL SCENARIO_GET_CHARACTER, 202
	ELSEIF DAY >= FLAG:1002 && TALENT:MASTER:체육부 == 0 && TALENT:MASTER:문화부 == 0 && TALENT:MASTER:격투기부 == 0 && TALENT:MASTER:위원회 == 0 && TALENT:MASTER:귀가부 == 0 && IS_DAYTIME()
		PRINTFORML 転校生である為、クラブに入っていない%CALLNAME:MASTER%의 為に幾つかのクラブが紹介される事になった。
		PRINTFORML [0]체육부に入りたい(運動+1)
		PRINTFORML [1]문화부に入りたい(감성+1)
		PRINTFORML [2]格闘系クラブに入りたい(戦闘+1)
		PRINTFORML [3]위원회に入りたい(학력+1)
		PRINTFORML [4]だが、断る。
		$INPUT_LOOP
		INPUT
		IF RESULT == 0
			PRINTFORML %마스터호칭은%체육부に入りました。
			TALENT:MASTER:체육부 = 1
			ABL:MASTER:운동능력 += 1
		ELSEIF RESULT == 1
			PRINTFORML %마스터호칭은%문화부に入りました。
			TALENT:MASTER:문화부 = 1
			ABL:MASTER:감성 += 1
		ELSEIF RESULT == 2
			PRINTFORML %마스터호칭은%격투기부に入りました。
			TALENT:MASTER:격투기부 = 1
			ABL:MASTER:전투능력 += 1
		ELSEIF RESULT == 3
			PRINTFORML %마스터호칭은%위원회に入りました。
			TALENT:MASTER:위원회 = 1
			ABL:MASTER:학력 += 1
		ELSEIF RESULT == 4
			PRINTFORML %마스터호칭은%귀가부になりました。
			TALENT:MASTER:귀가부 = 1
		ELSE
			GOTO INPUT_LOOP
		ENDIF

	ENDIF
	PRINTW


code:
;프레임워크 화로、이 파일은 사용되지 않습니다
@SCENARIO_EVENT3,ARG
#DIM index
;キャラクターとの初遭遇のシーンを行う為の機能。
;拘らないなら、適当にCALL SCENARIO_GET_CHARACTER関数を読んでおけばOK.
;再発生しない様にFLAG:1000～を利用する。
;1000使用　케나가레야마고교
;発生条件 昼間
	IF FLAG:1003 == 0 && CFLAG:MASTER:1001 == 103 && IS_DAYTIME() && !IS_HOLIDAY()
	;内容
		PRINTL 히카미학원대학부속中学初登校-
		PRINTFORML %마스터호칭은%転校後初めて、히카미학원대학부속中学へと登校した。
		PRINTL 神道系の大学の付属中学だとかで、生徒はやや古い印象の세일러복や詰襟を身に着けている。
		PRINTL 大学では神学のみならず日本の固有文化や歴史への教育研究で文系大学としての評価は高いのだが、中学レベルでは普通の私学とそう差はなさそうだ。
		PRINTL 校門は鳥居を連想する朱色に塗られ、学校周辺も清潔が保たれている。
		PRINTL 資料では情操教育にも力を入れているとかあったので、生徒たちによるものなのではないだろうか？
		PRINTL すぐ近くには付属高校もあり、高校と中学の垣根は非常に低いようだ。
		PRINTL これなら余裕があれば高校の方にも目を向けられるかもしれない……
		PRINTL ………………
		PRINTL …………
		PRINTL ……
		PRINTL 교무실で紹介された担任교사「九重 さと」は、どう見ても초등학생にしか見えない小柄な女性だった（女性という言葉を使うには相当の違和感はあったが）
		PRINTL さと「……何か言いたそうじゃな？　転校生」
		PRINTL じろりと睨まれて입をつぐむ。　可愛らしい容姿ではあるのだが、本人は気にしているようだ。
		PRINTL 定番の説明や、クラスでの紹介、自己紹介を無難に流しつつ、周囲を値踏みする。
		PRINTL 風紀に厳しいこの学校では非常に目立つ적발の안경녀「御堂 美奈子」、自己紹介の時妙に長々語っていた「高嶺 歩美」も印象に残る美少女だ。
		PRINTW 今のところはこんな所か。　後は学内で色々見繕って見るよりないだろう。
		FLAG:1003 = DAY + 1
		CALL SCENARIO_GET_CHARACTER, 309
		CALL SCENARIO_GET_CHARACTER, 301
		CALL SCENARIO_GET_CHARACTER, 303
	ELSEIF DAY >= FLAG:1003 && TALENT:MASTER:체육부 == 0 && TALENT:MASTER:문화부 == 0 && TALENT:MASTER:격투기부 == 0 && TALENT:MASTER:위원회 == 0 && TALENT:MASTER:귀가부 == 0 && IS_DAYTIME()
		PRINTFORML 転校生である為、クラブに入っていない%CALLNAME:MASTER%의 為に幾つかのクラブが紹介される事になった。
		PRINTFORML [0]체육부に入りたい(運動+1)
		PRINTFORML [1]문화부に入りたい(감성+1)
		PRINTFORML [2]格闘系クラブに入りたい(戦闘+1)
		PRINTFORML [3]위원회に入りたい(학력+1)
		PRINTFORML [4]だが、断る。
		$INPUT_LOOP
		INPUT
		IF RESULT == 0
			PRINTFORML %마스터호칭은%체육부に入りました。
			TALENT:MASTER:체육부 = 1
			ABL:MASTER:운동능력 += 1
		ELSEIF RESULT == 1
			PRINTFORML %마스터호칭은%문화부に入りました。
			TALENT:MASTER:문화부 = 1
			ABL:MASTER:감성 += 1
		ELSEIF RESULT == 2
			PRINTFORML %마스터호칭은%격투기부に入りました。
			TALENT:MASTER:격투기부 = 1
			ABL:MASTER:전투능력 += 1
		ELSEIF RESULT == 3
			PRINTFORML %마스터호칭은%위원회に入りました。
			TALENT:MASTER:위원회 = 1
			ABL:MASTER:학력 += 1
		ELSEIF RESULT == 4
			PRINTFORML %마스터호칭은%귀가부になりました。
			TALENT:MASTER:귀가부 = 1
		ELSE
			GOTO INPUT_LOOP
		ENDIF
	ENDIF
	PRINTW


code:
;이 파일은 이제 사용되지 않습니다
@SCENARIO_EVENT24_C80003
CALL GET_CHARANUM,80003
;響 かすみが未登場、
IF RESULT == -1

	PRINTL 체육부を見て回っている間に、수영부の、「水城 渚」と知りあう事が出来た。
		CALL SCENARIO_GET_CHARACTER, 1
ENDIF


code:
@SCENARIO_EVENT9999

IF FLAG:8 == 0
	PRINTW 자、이제 무엇을 하며 시간을 보낼까？
ELSE
	PRINTW ……자、학교에 가지 않고 뭘 할까？
ENDIF
PRINTFORML  [0]적당한 가게를 놀러 다닌다
PRINTFORML  [1]거리를 배회한다
SIF COUNT_RULED_CHARAS("IS_UPPER_FALLEN(index) && !IS_UNCONTACTABLE(index)") > 0 ;&& TALENT:MASTER:운전면허
	PRINTFORML  [2]････누군가를 불러낸다
;PRINTFORML  [3]……借金取りに連絡する
PRINTFORML  [9]그만둔다
$INPUT_LOOP2
INPUT
IF RESULT == 0
	CALL TOWN_SHOP
	SIF RESULT == 0
		RETURN 0
	CALL SP_TRAIN_START(RESULT,1)
	RETURN 2
ELSEIF RESULT == 1
	CALL TOWN_STREET
	SIF RESULT == 0
		RETURN 0
	CALL SP_TRAIN_START(RESULT,1)
	RETURN 2
ELSEIF RESULT == 2
	CALL SP_CALL_HAPPEND()
	SIF RESULT == 999
		RETURN -1
	SIF RESULT == 0
		RETURN 0
	CALL SP_TRAIN_START(RESULT,2)
	RETURN 1
ELSEIF RESULT == 9
	RETURN -1
ELSE
	CALL CALL_PATRON
ENDIF
PRINTW
RETURN 0

@TOWN_SHOP
;店をうろついてて会う人　最大人数定義

CALL SCENARIO_EVENT_CHARACTER("SHOP")

IF RESULT == 0
	IF IS_HOLIDAY()
		CALL IS_SP_MEET_HAPPENED()
	ELSE
		CALL IS_SP_MEET_HAPPENED("!TALENT:index:초등학생 && !TALENT:index:중학생 && !TALENT:index:고등학생 && !TALENT:index:교사 && !TALENT:index:사회인")
	ENDIF
	SELECTCASE RESULT
		CASE -1
			PRINTW 특별히 아무 일도 일어나지 않았다。
		CASE -2
			;아무것도안한다
		CASEELSE
			RETURN RESULT
	ENDSELECT
ENDIF
RETURN 0

@IS_SP_MEET_HAPPENED(exRule="")
#DIMS exRule
#DIM targetChara
#DIMS firstLocation
SIF exRule != ""
	exRule '= " && " + exRule
targetChara = GET_RULED_SINGLE_CHARA("index != MASTER && CFLAG:index:1000 == 5 && !IS_UNCONTACTABLE(index)" + exRule)
SIF targetChara < 0
	RETURN -1
;遭遇の判定
SIF RAND:(MAX(CALC_CHARA_SINGLE_DATA("Talent",targetChara,"겁쟁이*3,얌전함*2,사교적*-5,내향적*3,인간혐오*3,영애*4,유명인*5,오타쿠취미*4,친구많음*-4,경계"),3)) != 0
	RETURN -1

PRINTFORMW 산책 중에 %타겟캐릭과% 딱 마주쳤다。
IF TALENT:targetChara:교제
	PRINTFORMW %CALLNAME:MASTER%의 모습을 발견하고 반갑게 미소짓는 %CALLNAME:targetChara%에게、 지금부터 같이 놀지 않겠느냐고 말을 걸었다。
	;余暇判定
	IF TALENT:targetChara:ＮＴＲ < 2 && RAND:100 < CALC_CHARA_SINGLE_DATA("Talent",targetChara,\@ FLAG:8 == 0 ? 사회인*40,대학생*50,주부*20,초등학생*50,중학생*40,고등학생*30,연모*30,친애*40,음란*40,창녀*60,복종*35,예속*55,동화*40,모판*60 # 사회인*10,대학생*20,주부*30,연모*20,친애*30,음란*10,창녀*40,복종*30,예속*50,동화*20,모판*30 \@) + 10
		PRINTFORMW %타겟캐릭은% 조금 생각하고 나서 괜찮다、고 대답해주었다。
		PRINTFORMW  예정 외의 데이트이지만 뭐、문제는 없겠지････。
		RETURN targetChara
	ELSE
		PRINTFORMW 그러나 %타겟캐릭은% 곧 아무래도 빠질 수 없는 일이 있다며 미안한 듯 고개를 숙였다。
		SELECTCASE TALENT:targetChara:ＮＴＲ
			CASE IS >= 2
				IF RAND:5 == 0
					PRINTFORMW ････？
					PRINTFORMW %타겟캐릭은% 황홀한 얼굴로、무릎을 머뭇거리고 있다････。
					PRINTFORMW 화장실이라도 참고 있는 걸까････？
					;実はおもちゃでも仕込まれていたというオチ
				ELSE
					PRINTFORMW ････？
					PRINTFORMW 어째서일까。%타겟캐릭은% 이미 마음이 딴 데 가 있다････。
				ENDIF
			CASE 1
				IF RAND:8 == 0
					PRINTFORMW ････？
					PRINTFORMW %타겟캐릭은% 간간이 흠칫 몸을 떨면서 얼굴을 붉히고 머뭇거린다。
					PRINTFORMW 괜찮냐고 물어보면、울음을 터뜨릴 듯한 얼굴로 고개를 끄덕이고 있지만････？
				ELSE
					PRINTFORMW 왠지 금방이라도 울 것 같은 %타겟호칭을% 정성을 다해 위로하니、비로소 %타겟캐릭은% 미소지어주었다。
				ENDIF
			CASEELSE
				;아무것도안한다
		ENDSELECT
		RETURN -2
	ENDIF
ELSE
	PRINTFORMW
	firstLocation = %GET_SP_TRAIN_LOCATION_NAME(GET_SP_TRAIN_FIRST_LOCATION(targetChara,1))%
	;畏怖判定
	IF RAND:100 > ABL:targetChara:순종*2 + ABL:targetChara:욕망 + CALC_CHARA_SINGLE_DATA("Talent",targetChara,"연모*10,친애*15,음란*5,창녀*20,복종*15,예속*25,동화*20,모판*30,겁쟁이*10,반항적*-15,꿋꿋함*-20,얌전함*5,프라이드높음*-15,건방짐*-10,고결*-20,성악*-10,굴복*5,약점*10,레이프소망*20,거절*-30,공주님소망*-10,천연*-20,기가셈*-20")
		PRINTFORMW %타겟캐릭은%、%CALLNAME:MASTER%의 얼굴을 보자마자 토끼처럼 달아났다！
		PRINTFORML
		;捕獲判定
		IF RAND:(ABL:targetChara:운동능력 + ABL:targetChara:전투능력 / 2) > RAND:(ABL:MASTER:운동능력 + ABL:MASTER:전투능력 / 2)
			PRINTFORMW %CALLNAME:targetChara%의 다리가 빨라 완전히 놓쳐버렸다････。
			PRINTFORMW ････다음에 만났을 때는、철저히 길들여주자。
			RETURN -2
		ELSE
			PRINTFORMW %마스터호칭은% 도망친 %타겟호칭을% 몰아붙여 잡는 데 성공했다。
			PRINTFORMW 도망치려고 날뛰는 %CALLNAME:targetChara%。
			PRINTFORM 그런 저항을 힘으로 제압하고 억지로
		ENDIF
	ELSE
		PRINTFORM %타겟캐릭은%%CALLNAME:MASTER%의 모습을 보고 、
		SELECTCASE 1
			CASE TALENT:targetChara:음란 || TALENT:targetChara:동화
				PRINTFORMW 바로 볼을 물들이며 달뜬 눈동자를 띄우기 시작했다。
				PRINTFORMW 벌써부터 기대되어 젖기 시작한 모양이다。
				PRINTFORM 걸을 때마다 챱챱 물소리를 내는 그녀의 손을 잡아당기며、
			CASE TALENT:targetChara:창녀 || TALENT:targetChara:모판
				PRINTFORMW 곧바로 볼을 물들이고 서둘러 %CALLNAME:MASTER%에게 다가왔다。
				PRINTFORMW 빨리 안아주세요、라고 주위의 눈도 신경쓰지 않고 간청하는 %CALLNAME:targetChara%。
				PRINTFORM %마스터호칭은% 히죽히죽 미소지으며 손을 잡아당겨、
			CASE TALENT:targetChara:복종
				PRINTFORMW 히익 하고 소리를 지르며 뱀과 만난 개구리처럼 굳어버렸다。
				PRINTFORMW ････벌을 받기 싫으면 따라와라、그렇게 명하면 잠시 망설이다가 고개를 푹 숙이고 눈물을 흘리며 따라온다。
				PRINTFORM 기묘한 행진 끝에 %마스터호칭은% 그녀를
			CASE TALENT:targetChara:예속
				PRINTFORMW 기쁜 듯이 미소지으며、스르르 다가왔다。
				PRINTFORMW 뭔가 명령은 없습니까、하고 웃으며 묻는 그녀에게 따라와라、그 몸을 사용해주마、라고 명한다。
				PRINTFORM 네、라고 고분고분 답하는 %타겟호칭을%、%마스터호칭은%
			CASEELSE
				PRINTFORMW 공포와 혐오를 감추지도 않고、그래도 입술을 깨물며 가만히 서 있다。
				PRINTFORMW 도망쳐도 소용없다는 사실은 이해했겠지。
				PRINTFORMW 그런 그녀에게 따라와라고 명령하자、킷하고 날카로운 눈으로 노려보더니、이내 포기한 듯 터벅터벅 따라온다。
				PRINTFORM 그대로 %마스터호칭은% 그녀를
		ENDSELECT
	ENDIF
	PRINTFORMW 인기척없는 %조사처리(firstLocation,"로")% 데려갔다。
	PRINTFORMW 자、이제부터 한껏 귀여워 해주자････。
	RETURN targetChara
ENDIF

@SP_CALL_HAPPEND()
#DIM targetChara
#DIMS firstLocation
PRINTFORML 누구를 부릅니까。
CALL DISPLAY_COMMON(0,,,,,,,"IS_UPPER_FALLEN(index) && !IS_UNCONTACTABLE(index)","DISPLAY_SET01_ARGUMENT")
targetChara = RESULT
SIF targetChara == 999
	RETURN targetChara
IF TALENT:targetChara:교제
	PRINTFORMW 전화로 %타겟호칭을% 불러냈다････。
	;余暇判定
	IF TALENT:targetChara:ＮＴＲ < 2 && RAND:100 < CALC_CHARA_SINGLE_DATA("Talent",targetChara,\@ IS_HOLIDAY() ? 사회인*40,대학생*50,주부*10,초등학생*50,중학생*40,고등학생*30,친애*40,창녀*60,예속*50,모판*40 # 사회인*5,대학생*40,주부*20,친애*30,창녀*40,예속*50,모판*30 \@) + 10
		PRINTFORMW 전화를 받은%타겟캐릭은% 조금 생각에 잠기더니 지금부터라면 괜찮다、고 대답해 주었다。
		PRINTFORMW 모처럼의 데이트다。제대로 준비를 하지 않으면････。
		RETURN targetChara
	ELSE
		PRINTFORMW 하지만 %타겟캐릭은% 지금은 컨디션이 나쁘다、고 미안한 듯 사과한다。
		SELECTCASE TALENT:targetChara:ＮＴＲ
			CASE IS >= 2
				IF RAND:5 == 0
					PRINTFORMW ････？
					PRINTFORMW %타겟캐릭은% 이따금 목소리를 누르면서 하악 하고 헐떡이고 있다。
					PRINTFORMW 몸상태가 많이 나쁜 걸까････？
					;フィーバータイム(意味深)中
				ELSE
					PRINTFORMW ････？
					PRINTFORMW 어째서일까。%타겟캐릭은% 이미 마음이 딴 데 가 있다････。
				ENDIF
			CASE 1
				IF RAND:8 == 0
					PRINTFORMW ････？
					PRINTFORMW %타겟캐릭은% 간간이 흠칫 몸을 떨면서 얼굴을 붉히고 머뭇거린다。
					PRINTFORMW 괜찮냐고 물어보면、울음을 터뜨릴 듯한 얼굴로 고개를 끄덕이고 있지만････？
				ELSE
					PRINTFORMW 왠지 금방이라도 울 것 같은 %타겟호칭을% 정성을 다해 위로하니、비로소 %타겟캐릭은% 미소지어주었다。
				ENDIF
			CASEELSE
				;아무것도안한다
		ENDSELECT
		RETURN 0
	ENDIF
ELSE
	firstLocation = %GET_SP_TRAIN_LOCATION_NAME(GET_SP_TRAIN_FIRST_LOCATION(targetChara))%
	PRINTFORMW 모처럼이다。%firstLocation%에서、%타겟호칭을% 희롱해주자････。
	IF firstLocation != "빈교실" && firstLocation != "폐허" && firstLocation != "뒷골목"
		PRINTFORM %마스터호칭이% %firstLocation%에 들어가자、%타겟캐릭은%
		SELECTCASE 1
			CASE TALENT:targetChara:창녀 || TALENT:targetChara:모판
				PRINTFORMW 살짝 볼을 붉히면서 맞이해 왔다。
				PRINTFORMW 오늘 무슨 일이냐고 묻는 그녀의 귀에 오늘은 여기서 범해줄 테니 준비해、라고 속삭였다。
				PRINTFORMW 꿀꺽하고 군침을 삼키더니 애가 탄 듯 허벅지를 비빈다。츄륵、 희미한 물소리가 울렸다。
				PRINTFORMW 아마 상상하는 것 만으로도 발정해서 젖기 시작한 모양이다。
			CASE TALENT:targetChara:예속
				PRINTFORMW 상냥하게 미소지으며 맞이해 왔다。
				PRINTFORMW 갑자기 왜 불렀는지 안색을 살피듯 묻는 그녀에게 무릎을 꿇고 봉사할 것을 명한다。
				PRINTFORMW 정말 여기서인가요？　하고 놀란 %조사처리(CALLNAME:targetChara,"지만")% 거듭 명하니 꿀꺽、하고 군침을 삼키고 %CALLNAME:MASTER%의 앞에 고분고분 무릎을 꿇었다。
				PRINTFORMW 그 표정은 이미 발정한 암컷 노예 그 자체이다。
			CASEELSE
				THROW 캐릭터 상태가 부정합니다。
		ENDSELECT
	ELSE
		PRINTFORMW 전화로 %타겟호칭을% 불러냈다････。
		PRINTFORM %타겟캐릭은%%CALLNAME:MASTER%의 전화에
		SELECTCASE 1
			CASE TALENT:targetChara:창녀 || TALENT:targetChara:모판
				PRINTFORMW 숨을 삼키고、요염한 한숨을 흘리며 곧 가겠습니다、라고 답해 왔다。
				PRINTFORMW 아마 지금부터 자신이 무엇을 당할까 상상하고 흥분해버린 것 같다････。
				PRINTFORMW
				PRINTFORMW 잠시 후 약속 장소에 나타난 %타겟캐릭은% 완전히 상기된 볼을 붉게 물들이고 있었다。
				PRINTFORM 빨리 안아달라고 졸라대는 그녀를 %마스터호칭은%
			CASE TALENT:targetChara:예속
				PRINTFORMW 조금 놀란 것 같지만、금방 네、하고 기쁜 듯이 대답했다。
				PRINTFORMW 앞으로 자신이 무엇을 당할지 예상 할 수 없는 것도 아닐 텐데、거역한다는 발상은 추호도 없는 것 같다････。
				PRINTFORMW
				PRINTFORMW 잠시 후 약속 장소에 나타난 %타겟캐릭은%、%CALLNAME:MASTER%의 모습을 보자 빙그레 웃었다。
				PRINTFORMW 뭔가 명령은 없습니까、하고 웃으며 묻는 그녀에게 따라와라、그 몸을 사용해주마、라고 명한다。
				PRINTFORM 네、라고 고분고분 답하는 %타겟호칭을%、%마스터호칭은%
			CASEELSE
				THROW 캐릭터 상태가 부정합니다。
		ENDSELECT
		PRINTFORMW 인기척없는 %조사처리(firstLocation,"로")% 데려갔다。。
	ENDIF
	PRINTFORMW 자、즐거운 시간이다････。
	RETURN targetChara
ENDIF

@TOWN_STREET
;街をうろついてて会う人　最大人数定義

CALL SCENARIO_EVENT_CHARACTER("CITY")

IF RESULT == 0
	IF IS_HOLIDAY()
		CALL IS_SP_MEET_HAPPENED()
	ELSE
		CALL IS_SP_MEET_HAPPENED("!TALENT:index:초등학생 && !TALENT:index:중학생 && !TALENT:index:고등학생 && !TALENT:index:교사")
	ENDIF
	SELECTCASE RESULT
		CASE -1
			PRINTW 특별히는 아무 일도 일어나지 않았다。
		CASE -2
			;아무것도안한다
		CASEELSE
			RETURN RESULT
	ENDSELECT
ENDIF

; @CALL_PATRON
; ;쓰지 않으니 일단 손을 넣지 않는다.사용하는 경우 프레임워크 측에 키워드 추가 필요
; LOCAL = 7
; LOCAL:1 = 0

; CALL GET_CHARANUM,80006
; IF RESULT == -1 && RAND:LOCAL == 0 && LOCAL:1 == 0
; ;以降、イベント発生時のメッセージを記入
; 			PRINTW 이벤트 발생！
; 			PRINTL 빚쟁이가 한 여자의 사진을 보여주었다。
; 			PRINTL 彼女の名前は「高嶺 愛花」というらしい。
; 			PRINTL この誠実そうな女を堕とせということなのだろうか……。
; 			PRINTW 『高嶺 愛花』の情報を손に入れた
; ;最後に登場確定処理を必ず実施
; 	CALL SCENARIO_GET_CHARACTER,80006
; 	LOCAL -= 1
; 	LOCAL:1 = 1
; ELSE
; 	LOCAL -= 1
; ENDIF

; CALL GET_CHARANUM,80007
; IF RESULT == -1 && RAND:LOCAL == 0 && LOCAL:1 == 0
; ;以降、イベント発生時のメッセージを記入
; 			PRINTW 이벤트 발생！
; 			PRINTL 빚쟁이가 한 여자의 사진을 보여주었다。
; 			PRINTL 彼女の名前は「小早川 凛子」というらしい。
; 			PRINTL この無愛想な女を堕とせということなのだろうか……。
; 			PRINTW 『小早川 凛子』の情報を손に入れた
; ;最後に登場確定処理を必ず実施
; 	CALL SCENARIO_GET_CHARACTER,80007
; 	LOCAL -= 1
; 	LOCAL:1 = 1
; ELSE
; 	LOCAL -= 1
; ENDIF

; CALL GET_CHARANUM,80008
; IF RESULT == -1 && RAND:LOCAL == 0 && LOCAL:1 == 0
; ;以降、イベント発生時のメッセージを記入
; 			PRINTW 이벤트 발생！
; 			PRINTL 빚쟁이가 한 여자의 사진을 보여주었다。
; 			PRINTL 彼女の名前は「姉ヶ崎 寧々」というらしい。
; 			PRINTL この색기のある女を堕とせということなのだろうか……。
; 			PRINTW 『姉ヶ崎 寧々』の情報を손に入れた
; ;最後に登場確定処理を必ず実施
; 	CALL SCENARIO_GET_CHARACTER,80008
; 	LOCAL -= 1
; 	LOCAL:1 = 1
; ELSE
; 	LOCAL -= 1
; ENDIF

; CALL GET_CHARANUM,80019
; IF RESULT == -1 && RAND:LOCAL == 0 && LOCAL:1 == 0
; ;以降、イベント発生時のメッセージを記入
; 			PRINTW 이벤트 발생！
; 			PRINTL 빚쟁이가 한 여자의 사진을 보여주었다。
; 			PRINTL 彼女の名前は「ひなこ」というらしい。
; 			PRINTL この天然っぽい폭유중학생を堕とせということなのだろうか……。
; 			PRINTW 『ひなこ』の情報を손に入れた
; ;最後に登場確定処理を必ず実施
; 	CALL SCENARIO_GET_CHARACTER,80019
; 	LOCAL -= 1
; 	LOCAL:1 = 1
; ELSE
; 	LOCAL -= 1
; ENDIF

; CALL GET_CHARANUM,80028
; IF RESULT == -1 && RAND:LOCAL == 0 && LOCAL:1 == 0
; ;以降、イベント発生時のメッセージを記入
; 			PRINTW 이벤트 발생！
; 			PRINTL 借金取りから、メールが届いた。　メールにはURLが書かれている。　これを見ろという事か。
; 			PRINTL そのサイトは、『ドリー』と名乗るネットアイドルのサイトだった。
; 			PRINTL どうもなかなかの인기のようだ。
; 			PRINTW こいつを落とせという事か‥‥。
; ;最後に登場確定処理を必ず実施
; 	CALL SCENARIO_GET_CHARACTER,80028
; 	LOCAL -= 1
; 	LOCAL:1 = 1
; ELSE
; 	LOCAL -= 1
; ENDIF

; CALL GET_CHARANUM,80050
; IF RESULT == -1 && RAND:LOCAL == 0 && LOCAL:1 == 0
; ;以降、イベント発生時のメッセージを記入
; 			PRINTW 이벤트 발생！
; 			PRINTL 借金取りから、一人の少女の写真を見せられた。
; 			PRINTL 보이쉬なことを除けばただの少女だったが、
; 			PRINTL 自分の組織員に銃を撃ったので、罰したいと伝えている。
; 			PRINTL ‥‥‥‥‥‥銃？
; 			PRINTL 一応、受け入れることにした。
; 			PRINTW 『キノ』の情報を손に入れた
; ;最後に登場確定処理を必ず実施
; 	CALL SCENARIO_GET_CHARACTER,80050
; 	LOCAL -= 1
; 	LOCAL:1 = 1
; ELSE
; 	LOCAL -= 1
; ENDIF

; CALL GET_CHARANUM,80051
; IF RESULT == -1 && RAND:LOCAL == 0 && LOCAL:1 == 0
; ;以降、イベント発生時のメッセージを記入
; 			PRINTW 이벤트 발생！
; 			PRINTL ヤクザ側の事務所から、一人の少女の写真を見せられた。
; 			PRINTL ‥‥雑誌で見たことがあるグラビアアイドルだ。
; 			PRINTL この女の子を操りたいのだろうか？
; 			PRINTW 『葦月 伊織』の情報を손に入れた
; ;最後に登場確定処理を必ず実施
; 	CALL SCENARIO_GET_CHARACTER,80051
; 	LOCAL -= 1
; 	LOCAL:1 = 1
; ELSE
; 	LOCAL -= 1
; ENDIF


code:
@SCENARIO_EVENT, ARG
CALL SCENARIO_EVENT_SCHOOL
CALL SCENARIO_EVENT_CHARACTER("SAMESCHOOL")
CALL SCENARIO_EVENT_CHARACTER("DAILY")
CALL SCENARIO_EVENT_CHARACTER_WARNING()
CALL SCENARIO_EVENT_COMMON

@SCENARIO_EVENT_SCHOOL
#DIM SCHOOL_NUM
#DIM index
#DIM clubIndex
#DIM clubRangeStart
#DIM clubRangeEnd
#DIM clubStudent,100
#DIM ret
#DIMS keyword
SCHOOL_NUM = GET_CHARA_GO_SCHOOL_INDEX(MASTER)
RESULT = 0
TRYCALLFORM SCHOOL_DATA_IS_EXISTS_{SCHOOL_NUM}()
SIF RESULT == 0
	THROW MASTER가 존재하지 않는 학원에 소속되어 있습니다
;嵐柁霧学園(ランダム学園)のみCFLAG:1001には200番がそのまま記入されている。 <-この仕様めっちゃバグりそうだし今や意味ないのでやめよう
;DEBUGPRINTFORML 学校番号:{SCHOOL_NUM}
;各学校の固有イベント(MASTERが所属している時のみ発生)
SELECTCASE 1
	CASE SCHOOL_FIRST_GOING_DAY:SCHOOL_NUM == 0 && IS_DAYTIME() && !IS_HOLIDAY()
		PRINTFORML -%GET_SCHOOL_NAME(SCHOOL_NUM)%-
		CALLFORM SCHOOL_DATA_EVENT_ADMISSION_{SCHOOL_NUM}
		CALL SCENARIO_EVENT_ADD_CHARA(SCHOOL_NUM,"ADMISSION","")
		SCHOOL_FIRST_GOING_DAY:SCHOOL_NUM = DAY + 1
	CASE SCHOOL_FIRST_GOING_DAY:SCHOOL_NUM > 0 && !TALENT:MASTER:체육부 && !TALENT:MASTER:문화부 && !TALENT:MASTER:격투기부 && !TALENT:MASTER:위원회 && !TALENT:MASTER:귀가부 && IS_DAYTIME() && !IS_HOLIDAY()
		IF GET_SCHOOL_SIZE_LEVEL(SCHOOL_NUM) <= 3
			PRINTFORML 아쉽게도 %조사처리(GET_SCHOOL_NAME(SCHOOL_NUM),"는")% 너무 소규모라서 동아리 활동을 운영할 여유가 없는 것 같다････。
			PRINTFORMW %마스터호칭은% 귀가부가 되었습니다。
			TALENT:MASTER:귀가부 = 1
		ELSE
			PRINTFORML 전학생이기 때문에、클럽에 소속되지 않은 %마스터호칭을% 위해 몇개의 클럽이 소개되었다。
			PRINTFORML [0]체육계 클럽에 가입한다(운동+1)
			PRINTFORML [1]문화계 클럽에 가입한다(감성+1)
			PRINTFORML [2]격투계 클럽에 가입한다(전투+1)
			PRINTFORML [3]위원회에 가입한다(학력+1)
			PRINTFORML [4]허나、거절한다。
			WHILE 1
				INPUT
				clubIndex = RESULT
				SELECTCASE clubIndex
					CASE 0
						keyword = SPORTS_CLUB
						PRINTFORML %마스터호칭은% 체육계 클럽에 들어갔습니다。
						TALENT:MASTER:체육부 = 1
						ABL:MASTER:운동능력 += 1
						BREAK
					CASE 1
						keyword = CULTURE_CLUB
						PRINTFORML %마스터호칭은% 문화계 클럽에 들어갔습니다。
						TALENT:MASTER:문화부 = 1
						ABL:MASTER:감성 += 1
						BREAK
					CASE 2
						keyword = FIGHTING_CLUB
						PRINTFORML %마스터호칭은% 격투계 클럽에 들어갔습니다。
						TALENT:MASTER:격투기부 = 1
						ABL:MASTER:전투능력 += 1
						BREAK
					CASE 3
						keyword = COMITTEE
						PRINTFORML %마스터호칭은% 위원회에 들어갔습니다。
						TALENT:MASTER:위원회 = 1
						ABL:MASTER:학력 += 1
						BREAK
					CASE 4
						keyword = NONE_CLUB
						PRINTFORML %마스터호칭은% 귀가부가 되었습니다。
						TALENT:MASTER:귀가부 = 1
						BREAK
					CASEELSE
						CONTINUE
				ENDSELECT
			WEND
			CALL SCENARIO_EVENT_ADD_CHARA(SCHOOL_NUM,keyword)
			SIF clubIndex == 4
				RETURN
			clubRangeStart = EVALUATE("SCHOOL_CLUB_START_INDEX_" + keyword)
			clubRangeEnd = EVALUATE("SCHOOL_CLUB_END_INDEX_" + keyword)
			PRINTFORML 어느 \@ clubIndex == 3 ? 위원회 # 클럽\@에 들어갈까････？
			FOR index,clubRangeStart,clubRangeEnd + 1
				ret = INIT_LIST(clubStudent)
				ret = GET_RULED_CHARAS("index != MASTER && IS_GO_SAMESCHOOL(index) && CFLAG:index:1002 == " + TOSTR(index),clubStudent)
				SIF ret == 0
					CONTINUE
				PRINTFORM [{index,4}] - %STR:index% (所属：
				ret = 0
				WHILE clubStudent:ret != -1
					SIF ret != 0
						PRINT 、
					PRINTFORM %NAME:(clubStudent:ret)%
					ret++
				WEND
				PRINTL )
			NEXT
			PRINTFORML [9999] - 다른 적당한 \@ clubIndex == 3 ? 위원회 # 클럽\@
			WHILE 1
				INPUT
				SELECTCASE RESULT
					CASE 9999
						PRINTFORML %마스터호칭은% 적당한 \@ clubIndex == 3 ? 위원회 # 클럽 \@에 들어갔다。
						CFLAG:MASTER:1002 = RESULT
						BREAK
					CASEELSE
						IF COUNT_RULED_CHARAS("IS_GO_SAMESCHOOL(index) && CFLAG:index:1002 == " + TOSTR(RESULT)) > 0
							PRINTFORML %마스터호칭은% %STR:RESULT%에 들어갔다。
							CFLAG:MASTER:1002 = RESULT
							BREAK
						ELSE
							CONTINUE
						ENDIF
				ENDSELECT
			WEND
		ENDIF
	CASEELSE
		TRYCALLFORM SCHOOL_DATA_EVENT_SP_THIS_SCHOOL_{SCHOOL_NUM}
ENDSELECT

@SCENARIO_EVENT_ADD_CHARA(schoolIndex,keyword,addMessage="부활동을 둘러보는 동안")
#DIM schoolIndex
#DIMS keyword
#DIM DYNAMIC addCharaList,100
#DIM DYNAMIC index = 0
#DIM addCharaCount
#DIMS addMessage
addCharaCount = GET_CHARA_NO_LIST_FROM_NAME(GET_SCHOOL_EVENT_MEETING_CHARA(schoolIndex,keyword),addCharaList)
IF addCharaCount > 0
	SIF addMessage != ""
		PRINTFORM %addMessage%에
	WHILE addCharaList:index != -1
		IF GETCHARA(addCharaList:index) == -1
			CALL SCENARIO_GET_CHARACTER,addCharaList:index
			SIF addMessage != ""
				PRINTFORM 、%STR:CSVCFLAG(addCharaList:index,1002)%의 「%조사처리(CSVNAME(addCharaList:index),"와")%」
		ENDIF
		index++
	WEND
	SIF addMessage != ""
		PRINTFORML 아는 사이가 되었다。
ENDIF

;keywordはイベントが起きるシチュエーション。今のところこの4つ。
;"SAMESCHOOL":MASTERと対象キャラが同じ学校である場合毎日　"DAILY":無条件に毎日発生　"SHOP":散策で店舗をうろつく場合　"CITY":散策で街をうろつく場合
@SCENARIO_EVENT_CHARACTER(keyword,maxRiseEventCount = 1)
#DIMS keyword
#DIM maxRiseEventCount
#DIMS DYNAMIC eventMap,100 ;多分こんだけありゃ足りる
#DIM index
#DIM ret
#DIMS retStr
#DIM targetCharaNo
#DIM targetCharaIndex
#DIM daysCount
#DIMS eventInfo
#DIM DYNAMIC riseEventCount = 0
#DIMS phaseKeyword
#DIM schoolIndex
#DIM eventResult
CALL CREATE_EXIST_CHARA_NO_LIST
ret = INIT_STR_LIST(eventMap)
daysCount = DAY - SCHOOL_FIRST_GOING_DAY:GET_CHARA_GO_SCHOOL_INDEX(MASTER)
;まず、条件を満たすキャラのMAPを作る
index = -1
WHILE index < CHARACTER_MAXCOUNT - 1
	index++
	SIF EXIST_CHARA_NO_LIST:index == -1
		BREAK
	targetCharaNo = EXIST_CHARA_NO_LIST:index
	targetCharaIndex = GETCHARA(targetCharaNo)
	SIF !IS_KEYWORD_SATISFIED(keyword,targetCharaNo,targetCharaIndex,daysCount)
		CONTINUE
	SIF targetCharaIndex > 0 && IS_UNCONTACTABLE(targetCharaIndex)
		CONTINUE
	RESULT = 0
	TRYCALLFORM SCENARIO_EVENT_CHARACTER_IS_EXISTS_{targetCharaNo}()
	SIF RESULT == 0
		CONTINUE
	RESULT = 0
	phaseKeyword = ""
	WHILE 1
		phaseKeyword = %GET_CHARACTER_EVENT_PHASE_KEYWORD(targetCharaIndex,targetCharaNo,phaseKeyword)%
		SIF phaseKeyword == "NONE"
			BREAK
		SIF SEARCH_BETWEEN_STRING(FUNC_STR_INDEX_CALL_VV("SCENARIO_EVENT_CHARACTER_" + phaseKeyword + "_EVENT_KEYWORD",targetCharaNo,targetCharaIndex,daysCount),",",keyword) < 0
			CONTINUE
		IF phaseKeyword != "NORMAL"
			schoolIndex = FUNC_INDEX_CALL_SVV("SCENARIO_EVENT_CHARACTER_" + phaseKeyword + "_EVENT_SCHOOLCHECK",targetCharaNo,keyword,targetCharaIndex,daysCount)
			SIF schoolIndex != -1 && GET_CHARA_GO_SCHOOL_INDEX(MASTER) != schoolIndex
				CONTINUE
		ENDIF
		BREAK
	WEND
	SIF phaseKeyword == "NONE"
		CONTINUE
	ret = -1
	ret = STR_LIST_ADD(eventMap,TOSTR(targetCharaNo) + ":" + phaseKeyword)
WEND
WHILE GET_STR_LIST_LAST_ELEMENT(eventMap) != -1
	WHILE GET_STR_LIST_LAST_ELEMENT(eventMap) != -1
		index = RAND:(GET_STR_LIST_LAST_ELEMENT(eventMap) + 1)
		targetCharaNo = TOINT(GET_BETWEEN_STRING(eventMap:index,":",0))
		phaseKeyword = %GET_BETWEEN_STRING(eventMap:index,":",1)%
		targetCharaIndex = GETCHARA(targetCharaNo)
		RESULT = 0
		CALLFORM SCENARIO_EVENT_CHARACTER_%phaseKeyword%_EVENT_MESSAGE_{targetCharaNo}(keyword,targetCharaIndex,daysCount)
		eventResult = RESULT
		IF eventResult == 0
			;イベント発生しなかったので、当該イベントを削除して再検索
			retStr = %STR_LIST_DELETE(eventMap,index)%
			CONTINUE
		ELSE
			BREAK
		ENDIF
	WEND
	IF GET_STR_LIST_LAST_ELEMENT(eventMap) != -1
		SELECTCASE phaseKeyword
			CASE "FIRST"
				SELECTCASE eventResult
					CASE 1
						CHARA_FIRST_FLAGS:targetCharaNo = DAY
					CASE 2
						CHARA_FIRST_FLAGS:targetCharaNo = DAY
						CALL SCENARIO_GET_CHARACTER, targetCharaNo
					CASE 3
						CHARA_FIRST_FLAGS:targetCharaNo = DAY
						CALL SCENARIO_GET_CHARACTER, targetCharaNo
						CFLAG:GETCHARA(targetCharaNo):1001 = GET_CHARA_GO_SCHOOL_INDEX(MASTER)
					CASE -1
						;아무것도안한다
					CASEELSE
						;아무것도안한다
				ENDSELECT
			CASE "APPEAR"
				SELECTCASE eventResult
					CASE 1
						CHARA_APPEAR_FLAGS:targetCharaNo = DAY
						CALL SCENARIO_GET_CHARACTER, targetCharaNo
					CASE 3
						CHARA_APPEAR_FLAGS:targetCharaNo = DAY
						CALL SCENARIO_GET_CHARACTER, targetCharaNo
						CFLAG:GETCHARA(targetCharaNo):1001 = GET_CHARA_GO_SCHOOL_INDEX(MASTER)
					CASE -1
						;아무것도안한다
					CASEELSE
						;아무것도안한다
				ENDSELECT
			CASE "NORMAL"
				;登場済みキャラのイベント。個別イベント側で処理するため、原則아무것도안한다
			CASEELSE
				THROW 부정한 keywordです。 : %phaseKeyword%
		ENDSELECT
		riseEventCount++
		SIF riseEventCount >= maxRiseEventCount
			BREAK
	ENDIF
WEND
RETURN riseEventCount

@GET_CHARACTER_EVENT_PHASE_KEYWORD(targetCharaIndex,targetCharaNo,preCheckKeyword="")
#FUNCTIONS
#DIM targetCharaIndex
#DIM targetCharaNo
#DIMS preCheckKeyword
#DIM preCheckIndex
#DIMS SEARCH_KEYWORD = "NONE/FIRST/APPEAR/NORMAL"
RETURNF GET_BETWEEN_STRING(SEARCH_KEYWORD,"/",GET_CHARACTER_EVENT_PHASE_INDEX(targetCharaIndex,targetCharaNo,(preCheckKeyword == "" ? -1 # SEARCH_BETWEEN_STRING(SEARCH_KEYWORD,"/",preCheckKeyword))))

@GET_CHARACTER_EVENT_PHASE_INDEX(targetCharaIndex,targetCharaNo,preCheckIndex = -1)
#FUNCTION
#DIM targetCharaIndex
#DIM targetCharaNo
#DIM preCheckIndex
SELECTCASE 1
	CASE (targetCharaIndex < 0 || !IS_ROUTE_IN(targetCharaIndex)) && CHARA_FIRST_FLAGS:targetCharaNo == 0 && preCheckIndex < 1
		RETURNF 1
	CASE (targetCharaIndex < 0 || !IS_ROUTE_IN(targetCharaIndex)) && CHARA_APPEAR_FLAGS:targetCharaNo == 0 && CHARA_FIRST_FLAGS:targetCharaNo > 0 && preCheckIndex < 2
		SIF CHARA_FIRST_FLAGS:targetCharaNo > DAY + 1
			RETURNF 0
		RETURNF 2
	CASE targetCharaIndex > 0 && preCheckIndex < 3
		SIF CHARA_FIRST_FLAGS:targetCharaNo > DAY + 1 || CHARA_APPEAR_FLAGS:targetCharaNo > DAY + 1
			RETURNF 0
		RETURNF 3
	CASEELSE
		RETURNF 0
ENDSELECT

;キーワードにタイミング以外の특수な条件がある場合のチェック。
@IS_KEYWORD_SATISFIED(keyword,targetCharaNo,targetCharaIndex,daysCount)
#FUNCTION
#DIMS keyword
#DIM targetCharaNo
#DIM targetCharaIndex
#DIM daysCount
SELECTCASE keyword
	CASE "SAMESCHOOL"
		;未登場の場合は確定で1(学園の指定はイベント定義側で行う)。そうでない場合は判定
		RETURNF (targetCharaIndex < 0 ? 1 # IS_GO_SAMESCHOOL(targetCharaIndex))
	CASEELSE
		RETURNF 1
ENDSELECT

@SCENARIO_EVENT_CHARACTER_WARNING()
#DIM index
#DIM targetCharaNo
#DIM targetCharaIndex
#DIM daysCount
daysCount = DAY - SCHOOL_FIRST_GOING_DAY:GET_CHARA_GO_SCHOOL_INDEX(MASTER)
index = -1
WHILE index < CHARACTER_MAXCOUNT - 1
	index++
	SIF EXIST_CHARA_NO_LIST:index == -1
		BREAK
	targetCharaNo = EXIST_CHARA_NO_LIST:index
	RESULT = 0
	TRYCALLFORM SCENARIO_EVENT_CHARACTER_IS_EXISTS_{targetCharaNo}()
	SIF RESULT == 0
		CONTINUE
	targetCharaIndex = GETCHARA(targetCharaNo)
	SIF CHARA_WARNING_FLAGS:targetCharaNo != 0
		CONTINUE
	SIF targetCharaIndex > 0 && (IS_UPPER_FALLEN(targetCharaIndex) || !IS_WARNING_CONTINUE_REQUEST(targetCharaIndex) || IS_UNCONTACTABLE(targetCharaIndex))
		CONTINUE
	SIF !FUNC_INDEX_CALL_VV("SCENARIO_EVENT_CHARACTER_WARNING_START_EVENT_CHECK",targetCharaNo,targetCharaIndex,daysCount)
		CONTINUE
	CALLFORM SCENARIO_EVENT_CHARACTER_WARNING_START_EVENT_{targetCharaNo}(targetCharaIndex,daysCount)
	PRINTFORMW －조금 약점을 잡기 어려워집니다－
	;未登場なら必ず登場させる
	SIF targetCharaIndex < 0
		CALL SCENARIO_GET_CHARACTER, targetCharaNo
	TALENT:MASTER:경계 = 1
	CHARA_WARNING_FLAGS:targetCharaNo = DAY
WEND
index = -1
WHILE index < CHARACTER_MAXCOUNT - 1
	index++
	SIF EXIST_CHARA_NO_LIST:index == -1
		BREAK
	targetCharaNo = EXIST_CHARA_NO_LIST:index
	RESULT = 0
	TRYCALLFORM SCENARIO_EVENT_CHARACTER_IS_EXISTS_{targetCharaNo}()
	SIF RESULT == 0
		CONTINUE
	SIF CHARA_WARNING_FLAGS:targetCharaNo <= 0
		CONTINUE
	targetCharaIndex = GETCHARA(targetCharaNo)
	SIF targetCharaIndex < 0
		THROW 경계 플래그가 서 있는 캐릭터가 없어졌습니다　: %CSVNAME(targetCharaNo)%
	IF IS_UPPER_FALLEN(targetCharaIndex) || !IS_WARNING_CONTINUE_REQUEST(targetCharaIndex) || IS_UNCONTACTABLE(targetCharaIndex)
		CALLFORM SCENARIO_EVENT_CHARACTER_WARNING_END_EVENT_{targetCharaNo}(targetCharaIndex,daysCount,CHARA_WARNING_FLAGS:targetCharaNo)
		CHARA_WARNING_FLAGS:targetCharaNo = -1
	ELSE
		CALLFORM SCENARIO_EVENT_CHARACTER_WARNING_CONTINUOUS_EVENT_{targetCharaNo}(targetCharaIndex,daysCount,CHARA_WARNING_FLAGS:targetCharaNo)
	ENDIF
WEND
SIF !IS_WARNING_CONTINUE()
	TALENT:MASTER:경계 = 0
RETURN

;存在するキャラNOのリストをキャッシュする。
;Noのリストなので、CSVが存在していればよく、登場/未登場に関係なく作る。格納しているのはこのリスト内のindex。
@CREATE_EXIST_CHARA_NO_LIST()
#DIM DYNAMIC charaListIndex = 0
#DIM index
#DIM ret
SIF IS_EXIST_CHARA_NO_LIST_FORMATTED
	RETURN
ret = INIT_LIST(EXIST_CHARA_NO_LIST)
FOR index,1,CHARACTER_MAXCOUNT
	IF EXISTCSV(index)
		EXIST_CHARA_NO_LIST:charaListIndex = index
		charaListIndex++
	ENDIF
NEXT
IS_EXIST_CHARA_NO_LIST_FORMATTED = 1
RETURN charaListIndex


code:
@SCENARIO_EVENT_COMMON,ARG
;所属校に関わらないイベント
#DIM TEMP

;----------一日一回のみ動作させるための仕組み
D:21 = 0			;初回フラグ「D:21」をクリア
IF FLAG:94 < DAY		;日付変更後、FLAG:94がDAYより小さい（初回の）場合
	D:21 = 1		;初回フラグを立てる
	FLAG:94 = DAY		;FLAG:94にDAYの値を代入（初回終了）
ENDIF

;IF FLAG:97 == 1			;遭遇イベントフラグがONの場合のみ処理

;----------転校イベントがない学校のため、COMMON上で登場させる
;もうここには追加しないでください。代わりに、SCHOOL_DATA_EVENT_MEETING_ADMISSIONを書くことで登場させてください。
	TRYCALL SCENARIO_EVENT999
				;汎用登場イベント
	TRYCALL SCENARIO_EVENT999_SHIRABE
				;郊外キャラクター調べ専用イベント
;----------転校イベントがない学校の処理は上記の空欄に記述してください
;ENDIF
;----------遭遇イベントフラグを使用しない日常学校処理(高優先度)
;もうここには追加しないでください。代わりに、学園固有イベントまたはキャラクター固有イベントとして書いてください。
				;優先順位が季節イベントより低い学校イベントは
				;日付変更処理直前に記載しています
;----------ここまで

LOCAL = 0
IF ARG == 0
	A = ARG
;1　エログッズ持ち込み
	REPEAT CHARANUM
		SIF CFLAG:COUNT:115 != 0 && ( CFLAG:COUNT:116 % 100000 ) == DAY && IS_NIGHT() && !IS_UNCONTACTABLE(COUNT)
			CALL IN_SCHOOL_ACTION, COUNT
		SIF MARK:COUNT:3 == 3 && TALENT:COUNT:교제 == 1 && CFLAG:ARG:1000 == 5 && !IS_UNCONTACTABLE(COUNT)
			CALL DIVORCED, COUNT
;		SIF MARK:COUNT:3 == 3 && (TALENT:COUNT:협박 == 1 || TALENT:COUNT:강간 == 1) && !IS_UNCONTACTABLE(COUNT)
;			CALL VISIT_POLICE, COUNT
		IF MARK:COUNT:3 >= 2 && (TALENT:COUNT:협박 == 1 || TALENT:COUNT:강간 == 1) && !IS_UNCONTACTABLE(COUNT)
		;警察判定化
			SIF FLAG:1501 != DAY
				CALL ESCAPE_POLICE, COUNT
			FLAG:1501 = DAY
		ENDIF

	REND

	GETBIT (FLAG:92), 0

	IF D:21 == 1 && RESULT == 1
		REPEAT CHARANUM
			IF EXP:COUNT:57 == 20 && TALENT:COUNT:부끄럼쟁이 && !IS_UNCONTACTABLE(COUNT)
				PRINTW 이벤트 발생！
				PRINTL
				PRINTFORML %COUNT이름은% 매춘에 제법 익숙해진 것 같다。
				PRINTFORMW %COUNT이름은%『부끄럼쟁이』를 잃었다。
				PRINTL
				TALENT:COUNT:부끄럼쟁이 = 0
			ELSEIF EXP:COUNT:57 == 50 && !IS_UNCONTACTABLE(COUNT)
				IF TALENT:COUNT:정조관념
					PRINTW 이벤트 발생！
					PRINTL
					PRINTFORML %COUNT이름은% 매춘에 완전히 익숙해져 버린 것 같다。
					IF TALENT:COUNT:정조무관심
						PRINTFORMW %COUNT이름은%『정조관념』을 잃었다。
					ELSE
						PRINTFORMW %COUNT이름은%『정조관념』을 잃고、『정조무관심』을 얻었다。
						TALENT:COUNT:정조무관심 = 1
					ENDIF
					TALENT:COUNT:정조관념 = 0
					PRINTL
				ELSEIF TALENT:COUNT:정조무관심 != 1
					PRINTW 이벤트 발생！
					PRINTL
					PRINTFORML %COUNT이름은% 매춘에 완전히 익숙해져 버린 것 같다。
					PRINTFORMW %COUNT이름은%『정조무관심』을 얻었다。
					TALENT:COUNT:정조무관심 = 1
					PRINTL
				ENDIF
			ENDIF
		REND
	ENDIF

;1.5　誕生日イベント
	CALL BIRTHDAY

;2　季節イベント
	IF D:21 == 1		;初回フラグが立っている場合のみ実行
		CALL GET_CALENDER
				;カレンダーを読み込み

;■■■一学期のイベント
;----------一学期始業時
		IF A == 4 && B == 7 && W == 0
				;4月7日が日曜の場合
			P:96 = 1
				;曜日判定フラグに1を代入
		ELSEIF A == 4 && B == 7 && W == 6
				;4月7日が土曜の場合
			P:96 = 2
				;曜日判定フラグに2を代入
		ELSEIF A == 4 && B == 7 && W >= 1 && W <= 5
				;4月7日が平日の場合
			P:96 = 0
				;曜日判定フラグに0を代入
		ENDIF

		IF P:96 == 1	;曜日判定フラグが1の場合
			IF A == 4 && B == 8
				IF MONEY:1 == 0
					PRINTW 신학기가 드디어 시작된다！
				ELSE
					PRINTW 오늘부터 신학기가 시작된다……
				ENDIF
			ENDIF	;4月8日が始業式となる
		ELSEIF P:96 == 2
				;曜日判定フラグが2の場合
			IF A == 4 && B == 9
				IF MONEY:1 == 0
					PRINTW 신학기가 드디어 시작된다！
				ELSE
					PRINTW 오늘부터 신학기가 시작된다……
				ENDIF
			ENDIF	;4月9日が始業式となる
		ELSEIF P:96 == 0
				;曜日判定フラグが0で
			IF A == 4 && B == 7 && Y == 0
				PRINTW 대출 상환을 위해、사냥감을 찾는 여정이 시작되었다……
				;初年度プレイの場合、4月7日に上記を表示
			ELSEIF A == 4 && B == 7 && Y >= 1
				IF MONEY:1 == 0
					PRINTW 신학기가 드디어 시작된다！
				ELSE
					PRINTW 오늘부터 신학기가 시작된다……
				ENDIF
				;それ以外は4月7日に上記を表示
			ENDIF
		ENDIF

;----------一学期期末試験
		IF A == 6 && FLAG:2000 == 0
				;試験対策イベント（6月最終月曜）
			IF B >= 24 && W == 1
				PRINTFORMW 기말시험 일주일 전
				CALL BEFORE_TEST
				SIF FLAG:2000 == 2 || FLAG:2000 == 3
					LOCAL = 6
			ENDIF
		ENDIF
		IF A == 7 && FLAG:2000 != 0
				;期末試験本番（7月第1週月曜）
			IF B >= 1 && B <= 7 && W == 1
				PRINTFORMW 1학기 기말시험
				CALL KIMATU_TEST,FLAG:2000
				PRINTL -시험 때문에 나흘이 경과했습니다-
				LOCAL = 4
			ENDIF
		ENDIF

;----------一学期終業時
		IF A == 7 && B == 18 && W == 5
				;7月18日が金曜の場合
			IF MONEY:1 == 0
				PRINTW 오늘은 방학식이다！
			ELSE
				PRINTW 오늘부로 1학기는 끝났다……
			ENDIF	;7月21日が海の日と重なるため上記を表示

		ELSEIF A == 7 && B == 19 && W == 5
				;7月19日が金曜の場合
			IF MONEY:1 == 0
				PRINTW 오늘은 방학식이다！
			ELSE
				PRINTW 오늘부로 1학기는 끝났다……
			ENDIF	;7月21日が日曜のため上記を表示
		ELSEIF A == 7 && B == 20 && W == 5
				;7月20日が金曜の場合
			IF MONEY:1 == 0
				PRINTW 오늘은 방학식이다！
			ELSE
				PRINTW 오늘부로 1학기는 끝났다……
			ENDIF	;7月21日が土曜のため上記を表示
		ELSEIF A == 7 && B == 21
				;7月21日が平日の場合
			IF MONEY:1 == 0
				PRINTW 오늘은 방학식이다！
			ELSE
				PRINTW 오늘부로 1학기는 끝났다……
			ENDIF	;上記を表示
		ENDIF

;■■■夏休み中のイベント
;----------夏休み初日
		IF A == 7 && B == 22
			IF MONEY:1 == 0 && FLAG:2000 != 10
				PRINTW 드디어 여름방학 도래！
			ELSE
				PRINTW 오늘부터 여름방학이다……
			ENDIF
		ENDIF
		IF A == 7 && B == 22 && FLAG:2000 == 10
				;一学期補習（7月22日～7月31日まで）
			PRINTFORML 1학기 보충수업
			PRINTFORMW 보충수업 때문에 행동을 실시할 수 없습니다……
			FLAG:2000 = 0
			PRINTL -보충수업 때문에 10일이 경과했습니다-
			LOCAL = 10
		ENDIF

;----------夏祭り
		IF A==7 && INRANGE(B,22,28) && W == 6
			CALL SUMMER_FESTIVAL
			LOCAL = RESULT
		ENDIF

;----------夏休み・海へでかけよう！
		IF A == 8 && B == 10 && FLAG:2000 == 0 && MONEY >= 5000
				;夏休み・海水浴イベント（8月10日）
			CALL SUMMER_VACATION
			SIF FLAG:2000 == 2
				LOCAL = 1
		ENDIF
		IF A == 8 && B == 12 && FLAG:2000 != 0
				;夏休みフラグリセット
			FLAG:2000 = 0
		ENDIF

;----------夏休み・クラブ合宿
		IF A == 8 && B == 21 && FLAG:2000 == 0 && MONEY >= 5000
				;夏休み・合宿（8月21日）
			RESULT = 0
			CALL CLUB_GASHUKU
			SIF RESULT == 1
				LOCAL = 5
		ENDIF

;----------夏休み最終日
		IF A == 8 && B == 31
			IF MONEY:1 == 0
				PRINTW 즐거웠던 여름방학도 이제 끝난다……
			ELSE
				PRINTW 오늘로 여름방학은 끝난다……
			ENDIF
		ENDIF

;■■■二学期のイベント
;----------二学期始業時
		IF A == 9 && B == 1 && W == 0
				;9月1日が日曜の場合
			P:97 = 1
				;曜日判定フラグに1を代入
		ELSEIF A == 9 && B == 1 && W == 6
				;9月1日が土曜の場合
			P:97 = 2
				;曜日判定フラグに2を代入
		ELSEIF A == 9 && B == 1 && W >= 1 && W <= 5
				;9月1日が平日の場合
			P:97 = 0
				;曜日判定フラグに0を代入
		ENDIF

		IF P:97 == 1	;曜日判定フラグが1の場合
			IF A == 9 && B == 2
				IF MONEY:1 == 0
					PRINTW 신학기가 드디어 시작된다！
				ELSE
					PRINTW 오늘부터 신학기가 시작된다……
				ENDIF
			ENDIF	;9月2日が始業式となる
		ELSEIF P:97 == 2
				;曜日判定フラグが2の場合
			IF A == 9 && B == 3
				IF MONEY:1 == 0
					PRINTW 신학기가 드디어 시작된다！
				ELSE
					PRINTW 오늘부터 신학기가 시작된다……
				ENDIF
			ENDIF	;9月3日が始業式となる
		ELSEIF P:97 == 0
				;曜日判定フラグが0で
			IF A == 9 && B == 1
				IF MONEY:1 == 0
					PRINTW 신학기가 드디어 시작된다！
				ELSE
					PRINTW 오늘부터 신학기가 시작된다……
				ENDIF
			ENDIF	;9月1日が始業式となる
		ENDIF

;----------体育祭
		IF A == 9 && FLAG:2000 == 0
				;体育祭準備イベント（9月第1月曜）
			IF B >= 1 && B <= 7 && W == 1
				PRINTFORMW 체육대회 일주일 전
				CALL BEFORE_TAIKUSAI
				SIF FLAG:2000 == 2
					LOCAL = 5
			ENDIF
		ENDIF
		IF A == 9 && FLAG:2000 != 0
				;体育祭本番（翌日曜）
			IF B >= 7 && B <= 13 && W == 0
				PRINTFORMW 체육대회
				CALL TAIKUSAI,FLAG:2000
				LOCAL = 1
				;おまじない
				FLAG:2000 = 0
			ENDIF
		ENDIF

;----------文化祭
		IF A == 10 && FLAG:2000 == 0
				;文化祭準備イベント（10月第2土曜）
			IF B >= 8 && B <= 14 && W == 6
				PRINTFORMW 문화제 일주일 전
				CALL BEFORE_BUNKASAI
				SIF FLAG:2000 == 2
					LOCAL = 6
			ENDIF
		ENDIF
		IF A == 10 && FLAG:2000 != 0
				;文化祭本番（10月第3土曜）
			IF B >= 15 && B <= 21 && W == 6
				PRINTFORMW 문화제
				CALL BUNKASAI,FLAG:2000
				LOCAL = 2
				;おまじない
				FLAG:2000 = 0
			ENDIF
		ENDIF

;----------二学期期末試験
		IF A == 11 && FLAG:2000 == 0
				;試験対策イベント（11月最終月曜）
			IF B >= 24 && W == 1
				PRINTFORMW 기말시험 일주일 전
				CALL BEFORE_TEST
				SIF FLAG:2000 == 2 || FLAG:2000 == 3
					LOCAL = 6
			ENDIF
		ENDIF
		IF A == 12 && FLAG:2000 != 0
				;期末試験本番（12月第1週月曜）
			IF B >= 1 && B <= 7 && W == 1
				PRINTFORMW 2학기 기말시험
				CALL KIMATU_TEST,FLAG:2000
				PRINTL -시험 때문에 나흘이 경과했습니다-
				LOCAL = 4
			ENDIF
		ENDIF

;----------二学期終業時
		IF A == 12 && B == 19 && W == 5
				;12月19日が金曜の場合
			IF MONEY:1 == 0
				PRINTW 오늘은 방학식이다！
			ELSE
				PRINTW 오늘부로 2학기는 끝났다……
			ENDIF	;12月21日が日曜のため上記を表示
		ELSEIF A == 12 && B == 20 && W == 5
				;12月20日が金曜の場合
			IF MONEY:1 == 0
				PRINTW 오늘은 방학식이다！
			ELSE
				PRINTW 오늘부로 2학기는 끝났다……
			ENDIF	;12月21日が土曜のため上記を表示
		ELSEIF A == 12 && B == 21
				;12月21日が平日の場合
			IF MONEY:1 == 0
				PRINTW 오늘은 방학식이다！
			ELSE
				PRINTW 오늘부로 2학기는 끝났다……
			ENDIF	;上記を表示
		ENDIF

;■■■冬休み中のイベント
;----------冬休み初日
		IF A == 12 && B == 22
			IF MONEY:1 == 0 && FLAG:2000 != 10
				PRINTW 길었던 2학기도 끝나、겨울방학 도래！
			ELSE
				PRINTW 오늘부터 겨울방학이다……
			ENDIF
		ENDIF
		IF A == 12 && B == 24 && FLAG:2000 == 10
				;二学期補習（12月24日～12月28日まで）
			PRINTFORML 2학기 보충수업
			PRINTFORMW 보충수업 때문에 행동을 실시할 수 없습니다……
			FLAG:2000 = 0
			PRINTL -보충수업 때문에 5일이 경과했습니다-
			LOCAL = 5
		ELSEIF A == 12 && B == 24 && FLAG:2000 == 0
			CALL CHRISMAS
		ENDIF
		SIF  A == 12 && B == 25
			FLAG:2000 = 0
;----------初詣イベント
		SIF A == 12 && B == 31
			CALL BEFORE_HATSU_MOUDE
		IF A == 1 && B == 1
			CALL HATSU_MOUDE
			LOCAL = RESULT
		ENDIF
;----------冬休み最終日
		SIF A == 1 && B == 6
			PRINTW 오늘로 겨울방학이 끝난다……

;■■■三学期のイベント
;----------三学期始業時
		IF A == 1 && B == 7 && W == 0
				;1月7日が日曜の場合
			P:98 = 1
				;曜日判定フラグに1を代入
		ELSEIF A == 1 && B == 7 && W == 6
				;1月7日が土曜の場合
			P:98 = 2
				;曜日判定フラグに2を代入
		ELSEIF A == 1 && B == 7 && W >= 1 && W <= 5
				;1月7日が平日の場合
			P:98 = 0
				;曜日判定フラグに0を代入
		ENDIF

		IF P:98 == 1
				;曜日判定フラグが1の場合
			IF A == 1 && B == 8
				IF MONEY:1 == 0
					PRINTW 신학기가 드디어 시작된다！
				ELSE
					PRINTW 오늘부터 신학기가 시작된다……
				ENDIF
			ENDIF	;1月8日が始業式となる
		ELSEIF P:98 == 2
				;曜日判定フラグが2の場合
			IF A == 1 && B == 10
				IF MONEY:1 == 0
					PRINTW 신학기가 드디어 시작된다！
				ELSE
					PRINTW 오늘부터 신학기가 시작된다……
				ENDIF
			ENDIF	;1月10日が始業式となる（9日は成人の日）
		ELSEIF P:98 == 0
				;曜日判定フラグが0で
			IF A == 1 && B == 7
				IF MONEY:1 == 0
					PRINTW 신학기가 드디어 시작된다！
				ELSE
					PRINTW 오늘부터 신학기가 시작된다……
				ENDIF
			ENDIF	;1月7日が始業式となる
		ENDIF
		IF A == 2 && B == 14 && FLAG:2000 == 0
			CALL VALENTINE
		ENDIF
		SIF  A == 2 && B == 15
			FLAG:2000 = 0
;----------学年末試験
		IF A == 2 && FLAG:2000 == 0
				;試験対策イベント（2月第3月曜）
			IF B >= 15 && B <= 21 && W == 1
				PRINTFORMW 학년말시험 일주일 전
				CALL BEFORE_TEST
				SIF FLAG:2000 == 2 || FLAG:2000 == 3
					LOCAL = 6
			ENDIF
		ENDIF
		IF A == 2 && FLAG:2000 != 0
				;学年末試験本番（2月第4週月曜）
			IF B >= 22 && B <= 28 && W == 1
				PRINTFORMW 학년말시험
				CALL KIMATU_TEST,FLAG:2000
				PRINTL -시험 때문에 나흘이 경과했습니다-
				LOCAL = 4
			ENDIF
		ENDIF

;----------三学期終業時
		IF A == 3 && B == 21 && W == 5
				;3月21日が金曜の場合
			IF MONEY:1 == 0
				PRINTW 오늘로 한해도 마지막이다！
			ELSE
				PRINTW 오늘로 이번 학기도 끝났다……
			ENDIF	;3月23日が日曜のため上記を表示
		ELSEIF A == 3 && B == 22 && W == 5
				;3月22日が金曜の場合
			IF MONEY:1 == 0
				PRINTW 오늘로 한해도 마지막이다！
			ELSE
				PRINTW 오늘로 이번 학기도 끝났다……
			ENDIF	;3月23日が土曜のため上記を表示
		ELSEIF A == 3 && B == 23
				;3月23日が平日の場合
			IF MONEY:1 == 0
				PRINTW 오늘로 한해도 마지막이다！
			ELSE
				PRINTW 오늘로 이번 학기도 끝났다……
			ENDIF	;上記を表示
		ENDIF

;■■■春休み中のイベント
;----------春休み初日
		IF A == 3 && B == 24
			IF MONEY:1 == 0 && FLAG:2000 != 10
				PRINTW 개학식까지 휴식이다
			ELSE
				PRINTW 오늘부터 봄방학이다……
			ENDIF
		ENDIF
		IF A == 3 && B == 24 && FLAG:2000 == 10
				;進級補習（3月24日～27日まで）
			PRINTFORML 진급 보충수업
			PRINTFORMW 보충수업 때문에 행동을 실시할 수 없습니다……
			FLAG:2000 = 0
			PRINTL -보충수업 때문에 나흘이 경과했습니다-
			LOCAL = 4
		ENDIF

;----------春休み最終日
		SIF A == 4 && B == 6
			PRINTW 오늘로 봄방학은 끝난다……

	ENDIF
ENDIF

IF LOCAL == 0 && D:21 == 1 && IS_DAYTIME()
	TRYCALL FESTIVAL(A,B,W)
	LOCAL=RESULT
ENDIF

IF LOCAL == 0 && D:21 == 1 && FLAG:8 == 1
;----------季節イベントより優先度の低い日常学校処理
	PRINT
	;このPRINTはダミー。何かしらイベント追加したら消す
ENDIF

;日曜デート
IF FLAG:8 == 0 && W == 0 && MONEY >= 8000 && D:21 == 1 && FLAG:2000 == 0 && FLAG:30 >= 1 && FLAG:160 == 1
	CALL HOLIDAY_DATE
	FLAG:2000 = 0
ENDIF
CALL WARNING_DOWN()

IF LOCAL > 0
	PRINTFORMW {LOCAL}일이 경과했다……
	REPEAT LOCAL
		TEMP = COUNT
		DAY += 1
		CALL DATE_JUMP
;精算
		SIF DAY % 10 == 0 && DAY > FLAG:1100
			CALL SEISAN

;日付変更時のイベント呼び出し
		CALL EVENT_NEXTDAY
		CALL EVENT_NEWDAY
		CALL EVENT_NEWDAY_SELF
		COUNT = TEMP
	REND
	FLAG:0 = 0
	;バッドエンドの判定
	CALL BADEND_CHECK()
	PRINTW
ENDIF

@DATE_JUMP
;日を飛ばす時のキャラ毎の処理
;C = COUNT
REPEAT CHARANUM
	;기력の回復
	BASE:COUNT:1 = MAXBASE:COUNT:1

	;労役中のキャラは체력回復処理無し(日を飛ばす時は労役処理をしないので、체력も回復)
;	SIF CFLAG:COUNT:12 > 0
;		CONTINUE

	;체력回復停止処理
	IF CFLAG:COUNT:6 > 0
		CFLAG:COUNT:6 -= 1
		CONTINUE
	ENDIF

	;체력の回復（午後の調教後は夜の休みが入るので回復大きい）
	A = MAXBASE:COUNT:0 / 5

	;회복빠름、회복느림、요마
	IF TALENT:COUNT:회복빠름
		TIMES A , 1.50
	ELSEIF TALENT:COUNT:회복느림
		TIMES A , 0.75
	ELSEIF TALENT:COUNT:요마
		TIMES A , 1.80
	ENDIF

	;치료
	IF ASSI >= 0
		SIF TALENT:ASSI:치료
		A += 150
	ENDIF

	;休憩フラグ（休憩フラグが経っている、もしくは調教対象でない）
	IF FLAG:0 || TARGET != COUNT
		A += 100
		CFLAG:COUNT:10 -= 1
	ENDIF

	BASE:COUNT:0 += A
	SIF BASE:COUNT:0 > MAXBASE:COUNT:0
		BASE:COUNT:0 = MAXBASE:COUNT:0

	SIF IS_UNCONTACTABLE(COUNT)
		CONTINUE

	;스트레스치が0未満の場合は0にする
	SIF CFLAG:COUNT:10 < 0
		CFLAG:COUNT:10 = 0

	;エログッズ持込継続
	SIF CFLAG:COUNT:116 > 100000
		CFLAG:COUNT:116 = DAY + 100001

REND

;COUNT = C

@IS_WARNING_CONTINUE()
#FUNCTION
#DIM answer = 0
#DIM DYNAMIC index = -1
#DIM targetChara
WHILE index++ < CHARACTER_MAXCOUNT && EXIST_CHARA_NO_LIST:index != -1
	SIF CHARA_WARNING_FLAGS:(EXIST_CHARA_NO_LIST:index) <= 0
		CONTINUE
	targetChara = GETCHARA(EXIST_CHARA_NO_LIST:index)
	SIF targetChara != -1 && !IS_UPPER_FALLEN(targetChara) && !IS_UNCONTACTABLE(targetChara) && IS_WARNING_CONTINUE_REQUEST(targetChara)
		RETURNF 1
WEND
RETURNF 0

@IS_WARNING_CONTINUE_REQUEST(targetChara)
#FUNCTION
#DIM targetChara
SIF CSTR:targetChara:51 == ""
	RETURNF 0
RETURNF EVALUATE(CSTR:targetChara:51,targetChara)


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

;----------イベント本体
@FESTIVAL(month,days,week)
#DIM DYNAMIC month
#DIM DYNAMIC days
#DIM DYNAMIC week
#DIM DYNAMIC index
#DIM DYNAMIC index2
#DIM DYNAMIC targetChara = -1
#DIM DYNAMIC mode
#DIM DYNAMIC equipedItem = -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","TALENT:index:기생"
#DIMS DYNAMIC getJuelName = ""
#DIMS DYNAMIC festivalName
#DIM DYNAMIC festivalType
#DIMS DYNAMIC festivalActionName
#DIMS DYNAMIC festivalSexPlace
#DIM DYNAMIC clubIndex
#DIMS DYNAMIC sexPattern
#DIMS DYNAMIC getJuelName2
#DIMS allTargetCharaList, 100
#DIMS targetCharaList, 10
#DIM ret
#DIM festivalIndex
#DIM festivalList,10
#DIMS charaInfo,2
#DIM DYNAMIC masterClubFestival = 0

;-----------------------------------------------------------------フェイズB：イベント判定
ret = INIT_STR_LIST(allTargetCharaList,CHAR_ESC)
ret = INIT_STR_LIST(targetCharaList,CHAR_ESC)
ret = INIT_LIST(festivalList)
index = 0
WHILE 1
	RESULT = 0
	TRYCALLFORM IS_FESTIVAL_EXIST_{index}()
	SIF RESULT == 0
		BREAK
	SIF !FUNC_INDEX_CALL_VVV("FESTIVAL_DATE",index,month,days,week)
		BREAK
	clubIndex = FUNC_INDEX_CALL("FESTIVAL_CLUB",index)
	SIF clubIndex == CFLAG:MASTER:203
		masterClubFestival = clubIndex
	FOR index2,0,CHARANUM
		SIF index2==MASTER
			continue
		SIF !IS_FALLEN(index2)
			continue
		SIF IS_UNCONTACTABLE(index2)
			continue
		SIF CFLAG:index2:1002 != clubIndex
			continue
		SIF !FUNC_INDEX_CALL_V("FESTIVAL_RULE",index,index2)
			continue
		ret = STR_LIST_ADD(allTargetCharaList,TOSTR(index2) + "," + TOSTR(index),,CHAR_ESC)
		SIF LIST_GET_VALUE_INDEX(festivalList,index) < 0
			ret = LIST_ADD(festivalList,index)
	NEXT
	index ++
WEND
SELECTCASE GET_STR_LIST_LAST_ELEMENT(allTargetCharaList,CHAR_ESC)
	CASE -1
		;対象キャラがいない場合は終了
		RETURN 0
	CASE IS >= VARSIZE("targetCharaList")
		;対象キャラの抽選 <=実は絞らんでも何とかなる気がしないでもない
		ret = STR_LIST_EXTRACT_RANDOMLY(allTargetCharaList,targetCharaList)
	CASEELSE
		FOR index,0,GET_STR_LIST_LAST_ELEMENT(allTargetCharaList,CHAR_ESC) + 1
			targetCharaList:index = %allTargetCharaList:index%
		NEXT
ENDSELECT

;-----------------------------------------------------------------フェイズ0：事前準備
IF LIST_GET_VALUE_INDEX(festivalList,masterClubFestival) >= 0
	;開催される大会の中にあなたの所属クラブがある場合、そちらのイベントが発生
	;CALL FESTIVAL_SELF(masterClubFestival,festivalList:LIST_GET_VALUE_INDEX(festivalList,masterClubFestival))
	;RETURN 0
ENDIF

IF GET_LIST_LAST_ELEMENT(festivalList) == -1
	festivalIndex = festivalList:0
	PRINTFORML 그러고 보니、오늘은 %조사선택(STRFORM("%"+"FUNC_STR_INDEX_CALL(\"FESTIVAL_NAME\",festivalIndex)"+"%"),"이")% 있는 모양이다････。
ELSE
	PRINTFORML 그러고 보니、오늘은････
	FOR index,0,GET_LIST_LAST_ELEMENT(festivalList) + 1
		PRINTFORM [{index,2}] - %조사선택(STRFORM("%"+"FUNC_STR_INDEX_CALL(\"FESTIVAL_NAME\",festivalIndex)"+"%"),"이")% 있는 모양이다････。(참가자：
		FOR index2,0,GET_STR_LIST_LAST_ELEMENT(targetCharaList,CHAR_ESC) + 1
			SPLIT targetCharaList:index2,",",charaInfo
			SIF TOINT(charaInfo:1) != index
				CONTINUE
			SIF index2 != 0
				PRINT 、
			PRINTFORM %CALLNAME:TOINT(charaInfo:0)%
		NEXT
		PRINTL )
	NEXT
	PRINTFORML [99] - 뭐、관계없는 일이다。
	WHILE 1
		INPUT
		SELECTCASE RESULT
			CASE 99
				festivalIndex = -1
				BREAK
			CASE 0 TO GET_LIST_LAST_ELEMENT(festivalList) + 1
				festivalIndex = festivalList:RESULT
				PRINTFORML %FUNC_STR_INDEX_CALL("FESTIVAL_NAME",festivalIndex)%에 얼굴을 비추자。
				BREAK
			CASEELSE
				;아무것도안한다
		ENDSELECT
	WEND
ENDIF

IF festivalIndex != -1
	PRINTFORML 누구한테 갈까････。
	FOR index2,0,GET_STR_LIST_LAST_ELEMENT(targetCharaList,CHAR_ESC) + 1
		SPLIT targetCharaList:index2,",",charaInfo
		SIF TOINT(charaInfo:1) != festivalIndex
			CONTINUE
		PRINTFORML [{index2,2}] - %CALLNAME:TOINT(charaInfo:0)%を\@ GET_FESTIVAL_PLAY_MODE(TOINT(charaInfo:0)) == 1 ? 응원 # 능욕 \@하러 간다
	NEXT
	PRINTFORML [99] - 역시 그만둔다。
	WHILE 1
		INPUT
		SELECTCASE RESULT
			CASE 99
				targetChara = -1
				BREAK
			CASE 0 TO GET_STR_LIST_LAST_ELEMENT(targetCharaList,CHAR_ESC) + 1
				IF TOINT(GET_BETWEEN_STRING(targetCharaList:RESULT,",",1)) == festivalIndex
					targetChara = TOINT(GET_BETWEEN_STRING(targetCharaList:RESULT,",",0))
					BREAK
				ENDIF
			CASEELSE
				;아무것도안한다
		ENDSELECT
	WEND
ENDIF

IF festivalIndex == -1 || targetChara == -1
	PRINTFORMW 뭐、별로 일부러 갈 필요는 없을 것이다････。
	RETURN 0
ELSE
	PRINTFORMW 좋아、조금 얼굴을 내밀어 볼까。
ENDIF

mode = GET_FESTIVAL_PLAY_MODE(targetChara)
festivalName = %FUNC_STR_INDEX_CALL("FESTIVAL_NAME",festivalIndex)%
festivalType = FUNC_INDEX_CALL("FESTIVAL_TYPE",festivalIndex)
;現時点ではPLAYER固定。関与度を正しく反映したら修正予定
festivalActionName = %FUNC_STR_INDEX_CALL("FESTIVAL_ACTION_PLAYER",festivalIndex)%
festivalSexPlace = %FUNC_STR_INDEX_CALL("FESTIVAL_SEX_PLACE",festivalIndex)%

IF mode == 0
	PRINTL
	PRINTFORMW 그렇다면 미리 불러서 궁리하는 것도 즐거울지 모른다････。
	CALL CHECK_YN
	SELECTCASE RESULT
		CASE 0
			WHILE 1
				PRINTFORMW 어떤 시도를 할까？
				FOR index2,0,varsize("itemMap")
					SIF ITEM:(itemMap:index2) > 0 && equipedItem:0 != itemMap:index2 && EVALUATE(itemRule:index2,targetChara)
						PRINTFORML [{index2}] - %조사처리(ITEMNAME:(itemMap:index2),"를")% 사용한다
				NEXT
				INPUT
				IF INRANGE(RESULT,0,varsize("itemMap"))
					equipedItem = itemMap:RESULT
					PRINTFORML %타겟호칭을% 호출해、%조사처리(ITEMNAME:equipedItem,"를")% 건네주었다。
					IF TALENT:targetChara:음란 || TALENT:targetChara:창녀
						PRINTFORMW %타겟캐릭은% 침을 꿀꺽 삼키며、허겁지겁 착용했다。
					ELSEIF TALENT:targetChara:예속
						PRINTFORMW 엣 하고 얼굴을 굳히고 한동안  %조사처리(ITEMNAME:equipedItem,"와")% %CALLNAME:MASTER%의 얼굴을 번갈와 봤지만 이윽고 순순히 착용했다
					ELSEIF TALENT:targetChara:복종
						PRINTFORMW %타겟캐릭은% 새파랗게 질려 고개를 저었지만、%CALLNAME:MASTER%의 재명령에 울상을 지으며 %조사처리(ITEMNAME:equipedItem,"를")% 착용했다。
					ELSEIF TALENT:targetChara:동화 || TALENT:targetChara:모판
						IF equipedItem==GETNUM(ITEM, "촉수옷")
							PRINTFORML 공중의 면전에서 촉수에게 희롱당하는 자신을 상상했겠지。
							PRINTFORMW %타겟캐릭은% 침을 꿀꺽 삼키며、열에 들뜬 것처럼 %조사처리(ITEMNAME:equipedItem,"를")% 착용했다。
						ELSE
							PRINTFORML %타겟캐릭은% 불만스러운 듯이 이왕이면 촉수를 상대하고 싶었다、고 말했지만 개의치않고 %조사처리(ITEMNAME:equipedItem,"를")% 착용했다。
						ENDIF
					ELSE
						;ここには来ない。
					ENDIF
					SIF equipedItem != GETNUM(ITEM, "밧줄") && equipedItem != GETNUM(ITEM, "촉수옷")
						PRINTFORM %ITEMNAME:equipedItem%의 스위치를 조작해 주면、
					SELECTCASE equipedItem
						CASE GETNUM(ITEM, "로터"),GETNUM(ITEM, "클리캡")
							PRINTFORMW %타겟캐릭은% 클리토리스에서 전해져오는 자극에 황홀해 하고 있다････。
							getJuelName = 쾌Ｃ
						CASE GETNUM(ITEM, "바이브")
							PRINTFORMW %타겟캐릭은% 질에서 바이브가 꿈틀거릴 때마다 무너질 것처럼 되었다････。
							getJuelName = 쾌Ｖ
						CASE GETNUM(ITEM, "애널바이브")
							PRINTFORMW %타겟캐릭은% 애널로부터 전해지는 자극에 이를 악물고 참고 있다････。
							getJuelName = 쾌Ａ
						CASE GETNUM(ITEM, "유두캡")
							PRINTFORMW %타겟캐릭은% 가슴으로부터 전해지는 자극에 허리를 움찔거린다････。
							getJuelName = 쾌Ｂ
						CASE GETNUM(ITEM, "밧줄")
							PRINTFORMW %타겟캐릭은% 밧줄이 죄여오는 감촉에 떨고 있다････。
							getJuelName = 고통
						CASE GETNUM(ITEM, "촉수옷")
							PRINTFORMW 꿈틀꿈틀、예고없이 움직이는 촉수에 %타겟캐릭은% 무릎을 떨고 있다････。
							getJuelName = 공포
					ENDSELECT
					break
				ENDIF
			WEND
			PRINTL
			PRINTFORMW 이제 실전이 기대된다････。
		CASE 1
			PRINTFORMW 흠、가끔씩은 순수하게 지켜보는 것도 좋겠지。
	ENDSELECT
ENDIF

;-----------------------------------------------------------------フェイズ1：試合観戦
PRINTL
PRINTFORML ････････････
PRINTFORML ････････
PRINTFORML ････
PRINTW

PRINTFORML  %조사처리(festivalName,"는")% \@ (festivalType & 2) == 0 ? 팽팽한 승부가 계속되고 있다。 # 제법 흐름을 탄 것 같다。\@
IF mode == 1
	PRINTFORML 자리에 앉은 %마스터호칭을% 눈치챈 %타겟캐릭은%、기쁜듯이 웃고 있다。
	PRINTFORML 그리고 지금까지보다 한층 더、%festivalActionName%에 기세를 더했다。
	PRINTL
	PRINTFORMW %CALLNAME:targetChara%의 활약 덕분에、%조사처리(festivalName,"는")% \@ (festivalType & 2) == 0 ? %GET_SCHOOL_NAME(GET_CHARA_GO_SCHOOL_INDEX(targetChara))%의 승리로 끝났다。 # 대성공으로 막을 내렸다。 \@
	CALL GET_EXP(targetChara,"애정경험",5)
	RETURN 1
ELSE
	PRINTFORM 자리에 앉은 %마스터호칭을% 눈치챈 %타겟캐릭은%、
	IF TALENT:targetChara:음란 || TALENT:targetChara:창녀
		PRINTFORML 무언가를 기대하듯이、그러나 아무 말 없이 그저 상긋 미소를 지었다。
	ELSEIF TALENT:targetChara:예속
		PRINTFORML 생긋 미소지었지만、긴장하여 몸이 굳었다。
	ELSEIF TALENT:targetChara:복종
		PRINTFORML 히익、하고 표정이 그대로 굳었다。
	ELSEIF TALENT:targetChara:동화 || TALENT:targetChara:모판
		PRINTFORML 뭔가를 기대하듯이、요염하게 미소지었다。
	ENDIF
	PRINTFORML 그러고는 움직임이 어색해져서、주위의 의혹이 쏠렸다。
	PRINTFORMW ････이건、벌이 필요하다。
	PRINTL
	IF equipedItem >= 0
		SELECTCASE equipedItem
			CASE GETNUM(ITEM, "밧줄")
				PRINTFORML %마스터호칭을% 발견하고 의식해서겠지。
				PRINTFORML %타겟캐릭은% 밧줄이 죄여오는 감촉을 한층 더 강하게 느끼고 있는 것 같다。
				PRINTFORML 신체를 움직일 때마다、삐걱삐걱、밧줄이 노예의 증거를 새긴다。
				PRINTFORM 무서운 감각에 %타겟캐릭은%
				IF ABL:targetChara:마조끼 >= 3
					PRINTFORMW 뺨을 붉게 물들이고 호흡을 흐트리면서、표면상으로는 필사적으로 냉정을 가장했다････。
				ELSE
					PRINTFORMW 눈물을 숨기면서 필사적으로 고통을 견뎠다････。
				ENDIF
				PRINTFORML 그렇지만 언제까지고 견딜 수는 없었다。
			CASE GETNUM(ITEM, "촉수옷")
				PRINTFORML %CALLNAME:targetChara%의 동요를 느꼈나보다。
				PRINTFORML 지금까지 조금도 움직이지 않았던 촉수가 꼼질꼼질 움직이기 시작한다。
				PRINTFORML 갑작스러운 자극에 숨을 삼키고 몸을 굳힌 %CALLNAME:targetChara%。
				PRINTFORML 그걸 아는지 모르는지 촉수는 자비없이 양쪽의 가슴을 비비기 시작한다。
				PRINTFORML 유방을 주무르고、찌부러뜨려、유두를 쥐어짜며 빨아들인다。
				PRINTFORML 교묘한 애무에 하악、하고 한숨을 흘리며 등골이 떨렸다。
				PRINTFORML 바로 다음에 촉수가 클리토리스에 휘감겨 붙고 서서히 잡아당기기 시작했다。
				PRINTFORML 힉、하고 조금 소리를 흘리고는 당황해서 입을 억누르는 %CALLNAME:targetChara%。
				PRINTFORML 다행히도 그 목소리는 주위 사람들에게 들리지 않았지만 촉수의 애무는 멈추지 않는다。
				IF ABL:targetChara:촉수중독 >= 3
					PRINTFORMW 뺨을 붉게 물들이고 호흡을 흐트리면서도、필사적으로 평정을 가장하고 있다。
				ELSE
					PRINTFORMW 눈물을 흘리면서、필사적으로 상상 이상의 쾌락에 저항하고 있다。
				ENDIF
				PRINTFORML 하지만 그 정도로 견딜 수 있는 어설픈 애무가 아니다。
			CASEELSE
				PRINTFORML 그렇게 생각해 %ITEMNAME:equipedItem%의 스위치를 조작하면 %타겟캐릭은% 돌연 신체를 경련시킨다。
				PRINTFORML %CALLNAME:MASTER%에게 무언가를 간청하는 듯한 눈을 돌리지만 신경 쓸 이유는 없다。
				PRINTFORML 명백히 %festivalActionName%의 집중이 흐트러져 평상시라면 하지 않을 실수를 거듭한다。
				PRINTFORML 주위로부터 괜찮냐고 들으면、괜찮다고 꿋꿋이 대답한다。그렇지만 언제까지고 견딜 수는 없었다。
		ENDSELECT
		PRINTFORMW 기력을 다 써 버려서 휴식 시간이 되자마자 넘어진 %타겟호칭을% 동료가 %festivalSexPlace%에 데려갔다････。
		PRINTL
		CALL GET_JUEL(targetChara,getJuelName,1000)
		CALL GET_JUEL(targetChara,"굴복",1000)
		CALL GET_JUEL(targetChara,"욕정",1000)
		CALL GET_JUEL(targetChara,"치정",1000)
		PRINTW
	ELSE
		PRINTFORMW %타겟캐릭이% 회복되지 못했기 때문에、 %조사처리(festivalName,"는")% \@ (festivalType & 2) == 0 ? %GET_SCHOOL_NAME(GET_CHARA_GO_SCHOOL_INDEX(targetChara))%의 패배로 끝났다。 # 미묘한 결과가 되어 버렸다。 \@
		RETURN 1
	ENDIF
	PRINTL
	PRINTL ････아직 즐거움은 계속된다。
	PRINTL
ENDIF

;-----------------------------------------------------------------フェイズ2：会場での陵辱

PRINTFORML %타겟호칭을% 쫓아 %festivalSexPlace%에 들어가면 %타겟캐릭은% 담요를 뒤집어쓴 채 흐느껴 울고 있었다。
PRINTFORML 들어온 당신에게 움찔 떨며 매달리는 눈으로 올려다본다。
PRINTFORM 어떤 기분이었는지 물으면、
IF TALENT:targetChara:음란 || TALENT:targetChara:창녀
	PRINTFORM 너무 기분 좋아져 무섭습니다
ELSEIF (TALENT:targetChara:동화 || TALENT:targetChara:모판) &&  equipedItem==GETNUM(ITEM, "촉수옷")
	PRINTFORM 촉수의 장난감이 되는 것이 너무 기분 좋아、미쳐버릴 것 같습니다
ELSEIF ABL:targetChara:노출증 >= 3
	PRINTFORM 모두에게 들키는 것이 무서워서、가 버릴 것 같습니다
ELSEIF TALENT:targetChara:예속
	PRINTFORMW 명령대로 하지 않으면 하고、필사적이었습니다
ELSE
	PRINTFORM ････최악입니다
ENDIF
PRINTFORMW 、라고 정직하게 대답했다。
PRINTL
IF TALENT:targetChara:음란 || TALENT:targetChara:창녀 || TALENT:targetChara:동화 || TALENT:targetChara:모판
	PRINTFORML 완전히 욕정에 핏발선 눈으로、%CALLNAME:MASTER%에게 아첨하듯 엎드려 기었다。
	PRINTFORML 그대로、요령있게 입만으로 %CALLNAME:MASTER%의 페니스를 꺼내 츄릅츄릅、빨기 시작했다。
	PRINTFORMW ････뭐、이런 것도 나쁘지 않다。
	PRINTL
	PRINTFORML %festivalName%의 %festivalSexPlace%에서 범해진다는 이상함에 흥분한 것인가。%타겟캐릭은% 여느 때보다 더 치열하게 요구해 왔다。
	PRINTFORMW 그대로、%마스터호칭과% %타겟캐릭은% 만족할 때까지、서로의 몸을 탐닉했다････。
	PRINTL
	CALL GET_JUEL(targetChara,"욕정",1000)
	CALL GET_JUEL(targetChara,"치정",1000)
	CALL GET_JUEL(targetChara,"온순",1000)
ELSE
	WHILE 1
		PRINTFORML 그리고 %타겟캐릭은% 다음에 어떻게 되어도 괜찮으니까、이제 여기 %festivalName%에서는 봐주세요、라고 애원했다。
		PRINTFORML 어떻게 할까？
		PRINTFORML [0] - 뭐、봐줄까
		PRINTFORML [1] - 넘어가도 괜찮지만････
		PRINTFORML [2] - 봐줄리 없잖아？
		INPUT
		SELECTCASE RESULT
			CASE 0
				PRINTFORML 뭐、이번은 봐주지。
				PRINTFORMW 그렇게 말하면、%타겟캐릭은% 활짝 웃으며 감사합니다、라고 돌려주었다。
				equipedItem = -1
				break
			CASE 1
				PRINTFORML 넘어가도 괜찮지만 그 대신에････알지？
				PRINTFORM 그렇게 말하고 흥분한 페니스를 꺼내면 %타겟캐릭은%
				IF TALENT:targetChara:예속
					PRINTFORML 눈을 크게 뜨며 경악한다。
					PRINTFORML 여기서、합니까？ 하고 불안한 듯이 %마스터호칭을% 보지만、
					PRINTFORMW 명령이 바뀌지 않는다는 걸 깨닫고 순순히 %CALLNAME:MASTER%의 앞에 무릎꿇었다。
				ELSE
					PRINTFORML 새파랗게 질려 떨기 시작했다。
					PRINTFORML 몇 번이나 망설이고 버려진 강아지 같은 눈으로 %마스터호칭을% 보지만、
					PRINTFORMW 명령이 바뀌지 않는다는 걸 깨닫고 포기하고 %CALLNAME:MASTER%의 앞에 무릎꿇었다。
				ENDIF
				PRINTL

				IF ABL:targetChara:봉사정신 >= 3
					PRINTFORML 우선은 입으로 봉사시키자。
					PRINTFORML %타겟캐릭은%%CALLNAME:MASTER%의 앞에 무릎꿇고 머뭇머뭇 페니스를 핥기 시작했다。
					PRINTFORMW 여기는 %festivalSexPlace%、들키는 것이 무섭겠지。필사적으로 핥아대며 사정시키려고 노력한다。
					PRINTL
					IF equipedItem >= 0 && equipedItem != GETNUM(ITEM, "밧줄") && equipedItem != GETNUM(ITEM, "촉수옷")
						PRINTFORML 하지만 이대로 끝내면 재미가 없다。
						PRINTFORML 손 안의 스위치를 조작하자 %CALLNAME:targetChara%에게서 우웅、하는 소리가 나기 시작했다。
						PRINTFORML 그 진동에 허리가 움찔거리며 봉사가 멈춰 버리지만、
						PRINTFORMW 시간이 없어、라고 속삭이면 다시 츄릅츄릅、하고 봉사를 재개한다。
						PRINTL
						IF equipedItem == GETNUM(ITEM, "바이브") || equipedItem == GETNUM(ITEM, "애널바이브")
							PRINTFORML 한층 더、이대로면 %ITEMNAME:equipedItem%의 소리를 누군가 듣겠네、라고 속삭이면、
							PRINTFORML 이제야 깨달은 것처럼 %조사처리(ITEMNAME:equipedItem,"를")% 단단히 조인다。
							PRINTFORML 확실히 덕분에 소리는 작아졌지만 그 대신에%타겟캐릭은% 꿈틀거리는 %ITEMNAME:equipedItem%의 존재를 더욱 강하게 느껴、
							PRINTFORMW 앙다문 입술 사이로 새된 목소리를 흘린다････。
						ENDIF
						PRINTL
						PRINTFORMW 결국 %마스터호칭이% 입 안에 정액을 토해내는 것과 거의 동시에、%타겟캐릭은% 등골을 떨며 절정에 달했다。
					ELSEIF equipedItem == GETNUM(ITEM, "촉수옷")
						PRINTFORML 그때 촉수옷이 다시 꼼지락、움직이기 시작했다。
						PRINTFORML 불의의 자극에 눈을 크게 뜨고 움직임을 멈춰버린 %CALLNAME:targetChara%
						PRINTFORML 그 틈을 노리듯이 촉수가 민감한 유두와 클리토리스에 휘감겨 질척질척하게 괴롭히기 시작했다。
						PRINTFORML 필사적으로 페니스를 빨면서도 허리를 비틀며 쾌감에 취하는 %CALLNAME:targetChara%。
						PRINTFORML 그렇게 물소리를 내면 누가 들을 걸？
						PRINTFORML 라고 귓가에 속삭이면、%타겟캐릭은% 그 모습을 상상해 버렸다。
						PRINTFORML 촉수를 단단히 조이고、강해진 쾌락에 눈을 뒤집어 절정했다。
						PRINTFORMW 결국 %타겟캐릭이% %마스터호칭을% 가게할 수 있었던 것은、3회 정도 촉수에게 잔뜩 절정당한 뒤였다。
					ELSE
						IF ABL:targetChara:정액중독 >= 3
							PRINTFORML 그 기세에 압도당해 입 안 가득 정액을 내뿜었다。
							PRINTFORMW 입 안을 채우는 정액을、%타겟캐릭은% 황홀한 표정으로 삼킨다････。
						ELSE
							PRINTFORML 이윽고 %CALLNAME:MASTER%의 사정의 전조를 감지한 것인가
							PRINTFORML 페니스를 빼려고 하는 %CALLNAME:targetChara%의 귓가에 속삭여준다。
							PRINTFORMW 얼굴에도 옷에도 정액을 뿌려놓고 사람들 앞에 돌아가려고？
							PRINTFORML 그 말에 새파랗게 질린 얼굴로 눈물을 머금고 각오를 결정한 %타켓캐릭은% 눈을 감는다。
							PRINTFORMW 그 입 안 가득히 마음껏 정액을 뿜어냈다。
						ENDIF
					ENDIF
					SIF equipedItem >=0
						CALL GET_JUEL(targetChara,getJuelName,1500)
					CALL GET_JUEL(targetChara,"굴복",1500)
					CALL GET_JUEL(targetChara,"습득",1500)
					CALL GET_JUEL(targetChara,"치정",1500)
					CALL GET_JUEL(targetChara,"공포",1500)
					PRINTW
				ENDIF

				IF !TALENT:처녀 && equipedItem != GETNUM(ITEM, "바이브") || (ABL:targetChara:Ａ감각 >= 3 && equipedItem != GETNUM(ITEM, "애널바이브"))
					IF !TALENT:처녀 && equipedItem != GETNUM(ITEM, "바이브")
						sexPattern = 膣
						getJuelName2 = 쾌Ｖ
					ELSE
						sexPattern = 애널
						getJuelName2 = 쾌Ａ
					ENDIF
					IF ABL:targetChara:봉사정신 >= 3
						PRINTFORML 이번에는 본격적으로 범해주자。
						PRINTFORM 뒤처리 사이에 다시 커진 페니스를 뱉어내게 하고、
					ENDIF
					PRINTFORML %festivalSexPlace%의 \@ (festivalType & 4) == 0 ? 벽 # 근처에 있는 나무 \@에 손을 짚게 한다。
					PRINTFORML 노출된 %조사처리(sexPattern,"를")% 단번에 꿰뚫었다。
					PRINTFORML 그 충격에 %CALLNAME:targetChara%의 입에서 목소리가 새었지만････현 상황을 인식하고는 당황해서 입을 틀어막고 목소리를 억눌렀다。
					PRINTFORMW 뭐、그건 그것대로 재밌다。
					PRINTL
					PRINTFORML 그대로 계속 사양없이 범한다。%타겟캐릭은% %sexPattern%에서 쏟아지는 쾌락에 울 것 같다。
					PRINTFORMW 언제 누가 올지도 모르는 %festivalSexPlace%에서 범해지고 있다는 이상함에 몸부림치는 %CALLNAME:targetChara%。
					PRINTFORMW 입을 누르고 소리가 새지 않도록 필사적으로 참지만、손가락 사이에서 새어나오는 교성을 제대로 숨길 수 없다。
					PRINTFORM 그렇게 목소리를 내면 누가 들을 걸？라고 귓가에 속삭여주면、
					IF ABL:targetChara:노출증 >= 3
						PRINTFORMW 상상해 버렸는지 꽈악 %조사처리(sexPattern,"를")% 조이며 입에서 한층 높은 목소리가 새어 나온다。
						PRINTFORMW 과연 %CALLNAME:MASTER%도 이건 참지 못했고、%sexPattern%의 안에 듬뿍 사정했다。
					ELSE
						PRINTFORMW 입을 억누른채 필사적으로 고개를 젓는다。
						PRINTFORMW 연민을 자아내는 %CALLNAME:targetChara%에게 한층 더 흥분한 %마스터호칭은%、%sexPattern%의 안에 듬뿍 사정했다。
					ENDIF

					SIF equipedItem >=0
						CALL GET_JUEL(targetChara,getJuelName,1500)
					CALL GET_JUEL(targetChara,getJuelName2,1500)
					CALL GET_JUEL(targetChara,"굴복",1500)
					CALL GET_JUEL(targetChara,"치정",2000)
					CALL GET_JUEL(targetChara,"공포",2000)
					PRINTW
				ENDIF

				PRINTL
				PRINTFORML 그대로、마음껏 %CALLNAME:targetChara%의 신체를 탐했다。
				PRINTFORML %타겟캐릭은% 숨을 헐떡이며、%festivalSexPlace%의 \@ (festivalType & 4) == 0 ? 마루 # 지면 \@에 쓰러진 채로、
				PRINTFORMW 이걸로････오늘은、끝내 주시는 건가요････？ 라고 간청한다。
				PRINTL
				WHILE 1
					PRINTFORML ････어떻게 할까？
					PRINTFORML [0] - 약속이니까。그렇게 하지。
					PRINTFORML [1] - %festivalName%에서는 봐준다고 말했었지。거짓말이다。
					INPUT
					SELECTCASE RESULT
						CASE 0
							PRINTFORML 하는 수 없지、봐줄께。
							PRINTFORML 그렇게 말하니 제대로 움직이지도 않는 몸으로 감사합니다、라고 인사했다。
							equipedItem = -1
							break
						CASE 1
							PRINTFORML 무슨 이야기지？ 라고 답하면 약속이 다르다고 반발했다。하지만、실컷 희롱당한 몸으로는 행동을 일으킬 수도 없다。
							PRINTFORML 격앙해 눈물을 흘리는 %타겟호칭을% %마스터호칭은% 즐겁게 내려다 보았다････。
							break
						CASEELSE
							;아무것도안한다
					ENDSELECT
				WEND
				break
			CASE 2
				PRINTFORML 봐줄리 없잖아？
				PRINTFORMW 그렇게 말하자、%타겟캐릭은% 새파랗게 질려서 절망에 떨었다････。
				break
		ENDSELECT
	WEND
ENDIF

;-----------------------------------------------------------------フェイズ3：結果
PRINTL
PRINTFORMW %CALLNAME:targetChara%에게 본래대로 옷을 입히 회장으로 돌려보냈다。
PRINTL
IF equipedItem >= 0
	PRINTFORML %CALLNAME:targetChara%의 컨디션이 돌아오지 않았기 때문에、 %조사처리(festivalName,"는")% \@ (festivalType & 2) == 0 ? %GET_SCHOOL_NAME(GET_CHARA_GO_SCHOOL_INDEX(targetChara))%의 패배로 끝났다。 # 미묘한 결과가 되어 버렸다。 \@
	PRINTFORML 한심한 결과에 낙담하는 부원들。
	PRINTFORM 그 중에서도 %타겟캐릭은%、%CALLNAME:MASTER%에게
	IF TALENT:targetChara:음란 || TALENT:targetChara:창녀 || TALENT:targetChara:동화 || TALENT:targetChara:모판
		PRINTFORMW 욕정 투성이가 된 눈을 향해、다음 능욕을 기대하고 있다････。
	ELSEIF TALENT:targetChara:복종 || TALENT:targetChara:예속
		PRINTFORMW 불만인 듯이 슬쩍 %마스터호칭을% 본 뒤、당황하며 눈을 피했다。
	ELSE
		PRINTFORMW 찌르는 것 같은 눈을 향하고 있다････。
	ENDIF
	CALL GET_JUEL(targetChara,getJuelName,1500)
	CALL GET_JUEL(targetChara,"굴복",1500)
	CALL GET_JUEL(targetChara,"치정",1500)
	IF TALENT:targetChara:음란 || TALENT:targetChara:창녀
		CALL GET_JUEL(targetChara,"욕정",1500)
	ELSE
		CALL GET_JUEL(targetChara,"욕정",500)
		CALL GET_JUEL(targetChara,"부정",1500)
		MARK:targetChara:반발각인 = MAX(MARK:targetChara:반발각인,1)
		MARK:targetChara:4 = MAX(MARK:targetChara:4,MARK:targetChara:반발각인)
	ENDIF
	PRINTW
ELSE
	PRINTFORML 컨디션을 되찾은 %CALLNAME:targetChara%의 활약도 있어 %조사처리(festivalName,"는")% \@ (festivalType & 2) == 0 ? %GET_SCHOOL_NAME(GET_CHARA_GO_SCHOOL_INDEX(targetChara))%의 승리로 끝났다。 # 대성공으로 막을 내렸다。 \@
	PRINTFORML 동료들과 성공을 기뻐하는 %CALLNAME:targetChara%。
	PRINTFORMW 그러다 %마스터호칭을% 깨닫고 꾸벅、고개를 숙여 감사를 표했다････。
	CALL GET_JUEL(targetChara,"온순",2000)
	ABL:targetChara:순종 = MAX(ABL:targetChara:순종,1)
	PRINTW
ENDIF
RETURN 1

;当日なら1、準備期間中なら2を返す
@IS_FESTIVAL_DATE(festivalIndex,month,days,week)
#FUNCTION
#DIM festivalIndex
#DIM month
#DIM days
#DIM week
#DIM clubIndex
#DIM festivalType
clubIndex = FUNC_INDEX_CALL("FESTIVAL_CLUB",festivalIndex)
festivalType = FUNC_INDEX_CALL("FESTIVAL_TYPE",festivalIndex)
IF clubIndex == CFLAG:MASTER:203 && (festivalType & 8) > 0
	;MASTERが所属しており、準備期間がある大会の場合、
	;문화부は当日とその準備期間中(一週間前)が対象
	;체육부は当日と前日のみが対象
	RETURNF FUNC_INDEX_CALL_VVV("FESTIVAL_DATE",festivalIndex,month,days,week)
ELSE
	;そうでないなら、当日のみが対象
	RETURNF FUNC_INDEX_CALL_VVV("FESTIVAL_DATE",festivalIndex,month,days,week)
ENDIF

@GET_FESTIVAL_PLAY_MODE(targetChara)
#FUNCTION
#DIM targetChara
RETURNF TALENT:targetChara:연모 || TALENT:targetChara:친애


code: ;사용되지 않는 파일 소거. 시나리오 클럽으로