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
PRINTL □ 개인 정보 □-----------------------------------------------------------------------
PRINTL
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
ELSE
	PRINT 활동시간대：
	SELECTCASE 선택중캐릭터ID
	CASE 1
		PRINTL 6～13시 14～23시
	CASE 2
		PRINTL 5～13시 14～24시
	CASE 3
		PRINTL 0～10시 17～24시
	CASE 4
		PRINTL 0～10시 16～24시
	CASE 5
		PRINTL 6～24시
	CASE 6
		PRINTL 0～2시 8～24시
	CASE 7
		PRINTL 0～1시 6～13시 14～24시
	CASE 8
		PRINTL 0～1시 6～13시 14～24시
	CASE 9
		PRINTL 0～5시 10～13시 14～24시
	CASE 10
		PRINTL 0～3시 10～24시
	CASEELSE
		IF CFLAG:선택중캐릭터ID:신사거주 || CFLAG:MASTER:현재위치 == OMANEKIBEYA()
			CALL 기상시간표시(선택중캐릭터ID)
		ELSE
			CALL 체류시간표시(선택중캐릭터ID)
		ENDIF
	ENDSELECT
	IF CFLAG:선택중캐릭터ID:자주가는지역 >= 0
		PRINTFORML 자주 가는 지역 : %GET_MAPNAME(CFLAG:선택중캐릭터ID:자주가는지역)%
	ENDIF
	IF CFLAG:선택중캐릭터ID:자택위치 && !CFLAG:선택중캐릭터ID:신사거주
		LOCAL = CFLAG:선택중캐릭터ID:자택위치 / 10 + 6000
		PRINT 자택 위치：
		PRINTFORML %STR:LOCAL%
	ELSEIF CFLAG:선택중캐릭터ID:신사거주
		PRINT 자택 위치：
		PRINTFORML %GET_MAPNAME(MAIN_MAP)%
	ENDIF
	PRINT 업무 정보：
	PRINTFORML %CSTR:선택중캐릭터ID:일정보%
	PRINT 　 직장　：
	PRINTFORML %CSVCSTR(선택중캐릭터ID, 2)%
ENDIF

PRINT 미각 기호：
IF GETBIT(CFLAG:선택중캐릭터ID:332, 0)
	PRINTFORM ＜진한 맛＞
ELSEIF GETBIT(CFLAG:선택중캐릭터ID:332, 1)
	PRINTFORM ＜담백한 맛＞
ELSE
	PRINTFORM ＜보통＞
ENDIF
SIF GETBIT(CFLAG:선택중캐릭터ID:332, 3)
	PRINTFORM ＜매운맛 내성＞
SIF GETBIT(CFLAG:선택중캐릭터ID:332, 4)
	PRINTFORM ＜단맛 내성＞
SIF GETBIT(CFLAG:선택중캐릭터ID:332, 5)
	PRINTFORM ＜고추냉이 내성＞
SIF GETBIT(CFLAG:선택중캐릭터ID:332, 6)
	PRINTFORM ＜레몬 내성＞
PRINTL
PRINTL 좋아하는 맛：
CALL SHOW_TASTE(GET_STR(, "캐릭터데이터", 선택중캐릭터ID, "요리：좋아하는 맛"))
IF TALENT:선택중캐릭터ID:정애미각 ;KR판 고유기능 또는 구잔재
	LOCALS = [정액]Lv{ABL:선택중캐릭터ID:정액중독*2 + 1, 2}
	PRINTFORML 　%LOCALS, 20%
ENDIF
PRINTL 싫어하는 맛：
CALL SHOW_TASTE(GET_STR(, "캐릭터데이터", 선택중캐릭터ID, "요리：싫어하는 맛"))
PRINTL 조수 효과：
CALL SHOW_TASTE(GET_TASTE_ASSIBONUS(선택중캐릭터ID))
SIF 선택중캐릭터ID == MASTER && STRLENS(DISHNAME)
	CALL SHOW_DISHDATA

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

PRINTL
IF 선택중캐릭터ID == RANDOM_CHARANUM
	;현상, 복잡한 종족 분기 등은 없음으로
	PRINTL □ 캐릭터 소개 □---------------------------------------------------------------------
	PRINTL
	PRINTFORML ∼모브 소녀∼　●종족：인간　●능력：%CSTR:RANDOM_CHARANUM:모브코능력%
	PRINTFORML %CSTR:RANDOM_CHARANUM:모브코프로필1%
	PRINTFORML %CSTR:RANDOM_CHARANUM:모브코프로필2%
ELSEIF CSVCSTR(선택중캐릭터ID, 10) != ""
	PRINTL □ 캐릭터 소개 □---------------------------------------------------------------------
	PRINTL
	;캐릭터 소개문을 말의 전개에 의해 개변하고 싶은 경우 「@CHARA_INFO_KOJO_KX」를 사용한다
	TRYCALLFORM CHARA_INFO_KOJO_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)
		PRINTL 이전 회차에서 연모가 되었던 적이 있다
	SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 1)
		PRINTL 이전 회차에서 연인이 되었던 적이 있다
	SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 7)
		PRINTL 이전 회차에서 아내가 되었던 적이 있다
ENDIF
IF 선택중캐릭터ID == MASTER
	IF TALENT:선택중캐릭터ID:연인
		LOCAL:3 = 1
		FOR LOCAL:1 , 1 , CHARANUM
			IF TALENT:(LOCAL:1):연인
				SIF !(LOCAL:3 % 15)
					PRINTL
				LOCAL:3 ++
				PRINTFORM ［%CALLNAME:(LOCAL:1)%］
			ENDIF
		NEXT
		PRINTFORML 와 사랑하는 사이다
	ELSEIF IS_아내(선택중캐릭터ID)
		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
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 CFLAG:선택중캐릭터ID:발렌타인
	SELECTCASE CFLAG:선택중캐릭터ID:발렌타인 % 100
		CASE 1
			LOCALS = 블랙썬더를
		CASE 2
			LOCALS = 평범한 초콜렛을
		CASE 3
			LOCALS = 고급 초콜렛을
		CASE 4
			LOCALS = 수제 초콜렛을
	ENDSELECT
	PRINTFORML 발렌타인에 %LOCALS% 준 \@ CFLAG:선택중캐릭터ID:발렌타인 > 100?  (답례 완료)# \@
ENDIF
PRINTFORML
PRINTL □ 탄막스킬 □---------------------------------------------------------------------
CALL DANMAKU_OPPONENT_STATUS(선택중캐릭터ID, 1)
@체류시간표시(선택중캐릭터ID)
#DIM 선택중캐릭터ID

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

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

IF CFLAG:선택중캐릭터ID:기상시간 < CFLAG:선택중캐릭터ID:취침시간
	PRINTFORML {CFLAG:선택중캐릭터ID:기상시간 / 60}시～{CFLAG:선택중캐릭터ID:취침시간 / 60}시
ELSE
	PRINTFORML 0시～{CFLAG:선택중캐릭터ID:취침시간 / 60}시 {CFLAG:선택중캐릭터ID:기상시간 / 60}시～24시
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:음유
	PRINTL 완전히 조교가 끝난
	IF TALENT:선택중캐릭터ID:가슴사이즈 < 0
		PRINTL 가슴
	ELSE
		PRINTL 유방
	ENDIF
	PRINTFORML 은 한 번 어루만지기만 해도 몸을 가누지 못할 수준이다
ENDIF

SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 5)
	PRINTFORML 어떡해야 느끼는지 %CALLNAME:MASTER%에게 속속들이 파악당한
IF CFLAG:선택중캐릭터ID:누계뿌려짐
	PRINTFORML 지금까지 {CFLAG:선택중캐릭터ID:누계뿌려짐}의 정액에 범벅된
	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
ENDIF

IF TALENT:선택중캐릭터ID:모유체질
	;PRINTFORML \@ ABL:선택중캐릭터ID:분유중독 >= 3 ? 단맛 나는 젖이 듬뿍 담겨 있다# 자극해주면 단맛 나는 젖이 배어나올 것이다\@
	PRINTFORML 자극해주면 단맛 나는 젖이 배어나올 것이다
ENDIF
SELECTCASE ABL:선택중캐릭터ID:가슴
	CASE IS >= 5
	CASE IS >= 3
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 아직 겉모습에서 변화는 찾아볼 수 없다
		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:아이인원수
	FOR LOCAL, 1,11
		IF CHILDNAME:ARG:LOCAL != ""
			PRINTFORM 제{LOCAL}자：%CHILDNAME:ARG:LOCAL, 15, LEFT%　\@ CHILD_SEX:ARG:LOCAL == 1 ?  ♀ # ♂ \@
			CALL PRINT_DATE(CHILD_BIRTHDAY:ARG:LOCAL)
			PRINTFORM ({CHILD_BIRTHDAY:ARG:LOCAL}일째)
			SELECTCASE CHILD_WEATHER:ARG:LOCAL
			CASE "C민감"
				PRINTFORM 모두의 클리토리스가 민감한
			CASE "V민감"
				PRINTFORM 모두의 여성기가 민감한
			CASE "A민감"
				PRINTFORM 모두의 항문이 민감한
			CASE "B민감"
				PRINTFORM 모두의 가슴이 민감한
			CASE "M민감"
				PRINTFORM 모두의 입술이 민감한
			CASE "치마"
				PRINTFORM 치마가 넘어가 머리에 닿으면 기분 좋아지는
			CASE "팬티"
				PRINTFORM 팬티가 오가는
			CASEELSE
				PRINTFORM %CHILD_WEATHER:ARG:LOCAL%의
			ENDSELECT
			PRINTFORM 날에 태어났다
			IF DAY - CHILD_BIRTHDAY:ARG:LOCAL < 120
				IF CFLAG:ARG:출산경과일 < CHILD_어휘
					PRINTFORML 유아기
				ELSEIF CFLAG:ARG:출산경과일 < CHILD_자립전
					PRINTFORML 유소기
				ELSE
					PRINTFORML 사춘기
				ENDIF
			ELSE
				PRINTFORML 현재 {(DAY - CHILD_BIRTHDAY:ARG:LOCAL) / 124}세
			ENDIF
		ENDIF
	NEXT
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,6
		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)
	PRINTFORML 총수：{RESULT:0, 4}장 종별：{RESULT:1, 2}종 중복：{RESULT:0 - RESULT:1, 4}장
ELSE
	CALL DISPLAY_COLLECTION_B(선택중캐릭터ID)
	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


code:
@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 AA표시
			FLAG:AA표시 = !FLAG:AA표시
			GOTO PRINT_LOOP
		CASEELSE
			RETURN 0
	ENDSELECT
ENDIF

@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

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,132,164,165,166,189,190,191,192,193,194,195,196,197)
			;종족
			TLNT_NO:0:(TLNT_CNT:0) = LOCAL
			TLNT_CNT:0 ++
		ELSEIF GROUPMATCH(LOCAL, 0,1,3,4,5,6,7,8,60,70,72,73,74,75,76,77,78,82,83,122,142,152,183,184,185,250,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,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, 47,48,49,50,51,52,53,55,93,135,136,144,147,161,162,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 = ""
		SIF LOCAL:2 == 0 && TLNT_CNT:0 == 0
			CALL PRINT_종족추출(선택중캐릭터ID)
		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)
				SETCOLOR 255, 120, 200
				FONTBOLD
			ELSEIF LOCAL == 8
				SETCOLOR C_PINK
			ENDIF
			PRINTFORM [%GET_TALENTNAME(LOCAL, TALENT:선택중캐릭터ID:LOCAL)%]
			RESETCOLOR
			FONTREGULAR
		NEXT
		SIF LOCALS != " "
			PRINTL
	NEXT
ENDIF

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

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, "　", "")%
			PRINTFORM [%LOCALS:1%]
			BREAK
		ENDIF
	NEXT
ELSEIF 선택중캐릭터ID == [[소악마]]
	PRINTFORM [악마]
;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 때에만 사용
#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

repo_name: purugi/eraTWKR

license: mit


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
	;;연인
	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 "거인"
		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
		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
	;채양보음／채음보양
	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 192
		IF ARG:1 == 1
			RETURNF "비생물"
		ELSEIF ARG:1 == 2
			RETURNF "영체"
		ENDIF
	;신령
	CASE 193
		IF 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 "천인"
		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


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
PRINTL


code:
;-------------------------------------------------
;신장·체중·3 사이즈의 캐릭터마다 데이터
;-------------------------------------------------
;SIZE.ERB내의@MAKE_SIZE로부터 불려 간다
;신장만 mm로 직접 지정→계수에 다시 당겨 돌려준다
;계수는 1000이 기준으로 작으면 가벼운 또는 작은, 크면 무거운 또는 크다
;0를 돌려주었을 경우는 미설정으로서 취급된다
;★신장 이외의 계수는 취급 주의입니다
;★특히 가슴 계수를 움직이면 소질과 일치하지 않는 수치가 나올지도 모릅니다.

@SIZE_DATA, ARG, ARG:1
#FUNCTION
#DIM 신장
#DIM 신장계수
#DIM 체중계수
#DIM 가슴계수
#DIM 웨스트계수
#DIM 히프계수

신장 = 0
체중계수 = 0
가슴계수 = 0
웨스트계수 = 0
히프계수 = 0

