code:
[SKIPSTART]
소작인용 각종 설정 함수

돈은 주지만 구속 시간에 나누면 대단히 박봉, 즉 풍미입니다(에서도 받을 수 있으면(자) 기쁘네요)
표준의 보수 계수를 400으로서 격차 있어, 히가시카타 자세하게 없기 때문에 위화감 있으면(자) 바꾸어 창고 차이
450은 장사 하고 있는 것 같은 사람들

착상을 있는 것 전부 쌓았다
자주(잘) 몰랐던 사람들은 실장하고 있지 않다
추가·정정 구한다

치운 소재
·카센 저택 뒷산에 과일마누(밤, 감, 매화 등)
그냥 이미지대로 있을 듯
여러모로 너무 애매해서 일단 보류
·도레미 씨가 설탕을 생산
여하튼 스위트한 것을 이라고 생각했다
사탕수수나 텐사이이지만 어쩐지 슈르(초현실)이므로 보류
양봉 농가에서 벌꿀을 만드는  방법도 있을까
후에 텐사이는 치르노의작물이 되었다
·모코우 or 카구야로 죽림에서 죽순 농가
죽순은 얻을 것 같지만 이 2명이 작물을 징수하러 오는 이미지가 하지 않는다
지주라고 하는 형태로 타인과 서로 관계가 될까? (이)라고 생각해 그만두고
·렌코의 연근밭, 세이란의 사과원
메리와 세이란의 작물을 생각해내지 못했다
만 지주 설정하고 있다고(면) 위화감
·세이자로 미라클 후르츠 밭
쓴 맛＆산미를 달면 느끼게 한다=확 뒤집었다
대량생산 하는 것 같은 것도 아닌 것 같은이라고 생각해 그만두고
·순호 씨의 생강밭
대단한 형상으로 외치면서 설충분하는 거야? 너무 일발 재료 지나므로 각하
·미마님의 목장
하지만(ry

과일나무에서는 감이나 꿀 감등이 있으면 일본 느낌이 늘어나지만 맡길 수 있는 사람이 생각해내지 못했다
이 밖에 섬유계로 면화, 삼, 염료계로 천 등을 들어 본다

2018/05/19
·각종 거점 맵의 실장에 수반해 버그번호를 수정
·농민계의 데이터의 기술은 각지 주인의 캐릭터데이터함수 곁에 이동시켰습니다
　소작인 패치의 구상 단계에서 캐릭터데이터함수적인 기술은 생각했었습니다만
　함수군이 꽤에 거대해서 소작인 패치만의 위해(때문에) 실장하는 것은 이라고 생각해 그만두고 있었습니다
　만들어 버렸기 때문에 캐릭터데이터함수 곁에 이동
·@STR_NOUMIN()의 사양 변경
　1. STR_NOUMIN/INT_NOUMIN의 2종류로 나누어 TOINT의 필요를 없게 했다
　2. 캐릭터데이터함수로 관리하게 되었으므로 제일 인수로 건네주는 내용을 CALLNAME로부터 등록 번호로 변경
　3. STR/INT_NOUMIN의 제2 인수는 종래대로, STR_NOUMIN(1, "설명") 등으로 움직입니다
　4. 캐릭터데이터함수측의 기술로 사용하고 있는"농민："의 부분은 STR/INT_NOUMIN로 마음대로 부여합니다

[SKIPEND]
@INT_NOUMIN(C_ID, TYPE)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIM  C_ID;지주의 등록 번호
#DIMS TYPE;취득 정보의 종류
RETURNF GET_INT(, "캐릭터데이터", C_ID, "농민：" + TYPE)

@STR_NOUMIN(C_ID, TYPE)
#FUNCTIONS
#LOCALSIZE 1
#LOCALSSIZE 1
#DIM  C_ID;지주의 등록 번호
#DIMS TYPE;취득 정보의 종류
RETURNF GET_STR(, "캐릭터데이터", C_ID, "농민：" + TYPE)

;농민 초기설정 함수
@SET_NOUMIN
#LOCALSIZE 1000
#LOCALSSIZE 1
#DIM LCOUNT
#DIM C_ID
#DIM LIST_ID
#DIM CHARA_COUNT
#DIM LIST_COUNT
#DIM PAGE
#DIMS NAME_지주
PRINTFORML 당신은 농민입니까?
PRINTFORML [1] - 네
PRINTFORML [0] - 아니오
DO
	INPUT
	SELECTCASE RESULT
	CASE 0
		RETURN
	CASE 1
	CASEELSE
		REUSELASTLINE 무효인 입력입니다
		CONTINUE
	ENDSELECT
	BREAK
LOOP 1

PAGE = 0
CHARA_COUNT = 0
;지주 일람의 취득
FOR C_ID, 1, CHARANUM
	SIF C_ID == FLAG:역극
		CONTINUE
	SIF !STRLENS(STR_NOUMIN(C_ID, "설명"))
		CONTINUE
	LOCAL:CHARA_COUNT = C_ID
	CHARA_COUNT ++
NEXT

FLAG:지주 = 0
FLAG:밭일성과 = 0
FLAG:변제연체회수 = 0
FLAG:수확납입회수 = 0
FLAG:누적수확평가 = 0
FLAG:전회수확평가 = 0

DO
	LIST_COUNT = 0
	PRINTFORML 당신을 고용하고 있는 지주를 선택해주세요
	PRINTFORML
	FOR LIST_ID, (PAGE * 20), CHARA_COUNT
		C_ID = LOCAL:LIST_ID
		PRINTFORM [{C_ID , 3}] - 지주：%CALLNAME:C_ID, 10%
		PRINTFORM %STR_NOUMIN(C_ID, "설명"), 14%
		PRINTFORML %STR_NOUMIN(C_ID, "밭의 종류")%의 위치는 %STR_NOUMIN(C_ID, "밭의 맵")%의 부근
		LIST_COUNT ++
		SIF LIST_COUNT > 19
			BREAK
	NEXT
	PRINTFORML
	PRINTFORML [901] - 이전 페이지
	PRINTFORML [902] - 다음 페이지
	PRINTFORML [  0] - 역시 그만둔다
	DO
		INPUT
		SELECTCASE RESULT
		CASE 0
			RETURN
		CASE 901
			SIF PAGE > 0
				PAGE --
		CASE 902
			SIF (PAGE + 1) * 20 < CHARA_COUNT
				PAGE ++
		CASE 1 TO CHARANUM - 1
			SIF !STRLENS(STR_NOUMIN(RESULT, "설명"))
				GOTO RETRY
			FLAG:지주 = RESULT
		CASEELSE
			$RETRY
			REUSELASTLINE 무효인 입력입니다
			CONTINUE
		ENDSELECT
		BREAK
	LOOP 1
LOOP !(FLAG:지주)

NAME_지주 = %CALLNAME:(FLAG:지주)%
PRINTFORML
PRINTFORML 당신은 %NAME_지주% 밑에서 %STR_NOUMIN(FLAG:지주, "작물")%를 만드는 소작인이 되었습니다
PRINTFORML 당신이 빌린 %STR_NOUMIN(FLAG:지주, "밭의 종류")%은 %STR_NOUMIN(FLAG:지주, "밭의 맵")% 부근에 있습니다
PRINTFORMW 매일 농땡이 피우지 말고 손봅시다

CALL MODE_NOUMIN
CALL LOAN_NOUMIN

[IF_DEBUG]
;거동, 레이 만난다라는 확인용
;MONEY = 100000
;DO
;	SIF FLAG:농민난이도
;		CALL COST_NOUMIN
;	CALL REPAY_NOUMIN
;	WAIT
;LOOP 1
[ENDIF]

@MODE_NOUMIN
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS NAME_지주
NAME_지주 = %CALLNAME:(FLAG:지주)%
PRINTFORML 농민 생활의 난이도를 설정해주세요
PRINTFORML (선택지에 따라서는 캐릭터의 이미지가 붕괴할 우려가 있습니다)
PRINTFORML
PRINTFORML [1] - 노멀 농민　　　%조사처리(NAME_지주,"는")% 무척 친절한 지주입니다
PRINTFORML [2] - 하드코어 농민　%조사처리(NAME_지주,"는")% 평범하게 욕심 많은 지주입니다
PRINTFORML [3] - 익스트림 농민　%조사처리(NAME_지주,"는")% 압정과 횡포를 부리는 지주입니다
DO
	INPUT
	IF INRANGE(RESULT, 1, 3)
		FLAG:농민난이도 = RESULT
		BREAK
	ELSE
		REUSELASTLINE 무효인 입력입니다
		CONTINUE
	ENDIF
LOOP 1
SELECTCASE FLAG:농민난이도
CASE 1
	PRINTFORML 당신의 지주는 매우 친절하고 착한 사람입니다
	FLAG:밭확장 = 1
CASE 2
	PRINTFORML 당신은 지주에게 시달리는 농민이 되었습니다
	FLAG:밭확장 = 2
CASE 3
	PRINTFORML 당신은 지주에게 철저하게 착취당하는 농민이 되었습니다
	FLAG:밭확장 = 3
ENDSELECT
PRINTFORMW (농민 난이도는 컨피그에서 변경 가능합니다)
SETBIT FLAG:1000, 2

;%TOSTR(LOCAL, "#,###")%
;보수 400 * 1000 = 40만엔(표준 금액)
@LOAN_NOUMIN
#DIMS NAME_지주
NAME_지주 = %CALLNAME:(FLAG:지주)%
LOCAL = INT_NOUMIN(FLAG:지주, "보수") * 1000
PRINTFORML 농업을 시작한 %CALLNAME:MASTER%에게 초기 투자 비용으로 \\{LOCAL}의 차입금이 발생했다
FLAG:지주대출금 = LOCAL
FLAG:연시대출금 = LOCAL
SELECTCASE FLAG:농민난이도
CASE 1
	PRINTFORML %조사처리(NAME_지주,"는")% 무이자로 빌려줄 테니 느긋하게 갚아도 된다고 말해주었다
	IF !ITEM:원예용품일식
		PRINTFORML 더해서 %조사처리(NAME_지주,"는")% 먼저 인간 마을의 꽃집에서 원예용품을 장만두라고 조언해주었다
		PRINTFORML 농기구 구입비용까지는 부담해주지 않을 것 같다
	ENDIF
CASE 2, 3
	PRINTFORML 이 차입금에는 {INT_NOUMIN(FLAG:지주, "금리")}\%의 금리가 발생하는 모양이다
	PRINTFORML 더해서 %조사처리(NAME_지주,"는")% 농기구를 대출하겠다고 제안했다
	PRINTFORML ……아무래도 거절할 권리는 없을 것 같다
	;아마 이 그 밖에 현지에 쓸데없게 다양한 도구가 산만큼 있다
	SIF !ITEM:원예용품일식
		ITEM:원예용품일식 ++
ENDSELECT
WAIT

;농민 정보 표시 함수
@SHOW_NOUMIN
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS NAME_지주
#DIM HATAKE
NAME_지주 = %CALLNAME:(FLAG:지주)%
HATAKE = INT_NOUMIN(FLAG:지주, "장소 ID")
SIF GET_MAPID(HATAKE) != MAIN_MAP
	HATAKE = 6000 + (GET_MAP_REPLACEMENT(HATAKE) / 10)

PRINTFORML %NAME_지주%의 소작인(%STR_NOUMIN(FLAG:지주, "작물")%를 만들고 있는 %STR_NOUMIN(FLAG:지주, "설명")%)
PRINTFORML %STR_NOUMIN(FLAG:지주, "밭의 종류")%은 %STR_NOUMIN(FLAG:지주, "밭의 맵")%의 %NAME_FROM_PLACE(HATAKE)% 부근에 있다
;착한 사람이라도 작물은 전부 받아갑니다
SELECTCASE FLAG:농민난이도
CASE 1
	PRINTFORML 지주는 무척 친절하고 착한 사람이다
	SIF FLAG:지주대출금
		PRINTFORML \\{FLAG:지주대출금}을 무이자로 빌렸다
CASE 2
	PRINTFORML 지주에게 시달리고 있다
	SIF FLAG:지주대출금
		PRINTFORML \\{FLAG:지주대출금}을 빌렸으며 금리는 {INT_NOUMIN(FLAG:지주, "금리")}\%(연리)다
CASE 3
	PRINTFORML 지주에게 철저하게 착취당하고 있다
	SIF FLAG:지주대출금
		PRINTFORML \\{FLAG:지주대출금}을 빌렸으며 금리는 {INT_NOUMIN(FLAG:지주, "금리")}\%(월리)다
ENDSELECT
PRINTFORML

;징수 함수
;사실은 연공이든 뭐든 없지만 알기 쉬움 우선
;말대응이라든지 포상 엣찌라든지는 사양을 몰라서 실장할 수 없다
@NENGU_NOUMIN
#LOCALSIZE 1
#LOCALSSIZE 1
#DIM 연공의평가
PRINTFORML %CALLNAME:(FLAG:지주)%가 이번 달 분 성과를 징수하러 왔다
PRINTFORMW (이번 달 수확량：{FLAG:밭일성과})
연공의평가 = FLAG:밭일성과 / 20
LOCAL = (연공의평가 - 3) * 5
SIF LOCAL < 0
	LOCAL = LOCAL - SQRT(MAX(1, CFLAG:(FLAG:지주):신뢰도))
SELECTCASE 연공의평가
CASE IS <= 0
	PRINTFORML 이번 달 분 %STR_NOUMIN(FLAG:지주, "작물")%의 수확량은 거의 제로다
	PRINTFORML %CALLNAME:(FLAG:지주)%는 이쪽을 험악한 표정으로 노려보고 있다
CASE 1
	PRINTFORML 이번 달 분 %STR_NOUMIN(FLAG:지주, "작물")%의 수확량은 꽤 적다
	PRINTFORML %CALLNAME:(FLAG:지주)%는 수확량이 너무나 적어서 명명백백 실망한 눈치다
CASE 2
	PRINTFORML 이번 달 분 %STR_NOUMIN(FLAG:지주, "작물")%의 수확량은 적은 편이다
	PRINTFORML %CALLNAME:(FLAG:지주)%는 수확량이 적어 불만스런 기색이다
CASE 3
	PRINTFORML 이번 달 분 %STR_NOUMIN(FLAG:지주, "작물")%의 수확량은 약간 적은 편이다
	PRINTFORML %CALLNAME:(FLAG:지주)%는 수확량에 다소 부족하다 느끼는 모양이다
CASE 4
	PRINTFORML 이번 달 분 %STR_NOUMIN(FLAG:지주, "작물")%의 수확량은 평범한 축이다
	PRINTFORML %CALLNAME:(FLAG:지주)%는 수확량에 만족해준 모양이다
CASE 5
	PRINTFORML 이번 달 분 %STR_NOUMIN(FLAG:지주, "작물")%의 수확량은 약간 많은 축이다
	PRINTFORML %CALLNAME:(FLAG:지주)%는 수확량이 많아 흡족한 기색이다
CASE 6
	PRINTFORML 이번 달 분 %STR_NOUMIN(FLAG:지주, "작물")%의 수확량은 꽤 많다
	PRINTFORML %CALLNAME:(FLAG:지주)%는 예상 이상의 수확량에 웃음을 띠고 있다
CASEELSE
	PRINTFORML 이번 달 분 %STR_NOUMIN(FLAG:지주, "작물")%의 수확량은 어마어마한 양이다!
	PRINTFORML %CALLNAME:(FLAG:지주)%는 상상을 초월한 수확량에 압도당하고 있다
ENDSELECT
WAIT

IF LOCAL < 0
	PRINTFORMW %CALLNAME:(FLAG:지주)%는 당신에게 불신감을 품고 있다
	CFLAG:(FLAG:지주):신뢰도 = MAX(0, CFLAG:(FLAG:지주):신뢰도 + LOCAL)
	IF 연공의평가 <= 0
		PRINTFORMW ……%CALLNAME:(FLAG:지주)%를 화나게 한 것 같다
		CFLAG:(FLAG:지주):언짢음 = 1
		CFLAG:(FLAG:지주):빡침 = 1
		SIF MARK:(FLAG:지주):반발각인 < 3
			MARK:(FLAG:지주):반발각인 ++
	ENDIF
ELSEIF LOCAL > 0
	PRINTFORMW %CALLNAME:(FLAG:지주)%의 신뢰도가 올랐다
	CFLAG:(FLAG:지주):신뢰도 += LOCAL
	IF !MARK:(FLAG:지주):반발각인
		LOCAL = 연공의평가 * INT_NOUMIN(FLAG:지주, "보수")
		PRINTFORMW %CALLNAME:(FLAG:지주)%는 \\{LOCAL}의 용돈을 주었다
		MONEY += LOCAL
	ENDIF
ENDIF
FLAG:밭일성과 = 0
FLAG:연공 = 0
FLAG:수확납입회수 ++
FLAG:누적수확평가 += 연공의평가
FLAG:전회수확평가 = 연공의평가
SIF FLAG:야채낭데일리 == 2
	FLAG:야채낭데일리 = 1
CALL REPAY_NOUMIN
SIF FLAG:농민난이도 > 1
	CALL COST_NOUMIN

@REPAY_NOUMIN
#DIM HENSAI
#DIM MIN_HENSAI
#DIMS NAME_지주
NAME_지주 = %CALLNAME:(FLAG:지주)%
SIF !FLAG:지주대출금
	GOTO KANRYOU
SELECTCASE FLAG:농민난이도
CASE 1
	MIN_HENSAI = 100
CASE 2
	MIN_HENSAI = INT_NOUMIN(FLAG:지주, "보수") * 5
CASE 3
	MIN_HENSAI = INT_NOUMIN(FLAG:지주, "보수") * (10 + FLAG:변제연체회수)
ENDSELECT
MIN_HENSAI = MIN(MIN_HENSAI, FLAG:지주대출금)

PRINTFORML %조사처리(NAME_지주,"는")% 빚의 변제를 요구하고 있다
PRINTFORML 얼마나 내겠습니까? (소지 자금 \\{MONEY}, 최저 금액 \\{MIN_HENSAI} 이하로 연체 판정)
DO
	INPUT
	HENSAI = MIN(RESULT, FLAG:지주대출금)
	SELECTCASE HENSAI
	CASE IS < MIN_HENSAI
		PRINTFORML %마스터는% 제발 변제를 미뤄달라고 %NAME_지주%에게 애원했다
		IF FLAG:농민난이도 == 1
			IF MONEY < MIN_HENSAI
			;진심으로 돈이 없을 때
				PRINTDATAL
					DATAFORM %조사처리(NAME_지주,"는")% 이쪽의 생활 상황을 진심으로 걱정하고 있다
					DATAFORM %조사처리(NAME_지주,"는")% 이쪽의 생활 상황을 진심으로 걱정하고 있다
					DATAFORM %조사처리(NAME_지주,"는")% %마스터를% 격려하고 있다
					DATAFORM %조사처리(NAME_지주,"는")% %마스터를% 위로하고 있다
					DATAFORM %조사처리(NAME_지주,"는")% 건넬 말을 찾지 못하는 눈치다
					DATAFORM %NAME_지주%의 연민 어린 시선이 꽂힌다
					DATAFORM %NAME_지주%의 표정이 어두워졌다
					DATAFORM %조사처리(NAME_지주,"는")% 난처해하고 있다
				ENDDATA
			ELSE
			;조금 기다려!
				PRINTDATAL
					DATAFORM %조사처리(NAME_지주,"는")% 깊은 한숨을 쉬고 있다
					DATAFORM %조사처리(NAME_지주,"는")% 관자놀이를 누르고 있다
					DATAFORM %조사처리(NAME_지주,"는")% 뚱한 눈으로 이쪽을 바라보고 있다
					DATAFORM %조사처리(NAME_지주,"는")% 팔짱을 끼고 떨떠름한 표정을 짓고 있다
					DATAFORM %NAME_지주%의 연민 어린 시선이 꽃힌다
					DATAFORM %NAME_지주%의 얼굴이 실룩거리고 있다
					DATAFORM %NAME_지주%의 미간에 주름이 잡혔다
					DATAFORM %NAME_지주%의 표정이 어두워졌다
					DATAFORM %조사처리(NAME_지주,"는")% 난처해하고 있다
				ENDDATA
				PRINTFORML
				PRINTFORML ……가까스로 납득해준 모양이다
			ENDIF
			FLAG:변제연체회수 ++
		ELSEIF MONEY >= MIN_HENSAI
			PRINTFORML %조사처리(NAME_지주,"는")% %CALLNAME:MASTER%의 말을 가로막고는 지갑에서 강제로 \\{MIN_HENSAI}를 강탈했다
			MONEY -= MIN_HENSAI
		ELSE
			PRINTFORML %조사처리(NAME_지주,"는")% 혀를 차고 이쪽을 싸늘한 눈으로 노려보고 있다
			FLAG:변제연체회수 ++
		ENDIF
	CASE IS > MONEY
		$RETRY
		REUSELASTLINE 무효인 입력입니다
		CONTINUE
	CASEELSE
		PRINTFORML %마스터는% 빚 가운데 \\{HENSAI}를 변제했다
		MONEY -= HENSAI
		FLAG:변제연체회수 = 0
		FLAG:지주대출금 -= HENSAI
		IF !FLAG:지주대출금
			IF FLAG:농민난이도 == 1
				PRINTFORML %마스터는% 마침내 빚을 완납했다
				PRINTFORML %NAME_지주%도 함께 기뻐해주고 있다
			ELSE
				PRINTFORML %마스터는% 빚을 완납했다
				PRINTFORML ……그래봤자 또 금방 뭔가 구실을 달아서 돈을 뜯기겠지만
			ENDIF
		ELSE
			PRINTFORML 남은 빚은 \\{FLAG:지주대출금}이다……
		ENDIF
		$KANRYOU
		PRINTFORML
		IF FLAG:농민난이도 == 1
			PRINTDATAL
				DATAFORM %NAME_지주%과의 잡담으로 꽃을 피웠다
				DATAFORM %조사처리(NAME_지주,"는")% 밭일 보고를 흥미롭게 듣고 있다
				DATAFORM %조사처리(NAME_지주,"는")% 힘든 일이 없는지 신경 써주고 있다
				DATAFORM %NAME_지주%가 가져와 준 과자를 집어먹으며 환담을 나누었다
				DATAFORM %조사처리(NAME_지주,"는")% 농지 개선 요망에 진지하게 귀를 기울이고 있다
				DATAFORM %조사처리(NAME_지주,"는")% 온화한 시선으로 이쪽을 보고 있다
				DATAFORM %NAME_지주%의 웃는 얼굴이 눈부시다
			ENDDATA
		ELSE
			PRINTDATAL
				DATAFORM %조사처리(NAME_지주,"는")% 틈만 나면 %CALLNAME:MASTER%에게 물건을 강매하려든다
				DATAFORM %조사처리(NAME_지주,"는")% 밭일 보고를 대충 듣고 넘기고 있다
				DATAFORM %조사처리(NAME_지주,"는")% 돈 문제를 겪는 사람은 없는지 떠보고 있다
				DATAFORM %조사처리(NAME_지주,"는")% 농지 개선 계획이라며 설비 투자를 제안해왔다…… 그런 돈은 없다
				DATAFORM %NAME_지주%의 시선에선 못된 꿍꿍이의 낌새가 엿보인다
				DATAFORM %NAME_지주%의 웃는 얼굴에는 뭔가 수작이 있다고밖에 안 보인다
				DATAFORM %NAME_지주%의 웃는 얼굴을 봐도 왠지 마음이 편치 않다
			ENDDATA
		ENDIF
	ENDSELECT
	BREAK
LOOP 1

IF FLAG:변제연체회수
	LOCAL = POWER(FLAG:변제연체회수, FLAG:농민난이도 + 1)
	LOCAL = MIN(LOCAL, CFLAG:(FLAG:지주):신뢰도)
	IF LOCAL
		PRINTFORMW %CALLNAME:(FLAG:지주)%는 당신에게 불신감을 품고 있다
		CFLAG:(FLAG:지주):신뢰도 -= LOCAL
	ENDIF
ENDIF

;이러니 저러니 이유 붙여 공제해진다
;표준 레이트 400으로 금리·반제 연체에 의한 패널티를 제외하면(자)
;하드코어로 1만, 익스트림으로 3만의 경비가 매월 발생한다
@COST_NOUMIN
#LOCALSIZE 9
#LOCALSSIZE 9
#DIMS NAME_지주
#DIMS PREV_지주
#DIM COST_RATE
#DIM LCOUNT
NAME_지주 = %CALLNAME:(FLAG:지주)%
COST_RATE = INT_NOUMIN(FLAG:지주, "보수")
LOCAL:0 = 0
LOCAL:8 = 0
PRINTFORML 이번 달 분의 기타 경비로 이하의 요금이 빚에 추가되었다

;금리 계산
;하드코어라면 연시 차입금 준거로 연리 계산
;익스트림이라면 연시 차입금·이번달 차입금의 나 큰 편으로 월리 계산
IF FLAG:지주대출금 < 10000000
	SELECTCASE FLAG:농민난이도
	CASE 2
		LOCAL:1 = FLAG:연시대출금 * INT_NOUMIN(FLAG:지주, "금리") / 1200
	CASE 3
		LOCAL:1 = MAX(FLAG:지주대출금, FLAG:연시대출금) * INT_NOUMIN(FLAG:지주, "금리") / 100
	ENDSELECT
ENDIF

SELECTCASE FLAG:농민난이도
CASE 2
	LOCAL:2 = FLAG:변제연체회수 * COST_RATE
CASE 3
	LOCAL:2 = FLAG:변제연체회수 * COST_RATE * 10
ENDSELECT

;고정치가 대부분 어째서 매회 재계산할 필요는 그다지 없다
;지주의 교체(와 재기동)의 타이밍에 판정하도록(듯이)
IF NAME_지주 != PREV_지주
	LOCALS:0 = 경비 총액
	LOCALS:1 = 이자
	LOCALS:2 = 변제 연체비
	LOCALS:3 = 농구 이용비
	LOCALS:8 = 차입금 총액
	SELECTCASE FLAG:농민난이도
	CASE 2
		LOCAL:3 = COST_RATE * 5
	CASE 3
		LOCAL:3 = COST_RATE * 10
	ENDSELECT

	LOCALS:4 = 비료 구입비
	SELECTCASE FLAG:농민난이도
	CASE 2
		LOCAL:4 = COST_RATE * 5
	CASE 3
		LOCAL:4 = COST_RATE * 10
	ENDSELECT

	LOCALS:5 = 작물 출하비
	SELECTCASE FLAG:농민난이도
	CASE 2
		LOCAL:5 = COST_RATE * 5
	CASE 3
		LOCAL:5 = COST_RATE * 15
	ENDSELECT

	LOCALS:6 = 수장 이용비
	SELECTCASE FLAG:농민난이도
	CASE 2
		LOCAL:6 = COST_RATE * 5
	CASE 3
		LOCAL:6 = COST_RATE * 20
	ENDSELECT

	IF STR_NOUMIN(FLAG:지주, "작물") == "생사"
		LOCALS:7 = 차기란비
	ELSE
		LOCALS:7 = 차기 볍씨비
	ENDIF

	SELECTCASE FLAG:농민난이도
	CASE 2
		LOCAL:7 = COST_RATE * 5
	CASE 3
		LOCAL:7 = COST_RATE * 20
	ENDSELECT
	PREV_지주 = %NAME_지주%
ENDIF

LOCAL:0 = SUMARRAY(LOCAL)
LOCAL:8 = LIMIT(FLAG:지주대출금 + LOCAL:0,  0, 10000000)
FLAG:지주대출금 = LOCAL:8
PRINTFORML ――――――――――――――――――――――――――――――――
PRINTFORML 　기타 경비
PRINTFORML ――――――――――――――――――――――――――――――――
FOR LCOUNT, 1, 8
	SIF LOCAL:LCOUNT
		PRINTFORML 　　%LOCALS:LCOUNT, 12%｜　　　\\%TOSTR(LOCAL:LCOUNT, "#,###"),20%
NEXT
PRINTFORML ――――――――｜―――――――――――――――――――――――
PRINTFORML 　　%LOCALS:0, 12%｜　　　\\%TOSTR(LOCAL:0, "#,###"),20%
PRINTFORML ――――――――｜―――――――――――――――――――――――
PRINTFORM 　　%LOCALS:8, 12%｜　　　\\%TOSTR(LOCAL:8, "#,###"),20%
IF FLAG:지주대출금 == 10000000
	PRINTFORML 　!　상한　!
ELSE
	PRINTFORML
ENDIF
PRINTFORML ――――――――――――――――――――――――――――――――


code:
;외의
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_외의_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@외의_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "외의", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_외의1
#LOCALSIZE 1
#LOCALSSIZE 1

@외의1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "케이프")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 1
ENDSELECT

