code:
@LOOK_AT
#DIM 장비부위
#DIM 착의상황
#DIMS 삽입상황
#DIMS 삽입상황2
#DIMS 표시내용
CALL PRINTBUTTON_EX(TFLAG:LOOK비표시 ? "▽[＋][Look]----------" # "▼[－][Look]----------", 3003, TFLAG:LOOK비표시)
IF !FLAG:AA표시
	PRINTBUTTON "[표시 없음]", 816
ELSEIF FLAG:AA표시 && !FLAG:화상표시 ;KR판 구잔재. AA표시 삭제시 지워야 함.
	PRINTBUTTON  "[AA 표시]", 816
ELSE
	PRINTBUTTON "[그림 표시]", 816
	SIF FLAG:화상표시설정
		SETCOLOR C_ORANGE
	PRINTBUTTON "[표시 설정]", 3100
ENDIF
RESETCOLOR
IF CFLAG:우후후
	IF FLAG:삽화표시
		PRINTBUTTON "[애니메이션 표시-ON-]", 817
	ELSE
		SETCOLOR C_L_GRAY
		PRINTBUTTON "[애니메이션 표시-OFF-]", 817
		RESETCOLOR
	ENDIF
ENDIF
PRINTL
IF !TFLAG:LOOK비표시
	;TARGETが大勢居るときはヒマを持て余す
	CALL ANOTHERTARGET_TALK
	CALL 정경묘사
ENDIF
IF TARGET
	IF !TFLAG:LOOK비표시
		PRINT 【상반신】
		IF TEQUIP:1 == 0
			PRINT 알몸
			SIF PALAM:욕정 >= PALAMLV:3
				PRINTFORM %NIPPLE_DESCRIPTION(TARGET)%가 서 있다
		ELSE
			;바깥쪽의 옷으로부터 표시
			FOR 장비부위, 17, 6, -1
				SIF GROUPMATCH(장비부위, 15, 12, 11)
					CONTINUE
				표시내용 '= LOOK_AT_CLOTHNAME(TARGET, 장비부위)
				SIF !STRLENS(표시내용)
					CONTINUE
				PRINTFORM %표시내용%
				BREAK
			NEXT
			IF TEQUIP:상반신탈의상태 > 0
				IF TALENT:가슴사이즈 == 2
					PRINTFORM %OPPAI_DESCRIPTION(TARGET,1)%이 비져 나왔다
					;PRINTFORM 터질 듯한 가슴이 비져 나왔다
				ELSEIF TALENT:가슴사이즈 == 1
					PRINTFORM %OPPAI_DESCRIPTION(TARGET,1)%이 툭 나왔다
					;PRINTFORM 풍만한 가슴이 비져 나왔다
				ELSEIF TALENT:가슴사이즈 == 0
					PRINTFORM %OPPAI_DESCRIPTION(TARGET,1)%이 드러나왔다
					;PRINTFORM 모양 좋은 가슴이 드러나왔다
				ELSEIF TALENT:가슴사이즈 == -1
					PRINTFORM %OPPAI_DESCRIPTION(TARGET,1)%이 드러나왔다
					;PRINTFORM 작은 축의 가슴이 드러나왔다
				ELSEIF TALENT:가슴사이즈 == -2
					PRINTFORM %OPPAI_DESCRIPTION(TARGET,1)%이 드러나왔다
					;PRINTFORM 귀여운 유두가 드러나왔다
				ENDIF
				SIF EQUIP:TARGET:보디슈트== 0 && PALAM:욕정 >= PALAMLV:5
					PRINTFORM %NIPPLE_DESCRIPTION(TARGET)%가 서 있다
			ELSE
				SIF EQUIP:TARGET:보디슈트== 0 && PALAM:욕정 >= PALAMLV:(4 + 2 * (GET_INT(TARGET, "상반신속옷_탈의불가", EQUIP:TARGET:상반신속옷1, "옷감 두께")))
					PRINTFORM 옷 밖으로도 %NIPPLE_DESCRIPTION(TARGET)%가 발기한 것을 알 수 있다
			ENDIF
		ENDIF
		IF TEQUIP:유두캡 && TEQUIP:가슴주무르기
			PRINTFORM 유두캡이 %NIPPLE_DESCRIPTION(TARGET)%를 빨아내고 %마스터가% %OPPAI_DESCRIPTION(TARGET)%을 주무르고 있다
		ELSEIF TEQUIP:유두빨기 && TEQUIP:가슴주무르기
			PRINTFORM %마스터가% %OPPAI_DESCRIPTION(TARGET)%을 주무르는 상태로 %NIPPLE_DESCRIPTION(TARGET)%를 \@ ABL:MASTER:혀 > 2? 핥고 있다# 빨고 있다\@
		ELSEIF TEQUIP:유두캡
			PRINTFORM 유두캡이 %NIPPLE_DESCRIPTION(TARGET)%에 붙어 있다
		ELSEIF TEQUIP:착유기
			PRINT 착유기가 모유를 빨아들이고 있다
		ELSEIF TEQUIP:유두빨기
			PRINTFORM %마스터가% %NIPPLE_DESCRIPTION(TARGET)%를 \@ ABL:MASTER:혀 > 2? 핥고 있다# 빨고 있다\@
		ELSEIF TEQUIP:가슴주무르기
			PRINTFORM %마스터가% %OPPAI_DESCRIPTION(TARGET)%을 주무르고 있다
		ENDIF
		SIF CFLAG:구내정액 == 1
			PRINT 입가에서 정액이 흐르고 있다
		SIF CFLAG:안면정액 == 1
			PRINT 얼굴에 정액이 뿌려져 있다
		SIF CFLAG:손에정액 == 1
			PRINT 손이 정액 범벅이다
		PRINTL
		PRINT 【하반신】
		;TEQUIP:하반신착의상황 아래 반신 착의상황(비트0=치마1=비켜 놓아 가능 2=비켜 놓아 불가 3=비켜 놓을 수 없는 하반신윗도리)
		;	(비트를 사용하고 싶지 않은 인용 0=이루어 1=노팬티 치마2=팬티뿐 3=치마+팬티
		;	4=스패츠(속옷) 혹은 노팬티 바지5=치마+스패츠 6=바지+팬티 7=풀 장비(이 바리안트에서는 무리))
		;CFLAG:팬티 팬티 플래그
		;0 팬티 입고 있다
		;1 팬티 입지 않다

		;하반신착의 이루어, 혹은 팬티 입지 않았다
		IF TEQUIP:하반신착의상황 == 0 || CFLAG:노팬티 > 0
		;	하반신착의가 있지만 노팬티이다
			IF CFLAG:노팬티 && TEQUIP:하반신착의상황 != 0
				착의상황 = 0
				FOR 장비부위, 15, 4, -1
					SIF GROUPMATCH(장비부위, 8, 7)
						CONTINUE
					표시내용 '= LOOK_AT_CLOTHNAME(TARGET, 장비부위)
					SIF !STRLENS(표시내용)
						CONTINUE
					PRINTFORM %표시내용%
					BREAK
				NEXT
				;팬티는 입지 않지만 안보이기 때문에 표시하지 않는다
				;PRINT (팬티 안 입음)
				IF PREVCOM == 330
					IF PALAM:윤활 >= PALAMLV:5
						PRINT 허벅지까지 흠뻑 젖어있다
					ELSEIF PALAM:윤활 >= PALAMLV:3
						PRINT 부끄러운 부분에 덩그러니 얼룩이 져 있다
					ENDIF
					IF 충전율(TARGET,1) >= 100 || 충전율(TARGET,2) >= 100
						PRINTFORM 흘러넘친 정액이 꿀럭꿀럭 소리와 함께 넘쳐 흐르고 있다
					ELSEIF 충전율(TARGET,1) >= 30 || 충전율(TARGET,2) >= 30
						PRINTFORM 흘러넘친 정액이 허벅지를 타고 흘러내리고 있다
					ENDIF
				ELSEIF 충전율(TARGET,1) >= 100 || 충전율(TARGET,2) >= 100
					PRINTFORM 흘러넘친 \@TALENT:MASTER:농후정액 ? 풀 같은 정액이 발 밑에 산을 이루고 있다 # 정액이 발 밑에 정액 웅덩이를 만들고 있다\@
				ELSEIF 충전율(TARGET,1) >= 30 || 충전율(TARGET,2) >= 30
					PRINTFORM 흘러넘친 \@TALENT:MASTER:농후정액 ? 풀 같은 정액이 허벅지에 들러붙어있다 # 정액이 허벅지를 타고 흘러내리고 있다\@
				ENDIF
			ELSEIF EQUIP:하반신속옷1 || EQUIP:하반신속옷2
				IF EQUIP:하반신속옷2
					표시내용 '= PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)
					PRINTFORM %표시내용%
					IF 충전율(TARGET,1) >= 100 || 충전율(TARGET,2) >= 100
						PRINTFORM %조사처리(표시내용,"은")% 넘쳐 흐른 정액으로 완전히 제 구실을 못하고 있다
					ELSEIF 충전율(TARGET,1) >= 30 || 충전율(TARGET,2) >= 30
						PRINTFORM %조사처리(표시내용,"은")% 정액을 다 흡수하지 못하고 있다
					ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
						PRINTFORM %표시내용%에 얼룩이 져 있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						PRINTFORM %조사처리(표시내용,"이")% 축축하다
					ENDIF
				ELSE
					표시내용 '= GET_STR(TARGET, "하반신속옷_비켜놓기불가", EQUIP:TARGET:하반신속옷1, "이름")
					PRINTFORM %표시내용%
					SELECTCASE 표시내용
					CASE "샅바", "스패츠"
						IF 충전율(TARGET,1) >= 100 || 충전율(TARGET,2) >= 100
							PRINTFORM %조사처리(표시내용,"은")% 넘쳐 흐른 정액으로 완전히 제 구실을 못하고 있다
						ELSEIF 충전율(TARGET,1) >= 30 || 충전율(TARGET,2) >= 30
							PRINTFORM %조사처리(표시내용,"은")% 정액을 다 흡수하지 못하고 있다
						ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
							PRINTFORM %표시내용%에 얼룩이 져 있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINTFORM %조사처리(표시내용,"이")% 축축하다
						ENDIF
					CASE "마에바리", "반창고"
						IF 충전율(TARGET,1) >= 100 || 충전율(TARGET,2) >= 100
							PRINTFORM %조사처리(표시내용,"은")% 완전히 벗겨져, 하복부에 다시 붙어있다
						ELSEIF 충전율(TARGET,1) >= 30 || 충전율(TARGET,2) >= 30
							PRINTFORM %조사처리(표시내용,"은")% 이제 걸쳐져 있을 뿐이다
						ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:5
							PRINTFORM %조사처리(표시내용,"이")% 벗겨저 간다
						ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
							PRINTFORM %표시내용%에 얼룩이 져 있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINTFORM %조사처리(표시내용,"이")% 축축하다
						ENDIF
					CASE "정조대", "라비아 피어스", "클리 피어스"
						IF 충전율(TARGET,1) >= 100 || 충전율(TARGET,2) >= 100
							IF 표시내용 == "정조대"
								PRINTFORM %조사처리(표시내용,"은")% 넘쳐 흐르는 정액을 멈출 수 없다
							ELSE
								PRINTFORM %조사처리(표시내용,"은")% 넘쳐 흐른 정액으로 보이지 않는다
							ENDIF
						ELSEIF 충전율(TARGET,1) >= 30 || 충전율(TARGET,2) >= 30
							PRINTFORM %조사처리(표시내용,"은")% 넘쳐흐른 정액을 매달고 있다
						ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
							PRINTFORM %표시내용%에 물방울이 맺혀 있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINTFORM %조사처리(표시내용,"이")% 축축하다
						ENDIF
					ENDSELECT
				ENDIF
			;하반신착의가 없다
			ELSE
				PRINT 알몸
				SIF TEQUIP:클리캡
					PRINT 클리캡이 클리토리스에 달라붙고 있다
				SIF TEQUIP:오나홀
					PRINT 페니스에게 오나홀이 파헤쳐져 있다
				IF !CFLAG:우후후
					IF CFLAG:TARGET:질내사정
						IF CFLAG:TARGET:애널사정 == 1
							IF 충전율(TARGET,1) >= 1000 || 충전율(TARGET,2) >= 1000
								PRINT 양구멍으로부터 정액이 폭발하여 튀어 나오고 있다
							ELSEIF 충전율(TARGET,1) >= 100 || 충전율(TARGET,2) >= 100
								PRINT 양구멍으로부터 정액이 폭포처럼 넘치고 있다
							ELSEIF 충전율(TARGET,1) >= 30 || 충전율(TARGET,2) >= 30
								PRINT 양구멍으로부터 정액이 넘치고 있다
							ELSE
								PRINT 비렬과 항문으로부터 정액이 흘러넘치고 있다
							ENDIF
						ELSEIF EX:처녀상실체크
							PRINT 비렬로부터 파과혈이 섞인 정액이 쏟아져 나오고 있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINT 비렬로부터 정액과 애액이 섞인 국물이 쏟아져 나오고 있다
						ELSE
							PRINT 비렬로부터 정액이 흘러넘치고 있다
						ENDIF
					ELSEIF CFLAG:TARGET:애널사정 == 1
						PRINT 항문으로부터 정액이 흘러넘치고 있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						IF PALAM:윤활 >= PALAMLV:6
							PRINTFORM 비렬로부터 애액\@ EX:처녀상실체크? 이 섞인 파과혈# \@이 뚝뚝 떨어지고 있다
						ELSEIF EX:처녀상실체크
							PRINT 비렬로부터 파과혈이 흐르고 있다
						ELSEIF PALAM:윤활 >= PALAMLV:4
							PRINT 허벅지까지 애액이 묻어 있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINT 비렬이 애액으로 축축하다
						ENDIF
					ENDIF
				ELSEIF PALAM:윤활 >= PALAMLV:2 && !(CFLAG:TARGET:질내사정 == 1 || TEQUIP:V섹스 == PLAYER || TEQUIP:바이브)
					IF PALAM:윤활 >= PALAMLV:4
						PRINTFORM 비렬로부터 애액\@ EX:처녀상실체크? 이 섞인 파과혈# \@이 뚝뚝 떨어지고 있다
					ELSEIF EX:처녀상실체크
						PRINT 비렬로부터 파과혈이 흐르고 있다
					ELSEIF PALAM:윤활 >= PALAMLV:3
						PRINTFORM 허벅지까지 애액이 묻어 있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						PRINTFORM 비렬이 애액으로 축축하다
					ELSEIF TALENT:처녀 == 1
						PRINTFORM 미사용의 딱 닫힌 틈이 드러나 있다
					ENDIF
				ENDIF
			ENDIF
			CALL LOOK_BELLY(TARGET)
		;하반신벌을 입고 있다, 한편 속옷도 붙이고 있다
		ELSE
			착의상황 = 0
		;	윗도리가 상하 연결이 되어 있는 옷을 입고 있는 경우, 그것을 표시한다
		;	없으면, 치마나 바지를 표시한다
		;	특별히 열중한 차례로도 되어 있지 않았기 때문에 루프를 통합
			FOR 장비부위, 15, 4, -1
				SIF GROUPMATCH(장비부위, 8, 7)
					CONTINUE
				표시내용 '= LOOK_AT_CLOTHNAME(TARGET, 장비부위)
				SIF !STRLENS(표시내용)
					CONTINUE
				PRINTFORM %표시내용%
				BREAK
			NEXT
			IF !CFLAG:우후후
				;어쩐지 분기 들어갔지만 TEQUIP:하반신착의상황 == 0은↑으로 처리되므로 죽어 분기
				;IF TEQUIP:하반신착의상황 != 0
				;ENDIF
				IF PALAM:윤활 >= PALAMLV:5
					PRINT 허벅지까지 흠뻑 젖어 있다
				ELSEIF PALAM:윤활 >= PALAMLV:3
					PRINT 부끄러운 부분에 덩그러니 얼룩이 져 있다
				ENDIF
				;난쟁이
				IF TALENT:TARGET:100 == -5
					LOCAL = 200
				;유아 체형, 작은 체형
				ELSEIF TALENT:TARGET:100 < 0
					LOCAL = 300
				;장신 이상
				ELSEIF TALENT:TARGET:100 >= 1
					LOCAL = 500
				;보통 체형
				ELSE
					LOCAL = 400
				ENDIF
				SIF EX:TARGET:질내정액 > LOCAL || EX:TARGET:애널내정액 > LOCAL
					PRINTFORM 흘러넘친 \@TALENT:MASTER:농후정액 ? 풀 같은 정액이 허벅지에 달라붙어 있다 # 정액이 허벅지를 타고 흘러내리고 있다\@
			;여기에서는 우후후 안
			ELSEIF TEQUIP:하반신착의상황 & 4
				IF PALAM:윤활 >= PALAMLV:5
					PRINT 사타구니 부분이 흠뻑 젖어 있다
				ELSEIF PALAM:윤활 >= PALAMLV:3
					PRINT 부끄러운 부분에 덩그러니 얼룩이 져 있다
				ENDIF
			ELSE
				PRINTFORM  걷어 올릴 수 있는 %HIP(TARGET)%가 훤히 들여다 보이게 하고 있는
				IF PALAM:윤활 >= PALAMLV:1 || CFLAG:TARGET:애널사정 == 1 || CFLAG:TARGET:질내사정 == 1 && !((CFLAG:TARGET:애널사정 == 1 && CFLAG:TARGET:질내사정 == 1) || TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
					;이것 하반신속옷1이 개미로 하반신속옷2가 없어라고 어떻게 됩니까
					;IF (EQUIP:하반신속옷1 || EQUIP:하반신속옷2)
					;수정을 시도 가필;해 두어입니다만 하반신속옷1을 실개 하는 선택지도 있어요
					IF EQUIP:하반신속옷2
						표시내용 '= PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)
						IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
							PRINTFORM %표시내용%에 얼룩이 져 있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINTFORM %조사처리(표시내용,"이")% 축축하다
						ENDIF
					ELSE
						표시내용 '= GET_STR(TARGET, "하반신속옷_비켜놓기불가", EQUIP:TARGET:하반신속옷1, "이름")
						SELECTCASE 표시내용
						CASE "샅바", "스패츠"
							IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
								PRINTFORM %표시내용%에 얼룩이 져 있다
							ELSEIF PALAM:윤활 >= PALAMLV:2
								PRINTFORM %조사처리(표시내용,"이")% 축축하다
							ENDIF
						CASE "마에바리", "반창고"
							IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:5
								PRINTFORM %조사처리(표시내용,"이")% 벗겨저 간다
							ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
								PRINTFORM %표시내용%에 얼룩이 져 있다
							ELSEIF PALAM:윤활 >= PALAMLV:2
								PRINTFORM %조사처리(표시내용,"이")% 축축하다
							ENDIF
						CASE "정조대", "라비아 피어스", "클리 피어스"
							IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
								PRINTFORM %표시내용%에 물방울이 맺혀 있다
							ELSEIF PALAM:윤활 >= PALAMLV:2
								PRINTFORM %조사처리(표시내용,"이")% 축축하다
							ENDIF
						ENDSELECT
					ENDIF
				ENDIF
				IF !EQUIP:하반신속옷2
				ELSEIF TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극
					PRINTFORM %PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)%를 비켜 놓아지고 있다
				ELSEIF CFLAG:TARGET:애널사정 == 1 && CFLAG:TARGET:질내사정 == 1 && !(TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
					PRINTFORM %PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)%에 큰 얼룩이 져 있다
				ENDIF
				IF CFLAG:TARGET:질내사정 == 1 && PALAM:윤활 >= PALAMLV:1 && !(TEQUIP:V섹스 == PLAYER || TEQUIP:바이브)  && (TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
					PRINT 비렬로부터 정액과 애액이 섞인 국물이 쏟아져 나오고 있다
				ELSEIF CFLAG:TARGET:질내사정 == 1 && !(TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || PALAM:윤활 >= PALAMLV:1) && (TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
					PRINT 비렬로부터 정액이 흘러넘치고 있다
				ELSEIF CFLAG:TARGET:애널사정 == 1 && !(TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극) && (TEQUIP:V섹스 == PLAYER || TEQUIP:바이브)
					PRINT 항문으로부터 정액이 흘러넘치고 있다
				ENDIF
			ENDIF
			CALL LOOK_BELLY(TARGET)
		ENDIF

		IF (TCVAR:TARGET:V삽입관리플래그 == PLAYER || TCVAR:TARGET:A삽입관리플래그 == PLAYER) && TALENT:PLAYER:형상 == 10
			PRINTL
			PRINT 삽입된 페니스의 형태가 복부에 떠오르고 있다…
		ENDIF
		;================================
		SELECTCASE TEQUIP:TARGET:체위
			CASE 1
				삽입상황 = \@ TCVAR:TARGET:억지로?앞에서 덮쳐져# 정상위로\@
			CASE 2
				삽입상황 = \@ TCVAR:TARGET:억지로?등 뒤에서 짓눌려# 후배위로\@
			CASE 3
				삽입상황 = \@ TCVAR:TARGET:억지로?다리를 벌리고 태워져# 기승위로\@
			CASE 4
				삽입상황 = 대면좌위로
			CASE 5
				삽입상황 = 배면좌위로
			CASE 6
				삽입상황 = 오나홀 같은 취급으로
		ENDSELECT

		IF TEQUIP:TARGET:V섹스 == PLAYER || TEQUIP:바이브
			PRINTL
			PRINT 【 질내 】
			IF TCVAR:TARGET:V삽입관리플래그 == PLAYER
				IF TCVAR:V에질내사정된플래그
					PRINTFORM %삽입상황% \@ EX:처녀상실체크?  처녀질에# \@\@TALENT:MASTER:농후정액 ? 농후한 # \@ 정액을 {NOWEX:TARGET:질내정액}쏟아지고 있다
				ELSEIF CFLAG:TARGET:생리주기 == 7
					PRINTFORM %CALLNAME:MASTER%에게 %삽입상황% \@ EX:처녀상실체크?  처녀질에# \@교배되고 있다
				ELSEIF SHIRAHU(TARGET) && TALENT:TARGET:연모
					IF EX:처녀상실체크
						PRINTFORM %CALLNAME:MASTER%에게 %삽입상황% 처녀를 바치고 있다
					ELSE
						PRINTFORM %마스터와% %삽입상황% 서로 사랑하고 있다
					ENDIF
				ELSEIF CFLAG:우후후 == 2
					PRINTFORM %CALLNAME:MASTER%에게 %삽입상황% \@ EX:처녀상실체크?  처녀질을# \@범해지고 있다
				ELSE
					PRINTFORM %CALLNAME:MASTER%에게 %삽입상황% \@ EX:처녀상실체크?  처녀질을# \@범해지고 있다
				ENDIF
			ELSEIF TEQUIP:바이브
				PRINT 바이브가 삽입되고 있다
			ENDIF
			SELECTCASE TEQUIP:자궁
				CASE 1
					SETCOLOR C_PINK
						PRINT 자궁이 내려와 있다
					RESETCOLOR
					;리셋하지 않으면 Act_COM행과 [V]까지 핑크가 되었기 때문에 추가
				CASE 2
					FONTBOLD
					SETCOLOR C_PINK
						PRINT 자궁이 내려와 있다
					RESETCOLOR
					FONTREGULAR
			ENDSELECT
		ENDIF
		IF TEQUIP:TARGET:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈
			PRINTL
			PRINT 【애널】
			IF TCVAR:TARGET:A삽입관리플래그 == PLAYER
				IF TCVAR:A에질내사정된플래그
					PRINTFORM \@TALENT:MASTER:농후정액 ? 농후한 # \@정액을{NOWEX:TARGET:애널내정액}쏟아지고 있다
				ELSEIF !FLAG:시간정지 && !CFLAG:수면 && TALENT:TARGET:연모
					PRINTFORM %CALLNAME:MASTER%에게 %삽입상황% 삽입되고 있다
				ELSEIF CFLAG:우후후 == 2
					PRINTFORM %CALLNAME:MASTER%에게 %삽입상황% 범해지고 있다
				ELSE
					PRINTFORM %CALLNAME:MASTER%에게 %삽입상황% 범해지고 있다
				ENDIF
			ELSEIF TEQUIP:애널바이브
				PRINT 애널바이브가 삽입되고 있다
			ELSEIF TEQUIP:애널비즈
				PRINT 애널비즈가 삽입되고 있다
			ELSEIF TEQUIP:관장
				PRINT 플러그로 막혀 있다
			ELSEIF TEQUIP:확장벌룬
				PRINT 벌룬으로 확장되고 있다
			ELSEIF TEQUIP:애널전극
				PRINT 전극이 삽입되고 있다
			ENDIF
		ENDIF
		CALL LOOK_GIFT(TARGET)
	ENDIF
	IF FLAG:AA표시 && !FLAG:화상표시
		PRINTL
		CALL PRINT_AA(TARGET)
	ELSEIF FLAG:AA표시 && FLAG:화상표시
		SIF !TFLAG:LOOK비표시
			PRINTL
		CALL PRINT_TARGET_IMAGE(TARGET)
	ENDIF
	IF !TFLAG:LOOK비표시
		IF TEQUIP:PLAYER:V섹스 == TARGET || TEQUIP:PLAYER:A섹스 == TARGET
			SELECTCASE TEQUIP:MASTER:체위
				CASE 1
					삽입상황2 = 정상위로
				CASE 2
					삽입상황2 = 후배위로
				CASE 3
					삽입상황2 = 기승위로
				CASE 4
					삽입상황2 = 대면좌위로
				CASE 5
					삽입상황2 = 배면좌위로
				CASE 6
					삽입상황2 = 오나홀 같은 취급으로
				CASEELSE
					삽입상황2 =
			ENDSELECT

			PRINTL
			PRINT 【페니스】
			IF TEQUIP:PLAYER:V섹스 == TARGET
				PRINTFORM %CALLNAME:PLAYER%의 질내에 %삽입상황2% 삽입되고 있다
			ELSE
				PRINTFORM %CALLNAME:PLAYER%의 애널에 %삽입상황2% 삽입되고 있다
			ENDIF
		ENDIF
	ENDIF
ELSE
	IF !TFLAG:LOOK비표시
		;視点が大きくずれるのを防ぐためにTARGETがいないときの余白,パワプロみたいに小さい背景画でもあればいいんだけど
		FOR LOCAL, 1, 16
			PRINTL
		NEXT
	ENDIF
ENDIF

@LOOK_AT_CLOTHNAME(C_ID, E_ID)
#FUNCTIONS
#DIM C_ID;대상 캐릭터
#DIM E_ID;대상이 되는 EQUIP의 부위
SIF !EQUIP:C_ID:E_ID
	RETURNF
IF CSTR:C_ID:(50 + E_ID) != "" && !CFLAG:C_ID:파자마
	RETURNF CSTR:C_ID:(50 + E_ID)
ELSEIF EQUIPNAME:E_ID == "상반신속옷1"
	RETURNF BRANAME(EQUIP:C_ID:E_ID, C_ID)
ELSEIF EQUIPNAME:E_ID == "하반신속옷2"
	RETURNF PANTSNAME(EQUIP:C_ID:E_ID, C_ID)
ELSE
	RETURNF CLOTHNAME(E_ID, EQUIP:C_ID:E_ID)
ENDIF

;몸부위 1=V, 2=A, 3=VA 4= 자궁
@충전율(캐릭터등록번호, 몸부위)
#FUNCTION
#DIM 캐릭터등록번호
#DIM 몸부위
#DIM 정액량
#DIM 몸용량

VARSET 정액량

;해당 부위의 정액량의 취득
SELECTCASE 몸부위
	CASE 1
		정액량 = EX:캐릭터등록번호:질내정액
	CASE 2
		정액량 = EX:캐릭터등록번호:애널내정액
	CASE 3
		정액량 = EX:캐릭터등록번호:질내정액 + EX:캐릭터등록번호:애널내정액
	CASE 4
		정액량 = EX:캐릭터등록번호:자궁내정액
ENDSELECT

;해당 부위의 용량을 취득
SELECTCASE TALENT:캐릭터등록번호:체형
	CASE -5
		몸용량 = 300
	CASE -4 TO -2
		몸용량 = 600
	CASE -1
		몸용량 = 1000
	CASE 0
		몸용량 = 1200
	CASE IS > 0
		몸용량 = 1500
ENDSELECT

;자궁이라면 용량 반감
IF 몸부위 == 4
	몸용량 /= 2
ENDIF
RETURNF 100 * 정액량 / 몸용량

;배묘사
@LOOK_BELLY(ARG)
IF CFLAG:ARG:임신경과일수 >= 80
		PRINT 출산을 앞둔 배는 터질 것만 같다
ELSEIF CFLAG:ARG:임신경과일수 >= 60
		PRINT 생명을 잉태한 배는 크게 부풀어 오르고 있다
ELSEIF CFLAG:ARG:임신경과일수 >= 40
		PRINT 배가 부풀어 오르는 것이 눈에 띄기 시작했다
ELSEIF CFLAG:ARG:임신경과일수 >= 30
		PRINT 배가 부풀어 오르기 시작했다
ELSEIF 충전율(ARG,3) >= 1000
		PRINT 고간으로부터 정액이 폭포처럼 분출하고 있다
ELSEIF 충전율(ARG,3) >= 200
		PRINT 체내에 정액은 들어가 자르지 않고, 한없이 분출하고 있다
ELSEIF 충전율(ARG,3) >= 100
		PRINT 배는 정액으로 임산부와 같이 부풀어 오르고 있다
ELSEIF 충전율(ARG,3) >= 50
		PRINT 배는 정액으로 조금 부풀어 올라 버리고 있다
ENDIF


code:
;-------------------------------------------------
;함수명 :MOON_WATCH
;개요:어떤 달이 보일까를 돌려주는 함수
;ARG	DAY:3=날
;RETURN -1:월의 안보이는 상태, 0:달은 나와 있지 않은, 1:초생달, 2:이틀월, 3:초승달, 4:4~7 세월, 5:상현달, 6:9~12 세월, 7:십삼야, 8:음력 8월 14일 밤, 9:만월, 10:십육야, 11:17~22밤, 12:하현, 13:24~29밤, 14:30일월
;-------------------------------------------------
@MOON_WATCH(ARG)
#FUNCTION
;밤＋맑음＋옥외 or신사내의 실외
IF TIME:2 >= 5 && TIME:2 <= 7 && TIME:5 < 2 && MOON_WATCH_POINT(CFLAG:MASTER:현재위치)
	;달이 보이는 시간
	SELECTCASE ARG
	;초생달
	CASE 1,31
		RETURNF 1
	;이틀월(19시~20시)
	CASE 2
		SELECTCASE TIME:0
		CASE 1140 TO 1200
		RETURNF 2
		CASEELSE
		RETURNF 0
		ENDSELECT
	;초승달(19시~21시)
	CASE 3
		SELECTCASE TIME:0
		CASE 1140 TO 1260
		RETURNF 3
		CASEELSE
		RETURNF 0
		ENDSELECT
	;4, 5(19시~22시)
	CASE 4,5
		SELECTCASE TIME:0
		CASE 1140 TO 1320
		RETURNF 4
		CASEELSE
		RETURNF 0
		ENDSELECT
	;6, 7(19시~23시)
	CASE 6,7
		SELECTCASE TIME:0
		CASE 1140 TO 1380
		RETURNF 4
		CASEELSE
		RETURNF 0
		ENDSELECT
	;상현달(19시~24시)
	CASE 8
		SELECTCASE TIME:0
		CASE 1140 TO 1440
		RETURNF 5
		CASEELSE
		RETURNF 0
		ENDSELECT
	;9, 10(19시~25시)
	CASE 9,10
		SELECTCASE TIME:0
		CASE 0 TO 60,1140 TO 1440
		RETURNF 6
		CASEELSE
		RETURNF 0
		ENDSELECT
	;11, 12(19시~26시)
	CASE 11,12
		SELECTCASE TIME:0
		CASE 0 TO 120,1140 TO 1440
		RETURNF 6
		CASEELSE
		RETURNF 0
		ENDSELECT
	;십삼야(19시~27시)
	CASE 13
		SELECTCASE TIME:0
		CASE 0 TO 180,1140 TO 1440
		RETURNF 7
		CASEELSE
		RETURNF 0
		ENDSELECT
	;음력 8월 14일 밤(19시~27시 반)
	CASE 14
		SELECTCASE TIME:0
		CASE 0 TO 210,1140 TO 1440
		RETURNF 8
		CASEELSE
		RETURNF 0
		ENDSELECT
	;만월(19시~28시)
	CASE 15
		RETURNF 9
	;십육야(19시 반~28시)
	CASE 16
		SELECTCASE TIME:0
		CASE 0 TO 240,1170 TO 1440
		RETURNF 10
		CASEELSE
		RETURNF 0
		ENDSELECT
	;17, 18, 19(20시 반~28시)
	CASE 17,18,19
		SELECTCASE TIME:0
		CASE 0 TO 240,1230 TO 1440
		RETURNF 11
		CASEELSE
		RETURNF 0
		ENDSELECT
	;20, 21, 22(22시 반~28시)
	CASE 20,21,22
		SELECTCASE TIME:0
		CASE 0 TO 240,1350 TO 1440
		RETURNF 11
		CASEELSE
		RETURNF 0
		ENDSELECT
	;하현(24시~28시)
	CASE 23
		SELECTCASE TIME:0
		CASE 0 TO 240
		RETURNF 12
		CASEELSE
		RETURNF 0
		ENDSELECT
	;24, 25, 26(25시~28시)
	CASE 24,25,26
		SELECTCASE TIME:0
		CASE 60 TO 240
		RETURNF 13
		CASEELSE
		RETURNF 0
		ENDSELECT
	;27, 28, 29(26시~28시)
	CASE 27,28,29
		SELECTCASE TIME:0
		CASE 120 TO 240
		RETURNF 13
		CASEELSE
		ENDSELECT
	;30(27시 반~28시)
	CASE 30
		SELECTCASE TIME:0
		CASE 180 TO 240
		RETURNF 14
		CASEELSE
		RETURNF 0
		ENDSELECT
	ENDSELECT
	ELSE
	RETURNF -1
ENDIF

@NAME_MOON(MOON)
#FUNCTIONS
#DIM  MOON;MOON에는 DAY:3을 건네주는 것
#DIMS CONST NAME_MOON = "", "삭월", "신월", "초승달", "초승달", "상현달", "차가는 달", "십삼야", "음력 8월 14일 밤", "만월", "십육야", "기울어가는 달", "기울어가는 달", "하현달", "그믐달", "그믐달"

MOON = MAX(MOON_WATCH(MOON), 0)
SIF DAY:2 == 3 && MOON == 9
	RETURNF "보름 -중추의 명월- "
RETURNF NAME_MOON:MOON

repo_name: DNS/eraTWKR

license: mit


code:
@PRINT_STATE_JUEL(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 표시항목수

PRINTL
PRINTL □ 보주 □---------------------------------------------------------------------------
표시항목수 = 0
FOR LOCAL, 0, 22
	;PALAM.CSV에 명칭이 등록되지 않았으면 CONTINUE
	SIF !STRLENS(PALAMNAME:LOCAL)
		CONTINUE
	;1000, 1000000, 단위로 구분짓는다
	LOCALS = {JUEL:선택중캐릭터ID:LOCAL}
	SIF JUEL:선택중캐릭터ID:LOCAL > 1000000
		LOCALS = {JUEL:선택중캐릭터ID:LOCAL / 1000}k
	SIF JUEL:선택중캐릭터ID:LOCAL > 1000000000
		LOCALS = {JUEL:선택중캐릭터ID:LOCAL / 1000000}m
	PRINTFORM %PALAMNAME:LOCAL,6%의 구슬:%LOCALS, 7, LEFT%
	표시항목수 += 1
	;개행 or표시 위치 열려라
	SIF 표시항목수 % 4 == 0
		PRINTL
NEXT
;부정의 구슬
LOCALS = {JUEL:선택중캐릭터ID:100}
SIF JUEL:선택중캐릭터ID:100 > 1000000
	LOCALS = {JUEL:선택중캐릭터ID:100 / 1000}k
PRINTFORM %PALAMNAME:100,6%의 구슬:%LOCALS, 7, LEFT%

@PRINT_STATE_EX(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 표시항목수

SIF EX:선택중캐릭터ID:C절정 + EX:선택중캐릭터ID:V절정 + EX:선택중캐릭터ID:A절정 + EX:선택중캐릭터ID:B절정 + EX:선택중캐릭터ID:M절정 + EX:선택중캐릭터ID:분유 + EX:선택중캐릭터ID:사정 == 0
	RETURN 0
표시항목수 = 0
PRINTL
PRINTL □ 절정회수 □-----------------------------------------------------------------------
FOR LOCAL, 0, VARSIZE("EX")
	SIF !EX:선택중캐릭터ID:LOCAL
		CONTINUE
	SIF !GROUPMATCH(EXNAME:LOCAL, "C절정", "V절정", "A절정", "B절정", "M절정", "분유", "사정", "방뇨")
		CONTINUE
	PRINTFORM %EXNAME:LOCAL,12%:{EX:선택중캐릭터ID:LOCAL, 5, LEFT}
	표시항목수 ++
	SIF 표시항목수 % 4 == 0
		PRINTL
NEXT

@PRINT_STATE_PERSONAL(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIMS KARADAMEATE
PRINTL
PRINT □
CALL PRINTBUTTON_EX("개인정보 ",169,TFLAG:169)
PRINTL □-----------------------------------------------------------------------
PRINTL
IF !TFLAG:169
	;개인 임의수정, PRINTL 주석처리 및 마스터인 경우 성격 미표시
	; PRINTL
	SIF 선택중캐릭터ID != MASTER
		PRINTFORML 성격：%PERSONALITY_TYPE(선택중캐릭터ID)%
	IF 선택중캐릭터ID == MASTER
		IF CFLAG:MASTER:수면
			PRINTFORML 어제의 취침시각：%시각표시(CFLAG:MASTER:취침시간 - DAY * 1440)%
		ELSE
			PRINTFORML 어제의 취침시각：%시각표시(CFLAG:MASTER:취침시간 + 1440 - DAY * 1440)%
		ENDIF
		PRINTFORML 기상시각：%시각표시(TIME:3)%
		IF FLAG:지주
			PRINTFORML
			CALL SHOW_NOUMIN
		ENDIF
		IF TRAP_POINT:1 || TRAP_POINT:2 || TRAP_POINT:3
			PRINTL
			PRINTFORML ◆덫의 설치현황
			FOR LOCAL, 1, 4
				IF TRAP_POINT:LOCAL
					PRINTFORML 　덫{LOCAL}의 설치 장소：%猟場名(TRAP_POINT:LOCAL)%
					PRINTFORML 　　 　　설치일：%PRINT_DATE_F(TRAP_SETUPDATA:LOCAL)%
				ENDIF
			NEXT
		ENDIF
		IF MUSHI_TRAP
			PRINTFORML ◆벌레 트랩의 설치현황
			PRINTFORML 　 　　설치장소：%NAME_FROM_PLACE((GET_MUSHIDATA(MUSHI_TRAP, "場所")))%（%STR:((GET_MUSHIDATA(MUSHI_TRAP, "場所")) / 100 + 5000)%）
		ENDIF
	ELSE
		PRINT 활동시간대：
		IF CFLAG:선택중캐릭터ID:신사거주 || CFLAG:MASTER:현재위치 == OMANEKIBEYA()
			CALL 기상시간표시(선택중캐릭터ID)
		ELSE
			CALL 체류시간표시(선택중캐릭터ID)
		ENDIF
		IF CFLAG:선택중캐릭터ID:자주가는지역 >= 0
			PRINTFORML 자주 가는 지역 : %GET_MAPNAME(CFLAG:선택중캐릭터ID:자주가는지역)%
		ENDIF
		IF CFLAG:선택중캐릭터ID:자택위치 >= 10 && !CFLAG:선택중캐릭터ID:신사거주
			PRINT 자택 위치：
			LOCAL = CFLAG:선택중캐릭터ID:자택위치 / 100 + 5000
			PRINTFORM %STR:LOCAL%
			LOCAL = CFLAG:선택중캐릭터ID:자택위치 / 10 + 6000
			PRINTFORML 【 %STR:LOCAL% 】
		ELSEIF CFLAG:선택중캐릭터ID:신사거주
			PRINT 자택 위치：
			LOCAL = CFLAG:선택중캐릭터ID:자택위치 / 100 + 5000
			PRINTFORM %STR:LOCAL%
			LOCAL = CFLAG:선택중캐릭터ID:자택위치 + 8000
			PRINTFORML 【 %STR:LOCAL% 】
		ELSE
			PRINTL 자택 위치：■■■■■ 【 ■■■■■ 】
		ENDIF
		PRINT 업무 정보：
		PRINTFORML %CSTR:선택중캐릭터ID:일정보%
		PRINT 　 직장　：
		IF TALENT:선택중캐릭터ID:풍속양
			PRINTFORML 옛지옥온천
		ELSE
			PRINTFORML %CSVCSTR(선택중캐릭터ID, 2)%
		ENDIF
	ENDIF
ENDIF
PRINTL
IF 선택중캐릭터ID == RANDOM_CHARANUM
	;현상, 복잡한 종족 분기 등은 없음으로
	PRINTL □ 캐릭터 소개 □--------------------------------------------------------------------
	PRINTL
	PRINTFORML ∼\@ TALENT:선택중캐릭터ID:풍속양 ? # 모브 \@%CSTR:선택중캐릭터ID:모브코종족%∼　●종족：인간　●능력：%CSTR:RANDOM_CHARANUM:모브코능력%
	PRINTFORML %CSTR:RANDOM_CHARANUM:모브코프로필1%
	PRINTFORML %CSTR:RANDOM_CHARANUM:모브코프로필2%
ELSEIF CSVCSTR(선택중캐릭터ID, 10) != ""
	PRINTL □ 캐릭터 소개 □--------------------------------------------------------------------
	PRINTL
	;캐릭터 소개문을 말의 전개에 의해 개변하고 싶은 경우 「@CHARA_INFO_KOJO_KX」를 사용한다
	RESULTS =
	;구상의 존재판정 and RESULTS에 문자열 대입
	IF CFLAG:선택중캐릭터ID:구상셀렉터
		TRYCALLFORM M_KOJO_K{선택중캐릭터ID}_{CFLAG:선택중캐릭터ID:구상셀렉터}
	ELSE
		TRYCALLFORM M_KOJO_K{선택중캐릭터ID}
	ENDIF
	RESULT = 0
	TRYCALLFORM CHARA_INFO_KOJO%RESULTS%_K{선택중캐릭터ID}
	IF !RESULT
		FOR LOCAL,10,20
			SIF CSVCSTR(선택중캐릭터ID, LOCAL) != ""
				PRINTFORML %CSVCSTR(선택중캐릭터ID, LOCAL, )%
		NEXT
	ENDIF
ENDIF
SETCOLOR C_YELLOW
IF 선택중캐릭터ID == MASTER && FLAG:생활능력무
	PRINTFORML 답이 없는 무능력자다
	PRINTFORML
ENDIF
SETCOLOR C_PINK
IF CFLAG:선택중캐릭터ID:인계
	SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 0)
		PRINTFORML %마스터와% 묘햔 인연이 있다
	SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 1)
		PRINTFORML %마스터와% 끈끈한 인연이 있다
	SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 7) ;KR판 오리지날
		PRINTL 이전 회차에서 아내가 되었던 적이 있다
ENDIF
IF 선택중캐릭터ID == MASTER
	IF HOW_아내() ;KR판 오리지날 아내
		LOCAL:3 = 1
		FOR LOCAL:1, 1, CHARANUM
			IF IS_아내(LOCAL:1)
				SIF !(LOCAL:3 % 15)
					PRINTL
				LOCAL:3 ++
				PRINTFORM ［%CALLNAME:(LOCAL:1)%］
			ENDIF
		NEXT
		PRINTFORML 와 부부 사이다
	ENDIF
	IF TALENT:선택중캐릭터ID:연인
		LOCAL:3 = 1
		FOR LOCAL:1, 1, CHARANUM
			IF TALENT:(LOCAL:1):연인 && !IS_아내(LOCAL:1)
				SIF !(LOCAL:3 % 15)
					PRINTL
				LOCAL:3 ++
				PRINTFORM ［%CALLNAME:(LOCAL:1)%］
			ENDIF
		NEXT
		PRINTFORML 와 사랑하는 사이다
	ENDIF
ENDIF
SIF CFLAG:선택중캐릭터ID:깨끗한교제
	PRINTFORML 깨끗한 교제를 거쳐 %마스터와% 사랑하는 사이가 되었다
SIF CFLAG:선택중캐릭터ID:기정사실 & 합의_키스
	PRINTFORML %CALLNAME:MASTER%에 입술을 허락하고 있다
IF CFLAG:선택중캐릭터ID:기정사실 & 합의_우후후
	PRINTFORML %CALLNAME:MASTER%에 몸을 허락하고 있다
ELSEIF CFLAG:선택중캐릭터ID:대주고말았다
	PRINTFORML 분위기 타서 행위에 이른 적은 있지만, %CALLNAME:MASTER%에게 몸을 허락할 마음은 없다
ENDIF
SIF TALENT:선택중캐릭터ID:처녀 && TALENT:선택중캐릭터ID:걸레
	PRINTFORML 일단 처녀지만, 요구받으면 간단하게 몸을 내줄 것이다
IF CFLAG:선택중캐릭터ID:몸목적
	IF TALENT:선택중캐릭터ID:체형 == -2
		KARADAMEATE = 그 어린
	ELSEIF TALENT:선택중캐릭터ID:가슴사이즈 > 0
		KARADAMEATE = 그 풍만한
	ELSEIF TALENT:선택중캐릭터ID:처녀 > 0
		KARADAMEATE = 그 때묻지 않은
	ELSE
		KARADAMEATE = 그 싱그러운
	ENDIF
	PRINTFORML %CALLNAME:MASTER%에게 %KARADAMEATE%몸을 노림받고 있다
ENDIF
RESETCOLOR
IF TALENT:선택중캐릭터ID:연모
	IF TALENT:선택중캐릭터ID:무지
		PRINTFORML %CALLNAME:선택중캐릭터ID%는 %CALLNAME:MASTER%의 색시가 되겠다고 남몰래 마음먹고 있다
	ELSEIF !CFLAG:선택중캐릭터ID:기정사실 & 합의_우후후
		IF TALENT:선택중캐릭터ID:정조 > 0
			PRINTFORML 육체 관계는 행실이 좋지 못한 짓이라고 여김에도 불구하고, %CALLNAME:선택중캐릭터ID%는 마음속으론 %마스터와% 몸을 섞고 싶다고 생각 중이다
		ELSE
			PRINTFORML %마스터가% 아직도 손을 대지 않는 데에 짜증과 불안을 느끼고 있다
		ENDIF
	ENDIF
ENDIF
IF TALENT:선택중캐릭터ID:임신소망
	IF !CFLAG:선택중캐릭터ID:안면
	ELSEIF CFLAG:선택중캐릭터ID:생해금 == 2
		PRINTFORML %CALLNAME:MASTER%의 아이를 갖고 싶다고 생각하고 있다.
	ELSE
		PRINTFORML 뚜렷하게 인식하고 있지는 않지만,%CALLNAME:MASTER%의 아이를 갖고 싶다고 느끼고 있다.
	ENDIF
ENDIF
CALL Valentine_History(선택중캐릭터ID)
PRINTFORML
PRINTL □ 탄막스킬 □-----------------------------------------------------------------------
; 개인 임의수정, 빈줄 한칸 추가
PRINTL
CALL DANMAKU_OPPONENT_STATUS(선택중캐릭터ID, 1)

@체류시간표시(선택중캐릭터ID)
#DIM 선택중캐릭터ID

IF CFLAG:선택중캐릭터ID:내방시간 < CFLAG:선택중캐릭터ID:귀가시간
	PRINTFORML {CFLAG:선택중캐릭터ID:내방시간 / 60}시～{CFLAG:선택중캐릭터ID:귀가시간 / 60}시
ELSE
	PRINTFORML {CFLAG:선택중캐릭터ID:내방시간 / 60}시～다음 {CFLAG:선택중캐릭터ID:귀가시간 / 60}시
ENDIF

@기상시간표시(선택중캐릭터ID)
#DIM 선택중캐릭터ID

IF CFLAG:선택중캐릭터ID:기상시간 < CFLAG:선택중캐릭터ID:취침시간
	PRINTFORML {CFLAG:선택중캐릭터ID:기상시간 / 60}시～{CFLAG:선택중캐릭터ID:취침시간 / 60}시
ELSE
	PRINTFORML {CFLAG:선택중캐릭터ID:기상시간 / 60}시～다음 {CFLAG:선택중캐릭터ID:취침시간 / 60}시
ENDIF

@육체정보(선택중캐릭터ID)
#DIM 선택중캐릭터ID
VARSET LOCALS
VARSET LOCAL
PRINTL
PRINTL □ 육체 정보 □-----------------------------------------------------------------------
PRINTL
PRINTL 【입】
PRINTFORM 첫키스 이력：
;IF !EXP:선택중캐릭터ID:키스경험
IF TALENT:선택중캐릭터ID:키스미경험
	SELECTCASE CFLAG:선택중캐릭터ID:첫키스상실대상
		CASE 0
			CALL COLORMESSAGE(@"아직 누구에게도 입술을 허락하지 않았다", C_YELLOW, 1)
		CASE 1
			CALL COLORMESSAGE(@"%CSTR:선택중캐릭터ID:첫키스상실이력%", C_PINK, 1)
		CASE 2
			CALL COLORMESSAGE(@"아직 누구에게도 입술을 허락하지 않았다", C_YELLOW, 1)
			PRINTFORM 고 알고 있지만, 사실은
			CALL COLORMESSAGE(@"%CSTR:선택중캐릭터ID:첫키스상실이력%", C_PINK, 1)
	ENDSELECT
ELSEIF CFLAG:선택중캐릭터ID:첫키스상실기념일
	IF STRFIND(CSTR:선택중캐릭터ID:첫키스상실이력, "\BR") > 0
		LOCAL = RESULT
		SPLIT CSTR:선택중캐릭터ID:첫키스상실이력, "\BR", LOCALS
		CALL COLORMESSAGE(@"%LOCALS:0%", C_PINK, 1)
		PRINTFORM 고 생각하고 있지만, 사실은
		CALL COLORMESSAGE(@"%LOCALS:1%", C_PINK, 1)
		RESULT = LOCAL
		VARSET LOCALS
	ELSE
		CALL COLORMESSAGE(@"%CSTR:선택중캐릭터ID:첫키스상실이력%", C_PINK, 1)
	ENDIF
ELSE
	CALL COLORMESSAGE(@"%마스터를% 만나기 전에 잃었다", C_AQUA, 1)
	;라고 생각하는데…
ENDIF

SIF EXP:선택중캐릭터ID:키스경험
	PRINTFORML 지금까지 {EXP:선택중캐릭터ID:키스경험}회의 입맞춤을 경험했다
SIF CFLAG:선택중캐릭터ID:누계정음
	PRINTFORML 지금까지 {CFLAG:선택중캐릭터ID:누계정음}의 정액을 삼켰다
IF EXP:선택중캐릭터ID:정음경험 > 300 && ABL:선택중캐릭터ID:정액중독 >= 10
	PRINTFORML 정액을 삼키는 것만으로도 완전히 발정한 몸이 되었다
ELSEIF EXP:선택중캐릭터ID:정음경험 > 150 && ABL:선택중캐릭터ID:정액중독 >= 5
	PRINTFORML 정액을 맛보면 몸이 달아오른다
ELSEIF TALENT:선택중캐릭터ID:정애미각
	PRINTFORML 정액 맛에 흥분을 금치 못한다
ELSEIF ABL:선택중캐릭터ID:정액중독 >= 3
	PRINTFORML 정액을 저항감 없이 먹을 수 있다
ENDIF
SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 6)
	PRINTFORML 어떡해야 느끼는지 %CALLNAME:MASTER%에게 속속들이 파악당했다
IF 선택중캐릭터ID == MASTER
	IF ABL:선택중캐릭터ID:혀 >= 5
		PRINTFORML 탁월한 혀 기술로 소녀를 사로잡는다
	ELSEIF ABL:선택중캐릭터ID:혀 >= 3
		PRINTFORML 교묘한 혀놀림으로 소녀에게 기쁨을 준다
	ENDIF
ELSEIF EXP:선택중캐릭터ID:키스경험 ;KR판 오리지날 또는 구잔재
	SELECTCASE ABL:선택중캐릭터ID:M감각
		CASE IS >= 10
			PRINTL 감도 발군 입만 맞추어도 성욕에 지배당할지 모른다
		CASE IS >= 5
			PRINTL 감도 양호 혀를 넣으면 저항하지 못한다
	ENDSELECT
ENDIF
PRINTL
PRINTL 【가슴】
SELECTCASE ABL:선택중캐릭터ID:B감각
	CASE IS >= 10
		PRINTL 감도 발군
	CASE IS >= 5
		PRINTL 감도 양호
ENDSELECT
IF TALENT:선택중캐릭터ID:음유
	PRINT 완전히 조교가 끝난
	IF TALENT:선택중캐릭터ID:가슴사이즈 < 0
		PRINT 가슴
	ELSE
		PRINT 유방
	ENDIF
	PRINTFORML 은 한 번 어루만지기만 해도 몸을 가누지 못할 수준이다
ENDIF

SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 5)
	PRINTFORML 어떡해야 느끼는지 %CALLNAME:MASTER%에게 속속들이 파악당한
SIF CFLAG:선택중캐릭터ID:누계뿌려짐
	PRINTFORML 지금까지 {CFLAG:선택중캐릭터ID:누계뿌려짐}의 정액에 범벅된
IF TALENT:선택중캐릭터ID:모유체질
	;PRINTFORML \@ ABL:선택중캐릭터ID:분유중독 >= 3 ? 단맛 나는 젖이 듬뿍 담겨 있다# 자극해주면 단맛 나는 젖이 배어나올 것이다\@
	PRINTFORML 자극해주면 단맛 나는 젖이 배어나올 것이다
ENDIF
SELECTCASE ABL:선택중캐릭터ID:가슴 ;KR판 구잔재 또는 오리지날. 일판은 공란임.
	CASE IS >= 5
		IF TALENT:선택중캐릭터ID:가슴사이즈 < 0
			PRINTFORML 그 가슴은, 이제 성기를 자극하기 위해 존재한다
		ELSE
			PRINTFORML 그 유방은, 이제 성기로 변하고 말았다
		ENDIF
	CASE IS >= 3
		IF TALENT:선택중캐릭터ID:가슴사이즈 < 0
			PRINTFORML 그 가슴은, 남근을 자극하는 방법을 알고 있다
		ELSE
			PRINTFORML 그 유방은, 정액을 짜내는 방법을 단단히 익히고 있다
		ENDIF
ENDSELECT
PRINTL

PRINTL 【손가락】
SELECTCASE ABL:선택중캐릭터ID:손가락
	CASE IS >= 5
		PRINT 흉기
	CASE IS >= 3
		PRINT 달인
ENDSELECT
IF 선택중캐릭터ID == MASTER
	IF ABL:선택중캐릭터ID:손가락 >= 5
		PRINTFORML 낭창한 손가락의 애무는 금방 소녀를 황홀경에 빠트린다
	ELSEIF ABL:선택중캐릭터ID:손가락 >= 3
		PRINTFORML 교묘한 손가락질로 소녀에게 기쁨을 준다
	ENDIF
ENDIF
PRINTL
PRINTL 【애널】
PRINTFORM 애널처녀상실이력：
IF CSTR:선택중캐릭터ID:애널처녀상실이력 != ""
	CALL COLORMESSAGE(@"%CSTR:선택중캐릭터ID:애널처녀상실이력%", C_PINK, 1)
ELSEIF !EXP:선택중캐릭터ID:A성교경험
	CALL COLORMESSAGE(@"아직 아무도 받아들이지 않았다", C_YELLOW, 1)
ELSE
	PRINTFORML
ENDIF
SELECTCASE ABL:선택중캐릭터ID:A감각
	CASE IS >= 10
		PRINT 감도 발군
	CASE IS >= 5
		PRINT 감도 양호
ENDSELECT
SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 4)
	PRINTFORML 어떡해야 느끼는지 %CALLNAME:MASTER%에게 속속들이 파악당한