SELECTCASE ARG
	CASE 0 ;당신
		;★이후의 캐릭터의 미설정항목을 설정하는 경우는 코피페 해 입력해 주세요.
		신장 = 0
		체중계수 = 0
		가슴계수 = 0
		웨스트계수 = 0
		히프계수 = 0
	CASE 1 ;레이무
		신장 = 1520
	CASE 2 ;-일
	CASE 3 ;카나
	CASE 4 ;미마
	CASE 5 ;서니
		신장 = 990
	CASE 6 ;루나
		신장 = 990
	CASE 7 ;스타
		신장 = 990
	CASE 8 ;치유리
		신장 = 1430
	CASE 9 ;유메미
		신장 = 1570
	CASE 10 ;스이카
		신장 = 1250
	CASE 11 ;마리사
		신장 = 1440
	CASE 12 ;루미아
		신장 = 1130
	CASE 13 ;대요정
		신장 = 1280
	CASE 14 ;치르노
		신장 = 960
	CASE 15 ;사쿠야
		신장 = 1610
	CASE 16 ;레밀리아
		신장 = 1350
	CASE 17 ;앨리스
		신장 = 1530
	CASE 18 ;릴리Ｗ
		신장 = 1000
	CASE 19 ;릴리B
		신장 = 1000
	CASE 20 ;리리카
		신장 = 1380
	CASE 21 ;메를랑
		신장 = 1530
	CASE 22 ;루나사
		신장 = 1500
	CASE 23 ;요우무
		신장 = 1460
	CASE 24 ;첸
		신장 = 1290
	CASE 25 ;란
		신장 = 1630
	CASE 26 ;유카리
		신장 = 1650
	CASE 27 ;리글
		신장 = 1350
	CASE 28 ;미스티아
		신장 = 1400
	CASE 29 ;문
		신장 = 1580
	CASE 30 ;영희
		신장 = 1480
	CASE 31 ;사나에
		신장 = 1570
	CASE 32 ;카나코
		신장 = 1720
	CASE 33 ;스와코
		신장 = 1380
	CASE 34 ;텐시
		신장 = 1530
	CASE 35 ;이쿠
		신장 = 1590
	CASE 36 ;린
		신장 = 1570
	CASE 37 ;하늘
		신장 = 1680
	CASE 38 ;진하고
		신장 = 1420
	CASE 39 ;나즈린
		신장 = 1360
	CASE 40 ;코가사
		신장 = 1460
	CASE 41 ;누에
		신장 = 1440
	CASE 42 ;하타테
		신장 = 1540
	CASE 43 ;카센
		신장 = 1580
	CASE 44 ;엘렌
	CASE 45 ;리카코
	CASE 46 ;메이라
	CASE 47 ;리카
	CASE 48 ;루이즈
	CASE 49 ;사토리
		신장 = 1480
	CASE 50 ;프랑
		신장 = 1310
	CASE 51 ;니토리
		신장 = 1430
	CASE 52 ;레이센
		신장 = 1620
	CASE 53 ;테위
		신장 = 1300
	CASE 54 ;파츄리
		신장 = 1480
		웨스트계수 = 1080
		히프계수 = 1050
	CASE 55 ;뱌쿠렌
		신장 = 1640
	CASE 56 ;미코
		신장 = 1560
	CASE 57 ;코코로
		신장 = 1580
	CASE 58 ;메이링
		신장 = 1630
	CASE 59 ;소악마
		신장 = 1560
	CASE 60 ;파르시
		신장 = 1520
	CASE 61 ;모코우
		신장 = 1600
	CASE 62 ;카구야
		신장 = 1560
	CASE 63 ;카게로
		신장 = 1600
	CASE 64 ;유우기
		신장 = 1770
	CASE 65 ;모미지
		신장 = 1610
	CASE 66 ;유유코
		신장 = 1590
	CASE 67 ;케이네
		신장 = 1620
	CASE 68 ;유카
		신장 = 1580
	CASE 69 ;마미조
		신장 = 1630
	CASE 70 ;코스즈
		신장 = 1420
	CASE 71 ;신묘마루
		;다음에 1/10에
		신장 = 1370
	CASE 72 ;에이린
		신장 = 1670
	CASE 73 ;반키
		신장 = 1520
	CASE 74 ;레티
		신장 = 1590
		웨스트계수 = 1200
		히프계수 = 1100
	CASE 75 ;메디슨
		신장 = 750
	CASE 76 ;코마치
		신장 = 1650
	CASE 77 ;시즈하
		신장 = 1460
	CASE 78 ;미노리코
		신장 = 1510
	CASE 79 ;히나
		신장 = 1480
	CASE 80 ;아큐
		신장 = 1430
	CASE 81 ;렌코
		신장 = 1570
	CASE 82 ;메리
		신장 = 1600
	CASE 83 ;키스메
		신장 = 1220
	CASE 84 ;야마메
		신장 = 1520
	CASE 85 ;이치린
		신장 = 1560
	CASE 86 ;미나미츠
		신장 = 1570
	CASE 87 ;별
		신장 = 1660
	CASE 88 ;쿄코
		신장 = 1340
	CASE 89 ;요시카
		신장 = 1550
	CASE 90 ;청아
		신장 = 1530
	CASE 91 ;토지코
		신장 = 1570
	CASE 92 ;후토
		신장 = 1420
	CASE 93 ;와카사기히메
		신장 = 1490
	CASE 94 ;벤벤
		신장 = 1580
	CASE 95 ;야츠하시
		신장 = 1540
	CASE 96 ;라이코
		신장 = 1610
	CASE 97 ;세이자
		신장 = 1470
	CASE 98 ;요리히메
		신장 = 1630
	CASE 99 ;토요히메
		신장 = 1590
	CASE 100 ;레이센
	CASE 101 ;토키코
	CASE 102 ;신키
	CASE 103 ;유메코
	CASE 104 ;유키
	CASE 105 ;마이
	CASE 106 ;스미레코
	CASE 107 ;세이란
	CASE 108 ;링고
	CASE 109 ;도레미
	CASE 110 ;사구메
	CASE 111 ;클라운피스
	CASE 112 ;순호
	CASE 113 ;헤카티아
	CASE 114 ;쿠루미
	CASE 115 ;에리
	CASE 116 ;무게츠
	CASE 117 ;겐게츠
	CASE 118 ;라바
	CASE 119 ;네무노
	CASE 120 ;아운
	CASE 121 ;나루미
	CASE 122 ;마이
	CASE 123 ;사토노
	CASE 124 ;오키나
	CASE 125 ;조온
	CASE 126 ;시온
ENDSELECT

;신장을 신장 계수에 다시 당긴다
신장계수 = 신장 * 1000 / ((TALENT:ARG:성별 == 2) ? 1700 # 1500)

SIF ARG:1 == 20
	RETURNF 신장계수
SIF ARG:1 == 21
	RETURNF 체중계수
SIF ARG:1 == 22
	RETURNF 가슴계수
SIF ARG:1 == 23
	RETURNF 웨스트계수
SIF ARG:1 == 24
	RETURNF 히프계수
RETURNF


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) ;TODO COMMON.ERB 이식 필요
#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


code:
[SKIPSTART]
;여기에서 꼬박 폐지하고 싶다(875행째까지)
@Show_CharaData
#DIM 캐릭터등록번호
#DIM 리스트번호
#DIM 캐릭터리스트, 캐릭터수상한
#DIM 최대리스트캐릭터번호

;초기화
리스트번호 = 0
VARSET 소트항목 , 0

;표시하는 캐릭터리스트를 작성
VARSET 캐릭터리스트, -1
FOR 캐릭터등록번호, 0, CHARANUM
	;출금캐릭터는 리스트 들어가지 않는다(캐릭터의 실체는 존재한다)
	IF CFLAG:캐릭터등록번호:출금 == 1 || TALENT:캐릭터등록번호:스침
		CONTINUE
	ELSE
		캐릭터리스트:리스트번호 = 캐릭터등록번호
		리스트번호++
	ENDIF
NEXT
;어디까지 들어가고 있어를 명시한다
최대리스트캐릭터번호 = 리스트번호 - 1
DEBUGPRINTFORML {최대리스트캐릭터번호}
CALL CheckCharaData(캐릭터리스트, 최대리스트캐릭터번호)
RETURN

;이 근처의 상자를 해소하는 것이 좋을까
@CheckCharaData(캐릭터리스트, 최대리스트캐릭터번호)
#DIM REF 캐릭터리스트
#DIM 리스트페이지번호
#DIM 최대리스트페이지번호
#DIM 최대리스트캐릭터번호

;초기화
리스트페이지번호 = 0
최대리스트페이지번호 = 최대리스트캐릭터번호 / 리스트 표시행수

;WHILE 루프를 별함수 로 분리
CALL CheckCharaDataProc(캐릭터리스트, 리스트페이지번호, 최대리스트페이지번호, 최대리스트캐릭터번호)
RETURN

@CheckCharaDataProc(캐릭터리스트, 리스트페이지번호, 최대리스트페이지번호, 최대리스트캐릭터번호)
#DIM REF 캐릭터리스트
#DIM REF 리스트페이지번호
#DIM REF 최대리스트페이지번호
#DIM REF 최대리스트캐릭터번호
#DIM 입력치
#DIM 리스트번호
#DIM 전원표시플래그

WHILE 1
	;어느쪽이나 상세를 알고 싶은 캐릭터의 리스트번호를 돌려보낸다
	;CSV로 정의된 번호나 캐릭터 생성때에 부여되는 번호는 아니다
	IF 전원표시플래그
		CALL DrawAllChara(캐릭터리스트, 최대리스트캐릭터번호)
	ELSE
		;일람을 표시
		CALL DrawCharaList(캐릭터리스트, 리스트페이지번호, 최대리스트페이지번호, 최대리스트캐릭터번호)
	ENDIF
	;RESULT에 두고 있을 뿐으로 하고 싶지 않으면 어리광
	입력치 = RESULT

	;리스트번호 이외의 특수한 입력의 처리
	IF 입력치 == 돌아간다
		RETURN
	;전원 표시의 변환
	ELSEIF 입력치 == 9000
		;비트 반전해, 재묘화
		전원표시플래그 = !전원표시플래그
		CONTINUE
	ENDIF
	리스트번호 = 입력치
	;능력을 표시
	CALL DrawCharaData(캐릭터리스트, 최대리스트캐릭터번호, 리스트번호)

	;상세 표시로부터 일람에 돌아왔을 때에 조금 전까지 능력을 보고 있었던 놈의 페이지에 맞춘다
	리스트페이지번호 = 리스트번호 / 리스트 표시행수
WEND

@DrawCharaList(캐릭터리스트, 리스트페이지번호, 최대리스트페이지번호, 최대리스트캐릭터번호)
#DIM REF 캐릭터리스트
#DIM REF 리스트페이지번호
#DIM REF 최대리스트페이지번호
#DIM 페이지번호
#DIM 최대페이지번호
#DIM REF 최대리스트캐릭터번호
#DIM 리스트번호
#DIM 입력치
#DIM CONST 바길이 = 10

;페이지번호의 초기화는 하지 않는 것이 좋다고 말해졌으므로 삭제, 오작동은 모르는
	;페이지번호 = 0

;. ERH
최대페이지번호 = 간이 능력표시 최대페이지번호

WHILE 1
	DRAWLINE
	CALL ShowStatusHeader(페이지번호, 최대페이지번호, 최대리스트캐릭터번호)
	DRAWLINE
	CALL ShowStatusBody(캐릭터리스트, 리스트페이지번호, 페이지번호, 리스트번호)
	DRAWLINE
	CALL ShowListFooter(리스트페이지번호, 최대리스트페이지번호)

	PRINTL [9000] 전원 표시

	CALL InputListDataNum(페이지번호, 최대페이지번호, 리스트페이지번호, 최대리스트페이지번호)
	입력치 = RESULT
	SELECTCASE 입력치
		CASE 0 TO 최대리스트캐릭터번호, 9000
			RETURN 입력치
		CASE 재묘화
			CONTINUE
		CASE 돌아간다
			RETURN 돌아간다
		CASE 2001 TO 2000 + (최대페이지번호 + 1) * 10
			CALL SORT_능력(캐릭터리스트, 페이지번호, 입력치, 최대리스트캐릭터번호)
			CONTINUE
		CASEELSE
			PRINTW 입력치가 이상합니다
	ENDSELECT
WEND

THROW 루프에 미비가 있는 것 같습니다

@DrawCharaData(캐릭터리스트, 최대리스트캐릭터번호, 리스트번호)
#DIM REF 캐릭터리스트
#DIM REF 최대리스트캐릭터번호
#DIM REF 리스트번호
#DIM 페이지번호
#DIM 최대페이지번호
#DIM 입력치
#DIM 소질번호
#DIM 항목수

;초기화
페이지번호 = 0
;. ERH
최대페이지번호 = 상세능력표시최대페이지번호

WHILE 1
	;능력표시
	CALL PRINT_STATE(캐릭터리스트:리스트번호, 페이지번호)

	DRAWLINE
	CALL ShowListFooter(리스트번호, 최대리스트캐릭터번호)

	CALL InputListDataNum(페이지번호, 최대페이지번호, 리스트번호, 최대리스트캐릭터번호)
	입력치 = RESULT

	SELECTCASE 입력치
		CASE 재묘화
			CONTINUE
		CASE 돌아간다
			RETURN 돌아간다
		CASE AA표시
			FLAG:AA표시 = !FLAG:AA표시
		CASE 160 TO 167
			TFLAG:입력치 = !TFLAG:입력치
		CASEELSE
	ENDSELECT
WEND

THROW 루프에 미비가 있는 것 같습니다

@InputListDataNum(페이지번호, 최대페이지번호, 리스트페이지번호, 최대리스트페이지번호)
#DIM REF 페이지번호
#DIM REF 최대페이지번호
#DIM REF 리스트페이지번호
#DIM REF 최대리스트페이지번호
#DIMS 입력캐릭터라인
#DIM 입력수치

