code:
@INVITATION_FRIEND
#DIM targetCharaIndex
#DIM targetCharaNo
#DIM daysCount
daysCount = DAY - SCHOOL_FIRST_GOING_DAY:GET_CHARA_GO_SCHOOL_INDEX(MASTER)

;該当キャラのサーチ
REPEAT CHARANUM
	;育児部屋に移動しているキャラは除外
	C = COUNT
	CALL CHECK_CHILD_CARE
	SIF RESULT == 1
		CONTINUE
	SIF IS_UNCONTACTABLE(COUNT)
		CONTINUE
;인계됨キャラで、창녀、예속どっちか持ち
	IF TALENT:COUNT:인계됨
		SIF TALENT:COUNT:창녀 == 1 || TALENT:COUNT:예속 == 1 || TALENT:COUNT:모판 == 1
			PRINTFORML [{COUNT}]%NAME:COUNT%
	ENDIF
REND
PRINTFORML [999] -
;----------入力処理部
$INPUT_LOOP
INPUT

;----------ページ分割用共通処理
IF RESULT != 999
	IF CHARANUM > RESULT
		IF TALENT:RESULT:인계됨 && (TALENT:RESULT:창녀 == 1 || TALENT:RESULT:예속 == 1 || TALENT:RESULT:모판)
			LOCAL = RESULT
		ELSE
			GOTO INPUT_LOOP
		ENDIF
	ELSE
		GOTO INPUT_LOOP
	ENDIF
ELSE
	RETURN 0
ENDIF

;友人の捜索
X = 0
FOR I, 1005, 1010
	Y = CFLAG:LOCAL:I
	IF Y != 0 && IS_CHARACTER_ADDABLE(Y,LOCAL)
		CALL GET_CHARANUM,Y
		A = RESULT
		IF A == -1
			CALL SCENARIO_GET_CHARACTER, Y
			B = CHARANUM - 1
			PRINTFORML %NAME:LOCAL%에게는 %조사처리(NAME:B,"라")%는 지인이 있는 모양이다‥‥
		ENDIF
	ENDIF
NEXT

$INPUT_LOOP3
SIF CFLAG:LOCAL:1012 > 0
	PRINTFORML 현재、%조사처리(CALLNAME:LOCAL,"은")% %조사처리(NAME:GETCHARA(CFLAG:LOCAL:1012),"를")% 유혹 중입니다････。
PRINTL 어느 친구를 유혹합니까？
FOR I, 1005, 1010
	Y = CFLAG:LOCAL:I
	SIF Y == MASTER
		CONTINUE
	SIF RELATION:LOCAL:Y <= 100
		CONTINUE
	CALL GET_CHARANUM,Y
	A = RESULT
	LOCALS = %GET_INVITATION_STATUS(A)%
	IF CFLAG:A:1000 < 5  ;<-なんで調査段階2이상だと유혹できないん？
		PRINTFORML [{A}]%NAME:A,24,LEFT%\@ LOCALS != "" ? (%LOCALS%) # \@
	ENDIF
NEXT
SIF CFLAG:LOCAL:1012 > 0
	PRINTFORML [998] - 유혹을 그만두게 한다
PRINTFORML [999] - 변경하지 않는다
;----------入力処理部
$INPUT_LOOP2
INPUT

;----------友人の選択
IF RESULT == 998 && CFLAG:LOCAL:1012 != 0
	PRINTFORMW %CALLNAME:LOCAL%에게 %NAME:GETCHARA(CFLAG:LOCAL:1012)%의 유혹을 그만두게 했습니다.
	CFLAG:LOCAL:1012 = 0
	CFLAG:LOCAL:1013 = 0
ELSEIF RESULT != 999
	targetCharaIndex = RESULT
	targetCharaNo = NO:targetCharaIndex
	IF CFLAG:LOCAL:1000 > 5
		PRINTFORML 현재、%조사처리(CALLNAME:RESULT,"은")% %GET_AWAIT_STATUS_TEXT(CFLAG:RESULT:1000,CFLAG:RESULT:1012)%입니다.
		PRINTFORML [0] - 변경한다
		PRINTFORML [1] - 변경하지 않는다
		WHILE 1
			INPUT
			SELECTCASE RESULT
				CASE 1
					GOTO INPUT_LOOP3
				CASE 0
					BREAK
			ENDSELECT
		WEND
		PRINTFORMW
	ENDIF

	IF GROUPMATCH(targetCharaNo,CFLAG:LOCAL:1005,CFLAG:LOCAL:1006,CFLAG:LOCAL:1007,CFLAG:LOCAL:1008,CFLAG:LOCAL:1009) > 0
		RESULT = 0
		TRYCALLFORM SCENARIO_EVENT_CHARACTER_IS_COMMUNICATION_NOT_ALLOWED_{NO:LOCAL}("INVITATION",targetCharaIndex,-1,-1,daysCount)
			SIF RESULT != 0
				GOTO INPUT_LOOP2
		RESULT = 0
		TRYCALLFORM SCENARIO_EVENT_CHARACTER_IS_COMMUNICATION_NOT_ALLOWED_{NO:LOCAL}("INVITATION",targetCharaIndex,LOCAL,NO:LOCAL,daysCount)
			SIF RESULT != 0
				GOTO INPUT_LOOP2
		PRINTFORMW %NAME:LOCAL%에게 %조사처리(NAME:targetCharaIndex,"를")% 유혹시킵니다.
		CFLAG:LOCAL:1012 = targetCharaNo
		CFLAG:LOCAL:1013 = 0
		IF CFLAG:targetCharaIndex:1000 > 5
			CFLAG:LOCAL:1000 = 4
			CFLAG:LOCAL:1019 = 0
			CFLAG:LOCAL:1010 = 0
		ENDIF
	ELSE
		GOTO INPUT_LOOP2
	ENDIF
ENDIF
RETURN 0

@INVITATION_RESULT
#DIM LOCAL1
#DIM LOCAL2
#DIM daysCount
#DIM penalty
daysCount = DAY - SCHOOL_FIRST_GOING_DAY:GET_CHARA_GO_SCHOOL_INDEX(MASTER)

REPEAT CHARANUM
	penalty = 0
	LOCAL1 = COUNT
	IF CFLAG:LOCAL1:1012 > 0
		LOCAL:1 = CFLAG:LOCAL1:1012
		CALL GET_CHARANUM,LOCAL:1
		LOCAL = RESULT
		IF LOCAL > 0
			PRINTFORML %조사처리(NAME:LOCAL1,"이")% %조사처리(NAME:LOCAL,"를")% 유혹합니다.
;유혹判定
			LOCAL:1 = 0
			SIF ABL:LOCAL1:레즈끼 > 0
				LOCAL:1 += 1
			SIF ABL:LOCAL:레즈끼 > 0
				LOCAL:1 += 1
	;감성の対抗判定
			CALL COMPATITION, LOCAL, 25, LOCAL:1, LOCAL1
			IF RESULT == 0
				TRYCALLFORM SCENARIO_EVENT_CHARACTER_CONTACT_INTERCEPT_EVENT_{NO:LOCAL}("INVITATION",LOCAL,LOCAL1,NO:LOCAL1,daysCount)
			SELECTCASE RESULT
				CASE IS > 1
					penalty = RESULT - 1
				CASE 1
					BEGIN TURNEND
				CASE 0
					;아무것도안한다
				CASE IS < 0
					penalty = RESULT
			ENDSELECT

	;유혹成功
				IF IS_SAMEHOME(LOCAL,LOCAL1)
					PRINTFORMW 집에서 긴장을 풀고 쉬는 %NAME:LOCAL%에게 %조사처리(NAME:LOCAL1,"은")% 아무렇지도 않은 척 다가갔다.
				ELSE
					PRINTFORMW %조사처리(NAME:LOCAL,"은")% %NAME:LOCAL1%에게 초대받아 집까지 따라갔다.
				ENDIF
				PRINTFORML ………………
				PRINTFORML …………
				PRINTFORML ……
	;陥落値
				LOCAL2 = ABL:LOCAL1:기교 / 2 + ((RELATION:LOCAL:(NO:LOCAL1) - 100) / 10)
				IF ABL:LOCAL1:레즈끼 > 3
					LOCAL2 += 2
				ELSEIF ABL:LOCAL1:레즈끼 > 0
					LOCAL2 += 1
				ENDIF
				SIF TALENT:LOCAL1:사교적
					LOCAL2 += 1
				SIF TALENT:LOCAL1:여성혐오
					LOCAL2 -= 1
				SIF TALENT:LOCAL1:바이
					LOCAL2 += 1
				SIF TALENT:LOCAL1:소악마
					LOCAL2 += 1
				SIF TALENT:LOCAL1:수수께끼의매력
					LOCAL2 += 1
				SIF TALENT:LOCAL1:인기
					LOCAL2 += 1
				SIF TALENT:LOCAL1:보이쉬
					LOCAL2 += 1

				SIF ABL:LOCAL:레즈끼 > 0
					LOCAL2 += 1
				SIF TALENT:LOCAL:반항적
					LOCAL2 -= 1
				SIF TALENT:LOCAL:솔직
					LOCAL2 += 1
				SIF TALENT:LOCAL:자제심
					LOCAL2 -= 1
				SIF TALENT:LOCAL:보수적
					LOCAL2 -= 1
				SIF TALENT:LOCAL:호기심
					LOCAL2 += 1
				SIF TALENT:LOCAL:정조관념
					LOCAL2 -= 1
				SIF TALENT:LOCAL:정조무관심
					LOCAL2 += 1
				SIF TALENT:LOCAL:억압
					LOCAL2 -= 1
				SIF TALENT:LOCAL:저항
					LOCAL2 -= 1
				SIF TALENT:LOCAL:여성혐오
					LOCAL2 -= 1
				SIF TALENT:LOCAL:바이
					LOCAL2 += 1
				LOCAL2 += CFLAG:LOCAL1:1013
	;陥落処理
				$LOOP1
				IF ABL:LOCAL:Ｂ감각 < ABL:LOCAL:순종 + 1
					IF LOCAL2 >= ABL:LOCAL:Ｂ감각 + 1
						PRINTFORML %조사처리(NAME:LOCAL1,"은")% %NAME:LOCAL%의 등뒤에서 껴안았다.
						PRINTFORM 그대로 %NAME:LOCAL%의 옷을 걷어올리고
						IF TALENT:LOCAL:거유 || TALENT:LOCAL:폭유
							PRINTL 그 풍만한 젖통에 손을 얹었다.
						ELSEIF TALENT:LOCAL:빈유 || TALENT:LOCAL:절벽
							PRINTL 그 아담한 유방에 손을 얹었다.
						ELSE
							PRINTL 그 젖가슴에 손을 얹었다.
						ENDIF

						IF ABL:LOCAL:Ｂ감각 >= 2
							PRINTFORML %조사처리(NAME:LOCAL,"은")% 、자신의 가슴을 %NAME:LOCAL1%의 손가락 끝이 자극할 때마다 애달픈 듯 눈썹을 찡그리며 몸을 뒤튼다.
							PRINTFORML %조사처리(NAME:LOCAL1,"은")% %NAME:LOCAL%의 몸에 힘이 빠진 순간 천천히 밀어 넘어뜨리고 가슴 끝 돌기에 입술을 덮었다.
						ELSEIF ABL:LOCAL:Ｂ감각 >= 1
							PRINTFORML %조사처리(NAME:LOCAL,"은")% 、어떻게든 그 손을 거절하려고 하지만 %NAME:LOCAL1%의 손가락 끝이 민감한 돌기를 잡자 저도 모르게 몸을 떨었다.
						ELSE
							PRINTFORML %조사처리(NAME:LOCAL,"은")% 、어떻게든 그 손을 거절하려고 하지만 %조사처리(NAME:LOCAL1,"은")% 찬찬히 음미하듯이 가슴을 어루만지고 있다.
						ENDIF
						PRINTFORML ………………
						PRINTFORML …………
						PRINTFORML ……
						PRINTFORMW %NAME:LOCAL%의 Ｂ감각이 1올랐다
						ABL:LOCAL:Ｂ감각 += 1
						EXP:LOCAL:레즈경험 += ABL:LOCAL:Ｂ감각
						SIF ABL:LOCAL:Ｂ감각 >= 2
							EXP:LOCAL:절정경험 += 1
						LOCAL2 -= ABL:LOCAL:Ｂ감각
						GOTO LOOP1
					ELSE
						CFLAG:LOCAL1:1013 = LOCAL2
						LOCAL2 = 0
					ENDIF
				ENDIF

				$LOOP2
				IF LOCAL2 > 0
					IF ABL:LOCAL:Ｃ감각 < ABL:LOCAL:순종 + 1
						IF LOCAL2 >= ABL:LOCAL:Ｃ감각 + 1
							PRINTFORML %조사처리(NAME:LOCAL1,"은")% %조사처리(NAME:LOCAL,"를")% 천천히 밀어 넘어뜨렸다.
							IF ABL:LOCAL:순종 >= 2
								PRINTFORML %NAME:LOCAL%의 설득력 없는 거절을 무시하고 옷을 풀어 속옷에 손을 넣었다.
							ELSEIF ABL:LOCAL:순종 >= 1
								PRINTFORML 머뭇거리며 거절하는 %NAME:LOCAL%의 손을 부드럽게 잡아 누르며 옷을 풀어 헤치고 속옷에 손을 넣었다.
							ELSEIF  TALENT:LOCAL:남자
								PRINTFORML 이미 반응하기 시작하고 있는 %NAME:LOCAL%의 육봉을 %조사처리(NAME:LOCAL1,"은")% 부드럽게 어루만진다.
							ELSE
								PRINTFORML 농담의 연장선이라고 생각한 %NAME:LOCAL%의 틈을 노리고、옷자락으로 손을 넣어 비소에 손가락을 뻗는다.
							ENDIF

							IF ABL:LOCAL:Ｃ감각 >= 2 && TALENT:LOCAL:남자
								PRINTFORML %조사처리(NAME:LOCAL,"은")% 민감한 육봉이 %NAME:LOCAL1%의 손가락에 의해 쓰다듬어질 때마다 애달픈 듯 뜨거운 숨을 내쉰다.
								PRINTFORML %조사처리(NAME:LOCAL1,"은")% %NAME:LOCAL%의 힘이 폴어졌을 때 다리를 벌리게하고 쿠퍼액을 흘리는 육봉에 입을 맞췄다.
							ELSEIF ABL:LOCAL:Ｃ감각 >= 2
								PRINTFORML %조사처리(NAME:LOCAL,"은")%  민감한 돌기를 %NAME:LOCAL1%의 손가락이 어루만질 때마다 애달픈 듯 뜨거운 숨을 내쉰다.
								PRINTFORML %조사처리(NAME:LOCAL1,"은")% %NAME:LOCAL%의 힘이 폴어졌을 때 다리를 벌리게하고 젖은 고간에 입을 맞췄다.
							ELSEIF ABL:LOCAL:Ｃ감각 >= 1 && TALENT:LOCAL:남자
								PRINTFORML %조사처리(NAME:LOCAL,"은")% 애써 그 손을 거부하려 하지만 %NAME:LOCAL1%의 손가락이 부풀기 시작한 육봉을 쓰다듬을 때마다 서서히 힘이 빠졌다.
							ELSEIF ABL:LOCAL:Ｃ감각 >= 1
								PRINTFORML %조사처리(NAME:LOCAL,"은")% 어떻게든 그 손을 거절하려고 하지만 %NAME:LOCAL1%의 손가락이 비소에 닿을 때마다 서서히 힘이 빠졌다.
							ELSE
								PRINTFORML %조사처리(NAME:LOCAL,"은")% %NAME:LOCAL1%의 팔을 밀어내려고 하지만 손가락이 민감한 돌기에 닿으면 튕기듯 몸을 굳혔다.
							ENDIF
							PRINTFORML ………………
							PRINTFORML …………
							PRINTFORML ……
							PRINTFORMW %NAME:LOCAL%의 Ｃ감각이 1올랐다
							ABL:LOCAL:Ｃ감각 += 1
							EXP:LOCAL:레즈경험 += ABL:LOCAL:Ｃ감각
							SIF ABL:LOCAL:Ｃ감각 >= 2
								EXP:LOCAL:절정경험 += 1
							LOCAL2 -= ABL:LOCAL:Ｃ감각
							GOTO LOOP2
						ELSE
							CFLAG:LOCAL1:1013 = LOCAL2
							LOCAL2 = 0
						ENDIF
					ENDIF
				ENDIF

				$LOOP3
				IF LOCAL2 > 0
					IF ABL:LOCAL:욕망 <  ABL:LOCAL:순종 + 1
						IF LOCAL2 >= ABL:LOCAL:욕망 + 1
							PRINTFORMW %NAME:LOCAL%의 욕망이 1올랐다
							ABL:LOCAL:욕망 += 1
							EXP:LOCAL:레즈경험 += ABL:LOCAL:욕망
							LOCAL2 -= ABL:LOCAL:순종 + 1
							GOTO LOOP3
						ELSE
							CFLAG:LOCAL1:1013 = LOCAL2
							LOCAL2 = 0
						ENDIF
					ENDIF
				ENDIF

				$LOOP4
				IF LOCAL2 > 0
					IF ABL:LOCAL:순종 < 3
						IF LOCAL2 >= (ABL:LOCAL:욕망 + 1) * 2
							PRINTFORMW %NAME:LOCAL%의 순종이 1올랐다
							ABL:LOCAL:순종 += 1
							EXP:LOCAL:레즈경험 += ABL:LOCAL:순종
							LOCAL2 -= ABL:LOCAL:순종 * 2
							GOTO LOOP4
						ELSE
							CFLAG:LOCAL1:1013 = LOCAL2
							LOCAL2 = 0
						ENDIF
					ENDIF
				ENDIF

				IF ABL:LOCAL:순종 >= 3
					PRINTFORML ………………
					PRINTFORML …………
					PRINTFORML ……
					PRINTFORML %NAME:LOCAL1%에게 유혹당한 %조사처리(NAME:LOCAL,"이")% %조사처리(NAME:MASTER,"을")% 찾아왔다.
					PRINTFORML 그리고、%조사처리(NAME:LOCAL,"은")% %NAME:LOCAL1%에게 독촉당하는 대로 %NAME:MASTER%의 앞에 무릎을 꿇었다.
					CALL DIARY_SET,@"%조사처리(NAME:LOCAL,"는")% "+NAME:LOCAL1+"에게 농락당해 충실한 인형으로 조교되었다."
					TALENT:LOCAL:유혹 = 1
					CFLAG:LOCAL:1000 = 5
					CFLAG:LOCAL1:1012 = 0
					CFLAG:LOCAL1:1013 = 0
					CFLAG:LOCAL:1015 = NO:LOCAL1

					;ＮＴＬ取得
					SIF TALENT:LOCAL:좋아하는사람있음 || TALENT:LOCAL:남친있음 || TALENT:LOCAL:남편있음
						TALENT:LOCAL:ＮＴＬ = 1

					PRINTFORML ････정식으로 %CALLNAME:MASTER%의 노예가 된 %CALLNAME:LOCAL%에게 다른 노예 후보에 대해 물었다.
					PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 잠시 망설이다가 강하게 명하자 띄엄띄엄 이름을 고하기 시작했다････。
					CALL SEARCH_FRIEND(LOCAL,0)
				ENDIF
			ELSE
	;유혹失敗
				PRINTFORMW %조사처리(NAME:LOCAL,"은")% 볼일이 있다고 말하며 권유를 거절했다.
			ENDIF
			DRAWLINE
		ENDIF
	ENDIF