@EXIST_외의2
#LOCALSIZE 1
#LOCALSSIZE 1

@외의2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "망토")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 2
ENDSELECT

@EXIST_외의3
#LOCALSIZE 1
#LOCALSSIZE 1

@외의3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "케이프 망토")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 3
ENDSELECT

@EXIST_외의4
#LOCALSIZE 1
#LOCALSSIZE 1

@외의4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "앞치마")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 4
ENDSELECT

@EXIST_외의5
#LOCALSIZE 1
#LOCALSSIZE 1

@외의5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "솜잠옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 5
ENDSELECT

@EXIST_외의6
#LOCALSIZE 1
#LOCALSSIZE 1

@외의6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "겉옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 6
ENDSELECT

@EXIST_외의7
#LOCALSIZE 1
#LOCALSSIZE 1

@외의7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "백의")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 7
ENDSELECT

@EXIST_외의8
#LOCALSIZE 1
#LOCALSSIZE 1

@외의8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "윈드 브레이커(상표명)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 8
ENDSELECT

@EXIST_외의9
#LOCALSIZE 1
#LOCALSSIZE 1

@외의9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "베스트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 9
ENDSELECT

@EXIST_외의10
#LOCALSIZE 1
#LOCALSSIZE 1

@외의10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "작업복")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 10
ENDSELECT