WHILE 1
	INPUTS
	입력캐릭터라인 = %RESULTS%
	PRINTL
	SELECTCASE 입력캐릭터라인
		;처리의 공통 부분을 뽑아내고 싶다
		CASE 이전페이지 , "1100"
			페이지번호--
			IF 페이지번호 < 0
				페이지번호 = 최대페이지번호
			ENDIF
			RETURN 재묘화
		CASE 다음페이지 , "1200"
			페이지번호++
			IF 페이지번호 > 최대페이지번호
				페이지번호 = 0
			ENDIF
			RETURN 재묘화
		CASE 이전캐릭터 , "1001"
			리스트페이지번호--
			IF 리스트페이지번호 < 0
				리스트페이지번호 = 최대리스트페이지번호
			ENDIF
			RETURN 재묘화
		CASE 다음캐릭터 , "1002"
			리스트페이지번호++
			IF 리스트페이지번호 > 최대리스트페이지번호
				리스트페이지번호 = 0
			ENDIF
			RETURN 재묘화
		CASE 그만둔다 , "1000"
			;돌아가라
			RETURN 돌아간다
		CASEELSE
			입력수치 = TOINT(입력캐릭터라인)
			RETURN 입력수치
	ENDSELECT
WEND

@ShowStatusHeader(페이지번호, 최대페이지번호, 최대리스트캐릭터번호)
#DIM 페이지번호
#DIM 최대페이지번호
#DIM REF 최대리스트캐릭터번호

PRINTFORM Page {페이지번호, 2}/{최대페이지번호, 2}
SELECTCASE 페이지번호
	;체력 기력
	CASE 0
		PRINT
		CALL SORT_능력_표시("체력")
		PRINT
		CALL SORT_능력_표시("기력")
	;능력(간이)
	CASE 1
		PRINT 능력
		CALL SORT_능력_표시("C감")
		PRINT |
		CALL SORT_능력_표시("V감")
		PRINT |
		CALL SORT_능력_표시("A감")
		PRINT |
		CALL SORT_능력_표시("B감")
		PRINT |
		CALL SORT_능력_표시("Ｍ감")
		PRINT |
		CALL SORT_능력_표시("친밀")
		PRINT |
		CALL SORT_능력_표시("순종")
		PRINT |
		CALL SORT_능력_표시("욕망")
		PRINT |
		CALL SORT_능력_표시("기교")
		PRINT |
	;성 기술
	CASE 2
		PRINT 성 기술
		CALL SORT_능력_표시("손가락")
		PRINT |
		CALL SORT_능력_표시("혀")
		PRINT |
		CALL SORT_능력_표시("가슴")
		PRINT |
		CALL SORT_능력_표시("허리")
		PRINT |
		CALL SORT_능력_표시("질")
		PRINT |
		CALL SORT_능력_표시("A")
		PRINT |
	;각인
	CASE 3
		PRINT 각인
		CALL SORT_능력_표시("고통")
		PRINT |
		CALL SORT_능력_표시("쾌락")
		PRINT |
		CALL SORT_능력_표시("괘씸")
		PRINT |
		CALL SORT_능력_표시("반발")
		PRINT |
		CALL SORT_능력_표시("시간")
		PRINT |
	;호감도외
	CASE 4
		PRINT
		CALL SORT_능력_표시("호감")
		PRINT |
		CALL SORT_능력_표시("신뢰")
		PRINT |
	CASEELSE
		PRINTFORM 변수가 이상치입니다"페이지번호 = {페이지번호}"
ENDSELECT
PRINTL

@ShowStatusBody(캐릭터리스트, 리스트페이지번호, 페이지번호, 리스트번호)
#DIM REF 캐릭터리스트
#DIM REF 리스트페이지번호
#DIM 페이지번호
#DIM 리스트번호
#DIM CONST 바길이 = 10
#DIM 표시신분번호
#DIM 캐릭터등록번호
#DIMS 표시문

FOR 리스트번호, 리스트페이지번호 * 리스트 표시행수, (리스트페이지번호 + 1) * 리스트 표시행수

	;배열의 같은 요소를 몇 번이나 쓰는 것이 보기 흉했기 때문에 정리한다
	캐릭터등록번호 = 캐릭터리스트:리스트번호

	IF 캐릭터등록번호 == -1
		PRINTL [   ]
		CONTINUE
	ENDIF
	PRINTFORM [{리스트번호, 3}] %CALLNAME:캐릭터등록번호, 이름 표시 길이, LEFT%
	SELECTCASE 페이지번호
		;체력 기력
		;빈 공간에 두 개의 이름이라든지 넣으면(자) 즐겁지만 CSV 만지는 것 귀찮아의로 패스
		CASE 0
			CALL PRINT_COLORBAR, BASE:캐릭터등록번호:체력, MAXBASE:캐릭터등록번호:체력, 바길이, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("초록"), RESULT:1
			PRINTFORM  ({BASE:캐릭터등록번호:체력, 5}/{MAXBASE:캐릭터등록번호:체력, 5})
			CALL PRINT_COLORBAR, BASE:캐릭터등록번호:기력, MAXBASE:캐릭터등록번호:기력, 바길이, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("파랑"), RESULT:1
			PRINTFORM  ({BASE:캐릭터등록번호:기력, 5}/{MAXBASE:캐릭터등록번호:기력, 5})
		;능력(간이)
		;각 감각과 친밀 순종 욕망 기교만
		CASE 1
			;매우 적당하게 다하고 수정의 여지 있어
			FOR 표시신분번호, 0, 13
				IF ABLNAME:표시신분번호 != ""
					CALL PRINT_알파벳평가(캐릭터등록번호, 4, 표시신분번호)
					PRINTFORM {ABL:캐릭터등록번호:표시신분번호, 4}|
				ENDIF
			NEXT
		;성 기술
		CASE 2
			;매우 적당하게 다하고 수정의 여지 있어
			FOR 표시신분번호, 50, 56
				IF ABLNAME:표시신분번호 != ""
					CALL PRINT_알파벳평가(캐릭터등록번호, 3, 표시신분번호)
					PRINTFORM {ABL:캐릭터등록번호:표시신분번호, 3}|
				ENDIF
			NEXT
		;각인
		CASE 3
			;매우 적당하게 다하고 수정의 여지 있어
			FOR 표시신분번호, 0, 6
				IF MARKNAME:표시신분번호 == ""
					CONTINUE
				ENDIF
				;반발각인 이력은 표시하지 않게
				SIF 표시신분번호 == 4
					CONTINUE
				IF 표시신분번호 == 3
					SETCOLOR C_RED
					PRINTFORM %"×" * (MARK:캐릭터등록번호:표시신분번호), 6%|
				ELSE
					SETCOLOR 255, 255, 0
					PRINTFORM %"★" * (MARK:캐릭터등록번호:표시신분번호), 6%|
				ENDIF
				RESETCOLOR
			NEXT
		;호감도외
		;스페이스의 잡는 방법은 초적당
		CASE 4
			;호감도
			CALL PRINT_알파벳평가(캐릭터등록번호, 1, )
			PRINTFORM {CFLAG:캐릭터등록번호:호감도, 6}|

			;신뢰도
			CALL PRINT_알파벳평가(캐릭터등록번호, 2, )
			PRINTFORM {CFLAG:캐릭터등록번호:신뢰도, 6}|

			;연모
			IF TALENT:캐릭터등록번호:연인
				SETCOLOR C_RED
				표시문 = 연인
			ELSEIF TALENT:캐릭터등록번호:연모 == 1
				SETCOLOR 0xEE60EE
				표시문 = 연모
			ELSEIF TALENT:캐릭터등록번호:사모 == 1
				표시문 = 사모
			ELSE
				표시문 =
			ENDIF
			PRINTFORM %표시문, 4, LEFT%|
			RESETCOLOR

			;기정사실
			SELECTCASE CFLAG:(캐릭터등록번호):생해금
				CASE 2
					표시문 = 위험일 생H해금
				CASE 1
					표시문 = 생H해금
				CASE 0
					IF GETBIT(CFLAG:(캐릭터등록번호):기정사실, 1)
						표시문 = 합의 취득
					ELSE
						표시문 =
					ENDIF
			ENDSELECT
			PRINTFORM %표시문, 14, LEFT%|

			;생리주기가시화
			SIF FLAG:1007
				CALL PRINT_CYCLE_다음날(캐릭터등록번호)

			SIF CFLAG:(캐릭터등록번호):출산경과일 > 0
				PRINTFORM 육아중
			RESETCOLOR
			SIF GETBIT(CFLAG:(캐릭터등록번호):기정사실, 2)
				PRINTFORM 연인 같은 종류
			;약점
			IF CFLAG:(캐릭터등록번호):약점잡음 && CFLAG:(캐릭터등록번호):약점잡힘
				PRINTFORM %마스터와% 서로의 약점을 서로 잡고
			ELSEIF CFLAG:(캐릭터등록번호):약점잡음
				PRINTFORM %CALLNAME:MASTER%의 약점을 잡고 있다
			;SIF GETBIT(CFLAG:(캐릭터등록번호):약점, 0)
			;	PRINTFORM 팬티를 몰수되었다
			;SIF GETBIT(CFLAG:(캐릭터등록번호):약점, 1)
			;	PRINTFORM 정사를 볼 수 있었다
			ELSEIF CFLAG:(캐릭터등록번호):약점잡힘
				PRINTFORM %CALLNAME:MASTER%에 자위 현장이 목격되었던 적이 있다
			ENDIF
	ENDSELECT
	PRINTL
NEXT

@ShowListFooter(리스트페이지번호, 최대리스트페이지번호)
#DIM 리스트페이지번호
#DIM 최대리스트페이지번호

IF FLAG:능력표기
	PRINTBUTTONLC @"[1100] - 이전페이지", 이전페이지
	PRINTBUTTONLC @"[1000] - 그만둔다", 그만둔다
	PRINTBUTTONLC @"[1200] - 다음페이지", 다음페이지
	PRINTL
	PRINTBUTTONLC @"[1001] - 이전캐릭터", 이전캐릭터
	PRINTFORMLC 리스트 {리스트페이지번호}/{최대리스트페이지번호}
	PRINTBUTTONLC @"[1002] - 차의 캐릭터", 다음캐릭터

ELSE
	PRINTBUTTONLC @"[%이전페이지%] - 이전페이지", 이전페이지
	PRINTBUTTONLC @"[%그만둔다%] - 그만둔다", 그만둔다
	PRINTBUTTONLC @"[%다음페이지%] - 다음페이지", 다음페이지
	PRINTL
	PRINTBUTTONLC @"[%이전캐릭터%] - 이전캐릭터", 이전캐릭터
	PRINTFORMLC 리스트 {리스트페이지번호}/{최대리스트페이지번호}
	PRINTBUTTONLC @"[%다음캐릭터%] - 다음캐릭터", 다음캐릭터
ENDIF

@DrawAllChara(캐릭터리스트, 최대리스트캐릭터번호)
#DIM REF 캐릭터리스트
#DIM REF 최대리스트캐릭터번호
#DIM 캐릭터리스트번호
#DIM 입력치

WHILE 1
	;FOR문이 조건을 채운 시점에서 종료하므로+1
	;제일 마지막 캐릭터가 표시되지 않는 것에의 대응
	FOR 캐릭터리스트번호, 0, 최대리스트캐릭터번호 + 1
		PRINTFORMLC [{캐릭터리스트번호}] %CALLNAME:(캐릭터리스트:캐릭터리스트번호), 15, LEFT%
	NEXT
	PRINTL
	DRAWLINE
	PRINTL [9000] 목록으로 돌아간다
	PRINTL [1000] - 그만둔다

	INPUT
	입력치 = RESULT
	SELECTCASE 입력치
		CASE 1000
			RETURN 돌아간다
		CASE 0 TO 최대리스트캐릭터번호, 9000
			RETURN 입력치
	ENDSELECT
WEND

;실제로 능력의 소트를 실시한다
@SORT_능력(캐릭터리스트, 페이지번호, 입력치, 최대리스트캐릭터번호)
#DIM REF 캐릭터리스트
#DIM REF 페이지번호
#DIM REF 최대리스트캐릭터번호
#DIM 입력치
#DIM 참조하는능력
#DIM 캐릭터등록번호
#DIM 리스트번호

입력치 -= 2000
참조하는능력 = 입력치