REND

@GET_INVITATIONED_CHARA_INFO(targetChara)
#FUNCTIONS
#DIM targetChara
IF GET_INVITATIONED_CHARA_INDEX(targetChara) > 0
	RETURNF CSVNAME(GET_INVITATIONED_CHARA_INDEX(targetChara))
ELSE
	RETURNF "친구"
ENDIF

@GET_INVITATIONED_CHARA_INDEX(targetChara)
#FUNCTION
#DIM targetChara
RETURNF CFLAG:targetChara:1015

;targetCharaの勧誘状況を표시。유혹以外でも場合에 의해 は出す
@GET_INVITATION_STATUS(targetChara)
#FUNCTIONS
#DIM targetChara
#DIM inviteChara
inviteChara = FINDCHARA(CFLAG:1012,NO:targetChara)
SIF inviteChara >= 0
	RETURNF CALLNAME:inviteChara + "에게 명령해 유혹중"
SELECTCASE CFLAG:targetChara:1010
	CASE 0
		RETURNF ""
	CASE 6
		RETURNF "약점을 조사 중"
	CASE 7
		RETURNF "관계 개선 중"
	CASE 8
		RETURNF "강간 준비 중"
	CASE 9
		RETURNF "최면 준비 중"
	;10は攻略不可なので省略
	CASE 11
		RETURNF CSVCALLNAME(CFLAG:targetChara:1015) + "에게 명령해 함정 준비 중"
	CASE 12
		RETURNF CSVCALLNAME(CFLAG:targetChara:1015) + "에게 명령해 미약 준비 중"
	CASE 13
		RETURNF CSVCALLNAME(CFLAG:targetChara:1015) + "에게 명령해 유혹 준비 중"
	CASE 14
		RETURNF "촉수 강간 준비 중"
	CASE 15
		RETURNF CSVCALLNAME(CFLAG:targetChara:1015) + "에게 명령해 촉수 강간 중"
	CASEELSE
		THROW 부정한 index : {targetChara}
ENDSELECT


code:
@IN_SCHOOL_SELECT
;학교내エロ조교
X = 0
CALL DISPLAY_COMMON , 9
SIF RESULT == 999
	RETURN 0

;ここからエロ道具持ち込み設定
$INPUT_LOOP2
A = RESULT
SIF CFLAG:A:115 == 0
	PRINTFORML %NAME:A%에게 리모콘으로 원격 조작 할 수 있는 도구를 장착시킵니다.
SIF CFLAG:A:115 != 0
	PRINTFORML %NAME:A%에게 장착시킨 도구를 재설정합니다.
PRINTFORML %CALLNAME:A%에게 무엇을 장착시킵니까?
SIF ITEM:2 == 1 && TALENT:A:남자 == 0 && IS_GO_SAMESCHOOL(A)
	PRINTFORML [0]클리캡
SIF ITEM:4 == 1 && TALENT:A:처녀 == 0 && TALENT:A:남자 == 0 && IS_GO_SAMESCHOOL(A)
	PRINTFORML [1]바이브
SIF ITEM:5 == 1 && IS_GO_SAMESCHOOL(A)
	PRINTFORML [2]애널바이브
SIF ITEM:10 == 1 && IS_GO_SAMESCHOOL(A)
	PRINTFORML [3]유두캡
SIF ITEM:16 == 1 && IS_GO_SAMESCHOOL(A)
	PRINTFORML [4]밧줄
SIF ITEM:촉수사역술 == 1 && TALENT:A:기생 && IS_GO_SAMESCHOOL(A)
	PRINTFORML [5]촉수옷
SIF CFLAG:A:115 != 0
	PRINTFORML [9]도구를 회수한다
PRINTFORM [100]돌아온다
$INPUT_LOOP3
INPUT
IF RESULT == 0 && ITEM:2 == 1 && IS_GO_SAMESCHOOL(A)
	CALL ADULTGOODS_EVERYDAY
	IF RESULT == 1
		PRINTFORML %조사처리({CALLNAME:A},"를")% 호출하여、클리캡을 건네고 이제부터 매일 장착하도록 명령했습니다.
		CFLAG:A:116 = DAY + 100000	;	100000이상の時は毎日処理
	ELSE
		PRINTFORML %조사처리({CALLNAME:A},"를")% 호출하여、클리캡을 건네고 내일 하루종일 장착하도록 명령했습니다.
		CFLAG:A:116 = DAY
	ENDIF
	CFLAG:A:115 = 1
	REPEAT CHARANUM
		SIF COUNT == MASTER
			CONTINUE
		SIF COUNT == A
			CONTINUE
		IF CFLAG:COUNT:115 == 1
			PRINTFORML %CALLNAME:COUNT%에게 건네준 클리캡을 회수했습니다.
			CFLAG:COUNT:115 = 0
			CFLAG:COUNT:116 = 0
		ENDIF
	REND
ELSEIF RESULT == 1 && ITEM:4 == 1 && TALENT:A:처녀 == 0 && IS_GO_SAMESCHOOL(A)
	CALL ADULTGOODS_EVERYDAY
	IF RESULT == 1
		PRINTFORML %조사처리({CALLNAME:A},"를")% 호출하여、바이브를 건네고 이제부터 매일 장착하도록 명령했습니다.
		CFLAG:A:116 = DAY + 100000	;	100000이상の時は毎日処理
	ELSE
		PRINTFORML %조사처리({CALLNAME:A},"를")% 호출하여、바이브를 건네고 내일 하루종일 장착하도록 명령했습니다.
		CFLAG:A:116 = DAY
	ENDIF
	CFLAG:A:115 = 2
	REPEAT CHARANUM
		SIF COUNT == MASTER
			CONTINUE
		SIF COUNT == A
			CONTINUE
		IF CFLAG:COUNT:115 == 2
			PRINTFORML %CALLNAME:COUNT%에게 건네준 바이브를 회수했습니다.
			CFLAG:COUNT:115 = 0
			CFLAG:COUNT:116 = 0
		ENDIF
	REND
ELSEIF RESULT == 2 && ITEM:5 == 1 && IS_GO_SAMESCHOOL(A)
	CALL ADULTGOODS_EVERYDAY
	IF RESULT == 1
		PRINTFORML %조사처리({CALLNAME:A},"를")% 호출하여、애널바이브를 건네고 이제부터 매일 장착하도록 명령했습니다.
		CFLAG:A:116 = DAY + 100000	;	100000이상の時は毎日処理
	ELSE
		PRINTFORML %조사처리({CALLNAME:A},"를")% 호출하여、애널바이브를 건네고 내일 하루종일 장착하도록 명령했습니다.
		CFLAG:A:116 = DAY
	ENDIF
	CFLAG:A:115 = 3
	REPEAT CHARANUM
		SIF COUNT == MASTER
			CONTINUE
		SIF COUNT == A
			CONTINUE
		IF CFLAG:COUNT:115 == 3
			PRINTFORML %CALLNAME:COUNT%에게 건네준 애널바이브를 회수했습니다.
			CFLAG:COUNT:115 = 0
			CFLAG:COUNT:116 = 0
		ENDIF
	REND
ELSEIF RESULT == 3 && ITEM:10 == 1 && IS_GO_SAMESCHOOL(A)
	CALL ADULTGOODS_EVERYDAY
	IF RESULT == 1
		PRINTFORML %조사처리({CALLNAME:A},"를")% 호출하여、유두캡을 건네고 이제부터 매일 장착하도록 명령했습니다.
		CFLAG:A:116 = DAY + 100000	;	100000이상の時は毎日処理
	ELSE
		PRINTFORML %조사처리({CALLNAME:A},"를")% 호출하여、유두캡을 건네고 내일 하루종일 장착하도록 명령했습니다.
		CFLAG:A:116 = DAY
	ENDIF
	CFLAG:A:115 = 4
	REPEAT CHARANUM
		SIF COUNT == MASTER
			CONTINUE
		SIF COUNT == A
			CONTINUE
		IF CFLAG:COUNT:115 == 4
			PRINTFORML %CALLNAME:COUNT%에게 건네준 유두캡을 회수했습니다.
			CFLAG:COUNT:115 = 0
			CFLAG:COUNT:116 = 0
		ENDIF
	REND
ELSEIF RESULT == 4 && ITEM:16 == 1 && IS_GO_SAMESCHOOL(A)
	CALL ADULTGOODS_EVERYDAY
	IF RESULT == 1
		PRINTFORML %조사처리({CALLNAME:A},"를")% 호출하여、몸을 밧줄로 묶고 겉으로는 알아볼 수 없게 옷을 입혔다.
		CFLAG:A:116 = DAY + 100000	;	100000이상の時は毎日処理
	ELSE
		PRINTFORML %조사처리({CALLNAME:A},"를")% 호출하여、몸을 밧줄로 묶고 겉으로는 알아볼 수 없게 옷을 입혔다.
		CFLAG:A:116 = DAY
	ENDIF
	CFLAG:A:115 = 5
	REPEAT CHARANUM
		SIF COUNT == MASTER
			CONTINUE
		SIF COUNT == A
			CONTINUE
		IF CFLAG:COUNT:115 == 5
			PRINTFORML %조사처리(CALLNAME,"를")% 묶은 밧줄을 풀어주었습니다.
			CFLAG:COUNT:115 = 0
			CFLAG:COUNT:116 = 0
		ENDIF
	REND