@EXIST_외의11
#LOCALSIZE 1
#LOCALSSIZE 1

@외의11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "파커")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 11
ENDSELECT

@EXIST_외의12
#LOCALSIZE 1
#LOCALSSIZE 1

@외의12(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "학 란")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 12
ENDSELECT

@EXIST_외의13
#LOCALSIZE 1
#LOCALSSIZE 1

@외의13(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "쟈켓")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 13
ENDSELECT

@EXIST_외의14
#LOCALSIZE 1
#LOCALSSIZE 1

@외의14(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "슈트 쟈켓")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「외의」")
;구장비 처리와의 조회용, 외의의 14
ENDSELECT

repo_name: purugi/eraTWKR

license: mit


code:
;그외의상
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_그외의상_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@그외의상_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "그외의상", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_그외의상1
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "안대")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의1
ENDSELECT

@EXIST_그외의상2
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "Earring(귀걸이)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의2
ENDSELECT

@EXIST_그외의상3
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "목걸이")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의3
ENDSELECT

@EXIST_그외의상4
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "초커")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의4
ENDSELECT

@EXIST_그외의상5
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "넥타이")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의5
ENDSELECT

@EXIST_그외의상6
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "머플러-")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의6
ENDSELECT

@EXIST_그외의상7
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "띠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의7
ENDSELECT