IF 선택중캐릭터ID
	SELECTCASE 삽입불가(선택중캐릭터ID)
		CASE 3
			PRINTFORML 도저히 %CALLNAME:MASTER%의 페니스를 받아들일 만한 사이즈가 아니다
			LOCAL:6 ++
		CASE 2
			IF EXP:선택중캐릭터ID:A경험 < 50 && TALENT:MASTER:금단의지식
				PRINTFORML 좀 더 풀어놓지 않으면 %CALLNAME:MASTER%의 페니스는 들어가지 않을 것이다
				LOCAL:6 ++
			ELSEIF !TALENT:MASTER:금단의지식
				PRINTFORML %CALLNAME:MASTER%의 페니스를 삽입하는 짓은 가혹할 것이다
				LOCAL:6 ++
			ENDIF
		CASE 1
			IF EXP:선택중캐릭터ID:A경험 < 50 || !TALENT:MASTER:금단의지식
				PRINTFORML 좀 더 풀어놓지 않으면 %CALLNAME:MASTER%의 페니스는 들어가지 않을 것이다
				LOCAL:6 ++
			ENDIF
		CASE -1
			IF ABL:선택중캐릭터ID:애널 < 2
				PRINTFORML %CALLNAME:MASTER%의 페니스로는 다소 사이즈가 맞지 않는다
				LOCAL:6 ++
			ENDIF
		CASE -2
			IF ABL:선택중캐릭터ID:애널 < 3
				PRINTFORML 너무 커서 넣어봤자 별로 기분 좋지 않을 것 같다…
				LOCAL:6 ++
			ENDIF
	ENDSELECT
	SELECTCASE ABL:선택중캐릭터ID:애널
		CASE IS >= 5
			PRINTL 극상 명기
			PRINTFORML 완전히 %CALLNAME:MASTER%의 형태대로 다시 만들어진 애널은 살주름을 벌름거리며 엉겨든다
		CASE IS >= 3
			PRINTL 명기
			PRINTFORML 자주 쓴 보람이 있어 매우 박음직한 구멍이 되었다
		CASE 2
			PRINTFORML %마스터를% 받아들이는 데에 익숙해져버렸다
		CASE 1
			PRINTL 풀어지기 시작해 박을 맛이 나기 시작했다
		CASE 0
			IF !CFLAG:선택중캐릭터ID:애널처녀상실기념일