;내림차순으로 하는 경우
IF 소트항목:입력치 == 0
	SELECTCASE 참조하는능력
		;체력 기력
		CASE 1 TO 2
			참조하는능력 --
		;C감각으로부터 M감각까지
		CASE 11 TO 15
			참조하는능력 -= 11
		;친밀 순종 욕망 기교
		CASE 16 TO 19
			참조하는능력 -= 7
		;성 기술
		CASE 21 TO 26
			참조하는능력 += 29
		;각인(시간각인 이외)
		CASE 31 TO 34
			참조하는능력 -= 31
		;각인(시간각인)
		CASE 35
			참조하는능력 = 5
		;호감도
		CASE 41
			참조하는능력 = 2
		;신뢰도
		CASE 42
			참조하는능력 = 4
		CASEELSE
			PRINTW 변수치가 이상합니다(능력표시. ERB @SORT_능력)
	ENDSELECT

	;보는 장소가 BASE였거나 ABL였거나 MARK이기도 하므로 페이지로 나누고 알기 쉽고
	;0페이지눈의 경우(참조 부분 BASE)
	IF 페이지번호 == 0
		FOR LOCAL:0, 1, 최대리스트캐릭터번호
			FOR LOCAL:1, LOCAL:0 +1, 최대리스트캐릭터번호+1
				IF BASE:(캐릭터리스트:(LOCAL:0)):(참조하는능력) < BASE:(캐릭터리스트:(LOCAL:1)):(참조하는능력)
					LOCAL:2 = 캐릭터리스트:(LOCAL:0)
					캐릭터리스트:(LOCAL:0) = 캐릭터리스트:(LOCAL:1)
					캐릭터리스트:(LOCAL:1) = LOCAL:2
				ENDIF
			NEXT
		NEXT
	;1페이지눈의 경우(참조 부분 ABL)
	ELSEIF 페이지번호 == 1
		FOR LOCAL:0, 1, 최대리스트캐릭터번호
			FOR LOCAL:1, LOCAL:0 +1, 최대리스트캐릭터번호+1
				IF ABL:(캐릭터리스트:(LOCAL:0)):(참조하는능력) < ABL:(캐릭터리스트:(LOCAL:1)):(참조하는능력)
					LOCAL:2 = 캐릭터리스트:(LOCAL:0)
					캐릭터리스트:(LOCAL:0) = 캐릭터리스트:(LOCAL:1)
					캐릭터리스트:(LOCAL:1) = LOCAL:2
				ENDIF
			NEXT
		NEXT
	;2페이지눈의 경우(참조 부분 ABL)
	ELSEIF 페이지번호 == 2
		FOR LOCAL:0, 1, 최대리스트캐릭터번호
			FOR LOCAL:1, LOCAL:0 +1, 최대리스트캐릭터번호+1
				IF ABL:(캐릭터리스트:(LOCAL:0)):(참조하는능력) < ABL:(캐릭터리스트:(LOCAL:1)):(참조하는능력)
					LOCAL:2 = 캐릭터리스트:(LOCAL:0)
					캐릭터리스트:(LOCAL:0) = 캐릭터리스트:(LOCAL:1)
					캐릭터리스트:(LOCAL:1) = LOCAL:2
				ENDIF
			NEXT
		NEXT
	;3페이지눈의 경우(참조 부분 MARK)
	ELSEIF 페이지번호 == 3
		FOR LOCAL:0, 1, 최대리스트캐릭터번호
			FOR LOCAL:1, LOCAL:0 +1, 최대리스트캐릭터번호+1
				IF MARK:(캐릭터리스트:(LOCAL:0)):(참조하는능력) < MARK:(캐릭터리스트:(LOCAL:1)):(참조하는능력)
					LOCAL:2 = 캐릭터리스트:(LOCAL:0)
					캐릭터리스트:(LOCAL:0) = 캐릭터리스트:(LOCAL:1)
					캐릭터리스트:(LOCAL:1) = LOCAL:2
				ENDIF
			NEXT
		NEXT
	;4페이지눈의 경우(참조 부분 CFLAG)
	ELSEIF 페이지번호 == 4
		FOR LOCAL:0, 1, 최대리스트캐릭터번호
			FOR LOCAL:1, LOCAL:0 +1, 최대리스트캐릭터번호+1
				IF CFLAG:(캐릭터리스트:(LOCAL:0)):(참조하는능력) < CFLAG:(캐릭터리스트:(LOCAL:1)):(참조하는능력)
					LOCAL:2 = 캐릭터리스트:(LOCAL:0)
					캐릭터리스트:(LOCAL:0) = 캐릭터리스트:(LOCAL:1)
					캐릭터리스트:(LOCAL:1) = LOCAL:2
				ENDIF
			NEXT
		NEXT
	ENDIF
;내림차순으로부터 승순으로 전환하는 경우
ELSEIF 소트항목:입력치 == 1
	FOR LOCAL:0, 1, 최대리스트캐릭터번호 / 2 + 1
		LOCAL:1 = 캐릭터리스트:(LOCAL:0)
		캐릭터리스트:(LOCAL:0) = 캐릭터리스트:(최대리스트캐릭터번호 - LOCAL:0 + 1)
		캐릭터리스트:(최대리스트캐릭터번호 - LOCAL:0 + 1) = LOCAL:1
	NEXT
ELSE
	리스트번호 = 0
	FOR 캐릭터등록번호, 0, CHARANUM
	;출금캐릭터는 리스트 들어가지 않는다(캐릭터의 실체는 존재한다)
	IF CFLAG:캐릭터등록번호:출금 == 1
		CONTINUE
	ELSE
		캐릭터리스트:리스트번호 = 캐릭터등록번호
		리스트번호++
	ENDIF
NEXT
ENDIF

A = 소트항목:입력치

VARSET 소트항목 , 0

소트항목:입력치 = A + 1
SIF 소트항목:입력치 == 3
	소트항목:입력치 = 0

;ShowStatusHeader내에서 어떻게 표시시킬까
@SORT_능력_표시(능력)

#DIMS 능력
#DIM 차례

CALL SHOW_SORT_승강순서(능력)
차례 = RESULT

SELECTCASE 능력
	CASE "체력"
		IF 차례 == 1
			PRINTBUTTON @"▼체력", 2001
		ELSEIF 차례 == 2
			PRINTBUTTON @"▲체력", 2001
		ELSE
			PRINTBUTTON @"  체력", 2001
		ENDIF
	CASE "기력"
		IF 차례 == 1
			PRINTBUTTON @"▼기력", 2002
		ELSEIF 차례 == 2
			PRINTBUTTON @"▲기력", 2002
		ELSE
			PRINTBUTTON @"  기력", 2002
		ENDIF
	CASE "C감"
		IF 차례 == 1
			PRINTBUTTON @" ▼C감", 2011
		ELSEIF 차례 == 2
			PRINTBUTTON @" ▲C감", 2011
		ELSE
			PRINTBUTTON @"   C감", 2011
		ENDIF
	CASE "V감"
		IF 차례 == 1
			PRINTBUTTON @" ▼V감", 2012
		ELSEIF 차례 == 2
			PRINTBUTTON @" ▲V감", 2012
		ELSE
			PRINTBUTTON @"   V감", 2012
		ENDIF
	CASE "A감"
		IF 차례 == 1
			PRINTBUTTON @" ▼A감", 2013
		ELSEIF 차례 == 2
			PRINTBUTTON @" ▲A감", 2013
		ELSE
			PRINTBUTTON @"   A감", 2013
		ENDIF
	CASE "B감"
		IF 차례 == 1
			PRINTBUTTON @" ▼B감", 2014
		ELSEIF 차례 == 2
			PRINTBUTTON @" ▲B감", 2014
		ELSE
			PRINTBUTTON @"   B감", 2014
		ENDIF
	CASE "Ｍ감"
		IF 차례 == 1
			PRINTBUTTON @" ▼Ｍ감", 2015
		ELSEIF 차례 == 2
			PRINTBUTTON @" ▲Ｍ감", 2015
		ELSE
			PRINTBUTTON @"   Ｍ감", 2015
		ENDIF
	CASE "친밀"
		IF 차례 == 1
			PRINTBUTTON @"▼친밀", 2016
		ELSEIF 차례 == 2
			PRINTBUTTON @"▲친밀", 2016
		ELSE
			PRINTBUTTON @"  친밀", 2016
		ENDIF
	CASE "순종"
		IF 차례 == 1
			PRINTBUTTON @"▼순종", 2017
		ELSEIF 차례 == 2
			PRINTBUTTON @"▲순종", 2017
		ELSE
			PRINTBUTTON @"  순종", 2017
		ENDIF
	CASE "욕망"
		IF 차례 == 1
			PRINTBUTTON @"▼욕망", 2018
		ELSEIF 차례 == 2
			PRINTBUTTON @"▲욕망", 2018
		ELSE
			PRINTBUTTON @"  욕망", 2018
		ENDIF
	CASE "기교"
		IF 차례 == 1
			PRINTBUTTON @"▼기교", 2019
		ELSEIF 차례 == 2
			PRINTBUTTON @"▲기교", 2019
		ELSE
			PRINTBUTTON @"  기교", 2019
		ENDIF
	CASE "손가락"
		IF 차례 == 1
			PRINTBUTTON @" ▼손가락", 2021
		ELSEIF 차례 == 2
			PRINTBUTTON @" ▲손가락", 2021
		ELSE
			PRINTBUTTON @"   손가락", 2021
		ENDIF
	CASE "혀"
		IF 차례 == 1
			PRINTBUTTON @" ▼혀", 2022
		ELSEIF 차례 == 2
			PRINTBUTTON @" ▲혀", 2022
		ELSE
			PRINTBUTTON @"   혀", 2022
		ENDIF
	CASE "가슴"
		IF 차례 == 1
			PRINTBUTTON @" ▼가슴", 2023
		ELSEIF 차례 == 2
			PRINTBUTTON @" ▲가슴", 2023
		ELSE
			PRINTBUTTON @"   가슴", 2023
		ENDIF
	CASE "허리"
		IF 차례 == 1
			PRINTBUTTON @" ▼허리", 2024
		ELSEIF 차례 == 2
			PRINTBUTTON @" ▲허리", 2024
		ELSE
			PRINTBUTTON @"   허리", 2024
		ENDIF
	CASE "질"
		IF 차례 == 1
			PRINTBUTTON @" ▼질", 2025
		ELSEIF 차례 == 2
			PRINTBUTTON @" ▲질", 2025
		ELSE
			PRINTBUTTON @"   질", 2025
		ENDIF
	CASE "A"
		IF 차례 == 1
			PRINTBUTTON @"  ▼A", 2026
		ELSEIF 차례 == 2
			PRINTBUTTON @"  ▲A", 2026
		ELSE
			PRINTBUTTON @"    A", 2026
		ENDIF
	CASE "고통"
		IF 차례 == 1
			PRINTBUTTON @"▼고통", 2031
		ELSEIF 차례 == 2
			PRINTBUTTON @"▲고통", 2031
		ELSE
			PRINTBUTTON @"  고통", 2031
		ENDIF
	CASE "쾌락"
		IF 차례 == 1
			PRINTBUTTON @"▼쾌락", 2032
		ELSEIF 차례 == 2
			PRINTBUTTON @"▲쾌락", 2032
		ELSE
			PRINTBUTTON @"  쾌락", 2032
		ENDIF
	CASE "괘씸"
		IF 차례 == 1
			PRINTBUTTON @"▼괘씸", 2033
		ELSEIF 차례 == 2
			PRINTBUTTON @"▲괘씸", 2033
		ELSE
			PRINTBUTTON @"  괘씸", 2033
		ENDIF
	CASE "반발"
		IF 차례 == 1
			PRINTBUTTON @"▼반발", 2034
		ELSEIF 차례 == 2
			PRINTBUTTON @"▲반발", 2034
		ELSE
			PRINTBUTTON @"  반발", 2034
		ENDIF
	CASE "시간"
		IF 차례 == 1
			PRINTBUTTON @"▼시간", 2035
		ELSEIF 차례 == 2
			PRINTBUTTON @"▲시간", 2035
		ELSE
			PRINTBUTTON @"  시간", 2035
		ENDIF
	CASE "호감"
		IF 차례 == 1
			PRINTBUTTON @"  ▼호감", 2041
		ELSEIF 차례 == 2
			PRINTBUTTON @"  ▲호감", 2041
		ELSE
			PRINTBUTTON @"    호감", 2041
		ENDIF
	CASE "신뢰"
		IF 차례 == 1
			PRINTBUTTON @"  ▼신뢰", 2042
		ELSEIF 차례 == 2
			PRINTBUTTON @"  ▲신뢰", 2042
		ELSE
			PRINTBUTTON @"    신뢰", 2042
		ENDIF
ENDSELECT

@SHOW_SORT_승강순서(능력)
#DIMS 능력
#DIM 표시능력

SELECTCASE 능력
	CASE "체력"
		표시능력 = 1
	CASE "기력"
		표시능력 = 2
	CASE "C감"
		표시능력 = 11
	CASE "V감"
		표시능력 = 12
	CASE "A감"
		표시능력 = 13
	CASE "B감"
		표시능력 = 14
	CASE "Ｍ감"
		표시능력 = 15
	CASE "친밀"
		표시능력 = 16
	CASE "순종"
		표시능력 = 17
	CASE "욕망"
		표시능력 = 18
	CASE "기교"
		표시능력 = 19
	CASE "손가락"
		표시능력 = 21
	CASE "혀"
		표시능력 = 22
	CASE "가슴"
		표시능력 = 23
	CASE "허리"
		표시능력 = 24
	CASE "질"
		표시능력 = 25
	CASE "A"
		표시능력 = 26
	CASE "고통"
		표시능력 = 31
	CASE "쾌락"
		표시능력 = 32
	CASE "괘씸"
		표시능력 = 33
	CASE "반발"
		표시능력 = 34
	CASE "시간"
		표시능력 = 35
	CASE "호감"
		표시능력 = 41
	CASE "신뢰"
		표시능력 = 42
	CASEELSE
		PRINTW 이상한 값을 참조하고 있습니다(능력표시. ERB @SHOW_SORT_승강순서)
ENDSELECT
RETURN 소트항목:표시능력
[SKIPEND]

[SKIPSTART]
캐릭터리스트 표시 함수
리스트상의 캐릭터를 일람으로 표시해 리스트의 전환도 가능