@EXIST_그외의상8
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "벨트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의8
ENDSELECT

@EXIST_그외의상9
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "밧줄")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의9
ENDSELECT

@EXIST_그외의상10
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "구속도구")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의10
ENDSELECT

@EXIST_그외의상11
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "학생용 가방")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의11
ENDSELECT

@EXIST_그외의상12
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상12(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "륙섹")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의12
ENDSELECT

@EXIST_그외의상13
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상13(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "제한 표지줄")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의13
ENDSELECT

@EXIST_그외의상14
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상14(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "날개옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의14
ENDSELECT

@EXIST_그외의상15
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상15(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "붕대")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의15
ENDSELECT

@EXIST_그외의상16
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상16(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "브레스 렛")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의16
ENDSELECT

@EXIST_그외의상17
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상17(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "새시 벨트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의17
ENDSELECT

@EXIST_그외의상18
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상18(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "리본 초커")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의18
ENDSELECT

@EXIST_그외의상19
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상19(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "스카프 타이")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의19
ENDSELECT

@EXIST_그외의상20
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상20(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "유뉴")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의20
ENDSELECT

@EXIST_그외의상21
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상21(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "서스펜더")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의21
ENDSELECT

@EXIST_그외의상22
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상22(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "부적")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의22
ENDSELECT

@EXIST_그외의상23
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상23(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "리본 타이")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의23
ENDSELECT

@EXIST_그외의상24
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상24(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "리본")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의24
ENDSELECT

@EXIST_그외의상25
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상25(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "껌 테이프")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의25
ENDSELECT

@EXIST_그외의상26
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상26(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "수염")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의26
ENDSELECT

@EXIST_그외의상27
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상27(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "는")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의27
ENDSELECT

@EXIST_그외의상28
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상28(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "토스트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의28
ENDSELECT

@EXIST_그외의상29
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상29(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "복숭아")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의29
ENDSELECT

@EXIST_그외의상30
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상30(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "생리 용품")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의30
ENDSELECT

@EXIST_그외의상31
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상31(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "혹성")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의31
ENDSELECT

@EXIST_그외의상32
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상32(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "숄더백")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의32
ENDSELECT

@EXIST_그외의상33
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상33(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "핸드백")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의33
ENDSELECT

@EXIST_그외의상34
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상34(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "옷고리짝")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의34
ENDSELECT

@EXIST_그외의상35
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상35(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "담뱃대")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의35
ENDSELECT

@EXIST_그외의상36
#LOCALSIZE 1
#LOCALSSIZE 1

@그외의상36(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "브로치")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「그외1」 「그외2」 「그외3」")
;구장비 처리와의 조회용, 그 외의35
ENDSELECT


code:
;기모노
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_기모노_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@기모노_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "기모노", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_기모노1
#LOCALSIZE 1
#LOCALSSIZE 1

@기모노1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "기모노")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「기모노」")
;구장비 처리와의 조회용, 기모노의 1
ENDSELECT

@EXIST_기모노2
#LOCALSIZE 1
#LOCALSSIZE 1

@기모노2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "치하야")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「기모노」")
;구장비 처리와의 조회용, 기모노의 2
ENDSELECT

@EXIST_기모노3
#LOCALSIZE 1
#LOCALSSIZE 1

@기모노3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "속옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「기모노」")
;구장비 처리와의 조회용, 기모노의 3
ENDSELECT