;				PRINTL 미개통
			ELSEIF EXP:선택중캐릭터ID:A경험 < 20
					PRINTL 아직 이물을 받아들이는 데에 익숙해지지 않았다
			ENDIF
	ENDSELECT
ENDIF
SIF CFLAG:선택중캐릭터ID:누계애널정액
	PRINTFORML 지금까지 {CFLAG:선택중캐릭터ID:누계애널정액}의 정액을 쏟아부었다

SELECTCASE ABL:선택중캐릭터ID:항내사정중독
	CASE IS >= 10 ;KR판 오리지날 또는 구잔재
		PRINTFORML 애널 내 사정 받으면 정신을 못 차리고 펄떡거린다
	CASE IS >= 7
		PRINTFORML 애널 내 사정 받으면 행복감을 느낀다
	CASE IS >= 3
		PRINTFORML 애널 내 사정 받으면 장내가 달아오른다
ENDSELECT

IF ABL:선택중캐릭터ID:A감각 >= 10 && CFLAG:선택중캐릭터ID:욕구불만도 > 800 && 선택중캐릭터ID
	;KR판 구잔재
	PRINTFORML %CALLNAME:MASTER%에 안기는 것을 상상해 항문이 실룩실룩 개폐하고 있다
ELSEIF ABL:선택중캐릭터ID:A감각 >= 5 && CFLAG:선택중캐릭터ID:욕구불만도 > 300 && 선택중캐릭터ID
	PRINTFORML %CALLNAME:MASTER%에 안기고 싶어서 근질근질하고 있다