OP는 STRCOUNT 사용으로 각종의 기능을 바꾼다
·「정보 표시」
　이 OP를 적용하는 경우, 번호 클릭으로 캐릭터 정보가 표시된다
　적용하지 않는 경우, 반환값으로서 클릭 한 캐릭터의 등록 번호를 돌려준다
·「정보 고정」
　이 OP를 적용하는 경우, DISP_TYPE(일행 표시에서의 표시 내용)를 변경할 수 없다
·「조건 변경」
　이 OP를 적용하는 경우, 함수내에서 리스트의 종류를 바꿀 수가 있다
·「최종 확인」
　「정보 표시」를 적용하지 않으면 의미가 없다
　정보 표시 화면에서 표시중의 캐릭터를 후보로서 돌려줄 수가 있게 된다
　결정/캔슬이 가능

CHARA_LIST는 Private(사적인)으로 보유 하고 있기 (위해)때문에
이 함수로부터 CALL/JUMP 한 함수에 REF로 건네주는 것은 가능하지만
이 함수의 호출해 원래 함수에 대해서 건네주는 것은 불가능하다

일행 표시의 표시 항목 일람, 알기 쉽게 숫자를 병기 해 둔다
	 0"체력",  1"기력",
	 2"C감",  3"V감",  4"A감",  5"B감",  6"Ｍ감",
	 7"친밀",  8"순종",  9"욕망", 10"기교",
	11"손가락기술", 12"혀 기술", 13"가슴기술", 14"허리기술", 15"질 기술", 16"A기술",
	17"고통", 18"쾌락", 19"괘씸", 20"반발", 21"시간",
	22"호감", 23"신뢰", 24"욕구"
[SKIPEND]
@SHOW_CHARA_LIST(LIST_TYPE = "존재하는 캐릭터리스트", DISP_TYPE = "체력 기력", OP)
#DIMS LIST_TYPE                     ;리스트의 종별
#DIMS DISP_TYPE                     ;일행 표시에서의 표시 내용
#DIMS OP                            ;기능 옵션
#DIM  GET_LIST = 1                  ;리스트 갱신 플래그
#DIM  L_ID                          ;리스트상의 번호(루프 카운터), 등록 번호에 있지 않고
#DIM  L_CLASS_ID                    ;리스트의 클래스내 ID
#DIM  CHARA_LIST , 캐릭터수상한 ;리스트 본체, 등록 번호에서 기록
#DIM  CHARA_CNT                     ;리스트에 해당한 캐릭터의 수
#DIMS INPUT_STR                     ;입력 내용의 한때 보유
#DIM  INPUT_INT                     ;입력 내용을 INT화한 물건
#DIM  NOW_GROUP = 1                 ;표시중의 캐릭터 그룹
#DIM  LAST_GROUP                    ;캐릭터 그룹 총수
#DIM  DISP_PAGE                     ;페이지수(정보 표시의 항목의 전환)
#DIMS SORT_TYPE                     ;캐릭터리스트의 소트 타입
;표시 타입의 명칭
{
#DIMS CONST DISP_NAME , 5 =
	"체력 기력", "감도 등", "성 기술", "각인", "호감도"
}
;표시 항목의 명칭
{
#DIMS CONST DISP_MEMO , 25 =
	"체력", "기력",
	"C감", "V감", "A감", "B감", "Ｍ감",
	"친밀", "순종", "욕망", "기교",
	"손가락기술", "혀 기술", "가슴기술", "허리기술", "질 기술", "A기술",
	"고통", "쾌락", "괘씸", "반발", "시간",
	"호감", "신뢰", "욕구"
}

;정보 표시용
DISP_PAGE = FINDELEMENT(DISP_NAME, DISP_TYPE)

IF GET_LIST
	CALL MAKE_CHARA_LIST(LIST_TYPE, L_CLASS_ID, CHARA_LIST, CHARA_CNT)
	GET_LIST = 0
	VARSET SORT_TYPE
ENDIF
DRAWLINE

;항목 없음
IF CHARA_CNT <= 0
	PRINTFORML ＜해당 없음＞　%LIST_TYPE%
	PRINTFORML
	DRAWLINE
	FOR LOCAL, 0, 20
		PRINTL
	NEXT
;항목 있어
ELSE
	;현재의 타입의 총그룹수를 갱신
	LAST_GROUP = 1 + (CHARA_CNT - 1) / 20
	PRINTFORML (해당{CHARA_CNT}명　{NOW_GROUP}/{LAST_GROUP})　%LIST_TYPE%　　색깔 있는 캐릭터는 대사 있음
	PRINTFORM
	CALL CHARA_BUTTON(-1, , DISP_TYPE, SORT_TYPE)
	DRAWLINE
	FOR L_ID, (NOW_GROUP - 1) * 20, NOW_GROUP * 20
		IF INRANGE(L_ID, 0, CHARA_CNT - 1)
			CALL CHARA_BUTTON(L_ID, CHARA_LIST:L_ID, DISP_TYPE, SORT_TYPE)
		ELSE
			PRINTL
		ENDIF
	NEXT
ENDIF
DRAWLINE

PRINTFORM
SIF CHARA_CNT > 0 && NOW_GROUP > 1
	PRINTBUTTON "[888] - 　이전캐릭터　", "888"
PRINTFORML

IF STRCOUNT(OP, "「정보 고정」")
	PRINTFORM
ELSE
	PRINTBUTTON @"[444] - 　　%DISP_NAME:((DISP_PAGE - 1 + 5) % 5), 8%　", "444"
ENDIF
IF STRCOUNT(OP, "「조건 변경」")
	PRINTBUTTON "[555] - 　　조건 변경　", "555"
ELSE
	PRINTFORM
ENDIF
IF STRCOUNT(OP, "「정보 고정」")
	PRINTFORM
ELSE
	PRINTBUTTON @"[666] - 　　%DISP_NAME:((DISP_PAGE + 1 + 5) % 5), 8%　", "666"
ENDIF
PRINTFORML

PRINTFORM
SIF CHARA_CNT > 0 && NOW_GROUP < LAST_GROUP
	PRINTBUTTON "[222] - 　다음캐릭터　", "222"
PRINTFORML
PRINTFORML
PRINTBUTTON "[999] - 　　　돌아간다　", "999"
PRINTFORML

VARSET INPUT_STR
VARSET INPUT_INT
DO
	INPUTS
	INPUT_STR '= RESULTS
	SIF !STRLENS(INPUT_STR)
		GOTO RETRY
	IF ISNUMERIC(INPUT_STR)
		INPUT_INT = TOINT(INPUT_STR)
		SELECTCASE INPUT_INT
		;먼저 시스템계를 처리, 222라면 여유 있는 실마리(K에서는 사용할 수 있는 함정)
		CASE 888
			SIF !(CHARA_CNT > 0 && NOW_GROUP > 1)
				GOTO RETRY
			NOW_GROUP --
			RESTART
		CASE 222
			SIF !(CHARA_CNT > 0 && NOW_GROUP < LAST_GROUP)
				GOTO RETRY
			NOW_GROUP ++
			RESTART
		CASE 444
			SIF STRCOUNT(OP, "「정보 고정」")
				GOTO RETRY
			DISP_TYPE '= DISP_NAME:((DISP_PAGE - 1 + 5) % 5)
			RESTART
		CASE 555
			SIF !STRCOUNT(OP, "「조건 변경」")
				GOTO RETRY
			CALL CHANGE_LIST(LIST_TYPE, OP)
			GET_LIST = 1
			NOW_GROUP = 1
			RESTART
		CASE 666
			SIF STRCOUNT(OP, "「정보 고정」")
				GOTO RETRY
			DISP_TYPE '= DISP_NAME:((DISP_PAGE + 1 + 5) % 5)
			RESTART
		CASE 999
			;REF로 배열 만들면 다캐릭터 선택도 갈 수 있을 것 같다
			;수수는 차치하고 표시 주위가 귀찮아인가
			GET_LIST = 1
			NOW_GROUP = 1
			RETURN 999
		CASEELSE
		;캐릭터가 선택되었을 때
			IF !INRANGE(INPUT_INT, MAX(0, (NOW_GROUP - 1) * 20), MIN(CHARA_CNT - 1, NOW_GROUP * 20))
				PRINTFORMW {INPUT_INT} 범위외
				GOTO RETRY
			ELSEIF L_CLASS_ID == -1 && !CHECK_CHARA(CHARA_LIST:INPUT_INT, LIST_TYPE)
				PRINTFORMW {INPUT_INT} 리스트가 아니다
				GOTO RETRY
			ELSEIF L_CLASS_ID > 0 && !GET_INT(CHARA_LIST:INPUT_INT, "캐릭터리스트", L_CLASS_ID, "판정")
				PRINTFORMW {INPUT_INT} 리스트에 연주해진다
				GOTO RETRY
			ENDIF
			;여기만 DO-LOOP 빠집니다
			BREAK

			$RETRY
			REUSELASTLINE 무효인 입력입니다
			CONTINUE
		ENDSELECT
	ELSE
	;STR로 받았을 때, SORT 처리이므로 처리가 가능한 경우는 모두 RESTART
	;이상한 캐릭터 라인을 받았을 경우에는 CONTINUE
	;DO-LOOP를 탈출할 수 있는 것은 INT 한편, 리스트상의 캐릭터를 선택했을 경우만
		SELECTCASE DISP_TYPE
		CASE "체력 기력"
			FOR LOCAL:0, 0, 2
				IF INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%승순" || INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%내림차순"
					SORT_TYPE '= INPUT_STR
					CALL SORT_LIST(INPUT_STR, CHARA_LIST, CHARA_CNT)
					RESTART
				ENDIF
			NEXT
			GOTO RETRY
		CASE "감도 등"
			FOR LOCAL:0, 2, 11
				IF INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%승순" || INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%내림차순"
					SORT_TYPE '= INPUT_STR
					CALL SORT_LIST(INPUT_STR, CHARA_LIST, CHARA_CNT)
					RESTART
				ENDIF
			NEXT
			GOTO RETRY
		CASE "성 기술"
			FOR LOCAL:0, 11, 17
				IF INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%승순" || INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%내림차순"
					SORT_TYPE '= INPUT_STR
					CALL SORT_LIST(INPUT_STR, CHARA_LIST, CHARA_CNT)
					RESTART
				ENDIF
			NEXT
			GOTO RETRY
		CASE "각인"
			FOR LOCAL:0, 17, 22
				IF INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%승순" || INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%내림차순"
					SORT_TYPE '= INPUT_STR
					CALL SORT_LIST(INPUT_STR, CHARA_LIST, CHARA_CNT)
					RESTART
				ENDIF
			NEXT
			GOTO RETRY
		CASE "호감도"
			FOR LOCAL:0, 22, 25
				IF INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%승순" || INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%내림차순"
					SORT_TYPE '= INPUT_STR
					CALL SORT_LIST(INPUT_STR, CHARA_LIST, CHARA_CNT)
					RESTART
				ENDIF
			NEXT
			GOTO RETRY
		CASEELSE
			THROW 이상한 DISP_TYPE　%DISP_TYPE%
		ENDSELECT
	ENDIF
LOOP 1

IF STRCOUNT(OP, "「정보 표시」")
	CALL LIST_CHARA_STATE(CHARA_LIST, INPUT_INT, CHARA_CNT, OP)
	SIF !RESULT
		RESTART
	NOW_GROUP = 1
	GET_LIST = 1
	;일단 RESULT가 정말로 되는 것은 「최종 확인」만이지만 만약을 위해 판정
	SIF STRCOUNT(OP, "「최종 확인」")
		RETURN RESULT
ELSE
	NOW_GROUP = 1
	GET_LIST = 1
	RETURN CHARA_LIST:INPUT_INT
ENDIF

;사용 리스트의 전환 함수
;나무
;현재 상태로서는 불필요하지만 OP를 건네주어 있으므로"SHOP 표시"이외에의 전환도 용이합니다
@CHANGE_LIST(LIST_TYPE, OP)
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS REF LIST_TYPE;현재 사용중의 표시 내용
#DIMS OP           ;실행 옵션
PRINTFORML 리스트의 표시 조건의 변경(현재의 설정：%LIST_TYPE%)
PRINTFORML
CALL CLASS_LIST("캐릭터리스트", "SHOP 표시")
PRINTFORML
PRINTFORML [999] - 그만둔다
DO
	INPUT
	SELECTCASE RESULT
	CASE 999
		RETURN
	CASEELSE
		IF !STRLENS(GET_STR(0, "캐릭터리스트", RESULT, "이름"))
		ELSEIF GET_INT(0, "캐릭터리스트", RESULT, "SHOP 표시")
			LIST_TYPE '= GET_STR(0, "캐릭터리스트", RESULT, "이름")
			RETURN
		ENDIF
		REUSELASTLINE 무효인 입력입니다
		CONTINUE
	ENDSELECT
LOOP 1

;단캐릭터 정보 표시 함수
;주인의 행동중의 MASTER의 정보 표시용
@SINGLE_CHARA_STATE(C_ID, OP)
#DIM  C_ID ;등록 번호
#DIMS OP   ;실행 옵션
#DIM  PAGE ;표시중의 페이지
#DIMS CONST DISP_NAME , 4 = "의상 및 능력", "경험과 보주", "개인정보", "함락 조건"
CALL CHARA_STATE(C_ID, PAGE, OP)

PRINTBUTTON @"[4] -　　　%DISP_NAME:((PAGE - 1 + 상세능력표시최대페이지번호) % 상세능력표시최대페이지번호), 10%", 4
PRINTFORM
PRINTBUTTON @"[6] -　　　%DISP_NAME:((PAGE + 1 + 상세능력표시최대페이지번호) % 상세능력표시최대페이지번호), 10%", 6
IF STRCOUNT(OP, "「최종 확인」")
	PRINTFORML
	PRINTBUTTON "[1] - 이 캐릭터로 결정", 0
	PRINTFORM
	PRINTBUTTON "[0] - 　　　취소", 0
	PRINTFORML