@EXIST_기모노4
#LOCALSIZE 1
#LOCALSSIZE 1

@기모노4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "유카타")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「기모노」")
;구장비 처리와의 조회용, 기모노의 4
ENDSELECT

@EXIST_기모노5
#LOCALSIZE 1
#LOCALSSIZE 1

@기모노5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "도복")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「기모노」")
;구장비 처리와의 조회용, 기모노의 5
ENDSELECT

@EXIST_기모노6
#LOCALSIZE 1
#LOCALSSIZE 1

@기모노6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "소복")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「기모노」")
;구장비 처리와의 조회용, 기모노의 6
ENDSELECT

@EXIST_기모노7
#LOCALSIZE 1
#LOCALSSIZE 1

@기모노7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "인의복")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「기모노」")
;구장비 처리와의 조회용, 기모노의 7
ENDSELECT


code:
;레오타드
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_레오타드_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@레오타드_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "레오타드", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_레오타드1
#LOCALSIZE 1
#LOCALSSIZE 1

@레오타드1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "레오타드")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「레오타드」")
;구장비 처리와의 조회용, 레오타드의 1
ENDSELECT

@EXIST_레오타드2
#LOCALSIZE 1
#LOCALSSIZE 1

@레오타드2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "하이레그레오타드(흑)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「레오타드」")
;구장비 처리와의 조회용, 레오타드의 2
ENDSELECT

@EXIST_레오타드3
#LOCALSIZE 1
#LOCALSSIZE 1

@레오타드3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "하이레그레오타드(빨강)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「레오타드」")
;구장비 처리와의 조회용, 레오타드의 3
ENDSELECT

@EXIST_레오타드4
#LOCALSIZE 1
#LOCALSSIZE 1

@레오타드4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "바니 슈트(흑)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「레오타드」")
;구장비 처리와의 조회용, 레오타드의 4
ENDSELECT

@EXIST_레오타드5
#LOCALSIZE 1
#LOCALSSIZE 1

@레오타드5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "바니 슈트(빨강)")
;구장비 처리와의 조회용, 레오타드의 5
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「레오타드」")
ENDSELECT

@EXIST_레오타드6
#LOCALSIZE 1
#LOCALSSIZE 1

@레오타드6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "스쿨 수영복")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「레오타드」")
;구장비 처리와의 조회용, 레오타드의 6
ENDSELECT

@EXIST_레오타드7
#LOCALSIZE 1
#LOCALSSIZE 1

@레오타드7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "수영 경기 수영복")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「레오타드」")
;구장비 처리와의 조회용, 레오타드의 7
ENDSELECT

@EXIST_레오타드8
#LOCALSIZE 1
#LOCALSSIZE 1

@레오타드8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "원피스수영복")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「레오타드」")
;구장비 처리와의 조회용, 레오타드의 8
ENDSELECT

@EXIST_레오타드9
#LOCALSIZE 1
#LOCALSSIZE 1

@레오타드9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "스링송트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「레오타드」")
;구장비 처리와의 조회용, 레오타드의 9
ENDSELECT

@EXIST_레오타드10
#LOCALSIZE 1
#LOCALSSIZE 1

@레오타드10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "이너 슈트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「레오타드」")
;구장비 처리와의 조회용, 레오타드의 10
ENDSELECT

@EXIST_레오타드11
#LOCALSIZE 1
#LOCALSSIZE 1

@레오타드11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "쇠사슬 홑옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「레오타드」")
;구장비 처리와의 조회용, 레오타드의 11
ENDSELECT


code:
;머리장비
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_머리장비_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@머리장비_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "머리장비", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_머리장비1
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "모자")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 1
ENDSELECT

@EXIST_머리장비2
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "머리 치장")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 2
ENDSELECT

@EXIST_머리장비3
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "리본")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 3
ENDSELECT

@EXIST_머리장비4
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "화이트브림")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 4
ENDSELECT

@EXIST_머리장비5
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "캬츄샤(헤어밴드)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 5
ENDSELECT

@EXIST_머리장비6
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "면")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 6
ENDSELECT

@EXIST_머리장비7
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "두건")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 7
ENDSELECT

@EXIST_머리장비8
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "까마귀 모자")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 8
ENDSELECT

@EXIST_머리장비9
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "우사미 헤어-밴드")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 9
ENDSELECT

@EXIST_머리장비10
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "카스 모포")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 10
ENDSELECT

@EXIST_머리장비11
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "완")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 11
ENDSELECT

@EXIST_머리장비12
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비12(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "시니욘캐프")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 12
ENDSELECT

@EXIST_머리장비13
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비13(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "나이트캡")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 13
ENDSELECT

@EXIST_머리장비14
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비14(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "turban 캐치볼")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 14
ENDSELECT

@EXIST_머리장비15
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비15(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "두건")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 15
ENDSELECT

@EXIST_머리장비16
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비16(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "헤드기어")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 16
ENDSELECT

@EXIST_머리장비17
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비17(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "삼각건")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 17
ENDSELECT

@EXIST_머리장비18
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비18(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "헤드 세트·인 컴")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 18
ENDSELECT

@EXIST_머리장비19
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비19(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "헤드폰")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 19
ENDSELECT

@EXIST_머리장비20
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비20(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "간호사 캐치볼")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 20
ENDSELECT

@EXIST_머리장비21
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비21(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "산타모")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 21
ENDSELECT

@EXIST_머리장비22
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비22(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "산바이자")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 22
ENDSELECT

@EXIST_머리장비23
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비23(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "밀짚 모자")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 23
ENDSELECT

@EXIST_머리장비24
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비24(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "학모")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 24
ENDSELECT