ENDIF

IF 충전율(선택중캐릭터ID, 2) >= 1000
	;KR판 구잔재
	PRINTFORML 인간세상 밖의 사정에 노출되어 직장은 커녕 그 안쪽까지도 정액으로 채워지고 있다
ELSEIF 충전율(선택중캐릭터ID, 2) >= 200
	;KR판 구잔재
	PRINTFORML 직장은 정자로 완전하게 만배가 되어, 항문으로부터 조금씩 빠지고 내고 있는
ELSEIF 충전율(선택중캐릭터ID, 2) >= 100
	PRINTFORML 직장은 중량감을 느낄 정도의 양의 정액으로 완전하게 채워지고 있다
ELSEIF 충전율(선택중캐릭터ID, 2) >= 50
	PRINTFORML 직장으로 엄청난 수의 정자가 꿈틀거리고 있는
ELSEIF 충전율(선택중캐릭터ID, 2) >= 20
	PRINTFORML 직장으로 정자가 건강하게 헤엄쳐 돌고 있다
ENDIF

PRINTL
IF TALENT:선택중캐릭터ID:2 & 1
	PRINTL 【질】
	PRINTFORM 처녀상실이력：
	IF CFLAG:선택중캐릭터ID:처녀상실기념일
		CALL COLORMESSAGE(@"%CSTR:선택중캐릭터ID:처녀상실이력%", C_PINK, 1)
	ELSEIF !CSVTALENT(선택중캐릭터ID, GETNUM(TALENT, "처녀")) && TALENT:선택중캐릭터ID:처녀 == 1
		CALL COLORMESSAGE(@"세계선이 바뀌고 아무도 받아들이지 않았다", C_YELLOW, 1)
	ELSEIF !CSVTALENT(선택중캐릭터ID, GETNUM(TALENT, "처녀"))
		CALL COLORMESSAGE(@"%마스터를% 만나기 전에 잃었다", C_AQUA, 1)
	ELSE
		IF TALENT:선택중캐릭터ID:처녀 == 1
			SIF ABL:선택중캐릭터ID:V감각 >= 10 & (TALENT:LOCAL:150 || TALENT:LOCAL:151) && !TALENT:LOCAL:초경 ;KR판 구잔재
				LOCALS:0 = 데도 불구하고, 자궁은 완전하게 암컷으로서 음란에 꽃 열려 있다
			SIF ABL:선택중캐릭터ID:V감각 >= 5
				LOCALS:0 = 데도 불구하고, 자극이 주어지면 용이하게 절정 할 만큼 추잡하게 개발되고 있다
			CALL COLORMESSAGE(@"아직 한 명도 받아들인 적이 없는 %LOCALS:0%", C_YELLOW, 1)
		ELSEIF TALENT:선택중캐릭터ID:처녀 == -1
			CALL COLORMESSAGE(@"벌써 처녀를 빼앗긴 사실을 깨닫지 못한", C_PINK, 1)
		ENDIF
	ENDIF

	SELECTCASE ABL:선택중캐릭터ID:V감각
		CASE IS >= 10
			PRINT 감도 발군
		CASE IS >= 5
			PRINT 감도 양호
	ENDSELECT
	SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 3)
	PRINTFORML 어떡해야 느끼는지 %CALLNAME:MASTER%에게 속속들이 파악당한
	IF 선택중캐릭터ID
		SELECTCASE 삽입불가(선택중캐릭터ID)
			CASE 3
				PRINTFORML 도저히 %CALLNAME:MASTER%의 페니스를 받아들일 만한 사이즈가 아니다
				LOCAL:5 ++
			CASE 2
				IF EXP:선택중캐릭터ID:V경험 < 50 && TALENT:MASTER:금단의지식
					PRINTFORML 좀 더 풀어놓지 않으면 %CALLNAME:MASTER%의 페니스는 들어가지 않을 것이다
					LOCAL:5 ++
				ELSEIF !TALENT:MASTER:금단의지식
					PRINTFORML %CALLNAME:MASTER%의 페니스를 삽입하는 짓은 가혹할 것이다
					LOCAL:5 ++
				ENDIF
			CASE 1
				IF EXP:선택중캐릭터ID:V경험 < 50 || !TALENT:MASTER:금단의지식
					PRINTFORML 좀 더 풀어놓지 않으면 %CALLNAME:MASTER%의 페니스는 들어가지 않을 것이다
					LOCAL:5 ++
				ENDIF
			CASE -1
				IF ABL:선택중캐릭터ID:질 < 2
					PRINTFORML %CALLNAME:MASTER%의 페니스로는 다소 사이즈가 맞지 않는다
					LOCAL:5 ++
				ENDIF
			CASE -2
				IF ABL:선택중캐릭터ID:질 < 3
					PRINTFORML 너무 커서 넣어봤자 별로 기분 좋지 않을 것 같다…
					LOCAL:5 ++
				ENDIF
		ENDSELECT
		IF ABL:선택중캐릭터ID:V감각 >= 10 && CFLAG:선택중캐릭터ID:욕구불만도 > 800 && 선택중캐릭터ID ;KR판 구잔재
			PRINTFORML %CALLNAME:MASTER%에 관철해지는 것을 상상해 자궁이 큥큥하고 쑤시고 있다
		ELSEIF ABL:선택중캐릭터ID:V감각 >= 5 && CFLAG:선택중캐릭터ID:욕구불만도 > 300 && 선택중캐릭터ID ;KR판 구잔재
			PRINTFORML %CALLNAME:MASTER%에 안기고 싶어서 근질근질하고 있다
		ENDIF
		IF !LOCAL:5
			SELECTCASE ABL:선택중캐릭터ID:질
				CASE IS >= 5
					PRINTL 극상 명기
					IF TALENT:선택중캐릭터ID:처녀 == -1
						PRINTFORML 당사자가 관련이 있지 못한 채, %마스터를% 기쁘게 하기 위할 뿐인 구멍으로 변했다
					ELSE
						PRINTFORML 완전하게 %CALLNAME:MASTER%의 모양에 다시 만들 수 있었던 질내는 고기주름을 벌름거릴 수 있어 관련되어 따라 온다
					ENDIF
				CASE IS >= 3
					PRINTL 명기
					IF TALENT:선택중캐릭터ID:처녀 == -1
						PRINTFORML 알지 못하는 새에 %마스터를% 기분 좋게 만들기 위한 구멍으로 재구성되었다
					ELSE
						PRINTFORML 사용한 보람이 있어 매우 맛 좋은 구멍이 되었다
					ENDIF
				CASE 2
					PRINTFORML %마스터를% 받아들이는 것에 익숙해져 있다
				CASE 1
					PRINTL 자포자기해 처음으로 상태가 좋아져 왔다
				CASE 0
					;IF EXP:선택중캐릭터ID:V경험
					IF TALENT:선택중캐릭터ID:처녀 == 1
						PRINTL 성을 모르는 미사용의 질
					ELSEIF EXP:선택중캐릭터ID:V경험 < 10
						PRINTL 성을 알아 어른의 계단을 조심조심 오르기 시작한지 얼마 안된 질은 강하게 매달려 온다
					ELSEIF EXP:선택중캐릭터ID:V경험 < 20
						PRINTL 미사용에 가까운 질은 아직 딱딱함을 남기고 있다
					ENDIF
			ENDSELECT
		ENDIF
	ENDIF

	SIF CFLAG:선택중캐릭터ID:누계질내정액
		PRINTFORML 지금까지 {CFLAG:선택중캐릭터ID:누계질내정액}의 정액을 쏟아졌다
	SELECTCASE ABL:선택중캐릭터ID:질내사정중독
		CASE IS >= 10 ;KR판 구잔재
			PRINTFORML 질내사정 받으면 간단하게 절정에 이른다
		CASE IS >= 7
			PRINTFORML 질내사정 받으면 행복감을 느낀다
		CASE IS >= 3
			PRINTFORML 질내사정 받으면 자궁이 달아오른다
	ENDSELECT

	SIF ABL:선택중캐릭터ID:V감각 >= 5 && CFLAG:선택중캐릭터ID:욕구불만도 > 300 && 선택중캐릭터ID
			PRINTFORML %CALLNAME:MASTER%에 안기고 싶어서 근질근질하고 있다
	SIF CFLAG:선택중캐릭터ID:육아중해금 == 1 ;KR판 구잔재
		PRINTFORML 항상 정액을 갖고 싶어하는 음탕한 자궁에 져 무제한의 생 SEX 허가를 내고 있다

	PRINTFORML
	SIF TALENT:선택중캐릭터ID:포르치오성감 ;KR판 구잔재
		PRINTFORML 자궁을 찔리면 절정하기까지 개발되고 있다
	SIF CFLAG:선택중캐릭터ID:억지로질내사정
		PRINTFORML %CALLNAME:MASTER%에 억지로 질내사정되었던 적이 있다
	SIF CFLAG:선택중캐릭터ID:수면간 == 1
		PRINTFORML %CALLNAME:MASTER%에 자고 있는 동안에 장난 되었던 적이 있다
	SIF CFLAG:선택중캐릭터ID:수면간 == 2
		PRINTFORML %CALLNAME:MASTER%에 자고 있는 동안에 범해졌던 적이 있다
	IF CFLAG:선택중캐릭터ID:만취간 == 2
		PRINTFORML %CALLNAME:MASTER%에 취해 부서지고 있는 곳(중)을 범해졌던 적이 있다
	ELSEIF CFLAG:선택중캐릭터ID:만취간 == 1
		PRINTFORML %CALLNAME:MASTER%에 취해 부서지고 있는 곳(중)을 범해졌던 적이 있지만 눈치채지 않았다
	ENDIF

	IF 충전율(선택중캐릭터ID, 1) >= 1000
	;KR판 구잔재
		PRINTFORML 인외의 사정에 노출되어 아이를 잉태한 것과 같이 확장되고 있다
	ELSEIF 충전율(선택중캐릭터ID, 1) >= 200
	;KR판 구잔재
		PRINTFORML 자궁은 %CALLNAME:MASTER%의 정액으로 확장되어 다 들어가지 못한 정액이 질구로부터 흘러넘치고 있다
	ELSEIF 충전율(선택중캐릭터ID, 1) >= 100
		PRINTFORML 질내는 %CALLNAME:MASTER%의 정액으로 완전하게 채워지고 있다
	ELSEIF 충전율(선택중캐릭터ID, 1) >= 50
		PRINTFORML 질내에서 엄청난 수의 정자가 꿈틀거리고 있는
	ELSEIF 충전율(선택중캐릭터ID, 1) >= 20
		PRINTFORML 질내에서 정자가 건강하게 헤엄쳐 돌고 있다
	ELSEIF CFLAG:선택중캐릭터ID:생리주기 == 7 && FLAG:생리주기가시화 && 임신가부(선택중캐릭터ID)
		PRINTFORML 위험일의 자궁은 싱싱한 난자를 준비해 수정을 기다리고 있다
	ENDIF
	IF 선택중캐릭터ID == MASTER && EX:선택중캐릭터ID:자궁내정액
		PRINTFORML %CALLNAME:MASTER%의 자궁 내 정액내역
		FOR LOCAL,1,CHARANUM
			SIF !TCVAR:LOCAL:씨받이양
				CONTINUE
			SIF TCVAR:LOCAL:씨받이양 > 100
				SETCOLOR C_YELLOW
			PRINTFORMLC %CALLNAME:LOCAL%{TCVAR:LOCAL:씨받이양}
			RESETCOLOR
		NEXT
		PRINTFORML
	ENDIF
	;PRINTFORML {EX:선택중캐릭터ID:자궁내정액}
	IF TALENT:선택중캐릭터ID:임신
		IF CFLAG:선택중캐릭터ID:임신경과일수 < 10
			PRINTFORML 생리가 멈춘 상태다
		ELSE
			PRINTFORML 자궁 내에서는 %마스터와%의 아이가 무럭무럭 크고 있다
			PRINTFORML 현재 임신 {CFLAG:선택중캐릭터ID:임신경과일수}일째다
			CALL LOOK_BELLY(선택중캐릭터ID)
			SIF INRANGE(CFLAG:선택중캐릭터ID:임신경과일수, 10,15)
					PRINT 아직 겉모습에서 변화는 찾아볼 수 없다
			PRINTL
		ENDIF
	ENDIF
ENDIF

SIF 선택중캐릭터ID == MASTER
	CALL 응편력(MASTER)