ELSEIF RESULT == 5 && ITEM:촉수사역술 == 1 && TALENT:A:기생 && IS_GO_SAMESCHOOL(A)
	PRINTFORML %CALLNAME:A%의 옷과 촉수생물을 동화시켰다････。
	CALL ADULTGOODS_EVERYDAY
	CFLAG:A:116 = DAY + (RESULT == 1 ? 100000 # 0)	;	100000이상の時は毎日処理
	CFLAG:A:115 = 6
	REPEAT CHARANUM
		SIF COUNT == MASTER
			CONTINUE
		SIF COUNT == A
			CONTINUE
		IF CFLAG:COUNT:115 == 6
			PRINTFORML %CALLNAME:COUNT%의 옷에서 촉수생물을 분리했습니다.
			CFLAG:COUNT:115 = 0
			CFLAG:COUNT:116 = 0
		ENDIF
	REND
ELSEIF RESULT == 9 && CFLAG:A:115 != 0
	SIF CFLAG:A:115 == 1
		PRINTFORML %CALLNAME:A%에게서 클리캡을 회수했습니다.
	SIF CFLAG:A:115 == 2
		PRINTFORML %CALLNAME:A%에게서 바이브를 회수했습니다.
	SIF CFLAG:A:115 == 3
		PRINTFORML %CALLNAME:A%에게서 애널바이브를 회수했습니다.
	SIF CFLAG:A:115 == 4
		PRINTFORML %CALLNAME:A%에게서 유두캡을 회수했습니다.
	SIF CFLAG:A:115 == 5
		PRINTFORML %조사처리({CALLNAME:A},"를")% 묶은 밧줄을 풀어주었습니다.
	SIF CFLAG:A:115 == 6
		PRINTFORML %CALLNAME:A%의 옷에서 촉수생물을 분리했습니다.
	CFLAG:A:115 = 0
	CFLAG:A:116 = 0
ELSEIF RESULT != 100
	GOTO INPUT_LOOP3
ENDIF

;グッズを持たせる期間設定
@ADULTGOODS_EVERYDAY
PRINTFORML 언제까지 장착시킵니까?
PRINTFORML [0]내일
PRINTFORML [1]매일

$INPUT_GOODSLABEL
INPUT
IF RESULT == 0
	RETURN RESULT
ELSEIF RESULT == 1
	RETURN RESULT
ELSE
	GOTO INPUT_GOODSLABEL
ENDIF

;전원의 グッズを外す
@ADULTGOODS_ALLDETACH
REPEAT CHARANUM
	CFLAG:COUNT:115 = 0
	CFLAG:COUNT:116 = 0
REND

@IN_SCHOOL_ACTION,ARG
DRAWLINE
IF (CFLAG:ARG:115 >= 1 && CFLAG:ARG:115 <= 4) || CFLAG:ARG:115 == 6
	IF CFLAG:ARG:115 != 6 ;촉수옷の場合は選択させない。
		PRINTFORM %CALLNAME:ARG%에게 장착시킨、
		SIF CFLAG:ARG:115 == 1
			PRINT 클리캡의
		SIF CFLAG:ARG:115 == 2
			PRINT 바이브의
		SIF CFLAG:ARG:115 == 3
			PRINT 애널바이브의
		SIF CFLAG:ARG:115 == 4
			PRINT 유두캡의
		PRINTL 리모콘을 언제 조작합니까?
		IF FLAG:8 == 1
		;平日
			PRINTL [0]수업 중
			PRINTL [1]방과후
			PRINTL [100]작동시키지 않는다
		ELSE
		;休日
			PRINTL [0]대낮
			PRINTL [1]저녁 이후
			PRINTL [100]작동시키지 않는다
		ENDIF
		$INPUT_LOOP
		INPUT
	ENDIF
	IF RESULT == 100 && CFLAG:ARG:115 != 6
		PRINTFORM ……%조사처리(CALLNAME:ARG,"는")%、그날 밤에
		SIF CFLAG:ARG:115 == 1
			PRINT 클리캡
		SIF CFLAG:ARG:115 == 2
			PRINT 바이브
		SIF CFLAG:ARG:115 == 3
			PRINT 애널바이브
		SIF CFLAG:ARG:115 == 4
			PRINT 유두캡
		PRINTFORML %조사만처리(CALLNAME:ARG,"를")% 돌려주러 왔다.
		PRINTFORM %마스터가%、결국 도구를 작동시키지 않은 것에
		IF TALENT:ARG:음란 == 1 || ABL:ARG:8 >= 4
			PRINTFORML %조사처리(CALLNAME:ARG,"는")% 少し不満そうだ。
		ELSE
			PRINTFORML %조사처리(CALLNAME:ARG,"는")% 少し安心した様子を見せた。
		ENDIF
		CALL IN_SCHOOL_JEWEL,ARG,0,0
	ELSEIF RESULT == 0 || CFLAG:ARG:115 == 6 ;촉수옷은 한낮에만 움직인다
		IF CFLAG:ARG:115 != 6
			IF FLAG:8 == 1
				PRINTFORM %마스터는% 수업 중、
			ELSE
				PRINTFORM %마스터는% 休日の午前中、
			ENDIF
			SIF CFLAG:ARG:115 == 1
				PRINT 클리캡
			SIF CFLAG:ARG:115 == 2
				PRINT 바이브
			SIF CFLAG:ARG:115 == 3
				PRINT 애널바이브
			SIF CFLAG:ARG:115 == 4
				PRINT 유두캡
			PRINTFORML のリモコンを操作した。
		ENDIF
	;대상は何をしていた？
		IF FLAG:8 == 1
			PRINTFORM 教室で、수업 중、
		ELSE
		;関心の確認
			B = RAND:10
			IF ABL:ARG:30 > B
	;勉強
				PRINTFORM 도서관に行く途中、
			ELSE
				B -= ABL:ARG:30
				IF ABL:ARG:31 > B
					IF TALENT:ARG:위원회 == 1
						PRINTFORM 残った위원회の仕事をしようと、学校に行く途中、
					ELSE
						PRINTFORM 부활동動中、
					ENDIF
				ELSE
					PRINTFORM 何処かへ遊びに行く途中、
				ENDIF
			ENDIF
		ENDIF
		CALL IN_SCHOOL_RESULT,ARG,0
		A = RESULT
	;20120802
		IF A >= RAND:5
	;誰かに気付かれた
			;平日、수업 중
			IF FLAG:8 == 1
				IF TALENT:ARG:교사
					IF A == 0
						PRINTFORML が、生徒たちは%CALLNAME:ARG%の様子に気づくことなく授業を受けている。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")% 不審に思われない様に表情を繕いながら、授業を続けた。
					ELSEIF A == 1
						PRINTFORML その様子に生徒たちから心配する声があがる。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")% 焦った様子で問題がないことを告げると、襲ってくる刺激に耐えながら授業を続けた。
					ELSEIF A == 2
						PRINTFORML その様子に生徒たちから心配する声があがったが、刺激に耐えるのに精いっぱいな%조사처리(CALLNAME:ARG,"는")% 返事もまともにできなかった。
						PRINTFORML
						PRINTFORML %조사처리(CALLNAME:ARG,"는")% 最後の기력を振り絞り課題を支持すると、よろめきながら教壇のイスに座り、
						PRINTFORML 刺激に耐えながら授業の終りを待ち続けた。
					ELSE
						PRINTFORML もはや誤魔化しきれない。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량のため自習にするとだけを告げると、よろける様に教室から抜け出した。
					ENDIF
				ELSE
					IF A == 0
						PRINTFORML 교사は、%CALLNAME:ARG%の様子に気付いた様子も無く、簡単な質問で彼女を指名する。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")% 不審に思われない様に表情を繕いながら、問いに答えた。
					ELSEIF A == 1
						PRINTFORML 교사は、%CALLNAME:ARG%の声には気が付かなかったらしく、簡単な質問で彼女を指名する。
						PRINTFORML しかし、%조사처리(CALLNAME:ARG,"는")% 刺激に耐えるのに精いっぱいで質問を聞いていなかった。
						PRINTFORML ……見かねた隣の級友が、問いを教えてくれなかったら、困った事になっただろう。
					ELSEIF A == 2
						PRINTFORML 교사は、%CALLNAME:ARG%の声には気が付かなかったらしく、簡単な質問で彼女を指名する。
						PRINTFORML しかし、%조사처리(CALLNAME:ARG,"는")% 刺激に耐えるのに精いっぱいで質問を聞いていなかった。
						PRINTFORML 교사は不審に思った様で、体調が悪いなら보건실に行くように勧めている。
					ELSE
						PRINTFORML もはや誤魔化しきれない。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량を主張して、呼び止める교사の声も無視して、よろける様に教室から抜け出した。
					ENDIF
				ENDIF
			;休日
			ELSE
				IF A == 0
					PRINTFORML %CALLNAME:ARG%に気がついた友人が軽い調子で声を掛けてきた。
					PRINTFORML %조사처리(CALLNAME:ARG,"는")% 不審に思われない様に表情を繕いながら、何とかあしらっている。
				ELSEIF A == 1
					PRINTFORML %CALLNAME:ARG%に気がついた友人が軽い調子で声を掛けてきた。
					PRINTFORML しかし、%조사처리(CALLNAME:ARG,"는")% 刺激に耐えるのに精いっぱいでそれに気が付かなかった。
					PRINTFORML ……肩を叩かれて初めて気がついた%조사처리(CALLNAME:ARG,"는")% 誤魔化すのに必死だ。
				ELSEIF A == 2
					PRINTFORML %CALLNAME:ARG%に気がついた友人が軽い調子で声を掛けてきた。
					PRINTFORML しかし、%조사처리(CALLNAME:ARG,"는")% 刺激に耐えるのに精いっぱいでそれに気が付かなかった。
					PRINTFORML そのただならぬ様子に、心配する友人を誤魔化して立ち去るのは楽な事ではなかった様だ。
				ELSE
					PRINTFORML もはや誤魔化しきれない。
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량を主張して、呼び止める友人の声も無視して、よろける様に歩き出した。
				ENDIF
			ENDIF
		ELSE
			IF FLAG:8 == 1
				IF A == 0
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、反応が周囲に気取られない様に注意しながら、どうにか授業が終わるまでやり過ごした。
				ELSEIF A == 1
					PRINTFORML その声に、周囲はちらっと目をやるが、%조사처리(CALLNAME:ARG,"는")% 何とか誤魔化す事に成功した。
				ELSEIF A == 2
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、何とか体調불량で押し切った様だが、周囲は明らかに奇異の目を向けている。
				ELSE
					PRINTFORML もはや誤魔化しきれない。
					IF TALENT:ARG:교사
						PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량のため自習にすることを告げ、教室から抜け出した。
					ELSE
						PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량を主張して教室から抜け出した。
					ENDIF
				ENDIF
			ELSE
				IF A == 0
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、反応が周囲に気取られない様に注意しながら、どうにか誤魔化した。
				ELSEIF A == 1
					PRINTFORML その声に、周囲はちらっと目をやるが、%조사처리(CALLNAME:ARG,"는")% 何とか誤魔化す事に成功した。
				ELSEIF A == 2
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、何とか体調불량で押し切った様だが、周囲は明らかに奇異の目を向けている。
				ELSE
					PRINTFORML もはや誤魔化しきれない。
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량を主張してその場から逃げ出した。
				ENDIF
			ENDIF
		ENDIF
		CALL IN_SCHOOL_JEWEL,ARG,1,A
	;방과후
	ELSEIF RESULT == 1
		IF FLAG:8 == 1
			PRINTFORM %마스터는% 방과후、
		ELSE
			PRINTFORM %마스터는% 休日の夕方、
		ENDIF
		SIF CFLAG:ARG:115 == 1
			PRINT 클리캡
		SIF CFLAG:ARG:115 == 2
			PRINT 바이브
		SIF CFLAG:ARG:115 == 3
			PRINT 애널바이브
		SIF CFLAG:ARG:115 == 4
			PRINT 유두캡
		PRINTFORML のリモコンを操作した。
	;대상は何をしていた？
		;대상がＮＴＬで남친있음か남편있음、彼氏旦那の呼び名設定ありCSTR14の時に専用分岐
		IF TALENT:ARG:ＮＴＬ && (TALENT:ARG:남친있음 || TALENT:ARG:남편있음) && TALENT:ARG:밀회 != 1 && CSTR:ARG:14 != ""
			IF FLAG:8 == 1
				PRINTFORM 방과후、\@ TALENT:ARG:남친있음 ? 彼氏である # 夫である \@%CSTR:ARG:14%と話している時、
			ELSE
				PRINTFORM \@ TALENT:ARG:남친있음 ? 彼氏である # 夫である \@%CSTR:ARG:14%と街中を歩いている時、
			ENDIF
		ELSEIF TALENT:ARG:교사
			IF FLAG:8 == 1
				PRINTFORM 방과후、교무실で作業をしている時、
			ELSE
				PRINTFORM 何処かへ遊びに行く途中、
			ENDIF
		ELSEIF TALENT:ARG:귀가부 == 1
		;関心の確認
			B = RAND:10
			IF ABL:ARG:30 > B
	;勉強
				IF FLAG:8 == 1
					PRINTFORM 방과후、도서실에 의해 勉強中、
				ELSE
					PRINTFORM 도서관に行って勉強中、
				ENDIF
			ELSE
				IF FLAG:8 == 1
					PRINTFORM 방과후、帰りに何処かへ遊びに行こうとする途中、
				ELSE
					PRINTFORM 何処かへ遊びに行く途中、
				ENDIF
			ENDIF
		ELSEIF TALENT:ARG:위원회 == 1 && FLAG:8 == 1
			PRINTFORM 방과후、위원회活動中、
		ELSEIF FLAG:8 == 1
	;クラブ活動
			PRINTFORM 방과후、부활동動中、
		ELSEIF FLAG:8 == 0
		;関心の確認
			B = RAND:10
			IF ABL:ARG:30 > B
	;勉強
				PRINTFORM 도서관に行って勉強中、
			ELSE
				B -= ABL:ARG:30
				IF ABL:ARG:31 > B
					IF TALENT:ARG:위원회 == 1
						PRINTFORM 休日だと言うのに、学校に来て、残った위원회の仕事をしている最中、
					ELSE
						PRINTFORM 부활동動中、
					ENDIF
				ELSE
					PRINTFORM 何処かへ遊びに行く途中、
				ENDIF
			ENDIF
		ENDIF

		CALL IN_SCHOOL_RESULT,ARG,1
		A = RESULT
	;20120802
		IF A >= RAND:5
	;誰かに気付かれた
			;대상がＮＴＬで남친있음か남편있음、彼氏旦那の呼び名設定ありCSTR14の時に専用分岐
			IF TALENT:ARG:ＮＴＬ && (TALENT:ARG:남친있음 || TALENT:ARG:남편있음) && TALENT:ARG:밀회 != 1 && CSTR:ARG:14 != ""
				IF A == 0
					PRINTFORML %CALLNAME:ARG%の変化に気がついた%CSTR:ARG:14%が軽い調子で、どうかしたのかと問いかけてきた。
					PRINTFORML %조사처리(CALLNAME:ARG,"는")% 不審に思われない様に表情を繕いながら、何とか%CSTR:ARG:14%と회화を続けている。
				ELSEIF A == 1
					PRINTFORML %CALLNAME:ARG%に変化に気がついた%CSTR:ARG:14%が、どうかしたのかと問いかけてきた。
					PRINTFORML しかし、%조사처리(CALLNAME:ARG,"는")% 刺激に耐えるのに精いっぱいでそれに気が付かなかった。
					PRINTFORML ……肩を叩かれて初めて%CSTR:ARG:14%の言葉に気がついた%조사처리(CALLNAME:ARG,"는")% 誤魔化すのに必死だ。
				ELSEIF A == 2
					PRINTFORML %CALLNAME:ARG%に変化に気がついた%CSTR:ARG:14%が、どうかしたのかと問いかけてきた。
					PRINTFORML しかし、%조사처리(CALLNAME:ARG,"는")% 刺激に耐えるのに精いっぱいでそれに気が付かなかった。
					PRINTFORML そのただならぬ様子に、心配する%CSTR:ARG:14%に言い訳し納得してもらうのは楽な事ではなかった様だ。
				ELSE
					IF TALENT:ARG:처녀 == 0 && RAND:2 == 0
						PRINTFORML もはや誤魔化しきれない。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")%、先ほどの喘ぎ声で興奮してしまったのか、\@ TALENT:ARG:남친있음 ? 家に寄っていかないかと # 家に帰ったら……と \@、
						PRINTFORML 言い出した%CSTR:ARG:14%에게、調子が悪いから先に帰ると謝り、その場から逃げ出した。
					ELSE
						PRINTFORML もはや誤魔化しきれない。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")%、%CSTR:ARG:14%に調子が悪いから先に帰ると謝り、その場から逃げ出した。
					ENDIF
				ENDIF
			ELSEIF FLAG:8 == 1
				IF TALENT:ARG:교사
					IF A == 0
						PRINTFORML が、동료の교사たちは%CALLNAME:ARG%の様子に気づくことなく自分の作業を続けている。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")% 不審に思われない様に表情を繕いながら、作業を続けた。
					ELSEIF A == 1
						PRINTFORML その様子に近くの동료から心配する声があがる。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")% 焦った様子で問題がないことを告げると、襲ってくる刺激に耐えながら作業を続けた。
					ELSEIF A == 2
						PRINTFORML その様子に近くの동료から心配する声があがったが、刺激に耐えるのに精いっぱいな%조사처리(CALLNAME:ARG,"는")% 返事もまともにできなかった。
						PRINTFORML
						PRINTFORML %조사처리(CALLNAME:ARG,"는")% 最後の기력を振り絞り席を外すことを告げると、よろめきながら교무실から抜け出した。
					ELSE
						PRINTFORML もはや誤魔化しきれない。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량のため帰宅するとだけを告げると、よろける様に교무실から抜け出した。
					ENDIF
				ELSE
					IF A == 0
						PRINTFORML 교사は、%CALLNAME:ARG%の様子に気付いた様子も無く、簡単な質問で彼女を指名する。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")% 不審に思われない様に表情を繕いながら、問いに答えた。
					ELSEIF A == 1
						PRINTFORML 교사は、%CALLNAME:ARG%の声には気が付かなかったらしく、簡単な質問で彼女を指名する。
						PRINTFORML しかし、%조사처리(CALLNAME:ARG,"는")% 刺激に耐えるのに精いっぱいで質問を聞いていなかった。
						PRINTFORML ……見かねた隣の級友が、問いを教えてくれなかったら、困った事になっただろう。
					ELSEIF A == 2
						PRINTFORML 교사は、%CALLNAME:ARG%の声には気が付かなかったらしく、簡単な質問で彼女を指名する。
						PRINTFORML しかし、%조사처리(CALLNAME:ARG,"는")% 刺激に耐えるのに精いっぱいで質問を聞いていなかった。
						PRINTFORML 교사は不審に思った様で、体調が悪いなら보건실に行くように勧めている。
					ELSE
						PRINTFORML もはや誤魔化しきれない。
						PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량を主張して、呼び止める교사の声も無視して、よろける様に歩き出した。
					ENDIF
				ENDIF
			ELSE
				IF A == 0
					PRINTFORML %CALLNAME:ARG%に気がついた友人が軽い調子で声を掛けてきた。
					PRINTFORML %조사처리(CALLNAME:ARG,"는")% 不審に思われない様に表情を繕いながら、何とかあしらっている。
				ELSEIF A == 1
					PRINTFORML %CALLNAME:ARG%に気がついた友人が軽い調子で声を掛けてきた。
					PRINTFORML しかし、%조사처리(CALLNAME:ARG,"는")% 刺激に耐えるのに精いっぱいでそれに気が付かなかった。
					PRINTFORML ……肩を叩かれて初めて気がついた%조사처리(CALLNAME:ARG,"는")% 誤魔化すのに必死だ。
				ELSEIF A == 2
					PRINTFORML %CALLNAME:ARG%に気がついた友人が軽い調子で声を掛けてきた。
					PRINTFORML しかし、%조사처리(CALLNAME:ARG,"는")% 刺激に耐えるのに精いっぱいでそれに気が付かなかった。
					PRINTFORML そのただならぬ様子に、心配する友人を誤魔化して立ち去るのは楽な事ではなかった様だ。
				ELSE
					PRINTFORML もはや誤魔化しきれない。
					IF TALENT:ARG:교사
						PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량のため帰宅するとだけを告げると、よろける様に교무실から抜け出した。
					ELSE
						PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량を主張して、呼び止める友人の声も無視して、よろける様に歩き出した。
					ENDIF
				ENDIF
			ENDIF
		ELSE
			;대상がＮＴＬで남친있음か남편있음、彼氏旦那の呼び名設定ありCSTR14の時に専用分岐
			IF TALENT:ARG:ＮＴＬ && (TALENT:ARG:남친있음 || TALENT:ARG:남편있음) && TALENT:ARG:밀회 != 1 && CSTR:ARG:14 != ""
				IF A == 0
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、反応が%CSTR:ARG:14%や周囲に気取られない様に注意しながら、どうにか誤魔化した。
				ELSEIF A == 1
					PRINTFORML その声に、%CSTR:ARG:14%は不思議そうな表情を浮かべたが、%조사처리(CALLNAME:ARG,"는")% 何とか誤魔化す事に成功した。
				ELSEIF A == 2
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、問いかけてくる%CSTR:ARG:14%に調子が悪いと言い何とか押し切った様だが、%CSTR:ARG:14%は明らかに奇異の目を向けている。
				ELSE
					PRINTFORML もはや誤魔化しきれない。
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、%CSTR:ARG:14%に調子が悪いから先に帰ると謝り、その場から逃げ出した。
				ENDIF
			ELSEIF FLAG:8 == 1
		;방과후
				IF A == 0
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、反応が周囲に気取られない様に注意しながら、どうにかやり過ごした。
				ELSEIF A == 1
					PRINTFORML その声に、周囲はちらっと目をやるが、%조사처리(CALLNAME:ARG,"는")% 何とか誤魔化す事に成功した。
				ELSEIF A == 2
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、何とか体調불량で押し切った様だが、周囲は明らかに奇異の目を向けている。
				ELSE
					PRINTFORML もはや誤魔化しきれない。
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량を主張して、その場から抜け出した。
				ENDIF
			ELSE
		;休日
				IF A == 0
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、反応が周囲に気取られない様に注意しながら、どうにか誤魔化した。
				ELSEIF A == 1
					PRINTFORML その声に、周囲はちらっと目をやるが、%조사처리(CALLNAME:ARG,"는")% 何とか誤魔化す事に成功した。
				ELSEIF A == 2
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、何とか体調불량で押し切った様だが、周囲は明らかに奇異の目を向けている。
				ELSE
					PRINTFORML もはや誤魔化しきれない。
					PRINTFORML %조사처리(CALLNAME:ARG,"는")%、体調불량を主張してその場から逃げ出した。
				ENDIF
			ENDIF
		ENDIF
		CALL IN_SCHOOL_JEWEL,ARG,1,A
	ELSE
		GOTO INPUT_LOOP
	ENDIF
ELSEIF CFLAG:ARG:115 == 5
;밧줄化粧
	PRINTFORMW ……%조사처리(CALLNAME:ARG,"는")%、그날 하루 종일 온몸에 얽힌 밧줄을 의식하며 보냈다.
	CALL IN_SCHOOL_JEWEL,ARG,0,0
	PRINTFORML 긴박경험+５
	EXP:ARG:51 += 5
ELSE
	;何も装備していないなら、ここには入らない
ENDIF

IF CFLAG:ARG:116 > 100000
	CFLAG:ARG:116 = DAY + 100001
ELSE
	CFLAG:ARG:115 = 0
	CFLAG:ARG:116 = 0
ENDIF

@IN_SCHOOL_RESULT,ARG,trainTime=-1
#DIM trainTime
A = 0
IF CFLAG:ARG:115 == 1
;클리캡
	PRINTFORM %조사처리(CALLNAME:ARG,"는")%、突然클리토리스を襲った振動に、
	IF ABL:ARG:3 <= 1
;C감각
		PRINTL 불쾌そうに眉を顰めた。
	ELSEIF ABL:ARG:3 <= 3
		PRINTL 思わず声を上げそうになって、慌ててそれを噛み殺した。
	ELSEIF ABL:ARG:3 <= 5
		PRINTL 思わず声を洩らしてしまった。
		A = 1
	ELSEIF ABL:ARG:3 <= 7
		PRINTL 耐えられず、身体を小刻みに震わせて、呻き声を洩らしている。
		A = 2
	ELSE
		PRINTL 思わず身体を跳ねさせ、虚空を見上げて、可愛らしい喘ぎ声を上げた。
		A = 3
	ENDIF
ELSEIF CFLAG:ARG:115 == 2
;바이브
	PRINTFORM %조사처리(CALLNAME:ARG,"는")%、突然秘裂を襲った振動に、
	IF ABL:ARG:4 <= 1
;V感깨우침
		PRINTL 불쾌そうに眉を顰めた。
	ELSEIF ABL:ARG:4 <= 3
		PRINTL 戸惑いながらも、時折突き上げる快楽に耐えている。
	ELSEIF ABL:ARG:4 <= 5
		PRINTL 耐えていたが、やがて堪え切れずに声を洩らしてしまった。
		A = 1
	ELSEIF ABL:ARG:4 <= 7
		PRINTL 耐えられず、蕩けた様な表情で身を震わせた。
		A = 2
	ELSE
		PRINTL 思わず身体を跳ねさせ、虚空を見上げて、可愛らしい喘ぎ声を上げた。
		A = 3
	ENDIF
ELSEIF CFLAG:ARG:115 == 3
;애널바이브
	PRINTFORM %조사처리(CALLNAME:ARG,"는")%、突然肛門を襲った振動に、
	IF ABL:ARG:5 <= 1
;A感깨우침
		PRINTL 불쾌そうに眉を顰めた。
	ELSEIF ABL:ARG:5 <= 3
		PRINTL 불쾌さを堪えながらも、時折突き上げる快楽に耐えている。
	ELSEIF ABL:ARG:5 <= 5
		PRINTL 耐えていたが、やがて堪え切れずに声を洩らしてしまった。
		A = 1
	ELSEIF ABL:ARG:5 <= 7
		PRINTL 耐えられず、蕩けた様な表情で身を震わせた。
		A = 2
	ELSE
		PRINTL 思わず身体を跳ねさせ、虚空を見上げて、可愛らしい喘ぎ声を上げた。
		A = 3
	ENDIF
ELSEIF CFLAG:ARG:115 == 4
;유두캡
	PRINTFORM %조사처리(CALLNAME:ARG,"는")%、突然유두を襲った振動に、
	IF ABL:ARG:6 <= 1
;B感깨우침
		PRINTL 불쾌そうに眉を顰めた。
	ELSEIF ABL:ARG:6 <= 3
		PRINTL 思わず声を上げそうになって、慌ててそれを噛み殺した。
	ELSEIF ABL:ARG:6 <= 5
		PRINTL 思わず声を洩らしてしまった。
		A = 1
	ELSEIF ABL:ARG:6 <= 7
		PRINTL 耐えられず、身体を小刻みに震わせて、呻き声を洩らしている。
		A = 2
	ELSE
		PRINTL 思わず身体を跳ねさせ、虚空を見上げて、可愛らしい喘ぎ声を上げた。
		A = 3
	ENDIF
ELSEIF CFLAG:ARG:115 == 6
;촉수옷
	PRINTFORML %CALLNAME:ARG%의 옷에 동화되어 있던 촉수가 예고도 없이 꿈틀、하고 움직이기 시작했다.
	PRINTFORM 全身の性感帯で蠢き、ぐちゅぐちゅと責めたててくる촉수。%조사처리(CALLNAME:ARG,"는")%
	SELECTCASE EXP:ARG:촉수경험 + (ABL:ARG:Ｃ감각 + ABL:ARG:Ｖ감각 + ABL:ARG:Ａ감각 + ABL:ARG:Ｂ감각) * 10
		CASE IS <= 200
			PRINTL おぞましい感触に불쾌そうに眉を顰めた。
		CASE IS <= 450
			PRINTL おぞましい感触に耐えながらも、時々熱っぽい吐息を漏らしている。
		CASE IS <= 700
			PRINTL 遠慮無く送られてくる快楽に耐えていたが、やがて耐えきれずに声を漏らしてしまった。
			A = 1
		CASE IS <= 950
			PRINTL あまりの快楽に耐えられず、身体を小刻みに震わせて、呻き声を洩らしている。
			A = 2
		CASEELSE
			PRINTL あまりの甘美な刺激に身体を跳ねさせ、可愛らしい喘ぎ声を上げた。
			A = 3
	ENDSELECT
ENDIF
RETURN A

@IN_SCHOOL_JEWEL,ARG,ARG:1,ARG:2
;ARG キャラ番号、ARG:1 0なら작동시키지 않는다　1なら動かした。 ARG:2はIN_SCHOOL_RESULTの帰り値
;A:부정의 구슬、B:공포의 구슬、C:치정의 구슬、D:感度,E:욕정
#DIM temp
A = 0
B = 0
C = 0
D = 0
E = 0
IF ARG:1 == 0 && CFLAG:ARG:115 != 6
;機器を動かさなかった
	B = 10
	IF ABL:ARG:0 < 2
		A = 100
	ELSEIF ABL:ARG:0 < 4
		A = 50
	ELSEIF ABL:ARG:0 < 6
		A = 10
	ELSEIF ABL:ARG:0 < 8
		A = 1
	ENDIF
	IF CFLAG:ARG:115 == 5
;밧줄
;노출증
		IF ABL:ARG:8 == 0
			C = 0
		ELSEIF ABL:ARG:8 == 1
			C = 10
		ELSEIF ABL:ARG:8 == 2
			C = 50
		ELSE
			C = 100
		ENDIF
		SIF FLAG:8 == 1
			C *= 2
		IF TALENT:ARG:프라이드높음 == 1
			C *= 12
			C /= 10
		ENDIF
		IF TALENT:ARG:프라이드낮음 == 1
			C *= 8
			C /= 10
		ENDIF
		IF TALENT:ARG:감정부족 == 1
			C /= 2
		ENDIF
		IF TALENT:ARG:부끄럼쟁이 == 1
			C *= 15
			C /= 10
		ENDIF
		IF TALENT:ARG:수치심없음 == 1
			C /= 2
		ENDIF
		IF TALENT:ARG:친구많음 == 1
			C *= 15
			C /= 10
		ENDIF
		IF TALENT:ARG:고고함 == 1
			C /= 2
		ENDIF
		PRINTFORML 치정의 구슬+{C}
		JUEL:ARG:9 += C
;M
		IF ABL:ARG:9 == 0
			E = 0
		ELSEIF ABL:ARG:9 == 1
			E = 10
		ELSEIF ABL:ARG:9 == 2
			E = 50
		ELSE
			E = 100
		ENDIF
		IF TALENT:ARG:반항적 == 1
			E *= 2
			E /= 3
		ENDIF
		IF TALENT:ARG:자제심 == 1
			E *= 2
			E /= 3
		ENDIF
		IF TALENT:ARG:억압 == 1
			E /= 2
		ENDIF
		IF TALENT:ARG:눈에띄고싶어함 == 1
			E *= 12
			E /= 10
		ENDIF
		IF TALENT:ARG:쾌감에솔직 == 1
			E *= 3
			E /= 2
		ENDIF
		IF TALENT:ARG:쾌감을부정 == 1
			E *= 2
			E /= 3
		ENDIF
		PRINTFORML 욕정의 구슬+{E}
		JUEL:ARG:6 += E
	ENDIF
ELSE
;動かした
;まずは感度のチェック
	IF ARG:2 == 0
		D = 10
	ELSEIF ARG:2 == 1
		D = 50
	ELSEIF ARG:2 == 2
		D = 200
	ELSE
		D = 1000
	ENDIF

	IF CFLAG:ARG:115 == 1
		IF TALENT:ARG:Ｃ민감 == 1
			D *= 3
			D /= 2
		ELSEIF TALENT:ARG:Ｃ둔감 == 1
			D /= 2
		ENDIF
		PRINTFORML 쾌Ｃ의 구슬+{D}
		JUEL:ARG:0 += D
	ELSEIF CFLAG:ARG:115 == 2
		IF TALENT:ARG:Ｖ민감 == 1
			D *= 3
			D /= 2
		ELSEIF TALENT:ARG:Ｖ둔감 == 1
			D /= 2
		ENDIF
		PRINTFORML 쾌Ｖ의 구슬+{D}
		JUEL:ARG:1 += D
	ELSEIF CFLAG:ARG:115 == 3
		IF TALENT:ARG:Ａ민감 == 1
			D *= 3
			D /= 2
		ELSEIF TALENT:ARG:Ａ둔감 == 1
			D /= 2
		ENDIF
		PRINTFORML 쾌Ａ의 구슬+{D}
		JUEL:ARG:2 += D
	ELSEIF CFLAG:ARG:115 == 4
		IF TALENT:ARG:Ｂ민감 == 1
			D *= 3
			D /= 2
		ELSEIF TALENT:ARG:Ｂ둔감 == 1
			D /= 2
		ENDIF
		PRINTFORML 쾌Ｂ의 구슬+{D}
		JUEL:ARG:3 += D
	ELSEIF CFLAG:ARG:115 == 6
		CALL GET_JUEL(ARG,"쾌Ｃ",D * 3 / ((POWER(3,!TALENT:ARG:Ｃ민감 + TALENT:ARG:Ｃ둔감) - 1) / 2 + 2))
		SIF !TALENT:ARG:처녀
			CALL GET_JUEL(ARG,"쾌Ｖ",D * 3 / ((POWER(3,!TALENT:ARG:Ｖ민감 + TALENT:ARG:Ｖ둔감) - 1) / 2 + 2))
		CALL GET_JUEL(ARG,"쾌Ａ",D * 3 / ((POWER(3,!TALENT:ARG:Ａ민감 + TALENT:ARG:Ａ둔감) - 1) / 2 + 2))
		CALL GET_JUEL(ARG,"쾌Ｂ",D * 3 / ((POWER(3,!TALENT:ARG:Ｂ민감 + TALENT:ARG:Ｂ둔감) - 1) / 2 + 2))
		temp += D * 3 / ((POWER(3,!TALENT:ARG:Ｃ민감 + TALENT:ARG:Ｃ둔감) - 1) / 2 + 2)
		temp += D * 3 / ((POWER(3,!TALENT:ARG:Ｖ민감 + TALENT:ARG:Ｖ둔감) - 1) / 2 + 2)
		temp += D * 3 / ((POWER(3,!TALENT:ARG:Ａ민감 + TALENT:ARG:Ａ둔감) - 1) / 2 + 2)
		temp += D * 3 / ((POWER(3,!TALENT:ARG:Ｂ민감 + TALENT:ARG:Ｂ둔감) - 1) / 2 + 2)
		D = temp
	ELSE
		;あり得ないはず
	ENDIF
;욕정　感度の2/3
	E = D * 2
	E /= 3
;노출증
	IF ABL:ARG:8 == 0
		E /= 2
	ELSEIF ABL:ARG:8 < 5 && ABL:ARG:8 > 2
		E *= 12
		E /= 10
	ELSEIF ABL:ARG:8 < 7
		E *= 15
		E /= 10
	ELSE
		E *= 2
	ENDIF
	IF TALENT:ARG:반항적 == 1
		E *= 2
		E /= 3
	ENDIF
	IF TALENT:ARG:자제심 == 1
		E *= 2
		E /= 3
	ENDIF
	IF TALENT:ARG:억압 == 1
		E /= 2
	ENDIF
	IF TALENT:ARG:눈에띄고싶어함 == 1
		E *= 12
		E /= 10
	ENDIF
	IF TALENT:ARG:쾌감에솔직 == 1
		E *= 3
		E /= 2
	ENDIF
	IF TALENT:ARG:쾌감을부정 == 1
		E *= 2
		E /= 3
	ENDIF
	PRINTFORML 욕정의 구슬+{E}
	JUEL:ARG:6 += E

;치정　平日の方が多い
	IF FLAG:8 == 1
		C = 100
	ELSE
		C = 50
	ENDIF
	IF ARG:2 == 1
		C *= 2
	ELSEIF ARG:2 == 2
		C *= 5
	ELSEIF ARG:2 == 3
		C *= 10
	ENDIF
	IF TALENT:ARG:프라이드높음 == 1
		C *= 12
		C /= 10
	ENDIF
	IF TALENT:ARG:프라이드낮음 == 1
		C *= 8
		C /= 10
	ENDIF
	IF TALENT:ARG:감정부족 == 1
		C /= 2
	ENDIF
	IF TALENT:ARG:부끄럼쟁이 == 1
		C *= 15
		C /= 10
	ENDIF
	IF TALENT:ARG:수치심없음 == 1
		C /= 2
	ENDIF
	IF TALENT:ARG:친구많음 == 1
		C *= 15
		C /= 10
	ENDIF
	IF TALENT:ARG:고고함 == 1
		C /= 2
	ENDIF
	IF CFLAG:ARG:115 == 6
		C *= 4
	ENDIF
	PRINTFORML 치정의 구슬+{C}
	JUEL:ARG:9 += C
;공포　平日の方が多い
	IF FLAG:8 == 1
		B = 50
	ELSE
		B = 20
	ENDIF
	IF ARG:2 == 1
		B *= 2
	ELSEIF ARG:2 == 2
		B *= 5
	ELSEIF ARG:2 == 3
		B *= 10
	ENDIF
;부정
;순종で基本が決まる
	IF ABL:ARG:0 < 2
		A = 500
	ELSEIF ABL:ARG:0 < 4
		A = 300
	ELSEIF ABL:ARG:0 < 6
		A = 100
	ELSEIF ABL:ARG:0 < 8
		A = 50
	ELSE
		A = 10
	ENDIF
	IF ARG:2 == 1
		A *= 12
		A /= 10
	ELSEIF ARG:2 == 2
		A *= 15
		A /= 10
	ELSEIF ARG:2 == 3
		A *= 2
	ENDIF
;노출증
	IF ABL:ARG:8 == 0
		A *= 2
	ELSEIF ABL:ARG:8 < 5 && ABL:ARG:8 > 2
		A *= 2
		A /= 3
	ELSEIF ABL:ARG:8 < 7
		A /= 2
	ELSE
		A /= 5
	ENDIF
ENDIF

IF TALENT:ARG:겁쟁이 == 1
	B *= 15
	B /= 10
ENDIF
IF TALENT:ARG:감정부족 == 1
	B /= 2
ENDIF
IF TALENT:ARG:친구많음 == 1
	B *= 15
	B /= 10
ENDIF
IF TALENT:ARG:고고함 == 1
	B /= 2
ENDIF
IF CFLAG:ARG:115 == 6
	IF TALENT:ARG:모판
		B /= 2
	ELSEIF TALENT:ARG:동화
		B *= 2
	ELSE
		B *= 4
	ENDIF
ENDIF
PRINTFORML 공포의 구슬+{B}
JUEL:ARG:11 += B

;부정
IF TALENT:ARG:반항적 == 1
	A *= 15
	A /= 10
ENDIF
IF TALENT:ARG:얌전함 == 1
	A *= 8
	A /= 10
ENDIF
IF TALENT:ARG:자제심 == 1
	A *= 12
	A /= 10
ENDIF
IF TALENT:ARG:무관심 == 1
	A *= 8
	A /= 10
ENDIF
IF TALENT:ARG:비관적 == 1
	A *= 12
	A /= 10
ENDIF
IF TALENT:ARG:낙관적 == 1
	A *= 8
	A /= 10
ENDIF
IF TALENT:ARG:정조관념 == 1
	A *= 12
	A /= 10
ENDIF
IF TALENT:ARG:정조무관심 == 1
	A *= 8
	A /= 10
ENDIF
IF TALENT:ARG:억압 == 1
	A *= 15
	A /= 10
ENDIF
IF TALENT:ARG:저항 == 1
	A *= 15
	A /= 10
ENDIF
IF TALENT:ARG:친구많음 == 1
	A *= 15
	A /= 10
ENDIF
IF TALENT:ARG:고고함 == 1
	A /= 2
ENDIF
IF CFLAG:ARG:115 == 6
	IF TALENT:ARG:모판
		A *= 1
	ELSEIF TALENT:ARG:동화
		A *= 2
	ELSE
		A *= 4
	ENDIF
ENDIF

PRINTFORML 부정의 구슬+{A}
JUEL:ARG:100 += A

SIF CFLAG:ARG:115 == 6
	CALL GET_EXP(ARG,"촉수경험",ABL:ARG:Ｃ감각 + ABL:ARG:Ｖ감각 + ABL:ARG:Ａ감각 + ABL:ARG:Ｂ감각,2)

@DISCOVERY_INSCHOOL
;学校で조교を行うと発見の可能性あり
;TFLAG:300 は욕정と고통의 구슬 입수량의 평균
IF CFLAG:TARGET:117 == 0
	IF TFLAG:300 < 10
		LOCAL = 5
	ELSEIF TFLAG:300 < 100
		LOCAL = 10
	ELSEIF TFLAG:300 < 200
		LOCAL = 15
	ELSEIF TFLAG:300 < 1000
		LOCAL = 20
	ELSEIF TFLAG:300 < 2000
		LOCAL = 30
	ELSEIF TFLAG:300 < 5000
		LOCAL = 40
	ELSEIF TFLAG:300 < 10000
		LOCAL = 50
	ELSE
		LOCAL = 70
	ENDIF

	IF LOCAL > RAND:100
		PRINTL ……人の気配を感じた。
		PRINTL 誰かに見られていたようだ……
		;とりあえず悪評ルートのみ作成　CFLAG:TARGET:117
		;ＮＴＲオフだと悪評が立つだけ
		IF RAND:100 < 30 || FLAG:150 == 0
			PRINTFORML %NAME:TARGET%に悪い評判が立った！
			CFLAG:TARGET:117 = 1
		;ＮＴＲオン
		ELSEIF RAND:100 < 70 && FLAG:150 == 1
			IF TALENT:TARGET:교제
				PRINTFORML ……
				;こっそり脅されている
				CFLAG:TARGET:117 = 4

				;ＮＴＲ陥落度
				CFLAG:TARGET:118 = -200

			ELSEIF TALENT:TARGET:협박 || TALENT:TARGET:강간
				PRINTFORML ……
				;あなたを脅してくる
				CFLAG:TARGET:117 = 2

			ENDIF
		ELSE
			IF RAND:2 == 0 && FLAG:150 == 1
				PRINTFORML ……
				;金を脅し取られてヒロインの稼ぎが悪くなる
				CFLAG:TARGET:117 = 3
			ELSE
				PRINTFORML ……
				;ダミーＮＴＲ
				CFLAG:TARGET:117 = 5
			ENDIF
		ENDIF
		;ＮＴＲ相손を決定
		IF CFLAG:TARGET:117 == 2 || CFLAG:TARGET:117 == 3 || CFLAG:TARGET:117 == 4
			;女子高系
			IF IS_GIRLSSCHOOL(GET_CHARA_GO_SCHOOL_INDEX(TARGET))
				IF RAND:3 == 0
					;교사（女子高、普通）
					CFLAG:TARGET:123 = 3
				ELSEIF RAND:2 == 0
					;교사（女子高、体育）
					CFLAG:TARGET:123 = 4
				ELSE
					;用務員（女子高）
					CFLAG:TARGET:123 = 11
				ENDIF
			;小学校(초등학생もいる、だけでは不可)
			ELSEIF GET_SCHOOL_LAYER(GET_CHARA_GO_SCHOOL_INDEX(TARGET)) == 1
				IF RAND:2 == 0
					;교사（小学校）
					CFLAG:TARGET:123 = 5
				ELSE
					;用務員（小学校）
					CFLAG:TARGET:123 = 12
				ENDIF
			ELSE
				IF RAND:4 == 0
					;교사（一般、普通）
					CFLAG:TARGET:123 = 1
				ELSEIF RAND:3 == 0
					;교사（一般、体育）
					CFLAG:TARGET:123 = 2
				ELSEIF RAND:2 == 0
					;用務員（一般）
					CFLAG:TARGET:123 = 10
				ELSE
					;男子生徒
					CFLAG:TARGET:123 = 15
				ENDIF
			ENDIF
		ENDIF

;		;とりあえず悪評ルートのみ作成　CFLAG:TARGET:117
;		IF RAND:100 < 30
;			PRINTFORML %NAME:TARGET%に悪い評判が立った！
;			CFLAG:TARGET:117 = 1
;		;ＮＴＲオン
;		ELSEIF RAND:100 < 70 && FLAG:150 == 1
;			IF TALENT:TARGET:교제
;				PRINTFORML ……
;				;こっそり脅されている
;				CFLAG:TARGET:117 = 4
;
;				;ＮＴＲ陥落度
;				CFLAG:TARGET:118 = -200
;
;			ELSEIF TALENT:TARGET:협박 || TALENT:TARGET:강간
;				PRINTFORML ……
;				;あなたを脅してくる
;				CFLAG:TARGET:117 = 2
;
;			ENDIF
;		ELSE
;			IF RAND:2 == 0
;				PRINTFORML ……
;				;金を脅し取られてヒロインの稼ぎが悪くなる
;				CFLAG:TARGET:117 = 3
;			ELSE
;				PRINTFORML ……
;				;ダミーＮＴＲ
;				CFLAG:TARGET:117 = 5
;			ENDIF
;		ENDIF

	ENDIF
ENDIF

@IN_SCHOOL_LESSON
;各種ローカル変数の宣言
#DIM TEMP
#DIM BRANCH_VALUE_1
#DIM BRANCH_VALUE_2
#DIMS ROOM_NAME
#DIMS ROOM_PROP_OBJ
#DIMS CALLING_NAME

CALL DISPLAY_COMMON , 18
SIF RESULT == 999
	RETURN -1
;교내플레이フラグON
FLAG:1502 = 1
LOCAL = RESULT
;判定用ローカル変数に値をセット
BRANCH_VALUE_1 = RAND:2
BRANCH_VALUE_2 = RAND:3

;교제時ＮＴＲでＮＴＲてない、협박ＮＴＲ、교제時ＮＴＲあなた敗北ルートのどれかでＮＴＲオン
IF ((CFLAG:LOCAL:117 == 4 && TALENT:LOCAL:ＮＴＲ > 0) || CFLAG:LOCAL:117 == 6 || CFLAG:LOCAL:117 == 8) && FLAG:150 == 1

	CALL NTR_IN_SCHOOL, LOCAL
ELSEIF TALENT:최면
	CALL HYPNO_IN_SCHOOL
ELSE

	SELECTCASE RAND:5
		CASE 0
		;校外プレイ
		;痴漢
			;교제時ＮＴＲでＮＴＲてない、ＮＴＲオン
			IF CFLAG:LOCAL:117 == 4 && TALENT:LOCAL:ＮＴＲ == 0 && FLAG:150 == 1
				PRINTFORML %CALLNAME:LOCAL%と街で待ち合わせをした。
				PRINTFORML 少し遅れて駅へとやってきた%CALLNAME:LOCAL%に気付かれないように同じ車両に乗り込み、
			ELSE
				PRINTFORML わざわざ%CALLNAME:LOCAL%と街で待ち合わせをした。　当然、%조사처리(CALLNAME:LOCAL,"은")% 전차に乗ることになる。
				PRINTFORML もちろん、狙いは痴漢のシチュエーションプレイである。
			ENDIF
			PRINTFORML 見つからない様に気を付けながら、%CALLNAME:LOCAL%の背後に立ち、大胆に가슴と太ももを撫でた。
			IF ABL:MASTER:기교 + ABL:LOCAL:Ｂ감각 < 4
				PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 、さりげなく周囲を伺っている。　感じている様子はあまりない。
				A = 0
			ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ｂ감각 < 8
				PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 、一瞬体を硬直させ、焦った様子で周囲の様子を伺っている。
				A = 1
			ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ｂ감각 < 12
				PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 、입から悲鳴のような声を上げそうになって、身を震わせながら声をかみ殺した。
				A = 2
			ELSE
				PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 、身を強張らせて、必死に声をかみ殺している。　周囲を眺める余裕もないようだ。
				A = 3
			ENDIF
			PRINTFORML 声を上げられない%CALLNAME:LOCAL%에게、%마스터는% 、主に가슴を中心に애무を繰り返す。
			PRINTFORML 目的地に到着するまで、%CALLNAME:LOCAL%の受難は止まらなかった......

;			TEMP = CFLAG:LOCAL:115
;			CFLAG:LOCAL:115 = 4
;			CALL IN_SCHOOL_JEWEL,LOCAL,1,A
			CALL IN_SCHOOL_LESSON_JEWEL,LOCAL,4,A
;			CFLAG:LOCAL:115 = TEMP
		CASEELSE
			;교내플레이
			SELECTCASE BRANCH_VALUE_2
				CASE 0
				;昼休みに屋上
					;교제時ＮＴＲでＮＴＲてない、ＮＴＲオン
					IF CFLAG:LOCAL:117 == 4 && TALENT:LOCAL:ＮＴＲ == 0 && FLAG:150 == 1
						PRINTFORM 昼休み中、食後に%CALLNAME:MASTER%から呼び出された%조사처리(CALLNAME:LOCAL,"은")% 、
						PRINTFORML 約束の時間に遅れたのを取り戻すため足早に階段を上っていた。
						PRINTFORML 急いできたために乱れた呼吸と衣服を屋上へのドアの前で整える%CALLNAME:LOCAL%。
						PRINTFORML そこへ隠れていた%마스터가%背後から近づき、%CALLNAME:LOCAL%の尻を撫でまわす。
					ELSE
						PRINTFORML 昼休み中、食後に%CALLNAME:MASTER%から呼び出された%조사처리(CALLNAME:LOCAL,"은")% 、人目を気にしながら階段を上って行った。
						PRINTFORML 屋上のドアを開くと、突然背後から嫌な感触が%CALLNAME:LOCAL%を襲う。
						PRINTFORM 少し遅れて隠れてついてきた%CALLNAME:MASTER%의 손が%CALLNAME:LOCAL%の尻を撫でまわすと、
					ENDIF

					PRINTFORM 飛び上がって驚いた%조사처리(CALLNAME:LOCAL,"은")%
					;まず교제しているかどうか判定
					IF TALENT:LOCAL:교제
						PRINTFORM 慌てて%CALLNAME:MASTER%의 손を抑えるが、
					ELSE
					;でなければ陥落素質で判定
						IF TALENT:LOCAL:복종||TALENT:LOCAL:예속
							PRINTFORM 弱弱しくやめるよう懇願するが、
						ELSEIF TALENT:LOCAL:음란||TALENT:LOCAL:창녀 || TALENT:LOCAL:동화 || TALENT:LOCAL:모판
							PRINTFORM 頬を染めながら부정を입にするが、
						;いずれも不成立ならば陥落していない状態と判定
						ELSE
							PRINTFORM 明確な거절の眼差しを向けてきたが、
						ENDIF
					ENDIF
					PRINTFORML %마스터는% 意にも介さず、耳元に입を近づけて歩を促した。

					PRINTFORML ちょうど屋上에는、誰もいないようだ。
					PRINTFORML %마스터는% %CALLNAME:LOCAL%にフェンスの一部を掴ませ、腰を突き出すように命じると、有無を言わせず가슴と尻を노출させた。
					IF TALENT:LOCAL:교제
						PRINTFORML あまりの事に%조사처리(CALLNAME:LOCAL,"은")% 顔を真っ赤にしながら怒るが、%마스터는% キスでその입を塞いだ。
					ELSE
						PRINTFORML あまりの事に%조사처리(CALLNAME:LOCAL,"은")% 顔を真っ赤にしながら拒否するが、そもそも意見を言える立場などではない。
					ENDIF
					IF TALENT:LOCAL:남자
						PRINTFORML 校庭にいる誰かが少し目を上げれば自分の痴態が丸見えになるという不安感に震える%CALLNAME:LOCAL%の肩を押し、期待に膨らみ始めた股間をフェンスに押しつける。
					ELSE
						PRINTFORML 校庭にいる誰かが少し目を上げれば自分の痴態が丸見えになるという不安感に震える%CALLNAME:LOCAL%の肩を押し、形の良い가슴をフェンスに押しつける。
						PRINTFORML 肌蹴た首筋に舌を這わせながら指でその秘裂を弄ると、%조사처리(CALLNAME:LOCAL,"은")% 声を押し殺して腰を捻った。
					ENDIF

					IF ABL:MASTER:기교 + ABL:LOCAL:Ｃ감각 < 4
						PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 、%CALLNAME:MASTER%의 指よりも、周囲の視線の有無の方が気になるようだ。
						A = 0
					ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ｃ감각 < 8
						PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 、%CALLNAME:MASTER%의 指が動くたび、押し殺した喘ぎを上げては周囲の目を気にして視線をさ迷わせていた。
						A = 1
					ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ｃ감각 < 12
						PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 、%마스터가%暫く指を動かし続けるうちに、周囲の目を気にする事さえできなくなっていくようだ。
						A = 2
					ELSE
						PRINTFORML %CALLNAME:MASTER%의 손練の指が蠢くたびに%CALLNAME:LOCAL%の腰が跳ね上がり、フェンスを掴む손がぶるぶると震えていた。
						A = 3
					ENDIF

;					TEMP = CFLAG:LOCAL:115
;					CFLAG:LOCAL:115 = 1
					CALL IN_SCHOOL_LESSON_JEWEL,LOCAL,1,A
;					CFLAG:LOCAL:115 = TEMP

				CASE 1
					PRINTFORMW 昼休み、校舎2階の隅にある、人がほとんど来ない빈교실に%CALLNAME:LOCAL%を呼び出した。
					;교제時ＮＴＲでＮＴＲてない、ＮＴＲオン
					IF CFLAG:LOCAL:117 == 4 && TALENT:LOCAL:ＮＴＲ == 0 && FLAG:150 == 1
						PRINTFORML 中で待っていると、休み時間もだいぶ過ぎた頃になって%CALLNAME:LOCAL%がやってきた。
						PRINTFORM 遅れてしまったことを謝る%CALLNAME:LOCAL%を
					ELSE
						PRINTFORM 中で待っていると、
						IF TALENT:LOCAL:교제
							PRINTFORMW すぐに%CALLNAME:LOCAL%がやってきた。
						ELSEIF IS_FALLEN(LOCAL)
							PRINTFORMW すぐに%CALLNAME:LOCAL%がやってきた。
						ELSE
							PRINTFORMW 周囲の目を気にした様子の%CALLNAME:LOCAL%がやってきた。
						ENDIF
						PRINTFORM 入ってきた%CALLNAME:LOCAL%を窓際に招き、
					ENDIF
					PRINTFORM 방과후까지 참을 수 없다、하고 끌어안으니
					IF TALENT:LOCAL:교제
						PRINTFORM %조사처리(CALLNAME:LOCAL,"은")%
						;반항적、꿋꿋함、프라이드높음、건방짐、츤데레、저항、남성혐오であなたが남자、쾌활、천연、보이쉬、쿨함、기가셈、고결
						IF TALENT:LOCAL:반항적 || TALENT:LOCAL:꿋꿋함 || TALENT:LOCAL:프라이드높음 || TALENT:LOCAL:건방짐 || TALENT:LOCAL:츤데레 || TALENT:LOCAL:저항 || (TALENT:LOCAL:남성혐오 && TALENT:MASTER:남자) || TALENT:LOCAL:쾌활 || TALENT:LOCAL:천연 || TALENT:LOCAL:보이쉬 || TALENT:LOCAL:쿨함 || TALENT:LOCAL:기가셈 || TALENT:LOCAL:고결
							PRINTL 조금 화가 난 모습으로 방과후까지 기다려라고 말해왔다.
						ELSE
							PRINTL 부끄러운 듯 방과후까지 기다려 달라고 말해왔다.
						ENDIF
						PRINTFORMW そこを食い下がり頼むと%조사처리(CALLNAME:LOCAL,"은")% 飽きれた表情をしつつ、時間がないから입でなら、と頷いてくれた。
						PRINTL
						PRINTFORML 깨우침悟を決めた%CALLNAME:LOCAL%が、%CALLNAME:MASTER%의 足元にひざをつき페니스를 しゃぶり始める。
						PRINTFORMW 昼休みというタイムリミットがあるせいか、自然と激しくなる奉仕を時間ギリギリまで楽しんだ……
					ELSEIF IS_FALLEN(LOCAL)
						PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 、時間がないから입で、と淫らに微笑み頷いた。
						PRINTL
						PRINTFORML 솔직に%CALLNAME:MASTER%의 足元にひざをつき페니스를 しゃぶり始める%CALLNAME:LOCAL%。
						PRINTFORMW 昼休みというタイムリミットがあるせいか、最初から激しく責めててくる%CALLNAME:LOCAL%に時間ギリギリまで搾り取られた……
					ELSE
						PRINTFORM %조사처리(CALLNAME:LOCAL,"은")%
						;반항적、꿋꿋함、프라이드높음、건방짐、츤데레、저항、남성혐오であなたが남자、쾌활、천연、보이쉬、쿨함、기가셈、고결
						IF TALENT:LOCAL:반항적 || TALENT:LOCAL:꿋꿋함 || TALENT:LOCAL:프라이드높음 || TALENT:LOCAL:건방짐 || TALENT:LOCAL:츤데레 || TALENT:LOCAL:저항 || (TALENT:LOCAL:남성혐오 && TALENT:MASTER:남자) || TALENT:LOCAL:쾌활 || TALENT:LOCAL:천연 || TALENT:LOCAL:보이쉬 || TALENT:LOCAL:쿨함 || TALENT:LOCAL:기가셈 || TALENT:LOCAL:고결
							PRINTL 怒りもあらわに断ってきた。
						ELSE
							PRINTL 目に涙を滲ませ断ってきた。
						ENDIF
						PRINTFORM 嫌がる%CALLNAME:LOCAL%에게、時間もないからさっさとしゃぶるように命令すると、
						PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 屈辱に震えながら小さく頷いた。
						PRINTL
						IF (TALENT:LOCAL:남친있음 || TALENT:LOCAL:좋아하는사람있음) && TALENT:LOCAL:밀회 != 1
							PRINTFORM 諦めた表情を浮かべた%CALLNAME:LOCAL%が足元にひざをつき페니스를 しゃぶり始めたが、
							PRINTFORMW 望まない奉仕のため力が入らず、혀놀림はたどたどしく、いまひとつ気持ちよくなかった。
							PRINTL
							PRINTFORM このままでは休憩時間が終わるまでに出せそうにない、と思いながら、ふと窓の下を見ると
							PRINTFORM %CALLNAME:LOCAL%が\@ TALENT:LOCAL:남친있음 ? 付き合っている # 想いを寄せている \@
							CALL PARTNER_NAME, LOCAL
							PRINTFORMW が歩いているのが目に入った。
							PRINTL
							PRINTFORM これは使えるかもしれない。そう考え%CALLNAME:LOCAL%に펠라치오を중지させると、
							CALL PARTNER_NAME, LOCAL
							PRINTFORMW に声をかけ、ここに呼ぶように命じた。
							PRINTL
							PRINTFORM %CALLNAME:MASTER%의 言葉を訝しがりながらも、%CALLNAME:LOCAL%が窓から顔を出し声をかける。
							PRINTFORM 突然の呼びかけに驚きつつも、\@ TALENT:LOCAL:남친있음 ? 恋人 # 知人 \@からの誘いに
							CALL PARTNER_NAME, LOCAL
							PRINTFORMW は、用事をすませたらすぐに向かう、と答え急ぎ足で歩き始めた。
							PRINTL
							PRINTFORML どんな用事かわからないが、アイツがこの教室にたどり着くには10分はかかるだろう。
							PRINTFORMW 制限時間を%CALLNAME:LOCAL%に告げ奉仕の再開を命じる。
							PRINTL
							PRINTFORM %CALLNAME:MASTER%의 意図に気付いた%CALLNAME:LOCAL%が、
							;반항적、꿋꿋함、프라이드높음、건방짐、츤데레、저항、남성혐오であなたが남자、쾌활、천연、보이쉬、쿨함、기가셈、고결
							IF TALENT:LOCAL:반항적 || TALENT:LOCAL:꿋꿋함 || TALENT:LOCAL:프라이드높음 || TALENT:LOCAL:건방짐 || TALENT:LOCAL:츤데레 || TALENT:LOCAL:저항 || (TALENT:LOCAL:남성혐오 && TALENT:MASTER:남자) || TALENT:LOCAL:쾌활 || TALENT:LOCAL:천연 || TALENT:LOCAL:보이쉬 || TALENT:LOCAL:쿨함 || TALENT:LOCAL:기가셈 || TALENT:LOCAL:고결
								PRINT 心底軽蔑した目でこちらを睨みつつ
							ELSE
								PRINT 軽蔑した目でこちらを見つつ
							ENDIF
							PRINTFORMW 再び膝をつき페니스를 咥えるため입を開く。
							PRINTFORM その視線へ意地悪な笑顔を返し、アイツがここに来るまでに終わらせないと大変だなと言ってやると、
							PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 必死の形相で페니스に吸い付き舐め始めた。
							PRINTL
;							PRINTFORML 教室の中に響くほどの音を立て、好きでもない男の페니스를 舐める%CALLNAME:LOCAL%。
;							PRINTFORMW 高まる사정感を押さえつつ、タイムリミットギリギリまで奉仕を楽しんだ……
							IF RAND:2 == 0
								PRINTFORML %CALLNAME:LOCAL%の唇が\@ TALENT:LOCAL:남친있음 ? 彼氏以外 # 好きでもない男 \@の페니스를 しごきあげる。
							ELSE
								PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% \@ TALENT:LOCAL:남친있음 ? 彼氏以外 # 好きでもない男 \@の페니스であるにも関わらず、早く사정させるため激しく舐めしゃぶる。
							ENDIF
							PRINTFORML その動きに合わせ室内に響く、\@ RAND:2 == 0 ? じゅぷじゅぷ # ぐぽっぐぽっ \@といった淫らな音が%CALLNAME:MASTER%의 劣情をあおり興奮が高まっていく。
							CALL PARTNER_NAME, LOCAL
							PRINTFORMW がやってくるギリギリまで楽しもう。近づく사정を下腹部に力をこめ引き延ばし、%CALLNAME:LOCAL%の입淫に身を任せた……
							PRINTL
							PRINTW
							PRINTFORML あれから何分経っただろうか？まだ数分は余裕があるはずだが……
							PRINTFORM 快楽に痺れる頭で考えながら、페니스를 しゃぶる水音の方を見ると、
							PRINTFORM 近づくタイムリミットへの焦りと
							CALL PARTNER_NAME, LOCAL
							PRINTFORMW にバレてしまう事への공포から、涙目になり奉仕する%CALLNAME:LOCAL%が目に入った。
							PRINTL
							PRINTFORML 視線に気づいた%CALLNAME:LOCAL%が涙の滲む目で懇願するように見つめてくる。
							;반항적、꿋꿋함、프라이드높음、건방짐、츤데레、저항、남성혐오であなたが남자、쾌활、천연、보이쉬、쿨함、기가셈、고결
							IF TALENT:LOCAL:반항적 || TALENT:LOCAL:꿋꿋함 || TALENT:LOCAL:프라이드높음 || TALENT:LOCAL:건방짐 || TALENT:LOCAL:츤데레 || TALENT:LOCAL:저항 || (TALENT:LOCAL:남성혐오 && TALENT:MASTER:남자) || TALENT:LOCAL:쾌활 || TALENT:LOCAL:천연 || TALENT:LOCAL:보이쉬 || TALENT:LOCAL:쿨함 || TALENT:LOCAL:기가셈 || TALENT:LOCAL:고결
								PRINTFORMW いつもなら奉仕するときも건방짐な態度をとることが多い%CALLNAME:LOCAL%の媚びるような姿。
							ELSE
								PRINTFORMW いつもの弱々しさが更に増幅された%CALLNAME:LOCAL%の姿。
							ENDIF
							PRINTFORMW それが%CALLNAME:MASTER%의 욕망を刺激し、一気に限界をむかえてしまう。
							PRINTL
							;あなたが새드か새드끼1이상
							IF (TALENT:MASTER:새드 || ABL:MASTER:새드끼 >= 1) && RAND:2 == 0
								PRINTFORML おさえられない快楽に、사정を告げる間もなく尿道を정액が駆け上っていく。
								PRINTFORMW その瞬間、頭に浮かんだサディスティックな思考。それを実行するため、ふるえる페니스를 %CALLNAME:LOCAL%の입から一気に引き抜いた。
								PRINTL
								PRINTFORML %CALLNAME:LOCAL%の唇から引き抜かれ自由になった페니스が白い점액を吐き出す。
								PRINTFORMW それは、페니스の脈動に合わせて不規則に飛び散り、%CALLNAME:LOCAL%の顔や髪、そして制服へと降りかかっていった……
								PRINTL
								PRINTFORM %CALLNAME:LOCAL%の顔を白く染め
								CALL HAIRCOLOR, LOCAL
								PRINTFORMW に絡み、服を汚した정액。
								PRINTFORML これらを落とすにはかなり時間がかかりそうだ。
								PRINTFORMW そのことを告げながら손早く身支度を整えると、自身を汚す정액を呆然とながめている%CALLNAME:LOCAL%を 남기고 방을 떠났다……
							ELSE
								PRINTFORML おさえられない快楽に、사정を告げる間もなく%CALLNAME:LOCAL%の입を犯したまま페니스が정액を吐き出す。
								PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 突然の사정を苦しそうな表情で受け止め、飲み込んでいった……
								PRINTL
								PRINTFORML すべてを吐き出し終えた페니스를 %CALLNAME:LOCAL%の입から引き抜くと、%조사처리(CALLNAME:LOCAL,"은")% どこか安堵した表情をみせた。
								PRINTFORM それを茶化しながら身支度を整えると、
								;반항적、꿋꿋함、프라이드높음、건방짐、츤데레、저항、남성혐오であなたが남자、쾌활、천연、보이쉬、쿨함、기가셈、고결
								IF TALENT:LOCAL:반항적 || TALENT:LOCAL:꿋꿋함 || TALENT:LOCAL:프라이드높음 || TALENT:LOCAL:건방짐 || TALENT:LOCAL:츤데레 || TALENT:LOCAL:저항 || (TALENT:LOCAL:남성혐오 && TALENT:MASTER:남자) || TALENT:LOCAL:쾌활 || TALENT:LOCAL:천연 || TALENT:LOCAL:보이쉬 || TALENT:LOCAL:쿨함 || TALENT:LOCAL:기가셈 || TALENT:LOCAL:고결
									PRINTFORMW こちらを睨みつける%CALLNAME:LOCAL%의 시선을 받으며 방을 떠났다……
								ELSE
									PRINTFORMW 涙をこぼす%CALLNAME:LOCAL%を残し방을 떠났다……
								ENDIF
;								PRINTFORML 페니스の脈動に合わせて입腔に叩き付けられる生臭い점액に%CALLNAME:LOCAL%の顔が苦悶に染まる。
;								PRINTFORMW そこ에는、苦しさだけではなく時間内に終わらせられたことへの安堵の表情が混ざっていた……
;								PRINTL
;								PRINTFORML %CALLNAME:LOCAL%の喉が動き정액を飲み込んだのを確認してから페니스를 %CALLNAME:LOCAL%の입から引き抜く。
;								PRINTFORML 페니스から해방されたばかりで、まだ입元を白濁で汚している%CALLNAME:LOCAL%をみていると、再び血が集まりそうになるが、もう時間は残っていないだろう。
;								PRINTFORML %CALLNAME:LOCAL%が입元を拭うために取り出したハンカチを奪い페니스를 清めると、손早く身支度を整え、%CALLNAME:LOCAL%を残し방을 떠났다……
							ENDIF
						ELSEIF TALENT:LOCAL:교사 || TALENT:LOCAL:학생회장
							PRINTFORM 諦めた表情を浮かべた%CALLNAME:LOCAL%が足元にひざをつき페니스를 しゃぶり始めたが、
							PRINTFORMW 望まない奉仕のため力が入らず、혀놀림はたどたどしく、いまひとつ気持ちよくなかった。
							PRINTL
							PRINTFORM このままでは休憩時間が終わるまでに出せそうにない、と思いながら、ふと窓の下を見ると
							PRINTFORMW %CALLNAME:LOCAL%\@ TALENT:LOCAL:학생회장 ? の下で학생회に出入りしている # が受け持っている \@生徒が歩いているのが目に入った。
							PRINTL
							PRINTFORM これは使えるかもしれない、そう考え、%CALLNAME:LOCAL%に펠라치오を중지させると、
							PRINTFORMW 生徒に声をかけ、ここに呼ぶように命じた。
							PRINTL
							PRINTFORML %CALLNAME:MASTER%의 言葉を訝しがりながらも、%CALLNAME:LOCAL%が窓から顔を出し声をかける。
							PRINTFORMW 突然の呼びかけに驚きつつも、\@ TALENT:LOCAL:학생회장 ? 학생회장 # 교사 \@からの言葉を솔직に頷き、用事をすませたらすぐに行きます、と答え急ぎ足で移動を始めた。
							PRINTL
							PRINTFORML どんな用事かわからないが、あの生徒が、この教室にたどり着くには10分はかかるだろう。
							PRINTFORMW 制限時間を%CALLNAME:LOCAL%に告げ、奉仕の再開を命じる。
							PRINTL
							PRINTFORM %CALLNAME:MASTER%의 意図に気付いた%CALLNAME:LOCAL%が
							;반항적、꿋꿋함、프라이드높음、건방짐、츤데레、저항、남성혐오であなたが남자、쾌활、천연、보이쉬、쿨함、기가셈、고결
							IF TALENT:LOCAL:반항적 || TALENT:LOCAL:꿋꿋함 || TALENT:LOCAL:프라이드높음 || TALENT:LOCAL:건방짐 || TALENT:LOCAL:츤데레 || TALENT:LOCAL:저항 || (TALENT:LOCAL:남성혐오 && TALENT:MASTER:남자) || TALENT:LOCAL:쾌활 || TALENT:LOCAL:천연 || TALENT:LOCAL:보이쉬 || TALENT:LOCAL:쿨함 || TALENT:LOCAL:기가셈 || TALENT:LOCAL:고결
								PRINT 心底軽蔑した目でこちらを睨みつつ
							ELSE
								PRINT 軽蔑した目でこちらを見つつ
							ENDIF
							PRINTFORMW 再び膝をつき페니스를 咥えるため입を開く。
							PRINTFORM その視線へ意地悪な笑顔を返し、アイツがここに来るまでに終わらせないと大変だなと言ってやると、
							PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 必死の形相で페니스に吸い付き舐め始めた。
							PRINTL
							PRINTFORM 教室の中に響くほどの音を立て、好きでもない男の페니스를 舐める%CALLNAME:LOCAL%。
							PRINTFORMW 高まる사정感を押さえつつ、タイムリミットギリギリまで奉仕を楽しんだ……
						ELSEIF TALENT:LOCAL:체육부 || TALENT:LOCAL:문화부 || TALENT:LOCAL:격투기부
							PRINTFORM 諦めた表情を浮かべた%CALLNAME:LOCAL%が足元にひざをつき페니스를 しゃぶり始めたが、
							PRINTFORMW 望まない奉仕のため力が入らず、혀놀림はたどたどしく、いまひとつ気持ちよくなかった。
							PRINTL
							PRINTFORM このままでは休憩時間が終わるまでに出せそうにない、と思いながら、ふと窓の下を見ると
							PRINTFORMW %CALLNAME:LOCAL%と同じ부활동の\@ TALENT:LOCAL:문화부 ? 部員 # チームメイト \@が歩いているのが目に入った。
							PRINTL
							PRINTFORM これは使えるかもしれない、そう考え、%CALLNAME:LOCAL%に펠라치오を중지させると、
							PRINTFORMW \@ TALENT:LOCAL:문화부 ? 部員 # チームメイト \@に声をかけ、ここに呼ぶように命じた。
							PRINTL
							PRINTFORML %CALLNAME:MASTER%의 言葉を訝しがりながらも、%CALLNAME:LOCAL%が窓から顔を出し声をかける。
							PRINTFORMW 突然の呼びかけに驚きつつも、\@ TALENT:LOCAL:문화부 ? 同じ部員 # チームメイト \@からの言葉を솔직に頷き、用事がすんだらすぐ行く、と答え急ぎ足で移動を始めた。
							PRINTL
							PRINTFORML どんな用事かわからないが、あの\@ TALENT:LOCAL:문화부 ? 部員 # チームメイト \@が、この教室にたどり着くには10分はかかるだろう。
							PRINTFORMW 制限時間を%CALLNAME:LOCAL%に告げ、奉仕の再開を命じる。
							PRINTL
							PRINTFORM %CALLNAME:MASTER%의 意図に気付いた%CALLNAME:LOCAL%が
							;반항적、꿋꿋함、프라이드높음、건방짐、츤데레、저항、남성혐오であなたが남자、쾌활、천연、보이쉬、쿨함、기가셈、고결
							IF TALENT:LOCAL:반항적 || TALENT:LOCAL:꿋꿋함 || TALENT:LOCAL:프라이드높음 || TALENT:LOCAL:건방짐 || TALENT:LOCAL:츤데레 || TALENT:LOCAL:저항 || (TALENT:LOCAL:남성혐오 && TALENT:MASTER:남자) || TALENT:LOCAL:쾌활 || TALENT:LOCAL:천연 || TALENT:LOCAL:보이쉬 || TALENT:LOCAL:쿨함 || TALENT:LOCAL:기가셈 || TALENT:LOCAL:고결
								PRINT 心底軽蔑した目でこちらを睨みつつ
							ELSE
								PRINT 軽蔑した目でこちらを見つつ
							ENDIF
							PRINTFORMW 再び膝をつき페니스를 咥えるため입を開く。
							PRINTFORM その視線へ意地悪な笑顔を返し、アイツがここに来るまでに終わらせないと大変だなと言ってやると、
							PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 必死の形相で페니스に吸い付き舐め始めた。
							PRINTL
							PRINTFORML 教室の中に響くほどの音を立て、好きでもない男の페니스를 舐める%CALLNAME:LOCAL%。
							PRINTFORMW 高まる사정感を押さえつつ、タイムリミットギリギリまで奉仕を楽しんだ……
						ELSEIF TALENT:LOCAL:불량 || TALENT:LOCAL:친구많음
							PRINTFORM 諦めた表情を浮かべた%CALLNAME:LOCAL%が足元にひざをつき페니스를 しゃぶり始めたが、
							PRINTFORMW 望まない奉仕のため力が入らず、혀놀림はたどたどしく、いまひとつ気持ちよくなかった。
							PRINTL
							PRINTFORM このままでは休憩時間が終わるまでに出せそうにない、と思いながら、ふと窓の下を見ると
							PRINTFORMW %CALLNAME:LOCAL%とよく遊んでいる友人達が歩いているのが目に入った。
							PRINTL
							PRINTFORM これは使えるかもしれない、そう考え、%CALLNAME:LOCAL%に펠라치오を중지させると、
							PRINTFORMW 友人たちに声をかけ、ここに呼ぶように命じた。
							PRINTL
							PRINTFORML %CALLNAME:MASTER%의 言葉を訝しがりながらも、%CALLNAME:LOCAL%が窓から顔を出し声をかける。
							PRINTFORMW 突然の呼びかけに驚きつつも、友達からの言葉を솔직に頷き、用事がすんだらすぐ行く、と答え急ぎ足で移動を始めた。
							PRINTL
							PRINTFORML どんな用事かわからないが、あの友人達がこの教室にたどり着くには10分はかかるだろう。
							PRINTFORMW 制限時間を%CALLNAME:LOCAL%に告げ、奉仕の再開を命じる。
							PRINTL
							PRINTFORM %CALLNAME:MASTER%의 意図に気付いた%CALLNAME:LOCAL%が
							;반항적、꿋꿋함、프라이드높음、건방짐、츤데레、저항、남성혐오であなたが남자、쾌활、천연、보이쉬、쿨함、기가셈、고결
							IF TALENT:LOCAL:반항적 || TALENT:LOCAL:꿋꿋함 || TALENT:LOCAL:프라이드높음 || TALENT:LOCAL:건방짐 || TALENT:LOCAL:츤데레 || TALENT:LOCAL:저항 || (TALENT:LOCAL:남성혐오 && TALENT:MASTER:남자) || TALENT:LOCAL:쾌활 || TALENT:LOCAL:천연 || TALENT:LOCAL:보이쉬 || TALENT:LOCAL:쿨함 || TALENT:LOCAL:기가셈 || TALENT:LOCAL:고결
								PRINT 心底軽蔑した目でこちらを睨みつつ
							ELSE
								PRINT 軽蔑した目でこちらを見つつ
							ENDIF
							PRINTFORMW 再び膝をつき페니스를 咥えるため입を開く。
							PRINTFORM その視線へ意地悪な笑顔を返し、アイツらがここに来るまでに終わらせないと大変だなと言ってやると、
							PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 必死の形相で페니스に吸い付き舐め始めた。
							PRINTL
							PRINTFORML 教室の中に響くほどの音を立て、好きでもない男の페니스를 舐める%CALLNAME:LOCAL%。
							PRINTFORMW 高まる사정感を押さえつつ、タイムリミットギリギリまで奉仕を楽しんだ……
						ELSE
							PRINTFORML %CALLNAME:LOCAL%が嫌そうな表情を浮かべたまま、足元にひざをつき페니스를 しゃぶり始める。
							PRINTFORMW 休み時間が残り少ないことで煽り、%CALLNAME:LOCAL%に熱心な奉仕を求め、時間ギリギリまで楽しんだ……
						ENDIF

					ENDIF
					EXP:LOCAL:펠라경험 += 1
					EXP:LOCAL:정액경험 += 1
					SIF TALENT:LOCAL:남자 && TALENT:MASTER:남자
						EXP:LOCAL:게이경험 += 1

					PRINTL 펠라경험+1
					PRINTL 정액경험+1
					SIF TALENT:LOCAL:남자 && TALENT:MASTER:남자
						PRINTL 게이경험+1
					PRINTL
					IF ABL:LOCAL:기교 + ABL:LOCAL:봉사정신 < 4
						A = 0
					ELSEIF ABL:LOCAL:기교 + ABL:LOCAL:봉사정신 < 8
						A = 1
					ELSEIF ABL:LOCAL:기교 + ABL:LOCAL:봉사정신 < 12
						A = 2
					ELSE
						A = 3
					ENDIF

;					TEMP = CFLAG:LOCAL:115
;					CFLAG:LOCAL:115 = 5
					CALL IN_SCHOOL_LESSON_JEWEL,LOCAL,5,A
;					CFLAG:LOCAL:115 = TEMP

					EXP:MASTER:사정경험 += 1

				CASEELSE
				;방과후에 부실이니 체육창고니 학생회실이니 미사용교실 따위를 사용해서 플레이.
					;所属で判定を行い、ローカル文字列へ代入をやってみる。現在は大して意味はないが多数の分岐が重なれば有用のはず
					SELECTCASE RAND:2
						CASE 0
							IF (TALENT:LOCAL:체육부 || TALENT:LOCAL:격투기부)
								SELECTCASE RAND:3
									CASE 0
										ROOM_NAME = 샤워ルーム
										SELECTCASE RAND:3
											CASE 0
												ROOM_PROP_OBJ = 休憩用の長椅子
											CASE 1
												ROOM_PROP_OBJ = タイル張りの壁
											CASEELSE
												ROOM_PROP_OBJ = 個室샤워内の壁
										ENDSELECT
									CASE 1
										ROOM_NAME = ロッカールーム
										SELECTCASE RAND:3
											CASE 0
												ROOM_PROP_OBJ = 曇りガラスの嵌った窓枠
											CASE 1
												ROOM_PROP_OBJ = 鏡のついた洗面台の縁
											CASEELSE
												ROOM_PROP_OBJ = 軋むロッカーの扉
										ENDSELECT
									CASEELSE
										ROOM_NAME = 用具室
										SELECTCASE RAND:6
											CASE 0
												ROOM_PROP_OBJ = 古ぼけた机
											CASE 1
												ROOM_PROP_OBJ = 閉めた扉
											CASE 2
												ROOM_PROP_OBJ = 壁際の棚
											CASE 3
												ROOM_PROP_OBJ = ボールラック
											CASE 4
												ROOM_PROP_OBJ = 跳び箱
											CASEELSE
												ROOM_PROP_OBJ = 巻かれたマット
										ENDSELECT
								ENDSELECT
							ELSEIF TALENT:LOCAL:문화부
								SELECTCASE RAND:5
									CASE 0
										ROOM_NAME = 음악실
										SELECTCASE RAND:2
											CASE 0
												ROOM_PROP_OBJ = ピアノ
											CASEELSE
												ROOM_PROP_OBJ = 五線譜の書かれた黒板
										ENDSELECT
									CASE 1
										ROOM_NAME = 現像室
										SELECTCASE RAND:2
											CASE 0
												ROOM_PROP_OBJ = 現像用機材の乗った机
											CASEELSE
												ROOM_PROP_OBJ = 黒いカーテン越しに壁
										ENDSELECT
									CASE 2
										ROOM_NAME = 放送室
										SELECTCASE RAND:3
											CASE 0
												ROOM_PROP_OBJ = 放送機材
											CASE 1
												ROOM_PROP_OBJ = マイクの前
											CASEELSE
												ROOM_PROP_OBJ = 카메라の前に置かれた机
										ENDSELECT
									CASE 3
										ROOM_NAME = 도서실
										SELECTCASE RAND:5
											CASE 0
												ROOM_PROP_OBJ = 本棚
											CASE 1
												ROOM_PROP_OBJ = 閲覧用の机
											CASE 2
												ROOM_PROP_OBJ = 移動式の踏み台
											CASE 3
												ROOM_PROP_OBJ = 貸出カードの保管されている箪笥
											CASEELSE
												ROOM_PROP_OBJ = 貸出カウンター
										ENDSELECT
									CASEELSE
										ROOM_NAME = 部室
										SELECTCASE RAND:2
											CASE 0
												ROOM_PROP_OBJ = 着替え用のベンチ
											CASEELSE
												ROOM_PROP_OBJ = 部屋の隅に積まれた段ボール箱
										ENDSELECT
								ENDSELECT
							ELSEIF TALENT:LOCAL:위원회
								ROOM_NAME = 위원회室
								SELECTCASE RAND:2
									CASE 0
										ROOM_PROP_OBJ = 資料の入ったロッカー
									CASEELSE
										ROOM_PROP_OBJ = 長机
								ENDSELECT
							ELSE
								SELECTCASE RAND:9
									CASE 0
										ROOM_NAME = トイレ
										SELECTCASE RAND:3
											CASE 0
												ROOM_PROP_OBJ = 個室内の壁
											CASE 1
												ROOM_PROP_OBJ = 洋式便器の貯水タンク
											CASEELSE
												ROOM_PROP_OBJ = 洗面台
										ENDSELECT
									CASE 1
										ROOM_NAME = 빈교실
										SELECTCASE RAND:5
											CASE 0
												ROOM_PROP_OBJ = 손近な椅子
											CASE 1
												ROOM_PROP_OBJ = 黒板
											CASE 2
												ROOM_PROP_OBJ = 教卓
											CASE 3
												ROOM_PROP_OBJ = 掲示板
											CASEELSE
												ROOM_PROP_OBJ = ガラス窓
										ENDSELECT
									CASE 2
										ROOM_NAME = 屋上
										SELECTCASE RAND:2
											CASE 0
												ROOM_PROP_OBJ = 屋上の周りを囲むフェンス
											CASEELSE
												ROOM_PROP_OBJ = 屋上に出る扉の近くの壁
										ENDSELECT
									CASE 3
										ROOM_NAME = 宿直室
										SELECTCASE RAND:3
											CASE 0
												ROOM_PROP_OBJ = 敷いておいた布団
											CASE 1
												ROOM_PROP_OBJ = 畳
											CASEELSE
												ROOM_PROP_OBJ = ちゃぶ台
										ENDSELECT
									CASE 4
										ROOM_NAME = 非常階段
										ROOM_PROP_OBJ = 踊り場の壁
									CASE 5
										ROOM_NAME = 駐輪場
										ROOM_PROP_OBJ = ブロック
									CASE 6
										ROOM_NAME = 機械室
										ROOM_PROP_OBJ = 손頃な機械
									CASE 7
										ROOM_NAME = 玄関
										ROOM_PROP_OBJ = 下駄箱
									CASEELSE
										ROOM_NAME = 中庭
										SELECTCASE RAND:3
											CASE 0
												ROOM_PROP_OBJ = 屋内からは死角になっている校舎の壁
											CASE 1
												ROOM_PROP_OBJ = 物置の側面
											CASEELSE
												ROOM_PROP_OBJ = 大きな広葉樹の幹
										ENDSELECT
								ENDSELECT
							ENDIF
						CASEELSE
							SELECTCASE RAND:9
								CASE 0
									ROOM_NAME = トイレ
									SELECTCASE RAND:3
										CASE 0
											ROOM_PROP_OBJ = 個室内の壁
										CASE 1
											ROOM_PROP_OBJ = 洋式便器の貯水タンク
										CASEELSE
											ROOM_PROP_OBJ = 洗面台
									ENDSELECT
								CASE 1
									ROOM_NAME = 빈교실
									SELECTCASE RAND:5
										CASE 0
											ROOM_PROP_OBJ = 손近な椅子
										CASE 1
											ROOM_PROP_OBJ = 黒板
										CASE 2
											ROOM_PROP_OBJ = 教卓
										CASE 3
											ROOM_PROP_OBJ = 掲示板
										CASEELSE
											ROOM_PROP_OBJ = ガラス窓
									ENDSELECT
								CASE 2
									ROOM_NAME = 屋上
									SELECTCASE RAND:2
										CASE 0
											ROOM_PROP_OBJ = 屋上の周りを囲むフェンス
										CASEELSE
											ROOM_PROP_OBJ = 屋上に出る扉の近くの壁
									ENDSELECT
								CASE 3
									ROOM_NAME = 宿直室
									SELECTCASE RAND:3
										CASE 0
											ROOM_PROP_OBJ = 敷いておいた布団
										CASE 1
											ROOM_PROP_OBJ = 畳
										CASEELSE
											ROOM_PROP_OBJ = ちゃぶ台
									ENDSELECT
								CASE 4
									ROOM_NAME = 非常階段
									ROOM_PROP_OBJ = 踊り場の壁
								CASE 5
									ROOM_NAME = 駐輪場
									ROOM_PROP_OBJ = ブロック
								CASE 6
									ROOM_NAME = 機械室
									ROOM_PROP_OBJ = 손頃な機械
								CASE 7
									ROOM_NAME = 玄関
									ROOM_PROP_OBJ = 下駄箱
								CASEELSE
									ROOM_NAME = 中庭
									SELECTCASE RAND:3
										CASE 0
											ROOM_PROP_OBJ = 屋内からは死角になっている校舎の壁
										CASE 1
											ROOM_PROP_OBJ = 物置の側面
										CASEELSE
											ROOM_PROP_OBJ = 大きな広葉樹の幹
									ENDSELECT
							ENDSELECT
					ENDSELECT

					PRINTFORML 방과후、誰もいない%ROOM_NAME%に%CALLNAME:LOCAL%を呼び出した。
					;교제時ＮＴＲでＮＴＲてない、ＮＴＲオン
					IF CFLAG:LOCAL:117 == 4 && TALENT:LOCAL:ＮＴＲ == 0 && FLAG:150 == 1
						PRINTFORML 約束の時間に少し遅れてやってきた%CALLNAME:LOCAL%が扉を開けた瞬間、その손を掴んで中へ引きずり込む。
					ELSE
						PRINTFORML 不安そうな顔をした%CALLNAME:LOCAL%が扉を開けた瞬間、その손を掴んで中へ引きずり込む。
					ENDIF
					PRINTFORML 突然の事態に怯えて暴れる%CALLNAME:LOCAL%を背後から抱きすくめ、耳元でその名前を呼びかけた。
					;교제と陥落状態で反応を分岐
					IF TALENT:LOCAL:교제
						PRINTFORM 驚いて%CALLNAME:MASTER%의 顔を見る
					ELSEIF TALENT:LOCAL:복종||TALENT:LOCAL:예속
						PRINTFORM 相손が%CALLNAME:MASTER%だとわかり、力を抜いて%CALLNAME:MASTER%에게 しなだれかかった
					ELSEIF TALENT:LOCAL:음란||TALENT:LOCAL:창녀 || TALENT:LOCAL:동화 || TALENT:LOCAL:모판
						PRINTFORM 驚いた様子をして見せながらも、隠し切れない期待に瞳を潤ませている
					;교제も陥落もしていなければ露骨に嫌がる反応
					ELSE
						PRINTFORM 嫌悪を顕にして%CALLNAME:MASTER%의 손を振り払おうとする
					ENDIF

					PRINTFORML %CALLNAME:LOCAL%の顎を掴むようにして唇に指を突っ込み、

					;学校なんでオプションで設定した服ではなく制服とか체육복ということで。
					;임신してたら運動できないんでその辺も考慮
					;所属で服装の表現を分岐。부루마廃止とかちくしょう。

					;교제時ＮＴＲでＮＴＲてない、ＮＴＲオン
					IF CFLAG:LOCAL:117 == 4 && TALENT:LOCAL:ＮＴＲ == 0 && FLAG:150 == 1
						IF (TALENT:LOCAL:체육부 || TALENT:LOCAL:격투기부) && !(TALENT:LOCAL:임신 || TALENT:LOCAL:교사)
							PRINTFORML 汗で湿った체육복をまくり上げ、ボトムを期待に淫らなシミをつくる下着ごとずり下げた。
						ELSEIF TALENT:LOCAL:교사
							PRINTFORML 教壇に立っているときよりも少し乱れている服を一枚一枚脱がしていった。
						; よく考えると……需要あるんだろうか？
						ELSEIF TALENT:LOCAL:남자
							PRINTFORML 少し乱れ、汗で湿った制服の바지のベルトを緩め、下着ごとずり下げた。
						ELSE
							PRINTFORML 少し乱れ、汗で湿った制服の裾を捲り上げ、스커트のホックを外して下着ごとずり下げた。
						ENDIF
					ELSE
						IF (TALENT:LOCAL:체육부 || TALENT:LOCAL:격투기부) && !(TALENT:LOCAL:임신 || TALENT:LOCAL:교사)
							PRINTFORML 汗で湿った체육복をまくり上げ、ボトムを蒸れた下着ごとずり下げた。
						ELSEIF TALENT:LOCAL:교사
							PRINTFORML 교사としての威厳もはがすように、その服を一枚一枚脱がしていった。
						ELSEIF TALENT:LOCAL:남자
							PRINTFORML 清潔な制服の바지のベルトを緩め、下着ごとずり下げた。
						ELSE
							PRINTFORML 清潔な制服の裾を捲り上げ、스커트のホックを外して下着ごとずり下げた。
						ENDIF
					ENDIF

					PRINTFORML
					PRINTFORM その\@TALENT:LOCAL:작은체형 || TALENT:LOCAL:초등학생 ? 小さな # 細い\@身体を押して%ROOM_PROP_OBJ%に손をつかせ、
					PRINTFORM 後ろから
					;임신중이라면 문장 추가. 임신 일수는 예정일(CFLAG:110)과 비교하는 분기 조건으로 한다. 기본은 10개월 266턴이라 그걸 채용
					;日数計算がよくわからんので一ヶ月26日換算しておく
					IF TALENT:LOCAL:임신
						;작은체형なら追加
						IF TALENT:LOCAL:작은체형
							PRINT 小さな身体とは裏腹に
						ENDIF
						;予定日比較で段階化
						SELECTCASE CFLAG:LOCAL:110 - DAY
							;１ヶ月前
							CASE IS <= 26
								PRINTFORM 完全に妊婦の形となった腹と乳房の重さを確かめながら、
							;２ヶ月前
							CASE IS <= 52
								PRINTFORM もう「太っている」という言い訳も通用しない程になった腹を確かめながら、
							;３ヶ月前
							CASE IS <= 78
								PRINTFORM 隠せなくなってきた下腹部や張りの出てきた乳房に손を這わせながら、
							;４ヶ月前（임신６ヶ月）より前の時期ははっきりしない
							CASE IS < 128
								PRINTFORM 、確実に膨らみ始めた下腹部を撫でながら、
							CASEELSE
								;아무것도안한다
						ENDSELECT
					ENDIF

					;처녀・재생처녀の有無で挿入行動するかどうか内容分岐
					IF TALENT:LOCAL:처녀 || TALENT:LOCAL:재생처녀
					;入れない
						IF !RAND:3 && TALENT:LOCAL:남자 == 0
							PRINTFORML 改めてじっくりと가슴や股間を刺激した。
							PRINTFORM いつ挿入されるのかと身体を固くする%CALLNAME:LOCAL%の反応を楽しみながら、
							IF TALENT:LOCAL:폭유
								PRINTFORM
							ELSEIF  TALENT:LOCAL:거유
								PRINTFORM 풍만한 가슴を揉み
							ELSEIF  TALENT:LOCAL:빈유
								PRINTFORM 控えめな가슴を揉み
							ELSEIF  TALENT:LOCAL:절벽
								PRINTFORM 가슴を撫で
							ELSE
								PRINTFORM 가슴を揉み
							ENDIF
							PRINTFORM 尻に손を這わせてやると、
							;교제時ＮＴＲでＮＴＲてない
							IF CFLAG:LOCAL:117 == 4 && TALENT:LOCAL:ＮＴＲ == 0
								PRINTFORML %마스터가%弄り回すまでもなく湿り気を帯びていた男を知らない秘裂から蜜が滴り出てきた。
							ELSE
								PRINTFORM %CALLNAME:LOCAL%の男を知らない秘裂
								;濡れ具合表現をＣ감각Ｂ감각で分岐
								IF (ABL:LOCAL:Ｃ감각 + ABL:LOCAL:Ｂ감각 >= 6)
									PRINTFORML から蜜が滴り始めた。
								ELSE
									PRINTFORML がねっとりとした湿り気を帯びてきた。
								ENDIF
							ENDIF
							PRINTFORML
							PRINTFORML 充分に濡れてきたのを確認し服の下で窮屈な思いをしていた페니스를 取りだす。
							PRINTFORM その動きに反応し
							;陥落状態による分岐
							IF TALENT:LOCAL:교제
								PRINTFORM 緊張した様子をみせる%CALLNAME:LOCAL%に優しく입付け、今日は挿入しないからとささやき、
							ELSEIF TALENT:LOCAL:음란||TALENT:LOCAL:창녀 || TALENT:LOCAL:동화 || TALENT:LOCAL:모판
								PRINTFORM 尻をゆっくりと振り動かし誘う仕草をみせる%CALLNAME:LOCAL%에게、今日の所は挿入はおあずけだと告げ、
							ELSEIF TALENT:LOCAL:복종||TALENT:LOCAL:예속
								PRINTFORM %마스터가%入れやすいよう、尻を上げている%CALLNAME:LOCAL%에게、今日は挿入するつもりはないと告げ、
							ELSE
								;반항적、꿋꿋함、프라이드높음、건방짐、츤데레、저항、남성혐오であなたが남자、쾌활、천연、보이쉬、쿨함、기가셈、고결
								IF TALENT:LOCAL:반항적 || TALENT:LOCAL:꿋꿋함 || TALENT:LOCAL:프라이드높음 || TALENT:LOCAL:건방짐 || TALENT:LOCAL:츤데레 || TALENT:LOCAL:저항 || (TALENT:LOCAL:남성혐오 && TALENT:MASTER:남자) || TALENT:LOCAL:쾌활 || TALENT:LOCAL:천연 || TALENT:LOCAL:보이쉬 || TALENT:LOCAL:쿨함 || TALENT:LOCAL:기가셈 || TALENT:LOCAL:고결
									PRINTFORM 、こちらを睨みつける%CALLNAME:LOCAL%에게、今日は挿入するつもりはないから安心しろと告げ、
								ELSE
									PRINTFORM 涙をこぼす%CALLNAME:LOCAL%에게、今日は挿入するつもりはないから安心しろと告げ、
								ENDIF
							ENDIF
							PRINTFORMW 後ろから覆いかぶさるようにして、太ももと秘裂が作り出す隙間にゆっくりと페니스를 挿入した。
							PRINTFORML
							PRINTFORM 腰を動かし페니스で클리토리스を擦ってやると%조사처리(CALLNAME:LOCAL,"은")%
							;Ｃ감각で分岐
							IF ABL:LOCAL:Ｃ감각 >= 3
								PRINTFORML 押えきれない快感に小さな声をあげた。
								PRINTFORML %CALLNAME:LOCAL%の喘ぎ声に興奮を高めた%마스터는% 、その\@ TALENT:LOCAL:작은체형 || TALENT:LOCAL:초등학생 ? 小さな #  \@腰を掴み何度も페니스를 抽挿する。
							ELSE
								PRINTFORML びくりと体を震わせた。
								PRINTFORML %CALLNAME:LOCAL%の反応に興奮を高めた%마스터는% 、その\@ TALENT:LOCAL:작은체형 || TALENT:LOCAL:초등학생 ? 小さな #  \@腰を掴み何度も페니스를 抽挿する。
							ENDIF
							;NTL이 붙어 있으면 남자친구、아니면 친구로부터 전화 플레이 발동. 조건은 랜덤으로 한다. NTL 좋지!
							IF RAND:4 >= 3
								PRINTFORML
								PRINTFORML やがて、床に落ちた%CALLNAME:LOCAL%の服の中から着信音が流れ出した。
								PRINTFORM 拾い上げて画面を確認すると、아무래도
								IF TALENT:LOCAL:ＮＴＬ
									CALL PARTNER_NAME, LOCAL
									PRINTFORML からのようだ。
								ELSE
									PRINTFORML 友人からのようだ。
								ENDIF
								PRINTFORML 着信音で相손が誰だかを、画面を見ずに理解したのだろう。

								;노출증で分岐してみる。イメージが不適切なら変更
								IF TALENT:LOCAL:ＮＴＬ
									CALL PARTNER_NAME, LOCAL
								ELSE
									PRINTFORM 友人
								ENDIF

								IF ABL:LOCAL:노출증 >= 5
									PRINTFORM 痴態を悟られる緊張感と期待感の狭間で息を荒げる%CALLNAME:LOCAL%の
								ELSE
									PRINTFORM に行為がバレる공포\@ TALENT:LOCAL:ＮＴＬ ? と罪悪感 # \@に、泣きそうな顔で首を振る%CALLNAME:LOCAL%の
								ENDIF

								PRINTFORM 耳元に携帯電話を押し当て、着信ボタンを押すと、

								PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 、声を上ずらせながら必死に話し始めた。
								PRINTFORML

								PRINTFORM ……%CALLNAME:LOCAL%と
								IF TALENT:LOCAL:ＮＴＬ
									CALL PARTNER_NAME, LOCAL
								ELSE
									PRINTFORM 友人
								ENDIF
								PRINTFORML との회화は続いている。%조사처리(CALLNAME:LOCAL,"은")% 切り上げるタイミングを計っているようだ。
								PRINTFORML ふと思いつき、%CALLNAME:LOCAL%が声を出そうとするタイミングに合わせて何度も페니스で秘裂を擦ってやる。
								;Ｃ감각で分岐
								IF ABL:LOCAL:Ｃ감각 <= 3
									PRINTFORML 甘い声を漏らしながらも、%조사처리(CALLNAME:LOCAL,"은")% 強引に회화を切り上げてしまった。
									PRINTFORML ……こんなところだろう。
									PRINTFORM %마스터는% 通話ボタンを押した携帯を落とすと、
									PRINTFORML 男を知らない秘裂を擦り上げる快感に身を任せ、たっぷりと정액を吐き出した。
								ELSE
									PRINTFORM どんどん余裕のなくなっていった%조사처리(CALLNAME:LOCAL,"은")% 、ついに
									IF TALENT:LOCAL:ＮＴＬ
										CALL PARTNER_NAME, LOCAL
									ELSE
										PRINTFORM 友人
									ENDIF
									PRINTFORML と通話しながら절정の声を上げてしまった。
									PRINTFORML
									PRINTFORM %CALLNAME:LOCAL%の様子をいぶかしがる
									IF TALENT:LOCAL:ＮＴＬ
										CALL PARTNER_NAME, LOCAL
									ELSE
										PRINTFORM 友人
									ENDIF
									PRINTFORML の声が携帯ごしにこちらにも聞こえてくる。
									PRINTFORML その様子を楽しみながら、男を知らない秘裂を激しく擦り上げると、まだ続く절정に회화もままならない%CALLNAME:LOCAL%の太ももにたっぷりと정액を吐き出した。
								ENDIF
								PRINTFORML
								PRINTFORM %CALLNAME:LOCAL%が明日、学校で
								IF TALENT:LOCAL:ＮＴＬ
									CALL PARTNER_NAME, LOCAL
								ELSE
									PRINTFORM 友人
								ENDIF
								PRINTFORML にどんな言い訳をするのか楽しみだ……
							ELSE
								PRINTFORML 後ろから%CALLNAME:MASTER%에게 秘裂を擦り上げられるたび、%조사처리(CALLNAME:LOCAL,"은")% 背中を震わせて吐息を漏らす。
								PRINTFORM 声を漏らさないよう必死に입元を抑える%CALLNAME:LOCAL%の反応を楽しみながら、抽挿を速めていくと、
								;Ｃ감각で分岐
								IF ABL:LOCAL:Ｃ감각 <= 3
									PRINTFORML 甘い声を漏らし始めた%CALLNAME:LOCAL%の太ももにたっぷりと정액を吐き出した。
								ELSE
									PRINTFORML %CALLNAME:LOCAL%の절정に合わせて、太ももにたっぷりと정액を吐き出した。
								ENDIF
							ENDIF
							IF ABL:LOCAL:Ｃ감각 >= 4
								EXP:LOCAL:절정경험 += 1
								PRINTL 절정경험+1
							ENDIF
							EXP:LOCAL:정액경험 += 1
							PRINTL 정액경험+1
							PRINTL
							IF ABL:MASTER:기교 + ABL:LOCAL:Ｃ감각 < 4
								A = 0
							ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ｃ감각 < 8
								A = 1
							ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ｃ감각 < 12
								A = 2
							ELSE
								A = 3
							ENDIF
							CALL IN_SCHOOL_LESSON_JEWEL,LOCAL,1,A
						ELSE
							PRINTFORML 改めてじっくりと가슴や股間を刺激した。
							PRINTFORML いつ挿入されるのかと身体を固くする%CALLNAME:LOCAL%の反応を楽しみながら、その身体の感触を楽しんだ。
								IF ABL:MASTER:기교 + ABL:LOCAL:Ｃ감각 + ABL:LOCAL:Ｂ감각 < 5
								A = 0
							ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ｃ감각 + ABL:LOCAL:Ｂ감각 < 11
								A = 1
							ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ｃ감각 + ABL:LOCAL:Ｂ감각 < 17
								A = 2
							ELSE
								A = 3
							ENDIF
							CALL IN_SCHOOL_LESSON_JEWEL,LOCAL,6,A
						ENDIF
;						TEMP = CFLAG:LOCAL:115
;						CFLAG:LOCAL:115 = 4
;						CFLAG:LOCAL:115 = TEMP
					ELSE
					;入れる
						;교제時ＮＴＲでＮＴＲてない
						IF CFLAG:LOCAL:117 == 4 && TALENT:LOCAL:ＮＴＲ == 0
							PRINTFORM %마스터가%触れるまでもなく\@TALENT:LOCAL:남자 ? とろけ準備が整っていた국혈 # 濡れていた秘裂\@
						ELSE
							;濡れ具合表現をＶ감각で分岐
							IF ABL:LOCAL:Ｖ감각 >= 6
								PRINTFORM すっかり快楽を깨우침え、期待に蜜を滴らせる下の입
							ELSEIF ABL:LOCAL:Ｖ감각 >= 3
								PRINTFORM 挿入されることに慣れ、さっそく湿り気を帯び始めた秘唇
							ELSE
								PRINTFORM 未だ慣れない挿入に怯え、縮こまっている\@TALENT:LOCAL:남자 ? 국혈 # 秘裂\@
							ENDIF
						ENDIF

						;陥落状態による分岐
						IF TALENT:LOCAL:교제
							PRINTFORM 를 晒す%CALLNAME:LOCAL%に優しく입付けると、
						ELSEIF TALENT:LOCAL:복종||TALENT:LOCAL:예속
							PRINTFORM に%마스터가%入れやすいよう、尻を上げている%CALLNAME:LOCAL%の顔を壁に押し付けると、
						ELSEIF TALENT:LOCAL:음란||TALENT:LOCAL:창녀 || TALENT:LOCAL:동화 || TALENT:LOCAL:모판
							PRINTFORM 를 自ら指で広げて待っている%CALLNAME:LOCAL%の腰をしっかりと掴むと、
						ELSE
							;반항적or꿋꿋함or프라이드높음or건방짐だったら強めの態度
							IF TALENT:LOCAL:반항적 || TALENT:LOCAL:꿋꿋함 || TALENT:LOCAL:프라이드높음 || TALENT:LOCAL:건방짐
								PRINTFORM 를 押し開き、唇をかみ締めて目を伏せる%CALLNAME:LOCAL%へ、
							ELSE
								PRINTFORM 를 押し開き、諦めたようにすすり泣く%CALLNAME:LOCAL%へ、
							ENDIF
						ENDIF
						PRINTFORML ゆっくりと後ろから挿入した。
						PRINTFORML

						;NTL이 붙어 있으면 남자친구、아니면 친구로부터 전화 플레이 발동. 조건은 랜덤으로 한다. NTL 좋지!
						IF RAND:4 >= 3
							PRINTFORML 背中を震わせながら声をかみ殺す%CALLNAME:LOCAL%の腰を抱え、緩やかに突き上げる。
							PRINTFORML やがて、床に落ちた%CALLNAME:LOCAL%の服の中から着信音が流れ出した。
							PRINTFORM 拾い上げて画面を確認すると、아무래도
							IF TALENT:LOCAL:ＮＴＬ
								CALL PARTNER_NAME, LOCAL
								PRINTFORML からのようだ。
							ELSE
								PRINTFORML 友人からのようだ。
							ENDIF
							PRINTFORML 着信音で相손が誰だかを、画面を見ずに理解したのだろう。

							;노출증で分岐してみる。イメージが不適切なら変更
							IF TALENT:LOCAL:ＮＴＬ
								CALL PARTNER_NAME, LOCAL
							ELSE
								PRINTFORM 友人
							ENDIF
							IF ABL:LOCAL:노출증 >= 5
								PRINTFORM に痴態を悟られる緊張感と期待感の狭間で息を荒げる%CALLNAME:LOCAL%の
							ELSE
								PRINTFORM に行為がバレる공포\@ TALENT:LOCAL:ＮＴＬ ? と罪悪感 # \@に、泣きそうな顔で首を振る%CALLNAME:LOCAL%の
							ENDIF

							PRINTFORM 耳元に携帯電話を押し当て、着信ボタンを押すと、

							PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 、声を上ずらせながら必死に話し始めた。
							PRINTFORML

							PRINTFORM ……%CALLNAME:LOCAL%と
							IF TALENT:LOCAL:ＮＴＬ
								CALL PARTNER_NAME, LOCAL
							ELSE
								PRINTFORM 友人
							ENDIF
							PRINTFORML との회화は続いている。%조사처리(CALLNAME:LOCAL,"은")% 切り上げるタイミングを計っているようだ。
							PRINTFORML ふと思いつき、%CALLNAME:LOCAL%が声を出そうとするタイミングに合わせて何度も突いてやる。
							IF TALENT:LOCAL:남자
								;Ａ감각で分岐
								IF ABL:LOCAL:Ａ감각 <= 3
									PRINTFORML 甘い声を漏らしながらも、%조사처리(CALLNAME:LOCAL,"은")% 強引に회화を切り上げてしまった。
									PRINTFORML ……こんなところだろう。
									PRINTFORM %마스터는% 通話ボタンを押した携帯を落とすと、
									PRINTFORML いつにも増して熱く溶けている%CALLNAME:LOCAL%の後ろの穴を楽しみながら、たっぷりと애널사정した。
								ELSE
									PRINTFORM どんどん余裕のなくなっていった%조사처리(CALLNAME:LOCAL,"은")% 、ついに
									IF TALENT:LOCAL:ＮＴＬ
										CALL PARTNER_NAME, LOCAL
									ELSE
										PRINTFORM 友人
									ENDIF
									PRINTFORML と通話しながら절정の声を上げてしまった。
									PRINTFORML
									PRINTFORM %CALLNAME:LOCAL%の様子をいぶかしがる
									IF TALENT:LOCAL:ＮＴＬ
										CALL PARTNER_NAME, LOCAL
									ELSE
										PRINTFORM 友人
									ENDIF
									PRINTFORML の声が携帯ごしにこちらにも聞こえてくる。
									PRINTFORML それを聞きながら、激しく突きまくると、まだ続く절정に회화もままならない%CALLNAME:LOCAL%の애널にたっぷりと사정した。
								ENDIF
							ELSE
								;Ｖ감각で分岐
								IF ABL:LOCAL:Ｖ감각 <= 3
									PRINTFORML 甘い声を漏らしながらも、%조사처리(CALLNAME:LOCAL,"은")% 強引に회화を切り上げてしまった。
									PRINTFORML ……こんなところだろう。
									PRINTFORM %마스터는% 通話ボタンを押した携帯を落とすと、
									PRINTFORML いつにも増して熱く溶けている%CALLNAME:LOCAL%の질내を楽しみながら、たっぷりと膣奥に사정した。
								ELSE
									PRINTFORM どんどん余裕のなくなっていった%조사처리(CALLNAME:LOCAL,"은")% 、ついに
									IF TALENT:LOCAL:ＮＴＬ
										CALL PARTNER_NAME, LOCAL
									ELSE
										PRINTFORM 友人
									ENDIF
									PRINTFORML と通話しながら절정の声を上げてしまった。
									PRINTFORML
									PRINTFORM %CALLNAME:LOCAL%の様子をいぶかしがる
									IF TALENT:LOCAL:ＮＴＬ
										CALL PARTNER_NAME, LOCAL
									ELSE
										PRINTFORM 友人
									ENDIF
									PRINTFORML の声が携帯ごしにこちらにも聞こえてくる。
									PRINTFORML それを聞きながら、激しく突きまくると、まだ続く절정に회화もままならない%CALLNAME:LOCAL%の膣奥にたっぷりと사정した。
								ENDIF
							ENDIF
							PRINTFORML
							PRINTFORM %CALLNAME:LOCAL%が明日、学校で
							IF TALENT:LOCAL:ＮＴＬ
								CALL PARTNER_NAME, LOCAL
							ELSE
								PRINTFORM 友人
							ENDIF
							PRINTFORML にどんな言い訳をするのか楽しみだ……
						ELSE
							PRINTFORML 後ろから%CALLNAME:MASTER%에게 \@TALENT:LOCAL:남자 ? 애널 # 奥\@を突かれるたび、%조사처리(CALLNAME:LOCAL,"은")% 背中を震わせて吐息を漏らす。
							PRINTFORM 声を漏らさないよう必死に입元を抑える%CALLNAME:LOCAL%の反応を楽しみながら、抽挿を速めていくと、
							;Ｖ감각で分岐
							IF ABL:LOCAL:Ｖ감각 <= 3
								PRINTFORML 甘い声を漏らし始めた%CALLNAME:LOCAL%の\@TALENT:LOCAL:남자 ? 애널 # 膣奥\@にたっぷりと사정した。
							ELSE
								PRINTFORML %CALLNAME:LOCAL%の절정に合わせて、たっぷりと\@TALENT:LOCAL:남자 ? 애널 # 膣奥\@に사정した。
							ENDIF
						ENDIF
						IF TALENT:LOCAL:남자
							EXP:LOCAL:Ａ경험 += 1
							EXP:LOCAL:성교경험 += 1
							SIF ABL:LOCAL:Ａ감각 >= 4
								EXP:LOCAL:절정경험 += 1
							EXP:LOCAL:정액경험 += 1
							SIF TALENT:MASTER:남자
								EXP:LOCAL:게이경험 += 1

							PRINTL Ａ경험+1
							PRINTL 성교경험+1
							SIF ABL:LOCAL:Ａ감각 >= 4
								PRINTL 절정경험+1
							PRINTL 정액경험+1
							SIF TALENT:MASTER:남자
								PRINTL 게이경험+1
							PRINTL
							IF ABL:MASTER:기교 + ABL:LOCAL:Ａ감각 < 4
								A = 0
							ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ａ감각 < 8
								A = 1
							ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ａ감각 < 12
								A = 2
							ELSE
								A = 3
							ENDIF

;							TEMP = CFLAG:LOCAL:115
;							CFLAG:LOCAL:115 = 3
							CALL IN_SCHOOL_LESSON_JEWEL,LOCAL,3,A
;							CFLAG:LOCAL:115 = TEMP

							EXP:MASTER:사정경험 += 1
						ELSE
							EXP:LOCAL:Ｖ경험 += 1
							EXP:LOCAL:성교경험 += 1
							SIF ABL:LOCAL:Ｖ감각 >= 4
								EXP:LOCAL:절정경험 += 1
							EXP:LOCAL:질사경험 += 1
							EXP:LOCAL:정액경험 += 1

							PRINTL Ｖ경험+1
							PRINTL 성교경험+1
							SIF ABL:LOCAL:Ｖ감각 >= 4
								PRINTL 절정경험+1
							PRINTL 질사경험+1
							PRINTL 정액경험+1
							PRINTL
							IF ABL:MASTER:기교 + ABL:LOCAL:Ｖ감각 < 4
								A = 0
							ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ｖ감각 < 8
								A = 1
							ELSEIF ABL:MASTER:기교 + ABL:LOCAL:Ｖ감각 < 12
								A = 2
							ELSE
								A = 3
							ENDIF
;							TEMP = CFLAG:LOCAL:115
;							CFLAG:LOCAL:115 = 2
							CALL IN_SCHOOL_LESSON_JEWEL,LOCAL,2,A
;							CFLAG:LOCAL:115 = TEMP

							EXP:MASTER:사정경험 += 1
						ENDIF
					ENDIF
				ENDSELECT
	ENDSELECT
	PRINTFORMW

	;今日のＮＴＲプレイ状況
	;교제時ＮＴＲでＮＴＲてない、ＮＴＲオン
	IF CFLAG:LOCAL:117 == 4 && TALENT:LOCAL:ＮＴＲ == 0 && FLAG:150 == 1
		EXP:LOCAL:펠라경험 += 2
		EXP:LOCAL:정액경험 += 2

		;ＮＴＲ男との経験を記録
		;キス
		SETBIT CFLAG:LOCAL:119,6
		;フェラ
		SETBIT CFLAG:LOCAL:119,8

		;今日のＮＴＲプレイ内容、애무
		SETBIT CFLAG:LOCAL:125,10
		;今日のＮＴＲプレイ内容、奉仕
		SETBIT CFLAG:LOCAL:125,11

		;교내플레이ＮＴＲ発生済みへ
		CFLAG:LOCAL:124 = 2
	ENDIF

	;構ったフラグオン
	CFLAG:LOCAL:121 = 1
ENDIF

@IN_SCHOOL_LESSON_JEWEL,ARG,ARG:1,ARG:2
;ARG キャラ番号
;ARG:1 CFLAG:115 エロ道具フラグの代わり,5は被奉仕,6はC+B
;ARG:2は조교効果　(概ね感度で決定)
;A:부정의 구슬、B:공포의 구슬、C:치정의 구슬、D:感度,E:욕정
A = 0
B = 0
C = 0
D = 0
E = 0
IF ARG:1 == 5
;まずは기교のチェック
	IF ARG:2 == 0
		D = 50
	ELSEIF ARG:2 == 1
		D = 200
	ELSEIF ARG:2 == 2
		D = 500
	ELSE
		D = 1000
	ENDIF

	IF TALENT:ARG:습득빠름 == 1
		D *= 3
		D /= 2
	ELSEIF TALENT:ARG:습득느림 == 1
		D /= 2
	ENDIF
	PRINTFORML 기교의 구슬+{D}
	JUEL:ARG:8 += D

;치정　平日の方が多い
	IF FLAG:8 == 1
		C = 600
	ELSE
		C = 200
	ENDIF
	IF ARG:2 == 1
		C *= 2
	ELSEIF ARG:2 == 2
		C *= 5
	ELSEIF ARG:2 == 3
		C *= 10
	ENDIF
	IF TALENT:ARG:프라이드높음 == 1
		C *= 12
		C /= 10
	ENDIF
	IF TALENT:ARG:프라이드낮음 == 1
		C *= 8
		C /= 10
	ENDIF
	IF TALENT:ARG:감정부족 == 1
		C /= 2
	ENDIF
	IF TALENT:ARG:부끄럼쟁이 == 1
		C *= 15
		C /= 10
	ENDIF
	IF TALENT:ARG:수치심없음 == 1
		C /= 2
	ENDIF
	IF TALENT:ARG:친구많음 == 1
		C *= 15
		C /= 10
	ENDIF
	IF TALENT:ARG:고고함 == 1
		C /= 2
	ENDIF
	PRINTFORML 치정의 구슬+{C}
	JUEL:ARG:9 += C
;공포　平日の方が多い
	IF FLAG:8 == 1
		B = 200
	ELSE
		B = 100
	ENDIF
	IF ARG:2 == 1
		B *= 2
	ELSEIF ARG:2 == 2
		B *= 5
	ELSEIF ARG:2 == 3
		B *= 10
	ENDIF
;부정
;순종で基本が決まる
	IF ABL:ARG:0 < 2
		A = 500
	ELSEIF ABL:ARG:0 < 4
		A = 300
	ELSEIF ABL:ARG:0 < 6
		A = 100
	ELSEIF ABL:ARG:0 < 8
		A = 50
	ELSE
		A = 10
	ENDIF
	IF ARG:2 == 1
		A *= 12
		A /= 10
	ELSEIF ARG:2 == 2
		A *= 15
		A /= 10
	ELSEIF ARG:2 == 3
		A *= 2
	ENDIF
;노출증
	IF ABL:ARG:8 == 0
		A *= 2
	ELSEIF ABL:ARG:8 < 5 && ABL:ARG:8 > 2
		A *= 2
		A /= 3
	ELSEIF ABL:ARG:8 < 7
		A /= 2
	ELSE
		A /= 5
	ENDIF

ELSE
;まずは感度のチェック
	IF ARG:2 == 0
		D = 100
	ELSEIF ARG:2 == 1
		D = 300
	ELSEIF ARG:2 == 2
		D = 1000
	ELSE
		D = 2000
	ENDIF

	IF ARG:1 == 1
		IF TALENT:ARG:Ｃ민감 == 1
			D *= 3
			D /= 2
		ELSEIF TALENT:ARG:Ｃ둔감 == 1
			D /= 2
		ENDIF
		PRINTFORML 쾌Ｃ의 구슬+{D}
		JUEL:ARG:0 += D
	ELSEIF ARG:1 == 2
		IF TALENT:ARG:Ｖ민감 == 1
			D *= 3
			D /= 2
		ELSEIF TALENT:ARG:Ｖ둔감 == 1
			D /= 2
		ENDIF
		PRINTFORML 쾌Ｖ의 구슬+{D}
		JUEL:ARG:1 += D
	ELSEIF ARG:1 == 3
		IF TALENT:ARG:Ａ민감 == 1
			D *= 3
			D /= 2
		ELSEIF TALENT:ARG:Ａ둔감 == 1
			D /= 2
		ENDIF
		PRINTFORML 쾌Ａ의 구슬+{D}
		JUEL:ARG:2 += D
	ELSEIF ARG:1 == 6
		IF TALENT:ARG:Ｃ민감 == 1
			D *= 3
			D /= 2
		ELSEIF TALENT:ARG:Ｃ둔감 == 1
			D /= 2
		ENDIF
		PRINTFORML 쾌Ｃ의 구슬+{D}
		JUEL:ARG:0 += D
		IF TALENT:ARG:Ｂ민감 == 1
			D *= 3
			D /= 2
		ELSEIF TALENT:ARG:Ｂ둔감 == 1
			D /= 2
		ENDIF
		PRINTFORML 쾌Ｂ의 구슬+{D}
		JUEL:ARG:3 += D
	ELSE
		IF TALENT:ARG:Ｂ민감 == 1
			D *= 3
			D /= 2
		ELSEIF TALENT:ARG:Ｂ둔감 == 1
			D /= 2
		ENDIF
		PRINTFORML 쾌Ｂ의 구슬+{D}
		JUEL:ARG:3 += D
	ENDIF
;욕정　感度の2/3
	E = D * 2
	E /= 3
;노출증
	IF ABL:ARG:8 == 0
		E /= 2
	ELSEIF ABL:ARG:8 < 5 && ABL:ARG:8 > 2
		E *= 12
		E /= 10
	ELSEIF ABL:ARG:8 < 7
		E *= 15
		E /= 10
	ELSE
		E *= 2
	ENDIF
	IF TALENT:ARG:반항적 == 1
		E *= 2
		E /= 3
	ENDIF
	IF TALENT:ARG:자제심 == 1
		E *= 2
		E /= 3
	ENDIF
	IF TALENT:ARG:억압 == 1
		E /= 2
	ENDIF
	IF TALENT:ARG:눈에띄고싶어함 == 1
		E *= 12
		E /= 10
	ENDIF
	IF TALENT:ARG:쾌감에솔직 == 1
		E *= 3
		E /= 2
	ENDIF
	IF TALENT:ARG:쾌감을부정 == 1
		E *= 2
		E /= 3
	ENDIF
	PRINTFORML 욕정의 구슬+{E}
	JUEL:ARG:6 += E

;치정　平日の方が多い
	IF FLAG:8 == 1
		C = 300
	ELSE
		C = 100
	ENDIF
	IF ARG:2 == 1
		C *= 2
	ELSEIF ARG:2 == 2
		C *= 5
	ELSEIF ARG:2 == 3
		C *= 10
	ENDIF
	IF TALENT:ARG:프라이드높음 == 1
		C *= 12
		C /= 10
	ENDIF
	IF TALENT:ARG:프라이드낮음 == 1
		C *= 8
		C /= 10
	ENDIF
	IF TALENT:ARG:감정부족 == 1
		C /= 2
	ENDIF
	IF TALENT:ARG:부끄럼쟁이 == 1
		C *= 15
		C /= 10
	ENDIF
	IF TALENT:ARG:수치심없음 == 1
		C /= 2
	ENDIF
	IF TALENT:ARG:친구많음 == 1
		C *= 15
		C /= 10
	ENDIF
	IF TALENT:ARG:고고함 == 1
		C /= 2
	ENDIF
	PRINTFORML 치정의 구슬+{C}
	JUEL:ARG:9 += C
;공포　平日の方が多い
	IF FLAG:8 == 1
		B = 100
	ELSE
		B = 50
	ENDIF
	IF ARG:2 == 1
		B *= 2
	ELSEIF ARG:2 == 2
		B *= 5
	ELSEIF ARG:2 == 3
		B *= 10
	ENDIF
;부정
;순종で基本が決まる
	IF ABL:ARG:0 < 2
		A = 500
	ELSEIF ABL:ARG:0 < 4
		A = 300
	ELSEIF ABL:ARG:0 < 6
		A = 100
	ELSEIF ABL:ARG:0 < 8
		A = 50
	ELSE
		A = 10
	ENDIF
	IF ARG:2 == 1
		A *= 12
		A /= 10
	ELSEIF ARG:2 == 2
		A *= 15
		A /= 10
	ELSEIF ARG:2 == 3
		A *= 2
	ENDIF
;노출증
	IF ABL:ARG:8 == 0
		A *= 2
	ELSEIF ABL:ARG:8 < 5 && ABL:ARG:8 > 2
		A *= 2
		A /= 3
	ELSEIF ABL:ARG:8 < 7
		A /= 2
	ELSE
		A /= 5
	ENDIF
ENDIF

IF TALENT:ARG:겁쟁이 == 1
	B *= 15
	B /= 10
ENDIF
IF TALENT:ARG:감정부족 == 1
	B /= 2
ENDIF
IF TALENT:ARG:친구많음 == 1
	B *= 15
	B /= 10
ENDIF
IF TALENT:ARG:고고함 == 1
	B /= 2
ENDIF
PRINTFORML 공포의 구슬+{B}
JUEL:ARG:11 += B

;부정
IF TALENT:ARG:반항적 == 1
	A *= 15
	A /= 10
ENDIF
IF TALENT:ARG:얌전함 == 1
	A *= 8
	A /= 10
ENDIF
IF TALENT:ARG:자제심 == 1
	A *= 12
	A /= 10
ENDIF
IF TALENT:ARG:무관심 == 1
	A *= 8
	A /= 10
ENDIF
IF TALENT:ARG:비관적 == 1
	A *= 12
	A /= 10
ENDIF
IF TALENT:ARG:낙관적 == 1
	A *= 8
	A /= 10
ENDIF
IF TALENT:ARG:정조관념 == 1
	A *= 12
	A /= 10
ENDIF
IF TALENT:ARG:정조무관심 == 1
	A *= 8
	A /= 10
ENDIF
IF TALENT:ARG:억압 == 1
	A *= 15
	A /= 10
ENDIF
IF TALENT:ARG:저항 == 1
	A *= 15
	A /= 10
ENDIF
IF TALENT:ARG:친구많음 == 1
	A *= 15
	A /= 10
ENDIF
IF TALENT:ARG:고고함 == 1
	A /= 2
ENDIF

PRINTFORML 부정의 구슬+{A}
JUEL:ARG:100 += A

repo_name: Catalyst/B

license: unknown