;모처의 기술을 봐 검색한 결과
;순호씨의 아레는 「대납시」라고 말하는 것이 그것 같지만 어떨까
@EXIST_머리장비25
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비25(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "면관")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 25
ENDSELECT

@EXIST_머리장비26
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비26(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "피에로모")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 26
ENDSELECT

@EXIST_머리장비27
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비27(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "손수건")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 27
ENDSELECT

@EXIST_머리장비28
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비28(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "삿갓")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
;구장비 처리와의 조회용, 모자의 28
ENDSELECT

;파자마용으로 신설
@EXIST_머리장비29
#LOCALSIZE 1
#LOCALSSIZE 1

@머리장비29(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "후드")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「모자」")
ENDSELECT


code:
;바지
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_바지_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@바지_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "바지", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_바지1
#LOCALSIZE 1
#LOCALSSIZE 1

@바지1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "바지")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 1
ENDSELECT

@EXIST_바지2
#LOCALSIZE 1
#LOCALSSIZE 1

@바지2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "쇼트 바지")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 2
ENDSELECT

@EXIST_바지3
#LOCALSIZE 1
#LOCALSSIZE 1

@바지3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "파자마 바지")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 3
ENDSELECT

@EXIST_바지4
#LOCALSIZE 1
#LOCALSSIZE 1

@바지4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "핫 팬티")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 4
ENDSELECT

@EXIST_바지5
#LOCALSIZE 1
#LOCALSSIZE 1

@바지5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "오버올")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 5
ENDSELECT

@EXIST_바지6
#LOCALSIZE 1
#LOCALSSIZE 1

@바지6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "하카마")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 6
ENDSELECT

@EXIST_바지7
#LOCALSIZE 1
#LOCALSSIZE 1

@바지7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "작업 바지")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 7
ENDSELECT

@EXIST_바지8
#LOCALSIZE 1
#LOCALSSIZE 1

@바지8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "사시누키하카마")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 8
ENDSELECT

@EXIST_바지9
#LOCALSIZE 1
#LOCALSSIZE 1

@바지9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "부루마")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 9
ENDSELECT

@EXIST_바지10
#LOCALSIZE 1
#LOCALSSIZE 1

@바지10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "숏 팬츠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 10
ENDSELECT

@EXIST_바지11
#LOCALSIZE 1
#LOCALSSIZE 1

@바지11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "호박 바지")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 11
ENDSELECT

@EXIST_바지21
#LOCALSIZE 1
#LOCALSSIZE 1

@바지21(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "슬랙스(평상복 바지)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 21, 번호 나는 일 주의
ENDSELECT

@EXIST_바지22
#LOCALSIZE 1
#LOCALSSIZE 1

@바지22(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "작업복(아래)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「바지」")
;구장비 처리와의 조회용, 바지의 22, 번호 나는 일 주의
ENDSELECT


code:
;보디슈트
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_보디슈트_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@보디슈트_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "보디슈트", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_보디슈트1
#LOCALSIZE 1
#LOCALSSIZE 1

@보디슈트1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "보디슈트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「보디슈트」")
;구장비 처리와의 조회용, 보디슈트의 1
ENDSELECT

@EXIST_보디슈트2
#LOCALSIZE 1
#LOCALSSIZE 1

@보디슈트2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "러버 슈트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「보디슈트」")
;구장비 처리와의 조회용, 보디슈트의 2
ENDSELECT

@EXIST_보디슈트3
#LOCALSIZE 1
#LOCALSSIZE 1

@보디슈트3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "라이더 슈트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「보디슈트」")
;구장비 처리와의 조회용, 보디슈트의 3
ENDSELECT


code:
;상반신속옷_은만가능
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_상반신속옷_은만가능_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@상반신속옷_은만가능_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "상반신속옷_은만가능", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_상반신속옷_은만가능1
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만가능1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "비키니 탑")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷2」")
;구장비 처리와의 조회용, 상반신속옷2의 1
ENDSELECT

@EXIST_상반신속옷_은만가능2
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만가능2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "마이크로브라")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷2」")
;구장비 처리와의 조회용, 상반신속옷2의 2
ENDSELECT

@EXIST_상반신속옷_은만가능3
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만가능3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "컬러 셔츠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷2」")
;구장비 처리와의 조회용, 상반신속옷2의 3
ENDSELECT


code:
;상반신속옷_은만불가
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_상반신속옷_은만불가_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@상반신속옷_은만불가_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "상반신속옷_은만불가", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_상반신속옷_은만불가1
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "브래지어")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 1
CASE "붙인다"
	IF TALENT:ARG:유치 || TALENT:ARG:애같음
		CALLF MAKE_INT(V_NAME, 0)
	ELSE
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 2)
ENDSELECT

@EXIST_상반신속옷_은만불가2
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "사라시")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 2
CASE "붙인다"
	IF TALENT:ARG:유치 || TALENT:ARG:애같음
		CALLF MAKE_INT(V_NAME, 0)
	ELSEIF !RAND:(1 + (2 * 승부속옷판정(ARG)))
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 3)
ENDSELECT

@EXIST_상반신속옷_은만불가3
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "스포트브라")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 3
CASE "붙인다"
	SIF !RAND:(1 + (2 * 승부속옷판정(ARG)))
		CALLF MAKE_INT(V_NAME, 1)
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 2)
ENDSELECT

@EXIST_상반신속옷_은만불가4
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "캐미숄")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 4
CASE "붙인다"
	CALLF MAKE_INT(V_NAME, 1)
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 2)
ENDSELECT

@EXIST_상반신속옷_은만불가5
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "반창고(붕대)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 5
CASE "붙인다"
	IF !(ABL:ARG:노출벽 >= 4)
		CALLF MAKE_INT(V_NAME, 0)
	ELSEIF (TALENT:ARG:유치 || TALENT:ARG:애같음 || TALENT:ARG:체형 < 0 || TALENT:ARG:무지) && !RAND:3
		CALLF MAKE_INT(V_NAME, 1)
	ELSE
		CALLF MAKE_INT(V_NAME, 0)
	ENDIF
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 2)
ENDSELECT

@EXIST_상반신속옷_은만불가6
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "니프레스(성형)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 6
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 2)
ENDSELECT

@EXIST_상반신속옷_은만불가7
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "니프레스(하트형)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 7
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 2)
ENDSELECT

@EXIST_상반신속옷_은만불가8
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "니프르피아스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 8
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 0)
ENDSELECT

@EXIST_상반신속옷_은만불가9
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "베르트브라")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 9
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 99)
ENDSELECT

@EXIST_상반신속옷_은만불가10
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "T셔츠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 10
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 2)
ENDSELECT

@EXIST_상반신속옷_은만불가11
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "레이스의 브라(흰색)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 11
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_상반신속옷_은만불가12
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가12(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "레이스의 브라(흑)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 12
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_상반신속옷_은만불가13
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가13(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, @"%UNIQUE_UNDERWARE_TOP(ARG)%")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 13
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, UNIQUE_UNDERWARE_TOP_THICK(ARG))
ENDSELECT

@EXIST_상반신속옷_은만불가14
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가14(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "시스르브라")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 14
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_상반신속옷_은만불가15
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가15(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "툽레스브라")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 15
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 0)
ENDSELECT

@EXIST_상반신속옷_은만불가16
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가16(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "튜브탑 브라")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
CASE "붙인다"
	IF TALENT:ARG:유치 || TALENT:ARG:애같음
		CALLF MAKE_INT(V_NAME, 0)
	ELSE
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 2)
ENDSELECT

@EXIST_상반신속옷_은만불가17
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가17(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "정조대 브라")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 17
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 99)
ENDSELECT

@EXIST_상반신속옷_은만불가18
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가18(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "촉수 브라")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 18
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 3)
ENDSELECT

@EXIST_상반신속옷_은만불가19
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가19(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "비키니 탑")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 19
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 2)
ENDSELECT

@EXIST_상반신속옷_은만불가20
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가20(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "마이크로 탑")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
;구장비 처리와의 조회용, 상반신속옷1의 20
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 2)
ENDSELECT