ELSE
	PRINTFORML
	PRINTBUTTON "[0] - 　　　　　돌아간다", 0
ENDIF
DO
	INPUT
	SELECTCASE RESULT
	CASE 1
		SIF STRCOUNT(OP, "「최종 확인」")
			RETURN C_ID
		GOTO RETRY
	CASE 0
		RETURN 0
	;표시 항목의 변경
	CASE 4
		PAGE = (PAGE - 1 + 상세능력표시최대페이지번호) % 상세능력표시최대페이지번호
	CASE 6
		PAGE = (PAGE + 1 + 상세능력표시최대페이지번호) % 상세능력표시최대페이지번호
	;표시·비표시의 전환
	CASE 160 TO 168
		TFLAG:RESULT = !TFLAG:RESULT
	CASE AA표시
		FLAG:AA표시 = !FLAG:AA표시
	CASEELSE
		$RETRY
		REUSELASTLINE 무효인 입력입니다
		CONTINUE
	ENDSELECT
	BREAK
LOOP 1
RESTART

;조교중 타겟용의 리스트 표시 함수
;보통에 TARGET를 건네주면(자) TARGET:0이 중복 해 버리므로 그대로는 사용할 수 없었다
;리스트에 MASTER를 포함하도록(듯이) 개량
@TARGET_LIST_STATE(ARG:0)
#DIM TARGET_LIST, 캐릭터수상한
#DIM TARGET_NUM
#DIM VIEW
VARSET TARGET_LIST
TARGET_NUM = FINDELEMENT(TARGET, 0) - 1
VIEW = ARG:0
SIF TARGET_NUM <= 0
	RETURN
ARRAYCOPY "TARGET", "TARGET_LIST"
TARGET_LIST:0 = MASTER
VIEW = FINDELEMENT(TARGET_LIST, ARG:0)
SIF VIEW == -1
	VIEW = 0
CALL LIST_CHARA_STATE(TARGET_LIST, VIEW, TARGET_NUM + 1, "「조교중」")

;리스트가 있을 때 전용의 정보 표시 함수
;CHARA_LIST에 TARGET를 건네주면 TARGET 차례로 표시해 준다
@LIST_CHARA_STATE(CHARA_LIST, C_VIEW, CHARA_CNT, OP)
#DIM REF CHARA_LIST ;리스트 본체, 등록 번호에서 기록
#DIM     C_VIEW     ;표시중 캐릭터의 리스트상의 위치
#DIM     CHARA_CNT  ;리스트에 해당한 캐릭터의 수
#DIMS    OP         ;실행 옵션
#DIM     C_ID       ;등록 번호
#DIM     PAGE       ;표시중의 페이지
#DIMS CONST DISP_NAME , 4 = "의상 및 능력", "경험과 보주", "개인정보", "함락 조건"
CALL CHARA_STATE(CHARA_LIST:C_VIEW, PAGE, OP)
DRAWLINE
PRINTFORM
PRINTBUTTON "[8] - 　　　이전캐릭터", 8
PRINTFORML

PRINTBUTTON @"[4] -　　　%DISP_NAME:((PAGE - 1 + 상세능력표시최대페이지번호) % 상세능력표시최대페이지번호), 10%", 4
PRINTFORM
PRINTBUTTON @"[6] -　　　%DISP_NAME:((PAGE + 1 + 상세능력표시최대페이지번호) % 상세능력표시최대페이지번호), 10%", 6
PRINTFORML

PRINTFORM
PRINTBUTTON "[2] - 　　　다음캐릭터", 2
PRINTFORML

IF STRCOUNT(OP, "「최종 확인」")
	PRINTFORML
	PRINTBUTTON "[1] - 이 캐릭터로 결정", 1
	PRINTFORM
	PRINTBUTTON "[0] - 　　　취소", 0
	PRINTFORML
ELSE
	PRINTFORML
	PRINTBUTTON "[0] - 　　　　　돌아간다", 0
ENDIF
DO
	INPUT
	SELECTCASE RESULT
	CASE 1
		SIF STRCOUNT(OP, "「최종 확인」")
			RETURN CHARA_LIST:C_VIEW
		GOTO RETRY
	CASE 0
		RETURN 0
	;캐릭터 이동
	CASE 8
		C_VIEW = (C_VIEW - 1 + CHARA_CNT) % CHARA_CNT
	CASE 2
		C_VIEW = (C_VIEW + 1 + CHARA_CNT) % CHARA_CNT
	;표시 항목의 변경
	CASE 4
		PAGE = (PAGE - 1 + 상세능력표시최대페이지번호) % 상세능력표시최대페이지번호
	CASE 6
		PAGE = (PAGE + 1 + 상세능력표시최대페이지번호) % 상세능력표시최대페이지번호
	;표시·비표시의 전환
	CASE 160 TO 168
		TFLAG:RESULT = !TFLAG:RESULT
	CASE AA표시
		FLAG:AA표시 = !FLAG:AA표시
	CASEELSE
		$RETRY
		REUSELASTLINE 무효인 입력입니다
		CONTINUE
	ENDSELECT
	BREAK
LOOP 1
RESTART

;기초 정보 표시 함수
;@CHARA_STATE로부터 공통 요소를 뽑아냈을 뿐(장도 참 주위의 것으로)
;BASE계와 열정을 기초 정보에 포함하게 한다
@BASIC_STATE(C_ID, OP)
#DIM C_ID
#DIMS OP
DRAWLINEFORM ━
PRINTFORM ■%NAME:C_ID%(호감도:
CALL PRINT_RANK(CFLAG:C_ID:호감도, "MAX_50000")
PRINTFORM  {CFLAG:C_ID:호감도} 신뢰도:
CALL PRINT_RANK(CFLAG:C_ID:신뢰도, "MAX_20000")
PRINTFORM  {CFLAG:C_ID:신뢰도})
;MASTER라면 소지금을 기재
IF C_ID == MASTER
	PRINTFORM (%"소지금:\\" + TOSTR(MONEY,"#,###")%)
	PRINTFORM  (소지 카리스마:{MONEY:2}CM)
	PRINTFORM  (소지수찰:{ITEM:131}매)
ENDIF
IF FLAG:생리주기가시화 && TALENT:C_ID:성별 != 2
	IF STRCOUNT(OP, "「조교중」")
		CALL CYCLE_PRINT(C_ID)
;모브 물색중 판정
	ELSEIF SELECTCOM == 444
		CALL CYCLE_PRINT(C_ID)
	ELSE
		CALL CYCLE_PRINT다음날(C_ID)
	ENDIF
ENDIF
SIF C_ID != MASTER && FLAG:생리주기가시화
	SETCOLOR C_AQUA
IF CFLAG:C_ID:생해금 == 2
	PRINT 위험일 생H해금
ELSEIF CFLAG:C_ID:생해금 == 1
	PRINT 생H해금
ELSEIF GETBIT(CFLAG:C_ID:기정사실, 1)
	PRINT 합의 취득
ENDIF
RESETCOLOR
;여기만 BASE 기본 표시로 독립시켜도 괜찮을지도라는 느낌에 쓰기 좋은 점 그렇게
PRINTL
CALL BASE_BAR(C_ID, "체력", 18, "초록")
PRINTFORM
CALL BASE_BAR(C_ID, "기력", 18, "파랑", "「개행」")
IF BASE:C_ID:술기운
	CALL BASE_BAR(C_ID, "술기운", 18, "빨강")
ELSE
	PRINTFORM %"　" * 24%
ENDIF
PRINTFORM
SIF C_ID == MASTER
	CALL BASE_BAR(C_ID, "TSP", 18, "물색")
PRINTFORML

IF NOTICE_LUST(C_ID)
	;기술을 정리할 수 있다고 하는 이유로써 미묘하게 반응을 일으키는 최소의 물리량 변경
	SELECTCASE CFLAG:C_ID:욕구불만도
	CASE IS >= 665
		SETCOLOR C_RED
	CASE IS >= 332
		SETCOLOR C_YELLOW
	ENDSELECT
	PRINTFORMD 욕구 불만도：
	PRINTFORM {CFLAG:C_ID:욕구불만도 / 10}
	PRINTFORMD ％
	RESETCOLOR
ENDIF
SIF CFLAG:(C_ID):탄막승부승리 == 1
	PRINTFORM ★탄막승부에 승리했다
PRINTFORML

;캐릭터 정보 표시 함수
;등록 번호와 페이지번호, 옵션을 지정해 정보를 표시한다
@CHARA_STATE(C_ID, PAGE, OP)
#DIM  C_ID
#DIM  PAGE
#DIMS OP
CALL BASIC_STATE(C_ID, OP)
SELECTCASE PAGE
CASE 0
	CALL SHOW_SIZE(C_ID)
	IF !FLAG:그림표시
		PRINTL [99] AA 표시
	ELSE
		PRINTL [99] 그림 표시
	ENDIF
	IF FLAG:AA표시 && !FLAG:그림표시
		CALL PRINT_AA(C_ID)
	ELSEIF FLAG:AA표시 && FLAG:그림표시
		CALL PRINT_STATE_IMAGE(C_ID)
		IF FLAG:스탠딩종류
			IF キャラ画像表示サイズ比 <= 50
				PRINTL
				PRINTL
			ELSEIF キャラ画像表示サイズ比 <= 60
				PRINTL
			ELSEIF キャラ画像表示サイズ比 >= 120
				CLEARLINE 1
			ENDIF
			SIF TALENT:C_ID:스침
				PRINTL
		ELSE
			SIF キャラ画像表示サイズ比 <= 60
				PRINTL
		ENDIF
	ENDIF
	CALL PRINT_STATE_CLOTH(C_ID)

	;도구라고 할까 아이템이지만 외가 2 문자이고
	IF C_ID == MASTER
		PRINT □
		CALL PRINTBUTTON_EX("도구", 167, TFLAG:167)
		PRINTL  □---------------------------------------------------------------------------
		SIF !TFLAG:도구표시
			CALL LIST_ITEM("모두")
	ENDIF
	;CALL PRINT_STATE_ABL(C_ID)
	CALL PRINT_STATE_TALENT(C_ID)
	PRINTL
	CALL SHOW_ABILITY(C_ID)
	PRINTL
	;IF C_ID != MASTER
	;	PRINTL
	;	PRINT □
	;	CALL PRINTBUTTON_EX("각인", 166, TFLAG:166)
	;	PRINTL  □---------------------------------------------------------------------------
	;	CALL PRINT_각인(C_ID)
	;ENDIF
CASE 1
	PRINTL
	CALL PRINT_STATE_EXP(C_ID)
	PRINTL
	;현상 마스터는 임신하지 않을 것이지만 장래의 기능확장을 생각와 이것으로 좋은 것인지?
	SIF !(C_ID == MASTER) && (TALENT:C_ID:임신 || CFLAG:C_ID:아이인원수 > 0)
		CALL 임신관련(C_ID)
	IF STRCOUNT(OP, "「조교중」")
		CALL PRINT_STATE_EX(C_ID)
	ELSEIF !(C_ID == MASTER)
		CALL PRINT_STATE_JUEL(C_ID)
	ENDIF
	PRINTL
	IF C_ID == MASTER
		CALL 예정
	ELSE
		CALL 팬티수집상황(C_ID)
	ENDIF
CASE 2
	CALL PRINT_STATE_PERSONAL(C_ID)
	CALL 육체정보(C_ID)
	CALL SHOW_RELATION(C_ID)
CASE 3
	CALL 함락조건표시(C_ID)
	CALL 바람기파악상황(C_ID)
CASEELSE
	THROW 이상한PAGE {PAGE}
ENDSELECT

;각인과 능력을 일괄해 표시한다
;세로폭을 압축하고 싶다
@SHOW_ABILITY(C_ID)
#DIM  C_ID
{
#DIMS CONST DISP_NAME , 63 =
	"고통",     "친밀",     "교양", "C감각", "손기술", "마조끼", "자위중독",
	"쾌락",     "순종", "화술기능", "V감각", "질기술", "새드끼", "정액중독",
	"괘씸",     "욕망", "전투능력", "A감각", "A기술", "레즈끼", "레즈중독",
	"반발",     "기교", "청소기능", "B감각", "가슴기술", "호모끼", "게이중독",
	"이력", "봉사정신", "요리기능", "M감각", "혀기술",         "", "질사중독",
	"시간",   "노출벽", "음악기능",       "", "허리기술",         "", "항사중독",
	"마크",   "", "채집기능",       "", "",         "", "",
	"마크",   "", "낚시기능",       "", "",         "", "",
	"마크",   "", "조제기능",       "", "",         "", "",
}
PRINT □
CALL PRINTBUTTON_EX("능력", 162, TFLAG:162)
PRINTL  □---------------------------------------------------------------------------
SIF TFLAG:능력표시
	RETURN

FOR LOCAL, 0, 63
	CALL PRINT_ABILITY(C_ID, DISP_NAME:LOCAL, LOCAL)
	SIF LOCAL % 7 == 6
		PRINTFORML
NEXT