@응편력(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 잠정1위의상대
#DIM 잠정1위의양
#DIM 잠정1위의종류
SIF !GETBIT(TALENT:선택중캐릭터ID:2, 1)
	RETURN
PRINTL 【남성기】
SELECTCASE TALENT:선택중캐릭터ID:형상
CASE 1
	LOCALS = 어린애 같이 깜찍한
CASE 2
	LOCALS = 허접한
CASE 3
	LOCALS = 별 특징 없는
CASE 4
	LOCALS = 빛이 나는
CASE 5
	LOCALS = 돌기투성이의
CASE 6
	LOCALS = 장대한
ENDSELECT
PRINTFORM %CALLNAME:선택중캐릭터ID%의 %LOCALS% 페니스는
LOCAL:1 = SUMCARRAY(CFLAG:LOCAL:누계정음,       1, CHARANUM)
LOCAL:2 = SUMCARRAY(CFLAG:LOCAL:누계뿌려짐,   1, CHARANUM)
LOCAL:3 = SUMCARRAY(CFLAG:LOCAL:누계질내정액,   1, CHARANUM)
LOCAL:4 = SUMCARRAY(CFLAG:LOCAL:누계애널정액, 1, CHARANUM)
IF !TALENT:PLAYER:1
	PRINTFORML 미사용이다
ELSE
	SIF FLAG:처녀식
		PRINTFORML 지금까지 {FLAG:처녀식}명의 처녀를 뚫고,
	PRINTFORML 소녀들의 입 안에다 {LOCAL:1}, 몸에다 {LOCAL:2}, 질내에다 {LOCAL:3}, 애널에다 {LOCAL:4}의 정액을 토해내왔다
	;각 사정 시츄의 최대치 조사
	;→무엇보다 대량으로 낸 시츄의 결정
	;→무엇보다 대량으로 낸 상대의 결정
	LOCAL:1 = MAXCARRAY(CFLAG:LOCAL:누계정음,       1, CHARANUM)
	LOCAL:2 = MAXCARRAY(CFLAG:LOCAL:누계뿌려짐,     1, CHARANUM)
	LOCAL:3 = MAXCARRAY(CFLAG:LOCAL:누계질내정액,   1, CHARANUM)
	LOCAL:4 = MAXCARRAY(CFLAG:LOCAL:누계애널정액,   1, CHARANUM)
	잠정1위의양 = 0
	FOR LOCAL:0, 1, 5
		SIF 잠정1위의양 > LOCAL:(LOCAL:0)
			CONTINUE
		잠정1위의종류 = LOCAL:0
		잠정1위의양   = LOCAL:(LOCAL:0)
	NEXT
	SELECTCASE 잠정1위의종류
	CASE 1
		잠정1위의상대 = FINDCHARA(CFLAG:LOCAL:누계정음,       LOCAL:1, 1, CHARANUM)
		LOCALS = 입 안을
	CASE 2
		잠정1위의상대 = FINDCHARA(CFLAG:LOCAL:누계뿌려짐,   LOCAL:2, 1, CHARANUM)
		LOCALS = 몸을
	CASE 3
		잠정1위의상대 = FINDCHARA(CFLAG:LOCAL:누계질내정액,   LOCAL:3, 1, CHARANUM)
		LOCALS = 질내를
	CASE 4
		잠정1위의상대 = FINDCHARA(CFLAG:LOCAL:누계애널정액, LOCAL:4, 1, CHARANUM)
		LOCALS = 애널을
	ENDSELECT
	SIF 잠정1위의양 > 0
	PRINTFORML 특히 %CALLNAME:잠정1위의상대%의 %LOCALS%을 애호한다
ENDIF
SIF FLAG:스침잉태수
	PRINTFORML 스친 인연을 임신시킨 수：{FLAG:스침잉태수}명
SIF TALENT:MASTER:무녀잉태
	PRINTL 무녀를 임신시킨 천벌받을 페니스다
SIF TALENT:MASTER:요정잉태
	PRINTL 요정을 임신시킨 범죄적인 페니스다
SIF TALENT:MASTER:요괴잉태
	PRINTL 요괴를 임신시킨 겁 모르는 페니스다
SIF TALENT:MASTER:텐구잉태
	PRINTL 텐구를 임신시킨 신속의 페니스다
SIF TALENT:MASTER:오니잉태
	PRINTL 오니를 임신시킨 오니 잡는 페니스다
SIF TALENT:MASTER:츠쿠모가미잉태
	PRINTL 츠쿠모가미를 임신시킨 가리는 게 없는 페니스다
SIF TALENT:MASTER:신령잉태
	PRINTL 신령을 임신시킨 신도 두려워하지 않는 페니스다
SIF TALENT:MASTER:봉래잉태
	PRINTL 봉래인조차 임신시킨 시간을 초월한 페니스다
SIF TALENT:MASTER:만능잉태
	PRINTL 기계든 유령이든 간에 어떠한 소녀라도 임신시키는 인지를 초월한 페니스다
SIF TALENT:MASTER:농후정액
	PRINTFORML 며칠분의 정력을 모아둔 페니스는 숨막히는 수컷 냄새를 풍기고 있다
;MASTER 결정 치는 것으로 괜찮지 않아? 그리고 개인적 취미로 후타나리에게 불알은 없다
SIF BASE:선택중캐릭터ID:정력 >= 1500 && !GETBIT(TALENT:선택중캐릭터ID:성별, 0)
	PRINTL 묵직한 음낭에는 대량의 정자가 저장되어 있다

@임신관련(ARG)
PRINTL
PRINTL □ 임신 관련 □-----------------------------------------------------------------------
;PRINTL
;PRINTFORM 전회 체내 사정량 : {EX:ARG:14}
;PRINTL
PRINTFORM 임신 후 경과시간: {CFLAG:ARG:903}
;CFLAG:ARG:903 = 40
;PRINTL
;PRINTFORM 자각 : {CFLAG:(ARG):910}
;PRINTL
;PRINTFORM 무자각 임신 : {CFLAG:ARG:무자각임신}
PRINTL
PRINTFORM 현재 육아중 자식 수 : {CFLAG:ARG:육아인원수}
PRINTL
PRINTFORM 현재 육아 경과 시간 : {CFLAG:ARG:908}
PRINTFORML
PRINTFORM 　　　　　아이의 수 : {CFLAG:ARG:아이인원수}
PRINTFORML
IF CFLAG:ARG:아이인원수
	CALL SHOW_CHILDDATA(ARG)
ENDIF

@예정
#DIM 의뢰번호

PRINTL □ 예정 □---------------------------------------------------------------------------
PRINTL
SELECTCASE FLAG:포부
	CASE 1
		LOCALS = 자위 장려
	CASE 2
		LOCALS = 동성애 추진
	CASE 3
		LOCALS = 암컷 구멍 개척
	CASE 4
		LOCALS = 항문개발
	CASE 5
		LOCALS = 유협진흥
	CASE 6
		LOCALS = 자손번영
	CASE 9
		LOCALS = 자손번영
ENDSELECT
IF FLAG:포부
	PRINTFORML 올해의 포부: %LOCALS%
	PRINTL
ENDIF
IF FLAG:연회개최플래그
	IF FLAG:개시일 - DAY <= 0
		PRINT 오늘
	ELSE
		PRINTFORM {FLAG:개시일 - DAY}일 후
	ENDIF
	CALL 연회예정표시
	PRINTL
	PRINT 연회규모：
		SELECTCASE FLAG:연회규모
			CASE IS >= 5000
				PRINT 특대
			CASE IS >= 2500
				PRINT 대
			CASE IS >= 1500
				PRINT 중
			CASEELSE
				PRINT 소
		ENDSELECT

	SIF FLAG:36 > 0
		PRINTL 　우천 중지
ENDIF
PRINTL
IF FLAG:대본반환기한 >= 2
	FOR LOCAL, 1, BookTitles + 1
		SIF ITEM:(100 + LOCAL)
			PRINTFORML 빌린 책：%ITEMNAME:(100 + LOCAL)%
	NEXT
	PRINTL
	IF  FLAG:대본반환기한 == 2
		PRINTFORML 빌린 책 반환일：오늘
	ELSE
		PRINTFORML 빌린 책 반환일：{FLAG:대본반환기한 - 2}일 후
	ENDIF
PRINTL
ENDIF

CALL SHOW_ALL_IRAI_SLOT

SELECTCASE CFLAG:MASTER:요술망치
	CASE 4
		PRINT 요술망치로 양물을 크게
		IF CFLAG:MASTER:마력회수 == 6
			PRINTL 하고 있다
		ELSE
			PRINTL 했다
		ENDIF
		SIF CFLAG:MASTER:마력회수 < 6
			PRINTFORML 마력회수 완납까지 앞으로 {CFLAG:MASTER:마력회수}일
	CASE 5
		PRINT 요술망치로 양물을 두 개로 만들
		IF CFLAG:MASTER:마력회수 == 6
			PRINTL 고 있다
		ELSE
			PRINTL 었다
		ENDIF
		SIF CFLAG:MASTER:마력회수 < 6
			PRINTFORML 마력회수 완납까지 앞으로 {CFLAG:MASTER:마력회수}일
	CASE 6
		PRINT 요술망치로 난쟁이가
		IF CFLAG:MASTER:마력회수 == 3
			PRINTL 되고 있다
		ELSE
			PRINTL 되었다
		ENDIF
		SIF CFLAG:MASTER:마력회수 < 3
			PRINTFORML 마력회수 완납까지 앞으로 {CFLAG:MASTER:마력회수}일
	CASE 7
		PRINTL 요술망치로 난쟁이로부터 원래대로 돌아왔다
		SIF CFLAG:MASTER:마력회수 < 3
			PRINTFORML 마력회수 완납까지 앞으로 {CFLAG:MASTER:마력회수}일
ENDSELECT
SIF CFLAG:MASTER:요술망치
	PRINTL

@팬티수집상황(선택중캐릭터ID)
#DIM 선택중캐릭터ID
PRINTL □ 팬티 수집 상황 □-----------------------------------------------------------------
IF FLAG:팬티수집상황타입B == 0
	CALL DISPLAY_COLLECTION(선택중캐릭터ID)
	; 개인 임의수정, 개행추가
	PRINTL
	PRINTFORML 　총수：{RESULT:0, 4}장　　종별：{RESULT:1, 2}종　　중복：{RESULT:0 - RESULT:1, 4}장
ELSE
	CALL DISPLAY_COLLECTION_B(선택중캐릭터ID)
	; 개인 임의수정, 개행추가
	PRINTL
	PRINTFORML 　총수：{RESULT:0, 4}장　　종별：{RESULT:1, 2}/{RESULT:2}종　　중복：{RESULT:0 - RESULT:1, 4}장
ENDIF

@바람기파악상황(C_ID)
#DIM C_ID
#DIM LINE_BREAK
LINE_BREAK = 0
PRINT □
CALL PRINTBUTTON_EX(@"%조사처리(CALLNAME:C_ID,"가")% 파악 중인 %CALLNAME:MASTER%의 육체 관계 (노란색은 공인)", 168, TFLAG:168)
PRINTL  □------------------------------------------------------------
IF !TFLAG:바람기력표시
	PRINTFORML
	FOR LOCAL, 1, CHARANUM
		SIF LOCAL == C_ID
			CONTINUE
		IF GET_UWAKI_HISTORY(C_ID, LOCAL)
			SIF GET_UWAKI_HISTORY(C_ID, LOCAL) == 2
				SETCOLOR C_YELLOW
			SIF LINEISEMPTY()
				PRINT
			PRINTFORMLC %CALLNAME:LOCAL%
			LINE_BREAK ++
			SIF LINE_BREAK % (PRINTCPERLINE() - 1) == 0
				PRINTL
		ENDIF
		RESETCOLOR
	NEXT
	SIF LINE_BREAK % (PRINTCPERLINE() - 1) != 0
		PRINTL
ENDIF

@PRINT_STATE_PREFERENCE(선택중캐릭터ID)
#DIM 선택중캐릭터ID
PRINTL □ 취향기호 □-----------------------------------------------------------------------
PRINTL 좋아함：
CALL SHOW_TASTE(GET_STR(, "캐릭터데이터", 선택중캐릭터ID, "감성：좋아함"), "POSITIVE", ABL:선택중캐릭터ID:친밀 < 5)
PRINTFORML
PRINTL 싫어함：
CALL SHOW_TASTE(GET_STR(, "캐릭터데이터", 선택중캐릭터ID, "감성：싫어함"), "NEGATIVE", ABL:선택중캐릭터ID:친밀 < 5)
DRAWLINE
PRINTL 좋아하는 맛：
CALL SHOW_TASTE(GET_STR(, "캐릭터데이터", 선택중캐릭터ID, "요리：좋아하는 맛"))
PRINTL 싫어하는 맛：
CALL SHOW_TASTE(GET_STR(, "캐릭터데이터", 선택중캐릭터ID, "요리：싫어하는 맛"))
PRINTL 조수 효과：
CALL DISH_TASTE_FROM_CHARA(선택중캐릭터ID, "OUTPUT")
CALL SHOW_TASTE(RESULTS, "ASSIDATA")
IF 선택중캐릭터ID == MASTER && EX_DISH_NAME != ""
	PRINTFORML ＜%EX_DISH_NAME%＞
	CALL SHOW_TASTE(DISH_TASTE, "DISH_DATA")
ENDIF
DRAWLINE
IF CFLAG:선택중캐릭터ID:좋아하는체위
	PRINT 약점：
	SELECTCASE CFLAG:선택중캐릭터ID:좋아하는체위
	CASE 1
		PRINTL 정상위
	CASE 2
		PRINTL 후배위
	CASE 3
		PRINTL 기승위
	CASE 4
		PRINTL 대면좌위
	CASE 5
		PRINTL 배면좌위
	CASE 6
		PRINTL 정상위 애널
	CASE 7
		PRINTL 후배위 애널
	CASE 8
		PRINTL 기승위 애널
	CASE 9
		PRINTL 대면좌위 애널
	CASE 10
		PRINTL 배면좌위 애널
	ENDSELECT
	PRINTL
ENDIF

@PRINT_STATE_GIFTDATA(선택중캐릭터ID, 最大表示行数)
#DIM 선택중캐릭터ID
#DIM 最大表示行数
#DIM 表示開始
SIF !GIFT_GOT:선택중캐릭터ID:1
	RETURN

SIF !最大表示行数
	最大表示行数 = 100

FOR LOCAL, 0, 100
	;フラグ0番が100を兼ねているのでこの形に
	IF !GIFT_GOT:선택중캐릭터ID:((LOCAL + 1) % 100)
		表示開始 = MAX(LOCAL + 1 - 最大表示行数, 1)
		BREAK
	ENDIF
NEXT

PRINTL □ 당신이 준 선물 □-----------------------------------------------------------
;お気に入りを先頭に持ってくる
SIF CFLAG:선택중캐릭터ID:받은선물
	CALL PRINT_GIFTDATA(CFLAG:선택중캐릭터ID:받은선물, 선택중캐릭터ID, "캐릭터의")
FOR LOCAL, 表示開始, 表示開始 + 最大表示行数 + 1
	SIF GIFT_GOT:선택중캐릭터ID:LOCAL && GIFT_GOT:선택중캐릭터ID:LOCAL != CFLAG:선택중캐릭터ID:받은선물
		CALL PRINT_GIFTDATA(GIFT_GOT:선택중캐릭터ID:LOCAL, 선택중캐릭터ID, "캐릭터의")
NEXT

@Valentine_History(ARG)
IF CFLAG:ARG:발렌타인
	PRINTFORML 발렌타인에 %조사처리(Valentine_Chocolate(ARG),"를")% 주었다 \@ CFLAG:ARG:발렌타인 > 100?  (답례 완료)# \@
ENDIF

@Valentine_Chocolate(ARG)
#FUNCTIONS
SELECTCASE CFLAG:ARG:발렌타인 % 100
	CASE 1
		LOCALS = 블랙썬더를
	CASE 2
		LOCALS = 평범한 초콜릿을
	CASE 3
		LOCALS = 고급 초콜릿을
	CASE 4
		LOCALS = 수제 초콜릿을
ENDSELECT
RETURNF LOCALS

@PERSONALITY_TYPE(ARG)
#FUNCTIONS
SELECTCASE CFLAG:ARG:성격경향
	CASE 1
		RETURNF "심약"
	CASE 2
		RETURNF "강경"
	CASE 3
		RETURNF "솔직"
	CASE 4
		RETURNF "성실"
	CASE 5
		RETURNF "그외"
ENDSELECT

@SHOW_CHILDDATA(C_ID, ARGS)
#DIM C_ID
VARSET LOCAL
FOR LOCAL,1,11
	SIF CHILDNAME:C_ID:LOCAL == ""
		CONTINUE
	IF ARGS == "ICON"
		IF CHILD_SEX:C_ID:LOCAL == 1
			SETCOLOR C_PINK
			PRINT ♀
		ELSE
			SETCOLOR C_BLUE
			PRINT ♂
		ENDIF
		RESETCOLOR
	ELSE
		PRINTFORM 제 {LOCAL}아이：%CHILDNAME:C_ID:LOCAL, 15, LEFT%　\@ CHILD_SEX:C_ID:LOCAL == 1 ? ♀ # ♂ \@
		CALL PRINT_DATE(CHILD_BIRTHDAY:C_ID:LOCAL)
		PRINTFORM ({CHILD_BIRTHDAY:C_ID:LOCAL}일째)
		SELECTCASE CHILD_WEATHER:C_ID:LOCAL
		CASE "C민감"
			PRINTFORM 모두의 클리토리스가 민감한
		CASE "V민감"
			PRINTFORM 모두의 여성기가 민감한
		CASE "A민감"
			PRINTFORM 모두의 항문이 민감한
		CASE "B민감"
			PRINTFORM 모두의 가슴이 민감한
		CASE "M민감"
			PRINTFORM 모두의 입술이 민감한
		CASE "치마"
			PRINTFORM 치마가 넘어가 머리에 닿으면 기분 좋아지는
		CASE "팬티"
			PRINTFORM 팬티가 날아다니는
		CASEELSE
			PRINTFORM %CHILD_WEATHER:C_ID:LOCAL%의
		ENDSELECT
		PRINTFORM 날에 태어났다
		IF DAY - CHILD_BIRTHDAY:C_ID:LOCAL < 120
			IF CFLAG:C_ID:출산경과일 < CHILD_어휘
				PRINTFORML 유아기
			ELSEIF CFLAG:C_ID:출산경과일 < CHILD_자립전
				PRINTFORML 유소년기
			ELSE
				PRINTFORML 사춘기
			ENDIF
		ELSE
			PRINTFORML 현재 {(DAY - CHILD_BIRTHDAY:C_ID:LOCAL) / 124}세
		ENDIF
	ENDIF
	LOCAL:1 ++
NEXT
SIF ARGS == "ICON"
PRINTL
RETURN LOCAL:1


code:
;어디에도 CALL 되어 있지 않고 혼란스러우니까 코멘트 아웃 해 두겠습니다.
[SKIPSTART]
@PRINT_STATE(선택중캐릭터ID, 선택중페이지번호, 조교중플래그)
#DIM 선택중캐릭터ID
#DIM 조교중플래그
#DIM REF 선택중페이지번호
#DIM CONST 이전캐릭터를표시 = 4
#DIM CONST 다음캐릭터를표시 = 6
#DIM CONST 돌아가요 = 5

$PRINT_LOOP
	DRAWLINEFORM ━
	PRINT ■
	PRINTS NAME:선택중캐릭터ID
	PRINT (호감도:
	CALL PRINT_RANK(CFLAG:선택중캐릭터ID:2, "MAX_50000")
	PRINTFORM  {CFLAG:선택중캐릭터ID:2} 신뢰도:
	CALL PRINT_RANK(CFLAG:선택중캐릭터ID:신뢰도, "MAX_20000")
	PRINTFORM  {CFLAG:선택중캐릭터ID:신뢰도})
	;MASTER라면 소지금을 기재
	SIF 선택중캐릭터ID == MASTER
		PRINTFORM (%"소지금:\\" + TOSTR(MONEY,"#,###")%)
	IF NOTICE_CYCLE(선택중캐릭터ID)
		IF 조교중플래그
			CALL CYCLE_PRINT(선택중캐릭터ID)
		ELSE
			CALL CYCLE_PRINT다음날(선택중캐릭터ID)
		ENDIF
		SETCOLOR C_AQUA
	ENDIF
	IF CFLAG:선택중캐릭터ID:생해금 == 2
		PRINT 위험일 생H해금
	ELSEIF CFLAG:선택중캐릭터ID:생해금 == 1
		PRINT 생H해금
	ELSEIF GETBIT(CFLAG:선택중캐릭터ID:기정사실, 1)
		PRINT 합의 취득
	ENDIF
	RESETCOLOR
	PRINTL
;*******************************************
;1페이지눈
;*******************************************
IF 선택중페이지번호 == 0
	PRINT 체력
				CALL PRINT_COLORBAR, BASE:선택중캐릭터ID:0, MAXBASE:선택중캐릭터ID:0, 28, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("빨강"), RESULT:1
				PRINTFORML  ({BASE:선택중캐릭터ID:체력, 5}/{MAXBASE:선택중캐릭터ID:체력, 5})
	PRINT 기력
				CALL PRINT_COLORBAR, BASE:선택중캐릭터ID:1, MAXBASE:선택중캐릭터ID:1, 28, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("초록"), RESULT:1
				PRINTFORML  ({BASE:선택중캐릭터ID:기력, 5}/{MAXBASE:선택중캐릭터ID:기력, 5})
	IF BASE:선택중캐릭터ID:15
	PRINT 술기운
				CALL PRINT_COLORBAR, BASE:선택중캐릭터ID:15, MAXBASE:선택중캐릭터ID:15, 28, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("파랑"), RESULT:1
				PRINTFORML  ({BASE:선택중캐릭터ID:술기운, 5}/{MAXBASE:선택중캐릭터ID:술기운, 5})
	ENDIF
	SELECTCASE CFLAG:선택중캐릭터ID:욕구불만도
		CASE 301 TO 500
			SETCOLOR C_YELLOW
		CASE IS >= 501
			SETCOLOR C_RED
	ENDSELECT
	SIF NOTICE_LUST(선택중캐릭터ID)
		PRINTFORML 욕구 불만도：{CFLAG:선택중캐릭터ID:욕구불만도 / 10}\%
	RESETCOLOR
	CALL SHOW_SIZE(선택중캐릭터ID)
	IF !FLAG:화상표시 ;KR판 구잔재
		PRINTL [99] AA표시
	ELSE
		PRINTL [99] 화상표시
	ENDIF
	IF FLAG:AA표시 && !FLAG:화상표시
		CALL PRINT_AA(선택중캐릭터ID)
	ELSEIF FLAG:AA표시 && FLAG:화상표시
		CALL PRINT_STATE_IMAGE(선택중캐릭터ID)
	ENDIF

	CALL PRINT_STATE_CLOTH(선택중캐릭터ID)
	;도구라고 할까 아이템이지만 외가 2 문자이고
	IF 선택중캐릭터ID == MASTER
		PRINT □
		CALL PRINTBUTTON_EX("도구", 167, TFLAG:167)
		PRINTL  □---------------------------------------------------------------------------
		SIF !TFLAG:도구표시
			CALL LIST_ITEM("전부")
	ENDIF
	CALL PRINT_STATE_ABL(선택중캐릭터ID)
	PRINTL
	CALL PRINT_STATE_TALENT(선택중캐릭터ID)
	PRINTL
	IF 선택중캐릭터ID != MASTER
		PRINTL
		PRINT □
		CALL PRINTBUTTON_EX("각인", 166, TFLAG:166)
		PRINTL  □---------------------------------------------------------------------------
		;PRINT_MARK 선택중캐릭터ID
		CALL PRINT_각인(선택중캐릭터ID)
	ENDIF
;*******************************************
;2페이지눈
;*******************************************
ELSEIF 선택중페이지번호 == 1
	PRINTL
	CALL PRINT_STATE_EXP(선택중캐릭터ID)
	PRINTL
	SIF 선택중캐릭터ID != MASTER && ( TALENT:선택중캐릭터ID:임신 || CFLAG:선택중캐릭터ID:아이인원수 > 0)
		CALL 임신관련(선택중캐릭터ID)
	SIF 선택중캐릭터ID != MASTER && !조교중플래그
		CALL PRINT_STATE_JUEL(선택중캐릭터ID)
	SIF 조교중플래그
		CALL PRINT_STATE_EX(선택중캐릭터ID)
	PRINTL
	SIF 선택중캐릭터ID
		CALL 팬티수집상황(선택중캐릭터ID)
;*******************************************
;3페이지눈
;*******************************************
ELSEIF 선택중페이지번호 == 2
	CALL PRINT_STATE_PERSONAL(선택중캐릭터ID)
	CALL 육체정보(선택중캐릭터ID)
	CALL SHOW_RELATION(선택중캐릭터ID)
;*******************************************
;4페이지눈
;*******************************************
ELSEIF 선택중페이지번호 == 3
	IF !선택중캐릭터ID
		CALL 예정
	ELSE
		CALL 함락조건표시(선택중캐릭터ID)
		CALL 바람기파악상황(선택중캐릭터ID)
	ENDIF
ENDIF
IF 조교중플래그
	DRAWLINE
	IF 선택중페이지번호 > 0
		PRINTC [0] 이전페이지
	ELSE
		PRINTC
	ENDIF
	PRINTC
	IF 선택중페이지번호 < 상세능력표시최대페이지번호
		PRINTC [1] 다음페이지
	ELSE
		PRINTC
	ENDIF
	PRINTL
		PRINTC
		PRINTFORMC [{돌아가요}] 돌아간다
	INPUT
	SELECTCASE RESULT
		CASE 0
		SIF 선택중페이지번호 > 0
			선택중페이지번호 --
			GOTO PRINT_LOOP
		CASE 1
			SIF 선택중페이지번호 < 상세능력표시최대페이지번호
				선택중페이지번호 ++
				GOTO PRINT_LOOP
		CASE 160 TO 167
			TFLAG:RESULT = !TFLAG:RESULT
			GOTO PRINT_LOOP
		;이 근처 지워 버려서도 좋은가
		CASE 이전캐릭터를표시
			IF !조교중플래그
				선택중캐릭터ID--
			ENDIF
			IF 선택중캐릭터ID < 0
				선택중캐릭터ID = CHARANUM - 1
			ENDIF
			GOTO PRINT_LOOP
		CASE 다음캐릭터를표시
			IF !조교중플래그
				선택중캐릭터ID++
			ENDIF
			IF 선택중캐릭터ID >= CHARANUM
				선택중캐릭터ID = 0
			ENDIF
			GOTO PRINT_LOOP
		CASE 돌아가요
			RETURN 0
		CASE 화상변환
			FLAG:AA표시 = !FLAG:AA표시
			GOTO PRINT_LOOP
		CASEELSE
			RETURN 0
	ENDSELECT
ENDIF
[SKIPEND]

@SHOW_ALLITEM
#DIM LSTART
DRAWLINE
PRINTL
PRINT □ 소지아이템 목록
PRINTL  □------------------------------------------------------------------------------------------------------
LSTART = LINECOUNT
PRINTL
CALL LIST_ITEM("전부")
WHILE 20-(LINECOUNT-LSTART) > 0
PRINTL
WEND
DRAWLINE
PRINTL [999] 돌아간다
INPUT

@SHOW_ALLITEM_INFO
#DIM LSTART
PRINTL
PRINT □ 함락정보
PRINTL  □------------------------------------------------------------------------------------------------------
PRINTL
CALL COLORMESSAGE(@"주인공은 취득할 수 없습니다",C_RED,1)
PRINTL
DRAWLINE
PRINT □ 소지아이템 목록
PRINTL  □------------------------------------------------------------------------------------------------------
LSTART = LINECOUNT
PRINTL
CALL LIST_ITEM("전부")
WHILE 20-(LINECOUNT-LSTART) > 0
PRINTL
WEND

@PRINT_STATE_CLOTH(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 장비부위
PRINTL
PRINT □
CALL PRINTBUTTON_EX("복장", 161, TFLAG:161)
PRINTL  □---------------------------------------------------------------------------
IF TFLAG:복장표시
	PRINTFORML
	RETURN
ENDIF
IF !EQUIP:선택중캐릭터ID:0 && !TEQUIP:선택중캐릭터ID:하반신착의상황 && !TEQUIP:선택중캐릭터ID:상반신착의상황
	PRINTFORML ＜전라＞
	SIF INROOM(CFLAG:선택중캐릭터ID:현재위치) == 1
		RETURN
ENDIF
SIF CFLAG:선택중캐릭터ID:장난 > 1
	PRINTFORML ＜옷매무새＞
CALL SHOW_CLOTHES(선택중캐릭터ID, "현재의 의상")

@PRINT_STATE_ABL(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 표시항목수
PRINT □
CALL PRINTBUTTON_EX("능력", 162, TFLAG:162)
PRINTL  □---------------------------------------------------------------------------
IF !TFLAG:능력표시
	표시항목수 = 0
	FOR LOCAL, 0, 50
		SIF !STRLENS(ABLNAME:LOCAL)
			CONTINUE
		SIF LOCAL > 50 && 선택중캐릭터ID != MASTER
			CONTINUE
		;동성애 관계
		SIF GROUPMATCH(ABLNAME:LOCAL, "레즈끼", "레즈중독") && !GETBIT(TALENT:선택중캐릭터ID:2, 0)
			CONTINUE
		SIF GROUPMATCH(ABLNAME:LOCAL, "호모끼", "게이중독") && GETBIT(TALENT:선택중캐릭터ID:2, 0)
			CONTINUE
		PRINTFORM %ABLNAME:LOCAL,12%:
		IF LOCAL < 40
			CALL PRINT_RANK(ABL:선택중캐릭터ID:LOCAL, "MAX_99")
		ELSE
			CALL PRINT_RANK(ABL:선택중캐릭터ID:LOCAL, "MAX_6")
		ENDIF
		PRINTFORM  {ABL:선택중캐릭터ID:LOCAL, 5, LEFT}
		표시항목수 ++
		SIF 표시항목수 % 4 == 0
			PRINTL
	NEXT
ENDIF
PRINTL
PRINTL
PRINT □
CALL PRINTBUTTON_EX("성 기술", 164, TFLAG:164)
PRINTL  □---------------------------------------------------------------------------
표시항목수 = 0
IF !TFLAG:164
	FOR LOCAL, 50, 60
		SIF !STRLENS(ABLNAME:LOCAL)
			CONTINUE
		SIF !(TALENT:선택중캐릭터ID:2 & 1) && (LOCAL == 52 || LOCAL == 54)
			CONTINUE
		PRINTFORM %ABLNAME:LOCAL,12%:
		CALL PRINT_RANK(ABL:선택중캐릭터ID:LOCAL, "MAX_6")
		PRINTFORM  {ABL:선택중캐릭터ID:LOCAL, 5, LEFT}
		표시항목수 ++
		SIF 표시항목수 % 4 == 0
			PRINTL
	NEXT
ENDIF

@PRINT_STATE_EXP(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 표시항목수
PRINT □
CALL PRINTBUTTON_EX("경험", 163, TFLAG:163)
PRINTL  □---------------------------------------------------------------------------
표시항목수 = 0
IF !TFLAG:경험표시
	FOR LOCAL, 0, 100
		;EXP.CSV에 등록되지 않으면 CONTINUE
		;SIF !STRLENS(EXPNAME:LOCAL)
		;	CONTINUE
		;미경험을 표시시키지 않다
		SIF !EXP:선택중캐릭터ID:LOCAL
			CONTINUE
		;동성애 관계
		IF !(TALENT:선택중캐릭터ID:2 & 1) && LOCAL == 51
			CONTINUE
		ELSEIF TALENT:선택중캐릭터ID:2 & 1 && LOCAL == 52
			CONTINUE
		ENDIF
		PRINTFORM %EXPNAME:LOCAL,14%:{EXP:선택중캐릭터ID:LOCAL, 5, LEFT}
		표시항목수 += 1
		SIF 표시항목수 % 4 == 0
			PRINTL
	NEXT
ENDIF
PRINTL

@PRINT_STATE_TALENT(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM TLNT_CNT, 6
#DIM TLNT_NO, 6, 100
#DIMS 종족텍스트

VARSET TLNT_CNT
VARSET TLNT_NO

PRINT □
CALL PRINTBUTTON_EX("소질", 165, TFLAG:165)
PRINTL  □---------------------------------------------------------------------------
IF !TFLAG:165
	;TALENT:200(범용 캐릭터)는 표시시키지 않다
	FOR LOCAL, 0, 300
		SIF !STRLENS(GET_TALENTNAME(LOCAL, TALENT:선택중캐릭터ID:LOCAL))
			CONTINUE
		LOCALS = {LOCAL}/
		IF GROUPMATCH(LOCAL,90,91,164,165,166,189,190,191,192,193,194,195,196,197,198)
			;종족
			TLNT_NO:0:(TLNT_CNT:0) = LOCAL
			TLNT_CNT:0 ++
		ELSEIF GROUPMATCH(LOCAL,0,1,3,4,5,6,7,8,9,60,70,72,73,74,75,76,77,78,82,83,122,142,152,183,184,185,250,254,255,256,257,258,259,260,261,262,263,264)
			;성적 특징
			TLNT_NO:1:(TLNT_CNT:1) = LOCAL
			TLNT_CNT:1 ++
		ELSEIF GROUPMATCH(LOCAL,2,16,17,40,41,54,56,57,92,100,101,102,103,104,105,106,121,130,132,133,134,137,138,143,146,149)
			;몸 목표 특징
			TLNT_NO:2:(TLNT_CNT:2) = LOCAL
			TLNT_CNT:2 ++
		ELSEIF GROUPMATCH(LOCAL,9,10,11,12,13,14,18,19,20,21,22,23,24,25,26,30,31,32,33,61,62,71,80,81,84,85,86,94,151,155)
			;정신적 특징
			TLNT_NO:3:(TLNT_CNT:3) = LOCAL
			TLNT_CNT:3 ++
		ELSEIF GROUPMATCH(LOCAL,46, 47, 48, 49, 50,51,52,53,55,93,135,136,144,161,162,199)
			;기술적 특징 ;KR판 오리지날 147=달변, 178=방중술, 179=채양보음/채음보양
			TLNT_NO:4:(TLNT_CNT:4) = LOCAL
			TLNT_CNT:4 ++
		ELSE
			;그 외
			TLNT_NO:5:(TLNT_CNT:5) = LOCAL
			TLNT_CNT:5 ++
		ENDIF
	NEXT

	FOR LOCAL:2, 0, 6
		SELECTCASE LOCAL:2
			CASE 0
				PRINT 　 종 족 　：
			CASE 1
				PRINT 　성적 특징：
			CASE 2
				PRINT 신체적 특징：
			CASE 3
				PRINT 정신적 특징：
			CASE 4
				PRINT 기술적 특징：
			CASE 5
				PRINT 　 그 외 　：
		ENDSELECT
		LOCALS = ""
		FOR LOCAL:1, 0, TLNT_CNT:(LOCAL:2)
			LOCAL = TLNT_NO:(LOCAL:2):(LOCAL:1)
			;동정
			SIF LOCAL == 1 && !(TALENT:선택중캐릭터ID:성별 & 2)
				CONTINUE
			;남자 절벽
			IF LOCAL == 105 && (TALENT:선택중캐릭터ID:성별 == 2)
				SIF (TALENT:선택중캐릭터ID:105 == -2) && (TALENT:선택중캐릭터ID:성별 == 2)
					CONTINUE
				SIF (TALENT:선택중캐릭터ID:105 == 0) && (TALENT:선택중캐릭터ID:성별 == 2)
					PRINTFORM [보유]
			ENDIF
			;청소부는 살고 있는 때만 표시
			SIF LOCAL == GETNUM(TALENT, "청소부") && !CFLAG:선택중캐릭터ID:신사거주
				CONTINUE
			LOCALS += GET_TALENTNAME(LOCAL, TALENT:선택중캐릭터ID:LOCAL)
			IF STRLENS(LOCALS) > 60
				LOCALS = " "
				PRINTL
				PRINT
			ENDIF
			;소질에 따라서는 색 바꾸고
			IF GROUPMATCH(LOCAL,0,3,4,6,7,73,74,75,76,77,78,122,142) || (LOCAL == 199 && TALENT:선택중캐릭터ID:LOCAL == 2)
				SETCOLOR 255, 120, 200
				FONTBOLD
			ELSEIF GROUPMATCH(LOCAL, 8, 199)
				SETCOLOR C_PINK
			ENDIF
			PRINTFORM [%GET_TALENTNAME(LOCAL, TALENT:선택중캐릭터ID:LOCAL)%]
			RESETCOLOR
			FONTREGULAR
			IF LOCAL:2 == 0
				종족텍스트 += @"%GET_TALENTNAME(LOCAL,TALENT:선택중캐릭터ID:LOCAL)%"
			ELSE
				종족텍스트 =
			ENDIF
		NEXT
		SIF LOCAL:2 == 0
			CALL PRINT_종족추출(선택중캐릭터ID, 종족텍스트)
		SIF LOCALS != " "
			PRINTL
	NEXT
ENDIF

@PRINT_종족추출(선택중캐릭터ID, 종족텍스트)
#DIM 선택중캐릭터ID
#DIM TMP_RESULT
#DIMS STR_LIST, 10
#DIMS 종족텍스트

VARSET STR_LIST
TMP_RESULT:0 = RESULT
LOCALS =  %CSVCSTR(선택중캐릭터ID,10)%
IF STRFIND(LOCALS, "●") > -1
	SPLIT LOCALS, "●", STR_LIST
	FOR LOCAL, 0, RESULT
		IF STRFIND(STR_LIST:LOCAL, "종족：") > -1
			LOCALS:1 = %REPLACE(STR_LIST:LOCAL, "종족：", "")%
			LOCALS:1 = %REPLACE(LOCALS:1, "　", "")%
			SIF STRFIND(종족텍스트, LOCALS:1) < 0
				PRINTFORM 〈%LOCALS:1%〉
			BREAK
		ENDIF
	NEXT
;ELSEIF TALENT:선택중캐릭터ID:스침 とどっちがいいんでしょうね？
ELSEIF 선택중캐릭터ID == RANDOM_CHARANUM
	PRINTFORM [%CSTR:선택중캐릭터ID:모브코종족%]
ENDIF
RESULT = TMP_RESULT:0

@PRINT_각인(선택중캐릭터ID)
#DIM 선택중캐릭터ID
IF !TFLAG:166
	FOR LOCAL, 0, 6
		SIF !STRLENS(MARKNAME:LOCAL)
			CONTINUE
		PRINTFORM 　%MARKNAME:LOCAL,12%:
		IF LOCAL == 3
			SETCOLOR C_RED
			PRINTFORML %"×" * (MARK:선택중캐릭터ID:LOCAL)%
		ELSE
			SETCOLOR 255, 255, 0
			PRINTFORML %"★" * (MARK:선택중캐릭터ID:LOCAL)%
		ENDIF
		RESETCOLOR
	NEXT
ELSE
	PRINTL
ENDIF

@PRINT_알파벳평가(선택중캐릭터ID, ARG, 표시신분번호)
;ARG(1. 호감도 2. 신뢰도 3. 성 기술 및 기능 4. 그 외 ABL)
;「표시신분번호」는 ARG가  3또는 4 때에만 사용
;KR판 오리지날 Ph등급 존재
#DIM 선택중캐릭터ID
#DIM 표시신분번호
IF ARG == 1
	IF CFLAG:선택중캐릭터ID:2 >= 100000
		SETCOLOR C_P_PURPLE
		PRINT Ph
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 50000
		SETCOLOR C_BLUE
		PRINT Ex
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 30000
		SETCOLOR C_WHITE
		PRINT SS
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 10000
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 5000
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 3000
		SETCOLOR C_RED
		PRINT  B
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 1500
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 1000
		SETCOLOR C_YELLOW
		PRINT  D
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 500
		SETCOLOR C_GREEN
		PRINT  E
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 100
		SETCOLOR C_AQUA
		PRINT  F
	ELSE
		SETCOLOR C_GRAY
		PRINT  G
	ENDIF
	RESETCOLOR
	RETURN 0
ELSEIF ARG == 2
	IF CFLAG:선택중캐릭터ID:신뢰도 >= 30000
		SETCOLOR C_P_PURPLE
		PRINT Ph
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 20000
		SETCOLOR C_BLUE
		PRINT Ex
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 10000
		SETCOLOR C_WHITE
		PRINT SS
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 3000
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 1000
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 500
		SETCOLOR C_RED
		PRINT  B
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 150
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 100
		SETCOLOR C_YELLOW
		PRINT  D
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 50
		SETCOLOR C_GREEN
		PRINT  E
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 10
		SETCOLOR C_AQUA
		PRINT  F
	ELSE
		SETCOLOR C_GRAY
		PRINT  G
	ENDIF
	RESETCOLOR
	RETURN 0
ELSEIF ARG == 3
	IF ABL:선택중캐릭터ID:표시신분번호 == 7
		SETCOLOR C_P_PURPLE
		PRINT Ph
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 6
		SETCOLOR C_BLUE
		PRINT Ex
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 5
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 4
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 3
		SETCOLOR C_RED
		PRINT  B
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 2
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 1
		SETCOLOR C_YELLOW
		PRINT  D
	ELSE
		SETCOLOR C_GRAY
		PRINT  E
	ENDIF
	RESETCOLOR
	RETURN 0
ELSEIF ARG == 4
	IF ABL:선택중캐릭터ID:표시신분번호 == 99
		SETCOLOR C_P_PURPLE
		PRINT Ph
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 80
		SETCOLOR C_WHITE
		PRINT Ex
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 60
		SETCOLOR C_WHITE
		PRINT SS
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 40
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 20
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 10
		SETCOLOR C_RED
		PRINT  B
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 5
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 3
		SETCOLOR C_YELLOW
		PRINT  D
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 2
		SETCOLOR C_GREEN
		PRINT  E
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 1
		SETCOLOR C_AQUA
		PRINT  F
	ELSE
		SETCOLOR C_GRAY
		PRINT  G
	ENDIF
	RESETCOLOR
	RETURN 0
ELSE
ENDIF


code:
;-------------------------------------------------
;함수명 :GET_TALENTNAME
;개요:소질 나토리 이득 함수
;인수 :ARG:0…TALENT 등록 번호
;　　　:ARG:1…TALENT의 내용
;반환값:소질명
;비고:문중 함수
;소질의 이름을 돌려준다.
;-------------------------------------------------
@GET_TALENTNAME(ARG, ARG:1)
#FUNCTIONS
SELECTCASE ARG
	;처녀
	CASE 0
		IF ARG:1 == -1
			RETURNF "무자각비처녀"
		ELSEIF ARG:1
			RETURNF "처녀"
		ENDIF
	;동정
	CASE 1
		SIF !ARG:1
			RETURNF "동정"
	;성별
	CASE 2
		IF ARG:1 == 3
			RETURNF "후타나리"
		ELSEIF ARG:1 == 2
			RETURNF "남자"
		ENDIF
	;키스미경험
	CASE 6
		IF ARG:1 == -1
			RETURNF "키스미경험?"
		ELSEIF ARG:1 == 1
			RETURNF "키스미경험"
		ENDIF
	;;연인 ;KR판 오리지날 아내
	CASE 7
		IF GETBIT(ARG:1,1)
			RETURNF "아내"
		ELSEIF ARG:1 == 1
			RETURNF "연인"
		ENDIF
	;담력
	CASE 10
		IF ARG:1 == -1
			RETURNF "겁쟁이"
		ELSEIF ARG:1 == 1
			RETURNF "다부짐"
		ENDIF
	;태도
	CASE 11
		IF ARG:1 == -1
			RETURNF "솔직함"
		ELSEIF ARG:1 == 1
			RETURNF "반항적"
		ENDIF
	;응답
	CASE 12
		IF ARG:1 == -1
			RETURNF "얌전함"
		ELSEIF ARG:1 == 1
			RETURNF "거만함"
		ENDIF
	;자존심
	CASE 13
		IF ARG:1 == -1
			RETURNF "자존심 낮음"
		ELSEIF ARG:1 == 1
			RETURNF "자존심 높음"
		ENDIF
	;기분
	CASE 15
		IF ARG:1 == -1
			RETURNF "기분 나쁨"
		ELSEIF ARG:1 == 1
			RETURNF "기분 좋음"
		ENDIF
	;용모
	CASE 16
		IF ARG:1 == -1
			RETURNF "추악"
		ELSEIF ARG:1 == 1
			RETURNF "미형"
		ENDIF
	;연령
	CASE 17
		IF ARG:1 == -1
			RETURNF "아이"
		ELSEIF ARG:1 == 1
			RETURNF "중년"
		ELSEIF ARG:1 == 2
			RETURNF "노인"
		ENDIF
	;성적흥미
	CASE 23
		IF ARG:1 == -1
			RETURNF "보수적"
		ELSEIF ARG:1 == 1
			RETURNF "호기심"
		ENDIF
	;명랑／음침,
	CASE 24
		IF ARG:1 == -1
			RETURNF "음침함"
		ELSEIF ARG:1 == 1
			RETURNF "명랑함"
		ENDIF
	;정조 관념
	CASE 30
		IF ARG:1 == -1
			RETURNF "정조무관심"
		ELSEIF ARG:1 == 1
			RETURNF "정조관념"
		ENDIF
	;자기애
	CASE 31
		IF ARG:1 == -1
			RETURNF "억압"
		ELSEIF ARG:1 == 1
			RETURNF "해방"
		ENDIF
	;수치심
	CASE 33
		IF ARG:1 == -1
			RETURNF "수치심없음"
		ELSEIF ARG:1 == 1
			RETURNF "수줍음"
		ENDIF
	;통각
	CASE 40
		IF ARG:1 == -1
			RETURNF "고통에 강함"
		ELSEIF ARG:1 == 1
			RETURNF "고통에 약함"
		ENDIF
	;젖기쉬움
	CASE 41
		IF ARG:1 == -1
			RETURNF "젖기 어려움"
		ELSEIF ARG:1 == 1
			RETURNF "젖기 쉬움"
		ENDIF
	;습득속도
	CASE 50
		IF ARG:1 == -1
			RETURNF "습득 느림"
		ELSEIF ARG:1 == 1
			RETURNF "습득 빠름"
		ENDIF
	;낚시 채집 조제 Lv
	CASE 47, 48, 49
		IF ARG:1 > 0
			LOCALS = %TALENTNAME:ARG%
			LOCALS += TOSTR(ARG:1)
			RETURNF LOCALS
		ENDIF
	;악취내성
	CASE 61
		IF ARG:1 == -2
			RETURNF "결벽증"
		ELSEIF ARG:1 == -1
			RETURNF "악취 민감"
		ELSEIF ARG:1 == 1
			RETURNF "악취 둔감"
		ELSEIF ARG:1 == 2
			RETURNF "불결 무시"
		ENDIF
	;쾌감응답
	CASE 70
		IF ARG:1 == -1
			RETURNF "쾌감에 부정"
		ELSEIF ARG:1 == 1
			RETURNF "쾌감에 솔직"
		ENDIF
	;성별기호
	CASE 81
		IF ARG:1 == -1
			RETURNF "양도"
		ELSEIF ARG:1 == 3
			RETURNF "인간 불신"
		ELSEIF ARG:1 == 1
			RETURNF "남성기피"
		ELSEIF ARG:1 == 2
			RETURNF "여성기피"
		ENDIF
	;체형
	CASE 100
		IF ARG:1 == -5
			RETURNF "난쟁이"
		ELSEIF ARG:1 == -2
			RETURNF "유아 체형"
		ELSEIF ARG:1 == -1
			RETURNF "작은 체형"
		ELSEIF ARG:1 == 1
			RETURNF "장신"
		ELSEIF ARG:1 == 2
			RETURNF "거구"
		ELSEIF ARG:1 == 3
			RETURNF "거인"
		ELSEIF ARG:1 == 4 ;KR판 오리지날 ;CUSTOM_TERMINAL에 의한 잘못된 접근 확인용
			RETURNF "??????"
		ELSEIF ARG:1 == 5 ;KR판 오리지날 ;신묘마루 망치 처리용
			RETURNF "초거대 거인"
		ENDIF
	;C감도
	CASE 101
		IF ARG:1 == -1
			RETURNF "C둔감"
		ELSEIF ARG:1 == 1
			RETURNF "C민감"
		ENDIF
	;V감도
	CASE 102
		IF ARG:1 == -1
			RETURNF "V둔감"
		ELSEIF ARG:1 == 1
			RETURNF "V민감"
		ENDIF
	;A감도
	CASE 103
		IF ARG:1 == -1
			RETURNF "A둔감"
		ELSEIF ARG:1 == 1
			RETURNF "A민감"
		ENDIF
	;B감도
	CASE 104
		IF ARG:1 == -1
			RETURNF "B둔감"
		ELSEIF ARG:1 == 1
			RETURNF "B민감"
		ENDIF
	;가슴사이즈
	CASE 105
		IF ARG:1 == -2
			RETURNF "절벽"
		ELSEIF ARG:1 == -1
			RETURNF "작은 가슴"
		;ELSEIF ARG:1 == 0
			;RETURNF "보유"
		ELSEIF ARG:1 == 1
			RETURNF "거유"
		ELSEIF ARG:1 == 2
			RETURNF "폭유"
		ENDIF
	;M감도
	CASE 106
		IF ARG:1 == -1
			RETURNF "M둔감"
		ELSEIF ARG:1 == 1
			RETURNF "M민감"
			ELSEIF ARG:1 == 2
			RETURNF "M과민"
		ENDIF
	;술내성
	CASE 121
		IF ARG:1 == -2
			RETURNF "술을 못함"
		ELSEIF ARG:1 == -1
			RETURNF "술에 약하다"
		ELSEIF ARG:1 == 1
			RETURNF "술에 강하다"
		ELSEIF ARG:1 == 2
			RETURNF "애주가"
		ELSEIF ARG:1 == 3
			RETURNF "술고래"
		ENDIF
	;회복속도
	CASE 130
		IF ARG:1 == -1
			RETURNF "회복 느림"
		ELSEIF ARG:1 == 1
			RETURNF "회복 빠름"
		ENDIF
	CASE 142 ;KR판 오리지날 또는 구잔재 걸레
		SELECTCASE ARG:1
			CASE 1
				RETURNF "빗치"
		ENDSELECT
	CASE 143
		SELECTCASE ARG:1
			CASE 1
				RETURNF "동물귀"
			CASE 2
				RETURNF "토끼귀"
			CASE 3
				RETURNF "이누미미"
			CASE 4
				RETURNF "네코미미"
		ENDSELECT
	CASE 130
		IF ARG:1 == 1
			RETURNF "수유가능"
		ELSEIF ARG:1 == 2
			RETURNF "모유체질"
		ENDIF
	;음악지식
	CASE 161
		SELECTCASE ARG:1
			CASE 1
				RETURNF "악기지식"
			CASE 2
				RETURNF "가창지식"
			CASE 3
				RETURNF "무용지식"
		ENDSELECT
	;음감
	CASE 162
		IF ARG:1 == -1
			RETURNF "음치"
		ELSEIF ARG:1 == 1
			RETURNF "음감"
		ELSEIF ARG:1 == 2
			RETURNF "절대음감"
		ENDIF
	;빙정
	CASE 164
		IF ARG:1 == 1
			RETURNF "빙정"
		ELSEIF ARG:1 == 2
			RETURNF "설녀"
		ENDIF
	;채양보음／채음보양 ;KR판 오리지날
	CASE 179
		IF GETBIT(ARG:1,0)&&GETBIT(ARG:1,2)
			RETURNF "채음보양"
		ELSEIF GETBIT(ARG:1,1)&&GETBIT(ARG:1,3)
			RETURNF "채양보음"
		ENDIF
	;섹프
	CASE 185
		IF ARG:1 == 1
			RETURNF "섹프"
		ELSEIF ARG:1 == 2
			RETURNF "정부"
		ENDIF
	;인간
	CASE 190
		IF ARG:1 == 1
			RETURNF "인간"
		ELSEIF ARG:1 == 2
			RETURNF "선인"
		ELSEIF ARG:1 == 3
			RETURNF "천인"
		ELSEIF ARG:1 == 4
			RETURNF "월인"
		ELSEIF ARG:1 == 5
			RETURNF "마계인"
		ELSEIF ARG:1 == 6
			RETURNF "외계인"
		ENDIF
	;요괴
	CASE 191
		IF ARG:1 == 1
			RETURNF "요괴"
		ELSEIF ARG:1 == 2
			RETURNF "오니"
		ELSEIF ARG:1 == 3
			RETURNF "흡혈귀"
		ELSEIF ARG:1 == 4
			RETURNF "캇파"
		ELSEIF ARG:1 == 5
			RETURNF "텐구"
		ELSEIF ARG:1 == 6
			RETURNF "요수"
		ELSEIF ARG:1 == 7
			RETURNF "요조"
		ELSEIF ARG:1 == 8
			RETURNF "요충"
		ELSEIF ARG:1 == 9
			RETURNF "악마"
		ELSEIF ARG:1 == 10
			RETURNF "난쟁이"
		ELSEIF ARG:1 == 11
			RETURNF "자시키와라시"
		ELSEIF ARG:1 == 12
			RETURNF "야마와로"
		ENDIF
	;요정
	CASE 192
		SIF ARG:1 == 1
			RETURNF "요정"
	;신령
	CASE 193
		IF ARG:1 == 1
			RETURNF "신령"
		ELSEIF ARG:1 == 2
			RETURNF "사신"
		ELSEIF ARG:1 == 3
			RETURNF "염라"
		ENDIF
	;유령
	CASE 194
		IF ARG:1 == 1
			RETURNF "유령"
		ELSEIF ARG:1 == 2
			RETURNF "소령"
		ELSEIF ARG:1 == 3
			RETURNF "사령"
		ELSEIF ARG:1 == 4
			RETURNF "악령"
		ENDIF
	;츠쿠모가미
	CASE 195
		SIF ARG:1 == 1
			RETURNF "츠쿠모가미"
	;인형
	CASE 196
		IF ARG:1 == 1
			RETURNF "인형"
		ELSEIF ARG:1 == 2
			RETURNF "로봇"
		ELSEIF ARG:1 == 3
			RETURNF "골렘"
		ELSEIF ARG:1 == 4
			RETURNF "하니와"
		ELSEIF ARG:1 == 5
			RETURNF "강시"
		ELSEIF ARG:1 == 99
			RETURNF "인형아가씨"
		ENDIF
	;추가종족
	CASE 197
		IF ARG:1 == 1
			RETURNF "무녀"
		ELSEIF ARG:1 == 2
			RETURNF "마법사"
		ELSEIF ARG:1 == 3
			RETURNF "메이드"
		ELSEIF ARG:1 == 4
			RETURNF "봉래인"
		ENDIF
	;유부녀
	CASE 198
		IF ARG:1 == 1
			RETURNF "유부녀"
		ELSEIF ARG:1 == 2
			RETURNF "미망인"
		ENDIF
	;온천 종업원
	CASE 199
		IF ARG:1 == 1
			RETURNF "풍속양"
		ELSEIF ARG:1 == 2
			RETURNF "창부"
		ELSEIF ARG:1 == 3
			RETURNF "단골풍속양"
		ELSEIF ARG:1 == 4
			RETURNF "단골창부"
		ENDIF
	;積み石
	CASE 274
		IF ARG:1 == 1
			RETURNF "돌쌓기 비기너"
		ELSEIF ARG:1 == 2
			RETURNF "돌쌓기 루키"
		ELSEIF ARG:1 == 3
			RETURNF "돌쌓기 엘리트"
		ELSEIF ARG:1 == 4
			RETURNF "돌쌓기 베테랑"
		ELSEIF ARG:1 == 5
			RETURNF "돌쌓기 마스터"
		ELSEIF ARG:1 == 6
			RETURNF "돌쌓기 왕"
		ENDIF
	;형상
	CASE 250
		IF ARG:1 == 1
			RETURNF "유아 자지"
		ELSEIF ARG:1 == 2
			RETURNF "허접 자지"
		ELSEIF ARG:1 == 4
			RETURNF "반딧 자지"
		ELSEIF ARG:1 == 5
			RETURNF "돌기 자리"
		ELSEIF ARG:1 == 6
			RETURNF "거근"
		ELSEIF ARG:1 == 10
			RETURNF "초거근"
		ENDIF
	CASEELSE
		SIF ARG:1
			RETURNF @"%TALENTNAME:ARG%"
ENDSELECT
;-------------------------------------------------
;CHARAの種族素質ARGの名称を返す
;-------------------------------------------------
@GET_TRIBENAME(CHARA, ARG)
#FUNCTIONS
#DIM CHARA
SELECTCASE ARG
CASE GETNUM(TALENT, "인간")
	SELECTCASE TALENT:CHARA:ARG
	CASE 1
		RETURNF "인간"
	CASE 2
		RETURNF "선인"
	CASE 3
		RETURNF "천인"
	CASE 4
		RETURNF "월인"
	CASE 5
		RETURNF "마계인"
	CASE 6
		RETURNF "외계인"
	CASEELSE
		RETURNF "명칭불명（인간）"
	ENDSELECT
CASE GETNUM(TALENT, "요괴")
	SELECTCASE TALENT:CHARA:ARG
	CASE 1
		RETURNF "요괴"
	CASE 2
		RETURNF "오니"
	CASE 3
		RETURNF "흡혈귀"
	CASE 4
		RETURNF "캇파"
	CASE 5
		RETURNF "텐구"
	CASE 6
		RETURNF "요수"
	CASE 7
		RETURNF "요조"
	CASE 8
		RETURNF "요충"
	CASE 9
		RETURNF "악마"
	CASE 10
		RETURNF "난쟁이"
	CASE 11
		RETURNF "자시키와라시"
	CASE 12
		RETURNF "야마와로"
	CASEELSE
		RETURNF "명칭불명（요괴）"
	ENDSELECT
CASE GETNUM(TALENT, "요정")
	SELECTCASE TALENT:CHARA:ARG
	CASE 1
		RETURNF "요정"
	CASEELSE
		RETURNF "명칭불명（요정）"
	ENDSELECT
CASE GETNUM(TALENT, "신령")
	SELECTCASE TALENT:CHARA:ARG
	CASE 1
		RETURNF "신령"
	CASE 2
		RETURNF "사령"
	CASE 3
		RETURNF "염마"
	CASEELSE
		RETURNF "명칭불명（신령）"
	ENDSELECT
CASE GETNUM(TALENT, "유령")
	SELECTCASE TALENT:CHARA:ARG
	CASE 1
		RETURNF "유령"
	CASE 2
		RETURNF "소령"
	CASE 3
		RETURNF "사령"
	CASE 4
		RETURNF "악령"
	CASEELSE
		RETURNF "명칭불명（유령）"
	ENDSELECT
CASE GETNUM(TALENT, "츠쿠모가미")
	SELECTCASE TALENT:CHARA:ARG
	CASE 1
		RETURNF "츠쿠모가미"
	CASEELSE
		RETURNF "명칭불명（츠쿠모가미）"
	ENDSELECT
CASE GETNUM(TALENT, "인형")
	SELECTCASE TALENT:CHARA:ARG
	CASE 1
		RETURNF "인형"
	CASE 2
		RETURNF "로봇"
	CASE 3
		RETURNF "골렘"
	CASE 4
		RETURNF "하니와"
	CASE 5
		RETURNF "강시"
	CASE 99
		RETURNF "인형아가씨"
	CASEELSE
		RETURNF "명칭불명（인형）"
	ENDSELECT
CASE GETNUM(TALENT, "추가종족")
	SELECTCASE TALENT:CHARA:ARG
	CASE 1
		RETURNF "무녀"
	CASE 2
		RETURNF "마법사"
	CASE 3
		RETURNF "메이드"
	CASE 4
		RETURNF "봉래인"
	CASEELSE
		RETURNF "명칭불명（추가종족）"
	ENDSELECT
ENDSELECT


code:
@SHOW_RELATION(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 표시항목수

표시항목수 = 0
PRINTL
PRINTL □ 궁합 □---------------------------------------------------------------------------
PRINTL
FOR LOCAL, 0, CHARANUM
	SIF !RELATION:선택중캐릭터ID:LOCAL
		CONTINUE
	PRINTFORM %CALLNAME:LOCAL, 14, RIGHT%
	PRINT ×
	;색의 선택
	SELECTCASE RELATION:선택중캐릭터ID:LOCAL
	CASE IS < 60
		SETCOLOR C_RED
	CASE IS < 100
		SETCOLOR 0xE9967A
	CASE 100
		SETCOLOR C_YELLOW
	CASE IS < 130
		SETCOLOR C_P_GREEN
	CASE IS < 200
		SETCOLOR C_GREEN
	CASEELSE
		SETCOLOR C_AQUA
	ENDSELECT
	PRINTFORM {RELATION:선택중캐릭터ID:LOCAL, 4 , RIGHT}\%
	RESETCOLOR
	표시항목수 ++
	SIF 표시항목수 % 3 == 0
		PRINTL
NEXT
SIF 표시항목수 % 3 != 0 ; 개인 임의수정, 공통적으로 마지막 행이 개행되게 수정
	PRINTL
PRINTL


code:
;-------------------------------------------------
;신장·체중·3 사이즈의 표시 처리
;-------------------------------------------------
;BASE:20…신장
;BASE:21…체중
;BASE:22…가슴
;BASE:23…웨스트
;BASE:24…히프
;MAXBASE:20…신장 계수
;MAXBASE:21…체중 계수
;MAXBASE:22…가슴 계수
;MAXBASE:23…웨스트 계수
;MAXBASE:24…히프 계수

@MAKE_SIZE, ARG
;신체 측정 플래그가 서 있는 경우는 계수를 생성
;신체 측정필 또한 미설정의 경우도 생성
;CSV에 기입되어 있지 않은 경우의 표준치는 1000
VARSET LOCAL
IF CFLAG:ARG:신체측정 == 2 || (CFLAG:ARG:신체측정 == 1 && (MAXBASE:ARG:신장 == 0 || MAXBASE:ARG:체중 == 0 || MAXBASE:ARG:가슴 == 0 || MAXBASE:ARG:웨스트 == 0 || MAXBASE:ARG:히프 == 0))
	FOR LOCAL, 20, 25
		MAXBASE:ARG:LOCAL = CSVBASE(ARG,LOCAL)
		SIF MAXBASE:ARG:LOCAL == 0
			MAXBASE:ARG:LOCAL = 1000
		MAXBASE:ARG:LOCAL = MAXBASE:ARG:LOCAL * RAND(950, 1050) / 1000
	NEXT
ENDIF

;===신장의 산출===
;기본치
BASE:ARG:신장 = (TALENT:ARG:성별 == 2) ? 1700 # 1500
BASE:ARG:신장 = BASE:ARG:신장 * MAXBASE:ARG:신장 / 1000

;체형 보정
IF TALENT:ARG:체형 == -2
	TIMES BASE:ARG:신장, 0.80
ELSEIF TALENT:ARG:체형 == -1
	TIMES BASE:ARG:신장, 0.90
ELSEIF TALENT:ARG:체형 == 1
	TIMES BASE:ARG:신장, 1.10
ELSEIF TALENT:ARG:체형 == 2
	TIMES BASE:ARG:신장, 1.20
ELSEIF TALENT:ARG:체형 == 3
	TIMES BASE:ARG:신장, 1.50
ENDIF

;===웨스트의 산출===
;기본치
BASE:ARG:웨스트 = BASE:ARG:신장 * 40 / 100
BASE:ARG:웨스트 = BASE:ARG:웨스트 * MAXBASE:ARG:웨스트 / 1000

;체형 보정
IF TALENT:ARG:체형 == -2
	TIMES BASE:ARG:웨스트, 1.16
ELSEIF TALENT:ARG:체형 == -1
	TIMES BASE:ARG:웨스트, 1.08
ENDIF

;그 외 보정
SIF TALENT:ARG:매력
	TIMES BASE:ARG:웨스트, 0.95

;===가슴의 산출===
;기본치
BASE:ARG:가슴 = BASE:ARG:신장 * 51 / 100
BASE:ARG:가슴 = BASE:ARG:가슴 * MAXBASE:ARG:가슴 / 1000

;가슴 사이즈 보정
IF TALENT:ARG:가슴사이즈 == -2
	TIMES BASE:ARG:가슴, 0.84
ELSEIF TALENT:ARG:가슴사이즈 == -1
	TIMES BASE:ARG:가슴, 0.92
ELSEIF TALENT:ARG:가슴사이즈 == 1
	TIMES BASE:ARG:가슴, 1.08
ELSEIF TALENT:ARG:가슴사이즈 == 2
	TIMES BASE:ARG:가슴, 1.16
ENDIF

;B감각에 의한 보정
BASE:ARG:가슴 = BASE:ARG:가슴 * (1000 + MIN(ABL:ARG:B감각, 100)) / 1000

;그 외 보정
SIF TALENT:ARG:매력
	TIMES BASE:ARG:가슴, 1.05

;언더 가슴 이하라면 보정
BASE:ARG:가슴 = MAX(BASE:ARG:신장 * 43 / 100, BASE:ARG:가슴)

;===히프의 산출===
;기본치
BASE:ARG:히프 = BASE:ARG:신장 * 53 / 100
BASE:ARG:히프 = BASE:ARG:히프 * MAXBASE:ARG:히프 / 1000

;그 외 보정
SIF TALENT:ARG:매력
	TIMES BASE:ARG:히프, 1.05

;===체중의 산출===
;기본치
BASE:ARG:체중 = BASE:ARG:신장 * BASE:ARG:신장 / 5000
BASE:ARG:체중 = BASE:ARG:체중 * MAXBASE:ARG:체중 / 1000

;체형 보정
IF TALENT:ARG:체형 == -2
	TIMES BASE:ARG:체중, 0.80
ELSEIF TALENT:ARG:체형 == -1
	TIMES BASE:ARG:체중, 0.90
ELSEIF TALENT:ARG:체형 == 1
	TIMES BASE:ARG:체중, 1.10
ELSEIF TALENT:ARG:체형 == 2
	TIMES BASE:ARG:체중, 1.20
ELSEIF TALENT:ARG:체형 == 3
	TIMES BASE:ARG:체중, 1.50
ELSEIF TALENT:ARG:체형 == 5
	TIMES BASE:ARG:체중, 10.00
ENDIF

;그 외 보정
SIF TALENT:ARG:매력
	TIMES BASE:ARG:체중, 0.95

@SHOW_SIZE, ARG
#DIM L_PENIS,20 ; P사이즈 계산용
;LOCAL:21…임신시의 체중의 계산치
;LOCAL:23…임신시의 웨스트의 계산치
VARSET LOCAL
CALL MAKE_SIZE, ARG
IF CFLAG:ARG:신체측정 == 0
	PRINTL
	PRINTFORML □ 사이즈 □-------------------------------------------------------------------------
	PRINTL  미측정
ELSE
	PRINTL
	PRINT □
	CALL PRINTBUTTON_EX("사이즈",160,TFLAG:160)
	PRINTL  □------------------------------------------------------------------------
	IF !TFLAG:사이즈표시
		;플레이어의 신장·체중은 불명
		IF ARG == NO:0 && TALENT:ARG:성별 == 2
			PRINTFORM  신장:???cm  체중:??kg
		ELSE
			;신장
			CALL ShowScaleInCM(ARG, BASE:ARG:신장, "신장:")
			;체중
			IF TALENT:ARG:임신
				;신장 150 cm로 10 kg정도 증가
				LOCAL:21 = BASE:ARG:체중 + (BASE:ARG:신장 * BASE:ARG:신장 * CFLAG:ARG:임신경과일수 / 2250000)
					PRINTFORM    체중:{LOCAL:21 / 10}. {LOCAL:21 % 10}\@ TALENT:ARG:체형 == -5? g# kg\@
					PRINTFORML  임신전({BASE:ARG:체중 / 10}. {BASE:ARG:체중 % 10}\@ TALENT:ARG:체형 == -5? g# kg\@)
			ELSE
				;소인의 체중은 1/10^3
				PRINTFORML    체중:{BASE:ARG:체중 / 10}. {BASE:ARG:체중 % 10}\@ TALENT:ARG:체형 == -5? g# kg\@
			ENDIF
		ENDIF
		;[남자]가 아닌 플레이어는 비표시는 아니고 불명
		IF TALENT:ARG:성별 != 2
			;가슴
			CALL ShowScaleInCM(ARG, BASE:ARG:가슴, "   Ｂ:")
				PRINTFORM %LOCALS:0%
			CALL PRINT_CUPSIZE , ARG
			;웨스트
			IF TALENT:ARG:임신
				;신장 150 cm로 30 cm정도 증가
				LOCAL:23 = BASE:ARG:웨스트 + (BASE:ARG:신장 * CFLAG:ARG:임신경과일수 / 500)
				CALL ShowScaleInCM(ARG, LOCAL:23, "/ Ｗ:")
				CALL ShowScaleInCM(ARG, BASE:ARG:웨스트, " 임신전(")
				PRINTPLAIN )/
			ELSE
				CALL ShowScaleInCM(ARG, BASE:ARG:웨스트, "/ Ｗ:")
				PRINTFORM /
			ENDIF
			;히프
			CALL ShowScaleInCM(ARG, BASE:ARG:히프, "/ H:")
				PRINTFORML
			ENDIF
		IF HAS_PENIS(ARG)
			;Ｐ
			CALL GET_PENIS_SIZE, L_PENIS, ARG
			CALL ShowScaleInCM(ARG, L_PENIS:1, " Ｐ:")
			CALL ShowScaleInCM(ARG, L_PENIS:5, " 직경：")
			CALL ShowScaleInCM(ARG, L_PENIS:8, "  （평상시:")
			CALL ShowScaleInCM(ARG, L_PENIS:7, " 직경：")
			PRINTPLAIN )
			CALL ShowScaleInCM(ARG, L_PENIS:11, " 편옥직경：")
			PRINTFORML
		ENDIF
	ENDIF
ENDIF
PRINTL

@PRINT_CUPSIZE, ARG
;가슴의 컵 사이즈 생성
SPLIT "(-) ,(AAA) ,(AA) ,(A) ,(B) ,(C) ,(D) ,(E) ,(F) ,(G) ,(H) ,(I) ,(J) ,(K) ,(L) ,(M) ,(N) ,(O) ,(P) ,(Q) ,(R) ,(S) ,(T) ,(U) ,(V) ,(W) ,(X) ,(Y) ,(Z) ,(Z+) ,(규격외) ",",",LOCALS
;기본치
LOCAL = (BASE:ARG:가슴 - (BASE:ARG:신장 * 43 / 100)) / 25

;소인은 1/10
SIF TALENT:ARG:체형 == -5
	TIMES LOCAL, 0.10

;캐릭터라인 변수가 약간 부자유스러운 것으로 억지로 작성
LOCAL = LIMIT(LOCAL, 0, 30)
LOCALS:0 = %LOCALS:(LOCAL)%
PRINTFORM %LOCALS:0%

; ペニス各種サイズ取得 内容は各代入部分を参照
@GET_PENIS_SIZE(L_PENIS, ARG)
#DIM REF L_PENIS,0
#DIM L_PSCALE

; 長さ用シード値
L_PENIS:0 = BASE:ARG:신장*100 + BASE:ARG:웨스트*10 + BASE:ARG:히프

; NOISE2()は平均付近の値が出やすいので、極端な値はレアな存在になる。そんな感じで数値を考える

; 형상の具体的なサイズのスケール感がいまいちわかってないので適当に書きました
; でもこうすると幼児체형＋형상=1のときちょっと不自然な感じになる。このTALENT:형상は絶対的な評価なのか見た目の割にはという意味なのかコレガワカラナイ
; とりあえずいろいろできる方（相対評価）でやっといた
IF TALENT:ARG:형상 == 1 ; 未成熟
	L_PSCALE = (NOISE2(L_PENIS:0, 25) + 45)
ELSEIF TALENT:ARG:형상 == 2 ; 租賃
	L_PSCALE = (NOISE2(L_PENIS:0, 30) + 70)
ELSEIF TALENT:ARG:형상 == 6 ; ごんぶと
	L_PSCALE = (NOISE2(L_PENIS:0, 100) + 175)
ELSEIF TALENT:ARG:형상 == 10 ; 馬並み
	L_PSCALE = (NOISE2(L_PENIS:0, 125) + 275)
ELSE ; 通常
	; 150cmの신장に対して10.0cm～17.5cmを限界としてみる
	L_PSCALE = (NOISE2(L_PENIS:0, 75) + 100)
ENDIF
; 長さ。신장に応じてリサイズ。150cmを境に拡大縮小
L_PENIS:1 = BASE:ARG:신장 * L_PSCALE / 1500

; 萎縮率 とりあえず25%～75%
L_PENIS:2 = NOISE2(L_PENIS:0 * 10 + 100, 50) + 25
; 萎縮後サイズ
L_PENIS:8 = L_PENIS:1 * L_PENIS:2 / 100

; 太さ用シード値
L_PENIS:9 = BASE:ARG:신장*1 + BASE:ARG:웨스트*100 + BASE:ARG:히프*10
; 太さ係数
L_PENIS:3 = (NOISE2(L_PENIS:9, 30) + 85)
; 太さ(周)
L_PENIS:4 = L_PENIS:1 * 80 * L_PENIS:3 / 10000
; 太さ(直径)
L_PENIS:5 = L_PENIS:4 * 1000000 / 3141592
; 平常時太さ(周)
L_PENIS:6 = L_PENIS:1 * 60 * L_PENIS:3 / 10000
; 平常時太さ(直径)
L_PENIS:7 = L_PENIS:6 * 1000000 / 3141592

;玉用シード値
L_PENIS:10 = BASE:ARG:신장*10 + BASE:ARG:웨스트*1 + BASE:ARG:히프*100
; 片玉直径 とりあえずちんちんの大きさに比例
L_PENIS:11 = L_PENIS:1 * 18 * (NOISE2(L_PENIS:10, 40) + 80) / 10000
; 袋横幅
L_PENIS:12 = L_PENIS:11 * 210 / 100

@ShowScaleInCM(C_ID, SIZE, ARGS)
#DIM C_ID
#DIM SIZE

PRINTFORM %ARGS%
IF TALENT:C_ID:체형 == -5
	PRINTFORM {SIZE / 100}.{SIZE % 100 / 10}{SIZE % 10}cm
ELSE
	PRINTFORM {SIZE / 10}.{SIZE % 10}cm
ENDIF