@EXIST_상반신속옷_은만불가21
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신속옷_은만불가21(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "천진난만한 여자")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신속옷1」")
CASE "붙인다"
	IF !(TALENT:ARG:걸레 || TALENT:ARG:소악마 || TALENT:ARG:연모 || TALENT:ARG:애욕) && (TALENT:ARG:유치 || TALENT:ARG:애같음 || TALENT:ARG:체형 < 0 || TALENT:ARG:무지)
		CALLF MAKE_INT(V_NAME, 0)
	ELSEIF !RAND:(3 - (2 * 승부속옷판정(ARG)))
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "옷감 두께"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT


code:
;상반신윗도리_는만가능
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_상반신윗도리_는만가능_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@상반신윗도리_는만가능_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "상반신윗도리_는만가능", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_상반신윗도리_는만가능1
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "블라우스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 1
ENDSELECT

@EXIST_상반신윗도리_는만가능2
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "소매 없는 옷 해 블라우스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 2
ENDSELECT

@EXIST_상반신윗도리_는만가능3
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "파자마 윗도리")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 3
ENDSELECT

@EXIST_상반신윗도리_는만가능4
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "모리야의 무녀옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 4
ENDSELECT

@EXIST_상반신윗도리_는만가능5
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "가슴 열림 터틀넥")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 5
ENDSELECT

@EXIST_상반신윗도리_는만가능6
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "튜브 탑")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 6
ENDSELECT

@EXIST_상반신윗도리_는만가능7
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "탱크 톱")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 7
ENDSELECT

@EXIST_상반신윗도리_는만가능8
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "캐미숄")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 8
ENDSELECT

@EXIST_상반신윗도리_는만가능9
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "반소매 블라우스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 9
ENDSELECT

@EXIST_상반신윗도리_는만가능10
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "프릴 블라우스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 10
ENDSELECT

@EXIST_상반신윗도리_는만가능11
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
@상반신윗도리_는만가능11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "체육복")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 11
ENDSELECT

@EXIST_상반신윗도리_는만가능12
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능12(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "운동복 쟈켓")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 12
ENDSELECT

@EXIST_상반신윗도리_는만가능13
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능13(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "와이셔츠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 13
ENDSELECT

@EXIST_상반신윗도리_는만가능14
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능14(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "도복")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 14
ENDSELECT

@EXIST_상반신윗도리_는만가능15
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능15(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "자잘한 무늬")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 15
ENDSELECT

@EXIST_상반신윗도리_는만가능16
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능16(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "긴 일본옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 16
ENDSELECT

@EXIST_상반신윗도리_는만가능17
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능17(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "T셔츠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리2의 17
ENDSELECT

@EXIST_상반신윗도리_는만가능18
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만가능18(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "흰색소소매")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리2」")
;구장비 처리와의 조회용, 상반신윗도리1의 7
;백의→흰색소소매에 개명한 다음 카테고리 이동
ENDSELECT


code:
;상반신윗도리_는만불가
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_상반신윗도리_는만불가_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@상반신윗도리_는만불가_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "상반신윗도리_는만불가", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_상반신윗도리_는만불가1
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만불가1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "민소매 윗도리")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리1」")
;구장비 처리와의 조회용, 상반신윗도리1의 1
ENDSELECT

@EXIST_상반신윗도리_는만불가2
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만불가2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "세라복")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리1」")
;구장비 처리와의 조회용, 상반신윗도리1의 2
ENDSELECT

@EXIST_상반신윗도리_는만불가3
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만불가3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "윗도리")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리1」")
;구장비 처리와의 조회용, 상반신윗도리1의 3
ENDSELECT

@EXIST_상반신윗도리_는만불가4
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만불가4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "블레이저 코트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리1」")
;구장비 처리와의 조회용, 상반신윗도리1의 4
ENDSELECT

@EXIST_상반신윗도리_는만불가5
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만불가5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "하쿠레이의 무녀옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리1」")
;구장비 처리와의 조회용, 상반신윗도리1의 5
ENDSELECT

@EXIST_상반신윗도리_는만불가6
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만불가6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "셔츠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리1」")
;구장비 처리와의 조회용, 상반신윗도리1의 6
ENDSELECT

;구장비 처리와의 조회용, 상반신윗도리1의 7
;백의→흰색소소매에 개명해만 가능하게 이동

@EXIST_상반신윗도리_는만불가8
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만불가8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "작업복(위)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리1」")
;구장비 처리와의 조회용, 상반신윗도리1의 8
ENDSELECT

;신설
;후토용
@EXIST_상반신윗도리_는만불가9
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만불가9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "물에 담갔다가 말린 비단")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리1」")
ENDSELECT

;신설
;신관 롤이든지 문신 롤로 사용해주세요
@EXIST_상반신윗도리_는만불가10
#LOCALSIZE 1
#LOCALSSIZE 1

@상반신윗도리_는만불가10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "사냥할 때 입는 옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「상반신윗도리1」")
ENDSELECT


code:
;;모미지
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_구두_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@구두_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "구두", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_구두1
#LOCALSIZE 1
#LOCALSSIZE 1

@구두1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "구두")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 1
ENDSELECT

@EXIST_구두2
#LOCALSIZE 1
#LOCALSSIZE 1

@구두2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "나막신")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 2
ENDSELECT

@EXIST_구두3
#LOCALSIZE 1
#LOCALSSIZE 1

@구두3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "롱 부츠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 3
ENDSELECT

@EXIST_구두4
#LOCALSIZE 1
#LOCALSSIZE 1

@구두4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "하이 부츠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 4
ENDSELECT

@EXIST_구두5
#LOCALSIZE 1
#LOCALSSIZE 1

@구두5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "눈이 올때 신는 신발")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 5
ENDSELECT

@EXIST_구두6
#LOCALSIZE 1
#LOCALSSIZE 1

@구두6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "하이힐")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 6
ENDSELECT

@EXIST_구두7
#LOCALSIZE 1
#LOCALSSIZE 1

@구두7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "간호사 샌들")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 7
ENDSELECT

@EXIST_구두8
#LOCALSIZE 1
#LOCALSSIZE 1

@구두8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "짚신")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 8
ENDSELECT

@EXIST_구두9
#LOCALSIZE 1
#LOCALSSIZE 1

@구두9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "부츠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 9
ENDSELECT

@EXIST_구두10
#LOCALSIZE 1
#LOCALSSIZE 1

@구두10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "스니커즈")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 10
ENDSELECT

@EXIST_구두11
#LOCALSIZE 1
#LOCALSSIZE 1

@구두11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "펌프스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 11
ENDSELECT

@EXIST_구두12
#LOCALSIZE 1
#LOCALSSIZE 1

@구두12(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "가죽 구두")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 12
ENDSELECT

@EXIST_구두13
#LOCALSIZE 1
#LOCALSSIZE 1

@구두13(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "지카타비")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
;구장비 처리와의 조회용, 구두의 13
ENDSELECT

;신설
@EXIST_구두14
#LOCALSIZE 1
#LOCALSSIZE 1

@구두14(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "답")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「구두」")
ENDSELECT


code:
;액세서리
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_액세서리_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@액세서리_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "액세서리", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_액세서리1
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
@액세서리1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "안경")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「액세서리」")
;구장비 처리와의 조회용, 액세서리의 1
ENDSELECT

@EXIST_액세서리2
#LOCALSIZE 1
#LOCALSSIZE 1

@액세서리2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "소매")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「액세서리」")
;구장비 처리와의 조회용, 액세서리의 2
ENDSELECT

@EXIST_액세서리3
#LOCALSIZE 1
#LOCALSSIZE 1

@액세서리3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "목걸이")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「액세서리」")
;구장비 처리와의 조회용, 액세서리의 3
ENDSELECT

@EXIST_액세서리4
#LOCALSIZE 1
#LOCALSSIZE 1

@액세서리4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "부적")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「액세서리」")
;구장비 처리와의 조회용, 액세서리의 4
ENDSELECT

@EXIST_액세서리5
#LOCALSIZE 1
#LOCALSSIZE 1

@액세서리5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "고글")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「액세서리」")
;구장비 처리와의 조회용, 액세서리의 5
ENDSELECT

@EXIST_액세서리6
#LOCALSIZE 1
#LOCALSSIZE 1