;↑전용의 표시 함수
@PRINT_ABILITY(C_ID, DISP_NAME, VIEW)
#DIM  C_ID
#DIMS DISP_NAME
#DIM  VIEW
{
#DIM CONST DISP_ID , 63 =
	0,  9, 43, 0, 50, 15, 30,
	1, 10, 41, 1, 54, 16, 31,
	2, 11, 42, 2, 55, 17, 32,
	3, 12, 40, 3, 52, 18, 33,
	4, 13, 44, 4, 51,  0, 34,
	5, 14, 45, 0, 53,  0, 35,
	6,  0, 46, 0,  0,  0,  0,
	6,  0, 47, 0,  0,  0,  0,
	6,  0, 48, 0,  0,  0,  0,
}
PRINTFORM
SELECTCASE DISP_NAME
CASE ""
	$SHOW_BLANK
	PRINTFORM
CASE "고통", "쾌락", "괘씸", "반발", "이력", "시간","마크"
	IF C_ID == MASTER
		PRINTFORM %"　" * 6%
	ELSEIF GROUPMATCH(DISP_NAME, "반발", "이력")
		PRINTFORM %DISP_NAME, 4%：
		CALL COLOR_STAMP(MARK:C_ID:(DISP_ID:VIEW), 3, "×", C_RED)
	ELSEIF GROUPMATCH(DISP_NAME, "마크")
		PRINTFORM %"　" * 6%
	ELSE
		PRINTFORM %DISP_NAME, 4%：
		CALL COLOR_STAMP(MARK:C_ID:(DISP_ID:VIEW), 3, "★", 0xFFFF00)
	ENDIF
{
CASE
	"손기술", "질기술", "A기술", "가슴기술", "혀기술", "허리기술",
	"청소기능", "화술기능", "전투능력",     "교양", "요리기능", "음악기능"
}
	PRINTFORM %DISP_NAME, 8%：
	CALL PRINT_RANK(ABL:C_ID:(DISP_ID:VIEW), "MAX_6")
	PRINTFORM  {ABL:C_ID:(DISP_ID:VIEW), 3}
;이하 KR판 구잔재 또는 오리지날
{
CASE
	"채집기능"
}
	PRINTFORM %DISP_NAME, 8%：
	CALL PRINT_RANK(TALENT:C_ID:채집Lv, "MAX_6")
	PRINTFORM  {TALENT:C_ID:채집Lv, 3}
{
CASE
	"낚시기능"
}
	PRINTFORM %DISP_NAME, 8%：
	CALL PRINT_RANK(TALENT:C_ID:낚시Lv, "MAX_6")
	PRINTFORM  {TALENT:C_ID:낚시Lv, 3}
{
CASE
	"조제기능"
}
	PRINTFORM %DISP_NAME, 8%：
	CALL PRINT_RANK(TALENT:C_ID:조제Lv, "MAX_6")
	PRINTFORM  {TALENT:C_ID:조제Lv, 3}
CASEELSE
	SIF GROUPMATCH(DISP_NAME, "레즈끼", "레즈중독") && !GETBIT(TALENT:C_ID:2, 0)
		GOTO SHOW_BLANK
	SIF GROUPMATCH(DISP_NAME, "호모끼", "게이중독") && GETBIT(TALENT:C_ID:2, 0)
		GOTO SHOW_BLANK
	PRINTFORM %DISP_NAME, 8%：
	CALL PRINT_RANK(ABL:C_ID:(DISP_ID:VIEW), "MAX_99")
	PRINTFORM  {ABL:C_ID:(DISP_ID:VIEW), 3}
ENDSELECT

;소트용 버튼 작성 함수
;간단하게 취급할 수 있지만
;동일 리스트내의 B_NAME는 가로폭을 갖추어질 수 있는 편이 보고 네가 좋다
@MAKE_SORT_BUTTON(SORT_TYPE, B_NAME)
#DIMS SORT_TYPE ;현재의 소트 타입
#DIMS B_NAME    ;기본의 버튼명
IF SORT_TYPE == @"%B_NAME%내림차순"
	PRINTBUTTON @"▼%B_NAME%", @"%B_NAME%승순"
ELSEIF SORT_TYPE == @"%B_NAME%승순"
	PRINTBUTTON @"▲%B_NAME%", @"%B_NAME%내림차순"
ELSE
	PRINTBUTTON @"　%B_NAME%", @"%B_NAME%내림차순"
ENDIF

;일행 정보 표시 함수
;캐릭터의 정보를 일행으로 표시하면서 버튼으로서 취급한다
;원래는@ShowStatusBody와@ShowStatusHeader 근처
;라벨(버튼으로서의 번호)과 등록 번호를 따로따로로 지정할 필요가 있다
@CHARA_BUTTON(LABEL, C_ID, DISP_TYPE = "체력 기력", SORT_TYPE)
#DIM  LABEL
#DIM  C_ID
#DIMS DISP_TYPE
#DIMS SORT_TYPE
#DIMS 표시문
#DIM  표시신분번호
#DIM  CONST 바길이 = 10
;LABEL가 음수는 있을 수 없기 때문에 표시 내용의 공지에 유용하고 있습니다
IF LABEL >= 0
	SIF CFLAG:C_ID:대사실장상황
		SETCOLOR 103,228,126
	PRINTFORM [{LABEL, 3}] %CALLNAME:C_ID, 14, LEFT%
	RESETCOLOR
ENDIF
SELECTCASE DISP_TYPE
CASE "체력 기력"
	IF LABEL < 0
		PRINTFORM %"　" * 10%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "체력")
		PRINTFORM %"　" * 10%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "기력")
	ELSE
		CALL BASE_BAR(C_ID, "체력", 10, "초록", "「종류 표기 없음」")
		CALL BASE_BAR(C_ID, "기력", 10, "파랑", "「종류 표기 없음」")
	ENDIF
	PRINTFORML
CASE "감도 등"
	IF LABEL < 0
		PRINTFORM %"　" * 4% 능력%" " * 7%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "C감")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "V감")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "A감")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "B감")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "Ｍ감")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "친밀")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "순종")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "욕망")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "기교")
	ELSE
		FOR 표시신분번호, 0, 13
			SIF ABLNAME:표시신분번호 == ""
				CONTINUE
			CALL PRINT_RANK(ABL:C_ID:표시신분번호, "MAX_99")
			PRINTFORM {ABL:C_ID:표시신분번호, 4}|
		NEXT
	ENDIF
	PRINTFORML

CASE "성 기술"
	IF LABEL < 0
		PRINTFORM %"　" * 3% 성기술%" " * 7%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, " 손 기술")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, " 혀 기술")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "가슴기술")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "허리기술")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, " 질 기술")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, " A 기술")
	ELSE
		;매우 적당하게 다하고 수정의 여지 있어
		FOR 표시신분번호, 50, 56
			SIF ABLNAME:표시신분번호 == ""
				CONTINUE
			CALL PRINT_RANK(ABL:C_ID:표시신분번호, "MAX_6")
			PRINTFORM {ABL:C_ID:표시신분번호, 8}|
		NEXT
	ENDIF
	PRINTFORML

CASE "각인"
	IF LABEL < 0
		PRINTFORM %"　" * 4% 각인%" " * 7%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "고통")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "쾌락")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "괘씸")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "반발")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "시간")
	ELSE
		;매우 적당하게 다하고 수정의 여지 있어
		FOR 표시신분번호, 0, 6
			IF MARKNAME:표시신분번호 == ""
				CONTINUE
			ENDIF
			;반발각인 이력은 표시하지 않게
			SIF 표시신분번호 == 4
				CONTINUE
			IF 표시신분번호 == 3
				CALL COLOR_STAMP(MARK:C_ID:표시신분번호, 3, "×", C_RED)
			ELSE
				CALL COLOR_STAMP(MARK:C_ID:표시신분번호, 3, "★", 0xFFFF00)
			ENDIF
			PRINTFORM |
		NEXT
	ENDIF
	PRINTFORML

CASE "호감도"
	IF LABEL < 0
		PRINTFORM %"　" * 11%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "호감")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "신뢰")
		PRINT |
		SIF TALENT:MASTER:정욕감지
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "욕구")
	ELSE
		;호감도
		CALL PRINT_RANK(CFLAG:C_ID:호감도, "MAX_50000")
		PRINTFORM {CFLAG:C_ID:호감도, 6}|

		;신뢰도
		CALL PRINT_RANK(CFLAG:C_ID:신뢰도, "MAX_20000")
		PRINTFORM {CFLAG:C_ID:신뢰도, 6}|

		;욕구
		IF TALENT:MASTER:정욕감지
			SELECTCASE CFLAG:C_ID:욕구불만도
			CASE IS >= 665
				SETCOLOR C_RED
			CASE IS >= 332
				SETCOLOR C_YELLOW
			ENDSELECT
			PRINTFORM {CFLAG:C_ID:욕구불만도 / 10, 4}
			RESETCOLOR
			PRINT %|
		ENDIF
		;함락
		IF TALENT:C_ID:연인
			SETCOLOR C_RED
			표시문 = 연인
		ELSEIF TALENT:C_ID:연모 == 1
			SETCOLOR 0xEE60EE
			표시문 = 연모
		ELSEIF TALENT:C_ID:애욕 == 1
			SETCOLOR 0x2E8B57
			표시문 = 애욕
		ELSEIF TALENT:C_ID:섹프 == 2
			SETCOLOR 0xFF6347
			표시문 = 정부
		ELSEIF TALENT:C_ID:사모 == 1
			SETCOLOR 0xFFFF00
			표시문 = 사모
		ELSEIF TALENT:C_ID:섹프 == 1
			SETCOLOR 0x7CFC00
			표시문 = 섹프
		ELSE
			표시문 =
		ENDIF
		PRINTFORM %표시문, 6, LEFT%
		RESETCOLOR
		PRINT |

		;기정사실
		SELECTCASE CFLAG:(C_ID):생해금
			CASE 2
				표시문 = 위험일 생H해금
			CASE 1
				표시문 = 생H해금
			CASE 0
				IF GETBIT(CFLAG:(C_ID):기정사실, 1)
					표시문 = 합의 취득
				ELSE
					표시문 =
				ENDIF
		ENDSELECT
		PRINTFORM %표시문, 14, LEFT%|
		IF CFLAG:(C_ID):탄막승부승리 == 1
			PRINTFORM 승리완료
		ELSE
			PRINTFORM
		ENDIF

		;생리주기가시화
		IF NOTICE_CYCLE(C_ID)
			PRINT |
			CALL PRINT_CYCLE_다음날(C_ID)
		ENDIF
		IF CFLAG:(C_ID):출산경과일 > 0
			PRINT |
			PRINTFORM 육아중
		ENDIF

		RESETCOLOR
		;연인인가 어떤가는 바로 왼쪽으로 표시되므로 필요없을 것
		;SIF GETBIT(CFLAG:(C_ID):기정사실, 2)
		;	PRINTFORM 연인 같은 종류
		;약점
		IF CFLAG:(C_ID):약점잡음 && CFLAG:(C_ID):약점잡힘
			PRINTFORM %마스터와% 각자 약점을 서로 잡고
		ELSEIF CFLAG:(C_ID):약점잡음
			PRINTFORM %CALLNAME:MASTER%의 약점을 잡고 있다
		;SIF GETBIT(CFLAG:(C_ID):약점, 0)
		;	PRINTFORM 팬티를 몰수되었다
		;SIF GETBIT(CFLAG:(C_ID):약점, 1)
		;	PRINTFORM 정사를 볼 수 있었다
		ELSEIF CFLAG:(C_ID):약점잡힘
			PRINTFORM %CALLNAME:MASTER%에 자위 현장이 목격당한 적이 있다
		ENDIF
	ENDIF
	PRINTFORML
CASEELSE
	THROW 이상한 DISP_TYPE　%DISP_TYPE%
ENDSELECT

@함락조건표시(ARG)
#DIM 자각절정
자각절정 = EXP:ARG:절정경험 - EXP:ARG:무자각절정경험
DRAWLINE
CALL COLORMESSAGE(@"□연모 취득 조건", C_AQUA, 1)
PRINTFORML
IF TALENT:ARG:연모
	PRINT
	CALL COLORMESSAGE(@"　취득 완료", C_YELLOW, 1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:2 >= REQUIRED_FAVOR_연모,@"호감도 {REQUIRED_FAVOR_연모} 이상")
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:4 >= REQUIRED_TRUST_연모,@"신뢰도 {REQUIRED_TRUST_연모} 이상")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:친밀 >= REQUIRED_AFFECTION_연모,@"친밀 {REQUIRED_AFFECTION_연모} 이상")
	PRINT
	CALL COND_COLORMESSAGE(!MARK:ARG:반발각인,@"반발각인이 없다")
ENDIF
DRAWLINE
CALL COLORMESSAGE(@"□사모 취득 조건", C_AQUA, 1)
PRINTFORML
IF TALENT:ARG:연모 || TALENT:ARG:사모
	PRINT
	CALL COLORMESSAGE(@"　취득 완료", C_YELLOW, 1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:2 >= REQUIRED_FAVOR_사모,@"호감도 {REQUIRED_FAVOR_사모} 이상")
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:4 >= REQUIRED_TRUST_사모,@"신뢰도 {REQUIRED_TRUST_사모} 이상")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:친밀 >= REQUIRED_AFFECTION_사모,@"친밀 {REQUIRED_AFFECTION_사모} 이상")
ENDIF
DRAWLINE
CALL COLORMESSAGE(@"□애욕 취득 조건", C_AQUA, 1)
PRINTFORML
IF TALENT:ARG:연모
	PRINT
	CALL COLORMESSAGE(@"취득 불가", C_RED, 1)