@액세서리6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "우산")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「액세서리」")
;구장비 처리와의 조회용, 액세서리의 6
ENDSELECT

@EXIST_액세서리7
#LOCALSIZE 1
#LOCALSSIZE 1

@액세서리7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "선글라스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「액세서리」")
;구장비 처리와의 조회용, 액세서리의 7
ENDSELECT

@EXIST_액세서리8
#LOCALSIZE 1
#LOCALSSIZE 1

@액세서리8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "쇠사슬")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「액세서리」")
;구장비 처리와의 조회용, 액세서리의 8
ENDSELECT


code:
;양말
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_양말_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@양말_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "양말", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_양말1
#LOCALSIZE 1
#LOCALSSIZE 1

@양말1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "양말")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「양말」")
;구장비 처리와의 조회용, 양말의 1
ENDSELECT

@EXIST_양말2
#LOCALSIZE 1
#LOCALSSIZE 1

@양말2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "무릎까지 오는 양말")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「양말」")
;구장비 처리와의 조회용, 양말의 2
ENDSELECT

@EXIST_양말3
#LOCALSIZE 1
#LOCALSSIZE 1

@양말3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "팬티 스타킹")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「양말」")
;구장비 처리와의 조회용, 양말의 3
ENDSELECT

@EXIST_양말4
#LOCALSIZE 1
#LOCALSSIZE 1

@양말4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "가터 스타킹")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「양말」")
;구장비 처리와의 조회용, 양말의 4
ENDSELECT

@EXIST_양말5
#LOCALSIZE 1
#LOCALSSIZE 1

@양말5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "스타킹")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「양말」")
;구장비 처리와의 조회용, 양말의 5
ENDSELECT

@EXIST_양말6
#LOCALSIZE 1
#LOCALSSIZE 1

@양말6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "그물 타이츠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「양말」")
;구장비 처리와의 조회용, 양말의 6
ENDSELECT

@EXIST_양말7
#LOCALSIZE 1
#LOCALSSIZE 1

@양말7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "버선")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「양말」")
;구장비 처리와의 조회용, 양말의 7
ENDSELECT

@EXIST_양말8
#LOCALSIZE 1
#LOCALSSIZE 1

@양말8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "타이츠")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「양말」")
;구장비 처리와의 조회용, 양말의 8
ENDSELECT


code:
;완부의복
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_완부의복_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@완부의복_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "완부의복", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_완부의복1
#LOCALSIZE 1
#LOCALSSIZE 1

@완부의복1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "토시")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「완부의복」")
;구장비 처리와의 조회용, 완부의복의 1
ENDSELECT

@EXIST_완부의복2
#LOCALSIZE 1
#LOCALSSIZE 1

@완부의복2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "가죽 글로브")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「완부의복」")
;구장비 처리와의 조회용, 완부의복의 2
ENDSELECT

@EXIST_완부의복3
#LOCALSIZE 1
#LOCALSSIZE 1

@완부의복3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "작업용 장갑")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「완부의복」")
;구장비 처리와의 조회용, 완부의복의 3
ENDSELECT

@EXIST_완부의복4
#LOCALSIZE 1
#LOCALSSIZE 1

@완부의복4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "사시누키 글로브")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「완부의복」")
;구장비 처리와의 조회용, 완부의복의 4
ENDSELECT

@EXIST_완부의복5
#LOCALSIZE 1
#LOCALSSIZE 1

@완부의복5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "실크 글로브")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「완부의복」")
;구장비 처리와의 조회용, 완부의복의 5
ENDSELECT

@EXIST_완부의복6
#LOCALSIZE 1
#LOCALSSIZE 1

@완부의복6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "간트렛트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「완부의복」")
;구장비 처리와의 조회용, 완부의복의 6
ENDSELECT

@EXIST_완부의복7
#LOCALSIZE 1
#LOCALSSIZE 1

@완부의복7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "커프스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「완부의복」")
;구장비 처리와의 조회용, 완부의복의 7
ENDSELECT

@EXIST_완부의복8
#LOCALSIZE 1
#LOCALSSIZE 1

@완부의복8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "벼랑")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「완부의복」")
;구장비 처리와의 조회용, 완부의복의 8
ENDSELECT

;신설
@EXIST_완부의복9
#LOCALSIZE 1
#LOCALSSIZE 1

@완부의복9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "암 커버")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「완부의복」")
ENDSELECT


code:
;원피스
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_원피스_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@원피스_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "원피스", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_원피스1
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "원피스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 1
ENDSELECT

@EXIST_원피스2
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "천진난만한 여자")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 2
ENDSELECT

@EXIST_원피스3
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "에이프런 드레스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 3
ENDSELECT

@EXIST_원피스4
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "차이나 드레스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 4
ENDSELECT

@EXIST_원피스5
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "법의")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 5
ENDSELECT

@EXIST_원피스6
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "도사옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 6
ENDSELECT

@EXIST_원피스7
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "이브닝 드레스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 7
ENDSELECT

@EXIST_원피스8
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "롱 실내 옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 8
ENDSELECT

@EXIST_원피스9
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "고스로리(고딕 로리타) 드레스")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 9
ENDSELECT

@EXIST_원피스10
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "간호사 옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 10
ENDSELECT

@EXIST_원피스11
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "작업복")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 11
ENDSELECT

@EXIST_원피스12
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스12(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "인형")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 12
ENDSELECT

@EXIST_원피스13
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스13(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "목욕타올")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 13
ENDSELECT

@EXIST_원피스14
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스14(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "원피스(흰색)")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 14
ENDSELECT

@EXIST_원피스15
#LOCALSIZE 1
#LOCALSSIZE 1

@원피스15(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "피부 속옷")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「원피스」")
;구장비 처리와의 조회용, 원피스의 15
ENDSELECT


code:
;스치마
;요소명→ID변환용 함수의 존부 확인용 함수
;변환 가능(ID와 요소명의 관계가 항상 변화하지 않는다)이라면 설치
;상황에 의해 이름이 바뀌는 것 같은 것은 불가능
@EXIST_치마_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;요소명→ID변환용 함수
;필요하면 각 오브젝트로와 같이  작성
@치마_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;작성하는 변수명
#DIMS C_NAME, OBJ_ID_LAST + 1 ;데이터 보유
#DIM  O_ID                    ;참조용
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "치마", O_ID, "이름")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_치마1
#LOCALSIZE 1
#LOCALSSIZE 1

@치마1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "치마")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「치마」")
;구장비 처리와의 조회용, 치마의 1
ENDSELECT

@EXIST_치마2
#LOCALSIZE 1
#LOCALSSIZE 1

@치마2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "롱 스커트")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「치마」")
;구장비 처리와의 조회용, 치마의 2
ENDSELECT

;이것 아마 미스
;파자마 바지→파자마 치마
@EXIST_치마3
#LOCALSIZE 1
#LOCALSSIZE 1

@치마3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "파자마 치마")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「치마」")
;구장비 처리와의 조회용, 치마의 3
ENDSELECT

@EXIST_치마4
#LOCALSIZE 1
#LOCALSSIZE 1

@치마4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "안돈바카마")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「치마」")
;구장비 처리와의 조회용, 치마의 4
ENDSELECT

@EXIST_치마5
#LOCALSIZE 1
#LOCALSSIZE 1

@치마5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "서스펜더 치마")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「치마」")
;구장비 처리와의 조회용, 치마의 5
ENDSELECT

@EXIST_치마6
#LOCALSIZE 1
#LOCALSSIZE 1

@치마6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "점퍼치마")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「치마」")
;구장비 처리와의 조회용, 치마의 6
ENDSELECT

@EXIST_치마7
#LOCALSIZE 1
#LOCALSSIZE 1

@치마7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "미니치마")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「치마」")
;구장비 처리와의 조회용, 치마의 7
ENDSELECT

@EXIST_치마8
#LOCALSIZE 1
#LOCALSSIZE 1

@치마8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "이름"
	CALLF MAKE_STR(V_NAME, "뽀빠이 바지치마")
CASE "장비부위"
	CALLF MAKE_STR(V_NAME, "「치마」")
;구장비 처리와의 조회용, 치마의 8
ENDSELECT