ELSEIF TALENT:ARG:애욕
	PRINT
	CALL COLORMESSAGE(@"취득 완료", C_YELLOW, 1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:2 >= REQUIRED_FAVOR_애욕,@"호감도 {REQUIRED_FAVOR_애욕} 이상")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:욕망 >= REQUIRED_DESIRE_애욕,@"욕망 {REQUIRED_DESIRE_애욕} 이상")
	PRINT
	CALL COND_COLORMESSAGE(자각절정 >= REQUIRED_ECSTACY_애욕,@"의식이 있는 상태로 {REQUIRED_ECSTACY_애욕} 이상 절정")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:욕망 > ABL:ARG:친밀,"욕망이 친밀보다 높다")
ENDIF
DRAWLINE
CALL COLORMESSAGE(@"□섹프 취득 조건", C_AQUA, 1)
PRINTFORML
IF TALENT:ARG:연모
	PRINT
	CALL COLORMESSAGE(@"취득 불가", C_RED, 1)
ELSEIF TALENT:ARG:섹프
	PRINT
	CALL COLORMESSAGE(@"취득 완료", C_YELLOW, 1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:2 >= REQUIRED_FAVOR_섹프,@"호감도 {REQUIRED_FAVOR_섹프} 이상")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:욕망 >= REQUIRED_DESIRE_섹프,@"욕망 {REQUIRED_DESIRE_섹프} 이상")
	PRINT
	CALL COND_COLORMESSAGE(자각절정 >= REQUIRED_ECSTACY_섹프,@"의식이 있는 상태로 {REQUIRED_ECSTACY_섹프} 이상 절정")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:욕망 >= ABL:ARG:친밀,"욕망이 친밀 이상")
ENDIF
DRAWLINE

;이하 (키스마, 자위중독, 음유, 음호, 항문광) KR판 구잔재 또는 오리지날
CALL COLORMESSAGE(@"□키스마 취득 조건", C_AQUA, 1)
PRINTFORML
IF TALENT:ARG:키스마
	PRINT
	CALL COLORMESSAGE(@"취득 완료", C_YELLOW, 1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(EXP:ARG:키스경험 >= 300,@"키스경험 300 이상")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:M감각 >= REQUIRED_DESIRE_섹프,@"M감각 {5} 이상")
ENDIF
DRAWLINE
CALL COLORMESSAGE(@"□자위중독 취득 조건", C_AQUA, 1)
PRINTFORML
IF TALENT:ARG:자위중독
	PRINT
	CALL COLORMESSAGE(@"취득 완료", C_YELLOW, 1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(EXP:ARG:조교자위경험 >= 200,@"조교자위경험 200 이상")
	PRINT
	CALL COND_COLORMESSAGE(EXP:ARG:자위경험 >= 500,@"자위경험 500 이상")
ENDIF
DRAWLINE
CALL COLORMESSAGE(@"□음유 취득 조건", C_AQUA, 1)
PRINTFORML
IF TALENT:ARG:음유
	PRINT
	CALL COLORMESSAGE(@"취득 완료", C_YELLOW, 1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:가슴 >= 5,@"가슴기술 5 이상")
ENDIF
DRAWLINE
CALL COLORMESSAGE(@"□음호 취득 조건", C_AQUA, 1)
PRINTFORML
IF TALENT:ARG:음호
	PRINT
	CALL COLORMESSAGE(@"취득 완료", C_YELLOW, 1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:질 >= 5,@"질기술 5 이상")
ENDIF
DRAWLINE
CALL COLORMESSAGE(@"□항문광 취득 조건", C_AQUA, 1)
PRINTFORML
IF TALENT:ARG:항문광
	PRINT
	CALL COLORMESSAGE(@"취득 완료", C_YELLOW, 1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:애널 >= 5,@"A기술 5 이상")
ENDIF
PRINTFORML

path: ERB/스테이터스표시관련/능력표시_t.ERB


code:
;現在立ち絵のみなので6個ですが、顔絵を作る場合は13に変更する必要があります
#DIM CONST モブ子素材リソース数 = 6

;CSVの内容を変更した時は変更してください　また、必ず連番になるようにしてください
#DIM CONST モブ子素材CFLAG開始位置 = 923
#DIM CONST モブ子素材CSTR開始位置 = 30

;モブ子素材の種別を増やしたりした場合はここで設定してください
#DIM CONST モブ子素材種別数 = 18
#DIMS モブ子素材種別,18 = "前髪","後髪","頭部","表情","目瞳","身体","頭部","装飾","装飾1","装飾2","装飾3","装飾4","装飾5","装飾6","装飾7","装飾8","装飾9","装飾10"
#DIM CONST モブ子素材カテゴリ数 = 9
#DIMS モブ子素材カテゴリ,9 = "無","他","肌","耳","尾","髪","瞳","服","乗"
#DIM CONST モブ子素材色種別数 = 7
#DIMS モブ子素材色種別,7 = "瞳","服","肌","髪","耳","尾","乗"

path: ERB/스테이터스표시관련/모브코용.ERH


code:
;*******************************************************************************************************
;モブ子그림표시用
;*******************************************************************************************************
;削除しました＠v.4.730.INFO改良パッチ

;*******************************************************************************************************
;モブ子画像生成用関数
;*******************************************************************************************************
@モブ子生成(キャラ番号, 스탠딩종류)
#DIM キャラ番号
#DIM 스탠딩종류
#DIM GID
#DIMS 生成文字列
#DIMS 合成文字列配列, 50
#DIMS 色合成
#DIM 合成数
#DIM リソースカウント

;リソース作成
;=====================================
FOR リソースカウント, 0, モブ子素材リソース数
	;初期化
	GID = 0
	VARSET LOCAL
	VARSET 合成文字列配列,
	合成数 = 0
	;画像合成下地用のダミーを配置する
	CALL 画像合成(GID,"ダミー")
	;使うリソースの名称を配列に取得する
	;DEBUGPRINTFORML {キャラ番号} - モブ子リソース探索(%合成文字列配列%, {合成数}, %CSTR:キャラ番号:(モブ子素材CSTR開始位置 + リソースカウント)%), 스탠딩종류
	CALL モブ子リソース探索(合成文字列配列, 合成数, CSTR:キャラ番号:(モブ子素材CSTR開始位置 + リソースカウント), 스탠딩종류)
	;モブ子画像は高い番号のリソースから先に合成していく必要があるので降順にソートする
	ARRAYSORT 合成文字列配列, BACK, 0, 合成数
	;モブ子用画像を順番に合成していく
	FOR LOCAL, 0, 合成数
		色合成 '= ""
		IF 合成文字列配列:LOCAL != ""
			;色合成確認
			FOR LOCAL:1, 0 ,モブ子素材色種別数
				IF STRFIND(合成文字列配列:LOCAL, @"_%モブ子素材色種別:(LOCAL:1)%_") != -1 && DIC_CONTAINSKEY(CSTR:キャラ番号:(モブ子素材CSTR開始位置 + リソースカウント), @"%モブ子素材色種別:(LOCAL:1)%色")
					色合成 = %DIC_GET(CSTR:キャラ番号:(モブ子素材CSTR開始位置 + リソースカウント), @"%モブ子素材色種別:(LOCAL:1)%色")%
					LOCAL:1 = モブ子素材色種別数
				ENDIF
			NEXT
			CALL 画像合成(GID, 合成文字列配列:LOCAL, 0, 0, 0, 0, 色合成)
		ENDIF
	NEXT
	;合成した画像をリソースに登録する
	CFLAG:キャラ番号:(モブ子素材CFLAG開始位置 + リソースカウント) = GID
	;汎用テンプレートで使用できるように名前を統一する
	IF !스탠딩종류
		SELECTCASE リソースカウント
			CASE 0
				CALL リソース登録(@"立ち絵_服_通常_{キャラ番号}", GID)
			CASE 1
				CALL リソース登録(@"立ち絵_服_笑顔_{キャラ番号}", GID)
			CASE 2
				CALL リソース登録(@"立ち絵_服_분노_{キャラ番号}", GID)
			CASE 3
				CALL リソース登録(@"立ち絵_裸_通常_{キャラ番号}", GID)
			CASE 4
				CALL リソース登録(@"立ち絵_裸_笑顔_{キャラ番号}", GID)
			CASE 5
				CALL リソース登録(@"立ち絵_裸_분노_{キャラ番号}", GID)
		ENDSELECT
	ELSE
		SELECTCASE リソースカウント
			CASE 0
				CALL リソース登録(@"顔絵_服_通常_{キャラ番号}", GID)
			CASE 1
				CALL リソース登録(@"顔絵_服_笑顔_{キャラ番号}", GID)
			CASE 2
				CALL リソース登録(@"顔絵_服_분노_{キャラ番号}", GID)
			CASE 3
				CALL リソース登録(@"顔絵_裸_通常_{キャラ番号}", GID)
			CASE 4
				CALL リソース登録(@"顔絵_裸_笑顔_{キャラ番号}", GID)
			CASE 5
				CALL リソース登録(@"顔絵_裸_분노_{キャラ番号}", GID)
		ENDSELECT
	ENDIF
NEXT

;TEQUIP:キャラ番号:상반신착의상황 = 1

RETURN 1

;*******************************************************************************************************
;モブ子画像リソース探索用関数
;モブ子画像のリソースを探索して配列にリソース名を格納する
;*******************************************************************************************************
@モブ子リソース探索(合成文字列配列, 合成数, 生成文字列, 스탠딩종류)
#DIMS REF 合成文字列配列,0
#DIM REF 合成数
#DIMS 生成文字列
#DIM 스탠딩종류
#DIMS キー
#DIM CN_ENDNO = 18
#DIMS CN_NO_STR
VARSET LOCAL
キー =
CN_NO_STR =
;ゴミ取り
生成文字列 = %REPLACE(生成文字列, "^\"\"", "")%
;DEBUGPRINTFORML %生成文字列%

FOR LOCAL, 0, モブ子素材種別数
	IF DIC_CONTAINSKEY(生成文字列, モブ子素材種別:LOCAL)
		FOR LOCAL:1, CN_ENDNO, -1, -1
			;IF STRFIND(モブ子素材種別:LOCAL, "装飾") != -1
				;装飾の場合は複数設定できるのでリソース名検索時は数値部分を削る
			;	キー = "装飾"
			;ELSE
				キー = %モブ子素材種別:LOCAL%
			;ENDIF
			FOR LOCAL:2, 0, モブ子素材カテゴリ数
				IF LOCAL:1 < 10
					;0埋め
					CN_NO_STR = CN0{LOCAL:1}
				ELSE
					CN_NO_STR = CN{LOCAL:1}
				ENDIF
				IF SPRITECREATED(@"%CN_NO_STR%_%モブ子素材カテゴリ:(LOCAL:2)%_%DIC_GET(生成文字列, キー)%")
					IF (!스탠딩종류)
						合成文字列配列:(合成数++) = %CN_NO_STR%_%モブ子素材カテゴリ:(LOCAL:2)%_%DIC_GET(生成文字列, キー)%
						DEBUGPRINTFORML %CN_NO_STR%_%モブ子素材カテゴリ:(LOCAL:2)%_%DIC_GET(生成文字列, キー)%
					ELSE
						合成文字列配列:(合成数++) = %CN_NO_STR%_%モブ子素材カテゴリ:(LOCAL:2)%_%DIC_GET(生成文字列, キー)%_顔
						DEBUGPRINTFORML %CN_NO_STR%_%モブ子素材カテゴリ:(LOCAL:2)%_%DIC_GET(生成文字列, キー)%_顔
					ENDIF
				ENDIF
			NEXT
		NEXT
	ENDIF
NEXT

RETURN 1

;*******************************************************************************************************
;モブ子画像解放用関数
;指定したキャラ番号のモブ子のグラフィックを全て破棄する
;*******************************************************************************************************
@モブ子画像リセット(キャラ番号)
#DIM キャラ番号
#DIM リソースカウント
IF CFLAG:キャラ番号:モブ子素材CFLAG開始位置 != 0 && GCREATED(CFLAG:キャラ番号:モブ子素材CFLAG開始位置)
	SPRITEDISPOSE @"立ち絵_服_通常_{キャラ番号}"
	SPRITEDISPOSE @"立ち絵_服_笑顔_{キャラ番号}"
	SPRITEDISPOSE @"立ち絵_服_분노_{キャラ番号}"
	SPRITEDISPOSE @"立ち絵_裸_通常_{キャラ番号}"
	SPRITEDISPOSE @"立ち絵_裸_笑顔_{キャラ番号}"
	SPRITEDISPOSE @"立ち絵_裸_분노_{キャラ番号}"
	SPRITEDISPOSE @"顔絵_服_通常_{キャラ番号}"
	SPRITEDISPOSE @"顔絵_服_笑顔_{キャラ番号}"
	SPRITEDISPOSE @"顔絵_服_분노_{キャラ番号}"
	SPRITEDISPOSE @"顔絵_裸_通常_{キャラ番号}"
	SPRITEDISPOSE @"顔絵_裸_笑顔_{キャラ番号}"
	SPRITEDISPOSE @"顔絵_裸_분노_{キャラ番号}"
	FOR リソースカウント, 0, モブ子素材リソース数
		GDISPOSE CFLAG:キャラ番号:(モブ子素材CFLAG開始位置 + リソースカウント)
		CFLAG:キャラ番号:(モブ子素材CFLAG開始位置 + リソースカウント) = 0
	NEXT
ENDIF
RETURN 1

path: ERB/스테이터스표시관련/모브코표시.ERB


code:
#DIM キャラ画像表示サイズ比 = 100; 可変用キャラ画像拡大比率
#DIM CONST デフォルトキャラ画像横幅 = 180;

path: ERB/스테이터스표시관련/캐릭터묘화공통.ERH